gforth/fi2c.fs - diff

Return to fi2c.fs CVS log

Up to [gforth] / gforth

version 1.10, 2000/09/23 15:46:56	version 1.11, 2001/11/21 10:01:47
Line 52 Variable bitmap-chars	Line 52 Variable bitmap-chars

: read-header ( fd -- )	: read-header ( fd -- )
image-header 4 cells rot read-file throw drop	image-header 4 cells rot read-file throw drop
image-header 2 cells + @ bswap tchars @ * au @ /	image-header 2 cells + @ bswap tchars @ * tcell @ / au @ /
dup image-cells ! 1- 8 / tchars @ / 1+ bitmap-chars !	dup image-cells ! 1- 8 / tchars @ / 1+ bitmap-chars !
image-cells @ cells allocate throw to image	image-cells @ cells allocate throw to image
bitmap-chars @ allocate throw to bitmap ;	bitmap-chars @ allocate throw to bitmap ;
Line 85 Variable bitmap-chars	Line 85 Variable bitmap-chars
r@ read-dictionary r@ read-bitmap r> close-file throw ;	r@ read-dictionary r@ read-bitmap r> close-file throw ;

: .imagesize ( -- )	: .imagesize ( -- )
image-header 3 cells + @ bswap .08x ;	image-header 3 cells + @ tchars @ * tcell @ / au @ / bswap .08x ;

: .relocsize ( -- )	: .relocsize ( -- )
bitmap-chars @ .08x ;	bitmap-chars @ .08x ;