anchor.diff:  : 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
  +   block-array-size alloc-mem
  +   dup block-array-size erase
      to block
      debug-disk-label? IF
         ." init-block: block-size=" block-size .d ." block=0x" block u. cr
  
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: \ 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
  
  