anchor.diff:  
   pci-master-enable
   pci-mem-enable
  -pci-io-enable
  -add-legacy-reg
   read-settings
   init-mode
   init-default-palette
  
positive.code: d# 600 VALUE disp-height
  d#   8 VALUE disp-depth
  
  \ Determine base address
  10 config-l@ translate-my-address f not AND VALUE fb-base
  
  \ Fixed up later
  -1 VALUE io-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
  ;
  
  : vga-w@ ( port -- value )
    vga-io-xlate rw@-le
  ;
  
  : vga-b! ( value port -- )
    vga-io-xlate rb!
  ;
  
  : vga-b@ ( port -- value )
    vga-io-xlate rb@
  ;
  
  : vbe!	( value index -- )
    1ce vga-w! 1d0 vga-w!
  ;
  
  : vbe@	( index -- value )
    1ce vga-w! 1d0 vga-w@
  ;
  
  : color! ( r g b number -- ) 
  
negative.code:   THEN
  ;
  
  : setup-properties
     \ Shouldn't this be done from open ?
     disp-width encode-int s" width" property
  