version 1.3, 1994/05/05 15:46:38
|
version 1.4, 1994/05/18 17:29:50
|
Line 181 CREATE Bittable 80 c, 40 c, 20 c, 10 c,
|
Line 181 CREATE Bittable 80 c, 40 c, 20 c, 10 c,
|
|
|
: >bit ( addr n -- c-addr mask ) 8 /mod rot + swap bits ; |
: >bit ( addr n -- c-addr mask ) 8 /mod rot + swap bits ; |
: +bit ( addr n -- ) >bit over c@ or swap c! ; |
: +bit ( addr n -- ) >bit over c@ or swap c! ; |
|
: -bit ( addr n -- ) >bit invert over c@ and swap c! ; |
: relon ( taddr -- ) bit$ @ swap cell/ +bit ; |
: relon ( taddr -- ) bit$ @ swap cell/ +bit ; |
|
: reloff ( taddr -- ) bit$ @ swap cell/ -bit ; |
|
|
\ Target memory access 06oct92py |
\ Target memory access 06oct92py |
|
|
Line 510 Cond: DOES> restrict?
|
Line 512 Cond: DOES> restrict?
|
|
|
: gdoes, ( ghost -- ) >end @ dup >magic @ <fwd> <> |
: gdoes, ( ghost -- ) >end @ dup >magic @ <fwd> <> |
IF dup >link @ dup 0< IF T A, 0 , H drop EXIT THEN drop THEN |
IF dup >link @ dup 0< IF T A, 0 , H drop EXIT THEN drop THEN |
:dodoes T A, H gexecute ; |
:dodoes T A, H gexecute T here H cell - reloff ; |
|
|
: TCreate ( ghost -- ) |
: TCreate ( ghost -- ) |
CreateFlag on |
CreateFlag on |