Google
 

Trailing-Edge - PDP-10 Archives - k20v7d - uetp/lib/dfdxg.ver
There is 1 other file named dfdxg.ver in the archive. Click here to see a list.
;Assumptions:
;	DIAMON ,DFDXG exits in <1-DIAGNOSTICS> OR <2-DIAGNOSTICS>
!
begin1::
@ENA
@DEF DSK: <UETP.RUN>, PS:<UETP.LIB>, PS:<1-DIAGNOSTICS>, PS:<2-DIAGNOSTICS>
!
begin2::
@RUN <uetp.lib>sender
*TYPE START
*BLABEL BEGIN
*TEST DFDXG
*SEND Start of DFDXG test for RP20
*EXIT
@REVIVE
!
@ERROR N
@RUN D20MON
*DFDXG
*N
*0
*Y
*MAN
!*EX5
!*EX6
*EX7
*TOTALS
^C
@IF (NOERROR) @GOTO END::
!@SILENCE		!***** message:  ERROR in DFDXG TEST RP20
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL ERR::
*TEST DFDXG
*SEND ERROR in DFDXG test for RP20...CHECK DFDXG.LOG
*EXIT
@REVIVE
@GOTO ENDERR::
!
!
%ERR::
!
!@SILENCE		!***** message: unknown ERROR in DFDXG TEST RP20
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL ERR::
*TEST DFDXG
*SEND  unknown ERROR in DFDXG TEST RP20
*EXIT
@REVIVE
@GOTO ENDERR::
!
ENDERR::
@NOERROR
@VDIR <1-DIAGNOSTICS>
@VDIR <2-DIAGNOSTICS>DFDXG.*
@I LOG ALL
@SY ALL F-S
@INF FI
@INF MEM
@goto end::
!
@CHKPNT ADSF::
!
END::
%FIN:
!@SILENCE		!***** message: End of DFDXG TEST DFDXG
@RUN <uetp.lib>sender
*TYPE END
*BLABEL END::
*TEST DFDXG
*SEND End of DFDXG test for RP20
*EXIT
@REVIVE
@reset
!