<<<--- % Author M.Ruckert LOC Data_Segment GREG @ U OCTA -1,-1,3 V OCTA 1,-1,3 W OCTA 0,0,0,0 n IS 3 LOC #100 Main LDA $1,U LDA $2,V LDA $3,W SET $4,n PUSHJ $0,:AddRL:AddRL TRAP 0,Halt,0 PREFIX :AddRL: U IS $0 Parameter. V IS $1 W IS $2 n IS $3 j IS $4 Local variables. i IS $5 w IS $6 tmp IS $7 --->>> AddRL SL j,n,3 \hfil$1$&\ul{\sl B1.} $j \is n-1$ STCO 0,W,j \hfil$1$&$w_n\is 0$ SUB j,j,8 \hfil$1$&$j \is n-1$ 2H LDOU w,U,j \hfil$n$&\ul{\sl B2.} LDOU tmp,V,j; ADDU w,w,tmp \hfil$n$&$w_j\is u_j+v_j \bmod b$ STOU w,W,j \hfil$n$& CMPU tmp,w,tmp \hfil$n$&\ul{\sl B3.} PBNN tmp,4F \hfil$n+2L$& SET i,j \hfil$L$&$i\is j$ 0H ADD i,i,8 \hfil$K$&$i\is i+1$ LDOU w,W,i \hfil$K$&$w_i\is w_i+1 \bmod b$ ADDU w,w,1 \hfil$K$& STOU w,W,i \hfil$K$& BZ w,0B \hfil$3(K-L)-2$&Repeat until $w_i+1