Google
 

Trailing-Edge - PDP-10 Archives - BB-T573C-DD_1986 - 35,1414/ni20.bak
There is 1 other file named ni20.bak in the archive. Click here to see a list.
.ERROR ?
BEGIN::
!	MESSAGE START OF TEST
!
PA [6,10]
!
!	here we start DIAMON 
DFNIA::
.RUN DIAMON
*DFNIA
*Y
*403010
*
.IF (ERROR) GOTO NOPORT
*ALL
*10
*EXIT
.IF (ERROR) GOTO NIAERR
DFNIE::
*DFNIE
*Y
*403010
*
*ALL
*10
.IF (ERROR) GOTO NIEERR
*EXIT
^C^C^C^C
!
.GOTO END
!
NOPORT::
!	you must make port available for diags via OPR command
!	OPR>"CONFIG REMOVE NI-0"
!
!
.GOTO ENDERR
PCERR::
!DFNIA FAILED!!!!! CHECK CI20.LOG
!
!
!
.GOTO ENDERR
!
ENDERR::
!ERROR IN NI20....CHECK LOGS AND RESUBMIT!!!!
!
NIAERR::
!ERROR IN DFINA PLEASE CHECK LOGS....
!
!
NIEERR::
!ERROR IN DFNIE PLEASE CHECK LOGS....
!
!
END::
.^C^C
!
PA [35,1414]
!
DIR [*,*]MON*.*
DIR [*,*]SUB*.*
DIR [*.*]DFPTA*.*
DIR [*,*]DFNIA*.*
DIR [*,*]DFNIE.*
!
%FIN::
!
!***** message: END OF CILOOP TEST
!
.DAY