version 1.25, 1995/07/06 15:57:25
|
version 1.26, 1995/07/25 15:28:04
|
Line 820 Cond: [ELSE] [ELSE] ;Cond
|
Line 820 Cond: [ELSE] [ELSE] ;Cond
|
|
|
bigendian Constant bigendian |
bigendian Constant bigendian |
|
|
|
Create magic s" gforth00" here over allot swap move |
|
|
|
[char] 1 bigendian + cell + magic 7 + c! |
|
|
: save-cross ( "name" -- ) |
: save-cross ( "name" -- ) |
bl parse ." Saving to " 2dup type |
bl parse ." Saving to " 2dup type |
w/o bin create-file throw >r |
w/o bin create-file throw >r |
s" gforth00" r@ write-file throw \ write magic |
magic 8 r@ write-file throw \ write magic |
image @ there r@ write-file throw \ write image |
image @ there r@ write-file throw \ write image |
bit$ @ there 1- cell>bit rshift 1+ |
bit$ @ there 1- cell>bit rshift 1+ |
r@ write-file throw \ write tags |
r@ write-file throw \ write tags |