
  PROCEDURE [XREF] pmp$set_spy_identifier (low_identifier: pmt$spy_identifier;
        high_identifier: pmt$spy_identifier;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc PMT$SPY_IDENTIFIER
*copyc OST$STATUS
*copyc PME$PROGRAM_SERVICES_EXCEPTIONS
?? POP ??
