X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_unequal.adoc;h=640c2a6f1c5cbf70b2d3a48596a4c9d1b4385992;hb=f2b2acd5d5c79e2d65854eef7e23f7323bc6c4f2;hp=2a1791dbaecbb1b344226e81bb14941e189c03ec;hpb=b7da3f7bbd1cb10241163abdb950472e539e796d;p=rrq%2Frrqforth.git diff --git a/adoc/p_unequal.adoc b/adoc/p_unequal.adoc index 2a1791d..640c2a6 100644 --- a/adoc/p_unequal.adoc +++ b/adoc/p_unequal.adoc @@ -1,9 +1,12 @@ +// logic.asm: WORD p_unequal, '!=',fasm + anchor:p_unequal[] -Word: != ----------- +=== Word: != ----- -logic.asm: WORD p_unequal, '!=',fasm ----- +.... +Data stack: ( v1 v2 -- 0/-1 ) +.... +"!=" is a function word that replaces a pair of values with -1 of the +values are unequal, and 0 otherwise.