[gforth] / gforth / fi2c.fs  

gforth: gforth/fi2c.fs

Diff for /gforth/fi2c.fs between version 1.4 and 1.5

version 1.4, Sun Dec 13 23:29:58 1998 UTC version 1.5, Sun Dec 20 23:17:54 1998 UTC
Line 84 
Line 84 
     image-header 3 cells + @ bswap tcell @ / tchars @ * .08x ;      image-header 3 cells + @ bswap tcell @ / tchars @ * .08x ;
   
 : .relocsize ( -- )  : .relocsize ( -- )
     bitmap-chars @ tchars @ / .08x ;      bitmap-chars @ 1- tchars @ / 1+ .08x ;
   
 : fi2c ( addr u -- )  base @ >r hex  : fi2c ( addr u -- )  base @ >r hex
     read-image      read-image

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help