home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Midwinter II / Lowe_MidwinterII.img / MIDWINTR.S < prev   
Encoding:
Text File  |  1985-11-20  |  80.3 KB  |  3,713 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. noretrigg
  1041.            jsr send_env
  1042.            move.b d1,(a4) 
  1043.            move.b d3,2(a4) 
  1044.            move.b d3,28(a0) 
  1045.            move.b d0,(a4)
  1046.            move.b (a1),29(a0) 
  1047.            move.b (a1)+,2(a4)
  1048.            move.w (a1)+,2(a0) 
  1049.            subq #1,2(a0) 
  1050.            move.l a1,4(a0) 
  1051.            rts
  1052. do_rest:
  1053.          move.b d2,(a4)
  1054.           clr.b 2(a4) 
  1055.           move.l #restenv,8(a0)  
  1056.           addq #1,a1
  1057.            move.w (a1)+,2(a0)
  1058.            subq #1,2(a0)
  1059. in_line_ret
  1060.            move.l a1,4(a0)
  1061.            rts
  1062. drum_chan:
  1063.            move.l 20(a0),8(a0) 
  1064.            jsr send_env
  1065.            move.b #6,(a4)
  1066.            move.b (a1)+,2(a4) 
  1067.            move.w (a1)+,2(a0) 
  1068.            subq #1,2(a0) 
  1069.            move.l a1,4(a0) 
  1070.            rts
  1071. restenv:      dc.b 0,0,255
  1072.    even
  1073. control_char:
  1074.            move.b (a1),d3 
  1075.           move.l #jumptable,a2
  1076.           MOVE.L (A2,D3),A3
  1077.           jmp (a3)
  1078. jumptable:
  1079.            dc.l get_new_patt
  1080.            dc.l get_env
  1081.            dc.l do_sound
  1082.            dc.l check_pbend
  1083.            dc.l modulation
  1084.            dc.l set_octaves
  1085.            dc.l do_modoff
  1086.            dc.l do_bend_off
  1087.            dc.l do_inline
  1088.            dc.l do_end_fx
  1089.            dc.l hold_val
  1090.            dc.l do_hold_off
  1091.  
  1092.  
  1093. get_env:      addq #1,a1
  1094.         move.b (a1),78(a0)
  1095.         addq #2,a1
  1096.            move.l (a1),20(a0) 
  1097.            addq #4,a1  
  1098.            bra control_ret
  1099. do_sound:
  1100.            nop     
  1101.            nop 
  1102. check_pbend:
  1103.           addq #1,a1
  1104.           MOVE.W (A1)+,26(A0) 
  1105.           move.w (a1)+,42(a0) 
  1106.           move.w (a1)+,48(a0) 
  1107.           bra control_ret
  1108. modulation:
  1109.           addq #1,a1
  1110.           MOVE.W (A1)+,(A0)
  1111.           move.l (a1)+,34(a0) 
  1112.           MOVE.W (A1),44(A0) 
  1113.           move.w (a1)+,46(a0) 
  1114.           move.b #2,38(a0) 
  1115.           bra control_ret
  1116. set_octaves:
  1117.           addq #1,a1
  1118.           move.b #9,38(a0) 
  1119.           bra control_ret
  1120. do_modoff:      clr.b 38(a0)
  1121.           addq #1,a1
  1122.           bra control_ret
  1123. do_bend_off:     addq #1,a1
  1124.           clr.b 26(a0)
  1125.           bra control_ret
  1126. do_inline:
  1127.          addq.l  #1,a1
  1128.  
  1129. in_loop
  1130.          cmpi.b #255,(a1)
  1131.          beq fin_in
  1132.          cmpi.b #254,(a1)
  1133.          beq fin_in1
  1134.         move.b (a1)+,(a4)
  1135.         move.b (a1)+,2(a4)
  1136.         bra in_loop 
  1137. fin_in
  1138.         addq  #2,a1
  1139.         bra control_ret
  1140.     
  1141. fin_in1
  1142.         addq  #2,a1
  1143.         bra in_line_ret
  1144.  
  1145.  
  1146. hold_val:
  1147.         addq #1,a1
  1148.         move.w (a1)+,hold_val_p
  1149.         bra control_ret
  1150. do_hold_off:
  1151.         move.w #0,hold_val_p
  1152.         addq #1,a1
  1153.         bra control_ret
  1154. do_end_fx:
  1155.  
  1156.         move.b d2,(a4)
  1157.          move.b #0,2(a4) 
  1158.  
  1159.         cmpi.w #1,curr_chann    
  1160.         bne efx2
  1161.         bclr.b #0,fx_flag+1
  1162. clear_fx_1    move.l #20,d0
  1163. clear_loop1:    move.l #0,(a0)+    
  1164.         dbra d0,clear_loop1
  1165.         rts 
  1166. efx2:        cmpi.w #2,curr_chann    
  1167.         bne efx3
  1168.         bclr.b #1,fx_flag+1
  1169.         move.l #20,d0
  1170. clear_loop2:    move.l #0,(a0)+    
  1171.         dbra d0,clear_loop2
  1172.         rts
  1173. efx3:        bclr.b #2,fx_flag+1
  1174.         move.l #20,d0
  1175. clear_loop3:    move.l #0,(a0)+    
  1176.         dbra d0,clear_loop3
  1177.         rts
  1178.            even
  1179. vars1:
  1180.            dc.w 0  
  1181. intc1:      dc.w 0
  1182. pattr1:      dc.l 0
  1183.            dc.l 0
  1184. songr1:      dc.l 0
  1185. wsong1:      dc.l 0
  1186.            dc.l 0
  1187.            dc.b 0,0
  1188.            dc.b 0,0
  1189.            dc.w 0
  1190.            dc.l 0
  1191.            dc.l 0
  1192.            dc.b 0,0
  1193.            dc.w 0
  1194.            dc.w 0
  1195.            dc.w 0
  1196.            dc.w 0
  1197.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1198. vars2:
  1199.            dc.w 0
  1200. intc2:      dc.w 0
  1201. pattr2:      dc.l 0
  1202.            dc.l 0
  1203. songr2:      dc.l 0
  1204. wsong2:      dc.l 0
  1205.            dc.l 0
  1206.            dc.b 0,0
  1207.            dc.b 0,0
  1208.            dc.w 0
  1209.            dc.l 0
  1210.            dc.l 0
  1211.            dc.b 0,0
  1212.            dc.w 0
  1213.            dc.w 0
  1214.            dc.w 0
  1215.            dc.w 0
  1216.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1217. vars3:
  1218.            dc.w 0
  1219. intc3:       dc.w 0
  1220. pattr3:      dc.l 0
  1221.            dc.l 0
  1222. songr3:      dc.l 0
  1223. wsong3:      dc.l 0
  1224.            dc.l 0
  1225.            dc.b 0,0
  1226.            dc.b 0,0
  1227.            dc.w 0
  1228.            dc.l 0
  1229.            dc.l 0
  1230.            dc.b 0,0
  1231.            dc.w 0
  1232.            dc.w 0
  1233.            dc.w 0
  1234.            dc.w 0
  1235.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1236. fxvars1:
  1237.            dc.w 0  
  1238. fxintc1:      dc.w 0
  1239. fxpattr1:      dc.l 0
  1240.            dc.l 0
  1241. fxsongr1:      dc.l 0
  1242. fxwsong1:      dc.l 0
  1243.            dc.l 0
  1244.            dc.b 0,0
  1245.            dc.b 0,0
  1246.            dc.w 0
  1247.            dc.l 0
  1248.            dc.l 0
  1249.            dc.b 0,0
  1250.            dc.w 0
  1251.            dc.w 0
  1252.            dc.w 0
  1253.            dc.w 0
  1254.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1255. fxvars2:
  1256.            dc.w 0
  1257. fxintc2:      dc.w 0
  1258. fxpattr2:      dc.l 0
  1259.            dc.l 0
  1260. fxsongr2:      dc.l 0
  1261. fxwsong2:      dc.l 0
  1262.            dc.l 0
  1263.            dc.b 0,0
  1264.            dc.b 0,0
  1265.            dc.w 0
  1266.            dc.l 0
  1267.            dc.l 0
  1268.            dc.b 0,0
  1269.            dc.w 0
  1270.            dc.w 0
  1271.            dc.w 0
  1272.            dc.w 0
  1273.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1274. fxvars3:
  1275.            dc.w 0
  1276. fxintc3:       dc.w 0
  1277. fxpattr3:      dc.l 0
  1278.            dc.l 0
  1279. fxsongr3:      dc.l 0
  1280. fxwsong3:      dc.l 0
  1281.            dc.l 0
  1282.            dc.b 0,0
  1283.            dc.b 0,0
  1284.            dc.w 0
  1285.            dc.l 0
  1286.            dc.l 0
  1287.            dc.b 0,0
  1288.            dc.w 0
  1289.            dc.w 0
  1290.            dc.w 0
  1291.            dc.w 0
  1292.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1293.  
  1294. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1295.  
  1296.  
  1297. HERExx
  1298. song_table:
  1299.  
  1300. ;;;;;; DON'T FORGET ROTA TOM FILLS 
  1301.  
  1302.     ;dc.l song1,song2,song3        ;restful loop
  1303.     ;dc.l song5,song6,song7        ;celebration scene
  1304.     ;dc.l song9,song10,song11    ;journey
  1305.     ;dc.l song13,song14,song15    ;anticipation
  1306.     ;dc.l song17,song18,song19    ;pastoral loop
  1307.     ;dc.l song21,song22,song23    ;fast + dangerous
  1308.     ;dc.l song25,song26,song27    ;dramatic loop
  1309.     ;dc.l song29,song30,song31    ;a few bars of danger music
  1310.     ;dc.l song33,song34,song35    ;minor triumph
  1311.     ;dc.l song37,song38,song39    ;minor anticlimax
  1312.     ;dc.l song41,song42,song43    ;threatening
  1313.     ;dc.l song45,song46,song47    ;high drama
  1314.     ;dc.l song49,song50,song51    ;nostalgia
  1315.     ;dc.l song53,song54,song55    ;Great triumph scene
  1316.     ;dc.l song57,song58,song59    ;secretive
  1317.     ;dc.l song61,song62,song63    ;Great disaster scene
  1318.     dc.l song65,song66,song67    ;Main theme
  1319. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1320.  
  1321.  
  1322.  
  1323. dave
  1324.  
  1325.     EVEN
  1326. chfx_table:
  1327.  
  1328.     dc.l alarm1
  1329.     dc.l alarm2
  1330.     dc.l alarm3
  1331.     dc.l click_fx
  1332.     dc.l exp1    
  1333.     dc.l exp2
  1334.     dc.l missile4    
  1335.     dc.l missile5    
  1336.     dc.l fx7    
  1337.     dc.l turbo1    
  1338.     dc.l turbo2    
  1339.     dc.l turbo3    
  1340.     dc.l pop_gun1
  1341.     dc.l pop_gun2
  1342.     dc.l enemy_fire
  1343.     dc.l wheel_skid
  1344.     dc.l panel_slide
  1345.     dc.l wave
  1346.  
  1347.  
  1348. ;**********************************************
  1349.     even
  1350. alarm1:
  1351.                            dc.b      m,new_env,trigg,0
  1352.                            dc.l      fx5_env
  1353.             dc.w    A06,3,A06,3,A06,3,A06,3
  1354.             dc.w    A06,4
  1355.             DC.B    M,inline,6,200,255,0
  1356.                            dc.B    m,endfx_patt
  1357.  
  1358. fx5_env:    dc.b 15,t1,12,t1,7,t1,0,t1,255,0
  1359. ;***********************************************
  1360.     even
  1361. alarm2:    
  1362.                            dc.b      m,new_env,trigg,0
  1363.                            dc.l      alarm2e
  1364.               dc.b     m,modon,3,3
  1365.               dc.w     20,24,1
  1366.               dc.b     m,pbend,up,20
  1367.               dc.w     B05,0
  1368.             dc.w    g04,cr*2
  1369.             DC.B    M,inline,6,200,255,0
  1370.             dc.b    m,endfx_patt
  1371.  
  1372. alarm2e    dc.b    15,t1,255,0
  1373.  
  1374. alarm3:    
  1375.                            dc.b      m,new_env,trigg,0
  1376.                            dc.l      alarm3e
  1377.             dc.b    m,octaves
  1378.             dc.w    g04,cr*2
  1379.             DC.B    M,inline,6,200,255,0
  1380.             dc.b    m,endfx_patt
  1381.  
  1382. alarm3e    dc.b    15,t1,255,0
  1383.  
  1384. ;**********************************************
  1385.     even
  1386. click_fx:        
  1387.  
  1388.                            dc.b      m,new_env,trigg,0
  1389.                            dc.l      fxb_env
  1390.             DC.B    M,inline,6,200,254,0
  1391.                        dc.w    g01,4
  1392.             DC.B    M,inline,6,200,255,0
  1393.                         dc.B    m,endfx_patt    
  1394.  
  1395. fxb_env        dc.b 15,b1,14,b1
  1396.         dc.b 9,b1,8,b1,0,b1,255,0
  1397. ;**************************************************
  1398.  
  1399.     even
  1400. exp1:
  1401.                            dc.b      m,new_env,trigg,0
  1402.                            dc.l      exp1_env
  1403.             dc.b    M,inline,6,31,254,0
  1404.             dc.w    0,10
  1405.             dc.b    m,inline,6,30,254,0
  1406.             DC.B    M,inline,6,30,254,0
  1407.             dc.b    m,inline,6,29,254,0
  1408.             dc.b    m,inline,6,28,254,0
  1409.             dc.b    m,inline,6,27,254,0
  1410.             dc.b    m,inline,6,26,254,0
  1411.             dc.b    m,inline,6,25,254,0
  1412.             dc.b    m,inline,6,24,254,0
  1413.             dc.b    m,inline,6,23,254,0
  1414.             dc.b    m,inline,6,22,254,0
  1415.             DC.w    0,3
  1416.               dc.b     m,modon,2,2
  1417.               dc.w     8,8,1
  1418.                            dc.b      m,new_env,trigg,0
  1419.                            dc.l      exp1_env
  1420.             DC.w    20,60
  1421.             dc.b    m,inline,6,200,254,0
  1422.             dc.b    m,end_patt
  1423.  
  1424.     even
  1425. exp1_env:    dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1
  1426.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1
  1427.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  1428.         dc.b 12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1
  1429.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1
  1430.         dc.b 8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1
  1431.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1432.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1433.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1434.         DC.B 0,N1,255
  1435.  
  1436.  
  1437. ;***************************************************
  1438.     even
  1439. missile4:    
  1440.                            dc.b   m,new_env,trigg,0
  1441.                            dc.l   miss4_env
  1442.             dc.b   m,modon,1,1
  1443.             dc.w   5,5,1
  1444.                         dc.b   m,pbend,down,1
  1445.                         dc.w   C02,0
  1446.             dc.w   C05,cr*3
  1447.             DC.B    M,inline,6,200,255,0
  1448.                            dc.b   m,endfx_patt
  1449.  
  1450.  
  1451. miss4_env:    dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1452.         dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1453.         dc.b 14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1
  1454.         dc.b 12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1
  1455.         dc.b 10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1
  1456.         dc.b 8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1
  1457.         dc.b 6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1
  1458.         dc.b 4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1
  1459.         dc.b 2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1
  1460.         DC.B 0,b1,255
  1461.  
  1462. ;*********************************************
  1463.     even
  1464.  
  1465. missile5:    
  1466.                            dc.b   m,new_env,trigg,0
  1467.                            dc.l   miss5_env
  1468.             dc.b   m,modon,1,1
  1469.             dc.w   8,8,1
  1470.                         dc.b   m,pbend,down,50
  1471.                         dc.w   C03,0
  1472.             dc.w   C08,cr
  1473.             DC.B    M,inline,6,200,255,0
  1474.                            dc.b   m,endfx_patt
  1475.  
  1476.  
  1477. miss5_env:    dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1478.         dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1479.         dc.b 4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,n1
  1480.         dc.b 2,n1,2,n1,2,n1,2,n1
  1481.         DC.B 0,b1,255
  1482. ;************************************************
  1483.  
  1484.     even
  1485. fx7:    
  1486.                            dc.b      m,new_env,trigg,0
  1487.                            dc.l      fx7_env
  1488.             dc.b    M,inline,6,31,255,0
  1489.             dc.w    0,4
  1490.             dc.b    M,inline,6,0,255,0
  1491.             dc.w    0,4
  1492.             dc.w    0,4
  1493.             dc.b    M,inline,6,2,255,0
  1494.             dc.w    0,4
  1495.             dc.b    M,inline,6,4,255,0
  1496.             dc.w    0,4
  1497.             dc.b    M,inline,6,6,255,0
  1498.             dc.w    0,4
  1499.             dc.b    M,inline,6,8,255,0
  1500.             dc.w    0,4
  1501.             dc.b    M,inline,6,10,255,0
  1502.             dc.w    0,4
  1503.             dc.b    M,inline,6,12,255,0
  1504.             dc.w    0,4
  1505.             dc.b    M,inline,6,14,255,0
  1506.             dc.w    0,4
  1507.             dc.b    M,inline,6,16,255,0
  1508.             dc.w    0,4
  1509.             dc.b    M,inline,6,18,255,0
  1510.             dc.w    0,4
  1511.             dc.b    M,inline,6,20,255,0
  1512.             dc.w    0,4
  1513.             dc.b    M,inline,6,22,255,0
  1514.             dc.w    0,4
  1515.             dc.b    M,inline,6,24,255,0
  1516.             dc.w    0,4
  1517.             dc.b    M,inline,6,10,255,0
  1518.             dc.w    0,50
  1519.             DC.B    M,inline,6,200,255,0
  1520.             dc.b    m,endfx_patt
  1521.     even
  1522.  
  1523. fx7_env:    dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1524.         dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1525.         dc.b 14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1
  1526.         dc.b 12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1
  1527.         dc.b 10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1
  1528.         dc.b 8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1
  1529.         dc.b 6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1
  1530.         dc.b 4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1
  1531.         dc.b 2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1
  1532.         DC.B 0,b1,255
  1533.  
  1534. ;**************************************************
  1535.  
  1536.     even
  1537. turbo1:    
  1538.                            dc.b   m,new_env,trigg,0
  1539.                            dc.l   miss4_env
  1540.             dc.b   m,modon,1,1
  1541.             dc.w   5,5,1
  1542.                         dc.b   m,pbend,up,10
  1543.                         dc.w   C05,0
  1544.             dc.w   C03,cr*3
  1545.             DC.B    M,inline,6,200,255,0
  1546.                            dc.b   m,endfx_patt
  1547.  
  1548. turbo2:    
  1549.                            dc.b   m,new_env,trigg,0
  1550.                            dc.l   miss4_env
  1551.             dc.b   m,modon,1,1
  1552.             dc.w   5,5,1
  1553.                         dc.b   m,pbend,up,40
  1554.                         dc.w   C07,0
  1555.             dc.w   C03,cr*3
  1556.             DC.B    M,inline,6,200,255,0
  1557.                           dc.b   m,endfx_patt
  1558.  
  1559. turbo3:    
  1560.                            dc.b   m,new_env,trigg,0
  1561.                            dc.l   miss4_env
  1562.             dc.b   m,modon,1,1
  1563.             dc.w   5,5,1
  1564.                         dc.b   m,pbend,up,20
  1565.                         dc.w   C08,0
  1566.             dc.w   C03,cr*4
  1567.             DC.B    M,inline,6,200,255,0
  1568.                            dc.b   m,endfx_patt
  1569.  
  1570. ;************************************************
  1571.  
  1572. pop_gun1
  1573.                            dc.b      m,new_env,trigg,0
  1574.                            dc.l      pgun_env
  1575.             DC.B    M,inline,6,200,255,0
  1576.                         dc.b   m,pbend,down,20
  1577.                         dc.w   g01,0
  1578.                        dc.w    g06,10
  1579.             DC.B    M,inline,6,200,255,0
  1580.                            dc.B    m,endfx_patt    
  1581.  
  1582.  
  1583. pop_gun2
  1584.             DC.B    M,inline,6,12,255,0
  1585.                            dc.b      m,new_env,trigg,0
  1586.                            dc.l      pgun_env
  1587.                         dc.b   m,pbend,down,20
  1588.                         dc.w   g01,0
  1589.                        dc.w    g08,10
  1590.             DC.B    M,inline,6,200,255,0
  1591.                            dc.B    m,endfx_patt    
  1592.  
  1593.  
  1594. enemy_fire
  1595.                            dc.b      m,new_env,trigg,0
  1596.                            dc.l      pgun_env
  1597.             DC.B    M,inline,6,50,255,0
  1598.                         dc.b   m,pbend,down,100
  1599.                         dc.w   g01,0
  1600.                        dc.w    g08,10
  1601.             DC.B    M,inline,6,200,255,0
  1602.                            dc.B    m,endfx_patt    
  1603.  
  1604.  
  1605.  
  1606. pgun_env    dc.b 15,b1,15,b1,3,b1,15,b1,12,b1,11,b1,9,b1
  1607.         dc.b 9,b1,8,b1,7,b1,3,b1,2,b1,1,b1,0,b1,255
  1608.  
  1609.  
  1610. ;******************************************************
  1611.     even
  1612. wheel_skid
  1613.                            dc.b      m,new_env,trigg,0
  1614.                            dc.l      skid_env
  1615.             DC.B    M,inline,6,3,255,0
  1616.             dc.b   m,modon,3,3
  1617.             dc.w   4,4,1
  1618.                         dc.b   m,pbend,up,100
  1619.                         dc.w   b05,0
  1620.             dc.w   g04,cr
  1621.                            dc.B    m,endfx_patt    
  1622.  
  1623.  
  1624. skid_env    dc.b 15,b1,255,0
  1625.  
  1626. ;****************************************
  1627.     even
  1628. panel_slide
  1629.                            dc.b      m,new_env,trigg,0
  1630.                            dc.l      onoff_env
  1631.             DC.B    M,inline,6,200,255,0
  1632.             dc.w    g02,cr
  1633.                            dc.B    m,endfx_patt    
  1634.  
  1635.  
  1636. onoff_env    
  1637.     dc.b 15,b1,0,b1,15,b1,0,b1,15,b1,0,b1,15,b1,0,b1
  1638.     dc.b 15,b1,0,b1,15,b1,0,b1,15,b1,0,b1,15,b1,0,b1
  1639.     dc.b 15,b1,0,b1,15,b1,0,b1,15,b1,0,b1,15,b1,0,b1
  1640.     dc.b 15,b1,0,b1,15,b1,0,b1,15,b1,0,b1,15,b1,0,b1
  1641.     dc.b 15,b1,0,b1,15,b1,0,b1,15,b1,0,b1,15,b1,0,b1
  1642.     dc.b 255,0
  1643.  
  1644.     even
  1645.  
  1646.  
  1647. wave
  1648.             DC.B    M,inline,6,12,255,0
  1649.                            dc.b      m,new_env,trigg,0
  1650.                            dc.l      wave_env
  1651.                        dc.w    0,cr*8
  1652.  
  1653.                            dc.b      m,new_env,trigg,0
  1654.                            dc.l      wave_env
  1655.                        dc.w    0,cr*7
  1656.  
  1657.                            dc.b      m,new_env,trigg,0
  1658.                            dc.l      wave_env
  1659.                        dc.w    0,cr*6
  1660.  
  1661.                            dc.b      m,new_env,trigg,0
  1662.                            dc.l      wave_env
  1663.                        dc.w    0,cr*8
  1664.  
  1665.                            dc.B    m,endfx_patt    
  1666.  
  1667.  
  1668. wave_env:    dc.b 1,n1,2,n1,2,n1,2,n1,3,n1,3,n1,3,n1
  1669.         dc.b 4,n1,4,n1,4,n1,5,n1,5,n1,5,n1,5,n1,6,n1,6,n1
  1670.         dc.b 6,n1,7,n1,7,n1,7,n1,8,n1,8,n1,8,n1,9,n1,10,n1,10,n1
  1671.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,11,n1,11,n1,11,n1,11,n1,11,n1
  1672.         dc.b 11,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,13,n1,13,n1,13,n1
  1673.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,15,n1,15,n1,15,n1,15,n1
  1674.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,N1
  1675.         DC.B 15,n1
  1676.  
  1677.  
  1678.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1
  1679.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1
  1680.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  1681.         dc.b 12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1
  1682.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1
  1683.         dc.b 8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1
  1684.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1685.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1686.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1687.         DC.B 0,n1,255
  1688.  
  1689.  
  1690. curr_fx            equ 1
  1691. max_chfx        dc.l 19
  1692.  
  1693.  
  1694.     even
  1695. ;;;;;;;;;;;;;;;;;;;;;    MIDWINTER II  Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1696. ;restful loop
  1697. xxx
  1698. song1:
  1699.     dc.l    p20
  1700.       dc.l     end_song
  1701. song2:
  1702.     dc.l    p1,p2,p3,p4
  1703.         DC.L     end_song
  1704. song3:
  1705.     dc.l    p5
  1706.     dc.l     end_song
  1707. pcr:
  1708.       dc.w rest,cr
  1709.       dc.b m,end_patt
  1710. pr:
  1711.       dc.w rest,cr*4
  1712.       dc.b m,end_patt
  1713. pra:
  1714.     dc.w rest,q*7
  1715.     dc.b m,end_patt
  1716. pqr:
  1717.       dc.w rest,q
  1718.       dc.b m,end_patt
  1719. p1:
  1720.       dc.b m,new_env,trigg,0
  1721.       dc.l nbass_env
  1722.       dc.w f03,cr,a03,cr,c04,cr,a03,cr
  1723.       dc.w f04,cr,a03,cr
  1724.       dc.b m,end_patt
  1725. p2:
  1726.       dc.w d03,cr,f03,cr,a03,cr,f03,cr
  1727.       dc.w d04,cr,f03,cr
  1728.       dc.b m,end_patt
  1729. p4:
  1730.       dc.w c03,cr,e03,cr,g03,cr,e03,cr
  1731.       dc.w c04,cr,e03,cr
  1732.       dc.b m,end_patt
  1733. p3:
  1734.       dc.w Bb02,cr,d03,cr,f03,cr,d03,cr
  1735.       dc.w Bb03,cr,d03,cr
  1736.       dc.b m,end_patt
  1737. p5:
  1738.       dc.b m,new_env,trigg,0
  1739.       dc.l titty3
  1740.       dc.w F02,cr*6,D02,cr*6,Bb01,cr*6,C02,cr*6
  1741.       dc.b m,end_patt
  1742. p20:
  1743.       dc.b m,new_env,trigg,0
  1744.       dc.l titty1
  1745.       dc.b m,modon,1,1
  1746.       dc.w 3,3,8
  1747.       dc.w A04,cr*3,G04,cr,A04,cr,C05,cr 
  1748.       dc.w A04,cr*3,G04,cr,A04,cr,C05,cr 
  1749.       dc.w A04,cr*3,G04,cr,A04,cr,C05,cr 
  1750.       dc.w A04,cr*2,G04,cr*4
  1751.       dc.w A04,cr*3,G04,cr,A04,cr,C05,cr 
  1752.       dc.w D05,cr*3,A04,cr,G04,cr,A04,cr 
  1753.       dc.w C05,cr*3,Bb04,cr,A04,cr,Bb04,cr 
  1754.       dc.w A04,cr*2,G04,cr*4
  1755.     dc.b m,end_patt
  1756. ;****************************************************************
  1757. CR      set 20
  1758. tcr1     set 9
  1759. tcr2     set 8
  1760. Q       set cr/2
  1761. tq1      set 4
  1762. tq2      set 5
  1763. ;tsq     set 3
  1764. ;tsq2     set 2
  1765. SQ      set cr/4
  1766. ;m       set 254
  1767. ;rest     set $fd00
  1768. ;dcr      set cr+q
  1769. ;dq      set q+sq
  1770. ;dsq      set sq+(sq/2)
  1771. ;sb      set cr*4
  1772. ;min      set cr*2
  1773. ;dm      set min+cr
  1774. pcr16:
  1775.       dc.w rest,cr
  1776.       dc.b m,end_patt
  1777. pr16:
  1778.       dc.w rest,cr*4
  1779.       dc.b m,end_patt
  1780. pqr16:
  1781.       dc.w rest,q
  1782.       dc.b m,end_patt
  1783.  
  1784.     EVEN
  1785.  
  1786. ;celebration scene
  1787.  
  1788. song5:
  1789.     dc.l    p1a,p2a,p2a,p3a
  1790.       dc.l     end_song
  1791. song6:
  1792.     dc.l    p4a,p5a,p6a,p5a,p6a
  1793.     dc.l    p7a,p5a,p6a,p8a
  1794.         DC.L     end_song
  1795. song7:
  1796.     dc.l    p9a,p10a,p10a,p10a,p10a,p10a
  1797.     dc.l    p10a,p10a,p10a,p10a,p10a
  1798.     dc.l    p10a,p10a,p10a,p10a,p10a
  1799.     dc.l    p11a
  1800.     dc.l     end_song
  1801. p1a:
  1802.       dc.b m,new_env,trigg,0
  1803.       dc.l titty1
  1804.       dc.w c04,q,d04,q,e04,q
  1805.       dc.b m,end_patt
  1806. p2a:
  1807.       dc.b m,modon,1,1
  1808.       dc.w 100,100,8
  1809.       dc.w f05,q*3
  1810.     dc.b m,modoff
  1811.     dc.w c05,q
  1812.     dc.w f05,q,a05,q,g05,q,f05,q
  1813.       dc.b m,modon,1,1
  1814.       dc.w 100,100,8
  1815.     dc.w g05,q*2,e05,q*2,c05,q*4
  1816.       dc.b m,end_patt
  1817. p3a:
  1818.       dc.w Bb05,q*3
  1819.     dc.b m,modoff
  1820.     dc.w f05,q
  1821.       dc.w Bb05,q,d06,q,c06,q,Bb05,q
  1822.       dc.b m,modon,1,1
  1823.       dc.w 100,100,8
  1824.       dc.w a05,q*3
  1825.     dc.b m,modoff
  1826.     dc.w f05,q
  1827.       dc.w a05,q,c06,q,Bb05,q,a05,q
  1828.       dc.b m,modon,1,1
  1829.       dc.w 100,100,8
  1830.       dc.w g05,q*3
  1831.     dc.b m,modoff
  1832.     dc.w gb05,q
  1833.       dc.w g05,q,Bb05,q,a05,q,g05,q
  1834.       dc.w f05,q,a05,q,g05,q,a05,q
  1835.     dc.w f05,q
  1836.       dc.b m,end_patt
  1837. p4a:
  1838.       dc.b m,new_env,trigg,0
  1839.       dc.l bass_env
  1840.       dc.w c02,q,d02,q,e02,q
  1841.       dc.b m,end_patt
  1842. p5a:
  1843.       dc.w F02,q,c03,q,c02,q,C03,q
  1844.       dc.w F02,q,c03,q,c02,q,C03,q
  1845.       dc.b m,end_patt
  1846. p6a:
  1847.       dc.w g02,q,c03,q,c02,q,C03,q
  1848.       dc.w g02,q,c03,q,c02,q,C03,q
  1849.       dc.b m,end_patt
  1850. p7a:
  1851.       dc.w Bb02,q,d03,q,f02,q,d03,q
  1852.       dc.w Bb02,q,d03,q,f02,q,d03,q
  1853.       dc.b m,end_patt
  1854. p8a:
  1855.       dc.w F02,q,c03,q,c02,q,C03,q
  1856.       dc.w F02,q
  1857.       dc.b m,end_patt
  1858. p10a:     
  1859.       dc.b m,inline,6,200,255,0
  1860.       dc.b m,new_env,trigg,0
  1861.       dc.l bassde
  1862.       dc.b m,pbend,down,200
  1863.       dc.w c01,0
  1864.       dc.w e04,q
  1865.       dc.b m,new_env,trigg,0
  1866.       dc.l qCLAPE
  1867.       dc.b m,pbend,down,69
  1868.       dc.w c01,0
  1869.       dc.w c04,q
  1870.       dc.b m,new_env,trigg,0
  1871.       dc.l bassde
  1872.       dc.b m,pbend,down,200
  1873.       dc.w c01,0
  1874.       dc.w e04,q
  1875. p11a:      dc.b m,new_env,trigg,0
  1876.       dc.l QCLAPE
  1877.       dc.b m,pbend,down,69
  1878.       dc.w c01,0
  1879.       dc.w c05,q
  1880.       dc.b m,end_patt
  1881. p9a:
  1882.       dc.b m,new_env,trigg,0
  1883.       dc.l QCLAPE
  1884.       dc.b m,pbend,down,69
  1885.       dc.w c01,0
  1886.       dc.w c05,q,c05,q,c05,q
  1887.       dc.b m,end_patt
  1888. ;****************************************************************
  1889. CR      set 16
  1890. tcr1     set 9
  1891. tcr2     set 8
  1892. Q       set cr/2
  1893. tq1      set 4
  1894. tq2      set 5
  1895. ;tsq     set 3
  1896. ;tsq2     set 2
  1897. SQ      set cr/4
  1898. ;m       set 254
  1899. ;rest     set $fd00
  1900. ;dcr      set cr+q
  1901. ;dq      set q+sq
  1902. ;dsq      set sq+(sq/2)
  1903. ;sb      set cr*4
  1904. ;min      set cr*2
  1905. ;dm      set min+cr
  1906.  
  1907. ;journey
  1908.  
  1909.     EVEN
  1910. song9:
  1911.     dc.l    p1b,p1b,p1b,p1b,p2b,p2b,p2bb
  1912.     dc.l    exp1,pr,pr,pr,pr,pr,pr
  1913.       dc.l     end_song
  1914. song10:
  1915.     dc.l    p4b,p5b,p6b,p5b
  1916.     dc.l    p4b,p7b,p9b,p8b
  1917.     dc.l    p4b,p7b,p9b,p8b,p3b
  1918.     dc.l    pra,pr,pr,pr,pr,pr,pr,pr
  1919.         DC.L     end_song
  1920. song11:
  1921.     dc.l    p10b,p10b,p10b,p10b,p10b
  1922.     dc.l    p10b,p10b,p10b,p10b,p10b
  1923.     dc.l    p10b,p10b,p10b,p10b,p10b
  1924.     dc.l    p10b,p10b,p10b,p10b,p11b
  1925.     dc.l    pra,pr,pr,pr,pr,pr,pr,pr
  1926.     dc.l     end_song
  1927. p1b:
  1928.       dc.b m,new_env,trigg,0
  1929.       dc.l titty1
  1930.       dc.b m,modon,1,1
  1931.       dc.w 3,3,8
  1932.       dc.w c05,q*7,rest,q,c05,q,d05,q,e05,q
  1933.     dc.w f05,cr,e05,q,d05,q,e05,q
  1934.       dc.b m,end_patt
  1935. p2b:
  1936.     dc.w c05,q*13,d05,q,e05,q,f05,q
  1937.     dc.w g05,cr*4,f05,q,d05,q,Bb04,q
  1938.     dc.w f05,q,d05,q,Bb04,q,f05,q,d05,q
  1939.     dc.w f05,q,db05,q,ab04,q
  1940.     dc.w f05,q,db05,q,ab04,q,f05,q,db05,q
  1941.       dc.b m,end_patt
  1942. p2bb:
  1943.     dc.w c05,q*8
  1944.       dc.b m,end_patt
  1945. p4b:
  1946.       dc.b m,new_env,trigg,0
  1947.       dc.l abass_env
  1948.       dc.w c03,sq,e03,sq,g03,sq,c04,sq
  1949.       dc.w e04,sq,c04,sq,g03,sq,e03,sq
  1950.       dc.w c03,sq,e03,sq,g03,sq,c04,sq
  1951.       dc.w e04,sq,c04,sq,g03,sq,e03,sq
  1952.       dc.w c03,sq,e03,sq,g03,sq,c04,sq
  1953.       dc.w e04,sq,c04,sq,g03,sq,e03,sq
  1954.       dc.w c03,sq,e03,sq,g03,sq,c04,sq
  1955.       dc.w e04,sq,c04,sq,g03,sq,e03,sq
  1956.       dc.b m,end_patt
  1957. p3b:
  1958.       dc.w c03,sq,e03,sq,g03,sq,c04,sq
  1959.       dc.w e04,sq,c04,sq,g03,sq,e03,sq
  1960.       dc.w c03,sq,e03,sq,g03,sq,c04,sq
  1961.       dc.w e04,sq,c04,sq,g03,sq,e03,sq
  1962.     dc.w c03,q
  1963.       dc.b m,end_patt
  1964. p5b:
  1965.       dc.w Bb02,sq,D03,sq,F03,sq,Bb03,sq
  1966.       dc.w D03,sq,Bb03,sq,F03,sq,D03,sq
  1967.       dc.w Bb02,sq,D03,sq,F03,sq,Bb03,sq
  1968.       dc.w D03,sq,Bb03,sq,F03,sq,D03,sq
  1969. p9b:      dc.w Bb02,sq,D03,sq,F03,sq,Bb03,sq
  1970.       dc.w D03,sq,Bb03,sq,F03,sq,D03,sq
  1971.       dc.w Bb02,sq,D03,sq,F03,sq,Bb03,sq
  1972.       dc.w D03,sq,Bb03,sq,F03,sq,D03,sq
  1973.       dc.b m,end_patt
  1974. p6b:
  1975.       dc.w Ab02,sq,C03,sq,Eb03,sq,Ab03,sq
  1976.       dc.w C03,sq,Ab03,sq,Eb03,sq,C03,sq
  1977.       dc.w Ab02,sq,C03,sq,Eb03,sq,Ab03,sq
  1978.       dc.w C03,sq,Ab03,sq,Eb03,sq,C03,sq
  1979.       dc.w Ab02,sq,C03,sq,Eb03,sq,Ab03,sq
  1980.       dc.w C03,sq,Ab03,sq,Eb03,sq,C03,sq
  1981.       dc.w Ab02,sq,C03,sq,Eb03,sq,Ab03,sq
  1982.       dc.w C03,sq,Ab03,sq,Eb03,sq,C03,sq
  1983.       dc.b m,end_patt
  1984. p7b:
  1985.       dc.w G02,sq,B02,sq,D03,sq,G03,sq
  1986.       dc.w B03,sq,G03,sq,D03,sq,B02,sq
  1987.       dc.w G02,sq,B02,sq,D03,sq,G03,sq
  1988.       dc.w B03,sq,G03,sq,D03,sq,B02,sq
  1989.       dc.b m,end_patt
  1990. p8b:
  1991.       dc.w Db03,sq,F03,sq,Ab03,sq,Db04,sq
  1992.       dc.w F04,sq,Db04,sq,Ab03,sq,F03,sq
  1993.       dc.w Db03,sq,F03,sq,Ab03,sq,Db04,sq
  1994.       dc.w F04,sq,Db04,sq,Ab03,sq,F03,sq
  1995.       dc.b m,end_patt
  1996. p10b:     
  1997.       dc.b m,inline,6,200,255,0
  1998.       dc.b m,new_env,trigg,0
  1999.       dc.l bassde
  2000.       dc.b m,pbend,down,200
  2001.       dc.w c01,0
  2002.       dc.w e04,sQ
  2003.       dc.b m,new_env,trigg,0
  2004.       dc.l hate
  2005.       dc.w g06,sQ,g06,sQ,g06,sQ
  2006.       dc.b m,new_env,trigg,0
  2007.       dc.l qCLAPE
  2008.       dc.b m,pbend,down,69
  2009.       dc.w c01,0
  2010.       dc.w c04,sQ
  2011.       dc.b m,new_env,trigg,0
  2012.       dc.l hate
  2013.       dc.w g06,sQ,g06,sQ,g06,sQ
  2014.       dc.b m,new_env,trigg,0
  2015.       dc.l bassde
  2016.       dc.b m,pbend,down,200
  2017.       dc.w c01,0
  2018.       dc.w e04,sQ
  2019.       dc.b m,new_env,trigg,0
  2020.       dc.l hate
  2021.       dc.w g06,sQ,g06,sQ,g06,sQ
  2022.       dc.b m,new_env,trigg,0
  2023.       dc.l QCLAPE
  2024.       dc.b m,pbend,down,69
  2025.       dc.w c01,0
  2026.       dc.w c05,sQ
  2027.       dc.b m,new_env,trigg,0
  2028.       dc.l hate
  2029.       dc.w g06,sQ,g06,sQ,g06,sq
  2030.       dc.b m,end_patt
  2031. p11b:     
  2032.       dc.b m,inline,6,200,255,0
  2033.       dc.b m,new_env,trigg,0
  2034.       dc.l bassde
  2035.       dc.b m,pbend,down,200
  2036.       dc.w c01,0
  2037.       dc.w e04,q
  2038.       dc.b m,end_patt
  2039. exp2:
  2040.                            dc.b      m,new_env,trigg,0
  2041.                            dc.l      exp2_env
  2042.             dc.b    M,inline,6,31,255,0
  2043.             dc.w    0,1
  2044.             dc.b    m,inline,6,30,254,0
  2045.             DC.B    M,inline,6,30,254,0
  2046.             dc.b    m,inline,6,23,254,0
  2047.             dc.b    m,inline,6,22,254,0
  2048.             DC.w    0,2
  2049.               dc.b     m,modon,2,2
  2050.               dc.w     8,8,1
  2051.                            dc.b      m,new_env,trigg,0
  2052.                            dc.l      exp2_env
  2053.             DC.w    20,27
  2054.             dc.b    m,inline,6,200,254,0
  2055.             dc.b    m,end_patt
  2056.  
  2057. ;****************************************************************
  2058.  
  2059.  
  2060. CR      set 24
  2061. tcr1     set 9
  2062. tcr2     set 8
  2063. Q       set cr/2
  2064. tq1      set 4
  2065. tq2      set 5
  2066. ;tsq     set 3
  2067. ;tsq2     set 2
  2068. SQ      set cr/4
  2069. ;m       set 254
  2070. ;rest     set $fd00
  2071. ;dcr      set cr+q
  2072. ;dq      set q+sq
  2073. ;dsq      set sq+(sq/2)
  2074. ;sb      set cr*4
  2075. ;min      set cr*2
  2076. ;dm      set min+cr
  2077.  
  2078. ;anticipation
  2079.  
  2080. song13:
  2081.     dc.l    p2c,pr,pr,pr,pr,pr,pr,pr,pr
  2082.       dc.l     end_song
  2083.  
  2084. song14:
  2085.     dc.l    p1c,pr,pr,pr,pr,pr,pr,pr,pr
  2086.         DC.L     end_song
  2087.  
  2088. song15:
  2089.     dc.l    p3c,pr,pr,pr,pr,pr,pr,pr,pr
  2090.     dc.l     end_song
  2091.  
  2092. p1c:
  2093.       dc.b m,new_env,trigg,0
  2094.       dc.l titty2
  2095.       dc.b m,modon,1,1
  2096.       dc.w 3,3,8
  2097.       dc.w C04,cr*3
  2098.       dc.w A03,cr,C04,cr,Eb04,cr,Gb04,cr
  2099.     dc.w Eb04,cr,Gb04,cr,A04,cr,C05,cr
  2100.     dc.w A04,cr,C05,cr,Eb05,cr
  2101.       dc.b m,pbend,up,2
  2102.       dc.w c06,0
  2103.     dc.w Gb05,cr*5
  2104.       dc.b m,end_patt
  2105. p3c:
  2106.       dc.b m,new_env,trigg,0
  2107.       dc.l titty3
  2108.       dc.w c02,cr*19
  2109.       dc.b m,end_patt
  2110. p2c:
  2111.       dc.b m,new_env,trigg,0
  2112.       dc.l titty1
  2113.       dc.b m,modon,1,1
  2114.       dc.w 3,3,8
  2115.       dc.w A03,cr*3
  2116.       dc.w Gb03,cr,A03,cr,C04,cr,Eb04,cr
  2117.     dc.w C04,cr,Eb04,cr,Gb04,cr,A04,cr
  2118.     dc.w Gb04,cr,A04,cr,C05,cr,Eb05,cr*5
  2119.     dc.b m,end_patt
  2120.  
  2121. ;****************************************************************
  2122.  
  2123. CR      set 20
  2124. tcr1     set 9
  2125. tcr2     set 8
  2126. Q       set cr/2
  2127. tq1      set 4
  2128. tq2      set 5
  2129. ;tsq     set 3
  2130. ;tsq2     set 2
  2131. SQ      set cr/4
  2132. ;m       set 254
  2133. ;rest     set $fd00
  2134. ;dcr      set cr+q
  2135. ;dq      set q+sq
  2136. ;dsq      set sq+(sq/2)
  2137. ;sb      set cr*4
  2138. ;min      set cr*2
  2139. ;dm      set min+cr
  2140.  
  2141. ;pastoral loop
  2142.  
  2143. song17:
  2144.     dc.l    p2d
  2145.       dc.l     end_song
  2146.  
  2147. song18:
  2148.     dc.l    p1d
  2149.         DC.L     end_song
  2150.  
  2151. song19:
  2152.     dc.l    p3d
  2153.     dc.l     end_song
  2154.  
  2155. p1d:
  2156.       dc.b m,new_env,trigg,0
  2157.       dc.l titty2
  2158.       dc.b m,modon,1,1
  2159.       dc.w 3,3,8
  2160.       dc.w A04,cr*3
  2161.       dc.w D05,cr,A04,cr,D05,cr
  2162.     dc.w C05,cr*2,G04,q,rest,q,G04,cr,A04,cr,Bb04,cr
  2163.       dc.w A04,q*3,rest,q,A04,cr
  2164.       dc.w D05,cr,A04,cr,D05,cr,C05,cr*6
  2165.       dc.w A04,cr*3
  2166.       dc.w D05,cr,A04,cr,D05,cr
  2167.     dc.w C05,cr*2,G04,q,rest,q,G04,cr,f04,cr,e04,cr
  2168.     dc.w D04,cr,F04,cr,E04,cr
  2169.     dc.w Db04,cr,B03,cr,Db04,cr,D04,cr*3
  2170.     dc.w A03,cr,Db04,cr,E04,cr
  2171.       dc.b m,end_patt
  2172. p3d:
  2173.       dc.b m,new_env,trigg,0
  2174.       dc.l titty3
  2175.       dc.w D02,cr*5,F02,cr,C02,q*9,rest,q,c02,cr
  2176.       dc.w D02,cr*5,F02,cr,C02,cr*3,Bb01,cr*3
  2177.       dc.w D02,cr*5,F02,cr,C02,q*9,rest,q,c02,cr
  2178.       dc.w D02,cr*3,Db02,cr*3,D02,cr*3,A01,cr*3
  2179.       dc.b m,end_patt
  2180. p2d:
  2181.       dc.b m,new_env,trigg,0
  2182.       dc.l titty1
  2183.       dc.b m,modon,1,1
  2184.       dc.w 3,3,8
  2185.       dc.w F04,cr*3
  2186.       dc.w A04,cr,F04,cr,A04,cr
  2187.     dc.w G04,cr*2,E04,q,rest,q,E04,cr,F04,cr,G04,cr
  2188.       dc.w F04,q*3,rest,q,F04,cr
  2189.       dc.w A04,cr,F04,cr,A04,cr,G04,cr*3,E04,cr*3
  2190.       dc.w F04,cr*3
  2191.       dc.w A04,cr,E04,cr,F04,cr
  2192.     dc.w G04,cr*2,D04,cr,E04,cr,D04,cr,C04,cr
  2193.     dc.w A03,cr,D04,cr,C04,cr
  2194.     dc.w E03,cr,D03,cr,E03,cr,A03,cr*3
  2195.     dc.w rest,cr*3
  2196.     dc.b m,end_patt
  2197.  
  2198. ;****************************************************************
  2199.  
  2200. CR      set 16
  2201. tcr1     set 9
  2202. tcr2     set 8
  2203. Q       set cr/2
  2204. tq1      set 4
  2205. tq2      set 5
  2206. ;tsq     set 3
  2207. ;tsq2     set 2
  2208. SQ      set cr/4
  2209. ;m       set 254
  2210. ;rest     set $fd00
  2211. ;dcr      set cr+q
  2212. ;dq      set q+sq
  2213. ;dsq      set sq+(sq/2)
  2214. ;sb      set cr*4
  2215. ;min      set cr*2
  2216. ;dm      set min+cr
  2217.  
  2218. ;fast and dangerous
  2219.  
  2220. song21:
  2221.     dc.l    p1e,p1e,p2e,p1e,p3e,p4e,pr,pr,pr,pr
  2222.       dc.l     end_song
  2223.  
  2224. song22:
  2225.     dc.l    p5e,p5e,p6e,p5e,p7e,pr,pr,pr,pr
  2226.         DC.L     end_song
  2227.  
  2228. song23:
  2229.         
  2230.     dc.l    p10e,p10e,p10e,p10e
  2231.     dc.l    p10e,p10e,p10e,p10e
  2232.     dc.l    p10e,p10e,p10e,p10e,p11e,pr,pr,pr,pr
  2233.     dc.l     end_song
  2234.  
  2235. p1e:
  2236.       dc.b m,new_env,trigg,0
  2237.       dc.l blip_env
  2238.       dc.b m,modon,1,1
  2239.       dc.w 25,25,16
  2240.       dc.w G04,q,Eb05,q,D05,q,C05,q
  2241.       dc.w G04,q,Eb05,q,D05,q,C05,q
  2242.       dc.w G04,q,Eb05,q,D05,q,C05,q,rest,q,C05,q,Bb04,cr
  2243.       dc.b m,end_patt
  2244.  
  2245. p2e:
  2246.       dc.w C05,q,Ab05,q,G05,q,F05,q
  2247.       dc.w C05,q,Ab05,q,G05,q,F05,q
  2248.       dc.w C05,q,Ab05,q,G05,q,F05,q,rest,q,F05,q,Eb05,cr
  2249.       dc.b m,end_patt
  2250. p3e:
  2251.       dc.w D05,q,Bb05,q,A05,q,G05,q*5
  2252.       dc.w C05,q,Ab05,q,G05,q,F05,q*5
  2253.       dc.b m,end_patt
  2254. p4e:
  2255.       dc.w E02,sq,F02,sq,Gb02,sq,G02,sq
  2256.     dc.w Ab02,sq,A02,sq,Bb02,sq,B02,sq
  2257.     dc.w C03,sq,Db03,sq,D03,sq,Eb03,sq
  2258.     dc.w E03,sq,F03,sq,Gb03,sq,G03,sq
  2259.     dc.w Ab03,sq,A03,sq,Bb03,sq,B03,sq
  2260.     dc.w C04,sq,Db04,sq,D04,sq,Eb04,sq
  2261.     dc.w E04,sq,F04,sq,Gb04,sq,G04,sq
  2262.     dc.w Ab04,sq,A04,sq,Bb04,sq,B04,sq
  2263.     dc.w C05,sq,rest,sq*15
  2264.       dc.b m,end_patt
  2265. p5e:
  2266.       dc.b m,new_env,trigg,0
  2267.       dc.l bass_envi
  2268.       dc.w C02,q,C02,q,G01,q,Bb01,q
  2269.       dc.w C02,q,C02,q,G01,q,Bb01,q
  2270.       dc.w C02,q,C02,q,G01,q,Bb01,q,rest,q,C02,q
  2271.       dc.b m,new_env,trigg,0
  2272.       dc.l bass_env
  2273.     dc.w Bb01,cr
  2274.       dc.b m,end_patt
  2275. p6e:
  2276.      dc.b m,new_env,trigg,0
  2277.       dc.l bass_envi
  2278.       dc.w F02,q,F02,q,C02,q,Eb02,q
  2279.       dc.w F02,q,F02,q,C02,q,Eb02,q
  2280.       dc.w F02,q,F02,q,C02,q,Eb02,q,rest,q,F02,q
  2281.       dc.b m,new_env,trigg,0
  2282.       dc.l bass_env
  2283.     dc.w Eb02,cr
  2284.       dc.b m,end_patt
  2285. p7e:
  2286.      dc.b m,new_env,trigg,0
  2287.       dc.l bass_envi
  2288.       dc.w G02,q,G02,cr,G02,cr,G02,cr,Gb02,q
  2289.       dc.w F02,q,F02,cr,F02,cr,F02,cr,Eb02,q
  2290.       dc.w C02,q,C02,q,G01,q,Bb01,q
  2291.       dc.w C02,q,C02,q,G01,q,Bb01,q
  2292.       dc.w C02,q,C02,q,G01,q,Bb01,q
  2293.       dc.w C02,q,C02,q,G01,q,Bb01,q,C02,q,rest,q*7
  2294.       dc.b m,end_patt
  2295. p10e:     
  2296.       dc.b m,inline,6,200,255,0
  2297.       dc.b m,new_env,trigg,0
  2298.       dc.l bassde
  2299.       dc.b m,pbend,down,200
  2300.       dc.w c01,0
  2301.       dc.w e04,sQ
  2302.       dc.b m,new_env,trigg,0
  2303.       dc.l hate
  2304.       dc.w g06,sQ,g06,sQ,g06,sQ
  2305.       dc.b m,new_env,trigg,0
  2306.       dc.l qCLAPE
  2307.       dc.b m,pbend,down,69
  2308.       dc.w c01,0
  2309.       dc.w c04,sQ
  2310.       dc.b m,new_env,trigg,0
  2311.       dc.l hate
  2312.       dc.w g06,sQ,g06,sQ,g06,sQ
  2313.       dc.b m,new_env,trigg,0
  2314.       dc.l bassde
  2315.       dc.b m,pbend,down,200
  2316.       dc.w c01,0
  2317.       dc.w e04,sQ
  2318.       dc.b m,new_env,trigg,0
  2319.       dc.l hate
  2320.       dc.w g06,sQ,g06,sQ,g06,sQ
  2321.       dc.b m,new_env,trigg,0
  2322.       dc.l QCLAPE
  2323.       dc.b m,pbend,down,69
  2324.       dc.w c01,0
  2325.       dc.w c05,sQ
  2326.       dc.b m,new_env,trigg,0
  2327.       dc.l hate
  2328.       dc.w g06,sQ,g06,sQ,g06,sq
  2329.       dc.b m,end_patt
  2330. p11e:     
  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,q
  2337.       dc.b m,end_patt
  2338. ;****************************************************************
  2339.  
  2340.  
  2341. CR      set 16
  2342. tcr1     set 9
  2343. tcr2     set 8
  2344. Q       set cr/2
  2345. tq1      set 4
  2346. tq2      set 5
  2347. ;tsq     set 3
  2348. ;tsq2     set 2
  2349. SQ      set cr/4
  2350. ;m       set 254
  2351. ;rest     set $fd00
  2352. ;dcr      set cr+q
  2353. ;dq      set q+sq
  2354. ;dsq      set sq+(sq/2)
  2355. ;sb      set cr*4
  2356. ;min      set cr*2
  2357. ;dm      set min+cr
  2358.  
  2359. ;dramatic loop
  2360.  
  2361. song25:
  2362.     dc.l    p1f
  2363.       dc.l     end_song
  2364.  
  2365. song26:
  2366.     dc.l    p5f,p5f,p5f,p5f,p5f
  2367.     dc.l    p6f,p6f,p6f,p6f,p6f
  2368.     dc.l    p7f,p7f,p7f,p7f,p7f
  2369.     dc.l    p8f,p8f,p8f,p8f,p8f
  2370.         DC.L     end_song
  2371.  
  2372. song27:
  2373.     dc.l    p10e,p10e,p10e,p10e,p10e
  2374.     dc.l    p10f,p10f
  2375.     dc.l     end_song
  2376.  
  2377. p1f:
  2378.       dc.b m,new_env,trigg,0
  2379.       dc.l fade
  2380.       dc.b m,modon,1,1
  2381.       dc.w 5,5,8
  2382.       dc.w F03,cr,G03,cr,Ab03,cr,F03,cr
  2383.     dc.w G03,cr,Ab03,cr,bb03,cr,G03,cr
  2384.     dc.w Ab03,cr,Bb03,cr,C04,cr,Ab03,cr
  2385.     dc.w Bb03,cr,G03,cr,Ab03,cr,F03,cr
  2386.     dc.w G03,cr,Eb03,cr,F03,cr,Db03,cr
  2387.       dc.b m,new_env,trigg,0
  2388.       dc.l blip_env
  2389.       dc.w C06,q,D06,q,Eb06,q,C06,q
  2390.     dc.w D06,q,Eb06,q,F06,q,D06,q
  2391.     dc.w Eb06,q,F06,q,G06,q,Eb06,q
  2392.     dc.w F06,q,D06,q,Eb06,q,C06,q
  2393.     dc.w D06,q,Bb05,q,C06,q,Ab05,q
  2394.       dc.b m,new_env,trigg,0
  2395.       dc.l fade
  2396.       dc.w G03,cr,A03,cr,Bb03,cr,G03,cr
  2397.     dc.w A03,cr,Bb03,cr,C04,cr,A03,cr
  2398.     dc.w Bb03,cr,C04,cr,D04,cr,Bb03,cr
  2399.     dc.w C04,cr,A03,cr,Bb03,cr,G03,cr
  2400.     dc.w A03,cr,F03,cr,G03,cr,Eb03,cr
  2401.       dc.b m,new_env,trigg,0
  2402.       dc.l blip_env
  2403.       dc.w D06,q,E06,q,F06,q,D06,q
  2404.     dc.w E06,q,F06,q,G06,q,E06,q
  2405.     dc.w F06,q,G06,q,A06,q,F06,q
  2406.     dc.w G06,q,E06,q,F06,q,D06,q
  2407.     dc.w E06,q,C06,q,D06,q,Bb05,q
  2408.       dc.b m,end_patt
  2409. p5f:
  2410.       dc.b m,new_env,trigg,0
  2411.       dc.l bass_envi
  2412.       dc.w F01,q,F02,q,F01,q,F02,q
  2413.       dc.w F01,q,F02,q,F01,q,F02,q
  2414.       dc.b m,end_patt
  2415. p6f:
  2416.       dc.w C02,q,Db02,q,C02,q,Db02,q      
  2417.       dc.b m,end_patt
  2418. p7f:
  2419.       dc.w G01,q,G02,q,G01,q,G02,q
  2420.       dc.w G01,q,G02,q,G01,q,G02,q
  2421.       dc.b m,end_patt
  2422. p8f:
  2423.       dc.w D02,q,Eb02,q,D02,q,Eb02,q      
  2424.       dc.b m,end_patt
  2425. p10f:     
  2426.       dc.b m,inline,6,200,255,0
  2427.       dc.b m,new_env,trigg,0
  2428.       dc.l bassde
  2429.       dc.b m,pbend,down,200
  2430.       dc.w c01,0
  2431.       dc.w e04,cr
  2432.       dc.b m,pbend,down,200
  2433.       dc.w c01,0
  2434.       dc.w e04,cr
  2435.       dc.b m,pbend,down,200
  2436.       dc.w c01,0
  2437.       dc.w e04,cr
  2438.       dc.b m,pbend,down,200
  2439.       dc.w c01,0
  2440.       dc.w e04,cr
  2441.       dc.b m,new_env,trigg,0
  2442.       dc.l snaree
  2443.       dc.b m,pbend,down,69
  2444.       dc.w c01,0
  2445.       dc.w c05,Q,c05,q
  2446.       dc.b m,end_patt
  2447.  
  2448. CR      set 16
  2449. tcr1     set 9
  2450. tcr2     set 8
  2451. Q       set cr/2
  2452. tq1      set 4
  2453. tq2      set 5
  2454. ;tsq     set 3
  2455. ;tsq2     set 2
  2456. SQ      set cr/4
  2457. ;m       set 254
  2458. ;rest     set $fd00
  2459. ;dcr      set cr+q
  2460. ;dq      set q+sq
  2461. ;dsq      set sq+(sq/2)
  2462. ;sb      set cr*4
  2463. ;min      set cr*2
  2464. ;dm      set min+cr
  2465.  
  2466.  
  2467.  
  2468. ; a few bars of danger music
  2469.  
  2470. song29:
  2471.     dc.l    p1g,pra,pr,pr,pr
  2472.       dc.l     end_song
  2473.  
  2474. song30:
  2475.     dc.l    p5g,pra,pr,pr,pr
  2476.         DC.L     end_song
  2477.  
  2478. song31:
  2479.         
  2480.     dc.l    p10e,p10e,p10e,p10e
  2481.     dc.l    p10g,p10g,p11e,pra,pr,pr,pr
  2482.     dc.l     end_song
  2483.  
  2484. p1g:
  2485.       dc.b m,new_env,trigg,0
  2486.       dc.l mono_envt1
  2487.     dc.w Eb04,q,D04,q,C04,q,F04,cr
  2488.     dc.w Eb04,q,D04,q,G04,cr,F04,q,Eb04,q
  2489.     dc.w F04,cr,Eb04,q,D04,q,Eb04,sq,rest,sq
  2490.     dc.w Eb04,q,D04,q,C04,q,F04,cr
  2491.     dc.w Eb04,q,D04,q,G04,cr,F04,q,Eb04,q
  2492.     dc.w F04,cr,Eb04,q,D04,q,Eb04,q
  2493.     dc.w G04,q*13,F04,q,Eb04,q,D04,q,C04,q
  2494.       dc.b m,end_patt
  2495. p5g:
  2496.       dc.b m,new_env,trigg,0
  2497.       dc.l bass_env
  2498.       dc.w C02,q*3,D02,cr*2,Eb02,cr*2,D02,q*5
  2499.       dc.w C02,q*3,D02,cr*2,Eb02,cr*2,F02,q*5
  2500.       dc.b m,new_env,trigg,0
  2501.       dc.l bass_envi
  2502.     dc.w G02,q,G02,q,G02,q,G02,q
  2503.     dc.w G02,q,G02,q,G02,q,G02,q
  2504.     dc.w G02,q,G02,q,G02,q,G02,q
  2505.     dc.w G02,q,F02,q,Eb02,q,D02,q,C02,q
  2506.       dc.b m,end_patt
  2507. p10G:     
  2508.       dc.b m,inline,6,200,255,0
  2509.       dc.b m,new_env,trigg,0
  2510.       dc.l bassde
  2511.       dc.b m,pbend,down,200
  2512.       dc.w c01,0
  2513.       dc.w e04,cr
  2514.       dc.b m,pbend,down,200
  2515.       dc.w c01,0
  2516.       dc.w e04,cr
  2517.       dc.b m,pbend,down,200
  2518.       dc.w c01,0
  2519.       dc.w e04,cr
  2520.       dc.b m,pbend,down,200
  2521.       dc.w c01,0
  2522.       dc.w e04,cr
  2523.       dc.b m,end_patt
  2524.  
  2525. CR      set 16
  2526. tcr1     set 9
  2527. tcr2     set 8
  2528. Q       set cr/2
  2529. tq1      set 4
  2530. tq2      set 5
  2531. ;tsq     set 3
  2532. ;tsq2     set 2
  2533. SQ      set cr/4
  2534. ;m       set 254
  2535. ;rest     set $fd00
  2536. ;dcr      set cr+q
  2537. ;dq      set q+sq
  2538. ;dsq      set sq+(sq/2)
  2539. ;sb      set cr*4
  2540. ;min      set cr*2
  2541. ;dm      set min+cr
  2542.  
  2543.  
  2544. ;minor triumph
  2545.  
  2546. song33:
  2547.     dc.l    p1h,pr,pr,pr,pr
  2548.       dc.l     end_song
  2549.  
  2550. song34:
  2551.     dc.l    p2h,pr,pr,pr,pr
  2552.         DC.L     end_song
  2553.  
  2554. song35:
  2555.         
  2556.     dc.l    p3h,pr,pr,pr,pr
  2557.     dc.l     end_song
  2558.  
  2559. p1h:
  2560.       dc.b m,new_env,trigg,0
  2561.       dc.l mono_envt1
  2562.       dc.b m,modon,1,1
  2563.       dc.w 4,4,4
  2564.     dc.w F04,q*5,C04,q,F04,q,A04,q
  2565.     dc.w C05,q*5,A04,q,C05,q,F05,q
  2566.     dc.w A05,q*5,F05,q,A05,q,C06,q
  2567.     dc.w F05,cr,C05,cr,A04,cr,C05,cr
  2568.     dc.w F04,cr*4
  2569.       dc.b m,end_patt
  2570. p2h:
  2571.       dc.b m,new_env,trigg,0
  2572.       dc.l titty2
  2573.       dc.b m,modon,1,1
  2574.       dc.w 4,4,4
  2575.     dc.w C04,q*5,A03,q,C04,q,F04,q
  2576.     dc.w A04,q*5,F04,q,A04,q,C05,q
  2577.     dc.w F05,q*5,C05,q,F05,q,A05,q
  2578.     dc.w C05,cr,A04,cr,F04,cr,A04,cr
  2579.     dc.w C04,cr*4
  2580.       dc.b m,end_patt
  2581. p3h:
  2582.       dc.b m,new_env,trigg,0
  2583.       dc.l titty3
  2584.       dc.b m,modon,1,1
  2585.       dc.w 4,4,4
  2586.     dc.w A03,q*5,F03,q,A03,q,C04,q
  2587.     dc.w F04,q*5,C04,q,F04,q,A04,q
  2588.     dc.w C05,q*5,A04,q,C05,q,F05,q
  2589.     dc.w A04,cr,F04,cr,C04,cr,F04,cr
  2590.     dc.w A03,cr*4
  2591.       dc.b m,end_patt
  2592.  
  2593. CR      set 20
  2594. tcr1     set 9
  2595. tcr2     set 8
  2596. Q       set cr/2
  2597. tq1      set 4
  2598. tq2      set 5
  2599. ;tsq     set 3
  2600. ;tsq2     set 2
  2601. SQ      set cr/4
  2602. ;m       set 254
  2603. ;rest     set $fd00
  2604. ;dcr      set cr+q
  2605. ;dq      set q+sq
  2606. ;dsq      set sq+(sq/2)
  2607. ;sb      set cr*4
  2608. ;min      set cr*2
  2609. ;dm      set min+cr
  2610.  
  2611.  
  2612. ;minor anticlimax
  2613.  
  2614. song37:
  2615.     dc.l    p1i,pr,pr,pr,pr
  2616.       dc.l     end_song
  2617.  
  2618. song38:
  2619.     dc.l    p2i,pr,pr,pr,pr
  2620.         DC.L     end_song
  2621.  
  2622. song39:
  2623.         
  2624.     dc.l    pr,pr,pr,pr
  2625.     dc.l     end_song
  2626.  
  2627. p1i:
  2628.       dc.b m,new_env,trigg,0
  2629.       dc.l mono_envt1
  2630.       dc.b m,pbend,down,1
  2631.       dc.w c01,0
  2632.     dc.w C05,cr,G04,cr+2,Bb04,cr+3,F04,cr+5
  2633.     dc.w Ab04,cr+6,Eb04,cr+10,G04,cr+14,F04,q+8,Eb04,q+10
  2634.       dc.b m,pbend,down,2
  2635.       dc.w c01,0
  2636.     dc.w C04,cr*4
  2637.       dc.b m,end_patt
  2638. p2i:
  2639.       dc.b m,new_env,trigg,0
  2640.       dc.l titty2
  2641.       dc.b m,pbend,down,1
  2642.       dc.w c01,0
  2643.     dc.w G03,cr,C04,cr+2,F03,cr+3,Bb03,cr+4
  2644.     dc.w Eb03,cr+6,Ab03,cr+10,D03,cr+14,Eb03,q+8,F03,q+10
  2645.       dc.b m,pbend,down,2
  2646.       dc.w c01,0
  2647.     dc.w G03,cr*4
  2648.       dc.b m,end_patt
  2649.  
  2650. ;threatening
  2651.  
  2652. song41:
  2653.     dc.l    p1j,p1j,p2j,pr,pr
  2654.       dc.l     end_song
  2655.  
  2656. song42:
  2657.     dc.l    p3j,p3j,p3j,p3j,p4j,pr,pr
  2658.         DC.L     end_song
  2659.  
  2660. song43:
  2661.         
  2662.     dc.l    p10j,p10j,p10j,p10j,p5j,pr,pr
  2663.     dc.l     end_song
  2664.  
  2665. p1j:
  2666.       dc.b m,new_env,trigg,0
  2667.       dc.l mono_envt1
  2668.     dc.w C03,cr,Bb03,q,Db03,cr,Gb03,q,B03,q
  2669.     dc.w D03,cr,G03,q,C04,q,Eb03,cr,Ab03,q,Db04,q,Eb04,q
  2670.       dc.b m,end_patt
  2671. p2j:
  2672.       dc.b m,modon,1,1
  2673.       dc.w 130,130,8
  2674.     dc.w E03,cr*4
  2675.       dc.b m,end_patt
  2676. p3j:
  2677.       dc.b m,new_env,trigg,0
  2678.       dc.l bass_envz
  2679.     dc.w C01,q,Db01,q,B01*2,q,C01,q
  2680.     dc.w C01,q,Db01,q,B01*2,q,C01,q
  2681.       dc.b m,end_patt
  2682. p4j:
  2683.       dc.b m,new_env,trigg,0
  2684.       dc.l titty2
  2685.       dc.b m,modon,1,1
  2686.       dc.w 125,125,8
  2687.     dc.w Eb03,cr*4
  2688.       dc.b m,end_patt
  2689. p5j:
  2690.       dc.b m,new_env,trigg,0
  2691.       dc.l titty3
  2692.       dc.b m,modon,1,1
  2693.       dc.w 135,135,8
  2694.     dc.w F03,cr*4
  2695.       dc.b m,end_patt
  2696.  
  2697. p10j:     
  2698.       dc.b m,inline,6,200,255,0
  2699.       dc.b m,new_env,trigg,0
  2700.       dc.l bassde
  2701.       dc.b m,pbend,down,200
  2702.       dc.w c01,0
  2703.       dc.w e04,cr
  2704.       dc.b m,pbend,down,200
  2705.       dc.w c01,0
  2706.       dc.w e04,cr
  2707.       dc.b m,new_env,trigg,0
  2708.       dc.l snaree
  2709.       dc.b m,pbend,down,69
  2710.       dc.w c01,0
  2711.       dc.w c05,Q,c05,q,c05,q
  2712.       dc.b m,new_env,trigg,0
  2713.       dc.l bassde
  2714.       dc.b m,pbend,down,200
  2715.       dc.w c01,0
  2716.       dc.w e04,q
  2717.     dc.b m,pboff
  2718.       dc.b m,end_patt
  2719.  
  2720. ;high drama
  2721.  
  2722. song45:
  2723.     dc.l    p1k,p1k,p2k,p2k,p2ak,pr,pr,pr,pr
  2724.       dc.l     end_song
  2725.  
  2726. song46:
  2727.     dc.l    p3k,p3k,p3k,p3k,p3k,p3ak,pr,pr,pr,pr
  2728.         DC.L     end_song
  2729.  
  2730. song47:
  2731.         
  2732.     dc.l    p10k,p10k,p10k,p10k,p10k,p11e,pra,pr,pr,pr,pr
  2733.     dc.l     end_song
  2734.  
  2735. p1k:
  2736.       dc.b m,new_env,trigg,0
  2737.       dc.l sq_env1
  2738.     dc.w C05,sq,C05,sq,C05,q,c05,q,c05,sq,c05,sq
  2739.     dc.w C05,q,c05,q,c05,sq,c05,sq,C05,sq,C05,sq
  2740.     dc.w c05,q,c05,sq,c05,sq,C05,sq,C05,q,C05,sq
  2741.     dc.w C05,q,c05,q,c05,sq,c05,sq,C05,sq,C05,sq
  2742.       dc.b m,end_patt
  2743. p2k:
  2744.     dc.w E05,sq,F05,sq,Gb05,sq,G05,sq
  2745.     dc.w Ab05,sq,A05,sq,Bb05,sq,B05,sq
  2746.       dc.b m,end_patt
  2747. p2ak:
  2748.     dc.w C05,q,rest,q*7
  2749.       dc.b m,end_patt
  2750. p3k:
  2751.       dc.b m,new_env,trigg,0
  2752.       dc.l bass_envz
  2753.     dc.w C02,q,C02,q,C03,q,Eb02,sq,Bb02,q
  2754.     dc.w F02,sq,C03,q,G02,q,Gb02,q
  2755.       dc.b m,end_patt
  2756. p3ak:
  2757.     dc.w C02,q,rest,q*7
  2758.       dc.b m,end_patt
  2759. p10k:     
  2760.       dc.b m,inline,6,200,255,0
  2761.       dc.b m,new_env,trigg,0
  2762.       dc.l bassde
  2763.       dc.b m,pbend,down,200
  2764.       dc.w c01,0
  2765.       dc.w e04,sq
  2766.       dc.b m,new_env,trigg,0
  2767.       dc.l hate
  2768.       dc.w g06,sQ,g06,sQ,g06,sQ
  2769.       dc.b m,new_env,trigg,0
  2770.       dc.l qCLAPE
  2771.       dc.b m,pbend,down,69
  2772.       dc.w c01,0
  2773.       dc.w c04,Q
  2774.       dc.b m,new_env,trigg,0
  2775.       dc.l bassde
  2776.       dc.b m,pbend,down,200
  2777.       dc.w c01,0
  2778.       dc.w e04,sQ
  2779.       dc.b m,new_env,trigg,0
  2780.       dc.l QCLAPE
  2781.       dc.b m,pbend,down,69
  2782.       dc.w c01,0
  2783.       dc.w c05,Q
  2784.       dc.b m,new_env,trigg,0
  2785.       dc.l bassde
  2786.       dc.b m,pbend,down,200
  2787.       dc.w c01,0
  2788.       dc.w e04,sQ
  2789.       dc.b m,new_env,trigg,0
  2790.       dc.l QCLAPE
  2791.       dc.b m,pbend,down,69
  2792.       dc.w c01,0
  2793.       dc.w c05,Q,c05,q,c05,q
  2794.       dc.b m,end_patt
  2795.  
  2796. CR      set 24
  2797. tcr1     set 9
  2798. tcr2     set 8
  2799. Q       set cr/2
  2800. tq1      set 4
  2801. tq2      set 5
  2802. ;tsq     set 3
  2803. ;tsq2     set 2
  2804. SQ      set cr/4
  2805. ;m       set 254
  2806. ;rest     set $fd00
  2807. ;dcr      set cr+q
  2808. ;dq      set q+sq
  2809. ;dsq      set sq+(sq/2)
  2810. ;sb      set cr*4
  2811. ;min      set cr*2
  2812. ;dm      set min+cr
  2813.  
  2814. ;nostalgic
  2815.  
  2816. song49:
  2817.     dc.l    p1l
  2818.       dc.l     end_song
  2819.  
  2820. song50:
  2821.     dc.l    p4l
  2822.         DC.L     end_song
  2823.  
  2824. song51:
  2825.         
  2826.     dc.l    p2l,p2l,p3l
  2827.     dc.l     end_song
  2828.  
  2829. p1l:
  2830.       dc.b m,new_env,trigg,0
  2831.       dc.l mono_envt1
  2832.     dc.w C05,cr*3,B04,cr*2,C05,q,D05,q,A04,cr*6
  2833.     dc.w C05,cr*3,B04,cr*2,C05,q,D05,q,A04,cr*6
  2834.     dc.w E05,cr*3,D05,q*5,E05,q,C05,q*11,rest,q
  2835.     dc.w C05,cr*3,B04,cr*2,C05,q,D05,q,C05,cr*3,E04,cr,D04,cr,C04,cr
  2836.       dc.b m,end_patt
  2837. p2l:
  2838.       dc.b m,new_env,trigg,0
  2839.       dc.l apaiano_env
  2840.     dc.w rest,q,G02,q,C03,q,G02,q,E03,q,G02,q
  2841.     dc.w rest,q,G02,q,C03,q,G02,q,E03,q,G02,q
  2842.     dc.w rest,q,C03,q,F03,q,C03,q,A03,q,C03,q
  2843.     dc.w rest,q,C03,q,F03,q,C03,q,A03,q,C03,q
  2844.       dc.b m,end_patt
  2845. p3l:
  2846.     dc.w rest,q,B02,q,E03,q,B02,q,Ab03,q,B02,q
  2847.     dc.w rest,q,B02,q,E03,q,B02,q,Ab03,q,B02,q
  2848.     dc.w rest,q,E03,q,A03,q,E03,q,C04,q,E03,q
  2849.     dc.w rest,q,E03,q,A03,q,E03,q,C04,q,E03,q
  2850.     dc.w rest,q,C03,q,F03,q,C03,q,A03,q,C03,q
  2851.     dc.w rest,q,D03,q,G03,q,D03,q,B03,q,D03,q
  2852.     dc.w rest,q,G02,q,C03,q,G02,q,E03,q,G02,q
  2853.     dc.w rest,q,G02,q,C03,q,G02,q,E03,q,G02,q
  2854.       dc.b m,end_patt
  2855. p4l:
  2856.       dc.b m,new_env,trigg,0
  2857.       dc.l bass_nos
  2858.     dc.w C02,cr*3,C02,cr,D02,cr,E02,cr
  2859.     dc.w F02,cr*3,F02,cr,E02,cr,D02,cr
  2860.     dc.w C02,cr*3,C02,cr,D02,cr,E02,cr
  2861.     dc.w F02,cr*3,F01,cr,E02,cr,D02,cr
  2862.     dc.w E02,cr*3,E02,cr*3,A02,cr*3,A02,cr*3
  2863.     dc.w F02,cr*3,G02,cr*3,C02,cr*3,C02,cr*3
  2864.       dc.b m,end_patt
  2865.  
  2866.  
  2867. CR      set 20
  2868. tcr1     set 9
  2869. tcr2     set 8
  2870. Q       set cr/2
  2871. tq1      set 4
  2872. tq2      set 5
  2873. ;tsq     set 3
  2874. ;tsq2     set 2
  2875. SQ      set cr/4
  2876. ;m       set 254
  2877. ;rest     set $fd00
  2878. ;dcr      set cr+q
  2879. ;dq      set q+sq
  2880. ;dsq      set sq+(sq/2)
  2881. ;sb      set cr*4
  2882. ;min      set cr*2
  2883. ;dm      set min+cr
  2884.  
  2885.  
  2886. ;Great triumph scene
  2887.  
  2888. song53:
  2889.     dc.l    p1m,pr,pr
  2890.       dc.l     end_song
  2891.  
  2892. song54:
  2893.     dc.l    p2m,p2m,p2m,p2m,p3m,p4m,p2m,p5m,pr,pr
  2894.         DC.L     end_song
  2895.  
  2896. song55:
  2897.     dc.l    p2am,p2am,p2am,p2am,p3am,p4am,p2am,p5am,pr,pr
  2898.     dc.l     end_song
  2899.  
  2900. p1m:
  2901.       dc.b m,new_env,trigg,0
  2902.       dc.l mono_envt1
  2903.     dc.w F04,q*5,C04,q,F04,q,A04,q
  2904.     dc.w C05,q*5,A04,q,C05,q,F05,q
  2905.     dc.w A05,q*5,F05,q,A05,q,C06,q
  2906.     dc.w F05,cr,C05,cr,A04,cr,C05,cr
  2907.     dc.w D05,q,Bb04,q,F04,q,D05,q,Bb04,q,F04,q
  2908.     dc.w D05,q,Bb04,q
  2909.     dc.w E05,q,C05,q,G04,q,E05,q,C05,q,G04,q
  2910.     dc.w E05,q,C05,q
  2911.     dc.w F05,cr,C05,cr,A04,cr,C05,cr
  2912.     dc.w F04,cr*4
  2913.       dc.b m,end_patt
  2914. p2m:
  2915.       dc.b m,new_env,trigg,0
  2916.     dc.l titty2
  2917.     dc.w F02,q,A02,q,C03,q,F03,q*5 
  2918.      dc.b m,end_patt
  2919. p3m:
  2920.     dc.w Bb01,q,D02,q,F02,q,Bb02,q*5
  2921.       dc.b m,end_patt
  2922. p4m:
  2923.     dc.w C02,q,E02,q,G02,q,C03,q*5
  2924.       dc.b m,end_patt
  2925. p5m:
  2926.       dc.b m,new_env,trigg,0
  2927.       dc.l titty2
  2928.     dc.w F02,cr*4
  2929.       dc.b m,end_patt
  2930. p2am:
  2931.       dc.b m,new_env,trigg,0
  2932.     dc.l titty3
  2933.     dc.w F01,q,A01,q,C02,q,F02,q*5 
  2934.      dc.b m,end_patt
  2935. p3am:
  2936.     dc.w Bb01,q,D01,q,F01,q,Bb01,q*5
  2937.       dc.b m,end_patt
  2938. p4am:
  2939.     dc.w C01,q,E01,q,G01,q,C02,q*5
  2940.       dc.b m,end_patt
  2941. p5am:
  2942.       dc.b m,new_env,trigg,0
  2943.       dc.l titty3
  2944.     dc.w F01,cr*4
  2945.       dc.b m,end_patt
  2946. p6m:
  2947.       dc.b m,new_env,trigg,0
  2948.       dc.l titty3
  2949.     dc.w C04,cr*4
  2950.       dc.b m,end_patt
  2951. ;p10m:     
  2952.       dc.b m,inline,6,200,255,0
  2953.       dc.b m,new_env,trigg,0
  2954.       dc.l bassde
  2955.       dc.b m,pbend,down,200
  2956.       dc.w c01,0
  2957.       dc.w e04,sQ
  2958.       dc.b m,new_env,trigg,0
  2959.       dc.l hate
  2960.       dc.w g06,sQ,g06,sQ,g06,sQ
  2961.       dc.b m,new_env,trigg,0
  2962.       dc.l qCLAPE
  2963.       dc.b m,pbend,down,69
  2964.       dc.w c01,0
  2965.       dc.w c04,sQ
  2966.       dc.b m,new_env,trigg,0
  2967.       dc.l hate
  2968.       dc.w g06,sQ,g06,sQ,g06,sQ
  2969.       dc.b m,new_env,trigg,0
  2970.       dc.l bassde
  2971.       dc.b m,pbend,down,200
  2972.       dc.w c01,0
  2973.       dc.w e04,sQ
  2974.       dc.b m,new_env,trigg,0
  2975.       dc.l hate
  2976.       dc.w g06,sQ,g06,sQ,g06,sQ
  2977.       dc.b m,new_env,trigg,0
  2978.       dc.l QCLAPE
  2979.       dc.b m,pbend,down,69
  2980.       dc.w f01,0
  2981.       dc.w c05,sQ
  2982.       dc.b m,new_env,trigg,0
  2983.       dc.l hate
  2984.       dc.w g06,sQ,g06,sQ,g06,sq
  2985.       dc.b m,end_patt
  2986.  
  2987.  
  2988. CR      set 20
  2989. tcr1     set 9
  2990. tcr2     set 8
  2991. Q       set cr/2
  2992. tq1      set 4
  2993. tq2      set 5
  2994. ;tsq     set 3
  2995. ;tsq2     set 2
  2996. SQ      set cr/4
  2997. ;m       set 254
  2998. ;rest     set $fd00
  2999. ;dcr      set cr+q
  3000. ;dq      set q+sq
  3001. ;dsq      set sq+(sq/2)
  3002. ;sb      set cr*4
  3003. ;min      set cr*2
  3004. ;dm      set min+cr
  3005.  
  3006.  
  3007. ;secretive
  3008.  
  3009. song57:
  3010.     dc.l    p1n,p1n
  3011.       dc.l     end_song
  3012.  
  3013. song58:
  3014.     dc.l    p2n,p2n
  3015.         DC.L     end_song
  3016.  
  3017. song59:
  3018.         
  3019.     dc.l    p10n,p10n
  3020.     dc.l     end_song
  3021.  
  3022. p1n:
  3023.       dc.b m,new_env,trigg,0
  3024.       dc.l mono_envt1i
  3025.     dc.w F05,cr,Eb05,cr,Bb04,cr,G04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  3026.     dc.w F05,cr,Eb05,cr,Bb04,cr,Ab04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  3027.     dc.w F05,cr,Eb05,cr,Bb04,cr,Gb04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  3028.     dc.w F05,cr,Eb05,cr,Bb04,cr,Gb04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  3029.       dc.b m,end_patt
  3030. p2n:
  3031.       dc.b m,new_env,trigg,0
  3032.       dc.l titty2
  3033.       dc.b m,modon,1,1
  3034.       dc.w 25,25,8
  3035.     dc.w Eb02,cr*3,Db02,cr*5,Gb01,cr*3,Ab01,cr*5
  3036.       dc.b m,modon,1,1
  3037.       dc.w 125,100,8
  3038.     dc.w Eb01,cr*16
  3039.       dc.b m,end_patt
  3040. p10n:     
  3041.       dc.b m,inline,6,200,255,0
  3042.       dc.b m,new_env,trigg,0
  3043.       dc.l bassde
  3044.       dc.b m,pbend,down,200
  3045.       dc.w c01,0
  3046.       dc.w e04,cr*3
  3047.       dc.b m,pbend,down,200
  3048.       dc.w c01,0
  3049.       dc.w e04,cr*2
  3050.       dc.b m,pbend,down,200
  3051.       dc.w c01,0
  3052.       dc.w e04,cr*1
  3053.       dc.b m,new_env,trigg,0
  3054.       dc.l snaree
  3055.       dc.b m,pbend,down,69
  3056.       dc.w c01,0
  3057.       dc.w c04,cr*2
  3058.       dc.b m,new_env,trigg,0
  3059.       dc.l bassde
  3060.       dc.b m,pbend,down,200
  3061.       dc.w c01,0
  3062.       dc.w e04,cr*3
  3063.       dc.b m,pbend,down,200
  3064.       dc.w c01,0
  3065.       dc.w e04,cr*2
  3066.       dc.b m,pbend,down,200
  3067.       dc.w c01,0
  3068.       dc.w e04,cr
  3069.       dc.b m,new_env,trigg,0
  3070.       dc.l snaree
  3071.       dc.b m,pbend,down,69
  3072.       dc.w c01,0
  3073.       dc.w c04,cr
  3074.       dc.b m,new_env,trigg,0
  3075.       dc.l bassde
  3076.       dc.b m,pbend,down,200
  3077.       dc.w c01,0
  3078.       dc.w e04,cr
  3079.       dc.b m,pbend,down,200
  3080.       dc.w c01,0
  3081.     dc.w e04,cr*3
  3082.       dc.b m,pbend,down,200
  3083.       dc.w c01,0
  3084.       dc.w e04,cr*2
  3085.       dc.b m,new_env,trigg,0
  3086.       dc.l snaree
  3087.       dc.b m,pbend,down,69
  3088.       dc.w c01,0
  3089.       dc.w c04,cr
  3090.     dc.w c04,cr*2
  3091.       dc.b m,new_env,trigg,0
  3092.       dc.l bassde
  3093.       dc.b m,pbend,down,200
  3094.       dc.w c01,0
  3095.       dc.w e04,cr*3
  3096.       dc.b m,pbend,down,200
  3097.       dc.w c01,0
  3098.       dc.w e04,cr*2
  3099.       dc.b m,new_env,trigg,0
  3100.       dc.l snaree
  3101.       dc.b m,pbend,down,69
  3102.       dc.w c01,0
  3103.       dc.w c04,cr
  3104.     dc.w c04,cr,c04,cr
  3105.       dc.b m,end_patt
  3106.  
  3107. ;Great disaster scene
  3108.  
  3109. song61:
  3110.     dc.l    pr,pr,pr,pr,p1o,pr,pr
  3111.       dc.l     end_song
  3112.  
  3113. song62:
  3114.     dc.l    p2o,p2o,p2o,p2o,p2o,p2o
  3115.     dc.l    p2o,p2o,p2o,p2o,p2ao,pr,pr
  3116.         DC.L     end_song
  3117.  
  3118. song63:
  3119.         
  3120.     dc.l    pr,pr,p3o,p3o,p3o,p3o,p3o
  3121.     dc.l    p3o,p3o,p3o,p3o,p3ao,pr,pr
  3122.     dc.l     end_song
  3123.  
  3124. p1o:
  3125.       dc.b m,new_env,trigg,0
  3126.       dc.l titty1
  3127.       dc.b m,modon,1,1
  3128.       dc.w 4,4,8
  3129.     dc.w C04,cr*6,Bb03,cr*2,G03,cr*8
  3130.     dc.w C04,cr*6,Eb04,cr*2,Gb04,cr*8
  3131.     dc.w C04,cr*6,Bb03,cr*2,G03,cr*8
  3132.     dc.w C04,cr*6,Eb04,cr*2,Gb04,cr*4,F04,cr*4,C04,cr*8
  3133.       dc.b m,end_patt
  3134. p2o:
  3135.       dc.b m,new_env,trigg,0
  3136.       dc.l titty2
  3137.       dc.b m,modon,1,1
  3138.       dc.w 10,10,8
  3139.     dc.w C02,cr*2,Eb02,cr*2,Bb01,cr*2,Db02,cr*2
  3140.       dc.b m,end_patt
  3141. p2ao:
  3142.       dc.b m,new_env,trigg,0
  3143.       dc.l titty2
  3144.       dc.b m,modon,1,1
  3145.       dc.w 25,25,8
  3146.     dc.w C02,cr*8
  3147.       dc.b m,end_patt
  3148. p3o:
  3149.       dc.b m,new_env,trigg,0
  3150.       dc.l titty3
  3151. ;      dc.b m,modon,1,1
  3152. ;      dc.w 25,25,8
  3153.     dc.w C03,cr,Eb03,cr,Bb02,cr,Db03,cr
  3154.     dc.w C03,cr,Eb03,cr,Bb02,cr,Db03,cr
  3155.       dc.b m,end_patt
  3156. p3ao:
  3157.       dc.b m,new_env,trigg,0
  3158.       dc.l titty3
  3159. ;      dc.b m,modon,1,1
  3160. ;      dc.w 25,25,8
  3161.     dc.w C03,cr*8
  3162.       dc.b m,end_patt
  3163.  
  3164.  
  3165. CR      set 16
  3166. tcr1     set 9
  3167. tcr2     set 8
  3168. Q       set cr/2
  3169. tq1      set 4
  3170. tq2      set 5
  3171. ;tsq     set 3
  3172. ;tsq2     set 2
  3173. SQ      set cr/4
  3174. ;m       set 254
  3175. ;rest     set $fd00
  3176. ;dcr      set cr+q
  3177. ;dq      set q+sq
  3178. ;dsq      set sq+(sq/2)
  3179. ;sb      set cr*4
  3180. ;min      set cr*2
  3181. ;dm      set min+cr
  3182.  
  3183.  
  3184. ;Main theme tune
  3185.  
  3186.  
  3187. song65:
  3188.     dc.l    p13p,p14p,p15p,p14p,p13p,p14p,p15p,p14p
  3189. ;    dc.l    prp,prp,prp,prp                ; intro 4
  3190.     dc.l    p1p                    ;part a 16
  3191.     dc.l    p1ap                    ;part a 16oct
  3192.     dc.l    p2p,p2ap                ;part b 16
  3193.     dc.l    p1p                    ;part a 16
  3194.     dc.l    p13p,p14p,p15p,p14p,p13p,p14p,p15p,p14p    ;solo 16
  3195.     dc.l    p13p,p14p,p15p,p14p,p13p,p14p,p15p,p14p
  3196.     dc.l    p16p
  3197.       dc.l     end_song
  3198.  
  3199. song66:
  3200.     dc.l    prp,prp,prp,prp
  3201.     dc.l    prp,prp,p6p,p6ap            ;intro4
  3202.     dc.l    p3p,p4p,p5p,p4p,p3p,p4p,p6p,p6ap    ;part a 16
  3203.     dc.l    p3p,p4p,p5p,p4p,p5p,p4p,p3p,p3p
  3204.     dc.l    p3xp,p4xp,p5xp,p4xp,p3xp,p4xp,p6p,p6ap    ;part a 16
  3205.     dc.l    p3xp,p4xp,p5xp,p4xp,p5xp,p4xp,p3xp,p3xp
  3206.     dc.l    p7p,p8p,p9p,p7ap,p12p            ;part b 16
  3207.     dc.l    p7p,p8p,p9p,p7ap,p12ap
  3208.     dc.l    p3p,p4p,p5p,p4p,p3p,p4p,p6p,p6ap    ;part a 16
  3209.     dc.l    p3p,p4p,p5p,p4p,p5p,p4p,p3p,p3p
  3210.     dc.l    p3p,p4p,p5p,p4p,p3p,p4p,p5p,p4p        ;solo 16
  3211.     dc.l    p3p,p4p,p5p,p4p,p3p,p4p,p5p,p4p
  3212.     dc.l    p6p,p6ap                
  3213.     dc.l    p3p,p4p,p5p,p4p
  3214.         DC.L     end_song
  3215.  
  3216. song67:
  3217.     dc.l    prp,prp,prp,prp,p11p,p11p        ;intro 4 
  3218.     dc.l    p11p,p11p,p11p,p11p,p11p,p11p,p11p,p11p    ;part a 16
  3219.     dc.l    p11p,p11p,p11p,p11p,p11p,p11p,p11p,p11p    ;part a 16
  3220.     dc.l    p10p,p10p,p10p,p10p,p10p,p10p,p10p,p10p ;part b 16
  3221.     dc.l    p10p,p10p,p10p,p10p,p10p,p10p,p10p,p10p
  3222.     dc.l    p11p,p11p,p11p,p11p,p11p,p11p,p11p,p11p    ;part a 16
  3223.     dc.l    p11p,p11p,p11p,p11p,p11p,p11p,p11p,p11p    ;solo 16
  3224.     dc.l     p11p,p11p,p11p
  3225.     dc.l     end_song
  3226.  
  3227. prp:
  3228.       dc.w rest,cr*4
  3229.       dc.b m,end_patt
  3230.  
  3231. p1p:
  3232.       dc.b m,new_env,trigg,0
  3233.       dc.l mono_envt1
  3234.       dc.b m,modon,1,1
  3235.       dc.w 4,4,8
  3236.     dc.w A03,q*3,E04,q*3,D04,cr*4,C04,q,B03,q
  3237.     dc.w C04,q*3,A03,q*3,B03,cr*5
  3238.     dc.w A03,q*3,E04,q*3,D04,cr*4,C04,q,D04,q
  3239.     dc.w E04,cr*8
  3240.     dc.w A03,q*3,E04,q*3,D04,cr*4,C04,q,B03,q
  3241.     dc.w C04,q*3,A03,q*3,B03,cr*5
  3242.     dc.w C04,q*3,A03,q*3,C04,cr
  3243.     dc.w D04,q*3,B03,q*3,D04,cr,E04,cr*8
  3244.       dc.b m,end_patt
  3245. p2p:
  3246. ;      dc.b m,new_env,trigg,0
  3247. ;      dc.l blip_env2
  3248.       dc.b m,modon,1,1
  3249.       dc.w 3,3,4
  3250.       dc.b m,pbend,up,35
  3251.       dc.w f04,0
  3252.     dc.w f02,cr*4
  3253.     dc.b m,pboff
  3254.     dc.w E04,cr,D04,q,E04,q*7,Gb04,q,G04,q
  3255.     dc.w A04,cr*2,G04,cr,Gb04,q,G04,q*3
  3256.     dc.w F03,sq,Gb03,sq,G03,sq,Ab03,sq
  3257.     dc.w A03,sq,Bb03,sq,B03,sq,C04,sq
  3258.     dc.w Db04,sq,D04,sq,Eb04,sq,E04,sq
  3259.     dc.w F04,cr*2,C05,cr*2,A04,cr*2,F04,cr*2,A04,cr*7
  3260.      dc.b m,end_patt
  3261. p1ap:
  3262.       dc.b m,new_env,trigg,0
  3263.       dc.l mono_envt1
  3264.       dc.b m,modon,1,1
  3265.       dc.w 2,2,8
  3266.     dc.w A04,q*3,E05,q*3,D05,cr*4,C05,q,B04,q
  3267.     dc.w C05,q*3,A04,q*3,B04,cr*5
  3268.     dc.w A04,q*3,E05,q*3,D05,cr*4,C05,q,D05,q
  3269.     dc.w E05,cr*8
  3270.     dc.w A04,q*3,E05,q*3,D05,cr*4,C05,q,B04,q
  3271.     dc.w C05,q*3,A04,q*3,B04,cr*5
  3272.     dc.w C05,q*3,A04,q*3,C05,cr
  3273.     dc.w D05,q*3,B04,q*3,D05,cr,E05,cr*6
  3274.       dc.b m,end_patt
  3275. p2ap:
  3276. ;      dc.b m,new_env,trigg,0
  3277. ;      dc.l blip_env2
  3278.       dc.b m,modon,1,1
  3279.       dc.w 2,2,4
  3280.       dc.b m,pbend,up,3
  3281.       dc.w f05,0
  3282.     dc.w C05,cr*3
  3283.     dc.b m,pboff
  3284.     dc.w E05,cr,D05,q,E05,q*7,Gb05,q,G05,q
  3285.     dc.w A05,cr*2,G05,cr,Gb05,q,G05,q*9
  3286.     dc.w F05,cr*2,C06,cr*2,A05,cr*2,F05,cr*2,A05,cr*8
  3287.      dc.b m,end_patt
  3288. p3p:
  3289.       dc.b m,new_env,trigg,0
  3290.       dc.l bass_envim
  3291.     dc.w A01,q,A01,q,G02,q,A02,q
  3292.     dc.w A01,q,A01,q,Db02,q,E02,q
  3293.       dc.b m,end_patt
  3294. p4p:
  3295.     dc.w G01,q,G01,q,F02,q,G02,q
  3296.     dc.w G01,q,G01,q,B02,q,D02,q
  3297.       dc.b m,end_patt
  3298. p5p:
  3299.     dc.w F01,q,F01,q,Eb02,q,F02,q
  3300.     dc.w F01,q,F01,q,A01,q,C02,q
  3301.       dc.b m,end_patt
  3302. p3xp:
  3303.       dc.b m,new_env,trigg,0
  3304.       dc.l bass_envim
  3305.     dc.w A01,q
  3306.     dc.w A01,q
  3307.     dc.w G02,q
  3308.     dc.w A02,q
  3309.     dc.w A06,q
  3310.     dc.w A01,sq
  3311.       dc.b m,new_env,trigg,0
  3312.       dc.l sq_envz
  3313.     dc.w A05,sq
  3314.       dc.b m,new_env,trigg,0
  3315.       dc.l bass_envim
  3316.     dc.w A01,sq
  3317.       dc.b m,new_env,trigg,0
  3318.       dc.l sq_envz
  3319.     dc.w A05,sq
  3320.       dc.b m,new_env,trigg,0
  3321.       dc.l bass_envim
  3322.     dc.w Db02,sq
  3323.       dc.b m,new_env,trigg,0
  3324.       dc.l sq_envz
  3325.     dc.w Db06,sq
  3326.       dc.b m,new_env,trigg,0
  3327.       dc.l bass_envim
  3328.     dc.w E02,sq
  3329.       dc.b m,new_env,trigg,0
  3330.       dc.l sq_envz
  3331.     dc.w E06,sq
  3332.       dc.b m,end_patt
  3333. p4xp:
  3334.       dc.b m,new_env,trigg,0
  3335.       dc.l bass_envim
  3336.     dc.w G01,sq
  3337.       dc.b m,new_env,trigg,0
  3338.       dc.l sq_envz
  3339.     dc.w G05,sq
  3340.       dc.b m,new_env,trigg,0
  3341.       dc.l bass_envim
  3342.     dc.w G01,sq
  3343.       dc.b m,new_env,trigg,0
  3344.       dc.l sq_envz
  3345.     dc.w G05,sq
  3346.       dc.b m,new_env,trigg,0
  3347.       dc.l bass_envim
  3348.     dc.w F02,sq
  3349.       dc.b m,new_env,trigg,0
  3350.       dc.l sq_envz
  3351.     dc.w F06,sq
  3352.       dc.b m,new_env,trigg,0
  3353.       dc.l bass_envim
  3354.     dc.w G02,sq
  3355.       dc.b m,new_env,trigg,0
  3356.       dc.l sq_envz
  3357.     dc.w G06,sq
  3358.       dc.b m,new_env,trigg,0
  3359.       dc.l bass_envim
  3360.     dc.w G01,sq
  3361.       dc.b m,new_env,trigg,0
  3362.       dc.l sq_envz
  3363.     dc.w G05,sq
  3364.       dc.b m,new_env,trigg,0
  3365.       dc.l bass_envim
  3366.     dc.w G01,sq
  3367.       dc.b m,new_env,trigg,0
  3368.       dc.l sq_envz
  3369.     dc.w G05,sq
  3370.       dc.b m,new_env,trigg,0
  3371.       dc.l bass_envim
  3372.     dc.w B02,sq
  3373.       dc.b m,new_env,trigg,0
  3374.       dc.l sq_envz
  3375.     dc.w B06,sq
  3376.       dc.b m,new_env,trigg,0
  3377.       dc.l bass_envim
  3378.     dc.w D02,sq
  3379.       dc.b m,new_env,trigg,0
  3380.       dc.l sq_envz
  3381.     dc.w D06,sq
  3382.       dc.b m,end_patt
  3383. p5xp:
  3384.       dc.b m,new_env,trigg,0
  3385.       dc.l bass_envim
  3386.     dc.w F01,sq
  3387.       dc.b m,new_env,trigg,0
  3388.       dc.l sq_envz
  3389.     dc.w F05,sq
  3390.       dc.b m,new_env,trigg,0
  3391.       dc.l bass_envim
  3392.     dc.w F01,sq
  3393.       dc.b m,new_env,trigg,0
  3394.       dc.l sq_envz
  3395.     dc.w F05,sq
  3396.       dc.b m,new_env,trigg,0
  3397.       dc.l bass_envim
  3398.     dc.w Eb02,sq
  3399.       dc.b m,new_env,trigg,0
  3400.       dc.l sq_envz
  3401.     dc.w Eb06,sq
  3402.       dc.b m,new_env,trigg,0
  3403.       dc.l bass_envim
  3404.     dc.w F02,sq
  3405.       dc.b m,new_env,trigg,0
  3406.       dc.l sq_envz
  3407.     dc.w F06,sq
  3408.       dc.b m,new_env,trigg,0
  3409.       dc.l bass_envim
  3410.     dc.w F01,sq
  3411.       dc.b m,new_env,trigg,0
  3412.       dc.l sq_envz
  3413.     dc.w F05,sq
  3414.       dc.b m,new_env,trigg,0
  3415.       dc.l bass_envim
  3416.     dc.w F01,sq
  3417.       dc.b m,new_env,trigg,0
  3418.       dc.l sq_envz
  3419.     dc.w F05,sq
  3420.       dc.b m,new_env,trigg,0
  3421.       dc.l bass_envim
  3422.     dc.w A01,sq
  3423.       dc.b m,new_env,trigg,0
  3424.       dc.l sq_envz
  3425.     dc.w A05,sq
  3426.       dc.b m,new_env,trigg,0
  3427.       dc.l bass_envim
  3428.     dc.w C02,sq
  3429.       dc.b m,new_env,trigg,0
  3430.       dc.l sq_envz
  3431.     dc.w C06,sq
  3432.       dc.b m,end_patt
  3433. p6p:
  3434.       dc.b m,new_env,trigg,0
  3435.       dc.l bass_envim
  3436.       dc.b m,modon,1,1
  3437.       dc.w 10,10,1
  3438.     dc.w E02,q,E02,q,E02,q,E02,q
  3439.     dc.w E02,q,E02,q,E02,q,E02,q
  3440.       dc.b m,end_patt
  3441. p6ap:
  3442.     dc.w E02,q,E02,q,D02,q,D02,q
  3443.     dc.w C02,q,C02,q,B01,q,B01,q
  3444.       dc.b m,end_patt
  3445. p7p:
  3446.     dc.w D02,q,D02,q,F02,q,F02,q
  3447.     dc.w G02,q,G02,q,A02,q,A02,q
  3448.       dc.b m,end_patt
  3449. p7ap:
  3450.     dc.w D02,q,D02,q,Gb02,q,F02,q
  3451.     dc.w G02,q,G02,q,A02,q,A02,q
  3452.       dc.b m,end_patt
  3453. p8p:
  3454.     dc.w E02,q,E02,q,G02,q,G02,q
  3455.     dc.w A02,q,A02,q,B02,q,B02,q
  3456.       dc.b m,end_patt
  3457. p9p:
  3458.     dc.w A02,q,A02,q,C03,q,C03,q
  3459.     dc.w D03,q,D03,q,E03,q,E03,q
  3460.       dc.b m,end_patt
  3461. p9ap:
  3462.     dc.w A02,q,A02,q,C03,q,C03,q
  3463.     dc.w D03,q,D03,q,E03,q,E03,q
  3464.       dc.b m,end_patt
  3465. p12p:
  3466.     dc.w F02,q,F02,q,G02,q,G02,q
  3467.     dc.w A02,q,A02,q,C03,q,C03,q
  3468.     dc.w D03,q,D03,q,E03,q,E03,q
  3469.     dc.w F03,q,F03,q,G03,q,G03,q
  3470.     dc.w A03,q,A02,q,A02,q,A03,q
  3471.     dc.w A02,q,A02,q,A03,q,A02,q
  3472.     dc.w A02,q,A03,q,A02,q,A02,q
  3473.     dc.w A03,q,A02,q,A03,q,A03,q
  3474.       dc.b m,end_patt
  3475. p12ap:
  3476.     dc.w F02,q,F02,q,G02,q,G02,q
  3477.     dc.w A02,q,A02,q,C03,q,C03,q
  3478.     dc.w D03,q,D03,q,E03,q,E03,q
  3479.     dc.w F03,q,F03,q,G03,q,G03,q
  3480.     dc.w A03,q,A02,q,A02,q,A03,q
  3481.     dc.w A03,sq,Ab03,sq,G03,sq,Gb03,sq
  3482.     dc.w F03,sq,E03,sq,Eb03,sq,D03,sq
  3483.     dc.w Db03,sq,C03,sq,B02,sq,Bb02,sq
  3484.     dc.w A02,sq,Ab02,sq,G02,sq,Gb02,sq
  3485.     dc.w F02,sq,E02,sq,Eb02,sq,D02,sq
  3486.     dc.w Db02,sq,C01,sq,B01,sq,Bb01,sq
  3487.       dc.b m,end_patt
  3488. p13p:
  3489.       dc.b m,new_env,trigg,0
  3490.       dc.l sq_env2
  3491.     dc.w A05,q,A05,q,G06,q,A06,q
  3492.     dc.w A05,q,A05,q,Db06,q,D06,sq,E06,sq
  3493.       dc.b m,end_patt
  3494. p14p:
  3495.     dc.w G05,q,G05,q,F06,sq,F06,sq,G06,q
  3496.     dc.w G05,q,G05,q,B06,q,D06,q
  3497.       dc.b m,end_patt
  3498. p15p:
  3499.     dc.w F05,q,F05,q,Eb06,q,F06,q
  3500.     dc.w F05,q,F05,q,A05,q,C06,sq,C05,sq
  3501.       dc.b m,end_patt
  3502. p16p:
  3503.       dc.b m,new_env,trigg,0
  3504.       dc.l titty1
  3505.       dc.b m,modon,1,1
  3506.       dc.w 1,1,8
  3507.     dc.w Db03,sq,D03,sq,Eb03,sq,E03,sq
  3508.     dc.w F03,sq,Gb03,sq,G03,sq,Ab03,sq
  3509.     dc.w A03,sq,Bb03,sq,B03,sq,C04,sq
  3510.     dc.w Db04,sq,D04,sq,Eb04,sq,E04,sq
  3511.     dc.w F04,sq,Gb04,sq,G04,sq,Ab04,sq
  3512.     dc.w A04,sq,Bb04,sq,B04,sq,C05,sq
  3513.     dc.w Db05,sq,D05,sq,Eb05,sq,E05,sq
  3514.     dc.w F05,sq,Gb05,sq,G05,sq,Ab05,sq
  3515.     dc.w A05,cr*7,G05,q,E05,q,G05,q,A05,q*11,C06,cr,B05,cr
  3516.      dc.b m,end_patt
  3517. ;p10p:     
  3518.       dc.b m,inline,6,200,255,0
  3519.       dc.b m,new_env,trigg,0
  3520.       dc.l bassde
  3521.       dc.b m,pbend,down,200
  3522.       dc.w c01,0
  3523.       dc.w e04,sQ
  3524.       dc.b m,new_env,trigg,0
  3525.       dc.l hate
  3526.       dc.w g06,sQ,g06,sQ,g06,sQ
  3527.       dc.b m,new_env,trigg,0
  3528.       dc.l snaree
  3529.       dc.b m,pbend,down,69
  3530.       dc.w c01,0
  3531.       dc.w c04,sQ
  3532.       dc.b m,new_env,trigg,0
  3533.       dc.l hate
  3534.       dc.w g06,sQ,g06,sQ,g06,sQ
  3535.       dc.b m,new_env,trigg,0
  3536.       dc.l bassde
  3537.       dc.b m,pbend,down,200
  3538.       dc.w c01,0
  3539.       dc.w e04,sQ
  3540.       dc.b m,new_env,trigg,0
  3541.       dc.l hate
  3542.       dc.w g06,sQ,g06,sQ,g06,sQ
  3543.       dc.b m,new_env,trigg,0
  3544.       dc.l snaree
  3545.       dc.b m,pbend,down,69
  3546.       dc.w f01,0
  3547.       dc.w c05,sQ
  3548.       dc.b m,new_env,trigg,0
  3549.       dc.l hate
  3550.       dc.w g06,sQ,g06,sQ,g06,sq
  3551.       dc.b m,end_patt
  3552. p11p:     
  3553.       dc.b m,inline,6,200,255,0
  3554.       dc.b m,new_env,trigg,0
  3555.       dc.l bassde
  3556.       dc.b m,pbend,down,200
  3557.       dc.w c01,0
  3558.       dc.w e04,Q,e04,q,rest,q
  3559.     dc.w e04,q
  3560.       dc.b m,new_env,trigg,0
  3561.       dc.l snaree
  3562.       dc.b m,pbend,down,69
  3563.       dc.w c01,0
  3564.       dc.w c04,Q*3
  3565.       dc.b m,new_env,trigg,0
  3566.       dc.l bassde
  3567.       dc.b m,pbend,down,200
  3568.       dc.w c01,0
  3569.       dc.w e04,cr
  3570.       dc.b m,pbend,down,200
  3571.       dc.w c01,0
  3572.       dc.w e04,cr
  3573.       dc.b m,pbend,down,200
  3574.       dc.w c01,0
  3575.       dc.w e04,q
  3576.       dc.b m,new_env,trigg,0
  3577.       dc.l QCLAPE
  3578.       dc.b m,pbend,down,69
  3579.       dc.w f01,0
  3580.       dc.w c05,cr
  3581.       dc.b m,pbend,down,200
  3582.       dc.w c01,0
  3583.       dc.w e04,cr
  3584.       dc.b m,end_patt
  3585. p10p:     
  3586.       dc.b m,inline,6,200,255,0
  3587.       dc.b m,new_env,trigg,0
  3588.       dc.l bassde
  3589.       dc.b m,pbend,down,200
  3590.       dc.w c01,0
  3591.       dc.w e04,Q,e04,q
  3592.       dc.b m,new_env,trigg,0
  3593.       dc.l qCLAPE
  3594.       dc.b m,pbend,down,69
  3595.       dc.w c01,0
  3596.       dc.w c04,Q
  3597.       dc.b m,new_env,trigg,0
  3598.       dc.l bassde
  3599.       dc.b m,pbend,down,200
  3600.       dc.w c01,0
  3601.       dc.w e04,cr
  3602.       dc.b m,pbend,down,200
  3603.       dc.w c01,0
  3604.       dc.w e04,q
  3605.       dc.b m,new_env,trigg,0
  3606.       dc.l QCLAPE
  3607.       dc.b m,pbend,down,69
  3608.       dc.w f01,0
  3609.       dc.w c05,q,c05,q
  3610.       dc.b m,end_patt
  3611.  
  3612.  
  3613. ;****************************************************************
  3614. exp2_env:    dc.b 15,n1,14,n1,13,n1,12,n1,11,n1,10,n1,7,n1
  3615.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  3616.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  3617.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  3618.         DC.B 0,N1,255
  3619.  
  3620. ;****************************************************************
  3621. abass_env:    dc.b 15,t2,15,t2,15,t2,15,t2
  3622.       dc.b 15,t2,15,t2
  3623.       dc.b 2,t2,255
  3624. apaiano_env:    dc.b 15,t3,15,t3,15,t3,15,t3,14,t3
  3625.       dc.b 13,t3,13,t3,13,t3,13,t3,13,t3
  3626.       dc.b 13,t3,12,t3,12,t3,11,t3
  3627.       dc.b 11,t3,10,t3,9,t3,8,t3,7,t3,6,t3,255
  3628. snaree:     dc.b 15,b3,15,t3,15,t3,15,b3,15,t3,15,b3
  3629.   dc.b 12,t3,12,b3,9,t3,7,b3,7,t3,7
  3630.   dc.b b3,6,t3,6,b3,6
  3631.   dc.b t3,5,t3,255
  3632. bassde: dc.b 15,b3,15,t3,15,t3,15,t3,7,t3
  3633.   dc.b 3,t3,0,t3,255
  3634. nbass_env: dc.b 15,n2
  3635. bass_env: dc.b 15,t2,15,t2,15,t2,15,t2
  3636.     dc.b 15,t2,15,t2,15,t2,15,t2
  3637.     dc.b 15,t2,15,t2,15,t2,15,t2
  3638.     dc.b 15,t2,15,t2,15,t2,15,t2
  3639.     dc.b 15,t2,15,t2,15,t2,15,t2
  3640.     dc.b 15,t2,15,t2,15,t2,15,t2
  3641.       dc.b 12,t2,11,t2
  3642.       dc.b 7,t2,255
  3643. bass_nos: dc.b 15,t2,15,t2,15,t2,15,t2
  3644.     dc.b 15,t2,15,t2,15,t2,15,t2
  3645.     dc.b 15,t2,15,t2,15,t2,15,t2
  3646.     dc.b 15,t2,15,t2,15,t2,15,t2
  3647.     dc.b 15,t2,15,t2,15,t2,15,t2
  3648.     dc.b 15,t2,15,t2,15,t2,15,t2
  3649.     dc.b 14,t2,14,t2,14,t2,14,t2
  3650.     dc.b 14,t2,14,t2,14,t2,14,t2
  3651.     dc.b 14,t2,14,t2,14,t2,14,t2
  3652.     dc.b 14,t2,14,t2,14,t2,14,t2
  3653.     dc.b 13,t2,13,t2,13,t2,13,t2
  3654.     dc.b 13,t2,13,t2,13,t2,13,t2
  3655.     dc.b 13,t2,13,t2,13,t2,13,t2
  3656.     dc.b 13,t2,13,t2,13,t2,13,t2
  3657.       dc.b 12,t2,11,t2
  3658.       dc.b 7,t2,255
  3659. fade:    dc.b 4,t1,6,t1,8,t1,10,t1,11,t1,14,t1,15,t1,255
  3660. bass_envi: dc.b 15,t2,15,t2,15,t2,15,t2,15,t2,0,t2,255
  3661. bass_envim: dc.b 15,b2,15,t2,15,t2,15,t2,15,t2,12,t2,0,t2,255
  3662. titty1: dc.b 15,t1,255
  3663. titty2: dc.b 15,t2,255
  3664. titty3: dc.b 15,t3,255
  3665.     even
  3666. bass_envz: dc.b 15,t2,15,t2,15,t2,15,t2
  3667.   dc.b 15,t2,15,t2,15,t2,15,t2
  3668.   dc.b 0,t2,255
  3669.     even
  3670. qclape:     dc.b 15,n3,14,n3,14,n3,13,n3,13,n3,12,n3
  3671.   dc.b 11,n3,11,n3,9,n3,7,n3,7,n3
  3672.   dc.b 7,n3,6,n3,6,n3
  3673.   dc.b 6,n3,5,n3,255
  3674. hate:     dc.b 13,n3,0,n3,255
  3675. mono_envt1:   dc.b 13,t1,255
  3676. blip_env:   dc.b 13,t1,13,t1,13,t1,13,t1,1,t1,1,t1,13,t1,255
  3677. blip_env2:   dc.b 13,t1,13,t1,13,t1,13,t1,1,t1,1,t1,13,t1
  3678.     dc.b 13,t1,13,t1,12,t1,11,t1,10,t1,255
  3679. mono_envt1i:   dc.b 12,b1,14,t1,13,t1,12,t1,12,t1
  3680.     dc.b 5,t1,5,t1,5,t1,13,t1,12,t1,9,t1,7,t1,5,t1,3,t1,0,t1,255
  3681. sq_env1:     dc.b 15,t1,15,t1,13,t1,10,t1,0,t1,255
  3682. sq_env2:     dc.b 15,t1,11,t1,0,t1,255
  3683. sq_envz:     dc.b 15,t2,11,t2,0,t2,255
  3684. ;;;;;;;;;;;;;;;;;;;;;;  MUSIC DATA END ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3685.  
  3686. SPEEDS:
  3687.      DC.W $0607
  3688.      DC.W $CF01
  3689.      DC.W 39681 
  3690.      DC.W 31745 
  3691.      DC.W 26369 
  3692.      DC.W 22529 
  3693.      DC.W 19713 
  3694.      DC.W 17409 
  3695.      DC.W 15873 
  3696.      DC.W 14337 
  3697.      DC.W 13313 
  3698.      DC.W 12289 
  3699.      DC.W 11265 
  3700.      DC.W 10497 
  3701.      DC.W 9985 
  3702.      DC.W 2307 
  3703.  
  3704. ;***************************************
  3705. ssplash8d:    ;incbin a:ssplash8.sam
  3706. explosi8d:    ;incbin a:explosi8.sam
  3707.  
  3708. END
  3709.  
  3710. ?
  3711.  
  3712.  
  3713.