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