added tfa2namez

[rrq/rrqforth.git] / adoc / p_0less.adoc

diff --git a/adoc/p_0less.adoc b/adoc/p_0less.adoc
index 6ce109cc4c100550f9913ebc94dd0cc4c06f3027..b068b636a74dcc129892d99642ee3f42745da8b2 100644 (file)
--- a/adoc/p_0less.adoc
+++ b/adoc/p_0less.adoc
@@ -1,9 +1,23 @@
+// 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.
 
+====
+.Word: 0<
+[caption='Definition concept {counter:exec}: ']
 ----
-logic.asm:     WORD p_0less, '0<',fasm
+: 0= 0 SWAP < ;
 ----
+====
 
+See also <<p_swap,SWAP>> and
+<<p_lessthan,<>>.