home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Midwinter II / Lowe_MidwinterII.img / BETRAYEL.S < prev    next >
Encoding:
Text File  |  1985-11-20  |  51.3 KB  |  2,345 lines
  1.  
  2. ;               JAGGED MUSIC/FX SOURCE FILES
  3.  
  4. ;         MUSIC AND DRIVER REMAIN COPYRIGHT D.LOWE FOR UAMS
  5.  
  6. ;            Glyn ...Do you want to buy a pc on the cheap!!!!
  7. ;        I've also made this driver turn of the keyboard as I know
  8. ;            you prefer it that way
  9.  
  10. ;    If you assemble this and run it as stand alone code
  11. ;    you can step through the fx using (down arrow) for same fx
  12. ;    and (right arrow) for next fx.Its probaly best to disable
  13. ;    The music (see below) if trying to decide what fx to use
  14. ;    for what.I have left the samples disabled see below
  15. ;    these run on timer a....they play every five seconds
  16. ;    when testing.        
  17. ;    Its probaly easier to ring me with any queries...??
  18. ;    ps..Theres a volume control for the music only on key v
  19. ;    you might want to chuck this out.. see below
  20. ;    (Its set about right to stop it blowing out the sample fx.)
  21. ;    pps.. the arrow keys sometimes cut the fx short
  22. ;    when testing the chip fx...and I havent got a clue why.
  23. ;    It doesnt happen when the fx are called properly ie
  24. ;    when run ingame.(maybe some spotty kids might know).
  25.  
  26.  
  27. ;    FX SAMPLES.........1    torpedo in bath
  28. ;               2    torpedo in bigger bath    
  29. ;               3-6  various explosions                
  30.  
  31. ;      CHIP FX list
  32.  
  33.     ; 1    alarm1
  34.     ; 2    alarm2
  35.     ; 3    alarm3
  36.     ; 4    click_fx    ;empty guns..single click    
  37.     ; 5    exp1        ;chip explosion
  38.     ; 6    exp2        ;short chip explosion
  39.     ; 7    missile4    ; launch missile/weapon    
  40.     ; 8    missile5    ; launch missile/weapon    
  41.     ; 9    missile6    ; launch missile/weapon    
  42.     ; 10    turbo1        ; turbo to 1st level
  43.     ; 11    turbo2        ; turbo to 2st level
  44.     ; 12    turbo3        ; turbo to 3rd level
  45.     ; 13    pop_gun1    ; variation   very short
  46.     ; 14    enemy pop gun    ; high pitched very short
  47.     ; 15    your_pop gun    ; lower pitch very short
  48.     ; 16    wheel_skid    ; jumbo jet touchdown ?
  49.     ; 17    panel_slide    ; panel sliding sound..ish
  50.     ; 18    waves....sea side etc/chucked out seagull sample(to big)
  51.  
  52.     ;;;  MUSIC NUMBERS
  53.     
  54.     ;   tune 1............title tune/and level music
  55.     ;   tune 2............level music
  56.     ;   tune 3............level music
  57.     ;   tune 4............level/high score
  58.     ;   tune 5............change level/win jingle
  59.  
  60. ;            0723 870648 .... Dave Lowe
  61.  
  62. B08:  equ  16
  63. Bb08:  equ  17
  64. A08:  equ  18
  65. Ab08:  equ  19
  66. G08:  equ  20
  67. Gb08:  equ  21
  68. f08:  equ  22
  69. E08:  equ  24
  70. Eb08:  equ  25
  71. D08:  equ  27
  72. Db08:  equ  28
  73. C08:  equ  30
  74. ;  ********
  75.  
  76. ;  *********
  77. B07:  equ  32
  78. Bb07:  equ  34
  79. A07:  equ  36
  80. Ab07:  equ  38
  81. G07:  equ  40
  82. Gb07:  equ  42
  83. f07:  equ  45
  84. E07:  equ  47
  85. Eb07:  equ  50
  86. D07:  equ  53
  87. Db07:  equ  56
  88. C07:  equ  60
  89. ;  ********
  90. ;  *********
  91. B06:  equ  63
  92. Bb06:  equ  67
  93. A06:  equ  71
  94. Ab06:  equ  75
  95. G06:  equ  80
  96.  
  97. Gb06:  equ  84
  98. f06:  equ  89
  99. E06:  equ  95
  100. Eb06:  equ  100
  101. D06:  equ  106
  102. Db06:  equ  113
  103. C06:  equ  119
  104. ;  ********
  105. ;  *********
  106. B05:  equ  127
  107. Bb05:  equ  134
  108. A05:  equ  142
  109. Ab05:  equ  150
  110. G05:  equ  159
  111. Gb05:  equ  169
  112. f05:  equ  179
  113. E05:  equ  190
  114. Eb05:  equ  201
  115. D05:  equ  213
  116. Db05:  equ  225
  117. C05:  equ  239
  118. ;  ********
  119. ;  *********
  120. B04:  equ  253
  121. Bb04:  equ  268
  122. A04:  equ  284
  123. Ab04:  equ  301
  124. G04:  equ  319
  125. Gb04:  equ  338
  126. f04:  equ  358
  127. E04:  equ  379
  128. Eb04:  equ  402
  129. D04:  equ  426
  130. Db04:  equ  451
  131. C04:  equ  478
  132. ;  ********
  133. ;  *********
  134. B03:  equ  506
  135. Bb03:  equ  536
  136. A03:  equ  568
  137. Ab03:  equ  602
  138. G03:  equ  638
  139. Gb03:  equ  676
  140. f03:  equ  716
  141. E03:  equ  758
  142. Eb03:  equ  804
  143. D03:  equ  851
  144. Db03:  equ  902
  145. C03:  equ  956
  146. ;  ********
  147. ;  *********
  148. B02:  equ  1012
  149. Bb02:  equ  1073
  150. A02:  equ  1136
  151. Ab02:  equ  1204
  152. G02:  equ  1276
  153. Gb02:  equ  1351
  154. f02:  equ  1432
  155. E02:  equ  1517
  156. Eb02:  equ  1607
  157. D02:  equ  1703
  158. Db02:  equ  1804
  159. C02:  equ  1911
  160. ;  ********
  161. ;  *********
  162. B01:  equ  2025
  163. Bb01:  equ  2145
  164. A01:  equ  2273
  165. Ab01:  equ  2408
  166. G01:  equ  2551
  167. Gb01:  equ  2703
  168. f01:  equ  2863
  169. E01:  equ  3034
  170. Eb01:  equ  3214
  171. D01:  equ  3405
  172. Db01:  equ  3608
  173. C01:  equ  3822
  174. ;  ********
  175.  
  176.  
  177. select_reg   equ $ffff8800
  178. write_data   equ $ffff8802
  179. end_patt    equ 0
  180. end_song    equ $ffffffff
  181. end_data    equ $ff
  182. new_env   equ 4
  183. new_sound    equ 8
  184. pbend    equ 12
  185. octaves   equ 20
  186. endfx_patt    equ 36
  187. hold        equ 40
  188. holdoff    equ 44
  189. cem     equ 20
  190. up     equ 3
  191. down    equ 2
  192. auto    equ 1
  193. man     equ 0
  194. modon    equ 16
  195. modoff   equ 24
  196. pboff    equ 28
  197. bendoff        equ 28
  198. inline   equ 32
  199. rpto    equ $01
  200. rptc    equ $02
  201. trigg    equ 0
  202. notrigg equ 1
  203.  
  204. CR      set 20
  205. tcr1     set 11
  206. tcr2     set 10
  207. Q       set CR/2
  208. tq1      set 5
  209. tq2      set 6
  210. tsq1     set 3
  211. tsq2     set 2
  212. SQ      set Q/2
  213. m       set 254
  214. rest     set $fd00
  215. dcr      set cr+q
  216. dq      set q+sq
  217. dsq      set sq+(sq/2)
  218. sb      set cr*4
  219. min      set cr*2
  220. dm      set min+cr
  221.  
  222.  
  223. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  224.  
  225.  
  226.  
  227. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  228.  
  229.  
  230. t1     equ %00001000
  231. n1     equ %00000001
  232. b1     equ %00000000
  233. t2     equ %00010000
  234. n2     equ %00000010
  235. b2     equ %00000000
  236. t3     equ %00100000
  237. n3     equ %00000100
  238. b3     equ %00000000
  239.  
  240. ;       ***********************************
  241. ;  THIS WHOLE SECTION IS A SHORT CONTROL SECTION TO POKE NUMBERS
  242. ;  INTO THE FX BUFFERS TO ENABLE YOU TO ASSEMBLE AND RUN IT WITHOUT   
  243. ;  ANY INTERRUPT ROUTINEs ETC......Delete it when not needed
  244.  
  245.            jsr super
  246. ;  disable key click for volume control...You probably have your own
  247.         MOVE.B $484,D0        ;routines for keyboard etc.So I've kept
  248.         AND.B #$FE,D0        ;this bit in the deletable section
  249.         MOVE.B D0,$484
  250.  
  251.  ; test for screen res
  252.            move.w #4,-(sp)
  253.            trap #14
  254.           addq.l #2,sp
  255.           cmp.w #2,d0
  256.           beq high_res
  257. ; screen to med res
  258.           move.w #1,-(sp)
  259.            move.l #-1,-(sp)
  260.           move.l #-1,-(sp)
  261.            move.w #5,-(sp)
  262.            trap #14
  263.           add.l #12,sp
  264.  
  265. high_res:
  266.            move.w col_byte,d0
  267.            JSR colour
  268.            move.w d0,col_byte
  269.            EORi.w #1,D0
  270.            jsr colour
  271.            lea ua_mess,a1
  272.            jsr print
  273.            LEA TOGGLE_MESS_OFF,a1
  274.            jsr print
  275.            LEA TITLE_MESS_POS,A1
  276.            JSR PRINT
  277.            jsr select_new_song
  278.         call_loop:
  279.  
  280.  
  281.            cmp.w #0,timer3
  282.            beq testkey
  283.            sub.w #1,timer3
  284.            bra nokey
  285.  
  286. testkey:
  287.            CMP.B #$39,$FFFC02
  288.            bne nokey
  289. relkey:        clr.b $fffc02
  290.            move.w #100,timer3
  291.  
  292.            move.l song_buffer,d0
  293.            addq.l #1,d0
  294.            cmpi.l #4,d0    ;songs +1
  295.            bne okay
  296.            move.l #1,d0
  297. okay:         move.l d0,song_buffer
  298.            jsr SELECT_NEW_SONG
  299.  
  300. nokey:
  301.            jsr interrupt
  302.            jsr sfxdriver
  303.  
  304. ; see if change of toggle required
  305.            CMP.B #$3a,$FFFC02
  306.            bne no_change
  307.            TST.W timer4
  308.            bne no_change
  309.  
  310. ; toggle sound fx and print to screen
  311.            tst.w fx_toggle
  312.            bne off
  313.            lea toggle_mess_on,a1
  314.            jsr print
  315.            bra tj1
  316. off:           lea toggle_mess_off,a1
  317.            jsr print
  318. tj1:           move.w #200,timer4
  319.            bchg #0,fx_toggle
  320. NO_CHANGE:
  321.            tst.w timer4
  322.            beq t4ok
  323.            sub.w #1,timer4
  324. t4ok:
  325.            tst.w fx_toggle
  326.            bne toggle_ok
  327.            bra call_loop
  328.  
  329. TOGGLE_ok:
  330. ;   SAMPLE FX CONTROL
  331.            subi.w #1,timer
  332.            cmpi.w #0,timer
  333.            bne call_loop1
  334.            move.l yyy,d0
  335.            addi.l #1,d0
  336.            cmpi.l #max_sam,d0
  337.            bne jjj
  338.            move.l #1,d0
  339.  
  340. jjj:          ;move.l d0,fx_buffer  ;THIS INSTRUCION WILL ENABLE/DISABLE
  341.                       ;THE SAMPLES FOR TESTING..
  342.            move.l d0,yyy
  343.            move.w #800,timer
  344.            bra call_loop
  345. call_loop1:
  346.  
  347. ; chip fx control
  348.  
  349.  
  350.         tst.w timer1
  351.         beq new_fx    
  352.         sub.w #1,timer1
  353.         bra call_loop
  354.  
  355. new_fx
  356.         move.l yyy1,d0
  357.         cmp.b #$50,$fffc02
  358.         beq same_fx
  359.  
  360.         cmp.b #$4d,$fffc02
  361.            bne call_loop
  362.  
  363.            move.l yyy1,d0
  364.            addi.l #1,d0
  365.            move.l max_chfx,d1
  366.            cmp.l d1,d0
  367.            bne no_reset_chfx
  368.            move.l #1,d0
  369. no_reset_chfx  
  370.         move.l d0,yyy1
  371. same_fx
  372.         jsr set_up_chip_fx
  373.         move.w #5,timer1
  374.  
  375.            bra call_loop
  376.  even
  377. timer: dc.w 3
  378. yyy: dc.l 0
  379. timer1: dc.w 70
  380. yyy1: dc.l curr_fx
  381. timer3: dc.w 0
  382. fx_toggle: dc.w 0
  383. timer4: dc.w 0
  384. col_byte: dc.w -1
  385. print_store: dc.l title_mess
  386. ; +++++++++++
  387. print:
  388. ; a1 is pointer to data
  389. ploop:
  390.          MOVE.B (A1)+,D0
  391.          CMPI.B #255,D0
  392.          BNE DOP
  393.          RTS
  394. dop:         jsr print_sub
  395.            bra ploop
  396. print2:
  397.          clr.l d3
  398.          MOVE.W #13,D3
  399.         ploop2:
  400.          MOVE.B (A1)+,D0
  401.          JSR PRINT_SUB
  402.          DBRA D3,PLOoP2
  403.          RTS
  404. dop2:         jsr print_sub
  405.            bra ploop2
  406.  
  407.  
  408.  ; character to print in d0
  409. print_sub:
  410.           move.w d0,-(sp) ; value to print
  411.           move.w #2,-(sp)
  412.           trap #1
  413.           addq.l #4,sp
  414.           rts
  415.  
  416. ua_mess:
  417.          dc.b 27,'b',0,27,'c',1
  418.  
  419.  
  420.          dc.b 27,'E'     ; CLEAR SCREEN
  421.          dc.b 27,'Y',32+7,32+32
  422.                  dc.b ' UNCLE~ART '
  423.          dc.b 27,'Y',32+9,32+26
  424.              dc.b 'Computer Music Specialists'
  425.          dc.b 27,'Y',32+10,32+30,' Tel:0723 870648 '
  426.  
  427.  
  428.  
  429.          dc.b 27,'Y',32+16,32+6
  430.          dc.b '             Caps Lock to toggle FX/V for MUSIC volume'
  431.             dc.b 0
  432. toggle_mess_off:
  433.          dc.b 27,'Y',32+18,32+30,'»»»» FX OFF ««««'
  434.  
  435.          dc.b 27,'Y',32+19,32+30,'     FX  ON     '
  436.  
  437.          dc.b 255
  438. toggle_mess_on:
  439.          dc.b 27,'Y',32+18,32+30,'     FX OFF     '
  440.  
  441.          dc.b 27,'Y',32+19,32+30,'»»»» FX  ON ««««'
  442.          dc.b 255
  443.  
  444. title_mess_pos:
  445.          dc.b 27,'Y',32+15,32+20
  446. title_mess:
  447.          dc.b  '* LINE OF FIRE MUSIC/FX *'
  448.          dc.b 27,'Y',32+13,32+14
  449.          dc.b ' '
  450.          dc.b 27,'f'
  451.          dc.b 255,0
  452.     even
  453. colour:
  454.           move.w d0,-(sp)
  455.           move.w #0,-(sp)
  456.           move.w #7,-(sp)
  457.           trap #14
  458.           add.w #6,sp
  459.           rts
  460. ;            END OF CONTROL(deletable)SECTION
  461. ;        *********************************
  462.  
  463. ;          **********************************
  464. ;          FLAGS/VARIABLES FOR ACCESS BY PROGRAMMER
  465. ;             DURING RUN TIME        
  466.  
  467. fx_disable:    dc.w 0     ;fx disable flag     1=disable
  468. music_disable:  dc.w 1  ;music disable         1=disable
  469.  
  470. fx_buffer:     dc.l 0     ;sample fx number required  
  471. song_buffer:     dc.l 1  ;which piece of music  1 to 5
  472. ;         **********************************
  473.  
  474. ;     ALL INTERNAL FLAGS/VARIABLES USED INTERNALLY BY THE DRIVER 
  475. chip_fx_on     dc.w 0
  476. FXBUFFER:     dc.l 0
  477. backup_buffer:     dc.l 0
  478. fxcount:     dc.b 0
  479. fx_patt_f:     dc.w 0
  480. fx_patt_point:     dc.l 0
  481. fx_int:     dc.l 0
  482. curr_fx_fin:     dc.w 0
  483. duck         dc.b 0,0
  484. curr_mix     dc.b %11111111,0
  485. mod2_flag     dc.w 0
  486. altpf:         dc.w 0
  487. temp:         dc.l 0
  488. which_chip     dc.l 0
  489. no_reg:     dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  490. sample_flag:    dc.w 0
  491. fx_flag:    dc.w %0000000000000000
  492. curr_chann:    dc.w 0
  493. start_patt:     dc.b m,end_patt
  494. start_song:     dc.l $ffffffff
  495. curr_comp:    dc.b 3,0
  496. vol_count:    dc.w 6
  497. hold_val_p:    dc.w 0,0
  498. sfxflag        dc.w 0
  499. int_flag    dc.w 0
  500. ; ******************************
  501.  
  502. ;  SUBROUTINE TO KILL CHIP...does not save registers
  503.  
  504. ; call here to kill all three channels
  505. kill_chip:
  506.         move.w #13,d0
  507. kloop        move.b d0,select_reg
  508.         move.b #0,write_data
  509.         dbra.w    d0,kloop 
  510.            move.b #7,select_reg
  511. ; turn mixer off
  512.            move.b #%11111111,write_data
  513.            rts
  514. ; *************************************
  515.  ; SONG SELECTION subroutine...call here AFTER poking number of required
  516. ;    piece into song_buffer
  517.  
  518. select_new_song:
  519.         move.w #1,int_flag
  520.          jsr kill_chip 
  521.          move.l #74,d0
  522.          lea vars1,a0
  523.         clear_loop:
  524.          move.w #0,(a0)+
  525.          dbra d0,clear_loop
  526.          clr.l backup_buffer
  527.          clr.b fxcount
  528.          clr.l d0
  529.          move.l song_buffer,d1
  530.          add d1,d0
  531.          add d1,d0
  532.          add d1,d0
  533.          add d1,d0
  534.          add d1,d0
  535.          add d1,d0
  536.          add d1,d0
  537.          add d1,d0
  538.          add d1,d0
  539.          add d1,d0
  540.          add d1,d0
  541.          add d1,d0
  542.          LEA SONG_TABLE-12,A1
  543.          add.l d0,a1 
  544.          MOVE.L (A1)+,WSONG1 
  545.           move.l (a1)+,wsong2 
  546.           move.l (a1),wsong3
  547.           MOVE.L #START_PATT,PATTR1
  548.           MOVE.L #start_patt,PATTR2
  549.           MOVE.L #start_patt,PATTR3
  550.           move.l #start_song,songr1
  551.           MOVE.L #start_song,SONGR2
  552.           MOVE.L #start_song,SONGR3
  553.           move.w #0,intc1
  554.           move.w #0,intc2
  555.           move.w #0,intc3
  556.         clr.w int_flag
  557.           rts
  558.  
  559. ;****************************************
  560.     ;  CALL HERE WITH D0 HOLDING THE long word value
  561.     ;  of the fx you want/  see fx list
  562.  
  563. set_up_chip_fx
  564.         add d0,d0
  565.         add d0,d0
  566.         lea chfx_table-4,a0
  567.         move.l (a0,d0),a1    
  568.         btst #0,fx_flag+1
  569.         bne checkfx2
  570. use1        move.l a1,fxpattr1
  571.         bset #0,fx_flag+1
  572.         rts
  573. checkfx2:     btst #1,fx_flag+1
  574.         bne checkfx3    
  575.         move.l a1,fxpattr2
  576.         bset #1,fx_flag+1
  577.         rts
  578. checkfx3:     btst #2,fx_flag+1
  579.         bne overwrite
  580.         move.l a1,fxpattr3
  581.         bset #2,fx_flag+1
  582. overwrite
  583.         lea fxvars1,a0
  584.         jsr clear_fx_1
  585.         bra use1
  586. ;*************************************
  587. ; CALL HERE ON 50hz INTERRUPT TO PLAY MUSIC/SAMPLES AND FX
  588. ; TO PLAY SAMPLE  PLACE NUMBER FROM INCLUDED LISTS INTO..fx_buffer
  589. ; TO PLAY CHIP FX CALL ABOVE ROUTINE AS DESCRIBED ABOVE
  590. ; TO SELECT WHICH PIECE OF MUSIC PLACE NUMBER FROM INCLUDED
  591. ; LIST INTO....song_buffer AND CALL select_new_song
  592. ; TO DISABLE MUSIC PLACE A 1 INTO music_disable/0 TO RENABLE
  593. ; TO DISABLE SAMPLES/FX PLACE A 1 INTO fx_disable/0 TO RENABLE
  594. ; SEE LINE FURTHER  DOWN  FOR MUSIC VOLUME CONTROL
  595. ; THERE IS NO NEED TO DISABLE THE 50hz INTERRUPT WHEN USING THE
  596. ; ABOVE FUNCTIONS
  597.  
  598. sfxdriver:
  599.         movem.l a0-a5/d0-d7,-(a7)
  600.         jsr driver
  601.         movem.l (a7)+,a0-a5/d0-d7
  602.          rts    ;YOU PROBABLY NEED TO CHANGE THIS TO RTE WHEN RUNNING
  603.         ;IT FROM THE VBI
  604.  
  605. ; *************************************
  606. driver:
  607.         tst.w int_flag
  608.         beq on_line
  609.         rts
  610. on_line       tst.w fx_disable
  611.            bne mdriver   
  612.           tst.l fx_buffer 
  613.         bne set_up_s
  614.            tst.w fx_patt_f
  615.            bne fx_in_use
  616.           bra mdriver 
  617. set_up_s
  618.            clr.w chip_fx_on
  619.           move.l fx_buffer,d0
  620.           add d0,d0
  621.           add d0,d0  
  622.           MOVE.L #PATT_TABLE,A1
  623.           move.l (a1,d0),a2 
  624. set_up_fx: 
  625.         move.l (a2)+,a1 
  626.           move.l (a2)+,fx_int 
  627.           move.l a2,fx_patt_point
  628.           clr.w curr_fx_fin
  629.           move.l (a1)+,sam_speed
  630.           move.l (a1)+,sam_end
  631.          move.l (a1)+,sam_start
  632.           move.l #0,fx_buffer
  633.          move.w #1,fx_patt_f 
  634.           jsr main_program
  635.         move.w #1,sample_flag
  636.          bra mdriver 
  637. fx_in_use:
  638.          tst.w curr_fx_fin 
  639.           beq mdriver 
  640.          move.l fx_patt_point,a2
  641.           cmpi.l #255,(a2) 
  642.           bne check_delay
  643.           clr.w fx_patt_f
  644.         move.w #0,sample_flag
  645.         jsr kill_chip
  646.           beq mdriver
  647.           bra mdriver
  648. CHECK_DELAY:     TST.L FX_INT
  649.           beq set_up_fx
  650.           sub.l #1,fx_int
  651.         bra mdriver 
  652.  
  653.  
  654. patt_table:     dc.l 0,fxp1,fxp2,fxp3,fxp4,fxp5,fxp6
  655.  
  656.  
  657. fxp1:         dc.l ssplash8,0,255
  658. fxp2:         dc.l ssplash8,0,255
  659. fxp3:         dc.l explosi8,0,255
  660. fxp4:         dc.l explosi85,0,255
  661. fxp5:         dc.l explosi83,0,255
  662. fxp6:
  663.          dc.l explosi8s,0
  664.          dc.l explosi5s,0
  665.          dc.l explosi3s,0
  666.          dc.l explosi6s,0
  667.          dc.l explosi9s,0
  668.          dc.l explosi10s,0
  669.          dc.l explosi5s,0
  670.          dc.l explosi83,0,255
  671.  
  672.  
  673. ssplash8    dc.l 7,6728+ssplash8d,ssplash8d
  674. explosi8    dc.l 8,4882+explosi8d,explosi8d
  675. explosi8s    dc.l 8,1200+explosi8d,explosi8d
  676. explosi7s    dc.l 7,1200+explosi8d,explosi8d
  677. explosi6s    dc.l 6,1200+explosi8d,explosi8d
  678. explosi5s    dc.l 5,1200+explosi8d,explosi8d
  679. explosi10s    dc.l 10,1200+explosi8d,explosi8d
  680. explosi3s    dc.l 3,1200+explosi8d,explosi8d
  681. explosi9s    dc.l 9,1200+explosi8d,explosi8d
  682.  
  683. explosi85    dc.l 5,4882+explosi8d,explosi8d
  684. explosi83    dc.l 3,4882+explosi8d,explosi8d
  685.  
  686. max_sam        equ 7
  687.  
  688. ;**********************************************
  689.  
  690. clear_chip:    RTS
  691. SAM_SPEED DC.L 0
  692. SAM_END DC.L 0
  693. SAM_START DC.L 0
  694.         MAIN_PROGRAM:
  695.          jsr kill_chip
  696.          MOVE.l SAM_SPEED,D0
  697.          EXT.W D0
  698.          SUBQ.L #2,D0
  699.          lSL.w #1,D0
  700.          MOVE.L SAM_START(PC),sample+2 
  701.          LEA SPEEDS(PC),A0
  702.          MOVE.L #interupt,$134 
  703.          MOVE.W 0(A0,D0.W),D0
  704.          MOVE.B D0,$FFFA19 
  705.          LSR.W #8,D0
  706.          MOVE.B D0,$FFFA1F
  707.          MOVE.B #$20,$FFFA13 
  708.           MOVE.B #$20,$FFFFA07 
  709.          rts
  710.         INTERUPT: ORI.W #$0700,SR 
  711.          MOVEM.L D0-D2/A0-A2,-(SP) 
  712.          CLR.W D0 
  713.          MOVE.L SAM_END,A1
  714.          LEA SAMPLE+2,A2
  715.         SAMPLE: MOVE.B $00000000,D0 
  716.          ADDQ.L #1,(A2) 
  717.              AND.B #$FC,D0
  718.          LEA CHANEL_A,A0
  719.          MOVE.W #$0900,D1 
  720.              MOVE.W #$0A00,D2 
  721.          MOVE.B 1(A0,D0.W),D1
  722.          MOVE.B 3(A0,D0.W),D2
  723.          LEA $FFF8800,A0 
  724.          MOVEP.W D1,0(A0)
  725.          MOVEP.W D2,0(A0) 
  726.          CMPA.L (A2),A1 
  727.          BLT.S STOP_INTERUPT
  728.          MOVEM.L (SP)+,D0-D2/A0-A2 
  729.          BCLR #5,$FFFA0F 
  730.          RTE 
  731. STOP_INTERUPT:         BCLR #5,$FFFA19 
  732.          BCLR #5,$FFFA07 
  733.          MOVEM.L (SP)+,D0-D2/A0-A2 
  734.          BCLR #5,$FFFA0F 
  735.              move.w #1,curr_fx_fin
  736.              clr.b duck
  737.          RTE
  738. super:  
  739.            move sr,d0
  740.            andi #$2000,d0
  741.            bne coldst
  742.            clr.l -(sp)
  743.            move.w #$20,-(sp)
  744.            trap #1
  745.            add.l #6,sp
  746.            lea temp,a1
  747.            MOVE.L D0,(a1)
  748. coldst:       rts
  749. user:
  750.            move.l temp,-(sp)
  751.            move.w #$20,-(sp)
  752.            trap #1
  753.            add.l #6,sp
  754.            rts
  755. interrupt:      moveq #4,d1
  756. wait2:      move.l $4ba,d6
  757. wait:          cmp.l $4ba,d6
  758.            beq wait
  759.            subq #1,d1
  760.            bne wait2
  761.            rts
  762.  
  763.  
  764. ;+++++++++++++++++++++++++++++++++++++++++++++++++
  765.  
  766. mdriver: 
  767.  
  768.         move.w #1,curr_chann
  769.         move.l #select_reg,a4
  770.         move.l #curr_mix,a5
  771.         tst.w sample_flag    
  772.         beq do1    
  773.         move.l #no_reg,a4
  774. do1: 
  775.           lea VARS1,A0 
  776.         btst.b #0,fx_flag+1
  777.         beq do1music
  778.         lea fxvars1,a0
  779.          moveq.l #0,d0 
  780.           moveq.l #1,d1 
  781.           moveq.l #8,d2 
  782.          move.b #%11110110,d7
  783.         jsr check_count_1
  784.             move.l #no_reg,a4
  785.         move.l #no_reg,a5
  786.          lea VARS1,A0 
  787.         jsr check_count_1
  788.         bra chan2
  789. do1music:
  790.         tst.w music_disable
  791.         bne chan2
  792.           moveq.l #0,d0 
  793.           moveq.l #1,d1 
  794.           moveq.l #8,d2 
  795.           move.b #%11110110,d7
  796.           jsr check_count_1
  797. ;    ******************************
  798.  
  799. chan2:
  800.         move.w #2,curr_chann
  801.           move.l #select_reg,a4
  802.         move.l #curr_mix,a5
  803.         tst.w sample_flag    
  804.         beq do2    
  805.         move.l #no_reg,a4
  806. do2          lea vars2,a0
  807.         btst.b #1,fx_flag+1
  808.         beq do2music
  809.         lea fxvars2,a0
  810.           moveq.l #2,d0
  811.           moveq.l #3,d1
  812.            moveq.l #9,d2
  813.            move.b #%11101101,d7
  814.         jsr check_count_1
  815.         move.l #no_reg,a4
  816.         move.l #no_reg,a5
  817.           lea vars2,a0
  818.             jsr check_count_1
  819.         bra chan3
  820. do2music:
  821.         tst.w music_disable
  822.         bne chan3
  823.            moveq.l #2,d0
  824.            moveq.l #3,d1
  825.            moveq.l #9,d2
  826.            move.b #%11101101,d7
  827.            jsr check_count_1
  828. chan3:
  829.         move.w #4,curr_chann
  830.         move.l #select_reg,a4
  831.         move.l #curr_mix,a5
  832.         tst.w sample_flag    
  833.         beq do3    
  834.         move.l #no_reg,a4
  835. do3           lea vars3,a0
  836.         btst.b #2,fx_flag+1
  837.         beq do3music
  838.         lea fxvars3,a0
  839.            moveq.l #4,d0
  840.            moveq.l #5,d1
  841.            moveq.l #10,d2
  842.            move.b #%11011011,d7
  843.         jsr check_count_1
  844.         move.l #no_reg,a4
  845.         move.l #no_reg,a5
  846.           lea vars3,a0
  847.         jsr check_count_1
  848.         rts
  849. do3music:
  850.         tst.w music_disable
  851.         beq dochan2
  852.         rts
  853. dochan2:
  854.            moveq.l #4,d0
  855.            moveq.l #5,d1
  856.            moveq.l #10,d2
  857.            move.b #%11011011,d7
  858.            jsr check_count_1
  859.            rts
  860. process_data:
  861. get_new_patt:      move.l 12(A0),a1 
  862.            CMPI.B #END_song,(A1) 
  863.            bne get_patt_a 
  864.            move.l 16(a0),12(a0) 
  865.            move.l 12(a0),a1 
  866. get_patt_a:
  867. song_cont_ret:
  868.            move.l (a1),4(a0) 
  869.            addq.l #4,a1
  870.            move.l a1,12(a0)
  871.            move.w #1,(a0)
  872.            bra get_new_note
  873. check_count_1:  tst.w 2(a0) 
  874.            BEQ gET_NEW_NOTE 
  875.            MOVE.W #0,ALTPf 
  876.            subq.w #1,2(a0) 
  877.            move.w 28(a0),d6 
  878.            tst.b 26(a0) 
  879.            beq octaves_on
  880.            tst.w 48(a0)
  881.            beq contbend
  882.            subq #1,48(a0)
  883.            bra octaves_on
  884. contbend:      addq #1,altpf  
  885.            clr.w d4
  886.            move.b 27(a0),d4 
  887.            move.w 42(a0),d5 
  888.            cmpi.b #2,26(a0) 
  889.            beq pbup
  890.          sub.w d4,d6
  891.            cmp.w d6,d5
  892.            bcs octaves_on
  893.            bra fbend
  894. pbup:          add.w d4,d6
  895.            cmp.w d6,d5
  896.            bcc octaves_on
  897. fbend:      move.w d5,d6
  898.            CLR.B 26(A0) 
  899. octaves_on:
  900.            cmpi.b #5,38(a0) 
  901.            bls ch_mod_on 
  902.            addq.b #1,altpf
  903.            cmpi.b #8,38(a0) 
  904.            bcc upoct
  905.            asl #1,d6  
  906.            addq.b #1,38(a0) 
  907.            bra send_altered_pitch
  908. upoct:      asr #1,d6
  909.            addq.b #1,38(a0)
  910.            cmpi.b #10,38(a0)
  911.            bne send_altered_pitch
  912.            move.b #6,38(a0) 
  913.            BRA SEND_ALTERED_PITCH
  914. ch_mod_on:
  915.            tst.b 38(a0) 
  916.            beq send_altered_pitch 
  917.            tst.w 44(a0) 
  918.            beq check_speed
  919.            subq #1,44(a0)
  920.            bra send_altered_pitch
  921. check_speed:      tst.b (a0)
  922.            beq contmod
  923.            subq.b #1,(a0)
  924.            bra send_altered_pitch
  925. contmod:
  926.            move.b 1(a0),(a0) 
  927.            addq.b #1,altpf 
  928.            cmpi.b #3,38(a0)
  929.            bcc addmod
  930.            move.w 34(a0),d4
  931.            sub.w d4,d6 
  932.            addq.b #1,38(a0) 
  933.            bra send_altered_pitch
  934. addmod:      move.w 36(a0),d4
  935.            add.w d4,d6
  936.            addq.b #1,38(a0)
  937.            cmpi.b #5,38(a0)
  938.            bne send_altered_pitch
  939.            move.b #1,38(a0) 
  940.         SEND_ALTERED_PITCH: tst.w (ALTPF)
  941.            beq send_env
  942.            move.w d6,28(a0)
  943.            move.b d1,(a4)
  944.            move.b 28(a0),2(a4)
  945.            move.b d0,(a4)
  946.            move.b 29(a0),2(a4)
  947. send_env:  
  948.            tst.w hold_val_p
  949.         beq no_hold
  950.         move.b hold_val_p,(a4)
  951.         move.b hold_val_p+1,2(a4)
  952. no_hold:
  953.            move.l 8(a0),a2
  954.            cmpi.b #255,(a2) 
  955.            bne more_env
  956.         sub.l #2,a2
  957. more_env:
  958.         move.w fx_flag,d4
  959.         and.w curr_chann,d4    
  960.         cmpi.w #0,d4
  961.         beq music_only
  962.            move.b d2,(a4)
  963.            move.b (a2)+,d5
  964.            move.b d5,2(a4) 
  965.            move.b #7,(a4) 
  966.            and.b d7,(a5)
  967.            move.b (a2)+,d2
  968.         cmpi.w #1,d4
  969.         beq cont_env
  970.         asl.b #1,d2
  971.         cmpi.w #2,d4
  972.         beq cont_env 
  973.         asl.b #1,d2
  974. cont_env:
  975.            or.b d2,(a5)
  976.            move.b (a5),2(a4)
  977.            move.l a2,8(a0)  
  978. no_more_envelope: rts
  979. music_only:
  980.   CMP.B #$2f,$FFFC02    ; check `v` key for music volume change
  981.         bne no_vol_change    
  982.         subq.w #1,vol_count
  983.         tst.w vol_count
  984.         bne no_vol_change
  985.         move.w #50,vol_count    
  986.         subq.b #1,curr_comp
  987.         bcc no_vol_change
  988.         move.b #13,curr_comp
  989. no_vol_change
  990.            move.b d2,(a4)
  991.            move.b (a2)+,d5
  992.            sub.b curr_comp,d5 
  993.            move.b d5,2(a4) 
  994.            move.b #7,(a4) 
  995.            and.b d7,(a5)
  996.            move.b (a2)+,d2
  997.            or.b d2,(a5)
  998.            move.b (a5),2(a4)
  999.            move.l a2,8(a0)  
  1000.          rts
  1001. get_new_note:     move.l 4(a0),a1
  1002.            move.w 46(a0),44(a0)
  1003. CONTROL_RET:
  1004.            clr.l d3
  1005.            move.b (a1)+,d3 
  1006.            cmpi.b #m,d3  
  1007.            beq control_char 
  1008.            cmpi.b #253,d3
  1009.            beq do_rest
  1010. legal_note:
  1011.             tst.b 78(a0)
  1012.              bne noretrigg
  1013.             move.l 20(a0),8(a0) 
  1014. noretrigg
  1015.            jsr send_env
  1016.            move.b d1,(a4) 
  1017.            move.b d3,2(a4) 
  1018.            move.b d3,28(a0) 
  1019.            move.b d0,(a4)
  1020.            move.b (a1),29(a0) 
  1021.            move.b (a1)+,2(a4)
  1022.            move.w (a1)+,2(a0) 
  1023.            subq #1,2(a0) 
  1024.            move.l a1,4(a0) 
  1025.            rts
  1026. do_rest:
  1027.          move.b d2,(a4)
  1028.           clr.b 2(a4) 
  1029.           move.l #restenv,8(a0)  
  1030.           addq #1,a1
  1031.            move.w (a1)+,2(a0)
  1032.            subq #1,2(a0)
  1033. in_line_ret
  1034.            move.l a1,4(a0)
  1035.            rts
  1036. drum_chan:
  1037.            move.l 20(a0),8(a0) 
  1038.            jsr send_env
  1039.            move.b #6,(a4)
  1040.            move.b (a1)+,2(a4) 
  1041.            move.w (a1)+,2(a0) 
  1042.            subq #1,2(a0) 
  1043.            move.l a1,4(a0) 
  1044.            rts
  1045. restenv:      dc.b 0,0,255
  1046.    even
  1047. control_char:
  1048.            move.b (a1),d3 
  1049.           move.l #jumptable,a2
  1050.           MOVE.L (A2,D3),A3
  1051.           jmp (a3)
  1052. jumptable:
  1053.            dc.l get_new_patt
  1054.            dc.l get_env
  1055.            dc.l do_sound
  1056.            dc.l check_pbend
  1057.            dc.l modulation
  1058.            dc.l set_octaves
  1059.            dc.l do_modoff
  1060.            dc.l do_bend_off
  1061.            dc.l do_inline
  1062.            dc.l do_end_fx
  1063.            dc.l hold_val
  1064.            dc.l do_hold_off
  1065.  
  1066.  
  1067. get_env:      addq #1,a1
  1068.         move.b (a1),78(a0)
  1069.         addq #2,a1
  1070.            move.l (a1),20(a0) 
  1071.            addq #4,a1  
  1072.            bra control_ret
  1073. do_sound:
  1074.            nop     
  1075.            nop 
  1076. check_pbend:
  1077.           addq #1,a1
  1078.           MOVE.W (A1)+,26(A0) 
  1079.           move.w (a1)+,42(a0) 
  1080.           move.w (a1)+,48(a0) 
  1081.           bra control_ret
  1082. modulation:
  1083.           addq #1,a1
  1084.           MOVE.W (A1)+,(A0)
  1085.           move.l (a1)+,34(a0) 
  1086.           MOVE.W (A1),44(A0) 
  1087.           move.w (a1)+,46(a0) 
  1088.           move.b #2,38(a0) 
  1089.           bra control_ret
  1090. set_octaves:
  1091.           addq #1,a1
  1092.           move.b #9,38(a0) 
  1093.           bra control_ret
  1094. do_modoff:      clr.b 38(a0)
  1095.           addq #1,a1
  1096.           bra control_ret
  1097. do_bend_off:     addq #1,a1
  1098.           clr.b 26(a0)
  1099.           bra control_ret
  1100. do_inline:
  1101.          addq.l  #1,a1
  1102.  
  1103. in_loop
  1104.          cmpi.b #255,(a1)
  1105.          beq fin_in
  1106.          cmpi.b #254,(a1)
  1107.          beq fin_in1
  1108.         move.b (a1)+,(a4)
  1109.         move.b (a1)+,2(a4)
  1110.         bra in_loop 
  1111. fin_in
  1112.         addq  #2,a1
  1113.         bra control_ret
  1114.     
  1115. fin_in1
  1116.         addq  #2,a1
  1117.         bra in_line_ret
  1118.  
  1119.  
  1120. hold_val:
  1121.         addq #1,a1
  1122.         move.w (a1)+,hold_val_p
  1123.         bra control_ret
  1124. do_hold_off:
  1125.         move.w #0,hold_val_p
  1126.         addq #1,a1
  1127.         bra control_ret
  1128. do_end_fx:
  1129.  
  1130.         move.b d2,(a4)
  1131.          move.b #0,2(a4) 
  1132.  
  1133.         cmpi.w #1,curr_chann    
  1134.         bne efx2
  1135.         bclr.b #0,fx_flag+1
  1136. clear_fx_1    move.l #20,d0
  1137. clear_loop1:    move.l #0,(a0)+    
  1138.         dbra d0,clear_loop1
  1139.         rts 
  1140. efx2:        cmpi.w #2,curr_chann    
  1141.         bne efx3
  1142.         bclr.b #1,fx_flag+1
  1143.         move.l #20,d0
  1144. clear_loop2:    move.l #0,(a0)+    
  1145.         dbra d0,clear_loop2
  1146.         rts
  1147. efx3:        bclr.b #2,fx_flag+1
  1148.         move.l #20,d0
  1149. clear_loop3:    move.l #0,(a0)+    
  1150.         dbra d0,clear_loop3
  1151.         rts
  1152.            even
  1153. vars1:
  1154.            dc.w 0  
  1155. intc1:      dc.w 0
  1156. pattr1:      dc.l 0
  1157.            dc.l 0
  1158. songr1:      dc.l 0
  1159. wsong1:      dc.l 0
  1160.            dc.l 0
  1161.            dc.b 0,0
  1162.            dc.b 0,0
  1163.            dc.w 0
  1164.            dc.l 0
  1165.            dc.l 0
  1166.            dc.b 0,0
  1167.            dc.w 0
  1168.            dc.w 0
  1169.            dc.w 0
  1170.            dc.w 0
  1171.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1172. vars2:
  1173.            dc.w 0
  1174. intc2:      dc.w 0
  1175. pattr2:      dc.l 0
  1176.            dc.l 0
  1177. songr2:      dc.l 0
  1178. wsong2:      dc.l 0
  1179.            dc.l 0
  1180.            dc.b 0,0
  1181.            dc.b 0,0
  1182.            dc.w 0
  1183.            dc.l 0
  1184.            dc.l 0
  1185.            dc.b 0,0
  1186.            dc.w 0
  1187.            dc.w 0
  1188.            dc.w 0
  1189.            dc.w 0
  1190.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1191. vars3:
  1192.            dc.w 0
  1193. intc3:       dc.w 0
  1194. pattr3:      dc.l 0
  1195.            dc.l 0
  1196. songr3:      dc.l 0
  1197. wsong3:      dc.l 0
  1198.            dc.l 0
  1199.            dc.b 0,0
  1200.            dc.b 0,0
  1201.            dc.w 0
  1202.            dc.l 0
  1203.            dc.l 0
  1204.            dc.b 0,0
  1205.            dc.w 0
  1206.            dc.w 0
  1207.            dc.w 0
  1208.            dc.w 0
  1209.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1210. fxvars1:
  1211.            dc.w 0  
  1212. fxintc1:      dc.w 0
  1213. fxpattr1:      dc.l 0
  1214.            dc.l 0
  1215. fxsongr1:      dc.l 0
  1216. fxwsong1:      dc.l 0
  1217.            dc.l 0
  1218.            dc.b 0,0
  1219.            dc.b 0,0
  1220.            dc.w 0
  1221.            dc.l 0
  1222.            dc.l 0
  1223.            dc.b 0,0
  1224.            dc.w 0
  1225.            dc.w 0
  1226.            dc.w 0
  1227.            dc.w 0
  1228.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1229. fxvars2:
  1230.            dc.w 0
  1231. fxintc2:      dc.w 0
  1232. fxpattr2:      dc.l 0
  1233.            dc.l 0
  1234. fxsongr2:      dc.l 0
  1235. fxwsong2:      dc.l 0
  1236.            dc.l 0
  1237.            dc.b 0,0
  1238.            dc.b 0,0
  1239.            dc.w 0
  1240.            dc.l 0
  1241.            dc.l 0
  1242.            dc.b 0,0
  1243.            dc.w 0
  1244.            dc.w 0
  1245.            dc.w 0
  1246.            dc.w 0
  1247.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1248. fxvars3:
  1249.            dc.w 0
  1250. fxintc3:       dc.w 0
  1251. fxpattr3:      dc.l 0
  1252.            dc.l 0
  1253. fxsongr3:      dc.l 0
  1254. fxwsong3:      dc.l 0
  1255.            dc.l 0
  1256.            dc.b 0,0
  1257.            dc.b 0,0
  1258.            dc.w 0
  1259.            dc.l 0
  1260.            dc.l 0
  1261.            dc.b 0,0
  1262.            dc.w 0
  1263.            dc.w 0
  1264.            dc.w 0
  1265.            dc.w 0
  1266.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1267.  
  1268. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1269.  
  1270.  
  1271. HERExx
  1272. song_table:
  1273.     dc.l song1,song2,song3
  1274.     dc.l song4,song5,song6
  1275.     dc.l song13,song14,song15
  1276. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1277.  
  1278.  
  1279.     EVEN
  1280. chfx_table:
  1281.  
  1282.     dc.l key_click
  1283.     dc.l exp1    
  1284.     dc.l exp1a    
  1285.     dc.l exp1b    
  1286.     dc.l exp2
  1287.     dc.l exp3
  1288.     dc.l gun_shot
  1289.     dc.l gun_shota
  1290.     dc.l grenade_launch
  1291.  
  1292.  
  1293. curr_fx            equ 1
  1294. max_chfx        dc.l 10
  1295.  
  1296.  
  1297.  
  1298. ;**********************************************
  1299.     even
  1300. key_click:
  1301.                            dc.b      m,new_env,trigg,0
  1302.                            dc.l      fx5_env
  1303.             dc.w    A05,2
  1304.             DC.B    M,inline,6,200,255,0
  1305.                            dc.B    m,endfx_patt
  1306.  
  1307. fx5_env:    dc.b 15,t1,9,t1,255,0
  1308. ;***********************************************
  1309.  
  1310.     even
  1311. exp1:
  1312.                            dc.b      m,new_env,trigg,0
  1313.                            dc.l      exp1_env
  1314.             dc.b    M,inline,6,31,254,0
  1315.             dc.w    50000,40
  1316.             dc.b    m,endfx_patt
  1317.  
  1318. exp1a:
  1319.                            dc.b      m,new_env,trigg,0
  1320.                            dc.l      exp1_env
  1321.             dc.b    M,inline,6,20,254,0
  1322.             dc.w    50000,40
  1323.             dc.b    m,endfx_patt
  1324.  
  1325. exp1b:
  1326.                            dc.b      m,new_env,trigg,0
  1327.                            dc.l      exp1_env
  1328.             dc.b    M,inline,6,4,254,0
  1329.             dc.w    50000,40
  1330.             dc.b    m,endfx_patt
  1331.  
  1332.  
  1333.  
  1334. exp2:
  1335.                            dc.b      m,new_env,trigg,0
  1336.                            dc.l      exp2_env
  1337.             dc.b    M,inline,6,31,255,0
  1338.             dc.w    0,1
  1339.             dc.b    m,inline,6,30,254,0
  1340.             DC.B    M,inline,6,30,254,0
  1341.             dc.b    m,inline,6,23,254,0
  1342.             dc.b    m,inline,6,22,254,0
  1343.             DC.w    60000,2
  1344.                            dc.b      m,new_env,trigg,0
  1345.                            dc.l      exp2_env
  1346.             DC.w    60000,27
  1347.             dc.b    m,inline,6,200,254,0
  1348.             dc.b    m,endfx_patt
  1349.  
  1350.  
  1351.  
  1352.     even
  1353. exp3:
  1354.                            dc.b      m,new_env,trigg,0
  1355.                            dc.l      exp1_env
  1356.             dc.b    M,inline,6,31,254,0
  1357.             dc.w    0,4
  1358.             dc.b    m,inline,6,30,254,0
  1359.             DC.B    M,inline,6,30,254,0
  1360.             dc.b    m,inline,6,29,254,0
  1361.             dc.b    m,inline,6,28,254,0
  1362.             dc.b    m,inline,6,27,254,0
  1363.             dc.b    m,inline,6,26,254,0
  1364.             dc.b    m,inline,6,25,254,0
  1365.             dc.b    m,inline,6,24,254,0
  1366.             dc.b    m,inline,6,23,254,0
  1367.             dc.b    m,inline,6,22,254,0
  1368.             DC.w    60000,2
  1369.                            dc.b      m,new_env,trigg,0
  1370.                            dc.l      exp1_env
  1371.             DC.w    20,50
  1372.             dc.b    m,inline,6,200,254,0
  1373.             dc.b    m,endfx_patt
  1374.  
  1375.  
  1376.  
  1377.  
  1378.  
  1379.  
  1380.  
  1381.  
  1382.  
  1383.  
  1384.     even
  1385. exp1_env:    dc.b 15,n1,15,n1,15,t1,15,n1,15,n1,15,n1,15,n1
  1386.         dc.b 15,n1,15,n1,15,b1,15,n1,15,n1,15,n1,15,n1,15,N1,15,N1
  1387.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  1388.         dc.b 12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1
  1389.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1
  1390.         dc.b 8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1
  1391.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1392.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1393.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1394.         DC.B 0,N1,255
  1395.  
  1396. exp2_env:    dc.b 15,n1,14,n1,13,b1,12,n1,11,n1,10,n1,7,n1
  1397.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1398.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1399.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1400.         DC.B 0,N1,255
  1401.  
  1402.  
  1403. gun_shot:
  1404.                            dc.b      m,new_env,trigg,0
  1405.                            dc.l      gun_env
  1406.             dc.b    M,inline,6,15,255,0
  1407.             dc.w    0,1
  1408.             dc.b    m,inline,6,18,254,0
  1409.             DC.B    M,inline,6,30,254,0
  1410.             dc.b    m,inline,6,23,254,0
  1411.             dc.b    m,inline,6,12,254,0
  1412.             DC.w    0,2
  1413.                            dc.b      m,new_env,trigg,0
  1414.                            dc.l      gun_env
  1415.             DC.w    0,9
  1416.             dc.b    m,inline,6,200,254,0
  1417.             dc.b    m,endfx_patt
  1418.  
  1419.  
  1420. gun_shota:
  1421.                            dc.b      m,new_env,trigg,0
  1422.                            dc.l      gun_env
  1423.             dc.b    M,inline,6,15,255,0
  1424.             dc.b    m,inline,6,12,254,0
  1425.             DC.w    0,9
  1426.             dc.b    m,inline,6,200,254,0
  1427.             dc.b    m,endfx_patt
  1428.  
  1429.  
  1430. gun_env:    dc.b 15,n1,14,n1,13,b1,12,n1,11,n1,10,n1,7,n1
  1431.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1432.         DC.B 0,N1,255
  1433.  
  1434. ;******************************************
  1435.     even
  1436. grenade_launch    
  1437.                            dc.b      m,new_env,trigg,0
  1438.                            dc.l      grenadel_env
  1439.             dc.b    M,inline,6,10,254,0
  1440.               dc.b     m,pbend,up,10
  1441.               dc.w     c04,0
  1442.             dc.w    c03,40
  1443.             dc.b    m,endfx_patt
  1444.  
  1445.     even
  1446.  
  1447. fx7_env:    dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1448.         dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1449.         dc.b 14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1
  1450.         dc.b 12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1
  1451.         dc.b 10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1
  1452.         dc.b 8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1
  1453.         dc.b 6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1
  1454.         dc.b 4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1
  1455.         dc.b 2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1
  1456.         DC.B 0,b1,255
  1457.  
  1458. grenadel_env
  1459.         dc.b 7,B1,7,B1,7,B1
  1460.         dc.b 7,B1,7,B1,7,B1
  1461.         dc.b 9,B1,9,B1,9,B1
  1462.         dc.b 9,B1,9,B1,9,B1
  1463.         dc.b 10,B1,10,B1
  1464.         dc.b 10,B1,10,B1
  1465.         dc.b 10,B1,10,B1
  1466.         dc.b 10,B1,10,B1
  1467.         dc.b 11,B1,11,B1
  1468.         dc.b 11,B1,11,B1
  1469.         dc.b 12,B1,12,B1
  1470.         dc.b 12,B1,12,B1
  1471.         dc.b 13,B1,13,B1
  1472.         dc.b 14,B1,14,B1
  1473.         dc.b 13,B1,13,B1
  1474.         dc.b 14,B1,14,B1
  1475.         dc.b 15,B1,15,B1,15,B1,15,B1,15,n1,15,N1
  1476.         DC.B 255,0
  1477.  
  1478.  
  1479.  
  1480.  
  1481.     EVEN
  1482. ;**************************************************
  1483.  
  1484.  
  1485.  
  1486.  
  1487.     even
  1488. ;;;;;;;;;;;;;;;;;;;;;    JAGGED  Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1489.  
  1490.  
  1491.  
  1492.   ;   dave
  1493.  
  1494. song1:    
  1495.     
  1496.     dc.l    p3,p41,p41c,p1,p1,p2
  1497.     dc.l    p1,p1
  1498.     dc.l    end_song
  1499. song2:
  1500.  
  1501.     dc.l    p3a,p41a,p41d,p10,p10l,p11,p11
  1502.     dc.l    p10,p10l
  1503.     dc.l    end_song
  1504. ;song3:
  1505.  
  1506. ;    dc.l    pr,pr,pr,pr,p41b,p41e,p20,p20,p12
  1507. ;    dc.l    p20,p20
  1508. ;    dc.l       end_song
  1509. song3:
  1510.     
  1511.         ;dc.l prf
  1512.  
  1513.     dc.l    pr,pr,pr,pr
  1514.     dc.l    pr,pr,p40,p40,p42
  1515.     dc.l    p40,p40
  1516.     dc.l       end_song
  1517.  
  1518. pr: 
  1519.       dc.w rest,cr*4
  1520.       dc.b m,end_patt
  1521.  
  1522. pr1: 
  1523.       dc.w rest,cr*1
  1524.       dc.b m,end_patt
  1525.  
  1526. pr2: 
  1527.       dc.w rest,cr*2
  1528.       dc.b m,end_patt
  1529.  
  1530. prf: 
  1531.       ;dc.w rest,cr*100
  1532.       dc.b m,end_patt
  1533.  
  1534.  
  1535. p1:             
  1536.  
  1537.         dc.b  m,new_env,trigg,0
  1538.         dc.l  mono_env1
  1539.  
  1540.         dc.w     a04,cr*3,c05,cr,c05,cr,d05,cr*3,e05,cr*2
  1541.     dc.w    b05,cr*3,a05,q,g05,q,a05,cr*4
  1542.     dc.w    g05,cr*3,e05,cr,e05,cr*2,d05,cr*3,c05,cr
  1543.     dc.w    b04,cr,c05,cr,a04,cr*2
  1544.     dc.b     m,end_patt
  1545.  
  1546.  
  1547. p2:             
  1548.         dc.b  m,new_env,trigg,0
  1549.         dc.l  mono_env1
  1550.         dc.w     c05,cr*2,a04,cr*2,g04,q,a04,q,g04,cr,e04,cr*2
  1551.     dc.w    d04,q,e04,q,d04,cr,b04,cr
  1552.     dc.w    a04,q,g04,q,a04,cr*4
  1553.  
  1554.         dc.w     c05,cr*2,a05,cr*2,g05,q,a05,q,g05,cr,e05,cr*2
  1555.     dc.w    d05,q,e05,q,d05,q,c05,q,b04,q
  1556.     dc.w    a04,q,g04,cr,a04,cr*2-sq
  1557.  
  1558.     dc.w    d05,sq,e05,sq,g05,sq,rest,cr+q
  1559.  
  1560.  
  1561.     dc.b m,end_patt
  1562.  
  1563.  
  1564. p3:             
  1565.  
  1566.         dc.b  m,new_env,trigg,0
  1567.         dc.l  mono_env1
  1568.         dc.w     e05,cr,a05,cr,e05,cr,d05,q,c05,q,b04,q,a04,q,g04,cr,a04,cr*2
  1569.         dc.w     c05,q,d05,q,e05,q,f05,q,e05,q,d05,q,c05,cr,a04,cr,g04,cr,a04,cr*2
  1570.  
  1571.  
  1572.     dc.b m,end_patt
  1573.  
  1574.  
  1575. p3a:             
  1576.         dc.b  m,new_env,trigg,0
  1577.         dc.l  mono_env2
  1578.         dc.w     e02,cr,a02,cr,e02,cr,d02,q,c02,q,b01,q,a01,q,g01,cr,a01,cr*2
  1579.         dc.w     c02,q,d02,q,e02,q,f02,q,e02,q,d02,q,c02,cr,a01,cr,g01,cr,a01,cr*2
  1580.  
  1581.  
  1582.     dc.b m,end_patt
  1583.  
  1584.  
  1585.  
  1586. p10:             
  1587.         dc.b  m,new_env,trigg,0
  1588.         dc.l  mono_env2
  1589.         dc.w     a03,q,a04,q,a03,q,a04,q,a03,q,a04,q,a03,q,a04,q
  1590.         dc.w     a03,q,a04,q,a03,q,a04,q,a03,q,a04,q,a03,q,a04,q
  1591.         dc.w     a03,q,a04,q,a03,q,a04,q,a03,q,a04,q,a03,q,a04,q
  1592.         dc.w     a03,q,a04,q,a03,q,a04,q,a03,q,a04,q,a03,q,a04,q
  1593.         dc.w     a03,q,a04,q,a03,q,a04,q,a03,q,a04,q,a03,q,a04,q
  1594.         dc.w     a03,q,a04,q,a03,q,a04,q,a03,q,a04,q,a03,q,a04,q
  1595.         dc.w     a03,q,a04,q,a03,q,a04,q,a03,q,a04,q,a03,q,a04,q
  1596.         dc.w     a03,q,a04,q,a03,q,a04,q,a03,q,a04,q,a03,q,a04,q
  1597.  
  1598.  
  1599.  
  1600.       dc.b m,end_patt
  1601.  
  1602.  
  1603. p10l:             
  1604.         dc.b  m,new_env,trigg,0
  1605.         dc.l  mono_env2 
  1606.        dc.w     e04,q,a03,q,e04,q,a03,q,e04,q,a03,q,e04,q,a03,q
  1607.        dc.w     e04,q,a03,q,e04,q,a03,q,e04,q,a03,q,e04,q,a03,q
  1608.        dc.w     e04,q,a03,q,e04,q,a03,q,e04,q,a03,q,e04,q,a03,q
  1609.        dc.w     e04,q,a03,q,e04,q,a03,q,e04,q,a03,q,e04,q,a03,q
  1610.        dc.w     e04,q,a03,q,e04,q,a03,q,e04,q,a03,q,e04,q,a03,q
  1611.        dc.w     e04,q,a03,q,e04,q,a03,q,e04,q,a03,q,e04,q,a03,q
  1612.        dc.w     e04,q,a03,q,e04,q,a03,q,e04,q,a03,q,e04,q,a03,q
  1613.        dc.w     e04,q,a03,q,e04,q,a03,q,e04,q,a03,q,e04,q,a03,q
  1614.  
  1615.  
  1616.  
  1617.       dc.b m,end_patt
  1618.  
  1619.  
  1620. p11:             
  1621.         dc.b  m,new_env,trigg,0
  1622.         dc.l  mono_env2
  1623.     dc.w rest,cr*16
  1624.  
  1625.     dc.b m,end_patt
  1626.  
  1627.  
  1628. p12:             
  1629.         dc.b  m,new_env,trigg,0
  1630.         dc.l  mono_env3
  1631.         dc.w     f02,cr*2,c03,cr*2,a02,cr*2,c03,cr*2
  1632.         dc.w     g02,cr*2,b02,cr*2,a02,cr*2,c03,cr*2
  1633.  
  1634.  
  1635.         dc.w     f02,cr*2,c03,cr*2,a02,cr*2,c03,cr*2
  1636.         dc.w     g02,cr*2,b02,cr*2,a02,cr*2,c03,cr*2
  1637.  
  1638.  
  1639.     dc.b m,end_patt
  1640.  
  1641.  
  1642.  
  1643.  
  1644.  
  1645.  
  1646.  
  1647. p20:             
  1648.         dc.b  m,new_env,trigg,0
  1649.         dc.l  mono_env3
  1650.         dc.w     a01,cr*2,e01,cr*2,a01,cr,e01,cr,a01,cr*2
  1651.         dc.w     a01,cr*2,e01,cr*2,a01,cr,e01,cr,a01,cr*2
  1652.         dc.w     a01,cr*2,e01,cr*2,a01,cr,e01,cr,a01,cr*2
  1653.         dc.w     a01,cr*2,e01,cr*2,a01,q,a01,q,e01,q,e01,q
  1654.     dc.w    a01,cr*2
  1655.  
  1656.       dc.b m,end_patt
  1657.  
  1658.  
  1659. p40:             
  1660.         dc.b  m,new_env,trigg,0
  1661.         dc.l  mono_env3
  1662.         dc.w     a02,sq,a02,sq,b02,sq,b02,sq,c04,q,d04,q,e04,cr,a04,cr
  1663.     dc.w    a04,cr,g04,cr,e04,cr*2
  1664.     dc.w    a03,sq,a03,sq,b03,sq,b03,sq,c04,q,d04,q,e04,cr,a04,cr,c04,cr
  1665.     dc.w    b03,q,g04,q,a04,cr*2
  1666.     dc.w    a03,sq,a03,sq,b03,sq,b03,sq,c04,q,d04,q,e04,cr,a04,cr,a04,cr
  1667.     dc.w    g04,cr,e04,cr*2,d04,q,e04,q,d04,q,c04,q,b04,cr,a03,q,g03,q
  1668.     dc.w    a03,cr,g03,cr,a03,cr*2
  1669.     dc.b     m,end_patt
  1670.  
  1671.  
  1672. p41
  1673.  
  1674.         dc.b  m,new_env,trigg,0
  1675.         dc.l  mono_env1
  1676.         dc.w     a03,q,b03,q,c04,q,d04,q,e04,cr,a04,cr
  1677.     dc.w    e04,cr,a04,cr
  1678.  
  1679.     dc.b    m,end_patt
  1680.  
  1681.  
  1682. p41a
  1683.         dc.b  m,new_env,trigg,0
  1684.         dc.l  mono_env2
  1685.         dc.w     rest,cr,a02,q,b02,q,c03,q,d03,q,e03,cr,a03,cr
  1686.     dc.w    c03,cr
  1687.     dc.b    m,end_patt
  1688.  
  1689.  
  1690. p41b
  1691.         dc.b  m,new_env,trigg,0
  1692.         dc.l    mono_env3
  1693.         dc.w     rest,cr*2,a03,q,b03,q,c04,q,d04,q,e04,cr,a04,cr
  1694.     dc.b    m,end_patt
  1695.  
  1696.  
  1697. p41c
  1698.         dc.b  m,new_env,trigg,0
  1699.         dc.l  mono_env1
  1700.         dc.w     c04,sq,b04,sq,c05,sq,b04,sq,c05,cr
  1701.     dc.b    m,end_patt
  1702.  
  1703.  
  1704. p41d
  1705.         dc.b  m,new_env,trigg,0
  1706.         dc.l  mono_env2
  1707.         dc.w     a05,sq,g05,sq,a05,sq,g05,sq,a05,cr
  1708.     dc.b    m,end_patt
  1709.  
  1710.  
  1711. p41e
  1712.         dc.b  m,new_env,trigg,0
  1713.         dc.l  mono_env3
  1714.         dc.w     e05,sq,d05,sq,e05,sq,d05,sq,e05,cr
  1715.     dc.b    m,end_patt
  1716.  
  1717.  
  1718.  
  1719. p42:             
  1720.         dc.b  m,new_env,trigg,0
  1721.         dc.l  mono_env3
  1722.         dc.w     f04,q,g04,q,a04,q,b04,q,c05,cr,a05,cr,a05,cr,g05,cr,a05,cr*2
  1723.         dc.w     g04,q,a04,q,b04,q,d05,q,g05,cr,a05,cr,a05,cr,g05,cr,a05,cr*2
  1724.         dc.w     f04,q,g04,q,a04,q,b04,q,c05,cr,a05,cr,a05,cr,g05,cr,a05,cr*2
  1725.         dc.w     g04,q,a04,q,b04,q,d05,q,g05,cr,a05,cr,a05,cr,g05,cr,a05,cr*2
  1726.  
  1727.       dc.b m,end_patt
  1728.  
  1729.  
  1730.     even
  1731.  
  1732. ;***************************************
  1733.  
  1734. ;line of fire tune2
  1735.  
  1736. song4:
  1737.   dc.l p10b,p10b,p10b,p10b,p10b,p10b,p10b,p10bx
  1738.   dc.l end_song
  1739.  
  1740.  
  1741. song5:
  1742.   dc.l p1b,p1b,p2b,p1b,p3b,p1b
  1743.   dc.l end_song
  1744.  
  1745. song6:
  1746.   dc.l p1b3,p1b3,p2b3,p1b3,p3b3,p1b3
  1747.   dc.l p1b3x,p1b3x,p2b3x,p1b3x,p3b3,p1b3x
  1748.  
  1749.  
  1750.   dc.l end_song
  1751.  
  1752.  
  1753.     
  1754.  
  1755. ;*************************************************
  1756.  
  1757. p1b:
  1758.   dc.b m,new_env,trigg,0
  1759.   dc.l bass_env
  1760.   dc.w c02,sq,c02,sq,c03,q,bb02,q,a02,q,g02,q,a02,sq
  1761.   dc.w bb02,q+sq,g02,sq,g02,sq
  1762.   dc.w c02,sq,c02,sq,c03,q,bb02,q,a02,sq,g02,sq,rest,cr*2
  1763.   dc.b m,end_patt
  1764.  
  1765.  
  1766. p2b:             
  1767.   dc.b m,new_env,trigg,0
  1768.   dc.l bass_env
  1769.   dc.w f02,sq,f02,sq,f03,q,eb03,q,d03,q,c03,q,d03,sq
  1770.   dc.w eb03,q+sq,c03,sq,c03,sq
  1771.   dc.w f02,sq,f02,sq,f03,q,eb03,q,d03,sq,c03,sq,rest,cr*2
  1772.   dc.b m,end_patt
  1773.  
  1774.  
  1775.  
  1776.  
  1777.  
  1778. p3b:
  1779.  
  1780.   dc.b m,new_env,trigg,0
  1781.   dc.l bass_env
  1782.   dc.w g02,sq,g02,sq,d03,q,g02,q,b02,sq,b02,sq
  1783.   dc.w g02,sq,g02,sq,d03,sq,d03,sq,g02,sq,g02,sq
  1784.   dc.w b02,sq,b02,sq,f02,sq,f02,sq,c03,q,f02,q,a02,sq,a02,sq
  1785.   dc.w f02,sq,f02,sq,c03,sq,c03,sq,f02,sq,f02,sq,a02,sq,a02,sq
  1786.   dc.b m,end_patt
  1787.  
  1788.  
  1789. p1b3:
  1790.   dc.b m,new_env,trigg,0
  1791.   dc.l bass_env3
  1792.   dc.w c03,sq,c03,sq,c04,q,bb03,q,a03,q,g03,q,a03,sq
  1793.   dc.w bb03,q+sq,g03,sq,g03,sq
  1794.   dc.w c03,sq,c03,sq,c04,q,bb03,q,a03,sq,g03,sq,rest,cr*2
  1795.   dc.b m,end_patt
  1796.  
  1797.  
  1798. p1b3x:
  1799.   dc.b m,new_env,trigg,0
  1800.   dc.l bass_env3
  1801.   dc.w c03,sq,c03,sq,c04,q,bb03,q,a03,q
  1802.   dc.b m,new_env,trigg,0
  1803.   dc.l blip_env
  1804.  
  1805.   dc.w c06,sq,c05,sq,g05,sq,g05,sq
  1806.   dc.w c06,sq,c05,sq,g05,sq,g05,sq
  1807.   dc.b m,new_env,trigg,0
  1808.   dc.l bass_env3
  1809.  
  1810.   dc.w c03,sq,c03,sq,c04,q,bb03,q,a03,sq,g03,sq,rest,cr*2
  1811.   dc.b m,end_patt
  1812.  
  1813.  
  1814.  
  1815. p2b3x:             
  1816.   dc.b m,new_env,trigg,0
  1817.   dc.l bass_env3
  1818.   dc.w f03,sq,f03,sq,f04,q,eb04,q,d04,q
  1819.   dc.b m,new_env,trigg,0
  1820.   dc.l blip_env
  1821.  
  1822.   dc.w c06,sq,c05,sq,f05,sq,g05,sq
  1823.   dc.w c06,sq,c05,sq,f05,sq,g05,sq
  1824.  
  1825.   dc.b m,new_env,trigg,0
  1826.   dc.l bass_env3
  1827.  
  1828.   dc.w f03,sq,f03,sq,f04,q,eb04,q,d04,sq,c04,sq,rest,cr*2
  1829.   dc.b m,end_patt
  1830.  
  1831.  
  1832. p2b3:             
  1833.   dc.b m,new_env,trigg,0
  1834.   dc.l bass_env3
  1835.   dc.w f03,sq,f03,sq,f04,q,eb04,q,d04,q,c04,q,d04,sq
  1836.   dc.w eb04,q+sq,c04,sq,c04,sq
  1837.   dc.w f03,sq,f03,sq,f04,q,eb04,q,d04,sq,c04,sq,rest,cr*2
  1838.   dc.b m,end_patt
  1839.  
  1840.  
  1841.  
  1842.  
  1843.  
  1844. p3b3:
  1845.  
  1846.   dc.b m,new_env,trigg,0
  1847.   dc.l bass_env3
  1848.   dc.w g03,sq,g03,sq,d04,q,g03,q,b03,sq,b03,sq
  1849.   dc.w g03,sq,g03,sq,d04,sq,d04,sq,g03,sq,g03,sq
  1850.   dc.w b03,sq,b03,sq,f03,sq,f03,sq,c04,q,f03,q,a03,sq,a03,sq
  1851.   dc.w f03,sq,f03,sq,c04,sq,c04,sq,f03,sq,f03,sq,a03,sq,a03,sq
  1852.   dc.b m,end_patt
  1853.  
  1854.  
  1855.  
  1856.  
  1857.  
  1858.  
  1859. p10b:     
  1860.       dc.b m,inline,6,200,255,0
  1861.       dc.b m,new_env,trigg,0
  1862.       dc.l bassde
  1863.       dc.b m,pbend,down,200
  1864.       dc.w c01,0
  1865.       dc.w e04,sq,e04,sq,e04,sq
  1866.  
  1867.       dc.b m,new_env,trigg,0
  1868.       dc.l hate
  1869.       dc.w g06,sQ
  1870.  
  1871.       dc.b m,new_env,trigg,0
  1872.       dc.l qclape
  1873.       dc.b m,pbend,down,69
  1874.       dc.w c01,0
  1875.       dc.w c04,sq
  1876.  
  1877.       dc.b m,new_env,trigg,0
  1878.       dc.l hate
  1879.       dc.w g06,sQ
  1880.  
  1881.       dc.b m,new_env,trigg,0
  1882.       dc.l bassde
  1883.       dc.b m,pbend,down,200
  1884.       dc.w c01,0
  1885.       dc.w e04,sq
  1886.  
  1887.       dc.b m,new_env,trigg,0
  1888.       dc.l hate
  1889.       dc.w g06,sQ,g06,sQ,g06,sQ
  1890.  
  1891.       dc.b m,new_env,trigg,0
  1892.       dc.l bassde
  1893.       dc.b m,pbend,down,200
  1894.       dc.w c01,0
  1895.       dc.w e04,sq,e04,sq
  1896.       dc.b m,new_env,trigg,0
  1897.       dc.l snaree
  1898.       dc.b m,pbend,down,69
  1899.       dc.w c01,0
  1900.       dc.w c05,sq
  1901.  
  1902.       dc.b m,new_env,trigg,0
  1903.       dc.l hate
  1904.       dc.w g06,sQ,g06,sQ,g06,sQ
  1905.  
  1906.       dc.b m,end_patt
  1907.  
  1908.  
  1909. p10bx:     
  1910.       dc.b m,inline,6,200,255,0
  1911.       dc.b m,new_env,trigg,0
  1912.       dc.l bassde
  1913.       dc.b m,pbend,down,200
  1914.       dc.w c01,0
  1915.       dc.w e04,sq,e04,sq,e04,sq
  1916.  
  1917.       dc.b m,new_env,trigg,0
  1918.       dc.l hate
  1919.       dc.w g06,sQ
  1920.  
  1921.       dc.b m,new_env,trigg,0
  1922.       dc.l qclape
  1923.       dc.b m,pbend,down,69
  1924.       dc.w c01,0
  1925.       dc.w c04,sq
  1926.  
  1927.       dc.b m,new_env,trigg,0
  1928.       dc.l hate
  1929.       dc.w g06,sQ
  1930.  
  1931.       dc.b m,new_env,trigg,0
  1932.       dc.l bassde
  1933.       dc.b m,pbend,down,200
  1934.       dc.w c01,0
  1935.       dc.w e04,sq
  1936.  
  1937.       dc.b m,new_env,trigg,0
  1938.       dc.l hate
  1939.       dc.w g06,sQ,g06,sQ,g06,sQ
  1940.  
  1941.       dc.b m,new_env,trigg,0
  1942.       dc.l bassde
  1943.       dc.b m,pbend,down,200
  1944.       dc.w c01,0
  1945.       dc.w e04,sq,e04,sq
  1946.       dc.b m,new_env,trigg,0
  1947.       dc.l snaree
  1948.       dc.b m,pbend,down,69
  1949.       dc.w c01,0
  1950.       dc.w c05,sq
  1951.  
  1952.       dc.b m,new_env,trigg,0
  1953.       dc.l rota1
  1954.       dc.b m,pbend,down,20
  1955.       dc.w c01,0
  1956.  
  1957.       dc.w g04,sQ,g04,sQ,g03,sQ
  1958.  
  1959.       dc.b m,end_patt
  1960.  
  1961.  
  1962.  
  1963.  
  1964.  even
  1965.  
  1966. **************************************************************
  1967.  
  1968.     ;;; WIN JINGLE
  1969.  
  1970. song13:        ;drums
  1971.     dc.l    p22f,prj
  1972.  
  1973.       dc.l     end_song
  1974.  
  1975. song14:        ;bass
  1976.     dc.l    p21f,prj
  1977.         DC.L     end_song
  1978.  
  1979. song15:        ;tune
  1980.         
  1981.     dc.l   p20f,prj
  1982.     dc.l     end_song
  1983.  
  1984.  
  1985. prj:
  1986.       dc.w rest,cr*1000
  1987.       dc.b m,end_patt
  1988.  
  1989.  
  1990. p20f:
  1991.       dc.b m,new_env,trigg,0
  1992.       dc.l marx_env
  1993.       dc.b m,modon,1,1
  1994.       dc.w 3,3,8
  1995.       dc.w bb04,q,c05,q,db05,q,d05,q,eb05,q,e05,q
  1996.     dc.w f05,q,gb05,q
  1997.       dc.b m,new_env,trigg,0
  1998.       dc.l bass_env3
  1999.     dc.w d03,q+sq,d04,q+sq,D03,cr,D03,sq,d03,sq
  2000.     dc.w f03,sq,d03,sq,f03,sq,a03,sq
  2001.            dc.w d03,q+sq,d04,q+sq,D03,cr
  2002.       dc.b m,end_patt
  2003.  
  2004.  
  2005.  
  2006.  
  2007.  
  2008.       dc.b m,end_patt
  2009.  
  2010.  
  2011. p21f:
  2012.       dc.b m,new_env,trigg,0
  2013.       dc.l bass_env
  2014.       dc.b m,modon,1,1
  2015.       dc.w 3,3,8
  2016.       dc.w bb02,q,c03,q,db03,q,d03,q,eb03,q,e03,q
  2017.     dc.w f03,q,gb03,q
  2018.       dc.b m,new_env,trigg,0
  2019.       dc.l bass_env
  2020.     dc.w d02,q+sq,d03,q+sq,D02,cr,D02,sq,d02,sq
  2021.     dc.w f02,sq,d02,sq,f02,sq,a02,sq
  2022.            dc.w d02,q+sq,d03,q+sq,D02,cr
  2023.       dc.b m,end_patt
  2024.  
  2025.  
  2026. p22f:
  2027.       dc.b m,new_env,trigg,0
  2028.       dc.l rota1
  2029.       dc.w c02,q,c02,q,c02,q,c02,q,c02,q,c02,q,c02,q,c02,q
  2030.     
  2031.     dc.w d02,q+sq,d03,q+sq,D02,cr,D02,sq,d02,sq
  2032.     dc.w f02,sq,d02,sq,f02,sq,a02,sq
  2033.            dc.w d02,q+sq,d03,q+sq,D02,cr
  2034.  
  2035.  
  2036.  
  2037.       dc.b m,end_patt
  2038.  
  2039.  
  2040.     EVEN
  2041. ;****************************************************************
  2042.  
  2043.  
  2044.  
  2045. bassde: dc.b 15,b1,14,t1,14,t1,13,t1,13,t1,5,t1
  2046.   dc.b 2,t1,0,t1,255
  2047.     even
  2048. bass_env: dc.b 12,n2,15,t2,15,t2,15,t2,14,t2,14,t2
  2049.     dc.b 13,t2,11,t2,10,t2,10,t2,9,t2,8,t2,7,t2,6,t2,255
  2050.     even
  2051. bass_envt1: dc.b 12,n1,15,t1,15,t1,15,t1,14,t1,14,t1
  2052.     dc.b 13,t1,11,t1,10,t1,10,t1,9,t1,8,t1,7,t1,6,t1,255
  2053.     even
  2054. bass_envt3: dc.b 12,n3,15,t3,15,t3,15,t3,14,t3,14,t3
  2055.     dc.b 13,t3,11,t3,10,t3,10,t3,9,t3,8,t3,7,t3,6,t3,255
  2056.     even
  2057. mono:     dc.b 13,t3,12,t3,255
  2058. mono_env3:
  2059.     dc.b 14,t3,13,t3,13,t3,13,t3,13,t3
  2060.     dc.b 12,t3,12,t3,12,t3,12,t3,12,t3,12,t3,12,t3,12,t3
  2061.         dc.b 11,t3,11,t3,11,t3,11,t3,10,t3,10,t3,10,t3,10,t3
  2062.         dc.b 9,t3,9,t3,9,t3,9,t3,9,t3,9,t3,9,t3,9,t3,255
  2063.     even
  2064. mono_env2:
  2065.     dc.b 14,t2,13,t2,13,t2,13,t2,13,t2
  2066.     dc.b 12,t2,12,t2,12,t2,12,t2,12,t2,12,t2,12,t2,12,t2
  2067.         dc.b 11,t2,11,t2,11,t2,11,t2,10,t2,10,t2,10,t2,10,t2
  2068.         dc.b 9,t2,9,t2,9,t2,9,t2,9,t2,9,t2,9,t2,9,t2,255
  2069.     even
  2070.  
  2071. mono_env1:
  2072.     dc.b 14,t1,13,t1,13,t1,13,t1,13,t1
  2073.     dc.b 12,t1,12,t1,12,t1,12,t1,12,t1,12,t1,12,t1,12,t1
  2074.         dc.b 11,t1,11,t1,11,t1,11,t1,10,t1,10,t1,10,t1,10,t1
  2075.         dc.b 9,t1,9,t1,9,t1,9,t1,9,t1,9,t1,9,t1,9,t1,255
  2076.     even
  2077.  
  2078.  
  2079. snaree:     dc.b 15,b1,15,b1,15,b1,15,b1,13,b1,13,b1
  2080.   dc.b 11,b1,11,t1,6,b1,5,t1,5,b1,5
  2081.   dc.b t1,6,b1,6,t1,6
  2082.   dc.b b1,5,t1,255
  2083.     even
  2084. hate:     dc.b 13,n1,0,n1,255
  2085.  
  2086.  
  2087.  
  2088.  
  2089.  
  2090.  
  2091.  
  2092.  
  2093. ;bassa_env2:    dc.b 15,t2,15,t2,0,t2,255
  2094. ;ash1:     dc.b 0,t1,255
  2095. ;abassde:     dc.b 15,b1,15,t1,15,t1,15,t1,7,t1
  2096.       dc.b 3,t1,0,t1,255
  2097. ;abass_env:    dc.b 15,t2,15,t2,15,t2,15,t2
  2098.       dc.b 15,t2,15,t2
  2099.       dc.b 0,t2,255
  2100. ;ablipa_env:    dc.b 15,t3,15,t3,13,t3,11,t3
  2101.       dc.b 15,t3,15,t3,13,t3,11,t3,0,t3,255
  2102. ;blip_env2:    dc.b 15,t2,15,t2,13,t2,11,t2
  2103.       dc.b 15,t2,15,t2,13,t2
  2104.       dc.b 11,t2,0,t2,255
  2105. ;piano_env2:    dc.b 15,t3,15,t3,15,t3,14,t3,3,t3,12,t3,11
  2106.       dc.b t3,10,t3,15,t3,14,t3,13,t3,12,t3,12,t3,11
  2107.       dc.b t3,10,t3,9,t3,8,t3,7,t3,7,t3,6,t3,5,t3,4
  2108.       dc.b t3,3,t3,2,t3,1,t3,0,t3,255
  2109. ;apaiano_env:    dc.b 15,t3,15,t3,15,t3,15,t3,14,t3
  2110.       dc.b 13,t3,13,t3,13,t3,13,t3,13,t3
  2111.       dc.b 13,t3,12,t3,12,t3,11,t3
  2112.       dc.b 11,t3,10,t3,9,t3,8,t3,7,t3,6,t3,255
  2113. ;apaiano_envt:    dc.b 15,t3,15,t3,14,t3,13,t3,13,t3
  2114.       dc.b 12,t3,8,t3,7,t3,6,t3,6,t3
  2115.       dc.b 8,t3,255
  2116. ;apaiano_drum:    dc.b 15,t1,15,t1,15,t1,15,t1,14,t1
  2117.       dc.b 13,t1,13,t1,13,t1,13,t1,13,t1
  2118.      dc.b 13,t1,12,t1,12,t1,11,t1
  2119.       dc.b 11,t1,10,t1,9,t1,8,t1,7,t1,6,t1
  2120.       dc.b 5,t1,4,t1,3,t1,2,t1,1,t1,0,t1,255
  2121. ;apaiano_env3:    dc.b 15,t2,15,t2,15,t2,15,t2,14,t2
  2122.      dc.b 13,t2,13,t2,13,t2,13,t2,13,t2
  2123.       dc.b 13,t2,12,t2,12,t2,11,t2
  2124.       dc.b 11,t2,10,t2,9,t2,8,t2,7,t2,6,t2
  2125.       dc.b 5,t2,4,t2,3,t2,2,t2,1,t2,0,t2,255
  2126. ;amono_enva:    dc.b 14,t3,255
  2127. ;long_susa:     dc.b 15,t3,14,t3,255
  2128. ;arotoe:     dc.b 15,t3,15,t3,15,t3,14,t3,13,t3
  2129.       dc.b 13,t3,12,t3,12,t3,11,t3,10,t3
  2130.       dc.b 8,t3,7,t3,6
  2131.       dc.b t3,5,t3,4,t3,3,t3,2,t3,1,t3,0,t3,255
  2132. ;fast_env:     dc.b 14,t3,1,t3,14,t3,1,t3,14,t3,1,t3
  2133.        dc.b 14,t3,0,t3,255
  2134. ;asharpa_env:    dc.b 15,t3,15,t3,9,t3,15,t3,15,t3,10,t3
  2135.       dc.b 8,t3,7,t3,6,t3,5,t3,2,t3,2,t3,0,t3,255
  2136. rota3:     dc.b 15,t3,15,t3,15,t3,14,t3,13,t3
  2137.       dc.b 13,t3,12,t3,12,t3,11,t3,10,t3
  2138.       dc.b 8,t3,7,t3,6,t3,5,t3,4,t3
  2139.       dc.b 4,t3,3,t3,2,t3,1,t3,0,t3,255
  2140. ;rota2:     dc.b 15,t2,15,t2,15,t2,14,t2,13,t2
  2141.       dc.b 13,t2,12,t2,12,t2,11,t2,10,t2
  2142.       dc.b 8,t2,7,t2,6,t2,5,t2,4,t2
  2143.       dc.b 4,t2,3,t2,2,t2,1,t2,0,t2,255
  2144. rota1:     dc.b 15,t1,15,t1,15,t1,14,t1,13,t1
  2145.       dc.b 13,t1,12,t1,12,t1,11,t1,10,t1
  2146.       dc.b 8,t1,7,t1,6,t1,5,t1,4,t1
  2147.       dc.b 4,t1,3,t1,2,t1,1,t1,0,t1,255
  2148.  
  2149. ;snaree:     dc.b 15,b1,15,t1,15,t1,15,b1,15,t1,15,b1
  2150. ;  dc.b 12,t1,12,b1,9,t1,7,b1,7,t1,7
  2151. ;  dc.b b1,6,t1,6,b1,6
  2152. ;  dc.b t1,5,t1,255
  2153. ;sh1: dc.b 0,t1,255
  2154. ;bassde: dc.b 15,b1,15,t1,15,t1,15,t1,7,t1
  2155. ;  dc.b 3,t1,0,t1,255
  2156. ;bass_env: dc.b 15,t2,15,t2,15,t2,15,t2
  2157. ;  dc.b 15,t2,14,t2,13,t2,11,t2,9,t2
  2158. ;  dc.b 7,t2,255
  2159. bass_env3: dc.b 15,t3,15,t3,15,t3,15,t3
  2160.   dc.b 15,t3,14,t3,13,t3,11,t3,9,t3
  2161.   dc.b 7,t3,255
  2162.  
  2163. bass_env_short: dc.b 15,t2,15,t2,15,t2,15,t2
  2164.   dc.b 14,t2
  2165.   dc.b 7,t2,255
  2166.  
  2167.  
  2168.  
  2169. ;bass_envs: dc.b 15,t2,15,t2,14,t2
  2170.   dc.b 4,t2,255
  2171.  
  2172.     even
  2173. ;bass_envj: dc.b 15,t2,15,t2,0,t2,0,t2
  2174.   dc.b 15,t2,15,t2
  2175.   dc.b 0,t2,255
  2176.     even
  2177. ;bass_env2: dc.b 15,t2,14,b2,15,t2,15,t2
  2178.     dc.b 15,t2,15,t2,15,t2,10,b2,15,t2
  2179.     dc.b 15,t2,15,t2,15,t2,14,t2,13,t2
  2180.     dc.b 0,t2,255
  2181. rest_env:    dc.b 0,0,255
  2182.     even
  2183. blip_env:    dc.b 15,t3,11,t3,3,t3,13,t3
  2184.   dc.b 13,t3,3,t3,3,t3
  2185.   dc.b 12,t3,10,t3,3,t3,8,t3,7,t3,6,t3,0,t3,255
  2186.     even
  2187. ;xpiano_env2:    dc.b 15,t3,15,t3,15,t3,14,t3,13,t3,12,t3,11
  2188.   dc.b t3,10,t3,15,t3,14,t3,13,t3,12,t3,12,t3,11
  2189.   dc.b t3,10,t3,9,t3,8,t3,7,t3,7,t3,6,t3,5,t3,4
  2190.   dc.b t3,3,t3,2,t3,1,t3,0,t3,255
  2191. ;piano_env:    dc.b 15,t3,15,t3,15,t3,15,t3,14,t3
  2192.   dc.b 13,t3,13,t3,13,t3,13,t3,13,t3
  2193.   dc.b 13,t3,12,t3,12,t3,11,t3
  2194.   dc.b 11,t3,10,t3,9,t3,8,t3,7,t3,6,t3
  2195.   dc.b 5,t3,4,t3,3,t3,2,t3,1,t3,0,t3,255
  2196. ;piano_drum:    dc.b 15,t1,15,t1,15,t1,15,t1,14,t1
  2197.   dc.b 13,t1,13,t1,13,t1,13,t1,13,t1
  2198.   dc.b 13,t1,12,t1,12,t1,11,t1
  2199.   dc.b 11,t1,10,t1,9,t1,8,t1,7,t1,6,t1
  2200.   dc.b 5,t1,4,t1,3,t1,2,t1,1,t1,0,t1,255
  2201. ;piano_env3:    dc.b 15,t2,15,t2,15,t2,15,t2,14,t2
  2202.   dc.b 13,t2,13,t2,13,t2,13,t2,13,t2
  2203.   dc.b 13,t2,12,t2,12,t2,11,t2
  2204.   dc.b 11,t2,10,t2,9,t2,8,t2,7,t2,6,t2
  2205.   dc.b 5,t2,4,t2,3,t2,2,t2,1,t2,0,t2,255
  2206. mono_env:    dc.b 12,t3,255
  2207. ;mono_env3:    dc.b 15,t3,255
  2208. ;mono_envt1:    dc.b 13,t1,255,0
  2209. ;mono_envt2:    dc.b 15,t2,255,0
  2210. ;piano_envs:    dc.b 15,t3,15,t3,0,t3,0,t3,15,t3,0,t3,255
  2211. ;long_sus:     dc.b 15,t2,13,t2,255
  2212. ;long_sus4:     dc.b 14,t2,255
  2213. qclape:     dc.b 15,n1,14,n1,14,n1,13,n1,13,n1,12,n1
  2214.   dc.b 11,n1,11,n1,9,n1,7,n1,7,n1,7
  2215.   dc.b n1,6,n1,6,n1,6
  2216.   dc.b n1,5,n1,255
  2217. ;hate:     dc.b 13,n1,0,n1,255
  2218. rotoe:     dc.b 15,t1,15,t1,15,t1,15,t1,15,t1,14,t1
  2219.   dc.b 13,t1,13,t1,12,t1,11,t1,10,t1,9
  2220.   dc.b t1,8,t1,7,t1,6
  2221.   dc.b t1,5,t1,4,t1,3,t1,2,t1,0,t1,255
  2222. ;hot_env:     dc.b 15,t3,14,t3,15,t3,12,t3,15,t3,10,t3
  2223.   dc.b 15,t3,12,t3,255
  2224. ;hot_env2:     dc.b 15,t2,14,t2,15,t2,12,t2,15,t2,10,t2
  2225.   dc.b 15,t2,12,t2,255
  2226. ;revenv:   dc.b 7,t3,9,t3,11,t3,13,t3,15,t3,14,t3
  2227.     dc.b 1,t3,15,t3,6,t3,13,t3,10,t3,9,t3,255
  2228. ;clip_env:    dc.b 15,t3,15,t3,6,t3,6,t3,15,t3
  2229.  dc.b 15,t3,15,t3,13,t3
  2230.   dc.b 12,t3,11,t3,255
  2231. ;DIST_ENV:   dc.b 15,t3,15,t3,12,t3,15,t3,3,t3,15,t3
  2232.      dc.b 15,t3,3,t3,12,t3,3,t3,10,t3,9,t3
  2233.      dc.b 8,t3,7,t3,3,t3,8,t3,9,t3,12,t3,14,t3
  2234.      dc.b 15,t3,15,t3,15,t3,15,t3,0,t3,255
  2235. ;long_sus2:    dc.b 15,t2,14,t2,13,t2,14,t2,15,t2
  2236.   dc.b 14,t2,13,t2,14,t2,15,t2,14,t2,13,t2,14,t2
  2237.       dc.b 255
  2238. ;long_sus3:  dc.b 15,t3,14,t3,13,t3,12,t3,12,t3
  2239.    dc.b 11,t3,10,t3,9,t3,8,t3
  2240.     dc.b 7,t3,8,t3,7,t3,7,t3
  2241.     dc.b 6,t3,6,t3,6,t3,6,t3,6,t3,6,t3,6,t3,4,t3
  2242.       dc.b 255
  2243. ;dhot_env:     dc.b 15,t3,14,t3,15,t3,12,t3,15,t3,10,t3
  2244.   dc.b 15,t3,12,t3,15,t3,14,t3,15,t3,12,t3
  2245.   dc.b 15,t3,10,t3,15,t3,12,t3,255
  2246. marx_env:   dc.b 15,t3,8,t3,15,t3,15,t3,12,t3,11,t3,13,t3,11,t3
  2247.      dc.b 12,t3,255
  2248. ;sq_env1:     dc.b 15,t1,15,t1,14,t1,13,t1,0,t1,255
  2249. ;sq_env2:     dc.b 15,t2,15,t2,14,t2,13,t2,0,t2,255
  2250. ;sq_env3:     dc.b 15,t3,15,t3,14,t1,13,t2,0,t3,255
  2251. ;fxbassde:  dc.b 15,b1,13,t1,255
  2252. ;;;;;;;;;;;;;;;;;;;;;;  MUSIC DATA END ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2253.  
  2254. SPEEDS:
  2255.      DC.W $0607
  2256.      DC.W $CF01
  2257.      DC.W 39681 
  2258.      DC.W 31745 
  2259.      DC.W 26369 
  2260.      DC.W 22529 
  2261.      DC.W 19713 
  2262.      DC.W 17409 
  2263.      DC.W 15873 
  2264.      DC.W 14337 
  2265.      DC.W 13313 
  2266.      DC.W 12289 
  2267.      DC.W 11265 
  2268.      DC.W 10497 
  2269.      DC.W 9985 
  2270.      DC.W 2307 
  2271. CHANEL_A: DC.L $00000000,$00020000,$00020001,$00020002
  2272.  DC.L $00030002,$00040001,$00040002,$00050002
  2273.  DC.L $00060000,$00060002,$00060003,$00060004
  2274.  DC.L $00070002,$00070004,$00070005,$00080002
  2275.  DC.L $00080003,$00080004,$00080005,$00090002
  2276.  DC.L $00090003,$00090004,$00090005,$00090006
  2277.  DC.L $00090007,$000A0003,$000A0004,$000A0005
  2278.  DC.L $000A0006,$000A0007,$000B0000,$000B0001
  2279.  DC.L $000B0002,$000B0004,$000B0005,$000B0006
  2280.  DC.L $000B0007,$000B0008,$000B0008,$000B0009
  2281.  DC.L $000B0009,$000C0000,$000C0001,$000C0002
  2282.  DC.L $000C0003,$000C0004,$000C0005,$000C0006
  2283.  DC.L $000C0008,$000C0008,$000C0009,$000C0009
  2284.  DC.L $000C0009,$000C000A,$000D0000,$000D0002
  2285.  DC.L $000D0003,$000D0004,$000D0005,$000D0006
  2286.  DC.L $000D0007,$000D0008,$000D0008,$000D0009 
  2287.  
  2288. ;***************************************
  2289. ssplash8d:    ;incbin a:ssplash8.sam
  2290. explosi8d:    ;incbin a:explosi8.sam
  2291.  
  2292.     END
  2293.  
  2294. ?
  2295.  
  2296.  
  2297.  
  2298.  
  2299. ;bassde: dc.b 15,b1,14,t1,14,t1,13,t1,13,t1,5,t1
  2300. ;  dc.b 2,t1,0,t1,255
  2301.     even
  2302. ;bass_env: dc.b 12,n2,15,t2,15,t2,15,t2,14,t2,14,t2
  2303. ;    dc.b 13,t2,11,t2,10,t2,10,t2,9,t2,8,t2,7,t2,6,t2,255
  2304.     even
  2305. bass_envt1: dc.b 12,n1,15,t1,15,t1,15,t1,14,t1,14,t1
  2306.     dc.b 13,t1,11,t1,10,t1,10,t1,9,t1,8,t1,7,t1,6,t1,255
  2307.     even
  2308. bass_envt3: dc.b 12,n3,15,t3,15,t3,15,t3,14,t3,14,t3
  2309.     dc.b 13,t3,11,t3,10,t3,10,t3,9,t3,8,t3,7,t3,6,t3,255
  2310.     even
  2311. mono:     dc.b 13,t3,12,t3,255
  2312. mono_env3:
  2313.     dc.b 14,t3,13,t3,13,t3,13,t3,13,t3
  2314.     dc.b 12,t3,12,t3,12,t3,12,t3,12,t3,12,t3,12,t3,12,t3
  2315.         dc.b 11,t3,11,t3,11,t3,11,t3,10,t3,10,t3,10,t3,10,t3
  2316.         dc.b 9,t3,9,t3,9,t3,9,t3,9,t3,9,t3,9,t3,9,t3,255
  2317.     even
  2318. mono_env2:
  2319.     dc.b 14,t2,13,t2,13,t2,13,t2,13,t2
  2320.     dc.b 12,t2,12,t2,12,t2,12,t2,12,t2,12,t2,12,t2,12,t2
  2321.         dc.b 11,t2,11,t2,11,t2,11,t2,10,t2,10,t2,10,t2,10,t2
  2322.         dc.b 9,t2,9,t2,9,t2,9,t2,9,t2,9,t2,9,t2,9,t2,255
  2323.     even
  2324.  
  2325. mono_env1:
  2326.     dc.b 14,t1,13,t1,13,t1,13,t1,13,t1
  2327.     dc.b 12,t1,12,t1,12,t1,12,t1,12,t1,12,t1,12,t1,12,t1
  2328.         dc.b 11,t1,11,t1,11,t1,11,t1,10,t1,10,t1,10,t1,10,t1
  2329.         dc.b 9,t1,9,t1,9,t1,9,t1,9,t1,9,t1,9,t1,9,t1,255
  2330.     even
  2331.  
  2332.  
  2333. ;snaree:     dc.b 15,b1,15,b1,15,b1,15,b1,13,b1,13,b1
  2334. ;  dc.b 11,b1,11,t1,6,b1,5,t1,5,b1,5
  2335. ;  dc.b t1,6,b1,6,t1,6
  2336. ;  dc.b b1,5,t1,255
  2337.     even
  2338. ;hate:     dc.b 13,n1,0,n1,255
  2339.  
  2340.  
  2341.  
  2342.  
  2343.  
  2344.  
  2345.