Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.60, 1998/12/20 12:54:09 | version 1.61, 1998/12/22 13:41:18 |
---|---|
Line 1957 previous | Line 1957 previous |
Create magic s" Gforth10" here over allot swap move | Create magic s" Gforth10" here over allot swap move |
char 1 bigendian + tcell + magic 7 + c! | char 1 bigendian + tcell + magic 7 + c! |
char 0 tchar + magic 6 + 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 |