  TYPE
    fst$tape_label_block_descriptor = record
      case label_block_type: fst$tape_label_block_type of
      = fsc$erroneous_tape_label_block =
        erroneous_label_actual_length: fst$tape_block_length,
        erroneous_label_transfer_length: fst$tape_label_length,
        erroneous_label_failure_modes: amt$tape_failure_modes,
      = fsc$non_tape_label_block =
        non_label_actual_length: fst$tape_block_length,
        non_label_transfer_length: fst$tape_label_length,
      = fsc$normal_tape_label_block =
        normal_label_actual_length: fst$tape_block_length,
        normal_label_character_set: amt$internal_code,
        normal_label_kind: fst$ansi_label_kind,
        normal_label_transfer_length: fst$tape_label_length,
      = fsc$null_tape_label_block =
        null_label_actual_length: fst$tape_block_length,
        null_label_character_set: amt$internal_code,
        null_label_kind: fst$ansi_label_kind,
        null_label_transfer_length: fst$tape_label_length,
      = fsc$tapemark_tape_label_block =
        ,
      casend,
    recend;

*copyc amc$maximum_block
*copyc amt$internal_code
*copyc amt$tape_failure_modes
*copyc fst$ansi_label_identifier
*copyc fst$ansi_label_kind
*copyc fst$ansi_label_number
*copyc fst$tape_block_length
*copyc fst$tape_label_block_type
*copyc fst$tape_label_length
