home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Night Shift Amiga / Lowe_NightShiftAmiga.img / GAMESFIN.S < prev    next >
Encoding:
Text File  |  1985-11-20  |  86.6 KB  |  3,866 lines
  1.  
  2. ;          SUMMER 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 #31,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  '*       SUMMER 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 0  ;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.     dc.l song19,song20,song21
  1223.     dc.l song22,song23,song24
  1224.     dc.l song25,song26,song27
  1225.  
  1226.  
  1227.     dc.l song28,song29,song30
  1228.     dc.l song31,song32,song33
  1229.  
  1230.     ;anthems
  1231.  
  1232.       dc.l asong67,asong68,asong69        ;usa
  1233.       dc.l asong25,asong26,asong27        ;france
  1234.       dc.l asong34,asong35,asong36        ;gb
  1235.       dc.l asong10,asong11,asong12        ;canada
  1236.       dc.l asong55,asong56,asong57        ;mexico
  1237.       dc.l asong49,asong50,asong51        ;japan
  1238.       dc.l asong49,asong50,asong51        ; padding
  1239.       dc.l asong28,asong29,asong30        ;germany
  1240.       dc.l asong61,asong62,asong63        ;spain
  1241.       dc.l asong58,asong59,asong60        ;norway
  1242.       dc.l asong1,asong2,asong3        ;austria
  1243.       dc.l asong19,asong20,asong21        ;ireland
  1244.       dc.l asong43,asong44,asong45        ;italy
  1245.       dc.l asong4,asong5,asong6        ;australia
  1246.       dc.l asong7,asong8,asong9        ; brazil
  1247.       dc.l asong70,asong71,asong72        ;ussr
  1248.       dc.l asong37,asong38,asong39        ;holland
  1249.       dc.l ussong1,ussong2,ussong3        ;us gold
  1250.       dc.l asong16,asong17,asong18        ;denmark
  1251.  
  1252.  
  1253. ************************************************************
  1254.  
  1255.  
  1256. ussong1:
  1257.  
  1258.     dc.l usg1,pforev
  1259.       dc.l end_song
  1260.  
  1261. ussong2:
  1262.     dc.l usg2,pforev
  1263.       dc.l end_song
  1264. ussong3:
  1265.     dc.l usg3,pforev
  1266.       dc.l end_song
  1267.  
  1268.  
  1269. usg1: even
  1270.       dc.b m,new_env,trigg,0
  1271.       dc.l piano_anthenv1
  1272.     dc.w c04,cr,d04,cr,g04,cr,f04,cr,e04,cr,c04,q
  1273.     dc.w d04,q,f04,cr,e04,cr,d04,cr,c04,cr*4
  1274.       dc.b m,end_patt
  1275. usg2: even
  1276.       dc.b m,new_env,trigg,0
  1277.       dc.l bass_anthenv
  1278.     dc.w a02,cr*6,g02,cr*3,c02,cr*4
  1279.     dc.b m,end_patt
  1280. usg3: even
  1281.       dc.b m,new_env,trigg,0
  1282.       dc.l piano_anthenv
  1283.     dc.w e04,cr,f04,cr,c05,cr,b04,cr,a04,cr,e04,q,f04,q
  1284.     dc.w b04,cr,a04,cr,g04,cr,e04,cr*4
  1285.     dc.b m,end_patt
  1286.  
  1287. pforev    dc.w rest cr*1000
  1288.     dc.b m,end_patt
  1289.  
  1290.  
  1291.  
  1292. ;;;;;;;;;;;;;;;;;;;;;    AUSTRIA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1293. asong1:
  1294.     dc.l p2a,pr,pforev
  1295.       dc.l end_song
  1296.  
  1297. asong2:
  1298.     dc.l p3a,pr,pforev
  1299.       dc.l end_song
  1300. asong3:
  1301.     dc.l p1a,pr,pforev
  1302.       dc.l end_song
  1303.  
  1304. pcr: even
  1305.   dc.w rest,cr
  1306.   dc.b m,end_patt
  1307. pr: even
  1308.   dc.w rest,cr*4
  1309.   dc.b m,end_patt
  1310. pra: even
  1311.   dc.w rest,q*7
  1312.   dc.b m,end_patt
  1313. pqr: even
  1314.   dc.w rest,q
  1315.   dc.b m,end_patt
  1316. p1a: even
  1317.       dc.b m,new_env,trigg,0
  1318.       dc.l piano_anthenv
  1319.     dc.w Bb04,cr*2,A04,cr,G04,cr*2,A04,q,Bb04,q
  1320.     dc.w C05,cr*2,Bb04,cr,Bb04,cr,A04,cr,rest,cr
  1321.     dc.w A04,cr*2,G04,cr,F04,cr*2,G04,q,A04,q
  1322.     dc.w Bb04,cr*2,A04,cr,A04,q,G04,q,G04,cr,rest,cr
  1323.       dc.b m,end_patt
  1324. p2a: even
  1325.       dc.b m,new_env,trigg,0
  1326.       dc.l piano_anthenv1
  1327.     dc.w G04,cr*2,F04,cr,Eb04,cr*2,F04,q,G04,q
  1328.     dc.w A04,cr*2,G04,cr,G04,cr,F04,cr,rest,cr
  1329.     dc.w F04,cr*2,Eb04,cr,D04,cr*2,Eb04,q,F04,q
  1330.     dc.w G04,cr*2,F04,cr,Bb03,cr,Bb03,cr,rest,cr
  1331.     dc.b m,end_patt
  1332. p3a: even
  1333.       dc.b m,new_env,trigg,0
  1334.       dc.l bass_anthenv
  1335.     dc.w Eb02,cr,G02,cr,Bb02,cr,Eb03,cr*2,Eb02,cr
  1336.     dc.w Ab02,cr,Bb02,cr,C03,cr,F02,q,F03,q,F02,cr,rest,cr
  1337.     dc.w Bb02,cr,D03,cr,Bb02,cr,Bb02,cr*2,Bb02,cr
  1338.     dc.w Bb02,cr*2,Bb02,cr,Eb02,cr,Eb02,cr,rest,cr
  1339.     dc.b m,end_patt
  1340. ;;;;;;;;;;;;;;;;;;;;;    AUSTRALIA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1341. asong4:
  1342.     dc.l p2b,pforev
  1343.       dc.l end_song
  1344.  
  1345. asong5:
  1346.     dc.l p3b,pforev
  1347.       dc.l end_song
  1348. asong6:
  1349.     dc.l p1b,pforev
  1350.       dc.l end_song
  1351.  
  1352.  
  1353. p1b: even
  1354.       dc.b m,new_env,trigg,0
  1355.       dc.l piano_anthenv
  1356.     dc.w C05,q,D05,q,E05,cr,E05,q,E05,q,D05,cr,D05,cr
  1357.     dc.w C05,q,D05,q,E05,q,C05,q,A04,q,B04,q,C05,cr
  1358.     dc.w G04,cr,C05,q,E05,q,G05,cr,F05,q,E05,q
  1359.     dc.w D05,cr,D05,q,D05,q,C05,cr*2
  1360.       dc.b m,end_patt
  1361. p2b: even
  1362.       dc.b m,new_env,trigg,0
  1363.       dc.l piano_anthenv1
  1364.     dc.w rest,cr,C04,cr,C04,q,C04,q,B03,cr,B03,cr
  1365.     dc.w A03,q,B03,q,C04,q,A03,q,F03,q,G03,q,A03,cr
  1366.     dc.w E03,cr,G03,q,C04,q,E04,cr,D04,q,C04,q
  1367.     dc.w B03,cr,B03,q,B03,q,G03,cr*2
  1368.     dc.b m,end_patt
  1369. p3b: even
  1370.       dc.b m,new_env,trigg,0
  1371.       dc.l bass_anthenv
  1372.     dc.w rest,cr,C03,cr,G02,cr,D03,cr,G02,cr
  1373.     dc.w A02,cr,G02,cr,F02,cr,Gb02,cr
  1374.     dc.w G02,cr*2,G02,cr*2,G02,cr,G02,q,G02,q,C03,cr*2
  1375.     dc.b m,end_patt
  1376. ;;;;;;;;;;;;;;;;;;;;;    BRAZIL    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1377. asong7:
  1378.     dc.l p2c,pforev
  1379.       dc.l end_song
  1380.  
  1381. asong8:
  1382.     dc.l p3c,pforev
  1383.       dc.l end_song
  1384. asong9:
  1385.     dc.l p1c,pforev
  1386.       dc.l end_song
  1387.  
  1388. p1c: even
  1389.       dc.b m,new_env,trigg,0
  1390.       dc.l piano_anthenv
  1391.     dc.w Bb04,cr,Bb04,q,rest,q,Bb04,cr,Bb04,cr
  1392.     dc.w Eb05,sq*3,D05,sq,Eb05,sq*3,F05,sq
  1393.     dc.w G05,sq*3,F05,sq,G05,sq*3,Ab05,sq
  1394.     dc.w A05,q*3,Bb05,q,Eb05,cr,Bb04,cr
  1395.     dc.w Eb05,sq*3,D05,sq,F05,sq*3,Eb05,sq
  1396.     dc.w G05,sq*3,F05,sq,Ab05,sq*3,G05,sq
  1397.     dc.w E05,cr,F05,cr*3
  1398.       dc.b m,end_patt
  1399. p2c: even
  1400.       dc.b m,new_env,trigg,0
  1401.       dc.l piano_anthenv1
  1402.     dc.w G04,cr,G04,q,rest,q,G04,cr,rest,cr
  1403.     dc.w G04,cr*2,Bb04,cr*2,Gb05,q*3,G05,q
  1404.     dc.w Bb04,cr,Bb04,cr,G04,cr,Ab04,cr,Bb04,cr,C05,cr
  1405.     dc.w Db05,cr,D05,cr*3
  1406.     dc.b m,end_patt
  1407. p3c: even
  1408.       dc.b m,new_env,trigg,0
  1409.       dc.l bass_anthenv
  1410.     dc.w Eb03,cr,Eb03,q,rest,q,Eb03,cr,rest,cr
  1411.     dc.w Eb03,sq*3,D03,sq,Eb03,sq*3,F03,sq
  1412.     dc.w G03,sq*3,F03,sq,G03,sq*3,Ab03,sq
  1413.     dc.w A03,q*3,Bb03,q,Eb03,cr,Bb02,cr
  1414.     dc.w Eb03,sq*3,D03,sq,F03,sq*3,Eb03,sq
  1415.     dc.w G03,sq*3,F03,sq,Ab03,sq*3,G03,sq
  1416.     dc.w G03,cr,Ab03,cr*3
  1417.     dc.b m,end_patt
  1418. ;;;;;;;;;;;;;;;;;;;;;    CANADA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1419. asong10:
  1420.     dc.l p2d,pforev
  1421.       dc.l end_song
  1422.  
  1423. asong11:
  1424.     dc.l p3d,pforev
  1425.       dc.l end_song
  1426. asong12:
  1427.     dc.l p1d,pforev
  1428.       dc.l end_song
  1429.  
  1430. p1d: even
  1431.       dc.b m,new_env,trigg,0
  1432.       dc.l piano_anthenv
  1433.     dc.w D05,cr*2,F05,cr*2,Bb04,cr*3,C05,cr
  1434.     dc.w D05,cr,Eb05,cr,F05,cr,G05,cr
  1435.     dc.w C05,cr*4,D05,cr*2,E05,cr*2,F05,cr*3,G05,cr
  1436.     dc.w A05,cr,A05,cr,G05,cr,G05,cr,F05,cr*4
  1437.       dc.b m,end_patt
  1438. p2d: even
  1439.       dc.b m,new_env,trigg,0
  1440.       dc.l piano_anthenv1
  1441.     dc.w F04,cr*2,A04,cr*2,G04,cr*3,F04,cr,F04,cr,F04,cr
  1442.     dc.w Bb04,cr,Bb04,cr,Bb04,cr,Bb04,q,G04,q,A04,cr*2
  1443.     dc.w Bb04,cr*2,D05,cr,Db05,cr,D05,cr*3,E05,cr
  1444.     dc.w F05,cr,C05,cr,E05,cr,Bb04,cr,A04,cr*4
  1445.     dc.b m,end_patt
  1446. p3d: even
  1447.       dc.b m,new_env,trigg,0
  1448.       dc.l bass_anthenv
  1449.     dc.w Bb02,cr*2,D03,cr*2,G02,cr,D02,cr,G02,cr,A02,cr
  1450.     dc.w Bb02,cr,C03,cr,D03,cr,E03,cr,F03,cr*4,Bb02,cr*2,A02,cr*2
  1451.     dc.w D03,cr*3,Db03,cr,C03,cr,C03,cr,C03,cr,C03,cr,F02,cr*4
  1452.     dc.b m,end_patt
  1453.  
  1454. ;;;;;;;;;;;;;;;;;;;;;    DENMARK    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1455. asong16:
  1456.     dc.l p2f,pforev
  1457.       dc.l end_song
  1458.  
  1459. asong17:
  1460.     dc.l p3f,pforev
  1461.       dc.l end_song
  1462. asong18:
  1463.     dc.l p1f,pforev
  1464.       dc.l end_song
  1465.  
  1466. p1f: even
  1467.       dc.b m,new_env,trigg,0
  1468.       dc.l piano_anthenv
  1469.     dc.w C05,cr,F05,cr,F04,cr,A04,cr,C05,cr
  1470.     dc.w F05,q*3,G05,q,A05,cr,Bb05,cr
  1471.     dc.w A05,cr*2,G05,cr*2,F05,cr*3,A05,cr
  1472.     dc.w A05,q,G05,q,F05,q,E05,q,G05,q,F05,q,E05,q,D05,q
  1473.     dc.w E05,q*3,F05,q,G05,cr,G05,cr
  1474.     dc.w C06,cr,G05,cr,E05,cr,C05,cr
  1475.     dc.w G05,cr*3,C06,cr,C06,cr,B05,q,A05,q,G05,cr,A05,cr
  1476.     dc.w A05,cr,G05,q,F05,q,E05,cr,F05,cr
  1477.     dc.w E05,cr*2,D05,cr*2,C05,cr*4
  1478.       dc.b m,end_patt
  1479. p2f: even
  1480.       dc.b m,new_env,trigg,0
  1481.       dc.l piano_anthenv1
  1482.     dc.w rest,cr*5,A04,q*3,Bb04,q,C05,cr,D05,cr
  1483.     dc.w F05,cr*2,E05,cr*2,C05,cr,A04,cr,A05,cr,F05,cr
  1484.     dc.w E05,cr,C05,cr,B04,cr,B04,cr
  1485.     dc.w C05,q*3,D05,q,E05,cr,G05,cr
  1486.     dc.w C05,cr,G04,cr,E04,cr,C04,cr
  1487.     dc.w B04,cr*3,C05,cr,E05,cr,E05,cr,E05,cr,F05,cr
  1488.     dc.w F05,cr,E05,q,D05,q,C05,cr,A04,cr
  1489.     dc.w C05,cr*2,B04,cr*2,G04,cr*4
  1490.     dc.b m,end_patt
  1491. p3f: even
  1492.       dc.b m,new_env,trigg,0
  1493.       dc.l bass_anthenv
  1494.     dc.w rest,cr*5,F03,q*3,C03,q,F03,cr,Bb02,cr
  1495.     dc.w C03,cr*2,C03,cr*2,F03,cr*3,F03,cr
  1496.     dc.w C03,cr,G03,cr,G02,cr,D03,cr
  1497.     dc.w C03,q*3,G02,q,C03,cr,G03,cr
  1498.     dc.w C04,cr,G03,cr,E03,cr,C03,cr
  1499.     dc.w G03,q*3,G02,q,G02,cr,C03,cr
  1500.     dc.w C03,cr,C03,cr,C03,cr,C03,cr
  1501.     dc.w C03,cr,C03,cr,C03,cr,F02,cr
  1502.     dc.w G02,cr*2,G02,cr*2,C03,cr*4
  1503.     dc.b m,end_patt
  1504.  
  1505.  
  1506. ;;;;;;;;;;;;;;;;;;;;;    EIRE     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1507. asong19:
  1508.     dc.l p2g,pforev
  1509.       dc.l end_song
  1510.  
  1511. asong20:
  1512.     dc.l p3g,pforev
  1513.       dc.l end_song
  1514. asong21:
  1515.     dc.l p1g,pforev
  1516.       dc.l end_song
  1517.  
  1518. p1g: even
  1519.       dc.b m,new_env,trigg,0
  1520.       dc.l piano_anthenv
  1521.     dc.w A05,cr,Gb05,cr,D05,q,Gb05,q,A05,q*3,A05,q
  1522.     dc.w B05,q,Db06,q,D06,q,E06,q,Gb06,q*3,E06,q
  1523.     dc.w D06,cr,B05,sq*3,B05,sq,A05,cr,Gb05,cr
  1524.     dc.w A05,q*3,G05,q,E05,cr,A04,cr
  1525.     dc.w Gb05,cr,D05,q,Gb05,q,A05,q*3,A05,q
  1526.     dc.w B05,q,Db06,q,D06,q,E06,q,Gb06,q*3,D06,q
  1527.     dc.w Db06,q*3,Db06,q,B05,q*3,B05,q,A05,cr,A05,cr*3
  1528.       dc.b m,end_patt
  1529.  
  1530. p2g: even
  1531.       dc.b m,new_env,trigg,0
  1532.       dc.l piano_anthenv1
  1533.     dc.w rest,cr,A04,cr,rest,cr,E05,cr,rest,q,E05,q
  1534.     dc.w G05,cr,B05,cr,A05,q*3,A05,q,B05,cr,G05,sq*3,G05,sq
  1535.     dc.w D05,cr,D05,cr,Db05,q*3,Db05,q,Db05,cr,Db05,cr
  1536.     dc.w A04,cr,rest,cr,E05,cr,rest,q,E05,q
  1537.     dc.w G05,cr,B05,cr,A05,q*3,A05,q,A05,q*3,A05,q,Ab05,q*3,Ab05,q
  1538.     dc.w E05,cr,E05,cr*3
  1539.     dc.b m,end_patt
  1540. p3g: even
  1541.       dc.b m,new_env,trigg,0
  1542.       dc.l bass_anthenv
  1543.     dc.w rest,cr,D03,cr,rest,cr,Db03,cr,rest,q,Db03,q
  1544.     dc.w B02,cr,G03,cr,D03,q*3,Gb03,q,G03,cr,G03,sq*3,G03,sq
  1545.     dc.w Gb03,cr,D03,cr,A03,q*3,A03,q,A03,cr,A03,cr
  1546.     dc.w D03,cr,rest,cr,Db03,cr,rest,q,Db03,q
  1547.     dc.w B02,cr,G03,cr,D03,q*3,D03,q
  1548.     dc.w E03,q*3,E03,q,E03,q*3,E03,q,A02,cr,A02,cr*3
  1549.     dc.b m,end_patt
  1550.  
  1551. ;;;;;;;;;;;;;;;;;;;;;    FRANCE   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1552. asong25:
  1553.     dc.l p2i,pforev
  1554.       dc.l end_song
  1555.  
  1556. asong26:
  1557.     dc.l p3i,pforev
  1558.       dc.l end_song
  1559. asong27:
  1560.     dc.l p1i,pforev
  1561.       dc.l end_song
  1562.  
  1563. p1i: even
  1564.       dc.b m,new_env,trigg,0
  1565.       dc.l piano_anthenv
  1566.     dc.w B04,sq,B04,sq*3,B04,sq
  1567.     dc.w E05,cr,E05,cr,Gb05,cr,Gb05,cr,B05,cr+q+sq,Ab05,sq
  1568.     dc.w E05,sq*3,E05,sq,Ab05,sq*3,E05,sq
  1569.     dc.w Db05,cr,A05,cr*2,Gb05,sq*3,Eb05,sq,E05,cr*4
  1570.       dc.b m,end_patt
  1571. p2i: even
  1572.       dc.b m,new_env,trigg,0
  1573.       dc.l piano_anthenv1
  1574.     dc.w rest,sq*5
  1575.     dc.w Ab04,cr,Ab04,cr,B04,cr,B04,cr
  1576.     dc.w Ab04,cr+q+sq,Ab04,sq,Ab04,sq*3,Ab04,sq,B04,sq*3,Ab04,sq
  1577.     dc.w A04,cr,Db05,cr,Eb04,cr,A04,cr
  1578.     dc.w Ab04,cr*4
  1579.     dc.b m,end_patt
  1580. p3i: even
  1581.       dc.b m,new_env,trigg,0
  1582.       dc.l bass_anthenv
  1583.     dc.w B02,sq,B02,sq*3,B02,sq
  1584.     dc.w E03,cr,E03,cr,Eb03,cr,Eb03,cr
  1585.     dc.w E03,cr+q+sq,E03,sq,E03,sq*3,E03,sq,E03,sq*3,E03,sq
  1586.     dc.w A02,cr,Gb02,cr,B02,cr*2,E03,cr*4
  1587.     dc.b m,end_patt
  1588. ;;;;;;;;;;;;;;;;;;;;;    GERMANY   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1589. asong28:
  1590.     dc.l p2j,pforev
  1591.       dc.l end_song
  1592.  
  1593. asong29:
  1594.     dc.l p3j,pforev
  1595.       dc.l end_song
  1596. asong30:
  1597.     dc.l p1j,pforev
  1598.       dc.l end_song
  1599.  
  1600. p1j: even
  1601.       dc.b m,new_env,trigg,0
  1602.       dc.l piano_anthenv
  1603.     dc.w C04,q*3,D04,q,E04,cr,D04,cr
  1604.     dc.w F04,cr,E04,cr,D04,q,B03,q,C04,cr
  1605.     dc.w A04,cr,G04,cr,F04,cr,E04,cr
  1606.     dc.w D04,cr,E04,q,C04,q,G04,cr*2
  1607.     dc.w C05,q*3,B04,q,B04,q,A04,q,G04,cr
  1608.     dc.w A04,q*3,G04,q,G04,q,F04,q,E04,cr
  1609.     dc.w D04,q*3,E04,sq,F04,sq,G04,q,A04,q,F04,q,D04,q
  1610.     dc.w C04,cr,E04,q,D04,q,C04,cr*2
  1611.       dc.b m,end_patt
  1612. p2j: even
  1613.       dc.b m,new_env,trigg,0
  1614.       dc.l piano_anthenv1
  1615.     dc.w E03,q*3,F03,q,G03,cr,A03,cr
  1616.     dc.w A03,cr,G03,cr,G03,q,F03,q,E03,cr
  1617.     dc.w C04,cr,C04,cr,A03,cr,C04,cr
  1618.     dc.w Gb03,cr,G03,cr,B03,cr*2
  1619.     dc.w D04,q,E04,q,G04,cr,C04,cr,C04,cr
  1620.     dc.w C04,q,D04,q,E04,cr,B03,cr,C04,cr
  1621.     dc.w B03,cr*2,E04,cr,A03,cr
  1622.     dc.w E03,cr,F03,cr,E03,cr*2
  1623.     dc.b m,end_patt
  1624. p3j: even
  1625.       dc.b m,new_env,trigg,0
  1626.       dc.l bass_anthenv
  1627.     dc.w C03,q*3,C03,q,C03,cr,F02,cr
  1628.     dc.w F02,cr,C03,cr,G02,cr,C03,cr
  1629.     dc.w F03,cr,E03,cr,D03,cr,C03,cr
  1630.     dc.w D03,cr,C03,cr,G02,cr*2
  1631.     dc.w C03,cr,E03,cr,F03,cr,E03,cr
  1632.     dc.w F03,cr,E03,cr,G03,cr,C03,cr
  1633.     dc.w G02,cr*2,C03,cr,F02,cr
  1634.     dc.w G02,cr,G02,cr,C03,cr*2
  1635.     dc.b m,end_patt
  1636.  
  1637. ;;;;;;;;;;;;;;;;;;;;;    G.B.    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1638. asong34:
  1639.     dc.l p2l,pforev
  1640.       dc.l end_song
  1641.  
  1642. asong35:
  1643.     dc.l p3l,pforev
  1644.       dc.l end_song
  1645. asong36:
  1646.     dc.l p1l,pforev
  1647.       dc.l end_song
  1648.  
  1649. p1l: even
  1650.       dc.b m,new_env,trigg,0
  1651.       dc.l piano_anthenv
  1652.     dc.w E04,cr,E04,cr,Gb04,cr
  1653.     dc.w Eb04,q*3,E04,q,Gb04,cr
  1654.     dc.w Ab04,cr,Ab04,cr,A04,cr
  1655.     dc.w Ab04,q*3,Gb04,q,E04,cr
  1656.     dc.w Gb04,cr,E04,cr,Eb04,cr
  1657.     dc.w E04,cr,E04,q,Gb04,q,Ab04,q,A04,q
  1658.     dc.w B04,cr,B04,cr,B04,cr
  1659.     dc.w B04,q*3,A04,q,Ab04,cr
  1660.     dc.w A04,cr,A04,cr,A04,cr
  1661.     dc.w A04,q*3,Ab04,q,Gb04,cr
  1662.     dc.w Ab04,cr,A04,q,Ab04,q,Gb04,q,E04,q
  1663.     dc.w Ab04,q*3,A04,q,B04,cr    
  1664.     dc.w Db05,q,A04,q,Ab04,cr,Gb04,cr,E04,cr*3
  1665.       dc.b m,end_patt
  1666. p2l: even
  1667.       dc.b m,new_env,trigg,0
  1668.       dc.l piano_anthenv1
  1669.     dc.w Ab03,cr,B03,cr,Db04,cr
  1670.     dc.w B03,q*3,A03,q,B03,cr
  1671.     dc.w B03,cr,E04,cr,Db04,cr
  1672.     dc.w E04,q*3,Ab03,q,Ab03,cr
  1673.     dc.w Db04,cr,Ab03,cr,Gb03,cr
  1674.     dc.w Ab03,cr,Ab03,q,A03,q,B03,q,Db04,q
  1675.     dc.w Ab03,cr,B03,cr,E04,cr
  1676.     dc.w Ab04,q*3,Eb04,q,B03,cr
  1677.     dc.w Eb04,cr,B03,cr,B03,cr
  1678.     dc.w Eb04,q*3,B03,q,Eb04,cr
  1679.     dc.w B03,cr,Db04,cr,B03,cr
  1680.     dc.w E04,q*3,Gb04,q,Ab04,cr
  1681.     dc.w Gb04,cr,E04,cr,Eb04,q,A03,q,Ab03,cr*3
  1682.     dc.b m,end_patt
  1683. p3l: even
  1684.       dc.b m,new_env,trigg,0
  1685.       dc.l bass_anthenv
  1686.     dc.w E02,cr,Ab02,cr,A02,cr
  1687.     dc.w B02,q*3,Db03,q,Eb04,cr
  1688.     dc.w E03,cr,Db03,cr,A02,cr
  1689.     dc.w B02,q*3,C03,q,Db03,cr
  1690.     dc.w A02,cr,B02,cr,B02,cr
  1691.     dc.w E03,cr*3
  1692.     dc.w E02,cr,Ab02,cr,B02,cr
  1693.     dc.w E03,q*3,B02,q,E03,cr,B02,cr,Eb03,cr,Gb03,cr
  1694.     dc.w B02,q*3,E03,q,B02,cr,E03,cr,Gb03,q,E03,q,Eb03,q,Db03,q
  1695.     dc.w B02,q,A02,q,Ab02,q,Gb02,q,E02,cr,A02,cr,B02,cr,B02,cr,E02,cr*3
  1696.     dc.b m,end_patt
  1697. ;;;;;;;;;;;;;;;;;;;;;    HOLLANDS  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1698. asong37:
  1699.     dc.l p2m,pforev
  1700.       dc.l end_song
  1701.  
  1702. asong38:
  1703.     dc.l p3m,pforev
  1704.       dc.l end_song
  1705. asong39:
  1706.     dc.l p1m,pforev
  1707.       dc.l end_song
  1708.  
  1709. p1m: even
  1710.       dc.b m,new_env,trigg,0
  1711.       dc.l piano_anthenv
  1712.     dc.w C05,cr,F05,cr,F05,cr,G05,q,A05,q,Bb05,q,G05,q
  1713.     dc.w A05,cr,G05,q,A05,q,Bb05,cr,A05,cr,G05,q,F05,q,G05,cr,F05,cr*3
  1714.       dc.b m,end_patt
  1715. p2m: even
  1716.       dc.b m,new_env,trigg,0
  1717.       dc.l piano_anthenv1
  1718.     dc.w Bb03,cr,A03,cr,A03,cr,D04,cr,E04,cr,C04,cr
  1719.     dc.w Bb03,q,C04,q,D04,cr,F04,cr,E04,q,D04,q,E04,cr,C04,cr*3
  1720.     dc.b m,end_patt
  1721. p3m: even
  1722.       dc.b m,new_env,trigg,0
  1723.       dc.l bass_anthenv
  1724.     dc.w E03,cr,F03,cr,C03,cr,Bb02,cr,C03,cr,F03,cr,D03,q,C03,q
  1725.     dc.w Bb02,cr,C03,cr,C03,q,C03,q,C03,cr,F02,cr*3
  1726.     dc.b m,end_patt
  1727.  
  1728. ;;;;;;;;;;;;;;;;;;;;;    ITALY   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1729. asong43:
  1730.     dc.l p2o,pforev
  1731.       dc.l end_song
  1732.  
  1733. asong44:
  1734.     dc.l p3o,pforev
  1735.       dc.l end_song
  1736. asong45:
  1737.     dc.l p1o,pforev
  1738.       dc.l end_song
  1739.  
  1740. p1o: even
  1741.       dc.b m,new_env,trigg,0
  1742.       dc.l piano_anthenv
  1743.     dc.w G04,cr,G04,sq*3,A04,sq,G04,cr*2
  1744.     dc.w E05,cr,E05,sq*3,F05,sq,E05,cr*2
  1745.     dc.w E05,cr,G05,sq*3,F05,sq,E05,cr*2
  1746.     dc.w D05,cr,E05,sq*3,D05,sq,C05,cr*2
  1747.       dc.b m,end_patt
  1748. p2o: even
  1749.       dc.b m,new_env,trigg,0
  1750.       dc.l piano_anthenv1
  1751.     dc.w E04,cr,E04,sq*3,F04,sq,E04,sq*3,E04,sq,E04,cr
  1752.     dc.w G04,cr,G04,sq*3,A04,sq,G04,sq*3,G04,sq,G04,cr
  1753.     dc.w C05,cr,E05,sq*3,D05,sq,C05,cr*2
  1754.     dc.w B04,cr,C05,sq*3,B04,sq,E04,cr*2
  1755.     dc.b m,end_patt
  1756. p3o: even
  1757.       dc.b m,new_env,trigg,0
  1758.       dc.l bass_anthenv
  1759.     dc.w C04,cr,C04,sq*3,C04,sq,C04,sq*3,C04,sq,C04,cr
  1760.     dc.w C04,cr,C04,sq*3,C04,sq,C04,sq*3,C04,sq,C04,cr
  1761.     dc.w C04,cr,C04,sq*3,C04,sq,C04,cr,G03,cr
  1762.     dc.w G03,cr,G03,sq*3,G03,sq,C04,cr,C03,cr
  1763.     dc.b m,end_patt
  1764.  
  1765. ;;;;;;;;;;;;;;;;;;;;;    JAPAN   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1766. asong49:
  1767.     dc.l p2q,pforev
  1768.       dc.l end_song
  1769.  
  1770. asong50:
  1771.     dc.l p3q,pforev
  1772.       dc.l end_song
  1773. asong51:
  1774.     dc.l p1q,pforev
  1775.       dc.l end_song
  1776.  
  1777. p1q: even
  1778.       dc.b m,new_env,trigg,0
  1779.       dc.l piano_anthenv
  1780.     dc.w G04,cr,F04,cr,G04,cr,A04,cr,C05,cr,A04,cr,G04,cr*2
  1781.     dc.w A04,cr,C05,cr,D05,cr,C05,q,D05,q
  1782.     dc.w G05,cr,E05,cr,D05,cr,C05,cr,A04,cr,C05,cr,D05,cr*2
  1783.     dc.w G05,cr,F05,cr,G05,cr*2,A04,cr,C05,cr,D05,cr,C05,cr
  1784.     dc.w A04,q*3,C05,q,G04,cr*2,D05,cr,F05,cr,G05,cr,G05,cr
  1785.     dc.w F05,cr,G05,cr,D05,cr,C05,cr,D05,cr,C05,q,A04,q,G04,cr*2
  1786.       dc.b m,end_patt
  1787.  
  1788. p2q: even
  1789.       dc.b m,new_env,trigg,0
  1790.       dc.l piano_anthenv1
  1791.     dc.w rest,cr*8,F04,cr,F04,cr,F04,cr,E04,q,F04,q
  1792.     dc.w Db05,cr,Db05,cr,Bb04,cr,G04,cr
  1793.     dc.w F04,cr,F04,cr,F04,cr*2,Bb04,cr,A04,cr,Bb04,cr*2
  1794.     dc.w F04,cr,F04,cr,F04,cr,F04,cr
  1795.     dc.w F04,cr*2,E04,cr*2,F04,cr,Bb04,cr,Bb04,cr,Bb04,cr
  1796.     dc.w A04,cr,Bb04,cr,rest,cr*6
  1797.     dc.b m,end_patt
  1798. p3q: even
  1799.       dc.b m,new_env,trigg,0
  1800.       dc.l bass_anthenv
  1801.     dc.w rest,cr*8,F02,cr,A02,cr,Bb02,cr,A02,q,Bb02,q
  1802.     dc.w G02,cr,C03,cr,G02,cr,C03,cr
  1803.     dc.w F02,cr,A02,cr,Bb02,cr*2,G02,cr,D02,cr,G02,cr*2
  1804.     dc.w F02,cr,A02,cr,Bb02,cr,A02,cr
  1805.     dc.w F02,cr*2,C03,cr*2,Bb02,cr,D03,cr,C03,cr,D03,cr
  1806.     dc.w D03,cr,D03,cr,D03,cr,C03,cr,C03,cr,C03,q,A02,q,G02,cr*2
  1807.     dc.b m,end_patt
  1808.  
  1809. ;;;;;;;;;;;;;;;;;;;;;    MEXICO   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1810. asong55:
  1811.     dc.l p2s,pforev
  1812.       dc.l end_song
  1813.  
  1814. asong56:
  1815.     dc.l p3s,pforev
  1816.       dc.l end_song
  1817. asong57:
  1818.     dc.l p1s,pforev
  1819.       dc.l end_song
  1820.  
  1821. p1s: even
  1822.       dc.b m,new_env,trigg,0
  1823.       dc.l piano_anthenv
  1824.     dc.w F04,cr,A04,q,C05,q*3,C05,cr,C05,q
  1825.     dc.w C05,q*3,C05,q,D05,q,E05,q,F05,q*3,E05,q*3
  1826.     dc.w C05,q*3,A04,cr,F04,q,F04,q*3,A04,cr,A04,q
  1827.     dc.w Bb04,q*3,C05,cr,C05,q,A04,cr,G04,q,F04,q*3
  1828.       dc.b m,end_patt
  1829. p2s: even
  1830.       dc.b m,new_env,trigg,0
  1831.       dc.l piano_anthenv1
  1832.     dc.w rest,q*3,A04,q*3,A04,cr,A04,q,A04,q*3,A04,q,A04,q,A04,q
  1833.     dc.w A04,q*3,A04,q*3,A04,q*3,F04,cr,C04,q,Bb03,q*3,C04,cr,C04,q
  1834.     dc.w D04,q*3,E04,cr,E04,q,C04,cr,Bb03,q,A03,q*3 
  1835.     dc.b m,end_patt
  1836. p3s: even
  1837.       dc.b m,new_env,trigg,0
  1838.       dc.l bass_anthenv
  1839.     dc.w rest,q*3,F03,q*3,C03,cr,C03,q,F03,q*3,F03,q,F03,q,F03,q
  1840.     dc.w F03,q*3,C03,q*3,F03,q*3,C03,cr,C03,q,C03,q*3,C03,cr,C03,q
  1841.     dc.w C03,q*3,C03,cr,C03,q,F03,q*3,F03,q*3
  1842.     dc.b m,end_patt
  1843.  
  1844. ;;;;;;;;;;;;;;;;;;;;;    NORWAY  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1845. asong58:
  1846.     dc.l p2t,pforev
  1847.       dc.l end_song
  1848.  
  1849. asong59:
  1850.     dc.l p3t,pforev
  1851.       dc.l end_song
  1852. asong60:
  1853.     dc.l p1t,pforev
  1854.       dc.l end_song
  1855.  
  1856. p1t: even
  1857.       dc.b m,new_env,trigg,0
  1858.       dc.l piano_anthenv
  1859.     dc.w Bb04,cr,Eb05,q*3,Db05,q,C05,cr,Bb04,cr
  1860.     dc.w Ab04,cr,Bb04,cr,C05,cr,Db05,cr
  1861.     dc.w Eb05,q*3,F05,q,Eb05,cr,Db05,cr,C05,cr*4
  1862.     dc.w F05,q*3,Eb05,q,Db05,cr,C05,cr
  1863.     dc.w Bb04,cr,C05,cr,Db05,cr,Eb05,q*5,F05,q
  1864.     dc.w Db05,cr,G05,cr,Ab05,cr*4
  1865.       dc.b m,end_patt
  1866. p2t: even
  1867.       dc.b m,new_env,trigg,0
  1868.       dc.l piano_anthenv1
  1869.     dc.w rest,cr*8,Ab04,cr,G04,q*3,Db05,q,C05,cr,Bb04,cr
  1870.     dc.w Ab04,cr*4,rest,cr*7,G04,cr,Ab04,cr*2,F04,cr,Bb04,cr
  1871.     dc.w C05,cr*4
  1872.     dc.b m,end_patt
  1873. p3t: even
  1874.       dc.b m,new_env,trigg,0
  1875.       dc.l bass_anthenv
  1876.     dc.w rest,cr*8,F03,cr,Eb03,q*3,Eb02,q,F02,cr,G02,cr
  1877.     dc.w Ab02,cr*4,rest,cr*7,Db03,cr,C03,cr*2,Bb02,cr,Eb03,cr
  1878.     dc.w Ab02,cr*4
  1879.     dc.b m,end_patt
  1880.  
  1881. ;;;;;;;;;;;;;;;;;;;;;    SPAIN   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1882. asong61:
  1883.     dc.l p2u,pforev
  1884.       dc.l end_song
  1885.  
  1886. asong62:
  1887.     dc.l p3u,pforev
  1888.       dc.l end_song
  1889. asong63:
  1890.     dc.l p1u,pforev
  1891.       dc.l end_song
  1892.  
  1893. p1u: even
  1894.       dc.b m,new_env,trigg,0
  1895.       dc.l piano_anthenv
  1896.     dc.w Ab05,cr,Eb05,cr,C06,cr,Ab05,q,Eb06,q
  1897.     dc.w Db06,q,C06,q,Bb05,q,Ab05,q,Ab05,q,G05,q,F05,q,Eb05,q
  1898.     dc.w Ab05,cr,Bb05,cr,C06,q*3,Eb06,q
  1899.     dc.w Db06,q,C06,q,Bb05,q,Ab05,q,G05,cr*2
  1900.     dc.w Ab05,cr,Eb05,cr,C06,cr,Ab05,q,Eb06,q
  1901.     dc.w Db06,q,C06,q,Bb05,q,Ab05,q,Ab05,q,G05,q,F05,q,Eb05,q
  1902.     dc.w Ab05,cr,Bb05,cr,C06,q*3,Eb06,q
  1903.     dc.w Db06,q,C06,q,Bb05,q,Ab05,q,Ab05,cr*2
  1904.       dc.b m,end_patt
  1905. p2u: even
  1906.       dc.b m,new_env,trigg,0
  1907.       dc.l piano_anthenv1
  1908.     dc.w C05,cr,C05,cr,Eb05,cr,C05,cr
  1909.     dc.w F05,cr*2,Eb05,cr,Db05,cr
  1910.     dc.w C05,cr,Db05,cr,Eb05,q*3,C05,q
  1911.     dc.w Ab04,cr,F04,cr,G04,cr*2
  1912.     dc.w C05,cr,C05,cr,Eb05,cr,C05,cr
  1913.     dc.w F05,cr*2,Eb05,cr,Db05,cr
  1914.     dc.w C05,cr,Db05,cr,Eb05,q*3,C05,q
  1915.     dc.w Ab04,cr,G04,cr,Ab04,cr*2
  1916.     dc.b m,end_patt
  1917. p3u: even
  1918.       dc.b m,new_env,trigg,0
  1919.       dc.l bass_anthenv
  1920.     dc.w Ab02,cr,Ab02,cr,Ab02,cr,Ab02,cr
  1921.     dc.w Ab02,q,Bb02,q,C03,q,D03,q,Eb03,cr*2
  1922.     dc.w Ab02,cr,Eb03,cr,Ab02,cr,G02,cr
  1923.     dc.w F02,cr,Db02,cr,Eb02,cr*2
  1924.     dc.w Ab02,cr,Ab02,cr,Ab02,cr,Ab02,cr
  1925.     dc.w Ab02,q,Bb02,q,C03,q,D03,q,Eb03,cr*2
  1926.     dc.w Ab02,cr,Eb03,cr,Ab02,cr,G02,cr
  1927.     dc.w F02,cr,Eb02,cr,Ab02,cr*2
  1928.     dc.b m,end_patt
  1929.  
  1930. ;;;;;;;;;;;;;;;;;;;;;    U.S.A.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1931. asong67:
  1932.     dc.l p2w,pforev
  1933.       dc.l end_song
  1934.  
  1935. asong68:
  1936.     dc.l p3w,pforev
  1937.       dc.l end_song
  1938. asong69:
  1939.     dc.l p1w,pforev
  1940.       dc.l end_song
  1941.  
  1942. p1w: even
  1943.       dc.b m,new_env,trigg,0
  1944.       dc.l piano_anthenv
  1945.     dc.w F05,sq*3,D05,sq,Bb04,cr,D05,cr,F05,cr
  1946.     dc.w Bb05,cr*2,D06,sq*3,C06,sq,Bb05,cr,D05,cr,E05,cr
  1947.     dc.w F05,cr*2,F05,q,F05,q,D06,q*3,C06,q,Bb05,cr
  1948.     dc.w A05,cr*2,G05,q,A05,q,Bb05,cr,Bb05,cr,F05,cr,D05,cr,Bb04,cr*2
  1949.       dc.b m,end_patt
  1950. p2w: even
  1951.       dc.b m,new_env,trigg,0
  1952.       dc.l piano_anthenv1
  1953.     dc.w F05,sq*3,D05,sq,Bb04,cr,Bb04,cr,C05,cr,D05,cr*2,D05,cr
  1954.     dc.w D05,cr,Bb04,cr,C05,cr,A04,cr*3,F05,q*3,Eb05,q,D05,cr
  1955.     dc.w C05,cr*2,Bb04,q,C05,q,D05,cr,D05,cr,D05,cr,Bb04,cr,F04,cr*2
  1956.     dc.b m,end_patt
  1957. p3w: even
  1958.       dc.b m,new_env,trigg,0
  1959.       dc.l bass_anthenv
  1960.     dc.w F03,sq*3,Eb03,sq,Bb02,cr,Bb02,cr,A02,cr,G02,cr*2
  1961.     dc.w Gb02,cr,G02,cr,G02,cr,C03,cr,F02,cr*2,F03,q,F03,q
  1962.     dc.w Bb02,cr*3,F02,cr*3,Bb02,cr,Bb02,cr,F03,cr,D03,cr,Bb02,cr*2
  1963.     dc.b m,end_patt
  1964.  
  1965. ;;;;;;;;;;;;;;;;;;;;;    U.S.S.R  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1966. asong70:
  1967.     dc.l p2x,pforev
  1968.       dc.l end_song
  1969.  
  1970. asong71:
  1971.     dc.l p3x,pforev
  1972.       dc.l end_song
  1973. asong72:
  1974.     dc.l p1x,pforev
  1975.       dc.l end_song
  1976.  
  1977. p1x: even
  1978.       dc.b m,new_env,trigg,0
  1979.       dc.l piano_anthenv
  1980.     dc.w e05,cr,e05,cr,f05,cr,g05,cr,g05,cr,f05,cr,e05,cr,d05,cr
  1981.     dc.w c05,cr,c05,cr,d05,cr,e05,cr,e05,cr+q,d05,q,d05,cr*2           
  1982.      dc.w e05,cr,e05,cr,f05,cr,g05,cr,g05,cr,f05,cr,e05,cr,d05,cr
  1983.     dc.w c05,cr,c05,cr,d05,cr,e05,cr,d05,cr+q,c05,q,c05,cr*2           
  1984.  
  1985.  
  1986.       dc.b m,end_patt
  1987. p2x: even
  1988.       dc.b m,new_env,trigg,0
  1989.       dc.l piano_anthenv1
  1990.     dc.w c04,cr*4,g04,cr*4,c04,cr*4,g04,cr*4,c04,cr*4,g04,cr*4
  1991.     dc.w f04,cr*4,g04,cr*2,c04,cr*2
  1992.  
  1993.  
  1994.  
  1995.     dc.b m,end_patt
  1996. p3x: even
  1997.       dc.b m,new_env,trigg,0
  1998.       dc.l bass_anthenv
  1999.     dc.w g04,cr*4,d04,cr*4,g04,cr*4,d04,cr*4,g02,cr*4,d02,cr*4
  2000.     dc.w a04,cr*4,b04,cr*2,g04,cr*2
  2001.  
  2002.  
  2003.  
  2004.  
  2005.     dc.b m,end_patt
  2006.  
  2007.  
  2008.  
  2009. bass_anthenv: dc.b 15,t2,15,t2,15,t2,15,t2
  2010.   dc.b 15,t2,14,t2,13,t2,13,t2,12,t2,12,t2,11,t2,10,t2,9,t2,8,t2,7,t2,6,t2,5,t2
  2011.   dc.b 0,t2,255
  2012. piano_anthenv:    dc.b 15,t3,15,t3,15,t3,15,t3,14,t3
  2013.   dc.b 14,t3,14,t3,14,t3,14,t3,14,t3
  2014.   dc.b 13,t3,13,t3,13,t3,13,t3,13,t3
  2015.   dc.b 13,t3,12,t3,12,t3,12,t3,12,t3
  2016.   dc.b 11,t3,11,t3,11,t3,11,t3,11,t3
  2017.   dc.b 10,t3,10,t3,10,t3,10,t3,10,t3
  2018.   dc.b 9,t3,9,t3,8,t3,8,t3,7,t3,7,t3,6,t3,6,t3,6,t3
  2019.   dc.b 5,t3,4,t3,3,t3,2,t3,1,t3,0,t3,255
  2020. piano_anthenv1:  dc.b 15,t1,15,t1,15,t1,15,t1,14,t1
  2021.   dc.b 14,t1,14,t1,14,t1,14,t1,14,t1
  2022.   dc.b 13,t1,13,t1,13,t1,13,t1,13,t1
  2023.   dc.b 13,t1,12,t1,12,t1,12,t1,12,t1
  2024.   dc.b 11,t1,11,t1,11,t1,11,t1,11,t1
  2025.   dc.b 10,t1,10,t1,10,t1,10,t1,10,t1
  2026.   dc.b 9,t1,9,t1,8,t1,8,t1,7,t1,7,t1,6,t1,6,t1,6,t1
  2027.   dc.b 5,t1,4,t1,3,t1,2,t1,1,t1,0,t1,255
  2028.  
  2029.  
  2030.  
  2031. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2032.  
  2033.     EVEN
  2034. chfx_table:
  2035.  
  2036.     dc.l ath_lands
  2037.     dc.l hit_bar    
  2038.     dc.l failure_beep
  2039.     dc.l ath_lands_bad
  2040.     dc.l gjump
  2041.     dc.l gun_bang
  2042.     dc.l oar_stroke
  2043.     dc.l footstep1
  2044.     dc.l footstep2
  2045.     dc.l sabre_clash
  2046.     dc.l hit_award
  2047.     dc.l hit_null_siren
  2048.     dc.l near_p_limit
  2049.     dc.l sabre_whoosh
  2050.     dc.l firework1
  2051.     dc.l firework2
  2052.     dc.l crowd_loud
  2053.     dc.l countdown_beep
  2054.     dc.l timer_beep
  2055.     dc.l marks_beep
  2056.     dc.l set_beep
  2057.     dc.l go_beep
  2058.     dc.l swim_stroke_splash
  2059.     dc.l turn_around_splash
  2060.     dc.l hop
  2061.     dc.l skip
  2062.     dc.l jump
  2063.     dc.l horse_slow
  2064.     dc.l horse_fast
  2065.     dc.l  water_roar
  2066.     dc.l  gate_success
  2067.     dc.l  gate_fail
  2068.     dc.l  hit_bank
  2069.     dc.l  start_pistol
  2070.     dc.l  diver_splash
  2071.  
  2072. ;**********************************************
  2073.     even
  2074.  
  2075. ;**************************************************
  2076. ath_lands:    
  2077.                            dc.b   m,new_env,trigg,0
  2078.                            dc.l   punch_env
  2079.  
  2080.             DC.B    M,inline,6,31,255,0
  2081.  
  2082.                         dc.b   m,pbend,down,200
  2083.                         dc.w   C01,0
  2084.             dc.w   C05,7
  2085.             DC.B    M,inline,6,200,255,0
  2086.                            dc.b   m,endfx_patt
  2087.  
  2088. punch_env        dc.b 15,n1,14,n1,13,t1,12,t1,10,t1
  2089.             dc.b 9,t1,8,t1,0,t1,255,0
  2090.  
  2091.  
  2092. **************************************
  2093.  
  2094. hit_bar:
  2095.                            dc.b      m,new_env,trigg,0
  2096.                            dc.l      hit_bar_env
  2097.             dc.b    M,inline,6,31,255,0
  2098.             dc.w    0,1
  2099.             dc.b    m,inline,6,30,254,0
  2100.             DC.B    M,inline,6,30,254,0
  2101.             dc.b    m,inline,6,23,254,0
  2102.             dc.b    m,inline,6,32,254,0
  2103.             DC.w    0,6
  2104.                          dc.b      m,new_env,trigg,0
  2105.                            dc.l      hit_bar_env
  2106.             DC.w    20,20
  2107.             dc.b    m,inline,6,200,254,0
  2108.             dc.b    m,endfx_patt
  2109.  
  2110.     even
  2111.  
  2112. hit_bar_env:    dc.b 15,b1,14,b1,13,b1,12,n1,11,b1,7,n1,7,b1
  2113.         ;dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,b1,6,n1,6,n1
  2114.         ;dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,b1,4,n1,4,n1,4,n1,4,n1
  2115.         ;dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,b1,2,n1,2,n1,2,n1,2,n1
  2116.         DC.B 0,N1,255
  2117.  
  2118. ******************************
  2119.     EVEN
  2120.  
  2121. failure_beep:
  2122.                            dc.b      m,new_env,trigg,0
  2123.                            dc.l      fb_env
  2124.             dc.w    A02,10,e02,15
  2125.                            dc.B    m,endfx_patt
  2126.  
  2127. fb_env:    dc.b 12,t1,255,0
  2128. *********************
  2129.     even
  2130.  
  2131. ath_lands_bad:    
  2132.                            dc.b   m,new_env,trigg,0
  2133.                            dc.l   punch_envx
  2134.  
  2135.             DC.B    M,inline,6,31,255,0
  2136.  
  2137.                         dc.b   m,pbend,down,200
  2138.                         dc.w   C01,0
  2139.             dc.w   C05,3,C01,4
  2140.             DC.B    M,inline,6,200,255,0
  2141.                            dc.b   m,endfx_patt
  2142.  
  2143. punch_envx        dc.b 15,b1,14,b1,13,n1,12,b1,10,t1
  2144.             dc.b 9,t1,8,t1,0,t1,255,0
  2145. ***************************
  2146.  even
  2147. ;------------------------------
  2148. gjump
  2149.     dc.b    m,new_env,trigg,0
  2150.     dc.l    spring_env1
  2151.     dc.b    M,inline,6,8,255,0
  2152.  
  2153.         dc.b   m,pbend,up,25
  2154.         dc.w   1,0
  2155.     dc.w    C03,2,c03,2,C03,2,C03,2
  2156.     dc.b    m,new_env,trigg,0
  2157.     dc.l    spring_env
  2158.     dc.w    c03,10
  2159.     dc.b    m,endfx_patt
  2160.  
  2161. spring_env1    dc.b 15,t1,8,n1,255,0
  2162. spring_env    dc.b 15,t1,15,B1,15,t1,14,t1,13,t1,12,t1,11,t1,10,t1,255,0
  2163.  
  2164. ****************************
  2165.      even
  2166.  
  2167. gun_bang
  2168.                            dc.b      m,new_env,trigg,0
  2169.                            dc.l      gun_env
  2170.             DC.B    M,inline,6,50,255,0
  2171.                         dc.b   m,pbend,down,100
  2172.                         dc.w   g01,0
  2173.                        dc.w    g04,18
  2174.             DC.B    M,inline,6,200,255,0
  2175.                            dc.B    m,endfx_patt    
  2176.  
  2177.  
  2178.  
  2179. gun_env    dc.b 15,b1,15,b1,3,b1,15,b1,12,b1,11,b1,9,b1
  2180.         dc.b 9,b1,8,b1,7,b1,3,b1,2,b1,1,b1,0,b1,255
  2181. **********************
  2182.     even
  2183.  
  2184. oar_stroke:
  2185.                            dc.b      m,new_env,trigg,0
  2186.                            dc.l      oar_env
  2187.             dc.b    M,inline,6,31,255,0
  2188.             dc.w    0,1
  2189.             dc.b    m,inline,6,30,254,0
  2190.             DC.B    M,inline,6,30,254,0
  2191.             dc.b    m,inline,6,23,254,0
  2192.             dc.b    m,inline,6,22,254,0
  2193.             DC.w    0,2
  2194.               dc.b     m,modon,2,2
  2195.               dc.w     8,8,1
  2196.                            dc.b      m,new_env,trigg,0
  2197.                            dc.l      oar_env
  2198.             DC.w    20,27
  2199.             dc.b    m,inline,6,200,254,0
  2200.             dc.b    m,endfx_patt
  2201.  
  2202.     even
  2203.  
  2204. oar_env:    dc.b 6,n1,7,n1,8,b1,9,n1,10,n1,12,n1,7,n1
  2205.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  2206.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  2207.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  2208.         DC.B 0,N1,255
  2209.  
  2210. *************************
  2211.  
  2212.     even
  2213. footstep1:
  2214.             dc.b    M,inline,6,25,255,0
  2215.                            dc.b      m,new_env,trigg,0
  2216.                            dc.l      f1_env
  2217.             dc.w    A02,2
  2218.             dc.b    m,inline,6,200,254,0
  2219.  
  2220.                            dc.B    m,endfx_patt
  2221.  
  2222. f1_env:    dc.b 12,b1,6,b1,255,0
  2223.  
  2224.  
  2225.     even
  2226. footstep2:
  2227.             dc.b    M,inline,6,31,255,0
  2228.                            dc.b      m,new_env,trigg,0
  2229.                            dc.l      f1_env
  2230.             dc.w    A01,2
  2231.             dc.b    m,inline,6,200,254,0
  2232.  
  2233.                            dc.B    m,endfx_patt
  2234.  
  2235.     even
  2236. **********************
  2237.  
  2238. sabre_clash:
  2239.                            ;dc.b      m,new_env,trigg,0
  2240.                            ;dc.l      sc_env
  2241.             ;dc.b    M,inline,6,31,255,0
  2242.             ;dc.w    0,1
  2243.             ;dc.b    m,inline,6,30,254,0
  2244.             ;DC.B    M,inline,6,30,254,0
  2245.             ;dc.b    m,inline,6,23,254,0
  2246.             dc.b    m,inline,6,5,254,0
  2247.             ;DC.w    0,2
  2248.               ;dc.b     m,modon,2,2
  2249.               ;dc.w     8,8,1
  2250.                            dc.b      m,new_env,trigg,0
  2251.                            dc.l      sc_env
  2252.             DC.w    20,12
  2253.             dc.b    m,inline,6,200,254,0
  2254.             dc.b    m,endfx_patt
  2255.  
  2256.     even
  2257. sc_env:    dc.b 15,n1,14,n1,13,b1,12,n1,11,n1,10,n1,7,n1
  2258.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  2259.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  2260.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  2261.         DC.B 0,N1,255
  2262.  
  2263.     EVEN
  2264. ****************
  2265.     even
  2266.  
  2267. hit_award
  2268.                            dc.b      m,new_env,trigg,0
  2269.                            dc.l      award_env
  2270.  
  2271.     ;dc.w    c05,2,db05,2,d05,2,eb05,2,e05,2
  2272.     ;dc.w    f05,2,gb05,2,g05,2,ab05,2,a05,2
  2273.     ;dc.w    bb05,2,b05,2
  2274.     dc.w    c06,2,db06,2,d06,2,eb06,2,e06,2
  2275.     dc.w    f06,2,gb06,2,g06,2,ab06,2,a06,2
  2276.     dc.w    bb06,2,b06,2
  2277.       dc.b     m,endfx_patt
  2278.  
  2279. award_env    
  2280.         dc.b 14,t1,4,t1,255,0
  2281.  
  2282.     EVEN
  2283.  
  2284. ***************************
  2285.     even
  2286.  
  2287. hit_null_siren:
  2288.                            dc.b      m,new_env,trigg,0
  2289.                            dc.l      fx5_env
  2290.             dc.w    A06,3,A06,3,A06,3,A06,3
  2291.             dc.w    A06,4
  2292.             DC.B    M,inline,6,200,255,0
  2293.                            dc.B    m,endfx_patt
  2294.  
  2295. fx5_env:    dc.b 15,t1,12,t1,7,t1,0,t1,255,0
  2296. ;***********************************************
  2297.     even
  2298. near_p_limit:    
  2299.                            dc.b      m,new_env,trigg,0
  2300.                            dc.l      alarm2e
  2301.               dc.b     m,modon,3,3
  2302.               dc.w     20,24,1
  2303.               dc.b     m,pbend,up,20
  2304.               dc.w     B05,0
  2305.             dc.w    g04,cr*2
  2306.             DC.B    M,inline,6,200,255,0
  2307.             dc.b    m,endfx_patt
  2308.  
  2309. alarm2e    dc.b    15,t1,255,0
  2310.  
  2311.     even
  2312.  
  2313. ******************************
  2314. sabre_whoosh:
  2315.                            dc.b      m,new_env,trigg,0
  2316.                            dc.l      sw_env
  2317.             dc.b    M,inline,6,3,254,0
  2318.             dc.w    0,1
  2319.             dc.b    m,inline,6,10,254,0
  2320.             DC.B    M,inline,6,14,254,0
  2321.             dc.b    m,inline,6,15,254,0
  2322.             dc.b    m,inline,6,18,254,0
  2323.             DC.w    0,10
  2324.               ;dc.b     m,modon,2,2
  2325.               ;dc.w     8,8,1
  2326.                        ;    dc.b      m,new_env,trigg,0
  2327.                        ;    dc.l      sw_env
  2328.             ;DC.w    20,27
  2329.             dc.b    m,inline,6,200,254,0
  2330.             dc.b    m,endfx_patt
  2331.  
  2332.     even
  2333.  
  2334. sw_env:        dc.b 10,n1,9,n1,8,n1,9,n1,10,n1,10,n1,7,n1
  2335.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  2336.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  2337.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  2338.         DC.B 0,N1,255
  2339.  
  2340. ****************************************
  2341.     even
  2342.  
  2343. firework1:
  2344.                            dc.b      m,new_env,trigg,0
  2345.                            dc.l      fw1_env
  2346.             dc.b    M,inline,6,31,254,0
  2347.             dc.w    0,10
  2348.             dc.b    m,inline,6,30,254,0
  2349.             DC.B    M,inline,6,30,254,0
  2350.             dc.b    m,inline,6,29,254,0
  2351.             dc.b    m,inline,6,28,254,0
  2352.             dc.b    m,inline,6,27,254,0
  2353.             dc.b    m,inline,6,26,254,0
  2354.             dc.b    m,inline,6,25,254,0
  2355.             dc.b    m,inline,6,24,254,0
  2356.             dc.b    m,inline,6,23,254,0
  2357.             dc.b    m,inline,6,22,254,0
  2358.             DC.w    0,3
  2359.               dc.b     m,modon,2,2
  2360.               dc.w     8,8,1
  2361.                            dc.b      m,new_env,trigg,0
  2362.                            dc.l      fw1_env
  2363.             DC.w    20,60
  2364.             dc.b    m,inline,6,200,254,0
  2365.             dc.b    m,endfx_patt
  2366.  
  2367. firework2:
  2368.                            dc.b      m,new_env,trigg,0
  2369.                            dc.l      fw2_env
  2370.             dc.b    M,inline,6,31,255,0
  2371.             dc.w    0,1
  2372.             dc.b    m,inline,6,30,254,0
  2373.             DC.B    M,inline,6,30,254,0
  2374.             dc.b    m,inline,6,23,254,0
  2375.             dc.b    m,inline,6,22,254,0
  2376.             DC.w    0,2
  2377.               dc.b     m,modon,2,2
  2378.               dc.w     8,8,1
  2379.                            dc.b      m,new_env,trigg,0
  2380.                            dc.l      fw2_env
  2381.             DC.w    20,27
  2382.             dc.b    m,inline,6,200,254,0
  2383.             dc.b    m,endfx_patt
  2384.  
  2385.     even
  2386. fw1_env:    dc.b 15,n1,15,n1,15,b1,15,n1,15,n1,15,n1,15,n1
  2387.         dc.b 15,n1,15,n1,15,b1,15,n1,15,n1,15,n1,15,n1,15,N1,15,N1
  2388.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  2389.         dc.b 12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1
  2390.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1
  2391.         dc.b 8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1
  2392.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  2393.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  2394.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  2395.         DC.B 0,N1,255
  2396.  
  2397. fw2_env:    dc.b 15,n1,14,n1,13,b1,12,n1,11,n1,10,n1,7,n1
  2398.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  2399.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  2400.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  2401.         DC.B 0,N1,255
  2402.  
  2403.     even
  2404.  
  2405. ***************************8
  2406.  
  2407.  
  2408. crowd_loud:
  2409.             dc.b    m,inline,6,21,254,0
  2410.  
  2411.                            dc.b      m,new_env,trigg,0
  2412.                            dc.l      crl_env
  2413.             DC.w    0,300
  2414.             dc.b    m,inline,6,200,254,0
  2415.             dc.b    m,endfx_patt
  2416.  
  2417.  
  2418. crl_env:    
  2419.         dc.b 1,n1,2,n1,3,n1,4,n1,5,n1,6,n1,7,n1,8,n1,8,n1,8,n1
  2420.     dc.b  9,n1,9,n1,9,n1,9,n1,9,n1,9,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1
  2421.     dc.b  11,n1,11,n1,11,n1,11,n1,11,n1,11,n1,11,n1,11,n1,11,n1,11,n1
  2422.     dc.b  12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1
  2423.     dc.b  13,n1,13,n1,13,n1,13,n1,13,n1,13,n1,13,n1,13,n1,13,n1,13,n1,13,n1
  2424.  
  2425.  
  2426.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  2427.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  2428.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  2429.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  2430.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  2431.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  2432.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  2433.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  2434.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  2435.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  2436.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  2437.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  2438.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  2439.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  2440.  
  2441.  
  2442.     dc.b   13,n1,13,n1,13,n1,13,n1,13,n1,13,n1,13,n1,13,n1,13,n1
  2443.     dc.b   12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1
  2444.     dc.b   11,n1,11,n1,11,n1,11,n1,11,n1,11,n1,11,n1,11,n1
  2445.     dc.b   10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1
  2446.     dc.b    9,n1,9,n1,9,n1,9,n1,9,n1,9,n1,9,n1,9,n1,9,n1,9,n1,9,n1
  2447.     dc.b    8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1
  2448.     dc.b    7,n1,7,n1,7,n1,7,n1,7,n1,7,n1,7,n1,7,n1,7,n1,7,n1,7,n1
  2449.     dc.b    6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  2450.     dc.b    5,n1,5,n1,5,n1,5,n1,5,n1,5,n1,5,n1,5,n1,5,n1,5,n1,5,n1
  2451.     dc.b    4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  2452.     dc.b  3,n1,3,n1,3,n1,3,n1,3,n1,3,n1
  2453.     dc.b  2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  2454.     dc.b 1,n1,1,n1,1,n1,1,n1,1,n1,1,n1,1,n1
  2455.     dc.b  0,n1,255,n1,0
  2456.  
  2457.  
  2458.  even
  2459.  
  2460.     EVEN
  2461.  
  2462. countdown_beep:
  2463.                            dc.b      m,new_env,trigg,0
  2464.                            dc.l      fb_env
  2465.             dc.w    A06,6
  2466.                            dc.B    m,endfx_patt
  2467.  
  2468. cb_env:    dc.b 15,t1,0,t1,12,t1,255,0
  2469.  
  2470.     EVEN
  2471.  
  2472. timer_beep:
  2473.                            dc.b      m,new_env,trigg,0
  2474.                            dc.l      tb_env
  2475.             dc.w    A05,3
  2476.                            dc.B    m,endfx_patt
  2477.  
  2478. tb_env:    dc.b 15,t1,0,t1,12,t1,255,0
  2479.  
  2480.     EVEN
  2481.  
  2482.  
  2483. marks_beep:
  2484.                            dc.b      m,new_env,trigg,0
  2485.                            dc.l      tb_env
  2486.             dc.w    A05,1,a04,1
  2487.             dc.w    A05,1,a04,1
  2488.             dc.w    A05,1,a04,1
  2489.                            dc.B    m,endfx_patt
  2490.  
  2491.  
  2492.     EVEN
  2493.  
  2494.  
  2495. set_beep:
  2496.                            dc.b      m,new_env,trigg,0
  2497.                            dc.l      tb_env
  2498.             dc.w    b05,1,b04,1
  2499.             dc.w    b05,1,b04,1
  2500.             dc.w    b05,1,b04,1
  2501.                            dc.B    m,endfx_patt
  2502.  
  2503.  
  2504.     EVEN
  2505.  
  2506. go_beep:
  2507.                            dc.b      m,new_env,trigg,0
  2508.                            dc.l      tb_env
  2509.             dc.w    d06,2,D07,2
  2510.             dc.w    d06,2,D07,2
  2511.             dc.w    d06,2,D07,2
  2512.                            dc.B    m,endfx_patt
  2513.  
  2514.  
  2515.     EVEN
  2516. *****************************88
  2517.  
  2518.  
  2519. swim_stroke_splash:
  2520.                            dc.b      m,new_env,trigg,0
  2521.                            dc.l      sss_env
  2522.             dc.b    M,inline,6,31,255,0
  2523.             dc.w    0,1
  2524.             dc.b    m,inline,6,30,254,0
  2525.             DC.B    M,inline,6,30,254,0
  2526.             dc.b    m,inline,6,23,254,0
  2527.             dc.b    m,inline,6,22,254,0
  2528.             DC.w    0,2
  2529.               dc.b     m,modon,2,2
  2530.               dc.w     8,8,1
  2531.                            dc.b      m,new_env,trigg,0
  2532.                            dc.l      sss_env
  2533.             DC.w    20,20
  2534.             dc.b    m,inline,6,200,254,0
  2535.             dc.b    m,endfx_patt
  2536.  
  2537.     even
  2538.  
  2539. sss_env:    dc.b 6,n1,7,n1,8,b1,9,n1,10,n1,12,n1,11,n1
  2540.         dc.b 10,n1,10,n1,9,n1,9,n1,9,n1,9,n1,8,n1,8,n1,7,n1,6,n1
  2541.         dc.b 5,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  2542.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  2543.         DC.B 0,N1,255
  2544.  
  2545.     even
  2546.  
  2547.  
  2548. turn_around_splash:
  2549.                            dc.b      m,new_env,trigg,0
  2550.                            dc.l      tas_env
  2551.             dc.b    M,inline,6,31,255,0
  2552.             dc.w    0,1
  2553.             dc.b    m,inline,6,3,254,0
  2554.             DC.B    M,inline,6,30,254,0
  2555.             dc.b    m,inline,6,7,254,0
  2556.             dc.b    m,inline,6,22,254,0
  2557.             DC.w    0,2
  2558.               dc.b     m,modon,2,2
  2559.               dc.w     8,8,1
  2560.                            dc.b      m,new_env,trigg,0
  2561.                            dc.l      tas_env
  2562.             DC.w    20,20
  2563.             dc.b    m,inline,6,200,254,0
  2564.             dc.b    m,endfx_patt
  2565.  
  2566.     even
  2567.  
  2568. tas_env:    dc.b 6,n1,7,n1,8,b1,9,n1,10,n1,12,n1,11,n1
  2569.         dc.b 12,n1,12,n1,13,n1,13,n1,14,n1,12,n1,12,n1,11,n1,7,n1,6,n1
  2570.         dc.b 9,n1,8,n1,7,n1,6,n1,5,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  2571.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  2572.         DC.B 0,N1,255
  2573.  
  2574.  
  2575.  
  2576.     even
  2577. ***************************8
  2578.  
  2579.     even
  2580. hop
  2581.                            dc.b      m,new_env,trigg,0
  2582.                            dc.l      hop_env1
  2583.             dc.w    A05,6
  2584.                            dc.B    m,endfx_patt
  2585.  
  2586. hop_env1:    dc.b 12,t1,0,t1,12,t1,0,t1,255,0
  2587.  
  2588.     even
  2589. skip
  2590.                            dc.b      m,new_env,trigg,0
  2591.                            dc.l      hop_env1
  2592.             dc.w    A06,6
  2593.                            dc.B    m,endfx_patt
  2594.  
  2595.  
  2596.     even
  2597. jump
  2598.                            dc.b      m,new_env,trigg,0
  2599.                            dc.l      hop_env1
  2600.             dc.w    A07,6
  2601.                            dc.B    m,endfx_patt
  2602.  
  2603.     even
  2604.  
  2605. ***************************
  2606. horse_slow:    
  2607.                            dc.b   m,new_env,trigg,0
  2608.                            dc.l   horse_env
  2609.  
  2610.  
  2611. hslowr  
  2612.             DC.B    M,inline,6,12,255,0
  2613.  
  2614.                         dc.b   m,pbend,down,200
  2615.                         dc.w   C01,0
  2616.             dc.w   g02,4
  2617.             DC.B    M,inline,6,16,255,0
  2618.  
  2619.                         dc.b   m,pbend,down,200
  2620.                         dc.w   C01,0
  2621.             dc.w   G02,4
  2622.             DC.B    M,inline,6,22,255,0
  2623.  
  2624.                         dc.b   m,pbend,down,100
  2625.                         dc.w   C01,0
  2626.             dc.w   C02,4
  2627.                         dc.b   m,pbend,down,20
  2628.                         dc.w   C01,0
  2629.             dc.w   C03,14
  2630.             dc.b  m,r
  2631.             dc.l  hslowr
  2632.             DC.B    M,inline,6,200,255,0
  2633.                            dc.b   m,endfx_patt
  2634.  
  2635. horse_env        dc.b 12,N1,11,N1,10,N1,9,B1
  2636.             dc.b 0,t1,255,0
  2637.  
  2638.     even
  2639. horse_fast 
  2640.                            dc.b   m,new_env,trigg,0
  2641.                            dc.l   horse_env
  2642.  
  2643.  
  2644. HFR  
  2645.             DC.B    M,inline,6,12,255,0
  2646.  
  2647.                         dc.b   m,pbend,down,200
  2648.                         dc.w   C01,0
  2649.             dc.w   g02,4
  2650.             DC.B    M,inline,6,16,255,0
  2651.  
  2652.                         dc.b   m,pbend,down,200
  2653.                         dc.w   C01,0
  2654.             dc.w   G02,4
  2655.             DC.B    M,inline,6,22,255,0
  2656.  
  2657.                         dc.b   m,pbend,down,100
  2658.                         dc.w   C01,0
  2659.             dc.w   C02,4
  2660.                         dc.b   m,pbend,down,20
  2661.                         dc.w   C01,0
  2662.             dc.w   C03,8
  2663.             dc.b  m,r
  2664.             dc.l  hfr
  2665.             DC.B    M,inline,6,200,255,0
  2666.  
  2667.  
  2668.     even
  2669.  
  2670. water_roar:
  2671.                            dc.b      m,new_env,trigg,0
  2672.                            dc.l      wr_env
  2673. wrr            dc.b    M,inline,6,31,255,0
  2674.             dc.w    0,1
  2675.             dc.b    m,inline,6,26,254,0
  2676.             DC.B    M,inline,6,30,254,0
  2677.             dc.b    m,inline,6,27,254,0
  2678.             dc.b    m,inline,6,22,254,0
  2679.             DC.w    0,2
  2680.             DC.w    0,20
  2681.             DC.w    0,12
  2682.             DC.B    M,inline,6,23,254,0
  2683.             DC.w    0,2
  2684.             DC.B    M,inline,6,26,254,0
  2685.             DC.w    0,25
  2686.             DC.w    0,20
  2687.             DC.B    M,inline,6,24,254,0
  2688.             DC.w    0,12
  2689.             DC.w    0,20
  2690.  
  2691.             dc.b    m,inline,6,24,254,0
  2692.             DC.B    M,inline,6,25,254,0
  2693.             dc.b    m,inline,6,26,254,0
  2694.             dc.b    m,inline,6,24,254,0
  2695.             DC.w    0,12
  2696.             DC.w    0,29
  2697.             DC.w    0,120
  2698.             DC.B    M,inline,6,27,254,0
  2699.             DC.w    0,12
  2700.             DC.B    M,inline,6,23,254,0
  2701.             DC.w    0,25
  2702.             DC.w    0,2
  2703.             DC.B    M,inline,6,31,254,0
  2704.             DC.w    0,120
  2705.             DC.w    0,20
  2706.  
  2707.  
  2708.  
  2709.             dc.b    m,r
  2710.             dc.l    wrr
  2711.  
  2712.             dc.b    m,inline,6,200,254,0
  2713.             dc.b    m,endfx_patt
  2714.  
  2715.     even
  2716.  
  2717. wr_env:        dc.b 11,n1
  2718.         DC.B 255,0
  2719.  
  2720.     EVEN
  2721. *****************************8
  2722.  
  2723. gate_success:    
  2724.                            dc.b      m,new_env,trigg,0
  2725.                            dc.l      gs_env
  2726.             dc.b    m,octaves
  2727.             dc.w    g04,cr
  2728.             DC.B    M,inline,6,200,255,0
  2729.             dc.b    m,endfx_patt
  2730.  
  2731. gs_env    dc.b    15,t1,255,0
  2732. ********************************
  2733.     even
  2734. gate_fail:    
  2735.                            dc.b   m,new_env,trigg,0
  2736.                            dc.l   gate_fail_env
  2737.             dc.b   m,modon,1,1
  2738.             dc.w   5,5,1
  2739.                         dc.b   m,pbend,down,1
  2740.                         dc.w   C02,0
  2741.             dc.w   C05,cr*3
  2742.             DC.B    M,inline,6,200,255,0
  2743.                            dc.b   m,endfx_patt
  2744.  
  2745.  
  2746. gate_fail_env:    dc.b 15,t1,15,t1,15,t1,15,t1,15,t1,15,t1,15,t1
  2747.         dc.b 15,t1,15,t1,15,t1,15,t1,15,t1,15,t1,15,t1,15,t1,15,t1
  2748.         dc.b 14,t1,14,t1,14,t1,14,t1,14,t1,14,t1,14,t1,14,t1,14,t1,14,t1
  2749.         dc.b 12,t1,12,t1,12,t1,12,t1,12,t1,12,t1,12,t1,12,t1,12,t1,12,t1
  2750.         dc.b 10,t1,10,t1,10,t1,10,t1,10,t1,10,t1,10,t1,10,t1,10,t1,10,t1
  2751.         dc.b 8,t1,8,t1,8,t1,8,t1,8,t1,8,t1,8,t1,8,t1,8,t1,8,t1
  2752.         dc.b 6,t1,6,t1,6,t1,6,t1,6,t1,6,t1,6,t1,6,t1,6,t1,6,t1
  2753.         dc.b 4,t1,4,t1,4,t1,4,t1,4,t1,4,t1,4,t1,4,t1,4,t1,4,t1
  2754.         dc.b 2,t1,2,t1,2,t1,2,t1,2,t1,2,t1,2,t1,2,t1,2,t1,2,t1
  2755.         DC.B 0,b1,255
  2756.  
  2757. ************************************
  2758.     even
  2759.  
  2760. hit_bank:    
  2761.                            dc.b   m,new_env,trigg,0
  2762.                            dc.l   hb_env
  2763.  
  2764.             DC.B    M,inline,6,31,255,0
  2765.  
  2766.                         dc.b   m,pbend,down,200
  2767.                         dc.w   C01,0
  2768.             dc.w   C03,10
  2769.             DC.B    M,inline,6,200,255,0
  2770.                            dc.b   m,endfx_patt
  2771.  
  2772. hb_env        dc.b 15,n1,14,n1,13,t1,12,t1,10,t1
  2773.             dc.b 9,t1,8,t1,0,t1,255,0
  2774. *************************************
  2775.      even
  2776.  
  2777. start_pistol
  2778.                            dc.b      m,new_env,trigg,0
  2779.                            dc.l      pist_env
  2780.             DC.B    M,inline,6,50,255,0
  2781.                         dc.b   m,pbend,down,100
  2782.                         dc.w   g01,0
  2783.                        dc.w    g05,24
  2784.             DC.B    M,inline,6,200,255,0
  2785.                            dc.B    m,endfx_patt    
  2786.  
  2787.  
  2788.  
  2789. pist_env    dc.b 15,b1,15,b1,3,b1,15,b1,12,b1,11,b1,9,b1
  2790.         dc.b 9,b1,8,b1,7,b1,3,b1,2,b1,1,b1,0,b1,255
  2791.  
  2792.     EVEN
  2793. *****************************88
  2794.  
  2795.  
  2796. diver_splash:
  2797.                            dc.b      m,new_env,trigg,0
  2798.                            dc.l      ds_env
  2799.             dc.b    M,inline,6,31,255,0
  2800.             dc.w    0,1
  2801.             dc.b    m,inline,6,30,254,0
  2802.             DC.B    M,inline,6,30,254,0
  2803.             dc.b    m,inline,6,23,254,0
  2804.             dc.b    m,inline,6,22,254,0
  2805.             DC.w    0,2
  2806.               dc.b     m,modon,2,2
  2807.               dc.w     8,8,1
  2808.                            dc.b      m,new_env,trigg,0
  2809.                            dc.l      sss_env
  2810.             DC.w    20,20
  2811.             dc.b    m,inline,6,200,254,0
  2812.             dc.b    m,endfx_patt
  2813.  
  2814.     even
  2815.  
  2816. ds_env:        dc.b 10,n1,11,n1,12,b1,12,n1,12,n1,12,n1,13,n1
  2817.         dc.b 14,n1,15,n1,14,n1,13,n1,12,n1,11,n1,10,n1,9,n1,8,n1,7,n1
  2818.         dc.b 6,n1,5,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  2819.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  2820.         DC.B 0,N1,255
  2821.  
  2822.     even
  2823. ;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  2824.  
  2825. curr_fx            equ 1
  2826. max_chfx        dc.l 36
  2827.  
  2828.  
  2829.     even
  2830. **********************************************************
  2831. ;               JINGLES MUSIC DATA
  2832. **********************************************************
  2833. cr set 24
  2834. q set cr/2
  2835. sq set q/2
  2836.  
  2837. song1:
  2838.     dc.l    p10
  2839.     dc.l end_song
  2840.  
  2841.  
  2842. song2    
  2843.     dc.l    p4z
  2844.     dc.l    p4z
  2845.     dc.l    p3end
  2846.     dc.l end_song
  2847.  
  2848.  
  2849.  
  2850. song3:    
  2851.     dc.l    p1,p1,p1mid
  2852.     dc.l    p1,p1,p1mid
  2853.     dc.l    p1end
  2854.     dc.l     end_song
  2855.  
  2856.  
  2857. ;pr:
  2858.  ;     dc.w rest,cr*4
  2859.   ;    dc.b m,end_patt
  2860.  
  2861.  
  2862. pr2:
  2863.       dc.w rest,cr*2
  2864.       dc.b m,end_patt
  2865.  
  2866. ;**************************************
  2867.  
  2868. p1:
  2869.       dc.b m,new_env,trigg,0
  2870.       dc.l mono_env
  2871.       dc.b m,modon,1,1
  2872.       dc.w 3,3,8
  2873.  
  2874.     dc.w e04,cr*2,g04,cr*2-q,e04,q,c04,cr,d04,cr,e04,cr
  2875.     dc.w c04,cr,d04,cr,e04,cr,f04,cr*2-q,e04,q,d04,cr
  2876.     dc.w e04,cr,f04,cr*2
  2877.       dc.b m,end_patt
  2878.  
  2879. p1mid:
  2880.       dc.b m,new_env,trigg,0
  2881.       dc.l mono_env
  2882.  
  2883.     dc.w a04,cr*2,f04,cr*2,b04,cr*2,g04,cr*2
  2884.     dc.w a04,cr*2,f04,cr*2,b04,cr*2,g04,cr*2
  2885.       dc.b m,end_patt
  2886.  
  2887. p1end
  2888.       dc.b m,new_env,trigg,0
  2889.       dc.l mono_env
  2890.     dc.w c04,cr*8,rest,cr*100
  2891.       dc.b m,end_patt
  2892.  
  2893.  
  2894.  
  2895.  
  2896.  
  2897. p4z: 
  2898.       dc.b m,new_env,trigg,0
  2899.       dc.l mono_env2
  2900.       dc.b m,modon,1,1
  2901.       dc.w 3,3,8
  2902.     dc.w  c03,cr,c03,cr,b02,cr,b02,cr,a02,cr,a02,cr,g02,cr,g02,cr
  2903.     dc.w  g02,cr*4,b02,cr,a02,cr,g02,cr*2
  2904.     dc.w  c03,cr,c03,cr,b02,cr,b02,cr,a02,cr,a02,cr,g02,cr,g02,cr
  2905.     dc.w  g02,cr*4,b02,cr,a02,cr,g02,cr*2
  2906.     dc.w f02,cr*4,g02,cr*4,f02,cr*4
  2907.       dc.b m,new_env,trigg,0
  2908.       dc.l bass_env
  2909.  
  2910.     dc.w g02,q,g02,q,g02,q,g02,q,g02,q,rest,q*3
  2911.       dc.b m,end_patt
  2912.  
  2913. p3end    dc.w g02,cr*8,rest,cr*100
  2914.       dc.b m,end_patt
  2915.  
  2916.  
  2917.  
  2918. ;***************************************
  2919.  
  2920. p10:     
  2921.       dc.b m,inline,6,200,255,0
  2922.       dc.b m,new_env,trigg,0
  2923.       dc.l bassde
  2924.       dc.b m,pbend,down,200
  2925.       dc.w c01,0
  2926.       dc.w e04,cr
  2927.  
  2928.       ;dc.b m,new_env,trigg,0
  2929.       ;dc.l hate
  2930.       ;dc.w g06,sQ,g06,sq
  2931.  
  2932.       dc.b m,new_env,trigg,0
  2933.       dc.l qclape
  2934.       dc.b m,pbend,down,69
  2935.       dc.w c01,0
  2936.       dc.w c04,cr
  2937.  
  2938.       ;dc.b m,new_env,trigg,0
  2939.       ;dc.l hate
  2940.       ;dc.w g06,sQ,g06,sq
  2941.  
  2942.       dc.b m,new_env,trigg,0
  2943.       dc.l bassde
  2944.       dc.b m,pbend,down,200
  2945.       dc.w c01,0
  2946.       dc.w e04,q
  2947.  
  2948.       dc.b m,new_env,trigg,0
  2949.       dc.l hate
  2950.       dc.w g06,sQ,g06,sq
  2951.  
  2952.       dc.b m,new_env,trigg,0
  2953.       dc.l qclape
  2954.       dc.b m,pbend,down,69
  2955.       dc.w c01,0
  2956.       dc.w c05,q
  2957.  
  2958.       dc.b m,new_env,trigg,0
  2959.       dc.l hate
  2960.       dc.w g06,sQ,g06,sq
  2961.  
  2962.       dc.b m,end_patt
  2963.  
  2964.  
  2965.  
  2966. ;***************************************
  2967. cr set 24
  2968. q set cr/2
  2969. sq set q/2
  2970.  
  2971. song4:
  2972.   dc.l pr
  2973.   dc.l end_song
  2974.  
  2975.  
  2976. song5:
  2977.   dc.l pj2
  2978.   dc.l end_song
  2979.  
  2980. song6:
  2981.      dc.l pj2x
  2982.  
  2983.   dc.l end_song
  2984.  
  2985.  
  2986.     
  2987.  
  2988. ;*************************************************
  2989.  
  2990. pj2:
  2991.   dc.b m,new_env,trigg,0
  2992.   dc.l bass_env
  2993.   dc.w e02,cr*2,e02,cr,c02,cr*2,c02,cr,e02,cr,g02,cr,e03,cr,c03,cr*3  
  2994.   dc.w rest,cr*1000
  2995.   dc.b m,end_patt
  2996.  
  2997.  
  2998. pj2x:
  2999.   dc.b m,new_env,trigg,0
  3000.   dc.l marx_env
  3001.   dc.w e03,cr*2,e03,cr,c03,cr*2,c03,cr,e03,cr,g03,cr,e04,cr,c04,cr*3  
  3002.   dc.w rest,cr*1000
  3003.   dc.b m,end_patt
  3004.  
  3005.  
  3006.  even
  3007.  
  3008. **************************************************************
  3009. cr set 24
  3010. q set cr/2
  3011. sq set q/2
  3012.  
  3013.  
  3014. song7:        
  3015.     dc.l    pr
  3016.       dc.l     end_song
  3017.  
  3018. song8:        ;bass
  3019.     dc.l    p3jv
  3020.         DC.L     end_song
  3021.  
  3022. song9:        ;tune
  3023.         
  3024.     dc.l   p3jx
  3025.     dc.l     end_song
  3026.  
  3027.  
  3028. p3jv
  3029.         dc.b m,new_env,trigg,0
  3030.         dc.l bass_env
  3031.     dc.w d02,8,g02,8,b02,8
  3032.     dc.w d02,8,g02,8,b02,8
  3033.     dc.w d02,8,g02,16,b02,cr
  3034.     dc.w rest,cr*1000
  3035.     dc.b m,end_patt
  3036.  
  3037.  
  3038. p3jx
  3039.         dc.b m,new_env,trigg,0
  3040.         dc.l mono_env
  3041.     dc.w d03,8,g03,8,b03,8
  3042.     dc.w d03,8,g03,8,b03,8
  3043.     dc.w d03,8,g03,16,b03,cr
  3044.     dc.w rest,cr*1000
  3045.     dc.b m,end_patt
  3046. ********************************************
  3047. cr set 24
  3048. q set cr/2
  3049. sq set q/2
  3050.  
  3051.  
  3052. song10:        
  3053.     dc.l    pr
  3054.       dc.l     end_song
  3055.  
  3056. song11:        ;bass
  3057.     dc.l    p4j
  3058.         DC.L     end_song
  3059.  
  3060. song12:        ;tune
  3061.         
  3062.     dc.l   p4jx
  3063.     dc.l     end_song
  3064.  
  3065.  
  3066. p4j
  3067.         dc.b m,new_env,trigg,0
  3068.         dc.l bass_env
  3069.  
  3070.     dc.w c03,8,b02,16,b02,8,a02,16,a02,8,g02,16
  3071.     dc.w rest,cr*100
  3072.  
  3073.     dc.b m,end_patt
  3074.  
  3075.  
  3076. p4jx
  3077.         dc.b m,new_env,trigg,0
  3078.         dc.l marx_env
  3079.  
  3080.     dc.w c04,8,b03,16,b03,8,a03,16,a03,8,g03,16
  3081.     dc.w rest,cr*100
  3082.  
  3083.     dc.b m,end_patt
  3084. ********************************************
  3085.  
  3086. cr set 16
  3087. q  set cr/2
  3088. sq set q/2
  3089.  
  3090. song13:        
  3091.     dc.l    p5jd
  3092.       dc.l     end_song
  3093.  
  3094. song14:        ;bass
  3095.     dc.l    p5j
  3096.         DC.L     end_song
  3097.  
  3098. song15:        ;tune
  3099.         
  3100.     dc.l   p5jx
  3101.     dc.l     end_song
  3102.  
  3103.  
  3104. p5j
  3105.         dc.b m,new_env,trigg,0
  3106.         dc.l bass_env
  3107.  
  3108.     dc.w c03,cr*2,g02,cr*2
  3109.     dc.w c03,cr*2,g02,cr*2
  3110.     dc.w c03,cr*2,g02,cr*2
  3111.     dc.w c03,cr*2,g02,cr*2
  3112.  
  3113.     dc.b m,end_patt
  3114.  
  3115.  
  3116. p5jx
  3117.         dc.b m,new_env,trigg,0
  3118.         dc.l blip_env
  3119.  
  3120.     dc.w c04,q,g04,q,e04,q,c05,q
  3121.     dc.w c05,sq,b04,sq,a04,sq,g04,sq,e04,q,g04,q
  3122.     dc.w c05,sq,b04,sq,a04,sq,g04,sq,e04,q,g04,q
  3123.     dc.w e04,q,g04,q,c04,cr    
  3124.  
  3125.     dc.b m,end_patt
  3126.  
  3127. p5jd
  3128.       dc.b m,inline,6,200,255,0
  3129.       dc.b m,new_env,trigg,0
  3130.       dc.l bassde
  3131.       dc.b m,pbend,down,200
  3132.       dc.w c01,0
  3133.       dc.w e04,q,e04,q,e04,q,rest,q*5
  3134.     dc.b m,end_patt
  3135.  
  3136.  
  3137. ********************************************
  3138.  
  3139. cr set 20
  3140. q  set cr/2
  3141. sq set q/2
  3142.  
  3143. song16:        
  3144.     dc.l    pr
  3145.       dc.l     end_song
  3146.  
  3147. song17:        ;bass
  3148.     dc.l    p6j
  3149.         DC.L     end_song
  3150.  
  3151. song18:        ;tune
  3152.         
  3153.     dc.l   p6jx
  3154.     dc.l     end_song
  3155.  
  3156.  
  3157. p6j
  3158.         dc.b m,new_env,trigg,0
  3159.         dc.l mono_env2
  3160.       dc.b m,modon,1,1
  3161.       dc.w 3,3,8
  3162.  
  3163.     dc.w c03,cr,g02,q,g02,q,gb02,cr,g02,cr
  3164.     dc.w c03,cr,g02,q,g02,q,gb02,cr,g02,cr
  3165.     dc.w c03,cr,g02,cr,c03,cr,e03,cr,g03,cr*4      
  3166.  
  3167.     dc.w g04,cr*2,f04,cr,e04,cr,d04,cr*2
  3168.     dc.w e04,cr,d04,cr,c04,cr*2,d04,cr,e04,cr
  3169.     dc.w g03,q*3,a03,q,g03,cr*2
  3170.  
  3171.     dc.w g04,cr*2,f04,cr,e04,cr,a04,cr*2,g04,cr
  3172.     dc.w e04,cr,f04,cr,g04,q,f04,q,e04,cr,f04,cr,d04,cr*4
  3173.  
  3174.     dc.w d04,cr,d04,q,d04,q,c04,cr,d04,cr,e04,cr,f04,cr,g04,cr*2
  3175.     dc.w d04,cr,e04,cr,f04,cr*2,e04,cr,d04,cr,c04,cr*2
  3176.     dc.w d04,cr,d04,q,d04,q,c04,cr,d04,cr,e04,cr,f04,cr,g04,cr*2
  3177.     dc.w gb04,cr,g04,cr,a04,cr,gb04,cr,g04,cr*4    
  3178.     dc.w  rest,cr*20
  3179.     dc.b m,end_patt
  3180.  
  3181.  
  3182. p6jx
  3183.         dc.b m,new_env,trigg,0
  3184.         dc.l mono_env
  3185.       dc.b m,modon,1,1
  3186.       dc.w 3,3,8
  3187.  
  3188.     dc.w c03,cr,g02,q,g02,q,gb02,cr,g02,cr
  3189.     dc.w c03,cr,g02,q,g02,q,gb02,cr,g02,cr
  3190.     dc.w c03,cr,g02,cr,c03,cr,e03,cr,g03,cr*4      
  3191.  
  3192.     dc.w g02,cr*2,f02,cr,e02,cr,d02,cr*2
  3193.     dc.w e02,cr,d02,cr,c02,cr*2,d02,cr,e02,cr
  3194.     dc.w g03,q*3,a03,q,g03,cr*2
  3195.  
  3196.     dc.w g02,cr*2,f02,cr,e02,cr,a02,cr*2,g02,cr
  3197.     dc.w e02,cr,f02,cr,g02,q,f02,q,e02,cr,f02,cr,d02,cr*4
  3198.  
  3199.     dc.w d02,cr,d02,q,d02,q,c02,cr,d02,cr,e02,cr,f02,cr,g02,cr*2
  3200.     dc.w d02,cr,e02,cr,f02,cr*2,e02,cr,d02,cr,c02,cr*2
  3201.     dc.w d02,cr,d02,q,d02,q,c02,cr,d02,cr,e02,cr,f02,cr,g02,cr*2
  3202.     dc.w gb02,cr,g02,cr,a02,cr,gb02,cr,g02,cr*4    
  3203.     dc.w  rest,cr*20
  3204.     dc.b m,end_patt
  3205.  
  3206. *************************************
  3207.  
  3208. cr set 24
  3209. q  set cr/2
  3210. sq set q/2
  3211.  
  3212. song19:        
  3213.     dc.l    pr,pr,pr,pr,pr,pr,pr,pr
  3214.     dc.l    p7jd,p7jd,p7jd,p7jd,p7jd,p7jd,p7jd,p7jd
  3215.  
  3216.       dc.l     end_song
  3217.  
  3218. song20:        ;bass
  3219.     dc.l    p7j
  3220.         DC.L     end_song
  3221.  
  3222. song21:        ;tune
  3223.         
  3224.     dc.l   p7jx
  3225.     dc.l     end_song
  3226.  
  3227. pr7
  3228.     dc.w rest,cr*4
  3229.     dc.b m,end_patt
  3230.  
  3231. p7j
  3232.         dc.b m,new_env,trigg,0
  3233.         dc.l mono_env2
  3234.       dc.b m,modon,1,1
  3235.       dc.w 3,3,8
  3236.     dc.w c04,cr*2,d04,q,c04,q,d04,q,e04,q
  3237.     dc.w c04,cr,g03,cr,g03,cr,g03,cr
  3238.     dc.w d04,cr*2,e04,q,d04,q,e04,q,f04,q
  3239.     dc.w d04,cr,g03,cr,g03,cr,g03,cr
  3240.     dc.w g04,cr*2,c04,q,d04,q,e04,q,f04,q
  3241.     dc.w a04,cr*2,f04,q,e04,q,d04,q,c04,q
  3242.     dc.w b03,cr,b03,cr,b03,cr,b03,cr,b03,cr,c04,cr*3 
  3243.     dc.b m,end_patt
  3244.  
  3245.  
  3246. p7jx
  3247.         dc.b m,new_env,trigg,0
  3248.         dc.l mono_env
  3249.       dc.b m,modon,1,1
  3250.       dc.w 3,3,8
  3251.  
  3252.     dc.w c03,cr*4
  3253.     dc.w g02,cr,a02,cr,b02,cr,d03,cr
  3254.     dc.w d03,cr*2,g02,cr*2
  3255.     dc.w g03,cr*2,a03,cr,b03,cr
  3256.     dc.w c03,cr*4
  3257.     dc.w f03,cr*4
  3258.     dc.w d03,cr*2,g02,cr*3
  3259.     dc.w c03,cr*3
  3260.     dc.b m,end_patt
  3261.  
  3262.  
  3263. p7jd:     
  3264.       dc.b m,inline,6,200,255,0
  3265.       dc.b m,new_env,trigg,0
  3266.       dc.l bassde
  3267.       dc.b m,pbend,down,200
  3268.       dc.w c01,0
  3269.       dc.w e04,cr
  3270.  
  3271.       ;dc.b m,new_env,trigg,0
  3272.       ;dc.l hate
  3273.       ;dc.w g06,sQ,g06,sq
  3274.  
  3275.       dc.b m,new_env,trigg,0
  3276.       dc.l qclape
  3277.       dc.w c04,cr
  3278.  
  3279.       ;dc.b m,new_env,trigg,0
  3280.       ;dc.l hate
  3281.       ;dc.w g06,sQ,g06,sq
  3282.  
  3283.       dc.b m,new_env,trigg,0
  3284.       dc.l bassde
  3285.       dc.b m,pbend,down,200
  3286.       dc.w c01,0
  3287.       dc.w e04,q,e04,q
  3288.  
  3289.       ;dc.b m,new_env,trigg,0
  3290.       ;dc.l hate
  3291.       ;dc.w g06,sQ,g06,sq
  3292.  
  3293.       dc.b m,new_env,trigg,0
  3294.       dc.l qclape
  3295.       dc.b m,pbend,down,69
  3296.       dc.w c01,0
  3297.       dc.w c05,cr
  3298.  
  3299.       ;dc.b m,new_env,trigg,0
  3300.       ;dc.l hate
  3301.       ;dc.w g06,sQ,g06,sq
  3302.  
  3303.       dc.b m,end_patt
  3304.  
  3305. ***************************
  3306.  
  3307. cr set 16
  3308. q  set cr/2
  3309. sq set q/2
  3310.  
  3311. song22:        
  3312.     dc.l    pr
  3313.       dc.l     end_song
  3314.  
  3315. song23:        ;bass
  3316.     dc.l    p8j
  3317.         DC.L     end_song
  3318.  
  3319. song24:        ;tune
  3320.         
  3321.     dc.l   p8jx
  3322.     dc.l     end_song
  3323.  
  3324.  
  3325. p8j
  3326.         dc.b m,new_env,trigg,0
  3327.         dc.l bass_env
  3328.     dc.w e03,cr,e03,cr,e03,cr,e03,cr,e03,cr*4
  3329.     dc.w rest,cr*20
  3330.  
  3331.  
  3332.     dc.b m,end_patt
  3333.  
  3334.  
  3335. p8jx
  3336.         dc.b m,new_env,trigg,0
  3337.         dc.l blip_env
  3338.  
  3339.     dc.w a03,cr,a03,cr,a03,cr,a03,cr,a03,cr*4
  3340.     dc.w  rest,cr*20
  3341.  
  3342.     dc.b m,end_patt
  3343.  
  3344. *********************************************
  3345.  
  3346.  
  3347.  
  3348. cr set 16
  3349. q  set cr/2
  3350. sq set q/2
  3351.  
  3352. song25:        
  3353.     dc.l    p9jd1,p9jd2,p9jd2,p9jd2,p9jd2,p9jd2,p9jd2
  3354.       dc.l     end_song
  3355.  
  3356. song26:        ;bass
  3357.     dc.l    p9j
  3358.         DC.L     end_song
  3359.  
  3360. song27:        ;tune
  3361.         
  3362.     dc.l   p9jx
  3363.     dc.l     end_song
  3364.  
  3365.  
  3366. p9j
  3367.         dc.b m,new_env,trigg,0
  3368.         dc.l bass_env
  3369.     
  3370.     dc.w    g02,cr*2,g02,cr*2,g02,cr,a02,cr
  3371.     dc.w    bb02,cr,b02,cr
  3372.  
  3373.     dc.w    c03,cr,g02,cr,c03,cr,g02,cr,c03,cr,g02,cr,c03,cr,g02,cr    
  3374.     dc.w    f03,cr,c03,cr,f03,cr,c03,cr,f03,cr,c03,cr,f03,cr,c03,cr
  3375.     dc.w    g03,cr,d03,cr
  3376.     dc.w    g03,cr,d03,cr
  3377.     dc.w    g03,cr,d03,cr
  3378.     dc.w    g03,cr,d03,cr
  3379.  
  3380.     dc.b m,end_patt
  3381.  
  3382.  
  3383. p9jx
  3384.         dc.b m,new_env,trigg,0
  3385.         dc.l piano_envsq
  3386.     dc.b  m,pboff
  3387.     dc.w  g05,sq,gb05,sq,f05,sq,e05,sq,eb05,sq,d05,sq,db05,sq,c05,sq
  3388.     dc.w  b04,sq,bb04,sq,a04,sq,ab04,sq
  3389.     dc.w  g04,sq,gb04,sq,f04,sq,e04,sq,eb04,sq,d04,sq,db04,sq,c04,sq
  3390.     dc.w  b03,sq,bb03,sq,a03,sq,ab03,sq
  3391.     dc.w  g03,sq,gb03,sq,f03,sq,e03,sq,eb03,sq,d03,sq,db03,sq,c03,sq
  3392.  
  3393.     dc.w  c05,sq,db05,sq,d05,sq,eb05,sq,d05,sq,db05,sq,c05,sq,db05,sq
  3394.     dc.w  c05,sq,db05,sq,d05,sq,eb05,sq,d05,sq,db05,sq,c05,sq,db05,sq
  3395.     dc.w  c05,sq,db05,sq,d05,sq,eb05,sq,d05,sq,db05,sq,c05,sq,db05,sq
  3396.     dc.w  c05,sq,db05,sq,d05,sq,eb05,sq,f05,sq,gb05,sq,g05,sq,ab05,sq
  3397.  
  3398.     dc.w  f05,sq,gb05,sq,g05,sq,ab05,sq,g05,sq,gb05,sq,f05,sq,gb05,sq
  3399.     dc.w  f05,sq,gb05,sq,g05,sq,ab05,sq,g05,sq,gb05,sq,f05,sq,gb05,sq
  3400.     dc.w  f05,sq,gb05,sq,g05,sq,ab05,sq,g05,sq,gb05,sq,f05,sq,gb05,sq
  3401.     dc.w  f05,sq,gb05,sq,g05,sq,ab05,sq,g05,sq,gb05,sq,f05,sq,gb05,sq
  3402.  
  3403.     dc.w  g05,sq,gb05,sq,f05,sq,e05,sq,eb05,sq,d05,sq,db05,sq,c05,sq
  3404.     dc.w  g05,sq,gb05,sq,f05,sq,e05,sq,eb05,sq,d05,sq,db05,sq,c05,sq
  3405.     dc.w  g05,sq,gb05,sq,f05,sq,e05,sq,eb05,sq,d05,sq,db05,sq,c05,sq
  3406.     dc.w  g05,sq,gb05,sq,f05,sq,e05,sq,eb05,sq,d05,sq,db05,sq,c05,sq
  3407.  
  3408.  
  3409.  
  3410.     dc.b m,end_patt
  3411.  
  3412.  
  3413. p9jd1:     
  3414.       dc.b m,inline,6,200,255,0
  3415.       dc.b m,new_env,trigg,0
  3416.       dc.l bassde
  3417.       dc.b m,pbend,down,200
  3418.       dc.w c01,0
  3419.       dc.w e04,cr*2,e04,cr*2
  3420.  
  3421.       dc.b m,pbend,down,200
  3422.       dc.w c01,0
  3423.       dc.w e04,cr
  3424.  
  3425.       dc.b m,pbend,down,200
  3426.       dc.w c01,0
  3427.       dc.w e04,cr
  3428.       dc.b m,pbend,down,200
  3429.       dc.w c01,0
  3430.       dc.w e04,cr
  3431.       dc.b m,pbend,down,200
  3432.       dc.w c01,0
  3433.       dc.w e04,cr
  3434.  
  3435.  
  3436.     dc.b m,end_patt
  3437.  
  3438.  
  3439. p9jd2:     
  3440.       dc.b m,inline,6,200,255,0
  3441.       dc.b m,new_env,trigg,0
  3442.       dc.l bassde
  3443.       dc.b m,pbend,down,200
  3444.       dc.w c01,0
  3445.       dc.w e04,q
  3446.  
  3447.       dc.b m,new_env,trigg,0
  3448.       dc.l hate
  3449.       dc.w g06,sQ,g06,sq
  3450.  
  3451.       dc.b m,new_env,trigg,0
  3452.       dc.l qclape
  3453.       dc.w c04,q
  3454.  
  3455.       dc.b m,new_env,trigg,0
  3456.       dc.l hate
  3457.       dc.w g06,sQ,g06,sq
  3458.  
  3459.       dc.b m,new_env,trigg,0
  3460.       dc.l bassde
  3461.       dc.b m,pbend,down,200
  3462.       dc.w c01,0
  3463.       dc.w e04,q
  3464.  
  3465.       dc.b m,new_env,trigg,0
  3466.       dc.l hate
  3467.       dc.w g06,sQ,g06,sq
  3468.  
  3469.       dc.b m,new_env,trigg,0
  3470.       dc.l qclape
  3471.       dc.b m,pbend,down,69
  3472.       dc.w c01,0
  3473.       dc.w c05,q
  3474.  
  3475.       dc.b m,new_env,trigg,0
  3476.       dc.l hate
  3477.       dc.w g06,sQ,g06,sq
  3478.  
  3479.       dc.b m,end_patt
  3480.  
  3481. ***********************************
  3482.  
  3483. cr set 8
  3484. q  set cr/2
  3485. sq set q/2
  3486.  
  3487. song28:        
  3488.     dc.l p10jk
  3489.       dc.l     end_song
  3490.  
  3491. song29:        ;bass
  3492.     dc.l    p10j,p10jl
  3493.         DC.L     end_song
  3494.  
  3495. song30:        ;tune
  3496.         
  3497.     dc.l   p10jx,p10jxx
  3498.     dc.l     end_song
  3499.  
  3500.  
  3501. p10j
  3502.         dc.b m,new_env,trigg,0
  3503.         dc.l bass_env
  3504.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  3505.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  3506.     dc.w f03,cr*2,c03,cr*2,f03,cr*2,c03,cr*2
  3507.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  3508.     dc.w g03,cr*2,d03,cr*2,g03,cr*2,d03,cr*2
  3509.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  3510.     
  3511.  
  3512.     dc.b m,end_patt
  3513.  
  3514.  
  3515. p10jl
  3516.         dc.b m,new_env,trigg,0
  3517.         dc.l mono_env2
  3518.       dc.b m,modon,1,1
  3519.       dc.w 6,6,8
  3520.  
  3521.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  3522.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  3523.     dc.w f03,cr*2,c03,cr*2,f03,cr*2,c03,cr*2
  3524.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  3525.     dc.w g03,cr*2,d03,cr*2,g03,cr*2,d03,cr*2
  3526.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  3527.     
  3528.  
  3529.     dc.b m,end_patt
  3530.  
  3531.  
  3532. p10jx
  3533.         dc.b m,new_env,trigg,0
  3534.         dc.l piano_env
  3535.     dc.b  m,pboff
  3536.     dc.w rest,cr,e05,q,c05,q,e05,cr,d05,q,c05,q,d05,q,c05,q,d05,cr,c05,cr*2
  3537.     dc.w rest,cr,e05,q,c05,q,e05,cr,d05,q,c05,q,d05,q,c05,q,d05,cr,c05,cr*2
  3538.     dc.w rest,cr,f05,q,d05,q,f05,cr,d05,q,c05,q,d05,q,c05,q,d05,cr,c05,cr*2
  3539.     dc.w rest,cr,e05,q,c05,q,e05,cr,d05,q,c05,q,d05,q,c05,q,d05,cr,c05,cr*2
  3540.     dc.w rest,cr,f05,q,e05,q,f05,cr,e05,q,d05,q,e05,q,d05,q,e05,cr,d05,cr*2
  3541.     dc.w rest,cr,e05,q,c05,q,e05,cr,d05,q,c05,q,d05,q,c05,q,d05,cr,c05,cr*2
  3542.     dc.b m,end_patt
  3543.  
  3544.  
  3545. p10jxx
  3546.         dc.b m,new_env,trigg,0
  3547.         dc.l blip_envl
  3548.     dc.b  m,pboff
  3549.     dc.w rest,cr,e06,q,c06,q,e06,cr,d06,q,c06,q,d06,q,c06,q,d06,cr,c06,cr*2
  3550.     dc.w rest,cr,e06,q,c06,q,e06,cr,d06,q,c06,q,d06,q,c06,q,d06,cr,c06,cr*2
  3551.     dc.w rest,cr,f06,q,d06,q,f06,cr,d06,q,c06,q,d06,q,c06,q,d06,cr,c06,cr*2
  3552.     dc.w rest,cr,e06,q,c06,q,e06,cr,d06,q,c06,q,d06,q,c06,q,d06,cr,c06,cr*2
  3553.     dc.w rest,cr,f06,q,e06,q,f06,cr,e06,q,d06,q,e06,q,d06,q,e06,cr,d06,cr*2
  3554.     dc.w rest,cr,e06,q,c06,q,e06,cr,d06,q,c06,q,d06,q,c06,q,d06,cr,c06,cr*2
  3555.     dc.b m,end_patt
  3556.  
  3557.  
  3558.  
  3559. p10jk:     
  3560.       dc.b m,inline,6,200,255,0
  3561.       dc.b m,new_env,trigg,0
  3562.       dc.l bassde
  3563.       dc.b m,pbend,down,200
  3564.       dc.w c01,0
  3565.       dc.w e04,cr,e04,cr,e04,cr,e04,cr
  3566.     dc.b m,end_patt
  3567.  
  3568. *****************************************
  3569.  
  3570. xxx
  3571. cr set 16
  3572. q  set cr/2
  3573. sq set q/2
  3574.  
  3575. song31:        
  3576.     dc.l p11jd,p11jd,p11ejd
  3577.       dc.l     end_song
  3578.  
  3579. song32:        ;bass
  3580.     dc.l    p11j,p11j,p11ej
  3581.         DC.L     end_song
  3582.  
  3583. song33:        ;tune
  3584.         
  3585.     dc.l   p11jx,p11jx,p11ejx
  3586.     dc.l     end_song
  3587.  
  3588.  
  3589. p11j
  3590.         dc.b m,new_env,trigg,0
  3591.         dc.l bass_env
  3592.     dc.w  g02,cr*3,g02,cr*3,g02,cr*3
  3593.     dc.w  g02,cr*3,a02,cr*3,a02,cr*3
  3594.     dc.w  a02,cr*3,a02,cr*3,a02,cr*3
  3595.     dc.w  a02,cr*3,a02,cr*6
  3596.     
  3597.  
  3598.     dc.b m,end_patt
  3599.  
  3600.  
  3601. p11ej
  3602.         dc.b m,new_env,trigg,0
  3603.         dc.l bass_env
  3604.     dc.w  db03,cr*9
  3605.     dc.w  d03,cr*9
  3606.     dc.w  db03,cr*9+cr*6
  3607.     dc.w  d03,cr*12
  3608.     
  3609.  
  3610.     dc.b m,end_patt
  3611.  
  3612.  
  3613.  
  3614.  
  3615.  
  3616. p11jx
  3617.         dc.b m,new_env,trigg,0
  3618.         dc.l piano_env
  3619.     dc.b  m,pboff
  3620.  
  3621.     dc.w b03,cr,g03,cr,b03,cr,d04,cr*3,b03,cr*3
  3622.     dc.w d04,cr,b03,cr,d04,cr,gb04,cr*3,d04,cr*3
  3623.     dc.w gb04,cr,d04,cr,gb04,cr,a04,cr*3,a03,cr*3
  3624.     dc.w d04,cr,a03,cr,d04,cr,gb04,cr*6
  3625.     dc.b m,end_patt
  3626.  
  3627.  
  3628. p11ejx
  3629.         dc.b m,new_env,trigg,0
  3630.         dc.l piano_env
  3631.     dc.b  m,pboff
  3632.     dc.w  gb03,cr,e03,cr,gb03,cr,a03,cr*6
  3633.     dc.w  gb03,cr,d03,cr,gb03,cr,a03,cr*6
  3634.     dc.w  gb03,cr,e03,cr,gb03,cr,a03,cr*3+cr*2,db04,cr*3+cr*4
  3635.     dc.w  d04,cr*12
  3636.  
  3637.     dc.b m,end_patt
  3638.  
  3639.  
  3640.  
  3641.  
  3642. p11jd
  3643.         dc.b m,new_env,trigg,0
  3644.         dc.l piano_env1
  3645.       dc.b m,modon,1,1
  3646.       dc.w 6,6,8
  3647.  
  3648.     dc.w  d03,cr*3,d03,cr*3,d03,cr*3
  3649.     dc.w  d03,cr*3,d03,cr*3,d03,cr*3
  3650.     dc.w  d03,cr*3,db03,cr*3,db03,cr*3
  3651.     dc.w  d03,cr*3,d02,cr*6
  3652.     
  3653.  
  3654.     dc.b m,end_patt
  3655.  
  3656.  
  3657. p11ejd
  3658.         dc.b m,new_env,trigg,0
  3659.         dc.l piano_env1
  3660.  
  3661.     dc.w  a02,cr*9
  3662.     dc.w  a02,cr*9
  3663.     dc.w  a02,cr*9+cr*6
  3664.     dc.w  d02,cr*12
  3665.     
  3666.  
  3667.     dc.b m,end_patt
  3668.  
  3669.  
  3670.  
  3671.     EVEN
  3672. ;****************************************************************
  3673. ;bassa_env2:    dc.b 15,t2,15,t2,0,t2,255
  3674. ;ash1:     dc.b 0,t1,255
  3675. ;abassde:     dc.b 15,b1,15,t1,15,t1,15,t1,7,t1
  3676.       dc.b 3,t1,0,t1,255
  3677. ;abass_env:    dc.b 15,t2,15,t2,15,t2,15,t2
  3678.       dc.b 15,t2,15,t2
  3679.       dc.b 0,t2,255
  3680. ;ablipa_env:    dc.b 15,t3,15,t3,13,t3,11,t3
  3681.       dc.b 15,t3,15,t3,13,t3,11,t3,0,t3,255
  3682. ;blip_env2:    dc.b 15,t2,15,t2,13,t2,11,t2
  3683.       dc.b 15,t2,15,t2,13,t2
  3684.       dc.b 11,t2,0,t2,255
  3685. ;piano_env2:    dc.b 15,t3,15,t3,15,t3,14,t3,3,t3,12,t3,11
  3686.       dc.b t3,10,t3,15,t3,14,t3,13,t3,12,t3,12,t3,11
  3687.       dc.b t3,10,t3,9,t3,8,t3,7,t3,7,t3,6,t3,5,t3,4
  3688.       dc.b t3,3,t3,2,t3,1,t3,0,t3,255
  3689. ;apaiano_env:    dc.b 15,t3,15,t3,15,t3,15,t3,14,t3
  3690.       dc.b 13,t3,13,t3,13,t3,13,t3,13,t3
  3691.       dc.b 13,t3,12,t3,12,t3,11,t3
  3692.       dc.b 11,t3,10,t3,9,t3,8,t3,7,t3,6,t3,255
  3693. ;apaiano_envt:    dc.b 15,t3,15,t3,14,t3,13,t3,13,t3
  3694.       dc.b 12,t3,8,t3,7,t3,6,t3,6,t3
  3695.       dc.b 8,t3,255
  3696. ;apaiano_drum:    dc.b 15,t1,15,t1,15,t1,15,t1,14,t1
  3697.       dc.b 13,t1,13,t1,13,t1,13,t1,13,t1
  3698.      dc.b 13,t1,12,t1,12,t1,11,t1
  3699.       dc.b 11,t1,10,t1,9,t1,8,t1,7,t1,6,t1
  3700.       dc.b 5,t1,4,t1,3,t1,2,t1,1,t1,0,t1,255
  3701. ;apaiano_env3:    dc.b 15,t2,15,t2,15,t2,15,t2,14,t2
  3702.      dc.b 13,t2,13,t2,13,t2,13,t2,13,t2
  3703.       dc.b 13,t2,12,t2,12,t2,11,t2
  3704.       dc.b 11,t2,10,t2,9,t2,8,t2,7,t2,6,t2
  3705.       dc.b 5,t2,4,t2,3,t2,2,t2,1,t2,0,t2,255
  3706. ;amono_enva:    dc.b 14,t3,255
  3707. ;long_susa:     dc.b 15,t3,14,t3,255
  3708. ;arotoe:     dc.b 15,t3,15,t3,15,t3,14,t3,13,t3
  3709.       dc.b 13,t3,12,t3,12,t3,11,t3,10,t3
  3710.       dc.b 8,t3,7,t3,6
  3711.       dc.b t3,5,t3,4,t3,3,t3,2,t3,1,t3,0,t3,255
  3712. ;fast_env:     dc.b 14,t3,1,t3,14,t3,1,t3,14,t3,1,t3
  3713.        dc.b 14,t3,0,t3,255
  3714. ;asharpa_env:    dc.b 15,t3,15,t3,9,t3,15,t3,15,t3,10,t3
  3715.       dc.b 8,t3,7,t3,6,t3,5,t3,2,t3,2,t3,0,t3,255
  3716. rota3:     dc.b 15,t3,15,t3,15,t3,14,t3,13,t3
  3717.       dc.b 13,t3,12,t3,12,t3,11,t3,10,t3
  3718.       dc.b 8,t3,7,t3,6,t3,5,t3,4,t3
  3719.       dc.b 4,t3,3,t3,2,t3,1,t3,0,t3,255
  3720. ;rota2:     dc.b 15,t2,15,t2,15,t2,14,t2,13,t2
  3721.       dc.b 13,t2,12,t2,12,t2,11,t2,10,t2
  3722.       dc.b 8,t2,7,t2,6,t2,5,t2,4,t2
  3723.       dc.b 4,t2,3,t2,2,t2,1,t2,0,t2,255
  3724. rota1:     dc.b 15,t1,15,t1,15,t1,14,t1,13,t1
  3725.       dc.b 13,t1,12,t1,12,t1,11,t1,10,t1
  3726.       dc.b 8,t1,7,t1,6,t1,5,t1,4,t1
  3727.       dc.b 4,t1,3,t1,2,t1,1,t1,0,t1,255
  3728.  
  3729. snaree:     dc.b 15,b1,15,t1,15,t1,15,b1,15,t1,15,b1
  3730.   dc.b 12,t1,12,b1,9,t1,7,b1,7,t1,7
  3731.   dc.b b1,6,t1,6,b1,6
  3732.   dc.b t1,5,t1,255
  3733. ;sh1: dc.b 0,t1,255
  3734. bassde: dc.b 15,b1,15,t1,15,t1,15,t1,7,t1
  3735.   dc.b 3,t1,0,t1,255
  3736. bass_env: dc.b 15,t2,15,t2,15,t2,15,t2
  3737.   dc.b 15,t2,14,t2,13,t2,11,t2,9,t2
  3738.   dc.b 7,t2,255
  3739. bass_env3: dc.b 15,t3,15,t3,15,t3,15,t3
  3740.   dc.b 15,t3,14,t3,13,t3,11,t3,9,t3
  3741.   dc.b 7,t3,255
  3742.  
  3743. bass_env_short: dc.b 15,t2,15,t2,15,t2,15,t2
  3744.   dc.b 14,t2
  3745.   dc.b 7,t2,255
  3746.  
  3747.  
  3748.  
  3749. ;bass_envs: dc.b 15,t2,15,t2,14,t2
  3750.   dc.b 4,t2,255
  3751.  
  3752.     even
  3753. ;bass_envj: dc.b 15,t2,15,t2,0,t2,0,t2
  3754.   dc.b 15,t2,15,t2
  3755.   dc.b 0,t2,255
  3756.     even
  3757. ;bass_env2: dc.b 15,t2,14,b2,15,t2,15,t2
  3758.     dc.b 15,t2,15,t2,15,t2,10,b2,15,t2
  3759.     dc.b 15,t2,15,t2,15,t2,14,t2,13,t2
  3760.     dc.b 0,t2,255
  3761. rest_env:    dc.b 0,0,255
  3762.     even
  3763. blip_env:    dc.b 15,t3,11,t3,3,t3,13,t3
  3764.   dc.b 13,t3,3,t3,3,t3
  3765.   dc.b 12,t3,10,t3,3,t3,8,t3,7,t3,6,t3,0,t3,255
  3766.  
  3767. blip_envl:    dc.b 15,t3,15,t3,3,t3,15,t3
  3768.   dc.b 15,t3,3,t3,9,t3
  3769.   dc.b 12,t3,10,t3,3,t3,9,t3,8,t3,8,t3,0,t3,255
  3770.  
  3771.     even
  3772. ;xpiano_env2:    dc.b 15,t3,15,t3,15,t3,14,t3,13,t3,12,t3,11
  3773.   dc.b t3,10,t3,15,t3,14,t3,13,t3,12,t3,12,t3,11
  3774.   dc.b t3,10,t3,9,t3,8,t3,7,t3,7,t3,6,t3,5,t3,4
  3775.   dc.b t3,3,t3,2,t3,1,t3,0,t3,255
  3776. piano_env:    dc.b 15,t3,15,t3,15,t3,15,t3,14,t3
  3777.   dc.b 13,t3,13,t3,13,t3,13,t3,13,t3
  3778.   dc.b 13,t3,12,t3,12,t3,11,t3
  3779.   dc.b 11,t3,10,t3,9,t3,8,t3,7,t3,6,t3
  3780.   dc.b 5,t3,4,t3,3,t3,2,t3,1,t3,0,t3,255
  3781.  
  3782. piano_env1:    dc.b 15,t1,15,t1,15,t1,15,t1,14,t1
  3783.   dc.b 13,t1,13,t1,13,t1,13,t1,13,t1
  3784.   dc.b 13,t1,12,t1,12,t1,11,t1,255,0
  3785.  
  3786.  
  3787.  
  3788. ;piano_drum:    dc.b 15,t1,15,t1,15,t1,15,t1,14,t1
  3789.   dc.b 13,t1,13,t1,13,t1,13,t1,13,t1
  3790.   dc.b 13,t1,12,t1,12,t1,11,t1
  3791.   dc.b 11,t1,10,t1,9,t1,8,t1,7,t1,6,t1
  3792.   dc.b 5,t1,4,t1,3,t1,2,t1,1,t1,0,t1,255
  3793. ;piano_env3:    dc.b 15,t2,15,t2,15,t2,15,t2,14,t2
  3794.   dc.b 13,t2,13,t2,13,t2,13,t2,13,t2
  3795.   dc.b 13,t2,12,t2,12,t2,11,t2
  3796.   dc.b 11,t2,10,t2,9,t2,8,t2,7,t2,6,t2
  3797.   dc.b 5,t2,4,t2,3,t2,2,t2,1,t2,0,t2,255
  3798. mono_env:    dc.b 15,t3,255
  3799. mono_env3:    dc.b 15,t3,255
  3800. mono_env1:    dc.b 13,t1,255,0
  3801. mono_env2:    dc.b 15,t2,255,0
  3802. piano_envsq:    dc.b 14,t3,12,t3,12,t3,9,t3,6,t3,0,t3,255
  3803. ;long_sus:     dc.b 15,t2,13,t2,255
  3804. ;long_sus4:     dc.b 14,t2,255
  3805. qclape:     dc.b 15,n1,14,n1,14,n1,13,n1,13,n1,12,n1
  3806.   dc.b 11,n1,11,n1,9,n1,7,n1,7,n1,7
  3807.   dc.b n1,6,n1,6,n1,6
  3808.   dc.b n1,5,n1,255
  3809. hate:     dc.b 13,n1,0,n1,255
  3810. rotoe:     dc.b 15,t1,15,t1,15,t1,15,t1,15,t1,14,t1
  3811.   dc.b 13,t1,13,t1,12,t1,11,t1,10,t1,9
  3812.   dc.b t1,8,t1,7,t1,6
  3813.   dc.b t1,5,t1,4,t1,3,t1,2,t1,0,t1,255
  3814. ;hot_env:     dc.b 15,t3,14,t3,15,t3,12,t3,15,t3,10,t3
  3815.   dc.b 15,t3,12,t3,255
  3816. ;hot_env2:     dc.b 15,t2,14,t2,15,t2,12,t2,15,t2,10,t2
  3817.   dc.b 15,t2,12,t2,255
  3818. ;revenv:   dc.b 7,t3,9,t3,11,t3,13,t3,15,t3,14,t3
  3819.     dc.b 1,t3,15,t3,6,t3,13,t3,10,t3,9,t3,255
  3820. ;clip_env:    dc.b 15,t3,15,t3,6,t3,6,t3,15,t3
  3821.  dc.b 15,t3,15,t3,13,t3
  3822.   dc.b 12,t3,11,t3,255
  3823. ;DIST_ENV:   dc.b 15,t3,15,t3,12,t3,15,t3,3,t3,15,t3
  3824.      dc.b 15,t3,3,t3,12,t3,3,t3,10,t3,9,t3
  3825.      dc.b 8,t3,7,t3,3,t3,8,t3,9,t3,12,t3,14,t3
  3826.      dc.b 15,t3,15,t3,15,t3,15,t3,0,t3,255
  3827. ;long_sus2:    dc.b 15,t2,14,t2,13,t2,14,t2,15,t2
  3828.   dc.b 14,t2,13,t2,14,t2,15,t2,14,t2,13,t2,14,t2
  3829.       dc.b 255
  3830. ;long_sus3:  dc.b 15,t3,14,t3,13,t3,12,t3,12,t3
  3831.    dc.b 11,t3,10,t3,9,t3,8,t3
  3832.     dc.b 7,t3,8,t3,7,t3,7,t3
  3833.     dc.b 6,t3,6,t3,6,t3,6,t3,6,t3,6,t3,6,t3,4,t3
  3834.       dc.b 255
  3835. ;dhot_env:     dc.b 15,t3,14,t3,15,t3,12,t3,15,t3,10,t3
  3836.   dc.b 15,t3,12,t3,15,t3,14,t3,15,t3,12,t3
  3837.   dc.b 15,t3,10,t3,15,t3,12,t3,255
  3838. marx_env:   dc.b 15,t3,8,t3,15,t3,15,t3,12,t3,11,t3,13,t3,11,t3
  3839.      dc.b 12,t3,255
  3840. ;sq_env1:     dc.b 15,t1,15,t1,14,t1,13,t1,0,t1,255
  3841. ;sq_env2:     dc.b 15,t2,15,t2,14,t2,13,t2,0,t2,255
  3842. ;sq_env3:     dc.b 15,t3,15,t3,14,t1,13,t2,0,t3,255
  3843. ;fxbassde:  dc.b 15,b1,13,t1,255
  3844. ;;;;;;;;;;;;;;;;;;;;;;  MUSIC DATA END ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3845.  
  3846.  
  3847.  
  3848.  
  3849. ;------------------------------------
  3850. SPEEDS:
  3851. chanela
  3852.  
  3853. END
  3854.  
  3855. ?
  3856.  
  3857.  
  3858.  
  3859.  
  3860.  
  3861.  
  3862.  
  3863.  
  3864.  
  3865.  
  3866.