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