Dave Lowe: Railroad Tycoon Amiga Music FX/Lowe_RailroadTycoonAmigaMusicFX.adf/JAGGED.BLK

Text File | 1985-11-19 | 26.0 KB | 1,394 lines

;;;;;;;;;;;;;;;;;;;;;    JAGGED  Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

xxx
song1:
    dc.l    p10,p10,p10,p10,p10,p10,p10,p10,p10,p10,p10
    dc.l    p10,p10,p10,p11
    dc.l    p9,p9,p9,p9,p9,p9,p9,p9,p12,p13
    dc.l    p10,p10,p10,p10,p10,p10,p10
    dc.l    p10,p10,p10,p11
    dc.l    p9,p9,p9,p9,p9,p9,p9,p9,p12,p13
      dc.l     end_song

song2:
    dc.l    p1,p1,p1,p1,p1,p1,p2,p2,p1,p1,p2,p2
    dc.l    p3,p3,p3,p4,p5,p6,p6,p6,p6
    dc.l    p7,p7,p7,p7,p6,p6,p6,p6
    dc.l    p7,p7,p7,p7,p8
    dc.l    p1,p1,p2,p2,p1,p1,p2,p2
    dc.l    p3,p3,p3,p4,p5,p6,p6,p6,p6
    dc.l    p7,p7,p7,p7,p6,p6,p6,p6
    dc.l    p7,p7,p7,p7,p8
        DC.L     end_song

song3:

    dc.l    pr,pr,pr,pr,p20,p20a,p21,p22
    dc.l    p20,p20a,p21,p22
    dc.l     end_song


pcr:
      dc.w rest,cr
      dc.b m,end_patt
pr:
      dc.w rest,cr*4
      dc.b m,end_patt
pra:
    dc.w rest,q*7
    dc.b m,end_patt
pqr:
      dc.w rest,q
      dc.b m,end_patt

p1:
      dc.b m,new_env,trigg,0
      dc.l bass_env
      dc.w a01,q,c02,q,E02,q,a01,q
      dc.w g02,q,a01,q,E02,q,g02,q
      dc.b m,end_patt


p2:
      dc.b m,new_env,trigg,0
      dc.l bass_env
      dc.w f01,q,a01,q,c02,q,f01,q
      dc.w d02,q,f01,q,c02,q,f01,q
      dc.b m,end_patt



p3:
      dc.b m,new_env,trigg,0
      dc.l bass_env
      dc.w g01,q,g02,q,g01,q,g02,q
      dc.b m,end_patt


p4:
      dc.b m,new_env,trigg,0
      dc.l bass_env
      dc.w f01,q,f02,q,f01,q,f02,q
      dc.b m,end_patt



p5:
      dc.b m,new_env,trigg,0
      dc.l bass_env
      dc.w e01,q,gb01,q,ab01,q,ab01,q
      dc.w b01,q,db02,q,d02,q,e02,q
      dc.b m,end_patt


p6:
      dc.b m,new_env,trigg,0
      dc.l bass_envs
      dc.w a02,sq,a02,sq,db03,sq,db03,sq
      dc.w a02,sq,a02,sq,E03,sq,e03,sq
      dc.b m,end_patt


p7:
    dc.b m,new_env,trigg,0
      dc.l bass_envs
      dc.w e02,sq,e02,sq,ab02,sq,ab02,sq
      dc.w e02,sq,e02,sq,b03,sq,b03,sq
      dc.b m,end_patt


p8:
    dc.b m,new_env,trigg,0
      dc.l long_sus2
      dc.w d03,q,d02,sq,rest,sq,d02,q,d03,q
      dc.w d03,sq,rest,sq,d02,q,d02,q,d03,sq
    dc.w rest,sq,d02,sq,rest,sq,d02,sq*5,rest,sq
    dc.w e02,sq*7,rest,sq
      dc.b m,end_patt




p9:
      dc.b m,inline,6,200,255,0
      dc.b m,new_env,trigg,0
      dc.l bassde
      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sQ
      dc.b m,new_env,trigg,0
      dc.l qCLAPE
      dc.b m,pbend,down,69
      dc.w c01,0
      dc.w c04,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sQ
      dc.b m,new_env,trigg,0
      dc.l bassde
      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sQ
      dc.b m,new_env,trigg,0
      dc.l QCLAPE
      dc.b m,pbend,down,69
      dc.w c01,0
      dc.w c05,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sq
      dc.b m,end_patt


p10:
      dc.b m,inline,6,200,255,0
      dc.b m,new_env,trigg,0
      dc.l bassde
      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sQ,g05,sq
      dc.w g06,sQ,g06,sQ,g06,sQ
      dc.b m,new_env,trigg,0
      dc.l bassde
      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sQ
      dc.b m,new_env,trigg,0
      dc.l snaree
      dc.b m,pbend,down,69
      dc.w c01,0
      dc.w c05,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g05,sQ,g04,sq
      dc.b m,end_patt


p11:
      dc.b m,inline,6,200,255,0
      dc.b m,new_env,trigg,0
      dc.l bassde
      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sQ,g05,sq
      dc.w g06,sQ,g06,sQ,g06,sQ
      dc.b m,new_env,trigg,0
      dc.l bassde
      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sQ
      dc.b m,new_env,trigg,0
      dc.l snaree
      dc.b m,pbend,down,69
      dc.w c01,0
      dc.w c05,sQ
      dc.b m,new_env,trigg,0
      dc.l rota1
      dc.w g04,sQ,c04,sQ,g03,sq
      dc.b m,end_patt

