Google
 

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/dn22in.ver
There is 1 other file named dn22in.ver in the archive. Click here to see a list.
;<UETP.LIB>DN22IN.VER.1,  9-Aug-79 11:49:30, EDIT BY EIBEN
;This file has to run together with dn22ou.ver , it also requires
;that the modems be looped back to each other , or that a modem
;eliminator be placed between the two dup11 output lines.
;THIS PACKAGE IS A LOOP-TEST FOR THE DN22.
;THERE ARE A NUMBER OF REQUIRED FILES:
;1/<UETP.LIB>DNLOAD.EXE - USED TO LOAD OPERATIONAL
;	SOFTWARE (DS65B.BIN) INTO DN22.
;2/<UETP.LIB>DS65B.BIN - THIS IS THE OPERATIONAL SOFTWARE
;3/<UETP.LIB>D60SPD.EXE - PERFORMANCE ANALYSIS PROGRAM FOR 
;DN60 FRONT-END

@def dsk: ps:<uetp.dn22>,ps:<uetp.lib>
@def out: ps:<uetp.dn22>

@silence	!message start dn22in
@RUN <UETP.LIB>SENDER
*TYPE START
*BLABEL BEGIN:
*TEST DN22IN
*SEND
*EXIT
@revive

@take sys.cmd
@goto begin2:

%ERR::
@silence !message error on take.sys command
@RUN  <UETP.LIB>SENDER
*TYPE error
*BLABEL BEGIN1:
*TEST DN22IN
*SEND ERROR on TAKE SYS.CMD
*EXIT
@revive
@goto ENDERR:

begin2::
@enable

@;crock for d60spd ( not following search-lists )
@noerror
@del <uetp>compar.for,
*exp
*
@error
@; end of crock

@RU PS:<UETP.LIB>D60SPD
*SET SIM/PO:10/LI:0/DE:0
*SET LINE/CMD:5/CSD:0
*INPUT COMPAR.FOR
@GOTO dn22in1:

%ERR::
@silence !MESSAGE Error executing D60SPD commands
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL DN22IN:
*TEST DN22IN
*SEND Error executing D60SPD commands
*EXIT
@revive
@GOTO ENDERR:

DN22in1::
@FILCOM
*TTY:=[4,23]COMPAR.FOR,UETCMP.FOR
@GOTO END:

%ERR::
@silence !MESSAGE Discrepancies in the OUTPUT AND INPUT files
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL DN22in1:
*TEST DN22in
*SEND Discrepancies in the OUTPUT AND INPUT files
*EXIT
@revive
@GOTO ENDERR:

%TERR::
@SILENCE	! ***** MESSAGE: TIME-OUT ERROR DN22IN
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST DN22IN
*SEND TIME-OUT ERROR DN22IN
*EXIT
@REVIVE
@GOTO ENDERR:

%ERR::
@SILENCE	! ***** MESSAGE: UNKNOWN ERROR IN DN22IN.VER
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST DN22IN
*SEND UNKNOWN ERROR IN DN22IN.VER
*EXIT
@REVIVE
@GOTO ENDERR:

ENDERR::
@INF DIS <UETP.DN22>
@VDIR OUT:
@I LOG ALL
@SY ALL F-S
@INF FI
@INF MEM

END::
%FIN::
@silence		!***** message: END OF DN22IN TEST
@RUN  <uetp.lib>sender
*TYPE END
*BLABEL END:
*TEST DN22IN
*SEND
*EXIT
@revive