diff options
Diffstat (limited to 'j1eforth')
-rw-r--r-- | j1eforth/j1.4th | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/j1eforth/j1.4th b/j1eforth/j1.4th index 06a2ae1..029e329 100644 --- a/j1eforth/j1.4th +++ b/j1eforth/j1.4th @@ -350,7 +350,7 @@ t: 2* 1 literal lshift t; t: 1+ 1 literal + t; t: sp@ dsp ff literal and t; t: execute ( ca -- ) >r t; -t: bye ( -- ) f002 literal ! t; +t: bye ( -- ) 7002 literal ! t; t: c@ ( b -- c ) dup @ swap 1 literal and if 8 literal rshift else ff literal and then exit t; @@ -493,17 +493,17 @@ t: number? ( a -- n t | a f ) else r> r> 2drop 2drop 0 literal then dup then r> 2drop r> base ! t; -t: ?rx ( -- c t | f ) f001 literal @ 1 literal and 0= invert t; +t: ?rx ( -- c t | f ) 7001 literal @ 1 literal and 0= invert t; t: tx! ( c -- ) begin - f001 literal @ 2 literal and 0= - until f000 literal ! t; + 7001 literal @ 2 literal and 0= + until 7000 literal ! t; t: ?key ( -- c ) '?key @execute t; t: emit ( c -- ) 'emit @execute t; t: key ( -- c ) begin ?key - until f000 literal @ t; + until 7000 literal @ t; t: nuf? ( -- t ) ?key dup if drop key =lf literal = then exit t; t: space ( -- ) bl emit t; t: spaces ( +n -- ) 0 literal max for aft space then next t; |