<<<--- % Author M.Ruckert LOC Data_Segment GREG @ Decimal BYTE 0 LOC Decimal+32 Binary TETRA 123456789 LOC #100 Main IS @ j IS $0 U IS $1 u IS $2 x IS $3 tmp IS $4 n IS 9 ten9 GREG 10*10*10*10*10*10*10*10*10 LDA U,Decimal LDTU u,Binary % SUBU u,ten9,1 CMPU tmp,u,ten9; BNN tmp,Error --->>> SLU u,u,32; ADD u,u,ten9; DIVU x,u,ten9 $x\is\lfloor (wu+10^n)/10^n\rfloor$ SET j,n-1 $j\is n-1$ 0H 4ADDU x,x,x; SLU x,x,1 $x \is 10x$ SRU tmp,x,32; STB tmp,U,j $U_j \is \lfloor 10x \rfloor $ ANDNMH x,#FFFF $x\is x \bmod w$ SUB j,j,1 $j \is j-1$ PBNN j,0B Repeat for $n>j\ge0$. <<<--- SET $255,0; TRAP 0,Halt,0 Error SET $255,1; TRAP 0,Halt,0 --->>>