Dave Lowe: Railroad Tycoon Amiga Music FX/Lowe_RailroadTycoonAmigaMusicFX.adf/gamesj.blk

Text File | 1978-11-27 | 12.9 KB | 901 lines

;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


cr set   24
q set cr/2
sq set q/2



s1:
    dc.l    p1,p1,p1mid
    dc.l    p1,p1,p1mid
    dc.l p1end

      dc.l     0,end_song
s2:
    dc.l    p1b
    dc.l    p1b
    dc.l p2end

        DC.L    0,end_song
s3:
    dc.l    p4z
    dc.l    p4z
    dc.l p3end


    dc.l     0,end_song
s4:
    dc.l    p3z,p3z,p3z,p3z,p3z,p3z
    dc.l    p3z,p3z,p3z,p3z,p3z,p3z
    dc.l p4end

    dc.l     0,end_song


pr:
    dc.w rest,cr*4
    dc.w end_patt

prza:
    dc.w rest,q*7
    dc.w end_patt

p1:
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
      dc.w modon,1,1
      dc.w 1,1,4,4
    dc.w e03,cr*2,g03,cr*2-q,e03,q,c03,cr,d03,cr,e03,cr
    dc.w c03,cr,d03,cr,e03,cr,f03,cr*2-q,e03,q,d03,cr
    dc.w e03,cr,f03,cr*2
      dc.w end_patt


p1end:
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
      dc.w modon,1,1
      dc.w 1,1,4,4
    dc.w c02,cr*8,rest,cr*100
      dc.w end_patt


p2end:
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
      dc.w modon,1,1
      dc.w 1,1,4,4
    dc.w e02,cr*8,rest,cr*100
      dc.w end_patt


p3end:
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
      dc.w modon,1,1
      dc.w 1,1,4,4
    dc.w g02,cr*8,rest,cr*100
      dc.w end_patt


p4end:
      dc.w new_env
      dc.l snare_env
    dc.w new_snd
    dc.l snare
    dc.w r2,cr*8,rest,cr*100
      dc.w end_patt

p1mid
    dc.w a02,cr*2,f02,cr*2,b02,cr*2,g02,cr*2
    dc.w a02,cr*2,f02,cr*2,b02,cr*2,g02,cr*2
      dc.w end_patt




p1b:
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
      dc.w modon,1,1
      dc.w 1,1,2,2
    dc.w  c02,cr*2,b01,cr*2,a01,cr*2,g01,cr*2
    dc.w  g01,cr*4,b01,cr,a01,cr,g01,cr*2
    dc.w  c02,cr*2,b01,cr*2,a01,cr*2,g01,cr*2
    dc.w  g01,cr*4,b01,cr,a01,cr,g01,cr*2
    dc.w  f02,cr*2,d02,cr*2,b01,cr*2,g01,cr*2
    dc.w  f02,cr*2,d02,cr*2,g01,q,a01,q,b01,q,c02,q,d02,q,e02,q,f02,q
    dc.w  g02,q
      dc.w end_patt

p4z:
      dc.w new_env
      dc.l bass_env
    dc.w new_snd
    dc.l bas
    dc.w  c02,cr,c02,cr,b01,cr,b01,cr,a01,cr,a01,cr,g01,cr,g01,cr
    dc.w  g01,cr*4,b01,cr,a01,cr,g01,cr*2
    dc.w  c02,cr,c02,cr,b01,cr,b01,cr,a01,cr,a01,cr,g01,cr,g01,cr
    dc.w  g01,cr*4,b01,cr,a01,cr,g01,cr*2
    dc.w f01,cr*4,g01,cr*4,f01,cr*4
    dc.w g01,q,g01,q,g01,q,g01,q,g01,q,rest,q*3



    dc.w end_patt
    dc.w end_patt
p3z:
      dc.w new_env
      dc.l kik_env
    dc.w new_snd
    dc.l kik
      dc.w r16,cr*2
    dc.w new_snd
    dc.l snr
      dc.w r20,cr*2
    dc.w new_snd
    dc.l kik
    dc.w r16,cr,r16,cr
    dc.w new_snd
    dc.l snr
      dc.w r20,cr*2
      dc.w end_patt
p3za:
      dc.w new_env
    dc.l snr
    dc.w r20,q,r20,q,r20,q,r20,q,r20,q,rest,q*3
      dc.w end_patt

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


cr set   24
q set cr/2
sq set q/2



s5:
    dc.l    ps51
      dc.l     0,end_song
s6:
    dc.l    pr
        DC.L    0,end_song
