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)."
")
IF  FAULT>0 THEN  STOP 
END 
ENDOFFILE