Motorola DSP96002 - Manual (Page 661)

B-142 DSP96002 USER’S MANUAL MOTOROLA
page 132,60,1,1
fs equ 8000.0 ;sampling frequency
f0 equ 320.0 ;center frequency
scale equ 2.0*@cos(2.0*3.14159*f0/fs)
mag equ 1.0*@sin(2.0*3.14159*f0/fs)
output equ $ffff
org p:$100
move #scale,d7.s ;init scale factor
fclr d6 #mag,d5.s ;init magnitudes
do #200,_gen ;generate 200 points
fmpy.s d6,d7,d6 d6.s,d4.s 1 1
fsub.s d5,d6 d4.s,d5.s 1 1
move d5.s,y:output
_gen --- ---
Totals: 2 2
B.1.59 DTMF Generation
Program Icycles
DTMF Generation Words
page 132,60,1,1
fs equ 8000.0 ;sampling frequency
f0 equ 697.0 ;frequency 0
scale0 equ 2.0*@cos(2.0*3.14159*f0/fs)
mag0 equ 1.0*@sin(2.0*3.14159*f0/fs)
f1 equ 1209.0 ;frequency 1
scale1 equ 2.0*@cos(2.0*3.14159*f1/fs)
mag1 equ 1.0*@sin(2.0*3.14159*f1/fs)
output equ $ffff
org p:$100
move #scale0,d7.s ;init scale0 factor
fclr d6 #mag0,d5.s ;init magnitude0
move #scale1,d3.s ;init scale1
fclr d2 #mag1,d1.s ;init magnitude1
do #4096,_gen
fmpy.s d6,d7,d6 d6.s,d4.s 1 1
fsub.s d5,d6 d4.s,d5.s 1 1
fmpy.s d2,d3,d2 d2.s,d0.s 1 1
fsub.s d1,d2 d0.s,d1.s 1 1