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 – flag https://forth-standard.org/standard/core/Uless
flag is true if and only if u1 is less than u2
NFA: 006982 82 DB 82H
006983 55 DB "U"
006984 BC DB '<'+80H
LFA: 006985 6169 DW LESS-4
CFA: 006987 3C28 ULESS: DW DOCOL ; :
PFA: 006989 1927 DW TDUP ; 2DUP
00698B 7024 DW XORR ; XOR
00698D 0026 DW ZLESS ; 0<
00698F DA21 0C00 DW ZBRAN,ULES1-$ ; IF
006993 CC26 DW DROP ; DROP
006995 0026 DW ZLESS ; 0<
006997 EC25 DW ZEQU ; 0=
006999 C221 0600 DW BRAN,ULES2-$ ; ELSE
00699D 4B69 ULES1: DW SUBB ; -
00699F 0026 DW ZLESS ; 0<
0069A1 ULES2: ; THEN
0069A1 1725 DW SEMIS ; ;