figForth Word - U/
Some parts of this page/site are currently incomplete & will be updated asap
Other parts will change continually so use “Refresh” in your browser !!
There is extensive use of “Tooltips” text to support learning which do
not seem to render on a Smartphone
U/ ud u1 — u2 u3 Leave the unsigned remainder u2 and unsigned quotient u3 from the unsigned double dividend ud and unsigned divisor u1
NFA: 0023F7 82 DB 82H
0023F8 55 DB "U"
0023F9 AF DB '/'+80H
LFA: 0023FA C323 DW USTAR-5
CFA: 0023FC FE23 USLAS: DW $+2
PFA: 0023FE 210400 LD HL,4
002401 39 ADD HL,SP
002402 5E LD E,(HL)
002403 71 LD (HL),C
002404 23 INC HL
002405 56 LD D,(HL)
002406 70 LD (HL),B
002407 C1 POP BC
002408 E1 POP HL
002409 7D LD A,L
00240A 91 SUB C
00240B 7C LD A,H
00240C 98 SBC A,B
00240D 38 09 JR C,USLA1
00240F 21FFFF LD HL,0FFFFH
002412 11FFFF LD DE,0FFFFH
002415 C3 3F 24 JP USLA7
002418 3E10 USLA1: LD A,16
00241A 29 USLA2: ADD HL,HL
00241B 17 RLA
00241C EB EX DE,HL
00241D 29 ADD HL,HL
00241E 30 02 JR NC,USLA3
002420 13 INC DE
002421 A7 AND A
002422 EB USLA3: EX DE,HL
002423 1F RRA
002424 F5 PUSH AF
002425 30 08 JR NC,USLA4
002427 7D LD A,L
002428 91 SUB C
002429 6F LD L,A
00242A 7C LD A,H
00242B 98 SBC A,B
00242C 67 LD H,A
00242D 18 0A JR USLA5
00242F 7D USLA4: LD A,L
002430 91 SUB C
002431 6F LD L,A
002432 7C LD A,H
002433 98 SBC A,B
002434 67 LD H,A
002435 30 02 JR NC,USLA5
002437 09 ADD HL,BC
002438 1B DEC DE
002439 13 USLA5: INC DE
00243A F1 USLA6: POP AF
00243B 3D DEC A
00243C C2 1A 24 JP NZ,USLA2
00243F C1 USLA7: POP BC
002440 E5 PUSH HL
002441 D5 PUSH DE
002442 C3 E2 20 JP NEXT