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