
  FUNCTION [INLINE, UNSAFE] pmf$task_xcb
    (    task_id: pmt$task_id): ^ost$execution_control_block;

?? PUSH (LISTEXT := ON) ??

    VAR
      xcb: ^ost$execution_control_block;

    osp$set_mainframe_sig_lock (job_xcb_list.lock);
    xcb := job_xcb_list.head;
    WHILE (xcb <> NIL) AND (xcb^.task_id <> task_id) DO
      xcb := xcb^.link;
    WHILEND;
    osp$clear_mainframe_sig_lock (job_xcb_list.lock);

    pmf$task_xcb := xcb;

  FUNCEND pmf$task_xcb;

*copyc job_xcb_list
*copyc ost$execution_control_block
*copyc osp$clear_mainframe_sig_lock
*copyc osp$set_mainframe_sig_lock
?? POP ??

