Google
 

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 35,1414/oldci.ctl
There is 1 other file named oldci.ctl in the archive. Click here to see a list.
.ERROR
BEGIN::
!	MESSAGE START OF TEST
;.R OPR
;*CONFIG ADD CI-0
;*EXIT
PA [6,10]
.NOERROR
DEL CI20.CHK
.ERROR ?
!
!	here we start D20MON 
DFCIA::
.RUN DIAMON
*DFCIA
*Y
*403010
*14000
.IF (ERROR) GOTO NOPORT
*ALL
*1
*EXIT
.IF (NOERROR) GOTO CHKPC
!
CHKPC::
.COPY CI20.CHK = CI20.LOG
.ED CI20.CHK
=SError PC
.IF (NOERROR) GOTO PCERR
.GOTO END
!
NOPORT::
!	you must make port available for diags via OPR command
!	OPR>"SET PORT CI UNAVAILABLE"
!
!
.GOTO ENDERR
PCERR::
DFCIA FAILED!!!!! CHECK CI20.LOG
!
!
!
.GOTO ENDERR
!
ENDERR::
!ERROR IN CI20....CHECK LOS AND RESUBMIT!!!!
!
END::
.^C^C
!
PA [35,1414]
;R OPR
;*CONFIG REMOVE CI-0
;*EXIT
DIR [*,*]*MON*.*
DIR [*,*]*SUB*.*
DIR [*.*]*DFPTA*.*
DIR [*,*]*DFCIA*.*
DEL CI20.CHK.*
SY ALL F-S
!
%FIN::
!
!***** message: END OF CI20 TEST
!
.DAY