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