p12:
      dc.b m,new_env,trigg,0
      dc.l QCLAPE
      dc.b m,pbend,down,69
      dc.w c01,0
      dc.w c05,q,c05,q,c05,q,c05,q
      dc.w c05,q,c05,q,c05,q,c05,q
      dc.b m,end_patt


p13:
      dc.b m,new_env,trigg,0
      dc.l bassde
      dc.b m,pbend,down,255
      dc.w c01,0
      dc.w c04,cr
      dc.b m,pbend,down,255
      dc.w c01,0
      dc.w c04,cr
      dc.b m,pbend,down,255
      dc.w c01,0
      dc.w c04,cr
      dc.b m,pbend,down,255
      dc.w c01,0
      dc.w c04,cr
      dc.b m,end_patt
p20:
      dc.b m,new_env,trigg,0
      dc.l apaiano_env
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w c04,q,d04,q,e04,q,d04,q
      dc.b m,new_env,trigg,0
      dc.l mono_env
    dc.w c04,cr*2
      dc.b m,new_env,trigg,0
      dc.l apaiano_env
      dc.w c04,q,d04,q,e04,q,f04,q,e04,q
      dc.w d04,q,c04,q,rest,q,a03,q,b03,q,c04,q,b03,q
      dc.b m,new_env,trigg,0
      dc.l mono_env
    dc.w a03,cr*3
      dc.b m,new_env,trigg,0
      dc.l apaiano_env
      dc.w a03,q,b03,q,c04,q,b03,q,a03,cr
      dc.b m,end_patt

p20a:
      dc.b m,new_env,trigg,0
      dc.l apaiano_env
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w c04,sq,c04,sq,d04,sq,c04,sq,e04,sq,c04,sq,d04,sq,g04,sq
      dc.b m,new_env,trigg,0
      dc.l mono_env
    dc.w c04,cr*2
      dc.b m,new_env,trigg,0
      dc.l apaiano_env
      dc.w c04,q,d04,q,e04,q,f04,q,e04,q
      dc.w d04,q,c04,q,rest,q,a03,q,b03,q,c04,q,b03,q
      dc.b m,new_env,trigg,0
      dc.l mono_env
    dc.w a03,cr*3
      dc.b m,new_env,trigg,0
      dc.l apaiano_env
      dc.w a03,q,b03,q,c04,q,b03,q,a03,cr
      dc.b m,end_patt



p21:
      dc.b m,new_env,trigg,0
      dc.l marx_env
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w c04,q,b03,q,a03,q,b03,q,e04,q
      dc.w d04,q,c04,q,d04,q,g04,q,f04,q
      dc.w e04,q,f04,q,a04,q,g04,q,f04,q,g04,q,b04,cr+q
      dc.b m,new_env,trigg,0
      dc.l mono_env
    dc.b m,pbend,up,20
      dc.w e05,0
      dc.w e04,cr*2+q
      dc.b m,end_patt




p22:
      dc.b m,new_env,trigg,0
      dc.l marx_env
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w a04,cr,a04,q,b04,q
      dc.b m,new_env,trigg,0
      dc.l mono_env
    dc.w a04,cr*3
      dc.b m,new_env,trigg,0
      dc.l marx_env
      dc.w a04,q,b04,q,db05,q,b04,q,a04,cr
      dc.w b04,cr,b04,q,db05,q
      dc.b m,new_env,trigg,0
      dc.l mono_env
    dc.w b04,cr*3
      dc.b m,new_env,trigg,0
      dc.l marx_env
      dc.w a04,q,b04,q,db05,q,b04,q,a04,cr
        dc.w a04,q,rest,q,a04,q,b04,q
      dc.b m,new_env,trigg,0
      dc.l mono_env
    dc.w a04,cr*3
      dc.b m,new_env,trigg,0
      dc.l marx_env
      dc.w a04,q,b04,q,db05,q,b04,q,a04,cr

        dc.w b04,q,b04,q,b04,q,db05,q,b04,q,b04,q,b04,q
    dc.w db05,q,b04,q,b04,q,b04,q,db05,q,d05,q,db05,q
    dc.w b04,q,rest,q,c05,q,b04,q,a04,q,c05,q,b04,q,a04,q
    dc.w c05,q,b04,q,a04,q,c05,cr+q
      dc.b m,new_env,trigg,0
      dc.l mono_env
    dc.w e04,cr*2
      dc.b m,end_patt
;****************************************************************


CR      set 16
tcr1     set 9
tcr2     set 8
Q       set 8
tq1      set 4
tq2      set 5
;tsq     set 3
;tsq2     set 2
SQ      set 4
;m       set 254
;rest     set $fd00
;dcr      set cr+q
;dq      set q+sq
;dsq      set sq+(sq/2)
;sb      set cr*4
;min      set cr*2
;dm      set min+cr


pcr16:
      dc.w rest,cr
      dc.b m,end_patt
pr16:
      dc.w rest,cr*4
      dc.b m,end_patt
pqr16:
      dc.w rest,q
      dc.b m,end_patt



