
  PROCEDURE [XREF] pmp$execute_with_apd (program_description:
    pmt$program_description;
        mpe_description: pmt$loader_description;
        parameters: pmt$program_parameters;
        wait: ost$wait;
    VAR task_id: pmt$task_id;
    VAR task_status: pmt$task_status;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc PMT$PROGRAM_DESCRIPTION
*copyc PMT$PROGRAM_PARAMETERS
*copyc OST$WAIT
*copyc PMT$TASK_ID
*copyc PMT$LOADER_SEQ_DESCRIPTOR
*copyc PMT$TASK_STATUS
*copyc OST$STATUS
*copyc PME$EXECUTION_EXCEPTIONS
?? POP ??
