Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/nspsi.list
There are no other files named nspsi.list in the archive.
NSPSI MACRO M1110 13-OCT-79 09:57
TABLE OF CONTENTS
4- 81 ACKNSP
6- 288 ENTDAT
7- 324 NAKNSP
8- 374 NAKUSR ;AP0005
9- 415 NOTUSR
10- 470 PROXMT ;AP0003
11- 535 RETLS
12- 566 SHIFTQ
13- 601 REQUE
14- 636 ADJUST
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 3
1 .IIF DF N$$ICF, .TITLE NSPSI
2 .IIF NDF N$$ICF, .TITLE NSPSB
3 .IDENT /X01.08/
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 ; NSP SUBROUTINES (DRIVER)
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 ; LW0001 3-MAY-78 LEE WEBBER
39 ; ENHANCEMENT OF SYSTEM INTERFACE SUPPORT
40 ; AP0002 21-DEC-77 ALAN D. PECKHAM
41 ; CORRECTIONS TO ENABLE SYSTEM INTERFACE
42 ; AP0003 21-DEC-77 ALAN D. PECKHAM
43 ; ADDED PROXMT ROUTINE FOR SYSTEM INTERFACE.
44 ; AP0004 20-MAR-78 ALAN D. PECKHAM
45 ; CALLERS OF "NOTUSR" MUST HAVE 'LSFLAGS' IN R2
46 ; ALSO CHANGE CCB ALLOCATION CALL
47 ; AP0005 8-JUN-78 ALAN D. PECKHAM
48 ; ADD RESOURCE RECOVERY TO NOTUSR
49 ; ADD NAKUSR ROUTINE FOR SYSTEM USER NAK COMPLETES
50 ; LW0006 31-JUL-78 LELAND D. WEBBER
51 ; MODIFY SYSTEM INTERFACE ROUTINES NOTUSR AND PROXMT
52 ; TO HANDLE FLOW CONTROL BETTER
53 ; AP0007 24-OCT-78 ALAN D. PECKHAM
54 ; FLUSH TRANSMIT QUEUES ON DIP LINK WHEN NO TRANSMITS PENDING.
55 ; MODIFY PSDAT TO RETURN THE PROPER BUFFER ADDRESS.
56 ; AP0008 22-MAY-79 ALAN D. PECKHAM
57 ; FIX MISCOUNT IN ACKNSP FOR INTERCEPT I/LS ACK.
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 3-1
58
59 ;
60 ; EXTERNAL MACRO DEFINTIONS
61 ;
62
63 .MCALL SAVMAP,MAP,RESMAP
64 .MCALL SAVRG,RESRG
65 .MCALL $QDLC,$QLLC
66 .MCALL $MVTBF,$MVFBF
67 .MCALL CCBDF$,NSPSY$
68 000000 CCBDF$
69 000000 NSPSY$
70
71
72
73 .IF NDF N$$SYS&N$$USR
74 N$$SYS=1 ;IF NEITHER INTERFACE IS SPECIFED
75 ;THEN DEFAULT TO SYSTEM INTERFACE
76 .ENDC
77
78
79 000000 .PSECT NSPSB
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 4
ACKNSP
81 .SBTTL ACKNSP
82 ;++
83 ;
84
85 ; ACKNSP
86
87 ; INPUTS:
88 ; R5=CCB
89 ; R3=COUNT OF CCBS TO BE POPED
90 ; R2=MSGFLG
91 ; R0=LLT
92
93
94 ; OUTPUTS:
95
96 ; CALLING SEQUENCE:
97
98 ; THIS ROUTINE WILL ACK ALL DATA OR INTERRUPT/LINK SERVICE
99 ; MESSAGES ON L.XQ2 OR L.XQ3.
100 ;--
101
102 000000 004567 000000G ACKNSP::JSR R5,$REGSV ; SAVE ALL REGISTERS (CO-ROUTINE)
103
104 000004 032702 000020 BIT #MD.IM,R2 ; DATA OR INTERRUPT/LINK SERVICE
105 000010 001042 BNE 40$ ; INTERRUPT/LINK SERVICE
106
107 .IF DF N$$ICF
108
109 000012 032710 000400 BIT #LF.INT,(R0) ; IS THIS AN INTERCEPT LINK ?
110 000016 001407 BEQ 10$ ; IF EQ, NO
111 000020 060360 000024 ADD R3,I.LDA(R0) ; UPDATE LAST DATA SEG ACK'D
112 000024 042760 170000 000024 BIC #LA.MSK,I.LDA(R0) ; WRAPAROUND
113 000032 000241 CLC
114 000034 000453 BR 90$
115
116 .ENDC
117 000036 10$: ; REFERENCE LABEL
118 .IF DF N$$LV2
119 CLR L.TIMD(R0) ; CLEAR DATA TIMER AND RETRY COUNT
120 .ENDC
121
122 .IF DF N$$SYS&N$$USR
123 000036 105760 000041 TSTB L.PDV(R0) ; SYSTEM OR USER INTERFACE? ;AP0002
124 000042 001013 BNE 15$ ; SYSTEM ;**-1
125 .ENDC
126
127 .IF DF N$$USR
128 000044 016002 000040 MOV L.ULA(R0),R2 ; GET ULA
129 000050 066003 000024 ADD L.LDA(R0),R3 ; ADD LAST ACKED SEGMENT # TO # OF SEGMENTS ACKED
130 ; TO GET NEW # OF LAST SEGEMENT ACKED
131 000054 042703 170000 BIC #LA.MSK,R3 ; 12 BIT WRAP AROUND
132 000060 010360 000024 MOV R3,L.LDA(R0) ; UPDATE LAST ACKED SEGMENT # IN LLT
133 000064 CALL $QACK ; CALL QIO INTERFACE ROUTINE FOR ACK RECEIVED
134 ; MUST START TIMER IF UNACK'D SEGMENTS
135 000070 000434 BR 85$ ; RETURN
136 .ENDC
137
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 4-1
ACKNSP
138 .IF DF N$$SYS
139 000072 060360 000034 15$: ADD R3,L.NDA(R0) ; SAVE NUMBER OF SEGMENTS TO ACKNOWLEDGE
140 000076 060360 000024 ADD R3,L.LDA(R0) ; UPDATE THE LAST SEGMENT ACKNOWLEDGED
141 000102 042760 170000 000024 BIC #LA.MSK,L.LDA(R0) ; CLEAR POSSIBLE WRAP AROUND
142 000110 CALL ACKDT1 ; ACKNOWLEDGE ALL POSSIBLE SEGMENTS ;AP0007
143 000114 000422 BR 85$ ; ;**-1
144 .ENDC
145
146 000116 40$: ; REFERENCE LABEL
147 .IF DF N$$ICF
148
149 000116 032710 000400 BIT #LF.INT,(R0) ; IS THIS AN INTERCEPT LINK ?
150 000122 001406 BEQ 45$ ; IF EQ, NO
151 000124 060360 000026 ADD R3,I.LIA(R0) ; UPDATE LAST I/LS SEG ACK'D ;**-1
152 000130 042760 170000 000026 BIC #LA.MSK,I.LIA(R0) ; WRAPAROUND
153 000136 000412 BR 90$ ; RETURN (C-BIT CLEAR FORM 'ADD')
154
155 .ENDC
156 000140 45$: ; REFERENCE LABEL
157 .IF DF N$$LV2
158 CLR L.TIML(R0) ; CLEAR INTERRUPT/LINK SERVICE TIMER
159 .ENDC
160
161 000140 060360 000036 ADD R3,L.NLA(R0) ; SAVE NUMBER OF SEGMENTS TO BE ACK'D
162 000144 060360 000026 ADD R3,L.LIA(R0) ; UPDATE THE LAST I/LS NUMBER ACK'D
163 000150 042760 170000 000026 BIC #LA.MSK,L.LIA(R0) ; CLEAR POSSIBLE WRAP AROUND
164 000156 CALL ACKIL1 ; ACK ALL POSSIBLE INTERRUPT AND LS SEGMENTS ;AP0007
165 000162 000241 85$: CLC ;**-1
166
167 000164 90$: RETURN ; RESTORE REGISTERS AND RETURN
168
169 ;
170 ; POST COMPLETION ON ALL ACKNOWLEDGED DATA SEGMENTS
171 ;
172 .IF DF N$$SYS
173 000166 ACKDAT:: ; REFERENCE LABEL
174 000166 122710 000006 CMPB #ST$DIP,(R0) ; IF IN DIP STATE ;AP0007
175 000172 001002 BNE ACKDT1 ; THEN ;AP0007
176 000174 CALLR REMSYS ; FLUSH THE TRANSMIT QUEUES. ;AP0007
177 000200 ACKDT1: ;AP0007
178 000200 005760 000034 10$: TST L.NDA(R0) ; ANY SEGMENTS TO ACKNOWLEDGE ?
179 000204 001413 BEQ 20$ ; IF EQ, NO - EXIT
180 000206 010003 MOV R0,R3 ; COMPUTE THE ADDRESS OF THE WAIT FOR ACK QUEUE
181 000210 062703 000050 ADD #L.XQ2,R3 ; ...
182 000214 CALL POPQUE ; DEQUEUE ANOTHER SEGMENT
183 000220 103405 BCS 20$ ; IF CS, NO MORE ON THE QUEUE
184 000222 005360 000034 DEC L.NDA(R0) ; DECREMENT THE NUMBER OF SEGMENTS TO BE ACK'D
185 000226 CALL PSDAT ; RETURN SEGMENT TO THE USER
186 000232 000762 BR 10$ ; TRY FOR ANOTHER
187
188 000234 20$:
189 .IF DF N$$LV2
190 CALL STRTMD ; CONDITIONALLY START THE DATA TIMER
191 .ENDC
192 000234 RETURN ; RETURN TO CALLER
193 .ENDC
194
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 4-2
ACKNSP
195 ;
196 ; POST COMPLETEION ON ALL ACKNOWLEDGED I/LS MESSAGES
197 ;
198
199 000236 ACKILS:: ; REFERENCE LABEL
200 .IF DF N$$SYS ;AP0007
201 .IF DF N$$USR ;AP0007
202 000236 105760 000041 TSTB L.PDV(R0) ; SYSTEM OR USER INTERFACE? ;AP0007
203 000242 001405 BEQ ACKIL1 ; IF SYSTEM, ;AP0007
204 .ENDC ;AP0007
205 000244 122710 000006 CMPB #ST$DIP,(R0) ; AND LINK IS DISCONNECTING ;AP0007
206 000250 001002 BNE ACKIL1 ; THEN ;AP0007
207 000252 CALLR REMSYS ; FLUSH THE TRANSMIT QUEUES. ;AP0007
208 .ENDC ;AP0007
209 000256 ACKIL1: ;AP0007
210 000256 005760 000036 50$: TST L.NLA(R0) ; ARE THERE ANY I/LS SEGMENTS TO BE ACKED ?
211 000262 001447 BEQ 80$ ; IF EQ, NO - EXIT
212 000264 010003 MOV R0,R3 ; COMPUTE ADDRESS OF I/LS WAIT FOR ACK QUEUE
213 000266 062703 000052 ADD #L.XQ3,R3 ; ...
214 000272 CALL POPQUE ; DEQUEUE A SEGMENT
215 000276 103441 BCS 80$ ; IF CS, NO MORE SEGMENTS
216 000300 005360 000036 DEC L.NLA(R0) ; DECREMENT THE NUMBER OF OF SEGMENTS TO ACK
217 000304 116501 000002 MOVB C.RSV(R5),R1 ; GET THE I/LS IDENTIFIER CODE
218 000310 001420 BEQ 60$ ; IF EQ, THIS IS AN INTERRRUPT MESSAGE
219 000312 CALL RLSSMS ; OTHERWISE, IT'S JUST A LINK SERVICE MESSAGE
220 000316 005301 DEC R1 ; IS THIS AN LS FOR DATA OR INTERRUPT ?
221 000320 001006 BNE 55$ ; IF NE, IT IS FOR AN INTERRUPT REQUEST COUNT
222 000322 142760 000200 000045 BICB #LS.DLS,L.LSF+1(R0) ; MARK THAT NO DATA LINK SERVICE IS OUTSTANDING
223 000330 CALL SNDLS ; SEND A LINK SERVICE FOR ANY ACCUMULATED REQUEST COUNTS
224 000334 000750 BR 50$ ; TRY AGAIN
225
226 000336 55$: ;
227 000336 042760 000200 000044 BIC #LS.ILS,L.LSF(R0) ; MARK THAT NO INTERRUPT LS IS OUTSTANDING
228 000344 CALL SNILS ; SEND A LINK SERVICE FOR ANY ACCUMULATED REQUEST COUNTS
229 000350 000742 BR 50$ ; TRY AGAIN
230
231 000352 60$: ; REFERENCE LABEL
232 .IF DF N$$SYS&N$$USR
233 000352 105760 000041 TSTB L.PDV(R0) ; SYSTEM OR USER INTERFACE?
234 000356 001006 BNE 70$ ; SYSTEM
235 .ENDC
236
237 .IF DF N$$USR
238 000360 016065 000040 000006 MOV L.ULA(R0),C.LIN(R5) ; STORE ULA
239 000366 CALL $QXCP ; CALL QIO INTERFACE ROUTINE FOR XMIT
240 ; COMPLETE OF INTERRUPT MESSAGE
241 000372 000731 BR 50$
242 .ENDC
243
244 .IF DF N$$SYS
245 000374 70$: CALL PSDAT ; RETURN INTERRUPT MESSAGE TO THE USER
246 000400 000726 BR 50$ ; TRY AGAIN
247 .ENDC
248 000402 80$: ; REFERENCE LABEL
249 .IF DF N$$LV2
250 CALL STRTML ; START I/LS TIMER
251 .ENDC
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 4-3
ACKNSP
252 000402 RETURN ; RETURN TO CALLER
253
254 ;
255 ; ADJUST MESSAGE POINTERS AND POST COMPLETION TO THE USER
256 ;
257 .IF DF N$$SYS
258 000404 012704 000001 PSDAT: MOV #NS.SUC,R4
259 000410 CALL REMHDR ; RESET THE BUFFER ADDRESS AND ;AP0007
260 000414 CALLR RETUSR ; RETURN RESOURCE WITH SUCESS CODE TO THE USER ;**-3
261 .ENDC
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 5
ACKNSP
263 ;+
264 ; **-DESLNK-INITIATE THE DESTRUCTION OF A LOGICAL LINK
265 ;
266 ; THIS ROUTINE IS CALLED FROM WITHIN THE DRIVER TO INITIATE THE
267 ; DESTRUCTION OF A LOGICAL LINK. TYPICALLY THIS IS A RESULT OF
268 ; DETECTING INVALID PARAMETERS IN A RECEIVED MESSAGE.
269 ;
270 ; INPUTS:
271 ;
272 ; R0 = ADDRESS OF THE LOGICAL LINK TABLE
273 ; R3 = DISCONNECT REASON CODE
274 ;
275 ; OUTPUTS:
276 ;
277 ; THE LOGICAL LINK IS MARKED FOR DISCONNECT AND THE REASON CODE
278 ; IS SAVED IN THE LLT. THE ACTUAL DISCONNECT OPERATION IS
279 ; INITIATED BY THE ACP.
280 ;
281 ;-
282
283 000420 112710 000006 DESLNK::MOVB #ST$DIP,(R0) ; SET MAJOR DISCONNECT STATE
284 000424 012760 006411 000024 MOV #ST$DID*400!ST$UNR,L.USTA(R0) ; SET INITIAL SUSTATES
285 000432 010360 000036 MOV R3,L.DCR(R0) ; SET ABORT REASON CODE
286 000436 RETURN ; RETURN TO CALLER
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 6
ENTDAT
288 .SBTTL ENTDAT
289 ;+
290 ; **-ENTDAT-PUT LOGICAL LINK IN DATA STATE
291 ;
292 ; INPUTS:
293 ;
294 ; R0 = ADDRESS OF THE LOGICAL LINK TABLE
295 ;
296 ; OUTPUTS:
297 ;
298 ; THE LOGICAL LINK STATE IS SET TO DATA, THE INTERRUPT FLOW
299 ; COUNT IS PRIMED TO ONE, A LINK SERVICE IS SENT FOR ANY
300 ; ACCUMULATED REQUEST COUNTS AND THE USER INTERFACE IS NOTIFIED
301 ; THAT TRANSMISSION CAN BE INITIATED.
302 ;
303 ; REGISTERS MODIFIED:
304 ;
305 ; NONE
306 ;
307 ;-
308
309 000440 112710 000005 ENTDAT::MOVB #ST$DAT,(R0) ; SET LINK STATE TO DATA
310 000444 105260 000043 INCB L.TIC(R0) ; INITIAL VALUE FOR INTERRUPT COUNT
311 000450 CALL SNDLS ; SEND ANY ACCUMULATED REQUEST COUNTS
312 ;AP0004
313 .IF DF N$$SYS&N$$USR ;AP0004
314 000454 105760 000041 TSTB L.PDV(R0) ;SYSTEM OR USER INTERFACE? ;AP0004
315 000460 001004 BNE 40$ ;SYSTEM ;AP0004
316 .IFTF ;AP0004
317 ;AP0004
318 000462 016003 000040 MOV L.ULA(R0),R3 ; GET USER LINK ADDRESS
319 000466 CALL $QIFC ; NOTIFY INTERFACE THAT INTERRUPTS ARE UNBLOCKED
320 .ENDC ;AP0005
321 ;AP0005
322 000472 40$: CALLR NOTUSR ;INDICATE THAT TRANSMISSION MIGHT BE POSSIBLE ;AP0005
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 7
NAKNSP
324 .SBTTL NAKNSP
325 ;++
326 ;
327
328 ; NAKNSP
329
330 ; INPUTS:
331 ; R0=LLT
332
333 ; OUTPUTS:
334
335 ; CALLING SEQUENCE:
336
337 ; THIS ROUTINE PROCESSES A NEGATIVE ACKNOWLEDGEMENT.
338 ;--
339
340 000476 NAKNSP::
341 .IF DF N$$SYS&N$$USR
342 000476 105760 000041 TSTB L.PDV(R0) ;SYSTEM OR USER INTERFACE? ;AP0002
343 000502 001041 BNE 40$ ; SYSTEM ;LW0001
344 .ENDC ;**-2
345
346 .IF DF N$$USR
347 000504 042760 000200 000012 BIC #LF.NKR,L.FLG(R0) ; CLEAR DELAYED NAK MARKER
348 000512 016002 000040 MOV L.ULA(R0),R2 ; GET ULA
349 000516 CALL $QNAK ; CALL QIO INTERFACE ROUTINE FOR NAK RECEIVED
350 000522 016001 000014 MOV L.NXN(R0),R1 ; GET SEGMENT NUMBER FOR NEXT TRANSMISSION
351 000526 016002 000024 MOV L.LDA(R0),R2 ; GET SEGMENT NUMBER OF LAST ACK'D SEGMENT
352 000532 032760 020000 000012 BIT #LF.HMF,L.FLG(R0) ; IS THE LINK MESSAGE FLOW CONTROLLED ?
353 000540 001012 BNE 20$ ; IF NE, YES - ADJUSTMENT COMPUTED BY '$QNAK'
354 000542 032760 010000 000012 BIT #LF.HSF,L.FLG(R0) ; IS THE LINK SEGMENT FLOW CONTROLLED ?
355 000550 001410 BEQ 30$ ; IF EQ, NO FLOW CONTROL - DON'T MODIFY COUNTS
356 000552 160201 SUB R2,R1 ; OTHERWISE, ADJUSTMENT TO SEGMENT COUNT NEEDS
357 000554 100002 BPL 10$ ; ...TO BE COMPUTED
358 000556 062701 010000 ADD #LA.NMS,R1 ; ADJUST FOR WRAP AROUND
359 000562 005301 10$: DEC R1 ; COUNT IS ONE LESS THAN THE DIFFERRENCE
360 000564 010103 MOV R1,R3 ; COPY THE SEGMENT COUNT ADJUSTMENT
361 000566 060360 000042 20$: ADD R3,L.TC(R0) ; MAKE ADJUSTMENT TO FLOW CONTROL COUNT
362 000572 005202 30$: INC R2 ; RESET SEGMENT NUMBER FOR RETRANSMISSION
363 000574 042702 170000 BIC #LA.MSK,R2 ; ...
364 000600 010260 000014 MOV R2,L.NXN(R0) ; RESET NEXT SEGMENT NUMBER TO BE TRANSMITTED
365 000604 000404 BR 50$ ; GO CALL NOTUSR ;LW0001
366 .ENDC ;**-1
367
368 .IF DF N$$SYS
369 000606 40$: CALL SHIFTQ ; SHIFT XQ2 TO FRONT OF XQ1 AND ;LW0001
370 000612 CALL PROXMT ; THEN RETRANSMIT ;**-1
371 .ENDC ;AP0005
372 000616 50$: CALLR NOTUSR ; ATTEMPT TO INITIATE TRANSMISSION ;AP0005
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 8
NAKUSR
374 .SBTTL NAKUSR ;AP0005
375 ;+ ;AP0005
376 ; ;AP0005
377 ; NAKUSR ;AP0005
378 ; ;AP0005
379 ; INPUTS: ;AP0005
380 ; R0=LLT ;AP0005
381 ; ;AP0005
382 ; OUTPUTS: ;AP0005
383 ; ;AP0005
384 ; CALLING SEQUENCE: ;AP0005
385 ; ;AP0005
386 ; THIS ROUTINE WILL POST A NAK COMPLETE TO A SYSTEM USER ;AP0005
387 ;- ;AP0005
388 ;AP0005
389 .IF DF N$$SYS ;AP0005
390 000622 NAKUSR:: ;AP0005
391 .IF DF N$$SYS&N$$USR ;AP0005
392 000622 105760 000041 TSTB L.PDV(R0) ; SYSTEM OR USER INTERFACE ? ;AP0005
393 000626 001432 BEQ 90$ ; IF EQ, USER ;AP0005
394 .ENDC ;AP0005
395 ;AP0005
396 000630 SAVRG <R4,R5> ;AP0005
397 000634 052760 000001 000012 BIS #LF.NPN,L.FLG(R0) ; INDICATE NAK COMPLETE PENDING ;AP0005
398 000642 CALL $CCBGT ; GET A CCB ;AP0005
399 000646 103005 BCC 10$ ; IF COULDN'T GET ONE ;AP0005
400 000650 CALL CTRES ; COUNT THE RESOURCE ERROR ;AP0005
401 000654 052710 100000 BIS #LF.RSU,(R0) ; MARK RESOURCE RECOVERY REQUIRED ;AP0005
402 000660 000413 BR 20$ ; AND DISAPPEAR. ;AP0005
403 ;AP0005
404 000662 010405 10$: MOV R4,R5 ; USE R5/CCB CONVENTION ;AP0005
405 000664 042760 000001 000012 BIC #LF.NPN,L.FLG(R0) ; CANCEL NAK COMPLETE REQUEST ;AP0005
406 000672 112765 000022 000011 MOVB #NT$NAK,C.MOD(R5) ; SET FUNCTION SUB-CODE ;AP0005
407 000700 012704 000001 MOV #NS.SUC,R4 ; STATUS ;AP0005
408 000704 CALL PSTUSR ; AND NOTIFY USER. ;AP0005
409 000710 20$: RESRG <R5,R4> ; RESTORE THE REGISTERS ;AP0005
410 ;AP0005
411 000714 90$: RETURN ; RETURN TO CALLER ;AP0005
412 .ENDC ;AP0005
413 ;**-3
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 9
NOTUSR
415 .SBTTL NOTUSR
416 ;++
417 ;
418
419 ; NOTUSR
420
421 ; INPUTS:
422 ; R0=LLT ;**-1
423
424 ; OUTPUTS:
425
426 ; CALLING SEQUENCE:
427
428 ; THIS ROUTINE POST A SUCESSFULL COMPLETION OF FLOW OPEN/CLOSED
429 ;--
430
431 000716 NOTUSR::
432 .IF DF N$$SYS&N$$USR
433 000716 105760 000041 TSTB L.PDV(R0) ; SYSTEM OR USER INTERFACE ?
434 000722 001454 BEQ 30$ ; IF EQ, USER
435 .ENDC
436
437 .IF DF N$$SYS
438 000724 SAVRG <R4,R5>
439 000730 052760 000010 000012 BIS #LF.FPN,L.FLG(R0) ; INDICATE FLOW NOTIFICATION PENDING ;AP0005
440 000736 CALL $CCBGT ; GET A CCB ;AP0005
441 000742 103005 BCC 2$ ; IF COULDN'T GET ONE ;AP0005
442 000744 CALL CTRES ; COUNT THE RESOURCE ERROR ;AP0005
443 000750 052710 100000 BIS #LF.RSU,(R0) ; MARK RESOURCE RECOVERY REQUIRED ;AP0005
444 000754 000434 BR 20$ ; AND DISAPPEAR. ;AP0005
445 ;AP0005
446 000756 010405 2$: MOV R4,R5 ; USE R5/CCB CONVENTION ;AP0005
447 ;**-2
448 000760 112765 000016 000011 MOVB #NT$XON,C.MOD(R5) ; FLOW OPEN INDICATION
449 000766 042760 000010 000012 BIC #LF.FPN,L.FLG(R0) ; CANCEL FLOW MODIFICATION REQUEST. ;AP0005
450 000774 032760 001000 000012 BIT #LF.HF0,L.FLG(R0) ; IF FLOW CLOSED ;AP0005
451 001002 001007 BNE 5$ ; THEN SEND DATA STOP ;AP0005
452 001004 032760 030000 000012 BIT #LF.HSF!LF.HMF,L.FLG(R0) ; IF LINK NOT FLOW CONTROLLED ;AP0005
453 001012 001407 BEQ 8$ ; THEN LET DATA GO ;LW0006
454 001014 105760 000042 TSTB L.TC(R0) ; OTHERWISE CHECK REQUEST COUNT ;AP0005
455 001020 003004 BGT 8$ ; IF TRANSMITS NOT ALLOWED ;LW0006
456 001022 112765 000020 000011 5$: MOVB #NT$XOF,C.MOD(R5) ; FLOW CLOSED INDICATION ;AP0005
457 001030 000402 BR 10$ ;LW0006
458 001032 8$: CALL PROXMT ;FLOW OPEN - START UP DATA AGAIN ;LW0006
459 001036 012704 000001 10$: MOV #NS.SUC,R4 ;**-3
460 001042 CALL PSTUSR ; NOTIFY USER OF FLOW CHANGE
461 001046 20$: RESRG <R5,R4> ; RESTORE THE REGISTERS
462 001052 RETURN ; RETURN TO CALLER
463 .ENDC
464
465 .IF DF N$$USR
466 001054 016003 000040 30$: MOV L.ULA(R0),R3 ;SET UP THE ULA
467 001060 CALLR $QBPC ;TELL USER INTERFACE THAT IT MIGHT BE OK TO SEND
468 .ENDC
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 10
PROXMT
470 .SBTTL PROXMT ;AP0003
471 ;+ ;AP0003
472 ; PROXMT ;AP0003
473 ; ;AP0003
474 ; INPUTS: ;AP0003
475 ; R0=LLT ;AP0003
476 ; ;AP0003
477 ; NO OUTPUTS ;AP0003
478 ; ;AP0003
479 ; CALLING SEQUENCE: ;AP0003
480 ; CALL PROXMT ;AP0003
481 ; ;AP0003
482 ; THIS ROTINE WILL TRANSMIT A DATA MESSAGE ;AP0003
483 ;- ;AP0003
484 .IF DF N$$SYS ;AP0003
485 ;AP0003
486 001064 004567 000000G PROXMT::JSR R5,$REGSV ; SAVE ALL REGISTERS (CO-ROUTINE) ;AP0003
487 001070 SAVMAP ; SAVE CURRENT BUFFER MAPPING ;AP0003
488 001074 122760 000005 000000 CMPB #ST$DAT,L.STA(R0) ; DATA STATE ;AP0003
489 001102 001057 BNE 100$ ; NO ;AP0003
490 001104 005002 CLR R2 ;INITIALIZE FLOW CONTROL FLAG ;AP0003
491 ;AP0003
492 ; .IF DF N$$LV2 ;AP0003
493 ; TST $LEVEL ;AP0003
494 ; BNE 10$ ; LEVEL 2 ;AP0003
495 ; BIT #LF.LIN,L.FLG(R0) ;AP0003
496 ; BNE 100$ ;AP0003
497 ; .ENDC ;AP0003
498 ;AP0003
499 001106 032760 001200 000012 10$: BIT #LF.HF0!LF.NKR,L.FLG(R0) ; IF HIS FLOW CLOSED OR UNPROCESSED NAK;AP0003
500 001114 001052 BNE 100$ ; THEN CANNOT SEND ;AP0003
501 ;AP0003
502 001116 032760 030000 000012 20$: BIT #LF.HSF!LF.HMF,L.FLG(R0) ; IS HE FLOW CONTROLLED ;AP0003
503 001124 001410 BEQ 40$ ; NO ;AP0003
504 001126 105760 000042 TSTB L.TC(R0) ; YES, CAN WE SEND ;AP0003
505 001132 003005 BGT 40$ ;YES ;LW0006
506 001134 005702 TST R2 ;NO - DID WE JUST KILL THE COUNT? ;LW0006
507 001136 001441 BEQ 100$ ;NO; IT WAS ZERO WHEN WE CAME IN ;LW0006
508 001140 CALL NOTUSR ;TELL USER THAT FLOW STOPPED ;LW0006
509 001144 000436 BR 100$ ;LW0006
510 ;AP0003
511 001146 010003 40$: MOV R0,R3 ;AP0003
512 001150 062703 000046 ADD #L.XQ1,R3 ;AP0003
513 001154 CALL POPQUE ; POP CCB FROM XMT QUEUE ;AP0003
514 001160 103430 BCS 100$ ; EMPTY ;AP0003
515 001162 005202 INC R2 ;INDICATE THAT WE SENT SOMETHING ;LW0006
516 ;AP0003
517 001164 016501 000012 MOV C.STS(R5),R1 ; SAVE USERS FLAGS ;AP0003
518 001170 MAP C.BUF(R5) ; MAP TO MESSAGE BUFFER ;AP0003
519 001176 105260 000005 INCB L.TIPD(R0) ; BUMP THE DATA TRANSMIT IN PROGRESS COUNT ;AP0003
520 001202 CALL SNDALT ; SEND THE MESSAGE ;AP0003
521 001206 032760 010000 000012 BIT #LF.HSF,L.FLG(R0) ; IF SEGMENT FLOW CONTROLLED ;AP0003
522 001214 001007 BNE 80$ ; NO ;AP0003
523 001216 032760 020000 000012 BIT #LF.HMF,L.FLG(R0) ; IF MESSAGE FLOW CONTROLLED ;AP0003
524 001224 001734 BEQ 20$ ;AP0003
525 001226 032701 000100 BIT #NT.EOM,R1 ; END OF MESSAGE ;AP0003
526 001232 001731 BEQ 20$ ;AP0003
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 10-1
PROXMT
527 001234 105360 000042 80$: DECB L.TC(R0) ; ADJUST MESSAGE COUNT ;AP0003
528 001240 000726 BR 20$ ;AP0003
529 ;AP0003
530 001242 000241 100$: CLC ; NEVER ANY ERRORS TO REPORT ;AP0003
531 001244 RESMAP ; RESTORE PREVIOUS BUFFER MAPPING ;AP0003
532 001250 RETURN ;AP0003
533 .ENDC ;AP0003
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 11
RETLS
535 .SBTTL RETLS
536 ;++
537 ;
538
539 ; RETLS
540
541 ; INPUTS:
542 ; R0=LLT
543
544 ; OUTPUTS:
545
546 ; CALLING SEQUENCE:
547
548 ; THIS ROUTINE RETRANSMITS AN I/LS.
549
550 ;--
551
552 001252 042760 000100 000012 RETLS:: BIC #LF.INR,L.FLG(R0) ; CLEAR DEFERRED PROCESSING FLAG
553 001260 SAVMAP ; SAVE MAPPING TO MESSAGE BUFFER
554 001264 010003 10$: MOV R0,R3 ; DEQUEUE AN INTERRUPT OR A LINK SERVICE
555 001266 062703 000052 ADD #L.XQ3,R3 ; ...
556 001272 CALL POPQUE ; ...
557 001276 103410 BCS 20$ ; IF CS, NO MORE - EXIT
558 001300 MAP C.BUF(R5) ; MAP TO MESSAGE BUFFER
559 001306 105260 000004 INCB L.TIPI(R0) ; BUMP I/LS TRANSMIT COUNT
560 001312 CALL SNDALT ; TRANSMIT THE MESSAGE
561 001316 000762 BR 10$ ; KEEP GOING
562
563 001320 20$: RESMAP ; RESTORE PREVIOUS BUFFER MAPPING
564 001324 RETURN ; RETURN TO CALLER
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 12
SHIFTQ
566 .SBTTL SHIFTQ
567 ;++
568 ;
569
570 ; SHIFTQ
571
572 ; INPUTS:
573 ; R0=LLT
574
575 ; OUTPUTS:
576
577 ; CALLING SEQUENCE:
578
579 ; THIS ROUTINE SHIFTS _WAITING TO BE ACKED- QUEUE TO
580 ; THE FRONT OF THE -WAITING TO BE TRANSMITTED- QUEUE
581 ; AND READJUSTS THE FLOW CONTROL COUNTS .
582 ;--
583 .IF DF N$$SYS
584
585 001326 SHIFTQ:
586 001326 SAVRG <R1>
587 001330 SAVMAP ;SAVE CURRENT BUFFER MAPPING
588 001334 016001 000050 MOV L.XQ2(R0),R1
589 001340 001404 10$: BEQ 20$ ;YES
590 001342 CALL ADJUST ;NO,THEN SHIFT AND ADJUST COUNTS
591 001346 011101 MOV (R1),R1
592 001350 000773 BR 10$
593
594 001352 20$: CALL REQUE ;PUTS XQ2 ONTO FRONT OF XQ1
595 001356 RESMAP ;RESTORE PREVIOUS BUFFER MAPPING
596 001362 RESRG <R1>
597 001364 RETURN
598
599 .ENDC
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 13
REQUE
601 .SBTTL REQUE
602 ;++
603 ;
604
605 ; REQUE
606
607 ; INPUTS:
608 ; R0=LLT
609
610 ; OUTPUTS:
611
612 ; CALLING SEQUENCE:
613
614 ; THIS ROUTINE REQUES XQ2 TO FRONT OF XQ1.
615 ;--
616 .IF DF N$$SYS
617
618 001366 REQUE:
619 001366 SAVRG <R3,R5>
620 001372 010003 10$: MOV R0,R3
621 001374 062703 000046 ADD #L.XQ1,R3 ;POP A CCB FROM -WAITING TO TRANSMIT- QUEUE
622 001400 CALL POPQUE
623 001404 103406 BCS 20$ ;DONE
624 001406 010003 MOV R0,R3
625 001410 062703 000050 ADD #L.XQ2,R3 ;AND PUSH IT ONTO -WAITING TO BE ACKED- QUEUE
626 001414 CALL ADDQUE
627 001420 000764 BR 10$
628
629 001422 016060 000050 000046 20$: MOV L.XQ2(R0),L.XQ1(R0) ;THEN READJUST POINTER
630 001430 005060 000050 CLR L.XQ2(R0) ; AS WELL AS XQ2
631 001434 RESRG <R5,R3>
632 001440 RETURN
633
634 .ENDC
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 14
ADJUST
636 .SBTTL ADJUST
637 ;++
638 ;
639
640 ; ADJUST
641
642 ; INPUTS:
643 ; R0=LLT
644 ; R1=THE TIMED CCB
645
646 ; OUTPUTS:
647
648 ; CALLING SEQUENCE:
649
650 ; THIS ROUTINE ADJUSTS THE SEGMENT OR MESSAGE COUNT.
651 ;--
652 .IF DF N$$SYS
653
654 001442 ADJUST:
655 001442 032760 020000 000012 BIT #LF.HMF,L.FLG(R0) ;MESSAGE FLOW CONTROLLED
656 001450 001412 BEQ 10$ ;NO
657 001452 MAP C.BUF(R1) ;MAP TO THE MESSAGE BUFFER
658 001460 132771 000100 000016 BITB #NT.EOM,@C.BUF+2(R1) ;END OF MESSAGE
659 001466 001411 BEQ 20$ ;NO
660 001470 105260 000042 INCB L.TC(R0) ;ADJUST MESSAGE COUNT,NO OVERFLOW TEST
661 001474 000406 BR 20$
662
663 001476 032760 010000 000012 10$: BIT #LF.HSF,L.FLG(R0) ;SEGMENT FLOW CONTROLLED
664 001504 001402 BEQ 20$ ;NO
665 001506 105260 000042 INCB L.TC(R0) ;ADJUST SEGMENT COUNT,NO OVERFLOW TEST
666
667 001512 20$: RETURN
668
669 .ENDC
670
671
672 000001 .END
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 14-1
SYMBOL TABLE
ACKDAT 000166RG 002 CTRES = ****** GX ER$NSD= 000003 IF.INS= 040000 LF.INR= 000100
ACKDT1 000200R 002 C$$CKP= 000000 ER$RES= 000001 IF.NKS= 000400 LF.INT= 000400
ACKILS 000236RG 002 C$$ORE= 000400 ER$SSR= 000000 IF.NRD= 000200 LF.LCL= 040000
ACKIL1 000256R 002 C$$RSH= 177564 ER$SSS= 000045 IF.NRI= 100000 LF.MMF= 100000
ACKMAS= 170000 C.BID 000003 ER$STA= 000051 IF.NTS= 002000 LF.MSF= 040000
ACKNSP 000000RG 002 C.BUF 000014 ER$TCN= 000040 IF.SND= 000004 LF.NKR= 000200
ACKPRE= 100000 C.BUF1 000014 ER$TCO= 000041 IF.SNL= 000002 LF.NKS= 000400
ACKRES= 060000 C.BUF2 000024 ER$TPA= 000010 I$$RAR= 000000 LF.NPN= 000001
ACKWRA= 010000 C.CNT 000020 ER$UOB= 000004 I$$RDN= 000000 LF.NTS= 002000
ADDQUE= ****** GX C.CNT1 000020 E$$XPR= 000000 I.FLG = 000012 LF.RSU= 100000
ADJUST 001442R 002 C.CNT2 000030 FC.CCP= 000020 I.ILA = 000040 LS.DLS= 000200
A$$CHK= 000000 C.FLG 000022 FC.CTL= 000006 I.IREM= 000042 LS.FCC= 000004
A$$CPS= 000000 C.FLG1 000022 FC.KCP= 000016 I.LDA = 000024 LS.FC0= 000001
A$$PRI= 000000 C.FLG2 000032 FC.KIL= 000004 I.LIA = 000026 LS.FC1= 000002
A$$TRP= 000000 C.FNC 000010 FC.RCE= 000002 I.LLA = 000002 LS.ILS= 000200
A.NAK = 010000 C.LIN 000006 FC.RCP= 000014 I.LNO = 000022 LS.MAK= 000020
CB.CCB= 000002 C.LNK 000000 FC.TIM= 000010 I.LSA = 000032 LS.MNK= 000040
CB.RDB= 000004 C.MOD 000011 FC.XCP= 000012 I.LVL = 000001 LS.RES= 000360
CE.ABO= 100362 C.NSP 000004 FC.XME= 000000 I.NDA = 000034 LS.RSV= 000300
CE.DIS= 100366 C.RSV 000002 FE.CAL= 000040 I.NIN = 000016 L$$ASG= 000000
CE.ERR= 100370 C.STA 000007 FE.DRV= 000010 I.NLA = 000036 L$$DRV= 000000
CE.MOP= 100372 C.STS 000012 FE.EXP= 000200 I.NSTA= 000025 L$$P11= 000001
CE.NTE= 100361 DESLNK 000420RG 002 FE.EXT= 000001 I.NXN = 000014 L$$11R= 000000
CE.RTE= 100376 DF$ADJ= 020000 FE.EXV= 000004 I.REM = 000006 L.CIQ 000026
CE.SRC= 100364 DF$DWN= 001000 FE.LSI= 000400 I.RLA = 000010 L.DCR 000036
CE.TMO= 100374 DF$FRE= 070000 FE.MUP= 000002 I.RNO = 000020 L.FLG 000012
CF.EOM= 000004 DF$LCL= 040000 FE.MXT= 040000 I.STA = 000000 L.LDA 000024
CF.HDR= 000020 DF$LNK= 004000 FE.NLG= 100000 I.TIPD= 000005 L.LIA 000026
CF.LB = 100000 DF$REM= 010000 FE.PKT= 000100 I.TIPI= 000004 L.LLA 000002
CF.SOM= 000010 DF$RES= 002000 FE.PLA= 000020 I.USA = 000030 L.LNG1 000054
CF.SYN= 000040 DF$TMP= 100000 FS.AST= 000000 I.USTA= 000024 L.LNO 000022
CF.TRN= 000100 D$CHN 000002 FS.CIB= 002000 KDSAR0= 172360 L.LSA 000032
CL$ACK= 000040 D$FLG 000000 FS.CRA= 001000 KDSDR0= 172320 L.LSF 000044
CL$MFL= 000010 D$LEN 000014 FS.DIS= 013000 KISAR0= 172340 L.LVL 000001
CL$NRM= 000020 D$LNG 000005 FS.DVC= 001000 KISAR5= 172352 L.NDA 000034
CL$SFL= 000004 D$NAM 000006 FS.ENB= 012000 KISAR6= 172354 L.NIN 000016
CL$TYP= 000001 D$USE 000004 FS.GET= 006000 KISAR7= 172356 L.NLA 000036
CL.MU1= 000001 D$$BUG= 177514 FS.INI= 000000 KISDR0= 172300 L.NSTA 000025
CL.MU2= 000002 D$$ISK= 000000 FS.KIL= 000000 KISDR6= 172314 L.NXN 000014
CL.RES= 177774 D$$L11= 000001 FS.LTM= 001000 KISDR7= 172316 L.PDV 000041
CMODE = 140000 D$$YNC= 000000 FS.MNT= 004000 K$$CNT= 177546 L.REM 000006
CS.ABO= 000100 D$$YNM= 000000 FS.MSN= 014000 K$$CSR= 177546 L.RLA 000010
CS.BUF= 000200 ENTDAT 000440RG 002 FS.RNG= 011000 K$$LDC= 000000 L.RNO 000020
CS.DCR= 000400 ER$ABO= 000046 FS.RTN= 001000 K$$TPS= 000074 L.STA 000000
CS.DEV= 000002 ER$ABT= 000011 FS.SET= 005000 LA.ACK= 100000 L.TC 000042
CS.DIS= 000040 ER$ACC= 000042 FS.STM= 000000 LA.MSK= 170000 L.TIC 000043
CS.ENB= 000020 ER$ACT= 000044 FS.STP= 002000 LA.NAK= 110000 L.TIPD 000005
CS.EOF= 000001 ER$CDI= 000052 FS.STR= 001000 LA.NMS= 010000 L.TIPI 000004
CS.ERR= 100000 ER$COM= 000047 FS.TRM= 003000 LA.RES= 060000 L.UDQ 000034
CS.HFE= 002000 ER$FCF= 000050 FS.XKL= 002000 LD$LP = 000000 L.ULA 000040
CS.LST= 040000 ER$FMT= 000005 FS.XOF= 010000 LF.DFL= 000060 L.USA 000030
CS.MTL= 004000 ER$GEN= 000007 FS.XON= 007000 LF.DSP= 000040 L.USTA 000024
CS.RNG= 000010 ER$IFC= 000030 F$$LVL= 000001 LF.DST= 000020 L.XQ1 000046
CS.ROV= 000004 ER$ILS= 000043 G$$TPP= 000000 LF.FPN= 000010 L.XQ2 000050
CS.RSN= 010000 ER$IMG= 000053 G$$TSS= 000000 LF.HF0= 001000 L.XQ3 000052
CS.SUC= 000001 ER$MLB= 000006 G$$TTK= 000000 LF.HMF= 020000 MA.DA = 000000
CS.TMO= 020000 ER$NOD= 000002 G$$WRD= 000000 LF.HSF= 010000 MA.IL = 000020
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 14-2
SYMBOL TABLE
MC.CC = 000040 NS.SUC= 000001 N$$ICF= 000001 PR5 = 000240 ST$CIR= 000003
MC.CI = 000020 NT$ABO= 000022 N$$INT= 000020 PR6 = 000300 ST$CIS= 000001
MC.DC = 000100 NT$ACC= 000002 N$$LDV= 000001 PR7 = 000340 ST$DAT= 000005
MC.DI = 000060 NT$ADS= 000000 N$$MOV= 000010 PS = 177776 ST$DID= 000015
MC.NO = 000000 NT$AKD= 000016 N$$OPT= 000020 PSDAT 000404R 002 ST$DIP= 000006
MC.ST = 000120 NT$AKI= 000020 N$$OVR= 000042 PSTUSR= ****** GX ST$DIR= 000012
MD.BM = 000040 NT$CC = 000012 N$$SYS= 000001 PS$NTI= 000003 ST$DIS= 000014
MD.EM = 000100 NT$CON= 000000 N$$USR= 000001 PS$OFF= 000000 ST$UDI= 000013
MD.ILS= 000040 NT$DAT= 000002 N.ACNT 000116 PS$STR= 000001 ST$UNR= 000011
MD.IM = 000020 NT$DIS= 000010 N.ACTL 000114 PS$UP = 000005 SWR = 177570
MF.ACK= 000004 NT$IDC= 000034 N.DDL1 000012 PS$VER= 000004 S$EMR 000006
MF.CTL= 000010 NT$IDN= 000030 N.DDL2 000016 PS$WT = 000002 S$FMT 000012
MF.DAT= 000000 NT$ILN= 000032 N.DDS1 000014 P$CHN 000004 S$LEN 000040
MPAR = 172100 NT$IND= 000024 N.DDS2 000020 P$CNT 000005 S$LNK 000022
MPCSR = 177746 NT$INL= 000026 N.DFMT 000010 P$FRQ 000012 S$MLK 000024
MSGHDR= 000007 NT$INT= 000004 N.DGRP 000012 P$FSP 000013 S$NKS 000010
M$$CRB= 000124 NT$LS = 000014 N.DOBJ 000011 P$LCD 000002 S$RES 000014
M$$CRX= 000000 NT$MOD= 000012 N.DUSR 000014 P$LEN 000014 S$SEC 000000
M$$FCS= 000000 NT$NAK= 000022 N.LGTH= 000160 P$LST 000000 S$SNI 000016
M$$MGE= 000000 NT$OFF= 000026 N.NODE 000000 P$NOD 000010 S$UMR 000004
M$$OVR= 000000 NT$ON = 000002 N.OPDL 000136 P$PFQ 000006 S$UMS 000002
NAKNSP 000476RG 002 NT$QRY= 000014 N.OPTD 000140 P$TIM 000003 S$UNI 000020
NAKUSR 000622RG 002 NT$REJ= 000004 N.PASL 000102 P$$P45= 000000 S$$WRG= 000000
NC.FM0= 000000 NT$ROU= 000022 N.PASS 000104 P$$WRD= 000000 S$$YSZ= 007600
NC.FM1= 000001 NT$RTI= 000010 N.RQDL 000060 Q$$OPT= 000010 TPS = 177564
NC.FM2= 000002 NT$RTN= 000000 N.RQID 000062 REMHDR= ****** GX T$$KMG= 000000
NETTIM= 000005 NT$SNG= 000006 N.RSRV= 000030 REMSYS= ****** GX T$$MIN= 000000
NE.ABO= 177776 NT$STP= 000004 N.SDL1 000036 REQUE 001366R 002 UBMPR = 170200
NE.ACT= 177771 NT$XOF= 000020 N.SDL2 000042 RETLS 001252RG 002 UDSAR0= 177660
NE.CLS= 177767 NT$XON= 000016 N.SDS1 000040 RETUSR= ****** GX UDSDR0= 177620
NE.DIS= 177777 NT.ACK= 000001 N.SDS2 000056 RF.CLN= 000000 UISAR0= 177640
NE.FMT= 177770 NT.BOM= 000040 N.SEG 000006 RF.CTL= 000003 UISAR4= 177650
NE.NDT= 177766 NT.EOM= 000100 N.SFMT 000034 RF.TIM= 177400 UISAR5= 177652
NE.NOD= 177774 NT.FCN= 037400 N.SGRP 000036 RF.TM0= 000400 UISAR6= 177654
NE.REJ= 177775 NT.MD1= 000420 N.SOBJ 000035 RF.WTD= 000020 UISAR7= 177656
NE.RES= 177773 NT.MFL= 000002 N.SUSR 000040 RF.WTM= 000030 UISDR0= 177600
NE.TIM= 177772 NT.MOD= 000020 PF$EIP= 000100 RF.WTS= 000010 UISDR4= 177610
NI.FLI= 000002 NT.MOM= 000000 PF$ENB= 000200 RH.CNT= 000001 UISDR5= 177612
NI.FRI= 000004 NT.NAK= 000002 PF$OFF= 000000 RH.EFM= 000020 UISDR6= 177614
NI.FRT= 000001 NT.NFL= 000000 PF$RLI= 000002 RH.HDR= 000002 UISDR7= 177616
NI.FUB= 000010 NT.SFL= 000001 PF$RRI= 000004 RH.PRI= 000014 VF$RCV= 100000
NI.INI= 000001 NT.SOL= 000140 PF$RVE= 000001 RH.PR1= 000004 VF$XMT= 040000
NI.RLI= 000002 NT.XOF= 000004 PF$RVR= 000040 RH.RFM= 000100 V$FLG 000000
NI.RRI= 000004 NT.XON= 000010 PF$SLI= 000002 RLSSMS= ****** GX V$LEN 000022
NI.RVE= 000001 N$ACQ 000000 PF$SRI= 000004 R$$DER= 000000 V$RCV 000002
NI.VER= 000002 N$ICF 000006 PF$SRT= 000001 R$$K11= 000001 V$XMT 000012
NOTUSR 000716RG 002 N$LNI 000010 PF$STA= 000003 R$$SND= 000000 V$$CTR= 001000
NP$RTR= 000003 N$LVC 000022 PF$SUB= 000010 R$$11M= 000000 WINDOW= 004000
NS.BOM= 000040 N$NOD 000032 PF$UP = 000001 SHIFTQ 001326R 002 X$$DBT= 000000
NS.EOM= 000100 N$PLD 000026 PIRQ = 177772 SISDR0= 172200 $CCBGT= ****** GX
NS.MFL= 000003 N$STS 000042 PMODE = 030000 SNDALT= ****** GX $QACK = ****** GX
NS.MOM= 000000 N$TCB 000004 POPQUE= ****** GX SNDLS = ****** GX $QBPC = ****** GX
NS.NFL= 000001 N$TMP 000012 PROXMT 001064RG 002 SNILS = ****** GX $QIFC = ****** GX
NS.SET= 000002 N$VER 000036 PR0 = 000000 SR0 = 177572 $QNAK = ****** GX
NS.SFL= 000002 N$$DAT= 000030 PR1 = 000040 SR3 = 172516 $QXCP = ****** GX
NS.SOL= 000140 N$$DIS= 000020 PR4 = 000200 ST$CC = 000002 $REGSV= ****** GX
NSPSI MACRO M1110 13-OCT-79 09:57 PAGE 14-3
SYMBOL TABLE
. ABS. 000160 000
000000 001
NSPSB 001514 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 19070 WORDS ( 75 PAGES)
DYNAMIC MEMORY: 20620 WORDS ( 79 PAGES)
ELAPSED TIME: 00:01:07
NSPSI,[131,34]NSPSI/CR/-SP=[130,10]NETLIB/ML,RSXMCI/PA:1,[131,10]NSPSB
NSPSI CREATED BY MACRO ON 13-OCT-79 AT 09:58 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ACKDAT 000166 RG #4-173
ACKDT1 000200 R 4-142 4-175 #4-177
ACKILS 000236 RG #4-199
ACKIL1 000256 R 4-164 4-203 4-206 #4-209
ACKNSP 000000 RG #4-102
ADDQUE = ****** GX 13-626
ADJUST 001442 R 12-590 #14-654
CTRES = ****** GX 8-400 9-442
C.BUF 000014 10-518 11-558 14-657 14-658
C.LIN 000006 *4-238
C.MOD 000011 *8-406 *9-448 *9-456
C.RSV 000002 4-217
C.STS 000012 10-517
DESLNK 000420 RG #5-283
ENTDAT 000440 RG #6-309
I.LDA = 000024 *4-111 *4-112
I.LIA = 000026 *4-151 *4-152
KISAR6 = 172354 10-487 *10-518 *10-531 11-553 *11-558 *11-563 12-587 *12-595 *14-657
LA.MSK = 170000 4-112 4-131 4-141 4-152 4-163 7-363
LA.NMS = 010000 7-358
LF.FPN = 000010 9-439 9-449
LF.HF0 = 001000 9-450 10-499
LF.HMF = 020000 7-352 9-452 10-502 10-523 14-655
LF.HSF = 010000 7-354 9-452 10-502 10-521 14-663
LF.INR = 000100 11-552
LF.INT = 000400 4-109 4-149
LF.NKR = 000200 7-347 10-499
LF.NPN = 000001 8-397 8-405
LF.RSU = 100000 8-401 9-443
LS.DLS = 000200 4-222
LS.ILS = 000200 4-227
L.DCR 000036 *5-285
L.FLG 000012 *7-347 7-352 7-354 *8-397 *8-405 *9-439 *9-449 9-450 9-452
10-499 10-502 10-521 10-523 *11-552 14-655 14-663
L.LDA 000024 4-129 *4-132 *4-140 *4-141 7-351
L.LIA 000026 *4-162 *4-163
L.LSF 000044 *4-222 *4-227
L.NDA 000034 *4-139 4-178 *4-184
L.NLA 000036 *4-161 4-210 *4-216
L.NXN 000014 7-350 *7-364
L.PDV 000041 4-123 4-202 4-233 6-314 7-342 8-392 9-433
L.STA 000000 10-488
L.TC 000042 *7-361 9-454 10-504 *10-527 *14-660 *14-665
L.TIC 000043 *6-310
L.TIPD 000005 *10-519
L.TIPI 000004 *11-559
L.ULA 000040 4-128 4-238 6-318 7-348 9-466
L.USTA 000024 *5-284
L.XQ1 000046 10-512 13-621 *13-629
L.XQ2 000050 4-181 12-588 13-625 13-629 *13-630
L.XQ3 000052 4-213 11-555
MD.IM = 000020 4-104
NSPSI CREATED BY MACRO ON 13-OCT-79 AT 09:58 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
M$$MGE = 000000 10-487 10-518 10-531 11-553 11-558 11-563 12-587 12-595 14-657
NAKNSP 000476 RG #7-340
NAKUSR 000622 RG #8-390
NOTUSR 000716 RG 6-322 7-372 #9-431 10-508
NS.SUC = 000001 4-258 8-407 9-459
NT$NAK = 000022 8-406
NT$XOF = 000020 9-456
NT$XON = 000016 9-448
NT.EOM = 000100 10-525 14-658
N$$ICF = 000001 3-1 3-2 4-107 4-147
N$$LV2 = ****** 4-118 4-157 4-189 4-249
N$$SYS = 000001 3-73 4-122 4-138 4-172 4-200 4-232 4-244 4-257 6-313
7-341 7-368 8-389 8-391 9-432 9-437 10-484 12-583 13-616
14-652
N$$USR = 000001 3-73 4-122 4-127 4-201 4-232 4-237 6-313 7-341 7-346
8-391 9-432 9-465
POPQUE = ****** GX 4-182 4-214 10-513 11-556 13-622
PROXMT 001064 RG 7-370 9-458 #10-486
PSDAT 000404 R 4-185 4-245 #4-258
PSTUSR = ****** GX 8-408 9-460
REMHDR = ****** GX 4-259
REMSYS = ****** GX 4-176 4-207
REQUE 001366 R 12-594 #13-618
RETLS 001252 RG #11-552
RETUSR = ****** GX 4-260
RLSSMS = ****** GX 4-219
SHIFTQ 001326 R 7-369 #12-585
SNDALT = ****** GX 10-520 11-560
SNDLS = ****** GX 4-223 6-311
SNILS = ****** GX 4-228
ST$DAT = 000005 6-309 10-488
ST$DID = 000015 5-284
ST$DIP = 000006 4-174 4-205 5-283
ST$UNR = 000011 5-284
$CCBGT = ****** GX 8-398 9-440
$QACK = ****** GX 4-133
$QBPC = ****** GX 9-467
$QIFC = ****** GX 6-319
$QNAK = ****** GX 7-349
$QXCP = ****** GX 4-239
$REGSV = ****** GX 4-102 10-486
NSPSI CREATED BY MACRO ON 13-OCT-79 AT 09:58 PAGE 3
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 4-133 4-142 4-164 4-182 4-185 4-214 4-219 4-223 4-228 4-239
4-245 4-259 6-311 6-319 7-349 7-369 7-370 8-398 8-400 8-408
9-440 9-442 9-458 9-460 10-508 10-513 10-520 11-556 11-560 12-590
12-594 13-622 13-626
CALLR #4-176 #4-207 #4-260 #6-322 #7-372 #9-467
CCBDF$ #3-67 3-68
HWDDF$ #10-487 10-487 #10-518 10-518 #10-531 10-531 #11-553 11-553 #11-558 11-558
#11-563 11-563 #12-587 12-587 #12-595 12-595 #14-657 14-657
MAP #3-63 #10-518 #11-558 #14-657
NSPSY$ #3-67 #3-69
RESMAP #3-63 10-531 11-563 12-595
RESRG #3-64 8-409 9-461 12-596 13-631
RETURN #4-167 #4-192 #4-252 #5-286 #8-411 #9-462 #10-532 #11-564 #12-597 #13-632
#14-667
SAVMAP #3-63 10-487 11-553 12-587
SAVRG #3-64 8-396 9-438 12-586 13-619
$MVFBF #3-66
$MVTBF #3-66
$QDLC #3-65
$QLLC #3-65