[gforth] / gforth / cross.fs  

gforth: gforth/cross.fs

Diff for /gforth/cross.fs between version 1.34 and 1.35

version 1.34, Wed Apr 17 16:39:39 1996 UTC version 1.35, Thu May 9 18:12:58 1996 UTC
Line 879 
Line 879 
   
 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

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help