anchor.diff:  
   device-end
   
  -4d8 cp
  +374 cp
  
positive.code:         " linux,rtas-entry" delete-property
      THEN
  
      \ ." RTAS found, base=" rtas-base . ."  size=" rtas-size . cr
  
      device-end
  ;
  find-qemu-rtas
  
  4d2 cp
  
  : enter-rtas ( -- )
      rtas-cb rtas-base 0 rtas-entry call-c drop
  
negative.code: \ Locate qemu RTAS, remove the linux,... properties we really don't
  \ want them to stick around
  
  372 cp
  
  : find-qemu-rtas ( -- )
      " /rtas" find-device get-node to rtas-node
  