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

version 1.60, 1998/12/20 12:54:09 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
 char 0 tchar + magic 6 + c!  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

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


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