figForth Word - "#" "sharp"
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
# d1 --- d2
Generate from a double number d1, the next ascii character which is
placed in an output string. Result d2 is the quotient after division
by BASE, and is maintained for further processing. Used between <#
and #> See #S
jhgg
NFA: 0074A9 81 DB 81H
0074AA A3 DB '#'+80H
LFA: 0074AB 9074 DW SIGN-7
CFA: 0074AD 3C28 DIG: DW DOCOL ; :
PFA: 0074AF 8168 DW BASE ; BASE
0074B1 8F27 DW AT ; @
0074B3 6472 DW MSMOD ; M/MOD
0074B5 B569 DW ROT ; ROT
0074B7 E367 DW NINE ; 9
0074B9 BD26 DW OVER ; OVER
0074BB 6569 DW LESS ; <
0074BD DA21 0600 DW ZBRAN,DIG1-$ ; IF
0074C1 DB67 DW SEVEN ; 7
0074C3 1226 DW PLUS ; +
0074C5 DIG1: ; THEN
0074C5 0621 3000 DW LIT,30H ; 30H
0074C9 1226 DW PLUS ; +
0074CB CA6D DW HOLD ; HOLD
0074CD 1725 DW SEMIS ; ;