Trailing-Edge
-
PDP-10 Archives
-
BB-FI82B-DD_1989
-
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