song4:
  dc.l pr16,pr16,pr16,pr16,pr16,pr16,p111b
  dc.l P7b,P7b,P7b,P7b

  dc.l p7b,p7b,p7b,p7b
  dc.l p7b,p7b,p7b,p7b
  dc.l p7b,p7b,p7b,p7b
  dc.l P7ab,P7ab,P7ab,P7ab
  dc.l p7ab,p7ab,p7ab,p7ab,p7cb
  dc.l p7b,p7b,p7b,p7b
  dc.l p7b,p7b,p7b,p7b
  dc.l pr16,pr16,pr16,pr16
  dc.l p13ab,p13ab,p13ab,p13ab
  dc.l p7b,p7b,p7b,p7bb,p7bb
  dc.l P7ab,P7ab,P7ab,P7ab
  dc.l p7ab,p7ab,p7ab,p7ab,p7cb
  dc.l p7b,p7b,p7b,p7b
  dc.l p7b,p7b,p7b,p7b,p22b
  dc.l pr16,pr16,pr16,pr16
  dc.l end_song

song5:
  dc.l p14b,p14b,p14b,p14b,p14b,p14b,p14b,p14b
  dc.l p1b,p1b,p2b,p2b
  dc.l p3b,p3b,p4b,p5b
  dc.l p1b,p1b,p2b,p2b
  dc.l p3b,p3b,p4b,p5b
  dc.l p3b,p3b,p2b,p2b
  dc.l p3b,p3b,p2b,p9b,p9b
  dc.l p1b,p1b,p2b,p2b
  dc.l p3b,p3b,p4b,p5b
  dc.l p11b,p11b,p11b,p12b
  dc.l p14b,p11b,p14b,p11b
  dc.l p14b,p11b,p14b,pr16,pr16
  dc.l p3b,p3b,p2b,p2b
  dc.l p3b,p3b,p2b,p9b,p9b
  dc.l p1b,p1b,p2b,p2b
  dc.l p3b,p3b,p4b,p5b,p20b
  dc.l pr16,pr16,pr16,pr16
  dc.l end_song

song6:
  dc.l p222b,p222b,p222b,p222b,p222b,p222b,p222b,p222b
  dc.l p6b,p6b,p8b,p10b
  dc.l p13b,p13b,p13b,p13b
  dc.l p17b,p8b,p10b,p21b
  dc.l pr16,pr16,pr16,pr16
  dc.l end_song

p1b:
  dc.b m,new_env,trigg,0
  dc.l bass_env
  dc.w D03,q,D03,q,D04,q,D03,q
  dc.w D03,q,C04,q,D03,q,A03,q
  dc.b m,end_patt
p2b:
  dc.b m,new_env,trigg,0
  dc.l bass_env
  dc.w C03,q,C03,q,C04,q,C03,q
  dc.w C03,q,Bb03,q,C03,q,G03,q
  dc.b m,end_patt
p3b:
  dc.b m,new_env,trigg,0
  dc.l bass_env
  dc.w Bb02,q,Bb02,q,Bb03,q,Bb02,q
  dc.w Bb02,q,A03,q,Bb02,q,F03,q
  dc.b m,end_patt
p4b:
  dc.b m,new_env,trigg,0
  dc.l bass_env
  dc.w F02,q,F02,q,F03,q,F02,q
  dc.w F02,q,Eb03,q,F02,q,C03,q
  dc.b m,end_patt
p5b:
  dc.b m,new_env,trigg,0
  dc.l bass_env
  dc.w G02,q,G02,q,G03,q,G02,q
  dc.w G02,q,F03,q,G02,q,G03,q
  dc.b m,end_patt
p6b:
  dc.b m,new_env,trigg,0
  dc.l mono_env
  dc.b m,modon,1,1
  dc.w 3,3,8
  dc.w F04,cr+q,E04,cr+q,C04,cr
  dc.w F04,cr+q,E04,cr+q,C04,cr
  dc.w F04,cr+q,E04,cr+q,C04,cr
  dc.w F04,cr+q,E04,cr+q,C04,cr
  dc.w F04,cr+q,E04,cr+q,F04,cr
  dc.w G04,cr+q,F04,cr+q,G04,cr
  dc.w A04,q*5,Bb04,q,A04,q,G04,q*9
  dc.b m,end_patt

p8b:
  dc.b m,new_env,trigg,0
  dc.l apaiano_env
  dc.w Bb04,cr+q,Bb04,cr+q,C05,cr
  dc.w D05,cr+q,C05,cr+q,Bb04,cr
  dc.w C05,cr+q,C05,cr+q,Bb04,cr
  dc.w G04,cr*3
  dc.w F04,cr
  dc.w Bb04,cr+q,Bb04,cr+q,C05,cr
  dc.w D05,cr+q,C05,cr+q,Bb04,cr
  dc.w C05,cr+q,C05,cr+q,D05,cr
  dc.w E05,cr*4
  dc.b m,end_patt

p9b:
  dc.b m,new_env,trigg,0
  dc.l bass_env
  dc.w C04,q,C04,q,Bb03,q,Bb03,q
  dc.w G03,q,G03,q,E03,q,E03,q
  dc.b m,end_patt

p10b:
  dc.b m,new_env,trigg,0
  dc.l mono_env
  dc.b m,modon,1,1
  dc.w 2,2,8
  dc.b m,pbend,up,10
  dc.w F05,1
  dc.w F03,q*11
  dc.b m,pboff
  dc.w E05,cr+q,C05,cr
  dc.w F05,cr+q,E05,cr+q,C05,cr
  dc.w F05,cr+q,E05,cr+q,C05,cr
  dc.w F05,cr+q,E05,cr+q,C05,cr
  dc.w F05,cr+q,E05,cr+q,F05,cr
  dc.w G05,cr+q,F05,cr+q,G05,cr
  dc.w A05,q*5,Bb05,q,A05,q,G05,q*9
  dc.b m,end_patt

