|
version 1.141, 2003/08/18 19:29:14
|
version 1.142, 2003/09/14 21:16:48
|
|
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 |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cross.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth