
  PROCEDURE [INLINE] pmp$convert_entry_point_to_cmnd (entry_point_dictionary_item:
    llt$entry_point_dictionary_item;
        command_ordinal: clt$named_entry_ordinal;
    VAR command_dictionary_item: llt$command_dictionary_item);

?? PUSH (LISTEXT := ON) ??

    command_dictionary_item.name := entry_point_dictionary_item.name;
    command_dictionary_item.class := clc$nominal_entry;
    command_dictionary_item.availability := clc$advertised_entry;
    command_dictionary_item.ordinal := command_ordinal;
    command_dictionary_item.kind := entry_point_dictionary_item.kind;
    command_dictionary_item.log_option := clc$automatically_log;
    command_dictionary_item.module_kind := entry_point_dictionary_item.module_kind;
    CASE command_dictionary_item.module_kind OF
    = llc$command_procedure =
      command_dictionary_item.command_header := entry_point_dictionary_item.command_header;
    = llc$program_description =
      command_dictionary_item.program_header := entry_point_dictionary_item.program_header;
    = llc$load_module =
      command_dictionary_item.module_header := entry_point_dictionary_item.module_header;
    CASEND;

  PROCEND pmp$convert_entry_point_to_cmnd;

*copyc clt$named_entry_ordinal
*copyc llt$command_dictionary
*copyc llt$entry_point_dictionary
?? POP ??
