added CFA>TFA
[rrq/rrqforth.git] / adoc / p_0less.adoc
1 // logic.asm:   WORD p_0less, '0<',fasm
2
3 anchor:p_0less[]
4
5 === Word: 0<
6
7 ....
8 Data stack: ( v -- 0/-1 )
9 ....
10
11 "0<" is a function word that replaces a value with -1 if the value is
12 less than 0, and 0 otherwise.
13
14 ====
15 .Definition concept for 0<
16 ****
17 ( v -- 0/1 ) : 0= 0 SWAP < ;
18 ****
19 ====
20
21 See also <<p_swap,SWAP>> and <<p_lessthan,<>>.