Motorola DSP96002 - Manual (Page 532)

MOTOROLA DSP96002 USER’S MANUAL B-13
inc d0 m0,m4
lsr d2 m0,m5
move d2.l,n6
do n1,_end_pass
move r2,r0
move d0.l,n2
lsr d1 m2,r6
dec d1 d1.l,n0
move d1.l,n1
move n0,n4
move n0,n5
lea (r0)+n0,r1
lea (r0)-,r4
lea (r1)-,r5
do n2,_end_grp
move x:(r6)+n6,d9.s y:,d8.s
move x:(r1)+,d6.s y:,d7.s
fmpy.s d8,d7,d3 y:(r5),d2.s
fmpy.s d9,d6,d0 y:(r4),d5.s
fmpy.s d9,d7,d1 y:(r1),d7.s
do n0,_end_bfy
fmpy d8,d6,d2 fadd.s d3,d0 x:(r0),d4.s d2.s,y:(r5)+
fmpy d8,d7,d3 faddsub.s d4,d0 x:(r1)+,d6.s d5.s,y:(r4)+
fmpy d9,d6,d0 fsub.s d1,d2 d0.s,x:(r4) y:(r0)+,d5.s
fmpy d9,d7,d1 faddsub.s d5,d2 d4.s,x:(r5) y:(r1),d7.s
_end_bfy
move x:(r0)+n0,d7.s d2.s,y:(r5)+n5
move x:(r1)+n1,d7.s d5.s,y:(r4)+n4
_end_grp
move n2,d0.l
lsl d0 n0,d1.l
_end_pass
B.1.15.2 Faster Radix 2 Decimation in Time FFT
; Complex, Radix 2 Cooley-Tukey Decimation in Time FFT
; This program has not been exhaustively tested and may contain errors.