home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / grfx_snd / q_source / quartet.gfa (.txt) < prev    next >
Encoding:
GFA-BASIC Atari  |  1992-09-03  |  774 b   |  31 lines
  1. PROCEDURE quartet(song%,vset%)
  2.   '
  3.   ' song% = memory location of loaded QUARTET Song File
  4.   ' vset% = memory location of loaded QUARTET Voice Set
  5.   '     NOTE: This routine does NOT work uncompiled!
  6.   '
  7.   IF xquartet%=0
  8.     RESERVE 20000
  9.     xquartet%=EXEC(3,"singsong.dat","","")
  10.     ~MFREE(HIMEM)
  11.     ~MFREE(xquartet%)
  12.     RESERVE
  13.     ~MSHRINK(xquartet%,16384)
  14.     ADD xquartet%,256
  15.   ENDIF
  16.   {xquartet%+12}=song%
  17.   {xquartet%+16}=vset%
  18.   @jsr(xquartet%)
  19.   SOUND 1,0,0,0,0
  20.   SOUND 2,0,0,0,0
  21.   SOUND 3,0,0,0,0
  22. RETURN
  23. > PROCEDURE jsr(location%)
  24. ' ## INLINE:
  25. ' $0000: 48 e7 ff ff 4e b9 00 00 00 00 4c df ff ff 4e 75 
  26. ' 16  Bytes.
  27.   INLINE jsr%,16
  28.   {jsr%+6}=location%
  29.   CALL jsr%
  30. RETURN
  31.