[gforth] / gforth / cross.fs  

gforth: gforth/cross.fs

Diff for /gforth/cross.fs between version 1.61 and 1.62

version 1.61, Tue Dec 22 13:41:18 1998 UTC version 1.62, Tue Dec 22 15:18:50 1998 UTC
Line 1954 
Line 1954 
 \ 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
   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

Generate output suitable for use with a patch program
Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help