
  TYPE
    bat$block_manager_descriptor = 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,
      get_block_buffer: ^bat$tape_block,
      put_block_buffer: ^bat$tape_block,
    recend;

*copyc amt$file_byte_address
*copyc amt$block_number
*copyc amt$max_block_length
*copyc bat$block_position
*copyc bat$tape_block
