
  PROCEDURE [INLINE] pmp$find_executing_task_tcb
    (VAR tcb_p: ^pmt$task_control_block);

?? PUSH (LISTEXT := ON) ??

    VAR
      xcb_p: ^ost$execution_control_block;

    pmp$find_executing_task_xcb (xcb_p);
    tcb_p := xcb_p^.task_control_block;
  PROCEND pmp$find_executing_task_tcb;

*copyc ost$execution_control_block
*copyc pmt$task_control_block
*copyc pmp$find_executing_task_xcb
?? POP ??
