
  CONST
    bac$block_header_unique_id = 1919(16),
    bac$block_header_padding = ' BLOCK HDR';

  TYPE
    bat$block_header = record
      fill: 0 .. 0ffffffff(16),
      block_length: amt$max_block_length,
      previous_block_header_fba: amt$file_byte_address,
      unique_id: 0 .. 0ffff(16),
      header_type: amt$block_header_type,
      block_number: amt$block_number,
      block_status: amt$block_status,
      padding: string (10),
    recend;

*copyc amt$block_header_type
*copyc amt$block_number
*copyc amt$block_status
*copyc amt$file_byte_address
*copyc amt$max_block_length
