
  FUNCTION [INLINE] pmf$executing_task_xcb: ^ost$execution_control_block;

?? PUSH (LISTEXT := ON) ??

    pmf$executing_task_xcb := #ADDRESS (1,
          osc$segnum_job_fixed_heap, #READ_REGISTER (osc$pr_base_constant));

  FUNCEND pmf$executing_task_xcb;

*copyc ost$execution_control_block
*copyc ost$heap
*copyc osc$processor_defined_registers
?? POP ??
