// Main error handling stuff. // Copyright Xerox Corporation 1979 // Last modified August 28, 1979 5:35 PM by Boggs external SysErrT //--------------------------------------------------------------------------- let SysErrT(p1, errNo, p2, p3, p4, p5; numargs na) be //--------------------------------------------------------------------------- // This is the 'true' SysErr. // The static SysErr is defined in Level012.asm. // BootInit copies SysErrT into SysErr. [ let t = p1; p1 = errNo; errNo = t (table [ #77403; #1401 ])("Sys.Errors", lv p1) ]