requires clink.f
requires mapin.f
requires random.f
\ requires dbuf.f

hex

e.c000 constant cgone0.mbmem
280 ( td 640 ) constant cg.height
1e0 ( td 480 ) constant cg.width
4000 ( td 16385 ) constant cg.size
e.8000 constant 
90 constant bytes/line
384 constant lines/screen
4000 constant bytes/fb

variable >fb
: fb >fb @ ;

: getfb
  0 bytes/fb [""] /dev/cgone0 mapin  >fb !
;

variable >mb
: mb >mb @ ;

: getmb
  e.c000 bytes/fb [""] /dev/mbmem mapin  >mb !
;