Return to fi2c.fs CVS log | Up to [gforth] / gforth |
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 |