Trailing-Edge
-
PDP-10 Archives
-
KS10_APT_INSTALL_TAPE
-
uetp/lib/dupb.ver
There is 1 other file named dupb.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: DUPB 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 DUPB
*blabel INIT
*type START
*send DUPB 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 DUPB
*blabel INIT
*type error
*send DUPB failed in step INIT
*exit
@goto FIN
STP1::
!+---------------------------------------------------------------------+
!| |
!| test: DUPB step: 1 |
!| |
!+---------------------------------------------------------------------+
!
! First check to insure that the loopback port is on, then
! wait for the server task TEST72 to begin
!
@RUN UTP:ON1
@EXECUTE CHKLBP
@RUN UTP:DNWAIT
@RUN UTP:SENDER
*test DUPB
*blabel STP1
*type MINOR
*send DUPB finished step STP1
*exit
@goto STP2
%ERR::
@RUN UTP:SENDER
*test DUPB
*blabel STP1
*type error
*send DUPB failed in step STP1
*exit
@goto FIN
STP2::
!+---------------------------------------------------------------------+
!| |
!| test: DUPB 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 DUPB
*blabel STP2
*type MINOR
*send DUPB finished step STP2
*exit
@goto STP3
%ERR::
@RUN UTP:SENDER
*test DUPB
*blabel STP2
*type error
*send DUPB failed in step STP2
*exit
@goto FIN
STP3::
!+---------------------------------------------------------------------+
!| |
!| test: DUPB 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 DUPB
*blabel STP3
*type MINOR
*send DUPB finished step STP3
*exit
!
@GOTO FIN::
!
%ERR::
!
@RUN UTP:SENDER
*test DUPB
*blabel STP3
*type error
*send DUPB failed in step STP3
*exit
!
@GOTO FIN::
!
%TERR::
!
@RUN UTP:SENDER
*test DUPB
*blabel %TERR
*type error
*send DUPB timed out
*exit
FIN::
%FIN::
!+---------------------------------------------------------------------+
!| |
!| test: DUPB step: %FIN |
!| |
!+---------------------------------------------------------------------+
@RUN UTP:OFF
@RUN UTP:SENDER
*test DUPB
*blabel FIN
*type END
*send DUPB ended
*exit
DONE::