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