Google
 
Trailing-Edge - PDP-10 Archives - KS10_APT_INSTALL_TAPE - uetp/lib/srver1.ver
There is 1 other file named srver1.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
.
!
!  RED PACK UETP TEST CONTROL FILE 
!
!
INIT::
!+---------------------------------------------------------------------+
!|                                                                     |
!|        test: SRVER1       step: INIT                                |
!|                                                                     |
!+---------------------------------------------------------------------+
!
!	This UETP control file supports UETP test DUP1. This test (SRVER1)
!will run without halting and must be aborted. The test DUP1
!reports the success or failure of the DECnet cable loopback test.
@ENA
@OPR
*START BATCH-STREAM 5
*SET BATCH-STREAM 5 TIME-LIMITS 00:60
*EXIT
@DEFINE UTP: PS:<UETP.LIB>
@RUN UTP:SENDER
*test SRVER1
*blabel INIT
*type START
*send SRVER1 started
*exit
@goto STP1
!
%ERR::
!
@RUN UTP:SENDER
*test SRVER1
*blabel INIT
*type error
*send SRVER1 failed in step INIT
*exit
@goto FIN
!
STP1::
!
!+---------------------------------------------------------------------+
!|                                                                     |
!|        test: SRVER1        step: 1                                  |
!|                                                                     |
!+---------------------------------------------------------------------+
!
!
!Run the DYNETS program to emulate SRVER1 on a TOPS-20 node
!
@RUN UTP:DYNETS
*DECLARE SRV:.SRVER1 /BYTE:7 /RECL:80
*DECLARE SRV:.SRVER1 /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 SRVER1
*blabel STP1
*type error
*send SRVER1 failed in step STP1
*exit
@goto FIN
!
%TERR::
!
@RUN UTP:SENDER
*test SRVER1
*blabel %TERR
*type error
*send SRVER1 timed out
*exit
!
FIN::
!
%FIN::
!
!+---------------------------------------------------------------------+
!|                                                                     |
!|        test: SRVER1        step: %FIN                               |
!|                                                                     |
!+---------------------------------------------------------------------+
@RUN UTP:SENDER
*test SRVER1
*blabel STP2
*type END
*send SRVER1 ended
*exit
!
DONE::
!