Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;Assumptions:
;		Area <1-DIAGNOSTICS> <2-diagnostics> filled with necessary files
;		...and access allowed
!
@ERROR
BEGIN::
@def dsk: DSK:,PS:<1-DIAGNOSTICS>,PS:<2-DIAGNOSTICS>,PS:<3-DIAGNOSTICS>
!
!	MESSAGE START OF TEST
!
INIT::
@NOERROR
@DEL CILOOP.CHK,
@EXP
@
@ERROR ?
!
!	here we start D20MON 
D20MON::
@
@ERROR ?
!
@RUN D20MON
@IF (NOERROR) @GOTO DFPTA	!FOR MAX
!	@IF (NOERROR) @GOTO DFCIA	!FOR VER
!
@INF FI
@INF MEM
!
	! ***** MESSAGE: ERROR ON 'RUN' COMMAND CILOOP
!
@
@GOTO ENDERR
!
DFPTA::
*DFPTA
@ERROR %
*Y
*402010
*4020
@IF (ERROR) @GOTO NOPORT
@NOERROR %
@ERROR ?
*ALL
*EXIT
@IF (NOERROR) @GOTO DFCIA
!
@NOERROR
@INF FI
@INF MEM
*EXIT
!
	! ***** MESSAGE: ERROR RUNNING DFPTA ON CI20
!
@
@GOTO ENDERR
!
DFCIA::
@ERROR ?
!
@RESET
@RUN D20MON
*DFCIA
*Y
*402010
*0
@IF (ERROR) @GOTO NOPORT
*ALL
*10
*EXIT
@IF (NOERROR) @GOTO CHKPC
!
@NOERROR
@INF FI
@INF MEM
*EXIT
!
	! ***** MESSAGE: ERROR RUNNING DFCIA
@
!
@GOTO ENDERR
!
CHKPC::
@ERROR ?

@CHKPNT CHKPC
@COPY CILOOP.LOG CILOOP.CHK
@
@TV CILOOP.CHK
=SError PC
@IF (NOERROR) @GOTO PCERR
@RESET
@GOTO END
!
NOPORT::
@NOERROR
*EXIT
	! ***** MESSAGE: ERRORS ASSIGNING PORT
!
@
!Note:
!	you must make port available for diags via OPR command
!	OPR>"SET PORT CI UNAVAILABLE"
!
@GOTO END
!
PCERR::
@
	! ***** MESSAGE: ERROR PC DETECTED IN CILOOP
!
@
@GOTO ENDERR
!
%TERR::
	! ***** MESSAGE: TIME-OUT ERROR CILOOP
!
@
@GOTO ENDERR
!
%ERR::
	! ***** MESSAGE: UNKNOWN ERROR IN CILOOP
!
@GOTO ENDERR
!
ENDERR::
@
@NOERROR
!
@VDIR <%-DIAGNOSTICS>*MON*.*
@VDIR <%-DIAGNOSTICS>*SUB*.*
@VDIR <%-DIAGNOSTICS>*DFPTA*.*
@VDIR <%-DIAGNOSTICS>*DFCIA*.*
@INF DIS <1-DIAGNOSTICS>
@INF DIS <2-DIAGNOSTICS>
@I LOG ALL
@SY ALL F-S
!
END::
%FIN::
!
!***** message: END OF CILOOP TEST
!
@DAY