
  CONST
    bac$max_tape_buffer_group_size = ioc$max_tape_blocks_to_process + 1;

*copyc ioc$max_num_tape_units
