home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Midwinter II / Lowe_MidwinterII.img / MIDWIN_1.S < prev    next >
Encoding:
Text File  |  1985-11-20  |  68.1 KB  |  2,886 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 #17,d0        ; songnos
  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  '*    JAGGED Music and 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 1     ;fx disable flag     1=disable
  468. music_disable:  dc.w 0  ;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 5,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 CHANEL_A+1(PC,D0.W),D1
  722.         MOVE.B CHANEL_A+3(PC,D0.W),D2 
  723.          ;MOVE.B 1(A0,D0.W),D1
  724.          ;MOVE.B 3(A0,D0.W),D2
  725.          LEA $FFFF8800.W,A0 
  726.          MOVEP.W D1,0(A0)
  727.          MOVEP.W D2,0(A0) 
  728.          CMPA.L (A2),A1 
  729.          BLT.S STOP_INTERUPT
  730.          MOVEM.L (SP)+,D0-D2/A0-A2 
  731.          BCLR #5,$FFFA0F 
  732.          RTE 
  733. STOP_INTERUPT:         BCLR #5,$FFFA19 
  734.          BCLR #5,$FFFA07 
  735.          MOVEM.L (SP)+,D0-D2/A0-A2 
  736.          BCLR #5,$FFFA0F 
  737.              move.w #1,curr_fx_fin
  738.              clr.b duck
  739.          RTE
  740.  
  741. ;*************************************************
  742.  
  743. CHANEL_A: DC.L $00000000,$00020000,$00020001,$00020002
  744.  DC.L $00030002,$00040001,$00040002,$00050002
  745.  DC.L $00060000,$00060002,$00060003,$00060004
  746.  DC.L $00070002,$00070004,$00070005,$00080002
  747.  DC.L $00080003,$00080004,$00080005,$00090002
  748.  DC.L $00090003,$00090004,$00090005,$00090006
  749.  DC.L $00090007,$000A0003,$000A0004,$000A0005
  750.  DC.L $000A0006,$000A0007,$000B0000,$000B0001
  751.  DC.L $000B0002,$000B0004,$000B0005,$000B0006
  752.  DC.L $000B0007,$000B0008,$000B0008,$000B0009
  753.  DC.L $000B0009,$000C0000,$000C0001,$000C0002
  754.  DC.L $000C0003,$000C0004,$000C0005,$000C0006
  755.  DC.L $000C0008,$000C0008,$000C0009,$000C0009
  756.  DC.L $000C0009,$000C000A,$000D0000,$000D0002
  757.  DC.L $000D0003,$000D0004,$000D0005,$000D0006
  758.  DC.L $000D0007,$000D0008,$000D0008,$000D0009 
  759.  
  760.  
  761.  
  762.  
  763. ;**************************************************
  764. super:  
  765.            move sr,d0
  766.            andi #$2000,d0
  767.            bne coldst
  768.            clr.l -(sp)
  769.            move.w #$20,-(sp)
  770.            trap #1
  771.            add.l #6,sp
  772.            lea temp,a1
  773.            MOVE.L D0,(a1)
  774. coldst:       rts
  775. user:
  776.            move.l temp,-(sp)
  777.            move.w #$20,-(sp)
  778.            trap #1
  779.            add.l #6,sp
  780.            rts
  781. interrupt:      moveq #4,d1
  782. wait2:      move.l $4ba,d6
  783. wait:          cmp.l $4ba,d6
  784.            beq wait
  785.            subq #1,d1
  786.            bne wait2
  787.            rts
  788.  
  789.  
  790. ;+++++++++++++++++++++++++++++++++++++++++++++++++
  791.  
  792. mdriver: 
  793.  
  794.         move.w #1,curr_chann
  795.         move.l #select_reg,a4
  796.         move.l #curr_mix,a5
  797.         tst.w sample_flag    
  798.         beq do1    
  799.         move.l #no_reg,a4
  800. do1: 
  801.           lea VARS1,A0 
  802.         btst.b #0,fx_flag+1
  803.         beq do1music
  804.         lea fxvars1,a0
  805.          moveq.l #0,d0 
  806.           moveq.l #1,d1 
  807.           moveq.l #8,d2 
  808.          move.b #%11110110,d7
  809.         jsr check_count_1
  810.             move.l #no_reg,a4
  811.         move.l #no_reg,a5
  812.          lea VARS1,A0 
  813.         jsr check_count_1
  814.         bra chan2
  815. do1music:
  816.         tst.w music_disable
  817.         bne chan2
  818.           moveq.l #0,d0 
  819.           moveq.l #1,d1 
  820.           moveq.l #8,d2 
  821.           move.b #%11110110,d7
  822.           jsr check_count_1
  823. ;    ******************************
  824.  
  825. chan2:
  826.         move.w #2,curr_chann
  827.           move.l #select_reg,a4
  828.         move.l #curr_mix,a5
  829.         tst.w sample_flag    
  830.         beq do2    
  831.         move.l #no_reg,a4
  832. do2          lea vars2,a0
  833.         btst.b #1,fx_flag+1
  834.         beq do2music
  835.         lea fxvars2,a0
  836.           moveq.l #2,d0
  837.           moveq.l #3,d1
  838.            moveq.l #9,d2
  839.            move.b #%11101101,d7
  840.         jsr check_count_1
  841.         move.l #no_reg,a4
  842.         move.l #no_reg,a5
  843.           lea vars2,a0
  844.             jsr check_count_1
  845.         bra chan3
  846. do2music:
  847.         tst.w music_disable
  848.         bne chan3
  849.            moveq.l #2,d0
  850.            moveq.l #3,d1
  851.            moveq.l #9,d2
  852.            move.b #%11101101,d7
  853.            jsr check_count_1
  854. chan3:
  855.         move.w #4,curr_chann
  856.         move.l #select_reg,a4
  857.         move.l #curr_mix,a5
  858.         tst.w sample_flag    
  859.         beq do3    
  860.         move.l #no_reg,a4
  861. do3           lea vars3,a0
  862.         btst.b #2,fx_flag+1
  863.         beq do3music
  864.         lea fxvars3,a0
  865.            moveq.l #4,d0
  866.            moveq.l #5,d1
  867.            moveq.l #10,d2
  868.            move.b #%11011011,d7
  869.         jsr check_count_1
  870.         move.l #no_reg,a4
  871.         move.l #no_reg,a5
  872.           lea vars3,a0
  873.         jsr check_count_1
  874.         rts
  875. do3music:
  876.         tst.w music_disable
  877.         beq dochan2
  878.         rts
  879. dochan2:
  880.            moveq.l #4,d0
  881.            moveq.l #5,d1
  882.            moveq.l #10,d2
  883.            move.b #%11011011,d7
  884.            jsr check_count_1
  885.            rts
  886. process_data:
  887. get_new_patt:      move.l 12(A0),a1 
  888.            CMPI.B #END_song,(A1) 
  889.            bne get_patt_a 
  890.            move.l 16(a0),12(a0) 
  891.            move.l 12(a0),a1 
  892. get_patt_a:
  893. song_cont_ret:
  894.            move.l (a1),4(a0) 
  895.            addq.l #4,a1
  896.            move.l a1,12(a0)
  897.            move.w #1,(a0)
  898.            bra get_new_note
  899. check_count_1:  tst.w 2(a0) 
  900.            BEQ gET_NEW_NOTE 
  901.            MOVE.W #0,ALTPf 
  902.            subq.w #1,2(a0) 
  903.            move.w 28(a0),d6 
  904.            tst.b 26(a0) 
  905.            beq octaves_on
  906.            tst.w 48(a0)
  907.            beq contbend
  908.            subq #1,48(a0)
  909.            bra octaves_on
  910. contbend:      addq #1,altpf  
  911.            clr.w d4
  912.            move.b 27(a0),d4 
  913.            move.w 42(a0),d5 
  914.            cmpi.b #2,26(a0) 
  915.            beq pbup
  916.          sub.w d4,d6
  917.            cmp.w d6,d5
  918.            bcs octaves_on
  919.            bra fbend
  920. pbup:          add.w d4,d6
  921.            cmp.w d6,d5
  922.            bcc octaves_on
  923. fbend:      move.w d5,d6
  924.            CLR.B 26(A0) 
  925. octaves_on:
  926.            cmpi.b #5,38(a0) 
  927.            bls ch_mod_on 
  928.            addq.b #1,altpf
  929.            cmpi.b #8,38(a0) 
  930.            bcc upoct
  931.            asl #1,d6  
  932.            addq.b #1,38(a0) 
  933.            bra send_altered_pitch
  934. upoct:      asr #1,d6
  935.            addq.b #1,38(a0)
  936.            cmpi.b #10,38(a0)
  937.            bne send_altered_pitch
  938.            move.b #6,38(a0) 
  939.            BRA SEND_ALTERED_PITCH
  940. ch_mod_on:
  941.            tst.b 38(a0) 
  942.            beq send_altered_pitch 
  943.            tst.w 44(a0) 
  944.            beq check_speed
  945.            subq #1,44(a0)
  946.            bra send_altered_pitch
  947. check_speed:      tst.b (a0)
  948.            beq contmod
  949.            subq.b #1,(a0)
  950.            bra send_altered_pitch
  951. contmod:
  952.            move.b 1(a0),(a0) 
  953.            addq.b #1,altpf 
  954.            cmpi.b #3,38(a0)
  955.            bcc addmod
  956.            move.w 34(a0),d4
  957.            sub.w d4,d6 
  958.            addq.b #1,38(a0) 
  959.            bra send_altered_pitch
  960. addmod:      move.w 36(a0),d4
  961.            add.w d4,d6
  962.            addq.b #1,38(a0)
  963.            cmpi.b #5,38(a0)
  964.            bne send_altered_pitch
  965.            move.b #1,38(a0) 
  966.         SEND_ALTERED_PITCH: tst.w (ALTPF)
  967.            beq send_env
  968.            move.w d6,28(a0)
  969.            move.b d1,(a4)
  970.            move.b 28(a0),2(a4)
  971.            move.b d0,(a4)
  972.            move.b 29(a0),2(a4)
  973. send_env:  
  974.            tst.w hold_val_p
  975.         beq no_hold
  976.         move.b hold_val_p,(a4)
  977.         move.b hold_val_p+1,2(a4)
  978. no_hold:
  979.            move.l 8(a0),a2
  980.            cmpi.b #255,(a2) 
  981.            bne more_env
  982.         sub.l #2,a2
  983. more_env:
  984.         move.w fx_flag,d4
  985.         and.w curr_chann,d4    
  986.         cmpi.w #0,d4
  987.         beq music_only
  988.            move.b d2,(a4)
  989.            move.b (a2)+,d5
  990.            move.b d5,2(a4) 
  991.            move.b #7,(a4) 
  992.            and.b d7,(a5)
  993.            move.b (a2)+,d2
  994.         cmpi.w #1,d4
  995.         beq cont_env
  996.         asl.b #1,d2
  997.         cmpi.w #2,d4
  998.         beq cont_env 
  999.         asl.b #1,d2
  1000. cont_env:
  1001.            or.b d2,(a5)
  1002.            move.b (a5),2(a4)
  1003.            move.l a2,8(a0)  
  1004. no_more_envelope: rts
  1005. music_only:
  1006.   CMP.B #$2f,$FFFC02    ; check `v` key for music volume change
  1007.         bne no_vol_change    
  1008.         subq.w #1,vol_count
  1009.         tst.w vol_count
  1010.         bne no_vol_change
  1011.         move.w #50,vol_count    
  1012.         subq.b #1,curr_comp
  1013.         bcc no_vol_change
  1014.         move.b #13,curr_comp
  1015. no_vol_change
  1016.            move.b d2,(a4)
  1017.            move.b (a2)+,d5
  1018.            sub.b curr_comp,d5 
  1019.            move.b d5,2(a4) 
  1020.            move.b #7,(a4) 
  1021.            and.b d7,(a5)
  1022.            move.b (a2)+,d2
  1023.            or.b d2,(a5)
  1024.            move.b (a5),2(a4)
  1025.            move.l a2,8(a0)  
  1026.          rts
  1027. get_new_note:     move.l 4(a0),a1
  1028.            move.w 46(a0),44(a0)
  1029. CONTROL_RET:
  1030.            clr.l d3
  1031.            move.b (a1)+,d3 
  1032.            cmpi.b #m,d3  
  1033.            beq control_char 
  1034.            cmpi.b #253,d3
  1035.            beq do_rest
  1036. legal_note:
  1037.             tst.b 78(a0)
  1038.              bne noretrigg
  1039.             move.l 20(a0),8(a0) 
  1040. noret           dc.w 0
  1041.            dc.w 0
  1042.            dc.w 0
  1043.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1044. vars3:
  1045.            dc.w 0
  1046. intc3:       dc.w 0
  1047. pattr3:      dc.l 0
  1048.            dc.l 0
  1049. songr3:      dc.l 0
  1050. wsong3:      dc.l 0
  1051.            dc.l 0
  1052.            dc.b 0,0
  1053.            dc.b 0,0
  1054.            dc.w 0
  1055.            dc.l 0
  1056.            dc.l 0
  1057.            dc.b 0,0
  1058.            dc.w 0
  1059.            dc.w 0
  1060.            dc.w 0
  1061.            dc.w 0
  1062.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1063. fxvars1:
  1064.            dc.w 0  
  1065. fxintc1:      dc.w 0
  1066. fxpattr1:      dc.l 0
  1067.            dc.l 0
  1068. fxsongr1:      dc.l 0
  1069. fxwsong1:      dc.l 0
  1070.            dc.l 0
  1071.            dc.b 0,0
  1072.            dc.b 0,0
  1073.            dc.w 0
  1074.            dc.l 0
  1075.            dc.l 0
  1076.            dc.b 0,0
  1077.            dc.w 0
  1078.            dc.w 0
  1079.            dc.w 0
  1080.            dc.w 0
  1081.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1082. fxvars2:
  1083.            dc.w 0
  1084. fxintc2:      dc.w 0
  1085. fxpattr2:      dc.l 0
  1086.            dc.l 0
  1087. fxsongr2:      dc.l 0
  1088. fxwsong2:      dc.l 0
  1089.            dc.l 0
  1090.            dc.b 0,0
  1091.            dc.b 0,0
  1092.            dc.w 0
  1093.            dc.l 0
  1094.            dc.l 0
  1095.            dc.b 0,0
  1096.            dc.w 0
  1097.            dc.w 0
  1098.            dc.w 0
  1099.            dc.w 0
  1100.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1101. fxvars3:
  1102.            dc.w 0          dc.b      m,new_env,trigg,0
  1103.                            dc.l      alarm2e
  1104.               dc.b     m,modon,3,3
  1105.               dc.w     20,24,1
  1106.               dc.b     m,pbend,up,20
  1107.               dc.w     B05,0
  1108.             dc.w    g04,cr*2
  1109.             DC.B    M,inline,6,200,255,0
  1110.             dc.b    m,endfx_patt
  1111.  
  1112. alarm2e    dc.b    15,t1,255,0
  1113.  
  1114. alarm3:    
  1115.                            dc.b      m,new_env,trigg,0
  1116.                            dc.l      alarm3e
  1117.             dc.b    m,octaves
  1118.             dc.w    g04,cr*2
  1119.             DC.B    M,inline,6,200,255,0
  1120.             dc.b    m,endfx_patt
  1121.  
  1122. alarm3e    dc.b    15,t1,255,0
  1123.  
  1124. ;**********************************************
  1125.     even
  1126. click_fx:        
  1127.  
  1128.                            dc.b      m,new_env,trigg,0
  1129.                            dc.l      fxb_env
  1130.             DC.B    M,inline,6,200,254,0
  1131.                        dc.w    g01,4
  1132.             DC.B    M,inline,6,200,255,0
  1133.                         dc.B    m,endfx_patt    
  1134.  
  1135. fxb_env        dc.b 15,b1,14,b1
  1136.         dc.b 9,b1,8,b1,0,b1,255,0
  1137. ;**************************************************
  1138.  
  1139.     even
  1140. exp1:
  1141.                            dc.b      m,new_env,trigg,0
  1142.                            dc.l      exp1_env
  1143.             dc.b    M,inline,6,31,254,0
  1144.             dc.w    0,10
  1145.             dc.b    m,inline,6,30,254,0
  1146.             DC.B    M,inline,6,30,254,0
  1147.             dc.b    m,inline,6,29,254,0
  1148.             dc.b    m,inline,6,28,254,0
  1149.             dc.b    m,inline,6,27,254,0
  1150.             dc.b    m,inline,6,26,254,0
  1151.             dc.b    m,inline,6,25,254,0
  1152.             dc.b    m,inline,6,24,254,0
  1153.             dc.b    m,inline,6,23,254,0
  1154.             dc.b    m,inline,6,22,254,0
  1155.             DC.w    0,3
  1156.               dc.b     m,modon,2,2
  1157.               dc.w     8,8,1
  1158.                            dc.b      m,new_env,trigg,0
  1159.                            dc.l      exp1_env
  1160.             DC.w    20,60
  1161.             dc.b    m,inline,6,200,254,0
  1162.             dc.b    m,endfx_patt
  1163.  
  1164. exp2:
  1165.                            dc.b      m,new_env,trigg,0
  1166.                            dc.l      exp2_env
  1167.             dc.b    M,inline,6,31,255,0
  1168.             dc.w    0,1
  1169.             dc.b    m,inline,6,30,254,0
  1170.             DC.B    M,inline,6,30,254,0
  1171.             dc.b    m,inline,6,23,254,0
  1172.             dc.b    m,inline,6,22,254,0
  1173.             DC.w    0,2
  1174.               dc.b     m,modon,2,2
  1175.               dc.w     8,8,1
  1176.                            dc.b      m,new_env,trigg,0
  1177.                            dc.l      exp2_env
  1178.             DC.w    20,27
  1179.             dc.b    m,inline,6,200,254,0
  1180.             dc.b    m,endn,1,1
  1181.             dc.w   5,5,1
  1182.                         dc.b   m,pbend,down,1
  1183.                         dc.w   C02,0
  1184.             dc.w   C05,cr*3
  1185.             DC.B    M,inline,6,200,255,0
  1186.                            dc.b   m,endfx_patt
  1187.  
  1188.  
  1189. miss4_env:    dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1190.         dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1191.         dc.b 14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1
  1192.         dc.b 12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1
  1193.         dc.b 10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1
  1194.         dc.b 8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1
  1195.         dc.b 6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1
  1196.         dc.b 4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1
  1197.         dc.b 2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1
  1198.         DC.B 0,b1,255
  1199.  
  1200. ;*********************************************
  1201.     even
  1202.  
  1203. missile5:    
  1204.                            dc.b   m,new_env,trigg,0
  1205.                            dc.l   miss5_env
  1206.             dc.b   m,modon,1,1
  1207.             dc.w   8,8,1
  1208.                         dc.b   m,pbend,down,50
  1209.                         dc.w   C03,0
  1210.             dc.w   C08,cr
  1211.             DC.B    M,inline,6,200,255,0
  1212.                            dc.b   m,endfx_patt
  1213.  
  1214.  
  1215. miss5_env:    dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1216.         dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1217.         dc.b 4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,n1
  1218.         dc.b 2,n1,2,n1,2,n1,2,n1
  1219.         DC.B 0,b1,255
  1220. ;************************************************
  1221.  
  1222.     even
  1223. fx7:    
  1224.                            dc.b      m,new_env,trigg,0
  1225.                            dc.l      fx7_env
  1226.             dc.b    M,inline,6,31,255,0
  1227.             dc.w    0,4
  1228.             dc.b    M,inline,6,0,255,0
  1229.             dc.w    0,4
  1230.             dc.w    0,4
  1231.             dc.b    M,inline,6,2,255,0
  1232.             dc.w    0,4
  1233.             dc.b    M,inline,6,4,255,0
  1234.             dc.w    0,4
  1235.             dc.b    M,inline,6,6,255,0
  1236.             dc.w    0,4
  1237.             dc.b    M,inline,6,8,255,0
  1238.             dc.w    0,4
  1239.             dc.b    M,inline,6,10,255,0
  1240.             dc.w    0,4
  1241.             dc.b    M,inline,6,12,255,0
  1242.             dc.w    0,4
  1243.             dc.b    M,inline,6,14,255,0
  1244.             dc.w    0,4
  1245.             dc.b    M,inline,6,16,255,0
  1246.             dc.w    0,4
  1247.             dc.b    M,inline,6,18,255,0
  1248.             dc.w    0,4
  1249.             dc.b    M,inline,6,20,255,0
  1250.             dc.w    0,4
  1251.             dc.b    M,inline,6,22,255,0
  1252.             dc.w    0,4
  1253.             dc.b    M,inline,6,24,255,0
  1254.             dc.w    0,4
  1255.             dc.b    M,inline,6,10,255,0
  1256.             dc.w    0,50
  1257.             DC.B    M,inline,6,200,255,0
  1258.             dc.b    m,endfx_patt
  1259.     even
  1260.  
  1261. fx7_env:    dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1262.         dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1263.         dc.b 14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1
  1264.         dc.b 12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1
  1265.         dc.b 10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1
  1266.         dc.b 8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1
  1267.         dc.b 6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1
  1268.         dc.b 4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1
  1269.         dc.b 2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1
  1270.         DC.B 0,b1,255
  1271.  
  1272. ;**************************************************
  1273.  
  1274.     even
  1275. turbo1:    
  1276.                            dc.b   m,new_env,trigg,0
  1277.                            dc.l   miss4_env
  1278.             dc.b   m,modon,1,1
  1279.             dc.w   5,5,1
  1280.                         dc.b   m,pbend,up,10
  1281.                         dc.w   C05,0
  1282.             dc.w   C03,cr*3
  1283.             DC.B    M,inline,6,200,255,0
  1284.                            dc.b   m,endfx_patt
  1285.  
  1286. turbo2:    
  1287.                            dc.b   m,new_env,trigg,0
  1288.                            dc.l   miss4_env
  1289.             dc.b   m,modon,1,1
  1290.             dc.w   5,5,1
  1291.                         dc.b   m,pbend,up,40
  1292.                         dc.w   C07,0
  1293.             dc.w   C03,cr*3
  1294.             DC.B    M,inline,6,200,255,0
  1295.                           dc.b   m,endfx_patt
  1296.  
  1297. turbo3:    
  1298.                            dc.b   m,new_env,trigg,0
  1299.                            dc.l   miss4_env
  1300.             dc.b   m,modon,1,1
  1301.             dc.w   5,5,1
  1302.                         dc.b   m,pbend,up,20
  1303.                         dc.w   C08,0
  1304.             dc.w   C03,cr*4
  1305.             DC.B    M,inline,6,200,255,0
  1306.                            dc.b   m,endfx_patt
  1307.  
  1308. ;************************************************
  1309.  
  1310. pop_gun1
  1311.                            dc.b      m,new_env,trigg,0
  1312.                            dc.l      pgun_env
  1313.             DC.B    M,inline,6,200,255,0
  1314.                         dc.b   m,pbend,down,20
  1315.                         dc.w   g01,0
  1316.                        dc.w    g06,10
  1317.             DC.B    M,inline,6,200,255,0
  1318.                            dc.B    m,endfx_patt    
  1319.  
  1320.  
  1321. pop_gun2
  1322.             DC.B    M,inline,6,12,255,0
  1323.                            dc.b      m,new_env,trigg,0
  1324.                            dc.l      pgun_env
  1325.                         dc.b   m,pbend,down,20
  1326.                         dc.w   g01,0
  1327.                        dc.w    g08,10
  1328.             DC.B    M,inline,6,200,255,0
  1329.                            dc.B    m,endfx_patt    
  1330.  
  1331.  
  1332. enemy_fire
  1333.                            dc.b      m,new_env,trigg,0
  1334.                            dc.l      pgun_env
  1335.             DC.B    M,inline,6,50,255,0
  1336.                         dc.b   m,pbend,down,100
  1337.                         dc.w   g01,0
  1338.                        dc.w    g08,10
  1339.             DC.B    M,inline,6,200,255,0
  1340.                            dc.B    m,endfx_patt    
  1341.  
  1342.  
  1343.  
  1344. pgun_env    dc.b 15,b1,15,b1,3,b1,15,b1,12,b1,11,b1,9,b1
  1345.         dc.b 9,b1,8,b1,7,b1,3,b1,2,b1,1,b1,0,b1,255
  1346.  
  1347.  
  1348. ;******************************************************
  1349.     even
  1350. wheel_skid
  1351.                            dc.b      m,new_env,trigg,0
  1352.                            dc.l      skid_env
  1353.             DC.B    M,inline,6,3,255,0
  1354.             dc.b   m,modon,3,3
  1355.             dc.w   4,4,1
  1356.                         dc.b   m,pbend,up,100
  1357.                         dc.w   b05,0
  1358.             dc.w   g04,cr
  1359.                            dc.B    m,endfx_patt    
  1360.  
  1361.  
  1362. skid_env    dc.b 15,b1,255,0
  1363.  
  1364. ;****************************************
  1365.     even
  1366. panel_slide
  1367.                            dc.b      m,new_env,trigg,0
  1368.                            dc.l      onoff_env
  1369.             DC.B    M,inline,6,200,255,0
  1370.             dc.w    g02,cr
  1371.                            dc.B    m,endfx_patt    
  1372.  
  1373.  
  1374. onoff_env    
  1375.     dc.b 15,b1,0,b1,15,b1,0,b1,15,b1,0,b1,15,b1,0,b1
  1376.     dc.b 15,b1,0,b1,15,b1,0,b1,15,b1,0,b1,15,b1,0,b1
  1377.     dc.b 15,b1,0,b1,15,b1,0,b1,15,b1,0,b1,15,b1,0,b1
  1378.     dc.b 15,b1,0,b1,15,b1,0,b1,15,b1,0,b1,15,b1,0,b1
  1379.     dc.b 15,b1,0,b1,15,b1,0,b1,15,b1,0,b1,15,b1,0,b1
  1380.     dc.b 255,0
  1381.  
  1382.     even
  1383.  
  1384.  
  1385. wave
  1386.             DC.B    M,inline,6,12,255,0
  1387.                            dc.b      m,new_env,trigg,0
  1388.                            dc.l      wave_env
  1389.                        dc.w    0,cr*8
  1390.  
  1391.                            dc.b      m,new_env,trigg,0
  1392.                            dc.l      wave_env
  1393.                        dc.w    0,cr*7
  1394.  
  1395.                            dc.b      m,new_env,trigg,0
  1396.                            dc.l      wave_env
  1397.                        dc.w    0,cr*6
  1398.  
  1399.                            dc.b      m,new_env,trigg,0
  1400.                            dc.l      wave_env
  1401.                        dc.w    0,cr*8
  1402.  
  1403.                            dc.B    m,endfx_patt    
  1404.  
  1405.  
  1406. wave_env:    dc.b 1,n1,2,n1,2,n1,2,n1,3,n1,3,n1,3,n1
  1407.         dc.b 4,n1,4,n1,4,n1,5,n1,5,n1,5,n1,5,n1,6,n1,6,n1
  1408.         dc.b 6,n1,7,n1,7,n1,7,n1,8,n1,8,n1,8,n1,9,n1,10,n1,10,n1
  1409.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,11,n1,11,n1,11,n1,11,n1,11,n1
  1410.         dc.b 11,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,13,n1,13,n1,13,n1
  1411.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,15,n1,15,n1,15,n1,15,n1
  1412.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,N1
  1413.         DC.B 15,n1
  1414.  
  1415.  
  1416.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1
  1417.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1
  1418.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  1419.         dc.b 12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1
  1420.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1
  1421.         dc.b 8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1
  1422.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1423.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1424.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1425.         DC.B 0,n1,255
  1426.  
  1427.  
  1428. curr_fx            equ 1
  1429. max_chfx        dc.l 19
  1430.  
  1431.  
  1432.     even
  1433. ;;;;;;;;;;;;;;;;;;;;;    MIDWINTER II  Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1434. ;restful loop
  1435. xxx
  1436. song1:
  1437.     dc.l    p20
  1438.       dc.l     end_song
  1439. song2:
  1440.     dc.l    p1,p2,p3,p4
  1441.         DC.L     end_song
  1442. song3:
  1443.     dc.l    p5
  1444.     dc.l     end_song
  1445. pcr:
  1446.       dc.w rest,cr
  1447.       dc.b m,end_patt
  1448. pr:
  1449.       dc.w rest,cr*4
  1450.       dc.b m,end_patt
  1451. pra:
  1452.     dc.w rest,q*7
  1453.     dc.b m,end_patt
  1454. pqr:
  1455.       dc.w rest,q
  1456.       dc.b m,end_patt
  1457. p1:
  1458.       dc.b m,new_env,trigg,0
  1459.       dc.l bass_env
  1460.       dc.w f03,cr,a03,cr,c04,cr,a03,cr
  1461.       dc.w f04,cr,a03,cr
  1462.       dc.b m,end_patt
  1463. p2:
  1464.       dc.b m,new_env,trigg,0
  1465.       dc.l bass_env
  1466.       dc.w d03,cr,f03,cr,a03,cr,f03,cr
  1467.       dc.w d04,cr,f03,cr
  1468.       dc.b m,end_patt
  1469. p4:
  1470.       dc.b m,new_env,trigg,0
  1471.       dc.l bass_env
  1472.       dc.w c03,cr,e03,cr,g03,cr,e03,cr
  1473.       dc.w c04,cr,e03,cr
  1474.       dc.b m,end_patt
  1475. p3:
  1476.       dc.b m,new_env,trigg,0
  1477.       dc.l bass_env
  1478.       dc.w Bb02,cr,d03,cr,f03,cr,d03,cr
  1479.       dc.w Bb03,cr,d03,cr
  1480.       dc.b m,end_patt
  1481. p5:
  1482.       dc.b m,new_env,trigg,0
  1483.       dc.l bass_envy
  1484.       dc.w F02,cr*6,D02,cr*6,Bb01,cr*6,C02,cr*6
  1485.       dc.b m,end_patt
  1486. p20:
  1487.       dc.b m,new_env,trigg,0
  1488.       dc.l marx_envy
  1489.       dc.b m,modon,1,1
  1490.       dc.w 3,3,8
  1491.       dc.w A04,cr*3,G04,cr,A04,cr,C05,cr 
  1492.       dc.w A04,cr*3,G04,cr,A04,cr,C05,cr 
  1493.       dc.w A04,cr*3,G04,cr,A04,cr,C05,cr 
  1494.       dc.w A04,cr*2,G04,cr*4
  1495.       dc.w A04,cr*3,G04,cr,A04,cr,C05,cr 
  1496.       dc.w D05,cr*3,A04,cr,G04,cr,A04,cr 
  1497.       dc.w C05,cr*3,Bb04,cr,A04,cr,Bb04,cr 
  1498.       dc.w A04,cr*2,G04,cr*4
  1499.     dc.b m,end_patt
  1500. ;****************************************************************
  1501. CR      set 20
  1502. tcr1     set 9
  1503. tcr2     set 8
  1504. Q       set cr/2
  1505. tq1      set 4
  1506. tq2      set 5
  1507. ;tsq     set 3
  1508. ;tsq2     set 2
  1509. SQ      set cr/4
  1510. ;m       set 254
  1511. ;rest     set $fd00
  1512. ;dcr      set cr+q
  1513. ;dq      set q+sq
  1514. ;dsq      set sq+(sq/2)
  1515. ;sb      set cr*4
  1516. ;min      set cr*2
  1517. ;dm      set min+cr
  1518. pcr16:
  1519.       dc.w rest,cr
  1520.       dc.b m,end_patt
  1521. pr16:
  1522.       dc.w rest,cr*4
  1523.       dc.b m,end_patt
  1524. pqr16:
  1525.       dc.w rest,q
  1526.       dc.b m,end_patt
  1527.  
  1528.     EVEN
  1529.  
  1530. ;celebration scene
  1531.  
  1532. song5:
  1533.     dc.l    p1a,p2a,p2a,p3a
  1534.       dc.l     end_song
  1535. song6:
  1536.     dc.l    p4a,p5a,p6a,p5a,p6a
  1537.     dc.l    p7a,p5a,p6a,p8a
  1538.         DC.L     end_song
  1539. song7:
  1540.     dc.l    p9a,p10a,p10a,p10a,p10a,p10a
  1541.     dc.l    p10a,p10a,p10a,p10a,p10a
  1542.     dc.l    p10a,p10a,p10a,p10a,p10a
  1543.     dc.l    p11a
  1544.     dc.l     end_song
  1545. p1a:
  1546.       dc.b m,new_env,trigg,0
  1547.       dc.l marx_envy
  1548.       dc.w c04,q,d04,q,e04,q
  1549.       dc.b m,end_patt
  1550. p2a:
  1551.       dc.w f05,q*3,c05,q
  1552.     dc.w f05,q,a05,q,g05,q,f05,q
  1553.     dc.w g05,q*2,e05,q*2,c05,q*4
  1554.       dc.b m,end_patt
  1555. p3a:
  1556.       dc.w Bb05,q*3,f05,q
  1557.       dc.w Bb05,q,d06,q,c06,q,Bb05,q
  1558.       dc.w a05,q*3,f05,q
  1559.       dc.w a05,q,c06,q,Bb05,q,a05,q
  1560.       dc.w g05,q*3,gb05,q
  1561.       dc.w g05,q,Bb05,q,a05,q,g05,q
  1562.       dc.w f05,q,a05,q,g05,q,a05,q
  1563.     dc.w f05,q
  1564.       dc.b m,end_patt
  1565. p4a:
  1566.       dc.b m,new_env,trigg,0
  1567.       dc.l bass_env
  1568.       dc.w c02,q,d02,q,e02,q
  1569.       dc.b m,end_patt
  1570. p5a:
  1571.       dc.w F02,q,c03,q,c02,q,C03,q
  1572.       dc.w F02,q,c03,q,c02,q,C03,q
  1573.       dc.b m,end_patt
  1574. p6a:
  1575.       dc.w g02,q,c03,q,c02,q,C03,q
  1576.       dc.w g02,q,c03,q,c02,q,C03,q
  1577.       dc.b m,end_patt
  1578. p7a:
  1579.       dc.w Bb02,q,d03,q,f02,q,d03,q
  1580.       dc.w Bb02,q,d03,q,f02,q,d03,q
  1581.       dc.b m,end_patt
  1582. p8a:
  1583.       dc.w F02,q,c03,q,c02,q,C03,q
  1584.       dc.w F02,q
  1585.       dc.b m,end_patt
  1586. p10a:     
  1587.       dc.b m,inline,6,200,255,0
  1588.       dc.b m,new_env,trigg,0
  1589.       dc.l bassde
  1590.       dc.b m,pbend,down,200
  1591.       dc.w c01,0
  1592.       dc.w e04,q
  1593.       dc.b m,new_env,trigg,0
  1594.       dc.l qCLAPE
  1595.       dc.b m,pbend,down,69
  1596.       dc.w c01,0
  1597.       dc.w c04,q
  1598.       dc.b m,new_env,trigg,0
  1599.       dc.l bassde
  1600.       dc.b m,pbend,down,200
  1601.       dc.w c01,0
  1602.       dc.w e04,q
  1603. p11a:      dc.b m,new_env,trigg,0
  1604.       dc.l QCLAPE
  1605.       dc.b m,pbend,down,69
  1606.       dc.w c01,0
  1607.       dc.w c05,q
  1608.       dc.b m,end_patt
  1609. p9a:
  1610.       dc.b m,new_env,trigg,0
  1611.       dc.l QCLAPE
  1612.       dc.b m,pbend,down,69
  1613.       dc.w c01,0
  1614.       dc.w c05,q,c05,q,c05,q
  1615.       dc.b m,end_patt
  1616. ;****************************************************************
  1617. CR      set 16
  1618. tcr1     set 9
  1619. tcr2     set 8
  1620. Q       set cr/2
  1621. tq1      set 4
  1622. tq2      set 5
  1623. ;tsq     set 3
  1624. ;tsq2     set 2
  1625. SQ      set cr/4
  1626. ;m       set 254
  1627. ;rest     set $fd00
  1628. ;dcr      set cr+q
  1629. ;dq      set q+sq
  1630. ;dsq      set sq+(sq/2)
  1631. ;sb      set cr*4
  1632. ;min      set cr*2
  1633. ;dm      set min+cr
  1634.  
  1635. ;journey
  1636.  
  1637.     EVEN
  1638. song9:
  1639.     dc.l    p1b,p1b,p1b,p1b,p2b,p2b,p2bb
  1640.     dc.l    pra,pr,pr,pr,pr,pr,pr,pr
  1641.       dc.l     end_song
  1642. song10:
  1643.     dc.l    p4b,p5b,p6b,p5b
  1644.     dc.l    p4b,p7b,p9b,p8b
  1645.     dc.l    p4b,p7b,p9b,p8b,p3b
  1646.     dc.l    pra,pr,pr,pr,pr,pr,pr,pr
  1647.         DC.L     end_song
  1648. song11:
  1649.     dc.l    p10b,p10b,p10b,p10b,p10b
  1650.     dc.l    p10b,p10b,p10b,p10b,p10b
  1651.     dc.l    p10b,p10b,p10b,p10b,p10b
  1652.     dc.l    p10b,p10b,p10b,p10b,p11b
  1653.     dc.l    pra,pr,pr,pr,pr,pr,pr,pr
  1654.     dc.l     end_song
  1655. p1b:
  1656.       dc.b m,new_env,trigg,0
  1657.       dc.l marx_envy
  1658.       dc.w c05,q*7,rest,q,c05,q,d05,q,e05,q
  1659.     dc.w f05,cr,e05,q,d05,q,e05,q
  1660.       dc.b m,end_patt
  1661. p2b:
  1662.     dc.w c05,q*13,d05,q,e05,q,f05,q
  1663.     dc.w g05,cr*4,f05,q,d05,q,Bb04,q
  1664.     dc.w f05,q,d05,q,Bb04,q,f05,q,d05,q
  1665.     dc.w f05,q,db05,q,ab04,q
  1666.     dc.w f05,q,db05,q,ab04,q,f05,q,db05,q
  1667.       dc.b m,end_patt
  1668. p2bb:
  1669.     dc.w c05,q*9
  1670.       dc.b m,end_patt
  1671. p4b:
  1672.       dc.b m,new_env,trigg,0
  1673.       dc.l abass_env
  1674.       dc.w c03,q,c03,q,c03,q,c03,q
  1675.       dc.w c03,q,c03,q,c03,q
  1676. p3b:      dc.w c03,q,c03,q,c03,q,c03,q,c03,q
  1677.       dc.w c03,q,c03,q,c03,q,c03,q
  1678.       dc.b m,end_patt
  1679. p5b:
  1680.       dc.w Bb02,q,Bb02,q,Bb02,q,Bb02,q
  1681.       dc.w Bb02,q,Bb02,q,Bb02,q,Bb02,q
  1682. p9b:      dc.w Bb02,q,Bb02,q,Bb02,q,Bb02,q
  1683.       dc.w Bb02,q,Bb02,q,Bb02,q,Bb02,q
  1684.       dc.b m,end_patt
  1685. p6b:
  1686.       dc.w Ab02,q,Ab02,q,Ab02,q,Ab02,q
  1687.       dc.w Ab02,q,Ab02,q,Ab02,q,Ab02,q
  1688.       dc.w Ab02,q,Ab02,q,Ab02,q,Ab02,q
  1689.       dc.w Ab02,q,Ab02,q,Ab02,q,Ab02,q
  1690.       dc.b m,end_patt
  1691. p7b:
  1692.       dc.w g02,q,g02,q,g02,q,g02,q
  1693.       dc.w g02,q,g02,q,g02,q,g02,q
  1694.       dc.b m,end_patt
  1695. p8b:
  1696.       dc.w Db03,q,Db03,q,Db03,q,Db03,q
  1697.       dc.w Db03,q,Db03,q,Db03,q,Db03,q
  1698.       dc.b m,end_patt
  1699. p10b:     
  1700.       dc.b m,inline,6,200,255,0
  1701.       dc.b m,new_env,trigg,0
  1702.       dc.l bassde
  1703.       dc.b m,pbend,down,200
  1704.       dc.w c01,0
  1705.       dc.w e04,sQ
  1706.       dc.b m,new_env,trigg,0
  1707.       dc.l hate
  1708.       dc.w g06,sQ,g06,sQ,g06,sQ
  1709.       dc.b m,new_env,trigg,0
  1710.       dc.l qCLAPE
  1711.       dc.b m,pbend,down,69
  1712.       dc.w c01,0
  1713.       dc.w c04,sQ
  1714.       dc.b m,new_env,trigg,0
  1715.       dc.l hate
  1716.       dc.w g06,sQ,g06,sQ,g06,sQ
  1717.       dc.b m,new_env,trigg,0
  1718.       dc.l bassde
  1719.       dc.b m,pbend,down,200
  1720.       dc.w c01,0
  1721.       dc.w e04,sQ
  1722.       dc.b m,new_env,trigg,0
  1723.       dc.l hate
  1724.       dc.w g06,sQ,g06,sQ,g06,sQ
  1725.       dc.b m,new_env,trigg,0
  1726.       dc.l QCLAPE
  1727.       dc.b m,pbend,down,69
  1728.       dc.w c01,0
  1729.       dc.w c05,sQ
  1730.       dc.b m,new_env,trigg,0
  1731.       dc.l hate
  1732.       dc.w g06,sQ,g06,sQ,g06,sq
  1733.       dc.b m,end_patt
  1734. p11b:     
  1735.       dc.b m,inline,6,200,255,0
  1736.       dc.b m,new_env,trigg,0
  1737.       dc.l bassde
  1738.       dc.b m,pbend,down,200
  1739.       dc.w c01,0
  1740.       dc.w e04,q
  1741.       dc.b m,end_patt
  1742. ;****************************************************************
  1743.  
  1744.  
  1745. CR      set 24
  1746. tcr1     set 9
  1747. tcr2     set 8
  1748. Q       set cr/2
  1749. tq1      set 4
  1750. tq2      set 5
  1751. ;tsq     set 3
  1752. ;tsq2     set 2
  1753. SQ      set cr/4
  1754. ;m       set 254
  1755. ;rest     set $fd00
  1756. ;dcr      set cr+q
  1757. ;dq      set q+sq
  1758. ;dsq      set sq+(sq/2)
  1759. ;sb      set cr*4
  1760. ;min      set cr*2
  1761. ;dm      set min+cr
  1762.  
  1763. ;anticipation
  1764.  
  1765. song13:
  1766.     dc.l    p2c,pr,pr,pr,pr,pr,pr,pr,pr
  1767.       dc.l     end_song
  1768.  
  1769. song14:
  1770.     dc.l    p1c,pr,pr,pr,pr,pr,pr,pr,pr
  1771.         DC.L     end_song
  1772.  
  1773. song15:
  1774.     dc.l    p3c,pr,pr,pr,pr,pr,pr,pr,pr
  1775.     dc.l     end_song
  1776.  
  1777. p1c:
  1778.       dc.b m,new_env,trigg,0
  1779.       dc.l titty2
  1780.       dc.b m,modon,1,1
  1781.       dc.w 3,3,8
  1782.       dc.w C04,cr*3
  1783.       dc.w A03,cr,C04,cr,Eb04,cr,Gb04,cr
  1784.     dc.w Eb04,cr,Gb04,cr,A04,cr,C05,cr
  1785.     dc.w A04,cr,C05,cr,Eb05,cr,Gb05,cr*5
  1786.       dc.b m,end_patt
  1787. p3c:
  1788.       dc.b m,new_env,trigg,0
  1789.       dc.l bass_envy
  1790.       dc.w c02,cr*19
  1791.       dc.b m,end_patt
  1792. p2c:
  1793.       dc.b m,new_env,trigg,0
  1794.       dc.l marx_envy
  1795.       dc.b m,modon,1,1
  1796.       dc.w 3,3,8
  1797.       dc.w A03,cr*3
  1798.       dc.w Gb03,cr,A03,cr,C04,cr,Eb04,cr
  1799.     dc.w C04,cr,Eb04,cr,Gb04,cr,A04,cr
  1800.     dc.w Gb04,cr,A04,cr,C05,cr,Eb05,cr*5
  1801.     dc.b m,end_patt
  1802.  
  1803. ;****************************************************************
  1804.  
  1805. CR      set 20
  1806. tcr1     set 9
  1807. tcr2     set 8
  1808. Q       set cr/2
  1809. tq1      set 4
  1810. tq2      set 5
  1811. ;tsq     set 3
  1812. ;tsq2     set 2
  1813. SQ      set cr/4
  1814. ;m       set 254
  1815. ;rest     set $fd00
  1816. ;dcr      set cr+q
  1817. ;dq      set q+sq
  1818. ;dsq      set sq+(sq/2)
  1819. ;sb      set cr*4
  1820. ;min      set cr*2
  1821. ;dm      set min+cr
  1822.  
  1823. ;pastoral loop
  1824.  
  1825. song17:
  1826.     dc.l    p2d
  1827.       dc.l     end_song
  1828.  
  1829. song18:
  1830.     dc.l    p1d
  1831.         DC.L     end_song
  1832.  
  1833. song19:
  1834.     dc.l    p3d
  1835.     dc.l     end_song
  1836.  
  1837. p1d:
  1838.       dc.b m,new_env,trigg,0
  1839.       dc.l titty2
  1840.       dc.b m,modon,1,1
  1841.       dc.w 3,3,8
  1842.       dc.w A04,cr*3
  1843.       dc.w D05,cr,A04,cr,D05,cr
  1844.     dc.w C05,cr*2,G04,q,rest,q,G04,cr,A04,cr,Bb04,cr
  1845.       dc.w A04,q*3,rest,q,A04,cr
  1846.       dc.w D05,cr,A04,cr,D05,cr,C05,cr*6
  1847.       dc.w A04,cr*3
  1848.       dc.w D05,cr,A04,cr,D05,cr
  1849.     dc.w C05,cr*2,G04,q,rest,q,G04,cr,f04,cr,e04,cr
  1850.     dc.w D04,cr,F04,cr,E04,cr
  1851.     dc.w Db04,cr,B03,cr,Db04,cr,D04,cr*3
  1852.     dc.w A03,cr,Db04,cr,E04,cr
  1853.       dc.b m,end_patt
  1854. p3d:
  1855.       dc.b m,new_env,trigg,0
  1856.       dc.l bass_envy
  1857.       dc.w D02,cr*5,F02,cr,C02,q*9,rest,q,c02,cr
  1858.       dc.w D02,cr*5,F02,cr,C02,cr*3,Bb01,cr*3
  1859.       dc.w D02,cr*5,F02,cr,C02,q*9,rest,q,c02,cr
  1860.       dc.w D02,cr*3,Db02,cr*3,D02,cr*3,A01,cr*3
  1861.       dc.b m,end_patt
  1862. p2d:
  1863.       dc.b m,new_env,trigg,0
  1864.       dc.l marx_envy
  1865.       dc.b m,modon,1,1
  1866.       dc.w 3,3,8
  1867.       dc.w F04,cr*3
  1868.       dc.w A04,cr,F04,cr,A04,cr
  1869.     dc.w G04,cr*2,E04,q,rest,q,E04,cr,F04,cr,G04,cr
  1870.       dc.w F04,q*3,rest,q,F04,cr
  1871.       dc.w A04,cr,F04,cr,A04,cr,G04,cr*3,E04,cr*3
  1872.       dc.w F04,cr*3
  1873.       dc.w A04,cr,E04,cr,F04,cr
  1874.     dc.w G04,cr*2,D04,cr,E04,cr,D04,cr,C04,cr
  1875.     dc.w A03,cr,D04,cr,C04,cr
  1876.     dc.w E03,cr,D03,cr,E03,cr,A03,cr*3
  1877.     dc.w rest,cr*3
  1878.     dc.b m,end_patt
  1879.  
  1880. ;****************************************************************
  1881.  
  1882. CR      set 16
  1883. tcr1     set 9
  1884. tcr2     set 8
  1885. Q       set cr/2
  1886. tq1      set 4
  1887. tq2      set 5
  1888. ;tsq     set 3
  1889. ;tsq2     set 2
  1890. SQ      set cr/4
  1891. ;m       set 254
  1892. ;rest     set $fd00
  1893. ;dcr      set cr+q
  1894. ;dq      set q+sq
  1895. ;dsq      set sq+(sq/2)
  1896. ;sb      set cr*4
  1897. ;min      set cr*2
  1898. ;dm      set min+cr
  1899.  
  1900. ;fast and dangerous
  1901.  
  1902. song21:
  1903.     dc.l    p1e,p1e,p2e,p1e,p3e,p4e,pr,pr,pr,pr
  1904.       dc.l     end_song
  1905.  
  1906. song22:
  1907.     dc.l    p5e,p5e,p6e,p5e,p7e,pr,pr,pr,pr
  1908.         DC.L     end_song
  1909.  
  1910. song23:
  1911.         
  1912.     dc.l    p10e,p10e,p10e,p10e
  1913.     dc.l    p10e,p10e,p10e,p10e
  1914.     dc.l    p10e,p10e,p10e,p10e,p11e,pr,pr,pr,pr
  1915.     dc.l     end_song
  1916.  
  1917. p1e:
  1918.       dc.b m,new_env,trigg,0
  1919.       dc.l marx_envys
  1920.       dc.w G04,q,Eb05,q,D05,q,C05,q
  1921.       dc.w G04,q,Eb05,q,D05,q,C05,q
  1922.       dc.w G04,q,Eb05,q,D05,q,C05,q,rest,q,C05,q,Bb04,cr
  1923.       dc.b m,end_patt
  1924.  
  1925. p2e:
  1926.       dc.b m,new_env,trigg,0
  1927.       dc.l marx_envys
  1928.       dc.w C05,q,Ab05,q,G05,q,F05,q
  1929.       dc.w C05,q,Ab05,q,G05,q,F05,q
  1930.       dc.w C05,q,Ab05,q,G05,q,F05,q,rest,q,F05,q,Eb05,cr
  1931.       dc.b m,end_patt
  1932. p3e:
  1933.       dc.b m,new_env,trigg,0
  1934.       dc.l marx_envys
  1935.       dc.w D05,q,Bb05,q,A05,q,G05,q*5
  1936.       dc.w C05,q,Ab05,q,G05,q,F05,q*5
  1937.       dc.b m,end_patt
  1938. p4e:
  1939.       dc.b m,new_env,trigg,0
  1940.       dc.l marx_envys
  1941.       dc.w E02,sq,F02,sq,Gb02,sq,G02,sq
  1942.     dc.w Ab02,sq,A02,sq,Bb02,sq,B02,sq
  1943.     dc.w C03,sq,Db03,sq,D03,sq,Eb03,sq
  1944.     dc.w E03,sq,F03,sq,Gb03,sq,G03,sq
  1945.     dc.w Ab03,sq,A03,sq,Bb03,sq,B03,sq
  1946.     dc.w C04,sq,Db04,sq,D04,sq,Eb04,sq
  1947.     dc.w E04,sq,F04,sq,Gb04,sq,G04,sq
  1948.     dc.w Ab04,sq,A04,sq,Bb04,sq,B04,sq
  1949.     dc.w C05,sq,rest,sq*15
  1950.       dc.b m,end_patt
  1951. p5e:
  1952.       dc.b m,new_env,trigg,0
  1953.       dc.l bass_envi
  1954.       dc.w C02,q,C02,q,G01,q,Bb01,q
  1955.       dc.w C02,q,C02,q,G01,q,Bb01,q
  1956.       dc.w C02,q,C02,q,G01,q,Bb01,q,rest,q,C02,q
  1957.       dc.b m,new_env,trigg,0
  1958.       dc.l bass_env
  1959.     dc.w Bb01,cr
  1960.       dc.b m,end_patt
  1961. p6e:
  1962.       dc.b m,new_env,trigg,0
  1963.       dc.l bass_envi
  1964.       dc.w F02,q,F02,q,C02,q,Eb02,q
  1965.       dc.w F02,q,F02,q,C02,q,Eb02,q
  1966.       dc.w F02,q,F02,q,C02,q,Eb02,q,rest,q,F02,q
  1967.       dc.b m,new_env,trigg,0
  1968.       dc.l bass_env
  1969.     dc.w Eb02,cr
  1970.       dc.b m,end_patt
  1971. p7e:
  1972.       dc.b m,new_env,trigg,0
  1973.       dc.l bass_envi
  1974.       dc.w G02,q,G02,cr,G02,cr,G02,cr,Gb02,q
  1975.       dc.w F02,q,F02,cr,F02,cr,F02,cr,Eb02,q
  1976.       dc.w C02,q,C02,q,G01,q,Bb01,q
  1977.       dc.w C02,q,C02,q,G01,q,Bb01,q
  1978.       dc.w C02,q,C02,q,G01,q,Bb01,q
  1979.       dc.w C02,q,C02,q,G01,q,Bb01,q,C02,q,rest,q*7
  1980.       dc.b m,end_patt
  1981. p10e:     
  1982.       dc.b m,inline,6,200,255,0
  1983.       dc.b m,new_env,trigg,0
  1984.       dc.l bassde
  1985.       dc.b m,pbend,down,200
  1986.       dc.w c01,0
  1987.       dc.w e04,sQ
  1988.       dc.b m,new_env,trigg,0
  1989.       dc.l hate
  1990.       dc.w g06,sQ,g06,sQ,g06,sQ
  1991.       dc.b m,new_env,trigg,0
  1992.       dc.l qCLAPE
  1993.       dc.b m,pbend,down,69
  1994.       dc.w c01,0
  1995.       dc.w c04,sQ
  1996.       dc.b m,new_env,trigg,0
  1997.       dc.l hate
  1998.       dc.w g06,sQ,g06,sQ,g06,sQ
  1999.       dc.b m,new_env,trigg,0
  2000.       dc.l bassde
  2001.       dc.b m,pbend,down,200
  2002.       dc.w c01,0
  2003.       dc.w e04,sQ
  2004.       dc.b m,new_env,trigg,0
  2005.       dc.l hate
  2006.       dc.w g06,sQ,g06,sQ,g06,sQ
  2007.       dc.b m,new_env,trigg,0
  2008.       dc.l QCLAPE
  2009.       dc.b m,pbend,down,69
  2010.       dc.w c01,0
  2011.       dc.w c05,sQ
  2012.       dc.b m,new_env,trigg,0
  2013.       dc.l hate
  2014.       dc.w g06,sQ,g06,sQ,g06,sq
  2015.       dc.b m,end_patt
  2016. p11e:     
  2017.       dc.b m,inline,6,200,255,0
  2018.       dc.b m,new_env,trigg,0
  2019.       dc.l bassde
  2020.       dc.b m,pbend,down,200
  2021.       dc.w c01,0
  2022.       dc.w e04,q
  2023.       dc.b m,end_patt
  2024. ;****************************************************************
  2025.  
  2026.  
  2027. CR      set 16
  2028. tcr1     set 9
  2029. tcr2     set 8
  2030. Q       set cr/2
  2031. tq1      set 4
  2032. tq2      set 5
  2033. ;tsq     set 3
  2034. ;tsq2     set 2
  2035. SQ      set cr/4
  2036. ;m       set 254
  2037. ;rest     set $fd00
  2038. ;dcr      set cr+q
  2039. ;dq      set q+sq
  2040. ;dsq      set sq+(sq/2)
  2041. ;sb      set cr*4
  2042. ;min      set cr*2
  2043. ;dm      set min+cr
  2044.  
  2045. ;dramatic loop
  2046.  
  2047. song25:
  2048.     dc.l    p1f
  2049.       dc.l     end_song
  2050.  
  2051. song26:
  2052.     dc.l    p5f,p5f,p5f,p5f,p5f
  2053.     dc.l    p6f,p6f,p6f,p6f,p6f
  2054.     dc.l    p7f,p7f,p7f,p7f,p7f
  2055.     dc.l    p8f,p8f,p8f,p8f,p8f
  2056.         DC.L     end_song
  2057.  
  2058. song27:
  2059.         
  2060.     dc.l    p10e,p10e,p10e,p10e
  2061.     dc.l    p10e,p10e,p10e,p10e
  2062.     dc.l    p10e,p10e,p10e,p10e
  2063.     dc.l     end_song
  2064.  
  2065. p1f:
  2066.       dc.b m,new_env,trigg,0
  2067.       dc.l marx_envys
  2068.       dc.w F04,cr,G04,cr,Ab04,cr,F04,cr
  2069.     dc.w G04,cr,Ab04,cr,bb04,cr,G04,cr
  2070.     dc.w Ab04,cr,Bb04,cr,C05,cr,Ab04,cr
  2071.     dc.w Bb04,cr,G04,cr,Ab04,cr,F04,cr
  2072.     dc.w G04,cr,Eb04,cr,F04,cr,Db04,cr
  2073.       dc.w C04,q,D04,q,Eb04,q,C04,q
  2074.     dc.w D04,q,Eb04,q,F04,q,D04,q
  2075.     dc.w Eb04,q,F04,q,G04,q,Eb04,q
  2076.     dc.w F04,q,D04,q,Eb04,q,C04,q
  2077.     dc.w D04,q,Bb03,q,C04,q,Ab03,q
  2078.       dc.w G04,cr,A04,cr,Bb04,cr,G04,cr
  2079.     dc.w A04,cr,Bb04,cr,C05,cr,A04,cr
  2080.     dc.w Bb04,cr,C05,cr,D05,cr,Bb04,cr
  2081.     dc.w C05,cr,A04,cr,Bb04,cr,G04,cr
  2082.     dc.w A04,cr,F04,cr,G04,cr,Eb04,cr
  2083.       dc.w D04,q,E04,q,F04,q,D04,q
  2084.     dc.w E04,q,F04,q,G04,q,E04,q
  2085.     dc.w F04,q,G04,q,A04,q,F04,q
  2086.     dc.w G04,q,E04,q,F04,q,D04,q
  2087.     dc.w E04,q,C04,q,D04,q,Bb03,q
  2088.       dc.b m,end_patt
  2089. p5f:
  2090.       dc.b m,new_env,trigg,0
  2091.       dc.l bass_envi
  2092.       dc.w F02,q,Gb02,q,F02,q,Gb02,q
  2093.       dc.w F02,q,Gb02,q,F02,q,Gb02,q
  2094.       dc.b m,end_patt
  2095. p6f:
  2096.       dc.w C02,q,Db02,q,C02,q,Db02,q      
  2097.       dc.b m,end_patt
  2098. p7f:
  2099.       dc.b m,new_env,trigg,0
  2100.       dc.l bass_envi
  2101.       dc.w G02,q,Ab02,q,G02,q,Ab02,q
  2102.       dc.w G02,q,Ab02,q,G02,q,Ab02,q
  2103.       dc.b m,end_patt
  2104. p8f:
  2105.       dc.w D02,q,Eb02,q,D02,q,Eb02,q      
  2106.       dc.b m,end_patt
  2107.  
  2108. CR      set 16
  2109. tcr1     set 9
  2110. tcr2     set 8
  2111. Q       set cr/2
  2112. tq1      set 4
  2113. tq2      set 5
  2114. ;tsq     set 3
  2115. ;tsq2     set 2
  2116. SQ      set cr/4
  2117. ;m       set 254
  2118. ;rest     set $fd00
  2119. ;dcr      set cr+q
  2120. ;dq      set q+sq
  2121. ;dsq      set sq+(sq/2)
  2122. ;sb      set cr*4
  2123. ;min      set cr*2
  2124. ;dm      set min+cr
  2125.  
  2126.  
  2127.  
  2128. ; a few bars of danger music
  2129.  
  2130. song29:
  2131.     dc.l    p1g,pra,pr,pr,pr
  2132.       dc.l     end_song
  2133.  
  2134. song30:
  2135.     dc.l    p5g,pra,pr,pr,pr
  2136.         DC.L     end_song
  2137.  
  2138. song31:
  2139.         
  2140.     dc.l    p10e,p10e,p10e,p10e
  2141.     dc.l    p10e,p10e,p11e,pra,pr,pr,pr
  2142.     dc.l     end_song
  2143.  
  2144. p1g:
  2145.       dc.b m,new_env,trigg,0
  2146.       dc.l marx_envys
  2147.     dc.w Eb04,q,D04,q,C04,q,F04,cr
  2148.     dc.w Eb04,q,D04,q,G04,cr,F04,q,Eb04,q
  2149.     dc.w F04,cr,Eb04,q,D04,q,Eb04,sq,rest,sq
  2150.     dc.w Eb04,q,D04,q,C04,q,F04,cr
  2151.     dc.w Eb04,q,D04,q,G04,cr,F04,q,Eb04,q
  2152.     dc.w F04,cr,Eb04,q,D04,q,Eb04,q
  2153.     dc.w G04,q*13,F04,q,Eb04,q,D04,q,C04,q
  2154.       dc.b m,end_patt
  2155. p5g:
  2156.       dc.b m,new_env,trigg,0
  2157.       dc.l bass_env
  2158.       dc.w C02,q*3,D02,cr*2,Eb02,cr*2,D02,q*5
  2159.       dc.w C02,q*3,D02,cr*2,Eb02,cr*2,F02,q*5
  2160.       dc.b m,new_env,trigg,0
  2161.       dc.l bass_envi
  2162.     dc.w G02,q,G02,q,G02,q,G02,q
  2163.     dc.w G02,q,G02,q,G02,q,G02,q
  2164.     dc.w G02,q,G02,q,G02,q,G02,q
  2165.     dc.w G02,q,F02,q,Eb02,q,D02,q,C02,q
  2166.       dc.b m,end_patt
  2167.  
  2168. CR      set 16
  2169. tcr1     set 9
  2170. tcr2     set 8
  2171. Q       set cr/2
  2172. tq1      set 4
  2173. tq2      set 5
  2174. ;tsq     set 3
  2175. ;tsq2     set 2
  2176. SQ      set cr/4
  2177. ;m       set 254
  2178. ;rest     set $fd00
  2179. ;dcr      set cr+q
  2180. ;dq      set q+sq
  2181. ;dsq      set sq+(sq/2)
  2182. ;sb      set cr*4
  2183. ;min      set cr*2
  2184. ;dm      set min+cr
  2185.  
  2186.  
  2187. ;minor triumph
  2188.  
  2189. song33:
  2190.     dc.l    p1h,pr,pr,pr,pr
  2191.       dc.l     end_song
  2192.  
  2193. song34:
  2194.     dc.l    p2h,pr,pr,pr,pr
  2195.         DC.L     end_song
  2196.  
  2197. song35:
  2198.         
  2199.     dc.l    p3h,pr,pr,pr,pr
  2200.     dc.l     end_song
  2201.  
  2202. p1h:
  2203.       dc.b m,new_env,trigg,0
  2204.       dc.l marx_envys
  2205.     dc.w F04,q*5,C04,q,F04,q,A04,q
  2206.     dc.w C05,q*5,A04,q,C05,q,F05,q
  2207.     dc.w A05,q*5,F05,q,A05,q,C06,q
  2208.     dc.w F05,cr,C05,cr,A04,cr,C05,cr
  2209.     dc.w F04,cr*4
  2210.       dc.b m,end_patt
  2211. p2h:
  2212.       dc.b m,new_env,trigg,0
  2213.       dc.l titty2
  2214.     dc.w C04,q*5,A03,q,C04,q,F04,q
  2215.     dc.w A04,q*5,F04,q,A04,q,C05,q
  2216.     dc.w F05,q*5,C05,q,F05,q,A05,q
  2217.     dc.w C05,cr,A04,cr,F04,cr,A04,cr
  2218.     dc.w C04,cr*4
  2219.       dc.b m,end_patt
  2220. p3h:
  2221.       dc.b m,new_env,trigg,0
  2222.       dc.l titty3
  2223.     dc.w A03,q*5,F03,q,A03,q,C04,q
  2224.     dc.w F04,q*5,C04,q,F04,q,A04,q
  2225.     dc.w C05,q*5,A04,q,C05,q,F05,q
  2226.     dc.w A04,cr,F04,cr,C04,cr,F04,cr
  2227.     dc.w A03,cr*4
  2228.       dc.b m,end_patt
  2229.  
  2230. CR      set 20
  2231. tcr1     set 9
  2232. tcr2     set 8
  2233. Q       set cr/2
  2234. tq1      set 4
  2235. tq2      set 5
  2236. ;tsq     set 3
  2237. ;tsq2     set 2
  2238. SQ      set cr/4
  2239. ;m       set 254
  2240. ;rest     set $fd00
  2241. ;dcr      set cr+q
  2242. ;dq      set q+sq
  2243. ;dsq      set sq+(sq/2)
  2244. ;sb      set cr*4
  2245. ;min      set cr*2
  2246. ;dm      set min+cr
  2247.  
  2248.  
  2249. ;minor anticlimax
  2250.  
  2251. song37:
  2252.     dc.l    p1i,pr,pr,pr,pr
  2253.       dc.l     end_song
  2254.  
  2255. song38:
  2256.     dc.l    p2i,pr,pr,pr,pr
  2257.         DC.L     end_song
  2258.  
  2259. song39:
  2260.         
  2261.     dc.l    pr,pr,pr,pr
  2262.     dc.l     end_song
  2263.  
  2264. p1i:
  2265.       dc.b m,new_env,trigg,0
  2266.       dc.l marx_envys
  2267.     dc.w C05,cr,G04,cr+2,Bb04,cr+3,F04,cr+5
  2268.     dc.w Ab04,cr+6,Eb04,cr+10,G04,cr+14,F04,q+8,Eb04,q+10
  2269.       dc.b m,pbend,down,2
  2270.       dc.w c01,0
  2271.     dc.w C04,cr*4
  2272.       dc.b m,end_patt
  2273. p2i:
  2274.       dc.b m,new_env,trigg,0
  2275.       dc.l titty2
  2276.     dc.w G03,cr,C04,cr+2,F03,cr+3,Bb03,cr+4
  2277.     dc.w Eb03,cr+6,Ab03,cr+10,D03,cr+14,Eb03,q+8,F03,q+10
  2278.       dc.b m,pbend,down,2
  2279.       dc.w c01,0
  2280.     dc.w G03,cr*4
  2281.       dc.b m,end_patt
  2282.  
  2283. ;threatening
  2284.  
  2285. song41:
  2286.     dc.l    p1j,p1j,p2j,pr,pr
  2287.       dc.l     end_song
  2288.  
  2289. song42:
  2290.     dc.l    p3j,p3j,p3j,p3j,p4j,pr,pr
  2291.         DC.L     end_song
  2292.  
  2293. song43:
  2294.         
  2295.     dc.l    p10j,p10j,p10j,p10j,p5j,pr,pr
  2296.     dc.l     end_song
  2297.  
  2298. p1j:
  2299.       dc.b m,new_env,trigg,0
  2300.       dc.l marx_envys
  2301.     dc.w C03,cr,Bb03,q,Db03,cr,Gb03,q,B03,q
  2302.     dc.w D03,cr,G03,q,C04,q,Eb03,cr,Ab03,q,Db04,q,Eb04,q
  2303.       dc.b m,end_patt
  2304. p2j:
  2305.       dc.b m,modon,1,1
  2306.       dc.w 130,130,8
  2307.     dc.w E03,cr*4
  2308.       dc.b m,end_patt
  2309. p3j:
  2310.       dc.b m,new_env,trigg,0
  2311.       dc.l bass_envz
  2312.     dc.w C01,q,Db01,q,B01*2,q,C01,q
  2313.     dc.w C01,q,Db01,q,B01*2,q,C01,q
  2314.       dc.b m,end_patt
  2315. p4j:
  2316.       dc.b m,new_env,trigg,0
  2317.       dc.l titty2
  2318.       dc.b m,modon,1,1
  2319.       dc.w 125,125,8
  2320.     dc.w Eb03,cr*4
  2321.       dc.b m,end_patt
  2322. p5j:
  2323.       dc.b m,new_env,trigg,0
  2324.       dc.l titty3
  2325.       dc.b m,modon,1,1
  2326.       dc.w 135,135,8
  2327.     dc.w F03,cr*4
  2328.       dc.b m,end_patt
  2329.  
  2330. p10j:     
  2331.       dc.b m,inline,6,200,255,0
  2332.       dc.b m,new_env,trigg,0
  2333.       dc.l bassde
  2334.       dc.b m,pbend,down,200
  2335.       dc.w c01,0
  2336.       dc.w e04,cr
  2337.       dc.b m,pbend,down,200
  2338.       dc.w c01,0
  2339.       dc.w e04,cr
  2340.       dc.b m,new_env,trigg,0
  2341.       dc.l snaree
  2342.       dc.b m,pbend,down,69
  2343.       dc.w c01,0
  2344.       dc.w c05,Q,c05,q,c05,q
  2345.       dc.b m,new_env,trigg,0
  2346.       dc.l bassde
  2347.       dc.b m,pbend,down,200
  2348.       dc.w c01,0
  2349.       dc.w e04,q
  2350.     dc.b m,pboff
  2351.       dc.b m,end_patt
  2352.  
  2353. ;high drama
  2354.  
  2355. song45:
  2356.     dc.l    p1k,p1k,p2k,p2k,p2ak,pr,pr,pr,pr
  2357.       dc.l     end_song
  2358.  
  2359. song46:
  2360.     dc.l    p3k,p3k,p3k,p3k,p3k,p3ak,pr,pr,pr,pr
  2361.         DC.L     end_song
  2362.  
  2363. song47:
  2364.         
  2365.     dc.l    p10k,p10k,p10k,p10k,p10k,p11e,pra,pr,pr,pr,pr
  2366.     dc.l     end_song
  2367.  
  2368. p1k:
  2369.       dc.b m,new_env,trigg,0
  2370.       dc.l sq_env1
  2371.     dc.w C05,sq,C05,sq,C05,q,c05,q,c05,sq,c05,sq
  2372.     dc.w C05,q,c05,q,c05,sq,c05,sq,C05,sq,C05,sq
  2373.     dc.w c05,q,c05,sq,c05,sq,C05,sq,C05,q,C05,sq
  2374.     dc.w C05,q,c05,q,c05,sq,c05,sq,C05,sq,C05,sq
  2375.       dc.b m,end_patt
  2376. p2k:
  2377.     dc.w E05,sq,F05,sq,Gb05,sq,G05,sq
  2378.     dc.w Ab05,sq,A05,sq,Bb05,sq,B05,sq
  2379.       dc.b m,end_patt
  2380. p2ak:
  2381.     dc.w C05,q,rest,q*7
  2382.       dc.b m,end_patt
  2383. p3k:
  2384.       dc.b m,new_env,trigg,0
  2385.       dc.l bass_envz
  2386.     dc.w C02,q,C02,q,C03,q,Eb02,sq,Bb02,q
  2387.     dc.w F02,sq,C03,q,G02,q,Gb02,q
  2388.       dc.b m,end_patt
  2389. p3ak:
  2390.     dc.w C02,q,rest,q*7
  2391.       dc.b m,end_patt
  2392. p10k:     
  2393.       dc.b m,inline,6,200,255,0
  2394.       dc.b m,new_env,trigg,0
  2395.       dc.l bassde
  2396.       dc.b m,pbend,down,200
  2397.       dc.w c01,0
  2398.       dc.w e04,sq
  2399.       dc.b m,new_env,trigg,0
  2400.       dc.l hate
  2401.       dc.w g06,sQ,g06,sQ,g06,sQ
  2402.       dc.b m,new_env,trigg,0
  2403.       dc.l qCLAPE
  2404.       dc.b m,pbend,down,69
  2405.       dc.w c01,0
  2406.       dc.w c04,Q
  2407.       dc.b m,new_env,trigg,0
  2408.       dc.l bassde
  2409.       dc.b m,pbend,down,200
  2410.       dc.w c01,0
  2411.       dc.w e04,sQ
  2412.       dc.b m,new_env,trigg,0
  2413.       dc.l QCLAPE
  2414.       dc.b m,pbend,down,69
  2415.       dc.w c01,0
  2416.       dc.w c05,Q
  2417.       dc.b m,new_env,trigg,0
  2418.       dc.l bassde
  2419.       dc.b m,pbend,down,200
  2420.       dc.w c01,0
  2421.       dc.w e04,sQ
  2422.       dc.b m,new_env,trigg,0
  2423.       dc.l QCLAPE
  2424.       dc.b m,pbend,down,69
  2425.       dc.w c01,0
  2426.       dc.w c05,Q,c05,q,c05,q
  2427.       dc.b m,end_patt
  2428.  
  2429. CR      set 24
  2430. tcr1     set 9
  2431. tcr2     set 8
  2432. Q       set cr/2
  2433. tq1      set 4
  2434. tq2      set 5
  2435. ;tsq     set 3
  2436. ;tsq2     set 2
  2437. SQ      set cr/4
  2438. ;m       set 254
  2439. ;rest     set $fd00
  2440. ;dcr      set cr+q
  2441. ;dq      set q+sq
  2442. ;dsq      set sq+(sq/2)
  2443. ;sb      set cr*4
  2444. ;min      set cr*2
  2445. ;dm      set min+cr
  2446.  
  2447. ;nostalgic
  2448.  
  2449. song49:
  2450.     dc.l    p1l
  2451.       dc.l     end_song
  2452.  
  2453. song50:
  2454.     dc.l    p4l
  2455.         DC.L     end_song
  2456.  
  2457. song51:
  2458.         
  2459.     dc.l    p2l,p2l,p3l
  2460.     dc.l     end_song
  2461.  
  2462. p1l:
  2463.       dc.b m,new_env,trigg,0
  2464.       dc.l mono_envt1
  2465.     dc.w C05,cr*3,B04,cr*2,C05,q,D05,q,A04,cr*6
  2466.     dc.w C05,cr*3,B04,cr*2,C05,q,D05,q,A04,cr*6
  2467.     dc.w E05,cr*3,D05,q*5,E05,q,C05,q*11,rest,q
  2468.     dc.w C05,cr*3,B04,cr*2,C05,q,D05,q,C05,cr*3,E04,cr,D04,cr,C04,cr
  2469.       dc.b m,end_patt
  2470. p2l:
  2471.       dc.b m,new_env,trigg,0
  2472.       dc.l apaiano_env
  2473.     dc.w rest,q,G02,q,C03,q,G02,q,E03,q,G02,q
  2474.     dc.w rest,q,G02,q,C03,q,G02,q,E03,q,G02,q
  2475.     dc.w rest,q,C03,q,F03,q,C03,q,A03,q,C03,q
  2476.     dc.w rest,q,C03,q,F03,q,C03,q,A03,q,C03,q
  2477.       dc.b m,end_patt
  2478. p3l:
  2479.     dc.w rest,q,B02,q,E03,q,B02,q,Ab03,q,B02,q
  2480.     dc.w rest,q,B02,q,E03,q,B02,q,Ab03,q,B02,q
  2481.     dc.w rest,q,E03,q,A03,q,E03,q,C04,q,E03,q
  2482.     dc.w rest,q,E03,q,A03,q,E03,q,C04,q,E03,q
  2483.     dc.w rest,q,C03,q,F03,q,C03,q,A03,q,C03,q
  2484.     dc.w rest,q,D03,q,G03,q,D03,q,B03,q,D03,q
  2485.     dc.w rest,q,G02,q,C03,q,G02,q,E03,q,G02,q
  2486.     dc.w rest,q,G02,q,C03,q,G02,q,E03,q,G02,q
  2487.       dc.b m,end_patt
  2488. p4l:
  2489.       dc.b m,new_env,trigg,0
  2490.       dc.l bass_nos
  2491.     dc.w C02,cr*3,C02,cr,D02,cr,E02,cr
  2492.     dc.w F02,cr*3,F02,cr,E02,cr,D02,cr
  2493.     dc.w C02,cr*3,C02,cr,D02,cr,E02,cr
  2494.     dc.w F02,cr*3,F01,cr,E02,cr,D02,cr
  2495.     dc.w E02,cr*3,E02,cr*3,A02,cr*3,A02,cr*3
  2496.     dc.w F02,cr*3,G02,cr*3,C02,cr*3,C02,cr*3
  2497.       dc.b m,end_patt
  2498.  
  2499.  
  2500. CR      set 20
  2501. tcr1     set 9
  2502. tcr2     set 8
  2503. Q       set cr/2
  2504. tq1      set 4
  2505. tq2      set 5
  2506. ;tsq     set 3
  2507. ;tsq2     set 2
  2508. SQ      set cr/4
  2509. ;m       set 254
  2510. ;rest     set $fd00
  2511. ;dcr      set cr+q
  2512. ;dq      set q+sq
  2513. ;dsq      set sq+(sq/2)
  2514. ;sb      set cr*4
  2515. ;min      set cr*2
  2516. ;dm      set min+cr
  2517.  
  2518.  
  2519. ;Great triumph scene
  2520.  
  2521. song53:
  2522.     dc.l    p1m,pr,pr
  2523.       dc.l     end_song
  2524.  
  2525. song54:
  2526.     dc.l    p2m,p2m,p2m,p2m,p3m,p4m,p2m,p5m,pr,pr
  2527.         DC.L     end_song
  2528.  
  2529. song55:
  2530.     dc.l    p2am,p2am,p2am,p2am,p3am,p4am,p2am,p5am,pr,pr
  2531.     dc.l     end_song
  2532.  
  2533. p1m:
  2534.       dc.b m,new_env,trigg,0
  2535.       dc.l marx_envys
  2536.     dc.w F04,q*5,C04,q,F04,q,A04,q
  2537.     dc.w C05,q*5,A04,q,C05,q,F05,q
  2538.     dc.w A05,q*5,F05,q,A05,q,C06,q
  2539.     dc.w F05,cr,C05,cr,A04,cr,C05,cr
  2540.     dc.w D05,q,Bb04,q,F04,q,D05,q,Bb04,q,F04,q
  2541.     dc.w D05,q,Bb04,q
  2542.     dc.w E05,q,C05,q,G04,q,E05,q,C05,q,G04,q
  2543.     dc.w E05,q,C05,q
  2544.     dc.w F05,cr,C05,cr,A04,cr,C05,cr
  2545.     dc.w F04,cr*4
  2546.       dc.b m,end_patt
  2547. p2m:
  2548.       dc.b m,new_env,trigg,0
  2549.     dc.l titty2
  2550.     dc.w F02,q,A02,q,C03,q,F03,q*5 
  2551.      dc.b m,end_patt
  2552. p3m:
  2553.     dc.w Bb01,q,D02,q,F02,q,Bb02,q*5
  2554.       dc.b m,end_patt
  2555. p4m:
  2556.     dc.w C02,q,E02,q,G02,q,C03,q*5
  2557.       dc.b m,end_patt
  2558. p5m:
  2559.       dc.b m,new_env,trigg,0
  2560.       dc.l titty2
  2561.     dc.w F02,cr*4
  2562.       dc.b m,end_patt
  2563. p2am:
  2564.       dc.b m,new_env,trigg,0
  2565.     dc.l titty3
  2566.     dc.w F01,q,A01,q,C02,q,F02,q*5 
  2567.      dc.b m,end_patt
  2568. p3am:
  2569.     dc.w Bb01,q,D01,q,F01,q,Bb01,q*5
  2570.       dc.b m,end_patt
  2571. p4am:
  2572.     dc.w C01,q,E01,q,G01,q,C02,q*5
  2573.       dc.b m,end_patt
  2574. p5am:
  2575.       dc.b m,new_env,trigg,0
  2576.       dc.l titty3
  2577.     dc.w F01,cr*4
  2578.       dc.b m,end_patt
  2579. p6m:
  2580.       dc.b m,new_env,trigg,0
  2581.       dc.l titty3
  2582.     dc.w C04,cr*4
  2583.       dc.b m,end_patt
  2584. ;p10m:     
  2585.       dc.b m,inline,6,200,255,0
  2586.       dc.b m,new_env,trigg,0
  2587.       dc.l bassde
  2588.       dc.b m,pbend,down,200
  2589.       dc.w c01,0
  2590.       dc.w e04,sQ
  2591.       dc.b m,new_env,trigg,0
  2592.       dc.l hate
  2593.       dc.w g06,sQ,g06,sQ,g06,sQ
  2594.       dc.b m,new_env,trigg,0
  2595.       dc.l qCLAPE
  2596.       dc.b m,pbend,down,69
  2597.       dc.w c01,0
  2598.       dc.w c04,sQ
  2599.       dc.b m,new_env,trigg,0
  2600.       dc.l hate
  2601.       dc.w g06,sQ,g06,sQ,g06,sQ
  2602.       dc.b m,new_env,trigg,0
  2603.       dc.l bassde
  2604.       dc.b m,pbend,down,200
  2605.       dc.w c01,0
  2606.       dc.w e04,sQ
  2607.       dc.b m,new_env,trigg,0
  2608.       dc.l hate
  2609.       dc.w g06,sQ,g06,sQ,g06,sQ
  2610.       dc.b m,new_env,trigg,0
  2611.       dc.l QCLAPE
  2612.       dc.b m,pbend,down,69
  2613.       dc.w f01,0
  2614.       dc.w c05,sQ
  2615.       dc.b m,new_env,trigg,0
  2616.       dc.l hate
  2617.       dc.w g06,sQ,g06,sQ,g06,sq
  2618.       dc.b m,end_patt
  2619.  
  2620.  
  2621. CR      set 20
  2622. tcr1     set 9
  2623. tcr2     set 8
  2624. Q       set cr/2
  2625. tq1      set 4
  2626. tq2      set 5
  2627. ;tsq     set 3
  2628. ;tsq2     set 2
  2629. SQ      set cr/4
  2630. ;m       set 254
  2631. ;rest     set $fd00
  2632. ;dcr      set cr+q
  2633. ;dq      set q+sq
  2634. ;dsq      set sq+(sq/2)
  2635. ;sb      set cr*4
  2636. ;min      set cr*2
  2637. ;dm      set min+cr
  2638.  
  2639.  
  2640. ;secretive
  2641.  
  2642. song57:
  2643.     dc.l    p1n,p1n
  2644.       dc.l     end_song
  2645.  
  2646. song58:
  2647.     dc.l    p2n,p2n
  2648.         DC.L     end_song
  2649.  
  2650. song59:
  2651.         
  2652.     dc.l    p10n,p10n
  2653.     dc.l     end_song
  2654.  
  2655. p1n:
  2656.       dc.b m,new_env,trigg,0
  2657.       dc.l marx_envysi
  2658.     dc.w F05,cr,Eb05,cr,Bb04,cr,G04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  2659.     dc.w F05,cr,Eb05,cr,Bb04,cr,Ab04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  2660.     dc.w F05,cr,Eb05,cr,Bb04,cr,Gb04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  2661.     dc.w F05,cr,Eb05,cr,Bb04,cr,Gb04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  2662.       dc.b m,end_patt
  2663. p2n:
  2664.       dc.b m,new_env,trigg,0
  2665.       dc.l titty2
  2666.       dc.b m,modon,1,1
  2667.       dc.w 25,25,8
  2668.     dc.w Eb02,cr*3,Db02,cr*5,Gb01,cr*3,Ab01,cr*5
  2669.       dc.b m,modon,1,1
  2670.       dc.w 125,100,8
  2671.     dc.w Eb01,cr*16
  2672.       dc.b m,end_patt
  2673. p10n:     
  2674.       dc.b m,inline,6,200,255,0
  2675.       dc.b m,new_env,trigg,0
  2676.       dc.l bassde
  2677.       dc.b m,pbend,down,200
  2678.       dc.w c01,0
  2679.       dc.w e04,cr*3
  2680.       dc.b m,pbend,down,200
  2681.       dc.w c01,0
  2682.       dc.w e04,cr*2
  2683.       dc.b m,pbend,down,200
  2684.       dc.w c01,0
  2685.       dc.w e04,cr*1
  2686.       dc.b m,new_env,trigg,0
  2687.       dc.l snaree
  2688.       dc.b m,pbend,down,69
  2689.       dc.w c01,0
  2690.       dc.w c04,cr*2
  2691.       dc.b m,new_env,trigg,0
  2692.       dc.l bassde
  2693.       dc.b m,pbend,down,200
  2694.       dc.w c01,0
  2695.       dc.w e04,cr*3
  2696.       dc.b m,pbend,down,200
  2697.       dc.w c01,0
  2698.       dc.w e04,cr*2
  2699.       dc.b m,pbend,down,200
  2700.       dc.w c01,0
  2701.       dc.w e04,cr
  2702.       dc.b m,new_env,trigg,0
  2703.       dc.l snaree
  2704.       dc.b m,pbend,down,69
  2705.       dc.w c01,0
  2706.       dc.w c04,cr
  2707.       dc.b m,new_env,trigg,0
  2708.       dc.l bassde
  2709.       dc.b m,pbend,down,200
  2710.       dc.w c01,0
  2711.       dc.w e04,cr
  2712.       dc.b m,pbend,down,200
  2713.       dc.w c01,0
  2714.     dc.w e04,cr*3
  2715.       dc.b m,pbend,down,200
  2716.       dc.w c01,0
  2717.       dc.w e04,cr*2
  2718.       dc.b m,new_env,trigg,0
  2719.       dc.l snaree
  2720.       dc.b m,pbend,down,69
  2721.       dc.w c01,0
  2722.       dc.w c04,cr
  2723.     dc.w c04,cr*2
  2724.       dc.b m,new_env,trigg,0
  2725.       dc.l bassde
  2726.       dc.b m,pbend,down,200
  2727.       dc.w c01,0
  2728.       dc.w e04,cr*3
  2729.       dc.b m,pbend,down,200
  2730.       dc.w c01,0
  2731.       dc.w e04,cr*2
  2732.       dc.b m,new_env,trigg,0
  2733.       dc.l snaree
  2734.       dc.b m,pbend,down,69
  2735.       dc.w c01,0
  2736.       dc.w c04,cr
  2737.     dc.w c04,cr,c04,cr
  2738.       dc.b m,end_patt
  2739.  
  2740. ;Great disaster scene
  2741.  
  2742. song61:
  2743.     dc.l    pr,pr,pr,pr,p1o,pr,pr
  2744.       dc.l     end_song
  2745.  
  2746. song62:
  2747.     dc.l    p2o,p2o,p2o,p2o,p2o,p2o
  2748.     dc.l    p2o,p2o,p2o,p2o,p2ao,pr,pr
  2749.         DC.L     end_song
  2750.  
  2751. song63:
  2752.         
  2753.     dc.l    pr,pr,p3o,p3o,p3o,p3o,p3o
  2754.     dc.l    p3o,p3o,p3o,p3o,p3ao,pr,pr
  2755.     dc.l     end_song
  2756.  
  2757. p1o:
  2758.       dc.b m,new_env,trigg,0
  2759.       dc.l marx_envy
  2760.       dc.b m,modon,1,1
  2761.       dc.w 4,4,8
  2762.     dc.w C04,cr*6,Bb03,cr*2,G03,cr*8
  2763.     dc.w C04,cr*6,Eb04,cr*2,Gb04,cr*8
  2764.     dc.w C04,cr*6,Bb03,cr*2,G03,cr*8
  2765.     dc.w C04,cr*6,Eb04,cr*2,Gb04,cr*4,F04,cr*4,C04,cr*8
  2766.       dc.b m,end_patt
  2767. p2o:
  2768.       dc.b m,new_env,trigg,0
  2769.       dc.l titty2
  2770.       dc.b m,modon,1,1
  2771.       dc.w 10,10,8
  2772.     dc.w C02,cr*2,Eb02,cr*2,Bb01,cr*2,Db02,cr*2
  2773.       dc.b m,end_patt
  2774. p2ao:
  2775.       dc.b m,new_env,trigg,0
  2776.       dc.l titty2
  2777.       dc.b m,modon,1,1
  2778.       dc.w 25,25,8
  2779.     dc.w C02,cr*8
  2780.       dc.b m,end_patt
  2781. p3o:
  2782.       dc.b m,new_env,trigg,0
  2783.       dc.l titty3
  2784. ;      dc.b m,modon,1,1
  2785. ;      dc.w 25,25,8
  2786.     dc.w C03,cr,Eb03,cr,Bb02,cr,Db03,cr
  2787.     dc.w C03,cr,Eb03,cr,Bb02,cr,Db03,cr
  2788.       dc.b m,end_patt
  2789. p3ao:
  2790.       dc.b m,new_env,trigg,0
  2791.       dc.l titty3
  2792. ;      dc.b m,modon,1,1
  2793. ;      dc.w 25,25,8
  2794.     dc.w C03,cr*8
  2795.       dc.b m,end_patt
  2796. ;****************************************************************
  2797.  
  2798. ;****************************************************************
  2799. abass_env:    dc.b 15,t2,15,t2,15,t2,15,t2
  2800.       dc.b 15,t2,15,t2
  2801.       dc.b 2,t2,255
  2802. apaiano_env:    dc.b 15,t3,15,t3,15,t3,15,t3,14,t3
  2803.       dc.b 13,t3,13,t3,13,t3,13,t3,13,t3
  2804.       dc.b 13,t3,12,t3,12,t3,11,t3
  2805.       dc.b 11,t3,10,t3,9,t3,8,t3,7,t3,6,t3,255
  2806. snaree:     dc.b 15,b3,15,t3,15,t3,15,b3,15,t3,15,b3
  2807.   dc.b 12,t3,12,b3,9,t3,7,b3,7,t3,7
  2808.   dc.b b3,6,t3,6,b3,6
  2809.   dc.b t3,5,t3,255
  2810. bassde: dc.b 15,b3,15,t3,15,t3,15,t3,7,t3
  2811.   dc.b 3,t3,0,t3,255
  2812. bass_env: dc.b 15,t2,15,t2,15,t2,15,t2
  2813.     dc.b 15,t2,15,t2,15,t2,15,t2
  2814.     dc.b 15,t2,15,t2,15,t2,15,t2
  2815.     dc.b 15,t2,15,t2,15,t2,15,t2
  2816.     dc.b 15,t2,15,t2,15,t2,15,t2
  2817.     dc.b 15,t2,15,t2,15,t2,15,t2
  2818.       dc.b 12,t2,11,t2
  2819.       dc.b 7,t2,255
  2820. bass_nos: dc.b 15,t2,15,t2,15,t2,15,t2
  2821.     dc.b 15,t2,15,t2,15,t2,15,t2
  2822.     dc.b 15,t2,15,t2,15,t2,15,t2
  2823.     dc.b 15,t2,15,t2,15,t2,15,t2
  2824.     dc.b 15,t2,15,t2,15,t2,15,t2
  2825.     dc.b 15,t2,15,t2,15,t2,15,t2
  2826.     dc.b 14,t2,14,t2,14,t2,14,t2
  2827.     dc.b 14,t2,14,t2,14,t2,14,t2
  2828.     dc.b 14,t2,14,t2,14,t2,14,t2
  2829.     dc.b 14,t2,14,t2,14,t2,14,t2
  2830.     dc.b 13,t2,13,t2,13,t2,13,t2
  2831.     dc.b 13,t2,13,t2,13,t2,13,t2
  2832.     dc.b 13,t2,13,t2,13,t2,13,t2
  2833.     dc.b 13,t2,13,t2,13,t2,13,t2
  2834.       dc.b 12,t2,11,t2
  2835.       dc.b 7,t2,255
  2836.  
  2837. bass_envy: dc.b 15,t3,15,t3,15,t3,15,t3,255
  2838. bass_envi: dc.b 15,t2,15,t2,15,t2,15,t2,15,t2,0,t2,255
  2839. titty2: dc.b 15,t2,255
  2840. titty3: dc.b 15,t3,255
  2841.     even
  2842. bass_envz: dc.b 15,t2,15,t2,15,t2,15,t2
  2843.   dc.b 15,t2,15,t2,15,t2,15,t2
  2844.   dc.b 0,t2,255
  2845.     even
  2846. mono_envt1:    dc.b 13,t1,255,0
  2847. qclape:     dc.b 15,n3,14,n3,14,n3,13,n3,13,n3,12,n3
  2848.   dc.b 11,n3,11,n3,9,n3,7,n3,7,n3
  2849.   dc.b 7,n3,6,n3,6,n3
  2850.   dc.b 6,n3,5,n3,255
  2851. hate:     dc.b 13,n3,0,n3,255
  2852. marx_envy:   dc.b 15,t1,255
  2853. marx_envys:   dc.b 13,t1,255
  2854. marx_envysi:   dc.b 12,b1,14,t1,13,t1,12,t1,12,t1
  2855.     dc.b 5,t1,5,t1,5,t1,13,t1,12,t1,9,t1,7,t1,5,t1,3,t1,0,t1,255
  2856. sq_env1:     dc.b 15,t1,15,t1,13,t1,10,t1,0,t1,255
  2857. ;;;;;;;;;;;;;;;;;;;;;;  MUSIC DATA END ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2858.  
  2859. SPEEDS:
  2860.      DC.W $0607
  2861.      DC.W $CF01
  2862.      DC.W 39681 
  2863.      DC.W 31745 
  2864.      DC.W 26369 
  2865.      DC.W 22529 
  2866.      DC.W 19713 
  2867.      DC.W 17409 
  2868.      DC.W 15873 
  2869.      DC.W 14337 
  2870.      DC.W 13313 
  2871.      DC.W 12289 
  2872.      DC.W 11265 
  2873.      DC.W 10497 
  2874.      DC.W 9985 
  2875.      DC.W 2307 
  2876.  
  2877. ;***************************************
  2878. ssplash8d:    ;incbin a:ssplash8.sam
  2879. explosi8d:    ;incbin a:explosi8.sam
  2880.  
  2881. END
  2882.  
  2883. ?
  2884.  
  2885.  
  2886.