
  PROCEDURE [XREF] pmp$create_task_environment (program_description:
    ^pmt$program_description;
        mpe_description: ^pmt$loader_description;
        program_parameters: ^pmt$program_parameters;
        parent_task_status_variable: ^pmt$task_status;
        target_ring: ost$ring;
        critical_frame: ^ost$stack_frame_save_area;
        starting_procedure: pmt$user_program;
        cl_task: boolean;
    VAR task_id: pmt$task_id;
    VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??
*copyc pmt$user_program
*copyc PMT$PROGRAM_DESCRIPTION
*copyc PMT$LOADER_SEQ_DESCRIPTOR
*copyc PMT$PROGRAM_PARAMETERS
*copyc PMT$TASK_STATUS
*copyc OSD$VIRTUAL_ADDRESS
*copyc PMT$TASK_ID
*copyc OST$STACK_FRAME_SAVE_AREA
*copyc OST$STATUS
?? POP ??
