Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/nsprci.list
There are no other files named nsprci.list in the archive.
NSPRCI MACRO M1110 13-OCT-79 10:11
TABLE OF CONTENTS
4- 63 .RCCMP - RECEIVE COMPLETE PROCESSING
5- 116 RCVCTL - CONTROL MESSAGE RECEIVED DISPATCH
6- 162 RCVCC - CONNECT CONFIRM RECEIVED
7- 256 RCVCI - CONNECT INITIATE RECEIVED
8- 412 RCVDC - DISCONNECT CONFIRM RECEIVED
9- 452 RCVDI - DISCONNECT INITIATE RECEIVED
NSPRCI MACRO M1110 13-OCT-79 10:11 PAGE 3
1 .IIF DF N$$ICF, .TITLE NSPRCI
2 .IIF NDF N$$ICF, .TITLE NSPRCA
3 .IDENT /X01.03/
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 ; ACP RECEIVE MESSAGE PROCESSING
28 ;
29 ;
30 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
31 ;
32 ; IDENT HISTORY:
33 ;
34 ; 1.00 10-FEB-78
35 ; VERSION 2.0 RELEASE
36 ;
37 ; MODIFICATIONS:
38 ; JS0001 12-APR-78 JOHN SAUTER
39 ; REJECT A CONNECT FROM A REMOTE NODE IF WE
40 ; ARE SHORT ON SPACE IN THE NODE NAME TABLE.
41 ; AP0002 21-DEC-77 ALAN D. PECKHAM
42 ; TO ENABLE USE OF THE SYSTEM INTERFACE
43 ; AP0003 20-NOV-78 ALAN D. PECKHAM
44 ; CONDITIONALIZE JS0001 ADDITIONS
45 ;
46
47 ; MACRO LIBRARY CALLS
48 ;
49 .MCALL SAVRG,RESRG,$MVTBF
50 .MCALL SAVMAP,RESMAP,RECMAP,MAP
51 .MCALL CALLX,CALLC
52 .MCALL CCBDF$,NSPSY$
53 000000 CCBDF$ ; DEFINE THE CCB OFFSETS
54 000000 NSPSY$ ; DEFINE THE NSP SYMBOLS
55
56 .IF NDF N$$SYS&N$$USR
57 N$$SYS=1 ;IF NEITHER INTERFACE IS SPECIFIED
NSPRCI MACRO M1110 13-OCT-79 10:11 PAGE 3-1
58 ;THEN DEFAULT TO SYSTEM INTERFACE
59 .ENDC
60
61 000000 .PSECT NSPRCA
NSPRCI MACRO M1110 13-OCT-79 10:11 PAGE 4
.RCCMP - RECEIVE COMPLETE PROCESSING
63 .SBTTL .RCCMP - RECEIVE COMPLETE PROCESSING
64 ;+
65 ; **-.RCCMP-RECEIVE CONTROL MESSAGE PROCESSING
66 ;
67 ; THIS ROUTINE IS ENTERED WHEN A RECEIVE COMPLETE OPERATION HAS BEEN
68 ; DEQUEUED FOR THE ACP TO PROCESS. THE PROCESSING ROUTINE IS SELECTED
69 ; BY THE SUBFUNCTION CODE IN THE CCB.
70 ;
71 ; NOTE: INTERRUPT MESSAGES ARE ONLY QUEUED TO THE ACP WHEN THEY ARE
72 ; DESTINED FOR A USER TASK. ALL INTERRUPT MESSAGES FOR A SYSTEM
73 ; PROCESS ARE PROCESSED IN THE DRIVER.
74 ;
75 ; INPUTS:
76 ;
77 ; R5 = ADDRESS OF A CCB
78 ; R3 = SUBFUNCTION CODE
79 ;
80 ; OUTPUTS:
81 ;
82 ; R5 = ADDRESS OF CCB
83 ; R3 = SUBFUNCTION CODE
84 ;-
85
86 000000 .RCCMP:: ; REFERENCE LABEL
87 ;
88 ; IF ONLY THE SYSTEM INTERFACE IS SUPPORTED, DISPATCH ON THE SUBFUNCTION
89 ; CODE IS NOT REQUIRED SINCE ONLY PROTOCOL CONTROL MESSAGES ARE
90 ; PROCESSED BY THIS ROUTINE.
91 ;
92 .IF DF N$$USR!N$$ICF
93
94 000000 CALLR @RCTBL(R3) ; DISPATCH ON SUBFUNTION CODE
95
96 000004 000012' RCTBL: .WORD RCVCTL ; PROCESS A PROTOCOL CONTROL MESSAGE
97
98 .IF DF N$$ICF
99
100 000006 000000G .WORD RINCTL ; PROCESS INTERCEPTTED CONTROL MESSAGES
101
102 .IFF
103
104 .WORD CRASH ; RESERVED
105
106 .ENDC
107
108 .IF DF N$$USR
109
110 000010 000000G .WORD $QINTR ; GIVE AN INTERRUPT MESSAGE TO THE USER
111
112 .ENDC
113
114 .ENDC
NSPRCI MACRO M1110 13-OCT-79 10:11 PAGE 5
RCVCTL - CONTROL MESSAGE RECEIVED DISPATCH
116 .SBTTL RCVCTL - CONTROL MESSAGE RECEIVED DISPATCH
117 ;+
118 ; **-RCVCTL-PROCESS PROTOCOL CONTROL MESSAGES
119 ;
120 ; THIS ROUITNE DISPATCHES CONTROL MESSAGES BASED ON THE CONTROL
121 ; FIELD OF THE MESSAGE FLAGS.
122 ;
123 ; INPUTS:
124 ;
125 ; R5 = ADDRESS OF A CCB WHICH POINTS TO THE BUFFER THAT CONTAINS
126 ; THE CONTROL MESSAGE.
127 ;
128 ; OUTPUTS:
129 ;
130 ; R5 = ADDRESS OF THE CCB
131 ; R4 = MESSAGE POINTER [MSGFLGS+1]
132 ; R3 = POINTER TO SOURCE NODE NAME
133 ; R2 = MSGFLGS
134 ;-
135
136 000012 RCVCTL::MAP C.BUF(R5) ; MAP TO THE DATA BUFFER
137 000020 016504 000024 MOV C.BUF2(R5),R4 ; RESTORE MESSAGE POINTER
138 000024 016503 000032 MOV C.FLG2(R5),R3 ; RESTORE REMOTE NODE INDEX
139 000030 016502 000022 MOV C.FLG1(R5),R2 ; RESTORE MESSAGE FLAGS
140 000034 006002 ROR R2 ; MOVE SUBTYPE TO BITS <1,2>
141 000036 006002 ROR R2 ;
142 000040 006002 ROR R2 ;
143 000042 042702 177761 BIC #^C<14.>,R2 ; MASK TO 4 BITS
144 000046 CALL @CTLTBL(R2) ; DISPATCH ON CONTROL TYPE
145 000052 005705 TST R5 ; DATA BUFFER TO RELEASE ?
146 000054 001407 BEQ 10$ ; IF EQ, NO - IT'S RELEASED ELSEWHERE
147 000056 116565 000002 000011 MOVB C.RSV(R5),C.MOD(R5) ; RESTORE MOD CODE FOR PROCESSING
148 000064 CALLC UNSPWN ; RELEASE DATA BUFFER RESOURCES
149 000074 10$: RECMAP ; RECOVER PREVIOUS MAPPING
150 000102 .XMCMP:: ; REFERENCE LABEL
151 000102 RCVNOP: RETURN ; RETURN TO CALLER
152
153 000104 000102' CTLTBL: .WORD RCVNOP
154 000106 000406' .WORD RCVCI
155 000110 000124' .WORD RCVCC
156 000112 001122' .WORD RCVDI
157 000114 001026' .WORD RCVDC
158 000116 000000G .WORD RCVSTR
159 000120 000102' .WORD RCVNOP
160 000122 000102' .WORD RCVNOP
NSPRCI MACRO M1110 13-OCT-79 10:11 PAGE 6
RCVCC - CONNECT CONFIRM RECEIVED
162 .SBTTL RCVCC - CONNECT CONFIRM RECEIVED
163 ;+
164 ; **-RCVCC-CONNECT CONFIRM RECEIVED
165 ;
166 ; THIS ROUTINE PROCESSES CONNECT CONFIRM MESSAGES WHICH ARE RECEIVED.
167 ;
168 ; INPUTS:
169 ;
170 ; R3 = POINTER TO THE SOURCE NODE NAME
171 ; R4 = MESSAGE POINTER TO 'DESTADDR'
172 ; R5 = ADDRESS OF MESSAGE CCB
173 ;
174 ; OUTPUTS:
175 ;
176 ; ALL REGISTERS MAY BE USED
177 ;
178 ;-
179
180 000124 RCVCC: CALLC PRODS ; GET DEST AND SRC ADDR
181 000134 103517 BCS 45$ ; ERROR
182 000136 122710 000001 CMPB #ST$CIS,(R0) ; WAITING FOR A CC ON THIS LINK ?
183 000142 001110 BNE 42$ ; IF NE, NO - GO DECIDE WHAT TO DO WITH THE CC
184 000144 010160 000010 MOV R1,L.RLA(R0) ; SET UP THE REMOTE LINK ADDRESS
185 000150 CALLC GETEX1 ; GET LNKCHR
186 000160 103505 BCS 45$ ; IF CS, FIELD FORMAT ERROR
187 000162 CALL SETFLG ; VALIDATE REMOTE USERS FLAGS
188 000166 103502 BCS 45$ ; IF CS, FIELD FORMAT ERROR
189 000170 CALL SKPEXB ; SKIP OVER THE INFORMATION FIELD
190 000174 SAVRG <R5> ; SAVE ADDRESS OF MESSAGE CCB
191 000176 CALLC GETBIN ; GET OTHER NODE'S SEGSIZE
192 000206 016703 000000G MOV $RDBSZ,R3 ; CALCULATE MAX SEGSIZE ALLOWED IN SYSTEM
193 000212 162703 000042 SUB #N$$OVR,R3
194 000216 020103 CMP R1,R3 ; OTHER USERS SEGSIZE TOO BIG?
195 000220 101401 BLOS 22$ ; NO
196 000222 010301 MOV R3,R1 ; ADJUST SEGSIZE FOR US
197 000224 22$: CALL UCRDAT ; DEQUE PENDING CONNECT AND MOVE USER DATA
198 000230 010165 000022 MOV R1,C.FLG(R5) ; RETURN SEGSIZE TO USER
199 000234 032760 002000 000012 BIT #LF.NTS,L.FLG(R0) ; WAS DATA OR AN LS RECEIVED IN CIS STATE ?
200 000242 001412 BEQ 25$ ; IF EQ, NO - CONTINUE
201 000244 052760 110000 000030 BIS #LA.NAK,L.USA(R0) ; SET NAK REQUIRED FOR THE DATA SUBCHANNEL
202 000252 052760 110000 000032 BIS #LA.NAK,L.LSA(R0) ; SET NAK REQUIRED FOR THE I/LS SUBCHANNEL
203 000260 CALLC RECOV1 ; SEND THE NAK'S FOR DATA AND I/LS SUBCHANNELS
204 000270 25$: ;
205 .IF DF N$$LV2
206 MOV #2,R2 ; ACK OF A CONNECT CONFIRM
207 CALLC SNDACK ; SEND THE ACK MESSAGE
208 .ENDC
209
210 000270 112710 000005 MOVB #ST$DAT,(R0) ; THIS NODE IS READY TO RECV/XMIT DATA
211 000274 105260 000043 INCB L.TIC(R0) ; PRIME INTERRUPT MESSAGE COUNT
212
213 000300 016065 000002 000004 MOV L.LLA(R0),C.NSP(R5) ; LLA TO CCB
214
215 .IF DF N$$SYS&N$$USR
216 000306 105760 000041 TSTB L.PDV(R0) ;SYSTEM OR USER INTERFACE? ;AP0002
217 000312 001012 BNE 40$ ; SYSTEM ;**-1
218 .ENDC
NSPRCI MACRO M1110 13-OCT-79 10:11 PAGE 6-1
RCVCC - CONNECT CONFIRM RECEIVED
219
220 .IF DF N$$USR
221 000314 016065 000040 000006 MOV L.ULA(R0),C.LIN(R5) ; PUT ULA IN CCB
222 000322 RECMAP ; RESTORE PROPER ACP MAPPING
223 000330 CALL $QCCR ; CALL QIO INTERFACE ROUTINE FOR CC RECEIVED
224 000334 RESRG <R5> ; RESTORE MESSAGE CCB ADDRESS
225 000336 RETURN ; RETURN TO CALLER
226 .ENDC
227 000340 40$:
228 .IF DF N$$SYS
229 000340 CALL STCST ; SET COMPLETION STATUS
230 000344 112765 000000G 000005 MOVB #PD$NSP,C.NSP+1(R5) ; PDV OF NSP
231 000352 CALLC RETUSR ; RETURN CCB TO USER
232 000362 000410 BR 60$ ;
233 .ENDC
234
235 ;
236 ; ERROR PATH PROCESSING
237 ;
238 000364 026001 000010 42$: CMP L.RLA(R0),R1 ; IS THE SOURCE LINK ADDRESS CORRECT ?
239 000370 001001 BNE 45$ ; IF NE, NO - MESSAGE RECEIVED FOR AN IDLE LINK
240
241 .IF DF N$$LV2
242
243 CMPB #ST$DAT,(R0) ; LINK ESTABLISHED?
244 BNE 60$ ; IF NE, NO - IGNORE THE MESSAGE
245 MOV #2,R2 ; ACK FOR A CONNECT CONFIRM
246 CALLC SNDACK ; SEND THE ACK MESSAGE
247
248 .ENDC
249
250 000372 000404 BR 70$
251
252 000374 45$: CALLC DODC ; SEND DISC CONFIRM MSG
253 000404 60$: ;
254 000404 70$: RETURN
NSPRCI MACRO M1110 13-OCT-79 10:11 PAGE 7
RCVCI - CONNECT INITIATE RECEIVED
256 .SBTTL RCVCI - CONNECT INITIATE RECEIVED
257 ;+
258 ; **-RCVCI-CONNECT INITIATE RECEIVED
259 ;
260 ; THIS ROUTINE PROCESSES CONNECT MESSAGES WHICH ARE RECEIVED.
261 ;
262 ; INPUTS:
263 ;
264 ; R3 = POINTER TO SOURCE NODE NAME ENTRY
265 ; R4 = MESSAGE POINTER TO 'DESTADDR'
266 ; R5 = ADDRESS OF MESSAGE CCB
267 ;
268 ; OUTPUTS:
269 ;
270 ; ALL REGISTERS MAY BE USED
271 ;
272 ;-
273
274 000406 RCVCI: SAVRG <R5> ;SAVE CCB ADDRESS OF MESSAGE BUFFER
275 000410 032713 070000 BIT #DF$FRE,(R3) ;IS THIS NODE ALREADY KNOWN TO US ?
276 000414 001013 BNE 10$ ;IF NE, YES - DON'T NEED TO ADD A NEW NAME
277 000416 SAVRG <R4> ;SAVE CURRENT MESSAGE POINTER
278 000420 016504 000016 MOV C.BUF+2(R5),R4 ;GET THE POINTER TO THE START OF THE MESSAGE
279 000424 005204 INC R4 ;POINT TO THE DESTINATION NODE NAME
280 000426 CALLC SKPIMG ;SKIP OVER THE DESTINATION AND POINT OT THE SOURCE
281 000436 CALL NWNOD ;ADD THE SOURCE NODE NAME TO THE DATA BASE
282 000442 RESRG <R4> ;RESTORE ORIGINAL MESSAGE POINTER
283
284 000444 10$: CALLC PRODS ;PROCESS DESTINATION AND SOURCE LINK ADDRESS
285 000454 016702 000000G MOV $NSADB,R2 ;CHECK THAT THE DESTINATION LINK ADDRESS
286 000460 005762 000016 TST N$TMP+4(R2) ;...IS ZERO
287 000464 001121 BNE 100$ ;IF NE, NO - INVALID CI MESSAGE
288
289 .IF DF N$$LV2
290 MOV #N$$LNK,R2 ;MAX # OF LOGICAL LINKS
291 20$: MOV R2,R0 ;COPY NUMBER
292 ASL R0 ;MAKE # WORD INDEX
293 MOV $NTLVC(R0),R0 ;GET ADDR OF LLT
294 BEQ 30$ ;NO LOGICAL LINK
295 CMP R1,L.RLA(R0) ;SEE IF THERE IS ALREADY AN LLT
296 BNE 30$ ;NO
297 CMP R3,L.REM(R0) ;SET UP FOR THIS RLA AND REM
298 BNE 30$ ;NO
299 CMPB #ST$CIR,(R0) ;HAVE WE ALREADY RECVD A CONNECT FOR THIS LINK?
300 BNE 2$ ;NO
301 MOV #1,R2 ;ACK FOR CONNECT INITIATE
302 CALLC SNDACK ;SEND THE ACK MESSAGE
303 BR 60$
304
305 30$: SOB R2,20$ ;LOOP THRU LOGICAL LINK VECTOR
306 .ENDC
307
308 ;
309 ; CONTINUE PROCESSING THE MESSAGE
310 ;
311 000466 012701 000001 MOV #ER$RES,R1 ;ASSUME A RESOURCE LIMITED STATE
312 000472 005713 TST (R3) ;IS THE NODE NAME IN THE SCRATCH STORAGE AREA
NSPRCI MACRO M1110 13-OCT-79 10:11 PAGE 7-1
RCVCI - CONNECT INITIATE RECEIVED
313 000474 100515 BMI 100$ ;IF MI, YES - SEND A DC
314 .IF DF N$$ICF ;AP0003
315 000476 CALL CFRNOD ;COUNT FREE SPACES IN NODE NAME TABLE ;JS0001
316 000502 020227 000002 CMP R2,#2 ;IS THERE PLENTY OF SPACE? ;JS0001
317 000506 003510 BLE 100$ ;IF LE, NO: REJECT THE CONNECT. ;JS0001
318 .ENDC ;AP0003
319 000510 CALL ADDLNK ;ADD A NEW LOGICAL LINK
320 000514 103505 BCS 100$ ;IF CS, NO MORE LINKS AVAILABLE
321 000516 011605 MOV (SP),R5 ;RECOVER ADDRESS OF MESSAGE CCB
322 000520 105765 000006 TSTB C.LIN(R5) ;IS THIS AN INTERNAL LINK ?
323 000524 001002 BNE 40$ ;IF NE, NO
324 000526 052710 040000 BIS #LF.LCL,(R0) ;OTHERWISE SET LINK FLAG FOR INTERNAL
325 000532 010360 000006 40$: MOV R3,L.REM(R0) ;STORE POINTER TO REMOTE NODE NAME
326 000536 016702 000000G MOV $NSADB,R2 ;GET THE ADDRESS OF THE DATA DESCRIPTOR BLOCK
327 000542 016260 000014 000010 MOV N$TMP+2(R2),L.RLA(R0) ;STORE REMOTE LINK ADDRESS
328 000550 CALLC GETEX1 ;GET LINK SERVICES
329 000560 103457 BCS 90$ ;IF CS, FIELD FORMAT ERROR
330 000562 CALL SETFLG ;VALIDATE REMOTE USERS FLAGS
331 000566 103454 BCS 90$ ;THEY ARENT VALID
332 000570 CALL SKPEXB ;SKIP INFORMATION FIELD
333 000574 CALL GETDBK ;GET DESCRIPTOR BLOCK FOR USER
334 000600 103447 BCS 90$ ;IF CS, RESOURCE ERROR - SEND A DC (R1=ER$RES)
335 000602 CALL PROCI ;PROCESS DESCRIPTOR NAMES, ACCESS CONTROL
336 ; AND USER DATA FIELDS
337 000606 103442 BCS 70$ ;IF CS, FIELD FORMAT ERROR (R1=ER$FMT)
338 000610 110160 000041 MOVB R1,L.PDV(R0) ;SET PDV INDEX OF TARGET PROCESS
339
340 .IF DF N$$LV2
341 MOV #1,R2 ;ACK OF CONNECT INITIATE
342 CALLC SNDACK ;SEND ACK MESSAGE
343 .ENDC
344
345 000614 112710 000003 MOVB #ST$CIR,(R0) ;INDCIATE THAT WE HAVE RECEIVED A CI MSG
346 000620 016003 000006 MOV L.REM(R0),R3 ;RECOVER POINTER TO THE NODE NAME
347 000624 105263 000004 INCB D$USE(R3) ;RECORD ANOTHER LOGICAL LINK TO THIS NODE
348
349 000630 016065 000002 000004 MOV L.LLA(R0),C.NSP(R5) ;STORE THE LLA IN THE CCB
350 000636 112765 000000G 000005 MOVB #PD$NSP,C.NSP+1(R5) ;STORE NSP'S PDV INDEX
351 000644 112765 000000 000011 MOVB #NT$CON,C.MOD(R5) ;SET SUB FUNCTION CODE TO CONNECT
352
353 .IF DF N$$SYS&N$$USR
354 000652 105760 000041 TSTB L.PDV(R0) ;SYSTEM OR USER INTERFACE? ;AP0002
355 000656 001006 BNE 50$ ;SYSTEM ;**-1
356 .ENDC
357
358 .IF DF N$$USR
359 000660 RECMAP ;RESTORE PROPER ACP MAPPING
360 000666 CALL $QCIR ;CALL QIO INTERFACE ROUTINE FOR CI RECEIVED
361 000672 000406 BR 60$ ;
362 .ENDC
363 000674 50$:
364 .IF DF N$$SYS
365 000674 CALL STCST ;SET CONNECT COMPLETION STATUS
366 000700 CALLC GIVUSR ;GIVE CONNECT TO USER
367 .ENDC
368
369 000710 60$: RESRG <R5> ;RESTORE CCB ADDRESS OF RECEIVE BUFFER
NSPRCI MACRO M1110 13-OCT-79 10:11 PAGE 7-2
RCVCI - CONNECT INITIATE RECEIVED
370 000712 000423 BR 110$ ;
371
372 ;
373 ; ERROR PROCESSING FOR CONNECT INITIATE
374 ;
375 000714 70$: CALL RLSDBK ;RELEASE DESCRIPTOR BLOCK
376 000720 90$: CALLC REMLKA ;REMOVE LINK, BUT DON'T TOUCH THE USE COUNT
377 000730 016705 000000G 100$: MOV $NSADB,R5 ;COMPUTE ADDRESS OF THE SCRATCH STORAGE
378 000734 010165 000020 MOV R1,N$TMP+6(R5) ;STORE THE ERROR CODE
379 000740 RESRG <R5> ;RESTORE CCB ADDRESS OF RECEIVE BUFFER
380 000742 CALLC DODC ;SEND DC FOR IDLE LINK
381 000752 CALLC RMNOD ;CONDITIONALLY REMOVE THE NODE NAME
382 000762 110$: RETURN ;THIS CCB/BUFFER WILL BE RELEASED
383
384
385 ;+
386 ; **-STCST-SET CONNECT COMPLETION STATUS
387 ;
388 ; INPUTS:
389 ;
390 ; R5 = ADDRESS OF THE CONNECT CCB
391 ;
392 ; OUTPUTS:
393 ;
394 ; R4 = COMPLETION STATUS (NS.NFL, NS.SFL, NS.MFL)
395 ; C.STS(R5) = COMPLETION STATUS
396 ;
397 ;-
398 .IF DF N$$SYS
399
400 000764 012704 000001 STCST: MOV #NS.NFL,R4 ;ASSUME THE LINK IS NOT FLOW CONTROLLED
401 000770 032760 030000 000012 BIT #LF.HSF!LF.HMF,L.FLG(R0) ;OTHER NODE FLOW CONTROLLED ?
402 000776 001410 BEQ 10$ ;IF EQ, NO
403 001000 012704 000002 MOV #NS.SFL,R4 ;ASSUME LINK IS SEGMENT FLOW CONTROLLED
404 001004 032760 010000 000012 BIT #LF.HSF,L.FLG(R0) ;IS THE ASSUMPTION CORRECT ?
405 001012 001002 BNE 10$ ;IF NE, YES - RETURN STATUS
406 001014 012704 000003 MOV #NS.MFL,R4 ;OTHERWISE IT MUST BE MESSAGE FLOW CONTROLLED
407 001020 010465 000012 10$: MOV R4,C.STS(R5) ;STORE STATUS IN THE CCB
408 001024 RETURN ;RETURN TO CALLER
409
410 .ENDC
NSPRCI MACRO M1110 13-OCT-79 10:11 PAGE 8
RCVDC - DISCONNECT CONFIRM RECEIVED
412 .SBTTL RCVDC - DISCONNECT CONFIRM RECEIVED
413 ;+
414 ; **-RCVDC-DISCONNECT CONFIRM RECEIVED
415 ;
416 ; THIS ROUTINE PROCESSES DISCONNECT CONFIRM MESSAGES WHICH ARE
417 ; RECEIVED.
418 ;
419 ; INPUTS:
420 ;
421 ; R3 = POINTER TO THE SOURCE NODE NAME
422 ; R4 = MESSAGE POINTER TO 'DESTADDR'
423 ; R5 = ADDRESS OF MESSAGE CCB
424 ;
425 ; OUTPUTS:
426 ;
427 ; ALL REGISTERS MAY BE USED
428 ;
429 ;-
430
431 001026 RCVDC: CALLC PRODS ; PROCESS DEST AND SRC ADDRESS
432 001036 103430 BCS 40$ ; IF CS, MESSAGE RECEIVED ON AN IDLE LINK
433 001040 026001 000010 CMP L.RLA(R0),R1 ; IS THE REMOTE LINK ADDRESS CORRECT ?
434 001044 001025 BNE 40$ ; IF NE, NO - MESSAGE RECEIVED ON AN IDLE LINK
435 001046 CALLC GETBIN ; GET THE DISCONNECT REASON CODE
436 001056 010103 MOV R1,R3 ; COPY IT
437 001060 122710 000003 CMPB #ST$CIR,(R0) ; RECEIVED A CI AND WAITING FOR A USER RESPONSE
438 001064 001415 BEQ 40$ ; IF EQ, YES - IGNORE THIS MESSAGE
439 001066 032710 040000 BIT #LF.LCL,(R0) ; IS THIS RECEIVED FROM INTERNAL LOOPBACK ?
440 001072 001404 BEQ 10$ ; IF EQ, NO - JUST CONTINUE
441 001074 CALLC FRBDAT ; USE THIS AS TRANSMIT COMPLETE OF THE MESSAGE
442 ; ...TO DECREMENT THE COUNT AND RELEASE THE BUFFER
443 001104 112760 000015 000025 10$: MOVB #ST$DID,L.NSTA(R0) ; SET SUB STATE TO DONE WITH THE NET
444 001112 005004 CLR R4 ; NO USER DATA IS POSSIBLE ON A DC
445 001114 CALLR DISUSR ; INITIATE LINK DISCONNECTION AND RETURN
446
447 ;
448 ; JUST IGNORE AN UNRECOGNIZED DC MESSAGE
449 ;
450 001120 40$: RETURN ; RETURN TO CALLER
NSPRCI MACRO M1110 13-OCT-79 10:11 PAGE 9
RCVDI - DISCONNECT INITIATE RECEIVED
452 .SBTTL RCVDI - DISCONNECT INITIATE RECEIVED
453 ;+
454 ; **-RCVDI-DISCONNECT INITIATE RECEIVED
455 ;
456 ; THIS ROUTINE PROCESSES DISCONNECT INITIATE MESSAGES WHICH ARE
457 ; RECEIVED.
458 ;
459 ; INPUTS:
460 ;
461 ; R3 = POINTER TO SOURCE NODE NAME
462 ; R4 = MESSAGE POINTER TO 'DESTADDR'
463 ; R5 = ADDRESS OF MESSAGE CCB
464 ;
465 ; OUTPUTS:
466 ;
467 ; ALL REGISTERS MAY BE USED
468 ;
469 ;-
470
471 001122 RCVDI: CALLC PRODS ; PROCESS DEST AND SRC ADDRESS
472 001132 103432 BCS 30$ ; IF CS, MESSAGE RECEIVED ON AN IDLE LINK
473 001134 122710 000001 CMPB #ST$CIS,(R0) ; ARE WE WAITING FOR AN ACCEPT OR REJECT ?
474 001140 001002 BNE 10$ ; IF NE, NO - VAILDATE THE SOURCE LINK ADDRESS
475 001142 010160 000010 MOV R1,L.RLA(R0) ; OTHERWISE MUST SET UP THE SOURCE LINK ADDRESS
476 001146 026001 000010 10$: CMP L.RLA(R0),R1 ; IS THE SOURCE LINK ADDRESS CORRECT ?
477 001152 001022 BNE 30$ ; IF NE, NO - MESSAGE RECEIVED ON AN IDLE LINK
478 001154 CALLC GETBIN ; GET REASON CODE
479 001164 010103 MOV R1,R3 ; REASON FOR DISCONNECT
480
481 001166 122710 000003 CMPB #ST$CIR,(R0) ; RECEIVED A CI AND WAITING FOR A USER RESPONSE ?
482 001172 001416 BEQ 40$ ; IF EQ, YES - NO DI RESPONSE REQUIRED (C-BIT CLEAR)
483 001174 112760 000015 000025 MOVB #ST$DID,L.NSTA(R0) ; SET SUBSTATE TO DONE WITH THE NET
484 001202 CALL DISUSR ; ...AND START THE DISCONNECTION CYCLE
485 001206 016701 000000G MOV $NSADB,R1 ; COMPUTE ADDRESS OF THE SCRATCH STORAGE
486 001212 012761 000052 000020 MOV #ER$CDI,N$TMP+6(R1) ; ...REGION AND STORE DI RESPONSE CODE
487 001220 30$: CALLC DODC ; SEND DISCONNECT CONFIRM MESSAGE
488 001230 40$: RETURN ; RETURN TO CALLER
489
490
491 000001 .END
NSPRCI MACRO M1110 13-OCT-79 10:11 PAGE 9-1
SYMBOL TABLE
ACKMAS= 170000 C.BUF 000014 ER$TCN= 000040 IF.INS= 040000 LF.INR= 000100
ACKPRE= 100000 C.BUF1 000014 ER$TCO= 000041 IF.NKS= 000400 LF.INT= 000400
ACKRES= 060000 C.BUF2 000024 ER$TPA= 000010 IF.NRD= 000200 LF.LCL= 040000
ACKWRA= 010000 C.CNT 000020 ER$UOB= 000004 IF.NRI= 100000 LF.MMF= 100000
ADDLNK= ****** GX C.CNT1 000020 E$$XPR= 000000 IF.NTS= 002000 LF.MSF= 040000
A$$CHK= 000000 C.CNT2 000030 FC.CCP= 000020 IF.SND= 000004 LF.NKR= 000200
A$$CPS= 000000 C.FLG 000022 FC.CTL= 000006 IF.SNL= 000002 LF.NKS= 000400
A$$PRI= 000000 C.FLG1 000022 FC.KCP= 000016 I$$RAR= 000000 LF.NPN= 000001
A$$TRP= 000000 C.FLG2 000032 FC.KIL= 000004 I$$RDN= 000000 LF.NTS= 002000
A.NAK = 010000 C.FNC 000010 FC.RCE= 000002 I.FLG = 000012 LF.RSU= 100000
CB.CCB= 000002 C.LIN 000006 FC.RCP= 000014 I.ILA = 000040 LS.DLS= 000200
CB.RDB= 000004 C.LNK 000000 FC.TIM= 000010 I.IREM= 000042 LS.FCC= 000004
CE.ABO= 100362 C.MOD 000011 FC.XCP= 000012 I.LDA = 000024 LS.FC0= 000001
CE.DIS= 100366 C.NSP 000004 FC.XME= 000000 I.LIA = 000026 LS.FC1= 000002
CE.ERR= 100370 C.RSV 000002 FE.CAL= 000040 I.LLA = 000002 LS.ILS= 000200
CE.MOP= 100372 C.STA 000007 FE.DRV= 000010 I.LNO = 000022 LS.MAK= 000020
CE.NTE= 100361 C.STS 000012 FE.EXP= 000200 I.LSA = 000032 LS.MNK= 000040
CE.RTE= 100376 DF$ADJ= 020000 FE.EXT= 000001 I.LVL = 000001 LS.RES= 000360
CE.SRC= 100364 DF$DWN= 001000 FE.EXV= 000004 I.NDA = 000034 LS.RSV= 000300
CE.TMO= 100374 DF$FRE= 070000 FE.LSI= 000400 I.NIN = 000016 L$$ASG= 000000
CFRNOD= ****** GX DF$LCL= 040000 FE.MUP= 000002 I.NLA = 000036 L$$DRV= 000000
CF.EOM= 000004 DF$LNK= 004000 FE.MXT= 040000 I.NSTA= 000025 L$$P11= 000001
CF.HDR= 000020 DF$REM= 010000 FE.NLG= 100000 I.NXN = 000014 L$$11R= 000000
CF.LB = 100000 DF$RES= 002000 FE.PKT= 000100 I.REM = 000006 L.CIQ 000026
CF.SOM= 000010 DF$TMP= 100000 FE.PLA= 000020 I.RLA = 000010 L.DCR 000036
CF.SYN= 000040 DISUSR= ****** GX FRBDAT= ****** GX I.RNO = 000020 L.FLG 000012
CF.TRN= 000100 DODC = ****** GX FS.AST= 000000 I.STA = 000000 L.LDA 000024
CL$ACK= 000040 D$CHN 000002 FS.CIB= 002000 I.TIPD= 000005 L.LIA 000026
CL$MFL= 000010 D$FLG 000000 FS.CRA= 001000 I.TIPI= 000004 L.LLA 000002
CL$NRM= 000020 D$LEN 000014 FS.DIS= 013000 I.USA = 000030 L.LNG1 000054
CL$SFL= 000004 D$LNG 000005 FS.DVC= 001000 I.USTA= 000024 L.LNO 000022
CL$TYP= 000001 D$NAM 000006 FS.ENB= 012000 KDSAR0= 172360 L.LSA 000032
CL.MU1= 000001 D$USE 000004 FS.GET= 006000 KDSDR0= 172320 L.LSF 000044
CL.MU2= 000002 D$$BUG= 177514 FS.INI= 000000 KISAR0= 172340 L.LVL 000001
CL.RES= 177774 D$$ISK= 000000 FS.KIL= 000000 KISAR5= 172352 L.NDA 000034
CMODE = 140000 D$$L11= 000001 FS.LTM= 001000 KISAR6= 172354 L.NIN 000016
CS.ABO= 000100 D$$YNC= 000000 FS.MNT= 004000 KISAR7= 172356 L.NLA 000036
CS.BUF= 000200 D$$YNM= 000000 FS.MSN= 014000 KISDR0= 172300 L.NSTA 000025
CS.DCR= 000400 ER$ABO= 000046 FS.RNG= 011000 KISDR6= 172314 L.NXN 000014
CS.DEV= 000002 ER$ABT= 000011 FS.RTN= 001000 KISDR7= 172316 L.PDV 000041
CS.DIS= 000040 ER$ACC= 000042 FS.SET= 005000 K$$CNT= 177546 L.REM 000006
CS.ENB= 000020 ER$ACT= 000044 FS.STM= 000000 K$$CSR= 177546 L.RLA 000010
CS.EOF= 000001 ER$CDI= 000052 FS.STP= 002000 K$$LDC= 000000 L.RNO 000020
CS.ERR= 100000 ER$COM= 000047 FS.STR= 001000 K$$TPS= 000074 L.STA 000000
CS.HFE= 002000 ER$FCF= 000050 FS.TRM= 003000 LA.ACK= 100000 L.TC 000042
CS.LST= 040000 ER$FMT= 000005 FS.XKL= 002000 LA.MSK= 170000 L.TIC 000043
CS.MTL= 004000 ER$GEN= 000007 FS.XOF= 010000 LA.NAK= 110000 L.TIPD 000005
CS.RNG= 000010 ER$IFC= 000030 FS.XON= 007000 LA.NMS= 010000 L.TIPI 000004
CS.ROV= 000004 ER$ILS= 000043 F$$LVL= 000001 LA.RES= 060000 L.UDQ 000034
CS.RSN= 010000 ER$IMG= 000053 GETBIN= ****** GX LD$LP = 000000 L.ULA 000040
CS.SUC= 000001 ER$MLB= 000006 GETDBK= ****** GX LF.DFL= 000060 L.USA 000030
CS.TMO= 020000 ER$NOD= 000002 GETEX1= ****** GX LF.DSP= 000040 L.USTA 000024
CTLTBL 000104R 002 ER$NSD= 000003 GIVUSR= ****** GX LF.DST= 000020 L.XQ1 000046
C$$CKP= 000000 ER$RES= 000001 G$$TPP= 000000 LF.FPN= 000010 L.XQ2 000050
C$$ORE= 000400 ER$SSR= 000000 G$$TSS= 000000 LF.HF0= 001000 L.XQ3 000052
C$$RSH= 177564 ER$SSS= 000045 G$$TTK= 000000 LF.HMF= 020000 MA.DA = 000000
C.BID 000003 ER$STA= 000051 G$$WRD= 000000 LF.HSF= 010000 MA.IL = 000020
NSPRCI MACRO M1110 13-OCT-79 10:11 PAGE 9-2
SYMBOL TABLE
MC.CC = 000040 NT$AKD= 000016 N$$OPT= 000020 PS$NTI= 000003 ST$CC = 000002
MC.CI = 000020 NT$AKI= 000020 N$$OVR= 000042 PS$OFF= 000000 ST$CIR= 000003
MC.DC = 000100 NT$CC = 000012 N$$SYS= 000001 PS$STR= 000001 ST$CIS= 000001
MC.DI = 000060 NT$CON= 000000 N$$USR= 000001 PS$UP = 000005 ST$DAT= 000005
MC.NO = 000000 NT$DAT= 000002 N.ACNT 000116 PS$VER= 000004 ST$DID= 000015
MC.ST = 000120 NT$DIS= 000010 N.ACTL 000114 PS$WT = 000002 ST$DIP= 000006
MD.BM = 000040 NT$IDC= 000034 N.DDL1 000012 P$CHN 000004 ST$DIR= 000012
MD.EM = 000100 NT$IDN= 000030 N.DDL2 000016 P$CNT 000005 ST$DIS= 000014
MD.ILS= 000040 NT$ILN= 000032 N.DDS1 000014 P$FRQ 000012 ST$UDI= 000013
MD.IM = 000020 NT$IND= 000024 N.DDS2 000020 P$FSP 000013 ST$UNR= 000011
MF.ACK= 000004 NT$INL= 000026 N.DFMT 000010 P$LCD 000002 SWR = 177570
MF.CTL= 000010 NT$INT= 000004 N.DGRP 000012 P$LEN 000014 S$EMR 000006
MF.DAT= 000000 NT$LS = 000014 N.DOBJ 000011 P$LST 000000 S$FMT 000012
MPAR = 172100 NT$MOD= 000012 N.DUSR 000014 P$NOD 000010 S$LEN 000040
MPCSR = 177746 NT$NAK= 000022 N.LGTH= 000160 P$PFQ 000006 S$LNK 000022
MSGHDR= 000007 NT$OFF= 000026 N.NODE 000000 P$TIM 000003 S$MLK 000024
M$$CRB= 000124 NT$ON = 000002 N.OPDL 000136 P$$P45= 000000 S$NKS 000010
M$$CRX= 000000 NT$QRY= 000014 N.OPTD 000140 P$$WRD= 000000 S$RES 000014
M$$FCS= 000000 NT$REJ= 000004 N.PASL 000102 Q$$OPT= 000010 S$SEC 000000
M$$MGE= 000000 NT$ROU= 000022 N.PASS 000104 RCTBL 000004R 002 S$SNI 000016
M$$OVR= 000000 NT$RTI= 000010 N.RQDL 000060 RCVCC 000124R 002 S$UMR 000004
NC.FM0= 000000 NT$RTN= 000000 N.RQID 000062 RCVCI 000406R 002 S$UMS 000002
NC.FM1= 000001 NT$SNG= 000006 N.RSRV= 000030 RCVCTL 000012RG 002 S$UNI 000020
NC.FM2= 000002 NT$STP= 000004 N.SDL1 000036 RCVDC 001026R 002 S$$WRG= 000000
NETTIM= 000005 NT$XOF= 000020 N.SDL2 000042 RCVDI 001122R 002 S$$YSZ= 007600
NE.ABO= 177776 NT$XON= 000016 N.SDS1 000040 RCVNOP 000102R 002 TPS = 177564
NE.ACT= 177771 NT.ACK= 000001 N.SDS2 000056 RCVSTR= ****** GX T$$KMG= 000000
NE.CLS= 177767 NT.BOM= 000040 N.SEG 000006 RECOV1= ****** GX T$$MIN= 000000
NE.DIS= 177777 NT.EOM= 000100 N.SFMT 000034 REMLKA= ****** GX UBMPR = 170200
NE.FMT= 177770 NT.FCN= 037400 N.SGRP 000036 RETUSR= ****** GX UCRDAT= ****** GX
NE.NDT= 177766 NT.MD1= 000420 N.SOBJ 000035 RF.CLN= 000000 UDSAR0= 177660
NE.NOD= 177774 NT.MFL= 000002 N.SUSR 000040 RF.CTL= 000003 UDSDR0= 177620
NE.REJ= 177775 NT.MOD= 000020 PD$NSP= ****** GX RF.TIM= 177400 UISAR0= 177640
NE.RES= 177773 NT.MOM= 000000 PF$EIP= 000100 RF.TM0= 000400 UISAR4= 177650
NE.TIM= 177772 NT.NAK= 000002 PF$ENB= 000200 RF.WTD= 000020 UISAR5= 177652
NI.FLI= 000002 NT.NFL= 000000 PF$OFF= 000000 RF.WTM= 000030 UISAR6= 177654
NI.FRI= 000004 NT.SFL= 000001 PF$RLI= 000002 RF.WTS= 000010 UISAR7= 177656
NI.FRT= 000001 NT.SOL= 000140 PF$RRI= 000004 RH.CNT= 000001 UISDR0= 177600
NI.FUB= 000010 NT.XOF= 000004 PF$RVE= 000001 RH.EFM= 000020 UISDR4= 177610
NI.INI= 000001 NT.XON= 000010 PF$RVR= 000040 RH.HDR= 000002 UISDR5= 177612
NI.RLI= 000002 NWNOD = ****** GX PF$SLI= 000002 RH.PRI= 000014 UISDR6= 177614
NI.RRI= 000004 N$ACQ 000000 PF$SRI= 000004 RH.PR1= 000004 UISDR7= 177616
NI.RVE= 000001 N$ICF 000006 PF$SRT= 000001 RH.RFM= 000100 UNSPWN= ****** GX
NI.VER= 000002 N$LNI 000010 PF$STA= 000003 RINCTL= ****** GX VF$RCV= 100000
NP$RTR= 000003 N$LVC 000022 PF$SUB= 000010 RLSDBK= ****** GX VF$XMT= 040000
NS.BOM= 000040 N$NOD 000032 PF$UP = 000001 RMNOD = ****** GX V$FLG 000000
NS.EOM= 000100 N$PLD 000026 PIRQ = 177772 R$$DER= 000000 V$LEN 000022
NS.MFL= 000003 N$STS 000042 PMODE = 030000 R$$K11= 000001 V$RCV 000002
NS.MOM= 000000 N$TCB 000004 PROCI = ****** GX R$$SND= 000000 V$XMT 000012
NS.NFL= 000001 N$TMP 000012 PRODS = ****** GX R$$11M= 000000 V$$CTR= 001000
NS.SET= 000002 N$VER 000036 PR0 = 000000 SETFLG= ****** GX WINDOW= 004000
NS.SFL= 000002 N$$DAT= 000030 PR1 = 000040 SISDR0= 172200 X$$DBT= 000000
NS.SOL= 000140 N$$DIS= 000020 PR4 = 000200 SKPEXB= ****** GX $CALLX= ****** GX
NS.SUC= 000001 N$$ICF= 000001 PR5 = 000240 SKPIMG= ****** GX $NSADB= ****** GX
NT$ABO= 000022 N$$INT= 000020 PR6 = 000300 SR0 = 177572 $QCCR = ****** GX
NT$ACC= 000002 N$$LDV= 000001 PR7 = 000340 SR3 = 172516 $QCIR = ****** GX
NT$ADS= 000000 N$$MOV= 000010 PS = 177776 STCST 000764R 002 $QINTR= ****** GX
NSPRCI MACRO M1110 13-OCT-79 10:11 PAGE 9-3
SYMBOL TABLE
$RDBSZ= ****** GX .RCCMP 000000RG 002 .XMCMP 000102RG 002
. ABS. 000160 000
000000 001
NSPRCA 001232 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 19034 WORDS ( 75 PAGES)
DYNAMIC MEMORY: 20620 WORDS ( 79 PAGES)
ELAPSED TIME: 00:00:49
NSPRCI,[131,34]NSPRCI/CR/-SP=[130,10]NETLIB/ML,RSXMCI/PA:1,[131,10]NSPRCA
NSPRCI CREATED BY MACRO ON 13-OCT-79 AT 10:11 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ADDLNK = ****** GX 7-319
CFRNOD = ****** GX 7-315
CTLTBL 000104 R 5-144 #5-153
C.BUF 000014 5-136 7-278
C.BUF2 000024 5-137
C.FLG 000022 *6-198
C.FLG1 000022 5-139
C.FLG2 000032 5-138
C.LIN 000006 *6-221 7-322
C.MOD 000011 *5-147 *7-351
C.NSP 000004 *6-213 *6-230 *7-349 *7-350
C.RSV 000002 5-147
C.STS 000012 *7-407
DF$FRE = 070000 7-275
DISUSR = ****** GX 8-445 9-484
DODC = ****** GX 6-252 7-380 9-487
D$USE 000004 *7-347
ER$CDI = 000052 9-486
ER$RES = 000001 7-311
FRBDAT = ****** GX 8-441
GETBIN = ****** GX 6-191 8-435 9-478
GETDBK = ****** GX 7-333
GETEX1 = ****** GX 6-185 7-328
GIVUSR = ****** GX 7-366
KISAR6 = 172354 *5-136 *5-149 *6-222 *7-359
LA.NAK = 110000 6-201 6-202
LF.HMF = 020000 7-401
LF.HSF = 010000 7-401 7-404
LF.LCL = 040000 7-324 8-439
LF.NTS = 002000 6-199
L.FLG 000012 6-199 7-401 7-404
L.LLA 000002 6-213 7-349
L.LSA 000032 *6-202
L.NSTA 000025 *8-443 *9-483
L.PDV 000041 6-216 *7-338 7-354
L.REM 000006 *7-325 7-346
L.RLA 000010 *6-184 6-238 *7-327 8-433 *9-475 9-476
L.TIC 000043 *6-211
L.ULA 000040 6-221
L.USA 000030 *6-201
M$$MGE = 000000 5-136 5-148 5-148 5-149 6-180 6-180 6-185 6-185 6-191
6-191 6-203 6-203 6-222 6-231 6-231 6-252 6-252 7-280
7-280 7-284 7-284 7-328 7-328 7-359 7-366 7-366 7-376
7-376 7-380 7-380 7-381 7-381 8-431 8-431 8-435 8-435
8-441 8-441 9-471 9-471 9-478 9-478 9-487 9-487
NS.MFL = 000003 7-406
NS.NFL = 000001 7-400
NS.SFL = 000002 7-403
NT$CON = 000000 7-351
NWNOD = ****** GX 7-281
N$TMP 000012 7-286 7-327 *7-378 *9-486
N$$ICF = 000001 3-1 3-2 4-92 4-98 7-314
NSPRCI CREATED BY MACRO ON 13-OCT-79 AT 10:11 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
N$$LV2 = ****** 6-205 6-241 7-289 7-340
N$$OVR = 000042 6-193
N$$SYS = 000001 3-56 6-215 6-228 7-353 7-364 7-398
N$$USR = 000001 3-56 4-92 4-108 6-215 6-220 7-353 7-358
PD$NSP = ****** GX 5-148 6-180 6-185 6-191 6-203 6-230 6-231 6-252 7-280
7-284 7-328 7-350 7-366 7-376 7-380 7-381 8-431 8-435
8-441 9-471 9-478 9-487
PROCI = ****** GX 7-335
PRODS = ****** GX 6-180 7-284 8-431 9-471
RCTBL 000004 R 4-94 #4-96
RCVCC 000124 R 5-155 #6-180
RCVCI 000406 R 5-154 #7-274
RCVCTL 000012 RG 4-96 #5-136
RCVDC 001026 R 5-157 #8-431
RCVDI 001122 R 5-156 #9-471
RCVNOP 000102 R #5-151 5-153 5-159 5-160
RCVSTR = ****** GX 5-158
RECOV1 = ****** GX 6-203
REMLKA = ****** GX 7-376
RETUSR = ****** GX 6-231
RINCTL = ****** GX 4-100
RLSDBK = ****** GX 7-375
RMNOD = ****** GX 7-381
RSX11D = ****** 5-148 5-148 6-180 6-180 6-185 6-185 6-191 6-191 6-203
6-203 6-231 6-231 6-252 6-252 7-280 7-280 7-284 7-284
7-328 7-328 7-366 7-366 7-376 7-376 7-380 7-380 7-381
7-381 8-431 8-431 8-435 8-435 8-441 8-441 9-471 9-471
9-478 9-478 9-487 9-487
SETFLG = ****** GX 6-187 7-330
SKPEXB = ****** GX 6-189 7-332
SKPIMG = ****** GX 7-280
STCST 000764 R 6-229 7-365 #7-400
ST$CIR = 000003 7-345 8-437 9-481
ST$CIS = 000001 6-182 9-473
ST$DAT = 000005 6-210
ST$DID = 000015 8-443 9-483
UCRDAT = ****** GX 6-197
UISAR6 = 177654 5-149 6-222 7-359
UNSPWN = ****** GX 5-148
$CALLX = ****** GX 5-148 6-180 6-185 6-191 6-203 6-231 6-252 7-280 7-284
7-328 7-366 7-376 7-380 7-381 8-431 8-435 8-441 9-471
9-478 9-487
$NSADB = ****** GX 7-285 7-326 7-377 9-485
$QCCR = ****** GX 6-223
$QCIR = ****** GX 7-360
$QINTR = ****** GX 4-110
$RDBSZ = ****** GX 6-192
.RCCMP 000000 RG #4-86
.XMCMP 000102 RG #5-150
NSPRCI CREATED BY MACRO ON 13-OCT-79 AT 10:11 PAGE 3
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 5-144 6-187 6-189 6-197 6-223 6-229 7-281 7-315 7-319 7-330
7-332 7-333 7-335 7-360 7-365 7-375 9-484
CALLC #3-51 5-148 6-180 6-185 6-191 6-203 6-231 6-252 7-280 7-284
7-328 7-366 7-376 7-380 7-381 8-431 8-435 8-441 9-471 9-478
9-487
CALLR #4-94 #8-445
CALLX #3-51 5-148 6-180 6-185 6-191 6-203 6-231 6-252 7-280 7-284
7-328 7-366 7-376 7-380 7-381 8-431 8-435 8-441 9-471 9-478
9-487
CCBDF$ #3-52 #3-53
HWDDF$ #5-136 5-136 #5-149 5-149 #6-222 6-222 #7-359 7-359
MAP #3-50 5-136
NSPSY$ #3-52 #3-54
RECMAP #3-50 #5-149 #6-222 #7-359
RESMAP #3-50
RESRG #3-49 #6-224 #7-282 #7-369 #7-379
RETURN #5-151 #6-225 #6-254 #7-382 #7-408 #8-450 #9-488
SAVMAP #3-50
SAVRG #3-49 #6-190 #7-274 #7-277
$MVTBF #3-49