Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.34, 1996/04/17 16:39:39 | version 1.35, 1996/05/09 18:12:58 |
---|---|
Line 879 bigendian Constant bigendian | Line 879 bigendian Constant bigendian |
Create magic s" Gforth10" here over allot swap move | Create magic s" Gforth10" here over allot swap move |
[char] 1 bigendian + cell + magic 7 + c! | char 1 bigendian + cell + 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 |