version 1.14, 1999/03/23 20:24:27
|
version 1.16, 1999/05/05 12:04:41
|
Line 32 hex \ everything now hex!
|
Line 32 hex \ everything now hex!
|
0 Constant false ( -- f ) \ core-ext |
0 Constant false ( -- f ) \ core-ext |
\G CONSTANT: @var{f} is a cell with all bits clear. |
\G CONSTANT: @var{f} is a cell with all bits clear. |
|
|
|
[IFUNDEF] cell |
1 cells Constant cell ( -- u ) \ gforth |
1 cells Constant cell ( -- u ) \ gforth |
|
[THEN] |
1 floats Constant float ( -- u ) \ gforth |
1 floats Constant float ( -- u ) \ gforth |
|
|
20 Constant bl ( -- c-char ) \ core |
20 Constant bl ( -- c-char ) \ core |
Line 112 AUser "error 0 "error !
|
Line 114 AUser "error 0 "error !
|
User >in ( -- a-addr ) \ core |
User >in ( -- a-addr ) \ core |
\G USER VARIABLE: @var{a-addr} is the address of a cell containing the |
\G USER VARIABLE: @var{a-addr} is the address of a cell containing the |
\G char offset from the start of the terminal input buffer to the |
\G char offset from the start of the terminal input buffer to the |
\G start of the parse area |
\G start of the parse area. |
0 >in ! \ char number currently processed in tib |
0 >in ! \ char number currently processed in tib |
[THEN] |
[THEN] |
has? file [IF] |
has? file [IF] |