home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Night Shift Amiga / Lowe_NightShiftAmiga.img / GAMEST.S < prev   
Encoding:
Text File  |  1985-11-20  |  89.5 KB  |  3,820 lines
  1.  
  2. ;               JAGGED MUSIC/FX SOURCE FILES
  3.  
  4. ;         MUSIC AND DRIVER REMAIN COPYRIGHT D.LOWE FOR UAMS
  5.  
  6. ;            Glyn ...Do you want to buy a pc on the cheap!!!!
  7. ;        I've also made this driver turn of the keyboard as I know
  8. ;            you prefer it that way
  9.  
  10. ;    If you assemble this and run it as stand alone code
  11. ;    you can step through the fx using (down arrow) for same fx
  12. ;    and (right arrow) for next fx.Its probaly best to disable
  13. ;    The music (see below) if trying to decide what fx to use
  14. ;    for what.I have left the samples disabled see below
  15. ;    these run on timer a....they play every five seconds
  16. ;    when testing.        
  17. ;    Its probaly easier to ring me with any queries...??
  18. ;    ps..Theres a volume control for the music only on key v
  19. ;    you might want to chuck this out.. see below
  20. ;    (Its set about right to stop it blowing out the sample fx.)
  21. ;    pps.. the arrow keys sometimes cut the fx short
  22. ;    when testing the chip fx...and I havent got a clue why.
  23. ;    It doesnt happen when the fx are called properly ie
  24. ;    when run ingame.(maybe some spotty kids might know).
  25.  
  26.  
  27. ;    FX SAMPLES.........1    torpedo in bath
  28. ;               2    torpedo in bigger bath    
  29. ;               3-6  various explosions                
  30.  
  31. ;      CHIP FX list
  32.  
  33.     ; 1    alarm1
  34.     ; 2    alarm2
  35.     ; 3    alarm3
  36.     ; 4    click_fx    ;empty guns..single click    
  37.     ; 5    exp1        ;chip explosion
  38.     ; 6    exp2        ;short chip explosion
  39.     ; 7    missile4    ; launch missile/weapon    
  40.     ; 8    missile5    ; launch missile/weapon    
  41.     ; 9    missile6    ; launch missile/weapon    
  42.     ; 10    turbo1        ; turbo to 1st level
  43.     ; 11    turbo2        ; turbo to 2st level
  44.     ; 12    turbo3        ; turbo to 3rd level
  45.     ; 13    pop_gun1    ; variation   very short
  46.     ; 14    enemy pop gun    ; high pitched very short
  47.     ; 15    your_pop gun    ; lower pitch very short
  48.     ; 16    wheel_skid    ; jumbo jet touchdown ?
  49.     ; 17    panel_slide    ; panel sliding sound..ish
  50.     ; 18    waves....sea side etc/chucked out seagull sample(to big)
  51.  
  52.     ;;;  MUSIC NUMBERS
  53.     
  54.     ;   tune 1............title tune/and level music
  55.     ;   tune 2............level music
  56.     ;   tune 3............level music
  57.     ;   tune 4............level/high score
  58.     ;   tune 5............change level/win jingle
  59.  
  60. ;            0723 870648 .... Dave Lowe
  61.  
  62. B08:  equ  16
  63. Bb08:  equ  17
  64. A08:  equ  18
  65. Ab08:  equ  19
  66. G08:  equ  20
  67. Gb08:  equ  21
  68. f08:  equ  22
  69. E08:  equ  24
  70. Eb08:  equ  25
  71. D08:  equ  27
  72. Db08:  equ  28
  73. C08:  equ  30
  74. ;  ********
  75.  
  76. ;  *********
  77. B07:  equ  32
  78. Bb07:  equ  34
  79. A07:  equ  36
  80. Ab07:  equ  38
  81. G07:  equ  40
  82. Gb07:  equ  42
  83. f07:  equ  45
  84. E07:  equ  47
  85. Eb07:  equ  50
  86. D07:  equ  53
  87. Db07:  equ  56
  88. C07:  equ  60
  89. ;  ********
  90. ;  *********
  91. B06:  equ  63
  92. Bb06:  equ  67
  93. A06:  equ  71
  94. Ab06:  equ  75
  95. G06:  equ  80
  96.  
  97. Gb06:  equ  84
  98. f06:  equ  89
  99. E06:  equ  95
  100. Eb06:  equ  100
  101. D06:  equ  106
  102. Db06:  equ  113
  103. C06:  equ  119
  104. ;  ********
  105. ;  *********
  106. B05:  equ  127
  107. Bb05:  equ  134
  108. A05:  equ  142
  109. Ab05:  equ  150
  110. G05:  equ  159
  111. Gb05:  equ  169
  112. f05:  equ  179
  113. E05:  equ  190
  114. Eb05:  equ  201
  115. D05:  equ  213
  116. Db05:  equ  225
  117. C05:  equ  239
  118. ;  ********
  119. ;  *********
  120. B04:  equ  253
  121. Bb04:  equ  268
  122. A04:  equ  284
  123. Ab04:  equ  301
  124. G04:  equ  319
  125. Gb04:  equ  338
  126. f04:  equ  358
  127. E04:  equ  379
  128. Eb04:  equ  402
  129. D04:  equ  426
  130. Db04:  equ  451
  131. C04:  equ  478
  132. ;  ********
  133. ;  *********
  134. B03:  equ  506
  135. Bb03:  equ  536
  136. A03:  equ  568
  137. Ab03:  equ  602
  138. G03:  equ  638
  139. Gb03:  equ  676
  140. f03:  equ  716
  141. E03:  equ  758
  142. Eb03:  equ  804
  143. D03:  equ  851
  144. Db03:  equ  902
  145. C03:  equ  956
  146. ;  ********
  147. ;  *********
  148. B02:  equ  1012
  149. Bb02:  equ  1073
  150. A02:  equ  1136
  151. Ab02:  equ  1204
  152. G02:  equ  1276
  153. Gb02:  equ  1351
  154. f02:  equ  1432
  155. E02:  equ  1517
  156. Eb02:  equ  1607
  157. D02:  equ  1703
  158. Db02:  equ  1804
  159. C02:  equ  1911
  160. ;  ********
  161. ;  *********
  162. B01:  equ  2025
  163. Bb01:  equ  2145
  164. A01:  equ  2273
  165. Ab01:  equ  2408
  166. G01:  equ  2551
  167. Gb01:  equ  2703
  168. f01:  equ  2863
  169. E01:  equ  3034
  170. Eb01:  equ  3214
  171. D01:  equ  3405
  172. Db01:  equ  3608
  173. C01:  equ  3822
  174. ;  ********
  175.  
  176.  
  177. select_reg   equ $ffff8800
  178. write_data   equ $ffff8802
  179. end_patt    equ 0
  180. end_song    equ $ffffffff
  181. end_data    equ $ff
  182. new_env   equ 4
  183. new_sound    equ 8
  184. pbend    equ 12
  185. octaves   equ 20
  186. endfx_patt    equ 36
  187. hold        equ 40
  188. holdoff    equ 44
  189. cem     equ 20
  190. up     equ 3
  191. down    equ 2
  192. auto    equ 1
  193. man     equ 0
  194. modon    equ 16
  195. modoff   equ 24
  196. pboff    equ 28
  197. bendoff        equ 28
  198. inline   equ 32
  199. rpto    equ $01
  200. rptc    equ $02
  201. trigg    equ 0
  202. notrigg equ 1
  203.  
  204. CR      set 24
  205. tcr1     set 11
  206. tcr2     set 10
  207. Q       set CR/2
  208. tq1      set 5
  209. tq2      set 6
  210. tsq1     set 3
  211. tsq2     set 2
  212. SQ      set Q/2
  213. m       set 254
  214. rest     set $fd00
  215. dcr      set cr+q
  216. dq      set q+sq
  217. dsq      set sq+(sq/2)
  218. sb      set cr*4
  219. min      set cr*2
  220. dm      set min+cr
  221.  
  222.  
  223. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  224.  
  225.  
  226.  
  227. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  228.  
  229.  
  230. t1     equ %00001000
  231. n1     equ %00000001
  232. b1     equ %00000000
  233. t2     equ %00010000
  234. n2     equ %00000010
  235. b2     equ %00000000
  236. t3     equ %00100000
  237. n3     equ %00000100
  238. b3     equ %00000000
  239.  
  240. ;       ***********************************
  241. ;  THIS WHOLE SECTION IS A SHORT CONTROL SECTION TO POKE NUMBERS
  242. ;  INTO THE FX BUFFERS TO ENABLE YOU TO ASSEMBLE AND RUN IT WITHOUT   
  243. ;  ANY INTERRUPT ROUTINEs ETC......Delete it when not needed
  244.  
  245.            jsr super
  246. ;  disable key click for volume control...You probably have your own
  247.         MOVE.B $484,D0        ;routines for keyboard etc.So I've kept
  248.         AND.B #$FE,D0        ;this bit in the deletable section
  249.         MOVE.B D0,$484
  250.  
  251.  ; test for screen res
  252.            move.w #4,-(sp)
  253.            trap #14
  254.           addq.l #2,sp
  255.           cmp.w #2,d0
  256.           beq high_res
  257. ; screen to med res
  258.           move.w #1,-(sp)
  259.            move.l #-1,-(sp)
  260.           move.l #-1,-(sp)
  261.            move.w #5,-(sp)
  262.            trap #14
  263.           add.l #12,sp
  264.  
  265. high_res:
  266.            move.w col_byte,d0
  267.            JSR colour
  268.            move.w d0,col_byte
  269.            EORi.w #1,D0
  270.            jsr colour
  271.            lea ua_mess,a1
  272.            jsr print
  273.            LEA TOGGLE_MESS_OFF,a1
  274.            jsr print
  275.            LEA TITLE_MESS_POS,A1
  276.            JSR PRINT
  277.            jsr select_new_song
  278.         call_loop:
  279.  
  280.  
  281.            cmp.w #0,timer3
  282.            beq testkey
  283.            sub.w #1,timer3
  284.            bra nokey
  285.  
  286. testkey:
  287.            CMP.B #$39,$FFFC02
  288.            bne nokey
  289. relkey:        clr.b $fffc02
  290.            move.w #100,timer3
  291.  
  292.            move.l song_buffer,d0
  293.            addq.l #1,d0
  294.            cmpi.l #25,d0    ;songs +1
  295.            bne okay
  296.            move.l #1,d0
  297. okay:         move.l d0,song_buffer
  298.            jsr SELECT_NEW_SONG
  299.  
  300. nokey:
  301.            jsr interrupt
  302.            jsr sfxdriver
  303.  
  304. ; see if change of toggle required
  305.            CMP.B #$3a,$FFFC02
  306.            bne no_change
  307.            TST.W timer4
  308.            bne no_change
  309.  
  310. ; toggle sound fx and print to screen
  311.            tst.w fx_toggle
  312.            bne off
  313.            lea toggle_mess_on,a1
  314.            jsr print
  315.            bra tj1
  316. off:           lea toggle_mess_off,a1
  317.            jsr print
  318. tj1:           move.w #200,timer4
  319.            bchg #0,fx_toggle
  320. NO_CHANGE:
  321.            tst.w timer4
  322.            beq t4ok
  323.            sub.w #1,timer4
  324. t4ok:
  325.            tst.w fx_toggle
  326.            bne toggle_ok
  327.            bra call_loop
  328.  
  329. TOGGLE_ok:
  330. ;   SAMPLE FX CONTROL
  331.            subi.w #1,timer
  332.            cmpi.w #0,timer
  333.            bne call_loop1
  334.            move.l yyy,d0
  335.            addi.l #1,d0
  336.            cmpi.l #max_sam,d0
  337.            bne jjj
  338.            move.l #1,d0
  339.  
  340. jjj:          ;move.l d0,fx_buffer  ;THIS INSTRUCION WILL ENABLE/DISABLE
  341.                       ;THE SAMPLES FOR TESTING..
  342.            move.l d0,yyy
  343.            move.w #800,timer
  344.            bra call_loop
  345. call_loop1:
  346.  
  347. ; chip fx control
  348.  
  349.  
  350.         tst.w timer1
  351.         beq new_fx    
  352.         sub.w #1,timer1
  353.         bra call_loop
  354.  
  355. new_fx
  356.         move.l yyy1,d0
  357.         cmp.b #$50,$fffc02
  358.         beq same_fx
  359.  
  360.         cmp.b #$4d,$fffc02
  361.            bne call_loop
  362.  
  363.            move.l yyy1,d0
  364.            addi.l #1,d0
  365.            move.l max_chfx,d1
  366.            cmp.l d1,d0
  367.            bne no_reset_chfx
  368.            move.l #1,d0
  369. no_reset_chfx  
  370.         move.l d0,yyy1
  371. same_fx
  372.         jsr set_up_chip_fx
  373.         move.w #5,timer1
  374.  
  375.            bra call_loop
  376.  even
  377. timer: dc.w 3
  378. yyy: dc.l 0
  379. timer1: dc.w 70
  380. yyy1: dc.l curr_fx
  381. timer3: dc.w 0
  382. fx_toggle: dc.w 0
  383. timer4: dc.w 0
  384. col_byte: dc.w -1
  385. print_store: dc.l title_mess
  386. ; +++++++++++
  387. print:
  388. ; a1 is pointer to data
  389. ploop:
  390.          MOVE.B (A1)+,D0
  391.          CMPI.B #255,D0
  392.          BNE DOP
  393.          RTS
  394. dop:         jsr print_sub
  395.            bra ploop
  396. print2:
  397.          clr.l d3
  398.          MOVE.W #13,D3
  399.         ploop2:
  400.          MOVE.B (A1)+,D0
  401.          JSR PRINT_SUB
  402.          DBRA D3,PLOoP2
  403.          RTS
  404. dop2:         jsr print_sub
  405.            bra ploop2
  406.  
  407.  
  408.  ; character to print in d0
  409. print_sub:
  410.           move.w d0,-(sp) ; value to print
  411.           move.w #2,-(sp)
  412.           trap #1
  413.           addq.l #4,sp
  414.           rts
  415.  
  416. ua_mess:
  417.          dc.b 27,'b',0,27,'c',1
  418.  
  419.  
  420.          dc.b 27,'E'     ; CLEAR SCREEN
  421.          dc.b 27,'Y',32+7,32+32
  422.                  dc.b ' UNCLE~ART '
  423.          dc.b 27,'Y',32+9,32+26
  424.              dc.b 'Computer Music Specialists'
  425.          dc.b 27,'Y',32+10,32+30,' Tel:0723 870648 '
  426.  
  427.  
  428.  
  429.          dc.b 27,'Y',32+16,32+6
  430.          dc.b '             Caps Lock to toggle FX/V for MUSIC volume'
  431.             dc.b 0
  432. toggle_mess_off:
  433.          dc.b 27,'Y',32+18,32+30,'»»»» FX OFF ««««'
  434.  
  435.          dc.b 27,'Y',32+19,32+30,'     FX  ON     '
  436.  
  437.          dc.b 255
  438. toggle_mess_on:
  439.          dc.b 27,'Y',32+18,32+30,'     FX OFF     '
  440.  
  441.          dc.b 27,'Y',32+19,32+30,'»»»» FX  ON ««««'
  442.          dc.b 255
  443.  
  444. title_mess_pos:
  445.          dc.b 27,'Y',32+15,32+20
  446. title_mess:
  447.          dc.b  '*     SUMMER GAMES MUSIC/FX     *'
  448.          dc.b 27,'Y',32+13,32+14
  449.          dc.b ' '
  450.          dc.b 27,'f'
  451.          dc.b 255,0
  452.     even
  453. colour:
  454.           move.w d0,-(sp)
  455.           move.w #0,-(sp)
  456.           move.w #7,-(sp)
  457.           trap #14
  458.           add.w #6,sp
  459.           rts
  460. ;            END OF CONTROL(deletable)SECTION
  461. ;        *********************************
  462.  
  463. ;          **********************************
  464. ;          FLAGS/VARIABLES FOR ACCESS BY PROGRAMMER
  465. ;             DURING RUN TIME        
  466.  
  467. fx_disable:    dc.w 0     ;fx disable flag     1=disable
  468. music_disable:  dc.w 0  ;music disable         1=disable
  469.  
  470. fx_buffer:     dc.l 0     ;sample fx number required  
  471. song_buffer:     dc.l 1  ;which piece of music  1 to 5
  472. ;         **********************************
  473.  
  474. ;     ALL INTERNAL FLAGS/VARIABLES USED INTERNALLY BY THE DRIVER 
  475. chip_fx_on     dc.w 0
  476. FXBUFFER:     dc.l 0
  477. backup_buffer:     dc.l 0
  478. fxcount:     dc.b 0
  479. fx_patt_f:     dc.w 0
  480. fx_patt_point:     dc.l 0
  481. fx_int:     dc.l 0
  482. curr_fx_fin:     dc.w 0
  483. duck         dc.b 0,0
  484. curr_mix     dc.b %11111111,0
  485. mod2_flag     dc.w 0
  486. altpf:         dc.w 0
  487. temp:         dc.l 0
  488. which_chip     dc.l 0
  489. no_reg:     dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  490. sample_flag:    dc.w 0
  491. fx_flag:    dc.w %0000000000000000
  492. curr_chann:    dc.w 0
  493. start_patt:     dc.b m,end_patt
  494. start_song:     dc.l $ffffffff
  495. curr_comp:    dc.b 3,0
  496. vol_count:    dc.w 6
  497. hold_val_p:    dc.w 0,0
  498. sfxflag        dc.w 0
  499. int_flag    dc.w 0
  500. ; ******************************
  501.  
  502. ;  SUBROUTINE TO KILL CHIP...does not save registers
  503.  
  504. ; call here to kill all three channels
  505. kill_chip:
  506.         move.w #13,d0
  507. kloop        move.b d0,select_reg
  508.         move.b #0,write_data
  509.         dbra.w    d0,kloop 
  510.            move.b #7,select_reg
  511. ; turn mixer off
  512.            move.b #%11111111,write_data
  513.            rts
  514. ; *************************************
  515.  ; SONG SELECTION subroutine...call here AFTER poking number of required
  516. ;    piece into song_buffer
  517.  
  518. select_new_song:
  519.         move.w #1,int_flag
  520.          jsr kill_chip 
  521.          move.l #74,d0
  522.          lea vars1,a0
  523.         clear_loop:
  524.          move.w #0,(a0)+
  525.          dbra d0,clear_loop
  526.          clr.l backup_buffer
  527.          clr.b fxcount
  528.          clr.l d0
  529.          move.l song_buffer,d1
  530.          add d1,d0
  531.          add d1,d0
  532.          add d1,d0
  533.          add d1,d0
  534.          add d1,d0
  535.          add d1,d0
  536.          add d1,d0
  537.          add d1,d0
  538.          add d1,d0
  539.          add d1,d0
  540.          add d1,d0
  541.          add d1,d0
  542.          LEA SONG_TABLE-12,A1
  543.          add.l d0,a1 
  544.          MOVE.L (A1)+,WSONG1 
  545.           move.l (a1)+,wsong2 
  546.           move.l (a1),wsong3
  547.           MOVE.L #START_PATT,PATTR1
  548.           MOVE.L #start_patt,PATTR2
  549.           MOVE.L #start_patt,PATTR3
  550.           move.l #start_song,songr1
  551.           MOVE.L #start_song,SONGR2
  552.           MOVE.L #start_song,SONGR3
  553.           move.w #0,intc1
  554.           move.w #0,intc2
  555.           move.w #0,intc3
  556.         clr.w int_flag
  557.           rts
  558.  
  559. ;****************************************
  560.     ;  CALL HERE WITH D0 HOLDING THE long word value
  561.     ;  of the fx you want/  see fx list
  562.  
  563. set_up_chip_fx
  564.         add d0,d0
  565.         add d0,d0
  566.         lea chfx_table-4,a0
  567.         move.l (a0,d0),a1    
  568.         btst #0,fx_flag+1
  569.         bne checkfx2
  570. use1        move.l a1,fxpattr1
  571.         bset #0,fx_flag+1
  572.         rts
  573. checkfx2:     btst #1,fx_flag+1
  574.         bne checkfx3    
  575.         move.l a1,fxpattr2
  576.         bset #1,fx_flag+1
  577.         rts
  578. checkfx3:     btst #2,fx_flag+1
  579.         bne overwrite
  580.         move.l a1,fxpattr3
  581.         bset #2,fx_flag+1
  582. overwrite
  583.         lea fxvars1,a0
  584.         jsr clear_fx_1
  585.         bra use1
  586. ;*************************************
  587. ; CALL HERE ON 50hz INTERRUPT TO PLAY MUSIC/SAMPLES AND FX
  588. ; TO PLAY SAMPLE  PLACE NUMBER FROM INCLUDED LISTS INTO..fx_buffer
  589. ; TO PLAY CHIP FX CALL ABOVE ROUTINE AS DESCRIBED ABOVE
  590. ; TO SELECT WHICH PIECE OF MUSIC PLACE NUMBER FROM INCLUDED
  591. ; LIST INTO....song_buffer AND CALL select_new_song
  592. ; TO DISABLE MUSIC PLACE A 1 INTO music_disable/0 TO RENABLE
  593. ; TO DISABLE SAMPLES/FX PLACE A 1 INTO fx_disable/0 TO RENABLE
  594. ; SEE LINE FURTHER  DOWN  FOR MUSIC VOLUME CONTROL
  595. ; THERE IS NO NEED TO DISABLE THE 50hz INTERRUPT WHEN USING THE
  596. ; ABOVE FUNCTIONS
  597.  
  598. sfxdriver:
  599.         movem.l a0-a5/d0-d7,-(a7)
  600.         jsr driver
  601.         movem.l (a7)+,a0-a5/d0-d7
  602.          rts    ;YOU PROBABLY NEED TO CHANGE THIS TO RTE WHEN RUNNING
  603.         ;IT FROM THE VBI
  604.  
  605. ; *************************************
  606. driver:
  607.         tst.w int_flag
  608.         beq on_line
  609.         rts
  610. on_line       tst.w fx_disable
  611.            bne mdriver   
  612.           tst.l fx_buffer 
  613.         bne set_up_s
  614.            tst.w fx_patt_f
  615.            bne fx_in_use
  616.           bra mdriver 
  617. set_up_s
  618.            clr.w chip_fx_on
  619.           move.l fx_buffer,d0
  620.           add d0,d0
  621.           add d0,d0  
  622.           MOVE.L #PATT_TABLE,A1
  623.           move.l (a1,d0),a2 
  624. set_up_fx: 
  625.         move.l (a2)+,a1 
  626.           move.l (a2)+,fx_int 
  627.           move.l a2,fx_patt_point
  628.           clr.w curr_fx_fin
  629.           move.l (a1)+,sam_speed
  630.           move.l (a1)+,sam_end
  631.          move.l (a1)+,sam_start
  632.           move.l #0,fx_buffer
  633.          move.w #1,fx_patt_f 
  634.           jsr main_program
  635.         move.w #1,sample_flag
  636.          bra mdriver 
  637. fx_in_use:
  638.          tst.w curr_fx_fin 
  639.           beq mdriver 
  640.          move.l fx_patt_point,a2
  641.           cmpi.l #255,(a2) 
  642.           bne check_delay
  643.           clr.w fx_patt_f
  644.         move.w #0,sample_flag
  645.         jsr kill_chip
  646.           beq mdriver
  647.           bra mdriver
  648. CHECK_DELAY:     TST.L FX_INT
  649.           beq set_up_fx
  650.           sub.l #1,fx_int
  651.         bra mdriver 
  652.  
  653.  
  654. patt_table:     dc.l 0,fxp1,fxp2,fxp3,fxp4,fxp5,fxp6
  655.  
  656.  
  657. fxp1:         dc.l ssplash8,0,255
  658. fxp2:         dc.l ssplash8,0,255
  659. fxp3:         dc.l explosi8,0,255
  660. fxp4:         dc.l explosi85,0,255
  661. fxp5:         dc.l explosi83,0,255
  662. fxp6:
  663.          dc.l explosi8s,0
  664.          dc.l explosi5s,0
  665.          dc.l explosi3s,0
  666.          dc.l explosi6s,0
  667.          dc.l explosi9s,0
  668.          dc.l explosi10s,0
  669.          dc.l explosi5s,0
  670.          dc.l explosi83,0,255
  671.  
  672.  
  673. ssplash8    dc.l 7,6728+ssplash8d,ssplash8d
  674. explosi8    dc.l 8,4882+explosi8d,explosi8d
  675. explosi8s    dc.l 8,1200+explosi8d,explosi8d
  676. explosi7s    dc.l 7,1200+explosi8d,explosi8d
  677. explosi6s    dc.l 6,1200+explosi8d,explosi8d
  678. explosi5s    dc.l 5,1200+explosi8d,explosi8d
  679. explosi10s    dc.l 10,1200+explosi8d,explosi8d
  680. explosi3s    dc.l 3,1200+explosi8d,explosi8d
  681. explosi9s    dc.l 9,1200+explosi8d,explosi8d
  682.  
  683. explosi85    dc.l 5,4882+explosi8d,explosi8d
  684. explosi83    dc.l 3,4882+explosi8d,explosi8d
  685.  
  686. max_sam        equ 7
  687.  
  688. ;**********************************************
  689.  
  690. clear_chip:    RTS
  691. SAM_SPEED DC.L 0
  692. SAM_END DC.L 0
  693. SAM_START DC.L 0
  694.         MAIN_PROGRAM:
  695.          jsr kill_chip
  696.          MOVE.l SAM_SPEED,D0
  697.          EXT.W D0
  698.          SUBQ.L #2,D0
  699.          lSL.w #1,D0
  700.          MOVE.L SAM_START(PC),sample+2 
  701.          LEA SPEEDS(PC),A0
  702.          MOVE.L #interupt,$134 
  703.          MOVE.W 0(A0,D0.W),D0
  704.          MOVE.B D0,$FFFA19 
  705.          LSR.W #8,D0
  706.          MOVE.B D0,$FFFA1F
  707.          MOVE.B #$20,$FFFA13 
  708.           MOVE.B #$20,$FFFFA07 
  709.          rts
  710.         INTERUPT: ORI.W #$0700,SR 
  711.          MOVEM.L D0-D2/A0-A2,-(SP) 
  712.          CLR.W D0 
  713.          MOVE.L SAM_END,A1
  714.          LEA SAMPLE+2,A2
  715.         SAMPLE: MOVE.B $00000000,D0 
  716.          ADDQ.L #1,(A2) 
  717.              AND.B #$FC,D0
  718.          LEA CHANEL_A,A0
  719.          MOVE.W #$0900,D1 
  720.              MOVE.W #$0A00,D2 
  721.          MOVE.B 1(A0,D0.W),D1
  722.          MOVE.B 3(A0,D0.W),D2
  723.          LEA $FFF8800,A0 
  724.          MOVEP.W D1,0(A0)
  725.          MOVEP.W D2,0(A0) 
  726.          CMPA.L (A2),A1 
  727.          BLT.S STOP_INTERUPT
  728.          MOVEM.L (SP)+,D0-D2/A0-A2 
  729.          BCLR #5,$FFFA0F 
  730.          RTE 
  731. STOP_INTERUPT:         BCLR #5,$FFFA19 
  732.          BCLR #5,$FFFA07 
  733.          MOVEM.L (SP)+,D0-D2/A0-A2 
  734.          BCLR #5,$FFFA0F 
  735.              move.w #1,curr_fx_fin
  736.              clr.b duck
  737.          RTE
  738. super:  
  739.            move sr,d0
  740.            andi #$2000,d0
  741.            bne coldst
  742.            clr.l -(sp)
  743.            move.w #$20,-(sp)
  744.            trap #1
  745.            add.l #6,sp
  746.            lea temp,a1
  747.            MOVE.L D0,(a1)
  748. coldst:       rts
  749. user:
  750.            move.l temp,-(sp)
  751.            move.w #$20,-(sp)
  752.            trap #1
  753.            add.l #6,sp
  754.            rts
  755. interrupt:      moveq #4,d1
  756. wait2:      move.l $4ba,d6
  757. wait:          cmp.l $4ba,d6
  758.            beq wait
  759.            subq #1,d1
  760.            bne wait2
  761.            rts
  762.  
  763.  
  764. ;+++++++++++++++++++++++++++++++++++++++++++++++++
  765.  
  766. mdriver: 
  767.  
  768.         move.w #1,curr_chann
  769.         move.l #select_reg,a4
  770.         move.l #curr_mix,a5
  771.         tst.w sample_flag    
  772.         beq do1    
  773.         move.l #no_reg,a4
  774. do1: 
  775.           lea VARS1,A0 
  776.         btst.b #0,fx_flag+1
  777.         beq do1music
  778.         lea fxvars1,a0
  779.          moveq.l #0,d0 
  780.           moveq.l #1,d1 
  781.           moveq.l #8,d2 
  782.          move.b #%11110110,d7
  783.         jsr check_count_1
  784.             move.l #no_reg,a4
  785.         move.l #no_reg,a5
  786.          lea VARS1,A0 
  787.         jsr check_count_1
  788.         bra chan2
  789. do1music:
  790.         tst.w music_disable
  791.         bne chan2
  792.           moveq.l #0,d0 
  793.           moveq.l #1,d1 
  794.           moveq.l #8,d2 
  795.           move.b #%11110110,d7
  796.           jsr check_count_1
  797. ;    ******************************
  798.  
  799. chan2:
  800.         move.w #2,curr_chann
  801.           move.l #select_reg,a4
  802.         move.l #curr_mix,a5
  803.         tst.w sample_flag    
  804.         beq do2    
  805.         move.l #no_reg,a4
  806. do2          lea vars2,a0
  807.         btst.b #1,fx_flag+1
  808.         beq do2music
  809.         lea fxvars2,a0
  810.           moveq.l #2,d0
  811.           moveq.l #3,d1
  812.            moveq.l #9,d2
  813.            move.b #%11101101,d7
  814.         jsr check_count_1
  815.         move.l #no_reg,a4
  816.         move.l #no_reg,a5
  817.           lea vars2,a0
  818.             jsr check_count_1
  819.         bra chan3
  820. do2music:
  821.         tst.w music_disable
  822.         bne chan3
  823.            moveq.l #2,d0
  824.            moveq.l #3,d1
  825.            moveq.l #9,d2
  826.            move.b #%11101101,d7
  827.            jsr check_count_1
  828. chan3:
  829.         move.w #4,curr_chann
  830.         move.l #select_reg,a4
  831.         move.l #curr_mix,a5
  832.         tst.w sample_flag    
  833.         beq do3    
  834.         move.l #no_reg,a4
  835. do3           lea vars3,a0
  836.         btst.b #2,fx_flag+1
  837.         beq do3music
  838.         lea fxvars3,a0
  839.            moveq.l #4,d0
  840.            moveq.l #5,d1
  841.            moveq.l #10,d2
  842.            move.b #%11011011,d7
  843.         jsr check_count_1
  844.         move.l #no_reg,a4
  845.         move.l #no_reg,a5
  846.           lea vars3,a0
  847.         jsr check_count_1
  848.         rts
  849. do3music:
  850.         tst.w music_disable
  851.         beq dochan2
  852.         rts
  853. dochan2:
  854.            moveq.l #4,d0
  855.            moveq.l #5,d1
  856.            moveq.l #10,d2
  857.            move.b #%11011011,d7
  858.            jsr check_count_1
  859.            rts
  860. process_data:
  861. get_new_patt:      move.l 12(A0),a1 
  862.            CMPI.B #END_song,(A1) 
  863.            bne get_patt_a 
  864.            move.l 16(a0),12(a0) 
  865.            move.l 12(a0),a1 
  866. get_patt_a:
  867. song_cont_ret:
  868.            move.l (a1),4(a0) 
  869.            addq.l #4,a1
  870.            move.l a1,12(a0)
  871.            move.w #1,(a0)
  872.            bra get_new_note
  873. check_count_1:  tst.w 2(a0) 
  874.            BEQ gET_NEW_NOTE 
  875.            MOVE.W #0,ALTPf 
  876.            subq.w #1,2(a0) 
  877.            move.w 28(a0),d6 
  878.            tst.b 26(a0) 
  879.            beq octaves_on
  880.            tst.w 48(a0)
  881.            beq contbend
  882.            subq #1,48(a0)
  883.            bra octaves_on
  884. contbend:      addq #1,altpf  
  885.            clr.w d4
  886.            move.b 27(a0),d4 
  887.            move.w 42(a0),d5 
  888.            cmpi.b #2,26(a0) 
  889.            beq pbup
  890.          sub.w d4,d6
  891.            cmp.w d6,d5
  892.            bcs octaves_on
  893.            bra fbend
  894. pbup:          add.w d4,d6
  895.            cmp.w d6,d5
  896.            bcc octaves_on
  897. fbend:      move.w d5,d6
  898.            CLR.B 26(A0) 
  899. octaves_on:
  900.            cmpi.b #5,38(a0) 
  901.            bls ch_mod_on 
  902.            addq.b #1,altpf
  903.            cmpi.b #8,38(a0) 
  904.            bcc upoct
  905.            asl #1,d6  
  906.            addq.b #1,38(a0) 
  907.            bra send_altered_pitch
  908. upoct:      asr #1,d6
  909.            addq.b #1,38(a0)
  910.            cmpi.b #10,38(a0)
  911.            bne send_altered_pitch
  912.            move.b #6,38(a0) 
  913.            BRA SEND_ALTERED_PITCH
  914. ch_mod_on:
  915.            tst.b 38(a0) 
  916.            beq send_altered_pitch 
  917.            tst.w 44(a0) 
  918.            beq check_speed
  919.            subq #1,44(a0)
  920.            bra send_altered_pitch
  921. check_speed:      tst.b (a0)
  922.            beq contmod
  923.            subq.b #1,(a0)
  924.            bra send_altered_pitch
  925. contmod:
  926.            move.b 1(a0),(a0) 
  927.            addq.b #1,altpf 
  928.            cmpi.b #3,38(a0)
  929.            bcc addmod
  930.            move.w 34(a0),d4
  931.            sub.w d4,d6 
  932.            addq.b #1,38(a0) 
  933.            bra send_altered_pitch
  934. addmod:      move.w 36(a0),d4
  935.            add.w d4,d6
  936.            addq.b #1,38(a0)
  937.            cmpi.b #5,38(a0)
  938.            bne send_altered_pitch
  939.            move.b #1,38(a0) 
  940.         SEND_ALTERED_PITCH: tst.w (ALTPF)
  941.            beq send_env
  942.            move.w d6,28(a0)
  943.            move.b d1,(a4)
  944.            move.b 28(a0),2(a4)
  945.            move.b d0,(a4)
  946.            move.b 29(a0),2(a4)
  947. send_env:  
  948.            tst.w hold_val_p
  949.         beq no_hold
  950.         move.b hold_val_p,(a4)
  951.         move.b hold_val_p+1,2(a4)
  952. no_hold:
  953.            move.l 8(a0),a2
  954.            cmpi.b #255,(a2) 
  955.            bne more_env
  956.         sub.l #2,a2
  957. more_env:
  958.         move.w fx_flag,d4
  959.         and.w curr_chann,d4    
  960.         cmpi.w #0,d4
  961.         beq music_only
  962.            move.b d2,(a4)
  963.            move.b (a2)+,d5
  964.            move.b d5,2(a4) 
  965.            move.b #7,(a4) 
  966.            and.b d7,(a5)
  967.            move.b (a2)+,d2
  968.         cmpi.w #1,d4
  969.         beq cont_env
  970.         asl.b #1,d2
  971.         cmpi.w #2,d4
  972.         beq cont_env 
  973.         asl.b #1,d2
  974. cont_env:
  975.            or.b d2,(a5)
  976.            move.b (a5),2(a4)
  977.            move.l a2,8(a0)  
  978. no_more_envelope: rts
  979. music_only:
  980.   CMP.B #$2f,$FFFC02    ; check `v` key for music volume change
  981.         bne no_vol_change    
  982.         subq.w #1,vol_count
  983.         tst.w vol_count
  984.         bne no_vol_change
  985.         move.w #50,vol_count    
  986.         subq.b #1,curr_comp
  987.         bcc no_vol_change
  988.         move.b #13,curr_comp
  989. no_vol_change
  990.            move.b d2,(a4)
  991.            move.b (a2)+,d5
  992.            sub.b curr_comp,d5 
  993.            move.b d5,2(a4) 
  994.            move.b #7,(a4) 
  995.            and.b d7,(a5)
  996.            move.b (a2)+,d2
  997.            or.b d2,(a5)
  998.            move.b (a5),2(a4)
  999.            move.l a2,8(a0)  
  1000.          rts
  1001. get_new_note:     move.l 4(a0),a1
  1002.            move.w 46(a0),44(a0)
  1003. CONTROL_RET:
  1004.            clr.l d3
  1005.            move.b (a1)+,d3 
  1006.            cmpi.b #m,d3  
  1007.            beq control_char 
  1008.            cmpi.b #253,d3
  1009.            beq do_rest
  1010. legal_note:
  1011.             tst.b 78(a0)
  1012.              bne noretrigg
  1013.             move.l 20(a0),8(a0) 
  1014. noretrigg
  1015.            jsr send_env
  1016.            move.b d1,(a4) 
  1017.            move.b d3,2(a4) 
  1018.            move.b d3,28(a0) 
  1019.            move.b d0,(a4)
  1020.            move.b (a1),29(a0) 
  1021.            move.b (a1)+,2(a4)
  1022.            move.w (a1)+,2(a0) 
  1023.            subq #1,2(a0) 
  1024.            move.l a1,4(a0) 
  1025.            rts
  1026. do_rest:
  1027.          move.b d2,(a4)
  1028.           clr.b 2(a4) 
  1029.           move.l #restenv,8(a0)  
  1030.           addq #1,a1
  1031.            move.w (a1)+,2(a0)
  1032.            subq #1,2(a0)
  1033. in_line_ret
  1034.            move.l a1,4(a0)
  1035.            rts
  1036. drum_chan:
  1037.            move.l 20(a0),8(a0) 
  1038.            jsr send_env
  1039.            move.b #6,(a4)
  1040.            move.b (a1)+,2(a4) 
  1041.            move.w (a1)+,2(a0) 
  1042.            subq #1,2(a0) 
  1043.            move.l a1,4(a0) 
  1044.            rts
  1045. restenv:      dc.b 0,0,255
  1046.    even
  1047. control_char:
  1048.            move.b (a1),d3 
  1049.           move.l #jumptable,a2
  1050.           MOVE.L (A2,D3),A3
  1051.           jmp (a3)
  1052. jumptable:
  1053.            dc.l get_new_patt
  1054.            dc.l get_env
  1055.            dc.l do_sound
  1056.            dc.l check_pbend
  1057.            dc.l modulation
  1058.            dc.l set_octaves
  1059.            dc.l do_modoff
  1060.            dc.l do_bend_off
  1061.            dc.l do_inline
  1062.            dc.l do_end_fx
  1063.            dc.l hold_val
  1064.            dc.l do_hold_off
  1065.  
  1066.  
  1067. get_env:      addq #1,a1
  1068.         move.b (a1),78(a0)
  1069.         addq #2,a1
  1070.            move.l (a1),20(a0) 
  1071.            addq #4,a1  
  1072.            bra control_ret
  1073. do_sound:
  1074.            nop     
  1075.            nop 
  1076. check_pbend:
  1077.           addq #1,a1
  1078.           MOVE.W (A1)+,26(A0) 
  1079.           move.w (a1)+,42(a0) 
  1080.           move.w (a1)+,48(a0) 
  1081.           bra control_ret
  1082. modulation:
  1083.           addq #1,a1
  1084.           MOVE.W (A1)+,(A0)
  1085.           move.l (a1)+,34(a0) 
  1086.           MOVE.W (A1),44(A0) 
  1087.           move.w (a1)+,46(a0) 
  1088.           move.b #2,38(a0) 
  1089.           bra control_ret
  1090. set_octaves:
  1091.           addq #1,a1
  1092.           move.b #9,38(a0) 
  1093.           bra control_ret
  1094. do_modoff:      clr.b 38(a0)
  1095.           addq #1,a1
  1096.           bra control_ret
  1097. do_bend_off:     addq #1,a1
  1098.           clr.b 26(a0)
  1099.           bra control_ret
  1100. do_inline:
  1101.          addq.l  #1,a1
  1102.  
  1103. in_loop
  1104.          cmpi.b #255,(a1)
  1105.          beq fin_in
  1106.          cmpi.b #254,(a1)
  1107.          beq fin_in1
  1108.         move.b (a1)+,(a4)
  1109.         move.b (a1)+,2(a4)
  1110.         bra in_loop 
  1111. fin_in
  1112.         addq  #2,a1
  1113.         bra control_ret
  1114.     
  1115. fin_in1
  1116.         addq  #2,a1
  1117.         bra in_line_ret
  1118.  
  1119.  
  1120. hold_val:
  1121.         addq #1,a1
  1122.         move.w (a1)+,hold_val_p
  1123.         bra control_ret
  1124. do_hold_off:
  1125.         move.w #0,hold_val_p
  1126.         addq #1,a1
  1127.         bra control_ret
  1128. do_end_fx:
  1129.  
  1130.         move.b d2,(a4)
  1131.          move.b #0,2(a4) 
  1132.  
  1133.         cmpi.w #1,curr_chann    
  1134.         bne efx2
  1135.         bclr.b #0,fx_flag+1
  1136. clear_fx_1    move.l #20,d0
  1137. clear_loop1:    move.l #0,(a0)+    
  1138.         dbra d0,clear_loop1
  1139.         rts 
  1140. efx2:        cmpi.w #2,curr_chann    
  1141.         bne efx3
  1142.         bclr.b #1,fx_flag+1
  1143.         move.l #20,d0
  1144. clear_loop2:    move.l #0,(a0)+    
  1145.         dbra d0,clear_loop2
  1146.         rts
  1147. efx3:        bclr.b #2,fx_flag+1
  1148.         move.l #20,d0
  1149. clear_loop3:    move.l #0,(a0)+    
  1150.         dbra d0,clear_loop3
  1151.         rts
  1152.            even
  1153. vars1:
  1154.            dc.w 0  
  1155. intc1:      dc.w 0
  1156. pattr1:      dc.l 0
  1157.            dc.l 0
  1158. songr1:      dc.l 0
  1159. wsong1:      dc.l 0
  1160.            dc.l 0
  1161.            dc.b 0,0
  1162.            dc.b 0,0
  1163.            dc.w 0
  1164.            dc.l 0
  1165.            dc.l 0
  1166.            dc.b 0,0
  1167.            dc.w 0
  1168.            dc.w 0
  1169.            dc.w 0
  1170.            dc.w 0
  1171.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1172. vars2:
  1173.            dc.w 0
  1174. intc2:      dc.w 0
  1175. pattr2:      dc.l 0
  1176.            dc.l 0
  1177. songr2:      dc.l 0
  1178. wsong2:      dc.l 0
  1179.            dc.l 0
  1180.            dc.b 0,0
  1181.            dc.b 0,0
  1182.            dc.w 0
  1183.            dc.l 0
  1184.            dc.l 0
  1185.            dc.b 0,0
  1186.            dc.w 0
  1187.            dc.w 0
  1188.            dc.w 0
  1189.            dc.w 0
  1190.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1191. vars3:
  1192.            dc.w 0
  1193. intc3:       dc.w 0
  1194. pattr3:      dc.l 0
  1195.            dc.l 0
  1196. songr3:      dc.l 0
  1197. wsong3:      dc.l 0
  1198.            dc.l 0
  1199.            dc.b 0,0
  1200.            dc.b 0,0
  1201.            dc.w 0
  1202.            dc.l 0
  1203.            dc.l 0
  1204.            dc.b 0,0
  1205.            dc.w 0
  1206.            dc.w 0
  1207.            dc.w 0
  1208.            dc.w 0
  1209.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1210. fxvars1:
  1211.            dc.w 0  
  1212. fxintc1:      dc.w 0
  1213. fxpattr1:      dc.l 0
  1214.            dc.l 0
  1215. fxsongr1:      dc.l 0
  1216. fxwsong1:      dc.l 0
  1217.            dc.l 0
  1218.            dc.b 0,0
  1219.            dc.b 0,0
  1220.            dc.w 0
  1221.            dc.l 0
  1222.            dc.l 0
  1223.            dc.b 0,0
  1224.            dc.w 0
  1225.            dc.w 0
  1226.            dc.w 0
  1227.            dc.w 0
  1228.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1229. fxvars2:
  1230.            dc.w 0
  1231. fxintc2:      dc.w 0
  1232. fxpattr2:      dc.l 0
  1233.            dc.l 0
  1234. fxsongr2:      dc.l 0
  1235. fxwsong2:      dc.l 0
  1236.            dc.l 0
  1237.            dc.b 0,0
  1238.            dc.b 0,0
  1239.            dc.w 0
  1240.            dc.l 0
  1241.            dc.l 0
  1242.            dc.b 0,0
  1243.            dc.w 0
  1244.            dc.w 0
  1245.            dc.w 0
  1246.            dc.w 0
  1247.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1248. fxvars3:
  1249.            dc.w 0
  1250. fxintc3:       dc.w 0
  1251. fxpattr3:      dc.l 0
  1252.            dc.l 0
  1253. fxsongr3:      dc.l 0
  1254. fxwsong3:      dc.l 0
  1255.            dc.l 0
  1256.            dc.b 0,0
  1257.            dc.b 0,0
  1258.            dc.w 0
  1259.            dc.l 0
  1260.            dc.l 0
  1261.            dc.b 0,0
  1262.            dc.w 0
  1263.            dc.w 0
  1264.            dc.w 0
  1265.            dc.w 0
  1266.            dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1267.  
  1268. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1269.  
  1270.  
  1271. HERExx
  1272.  
  1273.  
  1274.  
  1275.  
  1276. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1277.  
  1278.     EVEN
  1279. chfx_table:
  1280.  
  1281.     dc.l alarm1
  1282.     dc.l alarm2
  1283.     dc.l alarm3
  1284.     dc.l click_fx
  1285.     dc.l exp1    
  1286.     dc.l exp2
  1287.     dc.l missile4    
  1288.     dc.l missile5    
  1289.     dc.l fx7    
  1290.     dc.l turbo1    
  1291.     dc.l turbo2    
  1292.     dc.l turbo3    
  1293.     dc.l pop_gun1
  1294.     dc.l pop_gun2
  1295.     dc.l enemy_fire
  1296.     dc.l wheel_skid
  1297.     dc.l panel_slide
  1298.     dc.l wave
  1299.  
  1300.  
  1301. ;**********************************************
  1302.     even
  1303. alarm1:
  1304.                            dc.b      m,new_env,trigg,0
  1305.                            dc.l      fx5_env
  1306.             dc.w    A06,3,A06,3,A06,3,A06,3
  1307.             dc.w    A06,4
  1308.             DC.B    M,inline,6,200,255,0
  1309.                            dc.B    m,endfx_patt
  1310.  
  1311. fx5_env:    dc.b 15,t1,12,t1,7,t1,0,t1,255,0
  1312. ;***********************************************
  1313.     even
  1314. alarm2:    
  1315.                            dc.b      m,new_env,trigg,0
  1316.                            dc.l      alarm2e
  1317.               dc.b     m,modon,3,3
  1318.               dc.w     20,24,1
  1319.               dc.b     m,pbend,up,20
  1320.               dc.w     B05,0
  1321.             dc.w    g04,cr*2
  1322.             DC.B    M,inline,6,200,255,0
  1323.             dc.b    m,endfx_patt
  1324.  
  1325. alarm2e    dc.b    15,t1,255,0
  1326.  
  1327. alarm3:    
  1328.                            dc.b      m,new_env,trigg,0
  1329.                            dc.l      alarm3e
  1330.             dc.b    m,octaves
  1331.             dc.w    g04,cr*2
  1332.             DC.B    M,inline,6,200,255,0
  1333.             dc.b    m,endfx_patt
  1334.  
  1335. alarm3e    dc.b    15,t1,255,0
  1336.  
  1337. ;**********************************************
  1338.     even
  1339. click_fx:        
  1340.  
  1341.                            dc.b      m,new_env,trigg,0
  1342.                            dc.l      fxb_env
  1343.             DC.B    M,inline,6,200,254,0
  1344.                        dc.w    g01,4
  1345.             DC.B    M,inline,6,200,255,0
  1346.                         dc.B    m,endfx_patt    
  1347.  
  1348. fxb_env        dc.b 15,b1,14,b1
  1349.         dc.b 9,b1,8,b1,0,b1,255,0
  1350. ;**************************************************
  1351.  
  1352.     even
  1353. exp1:
  1354.                            dc.b      m,new_env,trigg,0
  1355.                            dc.l      exp1_env
  1356.             dc.b    M,inline,6,31,254,0
  1357.             dc.w    0,10
  1358.             dc.b    m,inline,6,30,254,0
  1359.             DC.B    M,inline,6,30,254,0
  1360.             dc.b    m,inline,6,29,254,0
  1361.             dc.b    m,inline,6,28,254,0
  1362.             dc.b    m,inline,6,27,254,0
  1363.             dc.b    m,inline,6,26,254,0
  1364.             dc.b    m,inline,6,25,254,0
  1365.             dc.b    m,inline,6,24,254,0
  1366.             dc.b    m,inline,6,23,254,0
  1367.             dc.b    m,inline,6,22,254,0
  1368.             DC.w    0,3
  1369.               dc.b     m,modon,2,2
  1370.               dc.w     8,8,1
  1371.                            dc.b      m,new_env,trigg,0
  1372.                            dc.l      exp1_env
  1373.             DC.w    20,60
  1374.             dc.b    m,inline,6,200,254,0
  1375.             dc.b    m,endfx_patt
  1376.  
  1377. exp2:
  1378.                            dc.b      m,new_env,trigg,0
  1379.                            dc.l      exp2_env
  1380.             dc.b    M,inline,6,31,255,0
  1381.             dc.w    0,1
  1382.             dc.b    m,inline,6,30,254,0
  1383.             DC.B    M,inline,6,30,254,0
  1384.             dc.b    m,inline,6,23,254,0
  1385.             dc.b    m,inline,6,22,254,0
  1386.             DC.w    0,2
  1387.               dc.b     m,modon,2,2
  1388.               dc.w     8,8,1
  1389.                            dc.b      m,new_env,trigg,0
  1390.                            dc.l      exp2_env
  1391.             DC.w    20,27
  1392.             dc.b    m,inline,6,200,254,0
  1393.             dc.b    m,endfx_patt
  1394.  
  1395.     even
  1396. exp1_env:    dc.b 15,n1,15,n1,15,b1,15,n1,15,n1,15,n1,15,n1
  1397.         dc.b 15,n1,15,n1,15,b1,15,n1,15,n1,15,n1,15,n1,15,N1,15,N1
  1398.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  1399.         dc.b 12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1
  1400.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1
  1401.         dc.b 8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1
  1402.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1403.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1404.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1405.         DC.B 0,N1,255
  1406.  
  1407. exp2_env:    dc.b 15,n1,14,n1,13,b1,12,n1,11,n1,10,n1,7,n1
  1408.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1409.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1410.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1411.         DC.B 0,N1,255
  1412.  
  1413. ;***************************************************
  1414.     even
  1415. missile4:    
  1416.                            dc.b   m,new_env,trigg,0
  1417.                            dc.l   miss4_env
  1418.             dc.b   m,modon,1,1
  1419.             dc.w   5,5,1
  1420.                         dc.b   m,pbend,down,1
  1421.                         dc.w   C02,0
  1422.             dc.w   C05,cr*3
  1423.             DC.B    M,inline,6,200,255,0
  1424.                            dc.b   m,endfx_patt
  1425.  
  1426.  
  1427. miss4_env:    dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1428.         dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1429.         dc.b 14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1
  1430.         dc.b 12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1
  1431.         dc.b 10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1
  1432.         dc.b 8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1
  1433.         dc.b 6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1
  1434.         dc.b 4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1
  1435.         dc.b 2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1
  1436.         DC.B 0,b1,255
  1437.  
  1438. ;*********************************************
  1439.     even
  1440.  
  1441. missile5:    
  1442.                            dc.b   m,new_env,trigg,0
  1443.                            dc.l   miss5_env
  1444.             dc.b   m,modon,1,1
  1445.             dc.w   8,8,1
  1446.                         dc.b   m,pbend,down,50
  1447.                         dc.w   C03,0
  1448.             dc.w   C08,cr
  1449.             DC.B    M,inline,6,200,255,0
  1450.                            dc.b   m,endfx_patt
  1451.  
  1452.  
  1453. miss5_env:    dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1454.         dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1455.         dc.b 4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,n1
  1456.         dc.b 2,n1,2,n1,2,n1,2,n1
  1457.         DC.B 0,b1,255
  1458. ;************************************************
  1459.  
  1460.     even
  1461. fx7:    
  1462.                            dc.b      m,new_env,trigg,0
  1463.                            dc.l      fx7_env
  1464.             dc.b    M,inline,6,31,255,0
  1465.             dc.w    0,4
  1466.             dc.b    M,inline,6,0,255,0
  1467.             dc.w    0,4
  1468.             dc.w    0,4
  1469.             dc.b    M,inline,6,2,255,0
  1470.             dc.w    0,4
  1471.             dc.b    M,inline,6,4,255,0
  1472.             dc.w    0,4
  1473.             dc.b    M,inline,6,6,255,0
  1474.             dc.w    0,4
  1475.             dc.b    M,inline,6,8,255,0
  1476.             dc.w    0,4
  1477.             dc.b    M,inline,6,10,255,0
  1478.             dc.w    0,4
  1479.             dc.b    M,inline,6,12,255,0
  1480.             dc.w    0,4
  1481.             dc.b    M,inline,6,14,255,0
  1482.             dc.w    0,4
  1483.             dc.b    M,inline,6,16,255,0
  1484.             dc.w    0,4
  1485.             dc.b    M,inline,6,18,255,0
  1486.             dc.w    0,4
  1487.             dc.b    M,inline,6,20,255,0
  1488.             dc.w    0,4
  1489.             dc.b    M,inline,6,22,255,0
  1490.             dc.w    0,4
  1491.             dc.b    M,inline,6,24,255,0
  1492.             dc.w    0,4
  1493.             dc.b    M,inline,6,10,255,0
  1494.             dc.w    0,50
  1495.             DC.B    M,inline,6,200,255,0
  1496.             dc.b    m,endfx_patt
  1497.     even
  1498.  
  1499. fx7_env:    dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1500.         dc.b 15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1,15,b1
  1501.         dc.b 14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1,14,b1
  1502.         dc.b 12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1,12,b1
  1503.         dc.b 10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1,10,b1
  1504.         dc.b 8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1,8,b1
  1505.         dc.b 6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1,6,b1
  1506.         dc.b 4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1,4,b1
  1507.         dc.b 2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1,2,b1
  1508.         DC.B 0,b1,255
  1509.  
  1510. ;**************************************************
  1511.  
  1512.     even
  1513. turbo1:    
  1514.                            dc.b   m,new_env,trigg,0
  1515.                            dc.l   miss4_env
  1516.             dc.b   m,modon,1,1
  1517.             dc.w   5,5,1
  1518.                         dc.b   m,pbend,up,10
  1519.                         dc.w   C05,0
  1520.             dc.w   C03,cr*3
  1521.             DC.B    M,inline,6,200,255,0
  1522.                            dc.b   m,endfx_patt
  1523.  
  1524. turbo2:    
  1525.                            dc.b   m,new_env,trigg,0
  1526.                            dc.l   miss4_env
  1527.             dc.b   m,modon,1,1
  1528.             dc.w   5,5,1
  1529.                         dc.b   m,pbend,up,40
  1530.                         dc.w   C07,0
  1531.             dc.w   C03,cr*3
  1532.             DC.B    M,inline,6,200,255,0
  1533.                           dc.b   m,endfx_patt
  1534.  
  1535. turbo3:    
  1536.                            dc.b   m,new_env,trigg,0
  1537.                            dc.l   miss4_env
  1538.             dc.b   m,modon,1,1
  1539.             dc.w   5,5,1
  1540.                         dc.b   m,pbend,up,20
  1541.                         dc.w   C08,0
  1542.             dc.w   C03,cr*4
  1543.             DC.B    M,inline,6,200,255,0
  1544.                            dc.b   m,endfx_patt
  1545.  
  1546. ;************************************************
  1547.  
  1548. pop_gun1
  1549.                            dc.b      m,new_env,trigg,0
  1550.                            dc.l      pgun_env
  1551.             DC.B    M,inline,6,200,255,0
  1552.                         dc.b   m,pbend,down,20
  1553.                         dc.w   g01,0
  1554.                        dc.w    g06,10
  1555.             DC.B    M,inline,6,200,255,0
  1556.                            dc.B    m,endfx_patt    
  1557.  
  1558.  
  1559. pop_gun2
  1560.             DC.B    M,inline,6,12,255,0
  1561.                            dc.b      m,new_env,trigg,0
  1562.                            dc.l      pgun_env
  1563.                         dc.b   m,pbend,down,20
  1564.                         dc.w   g01,0
  1565.                        dc.w    g08,10
  1566.             DC.B    M,inline,6,200,255,0
  1567.                            dc.B    m,endfx_patt    
  1568.  
  1569.  
  1570. enemy_fire
  1571.                            dc.b      m,new_env,trigg,0
  1572.                            dc.l      pgun_env
  1573.             DC.B    M,inline,6,50,255,0
  1574.                         dc.b   m,pbend,down,100
  1575.                         dc.w   g01,0
  1576.                        dc.w    g08,10
  1577.             DC.B    M,inline,6,200,255,0
  1578.                            dc.B    m,endfx_patt    
  1579.  
  1580.  
  1581.  
  1582. pgun_env    dc.b 15,b1,15,b1,3,b1,15,b1,12,b1,11,b1,9,b1
  1583.         dc.b 9,b1,8,b1,7,b1,3,b1,2,b1,1,b1,0,b1,255
  1584.  
  1585.  
  1586. ;******************************************************
  1587.     even
  1588. wheel_skid
  1589.                            dc.b      m,new_env,trigg,0
  1590.                            dc.l      skid_env
  1591.             DC.B    M,inline,6,3,255,0
  1592.             dc.b   m,modon,3,3
  1593.             dc.w   4,4,1
  1594.                         dc.b   m,pbend,up,100
  1595.                         dc.w   b05,0
  1596.             dc.w   g04,cr
  1597.                            dc.B    m,endfx_patt    
  1598.  
  1599.  
  1600. skid_env    dc.b 15,b1,255,0
  1601.  
  1602. ;****************************************
  1603.     even
  1604. panel_slide
  1605.                            dc.b      m,new_env,trigg,0
  1606.                            dc.l      onoff_env
  1607.             DC.B    M,inline,6,200,255,0
  1608.             dc.w    g02,cr
  1609.                            dc.B    m,endfx_patt    
  1610.  
  1611.  
  1612. onoff_env    
  1613.     dc.b 15,b1,0,b1,15,b1,0,b1,15,b1,0,b1,15,b1,0,b1
  1614.     dc.b 15,b1,0,b1,15,b1,0,b1,15,b1,0,b1,15,b1,0,b1
  1615.     dc.b 15,b1,0,b1,15,b1,0,b1,15,b1,0,b1,15,b1,0,b1
  1616.     dc.b 15,b1,0,b1,15,b1,0,b1,15,b1,0,b1,15,b1,0,b1
  1617.     dc.b 15,b1,0,b1,15,b1,0,b1,15,b1,0,b1,15,b1,0,b1
  1618.     dc.b 255,0
  1619.  
  1620.     even
  1621.  
  1622.  
  1623. wave
  1624.             DC.B    M,inline,6,12,255,0
  1625.                            dc.b      m,new_env,trigg,0
  1626.                            dc.l      wave_env
  1627.                        dc.w    0,cr*8
  1628.  
  1629.                            dc.b      m,new_env,trigg,0
  1630.                            dc.l      wave_env
  1631.                        dc.w    0,cr*7
  1632.  
  1633.                            dc.b      m,new_env,trigg,0
  1634.                            dc.l      wave_env
  1635.                        dc.w    0,cr*6
  1636.  
  1637.                            dc.b      m,new_env,trigg,0
  1638.                            dc.l      wave_env
  1639.                        dc.w    0,cr*8
  1640.  
  1641.                            dc.B    m,endfx_patt    
  1642.  
  1643.  
  1644. wave_env:    dc.b 1,n1,2,n1,2,n1,2,n1,3,n1,3,n1,3,n1
  1645.         dc.b 4,n1,4,n1,4,n1,5,n1,5,n1,5,n1,5,n1,6,n1,6,n1
  1646.         dc.b 6,n1,7,n1,7,n1,7,n1,8,n1,8,n1,8,n1,9,n1,10,n1,10,n1
  1647.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,11,n1,11,n1,11,n1,11,n1,11,n1
  1648.         dc.b 11,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,13,n1,13,n1,13,n1
  1649.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,15,n1,15,n1,15,n1,15,n1
  1650.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,N1
  1651.         DC.B 15,n1
  1652.  
  1653.  
  1654.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1
  1655.         dc.b 15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1,15,n1
  1656.         dc.b 14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1,14,n1
  1657.         dc.b 12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1,12,n1
  1658.         dc.b 10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1,10,n1
  1659.         dc.b 8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1,8,n1
  1660.         dc.b 6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1,6,n1
  1661.         dc.b 4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1,4,n1
  1662.         dc.b 2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1,2,n1
  1663.         DC.B 0,n1,255
  1664.  
  1665.  
  1666. curr_fx            equ 1
  1667. max_chfx        dc.l 19
  1668.  
  1669.  
  1670.     even
  1671.  
  1672.  
  1673. *******************************************************
  1674. song_table:
  1675.     ;dc.l song1,song2,song3
  1676.     ;dc.l song4,song5,song6
  1677.     ;dc.l song7,song8,song9
  1678.  
  1679.     ;dc.l song10,song11,song12
  1680.     ;dc.l song13,song14,song15
  1681.     ;dc.l song16,song17,song18
  1682.     ;dc.l song19,song20,song21
  1683.     ;dc.l song22,song23,song24
  1684.     ;dc.l song25,song26,song27
  1685.     ;dc.l song28,song29,song30
  1686.     ;dc.l song31,song32,song33
  1687.  
  1688. ;*******************  anthems start here
  1689.  
  1690.  
  1691.       dc.l asong1,asong2,asong3
  1692.       dc.l asong4,asong5,asong6
  1693.       dc.l asong7,asong8,asong9
  1694.       dc.l asong10,asong11,asong12
  1695.       dc.l asong13,asong14,asong15
  1696.       dc.l asong16,asong17,asong18
  1697.       dc.l asong19,asong20,asong21
  1698.       dc.l asong22,asong23,asong24
  1699.       dc.l asong25,asong26,asong27
  1700.       dc.l asong28,asong29,asong30
  1701.       dc.l asong31,asong32,asong33
  1702.       dc.l asong34,asong35,asong36
  1703.       dc.l asong37,asong38,asong39
  1704.       dc.l asong40,asong41,asong42
  1705.       dc.l asong43,asong44,asong45
  1706.       dc.l asong46,asong47,asong48
  1707.       dc.l asong49,asong50,asong51
  1708.       dc.l asong52,asong53,asong54
  1709.       dc.l asong55,asong56,asong57
  1710.       dc.l asong58,asong59,asong60
  1711.       dc.l asong61,asong62,asong63
  1712.       dc.l asong64,asong65,asong66
  1713.       dc.l asong67,asong68,asong69
  1714.       dc.l asong70,asong71,asong72
  1715.         
  1716.  
  1717.  
  1718.  
  1719.  
  1720.  
  1721. **********************************************************
  1722. ;               JINGLES MUSIC DATA
  1723. **********************************************************
  1724. cr set 24
  1725. q set cr/2
  1726. sq set q/2
  1727.  
  1728. song1:
  1729.     dc.l    p10
  1730.     dc.l end_song
  1731.  
  1732.  
  1733. song2    
  1734.     dc.l    p4z
  1735.     dc.l    p4z
  1736.     dc.l    p3end
  1737.     dc.l end_song
  1738.  
  1739.  
  1740.  
  1741. song3:    
  1742.     dc.l    p1,p1,p1mid
  1743.     dc.l    p1,p1,p1mid
  1744.     dc.l    p1end
  1745.     dc.l     end_song
  1746.  
  1747.  
  1748. ;pr:
  1749.       dc.w rest,cr*4
  1750.       dc.b m,end_patt
  1751.  
  1752.  
  1753. ;pr2:
  1754.       dc.w rest,cr*2
  1755.       dc.b m,end_patt
  1756.  
  1757. ;**************************************
  1758.  
  1759. p1:
  1760.       dc.b m,new_env,trigg,0
  1761.       dc.l mono_env
  1762.       dc.b m,modon,1,1
  1763.       dc.w 3,3,8
  1764.  
  1765.     dc.w e04,cr*2,g04,cr*2-q,e04,q,c04,cr,d04,cr,e04,cr
  1766.     dc.w c04,cr,d04,cr,e04,cr,f04,cr*2-q,e04,q,d04,cr
  1767.     dc.w e04,cr,f04,cr*2
  1768.       dc.b m,end_patt
  1769.  
  1770. p1mid:
  1771.       dc.b m,new_env,trigg,0
  1772.       dc.l mono_env
  1773.  
  1774.     dc.w a04,cr*2,f04,cr*2,b04,cr*2,g04,cr*2
  1775.     dc.w a04,cr*2,f04,cr*2,b04,cr*2,g04,cr*2
  1776.       dc.b m,end_patt
  1777.  
  1778. p1end
  1779.       dc.b m,new_env,trigg,0
  1780.       dc.l mono_env
  1781.     dc.w c04,cr*8,rest,cr*100
  1782.       dc.b m,end_patt
  1783.  
  1784.  
  1785.  
  1786.  
  1787.  
  1788. p4z: 
  1789.       dc.b m,new_env,trigg,0
  1790.       dc.l mono_env2
  1791.       dc.b m,modon,1,1
  1792.       dc.w 3,3,8
  1793.     dc.w  c03,cr,c03,cr,b02,cr,b02,cr,a02,cr,a02,cr,g02,cr,g02,cr
  1794.     dc.w  g02,cr*4,b02,cr,a02,cr,g02,cr*2
  1795.     dc.w  c03,cr,c03,cr,b02,cr,b02,cr,a02,cr,a02,cr,g02,cr,g02,cr
  1796.     dc.w  g02,cr*4,b02,cr,a02,cr,g02,cr*2
  1797.     dc.w f02,cr*4,g02,cr*4,f02,cr*4
  1798.       dc.b m,new_env,trigg,0
  1799.       dc.l bass_env
  1800.  
  1801.     dc.w g02,q,g02,q,g02,q,g02,q,g02,q,rest,q*3
  1802.       dc.b m,end_patt
  1803.  
  1804. p3end    dc.w g02,cr*8,rest,cr*100
  1805.       dc.b m,end_patt
  1806.  
  1807.  
  1808.  
  1809. ;***************************************
  1810.  
  1811. p10:     
  1812.       dc.b m,inline,6,200,255,0
  1813.       dc.b m,new_env,trigg,0
  1814.       dc.l bassde
  1815.       dc.b m,pbend,down,200
  1816.       dc.w c01,0
  1817.       dc.w e04,cr
  1818.  
  1819.       ;dc.b m,new_env,trigg,0
  1820.       ;dc.l hate
  1821.       ;dc.w g06,sQ,g06,sq
  1822.  
  1823.       dc.b m,new_env,trigg,0
  1824.       dc.l qclape
  1825.       dc.b m,pbend,down,69
  1826.       dc.w c01,0
  1827.       dc.w c04,cr
  1828.  
  1829.       ;dc.b m,new_env,trigg,0
  1830.       ;dc.l hate
  1831.       ;dc.w g06,sQ,g06,sq
  1832.  
  1833.       dc.b m,new_env,trigg,0
  1834.       dc.l bassde
  1835.       dc.b m,pbend,down,200
  1836.       dc.w c01,0
  1837.       dc.w e04,q
  1838.  
  1839.       dc.b m,new_env,trigg,0
  1840.       dc.l hate
  1841.       dc.w g06,sQ,g06,sq
  1842.  
  1843.       dc.b m,new_env,trigg,0
  1844.       dc.l qclape
  1845.       dc.b m,pbend,down,69
  1846.       dc.w c01,0
  1847.       dc.w c05,q
  1848.  
  1849.       dc.b m,new_env,trigg,0
  1850.       dc.l hate
  1851.       dc.w g06,sQ,g06,sq
  1852.  
  1853.       dc.b m,end_patt
  1854.  
  1855.  
  1856.  
  1857. ;***************************************
  1858. cr set 24
  1859. q set cr/2
  1860. sq set q/2
  1861.  
  1862. song4:
  1863.   dc.l pr
  1864.   dc.l end_song
  1865.  
  1866.  
  1867. song5:
  1868.   dc.l pj2
  1869.   dc.l end_song
  1870.  
  1871. song6:
  1872.      dc.l pj2x
  1873.  
  1874.   dc.l end_song
  1875.  
  1876.  
  1877.     
  1878.  
  1879. ;*************************************************
  1880.  
  1881. pj2:
  1882.   dc.b m,new_env,trigg,0
  1883.   dc.l bass_env
  1884.   dc.w e02,cr*2,e02,cr,c02,cr*2,c02,cr,e02,cr,g02,cr,e03,cr,c03,cr*3  
  1885.   dc.w rest,cr*1000
  1886.   dc.b m,end_patt
  1887.  
  1888.  
  1889. pj2x:
  1890.   dc.b m,new_env,trigg,0
  1891.   dc.l marx_env
  1892.   dc.w e03,cr*2,e03,cr,c03,cr*2,c03,cr,e03,cr,g03,cr,e04,cr,c04,cr*3  
  1893.   dc.w rest,cr*1000
  1894.   dc.b m,end_patt
  1895.  
  1896.  
  1897.  even
  1898.  
  1899. **************************************************************
  1900. cr set 24
  1901. q set cr/2
  1902. sq set q/2
  1903.  
  1904.  
  1905. song7:        
  1906.     dc.l    pr
  1907.       dc.l     end_song
  1908.  
  1909. song8:        ;bass
  1910.     dc.l    p3jv
  1911.         DC.L     end_song
  1912.  
  1913. song9:        ;tune
  1914.         
  1915.     dc.l   p3jx
  1916.     dc.l     end_song
  1917.  
  1918.  
  1919. p3jv
  1920.         dc.b m,new_env,trigg,0
  1921.         dc.l bass_env
  1922.     dc.w d02,8,g02,8,b02,8
  1923.     dc.w d02,8,g02,8,b02,8
  1924.     dc.w d02,8,g02,16,b02,cr
  1925.     dc.w rest,cr*1000
  1926.     dc.b m,end_patt
  1927.  
  1928.  
  1929. p3jx
  1930.         dc.b m,new_env,trigg,0
  1931.         dc.l mono_env
  1932.     dc.w d03,8,g03,8,b03,8
  1933.     dc.w d03,8,g03,8,b03,8
  1934.     dc.w d03,8,g03,16,b03,cr
  1935.     dc.w rest,cr*1000
  1936.     dc.b m,end_patt
  1937. ********************************************
  1938. cr set 24
  1939. q set cr/2
  1940. sq set q/2
  1941.  
  1942.  
  1943. song10:        
  1944.     dc.l    pr
  1945.       dc.l     end_song
  1946.  
  1947. song11:        ;bass
  1948.     dc.l    p4j
  1949.         DC.L     end_song
  1950.  
  1951. song12:        ;tune
  1952.         
  1953.     dc.l   p4jx
  1954.     dc.l     end_song
  1955.  
  1956.  
  1957. p4j
  1958.         dc.b m,new_env,trigg,0
  1959.         dc.l bass_env
  1960.  
  1961.     dc.w c03,8,b02,16,b02,8,a02,16,a02,8,g02,16
  1962.     dc.w rest,cr*100
  1963.  
  1964.     dc.b m,end_patt
  1965.  
  1966.  
  1967. p4jx
  1968.         dc.b m,new_env,trigg,0
  1969.         dc.l marx_env
  1970.  
  1971.     dc.w c04,8,b03,16,b03,8,a03,16,a03,8,g03,16
  1972.     dc.w rest,cr*100
  1973.  
  1974.     dc.b m,end_patt
  1975. ********************************************
  1976.  
  1977. cr set 16
  1978. q  set cr/2
  1979. sq set q/2
  1980.  
  1981. song13:        
  1982.     dc.l    p5jd
  1983.       dc.l     end_song
  1984.  
  1985. song14:        ;bass
  1986.     dc.l    p5j
  1987.         DC.L     end_song
  1988.  
  1989. song15:        ;tune
  1990.         
  1991.     dc.l   p5jx
  1992.     dc.l     end_song
  1993.  
  1994.  
  1995. p5j
  1996.         dc.b m,new_env,trigg,0
  1997.         dc.l bass_env
  1998.  
  1999.     dc.w c03,cr*2,g02,cr*2
  2000.     dc.w c03,cr*2,g02,cr*2
  2001.     dc.w c03,cr*2,g02,cr*2
  2002.     dc.w c03,cr*2,g02,cr*2
  2003.  
  2004.     dc.b m,end_patt
  2005.  
  2006.  
  2007. p5jx
  2008.         dc.b m,new_env,trigg,0
  2009.         dc.l blip_env
  2010.  
  2011.     dc.w c04,q,g04,q,e04,q,c05,q
  2012.     dc.w c05,sq,b04,sq,a04,sq,g04,sq,e04,q,g04,q
  2013.     dc.w c05,sq,b04,sq,a04,sq,g04,sq,e04,q,g04,q
  2014.     dc.w e04,q,g04,q,c04,cr    
  2015.  
  2016.     dc.b m,end_patt
  2017.  
  2018. p5jd
  2019.       dc.b m,inline,6,200,255,0
  2020.       dc.b m,new_env,trigg,0
  2021.       dc.l bassde
  2022.       dc.b m,pbend,down,200
  2023.       dc.w c01,0
  2024.       dc.w e04,q,e04,q,e04,q,rest,q*5
  2025.     dc.b m,end_patt
  2026.  
  2027.  
  2028. ********************************************
  2029.  
  2030. cr set 20
  2031. q  set cr/2
  2032. sq set q/2
  2033.  
  2034. song16:        
  2035.     dc.l    pr
  2036.       dc.l     end_song
  2037.  
  2038. song17:        ;bass
  2039.     dc.l    p6j
  2040.         DC.L     end_song
  2041.  
  2042. song18:        ;tune
  2043.         
  2044.     dc.l   p6jx
  2045.     dc.l     end_song
  2046.  
  2047.  
  2048. p6j
  2049.         dc.b m,new_env,trigg,0
  2050.         dc.l mono_env2
  2051.       dc.b m,modon,1,1
  2052.       dc.w 3,3,8
  2053.  
  2054.     dc.w c03,cr,g02,q,g02,q,gb02,cr,g02,cr
  2055.     dc.w c03,cr,g02,q,g02,q,gb02,cr,g02,cr
  2056.     dc.w c03,cr,g02,cr,c03,cr,e03,cr,g03,cr*4      
  2057.  
  2058.     dc.w g04,cr*2,f04,cr,e04,cr,d04,cr*2
  2059.     dc.w e04,cr,d04,cr,c04,cr*2,d04,cr,e04,cr
  2060.     dc.w g03,q*3,a03,q,g03,cr*2
  2061.  
  2062.     dc.w g04,cr*2,f04,cr,e04,cr,a04,cr*2,g04,cr
  2063.     dc.w e04,cr,f04,cr,g04,q,f04,q,e04,cr,f04,cr,d04,cr*4
  2064.  
  2065.     dc.w d04,cr,d04,q,d04,q,c04,cr,d04,cr,e04,cr,f04,cr,g04,cr*2
  2066.     dc.w d04,cr,e04,cr,f04,cr*2,e04,cr,d04,cr,c04,cr*2
  2067.     dc.w d04,cr,d04,q,d04,q,c04,cr,d04,cr,e04,cr,f04,cr,g04,cr*2
  2068.     dc.w gb04,cr,g04,cr,a04,cr,gb04,cr,g04,cr*4    
  2069.     dc.w  rest,cr*20
  2070.     dc.b m,end_patt
  2071.  
  2072.  
  2073. p6jx
  2074.         dc.b m,new_env,trigg,0
  2075.         dc.l mono_env
  2076.       dc.b m,modon,1,1
  2077.       dc.w 3,3,8
  2078.  
  2079.     dc.w c03,cr,g02,q,g02,q,gb02,cr,g02,cr
  2080.     dc.w c03,cr,g02,q,g02,q,gb02,cr,g02,cr
  2081.     dc.w c03,cr,g02,cr,c03,cr,e03,cr,g03,cr*4      
  2082.  
  2083.     dc.w g02,cr*2,f02,cr,e02,cr,d02,cr*2
  2084.     dc.w e02,cr,d02,cr,c02,cr*2,d02,cr,e02,cr
  2085.     dc.w g03,q*3,a03,q,g03,cr*2
  2086.  
  2087.     dc.w g02,cr*2,f02,cr,e02,cr,a02,cr*2,g02,cr
  2088.     dc.w e02,cr,f02,cr,g02,q,f02,q,e02,cr,f02,cr,d02,cr*4
  2089.  
  2090.     dc.w d02,cr,d02,q,d02,q,c02,cr,d02,cr,e02,cr,f02,cr,g02,cr*2
  2091.     dc.w d02,cr,e02,cr,f02,cr*2,e02,cr,d02,cr,c02,cr*2
  2092.     dc.w d02,cr,d02,q,d02,q,c02,cr,d02,cr,e02,cr,f02,cr,g02,cr*2
  2093.     dc.w gb02,cr,g02,cr,a02,cr,gb02,cr,g02,cr*4    
  2094.     dc.w  rest,cr*20
  2095.     dc.b m,end_patt
  2096.  
  2097. *************************************
  2098.  
  2099. cr set 24
  2100. q  set cr/2
  2101. sq set q/2
  2102.  
  2103. song19:        
  2104.     dc.l    pr,pr,pr,pr,pr,pr,pr,pr
  2105.     dc.l    p7jd,p7jd,p7jd,p7jd,p7jd,p7jd,p7jd,p7jd
  2106.  
  2107.       dc.l     end_song
  2108.  
  2109. song20:        ;bass
  2110.     dc.l    p7j
  2111.         DC.L     end_song
  2112.  
  2113. song21:        ;tune
  2114.         
  2115.     dc.l   p7jx
  2116.     dc.l     end_song
  2117.  
  2118. pr7
  2119.     dc.w rest,cr*4
  2120.     dc.b m,end_patt
  2121.  
  2122. p7j
  2123.         dc.b m,new_env,trigg,0
  2124.         dc.l mono_env2
  2125.       dc.b m,modon,1,1
  2126.       dc.w 3,3,8
  2127.     dc.w c04,cr*2,d04,q,c04,q,d04,q,e04,q
  2128.     dc.w c04,cr,g03,cr,g03,cr,g03,cr
  2129.     dc.w d04,cr*2,e04,q,d04,q,e04,q,f04,q
  2130.     dc.w d04,cr,g03,cr,g03,cr,g03,cr
  2131.     dc.w g04,cr*2,c04,q,d04,q,e04,q,f04,q
  2132.     dc.w a04,cr*2,f04,q,e04,q,d04,q,c04,q
  2133.     dc.w b03,cr,b03,cr,b03,cr,b03,cr,b03,cr,c04,cr*3 
  2134.     dc.b m,end_patt
  2135.  
  2136.  
  2137. p7jx
  2138.         dc.b m,new_env,trigg,0
  2139.         dc.l mono_env
  2140.       dc.b m,modon,1,1
  2141.       dc.w 3,3,8
  2142.  
  2143.     dc.w c03,cr*4
  2144.     dc.w g02,cr,a02,cr,b02,cr,d03,cr
  2145.     dc.w d03,cr*2,g02,cr*2
  2146.     dc.w g03,cr*2,a03,cr,b03,cr
  2147.     dc.w c03,cr*4
  2148.     dc.w f03,cr*4
  2149.     dc.w d03,cr*2,g02,cr*3
  2150.     dc.w c03,cr*3
  2151.     dc.b m,end_patt
  2152.  
  2153.  
  2154. p7jd:     
  2155.       dc.b m,inline,6,200,255,0
  2156.       dc.b m,new_env,trigg,0
  2157.       dc.l bassde
  2158.       dc.b m,pbend,down,200
  2159.       dc.w c01,0
  2160.       dc.w e04,cr
  2161.  
  2162.       ;dc.b m,new_env,trigg,0
  2163.       ;dc.l hate
  2164.       ;dc.w g06,sQ,g06,sq
  2165.  
  2166.       dc.b m,new_env,trigg,0
  2167.       dc.l qclape
  2168.       dc.w c04,cr
  2169.  
  2170.       ;dc.b m,new_env,trigg,0
  2171.       ;dc.l hate
  2172.       ;dc.w g06,sQ,g06,sq
  2173.  
  2174.       dc.b m,new_env,trigg,0
  2175.       dc.l bassde
  2176.       dc.b m,pbend,down,200
  2177.       dc.w c01,0
  2178.       dc.w e04,q,e04,q
  2179.  
  2180.       ;dc.b m,new_env,trigg,0
  2181.       ;dc.l hate
  2182.       ;dc.w g06,sQ,g06,sq
  2183.  
  2184.       dc.b m,new_env,trigg,0
  2185.       dc.l qclape
  2186.       dc.b m,pbend,down,69
  2187.       dc.w c01,0
  2188.       dc.w c05,cr
  2189.  
  2190.       ;dc.b m,new_env,trigg,0
  2191.       ;dc.l hate
  2192.       ;dc.w g06,sQ,g06,sq
  2193.  
  2194.       dc.b m,end_patt
  2195.  
  2196. ***************************
  2197.  
  2198. cr set 16
  2199. q  set cr/2
  2200. sq set q/2
  2201.  
  2202. song22:        
  2203.     dc.l    pr
  2204.       dc.l     end_song
  2205.  
  2206. song23:        ;bass
  2207.     dc.l    p8j
  2208.         DC.L     end_song
  2209.  
  2210. song24:        ;tune
  2211.         
  2212.     dc.l   p8jx
  2213.     dc.l     end_song
  2214.  
  2215.  
  2216. p8j
  2217.         dc.b m,new_env,trigg,0
  2218.         dc.l bass_env
  2219.     dc.w e03,cr,e03,cr,e03,cr,e03,cr,e03,cr*4
  2220.     dc.w rest,cr*20
  2221.  
  2222.  
  2223.     dc.b m,end_patt
  2224.  
  2225.  
  2226. p8jx
  2227.         dc.b m,new_env,trigg,0
  2228.         dc.l blip_env
  2229.  
  2230.     dc.w a03,cr,a03,cr,a03,cr,a03,cr,a03,cr*4
  2231.     dc.w  rest,cr*20
  2232.  
  2233.     dc.b m,end_patt
  2234.  
  2235. *********************************************
  2236.  
  2237.  
  2238.  
  2239. cr set 16
  2240. q  set cr/2
  2241. sq set q/2
  2242.  
  2243. song25:        
  2244.     dc.l    p9jd1,p9jd2,p9jd2,p9jd2,p9jd2,p9jd2,p9jd2
  2245.       dc.l     end_song
  2246.  
  2247. song26:        ;bass
  2248.     dc.l    p9j
  2249.         DC.L     end_song
  2250.  
  2251. song27:        ;tune
  2252.         
  2253.     dc.l   p9jx
  2254.     dc.l     end_song
  2255.  
  2256.  
  2257. p9j
  2258.         dc.b m,new_env,trigg,0
  2259.         dc.l bass_env
  2260.     
  2261.     dc.w    g02,cr*2,g02,cr*2,g02,cr,a02,cr
  2262.     dc.w    bb02,cr,b02,cr
  2263.  
  2264.     dc.w    c03,cr,g02,cr,c03,cr,g02,cr,c03,cr,g02,cr,c03,cr,g02,cr    
  2265.     dc.w    f03,cr,c03,cr,f03,cr,c03,cr,f03,cr,c03,cr,f03,cr,c03,cr
  2266.     dc.w    g03,cr,d03,cr
  2267.     dc.w    g03,cr,d03,cr
  2268.     dc.w    g03,cr,d03,cr
  2269.     dc.w    g03,cr,d03,cr
  2270.  
  2271.     dc.b m,end_patt
  2272.  
  2273.  
  2274. p9jx
  2275.         dc.b m,new_env,trigg,0
  2276.         dc.l piano_envsq
  2277.     dc.b  m,pboff
  2278.     dc.w  g05,sq,gb05,sq,f05,sq,e05,sq,eb05,sq,d05,sq,db05,sq,c05,sq
  2279.     dc.w  b04,sq,bb04,sq,a04,sq,ab04,sq
  2280.     dc.w  g04,sq,gb04,sq,f04,sq,e04,sq,eb04,sq,d04,sq,db04,sq,c04,sq
  2281.     dc.w  b03,sq,bb03,sq,a03,sq,ab03,sq
  2282.     dc.w  g03,sq,gb03,sq,f03,sq,e03,sq,eb03,sq,d03,sq,db03,sq,c03,sq
  2283.  
  2284.     dc.w  c05,sq,db05,sq,d05,sq,eb05,sq,d05,sq,db05,sq,c05,sq,db05,sq
  2285.     dc.w  c05,sq,db05,sq,d05,sq,eb05,sq,d05,sq,db05,sq,c05,sq,db05,sq
  2286.     dc.w  c05,sq,db05,sq,d05,sq,eb05,sq,d05,sq,db05,sq,c05,sq,db05,sq
  2287.     dc.w  c05,sq,db05,sq,d05,sq,eb05,sq,f05,sq,gb05,sq,g05,sq,ab05,sq
  2288.  
  2289.     dc.w  f05,sq,gb05,sq,g05,sq,ab05,sq,g05,sq,gb05,sq,f05,sq,gb05,sq
  2290.     dc.w  f05,sq,gb05,sq,g05,sq,ab05,sq,g05,sq,gb05,sq,f05,sq,gb05,sq
  2291.     dc.w  f05,sq,gb05,sq,g05,sq,ab05,sq,g05,sq,gb05,sq,f05,sq,gb05,sq
  2292.     dc.w  f05,sq,gb05,sq,g05,sq,ab05,sq,g05,sq,gb05,sq,f05,sq,gb05,sq
  2293.  
  2294.     dc.w  g05,sq,gb05,sq,f05,sq,e05,sq,eb05,sq,d05,sq,db05,sq,c05,sq
  2295.     dc.w  g05,sq,gb05,sq,f05,sq,e05,sq,eb05,sq,d05,sq,db05,sq,c05,sq
  2296.     dc.w  g05,sq,gb05,sq,f05,sq,e05,sq,eb05,sq,d05,sq,db05,sq,c05,sq
  2297.     dc.w  g05,sq,gb05,sq,f05,sq,e05,sq,eb05,sq,d05,sq,db05,sq,c05,sq
  2298.  
  2299.  
  2300.  
  2301.     dc.b m,end_patt
  2302.  
  2303.  
  2304. p9jd1:     
  2305.       dc.b m,inline,6,200,255,0
  2306.       dc.b m,new_env,trigg,0
  2307.       dc.l bassde
  2308.       dc.b m,pbend,down,200
  2309.       dc.w c01,0
  2310.       dc.w e04,cr*2,e04,cr*2
  2311.  
  2312.       dc.b m,pbend,down,200
  2313.       dc.w c01,0
  2314.       dc.w e04,cr
  2315.  
  2316.       dc.b m,pbend,down,200
  2317.       dc.w c01,0
  2318.       dc.w e04,cr
  2319.       dc.b m,pbend,down,200
  2320.       dc.w c01,0
  2321.       dc.w e04,cr
  2322.       dc.b m,pbend,down,200
  2323.       dc.w c01,0
  2324.       dc.w e04,cr
  2325.  
  2326.  
  2327.     dc.b m,end_patt
  2328.  
  2329.  
  2330. p9jd2:     
  2331.       dc.b m,inline,6,200,255,0
  2332.       dc.b m,new_env,trigg,0
  2333.       dc.l bassde
  2334.       dc.b m,pbend,down,200
  2335.       dc.w c01,0
  2336.       dc.w e04,q
  2337.  
  2338.       dc.b m,new_env,trigg,0
  2339.       dc.l hate
  2340.       dc.w g06,sQ,g06,sq
  2341.  
  2342.       dc.b m,new_env,trigg,0
  2343.       dc.l qclape
  2344.       dc.w c04,q
  2345.  
  2346.       dc.b m,new_env,trigg,0
  2347.       dc.l hate
  2348.       dc.w g06,sQ,g06,sq
  2349.  
  2350.       dc.b m,new_env,trigg,0
  2351.       dc.l bassde
  2352.       dc.b m,pbend,down,200
  2353.       dc.w c01,0
  2354.       dc.w e04,q
  2355.  
  2356.       dc.b m,new_env,trigg,0
  2357.       dc.l hate
  2358.       dc.w g06,sQ,g06,sq
  2359.  
  2360.       dc.b m,new_env,trigg,0
  2361.       dc.l qclape
  2362.       dc.b m,pbend,down,69
  2363.       dc.w c01,0
  2364.       dc.w c05,q
  2365.  
  2366.       dc.b m,new_env,trigg,0
  2367.       dc.l hate
  2368.       dc.w g06,sQ,g06,sq
  2369.  
  2370.       dc.b m,end_patt
  2371.  
  2372. ***********************************
  2373.  
  2374. cr set 8
  2375. q  set cr/2
  2376. sq set q/2
  2377.  
  2378. song28:        
  2379.     dc.l p10jk
  2380.       dc.l     end_song
  2381.  
  2382. song29:        ;bass
  2383.     dc.l    p10j,p10jl
  2384.         DC.L     end_song
  2385.  
  2386. song30:        ;tune
  2387.         
  2388.     dc.l   p10jx,p10jxx
  2389.     dc.l     end_song
  2390.  
  2391.  
  2392. p10j
  2393.         dc.b m,new_env,trigg,0
  2394.         dc.l bass_env
  2395.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  2396.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  2397.     dc.w f03,cr*2,c03,cr*2,f03,cr*2,c03,cr*2
  2398.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  2399.     dc.w g03,cr*2,d03,cr*2,g03,cr*2,d03,cr*2
  2400.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  2401.     
  2402.  
  2403.     dc.b m,end_patt
  2404.  
  2405.  
  2406. p10jl
  2407.         dc.b m,new_env,trigg,0
  2408.         dc.l mono_env2
  2409.       dc.b m,modon,1,1
  2410.       dc.w 6,6,8
  2411.  
  2412.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  2413.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  2414.     dc.w f03,cr*2,c03,cr*2,f03,cr*2,c03,cr*2
  2415.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  2416.     dc.w g03,cr*2,d03,cr*2,g03,cr*2,d03,cr*2
  2417.     dc.w c03,cr*2,g02,cr*2,c03,cr*2,g02,cr*2
  2418.     
  2419.  
  2420.     dc.b m,end_patt
  2421.  
  2422.  
  2423. p10jx
  2424.         dc.b m,new_env,trigg,0
  2425.         dc.l piano_env
  2426.     dc.b  m,pboff
  2427.     dc.w rest,cr,e05,q,c05,q,e05,cr,d05,q,c05,q,d05,q,c05,q,d05,cr,c05,cr*2
  2428.     dc.w rest,cr,e05,q,c05,q,e05,cr,d05,q,c05,q,d05,q,c05,q,d05,cr,c05,cr*2
  2429.     dc.w rest,cr,f05,q,d05,q,f05,cr,d05,q,c05,q,d05,q,c05,q,d05,cr,c05,cr*2
  2430.     dc.w rest,cr,e05,q,c05,q,e05,cr,d05,q,c05,q,d05,q,c05,q,d05,cr,c05,cr*2
  2431.     dc.w rest,cr,f05,q,e05,q,f05,cr,e05,q,d05,q,e05,q,d05,q,e05,cr,d05,cr*2
  2432.     dc.w rest,cr,e05,q,c05,q,e05,cr,d05,q,c05,q,d05,q,c05,q,d05,cr,c05,cr*2
  2433.     dc.b m,end_patt
  2434.  
  2435.  
  2436. p10jxx
  2437.         dc.b m,new_env,trigg,0
  2438.         dc.l blip_envl
  2439.     dc.b  m,pboff
  2440.     dc.w rest,cr,e06,q,c06,q,e06,cr,d06,q,c06,q,d06,q,c06,q,d06,cr,c06,cr*2
  2441.     dc.w rest,cr,e06,q,c06,q,e06,cr,d06,q,c06,q,d06,q,c06,q,d06,cr,c06,cr*2
  2442.     dc.w rest,cr,f06,q,d06,q,f06,cr,d06,q,c06,q,d06,q,c06,q,d06,cr,c06,cr*2
  2443.     dc.w rest,cr,e06,q,c06,q,e06,cr,d06,q,c06,q,d06,q,c06,q,d06,cr,c06,cr*2
  2444.     dc.w rest,cr,f06,q,e06,q,f06,cr,e06,q,d06,q,e06,q,d06,q,e06,cr,d06,cr*2
  2445.     dc.w rest,cr,e06,q,c06,q,e06,cr,d06,q,c06,q,d06,q,c06,q,d06,cr,c06,cr*2
  2446.     dc.b m,end_patt
  2447.  
  2448.  
  2449.  
  2450. p10jk:     
  2451.       dc.b m,inline,6,200,255,0
  2452.       dc.b m,new_env,trigg,0
  2453.       dc.l bassde
  2454.       dc.b m,pbend,down,200
  2455.       dc.w c01,0
  2456.       dc.w e04,cr,e04,cr,e04,cr,e04,cr
  2457.     dc.b m,end_patt
  2458.  
  2459. *****************************************
  2460.  
  2461. xxx
  2462. cr set 16
  2463. q  set cr/2
  2464. sq set q/2
  2465.  
  2466. song31:        
  2467.     dc.l p11jd,p11jd,p11ejd
  2468.       dc.l     end_song
  2469.  
  2470. song32:        ;bass
  2471.     dc.l    p11j,p11j,p11ej
  2472.         DC.L     end_song
  2473.  
  2474. song33:        ;tune
  2475.         
  2476.     dc.l   p11jx,p11jx,p11ejx
  2477.     dc.l     end_song
  2478.  
  2479.  
  2480. p11j
  2481.         dc.b m,new_env,trigg,0
  2482.         dc.l bass_env
  2483.     dc.w  g02,cr*3,g02,cr*3,g02,cr*3
  2484.     dc.w  g02,cr*3,a02,cr*3,a02,cr*3
  2485.     dc.w  a02,cr*3,a02,cr*3,a02,cr*3
  2486.     dc.w  a02,cr*3,a02,cr*6
  2487.     
  2488.  
  2489.     dc.b m,end_patt
  2490.  
  2491.  
  2492. p11ej
  2493.         dc.b m,new_env,trigg,0
  2494.         dc.l bass_env
  2495.     dc.w  db03,cr*9
  2496.     dc.w  d03,cr*9
  2497.     dc.w  db03,cr*9+cr*6
  2498.     dc.w  d03,cr*12
  2499.     
  2500.  
  2501.     dc.b m,end_patt
  2502.  
  2503.  
  2504.  
  2505.  
  2506.  
  2507. p11jx
  2508.         dc.b m,new_env,trigg,0
  2509.         dc.l piano_env
  2510.     dc.b  m,pboff
  2511.  
  2512.     dc.w b03,cr,g03,cr,b03,cr,d04,cr*3,b03,cr*3
  2513.     dc.w d04,cr,b03,cr,d04,cr,gb04,cr*3,d04,cr*3
  2514.     dc.w gb04,cr,d04,cr,gb04,cr,a04,cr*3,a03,cr*3
  2515.     dc.w d04,cr,a03,cr,d04,cr,gb04,cr*6
  2516.     dc.b m,end_patt
  2517.  
  2518.  
  2519. p11ejx
  2520.         dc.b m,new_env,trigg,0
  2521.         dc.l piano_env
  2522.     dc.b  m,pboff
  2523.     dc.w  gb03,cr,e03,cr,gb03,cr,a03,cr*6
  2524.     dc.w  gb03,cr,d03,cr,gb03,cr,a03,cr*6
  2525.     dc.w  gb03,cr,e03,cr,gb03,cr,a03,cr*3+cr*2,db04,cr*3+cr*4
  2526.     dc.w  d04,cr*12
  2527.  
  2528.     dc.b m,end_patt
  2529.  
  2530.  
  2531.  
  2532.  
  2533. p11jd
  2534.         dc.b m,new_env,trigg,0
  2535.         dc.l piano_env1
  2536.       dc.b m,modon,1,1
  2537.       dc.w 6,6,8
  2538.  
  2539.     dc.w  d03,cr*3,d03,cr*3,d03,cr*3
  2540.     dc.w  d03,cr*3,d03,cr*3,d03,cr*3
  2541.     dc.w  d03,cr*3,db03,cr*3,db03,cr*3
  2542.     dc.w  d03,cr*3,d02,cr*6
  2543.     
  2544.  
  2545.     dc.b m,end_patt
  2546.  
  2547.  
  2548. p11ejd
  2549.         dc.b m,new_env,trigg,0
  2550.         dc.l piano_env1
  2551.  
  2552.     dc.w  a02,cr*9
  2553.     dc.w  a02,cr*9
  2554.     dc.w  a02,cr*9+cr*6
  2555.     dc.w  d02,cr*12
  2556.     
  2557.  
  2558.     dc.b m,end_patt
  2559.  
  2560.  
  2561.  
  2562.     EVEN
  2563. ;****************************************************************
  2564. ;bassa_env2:    dc.b 15,t2,15,t2,0,t2,255
  2565. ;ash1:     dc.b 0,t1,255
  2566. ;abassde:     dc.b 15,b1,15,t1,15,t1,15,t1,7,t1
  2567.       dc.b 3,t1,0,t1,255
  2568. ;abass_env:    dc.b 15,t2,15,t2,15,t2,15,t2
  2569.       dc.b 15,t2,15,t2
  2570.       dc.b 0,t2,255
  2571. ;ablipa_env:    dc.b 15,t3,15,t3,13,t3,11,t3
  2572.       dc.b 15,t3,15,t3,13,t3,11,t3,0,t3,255
  2573. ;blip_env2:    dc.b 15,t2,15,t2,13,t2,11,t2
  2574.       dc.b 15,t2,15,t2,13,t2
  2575.       dc.b 11,t2,0,t2,255
  2576. ;piano_env2:    dc.b 15,t3,15,t3,15,t3,14,t3,3,t3,12,t3,11
  2577.       dc.b t3,10,t3,15,t3,14,t3,13,t3,12,t3,12,t3,11
  2578.       dc.b t3,10,t3,9,t3,8,t3,7,t3,7,t3,6,t3,5,t3,4
  2579.       dc.b t3,3,t3,2,t3,1,t3,0,t3,255
  2580. ;apaiano_env:    dc.b 15,t3,15,t3,15,t3,15,t3,14,t3
  2581.       dc.b 13,t3,13,t3,13,t3,13,t3,13,t3
  2582.       dc.b 13,t3,12,t3,12,t3,11,t3
  2583.       dc.b 11,t3,10,t3,9,t3,8,t3,7,t3,6,t3,255
  2584. ;apaiano_envt:    dc.b 15,t3,15,t3,14,t3,13,t3,13,t3
  2585.       dc.b 12,t3,8,t3,7,t3,6,t3,6,t3
  2586.       dc.b 8,t3,255
  2587. ;apaiano_drum:    dc.b 15,t1,15,t1,15,t1,15,t1,14,t1
  2588.       dc.b 13,t1,13,t1,13,t1,13,t1,13,t1
  2589.      dc.b 13,t1,12,t1,12,t1,11,t1
  2590.       dc.b 11,t1,10,t1,9,t1,8,t1,7,t1,6,t1
  2591.       dc.b 5,t1,4,t1,3,t1,2,t1,1,t1,0,t1,255
  2592. ;apaiano_env3:    dc.b 15,t2,15,t2,15,t2,15,t2,14,t2
  2593.      dc.b 13,t2,13,t2,13,t2,13,t2,13,t2
  2594.       dc.b 13,t2,12,t2,12,t2,11,t2
  2595.       dc.b 11,t2,10,t2,9,t2,8,t2,7,t2,6,t2
  2596.       dc.b 5,t2,4,t2,3,t2,2,t2,1,t2,0,t2,255
  2597. ;amono_enva:    dc.b 14,t3,255
  2598. ;long_susa:     dc.b 15,t3,14,t3,255
  2599. ;arotoe:     dc.b 15,t3,15,t3,15,t3,14,t3,13,t3
  2600.       dc.b 13,t3,12,t3,12,t3,11,t3,10,t3
  2601.       dc.b 8,t3,7,t3,6
  2602.       dc.b t3,5,t3,4,t3,3,t3,2,t3,1,t3,0,t3,255
  2603. ;fast_env:     dc.b 14,t3,1,t3,14,t3,1,t3,14,t3,1,t3
  2604.        dc.b 14,t3,0,t3,255
  2605. ;asharpa_env:    dc.b 15,t3,15,t3,9,t3,15,t3,15,t3,10,t3
  2606.       dc.b 8,t3,7,t3,6,t3,5,t3,2,t3,2,t3,0,t3,255
  2607. rota3:     dc.b 15,t3,15,t3,15,t3,14,t3,13,t3
  2608.       dc.b 13,t3,12,t3,12,t3,11,t3,10,t3
  2609.       dc.b 8,t3,7,t3,6,t3,5,t3,4,t3
  2610.       dc.b 4,t3,3,t3,2,t3,1,t3,0,t3,255
  2611. ;rota2:     dc.b 15,t2,15,t2,15,t2,14,t2,13,t2
  2612.       dc.b 13,t2,12,t2,12,t2,11,t2,10,t2
  2613.       dc.b 8,t2,7,t2,6,t2,5,t2,4,t2
  2614.       dc.b 4,t2,3,t2,2,t2,1,t2,0,t2,255
  2615. rota1:     dc.b 15,t1,15,t1,15,t1,14,t1,13,t1
  2616.       dc.b 13,t1,12,t1,12,t1,11,t1,10,t1
  2617.       dc.b 8,t1,7,t1,6,t1,5,t1,4,t1
  2618.       dc.b 4,t1,3,t1,2,t1,1,t1,0,t1,255
  2619.  
  2620. snaree:     dc.b 15,b1,15,t1,15,t1,15,b1,15,t1,15,b1
  2621.   dc.b 12,t1,12,b1,9,t1,7,b1,7,t1,7
  2622.   dc.b b1,6,t1,6,b1,6
  2623.   dc.b t1,5,t1,255
  2624. ;sh1: dc.b 0,t1,255
  2625. bassde: dc.b 15,b1,15,t1,15,t1,15,t1,7,t1
  2626.   dc.b 3,t1,0,t1,255
  2627. bass_env: dc.b 15,t2,15,t2,15,t2,15,t2
  2628.   dc.b 15,t2,14,t2,13,t2,11,t2,9,t2
  2629.   dc.b 7,t2,255
  2630. bass_env3: dc.b 15,t3,15,t3,15,t3,15,t3
  2631.   dc.b 15,t3,14,t3,13,t3,11,t3,9,t3
  2632.   dc.b 7,t3,255
  2633.  
  2634. bass_env_short: dc.b 15,t2,15,t2,15,t2,15,t2
  2635.   dc.b 14,t2
  2636.   dc.b 7,t2,255
  2637.  
  2638.  
  2639.  
  2640. ;bass_envs: dc.b 15,t2,15,t2,14,t2
  2641.   dc.b 4,t2,255
  2642.  
  2643.     even
  2644. ;bass_envj: dc.b 15,t2,15,t2,0,t2,0,t2
  2645.   dc.b 15,t2,15,t2
  2646.   dc.b 0,t2,255
  2647.     even
  2648. ;bass_env2: dc.b 15,t2,14,b2,15,t2,15,t2
  2649.     dc.b 15,t2,15,t2,15,t2,10,b2,15,t2
  2650.     dc.b 15,t2,15,t2,15,t2,14,t2,13,t2
  2651.     dc.b 0,t2,255
  2652. rest_env:    dc.b 0,0,255
  2653.     even
  2654. blip_env:    dc.b 15,t3,11,t3,3,t3,13,t3
  2655.   dc.b 13,t3,3,t3,3,t3
  2656.   dc.b 12,t3,10,t3,3,t3,8,t3,7,t3,6,t3,0,t3,255
  2657.  
  2658. blip_envl:    dc.b 15,t3,15,t3,3,t3,15,t3
  2659.   dc.b 15,t3,3,t3,9,t3
  2660.   dc.b 12,t3,10,t3,3,t3,9,t3,8,t3,8,t3,0,t3,255
  2661.  
  2662.     even
  2663. ;xpiano_env2:    dc.b 15,t3,15,t3,15,t3,14,t3,13,t3,12,t3,11
  2664.   dc.b t3,10,t3,15,t3,14,t3,13,t3,12,t3,12,t3,11
  2665.   dc.b t3,10,t3,9,t3,8,t3,7,t3,7,t3,6,t3,5,t3,4
  2666.   dc.b t3,3,t3,2,t3,1,t3,0,t3,255
  2667. piano_env:    dc.b 15,t3,15,t3,15,t3,15,t3,14,t3
  2668.   dc.b 13,t3,13,t3,13,t3,13,t3,13,t3
  2669.   dc.b 13,t3,12,t3,12,t3,11,t3
  2670.   dc.b 11,t3,10,t3,9,t3,8,t3,7,t3,6,t3
  2671.   dc.b 5,t3,4,t3,3,t3,2,t3,1,t3,0,t3,255
  2672.  
  2673. piano_env1:    dc.b 15,t1,15,t1,15,t1,15,t1,14,t1
  2674.   dc.b 13,t1,13,t1,13,t1,13,t1,13,t1
  2675.   dc.b 13,t1,12,t1,12,t1,11,t1,255,0
  2676.  
  2677.  
  2678.  
  2679. ;piano_drum:    dc.b 15,t1,15,t1,15,t1,15,t1,14,t1
  2680.   dc.b 13,t1,13,t1,13,t1,13,t1,13,t1
  2681.   dc.b 13,t1,12,t1,12,t1,11,t1
  2682.   dc.b 11,t1,10,t1,9,t1,8,t1,7,t1,6,t1
  2683.   dc.b 5,t1,4,t1,3,t1,2,t1,1,t1,0,t1,255
  2684. ;piano_env3:    dc.b 15,t2,15,t2,15,t2,15,t2,14,t2
  2685.   dc.b 13,t2,13,t2,13,t2,13,t2,13,t2
  2686.   dc.b 13,t2,12,t2,12,t2,11,t2
  2687.   dc.b 11,t2,10,t2,9,t2,8,t2,7,t2,6,t2
  2688.   dc.b 5,t2,4,t2,3,t2,2,t2,1,t2,0,t2,255
  2689. mono_env:    dc.b 15,t3,255
  2690. mono_env3:    dc.b 15,t3,255
  2691. mono_env1:    dc.b 13,t1,255,0
  2692. mono_env2:    dc.b 15,t2,255,0
  2693. piano_envsq:    dc.b 14,t3,12,t3,12,t3,9,t3,6,t3,0,t3,255
  2694. ;long_sus:     dc.b 15,t2,13,t2,255
  2695. ;long_sus4:     dc.b 14,t2,255
  2696. qclape:     dc.b 15,n1,14,n1,14,n1,13,n1,13,n1,12,n1
  2697.   dc.b 11,n1,11,n1,9,n1,7,n1,7,n1,7
  2698.   dc.b n1,6,n1,6,n1,6
  2699.   dc.b n1,5,n1,255
  2700. hate:     dc.b 13,n1,0,n1,255
  2701. rotoe:     dc.b 15,t1,15,t1,15,t1,15,t1,15,t1,14,t1
  2702.   dc.b 13,t1,13,t1,12,t1,11,t1,10,t1,9
  2703.   dc.b t1,8,t1,7,t1,6
  2704.   dc.b t1,5,t1,4,t1,3,t1,2,t1,0,t1,255
  2705. ;hot_env:     dc.b 15,t3,14,t3,15,t3,12,t3,15,t3,10,t3
  2706.   dc.b 15,t3,12,t3,255
  2707. ;hot_env2:     dc.b 15,t2,14,t2,15,t2,12,t2,15,t2,10,t2
  2708.   dc.b 15,t2,12,t2,255
  2709. ;revenv:   dc.b 7,t3,9,t3,11,t3,13,t3,15,t3,14,t3
  2710.     dc.b 1,t3,15,t3,6,t3,13,t3,10,t3,9,t3,255
  2711. ;clip_env:    dc.b 15,t3,15,t3,6,t3,6,t3,15,t3
  2712.  dc.b 15,t3,15,t3,13,t3
  2713.   dc.b 12,t3,11,t3,255
  2714. ;DIST_ENV:   dc.b 15,t3,15,t3,12,t3,15,t3,3,t3,15,t3
  2715.      dc.b 15,t3,3,t3,12,t3,3,t3,10,t3,9,t3
  2716.      dc.b 8,t3,7,t3,3,t3,8,t3,9,t3,12,t3,14,t3
  2717.      dc.b 15,t3,15,t3,15,t3,15,t3,0,t3,255
  2718. ;long_sus2:    dc.b 15,t2,14,t2,13,t2,14,t2,15,t2
  2719.   dc.b 14,t2,13,t2,14,t2,15,t2,14,t2,13,t2,14,t2
  2720.       dc.b 255
  2721. ;long_sus3:  dc.b 15,t3,14,t3,13,t3,12,t3,12,t3
  2722.    dc.b 11,t3,10,t3,9,t3,8,t3
  2723.     dc.b 7,t3,8,t3,7,t3,7,t3
  2724.     dc.b 6,t3,6,t3,6,t3,6,t3,6,t3,6,t3,6,t3,4,t3
  2725.       dc.b 255
  2726. ;dhot_env:     dc.b 15,t3,14,t3,15,t3,12,t3,15,t3,10,t3
  2727.   dc.b 15,t3,12,t3,15,t3,14,t3,15,t3,12,t3
  2728.   dc.b 15,t3,10,t3,15,t3,12,t3,255
  2729. marx_env:   dc.b 15,t3,8,t3,15,t3,15,t3,12,t3,11,t3,13,t3,11,t3
  2730.      dc.b 12,t3,255
  2731. ;sq_env1:     dc.b 15,t1,15,t1,14,t1,13,t1,0,t1,255
  2732. ;sq_env2:     dc.b 15,t2,15,t2,14,t2,13,t2,0,t2,255
  2733. ;sq_env3:     dc.b 15,t3,15,t3,14,t1,13,t2,0,t3,255
  2734. ;fxbassde:  dc.b 15,b1,13,t1,255
  2735. ;;;;;;;;;;;;;;;;;;;;;;  MUSIC DATA END ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2736.  
  2737. SPEEDS:
  2738.      DC.W $0607
  2739.      DC.W $CF01
  2740.      DC.W 39681 
  2741.      DC.W 31745 
  2742.      DC.W 26369 
  2743.      DC.W 22529 
  2744.      DC.W 19713 
  2745.      DC.W 17409 
  2746.      DC.W 15873 
  2747.      DC.W 14337 
  2748.      DC.W 13313 
  2749.      DC.W 12289 
  2750.      DC.W 11265 
  2751.      DC.W 10497 
  2752.      DC.W 9985 
  2753.      DC.W 2307 
  2754. CHANEL_A: DC.L $00000000,$00040000,$00040001,$00040004
  2755.  DC.L $00030002,$00040001,$00040002,$00050002
  2756.  DC.L $00060000,$00060002,$00060003,$00060004
  2757.  DC.L $00070002,$00070004,$00070005,$00080002
  2758.  DC.L $00080003,$00080004,$00080005,$00090002
  2759.  DC.L $00090003,$00090004,$00090005,$00090006
  2760.  DC.L $00090007,$000A0003,$000A0004,$000A0005
  2761.  DC.L $000A0006,$000A0007,$000B0000,$000B0001
  2762.  DC.L $000B0002,$000B0004,$000B0005,$000B0006
  2763.  DC.L $000B0007,$000B0008,$000B0008,$000B0009
  2764.  DC.L $000B0009,$000C0000,$000C0001,$000C0002
  2765.  DC.L $000C0003,$000C0004,$000C0005,$000C0006
  2766.  DC.L $000C0008,$000C0008,$000C0009,$000C0009
  2767.  DC.L $000C0009,$000C000A,$000D0000,$000D0002
  2768.  DC.L $000D0003,$000D0004,$000D0005,$000D0006
  2769.  DC.L $000D0007,$000D0008,$000D0008,$000D0009 
  2770.  
  2771. ;***************************************
  2772. ssplash8d:    ;incbin a:ssplash8.sam
  2773. explosi8d:    ;incbin a:explosi8.sam
  2774.  
  2775.         END
  2776.  
  2777.  
  2778.       dc.l song1,song2,song3
  2779.       dc.l song4,song5,song6
  2780.       dc.l song7,song8,song9
  2781.       dc.l song10,song11,song12
  2782.       dc.l song13,song14,song15
  2783.       dc.l song16,song17,song18
  2784.       dc.l song19,song20,song21
  2785.       dc.l song22,song23,song24
  2786.       dc.l song25,song26,song27
  2787.       dc.l song28,song29,song30
  2788.       dc.l song31,song32,song33
  2789.       dc.l song34,song35,song36
  2790.       dc.l song37,song38,song39
  2791.       dc.l song40,song41,song42
  2792.       dc.l song43,song44,song45
  2793.       dc.l song46,song47,song48
  2794.       dc.l song49,song50,song51
  2795.       dc.l song52,song53,song54
  2796.       dc.l song55,song56,song57
  2797.       dc.l song58,song59,song60
  2798.       dc.l song61,song62,song63
  2799.       dc.l song64,song65,song66
  2800.       dc.l song67,song68,song69
  2801.       dc.l song70,song71,song72
  2802.         
  2803.  
  2804.  
  2805. ;;;;;;;;;;;;;;;;;;;;;    AUSTRIA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2806. song1:
  2807.     dc.l p2a,pr
  2808.       dc.l end_song
  2809.  
  2810. song2:
  2811.     dc.l p3a,pr
  2812.       dc.l end_song
  2813. song3:
  2814.     dc.l p1a,pr
  2815.       dc.l end_song
  2816.  
  2817. pcr: even
  2818.   dc.b rest,cr
  2819.   dc.b m,end_patt
  2820. pr: even
  2821.   dc.b rest,cr*4
  2822.   dc.b m,end_patt
  2823. pra: even
  2824.   dc.b rest,q*7
  2825.   dc.b m,end_patt
  2826. pqr: even
  2827.   dc.b rest,q
  2828.   dc.b m,end_patt
  2829. p1a: even
  2830.       dc.b m,new_env,trigg,0
  2831.       dc.l piano_anthenv
  2832.     dc.b Bb04,cr*2,A04,cr,G04,cr*2,A04,q,Bb04,q
  2833.     dc.b C05,cr*2,Bb04,cr,Bb04,cr,A04,cr,rest,cr
  2834.     dc.b A04,cr*2,G04,cr,F04,cr*2,G04,q,A04,q
  2835.     dc.b Bb04,cr*2,A04,cr,A04,q,G04,q,G04,cr,rest,cr
  2836.       dc.b m,end_patt
  2837. p2a: even
  2838.       dc.b m,new_env,trigg,0
  2839.       dc.l piano_anthenv1
  2840.     dc.b G04,cr*2,F04,cr,Eb04,cr*2,F04,q,G04,q
  2841.     dc.b A04,cr*2,G04,cr,G04,cr,F04,cr,rest,cr
  2842.     dc.b F04,cr*2,Eb04,cr,D04,cr*2,Eb04,q,F04,q
  2843.     dc.b G04,cr*2,F04,cr,Bb03,cr,Bb03,cr,rest,cr
  2844.     dc.b m,end_patt
  2845. p3a: even
  2846.       dc.b m,new_env,trigg,0
  2847.       dc.l bass_anthenv
  2848.     dc.b Eb02,cr,G02,cr,Bb02,cr,Eb03,cr*2,Eb02,cr
  2849.     dc.b Ab02,cr,Bb02,cr,C03,cr,F02,q,F03,q,F02,cr,rest,cr
  2850.     dc.b Bb02,cr,D03,cr,Bb02,cr,Bb02,cr*2,Bb02,cr
  2851.     dc.b Bb02,cr*2,Bb02,cr,Eb02,cr,Eb02,cr,rest,cr
  2852.     dc.b m,end_patt
  2853. ;;;;;;;;;;;;;;;;;;;;;    AUSTRALIA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2854. song4:
  2855.     dc.l p2b
  2856.       dc.l end_song
  2857.  
  2858. song5:
  2859.     dc.l p3b
  2860.       dc.l end_song
  2861. song6:
  2862.     dc.l p1b
  2863.       dc.l end_song
  2864.  
  2865.  
  2866. p1b: even
  2867.       dc.b m,new_env,trigg,0
  2868.       dc.l piano_anthenv
  2869.     dc.b C05,q,D05,q,E05,cr,E05,q,E05,q,D05,cr,D05,cr
  2870.     dc.b C05,q,D05,q,E05,q,C05,q,A04,q,B04,q,C05,cr
  2871.     dc.b G04,cr,C05,q,E05,q,G05,cr,F05,q,E05,q
  2872.     dc.b D05,cr,D05,q,D05,q,C05,cr*2
  2873.       dc.b m,end_patt
  2874. p2b: even
  2875.       dc.b m,new_env,trigg,0
  2876.       dc.l piano_anthenv1
  2877.     dc.b rest,cr,C04,cr,C04,q,C04,q,B03,cr,B03,cr
  2878.     dc.b A03,q,B03,q,C04,q,A03,q,F03,q,G03,q,A03,cr
  2879.     dc.b E03,cr,G03,q,C04,q,E04,cr,D04,q,C04,q
  2880.     dc.b B03,cr,B03,q,B03,q,G03,cr*2
  2881.     dc.b m,end_patt
  2882. p3b: even
  2883.       dc.b m,new_env,trigg,0
  2884.       dc.l bass_anthenv
  2885.     dc.b rest,cr,C03,cr,G02,cr,D03,cr,G02,cr
  2886.     dc.b A02,cr,G02,cr,F02,cr,Gb02,cr
  2887.     dc.b G02,cr*2,G02,cr*2,G02,cr,G02,q,G02,q,C03,cr*2
  2888.     dc.b m,end_patt
  2889. ;;;;;;;;;;;;;;;;;;;;;    BRAZIL    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2890. song7:
  2891.     dc.l p2c
  2892.       dc.l end_song
  2893.  
  2894. song8:
  2895.     dc.l p3c
  2896.       dc.l end_song
  2897. song9:
  2898.     dc.l p1c
  2899.       dc.l end_song
  2900.  
  2901. p1c: even
  2902.       dc.b m,new_env,trigg,0
  2903.       dc.l piano_anthenv
  2904.     dc.b Bb04,cr,Bb04,q,rest,q,Bb04,cr,Bb04,cr
  2905.     dc.b Eb05,sq*3,D05,sq,Eb05,sq*3,F05,sq
  2906.     dc.b G05,sq*3,F05,sq,G05,sq*3,Ab05,sq
  2907.     dc.b A05,q*3,Bb05,q,Eb05,cr,Bb04,cr
  2908.     dc.b Eb05,sq*3,D05,sq,F05,sq*3,Eb05,sq
  2909.     dc.b G05,sq*3,F05,sq,Ab05,sq*3,G05,sq
  2910.     dc.b E05,cr,F05,cr*3
  2911.       dc.b m,end_patt
  2912. p2c: even
  2913.       dc.b m,new_env,trigg,0
  2914.       dc.l piano_anthenv1
  2915.     dc.b G04,cr,G04,q,rest,q,G04,cr,rest,cr
  2916.     dc.b G04,cr*2,Bb04,cr*2,Gb05,q*3,G05,q
  2917.     dc.b Bb04,cr,Bb04,cr,G04,cr,Ab04,cr,Bb04,cr,C05,cr
  2918.     dc.b Db05,cr,D05,cr*3
  2919.     dc.b m,end_patt
  2920. p3c: even
  2921.       dc.b m,new_env,trigg,0
  2922.       dc.l bass_anthenv
  2923.     dc.b Eb03,cr,Eb03,q,rest,q,Eb03,cr,rest,cr
  2924.     dc.b Eb03,sq*3,D03,sq,Eb03,sq*3,F03,sq
  2925.     dc.b G03,sq*3,F03,sq,G03,sq*3,Ab03,sq
  2926.     dc.b A03,q*3,Bb03,q,Eb03,cr,Bb02,cr
  2927.     dc.b Eb03,sq*3,D03,sq,F03,sq*3,Eb03,sq
  2928.     dc.b G03,sq*3,F03,sq,Ab03,sq*3,G03,sq
  2929.     dc.b G03,cr,Ab03,cr*3
  2930.     dc.b m,end_patt
  2931. ;;;;;;;;;;;;;;;;;;;;;    CANADA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2932. song10:
  2933.     dc.l p2d
  2934.       dc.l end_song
  2935.  
  2936. song11:
  2937.     dc.l p3d
  2938.       dc.l end_song
  2939. song12:
  2940.     dc.l p1d
  2941.       dc.l end_song
  2942.  
  2943. p1d: even
  2944.       dc.b m,new_env,trigg,0
  2945.       dc.l piano_anthenv
  2946.     dc.b D05,cr*2,F05,cr*2,Bb04,cr*3,C05,cr
  2947.     dc.b D05,cr,Eb05,cr,F05,cr,G05,cr
  2948.     dc.b C05,cr*4,D05,cr*2,E05,cr*2,F05,cr*3,G05,cr
  2949.     dc.b A05,cr,A05,cr,G05,cr,G05,cr,F05,cr*4
  2950.       dc.b m,end_patt
  2951. p2d: even
  2952.       dc.b m,new_env,trigg,0
  2953.       dc.l piano_anthenv1
  2954.     dc.b F04,cr*2,A04,cr*2,G04,cr*3,F04,cr,F04,cr,F04,cr
  2955.     dc.b Bb04,cr,Bb04,cr,Bb04,cr,Bb04,q,G04,q,A04,cr*2
  2956.     dc.b Bb04,cr*2,D05,cr,Db05,cr,D05,cr*3,E05,cr
  2957.     dc.b F05,cr,C05,cr,E05,cr,Bb04,cr,A04,cr*4
  2958.     dc.b m,end_patt
  2959. p3d: even
  2960.       dc.b m,new_env,trigg,0
  2961.       dc.l bass_anthenv
  2962.     dc.b Bb02,cr*2,D03,cr*2,G02,cr,D02,cr,G02,cr,A02,cr
  2963.     dc.b Bb02,cr,C03,cr,D03,cr,E03,cr,F03,cr*4,Bb02,cr*2,A02,cr*2
  2964.     dc.b D03,cr*3,Db03,cr,C03,cr,C03,cr,C03,cr,C03,cr,F02,cr*4
  2965.     dc.b m,end_patt
  2966. ;;;;;;;;;;;;;;;;;;;;;    CHINA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2967. song13:
  2968.     dc.l p2e
  2969.       dc.l end_song
  2970.  
  2971. song14:
  2972.     dc.l p3e
  2973.       dc.l end_song
  2974. song15:
  2975.     dc.l p1e
  2976.       dc.l end_song
  2977.  
  2978. p1e: even
  2979.       dc.b m,new_env,trigg,0
  2980.       dc.l piano_anthenv
  2981.     dc.b C05,cr,C05,cr*3,E05,cr,E05,cr*3
  2982.     dc.b G05,cr,G05,cr*3,E05,cr,D05,cr*3,E05,cr
  2983.     dc.b C06,cr*3,A05,q,G05,q,A05,cr*3,E05,cr
  2984.     dc.b A05,cr*3,G05,q,Gb05,q,G05,cr*3
  2985.       dc.b m,end_patt
  2986. p2e: even
  2987.       dc.b m,new_env,trigg,0
  2988.       dc.l piano_anthenv1
  2989.     dc.b G04,cr,G04,cr*3,C05,cr,C05,cr*3
  2990.     dc.b B04,cr,D05,cr*3,C05,cr,B04,cr*3
  2991.     dc.b C05,cr,E05,cr*3,F05,cr,F05,cr*3
  2992.     dc.b C05,cr,F05,cr*3,D05,cr,D05,cr*3
  2993.     dc.b m,end_patt
  2994. p3e: even
  2995.       dc.b m,new_env,trigg,0
  2996.       dc.l bass_anthenv
  2997.     dc.b C03,cr,C03,cr*3,C03,cr,C03,cr*3
  2998.     dc.b G02,cr,B02,cr*3,C03,cr,G02,cr*3
  2999.     dc.b C03,cr,C03,cr*3,F02,cr,F02,cr*3
  3000.     dc.b C03,cr,A02,cr*3,D03,cr,G02,cr*3
  3001.     dc.b m,end_patt
  3002.  
  3003. ;;;;;;;;;;;;;;;;;;;;;    DENMARK    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3004. song16:
  3005.     dc.l p2f
  3006.       dc.l end_song
  3007.  
  3008. song17:
  3009.     dc.l p3f
  3010.       dc.l end_song
  3011. song18:
  3012.     dc.l p1f
  3013.       dc.l end_song
  3014.  
  3015. p1f: even
  3016.       dc.b m,new_env,trigg,0
  3017.       dc.l piano_anthenv
  3018.     dc.b C05,cr,F05,cr,F04,cr,A04,cr,C05,cr
  3019.     dc.b F05,q*3,G05,q,A05,cr,Bb05,cr
  3020.     dc.b A05,cr*2,G05,cr*2,F05,cr*3,A05,cr
  3021.     dc.b A05,q,G05,q,F05,q,E05,q,G05,q,F05,q,E05,q,D05,q
  3022.     dc.b E05,q*3,F05,q,G05,cr,G05,cr
  3023.     dc.b C06,cr,G05,cr,E05,cr,C05,cr
  3024.     dc.b G05,cr*3,C06,cr,C06,cr,B05,q,A05,q,G05,cr,A05,cr
  3025.     dc.b A05,cr,G05,q,F05,q,E05,cr,F05,cr
  3026.     dc.b E05,cr*2,D05,cr*2,C05,cr*4
  3027.       dc.b m,end_patt
  3028. p2f: even
  3029.       dc.b m,new_env,trigg,0
  3030.       dc.l piano_anthenv1
  3031.     dc.b rest,cr*5,A04,q*3,Bb04,q,C05,cr,D05,cr
  3032.     dc.b F05,cr*2,E05,cr*2,C05,cr,A04,cr,A05,cr,F05,cr
  3033.     dc.b E05,cr,C05,cr,B04,cr,B04,cr
  3034.     dc.b C05,q*3,D05,q,E05,cr,G05,cr
  3035.     dc.b C05,cr,G04,cr,E04,cr,C04,cr
  3036.     dc.b B04,cr*3,C05,cr,E05,cr,E05,cr,E05,cr,F05,cr
  3037.     dc.b F05,cr,E05,q,D05,q,C05,cr,A04,cr
  3038.     dc.b C05,cr*2,B04,cr*2,G04,cr*4
  3039.     dc.b m,end_patt
  3040. p3f: even
  3041.       dc.b m,new_env,trigg,0
  3042.       dc.l bass_anthenv
  3043.     dc.b rest,cr*5,F03,q*3,C03,q,F03,cr,Bb02,cr
  3044.     dc.b C03,cr*2,C03,cr*2,F03,cr*3,F03,cr
  3045.     dc.b C03,cr,G03,cr,G02,cr,D03,cr
  3046.     dc.b C03,q*3,G02,q,C03,cr,G03,cr
  3047.     dc.b C04,cr,G03,cr,E03,cr,C03,cr
  3048.     dc.b G03,q*3,G02,q,G02,cr,C03,cr
  3049.     dc.b C03,cr,C03,cr,C03,cr,C03,cr
  3050.     dc.b C03,cr,C03,cr,C03,cr,F02,cr
  3051.     dc.b G02,cr*2,G02,cr*2,C03,cr*4
  3052.     dc.b m,end_patt
  3053.  
  3054.  
  3055. ;;;;;;;;;;;;;;;;;;;;;    EIRE     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3056. song19:
  3057.     dc.l p2g
  3058.       dc.l end_song
  3059.  
  3060. song20:
  3061.     dc.l p3g
  3062.       dc.l end_song
  3063. song21:
  3064.     dc.l p1g
  3065.       dc.l end_song
  3066.  
  3067. p1g: even
  3068.       dc.b m,new_env,trigg,0
  3069.       dc.l piano_anthenv
  3070.     dc.b A05,cr,Gb05,cr,D05,q,Gb05,q,A05,q*3,A05,q
  3071.     dc.b B05,q,Db06,q,D06,q,E06,q,Gb06,q*3,E06,q
  3072.     dc.b D06,cr,B05,sq*3,B05,sq,A05,cr,Gb05,cr
  3073.     dc.b A05,q*3,G05,q,E05,cr,A04,cr
  3074.     dc.b Gb05,cr,D05,q,Gb05,q,A05,q*3,A05,q
  3075.     dc.b B05,q,Db06,q,D06,q,E06,q,Gb06,q*3,D06,q
  3076.     dc.b Db06,q*3,Db06,q,B05,q*3,B05,q,A05,cr,A05,cr*3
  3077.       dc.b m,end_patt
  3078.  
  3079. p2g: even
  3080.       dc.b m,new_env,trigg,0
  3081.       dc.l piano_anthenv1
  3082.     dc.b rest,cr,A04,cr,rest,cr,E05,cr,rest,q,E05,q
  3083.     dc.b G05,cr,B05,cr,A05,q*3,A05,q,B05,cr,G05,sq*3,G05,sq
  3084.     dc.b D05,cr,D05,cr,Db05,q*3,Db05,q,Db05,cr,Db05,cr
  3085.     dc.b A04,cr,rest,cr,E05,cr,rest,q,E05,q
  3086.     dc.b G05,cr,B05,cr,A05,q*3,A05,q,A05,q*3,A05,q,Ab05,q*3,Ab05,q
  3087.     dc.b E05,cr,E05,cr*3
  3088.     dc.b m,end_patt
  3089. p3g: even
  3090.       dc.b m,new_env,trigg,0
  3091.       dc.l bass_anthenv
  3092.     dc.b rest,cr,D03,cr,rest,cr,Db03,cr,rest,q,Db03,q
  3093.     dc.b B02,cr,G03,cr,D03,q*3,Gb03,q,G03,cr,G03,sq*3,G03,sq
  3094.     dc.b Gb03,cr,D03,cr,A03,q*3,A03,q,A03,cr,A03,cr
  3095.     dc.b D03,cr,rest,cr,Db03,cr,rest,q,Db03,q
  3096.     dc.b B02,cr,G03,cr,D03,q*3,D03,q
  3097.     dc.b E03,q*3,E03,q,E03,q*3,E03,q,A02,cr,A02,cr*3
  3098.     dc.b m,end_patt
  3099. ;;;;;;;;;;;;;;;;;;;;;    E.GERMAN    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3100. song22:
  3101.     dc.l p2h
  3102.       dc.l end_song
  3103.  
  3104. song23:
  3105.     dc.l p3h
  3106.       dc.l end_song
  3107. song24:
  3108.     dc.l p1h
  3109.       dc.l end_song
  3110.  
  3111. p1h: even
  3112.       dc.b m,new_env,trigg,0
  3113.       dc.l piano_anthenv
  3114.     dc.b C05,cr,C05,q,D05,q,C05,cr*2
  3115.     dc.b D05,cr,D05,q,E05,q,F05,q,E05,q,D05,cr
  3116.     dc.b G05,cr,G05,q,F05,q,E05,q,G05,q,F05,q,D05,q
  3117.     dc.b C05,cr*2,C05,cr*2
  3118.       dc.b m,end_patt
  3119. p2h: even
  3120.       dc.b m,new_env,trigg,0
  3121.       dc.l piano_anthenv1
  3122.     dc.b E04,cr,E04,q,F04,q,G04,q,F04,q,E04,cr 
  3123.     dc.b F04,cr,F04,q,G04,q,A04,q,G04,q,F04,cr
  3124.     dc.b G04,cr,G04,q,A04,q,B04,q,G04,q,A04,q,B04,q
  3125.     dc.b E04,cr*2,E04,cr*2
  3126.     dc.b m,end_patt
  3127. p3h: even
  3128.       dc.b m,new_env,trigg,0
  3129.       dc.l bass_anthenv
  3130.     dc.b C03,cr,B02,cr,A02,cr,G02,cr
  3131.     dc.b D03,cr,D03,q,C03,q,B02,q,A02,q,G02,cr
  3132.     dc.b G02,cr,A02,cr,G02,cr,B02,cr,C03,cr,G02,cr,C02,cr*2
  3133.     dc.b m,end_patt
  3134. ;;;;;;;;;;;;;;;;;;;;;    FRANCE   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3135. song25:
  3136.     dc.l p2i
  3137.       dc.l end_song
  3138.  
  3139. song26:
  3140.     dc.l p3i
  3141.       dc.l end_song
  3142. song27:
  3143.     dc.l p1i
  3144.       dc.l end_song
  3145.  
  3146. p1i: even
  3147.       dc.b m,new_env,trigg,0
  3148.       dc.l piano_anthenv
  3149.     dc.b B04,sq,B04,sq*3,B04,sq
  3150.     dc.b E05,cr,E05,cr,Gb05,cr,Gb05,cr,B05,cr+q+sq,Ab05,sq
  3151.     dc.b E05,sq*3,E05,sq,Ab05,sq*3,E05,sq
  3152.     dc.b Db05,cr,A05,cr*2,Gb05,sq*3,Eb05,sq,E05,cr*4
  3153.       dc.b m,end_patt
  3154. p2i: even
  3155.       dc.b m,new_env,trigg,0
  3156.       dc.l piano_anthenv1
  3157.     dc.b rest,sq*5
  3158.     dc.b Ab04,cr,Ab04,cr,B04,cr,B04,cr
  3159.     dc.b Ab04,cr+q+sq,Ab04,sq,Ab04,sq*3,Ab04,sq,B04,sq*3,Ab04,sq
  3160.     dc.b A04,cr,Db05,cr,Eb04,cr,A04,cr
  3161.     dc.b Ab04,cr*4
  3162.     dc.b m,end_patt
  3163. p3i: even
  3164.       dc.b m,new_env,trigg,0
  3165.       dc.l bass_anthenv
  3166.     dc.b B02,sq,B02,sq*3,B02,sq
  3167.     dc.b E03,cr,E03,cr,Eb03,cr,Eb03,cr
  3168.     dc.b E03,cr+q+sq,E03,sq,E03,sq*3,E03,sq,E03,sq*3,E03,sq
  3169.     dc.b A02,cr,Gb02,cr,B02,cr*2,E03,cr*4
  3170.     dc.b m,end_patt
  3171. ;;;;;;;;;;;;;;;;;;;;;    GERMANY   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3172. song28:
  3173.     dc.l p2j
  3174.       dc.l end_song
  3175.  
  3176. song29:
  3177.     dc.l p3j
  3178.       dc.l end_song
  3179. song30:
  3180.     dc.l p1j
  3181.       dc.l end_song
  3182.  
  3183. p1j: even
  3184.       dc.b m,new_env,trigg,0
  3185.       dc.l piano_anthenv
  3186.     dc.b C04,q*3,D04,q,E04,cr,D04,cr
  3187.     dc.b F04,cr,E04,cr,D04,q,B03,q,C04,cr
  3188.     dc.b A04,cr,G04,cr,F04,cr,E04,cr
  3189.     dc.b D04,cr,E04,q,C04,q,G04,cr*2
  3190.     dc.b C05,q*3,B04,q,B04,q,A04,q,G04,cr
  3191.     dc.b A04,q*3,G04,q,G04,q,F04,q,E04,cr
  3192.     dc.b D04,q*3,E04,sq,F04,sq,G04,q,A04,q,F04,q,D04,q
  3193.     dc.b C04,cr,E04,q,D04,q,C04,cr*2
  3194.       dc.b m,end_patt
  3195. p2j: even
  3196.       dc.b m,new_env,trigg,0
  3197.       dc.l piano_anthenv1
  3198.     dc.b E03,q*3,F03,q,G03,cr,A03,cr
  3199.     dc.b A03,cr,G03,cr,G03,q,F03,q,E03,cr
  3200.     dc.b C04,cr,C04,cr,A03,cr,C04,cr
  3201.     dc.b Gb03,cr,G03,cr,B03,cr*2
  3202.     dc.b D04,q,E04,q,G04,cr,C04,cr,C04,cr
  3203.     dc.b C04,q,D04,q,E04,cr,B03,cr,C04,cr
  3204.     dc.b B03,cr*2,E04,cr,A03,cr
  3205.     dc.b E03,cr,F03,cr,E03,cr*2
  3206.     dc.b m,end_patt
  3207. p3j: even
  3208.       dc.b m,new_env,trigg,0
  3209.       dc.l bass_anthenv
  3210.     dc.b C03,q*3,C03,q,C03,cr,F02,cr
  3211.     dc.b F02,cr,C03,cr,G02,cr,C03,cr
  3212.     dc.b F03,cr,E03,cr,D03,cr,C03,cr
  3213.     dc.b D03,cr,C03,cr,G02,cr*2
  3214.     dc.b C03,cr,E03,cr,F03,cr,E03,cr
  3215.     dc.b F03,cr,E03,cr,G03,cr,C03,cr
  3216.     dc.b G02,cr*2,C03,cr,F02,cr
  3217.     dc.b G02,cr,G02,cr,C03,cr*2
  3218.     dc.b m,end_patt
  3219. ;;;;;;;;;;;;;;;;;;;;;    GREECE    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3220. song31:
  3221.     dc.l p2k
  3222.       dc.l end_song
  3223.  
  3224. song32:
  3225.     dc.l p3k
  3226.       dc.l end_song
  3227. song33:
  3228.     dc.l p1k
  3229.       dc.l end_song
  3230.  
  3231. p1k: even
  3232.       dc.b m,new_env,trigg,0
  3233.       dc.l piano_anthenv
  3234.     dc.b A04,sq*3,Bb04,sq,C05,sq*7,Bb04,sq,A04,sq*3,Bb04,sq
  3235.     dc.b C05,cr,A04,q,rest,q,Bb04,sq*3,C05,sq
  3236.     dc.b D05,sq*7,D05,sq,E05,sq*3,E05,sq,F05,cr+q,rest,q
  3237.     dc.b G04,sq*3,A04,sq,Bb04,cr+q+sq,A04,sq,G04,sq*3,A04,sq
  3238.     dc.b Bb04,cr,G04,q,rest,q,C05,sq*3,C05,sq,E05,sq*7
  3239.     dc.b D05,sq,C05,sq*3,B04,sq,A04,cr*2
  3240.       dc.b m,end_patt
  3241. p2k: even
  3242.       dc.b m,new_env,trigg,0
  3243.       dc.l piano_anthenv1
  3244.     dc.b F04,sq*3,G04,sq,A04,sq*7,G04,sq,F04,sq*3,G04,sq
  3245.     dc.b A04,cr,F04,q,rest,q,G04,sq*3,A05,sq
  3246.     dc.b Bb04,sq*7,Bb04,sq,C05,sq*3,C05,sq,A04,cr+q,rest,q
  3247.     dc.b E04,sq*3,F04,sq,G04,cr+q+sq,F04,sq,E04,sq*3,F04,sq
  3248.     dc.b G04,cr,E04,q,rest,q,G04,sq*3,G04,sq,C05,sq*7
  3249.     dc.b Bb04,sq,A04,sq*3,G04,sq,F04,cr*2
  3250.     dc.b m,end_patt
  3251. p3k: even
  3252.       dc.b m,new_env,trigg,0
  3253.       dc.l bass_anthenv
  3254.     dc.b rest,cr,F02,q,F03,sq,F03,sq,F03,q,F03,q,F03,q,F03,q
  3255.     dc.b F02,q,F03,sq,F03,sq,F03,q,F03,q,F03,q,F03,q
  3256.     dc.b D02,q,D03,sq,D03,sq,D03,q,D03,q,C03,q,E03,q
  3257.     dc.b F02,q,F03,sq,F03,sq,F03,q,F03,q,rest,cr
  3258.     dc.b C02,q,C03,sq,C03,sq,C03,q,C03,q,C03,q,C03,q
  3259.     dc.b C02,q,C03,sq,C03,sq,C03,q,C03,q,C03,q,C03,q
  3260.     dc.b C02,q,C03,sq,C03,sq,C03,q,C03,q,C03,q,C03,q
  3261.     dc.b F02,q,F03,sq,F03,sq,F03,cr
  3262.     dc.b m,end_patt
  3263. ;;;;;;;;;;;;;;;;;;;;;    G.B.    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3264. song34:
  3265.     dc.l p2l
  3266.       dc.l end_song
  3267.  
  3268. song35:
  3269.     dc.l p3l
  3270.       dc.l end_song
  3271. song36:
  3272.     dc.l p1l
  3273.       dc.l end_song
  3274.  
  3275. p1l: even
  3276.       dc.b m,new_env,trigg,0
  3277.       dc.l piano_anthenv
  3278.     dc.b E04,cr,E04,cr,Gb04,cr
  3279.     dc.b Eb04,q*3,E04,q,Gb04,cr
  3280.     dc.b Ab04,cr,Ab04,cr,A04,cr
  3281.     dc.b Ab04,q*3,Gb04,q,E04,cr
  3282.     dc.b Gb04,cr,E04,cr,Eb04,cr
  3283.     dc.b E04,cr,E04,q,Gb04,q,Ab04,q,A04,q
  3284.     dc.b B04,cr,B04,cr,B04,cr
  3285.     dc.b B04,q*3,A04,q,Ab04,cr
  3286.     dc.b A04,cr,A04,cr,A04,cr
  3287.     dc.b A04,q*3,Ab04,q,Gb04,cr
  3288.     dc.b Ab04,cr,A04,q,Ab04,q,Gb04,q,E04,q
  3289.     dc.b Ab04,q*3,A04,q,B04,cr    
  3290.     dc.b Db05,q,A04,q,Ab04,cr,Gb04,cr,E04,cr*3
  3291.       dc.b m,end_patt
  3292. p2l: even
  3293.       dc.b m,new_env,trigg,0
  3294.       dc.l piano_anthenv1
  3295.     dc.b Ab03,cr,B03,cr,Db04,cr
  3296.     dc.b B03,q*3,A03,q,B03,cr
  3297.     dc.b B03,cr,E04,cr,Db04,cr
  3298.     dc.b E04,q*3,Ab03,q,Ab03,cr
  3299.     dc.b Db04,cr,Ab03,cr,Gb03,cr
  3300.     dc.b Ab03,cr,Ab03,q,A03,q,B03,q,Db04,q
  3301.     dc.b Ab03,cr,B03,cr,E04,cr
  3302.     dc.b Ab04,q*3,Eb04,q,B03,cr
  3303.     dc.b Eb04,cr,B03,cr,B03,cr
  3304.     dc.b Eb04,q*3,B03,q,Eb04,cr
  3305.     dc.b B03,cr,Db04,cr,B03,cr
  3306.     dc.b E04,q*3,Gb04,q,Ab04,cr
  3307.     dc.b Gb04,cr,E04,cr,Eb04,q,A03,q,Ab03,cr*3
  3308.     dc.b m,end_patt
  3309. p3l: even
  3310.       dc.b m,new_env,trigg,0
  3311.       dc.l bass_anthenv
  3312.     dc.b E02,cr,Ab02,cr,A02,cr
  3313.     dc.b B02,q*3,Db03,q,Eb04,cr
  3314.     dc.b E03,cr,Db03,cr,A02,cr
  3315.     dc.b B02,q*3,C03,q,Db03,cr
  3316.     dc.b A02,cr,B02,cr,B02,cr
  3317.     dc.b E03,cr*3
  3318.     dc.b E02,cr,Ab02,cr,B02,cr
  3319.     dc.b E03,q*3,B02,q,E03,cr,B02,cr,Eb03,cr,Gb03,cr
  3320.     dc.b B02,q*3,E03,q,B02,cr,E03,cr,Gb03,q,E03,q,Eb03,q,Db03,q
  3321.     dc.b B02,q,A02,q,Ab02,q,Gb02,q,E02,cr,A02,cr,B02,cr,B02,cr,E02,cr*3
  3322.     dc.b m,end_patt
  3323. ;;;;;;;;;;;;;;;;;;;;;    HOLLANDS  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3324. song37:
  3325.     dc.l p2m
  3326.       dc.l end_song
  3327.  
  3328. song38:
  3329.     dc.l p3m
  3330.       dc.l end_song
  3331. song39:
  3332.     dc.l p1m
  3333.       dc.l end_song
  3334.  
  3335. p1m: even
  3336.       dc.b m,new_env,trigg,0
  3337.       dc.l piano_anthenv
  3338.     dc.b C05,cr,F05,cr,F05,cr,G05,q,A05,q,Bb05,q,G05,q
  3339.     dc.b A05,cr,G05,q,A05,q,Bb05,cr,A05,cr,G05,q,F05,q,G05,cr,F05,cr*3
  3340.       dc.b m,end_patt
  3341. p2m: even
  3342.       dc.b m,new_env,trigg,0
  3343.       dc.l piano_anthenv1
  3344.     dc.b Bb03,cr,A03,cr,A03,cr,D04,cr,E04,cr,C04,cr
  3345.     dc.b Bb03,q,C04,q,D04,cr,F04,cr,E04,q,D04,q,E04,cr,C04,cr*3
  3346.     dc.b m,end_patt
  3347. p3m: even
  3348.       dc.b m,new_env,trigg,0
  3349.       dc.l bass_anthenv
  3350.     dc.b E03,cr,F03,cr,C03,cr,Bb02,cr,C03,cr,F03,cr,D03,q,C03,q
  3351.     dc.b Bb02,cr,C03,cr,C03,q,C03,q,C03,cr,F02,cr*3
  3352.     dc.b m,end_patt
  3353. ;;;;;;;;;;;;;;;;;;;;;    HUNGARY    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3354. song40:
  3355.     dc.l p2n
  3356.       dc.l end_song
  3357.  
  3358. song41:
  3359.     dc.l p3n
  3360.       dc.l end_song
  3361. song42:
  3362.     dc.l p1n
  3363.       dc.l end_song
  3364.  
  3365. p1n: even
  3366.       dc.b m,new_env,trigg,0
  3367.       dc.l piano_anthenv
  3368.     dc.b D05,cr+q,C05,q,Bb04,cr,A04,cr,Bb04,cr,C05,cr,F04,cr*2
  3369.     dc.b Eb05,q*3,D05,q,C05,cr,Bb04,cr,A04,q*3,G04,q
  3370.     dc.b F04,cr,Eb04,cr,D04,cr,D04,cr,C04,cr,C04,q,D04,q,Bb03,cr*4
  3371.       dc.b m,end_patt
  3372. p2n: even
  3373.       dc.b m,new_env,trigg,0
  3374.       dc.l piano_anthenv1
  3375.     dc.b Bb04,cr+q,A04,q,G04,cr,Gb04,cr,G04,cr,G04,cr,Eb04,cr*2
  3376.     dc.b Eb04,cr,F04,cr,G04,cr,Eb04,cr,F04,cr,C04,cr
  3377.     dc.b Bb03,cr,A03,cr,Bb03,cr,Bb03,cr,Bb03,cr,A03,cr,F03,cr*4
  3378.     dc.b m,end_patt
  3379. p3n: even
  3380.       dc.b m,new_env,trigg,0
  3381.       dc.l bass_anthenv
  3382.     dc.b G02,cr,A02,cr,Bb02,cr,D03,cr,G03,cr,Eb03,cr,F03,cr*2
  3383.     dc.b C03,cr,D03,cr,Eb03,cr,C03,cr,F03,cr,Eb03,cr,D03,cr,C03,cr
  3384.     dc.b Bb02,cr,D03,cr,Eb03,cr,F03,cr,Bb02,cr,Bb03,cr,Bb02,cr*2
  3385.     dc.b m,end_patt
  3386. ;;;;;;;;;;;;;;;;;;;;;    ITALY   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3387. song43:
  3388.     dc.l p2o
  3389.       dc.l end_song
  3390.  
  3391. song44:
  3392.     dc.l p3o
  3393.       dc.l end_song
  3394. song45:
  3395.     dc.l p1o
  3396.       dc.l end_song
  3397.  
  3398. p1o: even
  3399.       dc.b m,new_env,trigg,0
  3400.       dc.l piano_anthenv
  3401.     dc.b G04,cr,G04,sq*3,A04,sq,G04,cr*2
  3402.     dc.b E05,cr,E05,sq*3,F05,sq,E05,cr*2
  3403.     dc.b E05,cr,G05,sq*3,F05,sq,E05,cr*2
  3404.     dc.b D05,cr,E05,sq*3,D05,sq,C05,cr*2
  3405.       dc.b m,end_patt
  3406. p2o: even
  3407.       dc.b m,new_env,trigg,0
  3408.       dc.l piano_anthenv1
  3409.     dc.b E04,cr,E04,sq*3,F04,sq,E04,sq*3,E04,sq,E04,cr
  3410.     dc.b G04,cr,G04,sq*3,A04,sq,G04,sq*3,G04,sq,G04,cr
  3411.     dc.b C05,cr,E05,sq*3,D05,sq,C05,cr*2
  3412.     dc.b B04,cr,C05,sq*3,B04,sq,E04,cr*2
  3413.     dc.b m,end_patt
  3414. p3o: even
  3415.       dc.b m,new_env,trigg,0
  3416.       dc.l bass_anthenv
  3417.     dc.b C04,cr,C04,sq*3,C04,sq,C04,sq*3,C04,sq,C04,cr
  3418.     dc.b C04,cr,C04,sq*3,C04,sq,C04,sq*3,C04,sq,C04,cr
  3419.     dc.b C04,cr,C04,sq*3,C04,sq,C04,cr,G03,cr
  3420.     dc.b G03,cr,G03,sq*3,G03,sq,C04,cr,C03,cr
  3421.     dc.b m,end_patt
  3422. ;;;;;;;;;;;;;;;;;;;;;    JAMAICA ? ( No,she wanted to ! )    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3423. song46:
  3424.     dc.l p2p,pr
  3425.       dc.l end_song
  3426.  
  3427. song47:
  3428.     dc.l p3p,pr
  3429.       dc.l end_song
  3430. song48:
  3431.     dc.l p1p,pr
  3432.       dc.l end_song
  3433.  
  3434. p1p: even
  3435.       dc.b m,new_env,trigg,0
  3436.       dc.l piano_anthenv
  3437.     dc.b G04,cr,G04,cr,G04,cr,A04,cr,E04,cr
  3438.     dc.b G04,q*3,F04,q,F04,cr*2,A04,cr,A04,cr,B04,cr,F04,cr
  3439.     dc.b A04,q*3,G04,q,G04,cr*2,C05,cr,C05,cr,B04,cr,Ab04,cr
  3440.     dc.b A04,cr,C05,cr,G04,cr,G04,cr,A04,cr,A04,cr,G04,cr,E04,cr
  3441.     dc.b C04,cr,D04,cr,C04,cr*2
  3442.       dc.b m,end_patt
  3443. p2p: even
  3444.       dc.b m,new_env,trigg,0
  3445.       dc.l piano_anthenv1
  3446.     dc.b F04,cr,E04,cr,D04,cr,Db04,cr,A03,cr,D04,cr,D04,cr,D04,cr*2
  3447.     dc.b F04,cr,F04,cr,F04,cr,F04,cr,Eb04,cr,Eb04,cr,E04,cr*2
  3448.     dc.b A04,cr,A04,cr,E04,cr,E04,cr,F04,cr,A04,cr
  3449.     dc.b C04,cr,E04,cr,F04,cr,D04,cr,C04,cr,C04,cr
  3450.     dc.b E03,cr,G03,cr,E03,cr*2
  3451.     dc.b m,end_patt
  3452. p3p: even
  3453.       dc.b m,new_env,trigg,0
  3454.       dc.l bass_anthenv
  3455.     dc.b G02,cr,C03,cr,Bb02,cr,A02,cr*2
  3456.     dc.b D02,cr,A02,cr,D03,q,A02,q,B02,q,Db03,q
  3457.     dc.b D03,cr*2,G02,cr*2,C02,cr,G02,cr,C03,cr,B02,cr
  3458.     dc.b A02,cr*2,Ab03,cr,E03,cr,F03,cr*2,E03,cr,C03,cr
  3459.     dc.b F03,cr,F03,cr,E03,cr,C03,cr
  3460.     dc.b A02,cr,D02,cr,G02,cr*2
  3461.     dc.b m,end_patt
  3462. ;;;;;;;;;;;;;;;;;;;;;    JAPAN   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3463. song49:
  3464.     dc.l p2q
  3465.       dc.l end_song
  3466.  
  3467. song50:
  3468.     dc.l p3q
  3469.       dc.l end_song
  3470. song51:
  3471.     dc.l p1q
  3472.       dc.l end_song
  3473.  
  3474. p1q: even
  3475.       dc.b m,new_env,trigg,0
  3476.       dc.l piano_anthenv
  3477.     dc.b G04,cr,F04,cr,G04,cr,A04,cr,C05,cr,A04,cr,G04,cr*2
  3478.     dc.b A04,cr,C05,cr,D05,cr,C05,q,D05,q
  3479.     dc.b G05,cr,E05,cr,D05,cr,C05,cr,A04,cr,C05,cr,D05,cr*2
  3480.     dc.b G05,cr,F05,cr,G05,cr*2,A04,cr,C05,cr,D05,cr,C05,cr
  3481.     dc.b A04,q*3,C05,q,G04,cr*2,D05,cr,F05,cr,G05,cr,G05,cr
  3482.     dc.b F05,cr,G05,cr,D05,cr,C05,cr,D05,cr,C05,q,A04,q,G04,cr*2
  3483.       dc.b m,end_patt
  3484.  
  3485. p2q: even
  3486.       dc.b m,new_env,trigg,0
  3487.       dc.l piano_anthenv1
  3488.     dc.b rest,cr*8,F04,cr,F04,cr,F04,cr,E04,q,F04,q
  3489.     dc.b Db05,cr,Db05,cr,Bb04,cr,G04,cr
  3490.     dc.b F04,cr,F04,cr,F04,cr*2,Bb04,cr,A04,cr,Bb04,cr*2
  3491.     dc.b F04,cr,F04,cr,F04,cr,F04,cr
  3492.     dc.b F04,cr*2,E04,cr*2,F04,cr,Bb04,cr,Bb04,cr,Bb04,cr
  3493.     dc.b A04,cr,Bb04,cr,rest,cr*6
  3494.     dc.b m,end_patt
  3495. p3q: even
  3496.       dc.b m,new_env,trigg,0
  3497.       dc.l bass_anthenv
  3498.     dc.b rest,cr*8,F02,cr,A02,cr,Bb02,cr,A02,q,Bb02,q
  3499.     dc.b G02,cr,C03,cr,G02,cr,C03,cr
  3500.     dc.b F02,cr,A02,cr,Bb02,cr*2,G02,cr,D02,cr,G02,cr*2
  3501.     dc.b F02,cr,A02,cr,Bb02,cr,A02,cr
  3502.     dc.b F02,cr*2,C03,cr*2,Bb02,cr,D03,cr,C03,cr,D03,cr
  3503.     dc.b D03,cr,D03,cr,D03,cr,C03,cr,C03,cr,C03,q,A02,q,G02,cr*2
  3504.     dc.b m,end_patt
  3505. ;;;;;;;;;;;;;;;;;;;;;    KOREA  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3506. song52:
  3507.     dc.l p2r
  3508.       dc.l end_song
  3509.  
  3510. song53:
  3511.     dc.l p3r
  3512.       dc.l end_song
  3513. song54:
  3514.     dc.l p1r
  3515.       dc.l end_song
  3516.  
  3517. p1r: even
  3518.       dc.b m,new_env,trigg,0
  3519.       dc.l piano_anthenv
  3520.     dc.b E05,cr*3,F05,cr,G05,cr*2,E05,cr*2,A05,cr*3,Bb05,cr
  3521.     dc.b C06,cr*2,A05,cr*2,G05,cr*2,F05,cr*2,E05,cr*2,F05,cr*2
  3522.     dc.b G05,cr*6,rest,cr*2,C06,cr*3,Bb05,cr,A05,cr*2,G05,cr*2
  3523.     dc.b F05,cr*2,E05,cr,D05,cr,C05,cr*2,A04,cr*2,C05,cr*2,F05,cr*2
  3524.     dc.b G05,cr,G05,cr,A05,cr*2,F05,cr*4
  3525.       dc.b m,end_patt
  3526.  
  3527. p2r: even
  3528.       dc.b m,new_env,trigg,0
  3529.       dc.l piano_anthenv1
  3530.     dc.b C05,cr*2,B04,cr*2,C05,cr*2,C05,cr*2
  3531.     dc.b F05,cr*2,E05,cr*2,E05,cr*2,F05,cr*2
  3532.     dc.b D05,cr*2,C05,cr*2,C05,cr*2,A04,cr*2
  3533.     dc.b C05,cr*4,E05,cr*2,rest,cr*2,F05,cr*2,E05,cr*2
  3534.     dc.b F05,cr*2,E05,cr*2,D05,cr*2,C05,cr,Bb04,cr
  3535.     dc.b A04,cr*2,A04,cr*2,F04,cr*2,C05,cr*2
  3536.     dc.b D05,cr,D05,cr,E05,cr*2,A04,cr*4
  3537.     dc.b m,end_patt
  3538. p3r: even
  3539.       dc.b m,new_env,trigg,0
  3540.       dc.l bass_anthenv
  3541.     dc.b E02,cr*3,F02,cr,G02,cr*2,E02,cr*2,A02,cr*3,Bb02,cr
  3542.     dc.b C03,cr*2,A02,cr*2,G02,cr*2,F02,cr*2,E02,cr*2,F02,cr*2
  3543.     dc.b G02,cr*6,rest,cr*2,C03,cr*3,Bb02,cr,A02,cr*2,G02,cr*2
  3544.     dc.b F02,cr*2,E02,cr,D02,cr,C02,cr*2,A01,cr*2,C02,cr*2,F02,cr*2
  3545.     dc.b G02,cr,G02,cr,A02,cr*2,F02,cr*4
  3546.     dc.b m,end_patt
  3547. ;;;;;;;;;;;;;;;;;;;;;    MEXICO   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3548. song55:
  3549.     dc.l p2s
  3550.       dc.l end_song
  3551.  
  3552. song56:
  3553.     dc.l p3s
  3554.       dc.l end_song
  3555. song57:
  3556.     dc.l p1s
  3557.       dc.l end_song
  3558.  
  3559. p1s: even
  3560.       dc.b m,new_env,trigg,0
  3561.       dc.l piano_anthenv
  3562.     dc.b F04,cr,A04,q,C05,q*3,C05,cr,C05,q
  3563.     dc.b C05,q*3,C05,q,D05,q,E05,q,F05,q*3,E05,q*3
  3564.     dc.b C05,q*3,A04,cr,F04,q,F04,q*3,A04,cr,A04,q
  3565.     dc.b Bb04,q*3,C05,cr,C05,q,A04,cr,G04,q,F04,q*3
  3566.       dc.b m,end_patt
  3567. p2s: even
  3568.       dc.b m,new_env,trigg,0
  3569.       dc.l piano_anthenv1
  3570.     dc.b rest,q*3,A04,q*3,A04,cr,A04,q,A04,q*3,A04,q,A04,q,A04,q
  3571.     dc.b A04,q*3,A04,q*3,A04,q*3,F04,cr,C04,q,Bb03,q*3,C04,cr,C04,q
  3572.     dc.b D04,q*3,E04,cr,E04,q,C04,cr,Bb03,q,A03,q*3 
  3573.     dc.b m,end_patt
  3574. p3s: even
  3575.       dc.b m,new_env,trigg,0
  3576.       dc.l bass_anthenv
  3577.     dc.b rest,q*3,F03,q*3,C03,cr,C03,q,F03,q*3,F03,q,F03,q,F03,q
  3578.     dc.b F03,q*3,C03,q*3,F03,q*3,C03,cr,C03,q,C03,q*3,C03,cr,C03,q
  3579.     dc.b C03,q*3,C03,cr,C03,q,F03,q*3,F03,q*3
  3580.     dc.b m,end_patt
  3581. ;;;;;;;;;;;;;;;;;;;;;    NORWAY  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3582. song58:
  3583.     dc.l p2t
  3584.       dc.l end_song
  3585.  
  3586. song59:
  3587.     dc.l p3t
  3588.       dc.l end_song
  3589. song60:
  3590.     dc.l p1t
  3591.       dc.l end_song
  3592.  
  3593. p1t: even
  3594.       dc.b m,new_env,trigg,0
  3595.       dc.l piano_anthenv
  3596.     dc.b Bb04,cr,Eb05,q*3,Db05,q,C05,cr,Bb04,cr
  3597.     dc.b Ab04,cr,Bb04,cr,C05,cr,Db05,cr
  3598.     dc.b Eb05,q*3,F05,q,Eb05,cr,Db05,cr,C05,cr*4
  3599.     dc.b F05,q*3,Eb05,q,Db05,cr,C05,cr
  3600.     dc.b Bb04,cr,C05,cr,Db05,cr,Eb05,q*5,F05,q
  3601.     dc.b Db05,cr,G05,cr,Ab05,cr*4
  3602.       dc.b m,end_patt
  3603. p2t: even
  3604.       dc.b m,new_env,trigg,0
  3605.       dc.l piano_anthenv1
  3606.     dc.b rest,cr*8,Ab04,cr,G04,q*3,Db05,q,C05,cr,Bb04,cr
  3607.     dc.b Ab04,cr*4,rest,cr*7,G04,cr,Ab04,cr*2,F04,cr,Bb04,cr
  3608.     dc.b C05,cr*4
  3609.     dc.b m,end_patt
  3610. p3t: even
  3611.       dc.b m,new_env,trigg,0
  3612.       dc.l bass_anthenv
  3613.     dc.b rest,cr*8,F03,cr,Eb03,q*3,Eb02,q,F02,cr,G02,cr
  3614.     dc.b Ab02,cr*4,rest,cr*7,Db03,cr,C03,cr*2,Bb02,cr,Eb03,cr
  3615.     dc.b Ab02,cr*4
  3616.     dc.b m,end_patt
  3617. ;;;;;;;;;;;;;;;;;;;;;    SPAIN   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3618. song61:
  3619.     dc.l p2u
  3620.       dc.l end_song
  3621.  
  3622. song62:
  3623.     dc.l p3u
  3624.       dc.l end_song
  3625. song63:
  3626.     dc.l p1u
  3627.       dc.l end_song
  3628.  
  3629. p1u: even
  3630.       dc.b m,new_env,trigg,0
  3631.       dc.l piano_anthenv
  3632.     dc.b Ab05,cr,Eb05,cr,C06,cr,Ab05,q,Eb06,q
  3633.     dc.b Db06,q,C06,q,Bb05,q,Ab05,q,Ab05,q,G05,q,F05,q,Eb05,q
  3634.     dc.b Ab05,cr,Bb05,cr,C06,q*3,Eb06,q
  3635.     dc.b Db06,q,C06,q,Bb05,q,Ab05,q,G05,cr*2
  3636.     dc.b Ab05,cr,Eb05,cr,C06,cr,Ab05,q,Eb06,q
  3637.     dc.b Db06,q,C06,q,Bb05,q,Ab05,q,Ab05,q,G05,q,F05,q,Eb05,q
  3638.     dc.b Ab05,cr,Bb05,cr,C06,q*3,Eb06,q
  3639.     dc.b Db06,q,C06,q,Bb05,q,Ab05,q,Ab05,cr*2
  3640.       dc.b m,end_patt
  3641. p2u: even
  3642.       dc.b m,new_env,trigg,0
  3643.       dc.l piano_anthenv1
  3644.     dc.b C05,cr,C05,cr,Eb05,cr,C05,cr
  3645.     dc.b F05,cr*2,Eb05,cr,Db05,cr
  3646.     dc.b C05,cr,Db05,cr,Eb05,q*3,C05,q
  3647.     dc.b Ab04,cr,F04,cr,G04,cr*2
  3648.     dc.b C05,cr,C05,cr,Eb05,cr,C05,cr
  3649.     dc.b F05,cr*2,Eb05,cr,Db05,cr
  3650.     dc.b C05,cr,Db05,cr,Eb05,q*3,C05,q
  3651.     dc.b Ab04,cr,G04,cr,Ab04,cr*2
  3652.     dc.b m,end_patt
  3653. p3u: even
  3654.       dc.b m,new_env,trigg,0
  3655.       dc.l bass_anthenv
  3656.     dc.b Ab02,cr,Ab02,cr,Ab02,cr,Ab02,cr
  3657.     dc.b Ab02,q,Bb02,q,C03,q,D03,q,Eb03,cr*2
  3658.     dc.b Ab02,cr,Eb03,cr,Ab02,cr,G02,cr
  3659.     dc.b F02,cr,Db02,cr,Eb02,cr*2
  3660.     dc.b Ab02,cr,Ab02,cr,Ab02,cr,Ab02,cr
  3661.     dc.b Ab02,q,Bb02,q,C03,q,D03,q,Eb03,cr*2
  3662.     dc.b Ab02,cr,Eb03,cr,Ab02,cr,G02,cr
  3663.     dc.b F02,cr,Eb02,cr,Ab02,cr*2
  3664.     dc.b m,end_patt
  3665. ;;;;;;;;;;;;;;;;;;;;;    SWEDEN    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3666. song64:
  3667.     dc.l p2v
  3668.       dc.l end_song
  3669.  
  3670. song65:
  3671.     dc.l p3v
  3672.       dc.l end_song
  3673. song66:
  3674.     dc.l p1v
  3675.       dc.l end_song
  3676.  
  3677. p1v: even
  3678.       dc.b m,new_env,trigg,0
  3679.       dc.l piano_anthenv
  3680.     dc.b F04,q,Bb04,cr,Bb04,q,C05,q,A04,cr,A04,q,Bb04,q
  3681.     dc.b G04,sq*3,F04,sq,G04,q,A04,q,F04,q*3,F04,q
  3682.     dc.b Bb04,sq*3,A04,sq,Bb04,q,C05,q,D05,q,Bb04,q,Eb05,sq*3,D05,sq
  3683.     dc.b C05,cr*2,Bb04,cr,rest,q,F04,q
  3684.     dc.b Bb04,sq*3,A04,sq,Bb04,q,C05,q,D05,q,Bb04,q,Eb05,sq*3,D05,sq
  3685.     dc.b C05,cr*2,Bb04,cr*2
  3686.       dc.b m,end_patt
  3687. p2v: even
  3688.       dc.b m,new_env,trigg,0
  3689.       dc.l piano_anthenv1
  3690.     dc.b C04,q,F04,cr,D04,q,G04,q,G04,cr,F04,q,G04,q
  3691.     dc.b F04,cr,E04,cr,C04,q*3,C04,q,F04,sq*3,F04,sq,F04,q,A04,q
  3692.     dc.b Bb04,q,F04,q,Bb04,sq*3,Bb04,sq,G04,cr,F04,q,Eb04,q
  3693.     dc.b F04,q*3,C04,q,F04,sq*3,F04,sq,F04,q,A04,q
  3694.     dc.b Bb04,q,F04,q,Bb04,sq*3,Bb04,sq,G04,cr,F04,q,Eb04,q
  3695.     dc.b F04,cr*2
  3696.     dc.b m,end_patt
  3697. p3v: even
  3698.       dc.b m,new_env,trigg,0
  3699.       dc.l bass_anthenv
  3700.     dc.b rest,q,D02,cr,G02,q,E02,q,F02,cr,D03,q,G02,q
  3701.     dc.b C03,cr*2,F03,cr,Eb03,cr,D03,sq*3,Eb03,sq,D03,q,C03,q
  3702.     dc.b Bb02,q,Ab02,q,G02,sq*3,F02,sq,Eb02,cr,F02,cr
  3703.     dc.b Bb02,cr,F02,cr,D03,sq*3,Eb03,sq,D03,q,C03,q
  3704.     dc.b Bb02,q,Ab02,q,G02,sq*3,F02,sq,Eb02,cr,F02,cr
  3705.     dc.b Bb02,cr*2
  3706.     dc.b m,end_patt
  3707. ;;;;;;;;;;;;;;;;;;;;;    U.S.A.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3708. song67:
  3709.     dc.l p2w
  3710.       dc.l end_song
  3711.  
  3712. song68:
  3713.     dc.l p3w
  3714.       dc.l end_song
  3715. song69:
  3716.     dc.l p1w
  3717.       dc.l end_song
  3718.  
  3719. p1w: even
  3720.       dc.b m,new_env,trigg,0
  3721.       dc.l piano_anthenv
  3722.     dc.b F05,sq*3,D05,sq,Bb04,cr,D05,cr,F05,cr
  3723.     dc.b Bb05,cr*2,D06,sq*3,C06,sq,Bb05,cr,D05,cr,E05,cr
  3724.     dc.b F05,cr*2,F05,q,F05,q,D06,q*3,C06,q,Bb05,cr
  3725.     dc.b A05,cr*2,G05,q,A05,q,Bb05,cr,Bb05,cr,F05,cr,D05,cr,Bb04,cr*2
  3726.       dc.b m,end_patt
  3727. p2w: even
  3728.       dc.b m,new_env,trigg,0
  3729.       dc.l piano_anthenv1
  3730.     dc.b F05,sq*3,D05,sq,Bb04,cr,Bb04,cr,C05,cr,D05,cr*2,D05,cr
  3731.     dc.b D05,cr,Bb04,cr,C05,cr,A04,cr*3,F05,q*3,Eb05,q,D05,cr
  3732.     dc.b C05,cr*2,Bb04,q,C05,q,D05,cr,D05,cr,D05,cr,Bb04,cr,F04,cr*2
  3733.     dc.b m,end_patt
  3734. p3w: even
  3735.       dc.b m,new_env,trigg,0
  3736.       dc.l bass_anthenv
  3737.     dc.b F03,sq*3,Eb03,sq,Bb02,cr,Bb02,cr,A02,cr,G02,cr*2
  3738.     dc.b Gb02,cr,G02,cr,G02,cr,C03,cr,F02,cr*2,F03,q,F03,q
  3739.     dc.b Bb02,cr*3,F02,cr*3,Bb02,cr,Bb02,cr,F03,cr,D03,cr,Bb02,cr*2
  3740.     dc.b m,end_patt
  3741. ;;;;;;;;;;;;;;;;;;;;;    U.S.S.R  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3742. song70:
  3743.     dc.l p2x
  3744.       dc.l end_song
  3745.  
  3746. song71:
  3747.     dc.l p3x
  3748.       dc.l end_song
  3749. song72:
  3750.     dc.l p1x
  3751.       dc.l end_song
  3752.  
  3753. p1x: even
  3754.       dc.b m,new_env,trigg,0
  3755.       dc.l piano_anthenv
  3756.     dc.b Gb05,cr,B05,cr*2,Gb05,q*3,Ab05,q,Bb05,cr*2,Gb05,q*3,Gb05,q
  3757.     dc.b Ab05,cr*2, Gb05,q*3,E05,q,Gb05,cr*2,B04,q*3,B04,q
  3758.     dc.b Db05,cr*2,Db05,q*3,Eb05,q,E05,cr*2,E05,cr,Gb05,cr
  3759.     dc.b Ab05,cr*2,Bb05,q*3,B05,q,Db06,cr*3,Gb05,cr
  3760.     dc.b B05,cr*2,Gb05,q*3,Ab05,q,Bb05,cr*2,Gb05,cr,Gb05,cr
  3761.     dc.b Ab05,cr*2,Eb05,q*3,F05,q,Gb05,cr*2,Eb05,cr,Eb05,cr
  3762.     dc.b Ab05,cr*2,Gb05,q*3,E05,q,Gb05,cr*2,B04,q*3,B04,q
  3763.     dc.b Db05,cr*2,Db05,q*3,Db05,q,B04,cr*4
  3764.       dc.b m,end_patt
  3765. p2x: even
  3766.       dc.b m,new_env,trigg,0
  3767.       dc.l piano_anthenv1
  3768.     dc.b rest,cr,Eb04,cr*2,Eb04,cr*2,Eb04,cr*2,Eb04,cr*2
  3769.     dc.b B03,cr*2,B03,cr*2,B03,cr*2,Eb03,q*3,Db03,q
  3770.     dc.b E03,cr*2,A03,cr*2,Ab03,cr*2,Db04,cr*2,E04,cr*2
  3771.     dc.b Gb04,q*3,Ab04,q,Bb04,cr*2,Db04,cr*2,Eb04,cr*2
  3772.     dc.b Eb04,cr*2,Gb04,cr*2,Eb04,cr*2,B03,cr*2,B03,cr*2
  3773.     dc.b Bb03,cr*2,Gb03,cr,Gb03,cr,B03,cr*2,Bb03,cr*2
  3774.     dc.b Eb04,cr*2,Gb03,q*3,Gb03,q,Ab03,cr*2,Ab03,q*3,Ab03,q
  3775.     dc.b Gb03,cr*4
  3776.     dc.b m,end_patt
  3777. p3x: even
  3778.       dc.b m,new_env,trigg,0
  3779.       dc.l bass_anthenv
  3780.     dc.b Gb03,cr,B02,cr*2,Gb03,cr*2,Bb02,cr*2,Gb03,cr*2
  3781.     dc.b E03,cr*2,Ab03,cr*2,Eb03,cr*2,B02,q*3,B02,q
  3782.     dc.b Db03,cr*2,Gb03,cr*2,Db03,cr*2,Db03,cr*2,E03,cr*2,Gb03,cr*2
  3783.     dc.b Gb03,cr*2,Gb02,cr*2,B02,cr*2,Gb03,cr*2,Eb03,cr*2,Gb03,cr*2
  3784.     dc.b Ab02,cr*2,Gb02,cr*2,Eb03,cr*2,Eb03,cr,Eb03,cr
  3785.     dc.b E03,cr*2,Gb03,cr*2,B02,cr*2,Eb03,q*3,Eb03,q
  3786.     dc.b Db03,cr*2,Db03,q*3,Db03,q,B02,cr*4
  3787.     dc.b m,end_patt
  3788.  
  3789.  
  3790.  
  3791. bass_anthenv: dc.b 15,t2,15,t2,15,t2,15,t2
  3792.   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
  3793.   dc.b 0,t2,255
  3794. piano_anthenv:    dc.b 15,t3,15,t3,15,t3,15,t3,14,t3
  3795.   dc.b 14,t3,14,t3,14,t3,14,t3,14,t3
  3796.   dc.b 13,t3,13,t3,13,t3,13,t3,13,t3
  3797.   dc.b 13,t3,12,t3,12,t3,12,t3,12,t3
  3798.   dc.b 11,t3,11,t3,11,t3,11,t3,11,t3
  3799.   dc.b 10,t3,10,t3,10,t3,10,t3,10,t3
  3800.   dc.b 9,t3,9,t3,8,t3,8,t3,7,t3,7,t3,6,t3,6,t3,6,t3
  3801.   dc.b 5,t3,4,t3,3,t3,2,t3,1,t3,0,t3,255
  3802. piano_anthenv1:  dc.b 15,t1,15,t1,15,t1,15,t1,14,t1
  3803.   dc.b 14,t1,14,t1,14,t1,14,t1,14,t1
  3804.   dc.b 13,t1,13,t1,13,t1,13,t1,13,t1
  3805.   dc.b 13,t1,12,t1,12,t1,12,t1,12,t1
  3806.   dc.b 11,t1,11,t1,11,t1,11,t1,11,t1
  3807.   dc.b 10,t1,10,t1,10,t1,10,t1,10,t1
  3808.   dc.b 9,t1,9,t1,8,t1,8,t1,7,t1,7,t1,6,t1,6,t1,6,t1
  3809.   dc.b 5,t1,4,t1,3,t1,2,t1,1,t1,0,t1,255
  3810.  
  3811.  
  3812. ?
  3813.  
  3814.  
  3815.  
  3816.  
  3817.  
  3818.  
  3819.  
  3820.