Trailing-Edge
-
PDP-10 Archives
-
KS10_APT_INSTALL_TAPE
-
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