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