version 1.150, 2005/12/31 15:46:08
|
version 1.154, 2006/02/18 14:54:03
|
Line 1771 Ghost state drop
|
Line 1771 Ghost state drop
|
?DO dup T c@ H I T c! H 1+ |
?DO dup T c@ H I T c! H 1+ |
tchar +LOOP drop ; |
tchar +LOOP drop ; |
|
|
|
: tcallot ( char size -- ) |
|
0 ?DO dup T c, H tchar +LOOP drop ; |
|
|
: td, ( d -- ) |
: td, ( d -- ) |
\G Store a host value as one cell into the target |
\G Store a host value as one cell into the target |
there tcell X allot TD! ; |
there tcell X allot TD! ; |
Line 2822 by Create
|
Line 2825 by Create
|
|
|
: u, ( n -- udp ) |
: u, ( n -- udp ) |
current-region >r user-region activate |
current-region >r user-region activate |
X here swap X , tup@ - |
X here swap X , tup@ - |
r> activate ; |
r> activate ; |
|
|
: au, ( n -- udp ) |
: au, ( n -- udp ) |
Line 3269 tchar 8 = 78 and or
|
Line 3272 tchar 8 = 78 and or
|
magic 7 + c! |
magic 7 + c! |
|
|
: save-cross ( "image-name" "binary-name" -- ) |
: save-cross ( "image-name" "binary-name" -- ) |
|
.regions \ s" ec" X $has? IF .regions THEN |
bl parse ." Saving to " 2dup type cr |
bl parse ." Saving to " 2dup type cr |
w/o bin create-file throw >r |
w/o bin create-file throw >r |
s" header" X $has? IF |
s" header" X $has? IF |
Line 3285 magic 7 + c!
|
Line 3289 magic 7 + c!
|
ELSE |
ELSE |
bl parse 2drop |
bl parse 2drop |
THEN |
THEN |
dictionary >rmem @ there |
>rom dictionary >rmem @ there |
|
s" rom" X $has? IF dictionary >rstart @ - THEN |
r@ write-file throw \ write image |
r@ write-file throw \ write image |
s" relocate" X $has? IF |
s" relocate" X $has? IF |
dictionary >rbm @ there 1- tcell>bit rshift 1+ |
dictionary >rbm @ there 1- tcell>bit rshift 1+ |