home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Amiga Various Classical Elite II / Lowe_AmigaVariousClassicalEliteII.adf / eliteII.s < prev    next >
Encoding:
Text File  |  1978-10-10  |  47.7 KB  |  2,792 lines
  1.  
  2.     ;    DRIVER AND ANY ORIGINAL MUSIC REMAIN COPYRIGHT D.LOWE 
  3.  
  4.     ;         ELITEII/FRONTIERS TEST SOURCE
  5.  
  6.  
  7.     ; DAVID
  8.     ; This driver can be assembled as stand alone program
  9.     ; (see deletable test section below)
  10.     ; to allow you to use the different functions and
  11.     ; understand them before trying it ingame
  12.     ; The master fade has been removed from this version(not sure why)
  13.     ; but it will be put back in for the final one
  14.     ; it works by placing a number 0 to 64 in a variable
  15.     ; 64 being max vol.
  16.     ; For test purpose fx and tunes are triggered using the left mouse
  17.     ; button....
  18.  
  19.     ; It must be assembled with SYMBOLS CASE independent.
  20.  
  21.     ; dont hesitate to ring with any problems
  22.  
  23.     ;        DAVE LOWE.....0723  870648
  24.  
  25. ;        **************************
  26.  
  27.     section issA,code_c    ;must be in low memory for dma access
  28.                 ;DEVPAC PSEUDO OP ..CAN BE DELETED
  29.  
  30.  
  31. ;*****************************************
  32.  
  33.         ;  ALL EQUs
  34.  
  35. a00  equ  508*2
  36. bb00  equ  480*2
  37. b00  equ  453*2
  38. c01  equ  428*2
  39. db01  equ  404*2
  40. d01 equ  381*2
  41. eb01  equ  360*2
  42. e01  equ  339*2
  43. f01  equ  320*2
  44. gb01  equ  302*2
  45. g01  equ  285*2
  46. ab01 equ 269*2
  47. a01  equ  508
  48. bb01  equ  480
  49. b01  equ  453
  50.  
  51. c02  equ  428
  52. db02  equ  404
  53. d02  equ  381
  54. eb02  equ  360
  55. e02  equ  339
  56. f02  equ  320
  57. gb02  equ  302
  58. g02  equ  285
  59. ab02 equ 269
  60. a02  equ  254
  61. bb02  equ  240
  62. b02  equ  226
  63.  
  64. c03  equ  214
  65. db03  equ  202
  66. d03  equ  190
  67. eb03  equ  180
  68. e03  equ  170
  69. f03  equ  160
  70. gb03  equ  151
  71. g03  equ  143
  72. ab03 equ 135
  73. a03  equ  127
  74.  
  75. bb03  equ  480*2
  76. b03  equ  453*2
  77.  
  78. c04  equ  428*2
  79. db04  equ  404*2
  80. d04 equ  381*2
  81. eb04  equ  360*2
  82. e04  equ  339*2
  83. f04  equ  320*2
  84. gb04  equ  302*2
  85. g04  equ  285*2
  86. ab04 equ 269*2
  87. a04  equ  508
  88. bb04  equ  480
  89. b04  equ  453
  90.  
  91. c05  equ  428
  92. db05  equ  404
  93. d05  equ  381
  94. eb05  equ  360
  95. e05  equ  339
  96. f05  equ  320
  97. gb05  equ  302
  98. g05  equ  285
  99. ab05 equ 269
  100. a05  equ  254
  101. bb05  equ  240
  102. b05  equ  226
  103.  
  104. c06  equ  214
  105. db06  equ  202
  106. d06  equ  190
  107. eb06  equ  180
  108. e06  equ  170
  109. f06  equ  160
  110. gb06  equ  151
  111. g06  equ  143
  112. ab06 equ 135
  113. a06  equ  127
  114. bb06  equ  480*2
  115. b06  equ  453*2
  116.  
  117. c07  equ  428*2
  118. db07  equ  404*2
  119. d07 equ  381*2
  120. eb07  equ  360*2
  121. e07  equ  339*2
  122. f07  equ  320*2
  123. gb07  equ  302*2
  124. g07  equ  285*2
  125. ab07 equ 269*2
  126. a07  equ  508
  127. bb07  equ  480
  128. b07  equ  453
  129.  
  130. c08  equ  428
  131. db08  equ  404
  132. d08  equ  381
  133. eb08  equ  360
  134. e08  equ  339
  135. f08  equ  320
  136. gb08  equ  302
  137. g08  equ  285
  138. ab08 equ 269
  139. a08  equ  254
  140. bb08  equ  240
  141. b08  equ  226
  142.  
  143.  
  144. v equ 0
  145.  
  146. no_loop equ 0
  147. loop equ 0
  148. chann1reg   equ $dff0a0    
  149. chann2reg   equ $dff0b0
  150. chann3reg   equ $dff0c0
  151. chann4reg   equ $dff0d0
  152. dmacon     equ $dff096
  153. int_bf_int   equ   $dff01e
  154. int_bf_w    equ   $dff09a
  155. vhposr     equ   $dff006
  156. in_line    equ   0
  157. new_snd    equ   4
  158. end_song     equ   1
  159. end_patt    equ   8
  160. new_env    equ   12
  161. pbend     equ   16
  162.  
  163.  
  164.  
  165. hi: equ 223
  166. lo:  equ 446
  167.  
  168. r22    equ 134
  169. r20    equ 179        ;correctum
  170. r19    equ 150
  171. r18    equ 178
  172. r17    equ 200
  173. r16:    equ 227        ;correctum
  174. r15:    equ 249
  175. r14    equ 280
  176. r13:    equ 305
  177. r12:    equ 333
  178. r11:    equ 361
  179. r10:    equ 389
  180. r9:    equ 419
  181. r8:    equ 446
  182. r7:    equ 446+112
  183. r6:    equ 446+223
  184. r5:    equ 446+223+112
  185. r4:    equ 446*2
  186. r3:    equ 446*3
  187. r2:    equ 446*4
  188. r1:    equ 446*8
  189.  
  190.  
  191. filter: equ $bfe001
  192. filter_on equ 44
  193. filter_off equ 48
  194.  
  195. modon     equ   20
  196. pboff     equ   24
  197. modoff     equ   28
  198. rest     equ 32
  199. end_fxp  equ 36
  200. end_fx3  equ 36
  201. end_fx4  equ 40
  202. acc    equ 52
  203. repeat    equ 56
  204. down      equ   1
  205. up       equ   2
  206.  
  207. ;***************************************************************
  208.  
  209.  
  210.  ;    THIS IS THE CONTROL SECTION FOR TESTING AS A STAND ALONE PRG. 
  211.  
  212.     ;       AND CAN BE DELETED WHEN NOT REQUIRED
  213.  
  214.  
  215.     jsr select_new_song    ;select first song and initiliase
  216.  
  217. testloop:
  218.     jsr delay    ;wait for scan line  at 50hz on pal
  219.  
  220.     jsr driver    ;call music every interrupt
  221.  
  222.         bra testloop    ;loop back
  223.  
  224. ;**************************************
  225.  
  226.  
  227. delay:
  228.     tst.w fxtimer
  229.     bne no_test
  230.     clr.l d0
  231.     move.b $bfe001,d0
  232.     btst #6,d0
  233.     bne no_test1
  234.     move.w #10,fxtimer
  235.     bra testfx4
  236. no_test
  237.     subq #1,fxtimer
  238. no_test1
  239.     clr.l d0
  240.         move.w vhposr,d0
  241.         andi.w #%1111111100000000,d0
  242.         cmpi.w #%1111111100000000,d0
  243.  
  244.     bne no_test1
  245.     rts
  246.  
  247. testfx4:  
  248.  
  249.     ;jsr    kill_chip
  250.     ;move.w #1,int_disable
  251.     clr.l d0
  252.     move.b $bfe001,d0
  253.     btst #6,d0
  254.     beq testfx4
  255.  
  256.     move.l song_buffer,d0
  257.     addq.l #1,d0
  258.     cmp.l    #4,d0            ; 3 tunes in this test
  259.                     ; 1 = hall(unfinished)/2 =test fanfare
  260.                     ; 3 = silence
  261.     bne nores    
  262.     move.l #1,d0
  263.  
  264. ;*******************************        HOW TO PLAY A NEW TUNE
  265.  
  266. nores    move.l d0,song_buffer
  267.  
  268.     jsr    select_new_song        ;this call sets up the tune
  269.                     ;number in the song buffer
  270.                     ;make sure music is enabled (see below)
  271.                     ;call is currently commented off
  272.                     ;so you can play fx over one tune
  273.  
  274.  
  275. ;*******************************    HOW TO KILL ANY LOOPED FX
  276.  
  277.     move.l #3,d0        ;  fx 3 is the looped diesel engine
  278.     move.l d0,fx_kill    ;  used on this demo
  279.  
  280.     jsr kill_loopfx        ;  kill it when calling any other fx
  281.                 ;  otherwise it will fill up the
  282.                 ;  sound channels with diesel engines
  283.  
  284. no_k
  285.         move.l fx_no,fx_number
  286.     move.l fx_no,fx_last
  287.     addq.l #1,fx_no
  288.     move.l    max_fx,d0
  289.         cmp.l fx_no,d0
  290.     bne noreset
  291.     move.l #1,fx_no    
  292. noreset: 
  293.  
  294. ;;**********************************  HOW TO PLAY AN FX ON THE
  295.                     ; NEXT 50th
  296.                     ; place fx number required in fx_no
  297.                     ; and do this call
  298.                     ; fx must be enabled...(see below)
  299.  
  300.     ;jsr set_up_fx
  301.     bra no_test    
  302. ;***********************************
  303.  
  304.                 ; variables used by the test section
  305. fxtc:          dc.w 10        ; ignore them !!!!!
  306. fx_no:         dc.l  1
  307. fx_last        dc.l  0
  308.  
  309.  
  310. ;        END OF CONTROL (DELETABLE) SECTION
  311.  
  312. ;**********************************************************
  313.  
  314. ; --------------------------------------------------------------
  315.  
  316. ;    MAIN VARIABLES TO BE ACCESSED BY PROGRAMMER DURING RUNTIME
  317.  
  318.  
  319. fx_number:     dc.l 0 ;     number of fx required here...
  320. fx_kill        dc.l 0 ;     number of fx to kill/only needed for looped fx
  321.  
  322. song_buffer     dc.l 2;     number of piece of music required here ie.1 to 2
  323.  
  324. music_disable:  dc.w 0 ;     1 = disable music
  325. fx_disable:     dc.w 0 ;     1 = disable fx  (currently disabled)
  326.  
  327. ;    +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  328.  
  329. ;  THESE VARIABLES ARE USED INTERNALLY BY THE DRIVER
  330. fxr1         dc.l 0  
  331. fxr2         dc.l 0  
  332. fxr3         dc.l 0  
  333. fxr4         dc.l 0  
  334. fxc1        dc.l 0
  335. fxc2          dc.l 0
  336. fxc3        dc.l 0
  337. fxc4          dc.l 0
  338. fx1_flag    dc.w 0
  339. fx2_flag    dc.w 0
  340. fx3_flag    dc.w 0
  341. fx4_flag    dc.w 0
  342. fxtimer        dc.w 0
  343. gen        dc.w 0
  344. int_disable    dc.w 0
  345. altpf         dc.w 0
  346. kill_flag    dc.w 0
  347. ;  *******************************************************
  348.  
  349. ;  CALL THIS SUBROUTINE TO SET UP THE REQIURED FX
  350. ;  on entry it requires the fx number to be in "fx_number"(see above)
  351.  
  352.  
  353. set_up_fx
  354.     movem.l d5/a2,-(a7)    ;save used registers
  355.  
  356.     tst.l fxc4
  357.     bne check3
  358. use4:    
  359.     move.w #%0000000000001000,d5
  360.     lea chann4reg,a2
  361.     jsr end_fx4p
  362.     move.l fx_number,fxr4
  363.     move.l fx_number,fxc4
  364.     move.l #0,fx_number
  365.     bra no_fx
  366. check3:    tst.l fxc3
  367.     bne check2
  368. use3:
  369.     move.w #%0000000000000100,d5
  370.     lea chann3reg,a2
  371.     jsr end_fx3p
  372.     move.l fx_number,fxr3
  373.     move.l fx_number,fxc3
  374.     move.l #0,fx_number
  375.     bra no_fx
  376. check2:    tst.l fxc2
  377.     bne check1
  378. use2:
  379.     move.w #%0000000000000010,d5
  380.     lea chann2reg,a2
  381.     jsr end_fx2p
  382.     move.l fx_number,fxr2
  383.     move.l fx_number,fxc2
  384.     move.l #0,fx_number
  385.     bra no_fx
  386. check1:    tst.l fxc1
  387.     bne use3
  388. use1:
  389.     move.w #%0000000000000001,d5
  390.     lea chann1reg,a2
  391.     jsr end_fx1p
  392.     move.l fx_number,fxr1
  393.     move.l fx_number,fxc1
  394.     move.l #0,fx_number
  395. no_fx
  396.     movem.l (a7)+,d5/a2    ;restore registers
  397.     rts
  398.  
  399. ;*************************************************
  400. ;          CALL HERE TO KILL ANY FX...
  401. ;       after putting the number of the fx you want to kill
  402. ;            into fx_kill
  403.  
  404. kill_loopfx
  405.  
  406.     movem.l d5/a2,-(a7)    ;save used registers
  407.     move.l fx_kill,d5
  408.     cmp.l fxc1,d5
  409.     bne k2
  410.     move.w #%0000000000000001,d5
  411.     lea chann1reg,a2
  412.     jsr end_fx1p
  413.     bra error
  414. k2    cmp.l fxc2,d5
  415.     bne k3
  416.     move.w #%0000000000000010,d5
  417.     lea chann2reg,a2
  418.     jsr end_fx2p
  419.     bra error
  420. k3    cmp.l fxc3,d5
  421.     bne k4
  422.     move.w #%0000000000000100,d5
  423.     lea chann3reg,a2
  424.     jsr end_fx3p
  425.     bra error
  426. k4    cmp.l fxc4,d5
  427.     bne error
  428.     move.w #%0000000000001000,d5
  429.     lea chann2reg,a2
  430.     jsr end_fx4p
  431. error
  432.     clr.l fx_kill
  433.     movem.l (a7)+,d5/a2    ;restore registers
  434.     rts
  435. ;*************************************************
  436.  
  437.     ; CALL HERE TO KILL ANY SOUND for whatever reason
  438.  
  439. kill_chip:
  440.     move.w #%0000000000001111,dmacon
  441.     move.l rest_data,chann1reg
  442.     move.l rest_data,chann2reg
  443.     move.l rest_data,chann3reg
  444.     move.l rest_data,chann4reg
  445.     move.w #16,chann1reg+4    
  446.     move.w #16,chann2reg+4    
  447.     move.w #16,chann3reg+4    
  448.     move.w #16,chann4reg+4    
  449.     move.w #0,chann1reg+8
  450.     move.w #0,chann2reg+8
  451.     move.w #0,chann3reg+8
  452.     move.w #0,chann4reg+8
  453.     move.w #1,chann1reg+6
  454.     move.w #1,chann2reg+6
  455.     move.w #1,chann3reg+6
  456.     move.w #1,chann4reg+6
  457.     move.l #0,fxr1
  458.     move.l #0,fxr2
  459.     move.l #0,fxr3
  460.     move.l #0,fxr4
  461.     move.w #0,fx1_flag
  462.     move.w #0,fx2_flag
  463.     move.w #0,fx3_flag
  464.     move.w #0,fx4_flag
  465.     move.l #0,fxc1
  466.     move.l #0,fxc2
  467.     move.l #0,fxc3
  468.     move.l #0,fxc4
  469.     rts
  470. ;****************************************
  471.  
  472. ;  CALL HERE TO SELECT WHICH PIECE OF MUSIC TO PLAY
  473. ;  AFTER PLACING NUMBER (1 to ?) IN "SONG_BUFFER"..see above
  474. ;  a call to this routine will initiliase the driver/kill any sound etc.      
  475. ;  make sure this routine has been called before running the interrupt
  476. ;  driven section....see below
  477.  
  478. select_new_song:
  479.  
  480.     move.w #1,int_disable
  481.     movem.l d0/d1/a0/a1,-(a7)    ;save used registers
  482.     move.w music_disable,gen
  483.     move.w #1,music_disable
  484.         jsr kill_chip           
  485.     clr.l d0
  486.         move.w #204,d0
  487.         lea gvars,a0
  488. clloop: clr.w (a0)+        
  489.         dbra  d0,clloop
  490.     tst.l song_buffer
  491.     beq no_song
  492.         move.l song_buffer,d1
  493.     add.l d1,d1
  494.      add.l d1,d1
  495.      add.l d1,d1
  496.      add.l d1,d1
  497.         LEA  SONG_TABLE-16,A1
  498.         add.l d1,a1      
  499.         MOVE.L (A1)+,WSONG1    
  500.         move.l (a1)+,wsong2    
  501.         move.l (a1)+,wsong3
  502.     move.l (a1),wsong4
  503.         MOVE.L #pstart,PATTR1
  504.         MOVE.L #pstart,PATTR2
  505.         MOVE.L #pstart,PATTR3
  506.     move.l #pstart,pattr4
  507.         move.l #sstart,songr1
  508.         MOVE.L #sstart,SONGR2
  509.         MOVE.L #sstart,SONGR3
  510.     move.l #sstart,songr4
  511. no_song
  512.     move.w #1,ch1vars
  513.     move.w #2,ch2vars
  514.     move.w #3,ch3vars
  515.     move.w #4,ch4vars
  516.     move.w #6,ch4fxvars
  517.     move.w #5,ch3fxvars
  518.     move.w #7,ch2fxvars
  519.     move.w #8,ch1fxvars
  520.     move.w gen,music_disable
  521.     clr.w int_disable
  522.     movem.l (a7)+,d0/d1/a0/a1    ;restore registers
  523.         rts
  524.  
  525. ;**************************************************
  526.  
  527. ;  CALL HERE ON A 50hz INTERRUPT DURING RUNTIME
  528. ;  TO PLAY FX AND TUNES
  529.  
  530. driver:  
  531.     tst.w int_disable
  532.     beq process_data
  533.     rts        
  534. process_data
  535.     movem.l d0-d6/a0-a6,-(a7)    ;save used registers
  536.  
  537.  
  538. ch1:
  539.     tst.w fx_disable
  540.     bne test_music1
  541.     tst.l fxr1
  542.     bne   ch1j1
  543.     tst.l fxc1
  544.     beq test_music1
  545.     bra ch1j3
  546. ch1j2    jsr run_dummy1
  547.     jsr run_fx1
  548.     bra ch2
  549. ch1j1
  550.     jsr set_up1
  551. ch1j3    tst.w music_disable    
  552.     beq ch1j2
  553.     jsr run_fx1
  554.     bra ch2
  555. test_music1
  556.     tst.w music_disable
  557.     bne ch2
  558.     jsr run_music1
  559.     bra ch2
  560.     ;***********************
  561.  
  562.     ; channel 1 subroutines
  563.  
  564. run_dummy1    
  565.      lea ch1vars,a0
  566.      lea dummy_reg,a2 
  567.      move.w #0,d5 
  568.      jsr sect1    
  569.     rts
  570.  
  571. set_up1    
  572.          move.l fxr1,d0
  573.          add d0,d0
  574.          add d0,d0
  575.          lea  fxjump_table-4,A1
  576.      add.l d0,a1
  577.          move.l (a1),currfx1
  578.       clr.l fxr1
  579.      clr.w fxintc1
  580.       rts
  581.   
  582.      
  583. run_fx1
  584.     lea ch1fxvars,a0
  585.        lea chann1reg,a2
  586.       move.w #%0000000000000001,d5 
  587.      move.w #%1000001000000001,d1 
  588.      jsr sect1
  589.     rts
  590.  
  591. run_music1
  592.     lea ch1vars,a0
  593.        lea chann1reg,a2
  594.       move.w #%0000000000000001,d5 
  595.       move.w #%1000001000000001,d1 
  596.       jsr sect1     
  597.     rts
  598.  
  599.     ;  **************************
  600. ch2
  601.     tst.w fx_disable
  602.     bne test_music2
  603.     tst.l fxr2
  604.     bne   ch2j1
  605.     tst.l fxc2
  606.     beq test_music2
  607.     bra ch2j3
  608. ch2j2    jsr run_dummy2
  609.     jsr run_fx2
  610.     bra ch3
  611. ch2j1
  612.     jsr set_up2
  613. ch2j3    tst.w music_disable    
  614.     beq ch2j2
  615.     jsr run_fx2
  616.     bra ch3
  617.  
  618. test_music2
  619.     tst.w music_disable
  620.     bne ch3
  621.     jsr run_music2
  622.     bra ch3
  623.     ;***********************
  624.     ; channel 2 subroutines
  625. run_dummy2    
  626.      lea ch2vars,a0
  627.      lea dummy_reg,a2 
  628.      move.w #0,d5 
  629.      jsr sect1    
  630.     rts
  631.  
  632. set_up2    
  633.          move.l fxr2,d0
  634.          add d0,d0
  635.          add d0,d0
  636.          lea  fxjump_table-4,A1
  637.      add.l d0,a1
  638.          move.l (a1),currfx2
  639.       clr.l fxr2
  640.      clr.w fxintc2
  641.       rts
  642.   
  643.      
  644. run_fx2
  645.     lea ch2fxvars,a0
  646.        lea chann2reg,a2
  647.       move.w #%0000000000000010,d5 
  648.      move.w #%1000001000000010,d1 
  649.      jsr sect1
  650.     rts
  651.  
  652. run_music2
  653.     lea ch2vars,a0
  654.        lea chann2reg,a2
  655.       move.w #%0000000000000010,d5 
  656.       move.w #%1000001000000010,d1 
  657.       jsr sect1     
  658.     rts
  659.  
  660.     ;  **************************
  661.  
  662. ch3:
  663.     tst.w fx_disable
  664.     bne test_music3
  665.     tst.l fxr3
  666.     bne   ch3j1
  667.     tst.l fxc3
  668.     beq test_music3
  669.     bra ch3j3
  670. ch3j2    jsr run_dummy3
  671.     jsr run_fx3
  672.     bra ch4
  673. ch3j1
  674.     jsr set_up3
  675. ch3j3    tst.w music_disable    
  676.     beq ch3j2
  677.     jsr run_fx3
  678.     bra ch4
  679.  
  680. test_music3
  681.     tst.w music_disable
  682.     bne ch4
  683.     jsr run_music3
  684.     bra ch4
  685.  
  686.     ;***********************
  687.  
  688.     ; channel 3 subroutines
  689.  
  690. run_dummy3    
  691.      lea ch3vars,a0
  692.      lea dummy_reg,a2 
  693.      move.w #0,d5 
  694.      jsr sect1    
  695.     rts
  696.  
  697. set_up3    
  698.          move.l fxr3,d0
  699.          add d0,d0
  700.          add d0,d0
  701.          lea  fxjump_table-4,A1
  702.      add.l d0,a1
  703.          move.l (a1),currfx3
  704.       clr.l fxr3
  705.      clr.w fxintc3
  706.       rts
  707.   
  708.      
  709. run_fx3
  710.     lea ch3fxvars,a0
  711.        lea chann3reg,a2
  712.       move.w #%0000000000000100,d5 
  713.      move.w #%1000001000000100,d1 
  714.      jsr sect1
  715.     rts
  716.  
  717. run_music3
  718.     lea ch3vars,a0
  719.        lea chann3reg,a2
  720.       move.w #%0000000000000100,d5 
  721.       move.w #%1000001000000100,d1 
  722.       jsr sect1     
  723.     rts
  724.  
  725.     ;  **************************
  726.  
  727. ch4:
  728.     tst.w fx_disable
  729.     bne test_music4
  730.     tst.l fxr4
  731.     bne   ch4j1
  732.     tst.l fxc4
  733.     beq test_music4
  734.     bra ch4j3
  735. ch4j2    jsr run_dummy4
  736.     jsr run_fx4
  737.     bra no4
  738. ch4j1
  739.     jsr set_up4
  740. ch4j3    tst.w music_disable    
  741.     beq ch4j2
  742.     jsr run_fx4
  743.     bra no4
  744.  
  745. test_music4
  746.     tst.w music_disable
  747.     bne no4
  748.     jsr run_music4
  749. no4    
  750.     movem.l (a7)+,d0-d6/a0-a6    ;restore registers
  751.     rts
  752.  
  753.     ;***********************
  754.  
  755.     ; channel 4 subroutines
  756.  
  757. run_dummy4    
  758.      lea ch4vars,a0
  759.      lea dummy_reg,a2 
  760.      move.w #0,d5 
  761.      jsr sect1    
  762.     rts
  763.  
  764. set_up4    
  765.          move.l fxr4,d0
  766.          add d0,d0
  767.          add d0,d0
  768.          lea  fxjump_table-4,A1
  769.      add.l d0,a1
  770.          move.l (a1),currfx4
  771.       clr.l fxr4
  772.      clr.w fxintc4
  773.       rts
  774.   
  775.      
  776. run_fx4
  777.     lea ch4fxvars,a0
  778.        lea chann4reg,a2
  779.       move.w #%0000000000001000,d5 
  780.      move.w #%1000001000001000,d1 
  781.      jsr sect1
  782.     rts
  783.  
  784. run_music4
  785.     lea ch4vars,a0
  786.        lea chann4reg,a2
  787.       move.w #%0000000000001000,d5 
  788.       move.w #%1000001000001000,d1 
  789.       jsr sect1     
  790.     rts
  791.     ;  **************************
  792.  
  793. sect1: tst.w 0(a0)
  794.     bne s1j1
  795.     rts
  796.  
  797. s1j1:    tst.w 2(a0)
  798.         beq sect3       
  799.         cmpi.w #1,2(a0)
  800.         beq sect4
  801.  
  802.         cmpi.w #3,4(a0)    
  803.         beq part2       
  804.     
  805. mode_switch:  subq.w #1,2(a0)     
  806.  
  807. check_effects: clr.w altpf      
  808.         move.w 6(a0),d2    
  809.         tst.w 8(a0)      
  810.         beq check_mod
  811.         tst.w 14(a0)      
  812.         beq cont_bend
  813.         subq.w #1,14(a0)
  814.         bra check_mod
  815. cont_bend:   addq.w #1,altpf    
  816.         move.w 10(a0),d3    
  817.         move.w 12(a0),d4    
  818.         cmpi.w #1,8(a0)
  819.         beq pbup
  820.     
  821.         sub.w d3,d2
  822.         cmp.w d2,d4
  823.         bcs check_mod
  824.         bra fbend
  825.  
  826. pbup:     add.w d3,d2
  827.         cmp.w d2,d4
  828.         bcc check_mod
  829. fbend:     move.w d4,d2
  830.         clr.w 8(a0)      
  831. check_mod:   tst.w 16(a0)
  832.         beq send_alt_pitch
  833.    
  834.  
  835.     tst.w  58(a0)
  836.     beq st_ok
  837.     subq.w #1,58(a0)
  838.     bra send_alt_pitch
  839. st_ok:
  840.         tst.w 50(a0)
  841.         beq cont_mod
  842.         subq #1,50(a0)
  843.         bra send_alt_pitch
  844. cont_mod:    move.w 52(a0),50(a0)  
  845.         addq #1,altpf
  846.         cmpi #3,16(a0)
  847.         bcc addmod
  848.     
  849.         move.w 56(a0),d3 
  850.         sub.w d3,d2
  851.         addq.w #1,16(a0)  
  852.         bra send_alt_pitch
  853. addmod:
  854.  
  855.         move.w 54(a0),d3 
  856.         add.w d3,d2
  857.         addq.w #1,16(a0)
  858.         cmpi.w #5,16(a0)
  859.        bne send_alt_pitch
  860.         move.w #1,16(a0)  
  861.  
  862. send_alt_pitch: tst.w altpf
  863.         beq send_env
  864.         move.w d2,6(a0)  
  865.         move.w d2,6(a2)  
  866.  
  867. send_env: 
  868.  
  869.     ;cmpi #6,(a0)
  870.     ;beq norm_env    
  871.     ;cmpi #5,(a0)
  872.     ;bne do_env_check
  873.  
  874.     ;tst.w fxc4
  875.     ;beq norm_env
  876.     ;bra low_vol
  877.  
  878. do_env_check:
  879.     move.w fx_disable,d0
  880.     ;or.w fxc4,d0
  881.     cmpi.w  #1,d0
  882.     beq norm_env
  883. low_vol:    
  884.     move.l 18(a0),a1    
  885.         cmpi.w #255,(a1)
  886.         beq evj1
  887.     move.w (a1)+,d0
  888. evj2:    sub.w  62(a0),d0
  889.     bcc no_over
  890.     move.w 0,d0
  891. no_over:
  892.         move.w d0,8(a2) 
  893.     bra fint        
  894.  
  895. evj1:   subq.l #2,a1
  896.     move.w (a1)+,d0
  897.     bra evj2
  898.  
  899. norm_env:
  900.     move.l 18(a0),a1    
  901.         cmpi.w #255,(a1)
  902.         beq env_finished
  903.     ;cmpi.w #1,66(a0)    
  904.     ;bne    no_acc 
  905.  
  906.     clr.l d0
  907.     move.w (a1)+,d0
  908.     ;sub.w 64(a0),d0    
  909.     move.w d0,8(a2)    
  910.     move.l a1,18(a0)
  911.     rts        
  912.  
  913.  
  914. no_acc:
  915. resu:  
  916. no_off    move.w d0,8(a2)
  917.      move.w (a1)+,8(a2)
  918.    
  919. fint:   move.l a1,18(a0)    
  920.     rts
  921.  
  922. env_finished:
  923.      subq.l #2,a1    
  924.      bra resu
  925.  
  926.  
  927. one_shot_note: move.w #3,4(a0)     
  928.         move.l 38(a0),(a2)
  929.         move.w 42(a0),4(a2)
  930.         move.w d1,dmacon     
  931.         bra send_env
  932.  
  933.  
  934. part2:                         
  935.         move.l 44(a0),(a2)
  936.         move.w 48(a0),4(a2)
  937.         subq.w #1,2(a0)      
  938.         move.w #1,4(a0)
  939.         bra check_effects
  940.  
  941. sect3:
  942.     move.w 0,66(a0)    
  943.  
  944.     move.l 22(a0),a1  
  945. control_ret: move.w (a1)+,d0  
  946.     cmpi.w #100,d0   
  947.     bls sect5   
  948.   
  949. acc_note:
  950.     move.w d0,6(a0)  
  951.     move.w d0,6(a2)  
  952.     move.w (a1)+,2(a0) 
  953.     subq.w #1,2(a0)  
  954.     move.l a1,22(a0)  
  955.     move.l 34(a0),18(a0) 
  956.     move.w 60(a0),58(a0) 
  957.  
  958.  
  959.     tst.w 16(a0)
  960.     beq no_mod_res
  961.     move.w #1,16(a0)
  962. no_mod_res:
  963.     cmpi.w #0,4(a0)
  964.     beq do_loop
  965.     bra one_shot_note    
  966.  
  967.  
  968. do_loop:    move.w d1,dmacon   
  969.         bra send_env
  970.  
  971. do_rest:
  972.     move.w (a1)+,2(a0) 
  973.     subq.w #1,2(a0)  
  974.     move.l a1,22(a0)  
  975.     move.l  #rest_env,18(a0)
  976.  
  977.         move.w #0,8(a2)
  978.         bra send_env
  979.    
  980. sect4:
  981.         cmpi.w #0,4(a0)
  982.         beq noof
  983.         move.w d5,dmacon   
  984. noof:     subq.w #1,2(a0)
  985.         bra check_effects
  986.    
  987. sect5:     move.l #jump_table,a3
  988.         move.l (a3,d0),a4
  989.         jmp (a4)
  990.  
  991. jump_table: 
  992.     dc.l  in_line_data
  993.         dc.l  nsound
  994.         dc.l  patt_end
  995.         dc.l  get_env
  996.         dc.l  check_pbend
  997.         dc.l  do_mod
  998.         dc.l  bend_off
  999.         dc.l  mod_off
  1000.         dc.l  do_rest
  1001.         dc.l  end_fx
  1002.         dc.l  end_fx
  1003.     dc.l  s_f_on
  1004.     dc.l  s_f_off
  1005.     dc.l  set_acc
  1006.     dc.l  rept
  1007.  
  1008. in_line_data:
  1009.  
  1010.         nop
  1011.         rts
  1012.  
  1013. rept:
  1014.     move.l (a1),a1
  1015.     bra control_ret
  1016.  
  1017. s_f_on: 
  1018.     bclr #1,filter
  1019.     bra control_ret
  1020. s_f_off:
  1021.     bset #1,filter
  1022.     bra control_ret
  1023.  
  1024. nsound:    move.l (a1)+,a3     
  1025.         cmpi.w #0,(a3)
  1026.         bne one_shot_sound
  1027.         move.w (a3)+,4(a0)    
  1028.         move.l (a3)+,(a2)     
  1029.         move.w (a3),4(a2)    
  1030.         jmp control_ret
  1031.  
  1032. one_shot_sound:
  1033.         move.w (a3)+,4(a0)
  1034.         move.l (a3)+,38(a0)   
  1035.         move.l (a3)+,42(a0)
  1036.         move.l (a3),46(a0)
  1037.         jmp control_ret
  1038.  
  1039. patt_end:
  1040.  
  1041.         move.l 26(a0),a1    
  1042.         cmpi.l #0,(a1)     
  1043.         beq song_control
  1044.         addq.l #4,26(a0)    
  1045.         move.l (a1),a1     
  1046.         jmp control_ret
  1047. get_env: 
  1048.        move.l (a1)+,a4 
  1049.     move.l (a4)+,62(a0)    
  1050.     
  1051.     move.l  a4,34(a0)    
  1052.     
  1053.         bra control_ret
  1054.  
  1055. check_pbend:
  1056.      move.l (a1)+,8(a0)
  1057.         move.l (a1)+,12(a0)
  1058.         bra control_ret
  1059.  
  1060. do_mod:    move.w #1,16(a0)  
  1061.         move.l (a1)+,50(a0)
  1062.         move.l (a1)+,54(a0)
  1063.         move.l (a1)+,58(a0)
  1064.         bra control_ret
  1065.  
  1066. bend_off:   clr.w 8(a0)
  1067.         bra control_ret
  1068.  
  1069. mod_off:    clr.w 16(a0)
  1070.         bra control_ret
  1071.  
  1072.  
  1073. end_fx:    
  1074.     cmpi.w #6,(a0)
  1075.     beq end_fx4p
  1076.     cmpi.w #5,(a0)
  1077.     beq end_fx3p
  1078.     cmpi.w #7,(a0)
  1079.     beq end_fx2p
  1080.  
  1081. end_fx1p:
  1082.         move.w d5,dmacon   
  1083.     move.w  #1,chann1reg+6
  1084.     move.w #0,8(a2)
  1085.     move.l #0,fxc1
  1086.     rts
  1087.  
  1088. end_fx2p:
  1089.     move.w d5,dmacon 
  1090.     move.w  #1,chann2reg+6
  1091.         move.w #0,8(a2) 
  1092.     move.l #0,fxc2
  1093.         rts
  1094.  
  1095.  
  1096. end_fx3p:
  1097.         move.w d5,dmacon   
  1098.     move.w  #1,chann3reg+6
  1099.     move.w #0,8(a2)
  1100.     move.l #0,fxc3
  1101.     rts
  1102.  
  1103. end_fx4p:
  1104.     move.w d5,dmacon 
  1105.     move.w  #1,chann4reg+6
  1106.         move.w #0,8(a2) 
  1107.     move.l #0,fxc4
  1108.         rts
  1109.  
  1110. set_acc: move.w #1,66(a0) 
  1111.     bra control_ret
  1112.  
  1113. song_control:
  1114.         addq.l #4,a1
  1115.         move.l 30(a0),26(a0)
  1116.         move.l 26(a0),a1
  1117.         addq.l #4,26(a0)
  1118.         move.l (a1),a1
  1119.         jmp control_ret
  1120.  
  1121.  
  1122.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  1123.  
  1124.     ;;; DATA
  1125.  
  1126. song_table:
  1127.  
  1128.         dc.l s1,s2,s3,s4
  1129.         dc.l s5,s6,s7,s8
  1130.         dc.l ssilent,ssilent,ssilent,ssilent        
  1131.                         ;this tune is silence
  1132.                         ;can be used instead
  1133.                         ;of music disable etc.
  1134.  
  1135.  
  1136. ;************************************************************
  1137. gvars:
  1138. ch1vars     
  1139.     dc.w 0     
  1140.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1141. pattr1: dc.l 0    
  1142. songr1: dc.l 0    
  1143. wsong1: dc.l 0   
  1144.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1145.  
  1146. ch2vars     
  1147.     dc.w 0     
  1148.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1149. pattr2: dc.l 0    
  1150. songr2: dc.l 0    
  1151. wsong2: dc.l 0    
  1152.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1153.  
  1154. ch3vars 
  1155.     dc.w 0     
  1156.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1157. pattr3: dc.l 0    
  1158. songr3: dc.l 0    
  1159. wsong3: dc.l 0    
  1160.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1161.  
  1162. ch4vars 
  1163.     dc.w 0     
  1164.         dc.w 0,0,0,0,0,0,0,0,0,0     
  1165. pattr4: dc.l 0    
  1166. songr4: dc.l 0    
  1167. wsong4: dc.l 0    
  1168.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  1169.  
  1170.  
  1171. ch1fxvars 
  1172.     dc.w 0     
  1173. fxintc1:
  1174.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1175. currfx1:
  1176.     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    
  1177.  
  1178. ch2fxvars 
  1179.     dc.w 0     
  1180. fxintc2:
  1181.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1182. currfx2:
  1183.     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    
  1184.  
  1185.  
  1186. ch3fxvars
  1187.     dc.w 0     
  1188. fxintc3:
  1189.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1190. currfx3:
  1191.     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    
  1192.  
  1193. ch4fxvars 
  1194.     dc.w 0     
  1195. fxintc4:
  1196.     dc.w 0,0,0,0,0,0,0,0,0,0     
  1197. currfx4:
  1198.     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    
  1199. ;************************************************************
  1200.  
  1201. dummy_reg dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1202.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1203.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1204.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1205. ;************************************************************
  1206.  
  1207. ;       THESE ARE THE FX PATTERNS................
  1208.  
  1209. ; The interrupt counter in these patterns is dependent on the
  1210. ; playback speed.The figure is calculated as follows
  1211. ; (length/playback speed) *50
  1212. ; the figure then needs rounding up to give a clear finish
  1213. ; if you have the count longer than needed it will cut
  1214. ; out the music on the relevent channel for longer than
  1215. ; neccessary and make it sound jerky
  1216. ; The fx table is below the patterns
  1217.  
  1218.  
  1219. explosionfx1:
  1220.       dc.w new_env
  1221.       dc.l ex_env
  1222.       dc.w new_snd
  1223.       dc.l explosionp
  1224.     dc.w r8,33
  1225.       dc.w end_fxp
  1226.  
  1227. ex_env:            dc.w 0,64,64,64,255
  1228.  
  1229.  
  1230. explosionfx2:
  1231.       dc.w new_env
  1232.       dc.l ex_env
  1233.       dc.w new_snd
  1234.       dc.l explosionp
  1235.     dc.w r4,66
  1236.       dc.w end_fxp
  1237.  
  1238.  
  1239. deiselloopfx:
  1240.       dc.w new_env
  1241.       dc.l d_env
  1242.       dc.w new_snd
  1243.       dc.l deiselloopp
  1244.     dc.w r8,65000
  1245.       dc.w end_fxp
  1246.  
  1247. d_env:            dc.w 0,64,64,64,255
  1248.  
  1249.  
  1250. ;*************************
  1251.  
  1252. fxjump_table:  
  1253.  
  1254.     dc.l explosionfx1            ;fx number 1
  1255.     dc.l explosionfx2            ;fx number 2
  1256.     dc.l deiselloopfx            ;fx number 3
  1257.  
  1258.  
  1259. max_fx    dc.l    4
  1260. ;______________________________________________________________________
  1261.  
  1262.  
  1263. sstart: dc.l 0,end_song
  1264.  
  1265. pstart: dc.w end_patt
  1266.  
  1267.  
  1268. ;----------------------------------
  1269.  
  1270. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1271.  
  1272. cr  set   20
  1273. q set  cr/2
  1274. sq set q/2
  1275.  
  1276. tcr1 set 7
  1277. tcr2 set 6
  1278. tq1 set      7
  1279. tq2 set   6
  1280. tsq1 set  3
  1281. tsq2 set 4
  1282.  
  1283.  
  1284. ssilent:
  1285.     dc.l    pr
  1286.       dc.l     0,end_song
  1287.  
  1288.  
  1289.  
  1290. ;************************************************
  1291.  
  1292. s1:        ;main tunes
  1293.  
  1294.     dc.l    p1strg,p1o1,p1fh,p1o1,p2synbras1,p2,p2pizzo2,p2
  1295.     dc.l    p1violin1,p1o1,p3flute2,p3
  1296.  
  1297. ;s1
  1298.     dc.l    dll
  1299.  
  1300.                 ;cp1
  1301.     dc.l    p3flute2l,p2,p2synbras1l,p2
  1302.  
  1303. ;s1
  1304.     dc.l pbasstrip
  1305.  
  1306. ;s1
  1307.     dc.l runbass,endrunbass,runbass2
  1308.  
  1309. ;s1    
  1310.     dc.l synbral,loudtune
  1311.  
  1312.     ;dc.l pr4,pr4
  1313.  
  1314.     dc.l synbral,p1o1,ptunex
  1315.  
  1316. ;s1
  1317.     dc.l flutel,endtune,endtune2,endtune,endtune2
  1318.     dc.l endtune,endtune
  1319.  
  1320.     dc.l pr1beat,tr,tr,tr,tr,tr,tr,tr
  1321.  
  1322.     dc.l tympre1
  1323.  
  1324.     dc.l pr1beat,tr,pr1beat,pr1beat
  1325.     dc.l pr4
  1326.  
  1327.  
  1328.       dc.l     0,end_song
  1329. ;---------------
  1330.  
  1331. s2:        ;bass
  1332.  
  1333.     dc.l    p1bass,p1bass_end,lastbarb,pbasstrip
  1334.  
  1335. ;s2
  1336.     dc.l    pizpiano,p1o1,p1o1
  1337.                     ;cp2
  1338.  
  1339.     dc.l    pbassq
  1340.  
  1341. ;s2
  1342.     dc.l p3flute2,pflute_trip
  1343.  
  1344.  
  1345. ;s2    
  1346.     dc.l    p1strgll,p1o1,p1o1
  1347.     dc.l    p2synbras1l,p2
  1348.  
  1349. ;s2
  1350.     dc.l    loudbass,loudtune
  1351.     dc.l flutel,trills,pr1bar
  1352.  
  1353. ;s2    
  1354.     dc.l endtymp,endtymp2,pr1bar,pr1bar
  1355.     dc.l endtymp,endtymp2,pr1bar,pr1bar
  1356.     dc.l endtymp,endtymp2
  1357.  
  1358.     dc.l pr1beat,rs,rs,rs,rs,rs,rs,rs
  1359.  
  1360.     dc.l tympre2
  1361.  
  1362.     dc.l es1
  1363.     dc.l pr4
  1364.  
  1365.         DC.L    0,end_song
  1366.  
  1367. ;---------------
  1368.  
  1369. s3:
  1370.         ;accomp
  1371.     dc.l    p1rest,p1rest,p1strgl,p2,flutebit
  1372.     dc.l    pvacc
  1373. ;s3    
  1374.     dc.l    orchhitp1,snarerollgb,snarerollgb,snarerolld,snarerollgb
  1375.     dc.l    snarerollgb,snarerollgb,snarerolld,snarerollgb
  1376.  
  1377.     dc.l    snarerollgb,snarerollgb,snarerolld,snarerollgb
  1378.     dc.l    snarerollgb,snarerollgb,snarerolld,snarerollgb
  1379.  
  1380. ;s3
  1381.     dc.l    pizpiano,p1o1,ptunex
  1382.  
  1383. ;s3
  1384.     dc.l    p1strgl,pstrgnote
  1385.     dc.l    orch1note
  1386.  
  1387. ;s3
  1388.     dc.l    orchitsnd,orchloud
  1389.     dc.l    loudbass,p1bassd,pr1bar        ;,endbass,pr1bar
  1390.  
  1391. ;s3
  1392.     dc.l    endstab,endstab2,endbass_bit2
  1393.     dc.l    endstab,endstab2,endbass_bit2
  1394.  
  1395.     dc.l    endstab,endstab2
  1396.  
  1397.     dc.l tymp1b,rs1,rs1,rs1,rs1,rs1,rs1,rs1
  1398.  
  1399.     dc.l tympre1x
  1400.  
  1401.     dc.l es2
  1402.     dc.l pr4
  1403.  
  1404.       dc.l     0,end_song
  1405. ;---------------
  1406.         ; any thing else we can think of
  1407. s4:
  1408.     dc.l    p1rest,p1rest,p1rest,pizzo2q,p2delay
  1409.     dc.l    p1synbras1,p1o1,tymproll
  1410.  
  1411. ;s4    
  1412.     dc.l    bassstabs,p1rest,p3flute2l,orchitp2
  1413.  
  1414. ;s4
  1415.     dc.l snareroll
  1416.  
  1417. ;s4
  1418.     dc.l snarebeat
  1419.     dc.l p2pizzo2,runbass2
  1420.  
  1421. ;s4
  1422.     dc.l tympsnd_loud,tymploud
  1423.  
  1424.  
  1425.     dc.l snarerollb,snarerollb,snarerollb,snarerollb
  1426.     dc.l snarerollb,snarerollb,snarerolld,snarerolld
  1427.     dc.l snarerollb,snarerollb,snarerollb,snarerollb
  1428.     dc.l snarerollb,snarerollb
  1429.  
  1430.     dc.l pr1bar
  1431.  
  1432. ;s4
  1433.     dc.l endbass_bit
  1434.     dc.l endbass_bit
  1435.  
  1436.  
  1437.     dc.l pr1bar,pr1bar
  1438.     dc.l pr1bar,pr1bar
  1439.  
  1440.     dc.l tympre2x
  1441.  
  1442.     dc.l pr1beat,tr,pr1beat,pr1beat
  1443.     dc.l pr4
  1444.  
  1445.       dc.l     0,end_song
  1446.  
  1447.  
  1448. ;---------------
  1449.  
  1450. pr:
  1451.     dc.w rest,cr*4
  1452.     dc.w end_patt
  1453. pr1bar:
  1454.     dc.w rest,cr*4
  1455.     dc.w end_patt
  1456.  
  1457. pr1beat:
  1458.     dc.w rest,cr
  1459.     dc.w end_patt
  1460.  
  1461. p1rest:
  1462.     dc.w rest,cr*16
  1463.     dc.w end_patt
  1464. pr1:
  1465.     dc.w rest,cr*16
  1466.     dc.w end_patt
  1467.  
  1468. pr4:
  1469.     dc.w rest,cr*16
  1470.     dc.w end_patt
  1471.  
  1472.  
  1473. prp:
  1474.     dc.w rest,cr*1000
  1475.     dc.w end_patt
  1476. prza:
  1477.     dc.w rest,q*7
  1478.     dc.w end_patt
  1479.  
  1480.  
  1481. p1strg:
  1482.       dc.w new_env
  1483.       dc.l strings1e
  1484.       dc.w new_snd
  1485.       dc.l strings2p
  1486.       dc.w end_patt
  1487.  
  1488. p1strgl:
  1489.       dc.w new_env
  1490.       dc.l strings1el
  1491.       dc.w new_snd
  1492.       dc.l strings2p
  1493.       dc.w end_patt
  1494.  
  1495. p1strgll:
  1496.       dc.w new_env
  1497.       dc.l strings1ell
  1498.       dc.w new_snd
  1499.       dc.l strings2p
  1500.  
  1501.       dc.w end_patt
  1502.  
  1503.  
  1504. p1fh:
  1505.       dc.w new_env
  1506.       dc.l frehorne
  1507.       dc.w new_snd
  1508.       dc.l frehornp
  1509.       dc.w end_patt
  1510.  
  1511. p1synbra:
  1512.       dc.w new_env
  1513.       dc.l synbras1e
  1514.       dc.w new_snd
  1515.       dc.l synbras1p
  1516.       dc.w end_patt
  1517.  
  1518. synbral
  1519.       dc.w new_env
  1520.       dc.l synbras1el
  1521.       dc.w new_snd
  1522.       dc.l synbras1p
  1523.       dc.w end_patt
  1524.  
  1525. tympsnd_loud
  1526.       dc.w new_env
  1527.       dc.l tympel 
  1528.       dc.w new_snd
  1529.       dc.l newtympp
  1530.       dc.w end_patt
  1531.  
  1532. flutel
  1533.       dc.w new_env
  1534.       dc.l flute2el
  1535.       dc.w new_snd
  1536.       dc.l newflutep
  1537.       dc.w end_patt
  1538.  
  1539.  
  1540.  
  1541. p1violin1:
  1542.       dc.w new_env
  1543.       dc.l violin1e
  1544.       dc.w new_snd
  1545.       dc.l violin1p
  1546.       dc.w end_patt
  1547.  
  1548. pizpiano:
  1549.       dc.w new_env
  1550.       dc.l pizpianoe
  1551.       dc.w new_snd
  1552.       dc.l pizpianop
  1553.       dc.w end_patt 
  1554.  
  1555. endtune
  1556.     dc.w rest,cr-9,ab02,3,a02,3,bb02,3,b02,cr,rest,cr*2
  1557.     dc.w end_patt
  1558.  
  1559. tr
  1560.     dc.w ab02,3,a02,3,bb02,3,b02,20-9
  1561.     dc.w end_patt
  1562.  
  1563.  
  1564. endtune2
  1565.     dc.w rest,cr-9,ab02,3,a02,3,bb02,3,b02,cr,rest,cr*2
  1566.     dc.w b01,q,db02,q,d02,q,e02,q,gb02,q,d02,q,gb02,q,b02,q
  1567.     dc.w bb02,q,gb02,q,bb02,q,db03,q,b02,cr*2
  1568.     dc.w end_patt
  1569.  
  1570. tymp1b
  1571.       dc.w new_env
  1572.       dc.l tympel 
  1573.       dc.w new_snd
  1574.       dc.l newtympp
  1575.     dc.w b02,cr
  1576.     dc.w end_patt
  1577.  
  1578. tympre1
  1579.       dc.w new_env
  1580.       dc.l tympel 
  1581.       dc.w new_snd
  1582.       dc.l newtympp
  1583.     dc.w b02,cr,b02,cr,b02,cr,b02,cr
  1584.     dc.w b02,cr,b02,cr,b02,cr,b02,cr
  1585.     dc.w end_patt
  1586.  
  1587. tympre1x
  1588.       dc.w new_env
  1589.       dc.l tympel 
  1590.       dc.w new_snd
  1591.       dc.l newtympp
  1592.     dc.w rest,sq,b02,cr,b02,cr,b02,cr,b02,cr
  1593.     dc.w b02,cr,b02,cr,b02,cr,b02,cr-sq
  1594.     dc.w end_patt
  1595.  
  1596.  
  1597.  
  1598. tympre2
  1599.       dc.w new_env
  1600.       dc.l tympel 
  1601.       dc.w new_snd
  1602.       dc.l newtympp
  1603.     dc.w rest,q,b02,cr,b02,cr,b02,cr,b02,cr
  1604.     dc.w b02,cr,b02,cr,b02,cr,b02,cr-q
  1605.  
  1606.     dc.w end_patt
  1607.  
  1608. tympre2x
  1609.       dc.w new_env
  1610.       dc.l tympel 
  1611.       dc.w new_snd
  1612.       dc.l newtympp
  1613.     dc.w rest,q+sq,b02,cr,b02,cr,b02,cr,b02,cr
  1614.     dc.w b02,cr,b02,cr,b02,cr,b02,sq
  1615.  
  1616.     dc.w end_patt
  1617.  
  1618.  
  1619.  
  1620.  
  1621. endtymp
  1622.       dc.w new_env
  1623.       dc.l tympel 
  1624.       dc.w new_snd
  1625.       dc.l newtympp
  1626.     dc.w b02,cr
  1627.  
  1628.       dc.w new_env
  1629.       dc.l orchhite 
  1630.       dc.w new_snd
  1631.       dc.l orchhitpp
  1632.  
  1633.     dc.w g03,cr*3
  1634.     dc.w end_patt
  1635. endtymp2
  1636.       dc.w new_env
  1637.       dc.l tympel 
  1638.       dc.w new_snd
  1639.       dc.l newtympp
  1640.     dc.w b02,cr
  1641.  
  1642.       dc.w new_env
  1643.       dc.l orchhite 
  1644.       dc.w new_snd
  1645.       dc.l orchhitpp
  1646.  
  1647.     dc.w d03,cr*3
  1648.  
  1649.     dc.w end_patt
  1650.  
  1651. endstab
  1652.     dc.w rest,cr
  1653.  
  1654.       dc.w new_env
  1655.       dc.l orchhite 
  1656.       dc.w new_snd
  1657.       dc.l orchhitpp
  1658.     dc.w b02,cr*3
  1659.     dc.w end_patt
  1660.  
  1661. es1
  1662.       dc.w new_env
  1663.       dc.l orchhite 
  1664.       dc.w new_snd
  1665.       dc.l orchhitpp
  1666.     dc.w b01,cr,b02,cr*3
  1667.     dc.w end_patt
  1668.  
  1669. es2
  1670.       dc.w new_env
  1671.       dc.l orchhite 
  1672.       dc.w new_snd
  1673.       dc.l orchhitpp
  1674.     dc.w b02,cr,d03,cr*3
  1675.     dc.w end_patt
  1676.  
  1677.  
  1678.  
  1679.  
  1680.  
  1681. rs
  1682.       dc.w new_env
  1683.       dc.l orchhite 
  1684.       dc.w new_snd
  1685.       dc.l orchhitpp
  1686.     dc.w b02,cr
  1687.     dc.w end_patt
  1688.  
  1689. rs1
  1690.       dc.w new_env
  1691.       dc.l orchhite 
  1692.       dc.w new_snd
  1693.       dc.l orchhitpp
  1694.     dc.w d02,cr
  1695.     dc.w end_patt
  1696.  
  1697.  
  1698.  
  1699.  
  1700. endstab2
  1701.     dc.w rest,cr
  1702.     dc.w b02,cr*3
  1703.     dc.w end_patt
  1704.  
  1705. endbass_bit
  1706.  
  1707.       dc.w new_env
  1708.       dc.l pizzo1el
  1709.       dc.w new_snd
  1710.       dc.l pizzo1p
  1711.     dc.w rest,cr
  1712.     dc.w g03,cr,rest,cr*2
  1713.     dc.w rest,cr
  1714.     dc.w g03,cr,rest,cr*2
  1715.  
  1716.       dc.w new_env
  1717.       dc.l strings1eq
  1718.       dc.w new_snd
  1719.       dc.l strings2p
  1720.  
  1721.  
  1722.     dc.w g03,cr,d03,cr,gb02,cr,d03,cr
  1723.     dc.w gb02,cr,db03,cr,b02,cr,d03,cr
  1724.  
  1725.     dc.w end_patt
  1726.  
  1727. endbass_bit2
  1728.  
  1729.       dc.w new_env
  1730.       dc.l pizzo1el
  1731.       dc.w new_snd
  1732.       dc.l pizzo1p
  1733.     dc.w g03,cr,d03,cr,gb02,cr,d03,cr
  1734.     dc.w gb02,cr,db03,cr,b02,cr,d03,cr
  1735.     dc.w end_patt
  1736.  
  1737.  
  1738. loudtune
  1739.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  1740.     dc.w eb03,q,bb02,q,eb03,cr,db03,q,bb02,q,db03,cr
  1741.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  1742.     dc.w eb03,q,bb02,q,eb03,cr,db03,cr*2
  1743.       dc.w end_patt
  1744.  
  1745. orchloud
  1746.     dc.w gb02,cr*2,db03,cr,db03,cr
  1747.     dc.w eb03,cr,eb03,cr,db03,q,bb02,q,db03,cr
  1748.     dc.w gb02,cr*2,db03,cr,db03,cr
  1749.     dc.w eb03,q,bb02,q,eb03,cr,db03,cr*2
  1750.  
  1751.       dc.w end_patt
  1752.  
  1753. trills
  1754.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  1755.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  1756.  
  1757.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  1758.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  1759.  
  1760.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  1761.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  1762.  
  1763.     dc.w rest,cr,gb02,4,ab02,4,b02,4,d03,4,rest,4
  1764.     dc.w rest,cr,gb02,4,ab02,4,b02,4,b03,4,rest,4
  1765.  
  1766.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  1767.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  1768.  
  1769.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  1770.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  1771.  
  1772.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  1773.     dc.w rest,cr,gb02,4,ab02,4,bb02,4,b02,4,rest,4
  1774.  
  1775.       dc.w end_patt
  1776.  
  1777.  
  1778. tymploud
  1779.  
  1780.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  1781.     dc.w eb03,q,bb02,q,eb03,cr,db03,q,bb02,q,db03,cr
  1782.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  1783.     dc.w eb03,q,bb02,q,eb03,cr,db03,cr*2
  1784.  
  1785.  
  1786.  
  1787.     ;dc.w gb02,cr*2,gb02,cr,gb02,cr
  1788.     ;dc.w gb02,cr,gb02,cr,gb02,q,gb02,q,gb02,cr
  1789.     ;dc.w gb02,cr*2,gb02,cr,gb02,cr
  1790.     ;dc.w gb02,q,gb02,q,gb02,cr,gb02,cr*2
  1791.       dc.w end_patt
  1792.  
  1793.  
  1794. pstrgnote
  1795.  
  1796.     dc.w b02,cr*2,b02,cr*2,b02,cr*2,b02,cr*2,b02,cr*2,b02,cr*2
  1797.     dc.w d03,cr*2,d03,cr*2
  1798.     dc.w b02,cr*2,b02,cr*2,b02,cr*2,b02,cr*2,b02,cr*2,b02,cr*2
  1799.     dc.w d03,cr*2,d03,cr*2
  1800.       dc.w end_patt
  1801.  
  1802.  
  1803.  
  1804. p1o0    dc.w b00,q,db01,q,d01,q,e01,q,gb01,q,d01,q,gb01,cr
  1805.     dc.w f01,q,db01,q,f01,cr,e01,q,c01,q,e01,cr
  1806.     dc.w b00,q,db01,q,d01,q,e01,q,gb01,q,d01,q,gb01,q,b01,q
  1807.     dc.w a01,q,gb01,q,d01,q,gb01,q,a01,cr+q,rest,q
  1808.       dc.w end_patt
  1809.  
  1810.  
  1811. p1o1    dc.w b01,q,db02,q,d02,q,e02,q,gb02,q,d02,q,gb02,cr
  1812.     dc.w f02,q,db02,q,f02,cr,e02,q,c02,q,e02,cr
  1813.     dc.w b01,q,db02,q,d02,q,e02,q,gb02,q,d02,q,gb02,q,b02,q
  1814.     dc.w a02,q,gb02,q,d02,q,gb02,q,a02,cr+q,rest,q
  1815.       dc.w end_patt
  1816.  
  1817.  
  1818. ptunex    dc.w b01,q,db02,q,d02,q,e02,q,gb02,q,d02,q,gb02,cr
  1819.     dc.w f02,q,db02,q,f02,cr,e02,q,c02,q,e02,cr
  1820.     dc.w b01,q,db02,q,d02,q,e02,q,gb02,q,d02,q,gb02,q,b02,q
  1821.     dc.w gb02,q,d02,q,gb02,q,b02,q,b01,cr+q+q
  1822.       dc.w end_patt
  1823.  
  1824.  
  1825. flutebit
  1826.       dc.w new_env
  1827.       dc.l flute2eq
  1828.       dc.w new_snd
  1829.       dc.l newflutep
  1830.     dc.w rest,cr*2,db03,q,bb02,q,db03,cr
  1831.     dc.w rest,cr*2,db03,q,bb02,q,db03,cr
  1832.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  1833.     dc.w d03,q,bb02,q,d03,cr,db03,cr*2
  1834.  
  1835.  
  1836.       dc.w end_patt
  1837.  
  1838. p1synbras1:
  1839.       dc.w new_env
  1840.       dc.l synbras1eq
  1841.       dc.w new_snd
  1842.       dc.l synbras1p
  1843.       dc.w end_patt
  1844.  
  1845.  
  1846.  
  1847. p2synbras1:
  1848.       dc.w new_env
  1849.       dc.l synbras1e
  1850.       dc.w new_snd
  1851.       dc.l synbras1p
  1852.       dc.w end_patt
  1853.  
  1854.  
  1855. orchitsnd
  1856.       dc.w new_env
  1857.       dc.l orchhite 
  1858.       dc.w new_snd
  1859.       dc.l orchhitpp
  1860.       dc.w end_patt
  1861.  
  1862.  
  1863.  
  1864.  
  1865. p2synbras1l:
  1866.       dc.w new_env
  1867.       dc.l synbras1el
  1868.       dc.w new_snd
  1869.       dc.l synbras1p
  1870.       dc.w end_patt
  1871.  
  1872. loudbass
  1873.       dc.w new_env
  1874.       dc.l pizzo1el
  1875.       dc.w new_snd
  1876.       dc.l pizzo1p
  1877.       dc.w end_patt
  1878.  
  1879.  
  1880. p2pizzo2:
  1881.       dc.w new_env
  1882.       dc.l pizzo2e
  1883.       dc.w new_snd
  1884.       dc.l pizzo2p
  1885.       dc.w end_patt
  1886.  
  1887. p2pizzo2l:
  1888.       dc.w new_env
  1889.       dc.l pizzo2el
  1890.       dc.w end_patt
  1891.  
  1892.  
  1893. pizzo2q:
  1894.       dc.w new_env
  1895.       dc.l pizzo2eq
  1896.       dc.w new_snd
  1897.       dc.l pizzo2p
  1898.       dc.w end_patt
  1899.  
  1900.  
  1901. p2
  1902.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  1903.     dc.w d03,q,bb02,q,d03,cr,db03,q,bb02,q,db03,cr
  1904.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  1905.     dc.w d03,q,bb02,q,d03,cr,db03,cr*2
  1906.       dc.w end_patt
  1907.  
  1908. p2delay
  1909.     dc.w rest,sq,gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  1910.     dc.w d03,q,bb02,q,d03,cr,db03,q,bb02,q,db03,cr
  1911.     dc.w gb02,q,ab02,q,bb02,q,b02,q,db03,q,bb02,q,db03,cr
  1912.     dc.w d03,q,bb02,q,d03,cr,db03,cr*2-sq
  1913.       dc.w end_patt
  1914.  
  1915. pflute_trip
  1916.  
  1917.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,d03,tcr1,f02,tcr2,gb02,tcr1
  1918.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,d03,tcr1,f02,tcr2,gb02,tcr1
  1919.  
  1920.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,db03,tcr1,f02,tcr2,gb02,tcr1
  1921.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,c03,tcr1,f02,tcr2,gb02,tcr1
  1922.  
  1923.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,d03,tcr1,f02,tcr2,gb02,tcr1
  1924.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,d03,tcr1,f02,tcr2,gb02,tcr1
  1925.  
  1926.     dc.w d02,tcr1,ab02,tcr2,a02,tcr1,gb03,tcr1,ab02,tcr2,a02,tcr1
  1927.     dc.w d02,tcr1,ab02,tcr2,a02,tcr1,gb03,tcr1,ab02,tcr2,a02,tcr1
  1928.  
  1929.  
  1930.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,d03,tcr1,f02,tcr2,gb02,tcr1
  1931.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,d03,tcr1,f02,tcr2,gb02,tcr1
  1932.  
  1933.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,db03,tcr1,f02,tcr2,gb02,tcr1
  1934.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,c03,tcr1,f02,tcr2,gb02,tcr1
  1935.  
  1936.     dc.w b01,tcr1,f02,tcr2,gb02,tcr1,b02,cr,a02,cr,g02,cr
  1937.     
  1938.     dc.w gb02,cr,e02,cr,d02,cr,db02,cr
  1939.       dc.w end_patt
  1940.  
  1941.  
  1942. p3flute2:
  1943.       dc.w new_env
  1944.       dc.l flute2e
  1945.       dc.w new_snd
  1946.       dc.l newflutep
  1947.       dc.w end_patt
  1948.  
  1949. p3flute2l:
  1950.       dc.w new_env
  1951.       dc.l flute2el
  1952.       dc.w new_snd
  1953.       dc.l newflutep
  1954.       dc.w end_patt
  1955.  
  1956. 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
  1957.     dc.w f02,q,db02,q,f02,cr,e02,sq-1,db02,sq,c02,sq,rest,sq,e02,sq,rest,sq*3+1
  1958.     dc.w b01,q,db02,q,d02,q,e02,q,gb02,q,d02,q,gb02,q,b02,q
  1959.     dc.w gb02,q,d02,q,gb02,q,b02,q,b01,cr,rest,cr
  1960.       dc.w end_patt
  1961.  
  1962. pvacc
  1963.  
  1964.       dc.w new_env
  1965.       dc.l violin1eq
  1966.       dc.w new_snd
  1967.       dc.l violin1p
  1968.     dc.w gb02,q,b01,q,gb02,q,b01,q,gb02,cr,gb02,q,b01,q
  1969.     dc.w gb02,q,b01,q,gb02,q,b01,q,gb02,cr,gb02,q,b01,q
  1970.     dc.w gb02,q,b01,q,gb02,q,b01,q,gb02,cr,gb02,q,b01,q
  1971.     dc.w gb02,q,b01,q,d02,q,b01,q,d02,q,b01,q,d02,q,b01,q
  1972.  
  1973.     dc.w gb02,q,b01,q,gb02,q,b01,q,gb02,cr,gb02,q,b01,q
  1974.     dc.w gb02,q,b01,q,gb02,q,b01,q,gb02,cr,gb02,q,b01,q
  1975.  
  1976.       ;dc.w new_env
  1977.       ;dc.l strings1e
  1978.       ;dc.w new_snd
  1979.       ;dc.l strings2p
  1980.  
  1981.     dc.w rest,2,b01,cr,bb02,cr,a02,cr,g02,cr
  1982.     dc.w gb02,cr,e02,cr,d02,cr,db02,cr-2
  1983.       dc.w end_patt
  1984.  
  1985.  
  1986. dll
  1987.  
  1988.  
  1989.       dc.w new_env
  1990.       dc.l synbras1e
  1991.       dc.w new_snd
  1992.       dc.l synbras1p
  1993.  
  1994.     dc.w rest,cr,gb03,sq,f03,sq,gb03,q,rest,cr,gb03,sq,f03,sq,gb03,q
  1995.     dc.w rest,cr,gb03,sq,f03,sq,gb03,q,rest,cr,gb03,sq,f03,sq,gb03,q
  1996.     dc.w rest,cr,gb03,sq,f03,sq,gb03,q,rest,cr,gb03,sq,f03,sq,gb03,q
  1997.     dc.w d03,cr,a03,sq,ab03,sq,a03,q,d03,cr,a03,sq,ab03,sq,a03,q
  1998.  
  1999.     dc.w b02,cr,gb02,sq,f02,sq,gb02,q,b02,cr,gb02,sq,f02,sq,gb02,q
  2000.     dc.w b02,cr,gb02,sq,f02,sq,gb02,q,b02,cr,gb02,sq,f02,sq,gb02,q
  2001.     dc.w b02,cr,gb02,sq,f02,sq,gb02,q,b02,cr,gb02,sq,f02,sq,gb02,q
  2002.     dc.w d02,cr,a02,sq,ab02,sq,a02,q,d02,cr,a02,sq,ab02,sq,a02,sq,rest,sq
  2003.       dc.w end_patt
  2004.  
  2005.  
  2006.  
  2007. stabs
  2008.     dc.w b02,cr*4,b02,cr*4,b02,cr*4,d03,cr*4
  2009.     dc.w b02,cr*4,b02,cr*4,b02,cr*4,d03,cr*4
  2010.  
  2011.       dc.w end_patt
  2012.  
  2013.  
  2014. orchhitp1
  2015.       dc.w new_env
  2016.       dc.l orchhite 
  2017.       dc.w new_snd
  2018.       dc.l orchhitpp
  2019.     dc.w b02,cr*4,b02,cr*4,b02,cr*4,d03,cr*4
  2020.     dc.w b02,cr*4,b02,cr*4,b02,cr*4,d03,cr*4
  2021.       dc.w end_patt
  2022.  
  2023. orch1note
  2024.       dc.w new_env
  2025.       dc.l orchhite 
  2026.       dc.w new_snd
  2027.       dc.l orchhitpp
  2028.     dc.w gb02,cr,rest,cr,gb02,cr,rest,cr
  2029.     dc.w gb02,cr,rest,cr,gb02,cr,rest,cr
  2030.     dc.w gb02,cr,rest,cr,gb02,cr,rest,cr
  2031.     dc.w gb02,cr,rest,cr,gb02,cr,rest,cr
  2032.       dc.w end_patt
  2033.  
  2034. orchitp2
  2035.     dc.w gb02,q,bb02,q,db03,cr,rest,cr,gb02,q,bb02,q
  2036.     dc.w db03,cr,rest,cr,gb02,q,bb02,q,db03,cr
  2037.     dc.w gb02,q,bb02,q,db03,cr,rest,cr,gb02,q,bb02,q
  2038.     dc.w d03,q,gb02,q,d03,cr,db03,cr,rest,cr
  2039.  
  2040.       dc.w end_patt
  2041.  
  2042.  
  2043.  
  2044. bassstabs
  2045.       dc.w new_env
  2046.       dc.l pizzo1el
  2047.       dc.w new_snd
  2048.       dc.l pizzo1p
  2049.     dc.w b01,cr*4,b01,cr*4,b01,cr*4,d02,cr*4
  2050.  
  2051.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  2052.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  2053.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  2054.     dc.w d02,cr,a02,cr,d02,cr,a02,cr
  2055.  
  2056.       dc.w end_patt
  2057.  
  2058. tymproll
  2059.  
  2060.       dc.w new_env
  2061.       dc.l tympe 
  2062.       dc.w new_snd
  2063.       dc.l newtympp
  2064.     dc.w rest,cr*14,r16,q,r14,q,r16,q,r14,q
  2065.       dc.w end_patt
  2066.  
  2067.  
  2068.  
  2069. snarerollgb
  2070.  
  2071.       dc.w new_env
  2072.       dc.l orchhite 
  2073.       dc.w new_snd
  2074.       dc.l orchhitpp
  2075.     dc.w gb02,cr
  2076.       dc.w new_env
  2077.       dc.l snaree 
  2078.       dc.w new_snd
  2079.       dc.l snarep
  2080.     dc.w r16,sq,r16,sq,r16,q
  2081.       dc.w end_patt
  2082.  
  2083. snarerollb
  2084.  
  2085.       dc.w new_env
  2086.       dc.l orchhite 
  2087.       dc.w new_snd
  2088.       dc.l orchhitpp
  2089.     dc.w b02,cr
  2090.       dc.w new_env
  2091.       dc.l snaree 
  2092.       dc.w new_snd
  2093.       dc.l snarep
  2094.     dc.w r16,sq,r16,sq,r16,q
  2095.       dc.w end_patt
  2096.  
  2097. snarerolla
  2098.  
  2099.       dc.w new_env
  2100.       dc.l orchhite 
  2101.       dc.w new_snd
  2102.       dc.l orchhitpp
  2103.     dc.w ab03,cr
  2104.       dc.w new_env
  2105.       dc.l snaree 
  2106.       dc.w new_snd
  2107.       dc.l snarep
  2108.     dc.w r16,sq,r16,sq,r16,q
  2109.       dc.w end_patt
  2110.  
  2111.  
  2112.  
  2113. snarerolld
  2114.  
  2115.       dc.w new_env
  2116.       dc.l orchhite 
  2117.       dc.w new_snd
  2118.       dc.l orchhitpp
  2119.     dc.w d02,cr
  2120.       dc.w new_env
  2121.       dc.l snaree 
  2122.       dc.w new_snd
  2123.       dc.l snarep
  2124.     dc.w r16,sq,r16,sq,r16,q
  2125.       dc.w end_patt
  2126.  
  2127. snareroll
  2128.  
  2129.       dc.w new_env
  2130.       dc.l snareeq 
  2131.       dc.w new_snd
  2132.       dc.l snarep
  2133.     dc.w r4,cr+q,r16,sq,r16,sq,r16,q,r16,q,r16,cr
  2134.     dc.w rest,cr*4
  2135.     dc.w rest,cr+q,r16,sq,r16,sq,r16,q,r16,q,r16,cr
  2136.     dc.w rest,cr*4
  2137.     dc.w rest,cr+q,r16,sq,r16,sq,r16,q,r16,q,r16,cr
  2138.     dc.w rest,cr*4
  2139.     dc.w rest,q+sq,r16,sq,r16,q,r16,q,r16,q,r16,sq,r16,sq
  2140.     dc.w r16,q,r16,q
  2141.     dc.w r16,q,r16,q,r16,q,r16,q,r16,q,r16,q,r16,cr
  2142.       dc.w end_patt
  2143.  
  2144. snarebeat
  2145.  
  2146.       dc.w new_env
  2147.       dc.l snareeq 
  2148.       dc.w new_snd
  2149.       dc.l snarep
  2150.     dc.w r16,cr,rest,cr*16,rest,cr*15
  2151.       dc.w end_patt
  2152.  
  2153.  
  2154.  
  2155.  
  2156. p1bass:
  2157.       dc.w new_env
  2158.       dc.l basseq
  2159.       dc.w new_snd
  2160.       dc.l pizzo1p
  2161. p1bassd    dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  2162.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  2163.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  2164.     dc.w d02,cr,a02,cr,d02,cr,a02,cr
  2165.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  2166.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  2167.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  2168.       dc.w end_patt
  2169.  
  2170. p1bass_end
  2171.     dc.w d02,cr,a02,cr,d02,cr,a02,cr
  2172. endbass
  2173.     dc.w gb02,cr,db03,cr,gb02,cr,db03,cr
  2174.     dc.w d02,cr,bb02,cr,gb02,cr,db03,cr
  2175.     dc.w gb02,cr,db03,cr,gb02,cr,db03,cr
  2176.     dc.w d02,cr,bb02,cr,gb02,cr,db03,cr
  2177.     dc.w gb02,cr,db03,cr,gb02,cr,db03,cr
  2178.     dc.w d02,cr,bb02,cr,gb02,cr,db03,cr
  2179.     dc.w gb02,cr,db03,cr,gb02,cr,db03,cr
  2180.       dc.w end_patt
  2181. lastbarb
  2182.     dc.w d02,cr,bb02,cr,gb02,cr,db03,cr
  2183.       dc.w end_patt
  2184.  
  2185.  
  2186. pbasstrip
  2187.       dc.w new_env
  2188.       dc.l basse
  2189.       dc.w new_snd
  2190.       dc.l pizzo1p
  2191.  
  2192.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  2193.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  2194.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  2195.     dc.w d02,cr,a02,cr,d02,cr,a02,cr
  2196.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr            ;bar 21
  2197.     dc.w b01,cr,gb02,cr,b01,cr,gb02,cr
  2198.     dc.w b01,cr,bb02,cr,a02,cr,g02,cr
  2199.     dc.w gb02,cr,e02,cr,d02,cr,db02,cr
  2200.  
  2201.  
  2202.       dc.w end_patt
  2203.  
  2204. runbass
  2205.       dc.w new_env
  2206.       dc.l strings1el
  2207.       dc.w new_snd
  2208.       dc.l strings2p
  2209.  
  2210. bassrun
  2211.     dc.w b01,q,a01,q,g01,q,gb01,q
  2212.     dc.w b01,q,a01,q,g01,q,gb01,q
  2213.  
  2214.     dc.w b01,q,a01,q,g01,q,gb01,q
  2215.     dc.w b01,q,a01,q,g01,q,gb01,q
  2216.  
  2217.     dc.w b01,q,a01,q,g01,q,gb01,q
  2218.     dc.w b01,q,a01,q,g01,q,gb01,q
  2219.  
  2220.     dc.w d02,q,db02,q,b01,q,a01,q
  2221.     dc.w d02,q,db02,q,b01,q,a01,q
  2222.  
  2223.     dc.w b01,q,a01,q,g01,q,gb01,q
  2224.     dc.w b01,q,a01,q,g01,q,gb01,q
  2225.  
  2226.     dc.w b01,q,a01,q,g01,q,gb01,q
  2227.     dc.w b01,q,a01,q,g01,q,gb01,q
  2228.  
  2229.     dc.w b01,q,a01,q,g01,q,gb01,q
  2230.     dc.w b01,q,a01,q,g01,q,gb01,q
  2231.  
  2232.       dc.w end_patt
  2233. endrunbass
  2234.     dc.w d02,q,db02,q,b01,q,a01,q
  2235.     dc.w d02,q,db02,q,b01,q,a01,q
  2236.  
  2237.       dc.w end_patt
  2238.  
  2239. runbass2
  2240.  
  2241.     dc.w gb02,q,e02,q,d02,q,db02,q
  2242.     dc.w gb02,q,e02,q,d02,q,db02,q
  2243.  
  2244.     dc.w d02,q,db02,q,d02,q,e02,q
  2245.     dc.w gb02,q,e02,q,d02,q,db02,q
  2246.  
  2247.     dc.w gb02,q,e02,q,d02,q,db02,q
  2248.     dc.w gb02,q,e02,q,d02,q,db02,q
  2249.  
  2250.     dc.w d02,q,db02,q,d02,q,e02,q
  2251.     dc.w gb02,q,e02,q,d02,q,db02,q
  2252.  
  2253.  
  2254.       dc.w end_patt
  2255.  
  2256.  
  2257. runbass2_end
  2258.     dc.w gb02,q,e02,q,d02,q,db02,q
  2259.     dc.w gb02,q,e02,q,d02,q,db02,q
  2260.  
  2261.     dc.w d02,q,db02,q,d02,q,e02,q
  2262.     dc.w gb02,q,e02,q,d02,q,db02,q
  2263.  
  2264.     dc.w gb02,q,e02,q,d02,q,db02,q
  2265.     dc.w gb02,q,e02,q,d02,q,db02,q
  2266.  
  2267.     dc.w rest,cr*4
  2268.  
  2269.       dc.w end_patt
  2270.  
  2271.  
  2272.  
  2273.  
  2274.  
  2275.  
  2276. pbassq:
  2277.       dc.w new_env
  2278.       dc.l basse
  2279.       dc.w new_snd
  2280.       dc.l pizzo1p
  2281.  
  2282.     dc.w gb02,q,gb02,q
  2283.     dc.w db03,q,db03,q
  2284.     dc.w gb02,q,gb02,q
  2285.     dc.w db03,q,db03,q
  2286.  
  2287.     dc.w d02,q,d02,q
  2288.     dc.w bb02,q,bb02,q
  2289.     dc.w gb02,q,gb02,q
  2290.     dc.w db03,q,db03,q
  2291.  
  2292.     dc.w gb02,q,gb02,q
  2293.     dc.w db03,q,db03,q
  2294.     dc.w gb02,q,gb02,q
  2295.     dc.w db03,q,db03,q
  2296.  
  2297.     dc.w d02,q,d02,q
  2298.     dc.w bb02,q,bb02,q
  2299.     dc.w gb02,q,gb02,q
  2300.     dc.w db03,q,db03,q
  2301.  
  2302.     dc.w gb02,cr,db03,cr,gb02,cr,db03,cr
  2303.     dc.w d02,cr,bb02,cr,gb02,cr,db03,cr
  2304.     dc.w gb02,cr,db03,cr,gb02,cr,db03,cr
  2305.     dc.w d02,cr,bb02,cr,gb02,cr,db03,cr
  2306.  
  2307.       dc.w end_patt
  2308.  
  2309.  
  2310.  
  2311.  
  2312.  
  2313. ;------------
  2314.  
  2315. cr  set   24
  2316. q set  cr/2
  2317. sq set q/2
  2318.  
  2319. tcr1 set 16
  2320. tcr2 set 16
  2321. tq1 set      8
  2322. tq2 set   8
  2323. tsq1 set 3
  2324. tsq2 set 2
  2325.  
  2326. **************************************************************
  2327.  
  2328. s5:
  2329.     dc.l    brass_sound,main_tune
  2330.     dc.l    dsect
  2331.       dc.l     0,end_song
  2332. ;---------------
  2333.  
  2334. s6:    
  2335.     dc.l    orchhit_intro
  2336.     dc.l    string_sound_loud,string_run
  2337.  
  2338.         dc.l    0,end_song
  2339.  
  2340. ;---------------
  2341. s7:
  2342.     dc.l    string_sound_loud,main_tune
  2343.     dc.l    dsecth
  2344.       dc.l     0,end_song
  2345. ;---------------
  2346. s8:
  2347.     dc.l    bass_sound,intro_bass1,snare_sound,intro_roll
  2348.     dc.l    bass_sound,intro_bass2
  2349.     dc.l    snare_sound,roll2
  2350.  
  2351.  
  2352.  
  2353.       dc.l     0,end_song
  2354.  
  2355. ;***************  RESTS  ***************
  2356.  
  2357.  
  2358. pr241bar:
  2359.     dc.w rest,cr*4
  2360.     dc.w end_patt
  2361.  
  2362. pr247bar:
  2363.     dc.w rest,cr*28
  2364.     dc.w end_patt
  2365.  
  2366.  
  2367.  
  2368. pr242beats:
  2369.     dc.w rest,cr*2
  2370.     dc.w end_patt
  2371.  
  2372.  
  2373.  
  2374.  
  2375.  
  2376. ;**************  SOUNDS ****************
  2377.  
  2378. violin_sound_loud
  2379.       dc.w new_env
  2380.       dc.l violin1el
  2381.       dc.w new_snd
  2382.       dc.l violin1p
  2383.       dc.w end_patt
  2384.  
  2385. sine_sound
  2386.       dc.w new_env
  2387.       dc.l sine_env
  2388.       dc.w new_snd
  2389.       dc.l sinep
  2390.       dc.w end_patt
  2391.  
  2392.  
  2393. bass_sound
  2394.       dc.w new_env
  2395.       dc.l basse
  2396.       dc.w new_snd
  2397.       dc.l pizzo1p
  2398.       dc.w end_patt
  2399.  
  2400. flute_sound
  2401.       dc.w new_env
  2402.       dc.l flute2eq
  2403.       dc.w new_snd
  2404.       dc.l newflutep
  2405.       dc.w end_patt
  2406.  
  2407. snare_sound
  2408.       dc.w new_env
  2409.       dc.l snareeq 
  2410.       dc.w new_snd
  2411.       dc.l snarep
  2412.       dc.w end_patt
  2413.  
  2414.  
  2415.  
  2416. brass_sound
  2417.       dc.w new_env
  2418.       dc.l synbras1e
  2419.       dc.w new_snd
  2420.       dc.l synbras1p
  2421.       dc.w end_patt
  2422.  
  2423. string_sound_loud
  2424.       dc.w new_env
  2425.       dc.l strings1el
  2426.       dc.w new_snd
  2427.       dc.l strings2p
  2428.       dc.w end_patt
  2429.  
  2430. tymp_sound
  2431.       dc.w new_env
  2432.       dc.l tympe 
  2433.       dc.w new_snd
  2434.       dc.l newtympp
  2435.       dc.w end_patt
  2436.  
  2437.  
  2438.  
  2439. ;***********    TRUMPET PATTERNS LEAD TUNES *********
  2440.  
  2441.  
  2442. main_tune
  2443.     dc.w rest,tq1+tq2,a01,tq1,d02,tq1,a01,tq2,d02,tq1,a02,cr+tq1+tq2
  2444.     dc.w g02,tq1+tq2+tq1,g02,tq1,c03,cr*3
  2445.  
  2446.     dc.w rest,tq1+tq2,a01,tq1,d02,tq1,a01,tq2,d02,tq1,a02,cr+tq1+tq2
  2447.     dc.w g02,tq1+tq2+tq1,g02,tq1,e02,cr+tq1+tq2,c02,tq1+cr
  2448.  
  2449.     dc.w rest,tq1+tq2,a01,tq1,d02,tq1,a01,tq2,d02,tq1,a02,cr+tq1+tq2
  2450.     dc.w g02,tq1+tq2+tq1,g02,tq1,c03,cr+tq1+tq2,e03,tq1+cr
  2451.  
  2452.     dc.w d03,cr,d03,tq1,d03,tq2,d03,tq1
  2453.     dc.w f03,cr+tq1+tq2,e03,tq1+tq2+tq1
  2454.     dc.w e03,tq1,g03,cr*2
  2455.     dc.w c03,cr
  2456.       dc.w end_patt
  2457.  
  2458.  
  2459.  
  2460. dsect    dc.w d03,tq1,d03,tq2,d03,tq1
  2461.     dc.w d03,tq1,d03,tq2,d03,tq1
  2462.     dc.w d03,tq1,d03,tq2,d03,tq1
  2463.     dc.w d03,tq1,d03,tq2,d03,tq1
  2464.     dc.w d03,tq1,d03,tq2,d03,tq1
  2465.     dc.w d03,tq1,d03,tq2,d03,tq1
  2466.     dc.w d03,tq1,d03,tq2,d03,tq1
  2467.     dc.w d03,tq1,d03,tq2,d03,tq1
  2468.       dc.w end_patt
  2469.  
  2470. dsecth
  2471.     dc.w a02,tq1,a02,tq2,a02,tq1
  2472.     dc.w a02,tq1,a02,tq2,a02,tq1
  2473.     dc.w a02,tq1,a02,tq2,a02,tq1
  2474.     dc.w a02,tq1,a02,tq2,a02,tq1
  2475.     dc.w a02,tq1,a02,tq2,a02,tq1
  2476.     dc.w a02,tq1,a02,tq2,a02,tq1
  2477.     dc.w a02,tq1,a02,tq2,a02,tq1
  2478.     dc.w a02,tq1,a02,tq2,a02,tq1
  2479.       dc.w end_patt
  2480.  
  2481.  
  2482. ;*******   ORCH HIT PATTERNS *******************
  2483.  
  2484.  
  2485. orchhit_intro
  2486.       dc.w new_env
  2487.       dc.l orchhite 
  2488.       dc.w new_snd
  2489.       dc.l orchhitpp
  2490.     dc.w d03,cr,rest,cr*7,bb02,cr,rest,cr*6
  2491.     dc.w c03,cr,d03,cr,rest,cr*7,bb02,cr,rest,cr*3
  2492.     dc.w c03,cr,rest,cr*2,c03,cr,d03,cr,rest,cr*5
  2493.       dc.w end_patt
  2494.  
  2495.  
  2496. ;*************************************************
  2497. ; *********  SNARE     PATTERNS ***********
  2498.  
  2499. intro_roll
  2500.  
  2501.     dc.w r16,tsq1,r16,tsq2,r16,tsq1
  2502.     dc.w r16,tsq1,r16,tsq2,r16,tsq1
  2503.     dc.w r16,tsq1,r16,tsq2,r16,tsq1
  2504.     dc.w r16,tsq1,r16,tsq2,r16,tsq1
  2505.     dc.w r16,tsq1,r16,tsq2,r16,tsq1
  2506.     dc.w r16,tsq1,r16,tsq2,r16,tsq1
  2507.     dc.w r4,cr*7
  2508.       dc.w end_patt
  2509.  
  2510. roll2
  2511.     dc.w r16,tq1,r16,tq2,r16,tq1,r16,cr
  2512.     dc.w r16,tq1,r16,tq2,r16,tq1
  2513.     dc.w r16,tq1,r16,tq2,r16,tq1
  2514.       dc.w end_patt
  2515.  
  2516.  
  2517.  
  2518.  
  2519. ;*************   BASS PATTERNS
  2520.  
  2521.  
  2522. intro_bass1
  2523.     dc.w d03,cr,rest,cr*5
  2524.       dc.w end_patt
  2525.  
  2526.  
  2527. intro_bass2
  2528.     dc.w c03,cr,d03,cr,rest,cr*7,bb02,cr,rest,cr*3
  2529.     dc.w c03,cr,rest,cr*2,c03,cr,d03,cr,rest,cr*3
  2530.       dc.w end_patt
  2531.  
  2532.  
  2533. ****************************************************
  2534. ;  **********   STRING PATTERNS  *************
  2535.  
  2536.  
  2537. string_run
  2538.     dc.w d02,tsq1,eb02,tsq2,e02,tsq1
  2539.     dc.w f02,tsq1,gb02,tsq2,g02,tsq1
  2540.     dc.w ab02,tsq1,a02,tsq2,bb02,tsq1
  2541.     dc.w b02,tsq1,c03,tsq2,db03,tsq1
  2542.  
  2543.     dc.w d03,tsq1,eb03,tsq2,e03,tsq1
  2544.     dc.w f03,tsq1,gb03,tsq2,g03,tsq1
  2545.     ;dc.w ab02,tsq1,a02,tsq2,bb02,tsq1
  2546.     ;dc.w b02,tsq1,c03,tsq2,db03,tsq1
  2547.  
  2548.       dc.w end_patt
  2549.  
  2550.  
  2551.  
  2552.  
  2553.  
  2554.     ; sample parameters
  2555.  
  2556. sinel
  2557. sinep
  2558.         dc.w 1  
  2559.              dc.l sined
  2560.              dc.w 16/2  
  2561.              dc.l restd
  2562.              dc.w 16/2
  2563.  
  2564. acbass1p
  2565.         dc.w 1  
  2566.              dc.l acbass1d
  2567.              dc.w 3478/2  
  2568.              dc.l restd
  2569.              dc.w 16/2
  2570. flute2p
  2571.         dc.w 1  
  2572.              ;dc.l flute2d
  2573.              dc.w 4426/2  
  2574.              dc.l restd
  2575.              dc.w 16/2
  2576.  
  2577. newflutep
  2578.         dc.w 1  
  2579.              dc.l newfluted
  2580.              dc.w 3636/2  
  2581.              dc.l restd
  2582.              dc.w 16/2
  2583.  
  2584.  
  2585.  
  2586.  
  2587. frehornp
  2588.         dc.w 1  
  2589.              dc.l frehornd
  2590.              dc.w 7020/2  
  2591.              dc.l restd
  2592.              dc.w 16/2
  2593.  
  2594. pizzo1p
  2595.         dc.w 1  
  2596.              dc.l pizzo1d
  2597.              dc.w 5550/2  
  2598.              dc.l restd
  2599.              dc.w 16/2
  2600.  
  2601. pizzo2p
  2602.         dc.w 1  
  2603.              dc.l pizzo2d
  2604.              dc.w 3796/2  
  2605.              dc.l restd
  2606.              dc.w 16/2
  2607.  
  2608. strings1p
  2609.         dc.w 1  
  2610.              dc.l strings1d
  2611.              dc.w 8448/2  
  2612.              dc.l restd
  2613.              dc.w 16/2
  2614.  
  2615. strings2p
  2616.         dc.w 1  
  2617.              dc.l strings2d
  2618.              dc.w 8668/2  
  2619.              dc.l restd
  2620.              dc.w 16/2
  2621.  
  2622. synbras1p
  2623.         dc.w 1  
  2624.              dc.l synbras1d
  2625.              dc.w 7154/2  
  2626.              dc.l restd
  2627.              dc.w 16/2
  2628.  
  2629. violin1p
  2630.         dc.w 1  
  2631.              dc.l violin1d
  2632.              dc.w 6350/2  
  2633.              dc.l restd
  2634.              dc.w 16/2
  2635.  
  2636. newtympp
  2637.         dc.w 1  
  2638.              dc.l tymp1d
  2639.              dc.w 5052/2  
  2640.              dc.l restd
  2641.              dc.w 16/2
  2642.  
  2643. orchhitpp
  2644.         dc.w 1  
  2645.              dc.l orchhitpd
  2646.              dc.w 10594/2  
  2647.              dc.l restd
  2648.              dc.w 16/2
  2649.  
  2650. pizpianop
  2651.         dc.w 1  
  2652.              dc.l pizpianod
  2653.              dc.w 4032/2  
  2654.              dc.l restd
  2655.              dc.w 16/2
  2656.  
  2657. snarep
  2658.         dc.w 1  
  2659.              dc.l snared
  2660.              dc.w 2240/2  
  2661.              dc.l restd
  2662.              dc.w 16/2
  2663.  
  2664.  
  2665.  
  2666. ;****************************
  2667.  
  2668.  
  2669. ;;;fx parameters
  2670.  
  2671. explosionp
  2672.         dc.w 1  
  2673.              dc.l explosiond
  2674.              dc.w 5203/2  
  2675.              dc.l restd
  2676.              dc.w 16/2
  2677.  
  2678.  
  2679. deiselloopp            ;;looped fx
  2680.         dc.w 1  
  2681.              dc.l deiseld
  2682.              dc.w 4185/2  
  2683.              dc.l deiseld
  2684.              dc.w 4185/2
  2685.  
  2686.  
  2687. ;**************************************************
  2688.  
  2689. acbass1d        ;incbin ram:acbass1.con
  2690. snared:            incbin ram:snare.con
  2691. frehornd        incbin ram:frehornl.con
  2692. pizzo1d            incbin ram:pizzo1.con
  2693. pizzo2d            incbin ram:pizzo2.con
  2694. strings1d        ;incbin ;ram:strings1.con
  2695. strings2d        incbin ram:strings2.con
  2696. synbras1d        incbin ram:synbras1.con
  2697. violin1d        incbin ram:violin1.con
  2698. tymp1d            incbin ram:newtymp.con
  2699. orchhitpd        incbin ram:orchhitp.con
  2700. pizpianod        incbin ram:pizpiano.con
  2701.  
  2702. newfluted        incbin ram:newflute.con
  2703.  
  2704.  
  2705. ;********************************************
  2706.  
  2707. ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere
  2708. ;; in lower memory,and in any order
  2709.  
  2710. explosiond        ;incbin     ram:explosion.con                       
  2711. deiseld            ;incbin  ram:diesel.con    
  2712.  
  2713.  
  2714. ;***********************
  2715. ev    equ 0            
  2716.  
  2717. rest_env:            dc.w 0,0,255
  2718.  
  2719.  
  2720.  
  2721. wholeorce:            dc.w 15,50,255
  2722. flute2e:            dc.w 15,28,255
  2723. flute2el:            dc.w 15,40,255
  2724.  
  2725. flute2eq:            dc.w 15,25,255
  2726. orchhite:            dc.w 15,50,255
  2727.  
  2728. pizzo1e:            dc.w 15,50,255
  2729. basse:                dc.w 0,55,255
  2730. basseq:                dc.w 0,40,255
  2731. snaree:                dc.w 0,50,255
  2732. snareeq:            dc.w 0,33,255
  2733.  
  2734.  
  2735. pizzo1el:            dc.w 15,64,255
  2736.  
  2737. pizzo2e:            dc.w 15,50,255
  2738. pizzo2el:            dc.w 15,60,255
  2739.  
  2740. pizzo2eq:            dc.w 15,30,255
  2741.  
  2742. pizpianoe:            dc.w 15,50,255
  2743.  
  2744. strings1e:            dc.w 15,30,255
  2745. strings1eq:            dc.w 15,25,255
  2746.  
  2747. strings1el:            dc.w 15,50,255
  2748. strings1ell:            dc.w 15,55,255
  2749.  
  2750. frehorne:            dc.w 15,35,255
  2751. synbras1e:            dc.w 15,23,255
  2752. synbras1el:            dc.w 15,43,255
  2753.  
  2754. synbras1eq:            dc.w 15,23,255
  2755. acbass1e:            dc.w 15,30,255
  2756. violin1e:            dc.w 15,40,255
  2757. violin1el:            dc.w 0,60,255
  2758.  
  2759. violin1eq:            dc.w 15,30,255
  2760. tympe:                dc.w 15,35,255
  2761. tympel:                dc.w 15,45,255
  2762.  
  2763. orchhit2e:            dc.w 15,64,255
  2764.  
  2765.  
  2766. sine_env2:            dc.w 20,34-ev,33-ev,32-ev,5
  2767.             dc.w 39-ev,38-ev,37-ev,36-ev,35-ev,34-ev,33-ev,32-ev,4
  2768.             dc.w 19-ev,28-ev,37-ev,16-ev,25-ev,24-ev,27-ev,39-ev,28-ev
  2769.             dc.w 255
  2770. sine_env:            dc.w 0,50,255
  2771.  
  2772.  
  2773. restd:
  2774. rest_data:
  2775.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2776.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2777.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2778.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2779. sined:
  2780. sine_datad:
  2781.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  2782.              dc.w -127,-100,-50,-35,0,35,50,80,127
  2783.  
  2784.  
  2785. ;*************************************************
  2786.  
  2787.     end
  2788.  
  2789.  
  2790.  
  2791.  
  2792.