s7:
    dc.l    pr
    dc.l     0,end_song
s8:
    dc.l    pr
    dc.l     0,end_song



ps51
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
      dc.w modon,1,1
      dc.w 1,1,2,2
    dc.w e02,cr*2,e02,cr,c02,cr*2,c02,cr,e02,cr,g02,cr,e03,cr,c03,cr*3
    dc.w rest,cr*1000

      dc.w end_patt

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


cr set   24
q set cr/2
sq set q/2


s9:
    dc.l    ps61
      dc.l     0,end_song
s10:
    dc.l    pr
        DC.L    0,end_song
s11:
    dc.l    pr
    dc.l     0,end_song
s12:
    dc.l    pr
    dc.l     0,end_song



ps61
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
      dc.w modon,1,1
      dc.w 1,1,2,2
    dc.w d02,8,g02,8,b02,8
    dc.w d02,8,g02,8,b02,8
    dc.w d02,8,g02,16,b02,cr

    dc.w rest,cr*1000

      dc.w end_patt

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



cr set   24
q set cr/2
sq set q/2


s13:
    dc.l    ps131
      dc.l     0,end_song
s14:
    dc.l    pr
        DC.L    0,end_song
s15:
    dc.l    pr
    dc.l     0,end_song
s16:
    dc.l    pr
    dc.l     0,end_song



ps131
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
      dc.w modon,1,1
      dc.w 1,1,2,2
    dc.w c03,8,b02,16,b02,8,a02,16,a02,8,g02,16
    dc.w rest,cr*100

      dc.w end_patt

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



cr set   16
q set cr/2
sq set q/2


s17:
    dc.l    ps171
      dc.l     0,end_song
s18:
    dc.l    ps172
        DC.L    0,end_song
s19:
    dc.l    ps173
    dc.l     0,end_song
s20:
    dc.l    p17z
    dc.l     0,end_song



ps171
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
      dc.w modon,1,1
      dc.w 1,1,2,2
    dc.w c02,q,g02,q,e02,q,c03,q
    dc.w c03,sq,b02,sq,a02,sq,g02,sq,e02,q,g02,q
    dc.w c03,sq,b02,sq,a02,sq,g02,sq,e02,q,g02,q
    dc.w e02,q,g02,q,c02,cr
      dc.w end_patt


ps172
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sine
      dc.w modon,1,1
    dc.w 4,4,2,2
    dc.w c03,cr*2,g03,cr*2,e03,cr*2,c02,cr,g02,cr,e03,cr*2

      dc.w end_patt


ps173
      dc.w new_env
      dc.l bass_env
    dc.w new_snd
    dc.l bass
    dc.w c02,cr*2,g01,cr*2
    dc.w c02,cr*2,g01,cr*2
    dc.w c02,cr*2,g01,cr*2
    dc.w c02,cr*2,g01,cr*2

      dc.w end_patt

p17z:
      dc.w new_env
      dc.l kik_env
    dc.w new_snd
    dc.l kik
      dc.w r20,q,r20,q,r20,q,rest,q*5
      dc.w end_patt














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



cr set   20
q set cr/2
sq set q/2


s21:
    dc.l    ps211
      dc.l     0,end_song
s22:
    dc.l    pr
        DC.L    0,end_song
s23:
    dc.l    pr
    dc.l     0,end_song
s24:
    dc.l    pr
    dc.l     0,end_song



ps211
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
      dc.w modon,1,1
      dc.w 1,1,2,2
    dc.w c02,cr,g01,q,g01,q,gb01,cr,g01,cr
    dc.w c02,cr,g01,q,g01,q,gb01,cr,g01,cr
    dc.w c02,cr,g01,cr,c02,cr,e02,cr,g02,cr*4

    dc.w g03,cr*2,f03,cr,e03,cr,d03,cr*2
    dc.w e03,cr,d03,cr,c03,cr*2,d03,cr,e03,cr
    dc.w g02,q*3,a02,q,g02,cr*2

    dc.w g03,cr*2,f03,cr,e03,cr,a03,cr*2,g03,cr
    dc.w e03,cr,f03,cr,g03,q,f03,q,e03,cr,f03,cr,d03,cr*4

    dc.w d03,cr,d03,q,d03,q,c03,cr,d03,cr,e03,cr,f03,cr,g03,cr*2
    dc.w d03,cr,e03,cr,f03,cr*2,e03,cr,d03,cr,c03,cr*2
    dc.w d03,cr,d03,q,d03,q,c03,cr,d03,cr,e03,cr,f03,cr,g03,cr*2
    dc.w gb03,cr,g03,cr,a03,cr,gb03,cr,g03,cr*4


    dc.w  rest,cr*20


    dc.w end_patt


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



