home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 311.lha / HAMmmm2 / sound_stubs < prev   
Encoding:
Text File  |  1980-12-05  |  544 b   |  27 lines
  1. \ Stubs for sound words that are available in HMSL.
  2. ANEW TASK-SOUND_STUBS
  3.  
  4. : DA.CHANNEL!  ( channel[0-3] -- , set channel to control )
  5.     drop
  6. ;
  7. : DA.SAMPLE! ( addr #bytes -- , Set Sample to Use )
  8.     2drop
  9. ;
  10. : DA.PERIOD! ( period -- , Set period between samples, 1/frequency )
  11.     drop
  12. ;
  13. : DA.START ( -- , start audio for current channel )
  14. ;
  15.  
  16. : DA.STOP ( -- , stop audio for current channel )
  17. ;
  18.  
  19. : DA.KILL  ( -- , stop all Amiga Audio )
  20. ;
  21.  
  22. : DA.INIT  ( -- , Initialize Digital Audio System )
  23. ;
  24.  
  25. : DA.TERM   ( -- , Terminate Digital Audio )
  26. ;
  27.