mirror of
https://github.com/forth-ev/VolksForth.git
synced 2025-08-05 03:27:04 +00:00
10 lines
145 B
Forth
10 lines
145 B
Forth
\ Atari Sound Commands
|
|
|
|
( $D200 = Pokey AUDBASE )
|
|
|
|
: SOUND ( CH# FREQ DIST VOL -- )
|
|
SWAP $10 * + ROT DUP + $D200 +
|
|
ROT OVER C! 1+ C! ;
|
|
|
|
|