anchor.diff:       seek-pos gpt-part-size + to seek-pos
      LOOP
      false
  +;
  +
  +: (interpose-filesystem) ( str len -- )
  +   find-package IF args args-len rot interpose THEN
  +;
  +
  +: try-ext2-files ( -- found? )
  +   2 read-sector               \ read first superblock
  +   block d# 56 + w@-le         \ fetch s_magic
  +   ef53 <> IF false EXIT THEN  \ s_magic found?
  +   s" ext2-files" (interpose-filesystem)
  +   true
   ;
   
   : try-gpt-dos-partition ( -- true|false )
  
positive.code: 
  \ 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
  
  
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=
  ;
  
  ;
  
  \
  