version 1.89, 2001/01/28 16:54:55
|
version 1.90, 2001/01/28 22:43:39
|
Line 1516 variable ResolveFlag
|
Line 1516 variable ResolveFlag
|
>CROSS |
>CROSS |
\ Header states 12dec92py |
\ Header states 12dec92py |
|
|
: flag! ( w -- ) tlast @ dup >r T @ xor r> ! H ; |
bigendian [IF] 0 [ELSE] tcell 1- [THEN] Constant flag+ |
|
: flag! ( w -- ) tlast @ flag+ + dup >r T c@ xor r> c! H ; |
|
|
VARIABLE ^imm |
VARIABLE ^imm |
|
|
\ !! should be target wordsize specific |
\ !! should be target wordsize specific |
$80000000 constant alias-mask |
$80 constant alias-mask |
$40000000 constant immediate-mask |
$40 constant immediate-mask |
$20000000 constant restrict-mask |
$20 constant restrict-mask |
|
|
>TARGET |
>TARGET |
: immediate immediate-mask flag! |
: immediate immediate-mask flag! |