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

;<UETP.LIB>DN22OU.VER.1,  9-Aug-79 11:50:34, EDIT BY EIBEN
;This file has to run together with dn22in.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
@inf str user1:
@if (error) goto begin:

@silence	!message dn22ou=> user1:
@run <uetp.lib>sender
*type START
*blabel user1:
*test DN22OU
*send DN22OU=>USER1:
*exit
@revive

@MOUNT STRUCTURE USER1:
@def dsk: user1:<uetp.DN22>,ps:<uetp.lib>
@def out: user1:<uetp.DN22>
@CONN USER1:<UETP>
PTEU
@goto begin1:

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

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

begin1::
@take sys.cmd
@goto begin2:

%ERR::
@silence
@CONN PS:<UETP>
@RUN  <uetp.lib>sender
*TYPE error
*BLABEL BEGIN1:
*TEST DN22OU
*SEND ERROR on TAKE SYS.CMD
*EXIT
@goto ENDERR:
@revive

begin2::
@noerror
@delete out:*.*
@expunge out:
@error
@inf dis out:
@inf log all
@goto DN22OU:

%ERR::
@silence !message No directory <uetp.dn22ou> on user1:?
@CONN PS:<UETP>
@run <uetp.lib>sender
*type error
*blabel begin2
*test DN22OU
*send No directory uetp.DN22OU on structure USER1:?
*exit
@revive
@go to enderr:

dn22ou::

@;DN22 - D60SPD LOOP-BACK TEST
@;
@;crock for d60spd ( doesn't look into search-list )
@cop uetcmp.for <uetp>uetcmp.for.1
@;

@enable
@RUN ps:<uetp.lib>D60SPD
*SET SUP/PO:10/LI:1/DE:0
*SET LINE/CMD:5/CSD:0
*OUTPUT UETCMP.FOR
*EXIT
@GOTO dn22ou2:

%ERR::
@silence MESSAGE Error executing D60SPD commands
@CONN PS:<UETP>
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL DN22ou:
*TEST DN22OU
*SEND Error executing D60SPD commands
*EXIT
@revive
@GOTO ENDERR:

dn22ou2::
@; ...and another crock .. watch it !!
@FILCOM
*TTY:=uetcmp.FOR,UETCMP.FOR
@GOTO END:

%TERR::
@SILENCE	! ***** MESSAGE: TIME-OUT ERROR DN22OU
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST DN22OU
*SEND TIME-OUT ERROR DN22OU
*EXIT
@REVIVE
@GOTO ENDERR:

%ERR::
@SILENCE	! ***** MESSAGE: UNKNOWN ERROR IN DN22OU.VER
@CONN PS:<UETP>
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST DN22OU
*SEND UNKNOWN ERROR IN DN22OU.VER
*EXIT
@REVIVE
@GOTO ENDERR:

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

END::
%FIN::
@silence		!***** message: END OF DN22OU TEST
@CONN PS:<UETP>
@RUN  ps:<uetp.lib>sender
*TYPE END
*BLABEL END:
*TEST DN22OU
*SEND
*EXIT
@revive