Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/nsdsp.list
There are no other files named nsdsp.list in the archive.
NSDSP MACRO M1110 13-OCT-79 10:22
TABLE OF CONTENTS
4- 131 $ACPST - COLD START ENTRY FOR DECNET ACP
5- 275 TMOUT - ONE SECOND TIMEOUT PROCESSING
NSDSP MACRO M1110 13-OCT-79 10:22 PAGE 3
1 .IIF NDF V$$ER1 .TITLE NSDSP
2 .IIF DF V$$ER1 .TITLE NSDSP1
3 .IDENT /V01.01/
4
5 ;
6 ; COPYRIGHT (C) 1978 BY
7 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
8 ;
9 ;
10 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
11 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
12 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
13 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
14 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
15 ; TRANSFERRED.
16 ;
17 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
18 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
19 ; CORPORATION.
20 ;
21 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
22 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
23 ;
24 ;
25 ; MODULE DESCRIPTION
26 ;
27 ; NETWORK ACP MAIN DISPATCH ROUTINE
28 ;
29 ;
30 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
31 ;
32 ; IDENT HISTORY:
33 ;
34 ; 1.00 10-FEB-78
35 ; VERSION 2.0 RELEASE
36 ; 1.01 9-AUG-79 ALAN D. PECKHAM
37 ; RELEASE MOP AND EVENT LOGGING CCBS PROPERLY.
38 ; ACCESS $NSRQF AS BYTE.
39 ;
40 ;
41 ; MACRO LIBRARY CALLS
42 ;
43
44 .MCALL SAVRG,MAP,RESRG
45
46 .MCALL CCBDF$,NSPSY$
47 000000 CCBDF$ ;DEFINE CCB OFFSETS
48 000000 NSPSY$ ;DEFINE NSP INTERNAL SYMBOLS
49
50 .MCALL DVBDF$,MBXDF$,NSSYM$
51 000000 DVBDF$ ;DEFINE NETWORK VOLUME CONTROL BLOCK OFFSETS
52 000000 MBXDF$ ;DEFINE TASK MAILBOX BLOCK OFFSETS
53 000000 NSSYM$ ;DEFINE THE NSP RETURN CODES
54
55 ;
56 ; LOCAL MACRO DEFINITIONS
57 ;
NSDSP MACRO M1110 13-OCT-79 10:22 PAGE 3-1
58 ;
59 ; PUSH AND POP STACK INSTRUCTIONS
60 ;
61
62 .MACRO PUSH S
63 .IRP SS,<S>
64 MOV SS,-(SP)
65 .ENDR
66 .ENDM PUSH
67
68 .MACRO POP D
69 .IRP DD,<D>
70 MOV (SP)+,DD
71 .ENDR
72 .ENDM POP
73
74 ;
75 ; LOCAL DATA
76 ;
77 ;
78 ; CCB FUNCTION DISPATCH TABLE
79 ;
80
81 000000 CCBDSP: ; REFERENCE LABEL
82 .IF DF N$$SYS
83 000000 000000G .WORD .XMENB ; TRANSMIT ENABLE
84 000002 000000G .WORD .RCENB ; RECEIVE ENABLE
85 .IFF
86 .WORD -1 ; ILLEGAL WITHOUT SYSTEM INTERFACE
87 .WORD -1 ; ILLEGAL WITHOUT SYSTEM INTERFACE
88 .ENDC
89 000004 177777 .WORD -1 ; KILL ENABLE (ILLEGAL)
90 000006 000000G .WORD .CTENB ; CONTROL ENABLE
91 000010 000342' .WORD TMOUT ; TIME OUT
92 000012 000000G .WORD .XMCMP ; TRANSMIT COMPLETE
93 000014 000000G .WORD .RCCMP ; RECEIVE COMPLETE
94 000016 177777 .WORD -1 ; KILL COMPLETE (ILLEGAL)
95 000020 000000G .WORD .CTCMP ; CONTROL COMPLETE
96
97 ;
98 ; QIO FUNCTION DISPATCH TABLE (VERSION 2)
99 ;
100
101 .IF NDF R$$11S
102 000022 000000G .WORD $DMQIO ; DISMOUNT REQUEST (FC=6)
103 .IFF
104 .WORD $IFCER ; (ILLEGAL FOR RSX-11S)
105 .ENDC
106 000024 000000G .WORD $CLOQIO ; CLOSE LUN REQUEST (FC=7)
107 000026 000000G QIODSP: .WORD $IFCER ; ILLEGAL FUNTION (FC=0-5, 10-32, 36-37)
108 000030 000000G .WORD $CONQIO ; CONNECT REQUEST (FC=33)
109 000032 000000G .WORD $DISQIO ; DISCONNECT REQUEST (FC=34)
110 000034 000000G .WORD $NETQIO ; NETWORK CONTROL (FC=35)
111
112 .IF DF V$$ER1
113
114 ;
NSDSP MACRO M1110 13-OCT-79 10:22 PAGE 3-2
115 ; QIO FUNCTION DISPATCH TABLE (VERSION 1)
116 ;
117
118 .IF NDF R$$11S
119 .WORD $DMQIO ; DISMOUNT REQUEST (FC=6)
120 .IFF
121 .WORD $IFCER ; (ILLEGAL FOR RSX11S)
122 .ENDC
123 .WORD $CLOQIO ; CLOSE LUN REQUEST (FC=7)
124 V1QDSP: .WORD $IFCER ; ILLEGAL FUNCTION (FC=0-5,10-32,36-37)
125 .WORD $CONV1Q ; CONNECT REQUEST (FC=33)
126 .WORD $DISV1Q ; DISCONNECT REQUEST (FC=34)
127 .WORD $CTLV1Q ; CONTROL REQUEST (FC=35)
128
129 .ENDC
NSDSP MACRO M1110 13-OCT-79 10:22 PAGE 4
$ACPST - COLD START ENTRY FOR DECNET ACP
131 .SBTTL $ACPST - COLD START ENTRY FOR DECNET ACP
132
133 ;+
134 ; ** - $ACPST - COLD START ENTRY FOR DECNET ACP
135 ;
136 ; INPUTS:
137 ;
138 ; NONE
139 ;
140 ; OUTPUTS:
141 ;
142 ; THE ACP INITIALIZATION CODE IS CALLED, AND UPON COMPLETION,
143 ; THE MAIN DISPATCH AND WAIT LOOP IS ENTERED.
144 ;
145 ;-
146
147 000036 $ACPST::CALL $ACPIN ;INITIALIZE THE ACP
148 000042 103004 BCC ACPGO ;IF CC, CONTINUE
149
150 000044 SWSTK$ CRASH ;SWITCH TO SYSTEM STATE
151 000050 CALLR $ACPEX ;;GO EXIT ACP TO SYSTEM
152
153 ;+
154 ; ** - ACPGO - DECNET ACP MAIN DISPATCH AND WAIT LOOP
155 ;
156 ; INPUTS:
157 ;
158 ; POSSIBLE CCB IN COMM EXEC QUEUE, OR
159 ; I/O PACKET IN ACP RECEIVE QUEUE
160 ;
161 ; OUTPUTS:
162 ;
163 ; TO CCB PROCESSING ROUTINES:
164 ; R3 = SUBFUNCTION CODE
165 ; R4 -> CCB
166 ; R5 = SUBFUNCTION CODE
167 ;
168 ; TO I/O PACKET PROCESSING ROUTINES:
169 ; R2 = I/O SUBFUNTION CODE
170 ; R3 -> I/O PACKET
171 ;
172 ;-
173
174 000054 ACPGO: SWSTK$ 40$ ;SWITCH TO SYSTEM STATE
175
176 000060 012767 000000G 000000G MOV #PD$NSP,$CMPDV ;;SET CORRECT PDV INDEX
177 000066 016703 000000G 10$: MOV $NSADB,R3 ;;SET ADDRESS OF ACP CCB QUEUE
178 000072 CALL $CMQRM ;;ATTEMPT TO DEQUE A CCB
179 000076 103410 BCS 15$ ;;IF CS, NO CCB - GO CHECK IF EXITING
180 000100 116402 000010 MOVB C.FNC(R4),R2 ;;GET FUNCTION CODE
181 000104 116403 000011 MOVB C.MOD(R4),R3 ;;GET SUBFUNCTION CODE
182 000110 010405 MOV R4,R5 ;;COPY ADDRESS OF CCB
183 000112 CALL @CCBDSP(R2) ;;DISPATCH ACCORDING TO FUNCTION CODE
184 000116 000763 BR 10$ ;;GO LOOK FOR ANOTHER CCB
185
186 000120 005763 000004 15$: TST N$TCB(R3) ;;IS THE ACP EXITING ?
187 000124 001002 BNE 20$ ;;IF NE, NO - GO CHECK ACP MESSAGE QUEUE
NSDSP MACRO M1110 13-OCT-79 10:22 PAGE 4-1
$ACPST - COLD START ENTRY FOR DECNET ACP
188 000126 CALLR $ACPEX ;;ELSE, GO EXIT ACP
189
190 ;
191 ; CHECK ACP MESSAGE QUEUE FOR AN I/O PACKET
192 ;
193
194 000132 105767 000000G 20$: TSTB $NSQUF ;;DEQUEUE BLOCKED ?
195 000136 001012 BNE 30$ ;;IF NE, DON'T ATTEMPT
196
197 000140 016700 000000G MOV $TKTCB,R0 ;;GET ADDRESS OF OWN TCB
198 000144 062700 000000G ADD #T.RCVL,R0 ;;OFFSET TO RECEIVE LISTHEAD
199 000150 CALL $QRMVF ;;ATTEMPT TO DEQUEUE AN I/O PACKET
200 000154 103403 BCS 30$ ;;IF CS, NO PACKET - WAIT FOR SOMETHING
201 000156 010166 000010 MOV R1,10(SP) ;;RETURN ADDRESS OF PACKET IN R3
202 000162 RETURN ;;RETURN TO TASK STATE
203
204 000164 105067 000000G 30$: CLRB $NSQUF ;;CLEAR QUEUE BLOCKING FLAG
205 000170 005066 000010 CLR 10(SP) ;;RETURN R3 CLEAR TO INDICATE NO PACKET
206 000174 CALLR $STPCT ;;STOP ACP AND EXIT SYSTEM STATE
207
208 ;
209 ; RETURN TO TASK STATE HERE TO PROCESS I/O PACKET
210 ;
211
212 000200 005703 40$: TST R3 ;IS THERE AN I/O PACKET ?
213 000202 001724 BEQ ACPGO ;IF EQ, NO - TRY TO GET ONE
214 000204 116301 000000G MOVB I.FCN(R3),R1 ;GET I/O SUBFUNCTION CODE
215 000210 116300 000001G MOVB I.FCN+1(R3),R0 ;GET I/O FUNCTION CODE
216 000214 162700 000005 SUB #5,R0 ;CHECK FOR FUNCTION CODES 0 THRU 5
217 000220 003411 BLE 50$ ;IF LE, MAP TO AN ILLEGAL FUNCTION
218 000222 162700 000003 SUB #3,R0 ;CHECK FOR CODES 6 AND 7 (DMO, CLN)
219 000226 002407 BLT 60$ ;IF LT, OK - DISPATCH FUNCTION
220 000230 162700 000022 SUB #22,R0 ;MAP TO ACP FUNCTION CODE SET
221 000234 002403 BLT 50$ ;IF LT, MAP TO AN ILLEGAL FUNCTION
222 000236 020027 000003 CMP R0,#3 ;CHECK IF CODE IS >= 36
223 000242 003401 BLE 60$ ;IF LE, OK - DISPATCH FUNCTION
224 000244 005000 50$: CLR R0 ;MAP TO AN ILLEGAL FUNCTION
225 000246 006300 60$: ASL R0 ;MAKE FUNCTION CODE A WORD INDEX
226
227 .IF DF V$$ER1
228
229 MOV I.TCB(R3),R2 ;GET TASK'S TCB ADDRESS
230 BIT #T3.NET,T.ST3(R2) ;VERSION 1 OR VERSION 2 INTERFACE?
231 BEQ 70$ ;IF EQ, VERSION 2
232 CALL @V1QDSP(R0) ;DISPATCH TO PROPER PROCESSOR
233 BR 80$ ;GO CHECK FOR DISMOUNT
234 70$:
235 .ENDC
236
237 000250 CALL @QIODSP(R0) ;DISPATCH TO FUNCTION
238
239 000254 105767 000000G 80$: TSTB $NSDMF ;ARE WE DISMOUNTING ?
240 000260 001675 BEQ ACPGO ;IF EQ, NO - GO CHECK REQUEST QUEUES
241
242 ;
243 ; CHECK FOR ALL USER INTERFACE NETWORK ACTIVITY TO END, THEN
244 ; FLUSH THE GENERAL DELIVERY QUEUE AND STOP ALL LINES
NSDSP MACRO M1110 13-OCT-79 10:22 PAGE 4-2
$ACPST - COLD START ENTRY FOR DECNET ACP
245 ;
246
247 000262 016704 000000G MOV $NSVCB,R4 ;GET VOLUME CONTROL BLOCK ADDRESS
248 000266 016401 000006 MOV V.ULT(R4),R1 ;GET START ADDRESS OF ULA TABLE
249 000272 016400 000010 MOV V.ULTE(R4),R0 ;COMPUTE NUMBER OF USER LINK
250 000276 160100 SUB R1,R0 ; ADDRESSES IN TABLE
251 000300 006200 ASR R0
252 000302 005721 90$: TST (R1)+ ;CHECK NEXT USER LINK ADDRESS
253 000304 001263 BNE ACPGO ;IF NE, CAN'T EXIT YET
254 000306 SOB R0,90$ ;IF NOT END OF TABLE, CHECK NEXT ULA
255 000312 005764 000012 TST V.MBXQ(R4) ;ANY MAILBOXES LEFT ?
256 000316 001256 BNE ACPGO ;IF NE, YES - CAN'T EXIT YET
257
258 000320 SWSTK$ ACPGO ;SWITCH TO SYSTEM STATE
259
260 000324 CALLR $LNSTP ;;INITIATE PHYSICAL LINK SHUTDOWN AND RETURN TO
261 ;; TASK STATE
262
263 ;
264 ; WHEN ALL THE PHYSICAL LINKS HAVE COMPLETED SHUTDOWN, CONTROL IS
265 ; RETURNED TO THIS ROUTINE. THE TCB ADDRESS IS CLEARED IN THE DATA
266 ; DESCRIPTOR BLOCK AND A FINAL PASS IS TAKEN THROUGH THE ACP DISPATCH
267 ; IN ORDER TO FLUSH THE CCB QUEUE. THE ACP WILL EXIT WHEN THE QUEUE
268 ; IS EMPTY.
269 ;
270
271 000330 016702 000000G $LNDON::MOV $NSADB,R2 ;INDICATE ACP IS EXITING BY CLEARING THE
272 000334 005062 000004 CLR N$TCB(R2) ; ACP'S TCB ADDRESS
273 000340 RETURN ;GO FLUSH NSP CCB QUEUE AND EXIT
NSDSP MACRO M1110 13-OCT-79 10:22 PAGE 5
TMOUT - ONE SECOND TIMEOUT PROCESSING
275 .SBTTL TMOUT - ONE SECOND TIMEOUT PROCESSING
276
277 ;+
278 ; TMOUT - TIMER PROCESSING
279 ;
280 ; NSP LINE TIMING PROCESSING IS ACCOMPLISHED. IF ANYTHING IS ON THE
281 ; GENERAL DELIVERY QUEUE, THE OLDEST CCB IS TIMED OUT AND REJECTED
282 ; AFTER AN APPROPRIATE TIME (ABOUT 5 MINUTES). ALL GENERAL DELIVERY
283 ; QUEUE CCB'S ARE CHECKED, IF THE REQUEST FLAG IS SET, TO REQUEST
284 ; TASKS TO RUN IF NEEDED.
285 ;
286 ; INPUTS:
287 ;
288 ; R3 = SUBFUNCTION CODE
289 ; R4 -> CCB
290 ; R5 -> "
291 ;
292 ; OUTPUTS:
293 ;
294 ;-
295
296 000342 TMOUT: CALL $CCBRT ;;RETURN CCB
297 000346 CALL .TMLIN ;;DO LINE TIMING PROCESSING
298
299 000352 016704 000000G MOV $NSVCB,R4 ;;GET VOLUME CONTROL BLOCK ADDRESS
300 000356 062704 000016 ADD #V.GENQ,R4 ;;COMPUTE THE ADDRESS OF THE GENERAL DELIVERY QUEUE
301 000362 011405 MOV (R4),R5 ;;ANYTHING ON THE QUEUE ? (AND GET FIRST ENTRY)
302 000364 001467 BEQ 70$ ;;IF EQ, NO - NO TIMEOUT NEEDED
303 000366 105364 177764 DECB V.TIMR-V.GENQ(R4) ;;DECREMENT TIMEOUT COUNT
304 000372 001032 BNE 40$ ;;IF NE, JUST SCAN QUEUE
305 ;;ELSE, REMOVE OLDEST CCB FROM QUEUE
306 000374 PUSH R4 ;;SAVE GENERAL DELIVERY QUEUE ADDRESS
307 000376 011514 MOV (R5),(R4) ;;ADJUST QUEUE LISTHEAD POINTER
308 000400 001002 BNE 10$ ;;IF NE, NO NEW LAST
309 000402 010464 000002 MOV R4,2(R4) ;;OTHERWISE, SET NEW LAST POINTER
310 000406 122765 000001 000010 10$: CMPB #NT.CON,C.FNC(R5) ;;IS THIS A CONNECT REQUEST ?
311 000414 001005 BNE 20$ ;;IF NE, NO - MUST BE A MOP EVENT
312 000416 012703 000046 MOV #ER$ABO,R3 ;;SET TIMEOUT REASON CODE
313 000422 CALL CCBREJ ;;REJECT THE CONNECTION
314 000426 000403 BR 30$ ;;GO JOIN COMMON CODE
315 000430 010504 20$: MOV R5,R4 ;;CHANGE REGISTER CONVENTIONS
316 000432 CALL $CCBCL ;;RELEASE RESOURCE USED FOR MOP OR LOG EVENT ;AP0001
317 000436 30$: POP R4 ;;RECOVER GENERAL DELIVERY QUEUE ADDRESS ;**-1
318 000440 005714 TST (R4) ;;ANYTHING LEFT ON THE QUEUE ?
319 000442 001003 BNE 35$ ;;IF NE, YES - GO RESTART TIMER
320 000444 105067 000000G CLRB $NSRQF ;;IF QUEUE IS EMPTY CLEAR GLOBAL TASK REQUEST FLAG
321 000450 000435 BR 70$ ;;GO FINISH
322
323 000452 116464 177765 177764 35$: MOVB V.TIME-V.GENQ(R4),V.TIMR-V.GENQ(R4) ;;OTHERWISE START TIMER
324
325 000460 105767 000000G 40$: TSTB $NSRQF ;;ANYTHING NEED REQUESTING ?
326 000464 001427 BEQ 70$ ;;IF EQ, NO - GO FINISH
327 ;;ELSE, SCAN GENERAL DELIVERY QUEUE
328 000466 105067 000000G CLRB $NSRQF ;;ASSUME ALL TASKS ARE REQUESTED SUCCESSFULLY ;AP0001
329 000472 PUSH #SCNQUE ;;SETUP QUEUE SCANNING CO-ROUTINE ;**-1
330 000476 50$: CALL @(SP)+ ;;GET NEXT CCB ON QUEUE
331 000500 103421 BCS 70$ ;;IF CS, END OF QUEUE
NSDSP MACRO M1110 13-OCT-79 10:22 PAGE 5-1
TMOUT - ONE SECOND TIMEOUT PROCESSING
332 000502 132765 000002 000011 BITB #CX.REQ,C.MOD(R5) ;;NEED REQUESTING ?
333 000510 001772 BEQ 50$ ;;IF EQ, NO
334 000512 016500 000004 MOV C.NSP(R5),R0 ;;GET TASK TCB ADDRESS
335 000516 005001 CLR R1 ;;SET DEFAULT UIC FLAG
336 000520 CALL $TSKRT ;;REQUEST TASK
337 000524 103404 BCS 60$ ;;IF CS, STILL NOT SUCCESSFUL
338 000526 142765 000002 000011 BICB #CX.REQ,C.MOD(R5) ;;CLEAR NEEDS REQUESTING STATUS
339 000534 000760 BR 50$ ;;CONTINUE WITH THE SCAN
340
341 000536 105267 000000G 60$: INCB $NSRQF ;;SET REQUEST FLAG
342 000542 000755 BR 50$ ;;CONTINUE WITH THE SCAN
343
344 000544 70$: ;;REFERENCE LABEL
345 .IF DF V$$ER1
346
347 MOV $NSVCB,R4 ;;GET VOLUME CONTROL BLOCK ADDRESS AND
348 ADD #V.1CPQ,R4 ;; COMPUTE V1 PENDING CONNECT QUEUE LISTHEAD
349 PUSH #SCNQUE ;;SETUP QUEUE SCANNING CO-ROUTINE
350 80$: CALL @(SP)+ ;;GET NEXT CCB ON QUEUE
351 BCS 90$ ;;IF CS, END OF QUEUE
352 DECB C.MOD(R5) ;;DECREMENT TIMER CELL
353 BNE 80$ ;;IF NE, TIME HAS NOT RUN OUT
354
355 MOV (R5),(R4) ;;UNLINK THIS CCB FROM QUEUE
356 BNE 85$
357 PUSH 2(SP) ;;COPY LISTHEAD ADDRESS
358 ADD #2,(SP) ;;POINT TO LISTTAIL ADDRESS
359 MOV R4,@(SP)+ ;;ADJUST LISTTAIL
360 85$: PUSH R4 ;;SAVE QUEUE POINTER
361 MOV #ER$ABO,R3 ;;SET TIMEOUT REASON CODE
362 CALL CCBREJ ;;REJECT THE CONNECTION
363 POP R5 ;;RESTORE QUEUE POINTER
364 BR 80$ ;;GO CHECK NEXT CONNECT CCB
365
366 90$: ;;REFERENCE LABEL
367 .ENDC
368
369 000544 RETURN ;;RETURN TO CALLER
370
371 000036' .END $ACPST
NSDSP MACRO M1110 13-OCT-79 10:22 PAGE 5-2
SYMBOL TABLE
ACKMAS= 170000 C$$ORE= 000400 ER$STA= 000051 LA.NMS= 010000 L.TIPI 000004
ACKPRE= 100000 C$$RSH= 177564 ER$TCN= 000040 LA.RES= 060000 L.UDQ 000034
ACKRES= 060000 C.BID 000003 ER$TCO= 000041 LD$LP = 000000 L.ULA 000040
ACKWRA= 010000 C.BUF 000014 ER$TPA= 000010 LF.DFL= 000060 L.USA 000030
ACPGO 000054R C.BUF1 000014 ER$UOB= 000004 LF.DSP= 000040 L.USTA 000024
A$$CHK= 000000 C.BUF2 000024 E$$XPR= 000000 LF.DST= 000020 L.XQ1 000046
A$$CPS= 000000 C.CNT 000020 FC.CCP= 000020 LF.FPN= 000010 L.XQ2 000050
A$$PRI= 000000 C.CNT1 000020 FC.CTL= 000006 LF.HF0= 001000 L.XQ3 000052
A$$TRP= 000000 C.CNT2 000030 FC.KCP= 000016 LF.HMF= 020000 MA.DA = 000000
A.NAK = 010000 C.FLG 000022 FC.KIL= 000004 LF.HSF= 010000 MA.IL = 000020
CB.CCB= 000002 C.FLG1 000022 FC.RCE= 000002 LF.INR= 000100 MC.CC = 000040
CB.RDB= 000004 C.FLG2 000032 FC.RCP= 000014 LF.INT= 000400 MC.CI = 000020
CCBDSP 000000R C.FNC 000010 FC.TIM= 000010 LF.LCL= 040000 MC.DC = 000100
CCBREJ= ****** GX C.LIN 000006 FC.XCP= 000012 LF.MMF= 100000 MC.DI = 000060
CE.ABO= 100362 C.LNK 000000 FC.XME= 000000 LF.MSF= 040000 MC.NO = 000000
CE.DIS= 100366 C.MOD 000011 FS.AST= 000000 LF.NKR= 000200 MC.ST = 000120
CE.ERR= 100370 C.NSP 000004 FS.CIB= 002000 LF.NKS= 000400 MD.BM = 000040
CE.MOP= 100372 C.RSV 000002 FS.CRA= 001000 LF.NPN= 000001 MD.EM = 000100
CE.NTE= 100361 C.STA 000007 FS.DIS= 013000 LF.NTS= 002000 MD.ILS= 000040
CE.RTE= 100376 C.STS 000012 FS.DVC= 001000 LF.RSU= 100000 MD.IM = 000020
CE.SRC= 100364 DF$ADJ= 020000 FS.ENB= 012000 LS.DLS= 000200 MF.ACK= 000004
CE.TMO= 100374 DF$DWN= 001000 FS.GET= 006000 LS.FCC= 000004 MF.CTL= 000010
CF.EOM= 000004 DF$FRE= 070000 FS.INI= 000000 LS.FC0= 000001 MF.DAT= 000000
CF.HDR= 000020 DF$LCL= 040000 FS.KIL= 000000 LS.FC1= 000002 MSGHDR= 000007
CF.LB = 100000 DF$LNK= 004000 FS.LTM= 001000 LS.ILS= 000200 MS.AST= 000010
CF.SOM= 000010 DF$REM= 010000 FS.MNT= 004000 LS.MAK= 000020 MS.CIP= 000200
CF.SYN= 000040 DF$RES= 002000 FS.MSN= 014000 LS.MNK= 000040 M$$CRB= 000124
CF.TRN= 000100 DF$TMP= 100000 FS.RNG= 011000 LS.RES= 000360 M$$CRX= 000000
CL$ACK= 000040 D$CHN 000002 FS.RTN= 001000 LS.RSV= 000300 M$$FCS= 000000
CL$MFL= 000010 D$FLG 000000 FS.SET= 005000 L$$ASG= 000000 M$$MGE= 000000
CL$NRM= 000020 D$LEN 000014 FS.STM= 000000 L$$DRV= 000000 M$$OVR= 000000
CL$SFL= 000004 D$LNG 000005 FS.STP= 002000 L$$P11= 000001 M.MAIL 000012
CL$TYP= 000001 D$NAM 000006 FS.STR= 001000 L$$11R= 000000 M.MAX 000007
CL.MU1= 000001 D$USE 000004 FS.TRM= 003000 L.CIQ 000026 M.MBL = 000016
CL.MU2= 000002 D$$BUG= 177514 FS.XKL= 002000 L.DCR 000036 M.NAST 000005
CL.RES= 177774 D$$ISK= 000000 FS.XOF= 010000 L.FLG 000012 M.NEXT 000000
CRASH = ****** GX D$$L11= 000001 FS.XON= 007000 L.LDA 000024 M.SPA 000010
CS.ABO= 000100 D$$YNC= 000000 F$$LVL= 000001 L.LIA 000026 M.STAT 000004
CS.BUF= 000200 D$$YNM= 000000 G$$TPP= 000000 L.LLA 000002 M.TASK 000002
CS.DCR= 000400 ER$ABO= 000046 G$$TSS= 000000 L.LNG1 000054 M.USE 000006
CS.DEV= 000002 ER$ABT= 000011 G$$TTK= 000000 L.LNO 000022 NC.FM0= 000000
CS.DIS= 000040 ER$ACC= 000042 G$$WRD= 000000 L.LSA 000032 NC.FM1= 000001
CS.ENB= 000020 ER$ACT= 000044 IE.NDA= 177662 L.LSF 000044 NC.FM2= 000002
CS.EOF= 000001 ER$CDI= 000052 IE.NNT= 177660 L.LVL 000001 NETTIM= 000005
CS.ERR= 100000 ER$COM= 000047 IE.NRJ= 177666 L.NDA 000034 NE$ABO= 000046
CS.HFE= 002000 ER$FCF= 000050 IE.URJ= 177667 L.NIN 000016 NE$ABT= 000011
CS.LST= 040000 ER$FMT= 000005 IS.DAO= 000002 L.NLA 000036 NE$ACC= 000042
CS.MTL= 004000 ER$GEN= 000007 I$$RAR= 000000 L.NSTA 000025 NE$ACT= 000044
CS.RNG= 000010 ER$IFC= 000030 I$$RDN= 000000 L.NXN 000014 NE$CDI= 000052
CS.ROV= 000004 ER$ILS= 000043 I.FCN = ****** GX L.PDV 000041 NE$COM= 000047
CS.RSN= 010000 ER$IMG= 000053 K$$CNT= 177546 L.REM 000006 NE$FCF= 000050
CS.SUC= 000001 ER$MLB= 000006 K$$CSR= 177546 L.RLA 000010 NE$FMT= 000005
CS.TMO= 020000 ER$NOD= 000002 K$$LDC= 000000 L.RNO 000020 NE$GEN= 000007
CX.GDQ= 000001 ER$NSD= 000003 K$$TPS= 000074 L.STA 000000 NE$ILS= 000043
CX.REQ= 000002 ER$RES= 000001 LA.ACK= 100000 L.TC 000042 NE$IMG= 000053
CX.UNL= 000004 ER$SSR= 000000 LA.MSK= 170000 L.TIC 000043 NE$MLB= 000006
C$$CKP= 000000 ER$SSS= 000045 LA.NAK= 110000 L.TIPD 000005 NE$NOD= 000002
NSDSP MACRO M1110 13-OCT-79 10:22 PAGE 5-3
SYMBOL TABLE
NE$NSD= 000003 NT$DAT= 000002 N$$INT= 000020 P$CHN 000004 S$$YSZ= 007600
NE$RES= 000001 NT$DIS= 000010 N$$LDV= 000001 P$CNT 000005 TMOUT 000342R
NE$SSR= 000000 NT$IDC= 000034 N$$MOV= 000010 P$FRQ 000012 T$$KMG= 000000
NE$SSS= 000045 NT$IDN= 000030 N$$OPT= 000020 P$FSP 000013 T$$MIN= 000000
NE$STA= 000051 NT$ILN= 000032 N$$OVR= 000042 P$LCD 000002 T.RCVL= ****** GX
NE$TCN= 000040 NT$IND= 000024 N$$SYS= 000001 P$LEN 000014 VF$RCV= 100000
NE$TCO= 000041 NT$INL= 000026 N$$USR= 000001 P$LST 000000 VF$XMT= 040000
NE$TPA= 000010 NT$INT= 000004 N.ACNT 000116 P$NOD 000010 V$FLG 000000
NE$UOB= 000004 NT$LS = 000014 N.ACTL 000114 P$PFQ 000006 V$LEN 000022
NE.ABO= 177776 NT$MOD= 000012 N.DDL1 000012 P$TIM 000003 V$RCV 000002
NE.ACT= 177771 NT$NAK= 000022 N.DDL2 000016 P$$P45= 000000 V$XMT 000012
NE.CLS= 177767 NT$OFF= 000026 N.DDS1 000014 P$$WRD= 000000 V$$CTR= 001000
NE.DIS= 177777 NT$ON = 000002 N.DDS2 000020 QIODSP 000026R V.CULT 000004
NE.FMT= 177770 NT$QRY= 000014 N.DFMT 000010 Q$$OPT= 000010 V.GENQ 000016
NE.NDT= 177766 NT$REJ= 000004 N.DGRP 000012 RF.CLN= 000000 V.MBXQ 000012
NE.NOD= 177774 NT$ROU= 000022 N.DOBJ 000011 RF.CTL= 000003 V.TIME 000003
NE.REJ= 177775 NT$RTI= 000010 N.DUSR 000014 RF.TIM= 177400 V.TIMR 000002
NE.RES= 177773 NT$RTN= 000000 N.LGTH= 000160 RF.TM0= 000400 V.TRCT 000000
NE.TIM= 177772 NT$SNG= 000006 N.NODE 000000 RF.WTD= 000020 V.ULT 000006
NI.FLI= 000002 NT$STP= 000004 N.OPDL 000136 RF.WTM= 000030 V.ULTE 000010
NI.FRI= 000004 NT$XOF= 000020 N.OPTD 000140 RF.WTS= 000010 V.VBL = 000026
NI.FRT= 000001 NT$XON= 000016 N.PASL 000102 RH.CNT= 000001 V.1CPQ 000022
NI.FUB= 000010 NT.ABO= 000005 N.PASS 000104 RH.EFM= 000020 WINDOW= 004000
NI.INI= 000001 NT.ABT= 000004 N.RQDL 000060 RH.HDR= 000002 X$$DBT= 000000
NI.RLI= 000002 NT.ACK= 000001 N.RQID 000062 RH.PRI= 000014 $ACPEX= ****** GX
NI.RRI= 000004 NT.BOM= 000040 N.RSRV= 000030 RH.PR1= 000004 $ACPIN= ****** GX
NI.RVE= 000001 NT.CON= 000001 N.SDL1 000036 RH.RFM= 000100 $ACPST 000036RG
NI.VER= 000002 NT.DSC= 000003 N.SDL2 000042 R$$DER= 000000 $CCBCL= ****** GX
NO.DTR= 000077 NT.EOM= 000100 N.SDS1 000040 R$$K11= 000001 $CCBRT= ****** GX
NO.FAL= 000021 NT.FCN= 037400 N.SDS2 000056 R$$SND= 000000 $CLOQI= ****** GX
NO.FA1= 000001 NT.INT= 000002 N.SEG 000006 R$$11M= 000000 $CMPDV= ****** GX
NO.NCU= 000023 NT.LOG= 000011 N.SFMT 000034 SCNQUE= ****** GX $CMQRM= ****** GX
NO.RTL= 000022 NT.MD1= 000420 N.SGRP 000036 ST$CC = 000002 $CONQI= ****** GX
NO.TAS= 000000 NT.MFL= 000002 N.SOBJ 000035 ST$CIR= 000003 $DISQI= ****** GX
NO.TCL= 000017 NT.MOD= 000020 N.SUSR 000040 ST$CIS= 000001 $DMQIO= ****** GX
NO.TC1= 000005 NT.MOM= 000000 PD$NSP= ****** GX ST$DAT= 000005 $IFCER= ****** GX
NO.TLK= 000020 NT.MOP= 000010 PF$EIP= 000100 ST$DID= 000015 $LNDON 000330RG
NP$RTR= 000003 NT.NAK= 000002 PF$ENB= 000200 ST$DIP= 000006 $LNSTP= ****** GX
NR$IFC= 000030 NT.NFL= 000000 PF$OFF= 000000 ST$DIR= 000012 $NETQI= ****** GX
NS.BOM= 000040 NT.SFL= 000001 PF$RLI= 000002 ST$DIS= 000014 $NSADB= ****** GX
NS.EOM= 000100 NT.SOL= 000140 PF$RRI= 000004 ST$UDI= 000013 $NSDMF= ****** GX
NS.MFL= 000003 NT.XOF= 000004 PF$RVE= 000001 ST$UNR= 000011 $NSQUF= ****** GX
NS.MOM= 000000 NT.XON= 000010 PF$RVR= 000040 S$EMR 000006 $NSRQF= ****** GX
NS.NFL= 000001 N$ACQ 000000 PF$SLI= 000002 S$FMT 000012 $NSVCB= ****** GX
NS.SET= 000002 N$ICF 000006 PF$SRI= 000004 S$LEN 000040 $QRMVF= ****** GX
NS.SFL= 000002 N$LNI 000010 PF$SRT= 000001 S$LNK 000022 $STPCT= ****** GX
NS.SOL= 000140 N$LVC 000022 PF$STA= 000003 S$MLK 000024 $TKTCB= ****** GX
NS.SUC= 000001 N$NOD 000032 PF$SUB= 000010 S$NKS 000010 $TSKRT= ****** GX
NT$ABO= 000022 N$PLD 000026 PF$UP = 000001 S$RES 000014 .CTCMP= ****** GX
NT$ACC= 000002 N$STS 000042 PS$NTI= 000003 S$SEC 000000 .CTENB= ****** GX
NT$ADS= 000000 N$TCB 000004 PS$OFF= 000000 S$SNI 000016 .RCCMP= ****** GX
NT$AKD= 000016 N$TMP 000012 PS$STR= 000001 S$UMR 000004 .RCENB= ****** GX
NT$AKI= 000020 N$VER 000036 PS$UP = 000005 S$UMS 000002 .TMLIN= ****** GX
NT$CC = 000012 N$$DAT= 000030 PS$VER= 000004 S$UNI 000020 .XMCMP= ****** GX
NT$CON= 000000 N$$DIS= 000020 PS$WT = 000002 S$$WRG= 000000 .XMENB= ****** GX
. ABS. 000160 000
NSDSP MACRO M1110 13-OCT-79 10:22 PAGE 5-4
SYMBOL TABLE
000546 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 20063 WORDS ( 79 PAGES)
DYNAMIC MEMORY: 20620 WORDS ( 79 PAGES)
ELAPSED TIME: 00:00:39
NSDSP,[131,34]NSDSP/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[131,10]NSDSP
NSDSP CREATED BY MACRO ON 13-OCT-79 AT 10:22 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ACPGO 000054 R 4-148 #4-174 4-213 4-240 4-253 4-256 4-258
CCBDSP 000000 R #3-81 4-183
CCBREJ = ****** GX 5-313
CRASH = ****** GX 4-150
CX.REQ = 000002 5-332 5-338
C.FNC 000010 4-180 5-310
C.MOD 000011 4-181 5-332 *5-338
C.NSP 000004 5-334
ER$ABO = 000046 5-312
I.FCN = ****** GX 4-214 4-215
NT.CON = 000001 5-310
N$TCB 000004 4-186 *4-272
N$$SYS = 000001 3-82
PD$NSP = ****** GX 4-176
QIODSP 000026 R #3-107 4-237
R$$11S = ****** 3-101
SCNQUE = ****** GX 5-329
TMOUT 000342 R 3-91 #5-296
T.RCVL = ****** GX 4-198
V$$ER1 = ****** 3-1 3-2 3-112 4-227 5-345
V.GENQ 000016 5-300 *5-303 5-323 *5-323
V.MBXQ 000012 4-255
V.TIME 000003 5-323
V.TIMR 000002 *5-303 *5-323
V.ULT 000006 4-248
V.ULTE 000010 4-249
$ACPEX = ****** GX 4-151 4-188
$ACPIN = ****** GX 4-147
$ACPST 000036 RG #4-147 5-371
$CCBCL = ****** GX 5-316
$CCBRT = ****** GX 5-296
$CLOQI = ****** GX 3-106
$CMPDV = ****** GX *4-176
$CMQRM = ****** GX 4-178
$CONQI = ****** GX 3-108
$DISQI = ****** GX 3-109
$DMQIO = ****** GX 3-102
$IFCER = ****** GX 3-107
$LNDON 000330 RG #4-271
$LNSTP = ****** GX 4-260
$NETQI = ****** GX 3-110
$NSADB = ****** GX 4-177 4-271
$NSDMF = ****** GX 4-239
$NSQUF = ****** GX 4-194 *4-204
$NSRQF = ****** GX *5-320 5-325 *5-328 *5-341
$NSVCB = ****** GX 4-247 5-299
$QRMVF = ****** GX 4-199
$STPCT = ****** GX 4-206
$TKTCB = ****** GX 4-197
$TSKRT = ****** GX 5-336
.CTCMP = ****** GX 3-95
.CTENB = ****** GX 3-90
NSDSP CREATED BY MACRO ON 13-OCT-79 AT 10:22 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
.RCCMP = ****** GX 3-93
.RCENB = ****** GX 3-84
.TMLIN = ****** GX 5-297
.XMCMP = ****** GX 3-92
.XMENB = ****** GX 3-83
NSDSP CREATED BY MACRO ON 13-OCT-79 AT 10:22 PAGE 3
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 4-147 4-150 4-174 4-178 4-183 4-199 4-237 4-258 5-296 5-297
5-313 5-316 5-330 5-336
CALLR #4-151 #4-188 #4-206 #4-260
CCBDF$ #3-46 3-47
DVBDF$ #3-50 3-51
MAP #3-44
MBXDF$ #3-50 #3-52
NSPSY$ #3-46 3-48
NSSYM$ #3-50 3-53
POP #3-68 5-317
PUSH #3-62 5-306 5-329
RESRG #3-44
RETURN 4-202 4-273 5-369
SAVRG #3-44
SOB #4-254
SWSTK$ #4-150 #4-174 #4-258