Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
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
@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::
!