
  TYPE
    lot$lm_code = (loc$lm_module_detail_1, loc$lm_module_detail_2,
          loc$lm_section_detail, loc$lm_entry_detail, loc$lm_xref_detail,
          loc$lm_segment_detail, loc$lm_transfer_detail, loc$lm_asis_text,
          loc$lm_accumulate_names, loc$lm_flush_accumulated_names,
          loc$lm_issue_diagnostic, loc$lm_diagnostic_summary,
          loc$lm_page_header, loc$lm_segment_header_init,
          loc$lm_xref_header_init),

    lot$load_map_data = record
      case code: lot$lm_code of
      = loc$lm_module_detail_1 =
        module_name: pmt$program_name,
        file_type: string (7),
        file_name: amt$local_file_name,
        loaded_ring,
        call_bracket,
        module_global_key_lock,
        module_local_key_lock: 0 .. 3f(16),
        execute_privilege: ost$execute_privilege,
      = loc$lm_module_detail_2 =
        date: string (10),
        generator,
        commentary: string (40),
      = loc$lm_section_detail =
        section_kind: llt$section_kind,
        section_access_attributes: llt$section_access_attributes,
        section_address: lot$address,
        section_length: ost$segment_length,
        section_name: pmt$program_name,
      = loc$lm_entry_detail, loc$lm_xref_detail =
        entry_name: pmt$program_name,
        loaded_ring_for_xref: ost$ring,
        entry_address: lot$address,
        entry_attribute: string (5),
        deferred: string (8),
        defining_module: pmt$program_name,
      = loc$lm_segment_detail =
        segment_name: amt$local_file_name,
        segment: ost$segment,
        segment_length: ost$segment_length,
        r1,
        r2,
        segment_global_key_lock,
        segment_local_key_lock: 0 .. 3f(16),
        segment_access_attributes: ost$segment_access_control,
        stack_segment: boolean,
      = loc$lm_transfer_detail =
        transfer_address: lot$address,
        transfer_symbol: pmt$program_name,
      = loc$lm_asis_text =
        text: string (132),
      = loc$lm_accumulate_names =
        name: pmt$program_name,
      = loc$lm_issue_diagnostic =
        diagnostic_status: ost$status,
      = loc$lm_diagnostic_summary =
        diagnostic_count: array [ost$status_severity] of 0 .. 0ffff(16),
      = loc$lm_page_header =
        ,
      = loc$lm_segment_header_init =
        ,
      = loc$lm_xref_header_init =
        ,
      casend,
    recend;

*copyc ost$status_severity
