home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Amiga California Games + Samples / Lowe_AmigaCaliforniaGames+Samples.adf / EIRE.BLK < prev    next >
Encoding:
Text File  |  1978-10-11  |  1.4 KB  |  57 lines
  1. ;;;;;;;;;;;;;;;;;;;;;    EIRE     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  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 A05,cr,Gb05,cr,D05,q,Gb05,q,A05,q*3,A05,q
  29.     dc.w B05,q,Db06,q,D06,q,E06,q,Gb06,q*3,E06,q
  30.     dc.w D06,cr,B05,sq*3,B05,sq,A05,cr,Gb05,cr
  31.     dc.w A05,q*3,G05,q,E05,cr,A04,cr
  32.     dc.w Gb05,cr,D05,q,Gb05,q,A05,q*3,A05,q
  33.     dc.w B05,q,Db06,q,D06,q,E06,q,Gb06,q*3,D06,q
  34.     dc.w Db06,q*3,Db06,q,B05,q*3,B05,q,A05,cr,A05,cr*3
  35.       dc.b m,end_patt
  36.  
  37. p2:
  38.       dc.b m,new_env,trigg,0
  39.       dc.l piano_env1
  40.     dc.w rest,cr,A04,cr,rest,cr,E05,cr,rest,q,E05,q
  41.     dc.w G05,cr,B05,cr,A05,q*3,A05,q,B05,cr,G05,sq*3,G05,sq
  42.     dc.w D05,cr,D05,cr,Db05,q*3,Db05,q,Db05,cr,Db05,cr
  43.     dc.w A04,cr,rest,cr,E05,cr,rest,q,E05,q
  44.     dc.w G05,cr,B05,cr,A05,q*3,A05,q,A05,q*3,A05,q,Ab05,q*3,Ab05,q
  45.     dc.w E05,cr,E05,cr*3
  46.     dc.b m,end_patt
  47. p3:
  48.       dc.b m,new_env,trigg,0
  49.       dc.l bass_env
  50.     dc.w rest,cr,D03,cr,rest,cr,Db03,cr,rest,q,Db03,q
  51.     dc.w B02,cr,G03,cr,D03,q*3,Gb03,q,G03,cr,G03,sq*3,G03,sq
  52.     dc.w Gb03,cr,D03,cr,A03,q*3,A03,q,A03,cr,A03,cr
  53.     dc.w D03,cr,rest,cr,Db03,cr,rest,q,Db03,q
  54.     dc.w B02,cr,G03,cr,D03,q*3,D03,q
  55.     dc.w E03,q*3,E03,q,E03,q*3,E03,q,A02,cr,A02,cr*3
  56.     dc.b m,end_patt
  57.