home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Street Fighter 2 PC Disk 1 / Lowe_StreetFighter2PCDisk1.img / SF2.S < prev    next >
Encoding:
Text File  |  1992-01-01  |  65.3 KB  |  3,861 lines
  1.  
  2.     ;    DRIVER AND MUSIC REMAIN COPYRIGHT D.LOWE 
  3.  
  4.     ;         STREET FIGHTER II SOURCE
  5.  
  6.     ;  GORDON
  7.     ; This driver has the music and fx in it
  8.     ; the music plays at lower volume when the fx
  9.     ; are enabled (fx_disable=0) so the fx can be heard
  10.  
  11.     ; I have added a new tune....pos 6 in the list
  12.     ; changed one of the instrument samples (although I
  13.     ; need more memory to get good ones) and put all
  14.     ; the fx patterns in running at a default speed
  15.     ; of 8k.The fx patterns are all below and it is
  16.     ; simplicity itself to copy and alter them to anything
  17.     ; you want.If you add new ones dont forget to put
  18.     ; whatever you call them into the fx_table (they are
  19.     ; triggered by calling setup_fx (see below) using
  20.     ; the entry number in the table....
  21.  
  22.     ; It must be assembled with SYMBOLS CASE independent.
  23.  
  24.     ; dont hesitate to ring with any problems
  25.  
  26.  
  27.  
  28.     ;        DAVE LOWE.....0723  870648
  29.  
  30.  
  31.  
  32. ;        **************************
  33.  
  34.     section issA,code_c    ;must be in low memory for dma access
  35.                 ;DEVPAC PSEUDO OP ..CAN BE DELETED
  36.  
  37.  
  38. ;*****************************************
  39.  
  40.         ;  ALL EQUs
  41.  
  42. a00  equ  508*2
  43. bb00  equ  480*2
  44. b00  equ  453*2
  45.  
  46. c01  equ  428*2
  47. db01  equ  404*2
  48. d01 equ  381*2
  49. eb01  equ  360*2
  50. e01  equ  339*2
  51. f01  equ  320*2
  52. gb01  equ  302*2
  53. g01  equ  285*2
  54. ab01 equ 269*2
  55. a01  equ  508
  56. bb01  equ  480
  57. b01  equ  453
  58.  
  59. c02  equ  428
  60. db02  equ  404
  61. d02  equ  381
  62. eb02  equ  360
  63. e02  equ  339
  64. f02  equ  320
  65. gb02  equ  302
  66. g02  equ  285
  67. ab02 equ 269
  68. a02  equ  254
  69. bb02  equ  240
  70. b02  equ  226
  71.  
  72. c03  equ  214
  73. db03  equ  202
  74. d03  equ  190
  75. eb03  equ  180
  76. e03  equ  170
  77. f03  equ  160
  78. gb03  equ  151
  79. g03  equ  143
  80. ab03 equ 135
  81. a03  equ  127
  82.  
  83. bb03  equ  480*2
  84. b03  equ  453*2
  85.  
  86. c04  equ  428*2
  87. db04  equ  404*2
  88. d04 equ  381*2
  89. eb04  equ  360*2
  90. e04  equ  339*2
  91. f04  equ  320*2
  92. gb04  equ  302*2
  93. g04  equ  285*2
  94. ab04 equ 269*2
  95. a04  equ  508
  96. bb04  equ  480
  97. b04  equ  453
  98.  
  99. c05  equ  428
  100. db05  equ  404
  101. d05  equ  381
  102. eb05  equ  360
  103. e05  equ  339
  104. f05  equ  320
  105. gb05  equ  302
  106. g05  equ  285
  107. ab05 equ 269
  108. a05  equ  254
  109. bb05  equ  240
  110. b05  equ  226
  111.  
  112. c06  equ  214
  113. db06  equ  202
  114. d06  equ  190
  115. eb06  equ  180
  116. e06  equ  170
  117. f06  equ  160
  118. gb06  equ  151
  119. g06  equ  143
  120. ab06 equ 135
  121. a06  equ  127
  122. bb06  equ  480*2
  123. b06  equ  453*2
  124.  
  125. c07  equ  428*2
  126. db07  equ  404*2
  127. d07 equ  381*2
  128. eb07  equ  360*2
  129. e07  equ  339*2
  130. f07  equ  320*2
  131. gb07  equ  302*2
  132. g07  equ  285*2
  133. ab07 equ 269*2
  134. a07  equ  508
  135. bb07  equ  480
  136. b07  equ  453
  137.  
  138. c08  equ  428
  139. db08  equ  404
  140. d08  equ  381
  141. eb08  equ  360
  142. e08  equ  339
  143. f08  equ  320
  144. gb08  equ  302
  145. g08  equ  285
  146. ab08 equ 269
  147. a08  equ  254
  148. bb08  equ  240
  149. b08  equ  226
  150.  
  151.  
  152. v equ 0
  153.  
  154. no_loop equ 0
  155. loop equ 0
  156. chann1reg   equ $dff0a0    
  157. chann2reg   equ $dff0b0
  158. chann3reg   equ $dff0c0
  159. chann4reg   equ $dff0d0
  160. dmacon     equ $dff096
  161. int_bf_int   equ   $dff01e
  162. int_bf_w    equ   $dff09a
  163. vhposr     equ   $dff006
  164. in_line    equ   0
  165. new_snd    equ   4
  166. end_song     equ   1
  167. end_patt    equ   8
  168. new_env    equ   12
  169. pbend     equ   16
  170.  
  171.  
  172.  
  173. hi: equ 223
  174. lo:  equ 446
  175.  
  176. r22    equ 134
  177. r20    equ 179        ;correctum
  178. r19    equ 150
  179. r18    equ 178
  180. r17    equ 200
  181. r16:    equ 227        ;correctum
  182. r15:    equ 249
  183. r14    equ 280
  184. r13:    equ 305
  185. r12:    equ 333
  186. r11:    equ 361
  187. r10:    equ 389
  188. r9:    equ 419
  189. r8:    equ 446
  190. r7:    equ 446+112
  191. r6:    equ 446+223
  192. r5:    equ 446+223+112
  193. r4:    equ 446*2
  194. r3:    equ 446*3
  195. r2:    equ 446*4
  196. r1:    equ 446*8
  197.  
  198.  
  199. filter: equ $bfe001
  200. filter_on equ 44
  201. filter_off equ 48
  202.  
  203. modon     equ   20
  204. pboff     equ   24
  205. modoff     equ   28
  206. rest     equ 32
  207. end_fxp  equ 36
  208. end_fx3  equ 36
  209. end_fx4  equ 40
  210. acc    equ 52
  211. repeat    equ 56
  212. down      equ   1
  213. up       equ   2
  214.  
  215. ;***************************************************************
  216.  
  217.  
  218.  ;    THIS IS THE CONTROL SECTION FOR TESTING AS A STAND ALONE PRG. 
  219.  
  220.     ;       AND CAN BE DELETED WHEN NOT REQUIRED
  221.  
  222.  
  223.     jsr select_new_song
  224.  
  225. testloop:
  226.     jsr delay    ;wait for scan line  at 50hz on pal
  227.  
  228.     jsr driver
  229.  
  230.         bra testloop
  231.  
  232.  
  233. delay:
  234.     tst.w fxtimer
  235.     bne no_test
  236.     clr.l d0
  237.     move.b $bfe001,d0
  238.     btst #6,d0
  239.     bne no_test1
  240.     move.w #10,fxtimer
  241.     bra testfx4
  242. no_test
  243.     subq #1,fxtimer
  244. no_test1
  245.     clr.l d0
  246.         move.w vhposr,d0
  247.         andi.w #%1111111100000000,d0
  248.         cmpi.w #%1111111100000000,d0
  249.  
  250.     bne no_test1
  251.     rts
  252.  
  253. testfx4:  
  254.  
  255.     ;jsr    kill_chip
  256.     ;move.w #1,int_disable
  257.     clr.l d0
  258.     move.b $bfe001,d0
  259.     btst #6,d0
  260.     beq testfx4
  261.  
  262.     move.l song_buffer,d0
  263.     addq.l #1,d0
  264.     cmp.l    #7,d0
  265.     bne nores
  266.     move.l #1,d0
  267. nores    move.l d0,song_buffer
  268.     jsr    select_new_song
  269.  
  270.  
  271.     ;move.l fx_last,d0
  272.     ;move.l d0,fx_kill
  273.  
  274.     ;jsr kill_loopfx        ;use only one fx at a time
  275.                     ;for testing
  276.  
  277. no_k
  278.         move.l fx_no,fx_number
  279.     move.l fx_no,fx_last
  280.     addq.l #1,fx_no
  281.     move.l    max_fx,d0
  282.         cmp.l fx_no,d0
  283.     bne noreset
  284.     move.l #1,fx_no    
  285. noreset: 
  286.     jsr set_up_fx
  287.     bra no_test    
  288.  
  289. fxtc:          dc.w 10
  290. fx_no:         dc.l  1
  291. fx_last        dc.l  0
  292.  
  293.  
  294. ;        END OF CONTROL (DELETABLE) SECTION
  295.  
  296. ;**********************************************************
  297.  
  298. ; --------------------------------------------------------------
  299.  
  300. ;    MAIN VARIABLES TO BE ACCESSED BY PROGRAMMER DURING RUNTIME
  301.  
  302.  
  303. fx_number:     dc.l 0 ;     number of fx required here...no fx in this one
  304. fx_kill        dc.l 0 ;     number of fx to kill/only needed for looped fx
  305.  
  306. song_buffer     dc.l 1 ;     number of piece of music required here ie.1 to 6
  307.  
  308. music_disable:  dc.w 0 ;     1 = disable music
  309. fx_disable:     dc.w 0 ;     1 = disable fx  (currently disabled)
  310.  
  311. ;    +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  312.  
  313. ;  THESE VARIABLES ARE USED INTERNALLY BY THE DRIVER
  314. fxr1         dc.l 0  
  315. fxr2         dc.l 0  
  316. fxr3         dc.l 0  
  317. fxr4         dc.l 0  
  318. fxc1        dc.l 0
  319. fxc2          dc.l 0
  320. fxc3        dc.l 0
  321. fxc4          dc.l 0
  322. fx1_flag    dc.w 0
  323. fx2_flag    dc.w 0
  324. fx3_flag    dc.w 0
  325. fx4_flag    dc.w 0
  326. fxtimer        dc.w 0
  327. gen        dc.w 0
  328. int_disable    dc.w 0
  329. altpf         dc.w 0
  330. kill_flag    dc.w 0
  331. ;  *******************************************************
  332.  
  333. ;  CALL THIS SUBROUTINE TO SET UP THE REQIURED FX
  334. ;  on entry it requires the fx number to be in "fx_number"(see above)
  335.  
  336.  
  337. set_up_fx
  338.     movem.l d5/a2,-(a7)    ;save used registers
  339.  
  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 use3
  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 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 6) 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 fxc4
  859.     ;beq norm_env
  860.     ;bra low_vol
  861.  
  862. do_env_check:
  863.     move.w fx_disable,d0
  864.     ;or.w fxc4,d0
  865.     cmpi.w  #1,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.     ;sub.w 64(a0),d0    
  893.     move.w d0,8(a2)    
  894.     move.l a1,18(a0)
  895.     rts        
  896.  
  897.  
  898. no_acc:
  899. resu:  
  900. no_off    move.w d0,8(a2)
  901.      move.w (a1)+,8(a2)
  902.    
  903. fint:   move.l a1,18(a0)    
  904.     rts
  905.  
  906. env_finished:
  907.      subq.l #2,a1    
  908.      bra resu
  909.  
  910.  
  911. one_shot_note: move.w #3,4(a0)     
  912.         move.l 38(a0),(a2)
  913.         move.w 42(a0),4(a2)
  914.         move.w d1,dmacon     
  915.         bra send_env
  916.  
  917.  
  918. part2:                         
  919.         move.l 44(a0),(a2)
  920.         move.w 48(a0),4(a2)
  921.         subq.w #1,2(a0)      
  922.         move.w #1,4(a0)
  923.         bra check_effects
  924.  
  925. sect3:
  926.     move.w 0,66(a0)    
  927.  
  928.     move.l 22(a0),a1  
  929. control_ret: move.w (a1)+,d0  
  930.     cmpi.w #100,d0   
  931.     bls sect5   
  932.   
  933. acc_note:
  934.     move.w d0,6(a0)  
  935.     move.w d0,6(a2)  
  936.     move.w (a1)+,2(a0) 
  937.     subq.w #1,2(a0)  
  938.     move.l a1,22(a0)  
  939.     move.l 34(a0),18(a0) 
  940.     move.w 60(a0),58(a0) 
  941.  
  942.  
  943.     tst.w 16(a0)
  944.     beq no_mod_res
  945.     move.w #1,16(a0)
  946. no_mod_res:
  947.     cmpi.w #0,4(a0)
  948.     beq do_loop
  949.     bra one_shot_note    
  950.  
  951.  
  952. do_loop:    move.w d1,dmacon   
  953.         bra send_env
  954.  
  955. do_rest:
  956.     move.w (a1)+,2(a0) 
  957.     subq.w #1,2(a0)  
  958.     move.l a1,22(a0)  
  959.     move.l  #rest_env,18(a0)
  960.  
  961.         move.w #0,8(a2)
  962.         bra send_env
  963.    
  964. sect4:
  965.         cmpi.w #0,4(a0)
  966.         beq noof
  967.         move.w d5,dmacon   
  968. noof:     subq.w #1,2(a0)
  969.         bra check_effects
  970.    
  971. sect5:     move.l #jump_table,a3
  972.         move.l (a3,d0),a4
  973.         jmp (a4)
  974.  
  975. jump_table: 
  976.     dc.l  in_line_data
  977.         dc.l  nsound
  978.         dc.l  patt_end
  979.         dc.l  get_env
  980.         dc.l  check_pbend
  981.         dc.l  do_mod
  982.         dc.l  bend_off
  983.         dc.l  mod_off
  984.         dc.l  do_rest
  985.         dc.l  end_fx
  986.         dc.l  end_fx
  987.     dc.l  s_f_on
  988.     dc.l  s_f_off
  989.     dc.l  set_acc
  990.     dc.l  rept
  991.  
  992. in_line_data:
  993.  
  994.         nop
  995.         rts
  996.  
  997. rept:
  998.     move.l (a1),a1
  999.     bra control_ret
  1000.  
  1001. s_f_on: 
  1002.     bclr #1,filter
  1003.     bra control_ret
  1004. s_f_off:
  1005.     bset #1,filter
  1006.     bra control_ret
  1007.  
  1008. nsound:    move.l (a1)+,a3     
  1009.         cmpi.w #0,(a3)
  1010.         bne one_shot_sound
  1011.         move.w (a3)+,4(a0)    
  1012.         move.l (a3)+,(a2)     
  1013.         move.w (a3),4(a2)    
  1014.         jmp control_ret
  1015.  
  1016. one_shot_sound:
  1017.         move.w (a3)+,4(a0)
  1018.         move.l (a3)+,38(a0)   
  1019.         move.l (a3)+,42(a0)
  1020.         move.l (a3),46(a0)
  1021.         jmp control_ret
  1022.  
  1023. patt_end:
  1024.  
  1025.         move.l 26(a0),a1    
  1026.         cmpi.l #0,(a1)     
  1027.         beq song_control
  1028.         addq.l #4,26(a0)    
  1029.         move.l (a1),a1     
  1030.         jmp control_ret
  1031. get_env: 
  1032.        move.l (a1)+,a4 
  1033.     move.l (a4)+,62(a0)    
  1034.     
  1035.     move.l  a4,34(a0)    
  1036.     
  1037.         bra control_ret
  1038.  
  1039. check_pbend:
  1040.      move.l (a1)+,8(a0)
  1041.         move.l (a1)+,12(a0)
  1042.         bra control_ret
  1043.  
  1044. do_mod:    move.w #1,16(a0)  
  1045.         move.l (a1)+,50(a0)
  1046.         move.l (a1)+,54(a0)
  1047.         move.l (a1)+,58(a0)
  1048.         bra control_ret
  1049.  
  1050. bend_off:   clr.w 8(a0)
  1051.         bra control_ret
  1052.  
  1053. mod_off:    clr.w 16(a0)
  1054.         bra control_ret
  1055.  
  1056.  
  1057. end_fx:    
  1058.     cmpi.w #6,(a0)
  1059.     beq end_fx4p
  1060.     cmpi.w #5,(a0)
  1061.     beq end_fx3p
  1062.     cmpi.w #7,(a0)
  1063.     beq end_fx2p
  1064.  
  1065. end_fx1p:
  1066.         move.w d5,dmacon   
  1067.     move.w  #1,chann1reg+6
  1068.     move.w #0,8(a2)
  1069.     move.l #0,fxc1
  1070.     rts
  1071.  
  1072. end_fx2p:
  1073.     move.w d5,dmacon 
  1074.     move.w  #1,chann2reg+6
  1075.         move.w #0,8(a2) 
  1076.     move.l #0,fxc2
  1077.         rts
  1078.  
  1079.  
  1080. end_fx3p:
  1081.         move.w d5,dmacon   
  1082.     move.w  #1,chann3reg+6
  1083.     move.w #0,8(a2)
  1084.     move.l #0,fxc3
  1085.     rts
  1086.  
  1087. end_fx4p:
  1088.     move.w d5,dmacon 
  1089.     move.w  #1,chann4reg+6
  1090.         move.w #0,8(a2) 
  1091.     move.l #0,fxc4
  1092.         rts
  1093.  
  1094. set_acc: move.w #1,66(a0) 
  1095.     bra control_ret
  1096.  
  1097. song_control:
  1098.         addq.l #4,a1
  1099.         move.l 30(a0),26(a0)
  1100.         move.l 26(a0),a1
  1101.         addq.l #4,26(a0)
  1102.         move.l (a1),a1
  1103.         jmp control_ret
  1104.  
  1105.  
  1106.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  1107.  
  1108.     ;;; DATA
  1109.  
  1110. song_table:
  1111.  
  1112.         dc.l s17,s18,s19,s20
  1113.         dc.l s21,s22,s23,s24
  1114.         dc.l s13,s14,s15,s16
  1115.         dc.l s9,s10,s11,s12
  1116.         dc.l s1,s2,s3,s4
  1117.         dc.l s25,s26,s27,s28        ;new one
  1118.  
  1119.  
  1120.         dc.l s5,s6,s7,s8        ;this tune is silence
  1121.                         ;can be used instead
  1122.                         ;of music disable etc.
  1123.  
  1124.  
  1125. ;************************************************************
  1126. gvars:
  1127. ch1vars     
  1128.     dc.w 0     
  1129.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1130. pattr1: dc.l 0    
  1131. songr1: dc.l 0    
  1132. wsong1: dc.l 0   
  1133.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1134.  
  1135. ch2vars     
  1136.     dc.w 0     
  1137.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1138. pattr2: dc.l 0    
  1139. songr2: dc.l 0    
  1140. wsong2: dc.l 0    
  1141.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1142.  
  1143. ch3vars 
  1144.     dc.w 0     
  1145.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1146. pattr3: dc.l 0    
  1147. songr3: dc.l 0    
  1148. wsong3: dc.l 0    
  1149.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1150.  
  1151. ch4vars 
  1152.     dc.w 0     
  1153.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1154. pattr4: dc.l 0    
  1155. songr4: dc.l 0    
  1156. wsong4: dc.l 0    
  1157.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1158.  
  1159.  
  1160. ch1fxvars 
  1161.     dc.w 0     
  1162. fxintc1:
  1163.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1164. currfx1:
  1165.     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    
  1166.  
  1167. ch2fxvars 
  1168.     dc.w 0     
  1169. fxintc2:
  1170.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1171. currfx2:
  1172.     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    
  1173.  
  1174.  
  1175. ch3fxvars
  1176.     dc.w 0     
  1177. fxintc3:
  1178.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1179. currfx3:
  1180.     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    
  1181.  
  1182. ch4fxvars 
  1183.     dc.w 0     
  1184. fxintc4:
  1185.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1186. currfx4:
  1187.     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    
  1188. ;************************************************************
  1189.  
  1190. dummy_reg dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1191.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1192.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1193.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1194. ;************************************************************
  1195.  
  1196. ;       THESE ARE THE FX PATTERNS................
  1197.  
  1198. ; The interrupt counter in these patterns is dependent on the
  1199. ; playback speed.The figure is calculated as follows
  1200. ; (length/playback speed) *50
  1201. ; the figure then needs rounding up to give a clear finish
  1202. ; if you have the count longer than needed it will cut
  1203. ; out the music on the relevent channel for longer than
  1204. ; neccessary and make it sound jerky
  1205. ; The fx table is below the patterns
  1206.  
  1207.  
  1208. fight:
  1209.       dc.w new_env
  1210.       dc.l fight_env
  1211.       dc.w new_snd
  1212.       dc.l fightp
  1213.     dc.w r8,8        ;r8=8000 playback speed/8=int counter
  1214.       dc.w end_fxp
  1215.  
  1216. fight_env:            dc.w 0,64,64,64,255
  1217.  
  1218. ;*************************
  1219.  
  1220. chuck
  1221.       dc.w new_env
  1222.       dc.l chuck_env
  1223.       dc.w new_snd
  1224.       dc.l chuckp
  1225.     dc.w r8,8
  1226.       dc.w end_fxp
  1227.  
  1228. chuck_env:            dc.w 0,64,64,64,255
  1229.  
  1230. ;*************************
  1231.  
  1232. fire:
  1233.       dc.w new_env
  1234.       dc.l fire_env
  1235.       dc.w new_snd
  1236.       dc.l firep
  1237.     dc.w r8,8
  1238.       dc.w end_fxp
  1239.  
  1240. fire_env:            dc.w 0,64,64,64,255
  1241.  
  1242. ;*************************
  1243.  
  1244. getdat
  1245.       dc.w new_env
  1246.       dc.l getdat_env
  1247.       dc.w new_snd
  1248.       dc.l getdatp
  1249.     dc.w r8,22
  1250.       dc.w end_fxp
  1251.  
  1252. getdat_env:            dc.w 0,64,64,64,255
  1253.  
  1254. ;*************************
  1255.  
  1256. haha:
  1257.       dc.w new_env
  1258.       dc.l haha_env
  1259.       dc.w new_snd
  1260.       dc.l hahap
  1261.     dc.w r8,48
  1262.       dc.w end_fxp
  1263.  
  1264. haha_env:            dc.w 0,64,64,64,255
  1265.  
  1266. ;*************************
  1267.  
  1268. flame:
  1269.       dc.w new_env
  1270.       dc.l flame_env
  1271.       dc.w new_snd
  1272.       dc.l flamep
  1273.     dc.w r8,18
  1274.       dc.w end_fxp
  1275.  
  1276. flame_env:            dc.w 0,64,64,64,255
  1277.  
  1278. ;*************************
  1279.  
  1280. sonic:
  1281.       dc.w new_env
  1282.       dc.l sonic_env
  1283.       dc.w new_snd
  1284.       dc.l sonicp
  1285.     dc.w r8,21
  1286.       dc.w end_fxp
  1287. sonic_env:    dc.w 0,64,64,64,255
  1288.  
  1289. ;*************************
  1290. howl:
  1291.       dc.w new_env
  1292.       dc.l howl_env
  1293.       dc.w new_snd
  1294.       dc.l howlp
  1295.     dc.w r8,32
  1296.       dc.w end_fxp
  1297.  
  1298. howl_env:            dc.w 0,64,64,64,255
  1299.  
  1300. ;************************:
  1301. block:
  1302.       dc.w new_env
  1303.       dc.l block_env
  1304.       dc.w new_snd
  1305.       dc.l blockp
  1306.     dc.w r8,11
  1307.       dc.w end_fxp
  1308.  
  1309. block_env:            dc.w 0,64,64,64,255
  1310.  
  1311. ;*************************
  1312. pause:
  1313.       dc.w new_env
  1314.       dc.l pause_env
  1315.       dc.w new_snd
  1316.       dc.l pausep
  1317.     dc.w r8,52
  1318.       dc.w end_fxp
  1319.  
  1320. pause_env:            dc.w 0,64,64,64,255
  1321.  
  1322. ;************************
  1323. kick:
  1324.       dc.w new_env
  1325.       dc.l kick_env
  1326.       dc.w new_snd
  1327.       dc.l kickp
  1328.     dc.w r8,10
  1329.       dc.w end_fxp
  1330. kick_env:            dc.w 0,64,64,64,255
  1331.  
  1332. ;*************************
  1333. bird:
  1334.       dc.w new_env
  1335.       dc.l bird_env
  1336.       dc.w new_snd
  1337.       dc.l birdp
  1338.     dc.w r8,47
  1339.       dc.w end_fxp
  1340.  
  1341. bird_env:            dc.w 0,64,64,64,255
  1342.  
  1343. ;*************************
  1344. slap:
  1345.       dc.w new_env
  1346.       dc.l slap_env
  1347.       dc.w new_snd
  1348.       dc.l slapp
  1349.     dc.w r8,7
  1350.       dc.w end_fxp
  1351.  
  1352. slap_env:            dc.w 0,64,64,64,255
  1353.  
  1354. ;*************************
  1355. dedm:
  1356.       dc.w new_env
  1357.       dc.l dedm_env
  1358.       dc.w new_snd
  1359.       dc.l dedmp
  1360.     dc.w r8,28
  1361.       dc.w end_fxp
  1362.  
  1363. dedm_env:            dc.w 0,64,64,64,255
  1364.  
  1365. ;*************************
  1366. yap:
  1367.       dc.w new_env
  1368.       dc.l yap_env
  1369.       dc.w new_snd
  1370.       dc.l yapp
  1371.     dc.w r8,9
  1372.       dc.w end_fxp
  1373.  
  1374. yap_env:            dc.w 0,64,64,64,255
  1375.  
  1376. ;*************************
  1377. yoga:
  1378.       dc.w new_env
  1379.       dc.l yoga_env
  1380.       dc.w new_snd
  1381.       dc.l yogap
  1382.     dc.w r8,7
  1383.       dc.w end_fxp
  1384.  
  1385. yoga_env:            dc.w 0,64,64,64,255
  1386.  
  1387. ;*************************
  1388.  
  1389. ball:
  1390.       dc.w new_env
  1391.       dc.l ball_env
  1392.       dc.w new_snd
  1393.       dc.l ballp
  1394.     dc.w r8,17
  1395.       dc.w end_fxp
  1396.  
  1397. ball_env:            dc.w 0,64,64,64,255
  1398.  
  1399. ;*************************
  1400.  
  1401. dedf:
  1402.       dc.w new_env
  1403.       dc.l dedf_env
  1404.       dc.w new_snd
  1405.       dc.l dedfp
  1406.     dc.w r8,34
  1407.       dc.w end_fxp
  1408.  
  1409. dedf_env:            dc.w 0,64,64,64,255
  1410.  
  1411. ;*************************
  1412. punch:
  1413.       dc.w new_env
  1414.       dc.l punch_env
  1415.       dc.w new_snd
  1416.       dc.l punchp
  1417.     dc.w r8,8
  1418.       dc.w end_fxp
  1419.  
  1420. punch_env:            dc.w 0,64,64,64,255
  1421.  
  1422. ;*************************
  1423. tiger:
  1424.       dc.w new_env
  1425.       dc.l tiger_env
  1426.       dc.w new_snd
  1427.       dc.l tigerp
  1428.     dc.w r8,11
  1429.       dc.w end_fxp
  1430.  
  1431. tiger_env:            dc.w 0,64,64,64,255
  1432.  
  1433. ;*************************
  1434. cyclone:
  1435.       dc.w new_env
  1436.       dc.l cyclone_env
  1437.       dc.w new_snd
  1438.       dc.l cyclonep
  1439.     dc.w r8,25
  1440.       dc.w end_fxp
  1441.  
  1442. cyclone_env:            dc.w 0,64,64,64,255
  1443.  
  1444. ;*************************
  1445. blip:
  1446.       dc.w new_env
  1447.       dc.l blipx_env
  1448.       dc.w new_snd
  1449.       dc.l blipp
  1450.     dc.w r8,32
  1451.       dc.w end_fxp
  1452.  
  1453. blipx_env:            dc.w 0,64,64,64,255
  1454.  
  1455. ;*************************
  1456. ucut:
  1457.       dc.w new_env
  1458.       dc.l ucut_env
  1459.       dc.w new_snd
  1460.       dc.l ucutp
  1461.     dc.w r8,14
  1462.       dc.w end_fxp
  1463.  
  1464. ucut_env:            dc.w 0,64,64,64,255
  1465.  
  1466. ;*************************
  1467. dragon:
  1468.       dc.w new_env
  1469.       dc.l dragon_env
  1470.       dc.w new_snd
  1471.       dc.l dragonp
  1472.     dc.w r8,42
  1473.       dc.w end_fxp
  1474.  
  1475. dragon_env:            dc.w 0,64,64,64,255
  1476.  
  1477. ;*************************
  1478. scream:
  1479.       dc.w new_env
  1480.       dc.l scream_env
  1481.       dc.w new_snd
  1482.       dc.l screamp
  1483.     dc.w r8,15
  1484.       dc.w end_fxp
  1485.  
  1486. scream_env:            dc.w 0,64,64,64,255
  1487.  
  1488. ;*************************
  1489. quake:
  1490.       dc.w new_env
  1491.       dc.l quake_env
  1492.       dc.w new_snd
  1493.       dc.l quakep
  1494.     dc.w r8,14
  1495.       dc.w end_fxp
  1496.  
  1497. quake_env:            dc.w 0,64,64,64,255
  1498.  
  1499. ;*************************
  1500. buzz:
  1501.       dc.w new_env
  1502.       dc.l buzz_env
  1503.       dc.w new_snd
  1504.       dc.l buzzp
  1505.     dc.w r8,7
  1506.       dc.w end_fxp
  1507.  
  1508. buzz_env:            dc.w 0,64,64,64,255
  1509.  
  1510. ;*************************
  1511. whoosh:
  1512.       dc.w new_env
  1513.       dc.l whoosh_env
  1514.       dc.w new_snd
  1515.       dc.l whooshp
  1516.     dc.w r8,8
  1517.       dc.w end_fxp
  1518.  
  1519. whoosh_env:            dc.w 0,64,64,64,255
  1520.  
  1521. ;*************************
  1522. bite:
  1523.       dc.w new_env
  1524.       dc.l bite_env
  1525.       dc.w new_snd
  1526.       dc.l bitep
  1527.     dc.w r8,10
  1528.       dc.w end_fxp
  1529.  
  1530. bite_env:            dc.w 0,64,64,64,255
  1531.  
  1532. ;*************************
  1533.  
  1534.  
  1535.  
  1536.  
  1537.  
  1538.  
  1539. ;*************************
  1540.  
  1541. fxjump_table:  
  1542.  
  1543.     dc.l fight            ;fx number 1
  1544.     dc.l chuck            ;fx 2 etc......
  1545.     dc.l fire 
  1546.     dc.l getdat
  1547.     dc.l haha  
  1548.     dc.l flame 
  1549.     dc.l sonic 
  1550.     dc.l howl  
  1551.     dc.l block 
  1552.     dc.l pause 
  1553.     dc.l kick  
  1554.     dc.l bird  
  1555.     dc.l slap  
  1556.     dc.l dedm  
  1557.     dc.l yap   
  1558.     dc.l yoga  
  1559.     dc.l ball  
  1560.     dc.l dedf  
  1561.     dc.l punch 
  1562.     dc.l tiger 
  1563.     dc.l cyclone
  1564.     dc.l blip   
  1565.     dc.l ucut   
  1566.     dc.l dragon 
  1567.     dc.l scream 
  1568.     dc.l quake  
  1569.     dc.l buzz   
  1570.     dc.l whoosh 
  1571.     dc.l bite   
  1572.  
  1573. max_fx    dc.l    30
  1574. ;______________________________________________________________________
  1575.  
  1576.  
  1577. sstart: dc.l 0,end_song
  1578.  
  1579. pstart: dc.w end_patt
  1580.  
  1581.  
  1582. ;----------------------------------
  1583.  
  1584. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1585.  
  1586. cr  set   24
  1587. q set  cr/2
  1588. sq set q/2
  1589.  
  1590. tq1 set      7
  1591. tq2 set   6
  1592. tsq1 set  3
  1593. tsq2 set 4
  1594.  
  1595. ;************************************************
  1596.  
  1597. s1:
  1598.     dc.l    pkickdrums,pkickdrumsf
  1599.     dc.l    p1drums
  1600.     dc.l    p1drums
  1601.     dc.l    p1drums
  1602.     dc.l    p1drums
  1603.  
  1604.     dc.l    p1drums
  1605.     dc.l    p1drums
  1606.     dc.l    p1drums
  1607.     dc.l    p1drums
  1608.  
  1609.     dc.l    p1drums
  1610.     dc.l    p1drums
  1611.     dc.l    p1drums
  1612.     dc.l    p1drums
  1613.  
  1614.     dc.l    p1drums
  1615.     dc.l    p1drums
  1616.     dc.l    p1drums
  1617.     dc.l    p1drums
  1618.       dc.l     0,end_song
  1619. s4:
  1620.  
  1621.     dc.l    p1bass
  1622.         DC.L    0,end_song
  1623. s2:
  1624.     dc.l    pr,pr,p1sax,p2sax,p3sax,p4sax
  1625.     dc.l    p1sax,p2sax,p3sax,p4sax
  1626.  
  1627.  
  1628.     dc.l     0,end_song
  1629. s3:
  1630.     dc.l    pcrash,pr,p1org
  1631.     dc.l    p2org
  1632.  
  1633.     dc.l     0,end_song
  1634.  
  1635. pr:
  1636.     dc.w rest,cr*4
  1637.     dc.w end_patt
  1638. prp:
  1639.     dc.w rest,cr*1000
  1640.     dc.w end_patt
  1641. prza:
  1642.     dc.w rest,q*7
  1643.     dc.w end_patt
  1644.  
  1645.  
  1646. p1sax:
  1647.       dc.w new_env
  1648.       dc.l sax_env
  1649.       dc.w new_snd
  1650.       dc.l sax
  1651.     dc.w rest,sq,bb01,sq,c02,q,bb01,sq,c02,q,c02,q
  1652.     dc.w bb01,sq,c02,sq,d02,sq,eb02,sq,d02,sq,c02,sq,bb01,sq
  1653.     dc.w rest,sq,bb01,sq,c02,q,bb01,sq,c02,q,c02,q
  1654.     dc.w bb01,sq,c02,sq,f02,sq,eb02,cr
  1655.       dc.w end_patt
  1656.  
  1657. p2sax:
  1658.       dc.w new_env
  1659.       dc.l sax_env
  1660.       dc.w new_snd
  1661.       dc.l sax
  1662.     dc.w rest,sq,bb01,sq,c02,q,bb01,sq,c02,q,c02,q
  1663.     dc.w bb01,sq,c02,sq,d02,sq,eb02,sq,d02,sq,c02,sq,bb01,sq
  1664.     dc.w rest,sq,bb01,sq,c02,q,bb01,sq,c02,q,c02,q
  1665.     dc.w bb01,sq,c02,sq,f02,sq,g02,cr
  1666.       dc.w end_patt
  1667.  
  1668. p3sax:
  1669.       dc.w new_env
  1670.       dc.l sax_env
  1671.       dc.w new_snd
  1672.       dc.l sax
  1673.     dc.w rest,sq,d02,sq,eb02,q,d02,sq,eb02,q,eb02,q
  1674.     dc.w d02,sq,eb02,sq,f02,sq,g02,sq,f02,sq,eb02,sq,d02,sq
  1675.     dc.w rest,sq,d02,sq,eb02,q,d02,sq,eb02,q,eb02,q
  1676.     dc.w d02,sq,eb02,sq,f02,sq,eb02,cr
  1677.       dc.w end_patt
  1678.  
  1679. p4sax:
  1680.       dc.w new_env
  1681.       dc.l sax_env
  1682.       dc.w new_snd
  1683.       dc.l sax
  1684.     dc.w rest,sq,d02,sq,eb02,q,d02,sq,eb02,q,eb02,q
  1685.     dc.w d02,sq,eb02,sq,f02,sq,g02,sq,f02,sq,eb02,sq,d02,sq
  1686.     dc.w rest,sq,d02,sq,eb02,q,d02,sq,eb02,q,eb02,q
  1687.     dc.w d02,sq,g02,sq,f02,sq,eb02,cr
  1688.       dc.w end_patt
  1689.  
  1690. p1org:
  1691.       dc.w new_env
  1692.       dc.l org_env
  1693.       dc.w new_snd
  1694.       dc.l org
  1695.     dc.w c01,cr*16
  1696.     dc.w eb01,cr*16
  1697.       dc.w end_patt
  1698.  
  1699. p2org:
  1700.       dc.w new_env
  1701.       dc.l sine_env
  1702.       dc.w new_snd
  1703.       dc.l sine
  1704.     dc.w c01,sq,eb01,sq,g01,sq,bb01,sq,c02,sq,eb02,sq,g02,sq,c03,sq
  1705.     dc.w c01,sq,eb01,sq,g01,sq,bb01,sq,c02,sq,eb02,sq,g02,sq,c03,sq
  1706.       dc.w new_env
  1707.       dc.l org_env
  1708.       dc.w new_snd
  1709.       dc.l org
  1710.     dc.w c01,cr*8
  1711.       dc.w new_env
  1712.       dc.l sine_env
  1713.       dc.w new_snd
  1714.       dc.l sine
  1715.  
  1716.     dc.w c01,sq,eb01,sq,g01,sq,bb01,sq,c02,sq,eb02,sq,g02,sq,c03,sq
  1717.     dc.w c01,sq,eb01,sq,g01,sq,bb01,sq,c02,sq,eb02,sq,g02,sq,c03,sq
  1718.       dc.w new_env
  1719.       dc.l org_env
  1720.       dc.w new_snd
  1721.       dc.l org
  1722.     dc.w eb01,cr*16
  1723.       dc.w end_patt
  1724.  
  1725. pgch:
  1726.     dc.w pbend,down,1,60000,32
  1727.     dc.w D03,q*17
  1728.     dc.w pboff
  1729.       dc.w end_patt
  1730. end:
  1731.       dc.w new_snd
  1732.       dc.l nguit
  1733.     dc.w pbend,down,1,60000,32
  1734.     dc.w D03,cr*8
  1735.     dc.w pboff
  1736.       dc.w end_patt
  1737.       dc.w end_patt
  1738. p1bass:
  1739.       dc.w new_env
  1740.       dc.l bas_env
  1741.       dc.w new_snd
  1742.       dc.l bas
  1743.     dc.w rest,sq,g01,sq,bb01,sq,c02,q,g01,sq,bb01,sq,c02,q
  1744.     dc.w g01,sq,bb01,sq,c02,sq,eb02,sq,c02,sq,bb01,sq,g01,sq
  1745.     dc.w rest,sq,g01,sq,bb01,sq,c02,q,g01,sq,bb01,sq,c02,q
  1746.     dc.w g01,sq,bb01,sq,c02,sq,g01,cr
  1747.       dc.w end_patt
  1748.  
  1749.  
  1750. ;------------
  1751.  
  1752. pkickdrums:
  1753.       dc.w new_env
  1754.       dc.l kik_env
  1755.       dc.w new_snd
  1756.       dc.l kik
  1757.       dc.w r16,cr*2,r16,cr*2
  1758.       dc.w end_patt
  1759.  
  1760. pkickdrumsf:
  1761.       dc.w new_env
  1762.       dc.l kik_env
  1763.       dc.w new_snd
  1764.       dc.l kik
  1765.       dc.w r16,cr*2,r16,cr
  1766.       dc.w new_snd
  1767.       dc.l  toms
  1768.       dc.w new_env
  1769.       dc.l toms_env
  1770.       dc.w r8,q
  1771.       dc.w r7,sq,r4,sq
  1772.  
  1773.       dc.w end_patt
  1774.  
  1775. pcrash:
  1776.       dc.w new_env
  1777.       dc.l crash_env
  1778.       dc.w new_snd
  1779.       dc.l snare
  1780.       dc.w r4,cr*4
  1781.       dc.w end_patt
  1782.  
  1783.  
  1784. p1drums:
  1785.       dc.w new_env
  1786.       dc.l kik_env
  1787.       dc.w new_snd
  1788.       dc.l kik
  1789.       dc.w r16,q
  1790.  
  1791.       dc.w new_env
  1792.       dc.l hat_env
  1793.       dc.w new_snd
  1794.       dc.l hat
  1795.     dc.w r16,sq,r16,sq
  1796.  
  1797.       dc.w new_snd
  1798.       dc.l snr
  1799.       dc.w new_env
  1800.       dc.l snare_env
  1801.       dc.w r15,q+sq
  1802.       dc.w new_snd
  1803.       dc.l snr
  1804.       dc.w new_env
  1805.       dc.l snare_env
  1806.       dc.w r15,sq
  1807.       dc.w new_snd
  1808.       dc.l kik
  1809.       dc.w r16,q,r16,q
  1810.       dc.w new_snd
  1811.       dc.l snr
  1812.       dc.w new_env
  1813.       dc.l snare_env
  1814.       dc.w r16,q
  1815.  
  1816.       dc.w new_env
  1817.       dc.l hat_env
  1818.       dc.w new_snd
  1819.       dc.l hat
  1820.     dc.w r16,sq,r16,sq
  1821.  
  1822.  
  1823.  
  1824.  
  1825.       dc.w end_patt
  1826.  
  1827. **************************************************************
  1828.  
  1829.  
  1830. s5:
  1831.     dc.l    pr
  1832.       dc.l     0,end_song
  1833. s6:
  1834.  
  1835.     dc.l    pr
  1836.         DC.L    0,end_song
  1837. s7:
  1838.     dc.l    pr
  1839.     dc.l     0,end_song
  1840. s8:
  1841.     dc.l    pr,pr,pr,pr,pr,pr,pr,pr
  1842.     dc.l     0,end_song
  1843.  
  1844.  
  1845. **********************
  1846.  
  1847. cr  set   28
  1848. q set  cr/2
  1849. sq set q/2
  1850.  
  1851. s9:
  1852.  
  1853.  
  1854.     dc.l    parpsr,parpsr                ;dc.l    pr9,pr9
  1855.     dc.l    priffg
  1856.     dc.l    priffg
  1857.     dc.l    priffg
  1858.     dc.l    phraseg
  1859.             ;part 2
  1860.     dc.l    priffg
  1861.     dc.l    priffg
  1862.     dc.l    pguitx
  1863.     dc.l    priffg
  1864.     dc.l    pguitx
  1865.     dc.l    priffg
  1866.  
  1867.     dc.l    priffg
  1868.     dc.l    priffg
  1869.     dc.l    pguitx
  1870.     dc.l    priffg
  1871.     dc.l    pguitx
  1872.     dc.l    priffg
  1873.  
  1874.  
  1875.  
  1876.     dc.l    pr9
  1877.  
  1878.       dc.l     0,end_song
  1879. s12:
  1880.  
  1881.     dc.l    parps,parps,parps
  1882.     dc.l    parps,parps,parps,parps,parps,parps
  1883.     dc.l    parps,pr9
  1884.                 ;part 2
  1885.     dc.l    p9sax
  1886.  
  1887.  
  1888.     dc.l    pr9
  1889.  
  1890.         DC.L    0,end_song
  1891. s11:
  1892.     dc.l    pr9,pr9,p9crash
  1893.     dc.l    p9bass,p9bass
  1894.     dc.l    phrasebass
  1895.                 ;part 2
  1896.     dc.l    p9bass,p9bass
  1897.     dc.l    p9bassx
  1898.  
  1899.     dc.l    p9bass,p9bass
  1900.     dc.l    p9bassx
  1901.  
  1902.  
  1903.     dc.l    p9bassend
  1904.  
  1905.     dc.l     0,end_song
  1906. s10:
  1907.     dc.l    pr9,pr9
  1908.     dc.l    pr9,p9snare,p9snare
  1909.     dc.l    pdphrase
  1910.                 ;part 2
  1911.     dc.l    p9drums,p9drums,p9drums,p9drums
  1912.     dc.l    p9drums,p9drums
  1913.     dc.l    p9drums,p9drums,p9drums,p9drums
  1914.     dc.l    p9drums,p9drums
  1915.  
  1916.  
  1917.     dc.l    p9end
  1918.     dc.l     0,end_song
  1919.  
  1920.  
  1921. pr9:
  1922.     dc.w rest,cr*4
  1923.     dc.w end_patt
  1924.  
  1925. pri:
  1926.     dc.w rest,cr*500
  1927.     dc.w end_patt
  1928.  
  1929. ;########
  1930.  
  1931. p9sax:
  1932.       dc.w new_env
  1933.       dc.l sine_env
  1934.       dc.w new_snd
  1935.       dc.l sinel
  1936.  
  1937.     dc.w modon,1,1,8,8,6,6
  1938.  
  1939.     dc.w rest,sq,d01,q,c01,q,d01,q,f01,sq*4
  1940.     dc.w eb01,3,d01,4,c01,sq*4
  1941.     dc.w rest,sq,f01,q,bb01,q,c02,q,eb02,sq*4,d02,3,c02,4,bb01,sq*4-sq
  1942.     dc.w c02,sq,db02,sq*3,c02,3,bb01,4,ab01,sq*4    
  1943.     dc.w eb02,sq*3,d02,3,c02,4,bb01,sq*4    
  1944.     dc.w d02,cr*4-sq
  1945.     dc.w c02,sq,db02,sq*3,c02,3,bb01,4,ab01,sq*4    
  1946.     dc.w eb02,sq*3,d02,3,c02,4,bb01,sq*4    
  1947.     ;dc.w d02,cr*4
  1948.  
  1949.     dc.w bb01,sq,d02,sq,f02,sq
  1950.     dc.w bb01,sq,d02,sq,f02,sq
  1951.     dc.w bb01,sq,f02,sq
  1952.     dc.w bb01,sq,d02,sq,f02,sq
  1953.     dc.w bb01,sq,d02,sq,f02,sq
  1954.     dc.w bb01,sq,f02,sq
  1955.  
  1956.  
  1957.  
  1958.  
  1959.       dc.w new_env
  1960.       dc.l saxl_env
  1961.       dc.w new_snd
  1962.       dc.l sax
  1963.  
  1964.     dc.w modon,1,1,8,8,6,6
  1965.  
  1966.     dc.w rest,sq,d01,q,c01,q,d01,q,f01,sq*4
  1967.     dc.w eb01,3,d01,4,c01,sq*4
  1968.     dc.w rest,sq,f01,q,bb01,q,c02,q,eb02,sq*4,d02,3,c02,4,bb01,sq*4-sq
  1969.     dc.w c02,sq,db02,sq*3,c02,3,bb01,4,ab01,sq*4    
  1970.     dc.w eb02,sq*3,d02,3,c02,4,bb01,sq*4    
  1971.     dc.w d02,cr*4-sq
  1972.     dc.w c02,sq,db02,sq*3,c02,3,bb01,4,ab01,sq*4    
  1973.     dc.w eb02,sq*3,d02,3,c02,4,bb01,sq*4    
  1974.     dc.w d02,cr*4
  1975.  
  1976.     dc.w end_patt
  1977.  
  1978. priffg
  1979.       dc.w new_snd
  1980.       dc.l nguit
  1981.       dc.w new_env
  1982.       dc.l guit_env
  1983.  
  1984.     dc.w bb02,q-2,rest,2,bb02,q+sq-2,rest,2,bb02,sq,bb02,q-2,rest,2,bb02,q-2,rest,2
  1985.     dc.w ab02,sq,ab02,q,bb02,q,a02,sq
  1986.       dc.w end_patt
  1987.  
  1988. pguitx
  1989.       dc.w new_snd
  1990.       dc.l nguit
  1991.       dc.w new_env
  1992.       dc.l guit_env
  1993.     dc.w gb02,cr*2,ab02,cr*2
  1994.       dc.w end_patt
  1995.  
  1996. phraseg
  1997.       dc.w new_snd
  1998.       dc.l nguit
  1999.       dc.w new_env
  2000.       dc.l guit_env
  2001.     dc.w bb02,sq*3,ab02,sq*3,f02,sq*10
  2002.       dc.w end_patt
  2003.  
  2004. p9crash:
  2005.       dc.w new_snd
  2006.       dc.l snr
  2007.       dc.w new_env
  2008.       dc.l snare_env
  2009.       dc.w rest,cr*2,r20,q,r20,q
  2010.       dc.w new_env
  2011.       dc.l crash_env
  2012.       dc.w r4,cr
  2013.       dc.w end_patt
  2014.  
  2015. parps:
  2016.       dc.w new_env
  2017.       dc.l sine_env
  2018.       dc.w new_snd
  2019.       dc.l sine
  2020.     dc.w bb02,sq,d03,sq,f03,sq
  2021.     dc.w bb02,sq,d03,sq,f03,sq
  2022.     dc.w bb02,sq,f03,sq
  2023.       dc.w end_patt
  2024.  
  2025. parpsr:
  2026.       dc.w new_env
  2027.       dc.l sineq_env
  2028.       dc.w new_snd
  2029.       dc.l sine
  2030.     dc.w rest,4,bb02,sq,d03,sq,f03,sq
  2031.     dc.w bb02,sq,d03,sq,f03,sq
  2032.     dc.w bb02,sq,f03,sq
  2033.     dc.w bb02,sq,d03,sq,f03,sq
  2034.     dc.w bb02,sq,d03,sq,f03,sq
  2035.     dc.w bb02,sq,f03,sq-4
  2036.       dc.w end_patt
  2037. p9bass:
  2038.       dc.w new_env
  2039.       dc.l bas_envl
  2040.       dc.w new_snd
  2041.       dc.l bas
  2042.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2043.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2044.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2045.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2046.       dc.w end_patt
  2047.  
  2048. p9bassx:
  2049.       dc.w new_env
  2050.       dc.l bas_env
  2051.       dc.w new_snd
  2052.       dc.l bas
  2053.  
  2054.  
  2055.  
  2056.     dc.w gb01,sq,gb01,sq,gb01,sq,gb01,sq
  2057.     dc.w gb01,sq,gb01,sq,gb01,sq,gb01,sq
  2058.  
  2059.     dc.w ab01,sq,ab01,sq,ab01,sq,ab01,sq
  2060.     dc.w ab01,sq,ab01,sq,ab01,sq,ab01,sq
  2061.  
  2062.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2063.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2064.  
  2065.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2066.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2067.  
  2068.     dc.w gb01,sq,gb01,sq,gb01,sq,gb01,sq
  2069.     dc.w gb01,sq,gb01,sq,gb01,sq,gb01,sq
  2070.  
  2071.     dc.w ab01,sq,ab01,sq,ab01,sq,ab01,sq
  2072.     dc.w ab01,sq,ab01,sq,ab01,sq,ab01,sq
  2073.  
  2074.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2075.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2076.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2077.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2078.  
  2079.       dc.w end_patt
  2080.  
  2081. p9bassend
  2082.     dc.w bb01,sq,d02,sq,f02,sq
  2083.     dc.w bb01,sq,d02,sq,f02,sq
  2084.     dc.w bb01,sq,f02,sq
  2085.     dc.w bb01,sq,d02,sq,f02,sq
  2086.     dc.w bb01,sq,d02,sq,f02,sq
  2087.     dc.w bb01,sq,f02,sq
  2088.  
  2089.       dc.w end_patt
  2090.  
  2091.  
  2092. phrasebass
  2093.     dc.w bb02,sq*3,ab02,sq*3,f02,sq*10
  2094.       dc.w end_patt
  2095.  
  2096.  
  2097.  
  2098. ;;;;;;;;;;;;;;;;;;;;
  2099.  
  2100. p9snare:
  2101.       dc.w new_snd
  2102.       dc.l snr
  2103.       dc.w new_env
  2104.       dc.l snare_env
  2105.       dc.w rest,cr,r16,cr
  2106.       dc.w rest,cr,r16,cr
  2107.       dc.w end_patt
  2108.  
  2109. p9end:
  2110.       dc.w new_snd
  2111.       dc.l snr
  2112.       dc.w new_env
  2113.       dc.l snare_env
  2114.       dc.w r16,sq,r16,sq
  2115.       dc.w r16,sq,r16,sq
  2116.       dc.w r16,sq,r16,sq
  2117.       dc.w r16,sq,r16,sq
  2118.     dc.w r2,cr*2
  2119.  
  2120.       dc.w end_patt
  2121.  
  2122.  
  2123.  
  2124.  
  2125. p9drums:
  2126.       dc.w new_env
  2127.       dc.l kik_env
  2128.       dc.w new_snd
  2129.       dc.l kik
  2130.       dc.w r16,q
  2131.  
  2132.       dc.w new_env
  2133.       dc.l hat_env
  2134.       dc.w new_snd
  2135.       dc.l hat
  2136.     dc.w r16,sq,r16,sq
  2137.  
  2138.       dc.w new_snd
  2139.       dc.l snr
  2140.       dc.w new_env
  2141.       dc.l snare_env
  2142.       dc.w r15,q
  2143.  
  2144.       dc.w new_snd
  2145.       dc.l hat
  2146.     dc.w r16,sq
  2147.  
  2148.  
  2149.  
  2150.       dc.w new_snd
  2151.       dc.l snr
  2152.       dc.w new_env
  2153.       dc.l snare_env
  2154.       dc.w r15,sq
  2155.       dc.w new_snd
  2156.       dc.l kik
  2157.       dc.w r16,q,r16,sq,r12,sq
  2158.       dc.w new_snd
  2159.       dc.l snr
  2160.       dc.w new_env
  2161.       dc.l snare_env
  2162.       dc.w r16,q
  2163.  
  2164.       dc.w new_env
  2165.       dc.l hat_env
  2166.       dc.w new_snd
  2167.       dc.l hat
  2168.     dc.w r16,sq,r16,sq
  2169.       dc.w end_patt
  2170.  
  2171. pdphrase:
  2172.       dc.w new_snd
  2173.       dc.l  toms
  2174.       dc.w new_env
  2175.       dc.l toms_env
  2176.       dc.w r8,sq*3    
  2177.       dc.w r7,sq*3,r4,sq*10
  2178.       dc.w end_patt
  2179.  
  2180. **************************************************************
  2181.  
  2182. cr  set   20
  2183. q set  cr/2
  2184. sq set q/2
  2185.  
  2186.  
  2187. s15:
  2188.     dc.l    s13bass1,s13bass1
  2189.     dc.l    s13bass1
  2190.     dc.l    s13bass2
  2191.     dc.l    s13bass3
  2192.     dc.l    s13bass4
  2193.     dc.l    s13bass5
  2194.     dc.l    s13bass5
  2195.     dc.l    s13bass1
  2196.     dc.l    s13bass2
  2197.     dc.l    s13bass3
  2198.     dc.l    s13bass4
  2199.     dc.l    s13bass5
  2200.     dc.l    s13bass5
  2201.  
  2202.     dc.l    s13bass1,s13bass1,s13bass1,s13bass1
  2203.  
  2204.     dc.l    s13bass1
  2205.     dc.l    s13bass2
  2206.     dc.l    s13bass3
  2207.     dc.l    s13bass4
  2208.     dc.l    s13bass5
  2209.     dc.l    s13bass5
  2210.       dc.l     0,end_song
  2211. s14:
  2212.  
  2213.     dc.l    pr13,pr13,pr13,p13tommy
  2214.     dc.l    p13sax1
  2215.     dc.l    p13sax2
  2216.     dc.l    p13sax2
  2217.     dc.l    p13saxc2,p13saxc1
  2218.     dc.l    p13sax2
  2219.     dc.l    p13sax2
  2220.     dc.l    p13saxsolo
  2221.  
  2222.     dc.l    s13bass1o
  2223.     dc.l    s13bass2o
  2224.     dc.l    s13bass3o
  2225.     dc.l    s13bass4o
  2226.     dc.l    s13bass5o
  2227.     dc.l    s13bass5o
  2228.  
  2229.  
  2230.         DC.L    0,end_song
  2231. s16:
  2232.     dc.l    pr13,pr13,pr13,pr13
  2233.     dc.l    p13harm1
  2234.     dc.l    p13org
  2235.     dc.l    p13org
  2236.     dc.l    p13harm1
  2237.     dc.l    p13org
  2238.     dc.l    p13org
  2239.     dc.l    p13org2
  2240.     dc.l    pr13,pr13,pr13,pr13,pr13,pr13,pr13,pr13
  2241.     dc.l    p13org
  2242.     dc.l    p13org
  2243.     dc.l     0,end_song
  2244. s13:
  2245.     dc.l    p13drums,p13drums,p13drums,p13drums
  2246.     dc.l    p13drums,p13drums,p13drums,p13drums
  2247.     dc.l    p13drums,p13drums,p13drums,p13drums
  2248.  
  2249.     dc.l    p13drumsp
  2250.     dc.l    p13drumsp2
  2251.     dc.l    p13drumsp
  2252.     dc.l    p13kick
  2253.     dc.l    p13drums,p13drums,p13drums,p13drums
  2254.     dc.l    p13drums,p13drums,p13drums,p13drums
  2255.  
  2256.     dc.l    p13drumsp
  2257.     dc.l    p13drumsp
  2258.     dc.l    p13drumsp2
  2259.     dc.l    p13kick
  2260.  
  2261.     dc.l    p13drumsp
  2262.     dc.l    p13drumsp2
  2263.     dc.l    p13drumsp
  2264.     dc.l    p13kick
  2265.  
  2266.     dc.l    p13drumsp
  2267.     dc.l    p13drumsp
  2268.     dc.l    p13drumsp2
  2269.     dc.l    p13kick
  2270.  
  2271.     dc.l    p13hat,p13hat,p13hat,p13hat
  2272.     dc.l    p13hat,p13hat,p13hat,p13hat
  2273.  
  2274.     dc.l    p13hat,p13hat,p13hat,p13hat
  2275.     dc.l    p13hat,p13hat,p13hat,p13hat
  2276.  
  2277.     dc.l    p13hat,p13hat,p13hat,p13hat
  2278.     dc.l    p13hat,p13hat,p13hat,p13hat
  2279.  
  2280.  
  2281.  
  2282.     dc.l     0,end_song
  2283.  
  2284.  
  2285. pr13:
  2286.     dc.w rest,cr*4
  2287.     dc.w end_patt
  2288.  
  2289.  
  2290. s13bass1:
  2291.       dc.w new_env
  2292.       dc.l bas_envq
  2293.       dc.w new_snd
  2294.       dc.l bas
  2295.     dc.w eb02,q,eb02,sq,db02,sq,eb02,q,eb02,sq,db02,sq
  2296.     dc.w eb02,sq,gb02,q,f02,q,db02,sq,bb01,q
  2297.     dc.w eb02,q,eb02,sq,db02,sq,eb02,q,eb02,sq,db02,sq
  2298.     dc.w eb02,sq,gb02,q,ab02,q,bb02,cr-sq
  2299.       dc.w end_patt
  2300.  
  2301. s13bass2:
  2302.     dc.w db02,q,db02,sq,b01,sq,db02,q,db02,sq,b01,sq
  2303.     dc.w db02,sq,e02,q,eb02,q,b01,sq,ab01,q
  2304.     dc.w db02,q,db02,sq,b02,sq,db02,q,db02,sq,b02,sq
  2305.     dc.w db02,sq,e02,q,gb02,q,ab02,cr-sq
  2306.       dc.w end_patt
  2307.  
  2308. s13bass3:
  2309.     dc.w b01,q,b01,sq,a01,sq,b01,q,b01,sq,a01,sq
  2310.     dc.w b01,sq,d02,q,db02,q,a01,sq,gb01,q
  2311.     dc.w b01,q,b01,sq,a01,sq,b01,q,b01,sq,a01,sq
  2312.     dc.w b01,sq,d02,q,e02,q,gb02,cr-sq
  2313.       dc.w end_patt
  2314.  
  2315. s13bass4:
  2316.     dc.w bb01,q,bb01,q,bb02,q,bb02,sq
  2317.     dc.w bb01,sq,bb01,q,bb01,sq,bb02,q,bb02,q+sq
  2318.     dc.w bb01,q,bb01,q,bb02,q,bb02,sq
  2319.     dc.w bb01,sq,bb01,q,bb01,sq,bb02,q,bb02,q+sq
  2320.       dc.w end_patt
  2321.  
  2322. s13bass5:
  2323.     dc.w eb02,q,eb02,sq,db02,sq,eb02,q
  2324.     dc.w eb02,sq,db02,sq,eb02,sq,f02,q,ab02,q
  2325.     dc.w f02,sq,eb02,q    
  2326.  
  2327.     dc.w db02,q,db02,sq,bb02,sq,db02,q
  2328.     dc.w db02,sq,b02,sq,db02,sq,eb02,q,gb02,q
  2329.     dc.w eb02,sq,db02,q    
  2330.  
  2331.     dc.w b01,q,b01,sq,a01,sq,b01,q
  2332.     dc.w b01,sq,a01,sq,b01,sq,db02,q,e02,q
  2333.     dc.w db02,sq,b01,q    
  2334.  
  2335.     dc.w bb02,q,bb02,sq,bb02,sq,bb02,q
  2336.     dc.w bb02,sq,bb02,sq,bb02,sq,bb02,q,bb02,q
  2337.     dc.w bb02,sq,bb02,q    
  2338.       dc.w end_patt
  2339.  
  2340.  
  2341. ;SSSSSSSSSSSSSS
  2342.  
  2343. p13sax1:
  2344.       dc.w new_env
  2345.       dc.l sine_env
  2346.       dc.w new_snd
  2347.       dc.l syn28
  2348.     dc.w modon,1,1,4,4,6,6
  2349.  
  2350. p13saxc1
  2351.       dc.w eb02,cr*3,f02,q,gb02,q,ab02,cr*2-q,gb02,sq,f02,sq
  2352.     dc.w gb02,cr,eb02,cr,f02,cr*3,gb02,q,ab02,q,db02,cr,b02,cr*3-q-q-sq
  2353.     dc.w bb02,sq,ab02,q,gb02,q,eb02,cr*3,f02,q,gb02,q,ab02,cr*2-q
  2354.     dc.w gb02,sq,f02,sq,gb02,cr,eb02,cr,f02,cr*3-q,gb02,q
  2355.     dc.w ab02,q,bb02,q,d03,cr*4
  2356.     dc.w end_patt
  2357. p13saxc2
  2358.       dc.w new_env
  2359.       dc.l sine_env2
  2360.       dc.w new_snd
  2361.       dc.l syn28
  2362.     dc.w modon,1,1,8,8,6,6
  2363.     dc.w end_patt
  2364.  
  2365.  
  2366. p13sax2:
  2367.       dc.w new_env
  2368.       dc.l sax_envl
  2369.       dc.w new_snd
  2370.       dc.l sax
  2371.     dc.w modon,1,1,4,4,6,6
  2372.     dc.w gb02,q,f02,sq,eb02,q,rest,q+sq
  2373.     dc.w f02,sq,rest,sq,gb02,sq,rest,sq,ab02,sq,b02,sq,rest,q
  2374.  
  2375.     dc.w gb02,q,f02,sq,eb02,q,rest,q+sq
  2376.     dc.w f02,sq,rest,sq,gb02,sq,rest,sq,ab02,sq,b02,sq,rest,q
  2377.  
  2378.     dc.w gb02,q,f02,sq,eb02,q,rest,q+sq
  2379.     dc.w f02,sq,rest,sq,gb02,sq,rest,sq,ab02,sq,b02,sq,rest,q
  2380.  
  2381.     dc.w eb02,cr,b02,cr,ab02,cr*2
  2382.  
  2383.     dc.w end_patt
  2384.  
  2385. p13saxsolo:
  2386.       dc.w new_env
  2387.       dc.l sax_env
  2388.       dc.w new_snd
  2389.       dc.l sax
  2390.     dc.w modon,1,1,8,8,6,6
  2391.     dc.w    eb03,cr*3+sq+sq
  2392.  
  2393.     dc.w    db03,sq,c03,sq
  2394.     dc.w    db03,q+sq,c03,q+sq,bb02,sq+sq+cr+q,bb02,sq,g02,sq
  2395.     dc.w    bb02,q+sq,a02,sq+q,g02,sq+sq+q+cr,eb02,sq,c02,sq
  2396.     dc.w    eb02,q+sq,d02,q+sq,bb01,q+cr+q,bb02,sq,g02,sq
  2397.     dc.w    bb02,sq+q,g02,q,rest,sq,g02,q+cr+q,bb02,sq,g02,sq
  2398.     dc.w    bb02,q+sq,eb03,q,rest,sq,d03,q+cr+q,bb02,sq,g02,sq
  2399.  
  2400.     dc.w    bb02,sq,g02,sq,a02,sq,g02,sq,bb02,sq,g02,sq,a02,sq,g02,sq
  2401.     dc.w    bb02,sq,g02,sq,a02,sq,g02,sq,bb02,sq,g02,sq,a02,sq,g02,sq
  2402.  
  2403.     dc.w    bb02,sq,g02,sq,a02,sq,g02,sq,bb02,sq,g02,sq,a02,sq,g02,sq
  2404.     dc.w    bb02,q,eb03,cr+q
  2405.  
  2406.     dc.w end_patt
  2407.  
  2408.  
  2409. p13sax2h:
  2410.     dc.w bb02,q,a02,sq,gb02,q,rest,q+sq
  2411.     dc.w bb02,sq,rest,sq,b02,sq,rest,sq,db02,sq,eb02,sq,rest,q
  2412.  
  2413.     dc.w bb02,q,a02,sq,gb02,q,rest,q+sq
  2414.     dc.w bb02,sq,rest,sq,b02,sq,rest,sq,db02,sq,eb02,sq,rest,q
  2415.  
  2416.     dc.w b02,q,ab02,sq,gb02,q,rest,q+sq
  2417.     dc.w b02,sq,rest,sq,b02,sq,rest,sq,db02,sq,eb02,sq,rest,q
  2418.  
  2419.     dc.w bb02,cr,f02,cr,d02,cr*2
  2420.     dc.w end_patt
  2421.  
  2422.  
  2423. p13harm1:
  2424.       dc.w new_env
  2425.       dc.l sax_env
  2426.       dc.w new_snd
  2427.       dc.l sax
  2428.     dc.w modon,1,1,4,4,6,6
  2429. p13harmc1
  2430.     dc.w bb01,cr*4,eb02,cr*4
  2431.     dc.w db02,cr*4,db02,cr*4
  2432.     dc.w b01,cr*4,b01,cr*4
  2433.     dc.w bb01,cr*8
  2434.     dc.w end_patt
  2435.  
  2436. p13org:
  2437.       dc.w new_env
  2438.       dc.l organloud_env
  2439.       dc.w new_snd
  2440.       dc.l org
  2441.     dc.w eb01,cr*4,db01,cr*4
  2442.     dc.w b01,cr*4,bb01,cr*4
  2443.       dc.w end_patt
  2444.  
  2445. p13org2:
  2446.       dc.w new_env
  2447.       dc.l organloud_env
  2448.       dc.w new_snd
  2449.       dc.l org
  2450.     dc.w eb01,cr*32
  2451.       dc.w end_patt
  2452.  
  2453. s13bass1o:
  2454.       dc.w new_env
  2455.       dc.l sax_env
  2456.       dc.w new_snd
  2457.       dc.l sax
  2458.     dc.w eb02,q,eb02,sq,db02,sq,eb02,q,eb02,sq,db02,sq
  2459.     dc.w eb02,sq,gb02,q,f02,q,db02,sq,bb01,q
  2460.     dc.w eb02,q,eb02,sq,db02,sq,eb02,q,eb02,sq,db02,sq
  2461.     dc.w eb02,sq,gb02,q,ab02,q,bb02,cr-sq
  2462.       dc.w end_patt
  2463.  
  2464. s13bass2o:
  2465.     dc.w db02,q,db02,sq,b01,sq,db02,q,db02,sq,b01,sq
  2466.     dc.w db02,sq,e02,q,eb02,q,b01,sq,ab01,q
  2467.     dc.w db02,q,db02,sq,b02,sq,db02,q,db02,sq,b02,sq
  2468.     dc.w db02,sq,e02,q,gb02,q,ab02,cr-sq
  2469.       dc.w end_patt
  2470.  
  2471. s13bass3o:
  2472.     dc.w b01,q,b01,sq,a01,sq,b01,q,b01,sq,a01,sq
  2473.     dc.w b01,sq,d02,q,db02,q,a01,sq,gb01,q
  2474.     dc.w b01,q,b01,sq,a01,sq,b01,q,b01,sq,a01,sq
  2475.     dc.w b01,sq,d02,q,e02,q,gb02,cr-sq
  2476.       dc.w end_patt
  2477.  
  2478. s13bass4o:
  2479.     dc.w bb01,q,bb01,q,bb02,q,bb02,sq
  2480.     dc.w bb01,sq,bb01,q,bb01,sq,bb02,q,bb02,q+sq
  2481.     dc.w bb01,q,bb01,q,bb02,q,bb02,sq
  2482.     dc.w bb01,sq,bb01,q,bb01,sq,bb02,q,bb02,q+sq
  2483.       dc.w end_patt
  2484.  
  2485. s13bass5o:
  2486.     dc.w eb02,q,eb02,sq,db02,sq,eb02,q
  2487.     dc.w eb02,sq,db02,sq,eb02,sq,f02,q,ab02,q
  2488.     dc.w f02,sq,eb02,q    
  2489.  
  2490.     dc.w db02,q,db02,sq,bb02,sq,db02,q
  2491.     dc.w db02,sq,b01,sq,db02,sq,eb02,q,gb02,q
  2492.     dc.w eb02,sq,db02,q    
  2493.  
  2494.     dc.w b01,q,b01,sq,a01,sq,b01,q
  2495.     dc.w b01,sq,a01,sq,b01,sq,db02,q,e02,q
  2496.     dc.w db02,sq,b01,q    
  2497.  
  2498.     dc.w bb02,q,bb02,sq,bb02,sq,bb02,q
  2499.     dc.w bb02,sq,bb02,sq,bb02,sq,bb02,q,bb02,q
  2500.     dc.w bb02,sq,bb02,q    
  2501.       dc.w end_patt
  2502.  
  2503.  
  2504.  
  2505. ;DDDDDDDDDDDDDDDDDDDDD
  2506.  
  2507. p13drums:
  2508.       dc.w new_env
  2509.       dc.l kik_env
  2510.       dc.w new_snd
  2511.       dc.l kik
  2512.       dc.w r16,q
  2513.  
  2514.       dc.w new_env
  2515.       dc.l hat_env
  2516.       dc.w new_snd
  2517.       dc.l hat
  2518.     dc.w r16,sq,r16,sq
  2519.  
  2520.       dc.w new_snd
  2521.       dc.l snr
  2522.       dc.w new_env
  2523.       dc.l snare_env
  2524.       dc.w r15,q
  2525.  
  2526.       dc.w new_snd
  2527.       dc.l hat
  2528.     dc.w r16,sq
  2529.  
  2530.  
  2531.  
  2532.       dc.w new_snd
  2533.       dc.l snr
  2534.       dc.w new_env
  2535.       dc.l snare_env
  2536.       dc.w r15,sq
  2537.       dc.w new_snd
  2538.       dc.l kik
  2539.       dc.w r16,q,r16,sq,r12,sq
  2540.       dc.w new_snd
  2541.       dc.l snr
  2542.       dc.w new_env
  2543.       dc.l snare_env
  2544.       dc.w r16,q
  2545.  
  2546.       dc.w new_env
  2547.       dc.l hat_env
  2548.       dc.w new_snd
  2549.       dc.l hat
  2550.     dc.w r16,sq,r16,sq
  2551.       dc.w end_patt
  2552.  
  2553. p13drumsp:
  2554.  
  2555.       dc.w new_snd
  2556.       dc.l snr
  2557.       dc.w new_env
  2558.       dc.l snare_env
  2559.       dc.w r16,q,r16,sq,r16,q
  2560.       dc.w new_env
  2561.       dc.l hat_env
  2562.       dc.w new_snd
  2563.       dc.l hat
  2564.     dc.w r16,sq,r16,sq,r16,sq
  2565.       dc.w new_env
  2566.       dc.l kik_env
  2567.       dc.w new_snd
  2568.       dc.l kik
  2569.       dc.w r16,q,r16,q
  2570.       dc.w new_snd
  2571.       dc.l snr
  2572.       dc.w new_env
  2573.       dc.l snare_env
  2574.     dc.w r16,sq,r16,q+sq
  2575.       dc.w end_patt
  2576.  
  2577. p13drumsp2:
  2578.  
  2579.       dc.w new_snd
  2580.       dc.l snr
  2581.       dc.w new_env
  2582.       dc.l crash_env
  2583.       dc.w r4,sq*4+q
  2584.       dc.w new_env
  2585.       dc.l kik_env
  2586.       dc.w new_snd
  2587.       dc.l kik
  2588.       dc.w r16,q,r16,q
  2589.       dc.w new_snd
  2590.       dc.l snr
  2591.       dc.w new_env
  2592.       dc.l snare_env
  2593.     dc.w r16,sq,r16,q+sq+q
  2594.       dc.w end_patt
  2595.  
  2596.  
  2597. p13kick:
  2598.  
  2599.       dc.w new_snd
  2600.       dc.l kik
  2601.       dc.w new_env
  2602.       dc.l kik_env
  2603.       dc.w r16,sq,r16,sq,r16,sq,r16,sq
  2604.       dc.w r16,sq,r16,sq,r16,sq,r16,sq
  2605.       dc.w r16,sq,r16,sq,r16,sq,r16,sq
  2606.       dc.w r16,sq,r16,sq,r16,sq,r16,sq
  2607.       dc.w end_patt
  2608.  
  2609.  
  2610. p13tommy
  2611.       dc.w new_snd
  2612.       dc.l  toms
  2613.       dc.w new_env
  2614.       dc.l toms_env
  2615.       dc.w r8,sq,r8,sq,r8,sq,r8,sq
  2616.       dc.w r8,sq,r8,sq,r8,sq,r8,sq
  2617.       dc.w r8,sq,r8,sq,r8,sq,r8,sq
  2618.     dc.w r16,sq,r10,sq,r7,sq,r4,sq
  2619.  
  2620.  
  2621.       dc.w end_patt
  2622.  
  2623.  
  2624. p13hat
  2625.       dc.w new_env
  2626.       dc.l hat_env
  2627.       dc.w new_snd
  2628.       dc.l hat
  2629.     dc.w r16,sq,r16,sq,r16,sq,r16,sq
  2630.     dc.w r16,sq,r16,sq,r16,sq,r16,sq
  2631.       dc.w new_snd
  2632.       dc.l snr
  2633.       dc.w new_env
  2634.       dc.l snare_env
  2635.     dc.w r16,q,r16,q,r16,q+q
  2636.       dc.w end_patt
  2637.  
  2638. ;*******************************
  2639. cr  set  28
  2640. q set  cr/2
  2641. sq set q/2
  2642.  
  2643.  
  2644. s19:
  2645.     dc.l    s17bass1
  2646.     dc.l    s17bass2
  2647.     dc.l    s17bass2
  2648.     dc.l    s17bassm
  2649.     dc.l    s17bass2
  2650.     dc.l    s17bass2
  2651.     dc.l    s17bassm
  2652.  
  2653.       dc.l     0,end_song
  2654. s18:
  2655.  
  2656.     dc.l    s17guit1
  2657.     dc.l    s17guit2
  2658.     dc.l    s17guit1
  2659.     dc.l    s17sinem
  2660.     dc.l    s17guit2
  2661.     dc.l    s17guit1
  2662.     dc.l    s17sinem
  2663.  
  2664.         DC.L    0,end_song
  2665. s17:
  2666.     dc.l    pr17,pr17,pr17,pr17
  2667.     dc.l    p17t1
  2668.     dc.l    p17t2
  2669.     dc.l    p17tm,p17tm
  2670.  
  2671.     dc.l    p17solo
  2672.     dc.l    p17tm,p17tm
  2673.  
  2674.     dc.l     0,end_song
  2675. s20:
  2676.     dc.l    p17dstart,p17drums,p17drumsfill
  2677.     dc.l    p17drums,p17drums,p17drums,p17drums
  2678.     dc.l    p17drums,p17drums,p17drums,p17drums
  2679.     dc.l    p17drumsm,p17drums
  2680.     dc.l    p17drumsm,p17drums
  2681.  
  2682.     dc.l    p17drums,p17drums,p17drums,p17drums
  2683.     dc.l    p17drums,p17drums,p17drums,p17drums
  2684.     dc.l    p17drumsm,p17drums
  2685.     dc.l    p17drumsm,p17drums
  2686.  
  2687.  
  2688.  
  2689.     dc.l     0,end_song
  2690.  
  2691. ;SSSSSSSSSS
  2692.  
  2693. pr17
  2694.     dc.w rest,cr*4
  2695.     dc.w end_patt
  2696.  
  2697.  
  2698.  
  2699. p17t1:
  2700.       dc.w new_env
  2701.       dc.l sax_env
  2702.       dc.w new_snd
  2703.       dc.l sax
  2704.     dc.w modon,1,1,4,4,6,6
  2705.     dc.w    rest,q,c02,q,f02,q,c03,sq,bb02,q,ab02,sq,f02,q+cr
  2706.     dc.w    rest,q,c02,q,f02,q,c03,sq,bb02,q,ab02,sq,f02,q+cr
  2707.     dc.w    rest,q,c02,q,f02,q,bb02,sq,c03,q,eb03,sq,c03,q,bb02,q,ab02,q
  2708.     dc.w    c03,q+sq,bb02,q,ab02,q,g02,q+sq,f02,q+sq,e02,q+sq
  2709.  
  2710.     dc.w end_patt
  2711.  
  2712. p17t2:
  2713.       dc.w new_env
  2714.       dc.l sine_envl
  2715.       dc.w new_snd
  2716.       dc.l sinel
  2717.     dc.w modon,1,1,8,8,6,6
  2718.     dc.w    rest,q,c02,q,f02,q,c03,sq,bb02,q,ab02,sq,f02,q+cr
  2719.     dc.w    rest,q,c02,q,f02,q,c03,sq,bb02,q,ab02,sq,f02,q+cr
  2720.     dc.w    rest,q,c02,q,f02,q,bb02,sq,c03,q,eb03,sq,c03,q,bb02,q,ab02,q
  2721.     dc.w    c03,q+sq,bb02,q,ab02,q,g02,q+sq,f02,q+sq,e02,q+sq
  2722.  
  2723.     dc.w end_patt
  2724.  
  2725. p17tm
  2726.       dc.w new_env
  2727.       dc.l sax_env
  2728.       dc.w new_snd
  2729.       dc.l sax
  2730.     dc.w modon,1,1,8,8,6,6
  2731.     dc.w f02,cr,g02,q+sq+sq,ab02,q+sq,bb02,q,ab02,sq,g02,sq
  2732.     dc.w f02,sq
  2733.     dc.w db02,q+sq+sq,c03,cr*2+q+sq,bb02,sq,c03,cr*4
  2734.     dc.w end_patt
  2735. p17solo:
  2736.       dc.w new_env
  2737.       dc.l sax_env
  2738.       dc.w new_snd
  2739.       dc.l sax
  2740.     dc.w modon,1,1,4,4,6,6
  2741.     dc.w rest,q,c02,q,f02,q,c03,sq+sq,bb02,q,ab02,sq,f02,sq+sq
  2742.     dc.w ab02,sq,bb02,sq+sq
  2743.     dc.w c03,q,bb02,sq,ab02,sq+sq,f02,sq,ab02,sq,f02,cr+sq+sq
  2744.     dc.w f02,sq,eb02,sq
  2745.     dc.w db02,q+sq,db02,sq+sq,eb02,sq,f02,sq+sq,ab02,q+sq
  2746.     dc.w ab02,sq+sq,f02,sq,ab02,sq,f02,sq
  2747.     dc.w c03,q+sq,bb02,sq+sq,ab02,sq,bb02,sq+sq
  2748.     dc.w f03,cr,rest,q,f02,sq,ab02,sq,bb02,sq+sq
  2749.     dc.w f02,sq,bb02,sq+sq,f02,sq,c03,sq+sq
  2750.     dc.w c03,q,bb02,sq,ab02,sq+sq,bb02,sq,ab02,sq+sq
  2751.     dc.w c03,q+sq,eb03,sq+q,c03,q
  2752.     dc.w eb03,q+sq,db03,sq+q,c03,q,bb02,q+sq,ab02,sq+sq+sq
  2753.     dc.w bb02,q,c03,q+sq,bb02,sq+q,ab02,q,g02,q+sq
  2754.     dc.w f02,sq+q,e02,sq+cr*2+q
  2755.  
  2756.     dc.w end_patt
  2757.  
  2758.  
  2759.  
  2760.  
  2761.  
  2762.  
  2763.  
  2764.  
  2765. ;GGGGGGGGGG
  2766.  
  2767. s17guit1:
  2768.       dc.w new_env
  2769.       dc.l guit_env
  2770.       dc.w new_snd
  2771.       dc.l guit
  2772.     dc.w f03,cr*3+sq,eb03,q+sq
  2773.     dc.w db03,cr*3+sq,c03,q+sq
  2774.     dc.w bb02,cr*3+sq,db03,q+sq
  2775.     dc.w c03,cr*4
  2776.       dc.w end_patt
  2777.  
  2778. s17guit2:
  2779.     dc.w rest,q,f03,sq+q,f03,sq+q,f03,sq+q,f03,q+sq,eb03,q    
  2780.     dc.w rest,q,db03,sq+q,db03,sq+q,db03,sq+q,db03,q+sq,c03,q    
  2781.     dc.w rest,q,bb02,sq+q,bb02,sq+q,bb02,sq+q,bb02,q+sq,db03,q    
  2782.     dc.w rest,q,c03,sq+q,c03,sq+q,c03,sq+q,c03,q+sq,c03,q    
  2783.  
  2784.  
  2785.       dc.w end_patt
  2786.  
  2787. s17sinem:
  2788.       dc.w new_env
  2789.       dc.l sine_env
  2790.       dc.w new_snd
  2791.       dc.l sine
  2792.     dc.w db01,sq,f01,sq,ab01,sq,db02,cr+sq
  2793.     dc.w db01,sq,f01,sq,ab01,sq,db02,cr+sq
  2794.     dc.w bb01,sq,d03,sq,f01,sq,bb01,cr+sq
  2795.     dc.w bb01,sq,d03,sq,f01,sq,bb01,cr+sq
  2796.  
  2797.       dc.w new_env
  2798.       dc.l guit_env
  2799.       dc.w new_snd
  2800.       dc.l guit
  2801.     dc.w f03,cr*4
  2802.  
  2803.       dc.w new_env
  2804.       dc.l sine_env
  2805.       dc.w new_snd
  2806.       dc.l sine
  2807.     dc.w db01,sq,f01,sq,ab01,sq,db02,cr+sq
  2808.     dc.w db01,sq,f01,sq,ab01,sq,db02,cr+sq
  2809.     dc.w bb01,sq,d03,sq,f01,sq,bb01,cr+sq
  2810.     dc.w bb01,sq,d03,sq,f01,sq,bb01,cr+sq
  2811.  
  2812.       dc.w new_env
  2813.       dc.l guit_env
  2814.       dc.w new_snd
  2815.       dc.l guit
  2816.     dc.w c03,cr*4
  2817.  
  2818.       dc.w end_patt
  2819.  
  2820.  
  2821.  
  2822.  
  2823. ;BBBBBBBBBB
  2824.  
  2825. s17bass1:
  2826.       dc.w new_env
  2827.       dc.l bas_envq
  2828.       dc.w new_snd
  2829.       dc.l bas
  2830.     dc.w f02,cr*3+sq,eb02,q+sq
  2831.     dc.w db02,cr*3+sq,c02,q+sq
  2832.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2833.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2834.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2835.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2836.     dc.w c02,sq,c02,sq,c02,sq,c02,sq
  2837.     dc.w c02,sq,c02,sq,c02,sq,c02,sq
  2838.     dc.w c02,sq,c02,sq,c02,sq,c02,sq
  2839.     dc.w c02,sq,c02,sq,c02,sq,c02,sq
  2840.       dc.w end_patt
  2841.  
  2842. s17bass2:
  2843.       dc.w new_env
  2844.       dc.l bas_envq
  2845.       dc.w new_snd
  2846.       dc.l bas
  2847.  
  2848.     dc.w f02,sq,f02,sq,f02,sq,f02,sq
  2849.     dc.w f02,sq,f02,sq,f02,sq,f02,sq
  2850.     dc.w f02,sq,f02,sq,f02,sq,f02,sq
  2851.     dc.w f02,sq,f02,sq,f02,sq,f02,sq
  2852.     dc.w db02,sq,db02,sq,db02,sq,db02,sq
  2853.     dc.w db02,sq,db02,sq,db02,sq,db02,sq
  2854.     dc.w db02,sq,db02,sq,db02,sq,db02,sq
  2855.     dc.w db02,sq,db02,sq,db02,sq,db02,sq
  2856.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2857.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2858.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2859.     dc.w bb01,sq,bb01,sq,bb01,sq,bb01,sq
  2860.     dc.w c02,sq,c02,sq,c02,sq,c02,sq
  2861.     dc.w c02,sq,c02,sq,c02,sq,c02,sq
  2862.     dc.w c02,sq,c02,sq,c02,sq,c02,sq
  2863.     dc.w c02,sq,c02,sq,c02,sq,c02,sq
  2864.       dc.w end_patt
  2865.  
  2866. s17bassm
  2867.     dc.w db02,cr-sq,db02,cr+sq
  2868.     dc.w db02,cr-sq,db02,cr+sq
  2869.     dc.w bb01,cr-sq,db01,cr+sq
  2870.     dc.w bb01,cr-sq,db01,cr+sq
  2871.     dc.w f02,sq,f02,sq,g02,sq,g02,sq,ab02,sq,ab02,sq,g02,sq,g02,sq
  2872.     dc.w f02,sq,f02,sq,g02,sq,g02,sq,ab02,sq,ab02,sq,g02,sq,g02,sq
  2873.  
  2874.     dc.w db02,cr-sq,db02,cr+sq
  2875.     dc.w db02,cr-sq,db02,cr+sq
  2876.     dc.w bb01,cr-sq,db01,cr+sq
  2877.     dc.w bb01,cr-sq,db01,cr+sq
  2878.     dc.w c02,sq,c02,sq,g02,sq,g02,sq,bb02,sq,bb02,sq,e02,sq,g02,sq
  2879.     dc.w c02,sq,c02,sq,c02,sq,c02,sq
  2880.     dc.w c02,sq,c02,sq,c02,sq,c02,sq
  2881.       dc.w end_patt
  2882.  
  2883.  
  2884.  
  2885.  
  2886. ;DDDDDDDDDDDDDD
  2887.  
  2888. p17dstart:
  2889.       dc.w new_env
  2890.       dc.l kik_env
  2891.       dc.w new_snd
  2892.       dc.l kik
  2893.       dc.w r16,cr,r16,cr
  2894.       dc.w r16,cr,r16,cr
  2895.       dc.w r16,cr,r16,cr,r16,sq,r16,sq,r16,sq,r16,sq
  2896.       dc.w new_snd
  2897.       dc.l  toms
  2898.       dc.w new_env
  2899.       dc.l toms_env
  2900.     dc.w r16,sq,r10,sq,r7,sq,r4,sq
  2901.       dc.w end_patt
  2902.  
  2903.  
  2904. p17drumsm:
  2905.       dc.w new_env
  2906.       dc.l kik_env
  2907.       dc.w new_snd
  2908.       dc.l kik
  2909.       dc.w r16,cr-sq,r16,cr+sq
  2910.       dc.w r16,cr-sq,r16,cr+sq
  2911.       dc.w r16,cr-sq,r16,cr+sq
  2912.       dc.w r16,cr-sq,r16,cr-sq
  2913.  
  2914.  
  2915.       dc.w new_snd
  2916.       dc.l snr
  2917.       dc.w new_env
  2918.       dc.l snare_env
  2919.       dc.w r15,sq,r12,sq
  2920.       dc.w end_patt
  2921.  
  2922.  
  2923.  
  2924.  
  2925.  
  2926. p17drums:
  2927.       dc.w new_env
  2928.       dc.l kik_env
  2929.       dc.w new_snd
  2930.       dc.l kik
  2931.       dc.w r16,q,r16,q
  2932.  
  2933.  
  2934.       dc.w new_snd
  2935.       dc.l snr
  2936.       dc.w new_env
  2937.       dc.l snare_env
  2938.       dc.w r15,q
  2939.  
  2940.       dc.w new_snd
  2941.       dc.l hat
  2942.     dc.w r16,sq,r16,sq
  2943.  
  2944.       dc.w new_snd
  2945.       dc.l kik
  2946.       dc.w r16,q,r16,q
  2947.       dc.w new_snd
  2948.       dc.l snr
  2949.       dc.w new_env
  2950.       dc.l snare_env
  2951.       dc.w r16,q
  2952.  
  2953.       dc.w new_env
  2954.       dc.l hat_env
  2955.       dc.w new_snd
  2956.       dc.l hat
  2957.     dc.w r16,sq,r16,sq
  2958.       dc.w end_patt
  2959.  
  2960. p17drumsfill:
  2961.       dc.w new_env
  2962.       dc.l kik_env
  2963.       dc.w new_snd
  2964.       dc.l kik
  2965.       dc.w r16,q,r16,q
  2966.  
  2967.  
  2968.       dc.w new_snd
  2969.       dc.l snr
  2970.       dc.w new_env
  2971.       dc.l snare_env
  2972.       dc.w r15,q
  2973.  
  2974.       dc.w new_snd
  2975.       dc.l hat
  2976.     dc.w r16,sq,r16,sq
  2977.  
  2978.       dc.w new_snd
  2979.       dc.l  toms
  2980.       dc.w new_env
  2981.       dc.l toms_env
  2982.     dc.w r16,sq,r10,sq,r7,sq,r4,sq
  2983.     dc.w r10,sq,r4,q,r8,sq
  2984.  
  2985.       dc.w end_patt
  2986.  
  2987. ;*****************
  2988.  
  2989.  
  2990. cr  set   16
  2991. q set  cr/2
  2992. sq set q/2
  2993.  
  2994.  
  2995. s21:
  2996.     dc.l    s21bass1
  2997.       dc.l     0,end_song
  2998. s22:
  2999.  
  3000.     dc.l    p21drums
  3001.         DC.L    0,end_song
  3002. s23:
  3003.     dc.l    s21te,s21td
  3004.     dc.l    s21t2,s21td
  3005.     dc.l    s21te,s21solo
  3006.     dc.l    s21basse,s21td
  3007.     dc.l    s21t2,s21td
  3008.     dc.l    s21solo
  3009.  
  3010.  
  3011.     dc.l     0,end_song
  3012. s24:
  3013.     dc.l    s21acc2,s21accd
  3014.     dc.l    s21acc1,s21accd
  3015.     dc.l    s21acc4,s21accd
  3016.     dc.l    s21acc3,s21accd
  3017.     dc.l    s21acc1,s21accd
  3018.     dc.l    s21acc3,s21accd
  3019.     dc.l     0,end_song
  3020.  
  3021. s21basse:
  3022.       dc.w new_env
  3023.       dc.l bas_envq
  3024.       dc.w new_snd
  3025.       dc.l bas
  3026.       dc.w end_patt
  3027.  
  3028.  
  3029.  
  3030. ;bbbbbbb
  3031. s21bass1:
  3032.       dc.w new_env
  3033.       dc.l bas_envq
  3034.       dc.w new_snd
  3035.       dc.l bas
  3036.     dc.w c03,cr,g02,cr,c03,cr,g02,cr
  3037.     dc.w c03,cr,g02,cr,g02,cr,d02,cr
  3038.     dc.w g02,cr,d02,cr,g02,cr,d02,cr
  3039.     dc.w g02,cr,d02,cr,c03,cr,g02,cr
  3040.     dc.w c03,cr,g02,cr,c03,cr,g02,cr
  3041.     dc.w f02,cr,c02,cr,f02,cr,c02,cr
  3042.     dc.w g02,cr,d02,cr,g02,cr,d02,cr
  3043.     dc.w c02,cr,g01,cr,c02,cr*2
  3044.       dc.w end_patt
  3045.  
  3046. ;ccccccccccc
  3047.  
  3048. s21te
  3049.       dc.w new_env
  3050.       dc.l sine_env
  3051.       dc.w new_snd
  3052.       dc.l sinel
  3053.     dc.w modon,1,1,8,8,6,6
  3054.       dc.w end_patt
  3055.  
  3056.  
  3057. s21td    dc.w eb02,cr,c02,q,d02,q,eb02,cr,c02,q,d02,q,eb02,cr
  3058.     dc.w f02,q,eb02,q,eb02,q,d02,q,d02,cr
  3059.     dc.w f02,cr,d02,q,eb02,q,f02,cr,d02,q,eb02,q,f02,cr
  3060.     dc.w g02,q,f02,q,f02,q,eb02,q,eb02,cr
  3061.     dc.w g02,cr,g02,q,f02,q,eb02,cr,f02,q,g02,q,ab02,q
  3062.     dc.w bb02,q,c03,q,bb02,q,ab02,cr*2
  3063.     dc.w ab02,q,g02,q,gb02,q,f02,q,e02,q,eb02,q,d02,q
  3064.     dc.w db02,q,c02,cr*4
  3065.  
  3066.       dc.w end_patt
  3067. s21t2
  3068.       dc.w new_env
  3069.       dc.l sax_env
  3070.       dc.w new_snd
  3071.       dc.l sax
  3072.     dc.w modon,1,1,8,8,6,6
  3073.       dc.w end_patt
  3074.     
  3075. s21solo
  3076.     dc.w eb02,q,d02,q,eb02,q,g02,q,f02,q,eb02,q,d02,q,eb02,q
  3077.     dc.w f02,q,g02,q,ab02,q,b02,q,g02,cr,g02,cr
  3078.     dc.w g02,q,a02,q,bb02,q,a02,q,g02,q,a02,q,g02,q,f02,q
  3079.     dc.w g02,q,f02,q,eb02,q,d02,q,c02,cr
  3080.     dc.w c02,cr
  3081.     dc.w rest,q,bb02,q,g02,q,a02,q,bb02,q,c02,q,d02,q,c02,q
  3082.     dc.w bb02,q,a02,q,ab02,q,g02,q,f02,cr,f02,cr
  3083.     dc.w ab02,q,g02,q,ab02,q,ab02,q,bb02,q,b02,q,c03,q,db03,q
  3084.     dc.w c03,cr,c02,cr,c02,cr*2
  3085.       dc.w end_patt
  3086.  
  3087.  
  3088. ;ttttttt
  3089. s21acc1
  3090.       dc.w new_env
  3091.       dc.l sax_envq
  3092.       dc.w new_snd
  3093.       dc.l sax
  3094.       dc.w end_patt
  3095.  
  3096. s21acc2
  3097.       dc.w new_env
  3098.       dc.l sine_env
  3099.       dc.w new_snd
  3100.       dc.l sine
  3101.       dc.w end_patt
  3102.  
  3103. s21acc3
  3104.       dc.w new_env
  3105.       dc.l sine_envq
  3106.       dc.w new_snd
  3107.       dc.l sinel
  3108.       dc.w end_patt
  3109.  
  3110. s21acc4
  3111.       dc.w new_env
  3112.       dc.l hat_env
  3113.       dc.w new_snd
  3114.       dc.l hat
  3115.       dc.w end_patt
  3116.  
  3117.  
  3118.  
  3119. s21accd    dc.w modon,1,1,8,8,6,6
  3120.     dc.w g01,q,c02,q,eb02,q,g01,q
  3121.     dc.w g01,q,c02,q,eb02,q,g01,q
  3122.     dc.w g01,q,b01,q,d02,q,b01,q
  3123.     dc.w g01,q,b01,q,d02,q,b01,q
  3124.     dc.w g01,q,b01,q,d02,q,b01,q
  3125.     dc.w g01,q,b01,q,d02,q,b01,q
  3126.     dc.w g01,q,c02,q,eb02,q,g01,q
  3127.     dc.w g01,q,c02,q,eb02,q,g01,q
  3128.     dc.w g01,q,c02,q,eb02,q,g01,q
  3129.     dc.w g01,q,c02,q,eb02,q,g01,q
  3130.     dc.w f01,q,ab01,q,c02,q,ab01,q
  3131.     dc.w f01,q,ab01,q,c02,q,ab01,q
  3132.     dc.w g01,q,b01,q,d02,q,b01,q
  3133.     dc.w g01,q,b01,q,d02,q,b01,q
  3134.     dc.w g01,q,c02,q,eb02,q,g01,q
  3135.     dc.w g01,q,c02,q,eb02,q,g01,q
  3136.       dc.w end_patt
  3137.  
  3138.  
  3139.  
  3140.  
  3141. ;dddddddd
  3142.  
  3143. p21drums:
  3144.       dc.w new_env
  3145.       dc.l kik_env
  3146.       dc.w new_snd
  3147.       dc.l kik
  3148.       dc.w r16,q
  3149.       dc.w new_snd
  3150.       dc.l snr
  3151.       dc.w new_env
  3152.       dc.l snare_env
  3153.       dc.w r20,q
  3154.  
  3155.       dc.w new_env
  3156.       dc.l kik_env
  3157.       dc.w new_snd
  3158.       dc.l kik
  3159.       dc.w r16,q
  3160.       dc.w new_snd
  3161.       dc.l snr
  3162.       dc.w new_env
  3163.       dc.l snare_env
  3164.       dc.w r20,q
  3165.  
  3166.       dc.w new_env
  3167.       dc.l kik_env
  3168.       dc.w new_snd
  3169.       dc.l kik
  3170.       dc.w r16,q
  3171.       dc.w new_snd
  3172.       dc.l snr
  3173.       dc.w new_env
  3174.       dc.l snare_env
  3175.       dc.w r20,q
  3176.  
  3177.       dc.w new_env
  3178.       dc.l kik_env
  3179.       dc.w new_snd
  3180.       dc.l kik
  3181.       dc.w r16,q
  3182.       dc.w new_snd
  3183.       dc.l snr
  3184.       dc.w new_env
  3185.       dc.l snare_env
  3186.       dc.w r20,q
  3187.       dc.w end_patt
  3188.  
  3189.  
  3190. ****************************************************
  3191. vb
  3192.  
  3193. cr  set   20
  3194. q set  cr/2
  3195. sq set q/2
  3196.  
  3197.  
  3198. s25:
  3199.     dc.l    p25drumss
  3200.     dc.l    p25drums
  3201.     dc.l    p25drums
  3202.     dc.l    p25drums
  3203.     dc.l    p25drums
  3204.     dc.l    p25drums
  3205.     dc.l    p25drums
  3206.     dc.l    p25drums
  3207.     dc.l    p25drums
  3208.     dc.l    p25drums
  3209.     dc.l    p25drums
  3210.     dc.l    p25drums
  3211.     dc.l    p25drums
  3212.     dc.l    p25drums
  3213.     dc.l    p25drums
  3214.     dc.l    p25drums
  3215.     dc.l    p25drums
  3216.     dc.l    p25drums
  3217.     dc.l    p25drums
  3218.     dc.l    p25drums
  3219.     dc.l    p25drums
  3220.     dc.l    p25drumsm
  3221.     dc.l    p25drumsm
  3222.     dc.l    p25drumsm
  3223.     dc.l    p25drumsm
  3224.     dc.l    p25drumsm
  3225.     dc.l    p25drumsm
  3226.     dc.l    p25drumsm
  3227.     dc.l    p25drumsm
  3228.  
  3229.       dc.l     0,end_song
  3230. s27
  3231.  
  3232.     dc.l    pr25
  3233.     dc.l    b1bd,b2cg,b2ca
  3234.     dc.l    b1bd,b2cg,b2ca
  3235.  
  3236.     dc.l    b1bd,b1bd,b1ba,b1ba
  3237.     dc.l    b1bd,b1bd,b1ba,b1ba
  3238.  
  3239.     dc.l    b1bbb,b1ba,b1bf,b1bf
  3240.     dc.l    b1bbb,b1ba,b1ba,b1ba
  3241.  
  3242.     dc.l    b1bd,b1bbb,b1ba,b1ba
  3243.     dc.l    b1bd,b1bbb,b1ba,b1ba
  3244.  
  3245.         DC.L    0,end_song
  3246. s28:
  3247.     dc.l    s25t1,s25a1
  3248.     dc.l     0,end_song
  3249. s26:
  3250.     dc.l    pr25,s25t2,pr25
  3251.     dc.l    s25mt
  3252.  
  3253.  
  3254.     dc.l     0,end_song
  3255.  
  3256.  
  3257. **********************
  3258. pr25
  3259.     dc.w rest,cr*4
  3260.       dc.w end_patt
  3261.  
  3262.  
  3263. ;DDDDDDDDDDDD
  3264.  
  3265. p25drumss:
  3266.       dc.w new_snd
  3267.       dc.l snr
  3268.       dc.w new_env
  3269.       dc.l crash_env
  3270.       dc.w r4,cr*4
  3271.       dc.w end_patt
  3272.  
  3273.  
  3274.  
  3275.  
  3276.  
  3277. p25drums:
  3278.       dc.w new_env
  3279.       dc.l kik_env
  3280.       dc.w new_snd
  3281.       dc.l kik
  3282.       dc.w r16,cr
  3283.       dc.w new_snd
  3284.       dc.l snr
  3285.       dc.w new_env
  3286.       dc.l snare_env
  3287.       dc.w r20,cr
  3288.  
  3289.       dc.w new_env
  3290.       dc.l kik_env
  3291.       dc.w new_snd
  3292.       dc.l kik
  3293.       dc.w r16,q,r16,q
  3294.       dc.w new_snd
  3295.       dc.l snr
  3296.       dc.w new_env
  3297.       dc.l snare_env
  3298.       dc.w r20,cr
  3299.  
  3300.       dc.w end_patt
  3301.  
  3302. p25drumsm:
  3303.       dc.w new_snd
  3304.       dc.l snr
  3305.       dc.w new_env
  3306.       dc.l snare_env
  3307.       dc.w r20,cr
  3308.  
  3309.       dc.w new_env
  3310.       dc.l hat_env
  3311.       dc.w new_snd
  3312.       dc.l hat
  3313.     dc.w r16,sq,r16,sq
  3314.     dc.w r16,sq,r16,sq
  3315.  
  3316.       dc.w new_snd
  3317.       dc.l snr
  3318.       dc.w new_env
  3319.       dc.l snare_env
  3320.       dc.w r20,cr
  3321.  
  3322.       dc.w new_env
  3323.       dc.l hat_env
  3324.       dc.w new_snd
  3325.       dc.l hat
  3326.     dc.w r16,sq,r16,sq
  3327.     dc.w r16,sq,r16,sq
  3328.  
  3329.       dc.w end_patt
  3330.  
  3331.  
  3332. ;bbbbbbbbbbbbb
  3333.  
  3334. b1bd      dc.w new_env
  3335.       dc.l bas_env
  3336.       dc.w new_snd
  3337.       dc.l bas
  3338.     dc.w d02,q,d02,q,d02,q,d02,q
  3339.     dc.w d02,q,d02,q,d02,q,d02,q
  3340.       dc.w end_patt
  3341.  
  3342. b1bg    dc.w g01,q,g01,q,g01,q,g01,q
  3343.     dc.w g01,q,g01,q,g01,q,g01,q
  3344.       dc.w end_patt
  3345.  
  3346. b1ba    dc.w a01,q,a01,q,a01,q,a01,q
  3347.     dc.w a01,q,a01,q,a01,q,a01,q
  3348.       dc.w end_patt
  3349.  
  3350. b2cg    dc.w g01,q,g01,q,g01,q,g01,q
  3351.       dc.w end_patt
  3352.  
  3353. b2ca    dc.w a01,q,a01,q,a01,q,a01,q
  3354.       dc.w end_patt
  3355.  
  3356. b1bbb    dc.w bb01,q,bb01,q,bb01,q,bb01,q
  3357.     dc.w bb01,q,bb01,q,bb01,q,bb01,q
  3358.       dc.w end_patt
  3359.  
  3360. b1bf      dc.w new_env
  3361.       dc.l bas_env
  3362.       dc.w new_snd
  3363.       dc.l bas
  3364.     dc.w f01,q,f01,q,f01,q,f01,q
  3365.     dc.w f01,q,f01,q,f01,q,f01,q
  3366.       dc.w end_patt
  3367.  
  3368. ;TTTTTTTTTTTTTTTTT
  3369.  
  3370. s25a1
  3371.       dc.w new_env
  3372.       dc.l org_envm
  3373.       dc.w new_snd
  3374.       dc.l organ
  3375.     dc.w d02,cr*4,d02,cr*4
  3376.     dc.w a01,cr*4,a01,cr*4
  3377.     dc.w d02,cr*4,d02,cr*4
  3378.     dc.w a01,cr*4,a01,cr*4
  3379.     dc.w bb01,cr*4,a01,cr*4
  3380.     dc.w f01,cr*4,f01,cr*4
  3381.     dc.w bb01,cr*4,a01,cr*12
  3382.     dc.w d02,cr*4,bb01,cr*4,a01,cr*8
  3383.     dc.w d02,cr*4,bb01,cr*4,a01,cr*8
  3384.       dc.w end_patt
  3385.  
  3386.  
  3387. s25t1
  3388.       dc.w new_env
  3389.       dc.l org_envm
  3390.       dc.w new_snd
  3391.       dc.l organ
  3392.  
  3393.     dc.w rest,cr,a01,q,rest,q,c02,q,rest,q,db02,q
  3394.     dc.w d02,q+cr*4,g02,q+q,f02,q+q
  3395.     dc.w e02,q,rest,q
  3396.     dc.w c02,q,d02,q+cr*4
  3397.     dc.w g02,q,rest,q,f02,q,rest,q,e02,q,rest,q
  3398.     dc.w c02,q,d02,q
  3399.       dc.w end_patt
  3400.  
  3401. s25t2
  3402.       dc.w new_env
  3403.       dc.l sax_env
  3404.       dc.w new_snd
  3405.       dc.l sax
  3406.  
  3407.     dc.w rest,sq,a02,sq,g02,sq,f02,sq,g02,sq,a02,sq,rest,sq
  3408.     dc.w a02,sq,rest,sq,a02,sq,g02,sq,f02,sq,g02,sq,a02,sq,rest,q
  3409.     dc.w rest,cr*4
  3410.     dc.w rest,sq,a02,sq,g02,sq,f02,sq,g02,sq,a02,sq,rest,sq
  3411.     dc.w a02,sq,rest,sq,a02,sq,g02,sq,f02,sq,g02,sq,a02,sq,rest,q
  3412.       dc.w end_patt
  3413.  
  3414. s25mt
  3415.  
  3416.       dc.w new_env
  3417.       dc.l sax_envm
  3418.       dc.w new_snd
  3419.       dc.l sax
  3420.     dc.w d02,sq,e02,sq,f02,sq,a02,q
  3421.     dc.w a02,sq,g02,sq,f02,sq,a02,q+sq
  3422.     dc.w g02,sq+q,f02,q
  3423.  
  3424.     dc.w g02,q+sq,f02,q+sq,e02,q,f02,q+sq,d02,q+sq
  3425.     dc.w c02,q+q+q,e02,q+q
  3426.     dc.w g02,q+q,c03,q+q
  3427.     dc.w bb02,q,a02,q,g02,q,a02,q+cr+q+sq+sq
  3428.  
  3429.     dc.w d02,sq,e02,sq,f02,sq,a02,q,a02,sq,g02,sq
  3430.     dc.w f02,sq,a02,q+sq,g02,q+sq,f02,q,g02,q+sq,f02,q+sq
  3431.     dc.w e02,q,f02,q+sq,d02,q+sq,c02,q+cr
  3432.     dc.w c03,cr,bb02,cr,a02,q+sq+sq
  3433.     dc.w bb02,sq+sq,a02,sq+sq,g02,sq+sq
  3434.     dc.w a02,q+cr+q+sq+sq,f02,cr
  3435.     dc.w e02,q+sq+sq,f02,q+sq,g02,sq+q
  3436.     dc.w g02,q,f02,cr,e02,q+sq+sq,d02,q+sq,e02,sq+q
  3437.     dc.w a01,q+cr+q+sq+sq+cr+q
  3438.  
  3439.     dc.w c03,q,bb02,q,a02,q,g02,q,a02,q+cr+q+q
  3440.     dc.w f02,cr,e02,cr,f02,q+sq,g02,q+sq
  3441.     dc.w g02,q,f02,cr,e02,cr,d02,q+sq,e02,sq+q
  3442.     dc.w c02,q+cr*2+q,a01,q,b01,q,db02,q+cr*4
  3443.     dc.w a02,q,g02,q,f02,q,d02,q,f02,q+sq,g02,sq+cr
  3444.     dc.w a02,q,g02,q,f02,q,d02,q,f02,q+sq,g02,q+sq
  3445.     dc.w e02,q+cr*2+q
  3446.  
  3447.     dc.w a01,q,b01,q,db02,q+q,db02,cr,e02,q+q
  3448.     dc.w g02,q+sq+q+sq
  3449.     dc.w a02,q,g02,q,f02,q,d02,q,f02,q+sq
  3450.     dc.w g02,sq,rest,cr,a02,q,g02,q,f02,q,d02,q
  3451.     dc.w f02,q+sq,g02,q+sq,e02,q+cr*2+q
  3452.     dc.w d02,q,e02,q,db02,q+cr*4
  3453.  
  3454.      dc.w end_patt
  3455.  
  3456. ****************************************************
  3457.  
  3458.  
  3459.     ; sample parameters
  3460. bas
  3461.         dc.w 1  
  3462.              dc.l bas4d
  3463.              dc.w 1801/2 
  3464.              dc.l restd
  3465.              dc.w 16/2
  3466. kik
  3467.         dc.w 1  
  3468.              dc.l kik1d
  3469.              dc.w 3801/2 
  3470.              dc.l restd
  3471.              dc.w 16/2
  3472. snare
  3473. snr
  3474.         dc.w 1  
  3475.              dc.l snr1d
  3476.              dc.w 6325/2 
  3477.              dc.l restd
  3478.              dc.w 16/2
  3479. toms
  3480.         dc.w 1  
  3481.              dc.l tom1d
  3482.              dc.w 2630/2 
  3483.              dc.l restd
  3484.              dc.w 16/2
  3485. org
  3486. organ:        dc.w 1  
  3487.              dc.l orglp2d
  3488.              dc.w 5408/2 
  3489.         dc.l orglp2d
  3490.              dc.w 5408/2 
  3491.  
  3492.  
  3493.  
  3494. sax    
  3495.         dc.w 1  
  3496.              dc.l sax2d
  3497.              dc.w 6073/2 
  3498.         dc.l sax2d
  3499.              dc.w 6073/2 
  3500.  
  3501.  
  3502. hat    
  3503.         dc.w 1  
  3504.              dc.l hatd
  3505.              dc.w 665/2 
  3506.         dc.l restd
  3507.              dc.w 16/2 
  3508.  
  3509. sinel
  3510. syn28    
  3511.         dc.w 1  
  3512.              dc.l syn28d
  3513.              dc.w 1846/2 
  3514.         dc.l syn28d
  3515.              dc.w 1846/2 
  3516.  
  3517.  
  3518. guit
  3519. nguit
  3520.         dc.w 1  
  3521.              dc.l nguitd
  3522.              dc.w 27144/2  
  3523.              dc.l restd
  3524.              dc.w 16/2
  3525.  
  3526.  
  3527. sine
  3528.         dc.w 1  
  3529.              dc.l sined
  3530.              dc.w 16/2  
  3531.              dc.l restd
  3532.              dc.w 16/2
  3533.  
  3534.  
  3535. ;sinel
  3536.         dc.w 1  
  3537.              dc.l sined
  3538.              dc.w 16/2  
  3539.              dc.l sined
  3540.              dc.w 16/2
  3541.  
  3542. ;****************************
  3543.  
  3544. fightp
  3545.         dc.w 1  
  3546.              dc.l fightd
  3547.              dc.w 1148/2  
  3548.              dc.l restd
  3549.              dc.w 16/2
  3550.  
  3551.  
  3552. chuckp
  3553.         dc.w 1  
  3554.              dc.l chuckd
  3555.              dc.w 1254/2  
  3556.              dc.l restd
  3557.              dc.w 16/2
  3558.  
  3559.  
  3560. firep
  3561.         dc.w 1  
  3562.              dc.l fired
  3563.              dc.w 1258/2  
  3564.              dc.l restd
  3565.              dc.w 16/2
  3566.  
  3567.  
  3568. getdatp
  3569.         dc.w 1  
  3570.              dc.l getdatd
  3571.              dc.w 3416/2  
  3572.              dc.l restd
  3573.              dc.w 16/2
  3574.  
  3575. hahap
  3576.         dc.w 1  
  3577.              dc.l hahad
  3578.              dc.w 7670/2  
  3579.              dc.l restd
  3580.              dc.w 16/2
  3581.  
  3582. flamep
  3583.         dc.w 1  
  3584.              dc.l flamed
  3585.              dc.w 2872/2  
  3586.              dc.l restd
  3587.              dc.w 16/2
  3588.  
  3589.  
  3590. sonicp
  3591.         dc.w 1  
  3592.              dc.l sonicd
  3593.              dc.w 3202/2  
  3594.              dc.l restd
  3595.              dc.w 16/2
  3596.  
  3597. howlp
  3598.         dc.w 1  
  3599.              dc.l howld
  3600.              dc.w 5094/2  
  3601.              dc.l restd
  3602.              dc.w 16/2
  3603.  
  3604.  
  3605. blockp
  3606.         dc.w 1  
  3607.              dc.l blockd
  3608.              dc.w 1604/2  
  3609.              dc.l restd
  3610.              dc.w 16/2
  3611.  
  3612. pausep
  3613.         dc.w 1  
  3614.              dc.l paused
  3615.              dc.w 8266/2  
  3616.              dc.l restd
  3617.              dc.w 16/2
  3618.  
  3619.  
  3620. kickp
  3621.         dc.w 1  
  3622.              dc.l kickd
  3623.              dc.w 1534/2  
  3624.              dc.l restd
  3625.              dc.w 16/2
  3626.  
  3627. birdp
  3628.         dc.w 1  
  3629.              dc.l birdd
  3630.              dc.w 7414/2  
  3631.              dc.l restd
  3632.              dc.w 16/2
  3633.  
  3634. slapp
  3635.         dc.w 1  
  3636.              dc.l slapd
  3637.              dc.w 1092/2  
  3638.              dc.l restd
  3639.              dc.w 16/2
  3640.  
  3641. dedmp
  3642.         dc.w 1  
  3643.              dc.l dedmd
  3644.              dc.w 4386/2  
  3645.              dc.l restd
  3646.              dc.w 16/2
  3647.  
  3648.  
  3649. yapp
  3650.         dc.w 1  
  3651.              dc.l yapd
  3652.              dc.w 1404/2  
  3653.              dc.l restd
  3654.              dc.w 16/2
  3655.  
  3656. yogap
  3657.         dc.w 1  
  3658.              dc.l yogad
  3659.              dc.w 1060/2  
  3660.              dc.l restd
  3661.              dc.w 16/2
  3662.  
  3663. ballp
  3664.         dc.w 1  
  3665.              dc.l balld
  3666.              dc.w 2570/2  
  3667.              dc.l restd
  3668.              dc.w 16/2
  3669.  
  3670. dedfp
  3671.         dc.w 1  
  3672.              dc.l dedfd
  3673.              dc.w 5430/2  
  3674.              dc.l restd
  3675.              dc.w 16/2
  3676.  
  3677. punchp
  3678.         dc.w 1  
  3679.              dc.l punchd
  3680.              dc.w 1222/2  
  3681.              dc.l restd
  3682.              dc.w 16/2
  3683.  
  3684. tigerp
  3685.         dc.w 1  
  3686.              dc.l tigerd
  3687.              dc.w 1730/2  
  3688.              dc.l restd
  3689.              dc.w 16/2
  3690.  
  3691.  
  3692. cyclonep
  3693.         dc.w 1  
  3694.              dc.l cycloned
  3695.              dc.w 3868/2  
  3696.              dc.l restd
  3697.              dc.w 16/2
  3698. blipp
  3699.         dc.w 1  
  3700.              dc.l blipd
  3701.              dc.w 5074/2  
  3702.              dc.l restd
  3703.              dc.w 16/2
  3704.  
  3705. ucutp
  3706.         dc.w 1  
  3707.              dc.l ucutd
  3708.              dc.w 2132/2  
  3709.              dc.l restd
  3710.              dc.w 16/2
  3711.  
  3712. dragonp
  3713.         dc.w 1  
  3714.              dc.l dragond
  3715.              dc.w 6570/2  
  3716.              dc.l restd
  3717.              dc.w 16/2
  3718.  
  3719. screamp
  3720.         dc.w 1  
  3721.              dc.l screamd
  3722.              dc.w 2378/2  
  3723.              dc.l restd
  3724.              dc.w 16/2
  3725.  
  3726. quakep
  3727.         dc.w 1  
  3728.              dc.l quaked
  3729.              dc.w 2202/2  
  3730.              dc.l restd
  3731.              dc.w 16/2
  3732.  
  3733. buzzp
  3734.         dc.w 1  
  3735.              dc.l buzzd
  3736.              dc.w 962/2  
  3737.              dc.l restd
  3738.              dc.w 16/2
  3739.  
  3740.  
  3741. whooshp
  3742.         dc.w 1  
  3743.              dc.l whooshd
  3744.              dc.w 1148/2  
  3745.              dc.l restd
  3746.              dc.w 16/2
  3747.  
  3748. bitep
  3749.         dc.w 1  
  3750.              dc.l bited
  3751.              dc.w 1478/2  
  3752.              dc.l restd
  3753.              dc.w 16/2
  3754.  
  3755.  
  3756.  
  3757. ;**************************************************
  3758. hatd            incbin df1:hatc124.sam
  3759. orglp2d            incbin df1:orglp2.sam
  3760. kik1d            incbin df1:kik1.sam
  3761. snr1d            incbin df1:snr1.sam
  3762. tom1d:            incbin df1:tom1.sam
  3763. syn28d            incbin ram:syn28.sam
  3764. bas4d            incbin df1:bas4.sam
  3765. sax2d            incbin df1:sax2.sam                    
  3766. nguitd            incbin df1:nguit.sam 
  3767.  
  3768.  
  3769. ;********************************************
  3770.  
  3771. ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere
  3772. ;; in lower memory,and in any order
  3773.  
  3774. fightd        incbin     ram:fight                       
  3775. chuckd        incbin     ram:chuck                       
  3776. fired        incbin     ram:fire                        
  3777. getdatd        incbin     ram:getdat                      
  3778. hahad        incbin     ram:haha                        
  3779. flamed        incbin     ram:flame                       
  3780. sonicd        incbin     ram:sonic                       
  3781. howld        incbin     ram:howl                        
  3782. blockd        incbin     ram:block                       
  3783. paused        incbin     ram:pause                       
  3784. kickd        incbin     ram:kick                        
  3785. birdd        incbin     ram:bird                        
  3786. slapd        incbin     ram:slap                        
  3787. dedmd        incbin     ram:dedm                        
  3788. yapd         incbin     ram:yap                         
  3789. yogad        incbin     ram:yoga                        
  3790. balld        incbin     ram:ball                        
  3791. dedfd        incbin     ram:dedf                        
  3792. punchd        incbin     ram:punch                       
  3793. tigerd        incbin     ram:tiger                       
  3794. cycloned    incbin     ram:cyclone                     
  3795. blipd        incbin     ram:blip                        
  3796. ucutd        incbin  ram:ucut                        
  3797. dragond        incbin     ram:dragon                      
  3798. screamd        incbin     ram:scream                      
  3799. quaked        incbin     ram:quake                       
  3800. buzzd        incbin     ram:buzz                        
  3801. whooshd        incbin     ram:whoosh                      
  3802. bited        incbin     ram:bite                        
  3803.     
  3804.  
  3805.  
  3806. ;***********************
  3807. ev    equ 0            
  3808. hat_env:            dc.w 15,34-ev,255
  3809. blip_env:            dc.w 25,54-ev,54-ev,0,54-ev,255
  3810. crash_env:            dc.w 20,44-ev,255
  3811. guit_env:            dc.w 10,20-ev,255
  3812. organloud_env:            dc.w 22,44-ev,255
  3813. org_env:            dc.w 5,10,255
  3814. org_envm:            dc.w 16,28,255
  3815. q_env:                dc.w 5,10,255
  3816. kik_env:             dc.w 27,54-ev,255
  3817. snare_env:
  3818. snr_env:            dc.w 19,38-ev,255
  3819. toms_env:            dc.w 17,35-ev,255
  3820. tymp_env:            dc.w 25,54-ev,255
  3821. cow_env:            dc.w 25,50-ev,255
  3822. sax_env:            dc.w 10,20-ev,255
  3823. sax_envm:            dc.w 10,19-ev,255
  3824. sax_envq:            dc.w 6,12,255
  3825. saxl_env:            dc.w 12,25-ev,255
  3826. sax_envl:            dc.w 15,32-ev,255
  3827. bas_env:            dc.w 24,54-ev,255
  3828. bas_envl:            dc.w 24,54-ev,255
  3829. bas_envq:            dc.w 22,44-ev,255
  3830. bra_env:            dc.w 12,54-ev,255
  3831. sine_env:            dc.w 15,34-ev,255
  3832. sine_envq:            dc.w 10,20-ev,255
  3833. sine_envl:            dc.w 16,36-ev,255
  3834. sinel9_env:            dc.w 13,25-ev,255
  3835. sineq_env:            dc.w 8,14-ev,255
  3836. rest_env:            dc.w 0,0,0,0,0,0,0,0,0,255
  3837. sine_env2:            dc.w 20,34-ev,33-ev,32-ev,5
  3838.             dc.w 39-ev,38-ev,37-ev,36-ev,35-ev,34-ev,33-ev,32-ev,4
  3839.             dc.w 19-ev,28-ev,37-ev,16-ev,25-ev,24-ev,27-ev,39-ev,28-ev
  3840.             dc.w 255
  3841.  
  3842. restd:
  3843. rest_data:
  3844.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  3845.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  3846.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  3847.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  3848. sined:
  3849. sine_datad:
  3850.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  3851.              dc.w -127,-100,-50,-35,0,35,50,80,127
  3852.  
  3853.  
  3854. ;*************************************************
  3855.  
  3856.     end
  3857.  
  3858.  
  3859.  
  3860.  
  3861.