figForth Word - MAX
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
MAX n1 n2 — max L0 Leave the greater of two numbers
NFA: 00715A 83 DB 83H
00715B 4D41 DB "MA"
00715D D8 DB 'X'+80H
LFA: 00715E 4471 DW MIN-6
CFA: 007160 3C28 MAX: DW DOCOL ; :
PFA: 007162 1927 DW TDUP ; 2DUP
007164 6569 DW LESS ; <
007166 DA21 0400 DW ZBRAN,MAX1-$ ; IF
00716A E826 DW SWAP ; SWAP
00716C CC26 MAX1: ; THEN
00716C CC26 DW DROP ; DROP
00716E 1725 DW SEMIS ; ;