cr set   24
q set cr/2
sq set q/2


s25:
    dc.l    ps251
      dc.l     0,end_song
s26:
    dc.l    ps251b
        DC.L    0,end_song
s27:
    dc.l    pr,pr,pr,pr,pr,pr,pr,pr
    dc.l    p29d,p29d,p29d,p29d,p29d,p29d,p29d,p29d

    dc.l     0,end_song
s28:
    dc.l    pr
    dc.l     0,end_song


p29d:
      dc.w new_env
      dc.l kik_env
    dc.w new_snd
    dc.l kik
      dc.w r16,cr*2
    dc.w new_snd
    dc.l snr
      dc.w r20,cr*2
    dc.w new_snd
    dc.l kik
    dc.w r16,cr,r16,cr
    dc.w new_snd
    dc.l snr
      dc.w r20,cr*2
      dc.w end_patt

ps251
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
      dc.w modon,1,1
      dc.w 1,1,2,2
    dc.w c02,cr*2,d02,q,c02,q,d02,q,e02,q
    dc.w c02,cr,g01,cr,g01,cr,g01,cr
    dc.w d02,cr*2,e02,q,d02,q,e02,q,f02,q
    dc.w d02,cr,g01,cr,g01,cr,g01,cr
    dc.w g02,cr*2,c02,q,d02,q,e02,q,f02,q
    dc.w a02,cr*2,f02,q,e02,q,d02,q,c02,q
    dc.w b01,cr,b01,cr,b01,cr,b01,cr,b01,cr,c02,cr*3

    dc.w end_patt


ps251b
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
    dc.w c02,cr*4
    dc.w g02,cr,a02,cr,b02,cr,d03,cr
    dc.w d02,cr*2,g01,cr*2
    dc.w g02,cr*2,a02,cr,b02,cr
    dc.w c02,cr*4
    dc.w f02,cr*4
    dc.w d02,cr*2,g01,cr*3

    dc.w c02,cr*3
    dc.w end_patt


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


cr set   16
q set cr/2
sq set q/2


s29:
    dc.l    ps291
      dc.l     0,end_song
s30:
    dc.l    ps291x
        DC.L    0,end_song
s31:
    dc.l    pr
    dc.l     0,end_song
s32:
    dc.l    pr
    dc.l     0,end_song



ps291
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
      dc.w modon,1,1
      dc.w 1,1,2,2
    dc.w a02,cr,a02,cr,a02,cr,a02,cr,a02,cr*4
    dc.w  rest,cr*20
    dc.w end_patt


ps291x
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
      dc.w modon,1,1
      dc.w 1,1,2,2
    dc.w e02,cr,e02,cr,e02,cr,e02,cr,e02,cr*4
    dc.w rest,cr*20
    dc.w end_patt

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


cr set   16
q set cr/2
sq set q/2


s33:
    dc.l    ps33,ps33x
      dc.l     0,end_song
s34:
    dc.l    ps33b
        DC.L    0,end_song
s35:
    dc.l    pd33k,p33d,p33d,p33d,p33d,p33d,p33d
    dc.l     0,end_song
s36:
    dc.l    pr33,pr33,psinec,psinec
    dc.l    psinef,psinef,psineg,psineg

    dc.l     0,end_song



pr33:
    dc.w rest,cr*4
    dc.w end_patt




ps33
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax

    dc.w  g03,sq,gb03,sq,f03,sq,e03,sq,eb03,sq,d03,sq,db03,sq,c03,sq
    dc.w  b02,sq,bb02,sq,a02,sq,ab02,sq
    dc.w  g02,sq,gb02,sq,f02,sq,e02,sq,eb02,sq,d02,sq,db02,sq,c02,sq
    dc.w  b01,sq,bb01,sq,a01,sq,ab01,sq
    dc.w  g01,sq,gb01,sq,f01,sq,e01,sq,eb01,sq,d01,sq,db01,sq,c01,sq
    dc.w end_patt




