
  TYPE
    oct$symbol_table_descriptor = record
      name: ^fst$file_reference,
      id: amt$file_identifier,
      segment: amt$segment_pointer,
      header: ^oct$symbol_table_header,
      symbol_table: ^oct$list_of_entry_points,
      link: ^oct$symbol_table_descriptor,
    recend;

*copyc amt$file_identifier
*copyc amt$segment_pointer
*copyc fst$file_reference
*copyc oct$list_of_entry_points
*copyc oct$symbol_table_header
