%EXTERNALSTRINGFNSPEC STRHEX(%INTEGER I) %SYSTEMROUTINE NDIAG(%INTEGER PCOUNT, LNB, FAULT, INF) !*********************************************************************** !*_______'MASTER DIAGNOSTIC ROUTINE'. DISCOVERS THE LANGUAGE OF THE * !*_______FAILED ROUTINE FROM WORD 4 OF THE GLA AND CALLS APPROPRIATE * !*_______DIAGNOSTIC ROUTINE. THIS IS REPEATED TILL ALL DIAGNOSTICS * !*_______GIVEN. * !*_______PCOUNT = PCOUNTER AT FAILURE * !*_______LNB = LOCAL NAME BASE AT FAILURE * !*_______FAULT = FAILURE (0=%MONITOR REQUESTED) * !*_______INF =ANY FURTHER INFORMATION * !*********************************************************************** PRINTSTRING(" MINIMUM NDIAGS ENTERED FAULT NO ="); WRITE(FAULT,2) PRINTSTRING(" PC=X".STRHEX(PCOUNT)." LNB=X".STRHEX(LNB)." ") %END %ENDOFFILE