figForth Word - DIGIT
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
DIGIT c n1 — n2 tf (ok) c n1 — ff (bad) Converts the ascii character c (using base n1) to its binary equivalent n2, accompanied by a true flag. If the conversion is invalid, leaves only a false flag
NFA: 00226D 85 DB 85H
00226E 44494749 DB "DIGI"
002272 D4 DB 'T'+80H
LFA: 002273 5E22 DW JDO-4
CFA: 002275 7722 DIGIT: DW $+2
PFA: 002277 E1 POP HL
002278 D1 POP DE
002279 7B LD A,E
00227A D630 SUB 30H
00227C FA 96 22 JP M,DIGI2
00227F FE0A CP 0AH
002281 FA 8B 22 JP M,DIGI1
002284 D607 SUB 7
002286 FE0A CP 0AH
002288 FA 96 22 JP M,DIGI2
00228B BD DIGI1: CP L
00228C F2 96 22 JP P,DIGI2
00228F 5F LD E,A
002290 210100 LD HL,1
002293 C3 E0 20 JP WHPUSH
002296 6C DIGI2: LD L,H
002297 C3 E1 20 JP HPUSH