home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Night Shift Amiga / Lowe_NightShiftAmiga.img / CALGAMES.S < prev    next >
Encoding:
Text File  |  1985-11-20  |  64.4 KB  |  3,077 lines
  1.  
  2. ;          CALIFORNIA GAMES MUSIC/FX SOURCE FILES
  3.  
  4. ;         MUSIC AND DRIVER REMAIN COPYRIGHT D.LOWE FOR UAMS
  5.  
  6.  
  7. B08:  equ  16
  8. Bb08:  equ  17
  9. A08:  equ  18
  10. Ab08:  equ  19
  11. G08:  equ  20
  12. Gb08:  equ  21
  13. f08:  equ  22
  14. E08:  equ  24
  15. Eb08:  equ  25
  16. D08:  equ  27
  17. Db08:  equ  28
  18. C08:  equ  30
  19. ;  ********
  20.  
  21. ;  *********
  22. B07:  equ  32
  23. Bb07:  equ  34
  24. A07:  equ  36
  25. Ab07:  equ  38
  26. G07:  equ  40
  27. Gb07:  equ  42
  28. f07:  equ  45
  29. E07:  equ  47
  30. Eb07:  equ  50
  31. D07:  equ  53
  32. Db07:  equ  56
  33. C07:  equ  60
  34. ;  ********
  35. ;  *********
  36. B06:  equ  63
  37. Bb06:  equ  67
  38. A06:  equ  71
  39. Ab06:  equ  75
  40. G06:  equ  80
  41.  
  42. Gb06:  equ  84
  43. f06:  equ  89
  44. E06:  equ  95
  45. Eb06:  equ  100
  46. D06:  equ  106
  47. Db06:  equ  113
  48. C06:  equ  119
  49. ;  ********
  50. ;  *********
  51. B05:  equ  127
  52. Bb05:  equ  134
  53. A05:  equ  142
  54. Ab05:  equ  150
  55. G05:  equ  159
  56. Gb05:  equ  169
  57. f05:  equ  179
  58. E05:  equ  190
  59. Eb05:  equ  201
  60. D05:  equ  213
  61. Db05:  equ  225
  62. C05:  equ  239
  63. ;  ********
  64. ;  *********
  65. B04:  equ  253
  66. Bb04:  equ  268
  67. A04:  equ  284
  68. Ab04:  equ  301
  69. G04:  equ  319
  70. Gb04:  equ  338
  71. f04:  equ  358
  72. E04:  equ  379
  73. Eb04:  equ  402
  74. D04:  equ  426
  75. Db04:  equ  451
  76. C04:  equ  478
  77. ;  ********
  78. ;  *********
  79. B03:  equ  506
  80. Bb03:  equ  536
  81. A03:  equ  568
  82. Ab03:  equ  602
  83. G03:  equ  638
  84. Gb03:  equ  676
  85. f03:  equ  716
  86. E03:  equ  758
  87. Eb03:  equ  804
  88. D03:  equ  851
  89. Db03:  equ  902
  90. C03:  equ  956
  91. ;  ********
  92. ;  *********
  93. B02:  equ  1012
  94. Bb02:  equ  1073
  95. A02:  equ  1136
  96. Ab02:  equ  1204
  97. G02:  equ  1276
  98. Gb02:  equ  1351
  99. f02:  equ  1432
  100. E02:  equ  1517
  101. Eb02:  equ  1607
  102. D02:  equ  1703
  103. Db02:  equ  1804
  104. C02:  equ  1911
  105. ;  ********
  106. ;  *********
  107. B01:  equ  2025
  108. Bb01:  equ  2145
  109. A01:  equ  2273
  110. Ab01:  equ  2408
  111. G01:  equ  2551
  112. Gb01:  equ  2703
  113. f01:  equ  2863
  114. E01:  equ  3034
  115. Eb01:  equ  3214
  116. D01:  equ  3405
  117. Db01:  equ  3608
  118. C01:  equ  3822
  119. ;  ********
  120.  
  121.  
  122. select_reg   equ $ffff8800
  123. write_data   equ $ffff8802
  124. end_patt    equ 0
  125. end_song    equ $ffffffff
  126. end_data    equ $ff
  127. new_env   equ 4
  128. new_sound    equ 8
  129. pbend    equ 12
  130. octaves   equ 20
  131. endfx_patt    equ 36
  132. hold        equ 40
  133. holdoff    equ 44
  134. r    equ 48
  135. cem     equ 20
  136. up     equ 3
  137. down    equ 2
  138. auto    equ 1
  139. man     equ 0
  140. modon    equ 16
  141. modoff   equ 24
  142. pboff    equ 28
  143. bendoff        equ 28
  144. inline   equ 32
  145. rpto    equ $01
  146. rptc    equ $02
  147. trigg    equ 0
  148. notrigg equ 1
  149.  
  150. CR      set 24
  151. tcr1     set 11
  152. tcr2     set 10
  153. Q       set CR/2
  154. tq1      set 5
  155. tq2      set 6
  156. tsq1     set 3
  157. tsq2     set 2
  158. SQ      set Q/2
  159. m       set 254
  160. rest     set $fd00
  161. dcr      set cr+q
  162. dq      set q+sq
  163. dsq      set sq/2
  164. sb      set cr*4
  165. min      set cr*2
  166. dm      set min+cr
  167.  
  168.  
  169. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  170.  
  171.  
  172.  
  173. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  174.  
  175.  
  176. t1     equ %00001000
  177. n1     equ %00000001
  178. b1     equ %00000000
  179. t2     equ %00010000
  180. n2     equ %00000010
  181. b2     equ %00000000
  182. t3     equ %00100000
  183. n3     equ %00000100
  184. b3     equ %00000000
  185.  
  186. ;       ***********************************
  187. ;  THIS WHOLE SECTION IS A SHORT CONTROL SECTION TO POKE NUMBERS
  188. ;  INTO THE FX BUFFERS TO ENABLE YOU TO ASSEMBLE AND RUN IT WITHOUT   
  189. ;  ANY INTERRUPT ROUTINEs ETC......Delete it when not needed
  190.  
  191.            jsr super
  192. ;  disable key click for volume control...You probably have your own
  193.         MOVE.B $484,D0        ;routines for keyboard etc.So I've kept
  194.         AND.B #$FE,D0        ;this bit in the deletable section
  195.         MOVE.B D0,$484
  196.  
  197.  ; test for screen res
  198.            move.w #4,-(sp)
  199.            trap #14
  200.           addq.l #2,sp
  201.           cmp.w #2,d0
  202.           beq high_res
  203. ; screen to med res
  204.           move.w #1,-(sp)
  205.            move.l #-1,-(sp)
  206.           move.l #-1,-(sp)
  207.            move.w #5,-(sp)
  208.            trap #14
  209.           add.l #12,sp
  210.  
  211. high_res:
  212.            move.w col_byte,d0
  213.            JSR colour
  214.            move.w d0,col_byte
  215.            EORi.w #1,D0
  216.            jsr colour
  217.            lea ua_mess,a1
  218.            jsr print
  219.            LEA TOGGLE_MESS_OFF,a1
  220.            jsr print
  221.            LEA TITLE_MESS_POS,A1
  222.            JSR PRINT
  223.            jsr select_new_song
  224.         call_loop:
  225.  
  226.  
  227.            cmp.w #0,timer3
  228.            beq testkey
  229.            sub.w #1,timer3
  230.            bra nokey
  231.  
  232. testkey:
  233.            CMP.B #$39,$FFFC02
  234.            bne nokey
  235. relkey:        clr.b $fffc02
  236.            move.w #100,timer3
  237.  
  238.            move.l song_buffer,d0
  239.            addq.l #1,d0
  240.            cmpi.l #7,d0    ;songs +1
  241.            bne okay
  242.            move.l #1,d0
  243. okay:         move.l d0,song_buffer
  244.            jsr SELECT_NEW_SONG
  245.  
  246. nokey:
  247.            jsr interrupt
  248.            jsr sfxdriver
  249.  
  250. ; see if change of toggle required
  251.            CMP.B #$3a,$FFFC02
  252.            bne no_change
  253.            TST.W timer4
  254.            bne no_change
  255.  
  256. ; toggle sound fx and print to screen
  257.            tst.w fx_toggle
  258.            bne off
  259.            lea toggle_mess_on,a1
  260.            jsr print
  261.            bra tj1
  262. off:           lea toggle_mess_off,a1
  263.            jsr print
  264. tj1:           move.w #200,timer4
  265.            bchg #0,fx_toggle
  266. NO_CHANGE:
  267.            tst.w timer4
  268.            beq t4ok
  269.            sub.w #1,timer4
  270. t4ok:
  271.            tst.w fx_toggle
  272.            bne toggle_ok
  273.            bra call_loop
  274.  
  275. TOGGLE_ok:
  276. ;   SAMPLE FX CONTROL
  277.            subi.w #1,timer
  278.            cmpi.w #0,timer
  279.            bne call_loop1
  280.            move.l yyy,d0
  281.            addi.l #1,d0
  282.            cmpi.l #max_sam,d0
  283.            bne jjj
  284.            move.l #1,d0
  285.  
  286. jjj:          ;move.l d0,fx_buffer  ;THIS INSTRUCION WILL ENABLE/DISABLE
  287.                       ;THE SAMPLES FOR TESTING..
  288.            move.l d0,yyy
  289.            move.w #800,timer
  290.            bra call_loop
  291. call_loop1:
  292.  
  293. ; chip fx control
  294.  
  295.  
  296.         tst.w timer1
  297.         beq new_fx    
  298.         sub.w #1,timer1
  299.         bra call_loop
  300.  
  301. new_fx
  302.         move.l yyy1,d0
  303.         cmp.b #$50,$fffc02
  304.         beq same_fx
  305.  
  306.         cmp.b #$4d,$fffc02
  307.            bne call_loop
  308.  
  309.         lea fxvars1,a0
  310.            move.l yyy1,d0
  311.         jsr kill_fx
  312.  
  313.         move.l    #20,d5
  314. pause        jsr interrupt
  315.         dbra d5,pause    ;used so fx can be seperated clearly
  316.                 ;for test purposes
  317.  
  318.  
  319.  
  320.         move.l yyy1,d0
  321.            addi.l #1,d0
  322.            move.l max_chfx,d1
  323.            cmp.l d1,d0
  324.            bne no_reset_chfx
  325.            move.l #1,d0
  326. no_reset_chfx  
  327.         move.l d0,yyy1
  328. same_fx
  329.         jsr set_up_chip_fx
  330.         move.w #5,timer1
  331.  
  332.            bra call_loop
  333.  even
  334. timer: dc.w 3
  335. yyy: dc.l 0
  336. timer1: dc.w 70
  337. yyy1: dc.l curr_fx
  338. timer3: dc.w 0
  339. fx_toggle: dc.w 0
  340. timer4: dc.w 0
  341. col_byte: dc.w -1
  342. print_store: dc.l title_mess
  343. ; +++++++++++
  344. print:
  345. ; a1 is pointer to data
  346. ploop:
  347.          MOVE.B (A1)+,D0
  348.          CMPI.B #255,D0
  349.          BNE DOP
  350.          RTS
  351. dop:         jsr print_sub
  352.            bra ploop
  353. print2:
  354.          clr.l d3
  355.          MOVE.W #13,D3
  356.         ploop2:
  357.          MOVE.B (A1)+,D0
  358.          JSR PRINT_SUB
  359.          DBRA D3,PLOoP2
  360.          RTS
  361. dop2:         jsr print_sub
  362.            bra ploop2
  363.  
  364.  
  365.  ; character to print in d0
  366. print_sub:
  367.           move.w d0,-(sp) ; value to print
  368.           move.w #2,-(sp)
  369.           trap #1
  370.           addq.l #4,sp
  371.           rts
  372.  
  373. ua_mess:
  374.          dc.b 27,'b',0,27,'c',1
  375.  
  376.  
  377.          dc.b 27,'E'     ; CLEAR SCREEN
  378.          dc.b 27,'Y',32+7,32+32
  379.                  dc.b ' UNCLE~ART '
  380.          dc.b 27,'Y',32+9,32+26
  381.              dc.b 'Computer Music Specialists'
  382.          dc.b 27,'Y',32+10,32+30,' Tel:0723 870648 '
  383.  
  384.  
  385.  
  386.          dc.b 27,'Y',32+16,32+6
  387.          dc.b '             Caps Lock to toggle FX/V for MUSIC volume'
  388.             dc.b 0
  389. toggle_mess_off:
  390.          dc.b 27,'Y',32+18,32+30,'»»»» FX OFF ««««'
  391.  
  392.          dc.b 27,'Y',32+19,32+30,'     FX  ON     '
  393.  
  394.          dc.b 255
  395. toggle_mess_on:
  396.          dc.b 27,'Y',32+18,32+30,'     FX OFF     '
  397.  
  398.          dc.b 27,'Y',32+19,32+30,'»»»» FX  ON ««««'
  399.          dc.b 255
  400.  
  401. title_mess_pos:
  402.          dc.b 27,'Y',32+15,32+20
  403. title_mess:
  404.          dc.b  '*       CALIFORNIA GAMES MUSIC/FX   *'
  405.          dc.b 27,'Y',32+13,32+14
  406.          dc.b ' '
  407.          dc.b 27,'f'
  408.          dc.b 255,0
  409.     even
  410. colour:
  411.           move.w d0,-(sp)
  412.           move.w #0,-(sp)
  413.           move.w #7,-(sp)
  414.           trap #14
  415.           add.w #6,sp
  416.           rts
  417. ;            END OF CONTROL(deletable)SECTION
  418. ;        *********************************
  419.  
  420. ;          **********************************
  421. ;          FLAGS/VARIABLES FOR ACCESS BY PROGRAMMER
  422. ;             DURING RUN TIME        
  423.  
  424. fx_disable:    dc.w 0     ;fx disable flag     1=disable
  425. music_disable:  dc.w 1  ;music disable         1=disable
  426.  
  427. fx_buffer:     dc.l 0     ;sample fx number required  
  428. song_buffer:     dc.l 1  ;which piece of music  1 to 3/0=ILLEGAL VALUE
  429. ;         **********************************
  430.  
  431. ;     ALL INTERNAL FLAGS/VARIABLES USED INTERNALLY BY THE DRIVER 
  432. chip_fx_on     dc.w 0
  433. FXBUFFER:     dc.l 0
  434. backup_buffer:     dc.l 0
  435. fxcount:     dc.b 0
  436. fx_patt_f:     dc.w 0
  437. fx_patt_point:     dc.l 0
  438. fx_int:     dc.l 0
  439. curr_fx_fin:     dc.w 0
  440. duck         dc.b 0,0
  441. curr_mix     dc.b %11111111,0
  442. mod2_flag     dc.w 0
  443. altpf:         dc.w 0
  444. temp:         dc.l 0
  445. which_chip     dc.l 0
  446. 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
  447. sample_flag:    dc.w 0
  448. fx_flag:    dc.w %0000000000000000
  449. curr_chann:    dc.w 0
  450. start_patt:    dc.b m,modoff
  451.         dc.b m,bendoff
  452.          dc.b m,end_patt
  453. start_song:     dc.l $ffffffff
  454. curr_comp:    dc.b 2,2
  455. vol_count:    dc.w 6
  456. hold_val_p:    dc.w 0,0
  457. sfxflag        dc.w 0
  458. int_flag    dc.w 0
  459. temp2        dc.l 0
  460. curr1        dc.l 0
  461. curr2        dc.l 0
  462. curr3        dc.l 0
  463.  
  464. ; ******************************
  465.  
  466. ;  SUBROUTINE TO KILL CHIP...does not save registers
  467.  
  468. ; call here to kill all three channels
  469. kill_chip:
  470.         move.w #13,d0
  471. kloop        move.b d0,select_reg
  472.         move.b #0,write_data
  473.         dbra.w    d0,kloop 
  474.            move.b #7,select_reg
  475. ; turn mixer off
  476.            move.b #%11111111,write_data
  477.            rts
  478. ; *************************************
  479.  ; SONG SELECTION subroutine...call here AFTER poking number of required
  480. ;    piece into song_buffer
  481.  
  482. select_new_song:
  483.         move.w #1,int_flag
  484.          jsr kill_chip 
  485.          move.l #40*6,d0
  486.          lea vars1,a0
  487.         clear_loop:
  488.          move.w #0,(a0)+
  489.          dbra d0,clear_loop
  490.          clr.l backup_buffer
  491.          clr.b fxcount
  492.          clr.l d0
  493.          move.l song_buffer,d1
  494.          add d1,d0
  495.          add d1,d0
  496.          add d1,d0
  497.          add d1,d0
  498.          add d1,d0
  499.          add d1,d0
  500.          add d1,d0
  501.          add d1,d0
  502.          add d1,d0
  503.          add d1,d0
  504.          add d1,d0
  505.          add d1,d0
  506.          LEA SONG_TABLE-12,A1
  507.          add.l d0,a1 
  508.          MOVE.L (A1)+,WSONG1 
  509.           move.l (a1)+,wsong2 
  510.           move.l (a1),wsong3
  511.           MOVE.L #START_PATT,PATTR1
  512.           MOVE.L #start_patt,PATTR2
  513.           MOVE.L #start_patt,PATTR3
  514.           move.l #start_song,songr1
  515.           MOVE.L #start_song,SONGR2
  516.           MOVE.L #start_song,SONGR3
  517. no_song      move.w #0,intc1
  518.           move.w #0,intc2
  519.           move.w #0,intc3
  520.         clr.w int_flag
  521.           rts
  522.  
  523. ;****************************************
  524.     ;  CALL HERE WITH D0 HOLDING THE long word value
  525.     ;  of the fx you want/  see fx list
  526.  
  527. set_up_chip_fx
  528.         move.l d0,temp2
  529.         add d0,d0
  530.         add d0,d0
  531.         lea chfx_table-4,a0
  532.         move.l (a0,d0),a1    
  533.         btst #0,fx_flag+1
  534.         bne checkfx2
  535. use1        move.l a1,fxpattr1
  536.         bset #0,fx_flag+1
  537.         move.l temp2,curr1        
  538.         rts
  539. checkfx2:     btst #1,fx_flag+1
  540.         bne checkfx3    
  541. use2        move.l a1,fxpattr2
  542.         bset #1,fx_flag+1
  543.         move.l temp2,curr2        
  544.         rts
  545. checkfx3:     btst #2,fx_flag+1
  546.         bne overwrite
  547.         move.l a1,fxpattr3
  548.         bset #2,fx_flag+1
  549.         move.l temp2,curr3        
  550.         rts
  551.  
  552. overwrite
  553.         lea fxvars1,a0
  554.         jsr clear_fx_1
  555.         bra use1
  556. ;*************************************
  557.  
  558. ;         KILL ANY FX  ;CALL HERE WITH D0 HOLDING LONG WORD
  559. ;         OF ANY FX YOU WANT TO STOP
  560. ;        Mainly used to kill looped fx.
  561.  
  562. kill_fx:
  563.     move.l    d0,d1
  564.     jsr    kill_chip
  565.     cmp.l    curr1,d1
  566.     bne    chk2    
  567.     lea fxvars1,a0
  568.     jsr clear_fx_1
  569.     bclr.b #0,fx_flag+1    
  570. chk2
  571.     cmp.l    curr2,d1
  572.     bne    chk3    
  573.     lea fxvars2,a0
  574.     jsr clear_fx_2
  575.     bclr.b #1,fx_flag+1    
  576. chk3
  577.     cmp.l    curr3,d1
  578.     bne    finck    
  579.     lea fxvars3,a0
  580.     jsr clear_fx_3
  581.     bclr.b #2,fx_flag+1    
  582. finck    rts
  583.  
  584. ;*************************************
  585. ; CALL HERE ON 50hz INTERRUPT TO PLAY MUSIC/SAMPLES AND FX
  586. ; TO PLAY SAMPLE  PLACE NUMBER FROM INCLUDED LISTS INTO..fx_buffer
  587. ; TO PLAY CHIP FX CALL ABOVE ROUTINE AS DESCRIBED ABOVE
  588. ; TO SELECT WHICH PIECE OF MUSIC PLACE NUMBER FROM INCLUDED
  589. ; LIST INTO....song_buffer AND CALL select_new_song
  590. ; TO DISABLE MUSIC PLACE A 1 INTO music_disable/0 TO RENABLE
  591. ; TO DISABLE SAMPLES/FX PLACE A 1 INTO fx_disable/0 TO RENABLE
  592. ; SEE LINE FURTHER  DOWN  FOR MUSIC VOLUME CONTROL
  593. ; THERE IS NO NEED TO DISABLE THE 50hz INTERRUPT WHEN USING THE
  594. ; ABOVE FUNCTIONS
  595.  
  596. sfxdriver:
  597.         movem.l a0-a5/d0-d7,-(a7)
  598.         jsr driver
  599.         movem.l (a7)+,a0-a5/d0-d7
  600.          rts    ;YOU PROBABLY NEED TO CHANGE THIS TO RTE WHEN RUNNING
  601.         ;IT FROM THE VBI
  602.  
  603. ; *************************************
  604. driver:
  605.         tst.w int_flag
  606.         beq on_line
  607.         rts
  608. on_line       tst.w fx_disable
  609.            bne mdriver   
  610.           tst.l fx_buffer 
  611.         bne set_up_s
  612.            tst.w fx_patt_f
  613.            bne fx_in_use
  614.           bra mdriver 
  615. set_up_s
  616.            clr.w chip_fx_on
  617.           move.l fx_buffer,d0
  618.           add d0,d0
  619.           add d0,d0  
  620.           MOVE.L #PATT_TABLE,A1
  621.           move.l (a1,d0),a2 
  622. set_up_fx: 
  623.         move.l (a2)+,a1 
  624.           move.l (a2)+,fx_int 
  625.           move.l a2,fx_patt_point
  626.           clr.w curr_fx_fin
  627.           move.l (a1)+,sam_speed
  628.           move.l (a1)+,sam_end
  629.          move.l (a1)+,sam_start
  630.           move.l #0,fx_buffer
  631.          move.w #1,fx_patt_f 
  632.           jsr main_program
  633.         move.w #1,sample_flag
  634.          bra mdriver 
  635. fx_in_use:
  636.          tst.w curr_fx_fin 
  637.           beq mdriver 
  638.          move.l fx_patt_point,a2
  639.           cmpi.l #255,(a2) 
  640.           bne check_delay
  641.           clr.w fx_patt_f
  642.         move.w #0,sample_flag
  643.         jsr kill_chip
  644.           beq mdriver
  645.           bra mdriver
  646. CHECK_DELAY:     TST.L FX_INT
  647.           beq set_up_fx
  648.           sub.l #1,fx_int
  649.         bra mdriver 
  650.  
  651.  
  652. patt_table:     
  653.  
  654. max_sam    dc.l 0
  655. ;**********************************************
  656.  
  657. clear_chip:    RTS
  658. SAM_SPEED DC.L 0
  659. SAM_END DC.L 0
  660. SAM_START DC.L 0
  661. MAIN_PROGRAM:
  662. STOP_INTERUPT:
  663. super:  
  664.            move sr,d0
  665.            andi #$2000,d0
  666.            bne coldst
  667.            clr.l -(sp)
  668.            move.w #$20,-(sp)
  669.            trap #1
  670.            add.l #6,sp
  671.            lea temp,a1
  672.            MOVE.L D0,(a1)
  673. coldst:       rts
  674. user:
  675.            move.l temp,-(sp)
  676.            move.w #$20,-(sp)
  677.            trap #1
  678.            add.l #6,sp
  679.            rts
  680. interrupt:      moveq #4,d1
  681. wait2:      move.l $4ba,d6
  682. wait:          cmp.l $4ba,d6
  683.            beq wait
  684.            subq #1,d1
  685.            bne wait2
  686.            rts
  687.  
  688.  
  689. ;+++++++++++++++++++++++++++++++++++++++++++++++++
  690.  
  691. mdriver: 
  692.  
  693.         move.w #1,curr_chann
  694.         move.l #select_reg,a4
  695.         move.l #curr_mix,a5
  696.         tst.w sample_flag    
  697.         beq do1    
  698.         move.l #no_reg,a4
  699. do1: 
  700.           lea VARS1,A0 
  701.         btst.b #0,fx_flag+1
  702.         beq do1music
  703.         lea fxvars1,a0
  704.          moveq.l #0,d0 
  705.           moveq.l #1,d1 
  706.           moveq.l #8,d2 
  707.          move.b #%11110110,d7
  708.         jsr check_count_1
  709.             move.l #no_reg,a4
  710.         move.l #no_reg,a5
  711.          lea VARS1,A0 
  712.         jsr check_count_1
  713.         bra chan2
  714. do1music:
  715.         tst.l song_buffer
  716.         beq chan2
  717.         tst.w music_disable
  718.         bne chan2
  719.           moveq.l #0,d0 
  720.           moveq.l #1,d1 
  721.           moveq.l #8,d2 
  722.           move.b #%11110110,d7
  723.           jsr check_count_1
  724. ;    ******************************
  725.  
  726. chan2:
  727.         move.w #2,curr_chann
  728.           move.l #select_reg,a4
  729.         move.l #curr_mix,a5
  730.         tst.w sample_flag    
  731.         beq do2    
  732.         move.l #no_reg,a4
  733. do2          lea vars2,a0
  734.         btst.b #1,fx_flag+1
  735.         beq do2music
  736.         lea fxvars2,a0
  737.           moveq.l #2,d0
  738.           moveq.l #3,d1
  739.            moveq.l #9,d2
  740.            move.b #%11101101,d7
  741.         jsr check_count_1
  742.         move.l #no_reg,a4
  743.         move.l #no_reg,a5
  744.           lea vars2,a0
  745.             jsr check_count_1
  746.         bra chan3
  747. do2music:
  748.         tst.l song_buffer
  749.         beq chan3
  750.         tst.w music_disable
  751.         bne chan3
  752.            moveq.l #2,d0
  753.            moveq.l #3,d1
  754.            moveq.l #9,d2
  755.            move.b #%11101101,d7
  756.            jsr check_count_1
  757. chan3:
  758.         move.w #4,curr_chann
  759.         move.l #select_reg,a4
  760.         move.l #curr_mix,a5
  761.         tst.w sample_flag    
  762.         beq do3    
  763.         move.l #no_reg,a4
  764. do3           lea vars3,a0
  765.         btst.b #2,fx_flag+1
  766.         beq do3music
  767.         lea fxvars3,a0
  768.            moveq.l #4,d0
  769.            moveq.l #5,d1
  770.            moveq.l #10,d2
  771.            move.b #%11011011,d7
  772.         jsr check_count_1
  773.         move.l #no_reg,a4
  774.         move.l #no_reg,a5
  775.           lea vars3,a0
  776.         jsr check_count_1
  777.         rts
  778. do3music:
  779.         tst.l song_buffer
  780.         beq chan3
  781.         tst.w music_disable
  782.         beq dochan2
  783.         rts
  784. dochan2:
  785.            moveq.l #4,d0
  786.            moveq.l #5,d1
  787.            moveq.l #10,d2
  788.            move.b #%11011011,d7
  789.            jsr check_count_1
  790.            rts
  791. process_data:
  792. get_new_patt:      move.l 12(A0),a1 
  793.            CMPI.B #END_song,(A1) 
  794.            bne get_patt_a 
  795.            move.l 16(a0),12(a0) 
  796.            move.l 12(a0),a1 
  797. get_patt_a:
  798. song_cont_ret:
  799.            move.l (a1),4(a0) 
  800.            addq.l #4,a1
  801.            move.l a1,12(a0)
  802.            move.w #1,(a0)
  803.            bra get_new_note
  804. check_count_1:  tst.w 2(a0) 
  805.            BEQ gET_NEW_NOTE 
  806.            MOVE.W #0,ALTPf 
  807.            subq.w #1,2(a0) 
  808.            move.w 28(a0),d6 
  809.            tst.b 26(a0) 
  810.            beq octaves_on
  811.            tst.w 48(a0)
  812.            beq contbend
  813.            subq #1,48(a0)
  814.            bra octaves_on
  815. contbend:      addq #1,altpf  
  816.            clr.w d4
  817.            move.b 27(a0),d4 
  818.            move.w 42(a0),d5 
  819.            cmpi.b #2,26(a0) 
  820.            beq pbup
  821.          sub.w d4,d6
  822.            cmp.w d6,d5
  823.            bcs octaves_on
  824.            bra fbend
  825. pbup:          add.w d4,d6
  826.            cmp.w d6,d5
  827.            bcc octaves_on
  828. fbend:      move.w d5,d6
  829.            CLR.B 26(A0) 
  830. octaves_on:
  831.            cmpi.b #5,38(a0) 
  832.            bls ch_mod_on 
  833.            addq.w #1,altpf
  834.            cmpi.b #8,38(a0) 
  835.            bcc upoct
  836.            asl #1,d6  
  837.            addq.b #1,38(a0) 
  838.            bra send_altered_pitch
  839. upoct:      asr #1,d6
  840.            addq.b #1,38(a0)
  841.            cmpi.b #10,38(a0)
  842.            bne send_altered_pitch
  843.            move.b #6,38(a0) 
  844.            BRA SEND_ALTERED_PITCH
  845. ch_mod_on:
  846.            tst.b 38(a0) 
  847.            beq send_altered_pitch 
  848.            tst.w 44(a0) 
  849.            beq check_speed
  850.            subq #1,44(a0)
  851.            bra send_altered_pitch
  852. check_speed:      tst.b (a0)
  853.            beq contmod
  854.            subq.b #1,(a0)
  855.            bra send_altered_pitch
  856. contmod:
  857.            move.b 1(a0),(a0) 
  858.            addq.w #1,altpf 
  859.            cmpi.b #3,38(a0)
  860.            bcc addmod
  861.            move.w 34(a0),d4
  862.            sub.w d4,d6 
  863.            addq.b #1,38(a0) 
  864.            bra send_altered_pitch
  865. addmod:      move.w 36(a0),d4
  866.            add.w d4,d6
  867.            addq.b #1,38(a0)
  868.            cmpi.b #5,38(a0)
  869.            bne send_altered_pitch
  870.            move.b #1,38(a0) 
  871.         SEND_ALTERED_PITCH: tst.w (ALTPF)
  872.            beq send_env
  873.            move.w d6,28(a0)
  874.            move.b d1,(a4)
  875.            move.b 28(a0),2(a4)
  876.            move.b d0,(a4)
  877.            move.b 29(a0),2(a4)
  878. send_env:  
  879.            tst.w hold_val_p
  880.         beq no_hold
  881.         move.b hold_val_p,(a4)
  882.         move.b hold_val_p+1,2(a4)
  883. no_hold:
  884.            move.l 8(a0),a2
  885.            cmpi.b #255,(a2) 
  886.            bne more_env
  887.         sub.l #2,a2
  888. more_env:
  889.         move.w fx_flag,d4
  890.         and.w curr_chann,d4    
  891.         cmpi.w #0,d4
  892.         beq music_only
  893.            move.b d2,(a4)
  894.            move.b (a2)+,d5
  895.            move.b d5,2(a4) 
  896.            move.b #7,(a4) 
  897.            and.b d7,(a5)
  898.            move.b (a2)+,d2
  899.         cmpi.w #1,d4
  900.         beq cont_env
  901.         asl.b #1,d2
  902.         cmpi.w #2,d4
  903.         beq cont_env 
  904.         asl.b #1,d2
  905. cont_env:
  906.            or.b d2,(a5)
  907.            move.b (a5),2(a4)
  908.            move.l a2,8(a0)  
  909. no_more_envelope: rts
  910. music_only:
  911.   CMP.B #$2f,$FFFC02    ; check `v` key for music volume change
  912.         bne no_vol_change    
  913.         subq.w #1,vol_count
  914.         tst.w vol_count
  915.         bne no_vol_change
  916.         move.w #50,vol_count    
  917.         subq.b #1,curr_comp
  918.         bcc no_vol_change
  919.         move.b #13,curr_comp
  920. no_vol_change
  921.            move.b d2,(a4)
  922.            move.b (a2)+,d5
  923.            sub.b curr_comp,d5 
  924.            move.b d5,2(a4) 
  925.            move.b #7,(a4) 
  926.            and.b d7,(a5)
  927.            move.b (a2)+,d2
  928.            or.b d2,(a5)
  929.            move.b (a5),2(a4)
  930.            move.l a2,8(a0)  
  931.          rts
  932. get_new_note:     move.l 4(a0),a1
  933.            move.w 46(a0),44(a0)
  934. CONTROL_RET:
  935.            clr.l d3
  936.            move.b (a1)+,d3 
  937.            cmpi.b #m,d3  
  938.            beq control_char 
  939.            cmpi.b #253,d3
  940.            beq do_rest
  941. legal_note:
  942.             tst.b 78(a0)
  943.              bne noretrigg
  944.             move.l 20(a0),8(a0) 
  945. noretrigg
  946.            jsr send_env
  947.            move.b d1,(a4) 
  948.            move.b d3,2(a4) 
  949.            move.b d3,28(a0) 
  950.            move.b d0,(a4)
  951.            move.b (a1),29(a0) 
  952.            move.b (a1)+,2(a4)
  953.            move.w (a1)+,2(a0) 
  954.            subq #1,2(a0) 
  955.            move.l a1,4(a0) 
  956.            rts
  957. do_rest:
  958.          move.b d2,(a4)
  959.           clr.b 2(a4) 
  960.           move.l #restenv,8(a0)  
  961.           addq #1,a1
  962.            move.w (a1)+,2(a0)
  963.            subq #1,2(a0)
  964. in_line_ret
  965.            move.l a1,4(a0)
  966.            rts
  967. drum_chan:
  968.            move.l 20(a0),8(a0) 
  969.            jsr send_env
  970.            move.b #6,(a4)
  971.            move.b (a1)+,2(a4) 
  972.            move.w (a1)+,2(a0) 
  973.            subq #1,2(a0) 
  974.            move.l a1,4(a0) 
  975.            rts
  976. restenv:      dc.b 0,0,255
  977.    even
  978. control_char:
  979.            move.b (a1),d3 
  980.           move.l #jumptable,a2
  981.           MOVE.L (A2,D3),A3
  982.           jmp (a3)
  983. jumptable:
  984.            dc.l get_new_patt
  985.            dc.l get_env
  986.            dc.l do_sound
  987.            dc.l check_pbend
  988.            dc.l modulation
  989.            dc.l set_octaves
  990.            dc.l do_modoff
  991.            dc.l do_bend_off
  992.            dc.l do_inline
  993.            dc.l do_end_fx
  994.            dc.l hold_val
  995.            dc.l do_hold_off
  996.         dc.l do_repeat
  997.  
  998. get_env:      addq #1,a1
  999.         move.b (a1),78(a0)
  1000.         addq #2,a1
  1001.            move.l (a1),20(a0) 
  1002.            addq #4,a1  
  1003.            bra control_ret
  1004. do_sound:
  1005.            nop     
  1006.            nop 
  1007. check_pbend:
  1008.           addq #1,a1
  1009.           MOVE.W (A1)+,26(A0) 
  1010.           move.w (a1)+,42(a0) 
  1011.           move.w (a1)+,48(a0) 
  1012.           bra control_ret
  1013. modulation:
  1014.           addq #1,a1
  1015.           MOVE.W (A1)+,(A0)
  1016.           move.l (a1)+,34(a0) 
  1017.           MOVE.W (A1),44(A0) 
  1018.           move.w (a1)+,46(a0) 
  1019.           move.b #2,38(a0) 
  1020.           bra control_ret
  1021. set_octaves:
  1022.           addq #1,a1
  1023.           move.b #9,38(a0) 
  1024.           bra control_ret
  1025. do_modoff:      clr.b 38(a0)
  1026.           addq #1,a1
  1027.           bra control_ret
  1028. do_bend_off:     addq #1,a1
  1029.           clr.b 26(a0)
  1030.           bra control_ret
  1031. do_inline:
  1032.          addq.l  #1,a1
  1033.  
  1034. in_loop
  1035.          cmpi.b #255,(a1)
  1036.          beq fin_in
  1037.          cmpi.b #254,(a1)
  1038.          beq fin_in1
  1039.         move.b (a1)+,(a4)
  1040.         move.b (a1)+,2(a4)
  1041.         bra in_loop 
  1042. fin_in
  1043.         addq  #2,a1
  1044.         bra control_ret
  1045.     
  1046. fin_in1
  1047.         addq  #2,a1
  1048.         bra in_line_ret
  1049.  
  1050.  
  1051. hold_val:
  1052.         addq #1,a1
  1053.         move.w (a1)+,hold_val_p
  1054.         bra control_ret
  1055.  
  1056. do_repeat:
  1057.         addq.l #1,a1
  1058.         move.l (a1)+,d3
  1059.         move.l d3,a1
  1060.         bra control_ret
  1061.  
  1062. do_hold_off:
  1063.         move.w #0,hold_val_p
  1064.         addq #1,a1
  1065.         bra control_ret
  1066. do_end_fx:
  1067.  
  1068.         move.b d2,(a4)
  1069.          move.b #0,2(a4) 
  1070.  
  1071.         cmpi.w #1,curr_chann    
  1072.         bne efx2
  1073.         bclr.b #0,fx_flag+1
  1074. clear_fx_1    move.l #19,d0
  1075. clear_loop1:    move.l #0,(a0)+    
  1076.         dbra d0,clear_loop1
  1077.         rts 
  1078. efx2:        cmpi.w #2,curr_chann    
  1079.         bne efx3
  1080.         bclr.b #1,fx_flag+1
  1081. clear_fx_2        move.l #19,d0
  1082. clear_loop2:    move.l #0,(a0)+    
  1083.         dbra d0,clear_loop2
  1084.         rts
  1085. efx3:        bclr.b #2,fx_flag+1
  1086. clear_fx_3        move.l #19,d0
  1087. clear_loop3:    move.l #0,(a0)+    
  1088.         dbra d0,clear_loop3
  1089.         rts
  1090.            even
  1091. vars1:
  1092.            dc.w 0  
  1093. intc1:      dc.w 0
  1094. pattr1:      dc.l 0
  1095.            dc.l 0
  1096. songr1:      dc.l 0
  1097. wsong1:      dc.l 0
  1098.            dc.l 0
  1099.            dc.b 0,0
  1100.            dc.b 0,0
  1101.            dc.w 0
  1102.            dc.l 0
  1103.            dc.l 0
  1104.            dc.b 0,0
  1105.            dc.w 0
  1106.            dc.w 0
  1107.            dc.w 0
  1108.            dc.w 0
  1109.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1110. vars2:
  1111.            dc.w 0
  1112. intc2:      dc.w 0
  1113. pattr2:      dc.l 0
  1114.            dc.l 0
  1115. songr2:      dc.l 0
  1116. wsong2:      dc.l 0
  1117.            dc.l 0
  1118.            dc.b 0,0
  1119.            dc.b 0,0
  1120.            dc.w 0
  1121.            dc.l 0
  1122.            dc.l 0
  1123.            dc.b 0,0
  1124.            dc.w 0
  1125.            dc.w 0
  1126.            dc.w 0
  1127.            dc.w 0
  1128.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1129. vars3:
  1130.            dc.w 0
  1131. intc3:       dc.w 0
  1132. pattr3:      dc.l 0
  1133.            dc.l 0
  1134. songr3:      dc.l 0
  1135. wsong3:      dc.l 0
  1136.            dc.l 0
  1137.            dc.b 0,0
  1138.            dc.b 0,0
  1139.            dc.w 0
  1140.            dc.l 0
  1141.            dc.l 0
  1142.            dc.b 0,0
  1143.            dc.w 0
  1144.            dc.w 0
  1145.            dc.w 0
  1146.            dc.w 0
  1147.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1148. fxvars1:
  1149.            dc.w 0  
  1150. fxintc1:      dc.w 0
  1151. fxpattr1:      dc.l 0
  1152.            dc.l 0
  1153. fxsongr1:      dc.l 0
  1154. fxwsong1:      dc.l 0
  1155.            dc.l 0
  1156.            dc.b 0,0
  1157.            dc.b 0,0
  1158.            dc.w 0
  1159.            dc.l 0
  1160.            dc.l 0
  1161.            dc.b 0,0
  1162.            dc.w 0
  1163.            dc.w 0
  1164.            dc.w 0
  1165.            dc.w 0
  1166.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1167. fxvars2:
  1168.            dc.w 0
  1169. fxintc2:      dc.w 0
  1170. fxpattr2:      dc.l 0
  1171.            dc.l 0
  1172. fxsongr2:      dc.l 0
  1173. fxwsong2:      dc.l 0
  1174.            dc.l 0
  1175.            dc.b 0,0
  1176.            dc.b 0,0
  1177.            dc.w 0
  1178.            dc.l 0
  1179.            dc.l 0
  1180.            dc.b 0,0
  1181.            dc.w 0
  1182.            dc.w 0
  1183.            dc.w 0
  1184.            dc.w 0
  1185.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1186. fxvars3:
  1187.            dc.w 0
  1188. fxintc3:       dc.w 0
  1189. fxpattr3:      dc.l 0
  1190.            dc.l 0
  1191. fxsongr3:      dc.l 0
  1192. fxwsong3:      dc.l 0
  1193.            dc.l 0
  1194.            dc.b 0,0
  1195.            dc.b 0,0
  1196.            dc.w 0
  1197.            dc.l 0
  1198.            dc.l 0
  1199.            dc.b 0,0
  1200.            dc.w 0
  1201.            dc.w 0
  1202.            dc.w 0
  1203.            dc.w 0
  1204.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1205.  
  1206. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1207.  
  1208.  
  1209. HERExx
  1210. song_table:
  1211.  
  1212.  
  1213.  
  1214.     dc.l song1,song2,song3
  1215.     dc.l song4,song5,song6
  1216.     dc.l song7,song8,song9
  1217.  
  1218.     dc.l song10,song11,song12
  1219.     dc.l song13,song14,song15
  1220.     dc.l song16,song17,song18
  1221.  
  1222.  
  1223.  
  1224. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1225.  
  1226.     EVEN
  1227. chfx_table:
  1228.  
  1229.     dc.l wb_splash
  1230.     dc.l wbhit_award
  1231.     dc.l glider_sea_crash
  1232.     dc.l glider_fall_cliff
  1233.     dc.l glider_hit_cliff
  1234.     dc.l glider_hit_beach
  1235.     dc.l wave      ;(looped)
  1236.     dc.l heli_start
  1237.     dc.l heli_fly
  1238.     dc.l heli_crash
  1239.     dc.l drop_skier
  1240.     dc.l chute_open
  1241.     dc.l hit_ground
  1242.     dc.l land_on_snow
  1243.     dc.l skier_crash
  1244.     dc.l skier_turn
  1245.     dc.l clock
  1246.     dc.l last_fall_alarm
  1247.     dc.l cfootstep1
  1248.     dc.l cfootstep2
  1249.     dc.l jumpp
  1250.     dc.l hit_water
  1251.     dc.l swim_splash
  1252.     dc.l swave
  1253.     dc.l board_turn
  1254.     dc.l board_splat
  1255.     dc.l time_bonus
  1256.     dc.l time_out_siren
  1257.  
  1258.  
  1259. ;**********************************************
  1260.     even
  1261.  
  1262.  
  1263. wb_splash:
  1264.                            dc.b      m,new_env,trigg,0
  1265.                            dc.l      wbs_env
  1266.             dc.b    M,inline,6,31,255,0
  1267.             dc.w    0,1
  1268.             dc.b    m,inline,6,3,254,0
  1269.             DC.B    M,inline,6,30,254,0
  1270.             dc.b    m,inline,6,7,254,0
  1271.             dc.b    m,inline,6,22,254,0
  1272.             DC.w    0,2
  1273.               dc.b     m,modon,2,2
  1274.               dc.w     8,8,1
  1275.                            dc.b      m,new_env,trigg,0
  1276.                            dc.l      wbs_env
  1277.             DC.w    20,40
  1278.             dc.b    m,inline,6,200,254,0
  1279.             dc.b    m,endfx_patt
  1280.  
  1281.     even
  1282.  
  1283. wbs_env:    dc.b 12,n1,12,n1,13,n1,14,n1,15,n1,15,n1,15,n1
  1284.         dc.b 15,n1,15,n1,13,n1,14,n1,14,n1,15,n1,14,n1,14,n1,13,n1,12,n1
  1285.         dc.b 13,n1,12,n1,12,n1,11,n1,10,n1,9,n1,8,n1,7,n1,7,n1,7,n1
  1286.         dc.b 6,n1,6,n1,5,n1,5,n1,5,n1,4,n1,3,n1,2,n1,2,n1,2,n1
  1287.         DC.B 0,N1,255
  1288.  
  1289.  
  1290.     even
  1291.  
  1292. *********************************
  1293.     even
  1294.  
  1295. wbhit_award
  1296.                            dc.b      m,new_env,trigg,0
  1297.                            dc.l      wbaward_env
  1298.  
  1299.     dc.w    c05,1,db05,1,d05,1,eb05,1,e05,1
  1300.     dc.w    f05,1,gb05,1,g05,1,ab05,1,a05,1
  1301.     dc.w    bb05,1,b05,1
  1302.     dc.w    c06,1,db06,1,d06,1,eb06,1,e06,1
  1303.     dc.w    f06,1,gb06,1,g06,1,ab06,1,a06,1
  1304.     dc.w    bb06,1,b06,1
  1305.       dc.b     m,endfx_patt
  1306.  
  1307. wbaward_env    
  1308.         dc.b 14,t1,4,t1,255,0
  1309.  
  1310.     EVEN
  1311.  
  1312. glider_sea_crash:
  1313.                            dc.b      m,new_env,trigg,0
  1314.                            dc.l      gsc_env
  1315.             dc.b    M,inline,6,31,255,0
  1316.             dc.w    0,1
  1317.             dc.b    m,inline,6,30,254,0
  1318.             DC.B    M,inline,6,30,254,0
  1319.             dc.b    m,inline,6,23,254,0
  1320.             dc.b    m,inline,6,22,254,0
  1321.             DC.w    0,2
  1322.               dc.b     m,modon,2,2
  1323.               dc.w     8,8,1
  1324.                            dc.b      m,new_env,trigg,0
  1325.                            dc.l      gsc_env
  1326.             DC.w    20,50
  1327.             dc.b    m,inline,6,200,254,0
  1328.             dc.b    m,endfx_patt
  1329.  
  1330.     even
  1331. gsc_env:    dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1
  1332.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,N1,15,N1
  1333.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  1334.         dc.b 12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1
  1335.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1
  1336.         dc.b 8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1
  1337.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1338.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1339.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1340.         DC.B 0,N1,255
  1341.  
  1342. *********************8
  1343.     even
  1344. glider_fall_cliff:    
  1345.                            dc.b   m,new_env,trigg,0
  1346.                            dc.l   gfc_env
  1347.             ;dc.b   m,modon,1,1
  1348.             ;dc.w   5,5,1
  1349.                         dc.b   m,pbend,down,1
  1350.                         dc.w   C02,0
  1351.             dc.w   C04,cr*3
  1352.             DC.B    M,inline,6,200,255,0
  1353.                            dc.b   m,endfx_patt
  1354.  
  1355.  
  1356. gfc_env:    dc.b 15,t1,15,t1,15,t1,15,t1,15,t1,15,t1,15,t1
  1357.         dc.b 15,t1,15,t1,15,t1,15,t1,15,t1,15,t1,15,t1,15,t1,15,t1
  1358.         dc.b 14,t1,14,t1,14,t1,14,t1,14,t1,14,t1,14,t1,14,t1,14,t1,14,t1
  1359.         dc.b 12,t1,12,t1,12,t1,12,t1,12,t1,12,t1,12,t1,12,t1,12,t1,12,t1
  1360.         dc.b 10,t1,10,t1,10,t1,10,t1,10,t1,10,t1,10,t1,10,t1,10,t1,10,t1
  1361.         dc.b 8,t1,8,t1,8,t1,8,t1,8,t1,8,t1,8,t1,8,t1,8,t1,8,t1
  1362.         dc.b 6,t1,6,t1,6,t1,6,t1,6,t1,6,t1,6,t1,6,t1,6,t1,6,t1
  1363.         dc.b 4,t1,4,t1,4,t1,4,t1,4,t1,4,t1,4,t1,4,t1,4,t1,4,t1
  1364.         dc.b 2,t1,2,t1,2,t1,2,t1,2,t1,2,t1,2,t1,2,t1,2,t1,2,t1
  1365.         DC.B 0,b1,255
  1366.  
  1367. ************************************
  1368.     even
  1369. glider_hit_cliff:    
  1370.                            dc.b   m,new_env,trigg,0
  1371.                            dc.l   ghc_env
  1372.  
  1373.             DC.B    M,inline,6,31,255,0
  1374.  
  1375.                         dc.b   m,pbend,down,200
  1376.                         dc.w   C01,0
  1377.             dc.w   C05,7
  1378.             DC.B    M,inline,6,200,255,0
  1379.                            dc.b   m,endfx_patt
  1380.  
  1381. ghc_env        dc.b 15,n1,14,n1,13,t1,12,t1,10,t1
  1382.             dc.b 9,t1,8,t1,0,t1,255,0
  1383.  
  1384. ************************************
  1385.     even
  1386.  
  1387. glider_hit_beach:
  1388.                            dc.b      m,new_env,trigg,0
  1389.                            dc.l      ghb_env
  1390.             dc.b    M,inline,6,31,255,0
  1391.             dc.w    0,1
  1392.             dc.b    m,inline,6,30,254,0
  1393.             DC.B    M,inline,6,30,254,0
  1394.             dc.b    m,inline,6,23,254,0
  1395.             dc.b    m,inline,6,32,254,0
  1396.             DC.w    0,6
  1397.                          dc.b      m,new_env,trigg,0
  1398.                            dc.l      ghb_env
  1399.             DC.w    0,30
  1400.             dc.b    m,inline,6,200,254,0
  1401.             dc.b    m,endfx_patt
  1402.  
  1403. ghb_env:    dc.b 15,b1,14,b1,13,b1,12,n1,11,b1,7,n1,7,b1
  1404.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,b1,6,n1,6,n1
  1405.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,b1,4,n1,4,n1,4,n1,4,n1
  1406.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,b1,2,n1,2,n1,2,n1,2,n1
  1407.         DC.B 0,N1,255
  1408.  
  1409.  
  1410.  
  1411.         even
  1412.  
  1413. ********************************
  1414.  
  1415.  
  1416.  
  1417. wave
  1418.             DC.B    M,inline,6,12,255,0
  1419. wrp                           dc.b      m,new_env,trigg,0
  1420.                            dc.l      wave_env
  1421.                        dc.w    0,cr*8
  1422.  
  1423.                            dc.b      m,new_env,trigg,0
  1424.                            dc.l      wave_env
  1425.                        dc.w    0,cr*7
  1426.  
  1427.                            dc.b      m,new_env,trigg,0
  1428.                            dc.l      wave_env
  1429.                        dc.w    0,cr*6
  1430.  
  1431.                            dc.b      m,new_env,trigg,0
  1432.                            dc.l      wave_env
  1433.                        dc.w    0,cr*8
  1434.  
  1435.             dc.b m,r
  1436.             dc.l wrp
  1437.  
  1438.                            dc.B    m,endfx_patt    
  1439.  
  1440.  
  1441. wave_env:    dc.b 1,n1,2,n1,2,n1,2,n1,3,n1,3,n1,3,n1
  1442.         dc.b 4,n1,4,n1,4,n1,5,n1,5,n1,5,n1,5,n1,6,n1,6,n1
  1443.         dc.b 6,n1,7,n1,7,n1,7,n1,8,n1,8,n1,8,n1,9,n1,10,n1,10,n1
  1444.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,11,n1,11,n1,11,n1,11,n1,11,n1
  1445.         dc.b 11,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,13,n1,13,n1,13,n1
  1446.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,15,n1,15,n1,15,n1,15,n1
  1447.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,N1
  1448.         DC.B 15,n1
  1449.  
  1450.  
  1451.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1
  1452.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1
  1453.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  1454.         dc.b 12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1
  1455.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1
  1456.         dc.b 8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1
  1457.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1458.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1459.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1460.         DC.B 0,n1,255
  1461.  
  1462. ***********************************8
  1463.     even
  1464.  
  1465. heli_start
  1466.  
  1467.  
  1468.  
  1469.                            dc.b      m,new_env,trigg,0
  1470.                            dc.l      hse_env
  1471.             dc.b    M,inline,6,31,255,0
  1472.             dc.w    0,1
  1473.             dc.b    m,inline,6,30,254,0
  1474.             DC.B    M,inline,6,30,254,0
  1475.             dc.b    m,inline,6,23,254,0
  1476.             dc.b    m,inline,6,22,254,0
  1477.             DC.w    0,2
  1478.               dc.b     m,modon,2,2
  1479.               dc.w     8,8,1
  1480.                            dc.b      m,new_env,trigg,0
  1481.                            dc.l      hse_env
  1482.             DC.w    20,40
  1483.             dc.b    m,inline,6,200,254,0
  1484.  
  1485. HELI_STARTR
  1486.                            dc.b      m,new_env,trigg,0
  1487.                            dc.l      boomer_env1
  1488.             DC.B    M,inline,6,20,255,0
  1489.             dc.w   0,3
  1490.  
  1491.                            dc.b      m,new_env,trigg,0
  1492.                            dc.l      boomer_env2
  1493.             DC.B    M,inline,6,15,255,0
  1494.             dc.w   0,3
  1495.  
  1496.                            dc.b      m,new_env,trigg,0
  1497.                            dc.l      boomer_env3
  1498.             DC.B    M,inline,6,12,255,0
  1499.             dc.w   0,3
  1500.  
  1501.                            dc.b      m,new_env,trigg,0
  1502.                            dc.l      boomer_env4
  1503.             DC.B    M,inline,6,1,255,0
  1504.             dc.w   0,3
  1505.  
  1506.  
  1507.             dc.b    m,r
  1508.             dc.l    heli_startR
  1509.  
  1510.                            dc.B    m,endfx_patt    
  1511.  
  1512.  
  1513. boomer_env1    
  1514.         dc.b 5,n1,6,n1,255,0
  1515. boomer_env2    
  1516.         dc.b 6,n1,7,n1,255,0
  1517. boomer_env3    
  1518.         dc.b 10,n1,12,n1,255,0
  1519. boomer_env4    
  1520.         dc.b 12,n1,13,n1,255,0
  1521.  
  1522. hse_env:    dc.b 15,n1,14,n1,13,b1,12,n1,11,n1,10,n1,7,n1
  1523.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1524.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  1525.         dc.b 12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1
  1526.         DC.B 10,N1,255
  1527.  
  1528.  
  1529.  
  1530.  
  1531.  
  1532. **********************************
  1533.  
  1534.     even
  1535. heli_fly
  1536.  
  1537.                            dc.b   m,new_env,trigg,0
  1538.                            dc.l   heli_env
  1539.             ;dc.b    m,octaves
  1540.             DC.B    M,inline,6,9,255,0
  1541.  
  1542. h_rpt                  
  1543.             ;dc.b   m,pbend,down,200
  1544.                         ;dc.w   C01,0
  1545.             dc.w   C07,4
  1546.             dc.b    m,r
  1547.             dc.l    heli_fly
  1548.  
  1549.             DC.B    M,inline,6,200,255,0
  1550.                           dc.b   m,endfx_patt
  1551.  
  1552.  
  1553. heli_env        dc.b 13,t1,14,n1,13,n1,12,n1,10,n1
  1554.             dc.b 9,n1,8,n1,0,n1,255,0
  1555.  
  1556.  
  1557. *******************************
  1558.  
  1559.     even
  1560.  
  1561. heli_crash:
  1562.                            dc.b      m,new_env,trigg,0
  1563.                            dc.l      hc_env
  1564.             dc.b    M,inline,6,31,254,0
  1565.             dc.w    0,10
  1566.             dc.b    m,inline,6,30,254,0
  1567.             DC.B    M,inline,6,30,254,0
  1568.             dc.b    m,inline,6,29,254,0
  1569.             dc.b    m,inline,6,28,254,0
  1570.             dc.b    m,inline,6,27,254,0
  1571.             dc.b    m,inline,6,26,254,0
  1572.             dc.b    m,inline,6,25,254,0
  1573.             dc.b    m,inline,6,24,254,0
  1574.             dc.b    m,inline,6,23,254,0
  1575.             dc.b    m,inline,6,22,254,0
  1576.             DC.w    0,3
  1577.               dc.b     m,modon,2,2
  1578.               dc.w     8,8,1
  1579.                            dc.b      m,new_env,trigg,0
  1580.                            dc.l      hc_env
  1581.             DC.w    20,60
  1582.             dc.b    m,inline,6,200,254,0
  1583.             dc.b    m,endfx_patt
  1584.  
  1585.     even
  1586. hc_env:    dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1
  1587.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,N1,15,N1
  1588.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  1589.         dc.b 12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1
  1590.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1
  1591.         dc.b 8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1
  1592.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1593.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1594.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1595.         DC.B 0,N1,255
  1596.  
  1597. ******************************************
  1598.     even
  1599.  
  1600. drop_skier
  1601.                            dc.b      m,new_env,trigg,0
  1602.                            dc.l      dsk_env
  1603.  
  1604.     dc.w    c06,1,b05,2,bb05,1,a05,1,ab05,1
  1605.     dc.w    g05,1,gb05,1,f05,1,eb05,1,eb05,1
  1606.     dc.w    d05,1,db05,1
  1607.     dc.w    c05,1,b04,2,bb04,1,a04,1,ab04,1
  1608.     dc.w    g04,1,gb04,1,f04,1,eb04,1,eb04,1
  1609.     dc.w    d03,1,db03,1
  1610.       dc.b     m,endfx_patt
  1611.  
  1612. dsk_env    
  1613.         dc.b 14,t1,4,t1,255,0
  1614.  
  1615. *********************************
  1616.  
  1617. chute_open:
  1618.             dc.b    m,inline,6,5,254,0
  1619.                            dc.b      m,new_env,trigg,0
  1620.                            dc.l      co_env
  1621.             DC.w    20,12
  1622.             dc.b    m,inline,6,200,254,0
  1623.             dc.b    m,endfx_patt
  1624.  
  1625. co_env:    dc.b 3,n1,4,n1,5,n1,6,n1,7,n1,8,n1,9,n1
  1626.         dc.b 10,n1,10,n1,11,n1,11,n1,12,n1,12,n1,13,n1,13,n1,14,n1,14,n1
  1627.         dc.b 15,n1,15,n1,15,n1,255,0
  1628.  
  1629.     EVEN
  1630.  
  1631. ***************************************
  1632. hit_ground:    
  1633.                            dc.b   m,new_env,trigg,0
  1634.                            dc.l   hitg_env
  1635.  
  1636.             DC.B    M,inline,6,31,255,0
  1637.  
  1638.                         dc.b   m,pbend,down,200
  1639.                         dc.w   C01,0
  1640.             dc.w   C05,7
  1641.             DC.B    M,inline,6,200,255,0
  1642.                            dc.b   m,endfx_patt
  1643.  
  1644. hitg_env        dc.b 15,b1,14,n1,13,t1,12,t1,10,t1
  1645.             dc.b 9,t1,8,t1,0,t1,255,0
  1646.  
  1647. **************************************
  1648.     even
  1649.  
  1650. land_on_snow:
  1651.                            dc.b      m,new_env,trigg,0
  1652.                            dc.l      los_env
  1653.             dc.b    M,inline,6,31,255,0
  1654.             dc.w    0,1
  1655.             dc.b    m,inline,6,30,254,0
  1656.             DC.B    M,inline,6,30,254,0
  1657.             dc.b    m,inline,6,23,254,0
  1658.             dc.b    m,inline,6,22,254,0
  1659.             DC.w    0,2
  1660.                            dc.b      m,new_env,trigg,0
  1661.                            dc.l      los_env
  1662.             DC.w    20,27
  1663.             dc.b    m,inline,6,200,254,0
  1664.             dc.b    m,endfx_patt
  1665.  
  1666.     even
  1667.  
  1668. los_env:    dc.b 6,n1,7,n1,8,n1,9,n1,10,n1,12,n1,13,n1
  1669.         dc.b 12,n1,13,n1,13,n1,12,n1,11,n1,10,n1,9,n1,8,n1,7,n1,6,n1
  1670.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1671.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1672.         DC.B 0,N1,255
  1673.  
  1674.  
  1675.  
  1676.  
  1677. ************************************
  1678.     even
  1679.  
  1680.  
  1681. skier_crash:
  1682.                            ;dc.b      m,new_env,trigg,0
  1683.                            ;dc.l      sc2_env
  1684.             ;dc.b    M,inline,6,31,255,0
  1685.             ;dc.w    0,1
  1686.             ;dc.b    m,inline,6,30,254,0
  1687.             ;DC.B    M,inline,6,30,254,0
  1688.             ;dc.b    m,inline,6,23,254,0
  1689.             dc.b    m,inline,6,5,254,0
  1690.             ;DC.w    0,2
  1691.               ;dc.b     m,modon,2,2
  1692.               ;dc.w     8,8,1
  1693.                            dc.b      m,new_env,trigg,0
  1694.                            dc.l      sc2_env
  1695.             DC.w    20,12
  1696.             dc.b    m,inline,6,200,254,0
  1697.             dc.b    m,endfx_patt
  1698.  
  1699.     even
  1700. sc2_env:    dc.b 15,n1,14,n1,13,n1,12,n1,11,n1,10,n1,7,n1
  1701.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1702.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1703.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1704.         DC.B 0,N1,255
  1705.  
  1706. *********************************************
  1707.     even
  1708.  
  1709.  
  1710. skier_turn:
  1711.                            dc.b      m,new_env,trigg,0
  1712.                            dc.l      skt_env
  1713.             dc.b    M,inline,6,31,255,0
  1714.             dc.w    0,1
  1715.             dc.b    m,inline,6,3,254,0
  1716.             DC.B    M,inline,6,30,254,0
  1717.             dc.b    m,inline,6,7,254,0
  1718.             dc.b    m,inline,6,22,254,0
  1719.             DC.w    0,2
  1720.               dc.b     m,modon,2,2
  1721.               dc.w     8,8,1
  1722.                            dc.b      m,new_env,trigg,0
  1723.                            dc.l      skt_env
  1724.             DC.w    20,20
  1725.             dc.b    m,inline,6,200,254,0
  1726.             dc.b    m,endfx_patt
  1727.  
  1728.     even
  1729.  
  1730. skt_env:    dc.b 6,n1,7,n1,8,n1,9,n1,10,n1,12,n1,11,n1
  1731.         dc.b 12,n1,12,n1,13,n1,13,n1,14,n1,12,n1,12,n1,11,n1,7,n1,6,n1
  1732.         dc.b 9,n1,8,n1,7,n1,6,n1,5,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1733.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1734.         DC.B 0,N1,255
  1735.  
  1736. *****************************************************
  1737.      even
  1738.  
  1739. clock:
  1740.                            dc.b      m,new_env,trigg,0
  1741.                            dc.l      clock_env
  1742. clockr            dc.w    A05,3,rest,26  ;this number (26)
  1743.                            ;controls speed of clock
  1744.                            ;ie smaller = faster
  1745.             dc.b m,r
  1746.             dc.l clockr
  1747.  
  1748.                            dc.B    m,endfx_patt
  1749.  
  1750. clock_env:    dc.b 15,t1,0,t1,12,t1,255,0
  1751.  
  1752.     EVEN
  1753. *******************
  1754.     even
  1755. last_fall_alarm:    
  1756.                            dc.b      m,new_env,trigg,0
  1757.                            dc.l      lfa_env
  1758.               dc.b     m,modon,3,3
  1759.               dc.w     24,24,1
  1760.               dc.b     m,pbend,up,20
  1761.               dc.w     B06,0
  1762.             dc.w    g05,cr*2
  1763.             DC.B    M,inline,6,200,255,0
  1764.             dc.b    m,endfx_patt
  1765.  
  1766. lfa_env    dc.b    12,t1,255,0
  1767.  
  1768.     even
  1769.  
  1770. ***************************
  1771.  
  1772.     even
  1773. cfootstep1:
  1774.             dc.b    M,inline,6,25,255,0
  1775.                            dc.b      m,new_env,trigg,0
  1776.                            dc.l      cf1_env
  1777.             dc.w    A02,2
  1778.             dc.b    m,inline,6,200,254,0
  1779.  
  1780.                            dc.B    m,endfx_patt
  1781.  
  1782. cf1_env:    dc.b 12,b1,6,b1,255,0
  1783.  
  1784.  
  1785.     even
  1786. cfootstep2:
  1787.             dc.b    M,inline,6,31,255,0
  1788.                            dc.b      m,new_env,trigg,0
  1789.                            dc.l      cf1_env
  1790.             dc.w    A01,2
  1791.             dc.b    m,inline,6,200,254,0
  1792.  
  1793.                            dc.B    m,endfx_patt
  1794.  
  1795.     even
  1796. **********************
  1797. ;------------------------------
  1798. jumpp
  1799.     dc.b    m,new_env,trigg,0
  1800.     dc.l    jumpp_env1
  1801.     dc.b    M,inline,6,8,255,0
  1802.  
  1803.         dc.b   m,pbend,up,25
  1804.         dc.w   1,0
  1805.     dc.w    C03,2,c03,2,C03,2,C03,2
  1806.     dc.b    m,new_env,trigg,0
  1807.     dc.l    cspring_env
  1808.     dc.w    c03,10
  1809.     dc.b    m,endfx_patt
  1810.  
  1811. jumpp_env1    dc.b 15,t1,8,n1,255,0
  1812. cspring_env    dc.b 15,t1,15,t1,15,t1,14,t1,13,t1,12,t1,11,t1,10,t1,255,0
  1813.  
  1814. ****************************
  1815.  
  1816.     even
  1817.  
  1818. hit_water:
  1819.                            dc.b      m,new_env,trigg,0
  1820.                            dc.l      cds_env
  1821.             dc.b    M,inline,6,31,255,0
  1822.             dc.w    0,1
  1823.             dc.b    m,inline,6,30,254,0
  1824.             DC.B    M,inline,6,30,254,0
  1825.             dc.b    m,inline,6,23,254,0
  1826.             dc.b    m,inline,6,22,254,0
  1827.             DC.w    0,2
  1828.               dc.b     m,modon,2,2
  1829.               dc.w     8,8,1
  1830.                            dc.b      m,new_env,trigg,0
  1831.                            dc.l      csss_env
  1832.             DC.w    20,20
  1833.             dc.b    m,inline,6,200,254,0
  1834.             dc.b    m,endfx_patt
  1835.  
  1836.     even
  1837.  
  1838. cds_env:        dc.b 10,n1,11,n1,12,n1,12,n1,12,n1,12,n1,13,n1
  1839.         dc.b 14,n1,15,n1,14,n1,13,n1,12,n1,11,n1,10,n1,9,n1,8,n1,7,n1
  1840.         dc.b 6,n1,5,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1841.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1842.         DC.B 0,N1,255
  1843.  
  1844.     even
  1845. csss_env:    dc.b 6,n1,7,n1,8,N1,9,n1,10,n1,12,n1,11,n1
  1846.         dc.b 10,n1,10,n1,9,n1,9,n1,9,n1,9,n1,8,n1,8,n1,7,n1,6,n1
  1847.         dc.b 5,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1848.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1849.         DC.B 0,N1,255
  1850.  
  1851. *******************************
  1852.  
  1853.     even
  1854.  
  1855.  
  1856. swim_splash:
  1857.                            dc.b      m,new_env,trigg,0
  1858.                            dc.l      csss_env
  1859.             dc.b    M,inline,6,31,255,0
  1860.             dc.w    0,1
  1861.             ;dc.b    m,inline,6,30,254,0
  1862.             ;DC.B    M,inline,6,30,254,0
  1863.             ;dc.b    m,inline,6,23,254,0
  1864.             dc.b    m,inline,6,22,254,0
  1865.             DC.w    0,2
  1866.               dc.b     m,modon,2,2
  1867.               dc.w     8,8,1
  1868.                            dc.b      m,new_env,trigg,0
  1869.                            dc.l      csss_env
  1870.             DC.w    20,20
  1871.             dc.b    m,inline,6,200,254,0
  1872.             dc.b    m,endfx_patt
  1873.  
  1874.     even
  1875.  
  1876. *********************************
  1877.  
  1878.  
  1879.  
  1880. swave
  1881.             DC.B    M,inline,6,12,255,0
  1882.                            dc.b      m,new_env,trigg,0
  1883.                            dc.l      swave_env
  1884.                        dc.w    0,cr*8
  1885.                            dc.B    m,endfx_patt    
  1886.  
  1887.  
  1888. swave_env:    dc.b 1,n1,2,n1,2,n1,2,n1,3,n1,3,n1,3,n1
  1889.         dc.b 4,n1,4,n1,4,n1,5,n1,5,n1,5,n1,5,n1,6,n1,6,n1
  1890.         dc.b 6,n1,7,n1,7,n1,7,n1,8,n1,8,n1,8,n1,9,n1,10,n1,10,n1
  1891.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,11,n1,11,n1,11,n1,11,n1,11,n1
  1892.         dc.b 11,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,13,n1,13,n1,13,n1
  1893.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,15,n1,15,n1,15,n1,15,n1
  1894.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,N1
  1895.         DC.B 15,n1
  1896.  
  1897.  
  1898.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1
  1899.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1
  1900.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  1901.         dc.b 12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1
  1902.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1
  1903.         dc.b 8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1
  1904.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1905.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1906.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1907.         DC.B 0,n1,255
  1908.  
  1909. ***********************************8
  1910.     even
  1911. board_turn
  1912.                            dc.b      m,new_env,trigg,0
  1913.                            dc.l      bt_env
  1914.             dc.b    M,inline,6,3,254,0
  1915.             dc.w    0,1
  1916.             dc.b    m,inline,6,10,254,0
  1917.             DC.B    M,inline,6,14,254,0
  1918.             dc.b    m,inline,6,15,254,0
  1919.             dc.b    m,inline,6,18,254,0
  1920.             DC.w    0,10
  1921.               ;dc.b     m,modon,2,2
  1922.               ;dc.w     8,8,1
  1923.                        ;    dc.b      m,new_env,trigg,0
  1924.                        ;    dc.l      sw_env
  1925.             ;DC.w    20,27
  1926.             dc.b    m,inline,6,200,254,0
  1927.             dc.b    m,endfx_patt
  1928.  
  1929.     even
  1930.  
  1931. bt_env:        dc.b 10,n1,9,n1,8,n1,9,n1,10,n1,10,n1,7,n1
  1932.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1933.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1934.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1935.         DC.B 0,N1,255
  1936.  
  1937. *******************************************
  1938.     even
  1939.  
  1940. board_splat:
  1941.                            dc.b      m,new_env,trigg,0
  1942.                            dc.l      bsplat_env
  1943.             dc.b    M,inline,6,31,255,0
  1944.             dc.w    0,1
  1945.             dc.b    m,inline,6,30,254,0
  1946.             DC.B    M,inline,6,30,254,0
  1947.             dc.b    m,inline,6,23,254,0
  1948.             dc.b    m,inline,6,5,254,0
  1949.             DC.w    0,2
  1950.               dc.b     m,modon,2,2
  1951.               dc.w     8,8,1
  1952.                            dc.b      m,new_env,trigg,0
  1953.                            dc.l      bsplat_env
  1954.             DC.w    20,12
  1955.             dc.b    m,inline,6,200,254,0
  1956.             dc.b    m,endfx_patt
  1957.  
  1958.     even
  1959. bsplat_env:    dc.b 15,n1,14,n1,13,b1,12,n1,11,n1,10,n1,7,n1
  1960.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1961.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1962.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1963.         DC.B 0,N1,255
  1964.  
  1965. *************************************
  1966.  
  1967.  
  1968.     even
  1969. time_bonus
  1970.                            dc.b      m,new_env,trigg,0
  1971.                            dc.l      bonus_env
  1972.  
  1973.     dc.w    c01,1,c02,1,c03,1,c04,1,c05,1
  1974.     dc.w    c06,1,c07,1,c08,1
  1975.  
  1976.  
  1977.       dc.b     m,endfx_patt
  1978.  
  1979. bonus_env    
  1980.         dc.b 14,t1,255,0
  1981.  
  1982. *******************************************
  1983.  
  1984.     EVEN
  1985.  
  1986.  
  1987. time_out_siren:
  1988.                            dc.b      m,new_env,trigg,0
  1989.                            dc.l      time_env
  1990.             dc.w    A06,3,A06,3,A06,3,A06,3
  1991.             dc.w    A06,4
  1992.             DC.B    M,inline,6,200,255,0
  1993.                            dc.B    m,endfx_patt
  1994.  
  1995. time_env:    dc.b 15,t1,12,t1,7,t1,0,t1,255,0
  1996.  
  1997.  
  1998. ***********************************************
  1999.  
  2000.  
  2001. curr_fx            equ 1
  2002. max_chfx        dc.l 29
  2003.  
  2004.  
  2005.     even
  2006. **********************************************************
  2007. ;               JINGLES MUSIC DATA
  2008. **********************************************************
  2009.  
  2010.  
  2011. cr set 20
  2012. q set cr/2
  2013. sq set q/2
  2014.  
  2015. song1:
  2016.     dc.l    pj1d1,pj1d1x,pj1snp
  2017.     dc.l    pj1d1,pj1d1x,pj1snp
  2018.     dc.l    pj1d1,pj1d1x,pj1snp
  2019.     dc.l    pj1d1,pj1d1x,pj1snp
  2020.     dc.l    pj1kick,pj1kick,pj1kick,pj1kick
  2021.     dc.l    pj1kick,pj1kick,pj1kick,pj1kick
  2022.  
  2023.     dc.l end_song
  2024.  
  2025.  
  2026. song2    
  2027.     dc.l    pj1b1,pj1b1,pj1b1,pj1b1
  2028.     dc.l    pj1b2,pj1b2,pj1b2,pj1b2
  2029.  
  2030.  
  2031.  
  2032.     dc.l end_song
  2033.  
  2034.  
  2035.  
  2036.  
  2037. song3:
  2038.     dc.l    pj1t1,pj1t1,pj1t1,pj1t1
  2039.     dc.l    pj1t2,pj1t2,pj1t2,pj1t2
  2040.  
  2041.  
  2042.  
  2043.     dc.l     end_song
  2044.  
  2045.  
  2046.  
  2047. pr:
  2048.       dc.w rest,cr
  2049.       dc.b m,end_patt
  2050.  
  2051. ;**************************************
  2052.  
  2053. p1:
  2054.       dc.b m,new_env,trigg,0
  2055.       dc.l mono_env
  2056.       dc.b m,modon,1,1
  2057.       dc.w 3,3,8
  2058.  
  2059.       dc.b m,end_patt
  2060.  
  2061.  
  2062. pj1b1      
  2063.     dc.b m,new_env,trigg,0
  2064.       dc.l bass_env
  2065.  
  2066.     dc.w f02,q,g02,cr,f02,q,g02,cr,f02,q,g02,q
  2067.     dc.w f02,q,g02,cr,f02,q,b02,q,b02,q,a02,sq,g02,sq
  2068.     dc.w f02,q,c03,q,c03,q,b02,sq,a02,sq,g02,q
  2069.  
  2070.  
  2071.       dc.b m,end_patt
  2072.  
  2073. pj1b2    dc.b m,new_env,trigg,0
  2074.       dc.l bass_env
  2075.  
  2076.     dc.w c03,cr,d03,cr,e03,cr,d03,q,c03,q,ab02,cr+q,bb02,cr+q
  2077.     dc.w c03,q,d03,q
  2078.       dc.b m,end_patt
  2079.  
  2080.  
  2081. pj1t1      
  2082.     dc.b m,new_env,trigg,0
  2083.       dc.l marx_env
  2084.     dc.w f03,q,g03,cr,f03,q,g03,cr,f03,q,g03,q
  2085.     dc.w f03,q,g03,cr,f03,q,b03,q,b03,q,a03,sq,g03,sq
  2086.     dc.w f03,q,c04,q,c04,q,b03,sq,a03,sq,g03,q
  2087.  
  2088.  
  2089.       dc.b m,end_patt
  2090.  
  2091. pj1t2    dc.b m,new_env,trigg,0
  2092.       dc.l blip_env
  2093.     dc.w c04,sq,eb04,sq,g04,sq,c05,sq,eb05,sq,c05,sq,g04,sq,eb04,sq
  2094.     dc.w c04,sq,eb04,sq,g04,sq,c04,sq,eb04,sq,c05,sq,g04,sq,eb04,sq
  2095.     dc.w ab04,sq,eb04,sq,c04,sq,ab05,sq,eb05,sq,c05,sq,ab04,sq,eb04,sq
  2096.     dc.w bb04,sq,d04,sq,f05,sq,d04,sq,bb05,sq,f05,sq,bb04,sq,d04,sq
  2097.       dc.b m,end_patt
  2098.  
  2099.  
  2100.  
  2101.  
  2102. pj1d1:     
  2103.       dc.b m,inline,6,200,255,0
  2104.       dc.b m,new_env,trigg,0
  2105.       dc.l bassde
  2106.       dc.b m,pbend,down,200
  2107.       dc.w c01,0
  2108.       dc.w e04,q,e04,q
  2109.  
  2110.       ;dc.b m,new_env,trigg,0
  2111.       ;dc.l hate
  2112.       ;dc.w g06,sQ,g06,sq
  2113.  
  2114.       dc.b m,new_env,trigg,0
  2115.       dc.l qclape
  2116.       dc.b m,pbend,down,69
  2117.       dc.w c01,0
  2118.       dc.w c04,cr
  2119.  
  2120.       ;dc.b m,new_env,trigg,0
  2121.       ;dc.l hate
  2122.       ;dc.w g06,sQ,g06,sq
  2123.  
  2124.       dc.b m,new_env,trigg,0
  2125.       dc.l bassde
  2126.       dc.b m,pbend,down,200
  2127.       dc.w c01,0
  2128.       dc.w e04,q
  2129.  
  2130.       dc.b m,new_env,trigg,0
  2131.       dc.l hate
  2132.       dc.w g06,sQ,g06,sq
  2133.  
  2134.       dc.b m,new_env,trigg,0
  2135.       dc.l qclape
  2136.       dc.b m,pbend,down,69
  2137.       dc.w c01,0
  2138.       dc.w c05,q
  2139.  
  2140.       dc.b m,new_env,trigg,0
  2141.       dc.l hate
  2142.       dc.w g06,sQ,g06,sq
  2143.  
  2144.       dc.b m,end_patt
  2145.  
  2146.  
  2147. pj1d1x:     
  2148.       dc.b m,inline,6,200,255,0
  2149.       dc.b m,new_env,trigg,0
  2150.       dc.l bassde
  2151.       dc.b m,pbend,down,200
  2152.       dc.w c01,0
  2153.       dc.w e04,q,e04,q
  2154.  
  2155.       ;dc.b m,new_env,trigg,0
  2156.       ;dc.l hate
  2157.       ;dc.w g06,sQ,g06,sq
  2158.  
  2159.       dc.b m,new_env,trigg,0
  2160.       dc.l qclape
  2161.       dc.b m,pbend,down,69
  2162.       dc.w c01,0
  2163.       dc.w c04,cr
  2164.       dc.b m,end_patt
  2165.  
  2166.  
  2167.  
  2168.  
  2169. pj1snp
  2170.       dc.b m,new_env,trigg,0
  2171.       dc.l qclape
  2172.       dc.b m,pbend,down,69
  2173.       dc.w c01,0
  2174.       dc.w c05,q
  2175.  
  2176.       dc.b m,pbend,down,69
  2177.       dc.w c01,0
  2178.       dc.w c05,q
  2179.       dc.b m,pbend,down,69
  2180.       dc.w c01,0
  2181.       dc.w c05,sq
  2182.       dc.b m,pbend,down,69
  2183.       dc.w c01,0
  2184.       dc.w c05,sq
  2185.       dc.b m,pbend,down,69
  2186.       dc.w c01,0
  2187.       dc.w c05,q
  2188.       dc.b m,pbend,down,69
  2189.       dc.w c01,0
  2190.       dc.w c05,q
  2191.       dc.b m,pbend,down,69
  2192.       dc.w c01,0
  2193.       dc.w c05,q
  2194.       dc.b m,pbend,down,69
  2195.       dc.w c01,0
  2196.       dc.w c05,sq
  2197.       dc.b m,pbend,down,69
  2198.       dc.w c01,0
  2199.       dc.w c05,sq
  2200.       dc.b m,pbend,down,69
  2201.       dc.w c01,0
  2202.       dc.w c05,q
  2203.       dc.b m,end_patt
  2204.  
  2205. pj1kick
  2206.       dc.b m,inline,6,200,255,0
  2207.       dc.b m,new_env,trigg,0
  2208.       dc.l bassde
  2209.       dc.b m,pbend,down,200
  2210.       dc.w c01,0
  2211.       dc.w e04,q
  2212.       dc.b m,pbend,down,200
  2213.       dc.w c01,0
  2214.       dc.w e04,q
  2215.       dc.b m,pbend,down,200
  2216.       dc.w c01,0
  2217.       dc.w e04,cr
  2218.       dc.b m,pbend,down,200
  2219.       dc.w c01,0
  2220.       dc.w e04,cr
  2221.       dc.b m,pbend,down,200
  2222.       dc.w c01,0
  2223.       dc.w e04,cr
  2224.       dc.b m,end_patt
  2225.  
  2226.  
  2227.  
  2228.  
  2229. pj1sf
  2230.       dc.b m,new_env,trigg,0
  2231.       dc.l hate
  2232.       dc.w rest,q,g06,q
  2233.       dc.w rest,q,g06,q
  2234.       dc.w rest,q,g06,q
  2235.       dc.w rest,q,g06,q
  2236.  
  2237.       dc.b m,new_env,trigg,0
  2238.       dc.l qclape
  2239.       dc.b m,pbend,down,69
  2240.       dc.w c01,0
  2241.       dc.w c05,q
  2242.  
  2243.       dc.b m,pbend,down,69
  2244.       dc.w c01,0
  2245.       dc.w c05,q
  2246.  
  2247.       dc.b m,pbend,down,69
  2248.       dc.w c01,0
  2249.       dc.w c05,sq
  2250.       dc.b m,pbend,down,69
  2251.       dc.w c01,0
  2252.       dc.w c05,sq
  2253.       dc.b m,pbend,down,69
  2254.       dc.w c01,0
  2255.       dc.w c05,q
  2256.       dc.b m,end_patt
  2257.  
  2258.  
  2259.  
  2260.  
  2261. ;***************************************
  2262.  
  2263.  
  2264. cr set 20
  2265. q set cr/2
  2266. sq set q/2
  2267.  
  2268. song4:
  2269.   dc.l pstupidr
  2270.     dc.l pj2d1
  2271.     dc.l pj2d1
  2272.     dc.l pj2d1
  2273.     dc.l pj2d1
  2274.     dc.l pj2d1
  2275.     dc.l pj2d1
  2276.     dc.l pj2d1
  2277.     dc.l pj2d1
  2278.   dc.l end_song
  2279.  
  2280.  
  2281. song5:
  2282.   dc.l pj2b1
  2283.   dc.l pj2b2
  2284.   dc.l pj2b2
  2285.  
  2286.  
  2287.  
  2288.   dc.l end_song
  2289.  
  2290. song6:
  2291.      dc.l pj2t1
  2292.      dc.l pj2t3
  2293.      dc.l pj2t3
  2294.      dc.l pj2t3
  2295.      dc.l pj2t3
  2296.  
  2297.  
  2298.  
  2299.  
  2300.   dc.l end_song
  2301.  
  2302. pstupidr
  2303.     dc.w rest,sq*40
  2304.       dc.b m,end_patt
  2305.  
  2306.  
  2307.  
  2308.  
  2309. pj2b1    
  2310.     dc.b m,new_env,trigg,0
  2311.       dc.l bass_env
  2312.     dc.w f03,sq,g03,sq,ab03,sq,bb03,sq,ab03,sq,g03,sq 
  2313.     dc.w f03,sq,g03,sq,ab03,sq,bb03,sq,ab03,sq,g03,sq 
  2314.     dc.w f03,sq,g03,sq,ab03,sq,bb03,sq,ab03,sq,g03,sq 
  2315.     dc.w f03,sq,g03,sq,ab03,sq,bb03,sq,ab03,sq,g03,sq 
  2316.     dc.b m,new_env,trigg,0
  2317.       dc.l mono_env2
  2318.               dc.b     m,modon,2,2
  2319.               dc.w     4,4,1
  2320.  
  2321.     dc.w eb03,cr,f03,cr*3
  2322.       dc.b m,end_patt
  2323.  
  2324. pj2b2    dc.b m,new_env,trigg,0
  2325.       dc.l bass_env
  2326.     dc.w f03,q,g03,q,g03,q,f03,q,g03,q,g03,cr+q
  2327.     dc.w f03,q,g03,cr,bb02,cr*2+q
  2328.     dc.w f03,q,g03,q,g03,q,f03,q,g03,q,g03,cr+q
  2329.     dc.w f03,q,g03,cr,c03,cr*2+q
  2330.  
  2331.  
  2332.       dc.b m,end_patt
  2333.  
  2334.  
  2335.  
  2336.  
  2337.  
  2338. pj2t1      
  2339.     dc.b m,new_env,trigg,0
  2340.       dc.l marx_env
  2341.     dc.w c02,sq,d02,sq,eb02,sq,f02,sq,eb02,sq,d02,sq 
  2342.     dc.w c02,sq,d02,sq,eb02,sq,f02,sq,eb02,sq,d02,sq 
  2343.     dc.w c02,sq,d02,sq,eb02,sq,f02,sq,eb02,sq,d02,sq 
  2344.     dc.w c02,sq,d02,sq,eb02,sq,f02,sq,eb02,sq,d02,sq 
  2345.     dc.b m,new_env,trigg,0
  2346.       dc.l mono_env
  2347.               dc.b     m,modon,2,2
  2348.               dc.w     4,4,1
  2349.  
  2350.     dc.w bb02,cr,c02,cr*3
  2351.       dc.b m,end_patt
  2352.  
  2353.  
  2354. pj2t2      
  2355.     dc.b m,new_env,trigg,0
  2356.       dc.l marx_env
  2357.     dc.w g04,cr*2,d04,cr*2,g04,cr*2,bb04,cr*2
  2358.     dc.w g04,cr*2,a04,cr*2,bb04,cr*2,c04,cr*2
  2359.       
  2360.  
  2361.     dc.b m,end_patt
  2362.  
  2363.  
  2364. pj2t3      
  2365.     dc.b m,new_env,trigg,0
  2366.       dc.l mono_envq
  2367.     dc.b     m,modon,2,2
  2368.       dc.w     4,4,1
  2369.     dc.w g04,cr,bb04,cr,f04,q,g04,cr+q
  2370.     dc.w f04,q,g04,cr,bb04,cr*2+q
  2371.     dc.b m,end_patt
  2372.  
  2373.  
  2374. pj2d1:     
  2375.       dc.b m,inline,6,200,255,0
  2376.       dc.b m,new_env,trigg,0
  2377.       dc.l bassde
  2378.       dc.b m,pbend,down,200
  2379.       dc.w c01,0
  2380.       dc.w e04,q
  2381.  
  2382.       dc.b m,new_env,trigg,0
  2383.       dc.l hate
  2384.       dc.w g06,sQ,g06,sq
  2385.  
  2386.       dc.b m,new_env,trigg,0
  2387.       dc.l qclape
  2388.       dc.b m,pbend,down,69
  2389.       dc.w c01,0
  2390.       dc.w c04,q
  2391.  
  2392.       dc.b m,new_env,trigg,0
  2393.       dc.l hate
  2394.       dc.w g06,sQ,g06,sq
  2395.  
  2396.       dc.b m,new_env,trigg,0
  2397.       dc.l bassde
  2398.       dc.b m,pbend,down,200
  2399.       dc.w c01,0
  2400.       dc.w e04,q
  2401.  
  2402.       dc.b m,new_env,trigg,0
  2403.       dc.l hate
  2404.       dc.w g06,sQ,g06,sq
  2405.  
  2406.       dc.b m,new_env,trigg,0
  2407.       dc.l qclape
  2408.       dc.b m,pbend,down,69
  2409.       dc.w c01,0
  2410.       dc.w c05,q
  2411.  
  2412.       dc.b m,new_env,trigg,0
  2413.       dc.l hate
  2414.       dc.w g06,sQ,g06,sq
  2415.  
  2416.       dc.b m,end_patt
  2417.  
  2418.  
  2419.  even
  2420.  
  2421. **************************************************************
  2422.  
  2423.  
  2424. cr set 20
  2425. q set cr/2
  2426. sq set q/2
  2427.  
  2428.  
  2429. song7:        
  2430.     dc.l    pj3d1
  2431.     dc.l    pj3d1
  2432.     dc.l    pj3d1
  2433.     dc.l    pj3d1
  2434.     dc.l    pj3d1
  2435.     dc.l    pj3d1
  2436.     dc.l    pj3d1
  2437.     dc.l    pj3d1
  2438.     dc.l    pj3d2,pj3d2,pj3d2,pj3d2,pj3d2,pj3d2,pj3d2,pj3d2
  2439.     dc.l    pj3d2,pj3d2,pj3d2,pj3d2,pj3d2,pj3d2,pj3d2,pj3d2
  2440.  
  2441.  
  2442.  
  2443.       dc.l     end_song
  2444.  
  2445. song8:        ;bass
  2446.     dc.l    pj3b1
  2447.     dc.l    pj3b1
  2448.     dc.l    pj3b1
  2449.     dc.l    pj3b1
  2450.     dc.l    pj3b2
  2451.     dc.l    pj3b2
  2452.         DC.L     end_song
  2453.  
  2454. song9:        ;tune
  2455.         
  2456.     dc.l   pj3t1
  2457.     dc.l   pj3t1
  2458.     dc.l   pj3t1
  2459.     dc.l   pj3t1
  2460.     dc.l   pj3t2
  2461.     dc.l   pj3t2
  2462.     dc.l     end_song
  2463.  
  2464.  
  2465. pj3b1
  2466.         dc.b m,new_env,trigg,0
  2467.         dc.l bass_env
  2468.     dc.w c02,cr,eb02,q,c02,cr,g02,sq,a02,sq,bb02,sq,a02,sq
  2469.     dc.w g02,sq,a02,sq
  2470.     dc.w c02,cr,eb02,q,c02,cr,g02,sq,a02,sq,bb02,sq,a02,sq
  2471.     dc.w g02,sq,a02,sq
  2472.  
  2473.     dc.w eb03,cr,g03,q,eb03,cr,bb02,sq,c03,sq,d03,sq,eb03,sq
  2474.     dc.w d03,sq,c03,sq
  2475.  
  2476.     dc.w eb03,cr,g03,q,eb03,cr,bb02,sq,c03,sq,d03,sq,eb03,sq
  2477.     dc.w d03,sq,c03,sq
  2478.     
  2479.  
  2480.  
  2481.     dc.b m,end_patt
  2482.  
  2483. pj3b2
  2484.         dc.b m,new_env,trigg,0
  2485.         dc.l mono_env2
  2486.     dc.b     m,modon,2,2
  2487.       dc.w     4,4,1
  2488.  
  2489.     dc.w c02,cr*4,eb02,cr*4
  2490.     dc.w f02,cr*4,bb02,cr*3,g02,cr
  2491.     dc.b m,end_patt
  2492.  
  2493.  
  2494.  
  2495.  
  2496. pj3t1
  2497.         dc.b m,new_env,trigg,0
  2498.         dc.l mono_envq
  2499.     dc.b     m,modon,2,2
  2500.       dc.w     4,4,1
  2501.  
  2502.      dc.w c04,q,eb04,q,d04,q,c04,cr,d04,q,eb04,q
  2503.     dc.w f04,q,g04,cr*4
  2504.     dc.w g03,q,bb03,q,a03,q,g03,cr,bb03,q,c04,q
  2505.     dc.w d04,q,eb04,cr,d04,cr,c04,q,bb03,cr+q
  2506.     dc.b m,end_patt
  2507.  
  2508.  
  2509. pj3t2
  2510.         dc.b m,new_env,trigg,0
  2511.         dc.l mono_envq
  2512.      dc.w c03,q,c04,q,bb04,q,g04,cr,f04,q,eb04,cr
  2513.      dc.w c03,q,c04,q,bb04,q,g04,cr,f04,q,eb04,cr
  2514.      dc.w c03,q,c04,q,bb04,q,g04,cr,f04,q,eb04,cr
  2515.     dc.w f04,cr*2,g04,cr*2
  2516.     dc.b m,end_patt
  2517.  
  2518.  
  2519. pj3d1:     
  2520.       dc.b m,inline,6,200,255,0
  2521.       dc.b m,new_env,trigg,0
  2522.       dc.l bassde
  2523.       dc.b m,pbend,down,200
  2524.       dc.w c01,0
  2525.       dc.w e04,q
  2526.  
  2527.       dc.b m,new_env,trigg,0
  2528.       dc.l hate
  2529.       dc.w g06,q
  2530.  
  2531.  
  2532.       dc.b m,new_env,trigg,0
  2533.       dc.l bassde
  2534.       dc.b m,pbend,down,200
  2535.       dc.w c01,0
  2536.       dc.w e04,q
  2537.  
  2538.       dc.b m,new_env,trigg,0
  2539.       dc.l hate
  2540.       dc.w g06,q
  2541.  
  2542.       dc.b m,new_env,trigg,0
  2543.       dc.l qclape
  2544.       dc.b m,pbend,down,69
  2545.       dc.w c01,0
  2546.       dc.w c04,q
  2547.  
  2548.  
  2549.       dc.b m,new_env,trigg,0
  2550.       dc.l bassde
  2551.       dc.b m,pbend,down,200
  2552.       dc.w c01,0
  2553.       dc.w e04,q
  2554.  
  2555.       dc.b m,new_env,trigg,0
  2556.       dc.l hate
  2557.       dc.w g06,sQ,g06,sq
  2558.       dc.w g06,sQ,g06,sq
  2559.  
  2560.       dc.b m,new_env,trigg,0
  2561.       dc.l bassde
  2562.       dc.b m,pbend,down,200
  2563.       dc.w c01,0
  2564.       dc.w e04,q
  2565.  
  2566.  
  2567.       dc.b m,new_env,trigg,0
  2568.       dc.l hate
  2569.       dc.w g06,q
  2570.  
  2571.  
  2572.       dc.b m,new_env,trigg,0
  2573.       dc.l bassde
  2574.       dc.b m,pbend,down,200
  2575.       dc.w c01,0
  2576.       dc.w e04,q
  2577.  
  2578.  
  2579.       dc.b m,new_env,trigg,0
  2580.       dc.l hate
  2581.       dc.w g06,q
  2582.  
  2583.       dc.b m,new_env,trigg,0
  2584.       dc.l qclape
  2585.       dc.b m,pbend,down,69
  2586.       dc.w c01,0
  2587.       dc.w c04,q
  2588.  
  2589.  
  2590.       dc.b m,new_env,trigg,0
  2591.       dc.l bassde
  2592.       dc.b m,pbend,down,200
  2593.       dc.w c01,0
  2594.       dc.w e04,q
  2595.  
  2596.       dc.b m,new_env,trigg,0
  2597.       dc.l hate
  2598.       dc.w g06,sQ,g06,sq
  2599.       dc.w g06,sQ,g06,sq
  2600.  
  2601.       dc.b m,end_patt
  2602.  
  2603.  
  2604. pj3d2:     
  2605.  
  2606.       dc.b m,new_env,trigg,0
  2607.       dc.l bassde
  2608.       dc.b m,pbend,down,200
  2609.       dc.w c01,0
  2610.       dc.w e04,q
  2611.  
  2612.       dc.b m,new_env,trigg,0
  2613.       dc.l hate
  2614.       dc.w g06,sQ,g06,sq
  2615.       dc.w g06,sQ,g06,sq
  2616.       dc.w g06,sQ,g06,sq
  2617.       dc.b m,end_patt
  2618.  
  2619.  
  2620. ********************************************
  2621.  
  2622.  
  2623. cr set 20
  2624. q set cr/2
  2625. sq set q/2
  2626.  
  2627.  
  2628. song10:        
  2629.     dc.l    pj4d1
  2630.       dc.l     end_song
  2631.  
  2632. song11:        ;bass
  2633.     dc.l    pj4b1
  2634.         DC.L     end_song
  2635.  
  2636. song12:        ;tune
  2637.         
  2638.     dc.l   pj4t1
  2639.     dc.l     end_song
  2640.  
  2641.  
  2642. pj4b1
  2643.         dc.b m,new_env,trigg,0
  2644.         dc.l bass_env
  2645.     dc.w c03,q,eb03,q,eb03,q,g03,q,c03,q,bb03,q,c03,cr
  2646.     dc.w bb03,cr,f03,cr,g03,q,bb03,cr+q
  2647.         dc.b m,new_env,trigg,0
  2648.         dc.l bassa_env2
  2649.  
  2650.     dc.w ab03,q,ab03,sq,ab03,sq,eb03,sq,eb03,sq,bb03,q,c03,q,bb03,q,ab03,cr
  2651.       dc.b m,new_env,trigg,0
  2652.       dc.l mono_env2
  2653.     dc.b     m,modon,2,2
  2654.       dc.w     4,4,1
  2655.     dc.w g02,cr*4
  2656.  
  2657.  
  2658.     dc.b m,end_patt
  2659.  
  2660.  
  2661. pj4t1
  2662.         dc.b m,new_env,trigg,0
  2663.         dc.l mono_envq
  2664.     dc.b     m,modon,2,2
  2665.       dc.w     4,4,1
  2666.     dc.w c04,cr*4,bb04,cr*4,ab04,cr*4,g04,cr*4
  2667.     dc.b m,end_patt
  2668.  
  2669.  
  2670. pj4d1:     
  2671.       dc.b m,inline,6,200,255,0
  2672.       dc.b m,new_env,trigg,0
  2673.       dc.l bassde
  2674.       dc.b m,pbend,down,200
  2675.       dc.w c01,0
  2676.       dc.w e04,q
  2677.       dc.b m,pbend,down,200
  2678.       dc.w c01,0
  2679.       dc.w e04,q
  2680.  
  2681.       dc.b m,new_env,trigg,0
  2682.       dc.l hate
  2683.       dc.w g06,sq,g06,sq,g06,sq,g06,sq
  2684.  
  2685.  
  2686.       dc.b m,new_env,trigg,0
  2687.       dc.l bassde
  2688.       dc.b m,pbend,down,200
  2689.       dc.w c01,0
  2690.       dc.w e04,q
  2691.  
  2692.  
  2693.       dc.b m,new_env,trigg,0
  2694.       dc.l bassde
  2695.       dc.b m,pbend,down,200
  2696.       dc.w c01,0
  2697.       dc.w e04,q
  2698.  
  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
  2704.     dc.b m,end_patt
  2705.  
  2706.  
  2707.  
  2708.  
  2709. ********************************************
  2710.  
  2711.  
  2712. cr set 20
  2713. q  set cr/2
  2714. sq set q/2
  2715.  
  2716. song13:        
  2717.     dc.l    pj5d1
  2718.       dc.l     end_song
  2719.  
  2720. song14:        ;bass
  2721.     dc.l    pj5b1
  2722.         DC.L     end_song
  2723.  
  2724. song15:        ;tune
  2725.         
  2726.     dc.l   pj5t1
  2727.  
  2728.     dc.l     end_song
  2729.  
  2730.  
  2731. pj5b1
  2732.         dc.b m,new_env,trigg,0
  2733.         dc.l bass_env
  2734.      dc.w bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q
  2735.      dc.w bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q
  2736.      dc.w bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q
  2737.      dc.w bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q
  2738.  
  2739.     dc.w eb03,q,eb03,q,eb03,q,eb03,q,eb03,q,eb03,q,eb03,q,eb03,q
  2740.     dc.w eb03,q,eb03,q,eb03,q,eb03,q,eb03,q,eb03,q,eb03,q,eb03,q
  2741.  
  2742.      dc.w bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q
  2743.      dc.w bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q
  2744.  
  2745.     dc.w f03,q,f03,q,f03,q,f03,q,f03,q,f03,q,f03,q,f03,q
  2746.     dc.w eb03,q,eb03,q,eb03,q,eb03,q,eb03,q,eb03,q,eb03,q,eb03,q
  2747.  
  2748.      dc.w bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q,bb02,q
  2749.     dc.w f03,q,f03,q,f03,q,f03,q,f03,q,f03,q,f03,q,f03,q
  2750.  
  2751.  
  2752.  
  2753.     dc.b m,end_patt
  2754.  
  2755.  
  2756. pj5t1
  2757.         dc.b m,new_env,trigg,0
  2758.         dc.l mono_envq
  2759.     dc.b     m,modon,2,2
  2760.       dc.w     4,4,1
  2761.  
  2762.     dc.w d03,q,d03,q,f03,cr,g03,cr,f03,q
  2763.     dc.w d03,cr,d03,q,f03,cr,g03,cr,f03,cr
  2764.     dc.w d03,q,d03,q,f03,cr,g03,cr,bb03,q
  2765.     dc.w c04,cr,c04,q,bb03,cr,g03,cr,f03,cr
  2766.  
  2767.     dc.w g03,q,g03,q,bb03,cr,c04,cr,bb03,q,c04,q
  2768.     dc.w db04,q,bb03,q,c04,cr,bb03,cr,g03,cr
  2769.  
  2770.     dc.w d03,q,d03,q,f03,cr,g03,cr,f03,q,g03,q,ab03,q
  2771.     dc.w f03,q,g03,q,f03,cr,d03,cr+q
  2772.  
  2773.     dc.w f04,q,f04,q,f04,q,f04,q,f04,cr*2
  2774.     dc.w eb04,q,eb04,q,eb04,q,eb04,q,eb04,cr*2
  2775.  
  2776.     dc.w d03,q,d03,q,f03,cr,g03,cr,f03,q,d03,cr
  2777.     dc.w f03,q,f03,q,f03,q,f03,q,f03,q,f03,q,f03,q
  2778.  
  2779.     dc.b m,end_patt
  2780.  
  2781. pj5d1
  2782.     
  2783.       dc.b m,inline,6,200,255,0
  2784.       dc.b m,new_env,trigg,0
  2785.       dc.l bassde
  2786.       dc.b m,pbend,down,200
  2787.       dc.w c01,0
  2788.       dc.w e04,q,e04,q
  2789.  
  2790.       ;dc.b m,new_env,trigg,0
  2791.       ;dc.l hate
  2792.       ;dc.w g06,sQ,g06,sq
  2793.  
  2794.       dc.b m,new_env,trigg,0
  2795.       dc.l qclape
  2796.       dc.b m,pbend,down,69
  2797.       dc.w c01,0
  2798.       dc.w c04,cr
  2799.  
  2800.       ;dc.b m,new_env,trigg,0
  2801.       ;dc.l hate
  2802.       ;dc.w g06,sQ,g06,sq
  2803.  
  2804.       dc.b m,new_env,trigg,0
  2805.       dc.l bassde
  2806.       dc.b m,pbend,down,200
  2807.       dc.w c01,0
  2808.       dc.w e04,q
  2809.  
  2810.       dc.b m,new_env,trigg,0
  2811.       dc.l hate
  2812.       dc.w g06,sQ,g06,sq
  2813.  
  2814.       dc.b m,new_env,trigg,0
  2815.       dc.l qclape
  2816.       dc.b m,pbend,down,69
  2817.       dc.w c01,0
  2818.       dc.w c05,q
  2819.  
  2820.       dc.b m,new_env,trigg,0
  2821.       dc.l hate
  2822.       dc.w g06,sQ,g06,sq
  2823.  
  2824.       dc.b m,end_patt
  2825.  
  2826.  
  2827.  
  2828.  
  2829. ********************************************
  2830. xxx
  2831. cr set 36
  2832. q  set cr/2
  2833. sq set q/2
  2834.  
  2835. song16:        
  2836.     dc.l    pj6d1
  2837.       dc.l     end_song
  2838.  
  2839. song17:        ;bass
  2840.     dc.l    pj6b1
  2841.         DC.L     end_song
  2842.  
  2843. song18:        ;tune
  2844.         
  2845.     dc.l   pj6t1
  2846.     dc.l     end_song
  2847.  
  2848.  
  2849. pj6b1
  2850.         dc.b m,new_env,trigg,0
  2851.         dc.l mono_env2
  2852.       dc.b m,modon,1,1
  2853.       dc.w 3,3,8
  2854.     dc.w eb02,cr,c02,cr,f02,cr*2,c02,cr*3
  2855.     dc.w d02,cr
  2856.     dc.w eb02,cr,c02,cr,f02,cr*2,c02,cr*4
  2857.     dc.w d02,cr
  2858.     dc.w eb02,cr,c02,cr,g02,cr*2,f02,cr*2,c02,cr*4
  2859.  
  2860.     dc.b m,end_patt
  2861.  
  2862.  
  2863. pj6t1
  2864.         dc.b m,new_env,trigg,0
  2865.         dc.l mono_env
  2866.       dc.b m,modon,1,1
  2867.       dc.w 3,3,8
  2868.     dc.w eb03,cr,c03,cr,f03,cr*2,c03,cr*3
  2869.     dc.w d03,cr
  2870.     dc.w eb03,cr,c03,cr,f03,cr*2,c03,cr*4
  2871.     dc.w d03,cr
  2872.     dc.w eb03,cr,c03,cr,g03,cr*2,f03,cr*2,c03,cr*4
  2873.     dc.b m,end_patt
  2874.  
  2875.  
  2876. pj6d1
  2877.         dc.b m,new_env,trigg,0
  2878.         dc.l mono_env1
  2879.       dc.b m,modon,1,1
  2880.       dc.w 3,3,8
  2881.     dc.w g01,cr*27
  2882.     
  2883.  
  2884.  
  2885.     dc.b m,end_patt
  2886.  
  2887.  
  2888.  
  2889.     EVEN
  2890. ;****************************************************************
  2891. bassa_env2:    dc.b 15,t2,15,t2,0,t2,255
  2892. ;ash1:     dc.b 0,t1,255
  2893. ;abassde:     dc.b 15,b1,15,t1,15,t1,15,t1,7,t1
  2894.       dc.b 3,t1,0,t1,255
  2895. ;abass_env:    dc.b 15,t2,15,t2,15,t2,15,t2
  2896.       dc.b 15,t2,15,t2
  2897.       dc.b 0,t2,255
  2898. ;ablipa_env:    dc.b 15,t3,15,t3,13,t3,11,t3
  2899.       dc.b 15,t3,15,t3,13,t3,11,t3,0,t3,255
  2900. ;blip_env2:    dc.b 15,t2,15,t2,13,t2,11,t2
  2901.       dc.b 15,t2,15,t2,13,t2
  2902.       dc.b 11,t2,0,t2,255
  2903. ;piano_env2:    dc.b 15,t3,15,t3,15,t3,14,t3,3,t3,12,t3,11
  2904.       dc.b t3,10,t3,15,t3,14,t3,13,t3,12,t3,12,t3,11
  2905.       dc.b t3,10,t3,9,t3,8,t3,7,t3,7,t3,6,t3,5,t3,4
  2906.       dc.b t3,3,t3,2,t3,1,t3,0,t3,255
  2907. ;apaiano_env:    dc.b 15,t3,15,t3,15,t3,15,t3,14,t3
  2908.       dc.b 13,t3,13,t3,13,t3,13,t3,13,t3
  2909.       dc.b 13,t3,12,t3,12,t3,11,t3
  2910.       dc.b 11,t3,10,t3,9,t3,8,t3,7,t3,6,t3,255
  2911. ;apaiano_envt:    dc.b 15,t3,15,t3,14,t3,13,t3,13,t3
  2912.       dc.b 12,t3,8,t3,7,t3,6,t3,6,t3
  2913.       dc.b 8,t3,255
  2914. ;apaiano_drum:    dc.b 15,t1,15,t1,15,t1,15,t1,14,t1
  2915.       dc.b 13,t1,13,t1,13,t1,13,t1,13,t1
  2916.      dc.b 13,t1,12,t1,12,t1,11,t1
  2917.       dc.b 11,t1,10,t1,9,t1,8,t1,7,t1,6,t1
  2918.       dc.b 5,t1,4,t1,3,t1,2,t1,1,t1,0,t1,255
  2919. ;apaiano_env3:    dc.b 15,t2,15,t2,15,t2,15,t2,14,t2
  2920.      dc.b 13,t2,13,t2,13,t2,13,t2,13,t2
  2921.       dc.b 13,t2,12,t2,12,t2,11,t2
  2922.       dc.b 11,t2,10,t2,9,t2,8,t2,7,t2,6,t2
  2923.       dc.b 5,t2,4,t2,3,t2,2,t2,1,t2,0,t2,255
  2924. ;amono_enva:    dc.b 14,t3,255
  2925. ;long_susa:     dc.b 15,t3,14,t3,255
  2926. ;arotoe:     dc.b 15,t3,15,t3,15,t3,14,t3,13,t3
  2927.       dc.b 13,t3,12,t3,12,t3,11,t3,10,t3
  2928.       dc.b 8,t3,7,t3,6
  2929.       dc.b t3,5,t3,4,t3,3,t3,2,t3,1,t3,0,t3,255
  2930. ;fast_env:     dc.b 14,t3,1,t3,14,t3,1,t3,14,t3,1,t3
  2931.        dc.b 14,t3,0,t3,255
  2932. ;asharpa_env:    dc.b 15,t3,15,t3,9,t3,15,t3,15,t3,10,t3
  2933.       dc.b 8,t3,7,t3,6,t3,5,t3,2,t3,2,t3,0,t3,255
  2934. rota3:     dc.b 15,t3,15,t3,15,t3,14,t3,13,t3
  2935.       dc.b 13,t3,12,t3,12,t3,11,t3,10,t3
  2936.       dc.b 8,t3,7,t3,6,t3,5,t3,4,t3
  2937.       dc.b 4,t3,3,t3,2,t3,1,t3,0,t3,255
  2938. ;rota2:     dc.b 15,t2,15,t2,15,t2,14,t2,13,t2
  2939.       dc.b 13,t2,12,t2,12,t2,11,t2,10,t2
  2940.       dc.b 8,t2,7,t2,6,t2,5,t2,4,t2
  2941.       dc.b 4,t2,3,t2,2,t2,1,t2,0,t2,255
  2942. rota1:     dc.b 15,t1,15,t1,15,t1,14,t1,13,t1
  2943.       dc.b 13,t1,12,t1,12,t1,11,t1,10,t1
  2944.       dc.b 8,t1,7,t1,6,t1,5,t1,4,t1
  2945.       dc.b 4,t1,3,t1,2,t1,1,t1,0,t1,255
  2946.  
  2947. snaree:     dc.b 15,b1,15,t1,15,t1,15,b1,15,t1,15,b1
  2948.   dc.b 12,t1,12,b1,9,t1,7,b1,7,t1,7
  2949.   dc.b b1,6,t1,6,b1,6
  2950.   dc.b t1,5,t1,255
  2951. ;sh1: dc.b 0,t1,255
  2952. bassde: dc.b 15,b1,15,t1,15,t1,15,t1,7,t1
  2953.   dc.b 3,t1,0,t1,255
  2954. bass_env: dc.b 15,t2,15,t2,15,t2,15,t2
  2955.   dc.b 15,t2,14,t2,13,t2,11,t2,9,t2
  2956.   dc.b 7,t2,255
  2957. bass_env3: dc.b 15,t3,15,t3,15,t3,15,t3
  2958.   dc.b 15,t3,14,t3,13,t3,11,t3,9,t3
  2959.   dc.b 7,t3,255
  2960.  
  2961. bass_env_short: dc.b 15,t2,15,t2,15,t2,15,t2
  2962.   dc.b 14,t2
  2963.   dc.b 7,t2,255
  2964.  
  2965.  
  2966.  
  2967. ;bass_envs: dc.b 15,t2,15,t2,14,t2
  2968.   dc.b 4,t2,255
  2969.  
  2970.     even
  2971. ;bass_envj: dc.b 15,t2,15,t2,0,t2,0,t2
  2972.   dc.b 15,t2,15,t2
  2973.   dc.b 0,t2,255
  2974.     even
  2975. ;bass_env2: dc.b 15,t2,14,b2,15,t2,15,t2
  2976.     dc.b 15,t2,15,t2,15,t2,10,b2,15,t2
  2977.     dc.b 15,t2,15,t2,15,t2,14,t2,13,t2
  2978.     dc.b 0,t2,255
  2979. rest_env:    dc.b 0,0,255
  2980.     even
  2981. blip_env:    dc.b 15,t3,11,t3,3,t3,13,t3
  2982.   dc.b 13,t3,3,t3,3,t3
  2983.   dc.b 12,t3,10,t3,3,t3,8,t3,7,t3,6,t3,0,t3,255
  2984.  
  2985. blip_envl:    dc.b 15,t3,15,t3,3,t3,15,t3
  2986.   dc.b 15,t3,3,t3,9,t3
  2987.   dc.b 12,t3,10,t3,3,t3,9,t3,8,t3,8,t3,0,t3,255
  2988.  
  2989.     even
  2990. ;xpiano_env2:    dc.b 15,t3,15,t3,15,t3,14,t3,13,t3,12,t3,11
  2991.   dc.b t3,10,t3,15,t3,14,t3,13,t3,12,t3,12,t3,11
  2992.   dc.b t3,10,t3,9,t3,8,t3,7,t3,7,t3,6,t3,5,t3,4
  2993.   dc.b t3,3,t3,2,t3,1,t3,0,t3,255
  2994. piano_env:    dc.b 15,t3,15,t3,15,t3,15,t3,14,t3
  2995.   dc.b 13,t3,13,t3,13,t3,13,t3,13,t3
  2996.   dc.b 13,t3,12,t3,12,t3,11,t3
  2997.   dc.b 11,t3,10,t3,9,t3,8,t3,7,t3,6,t3
  2998.   dc.b 5,t3,4,t3,3,t3,2,t3,1,t3,0,t3,255
  2999.  
  3000. piano_env1:    dc.b 15,t1,15,t1,15,t1,15,t1,14,t1
  3001.   dc.b 13,t1,13,t1,13,t1,13,t1,13,t1
  3002.   dc.b 13,t1,12,t1,12,t1,11,t1,255,0
  3003.  
  3004.  
  3005.  
  3006. ;piano_drum:    dc.b 15,t1,15,t1,15,t1,15,t1,14,t1
  3007.   dc.b 13,t1,13,t1,13,t1,13,t1,13,t1
  3008.   dc.b 13,t1,12,t1,12,t1,11,t1
  3009.   dc.b 11,t1,10,t1,9,t1,8,t1,7,t1,6,t1
  3010.   dc.b 5,t1,4,t1,3,t1,2,t1,1,t1,0,t1,255
  3011. ;piano_env3:    dc.b 15,t2,15,t2,15,t2,15,t2,14,t2
  3012.   dc.b 13,t2,13,t2,13,t2,13,t2,13,t2
  3013.   dc.b 13,t2,12,t2,12,t2,11,t2
  3014.   dc.b 11,t2,10,t2,9,t2,8,t2,7,t2,6,t2
  3015.   dc.b 5,t2,4,t2,3,t2,2,t2,1,t2,0,t2,255
  3016. mono_env:    dc.b 15,t3,255
  3017. mono_envq:    dc.b 13,t3,255
  3018.  
  3019.  
  3020. mono_env3:    dc.b 15,t3,255
  3021. mono_env1:    dc.b 13,t1,255,0
  3022. mono_env2:    dc.b 15,t2,255,0
  3023. piano_envsq:    dc.b 14,t3,12,t3,12,t3,9,t3,6,t3,0,t3,255
  3024. ;long_sus:     dc.b 15,t2,13,t2,255
  3025. ;long_sus4:     dc.b 14,t2,255
  3026. qclape:     dc.b 15,n1,14,n1,14,n1,13,n1,13,n1,12,n1
  3027.   dc.b 11,n1,11,n1,9,n1,7,n1,7,n1,7
  3028.   dc.b n1,6,n1,6,n1,6
  3029.   dc.b n1,5,n1,255
  3030. hate:     dc.b 13,n1,0,n1,255
  3031. rotoe:     dc.b 15,t1,15,t1,15,t1,15,t1,15,t1,14,t1
  3032.   dc.b 13,t1,13,t1,12,t1,11,t1,10,t1,9
  3033.   dc.b t1,8,t1,7,t1,6
  3034.   dc.b t1,5,t1,4,t1,3,t1,2,t1,0,t1,255
  3035. ;hot_env:     dc.b 15,t3,14,t3,15,t3,12,t3,15,t3,10,t3
  3036.   dc.b 15,t3,12,t3,255
  3037. ;hot_env2:     dc.b 15,t2,14,t2,15,t2,12,t2,15,t2,10,t2
  3038.   dc.b 15,t2,12,t2,255
  3039. ;revenv:   dc.b 7,t3,9,t3,11,t3,13,t3,15,t3,14,t3
  3040.     dc.b 1,t3,15,t3,6,t3,13,t3,10,t3,9,t3,255
  3041. ;clip_env:    dc.b 15,t3,15,t3,6,t3,6,t3,15,t3
  3042.  dc.b 15,t3,15,t3,13,t3
  3043.   dc.b 12,t3,11,t3,255
  3044. ;DIST_ENV:   dc.b 15,t3,15,t3,12,t3,15,t3,3,t3,15,t3
  3045.      dc.b 15,t3,3,t3,12,t3,3,t3,10,t3,9,t3
  3046.      dc.b 8,t3,7,t3,3,t3,8,t3,9,t3,12,t3,14,t3
  3047.      dc.b 15,t3,15,t3,15,t3,15,t3,0,t3,255
  3048. ;long_sus2:    dc.b 15,t2,14,t2,13,t2,14,t2,15,t2
  3049.   dc.b 14,t2,13,t2,14,t2,15,t2,14,t2,13,t2,14,t2
  3050.       dc.b 255
  3051. ;long_sus3:  dc.b 15,t3,14,t3,13,t3,12,t3,12,t3
  3052.    dc.b 11,t3,10,t3,9,t3,8,t3
  3053.     dc.b 7,t3,8,t3,7,t3,7,t3
  3054.     dc.b 6,t3,6,t3,6,t3,6,t3,6,t3,6,t3,6,t3,4,t3
  3055.       dc.b 255
  3056. ;dhot_env:     dc.b 15,t3,14,t3,15,t3,12,t3,15,t3,10,t3
  3057.   dc.b 15,t3,12,t3,15,t3,14,t3,15,t3,12,t3
  3058.   dc.b 15,t3,10,t3,15,t3,12,t3,255
  3059. marx_env:   dc.b 15,t3,8,t3,15,t3,15,t3,12,t3,11,t3,13,t3,11,t3
  3060.      dc.b 12,t3,255
  3061. ;sq_env1:     dc.b 15,t1,15,t1,14,t1,13,t1,0,t1,255
  3062. ;sq_env2:     dc.b 15,t2,15,t2,14,t2,13,t2,0,t2,255
  3063. ;sq_env3:     dc.b 15,t3,15,t3,14,t1,13,t2,0,t3,255
  3064. ;fxbassde:  dc.b 15,b1,13,t1,255
  3065. ;;;;;;;;;;;;;;;;;;;;;;  MUSIC DATA END ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3066.  
  3067.  
  3068.  
  3069.  
  3070. ;------------------------------------
  3071. SPEEDS:
  3072. chanela
  3073.  
  3074.         END
  3075.  
  3076.  
  3077.