 PROCEDURE [XREF] pmp$select_processor_r1 (id: ost$logical_processor_id;
    VAR status: ost$status);

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