
  TYPE
    bat$current_block_descriptor = record
      byte_address_offset: amt$file_byte_address,
      length: amt$max_block_length,
      transfer_count: amt$transfer_count,
      reserved_block_buffer: ^bat$tape_block,
    recend;

*copyc amt$file_byte_address
*copyc amt$max_block_length
*copyc amt$transfer_count
*copyc bat$tape_block
