Google
 

Trailing-Edge - PDP-10 Archives - BB-H137C-BM - uetp/lib/dn22r.ver
There are 10 other files named dn22r.ver in the archive. Click here to see a list.
;<UETP.RUN>DN22R.VER.1,  3-May-78 11:34:57, Edit by ENGEL
!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.
!CONVERTED FROM THE EXERCISER ON NOVEMBER 14, 1977
!
!VERSION 2	11/7/77
@DEF DSK: DSK:,<UETP.LIB>
@I LOG ALL
COM0::
@RUN <UETP.LIB>SENDER
*TYPE START
*BLABEL COM00:
*TEST DN22R
*SEND START OF DN22R
*EXIT
!
!
@SUBMIT <UETP.LIB>DN22RA.SEND /OUTPUT:NOLOG /UNIQUE:0/TIME:00:01:00/AFTER:+00:00:45
@IF (NOERROR) @GOTO DOTST::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL COM00:
*TEST DN22R
*SEND ERROR SUBMIT'ING THE SENDER SIDE
*EXIT
@GOTO DONE:
!
DOTST:

!INITIATE RECEIVE PROGRAM
!
!NOW RUN D60SPD TO APPEAR TO BE A LINE PRINTER.  IT WILL EXPECT
! TO RECEIVE CARRIAGE CONTROL SEQUENCES.  THE DATA RECEIVED WILL
! BE WRITTEN TO THE FILE DN46A.DAT, TO BE COMPARED AGAINST A CONTROL
! FILE.
@ENABLE
@DELETE DN64A.DAT
@RUN <UETP.LIB>D60SPD.EXE
*SET SIMULATE/PORT:10/LINE:0/DEV:0/3780
*NOTYPEAHEAD
*STATUS ALL
*INPUT DN64A.DAT/TIME:60
*STATUS ALL
@IF (NOERROR) @GOTO COM7::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL DOTST:
*TEST DN22R
*SEND ERRORS RECEIVING DATA
*EXIT
@GOTO DONE:

COM7::

@DISABLE
!NOW RUN A PROGRAM WHICH WILL COMPARE THE RECEIVED DATA 
@RUN <UETP.LIB>UETCMP
*COMPARE
*DN64A.DAT
*dn64.dat
*exit
@IF (NOERROR) @GOTO DONE::
!
@EXPUNGE
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL DONE:
*TEST DN22R
*SEND ERRORS IN THE RECEIVED FILE DN64A.DAT
*EXIT
%ERR::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL DONE:
*TEST DN22R
*SEND UNKNOWN ERRORS IN RECEIVE SIDE

*EXIT

DONE:

%FIN::
@DELETE SNDA.DAT
@DELETE DN64A.DAT
@CAN BATCH DN22RA
@CHKPNT ADSF::
@RUN <UETP.LIB>SENDER
*TYPE END
*BLABEL DONE::
*TEST DN22R
*SEND END OF TEST
*EXIT
@DELETE DN22RA.LOG