name "Sine wave Gen"
include "emu_constants.asm"
in io
out equ in
delta control $3afa691,0,$7fffffff ; controls frequency
cosx control #1,0,#1 ; amplitude of sinewave
sinx sta 0
macs sinx,sinx,delta,cosx
macs1 cosx,cosx,delta,sinx
macmv out,cosx,C_0,C_0
end