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

version 1.4, 1998/12/13 23:29:58 version 1.5, 1998/12/20 23:17:54
Line 84  Variable bitmap-chars Line 84  Variable bitmap-chars
     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

Removed from v.1.4  
changed lines
  Added in v.1.5


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