diff options
| -rw-r--r-- | readme.md | 6 | ||||
| -rw-r--r-- | sanctuary.fs | 3 |
2 files changed, 9 insertions, 0 deletions
@@ -311,6 +311,9 @@ which is used as the user memory space. ### `execute ( xt -- )` call the word xt. +### `false ( -- u )` +a cell with no bits set. + ### `find ( a u -- a u 0 | a -1 )` look in the dictionary for the word a (of u characters). a zero is returned along with the original given string @@ -432,6 +435,9 @@ conclude an if statement. ### `tib ( -- a )` a variable containing the address of the current input buffer. +### `true ( -- u )` +a cell with all bits set. + ### `type ( a u -- )` write u characters at a to output. diff --git a/sanctuary.fs b/sanctuary.fs index f73f052..d006985 100644 --- a/sanctuary.fs +++ b/sanctuary.fs @@ -43,4 +43,7 @@ ( by a create does> made word ) : constant create , does> @ ; : variable create 1 cells allot ; + +0 constant false +-1 constant true bye |