home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD1.img / d1xx / d118 / hammmm / sound_stubs < prev   
Text File  |  1987-12-02  |  544b  |  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.