
  PROCEDURE [XREF] pmp$get_processor_id (
    VAR model_type: pmt$processor_model_type;
    VAR model_number: pmt$processor_model_number;
    VAR serial_number: pmt$processor_serial_number;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc pmt$processor_model_number
*copyc pmt$processor_model_type
*copyc pmt$processor_serial_number
?? POP ??