p11b:
  dc.b m,new_env,trigg,0
  dc.l bass_env
  dc.w D02,q,D03,q,D02,q,D03,q
  dc.w D02,q,D03,q,C02,q,C03,q
  dc.b m,end_patt

p12b:
  dc.b m,new_env,trigg,0
  dc.l bass_env
  dc.w D02,q,D03,q,F02,q,F03,q
  dc.w E02,q,E03,q,Eb02,q,Eb03,q
  dc.b m,end_patt

p13b:
  dc.b m,new_env,trigg,0
  dc.l mono_env
  dc.w D05,sq,A05,sq,D06,sq,A04,sq
  dc.w D05,sq,A05,sq,D06,sq,A04,sq
  dc.w D05,sq,A05,sq,D06,sq,A04,sq
  dc.w D05,sq,A05,sq,D06,sq,A04,sq
  dc.b m,end_patt

p13ab:
  dc.b m,new_env,trigg,0
  dc.l mono_envt1
  dc.w D05,sq,A05,sq,D06,sq,A04,sq
  dc.w D05,sq,A05,sq,D06,sq,A04,sq
  dc.w D05,sq,A05,sq,D06,sq,A04,sq
  dc.w D05,sq,A05,sq,D06,sq,A04,sq
  dc.b m,end_patt

p222b:
  dc.b m,new_env,trigg,0
  dc.l mono_env
  dc.w D05,sq,A05,sq,D06,sq,A04,sq
  dc.w D05,sq,A05,sq,D06,sq,A04,sq
  dc.w D05,sq,A05,sq,D06,sq,A04,sq
  dc.w D05,sq,A05,sq,D06,sq,A04,sq
  dc.b m,end_patt

p14b:
  dc.b m,new_env,trigg,0
  dc.l bass_env
  dc.w D02,q,D03,q,D02,q,D03,q
  dc.w D02,q,D03,q,D02,q,D03,q
  dc.b m,end_patt

p15b:
  dc.b m,new_env,trigg,0
  dc.l bass_env
  dc.w D02,q,D03,q,D02,q,D03,q
  dc.w C02,q,C03,q,C02,q,C03,q
  dc.b m,end_patt

p16b:
  dc.b m,new_env,trigg,0
  dc.l bass_env
  dc.w D02,q,D03,q,D02,q,D03,q
  dc.w C02,q,C03,q,Db02,q,Db03,q
  dc.b m,end_patt

p17b:
  dc.b m,new_env,trigg,0
  dc.l apaiano_envt
  dc.w rest,q,D04,q,D04,cr
  dc.w D04,sq,D04,q,D04,sq
  dc.w D04,q,C04,q
  dc.w rest,q,D04,q,D04,q
  dc.w D04,q,F04,q,D04,q
  dc.w E04,q,C04,q
  dc.w rest,q,D04,q,D04,cr
  dc.w D04,sq,D04,q,D04,sq
  dc.w D04,q,C04,q
  dc.w rest,q,A04,q,G04,q
  dc.w F04,q,E04,q,F04,q
  dc.w E04,q,C04,q

  dc.w rest,q,D04,q,D04,cr
  dc.w D04,sq,D04,q,D04,sq
  dc.w D04,q,C04,q
  dc.w rest,q,D04,q,D04,q
  dc.w D04,q,F04,q,D04,q
  dc.w E04,q,C04,q
  dc.w rest,q,D04,q,D04,cr
  dc.w D04,sq,D04,q,D04,sq
  dc.w D04,q,C04,q
  dc.w D05,sq,C05,sq,A04,sq,Ab04,sq
  dc.w G04,sq,F04,sq,D04,sq,C04,sq
  dc.w D04,sq,C04,sq,A03,sq,Ab03,sq
  dc.w G03,sq,F03,sq,D03,sq,C03,sq
  dc.w D03,sq,A02,sq,C03,sq,D03,sq
  dc.w F03,sq,D03,sq,F03,sq,G03,sq
  dc.w Ab03,sq,A03,sq,C04,sq,D04,sq
  dc.w F04,sq,G04,sq,Ab04,sq,A04,sq
  dc.b m,end_patt

p111b:
  dc.b m,new_env,trigg,0
  dc.l mono_envt1
  dc.w D05,sq,C05,sq,A04,sq,Ab04,sq
  dc.w G04,sq,F04,sq,D04,sq,C04,sq
  dc.w D04,sq,C04,sq,A03,sq,Ab03,sq
  dc.w G03,sq,F03,sq,D03,sq,C03,sq
  dc.w D03,sq,A02,sq,C03,sq,D03,sq
  dc.w F03,sq,D03,sq,F03,sq,G03,sq
  dc.w Ab03,sq,A03,sq,C04,sq,D04,sq
  dc.w F04,sq,G04,sq,Ab04,sq,A04,sq
  dc.b m,end_patt

p18b:
  dc.b m,new_env,trigg,0
  dc.l mono_env
  dc.w D05,q,C05,q,A04,q,Ab04,q
  dc.w G04,q,F04,q,D04,q,C04,cr
  dc.w D04,q,A03,q,C04,q,F04,cr,D04,cr
  dc.w D05,q,C05,q,A04,q,Ab04,q
  dc.w G04,q,F04,q,D04,q,C04,cr
  dc.w D04,q,A03,q,C04,q,D04,cr,rest,cr
  dc.b m,end_patt

