home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 January / macformat46.iso / Demos / PowerFantasm 4.15 / Beginners guide / GUIDE EXAMPLES / resource demo / RES_EXAMPLE.S < prev   
Encoding:
Text File  |  1996-08-28  |  794 b   |  26 lines
  1. *********************************************************************
  2. *THIS EXAMPLE PLAYS SOUND RESOURCE NUMBER 128                       *
  3. *********************************************************************
  4. GET1RESOURCE:    EQU    $A81F
  5. SNDPLAY:    EQU    $A805    
  6.  
  7. START:    MOVEM.L    A5-A6,-(SP)    SAVE MAC WORLD
  8.     CLR.L    -(SP)    SPACE FOR HANDLE
  9.     MOVE.L    #$736E6420,-(SP)    ASCII FOR "snd "
  10.     MOVE.W    #128,-(SP)    RESOURCE NUMBER
  11.     DC.W    GET1RESOURCE    GET THE RESOURCE
  12.     MOVE.L    (SP)+,D0    RETURNS A SOUND HANDLE
  13.     BSR    DO_SOUND    PLAY IT
  14.     MOVEM.L    (SP)+,A5-A6    RESTORE REGISTERS
  15.     RTS        BYE
  16.  
  17.  
  18. ***PLAY_SOUND PLAY THE SOUND WHO'S HANDLE IS IN D0
  19. DO_SOUND:    CLR.W    -(SP)    SNDPLAY RETURNS A WORD
  20.     CLR.L    -(SP)    CLEAR THE CHANNEL
  21.     MOVE.L    D0,-(SP)    HANDLE OF SOUND
  22.     CLR.W    -(SP)    DO IT NOW
  23.     DC.W    SNDPLAY    PLAY SOUND
  24.     MOVE.W    (SP)+,D0    GET ERROR
  25.     RTS
  26.