\ Stubs for sound words that are available in HMSL.
ANEW TASK-SOUND_STUBS

: DA.CHANNEL!  ( channel[0-3] -- , set channel to control )
    drop
;
: DA.SAMPLE! ( addr #bytes -- , Set Sample to Use )
    2drop
;
: DA.PERIOD! ( period -- , Set period between samples, 1/frequency )
    drop
;
: DA.START ( -- , start audio for current channel )
;

: DA.STOP ( -- , stop audio for current channel )
;

: DA.KILL  ( -- , stop all Amiga Audio )
;

: DA.INIT  ( -- , Initialize Digital Audio System )
;

: DA.TERM   ( -- , Terminate Digital Audio )
;
