

   PROCEDURE [XREF]  tmp$assign_ptl
     (    xcb_p: ^ost$execution_control_block;
          ijl_ordinal: jmt$ijl_ordinal;
      VAR taskid: ost$global_task_id;
      VAR status: syt$monitor_status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$execution_control_block
*copyc jmt$ijl_ordinal
*copyc ost$global_task_id
*copyc ost$status
?? POP ??
