Trailing-Edge
-
PDP-10 Archives
-
KS10_APT_INSTALL_TAPE
-
uetp/lib/dn20b.ver
There is 1 other file named dn20b.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 DN20B
*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 DN20B
*SEND Problems appending DECNET input files
*EXIT
@GOTO COM100:
!
T1::
!
! Now run DYNETS. The data received will
! be written to the file DN20B-TASK-TEST72.LOG,
! to be compared against a control file.
!
@RUN <UETP.LIB>DYNETS.EXE
*ESTABLISH DCN:DN20B-TASK-TEST72 /BYTE:7 /RECL:80
*RECEIVE DCN:DN20B-TASK-TEST72 /TIMEOUT:60
*SEND DCN:DN20B-TASK-TEST72 DECNET.DAT
*EXIT
!
@GOTO T2::
%ERR::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL T2:
*TEST DN20B
*SEND Errors executing DYNETS commands
*EXIT
@GOTO COM100:
T2::
!
! Now run a program which will compare the received data in D20L1.LOG
!
@RENAME DN20B-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 DN20B
*SEND Discrepancies in the sent and received files
*EXIT
%ERR::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL COM100:
*TEST DN20B
*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 DN20B
*SEND End of DECNET test
*EXIT