; Output a calibration tone using table lookup and interpolation. ; ; written by Quinn Jensen ; ref: _Digital Sine-Wave Synthesis Using the DSP56001_, ; Motorola app note APR1/D rev 1 ; include "tdsg.a56" ;*************************************************************** ; ; sample rate computations ; ;*************************************************************** P:0076 dot X:0020 org x:$20 include "caltone.inc" X:0020 000007 dphase dc dphase_h Y:0020 org y:$20 Y:0020 DD4415 dc dphase_l X:0021 org x:$21 X:0021 000000 phase dc 0 000100 sinetab equ $100 P:0076 org p:dot ; ; non-interrupt code ; P:0076 hf_init P:0076 0004FA ori #4,omr P:0077 00000C rts P:0078 eff1_on P:0078 eff1_off P:0078 eff2_on P:0078 eff2_off P:0078 eff3_on P:0078 eff3_off P:0078 eff4_on P:0078 eff4_off P:0078 00000C rts ; ; fs = 32.552083 kHz ; P:0079 hf_comp P:0079 0D0066 jsr $0000FF,y1 P:0081 0000FF P:0082 200076 and y1,a P:0083 482100 move a,l: