Trailing-Edge
-
PDP-10 Archives
-
k20v7d
-
uetp/lib/dn20n3.ver
There is 1 other file named dn20n3.ver in the archive. Click here to see a list.
@DEF DSK: PS:<UETP.RUN>,PS:<UETP.LIB>
@Take Sys.Cmd
@ENA
@SILENCE
BEGIN::
!
! Message: Start of DN20N3 test
!
@Run <Uetp.Lib>Sender
*Type START
*Blabel BEGIN:
*Test DN20N3
*Send Start of DN20N3 test
*Exit
@
@REVIVE
START::
@noerror
@DEL DN20N3.DAT
@DEL DN20N3.NIP
@ERROR
@ENABLE
@DAY
@RESET
!
! NIPLCL.CTL
!
OPR::
@DAY
!
@OPR
*
*DISABLE OUT ALL
*
*WAIT 10
*
*DISABLE OUT ALL
*
*WAIT 35
*
NCP::
*
*ENTER NCP
*
*WAIT 35
*
*SHOW Q
*
*WAIT 10
*
*WAIT 10
*
!
! "DNZERO" USED AS SYNC TAG FOR TV(IN DNCHK)
!
DNZERO::
!
*WAIT 10
*
*TELL DN20N3:: ZERO KNOWN CIRCUIT COUNTERS
*
*WAIT 35
*
*WAIT 35
*
*WAIT 10
*
DNHOST::
*WAIT 10
*
*SHOW EXECUTOR CHARACTERISTICS
*
*WAIT 35
*
*LOOP EXECUTOR COUNT 25 LENGTH 100
*
*WAIT 35
*
*WAIT 10
*
*LOOP NODE DN20N3 COUNT 25 LENGTH 100
*
*WAIT 35
*
DNNODE::
*WAIT 10
*
*SET EXECUTOR NODE DN20N3
*
*WAIT 35
*
*SHOW EXECUTOR CHARACTERISTICS
*
*WAIT 35
*
*WAIT 10
*
*LOOP EXECUTOR COUNT 25 LENGTH 100
*
*WAIT 35
*
*WAIT 10
*
*LOOP NODE TOPS20 COUNT 25 LENGTH 100
*
*WAIT 35
*
*WAIT 35
*
*WAIT 10
*
DNSHOW::
*SHOW KNOWN CIRCUIT COUNT
*
*WAIT 35
*
*WAIT 35
*
*WAIT 10
*
*SHOW Q
*
*WAIT 35
*
*WAIT 10
*
*EXIT
@
!
@silence
@CHKPNT BLOG::
@APPEND DN20N3.LOG DN20N3.DAT
@RESET
@REVIVE
!
DNCHKS::
@TV DN20N3.DAT
! LIMIT FOR RETRIES
*5SBLABL OPR::
@IF (NOERROR) @GOTO ABORT
!
*ZJ-SDNZERO::
@IF (ERROR) @GOTO CONFUS
*I.<>.-SOPR::-ZKS.<>.-100XA
@IF (ERROR) @GOTO CONFUS
!
DNCHK::
*SCOMPLETED
@IF (ERROR) @GOTO NORESP
!
*0J
*SNode unreachable
@IF (NOERROR) @GOTO DNOFF
*SNo path to destination node
@IF (NOERROR) @GOTO DNOFF
!
*0J
*SFAILED
@IF (NOERROR) @GOTO RQFAIL
!
!*0J
!*SFAILED2LS
!@IF (NOERROR) @GOTO RQFAIL
!
*0J
*SCircuits Counters Completed
@IF (ERROR) @GOTO NOCNT
!
*0J
*s 0 Bytes
@IF (NOERROR) @GOTO NOXFER
*SNAKs
@IF (NOERROR) @GOTO NAKERR
!
DNAOK::
@NOERROR
@DEL DN20N3.NIP
@GOTO END
!
NOCNT::
*0JGA;XDN20N3.NIP
@APPEND DN20N3.NIP DN20N3.SFT
@Run <Uetp.Lib>Sender
*Type MAJOR
*Blabel NOCNT:
*Test DN20N3
*Send REQUEST FOR CIRCUIT COUNTERS NOT COMPLETED!!
*SEND RESTARTING CURRENT PASS FOR DN20N3!!!!!!!!!!
*Exit
@BACKTO START
!
NORESP::
*0JGA;XDN20N3.NIP
@APPEND DN20N3.NIP DN20N3.SFT
! Message: NO REQUESTS COMPLETED
@Run <Uetp.Lib>Sender
*Type MAJOR
*Blabel NORESP:
*Test DN20N3
*SEND ***
*Send NO DECNET REQUESTS COMPLETED FOR DN20N3!!!!!
*SEND ATTEMPTING AUTO RESTART OF NMLT20!!!!!!!!!!!
*SEND RESTARTING CURRENT PASS FOR DN20N3!!!!!!!!!!
*Exit
@goto RSTNML
!
RQFAIL::
*0JGA;XDN20N3.NIP
@APPEND DN20N3.NIP DN20N3.SFT
! Message: REQUESTS FAILED
@Run <Uetp.Lib>Sender
*Type MAJOR
*Blabel RQFAIL:
*Test DN20N3
*Send DECNET REQUESTS FAILED!!!!!!!!!!!!!!!!!!!!!!
*SEND RESTARTING CURRENT PASS FOR DN20N3!!!!!!!!!!
*Exit
@BACKTO START
!
DNOFF::
! Message: DN20N3 OFF LINE
@Run <Uetp.Lib>Sender
*Type ERROR
*Blabel DNOFF:
*Test DN20N3
*Send NODE DN20N3 IS OFF LINE
*Exit
@goto end
!
NOXFER::
! Message: NO BYTES TRANSFERRED
@Run <Uetp.Lib>Sender
*Type ERROR
*Blabel NOXFER:
*Test DN20N3
*Send NO BYTES TRANSFERED ON A SYNC LINE
*Exit
@goto end
!
NAKERR::
! Message: NAKERR'S
@Run <Uetp.Lib>Sender
*Type ERROR
*Blabel NAKERR:
*Test DN20N3
*Send NAK's IN SUMMARY
*Exit
@goto end
!
RSTNML::
! Here when no Decnet requests completed. Assume NMLT20 is hung.
!
@ENA
@ERROR ?
@^ESEND 205 ATTEMPTING AUTO RESTART NMLT20 FOR DN20N3
@PAUSE
@^ESEND 205 PLEASE DO NOT TYPE ON CTY FOR NEXT 3 MINS.
@PAUSE
!
CTYTST::
! TTY 232 if CTY not attached.
! TTY 205 if CTY attached to PTYCON job (hopefully)
@ERROR N
@SPY 232
@IF (ERROR) @GOTO CTY205
@BREAK
!
CTY232::
@NOERROR
@ADVISE OPERATOR
@232
@
@^X
@^E
@
@ADVISE OPERATOR
@232
@
@GET <UETP.LIB>NML-RESTART.ATO
@^E
@GOTO RSTMES
!
CTY205::
@ERROR N
@SPY 205
@IF (ERROR) @GOTO NOTERM
@BREAK
@NOERROR
!
@ADVISE OPERATOR
@205
@^U^U
@
@^X
@^E
@
@ADVISE OPERATOR
@205
@
@GET <UETP.LIB>NML-RESTART.ATO
@^E
@
@GOTO RSTMES
!
NOTERM::
! Message: FATAL DECNET HANG
!
@Run <Uetp.Lib>Sender
*Type ERROR
*Blabel NOTERM:
*Test DN20N3
*Send DECNET REQUESTS HUNG AND CAN'T RESTART NMLT20!
*Exit
@Goto End
!
RSTMES::
@ERROR ?
@PAUSE
@^ESEND 205 *** INITIALIZING NMLT20 AND RESTARTING DN20N3 CURRENT PASS
!
DNCMD::
@OPR
*
*DISABLE OUT ALL
*
*WAIT 10
*
*DISABLE OUT ALL
*
*WAIT 35
*
*TAKE SYSTEM:DN20N3.CMD
*
*NCP SET CIRCUIT DTE-0-1 SERVICE ENABLED
*
*WAIT 10
*
*NCP CLEAR LOGGING FILE EVENT 0.*
*
*WAIT 10
*
@BACKTO NCP
!
!
CONFUS::
! Message: SCRIPT ERROR
!
@Run <Uetp.Lib>Sender
*Type ERROR
*Blabel CONFUS:
*Test DN20N3
*Send CONFUSION ANALYSING DN20N3 LOG FILE!!!!!!!!!
*Exit
@Goto End
!
ABORT::
! Message: EXCEEDED ALLOWABLE RETRIES
!
@Run <Uetp.Lib>Sender
*Type ERROR
*Blabel ABORT:
*Test DN20N3
*Send EXCEEDED ALLOWABLE RETRIES FOR DECNET REQUESTS
*Exit
@Goto End
!
%TERR::
%ERR::
! Message: DN20N3 UNEXPECTED ERROR
!
@Run <Uetp.Lib>Sender
*Type ERROR
*Blabel ERROR:
*Test DN20N3
*Send ERROR UNKNOWN ERROR IN DN20N3
*Exit
@Goto End
!
END::
! MESSAGE END OF TEST
@SILENCE
@Run <Uetp.Lib>Sender
*Type END
*Blabel END:
*Test DN20N3
*Send End of DN20N3 test
*Exit
@REVIVE
@DAY
@RESET
%FIN::