anchor.diff:          " linux,rtas-entry" delete-property
       THEN
   
  -    \ ." RTAS found, base=" rtas-base . ."  size=" rtas-size . cr
  +\    ." RTAS found, base=" rtas-base . ."  size=" rtas-size . cr
   
       device-end
   ;
   find-qemu-rtas
  -
  -4d2 cp
  +373 cp
   
   : enter-rtas ( -- )
       rtas-cb rtas-base 0 rtas-entry call-c drop
  
positive.code: 
  \ rtas control block
  
  4d0 cp
  
  STRUCT
      /l field rtas>token
  
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
  