
  PROCEDURE [XREF] pmp$original_caller (user_program_cbp:
    ^ost$external_code_base_pointer;
    program_parameters: ^pmt$program_parameters);
?? PUSH (LISTEXT := ON) ??
*copyc OSD$CODE_BASE_POINTER
*copyc PMT$PROGRAM_PARAMETERS
?? POP ??
