home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Pinball Dream…Backup ST 3 And 4 Drivers / Lowe_PinballDreamsPCBackup_ST3And4Drivers.adf / eliteIItn.bak < prev    next >
Encoding:
Text File  |  1978-03-05  |  153.2 KB  |  9,379 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.     ;         ELITEII/FRONTIERS TEST SOURCE
  7.  
  8.  
  9.     ; DAVID
  10.     ;The place to insert your call for a new song
  11.     ; is called song_select
  12.     ; all the tunes branch there on ending except
  13.     ; The title tune now has a section tagged on the front
  14.     ; that runs straight into the main piece....song 10
  15.     ; it fades itself in
  16.     ; and plays for app. 23 seconds......
  17.  
  18.     ; you can still run tune 2 on its own if you wish
  19.     ; using song 2
  20.     ; An fx that is retriggered before it ends a previous
  21.     ; call is now only turned off in the interrupt section
  22.     ; so it should cure the click problem on the lazers etc.
  23.  
  24.     ;the wind fx requires you to kill it using kill_fx
  25.     ;and the duplicate one will now be out of sync.
  26.  
  27.  
  28.  
  29.     ;there is now a fade_up routine and a fade_out routine
  30.     ;they require the fade  rate (1 to 50)to be held in
  31.     ;d0 when calling..(this is the number of frames before
  32.     ;increasing or decreasing the value in FADE by #1)
  33.  
  34.  
  35.     ; I am not sure if you want a small gap on the end of the
  36.     ;tunes or to go straight into whatever is selected
  37.     ;at present I have implemented it both ways on different
  38.     ;tunes so you can try it and see.(its very easy to set
  39.     ;up either way....(give me a call)
  40.  
  41.  
  42.     ; the fxjump table now contains more fx and is fully
  43.     ;labelled
  44.  
  45.  
  46.     ; It must be assembled with SYMBOLS CASE independent.
  47.  
  48.     ; dont hesitate to ring with any problems
  49.  
  50.     ;        DAVE LOWE.....0723  870648
  51.  
  52. ;        **************************
  53.  
  54.     section issA,code_c    ;must be in low memory for dma access
  55.                 ;DEVPAC PSEUDO OP ..CAN BE DELETED
  56.  
  57.  
  58. ;*****************************************
  59.  
  60.         ;  ALL EQUs
  61.  
  62. a00  equ  508*2
  63. bb00  equ  480*2
  64. b00  equ  453*2
  65. c01  equ  428*2
  66. db01  equ  404*2
  67. d01 equ  381*2
  68. eb01  equ  360*2
  69. e01  equ  339*2
  70. f01  equ  320*2
  71. gb01  equ  302*2
  72. g01  equ  285*2
  73. ab01 equ 269*2
  74. a01  equ  508
  75. bb01  equ  480
  76. b01  equ  453
  77.  
  78. c02  equ  428
  79. db02  equ  404
  80. d02  equ  381
  81. eb02  equ  360
  82. e02  equ  339
  83. f02  equ  320
  84. gb02  equ  302
  85. g02  equ  285
  86. ab02 equ 269
  87. a02  equ  254
  88. bb02  equ  240
  89. b02  equ  226
  90.  
  91. c03  equ  214
  92. db03  equ  202
  93. d03  equ  190
  94. eb03  equ  180
  95. e03  equ  170
  96. f03  equ  160
  97. gb03  equ  151
  98. g03  equ  143
  99. ab03 equ 135
  100. a03  equ  127
  101.  
  102. bb03  equ  480*2
  103. b03  equ  453*2
  104.  
  105. c04  equ  428*2
  106. db04  equ  404*2
  107. d04 equ  381*2
  108. eb04  equ  360*2
  109. e04  equ  339*2
  110. f04  equ  320*2
  111. gb04  equ  302*2
  112. g04  equ  285*2
  113. ab04 equ 269*2
  114. a04  equ  508
  115. bb04  equ  480
  116. b04  equ  453
  117.  
  118. c05  equ  428
  119. db05  equ  404
  120. d05  equ  381
  121. eb05  equ  360
  122. e05  equ  339
  123. f05  equ  320
  124. gb05  equ  302
  125. g05  equ  285
  126. ab05 equ 269
  127. a05  equ  254
  128. bb05  equ  240
  129. b05  equ  226
  130.  
  131. c06  equ  214
  132. db06  equ  202
  133. d06  equ  190
  134. eb06  equ  180
  135. e06  equ  170
  136. f06  equ  160
  137. gb06  equ  151
  138. g06  equ  143
  139. ab06 equ 135
  140. a06  equ  127
  141. bb06  equ  480*2
  142. b06  equ  453*2
  143.  
  144. c07  equ  428*2
  145. db07  equ  404*2
  146. d07 equ  381*2
  147. eb07  equ  360*2
  148. e07  equ  339*2
  149. f07  equ  320*2
  150. gb07  equ  302*2
  151. g07  equ  285*2
  152. ab07 equ 269*2
  153. a07  equ  508
  154. bb07  equ  480
  155. b07  equ  453
  156.  
  157. c08  equ  428
  158. db08  equ  404
  159. d08  equ  381
  160. eb08  equ  360
  161. e08  equ  339
  162. f08  equ  320
  163. gb08  equ  302
  164. g08  equ  285
  165. ab08 equ 269
  166. a08  equ  254
  167. bb08  equ  240
  168. b08  equ  226
  169.  
  170.  
  171. v equ 0
  172.  
  173. no_loop equ 0
  174. loop equ 0
  175. chann1reg   equ $dff0a0    
  176. chann2reg   equ $dff0b0
  177. chann3reg   equ $dff0c0
  178. chann4reg   equ $dff0d0
  179. dmacon     equ $dff096
  180. int_bf_int   equ   $dff01e
  181. int_bf_w    equ   $dff09a
  182. vhposr     equ   $dff006
  183. in_line    equ   0
  184. new_snd    equ   4
  185. end_song     equ   1
  186. end_patt    equ   8
  187. new_env    equ   12
  188. pbend     equ   16
  189.  
  190.  
  191.  
  192. hi: equ 223
  193. lo:  equ 446
  194.  
  195. r22    equ 134
  196. r20    equ 179        ;correctum
  197. r19    equ 150
  198. r18    equ 178
  199. r17    equ 200
  200. r16:    equ 227        ;correctum
  201. r15:    equ 249
  202. r14    equ 280
  203. r13:    equ 305
  204. r12:    equ 333
  205. r11:    equ 361
  206. r10:    equ 389
  207. r9:    equ 419
  208. r8:    equ 446
  209. r7:    equ 446+112
  210. r6:    equ 446+223
  211. r5:    equ 446+223+112
  212. r4:    equ 446*2
  213. r3:    equ 446*3
  214. r2:    equ 446*4
  215. r1:    equ 446*8
  216.  
  217.  
  218. filter: equ $bfe001
  219. filter_on equ 44
  220. filter_off equ 48
  221.  
  222. modon     equ   20
  223. pboff     equ   24
  224. modoff     equ   28
  225. rest     equ 32
  226. end_fxp  equ 36
  227. end_fx3  equ 36
  228. end_fx4  equ 40
  229. acc    equ 52
  230. repeat    equ 56
  231. play_new_tune  equ 60  
  232. down      equ   1
  233. up       equ   2
  234.  
  235. ;***************************************************************
  236.  
  237.  
  238.  ;    THIS IS THE CONTROL SECTION FOR TESTING AS A STAND ALONE PRG. 
  239.  
  240.     ;       AND CAN BE DELETED WHEN NOT REQUIRED
  241.  
  242.     ;bra test_engine
  243.     jsr select_new_song    ;select first song and initiliase
  244.  
  245. testloop:
  246.     jsr delay    ;wait for scan line  at 50hz on pal
  247.  
  248.  
  249.     ;move.l #10,fx_number         every frame lazer test
  250.     ;move.w #64,d1
  251.     ;jsr set_up_fx
  252.  
  253.  
  254.     ;jsr test_fade
  255.     ;jsr en2    ;a test engine call
  256.     jsr driver    ;call music every interrupt
  257.  
  258.  
  259.     ;move.l #10,fx_number
  260.     ;move.w #64,d1
  261.     ;jsr set_up_fx    
  262.  
  263.         bra testloop    ;loop back
  264.  
  265. ;**************************************
  266.  
  267.                 ;dff00c  joystick port 1
  268.             ; bit1 right switch
  269.             ; bit9 left
  270.             ; bit 1 xor bit 0 for pulled back
  271.             ; 9 xor 8 for forward
  272.  
  273.  
  274.  
  275.  
  276. delay:
  277.     tst.w fxtimer
  278.     ;bne no_test
  279.     clr.l d0
  280.     move.b $bfe001,d0        ;
  281.     btst #6,d0
  282.     bne no_test1
  283.     move.w #10,fxtimer
  284.     bra testfx4
  285. no_test
  286.     subq #1,fxtimer
  287. no_test1
  288.     clr.l d0
  289.         move.w vhposr,d0
  290.         andi.w #%1111111100000000,d0
  291.         cmpi.w #%1111111100000000,d0
  292.  
  293.     bne no_test1
  294.     rts
  295.  
  296. testfx4:  
  297.  
  298.     ;jsr    kill_chip
  299.     ;move.w #1,int_disable
  300.     clr.l d0
  301.     move.b $bfe001,d0
  302.     btst #6,d0
  303.     beq testfx4
  304.  
  305.     move.l song_buffer,d0
  306.     addq.l #1,d0
  307.     cmp.l    #11,d0            ; 10 tunes in this test
  308.                     ; 8 = silence
  309.     bne nores    
  310.     move.l #1,d0
  311.  
  312. ;*******************************        HOW TO PLAY A NEW TUNE
  313.  
  314. nores    move.l d0,song_buffer
  315.  
  316.     ;jsr    select_new_song        ;this call sets up the tune
  317.                     ;number in the song buffer
  318.                     ;make sure music is enabled (see below)
  319.                     ;call is currently commented off
  320.                     ;so you can play fx over one tune
  321.  
  322.  
  323. ;*******************************    HOW TO KILL ANY LOOPED FX
  324.  
  325.     move.l fx_last,d0
  326.     move.l d0,fx_kill    ;  used on this demo
  327.  
  328.     ;jsr kill_loopfx    ; used to kill any  fx..not engines
  329.  
  330.  
  331. no_k
  332.         move.l fx_no,fx_number
  333.     move.l fx_no,fx_last
  334.     addq.l #1,fx_no
  335.     move.l    max_fx,d0
  336.         cmp.l fx_no,d0
  337.     bne noreset
  338.     move.l #39,fx_no    
  339. noreset: 
  340.  
  341. ;;**********************************  HOW TO PLAY AN FX ON THE
  342.                     ; NEXT 50th
  343.                     ; place fx number required in fx_no
  344.                     ; and do this call
  345.                     ; fx must be enabled...(see below)
  346.  
  347. ;test_fade
  348.      move.w #64,d1
  349.     ;sub.w #1,d1
  350.     ;cmp #0,d1
  351.     ;bgt novr    
  352.     ;move #64,testv
  353.     ;move.w #64,d1
  354. ;novr    ;move.w d1,testv
  355.     ;move.w d1,fade
  356.     
  357.             ; test vol for variable vol fx
  358.  
  359.  
  360.     ;cmp.l #31,fx_number
  361.     ;bne no_kill
  362.     ;jsr kill_all_fx
  363.     ;rts
  364.  
  365. no_kill
  366.  
  367.     cmp.l #37,fx_number
  368.     beq nof            ;duplicate infinite wind
  369.  
  370.  
  371.     cmp.l #14,fx_number
  372.     beq twinfx
  373.     jsr set_up_fx
  374.     ;jsr en2
  375.  
  376.     ;jsr kill_engine
  377.  
  378. nof    rts
  379.  
  380. twinfx  jsr set_up_fx
  381.     move.l #37,fx_number
  382.     jsr set_up_fx
  383.     rts
  384.  
  385.  
  386.  
  387. testv    dc.w 64
  388.  
  389. ;***************************************************************
  390.         
  391.  
  392.         ;;TEST ROUTINES SETTING UP AND UPDATING
  393.         ;; TWO DIFFERENT ENGINES
  394.  
  395.                 ;d0 = engine type 1 to 3
  396.                 ;d1 = engine vol
  397.                 ;d2 = engine rate
  398.                 ;d3 = engine seed (ident number)
  399.                 ;  up to word value 
  400.  
  401.  
  402. test_engines
  403.  
  404.     tst.w ref
  405.     beq doe1
  406.     rts
  407.  
  408. ref    dc.w 0
  409.  
  410. doe1
  411.     move.w #1,ref
  412.     move.w #1,d0
  413.     move.w test_vol,d1
  414.     tst.w d1
  415.     beq nosub
  416.     ;sub.w #1,d1
  417. nosub    move.w d1,test_vol
  418.     move.w test_rate,d2
  419.     cmp.w #130,d2
  420.     blt nosubx
  421.     sub.w #20,d2
  422. nosubx    
  423.     ;move.w d2,test_rate
  424.     move.w #101,d3
  425.  
  426. jjj1    jsr engines
  427.     rts
  428.  
  429. en2    
  430.  
  431. test_fade
  432.  
  433.     tst.w tek
  434.     bne fo
  435.  
  436.     add.w #1,en2x
  437.     cmp.w #10,en2x
  438.     blt fo
  439.  
  440.     clr.w en2x
  441.     move.w #3,d0        ;run 2nd engine
  442.     move.w #20,d1
  443.     move.w #400,d2
  444.     move.w #50,d3
  445.  
  446. ;test_fade
  447.  
  448.  
  449.      ;move.w testv,d1
  450.     ;sub.w #1,d1
  451.     ;cmp #0,d1
  452.     ;bgt novr    
  453.     ;move #0,testv
  454.     ;move.w #0,d1
  455. novr    ;move.w d1,testv
  456.     ;move.w d1,fade
  457.  
  458.     jsr engines
  459. fo    rts
  460.  
  461.  
  462.  
  463. kill_engine
  464.  
  465.     move.w #1,tek
  466.     move.w #3,d0        
  467.     move.w #1,d1    ;vol to 1
  468.     move.w #400,d2
  469.     move.w #50,d3
  470.     jsr engines
  471.     rts
  472.  
  473.  
  474.  
  475. en2x        dc.w 0
  476. test_rate    dc.w 500
  477. test_vol    dc.w 60
  478. tek        dc.w 0
  479.  
  480. ;***********************************
  481.  
  482.                 ; variables used by the test section
  483. tflag        dc.w 0
  484. fxtc:          dc.w 10        ; ignore them !!!!!
  485. fx_no:         dc.l  5
  486. fx_last        dc.l  5
  487.  
  488.  
  489. ;        END OF CONTROL (DELETABLE) SECTION
  490.  
  491. ;**********************************************************
  492.  
  493. ; --------------------------------------------------------------
  494.  
  495. ;    MAIN VARIABLES TO BE ACCESSED BY PROGRAMMER DURING RUNTIME
  496.  
  497.  
  498. fx_number:     dc.l 0 ;     number of fx required here...
  499. fx_kill        dc.l 0 ;     number of fx to kill/only needed for looped fx
  500.  
  501. song_buffer     dc.l 10;     number of piece of music required here ie.1 to 10
  502.  
  503. music_disable:  dc.w 0 ;     1 = disable music
  504. fx_disable:     dc.w 0 ;     1 = disable fx  (currently disabled)
  505.  
  506. fade         dc.w 0;      to fade music/fx out increase the
  507.             ; value in this location from 0 to 64
  508.             ; 0 = normal vol 64= silent.
  509.  
  510. ;    +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  511.  
  512. ;  THESE VARIABLES ARE USED INTERNALLY BY THE DRIVER
  513. fxr1         dc.l 0  
  514. fxr2         dc.l 0  
  515. fxr3         dc.l 0  
  516. fxr4         dc.l 0  
  517. fxc1        dc.l 0
  518. fxc2          dc.l 0
  519. fxc3        dc.l 0
  520. fxc4          dc.l 0
  521. fxce1        dc.w 0
  522. fxce2        dc.w 0
  523. fxce3        dc.w 0
  524. fxce4        dc.w 0
  525. fx1_flag    dc.w 0
  526. fx2_flag    dc.w 0
  527. fx3_flag    dc.w 0
  528. fx4_flag    dc.w 0
  529. fx_c_used    dc.w 0
  530. fxtimer        dc.w 0
  531. gen        dc.w 0
  532. int_disable    dc.w 0
  533. altpf         dc.w 0
  534. kill_flag    dc.w 0
  535. fx_mode        dc.w 0
  536. existing_fx    dc.w 0
  537. channel_to_use  dc.w 0
  538. fflag        dc.w 0
  539. ftimer        dc.w 0        ;temp counter
  540. frate        dc.w 0
  541. mode        dc.w 0
  542.  
  543. ;  *******************************************************
  544.  
  545. ;  CALL THIS SUBROUTINE TO SET UP THE REQUIRED FX
  546. ;  on entry it requires the fx number to be in "fx_number"(see above)
  547.  
  548. ;********************
  549. ;        move.w #204,d0
  550. ;        lea gvars,a0
  551. ;clloop: clr.w (a0)+        
  552. ;        dbra  d0,clloop
  553. ;************************
  554. set_up_fx
  555.                 ;d1 holds vol for certain fx
  556.     move.w #1,int_disable
  557.  
  558.     movem.l d0/d1/d2/d5/a0/a2,-(a7)    ;save used registers
  559.     clr.w existing_fx        ;flag
  560.     clr.w channel_to_use        ;channel to use
  561.  
  562. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  563.                 ;test for fx already running on a channel
  564.                 ;and if so then store which channel
  565.     move.l fxc4,d0
  566.     move.w #4,channel_to_use
  567.     cmp.l fx_number,d0
  568.     beq set_e_flag            
  569.  
  570.     move.l fxc3,d0
  571.     move.w #3,channel_to_use
  572.     cmp.l fx_number,d0
  573.     beq set_e_flag            
  574.  
  575.     move.l fxc2,d0
  576.     move.w #2,channel_to_use
  577.     cmp.l fx_number,d0
  578.     beq set_e_flag            
  579.  
  580.     move.l fxc1,d0
  581.     move.w #1,channel_to_use
  582.     cmp.l fx_number,d0
  583.     beq set_e_flag            
  584.  
  585.     bra new_fx
  586.  
  587.         ;  fx already on a channel
  588. set_e_flag
  589.     move.w #1,existing_fx
  590.  
  591.     cmp.l #35,fx_number
  592.     beq check35
  593.  
  594.     cmp.l #36,fx_number
  595.     beq check36
  596.  
  597.     cmp.l #5,fx_number        ;vv test
  598.     blt fixed_vol            ;engine
  599.     cmp.l #13,fx_number
  600.     bgt test_for_loop
  601.                 ;this is a variable vol existing fx            
  602.                 ;is it louder than the existing fx ??
  603.         
  604.     move.l fx_number,d2
  605.     cmp.l #5,d2
  606.     bne isevv6
  607.     cmp.w vv1,d1
  608.     blt no_fx        ;too quiet so drop it
  609.     bra new_fx
  610.  
  611. isevv6
  612.     cmp.l #6,d2
  613.     bne isevv7
  614.     cmp.w vv2,d1
  615.     blt no_fx        ;too quiet so drop it
  616.     bra new_fx
  617.  
  618. isevv7
  619.     cmp.l #7,d2
  620.     bne isevv8
  621.     cmp.w vv3,d1
  622.     blt no_fx        ;too quiet so drop it
  623.     bra new_fx
  624.  
  625. isevv8
  626.     cmp.l #8,d2
  627.     bne isevv9
  628.     cmp.w vv4,d1
  629.     blt no_fx        ;too quiet so drop it
  630.     bra new_fx
  631.  
  632.  
  633. isevv9    cmp.l #9,d2
  634.     bne isevv10
  635.     cmp.w vv5,d1
  636.     blt no_fx        ;too quiet so drop it
  637.     bra new_fx
  638.     
  639. isevv10
  640.     cmp.l #10,d2
  641.     bne isevv11
  642.     cmp.w vv6,d1
  643.     blt no_fx        ;too quiet so drop it
  644.     bra new_fx
  645.  
  646. isevv11
  647.     cmp.l #11,d2
  648.     bne isevv12
  649.     cmp.w vv7,d1
  650.     blt no_fx        ;too quiet so drop it
  651.     bra new_fx
  652.  
  653. isevv12
  654.     cmp.l #12,d2
  655.     bne isevv13
  656.     cmp.w vv8,d1
  657.     blt no_fx        ;too quiet so drop it
  658.     bra new_fx
  659.  
  660. isevv13
  661.     cmp.w vv8,d1
  662.     blt no_fx        ;too quiet so drop it
  663.     bra new_fx
  664.  
  665. check35
  666.     cmp.w vv10,d1
  667.     blt no_fx
  668.     bra new_fx
  669.  
  670. check36
  671.  
  672.     cmp.w vv11,d1
  673.     blt no_fx
  674.  
  675. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  676. new_fx
  677.     cmp.l #35,fx_number
  678.     beq write35
  679.  
  680.     cmp.l #36,fx_number
  681.     beq write36
  682.  
  683.     cmp.l #5,fx_number
  684.     blt fixed_vol
  685.     cmp.l #13,fx_number
  686.     bgt test_for_loop
  687.                 ;variable vol fx
  688.     move.l fx_number,d2
  689.     cmp.l #5,d2
  690.     beq writevv1
  691.     cmp.l #6,d2
  692.     beq writevv2
  693.     cmp.l #7,d2
  694.     beq writevv3
  695.     cmp.l #8,d2
  696.     beq writevv4
  697.     cmp.l #9,d2
  698.     beq writevv5
  699.     cmp.l #10,d2
  700.     beq writevv6
  701.     cmp.l #11,d2
  702.     beq writevv7
  703.  
  704.     lea vv8,a0    ;write12 and 13
  705.     bra wv
  706.  
  707. writevv7
  708.     lea vv7,a0
  709.     bra wv
  710. writevv6
  711.     lea vv6,a0
  712.     bra wv
  713. writevv5
  714.     lea vv5,a0
  715.     bra wv
  716. writevv4
  717.     lea vv4,a0
  718.     bra wv
  719. writevv3
  720.     lea vv3,a0
  721.     bra wv
  722. writevv2
  723.     lea vv2,a0
  724.     bra wv
  725. writevv1
  726.     lea vv1,a0
  727.  
  728. wv    move.w d1,(a0)    
  729.     bra fixed_vol
  730.  
  731. write35
  732.     lea vv10,a0
  733.     bra wv
  734.  
  735. write36
  736.     lea vv11,a0
  737.     bra wv
  738.  
  739.  
  740.  
  741. ; ............................
  742. test_for_loop
  743.     cmp.l #17,fx_number
  744.     bgt fixed_vol
  745.  
  746.     move.l fx_number,d2
  747.                 ;is this fx already running
  748.     cmp.l fxc4,d2
  749.     beq is_on
  750.     cmp.l fxc3,d2
  751.     beq is_on
  752.     cmp.l fxc2,d2
  753.     beq is_on
  754.     cmp.l fxc1,d2
  755.     beq is_on
  756.                 ;fx not already on
  757.     bra set_loop_counters    ;so set it up and run it
  758.  
  759. is_on
  760.     cmp.l #14,d2        ;wind ?
  761.     bne cl2
  762.     move.w #2,loopc1    ;reset timer
  763.     bra no_fx
  764.  
  765. cl2
  766.     cmp.l #15,d2        ;space_stat ?
  767.     bne cl3
  768.     move.w #1,loopc2    ;reset timer
  769.     bra no_fx
  770.  
  771. cl3
  772.     cmp.l #16,d2        ;factories?
  773.     bne cl4
  774.     move.w #2,loopc3    ;reset timer
  775.     bra no_fx
  776.  
  777. cl4
  778.     cmp.l #17,d2        ;fuelscoop?
  779.     bne fixed_vol
  780.     move.w #2,loopc4    ;reset timer
  781.     bra no_fx
  782.  
  783. set_loop_counters
  784.  
  785.     cmp.l #14,d2        ;wind ?
  786.     bne cl2x
  787.     move.w #1,loopc1    ;reset timer
  788.     bra fixed_vol
  789.  
  790. cl2x
  791.     cmp.l #15,d2        ;space_stat ?
  792.     bne cl3x
  793.     move.w #1,loopc2    ;reset timer
  794.     bra fixed_vol
  795.  
  796. cl3x
  797.     cmp.l #16,d2        ;factories?
  798.     bne cl4x
  799.     move.w #2,loopc3    ;reset timer
  800.     bra fixed_vol
  801.  
  802. cl4x
  803.     cmp.l #17,d2        ;fuelscoop?
  804.     bne no_fx
  805.     move.w #2,loopc4    ;reset timer
  806.  
  807.  
  808. ;..............................
  809. fixed_vol
  810.  
  811.  
  812.     cmp.l #31,fx_number
  813.     beq use4        ;ship die to 4
  814.  
  815.  
  816.     tst.w existing_fx
  817.     beq sort_channel
  818.                 ;find channel to overwrite existing fx on
  819.  
  820.     cmp.w #4,channel_to_use
  821.     beq    use4
  822.     cmp.w #3,channel_to_use
  823.     beq    use3
  824.     cmp.w #2,channel_to_use
  825.     beq    use2
  826.     bra     use1
  827. ;     ****************
  828.  
  829.  
  830. sort_channel
  831.     tst.l fxc4
  832.     bne check3
  833.     tst.w fxce4
  834.     bne check3
  835.  
  836. use4:    
  837.     move.w #%0000000000001000,d5
  838.     lea chann4reg,a2
  839.     ;jsr end_fx4p
  840.     ;move.l #0,fxc4
  841.  
  842. ch4xx    move.w #32,d0
  843.     lea fxintc4,a0
  844. cfx4l:  clr.w (a0)+    
  845.     dbra d0,cfx4l
  846.  
  847.  
  848.     move.l fx_number,fxr4
  849.     move.l fx_number,fxc4
  850.     move.l #0,fx_number
  851.     move.w #4,fx_c_used        ;channel used
  852.     bra no_fx
  853.  
  854.  
  855. check3:    tst.l fxc3
  856.     bne check2
  857.     tst.w fxce3
  858.     bne check2
  859. use3:
  860.     move.w #%0000000000000100,d5
  861.     lea chann3reg,a2
  862.     ;jsr end_fx3p
  863.     ;move.l #0,fxc3
  864.  
  865. ch3xx    move.w #32,d0
  866.     lea fxintc3,a0
  867. cfx3l:  clr.w (a0)+    
  868.     dbra d0,cfx3l
  869.     move.l fx_number,fxr3
  870.     move.l fx_number,fxc3
  871.     move.l #0,fx_number
  872.     move.w #3,fx_c_used        ;channel used
  873.     bra no_fx
  874.  
  875.  
  876.  
  877.  
  878. check2:    tst.l fxc2
  879.     bne check1
  880.     tst.w fxce2
  881.     bne check1
  882. use2:
  883.     move.w #%0000000000000010,d5
  884.     lea chann2reg,a2
  885.     ;jsr end_fx2p
  886.     ;move.l #0,fxc2
  887.  
  888. ch2xx    move.w #32,d0
  889.     lea fxintc2,a0
  890. cfx2l:  clr.w (a0)+    
  891.     dbra d0,cfx2l
  892.  
  893.     move.l fx_number,fxr2
  894.     move.l fx_number,fxc2
  895.     move.l #0,fx_number
  896.     move.w #2,fx_c_used        ;channel used
  897.     bra no_fx
  898. check1:    tst.l fxc1
  899.     bne  no_room
  900.     tst.w fxce1
  901.     bne no_room
  902.  
  903.  
  904. use1
  905.     move.w #%0000000000000001,d5
  906.     lea chann1reg,a2
  907.     ;jsr end_fx1p
  908.     ;move.l #0,fxc1
  909.  
  910. ch1xx    move.w #32,d0
  911.     lea fxintc1,a0
  912. cfx1l:  clr.w (a0)+    
  913.     dbra d0,cfx1l
  914.  
  915.     move.l fx_number,fxr1
  916.     move.l fx_number,fxc1
  917.     move.l #0,fx_number
  918.     move.w #1,fx_c_used        ;channel used
  919.  
  920. no_fx
  921.     clr.w int_disable
  922.     movem.l (a7)+,d5/d2/d1/d0/a2/a0    ;restore registers
  923.     rts
  924. no_room
  925.     tst.w fx_mode
  926.     beq  overwrite            ;actual fx
  927.  
  928.     move.w #255,fx_c_used        ; no channel used
  929.     bra no_fx
  930.  
  931.  
  932.  
  933. overwrite
  934.     tst.w fxce4
  935.     bne oc3
  936.     bra use4
  937. oc3    tst.w fxce3
  938.     bne oc2
  939.     bra use3
  940. oc2    tst.w fxce2
  941.     bne oc1
  942.     bra use2
  943. oc1    tst.w fxce1
  944.     bne use1
  945.     bra use1
  946.  
  947. ;*************************************************
  948. ;          CALL HERE TO KILL ANY FX...
  949. ;       after putting the number of the fx you want to kill
  950. ;            into fx_kill
  951.  
  952. kill_loopfx
  953.  
  954.     movem.l d5/a2,-(a7)    ;save used registers
  955.     move.l fx_kill,d5
  956.     cmp.l fxc1,d5
  957.     bne k2
  958.     move.w #%0000000000000001,d5
  959.     lea chann1reg,a2
  960.     jsr end_fx1p
  961.     bra error
  962. k2    cmp.l fxc2,d5
  963.     bne k3
  964.     move.w #%0000000000000010,d5
  965.     lea chann2reg,a2
  966.     jsr end_fx2p
  967.     bra error
  968. k3    cmp.l fxc3,d5
  969.     bne k4
  970.     move.w #%0000000000000100,d5
  971.     lea chann3reg,a2
  972.     jsr end_fx3p
  973.     bra error
  974. k4    cmp.l fxc4,d5
  975.     bne error
  976.     move.w #%0000000000001000,d5
  977.     lea chann4reg,a2
  978.     jsr end_fx4p
  979. error
  980.     clr.l fx_kill
  981.     movem.l (a7)+,d5/a2    ;restore registers
  982.     rts
  983. ;************************************************
  984.  
  985.     ;CALL HERE TO KILL ALL FX
  986.  
  987. kill_all_fx:
  988.  
  989.     movem.l d5/a0,-(a7)    ;save used registers
  990.  
  991.     move.w #%0000000000001000,d5
  992.     lea chann4reg,a2
  993.     jsr end_fx4p
  994.     move.w #32,d0
  995.     lea fxintc4,a0
  996. cfx4lx:  clr.w (a0)+    
  997.     dbra d0,cfx4lx
  998.  
  999.     move.w #%0000000000000100,d5
  1000.     lea chann3reg,a2
  1001.     jsr end_fx3p
  1002.     move.w #32,d0
  1003.     lea fxintc3,a0
  1004. cfx3lx:  clr.w (a0)+    
  1005.     dbra d0,cfx3lx
  1006.  
  1007.     move.w #%0000000000000010,d5
  1008.     lea chann2reg,a2
  1009.     jsr end_fx2p
  1010.     move.w #32,d0
  1011.     lea fxintc2,a0
  1012. cfx2lx:  clr.w (a0)+    
  1013.     dbra d0,cfx2lx
  1014.  
  1015.     move.w #%0000000000000001,d5
  1016.     lea chann1reg,a2
  1017.     jsr end_fx1p
  1018.     move.w #32,d0
  1019.     lea fxintc1,a0
  1020. cfx1lx:  clr.w (a0)+    
  1021.     dbra d0,cfx1lx
  1022.  
  1023.     movem.l (a7)+,d5/a0    ;restore registers
  1024.     rts
  1025.  
  1026.  
  1027. ;*************************************************
  1028.  
  1029.     ; CALL HERE TO KILL ANY SOUND for whatever reason
  1030.  
  1031. kill_chip:
  1032.     move.w #%0000000000001111,dmacon
  1033.     move.l rest_data,chann1reg
  1034.     move.l rest_data,chann2reg
  1035.     move.l rest_data,chann3reg
  1036.     move.l rest_data,chann4reg
  1037.     move.w #16,chann1reg+4    
  1038.     move.w #16,chann2reg+4    
  1039.     move.w #16,chann3reg+4    
  1040.     move.w #16,chann4reg+4    
  1041.     move.w #0,chann1reg+8
  1042.     move.w #0,chann2reg+8
  1043.     move.w #0,chann3reg+8
  1044.     move.w #0,chann4reg+8
  1045.     move.w #1,chann1reg+6
  1046.     move.w #1,chann2reg+6
  1047.     move.w #1,chann3reg+6
  1048.     move.w #1,chann4reg+6
  1049.     move.l #0,fxr1
  1050.     move.l #0,fxr2
  1051.     move.l #0,fxr3
  1052.     move.l #0,fxr4
  1053.     move.w #0,fx1_flag
  1054.     move.w #0,fx2_flag
  1055.     move.w #0,fx3_flag
  1056.     move.w #0,fx4_flag
  1057.     move.l #0,fxc1
  1058.     move.l #0,fxc2
  1059.     move.l #0,fxc3
  1060.     move.l #0,fxc4
  1061.     clr.w fx_mode
  1062.     rts
  1063.  
  1064. ;*******************************
  1065.  
  1066.             ;d0 holds fade rate value 0 to 50
  1067. fade_up    
  1068.     move.w #1,fflag    ;set flag for up
  1069.     move.w d0,frate
  1070.     move.w #64,fade        ;fade value to max
  1071.     rts
  1072.  
  1073. fade_out
  1074. fade_down
  1075.     move.w #2,fflag    ;set flag for up
  1076.     move.w d0,frate
  1077.     move.w #0,fade        ;fade value to max
  1078.     rts
  1079.  
  1080.  
  1081. ;*****************************
  1082. engines
  1083.     movem.l d4/d5/d6/a2/a0/a1,-(a7)    ;save used registers
  1084.  
  1085.     ;ENGINE RUNTIME ROUTINES
  1086.  
  1087.                 ;d0 = engine type 1 to 3
  1088.                 ;d1 = engine vol
  1089.                 ;d2 = engine rate
  1090.                 ;d3 = engine seed (ident number)
  1091.  
  1092.                 ;check engine has legal volume
  1093.     tst.w d1
  1094.     beq end_engine        ;drop it
  1095.     cmp.w #64,d1
  1096.     bgt end_engine
  1097.  
  1098.  
  1099.         ;decide if engine is new
  1100.     lea engine1_vars,a1
  1101.     tst.w (a1)
  1102.     beq ten2
  1103.     cmp.w engine1_seed,d3
  1104.  
  1105.     beq existing_engine  
  1106. ten2
  1107.     lea engine2_vars,a1
  1108.     tst.w (a1)
  1109.     beq ten3
  1110.     cmp.w engine2_seed,d3
  1111.     beq existing_engine  
  1112. ten3
  1113.     lea engine3_vars,a1
  1114.     tst.w (a1)
  1115.     beq ten4
  1116.     cmp.w engine3_seed,d3
  1117.     beq existing_engine  
  1118. ten4
  1119.     lea engine4_vars,a1
  1120.     tst.w (a1)
  1121.     beq setup_engine
  1122.     cmp.w engine4_seed,d3
  1123.     beq existing_engine  
  1124.                 ;engine not already in range
  1125.                 ;so find if spare channel available
  1126.  
  1127. setup_engine
  1128.     cmp.w #1,d0                     
  1129.     bne sej1
  1130.     lea engine1p,a0
  1131.     bra set_p
  1132. sej1    cmp.w #2,d0     
  1133.     bne sej3                
  1134.     lea engine2p,a0
  1135.     bra set_p
  1136. sej3    lea engine3p,a0
  1137. set_p
  1138.                 ;a0 = engine type address    
  1139.     tst engine1_vars    
  1140.     bne te2
  1141. ue1    lea engine1_vars,a1
  1142.     lea current_engine1_fx,a2
  1143.     move.l #1,d6
  1144.     bra do_set_up
  1145. te2
  1146.     tst engine2_vars    
  1147.     bne te3
  1148. ue2    lea engine2_vars,a1
  1149.     lea current_engine2_fx,a2
  1150.     move.l #2,d6
  1151.     bra do_set_up
  1152. te3
  1153.     tst engine3_vars    
  1154.     bne te4
  1155. ue3    lea engine3_vars,a1
  1156.     lea current_engine3_fx,a2
  1157.     move.l #3,d6
  1158.     bra do_set_up
  1159. te4
  1160.     tst engine4_vars    
  1161.     bne test_vols
  1162. ue4    lea engine4_vars,a1
  1163.     lea current_engine4_fx,a2
  1164.     move.l #4,d6
  1165.     bra do_set_up
  1166.  
  1167. test_vols            ;all channels running so
  1168.                 ;find current smallest vol
  1169.     move.w #1,d5
  1170.     move.w engine1_vol,d4
  1171.     cmp engine2_vol,d4
  1172.     blt test3        ;1 is smaller than 2
  1173.     move.w #2,d5
  1174.     move.w engine2_vol,d4
  1175. test3
  1176.     cmp engine3_vol,d4    
  1177.     blt test4        ;1 or 2 is smaller
  1178.     move.w #3,d5
  1179.     move.w engine3_vol,d4
  1180. test4
  1181.     cmp engine4_vol,d4
  1182.     blt vol_test_d
  1183.     move.w #4,d5
  1184.     move.w engine4_vol,d4
  1185. vol_test_d            ;smallest vol engine number in d5
  1186.                 ;its volume in d4
  1187.           cmp.w d1,d4         ;cmp new vol
  1188.     bgt end_engine        ;drop new engine fx.......    
  1189.     cmp.w #1,d5        
  1190.     beq ue1
  1191.     cmp.w #2,d5        
  1192.     beq ue2
  1193.     cmp.w #3,d5        
  1194.     beq ue3
  1195.     bra ue4
  1196.  
  1197. do_set_up
  1198.     jsr pass_p        ;write paramters to vars
  1199.  
  1200.  
  1201.                 ; write parameters to fx pattern
  1202.     move.l a0,8(a2)
  1203.     move.w d2,12(a2)                
  1204.     move.w #200,14(a2)    ;2 second min    
  1205.     move.w d1,20(a2)
  1206.  
  1207.     move.l d6,(fx_number)
  1208.  
  1209.     move.w #1,(fx_mode)
  1210.     jsr set_up_fx
  1211.     clr.w (fx_mode)    
  1212.                 ;d0 = amiga channel used
  1213.     cmp #255,fx_c_used
  1214.     beq end_engine        ;no free channels
  1215.     move.w fx_c_used,14(a1)    ;channel to vars
  1216.     move.w fx_c_used,d0
  1217.     cmp.w #4,d0
  1218.     bne re3    
  1219.     clr.l fxc4
  1220.     move.w #1,fxce4
  1221.     bra end_engine
  1222.  
  1223. re3
  1224.     cmp.w #3,d0
  1225.     bne re2    
  1226.     clr.l fxc3
  1227.     move.w #1,fxce3
  1228.     bra end_engine
  1229.  
  1230. re2
  1231.     cmp.w #2,d0
  1232.     bne re1    
  1233.     clr.l fxc2
  1234.     move.w #1,fxce2
  1235.     bra end_engine
  1236.  
  1237. re1
  1238.     clr.l fxc1
  1239.     move.w #1,fxce1
  1240.  
  1241. end_engine
  1242.     movem.l (a7)+,d5/d4/d6/a2/a1/a0    ;restore registers
  1243.     rts
  1244.  
  1245. ;                        """"""""""""""""""""""""""""""
  1246. existing_engine
  1247.     jsr passpj1
  1248.     jsr update_engine
  1249.     bra end_engine
  1250.  
  1251. pass_p                ;a1 = which engine vars to use/d5=1 to 4
  1252.                 ;a0 = address of type parameters
  1253.  
  1254.     move.w #1,(a1)        ;reset flag/count to 1
  1255.  
  1256.             ;first turn off the engine already on this channel
  1257.     move.w 14(a1),d4
  1258.     cmp.w #4,d4
  1259.     bne pj1
  1260.     clr.w fxce4    
  1261.     bra passpj1
  1262. pj1    cmp.w #3,d4
  1263.     bne pj2
  1264.     clr.w fxce3    
  1265.     bra passpj1
  1266. pj2    cmp.l #2,d4
  1267.     bne pj3
  1268.     clr.w fxce2    
  1269.     bra passpj1
  1270. pj3    clr.w fxce1    
  1271.  
  1272. passpj1    
  1273.  
  1274.         ;pass engine parameters to engine vars    
  1275.     move.w #1,(a1)        ;set on/off flag
  1276.     move.w d0,2(a1)
  1277.     move.w d1,4(a1)
  1278.     move.w d2,6(a1)
  1279.     move.w d3,8(a1)
  1280.     move.l a0,10(a1)
  1281.     clr.w 16(a1)
  1282.     rts
  1283.  
  1284. update_engine        ; (a0)= engine vars
  1285.             ;only used after driver has set sample running
  1286.         
  1287.     move.l a1,a0
  1288.     clr.w 16(a0)        ;timer to 0
  1289. update2
  1290.     move.w 14(a0),d0    ;amiga channel
  1291.     cmp.w #4,d0
  1292.     bne uej1
  1293.     tst.l fxc4
  1294.     bne off_engine
  1295.     lea chann4reg,a1
  1296.     bra write_engine
  1297.  
  1298. uej1    cmp.w #3,d0
  1299.     bne uej2
  1300.     tst.l fxc3
  1301.     bne off_engine
  1302.     lea chann3reg,a1
  1303.     bra write_engine
  1304.  
  1305. uej2    cmp.w #2,d0
  1306.     bne uej3
  1307.     tst.l fxc2
  1308.     bne off_engine
  1309.     lea chann2reg,a1
  1310.     bra write_engine
  1311. uej3
  1312.     tst.l fxc1
  1313.     bne off_engine
  1314.     lea chann1reg,a1
  1315.     bra write_engine
  1316.  
  1317. off_engine
  1318.     clr.w (a0)        ;flag to off
  1319.     clr.w 8(a0)        ;seed to 0
  1320.     rts
  1321.  
  1322. write_engine        ;a1 points to registers
  1323.     move.w 4(a0),8(a1)    ;vol to chip
  1324.     move.w 6(a0),6(a1)    ;rate to chip
  1325.     rts
  1326.  
  1327.  
  1328.  
  1329. ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  1330.             ;current engine pattern buffer
  1331.  
  1332. current_engine1_fx
  1333.               dc.w new_env
  1334.            dc.l current_engine1_env
  1335.               dc.w new_snd
  1336.           dc.l 0            ;+8    ;paramters
  1337.  
  1338.         dc.w    0        ;+12   rate
  1339.         dc.w    0        ;+ 14 duration
  1340.         
  1341.  
  1342.       dc.w end_fxp
  1343.  
  1344. current_engine1_env:    dc.w 0,0,255    ;+20 vol
  1345.  
  1346.  
  1347. current_engine2_fx
  1348.       dc.w new_env
  1349.       dc.l current_engine2_env
  1350.       dc.w new_snd
  1351.       dc.l 0
  1352.  
  1353. ce2_rate    dc.w    0
  1354. ce2_time    dc.w    0        ;1 sec max without refresh    
  1355.         
  1356.  
  1357.       dc.w end_fxp
  1358.  
  1359. current_engine2_env:    dc.w 0,0,255
  1360.  
  1361.  
  1362. current_engine3_fx
  1363.       dc.w new_env
  1364.        dc.l current_engine3_env
  1365.       dc.w new_snd
  1366.       dc.l 0
  1367.  
  1368. ce3_rate    dc.w    0
  1369. ce3_time    dc.w    0        ;1 sec max without refresh    
  1370.         
  1371.  
  1372.       dc.w end_fxp
  1373.  
  1374. current_engine3_env:    dc.w 0,0,255
  1375.  
  1376.  
  1377. current_engine4_fx
  1378.       dc.w new_env
  1379.       dc.l current_engine4_env
  1380.       dc.w new_snd
  1381.       dc.l 0
  1382.  
  1383. ce4_rate    dc.w    0
  1384. ce4_time    dc.w    0        ;1 sec max without refresh    
  1385.         
  1386.  
  1387.       dc.w end_fxp
  1388.  
  1389. current_engine4_env:    dc.w 0,0,255
  1390.  
  1391.  
  1392. engine1_vars    dc.w 0        ;on off flag
  1393. engine1_type    dc.w 0
  1394. engine1_vol    dc.w 0
  1395. engine1_rate    dc.w 0
  1396. engine1_seed    dc.w 0        ;+8
  1397. engine1_type_p    dc.l 0        ;address of type 1 to 3
  1398. acu1        dc.w 0        ;amiga channel used
  1399. e1timer        dc.w 0
  1400.  
  1401.  
  1402. engine2_vars    dc.w 0
  1403. engine2_type    dc.w 0
  1404. engine2_vol    dc.w 0
  1405. engine2_rate    dc.w 0
  1406. engine2_seed    dc.w 0
  1407. engine2_type_p    dc.l 0
  1408. acu2        dc.w 0        ;amiga channel used
  1409. e2timer        dc.w 0
  1410.  
  1411.  
  1412. engine3_vars    dc.w 0
  1413. engine3_type    dc.w 0
  1414. engine3_vol    dc.w 0
  1415. engine3_rate    dc.w 0
  1416. engine3_seed    dc.w 0
  1417. engine3_type_p    dc.l 0
  1418. acu3        dc.w 0        ;amiga channel used
  1419. e3timer        dc.w 0
  1420.  
  1421.  
  1422. engine4_vars    dc.w 0
  1423. engine4_type    dc.w 0
  1424. engine4_vol    dc.w 0
  1425. engine4_rate    dc.w 0
  1426. engine4_seed    dc.w 0
  1427. engine4_type_p    dc.l 0
  1428. acu4        dc.w 0        ;amiga channel used
  1429. e4timer        dc.w 0
  1430.  
  1431.  
  1432. ;****************************************
  1433.  
  1434. ;  CALL HERE TO SELECT WHICH PIECE OF MUSIC TO PLAY
  1435. ;  AFTER PLACING NUMBER (1 to ?) IN "SONG_BUFFER"..see above
  1436. ;  a call to this routine will initiliase the driver/kill any sound etc.      
  1437. ;  make sure this routine has been called before running the interrupt
  1438. ;  driven section....see below
  1439.  
  1440. start_timer    dc.w 0
  1441.  
  1442. select_new_song:
  1443.  
  1444.     move.w #1,int_disable
  1445.     movem.l d0/d1/a0/a1,-(a7)    ;save used registers
  1446.     move.w music_disable,gen
  1447.     move.w #1,music_disable
  1448.         jsr kill_chip           
  1449.     clr.l d0
  1450.         move.w #204,d0
  1451.         lea gvars,a0
  1452. clloop: clr.w (a0)+        
  1453.         dbra  d0,clloop
  1454.     tst.l song_buffer
  1455.     beq no_song
  1456.         move.l song_buffer,d1
  1457.     add.l d1,d1
  1458.      add.l d1,d1
  1459.      add.l d1,d1
  1460.      add.l d1,d1
  1461.         LEA  SONG_TABLE-16,A1
  1462.         add.l d1,a1      
  1463.         MOVE.L (A1)+,WSONG1    
  1464.         move.l (a1)+,wsong2    
  1465.         move.l (a1)+,wsong3
  1466.     move.l (a1),wsong4
  1467.         MOVE.L #pstart,PATTR1
  1468.         MOVE.L #pstart,PATTR2
  1469.         MOVE.L #pstart,PATTR3
  1470.     move.l #pstart,pattr4
  1471.         move.l #sstart,songr1
  1472.         MOVE.L #sstart,SONGR2
  1473.         MOVE.L #sstart,SONGR3
  1474.     move.l #sstart,songr4
  1475. no_song
  1476.     move.w #1,ch1vars
  1477.     move.w #2,ch2vars
  1478.     move.w #3,ch3vars
  1479.     move.w #4,ch4vars
  1480.     move.w #6,ch4fxvars
  1481.     move.w #5,ch3fxvars
  1482.     move.w #7,ch2fxvars
  1483.     move.w #8,ch1fxvars
  1484.     move.w gen,music_disable
  1485.     clr.w int_disable
  1486.     clr.w fade
  1487.     clr.w fflag
  1488.     clr.w engine1_vars
  1489.     clr.w engine2_vars
  1490.     clr.w engine3_vars
  1491.     clr.w engine4_vars
  1492.     clr.w fxce1
  1493.     clr.w fxce2
  1494.     clr.w fxce3
  1495.     clr.w fxce4
  1496.  
  1497.     cmp.l #10,song_buffer        ;intro tagged piece
  1498.     bne no_sps
  1499.     move.w #12,d0     
  1500.     jsr fade_up
  1501. no_sps
  1502.     movem.l (a7)+,d0/d1/a0/a1    ;restore registers
  1503.         rts
  1504.  
  1505. ;**************************************************
  1506.  
  1507. ;  CALL HERE ON A 50hz INTERRUPT DURING RUNTIME
  1508. ;  TO PLAY FX AND TUNES
  1509.  
  1510. driver:  
  1511.  
  1512.     tst.w int_disable
  1513.     beq process_data
  1514.     rts        
  1515. process_data
  1516.     movem.l d0-d6/a0-a6,-(a7)    ;save used registers
  1517.  
  1518. ;******************************
  1519.                 ;fade section
  1520.     tst.w fflag
  1521.     beq proj1
  1522.     cmp.w #1,fflag
  1523.     bne tfo
  1524.     move.w ftimer,d0
  1525.     add.w #1,d0
  1526.     move.w d0,ftimer
  1527.     cmp.w frate,d0
  1528.     bne proj1
  1529.     sub.w #1,fade
  1530.     clr.w ftimer
  1531.     tst.w fade
  1532.     bne proj1
  1533.     clr.w fflag
  1534.     bra proj1
  1535. tfo
  1536.     move.w ftimer,d0
  1537.     add.w #1,d0
  1538.     move.w d0,ftimer
  1539.     cmp.w frate,d0
  1540.     bne proj1
  1541.     add.w #1,fade
  1542.     clr.w ftimer
  1543.     cmp.w #64,fade
  1544.     bne proj1
  1545.     clr.w fflag
  1546.  
  1547. ;*******************************
  1548. proj1
  1549.     lea engine1_vars,a0
  1550.     tst.w (a0)
  1551.     beq tt2
  1552.     add.w #1,16(a0)
  1553.     cmp.w #51,16(a0)
  1554.     blt tt2
  1555.     sub.w #1,4(a0)
  1556.     jsr update2
  1557.  
  1558. tt2
  1559.  
  1560.     lea engine2_vars,a0
  1561.     tst.w (a0)
  1562.     beq tt3
  1563.     add.w #1,16(a0)
  1564.     cmp.w #51,16(a0)
  1565.     blt tt3
  1566.     sub.w #1,4(a0)
  1567.     jsr update2
  1568.  
  1569. tt3
  1570.     lea engine3_vars,a0
  1571.     tst.w (a0)
  1572.     beq tt4
  1573.     add.w #1,16(a0)
  1574.     cmp.w #51,16(a0)
  1575.     blt tt4
  1576.     sub.w #1,4(a0)
  1577.     jsr update2
  1578. tt4
  1579.     lea engine4_vars,a0
  1580.     tst.w (a0)
  1581.     beq etf
  1582.     add.w #1,16(a0)
  1583.     cmp.w #51,16(a0)
  1584.     blt etf
  1585.     sub.w #1,4(a0)
  1586.     jsr update2
  1587.  
  1588. etf
  1589.  
  1590. ;^^^^^^^^^^^^^^^^^^^^^^^^^^^
  1591.         ;service engine vars
  1592.         ; if an engine volume is at 0 then turn it off
  1593.  
  1594.     lea engine1_vars,a0
  1595.     tst.w (a0)
  1596.     beq tev2        ;no engine here
  1597.     cmp.w #1,4(a0)        ;vol at 0
  1598.     bgt tev2
  1599. rb    clr.w (a0)
  1600.     clr.w 8(a0)
  1601.     clr.w 16(a0)
  1602.     move.w acu1,d0
  1603.     jsr clear_amiga_channel
  1604.  
  1605.  
  1606. tev2
  1607.     lea engine2_vars,a0
  1608.     tst.w (a0)
  1609.     beq tev3        ;no engine here
  1610.  
  1611.     cmp.w #1,4(a0)        ;vol at 0
  1612.     bgt tev3
  1613.     clr.w (a0)
  1614.     clr.w 8(a0)
  1615.     clr.w 16(a0)
  1616.     move.w acu2,d0
  1617.     jsr clear_amiga_channel
  1618.  
  1619. tev3
  1620.     lea engine3_vars,a0
  1621.     tst.w (a0)
  1622.     beq tev4        ;no engine here
  1623.     cmp.w #1,4(a0)        ;vol at 0
  1624.     bgt tev4
  1625.     clr.w (a0)
  1626.     clr.w 8(a0)
  1627.     clr.w 16(a0)
  1628.     move.w acu3,d0
  1629.     jsr clear_amiga_channel
  1630. tev4
  1631.     lea engine4_vars,a0
  1632.     tst.w (a0)
  1633.     beq ch1            ;no engine here
  1634.     cmp.w #1,4(a0)        ;vol at 0
  1635.     bne ch1
  1636.     clr.w (a0)
  1637.     clr.w 8(a0)
  1638.     clr.w 16(a0)
  1639.     move.w acu4,d0
  1640.     jsr clear_amiga_channel
  1641.     bra ch1
  1642.  
  1643. clear_amiga_channel
  1644.     cmp.w #4,d0
  1645.     bne cac2
  1646.     clr.w fxce4
  1647.       move.w #%0000000000001000,d5 
  1648.     lea chann4reg,a2
  1649.     jsr end_fx4p
  1650.  
  1651.     rts
  1652. cac2    cmp.w #3,d0
  1653.     bne cac3
  1654.     clr.w fxce3
  1655.       move.w #%0000000000000100,d5 
  1656.     lea chann3reg,a2
  1657.     jsr end_fx3p
  1658.  
  1659.     rts
  1660. cac3    cmp.w #2,d0
  1661.     bne cac4
  1662.     clr.w fxce2
  1663.       move.w #%0000000000000010,d5 
  1664.     lea chann2reg,a2
  1665.     jsr end_fx2p
  1666.     rts
  1667.  
  1668. cac4    cmp.w #1,d0
  1669.     bne cac5
  1670.     clr.w fxce1
  1671.       move.w #%0000000000000001,d5 
  1672.     lea chann1reg,a2
  1673.     jsr end_fx1p
  1674. cac5    rts
  1675.  
  1676.  
  1677.  
  1678. ;^^^^^^^^^^^^^^^^^^^^^^^^^^^
  1679.  
  1680. ch1:
  1681.     tst.w fx_disable
  1682.     bne test_music1
  1683.     tst.l fxr1
  1684.     bne   ch1j1
  1685.  
  1686.     tst.l fxc1
  1687.     beq test_music1
  1688.     bra ch1j3
  1689. ch1j2    jsr run_dummy1
  1690.     jsr run_fx1
  1691.     bra ch2
  1692. ch1j1
  1693.     jsr set_up1
  1694. ch1j3    tst.w music_disable    
  1695.     beq ch1j2
  1696.     jsr run_fx1
  1697.     bra ch2
  1698. test_music1
  1699.  
  1700.     tst.w fxce1
  1701.     beq noe1
  1702.     jsr run_dummy1
  1703.     bra ch2
  1704.  
  1705.  
  1706. noe1
  1707.     tst.w music_disable
  1708.     bne ch2
  1709.     jsr run_music1
  1710.     bra ch2
  1711.     ;***********************
  1712.  
  1713.     ; channel 1 subroutines
  1714.  
  1715. run_dummy1    
  1716.     move.w #1,mode
  1717.      lea ch1vars,a0
  1718.      lea dummy_reg,a2 
  1719.      move.w #0,d5 
  1720.      move.w #0,d1
  1721.      jsr sect1    
  1722.     rts
  1723.  
  1724. set_up1    
  1725.  
  1726.         jsr endc_fx1p
  1727.  
  1728.          move.l fxr1,d0
  1729.          add d0,d0
  1730.          add d0,d0
  1731.          lea  fxjump_table-4,A1
  1732.      add.l d0,a1
  1733.          move.l (a1),currfx1
  1734.       clr.l fxr1
  1735.      clr.w fxintc1
  1736.       rts
  1737.   
  1738.      
  1739. run_fx1
  1740.     move.w #0,mode
  1741.  
  1742.     lea ch1fxvars,a0
  1743.        lea chann1reg,a2
  1744.       move.w #%0000000000000001,d5 
  1745.      move.w #%1000001000000001,d1 
  1746.      jsr sect1
  1747.     rts
  1748.  
  1749. run_music1
  1750.     move.w #1,mode
  1751.  
  1752.     lea ch1vars,a0
  1753.        lea chann1reg,a2
  1754.       move.w #%0000000000000001,d5 
  1755.       move.w #%1000001000000001,d1 
  1756.       jsr sect1     
  1757.     rts
  1758.  
  1759.     ;  **************************
  1760. ch2
  1761.     tst.w fx_disable
  1762.     bne test_music2
  1763.     tst.l fxr2
  1764.     bne   ch2j1
  1765.     tst.l fxc2
  1766.     beq test_music2
  1767.     bra ch2j3
  1768.  
  1769. ch2j2    jsr run_dummy2
  1770.     jsr run_fx2
  1771.     bra ch3
  1772. ch2j1
  1773.     jsr set_up2
  1774. ch2j3    tst.w music_disable    
  1775.     beq ch2j2
  1776.     jsr run_fx2
  1777.     bra ch3
  1778.  
  1779. test_music2
  1780.  
  1781.  
  1782.     tst.w fxce2
  1783.     beq noe2
  1784.     jsr run_dummy2
  1785.     bra ch3
  1786.  
  1787.  
  1788. noe2
  1789.  
  1790.  
  1791.     tst.w music_disable
  1792.     bne ch3
  1793.     jsr run_music2
  1794.     bra ch3
  1795.     ;***********************
  1796.     ; channel 2 subroutines
  1797. run_dummy2    
  1798.     move.w #1,mode
  1799.  
  1800.      lea ch2vars,a0
  1801.      lea dummy_reg,a2 
  1802.      move.w #0,d5 
  1803.      move.w #0,d1
  1804.      jsr sect1    
  1805.     rts
  1806.  
  1807. set_up2    
  1808.  
  1809.     jsr endc_fx2p
  1810.  
  1811.  
  1812.          move.l fxr2,d0
  1813.          add d0,d0
  1814.          add d0,d0
  1815.          lea  fxjump_table-4,A1
  1816.      add.l d0,a1
  1817.          move.l (a1),currfx2
  1818.       clr.l fxr2
  1819.      clr.w fxintc2
  1820.       rts
  1821.   
  1822.      
  1823. run_fx2
  1824.     move.w #0,mode
  1825.  
  1826.     lea ch2fxvars,a0
  1827.        lea chann2reg,a2
  1828.       move.w #%0000000000000010,d5 
  1829.      move.w #%1000001000000010,d1 
  1830.      jsr sect1
  1831.     rts
  1832.  
  1833. run_music2
  1834.     move.w #1,mode
  1835.  
  1836.     lea ch2vars,a0
  1837.        lea chann2reg,a2
  1838.       move.w #%0000000000000010,d5 
  1839.       move.w #%1000001000000010,d1 
  1840.       jsr sect1     
  1841.     rts
  1842.  
  1843.     ;  **************************
  1844.  
  1845. ch3:
  1846.     tst.w fx_disable
  1847.     bne test_music3
  1848.     tst.l fxr3
  1849.     bne   ch3j1
  1850.     tst.l fxc3
  1851.     beq test_music3
  1852.     bra ch3j3
  1853. ch3j2    jsr run_dummy3
  1854.     jsr run_fx3
  1855.     bra ch4
  1856. ch3j1
  1857.     jsr set_up3
  1858. ch3j3    tst.w music_disable    
  1859.     beq ch3j2
  1860.     jsr run_fx3
  1861.     bra ch4
  1862.  
  1863. test_music3
  1864.  
  1865.  
  1866.     tst.w fxce3
  1867.     beq noe3
  1868.     jsr run_dummy3
  1869.     bra ch4
  1870.  
  1871.  
  1872. noe3
  1873.  
  1874.  
  1875.  
  1876.     tst.w music_disable
  1877.     bne ch4
  1878.     jsr run_music3
  1879.     bra ch4
  1880.  
  1881.     ;***********************
  1882.  
  1883.     ; channel 3 subroutines
  1884.  
  1885. run_dummy3    
  1886.     move.w #1,mode
  1887.  
  1888.      lea ch3vars,a0
  1889.      lea dummy_reg,a2 
  1890.      move.w #0,d5 
  1891.      move.w #0,d1
  1892.      jsr sect1    
  1893.     rts
  1894.  
  1895. set_up3    
  1896.  
  1897.     jsr endc_fx3p
  1898.  
  1899.  
  1900.          move.l fxr3,d0
  1901.          add d0,d0
  1902.          add d0,d0
  1903.          lea  fxjump_table-4,A1
  1904.      add.l d0,a1
  1905.          move.l (a1),currfx3
  1906.       clr.l fxr3
  1907.      clr.w fxintc3
  1908.       rts
  1909.   
  1910.      
  1911. run_fx3
  1912.     move.w #0,mode
  1913.  
  1914.     lea ch3fxvars,a0
  1915.        lea chann3reg,a2
  1916.       move.w #%0000000000000100,d5 
  1917.      move.w #%1000001000000100,d1 
  1918.      jsr sect1
  1919.     rts
  1920.  
  1921. run_music3
  1922.     move.w #1,mode
  1923.  
  1924.     lea ch3vars,a0
  1925.        lea chann3reg,a2
  1926.       move.w #%0000000000000100,d5 
  1927.       move.w #%1000001000000100,d1 
  1928.       jsr sect1     
  1929.     rts
  1930.  
  1931.     ;  **************************
  1932.  
  1933. ch4:
  1934.     tst.w fx_disable
  1935.     bne test_music4
  1936.     tst.l fxr4
  1937.     bne   ch4j1
  1938.     tst.l fxc4
  1939.     beq test_music4
  1940.     bra ch4j3
  1941. ch4j2    jsr run_dummy4
  1942.     jsr run_fx4
  1943.     bra no4
  1944. ch4j1
  1945.     jsr set_up4
  1946. ch4j3    tst.w music_disable    
  1947.     beq ch4j2
  1948.     jsr run_fx4
  1949.     bra no4
  1950.  
  1951. test_music4
  1952.  
  1953.  
  1954.     tst.w fxce4
  1955.     beq noe4
  1956.     jsr run_dummy4
  1957.     bra no4
  1958.  
  1959.  
  1960. noe4
  1961.     tst.w music_disable
  1962.     bne no4
  1963.     jsr run_music4
  1964. no4    
  1965.     movem.l (a7)+,d0-d6/a0-a6    ;restore registers
  1966.     rts
  1967.  
  1968.     ;***********************
  1969.  
  1970.     ; channel 4 subroutines
  1971.  
  1972. run_dummy4    
  1973.     move.w #1,mode
  1974.  
  1975.      lea ch4vars,a0
  1976.      lea dummy_reg,a2 
  1977.      move.w #0,d5 
  1978.      move.w #0,d1
  1979.      jsr sect1    
  1980.     rts
  1981.  
  1982. set_up4    
  1983.  
  1984.     jsr endc_fx4p
  1985.  
  1986.  
  1987.          move.l fxr4,d0
  1988.          add d0,d0
  1989.          add d0,d0
  1990.          lea  fxjump_table-4,A1
  1991.      add.l d0,a1
  1992.          move.l (a1),currfx4
  1993.       clr.l fxr4
  1994.      clr.w fxintc4
  1995.       rts
  1996.   
  1997.      
  1998. run_fx4
  1999.  
  2000.     move.w #0,mode
  2001.  
  2002.     lea ch4fxvars,a0
  2003.        lea chann4reg,a2
  2004.       move.w #%0000000000001000,d5 
  2005.      move.w #%1000001000001000,d1 
  2006.      jsr sect1
  2007.     rts
  2008.  
  2009. run_music4
  2010.  
  2011.     move.w #1,mode
  2012.  
  2013.     lea ch4vars,a0
  2014.        lea chann4reg,a2
  2015.       move.w #%0000000000001000,d5 
  2016.       move.w #%1000001000001000,d1 
  2017.       jsr sect1     
  2018.     rts
  2019.     ;  **************************
  2020.  
  2021. sect1: 
  2022.     ;tst.w 0(a0)
  2023.     ;bne s1j1
  2024.     ;rts
  2025.  
  2026. s1j1:    tst.w 2(a0)
  2027.         beq sect3       
  2028.         cmpi.w #1,2(a0)
  2029.         beq sect4
  2030.  
  2031.         cmpi.w #3,4(a0)    
  2032.         beq part2       
  2033.     
  2034. mode_switch:  subq.w #1,2(a0)     
  2035.  
  2036. check_effects: clr.w altpf      
  2037.         move.w 6(a0),d2    
  2038.         tst.w 8(a0)      
  2039.         beq check_mod
  2040.         tst.w 14(a0)      
  2041.         beq cont_bend
  2042.         subq.w #1,14(a0)
  2043.         bra check_mod
  2044. cont_bend:   addq.w #1,altpf    
  2045.         move.w 10(a0),d3    
  2046.         move.w 12(a0),d4    
  2047.         cmpi.w #1,8(a0)
  2048.         beq pbup
  2049.     
  2050.         sub.w d3,d2
  2051.         cmp.w d2,d4
  2052.         bcs check_mod
  2053.         bra fbend
  2054.  
  2055. pbup:     add.w d3,d2
  2056.         cmp.w d2,d4
  2057.         bcc check_mod
  2058. fbend:     move.w d4,d2
  2059.         clr.w 8(a0)      
  2060. check_mod:   tst.w 16(a0)
  2061.         beq send_alt_pitch
  2062.    
  2063.  
  2064.     tst.w  58(a0)
  2065.     beq st_ok
  2066.     subq.w #1,58(a0)
  2067.     bra send_alt_pitch
  2068. st_ok:
  2069.         tst.w 50(a0)
  2070.         beq cont_mod
  2071.         subq #1,50(a0)
  2072.         bra send_alt_pitch
  2073. cont_mod:    move.w 52(a0),50(a0)  
  2074.         addq #1,altpf
  2075.         cmpi #3,16(a0)
  2076.         bcc addmod
  2077.     
  2078.         move.w 56(a0),d3 
  2079.         sub.w d3,d2
  2080.         addq.w #1,16(a0)  
  2081.         bra send_alt_pitch
  2082. addmod:
  2083.  
  2084.         move.w 54(a0),d3 
  2085.         add.w d3,d2
  2086.         addq.w #1,16(a0)
  2087.         cmpi.w #5,16(a0)
  2088.        bne send_alt_pitch
  2089.         move.w #1,16(a0)  
  2090.  
  2091. send_alt_pitch: tst.w altpf
  2092.         beq send_env
  2093.         move.w d2,6(a0)  
  2094.         move.w d2,6(a2)  
  2095.  
  2096. send_env: 
  2097.  
  2098. do_env_check:
  2099.  
  2100. norm_env:
  2101.     tst.w mode
  2102.     beq fxenv
  2103.  
  2104.     move.l 18(a0),a1    
  2105.         cmpi.w #255,(a1)
  2106.         beq env_finished
  2107.  
  2108. resu    clr.l d0
  2109.     move.w (a1)+,d0
  2110.     sub.w fade,d0
  2111.     bcc sete
  2112.     move.w #0,d0
  2113. sete    move.w d0,8(a2)    
  2114.     move.l a1,18(a0)
  2115.     rts        
  2116.  
  2117. env_finished:
  2118.     subq.l #2,a1    
  2119.     bra resu
  2120.  
  2121. fxenv
  2122.     move.l 18(a0),a1    
  2123.         cmpi.w #255,(a1)
  2124.         beq env_finishedx
  2125.  
  2126. resux    clr.l d0
  2127.     move.w (a1)+,d0
  2128.     move.w d0,8(a2)    
  2129.     move.l a1,18(a0)
  2130.     rts        
  2131.  
  2132. env_finishedx:
  2133.     subq.l #2,a1    
  2134.     bra resux
  2135.  
  2136.  
  2137.  
  2138.  
  2139.  
  2140.  
  2141. one_shot_note: move.w #3,4(a0)     
  2142.         move.l 38(a0),(a2)
  2143.         move.w 42(a0),4(a2)
  2144.         move.w d1,dmacon     
  2145.         bra send_env
  2146.  
  2147.  
  2148. part2:                         
  2149.         move.l 44(a0),(a2)
  2150.         move.w 48(a0),4(a2)
  2151.         subq.w #1,2(a0)      
  2152.         move.w #1,4(a0)
  2153.         bra check_effects
  2154.  
  2155. sect3:
  2156.     move.w 0,66(a0)    
  2157.  
  2158.     move.l 22(a0),a1  
  2159. control_ret: move.w (a1)+,d0  
  2160.     cmpi.w #100,d0   
  2161.     bls sect5   
  2162.   
  2163. acc_note:
  2164.     move.w d0,6(a0)  
  2165.     move.w d0,6(a2)  
  2166.     move.w (a1)+,2(a0) 
  2167.     subq.w #1,2(a0)  
  2168.     move.l a1,22(a0)  
  2169.     move.l 34(a0),18(a0) 
  2170.     move.w 60(a0),58(a0) 
  2171.  
  2172.  
  2173.     tst.w 16(a0)
  2174.     beq no_mod_res
  2175.     move.w #1,16(a0)
  2176. no_mod_res:
  2177.     cmpi.w #0,4(a0)
  2178.     beq do_loop
  2179.     bra one_shot_note    
  2180.  
  2181.  
  2182. do_loop:    move.w d1,dmacon   
  2183.         bra send_env
  2184.  
  2185. do_rest:
  2186.     move.w (a1)+,2(a0) 
  2187.     subq.w #1,2(a0)  
  2188.     move.l a1,22(a0)  
  2189.     move.l  #rest_env,18(a0)
  2190.  
  2191.         move.w #0,8(a2)
  2192.         bra send_env
  2193.    
  2194. sect4:
  2195.         cmpi.w #0,4(a0)
  2196.         beq noof
  2197.         move.w d5,dmacon   
  2198. noof:     subq.w #1,2(a0)
  2199.         bra check_effects
  2200.    
  2201. sect5:     move.l #jump_table,a3
  2202.         move.l (a3,d0),a4
  2203.         jmp (a4)
  2204.  
  2205. jump_table: 
  2206.     dc.l  in_line_data
  2207.         dc.l  nsound
  2208.         dc.l  patt_end
  2209.         dc.l  get_env
  2210.         dc.l  check_pbend
  2211.         dc.l  do_mod
  2212.         dc.l  bend_off
  2213.         dc.l  mod_off
  2214.         dc.l  do_rest
  2215.         dc.l  end_fx
  2216.         dc.l  end_fx
  2217.     dc.l  s_f_on
  2218.     dc.l  s_f_off
  2219.     dc.l  set_acc
  2220.     dc.l  rept
  2221.     dc.l  song_select
  2222.  
  2223.  
  2224. in_line_data:
  2225.  
  2226.         nop
  2227.         rts
  2228.  
  2229. rept:
  2230.  
  2231.     tst.w (a1)
  2232.     bne round_again
  2233.  
  2234.     add.l #6,a1
  2235.     move.l (a1),a1
  2236.     bra control_ret
  2237.  
  2238. round_again
  2239.     subq.w #1,(a1)    ;decrease counter
  2240.     add.l #2,a1
  2241.     move.l (a1),a1
  2242.     bra control_ret
  2243.  
  2244. s_f_on: 
  2245.     bclr #1,filter
  2246.     bra control_ret
  2247. s_f_off:
  2248.     bset #1,filter
  2249.     bra control_ret
  2250.  
  2251. nsound:    move.l (a1)+,a3     
  2252.         cmpi.w #0,(a3)
  2253.         bne one_shot_sound
  2254.         move.w (a3)+,4(a0)    
  2255.         move.l (a3)+,(a2)     
  2256.         move.w (a3),4(a2)    
  2257.         jmp control_ret
  2258.  
  2259. one_shot_sound:
  2260.         move.w (a3)+,4(a0)
  2261.         move.l (a3)+,38(a0)   
  2262.         move.l (a3)+,42(a0)
  2263.         move.l (a3),46(a0)
  2264.         jmp control_ret
  2265.  
  2266. patt_end:
  2267.         move.l 26(a0),a1    
  2268.         cmpi.l #0,(a1)     
  2269.         beq song_control
  2270.         addq.l #4,26(a0)    
  2271.         move.l (a1),a1     
  2272.         jmp control_ret
  2273. get_env: 
  2274.     move.l (a1)+,a4 
  2275.  
  2276.     move.l (a4)+,62(a0)    
  2277.     
  2278.     move.l  a4,34(a0)    
  2279.     
  2280.         bra control_ret
  2281.  
  2282. check_pbend:
  2283.      move.l (a1)+,8(a0)
  2284.         move.l (a1)+,12(a0)
  2285.         bra control_ret
  2286.  
  2287. do_mod:    move.w #1,16(a0)  
  2288.         move.l (a1)+,50(a0)
  2289.         move.l (a1)+,54(a0)
  2290.         move.l (a1)+,58(a0)
  2291.         bra control_ret
  2292.  
  2293. bend_off:   clr.w 8(a0)
  2294.         bra control_ret
  2295.  
  2296. mod_off:    clr.w 16(a0)
  2297.         bra control_ret
  2298.  
  2299.  
  2300. end_fx:    
  2301.     cmpi.w #6,(a0)
  2302.     beq end_fx4p
  2303.  
  2304.     cmpi.w #5,(a0)
  2305.     beq end_fx3p
  2306.  
  2307.     cmpi.w #7,(a0)
  2308.     beq end_fx2p
  2309.  
  2310.     cmpi.w #8,(a0)
  2311.     beq end_fx1p
  2312.     rts
  2313.  
  2314. end_fx1p:
  2315.         move.w #%0000000000000001,dmacon   
  2316.     move.w  #1,chann1reg+6
  2317.     move.w #0,chann1reg+8
  2318.     move.l #0,fxc1
  2319.     rts
  2320.  
  2321. end_fx2p:
  2322.     move.w #%0000000000000010,dmacon 
  2323.     move.w  #1,chann2reg+6
  2324.         move.w #0,chann2reg+8 
  2325.     move.l #0,fxc2
  2326.         rts
  2327.  
  2328.  
  2329. end_fx3p:
  2330.         move.w #%0000000000000100,dmacon   
  2331.     move.w  #1,chann3reg+6
  2332.     move.w #0,chann3reg+8
  2333.     move.l #0,fxc3
  2334.     rts
  2335.  
  2336. end_fx4p:
  2337.  
  2338.     move.w #%0000000000001000,dmacon 
  2339.     move.w  #1,chann4reg+6
  2340.         move.w #0,chann4reg+8
  2341.     move.l #0,fxc4
  2342.         rts
  2343.  
  2344.  
  2345. endc_fx1p:
  2346.         move.w #%0000000000000001,dmacon   
  2347.     move.w  #1,chann1reg+6
  2348.     move.w #0,chann1reg+8
  2349.     ;move.l #0,fxc1
  2350.     rts
  2351.  
  2352. endc_fx2p:
  2353.     move.w #%0000000000000010,dmacon 
  2354.     move.w  #1,chann2reg+6
  2355.         move.w #0,chann2reg+8 
  2356.     ;move.l #0,fxc2
  2357.         rts
  2358.  
  2359.  
  2360. endc_fx3p:
  2361.         move.w #%0000000000000100,dmacon   
  2362.     move.w  #1,chann3reg+6
  2363.     move.w #0,chann3reg+8
  2364.     ;move.l #0,fxc3
  2365.     rts
  2366.  
  2367. endc_fx4p:
  2368.  
  2369.     move.w #%0000000000001000,dmacon 
  2370.     move.w  #1,chann4reg+6
  2371.         move.w #0,chann4reg+8
  2372.     ;move.l #0,fxc4
  2373.         rts
  2374.  
  2375.  
  2376.  
  2377.  
  2378.  
  2379.  
  2380.  
  2381. set_acc: move.w #1,66(a0) 
  2382.     bra control_ret
  2383.  
  2384. song_control:            ;these instructions reset the
  2385.         addq.l #4,a1
  2386.         move.l 30(a0),26(a0)    ;song pointers to the start for looping
  2387.         move.l 26(a0),a1
  2388.         addq.l #4,26(a0)
  2389.         move.l (a1),a1
  2390.         jmp control_ret            ;dont change this
  2391.  
  2392.  
  2393.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  2394. song_select:
  2395.  
  2396.             ;A CALL HERE TO A ROUTINE THAT SELECTED
  2397.             ;A NEW TUNE/PLACED THE NUMBER IN SONG_BUFFER
  2398.             ;AND CALLED select_new_song WOULD START
  2399.              ;A DIFFERENT TUNE
  2400.             
  2401.             ;test code only..replace with your own
  2402.  
  2403.  
  2404.     move.l song_buffer,d0
  2405.     addq.l #1,d0
  2406.     cmp.l    #10,d0            ; 9 tunes in this test
  2407.     bne noresx    
  2408.     move.l #1,d0
  2409. noresx    move.l d0,song_buffer
  2410.  
  2411.     jsr    select_new_song        ;this call sets up the new tune
  2412.  
  2413.     rts
  2414.  
  2415.  
  2416. ;-----------------------------------------------
  2417.  
  2418.  
  2419.  
  2420.  
  2421.  
  2422.  
  2423.  
  2424.  
  2425.  
  2426.  
  2427.     ;;; DATA
  2428.  
  2429. song_table:
  2430.  
  2431.     dc.l     s1,s2,s3,s4            ;hall of m kings
  2432.     dc.l     s5,s6,s7,s8            ;title tune
  2433.     dc.l    sbaba1,sbaba2,sbaba3,sbaba4    ;baba yaga
  2434.     dc.l    sgg1,sgg2,sgg3,sgg4        ;great gates
  2435.     dc.l    bds1,bds2,bds3,bds4        ;blue danube
  2436.     dc.l    jalt1,jalt2,jalt3,jalt4        ;alternative to jupiter
  2437.     dc.l    rvs1,rvs2,rvs3,rvs4        ;ride valkries
  2438.     dc.l     ssilent,ssilent,ssilent,ssilent ;silent    
  2439.     dc.l    bm1,bm2,bm3,bm4            ;b mountain
  2440.     dc.l    intro5,intro6,intro7,intro8
  2441.  
  2442. ;************************************************************
  2443. gvars:
  2444. ch1vars     
  2445.     dc.w 0     
  2446.         dc.w 0,0,0,0,0,0,0,0,0,0     
  2447. pattr1: dc.l 0    
  2448. songr1: dc.l 0    
  2449. wsong1: dc.l 0   
  2450.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  2451.  
  2452. ch2vars     
  2453.     dc.w 0     
  2454.         dc.w 0,0,0,0,0,0,0,0,0,0     
  2455. pattr2: dc.l 0    
  2456. songr2: dc.l 0    
  2457. wsong2: dc.l 0    
  2458.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  2459.  
  2460. ch3vars 
  2461.     dc.w 0     
  2462.         dc.w 0,0,0,0,0,0,0,0,0,0     
  2463. pattr3: dc.l 0    
  2464. songr3: dc.l 0    
  2465. wsong3: dc.l 0    
  2466.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  2467.  
  2468. ch4vars 
  2469.     dc.w 0     
  2470.         dc.w 0,0,0,0,0,0,0,0,0,0     
  2471. pattr4: dc.l 0    
  2472. songr4: dc.l 0    
  2473. wsong4: dc.l 0    
  2474.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  2475.  
  2476.     dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2477.  
  2478.  
  2479. ch1fxvars 
  2480.     dc.w 0     
  2481. fxintc1:
  2482.     dc.w 0,0,0,0,0,0,0,0,0,0     
  2483. currfx1:
  2484.     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    
  2485.  
  2486. ch2fxvars 
  2487.     dc.w 0     
  2488. fxintc2:
  2489.     dc.w 0,0,0,0,0,0,0,0,0,0     
  2490. currfx2:
  2491.     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    
  2492.  
  2493.  
  2494. ch3fxvars
  2495.     dc.w 0     
  2496. fxintc3:
  2497.     dc.w 0,0,0,0,0,0,0,0,0,0     
  2498. currfx3:
  2499.     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    
  2500.  
  2501. ch4fxvars 
  2502.     dc.w 0     
  2503. fxintc4:
  2504.     dc.w 0,0,0,0,0,0,0,0,0,0     
  2505. currfx4:
  2506.     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    
  2507. ;************************************************************
  2508.  
  2509. dummy_reg dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2510.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2511.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2512.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2513.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2514.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2515.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2516.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2517.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2518.  
  2519.  
  2520. ;************************************************************
  2521.  
  2522. ;       THESE ARE THE FX PATTERNS................
  2523.  
  2524. ; The interrupt counter in these patterns is dependent on the
  2525. ; playback speed.The figure is calculated as follows
  2526. ; (length/playback speed) *50
  2527. ; the figure then needs rounding up to give a clear finish
  2528. ; if you have the count longer than needed it will cut
  2529. ; out the music on the relevent channel for longer than
  2530. ; neccessary and make it sound jerky
  2531. ; The fx table is below the patterns
  2532.  
  2533.  
  2534. fuelscoopfx
  2535.       dc.w new_env
  2536.       dc.l fs_env
  2537.       dc.w new_snd
  2538.       dc.l rumblep
  2539. fsr    dc.w pbend,up,5,r20,1
  2540.     dc.w    r12,48
  2541.  
  2542.     dc.w repeat
  2543. loopc4    dc.w 2
  2544.     dc.l fsr,fsend
  2545. fsend      dc.w new_env
  2546.       dc.l fs_env2
  2547.     dc.w pbend,down,10,r6,1
  2548.     dc.w r12,40
  2549.  
  2550.       dc.w end_fxp
  2551.  
  2552. fs_env:        dc.w 0,64,64,64,255
  2553. fs_env2        dc.w 0,64,60,57,55,52
  2554.         dc.w 0,50,47,45,43,40
  2555.         dc.w 40,37,35,33,30
  2556.         dc.w 30,27,25,23,20
  2557.         dc.w 20,17,15,13,10
  2558.         dc.w 10,7,5,3,0,255
  2559.  
  2560.  
  2561. ;***************
  2562. damagefx
  2563.       dc.w new_snd
  2564.       dc.l snarep
  2565.       dc.w new_env
  2566.       dc.l damage_env
  2567.     dc.w modon,1,1,2,5,1,1
  2568.     dc.w r1,50
  2569.       dc.w end_fxp
  2570.  
  2571. damage_env:            dc.w 0,64,64,64,64,64,64,64,64,64,64,64,64,64,64
  2572.                 dc.w 60,58,55,53,40,45,44,42,40,38,35,34,33
  2573.                 dc.w 32,30,28,25,22,20,18,15,12,10,7,5,4,0,255
  2574. ;******************
  2575.  
  2576. shieldfx
  2577.       dc.w new_snd
  2578.       dc.l hissp
  2579.       dc.w new_env
  2580.       dc.l shield_env
  2581.     ;dc.w modon,2,2,30,30,1,1
  2582.     dc.w r20,50
  2583.       dc.w end_fxp
  2584.  
  2585. shield_env:            dc.w 0,64,64,64,64,64,60,57,53,50,47,45,40,37
  2586.                 dc.w 35,31,28,25,22,20,18,15,12,10,7,5,4,0,255
  2587. ;******************
  2588.  
  2589. clunckfx
  2590.       dc.w new_snd
  2591.       dc.l doorclosp
  2592.       dc.w new_env
  2593.       dc.l clunk_env
  2594.     dc.w r5,10
  2595.       dc.w end_fxp
  2596.  
  2597. clunk_env:            dc.w 0,64,64,64,255
  2598. ;******************
  2599.  
  2600.  
  2601. missile_launch
  2602.  
  2603.     dc.w pbend,up,10,r12,1
  2604.       dc.w new_snd
  2605.       dc.l hisslp
  2606.       dc.w new_env
  2607.       dc.l hiss2_env
  2608.     dc.w r4,80
  2609.     dc.w pboff
  2610.       dc.w end_fxp
  2611.  
  2612. ml_env:            dc.w 0,64,64,64,255
  2613. ;******************
  2614.  
  2615.  
  2616. hyper_space
  2617.       dc.w new_snd
  2618.       dc.l hyperp
  2619.       dc.w new_env
  2620.       dc.l h_env
  2621.     dc.w r3,130
  2622.       dc.w end_fxp
  2623.  
  2624. h_env:            dc.w 0,64,64,64,255
  2625. ;******************
  2626.  
  2627.  
  2628.  
  2629.  
  2630.  
  2631. factroarfx
  2632.       dc.w new_env
  2633.       dc.l roar_env
  2634.       dc.w new_snd
  2635.       dc.l rumblep
  2636. fr    dc.w    r1,72
  2637.  
  2638.     dc.w repeat
  2639. loopc3    dc.w 2
  2640.     dc.l fr,frend
  2641.  
  2642. frend
  2643.       dc.w new_env
  2644.       dc.l roar_env2
  2645.  
  2646.     dc.w    r1,40
  2647.  
  2648.       dc.w end_fxp
  2649.  
  2650. roar_env:            dc.w 0,64,64,64,255
  2651. roar_env2:
  2652.         dc.w 0,64,60,57,55,52
  2653.         dc.w 0,50,47,45,43,40
  2654.         dc.w 40,37,35,33,30
  2655.         dc.w 30,27,25,23,20
  2656.         dc.w 20,17,15,13,10
  2657.         dc.w 10,7,5,3,0,255
  2658.  
  2659.  
  2660. ;*******************************
  2661.  
  2662.  
  2663. undercfx_up:
  2664.       dc.w new_env
  2665.       dc.l underc_env
  2666.       dc.w new_snd
  2667.       dc.l hissp
  2668.     dc.w pbend,up,20,r6,1
  2669.     dc.w    r4,112
  2670.       dc.w new_snd
  2671.       dc.l doorclosp
  2672.     dc.w r10,4,r4,24
  2673.       dc.w end_fxp
  2674.  
  2675. underc_env:            dc.w 0,0
  2676. vv8                dc.w 44,255
  2677.  
  2678. ;*************
  2679. undercfx_down:
  2680.       dc.w new_env
  2681.       dc.l underc_env
  2682.       dc.w new_snd
  2683.       dc.l hissp
  2684.     dc.w pbend,down,10,r4,1
  2685.     dc.w    r6,112
  2686.       dc.w new_snd
  2687.       dc.l doorclosp
  2688.     dc.w r6,4,r6,24
  2689.       dc.w end_fxp
  2690.  
  2691. ;*************
  2692.  
  2693. airlock1fx:
  2694.       dc.w new_env
  2695.       dc.l hiss_env
  2696.       dc.w new_snd
  2697.       dc.l hissp
  2698.     dc.w r3,140
  2699.  
  2700.       dc.w new_env
  2701.       dc.l doorclos_env
  2702.       dc.w new_snd
  2703.       dc.l airlockp
  2704.     dc.w    r3,47
  2705.       dc.w end_fxp
  2706.  
  2707. doorclos_env:            dc.w 0,64,64,64,255
  2708. hiss_env:
  2709.     dc.w 0,64,64,64,255
  2710.  
  2711. ;*************************
  2712. airlock2fx:
  2713.  
  2714.       dc.w new_env
  2715.       dc.l hiss_env
  2716.       dc.w new_snd
  2717.       dc.l hissp
  2718.     dc.w r3,140
  2719.  
  2720.       dc.w new_env
  2721.       dc.l doorclos_env
  2722.       dc.w new_snd
  2723.       dc.l airlockp
  2724.     dc.w    r3,47
  2725.       dc.w end_fxp
  2726.  
  2727.       dc.w end_fxp
  2728.  
  2729. ;*********************
  2730.  
  2731.  
  2732.  
  2733.  
  2734.  
  2735.  
  2736.  
  2737.  
  2738. space_station_backfx:
  2739.  
  2740.       dc.w new_env
  2741.       dc.l stb_env
  2742.       dc.w new_snd
  2743.       dc.l hissp
  2744. ssr    dc.w r1,127
  2745.     dc.w    repeat
  2746. loopc2    dc.w    1
  2747.     dc.l    ssr,ssend
  2748.  
  2749. ssend      dc.w new_env
  2750.       dc.l stb1_env
  2751.     dc.w r1,30
  2752.       dc.w end_fxp
  2753.  
  2754. stb_env:    dc.w 0,50,50,50,255
  2755. stb1_env
  2756.         dc.w 0,50,47,45,43,40
  2757.         dc.w 40,37,35,33,30
  2758.         dc.w 30,27,25,23,20
  2759.         dc.w 20,17,15,13,10
  2760.         dc.w 10,7,5,3,0,255
  2761.  
  2762.  
  2763. ;***********************
  2764.  
  2765. bongfx
  2766.     dc.w pboff
  2767.       dc.w new_env
  2768.       dc.l bong_env
  2769.       dc.w new_snd
  2770.       dc.l bongp
  2771.  
  2772.     dc.w r3,20
  2773.       dc.w end_fxp
  2774.  
  2775. bong_env:    dc.w 0,64,64,64,255
  2776.  
  2777. ;***********************
  2778.  
  2779. bellfx
  2780.     dc.w pboff
  2781.       dc.w new_env
  2782.       dc.l bell_env
  2783.       dc.w new_snd
  2784.       dc.l bongp
  2785.     dc.w modon,2,2,30,30,1,1
  2786.  
  2787.     dc.w r2,30
  2788.       dc.w end_fxp
  2789.  
  2790. bell_env:    dc.w 0,64,64,64,255
  2791.  
  2792. ;***********************
  2793.  
  2794. target_confirmedfx
  2795.     dc.w pboff
  2796.       dc.w new_env
  2797.       dc.l tg_env
  2798.       dc.w new_snd
  2799.       dc.l bongp
  2800.  
  2801.     dc.w r16,2,r8,2,r16,2,r8,2
  2802.     dc.w r16,2,r8,2,r16,2,r8,2
  2803.       dc.w end_fxp
  2804.  
  2805. tg_env:    dc.w 0,64,64,64,255
  2806.  
  2807. ;***********************
  2808.  
  2809.  
  2810. lazer2_pr1fx
  2811.       dc.w new_env
  2812.       dc.l lazer2_env
  2813.       dc.w new_snd
  2814.       dc.l lazer2p
  2815.     dc.w r3,25
  2816.  
  2817.       dc.w end_fxp
  2818.  
  2819. lazer2_env:    dc.w 0,0
  2820. vv6        dc.w 64,255
  2821.  
  2822. ;***********************
  2823.  
  2824. lazer1_pr1fx
  2825.       dc.w new_env
  2826.       dc.l lazer1_env
  2827.       dc.w new_snd
  2828.       dc.l lazer1p
  2829.     dc.w r2,25
  2830.  
  2831.       dc.w end_fxp
  2832.  
  2833. lazer1_env:    dc.w 0,0
  2834. vv7        dc.w 64,255
  2835.  
  2836.  
  2837.  
  2838. ;***********************
  2839.  
  2840.  
  2841. ;***********************
  2842.  
  2843.  
  2844. lazer4_pr1fx
  2845.       dc.w new_env
  2846.       dc.l lazer4_env
  2847.       dc.w new_snd
  2848.       dc.l lazer2p
  2849.     dc.w r3,25
  2850.  
  2851.       dc.w end_fxp
  2852.  
  2853. lazer4_env:        dc.w 0,0
  2854. vv10        dc.w 64,255
  2855.  
  2856. ;***********************
  2857.  
  2858. lazer3_pr1fx
  2859.       dc.w new_env
  2860.       dc.l lazer3_env
  2861.       dc.w new_snd
  2862.       dc.l lazer1p
  2863.     dc.w r2,25
  2864.  
  2865.       dc.w end_fxp
  2866.  
  2867. lazer3_env:    dc.w 0,0
  2868. vv11        dc.w 64,255
  2869.  
  2870.  
  2871.  
  2872. ;***********************
  2873.  
  2874. wind2
  2875.       dc.w new_snd
  2876.       dc.l windp
  2877.  
  2878. wr2    
  2879.  
  2880.       dc.w new_env
  2881.       dc.l wind_env1
  2882.     dc.w pbend,up,2,r3-40,1
  2883.     dc.w    r2,100
  2884.  
  2885.     dc.w    pboff
  2886.       dc.w new_env
  2887.       dc.l wind_env2
  2888.     dc.w    r3-40,50
  2889.  
  2890.       dc.w new_env
  2891.       dc.l wind_env3
  2892.     dc.w pbend,down,10,r2,1
  2893.     dc.w    r3-40,100
  2894.  
  2895.  
  2896.       dc.w new_env
  2897.       dc.l wind_env1
  2898.     dc.w pbend,up,20,r3-30,1
  2899.     dc.w    r2,50
  2900.  
  2901.     dc.w    pboff
  2902.       dc.w new_env
  2903.       dc.l wind_env4
  2904.     dc.w    r3-30,100
  2905.  
  2906.       dc.w new_env
  2907.       dc.l wind_env2
  2908.     dc.w pbend,down,8,r2-10,1
  2909.     dc.w    r3-30,80
  2910.  
  2911.       dc.w new_env
  2912.       dc.l wind_env3
  2913.  
  2914.     dc.w r2-4,120,r2-5,130
  2915.       dc.w new_env
  2916.       dc.l wind_env5
  2917.     dc.w r2,120
  2918.  
  2919.  
  2920.     dc.w repeat
  2921.     dc.w 2
  2922.     dc.l wr2,wr2
  2923.      dc.w end_fxp
  2924.  
  2925.  
  2926.  
  2927.  
  2928. windfx
  2929.       dc.w new_snd
  2930.       dc.l windp
  2931.  
  2932. wr    
  2933.  
  2934.       dc.w new_env
  2935.       dc.l wind_env1
  2936.     dc.w pbend,up,2,r3-40,1
  2937.     dc.w    r2,100
  2938.  
  2939.     dc.w    pboff
  2940.       dc.w new_env
  2941.       dc.l wind_env2
  2942.     dc.w    r3-40,50
  2943.  
  2944.       dc.w new_env
  2945.       dc.l wind_env3
  2946.     dc.w pbend,down,10,r2,1
  2947.     dc.w    r3-40,100
  2948.  
  2949.  
  2950.       dc.w new_env
  2951.       dc.l wind_env1
  2952.     dc.w pbend,up,20,r3-30,1
  2953.     dc.w    r2,100
  2954.  
  2955.     dc.w    pboff
  2956.       dc.w new_env
  2957.       dc.l wind_env4
  2958.     dc.w    r3-30,100
  2959.  
  2960.       dc.w new_env
  2961.       dc.l wind_env2
  2962.     dc.w pbend,down,8,r2-10,1
  2963.     dc.w    r3-30,80
  2964.  
  2965.  
  2966.       dc.w new_env
  2967.       dc.l wind_env3
  2968.  
  2969.     dc.w r2-4,120,r2-5,130
  2970.       dc.w new_env
  2971.       dc.l wind_env5
  2972.     dc.w r2,120
  2973.  
  2974.  
  2975.     dc.w repeat
  2976. loopc1    dc.w 2
  2977.     dc.l wr,wr
  2978.  
  2979. wend      dc.w end_fxp
  2980.  
  2981. wind_env1:    dc.w 0,0,10,12,15,17,20,21,22,24,25,26,29,32,34,37,38,40,42,43,44,44,40,40,38
  2982.         dc.w 40,45,255
  2983. wind_env2:    dc.w 0,0,44,42,40,48,46,44,43,40,45,43,40,37,36,35,33,30,25,28,26,25
  2984.         dc.w 20,18,15,12,255
  2985. wind_env3:    dc.w 0,0,12,255
  2986.  
  2987. wind_env4:    dc.w 0,0,40,255
  2988.  
  2989. wind_env5:    dc.w 0,15,15,15,14,14,14,13,12,11,10,9,10,255
  2990.  
  2991.  
  2992. ;***********************
  2993.  
  2994.  
  2995.  
  2996. ship_diefx
  2997.       dc.w new_env
  2998.       dc.l sd_env
  2999.       dc.w new_snd
  3000.       dc.l exp1p
  3001.     dc.w r1,160
  3002.  
  3003.       dc.w end_fxp
  3004.  
  3005.  
  3006. sd_env:    dc.w 0,0,0,64,255
  3007.  
  3008. ;***********************
  3009.  
  3010.  
  3011. ;***********************
  3012.  
  3013.  
  3014. exp1fx
  3015.       dc.w new_env
  3016.       dc.l exp1_env
  3017.       dc.w new_snd
  3018.       dc.l exp1p
  3019.     dc.w r4,40
  3020.  
  3021.       dc.w end_fxp
  3022.  
  3023.  
  3024. exp1_env:    dc.w 0,0
  3025. vv4        dc.w 64,255
  3026.  
  3027. ;***********************
  3028.  
  3029.  
  3030.  
  3031. exp2fx
  3032.       dc.w new_env
  3033.       dc.l exp2_env
  3034.       dc.w new_snd
  3035.       dc.l exp1p
  3036.     dc.w r2,65
  3037.  
  3038.       dc.w end_fxp
  3039.  
  3040.  
  3041. exp2_env:    dc.w 0,0
  3042. vv5        dc.w 64,255
  3043.  
  3044. ;***********************
  3045.  
  3046. beepfx
  3047.     dc.w pboff
  3048.       dc.w new_env
  3049.       dc.l beep_env
  3050.       dc.w new_snd
  3051.       dc.l bongp
  3052.     dc.w r12,30
  3053.  
  3054.       dc.w end_fxp
  3055.  
  3056. beep_env:    dc.w 0,64,64,64,255
  3057.  
  3058. ;***********************
  3059.  
  3060.  
  3061. ecm1fx
  3062.     dc.w pboff
  3063.       dc.w new_env
  3064.       dc.l xbomb2_env
  3065.       dc.w new_snd
  3066.       dc.l alarmp
  3067.     dc.w pbend,up,1,r2,1
  3068.     dc.w    r1,100
  3069.  
  3070.       dc.w end_fxp
  3071.  
  3072. xbomb2_env:    dc.w 0,64,64,64,255
  3073.  
  3074. ;***********************
  3075.  
  3076. ecm2fx
  3077.     dc.w pboff
  3078.       dc.w new_env
  3079.       dc.l xbomb2_env
  3080.       dc.w new_snd
  3081.       dc.l alarmp
  3082.     dc.w pbend,up,1,r2,1
  3083.     dc.w    r4,100
  3084.  
  3085.       dc.w end_fxp
  3086.  
  3087.  
  3088. ;***********************
  3089.  
  3090. alarm2fx
  3091.     dc.w pboff
  3092.       dc.w new_env
  3093.       dc.l alarm_env
  3094.       dc.w new_snd
  3095.       dc.l alarmp
  3096.     dc.w pbend,up,50,r9,1
  3097.     dc.w    r6,14
  3098.     dc.w pbend,up,50,r9,1
  3099.     dc.w    r6,14
  3100.     dc.w pbend,up,50,r9,1
  3101.     dc.w    r6,14
  3102.     dc.w pbend,up,50,r9,1
  3103.     dc.w    r6,14
  3104.     dc.w pbend,up,50,r9,1
  3105.     dc.w    r6,14
  3106.     dc.w pbend,up,50,r9,1
  3107.     dc.w    r6,14
  3108.     dc.w pbend,up,50,r9,1
  3109.     dc.w    r6,14
  3110.     dc.w pbend,up,50,r9,1
  3111.     dc.w    r6,14
  3112.       dc.w end_fxp
  3113.  
  3114. alarm_env:    dc.w 0,64,64,64,255
  3115.  
  3116. ;***********************
  3117.  
  3118.  
  3119. energy_bombfx
  3120.     dc.w pboff
  3121.       dc.w new_env
  3122.       dc.l xbomb2_env
  3123.       dc.w new_snd
  3124.       dc.l alarmp
  3125.     dc.w modon,1,1,100,100,1,1
  3126.     dc.w    r16,50*7
  3127.       dc.w end_fxp
  3128.  
  3129.  
  3130. xbomb_env:    dc.w 0,64,64,64,255
  3131.  
  3132.  
  3133.  
  3134.  
  3135. expbig1_fx
  3136.     dc.w pboff
  3137.       dc.w new_env
  3138.       dc.l eb1_env
  3139.       dc.w new_snd
  3140.       dc.l expbigp
  3141.     dc.w    r4,86
  3142.       dc.w end_fxp
  3143.  
  3144.  
  3145.  
  3146. eb1_env:    dc.w 0,0
  3147. vv1        dc.w 64,255
  3148.  
  3149.  
  3150. expbig2_fx
  3151.     dc.w pboff
  3152.       dc.w new_env
  3153.       dc.l eb2_env
  3154.       dc.w new_snd
  3155.       dc.l expbigp
  3156.     dc.w    r6,58
  3157.       dc.w end_fxp
  3158.  
  3159.  
  3160. eb2_env:    dc.w 0,0
  3161. vv2        dc.w 64,255
  3162.  
  3163.  
  3164. expbig3_fx
  3165.     dc.w pboff
  3166.       dc.w new_env
  3167.       dc.l eb3_env
  3168.       dc.w new_snd
  3169.       dc.l expbigp
  3170.     dc.w    r3,172
  3171.       dc.w end_fxp
  3172.  
  3173.  
  3174. eb3_env:   dc.w 0,0
  3175. vv3       dc.w 64,255
  3176.  
  3177. hiss_fx
  3178.     dc.w pboff
  3179.       dc.w new_env
  3180.       dc.l hiss2_env
  3181.       dc.w new_snd
  3182.       dc.l hisslp
  3183.     dc.w    r8,68
  3184.       dc.w end_fxp
  3185.  
  3186.  
  3187. hiss2_env:    dc.w 64,64,64,63,60,60,60
  3188.        dc.w 60,59,58,57,56,55,54,53,52,51
  3189.        dc.w 50,49,48,47,46,45,44,43,42,41
  3190.        dc.w 40,39,38,37,36,35,34,33,32,31
  3191.        dc.w 30,29,28,27,26,25,24,23,22,21
  3192.        dc.w 20,19,18,17,16,15,14,13,12,11
  3193.        dc.w 10,9,8,7,6,5,4,3,2,1,0,255
  3194.  
  3195.  
  3196.  
  3197. ship_to_ship_fx
  3198.     dc.w pboff
  3199.       dc.w new_env
  3200.       dc.l stse_env
  3201.       dc.w new_snd
  3202.       dc.l sinep
  3203.     dc.w    c03,3,e03,3,b02,3,a02,3
  3204.     dc.w    e03,3,g03,3,f02,3,bb02,3
  3205.     dc.w    gb03,3,b02,3,c02,3,db03,3
  3206.     dc.w    a03,3,gb03,3,b02,3,ab02,3
  3207.       dc.w end_fxp
  3208.  
  3209. stse_env dc.w 0,64,64,64,255
  3210.  
  3211.  
  3212.  
  3213. camera
  3214.     dc.w pboff
  3215.       dc.w new_env
  3216.       dc.l c_env
  3217.       dc.w new_snd
  3218.       dc.l airlockp
  3219.     dc.w  r20,8
  3220.       dc.w end_fxp
  3221.  
  3222. c_env dc.w 0,64,64,64,255
  3223.  
  3224. ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
  3225.  
  3226.  
  3227. ;***********************
  3228.  
  3229. fxjump_table:  
  3230.                     ;engines are triggered via the engine
  3231.                     ;routine only
  3232.     dc.l    current_engine1_fx    
  3233.     dc.l    current_engine2_fx
  3234.     dc.l    current_engine3_fx
  3235.     dc.l    current_engine4_fx
  3236.     ;-----------------------------
  3237.                     ;variable volume fx 5 to 13
  3238.     dc.l    expbig1_fx    ;(5)
  3239.     dc.l    expbig2_fx    ;(6)
  3240.     dc.l    expbig3_fx    ;(7)
  3241.     dc.l    exp1fx        ;(8)
  3242.     dc.l    exp2fx        ;(9)
  3243.     dc.l    lazer2_pr1fx    ;(10)
  3244.     dc.l    lazer1_pr1fx    ;(11)
  3245.     dc.l    undercfx_up    ;(12)    2.8 seconds..140 frames at 50hz
  3246.     dc.l    undercfx_down    ;(13)   2.8 seconds..     ""
  3247.  
  3248.     ;---------------------------
  3249.                 ;    looping fx 14 to 17
  3250.     dc.l    windfx        ;(14) infinite run with wind2 for two channels(37)
  3251.     dc.l    space_station_backfx    ;(15)
  3252.     dc.l    factroarfx    ;(16)
  3253.     dc.l    fuelscoopfx    ;(17)
  3254.     ;----------------------------
  3255.                 ; fixed vol non looping 18-30
  3256.     dc.l    airlock1fx    ;(18)  2.8 sec
  3257.     dc.l    airlock2fx    ;(19)  2.8 sec
  3258.     dc.l    beepfx        ;(20)
  3259.     dc.l    target_confirmedfx    ;(21)
  3260.     dc.l    bongfx        ;(22)
  3261.     dc.l    bellfx        ;(23)
  3262.     dc.l    clunckfx    ;(24)
  3263.     dc.l    ecm1fx        ;(25)
  3264.     dc.l    ecm2fx        ;(26)
  3265.     dc.l    energy_bombfx    ;(27)  7 seconds....350 frames at 50hz
  3266.     dc.l    shieldfx    ;(28)
  3267.     dc.l    damagefx    ;(29)
  3268.     dc.l    alarm2fx    ;(30)
  3269.     dc.l    ship_diefx    ;(31)  explosion to 4 (not overwritten)
  3270.     dc.l    missile_launch  ;(32)
  3271.     dc.l    hyper_space    ;(33)
  3272.     dc.l    hiss_fx        ;(34) 
  3273.  
  3274.     dc.l    lazer4_pr1fx    ;(35) variable vol for alien lazers
  3275.     dc.l    lazer3_pr1fx    ;(36) variable vol for alien lazers 
  3276.     dc.l    wind2        ;(37) copy of windfx for twin channel
  3277.  
  3278.     dc.l    ship_to_ship_fx    ;(38) message send/recieve
  3279.     dc.l    camera        ;(39) ????
  3280.  
  3281.  
  3282.  
  3283. max_fx    dc.l    40        ;number + 1 for testing only
  3284. ;______________________________________________________________________
  3285.  
  3286.  
  3287. ;myfile                     empty rwed Today     22:38:40
  3288. ;UNDERC.FON                   768 rwed Today     22:37:09
  3289. ;HISS.FON                    1560 rwed Today     22:37:08
  3290. ;DOORCLOS.FON                1386 rwed Today     22:37:07
  3291. ;AIRLOCK.FON                 2800 rwed Today     22:37:06
  3292. ;RUMBLE.FON                  1440 rwed Today     22:37:06
  3293. ;BONG.FON                    1296 rwed Today     22:37:05
  3294. ;LAZER2.FON                  1950 rwed Today     22:37:04
  3295. ;LAZER1.FON                  2832 rwed Today     22:37:04
  3296. ;ENGINE2.FON                 2124 rwed Today     22:37:03
  3297. ;EXP1.FON                    2346 rwed Today     22:37:02
  3298. ;WIND.FON                    3272 rwed Today     22:37:00
  3299. ;ENGINE1.FON                 1764 rwed Today     22:37:00
  3300. ;EXPLOSIO.CON                2440 rwed Today     22:36:38
  3301. ;ALARM1.CON                   586 rwed Today     22:36:37
  3302. ;WHEELS.CON                  1808 rwed Today     22:36:36
  3303. ;HISS.CON                    2545 rwed Today     22:36:35
  3304. ;17 files - 86 blocks used
  3305. ;
  3306.  
  3307.  
  3308.  
  3309.  
  3310.  
  3311. sstart: dc.l 0,end_song
  3312.  
  3313. pstart: dc.w end_patt
  3314.  
  3315. ;****************************
  3316.  
  3317. cr  set   16
  3318. q set  cr/2
  3319. sq set q/2
  3320. dsq set   sq/2
  3321.  
  3322.  
  3323. tcr1 set 11
  3324. tcr2 set 10
  3325. tq1 set      5
  3326. tq2 set   6
  3327. tsq1 set  3
  3328. tsq2 set 2
  3329.  
  3330.  
  3331. bm1:
  3332.  
  3333.     dc.l    pizpiano_sound_very_quiet
  3334.     dc.l    bmpatt1
  3335.     dc.l    bmpatt1
  3336.     dc.l    bmpatt1
  3337.     dc.l    bmpatt1
  3338.     dc.l    bmpatt2
  3339.     dc.l    bmpatt1
  3340.     dc.l    bmpatt1
  3341.     dc.l    bmpatt3
  3342.     dc.l    bmpatt1
  3343.     dc.l    brass_sound
  3344.     dc.l    bmpatt4
  3345.     dc.l    bmpatt4
  3346.     dc.l    bmpatt4
  3347.     dc.l    bmpatt4
  3348.     dc.l    bmpatt4
  3349.     dc.l    bmpatt6
  3350.     dc.l    bmpatt4            ;break after repeat
  3351.     dc.l    bmpatt4
  3352.     dc.l    bmpatt4
  3353.     dc.l    bmpatt4
  3354.     dc.l    orch_hit_sound
  3355.     dc.l    bmpatt9
  3356.  
  3357. ;bm1:
  3358.     dc.l    pizpiano_sound
  3359.     dc.l    bmpatt10
  3360.  
  3361.     dc.l    flute_sound
  3362.     dc.l    bmpatt11
  3363.  
  3364.     dc.l    bmpatt12flute
  3365.                 ;;;;;REAPEAT HERE
  3366.             
  3367.     dc.l    pizpiano_sound_very_quiet
  3368.     dc.l    bmpatt1
  3369.     dc.l    bmpatt1
  3370.     dc.l    bmpatt1
  3371.     dc.l    bmpatt1
  3372.     dc.l    bmpatt2
  3373.     dc.l    bmpatt1
  3374.     dc.l    bmpatt1
  3375.     dc.l    bmpatt3
  3376.     dc.l    bmpatt1
  3377.     dc.l    brass_sound
  3378.     dc.l    bmpatt4
  3379.     dc.l    bmpatt4
  3380.     dc.l    bmpatt4
  3381.     dc.l    bmpatt4
  3382.     dc.l    bmpatt4
  3383.     dc.l    bmpatt6
  3384.     dc.l    bmpatt4            ;break after repeat
  3385.     dc.l    bmpatt4
  3386.     dc.l    bmpatt4
  3387.     dc.l    bmpatt4
  3388.     dc.l    orch_hit_sound
  3389.     dc.l    bmpatt9
  3390.  
  3391.     dc.l    bass_sound
  3392.     dc.l    bmpatt13
  3393.  
  3394.     dc.l    flute_sound
  3395.     dc.l    bmpatt14flute
  3396.  
  3397.     dc.l    bmpatt15flute
  3398.  
  3399.     dc.l    pizpiano_sound
  3400.     dc.l    bmpatt16
  3401.  
  3402.  
  3403.     dc.l    bmpatt17tune
  3404.     dc.l    bmpatt17tune
  3405.  
  3406.     dc.l    bmend
  3407.     dc.l    pri
  3408.  
  3409.       dc.l     0,end_song
  3410.  
  3411.  
  3412. bm2:
  3413.     dc.l    trumpet_sound
  3414.     dc.l    bmpatt1
  3415.     dc.l    bmpatt1
  3416.     dc.l    bmpatt1
  3417.     dc.l    bmpatt1
  3418.     dc.l    bmpatt2
  3419.     dc.l    bmpatt1
  3420.     dc.l    bmpatt1
  3421.     dc.l    bmpatt3
  3422.     dc.l    bmpatt1
  3423.     dc.l    brass_sound
  3424.     dc.l    bmpatt4h
  3425.     dc.l    bmpatt4h
  3426.     dc.l    bmpatt4h
  3427.     dc.l    bmpatt4h
  3428.     dc.l    bmpatt4h
  3429.     dc.l    bmpatt6h
  3430.     dc.l    bmpatt4h
  3431.     dc.l    bmpatt4h
  3432.     dc.l    bmpatt4h
  3433.     dc.l    bmpatt4h
  3434.     dc.l    bmpatt9h
  3435.  
  3436.  
  3437. ;bm2:
  3438.     dc.l    pizpiano_sound
  3439.     dc.l    bmpatt10h1
  3440.     dc.l    flute_sound
  3441.  
  3442.     dc.l    bmpatt11h1
  3443.  
  3444.     dc.l    orch_hit_sound
  3445.     dc.l    bmpatt12stab
  3446.                 ;;;;;REAPEAT HERE
  3447.  
  3448.     dc.l    trumpet_sound
  3449.     dc.l    bmpatt1
  3450.     dc.l    bmpatt1
  3451.     dc.l    bmpatt1
  3452.     dc.l    bmpatt1
  3453.     dc.l    bmpatt2
  3454.     dc.l    bmpatt1
  3455.     dc.l    bmpatt1
  3456.     dc.l    bmpatt3
  3457.     dc.l    bmpatt1
  3458.     dc.l    brass_sound
  3459.     dc.l    bmpatt4h
  3460.     dc.l    bmpatt4h
  3461.     dc.l    bmpatt4h
  3462.     dc.l    bmpatt4h
  3463.     dc.l    bmpatt4h
  3464.     dc.l    bmpatt6h
  3465.     dc.l    bmpatt4h
  3466.     dc.l    bmpatt4h
  3467.     dc.l    bmpatt4h
  3468.     dc.l    bmpatt4h
  3469.     dc.l    bmpatt9h
  3470.  
  3471.  
  3472.  
  3473.     dc.l    pizpiano_sound
  3474.     dc.l    bmpatt13h1
  3475.  
  3476.     dc.l    flute_sound
  3477.     dc.l    bmpatt14flute2
  3478.  
  3479.  
  3480.     dc.l    orch_hit_sound
  3481.     dc.l    bmpatt15stab
  3482.  
  3483.     dc.l    trumpet_sound
  3484.     dc.l    bmpatt16h1
  3485.  
  3486.     dc.l    bass_sound
  3487.     dc.l    bmpatt17bass
  3488.     dc.l    bmpatt17bass
  3489.  
  3490.     dc.l    bmendbass
  3491.  
  3492.     dc.l    pri
  3493.  
  3494.       dc.l     0,end_song
  3495.  
  3496.  
  3497.  
  3498. bm3:
  3499.  
  3500.     dc.l    bm2br
  3501.     dc.l    bass_sound
  3502.     dc.l    bmpatt5
  3503.     dc.l     bmpatt2
  3504.     dc.l    bmpatt5
  3505.     dc.l    bmpatt3
  3506.     dc.l    bmpatt1
  3507.     dc.l    bm2br
  3508.     dc.l    trumpet_sound
  3509.     dc.l    bmpatt7
  3510.     dc.l    orch_hit_sound
  3511.     dc.l    bmpatt8
  3512.  
  3513.     dc.l    orch_hit_sound
  3514.  
  3515.     dc.l    bmpatt9
  3516.  
  3517.  
  3518. ;bm3:
  3519.     dc.l    pizpiano_sound
  3520.     dc.l    bmpatt10h2
  3521.  
  3522.     dc.l    flute_sound
  3523.  
  3524.     dc.l    bmpatt11h2
  3525.  
  3526.     dc.l    bass_sound
  3527.     dc.l    bmpatt12b1
  3528.  
  3529.                 ;;;;;REAPEAT HERE
  3530.  
  3531.  
  3532.     dc.l    bm2br
  3533.     dc.l    bass_sound
  3534.     dc.l    bmpatt5
  3535.     dc.l     bmpatt2
  3536.     dc.l    bmpatt5
  3537.     dc.l    bmpatt3
  3538.     dc.l    bmpatt1
  3539.     dc.l    bm2br
  3540.     dc.l    trumpet_sound
  3541.     dc.l    bmpatt7
  3542.     dc.l    orch_hit_sound
  3543.     dc.l    bmpatt8
  3544.  
  3545.     dc.l    orch_hit_sound
  3546.  
  3547.     dc.l    bmpatt9
  3548.  
  3549.  
  3550.  
  3551.  
  3552.     dc.l    pizpiano_sound
  3553.     dc.l    bmpatt13h2
  3554.  
  3555.     dc.l    orch_hit_sound
  3556.     dc.l    bmpatt14stab
  3557.  
  3558.     dc.l    bass_sound
  3559.     dc.l    bmpatt15flute
  3560.  
  3561.     dc.l    trumpet_sound
  3562.     dc.l    bmpatt16h2
  3563.  
  3564.  
  3565.     dc.l    orch_hit_sound
  3566.     dc.l    bmpatt17stab
  3567.     dc.l    bmpatt17stab
  3568.  
  3569.     dc.l    bmendstab
  3570.  
  3571.     dc.l    pri
  3572.  
  3573.       dc.l     0,end_song
  3574.  
  3575.  
  3576. bm4:
  3577.  
  3578.     dc.l    bm2br
  3579.     dc.l    string_sound
  3580.     dc.l    bmpatt5o
  3581.     dc.l     bmpatt2
  3582.     dc.l    bmpatt5o
  3583.     dc.l    bmpatt3
  3584.     dc.l    bmpatt1
  3585.  
  3586.     dc.l    flute_sound
  3587.     dc.l    bmpatt1
  3588.     dc.l    bmpatt1
  3589.     
  3590.  
  3591.     dc.l    bass_sound
  3592.     dc.l    bmpatt7
  3593.     dc.l    bmpatt8
  3594.     dc.l    bass_sound
  3595.     dc.l    bmpatt9hb
  3596.  
  3597.  
  3598. ;bm4:
  3599.  
  3600.  
  3601.     dc.l    trumpet_sound
  3602.     dc.l    bmpatt10b
  3603.  
  3604.     dc.l    orch_hit_sound
  3605.     dc.l    bmp11stab
  3606.  
  3607.     dc.l    bass_sound
  3608.     dc.l    bmpatt12b2
  3609.     
  3610.                 ;;;;;REAPEAT HERE
  3611.  
  3612.  
  3613.  
  3614.     dc.l    bm2br
  3615.     dc.l    string_sound
  3616.     dc.l    bmpatt5o
  3617.     dc.l     bmpatt2
  3618.     dc.l    bmpatt5o
  3619.     dc.l    bmpatt3
  3620.     dc.l    bmpatt1
  3621.  
  3622.     dc.l    flute_sound
  3623.     dc.l    bmpatt1
  3624.     dc.l    bmpatt1
  3625.     
  3626.  
  3627.     dc.l    bass_sound
  3628.     dc.l    bmpatt7
  3629.     dc.l    bmpatt8
  3630.     dc.l    bass_sound
  3631.     dc.l    bmpatt9hb
  3632.  
  3633.  
  3634.  
  3635.  
  3636.     dc.l    snare_sound
  3637.     dc.l    bmpatt13snare
  3638.     dc.l    bmpatt13snare
  3639.     dc.l    bmpatt13snare
  3640.     dc.l    bmpatt13snare
  3641.     dc.l    bmpatt13snare
  3642.     dc.l    bmpatt13snare
  3643.  
  3644.     dc.l    bass_sound
  3645.     dc.l    bmpatt14bass
  3646.  
  3647.     dc.l    bmpatt15bass
  3648.  
  3649.  
  3650.     dc.l    trumpet_sound
  3651.     dc.l    bmpatt16h3
  3652.  
  3653.     dc.l    snare_sound
  3654.     dc.l    bmpatt13snare
  3655.     dc.l    bmpatt13snare
  3656.     dc.l    bmpatt13snare
  3657.     dc.l    bmpatt13snare
  3658.  
  3659.     dc.l    bmpatt13snare
  3660.     dc.l    bmpatt13snare
  3661.     dc.l    bmpatt13snare
  3662.     dc.l    bmpatt13snare
  3663.  
  3664.     dc.l    bmendsnare
  3665.     dc.l pri_new_tune
  3666.  
  3667.       dc.l     0,end_song
  3668.  
  3669.  
  3670.  
  3671.  
  3672.  
  3673. bm2br
  3674.     dc.w rest,cr*8
  3675.     dc.w end_patt
  3676.  
  3677. bm1br
  3678.     dc.w rest,cr*4
  3679.     dc.w end_patt
  3680.  
  3681. bmib
  3682.     dc.w rest,cr*100
  3683.     dc.w end_patt
  3684.  
  3685. ;**************************
  3686.  
  3687. bmendstab
  3688.     dc.w bb02,cr,bb02,cr
  3689.     dc.w rest,cr*2,bb02,cr*4
  3690.  
  3691.     dc.w end_patt
  3692.  
  3693. bmendbass
  3694.     dc.w bb01,cr,bb01,cr
  3695.     dc.w rest,cr*2,bb01,cr*4
  3696.     dc.w end_patt
  3697.  
  3698. bmend
  3699.     dc.w bb02,cr,bb02,cr
  3700.     dc.w rest,cr,f02,tq1,gb02,tq2,ab02,tq1,bb02,cr*4
  3701.     dc.w end_patt
  3702.  
  3703. bmendsnare
  3704.     dc.w r16,cr,r16,cr
  3705.     dc.w rest,cr,r16,tq1,r16,tq2,r16,tq1,r16,cr*4
  3706.     dc.w end_patt
  3707.  
  3708.  
  3709.  
  3710. bmpatt17tune
  3711.     dc.w bb02,q,a02,q,bb02,q,a02,q,ab02,q,g02,q,ab02,q,g02,q
  3712.     dc.w gb02,q,f02,q,e02,q,db02,q,c02,q,eb02,q,gb02,q,a02,q
  3713.  
  3714.     dc.w bb02,q,a02,q,bb02,q,a02,q,ab02,q,g02,q,ab02,q,g02,q
  3715.     dc.w gb02,q,f02,q,e02,q,db02,q,c02,q,eb02,q,gb02,q,a02,q
  3716.     dc.w end_patt
  3717.  
  3718. bmpatt17bass
  3719.     dc.w bb02,cr,f03,cr,bb02,cr,f03,cr
  3720.     dc.w bb02,cr,gb03,cr,bb02,cr,g03,cr
  3721.  
  3722.     dc.w bb02,cr,f03,cr,bb02,cr,f03,cr
  3723.     dc.w bb02,cr,gb03,cr,bb02,cr,g03,cr
  3724.     dc.w end_patt
  3725.  
  3726. bmpatt17stab
  3727.     dc.w rest,cr,f03,cr*2,f03,cr*2
  3728.     dc.w gb03,cr*2,g03,cr*2
  3729.     dc.w f03,cr*2,f03,cr*2
  3730.     dc.w gb03,cr*2,g03,cr
  3731.     dc.w end_patt
  3732.  
  3733. bmpatt16
  3734.  
  3735.     dc.w a02,sq,a03,sq,ab02,sq,ab03,sq
  3736.     dc.w a02,sq,a03,sq,ab02,sq,ab03,sq
  3737.     dc.w a02,sq,a03,sq,e02,sq,e03,sq
  3738.     dc.w eb02,sq,eb03,sq,d02,sq,d03,sq
  3739.  
  3740.     dc.w db02,sq,db03,sq,c02,sq,c03,sq
  3741.     dc.w b01,sq,b02,sq,bb01,sq,bb02,sq
  3742.     dc.w a01,sq,a02,sq,ab01,sq,ab02,sq
  3743.     dc.w g01,sq,g02,sq,gb01,sq,gb02,sq
  3744.  
  3745.     dc.w f01,sq,f02,sq,gb01,sq,gb02,sq
  3746.     dc.w g01,sq,g02,sq,ab01,sq,ab02,sq
  3747.     dc.w a01,sq,a02,sq,bb01,sq,bb02,sq
  3748.     dc.w b01,sq,b02,sq,c02,sq,c03,sq
  3749.  
  3750.     dc.w db02,sq,db03,sq,d02,sq,d03,sq
  3751.     dc.w eb02,sq,eb03,sq,e02,sq,e03,sq
  3752.     dc.w f02,sq,f03,sq,g02,sq,g03,sq
  3753.     dc.w ab02,sq,ab03,sq,a02,sq,a03,sq
  3754.  
  3755.     dc.w end_patt
  3756.  
  3757. bmpatt16h1
  3758.     dc.w b01,cr*16
  3759.     dc.w end_patt
  3760.  
  3761. bmpatt16h2
  3762.     dc.w eb02,cr*16
  3763.     dc.w end_patt
  3764.  
  3765. bmpatt16h3
  3766.     dc.w f02,cr*16
  3767.     dc.w end_patt
  3768.  
  3769.  
  3770. bmpatt15flute
  3771.     dc.w a02,q,gb02,q,a02,q,e02,q,f02,q,e02,q,f02,q
  3772.     dc.w ab02,q
  3773.     dc.w a02,q,ab02,q,a02,q,e02,q,f02,q,e02,q,f02,q,g02,q
  3774.     dc.w a02,q,ab02,q,a02,q,e02,q,f02,q,e02,q,f02,q,g02,q
  3775.     dc.w a02,q,ab02,q,a02,q,e02,q,f02,q,e02,q,f02,q,g02,q
  3776.     dc.w a02,q,ab02,q,a02,q,e02,q,f02,q,e02,q,f02,q,g02,q
  3777.     dc.w a02,q,ab02,q,a02,q,e02,q,f02,q,e02,q,f02,q,g02,q
  3778.     dc.w end_patt
  3779.  
  3780. bmpatt15stab
  3781.     dc.w a03,cr*8,f03,cr*10,f03,tcr1,f03,tcr2,f03,tcr1
  3782.     dc.w f03,cr*2,f03,cr*2
  3783.     dc.w end_patt
  3784.  
  3785.  
  3786. bmpatt15bass
  3787.     dc.w a02,cr*8,f02,cr*10,f02,tcr1,f02,tcr2,f02,tcr1
  3788.     dc.w f02,cr*2,f02,cr*2
  3789.     dc.w end_patt
  3790.  
  3791. bmpatt15trumpet
  3792.     dc.w rest,cr*6,f03,cr*10,f03,tcr1,f03,tcr2,f03,tcr1
  3793.     dc.w f03,cr*2,f03,cr*2
  3794.     dc.w end_patt
  3795.  
  3796.  
  3797. bmpatt14stab
  3798.     dc.w    a03,cr*6,a03,cr*2,d03,cr*6
  3799.     dc.w    d03,cr*2+q,a03,cr*5+q,a03,cr*2
  3800.     dc.w    d03,cr*6,d03,cr*2
  3801.     dc.w end_patt
  3802.     
  3803. bmpatt14bass
  3804.     dc.w    a02,cr*6,a03,cr*2,d02,cr*6
  3805.     dc.w    c03,cr*2+q,a02,cr*5+q,a03,cr*2
  3806.     dc.w    d02,cr*6,c03,cr*2
  3807.     dc.w end_patt
  3808.  
  3809.  
  3810. bmpatt14flute
  3811.     dc.w    e02,q,e02,cr,f02,q,e02,q,d02,q,e02,q,f02,q
  3812.     dc.w    g02,cr,a02,cr
  3813.     dc.w    e03,q,e02,tsq1,f02,tsq2,g02,tsq1
  3814.     dc.w    a02,q,a02,dsq,g02,dsq,f02,dsq,e02,dsq
  3815.     dc.w    d02,q,a02,cr,bb02,q,a02,q,g02,q,a02,q,bb02,q
  3816.     dc.w    c03,cr,d03,cr,a02,q,d03,dsq,e03,dsq,f03,dsq
  3817.     dc.w    g03,dsq,a03,q,a03,tsq1,g03,tsq2,f03,tsq1
  3818.     dc.w    e03,q
  3819.  
  3820.     dc.w    e02,cr,f02,q,e02,q,d02,q,e02,q,f02,q
  3821.     dc.w    g02,cr,a02,cr
  3822.     dc.w    e03,q,e02,tsq1,f02,tsq2,g02,tsq1
  3823.     dc.w    a02,q,a02,dsq,g02,dsq,f02,dsq,e02,dsq
  3824.     dc.w    d02,q,a02,cr,bb02,q,a02,q,g02,q,a02,q,bb02,q
  3825.     dc.w    c03,cr,d03,cr,a02,q,d03,dsq,e03,dsq,f03,dsq
  3826.     dc.w    g03,dsq,a03,q,a03,tsq1,g03,tsq2,f03,tsq1
  3827.     dc.w end_patt
  3828.  
  3829. bmpatt14flute2
  3830.     dc.w    a02,q,a02,cr,a02,q,a02,q,a02,q,a02,q,a02,q
  3831.     dc.w    a02,cr,a02,cr
  3832.     dc.w    rest,cr*2+q
  3833.     dc.w    d02,cr,d02,q,d02,q,d02,q,d02,q,d02,q
  3834.     dc.w    d02,cr,d02,cr
  3835.     dc.w    rest,cr*2+q
  3836.  
  3837.     dc.w    a02,cr,a02,q,a02,q,a02,q,a02,q,a02,q
  3838.     dc.w    a02,cr,a02,cr
  3839.     dc.w    rest,cr*2+q
  3840.     dc.w    d02,cr,d02,q,d02,q,d02,q,d02,q,d02,q
  3841.     dc.w    d02,cr,d02,cr
  3842.     dc.w    rest,cr*2
  3843.     dc.w end_patt
  3844.  
  3845.  
  3846.  
  3847.  
  3848. bmpatt13snare
  3849.  
  3850.     dc.w    r16,q,r16,tsq1,r16,tsq2,r16,tsq1,r16,q,r16,q
  3851.     dc.w    r16,q,r16,q,r16,q,r16,q
  3852.  
  3853.     dc.w end_patt
  3854.  
  3855.  
  3856. bmpatt13
  3857.     dc.w d02,sq,d02,q+sq    
  3858.     dc.w d02,sq,d02,q+sq    
  3859.     dc.w d02,sq,d02,q+sq    
  3860.     dc.w d02,sq,d02,q+sq    
  3861.  
  3862.     dc.w d02,sq,d02,q+sq    
  3863.     dc.w d02,sq,d02,q+sq    
  3864.     dc.w d02,sq,d02,q+sq    
  3865.     dc.w d02,sq,d02,q+sq    
  3866.  
  3867.     dc.w c02,sq,c02,q+sq    
  3868.     dc.w b01,sq,b01,q+sq    
  3869.     dc.w c02,sq,c02,q+sq    
  3870.     dc.w b01,sq,b01,q+sq    
  3871.  
  3872.  
  3873.     dc.w d02,sq,d02,q+sq    
  3874.     dc.w d02,sq,d02,q+sq    
  3875.     dc.w d02,sq,d02,q+sq    
  3876.     dc.w d02,sq,d02,q+sq    
  3877.  
  3878.  
  3879.     dc.w d02,sq,d02,q+sq    
  3880.     dc.w d02,sq,d02,q+sq    
  3881.     dc.w d02,sq,d02,q+sq    
  3882.     dc.w d02,sq,d02,q+sq    
  3883.  
  3884.  
  3885.     dc.w c02,sq,c02,q+sq    
  3886.     dc.w b01,sq,b01,q+sq    
  3887.     dc.w c02,sq,c02,q+sq    
  3888.     dc.w b01,sq,b01,q+sq    
  3889.     dc.w end_patt
  3890.  
  3891. bmpatt13h1
  3892.  
  3893.     dc.w gb02,sq,gb02,q+sq
  3894.     dc.w gb02,sq,gb02,q+sq
  3895.     dc.w gb02,sq,gb02,q+sq
  3896.     dc.w gb02,sq,gb02,q+sq
  3897.  
  3898.     dc.w gb02,sq,gb02,q+sq
  3899.     dc.w gb02,sq,gb02,q+sq
  3900.     dc.w gb02,sq,gb02,q+sq
  3901.     dc.w gb02,sq,gb02,q+sq
  3902.  
  3903.     dc.w eb02,sq,eb02,q+sq    
  3904.     dc.w eb02,sq,eb02,q+sq    
  3905.     dc.w eb02,sq,eb02,q+sq    
  3906.     dc.w eb02,sq,eb02,q+sq    
  3907.  
  3908.     dc.w gb02,sq,gb02,q+sq
  3909.     dc.w gb02,sq,gb02,q+sq
  3910.     dc.w gb02,sq,gb02,q+sq
  3911.     dc.w f02,sq,f02,q+sq
  3912.  
  3913.     dc.w gb02,sq,gb02,q+sq
  3914.     dc.w gb02,sq,gb02,q+sq
  3915.     dc.w gb02,sq,gb02,q+sq
  3916.     dc.w f02,sq,f02,q+sq
  3917.  
  3918.  
  3919.     dc.w eb02,sq,eb02,q+sq    
  3920.     dc.w eb02,sq,eb02,q+sq    
  3921.     dc.w eb02,sq,eb02,q+sq    
  3922.     dc.w eb02,sq,eb02,q+sq    
  3923.  
  3924.     dc.w end_patt
  3925.  
  3926.  
  3927. bmpatt13h2
  3928.  
  3929.     dc.w c03,sq,c03,q+sq
  3930.     dc.w c03,sq,c03,q+sq
  3931.     dc.w c03,sq,c03,q+sq
  3932.     dc.w bb02,sq,bb02,q+sq
  3933.  
  3934.     dc.w c03,sq,c03,q+sq
  3935.     dc.w c03,sq,c03,q+sq
  3936.     dc.w c03,sq,c03,q+sq
  3937.     dc.w bb02,sq,bb02,q+sq
  3938.  
  3939.     dc.w a02,sq,a02,q+sq    
  3940.     dc.w g02,sq,g02,q+sq    
  3941.     dc.w a02,sq,a02,q+sq    
  3942.     dc.w g02,sq,g02,q+sq    
  3943.  
  3944.     dc.w c03,sq,c03,q+sq
  3945.     dc.w c03,sq,c03,q+sq
  3946.     dc.w c03,sq,c03,q+sq
  3947.     dc.w bb02,sq,bb02,q+sq
  3948.  
  3949.     dc.w c03,sq,c03,q+sq
  3950.     dc.w c03,sq,c03,q+sq
  3951.     dc.w c03,sq,c03,q+sq
  3952.     dc.w bb02,sq,bb02,q+sq
  3953.  
  3954.     dc.w a02,sq,a02,q+sq    
  3955.     dc.w g02,sq,g02,q+sq    
  3956.     dc.w a02,sq,a02,q+sq    
  3957.     dc.w g02,sq,g02,q+sq    
  3958.  
  3959.     dc.w end_patt
  3960.  
  3961.  
  3962.  
  3963.  
  3964.  
  3965.  
  3966. bmpatt12stab
  3967.     dc.w rest,cr
  3968.     dc.w g03,cr*4,f03,cr*2,e03,cr*4,a03,cr*4
  3969.     dc.w end_patt
  3970.         
  3971. bmpatt12b1
  3972.     dc.w g02,cr,eb02,cr*2,d03,cr,ab02,cr,d02,cr*2
  3973.     dc.w g02,cr*4,g02,cr*4 
  3974.     dc.w end_patt
  3975.  
  3976. bmpatt12b2
  3977.     dc.w g01,cr,g02,cr*2,f03,cr,ab01,cr,f02,cr*2
  3978.     dc.w e02,cr*4,e02,cr*4 
  3979.     dc.w end_patt
  3980.  
  3981. bmpatt12flute
  3982.     dc.w rest,cr-dsq-dsq-dsq,d03,dsq,eb03,dsq,f03,dsq
  3983.     dc.w g03,q,rest,q+cr*3-dsq-dsq-dsq
  3984.     dc.w db03,dsq,d03,dsq,e03,dsq,f03,q,rest,q+cr
  3985.     dc.w a02,sq,bb02,sq
  3986.     dc.w a02,sq,bb02,sq
  3987.     dc.w a02,sq,bb02,sq
  3988.     dc.w a02,sq,bb02,sq
  3989.     dc.w a02,sq,bb02,sq
  3990.     dc.w a02,sq,bb02,sq
  3991.     dc.w a02,sq,bb02,sq
  3992.     dc.w a02,sq,bb02,sq
  3993.     dc.w a03,q,rest,cr*3+q
  3994.     dc.w end_patt
  3995.  
  3996.  
  3997. bmp11stab
  3998.     dc.w  gb03,cr*8
  3999.     dc.w rest,cr
  4000.     dc.w end_patt
  4001.  
  4002.  
  4003. bmpatt11
  4004.  
  4005.     dc.w gb02,q,gb02,q,gb02,q,gb02,q
  4006.     dc.w g02,q,g02,q,a02,q,a02,q
  4007.     dc.w bb02,q,bb02,q,bb02,q,bb02,q
  4008.     dc.w a02,q,a02,q,a02,q,a02,q
  4009.     dc.w g02,cr
  4010.     dc.w end_patt
  4011.  
  4012.  
  4013. bmpatt11h1
  4014.  
  4015.     dc.w d02,q,d02,q,d02,q,d02,q
  4016.     dc.w e02,q,e02,q,f02,q,f02,q
  4017.     dc.w g02,q,g02,q,g02,q,g02,q
  4018.     dc.w gb02,q,gb02,q,gb02,q,gb02,q
  4019.     dc.w eb02,cr
  4020.     dc.w end_patt
  4021.  
  4022. bmpatt11h2
  4023.  
  4024.     dc.w rest,cr*2
  4025.     dc.w d02,q,d02,q,d02,q,d02,q
  4026.     dc.w d02,q,d02,q,d02,q,d02,q
  4027.     dc.w d02,q,d02,q,d02,q,d02,q
  4028.     dc.w rest,cr
  4029.     dc.w end_patt
  4030.  
  4031. bmpatt10
  4032.     dc.w    gb02,tq1,gb02,tq2,gb02,tq1
  4033.     dc.w    e02,tq1,e02,tq2,e02,tq1
  4034.     dc.w    gb02,tq1,gb02,tq2,gb02,tq1
  4035.     dc.w    bb02,tq1,bb02,tq2,bb02,tq1
  4036.  
  4037.     dc.w    gb02,tq1,gb02,tq2,gb02,tq1
  4038.     dc.w    a02,tq1,a02,tq2,a02,tq1
  4039.     dc.w    d02,tq1,d02,tq2,d02,tq1
  4040.     dc.w    gb02,tq1,gb02,tq2,gb02,tq1
  4041.  
  4042.     dc.w    gb02,q,gb02,q
  4043.     dc.w    e02,q,e02,q
  4044.     dc.w    gb02,q,gb02,q
  4045.     dc.w    bb02,q,bb02,q
  4046.     dc.w    gb02,q,gb02,q
  4047.     dc.w    a02,q,a02,q
  4048.     dc.w    d02,q,d02,q
  4049.     dc.w    gb02,q,gb02,q
  4050.     dc.w end_patt
  4051.  
  4052. bmpatt10h1
  4053.     dc.w    d02,tq1,d02,tq2,d02,tq1
  4054.     dc.w    c02,tq1,c02,tq2,c02,tq1
  4055.     dc.w    d02,tq1,d02,tq2,d02,tq1
  4056.     dc.w    d02,tq1,d02,tq2,d02,tq1
  4057.  
  4058.     dc.w    d02,tq1,d02,tq2,d02,tq1
  4059.     dc.w    c02,tq1,c02,tq2,c02,tq1
  4060.     dc.w    d02,tq1,d02,tq2,d02,tq1
  4061.     dc.w    a01,tq1,a01,tq2,a01,tq1
  4062.  
  4063.     dc.w    d02,q,d02,q
  4064.     dc.w    c02,q,c02,q
  4065.     dc.w    d02,q,d02,q
  4066.     dc.w    d02,q,d02,q
  4067.     dc.w    d02,q,d02,q
  4068.     dc.w    c02,q,c02,q
  4069.     dc.w    d02,q,d02,q
  4070.     dc.w    a01,q,a01,q
  4071.     ;dc.w    a01,cr*4
  4072.     dc.w end_patt
  4073.  
  4074. bmpatt10h2
  4075.     dc.w    rest,cr
  4076.     dc.w    a01,tq1,a01,tq2,a01,tq1
  4077.     dc.w    rest,cr
  4078.     dc.w    b01,tq1,b01,tq2,b01,tq1
  4079.  
  4080.     dc.w    rest,cr
  4081.     dc.w    a01,tq1,a01,tq2,a01,tq1
  4082.     dc.w    rest,cr
  4083.     dc.w    gb01,tq1,gb01,tq2,gb01,tq1
  4084.  
  4085.     dc.w    rest,cr
  4086.     dc.w    a01,q,a01,q
  4087.     dc.w    rest,cr
  4088.     dc.w    bb01,q,bb01,q
  4089.     dc.w    rest,cr
  4090.     dc.w    a01,q,a01,q
  4091.     dc.w    rest,cr
  4092.     dc.w    gb01,q,gb01,q
  4093.     ;dc.w    gb01,cr*4
  4094.     dc.w end_patt
  4095.  
  4096.  
  4097. bmpatt10b
  4098.     dc.w    d02,cr*16
  4099.     dc.w end_patt
  4100.  
  4101.  
  4102. bmpatt1
  4103.     dc.w a02,tq1,ab02,tq2,a02,tq1
  4104.     dc.w bb02,tq1,a02,tq2,g02,tq1
  4105.     dc.w a02,tq1,ab02,tq2,a02,tq1
  4106.     dc.w bb02,tq1,a02,tq2,g02,tq1
  4107.     dc.w end_patt
  4108.  
  4109. bmpatt2
  4110.     dc.w a02,cr*2-dsq-dsq-dsq
  4111.     dc.w bb02,dsq,c03,dsq,d03,dsq
  4112.     dc.w eb03,cr*2-dsq-dsq-dsq
  4113.     dc.w d03,dsq,c03,dsq,b02,dsq
  4114.     dc.w a02,cr*2-dsq-dsq-dsq
  4115.     dc.w b02,dsq,c03,dsq,d03,dsq,e03,cr*2
  4116.     dc.w end_patt
  4117.  
  4118. bmpatt3
  4119.     dc.w a02,cr*2-dsq-dsq
  4120.     dc.w bb02,dsq,c03,dsq,d03,dsq,e03,dsq
  4121.     dc.w f03,cr*2-dsq-dsq
  4122.     dc.w e03,dsq,d03,dsq,c03,dsq,b02,dsq
  4123.     dc.w a02,cr*2-dsq-dsq
  4124.     dc.w b02,dsq,c03,dsq,d03,dsq,e03,dsq,gb03,cr*2
  4125.     dc.w end_patt
  4126.  
  4127. bmpatt4
  4128.  
  4129.     dc.w    a02,q,ab02,q,ab02,q,a02,q
  4130.     dc.w    a02,q,ab02,q,ab02,q,a02,q
  4131.  
  4132.     dc.w end_patt
  4133.  
  4134. bmpatt4h
  4135.  
  4136.     dc.w    f02,q,f02,q,f02,q,f02,q
  4137.     dc.w    f02,q,f02,q,f02,q,f02,q
  4138.  
  4139.     dc.w end_patt
  4140.  
  4141. bmpatt6
  4142.  
  4143.     dc.w    c03,q,b02,q,b02,q,c03,q
  4144.     dc.w    c03,q,b02,q,b02,q,c03,q
  4145.     dc.w     b02,q,bb02,q,bb02,q,b02,q
  4146.     dc.w     b02,q,bb02,q,bb02,q,b02,q
  4147.     dc.w     b02,q,bb02,q,bb02,q,b02,q
  4148.     dc.w    c03,q,b02,q,b02,q,c03,q
  4149.  
  4150.     dc.w end_patt
  4151.  
  4152. bmpatt6h
  4153.  
  4154.     dc.w    a02,q,a02,q,a02,q,a02,q
  4155.     dc.w    a02,q,a02,q,a02,q,a02,q
  4156.     dc.w    f02,q,f02,q,f02,q,f02,q
  4157.     dc.w    f02,q,f02,q,f02,q,f02,q
  4158.     dc.w    f02,q,f02,q,f02,q,f02,q
  4159.     dc.w    f02,q,f02,q,f02,q,f02,q
  4160.  
  4161.     dc.w end_patt
  4162.  
  4163. bmpatt7
  4164.     dc.w    f02,cr*4,e02,cr*6
  4165.     dc.w    d02,cr*2,e02,cr*2,f02,cr*2,ab02,cr*6
  4166.     dc.w    a02,cr*2,c02,cr*6
  4167.     dc.w end_patt
  4168.  
  4169. ;bmpatt7a
  4170.     ;dc.w c02,cr*2
  4171.     ;dc.w end_patt
  4172.  
  4173.  
  4174. bmpatt8
  4175.     dc.w    c03,tcr1,c03,tcr2,c03,tcr1
  4176.     dc.w    d03,cr*6,d03,tcr1,d03,tcr2,d03,tcr1
  4177.  
  4178.     dc.w end_patt
  4179.  
  4180.  
  4181.  
  4182. bmpatt5
  4183.     dc.w a01,cr,ab01,cr,bb01,cr,a01,cr
  4184.     dc.w a01,cr,ab01,cr,bb01,cr,a01,cr
  4185.     dc.w end_patt
  4186.  
  4187.  
  4188. bmpatt5o
  4189.     dc.w a02,cr,ab02,cr,bb02,cr,a02,cr
  4190.     dc.w a02,cr,ab02,cr,bb02,cr,a02,cr
  4191.     dc.w end_patt
  4192.  
  4193.  
  4194. clickbm
  4195.     dc.w r16,cr,r16,cr,r16,cr,r16,cr
  4196.     dc.w end_patt
  4197.  
  4198.  
  4199. bmpatt9
  4200.     dc.w d03,cr*4,e03,cr*4
  4201.     dc.w end_patt
  4202.  
  4203. bmpatt9h
  4204.     dc.w g03,cr*4,g03,cr*4
  4205.     dc.w end_patt
  4206.  
  4207. bmpatt9hb
  4208.     dc.w bb02,cr*4,bb02,cr*4
  4209.     dc.w end_patt
  4210. bmpatt9hbo
  4211.     dc.w bb01,cr*4,bb01,cr*4
  4212.     dc.w end_patt
  4213.  
  4214.  
  4215.  
  4216.  
  4217.  
  4218. ;----------------------------------
  4219.  
  4220. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4221.  
  4222. cr  set   20
  4223. q set  cr/2
  4224. sq set q/2
  4225.  
  4226. tcr1 set 7
  4227. tcr2 set 6
  4228. tq1 set      7
  4229. tq2 set   6
  4230. tsq1 set  3
  4231. tsq2 set 4
  4232.  
  4233.  
  4234. ssilent:
  4235.     dc.l    pr
  4236.       dc.l     0,end_song
  4237.  
  4238. ssilent4:
  4239.     dc.l    pr
  4240.       dc.l     0,end_song
  4241.  
  4242. ;ssilent4:
  4243.     dc.l pri_new_tune
  4244.       dc.l     0,end_song
  4245.  
  4246.  
  4247.  
  4248. ;************************************************
  4249.  
  4250. s1:        ;main tunes
  4251.  
  4252.     dc.l    p1strg,p1o1,p1fh,p1o1,p2synbras1,p2,p2pizzo2,p2
  4253.     dc.l    p1violin1,p1o1,p3flute2,p3
  4254.  
  4255.  
  4256.  
  4257. ;s1
  4258.     dc.l    dll
  4259.  
  4260.                 ;cp1
  4261.     dc.l    p3flute2l,p2,p2synbras1l,p2
  4262.  
  4263. ;s1
  4264.     dc.l pbasstrip
  4265.  
  4266. ;s1
  4267.     dc.l runbass,endrunbass,runbass2
  4268.  
  4269. ;s1    
  4270.     dc.l synbral,loudtune
  4271.  
  4272.     ;dc.l pr4,pr4
  4273.  
  4274.     dc.l synbral,p1o1,ptunex
  4275.  
  4276. ;s1
  4277.     dc.l flutel,endtune,endtune2,endtune,endtune2
  4278.     dc.l endtune,endtune
  4279.  
  4280.     dc.l pr1beat,tr,tr,tr,tr,tr,tr,tr
  4281.  
  4282.     dc.l tympre1
  4283.  
  4284.     dc.l pr1beat,tr,pr1beat,pr1beat
  4285.     dc.l pr4
  4286.  
  4287.     dc.l pri
  4288.  
  4289.       dc.l     0,end_song
  4290. ;---------------
  4291.  
  4292. s2:        ;bass
  4293.  
  4294.     dc.l    p1bass,p1bass_end,lastbarb,pbasstrip
  4295.  
  4296. ;s2
  4297.     dc.l    pizpiano,p1o1,p1o1
  4298.                     ;cp2
  4299.  
  4300.     dc.l    pbassq
  4301.  
  4302. ;s2
  4303.     dc.l p3flute2,pflute_trip
  4304.  
  4305.  
  4306. ;s2    
  4307.     dc.l    p1strgll,p1o1,p1o1
  4308.     dc.l    p2synbras1l,p2
  4309.  
  4310. ;s2
  4311.     dc.l    loudbass,loudtune
  4312.     dc.l flutel,trills,pr1bar
  4313.  
  4314. ;s2    
  4315.     dc.l endtymp,endtymp2,pr1bar,pr1bar
  4316.     dc.l endtymp,endtymp2,pr1bar,pr1bar
  4317.     dc.l endtymp,endtymp2
  4318.  
  4319.     dc.l pr1beat,rs,rs,rs,rs,rs,rs,rs
  4320.  
  4321.     dc.l tympre2
  4322.  
  4323.     dc.l es1
  4324.     dc.l pr4
  4325.     dc.l pri
  4326.  
  4327.         DC.L    0,end_song
  4328.  
  4329. ;---------------
  4330.  
  4331. s3:
  4332.         ;accomp
  4333.     dc.l    p1rest,p1rest,p1strgl,p2,flutebit
  4334.     dc.l    pvacc
  4335. ;s3    
  4336.     dc.l    orchhitp1,snarerollgb,snarerollgb,snarerolld,snarerollgb
  4337.     dc.l    snarerollgb,snarerollgb,snarerolld,snarerollgb
  4338.  
  4339.     dc.l    snarerollgb,snarerollgb,snarerolld,snarerollgb
  4340.     dc.l    snarerollgb,snarerollgb,snarerolld,snarerollgb
  4341.  
  4342. ;s3
  4343.     dc.l    pizpiano,p1o1,ptunex
  4344.  
  4345. ;s3
  4346.     dc.l    p1strgl,pstrgnote
  4347.     dc.l    orch1note
  4348.  
  4349. ;s3
  4350.     dc.l    orchitsnd,orchloud
  4351.     dc.l    loudbass,p1bassd,pr1bar        ;,endbass,pr1bar
  4352.  
  4353. ;s3
  4354.     dc.l    endstab,endstab2,endbass_bit2
  4355.     dc.l    endstab,endstab2,endbass_bit2
  4356.  
  4357.     dc.l    endstab,endstab2
  4358.  
  4359.     dc.l tymp1b,rs1,rs1,rs1,rs1,rs1,rs1,rs1
  4360.  
  4361.     dc.l tympre1x
  4362.  
  4363.     dc.l es2
  4364.     dc.l pr4
  4365.     dc.l pri
  4366.  
  4367.       dc.l     0,end_song
  4368. ;---------------
  4369.         ; any thing else we can think of
  4370. s4:
  4371.     dc.l    p1rest,p1rest,p1rest,pizzo2q,p2delay
  4372.  
  4373.  
  4374.     dc.l    p1synbras1,p1o1,tymproll
  4375.  
  4376. ;s4    
  4377.     dc.l    bassstabs,p1rest,p3flute2l,orchitp2
  4378.  
  4379. ;s4
  4380.     dc.l snareroll
  4381.  
  4382. ;s4
  4383.     dc.l snarebeat
  4384.     dc.l p2pizzo2,runbass2
  4385.  
  4386. ;s4
  4387.     dc.l tympsnd_loud,tymploud
  4388.  
  4389.  
  4390.     dc.l snarerollb,snarerollb,snarerollb,snarerollb
  4391.     dc.l snarerollb,snarerollb,snarerolld,snarerolld
  4392.     dc.l snarerollb,snarerollb,snarerollb,snarerollb
  4393.     dc.l snarerollb,snarerollb
  4394.  
  4395.     dc.l pr1bar
  4396.  
  4397. ;s4
  4398.     dc.l endbass_bit
  4399.     dc.l endbass_bit
  4400.  
  4401.  
  4402.     dc.l pr1bar,pr1bar
  4403.     dc.l pr1bar,pr1bar
  4404.  
  4405.     dc.l tympre2x
  4406.  
  4407.     dc.l pr1beat,tr,pr1beat,pr1beat
  4408.     dc.l pr4
  4409.     dc.l pri_new_tune
  4410.  
  4411.       dc.l     0,end_song
  4412.  
  4413.  
  4414. ;---------------
  4415.  
  4416. pr:
  4417.     dc.w rest,cr*4
  4418.     dc.w end_patt
  4419.  
  4420. pr1bar:
  4421.     dc.w rest,cr*4
  4422.     dc.w end_patt
  4423.  
  4424. pr1beat:
  4425.     dc.w rest,cr
  4426.     dc.w end_patt
  4427.  
  4428. p1rest:
  4429.     dc.w rest,cr*16
  4430.     dc.w end_patt
  4431. pr1:
  4432.     dc.w rest,cr*16
  4433.     dc.w end_patt
  4434.  
  4435. pr4:
  4436.     dc.w rest,cr*16
  4437.     dc.w end_patt
  4438.  
  4439.  
  4440. prp:
  4441.     dc.w rest,cr*1000
  4442.     dc.w end_patt
  4443. prza:
  4444.     dc.w rest,q*7
  4445.     dc.w end_patt
  4446.  
  4447.  
  4448. p1strg:
  4449.       dc.w new_env
  4450.       dc.l strings1e
  4451.       dc.w new_snd
  4452.       dc.l strings2p
  4453.       dc.w end_patt
  4454.  
  4455. p1strgl:
  4456.       dc.w new_env
  4457.       dc.l strings1el
  4458.       dc.w new_snd
  4459.       dc.l strings2p
  4460.       dc.w end_patt
  4461.  
  4462. p1strgll:
  4463.       dc.w new_env
  4464.       dc.l strings1ell
  4465.       dc.w new_snd
  4466.       dc.l strings2p
  4467.  
  4468.       dc.w end_patt
  4469.  
  4470. french_kiss_sound
  4471. p1fh:
  4472.       dc.w new_env
  4473.       dc.l frehorne
  4474.       dc.w new_snd
  4475.       dc.l frehornp
  4476.       dc.w end_patt
  4477.  
  4478. p1synbra:
  4479.       dc.w new_env
  4480.       dc.l synbras1e
  4481.       dc.w new_snd
  4482.       dc.l synbras1p
  4483.       dc.w end_patt
  4484.  
  4485. synbral
  4486.       dc.w new_env
  4487.       dc.l synbras1el
  4488.       dc.w new_snd
  4489.       dc.l synbras1p
  4490.       dc.w end_patt
  4491.  
  4492. tympsnd_loud
  4493.       dc.w new_env
  4494.       dc.l tympel 
  4495.       dc.w new_snd
  4496.       dc.l newtympp
  4497.       dc.w end_patt
  4498.  
  4499. flute_loud_sound
  4500. flutel
  4501.       dc.w new_env
  4502.       dc.l flute2el
  4503.       dc.w new_snd
  4504.       dc.l newflutep
  4505.       dc.w end_patt
  4506.  
  4507. flute_loop
  4508.       dc.w new_env
  4509.       dc.l flute2el
  4510.       dc.w new_snd
  4511.       dc.l newflutelp
  4512.       dc.w end_patt
  4513.  
  4514.  
  4515.  
  4516. p1violin1:
  4517.       dc.w new_env
  4518.       dc.l violin1e
  4519.       dc.w new_snd
  4520.       dc.l violin1p
  4521.       dc.w end_patt
  4522.  
  4523. pizpiano:
  4524.       dc.w new_env
  4525.       dc.l pizpianoe
  4526.       dc.w new_snd
  4527.       dc.l pizpianop
  4528.       dc.w end_patt 
  4529.  
  4530. pizpiano_sound_very_quiet:
  4531.       dc.w new_env
  4532.       dc.l pizpianoevq
  4533.       dc.w new_snd
  4534.       dc.l pizpianop
  4535.       dc.w end_patt 
  4536.  
  4537.  
  4538.  
  4539.  
  4540. endtune
  4541.     dc.w rest,cr-9,ab02,3,a02,3,bb02,3,b02,cr,rest,cr*2
  4542.     dc.w end_patt
  4543.  
  4544. tr
  4545.       dc.w new_env
  4546.       dc.l flute2el
  4547.       dc.w new_snd
  4548.       dc.l newflutep
  4549.  
  4550.     dc.w ab02,3,a02,3,bb02,3,b02,20-9
  4551.     dc.w end_patt
  4552.  
  4553.  
  4554. endtune2
  4555.     dc.w rest,cr-9,ab02,3,a02,3,bb02,3,b02,cr,rest,cr*2
  4556.     dc.w b01,q,db02,q,d02,q,e02,q,gb02,q,d02,q,gb02,q,b02,q
  4557.     dc.w bb02,q,gb02,q,bb02,q,db03,q,b02,cr*2
  4558.     dc.w end_patt
  4559.  
  4560. tymp1b
  4561.       dc.w new_env
  4562.       dc.l tympel 
  4563.       dc.w new_snd
  4564.       dc.l newtympp
  4565.     dc.w b02,cr
  4566.     dc.w end_patt
  4567.  
  4568. tympre1
  4569.       dc.w new_env
  4570.       dc.l tympel 
  4571.       dc.w new_snd
  4572.       dc.l newtympp
  4573.     dc.w b02,cr,b02,cr,b02,cr,b02,cr
  4574.     dc.w b02,cr,b02,cr,b02,cr,b02,cr
  4575.     dc.w end_patt
  4576.  
  4577. tympre1x
  4578.       dc.w new_env
  4579.       dc.l tympel 
  4580.       dc.w new_snd
  4581.       dc.l newtympp
  4582.     dc.w rest,sq,b02,cr,b02,cr,b02,cr,b02,cr
  4583.     dc.w b02,cr,b02,cr,b02,cr,b02,cr-sq
  4584.     dc.w end_patt
  4585.  
  4586.  
  4587.  
  4588. tympre2
  4589.       dc.w new_env
  4590.       dc.l tympel 
  4591.       dc.w new_snd
  4592.       dc.l newtympp
  4593.     dc.w rest,q,b02,cr,b02,cr,b02,cr,b02,cr
  4594.     dc.w b02,cr,b02,cr,b02,cr,b02,cr-q
  4595.  
  4596.     dc.w end_patt
  4597.  
  4598. tympre2x
  4599.       dc.w new_env
  4600.       dc.l tympel 
  4601.       dc.w new_snd
  4602.       dc.l newtympp
  4603.     dc.w rest,q+sq,b02,cr,b02,cr,b02,cr,b02,cr
  4604.     dc.w b02,cr,b02,cr,b02,cr,b02,sq
  4605.  
  4606.     dc.w end_patt
  4607.  
  4608.  
  4609.  
  4610.  
  4611. endtymp
  4612.       dc.w new_env
  4613.       dc.l tympel 
  4614.       dc.w new_snd
  4615.       dc.l newtympp
  4616.     dc.w b02,cr
  4617.  
  4618.       dc.w new_env
  4619.       dc.l orchhite 
  4620.       dc.w new_snd
  4621.       dc.l orchhitpp
  4622.  
  4623.     dc.w g03,cr*3
  4624.     dc.w end_patt
  4625. endtymp2
  4626.       dc.w new_env
  4627.       dc.l tympel 
  4628.       dc.w new_snd
  4629.       dc.l newtympp
  4630.     dc.w b02,cr
  4631.  
  4632.       dc.w new_env
  4633.       dc.l orchhite 
  4634.       dc.w new_snd
  4635.       dc.l orchhitpp
  4636.  
  4637.     dc.w d03,cr*3
  4638.  
  4639.     dc.w end_patt
  4640.  
  4641. endstab
  4642.     dc.w rest,cr
  4643.  
  4644.       dc.w new_env
  4645.       dc.l orchhite 
  4646.       dc.w new_snd
  4647.       dc.l orchhitpp
  4648.     dc.w b02,cr*3
  4649.     dc.w end_patt
  4650.  
  4651. es1
  4652.       dc.w new_env
  4653.       dc.l orchhite 
  4654.       dc.w new_snd
  4655.       dc.l orchhitpp
  4656.     dc.w b01,cr,b02,cr*3
  4657.     dc.w end_patt
  4658.  
  4659. es2
  4660.       dc.w new_env
  4661.       dc.l orchhite 
  4662.       dc.w new_snd
  4663.       dc.l orchhitpp
  4664.     dc.w b02,cr,d03,cr*3
  4665.     dc.w end_patt
  4666.  
  4667.  
  4668.  
  4669.  
  4670.  
  4671. rs
  4672.       dc.w new_env
  4673.       dc.l orchhite 
  4674.       dc.w new_snd
  4675.       dc.l orchhitpp
  4676.     dc.w b02,cr
  4677.     dc.w end_patt
  4678.  
  4679. rs1
  4680.       dc.w new_env
  4681.       dc.l orchhite 
  4682.       dc.w new_snd
  4683.       dc.l orchhitpp
  4684.     dc.w d02,cr
  4685.     dc.w end_patt
  4686.  
  4687.  
  4688.  
  4689.  
  4690. endstab2
  4691.     dc.w rest,cr
  4692.     dc.w b02,cr*3
  4693.     dc.w end_patt
  4694.  
  4695. endbass_bit
  4696.  
  4697.       dc.w new_env
  4698.       dc.l pizzo1el
  4699.       dc.w new_snd
  4700.       dc.l pizzo1p
  4701.     dc.w rest,cr
  4702.     dc.w g03,cr,rest,cr*2
  4703.     dc.w rest,cr
  4704.     dc.w g03,cr,rest,cr*2
  4705.  
  4706.       dc.w new_env
  4707.       dc.l strings1eq
  4708.       dc.w new_snd
  4709.       dc.l strings2p
  4710.  
  4711.  
  4712.     dc.w g03,cr,d03,cr,gb02,cr,d03,cr
  4713.     dc.w gb02,cr,db03,cr,b02,cr,d03,cr
  4714.  
  4715.     dc.w end_patt
  4716.  
  4717. endbass_bit2
  4718.  
  4719.       dc.w new_env
  4720.       dc.l pizzo1el
  4721.       dc.w new_snd
  4722.       dc.l pizzo1p
  4723.     dc.w g03,cr,d03,cr,gb02,cr,d03,cr
  4724.     dc.w gb02,cr,db03,cr,b02,cr,d03,cr
  4725.     dc.w end_patt
  4726.  
  4727.  
  4728. loudtune
  4729.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  4730.     dc.w eb03,q,bb02,q,eb03,cr,db03,q,bb02,q,db03,cr
  4731.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  4732.     dc.w eb03,q,bb02,q,eb03,cr,db03,cr*2
  4733.       dc.w end_patt
  4734.  
  4735. orchloud
  4736.     dc.w gb02,cr*2,db03,cr,db03,cr
  4737.     dc.w eb03,cr,eb03,cr,db03,q,bb02,q,db03,cr
  4738.     dc.w gb02,cr*2,db03,cr,db03,cr
  4739.     dc.w eb03,q,bb02,q,eb03,cr,db03,cr*2
  4740.  
  4741.       dc.w end_patt
  4742.  
  4743. trills
  4744.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  4745.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  4746.  
  4747.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  4748.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  4749.  
  4750.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  4751.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  4752.  
  4753.     dc.w rest,cr,gb02,4,ab02,4,b02,4,d03,4,rest,4
  4754.     dc.w rest,cr,gb02,4,ab02,4,b02,4,b03,4,rest,4
  4755.  
  4756.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  4757.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  4758.  
  4759.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  4760.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  4761.  
  4762.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  4763.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  4764.  
  4765.       dc.w end_patt
  4766.  
  4767.  
  4768. tymploud
  4769.  
  4770.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  4771.     dc.w eb03,q,bb02,q,eb03,cr,db03,q,bb02,q,db03,cr
  4772.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  4773.     dc.w eb03,q,bb02,q,eb03,cr,db03,cr*2
  4774.  
  4775.  
  4776.  
  4777.     ;dc.w gb02,cr*2,gb02,cr,gb02,cr
  4778.     ;dc.w gb02,cr,gb02,cr,gb02,q,gb02,q,gb02,cr
  4779.     ;dc.w gb02,cr*2,gb02,cr,gb02,cr
  4780.     ;dc.w gb02,q,gb02,q,gb02,cr,gb02,cr*2
  4781.       dc.w end_patt
  4782.  
  4783.  
  4784. pstrgnote
  4785.  
  4786.     dc.w b02,cr*2,b02,cr*2,b02,cr*2,b02,cr*2,b02,cr*2,b02,cr*2
  4787.     dc.w d03,cr*2,d03,cr*2
  4788.     dc.w b02,cr*2,b02,cr*2,b02,cr*2,b02,cr*2,b02,cr*2,b02,cr*2
  4789.     dc.w d03,cr*2,d03,cr*2
  4790.       dc.w end_patt
  4791.  
  4792.  
  4793.  
  4794. p1o0    dc.w b00,q,db01,q,d01,q,e01,q,gb01,q,d01,q,gb01,cr
  4795.     dc.w f01,q,db01,q,f01,cr,e01,q,c01,q,e01,cr
  4796.     dc.w b00,q,db01,q,d01,q,e01,q,gb01,q,d01,q,gb01,q,b01,q
  4797.     dc.w a01,q,gb01,q,d01,q,gb01,q,a01,cr+q,rest,q
  4798.       dc.w end_patt
  4799.  
  4800.  
  4801. p1o1    dc.w b01,q,db02,q,d02,q,e02,q,gb02,q,d02,q,gb02,cr
  4802.     dc.w f02,q,db02,q,f02,cr,e02,q,c02,q,e02,cr
  4803.     dc.w b01,q,db02,q,d02,q,e02,q,gb02,q,d02,q,gb02,q,b02,q
  4804.     dc.w a02,q,gb02,q,d02,q,gb02,q,a02,cr+q,rest,q
  4805.       dc.w end_patt
  4806.  
  4807.  
  4808. ptunex    dc.w b01,q,db02,q,d02,q,e02,q,gb02,q,d02,q,gb02,cr
  4809.     dc.w f02,q,db02,q,f02,cr,e02,q,c02,q,e02,cr
  4810.     dc.w b01,q,db02,q,d02,q,e02,q,gb02,q,d02,q,gb02,q,b02,q
  4811.     dc.w gb02,q,d02,q,gb02,q,b02,q,b01,cr+q+q
  4812.       dc.w end_patt
  4813.  
  4814.  
  4815. flutebit
  4816.       dc.w new_env
  4817.       dc.l flute2eq
  4818.       dc.w new_snd
  4819.       dc.l newflutep
  4820.     dc.w rest,cr*2,db03,q,bb02,q,db03,cr
  4821.     dc.w rest,cr*2,db03,q,bb02,q,db03,cr
  4822.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  4823.     dc.w d03,q,bb02,q,d03,cr,db03,cr*2
  4824.  
  4825.  
  4826.       dc.w end_patt
  4827.  
  4828. p1synbras1:
  4829.       dc.w new_env
  4830.       dc.l synbras1eq
  4831.       dc.w new_snd
  4832.       dc.l synbras1p
  4833.       dc.w end_patt
  4834.  
  4835.  
  4836.  
  4837. p2synbras1:
  4838.       dc.w new_env
  4839.       dc.l synbras1e_s1
  4840.       dc.w new_snd
  4841.       dc.l synbras1p
  4842.       dc.w end_patt
  4843.  
  4844.  
  4845. orchitsnd
  4846.       dc.w new_env
  4847.       dc.l orchhite 
  4848.       dc.w new_snd
  4849.       dc.l orchhitpp
  4850.       dc.w end_patt
  4851.  
  4852.  
  4853.  
  4854.  
  4855. p2synbras1l:
  4856.       dc.w new_env
  4857.       dc.l synbras1el
  4858.       dc.w new_snd
  4859.       dc.l synbras1p
  4860.       dc.w end_patt
  4861.  
  4862. loudbass
  4863.       dc.w new_env
  4864.       dc.l pizzo1el
  4865.       dc.w new_snd
  4866.       dc.l pizzo1p
  4867.       dc.w end_patt
  4868.  
  4869.  
  4870. p2pizzo2:
  4871.       dc.w new_env
  4872.       dc.l pizzo2e
  4873.       dc.w new_snd
  4874.       dc.l pizzo2p
  4875.       dc.w end_patt
  4876.  
  4877. p2pizzo2l:
  4878.       dc.w new_env
  4879.       dc.l pizzo2el
  4880.       dc.w end_patt
  4881.  
  4882.  
  4883. pizzo2q:
  4884.       dc.w new_env
  4885.       dc.l pizzo2eq
  4886.       dc.w new_snd
  4887.       dc.l pizzo2p
  4888.       dc.w end_patt
  4889.  
  4890.  
  4891. p2
  4892.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  4893.     dc.w d03,q,bb02,q,d03,cr,db03,q,bb02,q,db03,cr
  4894.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  4895.     dc.w d03,q,bb02,q,d03,cr,db03,cr*2
  4896.       dc.w end_patt
  4897.  
  4898. p2delay
  4899.     dc.w rest,sq,gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  4900.     dc.w d03,q,bb02,q,d03,cr,db03,q,bb02,q,db03,cr
  4901.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  4902.     dc.w d03,q,bb02,q,d03,cr,db03,cr*2-sq
  4903.       dc.w end_patt
  4904.  
  4905. pflute_trip
  4906.  
  4907.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,d03,tcr1,f02,tcr2,gb02,tcr1
  4908.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,d03,tcr1,f02,tcr2,gb02,tcr1
  4909.  
  4910.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,db03,tcr1,f02,tcr2,gb02,tcr1
  4911.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,c03,tcr1,f02,tcr2,gb02,tcr1
  4912.  
  4913.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,d03,tcr1,f02,tcr2,gb02,tcr1
  4914.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,d03,tcr1,f02,tcr2,gb02,tcr1
  4915.  
  4916.     dc.w d02,tcr1,ab02,tcr2,a02,tcr1,gb03,tcr1,ab02,tcr2,a02,tcr1
  4917.     dc.w d02,tcr1,ab02,tcr2,a02,tcr1,gb03,tcr1,ab02,tcr2,a02,tcr1
  4918.  
  4919.  
  4920.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,d03,tcr1,f02,tcr2,gb02,tcr1
  4921.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,d03,tcr1,f02,tcr2,gb02,tcr1
  4922.  
  4923.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,db03,tcr1,f02,tcr2,gb02,tcr1
  4924.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,c03,tcr1,f02,tcr2,gb02,tcr1
  4925.  
  4926.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,b02,cr,a02,cr,g02,cr
  4927.     
  4928.     dc.w gb02,cr,e02,cr,d02,cr,db02,cr
  4929.       dc.w end_patt
  4930.  
  4931.  
  4932. p3flute2:
  4933.       dc.w new_env
  4934.       dc.l flute2e
  4935.       dc.w new_snd
  4936.       dc.l newflutep
  4937.       dc.w end_patt
  4938.  
  4939. flute_sound_loud
  4940. p3flute2l:
  4941.       dc.w new_env
  4942.       dc.l flute2el
  4943.       dc.w new_snd
  4944.       dc.l newflutep
  4945.       dc.w end_patt
  4946.  
  4947. p3    dc.w b01,q,db02,q,d02,q,e02,q,gb02,sq-1,e02,sq,d02,sq,rest,sq,gb02,sq,rest,sq*3+1
  4948.     dc.w f02,q,db02,q,f02,cr,e02,sq-1,db02,sq,c02,sq,rest,sq,e02,sq,rest,sq*3+1
  4949.     dc.w b01,q,db02,q,d02,q,e02,q,gb02,q,d02,q,gb02,q,b02,q
  4950.     dc.w gb02,q,d02,q,gb02,q,b02,q,b01,cr,rest,cr
  4951.       dc.w end_patt
  4952.  
  4953. pvacc
  4954.  
  4955.       dc.w new_env
  4956.       dc.l violin1eq
  4957.       dc.w new_snd
  4958.       dc.l violin1p
  4959.     dc.w gb02,q,b01,q,gb02,q,b01,q,gb02,cr,gb02,q,b01,q
  4960.     dc.w gb02,q,b01,q,gb02,q,b01,q,gb02,cr,gb02,q,b01,q
  4961.     dc.w gb02,q,b01,q,gb02,q,b01,q,gb02,cr,gb02,q,b01,q
  4962.     dc.w gb02,q,b01,q,d02,q,b01,q,d02,q,b01,q,d02,q,b01,q
  4963.  
  4964.     dc.w gb02,q,b01,q,gb02,q,b01,q,gb02,cr,gb02,q,b01,q
  4965.     dc.w gb02,q,b01,q,gb02,q,b01,q,gb02,cr,gb02,q,b01,q
  4966.  
  4967.       ;dc.w new_env
  4968.       ;dc.l strings1e
  4969.       ;dc.w new_snd
  4970.       ;dc.l strings2p
  4971.  
  4972.     dc.w rest,2,b01,cr,bb02,cr,a02,cr,g02,cr
  4973.     dc.w gb02,cr,e02,cr,d02,cr,db02,cr-2
  4974.       dc.w end_patt
  4975.  
  4976.  
  4977. dll
  4978.  
  4979.  
  4980.       dc.w new_env
  4981.       dc.l synbras1e
  4982.       dc.w new_snd
  4983.       dc.l synbras1p
  4984.  
  4985.     dc.w rest,cr,gb03,sq,f03,sq,gb03,q,rest,cr,gb03,sq,f03,sq,gb03,q
  4986.     dc.w rest,cr,gb03,sq,f03,sq,gb03,q,rest,cr,gb03,sq,f03,sq,gb03,q
  4987.     dc.w rest,cr,gb03,sq,f03,sq,gb03,q,rest,cr,gb03,sq,f03,sq,gb03,q
  4988.     dc.w d03,cr,a03,sq,ab03,sq,a03,q,d03,cr,a03,sq,ab03,sq,a03,q
  4989.  
  4990.     dc.w b02,cr,gb02,sq,f02,sq,gb02,q,b02,cr,gb02,sq,f02,sq,gb02,q
  4991.     dc.w b02,cr,gb02,sq,f02,sq,gb02,q,b02,cr,gb02,sq,f02,sq,gb02,q
  4992.     dc.w b02,cr,gb02,sq,f02,sq,gb02,q,b02,cr,gb02,sq,f02,sq,gb02,q
  4993.     dc.w d02,cr,a02,sq,ab02,sq,a02,q,d02,cr,a02,sq,ab02,sq,a02,sq,rest,sq
  4994.       dc.w end_patt
  4995.  
  4996.  
  4997.  
  4998. stabs
  4999.     dc.w b02,cr*4,b02,cr*4,b02,cr*4,d03,cr*4
  5000.     dc.w b02,cr*4,b02,cr*4,b02,cr*4,d03,cr*4
  5001.  
  5002.       dc.w end_patt
  5003.  
  5004.  
  5005. orchhitp1
  5006.       dc.w new_env
  5007.       dc.l orchhite 
  5008.       dc.w new_snd
  5009.       dc.l orchhitpp
  5010.     dc.w b02,cr*4,b02,cr*4,b02,cr*4,d03,cr*4
  5011.     dc.w b02,cr*4,b02,cr*4,b02,cr*4,d03,cr*4
  5012.       dc.w end_patt
  5013.  
  5014. orch1note
  5015.       dc.w new_env
  5016.       dc.l orchhite 
  5017.       dc.w new_snd
  5018.       dc.l orchhitpp
  5019.     dc.w gb02,cr,rest,cr,gb02,cr,rest,cr
  5020.     dc.w gb02,cr,rest,cr,gb02,cr,rest,cr
  5021.     dc.w gb02,cr,rest,cr,gb02,cr,rest,cr
  5022.     dc.w gb02,cr,rest,cr,gb02,cr,rest,cr
  5023.       dc.w end_patt
  5024.  
  5025. orchitp2
  5026.     dc.w gb02,q,bb02,q,db03,cr,rest,cr,gb02,q,bb02,q
  5027.     dc.w db03,cr,rest,cr,gb02,q,bb02,q,db03,cr
  5028.     dc.w gb02,q,bb02,q,db03,cr,rest,cr,gb02,q,bb02,q
  5029.     dc.w d03,q,gb02,q,d03,cr,db03,cr,rest,cr
  5030.  
  5031.       dc.w end_patt
  5032.  
  5033.  
  5034.  
  5035. bassstabs
  5036.       dc.w new_env
  5037.       dc.l pizzo1el
  5038.       dc.w new_snd
  5039.       dc.l pizzo1p
  5040.     dc.w b01,cr*4,b01,cr*4,b01,cr*4,d02,cr*4
  5041.  
  5042.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  5043.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  5044.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  5045.     dc.w d02,cr,a02,cr,d02,cr,a02,cr
  5046.  
  5047.       dc.w end_patt
  5048.  
  5049. tymproll
  5050.  
  5051.       dc.w new_env
  5052.       dc.l tympe 
  5053.       dc.w new_snd
  5054.       dc.l newtympp
  5055.     dc.w rest,cr*14,r16,q,r14,q,r16,q,r14,q
  5056.       dc.w end_patt
  5057.  
  5058.  
  5059.  
  5060. snarerollgb
  5061.  
  5062.       dc.w new_env
  5063.       dc.l orchhite 
  5064.       dc.w new_snd
  5065.       dc.l orchhitpp
  5066.     dc.w gb02,cr
  5067.       dc.w new_env
  5068.       dc.l snaree 
  5069.       dc.w new_snd
  5070.       dc.l snarep
  5071.     dc.w r16,sq,r16,sq,r16,q
  5072.       dc.w end_patt
  5073.  
  5074. snarerollb
  5075.  
  5076.       dc.w new_env
  5077.       dc.l orchhite 
  5078.       dc.w new_snd
  5079.       dc.l orchhitpp
  5080.     dc.w b02,cr
  5081.       dc.w new_env
  5082.       dc.l snaree 
  5083.       dc.w new_snd
  5084.       dc.l snarep
  5085.     dc.w r16,sq,r16,sq,r16,q
  5086.       dc.w end_patt
  5087.  
  5088. snarerolla
  5089.  
  5090.       dc.w new_env
  5091.       dc.l orchhite 
  5092.       dc.w new_snd
  5093.       dc.l orchhitpp
  5094.     dc.w ab03,cr
  5095.       dc.w new_env
  5096.       dc.l snaree 
  5097.       dc.w new_snd
  5098.       dc.l snarep
  5099.     dc.w r16,sq,r16,sq,r16,q
  5100.       dc.w end_patt
  5101.  
  5102.  
  5103.  
  5104. snarerolld
  5105.  
  5106.       dc.w new_env
  5107.       dc.l orchhite 
  5108.       dc.w new_snd
  5109.       dc.l orchhitpp
  5110.     dc.w d02,cr
  5111.       dc.w new_env
  5112.       dc.l snaree 
  5113.       dc.w new_snd
  5114.       dc.l snarep
  5115.     dc.w r16,sq,r16,sq,r16,q
  5116.       dc.w end_patt
  5117.  
  5118. snareroll
  5119.  
  5120.       dc.w new_env
  5121.       dc.l snareeq 
  5122.       dc.w new_snd
  5123.       dc.l snarep
  5124.     dc.w r4,cr+q,r16,sq,r16,sq,r16,q,r16,q,r16,cr
  5125.     dc.w rest,cr*4
  5126.     dc.w rest,cr+q,r16,sq,r16,sq,r16,q,r16,q,r16,cr
  5127.     dc.w rest,cr*4
  5128.     dc.w rest,cr+q,r16,sq,r16,sq,r16,q,r16,q,r16,cr
  5129.     dc.w rest,cr*4
  5130.     dc.w rest,q+sq,r16,sq,r16,q,r16,q,r16,q,r16,sq,r16,sq
  5131.     dc.w r16,q,r16,q
  5132.     dc.w r16,q,r16,q,r16,q,r16,q,r16,q,r16,q,r16,cr
  5133.       dc.w end_patt
  5134.  
  5135. snarebeat
  5136.  
  5137.       dc.w new_env
  5138.       dc.l snareeq 
  5139.       dc.w new_snd
  5140.       dc.l snarep
  5141.     dc.w r16,cr,rest,cr*16,rest,cr*15
  5142.       dc.w end_patt
  5143.  
  5144.  
  5145.  
  5146.  
  5147. p1bass:
  5148.       dc.w new_env
  5149.       dc.l basseq
  5150.       dc.w new_snd
  5151.       dc.l pizzo1p
  5152. p1bassd    dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  5153.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  5154.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  5155.     dc.w d02,cr,a02,cr,d02,cr,a02,cr
  5156.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  5157.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  5158.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  5159.       dc.w end_patt
  5160.  
  5161. p1bass_end
  5162.     dc.w d02,cr,a02,cr,d02,cr,a02,cr
  5163. endbass
  5164.     dc.w gb02,cr,db03,cr,gb02,cr,db03,cr
  5165.     dc.w d02,cr,bb02,cr,gb02,cr,db03,cr
  5166.     dc.w gb02,cr,db03,cr,gb02,cr,db03,cr
  5167.     dc.w d02,cr,bb02,cr,gb02,cr,db03,cr
  5168.     dc.w gb02,cr,db03,cr,gb02,cr,db03,cr
  5169.     dc.w d02,cr,bb02,cr,gb02,cr,db03,cr
  5170.     dc.w gb02,cr,db03,cr,gb02,cr,db03,cr
  5171.       dc.w end_patt
  5172. lastbarb
  5173.     dc.w d02,cr,bb02,cr,gb02,cr,db03,cr
  5174.       dc.w end_patt
  5175.  
  5176.  
  5177. pbasstrip
  5178.       dc.w new_env
  5179.       dc.l basse
  5180.       dc.w new_snd
  5181.       dc.l pizzo1p
  5182.  
  5183.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  5184.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  5185.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  5186.     dc.w d02,cr,a02,cr,d02,cr,a02,cr
  5187.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr            ;bar 21
  5188.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  5189.     dc.w b01,cr,bb02,cr,a02,cr,g02,cr
  5190.     dc.w gb02,cr,e02,cr,d02,cr,db02,cr
  5191.  
  5192.  
  5193.       dc.w end_patt
  5194.  
  5195. runbass
  5196.       dc.w new_env
  5197.       dc.l strings1el
  5198.       dc.w new_snd
  5199.       dc.l strings2p
  5200.  
  5201. bassrun
  5202.     dc.w b01,q,a01,q,g01,q,gb01,q
  5203.     dc.w b01,q,a01,q,g01,q,gb01,q
  5204.  
  5205.     dc.w b01,q,a01,q,g01,q,gb01,q
  5206.     dc.w b01,q,a01,q,g01,q,gb01,q
  5207.  
  5208.     dc.w b01,q,a01,q,g01,q,gb01,q
  5209.     dc.w b01,q,a01,q,g01,q,gb01,q
  5210.  
  5211.     dc.w d02,q,db02,q,b01,q,a01,q
  5212.     dc.w d02,q,db02,q,b01,q,a01,q
  5213.  
  5214.     dc.w b01,q,a01,q,g01,q,gb01,q
  5215.     dc.w b01,q,a01,q,g01,q,gb01,q
  5216.  
  5217.     dc.w b01,q,a01,q,g01,q,gb01,q
  5218.     dc.w b01,q,a01,q,g01,q,gb01,q
  5219.  
  5220.     dc.w b01,q,a01,q,g01,q,gb01,q
  5221.     dc.w b01,q,a01,q,g01,q,gb01,q
  5222.  
  5223.       dc.w end_patt
  5224. endrunbass
  5225.     dc.w d02,q,db02,q,b01,q,a01,q
  5226.     dc.w d02,q,db02,q,b01,q,a01,q
  5227.  
  5228.       dc.w end_patt
  5229.  
  5230. runbass2
  5231.  
  5232.     dc.w gb02,q,e02,q,d02,q,db02,q
  5233.     dc.w gb02,q,e02,q,d02,q,db02,q
  5234.  
  5235.     dc.w d02,q,db02,q,d02,q,e02,q
  5236.     dc.w gb02,q,e02,q,d02,q,db02,q
  5237.  
  5238.     dc.w gb02,q,e02,q,d02,q,db02,q
  5239.     dc.w gb02,q,e02,q,d02,q,db02,q
  5240.  
  5241.     dc.w d02,q,db02,q,d02,q,e02,q
  5242.     dc.w gb02,q,e02,q,d02,q,db02,q
  5243.  
  5244.  
  5245.       dc.w end_patt
  5246.  
  5247.  
  5248. runbass2_end
  5249.     dc.w gb02,q,e02,q,d02,q,db02,q
  5250.     dc.w gb02,q,e02,q,d02,q,db02,q
  5251.  
  5252.     dc.w d02,q,db02,q,d02,q,e02,q
  5253.     dc.w gb02,q,e02,q,d02,q,db02,q
  5254.  
  5255.     dc.w gb02,q,e02,q,d02,q,db02,q
  5256.     dc.w gb02,q,e02,q,d02,q,db02,q
  5257.  
  5258.     dc.w rest,cr*4
  5259.  
  5260.       dc.w end_patt
  5261.  
  5262.  
  5263.  
  5264.  
  5265.  
  5266.  
  5267. pbassq:
  5268.       dc.w new_env
  5269.       dc.l basse
  5270.       dc.w new_snd
  5271.       dc.l pizzo1p
  5272.  
  5273.     dc.w gb02,q,gb02,q
  5274.     dc.w db03,q,db03,q
  5275.     dc.w gb02,q,gb02,q
  5276.     dc.w db03,q,db03,q
  5277.  
  5278.     dc.w d02,q,d02,q
  5279.     dc.w bb02,q,bb02,q
  5280.     dc.w gb02,q,gb02,q
  5281.     dc.w db03,q,db03,q
  5282.  
  5283.     dc.w gb02,q,gb02,q
  5284.     dc.w db03,q,db03,q
  5285.     dc.w gb02,q,gb02,q
  5286.     dc.w db03,q,db03,q
  5287.  
  5288.     dc.w d02,q,d02,q
  5289.     dc.w bb02,q,bb02,q
  5290.     dc.w gb02,q,gb02,q
  5291.     dc.w db03,q,db03,q
  5292.  
  5293.     dc.w gb02,cr,db03,cr,gb02,cr,db03,cr
  5294.     dc.w d02,cr,bb02,cr,gb02,cr,db03,cr
  5295.     dc.w gb02,cr,db03,cr,gb02,cr,db03,cr
  5296.     dc.w d02,cr,bb02,cr,gb02,cr,db03,cr
  5297.  
  5298.       dc.w end_patt
  5299.  
  5300.  
  5301.  
  5302.  
  5303.  
  5304. ;------------
  5305.  
  5306. cr  set   24
  5307. q set  cr/2
  5308. sq set q/2
  5309.  
  5310. tcr1 set 16
  5311. tcr2 set 16
  5312. tq1 set      8
  5313. tq2 set   8
  5314. tsq1 set 4
  5315. tsq2 set 4
  5316.  
  5317. **************************************************************
  5318.  
  5319. intro5
  5320.     dc.l    pizpiano_sound
  5321.  
  5322.     dc.l    intro1
  5323.     dc.l    intro1
  5324.     dc.l    intro1
  5325.     dc.l    intro1
  5326.     dc.l    intro1x
  5327.     dc.l    flute_sound
  5328.     dc.l    intro1x
  5329.     dc.l    orch_hit_sound
  5330.     dc.l    intro1
  5331.  
  5332.  
  5333. ;      dc.l     0,end_song
  5334.  
  5335.  
  5336.  
  5337. s5:
  5338.     dc.l    trumpet_sound,main_tune,main_tune_end
  5339.     dc.l    brass_sound,dsect
  5340.  
  5341. ;s5
  5342.     dc.l    trumpet_sound,main_tune,main_tune_end
  5343.     dc.l    brass_sound,dsect
  5344.  
  5345. ;s5
  5346.     dc.l    mid_tune        ;sounds defined
  5347.  
  5348. ;s5
  5349.     dc.l    string_sound_loud,bridge_tune
  5350.  
  5351.     dc.l    trumpet_sound,main_tune,main_tune_end
  5352. ;s5
  5353.     dc.l    trumpet_sound,main_tune,short_tune_end
  5354.  
  5355.     dc.l    mid_tune        ;sounds defined
  5356.  
  5357.     dc.l    string_sound_loud,bridge_tune
  5358.  
  5359.     dc.l    trumpet_sound,main_tune,main_tune_end
  5360.  
  5361.     dc.l    brass_sound,dsect,dsect,dsect
  5362.     dc.l    one_stab
  5363.  
  5364.       dc.l     0,end_song
  5365. ;---------------
  5366.  
  5367. intro8
  5368.     dc.l    bass_sound
  5369.     dc.l    intro2
  5370.     dc.l    intro2
  5371.     dc.l    intro2
  5372.     dc.l    intro2
  5373.     dc.l    intro2
  5374.     dc.l    intro2
  5375.     dc.l    intro2
  5376.     dc.l    intro2
  5377.     dc.l    intro2
  5378.     dc.l    intro2
  5379.     dc.l    intro4
  5380.     dc.l    intro2a
  5381.       ;dc.l     0,end_song
  5382.  
  5383. s8:    
  5384.     dc.l    orch_hit_sound,orchhit_intro
  5385.     dc.l    string_sound_louder,string_run
  5386.  
  5387. ;s6    
  5388.     dc.l     histrg_sound,verse_bass            ;this is strgs        
  5389.     dc.l    verse_bass
  5390.     dc.l    snare_sound_loud,dsnare
  5391.  
  5392. ;s6
  5393.     dc.l    bass_sound_quiet,mid_bass
  5394.  
  5395.     dc.l    bass_sound,bridge_bass
  5396.  
  5397.     dc.l     histrg_sound,verse_bass            ;this is strgs        
  5398.     dc.l    verse_bass
  5399.  
  5400. ;s6
  5401.     dc.l     histrg_sound            ;this is strgs        
  5402.  
  5403.     dc.l    verse_bass
  5404.     dc.l    verse_bass
  5405.  
  5406.  
  5407.     dc.l    pr241bar
  5408.  
  5409.     dc.l    bass_sound_quiet,mid_bass
  5410.  
  5411.     dc.l    bass_sound,bridge_bass
  5412.  
  5413.     dc.l     histrg_sound,verse_bass            ;this is strgs        
  5414.     dc.l    verse_bass
  5415.     dc.l    snare_sound_loud,dsnare,dsnare,dsnare
  5416.  
  5417.     dc.l    one_stab
  5418.  
  5419.     dc.l    pri_new_tune
  5420.  
  5421.         dc.l    0,end_song
  5422.  
  5423. ;---------------
  5424.  
  5425. intro7
  5426.  
  5427.     dc.l    snare_sound
  5428.     dc.l    intro3
  5429.     dc.l    intro3
  5430.     dc.l    intro3
  5431.     dc.l    intro3
  5432.     dc.l    intro3
  5433.     dc.l    intro3
  5434.     dc.l    intro3
  5435.     dc.l    intro3
  5436.     ;dc.l    orch_hit_sound
  5437.     ;dc.l    intro3_crash
  5438.     ;dc.l    snare_sound
  5439.     dc.l    intro3x
  5440.     dc.l    intro3x
  5441.     dc.l    intro3
  5442.     dc.l    intro3
  5443.     dc.l    intro3x
  5444.     dc.l    tymp_sound
  5445.     dc.l    intro3xx
  5446. ;      dc.l     0,end_song
  5447.  
  5448.  
  5449.  
  5450.  
  5451. s7:
  5452.     dc.l    string_sound_loud,main_tune,main_tune_end
  5453.     dc.l    brass_sound,dsecth
  5454.  
  5455. ;s7
  5456.     dc.l    snare_sound,verse_roll,verse_roll
  5457.     dc.l    orch_hit_soundq,phrase_d
  5458.  
  5459. ;s7
  5460.     dc.l    trumpet_sound_quiet,mid_chord1
  5461.  
  5462. ;s7
  5463.     dc.l    string_sound_loud,bridge_tuneh
  5464.     dc.l    snare_sound,verse_roll,verse_roll
  5465. ;s7
  5466.     dc.l    main_tune_stabs
  5467.  
  5468.     dc.l    orch_hit_sound,short_run
  5469.  
  5470.     dc.l    trumpet_sound_quiet,mid_chord1
  5471.  
  5472. ;s7
  5473.     dc.l    string_sound_loud,bridge_tuneh
  5474.     dc.l    snare_sound,verse_roll,verse_roll
  5475.  
  5476.     dc.l    orch_hit_soundq,phrase_d,phrase_d,phrase_d
  5477.  
  5478.     dc.l    one_stab
  5479.  
  5480.       dc.l     0,end_song
  5481. ;---------------
  5482.  
  5483. intro6
  5484.     dc.l    histrg_sound
  5485.     dc.l    intro4
  5486.     dc.l    intro4
  5487.     dc.l    intro4
  5488.     dc.l    intro4
  5489.     dc.l    intro4
  5490.     dc.l    intro4
  5491.     dc.l    intro4
  5492.     dc.l    intro4
  5493.     dc.l    intro4
  5494.     dc.l    intro4
  5495.     dc.l    intro4
  5496.     dc.l    intro4
  5497. ;      dc.l     0,end_song
  5498.  
  5499.  
  5500.  
  5501. s6:
  5502.     dc.l    bass_sound,intro_bass1,snare_sound,intro_roll
  5503.     dc.l    bass_sound,intro_bass2
  5504.     dc.l    snare_sound,roll2
  5505.  
  5506. ;s8    
  5507.     dc.l    bass_soundvq,verse_bass
  5508.     dc.l    verse_bass,phrase_d_low
  5509.  
  5510. ;s8
  5511.     dc.l    trumpet_sound_quiet,mid_chord2
  5512.  
  5513. ;s8    
  5514.  
  5515.     dc.l    tymp_sound,mid_tymp
  5516.  
  5517.     dc.l    snare_sound,sfill
  5518.     dc.l    orch_hit_sound,two_stabs
  5519.     dc.l    string_sound_louder,string_run
  5520.  
  5521.     dc.l    bass_soundvq,verse_bass
  5522.     dc.l    verse_bass
  5523.  
  5524. ;s8
  5525.     dc.l    bass_soundvq
  5526.     dc.l    verse_bass,verse_bass
  5527.  
  5528.     dc.l    bass_sound,short_run
  5529.  
  5530.     dc.l    trumpet_sound_quiet,mid_chord2
  5531.  
  5532. ;s8    
  5533.  
  5534.     dc.l    tymp_sound,mid_tymp
  5535.  
  5536.     dc.l    snare_sound,sfill
  5537.     dc.l    orch_hit_sound,two_stabs
  5538.     dc.l    string_sound_louder,string_run
  5539.  
  5540.     dc.l    bass_soundvq,verse_bass
  5541.     dc.l    verse_bass
  5542.     dc.l    phrase_d_low,phrase_d_low,phrase_d_low
  5543.  
  5544.     dc.l    one_stab
  5545.  
  5546.       dc.l     0,end_song
  5547.  
  5548. ;***************  RESTS  ***************
  5549.  
  5550.  
  5551. ;cr  set   48
  5552. ;q set  cr/2
  5553. ;sq set q/2
  5554.  
  5555. ;tcr1 set 32
  5556. ;tcr2 set 32
  5557. ;tq1 set     16
  5558. ;tq2 set  16
  5559. ;tsq1 set 8
  5560. ;tsq2 set 8
  5561.  
  5562.  
  5563. intro1
  5564.     dc.w rest,tq1+tq2,a02,tq1,d03,tq1,a02,tq2,d03,tq1,a03,cr*2
  5565.     dc.w rest,cr*4
  5566.     dc.w end_patt
  5567.  
  5568. intro1x
  5569.     dc.w rest,tq1+tq2,a02,tq1,d03,tq1,a02,tq2,d03,tq1,a03,cr*2
  5570.     dc.w end_patt
  5571.  
  5572.  
  5573.  
  5574. intro2
  5575.     dc.w  a02,cr,a02,cr,a02,cr,a02,cr
  5576.     dc.w end_patt
  5577. intro2o
  5578.     dc.w  a01,cr,a01,cr,a01,cr,a01,cr
  5579.     dc.w end_patt
  5580.  
  5581.  
  5582. intro2x
  5583.     dc.w  a02,cr,a03,cr,a02,cr,a03,cr
  5584.     dc.w end_patt
  5585.  
  5586.  
  5587. intro2a
  5588.     dc.w a03,tq1,d03,tq2,a02,tq1,d02,tq1,a02,tq2,d03,tq1
  5589.     dc.w a02,tq1,bb02,tq2,b02,tq1
  5590.     dc.w c03,tq1,db03,tq2,d03,tq1
  5591.     dc.w end_patt
  5592.  
  5593. intro3
  5594.     dc.w r16,tq1,r16,tq2,r16,tq1
  5595.     dc.w r16,tq1,r16,tq2,r16,tq1
  5596.     dc.w r16,tq1,r16,tq2,r16,tq1
  5597.     dc.w r16,tq1,r16,tq2,r16,tq1
  5598.     dc.w end_patt
  5599.  
  5600. intro3_crash
  5601.     dc.w r2,cr*4
  5602.     dc.w end_patt
  5603.  
  5604.  
  5605. intro3x
  5606.     dc.w r16,tq1,r16,tq2,r16,tq1
  5607.     dc.w r16,tq1,r16,tq2,r16,tq1
  5608.     dc.w end_patt
  5609.  
  5610.  
  5611. intro3xx
  5612.     dc.w r16,tq1,r15,tq2,r14,tq1
  5613.     dc.w r16,tq1,r15,tq2,r14,tq1
  5614.     dc.w end_patt
  5615.  
  5616.  
  5617.  
  5618. intro4    
  5619.     dc.w a03,tq1,d03,tq2,a02,tq1,d02,tq1,a02,tq2,d03,tq1
  5620.     dc.w a03,tq1,d03,tq2,a02,tq1,d02,tq1,a02,tq2,d03,tq1
  5621.     dc.w end_patt
  5622.  
  5623.  
  5624. cr  set   24
  5625. q set  cr/2
  5626. sq set q/2
  5627.  
  5628. tcr1 set 16
  5629. tcr2 set 16
  5630. tq1 set      8
  5631. tq2 set   8
  5632. tsq1 set 4
  5633. tsq2 set 4
  5634.  
  5635. pr241bar:
  5636.     dc.w rest,cr*4
  5637.     dc.w end_patt
  5638.  
  5639. pr242bar:
  5640.     dc.w rest,cr*8
  5641.     dc.w end_patt
  5642.  
  5643. pr244bar:
  5644.     dc.w rest,cr*16
  5645.     dc.w end_patt
  5646.  
  5647.  
  5648. pr247bar:
  5649.     dc.w rest,cr*28
  5650.     dc.w end_patt
  5651.  
  5652. pr248bar:
  5653.     dc.w rest,cr*32
  5654.     dc.w end_patt
  5655.  
  5656.  
  5657.  
  5658. pr242beats:
  5659.     dc.w rest,cr*2
  5660.     dc.w end_patt
  5661.  
  5662.  
  5663. ;**************  SOUNDS ****************
  5664.  
  5665. violin_sound_loud
  5666.       dc.w new_env
  5667.       dc.l violin1el
  5668.       dc.w new_snd
  5669.       dc.l violin1p
  5670.       dc.w end_patt
  5671.  
  5672. sine_sound
  5673.       dc.w new_env
  5674.       dc.l sine_env
  5675.       dc.w new_snd
  5676.       dc.l sinep
  5677.       dc.w end_patt
  5678.  
  5679. sine_sound_short
  5680.       dc.w new_env
  5681.       dc.l sine_env_short
  5682.       dc.w new_snd
  5683.       dc.l sinep
  5684.       dc.w end_patt
  5685.  
  5686. sine_sound_slow
  5687.       dc.w new_env
  5688.       dc.l sine_env_slow
  5689.       dc.w new_snd
  5690.       dc.l sinep
  5691.       dc.w end_patt
  5692.  
  5693. flute_sound
  5694.       dc.w new_env
  5695.       dc.l flute2e
  5696.       dc.w new_snd
  5697.       dc.l newflutep
  5698.       dc.w end_patt
  5699.  
  5700. flute_sound_quiet
  5701.       dc.w new_env
  5702.       dc.l flute2eq
  5703.       dc.w new_snd
  5704.       dc.l newflutep
  5705.       dc.w end_patt
  5706.  
  5707. bass_sound
  5708.       dc.w new_env
  5709.       dc.l basse
  5710.       dc.w new_snd
  5711.       dc.l pizzo1p
  5712.       dc.w end_patt
  5713.  
  5714. bass_sound_quiet
  5715.       dc.w new_env
  5716.       dc.l bassqe
  5717.       dc.w new_snd
  5718.       dc.l pizzo1p
  5719.       dc.w end_patt
  5720.  
  5721.  
  5722. bass_soundvq
  5723.       dc.w new_env
  5724.       dc.l bassevq
  5725.       dc.w new_snd
  5726.       dc.l pizzo1p
  5727.       dc.w end_patt
  5728.  
  5729.  
  5730.  
  5731.  
  5732. ;flute_sound
  5733.       dc.w new_env
  5734.       dc.l flute2eq
  5735.       dc.w new_snd
  5736.       dc.l newflutep
  5737.       dc.w end_patt
  5738.  
  5739. histrg_sound
  5740.       dc.w new_env
  5741.       dc.l histrge
  5742.       dc.w new_snd
  5743.       dc.l histrgp
  5744.       dc.w end_patt
  5745.  
  5746.  
  5747. snare_sound
  5748.       dc.w new_env
  5749.       dc.l snareeq 
  5750.       dc.w new_snd
  5751.       dc.l snarep
  5752.       dc.w end_patt
  5753.  
  5754. snare_sound_mid
  5755.       dc.w new_env
  5756.       dc.l snareemid 
  5757.       dc.w new_snd
  5758.       dc.l snarep
  5759.       dc.w end_patt
  5760.  
  5761.  
  5762.  
  5763. snare_sound_loud
  5764.       dc.w new_env
  5765.       dc.l snaree 
  5766.       dc.w new_snd
  5767.       dc.l snarep
  5768.       dc.w end_patt
  5769.  
  5770.  
  5771.  
  5772.  
  5773. trumpet_sound
  5774.       dc.w new_env
  5775.       dc.l trumpete
  5776.       dc.w new_snd
  5777.       dc.l trumpet_loopp
  5778.       dc.w end_patt
  5779.  
  5780. trumpet_sound_quiet
  5781.       dc.w new_env
  5782.       dc.l trumpeteq
  5783.       dc.w new_snd
  5784.       dc.l trumpet_loopp
  5785.       dc.w end_patt
  5786.  
  5787.  
  5788. brass_sound
  5789.       dc.w new_env
  5790.       dc.l brasse
  5791.       dc.w new_snd
  5792.       dc.l brasssecp
  5793.       dc.w end_patt
  5794.  
  5795. string_sound
  5796.       dc.w new_env
  5797.       dc.l strings1e
  5798.       dc.w new_snd
  5799.       dc.l strings2p
  5800.       dc.w end_patt
  5801.  
  5802.  
  5803. string_sound_loud
  5804.       dc.w new_env
  5805.       dc.l strings1el
  5806.       dc.w new_snd
  5807.       dc.l strings2p
  5808.       dc.w end_patt
  5809.  
  5810. string_sound_short
  5811.       dc.w new_env
  5812.       dc.l string_short_env
  5813.       dc.w new_snd
  5814.       dc.l strings2p
  5815.       dc.w end_patt
  5816.  
  5817. string_sound_shorter
  5818.       dc.w new_env
  5819.       dc.l string_pizz_env
  5820.       dc.w new_snd
  5821.       dc.l strings2p
  5822.       dc.w end_patt
  5823.  
  5824.  
  5825.  
  5826. string_sound_louder
  5827.       dc.w new_env
  5828.       dc.l strings1eler
  5829.       dc.w new_snd
  5830.       dc.l strings2p
  5831.       dc.w end_patt
  5832.  
  5833.  
  5834. tymp_sound
  5835.       dc.w new_env
  5836.       dc.l tympe 
  5837.       dc.w new_snd
  5838.       dc.l newtympp
  5839.       dc.w end_patt
  5840.  
  5841. pizpiano_sound
  5842.       dc.w new_env
  5843.       dc.l pizpianoe 
  5844.       dc.w new_snd
  5845.       dc.l pizpianop
  5846.       dc.w end_patt
  5847.  
  5848. pizpiano_sound_short
  5849.       dc.w new_env
  5850.       dc.l sine_env_short 
  5851.       dc.w new_snd
  5852.       dc.l pizpianop
  5853.       dc.w end_patt
  5854.  
  5855.  
  5856. pizpiano_sound_quiet
  5857.       dc.w new_env
  5858.       dc.l pizpianoevrq 
  5859.       dc.w new_snd
  5860.       dc.l pizpianop
  5861.       dc.w end_patt
  5862.  
  5863.  
  5864. orch_hit_sound
  5865.       dc.w new_env
  5866.       dc.l orchhite 
  5867.       dc.w new_snd
  5868.       dc.l orchhitpp
  5869.       dc.w end_patt
  5870.  
  5871. orch_hit_soundq
  5872.       dc.w new_env
  5873.       dc.l orchhiteq 
  5874.       dc.w new_snd
  5875.       dc.l orchhitpp
  5876.       dc.w end_patt
  5877.  
  5878. ;***********    TRUMPET PATTERNS LEAD TUNES *********
  5879.  
  5880.  
  5881. main_tune
  5882.     dc.w rest,tq1+tq2,a01,tq1,d02,tq1,a01,tq2,d02,tq1,a02,cr+tq1+tq2
  5883.     dc.w g02,tq1+tq2+tq1,g02,tq1,c03,cr*3
  5884.  
  5885.     dc.w rest,tq1+tq2,a01,tq1,d02,tq1,a01,tq2,d02,tq1,a02,cr+tq1+tq2
  5886.     dc.w g02,tq1+tq2+tq1,g02,tq1,e02,cr+tq1+tq2,c02,tq1+cr
  5887.  
  5888.     dc.w rest,tq1+tq2,a01,tq1,d02,tq1,a01,tq2,d02,tq1,a02,cr+tq1+tq2
  5889.     dc.w g02,tq1+tq2+tq1,g02,tq1,c03,cr+tq1+tq2,e03,tq1+cr
  5890.       dc.w end_patt
  5891.  
  5892. main_tune_end
  5893.     dc.w d03,cr,d03,tq1,d03,tq2,d03,tq1
  5894.     dc.w f03,cr+tq1+tq2,e03,tq1+tq2+tq1
  5895.     dc.w e03,tq1,g03,cr*2
  5896.     dc.w c03,cr
  5897.       dc.w end_patt
  5898.  
  5899. short_tune_end
  5900.     dc.w d03,cr,d03,tq1,d03,tq2,d03,tq1
  5901.     dc.w f03,cr+tq1+tq2,e03,tq1+tq2+tq1
  5902.     dc.w e03,tq1,g03,cr*2
  5903.     dc.w c03,cr,d03,cr*2,rest,cr*2
  5904.       dc.w end_patt
  5905.  
  5906.  
  5907.  
  5908.  
  5909.  
  5910. dsect    dc.w d03,tq1,d03,tq2,d03,tq1
  5911.     dc.w d03,tq1,d03,tq2,d03,tq1
  5912.     dc.w d03,tq1,d03,tq2,d03,tq1
  5913.     dc.w d03,tq1,d03,tq2,d03,tq1
  5914.     dc.w d03,tq1,d03,tq2,d03,tq1
  5915.     dc.w d03,tq1,d03,tq2,d03,tq1
  5916.     dc.w d03,tq1,d03,tq2,d03,tq1
  5917.     dc.w d03,tq1,d03,tq2,d03,tq1
  5918.       dc.w end_patt
  5919.  
  5920. dsecth
  5921.     dc.w a02,tq1,a02,tq2,a02,tq1
  5922.     dc.w a02,tq1,a02,tq2,a02,tq1
  5923.     dc.w a02,tq1,a02,tq2,a02,tq1
  5924.     dc.w a02,tq1,a02,tq2,a02,tq1
  5925.     dc.w a02,tq1,a02,tq2,a02,tq1
  5926.     dc.w a02,tq1,a02,tq2,a02,tq1
  5927.     dc.w a02,tq1,a02,tq2,a02,tq1
  5928.     dc.w a02,tq1,a02,tq2,a02,tq1
  5929.       dc.w end_patt
  5930.  
  5931. mid_tune
  5932.  
  5933.       dc.w new_env
  5934.       dc.l strings1el
  5935.       dc.w new_snd
  5936.       dc.l strings2p
  5937.  
  5938.     dc.w bb02,cr*3,bb02,tq1,a02,tq2,g02,tq1
  5939.     dc.w f02,cr
  5940.  
  5941.       dc.w new_env
  5942.       dc.l pizpianoeq 
  5943.       dc.w new_snd
  5944.       dc.l pizpianop
  5945.  
  5946.     dc.w bb02,tq1,a02,tq2,g02,tq1
  5947.     dc.w f02,cr
  5948.  
  5949.        dc.w new_env
  5950.       dc.l strings1el
  5951.       dc.w new_snd
  5952.       dc.l strings2p
  5953.  
  5954.     dc.w g02,cr
  5955.     dc.w ab02,tq1,bb02,tq2,ab02,tq1,f02,cr
  5956.                             ;6 crot
  5957.       dc.w new_env
  5958.       dc.l pizpianoeq 
  5959.       dc.w new_snd
  5960.       dc.l pizpianop
  5961.  
  5962.     dc.w ab02,tq1,bb02,tq2,ab02,tq1,f02,cr
  5963.     dc.w rest,cr*2
  5964.  
  5965.     dc.w ab01,tq1,bb01,tq2,ab01,tq1,f01,cr
  5966.  
  5967.        dc.w new_env
  5968.       dc.l strings1el
  5969.       dc.w new_snd
  5970.       dc.l strings2p
  5971.  
  5972.     dc.w f02,tq1,g02,tq2,f02,tq1,eb02,cr*6
  5973.     dc.w g02,cr,f02,cr
  5974.  
  5975.       dc.w new_env
  5976.       dc.l pizpianoeq 
  5977.       dc.w new_snd
  5978.       dc.l pizpianop
  5979.  
  5980.     dc.w db02,tq1,db03,tq1,db02,tq1,db03,cr
  5981.     dc.w db02,tq1,db03,tq1,db02,tq1,db03,cr
  5982.     dc.w db02,tq1,db03,tq1,db02,tq1,db03,cr
  5983.     dc.w rest,cr
  5984.  
  5985.       dc.w end_patt
  5986.  
  5987.  
  5988. bridge_tune
  5989.     dc.w eb02,tq1,eb02,tq2,eb02,tq1,d02,cr*3-tq1,c02,tq1
  5990.     dc.w eb02,tq1,eb02,tq2,eb02,tq1,d02,cr*3-tq1,c02,tq1
  5991.  
  5992.     dc.w f02,tq1,f02,tq2,f02,tq1,eb02,cr*3-tq1,c02,tq1
  5993.     dc.w f02,tq1,f02,tq2,f02,tq1,eb02,cr*3-tq1,c02,tq1
  5994.  
  5995.     dc.w ab02,tq1,ab02,tq2,ab02,tq1,g02,cr*3-tq1,c02,tq1
  5996.     dc.w bb02,tq1,bb02,tq2,bb02,tq1,ab02,cr*3-tq1,c02,tq1
  5997.  
  5998.     dc.w db03,cr,db03,tq1,db03,tq2,db03,tq1
  5999.     dc.w b02,cr,b02,tq1,b02,tq2,b02,tq1
  6000.  
  6001.     dc.w db03,cr,db03,tq1,db03,tq2,db03,tq1
  6002.     dc.w db03,cr,db03,tq1,db03,tq2,db03,tq1
  6003.     dc.w db03,cr,db03,tq1,db03,tq2,db03,tq1
  6004.     dc.w db03,tq1,db03,tq2,db03,tq1
  6005.     dc.w db03,tq1,db03,tq2,db03,tq1
  6006.  
  6007.       dc.w end_patt
  6008.  
  6009. bridge_tuneh
  6010.     dc.w c02,tq1,c02,tq2,c02,tq1,c02,cr*3-tq1,g01,tq1
  6011.     dc.w c02,tq1,c02,tq2,c02,tq1,c02,cr*3-tq1,g01,tq1
  6012.  
  6013.     dc.w eb02,tq1,eb02,tq2,eb02,tq1,c02,cr*3-tq1,eb02,tq1
  6014.     dc.w eb02,tq1,eb02,tq2,eb02,tq1,c02,cr*3-tq1,eb02,tq1
  6015.  
  6016.     dc.w f02,tq1,f02,tq2,f02,tq1,f02,cr*3-tq1,f02,tq1
  6017.     dc.w ab02,tq1,ab02,tq2,ab02,tq1,ab02,cr*3-tq1,ab02,tq1
  6018.  
  6019.     dc.w bb02,cr,bb02,tq1,bb02,tq2,bb02,tq1
  6020.     dc.w ab02,cr,ab02,tq1,ab02,tq2,ab02,tq1
  6021.  
  6022.     dc.w a02,cr,a02,cr
  6023.     dc.w g02,cr,g02,cr
  6024.     dc.w gb02,cr,gb02,cr
  6025.     dc.w e02,cr,e02,cr
  6026.  
  6027.       dc.w end_patt
  6028.  
  6029.  
  6030. ;*******   ORCH HIT PATTERNS *******************
  6031.  
  6032. short_run
  6033.  
  6034.     dc.w d03,cr,rest,cr
  6035.     dc.w g03,tq1,f03,tq2,e03,tq1
  6036.     dc.w d03,tq1,c03,tq1,c03,tq1
  6037.       dc.w end_patt
  6038.  
  6039.  
  6040.  
  6041.  
  6042. orchhit_intro
  6043.     dc.w d03,cr,rest,cr*7,bb02,cr,rest,cr*6
  6044.     dc.w c03,cr,d03,cr,rest,cr*7,bb02,cr,rest,cr*3
  6045.     dc.w c03,cr,rest,cr*2,c03,cr,d03,cr,rest,cr*5
  6046.       dc.w end_patt
  6047.  
  6048. phrase_d
  6049.     dc.w d03,cr,d03,tq1,d03,tq2,d03,tq1
  6050.     dc.w d03,cr,d03,tq1,d03,tq2,d03,tq1
  6051.     dc.w d03,cr,d03,tq1,d03,tq2,d03,tq1
  6052.     dc.w d03,tq1,d03,tq2,d03,tq1,d03,tq1,d03,tq2,d03,tq1
  6053.       dc.w end_patt
  6054.  
  6055. phrase_d_low
  6056.     dc.w d02,cr,d02,tq1,d02,tq2,d02,tq1
  6057.     dc.w d02,cr,d02,tq1,d02,tq2,d02,tq1
  6058.     dc.w d02,cr,d02,tq1,d02,tq2,d02,tq1
  6059.     dc.w d02,tq1,d02,tq2,d02,tq1,d02,tq1,d02,tq2,d02,tq1
  6060.       dc.w end_patt
  6061.  
  6062. two_stabs
  6063.     dc.w a02,cr,a02,cr
  6064.       dc.w end_patt
  6065.  
  6066. one_stab
  6067.     dc.w d03,cr,rest,cr*8
  6068.       dc.w end_patt
  6069.  
  6070.  
  6071. ; *********  SNARE     PATTERNS ***********
  6072.  
  6073.  
  6074. dsnare
  6075.     dc.w r16,cr,r16,tq1,r16,tq2,r16,tq1
  6076.     dc.w r16,cr,r16,tq1,r16,tq2,r16,tq1
  6077. sfill    dc.w r16,cr,r16,tq1,r16,tq2,r16,tq1
  6078.     dc.w r16,tq1,r16,tq2,r16,tq1,r16,tq1,r16,tq2,r16,tq1
  6079.       dc.w end_patt
  6080.  
  6081.  
  6082.  
  6083.  
  6084.  
  6085. intro_roll
  6086.  
  6087.     dc.w r16,tsq1,r16,tsq2,r16,tsq1
  6088.     dc.w r16,tsq1,r16,tsq2,r16,tsq1
  6089.     dc.w r16,tsq1,r16,tsq2,r16,tsq1
  6090.     dc.w r16,tsq1,r16,tsq2,r16,tsq1
  6091.  
  6092.     ;dc.w rest cr*2
  6093.     dc.w r4,cr*7
  6094.       dc.w end_patt
  6095.  
  6096. roll2
  6097.     dc.w r16,tq1,r16,tq2,r16,tq1,r16,cr
  6098.     dc.w r16,tq1,r16,tq2,r16,tq1
  6099.     dc.w r16,tq1,r16,tq2,r16,tq1
  6100.       dc.w end_patt
  6101.  
  6102. verse_roll
  6103.       dc.w new_env
  6104.       dc.l orchhite 
  6105.       dc.w new_snd
  6106.       dc.l orchhitpp
  6107.     dc.w    d03,cr
  6108.  
  6109.     ;dc.w r16,tq1+tq2,r16,tq1,
  6110.  
  6111.       dc.w new_env
  6112.       dc.l snareeq 
  6113.       dc.w new_snd
  6114.       dc.l snarep
  6115.  
  6116.  
  6117.  
  6118.     dc.w r16,tq1,r16,tq2,r16,tq1
  6119.     dc.w r16,tq1,r16,tq2,r16,tq1/2,r16,tq1/2
  6120.     dc.w r16,tq1,r16,tq2,r16,tq1
  6121.  
  6122.     dc.w r16,tq1+tq2,r16,tq1,r16,tq1,r16,tq2,r16,tq1/2,r16,tq1/2
  6123.     dc.w r16,tq1/2,r16,tq1/2,r16,tq2,r16,tq1
  6124.     dc.w r16,tq1,r16,tq2,r16,tq1
  6125.  
  6126.     dc.w r16,tq1+tq2,r16,tq1,r16,tq1/2,r16,tq1/2,r16,tq2,r16,tq1
  6127.     dc.w r16,tq1,r16,tq2,r16,tq1
  6128.     dc.w r16,tq1,r16,tq2,r16,tq1/2,r16,tq1/2
  6129.  
  6130.  
  6131.     dc.w r16,tq1+tq2,r16,tq1,r16,tq1,r16,tq2,r16,tq1
  6132.     dc.w r16,tq1,r16,tq2,r16,tq1/2,r16,tq1/2
  6133.     dc.w r16,tq1,r16,tq2,r16,tq1
  6134.       dc.w end_patt
  6135.  
  6136. main_tune_stabs
  6137.  
  6138.  
  6139.       dc.w new_env
  6140.       dc.l snareeq 
  6141.       dc.w new_snd
  6142.       dc.l snarep
  6143.  
  6144.     dc.w r16,tq1+tq2
  6145.  
  6146.       dc.w new_env
  6147.       dc.l orchhite 
  6148.       dc.w new_snd
  6149.       dc.l orchhitpp
  6150.  
  6151.     dc.w a02,tq1,d03,tq1,a02,tq2,d03,tq1,a01,cr+tq1+tq2
  6152.     dc.w g02,tq1+tq2+tq1,g02,tq1,c03,cr
  6153.  
  6154.  
  6155.       dc.w new_env
  6156.       dc.l snareeq 
  6157.       dc.w new_snd
  6158.       dc.l snarep
  6159.  
  6160.     dc.w r16,tq1+tq2,r16,tq1
  6161.     dc.w r16,tq1,r16,tq2,r16,tq1
  6162.     dc.w r16,tq1,r16,tq2
  6163.  
  6164.  
  6165.       dc.w new_env
  6166.       dc.l orchhite 
  6167.       dc.w new_snd
  6168.       dc.l orchhitpp
  6169.  
  6170.     dc.w a02,tq1,d03,tq1,a02,tq2,d03,tq1,a03,cr+tq1+tq2
  6171.     dc.w g03,tq1+tq2+tq1,g03,tq1,e03,cr
  6172.  
  6173.  
  6174.       dc.w new_env
  6175.       dc.l snareeq 
  6176.       dc.w new_snd
  6177.       dc.l snarep
  6178.  
  6179.     dc.w r16,tq1+tq2,r16,tq1
  6180.     dc.w r16,tq1,r16,tq2,r16,tq1
  6181.     dc.w r16,tq1,r16,tq2
  6182.  
  6183.       dc.w new_env
  6184.       dc.l orchhite 
  6185.       dc.w new_snd
  6186.       dc.l orchhitpp
  6187.  
  6188.  
  6189.     dc.w a02,tq1,d03,tq1,a02,tq2,d03,tq1,a03,cr+tq1+tq2
  6190.     dc.w g02,tq1+tq2+tq1,g02,tq1,c03,cr+tq1+tq2,e03,tq1+cr
  6191.  
  6192.  
  6193.       dc.w new_env
  6194.       dc.l snareeq 
  6195.       dc.w new_snd
  6196.       dc.l snarep
  6197.  
  6198.     dc.w r16,tq1+tq2,r16,tq1,r16,tq1/2,r16,tq1/2,r16,tq2,r16,tq1
  6199.     dc.w r16,tq1,r16,tq2,r16,tq1
  6200.     dc.w r16,tq1,r16,tq2,r16,tq1/2,r16,tq1/2
  6201.  
  6202.     dc.w r16,tq1+tq2,r16,tq1,r16,tq1/2,r16,tq1/2,r16,tq2,r16,tq1
  6203.     dc.w r16,tq1,r16,tq2,r16,tq1
  6204.     dc.w r16,tq1,r16,tq2,r16,tq1/2,r16,tq1/2
  6205.  
  6206.       dc.w end_patt
  6207.  
  6208.  
  6209.  
  6210.  
  6211.  
  6212.  
  6213. ;*************   BASS PATTERNS
  6214.  
  6215.  
  6216. intro_bass1
  6217.     dc.w d03,cr,rest,cr*5
  6218.       dc.w end_patt
  6219.  
  6220.  
  6221. intro_bass2
  6222.     dc.w c03,cr,d03,cr,rest,cr*7,bb02,cr,rest,cr*3
  6223.     dc.w c03,cr,rest,cr*2,c03,cr,d03,cr,rest,cr*3
  6224.       dc.w end_patt
  6225.  
  6226. verse_bass
  6227.     dc.w d03,tq1,a02,tq2,d02,tq1
  6228.     dc.w d03,tq1,a02,tq2,d02,tq1
  6229.     dc.w d03,tq1,a02,tq2,d02,tq1
  6230.     dc.w d03,tq1,a02,tq2,d02,tq1
  6231.  
  6232.     dc.w c03,tq1,g02,tq2,c02,tq1
  6233.     dc.w c03,tq1,g02,tq2,c02,tq1
  6234.     dc.w c03,tq1,g02,tq2,c02,tq1
  6235.     dc.w c03,tq1,g02,tq2,c02,tq1
  6236.  
  6237.     dc.w bb02,tq1,f02,tq2,bb01,tq1
  6238.     dc.w bb02,tq1,f02,tq2,bb01,tq1
  6239.     dc.w bb02,tq1,f02,tq2,bb01,tq1
  6240.     dc.w bb02,tq1,f02,tq2,bb01,tq1
  6241.  
  6242.     dc.w c03,tq1,g02,tq2,c02,tq1
  6243.     dc.w c03,tq1,g02,tq2,c02,tq1
  6244.     dc.w c03,tq1,g02,tq2,c02,tq1
  6245.     dc.w c03,tq1,g02,tq2,c02,tq1
  6246.  
  6247.       dc.w end_patt
  6248.  
  6249. mid_bass
  6250.     dc.w bb02,cr*2,f02,cr*2
  6251.     dc.w bb02,cr*2,f02,cr*2
  6252.     dc.w ab02,cr*2,f02,cr*2
  6253.     dc.w ab02,cr*2,f02,cr*2
  6254.     dc.w eb02,cr*2,db02,cr*2,bb01,cr*2,g01,cr*2
  6255.     dc.w db01,cr*8
  6256.       dc.w end_patt
  6257.  
  6258. bridge_bass
  6259.     dc.w c02,cr,c02,cr,c02,cr,c02,cr
  6260.     dc.w c02,cr,c02,cr,c02,cr,c02,cr
  6261.  
  6262.     dc.w eb02,cr,eb02,cr,eb02,cr,eb02,cr
  6263.     dc.w eb02,cr,eb02,cr,eb02,cr,eb02,cr
  6264.  
  6265.     dc.w f02,cr,f02,cr,f02,cr,f02,cr
  6266.     dc.w ab02,cr,ab02,cr,ab02,cr,ab02,cr
  6267.  
  6268.     dc.w e02,cr,e02,cr,e02,cr,e02,cr
  6269.  
  6270.     dc.w a02,cr,a02,cr,g02,cr,g02,cr
  6271.     dc.w gb02,cr,gb02,cr,e02,cr,e02,cr
  6272.  
  6273.       dc.w end_patt
  6274.  
  6275.  
  6276.  
  6277. ****************************************************
  6278. ;  **********   STRING PATTERNS  *************
  6279.  
  6280.  
  6281. string_run
  6282.     dc.w d02,tsq1,eb02,tsq2,e02,tsq1
  6283.     dc.w f02,tsq1,gb02,tsq2,g02,tsq1
  6284.     dc.w ab02,tsq1,a02,tsq2,bb02,tsq1
  6285.     dc.w b02,tsq1,c03,tsq2,db03,tsq1
  6286.  
  6287.       dc.w end_patt
  6288.  
  6289. mid_chord1
  6290.       dc.w new_env
  6291.       dc.l tympe 
  6292.       dc.w new_snd
  6293.       dc.l newtympp
  6294.  
  6295.     dc.w r2,cr*4
  6296.  
  6297.       dc.w new_env
  6298.       dc.l trumpeteq
  6299.       dc.w new_snd
  6300.       dc.l trumpet_loopp
  6301.  
  6302.  
  6303.  
  6304.     dc.w bb02,cr*4
  6305.     dc.w c03,cr*8
  6306.     dc.w eb02,cr*8
  6307.     dc.w f03,cr*8
  6308.       dc.w end_patt
  6309.  
  6310. mid_chord2
  6311.     dc.w f02,cr*8
  6312.     dc.w ab02,cr*8
  6313.     dc.w bb02,cr*8
  6314.     dc.w db03,cr*8
  6315.       dc.w end_patt
  6316.  
  6317. ;*******************   TYMP PATTERNS *****************
  6318.  
  6319. mid_tymp
  6320.     dc.w c03,cr*2,c03,cr*2,c03,cr*2,c03,cr*2
  6321.     dc.w c03,cr*2,c03,cr*2,c03,cr*2,c03,cr*2
  6322.     dc.w c03,cr*2,c03,cr*2
  6323.     dc.w c03,cr*2,c03,cr*2
  6324.     dc.w c03,cr,g02,cr,c03,cr,g02,cr
  6325.  
  6326.       dc.w end_patt
  6327.  
  6328.     ; sample parameters
  6329.  
  6330. ;************************************************************
  6331.  
  6332.         ;BABA YAGA
  6333.  
  6334.  
  6335. cr  set   8
  6336. q set  cr/2
  6337. sq set q/2
  6338.  
  6339. tcr1 set 16
  6340. tcr2 set 16
  6341. tq1 set      8
  6342. tq2 set   8
  6343. tsq1 set 4
  6344. tsq2 set 4
  6345.  
  6346.  
  6347.  
  6348. sbaba1:        ;main tunes
  6349.  
  6350.     dc.l    string_sound_loud,pbaba1
  6351.     dc.l    pverse_bass1
  6352.     dc.l    bass_sound
  6353.     dc.l    pverse_bass2
  6354.     dc.l    histrg_sound
  6355.     dc.l    btune7,btune7o
  6356.     dc.l    pizpiano_sound
  6357.     dc.l    btune8l
  6358.     dc.l    violin_sound_loud
  6359.     dc.l    btune8o
  6360.     dc.l    flute_loud_sound
  6361.     dc.l    trill
  6362.  
  6363.     dc.l    pbrestq
  6364.     dc.l    pizpiano_sound
  6365.     dc.l    fast_violin1
  6366.     dc.l    violin_sound_loud
  6367.     dc.l    fast_violin2
  6368.     dc.l    bass_sound
  6369.     dc.l    fast_violin3
  6370.     dc.l    violin_sound_loud
  6371.     dc.l    fast_violin4
  6372.  
  6373.     dc.l    pizpiano_sound
  6374.     dc.l    fast_violin5
  6375.  
  6376.     dc.l    orch_hit_sound
  6377.     dc.l    endbaba1
  6378.  
  6379.     dc.l    pri
  6380.  
  6381.       dc.l     0,end_song
  6382. ;---------------
  6383.  
  6384. sbaba2:        ;bass
  6385.  
  6386.     dc.l    orch_hit_sound,pbaba2
  6387.     dc.l    pbr1,pbr1,flute_sound,plings1
  6388.     dc.l    pizpiano,plings2
  6389.     dc.l    snare_sound_loud,proll1
  6390.     dc.l    btune1_stab
  6391.     dc.l    brass_sound,btune1,btune1_stab
  6392.     dc.l    brass_sound,btune1
  6393.     dc.l    btune4
  6394.     dc.l    string_sound_loud
  6395.     dc.l    btune7
  6396.     dc.l    violin_sound_loud
  6397.     dc.l    btune7o
  6398.     dc.l    pizpiano_sound
  6399.     dc.l    btune8
  6400.     dc.l    bass_sound,btune8o
  6401.     dc.l    pbr1
  6402.  
  6403. ;sbaba2
  6404.     dc.l    pizpiano_sound
  6405.     dc.l    fast_violin1o
  6406.     dc.l    violin_sound_loud
  6407.     dc.l    fast_violin2
  6408.     dc.l    bass_sound
  6409.     dc.l    fast_violin3o
  6410.     dc.l    violin_sound_loud
  6411.     dc.l    fast_violin4
  6412.  
  6413.     dc.l    pizpiano_sound
  6414.     dc.l    fast_violin5o
  6415.  
  6416.     dc.l    endbaba2
  6417.  
  6418.  
  6419.     dc.l    pri
  6420.  
  6421.         DC.L    0,end_song
  6422.  
  6423. ;---------------
  6424.  
  6425. sbaba3:
  6426.  
  6427.     dc.l    bass_sound,pbaba2o
  6428.     dc.l    pbr1,pbr1,flute_sound,plings3
  6429.     dc.l    pizpiano,plings4
  6430.     dc.l    orch_hit_sound,pstab1
  6431.     dc.l    bass_sound,gbass
  6432.     dc.l    brass_sound,btune2
  6433.     dc.l    bass_sound,gbass
  6434.     dc.l    brass_sound,btune2
  6435.     dc.l    btune5
  6436.     dc.l    orch_hit_sound
  6437.     dc.l    stab_section
  6438.  
  6439.     dc.l    pr10,pr10,pr10,pr10,pr10
  6440.     dc.l    pr10,pr10,pr10,pr10,pr10
  6441.  
  6442.     dc.l    endbaba3
  6443.  
  6444.  
  6445.     dc.l    pri
  6446.  
  6447.       dc.l     0,end_song
  6448. ;---------------
  6449.         ; anything else we can think of
  6450. sbaba4:
  6451.  
  6452.     dc.l    tymp_sound,pbaba2o
  6453.     dc.l    pbr1,pbr1,flute_sound,plings5
  6454.     dc.l    pizpiano,plings6
  6455.     dc.l    bass_sound,pstab1o
  6456.     dc.l    brass_sound,btune3,btune3
  6457.     dc.l    trumpet_sound
  6458.     dc.l    btune6
  6459.     dc.l    orch_hit_sound,pstabg
  6460.     dc.l    bass_sound
  6461.     dc.l    stab_section_bass
  6462.  
  6463.     dc.l    pr10,pr10,pr10,pr10,pr10
  6464.     dc.l    pr10,pr10,pr10,pr10,pr10
  6465.  
  6466.     dc.l    bass_sound
  6467.     dc.l    endbababass
  6468.  
  6469.  
  6470.     dc.l pri_new_tune
  6471.  
  6472.  
  6473.       dc.l     0,end_song
  6474.  
  6475.  
  6476. ;---------------
  6477.  
  6478. pbr1:
  6479.     dc.w rest,cr*4
  6480.     dc.w end_patt
  6481.  
  6482. pri_new_tune
  6483.     dc.w play_new_tune
  6484.     dc.w end_patt
  6485.  
  6486.  
  6487. pri
  6488. pbr25
  6489. prb25:
  6490.     dc.w play_new_tune
  6491.     dc.w rest,cr*4
  6492.     dc.w end_patt
  6493. pr10:
  6494.     dc.w rest,cr*10
  6495.     dc.w end_patt
  6496.  
  6497. pbrestq    dc.w rest,q
  6498.     dc.w end_patt
  6499.  
  6500. endbaba1
  6501.     dc.w eb03,cr*6
  6502.     dc.w end_patt
  6503.  
  6504. endbaba2
  6505.     dc.w rest,cr*6
  6506.     dc.w end_patt
  6507.  
  6508. endbaba3
  6509.     dc.w rest,cr*6
  6510.     dc.w end_patt
  6511.  
  6512. endbababass
  6513.     dc.w eb03,cr*2,eb02,cr*4
  6514.     dc.w end_patt
  6515.  
  6516.  
  6517.  
  6518. ;******************************************
  6519.  
  6520.             ;string/cello lines etc.
  6521.  
  6522. gbass    dc.w    g01,cr*2
  6523.     dc.w end_patt
  6524.  
  6525. fast_violin1
  6526.     dc.w    g03,cr,d03,cr,eb03,cr,b02,cr
  6527. fast_violin2
  6528.     dc.w    c03,cr,g02,cr,ab02,cr,d02,cr
  6529.     dc.w    eb03,cr,b02,cr,c03,cr,g02,cr
  6530.     dc.w    ab02,cr,d02,cr,eb02,cr,b02,cr
  6531.     dc.w end_patt
  6532.  
  6533. fast_violin3
  6534.     dc.w    c03,cr,g02,cr,ab02,cr,g02,cr
  6535.     dc.w    ab02,cr,g02,cr,b02,cr,g02,cr
  6536.     dc.w    ab02,cr,g02,cr,b02,cr,g02,cr
  6537.     dc.w    ab02,cr,g02,cr,ab02,cr,bb02,cr
  6538.     dc.w    b02,cr,d03,cr,eb03,cr,f03,cr
  6539.  
  6540.     dc.w    g02,cr,ab02,cr,bb02,cr,b02,cr
  6541.     dc.w    d03,cr,eb03,cr,f03,cr,g03,cr
  6542.  
  6543.  
  6544.     dc.w end_patt
  6545.  
  6546.  
  6547. fast_violin1o
  6548.     dc.w    g02,cr,d02,cr,eb02,cr,b01,cr
  6549. fast_violin2o
  6550.     dc.w    c02,cr,g01,cr,ab01,cr,d01,cr
  6551.     dc.w    eb02,cr,b01,cr,c02,cr,g01,cr
  6552.     dc.w    ab01,cr,d01,cr,eb01,cr,b01,cr
  6553.     dc.w end_patt
  6554.  
  6555. fast_violin3o
  6556.     dc.w    c02,cr,g01,cr,ab01,cr,g01,cr
  6557.     dc.w    ab01,cr,g01,cr,b01,cr,g01,cr
  6558.     dc.w    ab01,cr,g01,cr,b01,cr,g01,cr
  6559.     dc.w    ab01,cr,g01,cr,ab01,cr,bb01,cr
  6560.     dc.w    b01,cr,d02,cr,eb02,cr,f02,cr
  6561.  
  6562.     dc.w    g01,cr,ab01,cr,bb01,cr,b01,cr
  6563.     dc.w    d02,cr,eb02,cr,f02,cr,g02,cr
  6564.     dc.w end_patt
  6565.  
  6566.  
  6567. fast_violin4
  6568.     dc.w    ab02,cr,bb02,cr,b02,cr,d03,cr
  6569.     dc.w    eb03,cr,f03,cr,g03,cr,ab03,cr
  6570.     dc.w    b02,cr,d02,cr,eb02,cr,f02,cr
  6571.  
  6572.     dc.w end_patt
  6573.  
  6574. fast_violin5
  6575.     dc.w    g02,cr,ab02,cr,bb02,cr,b02,cr
  6576.     dc.w    d03,cr,eb03,cr,f03,cr,g03,cr
  6577.     dc.w    eb03,cr,f03,cr,b02,cr,d03,cr
  6578.     dc.w    eb03,cr,f03,cr,b02,cr,d03,cr
  6579.     dc.w    eb03,cr,f03,cr,f02,cr,gb02,cr
  6580.     dc.w    g02,cr,ab02,cr,a02,cr,bb02,cr
  6581.     dc.w    b02,cr,c03,cr,db03,cr,d03,cr
  6582.     dc.w    eb03,cr,f03,cr,gb03,cr,g03,cr-q
  6583.     dc.w end_patt
  6584.  
  6585. fast_violin5o
  6586.     dc.w    g01,cr,ab01,cr,bb01,cr,b01,cr
  6587.     dc.w    d02,cr,eb02,cr,f02,cr,g02,cr
  6588.     dc.w    eb02,cr,f02,cr,b01,cr,d02,cr
  6589.     dc.w    eb02,cr,f02,cr,b01,cr,d02,cr
  6590.     dc.w    eb02,cr,f02,cr,f01,cr,gb01,cr
  6591.     dc.w    g01,cr,ab01,cr,a01,cr,bb01,cr
  6592.     dc.w    b01,cr,c02,cr,db02,cr,d02,cr
  6593.     dc.w    eb02,cr,f02,cr,gb02,cr,g02,cr
  6594.     dc.w end_patt
  6595.  
  6596.  
  6597.  
  6598. pbaba1
  6599.     dc.w    g01,cr,rest,cr*7,g01,cr*2,g01,cr*2
  6600.     dc.w    rest,cr*4,g01,cr*2,g01,cr*2
  6601.     dc.w    g01,cr,ab01,cr,g01,cr,f02,cr
  6602.     dc.w    g01,cr*2,g01,cr*2,g01,cr,ab01,cr
  6603.     dc.w    g01,cr,db02,cr,g01,cr*2,g01,cr*2
  6604.     dc.w    g01,cr*2,g01,cr*2,g01,cr,c02,cr
  6605.     dc.w    ab01,cr,db02,cr,a01,cr,d02,cr
  6606.     dc.w    bb01,cr,eb02,cr,g01,cr,c02,cr
  6607.     dc.w    ab01,cr,db02,cr,a01,cr,d02,cr
  6608.     dc.w    bb01,cr,eb02,cr
  6609.     dc.w    g01,cr,c02,cr,ab01,cr,db02,cr
  6610.     dc.w    a01,cr,d02,cr,bb01,cr,eb02,cr
  6611.     dc.w    g01,cr,c02,cr,ab01,cr,db02,cr
  6612.     dc.w    a01,cr,d02,cr,bb01,cr,eb02,cr
  6613.     
  6614.     dc.w    g01,cr,c02,cr,ab01,cr,db02,cr
  6615.     dc.w    a01,cr,d02,cr,bb01,cr,eb02,cr
  6616.     dc.w    g01,cr,c02,cr,ab01,cr,db02,cr
  6617.     dc.w    a01,cr,d02,cr,bb01,cr,eb02,cr
  6618.  
  6619.     dc.w end_patt
  6620.  
  6621. pverse_bass1
  6622.     dc.w    g01,cr,gb01,cr,g01,cr,gb01,cr
  6623.     dc.w    g01,cr,gb01,cr,g01,cr,gb01,cr
  6624.     dc.w    g01,cr,gb01,cr,g01,cr,gb01,cr
  6625.     dc.w    c02,cr,bb01,cr,a01,cr,ab01,cr
  6626.     dc.w    g01,cr,gb01,cr,g01,cr,gb01,cr
  6627.     dc.w    g01,cr,gb01,cr,g01,cr,gb01,cr
  6628.     dc.w    g01,cr,gb01,cr,g01,cr,gb01,cr
  6629.     dc.w    c02,cr,bb01,cr,a01,cr,ab01,cr
  6630.     dc.w end_patt
  6631.  
  6632. pverse_bass2
  6633.     dc.w    rest,cr*2,c03,cr*2
  6634.     dc.w    c02,cr*2,c03,cr*2
  6635.     dc.w    rest,cr*2,g03,cr*2
  6636.     dc.w    g02,cr*2,g03,cr*2
  6637.     dc.w    rest,cr*2,c03,cr*2
  6638.     dc.w    c02,cr*2,c03,cr*2
  6639.     dc.w    rest,cr*2,g03,cr*2
  6640.     dc.w    g02,cr*2,g03,cr*2
  6641.  
  6642.     dc.w    rest,cr*2,a03,cr*2
  6643.     dc.w    a02,cr*2,a03,cr*2
  6644.  
  6645.     dc.w    rest,cr*2,e03,cr*2
  6646.     dc.w    e02,cr*2,e03,cr*2
  6647.  
  6648.     dc.w    rest,cr*2,a03,cr*2
  6649.     dc.w    a02,cr*2,a03,cr*2
  6650.  
  6651.     dc.w    rest,cr*2,e03,cr*2
  6652.     dc.w    e02,cr*2,e03,cr*2
  6653.  
  6654.     dc.w    g01,cr*2
  6655.     dc.w end_patt
  6656.  
  6657.  
  6658. btune1_stab
  6659.       dc.w new_env
  6660.       dc.l orchhite 
  6661.       dc.w new_snd
  6662.       dc.l orchhitpp
  6663.     dc.w c03,cr*2
  6664.     dc.w end_patt
  6665.  
  6666. btune1
  6667.     dc.w  g03,cr*2,g03,cr*2,g03,cr*2,g03,cr*2
  6668.     dc.w  c03,cr*2,d03,cr*4
  6669.     dc.w end_patt
  6670.  
  6671. btune2
  6672.  
  6673.     dc.w  e03,cr*2,e03,cr*2,e03,cr*2,e03,cr*2
  6674.     dc.w  g02,cr*2,ab02,cr*4
  6675.     dc.w end_patt
  6676.  
  6677. btune3
  6678.     dc.w rest,cr*2
  6679.     dc.w  c03,cr*2,c03,cr*2,c03,cr*2,c03,cr*2
  6680.     dc.w  e02,cr*2,f02,cr*4
  6681.     dc.w end_patt
  6682.  
  6683.  
  6684. btune4
  6685.     dc.w eb03,cr*2,eb03,cr*2,eb03,cr*2,eb03,cr*2
  6686.     dc.w g03,cr,d03,cr,eb03,cr,bb02,cr
  6687.     dc.w g03,cr,d03,cr,eb03,cr,bb02,cr
  6688.     dc.w eb03,cr*2,eb03,cr*2,eb03,cr*2,eb03,cr*2
  6689.     dc.w bb02,cr*2,bb02,cr,f02,cr
  6690.     dc.w g02,cr,eb02,cr,d03,cr,bb02,cr
  6691.     dc.w a02,cr*2,b02,cr*2,b02,cr*2,b02,cr*2
  6692.     dc.w g03,cr,d03,cr,e03,cr,c03,cr
  6693.     dc.w g03,cr,d03,cr,e03,cr,c03,cr
  6694.  
  6695.     dc.w a02,cr*2,b02,cr*2,b02,cr*2,b02,cr*2
  6696.     dc.w c03,cr*2,c03,cr,g02,cr,a02,cr,f02,cr
  6697.     dc.w e02,cr,c02,cr,g02,cr*2
  6698.  
  6699.  
  6700.     dc.w end_patt
  6701.  
  6702. btune5
  6703.     dc.w gb03,cr*2,a03,cr*2,a03,cr*2,a03,cr*2
  6704.  
  6705.     dc.w g02,cr,d02,cr,eb02,cr,bb01,cr
  6706.     dc.w g02,cr,d02,cr,eb02,cr,bb01,cr
  6707.  
  6708.     dc.w gb03,cr*2,a03,cr*2,a03,cr*2,a03,cr*2
  6709.  
  6710.     dc.w bb01,cr*2,bb01,cr,f01,cr
  6711.     dc.w g01,cr,eb01,cr,d02,cr,bb01,cr
  6712.  
  6713.     dc.w b02,cr*2,eb03,cr*2,eb03,cr*2,eb03,cr*2
  6714.     dc.w g02,cr,d02,cr,e02,cr,c02,cr
  6715.     dc.w g02,cr,d02,cr,e02,cr,c02,cr
  6716.  
  6717.     dc.w b02,cr*2,eb03,cr*2,eb03,cr*2,eb03,cr*2
  6718.  
  6719.     dc.w c02,cr*2,c02,cr,g01,cr,a01,cr,f01,cr
  6720.     dc.w e01,cr,c01,cr,g01,cr*2
  6721.  
  6722.  
  6723.     dc.w end_patt
  6724.  
  6725. btune6
  6726.     dc.w     gb02,cr*8,bb02,cr*8
  6727.     dc.w     gb02,cr*8,bb02,cr*8
  6728.     dc.w     gb02,cr*8,bb02,cr*8
  6729.     dc.w     gb02,cr*8,c03,cr*8
  6730.     
  6731.     dc.w end_patt
  6732.  
  6733. btune7
  6734.     dc.w    g03,cr,d03,cr,eb03,cr,d03,cr,bb02,cr,g02,cr
  6735.     dc.w    ab02,cr,eb03,cr,b02,cr,eb03,cr,d03,cr*2
  6736.     dc.w    b02,cr*2
  6737.     dc.w end_patt
  6738.  
  6739. btune7o
  6740.     dc.w    g03,cr*2,g03,cr,d03,cr,eb03,cr,d03,cr
  6741.     dc.w    bb02,cr,g02,cr
  6742.     dc.w    ab02,cr,eb03,cr,b02,cr,eb03,cr,d03,cr*2
  6743.     dc.w    g02,cr*2
  6744.     dc.w end_patt
  6745.  
  6746.  
  6747. btune8
  6748.     dc.w    g03,cr*2,g03,cr,d03,cr,eb03,cr,d03,cr
  6749.     dc.w    bb02,cr,g02,cr
  6750.     dc.w    rest,cr*2
  6751.     dc.w    g03,cr,d03,cr,eb03,cr,d03,cr
  6752.     dc.w    bb02,cr,g02,cr
  6753.     dc.w    rest,cr*2
  6754.     dc.w end_patt
  6755.  
  6756. btune8l
  6757.     dc.w    g02,cr*2,g02,cr,d02,cr,eb02,cr,d02,cr
  6758.     dc.w    bb01,cr,g01,cr
  6759.     dc.w    rest,cr*2
  6760.     dc.w    g02,cr,d02,cr,eb02,cr,d02,cr
  6761.     dc.w    bb01,cr,g01,cr
  6762.     dc.w    rest,cr*2
  6763.     dc.w end_patt
  6764.  
  6765.  
  6766.  
  6767. btune8o
  6768.     dc.w    g03,cr,d03,cr,eb03,cr,d03,cr
  6769.     dc.w    bb02,cr,g02,cr
  6770.     dc.w    rest,cr*2
  6771.     dc.w    g03,cr,d03,cr,eb03,cr,d03,cr
  6772.     dc.w    bb02,cr,g02,cr
  6773.     dc.w    rest,cr*4
  6774.     dc.w end_patt
  6775.  
  6776. trill
  6777.     dc.w    b02,cr
  6778.     dc.w    d03,sq,eb03,sq,f03,sq,g03,sq,ab03,cr*2
  6779.     dc.w end_patt
  6780.  
  6781.  
  6782.  
  6783. ;******************************
  6784.  
  6785.         ;orch hit patterns
  6786.  
  6787. pbaba2
  6788.     dc.w    g03,cr+cr*7,g03,cr*2,g03,cr*6
  6789.     dc.w    g03,cr*2,g03,cr*2,g03,cr*2,rest,cr*2
  6790.     dc.w    g03,cr*2,g03,cr*2,g03,cr*2,rest,cr*2
  6791.     dc.w    g03,cr*2,g03,cr*2,g03,cr*2,rest,cr*2
  6792.     dc.w    g03,cr*2,g03,cr*2,g03,cr*2,rest,cr*2
  6793.     dc.w end_patt
  6794.  
  6795. pbaba2o
  6796.     dc.w    g02,cr+cr*7,g02,cr*2,g02,cr*6
  6797.     dc.w    g02,cr*2,g02,cr*2,g02,cr*2,rest,cr*2
  6798.     dc.w    g02,cr*2,g02,cr*2,g02,cr*2,rest,cr*2
  6799.     dc.w    g02,cr*2,g02,cr*2,g02,cr*2,rest,cr*2
  6800.     dc.w    g02,cr*2,g02,cr*2,g02,cr*2,rest,cr*2
  6801.     dc.w end_patt
  6802.  
  6803. pstab1
  6804.     dc.w    g03,cr*8
  6805.     dc.w end_patt
  6806.  
  6807. pstab1o
  6808.     dc.w    g01,cr*8
  6809.     dc.w end_patt
  6810.  
  6811. pstabg
  6812.     dc.w    g03,cr*2
  6813.     dc.w end_patt
  6814.  
  6815. pstabc
  6816.     dc.w    c03,cr*2
  6817.     dc.w end_patt
  6818.  
  6819. stab_section
  6820.     dc.w    rest,cr*12
  6821.     dc.w    g03,cr*2
  6822.     dc.w    rest,cr*14
  6823.     dc.w    g03,cr*2
  6824.     dc.w    rest,cr*8
  6825.     dc.w    gb03,cr*2
  6826.     dc.w    rest,cr*6
  6827.     dc.w    f03,cr*2
  6828.     dc.w    rest,cr*6
  6829.     dc.w    e03,cr*2
  6830.  
  6831.       dc.w new_env
  6832.       dc.l snaree 
  6833.       dc.w new_snd
  6834.       dc.l snarep
  6835.     dc.w    r16,cr,r16,cr,r16,cr
  6836.     dc.w    r16,cr,r16,cr,r16,cr
  6837.     
  6838.       dc.w new_env
  6839.       dc.l orchhite 
  6840.       dc.w new_snd
  6841.       dc.l orchhitpp
  6842.     dc.w    eb03,cr*2,d03,cr*2
  6843.     dc.w    b02,cr*2,ab03,cr*2
  6844.  
  6845.     dc.w end_patt
  6846.  
  6847. stab_section_bass
  6848.     dc.w    rest,cr*12
  6849.     dc.w    g01,cr*2
  6850.     dc.w    rest,cr*14
  6851.     dc.w    g01,cr*2
  6852.     dc.w    rest,cr*8
  6853.     dc.w    gb01,cr*2
  6854.     dc.w    rest,cr*6
  6855.     dc.w    f01,cr*2
  6856.     dc.w    rest,cr*6
  6857.     dc.w    e01,cr*2
  6858.     dc.w    rest,cr*6
  6859.     dc.w    eb01,cr*2,d01,cr*2
  6860.     dc.w    b01,cr*2,ab02,cr*2
  6861.     dc.w end_patt
  6862.  
  6863.  
  6864.  
  6865. ;*****************************
  6866.  
  6867.             ;flute bits
  6868.  
  6869. plings1
  6870.     dc.w    e03,cr*2,db03,cr*2,c03,cr*2,bb02,cr*2
  6871.     dc.w    e02,cr*2,db02,cr*2,c02,cr*2,bb01,cr*2
  6872.     dc.w end_patt
  6873.  
  6874. plings2
  6875.     dc.w    e03,cr*2,db03,cr*2,c03,cr*2,bb02,cr*2
  6876.     dc.w end_patt
  6877.  
  6878. plings3
  6879.     dc.w    c03,cr*2,ab02,cr*2,gb02,cr*2,g02,cr*2
  6880.     dc.w    c02,cr*2,ab01,cr*2,gb01,cr*2,g01,cr*2
  6881.     dc.w end_patt
  6882.  
  6883. plings4
  6884.     dc.w    c03,cr*2,ab02,cr*2,gb02,cr*2,g02,cr*2
  6885.     dc.w end_patt
  6886.  
  6887.  
  6888. plings5
  6889.     dc.w    e02,cr*2,f02,cr*2,d02,cr*2,bb01,cr*2
  6890.     dc.w    e01,cr*2,f01,cr*2,d01,cr*2,bb00,cr*2
  6891.     dc.w end_patt
  6892.  
  6893. plings6
  6894.     dc.w    e02,cr*2,f02,cr*2,d02,cr*2,bb01,cr*2
  6895.     dc.w end_patt
  6896.  
  6897. ;******************************
  6898.  
  6899.             ;snare drums etc
  6900.  
  6901. proll1
  6902.     dc.w    rest,cr*4,r16,cr,r16,cr,r16,cr,r16,cr
  6903.     dc.w end_patt
  6904.  
  6905. ;&&&&&&&&&&&&&&&&&&&&&&&
  6906.  
  6907. cr  set   24
  6908. q set  cr/2
  6909. sq set q/2
  6910.  
  6911. tcr1 set 16
  6912. tcr2 set 16
  6913. tq1 set      8
  6914. tq2 set   8
  6915. tsq1 set 4
  6916. tsq2 set 4
  6917.  
  6918. sgg1
  6919.     dc.l    brass_sound
  6920.     dc.l    ggtune1,ggtune2,ggtune1,ggend
  6921.     dc.l    pri
  6922.  
  6923.       dc.l     0,end_song
  6924.  
  6925.  
  6926. sgg2
  6927.  
  6928.     dc.l    trumpet_sound
  6929.     dc.l    ggharm1,ggharm2,ggharm1,ggend2
  6930.     dc.l    pri
  6931.  
  6932.       dc.l     0,end_song
  6933.  
  6934. sgg3
  6935.  
  6936.     dc.l    bass_sound
  6937.     dc.l    ggbass1,ggbass2,ggbass1,ggend3
  6938.     dc.l    pri
  6939.  
  6940.  
  6941.       dc.l     0,end_song
  6942.  
  6943. sgg4
  6944.  
  6945.     dc.l    trumpet_sound
  6946.     dc.l    ggtune1,ggtune2,ggtune1,ggend
  6947.     dc.l pri_new_tune
  6948.  
  6949.  
  6950.       dc.l     0,end_song
  6951.  
  6952.  
  6953.  
  6954. ggtune1
  6955.     dc.w    eb02,cr*4,f02,cr*4,g02,cr*2
  6956.     dc.w    eb02,cr,g02,cr,f02,cr*2,bb01,cr*2
  6957.     dc.w    g02,cr,bb02,cr,f02,cr,eb02,cr
  6958.     dc.w    d02,cr*2,bb01,cr*2
  6959.     dc.w    g02,cr,bb02,cr,f02,cr,eb02,cr
  6960.     dc.w    d02,cr*2,bb01,cr*2
  6961.  
  6962.     dc.w end_patt
  6963. ggtune2
  6964.     dc.w    eb02,cr*4,f02,cr*4,g02,cr*2
  6965.     dc.w    eb02,cr,g02,cr,f02,cr*2,bb01,cr*2
  6966.  
  6967.     dc.w    eb03,cr,eb03,cr,d03,cr,bb02,cr
  6968.     dc.w    c03,cr,c03,cr,ab02,cr,c03,cr
  6969.     dc.w    bb02,cr*2,ab02,cr,g02,cr
  6970.     dc.w    f02,cr*4,bb02,cr*2,c03,cr*2
  6971.     dc.w    eb02,cr,eb02,cr,d02,cr,c02,cr
  6972.     dc.w    bb01,cr*2,ab01,cr,g01,cr,f01,cr*4
  6973.     dc.w    bb01,cr*4
  6974.  
  6975.     dc.w end_patt
  6976.  
  6977. ggend
  6978.     dc.w    eb02,cr*8    
  6979.     dc.w end_patt
  6980.  
  6981. ggharm1
  6982.     dc.w    bb01,cr*4,d02,cr*4,eb02,cr*2
  6983.     dc.w    c02,cr,c02,cr,d02,cr*2,g01,cr*2
  6984.     dc.w    eb02,cr,g02,cr,bb01,cr*2
  6985.     dc.w    bb01,cr*2,g01,cr*2
  6986.     dc.w    eb02,cr,g02,cr,bb01,cr*2
  6987.     dc.w    bb01,cr*2,g01,cr*2
  6988.  
  6989.     dc.w end_patt
  6990. ggharm2
  6991.     dc.w    bb01,cr*4,d02,cr*4,eb02,cr*2
  6992.     dc.w    c02,cr*2,d02,cr*2,g01,cr*2
  6993.  
  6994.     dc.w    ab02,cr*2,ab02,cr*2
  6995.     dc.w    eb02,cr*4
  6996.     dc.w    eb02,cr*4
  6997.     dc.w    c02,cr*4,f02,cr*2,g02,cr*2
  6998.     dc.w    c02,cr*2,ab01,cr*2
  6999.     dc.w    eb01,cr*4,c01,cr*4,g01,cr*4
  7000.  
  7001.     dc.w end_patt
  7002.  
  7003. ggend2
  7004.     dc.w    g02,cr*8    
  7005.     dc.w end_patt
  7006.  
  7007.  
  7008. ggbass1
  7009.     dc.w    g02,cr*4,f02,cr*4,eb02,cr*2
  7010.     dc.w    c02,cr*2,d02,cr*2,bb02,cr*2
  7011.     dc.w    eb02,cr*2,d02,cr,c02,cr
  7012.     dc.w    bb01,cr*2,g01,cr*2
  7013.     dc.w    eb02,cr*2,d02,cr,c02,cr
  7014.     dc.w    bb01,cr*2,g01,cr*2
  7015.  
  7016.     dc.w end_patt
  7017. ggbass2
  7018.     dc.w    g02,cr*4,f02,cr*4,eb02,cr*2
  7019.     dc.w    c02,cr*2,d02,cr*2,bb01,cr*2
  7020.  
  7021.     dc.w    c03,cr,c03,cr,bb02,cr,g02,cr
  7022.     dc.w    ab02,cr,ab02,cr,f02,cr,ab02,cr
  7023.     dc.w    g02,cr*2,ab02,cr,eb02,cr
  7024.     dc.w    f03,cr*4,d03,cr*2,c03,cr*2
  7025.     dc.w    c03,cr,c03,cr,bb02,cr,ab02,cr
  7026.     dc.w    g01,cr*2,f01,cr,eb01,cr,ab01,cr*4
  7027.     dc.w    g01,cr*4
  7028.  
  7029.     dc.w end_patt
  7030.  
  7031. ggend3
  7032.     dc.w    eb01,cr*8    
  7033.     dc.w end_patt
  7034.  
  7035.  
  7036.  
  7037. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  7038.  
  7039.  
  7040. cr  set   12
  7041. q set  cr/2
  7042. sq set q/2
  7043.  
  7044. tcr1 set 16
  7045. tcr2 set 16
  7046. tq1 set      8
  7047. tq2 set   8
  7048. tsq1 set 4
  7049. tsq2 set 4
  7050.  
  7051. rvs1
  7052.  
  7053.     ;dc.l    rvr6
  7054.     dc.l    trumpet_sound
  7055.     dc.l    sus_start
  7056.  
  7057.  
  7058.     dc.l    trumpet_sound
  7059.     dc.l    rvtune1
  7060.     dc.l    orch_hit_sound
  7061.     dc.l    rvstabs1
  7062.                 ;rpt1
  7063.     dc.l    trumpet_sound
  7064.     dc.l    rvtune1
  7065.     dc.l    orch_hit_sound
  7066.     dc.l    rvstabs1
  7067.  
  7068.  
  7069.     dc.l    brass_sound
  7070.     dc.l    end_tune_brass
  7071.  
  7072.     dc.l    pri
  7073.  
  7074.  
  7075.       dc.l     0,end_song
  7076.  
  7077. rvs2
  7078.  
  7079.     dc.l    string_sound_loud
  7080.     dc.l    trill_intro
  7081.  
  7082.  
  7083.     ;dc.l    rvr3
  7084.     dc.l    pizpiano_sound_quiet
  7085.     dc.l    rvhivi1_start
  7086.     dc.l    rvhivi1
  7087.     dc.l    rvhivi2
  7088.     dc.l    rvhivi2
  7089.     dc.l    rvhivi2
  7090.     dc.l    rvhivi2
  7091.     dc.l    rvhivi2
  7092.     dc.l    rvhivi3
  7093.     dc.l    rvhivi4
  7094.     dc.l    rvhivi4
  7095.     dc.l    rvhivi4
  7096.     dc.l    rvhivi4a
  7097.     dc.l    rvhivi5
  7098.     dc.l    rvhivi6
  7099.     dc.l    rvhivi5
  7100.     dc.l    rvhivi7
  7101.     dc.l    rvhivi8
  7102.             ;rpt 1
  7103.  
  7104.  
  7105.  
  7106.     dc.l    rvhivi1
  7107.     dc.l    rvhivi2
  7108.     dc.l    rvhivi2
  7109.     dc.l    rvhivi2
  7110.     dc.l    rvhivi2
  7111.     dc.l    rvhivi2
  7112.     dc.l    rvhivi3
  7113.     dc.l    rvhivi4
  7114.     dc.l    rvhivi4
  7115.     dc.l    rvhivi4
  7116.     dc.l    rvhivi4a
  7117.     dc.l    rvhivi5
  7118.     dc.l    rvhivi6
  7119.     dc.l    rvhivi5
  7120.     dc.l    rvhivi7
  7121.     dc.l    rvhivi8
  7122.  
  7123.  
  7124.     dc.l    pizpiano_sound
  7125.  
  7126.     dc.l    end_tune_vi
  7127.     dc.l    pri
  7128.  
  7129.       dc.l     0,end_song
  7130.  
  7131. rvs3
  7132.  
  7133.  
  7134.     dc.l    string_sound_loud
  7135.     dc.l    rvtune1_acc_start
  7136.     dc.l    rvtune1_acc
  7137.                 ;rpt 1
  7138.     dc.l    bass_sound
  7139.     dc.l    rvtune1_acc
  7140.  
  7141.  
  7142.     dc.l    bass_sound
  7143.  
  7144.     dc.l    end_tuneo
  7145.     dc.l    pri
  7146.  
  7147.       dc.l     0,end_song
  7148.  
  7149. rvs4
  7150.  
  7151.     dc.l    snare_sound
  7152.     dc.l    snare_patt_rests
  7153.     dc.l    tymp_sound
  7154.     dc.l    rvtymp1
  7155.     dc.l    snare_sound
  7156.     dc.l    tick,tick,tick,tick,tick,tick,tick
  7157.     dc.l    tick1
  7158.     dc.l    orch_hit_sound
  7159.     dc.l    end_tune_stabs
  7160.     dc.l pri_new_tune
  7161.       dc.l     0,end_song
  7162.  
  7163. rvr6
  7164.     dc.w rest,cr*18
  7165.     dc.w end_patt
  7166.  
  7167. rvr3
  7168.     dc.w rest,cr*9
  7169.     dc.w end_patt
  7170.  
  7171. clock
  7172.     dc.w    r16,cr*3
  7173.     dc.w end_patt
  7174.  
  7175.  
  7176.  
  7177. tick
  7178.  
  7179.     dc.w    r16,cr,r16,q,r16,q,r16,q,r16,q
  7180.     dc.w    r16,cr,r16,q,r16,q,r16,q,r16,q
  7181.     dc.w    r16,cr,r16,q,r16,q,r16,q,r16,q
  7182.     dc.w    r16,cr,r16,q,r16,q,r16,q,r16,q
  7183.     dc.w    r16,cr,r16,q,r16,q,r16,q,r16,q
  7184.     dc.w    r16,cr,r16,q,r16,q,r16,q,r16,q
  7185.     dc.w    r16,cr,r16,q,r16,q,r16,q,r16,q
  7186. tick1    dc.w    r16,cr,r16,q,r16,q,r16,q,r16,q
  7187.     dc.w    r16,cr,r16,q,r16,q,r16,q,r16,q
  7188.     dc.w    r16,cr,r16,q,r16,q,r16,q,r16,q
  7189.  
  7190.     dc.w end_patt
  7191.  
  7192. snare_patt_rests
  7193.  
  7194.     dc.w    rest,cr*48*3+cr+cr
  7195.     dc.w end_patt
  7196.  
  7197. rvtymp1
  7198.     dc.w    r16,cr,r16,cr+q,r16,q
  7199.     dc.w    r16,cr,r16,cr*5
  7200.  
  7201.     dc.w    r16,cr,r16,cr+q,r16,q
  7202.     dc.w    r16,cr,r16,cr*5
  7203.  
  7204.     dc.w    r16,cr,r16,cr+q,r16,q
  7205.     dc.w    r16,cr,r16,cr*3,r16,cr*3
  7206.  
  7207.     dc.w    rest,cr*3*5+cr+cr
  7208.     dc.w    r16,cr,r16,cr+q,r16,q
  7209.     dc.w    r16,cr,r16,cr*5
  7210.  
  7211.     dc.w    r16,cr,r16,cr+q,r16,q
  7212.     dc.w    r16,cr,r16,cr*5
  7213.  
  7214.     dc.w    r16,cr,r16,cr+q,r16,q
  7215.     dc.w    r16,cr,r16,cr*3,r16,cr*3,r16,cr
  7216.     dc.w    r16,q,r16,q,r16,q,r16,q
  7217.     dc.w    r16,cr,r16,q,r16,q,r16,q,r16,q
  7218.     dc.w    r16,cr,r16,q,r16,q,r16,q,r16,q
  7219.  
  7220.     dc.w    r12,cr*3
  7221.     dc.w    rest,cr*3
  7222.  
  7223.     dc.w end_patt
  7224.  
  7225. end_tune
  7226.     dc.w    rest,cr,d02,cr,g02,cr+q,d02,q,g02,cr,c03,cr*3
  7227.     dc.w    f03,cr*3,bb03,cr*3
  7228.     dc.w end_patt
  7229.  
  7230. end_tune_brass
  7231.     dc.w    rest,cr*2,d02,cr,g02,cr+q,d02,q,g02,cr,c03,cr*3
  7232.     dc.w    f03,cr*3,bb03,cr*3
  7233.     dc.w end_patt
  7234.  
  7235. end_tune_vi
  7236.     dc.w    d02,cr,g02,cr+q,d02,q,g02,cr,c03,cr*3
  7237.     dc.w    f03,cr*3,bb03,cr*3
  7238.     dc.w end_patt
  7239.  
  7240.  
  7241. end_tuneo
  7242.     dc.w    rest,cr,d01,cr,g01,cr+q,d01,q,g01,cr,c02,cr*3
  7243.     dc.w    f01,cr*3,bb01,cr*3
  7244.     dc.w end_patt
  7245.  
  7246. end_tune_stabs
  7247.     dc.w    rest,cr*3,c03,cr*3,f02,cr*3,bb02,cr*3
  7248.     dc.w end_patt
  7249.  
  7250.  
  7251.  
  7252.  
  7253.  
  7254. trill_intro
  7255.     dc.w    rest,cr
  7256.     dc.w    g02,q,a02,q,bb02,q,c03,q
  7257.     dc.w    d03,sq,eb03,sq,d03,sq,eb03,sq
  7258.     dc.w    d03,sq,eb03,sq,d03,sq,eb03,sq
  7259.     dc.w    d03,sq,eb03,sq,d03,sq,eb03,sq
  7260.     dc.w    d03,sq,eb03,sq,d03,sq,eb03,sq
  7261.     dc.w     d03,sq,eb03,sq,d03,sq,eb03,sq
  7262.     dc.w    d03,sq,eb03,sq,d03,sq,eb03,sq
  7263.     dc.w    d03,sq,eb03,sq,d03,sq,eb03,sq
  7264.     dc.w end_patt
  7265.  
  7266. sus_start
  7267.     dc.w    rest,cr,g02,q,a02,q,bb02,q,c03,q
  7268.     dc.w d03,cr*15
  7269.     dc.w end_patt
  7270.  
  7271.  
  7272.  
  7273. rvstabs1
  7274.     dc.w    a03,cr*3,d03,cr*3,g03,cr*9
  7275.     dc.w    g03,cr*3,rest,cr*3
  7276.  
  7277.     dc.w end_patt
  7278.  
  7279.  
  7280. rvtune1_acc_start
  7281.     dc.w    rest,cr*6
  7282.     dc.w    g01,cr+q,g02,q,d02,cr
  7283.     dc.w    d02,cr+q,d03,q,g02,cr,d03,cr*3
  7284.  
  7285.     dc.w    g01,cr+q,g02,q,d02,cr,d03,cr
  7286.     dc.w end_patt
  7287.  
  7288. rvtune1_acc
  7289.     dc.w    rest,cr
  7290.     dc.w    d02,cr,g02,cr+q
  7291.     dc.w    d02,q,g02,cr,bb02,cr+q,g02,q,d02,cr
  7292.     dc.w    g02,cr+q,d02,q,g01,cr
  7293.  
  7294.     dc.w    bb02,cr+q,g02,q,bb02,cr,d03,cr+q,g02,q,d02,cr
  7295.     dc.w    bb02,cr+q,d02,q,g02,cr,d03,cr+q,bb02,q
  7296.     dc.w    d03,cr,f03,cr+q,bb02,q,f02,cr,f02,cr+q,c02,q
  7297.     dc.w    f01,cr,bb02,cr+q
  7298.  
  7299.     dc.w    f02,q,bb02,cr,bb01,cr+q,bb02,q,f02,cr,f02,cr
  7300.     dc.w    f03,cr,bb02,cr,d02,cr*3
  7301. ;end of page 1
  7302.  
  7303.  
  7304.     dc.w    bb01,cr+q,bb02,q,f02,cr,f02,cr+q,d03,q,bb02,cr
  7305.     dc.w    d03,cr*3
  7306.     dc.w    bb01,cr+q,bb02,q,f02,cr,f02,cr+q,d02,q,bb01,cr
  7307.     dc.w    d02,cr*3
  7308.     dc.w    bb01,cr+q,bb02,q,f02,cr,f03,cr*2
  7309.  
  7310.  
  7311.     dc.w    f02,cr
  7312.     dc.w    bb02,cr+q,f02,q,bb02,cr,d03,cr+q
  7313.     dc.w    bb02,q,f02,cr
  7314.  
  7315.     dc.w    bb02,cr+q,f02,q,bb01,cr,d03,cr+q,bb02,q
  7316.     dc.w    d03,cr,f03,cr+q,bb02,q,f02,cr
  7317.     dc.w    d03,cr+q,f02,q,bb01,cr,f03,cr+q,d03,q
  7318.     dc.w    f03,cr
  7319.     dc.w    a02,cr+q,d03,q
  7320.     dc.w    a02,cr,a01,cr+q,e02,q,a01,cr,d03,cr+q
  7321.     dc.w    a02,q,d03,cr
  7322.     
  7323.     dc.w    gb03,cr+q,a02,q,d02,cr,d02,cr+q,d03,q,a02,cr
  7324.     dc.w    gb03,cr*3
  7325.  
  7326.  
  7327.     dc.w    d02,cr+q,a02,q,d02,cr,d02,cr+q,d03,q,a02,cr
  7328.     dc.w    gb03,cr*3
  7329.  
  7330.     dc.w    d02,cr+q,a02,q,d02,cr,d02,cr+q,d03,q,a02,cr
  7331.     dc.w    gb03,cr*3
  7332. ;end of page 2
  7333.  
  7334.     dc.w    d02,cr+q,a02,q,d02,cr,d03,cr,rest,cr
  7335.  
  7336.     dc.w    d02,cr
  7337.     dc.w    eb02,cr+q,c02,q,eb02,cr
  7338.     dc.w    g01,cr+q,d02,q,g01,cr,g01,cr*2,rest,q
  7339.  
  7340.  
  7341.     dc.w    d02,q
  7342.     dc.w    eb02,cr+q,c02,q,eb02,cr,g03,cr+q,d03,q,g03,cr,g03,cr*2
  7343.     dc.w    rest,q,d02,q
  7344.     dc.w    eb02,cr+q,c02,q,eb02,cr,ab03,cr+q
  7345.     dc.w    eb03,q,ab02,cr
  7346.     dc.w    d03,cr+q,a02,q,d03,cr,bb01,cr+q,g02,q,bb02,cr
  7347.  
  7348.  
  7349.     dc.w    g01,cr+q,g02,q,d02,cr,d02,cr+q,d03,q,g02,cr
  7350.     dc.w    d03,cr*3
  7351.     dc.w    g01,cr+q,g02,q,d02,cr,d02,cr*2
  7352.  
  7353.  
  7354.     dc.w    d03,cr
  7355.     dc.w    eb03,cr+q,c03,q,eb03,cr,g02,cr+q
  7356.     dc.w    d02,q,g02,cr,g03,q,rest,q+cr
  7357.  
  7358.     dc.w    d03,cr
  7359.     dc.w    eb03,cr+q,c03,q,eb03,cr,g03,cr+q
  7360.     dc.w    d03,q,g02,cr,g03,q,rest,q+cr
  7361.     dc.w    d03,cr
  7362.     dc.w    eb03,cr+q,c03,q,eb03,cr
  7363.             ;;;;;stab section
  7364.  
  7365.     dc.w    c02,cr+q,e02,q,c02,cr
  7366.     dc.w    d02,cr+q,a02,q,d02,cr
  7367.     dc.w    g02,cr+q,g01,q,b01,cr
  7368.  
  7369.             ;;;;end of main bit
  7370.     dc.w    g01,cr+q,g02,q,d02,cr,d03,cr+q
  7371.     dc.w    g02,q,d03,cr,d03,cr*3
  7372.     dc.w    g01,cr+q,g02,q,d02,cr,d03,cr
  7373.  
  7374.     dc.w end_patt
  7375.  
  7376.  
  7377. rvhivi1_start
  7378.     dc.w    g02,q,a02,q,bb02,q,c03,q,d03,q
  7379.     dc.w    eb03,q,d03,q,bb02,q,g02,cr
  7380.     dc.w    d02,q,eb02,q,d02,q,bb01,q,g01,cr
  7381.  
  7382.     dc.w    rest,q,d02,q,g02,q,a02,q
  7383.     dc.w end_patt
  7384. rvhivi1
  7385.     dc.w    bb02,q,c03,q,d03,q
  7386.     dc.w    eb03,q,d03,q,bb02,q,g02,cr
  7387.     dc.w    d02,q,eb02,q,d02,q,bb01,q,g01,cr
  7388.  
  7389.     dc.w    rest,q,d02,q,g02,q,a02,q,bb02,q,c03,q,d03,q
  7390.     dc.w    eb03,q,d03,q,bb02,q,g02,cr
  7391.     dc.w    d02,q,eb02,q,d02,q,bb01,q,g01,cr
  7392.  
  7393.     dc.w    rest,q,g02,q,bb02,q,c03,q,d03,q
  7394.     dc.w    eb03,q,f03,q,g03,q,f03,q,d03,q
  7395.     dc.w    bb02,cr,f02,q,g02,q,f02,q,d02,q,bb01,cr
  7396.  
  7397.     dc.w    rest,q,f02,q,a02,q,c03,q,d03,q
  7398.     dc.w    eb03,q,f03,q,g03,q,f03,q,d03,q
  7399.     dc.w    bb02,cr,f02,q,g02,q,f02,q,d02,q,bb01,cr
  7400.     dc.w end_patt
  7401.     
  7402. rvhivi2
  7403.  
  7404.     dc.w    rest,q,f02,q,bb02,q,c03,q,d03,q
  7405.     dc.w    eb03,q,f03,q,g03,q,f03,q,d03,q
  7406.     dc.w    bb02,cr,f02,q,g02,q,f02,q,d02,q,bb01,cr
  7407.     dc.w end_patt
  7408.  
  7409. rvhivi3
  7410.     dc.w    rest,q,bb01,q,d02,q,e02,q,f02,q
  7411.     dc.w    g02,q,a02,q,bb02,q,a02,q,f02,q
  7412.     dc.w    d02,cr
  7413.     dc.w    a02,q,bb02,q,a02,q,f02,q
  7414.     dc.w    d02,cr
  7415.     dc.w    rest,q,e02,q,a02,q,bb02,q,b02,q
  7416.     dc.w    db03,q,d03,q,db03,q,d03,q,a02,q
  7417.     dc.w    f02,cr
  7418.     dc.w end_patt
  7419.  
  7420. rvhivi4
  7421.  
  7422.     dc.w    d02,q,db02,q,d02,q,a01,q,gb01,cr
  7423.     dc.w    rest,q,d02,q,gb02,q,a02,q,b02,q
  7424.     dc.w    db03,q,d03,q,db03,q,d03,q
  7425.     dc.w    a02,q,f02,cr
  7426.     dc.w end_patt
  7427.  
  7428. rvhivi4a
  7429.     dc.w    d02,q,db02,q,d02,q,a01,q,gb01,cr
  7430.     dc.w end_patt
  7431.  
  7432.  
  7433. rvhivi5
  7434.     dc.w    rest,cr,d03,q,c03,q,bb02,q,a02,q
  7435.     dc.w    c03,q,ab02,q,g02,q,eb02,q
  7436.     dc.w    c02,cr
  7437.     dc.w    g02,q,a02,q,g02,q,d02,q,bb01,cr
  7438.  
  7439.     dc.w    rest,q,d02,q,d03,q,c03,q,bb02,q,a02,q
  7440.     dc.w    g03,q,ab02,q,g02,q,eb02,q
  7441.     dc.w    c02,cr
  7442.     dc.w    g02,q,a02,q,g02,q,d02,q,bb01,cr
  7443.  
  7444.     dc.w    rest,q,d02,q,d03,q,c03,q,bb02,q,a02,q
  7445.     dc.w    c03,q,d02,q,c03,q,g02,q
  7446.     dc.w    eb02,cr
  7447.     dc.w end_patt
  7448.  
  7449. rvhivi6
  7450.     dc.w    ab02,q,bb02,q,ab02,q,eb02,q,c02,cr
  7451.     dc.w    d02,q,e02,q,d02,q,a01,q,f01,cr
  7452.     dc.w    d03,q,e03,q,d03,q,bb02,q,g02,cr
  7453.     dc.w    d02,q,eb02,q,d02,q,bb01,q,g01,cr
  7454.  
  7455.     dc.w    rest,q,d02,q,g02,q,a02,q,bb02,q,c03,q,d03,q
  7456.     dc.w    eb03,q,d03,q,bb02,q,g02,cr
  7457.     dc.w    d02,q,eb02,q,d02,q,bb01,q,g01,cr
  7458.  
  7459.     
  7460.     dc.w end_patt
  7461.  
  7462. rvhivi7                    ;stab section
  7463.     dc.w    a02,q,bb02,q,a02,q,eb02,q,c02,cr
  7464.     dc.w    d02,q,eb02,q,c02,q,a01,q
  7465.     dc.w    gb01,cr
  7466.     dc.w    d03,q,e03,q,d03,q,b02,q,g02,cr
  7467.  
  7468.     dc.w end_patt
  7469.  
  7470. rvhivi8
  7471.     dc.w    d02,q,e02,q,d02,q,b01,q,g01,cr
  7472.     dc.w    rest,q,d02,q,g02,q,a02,q,b02,q,c03,q
  7473.     dc.w    d03,q,e03,q,d03,q,b02,q,g02,cr
  7474.     dc.w    d02,q,e02,q,d02,q,b01,q,g01,cr
  7475.     dc.w    rest,q,d02,q,g02,q,a02,q
  7476.  
  7477.     dc.w end_patt
  7478.  
  7479.  
  7480.  
  7481. rvtune1
  7482.  
  7483.     dc.w    rest,cr*2,d02,cr,g02,cr+q
  7484.     dc.w    d02,q,g02,cr,bb02,cr*3,g02,cr*3
  7485.     dc.w    bb02,cr+q,g02,q,bb02,cr,d03,cr*3
  7486.     dc.w    bb02,cr*3,d03,cr+q,bb02,q
  7487.     dc.w    d03,cr,f03,cr*3,f02,cr*3,bb02,cr+q
  7488.     dc.w    f02,q,bb02,cr,d03,cr*9
  7489.  
  7490.     dc.w    rest,cr*21,rest,cr*2,f02,cr
  7491.     dc.w    bb02,cr+q,f02,q,bb02,cr,d03,cr*3
  7492.     dc.w    bb02,cr*3,d03,cr+q,bb02,q
  7493.     dc.w    d03,cr,f03,cr*3,d03,cr*3,f03,cr+q,d03,q
  7494.     dc.w    f03,cr
  7495.     dc.w    a03,cr*3,a02,cr*3,d03,cr+q
  7496.     dc.w    a02,q,d03,cr,gb03,cr*9
  7497.     
  7498.     dc.w    rest,cr*21,rest,cr*2
  7499.     dc.w    d02,cr
  7500.     dc.w    eb02,cr+q,c02,q,eb02,cr,g02,cr*5
  7501.     dc.w    d02,cr
  7502.     dc.w    eb02,cr+q,c02,q,eb02,cr,g02,cr*5
  7503.     dc.w    d02,cr
  7504.     dc.w    eb02,cr+q,c02,q,eb02,cr,ab02,cr*3    
  7505.     dc.w    d02,cr*3,rest,cr*3
  7506.     dc.w    rest,cr*12,rest,cr*2
  7507.  
  7508.     dc.w    d03,cr
  7509.     dc.w    eb03,cr+q,c03,q,eb03,cr,g03,cr*5
  7510.     dc.w    d03,cr
  7511.     dc.w    eb03,cr+q,c03,q,eb03,cr,g03,cr*5
  7512.     dc.w    d03,cr
  7513.     dc.w    eb03,cr+q,c03,q,eb03,cr    
  7514.  
  7515.     dc.w end_patt
  7516. ;{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{
  7517.  
  7518.  
  7519.  
  7520. cr  set   24
  7521. q set  cr/2
  7522. sq set q/2
  7523.  
  7524. tcr1 set 13
  7525. tcr2 set 14
  7526. tq set      8
  7527. tsq1 set 3
  7528. tsq2 set 4
  7529.  
  7530.  
  7531. jalt1
  7532.     dc.l    pizpiano_sound_short
  7533.     dc.l    trip_start
  7534.     dc.l    trip_start
  7535.     dc.l    trip_start
  7536.     dc.l    trip_start
  7537.     dc.l    flute_sound,intro_tune1
  7538.     dc.l    brass_sound,brass_intro
  7539.     dc.l    flute_sound,intro_tune1
  7540.  
  7541.     dc.l    string_sound_loud
  7542.     dc.l    string_run4
  7543.  
  7544.  
  7545.  
  7546.     dc.l    string_sound_loud
  7547.     dc.l    main_tune1
  7548.     dc.l    brass_sound
  7549.     dc.l    main_tune2
  7550.     dc.l    string_sound_louder
  7551.     dc.l    main_tune3
  7552.     dc.l    main_tune4
  7553.  
  7554.     dc.l    string_sound_loud
  7555.     dc.l    main_tune1
  7556.     dc.l    brass_sound
  7557.     dc.l    main_tune2
  7558.     dc.l    string_sound_louder
  7559.     dc.l    main_tune3
  7560.     dc.l    main_tune4
  7561.  
  7562.     dc.l    trumpet_sound
  7563.  
  7564.     dc.l    middle_tune
  7565.  
  7566.     dc.l    string_sound_loud
  7567.     dc.l    string_run4
  7568.  
  7569.         
  7570.     dc.l    string_sound_loud
  7571.     dc.l    main_tune1
  7572.     dc.l    brass_sound
  7573.     dc.l    main_tune2
  7574.     dc.l    string_sound_louder
  7575.     dc.l    main_tune3
  7576.     dc.l    main_tune4
  7577.  
  7578.     dc.l    string_sound_loud
  7579.     dc.l    main_tune1
  7580.     dc.l    brass_sound
  7581.     dc.l    main_tune2
  7582.     dc.l    string_sound_louder
  7583.     dc.l    main_tune3
  7584.     dc.l    main_tune4
  7585.  
  7586.     dc.l    trumpet_sound
  7587.  
  7588.     dc.l    middle_tune
  7589.  
  7590.     dc.l    string_sound_loud
  7591.     dc.l    string_run4
  7592.  
  7593.  
  7594.  
  7595.     dc.l    brass_sound
  7596.     dc.l    end1
  7597.     dc.l    final1
  7598.  
  7599.  
  7600.     dc.l    pri
  7601.  
  7602.     dc.l    0,end_song
  7603.  
  7604.  
  7605. jalt2
  7606.  
  7607.     dc.l    orch_hit_sound
  7608.     dc.l    ja_stab_intro
  7609.  
  7610.     dc.l    histrg_sound
  7611.     dc.l    ja_gstrings1
  7612.     dc.l    ja_gstrings1
  7613.     dc.l    ja_gstrings1
  7614.  
  7615.     dc.l    snare_sound
  7616.     dc.l    snare_roll4
  7617.  
  7618.  
  7619.     dc.l    pizpiano_sound_quiet
  7620.     dc.l    main_tune_acc1
  7621.     dc.l    main_tune_acc4
  7622.     dc.l    histrg_sound
  7623.     dc.l    main_tune_acc5a
  7624.     dc.l    orch_hit_sound
  7625.     dc.l    main_tune_end_stabs
  7626.  
  7627.     dc.l    snare_sound_mid
  7628.     dc.l    verse_snare
  7629.     dc.l    verse_snare
  7630.     dc.l    verse_snare
  7631.  
  7632.     dc.l    orch_hit_sound
  7633.     dc.l    main_tune_end_stabs
  7634.  
  7635.     dc.l    pizpiano_sound_quiet
  7636.     dc.l    mid_acc1
  7637.     dc.l    mid_acc1_ext
  7638.     dc.l    mid_acc1
  7639.  
  7640.     dc.l    snare_sound
  7641.     dc.l    snare_roll4
  7642.  
  7643.     dc.l    pizpiano_sound_quiet
  7644.     dc.l    main_tune_acc1
  7645.     dc.l    main_tune_acc4
  7646.     dc.l    histrg_sound
  7647.     dc.l    main_tune_acc5a
  7648.     dc.l    orch_hit_sound
  7649.     dc.l    main_tune_end_stabs
  7650.  
  7651.     dc.l    snare_sound_mid
  7652.     dc.l    verse_snare
  7653.     dc.l    verse_snare
  7654.     dc.l    verse_snare
  7655.  
  7656.     dc.l    orch_hit_sound
  7657.     dc.l    main_tune_end_stabs
  7658.  
  7659.     dc.l    pizpiano_sound_quiet
  7660.     dc.l    mid_acc1
  7661.     dc.l    mid_acc1_ext
  7662.     dc.l    mid_acc1
  7663.  
  7664.     dc.l    snare_sound
  7665.     dc.l    snare_roll4
  7666.  
  7667.     dc.l    brass_sound
  7668.     dc.l    end2
  7669.     dc.l    orch_hit_sound
  7670.     dc.l    final1_hits
  7671.  
  7672.     dc.l    pri
  7673.     dc.l    0,end_song
  7674.  
  7675. jalt3
  7676.     dc.l    bass_sound
  7677.     dc.l    ja_stab_introo
  7678.  
  7679.     dc.l    histrg_sound
  7680.  
  7681.     dc.l    ja_gstrings2
  7682.     dc.l    ja_gstrings2
  7683.     dc.l    ja_gstrings2
  7684.  
  7685.     dc.l    orch_hit_sound
  7686.     dc.l    four_stabs
  7687.  
  7688.     dc.l    bass_sound
  7689.     dc.l    main_tune_stabo
  7690.     dc.l    pizpiano_sound_quiet
  7691.     dc.l    main_tune_acc2
  7692.     dc.l    bass_sound
  7693.     dc.l    main_tune_bass_run1
  7694.  
  7695.     dc.l    histrg_sound
  7696.     dc.l    main_tune_acc5b
  7697.  
  7698.     dc.l    bass_sound
  7699.     dc.l    main_tune_end_stabs_bass_long
  7700.  
  7701.  
  7702.     dc.l    bass_sound
  7703.     dc.l    main_tune_stabo
  7704.     dc.l    pizpiano_sound_quiet
  7705.     dc.l    main_tune_acc2
  7706.     dc.l    bass_sound
  7707.     dc.l    main_tune_bass_run1
  7708.  
  7709.     dc.l    histrg_sound
  7710.     dc.l    main_tune_acc5b
  7711.  
  7712.     dc.l    bass_sound
  7713.     dc.l    main_tune_end_stabs_bass
  7714.     dc.l    tymp_sound
  7715.     dc.l    jacrash
  7716.  
  7717.  
  7718.     dc.l    flute_sound_quiet
  7719.     dc.l    mid_flute_ext
  7720.     dc.l    mid_flute
  7721.     dc.l    mid_flute
  7722.     dc.l    mid_flute
  7723.     dc.l    mid_flute
  7724.     dc.l    mid_flute
  7725.     dc.l    mid_flute
  7726.     dc.l    mid_flute_ext
  7727.  
  7728.     dc.l    orch_hit_sound
  7729.     dc.l    four_stabs
  7730.  
  7731.     dc.l    bass_sound
  7732.     dc.l    main_tune_stabo
  7733.     dc.l    pizpiano_sound_quiet
  7734.     dc.l    main_tune_acc2
  7735.     dc.l    bass_sound
  7736.     dc.l    main_tune_bass_run1
  7737.  
  7738.     dc.l    histrg_sound
  7739.     dc.l    main_tune_acc5b
  7740.  
  7741.     dc.l    bass_sound
  7742.     dc.l    main_tune_end_stabs_bass_long
  7743.  
  7744.  
  7745.     dc.l    bass_sound
  7746.     dc.l    main_tune_stabo
  7747.     dc.l    pizpiano_sound_quiet
  7748.     dc.l    main_tune_acc2
  7749.     dc.l    bass_sound
  7750.     dc.l    main_tune_bass_run1
  7751.  
  7752.     dc.l    histrg_sound
  7753.     dc.l    main_tune_acc5b
  7754.  
  7755.     dc.l    bass_sound
  7756.     dc.l    main_tune_end_stabs_bass
  7757.     dc.l    tymp_sound
  7758.     dc.l    jacrash
  7759.     dc.l    flute_sound_quiet
  7760.     dc.l    mid_flute_ext
  7761.     dc.l    mid_flute
  7762.     dc.l    mid_flute
  7763.     dc.l    mid_flute
  7764.     dc.l    mid_flute
  7765.     dc.l    mid_flute
  7766.     dc.l    mid_flute
  7767.     dc.l    mid_flute_ext
  7768.  
  7769.     dc.l    orch_hit_sound
  7770.     dc.l    four_stabs
  7771.  
  7772.  
  7773.     dc.l    bass_sound
  7774.     dc.l    end3
  7775.     dc.l    brass_sound
  7776.     dc.l    end3_ext
  7777.     dc.l    bass_sound
  7778.     dc.l    final1o
  7779.  
  7780.  
  7781.  
  7782.     dc.l    pri
  7783.  
  7784.     dc.l    0,end_song
  7785.  
  7786. jalt4
  7787.  
  7788.     dc.l    tymp_sound
  7789.     dc.l    ja_stab_intro
  7790.  
  7791.     dc.l    histrg_sound
  7792.  
  7793.     dc.l    ja_gstrings3
  7794.     dc.l    ja_gstrings3
  7795.     dc.l    ja_gstrings3
  7796.  
  7797.     dc.l    bass_sound
  7798.     dc.l    four_stabso
  7799.  
  7800.     dc.l    orch_hit_sound
  7801.     dc.l    main_tune_stab
  7802.     dc.l    pizpiano_sound_quiet
  7803.     dc.l    main_tune_acc3
  7804.     dc.l    string_sound_loud
  7805.     dc.l    main_tune_bass_run1
  7806.  
  7807.     dc.l    histrg_sound
  7808.     dc.l    main_tune_acc5c
  7809.  
  7810.     dc.l    snare_sound
  7811.     dc.l    main_tune_end_snare
  7812.  
  7813.     dc.l    bass_sound
  7814.     dc.l    moving_bass
  7815.     dc.l    main_tune_end_stabs_bass_long
  7816.  
  7817.     dc.l    bass_sound
  7818.     dc.l    ja_mid_bass
  7819.  
  7820.     dc.l    bass_sound
  7821.     dc.l    four_stabso
  7822.  
  7823.  
  7824.     dc.l    orch_hit_sound
  7825.     dc.l    main_tune_stab
  7826.     dc.l    pizpiano_sound_quiet
  7827.     dc.l    main_tune_acc3
  7828.     dc.l    string_sound_loud
  7829.     dc.l    main_tune_bass_run1
  7830.  
  7831.     dc.l    histrg_sound
  7832.     dc.l    main_tune_acc5c
  7833.  
  7834.     dc.l    snare_sound
  7835.     dc.l    main_tune_end_snare
  7836.  
  7837.     dc.l    bass_sound
  7838.     dc.l    moving_bass
  7839.     dc.l    main_tune_end_stabs_bass_long
  7840.  
  7841.     dc.l    bass_sound
  7842.     dc.l    ja_mid_bass
  7843.  
  7844.     dc.l    bass_sound
  7845.     dc.l    four_stabso
  7846.  
  7847.  
  7848.     dc.l    snare_sound_mid
  7849.     dc.l    snare_end
  7850.     dc.l    orch_hit_sound
  7851.     dc.l    end4
  7852.  
  7853.     dc.l    snare_sound_mid
  7854.     dc.l    final_snare
  7855.  
  7856.  
  7857.  
  7858.     dc.l pri_new_tune
  7859.  
  7860.     dc.l    0,end_song
  7861.  
  7862. ;$$$$$$$$$$$$$$$$$$$$$$$$
  7863.  
  7864. jaltr2
  7865.     dc.w    rest,cr*8
  7866.     dc.w    end_patt
  7867.  
  7868.  
  7869. jaltr1
  7870.     dc.w    rest,cr*8
  7871.     dc.w    end_patt
  7872.  
  7873. final1
  7874.     dc.w    eb02,tq,gb02,tq,bb02,tq,ab02,tq
  7875.     dc.w    bb02,tq,db03,tq,bb02,tq,gb02,tq
  7876.     dc.w    ab02,tq,gb02,tq,eb02,tq,f02,tq
  7877.     dc.w    db02,cr*4
  7878.     dc.w    end_patt
  7879. final1_hits
  7880.     dc.w    eb03,cr,ab03,cr
  7881.     dc.w    bb02,cr
  7882.     dc.w    gb03,cr
  7883.     dc.w    db03,cr*4
  7884.     dc.w    end_patt
  7885. final1o
  7886.     dc.w    eb01,tq,gb01,tq,bb01,tq,ab01,tq
  7887.     dc.w    bb01,tq,db01,tq,bb01,tq,gb01,tq
  7888.     dc.w    ab01,tq,gb02,tq,eb01,tq,f01,tq
  7889.     dc.w    db01,cr*4
  7890.     dc.w    end_patt
  7891.  
  7892. final_snare
  7893.     dc.w    r16,tq,r16,tq,r16,tq,r16,tq
  7894.     dc.w    r16,tq,r16,tq,r16,tq,r16,tq
  7895.     dc.w    r16,tq,r16,tq,r16,tq,r16,tq
  7896.     dc.w    r16,cr*4
  7897.     dc.w    end_patt
  7898.  
  7899.  
  7900.  
  7901.  
  7902.  
  7903.  
  7904. end1
  7905.     dc.w    bb02,tq,bb02,tq,bb02,tq,a02,cr*3
  7906.     dc.w    bb02,tq,bb02,tq,bb02,tq,a02,cr*3
  7907.     dc.w    db03,tq,db03,tq,db03,tq,c03,cr*3
  7908.     dc.w    db03,tq,db03,tq,db03,tq,c03,cr*3
  7909.     dc.w    eb03,tq,eb03,tq,eb03,tq,d03,cr*3
  7910.     dc.w    eb03,tq,eb03,tq,eb03,tq,d03,cr*3
  7911.     dc.w     f03,tq,f03,tq,f03,tq
  7912.     dc.w    eb03,tq,eb03,tq,eb03,tq
  7913.     dc.w     f03,tq,f03,tq,f03,tq
  7914.     dc.w    eb03,tq,eb03,tq,eb03,tq
  7915.  
  7916.     dc.w     f03,tq,f03,tq,f03,tq,gb03,cr*2
  7917.     dc.w     gb03,tq,gb03,tq,gb03,tq,ab03,cr
  7918.     dc.w    ab03,tq,ab03,tq,ab03,tq,ab03,cr
  7919.     dc.w    ab03,tq,ab03,tq,ab03,tq
  7920.     dc.w    end_patt
  7921.  
  7922.  
  7923. end2
  7924.     dc.w    f02,tq,f02,tq,f02,tq,f02,cr*3
  7925.     dc.w    f02,tq,f02,tq,f02,tq,f02,cr*3
  7926.     dc.w    ab02,tq,ab02,tq,ab02,tq,ab02,cr*3
  7927.     dc.w    ab02,tq,ab02,tq,ab02,tq,ab02,cr*3
  7928.     dc.w    bb02,tq,bb02,tq,bb02,tq,bb02,cr*3
  7929.     dc.w    bb02,tq,bb02,tq,bb02,tq,bb02,cr*3
  7930.     dc.w     bb02,tq,bb02,tq,bb02,tq
  7931.     dc.w     bb02,tq,bb02,tq,bb02,tq
  7932.     dc.w     bb02,tq,bb02,tq,bb02,tq
  7933.     dc.w     bb02,tq,bb02,tq,bb02,tq
  7934.  
  7935.     dc.w     db03,tq,db03,tq,db03,tq,db03,cr*2
  7936.     dc.w     db03,tq,db03,tq,db03,tq,db03,cr
  7937.     dc.w    db03,tq,db03,tq,db03,tq,db03,cr
  7938.     dc.w    db03,tq,db03,tq,db03,tq
  7939.     dc.w    end_patt
  7940.  
  7941. end3
  7942.     dc.w    f02,cr,f02,cr,f02,cr,f02,cr
  7943.     dc.w    f02,cr,f02,cr,f02,cr,f02,cr
  7944.     dc.w    gb02,cr,gb02,cr,gb02,cr,gb02,cr
  7945.     dc.w    gb02,cr,gb02,cr,gb02,cr,gb02,cr
  7946.     dc.w    g02,cr,g02,cr,g02,cr,g02,cr
  7947.     dc.w    g02,cr,g02,cr,g02,cr,g02,cr
  7948.     dc.w    ab02,cr,ab02,cr,ab02,cr
  7949.     dc.w    ab02,cr,ab02,cr,gb02,cr*2
  7950.     dc.w    end_patt
  7951. end3_ext
  7952.     dc.w    gb02,tq,gb02,tq,gb02,tq
  7953.     dc.w    gb02,cr,gb02,tq,gb02,tq,gb02,tq
  7954.     dc.w    gb02,cr,gb02,tq,gb02,tq,gb02,tq
  7955.     dc.w    end_patt
  7956.  
  7957.  
  7958. snare_end
  7959.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  7960.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  7961.  
  7962.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  7963.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  7964.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  7965.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  7966.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  7967.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  7968.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  7969.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  7970.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  7971.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  7972.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  7973.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  7974.  
  7975.     dc.w    end_patt
  7976.  
  7977. end4
  7978.     dc.w    ab03,cr,gb03,cr*3
  7979.     dc.w    rest,cr*4
  7980.  
  7981.     dc.w    end_patt
  7982.  
  7983.  
  7984.  
  7985.  
  7986.  
  7987.  
  7988. ja_mid_bass
  7989.     dc.w    e02,cr*2,e01,cr*4
  7990.     dc.w    b01,cr*2
  7991.     dc.w    f02,cr*2,f01,cr*4
  7992.     dc.w    c02,cr*2
  7993.     dc.w    bb02,cr*2,bb01,cr*4
  7994.     dc.w    bb02,cr*2
  7995.     dc.w    c02,cr*2,c03,cr*2
  7996.     dc.w    e03,cr,d03,cr,c03,cr,bb02,cr
  7997.     dc.w    e02,cr*2,e01,cr*4
  7998.     dc.w    b01,cr*2
  7999.     dc.w    f02,cr*2,f01,cr*4
  8000.     dc.w    c02,cr*2
  8001.     dc.w    bb02,cr*2,bb01,cr*4
  8002.     dc.w    bb02,cr*2
  8003.     dc.w    c02,cr*2,c03,cr*2
  8004.  
  8005.     dc.w    end_patt
  8006.  
  8007.  
  8008.  
  8009.  
  8010. mid_acc1
  8011.     dc.w    e03,cr-tq,e03,tq,c03,tq,a02,tq,c03,tq
  8012.     dc.w    e03,tq,c03,tq,a02,tq
  8013.     dc.w    e03,tq,c03,tq,a02,tq
  8014.  
  8015.     dc.w    e03,cr-tq,e03,tq,c03,tq,a02,tq,c03,tq
  8016.     dc.w    e03,tq,c03,tq,a02,tq
  8017.     dc.w    e03,tq,c03,tq,a02,tq
  8018.  
  8019.  
  8020.     dc.w    f03,cr-tq,f03,tq,d03,tq,c03,tq,a02,tq
  8021.     dc.w    d03,tq,c03,tq,a02,tq
  8022.     dc.w    d03,tq,c03,tq,a02,tq
  8023.  
  8024.     dc.w    f03,cr-tq,f03,tq,d03,tq,c03,tq,a02,tq
  8025.     dc.w    d03,tq,c03,tq,a02,tq
  8026.     dc.w    d03,tq,c03,tq,a02,tq
  8027.  
  8028.  
  8029.     dc.w    bb02,cr-tq,bb02,tq,bb02,tq,g02,tq,f02,tq
  8030.     dc.w    bb02,tq,g02,tq,f02,tq
  8031.     dc.w    bb02,tq,g02,tq,f02,tq
  8032.  
  8033.     dc.w    bb02,cr-tq,bb02,tq,d03,tq,d02,tq,f02,tq
  8034.     dc.w    bb02,tq,bb02,tq,d02,tq
  8035.     dc.w    f03,tq,f03,tq,bb02,tq
  8036.  
  8037.  
  8038.     dc.w    c03,cr-tq,c03,tq,e03,tq,c03,tq,g03,tq
  8039.     dc.w    e03,tq,c03,tq,g02,tq
  8040.     dc.w    e03,tq,c03,tq,g02,tq
  8041.     dc.w    end_patt
  8042.  
  8043. mid_acc1_ext
  8044.     dc.w    c03,cr-tq,c03,tq,e03,tq,c03,tq,g03,tq
  8045.     dc.w    e03,tq,c03,tq,g02,tq
  8046.     dc.w    e03,tq,c03,tq,g02,tq
  8047.  
  8048.     dc.w    end_patt
  8049.  
  8050. mid_flute
  8051.     dc.w    a02,tq,c03,tq,e03,tq
  8052.     dc.w    d03,tq,e03,tq,g03,tq
  8053.     dc.w    a02,tq,c03,tq,e03,tq
  8054.     dc.w    d03,tq,e03,tq,g03,tq
  8055. mid_flute_ext
  8056.     dc.w    a02,tq,c03,tq,e03,tq
  8057.     dc.w    d03,tq,e03,tq,g03,tq
  8058.     dc.w    a02,tq,c03,tq,e03,tq
  8059.     dc.w    d03,tq,e03,tq,g03,tq
  8060.     dc.w    end_patt
  8061.     
  8062.  
  8063. trip_start
  8064.     dc.w    a02,tq,c03,tq,e03,tq
  8065.     dc.w    d03,tq,e03,tq,g03,tq
  8066.     dc.w    a02,tq,c03,tq,e03,tq
  8067.     dc.w    d03,tq,e03,tq,g03,tq
  8068.  
  8069.     dc.w    a02,tq,c03,tq,e03,tq
  8070.     dc.w    d03,tq,e03,tq,g03,tq
  8071.     dc.w    a02,tq,c03,tq,e03,tq
  8072.     dc.w    d03,tq,e03,tq,g03,tq
  8073.     dc.w    end_patt
  8074.  
  8075. ja_flute1_trill
  8076.     dc.w    rest,cr*7*4
  8077.     dc.w    rest,cr,g02,q,d03,2,f03,2,g03,2,a03,30
  8078.     dc.w    rest,cr
  8079.     dc.w    end_patt
  8080.  
  8081. ja_gstrings1
  8082.     dc.w    d02,cr,d02,cr,d02,cr,d02,q,g02,q
  8083.     dc.w    end_patt
  8084.  
  8085. ja_gstrings2
  8086.     dc.w    g02,cr,g02,cr,g02,cr,g02,q,g02,q
  8087.     dc.w    end_patt
  8088.  
  8089. ja_gstrings3
  8090.     dc.w    b02,cr,b02,cr,b02,cr,b02,q,d03,q
  8091.     dc.w    end_patt
  8092.  
  8093.  
  8094.  
  8095. intro_tune1
  8096.     dc.w    a02,tq,c03,tq,e03,tq
  8097.     dc.w    d03,tq,e03,tq,g03,tq+cr*2
  8098.     dc.w    end_patt
  8099.  
  8100. brass_intro
  8101.     dc.w    a03,tq,a03,tq,a03,tq,g03,tq,g03,tq,g03,tq,a03,tq,a03,tq
  8102.     dc.w    a03,tq,g03,cr
  8103.     dc.w    end_patt
  8104.  
  8105.  
  8106.  
  8107. ja_stab_intro
  8108.     dc.w    a03,tq,a03,tq,a03,tq,g03,cr*3
  8109.     dc.w    rest,cr*4
  8110.     dc.w    g03,tq,g03,tq,g03,tq,f03,cr*3
  8111.     dc.w    rest,cr*4
  8112.     dc.w    a03,tq,a03,tq,a03,tq,g03,cr*3
  8113.     dc.w    rest,cr*4
  8114.     dc.w    g03,tq,g03,tq,g03,tq,f03,cr*3
  8115.     dc.w    rest,cr*4
  8116.     dc.w    end_patt
  8117.  
  8118. ja_stab_introo
  8119.     dc.w    bb01,tq,bb01,tq,bb01,tq,bb01,cr*3
  8120.     dc.w    rest,cr*4
  8121.     dc.w    f01,tq,f01,tq,f01,tq,f01,cr*3
  8122.     dc.w    rest,cr*4
  8123.     dc.w    bb01,tq,bb01,tq,bb01,tq,bb01,cr*3
  8124.     dc.w    rest,cr*4
  8125.     dc.w    f01,tq,f01,tq,f01,tq,f01,cr*3
  8126.     dc.w    rest,cr*4
  8127.     dc.w    end_patt
  8128. ;&&&&&&&&&
  8129. string_run4
  8130.     dc.w    b02,tq,db02,tq,eb02,tq,e02,tq,gb02,tq,ab02,tq
  8131.     dc.w    gb02,cr,f02,cr
  8132.     dc.w    end_patt
  8133. four_stabs
  8134.     dc.w    b02,cr,e03,cr,d03,cr,g02,cr
  8135.     dc.w    end_patt
  8136. four_stabso
  8137.     dc.w    b01,cr,e01,cr,d02,cr,g01,cr
  8138.     dc.w    end_patt
  8139.  
  8140. snare_roll4
  8141.     dc.w    r16,tq,r16,tq,r16,tq,r16,tq,r16,tq,r16,tq
  8142.     dc.w    r16,cr,r16,cr
  8143.     dc.w    end_patt
  8144.  
  8145. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  8146.  
  8147. main_tune1
  8148.     dc.w    a02,tq,c03,tq,e03,tq,d03,tq,e03,tq,g03,tq
  8149.     dc.w    a03,tq,d03,tq,e03,tq,c03,tq,a02,tq,b02,tq
  8150.     dc.w    a02,tq,f02,tq,g02,tq,e02,tq,c02,tq,d02,tq
  8151.     dc.w    b01,cr*2
  8152.     dc.w    f02,cr,a02,cr,c03,cr,d03,tq,c03,tq,d03,tq
  8153.     dc.w    f03,cr,g03,tq,f03,tq,g03,tq,ab03,cr*2
  8154.     dc.w    end_patt
  8155.  
  8156. main_tune2
  8157.     dc.w    a03,tq,a03,tq,a03,tq
  8158.     dc.w    g03,tq,g03,tq,g03,tq
  8159.     dc.w    a03,tq,a03,tq,a03,tq
  8160.     dc.w    g03,tq,g03,tq,g03,tq
  8161.     dc.w    a03,tq,a03,tq,a03,tq
  8162.     dc.w    g03,tq,g03,tq,g03,tq
  8163.     dc.w    f03,cr*2
  8164.     dc.w    end_patt
  8165.  
  8166. main_tune3
  8167.     dc.w    a03,tq,a03,tq,a03,tq,g03,cr
  8168.     dc.w    g03,tq,g03,tq,g03,tq,f03,cr
  8169.     dc.w    end_patt
  8170.  
  8171. main_tune4
  8172.     dc.w    b02,tq,b02,4,b02,4,b02,tq,db03,tq,b02,tq,eb03,tq
  8173.     dc.w    e03,cr*2
  8174.     dc.w    end_patt
  8175.  
  8176. main_tune_stab
  8177.     dc.w    a03,cr
  8178.     dc.w    end_patt
  8179. main_tune_stabo
  8180.     dc.w    a01,cr
  8181.     dc.w    end_patt
  8182.  
  8183. main_tune_acc1
  8184.     dc.w    e03,tq,a02,tq,e02,tq,c03,tq,e03,tq,e02,tq
  8185.     dc.w    e03,tq,c03,tq,e02,tq,c03,tq,e03,tq,e02,tq
  8186.     dc.w    c03,cr,g02,cr,b02,cr*2            
  8187.     dc.w    end_patt
  8188.  
  8189. main_tune_acc2
  8190.     dc.w    a02,tq,c03,tq,rest,tq
  8191.     dc.w    a02,tq,a02,tq,rest,tq,a02,tq,c03,tq,rest,tq
  8192.     dc.w    a02,cr,e02,cr,ab02,cr*2            
  8193.     dc.w    end_patt
  8194.  
  8195. main_tune_acc3
  8196.     dc.w    rest,tq,a02,tq,rest,tq*5,a02,tq,rest,tq
  8197.     dc.w    f02,cr,c02,cr,e02,cr*2
  8198.     dc.w    end_patt
  8199.  
  8200. main_tune_bass_run1
  8201.     dc.w    f01,cr,a01,cr,bb01,cr,c02,cr
  8202.     dc.w    d02,cr,f02,cr,ab02,cr*2
  8203.     dc.w    end_patt
  8204.  
  8205.  
  8206.  
  8207. main_tune_acc4
  8208.     dc.w    a02,tq,g02,tq,f02,tq
  8209.     dc.w    a02,tq,g02,tq,f02,tq
  8210.     dc.w    a02,tq,g02,tq,f02,tq
  8211.     dc.w    a02,tq,g02,tq,f02,tq
  8212.     dc.w    bb02,tq,g02,tq,f02,tq
  8213.     dc.w    bb02,tq,g02,tq,f02,tq
  8214.     dc.w    b02,tq,a02,tq,ab02,tq
  8215.     dc.w    b02,tq,a02,tq,ab02,tq
  8216.     dc.w    end_patt
  8217.  
  8218. main_tune_acc5a
  8219.     dc.w    c03,cr,b02,cr,c03,cr,b02,cr    
  8220.     dc.w    c03,cr,b02,cr,a02,cr*2
  8221.     dc.w    end_patt
  8222.  
  8223. main_tune_acc5b
  8224.     dc.w    a02,cr,g02,cr,a02,cr,g02,cr    
  8225.     dc.w    a02,cr,g02,cr,f02,cr*2
  8226.     dc.w    end_patt
  8227.  
  8228. main_tune_acc5c
  8229.     dc.w    e02,cr,e02,cr,e02,cr,e02,cr    
  8230.     dc.w    e02,cr,e02,cr,c02,cr*2
  8231.     dc.w    end_patt
  8232.  
  8233. main_tune_end_stabs
  8234.     dc.w    a03,tq,a03,tq,a03,tq,g03,cr
  8235.     dc.w    g03,tq,g03,tq,g03,tq,f03,cr
  8236.     dc.w    rest,cr*4
  8237.  
  8238.     dc.w    end_patt
  8239.  
  8240. jacrash
  8241.     dc.w    r2,cr*4
  8242.     dc.w    end_patt
  8243.  
  8244.  
  8245.  
  8246. main_tune_end_stabs_bass
  8247.     dc.w    bb01,tq,bb01,tq,bb01,tq,bb01,cr
  8248.     dc.w    f01,tq,f01,tq,f01,tq,f01,cr
  8249.  
  8250.     dc.w    gb01,cr,b01,cr,e02,cr*2
  8251.     dc.w    end_patt
  8252.  
  8253. main_tune_end_stabs_bass_long
  8254.     dc.w    bb01,tq,bb01,tq,bb01,tq,bb01,cr
  8255.     dc.w    f01,tq,f01,tq,f01,tq,f01,cr
  8256.  
  8257.     dc.w    gb01,cr,b01,cr,e02,cr*2
  8258.     dc.w    end_patt
  8259.  
  8260.  
  8261.  
  8262.  
  8263. main_tune_end_snare
  8264.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  8265.     dc.w    r16,tq,r16,tq,r16,tq,r16,cr
  8266.  
  8267.     dc.w    r16,tq,r16,4,r16,4,r16,tq,r16,tq,r16,tq,r16,tq
  8268.     dc.w    r16,cr*2
  8269.     dc.w    end_patt
  8270.  
  8271.     dc.w    end_patt
  8272.  
  8273. moving_bass
  8274.     dc.w    a02,cr,e02,cr,g02,cr,d02,cr
  8275.     dc.w    f02,cr,c02,cr,e02,cr*2
  8276.     dc.w    f01,cr,a01,cr,bb01,cr,c02,cr
  8277.     dc.w    d02,cr,f02,cr,ab02,cr*2
  8278.     dc.w    e02,cr,g02,cr,a02,cr,g02,cr
  8279.     dc.w    a02,cr,g02,cr,f02,cr*2
  8280.     dc.w    end_patt
  8281.  
  8282. verse_snare
  8283.     dc.w    r16,tq,r16,tq,r16,tq    
  8284.     dc.w    r16,tq,r16,tq,r16,4,r16,4    
  8285.     dc.w    r16,tq,r16,tq,r16,tq    
  8286.     dc.w    r16,tq,r16,4,r16,4,r16,tq    
  8287.     dc.w    r16,tq,r16,tq,r16,tq    
  8288.     dc.w    r16,tq,r16,tq,r16,tq    
  8289.     dc.w    r16,tq,r16,tq,r16,tq    
  8290.     dc.w    r16,tq,r16,tq,r16,4,r16,4
  8291.     
  8292.     dc.w    end_patt
  8293. middle_tune
  8294.     dc.w     modon,2,2,2,2,6,6
  8295.     dc.w    e02,cr*4+cr+cr+cr,g02,cr
  8296.     dc.w    f02,cr*6,g02,cr,a02,cr
  8297.     dc.w    bb02,cr*6,d03,cr*2
  8298.     dc.w    c03,cr*4
  8299.     dc.w    e03,cr,d03,cr,c03,cr,bb02,cr
  8300.  
  8301.     dc.w    e02,cr*4+cr+cr+cr,g02,cr
  8302.     dc.w    f02,cr*6,g02,cr,a02,cr
  8303.     dc.w    bb02,cr*6,d03,cr*2
  8304.     dc.w    c03,cr*4
  8305.     dc.w    modoff
  8306.  
  8307.     dc.w    end_patt
  8308.  
  8309. ;**************************************
  8310.  
  8311.  
  8312. cr  set   16
  8313. q set  cr/2
  8314. sq set q/2
  8315.  
  8316. tcr1 set 13
  8317. tcr2 set 14
  8318. tq set      8
  8319. tsq1 set 3
  8320. tsq2 set 4
  8321.  
  8322.  
  8323.  
  8324. bds1
  8325.     dc.l    string_sound_loud
  8326.     dc.l    bdtune1
  8327. ;bds1    
  8328.  
  8329.     dc.l    flute_sound            ;pizpiano_sound
  8330.     dc.l    bdmid_tune1
  8331.     dc.l    bdmid_tune2
  8332.     dc.l    bdmid_tune3
  8333.     dc.l    pizpiano_sound
  8334.     dc.l    bdlink_trill
  8335. ;bds1
  8336.     dc.l    trumpet_sound
  8337.     dc.l    bdtune2
  8338.     dc.l    bdtune2_ext
  8339.     dc.l    pizpiano
  8340.     dc.l    bdtune2
  8341.     dc.l    end_note_tune
  8342.     dc.l    pri
  8343.     dc.l    0,end_song
  8344.  
  8345. bds2
  8346.     dc.l    pizpiano_sound_quiet        ;string_sound_loud
  8347.  
  8348.     ;dc.l    string_sound_loud
  8349.     dc.l    bd_acc1
  8350.     dc.l    pizpiano_sound
  8351.     dc.l    bd_acc1_ext
  8352. ;bds2
  8353.     ;dc.l    string_sound
  8354.     dc.l    pizpiano_sound_quiet
  8355.  
  8356.     dc.l    bdmid_tune_acc1
  8357.     dc.l    ex1
  8358.     dc.l    ex2
  8359.     dc.l    trumpet_sound
  8360.     dc.l    bdlink1
  8361.  
  8362.  
  8363. ;bds2
  8364.     dc.l    bass_sound
  8365.     dc.l    bdbass2
  8366.     dc.l    bdbass2_ext
  8367.     dc.l    bdbass2
  8368.     dc.l    end_note_bass
  8369.     dc.l    pri
  8370.     dc.l    0,end_song
  8371.  
  8372. bds3
  8373.  
  8374.  
  8375.  
  8376.     dc.l    pizpiano_sound_quiet        ;string_sound_loud
  8377.     dc.l    bd_acc2
  8378.     dc.l    pizpiano_sound
  8379.     dc.l    bd_acc2_ext
  8380.     dc.l    orch_hit_sound
  8381.     dc.l    bdverse_end_stab
  8382. ;bds3
  8383.     dc.l    pizpiano_sound_quiet
  8384.     ;dc.l    string_sound
  8385.     dc.l    bdmid_tune_acc2
  8386.     dc.l    trumpet_sound
  8387.     dc.l    bdlink2
  8388.  
  8389. ;bds3    
  8390.     ;dc.l    bdr1c
  8391.     dc.l    flute_sound
  8392.     dc.l    bdflute
  8393.     dc.l    histrg_sound
  8394.     dc.l    bdflute_ext
  8395.     dc.l    orch_hit_soundq
  8396.     dc.l    bdfluteo
  8397.     dc.l    end_note_stab
  8398.     dc.l    pri
  8399.     dc.l    0,end_song
  8400.  
  8401. bds4
  8402.     dc.l    trumpet_sound
  8403.     dc.l    bdverse_bass
  8404.     dc.l    flute_sound
  8405.     dc.l    flute_run
  8406. ;bds4
  8407.     dc.l    pizpiano_sound_quiet                ;string_sound
  8408.     dc.l    bdmid_tune_acc3
  8409.     dc.l    bdlink_rest
  8410.  
  8411.     dc.l    flute_sound
  8412.     dc.l    bdlink_trill
  8413.  
  8414.  
  8415.  
  8416. ;bds4
  8417.     dc.l    orch_hit_soundq
  8418.     dc.l    bdstabs_tune2
  8419.  
  8420.     dc.l    pizpiano_sound
  8421.     dc.l    bdtune2_ext
  8422.  
  8423.  
  8424.     dc.l    snare_sound
  8425.     dc.l    bdsnare
  8426.     dc.l    end_note_snare
  8427.  
  8428.     dc.l pri_new_tune
  8429.  
  8430.     dc.l    0,end_song
  8431.  
  8432.  
  8433. bdr1
  8434.     dc.w    rest,cr*4
  8435.     dc.w    end_patt
  8436.  
  8437.  
  8438. bdr1c
  8439.     dc.w    rest,cr
  8440.     dc.w    end_patt
  8441.  
  8442. end_note_stab
  8443.     dc.w    d03,cr*3
  8444.     dc.w    end_patt
  8445.  
  8446. end_note_bass
  8447.     dc.w    d01,cr*3
  8448.     dc.w    end_patt
  8449.  
  8450. end_note_snare
  8451.     dc.w    r16,cr*3
  8452.     dc.w    end_patt
  8453.  
  8454. end_note_tune
  8455.     dc.w    rest,cr,d02,cr*3
  8456.     dc.w    end_patt
  8457.  
  8458.  
  8459. bdlink_rest
  8460.     dc.w    rest,cr*6
  8461.     dc.w    end_patt
  8462.  
  8463. bdflute
  8464.     dc.w    rest,cr,gb02,q,g02,q,a02,cr
  8465.     dc.w    rest,cr,gb02,q,g02,q,a02,cr
  8466.     dc.w    rest,cr,gb02,q,g02,q,a02,cr,a02,cr*3
  8467.  
  8468.     dc.w    rest,cr,gb02,q,g02,q,a02,cr
  8469.     dc.w    rest,cr,gb02,q,g02,q,a02,cr
  8470.     dc.w    rest,cr,gb02,q,g02,q,a02,cr,a02,cr*3
  8471.  
  8472.     dc.w    rest,cr,gb02,q,g02,q,a02,cr
  8473.     dc.w    rest,cr,gb02,q,g02,q,a02,cr
  8474.     dc.w    rest,cr,gb02,q,g02,q,a02,cr,a02,cr*3
  8475.  
  8476.  
  8477.     dc.w    d03,cr,e03,cr,gb03,cr,a03,cr*2,g03,cr
  8478.     dc.w    gb03,q,gb03,q,gb03,cr,e03,cr,d03,cr*3
  8479.     dc.w    end_patt
  8480.  
  8481. bdfluteo
  8482.     dc.w    rest,cr,gb03,q,g03,q,a03,cr
  8483.     dc.w    rest,cr,gb03,q,g03,q,a03,cr
  8484.     dc.w    rest,cr,gb03,q,g03,q,a03,cr,a03,cr*3
  8485.  
  8486.     dc.w    rest,cr,gb03,q,g03,q,a03,cr
  8487.     dc.w    rest,cr,gb03,q,g03,q,a03,cr
  8488.     dc.w    rest,cr,gb03,q,g03,q,a03,cr,a03,cr*3
  8489.  
  8490.     dc.w    rest,cr,gb03,q,g03,q,a03,cr
  8491.     dc.w    rest,cr,gb03,q,g03,q,a03,cr
  8492.     dc.w    rest,cr,gb03,q,g03,q,a03,cr,a03,cr*3
  8493.  
  8494.  
  8495.     dc.w    d03,cr,e03,cr,gb03,cr,a03,cr*2,g03,cr
  8496.     dc.w    gb03,q,gb03,q,gb03,cr,e03,cr,d03,cr*3
  8497.     dc.w    end_patt
  8498.  
  8499.  
  8500.  
  8501. bdflute_ext
  8502.  
  8503.     dc.w    d03,q,f02,q,bb02,q,d03,q,f02,q,bb02,q
  8504.     dc.w    d03,q,f02,q,bb02,q,d03,q,f02,q,bb02,q
  8505.  
  8506.     dc.w    eb03,q,g02,q,bb02,q,eb03,q,g02,q,bb02,q
  8507.     dc.w    eb03,q,g02,q,bb02,q,eb03,q,g02,q,bb02,q
  8508.  
  8509.     dc.w    f02,q,c03,q,f02,q,a02,q,f02,q,a02,q
  8510.     dc.w    c03,q,f02,q,a02,q,c03,q,f02,q,a02,q
  8511.  
  8512.     dc.w    d03,q,g02,q,bb02,q,f02,q,bb02,q,f02,q
  8513.     dc.w    d03,q,g02,q,bb02,q,f02,q,a02,q,f02,q
  8514.  
  8515.     dc.w    c03,q,f02,q,bb02,q,f02,q,d03,q,f02,q
  8516.     dc.w    bb02,q,f02,q,d03,q,f02,q,bb02,q,f02,q
  8517.  
  8518.     dc.w    g02,q,bb02,q,eb03,q,g02,q,bb02,q,g02,q
  8519.     dc.w    e03,q,g02,q,bb02,q,g02,q,e03,q,g02,q
  8520.  
  8521.     dc.w    a02,q,d03,q,gb03,q,a02,q,d03,q,f03,q
  8522.     dc.w    a02,q,d03,q,gb03,q,a02,q,d03,q,f03,q
  8523.  
  8524.     dc.w    d02,cr,d02,cr,d02,cr
  8525.     dc.w    d02,cr,d02,cr,d02,cr
  8526.     dc.w    end_patt
  8527.  
  8528. bdstabs_tune2
  8529.  
  8530.     dc.w    e03,cr
  8531.     dc.w    a03,cr,rest,cr*2,e03,cr,rest,cr*2
  8532.     dc.w    a03,cr,rest,cr*2,e03,cr,rest,cr*2
  8533.     dc.w    d03,cr,rest,cr*2,d03,cr,rest,cr*2
  8534.     dc.w    d03,cr,rest,cr*2,d03,cr
  8535.     dc.w    e03,cr,a03,cr
  8536.     dc.w    a03,cr,rest,cr*2,e03,cr,rest,cr*2,a03,cr,rest,cr*2,e03,cr,rest,cr*2
  8537.     dc.w    d03,cr,e03,cr,gb03,cr,rest,cr*2,g03,cr
  8538.     dc.w    rest,cr*2,d03,cr,a03,cr,d03,cr
  8539.  
  8540.     dc.w    end_patt
  8541.  
  8542. bdsnare
  8543.     dc.w    rest,cr*2
  8544.     dc.w    r16,q,r16,q,r16,cr
  8545.  
  8546.     dc.w    rest,cr
  8547.     dc.w    r16,q,r16,q,r16,cr
  8548.  
  8549.     dc.w    rest,cr
  8550.     dc.w    r16,q,r16,q,r16,q
  8551.     dc.w    r16,q,r16,cr*3
  8552.  
  8553.     dc.w    rest,cr
  8554.     dc.w    r16,q,r16,q,r16,cr
  8555.  
  8556.     dc.w    rest,cr
  8557.     dc.w    r16,q,r16,q,r16,cr
  8558.  
  8559.     dc.w    rest,cr
  8560.     dc.w    r16,q,r16,q,r16,q
  8561.     dc.w    r16,q,r16,cr*3
  8562.  
  8563.  
  8564.  
  8565.     dc.w    rest,cr
  8566.     dc.w    r16,q,r16,q,r16,cr
  8567.  
  8568.     dc.w    rest,cr
  8569.     dc.w    r16,q,r16,q,r16,cr
  8570.  
  8571.     dc.w    rest,cr
  8572.     dc.w    r16,q,r16,q,r16,q
  8573.     dc.w    r16,q,r16,cr*3
  8574.  
  8575.  
  8576.     dc.w    rest,cr
  8577.     dc.w    r16,q,r16,q,r16,cr
  8578.  
  8579.     dc.w    rest,cr
  8580.     dc.w    r16,q,r16,q,r16,cr
  8581.  
  8582.     dc.w    r16,cr
  8583.  
  8584.     dc.w    end_patt
  8585.  
  8586.  
  8587. bdtune2
  8588.     dc.w    a02,cr,g02,cr*2,a02,cr,g02,cr*2,a02,cr
  8589.     dc.w    gb03,cr*4
  8590.     dc.w    e03,cr,a02,cr,gb02,cr*2,a02,cr,gb02,cr*2
  8591.     dc.w    a02,cr,e03,cr*4,d03,cr
  8592.     dc.w    a02,cr,g02,cr*2,a02,cr,g02,cr*2,a02,cr
  8593.     dc.w    gb03,cr*4
  8594.     dc.w    e03,cr,a02,cr,d03,cr,e03,cr,gb03,cr,a03,cr*2,g03,cr
  8595.     dc.w    gb03,q,gb03,q,gb03,cr,e03,cr,d03,cr*2
  8596.     dc.w    end_patt
  8597. bdtune2_ext
  8598.     dc.w    d03,cr,d03,cr*4,eb03,cr,d03,cr
  8599.     dc.w    c03,cr,bb02,cr,a02,cr,g02,cr,rest,cr*2
  8600.     dc.w    c03,cr*2,c03,cr*2,g02,cr+q,f02,q,f02,cr*2
  8601.     dc.w    f03,cr,eb03,cr,d03,cr,c03,cr
  8602.  
  8603.     dc.w    d03,cr*2,d03,cr*2,eb03,cr,d03,cr
  8604.     dc.w    c03,cr,bb02,cr,a02,cr,g02,cr*3
  8605.  
  8606.     dc.w    gb02,cr*2,gb02,cr,rest,cr,g02,cr+q,bb02,q
  8607.     dc.w    a02,cr*5
  8608.  
  8609.     dc.w    end_patt
  8610.  
  8611. bdbass2 
  8612.     dc.w    e02,cr*3,a01,cr*3
  8613.     dc.w    a02,cr,b02,cr,db03,cr,e03,cr*3
  8614.     dc.w    d02,cr*3,a01,cr*3
  8615.     dc.w    a02,cr,d03,cr,gb03,cr,a03,cr*3
  8616.     dc.w    e02,cr*3,a01,cr*3
  8617.     dc.w    e02,cr,gb02,cr,a02,cr,db03,cr*3
  8618.     dc.w    d02,cr*3,a02,cr*3,a02,cr*3,d03,cr*3
  8619.  
  8620.     dc.w    end_patt
  8621.  
  8622. bdbass2_ext 
  8623.     dc.w    bb02,cr*3,bb02,cr*3
  8624.     dc.w    eb02,cr*3,eb02,cr*3
  8625.     dc.w    a03,cr*3,f03,cr*3
  8626.     dc.w    bb02,cr*3,f03,cr*3
  8627.     dc.w    bb02,cr*3,bb02,cr*3
  8628.     dc.w    eb02,cr*3,e02,cr*3
  8629.     dc.w    d02,cr*3,d02,cr*3,d02,cr*6
  8630.     dc.w    end_patt
  8631.  
  8632.  
  8633.  
  8634.  
  8635.  
  8636.     dc.w    end_patt
  8637.  
  8638.  
  8639.  
  8640.  
  8641. bdlink_trill
  8642.     dc.w    a02,sq,b02,sq,a02,sq,b02,sq
  8643.     dc.w    a02,sq,b02,sq,a02,sq,b02,sq
  8644.     dc.w    a02,sq,b02,sq,a02,sq,b02,sq
  8645.  
  8646.     dc.w    a02,sq,b02,sq,a02,sq,b02,sq
  8647.     dc.w    a02,sq,b02,sq,a02,sq,b02,sq
  8648.     dc.w    a02,sq,b02,sq,a02,sq,b02,sq
  8649.  
  8650.     dc.w    a02,sq,b02,sq,a02,sq,b02,sq
  8651.     dc.w    a02,sq,b02,sq,a02,sq,b02,sq
  8652.     dc.w    a02,sq,b02,sq,a02,sq,b02,sq
  8653.  
  8654.     dc.w    a02,cr*2
  8655.     dc.w    end_patt
  8656.  
  8657.  
  8658.  
  8659.  
  8660. bdlink1
  8661.     dc.w    rest,cr*6
  8662.     dc.w    e02,cr*3,g02,cr*3
  8663.     dc.w    e02,cr*3,g02,cr*3
  8664.     dc.w    end_patt
  8665.  
  8666. bdlink2
  8667.     dc.w    rest,cr*7
  8668.     dc.w    a02,cr*3,e02,cr*3
  8669.     dc.w    a02,cr*3,e02,cr*3
  8670.     dc.w    end_patt
  8671.  
  8672.  
  8673.  
  8674.  
  8675.  
  8676.  
  8677.  
  8678.  
  8679.  
  8680. bdtune1
  8681. ;    dc.w modon,1,1,2,2,6,6
  8682.     dc.w    d02,cr,gb02,cr,a02,cr
  8683.     dc.w    a02,cr*8
  8684.  
  8685.     dc.w    d02,cr,d02,cr,gb02,cr,a02,cr
  8686.     dc.w    a02,cr*8
  8687.  
  8688.     dc.w    db02,cr,db02,cr,e02,cr,b02,cr
  8689.     dc.w    b02,cr*8
  8690.  
  8691.     dc.w    db02,cr,db02,cr,e02,cr,b02,cr
  8692.     dc.w    b02,cr*8
  8693.  
  8694.  
  8695.     dc.w    d02,cr,d02,cr,gb02,cr,a02,cr
  8696.     dc.w    d03,cr*8
  8697.  
  8698.  
  8699.     dc.w    d02,cr,d02,cr,gb02,cr,a02,cr
  8700.     dc.w    d03,cr*8
  8701.  
  8702.     dc.w    e02,cr,e02,cr,g02,cr,b02,cr
  8703.     dc.w    b02,cr*4
  8704.     dc.w    ab02,cr,a02,cr,gb03,cr*4
  8705.     dc.w    d03,cr,gb02,cr,gb02,cr*2
  8706.     dc.w    e02,cr,b02,cr*2,a02,cr
  8707.     dc.w    d02,cr+q,d02,q,d02,cr,d02,cr
  8708.  
  8709.     dc.w    end_patt
  8710.  
  8711. bdmid_tune1
  8712.     dc.w    d02,cr,db02,cr,db02,cr,b01,cr,b01,cr
  8713.     dc.w    rest,cr,b01,cr,bb01,cr,bb01,cr,b01,cr,b01,cr
  8714.     dc.w    end_patt
  8715.  
  8716. bdmid_tune2
  8717.     dc.w    rest,cr,e02,cr,e02,cr,gb02,cr*2,e02,cr,rest,cr
  8718.     dc.w    e02,cr,e02,cr,b02,cr*2,a02,cr,rest,cr
  8719.     dc.w    end_patt
  8720. bdmid_tune3
  8721.     dc.w    d02,cr,db02,cr,db02,cr,b01,cr,b01,cr
  8722.     dc.w    rest,cr,b01,cr,db02,cr,e02,cr,d02,cr,d02,cr
  8723.  
  8724.     dc.w    rest,cr,ab02,cr,b02,cr,b02,cr*2,a02,cr
  8725.     dc.w    ab02,cr+q,gb02,q,d02,q,b01,q
  8726.  
  8727.     dc.w    gb02,q,gb02,q,gb02,cr,e02,cr
  8728.  
  8729.     dc.w    a01,cr*3    
  8730.  
  8731.     dc.w    end_patt
  8732.  
  8733. bdmid_tune_acc1
  8734.     ;dc.w    rest,cr*2
  8735.     dc.w    e02,cr,ab02,cr,ab02,cr
  8736.     dc.w    e02,cr,ab02,cr,g02,cr
  8737.     dc.w    e02,cr,ab02,cr,ab02,cr
  8738.     dc.w    e02,cr,ab02,cr,ab02,cr
  8739.     dc.w    end_patt
  8740. ex1
  8741.     dc.w    e02,cr*3,gb02,cr*3,g02,cr*3,gb02,cr*3
  8742.     dc.w    end_patt
  8743. ex2
  8744.     dc.w    e02,cr,ab02,cr,ab02,cr
  8745.     dc.w    e02,cr,ab02,cr,g02,cr
  8746.     dc.w    e02,cr,ab02,cr,ab02,cr
  8747.     dc.w    e02,cr,b02,cr,b02,cr
  8748.     dc.w    gb02,cr*2,a02,cr,d02,cr*3
  8749.     dc.w    end_patt
  8750.  
  8751. bdmid_tune_acc2
  8752.     ;dc.w    rest,cr*2
  8753.     dc.w    rest,cr,d03,cr,d03,cr
  8754.     dc.w    rest,cr,d03,cr,db03,cr
  8755.     dc.w    rest,cr,d03,cr,d03,cr
  8756.     dc.w    rest,cr,d03,cr,d03,cr
  8757.  
  8758.     dc.w    rest,cr,db03,cr,db03,cr
  8759.     dc.w    rest,cr,db03,cr,db03,cr
  8760.     dc.w    rest,cr,db03,cr,db03,cr
  8761.     dc.w    rest,cr,db03,cr,db03,cr
  8762.  
  8763.     dc.w    rest,cr,d03,cr,d03,cr
  8764.     dc.w    rest,cr,d03,cr,db03,cr
  8765.     dc.w    rest,cr,d03,cr,d03,cr
  8766.     dc.w    rest,cr,d03,cr,d03,cr
  8767.  
  8768.     dc.w    b02,cr*2,rest,cr,gb02,cr*3
  8769.     dc.w    end_patt
  8770.  
  8771. bdmid_tune_acc3
  8772.     ;dc.w    rest,cr*2
  8773.     dc.w    rest,cr,e03,cr,e03,cr
  8774.     dc.w    rest,cr,e03,cr,e03,cr
  8775.     dc.w    rest,cr,e03,cr,e03,cr
  8776.     dc.w    rest,cr,e03,cr,e03,cr
  8777.  
  8778.     dc.w    rest,cr,e03,cr,e03,cr
  8779.     dc.w    rest,cr,e03,cr,e03,cr
  8780.     dc.w    rest,cr,e03,cr,e03,cr
  8781.     dc.w    rest,cr,e03,cr,e03,cr
  8782.  
  8783.     dc.w    rest,cr,e03,cr,e03,cr
  8784.     dc.w    rest,cr,e03,cr,e03,cr
  8785.     dc.w    rest,cr,e03,cr,e03,cr
  8786.     dc.w    rest,cr,e03,cr,rest,cr
  8787.  
  8788.     dc.w    db03,cr*2,rest,cr,b02,cr*3
  8789.     dc.w    end_patt
  8790.  
  8791.  
  8792.  
  8793.  
  8794.  
  8795. bd_acc1
  8796.     dc.w    rest,cr*5
  8797.     dc.w    a02,cr,a02,cr*2,gb02,cr
  8798.     dc.w    gb02,cr*2
  8799.  
  8800.     dc.w    rest,cr*6
  8801.     dc.w    a02,cr,a02,cr*2,g02,cr
  8802.     dc.w    g02,cr*2
  8803.  
  8804.     dc.w    rest,cr*6
  8805.     dc.w    b02,cr,b02,cr*2,g02,cr,g02,cr*2
  8806.  
  8807.     dc.w    rest,cr*6
  8808.     dc.w    b02,cr,b02,cr*2,gb02,cr,gb02,cr*2
  8809.  
  8810.  
  8811.     dc.w    rest,cr*6
  8812.     dc.w    d03,cr,d03,cr*2,a02,cr
  8813.     dc.w    a02,cr*2
  8814.  
  8815.  
  8816.     dc.w    rest,cr*6
  8817.     dc.w    d03,cr,d03,cr*2,b02,cr
  8818.     dc.w    b02,cr*2
  8819.     dc.w    end_patt
  8820.  
  8821. bd_acc1_ext
  8822.  
  8823.         ;end bit
  8824.     dc.w    e02,cr,e02,cr,g02,cr,b02,cr
  8825.     dc.w    e02,cr,a02,cr,a02,cr
  8826.     dc.w    a01,cr,a02,cr,a02,cr
  8827.     dc.w    d02,cr,a02,cr,a02,cr
  8828.     dc.w    gb02,cr,a02,cr,a02,cr
  8829.     dc.w    b02,cr*3,e02,cr*3
  8830.     dc.w    d02,cr*6
  8831.  
  8832.     dc.w    end_patt
  8833.  
  8834.  
  8835. bd_acc2
  8836.     dc.w    rest,cr*5
  8837.     dc.w    gb02,cr,gb02,cr*2,d02,cr
  8838.     dc.w    d02,cr*2
  8839.  
  8840.     dc.w    rest,cr*6
  8841.     dc.w    g02,cr,g02,cr*2,db02,cr
  8842.     dc.w    db02,cr*2
  8843.  
  8844.     dc.w    rest,cr*6
  8845.     dc.w    g02,cr,g02,cr*2,db02,cr,db02,cr*2
  8846.  
  8847.     dc.w    rest,cr*6
  8848.     dc.w    d02,cr,d02,cr*2,d02,cr,d02,cr*2
  8849.  
  8850.  
  8851.     dc.w    rest,cr*6
  8852.     dc.w    a03,cr,a03,cr*2,gb02,cr
  8853.     dc.w    gb02,cr*2
  8854.  
  8855.  
  8856.     dc.w    rest,cr*6
  8857.     dc.w    b02,cr,b02,cr*2,b01,cr
  8858.     dc.w    b01,cr*2
  8859.     dc.w    end_patt
  8860.  
  8861. bd_acc2_ext
  8862.  
  8863.     ;end bit
  8864.     dc.w    rest,cr*4
  8865.     dc.w    rest,cr,db02,cr,db02,cr
  8866.     dc.w    rest,cr,db02,cr,db02,cr
  8867.     dc.w    rest,cr,d02,cr,d02,cr
  8868.     dc.w    rest,cr,d02,cr,d02,cr
  8869.     dc.w    d02,cr*3,g02,cr*5
  8870.     dc.w    end_patt
  8871. bdverse_end_stab
  8872.     dc.w    a02,cr,d03,cr*2
  8873.     dc.w    end_patt
  8874.  
  8875.  
  8876.  
  8877. bdverse_bass
  8878.  
  8879.     dc.w modon,1,1,4,4,6,6
  8880.  
  8881.     dc.w    rest,cr*3
  8882.     dc.w    d02,cr*3,db02,cr*3
  8883.     dc.w    b01,cr*3,a01,cr*6
  8884.     dc.w    g01,cr*3,gb01,cr*3
  8885.     dc.w    e01,cr*6,d01,cr*3
  8886.     dc.w    db01,cr*3,b01,cr*6
  8887.     dc.w    a01,cr*3,gb01,cr*3
  8888.     dc.w    d01,cr*6,d02,cr*3
  8889.     dc.w    c02,cr*6,g02,cr*6
  8890.     dc.w    rest,cr*6
  8891.     dc.w    a01,cr*2,a02,cr*4
  8892.     dc.w    d02,cr*6
  8893.     dc.w    g01,cr*3
  8894.     dc.w    a01,cr*3
  8895.     ;dc.w    d02,cr,a01,cr,d01,cr,d01,cr
  8896.     ;dc.w    rest,cr*2
  8897.  
  8898.     dc.w    end_patt
  8899.  
  8900. flute_run
  8901.     dc.w    d03,sq,db03,sq,c03,sq,b02,sq,bb02,sq
  8902.     dc.w    a02,sq,ab02,sq,g02,sq,gb02,sq,f02,sq,e02,sq
  8903.     dc.w    eb02,sq,d02,cr*2+q+sq+sq
  8904.     
  8905.     dc.w    end_patt
  8906.  
  8907.  
  8908.  
  8909. ;**************************************
  8910.  
  8911.  
  8912. sinel
  8913. sinep
  8914.         dc.w 1  
  8915.              dc.l sined
  8916.              dc.w 16/2  
  8917.              dc.l restd
  8918.              dc.w 16/2
  8919.  
  8920. acbass1p
  8921.         dc.w 1  
  8922.              dc.l acbass1d
  8923.              dc.w 3478/2  
  8924.              dc.l restd
  8925.              dc.w 16/2
  8926.  
  8927. flute2p
  8928.         dc.w 1  
  8929.              ;dc.l flute2d
  8930.              dc.w 4426/2  
  8931.              dc.l restd
  8932.              dc.w 16/2
  8933.  
  8934. newflutep
  8935.         dc.w 1  
  8936.              dc.l newfluted
  8937.              dc.w 3636/2  
  8938.              dc.l restd
  8939.              dc.w 16/2
  8940.  
  8941. newflutelp
  8942.         dc.w 1  
  8943.              dc.l newfluted
  8944.              dc.w 3636/2  
  8945.              dc.l sined
  8946.              dc.w 16/2
  8947.  
  8948. frehornp
  8949.         dc.w 1  
  8950.              dc.l frehornd
  8951.              dc.w 7020/2  
  8952.              dc.l restd
  8953.              dc.w 16/2
  8954.  
  8955. pizzo1p
  8956.         dc.w 1  
  8957.              dc.l pizzo1d
  8958.              dc.w 5550/2  
  8959.              dc.l restd
  8960.              dc.w 16/2
  8961.  
  8962. pizzo2p
  8963.         dc.w 1  
  8964.              dc.l pizzo2d
  8965.              dc.w 3796/2  
  8966.              dc.l restd
  8967.              dc.w 16/2
  8968.  
  8969. strings1p
  8970.         dc.w 1  
  8971.              dc.l strings1d
  8972.              dc.w 8448/2  
  8973.              dc.l restd
  8974.              dc.w 16/2
  8975.  
  8976. strings2p
  8977.         dc.w 1  
  8978.              dc.l strings2d
  8979.              dc.w 8668/2  
  8980.              dc.l restd
  8981.              dc.w 16/2
  8982.  
  8983. brasssecp
  8984. synbras1p
  8985.         dc.w 1  
  8986.              dc.l brasssecd
  8987.              dc.w 6360/2  
  8988.              dc.l restd
  8989.              dc.w 16/2
  8990.  
  8991. trumpet_loopp
  8992.         dc.w 1  
  8993.              dc.l synbras1d
  8994.              dc.w 3338/2  
  8995.              dc.l synbras1d
  8996.              dc.w 3338/2  
  8997.  
  8998.  
  8999. violin1p
  9000.         dc.w 1  
  9001.              dc.l violin1d
  9002.              dc.w 6350/2  
  9003.              dc.l restd
  9004.              dc.w 16/2
  9005.  
  9006. newtympp
  9007.         dc.w 1  
  9008.              dc.l tymp1d
  9009.              dc.w 5052/2  
  9010.              dc.l restd
  9011.              dc.w 16/2
  9012.  
  9013. orchhitpp
  9014.         dc.w 1  
  9015.              dc.l orchhitpd
  9016.              dc.w 10594/2  
  9017.              dc.l restd
  9018.              dc.w 16/2
  9019.  
  9020. pizpianop
  9021.         dc.w 1  
  9022.              dc.l pizpianod
  9023.              dc.w 4032/2  
  9024.              dc.l restd
  9025.              dc.w 16/2
  9026.  
  9027. histrgp
  9028.         dc.w 1  
  9029.              dc.l histrgd
  9030.              dc.w 2960/2  
  9031.              dc.l restd
  9032.              dc.w 16/2
  9033.  
  9034.  
  9035.  
  9036.  
  9037. snarep
  9038.         dc.w 1  
  9039.              dc.l snared
  9040.              dc.w 2240/2  
  9041.              dc.l restd
  9042.              dc.w 16/2
  9043.  
  9044.  
  9045.  
  9046. ;****************************
  9047.  
  9048.  
  9049. ;;;fx parameters
  9050.  
  9051. UNDERCp
  9052.         dc.w 1  
  9053.              dc.l UNDERCd
  9054.              dc.w 768/2  
  9055.              dc.l restd
  9056.              dc.w 16/2
  9057.  
  9058. alarmp
  9059.         dc.w 1  
  9060.              dc.l alarmd
  9061.              dc.w 586/2  
  9062.              dc.l alarmd
  9063.              dc.w 586/2  
  9064.  
  9065. engine3p    
  9066.         dc.w 1  
  9067.              dc.l hissd
  9068.              dc.w 2545/2  
  9069.              dc.l hissd
  9070.              dc.w 2545/2  
  9071.  
  9072. HISSp
  9073.         dc.w 1  
  9074.              dc.l HISSd
  9075.              dc.w 2545/2  
  9076.              dc.l HISSd
  9077.              dc.w 2545/2  
  9078.  
  9079. DOORCLOSp
  9080.         dc.w 1  
  9081.              dc.l DOORCLOSd
  9082.              dc.w 1386/2  
  9083.              dc.l restd
  9084.              dc.w 16/2
  9085.  
  9086.  
  9087. AIRLOCKp
  9088.         dc.w 1  
  9089.              dc.l AIRLOCKd
  9090.              dc.w 2800/2  
  9091.              dc.l restd
  9092.              dc.w 16/2
  9093.  
  9094. RUMBLEp
  9095.         dc.w 1  
  9096.              dc.l RUMBLEd
  9097.              dc.w 1440/2  
  9098.              dc.l RUMBLEd
  9099.              dc.w 1440/2  
  9100.  
  9101. BONGp
  9102.         dc.w 1  
  9103.              dc.l BONGd
  9104.              dc.w 1296/2  
  9105.              dc.l restd
  9106.              dc.w 16/2
  9107.  
  9108. LAZER2p
  9109.         dc.w 1  
  9110.              dc.l LAZER2d
  9111.              dc.w 1950/2  
  9112.              dc.l restd
  9113.              dc.w 16/2
  9114. LAZER1p
  9115.         dc.w 1  
  9116.              dc.l LAZER1d
  9117.              dc.w 2832/2  
  9118.              dc.l restd
  9119.              dc.w 16/2
  9120.  
  9121. ENGINE2p
  9122.         dc.w 1  
  9123.              dc.l ENGINE2d
  9124.              dc.w 2124/2  
  9125.              dc.l ENGINE2d
  9126.              dc.w 2124/2  
  9127.  
  9128. EXP1p
  9129.         dc.w 1  
  9130.              dc.l EXP1d
  9131.              dc.w 2440/2  
  9132.              dc.l restd
  9133.              dc.w 16/2
  9134.  
  9135. EXP1lp
  9136.         dc.w 1  
  9137.              dc.l UNDERCd
  9138.              dc.w 768/2  
  9139.              dc.l UNDERCd
  9140.              dc.w 768/2  
  9141.  
  9142.  
  9143.  
  9144.  
  9145. WHEELSp
  9146.         dc.w 1  
  9147.              dc.l WHEELSd
  9148.              dc.w 1808/2  
  9149.              dc.l WHEELSd
  9150.              dc.w 1808/2  
  9151.  
  9152.  
  9153. WINDp
  9154.         dc.w 1  
  9155.              dc.l WINDd
  9156.              dc.w 3272/2  
  9157.              dc.l WINDd
  9158.              dc.w 3272/2  
  9159.  
  9160.  
  9161. ENGINE1p
  9162.         dc.w 1  
  9163.              dc.l ENGINE1d
  9164.              dc.w 1764/2  
  9165.              dc.l ENGINE1d
  9166.              dc.w 1764/2  
  9167.  
  9168.  
  9169. expbigp
  9170.         dc.w 1  
  9171.              dc.l expbigd
  9172.              dc.w 6876/2  
  9173.              dc.l restd
  9174.              dc.w 16/2
  9175.  
  9176. hisslp
  9177.         dc.w 1  
  9178.              dc.l hissld
  9179.              dc.w 7182/2  
  9180.              dc.l hissld
  9181.              dc.w 7182/2
  9182.  
  9183. misslp
  9184.         dc.w 1  
  9185.              dc.l missld
  9186.              dc.w 6426/2  
  9187.              dc.l restd
  9188.              dc.w 16/2
  9189.  
  9190. hyperp
  9191.         dc.w 1  
  9192.              dc.l hyperd
  9193.              dc.w 7818/2  
  9194.              dc.l restd
  9195.              dc.w 16/2
  9196.  
  9197.  
  9198. ;**************************************************
  9199.  
  9200. acbass1d        
  9201. histrgd            incbin ram:histrg.con
  9202. snared:            incbin ram:snare.con
  9203. frehornd        incbin ram:frehornl.con
  9204. pizzo1d            incbin ram:pizzo1.con
  9205. pizzo2d            incbin ram:pizzo2.con
  9206. strings1d        
  9207. strings2d        incbin ram:strings2.con
  9208. synbras1d        incbin ram:hbrass3l.con        ;synbras1.con
  9209. brasssecd        incbin ram:brasssec.con        ;synbras1.con
  9210. violin1d        incbin ram:violin1.con
  9211. tymp1d            incbin ram:newtymp.con
  9212. orchhitpd        incbin ram:orchhitp.con
  9213. pizpianod        incbin ram:pizpiano.con
  9214.  
  9215. newfluted        incbin ram:newflute.con
  9216.  
  9217.  
  9218. ;********************************************
  9219.  
  9220. ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere
  9221. ;; in lower memory,and in any order
  9222.  
  9223. UNDERCd        ;;;;;;;;;;;;;;;;;;;;;incbin ram:UNDERC.fon        
  9224. expbigd        incbin ram:expbig.fon
  9225. HISSd        incbin ram:HISS.fon        
  9226. DOORCLOSd    incbin ram:DOORCLOS.fon    
  9227. AIRLOCKd    incbin ram:AIRLOCK.fon    
  9228. RUMBLEd        incbin ram:RUMBLE.fon        
  9229. BONGd        incbin ram:BONG.fon        
  9230. LAZER2d        incbin ram:LAZER2.fon        
  9231. LAZER1d        incbin ram:LAZER1.fon        
  9232. ENGINE2d    incbin ram:ENGINE2.fon    
  9233. EXP1d        incbin ram:EXPLOSIO.fon        
  9234. WINDd        incbin ram:WIND.fon        
  9235. ENGINE1d    incbin ram:ENGINE1.fon    
  9236. WHEELSd        ;;;;;;;;;;;;;;;;;;;;;incbin ram:WHEELS.fon
  9237. alarmd        incbin ram:alarm.fon
  9238.  
  9239. hissld        incbin ram:hissl.fon
  9240. missld        ;incbin ram:missl.fon
  9241. hyperd        incbin ram:hyper.fon
  9242.  
  9243.  
  9244.  
  9245.  
  9246.  
  9247. ;myfile                     empty rwed Today     22:38:40
  9248. ;UNDERC.FON                   768 rwed Today     22:37:09
  9249. ;HISS.FON                    1560 rwed Today     22:37:08
  9250. ;DOORCLOS.FON                1386 rwed Today     22:37:07
  9251. ;AIRLOCK.FON                 2800 rwed Today     22:37:06
  9252. ;RUMBLE.FON                  1440 rwed Today     22:37:06
  9253. ;BONG.FON                    1296 rwed Today     22:37:05
  9254. ;LAZER2.FON                  1950 rwed Today     22:37:04
  9255. ;LAZER1.FON                  2832 rwed Today     22:37:04
  9256. ;ENGINE2.FON                 2124 rwed Today     22:37:03
  9257. ;EXP1.FON                    2346 rwed Today     22:37:02
  9258. ;WIND.FON                    3272 rwed Today     22:37:00
  9259. ;ENGINE1.FON                 1764 rwed Today     22:37:00
  9260. ;EXPLOSIO.CON                2440 rwed Today     22:36:38
  9261. ;ALARM1.CON                   586 rwed Today     22:36:37
  9262. ;WHEELS.CON                  1808 rwed Today     22:36:36
  9263. ;HISS.CON                    2545 rwed Today     22:36:35
  9264. ;17 files - 86 blocks used
  9265.  
  9266.  
  9267. ;***********************
  9268. ev    equ 0            
  9269.  
  9270. rest_env:            dc.w 0,0,255
  9271.  
  9272.  
  9273.  
  9274. wholeorce:            dc.w 15,50,255
  9275. flute2e:            dc.w 15,28,255
  9276. flute2eq:            dc.w 0,15,255
  9277. flute2el:            dc.w 15,40,255
  9278. histrge:            dc.w 0,15,255
  9279. orchhite:            dc.w 15,50,255
  9280. orchhiteq:            dc.w 0,20,255
  9281.  
  9282. bassqe                dc.w 0,20,255
  9283.  
  9284. pizzo1e:            dc.w 15,50,255
  9285. basse:                dc.w 0,55,255
  9286. basseq:                dc.w 0,40,255
  9287. bassevq:            dc.w 0,40,255
  9288.  
  9289. snaree:                dc.w 0,50,255
  9290. snareeq:            dc.w 0,23,255
  9291. snareemid:            dc.w 0,33,255
  9292.  
  9293.  
  9294. pizzo1el:            dc.w 15,64,255
  9295.  
  9296. pizzo2e:            dc.w 15,50,255
  9297. pizzo2el:            dc.w 15,60,255
  9298.  
  9299. pizzo2eq:            dc.w 15,30,255
  9300.  
  9301. pizpianoe:            dc.w 15,50,255
  9302. pizpianoeq:            dc.w 0,10,255
  9303. pizpianoevrq:            dc.w 0,25,255
  9304. pizpianoevq:            dc.w 0,25,255
  9305.  
  9306. strings1e:            dc.w 15,30,255
  9307. strings1eq:            dc.w 15,25,255
  9308.  
  9309. strings1el:            dc.w 15,50,255
  9310. strings1eler:            dc.w 0,50,255
  9311.  
  9312. strings1ell:            dc.w 15,55,255
  9313.  
  9314. frehorne:            dc.w 15,35,255
  9315. synbras1e:            dc.w 0,25,255
  9316. synbras1e_s1:            dc.w 0,15,255
  9317.  
  9318. brasse:                dc.w 0,32,255
  9319. trumpete:            dc.w 0,45,255
  9320. trumpeteq:            dc.w 0,10,255
  9321.  
  9322. synbras1el:            dc.w 15,43,255
  9323.  
  9324. synbras1eq:            dc.w 15,23,255
  9325. acbass1e:            dc.w 15,30,255
  9326. violin1e:            dc.w 15,40,255
  9327. violin1el:            dc.w 0,60,255
  9328.  
  9329. violin1eq:            dc.w 15,30,255
  9330. tympe:                dc.w 15,35,255
  9331. tympel:                dc.w 15,45,255
  9332.  
  9333. orchhit2e:            dc.w 15,64,255
  9334. string_short_env    dc.w    0,35,35,35,30,28,25,23,20,10,6,3,0,255
  9335. string_pizz_env        dc.w    0,35,35,35,30,28,25,25,0,255
  9336.  
  9337. sine_env2:            dc.w 20,34-ev,33-ev,32-ev,5
  9338.             dc.w 39-ev,38-ev,37-ev,36-ev,35-ev,34-ev,33-ev,32-ev,4
  9339.             dc.w 19-ev,28-ev,37-ev,16-ev,25-ev,24-ev,27-ev,39-ev,28-ev
  9340.             dc.w 255
  9341. sine_env:            dc.w 0,50,255
  9342. sine_env_short:            dc.w 0,15,14,12,0,15,13,12,0,0,255
  9343. sine_env_slow:            dc.w 0,10,15,20,22,25,27,30,33,35,37,255
  9344.  
  9345. restd:
  9346. rest_data:
  9347.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  9348.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  9349.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  9350.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  9351. sined:
  9352. sine_datad:
  9353.              dc.w 127,80,70,60,50,40,30,0,-25,-50,-100,-127
  9354.              dc.w -127,-100,-50,-35,0,35,50,80,127
  9355.  
  9356.  
  9357.  
  9358.  
  9359.  
  9360.  
  9361. ;*************************************************
  9362.  
  9363.     end
  9364.  
  9365.  
  9366.  
  9367.     ;            dc.w modon,1,1,8,8,6,6
  9368.     ;dc.w pbend,down,20,60000,1
  9369.     ;dc.w    c01,cr*32
  9370.  
  9371.  
  9372.  
  9373.  
  9374.  
  9375.  
  9376.  
  9377.  
  9378.  
  9379.