Motorola DSP96002 - Manual (Page 650)

MOTOROLA DSP96002 USER’S MANUAL B-131
Words
page 132,60,1,1
N equ 8
N_sqr equ N*N
org x:$0
amatrix dc .1,.2,.3,.4,.1,.2,.3,.4
dc .5,.6,.7,.8,.5,.6,.7,.8
dc .9,.1,.2,.3,.9,.1,.2,.3
dc .4,.5,.6,.7,.4,.5,.6,.7
dc .1,.2,.3,.4,.1,.2,.3,.4
dc .5,.6,.7,.8,.5,.6,.7,.8
dc .9,.1,.2,.3,.9,.1,.2,.3
dc .4,.5,.6,.7,.4,.5,.6,.7
org y:$0
bmatrix dc .5,.5,.5,.5,.5,.5,.5,.5
dc .5,.5,.5,.5,.5,.5,.5,.5
dc .5,.5,.5,.5,.5,.5,.5,.5
dc .5,.5,.5,.5,.5,.5,.5,.5
dc .5,.5,.5,.5,.5,.5,.5,.5
dc .5,.5,.5,.5,.5,.5,.5,.5
dc .5,.5,.5,.5,.5,.5,.5,.5
dc .5,.5,.5,.5,.5,.5,.5,.5
org y:$40
cmatrix ds N_sqr
org p:$100
move #amatrix,r0 1 1
move #N,n4 1 1
move #N_sqr-1,m0 ; modulo-N addressing 1 1
move #bmatrix,r4 1 1
move #cmatrix,r5 1 1
move m0,m4 1 1
move n4,n5 1 1
move m0,m5 1 1
fclr d1 x:(r0)+,d4.s 1 1
fclr d5 y:(r4)+n4,d7.s 1 1
;
do #8,endall 2 3
fmpy.s d4,d7,d3 x:(r0)+,d4.s y:(r4)+n4,d7.s 1 1
fmpy d4,d7,d3 fadd.s d3,d1 x:(r0)+,d4.s y:(r4)+n4,d7.s 1 1
fmpy d4,d7,d3 fadd.s d3,d1 x:(r0)+,d4.s y:(r4)+n4,d7.s 1 1
fmpy d4,d7,d3 fadd.s d3,d1 x:(r0)+,d4.s y:(r4)+n4,d7.s 1 1
fmpy d4,d7,d3 fadd.s d3,d1 x:(r0)+,d4.s y:(r4)+n4,d7.s 1 1
fmpy d4,d7,d3 fadd.s d3,d1 x:(r0)+,d4.s y:(r4)+n4,d7.s 1 1
fmpy d4,d7,d3 fadd.s d3,d1 x:(r0)+,d4.s y:(r4)+n4,d7.s 1 1
fmpy d4,d7,d3 fadd.s d3,d1 x:(r0)+,d4.s y:(r4)+n4,d7.s 1 1
fmpy d4,d7,d3 fadd.s d3,d1 x:(r0)+,d4.s y:(r4)+n4,d7.s 1 1