Google
 

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/dn21b.ver
There is 1 other file named dn21b.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 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
!	DECNET.VER	Superficial DECnet-20 Test
!
!			Version 3A(1)
!
!
!	This batch control file is intended to exercise the DECnet-20
!	software on a DECsystem-2040, DECsystem-2050, or DECsystem-2060.
!	It runs under the control of the User Environment Test Package, UETP.
!
!
@RUN <UETP.LIB>SENDER
*TYPE START
*BLABEL COM00:
*TEST DN21B
*SEND Start of DECNET Test
*EXIT
COM00::
!
!
!  The first text line of the file that is sent to the loopback task tells
!  the loopback task which device, controller and line is to be tested.
!  The format of this first text line is:
!
!			DEV_CTL_LINE
!
!		where,
!
!			1) DEV - is a three character device mnemonic
!					DMC for DM11
!					DUP for DUP11
!					KDP for KMC/DUP
!
!			2) CTL - is the controller number (0-3)
!
!			3) LINE - is the line number on the controller (0-3)
!
!			4) _    - is an underscore character (octal 137)
!
!	It is assumed that the file LINE.TXT exists prior to running
!	this test, and that the file contains only a single line of text
!	specifying the communications line to test in the above format.
!
!
@DELETE DECNET.DAT
@APPEND LINE.TXT (TO) DECNET.DAT
@APPEND <UETP.LIB>DECNET.DAT (TO) DECNET.DAT
@GOTO T1::
%ERR::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL T1:
*TEST DN21B
*SEND Problems appending DECNET input files
*EXIT
@GOTO COM100:
!
T1::
!
!	Now run DYNETS.  The data received will
!	be written to the file DN21B-TASK-TEST72.LOG, 
!	to be compared against a control file.
!
@RUN <UETP.LIB>DYNETS.EXE
*ESTABLISH DCN:DN21B-TASK-TEST72 /BYTE:7 /RECL:80
*RECEIVE DCN:DN21B-TASK-TEST72 /TIMEOUT:60
*SEND DCN:DN21B-TASK-TEST72 DECNET.DAT
*EXIT
!
@GOTO T2::
%ERR::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL T2:
*TEST DN21B
*SEND Errors executing DYNETS commands
*EXIT
@GOTO COM100:
T2::
!
!	Now run a program which will compare the received data in D20L1.LOG
!
@RENAME DN21B-TASK-TEST72.LOG (TO BE) D20L1.LOG
@RUN <UETP.LIB>UETCMP
*COMPARE
*D20L1.LOG
*DECNET.DAT
*EXIT
@IF (NOERROR) @GOTO COM100::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL COM100:
*TEST DN21B
*SEND Discrepancies in the sent and received files
*EXIT
%ERR::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL COM100:
*TEST DN21B
*SEND Unknown error in DECNET test
*EXIT
COM100::
%FIN::
@DELETE D20L1.LOG
@DELETE DECNET.DAT
@CHKPNT ADSF::
@RUN <UETP.LIB>SENDER
*TYPE END
*BLABEL COM100:
*TEST DN21B
*SEND End of DECNET test
*EXIT