| |
|
| : >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 |
| |
|
| |
|
| : 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 |
