anchor.diff:     dup f = swap          ( true|false true|false id )
      85 =                  ( true|false true|false true|false )
      or or                 ( true|false )
  -;
  -
  -: partition>part-entry ( partition -- part-entry )
  -   1- /partition-entry * block mbr>partition-table +
  -;
  -
  -: partition>start-sector ( partition -- sector-offset )
  -   partition>part-entry part-entry>sector-offset l@-le
   ;
   
   : count-dos-logical-partitions ( -- #logical-partitions )
  
positive.code:    drop 0
  ;
  
  
  \ load from a bootable partition
  
  : load-from-boot-partition ( addr -- size )
     load-from-dos-boot-partition
     \ More boot partition formats ...
  ;
  
  
negative.code: 
  CONSTANT /partition-entry
  
  STRUCT
          8 field gpt>signature
          4 field gpt>revision
          4 field gpt>header-size
          4 field gpt>header-crc32
          4 field gpt>reserved
          8 field gpt>current-lba
          8 field gpt>backup-lba
          8 field gpt>first-lba
          8 field gpt>last-lba
         10 field gpt>disk-guid
          8 field gpt>part-entry-lba
          4 field gpt>num-part-entry
          4 field gpt>part-entry-size
          4 field gpt>part-array-crc32
        1a4 field gpt>reserved
  
  CONSTANT /gpt-header
  
  STRUCT
         10 field gpt-part-entry>part-type-guid
         10 field gpt-part-entry>part-guid
          8 field gpt-part-entry>first-lba
          8 field gpt-part-entry>last-lba
          8 field gpt-part-entry>attribute
         48 field gpt-part-entry>part-name
  
  CONSTANT /gpt-part-entry
  
  \ Defined by IEEE 1275-1994 (3.8.1)
  
  