*copyc CYC$ERROR_CODES_CYBIL_RANGE
?? NEWTITLE := '  CYDRTEC : CYBIL RUNTIME EXCEPTIONS : ''CY'' 5000 - 9999' ??
?? EJECT ??

  CONST
    cyc$run_time_base_exception = cyc$min_ecc + 5000;

  CONST
    cye$nil_called = cyc$run_time_base_exception + 0,
    {E NIL pointer to procedure called at P = +P.}

    cye$cybil_abort = cyc$run_time_base_exception + 1;
    {E CYBIL run time error, +P, detected at line +P of +P.}

?? OLDTITLE ??
