Google
 

Trailing-Edge - PDP-10 Archives - KS10_APT_INSTALL_TAPE - uetp/lib/test72.ver
There is 1 other file named test72.ver in the archive. Click here to see a list.
!
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
!COPYRIGHT (C) 1978,1979 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS
.
!
!	UETP TEST CONTROL FILE 
!
INIT::
!+---------------------------------------------------------------------+
!|                                                                     |
!|        test: TEST72        step: INIT                               |
!|                                                                     |
!+---------------------------------------------------------------------+
!
!	This UETP control file supports UETP tests DUPA and DUPAB. This 
!test (TEST 72) will run without halting and must be aborted. The tests DUPA 
! or DUPAB report the success or failure of the DECnet cable loopback test.
!
@ENABLE
@opr
*start batch-stream 5
*exit
@DEFINE UTP: PS:<UETP.LIB>
@RUN UTP:SENDER
*test TEST72
*blabel INIT
*type START
*send TEST72 started
*exit
@goto STP1
!
%ERR::
!
@RUN UTP:SENDER
*test TEST72
*blabel INIT
*type error
*send TEST72 failed in step INIT
*exit
@goto FIN
!
STP1::
!
!+---------------------------------------------------------------------+
!|                                                                     |
!|        test: TEST72        step: 1                                  |
!|                                                                     |
!+---------------------------------------------------------------------+
!
!
!Run the DYNETS program to emulate TEST72 on a TOPS-20 node
!
@RUN UTP:DYNETS
*DECLARE SRV:.TEST72 /BYTE:7 /RECL:80
*DECLARE SRV:.TEST72 /BYTE:7 /RECL:80
*WAIT	!Inhibit DYNETS from further prompt or input
!
!** CANCEL this job to terminate it **
!** DYNETS will never exit **
!
%ERR::
!
@RUN UTP:SENDER
*test TEST72
*blabel STP1
*type error
*send TEST72 failed in step STP1
*exit
@goto FIN
!
%TERR::
!
@RUN UTP:SENDER
*test TEST72
*blabel %TERR
*type error
*send TEST72 timed out
*exit
!
FIN::
!
%FIN::
!
!+---------------------------------------------------------------------+
!|                                                                     |
!|        test: TEST72        step: %FIN                               |
!|                                                                     |
!+---------------------------------------------------------------------+
@RUN UTP:SENDER
*test TEST72
*blabel STP2
*type END
*send TEST72 ended
*exit
!
DONE::
!