ps33x
    dc.w  c03,sq,db03,sq,d03,sq,eb03,sq,d03,sq,db03,sq,c03,sq,db03,sq
    dc.w  c03,sq,db03,sq,d03,sq,eb03,sq,d03,sq,db03,sq,c03,sq,db03,sq
    dc.w  c03,sq,db03,sq,d03,sq,eb03,sq,d03,sq,db03,sq,c03,sq,db03,sq
    dc.w  c03,sq,db03,sq,d03,sq,eb03,sq,f03,sq,gb03,sq,g03,sq,ab03,sq

    dc.w  f03,sq,gb03,sq,g03,sq,ab03,sq,g03,sq,gb03,sq,f03,sq,gb03,sq
    dc.w  f03,sq,gb03,sq,g03,sq,ab03,sq,g03,sq,gb03,sq,f03,sq,gb03,sq
    dc.w  f03,sq,gb03,sq,g03,sq,ab03,sq,g03,sq,gb03,sq,f03,sq,gb03,sq
    dc.w  f03,sq,gb03,sq,g03,sq,ab03,sq,g03,sq,gb03,sq,f03,sq,gb03,sq

    dc.w  g03,sq,gb03,sq,f03,sq,e03,sq,eb03,sq,d03,sq,db03,sq,c03,sq
    dc.w  g03,sq,gb03,sq,f03,sq,e03,sq,eb03,sq,d03,sq,db03,sq,c03,sq
    dc.w  g03,sq,gb03,sq,f03,sq,e03,sq,eb03,sq,d03,sq,db03,sq,c03,sq
    dc.w  g03,sq,gb03,sq,f03,sq,e03,sq,eb03,sq,d03,sq,db03,sq,c03,sq


    dc.w end_patt


ps33b
      dc.w new_env
      dc.l bass_env
    dc.w new_snd
    dc.l bass
    dc.w    g01,cr*2,g01,cr*2,g01,cr,a01,cr
    dc.w    bb01,cr,b01,cr

    dc.w    c02,cr,g01,cr,c02,cr,g01,cr,c02,cr,g01,cr,c02,cr,g01,cr
    dc.w    f02,cr,c02,cr,f02,cr,c02,cr,f02,cr,c02,cr,f02,cr,c02,cr
    dc.w    g02,cr,d02,cr
    dc.w    g02,cr,d02,cr
    dc.w    g02,cr,d02,cr
    dc.w    g02,cr,d02,cr


    dc.w end_patt




psinec
      dc.w new_env
      dc.l sine_env
    dc.w new_snd
    dc.l sine

    dc.w  c02,q,e02,q,g02,q,e02,q
    dc.w  c02,q,e02,q,g02,q,e02,q


    dc.w end_patt


psinef
      dc.w new_env
      dc.l sine_env
    dc.w new_snd
    dc.l sine

    dc.w  f01,q,a01,q,c02,q,a01,q
    dc.w  f01,q,a01,q,c02,q,a01,q


    dc.w end_patt



psineg
      dc.w new_env
      dc.l sine_env
    dc.w new_snd
    dc.l sine

    dc.w  g02,q,d02,q,b02,q,d02,q
    dc.w  g02,q,d02,q,b02,q,d02,q


    dc.w end_patt







p33d:
      dc.w new_env
      dc.l kik_env
    dc.w new_snd
    dc.l kik
      dc.w r16,cr
    dc.w new_snd
    dc.l snr
      dc.w r20,cr
    dc.w new_snd
    dc.l kik
    dc.w r16,cr
    dc.w new_snd
    dc.l snr
      dc.w r20,cr
      dc.w end_patt


pd33k:
      dc.w new_env
      dc.l kik_env
    dc.w new_snd
    dc.l kik
      dc.w r16,cr*2,r16,cr*2,r16,cr,r16,cr,r16,cr,r16,cr
      dc.w end_patt

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


cr set   8
q set cr/2
sq set q/2


s37:
    dc.l    ps37
      dc.l     0,end_song
s38:
    dc.l    pd37k
        DC.L    0,end_song
s39:
    dc.l    ps37b
    dc.l     0,end_song
s40:
    dc.l    pr
    dc.l     0,end_song



pr37:
    dc.w rest,cr*4
    dc.w end_patt



ps37b
      dc.w new_env
      dc.l bass_env
    dc.w new_snd
    dc.l bass
    dc.w c02,cr*2,g01,cr*2,c02,cr*2,g01,cr*2
    dc.w c02,cr*2,g01,cr*2,c02,cr*2,g01,cr*2
    dc.w f02,cr*2,c02,cr*2,f02,cr*2,c02,cr*2
    dc.w c02,cr*2,g01,cr*2,c02,cr*2,g01,cr*2
    dc.w g02,cr*2,d02,cr*2,g02,cr*2,d02,cr*2
    dc.w c02,cr*2,g01,cr*2,c02,cr*2,g01,cr*2

    dc.w end_patt




