Google
 

Trailing-Edge - PDP-10 Archives - DECNET-20_V2.1_2020_7-20-82 - uetp/lib/test72.cmp
There is 1 other file named test72.cmp 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 test DNV2LL. This test (TEST72)
!will run without halting and must be aborted. The test DNV2LL
!reports 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::
!