version 1.140, 2003/08/04 20:32:34
|
version 1.142, 2003/09/14 21:16:48
|
Line 1177 false DefaultValue new-input
|
Line 1177 false DefaultValue new-input
|
false DefaultValue peephole |
false DefaultValue peephole |
false DefaultValue abranch |
false DefaultValue abranch |
true DefaultValue f83headerstring |
true DefaultValue f83headerstring |
true DefaultValue control-rack |
true DefaultValue control-rack |
[THEN] |
[THEN] |
|
|
true DefaultValue gforthcross |
true DefaultValue gforthcross |
Line 2026 variable ResolveFlag
|
Line 2026 variable ResolveFlag
|
\ Header states 12dec92py |
\ Header states 12dec92py |
|
|
\ : flag! ( 8b -- ) tlast @ dup >r T c@ xor r> c! H ; |
\ : flag! ( 8b -- ) tlast @ dup >r T c@ xor r> c! H ; |
bigendian [IF] 0 [ELSE] tcell 1- [THEN] Constant flag+ |
X has? f83headerstring bigendian or [IF] 0 [ELSE] tcell 1- [THEN] Constant flag+ |
: flag! ( w -- ) tlast @ flag+ + dup >r T c@ xor r> c! H ; |
: flag! ( w -- ) tlast @ flag+ + dup >r T c@ xor r> c! H ; |
|
|
VARIABLE ^imm |
VARIABLE ^imm |