p19b:
  dc.b m,new_env,trigg,0
  dc.l mono_envt2
  dc.w D01,q,F01,q,G01,q,Ab01,q
  dc.w A01,q,C02,q,D02,q,F02,cr
  dc.w D02,q,G02,q,F02,q,C02,cr,D02,cr
  dc.w D01,q,F01,q,G01,q,Ab01,q
  dc.w A01,q,C02,q,D02,q,F02,cr
  dc.w D02,q,G02,q,F02,q,D02,cr,rest,cr
  dc.b m,end_patt

p20b:
  dc.b m,new_env,trigg,0
  dc.l mono_envt2
  dc.w rest,q,D02,sq,C02,sq,A01,sq
  dc.w G01,sq,F01,q
  dc.w rest,q,D02,sq,C02,sq,A01,sq
  dc.w G01,sq,F01,q
  dc.w rest,q,D02,sq,C02,sq,A01,sq
  dc.w G01,sq,F01,q
  dc.w D01,q,rest,q*7
  dc.b m,end_patt

p21b:
  dc.b m,new_env,trigg,0
  dc.l mono_env
  dc.w rest,q,D05,sq,C05,sq,A04,sq
  dc.w G04,sq,F04,q
  dc.w rest,q,D05,sq,C05,sq,A04,sq
  dc.w G04,sq,F04,q
  dc.w rest,q,D05,sq,C05,sq,A04,sq
  dc.w G04,sq,F04,q
  dc.w D04,q,rest,q*7
  dc.b m,end_patt

p22b:
  dc.b m,new_env,trigg,0
  dc.l hate
  dc.w rest,q,C04,sq,C04,sq,C04,sq
  dc.w C04,sq,C04,q
  dc.w rest,q,C04,sq,C04,sq,C04,sq
  dc.w C04,sq,C04,q
  dc.w rest,q,C04,sq,C04,sq,C04,sq
  dc.w C04,sq,C04,sq,rest,sq
  dc.w C04,sq,rest,sq*3
  dc.w rest,cr*3
  dc.b m,end_patt

p7b:
  dc.b m,inline,6,200,255,0
  dc.b m,new_env,trigg,0
  dc.l bassde
  dc.b m,pbend,down,200
  dc.w c01,0
  dc.w e04,sQ
  dc.b m,new_env,trigg,0
  dc.l hate
  dc.w g06,sQ,g06,sQ,g06,sQ
  dc.b m,new_env,trigg,0
  dc.l qCLAPE
  dc.b m,pbend,down,69
  dc.w c01,0
  dc.w c04,sQ
  dc.b m,new_env,trigg,0
  dc.l hate
  dc.w g06,sQ,g06,sQ,g06,sQ
  dc.b m,new_env,trigg,0
  dc.l bassde
  dc.b m,pbend,down,200
  dc.w c01,0
  dc.w e04,sQ
  dc.b m,new_env,trigg,0
  dc.l hate
  dc.w g06,sQ,g06,sQ,g06,sQ
  dc.b m,new_env,trigg,0
  dc.l QCLAPE
  dc.b m,pbend,down,69
  dc.w c01,0
  dc.w c05,sQ
  dc.b m,new_env,trigg,0
  dc.l hate
  dc.w g06,sQ,g06,sQ,g06,sq
  dc.b m,end_patt

p7ab:
  dc.b m,inline,6,200,255,0
  dc.b m,new_env,trigg,0
  dc.l bassde
  dc.b m,pbend,down,200
  dc.w c01,0
  dc.w e04,sq
  dc.b m,new_env,trigg,0
  dc.l hate
  dc.w g06,sQ,g06,sQ,g06,sQ
  dc.b m,new_env,trigg,0
  dc.l qCLAPE
  dc.b m,pbend,down,69
  dc.w c01,0
  dc.w c04,sq
  dc.b m,new_env,trigg,0
  dc.l hate
  dc.w g06,sQ
  dc.b m,new_env,trigg,0
  dc.l bassde
  dc.b m,pbend,down,200
  dc.w c01,0
  dc.w e04,sq
  dc.b m,new_env,trigg,0
  dc.l hate
  dc.w g06,sQ,g06,sQ,g06,sQ
  dc.b m,new_env,trigg,0
  dc.l bassde
  dc.b m,pbend,down,200
  dc.w c01,0
  dc.w e04,sq
  dc.b m,new_env,trigg,0
  dc.l hate
  dc.w g06,sQ
  dc.b m,new_env,trigg,0
  dc.l QCLAPE
  dc.b m,pbend,down,69
  dc.w c01,0
  dc.w c05,sq
  dc.b m,new_env,trigg,0
  dc.l hate
  dc.w g06,sQ,g06,sQ,g06,sq
  dc.b m,end_patt

p7bb:
  dc.b m,new_env,trigg,0
  dc.l bassde
  dc.b m,pbend,down,200
  dc.w c01,0
  dc.w e04,cr,e04,cr,e04,cr,e04,cr
  dc.b m,end_patt

