Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/utilities/mcbnrt.list
There are no other files named mcbnrt.list in the archive.
MCBNRT - Program to provide remote network login service MACRO %53B(1215) 11:03 5-May-82 Page 1
MCBNRT MAC 1-Dec-81 15:40
1 ; UPD ID= 61, SNARK:<5.UTILITIES>MCBNRT.MAC.5, 1-Dec-81 15:40:59 by GRANT
2 ;TCO 5.1622 - put correct address in entry vector
3 ;<5.UTILITIES>MCBNRT.MAC.4, 28-Oct-81 15:30:09, EDIT BY GRANT
4 ;Create entry vector
5 ; UPD ID= 1695, SNARK:<5.UTILITIES>MCBNRT.MAC.2, 12-Mar-81 11:56:35 by GRANT
6 ;Update Copyright
7 ;<MURPHY.MON>MCBNRT.MAC.5, 9-Dec-80 16:02:28, EDIT BY MURPHY
8 ;<MURPHY.MON>NEWNRT.MAC.6, 10-Oct-80 14:37:03, EDIT BY MURPHY
9 ;USE MONITOR SUPPORT OF NVT
10
11 TITLE MCBNRT - Program to provide remote network login service
12
13
14
15
16 ;COPYRIGHT (C) 1979,1980,1981 BY
17 ;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
18 ;
19 ;
20 ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
21 ;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
22 ;INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
23 ;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
24 ;OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
25 ;TRANSFERRED.
26 ;
27 ;
28 ;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
29 ;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
30 ;CORPORATION.
31 ;
32 ;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
33 ;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
34
MCBNRT - Program to provide remote network login service MACRO %53B(1215) 11:03 5-May-82 Page 2
MCBNRT MAC 1-Dec-81 15:40
35
36 SALL ; Keep listing uncluttered, no macro expansion
37 SEARCH MONSYM,MACSYM ; Universals to search
38 .REQUIRE SYS:MACREL ; Make LINK load these automatically
39
40 ;
41 ; This program will allow a person to login to the system on which it is
42 ; being run from a remote node on a DECnet network. It demonstrates use
43 ; of of the TOPS-20 DECnet functionality in a program which performs a
44 ; real and useful function. The person desiring to login to this system
45 ; must run the NRT20 program, if on a TOPS-20 node, or a program of
46 ; identical functionality on a node with another operating system.
47 ;
48
MCBNRT - Program to provide remote network login service MACRO %53B(1215) 11:03 5-May-82 Page 3
MCBNRT MAC 1-Dec-81 15:40 DECLARED SYMBOLS
49 SUBTTL DECLARED SYMBOLS
50
51 000001 T1==1 ; AC definitions
52 000002 T2==2
53 000003 T3==3
54 000004 T4==4
55 000016 CX==16
56 000017 P==17
57 000000 F==0 ; Flags
58
59 000010 MAXFRK==^D8 ; Maximum number of server sub processes
60 000001 OLDFRK==1 ; # 200 servers to be used
61 000050 SRVOSZ==50 ; Output buffer size in words
62 000240 MAXOUT==SRVOSZ*4 ; Maximum number of output characters
63 000010 SRVSIZ==10 ; Size of server buffer in words
64 000040 NPDL==40 ; Size of pushdown list
65
MCBNRT - Program to provide remote network login service MACRO %53B(1215) 11:03 5-May-82 Page 4
MCBNRT MAC 1-Dec-81 15:40 IMPURE STORAGE
66 SUBTTL IMPURE STORAGE
67
68 000000' FRKIDX: BLOCK 1 ; Index for fork into FORKS
69 000001' SAVAC: BLOCK 4 ; AC save area
70 000005' DEVNAM: BLOCK 2 ; For building PTY names
71 000007' PTYJFN: BLOCK 1 ; The JFN of the PTY
72 000010' TTYJFN: BLOCK 1 ; TTY designator
73 000011' SRVJFN: BLOCK 1 ; The JFN of the network connection
74 000012' OPTDAT: BLOCK 4 ; Optional data buffer
75 000016' GTBFR: BLOCK 20 ; File name buffer
76 000036' SRVINP: BLOCK SRVSIZ ; Holds input characters
77 000046' OUTPUT: BLOCK 1 ; Output buffer pointer
78 000047' OUCNT: BLOCK 1
79 000050' PC: BLOCK 1 ; The software interrupt PC save area
80 000051' SRVOUP: BLOCK SRVOSZ ; Holds ouptut data
81 000121' HSTNAM: BLOCK 2 ; Host name string
82 000123' PDL: BLOCK NPDL ; Pushdown list (stack)
83
84 000640' RELOC 1000-140 ; Start on page boundary
85
86 000640' FORKS: BLOCK MAXFRK
87 000650' 000000 000050' LEVTAB: PC ; Where to stash the PC
88 000651' 000001 001036' CHNTAB: 1,,GOTCI ; Network connect received interrupt routine
89
90 000005 VMAJOR==5 ;MAJOR VERSION
91 000000 VMINOR==0 ;MAINTENANCE RELEASE NUMBER
92 000003 VEDIT==3 ;EDIT NUMBER
93 000000 VWHO==0 ;CUSTOMER EDIT NUMBER
94
95 000500 000003 VERSION==<VWHO>B2!<VMAJOR>B11!<VMINOR>B17!VEDIT
96
97 000652' 254 00 0 00 000657' ENTVEC: JRST BEGIN ;START POINT
98 000653' 254 00 0 00 000657' JRST BEGIN ;REENTER
99 000654' 000500 000003 VERSION ;VERSION NUMBER
MCBNRT - Program to provide remote network login service MACRO %53B(1215) 11:03 5-May-82 Page 5
MCBNRT MAC 1-Dec-81 15:40 BEGIN - Start of MCBNRT program
100 SUBTTL BEGIN - Start of MCBNRT program
101
102 000655' 000000 000001 FRKFLG: 1 ;USE MULTIPLE FORKS IF NON-0
103 000656' 000000 000000 ROUTEF: 0 ;DO ROUTING HERE IF 1
104
105 000657' 104 00 0 00 000147 BEGIN: RESET ; Initialize ourselves
106 000660' 561 01 0 00 001125' HRROI T1,[ASCIZ /SRV/] ; See if network exists
107 000661' 104 00 0 00 000120 STDEV ; By checking for SRV device
108 JRST [ TMSG <?SRV device does not exist.
109 >
110 HALTF
111 000662' 254 00 0 00 001134' JRST BEGIN]
112 000663' 201 01 0 00 400000 MOVEI T1,.FHSLF ; This process
113 000664' 104 00 0 00 000150 RPCAP ; Get our capabilities
114 000665' 200 03 0 00 000002 MOVE T3,T2 ; Copy them
115 000666' 104 00 0 00 000151 EPCAP ; Enable all capabilities we have
116 000667' 336 00 0 00 000655' SKIPN FRKFLG ;WANT MULTIPLE FORKS?
117 000670' 254 00 0 00 000741' JRST START0 ;NO, DO WORK IN THIS FORK
118 000671' 201 00 0 00 000001 MOVEI F,OLDFRK
119 000672' 205 04 0 00 777770 MOVSI T4,-MAXFRK ; Maximum processes to create
120 000673' 205 01 0 00 200000 FRKDO: MOVX T1,CR%CAP ; Give them the same capabilities we have
121 000674' 402 00 0 00 000002 SETZM T2 ; No AC's
122 000675' 104 00 0 00 000152 CFORK ; Create a process
123 000676' 320 16 0 00 000716' ERJMP WTFRK ; If no more, done
124 000677' 202 01 0 04 000640' MOVEM T1,FORKS(T4) ; Save process handle
125 000700' 371 00 0 00 000000 SOSL F ; Want an old server?
126 000701' 563 00 0 04 000640' HRROS FORKS(T4) ; Yes, this is one of them
127 000702' 201 02 0 00 000000 MOVEI T2,0 ; The ACs to load
128 000703' 104 00 0 00 000160 SFACS ; Set the ACs
129 000704' 514 02 0 00 000001 HRLZ T2,T1 ; Process handle of destination
130 000705' 541 02 0 00 000001 HRRI T2,1 ; Start at page 1 in destination process
131 000706' 200 01 0 00 001140' MOVE T1,[.FHSLF,,1] ; Map this process to it
132 000707' 201 03 0 00 000005 MOVEI T3,5 ; Number of pages to do
133 000710' 661 03 0 00 540000 TXO T3,PM%CNT!PM%RD!PM%WR ; Make PMAP argument
134 000711' 104 00 0 00 000056 PMAP ; Map the process' address space
135 000712' 554 01 0 00 000002 HLRZ T1,T2 ; Get process handle
136 000713' 201 02 0 00 000741' MOVEI T2,START0 ; Start address
137 000714' 104 00 0 00 000157 SFORK ; Start the process up
138 000715' 253 04 0 00 000673' FRKLOP: AOBJN T4,FRKDO ; Do all of them
139 000716' 201 01 0 00 400000 WTFRK: MOVEI T1,.FHSLF ; Our process
140 000717' 402 00 0 00 000003 SETZM T3 ; No capabilities
141 000720' 104 00 0 00 000151 EPCAP ; Disable all capabilities
142 000721' 201 01 0 00 777774 MOVEI T1,.FHINF ; All the inferior processes
143 000722' 104 00 0 00 000155 RFORK ; Resume them
144 000723' 104 00 0 00 000163 WFORK ; Wait for any inferior to halt
145 ; ..
146
MCBNRT - Program to provide remote network login service MACRO %53B(1215) 11:03 5-May-82 Page 6
MCBNRT MAC 1-Dec-81 15:40 RSPROC - Restart inferior process after it halted
147 SUBTTL RSPROC - Restart inferior process after it halted
148
149 000724' 201 01 0 00 777774 RSPROC: MOVEI T1,.FHINF ; All the inferior processes
150 000725' 104 00 0 00 000154 FFORK ; Freeze them
151 000726' 205 04 0 00 777770 MOVSI T4,-MAXFRK ; Scan process table
152 000727' 336 01 0 04 000640' DEDLOP: SKIPN T1,FORKS(T4) ; This one exist?
153 000730' 254 00 0 00 000737' JRST DEDLO1 ; No, go on
154 000731' 553 00 0 00 000001 HRRZS T1
155 000732' 104 00 0 00 000156 RFSTS ; Yes, get its status
156 000733' 135 01 0 00 001141' LOAD T1,RF%STS,T1 ; Get its status
157 000734' 302 01 0 00 000002 CAIE T1,.RFHLT ; Halted?
158 000735' 306 01 0 00 000003 CAIN T1,.RFFPT ; Or error?
159 JRST [ MOVE T1,FORKS(T4) ; Yes, get process handle again
160 SETZM FORKS(T4) ; Clear entry
161 TLZN T1,-1
162 TDZA F,F
163 MOVEI F,1
164 KFORK ; Kill the process
165 HRRZS T4 ; Create one more process
166 MOVEI T1,.FHSLF ; Our process
167 RPCAP ; Get our capabilities
168 MOVE T3,T2 ; Copy them
169 EPCAP ; Enable all capabilities we have
170 000736' 254 00 0 00 001142' JRST FRKDO] ; Go back and create another process
171 000737' 253 04 0 00 000727' DEDLO1: AOBJN T4,DEDLOP ; Look at them all
172 000740' 254 00 0 00 000716' JRST WTFRK ; Wait some more
173
MCBNRT - Program to provide remote network login service MACRO %53B(1215) 11:03 5-May-82 Page 7
MCBNRT MAC 1-Dec-81 15:40 START - Start of code for inferior process'
174 SUBTTL START - Start of code for inferior process'
175
176 ;
177 ; Note: This code runs as an inferior process to be the DECnet server
178 ; for NRT20. Any node on the network can make a connection to this
179 ; server to login to the system on which this program is running. A
180 ; separate copy of this code is run for each process which will be
181 ; a server. The DECnet object number of this server is 200. A TOPS-20
182 ; program can access the server with the DECnet file specification -
183 ; 'DCN:node-200' where node is the node name to be logged in on. When
184 ; the server gets a connection from the network it obtains a PTY, and
185 ; sends a ^C character on it. It then accepts the network connection
186 ; and waits for data to arrive on the network link. Data arriving on
187 ; the network link is then output to the PTY and any data from the
188 ; PTY is sent on the network link.
189 ;
190
191 000741' 336 00 0 00 000655' START0: SKIPN FRKFLG ;MULTIPLE FORKS?
192 JRST [ SETZ T4, ;NO
193 SETZM FORKS(T4)
194 000742' 254 00 0 00 001156' JRST .+1]
195 000743' 202 04 0 00 000000' MOVEM T4,FRKIDX ; Stash the index away
196 000744' 104 00 0 00 000141 START: CIS ; Clear interrupt system
197 000745' 200 04 0 00 000000' MOVE T4,FRKIDX ; Remember our index
198 000746' 336 01 0 00 000011' SKIPN T1,SRVJFN ; Have a server JFN yet?
199 000747' 254 00 0 00 000754' JRST START1 ; No...
200 000750' 661 01 0 00 004000 TXO T1,CZ%ABT ; Yes, abort it
201 000751' 104 00 0 00 000022 CLOSF ; Close and abort the network connection
202 000752' 255 00 0 00 000000 JFCL ; Ignore errors
203 000753' 402 00 0 00 000011' SETZM SRVJFN ; Clear the server JFN
204 000754' 336 01 0 00 000007' START1: SKIPN T1,PTYJFN ; Have a PTY yet?
205 000755' 254 00 0 00 000761' JRST START2 ; No...
206 000756' 661 01 0 00 004000 TXO T1,CZ%ABT ; Yes, abort it
207 000757' 104 00 0 00 000022 CLOSF ; Close the PTY
208 000760' 255 00 0 00 000000 JFCL ; Ignore errors
209 000761' 200 17 0 00 001161' START2: MOVE P,[IOWD NPDL,PDL] ; Initialize the stack pointer
210 000762' 201 01 0 00 400000 MOVEI T1,.FHSLF ; Our process
211 000763' 200 02 0 00 001162' MOVE T2,[LEVTAB,,CHNTAB] ; Address of level and channel table
212 000764' 104 00 0 00 000125 SIR ; Set software interrupt table addresses
213 000765' 205 02 0 00 400000 MOVX T2,2B1 ; Channel 0
214 000766' 104 00 0 00 000131 AIC ; Activate software interrupt channels
215 000767' 104 00 0 00 000126 EIR ; Enable software interrupt system
216 000770' 200 01 0 00 001163' MOVE T1,[POINT ^D8,SRVOUP] ; Initial output pointer
217 000771' 202 01 0 00 000046' MOVEM T1,OUTPUT ; Initialize the pointer
218 000772' 201 01 0 00 000240 MOVEI T1,MAXOUT ; Maximum output characters
219 000773' 202 01 0 00 000047' MOVEM T1,OUCNT ; Initialize the output count
220 000774' 201 01 0 00 400000 MOVEI T1,.FHSLF ; Our process
221 000775' 104 00 0 00 000150 RPCAP ; Get our capabilities
222 000776' 200 03 0 00 000002 MOVE T3,T2 ; Copy them
223 000777' 104 00 0 00 000151 EPCAP ; Enable all capabilities we have
224 001000' 205 01 0 00 000001 MOVX T1,GJ%SHT ; Short form GTJFN
225 001001' 561 02 0 00 001164' HRROI T2,[ASCIZ /SRV:23/] ; The NRT server file spec
226 001002' 335 00 0 04 000640' SKIPGE FORKS(T4)
227 001003' 561 02 0 00 001166' HRROI T2,[ASCIZ /SRV:200/]
228 001004' 104 00 0 00 000020 GTJFN ; Get a JFN for it
MCBNRT - Program to provide remote network login service MACRO %53B(1215) 11:03 5-May-82 Page 7-1
MCBNRT MAC 1-Dec-81 15:40 START - Start of code for inferior process'
229 001005' 254 00 0 00 001033' JRST TRYAGN ; Failed, go try to recover
230 001006' 202 01 0 00 000011' MOVEM T1,SRVJFN ; Save the server JFN
231 001007' 200 02 0 00 001170' MOVX T2,<FLD(^D8,OF%BSZ)!FLD(.GSSMB,OF%MOD)!OF%RD!OF%WR>
232 ; 8 bit bytes, small bfrs, read/write access
233 001010' 104 00 0 00 000021 OPENF ; Open the server JFN
234 JRST [ MOVE T1,SRVJFN ; Failed, get server JFN
235 RLJFN ; Release the JFN
236 JFCL ; Ignore errors
237 SETZM SRVJFN ; Clear the server JFN
238 001011' 254 00 0 00 001171' JRST TRYAGN] ; And go try to recover
239 001012' 201 01 0 00 400000 MOVEI T1,.FHSLF ; Our process
240 001013' 403 02 0 00 000003 SETZB T2,T3 ; No capabilities
241 001014' 104 00 0 00 000151 EPCAP ; Disable all capabilities
242 001015' 200 01 0 00 000011' MOVE T1,SRVJFN ; Get the server JFN
243 001016' 201 02 0 00 000024 MOVEI T2,.MOACN ; Assign interrupt system channel numbers
244 MOVX T3,<FLD(0,MO%CDN)!FLD(1,MO%DAV)!FLD(.MOCIA,MO%INA)> ; Connect event on 0, data
245 001017' 200 03 0 00 001176' available on 1
246 001020' 104 00 0 00 000077 MTOPR ; Perform the device operation
247 001021' 104 00 0 00 000306 WAIT ; Wait for something to happen
248
249
250 001022' 201 01 0 00 400000 CAPON: MOVX T1,.FHSLF
251 001023' 104 00 0 00 000150 RPCAP
252 001024' 200 03 0 00 000002 MOVE T3,T2
253 001025' 104 00 0 00 000151 EPCAP
254 001026' 263 17 0 00 000000 RET
255
256 001027' 201 01 0 00 400000 CAPOFF: MOVX T1,.FHSLF
257 001030' 403 02 0 00 000003 SETZB T2,T3
258 001031' 104 00 0 00 000151 EPCAP
259 001032' 263 17 0 00 000000 RET
260 SUBTTL TRYAGN - Wait before trying to become a server again
261
262 001033' 201 01 0 00 352300 TRYAGN: MOVX T1,^D<1000*60*2> ; Two minutes in milliseconds
263 001034' 104 00 0 00 000167 DISMS ; Dismiss the process until time expires
264 001035' 254 00 0 00 000744' JRST START ; And go back to try again
265
MCBNRT - Program to provide remote network login service MACRO %53B(1215) 11:03 5-May-82 Page 8
MCBNRT MAC 1-Dec-81 15:40 GOTCI - Got a connect from the network
266 SUBTTL GOTCI - Got a connect from the network
267
268 ;
269 ; Note: This routine is run at software interrupt level when a
270 ; remote node attempts to make a connection to us.
271
272 001036' 402 00 0 00 000000 GOTCI: SETZM F
273 001037' 476 00 0 00 000007' SETOM PTYJFN
274 001040' 200 01 0 00 000011' MOVE T1,SRVJFN ; GEt the JFN of the server
275 001041' 561 03 0 00 000012' HRROI T3,OPTDAT ; Where to put the optional data
276 001042' 201 02 0 00 000033 MOVEI T2,.MORDA
277 001043' 104 00 0 00 000077 MTOPR ; Read the optional data
278 001044' 320 16 0 00 000744' ERJMP START
279 JUMPN T4,[MOVEI T3,.DCX39 ; No. say no path then
280 001045' 326 04 0 00 001177' JRST CLZCON] ; And refuse the connection
281 001046' 201 01 0 00 000744' MOVEI T1,START ;TO TOP AFTER THIS
282 001047' 202 01 0 00 000050' MOVEM T1,PC ; Change the interrupt PC value to start
283 001050' 200 01 0 00 000011' DOACC: MOVE T1,SRVJFN ; Get the server JFN
284 001051' 200 02 0 00 000000' MOVE T2,FRKIDX ; Get index
285 001052' 335 00 0 02 000640' SKIPGE FORKS(T2) ; Old or new?
286 JRST [ MOVEI T2,.MOCC ; Old
287 SETZB T3,T4
288 MTOPR ; Just accept it
289 ERJMP START
290 001053' 254 00 0 00 001201' JRST DOACC0]
291 001054' 200 02 0 00 001210' MOVE T2,[POINT 8,[BYTE (8)1,1,0,0,10,0,10,0]]
292 001055' 211 03 0 00 000010 MOVNI T3,10
293 001056' 104 00 0 00 000532 SOUTR
294 001057' 320 16 0 00 000744' ERJMP START
295 001060' 104 00 0 00 000013 DOACC0: GJINF ; Get current job information
296 001061' 321 04 0 00 001076' JUMPL T4,DONCI ; If terminal attached to job, done
297 HRROI T1,[ASCIZ /
298 001062' 561 01 0 00 001211' MCBNRT- CONNECTION FROM /] ; Point to message to say who's connecting
299 001063' 104 00 0 00 000076 PSOUT ; Output to TTY
300 001064' 402 00 0 00 000121' SETZM HSTNAM ; Clear host name buffer
301 001065' 200 01 0 00 000011' MOVE T1,SRVJFN ; Get the server JFN
302 001066' 201 02 0 00 000026 MOVEI T2,.MORHN ; Read network host name
303 001067' 561 03 0 00 000121' HRROI T3,HSTNAM ; Pointer to buffer
304 001070' 104 00 0 00 000077 MTOPR ; Do the device operation
305 001071' 320 16 0 00 001072' ERJMP .+1 ; Ignore errors
306 001072' 561 01 0 00 000121' HRROI T1,HSTNAM ; Pointer to host name buffer
307 001073' 104 00 0 00 000076 PSOUT ; Output the host name to TTY
308 001074' 561 01 0 00 001217' HRROI T1,[ASCIZ / ON LINE /] ; Pointer to continuation of message text
309 001075' 104 00 0 00 000076 PSOUT ; Output to TTY
310 001076' 200 01 0 00 000011' DONCI: MOVE T1,SRVJFN
311 001077' 201 02 0 00 000043 MOVEI T2,.MOANT
312 001100' 104 00 0 00 000077 MTOPR ; ATTACH TO NETWORK TERMINAL, RELEASE JFN, ETC.
313 ERJMP [JSERR ;REPORT ERROR
314 001101' 320 16 0 00 001221' JRST START]
315 001102' 201 01 0 00 000101 MOVEI T1,.PRIOU ; TTY designator
316 001103' 201 03 0 00 000010 MOVEI T3,^D8 ;OUTPUT OCTAL LINE NUMBER
317 001104' 104 00 0 00 000224 NOUT
318 ERJMP [JSERR
319 001105' 320 16 0 00 001223' JRST .+1]
320 HRROI T1,[ASCIZ /
MCBNRT - Program to provide remote network login service MACRO %53B(1215) 11:03 5-May-82 Page 8-1
MCBNRT MAC 1-Dec-81 15:40 GOTCI - Got a connect from the network
321 001106' 561 01 0 00 001225' /]
322 001107' 104 00 0 00 000076 PSOUT ; End the message nicely
323 001110' 104 00 0 00 000136 DEBRK ;TO START OR PTYIN
MCBNRT - Program to provide remote network login service MACRO %53B(1215) 11:03 5-May-82 Page 9
MCBNRT MAC 1-Dec-81 15:40 GOTCI - Got a connect from the network
324
325 001111' 204 02 0 00 000003 CLZCON: MOVS T2,T3
326 001112' 541 02 0 00 000040 HRRI T2,.MOCLZ
327 001113' 402 00 0 00 000004 SETZM T4
328 001114' 200 03 0 00 001226' MOVE T3,[POINT 7,OPTDAT]
329 001115' 134 01 0 00 000003 ILDB T1,T3
330 001116' 332 00 0 00 000001 SKIPE T1
331 001117' 344 04 0 00 001115' AOJA T4,.-2
332 001120' 200 03 0 00 001226' MOVE T3,[POINT 7,OPTDAT]
333 001121' 200 01 0 00 000011' MOVE T1,SRVJFN ; Close down the server
334 001122' 104 00 0 00 000077 MTOPR ; Abort the link
335 001123' 320 16 0 00 000744' ERJMP START
336 001124' 254 00 0 00 000744' JRST START
337
338 000003 000652' END <3,,ENTVEC> ;DEFINE ENTRY VECTOR
NO ERRORS DETECTED
PROGRAM BREAK IS 001227
CPU TIME USED 00:02.706
79P CORE USED
MCBNRT - Program to provide remote network login service MACRO %53B(1215) 11:03 5-May-82 Page S-1
MCBNRT MAC 1-Dec-81 15:40 SYMBOL TABLE
AIC 104000 000131 int OPENF 104000 000021 int ..PST 000003 spd
BEGIN 000657' OPTDAT 000012' ..TX1 004000 000000 spd
CAPOFF 001027' OUCNT 000047' ..TX2 000001 spd
CAPON 001022' OUTPUT 000046' .AC1 000001 spd
CFORK 104000 000152 int P 000017 spd .DCX39 000047 sin
CHNTAB 000651' PC 000050' .FHINF 777774 sin
CIS 104000 000141 int PDL 000123' .FHSLF 400000 sin
CLOSF 104000 000022 int PM%CNT 400000 000000 sin .GSSMB 000001 sin
CLZCON 001111' PM%RD 100000 000000 sin .MOACN 000024 sin
CR%CAP 200000 000000 sin PM%WR 040000 000000 sin .MOANT 000043 sin
CX 000016 spd PMAP 104000 000056 int .MOCC 000041 sin
CZ%ABT 004000 000000 sin PSOUT 104000 000076 int .MOCIA 000776 sin
DEBRK 104000 000136 int PTYJFN 000007' .MOCLZ 000040 sin
DEDLO1 000737' RESET 104000 000147 int .MORDA 000033 sin
DEDLOP 000727' RET 263740 000000 .MORHN 000026 sin
DEVNAM 000005' RF%STS 377777 000000 sin .PRIOU 000101 sin
DISMS 104000 000167 int RFORK 104000 000155 int .RFFPT 000003 sin
DOACC 001050' RFSTS 104000 000156 int .RFHLT 000002 sin
DOACC0 001060' RLJFN 104000 000023 int
DONCI 001076' ROUTEF 000656'
EIR 104000 000126 int RPCAP 104000 000150 int
ENTVEC 000652' RSPROC 000724'
EPCAP 104000 000151 int SAVAC 000001'
ERJMP 320700 000000 int SFACS 104000 000160 int
F 000000 spd SFORK 104000 000157 int
FFORK 104000 000154 int SIR 104000 000125 int
FORKS 000640' SOUTR 104000 000532 int
FRKDO 000673' SRVINP 000036'
FRKFLG 000655' SRVJFN 000011'
FRKIDX 000000' SRVOSZ 000050 spd
FRKLOP 000715' SRVOUP 000051'
GJ%SHT 000001 000000 sin SRVSIZ 000010 spd
GJINF 104000 000013 int START 000744'
GOTCI 001036' START0 000741'
GTBFR 000016' START1 000754'
GTJFN 104000 000020 int START2 000761'
HALTF 104000 000170 int STDEV 104000 000120 int
HSTNAM 000121' T1 000001 spd
JSERR 000000000000# pol T2 000002 spd
JSERR0 000000 ext T3 000003 spd
KFORK 104000 000153 int T4 000004 spd
LEVTAB 000650' TRYAGN 001033'
MAXFRK 000010 spd TTYJFN 000010'
MAXOUT 000240 spd VEDIT 000003 spd
MO%CDN 777000 000000 sin VERSIO 000500 000003 spd
MO%DAV 777000 sin VMAJOR 000005 spd
MO%INA 000777 000000 sin VMINOR 000000 spd
MTOPR 104000 000077 int VWHO 000000 spd
NOUT 104000 000224 int WAIT 104000 000306 int
NPDL 000040 spd WFORK 104000 000163 int
OF%BSZ 770000 000000 sin WTFRK 000716'
OF%MOD 007400 000000 sin ..CSC 000004 spd
OF%RD 200000 sin ..CSN 000003 spd
OF%WR 100000 sin ..MX1 352300 spd
OLDFRK 000001 spd ..MX2 000001 spd
BEGIN 97 98 105# 111
CAPOFF 256#
CAPON 250#
CHNTAB 88# 211
CLZCON 280 325#
CR%CAP 120
CX 55#
CZ%ABT 200 206
DEDLO1 153 171#
DEDLOP 152# 171
DEVNAM 70#
DOACC 283#
DOACC0 290 295#
DONCI 296 310#
ENTVEC 97# 338
F 57# 118 125 162 163 272
FORKS 86# 124 126 152 159 160 193 226 285
FRKDO 120# 138 170
FRKFLG 102# 116 191
FRKIDX 68# 195 197 284
FRKLOP 138#
GJ%SHT 224
GOTCI 88 272#
GTBFR 75#
HSTNAM 81# 300 303 306
JSERR 313 318
LEVTAB 87# 211
MAXFRK 59# 86 119 151
MAXOUT 62# 218
MO%CDN 245
MO%DAV 245
MO%INA 245
NPDL 64# 82 209
OF%BSZ 231
OF%MOD 231
OF%RD 231
OF%WR 231
OLDFRK 60# 118
OPTDAT 74# 275 328 332
OUCNT 78# 219
OUTPUT 77# 217
P 56# 209
PC 79# 87 282
PDL 82# 209
PM%CNT 133
PM%RD 133
PM%WR 133
PTYJFN 71# 204 273
RF%STS 156
ROUTEF 103#
RSPROC 149#
SAVAC 69#
SRVINP 76#
SRVJFN 73# 198 203 230 234 237 242 274 283 301 310 333
SRVOSZ 61# 62 80
SRVOUP 80# 216
SRVSIZ 63# 76
START 196# 264 278 281 289 294 314 335 336
START0 117 136 191#
START1 199 204#
START2 205 209#
T1 51# 106 112 120 124 129 131 135 139 142 149 152 154 156
157 158 159 161 166 198 200 204 206 210 216 217 218 219
220 224 230 234 239 242 250 256 262 274 281 282 283 297
301 306 308 310 315 320 329 330 333
T2 52# 114 121 127 129 130 135 136 168 211 213 222 225 227
231 240 243 252 257 276 284 285 286 291 302 311 325 326
T3 53# 114 132 133 140 168 222 240 245 252 257 275 279 287
292 303 316 325 328 329 332
T4 54# 119 124 126 138 151 152 159 160 165 171 192 193 195
197 226 279 287 296 327 331
TRYAGN 229 238 262#
TTYJFN 72#
VEDIT 92# 95
VERSIO 95# 99
VMAJOR 90# 95
VMINOR 91# 95
VWHO 93# 95
WTFRK 123 139# 172
%RF%ST 156 157
..CSC 156# 156 157 157#
..CSN 156# 156
..MX1 120# 120 213# 213 224# 224 231# 231 245# 245 250# 250 256# 256
262# 262
..MX2 120# 120 121 213# 213 214 224# 224 225 231# 231 245# 245 250#
251 256# 257 262# 263
..PST 156# 156
..TX1 133# 133 200# 200 206# 206
..TX2 133# 133 134 200# 200 201 206# 206 207
.AC1 109
.DCX39 279
.FHINF 142 149
.FHSLF 112 131 139 166 210 220 239 250 256
.GSSMB 231
.MOACN 243
.MOANT 311
.MOCC 286
.MOCIA 245
.MOCLZ 326
.MORDA 276
.MORHN 302
.PRIOU 315
.RFFPT 158
.RFHLT 157
AIC 214
CFORK 122
CIS 196
CLOSF 201 207
DEBRK 323
DISMS 263
EIR 215
EPCAP 115 141 169 223 241 253 258
ERJMP 123 278 289 294 305 313 318 335
FFORK 150
FLD 231 245
GJINF 295
GTJFN 228
HALTF 110
KFORK 164
LOAD 156
MOVX 120 213 224 231 244 250 256 262
MTOPR 246 277 288 304 312 334
NOUT 317
OPENF 233
PMAP 134
PSOUT 109 299 307 309 322
RESET 105
RET 254 259
RFORK 143
RFSTS 155
RLJFN 235
RPCAP 113 167 221 251
SFACS 128
SFORK 137
SIR 212
SOUTR 293
STDEV 107
TMSG 108
TXO 133 200 206
WAIT 247
WFORK 144