start-microcode spr512

: audio
    FREQTICK c@
    dup COMM+2 c!
    h# 3f00 + c@
    dup SAMPLE_Lhi c! SAMPLE_Rhi c!
;

: main
    d# 8000 FREQHZ c!
    begin
        d# 150 YLINE c@ < SPR_PAGE c!
        audio
    again
;

end-microcode