p7cb:
  dc.b m,inline,6,200,255,0
  dc.b m,new_env,trigg,0
  dc.l QCLAPE
  dc.b m,pbend,down,69
  dc.w c01,0
  dc.w c05,Q
  dc.b m,new_env,trigg,0
  dc.l bassde
  dc.b m,pbend,down,200
  dc.w c01,0
  dc.w e04,Q
  dc.b m,new_env,trigg,0
  dc.l qCLAPE
  dc.b m,pbend,down,69
  dc.w c01,0
  dc.w c04,Q
  dc.b m,new_env,trigg,0
  dc.l bassde
  dc.b m,pbend,down,200
  dc.w c01,0
  dc.w e04,Q
  dc.b m,new_env,trigg,0
  dc.l QCLAPE
  dc.b m,pbend,down,69
  dc.w c01,0
  dc.w c05,Q
  dc.b m,new_env,trigg,0
  dc.l bassde
  dc.b m,pbend,down,200
  dc.w c01,0
  dc.w e04,Q
  dc.b m,new_env,trigg,0
  dc.l qCLAPE
  dc.b m,pbend,down,69
  dc.w c01,0
  dc.w c04,Q
  dc.b m,new_env,trigg,0
  dc.l bassde
  dc.b m,pbend,down,200
  dc.w c01,0
  dc.w e04,Q
  dc.b m,end_patt

p7db:
  dc.b m,new_env,trigg,0
  dc.l bassde
  dc.b m,pbend,down,200
  dc.w c01,0
  dc.w e04,cr,rest,cr
  dc.b m,pbend,down,200
  dc.w c01,0
  dc.w e04,cr,rest,cr
  dc.b m,pbend,down,200
  dc.w c01,0
  dc.b m,end_patt

p7eb:
  dc.b m,new_env,trigg,0
  dc.l bassde
  dc.b m,pbend,down,200
  dc.w c01,0
  dc.w e04,cr,rest,cr
  dc.b m,pbend,down,200
  dc.w c01,0
  dc.w e04,cr
  dc.b m,new_env,trigg,0
  dc.l qCLAPE
  dc.b m,pbend,down,69
  dc.w c01,0
  dc.w c04,cr
  dc.b m,end_patt

 even

**************************************************************



song7:
    dc.l    p9c,p9c,p9c,p9c,p9c,p9c,p9c,p9c
    dc.l    p9c,p9c,p9c,p9c,p9c,p9c
    dc.l    p10c,p10c,p10c,p11c,p11c,p11c,p11c

    dc.l    p9c,p9c,p9c,p9c,p9c,p9c,p9c,p9c
    dc.l    p9c,p9c,p9c,p9c,p9c,p9c
    dc.l    p10c,p10c,p10c,p11c,p11c,p11c,p11c

    dc.l    prc,prc,prc,prc,prc,prc,prc,prc


      dc.l     end_song

song8:
    dc.l    p1c,p1c,p1c,p1c,p2c,p2c,p3c,p3c,p4c,p4c,p5c,p5c
    dc.l    p2c,p3c,p6c
    dc.l    p1c,p1c,p1c,p1c,p2c,p2c,p3c,p3c,p4c,p4c,p5c,p5c
    dc.l    p2c,p3c,p6c

    dc.l    p25cb,p26cb
    dc.l    p25cb,p26cb



        DC.L     end_song

song9:

    dc.l   p20c,p21c,p20c,p22c,p23c,p24c,p24c,p25c,p25c
    dc.l    p25c,p26c


    dc.l   p20c,p21c,p20c,p22c,p23c,p24c,p24c,p25ch,p25ch
    dc.l    p25ch,p26ch

    dc.l    p25ch,p26ch
    dc.l    p25ch,p26ch



    dc.l     end_song


prc:
      dc.w rest,cr*4
      dc.b m,end_patt

suzb
p1c:
      dc.b m,new_env,trigg,0
      dc.l bass_env
      dc.w C02,q,c02,q,C02,q,C02,q
     dc.w C02,q,c02,q,C02,q,C02,q
      dc.b m,end_patt


p2c:
      dc.b m,new_env,trigg,0
      dc.l bass_env
     dc.w eb02,q,eb02,q,eb02,q,eb02,q
     dc.w eb02,q,eb02,q,eb02,q,eb02,q
      dc.b m,end_patt



p3c:
      dc.b m,new_env,trigg,0
      dc.l bass_env
     dc.w d02,q,d02,q,d02,q,d02,q
     dc.w d02,q,d02,q,d02,q,d02,q
      dc.b m,end_patt


p4c:
      dc.b m,new_env,trigg,0
      dc.l bass_env2
     dc.w eb02,q,f02,q,g02,q,a02,q
     dc.w bb02,q,a02,q,g02,q,f02,q
      dc.b m,end_patt



p5c:
      dc.b m,new_env,trigg,0
      dc.l bass_env2
      dc.w d02,q,f02,q,g02,q,a02,q
      dc.w bb02,q,a02,q,g02,q,f02,q
      dc.b m,end_patt


p6c:
      dc.b m,new_env,trigg,0
      dc.l mono_envt2
      dc.b m,modon,1,1
      dc.w 8,8,8
      dc.b m,pbend,up,8
      dc.w bb03,0,bb02,cr*8,ab03,cr*8
      dc.w g03,cr*8
      dc.b m,pbend,up,8
    dc.w eb04,0
    dc.w eb03,cr*8
      dc.b m,end_patt


p7c:
    dc.b m,new_env,trigg,0
      dc.l bass_env
      dc.w e01,sq,e01,sq,ab01,sq,ab01,sq
      dc.w e01,sq,e01,sq,b02,sq,b02,sq
      dc.b m,end_patt


p8c:
    dc.b m,new_env,trigg,0
      dc.l bass_env
      dc.w d02,q,d01,sq,rest,sq,d01,q,d02,q
      dc.w d01,sq,rest,sq,d01,q,d01,q,d02,sq
    dc.w rest,sq,d01,sq,rest,sq,d02,sq*5,rest,sq
    dc.w e01,sq*7,rest,sq
      dc.b m,end_patt


