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