AXR$ . $(2) . LIT . NWALK$* . NIOER$* . NERRZZ* . NERR$* . NERR1$* . NERR2$* . NERR3$* . NERR4$* . NERR5$* . NERR6$* . NERR8$* . J $+1 SLJ N0RGSV LMJ X11,CONTTT +006700,$-3 L A0,(0107,MSG) ER PRINT$ L,U A0,1 S A0,CRFL J RP6 MSG '** FATAL ERROR ** INTERNAL LIBRARY ABORT' NCDOF$* . NER10$* +0 NERR9$* J $-$ J *$-1 . . DALEC: ENTERED BY LMJ X11,DALEC FOR PH2 DIAGNOSTICS. . IF A0, ON ENTRY, TESTS POSITIVE, SYM AND LOOPT ARE DUMPED . OTHERWISE, ONLY DESIGNATED VARIABLES IN N12TB APPEAR. . DALEC* SLJ N0RGSV . SAVE REST OF REGISTERS. LMJ X11,N2DMP . CALL FORTRAN DUMP ROUTINE. (0). FORCE LOOKING AT X11. + N0RGSA + N0RGSA+A0 +((0)) FLAG TO SHOW DIAGNOSTIC USE + 0. (W.B.) SLJ N0RGRS . RESTORE ALL REGISTERS. J 0,X11. N2EQV* J $-$ AN,U A1,EQVT-1 S,H2 A1,EQVTB4 SLJ N0RGSV LMJ X11,SNAP +((EQVT)) +EQVTB4 +EQVTB5 +0 SLJ N0RGRS J *N2EQV EQVTB5 'EQVT AFTER CONSTRUCTION' -1 N2AREF* J $-$ AN,U A1,AREFA-1 S,H2 A1,AREFB4 SLJ N0RGSV LMJ X11,SNAP +((AREFA)) +AREFB4 +AREFB5 +0 SLJ N0RGRS J *N2AREF AREFB5 'AREFA AFTER CONSTRUCTION' -1 N2QZID* J $-$ SLJ N0RGSV LMJ X11,SNAP +((LREF1)) +QZID +QZID1 +0 SLJ N0RGRS QZID4 J *N2QZID N2QZ2* J $-4 SLJ N0RGSV LMJ X11,SNAP +((LREF1)) +QZID +QZID2 +0 SLJ N0RGRS J *N2QZ2 QZID1 'LREF1 BEFORE SORT' -1 QZID2 'LREF1 AFTER SORT' -1 AREFB4 +0 EQVTB4 +0 END