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: #include "elf.fs"
  #include <loaders.fs>
  
  \ 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
     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
  
negative.code:       20 char-cat biosemu-debug $cathex \ add biosemu-debug as param
        ( paramstr+path+biosemu-debug len )
     THEN
     .(client-exec) IF
        ." biosemu client exec failed!" cr
        set-node                          \ restore old current-node
        EXIT
     THEN
     \ s" Time after biosemu:" type .date cr
     s" VGA initialization: detecting displays..." type cr
     \ try to get info for two monitors
  