![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cross.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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 |