home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Night Shift Amiga / Lowe_NightShiftAmiga.img / ANTHEMS.S < prev    next >
Encoding:
Text File  |  1985-11-20  |  63.9 KB  |  2,833 lines
  1.     
  2. ;                 THE GAMES - SUMMER EDITION    
  3. ;                MUSIC/FX  SOURCE FILES
  4.  
  5. ;      ORIGINAL MUSIC AND DRIVER REMAIN COPYRIGHT D.LOWE  FOR UAMS 
  6. ;          copyright registration  566/12 at PRS/MCA
  7. ;
  8. ;    Dear Monkeys,
  9. ;         The relevent comments etc. concerning using the
  10. ;    driver are all commented in the appropriate places.(I hope)
  11. ;    Most of the seperate event drivers need to access a sample
  12. ;    block which is loaded via an incbin in the MCP driver        
  13. ;    however I have included a load for it in all the seperate
  14. ;    drivers so you can run each one individually for testing
  15. ;    /setting delays etc.When assembling the final versions
  16. ;        of each driver the instruction
  17. ;sb    incbin a:sampleb1.sam...(This is at the very end of the source)
  18. ;    should be deleted from all the seperate events except MCP
  19. ;    You will then need to define the label sb for wherever
  20. ;    you put it in memory.Until you delete the instruction the
  21. ;    assembled code will be app 45k larger than it really is.
  22. ;    I know this sounds rather confusing and if you want  give me a
  23. ;    ring as its easier to explain on the phone.I have left a
  24. ;    short control section on the front of each event driver
  25. ;    so you can run it in devpac2 on its own for whatever reason.
  26. ;
  27. ;    .............DAVE LOWE.....0723 870648
  28. ;
  29.  
  30. select_reg   equ $ffff8800
  31. write_data   equ $ffff8802
  32. end_patt    equ 0
  33. end_song    equ $ffffffff
  34. end_data    equ $ff
  35. new_env       equ 4
  36. new_sound    equ 8
  37. pbend    equ 12
  38. octaves   equ 20
  39. endfx_patt    equ 36
  40. hold        equ 40
  41. holdoff    equ 44
  42. r    equ 48
  43. sweepon    equ 52
  44. sweepoff equ 56
  45. reset equ 60
  46. nop    equ 56
  47. cem     equ 20
  48. up     equ 3
  49. down    equ 2
  50. auto    equ 1
  51. man     equ 0
  52. modon    equ 16
  53. modoff   equ 24
  54. pboff    equ 28
  55. inline   equ 32
  56. rpto    equ $01
  57. rptc    equ $02
  58. trigg    equ 0
  59. notrigg  equ 1
  60.  
  61. ;*******************
  62.  
  63. t1     equ %00001000
  64. n1     equ %00000001
  65. b1     equ %00000000
  66. t2     equ %00010000
  67. n2     equ %00000010
  68. b2     equ %00000000
  69. t3     equ %00100000
  70. n3     equ %00000100
  71. b3     equ %00000000
  72.  
  73. ;       ***********************************
  74. ;  this whole section is a short control section to poke numbers
  75. ;  into the fx buffers to enable you to assemble and run it without   
  76. ;  any interrupt routines etc......delete it when not needed
  77.  
  78.    jsr super
  79. ;    bra it
  80. ;  disable key click for volume control...you probably have your own
  81.     move.b $484,d0        ;routines for keyboard etc.so i've kept
  82.     and.b #$fe,d0        ;this bit in the deletable section
  83.     move.b d0,$484
  84.  
  85.  ; test for screen res
  86.    move.w #4,-(sp)
  87.    trap #14
  88.    addq.l #2,sp
  89.    cmp.w #2,d0
  90.    beq high_res
  91. ; screen to med res
  92.    move.w #1,-(sp)
  93.    move.l #-1,-(sp)
  94.    move.l #-1,-(sp)
  95.    move.w #5,-(sp)
  96.    trap #14
  97.    add.l #12,sp
  98.  
  99. high_res:
  100.    move.w col_byte,d0
  101.    jsr colour
  102.    move.w d0,col_byte
  103.    eori.w #1,d0
  104.    jsr colour
  105.    lea ua_mess,a1
  106.    jsr print
  107.    lea toggle_mess_off,a1
  108.    jsr print
  109.    lea title_mess_pos,a1
  110.    jsr print
  111. it
  112.    jsr select_new_song
  113. call_loop:
  114.  
  115.  
  116.    cmp.w #0,timer3
  117.    beq testkey
  118.    sub.w #1,timer3
  119.    bra nokey
  120.  
  121. testkey:
  122.    cmp.b #$39,$fffc02
  123.    bne nokey
  124. relkey:clr.b $fffc02
  125.    move.w #100,timer3
  126.  
  127.    move.l song_buffer,d0
  128.    addq.l #1,d0
  129.    cmpi.l #26,d0
  130.    bne okay
  131.    move.l #1,d0
  132. okay: move.l d0,song_buffer
  133.    jsr select_new_song
  134.  
  135. nokey:
  136.    jsr interrupt
  137.    jsr sfxdriver
  138.  
  139. ; see if change of toggle required
  140.    cmp.b #$3a,$fffc02
  141.    bne no_change
  142.     jsr kill_ch_loop
  143.     move.w #1,kill_sloop
  144.    tst.w timer4
  145.    bne no_change
  146.  
  147. ; toggle sound fx and print to screen
  148.    tst.w fx_toggle
  149.    bne off
  150.    lea toggle_mess_on,a1
  151.    jsr print
  152.    bra tj1
  153. off:   lea toggle_mess_off,a1
  154.    jsr print
  155. tj1:   move.w #50,timer4
  156.    bchg #0,fx_toggle
  157. no_change:
  158.    tst.w timer4
  159.    beq t4ok
  160.    sub.w #1,timer4
  161. t4ok:
  162.    tst.w fx_toggle
  163.    bne toggle_ok
  164.    bra call_loop
  165.  
  166. toggle_ok:
  167. ;   sample fx control
  168.    subi.w #1,timer
  169.    cmpi.w #0,timer
  170.    bne call_loop1
  171.    move.l yyy,d0
  172.    addi.l #1,d0
  173.    cmp.l max_fx,d0
  174.    bne jjj
  175.    move.l #1,d0
  176. jjj: ; move.l d0,fx_buffer
  177.    move.l d0,yyy
  178.    move.w #400,timer
  179.    bra call_loop
  180. call_loop1:
  181.  
  182. ; chip fx control
  183.    subi.w #1,timer1
  184.    cmpi.w #0,timer1
  185.    bne call_loop
  186.    move.l yyy1,d0
  187.    addi.l #1,d0
  188.    cmpi.l #2,d0
  189.    bne jjj1
  190.  
  191.    move.l #1,d0
  192.  
  193. jjj1:
  194.     ;jsr kill_ch_loop 
  195.   ;move.l d0,effect_number
  196.    move.l d0,yyy1
  197.    move.w #2000,timer1
  198.    bra call_loop
  199.  even
  200. timer: dc.w 60
  201. yyy: dc.l 0
  202. timer1: dc.w 10
  203. yyy1: dc.l 0 
  204. timer3: dc.w 0
  205. fx_toggle: dc.w 0
  206. timer4: dc.w 0
  207. col_byte: dc.w -1
  208. print_store: dc.l title_mess
  209. ; +++++++++++
  210. print:
  211. ; a1 is pointer to data
  212. ploop:
  213.  move.b (a1)+,d0
  214.  cmpi.b #255,d0
  215.  bne dop
  216.  rts
  217. dop: jsr print_sub
  218.    bra ploop
  219. print2:
  220.  clr.l d3
  221.  move.w #13,d3
  222. ploop2:
  223.  move.b (a1)+,d0
  224.  jsr print_sub
  225.  dbra d3,ploop2
  226.  rts
  227. dop2: jsr print_sub
  228.    bra ploop2
  229.  
  230.  
  231.  ; character to print in d0
  232. print_sub:
  233.   move.w d0,-(sp) ; value to print
  234.   move.w #2,-(sp)
  235.   trap #1
  236.   addq.l #4,sp
  237.   rts
  238.  
  239.  
  240. ua_mess:
  241.  dc.b 27,'b',0,27,'c',1
  242.  
  243.  
  244.  dc.b 27,'E'     ; CLEAR SCREEN
  245.  dc.b 27,'Y',32+7,32+32
  246.              dc.b ' UNCLE~ART '
  247.  dc.b 27,'Y',32+9,32+26
  248.          dc.b 'Computer Music Specialists'
  249.  dc.b 27,'Y',32+10,32+30,' Tel:0723 870648 '
  250.  
  251.  
  252.  
  253.  dc.b 27,'Y',32+16,32+6
  254.  dc.b '             Caps Lock to toggle FX/V for MUSIC volume'
  255.         dc.b 0
  256. toggle_mess_off:
  257.  dc.b 27,'Y',32+18,32+30,'»»»» FX OFF ««««'
  258.  
  259.  dc.b 27,'Y',32+19,32+30,'     FX  ON     '
  260.  
  261.  dc.b 255
  262. toggle_mess_on:
  263.  dc.b 27,'Y',32+18,32+30,'     FX OFF     '
  264.  
  265.  dc.b 27,'Y',32+19,32+30,'»»»» FX  ON ««««'
  266.  dc.b 255
  267.  
  268. title_mess_pos:
  269.  dc.b 27,'Y',32+15,32+20
  270. title_mess:
  271.  dc.b  '  *    THE GAMES - SUMMER EDITION    *'
  272.  
  273.  dc.b 27,'Y',32+13,32+14
  274.  dc.b ' '
  275.  dc.b 27,'f'
  276.  dc.b 255,0
  277.     even
  278. colour:
  279.   move.w d0,-(sp)
  280.   move.w #0,-(sp)
  281.   move.w #7,-(sp)
  282.   trap #14
  283.   add.w #6,sp
  284.   rts
  285. ;            END OF CONTROL(deletable)SECTION
  286. ;        *********************************
  287.  
  288. ;          **********************************
  289. ;          VARIABLES TO BE WRITTEN TO BY PROGRAMMER
  290. ;             DURING RUN TIME    
  291.  
  292. fx_disable:    dc.w 0     ;fx disable flag  1 = disable(sample and chip)
  293. music_disable:  dc.w 0   ;music disable       1=disable
  294. kill_sloop:    dc.w 0   ; a 1 here will kill any looped sample fx
  295.  
  296.  
  297. fx_buffer:     dc.l 0     ;sample fx number required..see lists  
  298. effect_number:  dc.l 0   ;chip effect number required..see lists 
  299. song_buffer:     dc.l 1   ;piece of music required (leave on 1)
  300. curr_comp:    dc.b 5   ;music volume level..0-15 in reverse
  301.              ;ie..  0  =  full volume
  302.              ;      15 = volume off
  303.              ;this is to enable the programmer to align
  304.              ;the music volume with the samples..on the
  305.              ;ST sound chip (and I use the term loosely)
  306.              ;the samples have to be slightly down to
  307.              ;stop distortion.We have preset it at 5 as
  308.              ;this seems an overall good level.Further
  309.              ;down in the code is a "v" key check to
  310.              ;adjust the level during run time.This can
  311.              ;be removed or left as an option for the player.
  312.           even
  313. ;        **************************************
  314. ;           READ ONLY FLAGS FOR PROGRAMMER DURING RUN TIME
  315.  
  316. sam_speed     dc.l 0  ;current sample speed,can be 
  317.             ;used to determine which delays to use in program
  318.             ;when sample in progress..see lists for 
  319.             ;sample speeds
  320.  
  321. sample_flag:    dc.w 0  ;can be used to determine when sample is running. 
  322.             ;1 = sample running on timer A
  323.  
  324. ;         **********************************
  325.  
  326. ;     all internal flags/variables used internally by the driver 
  327.  
  328. sam_end dc.l 0
  329. sam_start dc.l 0
  330.  
  331. chip_fx_on dc.w 0
  332. fxbuffer: dc.l 0,0
  333. backup_buffer: dc.l 0
  334. fxcount: dc.b 0
  335. fx_patt_f: dc.w 0
  336. fx_patt_point: dc.l 0
  337. fx_int: dc.l 0
  338. curr_fx_fin: dc.w 0
  339. duck dc.b 0,0
  340. curr_mix dc.b %11111111,0
  341. mod2_flag dc.w 0
  342. altpf: dc.w 0
  343. temp: dc.l 0
  344. which_chip dc.l 0
  345. 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
  346. fx_flag:    dc.w %0000000000000000
  347. curr_chann:    dc.w 0
  348. start_patt: dc.b m,end_patt
  349. start_song: dc.l $ffffffff
  350. current_speed    dc.l 0
  351. vol_count:    dc.w 6
  352. hold_val_p:    dc.w 0,0
  353. sfxflag        dc.w 0
  354. nswf        dc.b 0
  355. nf        dc.b 0
  356. sweep_speed    dc.b 0
  357. sweep_speed_reset    dc.b 0
  358. sweep_mode    dc.b 0,0,0,0,0,0,0,0,0,0
  359. ; ******************************
  360.  
  361. ;  subroutine to kill chip...does not save registers
  362.  
  363. ; call here to kill all three channels
  364. kill_chip:
  365.     move.b #13,select_reg
  366.     move.b #0,write_data
  367.     move.b #12,select_reg
  368.     move.b #0,write_data
  369.     move.b #11,select_reg
  370.     move.b #0,write_data
  371.     move.b #10,select_reg
  372.     move.b #0,write_data
  373.     move.b #9,select_reg
  374.     move.b #0,write_data
  375.     move.b #8,select_reg
  376.     move.b #0,write_data
  377.     move.b #7,select_reg
  378.     move.b #0,write_data
  379.     move.b #6,select_reg
  380.     move.b #0,write_data
  381.     move.b #5,select_reg
  382.     move.b #0,write_data
  383.     move.b #4,select_reg
  384.     move.b #0,write_data
  385.     move.b #3,select_reg
  386.     move.b #0,write_data
  387.     move.b #2,select_reg
  388.     move.b #0,write_data
  389.     move.b #1,select_reg
  390.     move.b #0,write_data
  391.     move.b #0,select_reg
  392.     move.b #0,write_data
  393.  
  394. kill_mixer
  395.    move.b #7,select_reg
  396. ; turn mixer off
  397.    move.b #%11111111,write_data
  398.     move.b #%11111111,curr_mix
  399.    rts
  400. ; *************************************
  401. ;  subroutine to kill any looped ie (continous) fx
  402. kill_ch_loop:
  403.     jsr kill_chip
  404.     clr.l effect_number
  405.     clr.w fx_flag
  406.     rts
  407. ;  ********************************
  408.  
  409.  ; song selection subroutine...call here after poking number of required
  410. ;    piece into song_buffer
  411.  
  412. select_new_song:
  413.  jsr kill_chip 
  414. ; lea pr,a0    ;protection device
  415. ;  cmp.b #8,28(a0)    
  416. ; bne control_char
  417.  move.l #74,d0
  418.  lea vars1,a0
  419. clear_loop:
  420.  move.w #0,(a0)+
  421.  dbra d0,clear_loop
  422.  clr.l backup_buffer
  423.  clr.w effect_number
  424. ; clr.w music_disable
  425.  clr.b fxcount
  426.  clr.l d0
  427.  move.l song_buffer,d1
  428.  add d1,d0
  429.  add d1,d0
  430.  add d1,d0
  431.  add d1,d0
  432.  add d1,d0
  433.  add d1,d0
  434.  add d1,d0
  435.  add d1,d0
  436.  add d1,d0
  437.  add d1,d0
  438.  add d1,d0
  439.  add d1,d0
  440.  add d1,d0
  441.  add d1,d0
  442.  add d1,d0
  443.  add d1,d0
  444.  lea song_table-16,a1
  445.  add.l d0,a1 
  446.  move.l (a1)+,wsong1 
  447.   move.l (a1)+,wsong2 
  448.   move.l (a1)+,wsong3
  449.   move.l (a1),current_speed
  450.   move.l #start_patt,pattr1
  451.   move.l #start_patt,pattr2
  452.   move.l #start_patt,pattr3
  453.   move.l #start_song,songr1
  454.   move.l #start_song,songr2
  455.   move.l #start_song,songr3
  456.   move.w #0,intc1
  457.   move.w #0,intc2
  458.   move.w #0,intc3
  459.   rts
  460. ; **************************************
  461. ; call here on 50hz interrupt to play music/samples and fx
  462. ; to play sample  place number from included lists into..fx_buffer
  463. ; to play chip fx place number from included lists into..effect_number
  464. ; to select which piece of music place number from included
  465. ; list into....song_buffer and call select_new_song
  466. ; to disable music place a 1 into music_disable/0 to renable
  467. ; to disable samples/fx place a 1 into fx_disable/0 to renable
  468. ; see line further down  for music volume control
  469. ; there is no need to disable the 50hz interrupt when using the
  470. ; above functions
  471.  
  472. sfxdriver:
  473.     movem.l a0-a5/d0-d7,-(a7)
  474.     jsr driver
  475.     movem.l (a7)+,a0-a5/d0-d7
  476.      rts    ;you probably need to change this to rte when running
  477.         ;it from the vbi
  478.  
  479. ; *************************************
  480. driver:
  481.    tst.w fx_disable
  482.    bne mdriver   
  483.   tst.l fx_buffer 
  484.     bne set_up_s
  485.    tst.w fx_patt_f
  486.    bne fx_in_use
  487.   bra mdriver 
  488.   bra mdriver 
  489. set_up_s
  490.    clr.w chip_fx_on
  491.    clr.w kill_sloop
  492.   move.l fx_buffer,d0
  493.   add d0,d0
  494.   add d0,d0  
  495.   move.l #patt_table,a1
  496.   move.l (a1,d0),a2 
  497. set_up_fx:  move.l (a2)+,a1 
  498.   move.l (a2)+,fx_int 
  499.   move.l a2,fx_patt_point
  500.   clr.w curr_fx_fin
  501.   move.l (a1)+,sam_speed
  502.   move.l (a1)+,sam_start
  503.   move.l (a1)+,sam_end
  504.   move.l #0,fx_buffer
  505.   move.w #1,fx_patt_f 
  506.   jsr main_program
  507.     move.w #1,sample_flag
  508.  bra mdriver 
  509. fx_in_use: tst.w curr_fx_fin 
  510.   beq mdriver 
  511.   move.l fx_patt_point,a2
  512.   cmpi.l #255,(a2) 
  513.   bne check_delay
  514.     addq.l #4,a2
  515.     cmpi.l #0,(a2)
  516.     beq no_samr
  517.     tst.w kill_sloop
  518.     bne no_samr  
  519.     move.l (a2),fx_buffer
  520.     bra set_up_s
  521.  
  522. no_samr
  523.   clr.w fx_patt_f
  524.  move.w #0,sample_flag
  525.  jsr kill_mixer
  526.   beq mdriver
  527.  move.w backup_buffer,effect_number 
  528.   move.w backup_buffer,effect_number
  529.   bra mdriver
  530. check_delay:
  531.   tst.l fx_int
  532.   beq set_up_fx
  533.   sub.l #1,fx_int
  534.  bra mdriver 
  535.  
  536. clear_chip:rts
  537. main_program:
  538.  jsr kill_chip
  539.  move.l sam_speed,d0
  540.  ext.w d0
  541.  subQ.l #2,d0
  542.  lsl.w #1,d0
  543.  move.l sam_start(pc),sample+2 
  544.  lea speeds(pc),a0
  545.  move.l #interupt,$134 
  546.  move.w 0(a0,d0.w),d0
  547.  move.b d0,$fffa19 
  548.  lsr.w #8,d0
  549.  move.b d0,$fffa1f
  550.  move.b #$20,$fffa13 
  551.   move.b #$20,$ffffa07 
  552.  rts
  553. interupt: ori.w #$0700,sr 
  554.  movem.l d0-d2/a0-a2,-(sp) 
  555.  clr.w d0 
  556.  move.l sam_end,a1
  557.  lea sample+2,a2
  558. sample: move.b $00000000,d0 
  559.  addQ.l #1,(a2) 
  560.  and.b #$fc,d0
  561.  lea chanel_a,a0
  562.  move.w #$0900,d1 
  563.  move.w #$0a00,d2 
  564.  move.b 1(a0,d0.w),d1
  565.  move.b 3(a0,d0.w),d2
  566.  lea $fff8800,a0 
  567.  movep.w d1,0(a0)
  568.  movep.w d2,0(a0) 
  569.  cmpa.l (a2),a1 
  570.  blt.s stop_interupt
  571.  movem.l (sp)+,d0-d2/a0-a2 
  572.  bclr #5,$fffa0f 
  573.  rte 
  574. stop_interupt: bclr #5,$fffa19 
  575.  bclr #5,$fffa07 
  576.  movem.l (sp)+,d0-d2/a0-a2 
  577.  bclr #5,$fffa0f 
  578.  move.w #1,curr_fx_fin
  579.  clr.b duck
  580.  rte
  581. super:  
  582.    move sr,d0
  583.    andi #$2000,d0
  584.    bne coldst
  585.    clr.l -(sp)
  586.    move.w #$20,-(sp)
  587.    trap #1
  588.    add.l #6,sp
  589.    lea temp,a1
  590.    move.l d0,(a1)
  591. coldst:   rts
  592. user:
  593.    move.l temp,-(sp)
  594.    move.w #$20,-(sp)
  595.    trap #1
  596.    add.l #6,sp
  597.    rts
  598. interrupt:  moveq #4,d1
  599. wait2:  move.l $4ba,d6
  600. wait:  cmp.l $4ba,d6
  601.    beq wait
  602.    subq #1,d1
  603.    bne wait2
  604.    rts
  605.  
  606. mdriver: 
  607.   tst.w fx_disable
  608.   bne play_music 
  609.     move.l effect_number,d0
  610.     clr.l effect_number
  611.  
  612.  
  613.     cmpi.l #0,d0    
  614.     beq play_music
  615.     clr.b nswf
  616.  
  617.     add d0,d0
  618.     add d0,d0
  619.     add d0,d0
  620.     
  621.     lea chfx_table-8,a0
  622.     move.l (a0,d0),a1    
  623.     cmpa  #0,a1
  624.     beq single_chan
  625. ;    move.w #1,sfxflag    
  626. ;    bra double_fx 
  627.  
  628.  
  629. single_chan:
  630.     addq.l #4,a0
  631.     move.l (a0,d0),a1    
  632.     move.w #0,sfxflag
  633. double_fx:
  634.     btst #0,fx_flag+1
  635.     bne checkfx2
  636. use1    move.l a1,fxpattr1
  637.     bset #0,fx_flag+1
  638.     bra play_music
  639. checkfx2: btst #1,fx_flag+1
  640.     bne checkfx3    
  641.     move.l a1,fxpattr2
  642.     bset #1,fx_flag+1
  643.     bra play_music
  644. checkfx3: btst #2,fx_flag+1
  645.     bne use1
  646.     move.l a1,fxpattr3
  647.     bset #2,fx_flag+1    
  648. play_music: 
  649.  
  650.     cmp.w #0,sfxflag
  651.     bne single_chan
  652.  
  653.  
  654.     move.w #1,curr_chann
  655.     move.l #select_reg,a4
  656.     move.l #curr_mix,a5
  657.     tst.w sample_flag    
  658.     beq do1    
  659.     move.l #no_reg,a4
  660. do1: 
  661.   lea vars1,a0 
  662.     btst.b #0,fx_flag+1
  663.     beq do1music
  664.     lea fxvars1,a0
  665.  moveq.l #0,d0 
  666.   moveq.l #1,d1 
  667.   moveq.l #8,d2 
  668.  move.b #%11110110,d7
  669.     jsr check_count_1
  670.     tst.w music_disable
  671.     bne chan2
  672.     move.l #no_reg,a4
  673.     move.l #no_reg,a5
  674.      lea vars1,a0 
  675.     jsr check_count_1
  676.     bra chan2
  677. do1music:
  678.     tst.w music_disable
  679.     bne chan2
  680.   moveq.l #0,d0 
  681.   moveq.l #1,d1 
  682.   moveq.l #8,d2 
  683.   move.b #%11110110,d7
  684.   jsr check_count_1
  685. chan2:
  686.     move.w #2,curr_chann
  687.   move.l #select_reg,a4
  688.     move.l #curr_mix,a5
  689.     tst.w sample_flag    
  690.     beq do2    
  691.     move.l #no_reg,a4
  692. do2  lea vars2,a0
  693.     btst.b #1,fx_flag+1
  694.     beq do2music
  695.     lea fxvars2,a0
  696.   moveq.l #2,d0
  697.   moveq.l #3,d1
  698.    moveq.l #9,d2
  699.    move.b #%11101101,d7
  700.     jsr check_count_1
  701.     tst.w music_disable
  702.     bne chan3
  703.     move.l #no_reg,a4
  704.     move.l #no_reg,a5
  705.   lea vars2,a0
  706.     jsr check_count_1
  707.     bra chan3
  708. do2music:
  709.     tst.w music_disable
  710.     bne chan3
  711.    moveq.l #2,d0
  712.    moveq.l #3,d1
  713.    moveq.l #9,d2
  714.    move.b #%11101101,d7
  715.    jsr check_count_1
  716. chan3:
  717.     move.w #4,curr_chann
  718.     move.l #select_reg,a4
  719.     move.l #curr_mix,a5
  720.     tst.w sample_flag    
  721.     beq do3    
  722.     move.l #no_reg,a4
  723. do3   lea vars3,a0
  724.     btst.b #2,fx_flag+1
  725.     beq do3music
  726.     lea fxvars3,a0
  727.    moveq.l #4,d0
  728.    moveq.l #5,d1
  729.    moveq.l #10,d2
  730.    move.b #%11011011,d7
  731.     jsr check_count_1
  732.     tst.w music_disable
  733.     bne fin3
  734.     move.l #no_reg,a4
  735.     move.l #no_reg,a5
  736.   lea vars3,a0
  737.     jsr check_count_1
  738. fin3    rts
  739. do3music:
  740.     tst.w music_disable
  741.     beq dochan2
  742.     rts
  743. dochan2:
  744.    moveq.l #4,d0
  745.    moveq.l #5,d1
  746.    moveq.l #10,d2
  747.    move.b #%11011011,d7
  748.    jsr check_count_1
  749.    rts
  750. process_data:
  751. get_new_patt:  move.l 12(a0),a1 
  752.    cmpi.b #end_song,(a1) 
  753.    bne get_patt_a 
  754.    move.l 16(a0),12(a0) 
  755.    move.l 12(a0),a1 
  756. get_patt_a:
  757. song_cont_ret:
  758.    move.l (a1),4(a0) 
  759.    addq.l #4,a1
  760.    move.l a1,12(a0)
  761.    move.w #1,(a0)
  762.    bra get_new_note
  763. check_count_1:  tst.w 2(a0) 
  764.    beQ get_new_note 
  765.    move.w #0,altpf 
  766.    subq.w #1,2(a0) 
  767.    move.w 28(a0),d6 
  768.    tst.b 26(a0) 
  769.    beq octaves_on
  770.    tst.w 48(a0)
  771.    beq contbend
  772.    subq #1,48(a0)
  773.    bra octaves_on
  774. contbend:  addq #1,altpf  
  775.    clr.w d4
  776.    move.b 27(a0),d4 
  777.    move.w 42(a0),d5 
  778.    cmpi.b #2,26(a0) 
  779.    beq pbup
  780.    sub.w d4,d6
  781.    cmp.w d6,d5
  782.    bcs octaves_on
  783.    bra fbend
  784. pbup:  add.w d4,d6
  785.    cmp.w d6,d5
  786.    bcc octaves_on
  787. fbend:  move.w d5,d6
  788.    clr.b 26(a0) 
  789. octaves_on:
  790.    cmpi.b #5,38(a0) 
  791.    bls ch_mod_on 
  792.    addq.b #1,altpf
  793.    cmpi.b #8,38(a0) 
  794.    bcc upoct
  795.    asl #1,d6  
  796.    addq.b #1,38(a0) 
  797.    bra send_altered_pitch
  798. upoct:  asr #1,d6
  799.    addq.b #1,38(a0)
  800.    cmpi.b #10,38(a0)
  801.    bne send_altered_pitch
  802.    move.b #6,38(a0) 
  803.    bra send_altered_pitch
  804. ch_mod_on:
  805.    tst.b 38(a0) 
  806.    beq send_altered_pitch 
  807.    tst.w 44(a0) 
  808.    beq check_speed
  809.    subq #1,44(a0)
  810.    bra send_altered_pitch
  811. check_speed:  tst.b (a0)
  812.    beq contmod
  813.    subq.b #1,(a0)
  814.    bra send_altered_pitch
  815. contmod:
  816.    move.b 1(a0),(a0) 
  817.    addq.b #1,altpf 
  818.    cmpi.b #3,38(a0)
  819.    bcc addmod
  820.    move.w 34(a0),d4
  821.    sub.w d4,d6 
  822.    addq.b #1,38(a0) 
  823.    bra send_altered_pitch
  824. addmod:  move.w 36(a0),d4
  825.    add.w d4,d6
  826.    addq.b #1,38(a0)
  827.    cmpi.b #5,38(a0)
  828.    bne send_altered_pitch
  829.    move.b #1,38(a0) 
  830. send_altered_pitch: tst.w (altpf)
  831.    beq send_env
  832.    move.w d6,28(a0)
  833.    move.b d1,(a4)
  834.    move.b 28(a0),2(a4)
  835.    move.b d0,(a4)
  836.    move.b 29(a0),2(a4)
  837. send_env:  
  838.    tst.w hold_val_p
  839.     beq no_hold
  840.     move.b hold_val_p,(a4)
  841.     move.b hold_val_p+1,2(a4)
  842. no_hold:
  843.    move.l 8(a0),a2
  844.    cmpi.b #255,(a2) 
  845.    bne more_env
  846.     sub.l #2,a2
  847. more_env:
  848.     move.w fx_flag,d4
  849.     and.w curr_chann,d4    
  850.     cmpi.w #0,d4
  851.     beq music_only
  852.  
  853. ;  sort envelope reg and values
  854.    move.b d2,(a4);   select reg
  855.    move.b (a2)+,d5
  856.    move.b d5,2(a4)    ;send val
  857.  
  858. ; sort mixer settings 
  859.    move.b #7,(a4) 
  860.    and.b d7,(a5)
  861.    move.b (a2)+,d2
  862.     cmpi.w #1,d4
  863.     beq cont_env
  864.     asl.b #1,d2
  865.     cmpi.w #2,d4
  866.     beq cont_env 
  867.     asl.b #1,d2
  868. cont_env:
  869.    or.b d2,(a5)
  870.    move.b (a5),2(a4)
  871.    move.l a2,8(a0)  
  872. no_more_envelope: bra check_sweep
  873. music_only:
  874.   cmp.b #$2f,$fffc02    ; check `v` key for music volume change
  875.     bne no_vol_change    
  876.     subq.w #1,vol_count
  877.     tst.w vol_count
  878.     bne no_vol_change
  879.     move.w #50,vol_count    
  880.     subq.b #1,curr_comp
  881.     bcc no_vol_change
  882.     move.b #13,curr_comp
  883. no_vol_change
  884.    move.b d2,(a4)
  885.    move.b (a2)+,d5
  886.    sub.b curr_comp,d5 
  887.    move.b d5,2(a4) 
  888.    move.b #7,(a4) 
  889.    and.b d7,(a5)
  890.    move.b (a2)+,d2
  891.    or.b d2,(a5)
  892.    move.b (a5),2(a4)
  893.    move.l a2,8(a0) 
  894.  
  895. ;  check for sweep
  896. check_sweep
  897.  
  898.  
  899. sweep_noise
  900. ;         test flag
  901.     tst.b nswf
  902.     beq no_sweep
  903. ;  test speed
  904.     tst.b sweep_speed
  905.     beq sweep_time
  906.     sub.b #1,sweep_speed
  907.     rts
  908. sweep_time
  909. ;  reset speed
  910.     move.b sweep_speed_reset,sweep_speed
  911.     move.b nf,d6    ;get rate
  912.     cmp.b #1,sweep_mode
  913.     beq    add_sweep
  914. ; subtract rate    
  915.     sub.b nswf,d6    
  916.     cmp.b #0,d6
  917.     bne send_sweep
  918.     move.b #1,sweep_mode
  919.     bra send_sweep
  920. add_sweep
  921.     add.b nswf,d6
  922.     cmp.b #30,d6    
  923.     bne send_sweep
  924.     move.b #2,sweep_mode
  925.  
  926. send_sweep
  927.     move.b #6,(a4)
  928.     move.b d6,2(a4)
  929.     move.b d6,nf
  930. no_sweep
  931.      rts
  932. get_new_note: move.l 4(a0),a1
  933.    move.w 46(a0),44(a0)
  934. control_ret:
  935.    clr.l d3
  936.  
  937.    move.b (a1)+,d3    ;data from patt to d3 
  938.    cmpi.b #m,d3        ;check marker  
  939.    beq control_char 
  940.    cmpi.b #253,d3
  941.    beq do_rest
  942. legal_note: 
  943.  
  944.     tst.b    78(a0)    ;check for retrigger
  945.     bne no_re_trigg
  946.     move.l 20(a0),8(a0) 
  947. no_re_trigg:
  948.    jsr send_env
  949.  
  950.  
  951.  ; send note pitch to chip
  952.     ;d3 holds note number
  953.     lea note_table,a2
  954.     add.l d3,a2
  955.     move.b (a2)+,d3
  956.  
  957.    move.b d1,(a4)    ;lo 
  958.    move.b d3,2(a4) 
  959.    move.b d3,28(a0)     ;pitch val in d3 word
  960.    move.b d0,(a4)    ;hi
  961.  
  962.    move.b (a2),d3   
  963.  
  964.     
  965.    move.b d3,29(a0) 
  966.    move.b d3,2(a4)
  967.  
  968. ; store int count
  969. store_count:
  970.    move.b (a1)+,d3
  971.     move.l current_speed,a2
  972.     add.l d3,a2
  973.     move.w (a2),d3
  974.     move.w d3,2(a0)
  975. in_line_ret 
  976.    move.l a1,4(a0)    ;store patt pointer
  977. reset_ret 
  978.    rts
  979. do_rest:
  980.    move.b d2,(a4)
  981.    clr.b 2(a4) 
  982.    move.l #restenv,8(a0)
  983.     bra store_count 
  984.  
  985. restenv:  dc.b 0,0,255
  986.    even
  987. control_char:
  988.    move.b (a1),d3 
  989.   move.l #jumptable,a2
  990.   move.l (a2,d3),a3
  991.   jmp (a3)
  992. jumptable:
  993.    dc.l get_new_patt
  994.    dc.l get_env
  995.    dc.l do_sound
  996.    dc.l check_pbend
  997.    dc.l modulation
  998.    dc.l set_octaves
  999.    dc.l do_modoff
  1000.    dc.l do_bend_off
  1001.    dc.l do_inline
  1002.    dc.l do_end_fx
  1003.    dc.l hold_val
  1004.    dc.l do_hold_off
  1005.    dc.l do_repeat
  1006.    dc.l do_sweep
  1007.    dc.l sweep_off
  1008.    dc.l do_reset
  1009. get_env:  addq.l #1,a1
  1010.     move.b (a1),78(a0)    ;env retrigg flag
  1011.     addq.l #2,a1
  1012.    move.l (a1),20(a0)    ;reset 
  1013.    move.l (a1),8(a0)    ;current 
  1014.    addq.l #4,a1  
  1015.    bra control_ret
  1016. do_sound:
  1017.    nop     
  1018.    nop 
  1019. check_pbend:
  1020.   addq.l #1,a1
  1021.   move.w (a1)+,26(a0) 
  1022.   move.w (a1)+,42(a0) 
  1023.   move.w (a1)+,48(a0) 
  1024.   bra control_ret
  1025. modulation:
  1026.   addq.l #1,a1
  1027.   move.w (a1)+,(a0)
  1028.   move.l (a1)+,34(a0) 
  1029.   move.w (a1),44(a0) 
  1030.   move.w (a1)+,46(a0) 
  1031.   move.b #2,38(a0) 
  1032.   bra control_ret
  1033. set_octaves:
  1034.   addq.l #1,a1
  1035.   move.b #9,38(a0) 
  1036.   bra control_ret
  1037. do_modoff:  clr.b 38(a0)
  1038.   addq.l #1,a1
  1039.   bra control_ret
  1040. do_bend_off: addq.l #1,a1
  1041.   clr.b 26(a0)
  1042.   bra control_ret
  1043. do_inline:  addq.l #1,a1
  1044. in_loop:
  1045.   cmpi.b #255,(a1)
  1046.   beq fin_in
  1047.   cmpi.b #254,(a1)
  1048.   beq fin_in1
  1049.   move.b (a1)+,(a4) 
  1050.   move.b (a1)+,2(a4)
  1051.   bra in_loop
  1052. fin_in:
  1053.   addq.l #2,a1 
  1054.   bra control_ret
  1055. fin_in1
  1056.   addq.l #2,a1
  1057.  bra in_line_ret   ;    finish this channel
  1058.  
  1059. hold_val:
  1060.     addq.l #1,a1
  1061.     move.w (a1)+,hold_val_p
  1062.     bra control_ret
  1063. do_hold_off:
  1064.     move.w #0,hold_val_p
  1065.     addq #1,a1
  1066.     bra control_ret
  1067.  
  1068. do_repeat    ;  chip
  1069.     addq #1,a1
  1070.  
  1071.     move.l (a1)+,d3
  1072.     move.l  d3,a1
  1073.     bra control_ret
  1074. do_sweep
  1075.     addq #1,a1
  1076.     move.b (a1)+,nswf
  1077.     move.b (a1),sweep_speed
  1078.     move.b (a1)+,sweep_speed_reset
  1079.     move.b #1,sweep_mode
  1080.     bra control_ret
  1081. sweep_off
  1082.     clr.b    nswf
  1083.     addq #1,a1
  1084.     bra control_ret
  1085.  
  1086. do_reset
  1087.     jsr select_new_song
  1088.     bra reset_ret
  1089.  
  1090.  
  1091.  
  1092. do_end_fx:
  1093.  
  1094.    move.b d2,(a4)    ;vol to 0
  1095.    move.b #0,2(a4) 
  1096.  
  1097.     cmpi.w #1,curr_chann    
  1098.     bne efx2
  1099.     bclr.b #0,fx_flag+1
  1100.     move.l #13,d0
  1101. clear_loop1:    move.l #0,(a0)+    
  1102.     dbra d0,clear_loop1
  1103.     rts 
  1104. efx2:    cmpi.w #2,curr_chann    
  1105.     bne efx3
  1106.     bclr.b #1,fx_flag+1
  1107.     move.l #13,d0
  1108. clear_loop2:    move.l #0,(a0)+    
  1109.     dbra d0,clear_loop2
  1110.     rts
  1111. efx3:    bclr.b #2,fx_flag+1
  1112.     move.l #13,d0
  1113. clear_loop3:    move.l #0,(a0)+    
  1114.     dbra d0,clear_loop3
  1115.     rts
  1116.    even
  1117. vars1:
  1118.    dc.w 0  
  1119. intc1:  dc.w 0
  1120. pattr1:  dc.l 0
  1121.    dc.l 0
  1122. songr1:  dc.l 0
  1123. wsong1:  dc.l 0
  1124.    dc.l 0
  1125.    dc.b 0,0
  1126.    dc.b 0,0
  1127.    dc.w 0
  1128.    dc.l 0
  1129.    dc.l 0
  1130.    dc.b 0,0
  1131.    dc.w 0
  1132.    dc.w 0
  1133.    dc.w 0
  1134.    dc.w 0
  1135.    dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1136.  
  1137. vars2:
  1138.    dc.w 0
  1139. intc2:  dc.w 0
  1140. pattr2:  dc.l 0
  1141.    dc.l 0
  1142. songr2:  dc.l 0
  1143. wsong2:  dc.l 0
  1144.    dc.l 0
  1145.    dc.b 0,0
  1146.    dc.b 0,0
  1147.    dc.w 0
  1148.    dc.l 0
  1149.    dc.l 0
  1150.    dc.b 0,0
  1151.    dc.w 0
  1152.    dc.w 0
  1153.    dc.w 0
  1154.    dc.w 0
  1155.    dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0    ;+78
  1156. vars3:
  1157.    dc.w 0
  1158. intc3:   dc.w 0
  1159. pattr3:  dc.l 0
  1160.    dc.l 0
  1161. songr3:  dc.l 0
  1162. wsong3:  dc.l 0
  1163.    dc.l 0
  1164.    dc.b 0,0
  1165.    dc.b 0,0
  1166.    dc.w 0
  1167.    dc.l 0
  1168.    dc.l 0
  1169.    dc.b 0,0
  1170.    dc.w 0
  1171.    dc.w 0
  1172.    dc.w 0
  1173.    dc.w 0
  1174.    dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1175. fxvars1:
  1176.    dc.w 0  
  1177. fxintc1:  dc.w 0
  1178. fxpattr1:  dc.l 0
  1179.    dc.l 0
  1180. fxsongr1:  dc.l 0
  1181. fxwsong1:  dc.l 0
  1182.    dc.l 0
  1183.    dc.b 0,0
  1184.    dc.b 0,0
  1185.    dc.w 0
  1186.    dc.l 0
  1187.    dc.l 0
  1188.    dc.b 0,0
  1189.    dc.w 0
  1190.    dc.w 0
  1191.    dc.w 0
  1192.    dc.w 0
  1193.    dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1194. fxvars2:
  1195.    dc.w 0
  1196. fxintc2:  dc.w 0
  1197. fxpattr2:  dc.l 0
  1198.    dc.l 0
  1199. fxsongr2:  dc.l 0
  1200. fxwsong2:  dc.l 0
  1201.    dc.l 0
  1202.    dc.b 0,0
  1203.    dc.b 0,0
  1204.    dc.w 0
  1205.    dc.l 0
  1206.    dc.l 0
  1207.    dc.b 0,0
  1208.    dc.w 0
  1209.    dc.w 0
  1210.    dc.w 0
  1211.    dc.w 0
  1212.    dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1213. fxvars3:
  1214.    dc.w 0
  1215. fxintc3:   dc.w 0
  1216. fxpattr3:  dc.l 0
  1217.    dc.l 0
  1218. fxsongr3:  dc.l 0
  1219. fxwsong3:  dc.l 0
  1220.    dc.l 0
  1221.    dc.b 0,0
  1222.    dc.b 0,0
  1223.    dc.w 0
  1224.    dc.l 0
  1225.    dc.l 0
  1226.    dc.b 0,0
  1227.    dc.w 0
  1228.    dc.w 0
  1229.    dc.w 0
  1230.    dc.w 0
  1231.    dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1232.  
  1233. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1234.  
  1235.  
  1236. herexx
  1237. song_table:
  1238.       dc.l song73,song74,song75,speed24
  1239.       dc.l song1,song2,song3,speed24
  1240.       dc.l song4,song5,song6,speed24
  1241.       dc.l song7,song8,song9,speed24
  1242.       dc.l song10,song11,song12,speed24
  1243.       dc.l song13,song14,song15,speed24
  1244.       dc.l song16,song17,song18,speed24
  1245.       dc.l song19,song20,song21,speed24
  1246.       dc.l song22,song23,song24,speed24
  1247.       dc.l song25,song26,song27,speed24
  1248.       dc.l song28,song29,song30,speed24
  1249.       dc.l song31,song32,song33,speed24
  1250.       dc.l song34,song35,song36,speed24
  1251.       dc.l song37,song38,song39,speed24
  1252.       dc.l song40,song41,song42,speed24
  1253.       dc.l song43,song44,song45,speed24
  1254.       dc.l song46,song47,song48,speed24
  1255.       dc.l song49,song50,song51,speed24
  1256.       dc.l song52,song53,song54,speed24
  1257.       dc.l song55,song56,song57,speed24
  1258.       dc.l song58,song59,song60,speed24
  1259.       dc.l song61,song62,song63,speed24
  1260.       dc.l song64,song65,song66,speed24
  1261.       dc.l song67,song68,song69,speed24
  1262.       dc.l song70,song71,song72,speed24
  1263.         
  1264. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1265. ;;;;; chip- fx ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1266.  
  1267. chfx_table:
  1268. ;    dc.l    0,chfx1
  1269. ;    dc.l    0,chfx2
  1270. ;    dc.l    0,chfx3
  1271. ;    dc.l    0,chfx4
  1272. ;    dc.l    0,chfx5
  1273. ;    dc.l    0,chfx6
  1274. ;    dc.l    0,chfx7
  1275. ;    dc.l    0,chfx8
  1276. ;    dc.l    0,chfx9
  1277. ;    dc.l    0,chfx11
  1278. ;    dc.l    0,chfx10
  1279. ;    dc.l    0,chfx12
  1280. ;    dc.l    0,chfx13
  1281. ;    dc.l    0,chfx14
  1282.  
  1283.     even
  1284.  
  1285. ;;;;;;;;;;;;;;;;;;;;;;;; music data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1286. ;;;;;;;;;;;;;;;;;;;;;    mcp  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1287. song73:
  1288.     dc.l p7a,p7a,p7a,p7a,p7a,p7a,p7a,p7a
  1289.       dc.l end_song
  1290. song74:
  1291.     dc.l pr,pr,pr,pr,pr,pr,pr,pr
  1292.       dc.l p1aa,p1aa,p1aa,p1aa,p2
  1293.       dc.l end_song
  1294. song75:
  1295.       dc.l pr,pr,pr,pr,pr,pr,pr,pr,p1
  1296.       dc.l end_song
  1297.  
  1298. p1: even
  1299.       dc.b m,new_env,trigg,0
  1300.       dc.l mono_env
  1301.     dc.b m,modon,1,1
  1302.     dc.w 10,10,5
  1303.     dc.b g02,cr*8,f02,cr*8,g02,cr*8,f02,cr*8
  1304.     dc.b g02,sq*3,rest,sq,g02,q,d03,cr*4,d03,q*5
  1305.     dc.b g02,sq*3,rest,sq,g02,q,c03,cr*4,c03,q*5
  1306.     dc.b g02,sq*3,rest,sq,g02,q,d03,cr*4,d03,q*5
  1307.     dc.b g02,sq*3,rest,sq,g02,q,c03,cr*4,c03,q*5
  1308.     dc.b d03,q*3,a03,cr*2,rest,q,c03,q*3,g03,cr*2,rest,q
  1309.     dc.b d03,q*3,a03,cr*2,rest,q,c03,q*3,g03,cr*2,rest,q
  1310.     dc.b d03,q*3,a03,cr*2,rest,q,c03,q*3,g03,cr*2,rest,q
  1311.     dc.b d03,q*3,a03,cr*2,rest,q,c03,q*3,g03,cr*2,rest,q,d03,cr
  1312.     dc.b rest,(cr*3)
  1313.       dc.b m,end_patt
  1314. p1aa: even
  1315.       dc.b m,new_env,trigg,0
  1316.       dc.l mono_envt2
  1317.     dc.b m,modon,1,1
  1318.     dc.w 10,10,5
  1319.     dc.b rest,cr*7,d04,dsq,g04,dsq,b04,dsq,d05,dsq
  1320.     dc.b g05,dsq,d05,dsq,b04,dsq,g04,dsq
  1321.     dc.b rest,cr*7,c04,dsq,f04,dsq,a04,dsq,c05,dsq
  1322.     dc.b f05,dsq,c05,dsq,a04,dsq,f04,dsq
  1323.       dc.b m,end_patt
  1324. p2: even
  1325.       dc.b m,new_env,trigg,0
  1326.       dc.l mono_envt2
  1327.     dc.b m,modon,1,1
  1328.     dc.w 10,10,5
  1329.     dc.b g02,cr-sq,rest,sq,g02,q,d03,cr*2,g02,q
  1330.     dc.b f02,cr-sq,rest,sq,f02,q,c03,(cr*2)-sq,rest,sq,c03,q
  1331.     dc.b g02,cr-sq,rest,sq,g02,q,d03,cr*2,g02,q
  1332.     dc.b f02,cr-sq,rest,sq,f02,q,c03,(cr*2)-sq,rest,sq,c03,q
  1333.     dc.b g02,cr-sq,rest,sq,g02,q,d03,cr*2,g02,q
  1334.     dc.b f02,cr-sq,rest,sq,f02,q,c03,(cr*2)-sq,rest,sq,c03,q
  1335.     dc.b g02,cr-sq,rest,sq,g02,q,d03,cr*2,g02,q
  1336.     dc.b f02,cr-sq,rest,sq,f02,q,c03,(cr*2)-sq,rest,sq,c03,q
  1337.     dc.b g02,cr,rest,cr*3
  1338.     dc.b m,end_patt
  1339.  
  1340. p7a: even     
  1341.   dc.b m,inline,6,200,255,0
  1342.   dc.b m,new_env,trigg,0
  1343.   dc.l bassde
  1344.   dc.b m,pbend,down,200
  1345.   dc.w vc01,0
  1346.   dc.b e04,sq,e04,q,e04,sq
  1347.   dc.b m,new_env,trigg,0
  1348.   dc.l qclape
  1349.   dc.b c04,q
  1350.   dc.b m,new_env,trigg,0
  1351.   dc.l bassde
  1352.   dc.b m,pbend,down,200
  1353.   dc.w vc01,0
  1354.   dc.b e04,sq,e04,q,e04,sq,e04,q
  1355.   dc.b m,new_env,trigg,0
  1356.   dc.l Qclape
  1357.   dc.b c05,q
  1358.   dc.b m,new_env,trigg,0
  1359.   dc.l bassde
  1360.   dc.b m,pbend,down,200
  1361.   dc.w vc01,0
  1362.   dc.b e04,sq,e04,sq
  1363.   dc.b m,end_patt
  1364.  
  1365.  
  1366.     
  1367.         
  1368.  
  1369. ;;;;;;;;;;;;;;;;;;;;;    AUSTRIA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1370. song1:
  1371.     dc.l p2a,pr
  1372.       dc.l end_song
  1373.  
  1374. song2:
  1375.     dc.l p3a,pr
  1376.       dc.l end_song
  1377. song3:
  1378.     dc.l p1a,pr
  1379.       dc.l end_song
  1380.  
  1381. pcr: even
  1382.   dc.b rest,cr
  1383.   dc.b m,end_patt
  1384. pr: even
  1385.   dc.b rest,cr*4
  1386.   dc.b m,end_patt
  1387. pra: even
  1388.   dc.b rest,q*7
  1389.   dc.b m,end_patt
  1390. pqr: even
  1391.   dc.b rest,q
  1392.   dc.b m,end_patt
  1393. p1a: even
  1394.       dc.b m,new_env,trigg,0
  1395.       dc.l piano_anthenv
  1396.     dc.b Bb04,cr*2,A04,cr,G04,cr*2,A04,q,Bb04,q
  1397.     dc.b C05,cr*2,Bb04,cr,Bb04,cr,A04,cr,rest,cr
  1398.     dc.b A04,cr*2,G04,cr,F04,cr*2,G04,q,A04,q
  1399.     dc.b Bb04,cr*2,A04,cr,A04,q,G04,q,G04,cr,rest,cr
  1400.       dc.b m,end_patt
  1401. p2a: even
  1402.       dc.b m,new_env,trigg,0
  1403.       dc.l piano_anthenv1
  1404.     dc.b G04,cr*2,F04,cr,Eb04,cr*2,F04,q,G04,q
  1405.     dc.b A04,cr*2,G04,cr,G04,cr,F04,cr,rest,cr
  1406.     dc.b F04,cr*2,Eb04,cr,D04,cr*2,Eb04,q,F04,q
  1407.     dc.b G04,cr*2,F04,cr,Bb03,cr,Bb03,cr,rest,cr
  1408.     dc.b m,end_patt
  1409. p3a: even
  1410.       dc.b m,new_env,trigg,0
  1411.       dc.l bass_anthenv
  1412.     dc.b Eb02,cr,G02,cr,Bb02,cr,Eb03,cr*2,Eb02,cr
  1413.     dc.b Ab02,cr,Bb02,cr,C03,cr,F02,q,F03,q,F02,cr,rest,cr
  1414.     dc.b Bb02,cr,D03,cr,Bb02,cr,Bb02,cr*2,Bb02,cr
  1415.     dc.b Bb02,cr*2,Bb02,cr,Eb02,cr,Eb02,cr,rest,cr
  1416.     dc.b m,end_patt
  1417. ;;;;;;;;;;;;;;;;;;;;;    AUSTRALIA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1418. song4:
  1419.     dc.l p2b
  1420.       dc.l end_song
  1421.  
  1422. song5:
  1423.     dc.l p3b
  1424.       dc.l end_song
  1425. song6:
  1426.     dc.l p1b
  1427.       dc.l end_song
  1428.  
  1429.  
  1430. p1b: even
  1431.       dc.b m,new_env,trigg,0
  1432.       dc.l piano_anthenv
  1433.     dc.b C05,q,D05,q,E05,cr,E05,q,E05,q,D05,cr,D05,cr
  1434.     dc.b C05,q,D05,q,E05,q,C05,q,A04,q,B04,q,C05,cr
  1435.     dc.b G04,cr,C05,q,E05,q,G05,cr,F05,q,E05,q
  1436.     dc.b D05,cr,D05,q,D05,q,C05,cr*2
  1437.       dc.b m,end_patt
  1438. p2b: even
  1439.       dc.b m,new_env,trigg,0
  1440.       dc.l piano_anthenv1
  1441.     dc.b rest,cr,C04,cr,C04,q,C04,q,B03,cr,B03,cr
  1442.     dc.b A03,q,B03,q,C04,q,A03,q,F03,q,G03,q,A03,cr
  1443.     dc.b E03,cr,G03,q,C04,q,E04,cr,D04,q,C04,q
  1444.     dc.b B03,cr,B03,q,B03,q,G03,cr*2
  1445.     dc.b m,end_patt
  1446. p3b: even
  1447.       dc.b m,new_env,trigg,0
  1448.       dc.l bass_anthenv
  1449.     dc.b rest,cr,C03,cr,G02,cr,D03,cr,G02,cr
  1450.     dc.b A02,cr,G02,cr,F02,cr,Gb02,cr
  1451.     dc.b G02,cr*2,G02,cr*2,G02,cr,G02,q,G02,q,C03,cr*2
  1452.     dc.b m,end_patt
  1453. ;;;;;;;;;;;;;;;;;;;;;    BRAZIL    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1454. song7:
  1455.     dc.l p2c
  1456.       dc.l end_song
  1457.  
  1458. song8:
  1459.     dc.l p3c
  1460.       dc.l end_song
  1461. song9:
  1462.     dc.l p1c
  1463.       dc.l end_song
  1464.  
  1465. p1c: even
  1466.       dc.b m,new_env,trigg,0
  1467.       dc.l piano_anthenv
  1468.     dc.b Bb04,cr,Bb04,q,rest,q,Bb04,cr,Bb04,cr
  1469.     dc.b Eb05,sq*3,D05,sq,Eb05,sq*3,F05,sq
  1470.     dc.b G05,sq*3,F05,sq,G05,sq*3,Ab05,sq
  1471.     dc.b A05,q*3,Bb05,q,Eb05,cr,Bb04,cr
  1472.     dc.b Eb05,sq*3,D05,sq,F05,sq*3,Eb05,sq
  1473.     dc.b G05,sq*3,F05,sq,Ab05,sq*3,G05,sq
  1474.     dc.b E05,cr,F05,cr*3
  1475.       dc.b m,end_patt
  1476. p2c: even
  1477.       dc.b m,new_env,trigg,0
  1478.       dc.l piano_anthenv1
  1479.     dc.b G04,cr,G04,q,rest,q,G04,cr,rest,cr
  1480.     dc.b G04,cr*2,Bb04,cr*2,Gb05,q*3,G05,q
  1481.     dc.b Bb04,cr,Bb04,cr,G04,cr,Ab04,cr,Bb04,cr,C05,cr
  1482.     dc.b Db05,cr,D05,cr*3
  1483.     dc.b m,end_patt
  1484. p3c: even
  1485.       dc.b m,new_env,trigg,0
  1486.       dc.l bass_anthenv
  1487.     dc.b Eb03,cr,Eb03,q,rest,q,Eb03,cr,rest,cr
  1488.     dc.b Eb03,sq*3,D03,sq,Eb03,sq*3,F03,sq
  1489.     dc.b G03,sq*3,F03,sq,G03,sq*3,Ab03,sq
  1490.     dc.b A03,q*3,Bb03,q,Eb03,cr,Bb02,cr
  1491.     dc.b Eb03,sq*3,D03,sq,F03,sq*3,Eb03,sq
  1492.     dc.b G03,sq*3,F03,sq,Ab03,sq*3,G03,sq
  1493.     dc.b G03,cr,Ab03,cr*3
  1494.     dc.b m,end_patt
  1495. ;;;;;;;;;;;;;;;;;;;;;    CANADA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1496. song10:
  1497.     dc.l p2d
  1498.       dc.l end_song
  1499.  
  1500. song11:
  1501.     dc.l p3d
  1502.       dc.l end_song
  1503. song12:
  1504.     dc.l p1d
  1505.       dc.l end_song
  1506.  
  1507. p1d: even
  1508.       dc.b m,new_env,trigg,0
  1509.       dc.l piano_anthenv
  1510.     dc.b D05,cr*2,F05,cr*2,Bb04,cr*3,C05,cr
  1511.     dc.b D05,cr,Eb05,cr,F05,cr,G05,cr
  1512.     dc.b C05,cr*4,D05,cr*2,E05,cr*2,F05,cr*3,G05,cr
  1513.     dc.b A05,cr,A05,cr,G05,cr,G05,cr,F05,cr*4
  1514.       dc.b m,end_patt
  1515. p2d: even
  1516.       dc.b m,new_env,trigg,0
  1517.       dc.l piano_anthenv1
  1518.     dc.b F04,cr*2,A04,cr*2,G04,cr*3,F04,cr,F04,cr,F04,cr
  1519.     dc.b Bb04,cr,Bb04,cr,Bb04,cr,Bb04,q,G04,q,A04,cr*2
  1520.     dc.b Bb04,cr*2,D05,cr,Db05,cr,D05,cr*3,E05,cr
  1521.     dc.b F05,cr,C05,cr,E05,cr,Bb04,cr,A04,cr*4
  1522.     dc.b m,end_patt
  1523. p3d: even
  1524.       dc.b m,new_env,trigg,0
  1525.       dc.l bass_anthenv
  1526.     dc.b Bb02,cr*2,D03,cr*2,G02,cr,D02,cr,G02,cr,A02,cr
  1527.     dc.b Bb02,cr,C03,cr,D03,cr,E03,cr,F03,cr*4,Bb02,cr*2,A02,cr*2
  1528.     dc.b D03,cr*3,Db03,cr,C03,cr,C03,cr,C03,cr,C03,cr,F02,cr*4
  1529.     dc.b m,end_patt
  1530. ;;;;;;;;;;;;;;;;;;;;;    CHINA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1531. song13:
  1532.     dc.l p2e
  1533.       dc.l end_song
  1534.  
  1535. song14:
  1536.     dc.l p3e
  1537.       dc.l end_song
  1538. song15:
  1539.     dc.l p1e
  1540.       dc.l end_song
  1541.  
  1542. p1e: even
  1543.       dc.b m,new_env,trigg,0
  1544.       dc.l piano_anthenv
  1545.     dc.b C05,cr,C05,cr*3,E05,cr,E05,cr*3
  1546.     dc.b G05,cr,G05,cr*3,E05,cr,D05,cr*3,E05,cr
  1547.     dc.b C06,cr*3,A05,q,G05,q,A05,cr*3,E05,cr
  1548.     dc.b A05,cr*3,G05,q,Gb05,q,G05,cr*3
  1549.       dc.b m,end_patt
  1550. p2e: even
  1551.       dc.b m,new_env,trigg,0
  1552.       dc.l piano_anthenv1
  1553.     dc.b G04,cr,G04,cr*3,C05,cr,C05,cr*3
  1554.     dc.b B04,cr,D05,cr*3,C05,cr,B04,cr*3
  1555.     dc.b C05,cr,E05,cr*3,F05,cr,F05,cr*3
  1556.     dc.b C05,cr,F05,cr*3,D05,cr,D05,cr*3
  1557.     dc.b m,end_patt
  1558. p3e: even
  1559.       dc.b m,new_env,trigg,0
  1560.       dc.l bass_anthenv
  1561.     dc.b C03,cr,C03,cr*3,C03,cr,C03,cr*3
  1562.     dc.b G02,cr,B02,cr*3,C03,cr,G02,cr*3
  1563.     dc.b C03,cr,C03,cr*3,F02,cr,F02,cr*3
  1564.     dc.b C03,cr,A02,cr*3,D03,cr,G02,cr*3
  1565.     dc.b m,end_patt
  1566.  
  1567. ;;;;;;;;;;;;;;;;;;;;;    DENMARK    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1568. song16:
  1569.     dc.l p2f
  1570.       dc.l end_song
  1571.  
  1572. song17:
  1573.     dc.l p3f
  1574.       dc.l end_song
  1575. song18:
  1576.     dc.l p1f
  1577.       dc.l end_song
  1578.  
  1579. p1f: even
  1580.       dc.b m,new_env,trigg,0
  1581.       dc.l piano_anthenv
  1582.     dc.b C05,cr,F05,cr,F04,cr,A04,cr,C05,cr
  1583.     dc.b F05,q*3,G05,q,A05,cr,Bb05,cr
  1584.     dc.b A05,cr*2,G05,cr*2,F05,cr*3,A05,cr
  1585.     dc.b A05,q,G05,q,F05,q,E05,q,G05,q,F05,q,E05,q,D05,q
  1586.     dc.b E05,q*3,F05,q,G05,cr,G05,cr
  1587.     dc.b C06,cr,G05,cr,E05,cr,C05,cr
  1588.     dc.b G05,cr*3,C06,cr,C06,cr,B05,q,A05,q,G05,cr,A05,cr
  1589.     dc.b A05,cr,G05,q,F05,q,E05,cr,F05,cr
  1590.     dc.b E05,cr*2,D05,cr*2,C05,cr*4
  1591.       dc.b m,end_patt
  1592. p2f: even
  1593.       dc.b m,new_env,trigg,0
  1594.       dc.l piano_anthenv1
  1595.     dc.b rest,cr*5,A04,q*3,Bb04,q,C05,cr,D05,cr
  1596.     dc.b F05,cr*2,E05,cr*2,C05,cr,A04,cr,A05,cr,F05,cr
  1597.     dc.b E05,cr,C05,cr,B04,cr,B04,cr
  1598.     dc.b C05,q*3,D05,q,E05,cr,G05,cr
  1599.     dc.b C05,cr,G04,cr,E04,cr,C04,cr
  1600.     dc.b B04,cr*3,C05,cr,E05,cr,E05,cr,E05,cr,F05,cr
  1601.     dc.b F05,cr,E05,q,D05,q,C05,cr,A04,cr
  1602.     dc.b C05,cr*2,B04,cr*2,G04,cr*4
  1603.     dc.b m,end_patt
  1604. p3f: even
  1605.       dc.b m,new_env,trigg,0
  1606.       dc.l bass_anthenv
  1607.     dc.b rest,cr*5,F03,q*3,C03,q,F03,cr,Bb02,cr
  1608.     dc.b C03,cr*2,C03,cr*2,F03,cr*3,F03,cr
  1609.     dc.b C03,cr,G03,cr,G02,cr,D03,cr
  1610.     dc.b C03,q*3,G02,q,C03,cr,G03,cr
  1611.     dc.b C04,cr,G03,cr,E03,cr,C03,cr
  1612.     dc.b G03,q*3,G02,q,G02,cr,C03,cr
  1613.     dc.b C03,cr,C03,cr,C03,cr,C03,cr
  1614.     dc.b C03,cr,C03,cr,C03,cr,F02,cr
  1615.     dc.b G02,cr*2,G02,cr*2,C03,cr*4
  1616.     dc.b m,end_patt
  1617.  
  1618.  
  1619. ;;;;;;;;;;;;;;;;;;;;;    EIRE     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1620. song19:
  1621.     dc.l p2g
  1622.       dc.l end_song
  1623.  
  1624. song20:
  1625.     dc.l p3g
  1626.       dc.l end_song
  1627. song21:
  1628.     dc.l p1g
  1629.       dc.l end_song
  1630.  
  1631. p1g: even
  1632.       dc.b m,new_env,trigg,0
  1633.       dc.l piano_anthenv
  1634.     dc.b A05,cr,Gb05,cr,D05,q,Gb05,q,A05,q*3,A05,q
  1635.     dc.b B05,q,Db06,q,D06,q,E06,q,Gb06,q*3,E06,q
  1636.     dc.b D06,cr,B05,sq*3,B05,sq,A05,cr,Gb05,cr
  1637.     dc.b A05,q*3,G05,q,E05,cr,A04,cr
  1638.     dc.b Gb05,cr,D05,q,Gb05,q,A05,q*3,A05,q
  1639.     dc.b B05,q,Db06,q,D06,q,E06,q,Gb06,q*3,D06,q
  1640.     dc.b Db06,q*3,Db06,q,B05,q*3,B05,q,A05,cr,A05,cr*3
  1641.       dc.b m,end_patt
  1642.  
  1643. p2g: even
  1644.       dc.b m,new_env,trigg,0
  1645.       dc.l piano_anthenv1
  1646.     dc.b rest,cr,A04,cr,rest,cr,E05,cr,rest,q,E05,q
  1647.     dc.b G05,cr,B05,cr,A05,q*3,A05,q,B05,cr,G05,sq*3,G05,sq
  1648.     dc.b D05,cr,D05,cr,Db05,q*3,Db05,q,Db05,cr,Db05,cr
  1649.     dc.b A04,cr,rest,cr,E05,cr,rest,q,E05,q
  1650.     dc.b G05,cr,B05,cr,A05,q*3,A05,q,A05,q*3,A05,q,Ab05,q*3,Ab05,q
  1651.     dc.b E05,cr,E05,cr*3
  1652.     dc.b m,end_patt
  1653. p3g: even
  1654.       dc.b m,new_env,trigg,0
  1655.       dc.l bass_anthenv
  1656.     dc.b rest,cr,D03,cr,rest,cr,Db03,cr,rest,q,Db03,q
  1657.     dc.b B02,cr,G03,cr,D03,q*3,Gb03,q,G03,cr,G03,sq*3,G03,sq
  1658.     dc.b Gb03,cr,D03,cr,A03,q*3,A03,q,A03,cr,A03,cr
  1659.     dc.b D03,cr,rest,cr,Db03,cr,rest,q,Db03,q
  1660.     dc.b B02,cr,G03,cr,D03,q*3,D03,q
  1661.     dc.b E03,q*3,E03,q,E03,q*3,E03,q,A02,cr,A02,cr*3
  1662.     dc.b m,end_patt
  1663. ;;;;;;;;;;;;;;;;;;;;;    E.GERMAN    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1664. song22:
  1665.     dc.l p2h
  1666.       dc.l end_song
  1667.  
  1668. song23:
  1669.     dc.l p3h
  1670.       dc.l end_song
  1671. song24:
  1672.     dc.l p1h
  1673.       dc.l end_song
  1674.  
  1675. p1h: even
  1676.       dc.b m,new_env,trigg,0
  1677.       dc.l piano_anthenv
  1678.     dc.b C05,cr,C05,q,D05,q,C05,cr*2
  1679.     dc.b D05,cr,D05,q,E05,q,F05,q,E05,q,D05,cr
  1680.     dc.b G05,cr,G05,q,F05,q,E05,q,G05,q,F05,q,D05,q
  1681.     dc.b C05,cr*2,C05,cr*2
  1682.       dc.b m,end_patt
  1683. p2h: even
  1684.       dc.b m,new_env,trigg,0
  1685.       dc.l piano_anthenv1
  1686.     dc.b E04,cr,E04,q,F04,q,G04,q,F04,q,E04,cr 
  1687.     dc.b F04,cr,F04,q,G04,q,A04,q,G04,q,F04,cr
  1688.     dc.b G04,cr,G04,q,A04,q,B04,q,G04,q,A04,q,B04,q
  1689.     dc.b E04,cr*2,E04,cr*2
  1690.     dc.b m,end_patt
  1691. p3h: even
  1692.       dc.b m,new_env,trigg,0
  1693.       dc.l bass_anthenv
  1694.     dc.b C03,cr,B02,cr,A02,cr,G02,cr
  1695.     dc.b D03,cr,D03,q,C03,q,B02,q,A02,q,G02,cr
  1696.     dc.b G02,cr,A02,cr,G02,cr,B02,cr,C03,cr,G02,cr,C02,cr*2
  1697.     dc.b m,end_patt
  1698. ;;;;;;;;;;;;;;;;;;;;;    FRANCE   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1699. song25:
  1700.     dc.l p2i
  1701.       dc.l end_song
  1702.  
  1703. song26:
  1704.     dc.l p3i
  1705.       dc.l end_song
  1706. song27:
  1707.     dc.l p1i
  1708.       dc.l end_song
  1709.  
  1710. p1i: even
  1711.       dc.b m,new_env,trigg,0
  1712.       dc.l piano_anthenv
  1713.     dc.b B04,sq,B04,sq*3,B04,sq
  1714.     dc.b E05,cr,E05,cr,Gb05,cr,Gb05,cr,B05,cr+q+sq,Ab05,sq
  1715.     dc.b E05,sq*3,E05,sq,Ab05,sq*3,E05,sq
  1716.     dc.b Db05,cr,A05,cr*2,Gb05,sq*3,Eb05,sq,E05,cr*4
  1717.       dc.b m,end_patt
  1718. p2i: even
  1719.       dc.b m,new_env,trigg,0
  1720.       dc.l piano_anthenv1
  1721.     dc.b rest,sq*5
  1722.     dc.b Ab04,cr,Ab04,cr,B04,cr,B04,cr
  1723.     dc.b Ab04,cr+q+sq,Ab04,sq,Ab04,sq*3,Ab04,sq,B04,sq*3,Ab04,sq
  1724.     dc.b A04,cr,Db05,cr,Eb04,cr,A04,cr
  1725.     dc.b Ab04,cr*4
  1726.     dc.b m,end_patt
  1727. p3i: even
  1728.       dc.b m,new_env,trigg,0
  1729.       dc.l bass_anthenv
  1730.     dc.b B02,sq,B02,sq*3,B02,sq
  1731.     dc.b E03,cr,E03,cr,Eb03,cr,Eb03,cr
  1732.     dc.b E03,cr+q+sq,E03,sq,E03,sq*3,E03,sq,E03,sq*3,E03,sq
  1733.     dc.b A02,cr,Gb02,cr,B02,cr*2,E03,cr*4
  1734.     dc.b m,end_patt
  1735. ;;;;;;;;;;;;;;;;;;;;;    GERMANY   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1736. song28:
  1737.     dc.l p2j
  1738.       dc.l end_song
  1739.  
  1740. song29:
  1741.     dc.l p3j
  1742.       dc.l end_song
  1743. song30:
  1744.     dc.l p1j
  1745.       dc.l end_song
  1746.  
  1747. p1j: even
  1748.       dc.b m,new_env,trigg,0
  1749.       dc.l piano_anthenv
  1750.     dc.b C04,q*3,D04,q,E04,cr,D04,cr
  1751.     dc.b F04,cr,E04,cr,D04,q,B03,q,C04,cr
  1752.     dc.b A04,cr,G04,cr,F04,cr,E04,cr
  1753.     dc.b D04,cr,E04,q,C04,q,G04,cr*2
  1754.     dc.b C05,q*3,B04,q,B04,q,A04,q,G04,cr
  1755.     dc.b A04,q*3,G04,q,G04,q,F04,q,E04,cr
  1756.     dc.b D04,q*3,E04,sq,F04,sq,G04,q,A04,q,F04,q,D04,q
  1757.     dc.b C04,cr,E04,q,D04,q,C04,cr*2
  1758.       dc.b m,end_patt
  1759. p2j: even
  1760.       dc.b m,new_env,trigg,0
  1761.       dc.l piano_anthenv1
  1762.     dc.b E03,q*3,F03,q,G03,cr,A03,cr
  1763.     dc.b A03,cr,G03,cr,G03,q,F03,q,E03,cr
  1764.     dc.b C04,cr,C04,cr,A03,cr,C04,cr
  1765.     dc.b Gb03,cr,G03,cr,B03,cr*2
  1766.     dc.b D04,q,E04,q,G04,cr,C04,cr,C04,cr
  1767.     dc.b C04,q,D04,q,E04,cr,B03,cr,C04,cr
  1768.     dc.b B03,cr*2,E04,cr,A03,cr
  1769.     dc.b E03,cr,F03,cr,E03,cr*2
  1770.     dc.b m,end_patt
  1771. p3j: even
  1772.       dc.b m,new_env,trigg,0
  1773.       dc.l bass_anthenv
  1774.     dc.b C03,q*3,C03,q,C03,cr,F02,cr
  1775.     dc.b F02,cr,C03,cr,G02,cr,C03,cr
  1776.     dc.b F03,cr,E03,cr,D03,cr,C03,cr
  1777.     dc.b D03,cr,C03,cr,G02,cr*2
  1778.     dc.b C03,cr,E03,cr,F03,cr,E03,cr
  1779.     dc.b F03,cr,E03,cr,G03,cr,C03,cr
  1780.     dc.b G02,cr*2,C03,cr,F02,cr
  1781.     dc.b G02,cr,G02,cr,C03,cr*2
  1782.     dc.b m,end_patt
  1783. ;;;;;;;;;;;;;;;;;;;;;    GREECE    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1784. song31:
  1785.     dc.l p2k
  1786.       dc.l end_song
  1787.  
  1788. song32:
  1789.     dc.l p3k
  1790.       dc.l end_song
  1791. song33:
  1792.     dc.l p1k
  1793.       dc.l end_song
  1794.  
  1795. p1k: even
  1796.       dc.b m,new_env,trigg,0
  1797.       dc.l piano_anthenv
  1798.     dc.b A04,sq*3,Bb04,sq,C05,sq*7,Bb04,sq,A04,sq*3,Bb04,sq
  1799.     dc.b C05,cr,A04,q,rest,q,Bb04,sq*3,C05,sq
  1800.     dc.b D05,sq*7,D05,sq,E05,sq*3,E05,sq,F05,cr+q,rest,q
  1801.     dc.b G04,sq*3,A04,sq,Bb04,cr+q+sq,A04,sq,G04,sq*3,A04,sq
  1802.     dc.b Bb04,cr,G04,q,rest,q,C05,sq*3,C05,sq,E05,sq*7
  1803.     dc.b D05,sq,C05,sq*3,B04,sq,A04,cr*2
  1804.       dc.b m,end_patt
  1805. p2k: even
  1806.       dc.b m,new_env,trigg,0
  1807.       dc.l piano_anthenv1
  1808.     dc.b F04,sq*3,G04,sq,A04,sq*7,G04,sq,F04,sq*3,G04,sq
  1809.     dc.b A04,cr,F04,q,rest,q,G04,sq*3,A05,sq
  1810.     dc.b Bb04,sq*7,Bb04,sq,C05,sq*3,C05,sq,A04,cr+q,rest,q
  1811.     dc.b E04,sq*3,F04,sq,G04,cr+q+sq,F04,sq,E04,sq*3,F04,sq
  1812.     dc.b G04,cr,E04,q,rest,q,G04,sq*3,G04,sq,C05,sq*7
  1813.     dc.b Bb04,sq,A04,sq*3,G04,sq,F04,cr*2
  1814.     dc.b m,end_patt
  1815. p3k: even
  1816.       dc.b m,new_env,trigg,0
  1817.       dc.l bass_anthenv
  1818.     dc.b rest,cr,F02,q,F03,sq,F03,sq,F03,q,F03,q,F03,q,F03,q
  1819.     dc.b F02,q,F03,sq,F03,sq,F03,q,F03,q,F03,q,F03,q
  1820.     dc.b D02,q,D03,sq,D03,sq,D03,q,D03,q,C03,q,E03,q
  1821.     dc.b F02,q,F03,sq,F03,sq,F03,q,F03,q,rest,cr
  1822.     dc.b C02,q,C03,sq,C03,sq,C03,q,C03,q,C03,q,C03,q
  1823.     dc.b C02,q,C03,sq,C03,sq,C03,q,C03,q,C03,q,C03,q
  1824.     dc.b C02,q,C03,sq,C03,sq,C03,q,C03,q,C03,q,C03,q
  1825.     dc.b F02,q,F03,sq,F03,sq,F03,cr
  1826.     dc.b m,end_patt
  1827. ;;;;;;;;;;;;;;;;;;;;;    G.B.    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1828. song34:
  1829.     dc.l p2l
  1830.       dc.l end_song
  1831.  
  1832. song35:
  1833.     dc.l p3l
  1834.       dc.l end_song
  1835. song36:
  1836.     dc.l p1l
  1837.       dc.l end_song
  1838.  
  1839. p1l: even
  1840.       dc.b m,new_env,trigg,0
  1841.       dc.l piano_anthenv
  1842.     dc.b E04,cr,E04,cr,Gb04,cr
  1843.     dc.b Eb04,q*3,E04,q,Gb04,cr
  1844.     dc.b Ab04,cr,Ab04,cr,A04,cr
  1845.     dc.b Ab04,q*3,Gb04,q,E04,cr
  1846.     dc.b Gb04,cr,E04,cr,Eb04,cr
  1847.     dc.b E04,cr,E04,q,Gb04,q,Ab04,q,A04,q
  1848.     dc.b B04,cr,B04,cr,B04,cr
  1849.     dc.b B04,q*3,A04,q,Ab04,cr
  1850.     dc.b A04,cr,A04,cr,A04,cr
  1851.     dc.b A04,q*3,Ab04,q,Gb04,cr
  1852.     dc.b Ab04,cr,A04,q,Ab04,q,Gb04,q,E04,q
  1853.     dc.b Ab04,q*3,A04,q,B04,cr    
  1854.     dc.b Db05,q,A04,q,Ab04,cr,Gb04,cr,E04,cr*3
  1855.       dc.b m,end_patt
  1856. p2l: even
  1857.       dc.b m,new_env,trigg,0
  1858.       dc.l piano_anthenv1
  1859.     dc.b Ab03,cr,B03,cr,Db04,cr
  1860.     dc.b B03,q*3,A03,q,B03,cr
  1861.     dc.b B03,cr,E04,cr,Db04,cr
  1862.     dc.b E04,q*3,Ab03,q,Ab03,cr
  1863.     dc.b Db04,cr,Ab03,cr,Gb03,cr
  1864.     dc.b Ab03,cr,Ab03,q,A03,q,B03,q,Db04,q
  1865.     dc.b Ab03,cr,B03,cr,E04,cr
  1866.     dc.b Ab04,q*3,Eb04,q,B03,cr
  1867.     dc.b Eb04,cr,B03,cr,B03,cr
  1868.     dc.b Eb04,q*3,B03,q,Eb04,cr
  1869.     dc.b B03,cr,Db04,cr,B03,cr
  1870.     dc.b E04,q*3,Gb04,q,Ab04,cr
  1871.     dc.b Gb04,cr,E04,cr,Eb04,q,A03,q,Ab03,cr*3
  1872.     dc.b m,end_patt
  1873. p3l: even
  1874.       dc.b m,new_env,trigg,0
  1875.       dc.l bass_anthenv
  1876.     dc.b E02,cr,Ab02,cr,A02,cr
  1877.     dc.b B02,q*3,Db03,q,Eb04,cr
  1878.     dc.b E03,cr,Db03,cr,A02,cr
  1879.     dc.b B02,q*3,C03,q,Db03,cr
  1880.     dc.b A02,cr,B02,cr,B02,cr
  1881.     dc.b E03,cr*3
  1882.     dc.b E02,cr,Ab02,cr,B02,cr
  1883.     dc.b E03,q*3,B02,q,E03,cr,B02,cr,Eb03,cr,Gb03,cr
  1884.     dc.b B02,q*3,E03,q,B02,cr,E03,cr,Gb03,q,E03,q,Eb03,q,Db03,q
  1885.     dc.b B02,q,A02,q,Ab02,q,Gb02,q,E02,cr,A02,cr,B02,cr,B02,cr,E02,cr*3
  1886.     dc.b m,end_patt
  1887. ;;;;;;;;;;;;;;;;;;;;;    HOLLANDS  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1888. song37:
  1889.     dc.l p2m
  1890.       dc.l end_song
  1891.  
  1892. song38:
  1893.     dc.l p3m
  1894.       dc.l end_song
  1895. song39:
  1896.     dc.l p1m
  1897.       dc.l end_song
  1898.  
  1899. p1m: even
  1900.       dc.b m,new_env,trigg,0
  1901.       dc.l piano_anthenv
  1902.     dc.b C05,cr,F05,cr,F05,cr,G05,q,A05,q,Bb05,q,G05,q
  1903.     dc.b A05,cr,G05,q,A05,q,Bb05,cr,A05,cr,G05,q,F05,q,G05,cr,F05,cr*3
  1904.       dc.b m,end_patt
  1905. p2m: even
  1906.       dc.b m,new_env,trigg,0
  1907.       dc.l piano_anthenv1
  1908.     dc.b Bb03,cr,A03,cr,A03,cr,D04,cr,E04,cr,C04,cr
  1909.     dc.b Bb03,q,C04,q,D04,cr,F04,cr,E04,q,D04,q,E04,cr,C04,cr*3
  1910.     dc.b m,end_patt
  1911. p3m: even
  1912.       dc.b m,new_env,trigg,0
  1913.       dc.l bass_anthenv
  1914.     dc.b E03,cr,F03,cr,C03,cr,Bb02,cr,C03,cr,F03,cr,D03,q,C03,q
  1915.     dc.b Bb02,cr,C03,cr,C03,q,C03,q,C03,cr,F02,cr*3
  1916.     dc.b m,end_patt
  1917. ;;;;;;;;;;;;;;;;;;;;;    HUNGARY    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1918. song40:
  1919.     dc.l p2n
  1920.       dc.l end_song
  1921.  
  1922. song41:
  1923.     dc.l p3n
  1924.       dc.l end_song
  1925. song42:
  1926.     dc.l p1n
  1927.       dc.l end_song
  1928.  
  1929. p1n: even
  1930.       dc.b m,new_env,trigg,0
  1931.       dc.l piano_anthenv
  1932.     dc.b D05,cr+q,C05,q,Bb04,cr,A04,cr,Bb04,cr,C05,cr,F04,cr*2
  1933.     dc.b Eb05,q*3,D05,q,C05,cr,Bb04,cr,A04,q*3,G04,q
  1934.     dc.b F04,cr,Eb04,cr,D04,cr,D04,cr,C04,cr,C04,q,D04,q,Bb03,cr*4
  1935.       dc.b m,end_patt
  1936. p2n: even
  1937.       dc.b m,new_env,trigg,0
  1938.       dc.l piano_anthenv1
  1939.     dc.b Bb04,cr+q,A04,q,G04,cr,Gb04,cr,G04,cr,G04,cr,Eb04,cr*2
  1940.     dc.b Eb04,cr,F04,cr,G04,cr,Eb04,cr,F04,cr,C04,cr
  1941.     dc.b Bb03,cr,A03,cr,Bb03,cr,Bb03,cr,Bb03,cr,A03,cr,F03,cr*4
  1942.     dc.b m,end_patt
  1943. p3n: even
  1944.       dc.b m,new_env,trigg,0
  1945.       dc.l bass_anthenv
  1946.     dc.b G02,cr,A02,cr,Bb02,cr,D03,cr,G03,cr,Eb03,cr,F03,cr*2
  1947.     dc.b C03,cr,D03,cr,Eb03,cr,C03,cr,F03,cr,Eb03,cr,D03,cr,C03,cr
  1948.     dc.b Bb02,cr,D03,cr,Eb03,cr,F03,cr,Bb02,cr,Bb03,cr,Bb02,cr*2
  1949.     dc.b m,end_patt
  1950. ;;;;;;;;;;;;;;;;;;;;;    ITALY   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1951. song43:
  1952.     dc.l p2o
  1953.       dc.l end_song
  1954.  
  1955. song44:
  1956.     dc.l p3o
  1957.       dc.l end_song
  1958. song45:
  1959.     dc.l p1o
  1960.       dc.l end_song
  1961.  
  1962. p1o: even
  1963.       dc.b m,new_env,trigg,0
  1964.       dc.l piano_anthenv
  1965.     dc.b G04,cr,G04,sq*3,A04,sq,G04,cr*2
  1966.     dc.b E05,cr,E05,sq*3,F05,sq,E05,cr*2
  1967.     dc.b E05,cr,G05,sq*3,F05,sq,E05,cr*2
  1968.     dc.b D05,cr,E05,sq*3,D05,sq,C05,cr*2
  1969.       dc.b m,end_patt
  1970. p2o: even
  1971.       dc.b m,new_env,trigg,0
  1972.       dc.l piano_anthenv1
  1973.     dc.b E04,cr,E04,sq*3,F04,sq,E04,sq*3,E04,sq,E04,cr
  1974.     dc.b G04,cr,G04,sq*3,A04,sq,G04,sq*3,G04,sq,G04,cr
  1975.     dc.b C05,cr,E05,sq*3,D05,sq,C05,cr*2
  1976.     dc.b B04,cr,C05,sq*3,B04,sq,E04,cr*2
  1977.     dc.b m,end_patt
  1978. p3o: even
  1979.       dc.b m,new_env,trigg,0
  1980.       dc.l bass_anthenv
  1981.     dc.b C04,cr,C04,sq*3,C04,sq,C04,sq*3,C04,sq,C04,cr
  1982.     dc.b C04,cr,C04,sq*3,C04,sq,C04,sq*3,C04,sq,C04,cr
  1983.     dc.b C04,cr,C04,sq*3,C04,sq,C04,cr,G03,cr
  1984.     dc.b G03,cr,G03,sq*3,G03,sq,C04,cr,C03,cr
  1985.     dc.b m,end_patt
  1986. ;;;;;;;;;;;;;;;;;;;;;    JAMAICA ? ( No,she wanted to ! )    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1987. song46:
  1988.     dc.l p2p,pr
  1989.       dc.l end_song
  1990.  
  1991. song47:
  1992.     dc.l p3p,pr
  1993.       dc.l end_song
  1994. song48:
  1995.     dc.l p1p,pr
  1996.       dc.l end_song
  1997.  
  1998. p1p: even
  1999.       dc.b m,new_env,trigg,0
  2000.       dc.l piano_anthenv
  2001.     dc.b G04,cr,G04,cr,G04,cr,A04,cr,E04,cr
  2002.     dc.b G04,q*3,F04,q,F04,cr*2,A04,cr,A04,cr,B04,cr,F04,cr
  2003.     dc.b A04,q*3,G04,q,G04,cr*2,C05,cr,C05,cr,B04,cr,Ab04,cr
  2004.     dc.b A04,cr,C05,cr,G04,cr,G04,cr,A04,cr,A04,cr,G04,cr,E04,cr
  2005.     dc.b C04,cr,D04,cr,C04,cr*2
  2006.       dc.b m,end_patt
  2007. p2p: even
  2008.       dc.b m,new_env,trigg,0
  2009.       dc.l piano_anthenv1
  2010.     dc.b F04,cr,E04,cr,D04,cr,Db04,cr,A03,cr,D04,cr,D04,cr,D04,cr*2
  2011.     dc.b F04,cr,F04,cr,F04,cr,F04,cr,Eb04,cr,Eb04,cr,E04,cr*2
  2012.     dc.b A04,cr,A04,cr,E04,cr,E04,cr,F04,cr,A04,cr
  2013.     dc.b C04,cr,E04,cr,F04,cr,D04,cr,C04,cr,C04,cr
  2014.     dc.b E03,cr,G03,cr,E03,cr*2
  2015.     dc.b m,end_patt
  2016. p3p: even
  2017.       dc.b m,new_env,trigg,0
  2018.       dc.l bass_anthenv
  2019.     dc.b G02,cr,C03,cr,Bb02,cr,A02,cr*2
  2020.     dc.b D02,cr,A02,cr,D03,q,A02,q,B02,q,Db03,q
  2021.     dc.b D03,cr*2,G02,cr*2,C02,cr,G02,cr,C03,cr,B02,cr
  2022.     dc.b A02,cr*2,Ab03,cr,E03,cr,F03,cr*2,E03,cr,C03,cr
  2023.     dc.b F03,cr,F03,cr,E03,cr,C03,cr
  2024.     dc.b A02,cr,D02,cr,G02,cr*2
  2025.     dc.b m,end_patt
  2026. ;;;;;;;;;;;;;;;;;;;;;    JAPAN   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2027. song49:
  2028.     dc.l p2q
  2029.       dc.l end_song
  2030.  
  2031. song50:
  2032.     dc.l p3q
  2033.       dc.l end_song
  2034. song51:
  2035.     dc.l p1q
  2036.       dc.l end_song
  2037.  
  2038. p1q: even
  2039.       dc.b m,new_env,trigg,0
  2040.       dc.l piano_anthenv
  2041.     dc.b G04,cr,F04,cr,G04,cr,A04,cr,C05,cr,A04,cr,G04,cr*2
  2042.     dc.b A04,cr,C05,cr,D05,cr,C05,q,D05,q
  2043.     dc.b G05,cr,E05,cr,D05,cr,C05,cr,A04,cr,C05,cr,D05,cr*2
  2044.     dc.b G05,cr,F05,cr,G05,cr*2,A04,cr,C05,cr,D05,cr,C05,cr
  2045.     dc.b A04,q*3,C05,q,G04,cr*2,D05,cr,F05,cr,G05,cr,G05,cr
  2046.     dc.b F05,cr,G05,cr,D05,cr,C05,cr,D05,cr,C05,q,A04,q,G04,cr*2
  2047.       dc.b m,end_patt
  2048.  
  2049. p2q: even
  2050.       dc.b m,new_env,trigg,0
  2051.       dc.l piano_anthenv1
  2052.     dc.b rest,cr*8,F04,cr,F04,cr,F04,cr,E04,q,F04,q
  2053.     dc.b Db05,cr,Db05,cr,Bb04,cr,G04,cr
  2054.     dc.b F04,cr,F04,cr,F04,cr*2,Bb04,cr,A04,cr,Bb04,cr*2
  2055.     dc.b F04,cr,F04,cr,F04,cr,F04,cr
  2056.     dc.b F04,cr*2,E04,cr*2,F04,cr,Bb04,cr,Bb04,cr,Bb04,cr
  2057.     dc.b A04,cr,Bb04,cr,rest,cr*6
  2058.     dc.b m,end_patt
  2059. p3q: even
  2060.       dc.b m,new_env,trigg,0
  2061.       dc.l bass_anthenv
  2062.     dc.b rest,cr*8,F02,cr,A02,cr,Bb02,cr,A02,q,Bb02,q
  2063.     dc.b G02,cr,C03,cr,G02,cr,C03,cr
  2064.     dc.b F02,cr,A02,cr,Bb02,cr*2,G02,cr,D02,cr,G02,cr*2
  2065.     dc.b F02,cr,A02,cr,Bb02,cr,A02,cr
  2066.     dc.b F02,cr*2,C03,cr*2,Bb02,cr,D03,cr,C03,cr,D03,cr
  2067.     dc.b D03,cr,D03,cr,D03,cr,C03,cr,C03,cr,C03,q,A02,q,G02,cr*2
  2068.     dc.b m,end_patt
  2069. ;;;;;;;;;;;;;;;;;;;;;    KOREA  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2070. song52:
  2071.     dc.l p2r
  2072.       dc.l end_song
  2073.  
  2074. song53:
  2075.     dc.l p3r
  2076.       dc.l end_song
  2077. song54:
  2078.     dc.l p1r
  2079.       dc.l end_song
  2080.  
  2081. p1r: even
  2082.       dc.b m,new_env,trigg,0
  2083.       dc.l piano_anthenv
  2084.     dc.b E05,cr*3,F05,cr,G05,cr*2,E05,cr*2,A05,cr*3,Bb05,cr
  2085.     dc.b C06,cr*2,A05,cr*2,G05,cr*2,F05,cr*2,E05,cr*2,F05,cr*2
  2086.     dc.b G05,cr*6,rest,cr*2,C06,cr*3,Bb05,cr,A05,cr*2,G05,cr*2
  2087.     dc.b F05,cr*2,E05,cr,D05,cr,C05,cr*2,A04,cr*2,C05,cr*2,F05,cr*2
  2088.     dc.b G05,cr,G05,cr,A05,cr*2,F05,cr*4
  2089.       dc.b m,end_patt
  2090.  
  2091. p2r: even
  2092.       dc.b m,new_env,trigg,0
  2093.       dc.l piano_anthenv1
  2094.     dc.b C05,cr*2,B04,cr*2,C05,cr*2,C05,cr*2
  2095.     dc.b F05,cr*2,E05,cr*2,E05,cr*2,F05,cr*2
  2096.     dc.b D05,cr*2,C05,cr*2,C05,cr*2,A04,cr*2
  2097.     dc.b C05,cr*4,E05,cr*2,rest,cr*2,F05,cr*2,E05,cr*2
  2098.     dc.b F05,cr*2,E05,cr*2,D05,cr*2,C05,cr,Bb04,cr
  2099.     dc.b A04,cr*2,A04,cr*2,F04,cr*2,C05,cr*2
  2100.     dc.b D05,cr,D05,cr,E05,cr*2,A04,cr*4
  2101.     dc.b m,end_patt
  2102. p3r: even
  2103.       dc.b m,new_env,trigg,0
  2104.       dc.l bass_anthenv
  2105.     dc.b E02,cr*3,F02,cr,G02,cr*2,E02,cr*2,A02,cr*3,Bb02,cr
  2106.     dc.b C03,cr*2,A02,cr*2,G02,cr*2,F02,cr*2,E02,cr*2,F02,cr*2
  2107.     dc.b G02,cr*6,rest,cr*2,C03,cr*3,Bb02,cr,A02,cr*2,G02,cr*2
  2108.     dc.b F02,cr*2,E02,cr,D02,cr,C02,cr*2,A01,cr*2,C02,cr*2,F02,cr*2
  2109.     dc.b G02,cr,G02,cr,A02,cr*2,F02,cr*4
  2110.     dc.b m,end_patt
  2111. ;;;;;;;;;;;;;;;;;;;;;    MEXICO   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2112. song55:
  2113.     dc.l p2s
  2114.       dc.l end_song
  2115.  
  2116. song56:
  2117.     dc.l p3s
  2118.       dc.l end_song
  2119. song57:
  2120.     dc.l p1s
  2121.       dc.l end_song
  2122.  
  2123. p1s: even
  2124.       dc.b m,new_env,trigg,0
  2125.       dc.l piano_anthenv
  2126.     dc.b F04,cr,A04,q,C05,q*3,C05,cr,C05,q
  2127.     dc.b C05,q*3,C05,q,D05,q,E05,q,F05,q*3,E05,q*3
  2128.     dc.b C05,q*3,A04,cr,F04,q,F04,q*3,A04,cr,A04,q
  2129.     dc.b Bb04,q*3,C05,cr,C05,q,A04,cr,G04,q,F04,q*3
  2130.       dc.b m,end_patt
  2131. p2s: even
  2132.       dc.b m,new_env,trigg,0
  2133.       dc.l piano_anthenv1
  2134.     dc.b rest,q*3,A04,q*3,A04,cr,A04,q,A04,q*3,A04,q,A04,q,A04,q
  2135.     dc.b A04,q*3,A04,q*3,A04,q*3,F04,cr,C04,q,Bb03,q*3,C04,cr,C04,q
  2136.     dc.b D04,q*3,E04,cr,E04,q,C04,cr,Bb03,q,A03,q*3 
  2137.     dc.b m,end_patt
  2138. p3s: even
  2139.       dc.b m,new_env,trigg,0
  2140.       dc.l bass_anthenv
  2141.     dc.b rest,q*3,F03,q*3,C03,cr,C03,q,F03,q*3,F03,q,F03,q,F03,q
  2142.     dc.b F03,q*3,C03,q*3,F03,q*3,C03,cr,C03,q,C03,q*3,C03,cr,C03,q
  2143.     dc.b C03,q*3,C03,cr,C03,q,F03,q*3,F03,q*3
  2144.     dc.b m,end_patt
  2145. ;;;;;;;;;;;;;;;;;;;;;    NORWAY  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2146. song58:
  2147.     dc.l p2t
  2148.       dc.l end_song
  2149.  
  2150. song59:
  2151.     dc.l p3t
  2152.       dc.l end_song
  2153. song60:
  2154.     dc.l p1t
  2155.       dc.l end_song
  2156.  
  2157. p1t: even
  2158.       dc.b m,new_env,trigg,0
  2159.       dc.l piano_anthenv
  2160.     dc.b Bb04,cr,Eb05,q*3,Db05,q,C05,cr,Bb04,cr
  2161.     dc.b Ab04,cr,Bb04,cr,C05,cr,Db05,cr
  2162.     dc.b Eb05,q*3,F05,q,Eb05,cr,Db05,cr,C05,cr*4
  2163.     dc.b F05,q*3,Eb05,q,Db05,cr,C05,cr
  2164.     dc.b Bb04,cr,C05,cr,Db05,cr,Eb05,q*5,F05,q
  2165.     dc.b Db05,cr,G05,cr,Ab05,cr*4
  2166.       dc.b m,end_patt
  2167. p2t: even
  2168.       dc.b m,new_env,trigg,0
  2169.       dc.l piano_anthenv1
  2170.     dc.b rest,cr*8,Ab04,cr,G04,q*3,Db05,q,C05,cr,Bb04,cr
  2171.     dc.b Ab04,cr*4,rest,cr*7,G04,cr,Ab04,cr*2,F04,cr,Bb04,cr
  2172.     dc.b C05,cr*4
  2173.     dc.b m,end_patt
  2174. p3t: even
  2175.       dc.b m,new_env,trigg,0
  2176.       dc.l bass_anthenv
  2177.     dc.b rest,cr*8,F03,cr,Eb03,q*3,Eb02,q,F02,cr,G02,cr
  2178.     dc.b Ab02,cr*4,rest,cr*7,Db03,cr,C03,cr*2,Bb02,cr,Eb03,cr
  2179.     dc.b Ab02,cr*4
  2180.     dc.b m,end_patt
  2181. ;;;;;;;;;;;;;;;;;;;;;    SPAIN   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2182. song61:
  2183.     dc.l p2u
  2184.       dc.l end_song
  2185.  
  2186. song62:
  2187.     dc.l p3u
  2188.       dc.l end_song
  2189. song63:
  2190.     dc.l p1u
  2191.       dc.l end_song
  2192.  
  2193. p1u: even
  2194.       dc.b m,new_env,trigg,0
  2195.       dc.l piano_anthenv
  2196.     dc.b Ab05,cr,Eb05,cr,C06,cr,Ab05,q,Eb06,q
  2197.     dc.b Db06,q,C06,q,Bb05,q,Ab05,q,Ab05,q,G05,q,F05,q,Eb05,q
  2198.     dc.b Ab05,cr,Bb05,cr,C06,q*3,Eb06,q
  2199.     dc.b Db06,q,C06,q,Bb05,q,Ab05,q,G05,cr*2
  2200.     dc.b Ab05,cr,Eb05,cr,C06,cr,Ab05,q,Eb06,q
  2201.     dc.b Db06,q,C06,q,Bb05,q,Ab05,q,Ab05,q,G05,q,F05,q,Eb05,q
  2202.     dc.b Ab05,cr,Bb05,cr,C06,q*3,Eb06,q
  2203.     dc.b Db06,q,C06,q,Bb05,q,Ab05,q,Ab05,cr*2
  2204.       dc.b m,end_patt
  2205. p2u: even
  2206.       dc.b m,new_env,trigg,0
  2207.       dc.l piano_anthenv1
  2208.     dc.b C05,cr,C05,cr,Eb05,cr,C05,cr
  2209.     dc.b F05,cr*2,Eb05,cr,Db05,cr
  2210.     dc.b C05,cr,Db05,cr,Eb05,q*3,C05,q
  2211.     dc.b Ab04,cr,F04,cr,G04,cr*2
  2212.     dc.b C05,cr,C05,cr,Eb05,cr,C05,cr
  2213.     dc.b F05,cr*2,Eb05,cr,Db05,cr
  2214.     dc.b C05,cr,Db05,cr,Eb05,q*3,C05,q
  2215.     dc.b Ab04,cr,G04,cr,Ab04,cr*2
  2216.     dc.b m,end_patt
  2217. p3u: even
  2218.       dc.b m,new_env,trigg,0
  2219.       dc.l bass_anthenv
  2220.     dc.b Ab02,cr,Ab02,cr,Ab02,cr,Ab02,cr
  2221.     dc.b Ab02,q,Bb02,q,C03,q,D03,q,Eb03,cr*2
  2222.     dc.b Ab02,cr,Eb03,cr,Ab02,cr,G02,cr
  2223.     dc.b F02,cr,Db02,cr,Eb02,cr*2
  2224.     dc.b Ab02,cr,Ab02,cr,Ab02,cr,Ab02,cr
  2225.     dc.b Ab02,q,Bb02,q,C03,q,D03,q,Eb03,cr*2
  2226.     dc.b Ab02,cr,Eb03,cr,Ab02,cr,G02,cr
  2227.     dc.b F02,cr,Eb02,cr,Ab02,cr*2
  2228.     dc.b m,end_patt
  2229. ;;;;;;;;;;;;;;;;;;;;;    SWEDEN    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2230. song64:
  2231.     dc.l p2v
  2232.       dc.l end_song
  2233.  
  2234. song65:
  2235.     dc.l p3v
  2236.       dc.l end_song
  2237. song66:
  2238.     dc.l p1v
  2239.       dc.l end_song
  2240.  
  2241. p1v: even
  2242.       dc.b m,new_env,trigg,0
  2243.       dc.l piano_anthenv
  2244.     dc.b F04,q,Bb04,cr,Bb04,q,C05,q,A04,cr,A04,q,Bb04,q
  2245.     dc.b G04,sq*3,F04,sq,G04,q,A04,q,F04,q*3,F04,q
  2246.     dc.b Bb04,sq*3,A04,sq,Bb04,q,C05,q,D05,q,Bb04,q,Eb05,sq*3,D05,sq
  2247.     dc.b C05,cr*2,Bb04,cr,rest,q,F04,q
  2248.     dc.b Bb04,sq*3,A04,sq,Bb04,q,C05,q,D05,q,Bb04,q,Eb05,sq*3,D05,sq
  2249.     dc.b C05,cr*2,Bb04,cr*2
  2250.       dc.b m,end_patt
  2251. p2v: even
  2252.       dc.b m,new_env,trigg,0
  2253.       dc.l piano_anthenv1
  2254.     dc.b C04,q,F04,cr,D04,q,G04,q,G04,cr,F04,q,G04,q
  2255.     dc.b F04,cr,E04,cr,C04,q*3,C04,q,F04,sq*3,F04,sq,F04,q,A04,q
  2256.     dc.b Bb04,q,F04,q,Bb04,sq*3,Bb04,sq,G04,cr,F04,q,Eb04,q
  2257.     dc.b F04,q*3,C04,q,F04,sq*3,F04,sq,F04,q,A04,q
  2258.     dc.b Bb04,q,F04,q,Bb04,sq*3,Bb04,sq,G04,cr,F04,q,Eb04,q
  2259.     dc.b F04,cr*2
  2260.     dc.b m,end_patt
  2261. p3v: even
  2262.       dc.b m,new_env,trigg,0
  2263.       dc.l bass_anthenv
  2264.     dc.b rest,q,D02,cr,G02,q,E02,q,F02,cr,D03,q,G02,q
  2265.     dc.b C03,cr*2,F03,cr,Eb03,cr,D03,sq*3,Eb03,sq,D03,q,C03,q
  2266.     dc.b Bb02,q,Ab02,q,G02,sq*3,F02,sq,Eb02,cr,F02,cr
  2267.     dc.b Bb02,cr,F02,cr,D03,sq*3,Eb03,sq,D03,q,C03,q
  2268.     dc.b Bb02,q,Ab02,q,G02,sq*3,F02,sq,Eb02,cr,F02,cr
  2269.     dc.b Bb02,cr*2
  2270.     dc.b m,end_patt
  2271. ;;;;;;;;;;;;;;;;;;;;;    U.S.A.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2272. song67:
  2273.     dc.l p2w
  2274.       dc.l end_song
  2275.  
  2276. song68:
  2277.     dc.l p3w
  2278.       dc.l end_song
  2279. song69:
  2280.     dc.l p1w
  2281.       dc.l end_song
  2282.  
  2283. p1w: even
  2284.       dc.b m,new_env,trigg,0
  2285.       dc.l piano_anthenv
  2286.     dc.b F05,sq*3,D05,sq,Bb04,cr,D05,cr,F05,cr
  2287.     dc.b Bb05,cr*2,D06,sq*3,C06,sq,Bb05,cr,D05,cr,E05,cr
  2288.     dc.b F05,cr*2,F05,q,F05,q,D06,q*3,C06,q,Bb05,cr
  2289.     dc.b A05,cr*2,G05,q,A05,q,Bb05,cr,Bb05,cr,F05,cr,D05,cr,Bb04,cr*2
  2290.       dc.b m,end_patt
  2291. p2w: even
  2292.       dc.b m,new_env,trigg,0
  2293.       dc.l piano_anthenv1
  2294.     dc.b F05,sq*3,D05,sq,Bb04,cr,Bb04,cr,C05,cr,D05,cr*2,D05,cr
  2295.     dc.b D05,cr,Bb04,cr,C05,cr,A04,cr*3,F05,q*3,Eb05,q,D05,cr
  2296.     dc.b C05,cr*2,Bb04,q,C05,q,D05,cr,D05,cr,D05,cr,Bb04,cr,F04,cr*2
  2297.     dc.b m,end_patt
  2298. p3w: even
  2299.       dc.b m,new_env,trigg,0
  2300.       dc.l bass_anthenv
  2301.     dc.b F03,sq*3,Eb03,sq,Bb02,cr,Bb02,cr,A02,cr,G02,cr*2
  2302.     dc.b Gb02,cr,G02,cr,G02,cr,C03,cr,F02,cr*2,F03,q,F03,q
  2303.     dc.b Bb02,cr*3,F02,cr*3,Bb02,cr,Bb02,cr,F03,cr,D03,cr,Bb02,cr*2
  2304.     dc.b m,end_patt
  2305. ;;;;;;;;;;;;;;;;;;;;;    U.S.S.R  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2306. song70:
  2307.     dc.l p2x
  2308.       dc.l end_song
  2309.  
  2310. song71:
  2311.     dc.l p3x
  2312.       dc.l end_song
  2313. song72:
  2314.     dc.l p1x
  2315.       dc.l end_song
  2316.  
  2317. p1x: even
  2318.       dc.b m,new_env,trigg,0
  2319.       dc.l piano_anthenv
  2320.     dc.b Gb05,cr,B05,cr*2,Gb05,q*3,Ab05,q,Bb05,cr*2,Gb05,q*3,Gb05,q
  2321.     dc.b Ab05,cr*2, Gb05,q*3,E05,q,Gb05,cr*2,B04,q*3,B04,q
  2322.     dc.b Db05,cr*2,Db05,q*3,Eb05,q,E05,cr*2,E05,cr,Gb05,cr
  2323.     dc.b Ab05,cr*2,Bb05,q*3,B05,q,Db06,cr*3,Gb05,cr
  2324.     dc.b B05,cr*2,Gb05,q*3,Ab05,q,Bb05,cr*2,Gb05,cr,Gb05,cr
  2325.     dc.b Ab05,cr*2,Eb05,q*3,F05,q,Gb05,cr*2,Eb05,cr,Eb05,cr
  2326.     dc.b Ab05,cr*2,Gb05,q*3,E05,q,Gb05,cr*2,B04,q*3,B04,q
  2327.     dc.b Db05,cr*2,Db05,q*3,Db05,q,B04,cr*4
  2328.       dc.b m,end_patt
  2329. p2x: even
  2330.       dc.b m,new_env,trigg,0
  2331.       dc.l piano_anthenv1
  2332.     dc.b rest,cr,Eb04,cr*2,Eb04,cr*2,Eb04,cr*2,Eb04,cr*2
  2333.     dc.b B03,cr*2,B03,cr*2,B03,cr*2,Eb03,q*3,Db03,q
  2334.     dc.b E03,cr*2,A03,cr*2,Ab03,cr*2,Db04,cr*2,E04,cr*2
  2335.     dc.b Gb04,q*3,Ab04,q,Bb04,cr*2,Db04,cr*2,Eb04,cr*2
  2336.     dc.b Eb04,cr*2,Gb04,cr*2,Eb04,cr*2,B03,cr*2,B03,cr*2
  2337.     dc.b Bb03,cr*2,Gb03,cr,Gb03,cr,B03,cr*2,Bb03,cr*2
  2338.     dc.b Eb04,cr*2,Gb03,q*3,Gb03,q,Ab03,cr*2,Ab03,q*3,Ab03,q
  2339.     dc.b Gb03,cr*4
  2340.     dc.b m,end_patt
  2341. p3x: even
  2342.       dc.b m,new_env,trigg,0
  2343.       dc.l bass_anthenv
  2344.     dc.b Gb03,cr,B02,cr*2,Gb03,cr*2,Bb02,cr*2,Gb03,cr*2
  2345.     dc.b E03,cr*2,Ab03,cr*2,Eb03,cr*2,B02,q*3,B02,q
  2346.     dc.b Db03,cr*2,Gb03,cr*2,Db03,cr*2,Db03,cr*2,E03,cr*2,Gb03,cr*2
  2347.     dc.b Gb03,cr*2,Gb02,cr*2,B02,cr*2,Gb03,cr*2,Eb03,cr*2,Gb03,cr*2
  2348.     dc.b Ab02,cr*2,Gb02,cr*2,Eb03,cr*2,Eb03,cr,Eb03,cr
  2349.     dc.b E03,cr*2,Gb03,cr*2,B02,cr*2,Eb03,q*3,Eb03,q
  2350.     dc.b Db03,cr*2,Db03,q*3,Db03,q,B02,cr*4
  2351.     dc.b m,end_patt
  2352.  
  2353.  
  2354.  
  2355. bass_anthenv: dc.b 15,t2,15,t2,15,t2,15,t2
  2356.   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
  2357.   dc.b 0,t2,255
  2358. piano_anthenv:    dc.b 15,t3,15,t3,15,t3,15,t3,14,t3
  2359.   dc.b 14,t3,14,t3,14,t3,14,t3,14,t3
  2360.   dc.b 13,t3,13,t3,13,t3,13,t3,13,t3
  2361.   dc.b 13,t3,12,t3,12,t3,12,t3,12,t3
  2362.   dc.b 11,t3,11,t3,11,t3,11,t3,11,t3
  2363.   dc.b 10,t3,10,t3,10,t3,10,t3,10,t3
  2364.   dc.b 9,t3,9,t3,8,t3,8,t3,7,t3,7,t3,6,t3,6,t3,6,t3
  2365.   dc.b 5,t3,4,t3,3,t3,2,t3,1,t3,0,t3,255
  2366. piano_anthenv1:  dc.b 15,t1,15,t1,15,t1,15,t1,14,t1
  2367.   dc.b 14,t1,14,t1,14,t1,14,t1,14,t1
  2368.   dc.b 13,t1,13,t1,13,t1,13,t1,13,t1
  2369.   dc.b 13,t1,12,t1,12,t1,12,t1,12,t1
  2370.   dc.b 11,t1,11,t1,11,t1,11,t1,11,t1
  2371.   dc.b 10,t1,10,t1,10,t1,10,t1,10,t1
  2372.   dc.b 9,t1,9,t1,8,t1,8,t1,7,t1,7,t1,6,t1,6,t1,6,t1
  2373.   dc.b 5,t1,4,t1,3,t1,2,t1,1,t1,0,t1,255
  2374.  
  2375. bassde: dc.b 15,b1,15,t1,15,t1,15,t1,7,t1
  2376.   dc.b 3,t1,0,t1,255
  2377. mono_env:    dc.b 15,t3,255
  2378. mono_envt2:    dc.b 15,t2,255
  2379. qclape:     dc.b 15,n1,14,n1,14,n1,13,n1,13,n1,12,n1
  2380.   dc.b 11,n1,11,n1,9,n1,7,n1,7,n1,7
  2381.   dc.b n1,6,n1,6,n1,6
  2382.   dc.b n1,5,n1,255
  2383. hate:     dc.b 13,n1,0,n1,255
  2384.  
  2385.  
  2386.  
  2387. ;;;;;;;;;;;;;;;;;;;;;;  music data end ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2388.  
  2389.  
  2390. cr  equ 8
  2391. tcr1 equ 224
  2392. tcr2 equ 226
  2393. Q   equ 4
  2394. tq1  equ 220
  2395. tq2  equ 222
  2396. tsq1 equ 216
  2397. tsq2 equ 218
  2398. sq1 equ 236
  2399. sQ  equ 2
  2400. m   equ 254
  2401. rest equ 253
  2402. dsQ eQu 234
  2403. speed16
  2404.     dc.w 0,3,7,11,15,19,23,27,31,35,39,43,47,51,55
  2405.     dc.w 59,63,67,71,75,79,83,87,91,95,99,103,107
  2406.     dc.w 111,115,119,123,127,131,135,139,143,147,151
  2407.     dc.w 155,159,163,167,171,175,179,183,187,191,195
  2408.     dc.w 199,203,207,211,215,219,223,227,231,235,239,243
  2409.     dc.w 247,251,255,259,263,267,271,275,279,283,287,291
  2410.     dc.w 295,299,303,307,311,315,319,323,327,331,335,339
  2411.     dc.w 343,347,351,355,359,363,367,371,375,379,383
  2412.     dc.w 387,391,395,399,403,407,411,415,419,423,427
  2413.     dc.w 2,1,4,5,10,9,4,10,20,1,1
  2414.  
  2415. speed20
  2416.     dc.w    0,4,9,14,19,24,29,34,39,44,49,54,59,64,69
  2417.     dc.w    74,79,84,89,94,99,104,109,114,119,124,129
  2418.     dc.w    134,139,144,149,154,159,164,169,174,179,184,189
  2419.     dc.w    234,239,244,249,254,259,264,269,274,279,284,289
  2420.     dc.w    334,339,344,349,354,359,364,369,374,379,384,389    
  2421.     dc.w    434,439,444,449,454,459,464,469,474,479,484,489 
  2422.     dc.w    534
  2423.     dc.w    2,3,6,5,12,13,6,12,26,1,1
  2424. speed24
  2425.     dc.w    0,5,11,17,23,29,35,41,47,53,59,65,71,77
  2426.     dc.w    83,89,95,101,107,113,119,125,131,137,143
  2427.     dc.w    149,155,161,167,173,179,185,191,197,203
  2428.     dc.w    209,215,221,227,233,239,245,251,257,263,269
  2429.     dc.w    275,281,287,293,299,305,311,317,323,329
  2430.     dc.w    335,341,347,353,359,365,371,377,383,389
  2431.     dc.w    395,401,407,413,419,425,431,437,443,449
  2432.     dc.w    455,461,467,473,479,485,491,497,503,509
  2433.     dc.w    515,521,527,533,539,545,551,557,563,569
  2434.     dc.w    575,581,587,593,599,605,611,617,623,629
  2435.     dc.w    635,641
  2436.     dc.w    3,3,7,7,15,15,7,15,31,2,2
  2437.  
  2438.  
  2439. b08:  equ  0
  2440. bb08:  equ  2
  2441. a08:  equ  4
  2442. ab08:  equ 6 
  2443. g08:  equ  8
  2444. gb08:  equ  10
  2445. f08:  equ  12
  2446. e08:  equ  14
  2447. eb08:  equ  16
  2448. d08:  equ  18
  2449. db08:  equ  20
  2450. c08:  equ  22
  2451. ;  ********
  2452.  
  2453. ;  *********
  2454. b07:  equ  24
  2455. bb07:  equ  26
  2456. a07:  equ  28
  2457. ab07:  equ  30
  2458. g07:  equ  32
  2459. gb07:  equ  34
  2460. f07:  equ  36
  2461. e07:  equ  38
  2462. eb07:  equ  40
  2463. d07:  equ  42
  2464. db07:  equ  44
  2465. c07:  equ  46
  2466. ;  ********
  2467. ;  *********
  2468. b06:  equ  48
  2469. bb06:  equ  50
  2470. a06:  equ  52
  2471. ab06:  equ  54
  2472. g06:  equ  56
  2473.  
  2474. gb06:  equ  58
  2475. f06:  equ  60
  2476. e06:  equ  62
  2477. eb06:  equ  64
  2478. d06:  equ  66
  2479. db06:  equ  68
  2480. c06:  equ  70
  2481. ;  ********
  2482. ;  *********
  2483. b05:  equ  72
  2484. bb05:  equ  74
  2485. a05:  equ  76
  2486. ab05:  equ  78
  2487. g05:  equ  80
  2488. gb05:  equ  82
  2489. f05:  equ  84
  2490. e05:  equ  86
  2491. eb05:  equ  88
  2492. d05:  equ  90
  2493. db05:  equ  92
  2494. c05:  equ  94
  2495. ;  ********
  2496. ;  *********
  2497. b04:  equ  96
  2498. bb04:  equ  98
  2499. a04:  equ  100
  2500. ab04:  equ  102
  2501. g04:  equ  104
  2502. gb04:  equ  106
  2503. f04:  equ  108
  2504. e04:  equ  110
  2505. eb04:  equ  112
  2506. d04:  equ  114
  2507. db04:  equ  116
  2508. c04:  equ  118
  2509. ;  ********
  2510. ;  *********
  2511. b03:  equ  120
  2512. bb03:  equ  122
  2513. a03:  equ  124
  2514. ab03:  equ  126
  2515. g03:  equ  128
  2516. gb03:  equ  130
  2517. f03:  equ  132
  2518. e03:  equ  134
  2519. eb03:  equ  136
  2520. d03:  equ  138
  2521. db03:  equ  140
  2522. c03:  equ  142
  2523. ;  ********
  2524. ;  *********
  2525. b02:  equ  144
  2526. bb02:  equ  146
  2527. a02:  equ  148
  2528. ab02:  equ  150
  2529. g02:  equ  152
  2530. gb02:  equ  154
  2531. f02:  equ  156
  2532. e02:  equ  158
  2533. eb02:  equ  160
  2534. d02:  equ  162
  2535. db02:  equ  164
  2536. c02:  equ  166
  2537. ;  ********
  2538. ;  *********
  2539. b01:  equ  168
  2540. bb01:  equ  170
  2541. a01:  equ  172
  2542. ab01:  equ  174
  2543. g01:  equ  176
  2544. gb01:  equ  178
  2545. f01:  equ  180
  2546. e01:  equ  182
  2547. eb01:  equ  184
  2548. d01:  equ  186
  2549. db01:  equ  188
  2550. c01:  equ  190
  2551. ;  ********
  2552. note_table:
  2553.   dc.w  16
  2554.   dc.w  17
  2555.   dc.w  18
  2556.   dc.w  19
  2557.   dc.w  20
  2558.   dc.w  21
  2559.   dc.w  22
  2560.   dc.w  24
  2561.   dc.w  25
  2562.   dc.w  27
  2563.   dc.w  28
  2564.   dc.w  30
  2565. ;  ********
  2566.  
  2567. ;  *********
  2568.   dc.w  32
  2569.   dc.w  34
  2570.   dc.w  36
  2571.   dc.w  38
  2572.   dc.w  40
  2573.   dc.w  42
  2574.   dc.w  45
  2575.   dc.w  47
  2576.   dc.w  50
  2577.   dc.w  53
  2578.   dc.w  56
  2579.   dc.w  60
  2580. ;  ********
  2581. ;  *********
  2582.   dc.w  63
  2583.   dc.w  67
  2584.   dc.w  71
  2585.   dc.w  75
  2586.   dc.w  80
  2587.  
  2588.   dc.w  84
  2589.   dc.w  89
  2590.   dc.w  95
  2591.   dc.w  100
  2592.   dc.w  106
  2593.   dc.w  113
  2594.   dc.w  119
  2595. ;  ********
  2596. ;  *********
  2597.   dc.w  127
  2598.   dc.w  134
  2599.   dc.w  142
  2600.   dc.w  150
  2601.   dc.w  159
  2602.   dc.w  169
  2603.   dc.w  179
  2604.   dc.w  190
  2605.   dc.w  201
  2606.   dc.w  213
  2607.   dc.w  225
  2608.   dc.w  239
  2609. ;  ********
  2610. ;  *********
  2611.   dc.w  253
  2612.   dc.w  268
  2613.   dc.w  284
  2614.   dc.w  301
  2615.   dc.w  319
  2616.   dc.w  338
  2617.   dc.w  358
  2618.   dc.w  379
  2619.   dc.w  402
  2620.   dc.w  426
  2621.   dc.w  451
  2622.   dc.w  478
  2623. ;  ********
  2624. ;  *********
  2625.   dc.w  506
  2626.   dc.w  536
  2627.   dc.w  568
  2628.   dc.w  602
  2629.   dc.w  638
  2630.   dc.w  676
  2631.   dc.w  716
  2632.   dc.w  758
  2633.   dc.w  804
  2634.   dc.w  851
  2635.   dc.w  902
  2636.   dc.w  956
  2637. ;  ********
  2638. ;  *********
  2639.   dc.w  1012
  2640.   dc.w  1073
  2641.   dc.w  1136
  2642.   dc.w  1204
  2643.   dc.w  1276
  2644.   dc.w  1351
  2645.   dc.w  1432
  2646.   dc.w  1517
  2647.   dc.w  1607
  2648.   dc.w  1703
  2649.   dc.w  1804
  2650.   dc.w  1911
  2651. ;  ********
  2652. ;  *********
  2653.   dc.w  2025
  2654.   dc.w  2145
  2655.   dc.w  2273
  2656.   dc.w  2408
  2657.   dc.w  2551
  2658.   dc.w  2703
  2659.   dc.w  2863
  2660.   dc.w  3034
  2661.   dc.w  3214
  2662.   dc.w  3405
  2663.   dc.w  3608
  2664.   dc.w  3822
  2665. ;  ********
  2666.  
  2667. vb08:  equ  16
  2668. vbb08:  equ  17
  2669. va08:  equ  18
  2670. vab08:  equ  19
  2671. vg08:  equ  20
  2672. vgb08:  equ  21
  2673. vf08:  equ  22
  2674. ve08:  equ  24
  2675. veb08:  equ  25
  2676. vd08:  equ  27
  2677. vdb08:  equ  208
  2678. vc08:  equ  30
  2679. ;  ********
  2680.  
  2681. ;  *********
  2682. vb07:  equ  32
  2683. vbb07:  equ  34
  2684. va07:  equ  36
  2685. vab07:  equ  38
  2686. vg07:  equ  40
  2687. vgb07:  equ  42
  2688. vf07:  equ  45
  2689. ve07:  equ  47
  2690. veb07:  equ  50
  2691. vd07:  equ  53
  2692. vdb07:  equ  56
  2693. vc07:  equ  60
  2694. ;  ********
  2695. ;  *********
  2696. vb06:  equ  63
  2697. vbb06:  equ  67
  2698. va06:  equ  71
  2699. vab06:  equ  75
  2700. vg06:  equ  80
  2701.  
  2702. vgb06:  equ  84
  2703. vf06:  equ  89
  2704. ve06:  equ  95
  2705. veb06:  equ  100
  2706. vd06:  equ  106
  2707. vdb06:  equ  113
  2708. vc06:  equ  119
  2709. ;  ********
  2710. ;  *********
  2711. vb05:  equ  127
  2712. vbb05:  equ  134
  2713. va05:  equ  142
  2714. vab05:  equ  150
  2715. vg05:  equ  159
  2716. vgb05:  equ  169
  2717. vf05:  equ  179
  2718. ve05:  equ  190
  2719. veb05:  equ  201
  2720. vd05:  equ  213
  2721. vdb05:  equ  225
  2722. vc05:  equ  239
  2723. ;  ********
  2724. ;  *********
  2725. vb04:  equ  253
  2726. vbb04:  equ  268
  2727. va04:  equ  284
  2728. vab04:  equ  301
  2729. vg04:  equ  319
  2730. vgb04:  equ  338
  2731. vf04:  equ  358
  2732. ve04:  equ  379
  2733. veb04:  equ  402
  2734. vd04:  equ  426
  2735. vdb04:  equ  451
  2736. vc04:  equ  478
  2737. ;  ********
  2738. ;  *********
  2739. vb03:  equ  506
  2740. vbb03:  equ  536
  2741. va03:  equ  568
  2742. vab03:  equ  602
  2743. vg03:  equ  638
  2744. vgb03:  equ  676
  2745. vf03:  equ  716
  2746. ve03:  equ  758
  2747. veb03:  equ  804
  2748. vd03:  equ  851
  2749. vdb03:  equ  902
  2750. vc03:  equ  956
  2751. ;  ********
  2752. ;  *********
  2753. vb02:  equ  1012
  2754. vbb02:  equ  1073
  2755. va02:  equ  1136
  2756. vab02:  equ  1204
  2757. vg02:  equ  1276
  2758. vgb02:  equ  1351
  2759. vf02:  equ  1432
  2760. ve02:  equ  1517
  2761. veb02:  equ  1607
  2762. vd02:  equ  1703
  2763. vdb02:  equ  1804
  2764. vc02:  equ  1911
  2765. ;  ********
  2766. ;  *********
  2767. vb01:  equ  2025
  2768. vbb01:  equ  2145
  2769. va01:  equ  2273
  2770. vab01:  equ  2408
  2771. vg01:  equ  2551
  2772. vgb01:  equ  2703
  2773. vf01:  equ  2863
  2774. ve01:  equ  3034
  2775. veb01:  equ  3214
  2776. vd01:  equ  3405
  2777. vdb01:  equ  3608
  2778. vc01:  equ  3822
  2779. ;  ********
  2780.  
  2781.  
  2782.  
  2783. speeds: dc.w $0607
  2784.  dc.w $cf01
  2785.  dc.w 39681 
  2786.  dc.w 31745 
  2787.  dc.w 26369 
  2788.  dc.w 22529 
  2789.  dc.w 19713 
  2790.  dc.w 17409 
  2791.  dc.w 15873 
  2792.  dc.w 14337 
  2793.  dc.w 13313 
  2794.  dc.w 12289 
  2795.  dc.w 11265 
  2796.  dc.w 10497 
  2797.  dc.w 9985 
  2798.  dc.w 2307 
  2799. chanel_a: dc.l $00000000,$00020000,$00020001,$00020002
  2800.  dc.l $00030002,$00040001,$00040002,$00050002
  2801.  dc.l $00060000,$00060002,$00060003,$00060004
  2802.  dc.l $00070002,$00070004,$00070005,$00080002
  2803.  dc.l $00080003,$00080004,$00080005,$00090002
  2804.  dc.l $00090003,$00090004,$00090005,$00090006
  2805.  dc.l $00090007,$000a0003,$000a0004,$000a0005
  2806.  dc.l $000a0006,$000a0007,$000b0000,$000b0001
  2807.  dc.l $000b0002,$000b0004,$000b0005,$000b0006
  2808.  dc.l $000b0007,$000b0008,$000b0008,$000b0009
  2809.  dc.l $000b0009,$000c0000,$000c0001,$000c0002
  2810.  dc.l $000c0003,$000c0004,$000c0005,$000c0006
  2811.  dc.l $000c0008,$000c0008,$000c0009,$000c0009
  2812.  dc.l $000c0009,$000c000a,$000d0000,$000d0002
  2813.  dc.l $000d0003,$000d0004,$000d0005,$000d0006
  2814.  dc.l $000d0007,$000d0008,$000d0008,$000d0009
  2815.  
  2816. max_fx    dc.l 0
  2817. patt_table  dc.l 0
  2818.  
  2819. ; this is the general sample block accessed by the other events
  2820. ; and can be anywhere in memory provided sb is equ'd to the
  2821. ; start of it.(it will need to be in memory all of the time)
  2822.  
  2823. sb    incbin a:sampleb1.sam
  2824.  
  2825.  
  2826.  
  2827.  
  2828. end
  2829.  
  2830. ?
  2831.  
  2832.  
  2833.