Google
 

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/dupa.ver
There is 1 other file named dupa.ver 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) 1978,1979 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
!	UETP TEST CONTROL FILE - DECnet-20 V2 2020 Line test
!
INIT::
!+---------------------------------------------------------------------+
!|                                                                     |
!|        test: DUPA        step: INIT                               |
!|                                                                     |
!+---------------------------------------------------------------------+
!
!	This test is used in conjunction with UETP test TEST72.
!This test waits for the DYNETS program to begin in test TEST72
!before it sends its data file through the network.
!



@enable
@DEFINE UTP: PS:<UETP.LIB>
!
!
@RUN UTP:SENDER
*test DUPA
*blabel INIT
*type START
*send DUPA started
*exit
!
@DEFINE NET: PS:<UETP.DECNET>
!
!	Set up logical name definitions and allow access to UETP
!
@DEFINE DSK: NET:,UTP:
@DEFINE EDITOR: SYS:EDIT
@CREATE CHKLBP.MAC
	SEARCH MONSYM,MACSYM
	.REQUIRE SYS:MACREL
	WAITT=25			;WAIT 25 SECONDS BEFORE LOOKING
	T1=1
	T2=2
	T3=3
START:	MOVEI T1,WAITT*1750		;WAIT WAITT SECONDS
	DISMS				;WAIT
	MOVEI T1,.NDFLP			;FIND LOOPBACK PORT
	MOVEI T2,ARG			;ARGUMENT BLOCK ADDRESS
	NODE				;FIND THE LOOPBACK PORT
	 ERJMP JSHLT0			;HALT ON ERROR
	MOVE T3,ARG			;GET THE RESULT
	SKIPN T3			;FOUND A PORT?
	JRST	[TMSG <?THE SET LOCAL LOOPBACK ENABLED lineid COMMAND HAS NOT
	BEEN SUCCESSFULLY EXECUTED BY THE NCP SUBSET OF OPR - THERE IS
	NO NSP LOOPBACK PORT.
>
		HALTF]
	TXNE	T3,ND%LPR		;LOOPBACK RUNNING?
	JRST	[TMSG <	NODE INITIALIZATION HAS BEEN SUCCESSFULLY DONE ON THE LOOPBACK PORT.
>
		HALTF]
	TMSG <?THE NSP LOOPBACK PORT IS NOT RUNNING, THE NODE INITIALIZATION
	WAS NOT SUCCESSFUL.
>
	HALTF

ARG:	BLOCK 1				;NODE JSYS ARG BLOCK

	END START
*^[
*EU
@COMPILE CHKLBP.MAC
!
!
@goto STP1
%ERR::
@RUN UTP:SENDER
*test DUPA
*blabel INIT
*type error
*send DUPA failed in step INIT
*exit
@goto FIN
STP1::
!+---------------------------------------------------------------------+
!|                                                                     |
!|        test: DUPA        step: 1                                  |
!|                                                                     |
!+---------------------------------------------------------------------+
!
!	First check to insure that the loopback port is on, then
!	wait for the server task TEST72 to begin
!
@RUN UTP:ON0
@EXECUTE CHKLBP
@RUN UTP:DNWAIT
@RUN UTP:SENDER
*test DUPA
*blabel STP1
*type MINOR
*send DUPA finished step STP1
*exit
@goto STP2
%ERR::
@RUN UTP:SENDER
*test DUPA
*blabel STP1
*type error
*send DUPA failed in step STP1
*exit
@goto FIN
STP2::
!+---------------------------------------------------------------------+
!|                                                                     |
!|        test: DUPA        step: 2                                  |
!|                                                                     |
!+---------------------------------------------------------------------+
!
!	Run the DYNETS program which will create a logical link to
!	the network task TEST72. TEST72 will
!	echo all data received on its logical
!	link through the line. DYNETS will receive the echoed data
!	and place it in the file -TASK-TEST72.LOG.
!
@DELETE PS:<UETP.DECNET>*.*.*
@EXP PS:<UETP.DECNET>
@RUN UTP:DYNETS.EXE
*ESTABLISH -TASK-TEST72 /BYTE:7 /RECL:80
*RECEIVE DCN:-TASK-TEST72
*SEND DCN:-TASK-TEST72 DECNET.DAT
*EXIT
@RUN UTP:SENDER
*test DUPA
*blabel STP2
*type MINOR
*send DUPA finished step STP2
*exit
@goto STP3
%ERR::
@RUN UTP:SENDER
*test DUPA
*blabel STP2
*type error
*send DUPA failed in step STP2
*exit
@goto FIN
STP3::
!+---------------------------------------------------------------------+
!|                                                                     |
!|        test: DUPA        step: 3                                  |
!|                                                                     |
!+---------------------------------------------------------------------+
!
!	Verify that the file which has been echoed through the
!	line has not been corrupted in transit.
!
@RENAME -TASK-TEST72.LOG RCVDAT.LOG
@RUN UTP:UETCMP
*COMPARE
*RCVDAT.LOG
*DECNET.DAT
*EXIT
@RUN UTP:SENDER
*test DUPA
*blabel STP3
*type MINOR
*send DUPA finished step STP3
*exit
!
@GOTO FIN::
!
%ERR::
!
@RUN UTP:SENDER
*test DUPA
*blabel STP3
*type error
*send DUPA failed in step STP3
*exit
!
@GOTO FIN::
!
%TERR::
!
@RUN UTP:SENDER
*test DUPA
*blabel %TERR
*type error
*send DUPA timed out
*exit
FIN::
%FIN::
!+---------------------------------------------------------------------+
!|                                                                     |
!|        test: DUPA        step: %FIN                               |
!|                                                                     |
!+---------------------------------------------------------------------+
@RUN UTP:OFF
@RUN UTP:SENDER
*test DUPA
*blabel FIN
*type END
*send DUPA ended
*exit
DONE::