
  TYPE
    oct$module_description = record
      name: pmt$program_name,
      source: oct$file_type,
      file: ^SEQ ( * ),
      segment_relocation_info: ^oct$segment_relocation_info,

      case kind: oct$module_kind of
      = occ$cpu_object_module =
        cpu_object_module_header: ^oct$cpu_object_module_header,
      = occ$ppu_object_module =
        ppu_object_module_header: ^llt$identification,
      = occ$load_module =
        load_module_header: ^llt$load_module_header,
      = occ$program_description =
        program_description_header: ^llt$library_member_header,
      = occ$command_procedure =
        command_procedure_header: ^llt$library_member_header,
      = occ$command_description =
        command_description_header: ^llt$library_member_header,
      = occ$function_procedure =
        function_procedure_header: ^llt$library_member_header,
      = occ$function_description =
        function_description_header: ^llt$library_member_header,
      = occ$message_module =
        message_module_header: ^llt$library_member_header,
      = occ$panel_module =
        panel_module_header: ^llt$library_member_header,
      = occ$bound_module =
        bound_module_header: ^oct$bound_module_header,
      = occ$temporary_load_module =
        temporary_module_header: ^oct$temporary_module_header,
      = occ$applic_command_procedure =
        applic_command_procedure_header: ^llt$application_member_header,
      = occ$applic_program_description =
        applic_program_description_hdr: ^llt$application_member_header,
      = occ$applic_command_description =
        applic_command_description_hdr: ^llt$application_member_header,
      casend,
    recend;

*copyc llt$identification
*copyc llt$library_member_header
*copyc llt$load_module_header
*copyc oct$bound_module_header
*copyc oct$cpu_object_module_header
*copyc oct$file_type
*copyc oct$module_kind
*copyc oct$segment_relocation_info
*copyc oct$temporary_module_header
*copyc pmt$program_name

