Google
 

Trailing-Edge - PDP-10 Archives - k20v7c - mfg/upd/niloop.max
There is 1 other file named niloop.max in the archive. Click here to see a list.
;Assumptions:
;	Area <1-DIAGNOSTICS> <2-diagnostics> filled with necessary files
;	...and access allowed
!
@ERROR
BEGIN::
@take PS:<UETP.LIB>sys.cmd
@def dsk: DSK:,PS:<1-DIAGNOSTICS>,PS:<2-DIAGNOSTICS>,PS:<3-DIAGNOSTICS>
!
!	MESSAGE START OF TEST
@run <uetp.lib>sender
*type start
*blabel BEGIN
*test NILOOP
*send Start of NILOOP
*exit
!
INIT::
@DEL NILOOP.CHK,
@EXP
@
!
D20MON::
@REVIVE
@ERROR ?
!
@RUN D20MON
!	RUN DFPTA IN MAX TEST ONLY
@IF (NOERROR) @GOTO DFPTA	! FOR MAX TEST
!@IF (NOERROR) @GOTO DFNIE	!	FOR VER TEST
!
@INF FI
@INF MEM
!
@SILENCE	! ***** MESSAGE: ERROR ON 'RUN' COMMAND NILOOP
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL NILOOP
*TEST NILOOP
*SEND ERROR ON 'RUN D2OMON' COMMAND IN NILOOP
*EXIT
!
@REVIVE
@GOTO ENDERR
!
DFPTA::
@ERROR ?
!
*DFPTA
@ERROR %
*Y
*402010
*14040
@IF (ERROR) @GOTO NOPORT
@NOERROR %
@ERROR ?
!
*ALL
*EXIT
@IF (NOERROR) @GOTO DFNIE
!
@NOERROR
@INF FI
@INF MEM
@CONTINUE	! Exit Gracefully.
*EXIT
!
@SILENCE	! ***** MESSAGE: ERROR RUNNING DFPTA
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL DFPTA
*TEST NILOOP
*SEND ERROR RUNNING DFPTA
*EXIT
!
@REVIVE
@GOTO ENDERR
!
DFNIE::
@ERROR ?
!
@RESET
@RUN D20MON
*DFNIE
*Y
*403010
*30000
@IF (ERROR) @GOTO NOPORT
*ALL
*10
*EXIT
@IF (NOERROR) @GOTO DFNIA
!
@NOERROR
@INF FI
@INF MEM
@CONTINUE	! Exit Gracefully.
*EXIT
!
@SILENCE	! ***** MESSAGE: ERROR RUNNING DFNIE
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL DFNIE
*TEST NILOOP
*SEND ERROR RUNNING DFNIE
*EXIT
!
@REVIVE
@GOTO ENDERR
!
DFNIA::
@ERROR ?
!
@RESET
@RUN D20MON
*DFNIA
*Y
*403010
*14000
*ALL
*5
*EXIT
@IF (NOERROR) @GOTO CHKPC
!
@NOERROR
@INF FI
@INF MEM
@CONTINUE	! Exit Gracefully.
*EXIT
!
@SILENCE	! ***** MESSAGE: ERROR RUNNING DFNIA
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL DFNIA
*TEST NILOOP
*SEND ERROR RUNNING DFNIA
*EXIT
!
@REVIVE
@GOTO ENDERR
!
CHKPC::
@ERROR ?
@SILENCE
@CHKPNT PTACHK
@COPY NILOOP.LOG NILOOP.CHK
@REVIVE
@TV NILOOP.CHK
=S[no ports selected] 
@IF (NOERROR) @GOTO NOPORT
=0J
=SError PC
@IF (NOERROR) @GOTO PCERR
!
! Here if all OK.
@RESET
@GOTO END
!
NOPORT::
@NOERROR
@INF FIL
@INF MEM
@CONTINUE	! Exit Gracefully.
*EXIT
!
@SILENCE	! ***** MESSAGE: ERRORS ASSIGNING PORT
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL NOPORT
*TEST NILOOP
*SEND ERRORS ASSIGNING NI PORT
*EXIT
!
@REVIVE
!
!Note:
!	you must make port available for diags via OPR command
!	OPR>"SET PORT NI UNAVAILABLE"
!
@GOTO ENDERR
!
PCERR::
@REVIVE
@SILENCE	! ***** MESSAGE: ERROR PC DETECTED IN NILOOP
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL PCERR
*TEST NILOOP
*SEND ERROR PC DETECTED IN NILOOP
*EXIT
!
@REVIVE
@GOTO ENDERR
!
%TERR::
@SILENCE	! ***** MESSAGE: TIME-OUT ERROR NILOOP
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %TERR
*TEST NILOOP
*SEND TIME-OUT ERROR NILOOP
*EXIT
!
@REVIVE
@GOTO ENDERR
!
%ERR::
@SILENCE	! ***** MESSAGE: UNKNOWN ERROR IN NILOOP
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %ERR
*TEST NILOOP
*SEND UNKNOWN ERROR IN NILOOP
*EXIT
!
@GOTO ENDERR
!
ENDERR::
@REVIVE
@VDIR <%-DIAGNOSTICS>*MON*.*
@VDIR <%-DIAGNOSTICS>*SUB*.*
@VDIR <%-DIAGNOSTICS>*DFPTA*.*
@VDIR <%-DIAGNOSTICS>*DFNIE*.*
@VDIR <%-DIAGNOSTICS>*DFNIA*.*
@INF DIS <1-DIAGNOSTICS>
@INF DIS <2-DIAGNOSTICS>
@I LOG ALL
@SY ALL F-S
!
END::
%FIN::
!***** message: END OF NILOOP TEST
@RUN  <uetp.lib>sender
*TYPE END
*BLABEL END
*TEST NILOOP
*SEND END OF NILOOP  TEST
*EXIT
!
@DAY