version 1.61, 1998/12/22 13:41:18
|
version 1.62, 1998/12/22 15:18:50
|
Line 1954 previous
|
Line 1954 previous
|
\ save-cross 17mar93py |
\ save-cross 17mar93py |
|
|
>CROSS |
>CROSS |
Create magic s" Gforth10" here over allot swap move |
Create magic s" Gforth2x" here over allot swap move |
|
|
char 1 bigendian + tcell + magic 7 + c! |
bigendian |
|
tcell 1 = 0 and |
|
tcell 2 = 2 and or |
|
tcell 4 = 4 and or |
|
tcell 8 = 6 and or |
|
magic 7 + c! |
|
|
: save-cross ( "image-name" "binary-name" -- ) |
: save-cross ( "image-name" "binary-name" -- ) |
bl parse ." Saving to " 2dup type cr |
bl parse ." Saving to " 2dup type cr |