  PROCEDURE core_log_display
    (    message: string ( * ));

    VAR
      ignore_status: ost$status,
      log_time: ost$time;

    lgp$add_entry_to_system_log (pmc$msg_origin_system, message, log_time,
          ignore_status);

  PROCEND core_log_display;

  PROCEDURE core_log_display_integer
    (    message: string ( * <= 127);
         number: integer);

    VAR
      descriptor_length: integer,
      number_length: integer,
      total_length: integer,
      working_string: string (150);

    working_string := message;
    descriptor_length := STRLENGTH (message);
    STRINGREP (working_string ((descriptor_length + 2), *), number_length, number);
    total_length := number_length + descriptor_length + 2;
    core_log_display (working_string (1, total_length));

  PROCEND core_log_display_integer;
?? PUSH (LISTEXT := ON) ??
*copyc lgp$add_entry_to_system_log
?? POP ??
