
{ Note - The constant bac$max_buffer_group_size is used by bap$tape_bm_open
{ to ensure that every buffer group descriptor is guaranteed to not cross a
{ page boundary.  The size of bat$tape_buffer_grp_descriptor is currently
{ 1768 bytes long.  It must NEVER be increased to larger than 2048 bytes long.

  CONST
    bac$max_buffer_group_size = 2048;

  TYPE
    bat$tape_buffer_grp_descriptor = record
      group_state: bat$tape_buffer_group_state,
      requested_read_length: amt$max_block_length,
      read_description: iot$read_tape_description,
      write_description: iot$write_tape_description,
      blks_requested_to_be_transfered: iot$tape_block_count,
      io_id: iot$io_id,
      io_status: iot$tape_io_status, { here for debugging }
      last_buffer_with_data: bat$tape_block_buffer_index,
      block_buffer: array [bat$tape_block_buffer_index] of
            bat$tape_buffer_information,
    recend;

*copyc bat$tape_buffer_group_state
*copyc bat$tape_block_buffer_index
*copyc bat$tape_buffer_information
*copyc iot$io_id
*copyc iot$tape_io_status
*copyc iot$read_tape_description
*copyc iot$write_tape_description
