
{ This record contains information that is used during record_access on a
{ blocked file.

  TYPE
    bat$block_info = record
      block_number: amt$block_number,
      block_position: bat$block_position,
      current_block_byte_address: amt$file_byte_address,
      current_block_length: 0 .. amc$maximum_block - 1,
      previous_block_header_fba: amt$file_byte_address,
      residual_block_length: 0 .. amc$maximum_block - 1,
    recend;

*copyc amc$maximum_block
*copyc amt$block_number
*copyc amt$file_byte_address
*copyc bat$block_position
