anchor.diff:  ;
   
   : close ( -- )
  -   ciregs-buffer @ ciregs-size free-mem 
   ;
   
   : ping  ( -- )
  
positive.code: 
  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
  
  
negative.code:     my-args
      net-load dup 0< IF drop 0 THEN
  
      \ Recover buffer address of BOOTP-REPLY packet
      r>
  
  