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::
!@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