
{DECK: DMT$SYSTEM_TAPE_TABLE

  TYPE
    dmt$system_tape_table = array [rmt$tape_unit_types] of
          dmt$system_tape_table_entry;

  TYPE
    dmt$system_tape_table_entry = record
      defined_tape: iot$logical_unit,
      number_on: iot$logical_unit,
      lower_density_reserved: iot$logical_unit,
      higher_density_reserved: iot$logical_unit,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc rmt$tape_unit_types
*copyc iot$logical_unit
?? POP ??
