Trailing-Edge
-
PDP-10 Archives
-
BB-M080K-SM
-
monitor-sources/nrtsrv.mac
There are 20 other files named nrtsrv.mac in the archive. Click here to see a list.
;------------------------- Autopatch Tape # 12 -------------------------
; UPD ID= 2138, SNARK:<6.1.MONITOR>NRTSRV.MAC.12, 5-Jun-85 10:08:35 by MCCOLLUM
;TCO 6.1.1406 - Update copyright notice.
; UPD ID= 1590, SNARK:<6.1.MONITOR>NRTSRV.MAC.11, 5-Mar-85 18:03:01 by GLINDELL
;TCO 6.1.1233 - do the right things when logins not allowed
; UPD ID= 1577, SNARK:<6.1.MONITOR>NRTSRV.MAC.10, 1-Mar-85 13:23:32 by GLINDELL
;Remove NVTPSI - it can legally happen
; UPD ID= 1407, SNARK:<6.1.MONITOR>NRTSRV.MAC.9, 27-Jan-85 16:57:53 by NICHOLS
;Add data to NVTPSI BUGCHK, clean up some OPSTR <SKIPx> to be TMNx
; UPD ID= 1145, SNARK:<6.1.MONITOR>NRTSRV.MAC.8, 3-Dec-84 17:32:15 by GLINDELL
;D36COM is now in XCDSEC
; UPD ID= 1020, SNARK:<6.1.MONITOR>NRTSRV.MAC.7, 9-Nov-84 15:56:56 by PRATT
;More TCO 6.1.1022 - More of edit 983
; Fix bad byte pointer when no host number
; Set no known node name when SCTA2N fails or no host number
; UPD ID= 1007, SNARK:<6.1.MONITOR>NRTSRV.MAC.6, 7-Nov-84 21:35:09 by PRATT
;More TCO 6.1.1022 - EBD - Fix foolish typo in last edit
; UPD ID= 983, SNARK:<6.1.MONITOR>NRTSRV.MAC.5, 7-Nov-84 08:18:12 by PRATT
;More TCO 6.1.1022 - Fix problem with bad byte pointer if SCTA2N fails
; UPD ID= 956, SNARK:<6.1.MONITOR>NRTSRV.MAC.4, 5-Nov-84 19:16:26 by PRATT
;TCO 6.1.1032 - Make TTYSRV compile independently:
; Move TTNU1 here and call it TTMCNU
; Rename TTPHDV.MAC to NRTSRV.MAC
; Duplicate the TTPHDV edit history here and in RSXSRV.MAC
; Change reference of TTYASN to TTYASG
; Change INTRAN to DINTRN since it conflicts with global in STG
; Make many symbols global for TTYSRV
; Don't use TDCALL to CTHNRT, TDCALx's are now only defined in TTYSRV
; UPD ID= 930, SNARK:<6.1.MONITOR>TTPHDV.MAC.20, 28-Oct-84 11:12:08 by PRATT
;TCO 6.1.1022 - Add support code for NTINF jsys:
; Add field NRRID for remote host ID
; Do a read connect info to get the remote host ID just before accepting
; UPD ID= 713, SNARK:<6.1.MONITOR>TTPHDV.MAC.18, 26-Jul-84 08:31:11 by MCINTEE
;Add CTERM - NRT support
; UPD ID= 578, SNARK:<6.1.MONITOR>TTPHDV.MAC.17, 29-May-84 14:57:05 by MCINTEE
;Fix another of previous
; UPD ID= 575, SNARK:<6.1.MONITOR>TTPHDV.MAC.16, 29-May-84 13:19:03 by MCINTEE
;Fix detach/attach bug in NRT (TNUKIL)
; UPD ID= 545, SNARK:<6.1.MONITOR>TTPHDV.MAC.15, 23-May-84 07:49:45 by MCINTEE
;Merge from M60:
; UPD ID= 4178, SNARK:<6.MONITOR>TTPHDV.MAC.89, 7-May-84 13:32:27 by LOMARTIRE
;More TCO 6.2047 - Fix all possible cases of PI 6 NOSKED/OKSKED from TTYDED
; UPD ID= 381, SNARK:<6.1.MONITOR>TTPHDV.MAC.14, 12-Mar-84 14:58:09 by MCINTEE
;Fix logout bug in NRT.
; UPD ID= 332, SNARK:<6.1.MONITOR>TTPHDV.MAC.13, 13-Feb-84 14:35:32 by MCINTEE
;Make NRTSOF get more buffers
; UPD ID= 293, SNARK:<6.1.MONITOR>TTPHDV.MAC.12, 16-Jan-84 08:33:37 by MCINTEE
;Merge from M60:
; UPD ID= 3397, SNARK:<6.MONITOR>TTPHDV.MAC.88, 3-Jan-84 10:38:46 by PRATT
;TCO 6.1796 - Create TTNTM1, sets/clears TTNTS in fe only.
; UPD ID= 286, SNARK:<6.1.MONITOR>TTPHDV.MAC.11, 5-Jan-84 17:33:38 by NICHOLS
;Fix previous edit, it should give up (RET), not go to MCSRV2 or MCSRV5
; UPD ID= 282, SNARK:<6.1.MONITOR>TTPHDV.MAC.10, 27-Dec-83 23:23:52 by GROSSMAN
;Fix bug in MCSRV when NRTUNB fails, go to MCSRV2, not MCSRV5.
; UPD ID= 218, SNARK:<6.1.MONITOR>TTPHDV.MAC.9, 17-Oct-83 15:48:54 by MCINTEE
;Change IBFRCC to IBRFC1
; UPD ID= 197, SNARK:<6.1.MONITOR>TTPHDV.MAC.8, 25-Aug-83 07:55:07 by MCINTEE
;TCO 6.1784 - In TTSETH, fix logic that sets TTNPM
; UPD ID= 191, SNARK:<6.1.MONITOR>TTPHDV.MAC.7, 5-Aug-83 12:29:25 by MCINTEE
;Yet another NRT bug fix. Add a SETZRO TTOTP in NETUSER release code.
; UPD ID= 189, SNARK:<6.1.MONITOR>TTPHDV.MAC.6, 4-Aug-83 09:46:46 by MCINTEE
;TCO 6.1718 - Fix code so LOCAL AUTOBAUD lines don't get the REMOTE bit set
; when the speed is recieved from the FE
; UPD ID= 187, SNARK:<6.1.MONITOR>TTPHDV.MAC.5, 2-Aug-83 15:52:22 by MCINTEE
;More TCO 6.1426 - remove an extra SETZRO TTPRM
;TCO 6.1600 - Allow LOCAL lines to be set as autobaud
; UPD ID= 104, SNARK:<6.1.MONITOR>TTPHDV.MAC.8, 18-Apr-83 13:12:19 by PAETZOLD
;TCO 6.1557 - TCP Merge
; UPD ID= 94, SNARK:<6.1.MONITOR>TTPHDV.MAC.7, 28-Mar-83 14:03:38 by MCINTEE
;Do the previous edit in a cleaner manner
; UPD ID= 93, SNARK:<6.1.MONITOR>TTPHDV.MAC.6, 28-Mar-83 12:35:46 by MCINTEE
;Fix bug in NRT that causes an occasional NSKDIS bughlt.
; UPD ID= 2039, SNARK:<6.MONITOR>TTPHDV.MAC.83, 20-Mar-83 12:46:39 by HALL
;TCO 6.1502 - Allow resident free space in extended section
; Use one-word global byte pointers to point to sendall buffer and
; I/O buffers, which must be in section 0 for the DTE.
; Convert one-word global to one-word local before handing to DTESRV
; Change handling of end of I/O buffers, and definition of WRPMSK,
; to reflect use of one-word globals
; In FNDEND, use ADJBP to decrement byte pointer instead of previous hack
; UPD ID= 1985, SNARK:<6.MONITOR>TTPHDV.MAC.82, 14-Mar-83 08:48:34 by HALL
;TCO 6.1502 - Allow resident free space in extended section
; Add EA.ENT to TTDTRM
; UPD ID= 1970, SNARK:<6.MONITOR>TTPHDV.MAC.81, 10-Mar-83 19:11:06 by HALL
;TCO 6.1502 - Allow resident free space in extended section
; Add EA.ENT to TTYINT,TTSPST,TTYDON,TTYDLU,TTYHGU,TTYSLA,IDCTY,
; DTESTO,DFNDL1
; UPD ID= 1945, SNARK:<6.MONITOR>TTPHDV.MAC.80, 9-Mar-83 10:16:58 by HALL
;TCO 6.1502 - Allow resident free space in extended section
; Change call to ASGRSB to set RS%SE0
; UPD ID= 4, SNARK:<6.1.MONITOR>TTPHDV.MAC.2, 2-Feb-83 07:38:59 by MCINTEE
;TCO 6.1485 - Fix TCO 6.1480, put TT%XFF in dynamic storage block.
; UPD ID= 1714, SNARK:<6.MONITOR>TTPHDV.MAC.78, 28-Jan-83 10:56:17 by MURPHY
;More 6.1390 - Add dummy symbol if no FE code.
; UPD ID= 1711, SNARK:<6.MONITOR>TTPHDV.MAC.77, 27-Jan-83 22:58:02 by WEAVER
;TCO 6.1480 - Only send XOFF/XON status to front-end if TTXFF (XOFF FORCE)
;is set.
; UPD ID= 1572, SNARK:<6.MONITOR>TTPHDV.MAC.76, 27-Dec-82 08:30:12 by GRANT
;TCO 6.1426 - When closing an NVT connection, don't undo TTPRM if the line
; is an MCB TTY or the CTY
; UPD ID= 1533, SNARK:<6.MONITOR>TTPHDV.MAC.75, 14-Dec-82 09:55:48 by MURPHY
;TCO 5.1.1114 - Index needed at SNDXN2+8L to fix XOFF/XON for incoming chars.
; UPD ID= 1489, SNARK:<6.MONITOR>TTPHDV.MAC.74, 30-Nov-82 11:45:34 by WEAVER
;TCO 6.1393 - Use Break Through Write to send XONs and XOFFs to a line
; UPD ID= 1485, SNARK:<6.MONITOR>TTPHDV.MAC.73, 29-Nov-82 13:36:14 by MURPHY
;TCO 6.1390 - Shut off 20F line if more than 2 noise characters in 1 second.
; UPD ID= 1332, SNARK:<6.MONITOR>TTPHDV.MAC.72, 13-Oct-82 07:04:19 by GRANT
;More of previous edit - fix bug in TNTCLS's debugging code
; UPD ID= 1312, SNARK:<6.MONITOR>TTPHDV.MAC.71, 9-Oct-82 10:28:22 by GRANT
;TCO 5.1.1089 - Rewrite TNTCLS, save link IDs rather than LL block addresses
; UPD ID= 1086, SNARK:<6.MONITOR>TTPHDV.MAC.70, 16-Aug-82 14:31:44 by MURPHY
;TCO 6.1202 - Pass proper arg to TTCBF9 at TINET3.
; UPD ID= 994, SNARK:<6.MONITOR>TTPHDV.MAC.69, 18-Jul-82 13:52:18 by MURPHY
;TCO 5.1.1048 - Add TTCLSH to clear "set host" state when closing LL.
; UPD ID= 991, SNARK:<6.MONITOR>TTPHDV.MAC.68, 18-Jul-82 13:30:31 by MURPHY
;TCO 5.1.1047 - Put NOSKED before call to TNTCLS to interlock ULLCZQ.
; UPD ID= 990, SNARK:<6.MONITOR>TTPHDV.MAC.67, 18-Jul-82 13:28:02 by MURPHY
;TCO 5.1.1046 - Check TTNUS before call to TNUREC.
; UPD ID= 970, SNARK:<6.MONITOR>TTPHDV.MAC.66, 30-Jun-82 08:55:45 by GRANT
;TCO 5.1.1038 - Remove CALL SQIACK in DECnet NVT processor
; UPD ID= 328, SNARK:<6.MONITOR>TTPHDV.MAC.58, 19-Jan-82 15:23:21 by MURPHY
;TCO 5.1688 - report TTYSTP only once per line
; UPD ID= 851, SNARK:<6.MONITOR>TTPHDV.MAC.65, 6-Jun-82 13:29:44 by MURPHY
;TCO 6.1147 - Move bugdefs from BUGS.MAC to here and put them in-line.
; UPD ID= 819, SNARK:<6.MONITOR>TTPHDV.MAC.64, 3-Jun-82 07:42:18 by GRANT
;TCO 6.1154 - Fix failure return from CALL SNDCHK in MCSTRO.
;Change comment in CHKLLT.
; UPD ID= 800, SNARK:<6.MONITOR>TTPHDV.MAC.63, 1-Jun-82 08:31:46 by GRANT
;TCO 6.1148 - Remove code which breaks DECnet connection when a character is
;received on a line on which there is no job
; UPD ID= 771, SNARK:<6.MONITOR>TTPHDV.MAC.62, 19-May-82 17:20:19 by MILLER
;TCO 6.1066 AGAIN. Make RSP output work in secondary protocol
; UPD ID= 505, SNARK:<6.MONITOR>TTPHDV.MAC.61, 16-Mar-82 07:01:10 by MILLER
; UPD ID= 476, SNARK:<6.MONITOR>TTPHDV.MAC.60, 13-Mar-82 14:49:59 by MILLER
;TCO 6.1066 AGAIN. Add some of the RSP support code
; UPD ID= 458, SNARK:<6.MONITOR>TTPHDV.MAC.59, 11-Mar-82 11:47:06 by MILLER
;TCO 6.1066. Make MCSRV internal
; UPD ID= 328, SNARK:<6.MONITOR>TTPHDV.MAC.58, 19-Jan-82 15:23:21 by MURPHY
;TCO 5.1688 - report TTYSTP only once per line
; UPD ID= 150, SNARK:<6.MONITOR>TTPHDV.MAC.57, 21-Oct-81 12:14:07 by GRANT
;TCO 5.1594 - Move code from MCTYI2 and MCTYI3 into NSPSRV
; UPD ID= 193, SNARK:<5.MONITOR>TTPHDV.MAC.56, 17-Sep-81 13:19:49 by GRANT
;Reinstate the UPD ID=153 edit. Also, it should say TCO 5.1490 no 5.1409
; UPD ID= 172, SNARK:<5.MONITOR>TTPHDV.MAC.55, 14-Sep-81 13:44:20 by GRANT
;Temporarily undo previous edit
; UPD ID= 153, SNARK:<5.MONITOR>TTPHDV.MAC.54, 8-Sep-81 17:31:11 by GRANT
;Needed for TCO 5.1490 - Remove segment number handling in MCTYI3
; UPD ID= 172, SNARK:<5.MONITOR>TTPHDV.MAC.55, 14-Sep-81 13:44:20 by GRANT
;Temporarily undo previous edit
; UPD ID= 153, SNARK:<5.MONITOR>TTPHDV.MAC.54, 8-Sep-81 17:31:11 by GRANT
;Needed for TCO 5.1409 - Remove segment number handling in MCTYI3
;Minor changes needed for handling LLOMSG queue in MCTYI3 and MCTYI2
; UPD ID= 138, SNARK:<5.MONITOR>TTPHDV.MAC.53, 2-Sep-81 16:38:01 by GRANT
;Eliminate cause of OKSKBG BUGHLT - in TNHCLS, NOSKED before calling TTCOB5
; UPD ID= 2307, SNARK:<5.MONITOR>TTPHDV.MAC.52, 8-Jul-81 11:20:59 by MURPHY
;CALL REQNS INSTEAD OF TNUSND FROM TTCHI
; UPD ID= 2295, SNARK:<5.MONITOR>TTPHDV.MAC.51, 6-Jul-81 13:50:54 by MURPHY
;DEBUG CODE TO RECORD DEAD LINKS
;PROCESS ALL INPUT IN TINET BEFORE QUITTING
; UPD ID= 2269, SNARK:<5.MONITOR>TTPHDV.MAC.50, 29-Jun-81 17:48:31 by MURPHY
;ANTX01
; UPD ID= 2190, SNARK:<5.MONITOR>TTPHDV.MAC.49, 11-Jun-81 15:59:54 by MURPHY
;CHANGE TQNx TO TMNx REFLECTING CHANGE IN MACSYM
;DITTO
; UPD ID= 1867, SNARK:<5.MONITOR>TTPHDV.MAC.45, 21-Apr-81 23:41:55 by MURPHY
;DITTO
; UPD ID= 1865, SNARK:<5.MONITOR>TTPHDV.MAC.44, 21-Apr-81 18:29:43 by MURPHY
;DITTO
; UPD ID= 1830, SNARK:<5.MONITOR>TTPHDV.MAC.43, 17-Apr-81 14:19:33 by MURPHY
;MAKE LINE SHUTOFF FOR 5 SECONDS INSTEAD OF 3
;REVISE SENDALL LOGIC
;REVISE STARTUP LOGIC
; UPD ID= 1752, SNARK:<5.MONITOR>TTPHDV.MAC.42, 20-Mar-81 13:32:21 by MURPHY
;Ditto
; UPD ID= 1745, SNARK:<5.MONITOR>TTPHDV.MAC.41, 19-Mar-81 23:11:04 by MURPHY
;Fix problems with line shut-off and XOFF/XON logic.
; UPD ID= 1663, SNARK:<5.MONITOR>TTPHDV.MAC.40, 11-Mar-81 16:30:30 by MURPHY
;Fix up some failures of DTEQ which were not handled
; UPD ID= 1554, SNARK:<5.MONITOR>TTPHDV.MAC.39, 11-Feb-81 17:33:25 by MURPHY
;MAKE SURE LINE GETS RESTARTED AFTER STOP BECAUSE INBFR OR TTBBUF FULL
; UPD ID= 1550, SNARK:<5.MONITOR>TTPHDV.MAC.38, 10-Feb-81 17:57:41 by MURPHY
;FIX XOFF DURING SYSTEM STARTUP PROBLEM
;CHANGE NAMES TO BLSUB., BLCAL.
;DITTO
; UPD ID= 1477, SNARK:<5.MONITOR>TTPHDV.MAC.35, 22-Jan-81 12:24:13 by MURPHY
;FIX TTQAD PROBLEMS
; UPD ID= 1377, SNARK:<5.MONITOR>TTPHDV.MAC.34, 22-Dec-80 18:25:37 by MURPHY
;<5.MONITOR>TTPHDV.MAC.33, 17-Dec-80 18:10:33, EDIT BY MURPHY
;TNUREC
; UPD ID= 1361, SNARK:<5.MONITOR>TTPHDV.MAC.32, 17-Dec-80 15:46:27 by MURPHY
;CHKLLT
;<5.MONITOR>TTPHDV.MAC.31, 12-Dec-80 11:11:34, EDIT BY MURPHY
;<5.MONITOR>TTPHDV.MAC.30, 12-Dec-80 10:34:51, EDIT BY MURPHY
;<5.MONITOR>TTPHDV.MAC.29, 12-Dec-80 10:23:26, EDIT BY MURPHY
;FLOW CONTROL
;<5.MONITOR>TTPHDV.MAC.28, 9-Dec-80 15:16:03, EDIT BY MURPHY
;CKMCOU
;<5.MONITOR>TTPHDV.MAC.27, 5-Dec-80 16:49:34, EDIT BY MURPHY
;VARIOUS MCB FIXES AND ENHANCEMENTS
;<5.MONITOR>TTPHDV.MAC.25, 24-Nov-80 16:46:49, EDIT BY MURPHY
;Requeue line if SQILS or SQIACK fails
;<5.MONITOR>TTPHDV.MAC.24, 21-Nov-80 18:29:16, EDIT BY MURPHY
;FLUSH LINK IF INPUT AND NO JOB
; UPD ID= 1301, SNARK:<5.MONITOR>TTPHDV.MAC.23, 19-Nov-80 17:05:35 by MURPHY
;LOCAL XON,XOFF OPTION FOR NVTS
; UPD ID= 1290, SNARK:<5.MONITOR>TTPHDV.MAC.22, 18-Nov-80 16:45:45 by MURPHY
;<5.MONITOR>TTPHDV.MAC.21, 31-Oct-80 17:37:34, EDIT BY MURPHY
;<5.MONITOR>TTPHDV.MAC.20, 30-Oct-80 22:59:18, EDIT BY MURPHY
;<5.MONITOR>TTPHDV.MAC.19, 21-Oct-80 12:10:07, EDIT BY MURPHY
;<5.MONITOR>TTPHDV.MAC.18, 20-Oct-80 17:12:52, EDIT BY MURPHY
;<5.MONITOR>TTPHDV.MAC.17, 20-Oct-80 14:40:25, EDIT BY MURPHY
;<5.MONITOR>TTPHDV.MAC.16, 7-Oct-80 15:27:36, EDIT BY MURPHY
;<5.MONITOR>TTPHDV.MAC.15, 6-Oct-80 11:32:21, EDIT BY MURPHY
; UPD ID= 1126, SNARK:<5.MONITOR>TTPHDV.MAC.14, 5-Oct-80 15:02:40 by MURPHY
;DITTO
;<5.MONITOR>TTPHDV.MAC.13, 3-Oct-80 14:04:57, EDIT BY MURPHY
; UPD ID= 1120, SNARK:<5.MONITOR>TTPHDV.MAC.12, 3-Oct-80 12:21:22 by MURPHY
;DITTO
; UPD ID= 1113, SNARK:<5.MONITOR>TTPHDV.MAC.11, 3-Oct-80 01:00:51 by MURPHY
;NVT IMPROVEMENTS
; UPD ID= 1077, SNARK:<5.MONITOR>TTPHDV.MAC.10, 1-Oct-80 10:37:44 by MURPHY
;RELEVANT END STATEMENTS FOR STKVAR, ETC.
; UPD ID= 1063, SNARK:<5.MONITOR>TTPHDV.MAC.9, 30-Sep-80 10:16:58 by MURPHY
;DITTO
; UPD ID= 1057, SNARK:<5.MONITOR>TTPHDV.MAC.8, 26-Sep-80 12:13:03 by MURPHY
;MCB FIXES
; UPD ID= 944, SNARK:<5.MONITOR>TTPHDV.MAC.7, 20-Aug-80 20:09:15 by MURPHY
;MCB FIXES
; UPD ID= 925, SNARK:<5.MONITOR>TTPHDV.MAC.6, 20-Aug-80 10:21:12 by MURPHY
;INCLUDE MCB DEVICE
; UPD ID= 699, SNARK:<5.MONITOR>TTPHDV.MAC.5, 25-Jun-80 17:23:34 by MURPHY
;REMOVE TTDBEF REDUNDANT SUBROUTINE
;MERGE TTFEDV AND TTDZDV FILES INTO TTPHDV
;CHANGE DEVICE VECTORING
; UPD ID= 645, SNARK:<5.MONITOR>TTFEDV.MAC.4, 16-Jun-80 12:09:09 by MURPHY
;CLEAN UP VECTOR COMMENTS
; UPD ID= 443, SNARK:<5.MONITOR>TTFEDV.MAC.3, 15-Apr-80 09:41:02 by KONEN
;TCO 4.1.1143 -- Check for XOFF before storing character in big buff.
; UPD ID= 405, SNARK:<5.MONITOR>TTFEDV.MAC.2, 3-Apr-80 16:06:55 by HALL
;CHANGES TO WRITE-PROTECT THE RESIDENT MONITOR:
; CHANGE ALL REFERENCES TO TT1LIN TO EXPECT A TABLE
;<4.1.MONITOR>TTFEDV.MAC.52, 16-Nov-79 11:29:17, EDIT BY MILLER
;ASGALL NOW SKIPS
;<4.MONITOR>TTFEDV.MAC.51, 1-Nov-79 17:15:09, EDIT BY MILLER
;Previous edit lines deleted
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED
;OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1976, 1985.
;ALL RIGHTS RESERVED.
SEARCH TTYDEF,PROLOG
TTITLE (NRTSRV,NRTSRV,< - DECnet Network Remote Terminal Support>)
RESCD
SEARCH D36PAR,SCPAR
;THIS MODULE IS NECESSARY TO SUPPORT THE NETWORK REMOTE TERMINALS (NRT)
;OVER DECnet.
;SPECIAL DEFINITIONS
DEFSTR TTHLL,TTDEV,35,36 ;LOGICAL LINK FOR THIS LINE (HOST SIDE)
;TTULL (USER SIDE) IS DEFINED IN TTYSRV
;NOTE - TTMLN IS NOW DEFINED IN TTYDEF
;NRTACV defines the ACVAR to be used at all entries to NRTSRV, so that
;subroutines can use the ACs with assurance that they are correctly
;assigned.
DEFINE NRTACV,< ACVAR <W1,W2,W3,TDB,NRB,SAB> >
COMMENT @
Theory of NRT Operation
Except for NRTINI, NRTSRV runs only at schedular level, so it needs
little more interlocking.
MCSRV gets called every tick. MCSRV counts down an interval timer. The
timer is reinitialized to some small number, say 3, every time it expires.
MCSRV only runs after its interval counter expires for two reasons:
it imposes less overhead if it runs less often, and it lets more input
& output build up and thus fills the DECnet messages better than it
would if it ran more frequently. It is important that it run often
enough that the user not see any delay, the optimum setting seems to
be around 3 to 5 ticks.
When the interval timer expires, MCSRV checks for service requests. It
checks for both input and output ready on any line for which service is
requested.
A word about NETHOST and NETUSER
In this program the term NETHOST will be used for the computer which runs a
job or provides other computing resources. The term NETUSER will be used
for the computer to which a terminal is attached.
@
;NRT Data Base Definitions
;The NRB is the NRT Data Block. One is allocated for each active
;link to hold data associating the DECnet link with a TDB.
BEGSTR NR ;USUALLY INDEXED BY REGISTER NRB
WORD TDB ;DYNAMIC PTR TO ASSOCIATED TDB
FIELD FLG,6 ;FLAGS
BIT CFG ;SET IF CONFIG MSG HAS BEEN SENT
BIT REL ;THIS NRB IS BEING RELEASED
BIT USR ;0=NETHOST LINK, 1=USER NETLINK
BIT TRN ;THIS NRB IS IN TRANSITION
BIT DEA ;DEALLOCATE TDB.
FIELD CHN,12 ;DECnet CHANNEL NUMBER
HWORD STS ;CURRENT STATUS OF DECnet LINK
WORD SJB ;POINTER TO THIS LINK'S SJB
HWORD SIZ ;MAX CHARS IN A SEGMENT ON THIS LINK
HWORD PSI ;SCJSYS'S ORIGINAL PSI MASK FOR NETUSER LINK
HWORD RID ;Remotes node ID
; HWORD INA ;INACTIVITY TIMER FOR NETHOST LINK
ENDSTR
;RESIDENT STORAGE
NRTOBJ==^D23 ;NRT OBJECT TYPE
NRTINT==3 ;TICKS BETWEEN NRT SERVICE CHECKS
INACTIVITY==^D120 ;SECS 'TIL INACTIVE LINK IS DISCONNECTED
;The length of the record and the max record we will send are separately
;defined so that the compiled-in record buffer can be larger than the actual
;record we send so that we can poke the max to a larger value for performance
;tests to systems we know can handle the size.
NRTRML==^D500 ;BYTES IN A NRT MESSAGE
NRTMXC==^D500 ;MAX LENGTH OF MESSAGE WE WILL SEND
IFG NRTMXC-NRTRML,NRTMXC==NRTRML ;ASSURE WE DON'T GET CARRIED AWAY
RSI NRTDFT,<<FLD(^D9,PDGOL) ! FLD(^D6,PDDQT) ! FLD(^D50,PDIPR)>>
RSI NRTMAX,NRTMXC ;MAX SIZED RECORD WE'LL SEND (POKABLE)
RSI NRTINA,INACTIVITY ;NUMBER OF SECONDS INACTIVITY ALLOWED
RSI NRTINL,NRTINT ;NUMBER OF TICKS BETWEEN NRT SERVICES
RS NRTPSQ,1 ;FLAG TELLING MCSRV TO CALL SCTPSQ
RS NRTINC,1 ;NRT INTERVAL COUNTER, SEE MCSRV
RS NRTCWN,1 ;NRB FOR NRT LINK IN CW STATE
RS NRTSJP,1 ;PTR TO NRT HOST'S SJB
RS NRTSAP,1 ;PTR TO NRT'S SAB
RS NRTBLW,1 ;SAVED NRB PTR FOR BLOCKED LINK
RS NRTBLP,2 ;SAVED BYTE PTR " " "
RS NRTBLC,1 ;SAVED BYTE COUNT " " "
RS NRTRCO,<<NRTRML+3>/4> ;PLACE TO BUILD OUTPUT RECORD
RS NRTRCI,<<NRTRML+3>/4> ;PLACE TO BUILD INPUT RECORD
;CALLED FROM STRTOU, TELL MCSRV THAT TTYSRV HAS OUTPUT TO GO
; T2/ TTY DYNAMIC DATA BLOCK ADDRESS
; RETURN +2 TO PREVENT NORMAL OUTPUT START ACTION
;TTOTP is set here for MCB (NETHOST) lines and it is cleared in TTSND
;in TTYSRV when it has been called to send the last char, thus TTOTP
;is set while this line has a REQNS request pending. The only reason
;to set TTOTP for MC lines is to prevent the overhead of REQNS calls
;for every character output.
MCSTRO::CALL REQNS ;REQUEST MCSRV SERVICE AT SCHED LEVEL
SETONE TTOTP,(T2) ;OUTPUT IN PROGRESS, DON'T START AGAIN
RETSKP ;'ALL DONE' RETURN
;SET UP TTY CHARACTERISTICS, GIVE US PLENTY OF OUTPUT BUFFERS, SINCE
;NETWORK SHOULD BE A FAST LINE.
;RETURNS +2 ALWAYS WITH
; T3/ SPEED TO THINK OF THIS LINE HAS HAVING WHEN IT COMES TO ALLOCATION
; T4/ NUMBER OF BUFFERS TO ALLOCATE
NRTSOF::MOVEI T3,^D9600 ;USE BUFFERS LIKE A FAST LINE
MOVE T4,IBFRC1
RETSKP
;CLEAR OUTPUT BUFFER - SEND ROTO-ROOTER DOWN LINE
; T2/ DYNAMIC PTR
MCCOBF::RET
;SEND XON - SEND ALLOCATION TO ALLOW USER TO SEND MORE INPUT IF NECESSARY
; T2/ STATIC PTR (LINE NUMBER)
MCSXON::RET
;SKIP IF OUTPUT BUFFER NOT EMPTY - CHECK FOR ALL ACKS, ETC.
; T2/ DYNAMIC PTR
MCSBEF::RET
;SEE IF SENDALL SHOULD HAPPEN ON SPECIFIED LINE
; T2/ STATIC PTR (LINE NUMBER)
; RETURN +1: SKIP THIS LINE
; RETURN +2: T2/ LINE NUMBER = DO THIS LINE
; T2/ -1 = SKIP ALL LINES OF THIS TYPE
MCCKSA::SKIPG TTACTL(T2) ;LINE ACTIVE?
RET ;NO, SKIP IT
RETSKP
;HANGUP - BREAK CONNECTION, ETC.
; T2/ STATIC PTR (LINE NUMBER)
MCHNGU::SAVEAC <T2>
CALL STADYN
RET ;ALREADY GONE
LOAD T1,TTHLL,(T2)
JUMPE T1,RTN ;IN CASE ALREADY GONE
SETONE NRREL,(T1) ;MARK LINE AS READY TO BE RELEASED
CALLRET REQNS ;REQUEST NRT SERVICE AT SCHED LEVEL
;CHECK FOR OUTPUT POSSIBLE ON LINE
;OUTPUT NOT POSSIBLE IF LOGICAL LINK HAS BEEN CLOSED
; T2/ DYNAMIC PTR
; RETURN +1: OUTPUT NOT POSSIBLE
; +2: OUTPUT OK
CKMCOU::TMNN TTHLL,(T2) ;LL STILL THERE?
RET ;NO
RETSKP ;YES
;ENABLE/DISABLE XOFF HANDLING IN USER SIDE
; T2/ DYNAMIC PTR
; TTFLGS(T2)/ TT%PGM BIT - ON IF LINE IN PAGE MODE
MCEXF:: RET
;TURN LINE OFF ON RECEIPT OF XOFF
; T2/ DYNAMIC PTR
MCLNOF: RET
;TURN LINE ON AGAIN AFTER XOFF
MCLNON::RET
;CLOSE NET HOST CONNECTION
; T2/ TDB
;NRTWAK - Called when SCLINK thinks we might want to wake the user
;
; Call: T1/ Old Status,,PSI Mask (with TTY static line # in it)
; T2/ New Status,,Channel Number
; T3/ Pointer to Session Control Job Block
; T4/ Link identifier to pass to SCTWKQ
;
; Return:
; RET ;Only return
;
; Uses: T1,T2,T3,T4
;
;SCLINK calls this routine (via SAWKA) when either the link state has changed
;or one of the status bits has changed from a zero to a one.
;
;If we have a terminal line associated with this logical link, its static line
;number will be in the PSI mask field in T1. In this case, we don't have to
;ask DECnet to remember the wake for us, since it is simpler to call REQNS to
;request a call to MCSRV at schedular level. That way both input and output
;wakes will go to the same place.
;
;If we do not yet have a teminal line, then this wake must be telling us of a
;connect message which matched a link in connect wait state. In this case, we
;must call SCTWKQ to get DECnet to remember the wake for us.
;SCJSYS CALLS NRTWAK FOR NETUSER LINKS
;NRTNSF PASSES THIS ADDR TO SCLINK
NRTWAK:: ; FOR NRTSRV'S NETHOST LINES
HRRZ T2,T1 ;GET LINE NUMBER THAT WE STORED IN PSI MASK
JUMPN T2,NRTWK1 ;JUMP IF WE HAVE A LINE NUMBER
;Here if we have a wake from a link in Connect Received state, for which
;we cannot yet have a terminal line number.
MOVE T1,T4 ;PASS LINK ID TO SCTWKQ
CALL SCTWKQ ;ASK DECNET TO REMEMBER THIS LINK FOR US
SETOM NRTPSQ ;CALL SCTPSQ NEXT MCSRV CALL
RET ;RETURN TO DECNET
;Here if we have a wake from a link for which we already have a terminal
;line number.
NRTWK1: ANDI T2,77777 ;REDUCE TO LINE NUMBER ONLY
CALL STADYN ;CHANGE T2 TO DYNAMIC POINTER
RET ;NOPE, MUST BE DETACHING OR CLOSING
CALLRET REQNS1 ;(T2) REQUEST MCSRV SERVICE FOR LINE
;RETURN TO DECNET
;LOCAL ROUTINE TO REQUEST SUBSEQUENT SERVICE
; T2/ DYNAMIC PTR
; PRESERVES ALL ACS
REQNS:: SAVEAC <T3,T4> ;PRESERVES ALL ACs
REQNS1: LOAD T3,TINTL,(T2) ;GET LINE NUMBER
IDIVI T3,^D36 ;FIND Nth BIT
MOVE T4,BITS(T4) ; IN TABLE
IORM T4,TNETRQ(T3) ;SET REQUEST FLAG FOR MCSRV
RET ;ONLY RETURN
;NRTHBR - Subroutine to do the HIBERs.
;NRTHBR - Called by SCLINK to dismiss
;
; Call:
; T1/ Pointer to SJB
;
; Return:
; RET ;ONLY RETURN
;
; Uses: T1
NRTHBR: BUG.(CHK,NVTNHB,TTPHDV,SOFT,<NRTHBR should never be called>,,<
Cause: DECnet has called NRT's host service at its "hiber" address.
This should never happen, since NRT always uses asynchronous
calls to DECnet.
Action: Find a DECnet call which has the .NSWAIt flag on and turn it
off, being sure that the surrounding code can handle asynch
I/O. If none is found, DECnet must be in error.
>)
;TTSETH - Called from SCJSYS to connect a DECnet link to a TTY line
;
; T1/ Flags,,Escape Character
; T2/ TTY Line Number
; T3/ SJB Pointer for DECnet Link
; T4/ PSI MASK to restore on escape,,DECnet Channel Number
; RETURN +1: Failed, Invalid TTY Line or no memory for NRB
; +2: OK
;This function is called by the MTOPR .MOSNH to connect a TTY line to
;a DECnet link, both of which are already running. The MTOPR is used
;by programs which SET HOST using the LCB NRT protocol. TTYSRV
;detects the escape character and breaks the connection.
TTSETH::NRTACV ;ACVAR <W1,W2,W3,TDB,NRB,SAB>
MOVE W1,T1 ;SAVE FLAGS,,ESCAPE CHAR
MOVE W2,T3 ;SAVE SJB PTR
MOVE W3,T4 ;SAVE PSI MASK,,DECNET CHANNEL NUMBER
CALL STADYN ;(T2)CHECK LINE, GET TDB
RETBAD(ATSX27) ;TERMINAL IS NOT OPEN
MOVE TDB,T2 ;SAVE DYNAMIC PTR TO TERMINAL DATA BLOCK
MOVX T1,SA.LEN ;GET AN
XCALL (XCDSEC,DNGWDZ) ; SAB
RETBAD (NSPX01) ;RESOURCE ALLOCATION FAILURE
MOVE SAB,T1 ;SAVE SAB POINTER
; W1/ Flags,,Escape Character
; W2/ SJB Pointer for DECnet link to be spliced
; W3/ PSI Mask,,DECnet Channel Number
; TDB/ Dynamic TDB Pointer for TTY to be spliced
; SAB/ Pointer to private SAB
MOVEI T1,NR.LEN ;LENGTH (WORDS) OF A NRT BLOCK
XCALL (XCDSEC,DNGWDZ) ;GET SPACE
RETBAD(NSPX01) ;RESOURCE ALLOCATION FAILURE
MOVE NRB,T1 ;POINTER TO NEW NRB
STOR W3,NRCHN,(NRB) ;STORE DECnet CHANNEL NUMBER
HLRZS W3 ;GET SCJSYS'S PSI MASK INTO RIGHT HALF
STOR W3,NRPSI,(NRB) ;SAVE FOR TNUESC
SETONE <NRUSR,NRCFG>,(NRB) ;THIS IS A USER LINK (FROM SET HOST PROGGIE)
; WHICH DOESN'T SEND CONFIG MESSAGES
STOR W2,NRSJB,(NRB) ;STORE USER'S SJB POINTER FOR NRTNSF
STOR TDB,NRTDB,(NRB) ;STORE ASSOCIATED TDB POINTER IN NRB
LOAD T1,TINTL,(TDB) ;GET STATIC LINE NUMBER AGAIN
TXO T1,1B18 ;FIX THIS NAME! ASSURE NON-ZERO HALF-WORD
STOR T1,SAAA1,(SAB) ;STORE NEW "PSI MASK" = 1B18 ! LINE #
MOVEI T1,.NSFPI ;SET PSI MASK FUNCTION
MOVEI T2,3 ;FUNCTION + CHAN + 1 ARG
CALL NRTNSF ;CALL DECnet
JRST TTSET1 ;?CONNECTION ABORTED BY THIRD PARTY?
;Read link status to find out segment size
CALL NRTRSS ;READ SEGMENT SIZE INTO NRB
JRST TTSET1 ;?CONNECTION ABORTED BY THIRD PARTY?
;Now that the errors are out of the way, its OK to diddle the TDB
SETONE TTPRM,(TDB) ;KEEP THIS TDB UNTIL LL RELEASED
STOR W1,TTUEC,(TDB) ;SAVE ESCAPE CHAR
TXNE W1,SH%LPM ;"LOCAL" PAGE MODE?
IFSKP.
SETZRO TTNPM,(TDB) ;NO
ELSE.
SETONE TTNPM,(TDB) ;YES
ENDIF.
STOR NRB,TTULL,(TDB) ;SAVE PTR TO 'USER' NRB
SETONE TTNUS,(TDB) ;TELL TTYSRV LINE IS IN NETUSER STATE
MOVE T1,SAB ;RELEASE SAB
XCALL (XCDSEC,DNFWDS)
MOVE T2,TDB ;IF CTERM,
LOAD CX,TLTYP,(T2) ;GET LINE TYPE
CAIN CX,TT.CTH ;CTERM LINE ?
CALL CTHNRT ;YES - POST READ
RETSKP ;SUCCESS RETURN
;Here on error - deallocate SAB and return
TTSET1: MOVE T1,SAB ;RELEASE SAB
XCALL (XCDSEC,DNFWDS)
RETBAD (NSPX08)
ENDAV. ;END ACVAR FOR NRTACV AT NTSNH
;MCSRV - Called every Tick
;Called from configuration-dependent code in STG
;
;Call: No special arguments
; RET ;ALWAYS
;
;Changes T1 through T4
MCSRV:: SOSG NRTINC ;HAS INTERVAL COUNTER EXPIRED YET?
SKIPN NRTSJP ;YES, HAS NRTINI BEEN CALLED?
RET ;NO
SKIPL SCTLOK ;YES, SESSION CONTROL LOCK AVAILABLE?
RET ;NO, TRY EVERY TICK UNTIL WE GET IN NOW
MOVE T1,NRTINL ;YES, GET INTERVAL LENGTH
MOVEM T1,NRTINC ;REINITIALIZE THE INTERVAL COUNTER
NRTACV ;RANGE OF THIS ACVAR <W1,W2,W3,TDB,NRB,SAB>
; IS LONG
MOVE SAB,NRTSAP ;DECnet-DEALING ROUTINES NEED THIS
SKIPN NRTBLW ;IS THERE A BLOCKED LINK?
IFSKP.
CALL NRTUNB ;YES, UNBLOCK IT
RET ;STILL BLK'D, TRY AGAIN NEXT INTERVAL
ENDIF. ;ALL CLEAR NOW, TRY FOR MORE OUTPUT
SKIPN NRTCWN ;IS THERE A LINK IN CW STATE?
CALL NRTNEP ;NO, MAKE ONE IF WE CAN
;We know that we can safely deal with at least one link, since there
;is now no other blocked link, so the worst that can happen is that
;this link will become blocked and we'll have to try it again.
;Call SCTPSQ if there is a connect wait link which just got a connect
;message
SETZ T1, ;LOAD A ZERO TO STORE IN NRTPSQ
EXCH T1,NRTPSQ ;ANY LINKS ON SCTL'S QUEUE?
JUMPE T1,MCSRV2 ;NO
MCSRV1: MOVE T1,NRTSJP ;YES, LOAD PTR TO NRT'S SJB
CALL SCTPSQ ;DEQUEUE NEXT LINK REQUESTING SERVICE
JRST MCSRV2 ;NO MORE
SKIPN NRB,NRTCWN ;GET PTR TO CONNECT-WAITING LINK'S NRB
BUG.(CHK,NVTWWN,TTPHDV,SOFT,<No NRTCWN Connect Wait Wake>,,<
Cause: NRT's host service has been waked for a circuit which has no TTY
line number associated with it, yet there is no NRB for a
logical link in connect wait state.
Action: Either the NRB pointer in NRTCWN has been stepped on or an active
logical link has lost its TTY line number which should be in the
DECnet PSI mask.
>)
LOAD T1,NRCHN,(NRB) ;GET ITS DECnet CHANNEL NUMBER
HRRZS T2 ;ISOLATE CHN OF LINK WE'RE EXAMINING
CAME T1,T2 ;ARE WE DEALING WITH RIGHT LINK?
BUG.(CHK,NVTWWC,TTPHDV,SOFT,<Wrong Channel on Connect Wait Wake>,,<
Cause: NRT's host service has been waked for a circuit which is not
the logical link in connect wait state and which has no TTY
line number associated with it.
Action: Either the connect wait link is out of phase and should be corrected
or an active link has lost its TTY line number which should be
in the DECnet PSI mask.
>)
SETZ TDB, ;RIGHT CHANNEL, NO TTY YET
CALL NRTLKS ;SERVICE THE LINK
JRST MCSRV1 ;CHECK FOR MORE ANSWERS FROM SCTPSQ
;...
;...
;Here to check for active TTY lines
MCSRV2: MOVSI W1,-NTSQWD ;SCAN BIT TABLE FOR NET-USER LINES
MCSRV3: SKIPE T1,TNETRQ(W1)
MCSRV4: JFFO T1,MCSRV5 ;JUMP IF ACTIVE LINE
AOBJN W1,MCSRV3
RET ;ALL LINES QUIET, RETURN TO SCHEDULAR
MCSRV5: MOVE W2,BITS(T2) ;SAVE BIT FOUND
ANDCAM W2,TNETRQ(W1) ;CLEAR REQUEST
HRRZ T3,W1 ;COMPUTE LINE NUMBER
IMULI T3,^D36 ;36 BITS IN A WORD
ADD T2,T3 ;LINE NUMBER IN T2
CALL STADY ;(T2)IS IT ACTIVE?
JRST MCSRV6 ;NO, TRY NEXT
MOVE TDB,T2 ;YES, T2 HAS DYNAMIC PTR FOR LINE
LOAD T1,TLTYP,(TDB) ;GET TYPE OF THIS LINE
CAIE T1,TT.MCB ;IS IT A NRT HOST LINE?
IFSKP.
OPSTR <SKIPE NRB,>,TTHLL,(TDB) ;YES, GET PTR TO ITS HOST NRB
CALL NRTLKS ;GO SERVICE THE LINK
ENDIF.
LOAD NRB,TTULL,(TDB) ;LOAD UP NRB FOR 'USER' LINK
JUMPE NRB,MCSRV6 ;SKIP IT IF NO LINK
TMNE TTNUS,(TDB) ;STILL A NETUSER LINE?
CALL NRTLKS ;YES, GO SERVICE THE LINK
MCSRV6: MOVN T1,W2 ;LOOK AT REST OF BIT WORD ONLY
ANDCA T1,TNETRQ(W1) ;IGNORE EARLIER BITS THAT HAVE COME ON
JRST MCSRV4 ; DURING THIS SCAN
;Routine to service a link according to its DECnet state
;Call
; NRB/ Pointer to NRB
; TDB/ Pointer to TDB
;
;Return:
; RET ;ONLY RETURN
NRTLKS: TMNE NRREL,(NRB) ;IS THIS NRB BEING RELEASED?
CALLRET NRTREL ;YES, COMPLETE THE PROCESS
; SETZRO NRINA,(NRB) ;ZERO THE INACTIVITY TIME
MOVX T1,.NSFRS ;READ STATUS FUNCTION CODE
MOVEI T2,3 ;FUNCTION + CHAN + 1 ARG
CALL NRTNSF ;READ LINK STATUS, STORE IT IN NRB
CALLRET NRTREL ;ERROR, CLEAN UP
LOAD T1,NRSTS,(NRB) ;GET LINK'S STATUS WORD
LOAD T1,NSSTA,+T1 ;GET THE STATE FIELD FROM STATUS
CAILE T1,NJFTLN ;A STATE WE UNDERSTAND?
JRST NJFTBL+0 ;NO, CALL ILLEGAL STATE BUG.
CALLRET @NJFTBL(T1) ;CALL ROUTINE APPROPRIATE TO LINK STATE
DEFINE LNKSTA(code),<
IFN <.-NJFTBL-.NSS'code>,<PRINTX ?NJFTBL is in wrong order for "code">
IFIW NJFR'code ;;ADDRESS OF NJF ROUTINE
>;END DEFINE LNKSTA
NJFTBL: IFIW NJFRIL ;ILLEGAL STATE
LNKSTA CW ;CONNECT WAIT
LNKSTA CR ;CONNECT RECEIVED
LNKSTA CS ;CONNECT SENT
LNKSTA RJ ;REMOTE REJECTED CONNECT INIT
LNKSTA RN ;LINK IS UP AND RUNNING
LNKSTA DR ;DISCONNECT RECEIVED
LNKSTA DS ;DISCONNECT SENT
LNKSTA DC ;DISCONNECT CONFIRMED
LNKSTA CF ;NO CONFIDENCE
LNKSTA LK ;NO LINK
LNKSTA CM ;NO COMMUNICATION
LNKSTA NR ;NO RESOURCES
NJFTLN==.-1-NJFTBL ;LENGTH OF TABLE
PURGE LNKSTA
;Here for the states in which we just wait for something to happen
NJFRCS: ;CONNECT SENT, WAITING FOR CONFIRM/REJECT
NJFRDS: ;DISCONNECT SENT, WAITING FOR DC
NJFRCW: RET ;CONNECT WAIT, WAITING FOR A CONNECT
;Here if the state is illegal
NJFRIL: BUG.(CHK,NVTILS,TTPHDV,SOFT,<NRT link in unexpected state>,,<
Cause: NRT's host service has been called by DECnet for a link in
an unexpected state.
Action: Determine whether the link indeed is in an unexpected state, or
whether it is in a state which NRT must deal. If the former,
the problem is probably in DECnet, if the latter, code must
be added to NRT.
>)
CALLRET NRTREL
;NJFRDR - Service Routine for a link in DISCONNECT RECEIVED state
;
;Call:
; NRB/ Pointer to Link's NRB
; RET ;ALWAYS
;
;The link is in one of the "gone sour" states. Call NRTREL to release
;or unsplice the link.
NJFRRJ: ;REJECTED
NJFRDR: ;DISCONNECT RECEIVED
NJFRDC: ;DISCONNECT CONFIRMED
NJFRCF: ;NO CONFIDENCE
NJFRLK: ;NO LINK
NJFRCM: ;NO COMMUNICATION
NJFRNR: ;NO RESOURCES
CALLRET NRTREL ;RELEASE THE LINK ALTOGETHER
;NJFRCR - Service Routine for a link in CONNECT RECEIVED state
;
;Call:
; NRB/ Pointer to Link's NRB
; RET ;ALWAYS
;
;Now we have someone interested in this link, try to get a TDB for
;it. If that succeeds, accept the link.
NJFRCR: ;CONNECT RECEIVED STATE PROCESSOR
SAVEAC <P1>
SETZM NRTCWN ;NO LINKS IN CW STATE NOW
MOVX T1,RSNACR ;REMOTE NODE ACCESS NOT PERMITTED REASON CODE
MOVE T2,FACTSW ;SEE IF DECNET
TXNN T2,SF%MCB ; LOGINS ALLOWED
JRST NJRCRF ;NO, GO ANNOUNCE THE FAILURE
;Get a TTY for this link
CALL NGTTDB ;GET A NRT TDB
IFNSK.
MOVX T1,RSNRES ;NO RESOURCES REASON CODE IN T1
JRST NJRCRF ;FAILED, REJECT CONNECTION
ENDIF.
;SUCCEEDED, LINE NUMBER IN T1, TDB IN TDB
TXO T1,1B18 ;TELL SCJSYS & SCNSPJ THAT THIS IS MINE
STOR T1,SAAA1,(SAB) ;STORE AS "PSI MASK" FOR PRESENTATION AT
MOVEI T1,.NSFPI ; NRTWAK WHEN SOMETHING INTERESTING HAPPENS
MOVEI T2,3 ;FUNCTION + CHAN + 1 ARG
CALL NRTNSF ;SET THE PSI MASK
CALLRET NRTREL ;ERROR, CLEAN UP
;Get the connect info, which includes the remote host id (node address)
SETZ P1, ;Clear node ID in case we cant get it
MOVEI T1,.NSFRI ;Function is 'read connect info'
MOVEI T2,2 ;Function + channel
CALL NRTNSF ;Get the info
IFSKP. ;Success,
OPSTR <SKIPN T1,>,SACBP,(SAB) ; -get connect block pointer
ANSKP. ; -yes, there is a connect block
LOAD P1,CBNUM,(T1) ; so get the node number
XCALL (XCDSEC,DNFWDS) ; and deallocate the connect block
ENDIF.
STOR P1,NRRID,(NRB) ;Save node address for NTINF% jsys
;Accept the Connect
SETZRO SAAA1,(SAB) ;NO USER DATA
MOVEI T1,NRTRML ;GET MAX BYTES IN OUR RECORD
STOR T1,SAAA2,(SAB) ;USE A MSG SEGMENT NO BIGGER THAN THAT
MOVX T1,NSF.C0 ;ELECT NO FLOW CONTROL FOR INPUT
STOR T1,SAAA3,(SAB) ;ARG #3
MOVX T1,.NSFAC ;ACCEPT FUNCTION CODE
MOVEI T2,5 ;FUNCTION + CHAN + 3 ARGS
CALL NRTNSF ;ACCEPT THE CONNECT
CALLRET NRTREL ;ERROR, CLEAN UP
;Read link status to find out segment size
CALL NRTRSS ;READ SEGMENT SIZE INTO NRSIZ
CALLRET NRTREL ;ERROR, CLEAN UP
CALLRET NRTNEP ;HANG OUT A NEW CONNECT WAIT LINK
;We'll send a configuration message when we get a data request.
;Here on failure in Connect Received state processing
NJRCRF: SETZRO SAAA1,(SAB) ;NO OPTIONAL DATA
STOR T1,SAAA2,(SAB) ;STORE REASON CODE IN ARGUMENT BLOCK
MOVX T1,.NSFRJ ;REJECT FUNCTION CODE
MOVEI T2,4 ;FUNCTION + CHAN + 2 ARGS
CALL NRTNSF ;REJECT THE CONNECT
CALLRET NRTREL ;RELEASE THE LINK
RET ;WE'LL RELEASE LINK WHEN DC COMES IN
;The configuration message sent out when we accept a connect
CFGLEN==10 ;BYTES IN CONFIG MESSAGE
CFGMSG: BYTE(8) 1,1,0,0,10,0,10,0
; Config--' ^ ^ ^ ^ ^ ^ ^
; ? ? ? | ? | ?
; System=TOPS20----' |
; Protocol=TOPS20-------'
;Subroutine to Read link status to find out segment size
;Call:
; SAB/ Pointer to an SAB
; NRB/ Pointer to an NRB
;Return:
; +1 on DECnet error
; +2 on success, with NRSIZ filled in
NRTRSS: MOVX T1,.NSFRS ;READ STATUS FUNCTION CODE
MOVEI T2,3 ;FUNCTION + CHAN + 1 ARG
CALL NRTNSF ;READ LINK STATUS
RET ;PROPOGATE ERROR RETURN
LOAD T1,SAAA1,(SAB) ;GET LINK'S SEGMENT SIZE
CAMLE T1,NRTMAX ;IS THAT TOO BIG FOR US?
MOVE T1,NRTMAX ;YES, LOAD UP OUR MAX
CAILE T1,NRTRML ;HAS SOMEONE POKED THAT TOO BIG?
MOVEI T1,NRTRML ;YES, LIMIT TO SIZE OF RECORD
STOR T1,NRSIZ,(NRB) ;STORE FOR NRTOUT
RETSKP ;SUCCESS RETURN
;NJFRRN - Service Routine for a link in RUN state
;
;Call:
; NRB/ Pointer to Link's NRB
; RET ;ALWAYS
;
;The link is running, see if any traffic needs to be transferred.
NJFRRN: ;LINK IS UP AND RUNNING
LOAD TDB,NRTDB,(NRB) ;GET PTR TO TDB
;First, try some input, may free up some DECnet buffers for output
LOAD T1,NRSTS,(NRB) ;GET DECnet STATUS LAST TIME WE HEARD
NJFRR1: TXNN T1,NSNDA ;NORMAL DATA AVAILABLE?
JRST NJFRR2 ;NO, TRY OUTPUT
CALL NRTIN ;YES, TRY TO READ SOME
JFCL ;IGNORE ERROR HERE
;See if there is any output requested and allowed now. If we are not
;allowed to send to DECnet now, we exit without calling REQNS. When
;DECnet again has resources and data requests for this link, it will
;call NRTWAK, which will call REQNS, so we don't need to poll every
;NRT cycle.
NJFRR2: LOAD T1,NRSTS,(NRB) ;GET DECnet STATUS LAST TIME WE HEARD
TXNN T1,NSNDR ;NORMAL DATA REQUESTED?
RET ;NO, ALL DONE WITH THIS LINK
TMNE NRCFG,(NRB) ;NEED TO SEND A CONFIG MESSAGE?
IFSKP.
CALL SNDCFG ;YES, DO SO NOW AND SET NRCFG FLAG
RET ;ERROR, DON'T LOOP FOREVER
JRST NJFRR2 ;SEE IF WE CAN STILL SEND MORE
ENDIF.
CALL NRTOUT ;NO, TRY TO SEND SOME DATA
TRNA ;BLOCKED, CAN'T DO ANY OUTPUT
RET ;SUCCESS, RETURN
;Here if we are blocked and can't output the chars we have ready to go.
MOVE T2,TDB ;SET UP FOR REQNS1
CALLRET REQNS1 ;REQUEST NRT SERVICE AGAIN NEXT CYCLE
;SNDCFG - Send a configuration message
;
;Call:
; NRB/ Pointer to Link's NRB
; TDB/ Pointer to TDB
;
;Return:
; RET ;ERROR
; RETSKP ;SUCCESS
;
;Send a configuration message
SNDCFG: MOVEI T1,CFGLEN ;LENGTH OF MESSAGE TO SEND
STOR T1,SAAA1,(SAB) ;STORE AS FIRST ARG
MOVE T1,[POINT 8,CFGMSG] ;BYTE POINTER TO CONFIG MSG
STOR T1,SAAA2,(SAB) ;STORE BYTE POINTER
SETONE SAEOM,(SAB) ;SEND THIS MESSAGE NOW
MOVX T1,.NSFDS ;DATA SEND FUNCTION
MOVEI T2,5 ;FUNCTION + CHAN + 3 ARGS
CALL NRTNSF ;SEND CONFIG MESSAGE
RET ;ERROR, MAYBE TRY AGAIN LATER
TMNN SAAA1,(SAB) ;IS REMAINING SEND COUNT ZERO?
IFSKP. ;NO, COMPLAIN AND RETURN ERROR
BUG.(CHK,NVTPCL,TTPHDV,SOFT,<Partial Configuration Msg Loss>,,<
Cause: NRT's host service failed to send the configuration message in
a single DECnet message segment.
Action: If the message segment size for the link is really less than
ten bytes, it should probably be enlarged, else the code will
have to deal with the possibility of segmented configuration
messages.
>)
RET ;ERROR RETURN
ENDIF.
SETONE NRCFG,(NRB) ;YES, CONFIGURATION MSG HAS BEEN SENT
RETSKP ;SUCCESS RETURN
;NRTOUT - Try to do some output from TTYSRV to DECnet
;
;Call, when DECnet is ready to receive from us:
; NRB/ Pointer to Link's NRB
; TDB/ Pointer to TDB
; SAB/ Pointer to NRT's SAB
;Return:
; RET ;BLOCKED, TRY AGAIN LATER
; RETSKP ;SUCCESS
NRTOUT: SAVEAC <W1,W2,W3>
NRTOT1: LOAD W1,NRSIZ,(NRB) ;GET MAX BYTES IN A SEGMENT ON LINK
JUMPE W1,RTN ;DON'T GET CONFUSED BY ZERO-LENGTH RECORD
MOVE W2,[POINT 8,NRTRCO] ;BYTE POINTER TO RECORD WE'LL SEND
XMOVEI W3,TTSND ;ASSUME WE'RE SENDING FROM OUTPUT STREAM
TMNE NRUSR,(NRB) ;IS THIS A NETUSER LINK?
XMOVEI W3,GTTCI ;YES, WE'RE SENDING FROM INPUT STREAM
NRTOT2: MOVE T2,TDB ;PASS DYNAMIC PTR TO TTSND
CALL 0(W3) ;GET A CHAR FROM BIGBUF
JRST NRTOT3 ;NO MORE, SEND WHAT WE'VE COLLECTED
IDPB T1,W2 ;STORE BYTE IN NRTRCO
SOJG W1,NRTOT2 ;GET MORE WHILE THERE'S ROOM
LOAD W2,NRSIZ,(NRB) ;GET MAX AGAIN
CALL NRTOTS ;SEND THAT MUCH
RET ;BLOCKED, TRY AGAIN LATER
LOAD T1,NRSTS,(NRB) ;GET DECnet STATUS AFTER LAST SEND
TXNN T1,NSNDR ;NORMAL DATA STILL REQUESTED?
RETSKP ;NO, OUTPUT OK CALL TO NRTWAK WILL RESTART
JRST NRTOT1 ;YES, TRY FOR MORE
NRTOT3: LOAD W2,NRSIZ,(NRB) ;GET MAX AGAIN
SUB W2,W1 ;CALC NUMBER WE COPIED
JUMPLE W2,NRTOTX ;SUCCESS RETURN NOW IF NONE
;FALL THROUGH TO NRTOTS TO SEND
;Subroutine to send data for NRTOUT
NRTOTS: STOR W2,SAAA1,(SAB) ;STORE LENGTH OF DATA TO SEND
MOVX T1,<<POINT 8,>!1B12> ;MAKE A 2-WORD BYTE POINTER
STOR T1,SAAA2,(SAB) ;STORE AS FIRST WORD OF BYTE POINTER
XMOVEI T1,NRTRCO ;GET EXTENDED ADDR OF RECORD
STOR T1,SAAA3,(SAB) ;STORE AS 2ND WORD OF BYTE POINTER
SETONE SAEOM,(SAB) ;SET THE END-OF-MESSAGE FLAG
MOVX T1,.NSFDS ;DATA SEND FUNCTION
MOVEI T2,5 ;FUNCTION + CHAN + 3 ARGS
CALL NRTNSF ;SEND THE DATA TO DECnet
JRST NRTOTE ;ERROR, GO DEAL WITH IT
LOAD T1,SAAA1,(SAB) ;GET COUNT OF BYTES LEFT TO SEND
JUMPE T1,NRTOTX ;SUCCESS RETURN NOW IF ALL SENT
;Here when the link is blocked (DECnet is out of buffers)
MOVEM NRB,NRTBLW ;SAVE PTR TO BLOCKED LINK
MOVEM T1,NRTBLC ;SAVE COUNT OF BYTES STILL TO SEND
LOAD T1,SAAA2,(SAB) ;GET BYTE POINTER
LOAD T2,SAAA3,(SAB) ;GET SECOND WORD OF BYTE POINTER
DMOVEM T1,NRTBLP ;SAVE BYTE PNTR FROM WHICH TO SEND
RET ;FAIL RETURN: WE'RE BLOCKED
NRTOTE: LOAD T1,SAAST,(SAB) ;GET NEW STATUS
LOAD T1,NSSTA,+T1 ;GET THE STATE FIELD FROM STATUS
CAIE T1,.NSSRN ;IN RUN STATE?
IFSKP. ;IF NOT, DON'T COMPLAIN
BUG.(CHK,NVTOUT,TTPHDV,SOFT,<NRT output to DECnet failed>,,<
Cause: An output call to DECnet's SCTNSF entry point failed unexpectedly.
Action: Examine the DECnet error code in register T1.
>)
CALLRET NRTREL
ENDIF.
NRTOTX: RETSKP ;DON'T COMPLAIN NOW, ITS CLOSING
;NRTUNB - Unblock a link which is blocked trying to output
;
;Call: NRTBLW/ Pointer to NRB of blocked link
; NRTBLC/ Count of bytes still to send
; NRTBLP/ Two-word byte pointer from which to send
;
;Return:
; RET ;If link still blocked, NRTBLx updated
; RETSKP ;If link is now free, NRTBLW zeroed
;
;Uses T1-T4, SAB and the SAB
NRTUNB: SAVEAC NRB
SKIPN NRB,NRTBLW ;GET POINTER TO BLOCKED NRB
RETSKP ;NONE? LEAVE SUCCESSFULLY
MOVE T1,NRTBLC ;GET COUNT OF BYTES TO SEND
STOR T1,SAAA1,(SAB) ;STORE IN SAB
DMOVE T1,NRTBLP ;GET DOUBLE-WORD BYTE PTR
STOR T1,SAAA2,(SAB) ;PASS IN SAB
STOR T2,SAAA3,(SAB) ;PASS SECOND WORD OF BYTE PTR
SETONE SAEOM,(SAB) ;SET THE END-OF-MESSAGE FLAG
MOVX T1,.NSFDS ;DATA SEND FUNCTION
MOVEI T2,5 ;FUNCTION + CHAN + 3 ARGS
CALL NRTNSF ;SEND THE DATA TO DECnet
JRST NRTOTE ;ERROR, GO DEAL WITH IT
LOAD T1,SAAA1,(SAB) ;GET COUNT OF BYTES LEFT TO SEND
JUMPE T1,NRTUN1 ;SUCCESS RETURN NOW IF ALL SENT
;Here when the link is still blocked (DECnet is out of buffers)
MOVEM T1,NRTBLC ;SAVE NEW COUNT OF BYTES STILL TO SEND
LOAD T1,SAAA2,(SAB) ;GET NEW BYTE POINTER
LOAD T2,SAAA3,(SAB) ;GET NEW BYTE POINTER (2ND WORD)
DMOVEM T1,NRTBLP ;SAVE BYTE PNTR FROM WHICH TO SEND
RET ;FAIL RETURN
;Here when the link is unblocked
NRTUN1: SETZM NRTBLW ;NO LINK IS NOW BLOCKED
RETSKP ;SUCCESS RETURN
;NRTIN - Try to do some input from DECnet to TTYSRV
;
;Call, when DECnet has something for us to read:
; NRB/ Pointer to Link's NRB
; TDB/ Points to TDB
; SAB/ Points to NRT's SAB
;Return:
; RET ;IF FATAL ERROR
; RETSKP ;SUCCESS
NRTIN: SAVEAC <W1,W2,W3>
NRTIN1: MOVEI W2,NRTRML ;GET MAX CHARS WE'LL ALLOW AT ONCE
TMNN NRUSR,(NRB) ;IS THIS A NETUSER LINK?
IFSKP.
LOAD T2,TOMAX,(TDB) ;YES, GET OUTBUF SIZE
MOVEI T1,-2(T2) ;LEAVE 2 CHRS SLACK IN OUTBUF CAPACITY
SUB T1,TTOCT(TDB) ;COMPUTE REMAINING OUTBUF CAPACITY
ASH T2,-1 ;AT LEAST HALF THE MAX CAPACITY
CAMGE T1,T2 ; AVAILABLE NOW?
JRST NRTIN4 ;NO, DON'T BOTHER DECNET FOR SMALL STUFF
CAMLE W2,T1 ;YES, WILL NRTRML CHARS FIT IN OUTBUF?
MOVE W2,T1 ;NO, USE SMALLER OF TWO
ENDIF.
STOR W2,SAAA1,(SAB) ;STORE LENGTH OF DATA TO REQUEST FROM NET
;SAVE W2 FOR LENGTH CALC LATER
;At one time, it was thought that we should limit the host input stream
;to the difference between the max chars allowed for this line and the
;current chars in BIGBUF for this line. That did work nicely for
;computer-computer communication, but it made the behavior seen by
;people at terminals odd: the typist who typed too much just saw the
;line hang, even ^C would stick in the DECnet link. So now we just pour
;it all into TTYSRV and let it 'ding' and throw excess chars away.
MOVX T1,<<POINT 8,>!1B12> ;MAKE A 2-WORD BYTE POINTER
STOR T1,SAAA2,(SAB) ;STORE AS FIRST WORD OF BYTE POINTER
XMOVEI T1,NRTRCI ;GET EXTENDED ADDR OF INPUT RECORD
STOR T1,SAAA3,(SAB) ;STORE AS 2ND WORD OF BYTE POINTER
SETZRO SAEOM,(SAB) ;DON'T INSIST ON A WHOLE MESSAGE
; (NRT USES STREAM MODE)
MOVX T1,.NSFDR ;DATA RECEIVE FUNCTION
MOVEI T2,5 ;FUNCTION + CHAN + 3 ARGS
CALL NRTNSF ;GET DATA FROM DECnet
JRST NRTINE ;ERROR, GO DEAL WITH IT
;Now we have some data, give it to TTYSRV
MOVE W1,[POINT 8,NRTRCI] ;GET BYTE POINTER TO NRT'S RECORD
OPSTR <SUB W2,>,SAAA1,(SAB) ;CALC # OF CHARS WE GOT
JUMPE W2,NRTIN3 ;NONE, SEE IF IT WAS A NULL RECORD IN STREAM
XMOVEI W3,TTCHID ;ASSUME WANT TO PUT CHAR IN INPUT STREAM
TMNE NRUSR,(NRB) ;IS IT A NETUSER LINK?
XMOVEI W3,TCOU1 ;YES, WANT TO PUT CHAR IN OUTPUT STREAM
NRTIN2: ILDB T1,W1 ;GET NEXT CHARACTER FROM NRTRCI
MOVE T2,TDB ;GET LINE NUMBER WE'RE FEEDING
CALL 0(W3) ;(T1,T2)PUT CHAR IN APPROPRIATE TTY STREAM
NOP ;IN CASE OF SKIP
SOJG W2,NRTIN2 ;LOOP UNTIL ALL PASSED TO TTYSRV
NRTIN3: LOAD TDB,NRTDB,(NRB) ;RESTORE TDB POINTER TO TDB
LOAD T1,NRSTS,(NRB) ;GET DECnet STATUS AFTER LAST SEND
TXNE T1,NSNDA ;NORMAL DATA STILL AVAILABLE?
JRST NRTIN1 ;YES, GO GET IT
RETSKP ;NO, SUCCESS RETURN NOW
;Here when we have more data from the net, but TTYSRV can't accept it yet.
NRTIN4: MOVE T2,TDB ;SET UP FOR CALL TO REQNS
CALL REQNS ;(T2)CALL FOR SERVICE NEXT TICK
RETSKP ;CALL IT SUCCESS FOR NOW, NO ERRORS
;Here on DECnet error
NRTINE: LOAD T1,SAAST,(SAB) ;GET NEW STATUS
LOAD T1,NSSTA,+T1 ;GET THE STATE FIELD FROM STATUS
CAIE T1,.NSSRN ;IN RUN STATE?
RET ;NO, DON'T COMPLAIN NOW, ITS CLOSING
BUG.(CHK,NVTINP,TTPHDV,SOFT,<NRT Input to DECnet failed>,,<
Cause: An input call to DECnet's SCTNSF entry point failed unexpectedly.
Action: Examine the DECnet error code in register T1.
>)
CALLRET NRTREL
;NRTNEP - Do an Enter Passive to hang out a new DECnet link
;
;Call:
; SAB/ Pointer to NRT's SAB
; NRTSJP/ Pointer to NRT host's SJB
;
;Return:
; RET ;ALWAYS
NRTNEP: SKIPE NRTCWN ;CONNECT WAIT LINK WAITING?
RET ;YES, DON'T HANG OUT ANY MORE
SAVEAC <NRB,W1>
MOVEI T1,NR.LEN ;LENGTH OF A NRB BLOCK
XCALL (XCDSEC,DNGWDZ) ;GET A NEW NRB
RET ;COULDN'T
MOVE NRB,T1 ;POINTER TO NRB
SETZRO NRUSR,(NRB) ;THIS IS A NETHOST LINK
MOVE T1,NRTSJP ;NETHOST ALWAYS USES THIS SJB
STOR T1,NRSJB,(NRB) ;NETUSER USES USER'S SJB
;Get and set up a connect block
MOVEI T1,CB.LEN ;GET PLACE TO PUT CONNECT BLK
XCALL (XCDSEC,DNGWDZ)
JRST [MOVE T1,NRB ;CAN'T, DEALLOCATE NRB AS WELL
XCALLRET (XCDSEC,DNFWDS)] ; FREE NRB
MOVE W1,T1 ;W1 POINTS TO CONNECT BLOCK
MOVEI T1,PB.LEN ;LENGTH OF PDB
STOR T1,PBSIZ,+CB.SRC(W1) ;STORE SIZE OF SOURCE PDB
STOR T1,PBSIZ,+CB.DST(W1) ;STORE SIZE OF DEST PDB
MOVEI T1,0 ;GET FORMAT TYPE 0
STOR T1,PBFOR,+CB.SRC(W1) ;STORE FORMAT OF SOURCE PDB
STOR T1,PBFOR,+CB.DST(W1) ;STORE FORMAT OF DEST PDB
MOVX T1,NRTOBJ ;GET NRTSRV'S OBJECT TYPE
STOR T1,PBOBJ,+CB.SRC(W1) ;STORE OBJECT TYPE OF SOURCE PDB
STOR T1,PBOBJ,+CB.DST(W1) ;STORE OBJECT TYPE OF DEST PDB
;Now set up the SAB for an Enter Passive
STOR W1,SAAA1,(SAB) ;CONNECT BLK IS FIRST ARG
STOR W1,SACBP,(SAB) ;STORE POINTER TO CONNECT BLOCK HERE TOO
MOVX T1,.NSFEP ;ENTER PASSIVE FUNCTION CODE
MOVEI T2,3 ;FUNCTION + CHAN + 1 ARG
CALL NRTNSF ;ENTER PASSIVE
JRST NRTNEE ;CAN'T, RETURN MEMORY & LEAVE
;Now collect returned info not already stored by NRTNSF
LOAD T1,SAACH,(SAB) ;GET NEW CHANNEL NUMBER
STOR T1,NRCHN,(NRB) ;STORE CHANNEL NUMBER IN NRB
MOVEM NRB,NRTCWN ;WE NOW HAVE A LINK IN CONNECT WAIT STATE
NRTNEX: MOVE T1,W1 ;GET POINTER TO CONNECT BLOCK
XCALLRET (XCDSEC,DNFWDS) ;FREE IT
;Here on error when we have to deallocate an NRB
NRTNEE: MOVE T1,NRB ;DEALLOCATE NRB AS WELL
XCALL (XCDSEC,DNFWDS) ;FREE NRB
JRST NRTNEX ;FREE CONNECT BLOCK AS WELL
;NRTNSF - Call SCLINK's SCTNSF and handle the return
;
; Call:
; T1/ Function code
; T2/ Number of Args
; NRB/ Pointer to NRB
; SAB/ Pointer to SAB, usually same as NRTSAP, not always
;
; Return:
; RET ;FAILED, CODE IN T1
; RETSKP ;SUCCESS
NRTNSF: STOR T1,SAAFN,(SAB) ;FUNCTION CODE
STOR T2,SANAG,(SAB) ;STORE NUMBER OF ARGS
SETZRO SAMFG,(SAB) ;FIELD THAT NEEDS TO BE ZEROED FOR SCLINK
SETONE SAEVA,(SAB) ;BUFFERS WE PASS WILL BE IN
; EXEC VIRTUAL ADDRESS SPACE
LOAD T1,NRSJB,(NRB) ;GET SJB POINTER FOR THIS LINK
STOR T1,SASJB,(SAB) ;NETHOST USES NRTSJP, NETUSER USES USER'S SJB
LOAD T1,NRCHN,(NRB) ;GET CHANNEL NUMBER
STOR T1,SAACH,(SAB) ;STORE IN SAB
MOVE T1,SAB ;PASS SAB TO SCLINK
CALL SCTNSF ;DO THE DECnet FUNCTION
LOAD T1,SAERR,(SAB) ;GET THE ERROR CODE
JUMPN T1,RTN ;ERROR RETURN IF NON-ZERO
LOAD T1,SAAST,(SAB) ;GET NEW LINK STATUS
STOR T1,NRSTS,(NRB) ;STORE IN NRB
RETSKP ;SUCCESS RETURN
;Subroutines -- NGTTDB - Get a TDB for NRTSRV
;NGTTDB - Get a remote TDB and make it mine
;
; Call: NRB/ Pointer to NRB
;
; Return:
; RET ;FAILED
; RETSKP ;SUCCESS, TDB/ POINTER TO TDB
; ; AND T1/ LINE NUMBER
; Uses: P4
NGTTDB: SAVEAC <W1,W2>
MOVE W1,TT1LIN+TT.MCB ;GET FIRST MCB LINE
NOSKD1 ;FIND LINE RACE FREE
NGTTD1: LOAD T1,TTSTY,(W1) ;GET LINE TYPE
CAIN T1,TT.MCB ;STILL MCB?
IFSKP.
OKSKED ;NO, NO LINES LEFT
RET ;ERROR RETURN
ENDIF.
MOVE T2,W1 ;YES, STILL MCB, CHECK THIS LINE #
CALL STADYN ;IS LINE AVAILABLE?
JUMPE T2,NGTTD2 ;YES, NO DATA BLOCK NOW ASSIGNED
NGTTD3: AOJA W1,NGTTD1 ;NO, STEP TO NEXT LINE
NGTTD2: MOVE T2,W1 ;RETRIEVE STATIC LINE # OF AVAIL LINE
CALL TTYASG ;ASSIGN TDB (SCHED-LEVEL ENTRY POINT FOR NRT)
JRST NGTTD3 ;COULDN'T, TRY ANOTHER LINE
CALL STADYN ;SHOULD WORK NOW
JRST NGTTD3 ;??
MOVE TDB,T2 ;RETURN DYNAMIC POINTER IN TDB
STOR TDB,NRTDB,(NRB) ;STORE NEW TDB DYNAMIC PTR IN NRB
SETONE TCJOB,(TDB) ;INIT LINE
SETONE TTPRM,(TDB) ;TDB PERMANENT UNTIL LINK RELEASED
STOR NRB,TTHLL,(TDB) ;STORE POINTER TO THIS LINK'S NRB
MOVEI T1,.CHCNC ;LOAD UP A CONTROL-C
CALL TTCHID ;SEND IT TO START JOB
JFCL ;IGNORE ERROR RETURN
OKSKED
MOVE T1,W1 ;RETURN LINE NUMBER IN T1
RETSKP ;DYNAMIC PTR IN REGISTER TDB
;NRTREL - Release a link and all that goes with it.
;
; Call: NRB/ Pointer to the NRB to release
;
; Return:
; RET ;ALWAYS, NRB IS DEALLOCATED
;
; Uses:
NRTREL: TMNN NRUSR,(NRB) ;IS IT A NETUSER LINK?
JRST NRTRL1 ;NO, ITS A NETHOST LINK
;If its a NETUSER link, just dissociate TTY and link
;If NRDEA is set, deallocate the TDB.
;Setting the PSI MASK back to what SCJSYS requested is the way we tell
;SCJSYS that NRT is no longer interested in this link. From now on, any
;data which comes in on this link will go through SCJSYS to the user
;program as for any normal DECnet link.
JN NRDEA,(NRB),NRTRE1 ;Jump if deallocating TDB
LOAD T1,NRPSI,(NRB) ;GET SCJSYS'S PSI MASK FOR THIS LINK
STOR T1,SAAA1,(SAB) ;STORE FOR SCTNSF
MOVX T1,.NSFPI ;SET PSI MASK FUNCTION
MOVEI T2,3 ;FUNCTION + CHAN + 1 ARG
CALL NRTNSF ;SET PSI MASK TO WHAT SCJSYS ASKED FOR
JFCL ; Ignore error return - this may legally
; in some cases when someone else logs out the
; job.
NRTRE1: MOVE T2,TDB
CALL CTYMCB ;(T2) THIS THE CTY OR AN MCB LINE?
IFSKP.
SETZRO TTPRM,(TDB) ;NO, BLOCK IS NO LONGER PERMANENT
ENDIF.
JUMPE TDB,NRTRLN ;RELEASE NRB NOW IF NO TDB YET
LOAD T1,TTUEC,(TDB) ;GET ESCAPE CHARACTER
SETZRO TTULL,(TDB) ;LOSE PTR TO NRB
SETZRO TTUEC,(TDB) ;LOSE ESC CHAR SO WON'T SEND TO USER AGAIN
SETZRO TTNUS,(TDB) ;TELL TTYSRV LINE NOT IN NETUSER STATE
SETZRO TTOTP,(TDB) ;TELL TTYSRV LINE HAS NO OUTPUT COMING.
MOVE T2,TDB ;POINT T2 TO TDB FOR TTCHID CALL
LOAD T3,TCJOB,(TDB) ;IF HAVE JOB
CAIE T3,-1 ; ON THIS LINE
SKIPN T1 ; AND THERE IS AN ESCAPE CHAR
TRNA ;NO.
CALL TTCHID ;(T1,T2) GIVE IT AS INPUT TO WAKE NRT JOB
NOP
TMNN NRDEA,(NRB) ;Deallocating TDB ?
IFSKP.
MOVE T2,TDB ;Yes,
CALL TTYDED ; do so.
ENDIF.
CALL NRTRLN ;RELEASE NRB.
; LOAD T1,SAAST,(SAB) ;SEE IF WE NEED TO GIVE A WAKE.
; TXNN T1,<NSIDA+NSNDA> ;ANY DATA AVAILABLE ?
; IFSKP.
; SAVEAC <T5> ;YES
; MOVE T5,T1 ;STATUS
; ANDX T5,<NSIDA+NSNDA> ; CHANGES
; LOAD T2,SAACH,(SAB) ;PORT #
; HRL T2,T1 ;NEW STATUS
; MOVX T3,<NSIDA+NSNDA> ;MAKE UP OLD STATUS - NEW STATUS EXCEPT
; TXZ T1,<NSIDA+NSNDA> ; FOR DATA AVAILABLES
; HRLZS T1 ; IN LEFT HALF
; HRRZ T1,$SAAA1,(SAB) ;PSI MASK IN RIGHT HALF
; LOAD T3,SASJB,(SAB) ;SJB
; LOAD T4,SASLB,(SAB) ;LINK IDENTIFIER.
; CALL SCWAKE ;(T1-T5) GIVE WAKE.
; ENDIF.
RET ;DONE
;If its a NETHOST link, detach the TTY
NRTRL1: OPSTR <SKIPN TDB,>,NRTDB,(NRB) ;ANY TDB HERE?
JRST NRTRLL ;NO, JUST RELEASE THE LOGICAL LINK
SETZRO TTHLL,(TDB) ;REMOVE 'HOST' NRB POINTER, TELLING MCSRV
; THIS IS NO LONGER A NRT LINE
TMNE TTNUS,(TDB) ;IS THIS TDB ALSO NRTed OUT?
CALL [SAVEAC NRB ;YES, SAVE HOST NRB WHILE WE DEAL WITH SERVER
LOAD NRB,TTULL,(TDB) ;GET POINTER TO USER NRB
JUMPE NRB,RTN ;LEAVE IF NOT REALLY A TWO-LINKED TDB
CALLRET NRTREL] ;RELEASE USER LINK, THEN RETURN
; TO RELEASE HOST LINK
NOSKD1 ;NO SCHED FOR TTCOB5'S OKSKD1
CHNOFF DLSCHN ;TURN OF DTE INTERRUPT CHANNEL
MOVE T2,TDB ;SET UP TDB PTR FOR TTCOB5
CALL TTCOB5 ;FLUSH OUTPUT (DOES CHNON AND OKSKD1)
SETZRO TTOTP,(TDB) ;CLEAR OUTPUT ACTIVE
LOAD T2,TINTL,(TDB) ;GET LINE NUMBER
CALL NTYCOF ;DO CARRIER OFF EVENT
LOAD T3,TCJOB,(TDB) ;GET CONTROLLING JOB
SETZRO TTPRM,(TDB) ;TDB NO LONGER PERMANENT
CAIE T3,-1 ;IS THERE A CONTROLLING JOB?
JRST NRTRLL ;YES, DONE
MOVE T2,TDB ;NO, GET DYNAMIC PTR
CALL TTCBF9 ;CLEAR OUTBUF
LOAD T2,TINTL,(TDB) ;GET LINE NUMBER
CALL TTYDE0 ; AND DEALLOCATE DATA BLOCK
NOP
;Here to free the NRB and its associated DECnet link, we will hear no more
;from it after the ReLease call.
NRTRLL: MOVX T1,.NSFRL ;RELEASE FUNCTION CODE
MOVEI T2,2 ;FUNCTION + CHAN + NO ARGS
CALL NRTNSF ;RELEASE THE LINK
JFCL ;IGNORE ERROR RETURN
NRTRLN: MOVE T1,NRB ;ADDRESS OF NRB
SETZ NRB, ;DON'T LET CALLERS USE NRB
XCALLRET (XCDSEC,DNFWDS) ;FREE THE NRB
ENDAV. ;END OF NRTACV IN MCSRV, WAY BACK
;TNUKIL is called by TTYSRV when a NETUSER line is detached.
;It sets flags (NRTRN) which causes MCSRV to clean up
;The flag also causes TTYSRV to throw away all input which occur in the
;interim.
;T2/ TDB
;Returns +1 on failure with error in T1
;Returns +2 on success
TNUKIL::SAVEAC <T1>
LOAD T1,TTULL,(T2) ;GET POINTER TO 'USER' NRB
JUMPE T1,RSKP ;LEAVE NOW IF NO ASSOCIATED LINK
SETONE NRTRN,(T1) ;SAY IN TRANSITION.
SETONE NRREL,(T1) ;QUEUE UP REQUEST FOR RELEASE.
SETONE NRDEA,(T1) ;SAY DEALLOCATE.
CALL REQNS ;(T2)
RETSKP
;HANDLE LINE IN NET USER STATE
TTMCNU::LOAD CX,TLTYP,(T2) ;GET LINE TYPE
CAIN CX,TT.CTH ;CTERM LINE ?
CALL CTHNRT ;YES - POST READ
LOAD T4,TTULL,(T2) ;GET NRB POINTER
CALL DINTRN ;(T4) IN TRANSITION ?
RETSKP ;YES. DROP THE CHARACTER.
CALL TTCHXX ;CHECK FOR XON, XOFF
IFNSK.
JN TTNPM,(T2),RSKP ;IT WAS, FLUSH THE CHAR IF OLD MODE
ENDIF.
LOAD T4,TTUEC,(T2) ;GET NETUSER ESCAPE CHARACTER
XOR T4,T1 ;IS THIS IT IN T1?
JXN T4,177,TTMCI1 ;JUMP IF NOT
CALL TNUDIE ;IN TRANSITION. QUEUE UP REQUEST FOR MCSRV.
RETSKP
;TNUDIE is called by TTYSRV when a NETUSER line escapes.
;It sets a flag (NRTRN) which causes MCSRV to clean up
;The flag also causes TTYSRV to throw away all input which occur in the
;interim.
;T2/ TDB
;ONLY RETURN IS +1
TNUDIE::SAVEAC <T1>
LOAD T1,TTULL,(T2) ;GET POINTER TO 'USER' NRB
JUMPE T1,RTN ;LEAVE NOW IF NO ASSOCIATED LINK
SETONE NRTRN,(T1) ;SAY IN TRANSITION.
SETONE NRREL,(T1) ;QUEUE UP REQUEST FOR RELEASE.
CALLRET REQNS ;(T2)
;IS THIS NRB IN TRANSITION ?
;CALL DINTRN
;RETURN +2 IF NRB IS NOT IN TRANSITION
;RETURN +1 IF NRB IS IN TRANSITION
DINTRN::TMNE NRTRN,(T4) ;THE BIT
RET ;IN TRANSITION.
RETSKP ;NOT IN TRANSITION.
;NRTINI - Initialize NRT Host
;Here to set up NRT host object for DECnet
;Call: No arguments
; RET ;ALWAYS
;Here to initialize the NRT data base. This is about the only part of
;the NRT service that does not run at schedular level.
NRTINI:: ;CALLED FROM D36COM (D36INI)
NRTACV ;ACVAR <W1,W2,W3,TDB,NRB,SAB>
EA.ENT ;NRTSRV RUNS IN SECTION 1
MOVX T1,SA.LEN ;LENGTH OF AN SAB
XCALL (XCDSEC,DNGWDZ) ;GET WORDS FOR OUR SA BLOCK
BUG.(HLT,NVTSAB,TTPHDV,SOFT,<No memory for NRT's SAB>,,<
Cause: NRT's initialization code was unable to get resident free
space to build its control blocks.
Action: Find out why there is so little resident free space so early
in the system's life.
>)
MOVE SAB,T1 ;USE REGISTER SAB TO POINT TO SAB
MOVEM SAB,NRTSAP ;STORE POINTER TO SCLINK ARG BLK
;We will elect No Flow Control on incoming links.
MOVE T1,NRTDFT ;GET DEFAULT GOAL,QUOTAS
SETZM NRTSJP ;IN CASE WE FAIL, SIGNAL TO OTHERS
CALL MAKSJB ;GO MAKE AN SJB
BUG.(HLT,NVTSJB,TTPHDV,SOFT,<No memory for NRT's SJB>,,<
Cause: NRT's initialization code was unable to get resident free
space to build its control blocks.
Action: Find out why there is so little resident free space so early
in the system's life.
>)
STOR SAB,SJSAB,(T1) ;SAVE SAB POINTER IN SJB
MOVEM T1,NRTSJP ;SAVE POINTER TO NRT'S SJB
XMOVEI T1,NRTHBR ;POINT TO THE HIBER ROUTINE (BUG.)
STOR T1,SAHBA,(SAB) ;STORE IN THE HIBER ADDRESS ARGUMENT
XMOVEI T1,NRTWAK ;GET ADDRESS OF WAKE HANDLER
STOR T1,SAWKA,(SAB) ; AND TELL SCLINK ABOUT IT
RET ;RETURN, NRT INITIALIZATION IS DONE
ENDAV. ;END OF NRTACV AT NRTINI
;MCRRH - NRT device dependent "return remote host" code
;
; Given the line #, returns the originating hostname, line and
; network type. Places this info in the users NTINF% .NWRRH
; argument block. NTINF has already checked the user arguments
; for validity.
;
; Call with T1/ address of internal arg block
;
; ARG+.NWABC/ # of bytes available for host name
; ARG+.NWFNC/ not used
; ARG+.NWNNP/ byte pointer to store hostname string
; ARG+.NWLIN/ address of dynamic data for line
; ARG+.NWTTF/ flags, and network and terminal types
; ARG+.NWNNU/ node # word 1
; ARG+.NWNU1/ node # word 2
;
; Returns + 1 on error with T1/ error code
; + 2 on success
SWAPCD
MCRRH:: SASUBR <UAB>
MOVEM T1,UAB ;SAVE OUTPUT POINTER
MOVX T4,NW%DNA ;SET NETWORK TYPE
DPB T4,[POINT 9,.NWTTF(T1),17] ;STORE NETWORK TYPE
MOVE T2,.NWLIN(T1) ;GET DYNAMIC DATA ADR
NOSKED
LOAD T3,TTHLL,(T2) ;GET LINK INDEX
JUMPE T3,MCRRH3 ;IN CASE ALREADY GONE
LOAD T4,NRRID,(T3) ;GET DECNET ADDRESS
OKSKED
MOVEM T4,.NWNNU(T1) ;SAVE IT AWAY
JUMPE T4,MCRRH4 ;IF ZERO - NO HOST NAME
MOVE T1,T4 ;PUT ADDRESS WHERE SCTA2N WANTS IT
CALL SCTA2N ;CONVERT # TO SIXBIT NAME
IFNSK.
MCRRH4: MOVE T3,UAB ;GET ARG BLOCK ADDRESS
MOVE T2,.NWNNP(T3) ;GET BYTE POINTER
SETZ T3, ;NO KNOWN NODE NAME FLAG
JRST MCRRH2 ;COULDN'T
ENDIF.
MOVE T3,UAB ;GET ARG BLOCK ADDRESS
MOVE T2,.NWNNP(T3) ;GET POINTER TO OUTPUT STRING
CALL GETSIX ;CONVERT SIXBIT TO ASCII
MCRRH2: SETZ T1,
IDPB T1,T2 ;DEPOSIT A NULL
MOVE T1,UAB ;GET POINTER TO USER ARG BLOCK
MOVX T2,NW%NNN ;GET "NO NODE NAME KNOWN" FLAG
SKIPN T3 ;GOT A NODE NAME ?
IORM T2,.NWTTF(T1) ;NO - SET THE "NO NODE NAME KNOWN" FLAG
RETSKP
MCRRH3: OKSKED
MOVE T1,UAB ;GET POINTER TO ARG BLOCK
MOVE T2,.NWNNP(T1) ;GET POINTER TO OUTPUT STRING
SETZ T3, ;NO NODE NAME
CALLRET MCRRH2 ;UPDATE HOSTNAME STRING, AND RETURN
TNXEND
END