X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_greaterequal.adoc;h=e89cb8c278c6d1d47f5351ec72e3f5210071619b;hb=5ccf8e25e065ee91cb4cdfe962012221e801df6d;hp=8a11ab84838d3c546dc4bd970e8fec574699b691;hpb=b7da3f7bbd1cb10241163abdb950472e539e796d;p=rrq%2Frrqforth.git diff --git a/adoc/p_greaterequal.adoc b/adoc/p_greaterequal.adoc index 8a11ab8..e89cb8c 100644 --- a/adoc/p_greaterequal.adoc +++ b/adoc/p_greaterequal.adoc @@ -1,9 +1,13 @@ +// logic.asm: WORD p_greaterequal, '>=',fasm + anchor:p_greaterequal[] -Word: >= ----------- +=== Word: >= ----- -logic.asm: WORD p_greaterequal, '>=',fasm ----- +.... +Data stack: ( v1 v2 -- 0/-1 ) +.... +">=" is a function word that replaces a pair of values with -1 if the +first, v1, is greater than or equal to the second, v1, otherwise 0. To +that end, the values are 64-bit signed integers.