p9c:
      dc.b m,inline,6,200,255,0
      dc.b m,new_env,trigg,0
      dc.l bassde
      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sQ
      dc.b m,new_env,trigg,0
      dc.l qCLAPE
      dc.b m,pbend,down,69
      dc.w c01,0
      dc.w c04,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sQ
      dc.b m,new_env,trigg,0
      dc.l bassde
      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sQ
      dc.b m,new_env,trigg,0
      dc.l QCLAPE
      dc.b m,pbend,down,69
      dc.w c01,0
      dc.w c05,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sq
      dc.b m,end_patt


p10c:
      dc.b m,inline,6,200,255,0
      dc.b m,new_env,trigg,0
      dc.l bassde
      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,cr

      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,cr

      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,cr

      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,cr

      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,cr

      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,cr

      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,cr

      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,cr
    dc.b m,end_patt


p11c:
      dc.b m,inline,6,200,255,0
      dc.b m,new_env,trigg,0
      dc.l bassde
      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ

      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ

      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ

      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ

      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ

      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ

      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ

      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ
    dc.b m,end_patt

p20c:
      dc.b m,new_env,trigg,0
      dc.l piano_env2
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w rest,q,g03,q,a03,q,bb03,cr,g03,q,a03,q
      dc.w bb03,cr,d04,cr,bb04,cr
      dc.b m,new_env,trigg,0
    dc.l amono_enva
    dc.w a04,cr+q
      dc.b m,end_patt


p21c:
      dc.b m,new_env,trigg,0
      dc.l piano_env2
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w  rest,q,g03,q,a03,q,bb03,cr,g03,q,a03,q
      dc.b m,new_env,trigg,0
    dc.l amono_enva
      dc.w e03,q+cr*4
      dc.b m,end_patt



p22c:
      dc.b m,new_env,trigg,0
      dc.l piano_env2
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w  d05,cr+q,c05,cr,a04,cr
      dc.b m,new_env,trigg,0
    dc.l amono_enva
    dc.w gb04,cr*4+q
      dc.b m,end_patt


p23c:
      dc.b m,new_env,trigg,0
      dc.l marx_env
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w  rest,cr,g04,CR+Q,a04,q+cr,bb04,cr*2
    dc.w  d05,cr*2,d05,q+cr,c05,cr
    dc.w bb04,cr,c05,cr*4+q
      dc.b m,end_patt



p24c:
      dc.b m,new_env,trigg,0
      dc.l piano_env2
    dc.b m,octaves
    dc.w eb05,cr+q,d05,cr,c05,cr+q
      dc.b m,end_patt



p25c:
      dc.b m,new_env,trigg,0
      dc.l blip_env
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w  d05,q,g05,q,bb05,q,d05,q,g05,q,bb05,q
    dc.w   d05,q,g05,q,d06,q,d05,q,g05,q,bb05,q
    dc.w   d05,q,g05,q,bb05,q,g05,q
      dc.b m,end_patt


p25cb:
      dc.b m,new_env,trigg,0
      dc.l bass_env
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w  d03,q,g03,q,bb03,q,d03,q,g03,q,bb03,q
    dc.w   d03,q,g03,q,d04,q,d03,q,g03,q,bb03,q
    dc.w   d03,q,g03,q,bb03,q,g03,q
      dc.b m,end_patt


p25ch:
      dc.b m,new_env,trigg,0
      dc.l blip_env
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w   d06,q,g06,q,bb06,q,d06,q,g06,q,bb06,q
    dc.w   d06,q,g06,q,d07,q,d06,q,g06,q,bb06,q
    dc.w   d06,q,g06,q,bb06,q,g06,q
      dc.b m,end_patt



p26c:
      dc.b m,new_env,trigg,0
      dc.l blip_env
      dc.w  eb05,q,g05,q,bb05,q,g05,q,e05,q,bb05,q
    dc.w   g05,q,e05,q,bb05,q,g05,q,eb05,q,bb05,q
    dc.w   g05,q,e05,q,bb05,q,g05,q
      dc.b m,end_patt


p26cb:
      dc.b m,new_env,trigg,0
      dc.l bass_env
      dc.w  eb03,q,g03,q,bb03,q,g03,q,e03,q,bb03,q
    dc.w   g03,q,e03,q,bb03,q,g03,q,eb03,q,bb03,q
    dc.w   g03,q,e03,q,bb03,q,g03,q
      dc.b m,end_patt



p26ch:
      dc.b m,new_env,trigg,0
      dc.l blip_env
      dc.b m,octaves
      dc.w  eb06,q,g06,q,bb06,q,g06,q,e06,q,bb06,q
    dc.w   g06,q,e06,q,bb06,q,g06,q,eb06,q,bb06,q
    dc.w   g06,q,e06,q,bb06,q,g06,q
      dc.b m,end_patt
;*********************************************
    even

song10:        ;drums
    dc.l    p10c,p10c,p10c,p10c,p10c,p10c,p10c,p10c
    dc.l    p11c,p11c,p11c,p11c,p11c,p11c,p11c,p11c
    dc.l    p9c,p9c,p9c,p9c,p9c,p9c,p9c,p9c,p9c,p9c
    dc.l    p9c,p9c,p9c,p9c,p9c,p9c
    dc.l    p11c,p11c,p11c,p11c,p11c,p11c,p11c,p11c

      dc.l     end_song

song11:        ;bass
    dc.l    p5e,p5e,p5e,p6e,p7e,p7e,p7e,p8e
        DC.L     end_song

