home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Line of Fire Amiga 2 / Lowe_LineOfFireAmiga2.adf / lof.s < prev    next >
Encoding:
Text File  |  1978-02-07  |  36.5 KB  |  2,258 lines
  1.  
  2.     ;    DRIVER AND MUSIC REMAIN COPYRIGHT D.LOWE 
  3.  
  4.     ;    LINE OF FIRE LOADING MUSIC+INGAME TUNES
  5.  
  6.  
  7.  
  8.     ; I think I have commented everything you need to know
  9.     ; to get it running but dont hesitate to ring if something
  10.     ; is unclear.
  11.  
  12.  
  13.     ;        DAVE LOWE.....0723  870648
  14.  
  15.  
  16. ;        **************************
  17.  
  18.     section issA,code_c    ;must be in low memory for dma access
  19.                 ;DEVPAC PSEUDO OP ..CAN BE DELETED
  20.  
  21.  
  22. ;*****************************************
  23.  
  24.         ;  ALL EQUs
  25.  
  26. a00  equ  508*2
  27. bb00  equ  480*2
  28. b00  equ  453*2
  29.  
  30. c01  equ  428*2
  31. db01  equ  404*2
  32. d01 equ  381*2
  33. eb01  equ  360*2
  34. e01  equ  339*2
  35. f01  equ  320*2
  36. gb01  equ  302*2
  37. g01  equ  285*2
  38. ab01 equ 269*2
  39. a01  equ  508
  40. bb01  equ  480
  41. b01  equ  453
  42.  
  43. c02  equ  428
  44. db02  equ  404
  45. d02  equ  381
  46. eb02  equ  360
  47. e02  equ  339
  48. f02  equ  320
  49. gb02  equ  302
  50. g02  equ  285
  51. ab02 equ 269
  52. a02  equ  254
  53. bb02  equ  240
  54. b02  equ  226
  55.  
  56. c03  equ  214
  57. db03  equ  202
  58. d03  equ  190
  59. eb03  equ  180
  60. e03  equ  170
  61. f03  equ  160
  62. gb03  equ  151
  63. g03  equ  143
  64. ab03 equ 135
  65. a03  equ  127
  66.  
  67. bb03  equ  480*2
  68. b03  equ  453*2
  69.  
  70. c04  equ  428*2
  71. db04  equ  404*2
  72. d04 equ  381*2
  73. eb04  equ  360*2
  74. e04  equ  339*2
  75. f04  equ  320*2
  76. gb04  equ  302*2
  77. g04  equ  285*2
  78. ab04 equ 269*2
  79. a04  equ  508
  80. bb04  equ  480
  81. b04  equ  453
  82.  
  83. c05  equ  428
  84. db05  equ  404
  85. d05  equ  381
  86. eb05  equ  360
  87. e05  equ  339
  88. f05  equ  320
  89. gb05  equ  302
  90. g05  equ  285
  91. ab05 equ 269
  92. a05  equ  254
  93. bb05  equ  240
  94. b05  equ  226
  95.  
  96. c06  equ  214
  97. db06  equ  202
  98. d06  equ  190
  99. eb06  equ  180
  100. e06  equ  170
  101. f06  equ  160
  102. gb06  equ  151
  103. g06  equ  143
  104. ab06 equ 135
  105. a06  equ  127
  106. bb06  equ  480*2
  107. b06  equ  453*2
  108.  
  109. c07  equ  428*2
  110. db07  equ  404*2
  111. d07 equ  381*2
  112. eb07  equ  360*2
  113. e07  equ  339*2
  114. f07  equ  320*2
  115. gb07  equ  302*2
  116. g07  equ  285*2
  117. ab07 equ 269*2
  118. a07  equ  508
  119. bb07  equ  480
  120. b07  equ  453
  121.  
  122. c08  equ  428
  123. db08  equ  404
  124. d08  equ  381
  125. eb08  equ  360
  126. e08  equ  339
  127. f08  equ  320
  128. gb08  equ  302
  129. g08  equ  285
  130. ab08 equ 269
  131. a08  equ  254
  132. bb08  equ  240
  133. b08  equ  226
  134.  
  135.  
  136. v equ 0
  137.  
  138. no_loop equ 0
  139. loop equ 0
  140. chann1reg   equ $dff0a0    
  141. chann2reg   equ $dff0b0
  142. chann3reg   equ $dff0c0
  143. chann4reg   equ $dff0d0
  144. dmacon     equ $dff096
  145. int_bf_int   equ   $dff01e
  146. int_bf_w    equ   $dff09a
  147. vhposr     equ   $dff006
  148. in_line    equ   0
  149. new_snd    equ   4
  150. end_song     equ   1
  151. end_patt    equ   8
  152. new_env    equ   12
  153. pbend     equ   16
  154.  
  155. cr  equ   24
  156. q equ cr/2
  157. sq equ q/2
  158. dsq equ sq/2
  159. m  equ cr*2
  160. sb equ cr*4
  161. dcr equ cr+q
  162. dq  equ q+sq
  163. r14 equ 264
  164.  
  165. dm  equ m+cr
  166.  
  167. hi: equ 223
  168. lo:  equ 446
  169. r22    equ 134
  170. r20    equ 133
  171. r19    equ 150
  172. r18    equ 178
  173. r17    equ 200
  174. r16:    equ 222
  175. r15:    equ 249
  176. r13:    equ 305
  177. r12:    equ 333
  178. r11:    equ 361
  179. r10:    equ 389
  180. r9:    equ 419
  181. r8:    equ 446
  182. r7:    equ 446+112
  183. r6:    equ 446+223
  184. r5:    equ 446+223+112
  185. r4:    equ 446*2
  186. r3:    equ 446*3
  187. r2:    equ 446*4
  188. r1:    equ 446*8
  189.  
  190.  
  191. filter: equ $bfe001
  192. filter_on equ 44
  193. filter_off equ 48
  194.  
  195. modon     equ   20
  196. pboff     equ   24
  197. modoff     equ   28
  198. rest     equ 32
  199. end_fxp  equ 36
  200. end_fx3  equ 36
  201. end_fx4  equ 40
  202. acc    equ 52
  203. repeat    equ 56
  204. down      equ   1
  205. up       equ   2
  206.  
  207. ;***************************************************************
  208. ;***************************************************************
  209.  
  210.  ;    THIS IS THE CONTROL SECTION FOR TESTING AS A STAND ALONE PRG. 
  211.  
  212.     ;       AND CAN BE DELETED WHEN NOT REQUIRED
  213.  
  214.  
  215.     jsr select_new_song
  216.  
  217. testloop:
  218.     tst.w kill_flag
  219.  
  220.     ;     fudge to kill sound when developing
  221.     beq no_kill
  222.     move.w #1,music_disable
  223.     jsr kill_chip
  224.  
  225.  
  226. no_kill
  227.     jsr delay    ;wait for scan line  at 50hz on pal
  228.  
  229.     jsr driver
  230.  
  231.         bra testloop
  232.  
  233.  
  234. delay:
  235.     tst.w fxtimer
  236.     bne no_test
  237.     clr.l d0
  238.     move.b $bfe001,d0
  239.     btst #6,d0
  240.     bne no_test1
  241.  
  242.     
  243.     move.w #1,kill_flag
  244.  
  245.  
  246.  
  247.     move.w #10,fxtimer
  248.     bra testfx4
  249. no_test
  250.     
  251.     subq #1,fxtimer
  252. no_test1
  253.     clr.l d0
  254.         move.w vhposr,d0
  255.         andi.w #%1111111100000000,d0
  256.         cmpi.w #%1111111100000000,d0
  257.  
  258.     bne no_test1
  259.     rts
  260.  
  261. testfx4:  
  262.  
  263.     clr.l d0
  264.     move.b $bfe001,d0
  265.     btst #6,d0
  266.     beq testfx4
  267.  
  268.  
  269.     move.l fx_last,d0
  270.     move.l d0,fx_kill
  271.  
  272.     jsr kill_loopfx        ;only one fx at a time
  273.  
  274.  
  275. no_k
  276.         move.l fx_no,fx_number
  277.     move.l fx_no,fx_last
  278.     addq.l #1,fx_no
  279.     move.l    max_fx,d0
  280.         cmp.l fx_no,d0
  281.     bne noreset
  282.     move.l #1,fx_no    
  283. noreset: 
  284.     jsr set_up_fx
  285.     bra no_test    
  286.  
  287. fxtc:          dc.w 10
  288. fx_no:         dc.l  1
  289. fx_last        dc.l  0
  290.  
  291.  
  292. ;        END OF CONTROL (DELETABLE) SECTION
  293.  
  294. ;**********************************************************
  295. ;**********************************************************
  296.  
  297. ; --------------------------------------------------------------
  298.  
  299. ;    MAIN VARIABLES TO BE ACCESSED BY PROGDF1MER DURING RUNTIME
  300.  
  301.  
  302. fx_number:     dc.l 0 ;     number of fx required here...see list
  303. fx_kill        dc.l 0 ;     number of fx to kill/only needed for looped fx
  304.  
  305. song_buffer     dc.l 1 ;     number of piece of music required here ie.1 to 3
  306.                ;     1 = loading tune/2 = hi_score jingle
  307.                ;     3 = win jingle
  308.  
  309. music_disable:  dc.w 0 ;     1 = disable music
  310. fx_disable:     dc.w 1 ;     1 = disable fx  (currently disabled)
  311.  
  312. ;    +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  313.  
  314. ;  THESE VARIABLES ARE USED INTERNALLY BY THE DRIVER
  315. fxr1         dc.l 0  
  316. fxr2         dc.l 0  
  317. fxr3         dc.l 0  
  318. fxr4         dc.l 0  
  319. fxc1        dc.l 0
  320. fxc2          dc.l 0
  321. fxc3        dc.l 0
  322. fxc4          dc.l 0
  323. fx1_flag    dc.w 0
  324. fx2_flag    dc.w 0
  325. fx3_flag    dc.w 0
  326. fx4_flag    dc.w 0
  327. fxtimer        dc.w 0
  328. gen        dc.w 0
  329. int_disable    dc.w 0
  330. altpf         dc.w 0
  331. kill_flag    dc.w 0
  332. ;  *******************************************************
  333.  
  334. ;  CALL THIS SUBROUTINE TO SET UP THE REQIURED FX
  335. ;  on entry it requires the fx number to be in "fx_number"(see above)
  336. ;  
  337.  
  338. set_up_fx
  339.     movem.l d5/a2,-(a7)    ;save used registers
  340.     tst.l fxc4
  341.     bne check3
  342. use4:    
  343.     move.w #%0000000000001000,d5
  344.     lea chann4reg,a2
  345.     jsr end_fx4p
  346.     move.l fx_number,fxr4
  347.     move.l fx_number,fxc4
  348.     move.l #0,fx_number
  349.     bra no_fx
  350. check3:    tst.l fxc3
  351.     bne check2
  352. use3:
  353.     move.w #%0000000000000100,d5
  354.     lea chann3reg,a2
  355.     jsr end_fx3p
  356.     move.l fx_number,fxr3
  357.     move.l fx_number,fxc3
  358.     move.l #0,fx_number
  359.     bra no_fx
  360. check2:    tst.l fxc2
  361.     bne check1
  362. use2:
  363.     move.w #%0000000000000010,d5
  364.     lea chann2reg,a2
  365.     jsr end_fx2p
  366.     move.l fx_number,fxr2
  367.     move.l fx_number,fxc2
  368.     move.l #0,fx_number
  369.     bra no_fx
  370. check1:    tst.l fxc1
  371.     bne use4
  372. use1:
  373.     move.w #%0000000000000001,d5
  374.     lea chann1reg,a2
  375.     jsr end_fx1p
  376.     move.l fx_number,fxr1
  377.     move.l fx_number,fxc1
  378.     move.l #0,fx_number
  379. no_fx
  380.     movem.l (a7)+,d5/a2    ;restore registers
  381.     rts
  382.  
  383. ;*************************************************
  384. ;          CALL HERE TO KILL ANY LOOPED FX...
  385. ;       after putting the number of the fx you want to kill
  386. ;            into fx_kill
  387.  
  388. kill_loopfx
  389.  
  390.     movem.l d5/a2,-(a7)    ;save used registers
  391.     move.l fx_kill,d5
  392.     cmp.l fxc1,d5
  393.     bne k2
  394.     move.w #%0000000000000001,d5
  395.     lea chann1reg,a2
  396.     jsr end_fx1p
  397.     bra error
  398. k2    cmp.l fxc2,d5
  399.     bne k3
  400.     move.w #%0000000000000010,d5
  401.     lea chann2reg,a2
  402.     jsr end_fx2p
  403.     bra error
  404. k3    cmp.l fxc3,d5
  405.     bne k4
  406.     move.w #%0000000000000100,d5
  407.     lea chann3reg,a2
  408.     jsr end_fx3p
  409.     bra error
  410. k4    cmp.l fxc4,d5
  411.     bne error
  412.     move.w #%0000000000001000,d5
  413.     lea chann2reg,a2
  414.     jsr end_fx4p
  415. error
  416.     clr.l fx_kill
  417.     movem.l (a7)+,d5/a2    ;restore registers
  418.     rts
  419. ;*************************************************
  420.  
  421.     ; CALL HERE TO KILL ANY SOUND for whatever reason
  422.  
  423. kill_chip:
  424.     move.w #%0000000000001111,dmacon
  425.     move.l rest_data,chann1reg
  426.     move.l rest_data,chann2reg
  427.     move.l rest_data,chann3reg
  428.     move.l rest_data,chann4reg
  429.     move.w #16,chann1reg+4    
  430.     move.w #16,chann2reg+4    
  431.     move.w #16,chann3reg+4    
  432.     move.w #16,chann4reg+4    
  433.     move.w #0,chann1reg+8
  434.     move.w #0,chann2reg+8
  435.     move.w #0,chann3reg+8
  436.     move.w #0,chann4reg+8
  437.     move.w #1,chann1reg+6
  438.     move.w #1,chann2reg+6
  439.     move.w #1,chann3reg+6
  440.     move.w #1,chann4reg+6
  441.     move.l #0,fxr1
  442.     move.l #0,fxr2
  443.     move.l #0,fxr3
  444.     move.l #0,fxr4
  445.     move.w #0,fx1_flag
  446.     move.w #0,fx2_flag
  447.     move.w #0,fx3_flag
  448.     move.w #0,fx4_flag
  449.     move.l #0,fxc1
  450.     move.l #0,fxc2
  451.     move.l #0,fxc3
  452.     move.l #0,fxc4
  453.     rts
  454. ;****************************************
  455.  
  456. ;  CALL HERE TO SELECT WHICH PIECE OF MUSIC TO PLAY
  457. ;  AFTER PLACING NUMBER (1 to 3) IN "SONG_BUFFER"..see above
  458. ;  a call to this routine will initiliase the driver/kill any sound etc.      
  459. ;  make sure this routine has been called before running the interrupt
  460. ;  driven section....see below
  461.  
  462. select_new_song:
  463.  
  464.     move.w #1,int_disable
  465.     movem.l d0/d1/a0/a1,-(a7)    ;save used registers
  466.     move.w music_disable,gen
  467.     move.w #1,music_disable
  468.         jsr kill_chip           
  469.     clr.l d0
  470.         move.w #204,d0
  471.         lea gvars,a0
  472. clloop: clr.w (a0)+        
  473.         dbra  d0,clloop
  474.     tst.l song_buffer
  475.     beq no_song
  476.         move.l song_buffer,d1
  477.     add.l d1,d1
  478.      add.l d1,d1
  479.      add.l d1,d1
  480.      add.l d1,d1
  481.         LEA  SONG_TABLE-16,A1
  482.         add.l d1,a1      
  483.         MOVE.L (A1)+,WSONG1    
  484.         move.l (a1)+,wsong2    
  485.         move.l (a1)+,wsong3
  486.     move.l (a1),wsong4
  487.         MOVE.L #pstart,PATTR1
  488.         MOVE.L #pstart,PATTR2
  489.         MOVE.L #pstart,PATTR3
  490.     move.l #pstart,pattr4
  491.         move.l #sstart,songr1
  492.         MOVE.L #sstart,SONGR2
  493.         MOVE.L #sstart,SONGR3
  494.     move.l #sstart,songr4
  495. no_song
  496.     move.w #1,ch1vars
  497.     move.w #2,ch2vars
  498.     move.w #3,ch3vars
  499.     move.w #4,ch4vars
  500.     move.w #6,ch4fxvars
  501.     move.w #5,ch3fxvars
  502.     move.w #7,ch2fxvars
  503.     move.w #8,ch1fxvars
  504.     move.w gen,music_disable
  505.     clr.w int_disable
  506.     movem.l (a7)+,d0/d1/a0/a1    ;restore registers
  507.         rts
  508.  
  509. ;**************************************************
  510.  
  511. ;  CALL HERE ON A 50hz INTERRUPT DURING RUNTIME
  512. ;  TO PLAY FX AND TUNES
  513.  
  514. driver:  
  515.     tst.w int_disable
  516.     beq process_data
  517.     rts        
  518. process_data
  519.     movem.l d0-d6/a0-a6,-(a7)    ;save used registers
  520.  
  521.  
  522. ch1:
  523.     tst.w fx_disable
  524.     bne test_music1
  525.     tst.l fxr1
  526.     bne   ch1j1
  527.     tst.l fxc1
  528.     beq test_music1
  529.     bra ch1j3
  530. ch1j2    jsr run_dummy1
  531.     jsr run_fx1
  532.     bra ch2
  533. ch1j1
  534.     jsr set_up1
  535. ch1j3    tst.w music_disable    
  536.     beq ch1j2
  537.     jsr run_fx1
  538.     bra ch2
  539. test_music1
  540.     tst.w music_disable
  541.     bne ch2
  542.     jsr run_music1
  543.     bra ch2
  544.     ;***********************
  545.  
  546.     ; channel 1 subroutines
  547.  
  548. run_dummy1    
  549.      lea ch1vars,a0
  550.      lea dummy_reg,a2 
  551.      move.w #0,d5 
  552.      jsr sect1    
  553.     rts
  554.  
  555. set_up1    
  556.          move.l fxr1,d0
  557.          add d0,d0
  558.          add d0,d0
  559.          lea  fxjump_table-4,A1
  560.      add.l d0,a1
  561.          move.l (a1),currfx1
  562.       clr.l fxr1
  563.      clr.w fxintc1
  564.       rts
  565.   
  566.      
  567. run_fx1
  568.     lea ch1fxvars,a0
  569.        lea chann1reg,a2
  570.       move.w #%0000000000000001,d5 
  571.      move.w #%1000001000000001,d1 
  572.      jsr sect1
  573.     rts
  574.  
  575. run_music1
  576.     lea ch1vars,a0
  577.        lea chann1reg,a2
  578.       move.w #%0000000000000001,d5 
  579.       move.w #%1000001000000001,d1 
  580.       jsr sect1     
  581.     rts
  582.  
  583.     ;  **************************
  584. ch2
  585.     tst.w fx_disable
  586.     bne test_music2
  587.     tst.l fxr2
  588.     bne   ch2j1
  589.     tst.l fxc2
  590.     beq test_music2
  591.     bra ch2j3
  592. ch2j2    jsr run_dummy2
  593.     jsr run_fx2
  594.     bra ch3
  595. ch2j1
  596.     jsr set_up2
  597. ch2j3    tst.w music_disable    
  598.     beq ch2j2
  599.     jsr run_fx2
  600.     bra ch3
  601.  
  602. test_music2
  603.     tst.w music_disable
  604.     bne ch3
  605.     jsr run_music2
  606.     bra ch3
  607.     ;***********************
  608.     ; channel 2 subroutines
  609. run_dummy2    
  610.      lea ch2vars,a0
  611.      lea dummy_reg,a2 
  612.      move.w #0,d5 
  613.      jsr sect1    
  614.     rts
  615.  
  616. set_up2    
  617.          move.l fxr2,d0
  618.          add d0,d0
  619.          add d0,d0
  620.          lea  fxjump_table-4,A1
  621.      add.l d0,a1
  622.          move.l (a1),currfx2
  623.       clr.l fxr2
  624.      clr.w fxintc2
  625.       rts
  626.   
  627.      
  628. run_fx2
  629.     lea ch2fxvars,a0
  630.        lea chann2reg,a2
  631.       move.w #%0000000000000010,d5 
  632.      move.w #%1000001000000010,d1 
  633.      jsr sect1
  634.     rts
  635.  
  636. run_music2
  637.     lea ch2vars,a0
  638.        lea chann2reg,a2
  639.       move.w #%0000000000000010,d5 
  640.       move.w #%1000001000000010,d1 
  641.       jsr sect1     
  642.     rts
  643.  
  644.     ;  **************************
  645.  
  646. ch3:
  647.     tst.w fx_disable
  648.     bne test_music3
  649.     tst.l fxr3
  650.     bne   ch3j1
  651.     tst.l fxc3
  652.     beq test_music3
  653.     bra ch3j3
  654. ch3j2    jsr run_dummy3
  655.     jsr run_fx3
  656.     bra ch4
  657. ch3j1
  658.     jsr set_up3
  659. ch3j3    tst.w music_disable    
  660.     beq ch3j2
  661.     jsr run_fx3
  662.     bra ch4
  663.  
  664. test_music3
  665.     tst.w music_disable
  666.     bne ch4
  667.     jsr run_music3
  668.     bra ch4
  669.  
  670.     ;***********************
  671.  
  672.     ; channel 3 subroutines
  673.  
  674. run_dummy3    
  675.      lea ch3vars,a0
  676.      lea dummy_reg,a2 
  677.      move.w #0,d5 
  678.      jsr sect1    
  679.     rts
  680.  
  681. set_up3    
  682.          move.l fxr3,d0
  683.          add d0,d0
  684.          add d0,d0
  685.          lea  fxjump_table-4,A1
  686.      add.l d0,a1
  687.          move.l (a1),currfx3
  688.       clr.l fxr3
  689.      clr.w fxintc3
  690.       rts
  691.   
  692.      
  693. run_fx3
  694.     lea ch3fxvars,a0
  695.        lea chann3reg,a2
  696.       move.w #%0000000000000100,d5 
  697.      move.w #%1000001000000100,d1 
  698.      jsr sect1
  699.     rts
  700.  
  701. run_music3
  702.     lea ch3vars,a0
  703.        lea chann3reg,a2
  704.       move.w #%0000000000000100,d5 
  705.       move.w #%1000001000000100,d1 
  706.       jsr sect1     
  707.     rts
  708.  
  709.     ;  **************************
  710.  
  711. ch4:
  712.     tst.w fx_disable
  713.     bne test_music4
  714.     tst.l fxr4
  715.     bne   ch4j1
  716.     tst.l fxc4
  717.     beq test_music4
  718.     bra ch4j3
  719. ch4j2    jsr run_dummy4
  720.     jsr run_fx4
  721.     bra no4
  722. ch4j1
  723.     jsr set_up4
  724. ch4j3    tst.w music_disable    
  725.     beq ch4j2
  726.     jsr run_fx4
  727.     bra no4
  728.  
  729. test_music4
  730.     tst.w music_disable
  731.     bne no4
  732.     jsr run_music4
  733. no4    
  734.     movem.l (a7)+,d0-d6/a0-a6    ;restore registers
  735.     rts
  736.  
  737.     ;***********************
  738.  
  739.     ; channel 4 subroutines
  740.  
  741. run_dummy4    
  742.      lea ch4vars,a0
  743.      lea dummy_reg,a2 
  744.      move.w #0,d5 
  745.      jsr sect1    
  746.     rts
  747.  
  748. set_up4    
  749.          move.l fxr4,d0
  750.          add d0,d0
  751.          add d0,d0
  752.          lea  fxjump_table-4,A1
  753.      add.l d0,a1
  754.          move.l (a1),currfx4
  755.       clr.l fxr4
  756.      clr.w fxintc4
  757.       rts
  758.   
  759.      
  760. run_fx4
  761.     lea ch4fxvars,a0
  762.        lea chann4reg,a2
  763.       move.w #%0000000000001000,d5 
  764.      move.w #%1000001000001000,d1 
  765.      jsr sect1
  766.     rts
  767.  
  768. run_music4
  769.     lea ch4vars,a0
  770.        lea chann4reg,a2
  771.       move.w #%0000000000001000,d5 
  772.       move.w #%1000001000001000,d1 
  773.       jsr sect1     
  774.     rts
  775.     ;  **************************
  776.  
  777. sect1: tst.w 0(a0)
  778.     bne s1j1
  779.     rts
  780.  
  781. s1j1:    tst.w 2(a0)
  782.         beq sect3       
  783.         cmpi.w #1,2(a0)
  784.         beq sect4
  785.  
  786.         cmpi.w #3,4(a0)    
  787.         beq part2       
  788.     
  789. mode_switch:  subq.w #1,2(a0)     
  790.  
  791. check_effects: clr.w altpf      
  792.         move.w 6(a0),d2    
  793.         tst.w 8(a0)      
  794.         beq check_mod
  795.         tst.w 14(a0)      
  796.         beq cont_bend
  797.         subq.w #1,14(a0)
  798.         bra check_mod
  799. cont_bend:   addq.w #1,altpf    
  800.         move.w 10(a0),d3    
  801.         move.w 12(a0),d4    
  802.         cmpi.w #1,8(a0)
  803.         beq pbup
  804.     
  805.         sub.w d3,d2
  806.         cmp.w d2,d4
  807.         bcs check_mod
  808.         bra fbend
  809.  
  810. pbup:     add.w d3,d2
  811.         cmp.w d2,d4
  812.         bcc check_mod
  813. fbend:     move.w d4,d2
  814.         clr.w 8(a0)      
  815. check_mod:   tst.w 16(a0)
  816.         beq send_alt_pitch
  817.    
  818.  
  819.     tst.w  58(a0)
  820.     beq st_ok
  821.     subq.w #1,58(a0)
  822.     bra send_alt_pitch
  823. st_ok:
  824.         tst.w 50(a0)
  825.         beq cont_mod
  826.         subq #1,50(a0)
  827.         bra send_alt_pitch
  828. cont_mod:    move.w 52(a0),50(a0)  
  829.         addq #1,altpf
  830.         cmpi #3,16(a0)
  831.         bcc addmod
  832.     
  833.         move.w 56(a0),d3 
  834.         sub.w d3,d2
  835.         addq.w #1,16(a0)  
  836.         bra send_alt_pitch
  837. addmod:
  838.  
  839.         move.w 54(a0),d3 
  840.         add.w d3,d2
  841.         addq.w #1,16(a0)
  842.         cmpi.w #5,16(a0)
  843.        bne send_alt_pitch
  844.         move.w #1,16(a0)  
  845.  
  846. send_alt_pitch: tst.w altpf
  847.         beq send_env
  848.         move.w d2,6(a0)  
  849.         move.w d2,6(a2)  
  850.  
  851. send_env: 
  852.  
  853.     cmpi #6,(a0)
  854.     beq norm_env    
  855.     cmpi #5,(a0)
  856.     bne do_env_check
  857.  
  858.     tst.w fx4_flag
  859.     beq norm_env
  860.     bra low_vol
  861.  
  862. do_env_check:
  863.     move.w fx3_flag,d0
  864.     or.w fx4_flag,d0
  865.     cmpi.w  #0,d0
  866.     beq norm_env
  867. low_vol:    
  868.     move.l 18(a0),a1    
  869.         cmpi.w #255,(a1)
  870.         beq evj1
  871.     move.w (a1)+,d0
  872. evj2:    sub.w  62(a0),d0
  873.     bcc no_over
  874.     move.w 0,d0
  875. no_over:
  876.         move.w d0,8(a2) 
  877.     bra fint        
  878.  
  879. evj1:   subq.l #2,a1
  880.     move.w (a1)+,d0
  881.     bra evj2
  882.  
  883. norm_env:
  884.     move.l 18(a0),a1    
  885.         cmpi.w #255,(a1)
  886.         beq env_finished
  887.     cmpi.w #1,66(a0)    
  888.     bne    no_acc 
  889.  
  890.     clr.l d0
  891.     move.w (a1)+,d0
  892.     add.w 64(a0),d0    
  893.     move.w d0,8(a2)    
  894.     move.l a1,18(a0)
  895.     rts        
  896.  
  897. no_acc:
  898. resu:   move.w (a1)+,8(a2)   
  899. fint:   move.l a1,18(a0)    
  900.     rts
  901.  
  902. env_finished:
  903.      subq.l #2,a1    
  904.      bra resu
  905.  
  906.  
  907. one_shot_note: move.w #3,4(a0)     
  908.         move.l 38(a0),(a2)
  909.         move.w 42(a0),4(a2)
  910.         move.w d1,dmacon     
  911.         bra send_env
  912.  
  913.  
  914. part2:                         
  915.         move.l 44(a0),(a2)
  916.         move.w 48(a0),4(a2)
  917.         subq.w #1,2(a0)      
  918.         move.w #1,4(a0)
  919.         bra check_effects
  920.  
  921. sect3:
  922.     move.w 0,66(a0)    
  923.  
  924.     move.l 22(a0),a1  
  925. control_ret: move.w (a1)+,d0  
  926.     cmpi.w #100,d0   
  927.     bls sect5   
  928.   
  929. acc_note:
  930.     move.w d0,6(a0)  
  931.     move.w d0,6(a2)  
  932.     move.w (a1)+,2(a0) 
  933.     subq.w #1,2(a0)  
  934.     move.l a1,22(a0)  
  935.     move.l 34(a0),18(a0) 
  936.     move.w 60(a0),58(a0) 
  937.  
  938.  
  939.     tst.w 16(a0)
  940.     beq no_mod_res
  941.     move.w #1,16(a0)
  942. no_mod_res:
  943.     cmpi.w #0,4(a0)
  944.     beq do_loop
  945.     bra one_shot_note    
  946.  
  947.  
  948. do_loop:    move.w d1,dmacon   
  949.         bra send_env
  950.  
  951. do_rest:
  952.     move.w (a1)+,2(a0) 
  953.     subq.w #1,2(a0)  
  954.     move.l a1,22(a0)  
  955.     move.l  #rest_env,18(a0)
  956.  
  957.         move.w #0,8(a2)
  958.         bra send_env
  959.    
  960. sect4:
  961.         cmpi.w #0,4(a0)
  962.         beq noof
  963.         move.w d5,dmacon   
  964. noof:     subq.w #1,2(a0)
  965.         bra check_effects
  966.    
  967. sect5:     move.l #jump_table,a3
  968.         move.l (a3,d0),a4
  969.         jmp (a4)
  970.  
  971. jump_table: 
  972.     dc.l  in_line_data
  973.         dc.l  nsound
  974.         dc.l  patt_end
  975.         dc.l  get_env
  976.         dc.l  check_pbend
  977.         dc.l  do_mod
  978.         dc.l  bend_off
  979.         dc.l  mod_off
  980.         dc.l  do_rest
  981.         dc.l  end_fx
  982.         dc.l  end_fx
  983.     dc.l  s_f_on
  984.     dc.l  s_f_off
  985.     dc.l  set_acc
  986.     dc.l  rept
  987.  
  988. in_line_data:
  989.  
  990.         nop
  991.         rts
  992.  
  993. rept:
  994.     move.l (a1),a1
  995.     bra control_ret
  996.  
  997. s_f_on: 
  998.     bclr #1,filter
  999.     bra control_ret
  1000. s_f_off:
  1001.     bset #1,filter
  1002.     bra control_ret
  1003.  
  1004. nsound:    move.l (a1)+,a3     
  1005.         cmpi.w #0,(a3)
  1006.         bne one_shot_sound
  1007.         move.w (a3)+,4(a0)    
  1008.         move.l (a3)+,(a2)     
  1009.         move.w (a3),4(a2)    
  1010.         jmp control_ret
  1011.  
  1012. one_shot_sound:
  1013.         move.w (a3)+,4(a0)
  1014.         move.l (a3)+,38(a0)   
  1015.         move.l (a3)+,42(a0)
  1016.         move.l (a3),46(a0)
  1017.         jmp control_ret
  1018.  
  1019. patt_end:
  1020.  
  1021.         move.l 26(a0),a1    
  1022.         cmpi.l #0,(a1)     
  1023.         beq song_control
  1024.         addq.l #4,26(a0)    
  1025.         move.l (a1),a1     
  1026.         jmp control_ret
  1027. get_env: 
  1028.        move.l (a1)+,a4 
  1029.     move.l (a4)+,62(a0)    
  1030.     
  1031.     move.l  a4,34(a0)    
  1032.     
  1033.         bra control_ret
  1034.  
  1035. check_pbend:
  1036.      move.l (a1)+,8(a0)
  1037.         move.l (a1)+,12(a0)
  1038.         bra control_ret
  1039.  
  1040. do_mod:    move.w #1,16(a0)  
  1041.         move.l (a1)+,50(a0)
  1042.         move.l (a1)+,54(a0)
  1043.         move.l (a1)+,58(a0)
  1044.         bra control_ret
  1045.  
  1046. bend_off:   clr.w 8(a0)
  1047.         bra control_ret
  1048.  
  1049. mod_off:    clr.w 16(a0)
  1050.         bra control_ret
  1051.  
  1052.  
  1053. end_fx:    
  1054.     cmpi.w #6,(a0)
  1055.     beq end_fx4p
  1056.     cmpi.w #5,(a0)
  1057.     beq end_fx3p
  1058.     cmpi.w #7,(a0)
  1059.     beq end_fx2p
  1060.  
  1061. end_fx1p:
  1062.         move.w d5,dmacon   
  1063.     move.w  #1,chann1reg+6
  1064.     move.w #0,8(a2)
  1065.     move.l #0,fxc1
  1066.     rts
  1067.  
  1068. end_fx2p:
  1069.     move.w d5,dmacon 
  1070.     move.w  #1,chann2reg+6
  1071.         move.w #0,8(a2) 
  1072.     move.l #0,fxc2
  1073.         rts
  1074.  
  1075.  
  1076. end_fx3p:
  1077.         move.w d5,dmacon   
  1078.     move.w  #1,chann3reg+6
  1079.     move.w #0,8(a2)
  1080.     move.l #0,fxc3
  1081.     rts
  1082.  
  1083. end_fx4p:
  1084.     move.w d5,dmacon 
  1085.     move.w  #1,chann4reg+6
  1086.         move.w #0,8(a2) 
  1087.     move.l #0,fxc4
  1088.         rts
  1089.  
  1090. set_acc: move.w #1,66(a0) 
  1091.     bra control_ret
  1092.  
  1093. song_control:
  1094.         addq.l #4,a1
  1095.         move.l 30(a0),26(a0)
  1096.         move.l 26(a0),a1
  1097.         addq.l #4,26(a0)
  1098.         move.l (a1),a1
  1099.         jmp control_ret
  1100.  
  1101.  
  1102.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  1103.  
  1104.     ;;; DATA
  1105.  
  1106. song_table:
  1107.               dc.l s1,s2,s3,s4
  1108.           dc.l s5,s6,s7,s8
  1109.           dc.l s9,s10,s11,s12
  1110.  
  1111. ;************************************************************
  1112. gvars:
  1113. ch1vars     
  1114.     dc.w 0     
  1115.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1116. pattr1: dc.l 0    
  1117. songr1: dc.l 0    
  1118. wsong1: dc.l 0   
  1119.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1120.  
  1121. ch2vars     
  1122.     dc.w 0     
  1123.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1124. pattr2: dc.l 0    
  1125. songr2: dc.l 0    
  1126. wsong2: dc.l 0    
  1127.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1128.  
  1129. ch3vars 
  1130.     dc.w 0     
  1131.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1132. pattr3: dc.l 0    
  1133. songr3: dc.l 0    
  1134. wsong3: dc.l 0    
  1135.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1136.  
  1137. ch4vars 
  1138.     dc.w 0     
  1139.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1140. pattr4: dc.l 0    
  1141. songr4: dc.l 0    
  1142. wsong4: dc.l 0    
  1143.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1144.  
  1145.  
  1146. ch1fxvars 
  1147.     dc.w 0     
  1148. fxintc1:
  1149.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1150. currfx1:
  1151.     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    
  1152.  
  1153. ch2fxvars 
  1154.     dc.w 0     
  1155. fxintc2:
  1156.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1157. currfx2:
  1158.     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    
  1159.  
  1160.  
  1161. ch3fxvars
  1162.     dc.w 0     
  1163. fxintc3:
  1164.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1165. currfx3:
  1166.     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    
  1167.  
  1168. ch4fxvars 
  1169.     dc.w 0     
  1170. fxintc4:
  1171.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1172. currfx4:
  1173.     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    
  1174. ;************************************************************
  1175.  
  1176. dummy_reg dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1177.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1178.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1179.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1180. ;************************************************************
  1181.  
  1182. ;       fx patterns here
  1183.  
  1184. fxjump_table:  
  1185.  
  1186.  
  1187.  ;dc.l fxp1
  1188.  ;dc.l fxp1a
  1189.  ;dc.l fxp2
  1190.  ;dc.l fxp3
  1191.  ;dc.l fxp4
  1192.  ;dc.l fxp4a
  1193.  ;dc.l fxp5 
  1194.  ;dc.l fxp6
  1195.  ;dc.l fxp7
  1196.  ;dc.l fxp8
  1197.  ;dc.l fxp9
  1198.  ;dc.l fxp10
  1199.  ;dc.l fxp11
  1200.  
  1201. max_fx    dc.l    16
  1202.  
  1203. ;************************************
  1204.  
  1205. ;   The 1/50 counter in these patterns is dependent on the length
  1206. ;   of the sample in bytes and the replay speed.if altering the
  1207. ;   replay speed calculate the counter using length/rate*50
  1208. ;   ie the piston sample is 2647 bytes at r6(6000)..hence interrupt
  1209. ;   counter for 1 shot play = 22
  1210.  
  1211. ;***********************   new   *******************************
  1212.  
  1213.  
  1214. fxp1:                    ;REPEATING STEAM PISTON
  1215. ;                        dc.w  new_env
  1216. ;                        dc.l  fx1env
  1217. ;            dc.w    new_snd
  1218. ;            dc.l    piston1
  1219. ;fp1r            dc.w    r6      ; r1-r22 to change pitch
  1220. ;            dc.w    22      ; repeat speed in 50th
  1221. ;            dc.w    repeat
  1222. ;            dc.l    fp1r
  1223. ;                           dc.w    end_fxp
  1224. ;
  1225.  
  1226.  
  1227.  
  1228.  
  1229. fxp1a:                    ;ONE SHOT STEAM PISTON
  1230.  
  1231. ;;                        dc.w  new_env
  1232.  ;                       dc.l  fx1env
  1233.     ;        dc.w    new_snd
  1234.     ;        dc.l    piston1
  1235.     ;        dc.w    r6    ; r1-r22 to change pitch
  1236.     ;        dc.w    22
  1237.         ;                   dc.w    end_fxp
  1238.  
  1239.  
  1240.  
  1241. sstart: dc.l 0,end_song
  1242.  
  1243. pstart: dc.w end_patt
  1244.  
  1245.  
  1246. ;----------------------------------
  1247. s1:
  1248.     dc.l    p3
  1249.     dc.l     p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p3
  1250.     dc.l     p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p3
  1251. ;s1
  1252.     dc.l    p3
  1253.     dc.l    prk,prk,prk,prk,p10
  1254.     dc.l    p10
  1255.     dc.l    p1,p1,p1,p1
  1256.  
  1257.     dc.l    p1,p1,p1,p1
  1258.  
  1259.  
  1260.  
  1261.     dc.l    0,end_song
  1262.  
  1263. ;-----------------------------
  1264.  
  1265. s2:    
  1266.     dc.l    p3st
  1267.     dc.l     p10,p10,p10,p10,p20,p20a,p20,p30
  1268.  
  1269.     dc.l     p10,p10,p10,p10,p20,p20a,p20,p30
  1270. ;s2
  1271.     dc.l    p3st
  1272.     dc.l    pr,pr,pfill1,pfill1
  1273.     dc.l    p1,p1,p1,p1
  1274.  
  1275.     dc.l    p40,p40
  1276.  
  1277.     dc.l    p40,p40
  1278.  
  1279.  
  1280.     dc.l    0,end_song
  1281. ;-------------------------------
  1282. s3:    
  1283.     dc.l    pr
  1284.  
  1285.     dc.l p2,p2fa,p2fb,p2fa,p2,p2fa,p2,p2fa
  1286.     dc.l p2fb,p2fa,p2,p2fa,p2fb,p2fa,p2,p2fa
  1287.  
  1288. ;s3    
  1289.     dc.l   pr
  1290.     dc.l   p2,p2
  1291.     dc.l   p2,p2fa
  1292.  
  1293.     dc.l    p2fa,p2fa
  1294.  
  1295.     dc.l    p2fa,p2fa
  1296.  
  1297.  
  1298.     dc.l       0,end_song
  1299. ;------------------------------
  1300. s4:
  1301.     dc.l pr
  1302.  
  1303.     dc.l     p60,p61,p60,p61,p63,p63
  1304.     dc.l     p60,p61,p60,p61,p63,p63
  1305. ;s4    
  1306.     dc.l    pr
  1307.     dc.l    p61g,p61g
  1308.     dc.l    p61g,p61g
  1309.  
  1310.     dc.l    p40syn
  1311.     dc.l    p40guit,p40guit
  1312.  
  1313.     dc.l       0,end_song
  1314. ;------------------------------
  1315.  
  1316.  
  1317.  
  1318. prf
  1319.  
  1320.       dc.w rest,cr*1000
  1321.       dc.w end_patt
  1322.  
  1323.  
  1324.  
  1325. pr: 
  1326.       dc.w rest,cr*4
  1327.       dc.w end_patt
  1328.  
  1329.  
  1330. p1:             
  1331.         dc.w  new_env
  1332.         dc.l  kick_env
  1333.     dc.w    new_snd
  1334.     dc.l  kick
  1335.     dc.w  r8,q
  1336.  
  1337.         dc.w  new_env
  1338.         dc.l  hatcl_env
  1339.     dc.w    new_snd
  1340.     dc.l  hatc
  1341.     dc.w  r16,sq,r16,sq
  1342.         dc.w  new_env
  1343.         dc.l  snare_env
  1344.     dc.w  new_snd
  1345.     dc.l  snare
  1346.     dc.w  r8,q
  1347.  
  1348.         dc.w  new_env
  1349.         dc.l  kick_env
  1350.     dc.w    new_snd
  1351.     dc.l  kick
  1352.     dc.w  r8,cr,r8,q
  1353.  
  1354.  
  1355.         dc.w  new_env
  1356.         dc.l  snare_env
  1357.     dc.w  new_snd
  1358.     dc.l  snare
  1359.     dc.w  r8,q
  1360.         dc.w  new_env
  1361.         dc.l  hatcl_env
  1362.     dc.w    new_snd
  1363.     dc.l  hatc
  1364.     dc.w  r16,sq,r16,sq
  1365.  
  1366.     dc.w     end_patt
  1367.  
  1368.  
  1369.  
  1370. prk:             
  1371.         dc.w  new_env
  1372.         dc.l  tom1_env
  1373.     dc.w    new_snd
  1374.     dc.l  tom1
  1375.     dc.w  r8,cr*4
  1376.     dc.w     end_patt
  1377.  
  1378.  
  1379.  
  1380.  
  1381.  
  1382.  
  1383.  
  1384. p2:             
  1385.         dc.w  new_env
  1386.         dc.l  hatc_env
  1387.     dc.w    new_snd
  1388.     dc.l  hatc
  1389.     dc.w  r16,sq,r16,sq,r16,sq,r16,sq
  1390.     dc.w  r16,sq,r16,sq,r16,sq,r16,sq
  1391.     dc.w    new_snd
  1392.     dc.l  hato
  1393.     dc.w  r12,sq
  1394.     dc.w    new_snd
  1395.     dc.l  hatc
  1396.     dc.w  r16,sq,r16,sq,r16,sq
  1397.     dc.w  r16,sq,r16,sq,r16,sq,r16,sq
  1398.     dc.w  r16,sq,r16,sq
  1399.     dc.w    new_snd
  1400.     dc.l  hato
  1401.  
  1402.     dc.w  r16,sq,r16,sq
  1403.     dc.w    new_snd
  1404.     dc.l  hatc
  1405.  
  1406.  
  1407.     dc.w  r16,sq,r16,sq,r16,sq,r16,sq
  1408.     dc.w  r16,sq,r16,sq,r16,sq,r16,sq
  1409.     dc.w  r16,sq,r16,sq,r16,sq
  1410.  
  1411.  
  1412.         dc.w  new_env
  1413.         dc.l  kick_env
  1414.     dc.w    new_snd
  1415.     dc.l  kick
  1416.     dc.w  r8,sq
  1417.  
  1418.     dc.w     end_patt
  1419.  
  1420.  
  1421.  
  1422. p2fa:             
  1423.         dc.w  new_env
  1424.         dc.l  hatc_env
  1425.     dc.w    new_snd
  1426.     dc.l  hatc
  1427.     dc.w  r16,sq,r16,sq,r16,sq,acc,r16,sq
  1428.     dc.w  r16,sq,r16,sq,r16,sq,r16,sq
  1429.     dc.w    new_snd
  1430.     dc.l  hato
  1431.     dc.w  r12,sq
  1432.     dc.w    new_snd
  1433.     dc.l  hatc
  1434.     dc.w  r16,sq,r16,sq,acc,r16,sq
  1435.     dc.w  r16,sq,r16,sq,r16,sq,r16,sq
  1436.     dc.w  r16,sq,r16,sq
  1437.     dc.w    new_snd
  1438.     dc.l  hato
  1439.     dc.w  r16,sq,r16,sq
  1440.     dc.w    new_snd
  1441.     dc.l  hatc
  1442.     dc.w  acc,r16,sq,r16,sq,r16,sq,r16,sq
  1443.     dc.w  r16,sq,r16,sq,r16,sq,acc,r16,sq
  1444.         dc.w  new_env
  1445.         dc.l  tom1_env
  1446.     dc.w    new_snd
  1447.     dc.l  tom1
  1448.     
  1449.     dc.w  r11,sq,r10,sq,r9,sq,r8,sq
  1450.     dc.w     end_patt
  1451.  
  1452.  
  1453. p2fb:             
  1454.         dc.w  new_env
  1455.         dc.l  hatc_env
  1456.     dc.w    new_snd
  1457.     dc.l  hatc
  1458.     dc.w  r16,sq,r16,sq,r16,sq,acc,r16,sq
  1459.     dc.w  r16,sq,r16,sq,r16,sq,r16,sq
  1460.  
  1461.         dc.w  new_env
  1462.         dc.l  snare_env
  1463.     dc.w  new_snd
  1464.     dc.l  snare
  1465.  
  1466.     dc.w  r16,sq,acc,r16,sq,r16,sq
  1467.     dc.w  r16,sq
  1468.         dc.w  new_env
  1469.         dc.l  hatc_env
  1470.     dc.w    new_snd
  1471.     dc.l  hatc
  1472.  
  1473.     dc.w  r16,sq,r16,sq,acc,r16,sq,r8,sq
  1474.     dc.w  r16,sq,r16,sq
  1475.     dc.w    new_snd
  1476.     dc.l  hato
  1477.     dc.w  r16,sq,r16,sq
  1478.     dc.w    new_snd
  1479.     dc.l  hatc
  1480.     dc.w  r16,sq,r16,sq,acc,r16,sq,r16,sq
  1481.     dc.w  r16,sq,r16,sq,r16,sq,r16,sq
  1482.         dc.w  new_env
  1483.         dc.l  tom1_env
  1484.     dc.w    new_snd
  1485.     dc.l  tom1
  1486.     
  1487.     dc.w  r12,sq,r12,sq,r10,sq,r8,sq
  1488.     dc.w     end_patt
  1489.  
  1490.  
  1491. p3:    
  1492.         ;perc intro fill             
  1493.         dc.w  new_env
  1494.         dc.l  tom1_env
  1495.     dc.w    new_snd
  1496.     dc.l  tom1
  1497.     dc.w  r12,sq,rest,sq,r8,cr
  1498.         dc.w  new_env
  1499.         dc.l  hato_env
  1500.     dc.w    new_snd
  1501.     dc.l  hato
  1502.     dc.w  r12,q
  1503.         dc.w  new_env
  1504.         dc.l  snare_env
  1505.     dc.w    new_snd
  1506.     dc.l  snare
  1507.     dc.w  rest,sq,r8,cr-sq
  1508.  
  1509.  
  1510.         dc.w  new_env
  1511.         dc.l  tom1_env
  1512.     dc.w    new_snd
  1513.     dc.l  tom1
  1514.     dc.w  r8,sq,r7,sq
  1515.     dc.w  rest,sq,rest,sq
  1516.  
  1517.     dc.w     end_patt
  1518.  
  1519.  
  1520.  
  1521.  
  1522. p3st:    
  1523.         ;perc intro fill             
  1524.         dc.w  new_env
  1525.         dc.l  tom1_env
  1526.     dc.w    new_snd
  1527.     dc.l  tom1
  1528.     dc.w  rest,sq,r10,sq,rest,cr
  1529.  
  1530.  
  1531.         dc.w  new_env
  1532.         dc.l  hato_env
  1533.     dc.w    new_snd
  1534.     dc.l  hato
  1535.     dc.w  r12,q
  1536.  
  1537.  
  1538.  
  1539.  
  1540.         dc.w  new_env
  1541.         dc.l  snare_env
  1542.     dc.w    new_snd
  1543.     dc.l  snare
  1544.     dc.w  r8,sq,rest,cr-sq
  1545.  
  1546.  
  1547.         dc.w  new_env
  1548.         dc.l  tom1_env
  1549.     dc.w    new_snd
  1550.     dc.l  tom1
  1551.     dc.w  rest,sq,rest,sq
  1552.     dc.w  r6,sq,r5,sq
  1553.  
  1554.     dc.w     end_patt
  1555.  
  1556.  
  1557.  
  1558. pfill1:    
  1559.         dc.w  new_env
  1560.         dc.l  tom1_env
  1561.     dc.w    new_snd
  1562.     dc.l  tom1
  1563.     dc.w  r14,sq,r10,sq,r8,sq,r6,sq
  1564.  
  1565.         dc.w  new_env
  1566.         dc.l  hato_env
  1567.     dc.w    new_snd
  1568.     dc.l  hato
  1569.     dc.w  r12,sq,r16,sq
  1570.  
  1571.  
  1572.  
  1573.  
  1574.         dc.w  new_env
  1575.         dc.l  snare_env
  1576.     dc.w    new_snd
  1577.     dc.l  snare
  1578.     dc.w  r8,sq,r8,sq,r8,q,r8,q
  1579.  
  1580.  
  1581.         dc.w  new_env
  1582.         dc.l  tom1_env
  1583.     dc.w    new_snd
  1584.     dc.l  tom1
  1585.     dc.w  r8,sq,r8,sq
  1586.     dc.w  r6,sq,r5,sq
  1587.  
  1588.     dc.w     end_patt
  1589.  
  1590.  
  1591.  
  1592.  
  1593.  
  1594.  
  1595.  
  1596. ;*************  MAIN BASS LINES  ******************
  1597.  
  1598. p10:         
  1599.  
  1600.  
  1601.         dc.w  new_env
  1602.         dc.l  slap2d_env
  1603.     dc.w    new_snd
  1604.     dc.l  slap2    
  1605.     dc.w d02,q,rest,sq
  1606.         ;dc.w  new_env
  1607.         ;dc.l  slap2d_env
  1608.     dc.w    new_snd
  1609.     dc.l  slap3    
  1610.     dc.w d03,q+sq
  1611.     dc.w    new_snd
  1612.     dc.l  slap2    
  1613.         ;dc.w  new_env
  1614.         ;dc.l  slap2d_env
  1615.     dc.w D02,q,rest,q,D02,sq,d02,sq
  1616.     dc.w f02,sq,d02,sq,f02,sq,a02,sq
  1617.            dc.w d02,q+sq,d03,q+sq,D02,q,rest,q
  1618.     dc.w a01,q,a01,sq,C02,q,rest,sq
  1619.       dc.w end_patt
  1620.  
  1621.  
  1622. p20: 
  1623.  
  1624.         dc.w  new_env
  1625.         dc.l  slap2d_env
  1626.     dc.w    new_snd
  1627.     dc.l  slap2    
  1628.            dc.w c02,q,c02,q,c03,q,c02,sq,c02,q
  1629.     dc.w c03,q,c02,sq,c03,sq,c02,sq,g03,sq,c03,sq
  1630.     dc.w bb01,q,bb01,q,bb02,q,Bb01,sq,bb01,q
  1631.     dc.w bb02,q,bb01,sq,Bb02,sq,Bb01,sq,f03,sq,Bb02,sq
  1632.       dc.w end_patt
  1633.  
  1634.  
  1635. p20a    dc.w d02,q,d02,q,d03,q,d02,sq,d02,q
  1636.     dc.w d03,q,d02,sq,d03,sq,d02,sq,a02,sq,d03,sq
  1637.     dc.w d02,q,d02,q,d03,q,d02,sq,d02,q
  1638.     dc.w d03,q,d02,sq,d03,sq,d02,sq,a02,sq,d02,sq
  1639.       dc.w end_patt
  1640.  
  1641.  
  1642.  
  1643. p30:
  1644.  
  1645.         dc.w  new_env
  1646.         dc.l  slap2d_env
  1647.     dc.w    new_snd
  1648.     dc.l  slap2    
  1649.  
  1650.     dc.w d02,sq,d02,sq,d03,sq,d02,sq,d02,sq,d03,sq
  1651.      dc.w d02,sq,d02,sq,d03,sq,d02,sq,d02,sq,d03,sq
  1652.      dc.w d02,sq,d02,sq,d03,sq,d02,sq
  1653.     dc.w d02,sq,d02,sq,d03,sq,d02,sq,d02,sq,d03,sq
  1654.     dc.w d02,sq,c03,sq,d02,sq,b02,sq
  1655.     dc.w d02,sq,a02,sq,d02,cr
  1656.       dc.w end_patt
  1657.  
  1658.  
  1659.  
  1660. p40:
  1661.  
  1662.         dc.w  new_env
  1663.         dc.l  slap2d_env
  1664.     dc.w    new_snd
  1665.     dc.l  slap2    
  1666.     dc.w d02,q,d02,q,f02,sq,d02,q,g02,q,d02,q
  1667.      dc.w a02,sq,g02,sq,f02,sq,d02,q
  1668.     dc.w d02,q,d02,q,f02,sq,d02,q,c02,q+sq,c02,q
  1669.      dc.w d02,sq,rest,q+sq
  1670.       dc.w end_patt
  1671.  
  1672.  
  1673. p40guit:
  1674.  
  1675.         dc.w  new_env
  1676.         dc.l  guit_env
  1677.     dc.w    new_snd
  1678.     dc.l  guit    
  1679.     dc.w d02,q,d02,q,f02,sq,d02,q,g02,q,d02,q
  1680.      dc.w a02,sq,g02,sq,f02,sq,d02,q
  1681.     dc.w d02,q,d02,q,f02,sq,d02,q,c02,q+sq,c02,q
  1682.      dc.w d02,sq,rest,q+sq
  1683.       dc.w end_patt
  1684.  
  1685.  
  1686.  
  1687. p40syn:
  1688.  
  1689.         dc.w  new_env
  1690.         dc.l  syn1loud_env
  1691.     dc.w    new_snd
  1692.     dc.l  syn1    
  1693.     dc.w d02,q,d02,q,f02,sq,d02,q,g02,q,d02,q
  1694.      dc.w a02,sq,g02,sq,f02,sq,d02,q
  1695.     dc.w d02,q,d02,q,f02,sq,d02,q,c02,q+sq,c02,q
  1696.      dc.w d02,cr*2
  1697.  
  1698.  
  1699.     dc.w f02,sq,d02,q,g02,q,d02,q
  1700.      dc.w a02,sq,g02,sq,f02,sq,d02,q
  1701.     dc.w d02,q,d02,q,f02,sq,d02,q,c02,q+sq,c02,q
  1702.      dc.w d02,sq,rest,q+sq
  1703.       dc.w end_patt
  1704.  
  1705.  
  1706. p60:
  1707.  
  1708.         dc.w  new_env
  1709.         dc.l  metal_env
  1710.     dc.w    new_snd
  1711.     dc.l  metal    
  1712.     dc.w    modon,1,1
  1713.     dc.w 2,2,2,2
  1714.  
  1715.  
  1716.     dc.w d02,q+sq,d03,q+q+cr*2,a01,sq
  1717.  
  1718.     dc.w d02,q+sq,d03,q+q+cr*2+sq
  1719.  
  1720.  
  1721.  
  1722.       dc.w end_patt
  1723.  
  1724.  
  1725.  
  1726. p61:
  1727.  
  1728.         dc.w  new_env
  1729.         dc.l  metal_env
  1730.     dc.w    new_snd
  1731.     dc.l  metal    
  1732.     dc.w    modon,1,1
  1733.     dc.w 2,2,2,2
  1734.  
  1735.  
  1736.     dc.w d02,q+sq,d03,q+q+cr*2,a03,sq
  1737.  
  1738.     dc.w d02,q+sq,d03,q+q+cr*2+sq
  1739.       dc.w end_patt
  1740.  
  1741.  
  1742. p61g:
  1743.  
  1744.         dc.w  new_env
  1745.         dc.l  guit_env
  1746.     dc.w    new_snd
  1747.     dc.l  guit    
  1748.     dc.w    modon,1,1
  1749.     dc.w 2,2,2,2
  1750.  
  1751.  
  1752.     dc.w d02,q+sq
  1753.     dc.w d03,q+sq
  1754.     dc.w D02,cr,D02,sq,d02,sq
  1755.     dc.w f02,sq,d02,sq,f02,sq,a02,sq
  1756.            dc.w d02,q+sq,d03,q+sq,D02,cr
  1757.     dc.w a01,q,a01,sq,C02,q+sq
  1758.       dc.w end_patt
  1759.  
  1760.  
  1761. p63:
  1762.  
  1763.         dc.w  new_env
  1764.         dc.l  syn1_env
  1765.     dc.w    new_snd
  1766.     dc.l  syn1    
  1767.     dc.w    modon,1,1
  1768.     dc.w 4,4,2,2
  1769.     dc.w c03,cr*4,bb02,cr*4,d03,cr*8
  1770.       dc.w end_patt
  1771.  
  1772.  
  1773. ;**************************************
  1774. ;**************************************************************************
  1775. ;            DATA FOR TUNE 2
  1776.  
  1777.  
  1778.  
  1779. ;line of fire tune2
  1780.  
  1781. s5:
  1782.   dc.l p1,p1f_s2,p1,p1f_s2,p1,pfill1,p1,p1fb_s2
  1783.   dc.l 0,end_song
  1784.  
  1785.  
  1786. s6:
  1787.   dc.l  p1b,p1b,p2b,p1b,p3b,p1b
  1788.   dc.l  0,end_song
  1789.  
  1790. s7:
  1791.  
  1792.  
  1793.       dc.l  p1b3,p1b3,p2b3,p1b3,p3b3,p1b3
  1794.       dc.l  p1b3x,p1b3x,p2b3x,p1b3x,p3b3,p1b3x
  1795.   dc.l  0,end_song
  1796.     
  1797. s8:
  1798.     dc.l    p2
  1799.   dc.l  0,end_song
  1800.  
  1801.  
  1802.  
  1803.  
  1804. ;*************************************************
  1805.  
  1806.  
  1807. p1f_s2:             
  1808.         dc.w  new_env
  1809.         dc.l  kick_env
  1810.     dc.w    new_snd
  1811.     dc.l  kick
  1812.     dc.w  r8,q
  1813.  
  1814.         dc.w  new_env
  1815.         dc.l  hatcl_env
  1816.     dc.w    new_snd
  1817.     dc.l  hatc
  1818.     dc.w  r16,sq,r16,sq
  1819.         dc.w  new_env
  1820.         dc.l  snare_env
  1821.     dc.w  new_snd
  1822.     dc.l  snare
  1823.     dc.w  r8,q
  1824.  
  1825.         dc.w  new_env
  1826.         dc.l  kick_env
  1827.     dc.w    new_snd
  1828.     dc.l  kick
  1829.     dc.w  r8,cr,r8,q
  1830.  
  1831.  
  1832.         dc.w  new_env
  1833.         dc.l  snare_env
  1834.     dc.w  new_snd
  1835.     dc.l  snare
  1836.     dc.w  r16,sq,r16,sq,r16,sq,r16,sq
  1837.  
  1838.     dc.w     end_patt
  1839.  
  1840.  
  1841. p1fb_s2:             
  1842.         dc.w  new_env
  1843.         dc.l  kick_env
  1844.     dc.w    new_snd
  1845.     dc.l  kick
  1846.     dc.w  r8,sq,r8,sq
  1847.  
  1848.         dc.w  new_env
  1849.         dc.l  hatcl_env
  1850.     dc.w    new_snd
  1851.     dc.l  hatc
  1852.     dc.w  r16,sq,r16,sq
  1853.         dc.w  new_env
  1854.         dc.l  snare_env
  1855.     dc.w  new_snd
  1856.     dc.l  snare
  1857.     dc.w  r8,q
  1858.  
  1859.         dc.w  new_env
  1860.         dc.l  kick_env
  1861.     dc.w    new_snd
  1862.     dc.l  kick
  1863.     dc.w  r8,cr,r8,q
  1864.  
  1865.  
  1866.         dc.w  new_env
  1867.         dc.l  snare_env
  1868.     dc.w  new_snd
  1869.     dc.l  snare
  1870.     dc.w  r4,cr
  1871.  
  1872.     dc.w     end_patt
  1873.  
  1874.  
  1875.  
  1876.  
  1877.  
  1878.  
  1879.  
  1880.  
  1881.  
  1882. p1b:
  1883.  
  1884.  
  1885.         dc.w  new_env
  1886.         dc.l  slap2d_env
  1887.     dc.w    new_snd
  1888.     dc.l  slap2    
  1889.     dc.w    modon,1,1
  1890.     dc.w 3,3,1,1
  1891.  
  1892.  
  1893.   dc.w c01,sq,c01,sq,c02,q,bb01,q,a01,q,g01,q,a01,sq
  1894.   dc.w bb01,q+sq,g01,sq,g01,sq
  1895.   dc.w c01,sq,c01,sq,c02,q,bb01,q,a01,sq,g01,sq+cr*2
  1896.  
  1897.  
  1898.   dc.w end_patt
  1899.  
  1900.  
  1901. p2b:     
  1902.  
  1903.     dc.w    modon,1,1
  1904.     dc.w 2,2,1,1
  1905.  
  1906.  
  1907.         
  1908.   dc.w f01,sq,f01,sq,f02,q,eb02,q,d02,q,c02,q,d02,sq
  1909.   dc.w eb02,q+sq,c02,sq,c02,sq
  1910.   dc.w f01,sq,f01,sq,f02,q,eb02,q,d02,sq,c02,sq+cr*2
  1911.  
  1912.  
  1913.   dc.w end_patt
  1914.  
  1915.  
  1916.  
  1917.  
  1918.  
  1919. p3b:
  1920.  
  1921.   dc.w g01,sq,g01,sq,d02,q,g01,q,b01,sq,b01,sq
  1922.   dc.w g01,sq,g01,sq,d02,sq,d02,sq,g01,sq,g01,sq
  1923.   dc.w b01,sq,b01,sq,f01,sq,f01,sq,c02,q,f01,q,a01,sq,a01,sq
  1924.   dc.w f01,sq,f01,sq,c02,sq,c02,sq,f01,sq,f01,sq,a01,sq,a01,sq
  1925.   dc.w end_patt
  1926.  
  1927.  
  1928. p1b3:
  1929.  
  1930.         dc.w  new_env
  1931.         dc.l  slap2_env
  1932.     dc.w    new_snd
  1933.     dc.l  slap2
  1934.  
  1935.     dc.w    modon,1,1
  1936.     dc.w 3,3,1,1
  1937.  
  1938.  
  1939.   dc.w c02,sq,c02,sq,c03,q,bb02,q,a02,q,g02,q,a02,sq
  1940.   dc.w bb02,q+sq,g02,sq,g02,sq
  1941.   dc.w c02,sq,c02,sq,c03,q,bb02,q,a02,sq,g02,sq+cr*2
  1942.   dc.w end_patt
  1943.  
  1944.  
  1945. p1b3x:
  1946.  
  1947.  
  1948.  
  1949.         dc.w  new_env
  1950.         dc.l  slap2_env
  1951.     dc.w    new_snd
  1952.     dc.l  slap2
  1953.  
  1954.       dc.w c02,sq,c02,sq,c03,q,bb02,q,a02,q
  1955.  
  1956.         dc.w  new_env
  1957.         dc.l  tom_env_s2
  1958.     dc.w    new_snd
  1959.     dc.l  tom1    
  1960.  
  1961.  
  1962.   dc.w c02,sq,c03,sq,g02,sq,g03,sq
  1963.   dc.w c02,sq,c03,sq,g02,sq,g03,sq
  1964.  
  1965.         dc.w  new_env
  1966.         dc.l  slap2d_env
  1967.     dc.w    new_snd
  1968.     dc.l  slap2    
  1969.  
  1970.   dc.w c02,sq,c02,sq,c03,q,bb02,q,a02,sq,g02,sq+cr*2
  1971.   dc.w end_patt
  1972.  
  1973.  
  1974.  
  1975. p2b3x:             
  1976.  
  1977.         dc.w  new_env
  1978.         dc.l  slap2d_env
  1979.     dc.w    new_snd
  1980.     dc.l  slap2    
  1981.     dc.w    modon,1,1
  1982.     dc.w 2,2,1,1
  1983.  
  1984.  
  1985.  
  1986.   dc.w f02,sq,f02,sq,f03,q,eb03,q,d03,q
  1987.  
  1988.  
  1989.         dc.w  new_env
  1990.         dc.l  tom_env_s2
  1991.     dc.w    new_snd
  1992.     dc.l  tom1
  1993.  
  1994.  
  1995.   dc.w c02,sq,c03,sq,f02,sq,g03,sq
  1996.   dc.w c02,sq,c03,sq,f02,sq,g03,sq
  1997.  
  1998.  
  1999.         dc.w  new_env
  2000.         dc.l  slap2d_env
  2001.     dc.w    new_snd
  2002.     dc.l  slap2    
  2003.  
  2004.   dc.w f02,sq,f02,sq,f03,q,eb03,q,d03,sq,c03,sq+cr*2
  2005.   dc.w  end_patt
  2006.  
  2007.  
  2008. p2b3:             
  2009.  
  2010.         dc.w  new_env
  2011.         dc.l  slap2d_env
  2012.     dc.w    new_snd
  2013.     dc.l  slap2    
  2014.   
  2015.  
  2016.  
  2017.   dc.w f02,sq,f02,sq,f03,q,eb03,q,d03,q,c03,q,d03,sq
  2018.   dc.w eb03,q+sq,c03,sq,c03,sq
  2019.   dc.w f02,sq,f02,sq,f03,q,eb03,q,d03,sq,c03,sq+cr*2
  2020.   dc.w end_patt
  2021.  
  2022.  
  2023.  
  2024.  
  2025.  
  2026. p3b3:
  2027.  
  2028.  
  2029.         dc.w  new_env
  2030.         dc.l  slap2d_env
  2031.     dc.w    new_snd
  2032.     dc.l  slap2    
  2033.  
  2034.  
  2035.   dc.w g02,sq,g02,sq,d03,q,g02,q,b02,sq,b02,sq
  2036.   dc.w g02,sq,g02,sq,d03,sq,d03,sq,g02,sq,g02,sq
  2037.   dc.w b02,sq,b02,sq,f02,sq,f02,sq,c03,q,f02,q,a02,sq,a02,sq
  2038.   dc.w f02,sq,f02,sq,c03,sq,c03,sq,f02,sq,f02,sq,a02,sq,a02,sq
  2039.   dc.w end_patt
  2040.  
  2041.  
  2042.  
  2043. pj1:
  2044.  
  2045.  
  2046.         dc.w  new_env
  2047.         dc.l  slap2d_env
  2048.     dc.w    new_snd
  2049.     dc.l  slap2    
  2050.  
  2051.  
  2052.   dc.w a01,sq,bb01,sq,b01,sq,c02,sq,db02,sq
  2053.   dc.w end_patt
  2054.  
  2055. pj2
  2056.         dc.w  new_env
  2057.         dc.l  snare_env
  2058.     dc.w  new_snd
  2059.     dc.l  snare
  2060.     dc.w  r3,cr*4
  2061.   dc.w end_patt
  2062.  
  2063.  
  2064.  
  2065. ;***************************************
  2066.     ;;; WIN JINGLE
  2067.  
  2068. s9:
  2069.     dc.l     pj1,p1,pfill1,pj2,prf
  2070.  
  2071.     dc.l    0,end_song
  2072.  
  2073. ;-----------------------------
  2074.  
  2075. s10:    
  2076.     dc.l     pj1,p10,pj2,prf
  2077.  
  2078.  
  2079.     dc.l    0,end_song
  2080. ;-------------------------------
  2081. s11:    
  2082.  
  2083.     dc.l pj1,p2,pj2,prf
  2084.  
  2085.  
  2086.     dc.l       0,end_song
  2087. ;------------------------------
  2088. s12:
  2089.  
  2090.     dc.l     pj1,p60,pj2,prf
  2091.  
  2092.     dc.l       0,end_song
  2093. ;------------------------------
  2094.  
  2095.  
  2096.  
  2097.  
  2098.  
  2099.     ; sample paDF1eters
  2100.  
  2101.  
  2102. slap2
  2103.         dc.w 1  
  2104.              dc.l slap2d
  2105.              dc.w 6930/2 
  2106.              dc.l restd
  2107.              dc.w 16/2 
  2108.  
  2109.  
  2110. slap3
  2111.         dc.w 1  
  2112.              dc.l slap3d
  2113.              dc.w 3789/2    
  2114.              dc.l restd
  2115.              dc.w 16/2 
  2116.  
  2117.  
  2118. syn1
  2119.         dc.w 1  
  2120.              dc.l syn1d
  2121.              dc.w 10294/2     ;1846/2    ;1911/2 
  2122.              dc.l syn1d
  2123.              dc.w 10294/2     ;1846/2    ;1911/2 
  2124.  
  2125.  
  2126. kick
  2127.         dc.w 1  
  2128.              dc.l kickd
  2129.              dc.w 1916/2 
  2130.              dc.l restd
  2131.              dc.w 16/2 
  2132.  
  2133. snare
  2134.         dc.w 1  
  2135.              dc.l snared
  2136.              dc.w 3577/2 
  2137.              dc.l restd
  2138.              dc.w 16/2 
  2139.  
  2140. hato        dc.w 1  
  2141.              dc.l hatod
  2142.              dc.w 4301/2 
  2143.              dc.l restd
  2144.              dc.w 16/2 
  2145.  
  2146. hatc        dc.w 1  
  2147.              dc.l hatod
  2148.              dc.w 665/2 
  2149.              dc.l restd
  2150.              dc.w 16/2 
  2151.  
  2152.  
  2153. tom1        dc.w 1  
  2154.              dc.l tom1d
  2155.              dc.w 3739/2 
  2156.              dc.l restd
  2157.              dc.w 16/2 
  2158.  
  2159.  
  2160. guit        dc.w 1  
  2161.              dc.l guitd
  2162.              dc.w 6278/2 
  2163.              dc.l restd
  2164.              dc.w 16/2 
  2165.  
  2166.  
  2167. metal        dc.w 1  
  2168.              dc.l metald
  2169.              dc.w 6391/2 
  2170.              dc.l restd
  2171.              dc.w 16/2 
  2172.  
  2173.  
  2174.  
  2175.  
  2176. restd:
  2177. rest_data:
  2178.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2179.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2180.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2181.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2182.  
  2183.  
  2184. perc1_env:        dc.w 0,40,255
  2185. slap2_env:        dc.w 0,64,255
  2186. slap2d_env        dc.w 0,64,64,64,64,64,255
  2187.             dc.w 60,59,50,40,30,30,20,10,0,255
  2188.  
  2189. slap3_env        dc.w 0,30,255
  2190.  
  2191. kick_env        dc.w 0,64,255
  2192. snare_env        dc.w 0,54,255
  2193. hato_env        dc.w 0,50,255
  2194. hatc_env        dc.w 20,20,20,255
  2195. hatcl_env        dc.w 0,30,255
  2196.  
  2197. metal_env        dc.w 0,20,255
  2198.  
  2199. guit_env        dc.w 0,44,255
  2200. syn1_env:        dc.w 0,5,255
  2201. syn18_env:        dc.w 0,55,255
  2202. syn18_env_s2:        dc.w 0,25,255
  2203.  
  2204. syn1loud_env:        dc.w 0,18,255
  2205.  
  2206. syn1d_env:        dc.w 0,35,33,23,23,23,22,20,19,18,17,15,14,13,12,11,10,9,8,8,6,5,4,2
  2207.             dc.w 1,0,255    
  2208. tom1_env        dc.w 0,64,255
  2209. tom_env_s2        dc.w 0,44,255
  2210.  
  2211.  
  2212. brass_env        dc.w 0,50,255
  2213.  
  2214. rest_env:    dc.w     0,0,0,0,0,0,0,0,255
  2215.  
  2216. ;**************************************************
  2217.  
  2218.  
  2219.         ;  SAMPLES MUST BE KEPT IN THIS ORDER
  2220.  
  2221. slap2d                  incbin df1:slap2.sam
  2222. slap3d                  incbin df1:slap3.sam
  2223. syn1d                    incbin df1:syn48.sam
  2224.  
  2225. kickd            incbin df1:kick18.sam
  2226. snared            incbin df1:snare18.sam
  2227. hatod            incbin df1:hato124.sam
  2228. hatcd            incbin df1:hatc124.sam
  2229. tom1d:            incbin    df1:tom18.sam
  2230. guitd            incbin df1:guit18.sam
  2231. metald            incbin df1:metal.sam
  2232.  
  2233. ;*************************************************
  2234.  
  2235.  
  2236.           END
  2237.  
  2238. myfile                     empty rwed Today     08:20:20
  2239. brass.sam                  15779 rwed Today     08:14:16
  2240. metal.sam                   6391 rwed Today     08:14:15
  2241. slap3.sam                   3789 rwed Today     08:14:14
  2242. hato124.sam                 4301 rwed Today     08:13:37
  2243. slap2.sam                   6930 rwed Today     08:13:36
  2244. syn28.sam                   1846 rwed Today     08:13:35
  2245. guit18.sam                  6278 rwed Today     08:13:34
  2246. syn316.sam                 12228 rwed Today     08:13:32
  2247. kick18.sam                  1916 rwed Today     08:13:31
  2248. tom18.sam                   3739 rwed Today     08:13:31
  2249. syn18.sam                   1911 rwed Today     08:13:30
  2250. slap1.sam                   9613 rwed Today     08:13:28
  2251. snare18.sam                 3577 rwed Today     08:13:27
  2252. perc1.sam                  51433 rwed Today     08:13:21
  2253. hatc124.sam                  665 rwed Today     08:13:20
  2254. syn48.sam                  10294 rwed Today     08:13:19
  2255. 17 files - 300 blocks used
  2256.  
  2257.  
  2258.