<<<--- % Author M.Ruckert LOC Data_Segment GREG @ U OCTA 0,0,1 V OCTA 1,0,0 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,:Classic:Sub TRAP 0,Halt,0 PREFIX :Classic: U IS $0 Parameter. V IS $1 W IS $2 n IS $3 j IS $4 Local variables. k IS $5 wj IS $6 vj IS $7 uj IS $8 tmp IS $9 --->>> Sub 8ADDU U,n,U; 8ADDU V,n,V; 8ADDU W,n,W $X\is X+8n$ SL j,n,3; NEG j,j $j \is -8n$ SET k,0 $k \is 0$ JMP 2F 1H LDOU uj,U,j SUBU wj,uj,k $w_j\is u_j-k$ ZSZ k,uj,k carry? LDOU vj,V,j CMPU tmp,wj,vj; CSN k,tmp,1 carry? SUBU wj,wj,vj $w_j\is w_j-v_j$ STOU wj,W,j ADD j,j,8 2H PBN j,1B probably $j<0$ BNZ k,Error $k\ne 0$ if $u>>