anchor.diff:  \ If we ever want to put a large kernel with initramfs from a PREP partition
   \ we might need to increase this value. The default value is 65536 blocks (32MB)
   d# 65536 value max-prep-partition-blocks
  +d# 4096 CONSTANT block-array-size
   
   s" disk-label" device-name
   
  
positive.code: : init-block ( -- )
     s" block-size" ['] $call-parent CATCH IF ABORT" parent has no block-size." THEN
     to block-size
     d# 4096 alloc-mem
     dup d# 4096 erase
     to block
     debug-disk-label? IF
        ." init-block: block-size=" block-size .d ." block=0x" block u. cr
  
negative.code: 
  : try-dos-partition ( -- okay? )
     \ Read partition table and check magic.
     no-mbr? IF
         debug-disk-label? IF cr ." No DOS disk-label found." cr THEN
         false EXIT
     THEN
  
     count-dos-logical-partitions TO dos-logical-partitions
  
  