Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!THIS FILE WAS CREATED BY THE ACCEPTANCE CONFIGURATION PROGRAM CONFIG.EXE
!  FROM A MODEL OF THE DN64SX.SEND FILE
!
!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 DN11A
*SEND START OF DN11SA SEND
*EXIT
!
@ENABLE
!
!  NOW SEND THE DATA 
!
@COPY <UETP.LIB>DN64.DAT (TO)  SND11A.DAT
@IF (NOERROR) @GOTO GOSND::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL COM00::
*TEST DN11A
*SEND ERROR COPYING DN64.DAT FILE
*EXIT
@GOTO DONE::
!
GOSND::

@RUN <UETP.LIB>D60SPD.EXE
*SET SUPPORT/PORT:11/LINE:1/DEV:0/3780
*NOTYPEAHEAD
*STATUS ALL
*OUTPUT SND11A.DAT/TIME:60
*STATUS ALL
@IF (NOERROR) @GOTO DONE::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL DONE::
*TEST DN11A
*SEND ERRORS IN SENDING FILE DN64.DAT FROM DN11SA
*EXIT
%ERR::
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL DONE::
*TEST DN11A
*SEND UNKNOWN ERRORS IN SEND FROM DN11SA

*EXIT

DONE::

%FIN::
@RUN <UETP.LIB>SENDER
*TYPE MINOR
*BLABEL DONE::
*TEST DN11A
*SEND END OF SEND FROM DN11SA
*EXIT