home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / grfx_snd / q_source / quartet.lst < prev    next >
Encoding:
File List  |  1992-09-03  |  630 b   |  28 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 jsr%,16
  25.   {jsr%+6}=location%
  26.   CALL jsr%
  27. RETURN
  28.