X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_equal.adoc;h=20829812cb192d1c8c138e5667bf49d3e83359e9;hb=92ed95a59cba9c0685150503196877c3d81fedbc;hp=d15a8e7a6953b94625c9b586bc98ee47a0b0e5d7;hpb=b7da3f7bbd1cb10241163abdb950472e539e796d;p=rrq%2Frrqforth.git

diff --git a/adoc/p_equal.adoc b/adoc/p_equal.adoc
index d15a8e7..2082981 100644
--- a/adoc/p_equal.adoc
+++ b/adoc/p_equal.adoc
@@ -1,9 +1,12 @@
+// logic.asm:	WORD p_equal, '=',fasm
+
 anchor:p_equal[]
 
-Word: =
--------
+=== Word: =
 
-----
-logic.asm:	WORD p_equal, '=',fasm
-----
+....
+Data stack: ( v1 v2 -- 0/-1 )
+....
 
+"=" is a function word that replaces a pair of values with -1 of the
+values are equal, and 0 otherwise.