
  PROCEDURE [INLINE] pmp$find_executing_task_xcb
    (VAR xcb: ^ost$execution_control_block);

?? PUSH (LISTEXT := ON) ??

{  The purpose of this request is to locate the execution_control_block
{  of the executing task.
{
{    PMP$FIND_EXECUTING_TASK_XCB (XCB)
{
{  XCB: (output) This parameter specifies the location of the excuting
{                task's execution_control_block.

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

  PROCEND pmp$find_executing_task_xcb;
*copyc ost$execution_control_block
*copyc ost$heap
*copyc osc$processor_defined_registers
?? POP ??