ps37
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
    dc.w rest,cr,e03,q,c03,q,e03,cr,d03,q,c03,q,d03,q,c03,q,d03,cr,c03,cr*2
    dc.w rest,cr,e03,q,c03,q,e03,cr,d03,q,c03,q,d03,q,c03,q,d03,cr,c03,cr*2
    dc.w rest,cr,f03,q,d03,q,f03,cr,d03,q,c03,q,d03,q,c03,q,d03,cr,c03,cr*2
    dc.w rest,cr,e03,q,c03,q,e03,cr,d03,q,c03,q,d03,q,c03,q,d03,cr,c03,cr*2
    dc.w rest,cr,f03,q,e03,q,f03,cr,e03,q,d03,q,e03,q,d03,q,e03,cr,d03,cr*2
    dc.w rest,cr,e03,q,c03,q,e03,cr,d03,q,c03,q,d03,q,c03,q,d03,cr,c03,cr*2
    dc.w end_patt


pd37k:
      dc.w new_env
      dc.l kik_env
    dc.w new_snd
    dc.l kik
      dc.w r16,cr,r20,cr,r16,cr,r20,cr
      dc.w end_patt



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


cr set   16
q set cr/2
sq set q/2


s41:
    dc.l    ps41,ps41,ps4eh
    dc.l    pr41

      dc.l     0,end_song
s42:
    dc.l    ps41h,ps41h,ps4ehx
    dc.l    pr41

        DC.L    0,end_song
s43:
    dc.l    ps42h,ps42h,ps4ehy
    dc.l    pr41

    dc.l     0,end_song
s44:
    dc.l    pd41k,pd41k,pd41ke
    dc.l    pr41


    dc.l     0,end_song



pr41:
    dc.w rest,cr*100
    dc.w end_patt



ps41
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
    dc.w b02,cr,g02,cr,b02,cr,d03,cr*3,b02,cr*3
    dc.w d03,cr,b02,cr,d03,cr,gb03,cr*3,d03,cr*3
    dc.w gb03,cr,d03,cr,gb03,cr,a03,cr*3,a02,cr*3
    dc.w d03,cr,a02,cr,d03,cr,gb03,cr*6

    dc.w end_patt


ps41h
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
    dc.w  g01,cr*3,g01,cr*3,g01,cr*3
    dc.w  g01,cr*3,a01,cr*3,a01,cr*3
    dc.w  a01,cr*3,a01,cr*3,a01,cr*3
    dc.w  a01,cr*3,a01,cr*6
    dc.w end_patt


ps42h
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
    dc.w  d02,cr*3,d02,cr*3,d02,cr*3
    dc.w  d02,cr*3,d02,cr*3,d02,cr*3
    dc.w  d02,cr*3,db02,cr*3,db02,cr*3
    dc.w  d02,cr*3,d01,cr*6
    dc.w end_patt



pd41k:
      dc.w new_env
      dc.l snare_env
    dc.w new_snd
    dc.l snare
      dc.w r16,cr,r16,cr,r16,cr,r8,cr*3,r8,cr*3
      dc.w r16,cr,r16,cr,r16,cr,r8,cr*3,r8,cr*3
      dc.w r16,cr,r16,cr,r16,cr,r8,cr*3,r8,cr*3
    dc.w r16,cr,r16,cr,r16,cr,r2,cr*6
      dc.w end_patt


pd41ke:
      dc.w new_env
      dc.l snare_env
    dc.w new_snd
    dc.l snare
      dc.w r16,cr,r16,cr,r16,cr,r16,cr*6
      dc.w r16,cr,r16,cr,r16,cr,r8,cr*6
      dc.w r16,cr,r16,cr,r16,cr+cr*4,r8,cr*6+cr*2
    dc.w r2,cr*12
      dc.w end_patt


ps4eh
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
    dc.w  gb02,cr,e02,cr,gb02,cr,a02,cr*6
    dc.w  gb02,cr,d02,cr,gb02,cr,a02,cr*6
    dc.w  gb02,cr,e02,cr,gb02,cr,a02,cr*3+cr*2,db03,cr*3+cr*4
    dc.w  d03,cr*12

    dc.w end_patt


ps4ehx
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
    dc.w  a01,cr*9
    dc.w  a01,cr*9
    dc.w  a01,cr*9+cr*6
    dc.w  a01,cr*12

    dc.w end_patt


ps4ehy
      dc.w new_env
      dc.l sax_env
    dc.w new_snd
    dc.l sax
    dc.w  db02,cr*9
    dc.w  d02,cr*9
    dc.w  db02,cr*9+cr*6
    dc.w  d02,cr*12

    dc.w end_patt

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