home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Railroad Tycoon Amiga Music FX / Lowe_RailroadTycoonAmigaMusicFX.adf / games.s < prev    next >
Encoding:
Text File  |  1978-11-21  |  63.4 KB  |  3,842 lines
  1.  
  2.  
  3.  
  4.     ;    DRIVER AND MUSIC REMAIN COPYRIGHT D.LOWE 
  5.  
  6.     ;         F15II INGAME TUNES and FX
  7.  
  8.  
  9.     ; GLYNN,
  10.     ; I've simply given you a selection of fx to use as you choose
  11.     ; 
  12.  
  13. ;dff0d0+6
  14.     ;        DAVE LOWE.....0723  870648
  15.  
  16.  
  17. ;        **************************
  18.  
  19.     section issA,code_c    ;must be in low memory for dma access
  20.                 ;DEVPAC PSEUDO OP ..CAN BE DELETED
  21.  
  22.  
  23. ;*****************************************
  24.  
  25.         ;  ALL EQUs
  26.  
  27. a00  equ  508*2
  28. bb00  equ  480*2
  29. b00  equ  453*2
  30.  
  31. c01  equ  428*2
  32. db01  equ  404*2
  33. d01 equ  381*2
  34. eb01  equ  360*2
  35. e01  equ  339*2
  36. f01  equ  320*2
  37. gb01  equ  302*2
  38. g01  equ  285*2
  39. ab01 equ 269*2
  40. a01  equ  508
  41. bb01  equ  480
  42. b01  equ  453
  43.  
  44. c02  equ  428
  45. db02  equ  404
  46. d02  equ  381
  47. eb02  equ  360
  48. e02  equ  339
  49. f02  equ  320
  50. gb02  equ  302
  51. g02  equ  285
  52. ab02 equ 269
  53. a02  equ  254
  54. bb02  equ  240
  55. b02  equ  226
  56.  
  57. c03  equ  214
  58. db03  equ  202
  59. d03  equ  190
  60. eb03  equ  180
  61. e03  equ  170
  62. f03  equ  160
  63. gb03  equ  151
  64. g03  equ  143
  65. ab03 equ 135
  66. a03  equ  127
  67.  
  68. bb03  equ  480*2
  69. b03  equ  453*2
  70.  
  71. c04  equ  428*2
  72. db04  equ  404*2
  73. d04 equ  381*2
  74. eb04  equ  360*2
  75. e04  equ  339*2
  76. f04  equ  320*2
  77. gb04  equ  302*2
  78. g04  equ  285*2
  79. ab04 equ 269*2
  80. a04  equ  508
  81. bb04  equ  480
  82. b04  equ  453
  83.  
  84. c05  equ  428
  85. db05  equ  404
  86. d05  equ  381
  87. eb05  equ  360
  88. e05  equ  339
  89. f05  equ  320
  90. gb05  equ  302
  91. g05  equ  285
  92. ab05 equ 269
  93. a05  equ  254
  94. bb05  equ  240
  95. b05  equ  226
  96.  
  97. c06  equ  214
  98. db06  equ  202
  99. d06  equ  190
  100. eb06  equ  180
  101. e06  equ  170
  102. f06  equ  160
  103. gb06  equ  151
  104. g06  equ  143
  105. ab06 equ 135
  106. a06  equ  127
  107. bb06  equ  480*2
  108. b06  equ  453*2
  109.  
  110. c07  equ  428*2
  111. db07  equ  404*2
  112. d07 equ  381*2
  113. eb07  equ  360*2
  114. e07  equ  339*2
  115. f07  equ  320*2
  116. gb07  equ  302*2
  117. g07  equ  285*2
  118. ab07 equ 269*2
  119. a07  equ  508
  120. bb07  equ  480
  121. b07  equ  453
  122.  
  123. c08  equ  428
  124. db08  equ  404
  125. d08  equ  381
  126. eb08  equ  360
  127. e08  equ  339
  128. f08  equ  320
  129. gb08  equ  302
  130. g08  equ  285
  131. ab08 equ 269
  132. a08  equ  254
  133. bb08  equ  240
  134. b08  equ  226
  135.  
  136.  
  137. v equ 0
  138.  
  139. no_loop equ 0
  140. loop equ 0
  141. chann1reg   equ $dff0a0    
  142. chann2reg   equ $dff0b0
  143. chann3reg   equ $dff0c0
  144. chann4reg   equ $dff0d0
  145. dmacon     equ $dff096
  146. int_bf_int   equ   $dff01e
  147. int_bf_w    equ   $dff09a
  148. vhposr     equ   $dff006
  149. in_line    equ   0
  150. new_snd    equ   4
  151. end_song     equ   1
  152. end_patt    equ   8
  153. new_env    equ   12
  154. pbend     equ   16
  155.  
  156. cr set   24
  157. q set cr/2
  158. sq set q/2
  159.  
  160. hi: equ 223
  161. lo:  equ 446
  162.  
  163. r22    equ 134
  164. r20    equ 179        ;correctum
  165. r19    equ 150
  166. r18    equ 178
  167. r17    equ 200
  168. r16:    equ 227        ;correctum
  169. r15:    equ 249
  170. r13:    equ 305
  171. r12:    equ 333
  172. r11:    equ 361
  173. r10:    equ 389
  174. r9:    equ 419
  175. r8:    equ 446
  176. r7:    equ 446+112
  177. r6:    equ 446+223
  178. r5:    equ 446+223+112
  179. r4:    equ 446*2
  180. r3:    equ 446*3
  181. r2:    equ 446*4
  182. r1:    equ 446*8
  183.  
  184.  
  185. filter: equ $bfe001
  186. filter_on equ 44
  187. filter_off equ 48
  188.  
  189. modon     equ   20
  190. pboff     equ   24
  191. modoff     equ   28
  192. rest     equ 32
  193. end_fxp  equ 36
  194. end_fx3  equ 36
  195. end_fx4  equ 40
  196. acc    equ 52
  197. repeat    equ 56
  198. down      equ   1
  199. up       equ   2
  200.  
  201. ;***************************************************************
  202.  
  203.  
  204.  ;    THIS IS THE CONTROL SECTION FOR TESTING AS A STAND ALONE PRG. 
  205.  
  206.     ;       AND CAN BE DELETED WHEN NOT REQUIRED
  207.  
  208.  
  209.     jsr select_new_song
  210.  
  211. testloop:
  212.     jsr delay    ;wait for scan line  at 50hz on pal
  213.  
  214.     jsr driver
  215.  
  216.         bra testloop
  217.  
  218.  
  219. delay:
  220.     tst.w fxtimer
  221.     bne no_test
  222.     clr.l d0
  223.     move.b $bfe001,d0
  224.     btst #6,d0
  225.     bne no_test1
  226.     move.w #10,fxtimer
  227.     bra testfx4
  228. no_test
  229.     subq #1,fxtimer
  230. no_test1
  231.     clr.l d0
  232.         move.w vhposr,d0
  233.         andi.w #%1111111100000000,d0
  234.         cmpi.w #%1111111100000000,d0
  235.  
  236.     bne no_test1
  237.     rts
  238.  
  239. testfx4:  
  240.  
  241.     jsr    kill_chip
  242.     move.w #1,int_disable
  243.     clr.l d0
  244.     move.b $bfe001,d0
  245.     btst #6,d0
  246.     beq testfx4
  247.  
  248.     move.l song_buffer,d0
  249.     addq.l #1,d0
  250.     cmp.l    #30,d0
  251.     bne nores
  252.     move.l #1,d0
  253. nores    move.l d0,song_buffer
  254.     jsr    select_new_song
  255.  
  256.  
  257.     ;move.l fx_last,d0
  258.     ;move.l d0,fx_kill
  259.  
  260.     ;jsr kill_loopfx        ;only one fx at a time
  261.  
  262.  
  263. no_k
  264.         move.l fx_no,fx_number
  265.     move.l fx_no,fx_last
  266.     addq.l #1,fx_no
  267.     move.l    max_fx,d0
  268.         cmp.l fx_no,d0
  269.     bne noreset
  270.     move.l #1,fx_no    
  271. noreset: 
  272.     jsr set_up_fx
  273.     bra no_test    
  274.  
  275. fxtc:          dc.w 10
  276. fx_no:         dc.l  1
  277. fx_last        dc.l  0
  278.  
  279.  
  280. ;        END OF CONTROL (DELETABLE) SECTION
  281.  
  282. ;**********************************************************
  283.  
  284. ; --------------------------------------------------------------
  285.  
  286. ;    MAIN VARIABLES TO BE ACCESSED BY PROGRAMMER DURING RUNTIME
  287.  
  288.  
  289. fx_number:     dc.l 0 ;     number of fx required here...see list
  290. fx_kill        dc.l 0 ;     number of fx to kill/only needed for looped fx
  291.  
  292. song_buffer     dc.l 1 ;     number of piece of music required here ie.1 to 5
  293.  
  294. music_disable:  dc.w 0 ;     1 = disable music
  295. fx_disable:     dc.w 1 ;     1 = disable fx  (currently disabled)
  296.  
  297. ;    +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  298.  
  299. ;  THESE VARIABLES ARE USED INTERNALLY BY THE DRIVER
  300. fxr1         dc.l 0  
  301. fxr2         dc.l 0  
  302. fxr3         dc.l 0  
  303. fxr4         dc.l 0  
  304. fxc1        dc.l 0
  305. fxc2          dc.l 0
  306. fxc3        dc.l 0
  307. fxc4          dc.l 0
  308. fx1_flag    dc.w 0
  309. fx2_flag    dc.w 0
  310. fx3_flag    dc.w 0
  311. fx4_flag    dc.w 0
  312. fxtimer        dc.w 0
  313. gen        dc.w 0
  314. int_disable    dc.w 0
  315. altpf         dc.w 0
  316. kill_flag    dc.w 0
  317. ;  *******************************************************
  318.  
  319. ;  CALL THIS SUBROUTINE TO SET UP THE REQIURED FX
  320. ;  on entry it requires the fx number to be in "fx_number"(see above)
  321. ;  
  322.  
  323. set_up_fx
  324.     movem.l d5/a2,-(a7)    ;save used registers
  325.     move.l #1,d0
  326.     cmp fx_number,d0
  327.     bne check3        ;engine to 4
  328.  
  329.     tst.l fxc4
  330.     bne check3
  331. use4:    
  332.     move.w #%0000000000001000,d5
  333.     lea chann4reg,a2
  334.     jsr end_fx4p
  335.     move.l fx_number,fxr4
  336.     move.l fx_number,fxc4
  337.     move.l #0,fx_number
  338.     bra no_fx
  339. check3:    tst.l fxc3
  340.     bne check2
  341. use3:
  342.     move.w #%0000000000000100,d5
  343.     lea chann3reg,a2
  344.     jsr end_fx3p
  345.     move.l fx_number,fxr3
  346.     move.l fx_number,fxc3
  347.     move.l #0,fx_number
  348.     bra no_fx
  349. check2:    tst.l fxc2
  350.     bne check1
  351. use2:
  352.     move.w #%0000000000000010,d5
  353.     lea chann2reg,a2
  354.     jsr end_fx2p
  355.     move.l fx_number,fxr2
  356.     move.l fx_number,fxc2
  357.     move.l #0,fx_number
  358.     bra no_fx
  359. check1:    tst.l fxc1
  360.     bne use3
  361. use1:
  362.     move.w #%0000000000000001,d5
  363.     lea chann1reg,a2
  364.     jsr end_fx1p
  365.     move.l fx_number,fxr1
  366.     move.l fx_number,fxc1
  367.     move.l #0,fx_number
  368. no_fx
  369.     movem.l (a7)+,d5/a2    ;restore registers
  370.     rts
  371.  
  372. ;*************************************************
  373. ;          CALL HERE TO KILL ANY LOOPED FX...
  374. ;       after putting the number of the fx you want to kill
  375. ;            into fx_kill
  376.  
  377. kill_loopfx
  378.  
  379.     movem.l d5/a2,-(a7)    ;save used registers
  380.     move.l fx_kill,d5
  381.     cmp.l fxc1,d5
  382.     bne k2
  383.     move.w #%0000000000000001,d5
  384.     lea chann1reg,a2
  385.     jsr end_fx1p
  386.     bra error
  387. k2    cmp.l fxc2,d5
  388.     bne k3
  389.     move.w #%0000000000000010,d5
  390.     lea chann2reg,a2
  391.     jsr end_fx2p
  392.     bra error
  393. k3    cmp.l fxc3,d5
  394.     bne k4
  395.     move.w #%0000000000000100,d5
  396.     lea chann3reg,a2
  397.     jsr end_fx3p
  398.     bra error
  399. k4    cmp.l fxc4,d5
  400.     bne error
  401.     move.w #%0000000000001000,d5
  402.     lea chann2reg,a2
  403.     jsr end_fx4p
  404. error
  405.     clr.l fx_kill
  406.     movem.l (a7)+,d5/a2    ;restore registers
  407.     rts
  408. ;*************************************************
  409.  
  410.     ; CALL HERE TO KILL ANY SOUND for whatever reason
  411.  
  412. kill_chip:
  413.     move.w #%0000000000001111,dmacon
  414.     move.l rest_data,chann1reg
  415.     move.l rest_data,chann2reg
  416.     move.l rest_data,chann3reg
  417.     move.l rest_data,chann4reg
  418.     move.w #16,chann1reg+4    
  419.     move.w #16,chann2reg+4    
  420.     move.w #16,chann3reg+4    
  421.     move.w #16,chann4reg+4    
  422.     move.w #0,chann1reg+8
  423.     move.w #0,chann2reg+8
  424.     move.w #0,chann3reg+8
  425.     move.w #0,chann4reg+8
  426.     move.w #1,chann1reg+6
  427.     move.w #1,chann2reg+6
  428.     move.w #1,chann3reg+6
  429.     move.w #1,chann4reg+6
  430.     move.l #0,fxr1
  431.     move.l #0,fxr2
  432.     move.l #0,fxr3
  433.     move.l #0,fxr4
  434.     move.w #0,fx1_flag
  435.     move.w #0,fx2_flag
  436.     move.w #0,fx3_flag
  437.     move.w #0,fx4_flag
  438.     move.l #0,fxc1
  439.     move.l #0,fxc2
  440.     move.l #0,fxc3
  441.     move.l #0,fxc4
  442.     rts
  443. ;****************************************
  444.  
  445. ;  CALL HERE TO SELECT WHICH PIECE OF MUSIC TO PLAY
  446. ;  AFTER PLACING NUMBER (1 to 3) IN "SONG_BUFFER"..see above
  447. ;  a call to this routine will initiliase the driver/kill any sound etc.      
  448. ;  make sure this routine has been called before running the interrupt
  449. ;  driven section....see below
  450.  
  451. select_new_song:
  452.  
  453.     move.w #1,int_disable
  454.     movem.l d0/d1/a0/a1,-(a7)    ;save used registers
  455.     move.w music_disable,gen
  456.     move.w #1,music_disable
  457.         jsr kill_chip           
  458.     clr.l d0
  459.         move.w #204,d0
  460.         lea gvars,a0
  461. clloop: clr.w (a0)+        
  462.         dbra  d0,clloop
  463.     tst.l song_buffer
  464.     beq no_song
  465.         move.l song_buffer,d1
  466.     add.l d1,d1
  467.      add.l d1,d1
  468.      add.l d1,d1
  469.      add.l d1,d1
  470.         LEA  SONG_TABLE-16,A1
  471.         add.l d1,a1      
  472.         MOVE.L (A1)+,WSONG1    
  473.         move.l (a1)+,wsong2    
  474.         move.l (a1)+,wsong3
  475.     move.l (a1),wsong4
  476.         MOVE.L #pstart,PATTR1
  477.         MOVE.L #pstart,PATTR2
  478.         MOVE.L #pstart,PATTR3
  479.     move.l #pstart,pattr4
  480.         move.l #sstart,songr1
  481.         MOVE.L #sstart,SONGR2
  482.         MOVE.L #sstart,SONGR3
  483.     move.l #sstart,songr4
  484. no_song
  485.     move.w #1,ch1vars
  486.     move.w #2,ch2vars
  487.     move.w #3,ch3vars
  488.     move.w #4,ch4vars
  489.     move.w #6,ch4fxvars
  490.     move.w #5,ch3fxvars
  491.     move.w #7,ch2fxvars
  492.     move.w #8,ch1fxvars
  493.     move.w gen,music_disable
  494.     clr.w int_disable
  495.     movem.l (a7)+,d0/d1/a0/a1    ;restore registers
  496.         rts
  497.  
  498. ;**************************************************
  499.  
  500. ;  CALL HERE ON A 50hz INTERRUPT DURING RUNTIME
  501. ;  TO PLAY FX AND TUNES
  502.  
  503. driver:  
  504.     tst.w int_disable
  505.     beq process_data
  506.     rts        
  507. process_data
  508.     movem.l d0-d6/a0-a6,-(a7)    ;save used registers
  509.  
  510.  
  511. ch1:
  512.     tst.w fx_disable
  513.     bne test_music1
  514.     tst.l fxr1
  515.     bne   ch1j1
  516.     tst.l fxc1
  517.     beq test_music1
  518.     bra ch1j3
  519. ch1j2    jsr run_dummy1
  520.     jsr run_fx1
  521.     bra ch2
  522. ch1j1
  523.     jsr set_up1
  524. ch1j3    tst.w music_disable    
  525.     beq ch1j2
  526.     jsr run_fx1
  527.     bra ch2
  528. test_music1
  529.     tst.w music_disable
  530.     bne ch2
  531.     jsr run_music1
  532.     bra ch2
  533.     ;***********************
  534.  
  535.     ; channel 1 subroutines
  536.  
  537. run_dummy1    
  538.      lea ch1vars,a0
  539.      lea dummy_reg,a2 
  540.      move.w #0,d5 
  541.      jsr sect1    
  542.     rts
  543.  
  544. set_up1    
  545.          move.l fxr1,d0
  546.          add d0,d0
  547.          add d0,d0
  548.          lea  fxjump_table-4,A1
  549.      add.l d0,a1
  550.          move.l (a1),currfx1
  551.       clr.l fxr1
  552.      clr.w fxintc1
  553.       rts
  554.   
  555.      
  556. run_fx1
  557.     lea ch1fxvars,a0
  558.        lea chann1reg,a2
  559.       move.w #%0000000000000001,d5 
  560.      move.w #%1000001000000001,d1 
  561.      jsr sect1
  562.     rts
  563.  
  564. run_music1
  565.     lea ch1vars,a0
  566.        lea chann1reg,a2
  567.       move.w #%0000000000000001,d5 
  568.       move.w #%1000001000000001,d1 
  569.       jsr sect1     
  570.     rts
  571.  
  572.     ;  **************************
  573. ch2
  574.     tst.w fx_disable
  575.     bne test_music2
  576.     tst.l fxr2
  577.     bne   ch2j1
  578.     tst.l fxc2
  579.     beq test_music2
  580.     bra ch2j3
  581. ch2j2    jsr run_dummy2
  582.     jsr run_fx2
  583.     bra ch3
  584. ch2j1
  585.     jsr set_up2
  586. ch2j3    tst.w music_disable    
  587.     beq ch2j2
  588.     jsr run_fx2
  589.     bra ch3
  590.  
  591. test_music2
  592.     tst.w music_disable
  593.     bne ch3
  594.     jsr run_music2
  595.     bra ch3
  596.     ;***********************
  597.     ; channel 2 subroutines
  598. run_dummy2    
  599.      lea ch2vars,a0
  600.      lea dummy_reg,a2 
  601.      move.w #0,d5 
  602.      jsr sect1    
  603.     rts
  604.  
  605. set_up2    
  606.          move.l fxr2,d0
  607.          add d0,d0
  608.          add d0,d0
  609.          lea  fxjump_table-4,A1
  610.      add.l d0,a1
  611.          move.l (a1),currfx2
  612.       clr.l fxr2
  613.      clr.w fxintc2
  614.       rts
  615.   
  616.      
  617. run_fx2
  618.     lea ch2fxvars,a0
  619.        lea chann2reg,a2
  620.       move.w #%0000000000000010,d5 
  621.      move.w #%1000001000000010,d1 
  622.      jsr sect1
  623.     rts
  624.  
  625. run_music2
  626.     lea ch2vars,a0
  627.        lea chann2reg,a2
  628.       move.w #%0000000000000010,d5 
  629.       move.w #%1000001000000010,d1 
  630.       jsr sect1     
  631.     rts
  632.  
  633.     ;  **************************
  634.  
  635. ch3:
  636.     tst.w fx_disable
  637.     bne test_music3
  638.     tst.l fxr3
  639.     bne   ch3j1
  640.     tst.l fxc3
  641.     beq test_music3
  642.     bra ch3j3
  643. ch3j2    jsr run_dummy3
  644.     jsr run_fx3
  645.     bra ch4
  646. ch3j1
  647.     jsr set_up3
  648. ch3j3    tst.w music_disable    
  649.     beq ch3j2
  650.     jsr run_fx3
  651.     bra ch4
  652.  
  653. test_music3
  654.     tst.w music_disable
  655.     bne ch4
  656.     jsr run_music3
  657.     bra ch4
  658.  
  659.     ;***********************
  660.  
  661.     ; channel 3 subroutines
  662.  
  663. run_dummy3    
  664.      lea ch3vars,a0
  665.      lea dummy_reg,a2 
  666.      move.w #0,d5 
  667.      jsr sect1    
  668.     rts
  669.  
  670. set_up3    
  671.          move.l fxr3,d0
  672.          add d0,d0
  673.          add d0,d0
  674.          lea  fxjump_table-4,A1
  675.      add.l d0,a1
  676.          move.l (a1),currfx3
  677.       clr.l fxr3
  678.      clr.w fxintc3
  679.       rts
  680.   
  681.      
  682. run_fx3
  683.     lea ch3fxvars,a0
  684.        lea chann3reg,a2
  685.       move.w #%0000000000000100,d5 
  686.      move.w #%1000001000000100,d1 
  687.      jsr sect1
  688.     rts
  689.  
  690. run_music3
  691.     lea ch3vars,a0
  692.        lea chann3reg,a2
  693.       move.w #%0000000000000100,d5 
  694.       move.w #%1000001000000100,d1 
  695.       jsr sect1     
  696.     rts
  697.  
  698.     ;  **************************
  699.  
  700. ch4:
  701.     tst.w fx_disable
  702.     bne test_music4
  703.     tst.l fxr4
  704.     bne   ch4j1
  705.     tst.l fxc4
  706.     beq test_music4
  707.     bra ch4j3
  708. ch4j2    jsr run_dummy4
  709.     jsr run_fx4
  710.     bra no4
  711. ch4j1
  712.     jsr set_up4
  713. ch4j3    tst.w music_disable    
  714.     beq ch4j2
  715.     jsr run_fx4
  716.     bra no4
  717.  
  718. test_music4
  719.     tst.w music_disable
  720.     bne no4
  721.     jsr run_music4
  722. no4    
  723.     movem.l (a7)+,d0-d6/a0-a6    ;restore registers
  724.     rts
  725.  
  726.     ;***********************
  727.  
  728.     ; channel 4 subroutines
  729.  
  730. run_dummy4    
  731.      lea ch4vars,a0
  732.      lea dummy_reg,a2 
  733.      move.w #0,d5 
  734.      jsr sect1    
  735.     rts
  736.  
  737. set_up4    
  738.          move.l fxr4,d0
  739.          add d0,d0
  740.          add d0,d0
  741.          lea  fxjump_table-4,A1
  742.      add.l d0,a1
  743.          move.l (a1),currfx4
  744.       clr.l fxr4
  745.      clr.w fxintc4
  746.       rts
  747.   
  748.      
  749. run_fx4
  750.     lea ch4fxvars,a0
  751.        lea chann4reg,a2
  752.       move.w #%0000000000001000,d5 
  753.      move.w #%1000001000001000,d1 
  754.      jsr sect1
  755.     rts
  756.  
  757. run_music4
  758.     lea ch4vars,a0
  759.        lea chann4reg,a2
  760.       move.w #%0000000000001000,d5 
  761.       move.w #%1000001000001000,d1 
  762.       jsr sect1     
  763.     rts
  764.     ;  **************************
  765.  
  766. sect1: tst.w 0(a0)
  767.     bne s1j1
  768.     rts
  769.  
  770. s1j1:    tst.w 2(a0)
  771.         beq sect3       
  772.         cmpi.w #1,2(a0)
  773.         beq sect4
  774.  
  775.         cmpi.w #3,4(a0)    
  776.         beq part2       
  777.     
  778. mode_switch:  subq.w #1,2(a0)     
  779.  
  780. check_effects: clr.w altpf      
  781.         move.w 6(a0),d2    
  782.         tst.w 8(a0)      
  783.         beq check_mod
  784.         tst.w 14(a0)      
  785.         beq cont_bend
  786.         subq.w #1,14(a0)
  787.         bra check_mod
  788. cont_bend:   addq.w #1,altpf    
  789.         move.w 10(a0),d3    
  790.         move.w 12(a0),d4    
  791.         cmpi.w #1,8(a0)
  792.         beq pbup
  793.     
  794.         sub.w d3,d2
  795.         cmp.w d2,d4
  796.         bcs check_mod
  797.         bra fbend
  798.  
  799. pbup:     add.w d3,d2
  800.         cmp.w d2,d4
  801.         bcc check_mod
  802. fbend:     move.w d4,d2
  803.         clr.w 8(a0)      
  804. check_mod:   tst.w 16(a0)
  805.         beq send_alt_pitch
  806.    
  807.  
  808.     tst.w  58(a0)
  809.     beq st_ok
  810.     subq.w #1,58(a0)
  811.     bra send_alt_pitch
  812. st_ok:
  813.         tst.w 50(a0)
  814.         beq cont_mod
  815.         subq #1,50(a0)
  816.         bra send_alt_pitch
  817. cont_mod:    move.w 52(a0),50(a0)  
  818.         addq #1,altpf
  819.         cmpi #3,16(a0)
  820.         bcc addmod
  821.     
  822.         move.w 56(a0),d3 
  823.         sub.w d3,d2
  824.         addq.w #1,16(a0)  
  825.         bra send_alt_pitch
  826. addmod:
  827.  
  828.         move.w 54(a0),d3 
  829.         add.w d3,d2
  830.         addq.w #1,16(a0)
  831.         cmpi.w #5,16(a0)
  832.        bne send_alt_pitch
  833.         move.w #1,16(a0)  
  834.  
  835. send_alt_pitch: tst.w altpf
  836.         beq send_env
  837.         move.w d2,6(a0)  
  838.         move.w d2,6(a2)  
  839.  
  840. send_env: 
  841.  
  842.     cmpi #6,(a0)
  843.     beq norm_env    
  844.     cmpi #5,(a0)
  845.     bne do_env_check
  846.  
  847.     tst.w fx4_flag
  848.     beq norm_env
  849.     bra low_vol
  850.  
  851. do_env_check:
  852.     move.w fx3_flag,d0
  853.     or.w fx4_flag,d0
  854.     cmpi.w  #0,d0
  855.     beq norm_env
  856. low_vol:    
  857.     move.l 18(a0),a1    
  858.         cmpi.w #255,(a1)
  859.         beq evj1
  860.     move.w (a1)+,d0
  861. evj2:    sub.w  62(a0),d0
  862.     bcc no_over
  863.     move.w 0,d0
  864. no_over:
  865.         move.w d0,8(a2) 
  866.     bra fint        
  867.  
  868. evj1:   subq.l #2,a1
  869.     move.w (a1)+,d0
  870.     bra evj2
  871.  
  872. norm_env:
  873.     move.l 18(a0),a1    
  874.         cmpi.w #255,(a1)
  875.         beq env_finished
  876.     cmpi.w #1,66(a0)    
  877.     bne    no_acc 
  878.  
  879.     clr.l d0
  880.     move.w (a1)+,d0
  881.     add.w 64(a0),d0    
  882.     move.w d0,8(a2)    
  883.     move.l a1,18(a0)
  884.     rts        
  885.  
  886. no_acc:
  887. resu:   move.w (a1)+,8(a2)   
  888. fint:   move.l a1,18(a0)    
  889.     rts
  890.  
  891. env_finished:
  892.      subq.l #2,a1    
  893.      bra resu
  894.  
  895.  
  896. one_shot_note: move.w #3,4(a0)     
  897.         move.l 38(a0),(a2)
  898.         move.w 42(a0),4(a2)
  899.         move.w d1,dmacon     
  900.         bra send_env
  901.  
  902.  
  903. part2:                         
  904.         move.l 44(a0),(a2)
  905.         move.w 48(a0),4(a2)
  906.         subq.w #1,2(a0)      
  907.         move.w #1,4(a0)
  908.         bra check_effects
  909.  
  910. sect3:
  911.     move.w 0,66(a0)    
  912.  
  913.     move.l 22(a0),a1  
  914. control_ret: move.w (a1)+,d0  
  915.     cmpi.w #100,d0   
  916.     bls sect5   
  917.   
  918. acc_note:
  919.     move.w d0,6(a0)  
  920.     move.w d0,6(a2)  
  921.     move.w (a1)+,2(a0) 
  922.     subq.w #1,2(a0)  
  923.     move.l a1,22(a0)  
  924.     move.l 34(a0),18(a0) 
  925.     move.w 60(a0),58(a0) 
  926.  
  927.  
  928.     tst.w 16(a0)
  929.     beq no_mod_res
  930.     move.w #1,16(a0)
  931. no_mod_res:
  932.     cmpi.w #0,4(a0)
  933.     beq do_loop
  934.     bra one_shot_note    
  935.  
  936.  
  937. do_loop:    move.w d1,dmacon   
  938.         bra send_env
  939.  
  940. do_rest:
  941.     move.w (a1)+,2(a0) 
  942.     subq.w #1,2(a0)  
  943.     move.l a1,22(a0)  
  944.     move.l  #rest_env,18(a0)
  945.  
  946.         move.w #0,8(a2)
  947.         bra send_env
  948.    
  949. sect4:
  950.         cmpi.w #0,4(a0)
  951.         beq noof
  952.         move.w d5,dmacon   
  953. noof:     subq.w #1,2(a0)
  954.         bra check_effects
  955.    
  956. sect5:     move.l #jump_table,a3
  957.         move.l (a3,d0),a4
  958.         jmp (a4)
  959.  
  960. jump_table: 
  961.     dc.l  in_line_data
  962.         dc.l  nsound
  963.         dc.l  patt_end
  964.         dc.l  get_env
  965.         dc.l  check_pbend
  966.         dc.l  do_mod
  967.         dc.l  bend_off
  968.         dc.l  mod_off
  969.         dc.l  do_rest
  970.         dc.l  end_fx
  971.         dc.l  end_fx
  972.     dc.l  s_f_on
  973.     dc.l  s_f_off
  974.     dc.l  set_acc
  975.     dc.l  rept
  976.  
  977. in_line_data:
  978.  
  979.         nop
  980.         rts
  981.  
  982. rept:
  983.     move.l (a1),a1
  984.     bra control_ret
  985.  
  986. s_f_on: 
  987.     bclr #1,filter
  988.     bra control_ret
  989. s_f_off:
  990.     bset #1,filter
  991.     bra control_ret
  992.  
  993. nsound:    move.l (a1)+,a3     
  994.         cmpi.w #0,(a3)
  995.         bne one_shot_sound
  996.         move.w (a3)+,4(a0)    
  997.         move.l (a3)+,(a2)     
  998.         move.w (a3),4(a2)    
  999.         jmp control_ret
  1000.  
  1001. one_shot_sound:
  1002.         move.w (a3)+,4(a0)
  1003.         move.l (a3)+,38(a0)   
  1004.         move.l (a3)+,42(a0)
  1005.         move.l (a3),46(a0)
  1006.         jmp control_ret
  1007.  
  1008. patt_end:
  1009.  
  1010.         move.l 26(a0),a1    
  1011.         cmpi.l #0,(a1)     
  1012.         beq song_control
  1013.         addq.l #4,26(a0)    
  1014.         move.l (a1),a1     
  1015.         jmp control_ret
  1016. get_env: 
  1017.        move.l (a1)+,a4 
  1018.     move.l (a4)+,62(a0)    
  1019.     
  1020.     move.l  a4,34(a0)    
  1021.     
  1022.         bra control_ret
  1023.  
  1024. check_pbend:
  1025.      move.l (a1)+,8(a0)
  1026.         move.l (a1)+,12(a0)
  1027.         bra control_ret
  1028.  
  1029. do_mod:    move.w #1,16(a0)  
  1030.         move.l (a1)+,50(a0)
  1031.         move.l (a1)+,54(a0)
  1032.         move.l (a1)+,58(a0)
  1033.         bra control_ret
  1034.  
  1035. bend_off:   clr.w 8(a0)
  1036.         bra control_ret
  1037.  
  1038. mod_off:    clr.w 16(a0)
  1039.         bra control_ret
  1040.  
  1041.  
  1042. end_fx:    
  1043.     cmpi.w #6,(a0)
  1044.     beq end_fx4p
  1045.     cmpi.w #5,(a0)
  1046.     beq end_fx3p
  1047.     cmpi.w #7,(a0)
  1048.     beq end_fx2p
  1049.  
  1050. end_fx1p:
  1051.         move.w d5,dmacon   
  1052.     move.w  #1,chann1reg+6
  1053.     move.w #0,8(a2)
  1054.     move.l #0,fxc1
  1055.     rts
  1056.  
  1057. end_fx2p:
  1058.     move.w d5,dmacon 
  1059.     move.w  #1,chann2reg+6
  1060.         move.w #0,8(a2) 
  1061.     move.l #0,fxc2
  1062.         rts
  1063.  
  1064.  
  1065. end_fx3p:
  1066.         move.w d5,dmacon   
  1067.     move.w  #1,chann3reg+6
  1068.     move.w #0,8(a2)
  1069.     move.l #0,fxc3
  1070.     rts
  1071.  
  1072. end_fx4p:
  1073.     move.w d5,dmacon 
  1074.     move.w  #1,chann4reg+6
  1075.         move.w #0,8(a2) 
  1076.     move.l #0,fxc4
  1077.         rts
  1078.  
  1079. set_acc: move.w #1,66(a0) 
  1080.     bra control_ret
  1081.  
  1082. song_control:
  1083.         addq.l #4,a1
  1084.         move.l 30(a0),26(a0)
  1085.         move.l 26(a0),a1
  1086.         addq.l #4,26(a0)
  1087.         move.l (a1),a1
  1088.         jmp control_ret
  1089.  
  1090.  
  1091.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  1092.  
  1093.     ;;; DATA
  1094.  
  1095. ;************************************************************
  1096. gvars:
  1097. ch1vars     
  1098.     dc.w 0     
  1099.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1100. pattr1: dc.l 0    
  1101. songr1: dc.l 0    
  1102. wsong1: dc.l 0   
  1103.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1104.  
  1105. ch2vars     
  1106.     dc.w 0     
  1107.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1108. pattr2: dc.l 0    
  1109. songr2: dc.l 0    
  1110. wsong2: dc.l 0    
  1111.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1112.  
  1113. ch3vars 
  1114.     dc.w 0     
  1115.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1116. pattr3: dc.l 0    
  1117. songr3: dc.l 0    
  1118. wsong3: dc.l 0    
  1119.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1120.  
  1121. ch4vars 
  1122.     dc.w 0     
  1123.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1124. pattr4: dc.l 0    
  1125. songr4: dc.l 0    
  1126. wsong4: dc.l 0    
  1127.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1128.  
  1129.  
  1130. ch1fxvars 
  1131.     dc.w 0     
  1132. fxintc1:
  1133.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1134. currfx1:
  1135.     dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0    
  1136.  
  1137. ch2fxvars 
  1138.     dc.w 0     
  1139. fxintc2:
  1140.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1141. currfx2:
  1142.     dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0    
  1143.  
  1144.  
  1145. ch3fxvars
  1146.     dc.w 0     
  1147. fxintc3:
  1148.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1149. currfx3:
  1150.     dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0    
  1151.  
  1152. ch4fxvars 
  1153.     dc.w 0     
  1154. fxintc4:
  1155.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1156. currfx4:
  1157.     dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0    
  1158. ;************************************************************
  1159.  
  1160. dummy_reg dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1161.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1162.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1163.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1164. ;************************************************************
  1165.  
  1166.  
  1167.  
  1168. ;       fx patterns here
  1169.  
  1170. fxjump_table:  
  1171.  
  1172.     dc.l  expl1
  1173.     dc.l  expl2
  1174.     dc.l  tone1
  1175.     dc.l  tone2
  1176.     dc.l  tone3
  1177.     dc.l  tone4
  1178.  
  1179.  
  1180.  
  1181.      dc.l squelch1x        ;; 
  1182.      dc.l squelch2x        ;; 
  1183.      dc.l squelch3x
  1184.      dc.l squelch4x
  1185.      dc.l squelch5x
  1186.      dc.l squelch6x
  1187.     dc.l foot1    ;;  thud 1
  1188.     dc.l foot2    ;;  thud 2
  1189.      dc.l fxfall1    ;;    
  1190.      dc.l fxfall2    ;;    
  1191.      dc.l fx2    ;; 
  1192.      dc.l fx3    ;; 
  1193.      dc.l fx4    ;; 
  1194.      dc.l fx5    ;; 
  1195.     dc.l fx6    ;; 
  1196.     dc.l fx6a    ;; 
  1197.  
  1198.  
  1199.  
  1200.      dc.l fx9    ;; duckula jumps (use thud 1/2 for landing)
  1201.      dc.l fx10    ;; jack in the box jumps
  1202.      dc.l fanfare    ;; fanfare jingle
  1203.      dc.l endgame    ;; end of game jingle
  1204.  
  1205. max_fx    dc.l    27
  1206.  
  1207.  
  1208.  
  1209.  
  1210. ;______________________________________________________________________
  1211.  
  1212. ;   The 1/50 counter in these patterns is dependent on the length
  1213. ;   of the sample in bytes and the replay speed.if altering the
  1214. ;   replay speed calculate the counter using length/rate*50
  1215. ;   ie the piston sample is 2647 bytes at r6(6000)..hence interrupt
  1216. ;   counter for 1 shot play = 22
  1217.  
  1218.  
  1219.  
  1220.  
  1221. expl1
  1222.                         dc.w  new_env
  1223.                         dc.l  fx1_env
  1224.             dc.w    new_snd
  1225.             dc.l    snr
  1226.             dc.w    pboff
  1227.  
  1228.             dc.w    r4,100    
  1229.                            dc.w    end_fxp
  1230.  
  1231.  
  1232. expl2
  1233.                         dc.w  new_env
  1234.                         dc.l  fx1_env
  1235.             dc.w    new_snd
  1236.             dc.l    snr
  1237.             dc.w    pboff
  1238.  
  1239.             dc.w    r2,100    
  1240.                            dc.w    end_fxp
  1241.  
  1242.  
  1243.  
  1244. exp_env            dc.w 0,64,64,255
  1245.  
  1246.  
  1247.  
  1248. tone1:
  1249.       dc.w new_env
  1250.       dc.l exp_env
  1251.       dc.w new_snd
  1252.       dc.l sax
  1253.     dc.w A05,cr*2
  1254.       dc.w end_fxp
  1255.  
  1256.  
  1257. tone2:
  1258.       dc.w new_env
  1259.       dc.l exp_env
  1260.       dc.w new_snd
  1261.       dc.l sax
  1262.     dc.w f05,cr*2
  1263.       dc.w end_fxp
  1264.  
  1265.  
  1266. tone3:
  1267.       dc.w new_env
  1268.       dc.l exp_env
  1269.       dc.w new_snd
  1270.       dc.l sax
  1271.     dc.w d05,cr*2
  1272.       dc.w end_fxp
  1273.  
  1274.  
  1275. tone4:
  1276.       dc.w new_env
  1277.       dc.l exp_env
  1278.       dc.w new_snd
  1279.       dc.l sax
  1280.     dc.w c04,cr*2
  1281.       dc.w end_fxp
  1282.  
  1283.  
  1284.  
  1285.  
  1286.  
  1287.  
  1288.  
  1289. sqenv        dc.w 0,64,64,255
  1290. squelch1x
  1291.                         dc.w  new_env
  1292.                         dc.l  sqenv
  1293.             dc.w    new_snd
  1294.             dc.l    squelch1
  1295.             dc.w    r16,15
  1296.                            dc.w    end_fxp
  1297. squelch2x
  1298.                         dc.w  new_env
  1299.                         dc.l  sqenv
  1300.             dc.w    new_snd
  1301.             dc.l    squelch2
  1302.             dc.w    r8,13
  1303.                            dc.w    end_fxp
  1304. squelch3x
  1305.                         dc.w  new_env
  1306.                         dc.l  sqenv
  1307.             dc.w    new_snd
  1308.             dc.l    squelch3
  1309.             dc.w    r4,14
  1310.                            dc.w    end_fxp
  1311. squelch4x
  1312.                         dc.w  new_env
  1313.                         dc.l  sqenv
  1314.             dc.w    new_snd
  1315.             dc.l    squelch4
  1316.             dc.w    r16,18
  1317.                            dc.w    end_fxp
  1318. squelch5x
  1319.                         dc.w  new_env
  1320.                         dc.l  sqenv
  1321.             dc.w    new_snd
  1322.             dc.l    squelch5
  1323.             dc.w    r16,19
  1324.                            dc.w    end_fxp
  1325. squelch6x
  1326.                         dc.w  new_env
  1327.                         dc.l  sqenv
  1328.             dc.w    new_snd
  1329.             dc.l    squelch6
  1330.             dc.w    r16,16
  1331.                            dc.w    end_fxp
  1332.  
  1333.  
  1334. fx1
  1335.                         dc.w  new_env
  1336.                         dc.l  fx1_env
  1337.             dc.w    new_snd
  1338.             dc.l    takeoff
  1339.             dc.w    pboff
  1340.  
  1341.             dc.w    300,100    
  1342.                            dc.w    end_fxp
  1343.  
  1344.  
  1345.  
  1346. fx1_env            dc.w 0,64,64,255
  1347.  
  1348.  
  1349. fx2
  1350.                         dc.w  new_env
  1351.                         dc.l  fx2_env
  1352.             dc.w    new_snd
  1353.             dc.l    twinkle
  1354.             dc.w    pboff
  1355.             dc.w    r20,1,r5,1,r20,1,r12,1
  1356.             dc.w    r20,1,r5,1,r20,1,r12,1
  1357.             dc.w    r20,2,r5,2,r20,2,r12,2
  1358.  
  1359.                            dc.w    end_fxp
  1360.  
  1361.  
  1362. fx3
  1363.                         dc.w  new_env
  1364.                         dc.l  fx2_env
  1365.             dc.w    new_snd
  1366.             dc.l    twinkle
  1367.             dc.w     pbend,up,4,1000,1
  1368.             dc.w    r4,50
  1369.                            dc.w    end_fxp
  1370.  
  1371.  
  1372.  
  1373. fx2_env            dc.w 0,64,64,255
  1374.  
  1375.  
  1376. fx4
  1377.                         dc.w  new_env
  1378.                         dc.l  alarm1env
  1379.             dc.w    new_snd
  1380.             dc.l    takeoff
  1381.             dc.w    pboff
  1382.  
  1383.             dc.w    r2,1
  1384.             dc.w    r4,1
  1385.             dc.w    r6,1
  1386.             dc.w    r8,1
  1387.             dc.w    r10,1
  1388.             dc.w    r8,1
  1389.             dc.w    r6,1
  1390.             dc.w    r4,1
  1391.                            dc.w    end_fxp
  1392.  
  1393. fx5
  1394.                         dc.w  new_env
  1395.                         dc.l  alarm1env
  1396.             dc.w    new_snd
  1397.             dc.l    sine
  1398.             dc.w    pboff
  1399.  
  1400.             dc.w    r20,1
  1401.             dc.w    r4,1
  1402.             dc.w    r20,1
  1403.             dc.w    r4,1
  1404.             dc.w    r20,1
  1405.             dc.w    r4,1
  1406.             dc.w    r20,1
  1407.             dc.w    r4,1
  1408.                            dc.w    end_fxp
  1409.  
  1410.  
  1411. fx6
  1412.                         dc.w  new_env
  1413.                         dc.l  alarm1env
  1414.             dc.w    new_snd
  1415.             dc.l    sine
  1416.             dc.w    pboff
  1417.  
  1418.             dc.w    r8,2
  1419.             dc.w    r16,2
  1420.             dc.w    r8,2
  1421.             dc.w    r16,2
  1422.             dc.w    r8,2
  1423.             dc.w    rest,6
  1424.  
  1425.             dc.w    r8,2
  1426.             dc.w    r16,2
  1427.             dc.w    r8,2
  1428.             dc.w    r16,2
  1429.             dc.w    r8,2
  1430.             dc.w    rest,6
  1431.  
  1432.             dc.w    r8,2
  1433.             dc.w    r16,2
  1434.             dc.w    r8,2
  1435.             dc.w    r16,2
  1436.             dc.w    r8,2
  1437.             dc.w    rest,6
  1438.  
  1439.  
  1440.                            dc.w    end_fxp
  1441.  
  1442.  
  1443. fx6a
  1444.                         dc.w  new_env
  1445.                         dc.l  alarm1env
  1446.             dc.w    new_snd
  1447.             dc.l    sine
  1448.             dc.w    pboff
  1449.  
  1450.             dc.w    r20,2
  1451.             dc.w    r19,2
  1452.             dc.w    r18,2
  1453.             dc.w    r17,2
  1454.             dc.w    r16,2
  1455.  
  1456.             dc.w    r15,2
  1457.             dc.w    r13,2
  1458.             dc.w    r13,2
  1459.             dc.w    r12,2
  1460.             dc.w    r11,2
  1461.  
  1462.             dc.w    r10,2
  1463.             dc.w    r9,2
  1464.             dc.w    r8,2
  1465.             dc.w    r7,2
  1466.             dc.w    r6,2
  1467.  
  1468.                            dc.w    end_fxp
  1469.  
  1470.  
  1471. alarm1env        dc.w 0,64,64,255
  1472. alarm3env        dc.w 0,64,64,255
  1473.  
  1474.  
  1475. fx7
  1476.                         dc.w  new_env
  1477.                         dc.l  fx7_env
  1478.             dc.w    new_snd
  1479.             dc.l    whoops
  1480.             dc.w    pboff
  1481.  
  1482.             dc.w    r16,50
  1483.                            dc.w    end_fxp
  1484.  
  1485.  
  1486. fx8
  1487.                         dc.w  new_env
  1488.                         dc.l  fx7_env
  1489.             dc.w    new_snd
  1490.             dc.l    whoops
  1491.             dc.w    pboff
  1492.  
  1493.             dc.w    r20,60
  1494.                            dc.w    end_fxp
  1495.  
  1496.  
  1497. fx9
  1498.                         dc.w  new_env
  1499.                         dc.l  fx8_env
  1500.             dc.w    new_snd
  1501.             dc.l    rabbit
  1502.             dc.w    pboff
  1503.  
  1504.             dc.w    r16,50
  1505.                            dc.w    end_fxp
  1506.  
  1507.  
  1508.  
  1509. fx8_env            dc.w    0,64,64,255
  1510. fx7_env            dc.w    0,64,64,255
  1511.  
  1512. fx10
  1513.                         dc.w  new_env
  1514.                         dc.l  fx8_env
  1515.             dc.w    new_snd
  1516.             dc.l    sine
  1517.             dc.w    r16,2,r8,2,r16,2,r8,2
  1518.             dc.w    r16,2,r8,2,r16,2,r8,2
  1519.             dc.w    r16,2,r8,2,r16,2,r8,2
  1520.             dc.w    r16,2,r8,2,r16,2,r8,2
  1521.                            dc.w    end_fxp
  1522.  
  1523.  
  1524. fxfall1
  1525.                         dc.w  new_env
  1526.                         dc.l  fx2_env
  1527.             dc.w    new_snd
  1528.             dc.l    sine
  1529.             dc.w     pbend,down,200,50000,1
  1530.  
  1531.             dc.w    r20,50
  1532.                            dc.w    end_fxp
  1533.  
  1534.  
  1535. fxfall2
  1536.                         dc.w  new_env
  1537.                         dc.l  fx2_env
  1538.             dc.w    new_snd
  1539.             dc.l    sax
  1540.             dc.w     pbend,down,500,50000,1
  1541.  
  1542.             dc.w    r20,20
  1543.                            dc.w    end_fxp
  1544.  
  1545.  
  1546.  
  1547. foot1
  1548.                         dc.w  new_env
  1549.                         dc.l  fx2_env
  1550.             dc.w    new_snd
  1551.             dc.l    foot
  1552.             dc.w    r8,10
  1553.                            dc.w    end_fxp
  1554.  
  1555.  
  1556.  
  1557. foot2
  1558.                         dc.w  new_env
  1559.                         dc.l  fx2_env
  1560.             dc.w    new_snd
  1561.             dc.l    foot
  1562.             dc.w    r4,12
  1563.                            dc.w    end_fxp
  1564.  
  1565. fanfare:
  1566.       dc.w new_env
  1567.       dc.l org_env
  1568.       dc.w new_snd
  1569.       dc.l org
  1570.     dc.w c05,q,e05,q,g05,q,e05,q,c05,q,g05,q,c06,q
  1571.       dc.w end_fxp
  1572.  
  1573.  
  1574. endgame:
  1575.     dc.w new_env
  1576.       dc.l org_env
  1577.       dc.w new_snd
  1578.       dc.l org
  1579.     dc.w c05,cr,a04,cr,d05,cr*2,a04,cr*4
  1580.       dc.w end_fxp
  1581.  
  1582.  
  1583.  
  1584. ;*******************************************************************
  1585.  
  1586. sstart: dc.l 0,end_song
  1587.  
  1588. pstart: dc.w end_patt
  1589.  
  1590.  
  1591. ;----------------------------------
  1592.  
  1593. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1594.  
  1595.  
  1596. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1597.  
  1598.  
  1599. cr set   24
  1600. q set cr/2
  1601. sq set q/2
  1602.  
  1603.  
  1604.  
  1605. s1:
  1606.     dc.l    p1,p1,p1mid
  1607.     dc.l    p1,p1,p1mid
  1608.     dc.l p1end
  1609.  
  1610.       dc.l     0,end_song
  1611. s2:
  1612.     dc.l    p1b
  1613.     dc.l    p1b
  1614.     dc.l p2end
  1615.  
  1616.         DC.L    0,end_song
  1617. s3:
  1618.     dc.l    p4z
  1619.     dc.l    p4z
  1620.     dc.l p3end
  1621.  
  1622.  
  1623.     dc.l     0,end_song
  1624. s4:
  1625.     dc.l    p3z,p3z,p3z,p3z,p3z,p3z
  1626.     dc.l    p3z,p3z,p3z,p3z,p3z,p3z
  1627.     dc.l p4end
  1628.  
  1629.     dc.l     0,end_song
  1630.  
  1631.  
  1632. pr:
  1633.     dc.w rest,cr*4
  1634.     dc.w end_patt
  1635.  
  1636. prza:
  1637.     dc.w rest,q*7
  1638.     dc.w end_patt
  1639.  
  1640. p1:
  1641.       dc.w new_env
  1642.       dc.l sax_env
  1643.     dc.w new_snd
  1644.     dc.l sax
  1645.       dc.w modon,1,1
  1646.       dc.w 1,1,4,4
  1647.     dc.w e03,cr*2,g03,cr*2-q,e03,q,c03,cr,d03,cr,e03,cr
  1648.     dc.w c03,cr,d03,cr,e03,cr,f03,cr*2-q,e03,q,d03,cr
  1649.     dc.w e03,cr,f03,cr*2
  1650.       dc.w end_patt
  1651.  
  1652.  
  1653. p1end:
  1654.       dc.w new_env
  1655.       dc.l sax_env
  1656.     dc.w new_snd
  1657.     dc.l sax
  1658.       dc.w modon,1,1
  1659.       dc.w 1,1,4,4
  1660.     dc.w c02,cr*8,rest,cr*100
  1661.       dc.w end_patt
  1662.  
  1663.  
  1664. p2end:
  1665.       dc.w new_env
  1666.       dc.l sax_env
  1667.     dc.w new_snd
  1668.     dc.l sax
  1669.       dc.w modon,1,1
  1670.       dc.w 1,1,4,4
  1671.     dc.w e02,cr*8,rest,cr*100
  1672.       dc.w end_patt
  1673.  
  1674.  
  1675. p3end:
  1676.       dc.w new_env
  1677.       dc.l sax_env
  1678.     dc.w new_snd
  1679.     dc.l sax
  1680.       dc.w modon,1,1
  1681.       dc.w 1,1,4,4
  1682.     dc.w g02,cr*8,rest,cr*100
  1683.       dc.w end_patt
  1684.  
  1685.  
  1686. p4end:
  1687.       dc.w new_env
  1688.       dc.l snare_env
  1689.     dc.w new_snd
  1690.     dc.l snare
  1691.     dc.w r2,cr*8,rest,cr*100
  1692.       dc.w end_patt
  1693.  
  1694. p1mid  
  1695.     dc.w a02,cr*2,f02,cr*2,b02,cr*2,g02,cr*2
  1696.     dc.w a02,cr*2,f02,cr*2,b02,cr*2,g02,cr*2
  1697.       dc.w end_patt
  1698.  
  1699.  
  1700.  
  1701.  
  1702. p1b:
  1703.       dc.w new_env
  1704.       dc.l sax_env
  1705.     dc.w new_snd
  1706.     dc.l sax
  1707.       dc.w modon,1,1
  1708.       dc.w 1,1,2,2
  1709.     dc.w  c02,cr*2,b01,cr*2,a01,cr*2,g01,cr*2
  1710.     dc.w  g01,cr*4,b01,cr,a01,cr,g01,cr*2
  1711.     dc.w  c02,cr*2,b01,cr*2,a01,cr*2,g01,cr*2
  1712.     dc.w  g01,cr*4,b01,cr,a01,cr,g01,cr*2
  1713.     dc.w  f02,cr*2,d02,cr*2,b01,cr*2,g01,cr*2
  1714.     dc.w  f02,cr*2,d02,cr*2,g01,q,a01,q,b01,q,c02,q,d02,q,e02,q,f02,q
  1715.     dc.w  g02,q
  1716.       dc.w end_patt
  1717.  
  1718. p4z:
  1719.       dc.w new_env
  1720.       dc.l bass_env
  1721.     dc.w new_snd
  1722.     dc.l bas
  1723.     dc.w  c02,cr,c02,cr,b01,cr,b01,cr,a01,cr,a01,cr,g01,cr,g01,cr
  1724.     dc.w  g01,cr*4,b01,cr,a01,cr,g01,cr*2
  1725.     dc.w  c02,cr,c02,cr,b01,cr,b01,cr,a01,cr,a01,cr,g01,cr,g01,cr
  1726.     dc.w  g01,cr*4,b01,cr,a01,cr,g01,cr*2
  1727.     dc.w f01,cr*4,g01,cr*4,f01,cr*4
  1728.     dc.w g01,q,g01,q,g01,q,g01,q,g01,q,rest,q*3
  1729.  
  1730.  
  1731.  
  1732.     dc.w end_patt
  1733.     dc.w end_patt
  1734. p3z:
  1735.       dc.w new_env
  1736.       dc.l kik_env
  1737.     dc.w new_snd
  1738.     dc.l kik
  1739.       dc.w r16,cr*2
  1740.     dc.w new_snd
  1741.     dc.l snr
  1742.       dc.w r20,cr*2
  1743.     dc.w new_snd
  1744.     dc.l kik
  1745.     dc.w r16,cr,r16,cr
  1746.     dc.w new_snd
  1747.     dc.l snr
  1748.       dc.w r20,cr*2
  1749.       dc.w end_patt
  1750. p3za:
  1751.       dc.w new_env
  1752.     dc.l snr
  1753.     dc.w r20,q,r20,q,r20,q,r20,q,r20,q,rest,q*3
  1754.       dc.w end_patt
  1755.  
  1756. ********************
  1757.  
  1758.  
  1759. cr set   24
  1760. q set cr/2
  1761. sq set q/2
  1762.  
  1763.  
  1764.  
  1765. s5:
  1766.     dc.l    ps51
  1767.       dc.l     0,end_song
  1768. s6:
  1769.     dc.l    pr
  1770.         DC.L    0,end_song
  1771. s7:
  1772.     dc.l    pr
  1773.     dc.l     0,end_song
  1774. s8:
  1775.     dc.l    pr
  1776.     dc.l     0,end_song
  1777.  
  1778.  
  1779.  
  1780. ps51
  1781.       dc.w new_env
  1782.       dc.l sax_env
  1783.     dc.w new_snd
  1784.     dc.l sax
  1785.       dc.w modon,1,1
  1786.       dc.w 1,1,2,2
  1787.     dc.w e02,cr*2,e02,cr,c02,cr*2,c02,cr,e02,cr,g02,cr,e03,cr,c03,cr*3  
  1788.     dc.w rest,cr*1000
  1789.  
  1790.       dc.w end_patt
  1791.  
  1792. ***************************
  1793.  
  1794.  
  1795. cr set   24
  1796. q set cr/2
  1797. sq set q/2
  1798.  
  1799.  
  1800. s9:
  1801.     dc.l    ps61
  1802.       dc.l     0,end_song
  1803. s10:
  1804.     dc.l    pr
  1805.         DC.L    0,end_song
  1806. s11:
  1807.     dc.l    pr
  1808.     dc.l     0,end_song
  1809. s12:
  1810.     dc.l    pr
  1811.     dc.l     0,end_song
  1812.  
  1813.  
  1814.  
  1815. ps61
  1816.       dc.w new_env
  1817.       dc.l sax_env
  1818.     dc.w new_snd
  1819.     dc.l sax
  1820.       dc.w modon,1,1
  1821.       dc.w 1,1,2,2
  1822.     dc.w d02,8,g02,8,b02,8
  1823.     dc.w d02,8,g02,8,b02,8
  1824.     dc.w d02,8,g02,16,b02,cr
  1825.  
  1826.     dc.w rest,cr*1000
  1827.  
  1828.       dc.w end_patt
  1829.  
  1830. ************************
  1831.  
  1832.  
  1833.  
  1834. cr set   24
  1835. q set cr/2
  1836. sq set q/2
  1837.  
  1838.  
  1839. s13:
  1840.     dc.l    ps131
  1841.       dc.l     0,end_song
  1842. s14:
  1843.     dc.l    pr
  1844.         DC.L    0,end_song
  1845. s15:
  1846.     dc.l    pr
  1847.     dc.l     0,end_song
  1848. s16:
  1849.     dc.l    pr
  1850.     dc.l     0,end_song
  1851.  
  1852.  
  1853.  
  1854. ps131
  1855.       dc.w new_env
  1856.       dc.l sax_env
  1857.     dc.w new_snd
  1858.     dc.l sax
  1859.       dc.w modon,1,1
  1860.       dc.w 1,1,2,2
  1861.     dc.w c03,8,b02,16,b02,8,a02,16,a02,8,g02,16
  1862.     dc.w rest,cr*100
  1863.  
  1864.       dc.w end_patt
  1865.  
  1866. *****************
  1867.  
  1868.  
  1869.  
  1870. cr set   16
  1871. q set cr/2
  1872. sq set q/2
  1873.  
  1874.  
  1875. s17:
  1876.     dc.l    ps171
  1877.       dc.l     0,end_song
  1878. s18:
  1879.     dc.l    ps172
  1880.         DC.L    0,end_song
  1881. s19:
  1882.     dc.l    ps173
  1883.     dc.l     0,end_song
  1884. s20:
  1885.     dc.l    p17z
  1886.     dc.l     0,end_song
  1887.  
  1888.  
  1889.  
  1890. ps171
  1891.       dc.w new_env
  1892.       dc.l sax_env
  1893.     dc.w new_snd
  1894.     dc.l sax
  1895.       dc.w modon,1,1
  1896.       dc.w 1,1,2,2
  1897.     dc.w c02,q,g02,q,e02,q,c03,q
  1898.     dc.w c03,sq,b02,sq,a02,sq,g02,sq,e02,q,g02,q
  1899.     dc.w c03,sq,b02,sq,a02,sq,g02,sq,e02,q,g02,q
  1900.     dc.w e02,q,g02,q,c02,cr    
  1901.       dc.w end_patt
  1902.  
  1903.  
  1904. ps172
  1905.       dc.w new_env
  1906.       dc.l sax_env
  1907.     dc.w new_snd
  1908.     dc.l sine
  1909.       dc.w modon,1,1
  1910.     dc.w 4,4,2,2
  1911.     dc.w c03,cr*2,g03,cr*2,e03,cr*2,c02,cr,g02,cr,e03,cr*2
  1912.  
  1913.       dc.w end_patt
  1914.  
  1915.  
  1916. ps173
  1917.       dc.w new_env
  1918.       dc.l bass_env
  1919.     dc.w new_snd
  1920.     dc.l bass
  1921.     dc.w c02,cr*2,g01,cr*2
  1922.     dc.w c02,cr*2,g01,cr*2
  1923.     dc.w c02,cr*2,g01,cr*2
  1924.     dc.w c02,cr*2,g01,cr*2
  1925.  
  1926.       dc.w end_patt
  1927.  
  1928. p17z:
  1929.       dc.w new_env
  1930.       dc.l kik_env
  1931.     dc.w new_snd
  1932.     dc.l kik
  1933.       dc.w r20,q,r20,q,r20,q,rest,q*5
  1934.       dc.w end_patt
  1935.  
  1936.  
  1937.  
  1938.  
  1939.  
  1940.  
  1941.  
  1942.  
  1943.  
  1944.  
  1945.  
  1946.  
  1947.  
  1948.  
  1949. *************
  1950.  
  1951.  
  1952.  
  1953. cr set   20
  1954. q set cr/2
  1955. sq set q/2
  1956.  
  1957.  
  1958. s21:
  1959.     dc.l    ps211
  1960.       dc.l     0,end_song
  1961. s22:
  1962.     dc.l    pr
  1963.         DC.L    0,end_song
  1964. s23:
  1965.     dc.l    pr
  1966.     dc.l     0,end_song
  1967. s24:
  1968.     dc.l    pr
  1969.     dc.l     0,end_song
  1970.  
  1971.  
  1972.  
  1973. ps211
  1974.       dc.w new_env
  1975.       dc.l sax_env
  1976.     dc.w new_snd
  1977.     dc.l sax
  1978.       dc.w modon,1,1
  1979.       dc.w 1,1,2,2
  1980.     dc.w c02,cr,g01,q,g01,q,gb01,cr,g01,cr
  1981.     dc.w c02,cr,g01,q,g01,q,gb01,cr,g01,cr
  1982.     dc.w c02,cr,g01,cr,c02,cr,e02,cr,g02,cr*4      
  1983.  
  1984.     dc.w g03,cr*2,f03,cr,e03,cr,d03,cr*2
  1985.     dc.w e03,cr,d03,cr,c03,cr*2,d03,cr,e03,cr
  1986.     dc.w g02,q*3,a02,q,g02,cr*2
  1987.  
  1988.     dc.w g03,cr*2,f03,cr,e03,cr,a03,cr*2,g03,cr
  1989.     dc.w e03,cr,f03,cr,g03,q,f03,q,e03,cr,f03,cr,d03,cr*4
  1990.  
  1991.     dc.w d03,cr,d03,q,d03,q,c03,cr,d03,cr,e03,cr,f03,cr,g03,cr*2
  1992.     dc.w d03,cr,e03,cr,f03,cr*2,e03,cr,d03,cr,c03,cr*2
  1993.     dc.w d03,cr,d03,q,d03,q,c03,cr,d03,cr,e03,cr,f03,cr,g03,cr*2
  1994.     dc.w gb03,cr,g03,cr,a03,cr,gb03,cr,g03,cr*4    
  1995.  
  1996.  
  1997.     dc.w  rest,cr*20
  1998.  
  1999.  
  2000.     dc.w end_patt
  2001.  
  2002.  
  2003. **************
  2004.  
  2005.  
  2006.  
  2007. cr set   24
  2008. q set cr/2
  2009. sq set q/2
  2010.  
  2011.  
  2012. s25:
  2013.     dc.l    ps251
  2014.       dc.l     0,end_song
  2015. s26:
  2016.     dc.l    ps251b
  2017.         DC.L    0,end_song
  2018. s27:
  2019.     dc.l    pr,pr,pr,pr,pr,pr,pr,pr
  2020.     dc.l    p29d,p29d,p29d,p29d,p29d,p29d,p29d,p29d
  2021.  
  2022.     dc.l     0,end_song
  2023. s28:
  2024.     dc.l    pr
  2025.     dc.l     0,end_song
  2026.  
  2027.  
  2028. p29d:
  2029.       dc.w new_env
  2030.       dc.l kik_env
  2031.     dc.w new_snd
  2032.     dc.l kik
  2033.       dc.w r16,cr*2
  2034.     dc.w new_snd
  2035.     dc.l snr
  2036.       dc.w r20,cr*2
  2037.     dc.w new_snd
  2038.     dc.l kik
  2039.     dc.w r16,cr,r16,cr
  2040.     dc.w new_snd
  2041.     dc.l snr
  2042.       dc.w r20,cr*2
  2043.       dc.w end_patt
  2044.  
  2045. ps251
  2046.       dc.w new_env
  2047.       dc.l sax_env
  2048.     dc.w new_snd
  2049.     dc.l sax
  2050.       dc.w modon,1,1
  2051.       dc.w 1,1,2,2
  2052.     dc.w c02,cr*2,d02,q,c02,q,d02,q,e02,q
  2053.     dc.w c02,cr,g01,cr,g01,cr,g01,cr
  2054.     dc.w d02,cr*2,e02,q,d02,q,e02,q,f02,q
  2055.     dc.w d02,cr,g01,cr,g01,cr,g01,cr
  2056.     dc.w g02,cr*2,c02,q,d02,q,e02,q,f02,q
  2057.     dc.w a02,cr*2,f02,q,e02,q,d02,q,c02,q
  2058.     dc.w b01,cr,b01,cr,b01,cr,b01,cr,b01,cr,c02,cr*3 
  2059.  
  2060.     dc.w end_patt
  2061.  
  2062.  
  2063. ps251b
  2064.       dc.w new_env
  2065.       dc.l sax_env
  2066.     dc.w new_snd
  2067.     dc.l sax
  2068.     dc.w c02,cr*4
  2069.     dc.w g02,cr,a02,cr,b02,cr,d03,cr
  2070.     dc.w d02,cr*2,g01,cr*2
  2071.     dc.w g02,cr*2,a02,cr,b02,cr
  2072.     dc.w c02,cr*4
  2073.     dc.w f02,cr*4
  2074.     dc.w d02,cr*2,g01,cr*3
  2075.  
  2076.     dc.w c02,cr*3
  2077.     dc.w end_patt
  2078.  
  2079.  
  2080. *********************
  2081.  
  2082.  
  2083. cr set   16
  2084. q set cr/2
  2085. sq set q/2
  2086.  
  2087.  
  2088. s29:
  2089.     dc.l    ps291
  2090.       dc.l     0,end_song
  2091. s30:
  2092.     dc.l    ps291x
  2093.         DC.L    0,end_song
  2094. s31:
  2095.     dc.l    pr
  2096.     dc.l     0,end_song
  2097. s32:
  2098.     dc.l    pr
  2099.     dc.l     0,end_song
  2100.  
  2101.  
  2102.  
  2103. ps291
  2104.       dc.w new_env
  2105.       dc.l sax_env
  2106.     dc.w new_snd
  2107.     dc.l sax
  2108.       dc.w modon,1,1
  2109.       dc.w 1,1,2,2
  2110.     dc.w a02,cr,a02,cr,a02,cr,a02,cr,a02,cr*4
  2111.     dc.w  rest,cr*20
  2112.     dc.w end_patt
  2113.  
  2114.  
  2115. ps291x
  2116.       dc.w new_env
  2117.       dc.l sax_env
  2118.     dc.w new_snd
  2119.     dc.l sax
  2120.       dc.w modon,1,1
  2121.       dc.w 1,1,2,2
  2122.     dc.w e02,cr,e02,cr,e02,cr,e02,cr,e02,cr*4
  2123.     dc.w rest,cr*20
  2124.     dc.w end_patt
  2125.  
  2126. ****************
  2127.  
  2128.  
  2129. cr set   16
  2130. q set cr/2
  2131. sq set q/2
  2132.  
  2133.  
  2134. s33:
  2135.     dc.l    ps33,ps33x
  2136.       dc.l     0,end_song
  2137. s34:
  2138.     dc.l    ps33b
  2139.         DC.L    0,end_song
  2140. s35:
  2141.     dc.l    pd33k,p33d,p33d,p33d,p33d,p33d,p33d
  2142.     dc.l     0,end_song
  2143. s36:
  2144.     dc.l    pr33,pr33,psinec,psinec
  2145.     dc.l    psinef,psinef,psineg,psineg
  2146.  
  2147.     dc.l     0,end_song
  2148.  
  2149.  
  2150.  
  2151. pr33:
  2152.     dc.w rest,cr*4
  2153.     dc.w end_patt
  2154.  
  2155.  
  2156.  
  2157.  
  2158. ps33
  2159.       dc.w new_env
  2160.       dc.l sax_env
  2161.     dc.w new_snd
  2162.     dc.l sax
  2163.  
  2164.     dc.w  g03,sq,gb03,sq,f03,sq,e03,sq,eb03,sq,d03,sq,db03,sq,c03,sq
  2165.     dc.w  b02,sq,bb02,sq,a02,sq,ab02,sq
  2166.     dc.w  g02,sq,gb02,sq,f02,sq,e02,sq,eb02,sq,d02,sq,db02,sq,c02,sq
  2167.     dc.w  b01,sq,bb01,sq,a01,sq,ab01,sq
  2168.     dc.w  g01,sq,gb01,sq,f01,sq,e01,sq,eb01,sq,d01,sq,db01,sq,c01,sq
  2169.     dc.w end_patt
  2170.  
  2171.  
  2172.  
  2173.  
  2174. ps33x
  2175.     dc.w  c03,sq,db03,sq,d03,sq,eb03,sq,d03,sq,db03,sq,c03,sq,db03,sq
  2176.     dc.w  c03,sq,db03,sq,d03,sq,eb03,sq,d03,sq,db03,sq,c03,sq,db03,sq
  2177.     dc.w  c03,sq,db03,sq,d03,sq,eb03,sq,d03,sq,db03,sq,c03,sq,db03,sq
  2178.     dc.w  c03,sq,db03,sq,d03,sq,eb03,sq,f03,sq,gb03,sq,g03,sq,ab03,sq
  2179.  
  2180.     dc.w  f03,sq,gb03,sq,g03,sq,ab03,sq,g03,sq,gb03,sq,f03,sq,gb03,sq
  2181.     dc.w  f03,sq,gb03,sq,g03,sq,ab03,sq,g03,sq,gb03,sq,f03,sq,gb03,sq
  2182.     dc.w  f03,sq,gb03,sq,g03,sq,ab03,sq,g03,sq,gb03,sq,f03,sq,gb03,sq
  2183.     dc.w  f03,sq,gb03,sq,g03,sq,ab03,sq,g03,sq,gb03,sq,f03,sq,gb03,sq
  2184.  
  2185.     dc.w  g03,sq,gb03,sq,f03,sq,e03,sq,eb03,sq,d03,sq,db03,sq,c03,sq
  2186.     dc.w  g03,sq,gb03,sq,f03,sq,e03,sq,eb03,sq,d03,sq,db03,sq,c03,sq
  2187.     dc.w  g03,sq,gb03,sq,f03,sq,e03,sq,eb03,sq,d03,sq,db03,sq,c03,sq
  2188.     dc.w  g03,sq,gb03,sq,f03,sq,e03,sq,eb03,sq,d03,sq,db03,sq,c03,sq
  2189.  
  2190.  
  2191.     dc.w end_patt
  2192.  
  2193.  
  2194. ps33b
  2195.       dc.w new_env
  2196.       dc.l bass_env
  2197.     dc.w new_snd
  2198.     dc.l bass
  2199.     dc.w    g01,cr*2,g01,cr*2,g01,cr,a01,cr
  2200.     dc.w    bb01,cr,b01,cr
  2201.  
  2202.     dc.w    c02,cr,g01,cr,c02,cr,g01,cr,c02,cr,g01,cr,c02,cr,g01,cr    
  2203.     dc.w    f02,cr,c02,cr,f02,cr,c02,cr,f02,cr,c02,cr,f02,cr,c02,cr
  2204.     dc.w    g02,cr,d02,cr
  2205.     dc.w    g02,cr,d02,cr
  2206.     dc.w    g02,cr,d02,cr
  2207.     dc.w    g02,cr,d02,cr
  2208.  
  2209.  
  2210.     dc.w end_patt
  2211.  
  2212.  
  2213.  
  2214.  
  2215. psinec
  2216.       dc.w new_env
  2217.       dc.l sine_env
  2218.     dc.w new_snd
  2219.     dc.l sine
  2220.  
  2221.     dc.w  c02,q,e02,q,g02,q,e02,q
  2222.     dc.w  c02,q,e02,q,g02,q,e02,q
  2223.  
  2224.  
  2225.     dc.w end_patt
  2226.  
  2227.  
  2228. psinef
  2229.       dc.w new_env
  2230.       dc.l sine_env
  2231.     dc.w new_snd
  2232.     dc.l sine
  2233.  
  2234.     dc.w  f01,q,a01,q,c02,q,a01,q
  2235.     dc.w  f01,q,a01,q,c02,q,a01,q
  2236.  
  2237.  
  2238.     dc.w end_patt
  2239.  
  2240.  
  2241.  
  2242. psineg
  2243.       dc.w new_env
  2244.       dc.l sine_env
  2245.     dc.w new_snd
  2246.     dc.l sine
  2247.  
  2248.     dc.w  g02,q,d02,q,b02,q,d02,q
  2249.     dc.w  g02,q,d02,q,b02,q,d02,q
  2250.  
  2251.  
  2252.     dc.w end_patt
  2253.  
  2254.  
  2255.  
  2256.  
  2257.  
  2258.  
  2259.  
  2260. p33d:
  2261.       dc.w new_env
  2262.       dc.l kik_env
  2263.     dc.w new_snd
  2264.     dc.l kik
  2265.       dc.w r16,cr
  2266.     dc.w new_snd
  2267.     dc.l snr
  2268.       dc.w r20,cr
  2269.     dc.w new_snd
  2270.     dc.l kik
  2271.     dc.w r16,cr
  2272.     dc.w new_snd
  2273.     dc.l snr
  2274.       dc.w r20,cr
  2275.       dc.w end_patt
  2276.  
  2277.  
  2278. pd33k:
  2279.       dc.w new_env
  2280.       dc.l kik_env
  2281.     dc.w new_snd
  2282.     dc.l kik
  2283.       dc.w r16,cr*2,r16,cr*2,r16,cr,r16,cr,r16,cr,r16,cr
  2284.       dc.w end_patt
  2285.  
  2286. ***************
  2287.  
  2288.  
  2289. cr set   8
  2290. q set cr/2
  2291. sq set q/2
  2292.  
  2293.  
  2294. s37:
  2295.     dc.l    ps37
  2296.       dc.l     0,end_song
  2297. s38:
  2298.     dc.l    pd37k
  2299.         DC.L    0,end_song
  2300. s39:
  2301.     dc.l    ps37b
  2302.     dc.l     0,end_song
  2303. s40:
  2304.     dc.l    pr
  2305.     dc.l     0,end_song
  2306.  
  2307.  
  2308.  
  2309. pr37:
  2310.     dc.w rest,cr*4
  2311.     dc.w end_patt
  2312.  
  2313.  
  2314.  
  2315. ps37b
  2316.       dc.w new_env
  2317.       dc.l bass_env
  2318.     dc.w new_snd
  2319.     dc.l bass
  2320.     dc.w c02,cr*2,g01,cr*2,c02,cr*2,g01,cr*2
  2321.     dc.w c02,cr*2,g01,cr*2,c02,cr*2,g01,cr*2
  2322.     dc.w f02,cr*2,c02,cr*2,f02,cr*2,c02,cr*2
  2323.     dc.w c02,cr*2,g01,cr*2,c02,cr*2,g01,cr*2
  2324.     dc.w g02,cr*2,d02,cr*2,g02,cr*2,d02,cr*2
  2325.     dc.w c02,cr*2,g01,cr*2,c02,cr*2,g01,cr*2
  2326.  
  2327.     dc.w end_patt
  2328.  
  2329.  
  2330.  
  2331.  
  2332. ps37
  2333.       dc.w new_env
  2334.       dc.l sax_env
  2335.     dc.w new_snd
  2336.     dc.l sax
  2337.     dc.w rest,cr,e03,q,c03,q,e03,cr,d03,q,c03,q,d03,q,c03,q,d03,cr,c03,cr*2
  2338.     dc.w rest,cr,e03,q,c03,q,e03,cr,d03,q,c03,q,d03,q,c03,q,d03,cr,c03,cr*2
  2339.     dc.w rest,cr,f03,q,d03,q,f03,cr,d03,q,c03,q,d03,q,c03,q,d03,cr,c03,cr*2
  2340.     dc.w rest,cr,e03,q,c03,q,e03,cr,d03,q,c03,q,d03,q,c03,q,d03,cr,c03,cr*2
  2341.     dc.w rest,cr,f03,q,e03,q,f03,cr,e03,q,d03,q,e03,q,d03,q,e03,cr,d03,cr*2
  2342.     dc.w rest,cr,e03,q,c03,q,e03,cr,d03,q,c03,q,d03,q,c03,q,d03,cr,c03,cr*2
  2343.     dc.w end_patt
  2344.  
  2345.  
  2346. pd37k:
  2347.       dc.w new_env
  2348.       dc.l kik_env
  2349.     dc.w new_snd
  2350.     dc.l kik
  2351.       dc.w r16,cr,r20,cr,r16,cr,r20,cr
  2352.       dc.w end_patt
  2353.  
  2354.  
  2355.  
  2356. ******************
  2357.  
  2358.  
  2359. cr set   16
  2360. q set cr/2
  2361. sq set q/2
  2362.  
  2363.  
  2364. s41:
  2365.     dc.l    ps41,ps41,ps4eh
  2366.     dc.l    pr41
  2367.  
  2368.       dc.l     0,end_song
  2369. s42:
  2370.     dc.l    ps41h,ps41h,ps4ehx
  2371.     dc.l    pr41
  2372.  
  2373.         DC.L    0,end_song
  2374. s43:
  2375.     dc.l    ps42h,ps42h,ps4ehy
  2376.     dc.l    pr41
  2377.  
  2378.     dc.l     0,end_song
  2379. s44:
  2380.     dc.l    pd41k,pd41k,pd41ke
  2381.     dc.l    pr41
  2382.  
  2383.  
  2384.     dc.l     0,end_song
  2385.  
  2386.  
  2387.  
  2388. pr41:
  2389.     dc.w rest,cr*100
  2390.     dc.w end_patt
  2391.  
  2392.  
  2393.  
  2394. ps41
  2395.       dc.w new_env
  2396.       dc.l sax_env
  2397.     dc.w new_snd
  2398.     dc.l sax
  2399.     dc.w b02,cr,g02,cr,b02,cr,d03,cr*3,b02,cr*3
  2400.     dc.w d03,cr,b02,cr,d03,cr,gb03,cr*3,d03,cr*3
  2401.     dc.w gb03,cr,d03,cr,gb03,cr,a03,cr*3,a02,cr*3
  2402.     dc.w d03,cr,a02,cr,d03,cr,gb03,cr*6
  2403.  
  2404.     dc.w end_patt
  2405.  
  2406.  
  2407. ps41h
  2408.       dc.w new_env
  2409.       dc.l sax_env
  2410.     dc.w new_snd
  2411.     dc.l sax
  2412.     dc.w  g01,cr*3,g01,cr*3,g01,cr*3
  2413.     dc.w  g01,cr*3,a01,cr*3,a01,cr*3
  2414.     dc.w  a01,cr*3,a01,cr*3,a01,cr*3
  2415.     dc.w  a01,cr*3,a01,cr*6
  2416.     dc.w end_patt
  2417.  
  2418.  
  2419. ps42h
  2420.       dc.w new_env
  2421.       dc.l sax_env
  2422.     dc.w new_snd
  2423.     dc.l sax
  2424.     dc.w  d02,cr*3,d02,cr*3,d02,cr*3
  2425.     dc.w  d02,cr*3,d02,cr*3,d02,cr*3
  2426.     dc.w  d02,cr*3,db02,cr*3,db02,cr*3
  2427.     dc.w  d02,cr*3,d01,cr*6
  2428.     dc.w end_patt
  2429.  
  2430.  
  2431.  
  2432. pd41k:
  2433.       dc.w new_env
  2434.       dc.l snare_env
  2435.     dc.w new_snd
  2436.     dc.l snare
  2437.       dc.w r16,cr,r16,cr,r16,cr,r8,cr*3,r8,cr*3
  2438.       dc.w r16,cr,r16,cr,r16,cr,r8,cr*3,r8,cr*3
  2439.       dc.w r16,cr,r16,cr,r16,cr,r8,cr*3,r8,cr*3
  2440.     dc.w r16,cr,r16,cr,r16,cr,r2,cr*6
  2441.       dc.w end_patt
  2442.  
  2443.  
  2444. pd41ke:
  2445.       dc.w new_env
  2446.       dc.l snare_env
  2447.     dc.w new_snd
  2448.     dc.l snare
  2449.       dc.w r16,cr,r16,cr,r16,cr,r16,cr*6
  2450.       dc.w r16,cr,r16,cr,r16,cr,r8,cr*6
  2451.       dc.w r16,cr,r16,cr,r16,cr+cr*4,r8,cr*6+cr*2
  2452.     dc.w r2,cr*12
  2453.       dc.w end_patt
  2454.  
  2455.  
  2456. ps4eh
  2457.       dc.w new_env
  2458.       dc.l sax_env
  2459.     dc.w new_snd
  2460.     dc.l sax
  2461.     dc.w  gb02,cr,e02,cr,gb02,cr,a02,cr*6
  2462.     dc.w  gb02,cr,d02,cr,gb02,cr,a02,cr*6
  2463.     dc.w  gb02,cr,e02,cr,gb02,cr,a02,cr*3+cr*2,db03,cr*3+cr*4
  2464.     dc.w  d03,cr*12
  2465.  
  2466.     dc.w end_patt
  2467.  
  2468.  
  2469. ps4ehx
  2470.       dc.w new_env
  2471.       dc.l sax_env
  2472.     dc.w new_snd
  2473.     dc.l sax
  2474.     dc.w  a01,cr*9
  2475.     dc.w  a01,cr*9
  2476.     dc.w  a01,cr*9+cr*6
  2477.     dc.w  a01,cr*12
  2478.  
  2479.     dc.w end_patt
  2480.  
  2481.  
  2482. ps4ehy
  2483.       dc.w new_env
  2484.       dc.l sax_env
  2485.     dc.w new_snd
  2486.     dc.l sax
  2487.     dc.w  db02,cr*9
  2488.     dc.w  d02,cr*9
  2489.     dc.w  db02,cr*9+cr*6
  2490.     dc.w  d02,cr*12
  2491.  
  2492.     dc.w end_patt
  2493.  
  2494. ********************************
  2495.  
  2496.         ;ANTHEMS HERE
  2497.  
  2498.  
  2499.     ;;; DATA
  2500.  
  2501.  
  2502. song_table:
  2503.         dc.l s1,s2,s3,s4
  2504.         dc.l s5,s6,s7,s8
  2505.         dc.l s9,s10,s11,s12
  2506.         dc.l s13,s14,s15,s16
  2507.         dc.l s17,s18,s19,s20
  2508.         dc.l s21,s22,s23,s24
  2509.         dc.l s25,s26,s27,s28
  2510.         dc.l s29,s30,s31,s32
  2511.         dc.l s33,s34,s35,s36
  2512.         dc.l s37,s38,s39,s40
  2513.         dc.l s41,s42,s43,s44
  2514.  
  2515. ****************************************
  2516.  
  2517.         ; anthems here
  2518.  
  2519.         dc.l song1,song2,song3,song4
  2520.         dc.l song5,song6,song7,song8
  2521.         dc.l song9,song10,song11,song12
  2522.         dc.l song17,song18,song19,song20
  2523.         dc.l song21,song22,song23,song24
  2524.         dc.l song25,song26,song27,song28
  2525.         dc.l song29,song30,song31,song32
  2526.         dc.l song33,song34,song35,song36
  2527.         dc.l song37,song38,song39,song40
  2528.         dc.l song41,song42,song43,song44
  2529.         dc.l song45,song46,song47,song48
  2530.         dc.l song49,song50,song51,song52
  2531.         dc.l song53,song54,song55,song56
  2532.         dc.l song57,song58,song59,song60
  2533.         dc.l song61,song62,song63,song64
  2534.         dc.l song65,song66,song67,song68
  2535.         dc.l song69,song70,song71,song72
  2536.  
  2537.         dc.l songusg1,songusg2,songusg3,songusg4
  2538.  
  2539.  
  2540.  
  2541.     
  2542.  
  2543.  
  2544.  
  2545. ;;;;;;;;;;;;;;;;;;;;;    U.S.A.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2546.  
  2547.  
  2548. cr set   24
  2549. q set cr/2
  2550. sq set q/2
  2551.  
  2552.  
  2553.  
  2554. song1:
  2555.     dc.l ap2,prinf
  2556.       dc.l 0,end_song
  2557.  
  2558. song2:
  2559.     dc.l ap3,prinf
  2560.       dc.l 0,end_song
  2561. song3:
  2562.     dc.l ap1,prinf
  2563.       dc.l 0,end_song
  2564.  
  2565. song4:
  2566.     dc.l ap2,prinf
  2567.       dc.l 0,end_song
  2568.  
  2569.  
  2570. prinf
  2571.     dc.w rest,65000
  2572.       dc.w end_patt
  2573.  
  2574.  
  2575. apcr:
  2576.   dc.w rest,cr
  2577.   dc.w end_patt
  2578. apr:
  2579.   dc.w rest,cr*4
  2580.   dc.w end_patt
  2581. apra:
  2582.   dc.w rest,q*7
  2583.   dc.w end_patt
  2584. apqr:
  2585.   dc.w rest,q
  2586.   dc.w end_patt
  2587. ap1:
  2588.       dc.w new_env
  2589.       dc.l sax_env
  2590.     dc.w new_snd
  2591.     dc.l sax
  2592.  
  2593.     dc.w F05,sq*3,D05,sq,Bb04,cr,D05,cr,F05,cr
  2594.     dc.w Bb05,cr*2,D06,sq*3,C06,sq,Bb05,cr,D05,cr,E05,cr
  2595.     dc.w F05,cr*2,F05,q,F05,q,D06,q*3,C06,q,Bb05,cr
  2596.     dc.w A05,cr*2,G05,q,A05,q,Bb05,cr,Bb05,cr,F05,cr,D05,cr,Bb04,cr*2
  2597.       dc.w end_patt
  2598.  
  2599. ap2:
  2600.       dc.w new_env
  2601.       dc.l sax_env
  2602.     dc.w new_snd
  2603.     dc.l sax
  2604.  
  2605.  
  2606.     dc.w F05,sq*3,D05,sq,Bb04,cr,Bb04,cr,C05,cr,D05,cr*2,D05,cr
  2607.     dc.w D05,cr,Bb04,cr,C05,cr,A04,cr*3,F05,q*3,Eb05,q,D05,cr
  2608.     dc.w C05,cr*2,Bb04,q,C05,q,D05,cr,D05,cr,D05,cr,Bb04,cr,F04,cr*2
  2609.     dc.w end_patt
  2610. ap3:
  2611.  
  2612.       dc.w new_env
  2613.       dc.l sax_env
  2614.     dc.w new_snd
  2615.     dc.l sax
  2616.  
  2617.  
  2618.     dc.w F03,sq*3,Eb03,sq,Bb02,cr,Bb02,cr,A02,cr,G02,cr*2
  2619.     dc.w Gb02,cr,G02,cr,G02,cr,C03,cr,F02,cr*2,F03,q,F03,q
  2620.     dc.w Bb02,cr*3,F02,cr*3,Bb02,cr,Bb02,cr,F03,cr,D03,cr,Bb02,cr*2
  2621.     dc.w end_patt
  2622.  
  2623.  
  2624. ******
  2625.  
  2626.  
  2627.  
  2628. ;;;;;;;;;;;;;;;;;;;;;    FRANCE   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2629. song5:
  2630.     dc.l pfrance2,prinf
  2631.       dc.l 0,end_song
  2632.  
  2633. song6:
  2634.     dc.l pfrance3,prinf
  2635.       dc.l 0,end_song
  2636. song7:
  2637.     dc.l pfrance1,prinf
  2638.       dc.l 0,end_song
  2639.  
  2640. song8:
  2641.     dc.l pfrance2,prinf
  2642.       dc.l 0,end_song
  2643.  
  2644.  
  2645. pfrance1:
  2646.     
  2647.     dc.w new_env
  2648.     dc.l sax_env
  2649.     dc.w new_snd
  2650.     dc.l sax
  2651.  
  2652.  
  2653.     dc.w B04,sq,B04,sq*3,B04,sq
  2654.     dc.w E05,cr,E05,cr,Gb05,cr,Gb05,cr,B05,cr+q+sq,Ab05,sq
  2655.     dc.w E05,sq*3,E05,sq,Ab05,sq*3,E05,sq
  2656.     dc.w Db05,cr,A05,cr*2,Gb05,sq*3,Eb05,sq,E05,cr*4
  2657.       dc.w end_patt
  2658. pfrance2:
  2659.  
  2660.     
  2661.     dc.w new_env
  2662.     dc.l sax_env
  2663.     dc.w new_snd
  2664.     dc.l sax
  2665.  
  2666.  
  2667.  
  2668.     dc.w rest,sq*5
  2669.     dc.w Ab04,cr,Ab04,cr,B04,cr,B04,cr
  2670.     dc.w Ab04,cr+q+sq,Ab04,sq,Ab04,sq*3,Ab04,sq,B04,sq*3,Ab04,sq
  2671.     dc.w A04,cr,Db05,cr,Eb04,cr,A04,cr
  2672.     dc.w Ab04,cr*4
  2673.     dc.w end_patt
  2674. pfrance3:
  2675.  
  2676.     
  2677.     dc.w new_env
  2678.     dc.l sax_env
  2679.     dc.w new_snd
  2680.     dc.l sax
  2681.  
  2682.     dc.w B02,sq,B02,sq*3,B02,sq
  2683.     dc.w E03,cr,E03,cr,Eb03,cr,Eb03,cr
  2684.     dc.w E03,cr+q+sq,E03,sq,E03,sq*3,E03,sq,E03,sq*3,E03,sq
  2685.     dc.w A02,cr,Gb02,cr,B02,cr*2,E03,cr*4
  2686.     dc.w end_patt
  2687.  
  2688.  
  2689. ***********
  2690.  
  2691. cr set   28
  2692. q set cr/2
  2693. sq set q/2
  2694.  
  2695.  
  2696.  
  2697.  
  2698. ;;;;;;;;;;;;;;;;;;;;;    G.B.    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2699. song9:
  2700.     dc.l pgb2,prinf
  2701.       dc.l 0,end_song
  2702.  
  2703. song10:
  2704.     dc.l pgb3,prinf
  2705.       dc.l 0,end_song
  2706. song11:
  2707.     dc.l pgb1,prinf
  2708.       dc.l 0,end_song
  2709.  
  2710. song12:
  2711.     dc.l pgb1,prinf
  2712.       dc.l 0,end_song
  2713.  
  2714.  
  2715.  
  2716. pgb1:
  2717.  
  2718.     
  2719.     dc.w new_env
  2720.     dc.l sax_env
  2721.     dc.w new_snd
  2722.     dc.l sax
  2723.  
  2724.  
  2725.     dc.w E05,cr,E05,cr,Gb05,cr
  2726.     dc.w Eb05,q*3,E05,q,Gb05,cr
  2727.     dc.w Ab05,cr,Ab05,cr,A05,cr
  2728.     dc.w Ab05,q*3,Gb05,q,E05,cr
  2729.     dc.w Gb05,cr,E05,cr,Eb05,cr
  2730.     dc.w E05,cr,E05,q,Gb05,q,Ab05,q,A05,q
  2731.     dc.w B05,cr,B05,cr,B05,cr
  2732.     dc.w B05,q*3,A05,q,Ab05,cr
  2733.     dc.w A05,cr,A05,cr,A05,cr
  2734.     dc.w A05,q*3,Ab05,q,Gb05,cr
  2735.     dc.w Ab05,cr,A05,q,Ab05,q,Gb05,q,E05,q
  2736.     dc.w Ab05,q*3,A05,q,B05,cr    
  2737.     dc.w Db06,q,A05,q,Ab05,cr,Gb05,cr,E05,cr*3
  2738.       dc.w end_patt
  2739. pgb2:
  2740.     
  2741.     dc.w new_env
  2742.     dc.l sax_envq
  2743.     dc.w new_snd
  2744.     dc.l sax
  2745.  
  2746.  
  2747.  
  2748.     dc.w Ab02,cr,B02,cr,Db03,cr
  2749.     dc.w B02,q*3,A02,q,B02,cr
  2750.     dc.w B02,cr,E03,cr,Db03,cr
  2751.     dc.w E03,q*3,Ab02,q,Ab02,cr
  2752.     dc.w Db03,cr,Ab02,cr,Gb02,cr
  2753.     dc.w Ab02,cr,Ab02,q,A02,q,B02,q,Db03,q
  2754.     dc.w Ab02,cr,B02,cr,E03,cr
  2755.     dc.w Ab03,q*3,Eb03,q,B02,cr
  2756.     dc.w Eb03,cr,B02,cr,B02,cr
  2757.     dc.w Eb03,q*3,B02,q,Eb03,cr
  2758.     dc.w B02,cr,Db03,cr,B02,cr
  2759.     dc.w E03,q*3,Gb03,q,Ab03,cr
  2760.     dc.w Gb03,cr,E03,cr,Eb03,q,A02,q,Ab02,cr*3
  2761.     dc.w end_patt
  2762. pgb3:
  2763.  
  2764.     
  2765.     dc.w new_env
  2766.     dc.l sax_env
  2767.     dc.w new_snd
  2768.     dc.l sax
  2769.  
  2770.  
  2771.     dc.w E02,cr,Ab02,cr,A02,cr
  2772.     dc.w B02,q*3,Db03,q,Eb03,cr
  2773.     dc.w E03,cr,Db03,cr,A02,cr
  2774.     dc.w B02,q*3,C03,q,Db03,cr
  2775.     dc.w A02,cr,B02,cr,B02,cr
  2776.     dc.w E03,cr*3
  2777.     dc.w E02,cr,Ab02,cr,B02,cr
  2778.     dc.w E03,q*3,B02,q,E03,cr,B02,cr,Eb03,cr,Gb03,cr
  2779.     dc.w B02,q*3,E03,q,B02,cr,E03,cr,Gb03,q,E03,q,Eb03,q,Db03,q
  2780.     dc.w B02,q,A02,q,Ab02,q,Gb02,q,E02,cr,A02,cr,B02,cr,B02,cr,E02,cr*3
  2781.     dc.w end_patt
  2782.  
  2783. ****************
  2784.  
  2785.  
  2786. ;;;;;;;;;;;;;;;;;;;;;    CANADA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2787. song17:
  2788.     dc.l pcanada2,prinf
  2789.       dc.l 0,end_song
  2790.  
  2791. song18:
  2792.     dc.l pcanada3,prinf
  2793.       dc.l 0,end_song
  2794. song19:
  2795.     dc.l pcanada1,prinf
  2796.       dc.l 0,end_song
  2797.  
  2798. song20:
  2799.     dc.l pcanada2,prinf
  2800.       dc.l 0,end_song
  2801.  
  2802.  
  2803.  
  2804. pcanada1:
  2805.  
  2806.     dc.w new_env
  2807.     dc.l sax_env
  2808.     dc.w new_snd
  2809.     dc.l sax
  2810.  
  2811.  
  2812.     dc.w D05,cr*2,F05,cr*2,Bb04,cr*3,C05,cr
  2813.     dc.w D05,cr,Eb05,cr,F05,cr,G05,cr
  2814.     dc.w C05,cr*4,D05,cr*2,E05,cr*2,F05,cr*3,G05,cr
  2815.     dc.w A05,cr,A05,cr,G05,cr,G05,cr,F05,cr*4
  2816.       dc.w end_patt
  2817. pcanada2:
  2818.  
  2819.     dc.w new_env
  2820.     dc.l sax_env
  2821.     dc.w new_snd
  2822.     dc.l sax
  2823.  
  2824.     dc.w F04,cr*2,A04,cr*2,G04,cr*3,F04,cr,F04,cr,F04,cr
  2825.     dc.w Bb04,cr,Bb04,cr,Bb04,cr,Bb04,q,G04,q,A04,cr*2
  2826.     dc.w Bb04,cr*2,D05,cr,Db05,cr,D05,cr*3,E05,cr
  2827.     dc.w F05,cr,C05,cr,E05,cr,Bb04,cr,A04,cr*4
  2828.     dc.w end_patt
  2829. pcanada3:
  2830.  
  2831.     dc.w new_env
  2832.     dc.l sax_env
  2833.     dc.w new_snd
  2834.     dc.l sax
  2835.  
  2836.     dc.w Bb02,cr*2,D03,cr*2,G02,cr,D02,cr,G02,cr,A02,cr
  2837.     dc.w Bb02,cr,C03,cr,D03,cr,E03,cr,F03,cr*4,Bb02,cr*2,A02,cr*2
  2838.     dc.w D03,cr*3,Db03,cr,C03,cr,C03,cr,C03,cr,C03,cr,F02,cr*4
  2839.     dc.w end_patt
  2840.  
  2841. *******
  2842.  
  2843. ;;;;;;;;;;;;;;;;;;;;;    MEXICO   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2844. song21:
  2845.     dc.l pmexico2,prinf
  2846.       dc.l 0,end_song
  2847.  
  2848. song22:
  2849.     dc.l pmexico3,prinf
  2850.       dc.l 0,end_song
  2851. song23:
  2852.     dc.l pmexico1,prinf
  2853.       dc.l 0,end_song
  2854.  
  2855. song24:
  2856.     dc.l pmexico2,prinf
  2857.       dc.l 0,end_song
  2858.  
  2859.  
  2860. pmexico1:
  2861.  
  2862.     
  2863.     dc.w new_env
  2864.     dc.l sax_env
  2865.     dc.w new_snd
  2866.     dc.l sax
  2867.  
  2868.     dc.w F04,cr,A04,q,C05,q*3,C05,cr,C05,q
  2869.     dc.w C05,q*3,C05,q,D05,q,E05,q,F05,q*3,E05,q*3
  2870.     dc.w C05,q*3,A04,cr,F04,q,F04,q*3,A04,cr,A04,q
  2871.     dc.w Bb04,q*3,C05,cr,C05,q,A04,cr,G04,q,F04,q*3
  2872.       dc.w end_patt
  2873. pmexico2:
  2874.  
  2875.     
  2876.     dc.w new_env
  2877.     dc.l sax_env
  2878.     dc.w new_snd
  2879.     dc.l sax
  2880.     dc.w rest,q*3,A04,q*3,A04,cr,A04,q,A04,q*3,A04,q,A04,q,A04,q
  2881.     dc.w A04,q*3,A04,q*3,A04,q*3,F04,cr,C04,q,Bb03,q*3,C04,cr,C04,q
  2882.     dc.w D04,q*3,E04,cr,E04,q,C04,cr,Bb03,q,A03,q*3 
  2883.     dc.w end_patt
  2884. pmexico3:
  2885.  
  2886.     
  2887.     dc.w new_env
  2888.     dc.l sax_env
  2889.     dc.w new_snd
  2890.     dc.l sax
  2891.  
  2892.     dc.w rest,q*3,F03,q*3,C03,cr,C03,q,F03,q*3,F03,q,F03,q,F03,q
  2893.     dc.w F03,q*3,C03,q*3,F03,q*3,C03,cr,C03,q,C03,q*3,C03,cr,C03,q
  2894.     dc.w C03,q*3,C03,cr,C03,q,F03,q*3,F03,q*3
  2895.     dc.w end_patt
  2896.  
  2897.  
  2898. ***********
  2899.  
  2900.  
  2901. ;;;;;;;;;;;;;;;;;;;;;    JAPAN   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2902. song25:
  2903.     dc.l pjapan2,prinf
  2904.       dc.l 0,end_song
  2905.  
  2906. song26:
  2907.     dc.l pjapan3,prinf
  2908.       dc.l 0,end_song
  2909. song27:
  2910.     dc.l pjapan1,prinf
  2911.       dc.l 0,end_song
  2912.  
  2913. song28:
  2914.     dc.l pjapan2,prinf
  2915.       dc.l 0,end_song
  2916.  
  2917.  
  2918. pjapan1:
  2919.     
  2920.     dc.w new_env
  2921.     dc.l sax_env
  2922.     dc.w new_snd
  2923.     dc.l sax
  2924.     dc.w G04,cr,F04,cr,G04,cr,A04,cr,C05,cr,A04,cr,G04,cr*2
  2925.     dc.w A04,cr,C05,cr,D05,cr,C05,q,D05,q
  2926.     dc.w G05,cr,E05,cr,D05,cr,C05,cr,A04,cr,C05,cr,D05,cr*2
  2927.     dc.w G05,cr,F05,cr,G05,cr*2,A04,cr,C05,cr,D05,cr,C05,cr
  2928.     dc.w A04,q*3,C05,q,G04,cr*2,D05,cr,F05,cr,G05,cr,G05,cr
  2929.     dc.w F05,cr,G05,cr,D05,cr,C05,cr,D05,cr,C05,q,A04,q,G04,cr*2
  2930.       dc.w end_patt
  2931.  
  2932. pjapan2:
  2933.     
  2934.     dc.w new_env
  2935.     dc.l sax_env
  2936.     dc.w new_snd
  2937.     dc.l sax
  2938.     dc.w rest,cr*8,F04,cr,F04,cr,F04,cr,E04,q,F04,q
  2939.     dc.w Db05,cr,Db05,cr,Bb04,cr,G04,cr
  2940.     dc.w F04,cr,F04,cr,F04,cr*2,Bb04,cr,A04,cr,Bb04,cr*2
  2941.     dc.w F04,cr,F04,cr,F04,cr,F04,cr
  2942.     dc.w F04,cr*2,E04,cr*2,F04,cr,Bb04,cr,Bb04,cr,Bb04,cr
  2943.     dc.w A04,cr,Bb04,cr,rest,cr*6
  2944.     dc.w end_patt
  2945. pjapan3:
  2946.     
  2947.     dc.w new_env
  2948.     dc.l sax_env
  2949.     dc.w new_snd
  2950.     dc.l sax
  2951.     dc.w rest,cr*8,F02,cr,A02,cr,Bb02,cr,A02,q,Bb02,q
  2952.     dc.w G02,cr,C03,cr,G02,cr,C03,cr
  2953.     dc.w F02,cr,A02,cr,Bb02,cr*2,G02,cr,D02,cr,G02,cr*2
  2954.     dc.w F02,cr,A02,cr,Bb02,cr,A02,cr
  2955.     dc.w F02,cr*2,C03,cr*2,Bb02,cr,D03,cr,C03,cr,D03,cr
  2956.     dc.w D03,cr,D03,cr,D03,cr,C03,cr,C03,cr,C03,q,A02,q,G02,cr*2
  2957.     dc.w end_patt
  2958.  
  2959.  
  2960.  
  2961.  
  2962.  
  2963.  
  2964. ***********
  2965. ;;;;;;;;;;;;;;;;;;;;;    HOLLANDS  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2966. song29:
  2967.     dc.l pholland2,prinf
  2968.       dc.l 0,end_song
  2969.  
  2970. song30:
  2971.     dc.l pholland3,prinf
  2972.       dc.l 0,end_song
  2973. song31:
  2974.     dc.l pholland1,prinf
  2975.       dc.l 0,end_song
  2976.  
  2977. song32:
  2978.     dc.l pholland2,prinf
  2979.       dc.l 0,end_song
  2980.  
  2981.  
  2982. pholland1:
  2983.     
  2984.     dc.w new_env
  2985.     dc.l sax_env
  2986.     dc.w new_snd
  2987.     dc.l sax
  2988.     dc.w C05,cr,F05,cr,F05,cr,G05,q,A05,q,Bb05,q,G05,q
  2989.     dc.w A05,cr,G05,q,A05,q,Bb05,cr,A05,cr,G05,q,F05,q,G05,cr,F05,cr*3
  2990.       dc.w end_patt
  2991. pholland2:
  2992.     
  2993.     dc.w new_env
  2994.     dc.l sax_env
  2995.     dc.w new_snd
  2996.     dc.l sax
  2997.     dc.w Bb03,cr,A03,cr,A03,cr,D04,cr,E04,cr,C04,cr
  2998.     dc.w Bb03,q,C04,q,D04,cr,F04,cr,E04,q,D04,q,E04,cr,C04,cr*3
  2999.     dc.w end_patt
  3000. pholland3:
  3001.     
  3002.     dc.w new_env
  3003.     dc.l sax_env
  3004.     dc.w new_snd
  3005.     dc.l sax
  3006.     dc.w E03,cr,F03,cr,C03,cr,Bb02,cr,C03,cr,F03,cr,D03,q,C03,q
  3007.     dc.w Bb02,cr,C03,cr,C03,q,C03,q,C03,cr,F02,cr*3
  3008.     dc.w end_patt
  3009.  
  3010. ******
  3011.  
  3012.  
  3013.  
  3014.  
  3015. ;;;;;;;;;;;;;;;;;;;;;    GERMANY   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3016. song33:
  3017.     dc.l pgermany1,prinf
  3018.       dc.l 0,end_song
  3019.  
  3020. song34:
  3021.     dc.l pgermany3,prinf
  3022.       dc.l 0,end_song
  3023. song35:
  3024.     dc.l pgermany1,prinf
  3025.       dc.l 0,end_song
  3026.  
  3027. song36:
  3028.     dc.l pgermany2,prinf
  3029.       dc.l 0,end_song
  3030.  
  3031.  
  3032. pgermany1:
  3033.     
  3034.     dc.w new_env
  3035.     dc.l sax_env
  3036.     dc.w new_snd
  3037.     dc.l sax
  3038.     dc.w C02,q*3,D02,q,E02,cr,D02,cr
  3039.     dc.w F02,cr,E02,cr,D02,q,B01,q,C02,cr
  3040.     dc.w A02,cr,G02,cr,F02,cr,E02,cr
  3041.     dc.w D02,cr,E02,q,C02,q,G02,cr*2
  3042.     dc.w C02,q*3,B01,q,B01,q,A01,q,G01,cr
  3043.     dc.w A01,q*3,G01,q,G01,q,F01,q,E01,cr
  3044.     dc.w D01,q*3,E01,sq,F01,sq,G01,q,A01,q,F01,q,D01,q
  3045.     dc.w C01,cr,E01,q,D01,q,C01,cr*2
  3046.       dc.w end_patt
  3047. pgermany2:
  3048.     
  3049.     dc.w new_env
  3050.     dc.l sax_envq
  3051.     dc.w new_snd
  3052.     dc.l sax
  3053.     dc.w E02,q*3,F02,q,G02,cr,A02,cr
  3054.     dc.w A02,cr,G02,cr,G02,q,F02,q,E02,cr
  3055.     dc.w C02,cr,C02,cr,A01,cr,C02,cr
  3056.     dc.w Gb02,cr,G02,cr,B02,cr*2
  3057.     dc.w D03,q,E03,q,G03,cr,C03,cr,C03,cr
  3058.     dc.w C03,q,D03,q,E03,cr,B02,cr,C03,cr
  3059.     dc.w B02,cr*2,E03,cr,A02,cr
  3060.     dc.w E02,cr,F02,cr,E02,cr*2
  3061.     dc.w end_patt
  3062. pgermany3:
  3063.     
  3064.     dc.w new_env
  3065.     dc.l sax_envq
  3066.     dc.w new_snd
  3067.     dc.l sax
  3068.     dc.w C03,q*3,C03,q,C03,cr,F02,cr
  3069.     dc.w F02,cr,C03,cr,G02,cr,C03,cr
  3070.     dc.w F03,cr,E03,cr,D03,cr,C03,cr
  3071.     dc.w D03,cr,C03,cr,G02,cr*2
  3072.     dc.w C03,cr,E03,cr,F03,cr,E03,cr
  3073.     dc.w F03,cr,E03,cr,G03,cr,C03,cr
  3074.     dc.w G02,cr*2,C03,cr,F02,cr
  3075.     dc.w G02,cr,G02,cr,C03,cr*2
  3076.     dc.w end_patt
  3077.  
  3078. *******
  3079.  
  3080. ;;;;;;;;;;;;;;;;;;;;;    SPAIN   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3081. song37:
  3082.     dc.l pspain2,prinf
  3083.       dc.l 0,end_song
  3084.  
  3085. song38:
  3086.     dc.l pspain3,prinf
  3087.       dc.l 0,end_song
  3088. song39:
  3089.     dc.l pspain1,prinf
  3090.       dc.l 0,end_song
  3091.  
  3092. song40:
  3093.     dc.l pspain2,prinf
  3094.       dc.l 0,end_song
  3095.  
  3096.  
  3097. pspain1:
  3098.     
  3099.     dc.w new_env
  3100.     dc.l sax_env
  3101.     dc.w new_snd
  3102.     dc.l sax
  3103.     dc.w Ab05,cr,Eb05,cr,C06,cr,Ab05,q,Eb06,q
  3104.     dc.w Db06,q,C06,q,Bb05,q,Ab05,q,Ab05,q,G05,q,F05,q,Eb05,q
  3105.     dc.w Ab05,cr,Bb05,cr,C06,q*3,Eb06,q
  3106.     dc.w Db06,q,C06,q,Bb05,q,Ab05,q,G05,cr*2
  3107.     dc.w Ab05,cr,Eb05,cr,C06,cr,Ab05,q,Eb06,q
  3108.     dc.w Db06,q,C06,q,Bb05,q,Ab05,q,Ab05,q,G05,q,F05,q,Eb05,q
  3109.     dc.w Ab05,cr,Bb05,cr,C06,q*3,Eb06,q
  3110.     dc.w Db06,q,C06,q,Bb05,q,Ab05,q,Ab05,cr*2
  3111.       dc.w end_patt
  3112. pspain2:
  3113.     
  3114.     dc.w new_env
  3115.     dc.l sax_env
  3116.     dc.w new_snd
  3117.     dc.l sax
  3118.     dc.w C05,cr,C05,cr,Eb05,cr,C05,cr
  3119.     dc.w F05,cr*2,Eb05,cr,Db05,cr
  3120.     dc.w C05,cr,Db05,cr,Eb05,q*3,C05,q
  3121.     dc.w Ab04,cr,F04,cr,G04,cr*2
  3122.     dc.w C05,cr,C05,cr,Eb05,cr,C05,cr
  3123.     dc.w F05,cr*2,Eb05,cr,Db05,cr
  3124.     dc.w C05,cr,Db05,cr,Eb05,q*3,C05,q
  3125.     dc.w Ab04,cr,G04,cr,Ab04,cr*2
  3126.     dc.w end_patt
  3127. pspain3:
  3128.     
  3129.     dc.w new_env
  3130.     dc.l sax_env
  3131.     dc.w new_snd
  3132.     dc.l sax
  3133.     dc.w Ab02,cr,Ab02,cr,Ab02,cr,Ab02,cr
  3134.     dc.w Ab02,q,Bb02,q,C03,q,D03,q,Eb03,cr*2
  3135.     dc.w Ab02,cr,Eb03,cr,Ab02,cr,G02,cr
  3136.     dc.w F02,cr,Db02,cr,Eb02,cr*2
  3137.     dc.w Ab02,cr,Ab02,cr,Ab02,cr,Ab02,cr
  3138.     dc.w Ab02,q,Bb02,q,C03,q,D03,q,Eb03,cr*2
  3139.     dc.w Ab02,cr,Eb03,cr,Ab02,cr,G02,cr
  3140.     dc.w F02,cr,Eb02,cr,Ab02,cr*2
  3141.     dc.w end_patt
  3142.  
  3143. *******
  3144.  
  3145.  
  3146. ;;;;;;;;;;;;;;;;;;;;;    NORWAY  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3147. song41:
  3148.     dc.l pnw21,prinf
  3149.       dc.l 0,end_song
  3150.  
  3151. song42:
  3152.     dc.l pnw23,prinf
  3153.       dc.l 0,end_song
  3154. song43:
  3155.     dc.l pnw21,prinf
  3156.       dc.l 0,end_song
  3157.  
  3158. song44:
  3159.     dc.l pnw22,prinf
  3160.       dc.l 0,end_song
  3161.  
  3162. pnw21:
  3163.     
  3164.     dc.w new_env
  3165.     dc.l sax_env
  3166.     dc.w new_snd
  3167.     dc.l sax
  3168.     dc.w Bb04,cr,Eb05,q*3,Db05,q,C05,cr,Bb04,cr
  3169.     dc.w Ab04,cr,Bb04,cr,C05,cr,Db05,cr
  3170.     dc.w Eb05,q*3,F05,q,Eb05,cr,Db05,cr,C05,cr*4
  3171.     dc.w F05,q*3,Eb05,q,Db05,cr,C05,cr
  3172.     dc.w Bb04,cr,C05,cr,Db05,cr,Eb05,q*5,F05,q
  3173.     dc.w Db05,cr,G05,cr,Ab05,cr*4
  3174.       dc.w end_patt
  3175. pnw22:
  3176.     
  3177.     dc.w new_env
  3178.     dc.l sax_env
  3179.     dc.w new_snd
  3180.     dc.l sax
  3181.     dc.w rest,cr*8,Ab04,cr,G04,q*3,Db05,q,C05,cr,Bb04,cr
  3182.     dc.w Ab04,cr*4,rest,cr*7,G04,cr,Ab04,cr*2,F04,cr,Bb04,cr
  3183.     dc.w C05,cr*4
  3184.     dc.w end_patt
  3185. pnw23:
  3186.     
  3187.     dc.w new_env
  3188.     dc.l sax_env
  3189.     dc.w new_snd
  3190.     dc.l sax
  3191.     dc.w rest,cr*8,F03,cr,Eb03,q*3,Eb02,q,F02,cr,G02,cr
  3192.     dc.w Ab02,cr*4,rest,cr*7,Db03,cr,C03,cr*2,Bb02,cr,Eb03,cr
  3193.     dc.w Ab02,cr*4
  3194.     dc.w end_patt
  3195.  
  3196. *******
  3197.  
  3198.  
  3199.  
  3200. ;;;;;;;;;;;;;;;;;;;;;    AUSTRIA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3201. song45:
  3202.     dc.l paustria1,prinf
  3203.       dc.l 0,end_song
  3204.  
  3205. song46:
  3206.     dc.l paustria3,prinf
  3207.       dc.l 0,end_song
  3208. song47:
  3209.     dc.l paustria1,prinf
  3210.       dc.l 0,end_song
  3211.  
  3212. song48:
  3213.     dc.l paustria2,prinf
  3214.       dc.l 0,end_song
  3215.  
  3216.  
  3217. paustria1:
  3218.     
  3219.     dc.w new_env
  3220.     dc.l sax_env
  3221.     dc.w new_snd
  3222.     dc.l sax
  3223.     dc.w Bb02,cr*2,A02,cr,G02,cr*2,A02,q,Bb02,q
  3224.     dc.w C03,cr*2,Bb02,cr,Bb02,cr,A02,cr*2
  3225.     dc.w A02,cr*2,G02,cr,F02,cr*2,G02,q,A02,q
  3226.     dc.w Bb02,cr*2,A02,cr,A02,q,G02,q,G02,cr*2
  3227.       dc.w end_patt
  3228. paustria2:
  3229.     
  3230.     dc.w new_env
  3231.     dc.l sax_envq
  3232.     dc.w new_snd
  3233.     dc.l sax
  3234.     dc.w G02,cr*2,F02,cr,Eb02,cr*2,F02,q,G02,q
  3235.     dc.w eb02,cr*2,G02,cr,G02,cr,F02,cr*2
  3236.     dc.w F02,cr*2,Eb02,cr,D02,cr*2,Eb02,q,F02,q
  3237.     dc.w G02,cr*2,F02,cr,Bb01,cr,Bb01,cr*2
  3238.     dc.w end_patt
  3239. paustria3:
  3240.     
  3241.     dc.w new_env
  3242.     dc.l sax_envq
  3243.     dc.w new_snd
  3244.     dc.l sax
  3245.     dc.w Eb01,cr,G01,cr,Bb01,cr,Eb02,cr*2,Eb02,cr
  3246.     dc.w ab01,cr,Bb01,cr,C02,cr,g01,q,F01,q,F01,cr*2
  3247.     dc.w Bb01,cr,D02,cr,Bb01,cr,Bb01,cr*2,Bb01,cr
  3248.     dc.w Bb01,cr*2,Bb01,cr,Eb01,cr,Eb01,cr*2
  3249.     dc.w end_patt
  3250.  
  3251. ************
  3252.  
  3253. ;;;;;;;;;;;;;;;;;;;;;    EIRE     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3254. song49:
  3255.     dc.l peire2,prinf
  3256.       dc.l 0,end_song
  3257.  
  3258. song50:
  3259.     dc.l peire3,prinf
  3260.       dc.l 0,end_song
  3261. song51:
  3262.     dc.l peire1,prinf
  3263.       dc.l 0,end_song
  3264.  
  3265. song52:
  3266.     dc.l peire2,prinf
  3267.       dc.l 0,end_song
  3268.  
  3269.  
  3270. peire1:
  3271.     dc.w new_env
  3272.     dc.l sax_env
  3273.     dc.w new_snd
  3274.     dc.l sax
  3275.     dc.w A05,cr,Gb05,cr,D05,q,Gb05,q,A05,q*3,A05,q
  3276.     dc.w B05,q,Db06,q,D06,q,E06,q,Gb06,q*3,E06,q
  3277.     dc.w D06,cr,B05,sq*3,B05,sq,A05,cr,Gb05,cr
  3278.     dc.w A05,q*3,G05,q,E05,cr,A04,cr
  3279.     dc.w Gb05,cr,D05,q,Gb05,q,A05,q*3,A05,q
  3280.     dc.w B05,q,Db06,q,D06,q,E06,q,Gb06,q*3,D06,q
  3281.     dc.w Db06,q*3,Db06,q,B05,q*3,B05,q,A05,cr,A05,cr*3
  3282.       dc.w end_patt
  3283.  
  3284. peire2:
  3285.     dc.w new_env
  3286.     dc.l sax_env
  3287.     dc.w new_snd
  3288.     dc.l sax
  3289.     dc.w rest,cr,A04,cr,rest,cr,E05,cr,rest,q,E05,q
  3290.     dc.w G05,cr,B05,cr,A05,q*3,A05,q,B05,cr,G05,sq*3,G05,sq
  3291.     dc.w D05,cr,D05,cr,Db05,q*3,Db05,q,Db05,cr,Db05,cr
  3292.     dc.w A04,cr,rest,cr,E05,cr,rest,q,E05,q
  3293.     dc.w G05,cr,B05,cr,A05,q*3,A05,q,A05,q*3,A05,q,Ab05,q*3,Ab05,q
  3294.     dc.w E05,cr,E05,cr*3
  3295.     dc.w end_patt
  3296. peire3:
  3297.     dc.w new_env
  3298.     dc.l sax_env
  3299.     dc.w new_snd
  3300.     dc.l sax
  3301.     dc.w rest,cr,D03,cr,rest,cr,Db03,cr,rest,q,Db03,q
  3302.     dc.w B02,cr,G03,cr,D03,q*3,Gb03,q,G03,cr,G03,sq*3,G03,sq
  3303.     dc.w Gb03,cr,D03,cr,A03,q*3,A03,q,A03,cr,A03,cr
  3304.     dc.w D03,cr,rest,cr,Db03,cr,rest,q,Db03,q
  3305.     dc.w B02,cr,G03,cr,D03,q*3,D03,q
  3306.     dc.w E03,q*3,E03,q,E03,q*3,E03,q,A02,cr,A02,cr*3
  3307.     dc.w end_patt
  3308.  
  3309. ******
  3310.  
  3311.  
  3312.  
  3313. ;;;;;;;;;;;;;;;;;;;;;    ITALY   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3314. song53:
  3315.     dc.l pitaly2,prinf
  3316.       dc.l 0,end_song
  3317.  
  3318. song54:
  3319.     dc.l pitaly3,prinf
  3320.       dc.l 0,end_song
  3321. song55:
  3322.     dc.l pitaly1,prinf
  3323.       dc.l 0,end_song
  3324.  
  3325. song56:
  3326.     dc.l pitaly2,prinf
  3327.       dc.l 0,end_song
  3328.  
  3329. pitaly1:
  3330.     dc.w new_env
  3331.     dc.l sax_env
  3332.     dc.w new_snd
  3333.     dc.l sax
  3334.     dc.w G04,cr,G04,sq*3,A04,sq,G04,cr*2
  3335.     dc.w E05,cr,E05,sq*3,F05,sq,E05,cr*2
  3336.     dc.w E05,cr,G05,sq*3,F05,sq,E05,cr*2
  3337.     dc.w D05,cr,E05,sq*3,D05,sq,C05,cr*2
  3338.       dc.w end_patt
  3339. pitaly2:
  3340.     dc.w new_env
  3341.     dc.l sax_env
  3342.     dc.w new_snd
  3343.     dc.l sax
  3344.     dc.w E04,cr,E04,sq*3,F04,sq,E04,sq*3,E04,sq,E04,cr
  3345.     dc.w G04,cr,G04,sq*3,A04,sq,G04,sq*3,G04,sq,G04,cr
  3346.     dc.w C05,cr,E05,sq*3,D05,sq,C05,cr*2
  3347.     dc.w B04,cr,C05,sq*3,B04,sq,E04,cr*2
  3348.     dc.w end_patt
  3349. pitaly3:
  3350.     dc.w new_env
  3351.     dc.l sax_env
  3352.     dc.w new_snd
  3353.     dc.l sax
  3354.     dc.w C04,cr,C04,sq*3,C04,sq,C04,sq*3,C04,sq,C04,cr
  3355.     dc.w C04,cr,C04,sq*3,C04,sq,C04,sq*3,C04,sq,C04,cr
  3356.     dc.w C04,cr,C04,sq*3,C04,sq,C04,cr,G03,cr
  3357.     dc.w G03,cr,G03,sq*3,G03,sq,C04,cr,C03,cr
  3358.     dc.w end_patt
  3359.  
  3360. **********
  3361.  
  3362.  
  3363. ;;;;;;;;;;;;;;;;;;;;;    AUSTRALIA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3364. song57:
  3365.     dc.l pau2,prinf
  3366.       dc.l 0,end_song
  3367.  
  3368. song58:
  3369.     dc.l pau3,prinf
  3370.       dc.l 0,end_song
  3371. song59:
  3372.     dc.l pau1,prinf
  3373.       dc.l 0,end_song
  3374.  
  3375. song60:
  3376.     dc.l pau2,prinf
  3377.       dc.l 0,end_song
  3378.  
  3379. pau1:
  3380.     dc.w new_env
  3381.     dc.l sax_env
  3382.     dc.w new_snd
  3383.     dc.l sax
  3384.  
  3385.     dc.w C03,q,D03,q,E03,cr,E03,q,E03,q,D03,cr,D03,cr
  3386.     dc.w C03,q,D03,q,E03,q,C03,q,A02,q,B02,q,C03,cr
  3387.     dc.w G04,cr,C03,q,E03,q,G03,cr,F03,q,E03,q
  3388.     dc.w D03,cr,D03,q,D03,q,C03,cr*2
  3389.       dc.w end_patt
  3390. pau2:
  3391.     dc.w new_env
  3392.     dc.l sax_env
  3393.     dc.w new_snd
  3394.     dc.l sax
  3395.  
  3396.     dc.w rest,cr,C02,cr,C02,q,C02,q,B01,cr,B01,cr
  3397.     dc.w A01,q,B01,q,C02,q,A01,q,F01,q,G01,q,A01,cr
  3398.     dc.w E01,cr,G01,q,C02,q,E02,cr,D02,q,C02,q
  3399.     dc.w B01,cr,B01,q,B01,q,G01,cr*2
  3400.     dc.w end_patt
  3401. pau3:
  3402.     dc.w new_env
  3403.     dc.l sax_env
  3404.     dc.w new_snd
  3405.     dc.l sax
  3406.  
  3407.     dc.w rest,cr,C03,cr,G02,cr,D03,cr,G02,cr
  3408.     dc.w A02,cr,G02,cr,F02,cr,Gb02,cr
  3409.     dc.w G02,cr*2,G02,cr*2,G02,cr,G02,q,G02,q,C03,cr*2
  3410.     dc.w end_patt
  3411. ********
  3412.  
  3413.  
  3414.  
  3415. ;;;;;;;;;;;;;;;;;;;;;    BRAZIL    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3416. song61:
  3417.     dc.l pbrazil2,prinf
  3418.       dc.l 0,end_song
  3419.  
  3420. song62:
  3421.     dc.l pbrazil3,prinf
  3422.       dc.l 0,end_song
  3423. song63:
  3424.     dc.l pbrazil1,prinf
  3425.       dc.l 0,end_song
  3426.  
  3427. song64:
  3428.     dc.l pbrazil2,prinf
  3429.       dc.l 0,end_song
  3430.  
  3431.  
  3432. pbrazil1:
  3433.     dc.w new_env
  3434.     dc.l sax_env
  3435.     dc.w new_snd
  3436.     dc.l sax
  3437.  
  3438.     dc.w Bb04,cr,Bb04,q*2,Bb04,cr,Bb04,cr
  3439.     dc.w Eb05,sq*3,D05,sq,Eb05,sq*3,F05,sq
  3440.     dc.w G05,sq*3,F05,sq,G05,sq*3,Ab05,sq
  3441.     dc.w A05,q*3,Bb05,q,Eb05,cr,Bb04,cr
  3442.     dc.w Eb05,sq*3,D05,sq,F05,sq*3,Eb05,sq
  3443.     dc.w G05,sq*3,F05,sq,Ab05,sq*3,G05,sq
  3444.     dc.w E05,cr,F05,cr*3
  3445.       dc.w end_patt
  3446. pbrazil2:
  3447.     dc.w new_env
  3448.     dc.l sax_env
  3449.     dc.w new_snd
  3450.     dc.l sax
  3451.  
  3452.     dc.w G04,cr,G04,q*2,G04,cr,rest,cr
  3453.     dc.w G04,cr*2,Bb04,cr*2,Gb05,q*3,G05,q
  3454.     dc.w Bb04,cr,Bb04,cr,G04,cr,Ab04,cr,Bb04,cr,C05,cr
  3455.     dc.w Db05,cr,D05,cr*3
  3456.     dc.w end_patt
  3457. pbrazil3:
  3458.     dc.w new_env
  3459.     dc.l sax_env
  3460.     dc.w new_snd
  3461.     dc.l sax
  3462.  
  3463.     dc.w Eb03,cr,Eb03,q*2,Eb03,cr,rest,cr
  3464.     dc.w Eb03,sq*3,D03,sq,Eb03,sq*3,F03,sq
  3465.     dc.w G03,sq*3,F03,sq,G03,sq*3,Ab03,sq
  3466.     dc.w A03,q*3,Bb03,q,Eb03,cr,Bb02,cr
  3467.     dc.w Eb03,sq*3,D03,sq,F03,sq*3,Eb03,sq
  3468.     dc.w G03,sq*3,F03,sq,Ab03,sq*3,G03,sq
  3469.     dc.w G03,cr,Ab03,cr*3
  3470.     dc.w end_patt
  3471.  
  3472.  
  3473. **********
  3474.  
  3475.         ;  russia    
  3476.  
  3477.  
  3478.  
  3479. song65:
  3480.     dc.l pred1,prinf
  3481.       dc.l 0,end_song
  3482.  
  3483. song66:
  3484.     dc.l pred2,prinf
  3485.       dc.l 0,end_song
  3486. song67:
  3487.     dc.l pred3,prinf
  3488.       dc.l 0,end_song
  3489.  
  3490. song68:
  3491.     dc.l pred1,prinf
  3492.       dc.l 0,end_song
  3493.  
  3494.  
  3495. pred1:
  3496.     dc.w new_env
  3497.     dc.l sax_env
  3498.     dc.w new_snd
  3499.     dc.l sax
  3500.  
  3501.     dc.w e03,cr,e03,cr,f03,cr,g03,cr,g03,cr,f03,cr
  3502.     dc.w e03,cr,d03,cr,c03,cr,c03,cr,d03,cr,e03,cr
  3503.     dc.w e03,cr+q,d03,q,d03,cr*2
  3504.  
  3505.     dc.w e03,cr,e03,cr,f03,cr,g03,cr,g03,cr,f03,cr
  3506.     dc.w e03,cr,d03,cr,c03,cr,c03,cr,d03,cr,e03,cr
  3507.     dc.w d03,cr+q,c03,q,c03,cr*2
  3508.  
  3509.  
  3510.       dc.w end_patt
  3511. pred2:
  3512.     dc.w new_env
  3513.     dc.l sax_env
  3514.     dc.w new_snd
  3515.     dc.l sax
  3516.     dc.w c02,cr*4,g02,cr*4,c02,cr*4,g02,cr*4
  3517.     dc.w c02,cr*4,g02,cr*4,f02,cr*4,g02,cr*2,c02,cr*2
  3518.       dc.w end_patt
  3519.  
  3520.  
  3521. pred3:
  3522.     dc.w new_env
  3523.     dc.l sax_env
  3524.     dc.w new_snd
  3525.     dc.l sax
  3526.     dc.w g02,cr*4,d02,cr*4,g02,cr*4,d02,cr*4
  3527.     dc.w g02,cr*4,d02,cr*4,a02,cr*4,b02,cr*2,g02,cr*2
  3528.     dc.w end_patt
  3529.  
  3530. *****
  3531.  
  3532. **********
  3533.  
  3534.         ;  holland 
  3535.  
  3536.  
  3537.  
  3538. song69:
  3539.     dc.l phol1,prinf
  3540.       dc.l 0,end_song
  3541.  
  3542. song70:
  3543.     dc.l phol2,prinf
  3544.       dc.l 0,end_song
  3545. song71:
  3546.     dc.l phol3,prinf
  3547.       dc.l 0,end_song
  3548.  
  3549. song72:
  3550.     dc.l phol1,prinf
  3551.       dc.l 0,end_song
  3552.  
  3553.  
  3554. phol1:
  3555.     dc.w new_env
  3556.     dc.l sax_env
  3557.     dc.w new_snd
  3558.     dc.l sax
  3559.  
  3560.     dc.w  g02,cr,c03,cr,c03,cr,d03,q,e03,q,f03,q,d03,q,e03,cr
  3561.     dc.w  d03,q,e03,q,f03,cr,e03,cr,d03,q,c03,q,d03,cr,c03,cr*4
  3562.  
  3563.       dc.w end_patt
  3564.  
  3565.  
  3566.  
  3567. phol2:
  3568.     dc.w new_env
  3569.     dc.l sax_env
  3570.     dc.w new_snd
  3571.     dc.l sax
  3572.  
  3573.     dc.w   rest,cr,e02,cr*8,d02,cr*4,e03,cr*4
  3574.  
  3575.  
  3576.       dc.w end_patt
  3577.  
  3578.  
  3579.  
  3580. phol3:
  3581.     dc.w new_env
  3582.     dc.l sax_env
  3583.     dc.w new_snd
  3584.     dc.l sax
  3585.  
  3586.     dc.w   rest,cr,g02,cr*8,b02,cr*4,g03,cr*4
  3587.  
  3588.  
  3589.       dc.w end_patt
  3590.  
  3591.  
  3592.  
  3593. songusg1:
  3594.     dc.l usg1,prinf
  3595.       dc.l 0,end_song
  3596.  
  3597. songusg2:
  3598.     dc.l usg2,prinf
  3599.       dc.l 0,end_song
  3600. songusg3:
  3601.     dc.l usg3,prinf
  3602.       dc.l 0,end_song
  3603.  
  3604. songusg4:
  3605.     dc.l usg1,prinf
  3606.       dc.l 0,end_song
  3607.  
  3608.  
  3609. usg1:
  3610.       dc.w new_env
  3611.       dc.l sax_env
  3612.     dc.w new_snd
  3613.     dc.l sax
  3614.     dc.w c02,cr,d02,cr,g02,cr,f02,cr,e02,cr
  3615.     dc.w c02,q,d02,q,f02,cr,e02,cr,d02,cr,c02,cr*4
  3616.     dc.w end_patt
  3617.  
  3618. usg2:
  3619.       dc.w new_env
  3620.       dc.l sax_env
  3621.     dc.w new_snd
  3622.     dc.l sax
  3623.     dc.w a01,cr*6,g01,cr*3,c01,cr*4
  3624.     dc.w end_patt
  3625.  
  3626.  
  3627. usg3:
  3628.       dc.w new_env
  3629.       dc.l sax_env
  3630.     dc.w new_snd
  3631.     dc.l sax
  3632.     dc.w e02,cr,f02,cr,c03,cr,b02,cr,a02,cr
  3633.     dc.w e02,q,f02,q,b02,cr,a02,cr,g02,cr,e02,cr*4
  3634.     dc.w end_patt
  3635.  
  3636.  
  3637.  
  3638. **************************************************************
  3639.  
  3640.     ; sample parameters
  3641. bas
  3642. bass
  3643.         dc.w 1  
  3644.              dc.l bas4d
  3645.              dc.w 1801/2 
  3646.              dc.l restd
  3647.              dc.w 16/2
  3648. kik
  3649.         dc.w 1  
  3650.              dc.l kik1d
  3651.              dc.w 3801/2 
  3652.              dc.l restd
  3653.              dc.w 16/2
  3654. snare
  3655. snr
  3656.         dc.w 1  
  3657.              dc.l snr1d
  3658.              dc.w 6325/2 
  3659.              dc.l restd
  3660.              dc.w 16/2
  3661. org
  3662. sax
  3663.         dc.w 1  
  3664.              dc.l sax2d
  3665.              dc.w 6073/2 
  3666.         dc.l sax2d
  3667.              dc.w 6073/2 
  3668.  
  3669. ;**************************************************
  3670. kik1d            incbin ram:kik1.sam
  3671. snr1d            incbin ram:snr1.sam
  3672. bas4d            incbin ram:bas4.sam
  3673. sax2d            incbin ram:sax2.sam                    
  3674.  
  3675. org_env:            dc.w 0,16,255
  3676. sine_env
  3677. sax_env:            dc.w 0,33,255
  3678. sax_envq:            dc.w 0,20,255
  3679.  
  3680. bass_env            dc.w 0,64,255
  3681. q_env:                dc.w 0,10,255
  3682. snare_env
  3683. kik_env:            dc.w 0,64,255
  3684. tom_env:            dc.w 0,45,255
  3685. rest_env:            dc.w 0,0,0,0,0,0,0,0,0,255
  3686. blip:        dc.w 0,33,33,7,7,33,33,10,29,28,24,20,16,14,12,10,8,6,4,2,0,255
  3687.  
  3688.  
  3689.  
  3690. squelch1
  3691.         dc.w 1  
  3692.              dc.l squelch1d
  3693.              dc.w 2488/2 
  3694.              dc.l restd
  3695.              dc.w 16/2
  3696. squelch2
  3697.         dc.w 1  
  3698.              dc.l squelch2d
  3699.              dc.w 2093/2 
  3700.              dc.l restd
  3701.              dc.w 16/2
  3702. squelch3
  3703.         dc.w 1  
  3704.              dc.l squelch3d
  3705.              dc.w 2319/2 
  3706.              dc.l restd
  3707.              dc.w 16/2
  3708. squelch4
  3709.         dc.w 1  
  3710.              dc.l squelch4d
  3711.              dc.w 2998/2 
  3712.              dc.l restd
  3713.              dc.w 16/2
  3714. squelch5
  3715.         dc.w 1  
  3716.              dc.l squelch5d
  3717.              dc.w 3168/2 
  3718.              dc.l restd
  3719.              dc.w 16/2
  3720. squelch6
  3721.         dc.w 1  
  3722.              dc.l squelch6d
  3723.              dc.w 2602/2 
  3724.              dc.l restd
  3725.              dc.w 16/2
  3726.  
  3727.  
  3728.  
  3729. TAKEOFF         
  3730.         dc.w 1  
  3731.              dc.l takeoffd
  3732.              dc.w 3754/2 
  3733.              dc.l rest_data
  3734.              dc.w 16/2
  3735.  
  3736. twinkle         
  3737.         dc.w 1  
  3738.              dc.l twinkled
  3739.              dc.w 1530/2 
  3740.              dc.l twinkled
  3741.              dc.w 1530/2
  3742.  
  3743. whoops         
  3744.         dc.w 1  
  3745.              dc.l whoopsd
  3746.              dc.w 4758/2 
  3747.              dc.l restd
  3748.              dc.w 16/2
  3749.  
  3750.  
  3751. rabbit         
  3752.         dc.w 1  
  3753.              dc.l rabbitd
  3754.              dc.w 3978/2 
  3755.              dc.l restd
  3756.              dc.w 16/2
  3757.  
  3758.  
  3759. foot         
  3760.         dc.w 1  
  3761.              dc.l footd
  3762.              dc.w 900/2 
  3763.              dc.l restd
  3764.              dc.w 16/2
  3765. sine         
  3766.         dc.w 1  
  3767.              dc.l sine_datad
  3768.              dc.w 32/2 
  3769.              dc.l sine_datad
  3770.              dc.w 32/2 
  3771.  
  3772.  
  3773.  
  3774. restd:
  3775. rest_data:
  3776.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  3777.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  3778.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  3779.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  3780.  
  3781. sine_datad:
  3782.              dc.w 127,100,50,25,0,-25,-50,-100,-127
  3783.              dc.w -127,-100,-50,-25,0,25,50,100,127
  3784.  
  3785.  
  3786. ;*************************************************
  3787.  
  3788. squelch1d        ;incbin df1:squelch1.con
  3789. squelch2d        ;incbin df1:squelch2.con
  3790. squelch3d        ;incbin df1:squelch3.con
  3791. squelch4d        ;incbin df1:squelch4.con
  3792. squelch5d        ;incbin df1:squelch5.con
  3793. squelch6d        ;incbin df1:squelch6.con
  3794. takeoffd        ;incbin df1:TAKEOFF8.CON
  3795. twinkled        ;incbin df1:TWINKLE8.CON
  3796. whoopsd            ;incbin df1:whoops9k.CON
  3797. rabbitd            ;incbin df1:RABBIT16.con
  3798. footd            ;incbin df1:FOOTF17.CON
  3799.  
  3800.  
  3801.     end
  3802.  
  3803.  
  3804.  
  3805.  
  3806. ;______________________________________________________________________
  3807.  
  3808.  
  3809.  
  3810. ;-------
  3811.  
  3812.  
  3813.  
  3814.  
  3815. ;NICESH08.CON                4728 
  3816. ;NICESHOT.CON                9456 
  3817. ;NICESHO1.CON                6976 
  3818. ;GOODHIT1.CON                4500 
  3819. ;BULLSEY2.CON                5016 
  3820. ;BULLSEY1.CON                6090 
  3821. ;NICEL.CON                   6130 
  3822. ;STRIKEE1.CON               12336 
  3823. ;STRIKEE.CON                12336 
  3824. ;GUN1.CON                    2914 
  3825. ;WHEELS.CON                  1808 
  3826. ;BRAKESL.CON                 1130 
  3827. ;NOISEL.CON                  2380 
  3828. ;JETENG1.CON                 8952 
  3829. ;SKID.CON                    5176 
  3830. ;EXPLOSI8.CON                4882 
  3831. ;17 files - 211 blocks used
  3832.  
  3833.  
  3834.     ;            dc.w modon,1,1,8,8,6,6
  3835.     ;dc.w pbend,down,20,60000,1
  3836.     ;dc.w    c01,cr*32
  3837.  
  3838.  
  3839.  
  3840.  
  3841.  
  3842.