Trailing-Edge
-
PDP-10 Archives
-
k20v7d
-
uetp/lib/cixfer.ver
There is 1 other file named cixfer.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 CIXER
*send Start of CIXER
*exit
!
!
@ENA
@RUN <2-DIAGNOSTICS>DFCIB
@IF (NOERROR) @GOTO TESTS
@INF FI
@INF MEM
!
@SILENCE ! ***** MESSAGE: ERROR ON 'RUN' COMMAND IN CIXER
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL CIXER
*TEST CIXER
*SEND ERROR ON 'RUN DFCIB' COMMAND IN CIXER
*EXIT
@REVIVE
@GOTO ENDERR
!
TESTS::
*SELECT NODE ALL
*SET PATH A-PATH
*RUN /PASS:3 ALL
*SET PATH B-PATH
*RUN /PASS:3 ALL
*SET PATH PATH-AUTO-SELECT
*RUN /PASS:3 ALL
*COUNTERS
*PAUSE 5
*PAUSE 5
*QUIT
@IF (NOERROR) @GOTO END
!
@INF FI
@INF MEM
@SILENCE ! ***** MESSAGE: ERROR RUNNING DFCIB
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL DFCIB
*TEST CIXER
*SEND ERROR RUNNING DFCIB
*EXIT
@REVIVE
!
@GOTO ENDERR
!
%TERR::
@SILENCE ! ***** MESSAGE: TIME-OUT ERROR CIXER
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %TERR
*TEST CIXER
*SEND TIME-OUT ERROR CIXER
*EXIT
@REVIVE
@GOTO ENDERR
!
%ERR::
@SILENCE ! ***** MESSAGE: UNKNOWN ERROR IN CIXER
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %ERR
*TEST CIXER
*SEND UNKNOWN ERROR IN CIXER
*EXIT
@GOTO ENDERR
!
ENDERR::
@REVIVE
VDIR <*>DFCIB.*
@INF DIS <1-DIAGNOSTICS>
@INF DIS <2-DIAGNOSTICS>
@I LOG ALL
@SY ALL F-S
!
END::
%FIN::
!***** message: END OF CIXER TEST
@RUN <uetp.lib>sender
*TYPE END
*BLABEL END
*TEST CIXER
*SEND END OF CIXER TEST
*EXIT