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