Google
 

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/dn20l1.ver
There is 1 other file named dn20l1.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) 1977 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!TKTK1.BAT
!
!VERSION X	11/3/77
!
!THIS VERSION HAS BEEN MODIFIED TO RUN UNDER THE AUTOMATED SYSTEM
!ACCEPTANCE PACKAGE (ASAP)
!
@RUN <UETP.LIB>SENDER
*TYPE START
*BLABEL COM00:
*TEST DN20L1
*SEND START OF DN20L1 TEST
*EXIT
COM00::
!	*********  TEST -- LINE 0 **************
!
!  THE FIRST LINE OF THE FILE THAT IS SHIPPED TO THE DN20 TELLS THE DN20
! WHICH DEVICE, CONTROLLER AND LINE WE WISH TO TEST.  THE FORMAT OF THE 
! FIRST LINE IS:
!			DEV_CTL_LINE<CR><LF>
!		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 IN THE CONTROLLER (0-3)
!
!			4) _    - IS AN OCTAL 137 (ACTS AS DELIMITER)
!
!			5) <CR><LF> - IS CARRIAGE RETURN LINE FEED
!
!
@DELETE DN20L1.DAT
@APPEND TTY: (TO) DN20L1.DAT
@KDP_0_0
@
@APPEND <UETP.LIB>DN20.DAT (TO) DN20L1.DAT
@GOTO T1::
%ERR::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL T1:
*TEST DN20L1
*SEND PROBLEMS APPENDING DN20L1 INPUTS
*EXIT
@GOTO COM100:
!
T1::

!NOW RUN DYNETS.  THE DATA RECEIVED WILL
! BE WRITTEN TO THE FILE DN20-TASK-TEST72.LOG, 
!  TO BE COMPARED AGAINST A CONTROL FILE.
!
@RUN <UETP.LIB>DYNETS.EXE
*ESTABLISH (LOGICAL LINK TO) DCN:DN20-TASK-TEST72.DN20L1 /BYTE:7 /RECL:132 /WAIT:30
*RECEIVE (FROM) DCN:DN20-TASK-TEST72.DN20L1
*SEND (TO) DCN:DN20-TASK-TEST72.DN20L1 (FROM MESSAGE FILE) DN20L1.DAT
*EXIT
!
@GOTO T2::
%ERR::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL T2:
*TEST DN20L1
*SEND ERRORS EXECUTING DYNETS COMMANDS
*EXIT
@GOTO COM100:
T2::
!
!NOW RUN A PROGRAM WHICH WILL COMPARE THE RECEIVED DATA IN TKTK1.LOG
@RENAME DN20-TASK-TEST72.LOG (TO BE) D20L1.LOG
@RUN <UETP.LIB>UETCMP
*COMPARE
*D20L1.LOG
*DN20L1.DAT
*EXIT
@IF (NOERROR) @GOTO COM100::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL COM100:
*TEST DN20L1
*SEND DISCREPANCIES IN THE SEND AND RECIEVE FILES
*EXIT
%ERR::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL COM100:
*TEST DN20L1
*SEND UNKNOWN ERROR IN DN20 FOR LINE 0
*EXIT
COM100::
@DELETE D20L1.LOG
@DELETE DN20L1.DAT
%FIN::
@CHKPNT ADSF::
@RUN <UETP.LIB>SENDER
*TYPE END
*BLABEL COM100:
*TEST DN20L1
*SEND END OF DN20 TEST ON LINE 0
*EXIT