
  PROCEDURE [XREF] pmp$execute_task (target_ring: ost$valid_ring;
        program_description: pmt$program_description;
        apd_description: pmt$loader_description;
        parameters: pmt$program_parameters;
        command_file: amt$local_file_name;
        wait: ost$wait;
        cl_task: boolean;
    VAR task_id: pmt$task_id;
    VAR task_status: pmt$task_status;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc AMT$LOCAL_FILE_NAME
*copyc OSD$VIRTUAL_ADDRESS
*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
*copyc PME$TARGET_RING_ERROR
?? POP ??
