Google
 

Trailing-Edge - PDP-10 Archives - BB-H241B-BM - uetp/lib/dnv2ll.cmp
There are 3 other files named dnv2ll.cmp 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: DNV2LL        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 DNV2LL
*blabel INIT
*type START
*send DNV2LL 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=5			;WAIT 5 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 DNV2LL
*blabel INIT
*type error
*send DNV2LL failed in step INIT
*exit
@goto FIN
STP1::
!+---------------------------------------------------------------------+
!|                                                                     |
!|        test: DNV2LL        step: 1                                  |
!|                                                                     |
!+---------------------------------------------------------------------+
!
!	First check to insure that the loopback port is on, then
!	wait for the server task TEST72 to begin
!
@EXECUTE CHKLBP
@RUN UTP:DNWAIT
@RUN UTP:SENDER
*test DNV2LL
*blabel STP1
*type MINOR
*send DNV2LL finished step STP1
*exit
@goto STP2
%ERR::
@RUN UTP:SENDER
*test DNV2LL
*blabel STP1
*type error
*send DNV2LL failed in step STP1
*exit
@goto FIN
STP2::
!+---------------------------------------------------------------------+
!|                                                                     |
!|        test: DNV2LL        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 RCVDAT.LOG
@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 DNV2LL
*blabel STP2
*type MINOR
*send DNV2LL finished step STP2
*exit
@goto STP3
%ERR::
@RUN UTP:SENDER
*test DNV2LL
*blabel STP2
*type error
*send DNV2LL failed in step STP2
*exit
@goto FIN
STP3::
!+---------------------------------------------------------------------+
!|                                                                     |
!|        test: DNV2LL        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 DNV2LL
*blabel STP3
*type MINOR
*send DNV2LL finished step STP3
*exit
!
@GOTO FIN::
!
%ERR::
!
@RUN UTP:SENDER
*test DNV2LL
*blabel STP3
*type error
*send DNV2LL failed in step STP3
*exit
!
@GOTO FIN::
!
%TERR::
!
@RUN UTP:SENDER
*test DNV2LL
*blabel %TERR
*type error
*send DNV2LL timed out
*exit
FIN::
%FIN::
!+---------------------------------------------------------------------+
!|                                                                     |
!|        test: DNV2LL        step: %FIN                               |
!|                                                                     |
!+---------------------------------------------------------------------+
@RUN UTP:SENDER
*test DNV2LL
*blabel FIN
*type END
*send DNV2LL ended
*exit
DONE::