anchor.diff:  
   : close ( -- )
      debug-disk-label? IF ." Closing disk-label: block=0x" block u. ." block-size=" block-size .d cr THEN
  -   block d# 4096 free-mem
  +   block block-array-size free-mem
   ;
   
   
  
positive.code: 
  : try-dos-partition ( -- okay? )
     \ Read partition table and check magic.
     no-mbr? IF cr ." No DOS disk-label found." cr false EXIT THEN
  
     count-dos-logical-partitions TO dos-logical-partitions
  
  
negative.code: \ This word returns true if the currently loaded block has _NO_ GPT partition id
  : no-gpt? ( -- true|false )
     0 read-sector
     1 partition>part-entry part-entry>id c@ ee <> IF true EXIT THEN
     block mbr>magic w@-le aa55 <>
  ;
  
  : pc-extended-partition? ( part-entry-addr -- true|false )
  