home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Amiga California Games + Samples / Lowe_AmigaCaliforniaGames+Samples.adf / SWEDEN.BLK < prev    next >
Encoding:
Text File  |  1978-10-11  |  1.4 KB  |  55 lines
  1. ;;;;;;;;;;;;;;;;;;;;;    SWEDEN    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. song1:
  3.     dc.l p2
  4.       dc.l end_song
  5.  
  6. song2:
  7.     dc.l p3
  8.       dc.l end_song
  9. song3:
  10.     dc.l p1
  11.       dc.l end_song
  12.  
  13. pcr:
  14.   dc.w rest,cr
  15.   dc.b m,end_patt
  16. pr:
  17.   dc.w rest,cr*4
  18.   dc.b m,end_patt
  19. pra:
  20.   dc.w rest,q*7
  21.   dc.b m,end_patt
  22. pqr:
  23.   dc.w rest,q
  24.   dc.b m,end_patt
  25. p1:
  26.       dc.b m,new_env,trigg,0
  27.       dc.l piano_env
  28.     dc.w F04,q,Bb04,cr,Bb04,q,C05,q,A04,cr,A04,q,Bb04,q
  29.     dc.w G04,sq*3,F04,sq,G04,q,A04,q,F04,q*3,F04,q
  30.     dc.w Bb04,sq*3,A04,sq,Bb04,q,C05,q,D05,q,Bb04,q,Eb05,sq*3,D05,sq
  31.     dc.w C05,cr*2,Bb04,cr,rest,q,F04,q
  32.     dc.w Bb04,sq*3,A04,sq,Bb04,q,C05,q,D05,q,Bb04,q,Eb05,sq*3,D05,sq
  33.     dc.w C05,cr*2,Bb04,cr*2
  34.       dc.b m,end_patt
  35. p2:
  36.       dc.b m,new_env,trigg,0
  37.       dc.l piano_env1
  38.     dc.w C04,q,F04,cr,D04,q,G04,q,G04,cr,F04,q,G04,q
  39.     dc.w F04,cr,E04,cr,C04,q*3,C04,q,F04,sq*3,F04,sq,F04,q,A04,q
  40.     dc.w Bb04,q,F04,q,Bb04,sq*3,Bb04,sq,G04,cr,F04,q,Eb04,q
  41.     dc.w F04,q*3,C04,q,F04,sq*3,F04,sq,F04,q,A04,q
  42.     dc.w Bb04,q,F04,q,Bb04,sq*3,Bb04,sq,G04,cr,F04,q,Eb04,q
  43.     dc.w F04,cr*2
  44.     dc.b m,end_patt
  45. p3:
  46.       dc.b m,new_env,trigg,0
  47.       dc.l bass_env
  48.     dc.w rest,q,D02,cr,G02,q,E02,q,F02,cr,D03,q,G02,q
  49.     dc.w C03,cr*2,F03,cr,Eb03,cr,D03,sq*3,Eb03,sq,D03,q,C03,q
  50.     dc.w Bb02,q,Ab02,q,G02,sq*3,F02,sq,Eb02,cr,F02,cr
  51.     dc.w Bb02,cr,F02,cr,D03,sq*3,Eb03,sq,D03,q,C03,q
  52.     dc.w Bb02,q,Ab02,q,G02,sq*3,F02,sq,Eb02,cr,F02,cr
  53.     dc.w Bb02,cr*2
  54.     dc.b m,end_patt
  55.