14 lines
707 B
Text
14 lines
707 B
Text
LA R4,SB+2 k=2; @sb(k)
|
|
LA R2,SB+2 i=1; @sb(k-i)
|
|
LA R3,SB+0 j=2; @sb(k-j)
|
|
LA R1,NN/2 k=nn/2 'loop counter
|
|
LOOP LA R4,2(R4) @sb(k)++
|
|
LH R0,0(R2) sb(k-i)
|
|
AH R0,0(R3) sb(k-i)+sb(k-j)
|
|
STH R0,0(R4) sb(k)=sb(k-i)+sb(k-j)
|
|
LA R3,2(R3) @sb(k-j)++
|
|
LA R4,2(R4) @sb(k)++
|
|
LH R0,0(R3) sb(k-j)
|
|
STH R0,0(R4) sb(k)=sb(k-j)
|
|
LA R2,2(R2) @sb(k-i)++
|
|
BCT R1,LOOP k--; if k>0 then goto loop
|