anchor.diff:  d# 600 VALUE disp-height
   d#   8 VALUE disp-depth
   
  +: map-in  " map-in" my-phandle parent $call-static ;
  +: map-out  " map-out" my-phandle parent $call-static ;
  +
   \ Determine base address
  -10 config-l@ translate-my-address f not AND VALUE fb-base
  -
  -\ Fixed up later
  --1 VALUE io-base
  +0 0  my-space h# 02000010 + 1  map-in VALUE fb-base
  +0 0  my-space h# 02000018 + 1 map-in VALUE reg-base
   
   \ We support only one instance
   false VALUE is-installed?
   
  -: vga-io-xlate ( port -- addr )
  -  io-base -1 = IF
  -    dup translate-my-address fff not and to io-base
  -  THEN
  -  io-base +
  -;
  -
   : vga-w! ( value port -- )
  -  vga-io-xlate rw!-le
  +  3c0 - reg-base 400 + + rw!-le
   ;
   
   : vga-w@ ( port -- value )
  -  vga-io-xlate rw@-le
  +  3c0 - reg-base 400 + + rw@-le
   ;
   
   : vga-b! ( value port -- )
  -  vga-io-xlate rb!
  +  3c0 - reg-base 400 + + rb!
   ;
   
   : vga-b@ ( port -- value )
  -  vga-io-xlate rb@
  +  3c0 - reg-base 400 + + rb@
   ;
   
   : vbe!	( value index -- )
  -  1ce vga-w! 1d0 vga-w!
  +  1 << reg-base 500 + + rw!-le
   ;
   
   : vbe@	( index -- value )
  -  1ce vga-w! 1d0 vga-w@
  +  1 << reg-base 500 + + rw@-le
   ;
   
   : color! ( r g b number -- ) 
  
positive.code: 
  pci-master-enable
  pci-mem-enable
  pci-io-enable
  add-legacy-reg
  read-settings
  init-mode
  init-default-palette
  
negative.code:   THEN
  ;
  
  : setup-properties
     \ Shouldn't this be done from open ?
     disp-width encode-int s" width" property
  