
?? PUSH (LISTEXT := ON) ??
*copyc PME$EXECUTION_EXCEPTIONS
?? POP ??

  {PMDTERR : Internal Execute Exceptions : 'PM' 4901}

  CONST
    pme$target_ring_error = pmc$program_execution + 4901;
    {E Target ring is less than requestor's ring.}
