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:              dup load-chrp-boot-file ?dup 0 > IF nip EXIT THEN
           THEN
           load-from-boot-partition
           dup 0= ABORT" No boot partition found"
        THEN
     THEN
  ;
  
negative.code: \ NOTE: block-size is always 512 bytes for DOS partition tables.
  
  : load-from-dos-boot-partition ( addr -- size )
     no-mbr? IF drop FALSE EXIT THEN  \ read MBR and check for DOS disk-label magic
  
     count-dos-logical-partitions TO dos-logical-partitions
  
  