VolksForth

Atari8bit-sound
Login

Sound word

\ Atari Sound Command

 ( $D200 = Pokey AUDBASE )

 : SOUND ( CH# FREQ DIST VOL -- )
   SWAP $10 * + ROT DUP + $D200 +
   ROT OVER C! 1+ C! ;