home *** CD-ROM | disk | FTP | other *** search
- ; 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
-