anchor.diff:  #include "elf.fs"
   #include <loaders.fs>
   
  +8a8 cp
  +
   \ check wether a VGA device was found during pci scan, if it was
   \ try to initialize it and create the needed device-nodes
   0 value biosemu-vmem
   100000 value biosemu-vmem-size
   0 value screen-info
   
  -vga-device-node? 0<> use-biosemu? AND IF
  +: init-vga-devices  ( -- )
  +   vga-device-node? 0= use-biosemu? 0= OR IF
  +      EXIT
  +   THEN
      s" VGA Device found: " type vga-device-node? node>path type s"  initializing..." type cr
      \ claim virtual memory for biosemu of 1MB
      biosemu-vmem-size 4 claim to biosemu-vmem
  
positive.code:       2swap $cat ( paramstr+path len )
        20 char-cat
        screen-info $cathex
        .(client-exec) drop
        \ s" Time after client exec:" type .date cr
        screen-info c@ 0<> IF
          s"   display " type i . s" found..." type 
          \ screen found
          \ create device entry
  
negative.code:    biosemu-vmem biosemu-vmem-size release
  
     s" VGA initialization done." type cr
  ;
  
  init-vga-devices
  
  : enable-framebuffer-output  ( -- )
  \ enable output on framebuffer
  