anchor.diff:  : load-chrp-boot-file ( addr -- size )
      \ Create bootinfo.txt path name and load that file:
      my-parent instance>path
  -   s" :\ppc\bootinfo.txt" $cat strdup       ( addr str len )
  +   disk-chrp-boot @ 1 = IF
  +       s" :1,\ppc\bootinfo.txt" $cat strdup       ( addr str len )
  +   ELSE
  +       s" :\ppc\bootinfo.txt" $cat strdup       ( addr str len )
  +   THEN
      open-dev dup 0= IF 2drop 0 EXIT THEN
      >r dup                                   ( addr addr R:ihandle )
      dup s" load" r@ $call-method             ( addr addr size R:ihandle )
  
positive.code: 
  0 INSTANCE VALUE partition
  0 INSTANCE VALUE part-offset
  
  0 INSTANCE VALUE part-start
  0 INSTANCE VALUE lpart-start
  
negative.code: ;
  
  : load-from-gpt-prep-partition ( addr -- size )
     no-gpt? IF drop FALSE EXIT THEN
     debug-disk-label? IF
        cr ." GPT partition found " cr
     THEN
     1 read-sector block gpt>part-entry-lba l@-le
     block-size * to seek-pos
     block gpt>part-entry-size l@-le to gpt-part-size
  