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