anchor.diff:  
   \ try-files and try-partitions
   
  -: (interpose-filesystem) ( str len -- )
  -   find-package IF args args-len rot interpose THEN
  -;
  -
   : try-dos-files ( -- found? )
      no-mbr? IF false EXIT THEN
   
  
positive.code:      seek-pos gpt-part-size + to seek-pos
     LOOP
     false
  ;
  
  : try-gpt-dos-partition ( -- true|false )
  
negative.code:    drop 0
  ;
  
  : uuid! ( v1 v2 v3 v4 addr -- ) >r r@ 8 + x! r@ 6 + w!-le r@ 4 + w!-le r> l!-le ;
  : uuid= ( addr1 addr2 -- true|false )  10 comp 0= ;
  
  \ PowerPC 	PReP boot 	9E1A2D38-C612-4316-AA26-8B49521E5A8B
  CREATE GPT-PREP-PARTITION 10 allot
  9E1A2D38 C612 4316 AA268B49521E5A8B GPT-PREP-PARTITION uuid!
  : gpt-prep-partition? ( -- true|false )
     block gpt-part-entry>part-type-guid
     GPT-PREP-PARTITION uuid=
  ;
  
  \ Check for GPT MSFT BASIC DATA GUID - fat based
  \ Windows Basic data partition 	EBD0A0A2-B9E5-4433-87C0-68B6B72699C7
  CREATE GPT-BASIC-DATA-PARTITION 10 allot
  EBD0A0A2 B9E5 4433 87C068B6B72699C7 GPT-BASIC-DATA-PARTITION uuid!
  : gpt-basic-data-partition? ( -- true|false )
     block gpt-part-entry>part-type-guid
     GPT-BASIC-DATA-PARTITION uuid=
  ;
  
  ;
  
  \
  