Trailing-Edge
-
PDP-10 Archives
-
BB-H137D-BM
-
uetp/lib/dn64sn.send
There are 9 other files named dn64sn.send 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.
!THIS TEST WAS TAKEN FROM THE EXERCISER ON NOVEMBER 14,1977
!
!VERSION 2 11/7/77
!COMUN1.BAT
!
!BATCH CONTROL FILE
!TO PERFORM COMMUNICATION SEND FUNCTION.
COM00::
@RUN <UETP.LIB>SENDER
*TYPE MINOR
*BLABEL COM00:
*TEST DN64N
*SEND START OF DN64SN SEND
*EXIT
!
@ENABLE
!
! NOW SEND THE DATA
@COPY <UETP.LIB>DN64.DAT (TO) SNDC.DAT
@IF (NOERROR) @GOTO GOSND::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL COM00:
*TEST DN64N
*SEND ERROR COPYING DN64.DAT FILE
*EXIT
@GOTO DONE::
!
GOSND::
!
@D60SPD.EXE
*SET SIMULATE/PORT:12/LINE:5/DEV:0/3780
*NOTYPEAHEAD
*STATUS ALL
*OUTPUT SNDC.DAT
*STATUS ALL
@IF (NOERROR) @GOTO DONE::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL DONE:
*TEST DN64N
*SEND ERRORS IN SENDING FILE DN64.DAT FROM DN64SN
*EXIT
%ERR::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL DONE:
*TEST DN64N
*SEND UNKNOWN ERRORS IN SEND DN64SN
*EXIT
DONE::
%FIN::
@RUN <UETP.LIB>SENDER
*TYPE MINOR
*BLABEL DONE::
*TEST DN64N
*SEND END OF SEND FROM DN64SN
*EXIT