anchor.diff:        2swap $cat ( paramstr+path len )
         20 char-cat
         screen-info $cathex
  -      .(client-exec) drop
  +      .(client-exec) 0=
         \ s" Time after client exec:" type .date cr
  -      screen-info c@ 0<> IF
  +      screen-info c@ 0<> AND IF
           s"   display " type i . s" found..." type 
           \ screen found
           \ create device entry
  
positive.code:    biosemu-vmem biosemu-vmem-size release
  
     s" VGA initialization done." type cr
  THEN \ vga-device-node?
  
  : enable-framebuffer-output  ( -- )
  \ enable output on framebuffer
  
negative.code: #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
  
  : 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
  