song12:        ;tune

    dc.l   p20e,p20e,p20e,p21e,p22e,p22e,p22e,p23e,prce,p24e
    dc.l     end_song


prce:
      dc.w rest,cr*4
      dc.b m,end_patt


p5e:
      dc.b m,new_env,trigg,0
      dc.l bass_env
      dc.w g02,q,d03,q,b03,q,d03,q,g02,q,d03,q,b03,q,d03,q
        dc.w g02,q,d03,q,bb03,q,d03,q,g02,q,d03,q,bb03,q,d03,q
      dc.b m,end_patt



p6e:
      dc.b m,new_env,trigg,0
      dc.l bass_env
      dc.w g02,q,d03,q,b03,q,d03,q,g02,q,d03,q,b03,q,d03,q
        dc.w e02,q,e02,q,e03,q,e03,q,e02,q,e02,q,e03,q,e03,q
      dc.b m,end_patt


p7e:
      dc.b m,new_env,trigg,0
      dc.l bass_env
      dc.w g02,q,d03,q,b03,q,d03,q,g02,q,d03,q,b03,q,d03,q
        dc.w g02,q,d03,q,bb03,q,d03,q,g02,q,d03,q,bb03,q,d03,q
      dc.b m,end_patt




p8e:
      dc.b m,new_env,trigg,0
      dc.l bass_env
      dc.w e02,q,b02,q,e03,q,b02,q,e02,q,b02,q,e03,q,b02,q
        dc.w e02,q,b02,q,e03,q,b02,q,e02,q,b02,q,e03,q,eb03,q
    dc.w eb03,q,eb03,q,eb03,q,eb03,q,eb03,q,eb03,q,eb03,q,eb03,q
    dc.w eb03,q,eb03,q,eb03,q,eb03,q,eb03,q,eb03,q,eb03,q,eb03,q
    dc.w d03,q,eb03,q,d03,q,d03,q,d03,q,d03,q,d03,q,d03,q
    dc.w d03,q,d03,q,d03,q,d03,q,d03,q,rest,q+cr
      dc.b m,end_patt





p9ce:
      dc.b m,inline,6,200
      dc.b m,new_env,trigg,0
      dc.l bassde
      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sQ
      dc.b m,new_env,trigg,0
      dc.l qCLAPE
      dc.b m,pbend,down,69
      dc.w c01,0
      dc.w c04,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sQ
      dc.b m,new_env,trigg,0
      dc.l bassde
      dc.b m,pbend,down,200
      dc.w c01,0
      dc.w e04,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sQ
      dc.b m,new_env,trigg,0
      dc.l QCLAPE
      dc.b m,pbend,down,69
      dc.w c01,0
      dc.w c05,sQ
      dc.b m,new_env,trigg,0
      dc.l hate
      dc.w g06,sQ,g06,sQ,g06,sq
      dc.b m,end_patt


p20e:
      dc.b m,new_env,trigg,0
      dc.l Xpiano_env2
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w d04,cr,d04,cr,b03,q,a03,q,g03,q,bb03,cr
      dc.w bb03,cr,a03,q,bb03,q,a03,q,g03,q,a03,q
      dc.b m,end_patt



p21e:
      dc.b m,new_env,trigg,0
      dc.l Xpiano_env2
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w d04,cr,d04,cr,b03,q,a03,q,g03,q,bb03,q
      dc.b m,new_env,trigg,0
      dc.l mono_env3
    dc.w b03,cr*4
      dc.b m,end_patt

p22e:
      dc.b m,new_env,trigg,0
      dc.l Xpiano_env2
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w d05,cr,d05,cr,b04,q,a04,q,g04,q,bb04,cr
      dc.w bb04,cr,a04,q,bb04,q,a04,q,g04,q,a04,q
      dc.b m,end_patt



p23e:
      dc.b m,new_env,trigg,0
      dc.l mono_env3
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w b04,cr*4
      dc.b m,end_patt

p24e:
      dc.b m,new_env,trigg,0
      dc.l mono_env3
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w bb04,cr*2,f05,cr*2
    dc.w eb05,cr*2-q,bb04,cr,c05,cr,d05,cr*8+q
      dc.b m,end_patt
;***************************************************

song13:        ;drums
    dc.l    p22f,prj

      dc.l     end_song

song14:        ;bass
    dc.l    p21f,prj
        DC.L     end_song

song15:        ;tune

    dc.l   p20f,prj
    dc.l     end_song


prj:
      dc.w rest,cr*1000
      dc.b m,end_patt


p20f:
      dc.b m,new_env,trigg,0
      dc.l marx_env
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w bb04,q,c05,q,db05,q,d05,q,eb05,q,e05,q
    dc.w f05,q,gb05,q,g05,q,ab05,q,b05,cr,c06,cr
      dc.b m,end_patt


p21f:
      dc.b m,new_env,trigg,0
      dc.l bass_env
      dc.b m,modon,1,1
      dc.w 3,3,8
      dc.w bb02,q,c03,q,db03,q,d03,q,eb03,q,e03,q
    dc.w f03,q,gb03,q,g03,q,ab03,q,b03,cr,c04,cr
      dc.b m,end_patt


p22f:
      dc.b m,new_env,trigg,0
      dc.l rota1
      dc.w c02,q,c02,q,c02,q,c02,q,c02,q,c02,q,c02,q,c02,q
    dc.w g02,cr,g02,cr,c02,cr
      dc.b m,end_patt