Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/nsprca.lst
There are no other files named nsprca.lst in the archive.
NSPRCA MACRO M1110 13-OCT-79 10:16
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
NSPRCA MACRO M1110 13-OCT-79 10:16 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
NSPRCA MACRO M1110 13-OCT-79 10:16 PAGE 3-1
58 ;THEN DEFAULT TO SYSTEM INTERFACE
59 .ENDC
60
61 000000 .PSECT NSPRCA
NSPRCA MACRO M1110 13-OCT-79 10:16 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 .WORD RINCTL ; PROCESS INTERCEPTTED CONTROL MESSAGES
101
102 .IFF
103
104 000006 000000G .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
NSPRCA MACRO M1110 13-OCT-79 10:16 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 001110' .WORD RCVDI
157 000114 001014' .WORD RCVDC
158 000116 000000G .WORD RCVSTR
159 000120 000102' .WORD RCVNOP
160 000122 000102' .WORD RCVNOP
NSPRCA MACRO M1110 13-OCT-79 10:16 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
NSPRCA MACRO M1110 13-OCT-79 10:16 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
NSPRCA MACRO M1110 13-OCT-79 10:16 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 001114 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
NSPRCA MACRO M1110 13-OCT-79 10:16 PAGE 7-1
RCVCI - CONNECT INITIATE RECEIVED
313 000474 100510 BMI 100$ ;IF MI, YES - SEND A DC
314 .IF DF N$$ICF ;AP0003
315 CALL CFRNOD ;COUNT FREE SPACES IN NODE NAME TABLE ;JS0001
316 CMP R2,#2 ;IS THERE PLENTY OF SPACE? ;JS0001
317 BLE 100$ ;IF LE, NO: REJECT THE CONNECT. ;JS0001
318 .ENDC ;AP0003
319 000476 CALL ADDLNK ;ADD A NEW LOGICAL LINK
320 000502 103505 BCS 100$ ;IF CS, NO MORE LINKS AVAILABLE
321 000504 011605 MOV (SP),R5 ;RECOVER ADDRESS OF MESSAGE CCB
322 000506 105765 000006 TSTB C.LIN(R5) ;IS THIS AN INTERNAL LINK ?
323 000512 001002 BNE 40$ ;IF NE, NO
324 000514 052710 040000 BIS #LF.LCL,(R0) ;OTHERWISE SET LINK FLAG FOR INTERNAL
325 000520 010360 000006 40$: MOV R3,L.REM(R0) ;STORE POINTER TO REMOTE NODE NAME
326 000524 016702 000000G MOV $NSADB,R2 ;GET THE ADDRESS OF THE DATA DESCRIPTOR BLOCK
327 000530 016260 000014 000010 MOV N$TMP+2(R2),L.RLA(R0) ;STORE REMOTE LINK ADDRESS
328 000536 CALLC GETEX1 ;GET LINK SERVICES
329 000546 103457 BCS 90$ ;IF CS, FIELD FORMAT ERROR
330 000550 CALL SETFLG ;VALIDATE REMOTE USERS FLAGS
331 000554 103454 BCS 90$ ;THEY ARENT VALID
332 000556 CALL SKPEXB ;SKIP INFORMATION FIELD
333 000562 CALL GETDBK ;GET DESCRIPTOR BLOCK FOR USER
334 000566 103447 BCS 90$ ;IF CS, RESOURCE ERROR - SEND A DC (R1=ER$RES)
335 000570 CALL PROCI ;PROCESS DESCRIPTOR NAMES, ACCESS CONTROL
336 ; AND USER DATA FIELDS
337 000574 103442 BCS 70$ ;IF CS, FIELD FORMAT ERROR (R1=ER$FMT)
338 000576 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 000602 112710 000003 MOVB #ST$CIR,(R0) ;INDCIATE THAT WE HAVE RECEIVED A CI MSG
346 000606 016003 000006 MOV L.REM(R0),R3 ;RECOVER POINTER TO THE NODE NAME
347 000612 105263 000004 INCB D$USE(R3) ;RECORD ANOTHER LOGICAL LINK TO THIS NODE
348
349 000616 016065 000002 000004 MOV L.LLA(R0),C.NSP(R5) ;STORE THE LLA IN THE CCB
350 000624 112765 000000G 000005 MOVB #PD$NSP,C.NSP+1(R5) ;STORE NSP'S PDV INDEX
351 000632 112765 000000 000011 MOVB #NT$CON,C.MOD(R5) ;SET SUB FUNCTION CODE TO CONNECT
352
353 .IF DF N$$SYS&N$$USR
354 000640 105760 000041 TSTB L.PDV(R0) ;SYSTEM OR USER INTERFACE? ;AP0002
355 000644 001006 BNE 50$ ;SYSTEM ;**-1
356 .ENDC
357
358 .IF DF N$$USR
359 000646 RECMAP ;RESTORE PROPER ACP MAPPING
360 000654 CALL $QCIR ;CALL QIO INTERFACE ROUTINE FOR CI RECEIVED
361 000660 000406 BR 60$ ;
362 .ENDC
363 000662 50$:
364 .IF DF N$$SYS
365 000662 CALL STCST ;SET CONNECT COMPLETION STATUS
366 000666 CALLC GIVUSR ;GIVE CONNECT TO USER
367 .ENDC
368
369 000676 60$: RESRG <R5> ;RESTORE CCB ADDRESS OF RECEIVE BUFFER
NSPRCA MACRO M1110 13-OCT-79 10:16 PAGE 7-2
RCVCI - CONNECT INITIATE RECEIVED
370 000700 000423 BR 110$ ;
371
372 ;
373 ; ERROR PROCESSING FOR CONNECT INITIATE
374 ;
375 000702 70$: CALL RLSDBK ;RELEASE DESCRIPTOR BLOCK
376 000706 90$: CALLC REMLKA ;REMOVE LINK, BUT DON'T TOUCH THE USE COUNT
377 000716 016705 000000G 100$: MOV $NSADB,R5 ;COMPUTE ADDRESS OF THE SCRATCH STORAGE
378 000722 010165 000020 MOV R1,N$TMP+6(R5) ;STORE THE ERROR CODE
379 000726 RESRG <R5> ;RESTORE CCB ADDRESS OF RECEIVE BUFFER
380 000730 CALLC DODC ;SEND DC FOR IDLE LINK
381 000740 CALLC RMNOD ;CONDITIONALLY REMOVE THE NODE NAME
382 000750 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 000752 012704 000001 STCST: MOV #NS.NFL,R4 ;ASSUME THE LINK IS NOT FLOW CONTROLLED
401 000756 032760 030000 000012 BIT #LF.HSF!LF.HMF,L.FLG(R0) ;OTHER NODE FLOW CONTROLLED ?
402 000764 001410 BEQ 10$ ;IF EQ, NO
403 000766 012704 000002 MOV #NS.SFL,R4 ;ASSUME LINK IS SEGMENT FLOW CONTROLLED
404 000772 032760 010000 000012 BIT #LF.HSF,L.FLG(R0) ;IS THE ASSUMPTION CORRECT ?
405 001000 001002 BNE 10$ ;IF NE, YES - RETURN STATUS
406 001002 012704 000003 MOV #NS.MFL,R4 ;OTHERWISE IT MUST BE MESSAGE FLOW CONTROLLED
407 001006 010465 000012 10$: MOV R4,C.STS(R5) ;STORE STATUS IN THE CCB
408 001012 RETURN ;RETURN TO CALLER
409
410 .ENDC
NSPRCA MACRO M1110 13-OCT-79 10:16 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 001014 RCVDC: CALLC PRODS ; PROCESS DEST AND SRC ADDRESS
432 001024 103430 BCS 40$ ; IF CS, MESSAGE RECEIVED ON AN IDLE LINK
433 001026 026001 000010 CMP L.RLA(R0),R1 ; IS THE REMOTE LINK ADDRESS CORRECT ?
434 001032 001025 BNE 40$ ; IF NE, NO - MESSAGE RECEIVED ON AN IDLE LINK
435 001034 CALLC GETBIN ; GET THE DISCONNECT REASON CODE
436 001044 010103 MOV R1,R3 ; COPY IT
437 001046 122710 000003 CMPB #ST$CIR,(R0) ; RECEIVED A CI AND WAITING FOR A USER RESPONSE
438 001052 001415 BEQ 40$ ; IF EQ, YES - IGNORE THIS MESSAGE
439 001054 032710 040000 BIT #LF.LCL,(R0) ; IS THIS RECEIVED FROM INTERNAL LOOPBACK ?
440 001060 001404 BEQ 10$ ; IF EQ, NO - JUST CONTINUE
441 001062 CALLC FRBDAT ; USE THIS AS TRANSMIT COMPLETE OF THE MESSAGE
442 ; ...TO DECREMENT THE COUNT AND RELEASE THE BUFFER
443 001072 112760 000015 000025 10$: MOVB #ST$DID,L.NSTA(R0) ; SET SUB STATE TO DONE WITH THE NET
444 001100 005004 CLR R4 ; NO USER DATA IS POSSIBLE ON A DC
445 001102 CALLR DISUSR ; INITIATE LINK DISCONNECTION AND RETURN
446
447 ;
448 ; JUST IGNORE AN UNRECOGNIZED DC MESSAGE
449 ;
450 001106 40$: RETURN ; RETURN TO CALLER
NSPRCA MACRO M1110 13-OCT-79 10:16 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 001110 RCVDI: CALLC PRODS ; PROCESS DEST AND SRC ADDRESS
472 001120 103432 BCS 30$ ; IF CS, MESSAGE RECEIVED ON AN IDLE LINK
473 001122 122710 000001 CMPB #ST$CIS,(R0) ; ARE WE WAITING FOR AN ACCEPT OR REJECT ?
474 001126 001002 BNE 10$ ; IF NE, NO - VAILDATE THE SOURCE LINK ADDRESS
475 001130 010160 000010 MOV R1,L.RLA(R0) ; OTHERWISE MUST SET UP THE SOURCE LINK ADDRESS
476 001134 026001 000010 10$: CMP L.RLA(R0),R1 ; IS THE SOURCE LINK ADDRESS CORRECT ?
477 001140 001022 BNE 30$ ; IF NE, NO - MESSAGE RECEIVED ON AN IDLE LINK
478 001142 CALLC GETBIN ; GET REASON CODE
479 001152 010103 MOV R1,R3 ; REASON FOR DISCONNECT
480
481 001154 122710 000003 CMPB #ST$CIR,(R0) ; RECEIVED A CI AND WAITING FOR A USER RESPONSE ?
482 001160 001416 BEQ 40$ ; IF EQ, YES - NO DI RESPONSE REQUIRED (C-BIT CLEAR)
483 001162 112760 000015 000025 MOVB #ST$DID,L.NSTA(R0) ; SET SUBSTATE TO DONE WITH THE NET
484 001170 CALL DISUSR ; ...AND START THE DISCONNECTION CYCLE
485 001174 016701 000000G MOV $NSADB,R1 ; COMPUTE ADDRESS OF THE SCRATCH STORAGE
486 001200 012761 000052 000020 MOV #ER$CDI,N$TMP+6(R1) ; ...REGION AND STORE DI RESPONSE CODE
487 001206 30$: CALLC DODC ; SEND DISCONNECT CONFIRM MESSAGE
488 001216 40$: RETURN ; RETURN TO CALLER
489
490
491 000001 .END
NSPRCA MACRO M1110 13-OCT-79 10:16 PAGE 9-1
SYMBOL TABLE
ACKMAS= 170000 C.BUF 000014 ER$TCN= 000040 I$$RAR= 000000 L.LNG1 000054
ACKPRE= 100000 C.BUF1 000014 ER$TCO= 000041 I$$RDN= 000000 L.LNO 000022
ACKRES= 060000 C.BUF2 000024 ER$TPA= 000010 KDSAR0= 172360 L.LSA 000032
ACKWRA= 010000 C.CNT 000020 ER$UOB= 000004 KDSDR0= 172320 L.LSF 000044
ADDLNK= ****** GX C.CNT1 000020 E$$XPR= 000000 KISAR0= 172340 L.LVL 000001
A$$CHK= 000000 C.CNT2 000030 FC.CCP= 000020 KISAR5= 172352 L.NDA 000034
A$$CPS= 000000 C.FLG 000022 FC.CTL= 000006 KISAR6= 172354 L.NIN 000016
A$$PRI= 000000 C.FLG1 000022 FC.KCP= 000016 KISAR7= 172356 L.NLA 000036
A$$TRP= 000000 C.FLG2 000032 FC.KIL= 000004 KISDR0= 172300 L.NSTA 000025
A.NAK = 010000 C.FNC 000010 FC.RCE= 000002 KISDR6= 172314 L.NXN 000014
CB.CCB= 000002 C.LIN 000006 FC.RCP= 000014 KISDR7= 172316 L.PDV 000041
CB.RDB= 000004 C.LNK 000000 FC.TIM= 000010 K$$CNT= 177546 L.REM 000006
CE.ABO= 100362 C.MOD 000011 FC.XCP= 000012 K$$CSR= 177546 L.RLA 000010
CE.DIS= 100366 C.NSP 000004 FC.XME= 000000 K$$LDC= 000000 L.RNO 000020
CE.ERR= 100370 C.RSV 000002 FE.CAL= 000040 K$$TPS= 000074 L.STA 000000
CE.MOP= 100372 C.STA 000007 FE.DRV= 000010 LA.ACK= 100000 L.TC 000042
CE.NTE= 100361 C.STS 000012 FE.EXP= 000200 LA.MSK= 170000 L.TIC 000043
CE.RTE= 100376 DF$ADJ= 020000 FE.EXT= 000001 LA.NAK= 110000 L.TIPD 000005
CE.SRC= 100364 DF$DWN= 001000 FE.EXV= 000004 LA.NMS= 010000 L.TIPI 000004
CE.TMO= 100374 DF$FRE= 070000 FE.LSI= 000400 LA.RES= 060000 L.UDQ 000034
CF.EOM= 000004 DF$LCL= 040000 FE.MUP= 000002 LD$LP = 000000 L.ULA 000040
CF.HDR= 000020 DF$LNK= 004000 FE.MXT= 040000 LF.DFL= 000060 L.USA 000030
CF.LB = 100000 DF$REM= 010000 FE.NLG= 100000 LF.DSP= 000040 L.USTA 000024
CF.SOM= 000010 DF$RES= 002000 FE.PKT= 000100 LF.DST= 000020 L.XQ1 000046
CF.SYN= 000040 DF$TMP= 100000 FE.PLA= 000020 LF.FPN= 000010 L.XQ2 000050
CF.TRN= 000100 DISUSR= ****** GX FRBDAT= ****** GX LF.HF0= 001000 L.XQ3 000052
CL$ACK= 000040 DODC = ****** GX FS.AST= 000000 LF.HMF= 020000 MA.DA = 000000
CL$MFL= 000010 D$CHN 000002 FS.CIB= 002000 LF.HSF= 010000 MA.IL = 000020
CL$NRM= 000020 D$FLG 000000 FS.CRA= 001000 LF.INR= 000100 MC.CC = 000040
CL$SFL= 000004 D$LEN 000014 FS.DIS= 013000 LF.INT= 000400 MC.CI = 000020
CL$TYP= 000001 D$LNG 000005 FS.DVC= 001000 LF.LCL= 040000 MC.DC = 000100
CL.MU1= 000001 D$NAM 000006 FS.ENB= 012000 LF.MMF= 100000 MC.DI = 000060
CL.MU2= 000002 D$USE 000004 FS.GET= 006000 LF.MSF= 040000 MC.NO = 000000
CL.RES= 177774 D$$BUG= 177514 FS.INI= 000000 LF.NKR= 000200 MC.ST = 000120
CMODE = 140000 D$$ISK= 000000 FS.KIL= 000000 LF.NKS= 000400 MD.BM = 000040
CRASH = ****** GX D$$L11= 000001 FS.LTM= 001000 LF.NPN= 000001 MD.EM = 000100
CS.ABO= 000100 D$$YNC= 000000 FS.MNT= 004000 LF.NTS= 002000 MD.ILS= 000040
CS.BUF= 000200 D$$YNM= 000000 FS.MSN= 014000 LF.RSU= 100000 MD.IM = 000020
CS.DCR= 000400 ER$ABO= 000046 FS.RNG= 011000 LS.DLS= 000200 MF.ACK= 000004
CS.DEV= 000002 ER$ABT= 000011 FS.RTN= 001000 LS.FCC= 000004 MF.CTL= 000010
CS.DIS= 000040 ER$ACC= 000042 FS.SET= 005000 LS.FC0= 000001 MF.DAT= 000000
CS.ENB= 000020 ER$ACT= 000044 FS.STM= 000000 LS.FC1= 000002 MPAR = 172100
CS.EOF= 000001 ER$CDI= 000052 FS.STP= 002000 LS.ILS= 000200 MPCSR = 177746
CS.ERR= 100000 ER$COM= 000047 FS.STR= 001000 LS.MAK= 000020 MSGHDR= 000007
CS.HFE= 002000 ER$FCF= 000050 FS.TRM= 003000 LS.MNK= 000040 M$$CRB= 000124
CS.LST= 040000 ER$FMT= 000005 FS.XKL= 002000 LS.RES= 000360 M$$CRX= 000000
CS.MTL= 004000 ER$GEN= 000007 FS.XOF= 010000 LS.RSV= 000300 M$$FCS= 000000
CS.RNG= 000010 ER$IFC= 000030 FS.XON= 007000 L$$ASG= 000000 M$$MGE= 000000
CS.ROV= 000004 ER$ILS= 000043 F$$LVL= 000001 L$$DRV= 000000 M$$OVR= 000000
CS.RSN= 010000 ER$IMG= 000053 GETBIN= ****** GX L$$P11= 000001 NC.FM0= 000000
CS.SUC= 000001 ER$MLB= 000006 GETDBK= ****** GX L$$11R= 000000 NC.FM1= 000001
CS.TMO= 020000 ER$NOD= 000002 GETEX1= ****** GX L.CIQ 000026 NC.FM2= 000002
CTLTBL 000104R 002 ER$NSD= 000003 GIVUSR= ****** GX L.DCR 000036 NETTIM= 000005
C$$CKP= 000000 ER$RES= 000001 G$$TPP= 000000 L.FLG 000012 NE.ABO= 177776
C$$ORE= 000400 ER$SSR= 000000 G$$TSS= 000000 L.LDA 000024 NE.ACT= 177771
C$$RSH= 177564 ER$SSS= 000045 G$$TTK= 000000 L.LIA 000026 NE.CLS= 177767
C.BID 000003 ER$STA= 000051 G$$WRD= 000000 L.LLA 000002 NE.DIS= 177777
NSPRCA MACRO M1110 13-OCT-79 10:16 PAGE 9-2
SYMBOL TABLE
NE.FMT= 177770 NT$XOF= 000020 N.RQDL 000060 P$PFQ 000006 ST$UNR= 000011
NE.NDT= 177766 NT$XON= 000016 N.RQID 000062 P$TIM 000003 SWR = 177570
NE.NOD= 177774 NT.ACK= 000001 N.RSRV= 000030 P$$P45= 000000 S$EMR 000006
NE.REJ= 177775 NT.BOM= 000040 N.SDL1 000036 P$$WRD= 000000 S$FMT 000012
NE.RES= 177773 NT.EOM= 000100 N.SDL2 000042 Q$$OPT= 000010 S$LEN 000040
NE.TIM= 177772 NT.FCN= 037400 N.SDS1 000040 RCTBL 000004R 002 S$LNK 000022
NI.FLI= 000002 NT.MD1= 000420 N.SDS2 000056 RCVCC 000124R 002 S$MLK 000024
NI.FRI= 000004 NT.MFL= 000002 N.SEG 000006 RCVCI 000406R 002 S$NKS 000010
NI.FRT= 000001 NT.MOD= 000020 N.SFMT 000034 RCVCTL 000012RG 002 S$RES 000014
NI.FUB= 000010 NT.MOM= 000000 N.SGRP 000036 RCVDC 001014R 002 S$SEC 000000
NI.INI= 000001 NT.NAK= 000002 N.SOBJ 000035 RCVDI 001110R 002 S$SNI 000016
NI.RLI= 000002 NT.NFL= 000000 N.SUSR 000040 RCVNOP 000102R 002 S$UMR 000004
NI.RRI= 000004 NT.SFL= 000001 PD$NSP= ****** GX RCVSTR= ****** GX S$UMS 000002
NI.RVE= 000001 NT.SOL= 000140 PF$EIP= 000100 RECOV1= ****** GX S$UNI 000020
NI.VER= 000002 NT.XOF= 000004 PF$ENB= 000200 REMLKA= ****** GX S$$WRG= 000000
NP$RTR= 000003 NT.XON= 000010 PF$OFF= 000000 RETUSR= ****** GX S$$YSZ= 007600
NS.BOM= 000040 NWNOD = ****** GX PF$RLI= 000002 RF.CLN= 000000 TPS = 177564
NS.EOM= 000100 N$ACQ 000000 PF$RRI= 000004 RF.CTL= 000003 T$$KMG= 000000
NS.MFL= 000003 N$ICF 000006 PF$RVE= 000001 RF.TIM= 177400 T$$MIN= 000000
NS.MOM= 000000 N$LNI 000010 PF$RVR= 000040 RF.TM0= 000400 UBMPR = 170200
NS.NFL= 000001 N$LVC 000022 PF$SLI= 000002 RF.WTD= 000020 UCRDAT= ****** GX
NS.SET= 000002 N$NOD 000032 PF$SRI= 000004 RF.WTM= 000030 UDSAR0= 177660
NS.SFL= 000002 N$PLD 000026 PF$SRT= 000001 RF.WTS= 000010 UDSDR0= 177620
NS.SOL= 000140 N$STS 000042 PF$STA= 000003 RH.CNT= 000001 UISAR0= 177640
NS.SUC= 000001 N$TCB 000004 PF$SUB= 000010 RH.EFM= 000020 UISAR4= 177650
NT$ABO= 000022 N$TMP 000012 PF$UP = 000001 RH.HDR= 000002 UISAR5= 177652
NT$ACC= 000002 N$VER 000036 PIRQ = 177772 RH.PRI= 000014 UISAR6= 177654
NT$ADS= 000000 N$$DAT= 000030 PMODE = 030000 RH.PR1= 000004 UISAR7= 177656
NT$AKD= 000016 N$$DIS= 000020 PROCI = ****** GX RH.RFM= 000100 UISDR0= 177600
NT$AKI= 000020 N$$INT= 000020 PRODS = ****** GX RLSDBK= ****** GX UISDR4= 177610
NT$CC = 000012 N$$LDV= 000001 PR0 = 000000 RMNOD = ****** GX UISDR5= 177612
NT$CON= 000000 N$$MOV= 000010 PR1 = 000040 R$$DER= 000000 UISDR6= 177614
NT$DAT= 000002 N$$OPT= 000020 PR4 = 000200 R$$K11= 000001 UISDR7= 177616
NT$DIS= 000010 N$$OVR= 000042 PR5 = 000240 R$$SND= 000000 UNSPWN= ****** GX
NT$IDC= 000034 N$$SYS= 000001 PR6 = 000300 R$$11M= 000000 VF$RCV= 100000
NT$IDN= 000030 N$$USR= 000001 PR7 = 000340 SETFLG= ****** GX VF$XMT= 040000
NT$ILN= 000032 N.ACNT 000116 PS = 177776 SISDR0= 172200 V$FLG 000000
NT$IND= 000024 N.ACTL 000114 PS$NTI= 000003 SKPEXB= ****** GX V$LEN 000022
NT$INL= 000026 N.DDL1 000012 PS$OFF= 000000 SKPIMG= ****** GX V$RCV 000002
NT$INT= 000004 N.DDL2 000016 PS$STR= 000001 SR0 = 177572 V$XMT 000012
NT$LS = 000014 N.DDS1 000014 PS$UP = 000005 SR3 = 172516 V$$CTR= 001000
NT$MOD= 000012 N.DDS2 000020 PS$VER= 000004 STCST 000752R 002 WINDOW= 004000
NT$NAK= 000022 N.DFMT 000010 PS$WT = 000002 ST$CC = 000002 X$$DBT= 000000
NT$OFF= 000026 N.DGRP 000012 P$CHN 000004 ST$CIR= 000003 $CALLX= ****** GX
NT$ON = 000002 N.DOBJ 000011 P$CNT 000005 ST$CIS= 000001 $NSADB= ****** GX
NT$QRY= 000014 N.DUSR 000014 P$FRQ 000012 ST$DAT= 000005 $QCCR = ****** GX
NT$REJ= 000004 N.LGTH= 000160 P$FSP 000013 ST$DID= 000015 $QCIR = ****** GX
NT$ROU= 000022 N.NODE 000000 P$LCD 000002 ST$DIP= 000006 $QINTR= ****** GX
NT$RTI= 000010 N.OPDL 000136 P$LEN 000014 ST$DIR= 000012 $RDBSZ= ****** GX
NT$RTN= 000000 N.OPTD 000140 P$LST 000000 ST$DIS= 000014 .RCCMP 000000RG 002
NT$SNG= 000006 N.PASL 000102 P$NOD 000010 ST$UDI= 000013 .XMCMP 000102RG 002
NT$STP= 000004 N.PASS 000104
. ABS. 000160 000
000000 001
NSPRCA 001220 002
ERRORS DETECTED: 0
NSPRCA MACRO M1110 13-OCT-79 10:16 PAGE 9-3
SYMBOL TABLE
VIRTUAL MEMORY USED: 18873 WORDS ( 74 PAGES)
DYNAMIC MEMORY: 20620 WORDS ( 79 PAGES)
ELAPSED TIME: 00:00:49
NSPRCA,[131,34]NSPRCA/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[131,10]NSPRCA
NSPRCA CREATED BY MACRO ON 13-OCT-79 AT 10:16 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ADDLNK = ****** GX 7-319
CRASH = ****** GX 4-104
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 = ****** 3-1 3-2 4-92 4-98 7-314
NSPRCA CREATED BY MACRO ON 13-OCT-79 AT 10:16 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 001014 R 5-157 #8-431
RCVDI 001110 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
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 000752 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
NSPRCA CREATED BY MACRO ON 13-OCT-79 AT 10:16 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-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