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* u1 u2 — ud Leave the unsigned double number product of two unsigned numbers
NFA: 0023C3 82 DB 82H
0023C4 55 DB "U"
0023C5 AA DB '*'+80H
LFA: 0023C6 A523 DW CMOVE-8
CFA: 0023C8 CA23 USTAR: DW $+2
PFA: 0023CA D1 POP DE
0023CB E1 POP HL
0023CC C5 PUSH BC
0023CD 44 LD B,H
0023CE 7D LD A,L
0023CF CD E6 23 CALL MPYX
0023D2 E5 PUSH HL
0023D3 67 LD H,A
0023D4 78 LD A,B
0023D5 44 LD B,H
0023D6 CD E6 23 CALL MPYX
0023D9 D1 POP DE
0023DA 4A LD C,D
0023DB 09 ADD HL,BC
0023DC CE00 ADC A,0
0023DE 55 LD D,L
0023DF 6C LD L,H
0023E0 67 LD H,A
0023E1 C1 POP BC
0023E2 D5 PUSH DE
0023E3 C3 E1 20 JP HPUSH
0023E6 210000 MPYX: LD HL,0
0023E9 0E08 LD C,8
0023EB 29 MPYX1: ADD HL,HL
0023EC 17 RLA
0023ED 30 03 JR NC,MPYX2
0023EF 19 ADD HL,DE
0023F0 CE00 ADC A,0
0023F2 0D MPYX2: DEC C
0023F3 C2 EB 23 JP NZ,MPYX1
0023F6 C9 RET