

   PROCEDURE [XREF] pmp$set_relative_priority
     (    priority: 0 .. 255;
      VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc pme$program_services_exceptions
?? POP ??
