Diff for /gforth/cross.fs between versions 1.60 and 1.61

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

Removed from v.1.60  
changed lines
  Added in v.1.61


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>