X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_0equal.adoc;h=827c0f1e206857c1c65924e8c3e519a5b41a3971;hb=46336a44b2da0ba4f141665e2709885b7b85d566;hp=63980d4b338782703cb3c1ada8eb65346a2870d5;hpb=b7da3f7bbd1cb10241163abdb950472e539e796d;p=rrq%2Frrqforth.git diff --git a/adoc/p_0equal.adoc b/adoc/p_0equal.adoc index 63980d4..827c0f1 100644 --- a/adoc/p_0equal.adoc +++ b/adoc/p_0equal.adoc @@ -1,9 +1,16 @@ +// logic.asm: WORD p_0equal, '0=',fasm + anchor:p_0equal[] -Word: 0= ----------- +=== Word: 0= + +.... +Data stack: ( v -- 0/-1 ) +.... + ----- -logic.asm: WORD p_0equal, '0=',fasm ----- +"0=" is a function word that replaces a value with its logical +complement; the result is zero if the value non-zero, and the result +is non-zero if the value is zero. +Compare with <>.