anchor.diff:  
   : load-chrp-boot-file ( addr -- size )
      \ Create bootinfo.txt path name and load that file:
  -   my-self parent ihandle>phandle node>path
  +   my-parent ihandle>phandle node>path
      s" :\ppc\bootinfo.txt" $cat strdup       ( addr str len )
      open-dev dup 0= IF 2drop 0 EXIT THEN
      >r dup                                   ( addr addr R:ihandle )
  
positive.code:    \ Now parse the information from bootinfo.txt:
     parse-bootinfo-txt                       ( addr fnstr fnlen )
     dup 0= IF 3drop 0 EXIT THEN
     \ Create the full path to the boot loader:
     my-self parent ihandle>phandle node>path ( addr fnstr fnlen nstr nlen )
     s" :" $cat 2swap $cat strdup             ( addr str len )
     \ Update the bootpath:
     2dup encode-string s" bootpath" set-chosen
  
negative.code:       3drop 0 0 EXIT
     THEN
     dup >r - swap r> + swap                  ( addr1 len1 )
  
     2dup s" &device;:" find-substr           ( addr1 len1 posdev )
     2dup = IF
        3drop 0 0 EXIT
     THEN
     9 +                                      \ Skip the "&device;:" string
     dup >r - swap r> + swap                  ( addr2 len2 )
     2dup s" </boot-script>" find-substr nip  ( addr2 len3 )
  
     debug-disk-label? IF
        ." Extracted boot loader from bootinfo.txt: '"
        2dup type ." '" cr
     THEN
  ;
  
  \ Try to load \ppc\bootinfo.txt from the disk (used mainly on CD-ROMs), and if
  