home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Midwinter II / Lowe_MidwinterII.img / MIDWIN11.S < prev    next >
Encoding:
Text File  |  1985-11-20  |  68.2 KB  |  3,231 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 #18,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 NOT IMPLEMENTED'
  442.          dc.b 255
  443.  
  444. title_mess_pos:
  445.          dc.b 27,'Y',32+15,32+20
  446. title_mess:
  447.          dc.b  '        *  MIDWINTERII MUSIC *'
  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,pboff
  494.         dc.b m,modoff        
  495.         dc.b m,end_patt
  496. start_song:     dc.l $ffffffff
  497. curr_comp:    dc.b 5,0
  498. vol_count:    dc.w 6
  499. hold_val_p:    dc.w 0,0
  500. sfxflag        dc.w 0
  501. int_flag    dc.w 0
  502. ; ******************************
  503.  
  504. ;  SUBROUTINE TO KILL CHIP...does not save registers
  505.  
  506. ; call here to kill all three channels
  507. kill_chip:
  508.         move.w #13,d0
  509. kloop        move.b d0,select_reg
  510.         move.b #0,write_data
  511.         dbra.w    d0,kloop 
  512.            move.b #7,select_reg
  513. ; turn mixer off
  514.            move.b #%11111111,write_data
  515.            rts
  516. ; *************************************
  517.  ; SONG SELECTION subroutine...call here AFTER poking number of required
  518. ;    piece into song_buffer
  519.  
  520. select_new_song:
  521.         move.w #1,int_flag
  522.          jsr kill_chip 
  523.          move.l #74,d0
  524.          lea vars1,a0
  525.         clear_loop:
  526.          move.w #0,(a0)+
  527.          dbra d0,clear_loop
  528.          clr.l backup_buffer
  529.          clr.b fxcount
  530.          clr.l d0
  531.          move.l song_buffer,d1
  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.          add d1,d0
  543.          add d1,d0
  544.          LEA SONG_TABLE-12,A1
  545.          add.l d0,a1 
  546.          MOVE.L (A1)+,WSONG1 
  547.           move.l (a1)+,wsong2 
  548.           move.l (a1),wsong3
  549.           MOVE.L #START_PATT,PATTR1
  550.           MOVE.L #start_patt,PATTR2
  551.           MOVE.L #start_patt,PATTR3
  552.           move.l #start_song,songr1
  553.           MOVE.L #start_song,SONGR2
  554.           MOVE.L #start_song,SONGR3
  555.           move.w #0,intc1
  556.           move.w #0,intc2
  557.           move.w #0,intc3
  558.         clr.w int_flag
  559.           rts
  560.  
  561. ;****************************************
  562.     ;  CALL HERE WITH D0 HOLDING THE long word value
  563.     ;  of the fx you want/  see fx list
  564.  
  565. set_up_chip_fx
  566.         add d0,d0
  567.         add d0,d0
  568.         lea chfx_table-4,a0
  569.         move.l (a0,d0),a1    
  570.         btst #0,fx_flag+1
  571.         bne checkfx2
  572. use1        move.l a1,fxpattr1
  573.         bset #0,fx_flag+1
  574.         rts
  575. checkfx2:     btst #1,fx_flag+1
  576.         bne checkfx3    
  577.         move.l a1,fxpattr2
  578.         bset #1,fx_flag+1
  579.         rts
  580. checkfx3:     btst #2,fx_flag+1
  581.         bne overwrite
  582.         move.l a1,fxpattr3
  583.         bset #2,fx_flag+1
  584. overwrite
  585.         lea fxvars1,a0
  586.         jsr clear_fx_1
  587.         bra use1
  588. ;*************************************
  589. ; CALL HERE ON 50hz INTERRUPT TO PLAY MUSIC/SAMPLES AND FX
  590. ; TO PLAY SAMPLE  PLACE NUMBER FROM INCLUDED LISTS INTO..fx_buffer
  591. ; TO PLAY CHIP FX CALL ABOVE ROUTINE AS DESCRIBED ABOVE
  592. ; TO SELECT WHICH PIECE OF MUSIC PLACE NUMBER FROM INCLUDED
  593. ; LIST INTO....song_buffer AND CALL select_new_song
  594. ; TO DISABLE MUSIC PLACE A 1 INTO music_disable/0 TO RENABLE
  595. ; TO DISABLE SAMPLES/FX PLACE A 1 INTO fx_disable/0 TO RENABLE
  596. ; SEE LINE FURTHER  DOWN  FOR MUSIC VOLUME CONTROL
  597. ; THERE IS NO NEED TO DISABLE THE 50hz INTERRUPT WHEN USING THE
  598. ; ABOVE FUNCTIONS
  599.  
  600. sfxdriver:
  601.         movem.l a0-a5/d0-d7,-(a7)
  602.         jsr driver
  603.         movem.l (a7)+,a0-a5/d0-d7
  604.          rts    ;YOU PROBABLY NEED TO CHANGE THIS TO RTE WHEN RUNNING
  605.         ;IT FROM THE VBI
  606.  
  607. ; *************************************
  608. driver:
  609.         tst.w int_flag
  610.         beq on_line
  611.         rts
  612. on_line       tst.w fx_disable
  613.            bne mdriver   
  614.           tst.l fx_buffer 
  615.         bne set_up_s
  616.            tst.w fx_patt_f
  617.            bne fx_in_use
  618.           bra mdriver 
  619. set_up_s
  620.            clr.w chip_fx_on
  621.           move.l fx_buffer,d0
  622.           add d0,d0
  623.           add d0,d0  
  624.           MOVE.L #PATT_TABLE,A1
  625.           move.l (a1,d0),a2 
  626. set_up_fx: 
  627.         move.l (a2)+,a1 
  628.           move.l (a2)+,fx_int 
  629.           move.l a2,fx_patt_point
  630.           clr.w curr_fx_fin
  631.           move.l (a1)+,sam_speed
  632.           move.l (a1)+,sam_end
  633.          move.l (a1)+,sam_start
  634.           move.l #0,fx_buffer
  635.          move.w #1,fx_patt_f 
  636.           jsr main_program
  637.         move.w #1,sample_flag
  638.          bra mdriver 
  639. fx_in_use:
  640.          tst.w curr_fx_fin 
  641.           beq mdriver 
  642.          move.l fx_patt_point,a2
  643.           cmpi.l #255,(a2) 
  644.           bne check_delay
  645.           clr.w fx_patt_f
  646.         move.w #0,sample_flag
  647.         jsr kill_chip
  648.           beq mdriver
  649.           bra mdriver
  650. CHECK_DELAY:     TST.L FX_INT
  651.           beq set_up_fx
  652.           sub.l #1,fx_int
  653.         bra mdriver 
  654.  
  655.  
  656. patt_table:     dc.l 0,fxp1,fxp2,fxp3,fxp4,fxp5,fxp6
  657.  
  658.  
  659. fxp1:         dc.l ssplash8,0,255
  660. fxp2:         dc.l ssplash8,0,255
  661. fxp3:         dc.l explosi8,0,255
  662. fxp4:         dc.l explosi85,0,255
  663. fxp5:         dc.l explosi83,0,255
  664. fxp6:
  665.          dc.l explosi8s,0
  666.          dc.l explosi5s,0
  667.          dc.l explosi3s,0
  668.          dc.l explosi6s,0
  669.          dc.l explosi9s,0
  670.          dc.l explosi10s,0
  671.          dc.l explosi5s,0
  672.          dc.l explosi83,0,255
  673.  
  674.  
  675. ssplash8    dc.l 7,6728+ssplash8d,ssplash8d
  676. explosi8    dc.l 8,4882+explosi8d,explosi8d
  677. explosi8s    dc.l 8,1200+explosi8d,explosi8d
  678. explosi7s    dc.l 7,1200+explosi8d,explosi8d
  679. explosi6s    dc.l 6,1200+explosi8d,explosi8d
  680. explosi5s    dc.l 5,1200+explosi8d,explosi8d
  681. explosi10s    dc.l 10,1200+explosi8d,explosi8d
  682. explosi3s    dc.l 3,1200+explosi8d,explosi8d
  683. explosi9s    dc.l 9,1200+explosi8d,explosi8d
  684.  
  685. explosi85    dc.l 5,4882+explosi8d,explosi8d
  686. explosi83    dc.l 3,4882+explosi8d,explosi8d
  687.  
  688. max_sam        equ 7
  689.  
  690. ;**********************************************
  691.  
  692. clear_chip:    RTS
  693. SAM_SPEED DC.L 0
  694. SAM_END DC.L 0
  695. SAM_START DC.L 0
  696.         MAIN_PROGRAM:
  697.          jsr kill_chip
  698.          MOVE.l SAM_SPEED,D0
  699.          EXT.W D0
  700.          SUBQ.L #2,D0
  701.          lSL.w #1,D0
  702.          MOVE.L SAM_START(PC),sample+2 
  703.          LEA SPEEDS(PC),A0
  704.          MOVE.L #interupt,$134 
  705.          MOVE.W 0(A0,D0.W),D0
  706.          MOVE.B D0,$FFFA19 
  707.          LSR.W #8,D0
  708.          MOVE.B D0,$FFFA1F
  709.          MOVE.B #$20,$FFFA13 
  710.           MOVE.B #$20,$FFFFA07 
  711.          rts
  712.         INTERUPT: ORI.W #$0700,SR 
  713.          MOVEM.L D0-D2/A0-A2,-(SP) 
  714.          CLR.W D0 
  715.          MOVE.L SAM_END,A1
  716.          LEA SAMPLE+2,A2
  717. SAMPLE:     MOVE.B $00000000,D0 
  718.          ADDQ.L #1,(A2) 
  719.          AND.B #$FC,D0
  720.          ;LEA CHANEL_A,A0
  721.          MOVE.W #$0900,D1 
  722.          MOVE.W #$0A00,D2
  723.         MOVE.B CHANEL_A+1(PC,D0.W),D1
  724.         MOVE.B CHANEL_A+3(PC,D0.W),D2 
  725.          ;MOVE.B 1(A0,D0.W),D1
  726.          ;MOVE.B 3(A0,D0.W),D2
  727.          LEA $FFFF8800.W,A0 
  728.          MOVEP.W D1,0(A0)
  729.          MOVEP.W D2,0(A0) 
  730.          CMPA.L (A2),A1 
  731.          BLT.S STOP_INTERUPT
  732.          MOVEM.L (SP)+,D0-D2/A0-A2 
  733.          BCLR #5,$FFFA0F 
  734.          RTE 
  735. STOP_INTERUPT:         BCLR #5,$FFFA19 
  736.          BCLR #5,$FFFA07 
  737.          MOVEM.L (SP)+,D0-D2/A0-A2 
  738.          BCLR #5,$FFFA0F 
  739.              move.w #1,curr_fx_fin
  740.              clr.b duck
  741.          RTE
  742.  
  743. ;*************************************************
  744.  
  745. CHANEL_A: DC.L $00000000,$00020000,$00020001,$00020002
  746.  DC.L $00030002,$00040001,$00040002,$00050002
  747.  DC.L $00060000,$00060002,$00060003,$00060004
  748.  DC.L $00070002,$00070004,$00070005,$00080002
  749.  DC.L $00080003,$00080004,$00080005,$00090002
  750.  DC.L $00090003,$00090004,$00090005,$00090006
  751.  DC.L $00090007,$000A0003,$000A0004,$000A0005
  752.  DC.L $000A0006,$000A0007,$000B0000,$000B0001
  753.  DC.L $000B0002,$000B0004,$000B0005,$000B0006
  754.  DC.L $000B0007,$000B0008,$000B0008,$000B0009
  755.  DC.L $000B0009,$000C0000,$000C0001,$000C0002
  756.  DC.L $000C0003,$000C0004,$000C0005,$000C0006
  757.  DC.L $000C0008,$000C0008,$000C0009,$000C0009
  758.  DC.L $000C0009,$000C000A,$000D0000,$000D0002
  759.  DC.L $000D0003,$000D0004,$000D0005,$000D0006
  760.  DC.L $000D0007,$000D0008,$000D0008,$000D0009 
  761.  
  762.  
  763.  
  764.  
  765. ;**************************************************
  766. super:  
  767.            move sr,d0
  768.            andi #$2000,d0
  769.            bne coldst
  770.            clr.l -(sp)
  771.            move.w #$20,-(sp)
  772.            trap #1
  773.            add.l #6,sp
  774.            lea temp,a1
  775.            MOVE.L D0,(a1)
  776. coldst:       rts
  777. user:
  778.            move.l temp,-(sp)
  779.            move.w #$20,-(sp)
  780.            trap #1
  781.            add.l #6,sp
  782.            rts
  783. interrupt:      moveq #4,d1
  784. wait2:      move.l $4ba,d6
  785. wait:          cmp.l $4ba,d6
  786.            beq wait
  787.            subq #1,d1
  788.            bne wait2
  789.            rts
  790.  
  791.  
  792. ;+++++++++++++++++++++++++++++++++++++++++++++++++
  793.  
  794. mdriver: 
  795.  
  796.         move.w #1,curr_chann
  797.         move.l #select_reg,a4
  798.         move.l #curr_mix,a5
  799.         tst.w sample_flag    
  800.         beq do1    
  801.         move.l #no_reg,a4
  802. do1: 
  803.           lea VARS1,A0 
  804.         btst.b #0,fx_flag+1
  805.         beq do1music
  806.         lea fxvars1,a0
  807.          moveq.l #0,d0 
  808.           moveq.l #1,d1 
  809.           moveq.l #8,d2 
  810.          move.b #%11110110,d7
  811.         jsr check_count_1
  812.             move.l #no_reg,a4
  813.         move.l #no_reg,a5
  814.          lea VARS1,A0 
  815.         jsr check_count_1
  816.         bra chan2
  817. do1music:
  818.         tst.w music_disable
  819.         bne chan2
  820.           moveq.l #0,d0 
  821.           moveq.l #1,d1 
  822.           moveq.l #8,d2 
  823.           move.b #%11110110,d7
  824.           jsr check_count_1
  825. ;    ******************************
  826.  
  827. chan2:
  828.         move.w #2,curr_chann
  829.           move.l #select_reg,a4
  830.         move.l #curr_mix,a5
  831.         tst.w sample_flag    
  832.         beq do2    
  833.         move.l #no_reg,a4
  834. do2          lea vars2,a0
  835.         btst.b #1,fx_flag+1
  836.         beq do2music
  837.         lea fxvars2,a0
  838.           moveq.l #2,d0
  839.           moveq.l #3,d1
  840.            moveq.l #9,d2
  841.            move.b #%11101101,d7
  842.         jsr check_count_1
  843.         move.l #no_reg,a4
  844.         move.l #no_reg,a5
  845.           lea vars2,a0
  846.             jsr check_count_1
  847.         bra chan3
  848. do2music:
  849.         tst.w music_disable
  850.         bne chan3
  851.            moveq.l #2,d0
  852.            moveq.l #3,d1
  853.            moveq.l #9,d2
  854.            move.b #%11101101,d7
  855.            jsr check_count_1
  856. chan3:
  857.         move.w #4,curr_chann
  858.         move.l #select_reg,a4
  859.         move.l #curr_mix,a5
  860.         tst.w sample_flag    
  861.         beq do3    
  862.         move.l #no_reg,a4
  863. do3           lea vars3,a0
  864.         btst.b #2,fx_flag+1
  865.         beq do3music
  866.         lea fxvars3,a0
  867.            moveq.l #4,d0
  868.            moveq.l #5,d1
  869.            moveq.l #10,d2
  870.            move.b #%11011011,d7
  871.         jsr check_count_1
  872.         move.l #no_reg,a4
  873.         move.l #no_reg,a5
  874.           lea vars3,a0
  875.         jsr check_count_1
  876.         rts
  877. do3music:
  878.         tst.w music_disable
  879.         beq dochan2
  880.         rts
  881. dochan2:
  882.            moveq.l #4,d0
  883.            moveq.l #5,d1
  884.            moveq.l #10,d2
  885.            move.b #%11011011,d7
  886.            jsr check_count_1
  887.            rts
  888. process_data:
  889. get_new_patt:      move.l 12(A0),a1 
  890.            CMPI.B #END_song,(A1) 
  891.            bne get_patt_a 
  892.            move.l 16(a0),12(a0) 
  893.            move.l 12(a0),a1 
  894. get_patt_a:
  895. song_cont_ret:
  896.            move.l (a1),4(a0) 
  897.            addq.l #4,a1
  898.            move.l a1,12(a0)
  899.            move.w #1,(a0)
  900.            bra get_new_note
  901. check_count_1:  tst.w 2(a0) 
  902.            BEQ gET_NEW_NOTE 
  903.            MOVE.W #0,ALTPf 
  904.            subq.w #1,2(a0) 
  905.            move.w 28(a0),d6 
  906.            tst.b 26(a0) 
  907.            beq octaves_on
  908.            tst.w 48(a0)
  909.            beq contbend
  910.            subq #1,48(a0)
  911.            bra octaves_on
  912. contbend:      addq #1,altpf  
  913.            clr.w d4
  914.            move.b 27(a0),d4 
  915.            move.w 42(a0),d5 
  916.            cmpi.b #2,26(a0) 
  917.            beq pbup
  918.          sub.w d4,d6
  919.            cmp.w d6,d5
  920.            bcs octaves_on
  921.            bra fbend
  922. pbup:          add.w d4,d6
  923.            cmp.w d6,d5
  924.            bcc octaves_on
  925. fbend:      move.w d5,d6
  926.            CLR.B 26(A0) 
  927. octaves_on:
  928.            cmpi.b #5,38(a0) 
  929.            bls ch_mod_on 
  930.            addq.b #1,altpf
  931.            cmpi.b #8,38(a0) 
  932.            bcc upoct
  933.            asl #1,d6  
  934.            addq.b #1,38(a0) 
  935.            bra send_altered_pitch
  936. upoct:      asr #1,d6
  937.            addq.b #1,38(a0)
  938.            cmpi.b #10,38(a0)
  939.            bne send_altered_pitch
  940.            move.b #6,38(a0) 
  941.            BRA SEND_ALTERED_PITCH
  942. ch_mod_on:
  943.            tst.b 38(a0) 
  944.            beq send_altered_pitch 
  945.            tst.w 44(a0) 
  946.            beq check_speed
  947.            subq #1,44(a0)
  948.            bra send_altered_pitch
  949. check_speed:      tst.b (a0)
  950.            beq contmod
  951.            subq.b #1,(a0)
  952.            bra send_altered_pitch
  953. contmod:
  954.            move.b 1(a0),(a0) 
  955.            addq.b #1,altpf 
  956.            cmpi.b #3,38(a0)
  957.            bcc addmod
  958.            move.w 34(a0),d4
  959.            sub.w d4,d6 
  960.            addq.b #1,38(a0) 
  961.            bra send_altered_pitch
  962. addmod:      move.w 36(a0),d4
  963.            add.w d4,d6
  964.            addq.b #1,38(a0)
  965.            cmpi.b #5,38(a0)
  966.            bne send_altered_pitch
  967.            move.b #1,38(a0) 
  968.         SEND_ALTERED_PITCH: tst.w (ALTPF)
  969.            beq send_env
  970.            move.w d6,28(a0)
  971.            move.b d1,(a4)
  972.            move.b 28(a0),2(a4)
  973.            move.b d0,(a4)
  974.            move.b 29(a0),2(a4)
  975. send_env:  
  976.            tst.w hold_val_p
  977.         beq no_hold
  978.         move.b hold_val_p,(a4)
  979.         move.b hold_val_p+1,2(a4)
  980. no_hold:
  981.            move.l 8(a0),a2
  982.            cmpi.b #255,(a2) 
  983.            bne more_env
  984.         sub.l #2,a2
  985. more_env:
  986.         move.w fx_flag,d4
  987.         and.w curr_chann,d4    
  988.         cmpi.w #0,d4
  989.         beq music_only
  990.            move.b d2,(a4)
  991.            move.b (a2)+,d5
  992.            move.b d5,2(a4) 
  993.            move.b #7,(a4) 
  994.            and.b d7,(a5)
  995.            move.b (a2)+,d2
  996.         cmpi.w #1,d4
  997.         beq cont_env
  998.         asl.b #1,d2
  999.         cmpi.w #2,d4
  1000.         beq cont_env 
  1001.         asl.b #1,d2
  1002. cont_env:
  1003.            or.b d2,(a5)
  1004.            move.b (a5),2(a4)
  1005.            move.l a2,8(a0)  
  1006. no_more_envelope: rts
  1007. music_only:
  1008.   CMP.B #$2f,$FFFC02    ; check `v` key for music volume change
  1009.         bne no_vol_change    
  1010.         subq.w #1,vol_count
  1011.         tst.w vol_count
  1012.         bne no_vol_change
  1013.         move.w #50,vol_count    
  1014.         subq.b #1,curr_comp
  1015.         bcc no_vol_change
  1016.         move.b #13,curr_comp
  1017. no_vol_change
  1018.            move.b d2,(a4)
  1019.            move.b (a2)+,d5
  1020.            sub.b curr_comp,d5 
  1021.            move.b d5,2(a4) 
  1022.            move.b #7,(a4) 
  1023.            and.b d7,(a5)
  1024.            move.b (a2)+,d2
  1025.            or.b d2,(a5)
  1026.            move.b (a5),2(a4)
  1027.            move.l a2,8(a0)  
  1028.          rts
  1029. get_new_note:     move.l 4(a0),a1
  1030.            move.w 46(a0),44(a0)
  1031. CONTROL_RET:
  1032.            clr.l d3
  1033.            move.b (a1)+,d3 
  1034.            cmpi.b #m,d3  
  1035.            beq control_char 
  1036.            cmpi.b #253,d3
  1037.            beq do_rest
  1038. legal_note:
  1039.             tst.b 78(a0)
  1040.              bne noretrigg
  1041.             move.l 20(a0),8(a0) 
  1042. noretrigg
  1043.            jsr send_env
  1044.            move.b d1,(a4) 
  1045.            move.b d3,2(a4) 
  1046.            move.b d3,28(a0) 
  1047.            move.b d0,(a4)
  1048.            move.b (a1),29(a0) 
  1049.            move.b (a1)+,2(a4)
  1050.            move.w (a1)+,2(a0) 
  1051.            subq #1,2(a0) 
  1052.            move.l a1,4(a0) 
  1053.            rts
  1054. do_rest:
  1055.          move.b d2,(a4)
  1056.           clr.b 2(a4) 
  1057.           move.l #restenv,8(a0)  
  1058.           addq #1,a1
  1059.            move.w (a1)+,2(a0)
  1060.            subq #1,2(a0)
  1061. in_line_ret
  1062.            move.l a1,4(a0)
  1063.            rts
  1064. drum_chan:
  1065.            move.l 20(a0),8(a0) 
  1066.            jsr send_env
  1067.            move.b #6,(a4)
  1068.            move.b (a1)+,2(a4) 
  1069.            move.w (a1)+,2(a0) 
  1070.            subq #1,2(a0) 
  1071.            move.l a1,4(a0) 
  1072.            rts
  1073. restenv:      dc.b 0,0,255
  1074.    even
  1075. control_char:
  1076.            move.b (a1),d3 
  1077.           move.l #jumptable,a2
  1078.           MOVE.L (A2,D3),A3
  1079.           jmp (a3)
  1080. jumptable:
  1081.            dc.l get_new_patt
  1082.            dc.l get_env
  1083.            dc.l do_sound
  1084.            dc.l check_pbend
  1085.            dc.l modulation
  1086.            dc.l set_octaves
  1087.            dc.l do_modoff
  1088.            dc.l do_bend_off
  1089.            dc.l do_inline
  1090.            dc.l do_end_fx
  1091.            dc.l hold_val
  1092.            dc.l do_hold_off
  1093.  
  1094.  
  1095. get_env:      addq #1,a1
  1096.         move.b (a1),78(a0)
  1097.         addq #2,a1
  1098.            move.l (a1),20(a0) 
  1099.            addq #4,a1  
  1100.            bra control_ret
  1101. do_sound:
  1102.            nop     
  1103.            nop 
  1104. check_pbend:
  1105.           addq #1,a1
  1106.           MOVE.W (A1)+,26(A0) 
  1107.           move.w (a1)+,42(a0) 
  1108.           move.w (a1)+,48(a0) 
  1109.           bra control_ret
  1110. modulation:
  1111.           addq #1,a1
  1112.           MOVE.W (A1)+,(A0)
  1113.           move.l (a1)+,34(a0) 
  1114.           MOVE.W (A1),44(A0) 
  1115.           move.w (a1)+,46(a0) 
  1116.           move.b #2,38(a0) 
  1117.           bra control_ret
  1118. set_octaves:
  1119.           addq #1,a1
  1120.           move.b #9,38(a0) 
  1121.           bra control_ret
  1122. do_modoff:      clr.b 38(a0)
  1123.           addq #1,a1
  1124.           bra control_ret
  1125. do_bend_off:     addq #1,a1
  1126.           clr.b 26(a0)
  1127.           bra control_ret
  1128. do_inline:
  1129.          addq.l  #1,a1
  1130.  
  1131. in_loop
  1132.          cmpi.b #255,(a1)
  1133.          beq fin_in
  1134.          cmpi.b #254,(a1)
  1135.          beq fin_in1
  1136.         move.b (a1)+,(a4)
  1137.         move.b (a1)+,2(a4)
  1138.         bra in_loop 
  1139. fin_in
  1140.         addq  #2,a1
  1141.         bra control_ret
  1142.     
  1143. fin_in1
  1144.         addq  #2,a1
  1145.         bra in_line_ret
  1146.  
  1147.  
  1148. hold_val:
  1149.         addq #1,a1
  1150.         move.w (a1)+,hold_val_p
  1151.         bra control_ret
  1152. do_hold_off:
  1153.         move.w #0,hold_val_p
  1154.         addq #1,a1
  1155.         bra control_ret
  1156. do_end_fx:
  1157.  
  1158.         move.b d2,(a4)
  1159.          move.b #0,2(a4) 
  1160.  
  1161.         cmpi.w #1,curr_chann    
  1162.         bne efx2
  1163.         bclr.b #0,fx_flag+1
  1164. clear_fx_1    move.l #20,d0
  1165. clear_loop1:    move.l #0,(a0)+    
  1166.         dbra d0,clear_loop1
  1167.         rts 
  1168. efx2:        cmpi.w #2,curr_chann    
  1169.         bne efx3
  1170.         bclr.b #1,fx_flag+1
  1171.         move.l #20,d0
  1172. clear_loop2:    move.l #0,(a0)+    
  1173.         dbra d0,clear_loop2
  1174.         rts
  1175. efx3:        bclr.b #2,fx_flag+1
  1176.         move.l #20,d0
  1177. clear_loop3:    move.l #0,(a0)+    
  1178.         dbra d0,clear_loop3
  1179.         rts
  1180.            even
  1181. vars1:
  1182.            dc.w 0  
  1183. intc1:      dc.w 0
  1184. pattr1:      dc.l 0
  1185.            dc.l 0
  1186. songr1:      dc.l 0
  1187. wsong1:      dc.l 0
  1188.            dc.l 0
  1189.            dc.b 0,0
  1190.            dc.b 0,0
  1191.            dc.w 0
  1192.            dc.l 0
  1193.            dc.l 0
  1194.            dc.b 0,0
  1195.            dc.w 0
  1196.            dc.w 0
  1197.            dc.w 0
  1198.            dc.w 0
  1199.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1200. vars2:
  1201.            dc.w 0
  1202. intc2:      dc.w 0
  1203. pattr2:      dc.l 0
  1204.            dc.l 0
  1205. songr2:      dc.l 0
  1206. wsong2:      dc.l 0
  1207.            dc.l 0
  1208.            dc.b 0,0
  1209.            dc.b 0,0
  1210.            dc.w 0
  1211.            dc.l 0
  1212.            dc.l 0
  1213.            dc.b 0,0
  1214.            dc.w 0
  1215.            dc.w 0
  1216.            dc.w 0
  1217.            dc.w 0
  1218.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1219. vars3:
  1220.            dc.w 0
  1221. intc3:       dc.w 0
  1222. pattr3:      dc.l 0
  1223.            dc.l 0
  1224. songr3:      dc.l 0
  1225. wsong3:      dc.l 0
  1226.            dc.l 0
  1227.            dc.b 0,0
  1228.            dc.b 0,0
  1229.            dc.w 0
  1230.            dc.l 0
  1231.            dc.l 0
  1232.            dc.b 0,0
  1233.            dc.w 0
  1234.            dc.w 0
  1235.            dc.w 0
  1236.            dc.w 0
  1237.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1238. fxvars1:
  1239.            dc.w 0  
  1240. fxintc1:      dc.w 0
  1241. fxpattr1:      dc.l 0
  1242.            dc.l 0
  1243. fxsongr1:      dc.l 0
  1244. fxwsong1:      dc.l 0
  1245.            dc.l 0
  1246.            dc.b 0,0
  1247.            dc.b 0,0
  1248.            dc.w 0
  1249.            dc.l 0
  1250.            dc.l 0
  1251.            dc.b 0,0
  1252.            dc.w 0
  1253.            dc.w 0
  1254.            dc.w 0
  1255.            dc.w 0
  1256.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1257. fxvars2:
  1258.            dc.w 0
  1259. fxintc2:      dc.w 0
  1260. fxpattr2:      dc.l 0
  1261.            dc.l 0
  1262. fxsongr2:      dc.l 0
  1263. fxwsong2:      dc.l 0
  1264.            dc.l 0
  1265.            dc.b 0,0
  1266.            dc.b 0,0
  1267.            dc.w 0
  1268.            dc.l 0
  1269.            dc.l 0
  1270.            dc.b 0,0
  1271.            dc.w 0
  1272.            dc.w 0
  1273.            dc.w 0
  1274.            dc.w 0
  1275.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1276. fxvars3:
  1277.            dc.w 0
  1278. fxintc3:       dc.w 0
  1279. fxpattr3:      dc.l 0
  1280.            dc.l 0
  1281. fxsongr3:      dc.l 0
  1282. fxwsong3:      dc.l 0
  1283.            dc.l 0
  1284.            dc.b 0,0
  1285.            dc.b 0,0
  1286.            dc.w 0
  1287.            dc.l 0
  1288.            dc.l 0
  1289.            dc.b 0,0
  1290.            dc.w 0
  1291.            dc.w 0
  1292.            dc.w 0
  1293.            dc.w 0
  1294.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1295.  
  1296. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1297.  
  1298.  
  1299. HERExx
  1300. song_table:
  1301.  
  1302. ;;;;;; DON'T FORGET ROTA TOM FILLS 
  1303.     dc.l song65,song66,song67    ;Main theme
  1304.  
  1305.     dc.l song1,song2,song3        ;restful loop
  1306.     dc.l song41,song42,song43    ;threatening
  1307.  
  1308.     dc.l song5,song6,song7        ;celebration scene
  1309.     dc.l song9,song10,song11    ;journey
  1310.     dc.l song13,song14,song15    ;anticipation
  1311.     dc.l song17,song18,song19    ;pastoral loop
  1312.     dc.l song21,song22,song23    ;fast + dangerous
  1313.     dc.l song25,song26,song27    ;dramatic loop
  1314.     dc.l song37,song38,song39    ;minor anticlimax
  1315.  
  1316.     dc.l song29,song30,song31    ;a few bars of danger music
  1317.     dc.l song33,song34,song35    ;minor triumph
  1318.     dc.l song45,song46,song47    ;high drama
  1319.     dc.l song49,song50,song51    ;nostalgia
  1320.     dc.l song53,song54,song55    ;Great triumph scene
  1321.     dc.l song57,song58,song59    ;secretive
  1322.     dc.l song61,song62,song63    ;Great disaster scene
  1323. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1324.  
  1325.  
  1326.  
  1327. dave
  1328.  
  1329.     EVEN
  1330. chfx_table:
  1331.  
  1332. curr_fx            equ 1
  1333. max_chfx        dc.l 19
  1334.  
  1335.  
  1336.     even
  1337. ;;;;;;;;;;;;;;;;;;;;;    MIDWINTER II  Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1338. ;restful loop
  1339. xxx
  1340. song1:
  1341.     dc.l    p20
  1342.       dc.l     end_song
  1343. song2:
  1344.     dc.l    p1,p2,p3,p4
  1345.         DC.L     end_song
  1346. song3:
  1347.     dc.l    p5
  1348.     dc.l     end_song
  1349. pcr:
  1350.       dc.w rest,cr
  1351.       dc.b m,end_patt
  1352. pr:
  1353.       dc.w rest,cr*4
  1354.       dc.b m,end_patt
  1355. prf:
  1356.       dc.w rest,cr*1000
  1357.       dc.b m,end_patt
  1358.  
  1359. pra:
  1360.     dc.w rest,q*7
  1361.     dc.b m,end_patt
  1362. pqr:
  1363.       dc.w rest,q
  1364.       dc.b m,end_patt
  1365. p1:
  1366.       dc.b m,new_env,trigg,0
  1367.       dc.l nbass_env
  1368.       dc.w f03,cr,a03,cr,c04,cr,a03,cr
  1369.       dc.w f04,cr,a03,cr
  1370.       dc.b m,end_patt
  1371. p2:
  1372.       dc.w d03,cr,f03,cr,a03,cr,f03,cr
  1373.       dc.w d04,cr,f03,cr
  1374.       dc.b m,end_patt
  1375. p4:
  1376.       dc.w c03,cr,e03,cr,g03,cr,e03,cr
  1377.       dc.w c04,cr,e03,cr
  1378.       dc.b m,end_patt
  1379. p3:
  1380.       dc.w Bb02,cr,d03,cr,f03,cr,d03,cr
  1381.       dc.w Bb03,cr,d03,cr
  1382.       dc.b m,end_patt
  1383. p5:
  1384.       dc.b m,new_env,trigg,0
  1385.       dc.l titty3
  1386.       dc.w F02,cr*6,D02,cr*6,Bb01,cr*6,C02,cr*6
  1387.       dc.b m,end_patt
  1388. p20:
  1389.       dc.b m,new_env,trigg,0
  1390.       dc.l titty1
  1391.       dc.b m,modon,1,1
  1392.       dc.w 3,3,8
  1393.       dc.w A04,cr*3,G04,cr,A04,cr,C05,cr 
  1394.       dc.w A04,cr*3,G04,cr,A04,cr,C05,cr 
  1395.       dc.w A04,cr*3,G04,cr,A04,cr,C05,cr 
  1396.       dc.w A04,cr*2,G04,cr*4
  1397.       dc.w A04,cr*3,G04,cr,A04,cr,C05,cr 
  1398.       dc.w D05,cr*3,A04,cr,G04,cr,A04,cr 
  1399.       dc.w C05,cr*3,Bb04,cr,A04,cr,Bb04,cr 
  1400.       dc.w A04,cr*2,G04,cr*4
  1401.     dc.b m,end_patt
  1402. ;****************************************************************
  1403. CR      set 20
  1404. tcr1     set 9
  1405. tcr2     set 8
  1406. Q       set cr/2
  1407. tq1      set 4
  1408. tq2      set 5
  1409. ;tsq     set 3
  1410. ;tsq2     set 2
  1411. SQ      set cr/4
  1412. ;m       set 254
  1413. ;rest     set $fd00
  1414. ;dcr      set cr+q
  1415. ;dq      set q+sq
  1416. ;dsq      set sq+(sq/2)
  1417. ;sb      set cr*4
  1418. ;min      set cr*2
  1419. ;dm      set min+cr
  1420. pcr16:
  1421.       dc.w rest,cr
  1422.       dc.b m,end_patt
  1423. pr16:
  1424.       dc.w rest,cr*4
  1425.       dc.b m,end_patt
  1426. pqr16:
  1427.       dc.w rest,q
  1428.       dc.b m,end_patt
  1429.  
  1430.     EVEN
  1431.  
  1432. ;celebration scene
  1433.  
  1434. song5:
  1435.     dc.l    p1a,p2a,p2a,p3a
  1436.       dc.l     end_song
  1437. song6:
  1438.     dc.l    p4a,p5a,p6a,p5a,p6a
  1439.     dc.l    p7a,p5a,p6a,p8a
  1440.         DC.L     end_song
  1441. song7:
  1442.     dc.l    p9a,p10a,p10a,p10a,p10a,p10a
  1443.     dc.l    p10a,p10a,p10a,p10a,p10a
  1444.     dc.l    p10a,p10a,p10a,p10a,p10a
  1445.     dc.l    p11a
  1446.     dc.l     end_song
  1447. p1a:
  1448.       dc.b m,new_env,trigg,0
  1449.       dc.l titty1
  1450.       dc.w c04,q,d04,q,e04,q
  1451.       dc.b m,end_patt
  1452. p2a:
  1453.       dc.b m,modon,1,1
  1454.       dc.w 100,100,8
  1455.       dc.w f05,q*3
  1456.     dc.b m,modoff
  1457.     dc.w c05,q
  1458.     dc.w f05,q,a05,q,g05,q,f05,q
  1459.       dc.b m,modon,1,1
  1460.       dc.w 100,100,8
  1461.     dc.w g05,q*2,e05,q*2,c05,q*4
  1462.       dc.b m,end_patt
  1463. p3a:
  1464.       dc.w Bb05,q*3
  1465.     dc.b m,modoff
  1466.     dc.w f05,q
  1467.       dc.w Bb05,q,d06,q,c06,q,Bb05,q
  1468.       dc.b m,modon,1,1
  1469.       dc.w 100,100,8
  1470.       dc.w a05,q*3
  1471.     dc.b m,modoff
  1472.     dc.w f05,q
  1473.       dc.w a05,q,c06,q,Bb05,q,a05,q
  1474.       dc.b m,modon,1,1
  1475.       dc.w 100,100,8
  1476.       dc.w g05,q*3
  1477.     dc.b m,modoff
  1478.     dc.w gb05,q
  1479.       dc.w g05,q,Bb05,q,a05,q,g05,q
  1480.       dc.w f05,q,a05,q,g05,q,a05,q
  1481.     dc.w f05,q
  1482.       dc.b m,end_patt
  1483. p4a:
  1484.       dc.b m,new_env,trigg,0
  1485.       dc.l bass_env
  1486.       dc.w c02,q,d02,q,e02,q
  1487.       dc.b m,end_patt
  1488. p5a:
  1489.       dc.w F02,q,c03,q,c02,q,C03,q
  1490.       dc.w F02,q,c03,q,c02,q,C03,q
  1491.       dc.b m,end_patt
  1492. p6a:
  1493.       dc.w g02,q,c03,q,c02,q,C03,q
  1494.       dc.w g02,q,c03,q,c02,q,C03,q
  1495.       dc.b m,end_patt
  1496. p7a:
  1497.       dc.w Bb02,q,d03,q,f02,q,d03,q
  1498.       dc.w Bb02,q,d03,q,f02,q,d03,q
  1499.       dc.b m,end_patt
  1500. p8a:
  1501.       dc.w F02,q,c03,q,c02,q,C03,q
  1502.       dc.w F02,q
  1503.       dc.b m,end_patt
  1504. p10a:     
  1505.       dc.b m,inline,6,200,255,0
  1506.       dc.b m,new_env,trigg,0
  1507.       dc.l bassde
  1508.       dc.b m,pbend,down,200
  1509.       dc.w c01,0
  1510.       dc.w e04,q
  1511.       dc.b m,new_env,trigg,0
  1512.       dc.l qCLAPE
  1513.       dc.b m,pbend,down,69
  1514.       dc.w c01,0
  1515.       dc.w c04,q
  1516.       dc.b m,new_env,trigg,0
  1517.       dc.l bassde
  1518.       dc.b m,pbend,down,200
  1519.       dc.w c01,0
  1520.       dc.w e04,q
  1521. p11a:      dc.b m,new_env,trigg,0
  1522.       dc.l QCLAPE
  1523.       dc.b m,pbend,down,69
  1524.       dc.w c01,0
  1525.       dc.w c05,q
  1526.       dc.b m,end_patt
  1527. p9a:
  1528.       dc.b m,new_env,trigg,0
  1529.       dc.l QCLAPE
  1530.       dc.b m,pbend,down,69
  1531.       dc.w c01,0
  1532.       dc.w c05,q,c05,q,c05,q
  1533.       dc.b m,end_patt
  1534. ;****************************************************************
  1535. CR      set 16
  1536. tcr1     set 9
  1537. tcr2     set 8
  1538. Q       set cr/2
  1539. tq1      set 4
  1540. tq2      set 5
  1541. ;tsq     set 3
  1542. ;tsq2     set 2
  1543. SQ      set cr/4
  1544. ;m       set 254
  1545. ;rest     set $fd00
  1546. ;dcr      set cr+q
  1547. ;dq      set q+sq
  1548. ;dsq      set sq+(sq/2)
  1549. ;sb      set cr*4
  1550. ;min      set cr*2
  1551. ;dm      set min+cr
  1552.  
  1553. ;journey
  1554.  
  1555.     EVEN
  1556. song9:
  1557.     dc.l    p1b,p1b,p1b,p1b,p2b,p2b,p2bb
  1558.     dc.l    exp2,prf,prf,prf,prf,prf,prf
  1559.       dc.l     end_song
  1560. song10:
  1561.     dc.l    p4b,p5b,p6b,p5b
  1562.     dc.l    p4b,p7b,p9b,p8b
  1563.     dc.l    p4b,p7b,p9b,p8b,p3b
  1564.     dc.l    pra,prf,prf,prf,prf,prf,prf,prf
  1565.         DC.L     end_song
  1566. song11:
  1567.     dc.l    p10b,p10b,p10b,p10b,p10b
  1568.     dc.l    p10b,p10b,p10b,p10b,p10b
  1569.     dc.l    p10b,p10b,p10b,p10b,p10b
  1570.     dc.l    p10b,p10b,p10b,p10b,p11b
  1571.     dc.l    pra,prf,prf,prf,prf,prf,prf,prf
  1572.     dc.l     end_song
  1573. p1b:
  1574.       dc.b m,new_env,trigg,0
  1575.       dc.l titty1
  1576.       dc.b m,modon,1,1
  1577.       dc.w 3,3,8
  1578.       dc.w c05,q*7,rest,q,c05,q,d05,q,e05,q
  1579.     dc.w f05,cr,e05,q,d05,q,e05,q
  1580.       dc.b m,end_patt
  1581. p2b:
  1582.     dc.w c05,q*13,d05,q,e05,q,f05,q
  1583.     dc.w g05,cr*4,f05,q,d05,q,Bb04,q
  1584.     dc.w f05,q,d05,q,Bb04,q,f05,q,d05,q
  1585.     dc.w f05,q,db05,q,ab04,q
  1586.     dc.w f05,q,db05,q,ab04,q,f05,q,db05,q
  1587.       dc.b m,end_patt
  1588. p2bb:
  1589.     dc.w c05,q*8
  1590.       dc.b m,end_patt
  1591. p4b:
  1592.       dc.b m,new_env,trigg,0
  1593.       dc.l abass_env
  1594.       dc.w c03,sq,e03,sq,g03,sq,c04,sq
  1595.       dc.w e04,sq,c04,sq,g03,sq,e03,sq
  1596.       dc.w c03,sq,e03,sq,g03,sq,c04,sq
  1597.       dc.w e04,sq,c04,sq,g03,sq,e03,sq
  1598.       dc.w c03,sq,e03,sq,g03,sq,c04,sq
  1599.       dc.w e04,sq,c04,sq,g03,sq,e03,sq
  1600.       dc.w c03,sq,e03,sq,g03,sq,c04,sq
  1601.       dc.w e04,sq,c04,sq,g03,sq,e03,sq
  1602.       dc.b m,end_patt
  1603. p3b:
  1604.       dc.w c03,sq,e03,sq,g03,sq,c04,sq
  1605.       dc.w e04,sq,c04,sq,g03,sq,e03,sq
  1606.       dc.w c03,sq,e03,sq,g03,sq,c04,sq
  1607.       dc.w e04,sq,c04,sq,g03,sq,e03,sq
  1608.     dc.w c03,q
  1609.       dc.b m,end_patt
  1610. p5b:
  1611.       dc.w Bb02,sq,D03,sq,F03,sq,Bb03,sq
  1612.       dc.w D03,sq,Bb03,sq,F03,sq,D03,sq
  1613.       dc.w Bb02,sq,D03,sq,F03,sq,Bb03,sq
  1614.       dc.w D03,sq,Bb03,sq,F03,sq,D03,sq
  1615. p9b:      dc.w Bb02,sq,D03,sq,F03,sq,Bb03,sq
  1616.       dc.w D03,sq,Bb03,sq,F03,sq,D03,sq
  1617.       dc.w Bb02,sq,D03,sq,F03,sq,Bb03,sq
  1618.       dc.w D03,sq,Bb03,sq,F03,sq,D03,sq
  1619.       dc.b m,end_patt
  1620. p6b:
  1621.       dc.w Ab02,sq,C03,sq,Eb03,sq,Ab03,sq
  1622.       dc.w C03,sq,Ab03,sq,Eb03,sq,C03,sq
  1623.       dc.w Ab02,sq,C03,sq,Eb03,sq,Ab03,sq
  1624.       dc.w C03,sq,Ab03,sq,Eb03,sq,C03,sq
  1625.       dc.w Ab02,sq,C03,sq,Eb03,sq,Ab03,sq
  1626.       dc.w C03,sq,Ab03,sq,Eb03,sq,C03,sq
  1627.       dc.w Ab02,sq,C03,sq,Eb03,sq,Ab03,sq
  1628.       dc.w C03,sq,Ab03,sq,Eb03,sq,C03,sq
  1629.       dc.b m,end_patt
  1630. p7b:
  1631.       dc.w G02,sq,B02,sq,D03,sq,G03,sq
  1632.       dc.w B03,sq,G03,sq,D03,sq,B02,sq
  1633.       dc.w G02,sq,B02,sq,D03,sq,G03,sq
  1634.       dc.w B03,sq,G03,sq,D03,sq,B02,sq
  1635.       dc.b m,end_patt
  1636. p8b:
  1637.       dc.w Db03,sq,F03,sq,Ab03,sq,Db04,sq
  1638.       dc.w F04,sq,Db04,sq,Ab03,sq,F03,sq
  1639.       dc.w Db03,sq,F03,sq,Ab03,sq,Db04,sq
  1640.       dc.w F04,sq,Db04,sq,Ab03,sq,F03,sq
  1641.       dc.b m,end_patt
  1642. p10b:     
  1643.       dc.b m,inline,6,200,255,0
  1644.       dc.b m,new_env,trigg,0
  1645.       dc.l bassde
  1646.       dc.b m,pbend,down,200
  1647.       dc.w c01,0
  1648.       dc.w e04,sQ
  1649.       dc.b m,new_env,trigg,0
  1650.       dc.l hate
  1651.       dc.w g06,sQ,g06,sQ,g06,sQ
  1652.       dc.b m,new_env,trigg,0
  1653.       dc.l qCLAPE
  1654.       dc.b m,pbend,down,69
  1655.       dc.w c01,0
  1656.       dc.w c04,sQ
  1657.       dc.b m,new_env,trigg,0
  1658.       dc.l hate
  1659.       dc.w g06,sQ,g06,sQ,g06,sQ
  1660.       dc.b m,new_env,trigg,0
  1661.       dc.l bassde
  1662.       dc.b m,pbend,down,200
  1663.       dc.w c01,0
  1664.       dc.w e04,sQ
  1665.       dc.b m,new_env,trigg,0
  1666.       dc.l hate
  1667.       dc.w g06,sQ,g06,sQ,g06,sQ
  1668.       dc.b m,new_env,trigg,0
  1669.       dc.l QCLAPE
  1670.       dc.b m,pbend,down,69
  1671.       dc.w c01,0
  1672.       dc.w c05,sQ
  1673.       dc.b m,new_env,trigg,0
  1674.       dc.l hate
  1675.       dc.w g06,sQ,g06,sQ,g06,sq
  1676.       dc.b m,end_patt
  1677. p11b:     
  1678.       dc.b m,inline,6,200,255,0
  1679.       dc.b m,new_env,trigg,0
  1680.       dc.l bassde
  1681.       dc.b m,pbend,down,200
  1682.       dc.w c01,0
  1683.       dc.w e04,q
  1684.       dc.b m,end_patt
  1685. exp2:
  1686.                            dc.b      m,new_env,trigg,0
  1687.                            dc.l      exp2_env
  1688.             dc.b    M,inline,6,31,255,0
  1689.             dc.w    0,1
  1690.             dc.b    m,inline,6,30,254,0
  1691.             DC.B    M,inline,6,30,254,0
  1692.             dc.b    m,inline,6,23,254,0
  1693.             dc.b    m,inline,6,22,254,0
  1694.             DC.w    0,2
  1695.               dc.b     m,modon,2,2
  1696.               dc.w     8,8,1
  1697.                            dc.b      m,new_env,trigg,0
  1698.                            dc.l      exp2_env
  1699.             DC.w    20,27
  1700.             dc.b    m,inline,6,200,254,0
  1701.             dc.b    m,end_patt
  1702.  
  1703. ;****************************************************************
  1704.  
  1705.  
  1706. CR      set 24
  1707. tcr1     set 9
  1708. tcr2     set 8
  1709. Q       set cr/2
  1710. tq1      set 4
  1711. tq2      set 5
  1712. ;tsq     set 3
  1713. ;tsq2     set 2
  1714. SQ      set cr/4
  1715. ;m       set 254
  1716. ;rest     set $fd00
  1717. ;dcr      set cr+q
  1718. ;dq      set q+sq
  1719. ;dsq      set sq+(sq/2)
  1720. ;sb      set cr*4
  1721. ;min      set cr*2
  1722. ;dm      set min+cr
  1723.  
  1724. ;anticipation
  1725.  
  1726. song13:
  1727.     dc.l    p2c,prf,prf,prf,prf,prf,prf,prf,prf
  1728.       dc.l     end_song
  1729.  
  1730. song14:
  1731.     dc.l    p1c,prf,prf,prf,prf,prf,prf,prf,prf
  1732.         DC.L     end_song
  1733.  
  1734. song15:
  1735.     dc.l    p3c,prf,prf,prf,prf,prf,prf,prf,prf
  1736.     dc.l     end_song
  1737.  
  1738. p1c:
  1739.       dc.b m,new_env,trigg,0
  1740.       dc.l titty2
  1741.       dc.b m,modon,1,1
  1742.       dc.w 3,3,8
  1743.       dc.w C04,cr*3
  1744.       dc.w A03,cr,C04,cr,Eb04,cr,Gb04,cr
  1745.     dc.w Eb04,cr,Gb04,cr,A04,cr,C05,cr
  1746.     dc.w A04,cr,C05,cr,Eb05,cr
  1747.       dc.b m,pbend,up,2
  1748.       dc.w c06,0
  1749.     dc.w Gb05,cr*5
  1750.       dc.b m,end_patt
  1751. p3c:
  1752.       dc.b m,new_env,trigg,0
  1753.       dc.l titty3
  1754.       dc.w c02,cr*19
  1755.       dc.b m,end_patt
  1756. p2c:
  1757.       dc.b m,new_env,trigg,0
  1758.       dc.l titty1
  1759.       dc.b m,modon,1,1
  1760.       dc.w 3,3,8
  1761.       dc.w A03,cr*3
  1762.       dc.w Gb03,cr,A03,cr,C04,cr,Eb04,cr
  1763.     dc.w C04,cr,Eb04,cr,Gb04,cr,A04,cr
  1764.     dc.w Gb04,cr,A04,cr,C05,cr,Eb05,cr*5
  1765.     dc.b m,end_patt
  1766.  
  1767. ;****************************************************************
  1768.  
  1769. CR      set 20
  1770. tcr1     set 9
  1771. tcr2     set 8
  1772. Q       set cr/2
  1773. tq1      set 4
  1774. tq2      set 5
  1775. ;tsq     set 3
  1776. ;tsq2     set 2
  1777. SQ      set cr/4
  1778. ;m       set 254
  1779. ;rest     set $fd00
  1780. ;dcr      set cr+q
  1781. ;dq      set q+sq
  1782. ;dsq      set sq+(sq/2)
  1783. ;sb      set cr*4
  1784. ;min      set cr*2
  1785. ;dm      set min+cr
  1786.  
  1787. ;pastoral loop
  1788.  
  1789. song17:
  1790.     dc.l    p2d
  1791.       dc.l     end_song
  1792.  
  1793. song18:
  1794.     dc.l    p1d
  1795.         DC.L     end_song
  1796.  
  1797. song19:
  1798.     dc.l    p3d
  1799.     dc.l     end_song
  1800.  
  1801. p1d:
  1802.       dc.b m,new_env,trigg,0
  1803.       dc.l titty2
  1804.       dc.b m,modon,1,1
  1805.       dc.w 3,3,8
  1806.       dc.w A04,cr*3
  1807.       dc.w D05,cr,A04,cr,D05,cr
  1808.     dc.w C05,cr*2,G04,q,rest,q,G04,cr,A04,cr,Bb04,cr
  1809.       dc.w A04,q*3,rest,q,A04,cr
  1810.       dc.w D05,cr,A04,cr,D05,cr,C05,cr*6
  1811.       dc.w A04,cr*3
  1812.       dc.w D05,cr,A04,cr,D05,cr
  1813.     dc.w C05,cr*2,G04,q,rest,q,G04,cr,f04,cr,e04,cr
  1814.     dc.w D04,cr,F04,cr,E04,cr
  1815.     dc.w Db04,cr,B03,cr,Db04,cr,D04,cr*3
  1816.     dc.w A03,cr,Db04,cr,E04,cr
  1817.       dc.b m,end_patt
  1818. p3d:
  1819.       dc.b m,new_env,trigg,0
  1820.       dc.l titty3
  1821.       dc.w D02,cr*5,F02,cr,C02,q*9,rest,q,c02,cr
  1822.       dc.w D02,cr*5,F02,cr,C02,cr*3,Bb01,cr*3
  1823.       dc.w D02,cr*5,F02,cr,C02,q*9,rest,q,c02,cr
  1824.       dc.w D02,cr*3,Db02,cr*3,D02,cr*3,A01,cr*3
  1825.       dc.b m,end_patt
  1826. p2d:
  1827.       dc.b m,new_env,trigg,0
  1828.       dc.l titty1
  1829.       dc.b m,modon,1,1
  1830.       dc.w 3,3,8
  1831.       dc.w F04,cr*3
  1832.       dc.w A04,cr,F04,cr,A04,cr
  1833.     dc.w G04,cr*2,E04,q,rest,q,E04,cr,F04,cr,G04,cr
  1834.       dc.w F04,q*3,rest,q,F04,cr
  1835.       dc.w A04,cr,F04,cr,A04,cr,G04,cr*3,E04,cr*3
  1836.       dc.w F04,cr*3
  1837.       dc.w A04,cr,E04,cr,F04,cr
  1838.     dc.w G04,cr*2,D04,cr,E04,cr,D04,cr,C04,cr
  1839.     dc.w A03,cr,D04,cr,C04,cr
  1840.     dc.w E03,cr,D03,cr,E03,cr,A03,cr*3
  1841.     dc.w rest,cr*3
  1842.     dc.b m,end_patt
  1843.  
  1844. ;****************************************************************
  1845.  
  1846. CR      set 16
  1847. tcr1     set 9
  1848. tcr2     set 8
  1849. Q       set cr/2
  1850. tq1      set 4
  1851. tq2      set 5
  1852. ;tsq     set 3
  1853. ;tsq2     set 2
  1854. SQ      set cr/4
  1855. ;m       set 254
  1856. ;rest     set $fd00
  1857. ;dcr      set cr+q
  1858. ;dq      set q+sq
  1859. ;dsq      set sq+(sq/2)
  1860. ;sb      set cr*4
  1861. ;min      set cr*2
  1862. ;dm      set min+cr
  1863.  
  1864. ;fast and dangerous
  1865.  
  1866. song21:
  1867.     dc.l    p1e,p1e,p2e,p1e,p3e,p4e,prf,prf,prf,prf
  1868.       dc.l     end_song
  1869.  
  1870. song22:
  1871.     dc.l    p5e,p5e,p6e,p5e,p7e,prf,prf,prf,prf
  1872.         DC.L     end_song
  1873.  
  1874. song23:
  1875.         
  1876.     dc.l    p10e,p10e,p10e,p10e
  1877.     dc.l    p10e,p10e,p10e,p10e
  1878.     dc.l    p10e,p10e,p10e,p10e,p11e,prf,prf,prf,prf
  1879.     dc.l     end_song
  1880.  
  1881. p1e:
  1882.       dc.b m,new_env,trigg,0
  1883.       dc.l blip_env
  1884.       dc.b m,modon,1,1
  1885.       dc.w 25,25,16
  1886.       dc.w G04,q,Eb05,q,D05,q,C05,q
  1887.       dc.w G04,q,Eb05,q,D05,q,C05,q
  1888.       dc.w G04,q,Eb05,q,D05,q,C05,q,rest,q,C05,q,Bb04,cr
  1889.       dc.b m,end_patt
  1890.  
  1891. p2e:
  1892.       dc.w C05,q,Ab05,q,G05,q,F05,q
  1893.       dc.w C05,q,Ab05,q,G05,q,F05,q
  1894.       dc.w C05,q,Ab05,q,G05,q,F05,q,rest,q,F05,q,Eb05,cr
  1895.       dc.b m,end_patt
  1896. p3e:
  1897.       dc.w D05,q,Bb05,q,A05,q,G05,q*5
  1898.       dc.w C05,q,Ab05,q,G05,q,F05,q*5
  1899.       dc.b m,end_patt
  1900. p4e:
  1901.       dc.w E02,sq,F02,sq,Gb02,sq,G02,sq
  1902.     dc.w Ab02,sq,A02,sq,Bb02,sq,B02,sq
  1903.     dc.w C03,sq,Db03,sq,D03,sq,Eb03,sq
  1904.     dc.w E03,sq,F03,sq,Gb03,sq,G03,sq
  1905.     dc.w Ab03,sq,A03,sq,Bb03,sq,B03,sq
  1906.     dc.w C04,sq,Db04,sq,D04,sq,Eb04,sq
  1907.     dc.w E04,sq,F04,sq,Gb04,sq,G04,sq
  1908.     dc.w Ab04,sq,A04,sq,Bb04,sq,B04,sq
  1909.     dc.w C05,sq,rest,sq*15
  1910.       dc.b m,end_patt
  1911. p5e:
  1912.       dc.b m,new_env,trigg,0
  1913.       dc.l bass_envi
  1914.       dc.w C02,q,C02,q,G01,q,Bb01,q
  1915.       dc.w C02,q,C02,q,G01,q,Bb01,q
  1916.       dc.w C02,q,C02,q,G01,q,Bb01,q,rest,q,C02,q
  1917.       dc.b m,new_env,trigg,0
  1918.       dc.l bass_env
  1919.     dc.w Bb01,cr
  1920.       dc.b m,end_patt
  1921. p6e:
  1922.      dc.b m,new_env,trigg,0
  1923.       dc.l bass_envi
  1924.       dc.w F02,q,F02,q,C02,q,Eb02,q
  1925.       dc.w F02,q,F02,q,C02,q,Eb02,q
  1926.       dc.w F02,q,F02,q,C02,q,Eb02,q,rest,q,F02,q
  1927.       dc.b m,new_env,trigg,0
  1928.       dc.l bass_env
  1929.     dc.w Eb02,cr
  1930.       dc.b m,end_patt
  1931. p7e:
  1932.      dc.b m,new_env,trigg,0
  1933.       dc.l bass_envi
  1934.       dc.w G02,q,G02,cr,G02,cr,G02,cr,Gb02,q
  1935.       dc.w F02,q,F02,cr,F02,cr,F02,cr,Eb02,q
  1936.       dc.w C02,q,C02,q,G01,q,Bb01,q
  1937.       dc.w C02,q,C02,q,G01,q,Bb01,q
  1938.       dc.w C02,q,C02,q,G01,q,Bb01,q
  1939.       dc.w C02,q,C02,q,G01,q,Bb01,q,C02,q,rest,q*7
  1940.       dc.b m,end_patt
  1941. p10e:     
  1942.       dc.b m,inline,6,200,255,0
  1943.       dc.b m,new_env,trigg,0
  1944.       dc.l bassde
  1945.       dc.b m,pbend,down,200
  1946.       dc.w c01,0
  1947.       dc.w e04,sQ
  1948.       dc.b m,new_env,trigg,0
  1949.       dc.l hate
  1950.       dc.w g06,sQ,g06,sQ,g06,sQ
  1951.       dc.b m,new_env,trigg,0
  1952.       dc.l qCLAPE
  1953.       dc.b m,pbend,down,69
  1954.       dc.w c01,0
  1955.       dc.w c04,sQ
  1956.       dc.b m,new_env,trigg,0
  1957.       dc.l hate
  1958.       dc.w g06,sQ,g06,sQ,g06,sQ
  1959.       dc.b m,new_env,trigg,0
  1960.       dc.l bassde
  1961.       dc.b m,pbend,down,200
  1962.       dc.w c01,0
  1963.       dc.w e04,sQ
  1964.       dc.b m,new_env,trigg,0
  1965.       dc.l hate
  1966.       dc.w g06,sQ,g06,sQ,g06,sQ
  1967.       dc.b m,new_env,trigg,0
  1968.       dc.l QCLAPE
  1969.       dc.b m,pbend,down,69
  1970.       dc.w c01,0
  1971.       dc.w c05,sQ
  1972.       dc.b m,new_env,trigg,0
  1973.       dc.l hate
  1974.       dc.w g06,sQ,g06,sQ,g06,sq
  1975.       dc.b m,end_patt
  1976. p11e:     
  1977.       dc.b m,inline,6,200,255,0
  1978.       dc.b m,new_env,trigg,0
  1979.       dc.l bassde
  1980.       dc.b m,pbend,down,200
  1981.       dc.w c01,0
  1982.       dc.w e04,q
  1983.       dc.b m,end_patt
  1984. ;****************************************************************
  1985.  
  1986.  
  1987. CR      set 16
  1988. tcr1     set 9
  1989. tcr2     set 8
  1990. Q       set cr/2
  1991. tq1      set 4
  1992. tq2      set 5
  1993. ;tsq     set 3
  1994. ;tsq2     set 2
  1995. SQ      set cr/4
  1996. ;m       set 254
  1997. ;rest     set $fd00
  1998. ;dcr      set cr+q
  1999. ;dq      set q+sq
  2000. ;dsq      set sq+(sq/2)
  2001. ;sb      set cr*4
  2002. ;min      set cr*2
  2003. ;dm      set min+cr
  2004.  
  2005. ;dramatic loop
  2006.  
  2007. song25:
  2008.     dc.l    p1f
  2009.       dc.l     end_song
  2010.  
  2011. song26:
  2012.     dc.l    p5f,p5f,p5f,p5f,p5f
  2013.     dc.l    p6f,p6f,p6f,p6f,p6f
  2014.     dc.l    p7f,p7f,p7f,p7f,p7f
  2015.     dc.l    p8f,p8f,p8f,p8f,p8f
  2016.         DC.L     end_song
  2017.  
  2018. song27:
  2019.     dc.l    p10e,p10e,p10e,p10e,p10e
  2020.     dc.l    p10f,p10f
  2021.     dc.l     end_song
  2022.  
  2023. p1f:
  2024.       dc.b m,new_env,trigg,0
  2025.       dc.l fade
  2026.       dc.b m,modon,1,1
  2027.       dc.w 5,5,8
  2028.       dc.w F03,cr,G03,cr,Ab03,cr,F03,cr
  2029.     dc.w G03,cr,Ab03,cr,bb03,cr,G03,cr
  2030.     dc.w Ab03,cr,Bb03,cr,C04,cr,Ab03,cr
  2031.     dc.w Bb03,cr,G03,cr,Ab03,cr,F03,cr
  2032.     dc.w G03,cr,Eb03,cr,F03,cr,Db03,cr
  2033.       dc.b m,new_env,trigg,0
  2034.       dc.l blip_env
  2035.       dc.w C06,q,D06,q,Eb06,q,C06,q
  2036.     dc.w D06,q,Eb06,q,F06,q,D06,q
  2037.     dc.w Eb06,q,F06,q,G06,q,Eb06,q
  2038.     dc.w F06,q,D06,q,Eb06,q,C06,q
  2039.     dc.w D06,q,Bb05,q,C06,q,Ab05,q
  2040.       dc.b m,new_env,trigg,0
  2041.       dc.l fade
  2042.       dc.w G03,cr,A03,cr,Bb03,cr,G03,cr
  2043.     dc.w A03,cr,Bb03,cr,C04,cr,A03,cr
  2044.     dc.w Bb03,cr,C04,cr,D04,cr,Bb03,cr
  2045.     dc.w C04,cr,A03,cr,Bb03,cr,G03,cr
  2046.     dc.w A03,cr,F03,cr,G03,cr,Eb03,cr
  2047.       dc.b m,new_env,trigg,0
  2048.       dc.l blip_env
  2049.       dc.w D06,q,E06,q,F06,q,D06,q
  2050.     dc.w E06,q,F06,q,G06,q,E06,q
  2051.     dc.w F06,q,G06,q,A06,q,F06,q
  2052.     dc.w G06,q,E06,q,F06,q,D06,q
  2053.     dc.w E06,q,C06,q,D06,q,Bb05,q
  2054.       dc.b m,end_patt
  2055. p5f:
  2056.       dc.b m,new_env,trigg,0
  2057.       dc.l bass_envi
  2058.       dc.w F01,q,F02,q,F01,q,F02,q
  2059.       dc.w F01,q,F02,q,F01,q,F02,q
  2060.       dc.b m,end_patt
  2061. p6f:
  2062.       dc.w C02,q,Db02,q,C02,q,Db02,q      
  2063.       dc.b m,end_patt
  2064. p7f:
  2065.       dc.w G01,q,G02,q,G01,q,G02,q
  2066.       dc.w G01,q,G02,q,G01,q,G02,q
  2067.       dc.b m,end_patt
  2068. p8f:
  2069.       dc.w D02,q,Eb02,q,D02,q,Eb02,q      
  2070.       dc.b m,end_patt
  2071. p10f:     
  2072.       dc.b m,inline,6,200,255,0
  2073.       dc.b m,new_env,trigg,0
  2074.       dc.l bassde
  2075.       dc.b m,pbend,down,200
  2076.       dc.w c01,0
  2077.       dc.w e04,cr
  2078.       dc.b m,pbend,down,200
  2079.       dc.w c01,0
  2080.       dc.w e04,cr
  2081.       dc.b m,pbend,down,200
  2082.       dc.w c01,0
  2083.       dc.w e04,cr
  2084.       dc.b m,pbend,down,200
  2085.       dc.w c01,0
  2086.       dc.w e04,cr
  2087.       dc.b m,new_env,trigg,0
  2088.       dc.l snaree
  2089.       dc.b m,pbend,down,69
  2090.       dc.w c01,0
  2091.       dc.w c05,Q,c05,q
  2092.       dc.b m,end_patt
  2093.  
  2094. CR      set 16
  2095. tcr1     set 9
  2096. tcr2     set 8
  2097. Q       set cr/2
  2098. tq1      set 4
  2099. tq2      set 5
  2100. ;tsq     set 3
  2101. ;tsq2     set 2
  2102. SQ      set cr/4
  2103. ;m       set 254
  2104. ;rest     set $fd00
  2105. ;dcr      set cr+q
  2106. ;dq      set q+sq
  2107. ;dsq      set sq+(sq/2)
  2108. ;sb      set cr*4
  2109. ;min      set cr*2
  2110. ;dm      set min+cr
  2111.  
  2112.  
  2113.  
  2114. ; a few bars of danger music
  2115.  
  2116. song29:
  2117.     dc.l    p1g,pra,prf,prf,prf
  2118.       dc.l     end_song
  2119.  
  2120. song30:
  2121.     dc.l    p5g,pra,prf,prf,prf
  2122.         DC.L     end_song
  2123.  
  2124. song31:
  2125.         
  2126.     dc.l    p10e,p10e,p10e,p10e
  2127.     dc.l    p10g,p10g,p11e,pra,prf,prf,prf
  2128.     dc.l     end_song
  2129.  
  2130. p1g:
  2131.       dc.b m,new_env,trigg,0
  2132.       dc.l mono_envt1
  2133.     dc.w Eb04,q,D04,q,C04,q,F04,cr
  2134.     dc.w Eb04,q,D04,q,G04,cr,F04,q,Eb04,q
  2135.     dc.w F04,cr,Eb04,q,D04,q,Eb04,sq,rest,sq
  2136.     dc.w Eb04,q,D04,q,C04,q,F04,cr
  2137.     dc.w Eb04,q,D04,q,G04,cr,F04,q,Eb04,q
  2138.     dc.w F04,cr,Eb04,q,D04,q,Eb04,q
  2139.     dc.w G04,q*13,F04,q,Eb04,q,D04,q,C04,q
  2140.       dc.b m,end_patt
  2141. p5g:
  2142.       dc.b m,new_env,trigg,0
  2143.       dc.l bass_env
  2144.       dc.w C02,q*3,D02,cr*2,Eb02,cr*2,D02,q*5
  2145.       dc.w C02,q*3,D02,cr*2,Eb02,cr*2,F02,q*5
  2146.       dc.b m,new_env,trigg,0
  2147.       dc.l bass_envi
  2148.     dc.w G02,q,G02,q,G02,q,G02,q
  2149.     dc.w G02,q,G02,q,G02,q,G02,q
  2150.     dc.w G02,q,G02,q,G02,q,G02,q
  2151.     dc.w G02,q,F02,q,Eb02,q,D02,q,C02,q
  2152.       dc.b m,end_patt
  2153. p10G:     
  2154.       dc.b m,inline,6,200,255,0
  2155.       dc.b m,new_env,trigg,0
  2156.       dc.l bassde
  2157.       dc.b m,pbend,down,200
  2158.       dc.w c01,0
  2159.       dc.w e04,cr
  2160.       dc.b m,pbend,down,200
  2161.       dc.w c01,0
  2162.       dc.w e04,cr
  2163.       dc.b m,pbend,down,200
  2164.       dc.w c01,0
  2165.       dc.w e04,cr
  2166.       dc.b m,pbend,down,200
  2167.       dc.w c01,0
  2168.       dc.w e04,cr
  2169.       dc.b m,end_patt
  2170.  
  2171. CR      set 16
  2172. tcr1     set 9
  2173. tcr2     set 8
  2174. Q       set cr/2
  2175. tq1      set 4
  2176. tq2      set 5
  2177. ;tsq     set 3
  2178. ;tsq2     set 2
  2179. SQ      set cr/4
  2180. ;m       set 254
  2181. ;rest     set $fd00
  2182. ;dcr      set cr+q
  2183. ;dq      set q+sq
  2184. ;dsq      set sq+(sq/2)
  2185. ;sb      set cr*4
  2186. ;min      set cr*2
  2187. ;dm      set min+cr
  2188.  
  2189.  
  2190. ;minor triumph
  2191.  
  2192. song33:
  2193.     dc.l    p1h,prf,prf,prf,prf
  2194.       dc.l     end_song
  2195.  
  2196. song34:
  2197.     dc.l    p2h,prf,prf,prf,prf
  2198.         DC.L     end_song
  2199.  
  2200. song35:
  2201.         
  2202.     dc.l    p3h,prf,prf,prf,prf
  2203.     dc.l     end_song
  2204.  
  2205. p1h:
  2206.       dc.b m,new_env,trigg,0
  2207.       dc.l mono_envt1
  2208.       dc.b m,modon,1,1
  2209.       dc.w 4,4,4
  2210.     dc.w F04,q*5,C04,q,F04,q,A04,q
  2211.     dc.w C05,q*5,A04,q,C05,q,F05,q
  2212.     dc.w A05,q*5,F05,q,A05,q,C06,q
  2213.     dc.w F05,cr,C05,cr,A04,cr,C05,cr
  2214.     dc.w F04,cr*4
  2215.       dc.b m,end_patt
  2216. p2h:
  2217.       dc.b m,new_env,trigg,0
  2218.       dc.l titty2
  2219.       dc.b m,modon,1,1
  2220.       dc.w 4,4,4
  2221.     dc.w C04,q*5,A03,q,C04,q,F04,q
  2222.     dc.w A04,q*5,F04,q,A04,q,C05,q
  2223.     dc.w F05,q*5,C05,q,F05,q,A05,q
  2224.     dc.w C05,cr,A04,cr,F04,cr,A04,cr
  2225.     dc.w C04,cr*4
  2226.       dc.b m,end_patt
  2227. p3h:
  2228.       dc.b m,new_env,trigg,0
  2229.       dc.l titty3
  2230.       dc.b m,modon,1,1
  2231.       dc.w 4,4,4
  2232.     dc.w A03,q*5,F03,q,A03,q,C04,q
  2233.     dc.w F04,q*5,C04,q,F04,q,A04,q
  2234.     dc.w C05,q*5,A04,q,C05,q,F05,q
  2235.     dc.w A04,cr,F04,cr,C04,cr,F04,cr
  2236.     dc.w A03,cr*4
  2237.       dc.b m,end_patt
  2238.  
  2239. CR      set 20
  2240. tcr1     set 9
  2241. tcr2     set 8
  2242. Q       set cr/2
  2243. tq1      set 4
  2244. tq2      set 5
  2245. ;tsq     set 3
  2246. ;tsq2     set 2
  2247. SQ      set cr/4
  2248. ;m       set 254
  2249. ;rest     set $fd00
  2250. ;dcr      set cr+q
  2251. ;dq      set q+sq
  2252. ;dsq      set sq+(sq/2)
  2253. ;sb      set cr*4
  2254. ;min      set cr*2
  2255. ;dm      set min+cr
  2256.  
  2257.  
  2258. ;minor anticlimax
  2259.  
  2260. song37:
  2261.     dc.l    p1i,prf,prf,prf,prf
  2262.       dc.l     end_song
  2263.  
  2264. song38:
  2265.     dc.l    p2i,prf,prf,prf,prf
  2266.         DC.L     end_song
  2267.  
  2268. song39:
  2269.         
  2270.     dc.l    prf,prf,prf,prf
  2271.     dc.l     end_song
  2272.  
  2273. p1i:
  2274.       dc.b m,new_env,trigg,0
  2275.       dc.l mono_envt1
  2276.       dc.b m,pbend,down,1
  2277.       dc.w c01,0
  2278.     dc.w C05,cr,G04,cr+2,Bb04,cr+3,F04,cr+5
  2279.     dc.w Ab04,cr+6,Eb04,cr+10,G04,cr+14,F04,q+8,Eb04,q+10
  2280.       dc.b m,pbend,down,2
  2281.       dc.w c01,0
  2282.     dc.w C04,cr*4
  2283.       dc.b m,end_patt
  2284. p2i:
  2285.       dc.b m,new_env,trigg,0
  2286.       dc.l titty2
  2287.       dc.b m,pbend,down,1
  2288.       dc.w c01,0
  2289.     dc.w G03,cr,C04,cr+2,F03,cr+3,Bb03,cr+4
  2290.     dc.w Eb03,cr+6,Ab03,cr+10,D03,cr+14,Eb03,q+8,F03,q+10
  2291.       dc.b m,pbend,down,2
  2292.       dc.w c01,0
  2293.     dc.w G03,cr*4
  2294.       dc.b m,end_patt
  2295.  
  2296. ;threatening
  2297.  
  2298. song41:
  2299.     dc.l    p1j,p1j,p2j,prf,prf
  2300.       dc.l     end_song
  2301.  
  2302. song42:
  2303.     dc.l    p3j,p3j,p3j,p3j,p4j,prf,prf
  2304.         DC.L     end_song
  2305.  
  2306. song43:
  2307.         
  2308.     dc.l    p10j,p10j,p10j,p10j,p5j,prf,prf
  2309.     dc.l     end_song
  2310.  
  2311. p1j:
  2312.       dc.b m,new_env,trigg,0
  2313.       dc.l mono_envt1
  2314.     dc.w C03,cr,Bb03,q,Db03,cr,Gb03,q,B03,q
  2315.     dc.w D03,cr,G03,q,C04,q,Eb03,cr,Ab03,q,Db04,q,Eb04,q
  2316.       dc.b m,end_patt
  2317. p2j:
  2318.       dc.b m,modon,1,1
  2319.       dc.w 130,130,8
  2320.     dc.w E03,cr*4
  2321.       dc.b m,end_patt
  2322. p3j:
  2323.       dc.b m,new_env,trigg,0
  2324.       dc.l bass_envz
  2325.     dc.w C01,q,Db01,q,B01*2,q,C01,q
  2326.     dc.w C01,q,Db01,q,B01*2,q,C01,q
  2327.       dc.b m,end_patt
  2328. p4j:
  2329.       dc.b m,new_env,trigg,0
  2330.       dc.l titty2
  2331.       dc.b m,modon,1,1
  2332.       dc.w 125,125,8
  2333.     dc.w Eb03,cr*4
  2334.       dc.b m,end_patt
  2335. p5j:
  2336.       dc.b m,new_env,trigg,0
  2337.       dc.l titty3
  2338.       dc.b m,modon,1,1
  2339.       dc.w 135,135,8
  2340.     dc.w F03,cr*4
  2341.       dc.b m,end_patt
  2342.  
  2343. p10j:     
  2344.       dc.b m,inline,6,200,255,0
  2345.       dc.b m,new_env,trigg,0
  2346.       dc.l bassde
  2347.       dc.b m,pbend,down,200
  2348.       dc.w c01,0
  2349.       dc.w e04,cr
  2350.       dc.b m,pbend,down,200
  2351.       dc.w c01,0
  2352.       dc.w e04,cr
  2353.       dc.b m,new_env,trigg,0
  2354.       dc.l snaree
  2355.       dc.b m,pbend,down,69
  2356.       dc.w c01,0
  2357.       dc.w c05,Q,c05,q,c05,q
  2358.       dc.b m,new_env,trigg,0
  2359.       dc.l bassde
  2360.       dc.b m,pbend,down,200
  2361.       dc.w c01,0
  2362.       dc.w e04,q
  2363.     dc.b m,pboff
  2364.       dc.b m,end_patt
  2365.  
  2366. ;high drama
  2367.  
  2368. song45:
  2369.     dc.l    p1k,p1k,p2k,p2k,p2ak,prf,prf,prf,prf
  2370.       dc.l     end_song
  2371.  
  2372. song46:
  2373.     dc.l    p3k,p3k,p3k,p3k,p3k,p3ak,prf,prf,prf,prf
  2374.         DC.L     end_song
  2375.  
  2376. song47:
  2377.         
  2378.     dc.l    p10k,p10k,p10k,p10k,p10k,p11e,pra,prf,prf,prf,prf
  2379.     dc.l     end_song
  2380.  
  2381. p1k:
  2382.       dc.b m,new_env,trigg,0
  2383.       dc.l sq_env1
  2384.     dc.w C05,sq,C05,sq,C05,q,c05,q,c05,sq,c05,sq
  2385.     dc.w C05,q,c05,q,c05,sq,c05,sq,C05,sq,C05,sq
  2386.     dc.w c05,q,c05,sq,c05,sq,C05,sq,C05,q,C05,sq
  2387.     dc.w C05,q,c05,q,c05,sq,c05,sq,C05,sq,C05,sq
  2388.       dc.b m,end_patt
  2389. p2k:
  2390.     dc.w E05,sq,F05,sq,Gb05,sq,G05,sq
  2391.     dc.w Ab05,sq,A05,sq,Bb05,sq,B05,sq
  2392.       dc.b m,end_patt
  2393. p2ak:
  2394.     dc.w C05,q,rest,q*7
  2395.       dc.b m,end_patt
  2396. p3k:
  2397.       dc.b m,new_env,trigg,0
  2398.       dc.l bass_envz
  2399.     dc.w C02,q,C02,q,C03,q,Eb02,sq,Bb02,q
  2400.     dc.w F02,sq,C03,q,G02,q,Gb02,q
  2401.       dc.b m,end_patt
  2402. p3ak:
  2403.     dc.w C02,q,rest,q*7
  2404.       dc.b m,end_patt
  2405. p10k:     
  2406.       dc.b m,inline,6,200,255,0
  2407.       dc.b m,new_env,trigg,0
  2408.       dc.l bassde
  2409.       dc.b m,pbend,down,200
  2410.       dc.w c01,0
  2411.       dc.w e04,sq
  2412.       dc.b m,new_env,trigg,0
  2413.       dc.l hate
  2414.       dc.w g06,sQ,g06,sQ,g06,sQ
  2415.       dc.b m,new_env,trigg,0
  2416.       dc.l qCLAPE
  2417.       dc.b m,pbend,down,69
  2418.       dc.w c01,0
  2419.       dc.w c04,Q
  2420.       dc.b m,new_env,trigg,0
  2421.       dc.l bassde
  2422.       dc.b m,pbend,down,200
  2423.       dc.w c01,0
  2424.       dc.w e04,sQ
  2425.       dc.b m,new_env,trigg,0
  2426.       dc.l QCLAPE
  2427.       dc.b m,pbend,down,69
  2428.       dc.w c01,0
  2429.       dc.w c05,Q
  2430.       dc.b m,new_env,trigg,0
  2431.       dc.l bassde
  2432.       dc.b m,pbend,down,200
  2433.       dc.w c01,0
  2434.       dc.w e04,sQ
  2435.       dc.b m,new_env,trigg,0
  2436.       dc.l QCLAPE
  2437.       dc.b m,pbend,down,69
  2438.       dc.w c01,0
  2439.       dc.w c05,Q,c05,q,c05,q
  2440.       dc.b m,end_patt
  2441.  
  2442. CR      set 24
  2443. tcr1     set 9
  2444. tcr2     set 8
  2445. Q       set cr/2
  2446. tq1      set 4
  2447. tq2      set 5
  2448. ;tsq     set 3
  2449. ;tsq2     set 2
  2450. SQ      set cr/4
  2451. ;m       set 254
  2452. ;rest     set $fd00
  2453. ;dcr      set cr+q
  2454. ;dq      set q+sq
  2455. ;dsq      set sq+(sq/2)
  2456. ;sb      set cr*4
  2457. ;min      set cr*2
  2458. ;dm      set min+cr
  2459.  
  2460. ;nostalgic
  2461.  
  2462. song49:
  2463.     dc.l    p1l
  2464.       dc.l     end_song
  2465.  
  2466. song50:
  2467.     dc.l    p4l
  2468.         DC.L     end_song
  2469.  
  2470. song51:
  2471.         
  2472.     dc.l    p2l,p2l,p3l
  2473.     dc.l     end_song
  2474.  
  2475. p1l:
  2476.       dc.b m,new_env,trigg,0
  2477.       dc.l mono_envt1
  2478.     dc.w C05,cr*3,B04,cr*2,C05,q,D05,q,A04,cr*6
  2479.     dc.w C05,cr*3,B04,cr*2,C05,q,D05,q,A04,cr*6
  2480.     dc.w E05,cr*3,D05,q*5,E05,q,C05,q*11,rest,q
  2481.     dc.w C05,cr*3,B04,cr*2,C05,q,D05,q,C05,cr*3,E04,cr,D04,cr,C04,cr
  2482.       dc.b m,end_patt
  2483. p2l:
  2484.       dc.b m,new_env,trigg,0
  2485.       dc.l apaiano_env
  2486.     dc.w rest,q,G02,q,C03,q,G02,q,E03,q,G02,q
  2487.     dc.w rest,q,G02,q,C03,q,G02,q,E03,q,G02,q
  2488.     dc.w rest,q,C03,q,F03,q,C03,q,A03,q,C03,q
  2489.     dc.w rest,q,C03,q,F03,q,C03,q,A03,q,C03,q
  2490.       dc.b m,end_patt
  2491. p3l:
  2492.     dc.w rest,q,B02,q,E03,q,B02,q,Ab03,q,B02,q
  2493.     dc.w rest,q,B02,q,E03,q,B02,q,Ab03,q,B02,q
  2494.     dc.w rest,q,E03,q,A03,q,E03,q,C04,q,E03,q
  2495.     dc.w rest,q,E03,q,A03,q,E03,q,C04,q,E03,q
  2496.     dc.w rest,q,C03,q,F03,q,C03,q,A03,q,C03,q
  2497.     dc.w rest,q,D03,q,G03,q,D03,q,B03,q,D03,q
  2498.     dc.w rest,q,G02,q,C03,q,G02,q,E03,q,G02,q
  2499.     dc.w rest,q,G02,q,C03,q,G02,q,E03,q,G02,q
  2500.       dc.b m,end_patt
  2501. p4l:
  2502.       dc.b m,new_env,trigg,0
  2503.       dc.l bass_nos
  2504.     dc.w C02,cr*3,C02,cr,D02,cr,E02,cr
  2505.     dc.w F02,cr*3,F02,cr,E02,cr,D02,cr
  2506.     dc.w C02,cr*3,C02,cr,D02,cr,E02,cr
  2507.     dc.w F02,cr*3,F01,cr,E02,cr,D02,cr
  2508.     dc.w E02,cr*3,E02,cr*3,A02,cr*3,A02,cr*3
  2509.     dc.w F02,cr*3,G02,cr*3,C02,cr*3,C02,cr*3
  2510.       dc.b m,end_patt
  2511.  
  2512.  
  2513. CR      set 20
  2514. tcr1     set 9
  2515. tcr2     set 8
  2516. Q       set cr/2
  2517. tq1      set 4
  2518. tq2      set 5
  2519. ;tsq     set 3
  2520. ;tsq2     set 2
  2521. SQ      set cr/4
  2522. ;m       set 254
  2523. ;rest     set $fd00
  2524. ;dcr      set cr+q
  2525. ;dq      set q+sq
  2526. ;dsq      set sq+(sq/2)
  2527. ;sb      set cr*4
  2528. ;min      set cr*2
  2529. ;dm      set min+cr
  2530.  
  2531.  
  2532. ;Great triumph scene
  2533.  
  2534. song53:
  2535.     dc.l    p1m,prf,prf
  2536.       dc.l     end_song
  2537.  
  2538. song54:
  2539.     dc.l    p2m,p2m,p2m,p2m,p3m,p4m,p2m,p5m,prf,prf
  2540.         DC.L     end_song
  2541.  
  2542. song55:
  2543.     dc.l    p2am,p2am,p2am,p2am,p3am,p4am,p2am,p5am,prf,prf
  2544.     dc.l     end_song
  2545.  
  2546. p1m:
  2547.       dc.b m,new_env,trigg,0
  2548.       dc.l mono_envt1
  2549.     dc.w F04,q*5,C04,q,F04,q,A04,q
  2550.     dc.w C05,q*5,A04,q,C05,q,F05,q
  2551.     dc.w A05,q*5,F05,q,A05,q,C06,q
  2552.     dc.w F05,cr,C05,cr,A04,cr,C05,cr
  2553.     dc.w D05,q,Bb04,q,F04,q,D05,q,Bb04,q,F04,q
  2554.     dc.w D05,q,Bb04,q
  2555.     dc.w E05,q,C05,q,G04,q,E05,q,C05,q,G04,q
  2556.     dc.w E05,q,C05,q
  2557.     dc.w F05,cr,C05,cr,A04,cr,C05,cr
  2558.     dc.w F04,cr*4
  2559.       dc.b m,end_patt
  2560. p2m:
  2561.       dc.b m,new_env,trigg,0
  2562.     dc.l titty2
  2563.     dc.w F02,q,A02,q,C03,q,F03,q*5 
  2564.      dc.b m,end_patt
  2565. p3m:
  2566.     dc.w Bb01,q,D02,q,F02,q,Bb02,q*5
  2567.       dc.b m,end_patt
  2568. p4m:
  2569.     dc.w C02,q,E02,q,G02,q,C03,q*5
  2570.       dc.b m,end_patt
  2571. p5m:
  2572.       dc.b m,new_env,trigg,0
  2573.       dc.l titty2
  2574.     dc.w F02,cr*4
  2575.       dc.b m,end_patt
  2576. p2am:
  2577.       dc.b m,new_env,trigg,0
  2578.     dc.l titty3
  2579.     dc.w F01,q,A01,q,C02,q,F02,q*5 
  2580.      dc.b m,end_patt
  2581. p3am:
  2582.     dc.w Bb01,q,D01,q,F01,q,Bb01,q*5
  2583.       dc.b m,end_patt
  2584. p4am:
  2585.     dc.w C01,q,E01,q,G01,q,C02,q*5
  2586.       dc.b m,end_patt
  2587. p5am:
  2588.       dc.b m,new_env,trigg,0
  2589.       dc.l titty3
  2590.     dc.w F01,cr*4
  2591.       dc.b m,end_patt
  2592. p6m:
  2593.       dc.b m,new_env,trigg,0
  2594.       dc.l titty3
  2595.     dc.w C04,cr*4
  2596.       dc.b m,end_patt
  2597. ;p10m:     
  2598.       dc.b m,inline,6,200,255,0
  2599.       dc.b m,new_env,trigg,0
  2600.       dc.l bassde
  2601.       dc.b m,pbend,down,200
  2602.       dc.w c01,0
  2603.       dc.w e04,sQ
  2604.       dc.b m,new_env,trigg,0
  2605.       dc.l hate
  2606.       dc.w g06,sQ,g06,sQ,g06,sQ
  2607.       dc.b m,new_env,trigg,0
  2608.       dc.l qCLAPE
  2609.       dc.b m,pbend,down,69
  2610.       dc.w c01,0
  2611.       dc.w c04,sQ
  2612.       dc.b m,new_env,trigg,0
  2613.       dc.l hate
  2614.       dc.w g06,sQ,g06,sQ,g06,sQ
  2615.       dc.b m,new_env,trigg,0
  2616.       dc.l bassde
  2617.       dc.b m,pbend,down,200
  2618.       dc.w c01,0
  2619.       dc.w e04,sQ
  2620.       dc.b m,new_env,trigg,0
  2621.       dc.l hate
  2622.       dc.w g06,sQ,g06,sQ,g06,sQ
  2623.       dc.b m,new_env,trigg,0
  2624.       dc.l QCLAPE
  2625.       dc.b m,pbend,down,69
  2626.       dc.w f01,0
  2627.       dc.w c05,sQ
  2628.       dc.b m,new_env,trigg,0
  2629.       dc.l hate
  2630.       dc.w g06,sQ,g06,sQ,g06,sq
  2631.       dc.b m,end_patt
  2632.  
  2633.  
  2634. CR      set 20
  2635. tcr1     set 9
  2636. tcr2     set 8
  2637. Q       set cr/2
  2638. tq1      set 4
  2639. tq2      set 5
  2640. ;tsq     set 3
  2641. ;tsq2     set 2
  2642. SQ      set cr/4
  2643. ;m       set 254
  2644. ;rest     set $fd00
  2645. ;dcr      set cr+q
  2646. ;dq      set q+sq
  2647. ;dsq      set sq+(sq/2)
  2648. ;sb      set cr*4
  2649. ;min      set cr*2
  2650. ;dm      set min+cr
  2651.  
  2652.  
  2653. ;secretive
  2654.  
  2655. song57:
  2656.     dc.l    p1n,p1n
  2657.       dc.l     end_song
  2658.  
  2659. song58:
  2660.     dc.l    p2n,p2n
  2661.         DC.L     end_song
  2662.  
  2663. song59:
  2664.         
  2665.     dc.l    p10n,p10n
  2666.     dc.l     end_song
  2667.  
  2668. p1n:
  2669.       dc.b m,new_env,trigg,0
  2670.       dc.l mono_envt1i
  2671.     dc.w F05,cr,Eb05,cr,Bb04,cr,G04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  2672.     dc.w F05,cr,Eb05,cr,Bb04,cr,Ab04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  2673.     dc.w F05,cr,Eb05,cr,Bb04,cr,Gb04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  2674.     dc.w F05,cr,Eb05,cr,Bb04,cr,Gb04,cr*2,Bb04,cr,Eb05,cr,F05,q,rest,q
  2675.       dc.b m,end_patt
  2676. p2n:
  2677.       dc.b m,new_env,trigg,0
  2678.       dc.l titty2
  2679.       dc.b m,modon,1,1
  2680.       dc.w 25,25,8
  2681.     dc.w Eb02,cr*3,Db02,cr*5,Gb01,cr*3,Ab01,cr*5
  2682.       dc.b m,modon,1,1
  2683.       dc.w 125,100,8
  2684.     dc.w Eb01,cr*16
  2685.       dc.b m,end_patt
  2686. p10n:     
  2687.       dc.b m,inline,6,200,255,0
  2688.       dc.b m,new_env,trigg,0
  2689.       dc.l bassde
  2690.       dc.b m,pbend,down,200
  2691.       dc.w c01,0
  2692.       dc.w e04,cr*3
  2693.       dc.b m,pbend,down,200
  2694.       dc.w c01,0
  2695.       dc.w e04,cr*2
  2696.       dc.b m,pbend,down,200
  2697.       dc.w c01,0
  2698.       dc.w e04,cr*1
  2699.       dc.b m,new_env,trigg,0
  2700.       dc.l snaree
  2701.       dc.b m,pbend,down,69
  2702.       dc.w c01,0
  2703.       dc.w c04,cr*2
  2704.       dc.b m,new_env,trigg,0
  2705.       dc.l bassde
  2706.       dc.b m,pbend,down,200
  2707.       dc.w c01,0
  2708.       dc.w e04,cr*3
  2709.       dc.b m,pbend,down,200
  2710.       dc.w c01,0
  2711.       dc.w e04,cr*2
  2712.       dc.b m,pbend,down,200
  2713.       dc.w c01,0
  2714.       dc.w e04,cr
  2715.       dc.b m,new_env,trigg,0
  2716.       dc.l snaree
  2717.       dc.b m,pbend,down,69
  2718.       dc.w c01,0
  2719.       dc.w c04,cr
  2720.       dc.b m,new_env,trigg,0
  2721.       dc.l bassde
  2722.       dc.b m,pbend,down,200
  2723.       dc.w c01,0
  2724.       dc.w e04,cr
  2725.       dc.b m,pbend,down,200
  2726.       dc.w c01,0
  2727.     dc.w e04,cr*3
  2728.       dc.b m,pbend,down,200
  2729.       dc.w c01,0
  2730.       dc.w e04,cr*2
  2731.       dc.b m,new_env,trigg,0
  2732.       dc.l snaree
  2733.       dc.b m,pbend,down,69
  2734.       dc.w c01,0
  2735.       dc.w c04,cr
  2736.     dc.w c04,cr*2
  2737.       dc.b m,new_env,trigg,0
  2738.       dc.l bassde
  2739.       dc.b m,pbend,down,200
  2740.       dc.w c01,0
  2741.       dc.w e04,cr*3
  2742.       dc.b m,pbend,down,200
  2743.       dc.w c01,0
  2744.       dc.w e04,cr*2
  2745.       dc.b m,new_env,trigg,0
  2746.       dc.l snaree
  2747.       dc.b m,pbend,down,69
  2748.       dc.w c01,0
  2749.       dc.w c04,cr
  2750.     dc.w c04,cr,c04,cr
  2751.       dc.b m,end_patt
  2752.  
  2753. ;Great disaster scene
  2754.  
  2755. song61:
  2756.     dc.l    pr,pr,pr,pr,p1o,pr,prf
  2757.       dc.l     end_song
  2758.  
  2759. song62:
  2760.     dc.l    p2o,p2o,p2o,p2o,p2o,p2o
  2761.     dc.l    p2o,p2o,p2o,p2o,p2ao,prf,prf
  2762.         DC.L     end_song
  2763.  
  2764. song63:
  2765.         
  2766.     dc.l    pr,pr,p3o,p3o,p3o,p3o,p3o
  2767.     dc.l    p3o,p3o,p3o,p3o,p3ao,prf,prf
  2768.     dc.l     end_song
  2769.  
  2770. p1o:
  2771.       dc.b m,new_env,trigg,0
  2772.       dc.l titty1
  2773.       dc.b m,modon,1,1
  2774.       dc.w 4,4,8
  2775.     dc.w C04,cr*6,Bb03,cr*2,G03,cr*8
  2776.     dc.w C04,cr*6,Eb04,cr*2,Gb04,cr*8
  2777.     dc.w C04,cr*6,Bb03,cr*2,G03,cr*8
  2778.     dc.w C04,cr*6,Eb04,cr*2,Gb04,cr*4,F04,cr*4,C04,cr*8
  2779.       dc.b m,end_patt
  2780. p2o:
  2781.       dc.b m,new_env,trigg,0
  2782.       dc.l titty2
  2783.       dc.b m,modon,1,1
  2784.       dc.w 10,10,8
  2785.     dc.w C02,cr*2,Eb02,cr*2,Bb01,cr*2,Db02,cr*2
  2786.       dc.b m,end_patt
  2787. p2ao:
  2788.       dc.b m,new_env,trigg,0
  2789.       dc.l titty2
  2790.       dc.b m,modon,1,1
  2791.       dc.w 25,25,8
  2792.     dc.w C02,cr*8
  2793.       dc.b m,end_patt
  2794. p3o:
  2795.       dc.b m,new_env,trigg,0
  2796.       dc.l titty3
  2797. ;      dc.b m,modon,1,1
  2798. ;      dc.w 25,25,8
  2799.     dc.w C03,cr,Eb03,cr,Bb02,cr,Db03,cr
  2800.     dc.w C03,cr,Eb03,cr,Bb02,cr,Db03,cr
  2801.       dc.b m,end_patt
  2802. p3ao:
  2803.       dc.b m,new_env,trigg,0
  2804.       dc.l titty3
  2805. ;      dc.b m,modon,1,1
  2806. ;      dc.w 25,25,8
  2807.     dc.w C03,cr*8
  2808.       dc.b m,end_patt
  2809.  
  2810.  
  2811. CR      set 16
  2812. tcr1     set 9
  2813. tcr2     set 8
  2814. Q       set cr/2
  2815. tq1      set 4
  2816. tq2      set 5
  2817. ;tsq     set 3
  2818. ;tsq2     set 2
  2819. SQ      set cr/4
  2820. ;m       set 254
  2821. ;rest     set $fd00
  2822. ;dcr      set cr+q
  2823. ;dq      set q+sq
  2824. ;dsq      set sq+(sq/2)
  2825. ;sb      set cr*4
  2826. ;min      set cr*2
  2827. ;dm      set min+cr
  2828.  
  2829.  
  2830. ;Main theme tune
  2831.  
  2832.  
  2833. song65:
  2834.     dc.l    p13p,p14p,p15p,p14p,p13p,p14p,p15p,p14p
  2835. ;    dc.l    prp,prp,prp,prp                ; intro 4
  2836.     dc.l    p1p                    ;part a 16
  2837.     dc.l    p1ap                    ;part a 16oct
  2838.     dc.l    p2p,p2ap                ;part b 16
  2839.     dc.l    p1p                    ;part a 16
  2840.     dc.l    p13p,p14p,p15p,p14p,p13p,p14p,p15p,p14p    ;solo 16
  2841.     dc.l    p13p,p14p,p15p,p14p,p13p,p14p,p15p,p14p
  2842.     dc.l    p16p
  2843.       dc.l     end_song
  2844.  
  2845. song66:
  2846.     dc.l    prp,prp,prp,prp
  2847.     dc.l    prp,prp,p6p,p6ap            ;intro4
  2848.     dc.l    p3p,p4p,p5p,p4p,p3p,p4p,p6p,p6ap    ;part a 16
  2849.     dc.l    p3p,p4p,p5p,p4p,p5p,p4p,p3p,p3p
  2850.     dc.l    p3p,p4p,p5p,p4p,p3p,p4p,p6p,p6ap    ;part a 16
  2851.     dc.l    p3p,p4p,p5p,p4p,p5p,p4p,p3p,p3p
  2852.     dc.l    p7p,p8p,p9p,p7ap,p12p            ;part b 16
  2853.     dc.l    p7p,p8p,p9p,p7ap,p12ap
  2854.     dc.l    p3p,p4p,p5p,p4p,p3p,p4p,p6p,p6ap    ;part a 16
  2855.     dc.l    p3p,p4p,p5p,p4p,p5p,p4p,p3p,p3p
  2856.     dc.l    p3p,p4p,p5p,p4p,p3p,p4p,p5p,p4p        ;solo 16
  2857.     dc.l    p3p,p4p,p5p,p4p,p3p,p4p,p5p,p4p
  2858.     dc.l    p6p,p6ap                
  2859.     dc.l    p3p,p4p,p5p,p4p
  2860.     dc.l    p3p,p4p,p5p,p4p
  2861.     dc.l    p3p,p4p,p5p,p4p
  2862.     dc.l    p3p,p4p,p5p,p4p
  2863.     dc.l    p3p,p4p,p5p,p4p
  2864.         DC.L     end_song
  2865.  
  2866. song67:
  2867.     dc.l    prp,prp,prp,prp,p11p,p11p        ;intro 4 
  2868.     dc.l    p11p,p11p,p11p,p11p,p11p,p11p,p11p,p11p    ;part a 16
  2869.     dc.l    p11p,p11p,p11p,p11p,p11p,p11p,p11p,p11p    ;part a 16
  2870.     dc.l    p10p,p10p,p10p,p10p,p10p,p10p,p10p,p10p ;part b 16
  2871.     dc.l    p10p,p10p,p10p,p10p,p10p,p10p,p10p,p10p
  2872.     dc.l    p11p,p11p,p11p,p11p,p11p,p11p,p11p,p11p    ;part a 16
  2873.     dc.l    p11p,p11p,p11p,p11p,p11p,p11p,p11p,p11p    ;solo 16
  2874.     dc.l     p11p,p11p,p11p,p11p,p11p
  2875.     dc.l     p11p,p11p,p11p,p11p,p11p,p11p
  2876.     dc.l     end_song
  2877.  
  2878. prp:
  2879.       dc.w rest,cr*4
  2880.       dc.b m,end_patt
  2881.  
  2882. p1p:
  2883.       dc.b m,new_env,trigg,0
  2884.       dc.l mono_envt1
  2885.       dc.b m,modon,1,1
  2886.       dc.w 4,4,8
  2887.     dc.w A03,q*3,E04,q*3,D04,cr*4,C04,q,B03,q
  2888.     dc.w C04,q*3,A03,q*3,B03,cr*5
  2889.     dc.w A03,q*3,E04,q*3,D04,cr*4,C04,q,D04,q
  2890.     dc.w E04,cr*8
  2891.     dc.w A03,q*3,E04,q*3,D04,cr*4,C04,q,B03,q
  2892.     dc.w C04,q*3,A03,q*3,B03,cr*5
  2893.     dc.w C04,q*3,A03,q*3,C04,cr
  2894.     dc.w D04,q*3,B03,q*3,D04,cr,E04,cr*8
  2895.       dc.b m,end_patt
  2896. p2p:
  2897. ;      dc.b m,new_env,trigg,0
  2898. ;      dc.l blip_env2
  2899.       dc.b m,modon,1,1
  2900.       dc.w 3,3,4
  2901.       dc.b m,pbend,up,35
  2902.       dc.w f04,0
  2903.     dc.w f02,cr*4
  2904.     dc.b m,pboff
  2905.     dc.w E04,cr,D04,q,E04,q*7,Gb04,q,G04,q
  2906.     dc.w A04,cr*2,G04,cr,Gb04,q,G04,q*3
  2907.     dc.w F03,sq,Gb03,sq,G03,sq,Ab03,sq
  2908.     dc.w A03,sq,Bb03,sq,B03,sq,C04,sq
  2909.     dc.w Db04,sq,D04,sq,Eb04,sq,E04,sq
  2910.     dc.w F04,cr*2,C05,cr*2,A04,cr*2,F04,cr*2,A04,cr*7
  2911.      dc.b m,end_patt
  2912. p1ap:
  2913.       dc.b m,new_env,trigg,0
  2914.       dc.l mono_envt1
  2915.       dc.b m,modon,1,1
  2916.       dc.w 2,2,8
  2917.     dc.w A04,q*3,E05,q*3,D05,cr*4,C05,q,B04,q
  2918.     dc.w C05,q*3,A04,q*3,B04,cr*5
  2919.     dc.w A04,q*3,E05,q*3,D05,cr*4,C05,q,D05,q
  2920.     dc.w E05,cr*8
  2921.     dc.w A04,q*3,E05,q*3,D05,cr*4,C05,q,B04,q
  2922.     dc.w C05,q*3,A04,q*3,B04,cr*5
  2923.     dc.w C05,q*3,A04,q*3,C05,cr
  2924.     dc.w D05,q*3,B04,q*3,D05,cr,E05,cr*6
  2925.       dc.b m,end_patt
  2926. p2ap:
  2927. ;      dc.b m,new_env,trigg,0
  2928. ;      dc.l blip_env2
  2929.       dc.b m,modon,1,1
  2930.       dc.w 2,2,4
  2931.       dc.b m,pbend,up,3
  2932.       dc.w f05,0
  2933.     dc.w C05,cr*3
  2934.     dc.b m,pboff
  2935.     dc.w E05,cr,D05,q,E05,q*7,Gb05,q,G05,q
  2936.     dc.w A05,cr*2,G05,cr,Gb05,q,G05,q*9
  2937.     dc.w F05,cr*2,C06,cr*2,A05,cr*2,F05,cr*2,A05,cr*8
  2938.      dc.b m,end_patt
  2939. p3p:
  2940.       dc.b m,new_env,trigg,0
  2941.       dc.l bass_envim
  2942.     dc.w A01,q,A01,q,G02,q,A02,q
  2943.     dc.w A01,q,A01,q,Db02,q,E02,q
  2944.       dc.b m,end_patt
  2945. p4p:
  2946.     dc.w G01,q,G01,q,F02,q,G02,q
  2947.     dc.w G01,q,G01,q,B02,q,D02,q
  2948.       dc.b m,end_patt
  2949. p5p:
  2950.     dc.w F01,q,F01,q,Eb02,q,F02,q
  2951.     dc.w F01,q,F01,q,A01,q,C02,q
  2952.       dc.b m,end_patt
  2953. p6p:
  2954.       dc.b m,new_env,trigg,0
  2955.       dc.l bass_envim
  2956.       dc.b m,modon,1,1
  2957.       dc.w 10,10,1
  2958.     dc.w E02,q,E02,q,E02,q,E02,q
  2959.     dc.w E02,q,E02,q,E02,q,E02,q
  2960.       dc.b m,end_patt
  2961. p6ap:
  2962.     dc.w E02,q,E02,q,D02,q,D02,q
  2963.     dc.w C02,q,C02,q,B01,q,B01,q
  2964.       dc.b m,end_patt
  2965. p7p:
  2966.     dc.w D02,q,D02,q,F02,q,F02,q
  2967.     dc.w G02,q,G02,q,A02,q,A02,q
  2968.       dc.b m,end_patt
  2969. p7ap:
  2970.     dc.w D02,q,D02,q,Gb02,q,F02,q
  2971.     dc.w G02,q,G02,q,A02,q,A02,q
  2972.       dc.b m,end_patt
  2973. p8p:
  2974.     dc.w E02,q,E02,q,G02,q,G02,q
  2975.     dc.w A02,q,A02,q,B02,q,B02,q
  2976.       dc.b m,end_patt
  2977. p9p:
  2978.     dc.w A02,q,A02,q,C03,q,C03,q
  2979.     dc.w D03,q,D03,q,E03,q,E03,q
  2980.       dc.b m,end_patt
  2981. p9ap:
  2982.     dc.w A02,q,A02,q,C03,q,C03,q
  2983.     dc.w D03,q,D03,q,E03,q,E03,q
  2984.       dc.b m,end_patt
  2985. p12p:
  2986.     dc.w F02,q,F02,q,G02,q,G02,q
  2987.     dc.w A02,q,A02,q,C03,q,C03,q
  2988.     dc.w D03,q,D03,q,E03,q,E03,q
  2989.     dc.w F03,q,F03,q,G03,q,G03,q
  2990.     dc.w A03,q,A02,q,A02,q,A03,q
  2991.     dc.w A02,q,A02,q,A03,q,A02,q
  2992.     dc.w A02,q,A03,q,A02,q,A02,q
  2993.     dc.w A03,q,A02,q,A03,q,A03,q
  2994.       dc.b m,end_patt
  2995. p12ap:
  2996.     dc.w F02,q,F02,q,G02,q,G02,q
  2997.     dc.w A02,q,A02,q,C03,q,C03,q
  2998.     dc.w D03,q,D03,q,E03,q,E03,q
  2999.     dc.w F03,q,F03,q,G03,q,G03,q
  3000.     dc.w A03,q,A02,q,A02,q,A03,q
  3001.     dc.w A03,sq,Ab03,sq,G03,sq,Gb03,sq
  3002.     dc.w F03,sq,E03,sq,Eb03,sq,D03,sq
  3003.     dc.w Db03,sq,C03,sq,B02,sq,Bb02,sq
  3004.     dc.w A02,sq,Ab02,sq,G02,sq,Gb02,sq
  3005.     dc.w F02,sq,E02,sq,Eb02,sq,D02,sq
  3006.     dc.w Db02,sq,C01,sq,B01,sq,Bb01,sq
  3007.       dc.b m,end_patt
  3008. p13p:
  3009.       dc.b m,new_env,trigg,0
  3010.       dc.l sq_env2
  3011.     dc.w A05,q,A05,q,G06,q,A06,q
  3012.     dc.w A05,q,A05,q,Db06,q,D06,sq,E06,sq
  3013.       dc.b m,end_patt
  3014. p14p:
  3015.     dc.w G05,q,G05,q,F06,sq,F06,sq,G06,q
  3016.     dc.w G05,q,G05,q,B06,q,D06,q
  3017.       dc.b m,end_patt
  3018. p15p:
  3019.     dc.w F05,q,F05,q,Eb06,q,F06,q
  3020.     dc.w F05,q,F05,q,A05,q,C06,sq,C05,sq
  3021.       dc.b m,end_patt
  3022. p16p:
  3023.       dc.b m,new_env,trigg,0
  3024.       dc.l titty1n
  3025.       dc.b m,modon,1,1
  3026.       dc.w 1,1,8
  3027.     dc.w Db03,sq,D03,sq,Eb03,sq,E03,sq
  3028.     dc.w F03,sq,Gb03,sq,G03,sq,Ab03,sq
  3029.     dc.w A03,sq,Bb03,sq,B03,sq,C04,sq
  3030.     dc.w Db04,sq,D04,sq,Eb04,sq,E04,sq
  3031.     dc.w F04,sq,Gb04,sq,G04,sq,Ab04,sq
  3032.     dc.w A04,sq,Bb04,sq,B04,sq,C05,sq
  3033.     dc.w Db05,sq,D05,sq,Eb05,sq,E05,sq
  3034.     dc.w F05,sq,Gb05,sq,G05,sq,Ab05,sq
  3035.       dc.b m,new_env,trigg,0
  3036.       dc.l titty1q
  3037.     dc.w A05,cr*7,G05,q,E05,q,G05,q,A05,q*11,C06,cr,B05,cr
  3038.     dc.w A05,cr*7,G05,q,E05,q,G05,q,A05,q*11,C06,cr,B05,cr
  3039.     dc.w C06,q,B05,q,A05,q,E06,cr,D06,q,C06,q,A05,q
  3040.     dc.w B05,q,A05,q,G05,q,D06,cr,C06,q,B05,q,G05,q    
  3041.     dc.w A05,q,G05,q,F05,q,C06,cr,B05,q,C06,q,E06,q
  3042.     dc.w D06,cr*4
  3043.     dc.w C06,q,B05,q,A05,q,E06,cr,D06,q,C06,q,A05,q
  3044.     dc.w B05,q,A05,q,G05,q,D06,cr,C06,q,B05,q,G05,q    
  3045.     dc.w A05,q,C06,q,D06,q,F06,cr,A05,sq,C06,sq,D06,q,F06,q
  3046.     dc.w E06,sq,Eb06,sq,D06,sq,Db06,sq
  3047.     dc.w C06,sq,B05,sq,Bb05,sq,A05,sq
  3048.     dc.w Ab05,sq,G05,sq,Gb05,sq,F05,sq
  3049.     dc.w E05,sq,Eb05,sq,D05,sq,Db05,sq
  3050.     dc.w A04,sq,C05,sq,E05,sq,A05,sq
  3051.     dc.w C06,sq,E06,sq,A06,sq,C07,sq
  3052.     dc.w E07,sq,C07,sq,A06,sq,E06,sq
  3053.     dc.w C06,sq,A05,sq,E05,sq,C05,sq
  3054.     dc.w G04,sq,B04,sq,D05,sq,G05,sq
  3055.     dc.w B05,sq,D06,sq,G06,sq,B06,sq
  3056.     dc.w D07,sq,B06,sq,G06,sq,D06,sq
  3057.     dc.w B05,sq,G05,sq,D05,sq,B04,sq
  3058.     dc.w F04,sq,A04,sq,C05,sq,F05,sq
  3059.     dc.w A05,sq,C06,sq,F06,sq,A06,sq
  3060.     dc.w C07,sq,A06,sq,F06,sq,C06,sq
  3061.     dc.w A05,sq,F05,sq,C05,sq,A04,sq
  3062.       dc.b m,new_env,trigg,0
  3063.       dc.l titty1n
  3064.     dc.w F04,sq,Gb04,sq,G04,sq,Ab04,sq
  3065.     dc.w A04,sq,Bb04,sq,B04,sq,C05,sq
  3066.     dc.w Db05,sq,D05,sq,Eb05,sq,E05,sq
  3067.     dc.w F05,sq,Gb05,sq,G05,sq,Ab05,sq
  3068.      dc.b m,end_patt
  3069. p11p:     
  3070.       dc.b m,inline,6,200,255,0
  3071.       dc.b m,new_env,trigg,0
  3072.       dc.l bassde
  3073.       dc.b m,pbend,down,200
  3074.       dc.w c01,0
  3075.       dc.w e04,Q,e04,q,rest,q
  3076.     dc.w e04,q
  3077.       dc.b m,new_env,trigg,0
  3078.       dc.l snaree
  3079.       dc.b m,pbend,down,69
  3080.       dc.w c01,0
  3081.       dc.w c04,Q*3
  3082.       dc.b m,new_env,trigg,0
  3083.       dc.l bassde
  3084.       dc.b m,pbend,down,200
  3085.       dc.w c01,0
  3086.       dc.w e04,cr
  3087.       dc.b m,pbend,down,200
  3088.       dc.w c01,0
  3089.       dc.w e04,cr
  3090.       dc.b m,pbend,down,200
  3091.       dc.w c01,0
  3092.       dc.w e04,q
  3093.       dc.b m,new_env,trigg,0
  3094.       dc.l QCLAPE
  3095.       dc.b m,pbend,down,69
  3096.       dc.w f01,0
  3097.       dc.w c05,cr
  3098.       dc.b m,pbend,down,200
  3099.       dc.w c01,0
  3100.       dc.w e04,cr
  3101.       dc.b m,end_patt
  3102. p10p:     
  3103.       dc.b m,inline,6,200,255,0
  3104.       dc.b m,new_env,trigg,0
  3105.       dc.l bassde
  3106.       dc.b m,pbend,down,200
  3107.       dc.w c01,0
  3108.       dc.w e04,Q,e04,q
  3109.       dc.b m,new_env,trigg,0
  3110.       dc.l qCLAPE
  3111.       dc.b m,pbend,down,69
  3112.       dc.w c01,0
  3113.       dc.w c04,Q
  3114.       dc.b m,new_env,trigg,0
  3115.       dc.l bassde
  3116.       dc.b m,pbend,down,200
  3117.       dc.w c01,0
  3118.       dc.w e04,cr
  3119.       dc.b m,pbend,down,200
  3120.       dc.w c01,0
  3121.       dc.w e04,q
  3122.       dc.b m,new_env,trigg,0
  3123.       dc.l QCLAPE
  3124.       dc.b m,pbend,down,69
  3125.       dc.w f01,0
  3126.       dc.w c05,q,c05,q
  3127.       dc.b m,end_patt
  3128.  
  3129.  
  3130. ;****************************************************************
  3131. exp2_env:    dc.b 15,n1,14,n1,13,n1,12,n1,11,n1,10,n1,7,n1
  3132.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  3133.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  3134.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  3135.         DC.B 0,N1,255
  3136.  
  3137. ;****************************************************************
  3138. abass_env:    dc.b 15,t2,15,t2,15,t2,15,t2
  3139.       dc.b 15,t2,15,t2
  3140.       dc.b 2,t2,255
  3141. apaiano_env:    dc.b 15,t3,15,t3,15,t3,15,t3,14,t3
  3142.       dc.b 13,t3,13,t3,13,t3,13,t3,13,t3
  3143.       dc.b 13,t3,12,t3,12,t3,11,t3
  3144.       dc.b 11,t3,10,t3,9,t3,8,t3,7,t3,6,t3,255
  3145. snaree:     dc.b 15,b3,15,t3,15,t3,15,b3,15,t3,15,b3
  3146.   dc.b 12,t3,12,b3,9,t3,7,b3,7,t3,7
  3147.   dc.b b3,6,t3,6,b3,6
  3148.   dc.b t3,5,t3,255
  3149. bassde: dc.b 15,b3,15,t3,15,t3,15,t3,7,t3
  3150.   dc.b 3,t3,0,t3,255
  3151. nbass_env: dc.b 15,n2
  3152. bass_env: dc.b 15,t2,15,t2,15,t2,15,t2
  3153.     dc.b 15,t2,15,t2,15,t2,15,t2
  3154.     dc.b 15,t2,15,t2,15,t2,15,t2
  3155.     dc.b 15,t2,15,t2,15,t2,15,t2
  3156.     dc.b 15,t2,15,t2,15,t2,15,t2
  3157.     dc.b 15,t2,15,t2,15,t2,15,t2
  3158.       dc.b 12,t2,11,t2
  3159.       dc.b 7,t2,255
  3160. bass_nos: dc.b 15,t2,15,t2,15,t2,15,t2
  3161.     dc.b 15,t2,15,t2,15,t2,15,t2
  3162.     dc.b 15,t2,15,t2,15,t2,15,t2
  3163.     dc.b 15,t2,15,t2,15,t2,15,t2
  3164.     dc.b 15,t2,15,t2,15,t2,15,t2
  3165.     dc.b 15,t2,15,t2,15,t2,15,t2
  3166.     dc.b 14,t2,14,t2,14,t2,14,t2
  3167.     dc.b 14,t2,14,t2,14,t2,14,t2
  3168.     dc.b 14,t2,14,t2,14,t2,14,t2
  3169.     dc.b 14,t2,14,t2,14,t2,14,t2
  3170.     dc.b 13,t2,13,t2,13,t2,13,t2
  3171.     dc.b 13,t2,13,t2,13,t2,13,t2
  3172.     dc.b 13,t2,13,t2,13,t2,13,t2
  3173.     dc.b 13,t2,13,t2,13,t2,13,t2
  3174.       dc.b 12,t2,11,t2
  3175.       dc.b 7,t2,255
  3176. fade:    dc.b 4,t1,6,t1,8,t1,10,t1,11,t1,14,t1,15,t1,255
  3177. bass_envi: dc.b 15,t2,15,t2,15,t2,15,t2,15,t2,0,t2,255
  3178. bass_envim: dc.b 15,b2,15,t2,15,t2,15,t2,15,t2,12,t2,0,t2,255
  3179. titty1: dc.b 15,t1,255
  3180. titty1q: dc.b 13,t1,255
  3181. titty1n: dc.b 14,b1,13,t1,255
  3182. titty2: dc.b 15,t2,255
  3183. titty3: dc.b 15,t3,255
  3184.     even
  3185. bass_envz: dc.b 15,t2,15,t2,15,t2,15,t2
  3186.   dc.b 15,t2,15,t2,15,t2,15,t2
  3187.   dc.b 0,t2,255
  3188.     even
  3189. qclape:     dc.b 15,n3,14,n3,14,n3,13,n3,13,n3,12,n3
  3190.   dc.b 11,n3,11,n3,9,n3,7,n3,7,n3
  3191.   dc.b 7,n3,6,n3,6,n3
  3192.   dc.b 6,n3,5,n3,255
  3193. hate:     dc.b 13,n3,0,n3,255
  3194. mono_envt1:   dc.b 13,t1,255
  3195. blip_env:   dc.b 13,t1,13,t1,13,t1,13,t1,1,t1,1,t1,13,t1,255
  3196. blip_env2:   dc.b 13,t1,13,t1,13,t1,13,t1,1,t1,1,t1,13,t1
  3197.     dc.b 13,t1,13,t1,12,t1,11,t1,10,t1,255
  3198. mono_envt1i:   dc.b 12,b1,14,t1,13,t1,12,t1,12,t1
  3199.     dc.b 5,t1,5,t1,5,t1,13,t1,12,t1,9,t1,7,t1,5,t1,3,t1,0,t1,255
  3200. sq_env1:     dc.b 15,t1,15,t1,13,t1,10,t1,0,t1,255
  3201. sq_env2:     dc.b 15,t1,11,t1,0,t1,255
  3202. ;;;;;;;;;;;;;;;;;;;;;;  MUSIC DATA END ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3203.  
  3204. SPEEDS:
  3205.      DC.W $0607
  3206.      DC.W $CF01
  3207.      DC.W 39681 
  3208.      DC.W 31745 
  3209.      DC.W 26369 
  3210.      DC.W 22529 
  3211.      DC.W 19713 
  3212.      DC.W 17409 
  3213.      DC.W 15873 
  3214.      DC.W 14337 
  3215.      DC.W 13313 
  3216.      DC.W 12289 
  3217.      DC.W 11265 
  3218.      DC.W 10497 
  3219.      DC.W 9985 
  3220.      DC.W 2307 
  3221.  
  3222. ;***************************************
  3223. ssplash8d:    ;incbin a:ssplash8.sam
  3224. explosi8d:    ;incbin a:explosi8.sam
  3225.  
  3226. END
  3227.  
  3228. ?
  3229.  
  3230.  
  3231.