Google
 

Trailing-Edge - PDP-10 Archives - k20v7d - uetp/lib/ciloop.ver
There is 1 other file named ciloop.ver 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 CILOOP
*send Start of CILOOP
*exit
!
INIT::
@NOERROR
@DEL CILOOP.CHK,
@EXP
@
@ERROR ?
!
!	here we start D20MON 
D20MON::
@REVIVE
@ERROR ?
!
@RUN D20MON
!	@IF (NOERROR) @GOTO DFPTA	!FOR MAX
@IF (NOERROR) @GOTO DFCIA	!FOR VER
!
@INF FI
@INF MEM
!
@SILENCE	! ***** MESSAGE: ERROR ON 'RUN' COMMAND CILOOP
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL CILOOP
*TEST CILOOP
SEND ERROR ON 'RUN D2OMON' COMMAND IN CILOOP
*EXIT
!
@REVIVE
@GOTO ENDERR
!
DFPTA::
*DFPTA
@ERROR %
*Y
*403010
*14020
@IF (ERROR) @GOTO NOPORT
@NOERROR %
@ERROR ?
*ALL
*EXIT
@IF (NOERROR) @GOTO DFCIA
!
@NOERROR
@INF FI
@INF MEM
@CONTINUE	! Exit Gracefully
*EXIT
!
@SILENCE	! ***** MESSAGE: ERROR RUNNING DFPTA ON CI20
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL DFPTA
*TEST CILOOP
*SEND ERROR RUNNING DFPTA ON CI20
*EXIT
!
@REVIVE
@GOTO ENDERR
!
DFCIA::
@ERROR ?
!
@RESET
@RUN D20MON
*DFCIA
*Y
*403010
*14000
@IF (ERROR) @GOTO NOPORT
*ALL
*10
*EXIT
@IF (NOERROR) @GOTO CHKPC
!
@NOERROR
@INF FI
@INF MEM
@CONTINUE	! Exit Gracefully
*EXIT
!
@SILENCE	! ***** MESSAGE: ERROR RUNNING DFCIA
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL DFCIA
*TEST CILOOP
*SEND ERROR RUNNING DFCIA
*EXIT
@REVIVE
!
@GOTO ENDERR
!
CHKPC::
@ERROR ?
@SILENCE
@CHKPNT CHKPC
@COPY CILOOP.LOG CILOOP.CHK
@REVIVE
@TV CILOOP.CHK
=SError PC
@IF (NOERROR) @GOTO PCERR
@RESET
@GOTO END
!
NOPORT::
@NOERROR
*EXIT
!
@SILENCE	! ***** MESSAGE: ERRORS ASSIGNING PORT
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL NOPORT
*TEST CILOOP
*SEND ERRORS ASSIGNING CI PORT
*EXIT
!
@REVIVE
!Note:
!	you must make port available for diags via OPR command
!	OPR>"SET PORT CI UNAVAILABLE"
!
@GOTO END
!
PCERR::
@REVIVE
@SILENCE	! ***** MESSAGE: ERROR PC DETECTED IN CILOOP
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL PCERR
*TEST CILOOP
*SEND ERROR PC DETECTED IN CILOOP
*EXIT
!
@REVIVE
@GOTO ENDERR
!
%TERR::
@SILENCE	! ***** MESSAGE: TIME-OUT ERROR CILOOP
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %TERR
*TEST CILOOP
*SEND TIME-OUT ERROR CILOOP
*EXIT
!
@REVIVE
@GOTO ENDERR
!
%ERR::
@SILENCE	! ***** MESSAGE: UNKNOWN ERROR IN CILOOP
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %ERR
*TEST CILOOP
*SEND UNKNOWN ERROR IN CILOOP
*EXIT
!
@GOTO ENDERR
!
ENDERR::
@REVIVE
@NOERROR
@CONTINUE	! Exit Gracefully
*EXIT
@^C^C
!
@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
@RUN  <uetp.lib>sender
*TYPE END
*BLABEL END
*TEST CILOOP
*SEND END OF CILOOP  TEST
*EXIT
!
@DAY