anchor.diff:  
   VARIABLE huge-tftp-load 1 huge-tftp-load !
   
  -INSTANCE VARIABLE ciregs-buffer
  -
   : open ( -- okay? ) 
  -    ciregs-size alloc-mem ciregs-buffer ! 
       true
   ;
   
   : load ( addr -- size )
  -
  -    \ Save old client interface register 
  -    ciregs ciregs-buffer @ ciregs-size move
  -
       s" bootargs" get-chosen 0= IF 0 0 THEN >r >r
       s" bootpath" get-chosen 0= IF 0 0 THEN >r >r
   
  
positive.code:     my-args
      net-load dup 0< IF drop 0 THEN
  
      \ Restore to old client interface register 
      ciregs-buffer @ ciregs ciregs-size move
  
      \ Recover buffer address of BOOTP-REPLY packet
      r>
  
  
negative.code: ;
  
  : close ( -- )
  ;
  
  : ping  ( -- )
  