home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Midwin Amiga / Lowe_MidwinAmiga.adf / midwin.s < prev    next >
Encoding:
Text File  |  1978-04-25  |  83.8 KB  |  4,506 lines
  1.  
  2.     ;    DRIVER AND MUSIC REMAIN COPYRIGHT D.LOWE 
  3.  
  4.     ;         F15II INGAME TUNES and FX
  5.  
  6.  
  7.     ; ADRIAN,
  8.     ; The fx are not prioritised in this version as I'm not
  9.     ; sure you will need it with all four channels running fx.
  10.     ; If you do let me know.The engine always go to channel 4.
  11.     ; THe simplest way to change the pitch to simulate the speed
  12.     ; variations is to write directly to the period value location
  13.     ; for channel 4 in the hardware registers ($dff0d0+6..word)
  14.     ; once the engine fx has been tr 480*2
  15. b00  equ  453*2
  16.  
  17. c01  equ  428*2
  18. db01  equ  404*2
  19. d01 equ  381*2
  20. eb01  equ  360*2
  21. e01  equ  339*2
  22. f01  equ  320*2
  23. gb01  equ  302*2
  24. g01  equ  285*2
  25. ab01 equ 269*2
  26. a01  equ  508
  27. bb01  equ  480
  28. b01  equ  453
  29.  
  30. c02  equ  428
  31. db02  equ  404
  32. d02  equ  381
  33. eb02  equ  360
  34. e02  equ  339
  35. f02  equ  320
  36. gb02  equ  302
  37. g02  equ  285
  38. ab02 equ 269
  39. a02  equ  254
  40. bb02  equ  240
  41. b02  equ  226
  42.  
  43. c03  equ  214
  44. db03  equ  202
  45. d03  equ  190
  46. eb03  equ  180
  47. e03  equ  170
  48. f03  equ  160
  49. gb03  equ  151
  50. g03  equ  143
  51. ab03 equ 135
  52. a03  equ  127
  53.  
  54. bb03  equ  480*2
  55. b03  equ  453*2
  56.  
  57. c04  equ  428*2
  58. db04  equ  404*2
  59. d04 equ  381*2
  60. eb04  equ  360*2
  61. e04  equ  339*2
  62. f04  equ  320*2
  63. gb04  equ  302*2
  64. g04  equ  285*2
  65. ab04 equ 269*2
  66. a04  equ  508
  67. bb04  equ  480
  68. b04  equ  453
  69.  
  70. c05  equ  428
  71. db05  equ  404
  72. d05  equ  381
  73. eb05  equ  360
  74. e05  equ  339
  75. f05  equ  320
  76. gb05  equ  302
  77. g05  equ  285
  78. ab05 equ 269
  79. a05  equ  254
  80. bb05  equ  240
  81. b05  equ  226
  82.  
  83. c06  equ  214
  84. db06  equ  202
  85. d06  equ  190
  86. eb06  equ  180
  87. e06  equ  170
  88. f06  equ  160
  89. gb06  equ  151
  90. g06  equ  143
  91. ab06 equ 135
  92. a06  equ  127
  93. bb06  equ  480*2
  94. b06  equ  453*2
  95.  
  96. c07  equ  428*2
  97. db07  equ  404*2
  98. d07 equ  381*2
  99. eb07  equ  360*2
  100. e07  equ  339*2
  101. f07  equ  320*2
  102. gb07  equ  302*2
  103. g07  equ  285*2
  104. ab07 equ 269*2
  105. a07  equ  508
  106. bb07  equ  480
  107. b07  equ  453
  108.  
  109. c08  equ  428
  110. db08  equ  404
  111. d08  equ  381
  112. eb08  equ  360
  113. e08  equ  339
  114. f08  equ  320
  115. gb08  equ  302
  116. g08  equ  285
  117. ab08 equ 269
  118. a08  equ  254
  119. bb08  equ  240
  120. b08  equ  226
  121.  
  122.  
  123. v equ 0
  124.  
  125. no_loop equ 0
  126. loop equ 0
  127. chann1reg   equ $dff0a0    
  128. chann2reg   equ $dff0b0
  129. chann3reg   equ $dff0c0
  130. chann4reg   equ $dff0d0
  131. dmacon     equ $dff096
  132. int_bf_int   equ   $dff01e
  133. int_bf_w    equ   $dff09a
  134. vhposr     equ   $dff006
  135. in_line    equ   0
  136. new_snd    equ   4
  137. end_song     equ   1
  138. end_patt    equ   8
  139. new_env    equ   12
  140. pbend     equ   16
  141.  
  142. ;cr  equ   16
  143. ;tq1 equ 7
  144. ;tq2 equ 6
  145. ;tq equ 8
  146. ;q equ cr/2
  147. ;sq equ q/2
  148.  
  149. hi: equ 223
  150. lo:  equ 446
  151.  
  152. r22    equ 134
  153. r20    equ 179        ;correctum
  154. r19    equ 150
  155. r18    equ 178
  156. r17    equ 200
  157. r16:    equ 227        ;correctum
  158. r15:    equ 249
  159. r13:    equ 305
  160. r12:    equ 333
  161. r11:    equ 361
  162. r10:    equ 389
  163. r9:    equ 419
  164. r8:    equ 446
  165. r7:    equ 446+112
  166. r6:    equ 446+223
  167. r5:    equ 446+223+112
  168. r4:    equ 446*2
  169. r3:    equ 446*3
  170. r2:    equ 446*4
  171. r1:    equ 446*8
  172.  
  173.  
  174. filter: equ $bfe001
  175. filter_on equ 44
  176. filter_off equ 48
  177.  
  178. modon     equ   20
  179. pboff     equ   24
  180. modoff     equ   28
  181. rest     equ 32
  182. end_fxp  equ 36
  183. end_fx3  equ 36
  184. end_fx4  equ 40
  185. acc    equ 52
  186. repeat    equ 56
  187. down      equ   1
  188. up       eq,tQ
  189.       dc.w r16,tQ
  190.       dc.w r16,tQ
  191.       dc.w r16,tQ
  192.       dc.w r16,tQ
  193.       dc.w r16,tQ
  194.       dc.w end_patt
  195. p33me:     
  196.       dc.w new_env
  197.     dc.l kick_env
  198.       dc.w new_snd
  199.       dc.l kik1
  200.       dc.w r16,tQ
  201.       dc.w r16,tQ
  202.       dc.w r16,tQ
  203.       dc.w r16,tQ
  204.       dc.w new_snd
  205.       dc.l hatcl
  206.       dc.w r16,tsQ,r16,tsQ
  207.       dc.w new_snd
  208.       dc.l kik1
  209.       dc.w r16,tQ
  210.       dc.w end_patt
  211.  
  212. CR      set 20
  213. tcr1     set 9
  214. tcr2     set 8
  215. Q       set cr/2
  216. tq1      set 4
  217. tq2      set 5
  218. ;tsq     set 3
  219. ;tsq2     set 2
  220. SQ      set cr/4
  221. ;m       set 254
  222. ;rest     set $fd00
  223. hposr,d0
  224.         andi.w #%1111111100000000,d0
  225.         cmpi.w #%1111111100000000,d0
  226.  
  227.     bne no_test1
  228.     rts
  229.  
  230. testfx4:  
  231.  
  232.     jsr    kill_chip
  233.     move.w #1,int_disable
  234.     clr.l d0
  235.     move.b $bfe001,d0
  236.     btst #6,d0
  237.     beq testfx4
  238.  
  239.     move.l song_buffer,d0
  240.     addq.l #1,d0
  241.     cmp.l    #18,d0
  242.     bne nores
  243.     move.l #1,d0
  244. nores    move.l d0,song_buffer
  245.     jsr    select_new_song
  246.  
  247.  
  248.     ;move.l fx_last,d0
  249.     ;move.l d0,fx_kill
  250.  
  251.     ;jsr kill_loopfx        ;only one fx at a time
  252.  
  253.  
  254. no_k
  255.         move.l fx_no,fx_number
  256.     move.l fx_no,fx_last
  257.     addq.l #1,fx_no
  258.     move.l    max_fx,d0
  259.         cmp.l fx_no,d0
  260.     bne noreset
  261.     move.l #1,fx_no    
  262. noreset: 
  263.     jsr set_up_fx
  264.     bra no_test    
  265.  
  266. fxtc:          dc.w 10
  267. fx_no:         dc.l  1
  268. fx_last        dc.l  0
  269.  
  270.  
  271. ;        END OF CONTROL (DELETABLE) SECTION
  272.  
  273. ;**********************************************************
  274.  
  275. ; --------------------------------------------------------------
  276.  
  277. ;    MAIN VARIABLES TO BE ACCESSED BY PROGRAMMER DURING RUNTIME
  278.  
  279.  
  280. fx_number:     dc.l 0 ;     number of fx required here...see list
  281. fx_kill        dc.l 0 ;     number of fx to kill/only needed for looped fx
  282.  
  283. song_buffer     dc.l 1 ;     number of piece of music required here ie.1 to 5
  284.  
  285. music_disable:  dc.w 0 ;     1 = disable music
  286. fx_disable:     dc.w 1 ;     1 = disable fx  (currently disabled)
  287.  
  288. ;    +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  289.  
  290. ;  THESE VARIABLES ARE USED INTERNALLY BY THE DRIVER
  291. fxr1         dc.l 0  
  292. fxr2         dc.l 0  
  293. fxr3         dc.l 0  
  294. fxr4         dc.l 0  
  295. fxc1        dc.l 0
  296. fxc2          dc.l 0
  297. fxc3        dc.l 0
  298. fxc4          dc.l 0
  299. fx1_flag    dc.w 0
  300. fx2_flag    dc.w 0
  301. fx3_flag    dc.w 0
  302. fx4_flag    dc.w 0
  303. fxtimer        dc.w 0
  304. gen        dc.w 0
  305. int_disable    dc.w 0
  306. altpf         dc.w 0
  307. kill_flag    dc.w 0
  308. ;  *******************************************************
  309.  
  310. ;  CALL THIS SUBROUTINE TO SET UP THE REQIURED FX
  311. ;  on entry it requires the fx number to be in "fx_number"(see above)
  312. ;  
  313.  
  314. set_up_fx
  315.     movem.l d5/a2,-(a7)    ;save used registers
  316.     move.l #1,d0
  317.     cmp fx_number,d0
  318.     bne check3        ;engine to 4
  319.  
  320.     tst.l fxc4
  321.     bne check3
  322. use4:    
  323.     move.w #%00000000000010iggered.
  324.     ; Its probaly best if you do this as you can then  decide the pitch 
  325.     ; variation yourself.
  326.     ; 
  327.     ; I think I have commented everything you need to know
  328.     ; to get it running but dont hesitate to ring if something
  329.     ; is unclear.
  330.  
  331.  
  332.     ;        DAVE LOWE.....0723  870648
  333.  
  334.  
  335. ;        **************************
  336.  
  337.     section issA,code_c    ;must be in low memory for dma access
  338.                 ;DEVPAC PSEUDO OP ..CAN BE DELETED
  339.  
  340.  
  341. ;*****************************************
  342.  
  343.         ;  ALL EQUs
  344.  
  345. a00  equ  508*2
  346. bb00  equ 
  347.     bne use3
  348. use1:
  349.     move.w #%0000000000000001,d5
  350.     lea chann1reg,a2
  351.     jsr end_fx1p
  352.     move.l fx_number,fxr1
  353.     move.l fx_number,fxc1
  354.     move.l #0,fx_number
  355. no_fx
  356.     movem.l (a7)+,d5/a2    ;restore registers
  357.     rts
  358.  
  359. ;*************************************************
  360. ;          CALL HERE TO KILL ANY LOOPED FX...
  361. ;       after putting the number of the fx you want to kill
  362. ;            into fx_kill
  363.  
  364. kill_loopfx
  365.  
  366.     movem.l d5/a2,-(a7)    ;save used registers
  367.     move.l fx_kill,d5
  368.     cmp.l fxc1,d5
  369.     bne k2
  370.     move.w #%0000000000000001,d5
  371.     lea chann1reg,a2
  372.     jsr end_fx1p
  373.     bra error
  374. k2    cmp.l fxc2,d5
  375.     bne k3
  376.     move.w #%0000000000000010,d5
  377.     lea chann2reg,a2
  378.     jsr end_fx2p
  379.     bra error
  380. k3    cmp.l fxc3,d5
  381.     bne k4
  382.     move.w #%0000000000000100,d5
  383.     lea chann3reg,a2
  384.     jsr end_fx3p
  385.     bra error
  386. k4    cmp.l fxc4,d5
  387.     bne error
  388.     move.w #%0000000000001000,d5
  389.     lea chann2reg,a2
  390.     jsr end_fx4p
  391. error
  392.     clr.l fx_kill
  393.     movem.l (a7)+,d5/a2    ;restore registers
  394.     rts
  395. ;*************************************************
  396.  
  397.     ; CALL HERE TO KILL ANY SOUND for whatever reason
  398.  
  399. kill_chip:
  400.     move.w #%0000000000001111,dmacon
  401.     move.l rest_data,chann1reg
  402.     move.l rest_data,chann2reg
  403.     move.l rest_data,chann3reg
  404.     move.l rest_data,chann4reg
  405.     move.w #16,chann1reg+4    
  406.     move.w #16,chann2reg+4    
  407.     move.w #16,chann3reg+4    
  408.     move.w #16,chann4reg+4    
  409.     move.w #0,chann1reg+8
  410.     move.w #0,chann2reg+8
  411.     move.w #0,chann3reg+8
  412.     move.w #0,chann4reg+8
  413.     move.w #1,chann1reg+6
  414.     move.w #1,chann2reg+6
  415.     move.w #1,chann3reg+6
  416.     move.w #1,chann4reg+6
  417.     move.l #0,fxr1
  418.     move.l #0,fxr2
  419.     move.l #0,fxr3
  420.     move.l #0,fxr4
  421.     move.w #0,fx1_flag
  422.     move.w #0,fx2_flag
  423.     move.w #0,fx3_flag
  424.     move.w #0,fx4_flag
  425.     move.l #0,fxc1
  426.     move.l #0,fxc2
  427.     move.l #0,fxc3
  428.     move.l #0,fxc4
  429.     rts
  430. ;****************************************
  431.  
  432. ;  CALL HERE TO SELECT WHICH PIECE OF MUSIC TO PLAY
  433. ;  AFTER PLACING NUMBER (1 to 3) IN "SONG_BUFFER"..see above
  434. ;  a call to this routine will initiliase the driver/kill any sound etc.      
  435. ;  make sure this routine has been called before running the interrupt
  436. ;  driven section....see below
  437.  
  438. select_new_song:
  439.  
  440.     move.w #1,int_disable
  441.     movem.l d0/d1/a0/a1,-(a7)    ;save used registers
  442.     move.w music_disable,gen
  443.     move.w #1,music_disable
  444.         jsr kill_chip           
  445.     clr.l d0
  446.         move.w #204,d0
  447.         lea gvars,a0
  448. clloop: clr.w (a0)+        
  449.         dbra  d0,clloop
  450.     tst.l song_buffer
  451.     beq no_song
  452.         move.l song_buffer,d1
  453.     add.l d1,d1
  454.      add.l d1,d1
  455.      add.l d1,d1
  456.      add.l d1,d1
  457.         LEA  SONG_TABLE-16,A1
  458.         add.l d1,a1      
  459.         MOVE.L (A1)+,WSONG1    
  460.         move.l (a1)+,wsong2    
  461.         move.l (a1)+,wsong3
  462.     move.l (a1),wsong4
  463.         MOVE.L #pstart,PATTR1
  464.         MOVE.L #pstart,PATTR2
  465.         MOVE.L #pstart,PATTR3
  466.     move.l #pstart,pattr4
  467.         move.l #sstart,songr1
  468.         MOVE.L #sstart,SONGR2
  469.         MOVE.L #sstart,SONGR3
  470.     move.l #sstart,songr4
  471. no_song
  472.     move.w #1,ch1vars
  473.     move.w #2,ch2vars
  474.     move.w #3,ch3vars
  475.     move.w #4,ch4vars
  476.     move.w #6,ch4fxvars
  477.     move.w #5,ch3fxvars
  478.     move.w #7,ch2fxvars
  479.     move.w #8,ch1fxvars
  480.     move.w gen,music_disable
  481.     clr.w int_disable
  482.     movem.l (a7)+,d0/d1/a0/a1    ;restore registers
  483.         rts
  484.  
  485. ;**************************************************
  486.  
  487. ;  CALL HERE ON A 50hz INTERRUPT DURING RUNTIME
  488. ;  TO PLAY FX AND TUNES
  489.  
  490. driver:  
  491.     tst.w int_disable
  492.     beq process_data
  493.     rts        
  494. process_data
  495.     movem.l d0-d6/a0-a6,-(a7)    ;save used registers
  496.  
  497.  
  498. ch1:
  499.     tst.w fx_disable
  500.     bne test_music1
  501.     tst.l fxr1
  502.     bne   ch1j1
  503.     tst.l fxc1
  504.     beq test_music1
  505.     bra ch1j3
  506. ch1j2    jsr run_dummy1
  507.     jsr run_fx1
  508.     bra ch2
  509. ch1j1
  510.     jsr set_up1
  511. ch1j3    tst.w music_disable    
  512.     beq ch1j2
  513.     jsr run_fx1
  514.     bra ch2
  515. test_music1
  516.     tst.w music_disable
  517.     bne ch2
  518.     jsr run_music1
  519.     bra ch2
  520.     ;***********************
  521.  
  522.     ; channel 1 subroutines
  523.  
  524. run_dummy1    
  525.      lea ch1vars,a0
  526.      lea dummy_reg,a2 
  527.      move.w #0,d5 
  528.      jsr sect1    
  529.     rts
  530.  
  531. set_up1    
  532.          move.l fxr1,d0
  533.          add d0,d0
  534.          add d0,d0
  535.          lea  fxjump_table-4,A1
  536.      add.l d0,a1
  537.          move.l (a1),currfx1
  538.       clr.l fxr1
  539.      clr.w fxintc1
  540.       rts
  541.   
  542.      
  543. run_fx1
  544.     lea ch1fxvars,a0
  545.        lea chann1reg,a2
  546.       move.w #%0000000000000001,d5 
  547.      move.w #%1000001000000001,d1 
  548.      jsr sect1
  549.     rts
  550.  
  551. run_music1
  552.     lea ch1vars,a0
  553.        lea chann1reg,a2
  554.       move.w #%0000000000000001,d5 
  555.       move.w #%1000001000000001,d1 
  556.       jsr sect1     
  557.     rts
  558.  
  559.     ;  **************************
  560. ch2
  561.     tst.w fx_disable
  562.     bne test_music2
  563.     tst.l fxr2
  564.     bne   ch2j1
  565.     tst.l fxc2
  566.     beq test_music2
  567.     bra ch2j3
  568. ch2j2    jsr run_dummy2
  569.     jsr run_fx2
  570.     bra ch3
  571. ch2j1
  572.     jsr set_up2
  573. ch2j3    tst.w music_disable    
  574.     beq ch2j2
  575.     jsr run_fx2
  576.     bra ch3
  577.  
  578. test_music2
  579.     tst.w music_disable
  580.     bne ch3
  581.     jsr run_music2
  582.     bra ch3
  583.     ;***********************
  584.     ; channel 2 subroutines
  585. run_dummy2    
  586.      lea ch2vars,a0
  587.      lea dummy_reg,a2 
  588.      move.w #0,d5 
  589.      jsr sect1    
  590.     rts
  591.  
  592. set_up2    
  593.          move.l fxr2,d0
  594.          add d0,d0
  595.          add d0,d0
  596.          lea  fxjump_table-4,A1
  597.      add.l d0,a1
  598.          move.l (a1),currfx2
  599.       clr.l fxr2
  600.      clr.w fxintc2
  601.       rts
  602.   
  603.      
  604. run_fx2
  605.     lea ch2fxvars,a0
  606.        lea chann2reg,a2
  607.       move.wu   2
  608.  
  609. ;***************************************************************
  610.  
  611.  
  612.  ;    THIS IS THE CONTROL SECTION FOR TESTING AS A STAND ALONE PRG. 
  613.  
  614.     ;       AND CAN BE DELETED WHEN NOT REQUIRED
  615.  
  616.  
  617.     jsr select_new_song
  618.  
  619. testloop:
  620.     jsr delay    ;wait for scan line  at 50hz on pal
  621.  
  622.     jsr driver
  623.  
  624.         bra testloop
  625.  
  626.  
  627. delay:
  628.     tst.w fxtimer
  629.     bne no_test
  630.     clr.l d0
  631.     move.b $bfe001,d0
  632.     btst #6,d0
  633.     bne no_test1
  634.     move.w #10,fxtimer
  635.     bra testfx4
  636. no_test
  637.     subq #1,fxtimer
  638. no_test1
  639.     clr.l d0
  640.         move.w v.w music_disable
  641.     bne ch4
  642.     jsr run_music3
  643.     bra ch4
  644.  
  645.     ;***********************
  646.  
  647.     ; channel 3 subroutines
  648.  
  649. run_dummy3    
  650.      lea ch3vars,a0
  651.      lea dummy_reg,a2 
  652.      move.w #0,d5 
  653.      jsr sect1    
  654.     rts
  655.  
  656. set_up3    
  657.          move.l fxr3,d0
  658.          add d0,d0
  659.          add d0,d0
  660.          lea  fxjump_table-4,A1
  661.      add.l d0,a1
  662.          move.l (a1),currfx3
  663.       clr.l fxr3
  664.      clr.w fxintc3
  665.       rts
  666.   
  667.      
  668. run_fx3
  669.     lea ch3fxvars,a0
  670.        lea chann3reg,a2
  671.       move.w #%0000000000000100,d5 
  672.      move.w #%1000001000000100,d1 
  673.      jsr sect1
  674.     rts
  675.  
  676. run_music3
  677.     lea ch3vars,a0
  678.        lea chann3reg,a2
  679.       move.w #%0000000000000100,d5 
  680.       move.w #%1000001000000100,d1 
  681.       jsr sect1     
  682.     rts
  683.  
  684.     ;  **************************
  685.  
  686. ch4:
  687.     tst.w fx_disable
  688.     bne test_music4
  689.     tst.l fxr4
  690.     bne   ch4j1
  691.     tst.l fxc4
  692.     beq test_music4
  693.     bra ch4j3
  694. ch4j2    jsr run_dummy4
  695.     jsr run_fx4
  696.     bra no4
  697. ch4j1
  698.     jsr set_up4
  699. ch4j3    tst.w music_disable    
  700.     beq ch4j2
  701.     jsr run_fx4
  702.     bra no4
  703.  
  704. test_music4
  705.     tst.w music_disable
  706.     bne no4
  707.     jsr run_music4
  708. no4    
  709.     movem.l (a7)+,d0-d6/a0-a6    ;restore registers
  710.     rts
  711.  
  712.     ;***********************
  713.  
  714.     ; channel 4 subroutines
  715.  
  716. run_dummy4    
  717.      lea ch4vars,a0
  718.      lea dummy_reg,a2 
  719.      move.w #0,d5 
  720.      jsr sect1    
  721.     rts
  722.  
  723. set_up4    
  724.          move.l fxr4,d0
  725.          add d0,d0
  726.          add d0,d0
  727.          lea  fxjump_table-4,A1
  728.      add.l d0,a1
  729.          move.l (a1),currfx4
  730.       clr.l fxr4
  731.      clr.w fxintc4
  732.       rts
  733.   
  734.      
  735. run_fx4
  736.     lea ch4fxvars,a0
  737.        lea chann4reg,a2
  738.       move.w #%0000000000001000,d5 
  739.      move.w #%1000001000001000,d1 
  740.      jsr sect1
  741.     rts
  742.  
  743. run_music4
  744.     lea ch4vars,a0
  745.        lea chann4reg,a2
  746.       move.w #%0000000000001000,d5 
  747.       move.w #%1000001000001000,d1 
  748.       jsr sect1     
  749.     rts
  750.     ;  **************************
  751.  
  752. sect1: tst.w 0(a0)
  753.     bne s1j1
  754.     rts
  755.  
  756. s1j1:    tst.w 2(a0)
  757.         beq sect3       
  758.         cmpi.w #1,2(a0)
  759.         beq sect4
  760.  
  761.         cmpi.w #3,4(a0)    
  762.         beq part2       
  763.     
  764. mode_switch:  subq.w #1,2(a0)     
  765.  
  766. check_effects: clr.w altpf      
  767.         move.w 6(a0),d2    
  768.         tst.w 8(a0)      
  769.         beq check_mod
  770.         tst.w 14(a0)      
  771.         beq cont_bend
  772.         subq.w #1,14(a0)
  773.         bra check_mod
  774. cont_bend:   addq.w #1,altpf    
  775.         move.w 10(a0),d3    
  776.         move.w 12(a0),d4    
  777.         cmpi.w #1,8(a0)
  778.         beq pbup
  779.     
  780.         sub.w d3,d2
  781.         cmp.w d2,d4
  782.         bcs check_mod
  783.         bra fbend
  784.  
  785. pbup:     add.w d3,d2
  786.         cmp.w d2,d4
  787.         bcc check_mod
  788. fbend:     move.w d4,d2
  789.         clr.w 8(a0)      
  790. check_mod:   tst.w 16(a0)
  791.         beq send_alt_pitch
  792.    
  793.  
  794.     tst.w  58(a0)
  795.     beq st_ok
  796.     subq.w #1,58(a0)
  797.     bra send_alt_pitch
  798. st_ok:
  799.         tst.w 50(a0)
  800.         beq cont_mod
  801.         subq #1,50(a0)
  802.         bra send_alt_pitch
  803. cont_mod:    move.w 52(a0),50(a0)  
  804.         addq #1,altpf
  805.         cmpi #3,16(a0)
  806.         bcc addmod
  807.     
  808.         move.w 56(a0),d3 
  809.         sub.w d3,d2
  810.         addq.w #1,16(a0)  
  811.         bra send_alt_pitch
  812. addmod:
  813.  
  814.         move.w 54(a0),d3 
  815.         add.w d3,d2
  816.         addq.w #1,16(a0)
  817.         cmpi.w #5,16(a0)
  818.        bne send_alt_pitch
  819.         move.w #1,16(a0)  
  820.  
  821. send_alt_pitch: tst.w altpf
  822.         beq send_env
  823.         move.w d2,6(a0)  
  824.         move.w d2,6(a2)  
  825.  
  826. send_env: 
  827.  
  828.     cmpi #6,(a0)
  829.     beq norm_env    
  830.     cmpi #5,(a0)
  831.     bne do_env_check
  832.  
  833.     tst.w fx4_flag
  834.     beq norm_env
  835.     bra low_vol
  836.  
  837. do_env_check:
  838.     move.w fx3_flag,d0
  839.     or.w fx4_flag,d0
  840.     cmpi.w  #0,d0
  841.     beq norm_env
  842. low_vol:    
  843.     move.l 18(a0),a1    
  844.         cmpi.w #255,(a1)
  845.         beq evj1
  846.     move.w (a1)+,d0
  847. evj2:    sub.w  62(a0),d0
  848.     bcc no_over
  849.     move.w 0,d0
  850. no_over:
  851.         move.w d0,8(a2) 
  852.     bra fint        
  853.  
  854. evj1:   subq.l #2,a1
  855.     move.w (a1)+,d0
  856.     bra evj2
  857.  
  858. norm_env:
  859.     move.l 18(a0),a1    
  860.         cmpi.w #255,(a1)
  861.         beq env_finished
  862.     cmpi.w #1,66(a0)    
  863.     bne    no_acc 
  864.  
  865.     clr.l d0
  866.     move.w (a1)+,d0
  867.     add.w 64(a0),d0    
  868.     move.w d0,8(a2)    
  869.     move.l a1,18(a0)
  870.     rts        
  871.  
  872. no_acc:
  873. resu:   move.w (a1)+,8(a2)   
  874. fint:   move.l a1,18(a0)    
  875.     rts
  876.  
  877. env_finished:
  878.      subq.l #2,a1    
  879.      bra resu
  880.  
  881.  
  882. one_shot_note: move.w #3,4(a0)     
  883.         move.l 38(a0),(a2)
  884.         move.w 42(a0),4(a2)
  885.         move.w d1,dmacon     
  886.         bra send_env
  887.  
  888.  
  889. part2:                         
  890.         move.l 44(a0),(a2)
  891.         move.w 48(a0),4(a2)
  892.         subq.w #1,2(a0)      
  893.         move.w #1,4(a0)
  894.         bra check_effects
  895.  
  896. sect3:
  897.     move.w 0,66(a0)    
  898.  
  899.     move.l 22(a0),a1  
  900. control_ret: move.w (a1)+,d0  
  901.     cmpi.w #100,d0   
  902.     bls sect5   
  903.   
  904. acc_note:
  905.     move.w d0,6(a0)  
  906.     move.w d0,6(a2)  
  907.     move.w (a1)+,2(a0) 
  908.     subq.w #1,2(a0)  
  909.     move.l a1,22(a0)  
  910.     move.l 34(a0),18(a0) 
  911.     move.w 60(a0),58(a0) 
  912.  
  913.  
  914.     tst.w 16(a0)
  915.     beq no_mod_res
  916.     move.w #1,16(a0)
  917. no_mod_res:
  918.     cmpi.w #0,4(a0)
  919.     beq do_loop
  920.     bra one_shot_note    
  921.  
  922.  
  923. do_loop:    move.w d1,dmacon   
  924.         bra send_env
  925.  
  926. do_rest:
  927.     move.w (a1)+,2(a0) 
  928.     subq.w #1,2(a0)  
  929.     move.l a1,22(a0)  
  930.     move.l  #rest_env,18(a0)
  931.  
  932.         move.w #0,8(a2)
  933.         bra send_env
  934.    
  935. sect4:
  936.         cmpi.w #0,4(a0)
  937.         beq noof
  938.         move.w d5,dmacon   
  939. noof:     00,d5
  940.     lea chann4reg,a2
  941.     jsr end_fx4p
  942.     move.l fx_number,fxr4
  943.     move.l fx_number,fxc4
  944.     move.l #0,fx_number
  945.     bra no_fx
  946. check3:    tst.l fxc3
  947.     bne check2
  948. use3:
  949.     move.w #%0000000000000100,d5
  950.     lea chann3reg,a2
  951.     jsr end_fx3p
  952.     move.l fx_number,fxr3
  953.     move.l fx_number,fxc3
  954.     move.l #0,fx_number
  955.     bra no_fx
  956. check2:    tst.l fxc2
  957.     bne check1
  958. use2:
  959.     move.w #%0000000000000010,d5
  960.     lea chann2reg,a2
  961.     jsr end_fx2p
  962.     move.l fx_number,fxr2
  963.     move.l fx_number,fxc2
  964.     move.l #0,fx_number
  965.     bra no_fx
  966. check1:    tst.l fxc1 (a1),a1
  967.     bra control_ret
  968.  
  969. s_f_on: 
  970.     bclr #1,filter
  971.     bra control_ret
  972. s_f_off:
  973.     bset #1,filter
  974.     bra control_ret
  975.  
  976. nsound:    move.l (a1)+,a3     
  977.         cmpi.w #0,(a3)
  978.         bne one_shot_sound
  979.         move.w (a3)+,4(a0)    
  980.         move.l (a3)+,(a2)     
  981.         move.w (a3),4(a2)    
  982.         jmp control_ret
  983.  
  984. one_shot_sound:
  985.         move.w (a3)+,4(a0)
  986.         move.l (a3)+,38(a0)   
  987.         move.l (a3)+,42(a0)
  988.         move.l (a3),46(a0)
  989.         jmp control_ret
  990.  
  991. patt_end:
  992.  
  993.         move.l 26(a0),a1    
  994.         cmpi.l #0,(a1)     
  995.         beq song_control
  996.         addq.l #4,26(a0)    
  997.         move.l (a1),a1     
  998.         jmp control_ret
  999. get_env: 
  1000.        move.l (a1)+,a4 
  1001.     move.l (a4)+,62(a0)    
  1002.     
  1003.     move.l  a4,34(a0)    
  1004.     
  1005.         bra control_ret
  1006.  
  1007. check_pbend:
  1008.      move.l (a1)+,8(a0)
  1009.         move.l (a1)+,12(a0)
  1010.         bra control_ret
  1011.  
  1012. do_mod:    move.w #1,16(a0)  
  1013.         move.l (a1)+,50(a0)
  1014.         move.l (a1)+,54(a0)
  1015.         move.l (a1)+,58(a0)
  1016.         bra control_ret
  1017.  
  1018. bend_off:   clr.w 8(a0)
  1019.         bra control_ret
  1020.  
  1021. mod_off:    clr.w 16(a0)
  1022.         bra control_ret
  1023.  
  1024.  
  1025. end_fx:    
  1026.     cmpi.w #6,(a0)
  1027.     beq end_fx4p
  1028.     cmpi.w #5,(a0)
  1029.     beq end_fx3p
  1030.     cmpi.w #7,(a0)
  1031.     beq end_fx2p
  1032.  
  1033. end_fx1p:
  1034.         move.w d5,dmacon   
  1035.     move.w  #1,chann1reg+6
  1036.     move.w #0,8(a2)
  1037.     move.l #0,fxc1
  1038.     rts
  1039.  
  1040. end_fx2p:
  1041.     move.w d5,dmacon 
  1042.     move.w  #1,chann2reg+6
  1043.         move.w #0,8(a2) 
  1044.     move.l #0,fxc2
  1045.         rts
  1046.  
  1047.  
  1048. end_fx3p:
  1049.         move.w d5,dmacon   
  1050.     move.w  #1,chann3reg+6
  1051.     move.w #0,8(a2)
  1052.     move.l #0,fxc3
  1053.     rts
  1054.  
  1055. end_fx4p:
  1056.     move.w d5,dmacon 
  1057.     move.w  #1,chann4reg+6
  1058.         move.w #0,8(a2) 
  1059.     move.l #0,fxc4
  1060.         rts
  1061.  
  1062. set_acc: move.w #1,66(a0) 
  1063.     bra control_ret
  1064.  
  1065. song_control:
  1066.         addq.l #4,a1
  1067.         move.l 30(a0),26(a0)
  1068.         move.l 26(a0),a1
  1069.         addq.l #4,26(a0)
  1070.         move.l (a1),a1
  1071.         jmp control_ret
  1072.  
  1073.  
  1074.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  1075.  
  1076.     ;;; DATA
  1077.  
  1078. song_table:
  1079.     dc.l s65,s66,s67,s68    ;1  Main theme        L    done
  1080.     dc.l s1,s2,s3,s4    ;2  restful loop    L    done    
  1081.     dc.l s41,s42,s43,s44    ;3  threatening        S    done
  1082.     dc.l s5,s6,s7,s8    ;4  celebration scene   L    done
  1083.     dc.l s9,s10,s11,s12    ;5  journey        S    done
  1084.     dc.l s13,s14,s15,s16    ;6  anticipation    S    done
  1085.     dc.l s17,s18,s19,s20    ;7  pastoral loop    L    done
  1086.     dc.l s21,s22,s23,s24    ;8  fast + dangerous    S    done
  1087.     dc.l s25,s26,s27,s28    ;9  dramatic loop    L    done
  1088.     dc.l s37,s38,s39,s40    ;10  minor anticlimax    L    done
  1089.     dc.l s29,s30,s31,s32    ;11  a few bars of danger music  S done
  1090.     dc.l s33,s34,s35,s36    ;12  minor triumph    S    done
  1091.     dc.l s45,s46,s47,s48    ;13  high drama        S    done
  1092.     dc.l s49,s50,s51,s52    ;14  nostalgia        S    done
  1093.     dc.l s53,s54,s55,s56    ;15  Great triumph scene L     done
  1094.     dc.l s57,s58,s59,s60    ;16  secretive        S    done
  1095.     dc.l s61,s62,s63,s64    ;17  Great disaster scene  S    done
  1096.  
  1097.  
  1098.  
  1099. ;************************************************************
  1100. gvars:
  1101. ch1vars     
  1102.     dc.w 0     
  1103.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1104. pattr1: dc.l 0    
  1105. songr1: dc.l 0    
  1106. wsong1: dc.l 0   
  1107.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1108.  
  1109. ch2vars     
  1110.     dc.w 0     
  1111.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1112. pattr2: dc.l 0    
  1113. songr2: dc.l 0    
  1114. wsong2: dc.l 0    
  1115.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1116.  
  1117. ch3vars 
  1118.     dc.w 0     
  1119.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1120. pattr3: dc.l 0    
  1121. songr3: dc.l 0    
  1122. wsong3: dc.l 0    
  1123.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1124.  
  1125. ch4vars 
  1126.     dc.w 0     
  1127.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1128. pattr4: dc.l 0    
  1129. songr4: dc.l 0    
  1130. wsong4: dc.l 0    
  1131.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1132.  
  1133.  
  1134. ch1fxvars 
  1135.     dc.w 0     
  1136. fxintc1:
  1137.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1138. currfx1:
  1139.     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    
  1140.  
  1141. ch2fxvars 
  1142.     dc.w 0     
  1143. fxintc2:
  1144.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1145. currfx2:
  1146.     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    
  1147.  
  1148.  
  1149. ch3fxvars
  1150.     dc.w 0     
  1151. fxintc3:
  1152.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1153. currfx3:
  1154.     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    
  1155.  
  1156. ch4fxvars 
  1157.     dc.w 0     
  1158. fxintc4:
  1159.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1160. currfx4:
  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.  
  1164. dummy_reg dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1165.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1166.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1167.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1168. ;************************************************************
  1169.  
  1170.  
  1171.  
  1172. ;       fx patterns here
  1173.  
  1174. fxjump_table:  
  1175.  
  1176.      dc.l jet_engine
  1177.      dc.l niceshot2
  1178.      dc.l niceshot4
  1179.      dc.l goodhit
  1180.      dc.l goodhit2
  1181.      dc.l bullseye
  1182.      dc.l bullseye2
  1183.      dc.l nicelanding
  1184.      dc.l nicelanding2
  1185.      dc.l strikeeagle
  1186.          dc.l     gun
  1187.          dc.l     gun2
  1188.          dc.l     gun3
  1189.          dc.l     gun4
  1190.      dc.l     explosion
  1191.      dc.l     explosion2
  1192.      dc.l     explosion3
  1193.      dc.l     explosion4
  1194.      dc.l     explosion5
  1195.      dc.l     wheels_up
  1196.      dc.l    brakes_on
  1197.      dc.l    fire_missile1
  1198.      dc.l    fire_missile2
  1199.      dc.l    fire_missile3
  1200.      dc.l    skid_wheels
  1201.      dc.l    alarm1
  1202.      dc.l    alarm2
  1203.      dc.l    alarm3
  1204.      dc.l    doppler_plane
  1205.  
  1206.  
  1207.  
  1208. m #%0000000000000010,d5 
  1209.      move.w #%1000001000000010,d1 
  1210.      jsr sect1
  1211.     rts
  1212.  
  1213. run_music2
  1214.     lea ch2vars,a0
  1215.        lea chann2reg,a2
  1216.       move.w #%0000000000000010,d5 
  1217.       move.w #%1000001000000010,d1 
  1218.       jsr sect1     
  1219.     rts
  1220.  
  1221.     ;  **************************
  1222.  
  1223. ch3:
  1224.     tst.w fx_disable
  1225.     bne test_music3
  1226.     tst.l fxr3
  1227.     bne   ch3j1
  1228.     tst.l fxc3
  1229.     beq test_music3
  1230.     bra ch3j3
  1231. ch3j2    jsr run_dummy3
  1232.     jsr run_fx3
  1233.     bra ch4
  1234. ch3j1
  1235.     jsr set_up3
  1236. ch3j3    tst.w music_disable    
  1237.     beq ch3j2
  1238.     jsr run_fx3
  1239.     bra ch4
  1240.  
  1241. test_music3
  1242.     tst.l  nicesho1env
  1243.             dc.w    new_snd
  1244.             dc.l    nicesho1
  1245.             dc.w    r9,39        ;r8,44 
  1246.                            dc.w    end_fxp
  1247.  
  1248. nicesho1env        dc.w 0,64,64,255
  1249. niceshot4
  1250.                         dc.w  new_env
  1251.                         dc.l  nicesho1env
  1252.             dc.w    new_snd
  1253.             dc.l    nicesho1
  1254.             dc.w    r8,44    
  1255.                            dc.w    end_fxp
  1256.  
  1257. goodhit
  1258.                         dc.w  new_env
  1259.                         dc.l  goodhitenv
  1260.             dc.w    new_snd
  1261.             dc.l    goodhit1
  1262.             dc.w    r8,30 
  1263.                            dc.w    end_fxp
  1264.  
  1265. goodhit2
  1266.                         dc.w  new_env
  1267.                         dc.l  goodhitenv
  1268.             dc.w    new_snd
  1269.             dc.l    goodhit1
  1270.             dc.w    r10,23 
  1271.                            dc.w    end_fxp
  1272.  
  1273. goodhitenv        dc.w 0,64,64,255
  1274.  
  1275. bullseye
  1276.                         dc.w  new_env
  1277.                         dc.l  bullseyeenv
  1278.             dc.w    new_snd
  1279.             dc.l    bullsey2
  1280.             dc.w    r8,32 
  1281.                            dc.w    end_fxp
  1282.  
  1283. bullseye2
  1284.                         dc.w  new_env
  1285.                         dc.l  bullseyeenv
  1286.             dc.w    new_snd
  1287.             dc.l    bullsey1
  1288.             dc.w    r8,38 
  1289.                            dc.w    end_fxp
  1290.  
  1291. bullseyeenv        dc.w 0,64,64,255
  1292.  
  1293. nicelanding
  1294.                         dc.w  new_env
  1295.                         dc.l  nicelenv
  1296.             dc.w    new_snd
  1297.             dc.l    nicel
  1298.             dc.w    r8,39 
  1299.                            dc.w    end_fxp
  1300. nicelanding2
  1301.                         dc.w  new_env
  1302.                         dc.l  nicelenv
  1303.             dc.w    new_snd
  1304.             dc.l    nicel
  1305.             dc.w    r10,31
  1306.                            dc.w    end_fxp
  1307.  
  1308. nicelenv        dc.w 0,64,64,255
  1309.  
  1310. strikeeagle
  1311.                         dc.w  new_env
  1312.                         dc.l  strikeeagleenv
  1313.             dc.w    new_snd
  1314.             dc.l    strikee
  1315.             dc.w    r8,77
  1316.                            dc.w    end_fxp
  1317.  
  1318. strikeeagleenv        dc.w 0,64,64,255
  1319.  
  1320. gun
  1321.                         dc.w  new_env
  1322.                         dc.l  gunenv
  1323.             dc.w    new_snd
  1324.             dc.l    gun1
  1325.             dc.w    r12,25
  1326.                            dc.w    end_fxp
  1327. gun2
  1328.                         dc.w  new_env
  1329.                         dc.l  gunenv
  1330.             dc.w    new_snd
  1331.             dc.l    gun1
  1332.             dc.w    r12,7,r12,7,r12,7,r12,7
  1333.             dc.w    r12,7,r12,7,r12,7,r12,7
  1334.  
  1335.  
  1336.                            dc.w    end_fxp
  1337. gun3
  1338.                         dc.w  new_env
  1339.                         dc.l  gunenv
  1340.             dc.w    new_snd
  1341.             dc.l    gun1
  1342.             dc.w    r4,37
  1343.                            dc.w    end_fxp
  1344. gun4
  1345.                         dc.w  new_env
  1346.                         dc.l  gunenv
  1347.             dc.w    new_snd
  1348.             dc.l    explosi8
  1349.  
  1350.             dc.w    220,20
  1351.                            dc.w    end_fxp
  1352.  
  1353. gunenv            dc.w 0,64,64,255
  1354.  
  1355. ;------------------------
  1356.  
  1357. explosion
  1358.                         dc.w  new_env
  1359.                         dc.l  explosionenv
  1360.             dc.w    new_snd
  1361.             dc.l    explosi8
  1362.             dc.w    r8,31
  1363.                            dc.w    end_fxp
  1364. explosion2
  1365.                         dc.w  new_env
  1366.                         dc.l  explosionenv
  1367.             dc.w    new_snd
  1368.             dc.l    explosi8
  1369.             dc.w    r4,61
  1370.                            dc.w    end_fxp
  1371. explosion3
  1372.                         dc.w  new_env
  1373.                         dc.l  explosionenv
  1374.             dc.w    new_snd
  1375.             dc.l    explosi8
  1376.             dc.w    r16,15
  1377.                            dc.w    end_fxp
  1378. explosion4
  1379.                         dc.w  new_env
  1380.                         dc.l  explosionenv
  1381.             dc.w    new_snd
  1382.             dc.l    explosi8
  1383.             dc.w    r2,123
  1384.                            dc.w    end_fxp
  1385.  
  1386. explosion5
  1387.                         dc.w  new_env
  1388.                         dc.l  explosionenv
  1389.             dc.w    new_snd
  1390.             dc.l    explosi8
  1391.             dc.w    r12,13,r4,7,r8,6,r5,3,r2,100
  1392.                            dc.w    end_fxp
  1393.  
  1394.  
  1395.  
  1396.  
  1397. explosionenv        dc.w 0,64,64,255
  1398.  
  1399.  
  1400. wheels_up
  1401.                         dc.w  new_env
  1402.                         dc.l  wheelsenv
  1403.             dc.w    new_snd
  1404.             dc.l    wheels
  1405.             dc.w    r4,23
  1406.                            dc.w    end_fxp
  1407.  
  1408.  
  1409.  
  1410.  
  1411. wheelsenv        dc.w 0,64,64,255
  1412.  
  1413.  
  1414. brakes_on
  1415.                         dc.w  new_env
  1416.                         dc.l  brakesenv
  1417.             dc.w    new_snd
  1418.             dc.l    brakes
  1419.             dc.w    r4,100
  1420.                            dc.w    end_fxp
  1421.  
  1422.  
  1423.  
  1424.  
  1425. brakesenv        dc.w 0,64,64,255
  1426.  
  1427.         ;;;;dc.w     pbend,up,delay,destination_note,rate
  1428. jet_engine
  1429.  
  1430.     ;start up section first
  1431.                         dc.w  new_env
  1432.                         dc.l  st2env
  1433.             dc.w    new_snd
  1434.             dc.l    noisel
  1435.             dc.w modon,4,4,100,100,1,1
  1436.  
  1437.             dc.w    230,50
  1438.                         dc.w  new_env
  1439.                         dc.l  startenv
  1440.             dc.w    new_snd
  1441.             dc.l    snr1    
  1442.             dc.w     pbend,up,8,150,50
  1443.  
  1444.             dc.w    r2,50
  1445.             dc.w    modoff,pboff
  1446.                         dc.w  new_env
  1447.                         dc.l  jetenv
  1448.             dc.w    new_snd
  1449.             dc.l    jet
  1450. engl            dc.w    r8,60000
  1451.             dc.w     repeat
  1452.             dc.l    engl
  1453.             dc.w    end_fxp
  1454.  
  1455.  
  1456.  
  1457.  
  1458. jetenv        dc.w 0,14,14,255
  1459.  
  1460. startenv    dc.w    0,24,34,37,44,49,54,56,60,61        
  1461.         dc.w     54,63,62,61,60,59,58,57,56,55,54,53,52,51,50
  1462.         dc.w    49,48,47,46,45,44,43,42,41,40
  1463.         dc.w    40,40,40,40,40,40,40,40,40,40
  1464.         dc.w    39,38,37,36,35,34,33,32,31,30,255
  1465.  
  1466. st2env        dc.w 0,24,24,255
  1467.  
  1468.  
  1469.  
  1470. fire_missile1
  1471.                         dc.w  new_env
  1472.                         dc.l  missile1env
  1473.             dc.w    new_snd
  1474.             dc.l    noisel
  1475.             dc.w    r4,84
  1476.                            dc.w    end_fxp
  1477.  
  1478.  
  1479. fire_missile2
  1480.             subq.w #1,2(a0)
  1481.         bra check_effects
  1482.    
  1483. sect5:     move.l #jump_table,a3
  1484.         move.l (a3,d0),a4
  1485.         jmp (a4)
  1486.  
  1487. jump_table: 
  1488.     dc.l  in_line_data
  1489.         dc.l  nsound
  1490.         dc.l  patt_end
  1491.         dc.l  get_env
  1492.         dc.l  check_pbend
  1493.         dc.l  do_mod
  1494.         dc.l  bend_off
  1495.         dc.l  mod_off
  1496.         dc.l  do_rest
  1497.         dc.l  end_fx
  1498.         dc.l  end_fx
  1499.     dc.l  s_f_on
  1500.     dc.l  s_f_off
  1501.     dc.l  set_acc
  1502.     dc.l  rept
  1503.  
  1504. in_line_data:
  1505.  
  1506.         nop
  1507.         rts
  1508.  
  1509. rept:
  1510.     move.l40,40,40,40,40,40,40,40
  1511.         dc.w    39,38,37,36,35,34,33,32,31,30
  1512.         dc.w    29,28,27,26,25,24,23,22,21,20
  1513.         dc.w    19,18,17,16,15,14,13,12,11,10
  1514.         dc.w    9,8,7,6,5,4,3,2,1,0,255
  1515.  
  1516.  
  1517. skid_wheels
  1518.                         dc.w  new_env
  1519.                         dc.l  skidenv
  1520.             dc.w    new_snd
  1521.             dc.l    skid
  1522.             dc.w    r12,50
  1523.                            dc.w    end_fxp
  1524.  
  1525. skidenv        dc.w 0,64,64,255
  1526.         
  1527.  
  1528. alarm1
  1529.                         dc.w  new_env
  1530.                         dc.l  alarm1env
  1531.             dc.w    new_snd
  1532.             dc.l    alarm
  1533.             dc.w    r4,8,rest,8
  1534.             dc.w    r4,8,rest,8
  1535.             dc.w    r4,8,rest,8
  1536.             dc.w    r4,8,rest,8
  1537.             dc.w    r4,8,rest,8
  1538.             dc.w    r4,8,rest,8
  1539.             dc.w    r4,8,rest,8
  1540.             dc.w    r4,8,rest,8
  1541.                            dc.w    end_fxp
  1542.  
  1543.  
  1544. alarm2
  1545.                         dc.w  new_env
  1546.                         dc.l  alarm1env
  1547.             dc.w    new_snd
  1548.             dc.l    alarm
  1549.             dc.w     pbend,up,20,150,1
  1550.             dc.w    r4,20,rest,10
  1551.             dc.w     pbend,up,20,150,1
  1552.             dc.w    r4,20,rest,10
  1553.             dc.w     pbend,up,20,150,1
  1554.             dc.w    r4,20,rest,10
  1555.             dc.w     pbend,up,20,150,1
  1556.             dc.w    r4,20,rest,10
  1557.             dc.w     pbend,up,20,150,1
  1558.             dc.w    r4,20,rest,10
  1559.             dc.w     pbend,up,20,150,1
  1560.             dc.w    r4,20,rest,10
  1561.             dc.w     pbend,up,20,150,1
  1562.             dc.w    r4,20,rest,10
  1563.             dc.w    end_fxp
  1564.             
  1565.  
  1566. alarm3
  1567.                         dc.w  new_env
  1568.                         dc.l  alarm1env
  1569.             dc.w    new_snd
  1570.             dc.l    sine
  1571.             dc.w modon,1,1,15,15,1,1
  1572.             dc.w    250,15,400,4
  1573.             dc.w    250,15,400,4
  1574.             dc.w    250,15,400,4
  1575.             dc.w    250,15,400,4
  1576.             dc.w    250,15,400,4
  1577.             dc.w    250,15,400,4
  1578.             dc.w    250,15,400,4
  1579.             dc.w    250,15,400,4
  1580.             dc.w    modoff
  1581.                            dc.w    end_fxp
  1582.  
  1583. alarm1env        dc.w 0,64,64,255
  1584. alarm3env        dc.w 0,64,64,255
  1585.  
  1586.  
  1587.  
  1588.  
  1589.  
  1590. afterburner
  1591.                         dc.w  new_env
  1592.                         dc.l  abenv
  1593.             dc.w    new_snd
  1594.             dc.l    snr1    
  1595.             dc.w     pbend,up,20,130,40
  1596.             dc.w    r2,100
  1597.             dc.w    pboff
  1598.             dc.w    end_fxp
  1599.             
  1600.  
  1601.  
  1602. abenv            
  1603.         dc.w     0,54,63,62,61,60,59,58,57,56,55,54,53,52,51,50
  1604.         dc.w     64,63,62,61,60,59,58,57,56,55,54,53,52,51,50
  1605.  
  1606.         dc.w    49,48,47,46,45,44,43,42,41,40
  1607.         dc.w    40,40,40,40,40,40,40,40,40,40
  1608.         dc.w    39,38,37,36,35,34,33,32,31,30
  1609.         dc.w    29,28,27,26,25,24,23,22,21,20
  1610.         dc.w    19,18,17,16,15,14,13,12,11,10
  1611.         dc.w    9,8,7,6,5,4,3,2,1,0,255
  1612.  
  1613.  
  1614.  
  1615. doppler_plane
  1616.                         dc.w  new_env
  1617.                         dc.l  jetenv2
  1618.             dc.w    new_snd
  1619.             dc.l    jet
  1620.             dc.w     pbend,down,20,5000,50
  1621.             dc.w    r12,50
  1622.                         dc.w      new_env
  1623.                         dc.l    abenv
  1624.             dc.w    r12,80
  1625.             dc.w    pboff
  1626.             dc.w    end_fxp
  1627.  
  1628.  
  1629.  
  1630.  
  1631. jetenv2        dc.w 0,40,40,255
  1632.  
  1633.  
  1634.  
  1635.  
  1636.  
  1637.  
  1638.  
  1639. ;*******************************************************************
  1640.  
  1641. sstart: dc.l 0,end_song
  1642.  
  1643. pstart: dc.w end_patt
  1644.  
  1645.  
  1646.  
  1647. ;;;;;;;;;;;;;;;;;;;;;    MIDWINTER II  Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1648.  
  1649. ;restful loop
  1650.  
  1651. CR      set 24
  1652. tcr1     set 13
  1653. tcr2     set 14
  1654. Q       set cr/2
  1655. tq1      set 4
  1656. tq2      set 5
  1657. SQ      set cr/4
  1658.  
  1659. s1:
  1660.     dc.l    p20
  1661.       dc.l     0,end_song
  1662. s2:
  1663.     dc.l    p1,p2,p3,p4
  1664.         DC.L    0,end_song
  1665. s3:
  1666.     dc.l    p5
  1667.     dc.l     0,end_song
  1668. s4:
  1669.     dc.l    pr,pr,pr,pr
  1670.     dc.l     0,end_song
  1671.  
  1672. pcr:
  1673.       dc.w rest,cr
  1674.       dc.w end_patt
  1675. pr:
  1676.       dc.w rest,cr*4
  1677.       dc.w end_patt
  1678. prf:
  1679.       dc.w rest,cr*1000
  1680.       dc.w end_patt
  1681. pr35:
  1682.     dc.w rest,35
  1683.     dc.w end_patt
  1684. pra:
  1685.     dc.w rest,q*7
  1686.     dc.w end_patt
  1687. pqr:
  1688.       dc.w rest,q
  1689.       dc.w end_patt
  1690. p1:
  1691.       dc.w new_env
  1692.     dc.l org_env
  1693.       dc.w new_snd
  1694.       dc.l sax2
  1695.       dc.w f01,cr,a01,cr,c02,cr,a01,cr
  1696.       dc.w f02,cr,a01,cr
  1697.       dc.w end_patt
  1698. p2:
  1699.       dc.w d01,cr,f01,cr,a01,cr,f01,cr
  1700.       dc.w d02,cr,f01,cr
  1701.       dc.w end_patt
  1702. p4:
  1703.       dc.w c01,cr,e01,cr,g01,cr,e01,cr
  1704.       dc.w c02,cr,e01,cr
  1705.       dc.w end_patt
  1706. p3:
  1707.       dc.w Bb00,cr,d01,cr,f01,cr,d01,cr
  1708.       dc.w Bb01,cr,d01,cr
  1709.       dc.w end_patt
  1710. p5:
  1711.       dc.w new_env
  1712.     dc.l org_env
  1713.       dc.w new_snd
  1714.       dc.l orglp2
  1715.       dc.w F02,cr*6,D02,cr*6,Bb01,cr*6,C02,cr*6
  1716.       dc.w end_patt
  1717. p20:
  1718.       dc.w new_env
  1719.     dc.l org_env
  1720.       dc.w new_snd
  1721.       dc.l sax2
  1722.       dc.w A05,cr*3,G05,cr,A05,cr,C06,cr 
  1723.       dc.w A05,cr*3,G05,cr,A05,cr,C06,cr 
  1724.       dc.w A05,cr*3,G05,cr,A05,cr,C06,cr 
  1725.       dc.w A05,cr*2,G05,cr*4
  1726.       dc.w A05,cr*3,G05,cr,A05,cr,C06,cr 
  1727.       dc.w D06,cr*3,A05,cr,G05,cr,A05,cr 
  1728.       dc.w C06,cr*3,Bb05,cr,A05,cr,Bb05,cr 
  1729.       dc.w A05,cr*2,G05,cr*4
  1730.     dc.w end_patt
  1731. ;****************************************************************
  1732. CR      set 20
  1733. tcr1     set 13
  1734. tcr2     set 14
  1735. Q       set cr/2
  1736. tq1      set 4
  1737. tq2      set 5
  1738. ;tsq     set 3
  1739. ;tsq2     set 2
  1740. SQ      set cr/4
  1741. ;m       set 254
  1742. ;rest     set $fd00
  1743. ;dcr      set cr+q
  1744. ;dq      set q+sq
  1745. ;dsq      set sq+(sq/2)
  1746. ;sb      set cr*4
  1747. ;min      set cr*2
  1748. ;dm      set min+cr
  1749. pcr16:
  1750.       dc.w rest,cr
  1751.       dc.w end_patt
  1752. pr16:
  1753.       dc.w rest,cr*4
  1754.       dc.w end_patt
  1755. pqr16:
  1756.       dc.w rest,q
  1757.       dc.w end_patt
  1758.  
  1759.     EVEN
  1760.  
  1761. ;celebration scene
  1762.  
  1763. s5:
  1764.     dc.l    p1a
  1765.       dc.l     0,end_song
  1766. s6:
  1767.     dc.l    p4a,p5a,p6a,p7a,p8a,p9a,p8a,p5a
  1768.         DC.L     0,end_song
  1769. s7:
  1770.     dc.l    p10q,p10qa,p10q,p10qa
  1771.     dc.l    p10q,p10q,p10q,p10q
  1772. ;    dc.l    p10a,p10a,p10a,p10a,p10a
  1773. ;    dc.l    p10a,p10a,p10a,p10a,p10a
  1774.     dc.l     0,end_song
  1775. s8:
  1776.     dc.l    p99a,p99a,p99a,p99a
  1777.     dc.l    p99b,p99b,p99b,p99b,p99b,p99b,p99b,p99b
  1778.     dc.l     0,end_song
  1779. p1a:
  1780.       dc.w new_env
  1781.     dc.l org_env
  1782.       dc.w new_snd
  1783.       dc.l sax2ax_fx    dc.l    30
  1784.  
  1785.  
  1786. ;______________________________________________________________________
  1787.  
  1788. ;   The 1/50 counter in these patterns is dependent on the length
  1789. ;   of the sample in bytes and the replay speed.if altering the
  1790. ;   replay speed calculate the counter using length/rate*50
  1791. ;   ie the piston sample is 2647 bytes at r6(6000)..hence interrupt
  1792. ;   counter for 1 shot play = 22
  1793.  
  1794.  
  1795.  
  1796. niceshow8env        dc.w 0,64,64,255
  1797. niceshot2
  1798.                         dc.w  new_env
  1799.                         dcc.w C05,q*3
  1800. ;    dc.w C05,3,D05,2,C05,3,D05,2,C05,3,D05,2
  1801. ;    dc.w C05,3,D05,2,C05,3,D05,2,C05,sq
  1802.     dc.w D05,q*3,E05,cr
  1803.       dc.w end_patt
  1804. p2a:
  1805.       dc.w f05,q*3
  1806.     dc.w c05,q
  1807.     dc.w f05,q,a05,q,g05,q,f05,q
  1808.     dc.w g05,q*2,e05,q*2,c05,q*4
  1809.       dc.w end_patt
  1810. p3a:
  1811.       dc.w Bb05,q*3
  1812.     dc.w f05,q
  1813.       dc.w Bb05,q,d06,q,c06,q,Bb05,q
  1814.       dc.w a05,q*3
  1815.     dc.w f05,q
  1816.       dc.w a05,q,c06,q,Bb05,q,a05,q
  1817.       dc.w g05,q*3
  1818.     dc.w gb05,q
  1819.       dc.w g05,q,Bb05,q,a05,q,g05,q
  1820.       dc.w f05,q,a05,q,g05,q,a05,q
  1821.     dc.w f05,q
  1822.       dc.w end_patt
  1823. p4a:
  1824.       dc.w new_env
  1825.     dc.l kick_env
  1826.       dc.w new_snd
  1827.       dc.l bas5
  1828.       dc.w F02,sq,rest,sq,F02,sq,A02,sq
  1829.       dc.w C03,sq,D03,sq,F03,sq,D02,sq
  1830.       dc.w F02,sq,rest,sq,F02,sq,A02,sq
  1831.       dc.w C03,sq,D03,sq,F03,sq,D02,sq
  1832.       dc.w end_patt
  1833. p5a:
  1834.       dc.w C02,sq,rest,sq,C02,sq,E02,sq
  1835.       dc.w G02,sq,A02,sq,C03,sq,A02,sq
  1836.       dc.w C02,sq,rest,sq,C02,sq,E02,sq
  1837.       dc.w G02,sq,A02,sq,C03,sq,A02,sq
  1838.       dc.w end_patt
  1839. p6a:
  1840.       dc.w D02,sq,rest,sq,D02,sq,F02,sq
  1841.       dc.w A02,sq,C03,sq,D03,sq,C03,sq
  1842.       dc.w D02,sq,rest,sq,D02,sq,F02,sq
  1843.       dc.w A02,sq,C03,sq,D03,sq,C03,sq
  1844.       dc.w end_patt
  1845. p7a:
  1846.       dc.w A01,sq,rest,sq,A01,sq,C02,sq
  1847.       dc.w E02,sq,G02,sq,A02,sq,G02,sq
  1848.       dc.w A01,sq,rest,sq,A01,sq,C02,sq
  1849.       dc.w E02,sq,G02,sq,A02,sq,G02,sq
  1850.       dc.w end_patt
  1851. p8a:
  1852.       dc.w Bb01,sq,rest,sq,Bb01,sq,D02,sq
  1853.       dc.w F02,sq,G02,sq,Bb02,sq,G02,sq
  1854.       dc.w Bb01,sq,rest,sq,Bb01,sq,D02,sq
  1855.       dc.w F02,sq,G02,sq,Bb02,sq,G02,sq
  1856.       dc.w end_patt
  1857. p9a:
  1858.       dc.w F01,sq,rest,sq,F01,sq,A01,sq
  1859.       dc.w C02,sq,D02,sq,F02,sq,D01,sq
  1860.       dc.w F01,sq,rest,sq,F01,sq,A01,sq
  1861.       dc.w C02,sq,D02,sq,F02,sq,D01,sq
  1862.       dc.w end_patt
  1863. p10a:     
  1864.       dc.w new_env
  1865.     dc.l kick_env
  1866.       dc.w new_snd
  1867.       dc.l kik1
  1868.       dc.w r16,q
  1869.       dc.w new_snd
  1870.       dc.l snr1
  1871.       dc.w r16,q
  1872.       dc.w new_snd
  1873.       dc.l kik1
  1874.       dc.w r16,q
  1875. p11a:      dc.w new_snd
  1876.       dc.l snr1
  1877.       dc.w r16,q
  1878.       dc.w end_patt
  1879. p10q:     
  1880.       dc.w new_env
  1881.     dc.l kick_env
  1882.       dc.w new_snd
  1883.       dc.l kik1
  1884.       dc.w r16,q
  1885.       dc.w new_snd
  1886.       dc.l hatcl
  1887.       dc.w r16,sq,r16,sq
  1888.       dc.w r16,q
  1889.       dc.w r16,sq,r16,sq
  1890.       dc.w new_snd
  1891.       dc.l kik1
  1892.       dc.w r16,q
  1893.       dc.w new_snd
  1894.       dc.l hatcl
  1895.       dc.w r16,sq,r16,sq
  1896.       dc.w new_snd
  1897.       dc.l kik1
  1898.       dc.w r16,q
  1899.       dc.w r16,q
  1900.       dc.w end_patt
  1901. p10qa:     
  1902.       dc.w new_env
  1903.     dc.l kick_env
  1904.       dc.w new_snd
  1905.       dc.l kik1
  1906.       dc.w r16,q
  1907.       dc.w new_snd
  1908.       dc.l hatcl
  1909.       dc.w r16,sq,r16,sq
  1910.       dc.w r16,q
  1911.       dc.w r16,sq,r16,sq
  1912.       dc.w new_snd
  1913.       dc.l kik1
  1914.       dc.w r16,q
  1915.       dc.w r16,sq
  1916.       dc.w new_snd
  1917.       dc.l kik1
  1918.       dc.w r16,2
  1919.     dc.w r16,3
  1920.       dc.w r16,q
  1921.       dc.w new_snd
  1922.       dc.l hatcl
  1923.       dc.w r16,sq,r16,sq
  1924.       dc.w end_patt
  1925.  
  1926. p99a:
  1927.       dc.w new_env
  1928.     dc.l q_env
  1929.       dc.w new_snd
  1930.       dc.l cow
  1931.     dc.w r8,q,r8,q,r8,sq,r8,q,r8,sq,r8,cr,rest,cr
  1932.     dc.w r8,q,r8,cr,r8,q,r8,cr,r8,cr 
  1933.       dc.w end_patt
  1934. p99b:
  1935.       dc.w new_env
  1936.     dc.l kick_env
  1937.       dc.w new_snd
  1938.       dc.l snr1
  1939.     dc.w rest,cr,r19,cr
  1940.     dc.w rest,cr,r19,cr
  1941.       dc.w end_patt
  1942. ;****************************************************************
  1943. CR      set 20
  1944. tcr1     set 9
  1945. tcr2     set 8
  1946. Q       set cr/2
  1947. tq1      set 4
  1948. tq2      set 5
  1949. ;tsq     set 3
  1950. ;tsq2     set 2
  1951. SQ      set cr/4
  1952. ;m       set 254
  1953. ;rest     set $fd00
  1954. ;dcr      set cr+q
  1955. ;dq      set q+sq
  1956. ;dsq      set sq+(sq/2)
  1957. ;sb      set cr*4
  1958. ;min      set cr*2
  1959. ;dm      set min+cr
  1960.  
  1961. ;journey
  1962.  
  1963.     EVEN
  1964. s9:
  1965.     dc.l    p1b,p1b,p1b,p1b,p2b,p2b,p2bb
  1966.     dc.l    pt2,pt
  1967.       dc.l     0,end_song
  1968. s10:
  1969.     dc.l    p4b,p5b,p6b,p5b
  1970.     dc.l    p4b,p7b,p9b,p8b
  1971.     dc.l    p4b,p7b,p9b,p8b,p3b
  1972.     dc.l    pt2,pt
  1973.         DC.L     0,end_song
  1974. s11:
  1975.     dc.l    p10b,p10b,p10b,p10b,p10b
  1976.     dc.l    p10b,p10b,p10b,p10b,p10b
  1977.     dc.l    p10b,p10b,p10b,p10b,p10b
  1978.     dc.l    p10b,p10b,p10b,p10b,p11b
  1979.     dc.l    pt2,pt
  1980.     dc.l     0,end_song
  1981. s12:
  1982.     dc.l    p4yb,p5yb,p6yb,p5yb
  1983.     dc.l    p4yb,p7yb,p9yb,p8yb
  1984.     dc.l    p4yb,p7yb,p9yb,p8yb,p3yb
  1985.     dc.l    pt2,pt
  1986.     dc.l     0,end_song
  1987. pt:
  1988.     dc.w rest,cr*2
  1989.       dc.w end_patt
  1990. pt2:
  1991.     dc.w rest,q*3
  1992.       dc.w end_patt
  1993. p1b:
  1994.       dc.w new_env
  1995.     dc.l org_env
  1996.       dc.w new_snd
  1997.       dc.l sax2
  1998.       dc.w c05,q*7,rest,q,c05,q,d05,q,e05,q
  1999.     dc.w f05,cr,e05,q,d05,q,e05,q
  2000.       dc.w end_patt
  2001. p2b:
  2002.     dc.w c05,q*13,d05,q,e05,q,f05,q
  2003.     dc.w g05,cr*4,f05,q,d05,q,Bb04,q
  2004.     dc.w f05,q,d05,q,Bb04,q,f05,q,d05,q
  2005.     dc.w f05,q,db05,q,ab04,q
  2006.     dc.w f05,q,db05,q,ab04,q,f05,q,db05,q
  2007.       dc.w end_patt
  2008. p2bb:
  2009.     dc.w c05,q*9
  2010.       dc.w end_patt
  2011. p4b:
  2012.       dc.w new_env
  2013.     dc.l og
  2014.       dc.w new_snd
  2015.       dc.l clv2
  2016.       dc.w c02,sq,e02,sq,g02,sq,c03,sq
  2017.       dc.w e03,sq,c03,sq,g02,sq,e02,sq
  2018.       dc.w c02,sq,e02,sq,g02,sq,c03,sq
  2019.       dc.w e03,sq,c03,sq,g02,sq,e02,sq
  2020.       dc.w c02,sq,e02,sq,g02,sq,c03,sq
  2021.       dc.w e03,sq,c03,sq,g02,sq,e02,sq
  2022.       dc.w c02,sq,e02,sq,g02,sq,c03,sq
  2023.       dc.w e03,sq,c03,sq,g02,sq,e02,sq
  2024.       dc.w end_patt
  2025. p3b:
  2026.       dc.w c02,sq,e02,sq,g02,sq,c03,sq
  2027.       dc.w e03,sq,c03,sq,g02,sq,e02,sq
  2028.       dc.w c02,sq,e02,sq,g02,sq,c03,sq
  2029.       dc.w e03,sq,c03,sq,g02,sq,e02,sq
  2030.     dc.w c02,q
  2031.       dc.w end_patt
  2032. p5b:
  2033.       dc.w Bb01,sq,D02,sq,F02,sq,Bb02,sq
  2034.       dc.w D02,sq,Bb02,sq,F02,sq,D02,sq
  2035.       dc.w Bb01,sq,D02,sq,F02,sq,Bb02,sq
  2036.       dc.w D02,sq,Bb02,sq,F02,sq,D02,sq
  2037. p9b:      dc.w Bb01,sq,D02,sq,F02,sq,Bb02,sq
  2038.       dc.w D02,sq,Bb02,sq,F02,sq,D02,sq
  2039.       dc.w Bb01,sq,D02,sq,F02,sq,Bb02,sq
  2040.       dc.w D02,sq,            dc.w  new_env
  2041.                         dc.l  missile1env
  2042.             dc.w    new_snd
  2043.             dc.l    noisel
  2044.             dc.w    r2,80
  2045.                            dc.w    end_fxp
  2046.  
  2047.  
  2048. fire_missile3
  2049.                         dc.w  new_env
  2050.                         dc.l  missile1env
  2051.             dc.w    new_snd
  2052.             dc.l    noisel
  2053.             dc.w    r2,40
  2054.                            dc.w    end_fxp
  2055.  
  2056.  
  2057.  
  2058. missile1env    dc.w    0,64,64,64,64,64,64,64,64,64        
  2059.         dc.w     64,63,62,61,60,59,58,57,56,55,54,53,52,51,50
  2060.         dc.w    49,48,47,46,45,44,43,42,41,40
  2061.         dc.w    40,40,w B02,sq,G02,sq,D02,sq,B01,sq
  2062.       dc.w end_patt
  2063. p8b:
  2064.       dc.w Db02,sq,F02,sq,Ab02,sq,Db03,sq
  2065.       dc.w F03,sq,Db03,sq,Ab02,sq,F02,sq
  2066.       dc.w Db02,sq,F02,sq,Ab02,sq,Db03,sq
  2067.       dc.w F03,sq,Db03,sq,Ab02,sq,F02,sq
  2068.       dc.w end_patt
  2069.  
  2070. p4yb:
  2071.       dc.w new_env
  2072.     dc.l bas5_env2
  2073.       dc.w new_snd
  2074.       dc.l bas5
  2075.       dc.w c03,q,c03,q,c03,q,c03,q
  2076.       dc.w c03,q,c03,q,c03,q,c03,q
  2077.       dc.w c03,q,c03,q,c03,q,c03,q
  2078.       dc.w c03,q,c03,q,c03,q,c03,q
  2079.       dc.w end_patt
  2080. p3yb:
  2081.       dc.w c03,q,c03,q,c03,q,c03,q
  2082.       dc.w c03,q,c03,q,c03,q,c03,q
  2083.       dc.w c03,q
  2084.       dc.w end_patt
  2085. p5yb:
  2086.       dc.w Bb02,q,Bb02,q,Bb02,q,Bb02,q
  2087.       dc.w Bb02,q,Bb02,q,Bb02,q,Bb02,q
  2088. p9yb:      dc.w Bb02,q,Bb02,q,Bb02,q,Bb02,q
  2089.       dc.w Bb02,q,Bb02,q,Bb02,q,Bb02,q
  2090.       dc.w end_patt
  2091. p6yb:
  2092.       dc.w Ab02,q,Ab02,q,Ab02,q,Ab02,q
  2093.       dc.w Ab02,q,Ab02,q,Ab02,q,Ab02,q
  2094.       dc.w Ab02,q,Ab02,q,Ab02,q,Ab02,q
  2095.       dc.w Ab02,q,Ab02,q,Ab02,q,Ab02,q
  2096.       dc.w end_patt
  2097. p7yb:
  2098.       dc.w G02,q,G02,q,G02,q,G02,q
  2099.       dc.w G02,q,G02,q,G02,q,G02,q
  2100.       dc.w end_patt
  2101. p8yb:
  2102.       dc.w Db03,q,Db03,q,Db03,q,Db03,q
  2103.       dc.w Db03,q,Db03,q,Db03,q,Db03,q
  2104.       dc.w end_patt
  2105.  
  2106. p10b:     
  2107.       dc.w new_env
  2108.     dc.l kick_env
  2109.       dc.w new_snd
  2110.       dc.l kik1
  2111.       dc.w r16,sQ
  2112.       dc.w new_snd
  2113.       dc.l hatcl
  2114.       dc.w r16,sQ,r16,sQ,r16,sQ
  2115.       dc.w new_snd
  2116.       dc.l snr1
  2117.       dc.w r19,Q
  2118.       dc.w new_snd
  2119.       dc.l hatcl
  2120.       dc.w r16,sQ,r16,sQ
  2121.       dc.w new_snd
  2122.       dc.l kik1
  2123.       dc.w r16,sQ
  2124.       dc.w new_snd
  2125.       dc.l hatcl
  2126.       dc.w r16,sQ,r16,sQ,r16,sQ
  2127.       dc.w new_snd
  2128.       dc.l snr1
  2129.       dc.w r18,Q
  2130.       dc.w new_snd
  2131.       dc.l hatcl
  2132.       dc.w r16,sQ,r16,sq
  2133.       dc.w end_patt
  2134. p11b:     
  2135.       dc.w new_env
  2136.     dc.l kick_env
  2137.       dc.w new_snd
  2138.       dc.l kik1
  2139.       dc.w r16,q
  2140.       dc.w end_patt
  2141. p111b:     
  2142.       dc.w new_env
  2143.     dc.l kick_env
  2144.       dc.w new_snd
  2145.       dc.l kik1
  2146.       dc.w r16,cr
  2147.       dc.w r16,cr
  2148.       dc.w end_patt
  2149.  
  2150. ;****************************************************************
  2151.  
  2152.  
  2153. CR      set 24
  2154. tcr1     set 9
  2155. tcr2     set 8
  2156. Q       set cr/2
  2157. tq1      set 4
  2158. tq2      set 5
  2159. ;tsq     set 3
  2160. ;tsq2     set 2
  2161. SQ      set cr/4
  2162. ;m       set 254
  2163. ;rest     set $fd00
  2164. ;dcr      set cr+q
  2165. ;dq      set q+sq
  2166. ;dsq      set sq+(sq/2)
  2167. ;sb      set cr*4
  2168. ;min      set cr*2
  2169. ;dm      set min+cr
  2170.  
  2171. ;anticipation
  2172.  
  2173. s13:
  2174.     dc.l    p2c
  2175.       dc.l     0,end_song
  2176.  
  2177. s14:
  2178.     dc.l    p1c
  2179.         DC.L     0,end_song
  2180.  
  2181. s15:
  2182.     dc.l    p3c
  2183.     dc.l     0,end_song
  2184. s16:
  2185.     dc.l    p22c
  2186.     dc.l     0,end_song
  2187.  
  2188. p1c:
  2189.       dc.w new_env
  2190.     dc.l bas5_env
  2191.       dc.w new_snd
  2192.       dc.l bas5
  2193.     dc.w C03,q,Db03,q,C03,q,Db03,q
  2194.     dc.w C03,q,Db03,q,C03,q,Db03,q
  2195.       dc.w end_patt
  2196. p2c:
  2197.       dc.w new_env
  2198.     dc.l org_env
  2199.       dc.w new_snd
  2200.       dc.l shak
  2201.     dc.w modon,4,4,15,15,4,4
  2202.       dc.w Db04,q,C04,q,Gb04,q,F04,q,Bb04,q,A04,q
  2203.     dc.w modon,4,4,7,7,4,4
  2204.       dc.w Db05,q,C05,q,Gb05,q,F05,q,Bb05,q,A05,q
  2205.     dc.w modon,4,4,3,3,4,4
  2206.       dc.w Db06,q,C06,q,Gb06,q,F06,q
  2207.       dc.w end_patt
  2208. p22c:
  2209.       dc.w new_env
  2210.     dc.l kick_env
  2211.       dc.w new_snd
  2212.       dc.l tom1
  2213.     dc.w r8,cr*2,r8,cr*2,r8,cr*2
  2214.     dc.w rest,q,r5,q,r8,q,r5,q
  2215.       dc.w end_patt
  2216. p3c:
  2217.       dc.w new_env
  2218.     dc.l org_env
  2219.       dc.w new_snd
  2220.       dc.l orglp2
  2221.     dc.w C06,q*3,Db06,q*3,D06,cr
  2222.     dc.w Eb06,q*3,D06,q*3,Db06,cr
  2223.     dc.w C06,q*3,Db06,q*3,D06,cr
  2224.     dc.w Eb06,q,D06,q,Db06,q,C06,q
  2225.     dc.w end_patt
  2226.  
  2227. ;****************************************************************
  2228.  
  2229. CR      set 40
  2230. tcr1     set 9
  2231. tcr2     set 8
  2232. Q       set cr/2
  2233. tq1      set 4
  2234. tq2      set 5
  2235. ;tsq     set 3
  2236. ;tsq2     set 2
  2237. SQ      set cr/4
  2238. ;m       set 254
  2239. ;rest     set $fd00
  2240. ;dcr      set cr+q
  2241. ;dq      set q+sq
  2242. ;dsq      set sq+(sq/2)
  2243. ;sb      set cr*4
  2244. ;min      set cr*2
  2245. ;dm      set min+cr
  2246.  
  2247. ;pastoral loop
  2248.  
  2249. s17:
  2250.     dc.l    p2d
  2251.       dc.l     0,end_song
  2252.  
  2253. s18:
  2254.     dc.l    p1d
  2255.         DC.L     0,end_song
  2256.  
  2257. s19:
  2258.     dc.l    p3da,p3d
  2259.     dc.l     0,end_song
  2260. s20:
  2261.     dc.l    p22d
  2262.     dc.l     0,end_song
  2263.  
  2264. p1d:
  2265.       dc.w new_env
  2266.     dc.l org_env
  2267.       dc.w new_snd
  2268.       dc.l sax2
  2269.     dc.w Ab02,cr*2,G02,cr*2,Gb02,cr*2,F02,cr*2
  2270.     dc.w E02,cr*2,Eb02,cr*2,D02,cr*2,Db02,cr,Eb02,cr
  2271.       dc.w end_patt
  2272. p3d:
  2273.       dc.w new_env
  2274.     dc.l org_env
  2275.       dc.w new_snd
  2276.       dc.l sax2
  2277.     dc.w Ab04,cr*2,Eb05,cr*2,Ab05,cr*2,Eb05,cr*2
  2278.     dc.w Bb05,cr*2,Ab05,cr,C05,cr
  2279.     dc.w Eb05,cr,Ab05,cr,C06,cr,Bb05,cr
  2280.       dc.w end_patt
  2281. p3da:
  2282.       dc.w new_env
  2283.     dc.l org_env
  2284.       dc.w new_snd
  2285.       dc.l sax2
  2286.     dc.w rest,cr*16
  2287.       dc.w end_patt
  2288. p2d:
  2289.       dc.w new_env
  2290.     dc.l org_env
  2291.       dc.w new_snd
  2292.       dc.l sax2
  2293.     dc.w Eb05,q,Db05,q,C05,q,Db05,q
  2294.     dc.w Eb05,cr,Db05,q,C05,q,Eb05,cr
  2295.     dc.w Db05,q,C05,q,Db05,q,C05,q,Bb04,cr
  2296.     dc.w Db05,q,C05,q,Bb04,cr,C05,cr,Ab04,cr
  2297.     dc.w Bb04,cr,F04,cr,Ab04,cr,G04,cr
  2298.     dc.w end_patt
  2299. p22d:
  2300.       dc.w new_env
  2301.     dc.l sax_env
  2302.       dc.w new_snd
  2303.       dc.l shak
  2304.     dc.w Eb05,q,Db05,q,C05,q,Db05,q
  2305.     dc.w Eb05,cr,Db05,q,C05,q,Eb05,cr
  2306.     dc.w Db05,q,C05,q,Db05,q,C05,q,Bb04,cr
  2307.     dc.w Db05,q,C05,q,Bb04,cr,C05,cr,Ab04,cr
  2308.     dc.w Bb04,cr,F04,cr,Ab04,cr,G04,cr
  2309.     dc.w end_patt
  2310.  
  2311. ;****************************************************************
  2312.  
  2313. CR      set 16
  2314. tcr1     set 9
  2315. tcr2     set 8
  2316. Q       set cr/2
  2317. tq1      set 4
  2318. tq2      set 5
  2319. ;tsq     set 3
  2320. ;tsq2     set 2
  2321. SQ      set cr/4
  2322. ;m       set 254
  2323. ;rest     set $fd00
  2324. ;dcr      set cr+q
  2325. ;dq      set q+sq
  2326. ;dsq      set sq+(sq/2)
  2327. ;sb      set cr*4
  2328. ;min      set cr*2
  2329. ;dm      set min+cr
  2330.  
  2331. ;fast and dangerous
  2332.  
  2333. s21:
  2334.     dc.l    p1e,p1e,p2e,p1e,p3e,p4e
  2335.       dc.l     0,end_song
  2336.  
  2337. s22:
  2338.     dc.l    p5e,p5e,p6e
  2339.       dc.w rest,cr*2
  2340.     dc.w F05,tcr1,E05,tcr2,D05,tcr1,C05,sq*7
  2341.       dc.w new_snd
  2342.       dc.l shak
  2343.     dc.w G05,2,A05,3,C06,sq,rest,sq*15
  2344.       dc.w new_snd
  2345.       dc.l sax2
  2346.     dc.w F05,tcr1,E05,tcr2,D05,tcr1,C05,sq*7
  2347.       dc.w new_snd
  2348.       dc.l shak
  2349.     dc.w G05,2,A05,3,C06,sq,rest,q,G05,2,A05,3,C06,sq,rest,sq*11
  2350.       dc.w new_snd
  2351.       dc.l sax2
  2352.     dc.w D05,tcr1,C05,tcr2,Bb04,tcr1,C05,cr*2,F04,cr*2
  2353.     dc.w G04,q*3
  2354. ;    dc.w G04,3,A04,2,G04,3,A04,2,G04,3,A04,2
  2355. ;    dc.w G04,3,A04,2,G04,3,A04,2,G04,sq
  2356.     dc.w Bb04,q*3,D05,cr
  2357.     dAb06,q,G06,q,F06,q
  2358.       dc.w C06,q,Ab06,q,G06,q,F06,q,rest,q,F06,q,Eb06,cr
  2359.       dc.w end_patt
  2360. p3e:
  2361.       dc.w D06,q,G06,q,A06,q,G06,q*5
  2362.       dc.w C06,q,Ab06,q,G06,q,F06,q*5
  2363.       dc.w end_patt
  2364. p4e:
  2365.       dc.w new_snd
  2366.       dc.l sax2
  2367.       dc.w E04*2,sq,F04*2,sq,Gb04*2,sq,G04*2,sq
  2368.     dc.w Ab04*2,sq,A04*2,sq,Bb04*2,sq,B03,sq
  2369.     dc.w C04,sq,Db04,sq,D04,sq,Eb04,sq
  2370.     dc.w E04,sq,F04,sq,Gb04,sq,G04,sq
  2371.     dc.w Ab04,sq,A04,sq,Bb04,sq,B04,sq
  2372.     dc.w C05,sq,Db05,sq,D05,sq,Eb05,sq
  2373.     dc.w E05,sq,F05,sq,Gb05,sq,G05,sq
  2374.     dc.w Ab05,sq,A05,sq,Bb05,sq,B05,sq
  2375.     dc.w C06,sq,rest,sq*15
  2376.       dc.w end_patt
  2377. p5e:
  2378.       dc.w new_env
  2379.     dc.l bas5_env
  2380.       dc.w new_snd
  2381.       dc.l bas5
  2382.       dc.w C03,q,C03,q,G02,q,Bb02,q
  2383.       dc.w C03,q,C03,q,G02,q,Bb02,q
  2384.       dc.w C03,q,C03,q,Bb02,q,C03,q,rest,q,C03,q
  2385.     dc.w Bb02,cr
  2386.       dc.w end_patt
  2387. p6e:
  2388.      dc.w new_snd
  2389.       dc.l bas5
  2390.       dc.w F03,q,F03,q,C03,q,Eb03,q
  2391.       dc.w F03,q,F03,q,C03,q,Eb03,q
  2392.       dc.w F03,q,F03,q,Eb03,q,F03,q,rest,q,F03,q
  2393.     dc.w Eb03,cr
  2394.       dc.w end_patt
  2395. p7e:
  2396.      dc.w new_snd
  2397.       dc.l bas5
  2398.       dc.w G03,q,G03,cr,G03,cr,G03,cr,Gb03,q
  2399.       dc.w F03,q,F03,cr,F03,cr,F03,cr,Eb03,q
  2400.       dc.w C03,q,C03,q,G02,q,Bb02,q
  2401.       dc.w C03,q,C03,q,G02,q,Bb02,q
  2402.       dc.w C03,q,C03,q,G02,q,Bb02,q
  2403.       dc.w C03,q,C03,q,G02,q,Bb02,q,C03,q,rest,q*7
  2404.       dc.w end_patt
  2405. p10e:     
  2406.       dc.w new_env
  2407.     dc.l kick_env
  2408.       dc.w new_snd
  2409.       dc.l kik1
  2410.       dc.w r16,Q,r16,q
  2411.       dc.w new_snd
  2412.       dc.l snr1
  2413.       dc.w r19,Q,r19,q
  2414.       dc.w new_snd
  2415.       dc.l kik1
  2416.       dc.w r16,Q,r16,q
  2417.       dc.w new_snd
  2418.       dc.l snr1
  2419.       dc.w r19,Q,r19,q
  2420.       dc.w new_snd
  2421.       dc.l kik1
  2422.       dc.w r16,Q,r16,q
  2423.       dc.w new_snd
  2424.       dc.l snr1
  2425.       dc.w r19,Q
  2426.       dc.w new_snd
  2427.       dc.l kik1
  2428.       dc.w r16,cr,r16,q
  2429.       dc.w new_snd
  2430.       dc.l snr1
  2431.       dc.w r15,cr
  2432.       dc.w end_patt
  2433. p10ze:
  2434.       dc.w new_snd
  2435.       dc.l hatcl
  2436.       dc.w new_env
  2437.     dc.l org_env
  2438.       dc.w r16,sq,r16,sq,r16,sq,r16,sq
  2439.       dc.w r16,sq,r16,sq,r16,sq,r16,sq
  2440.       dc.w r16,sq,r16,sq,r16,sq,r16,sq
  2441.       dc.w r16,sq,r16,sq,r16,sq,r16,sq
  2442.       dc.w end_patt
  2443. p11e:     
  2444.       dc.w new_env
  2445.     dc.l kick_env
  2446.       dc.w new_snd
  2447.       dc.l kik1
  2448.       dc.w r16,q
  2449.       dc.w end_patt
  2450. p11e2:     
  2451.       dc.w new_env
  2452.     dc.l kick_env
  2453.       dc.w new_snd
  2454.       dc.l kik1
  2455.       dc.w r16,q,rest,q*7
  2456.       dc.w end_patt
  2457. ;****************************************************************
  2458.  
  2459.  
  2460. CR      set 16
  2461. tcr1     set 9
  2462. tcr2     set 8
  2463. Q       set cr/2
  2464. tq1      set 4
  2465. tq2      set 5
  2466. ;tsq     set 3
  2467. ;tsq2     set 2
  2468. SQ      set cr/4
  2469. ;m       set 254
  2470. ;rest     set $fd00
  2471. ;dcr      set cr+q
  2472. ;dq      set q+sq
  2473. ;dsq      set sq+(sq/2)
  2474. ;sb      set cr*4
  2475. ;min      set cr*2
  2476. ;dm      set min+cr
  2477.  
  2478. ;dramatic loop
  2479.  
  2480. s25:
  2481.     dc.l    p1f
  2482.       dc.l     0,end_song
  2483.  
  2484. s26:
  2485.     dc.l    p5f,p5f,p5f,p5f,p5f
  2486.     dc.l    p6f,p6f,p6f,p6f,p6f
  2487.     dc.l    p7f,p7f,p7f,p7f,p7f
  2488.     dc.l    p8f,p8f,p8f,p8f,p8f
  2489.         DC.L     0,end_song
  2490.  
  2491. s27:
  2492.     dc.l    p10ee,p10ee,p10ee,p10ee,p10ee
  2493.     dc.l    p10f,p10f
  2494.     dc.l     0,end_song
  2495. s28:
  2496.     dc.l    p10ze,p10ze,p10ze,p10ze,p10ze
  2497.     dc.l    prxf
  2498.     dc.l     0,end_song
  2499.  
  2500. prxf
  2501.     dc.w rest,cr*10
  2502.       dc.w end_patt
  2503.  
  2504. p1f:
  2505.       dc.w new_env
  2506.     dc.l org_env
  2507.       dc.w new_snd
  2508.       dc.l orglp2
  2509.       dc.w F02,cr,G02,cr,Ab02,cr,F02,cr
  2510.     dc.w G02,cr,Ab02,cr,bb02,cr,G02,cr
  2511.     dc.w Ab02,cr,Bb02,cr,C03,cr,Ab02,cr
  2512.     dc.w Bb02,cr,G02,cr,Ab02,cr,F02,cr
  2513.     dc.w G02,cr,Eb02,cr,F02,cr,Db02,cr
  2514.       dc.w new_snd
  2515.       dc.l clv2
  2516.       dc.w C03,q,D03,q,Eb03,q,C03,q
  2517.     dc.w D03,q,Eb03,q,F03,q,D03,q
  2518.     dc.w Eb03,q,F03,q,G03,q,Eb03,q
  2519.     dc.w F03,q,D03,q,Eb03,q,C03,q
  2520.     dc.w D03,q,Bb02,q,C03,q,Ab02,q
  2521.       dc.w new_snd
  2522.       dc.l orglp2
  2523.       dc.w G02,cr,A02,cr,Bb02,cr,G02,cr
  2524.     dc.w A02,cr,Bb02,cr,C03,cr,A02,cr
  2525.     dc.w Bb02,cr,C03,cr,D03,cr,Bb02,cr
  2526.     dc.w C03,cr,A02,cr,Bb02,cr,G02,cr
  2527.     dc.w A02,cr,F02,cr,G02,cr,Eb02,cr
  2528.       dc.w new_snd
  2529.       dc.l clv2
  2530.       dc.w D03,q,E03,q,F03,q,D03,q
  2531.     dc.w E03,q,F03,q,G03,q,E03,q
  2532.     dc.w F03,q,G03,q,A03,q,F03,q
  2533.     dc.w G03,q,E03,q,F03,q,D03,q
  2534.     dc.w E03,q,C03,q,D03,q,Bb02,q
  2535.       dc.w end_patt
  2536. p5f:
  2537.       dc.w new_env
  2538.     dc.l bas5_env
  2539.       dc.w new_snd
  2540.       dc.l bas5
  2541.       dc.w F02,q,F03,q,F02,q,F03,q
  2542.       dc.w F02,q,F03,q,F02,q,F03,q
  2543.       dc.w end_patt
  2544. p6f:
  2545.       dc.w C03,q,Db03,q,C03,q,Db03,q      
  2546.       dc.w end_patt
  2547. p7f:
  2548.       dc.w G02,q,G03,q,G02,q,G03,q
  2549.       dc.w G02,q,G03,q,G02,q,G03,q
  2550.       dc.w end_patt
  2551. p8f:
  2552.       dc.w D03,q,Eb03,q,D03,q,Eb03,q      
  2553.       dc.w end_patt
  2554. p10f:     
  2555.       dc.w new_env
  2556.     dc.l kick_env
  2557.       dc.w new_snd
  2558.       dc.l kik1
  2559.       dc.w r16,cr
  2560.       dc.w r16,cr
  2561.       dc.w r16,cr
  2562.       dc.w r16,cr
  2563.       dc.w new_snd
  2564.       dc.l snr1
  2565.       dc.w r16,Q,r16,q
  2566.       dc.w end_patt
  2567.  
  2568. p10ee:     
  2569.       dc.w new_env
  2570.     dc.l kick_env
  2571.       dc.w new_snd
  2572.       dc.l kik1
  2573.       dc.w r16,Q,r16,q
  2574.       dc.w new_snd
  2575.       dc.l snr1
  2576.       dc.w r19,Q,r19,q
  2577.       dc.w new_snd
  2578.       dc.l kik1
  2579.       dc.w r16,Q,r16,q
  2580.       dc.w new_snd
  2581.       dc.l snr1
  2582.       dc.w r15,cr
  2583.       dc.w end_patt
  2584.  
  2585. CR      set 16
  2586. tcr1     set 9
  2587. tcr2     set 8
  2588. Q       set cr/2
  2589. tq1      set 4
  2590. tq2      set 5
  2591. ;tsq     set 3
  2592. ;tsq2     set 2
  2593. SQ      set cr/4
  2594. ;m       set 254
  2595. ;rest     set $fd00
  2596. ;dcr      set cr+q
  2597. ;dq      set q+sq
  2598. ;dsq      set sq+(sq/2)
  2599. ;sb      set cr*4
  2600. ;min      set cr*2
  2601. ;dm      set min+cr
  2602.  
  2603.  
  2604.  
  2605. ; a few bars of danger music
  2606.  
  2607. s29:
  2608.     dc.l    p1g,pra
  2609.       dc.l     0,end_song
  2610.  
  2611. s30:
  2612.     dc.l    p5g,pra
  2613.         DC.L     0,end_song
  2614.  
  2615. s31:
  2616.         
  2617.     dc.l    p10ee,p10ee,p10ee,p10ee
  2618.     dc.l    p10g,p10g,p11e,pra
  2619.     dc.l     0,end_sBb02,sq,F02,sq,D02,sq
  2620.       dc.w end_patt
  2621. p6b:
  2622.       dc.w Ab01,sq,C02,sq,Eb02,sq,Ab02,sq
  2623.       dc.w C02,sq,Ab02,sq,Eb02,sq,C02,sq
  2624.       dc.w Ab01,sq,C02,sq,Eb02,sq,Ab02,sq
  2625.       dc.w C02,sq,Ab02,sq,Eb02,sq,C02,sq
  2626.       dc.w Ab01,sq,C02,sq,Eb02,sq,Ab02,sq
  2627.       dc.w C02,sq,Ab02,sq,Eb02,sq,C02,sq
  2628.       dc.w Ab01,sq,C02,sq,Eb02,sq,Ab02,sq
  2629.       dc.w C02,sq,Ab02,sq,Eb02,sq,C02,sq
  2630.       dc.w end_patt
  2631. p7b:
  2632.       dc.w G01,sq,B01,sq,D02,sq,G02,sq
  2633.       dc.w B02,sq,G02,sq,D02,sq,B01,sq
  2634.       dc.w G01,sq,B01,sq,D02,sq,G02,sq
  2635.       dc.Eb02,cr*2,F02,q*5
  2636.       dc.w new_snd
  2637.       dc.l bas4
  2638.     dc.w G02,q,G02,q,G02,q,G02,q
  2639.     dc.w G02,q,G02,q,G02,q,G02,q
  2640.     dc.w G02,q,G02,q,G02,q,G02,q
  2641.     dc.w G02,q,F02,q,Eb02,q,D02,q,C02,q
  2642.       dc.w end_patt
  2643. p10G:     
  2644.       dc.w new_env
  2645.     dc.l kick_env
  2646.       dc.w new_snd
  2647.       dc.l kik1
  2648.       dc.w r16,cr
  2649.       dc.w r16,cr
  2650.       dc.w r16,cr
  2651.       dc.w r16,cr
  2652.       dc.w end_patt
  2653.  
  2654. CR      set 24
  2655. tcr1     set 9
  2656. tcr2     set 8
  2657. Q       set cr/2
  2658. tq1      set 4
  2659. tq2      set 5
  2660. ;tsq     set 3
  2661. ;tsq2     set 2
  2662. SQ      set cr/4
  2663. ;m       set 254
  2664. ;rest     set $fd00
  2665. ;dcr      set cr+q
  2666. ;dq      set q+sq
  2667. ;dsq      set sq+(sq/2)
  2668. ;sb      set cr*4
  2669. ;min      set cr*2
  2670. ;dm      set min+cr
  2671.  
  2672.  
  2673. ;minor triumph
  2674.  
  2675. s33:
  2676.     dc.l    p1h
  2677.       dc.l     0,end_song
  2678.  
  2679. s34:
  2680.     dc.l    p2h,p2h,p2ha,p2ha
  2681.         DC.L     0,end_song
  2682.  
  2683. s35:
  2684.         
  2685.     dc.l    p3h
  2686.     dc.l     0,end_song
  2687. s36:
  2688.     dc.l    p1bh
  2689.     dc.l     0,end_song
  2690.  
  2691. p1h:
  2692.       dc.w new_env
  2693.     dc.l org_env
  2694.       dc.w new_snd
  2695.       dc.l sax2
  2696.     dc.w G04,sq*5,rest,sq,G04,sq-2,rest,2,G04,sq-2,rest,2
  2697.     dc.w G04,sq,rest,sq,E04,sq,rest,sq,G04,sq,rest,sq,C05,sq,rest,sq
  2698.     dc.w G04,cr,E04,cr,C04,cr,E04,sq*3,G04,sq
  2699.     dc.w C05,sq*5,rest,sq,C05,sq-2,rest,2,C05,sq-2,rest,2
  2700.     dc.w C05,sq,rest,sq,Ab04,sq,rest,sq,C05,sq,rest,sq,Eb05,sq,rest,sq
  2701.     dc.w D05,cr*4
  2702.     dc.w G04,sq*5,rest,sq,G04,sq-2,rest,2,G04,sq-2,rest,2
  2703.     dc.w G04,sq,rest,sq,E04,sq,rest,sq,G04,sq,rest,sq,C05,sq,rest,sq
  2704.     dc.w G04,cr,E04,cr,C04,cr,G04,sq*3,C05,sq
  2705.     dc.w Eb05,sq*5,rest,sq,Eb05,sq-2,rest,2,Eb05,sq-2,rest,2
  2706.     dc.w Eb05,sq,rest,sq,C05,sq,rest,sq,Eb05,sq,rest,sq,Ab05,sq,rest,sq
  2707.     dc.w G05,q*5,rest,q,G05,cr
  2708.     dc.w Ab05,sq*5,rest,sq,Ab05,sq-2,rest,2,Ab05,sq-2,rest,2
  2709.     dc.w Ab05,sq,rest,sq,Eb05,sq,rest,sq,C06,sq,rest,sq,Ab05,sq,rest,sq
  2710.     dc.w G05,q*5,rest,q,G05,cr
  2711.     dc.w Ab05,sq*5,rest,sq,Ab05,sq-2,rest,2,Ab05,sq-2,rest,2
  2712.     dc.w Ab05,sq,rest,sq,C06,sq,rest,sq,Eb06,sq,rest,sq,Ab06,sq,rest,sq
  2713.     dc.w G06,cr*4
  2714.       dc.w end_patt
  2715. p1bh:
  2716.       dc.w new_env
  2717.     dc.l org_env
  2718.       dc.w new_snd
  2719.       dc.l sax2
  2720.     dc.w E04,sq*5,rest,sq,E04,sq-2,rest,2,E04,sq-2,rest,2
  2721.     dc.w E04,sq,rest,sq,C04,sq,rest,sq,E04,sq,rest,sq,G04,sq,rest,sq
  2722.     dc.w E04,cr,C04,cr,G04*2,cr,C04,sq*3,E04,sq
  2723.     dc.w Ab04,sq*5,rest,sq,Ab04,sq-2,rest,2,Ab04,sq-2,rest,2
  2724.     dc.w Ab04,sq,rest,sq,Eb04,sq,rest,sq,Ab04,sq,rest,sq,C05,sq,rest,sq
  2725.     dc.w B04,cr*4
  2726.     dc.w E04,sq*5,rest,sq,E04,sq-2,rest,2,E04,sq-2,rest,2
  2727.     dc.w E04,sq,rest,sq,C04,sq,rest,sq,E04,sq,rest,sq,G04,sq,rest,sq
  2728.     dc.w E04,cr,C04,cr,G04*2,cr,E04,sq*3,G04,sq
  2729.     dc.w C05,sq*5,rest,sq,C05,sq-2,rest,2,C05,sq-2,rest,2
  2730.     dc.w C05,sq,rest,sq,Ab05,sq,rest,sq,C05,sq,rest,sq,Eb05,sq,rest,sq
  2731.  
  2732.     dc.w D05,q*5,rest,q,D05,cr
  2733.     dc.w Eb05,sq*5,rest,sq,Eb05,sq-2,rest,2,Eb05,sq-2,rest,2
  2734.     dc.w Eb05,sq,rest,sq,C05,sq,rest,sq,Ab05,sq,rest,sq,Eb05,sq,rest,sq
  2735.     dc.w D05,q*5,rest,q,D05,cr
  2736.     dc.w Eb05,sq*5,rest,sq,Eb05,sq-2,rest,2,Eb05,sq-2,rest,2
  2737.     dc.w Eb05,sq,rest,sq,Ab05,sq,rest,sq,C06,sq,rest,sq,Eb06,sq,rest,sq
  2738.     dc.w D06,cr*4
  2739.       dc.w end_patt
  2740. p2h:
  2741.       dc.w new_env
  2742.     dc.l org_env
  2743.       dc.w new_snd
  2744.       dc.l orglp2
  2745.     dc.w C03,sq*5,rest,sq,C03,sq,rest,sq,C03,sq*7,rest,sq
  2746.     dc.w C03,sq*5,rest,sq,C03,sq,rest,sq
  2747.     dc.w C03,sq*3,rest,sq,C03,sq*3,rest,sq
  2748. p2ha:    dc.w Ab02,sq*5,rest,sq,Ab02,sq-2,rest,2,Ab02,sq-2,rest,2
  2749.     dc.w Ab02,sq*3,rest,sq,Ab02,sq*3,rest,sq
  2750.     dc.w G02,sq*5,rest,sq,G02,sq,rest,sq,G02,cr*2
  2751.       dc.w end_patt
  2752.  
  2753. p3h:     
  2754.       dc.w new_env
  2755.     dc.l kick_env
  2756.       dc.w new_snd
  2757.       dc.l kik1
  2758.       dc.w r16,Q
  2759.       dc.w new_snd
  2760.       dc.l hatcl
  2761.       dc.w r16,sQ,r16,sQ
  2762.       dc.w new_snd
  2763.       dc.l snr1
  2764.       dc.w r16,Q
  2765.       dc.w new_snd
  2766.       dc.l hatcl
  2767.       dc.w r16,Q,r16,sQ,r16,sq,r16,sQ,r16,sq
  2768.       dc.w new_snd
  2769.       dc.l kik1
  2770.       dc.w r16,Q
  2771.       dc.w new_snd
  2772.       dc.l hatcl
  2773.       dc.w r16,sQ,r16,sQ
  2774.       dc.w end_patt
  2775.  
  2776. CR      set 16
  2777. tcr1     set 9
  2778. tcr2     set 8
  2779. Q       set cr/2
  2780. tq1      set 4
  2781. tq2      set 5
  2782. ;tsq     set 3
  2783. ;tsq2     set 2
  2784. SQ      set cr/4
  2785. ;m       set 254
  2786. ;rest     set $fd00
  2787. ;dcr      set cr+q
  2788. ;dq      set q+sq
  2789. ;dsq      set sq+(sq/2)
  2790. ;sb      set cr*4
  2791. ;min      set cr*2
  2792. ;dm      set min+cr
  2793.  
  2794.  
  2795. ;minor anticlimax
  2796.  
  2797. s37:
  2798.     dc.l    p1i,p1i,p1ia,p1ia
  2799.       dc.l     0,end_song
  2800.  
  2801. s38:
  2802.     dc.l    p2i,p2i,p4i,p4i,p4i,p4ia
  2803.         DC.L     0,end_song
  2804.  
  2805. s39:
  2806.         
  2807.     dc.l    p3i
  2808.     dc.l     0,end_song
  2809. s40:
  2810.     dc.l    pr,pr,pr,pr
  2811.     dc.l     0,end_song
  2812.  
  2813. p1i:
  2814.       dc.w new_env
  2815.     dc.l org_env
  2816.       dc.w new_snd
  2817.       dc.l sax2
  2818.     dc.w Bb04,cr,G04,cr,Eb05,cr,D05,cr*5
  2819.     dc.w Bb04,cr,G04,cr,Eb05,cr,D05,cr*5
  2820.     dc.w Bb04,cr,G04,cr,Eb05,cr,D05,cr*3
  2821.     dc.w C05,cr,Bb04,cr*8,rest,cr
  2822.       dc.w end_patt
  2823. p1ia:
  2824.       dc.w new_env
  2825.     dc.l org_env
  2826.       dc.w new_snd
  2827.       dc.l orglp2
  2828.     dc.w Db06,cr,Bb05,cr,Eb06,cr,Bb05,cr
  2829.     dc.w Db06,cr,Bb05,cr,Eb06,cr,Bb05,cr
  2830.     dc.w Db06,cr,Bb05,cr,Eb06,cr,Bb05,cr
  2831.     dc.w Db06,cr,Bb05,cr,Eb06,cr,Bb05,cr
  2832.       dc.w end_patt
  2833. p2i:
  2834.       dc.w new_env
  2835.     dc.l kick_env
  2836.       dc.w new_snd
  2837.       dc.l kik1
  2838.     dc.w r16,q
  2839.       dc.w r16,q
  2840.       dc.w new_env
  2841.     dc.l bas5_env
  2842.       dc.w new_snd
  2843.       dc.l bas5
  2844.     dc.w C02,cr,Eb02,cr,Eb02,cr
  2845.     dc.w F02,cr,F02,cr,Ab02,cr,G02,cr
  2846.       dc.w new_env
  2847.     dc.l kick_env
  2848.       dc.w new_snd
  2849.       dc.l kik1
  2850.     dc.w r16,q
  2851.       dc.w r16,q
  2852.       dc.w new_env
  2853.     dc.l bas5_env
  2854.       dc.w new_snd
  2855.       dc.l bas5
  2856.     dc.w C02,cr,Eb02,cr,Eb02,cr
  2857.     dc.w F02,cr,F02,cr,Ab02,cr,G02,cr
  2858.       dc.w new_env
  2859.     dc.l kick_env
  2860. ,p5e,p7e
  2861.         DC.L     0,end_song
  2862.  
  2863. s23:
  2864.         
  2865.     dc.l    p10e,p10e,p10e
  2866.     dc.l    p10e,p10e,p10e,p11e2
  2867.     dc.l     0,end_song
  2868. s24:
  2869.     dc.l    p10ze,p10ze,p10ze,p10ze
  2870.     dc.l    p10ze,p10ze,p10ze,p10ze
  2871.     dc.l    p10ze,p10ze,p10ze,p10ze,p11e2
  2872.     dc.l     0,end_song
  2873.  
  2874. p1e:
  2875.       dc.w new_env
  2876.     dc.l org_env
  2877.       dc.w new_snd
  2878.       dc.l orglp2
  2879.       dc.w G05,q,Eb06,q,D06,q,C06,q
  2880.       dc.w G05,q,Eb06,q,D06,q,C06,q
  2881.       dc.w G05,q,Eb06,q,D06,q,C06,q,rest,q,C06,q,Bb05,cr
  2882.       dc.w end_patt
  2883.  
  2884. p2e:
  2885.       dc.w C06,q,Ab06,q,G06,q,F06,q
  2886.       dc.w C06,q,w Bb01,cr*16
  2887.     dc.w Ab02,cr*4
  2888.       dc.w end_patt
  2889. p4i:     
  2890.       dc.w new_env
  2891.     dc.l kick_env
  2892.       dc.w new_snd
  2893.       dc.l kik1
  2894.       dc.w r16,cr*2
  2895.       dc.w r16,cr*2
  2896.       dc.w r16,cr*2
  2897.       dc.w r16,cr*2
  2898.       dc.w end_patt
  2899. p4ia:                 ; LINE MISSING (2nd note)
  2900.       dc.w new_env
  2901.     dc.l kick_env
  2902.       dc.w new_snd
  2903.       dc.l kik1
  2904.       dc.w r16,cr*2
  2905.       dc.w r16,cr*2
  2906.       dc.w r16,cr
  2907.       dc.w r16,cr
  2908.       dc.w r16,cr
  2909.       dc.w r16,cr
  2910.       dc.w end_patt
  2911.  
  2912. CR      set 20
  2913. tcr1     set 9
  2914. tcr2     set 8
  2915. Q       set cr/2
  2916. tq1      set 4
  2917. tq2      set 5
  2918. ;tsq     set 3
  2919. ;tsq2     set 2
  2920. SQ      set cr/4
  2921. ;m       set 254
  2922. ;rest     set $fd00
  2923. ;dcr      set cr+q
  2924. ;dq      set q+sq
  2925. ;dsq      set sq+(sq/2)
  2926. ;sb      set cr*4
  2927. ;min      set cr*2
  2928. ;dm      set min+cr
  2929.  
  2930. ;threatening
  2931.  
  2932. s41:
  2933.     dc.l    p1j,p1j,p2j
  2934.       dc.l     0,end_song
  2935.  
  2936. s42:
  2937.     dc.l    p3j,p3j,p3j,p3j,p4j
  2938.         DC.L     0,end_song
  2939.  
  2940. s43:
  2941.         
  2942.     dc.l    p10j,p10j,p10j,p10j,p5j
  2943.     dc.l     0,end_song
  2944. s44:
  2945.     dc.l    pr,pr,pr,pr
  2946.     dc.l     0,end_song
  2947.  
  2948. p1j:
  2949.       dc.w new_env
  2950.     dc.l org_env
  2951.       dc.w new_snd
  2952.       dc.l orglp2
  2953.     dc.w C05,cr,Bb05,q,Db05,cr,Gb05,q,B05,q
  2954.     dc.w D05,cr,G05,q,C06,q,Eb05,cr,Ab05,q,Db06,q,Eb06,q
  2955.       dc.w end_patt
  2956. p2j:
  2957.     dc.w E05,cr*4
  2958.       dc.w end_patt
  2959. p3j:
  2960.       dc.w new_snd
  2961.       dc.l bas4
  2962.     dc.w C02,q,Db02,q,B01,q,C02,q
  2963.     dc.w C02,q,Db02,q,B01,q,C02,q
  2964.       dc.w end_patt
  2965. p4j:
  2966.       dc.w new_env
  2967.     dc.l org_env
  2968.       dc.w new_snd
  2969.       dc.l orglp2
  2970.     dc.w Eb05,cr*4
  2971.       dc.w end_patt
  2972. p5j:
  2973.       dc.w new_env
  2974.     dc.l org_env
  2975.       dc.w new_snd
  2976.       dc.l orglp2
  2977.     dc.w F05,cr*4
  2978.       dc.w end_patt
  2979.  
  2980. p10j:     
  2981.       dc.w new_env
  2982.     dc.l kick_env
  2983.       dc.w new_snd
  2984.       dc.l kik1
  2985.       dc.w r16,cr
  2986.       dc.w r16,cr
  2987.       dc.w new_snd
  2988.       dc.l snr1
  2989.       dc.w r16,Q,r16,q,r16,q
  2990.       dc.w new_snd
  2991.       dc.l kik1
  2992.       dc.w r16,q
  2993.       dc.w end_patt
  2994.  
  2995. CR      set 20
  2996. tcr1     set 9
  2997. tcr2     set 8
  2998. Q       set cr/2
  2999. tq1      set 4
  3000. tq2      set 5
  3001. ;tsq     set 3
  3002. ;tsq2     set 2
  3003. SQ      set cr/4
  3004. ;m       set 254
  3005. ;rest     set $fd00
  3006. ;dcr      set cr+q
  3007. ;dq      set q+sq
  3008. ;dsq      set sq+(sq/2)
  3009. ;sb      set cr*4
  3010. ;min      set cr*2
  3011. ;dm      set min+cr
  3012.  
  3013.  
  3014. ;high drama
  3015.  
  3016. s45:
  3017.     dc.l    p1k,p1k,p2k,p2k
  3018.       dc.l     0,end_song
  3019.  
  3020. s46:
  3021.     dc.l    p3k,p3k,p3k,p3k,p3k
  3022.         DC.L     0,end_song
  3023.  
  3024. s47:
  3025.         
  3026.     dc.l    p10k,p10k,p10k,p10k,p10k
  3027.     dc.l     0,end_song
  3028. s48:
  3029.     dc.l    pr,pr,pr,pr
  3030.     dc.l     0,end_song
  3031.  
  3032. p1k:
  3033.       dc.w new_env
  3034.     dc.l x_env
  3035.       dc.w new_snd
  3036.       dc.l sine
  3037.     dc.w C06,3,rest,2,C06,3,rest,2,C06,3,rest,7
  3038.     dc.w c06,3,rest,7,c06,3,rest,2,c06,3,rest,2
  3039.     dc.w C06,3,rest,7,c06,3,rest,7,c06,3,rest,2
  3040.     dc.w c06,3,rest,2,C06,3,rest,2,C06,3,rest,2
  3041.     dc.w c06,3,rest,7,c06,3,rest,2,c06,3,rest,2
  3042.     dc.w C06,3,rest,2,C06,3,rest,7,C06,3,rest,2
  3043.     dc.w C06,3,rest,7,c06,3,rest,7,c06,3,rest,2
  3044.     dc.w c06,3,rest,2,C06,3,rest,2,C06,3,rest,2
  3045.       dc.w end_patt
  3046. p2k:
  3047.       dc.w new_env
  3048.     dc.l org_env
  3049.       dc.w new_snd
  3050.       dc.l sax2
  3051.     dc.w E05,sq,F05,sq,Gb05,sq,G05,sq
  3052.     dc.w Ab05,sq,A05,sq,Bb05,sq,B05,sq
  3053.       dc.w end_patt
  3054. p2ak:
  3055.     dc.w C05,q,rest,q*7
  3056.       dc.w end_patt
  3057. p3k:
  3058.       dc.w new_snd
  3059.       dc.l bas4
  3060.     dc.w C02,q,C02,q,C03,q,Eb02,sq,Bb02,q
  3061.     dc.w F02,sq,C03,q,G02,q,Gb02,q
  3062.       dc.w end_patt
  3063. p3ak:
  3064.     dc.w C02,q,rest,q*7
  3065.       dc.w end_patt
  3066. p10k:     
  3067.       dc.w new_env
  3068.     dc.l kick_env
  3069.       dc.w new_snd
  3070.       dc.l kik1
  3071.       dc.w r16,sq
  3072.       dc.w new_snd
  3073.       dc.l hatcl
  3074.       dc.w r16,sQ,r16,sQ,r16,sQ
  3075.       dc.w new_snd
  3076.       dc.l snr1
  3077.       dc.w r19,Q
  3078.       dc.w new_snd
  3079.       dc.l kik1
  3080.       dc.w r16,sQ
  3081.       dc.w new_snd
  3082.       dc.l snr1
  3083.       dc.w r18,Q
  3084.       dc.w new_snd
  3085.       dc.l kik1
  3086.       dc.w r16,sQ
  3087.       dc.w new_snd
  3088.       dc.l snr1
  3089.       dc.w r10,Q,r17,q,r18,q
  3090.       dc.w end_patt
  3091.  
  3092. CR      set 24
  3093. tcr1     set 9
  3094. tcr2     set 8
  3095. Q       set cr/2
  3096. tq1      set 4
  3097. tq2      set 5
  3098. ;tsq     set 3
  3099. ;tsq2     set 2
  3100. SQ      set cr/4
  3101. ;m       set 254
  3102. ;rest     set $fd00
  3103. ;dcr      set cr+q
  3104. ;dq      set q+sq
  3105. ;dsq      set sq+(sq/2)
  3106. ;sb      set cr*4
  3107. ;min      set cr*2
  3108. ;dm      set min+cr
  3109.  
  3110. ;nostalgic
  3111.  
  3112. s49:
  3113.     dc.l    p1l
  3114.       dc.l     0,end_song
  3115.  
  3116. s50:
  3117.     dc.l    p4l
  3118.         DC.L     0,end_song
  3119.  
  3120. s51:
  3121.         
  3122.     dc.l    p2l,p2l,p3l
  3123.     dc.l     0,end_song
  3124. s52:
  3125.     dc.l    pr,pr,pr,pr
  3126.     dc.l     0,end_song
  3127.  
  3128. p1l:
  3129.       dc.w new_env
  3130.     dc.l flt1_env
  3131.       dc.w new_snd
  3132.       dc.l sax2
  3133.     dc.w C06,cr*3,B05,cr*2,C06,q,D06,q,A05,cr*6
  3134.     dc.w C06,cr*3,B05,cr*2,C06,q,D06,q,A05,cr*6
  3135.     dc.w E06,cr*3,D06,q*5,E06,q,C06,q*11,rest,q
  3136.     dc.w C06,cr*3,B05,cr*2,C06,q,D06,q,C06,cr*3,E05,cr,D05,cr,C05,cr
  3137.       dc.w end_patt
  3138. p2l:
  3139.       dc.w new_env
  3140.     dc.l org_env
  3141.       dc.w new_snd
  3142.       dc.l sax2
  3143.     dc.w rest,q,G01,q,C02,q,G01,q,E02,q,G01,q
  3144.     dc.w rest,q,G01,q,C02,q,G01,q,E02,q,G01,q
  3145.     dc.w rest,q,C02,q,F02,q,C02,q,A02,q,C02,q
  3146.     dc.w rest,q,C02,q,F02,q,C02,q,A02,q,C02,q
  3147.       dc.w end_patt
  3148. p3l:
  3149.     dc.w rest,q,B01,q,E02,q,B01,q,Ab02,q,B01,q
  3150.     dc.w rest,q,B01,q,E02,q,B01,q,Ab02,q,B01,q
  3151.     dc.w rest,q,E02,q,A02,q,E02,q,C03,q,E02,q
  3152.     dc.w rest,q,E02,q,A02,q,E02,q,C03,q,E02,q
  3153.     dc.w rest,q,C02,q,F02,q,C02,q,A02,q,C02,q
  3154.     dc.w rest,q,D02,q,G02,q,D02,q,B02,q,D02,q
  3155.     dc.w rest,q,G01,q,C02,q,G01,q,E02,q,G01,q
  3156.     dc.w rest,q,G01,q,C02,q,G01,q,E02,q,G01,q
  3157.       dc.w end_patt
  3158. p4l:
  3159.       dc.w new_env
  3160.     dc.l org_env
  3161.       dc.w new_snd
  3162.       dc.l orglp2
  3163.     dc.w C03,q*5,rest,q,C03,cr,D03,cr,E03,cr
  3164.     dc.w F03,q*5,rest,q,F03,cr,E03,cr,D03,cr
  3165.     dc.w C03,q*5,rest,q,C03,cr,D03,cr,E03,cr
  3166.     dc.w F03,q*5,rest,q,F03,cr,E03,cr,D03,cr
  3167.     dc.w E03,q*5,rest,q,E03,cr*3,A03,cr*3,A03,cong
  3168. s32:
  3169.     dc.l    pr,pr,pr,pr
  3170.     dc.l     0,end_song
  3171.  
  3172. p1g:
  3173.       dc.w new_env
  3174.     dc.l org_env
  3175.       dc.w new_snd
  3176.       dc.l orglp2
  3177.     dc.w Eb06,q,D06,q,C06,q,F06,cr
  3178.     dc.w Eb06,q,D06,q,G06,cr,F06,q,Eb06,q
  3179.     dc.w F06,cr,Eb06,q,D06,q,Eb06,sq,rest,sq
  3180.     dc.w Eb06,q,D06,q,C06,q,F06,cr
  3181.     dc.w Eb06,q,D06,q,G06,cr,F06,q,Eb06,q
  3182.     dc.w F06,cr,Eb06,q,D06,q,Eb06,q
  3183.     dc.w G06,q*13,F06,q,Eb06,q,D06,q,C06,q
  3184.       dc.w end_patt
  3185. p5g:
  3186.       dc.w new_snd
  3187.       dc.l bas4
  3188.       dc.w C02,q*3,D02,cr*2,Eb02,cr*2,D02,q*5
  3189.       dc.w C02,q*3,D02,cr*2,   DC.L     0,end_song
  3190. s55:
  3191.     dc.l    p44m,p44m,p44m,p44m
  3192.     dc.l    p33ma,p33me,p33mb,p33mc
  3193.     dc.l    p33ma,p33me,p33mb,p33mc
  3194.     dc.l    p33m,p33m,p33m,p33m,p33m,p33m
  3195.     dc.l    p33m,p33m,p33m,p33m
  3196.     dc.l    p33ma,p33ma,p33ma,p33mb
  3197.     dc.l    p33ma,p33ma,p33ma,p33mc
  3198.     dc.l    p33m,p33m,p33m,p33m,p33m
  3199.     dc.l    p33m,p33m,p33m,p33m,p33m,p33m,p33m
  3200.     dc.l     0,end_song
  3201. s56:
  3202.     dc.l    pfzf,pfzg,pr,pfzg,pr,pr,pr,pr
  3203.     dc.l    pr,pr,pr,pr,pr,pr,pr,pr
  3204.     dc.l    pr,pr,pr,pr,pr,pr,pr,pr
  3205.     dc.l    pr,pr,pr,pr,pr,pr,pr,pr,pr,pr
  3206.     dc.l     0,end_song
  3207. p1m:
  3208.       dc.w new_env
  3209.     dc.l org_env
  3210.       dc.w new_snd
  3211.       dc.l sax2
  3212.     dc.w D05,cr*4,B04,cr*2,Db05,cr*2
  3213.     dc.w D05,cr*4,B04,cr*2,Db05,cr*2
  3214.     dc.w D04,cr*4,B03,cr*2,Db04,cr*2
  3215.     dc.w D05,cr*4,B04,cr*2,Db05,cr*2
  3216.     dc.w F05,tq,D06,tq,D05,tq
  3217.     dc.w A05,tq,A04,tq,F05,tq
  3218.     dc.w F04,tq,D05,tq,D04,tq
  3219.     dc.w A04,tq,A04*2,tq,F04,tq
  3220.     dc.w G04*2,tq,E04,tq,B03,tq
  3221.     dc.w G04,tq,E04,tq,B04,tq
  3222.     dc.w Db05,cr*2
  3223.     dc.w F05,tq,D06,tq,D05,tq
  3224.     dc.w A05,tq,A04,tq,F05,tq
  3225.     dc.w F04,tq,D05,tq,D04,tq
  3226.     dc.w A04,tq,A04*2,tq,F04,tq
  3227.     dc.w B03,tq,G04,tq,E04,tq
  3228.     dc.w B04,tq,G04,tq,D05,tq
  3229.     dc.w Db05,cr*2
  3230.     dc.w D05,cr*4,B04,cr*2,Db05,tq*5
  3231. ;      dc.w new_env
  3232. ;    dc.l org_env
  3233. ;      dc.w new_snd
  3234. ;      dc.l orglp2
  3235.     dc.w G05,tsq,Ab05,tsq,A05,tq,D05,tq,A05,tq
  3236.     dc.w G05,tq,D05,tq,G05,tq
  3237.     dc.w F05,tq,D05,tq,F05,tq
  3238.     dc.w E05,tq,A04,tq,D05,tq 
  3239.     dc.w E05,tq,B04,tq,E05,tq
  3240.     dc.w D05,tq,B04,tq,D05,tq
  3241.     dc.w Db05,tq*5
  3242. ;     dc.w new_env
  3243. ;    dc.l org_env
  3244. ;    dc.w new_snd
  3245. ;      dc.l orglp2
  3246.     dc.w G05,tsq,Ab05,tsq,A05,tq,D05,tq,A05,tq
  3247.     dc.w G05,tq,D05,tq,G05,tq
  3248.     dc.w F05,tq,D05,tq,F05,tq
  3249.     dc.w E05,tq,A04,tq,D05,tq 
  3250.     dc.w E05,tq,B04,tsq,E05,tsq,Ab05,tq
  3251.     dc.w B05,tq,Ab05,tq,B05,tq
  3252. ;      dc.w new_env
  3253. ;    dc.l org_env
  3254. ;      dc.w new_snd
  3255. ;      dc.l orglp2
  3256.     dc.w A06,cr*2
  3257.       dc.w end_patt
  3258. p1mma:
  3259.     dc.w Bb05,tq*2,F05,tq*2,D05,tq,F05,tq
  3260.     dc.w D06,tq*2,Bb05,tq*2,F05,tq,D05,tq
  3261.     dc.w Db06,tq*2,A05,tq*2,E05,tq,A05,tq
  3262.     dc.w E06,cr*2
  3263.     dc.w Bb05,tq*2,F05,tq*2,D05,tq,F05,tq
  3264.     dc.w D06,tq*2,Bb05,tq*2,F05,tq,D05,tq
  3265.     dc.w B05,tq*2,Gb05,tq*2,E05,tq,Gb05,tq
  3266.     dc.w Db06,cr*2
  3267.     dc.w D04,cr*4,B03,cr*2,Db04,cr*2
  3268.     dc.w D05,cr*4,B04,cr*2,Db05,cr*2
  3269.       dc.w end_patt
  3270. p1mmb:
  3271.     dc.w D04,tq,F04,tq,A04,tq
  3272.     dc.w D05,tq,F05,tq,A05,tq
  3273.     dc.w D06,tq,A05,tq,F05,tq
  3274.     dc.w D05,tq,A04,tq,F04,tq
  3275.     dc.w E04,tq,G04,tq,B04,tq
  3276.     dc.w E05,tq,B04,tq,E05,tq
  3277.     dc.w A04,tq,Db05,tq,E05,tq
  3278.     dc.w A05,tq,E05,tq,A05,tq
  3279.       dc.w end_patt
  3280. p1mmc:
  3281.     dc.w D04,tsq,F04,tsq,A04,tsq
  3282.     dc.w D05,tsq,F05,tsq,A05,tsq
  3283.     dc.w D06,tsq,A05,tsq,F05,tsq
  3284.     dc.w D05,tsq,A04,tsq,F04,tsq
  3285.     dc.w D04,tsq,F04,tsq,A04,tsq
  3286.     dc.w D05,tsq,F05,tsq,A05,tsq
  3287.     dc.w D06,tsq,A05,tsq,F05,tsq
  3288.     dc.w D05,tsq,A04,tsq,F04,tsq
  3289.  
  3290.     dc.w E04,tsq,G04,tsq,B04,tsq
  3291.     dc.w E05,tsq,B04,tsq,E05,tsq
  3292.     dc.w E04,tsq,G04,tsq,B04,tsq
  3293.     dc.w E05,tsq,B04,tsq,E05,tsq
  3294.  
  3295.     dc.w A04,tsq,Db05,tsq,E05,tsq
  3296.     dc.w A05,tsq,E05,tsq,A05,tsq
  3297.     dc.w A04,tsq,Db05,tsq,E05,tsq
  3298.     dc.w A05,tsq,E05,tsq,A05,tsq
  3299.  
  3300.       dc.w end_patt
  3301. p2int:
  3302.       dc.w new_env
  3303.     dc.l org_env
  3304.       dc.w new_snd
  3305.     dc.l sax2
  3306.     dc.w F04,cr*4,E04,cr*2,A04,cr*2
  3307.     dc.w F04,cr*4,E04,cr*2,A04,cr*2
  3308.       dc.w end_patt
  3309. p2m:
  3310.       dc.w new_env
  3311.     dc.l org_env
  3312.       dc.w new_snd
  3313.     dc.l orglp2
  3314.     dc.w D02,(tq*2)-tsq,rest,tsq,D02,tq*2,F01,tq,A01,tq
  3315.     dc.w D02,(tq*2)-tsq,rest,tsq,D02,tq*2,F01,tq,A01,tq
  3316.     dc.w E02,(tq*2)-tsq,rest,tsq,E02,tq*2,D02,tq,B01,tq,A01,cr,Db02,cr
  3317.      dc.w end_patt
  3318. ;p2m:
  3319.       dc.w new_env
  3320.     dc.l org_env
  3321.       dc.w new_snd
  3322.     dc.l orglp2
  3323.     dc.w D02,tq*4,F01,tq,A01,tq,D02,tq*4,F01,tq,A01,tq
  3324.     dc.w E02,tq*4,D02,tq,B01,tq,A01,cr,Db02,cr
  3325.      dc.w end_patt
  3326. p2mma:
  3327.       dc.w new_env
  3328.     dc.l org_env
  3329.       dc.w new_snd
  3330.     dc.l orglp2
  3331.     dc.w Bb02,(tq*2)-tsq,rest,tsq,Bb02,tq*2,F02,tq,G02,tq
  3332.     dc.w Bb02,(tq*2)-tsq,rest,tsq,Bb02,tq*2,F02,tq,G02,tq
  3333.     dc.w A02,(tq*2)-tsq,rest,tsq,A02,tq*2,E02,tq,G02,tq,A02,cr*2
  3334.     dc.w Bb02,(tq*2)-tsq,rest,tsq,Bb02,tq*2,F02,tq,G02,tq
  3335.     dc.w Bb02,(tq*2)-tsq,rest,tsq,Bb02,tq*2,F02,tq,G02,tq
  3336.     dc.w E03,(tq*2)-tsq,rest,tsq,E03,tq*2,D03,tq,B02,tq,A02,cr*2
  3337.      dc.w end_patt
  3338. p33m:     
  3339.       dc.w new_env
  3340.     dc.l kick_env
  3341.       dc.w new_snd
  3342.       dc.l kik1
  3343.       dc.w r16,tQ
  3344.       dc.w new_snd
  3345.       dc.l hatcl
  3346.       dc.w r16,tQ,r16,tQ
  3347.       dc.w new_snd
  3348.       dc.l snr1
  3349.       dc.w r16,cr    ;tQ
  3350. ;      dc.w new_snd
  3351. ;      dc.l hatcl
  3352. ;      dc.w r16,tQ,r16,tQ
  3353. p33mb:  dc.w new_snd
  3354.       dc.l hatcl
  3355.     dc.w r16,tQ,r16,tsq,r16,tsQ,r16,tq
  3356.       dc.w new_snd
  3357.       dc.l kik1
  3358.       dc.w r16,tQ
  3359.       dc.w new_snd
  3360.       dc.l hatcl
  3361.       dc.w r16,tQ,r16,tQ
  3362.       dc.w end_patt
  3363. p44m:     
  3364.       dc.w new_env
  3365.     dc.l kick_env
  3366.       dc.w new_snd
  3367.       dc.l hatcl
  3368.       dc.w r16,tQ
  3369.       dc.w r16,tQ,r16,tQ
  3370.       dc.w r16,tQ
  3371.       dc.w r16,tsQ,r16,tsQ,r16,tq
  3372.     dc.w r16,tq,r16,tsq,r16,tsQ,r16,tq
  3373.       dc.w r16,tQ
  3374.       dc.w r16,tQ,r16,tQ
  3375.       dc.w end_patt
  3376. p33ma:     
  3377.       dc.w new_env
  3378.     dc.l kick_env
  3379.       dc.w new_snd
  3380.       dc.l kik1
  3381.       dc.w r16,tQ
  3382.       dc.w new_snd
  3383.       dc.l hatcl
  3384.       dc.w r16,tQ
  3385.       dc.w new_snd
  3386.       dc.l kik1
  3387.       dc.w r16,tQ
  3388.       dc.w new_snd
  3389.       dc.l hatcl
  3390.       dc.w r16,tsQ,r16,tsQ
  3391.       dc.w new_snd
  3392.       dc.l snr1
  3393.       dc.w r16,tQ,r16,tq
  3394.       dc.w end_patt
  3395. pfzf:
  3396.       dc.w new_env
  3397.     dc.l kick_env
  3398.       dc.w new_snd
  3399.       dc.l snr1
  3400.       dc.w r4,cr*4
  3401.       dc.w end_patt
  3402. pfzg:
  3403.       dc.w      dc.w new_snd
  3404.       dc.l kik1
  3405.     dc.w r16,q
  3406.       dc.w r16,q
  3407.       dc.w new_env
  3408.     dc.l bas5_env
  3409.       dc.w new_snd
  3410.       dc.l bas5
  3411.     dc.w C02,cr,Eb02,cr,Eb02,cr
  3412.     dc.w F02,cr,F02,cr,Ab02,cr,G02,cr
  3413.     dc.w G02,cr,G02,cr,A02,cr,A02,cr
  3414.     dc.w Bb02,cr,Bb02,cr,Db03,cr,C03,cr
  3415.       dc.w end_patt
  3416. p2ia:
  3417.     dc.w rest,cr*16
  3418.       dc.w end_patt
  3419.  
  3420. p3i:
  3421.       dc.w new_env
  3422.     dc.l org_env
  3423.       dc.w new_snd
  3424.       dc.l orglp2
  3425.     dc.w G02,cr*32
  3426.     dc.w G02,cr*32
  3427.       dc.w new_env
  3428.     dc.l org_env
  3429.       dc.w new_snd
  3430.       dc.l orglp2
  3431.     dc.w Bb01,cr*12
  3432.     dc.      dc.l hatcl
  3433.       dc.w r16,tsQ,r16,tsQ
  3434.       dc.w new_snd
  3435.       dc.l kik1
  3436.       dc.w r16,tQ
  3437.       dc.w end_patt
  3438.  
  3439. CR      set 20
  3440. tcr1     set 9
  3441. tcr2     set 8
  3442. Q       set cr/2
  3443. tq1      set 4
  3444. tq2      set 5
  3445. ;tsq     set 3
  3446. ;tsq2     set 2
  3447. SQ      set cr/4
  3448. ;m       set 254
  3449. ;rest     set $fd00
  3450. ;dcr      set cr+q
  3451. ;dq      set q+sq
  3452. ;dsq      set sq+(sq/2)
  3453. ;sb      set cr*4
  3454. ;min      set cr*2
  3455. ;dm      set min+cr0
  3456.  
  3457.  
  3458. ;secretive
  3459.  
  3460. s57:
  3461.     dc.l    p1n,p1n
  3462.       dc.l     0,end_song
  3463.  
  3464. s58:
  3465.     dc.l    p2n,p2n
  3466.         DC.L     0,end_song
  3467.  
  3468. s59:
  3469.         
  3470.     dc.l    p10n,p10n
  3471.     dc.l     0,end_song
  3472. s60:
  3473.     dc.l    pr,pr,pr,pr
  3474.     dc.l     0,end_song
  3475.  
  3476. p1n:
  3477.       dc.w new_env
  3478.     dc.l org_env
  3479.       dc.w new_snd
  3480.       dc.l shak
  3481.     dc.w F05,cr,Eb05,cr,Bb04,cr,G04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  3482.     dc.w F05,cr,Eb05,cr,Bb04,cr,Ab04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  3483.     dc.w F05,cr,Eb05,cr,Bb04,cr,Gb04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  3484.     dc.w F05,cr,Eb05,cr,Bb04,cr,Gb04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  3485.       dc.w end_patt
  3486. p2n:
  3487.       dc.w new_env
  3488.     dc.l org_env
  3489.       dc.w new_snd
  3490.       dc.l orglp2
  3491.     dc.w Eb02,cr*3,Db02,cr*5,Gb01,cr*3,Ab01,cr*5
  3492.     dc.w Eb01,cr*16
  3493.       dc.w end_patt
  3494. p10n:     
  3495.       dc.w new_env
  3496.     dc.l kick_env
  3497.       dc.w new_snd
  3498.       dc.l kik1
  3499.       dc.w r16,cr*3
  3500.       dc.w r16,cr*2
  3501.       dc.w r16,cr*1
  3502.       dc.w new_snd
  3503.       dc.l snr1
  3504.       dc.w r16,cr*2
  3505.       dc.w new_snd
  3506.       dc.l kik1
  3507.       dc.w r16,cr*3
  3508.       dc.w r16,cr*2
  3509.       dc.w r16,cr
  3510.       dc.w new_snd
  3511.       dc.l snr1
  3512.       dc.w r16,cr
  3513.       dc.w new_snd
  3514.       dc.l kik1
  3515.       dc.w r16,cr
  3516.     dc.w r16,cr*3
  3517.       dc.w r16,cr*2
  3518.       dc.w new_snd
  3519.       dc.l snr1
  3520.       dc.w r16,cr
  3521.     dc.w r16,cr*2
  3522.       dc.w new_snd
  3523.       dc.l kik1
  3524.       dc.w r16,cr*3
  3525.       dc.w r16,cr*2
  3526.       dc.w new_snd
  3527.       dc.l snr1
  3528.       dc.w r16,cr
  3529.     dc.w r16,cr,r16,cr
  3530.       dc.w end_patt
  3531.  
  3532. ;Great disaster scene
  3533.  
  3534. s61:
  3535.     dc.l    qpr,qpr,qpr,qpr,p1o
  3536.       dc.l     0,end_song
  3537.  
  3538. s62:
  3539.     dc.l    p2o,p2o,p2o,p2o,p2o,p2o,p2o,p2o,p2o,p2o
  3540.     dc.l    p2o,p2o,p2o,p2o,p2o,p2o,p2o,p2o,p2ao
  3541.         DC.L     0,end_song
  3542.  
  3543. s63:
  3544.         
  3545.     dc.l    qpr,qpr,p3o,p3o,p3o,p3o,p3o,p3o,p3o,p3o,p3o
  3546.     dc.l    p3o,p3o,p3o,p3o,p3o,p3o,p3o,p3o,p3ao
  3547.     dc.l     0,end_song
  3548. s64:
  3549.     dc.l    pbb,pbb,pbb,pbb
  3550.     dc.l     0,end_song
  3551. qpr:
  3552.     dc.w rest,cr*4
  3553.       dc.w end_patt
  3554. p1o:
  3555.       dc.w new_env
  3556.     dc.l org_env
  3557.       dc.w new_snd
  3558.       dc.l sax2
  3559.     dc.w C05,cr*6,Bb04,cr*2,G04,cr*8
  3560.     dc.w C05,cr*6,Eb05,cr*2,Gb05,cr*8
  3561.     dc.w C05,cr*6,Bb04,cr*2,G04,cr*8
  3562.     dc.w C05,cr*6,Eb05,cr*2,Gb05,cr*8
  3563.     dc.w G05,cr*6,F05,cr*2,C05,cr*8
  3564.     dc.w G05,cr*6,Db06,cr*2
  3565.     dc.w C06,cr*8
  3566.     dc.w C05,cr*6,Bb04,cr*2,G04,cr*8
  3567.     dc.w C05,cr*6,Eb05,cr*2,Gb05,cr*4,F05,cr*4,C05,cr*8
  3568.       dc.w end_patt
  3569. p2o:
  3570.       dc.w new_env
  3571.     dc.l org_env
  3572.       dc.w new_snd
  3573.       dc.l orglp2
  3574.     dc.w C02,cr*2,Eb02,cr*2,Bb01,cr*2,Db02,cr*2
  3575.       dc.w end_patt
  3576. p2ao:
  3577.       dc.w new_env
  3578.     dc.l org_env
  3579.       dc.w new_snd
  3580.       dc.l orglp2
  3581.     dc.w C02,cr*8
  3582.       dc.w end_patt
  3583. p3o:
  3584.       dc.w new_env
  3585.     dc.l org_env
  3586.       dc.w new_snd
  3587.       dc.l orglp2
  3588.     dc.w C03,cr,Eb03,cr,Bb02,cr,Db03,cr
  3589.     dc.w C03,cr,Eb03,cr,Bb02,cr,Db03,cr
  3590.       dc.w end_patt
  3591. p3ao:
  3592.       dc.w new_env
  3593.     dc.l org_env
  3594.       dc.w new_snd
  3595.       dc.l orglp2
  3596.     dc.w C03,cr*8
  3597.       dc.w end_patt
  3598. pbb:
  3599.       dc.w new_env
  3600.     dc.l kick_env
  3601.       dc.w new_snd
  3602.       dc.l tom1
  3603.     dc.w pbend,down,50,r3,2
  3604.     dc.w r8,cr*4
  3605.       dc.w end_patt
  3606.  
  3607.  
  3608. CR      set 16
  3609. tcr1     set 9
  3610. tcr2     set 8
  3611. Q       set cr/2
  3612. tq1      set 4
  3613. tq2      set 5
  3614. ;tsq     set 3
  3615. ;tsq2     set 2
  3616. SQ      set cr/4
  3617. ;m       set 254
  3618. ;rest     set $fd00
  3619. ;dcr      set cr+q
  3620. ;dq      set q+sq
  3621. ;dsq      set sq+(sq/2)
  3622. ;sb      set cr*4
  3623. ;min      set cr*2
  3624. ;dm      set min+cr
  3625.  
  3626.  
  3627. ;Main theme tune
  3628.  
  3629.  
  3630. s65:
  3631. ;    dc.l    p13p,p14p,p15p,p14p,p13p,p14p,p15p,p14p
  3632.     dc.l    p                    ; intro 4
  3633.     dc.l    p1p                    ;part a 16
  3634.     dc.l    p1ap                    ;part a 16oct
  3635.     dc.l    p2p,p2ap                ;part b 16
  3636.     dc.l    p1p                    ;part a 16
  3637.     dc.l    p13p,p14p,p15p,p14p,p13p,p14p,p15p,p14p    ;solo 16
  3638.     dc.l    p13p,p14p,p15p,p14p,p13p,p14p,p15p,p14p
  3639.     dc.l    p16p
  3640.       dc.l     0,end_song
  3641.  
  3642. s66:
  3643.     dc.l    prp                    ;intro4
  3644.     dc.l    p3p,p4p,p5p,p4p,p3p,p4p,p6p,p6ap    ;part a 16
  3645.     dc.l    p3p,p4p,p5p,p4p,p5p,p4p,p3p,p3p
  3646.     dc.l    p3p,p4p,p5p,p4p,p3p,p4p,p6p,p6ap    ;part a 16
  3647.     dc.l    p3p,p4p,p5p,p4p,p5p,p4p,p3p,p3p
  3648.     dc.l    p7p,p8p,p9p,p7ap,p12p            ;part b 16
  3649.     dc.l    p7p,p8p,p9p,p7ap,p12ap
  3650.     dc.l    p3p,p4p,p5p,p4p,p3p,p4p,p6p,p6ap    ;part a 16
  3651.     dc.l    p3p,p4p,p5p,p4p,p5p,p4p,p3p,p3p
  3652.     dc.l    p3p,p4p,p5p,p4p,p3p,p4p,p5p,p4p        ;solo 16
  3653.     dc.l    p3p,p4p,p5p,p4p,p3p,p4p,p5p,p4p
  3654.     dc.l    p6p,p6ap                
  3655.     dc.l    p3p,p4p,p5p,p4p
  3656.     dc.l    p3p,p4p,p5p,p4p
  3657.     dc.l    p3p,p4p,p5p,p4p
  3658.     dc.l    p3p,p4p,p5p,p4p
  3659.     dc.l    p3p,p4p,p5p,p4p
  3660.         DC.L     0,end_song
  3661.  
  3662. s67:
  3663.     dc.l    prp                    ;intro 4 
  3664.     dc.l    p11p,p11p,p11p,p11ap,p11p,p11p,p11p,p11p    ;part a 16
  3665.     dc.l    p11p,p11p,p11p,p11ap,p11p,p11p,p11p,p11bp    ;part a 16
  3666.     dc.l    p10p,p10p,p10p,p10zp,p10p,p10p,p122p     ;part b 16
  3667.     dc.l    p10p,p10p,p10p,p10zp,p10p,p10p,p122p
  3668.     dc.l    p11p,p11p,p11p,p11ap,p11p,p11p,p11p,p11p    ;part a 16
  3669.     dc.l    p11p,p11p,p11p,p11ap,p11p,p11p,p11p,p11p    ;solo 16
  3670.     dc.l     p11p,p11p,p11p,p11p,p11p
  3671.     dc.l     p11p,p11p,p11p,p11p,p11p,p11p
  3672.     dc.l     0,end_song
  3673. s68:
  3674.     dc.l    prp
  3675.     dc.l    pq3p,pq4p,pq3p,pq5p
  3676.     dc.l    pq3p,pq4p,pq4p,pq6p
  3677.     dc.l    pq3p,pq4p,pq3p,pq5p
  3678.     dc.l    pq3p,pq4p,pq4p,pq6p
  3679.     dc.l    pq2p,pq2ap
  3680.     dc.l    pq3p,pq4p,pq3p,pq5p
  3681.     dc.l    pq3p,pq4p,pq4p,pq6p
  3682.     dc.l    pq3p,pq4p,pq3p,pq4p
  3683.     dc.l    pq3p,pq4p,pq3p,pq4p
  3684.     dc.l    prp,prp
  3685.     dc.l    pq3p,pr*3
  3686.     dc.w F03,q*5,rest,q,G03,cr*3,C03,cr*3,C03,cr*3
  3687.       dc.w end_patt
  3688.  
  3689.  
  3690. CR      set 24
  3691. tcr1     set 9
  3692. tcr2     set 8
  3693. Q       set cr/2
  3694. tq      set 8
  3695. tq2      set 6
  3696. tsq     set 4
  3697. ;tsq2     set 2
  3698. SQ      set cr/4
  3699. ;m       set 254
  3700. ;rest     set $fd00
  3701. ;dcr      set cr+q
  3702. ;dq      set q+sq
  3703. ;dsq      set sq+(sq/2)
  3704. ;sb      set cr*4
  3705. ;min      set cr*2
  3706. ;dm      set min+cr
  3707.  
  3708.  
  3709. ;Great triumph scene
  3710.  
  3711. s53:
  3712.     dc.l    p1m,p1mma,p1mmb,p1mmb,p1mmc,p1mmc
  3713.       dc.l     0,end_song
  3714. s54:
  3715.     dc.l    p2int,p2m,p2m,p2m,p2m,p2m,p2m,p2m,p2mma
  3716.     dc.l    p2m,p2m,p2m,p2m,p2m,p2m
  3717.      q*3,D06,cr*4,C06,q,B05,q
  3718.     dc.w C06,q*3,A05,q*3,B05,cr*4
  3719.       dc.w new_snd
  3720.       dc.l cow
  3721.       dc.w new_env
  3722.     dc.l og
  3723.     dc.w r12,q,r12,q
  3724.       dc.w new_snd
  3725.       dc.l orglp2
  3726.       dc.w new_env
  3727.     dc.l org_env
  3728.     dc.w A05,q*3,E06,q*3,D06,cr*4,C06,q,D06,q
  3729.     dc.w E06,q*13
  3730.       dc.w new_snd
  3731.       dc.l cow
  3732.       dc.w new_env
  3733.     dc.l og
  3734.     dc.w r12,q,r12,q,r12,q
  3735.       dc.w new_snd
  3736.       dc.l orglp2
  3737.       dc.w new_env
  3738.     dc.l org_env
  3739.     dc.w A05,q*3,E06,q*3,D06,cr*4,C06,q,B05,q
  3740.     dc.w C06,q*3,A05,q*3,B05,cr*5
  3741.     dc.w C06,q*3,A05,q*3,C06,cr
  3742.     dc.w D06,q*3,B05,q*3,D06,cr,E06,cr*8
  3743.       dc.w end_patt
  3744. p2p:
  3745.       dc.w new_env
  3746.     dc.l org_env
  3747. ;      dc.w new_snd
  3748. ;      dc.l orglp2
  3749.     dc.w pbend,up,10,f05,2
  3750.     dc.w f04,cr*4
  3751.     dc.w E05,cr,D05,q,E05,q*7,Gb05,q,G05,q
  3752.     dc.w A05,cr*2,G05,cr,Gb05,q,G05,q*3
  3753.     dc.w F04,sq,Gb04,sq,G04,sq,Ab04,sq
  3754.     dc.w A04,sq,Bb04,sq,B04,sq,C05,sq
  3755.     dc.w Db05,sq,D05,sq,Eb05,sq,E05,sq
  3756.     dc.w F05,cr*2,C06,cr*2,A05,cr*2,F05,cr*2,A05,cr*7
  3757.      dc.w end_patt
  3758. pq2p:
  3759.       dc.w new_env
  3760.     dc.l org_env
  3761.       dc.w new_snd
  3762.       dc.l sax2
  3763. ;    dc.w pbend,up,10,D05,2
  3764.     dc.w D04,cr*2
  3765.     dc.w C05,cr,A04,q,B04,q*7,Db05,q,D05,q
  3766.     dc.w E05,cr*2,D05,cr,C05,q,D05,q*3
  3767.     dc.w C04,sq,Db04,sq,D04,sq,Eb04,sq
  3768.     dc.w E04,sq,F04,sq,Gb04,sq,G04,sq
  3769.     dc.w Ab04,sq,A04,sq,Bb04,sq,B04,sq
  3770.     dc.w A04,cr*2,F05,cr*2,C05,cr*2,A04,cr*2,F05,cr*7
  3771.      dc.w end_patt
  3772. p1ap:
  3773.       dc.w new_env
  3774.     dc.l org_env
  3775.       dc.w new_snd
  3776.       dc.l sax2
  3777.     dc.w A05,q*3,E06,q*3,D06,cr*4,C06,q,B05,q
  3778.     dc.w C06,q*3,A05,q*3,B05,cr*5
  3779.     dc.w A05,q*3,E06,q*3,D06,cr*4,C06,q,D06,q
  3780.     dc.w E06,cr*8
  3781.     dc.w A05,q*3,E06,q*3,D06,cr*4,C06,q,B05,q
  3782.     dc.w C06,q*3,A05,q*3,B05,cr*5
  3783.     dc.w C06,q*3,A05,q*3,C06,cr
  3784.     dc.w D06,q*3,B05,q*3,D06,cr,E06,cr*6
  3785.       dc.w end_patt
  3786. p2ap:
  3787.     dc.w pbend,up,13,f05,2
  3788.     dc.w f04,cr*3
  3789.     dc.w E05,cr,D05,q,E05,q*7,Gb05,q,G05,q
  3790.     dc.w A05,cr*2,G05,cr,Gb05,q,G05,q*9
  3791.     dc.w F05,cr*2,C06,cr*2,A05,cr*2,F05,cr*2,A05,cr*8
  3792.      dc.w end_patt
  3793. pq2ap:
  3794.     dc.w pbend,up,13,D05,2
  3795.     dc.w D04,cr*3
  3796.     dc.w C05,cr,A04,q,B04,q*7,Db05,q,D05,q
  3797.     dc.w E05,cr*2,D05,cr,C05,q,D05,q*9
  3798.     dc.w A04,cr*2,F05,cr*2,C05,cr*2,A04,cr*2,F05,cr*8
  3799.      dc.w end_patt
  3800. p3p:
  3801.       dc.w new_env
  3802.     dc.l bas5_env
  3803.       dc.w new_snd
  3804.       dc.l fingbl
  3805.     dc.w A02,q,A02,q,G03,q,A03,q
  3806.     dc.w A02,q,A02,q,Db03,q,E03,q
  3807.       dc.w end_patt
  3808. p4p:
  3809.     dc.w G02,q,G02,q,F03,q,G03,q
  3810.     dc.w G02,q,G02,q,B02,q,D03,q
  3811.       dc.w end_patt
  3812. p5p:
  3813.     dc.w F02,q,F02,q,Eb03,q,F03,q
  3814.     dc.w F02,q,F02,q,A02,q,C03,q
  3815.       dc.w end_patt
  3816. p6p:
  3817.       dc.w new_snd
  3818.       dc.l fingbl
  3819.     dc.w E03,q,E03,q,E03,q,E03,q
  3820.     dc.w E03,q,E03,q,E03,q,E03,q
  3821.       dc.w end_patt
  3822. p6ap:
  3823.     dc.w E03,q,E03,q,D03,q,D03,q
  3824.     dc.w C03,q,C03,q,B02,q,B02,q
  3825.       dc.w end_patt
  3826. p7p:
  3827.     dc.w D03,q,D03,q,F03,q,F03,q
  3828.     dc.w G03,q,G03,q,A03,q,A03,q
  3829.       dc.w end_patt
  3830. p7ap:
  3831.     dc.w D03,q,D03,q,Gb03,q,F03,q
  3832.     dc.w G03,q,G03,q,A03,q,A03,q
  3833.       dc.w end_patt
  3834. p8p:
  3835.     dc.w E03,q,E03,q,G03,q,G03,q
  3836.     dc.w A03,q,A03,q,B03,q,B03,q
  3837.       dc.w end_patt
  3838. p9p:
  3839.     dc.w A02,q,A02,q,C03,q,C03,q
  3840.     dc.w D03,q,D03,q,E03,q,E03,q
  3841.       dc.w end_patt
  3842. p9ap:
  3843.     dc.w A02,q,A02,q,C03,q,C03,q
  3844.     dc.w D03,q,D03,q,E03,q,E03,q
  3845.       dc.w end_patt
  3846. p12p:
  3847.     dc.w F02,q,F02,q,G02,q,G02,q
  3848.     dc.w A02,q,A02,q,C03,q,C03,q
  3849.     dc.w D03,q,D03,q,E03,q,E03,q
  3850.     dc.w F03,q,F03,q,G03,q,G03,q
  3851.     dc.w D04,q,D03,q,D03,q,D04,q
  3852.     dc.w D03,q,D03,q,D04,q,D03,q
  3853.     dc.w D03,q,D04,q,D03,q,D03,q
  3854.     dc.w D04,q,D03,q,D04,q,D04,q
  3855.       dc.w end_patt
  3856. p12ap:
  3857.     dc.w F02,q,F02,q,G02,q,G02,q
  3858.     dc.w A02,q,A02,q,C03,q,C03,q
  3859.     dc.w D03,q,D03,q,E03,q,E03,q
  3860.     dc.w F03,q,F03,q,G03,q,G03,q
  3861.     dc.w D03,q,D02,q,D02,q,D03,q
  3862.     dc.w A03,sq,Ab03,sq,G03,sq,Gb03,sq
  3863.     dc.w F03,sq,E03,sq,Eb03,sq,D03,sq
  3864.     dc.w Db03,sq,C03,sq,B02,sq,Bb02,sq
  3865.     dc.w A02,sq,Ab02,sq,G02,sq,Gb02,sq
  3866.     dc.w F02,sq,E02,sq,Eb02,sq,D02,sq
  3867.     dc.w Db02,sq,C01,sq,B01,sq,Bb01,sq
  3868.       dc.w end_patt
  3869. pq3p:
  3870.       dc.w new_env
  3871.     dc.l q_env
  3872.       dc.w new_snd
  3873.       dc.l chord1
  3874.     dc.w A02,cr
  3875.       dc.w new_snd
  3876.       dc.l chord2
  3877.     dc.w A02,q,A02,q
  3878.       dc.w new_snd
  3879.       dc.l chord1
  3880.     dc.w A02,cr
  3881.       dc.w new_snd
  3882.       dc.l chord2
  3883.     dc.w A02,q
  3884.       dc.w new_snd
  3885.       dc.l chord1
  3886.     dc.w G02,cr,G02,cr
  3887.       dc.w new_snd
  3888.       dc.l chord2
  3889.     dc.w G02,q
  3890.       dc.w new_snd
  3891.       dc.l chord1
  3892.     dc.w G02,cr
  3893.       dc.w new_snd
  3894.       dc.l chord2
  3895.     dc.w G02,q,G02,q
  3896.       dc.w end_patt
  3897. pq4p:
  3898.       dc.w new_snd
  3899.       dc.l chord1
  3900.     dc.w F02,cr
  3901.       dc.w new_snd
  3902.       dc.l chord2
  3903.     dc.w F02,q,f02,q
  3904.       dc.w new_snd
  3905.       dc.l chord1
  3906.     dc.w F02,cr
  3907.       dc.w new_snd
  3908.       dc.l chord2
  3909.     dc.w F02,q
  3910.       dc.w new_snd
  3911.       dc.l chord1
  3912.     dc.w G02,cr,G02,cr
  3913.       dc.w new_snd
  3914.       dc.l chord2
  3915.     dc.w G02,q
  3916.       dc.w new_snd
  3917.       dc.l chord1
  3918.     dc.w G02,cr
  3919.       dc.w new_snd
  3920.       dc.l chord2
  3921.     dc.w G02,q,G02,q
  3922.       dc.w end_patt
  3923. pq5p:
  3924.       dc.w new_snd
  3925.       dc.l chord1
  3926.     dc.w E02,cr
  3927.       dc.w new_snd
  3928.       dc.l chord2
  3929.     dc.w E02,q,E02,q
  3930.       dc.w new_snd
  3931.       dc.l chord1
  3932.     dc.w E02,cr
  3933.       dc.w new_snd
  3934.       dc.l chord2
  3935.     dc.w E02,q
  3936.       dc.w new_snd
  3937.       dc.l chord1
  3938.     dc.w E02,cr,E02,cr
  3939.       dc.w new_snd
  3940.       dc.l chord2
  3941.     dc.w E02,q
  3942.     dc.w E02,q,E02,q
  3943.     dc.w E02,q,E02,q
  3944.       dc.w end_patt
  3945. pq6p:
  3946.       dc.w new_env
  3947.     dc.l q_env
  3948.       dc.w new_snd
  3949.       dc.l chord1
  3950.     dc.w A02,cr
  3951.       dc.w new_snd
  3952.       dc.l chord2
  3953.     dc.w A02,q,A02,q
  3954.       dc.w new_snd
  3955.       dc.l chord1
  3956.     dc.w A02,cr
  3957.       dc.w ne new_env
  3958.     dc.l kick_env
  3959.       dc.w new_snd
  3960.       dc.l cow
  3961.     dc.w r15,cr,r15,cr,r15,tq*2
  3962.       dc.w new_snd
  3963.       dc.l tom1
  3964.       dc.w r12,tq,r10,tq,r8,tq,r6,tq
  3965.       dc.w end_patt
  3966. p33mc:     
  3967.       dc.w new_env
  3968.     dc.l kick_env
  3969.       dc.w new_snd
  3970.       dc.l kik1
  3971.       dc.w r16,tQ
  3972.       dc.w r16,tQ
  3973.       dc.w r16,tQ
  3974.       dc.w r16,tQ
  3975.       dc.w r16,tQ
  3976.       dc.w r16,tQ
  3977.       dc.w end_patt
  3978. p33me:     
  3979.       dc.w new_env
  3980.     dc.l kick_env
  3981.       dc.w new_snd
  3982.       dc.l kik1
  3983.       dc.w r16,tQ
  3984.       dc.w r16,tQ
  3985.       dc.w r16,tQ
  3986.       dc.w r16,tQ
  3987.       dc.w new_snd
  3988. c.w F02,q,F02,q,Eb03,q,F03,q
  3989.     dc.w F02,q,F02,q,A02,q,C03,sq,C02,sq
  3990.       dc.w end_patt
  3991. p16p:
  3992.       dc.w new_env
  3993.     dc.l org_env
  3994.       dc.w new_snd
  3995.       dc.l orglp2
  3996.     dc.w Db04,sq,D04,sq,Eb04,sq,E04,sq
  3997.     dc.w F04,sq,Gb04,sq,G04,sq,Ab04,sq
  3998.     dc.w A04,sq,Bb04,sq,B04,sq,C05,sq
  3999.     dc.w Db05,sq,D05,sq,Eb05,sq,E05,sq
  4000.     dc.w F05,sq,Gb05,sq,G05,sq,Ab05,sq
  4001.     dc.w A05,sq,Bb05,sq,B05,sq,C06,sq
  4002.     dc.w Db06,sq,D06,sq,Eb06,sq,E06,sq
  4003.     dc.w F06,sq,Gb06,sq,G06,sq,Ab06,sq
  4004.       dc.w new_env
  4005.     dc.l org_env
  4006.       dc.w new_snd
  4007.       dc.l sax2
  4008.     dc.w A05,cr*7,G05,q,E05,q,G05,q,A05,q*11,C06,cr,B05,cr
  4009.     dc.w A05,cr*7,G05,q,E05,q,G05,q,A05,q*11,C06,cr,B05,cr
  4010.     dc.w C06,q,B05,q,A05,q,E06,cr,D06,q,C06,q,A05,q
  4011.     dc.w B05,q,A05,q,G05,q,D06,cr,C06,q,B05,q,G05,q    
  4012.     dc.w A05,q,G05,q,F05,q,C06,cr,B05,q,C06,q,E06,q
  4013.     dc.w D06,cr*4
  4014.     dc.w C06,q,B05,q,A05,q,E06,cr,D06,q,C06,q,A05,q
  4015.     dc.w B05,q,A05,q,G05,q,D06,cr,C06,q,B05,q,G05,q    
  4016.     dc.w A05,q,C06,q,D06,q,F06,cr,A05,sq,C06,sq,D06,q,F06,q
  4017.     dc.w E06,sq,Eb06,sq,D06,sq,Db06,sq
  4018.     dc.w C06,sq,B05,sq,Bb05,sq,A05,sq
  4019.     dc.w Ab05,sq,G05,sq,Gb05,sq,F05,sq
  4020.     dc.w E05,sq,Eb05,sq,D05,sq,Db05,sq
  4021.     dc.w A04,sq,C05,sq,E05,sq,A05,sq
  4022.     dc.w C06,sq,E06,sq,A06,sq,C07,sq
  4023.     dc.w E07,sq,C07,sq,A06,sq,E06,sq
  4024.     dc.w C06,sq,A05,sq,E05,sq,C05,sq
  4025.     dc.w G04,sq,B04,sq,D05,sq,G05,sq
  4026.     dc.w B05,sq,D06,sq,G06,sq,B06,sq
  4027.     dc.w D07,sq,B06,sq,G06,sq,D06,sq
  4028.     dc.w B05,sq,G05,sq,D05,sq,B04,sq
  4029.     dc.w F04,sq,A04,sq,C05,sq,F05,sq
  4030.     dc.w A05,sq,C06,sq,F06,sq,A06,sq
  4031.     dc.w C07,sq,A06,sq,F06,sq,C06,sq
  4032.     dc.w A05,sq,F05,sq,C05,sq,A04,sq
  4033.       dc.w new_env
  4034.     dc.l org_env
  4035.       dc.w new_snd
  4036.       dc.l orglp2
  4037.     dc.w F04,sq,Gb04,sq,G04,sq,Ab04,sq
  4038.     dc.w A04,sq,Bb04,sq,B04,sq,C05,sq
  4039.     dc.w Db05,sq,D05,sq,Eb05,sq,E05,sq
  4040.     dc.w F05,sq,Gb05,sq,G05,sq,Ab05,sq
  4041.      dc.w end_patt
  4042.  
  4043. p:      
  4044.       dc.w new_env
  4045.     dc.l org_env
  4046.     dc.w new_snd
  4047.       dc.l orglp2
  4048.     dc.w F02,sq,Gb02,sq,G02,sq,Ab02,sq
  4049.     dc.w A02,sq,Bb02,sq,B02,sq,C03,sq
  4050.     dc.w Db03,sq,D03,sq,Eb03,sq,E03,sq
  4051.     dc.w F03,sq,Gb03,sq,G03,sq,Ab03,sq
  4052.      dc.w end_patt
  4053. p11p:     
  4054.       dc.w new_env
  4055.     dc.l kick_env
  4056.       dc.w new_snd
  4057.       dc.l kik1
  4058.       dc.w r16,Q,r16,q,rest,q
  4059.     dc.w r16,q
  4060.       dc.w new_snd
  4061.       dc.l snr1
  4062.       dc.w r16,Q*3
  4063.       dc.w new_snd
  4064.       dc.l kik1
  4065.       dc.w r16,cr
  4066.       dc.w r16,cr
  4067.       dc.w r16,q
  4068.       dc.w new_snd
  4069.       dc.l snr1
  4070.       dc.w r16,cr
  4071.       dc.w r16,cr
  4072.       dc.w end_patt
  4073. p11ap:     
  4074.       dc.w new_env
  4075.     dc.l kick_env
  4076.       dc.w new_snd
  4077.       dc.l kik1
  4078.       dc.w r16,Q,r16,q,rest,q
  4079.     dc.w r16,q
  4080.       dc.w new_snd
  4081.       dc.l snr1
  4082.       dc.w r16,Q*3
  4083.       dc.w new_snd
  4084.       dc.l kik1
  4085.       dc.w r16,cr
  4086.       dc.w r16,cr
  4087.       dc.w r16,q
  4088.       dc.w new_snd
  4089.       dc.l snr1
  4090.       dc.w r17,q,r17,q
  4091.       dc.w r17,q,r17,q
  4092.       dc.w end_patt
  4093. p11bp:     
  4094.       dc.w new_env
  4095.     dc.l kick_env
  4096.       dc.w new_snd
  4097.       dc.l kik1
  4098.       dc.w r16,Q,r16,q,rest,q
  4099.     dc.w r16,q
  4100.       dc.w new_snd
  4101.       dc.l snr1
  4102.       dc.w r16,Q*3
  4103.       dc.w new_snd
  4104.       dc.l kik1
  4105.       dc.w r16,sq,r16,sq,r16,sq,r16,sq
  4106.       dc.w r16,sq,r16,sq 
  4107.       dc.w new_snd
  4108.       dc.l snr1
  4109.       dc.w r19,Q
  4110.       dc.w new_snd
  4111.       dc.l kik1
  4112.       dc.w r16,cr
  4113.       dc.w  r16,sq,r16,sq
  4114.       dc.w new_snd
  4115.       dc.l snr1
  4116.       dc.w r16,cr
  4117.       dc.w end_patt
  4118. p10p:     
  4119.       dc.w new_env
  4120.     dc.l kick_env
  4121.       dc.w new_snd
  4122.       dc.l kik1
  4123.       dc.w r16,cr
  4124.       dc.w new_snd
  4125.       dc.l snr1
  4126.       dc.w r19,cr
  4127.       dc.w new_snd
  4128.       dc.l kik1
  4129.       dc.w r16,q
  4130.       dc.w r16,q
  4131.       dc.w new_snd
  4132.       dc.l snr1
  4133.       dc.w r19,q
  4134.       dc.w new_snd
  4135.       dc.l kik1
  4136.       dc.w r16,q
  4137.       dc.w end_patt
  4138. p10zp:     
  4139.       dc.w new_env
  4140.     dc.l kick_env
  4141.       dc.w new_snd
  4142.       dc.l kik1
  4143.       dc.w r16,sq,r16,sq,r16,sq,r16,sq
  4144.       dc.w new_snd
  4145.       dc.l snr1
  4146.       dc.w r19,q
  4147.       dc.w new_snd
  4148.       dc.l kik1
  4149.       dc.w r16,q
  4150.       dc.w new_snd
  4151.       dc.l snr1
  4152.       dc.w r19,q
  4153.       dc.w new_snd
  4154.       dc.l kik1
  4155.       dc.w r16,q
  4156.       dc.w new_snd
  4157.       dc.l tom1
  4158.       dc.w r10,sq,r8,sq,r6,q
  4159.       dc.w end_patt
  4160.  
  4161.  
  4162. p122p:     
  4163.       dc.w new_env
  4164.     dc.l kick_env
  4165.       dc.w new_snd
  4166.       dc.l snr1
  4167.       dc.w r19,Q
  4168.       dc.w new_snd
  4169.       dc.l kik1
  4170.       dc.w r16,Q,r16,q
  4171.       dc.w new_env
  4172.     dc.l kick_env
  4173.       dc.w new_snd
  4174.       dc.l snr1
  4175.       dc.w r19,Q
  4176.       dc.w new_snd
  4177.       dc.l kik1
  4178.       dc.w r16,Q,r16,q
  4179.       dc.w new_env
  4180.     dc.l kick_env
  4181.       dc.w new_snd
  4182.       dc.l snr1
  4183.       dc.w r19,Q
  4184.       dc.w new_snd
  4185.       dc.l kik1
  4186.       dc.w r16,Q,r16,q
  4187.       dc.w new_env
  4188.     dc.l kick_env
  4189.       dc.w new_snd
  4190.       dc.l snr1
  4191.       dc.w r19,Q
  4192.       dc.w new_snd
  4193.       dc.l kik1
  4194.       dc.w r16,Q,r16,q
  4195.       dc.w new_snd
  4196.       dc.l snr1
  4197.       dc.w r16,Q
  4198.       dc.w new_snd
  4199.       dc.l tom1
  4200.       dc.w r11,q
  4201.       dc.w r9,q,r7,q
  4202.       dc.w end_patt
  4203.  
  4204.     ; sample parameters
  4205. hatcl        dc.w 1
  4206.              dc.l hatcd
  4207.              dc.w 665/2 
  4208.              dc.l restd
  4209.              dc.w 16/2
  4210. cow
  4211.         dc.w 1  
  4212.              dc.l cowd
  4213.              dc.w 355/2    ;;;1938/2 
  4214.              dc.l restd
  4215.              dc.w 16/2 
  4216. clv2
  4217.         dc.w 1  
  4218.              dc.l clv2d
  4219.              dc.w 1632/2 
  4220.              dc.l restd
  4221.              dc.w 16/2
  4222. bas4
  4223.         dc.w 1  
  4224.              dc.l bas4d
  4225.              dc.w 1801/2 
  4226.              dc.l restd
  4227.              dc.w 16/2
  4228. kik1
  4229.         dc.w 1  
  4230.              dc.l kik1d
  4231.              dc.w 3801/2 
  4232.              dc.l restd
  4233.              dc.w 16/2
  4234. snr1
  4235.         dc.w 1  
  4236.              dc.l snr1d
  4237.              dc.w 6325/2 
  4238.              dc.l restd
  4239.              dc.w 16/2
  4240. tom1
  4241.         dc.w 1  
  4242.              dc.l tom1d
  4243.              dc.w 2630/2 
  4244.              dc.l restd
  4245.              dc.w 16/2
  4246. orglq4p,pq3p,pq4p
  4247.     dc.l    pq3p,pq4p,pq3p,pq4p
  4248.     dc.l    pq3p,pq4p
  4249.     dc.l     0,end_song
  4250.  
  4251. prp:
  4252.       dc.w rest,cr*4
  4253.       dc.w end_patt
  4254.  
  4255. p1pz:
  4256.       dc.w new_env
  4257.     dc.l org_env
  4258.       dc.w new_snd
  4259.       dc.l shak
  4260.     dc.w A03,q*3,E04,q*3,D04,cr*5
  4261.     dc.w A03,q*3,E04,q*3,D04,cr*5
  4262.       dc.w end_patt
  4263. p2pz:
  4264.       dc.w new_env
  4265.     dc.l org_env
  4266.       dc.w new_snd
  4267.       dc.l shak
  4268.     dc.w E04,q*3,A04,q*3,G04,cr*5
  4269.     dc.w E04,q*3,A04,q*3,G04,cr*5
  4270.       dc.w end_patt
  4271. p1p:
  4272.       dc.w new_env
  4273.     dc.l org_env
  4274.       dc.w new_snd
  4275.       dc.l orglp2
  4276.     dc.w A05,q*3,E06,d
  4277.              dc.w 2037/2 
  4278.              dc.l restd
  4279.              dc.w 16/2
  4280. sax2
  4281.         dc.w 1  
  4282.              dc.l sax2d
  4283.              dc.w 6073/2 
  4284.         dc.l sax2d
  4285.              dc.w 6073/2 
  4286. bas5
  4287.         dc.w 1  
  4288.              dc.l bas5d
  4289.              dc.w 3394/2 
  4290.              dc.l restd
  4291.              dc.w 16/2
  4292.  
  4293. NICESHo8
  4294.         dc.w 1  
  4295.              dc.l NICESHo8d
  4296.              dc.w 4728/2 
  4297.              dc.l restd
  4298.              dc.w 16/2
  4299. NICESHO1
  4300.         dc.w 1  
  4301.              dc.l NICESHO1d
  4302.              dc.w 6976/2 
  4303.              dc.l restd
  4304.              dc.w 16/2
  4305. GOODHIT1
  4306.         dc.w 1  
  4307.              dc.l GOODHIT1d
  4308.              dc.w 4500/2 
  4309.              dc.l restd
  4310.              dc.w 16/2
  4311. BULLSEY2
  4312.         dc.w 1  
  4313.              dc.l BULLSEY2d
  4314.              dc.w 5016/2 
  4315.              dc.l restd
  4316.              dc.w 16/2
  4317. BULLSEY1
  4318.         dc.w 1  
  4319.              dc.l BULLSEY1d
  4320.              dc.w 6090/2 
  4321.              dc.l restd
  4322.              dc.w 16/2
  4323. NICEL
  4324.         dc.w 1  
  4325.              dc.l NICELd
  4326.              dc.w 6130/2 
  4327.              dc.l restd
  4328.              dc.w 16/2
  4329. STRIKEE
  4330.         dc.w 1  
  4331.              dc.l STRIKEEd
  4332.              dc.w 12336/2 
  4333.              dc.l restd
  4334.              dc.w 16/2
  4335. GUN1
  4336.         dc.w 1  
  4337.              dc.l GUN1d
  4338.              dc.w 2914/2 
  4339.              dc.l restd
  4340.              dc.w 16/2
  4341. WHEELS
  4342.         dc.w 1  
  4343.              dc.l WHEELSd
  4344.              dc.w 1808/2 
  4345.              dc.l restd
  4346.              dc.w 16/2
  4347. BRAKES
  4348.         dc.w 1  
  4349.              dc.l BRAKESLd
  4350.              dc.w 1130/2 
  4351.              dc.l BRAKESLd
  4352.              dc.w 1130/2 
  4353. NOISEL
  4354.         dc.w 1  
  4355.              dc.l NOISELd
  4356.              dc.w 2380/2 
  4357.              dc.l NOISELd
  4358.              dc.w 2380/2 
  4359. JET
  4360.         dc.w 1  
  4361.              dc.l JETENG1d
  4362.              dc.w 8952/2 
  4363.              dc.l JETENG1d
  4364.              dc.w 8952/2 
  4365. SKID
  4366.         dc.w 1  
  4367.              dc.l SKIDd
  4368.              dc.w 5176/2 
  4369.              dc.l restd
  4370.              dc.w 16/2
  4371. EXPLOSI8
  4372.         dc.w 1  
  4373.              dc.l EXPLOSI8d
  4374.              dc.w 4882/2 
  4375.              dc.l restd
  4376.              dc.w 16/2
  4377.  
  4378. alarm
  4379.         dc.w 1  
  4380.              dc.l alarmd
  4381.              dc.w 586/2 
  4382.              dc.l alarmd
  4383.              dc.w 586/2
  4384.  
  4385. sine
  4386.         dc.w 1  
  4387.              dc.l sine_datad
  4388.              dc.w 18/2 
  4389.              dc.l sine_datad
  4390.              dc.w 18/2
  4391.  
  4392.  
  4393. restd:
  4394. rest_data:
  4395.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  4396.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  4397.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  4398.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  4399.  
  4400. sine_datad:
  4401.              dc.w 127,100,50,25,0,-25,-50,-100,-127
  4402.              dc.w -127,-100,-50,-25,0,25,50,100,127
  4403.  
  4404. bas5_env        dc.w 0,45,255
  4405. bas5_env2        dc.w 0,45,45,45,45,45,45,40,35,0,255
  4406. og            dc.w 0,35,255
  4407. kick_env        dc.w 0,64,255
  4408. x_env:            dc.w 0,54,255
  4409. q_env:            dc.w 0,20,255
  4410. guit_env        dc.w 0,44,255
  4411. shak_env:        dc.w 0,25,25,25,0,0,0,25,25,255
  4412. flt1_env:        dc.w 0,35,255
  4413. org_env:        dc.w 0,25,255
  4414. jet_env            dc.w 0,64,64,59,54,49,44,40
  4415.             dc.w 35,30,25,20,15,255
  4416.             dc.w 10,10,11,12,13,255
  4417. sax_env            dc.w 0,34,34,29,29,24,24
  4418.             dc.w 20,20,17,15
  4419.             dc.w 10,10,9,8,7,0,255
  4420. rest_env:        dc.w 0,0,0,0,0,0,0,0,255
  4421.  
  4422.  
  4423. ;**************************************************
  4424. hatcd            incbin df1:hatc124.sam
  4425. orglp2d            incbin df1:orglp2.sam
  4426. kik1d            incbin df1:kik1.sam
  4427. snr1d            incbin df1:snr1.sam
  4428. tom1d:            incbin df1:tom1.sam
  4429. cowd            incbin df1:cow2.sam  
  4430. clv2d            incbin df1:clv2.sam
  4431. bas4d            incbin df1:bas4.sam
  4432. fingbld            incbin df1:fingbl.sam
  4433. bas5d            incbin df1:bas5.sam
  4434. sax1d            incbin df1:sax1.sam
  4435. sax2d            incbin df1:sax2.sam
  4436. chord1d            incbin df1:chord1.sam
  4437. chord2d            incbin df1:chord2.sam
  4438. shakd            incbin df1:shakuhac.sam
  4439.  
  4440. ;*************************************************
  4441.  
  4442. NICESHo8d        ;incbin ram:NICESH08.con
  4443. NICESHO1d        ;incbin ram:NICESHO1.con
  4444. GOODHIT1d        ;incbin ram:GOODHIT1.con
  4445. BULLSEY2d        ;incbin ram:BULLSEY2.con
  4446. BULLSEY1d        ;incbin ram:BULLSEY1.con
  4447. NICELd            ;incbin ram:NICEL.con
  4448. STRIKEEd        ;incbin ram:STRIKEE.con
  4449. GUN1d            ;incbin ram:GUN1.con
  4450. WHEELSd            ;incbin ram:WHEELS.con
  4451. BRAKESLd        ;incbin ram:BRAKESL.con
  4452. NOISELd            ;incbin ram:NOISEL.con
  4453. JETENG1d        ;incbin ram:JETENG1.con
  4454. SKIDd            ;incbin ram:SKID.con        
  4455. EXPLOSI8d        ;incbin ram:EXPLOSI8.con
  4456. alarmd            ;incbin ram:alarm1.con
  4457.  
  4458.  
  4459.     end
  4460.         ;;;; dc.w pbend,up,delay,destination_note,rate
  4461.         ;;;; dc.w modon,delay,delay,width,width,rate,rate
  4462.  
  4463.  
  4464. ;NICESH08.CON                4728 
  4465. ;NICESHOT.CON                9456 
  4466. ;NICESHO1.CON                6976 
  4467. ;GOODHIT1.CON                4500 
  4468. ;BULLSEY2.CON                5016 
  4469. ;BULLSEY1.CON                6090 
  4470. ;NICEL.CON                   6130 
  4471. ;STRIKEE1.CON               12336 
  4472. ;STRIKEE.CON                12336 
  4473. ;GUN1.CON                    2914 
  4474. ;WHEELS.CON                  1808 
  4475. ;BRAKESL.CON                 1130 
  4476. ;NOISEL.CON                  2380 
  4477. ;JETENG1.CON                 8952 
  4478. ;SKID.CON                    5176 
  4479. ;EXPLOSI8.CON                4882 
  4480. ;17 files - 211 blocks used
  4481.  
  4482.  
  4483.  
  4484.  
  4485.  
  4486. ,59,54,49,44,40
  4487.             dc.w 35,30,25,20,15,255
  4488.             dc.w 10,1iggered.
  4489.     ; Its probaly best if you do this as you can then  decide the pitch 
  4490.     ; variation yourself.
  4491.     ; 
  4492.     ; I think I have commented everything you need to know
  4493.     ; to get it running but dont hesitate to ring if something
  4494.     ; is unclear.
  4495.  
  4496.  
  4497.     ;        DAVE LOWE.....0723  870648
  4498.  
  4499.  
  4500. ;        **************************
  4501.  
  4502.     section issA,code_c    ;must be in low memory for dma access
  4503.                 ;DEVPAC PSEUDO OP ..CAN BE DELETED
  4504.  
  4505.  
  4506. ;*****************************