X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_0less.adoc;h=b5c1f5e9d09722c1a91f86c81ea41d9eaeb7a700;hb=af617c57b198d0b1e55e77ed2e67c57365007f29;hp=6ce109cc4c100550f9913ebc94dd0cc4c06f3027;hpb=b7da3f7bbd1cb10241163abdb950472e539e796d;p=rrq%2Frrqforth.git

diff --git a/adoc/p_0less.adoc b/adoc/p_0less.adoc
index 6ce109c..b5c1f5e 100644
--- a/adoc/p_0less.adoc
+++ b/adoc/p_0less.adoc
@@ -1,9 +1,21 @@
+// logic.asm:	WORD p_0less, '0<',fasm
+
 anchor:p_0less[]
 
-Word: 0<
-----------
+=== Word: 0<
+
+....
+Data stack: ( v -- 0/-1 )
+....
+
+"0<" is a function word that replaces a value with -1 if the value is
+less than 0, and 0 otherwise.
 
-----
-logic.asm:	WORD p_0less, '0<',fasm
-----
+====
+.Definition concept for 0<
+****
+( v -- 0/1 ) : 0= 0 SWAP < ;
+****
+====
 
+See also <<p_swap,SWAP>> and <<p_lessthan,<>>.