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