projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
corrected STR>TEMP space allocation
[rrq/rrqforth.git]
/
adoc
/
p_0less.adoc
diff --git
a/adoc/p_0less.adoc
b/adoc/p_0less.adoc
index 6ce109cc4c100550f9913ebc94dd0cc4c06f3027..b5c1f5e9d09722c1a91f86c81ea41d9eaeb7a700 100644
(file)
--- a/
adoc/p_0less.adoc
+++ b/
adoc/p_0less.adoc
@@
-1,9
+1,21
@@
+// logic.asm: WORD p_0less, '0<',fasm
+
anchor:p_0less[]
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,<>>.