home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / dev / tbsource.lha / TBSource / VoiceShell / VSTest.S < prev   
Text File  |  1993-12-21  |  540b  |  37 lines
  1. *************************************************
  2. *                        *
  3. *         (C)opyright 1992-93        *
  4. *                        *
  5. *          by Tomi Blinnikka        *
  6. *                        *
  7. *    Don't try to understand the code    *
  8. *************************************************
  9.  
  10.     INCLUDE "JMPLibs.i"
  11.  
  12.     INCLUDE "XREF:exec.xref"
  13.  
  14. DVoice        set    1
  15.  
  16. TRUE:        EQU    1
  17.  
  18.         section VS_TEST,CODE
  19.  
  20.         move.l    #7,d0
  21.         move.l    $4,a6
  22.         lea.l    _VoiceLib,a1
  23.         jsr    _LVOOpenLibrary(a6)
  24.         move.l    d0,_VoiceBase
  25.         beq    ShutDown_ERR
  26.  
  27. ShutDown1000:    closlib Voice
  28.         clr.l    d0
  29.         rts
  30.  
  31. ShutDown_ERR:    move.l    #-20,d0
  32.         rts
  33.  
  34.         libnames
  35.  
  36.         end
  37.