 ; Sine wave generation using two integrators
 ; instead of sine look-up
 ; By Charlie Thompson 6-13-87
 ; Inital values in a,b will determine amplitude
 ; X0 controls frequency of oscillation
      
		org     p:$40
		move #>$010000,x0 ;frequency in X0




;actual generation loop

loop		mac     x0,y0,a
		move     a,y0
		mac    -x0,y0,b
		move     b,y0

; ouput to D/A... mapped at y:$A000

		move b,y:$a000
		jmp     loop
