home *** CD-ROM | disk | FTP | other *** search
/ CD-X 1 / cdx_01.iso / demodisc / cyberdan / intrance / gus / gus.asm < prev    next >
Encoding:
Assembly Source File  |  1994-12-27  |  619 b   |  34 lines
  1.     p286n
  2.  
  3. public  gusplayon
  4. public  gusplayoff
  5. Extrn   MainVolume:Word,ChanOn:Word,PatternRow:Word,PlayingPattern:Word
  6. Extrn    LoadMod:Far,ClearMem:Far,StartPlaying:Far,StopPlaying:Far,Init:Far,InitDevice:Far
  7. extrn   resetplayer:far
  8. _Code    Segment    Para 'Code'
  9.  
  10.     assume    cs:_Code
  11.  
  12.         Modname         db 'INTRANCE.MOD',0
  13.  
  14. Even
  15.  
  16. gusplayon proc far
  17.     call    InitDevice
  18.     call    Init
  19.     mov    dx,cs
  20.     mov    ds,dx
  21.         mov     dx,offset cs:[Modname]
  22.     call    LoadMod
  23.     call    StartPlaying
  24.         retf
  25. endp
  26. gusplayoff:
  27.         call    StopPlaying
  28.     call    ClearMem
  29.         retf
  30.  
  31. _Code        ends
  32.  
  33.                 end
  34.