?? PUSH (LISTEXT := ON) ??
*copyc PUP$DISPLAY_LINE
*copyc PUP$DISPLAY_INTEGER
*copyc PUP$WRITE_OS_STATUS

  VAR
    puv$trace_selected: [XREF] boolean;

?? POP ??

  PROCEDURE [INLINE] display (display_line: string ( * <= 256));

    VAR
      status: ost$status;

    IF NOT puv$trace_selected THEN
      RETURN;
    IFEND;
    pup$display_line (display_line, status);
  PROCEND display;

  PROCEDURE [INLINE] display_integer (descriptor: string ( * <= 256);
        number: integer);

    VAR
      local_status: ost$status;

    IF NOT puv$trace_selected THEN
      RETURN;
    IFEND;
    pup$display_integer (descriptor, number, local_status);
  PROCEND display_integer;

  PROCEDURE [INLINE] display_status (status: ost$status);


    VAR
      request_status: ost$status;

    IF NOT puv$trace_selected THEN
      RETURN;
    IFEND;
    IF status.normal THEN
      display (' STATUS NORMAL ');
      RETURN;
    IFEND;
    pup$write_os_status (status, request_status);
  PROCEND display_status;
?? PUSH (LISTEXT := ON) ??
*copyc OSP$FORMAT_MESSAGE
?? POP ??
