Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/nspxma.list
There are no other files named nspxma.list in the archive.
NSPXMA MACRO M1110 13-OCT-79 10:18
TABLE OF CONTENTS
4- 61 .XMENB
5- 107 .RCENB
6- 146 USRACC - USER CONNECT ACCEPT
7- 212 USRCON
8- 301 USRDIS,USRABT,USRABO
9- 395 USRREJ,USRCRJ
NSPXMA MACRO M1110 13-OCT-79 10:18 PAGE 3
1 .TITLE NSPXMA
2 .IDENT /V01.04/
3
4 ;
5 ; COPYRIGHT (C) 1978 BY
6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
7 ;
8 ;
9 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
10 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
11 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
12 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
13 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
14 ; TRANSFERRED.
15 ;
16 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
17 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
18 ; CORPORATION.
19 ;
20 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
22 ;
23 ;
24 ; MODULE DESCRIPTION
25 ;
26 ; ACP TRANSMIT MESSAGE PROCESSING
27 ;
28 ;
29 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
30 ;
31 ; IDENT HISTORY:
32 ;
33 ; 1.00 10-FEB-78
34 ; VERSION 2.0 RELEASE
35 ;
36 ; AP0001 21-DEC-77 ALAN D. PECKHAM
37 ; TO ENABLE USE OF THE SYSTEM INTERFACE.
38 ; AP0002 8-JUN-78 ALAN D. PECKHAM
39 ; ADD ERROR CODES FOR SYSTEM INTERFACE CONNECT.
40 ; AP0003 24-OCT-78 ALAN D. PECKHAM
41 ; REJECT DISCONNECT REQUEST IF DATA SEGMENTS WAITING TO BE ACKED.
42 ; AP0004 31-AUG-79 ALAN D. PECKHAM
43 ; AVOID DESTROYING RETURN CODE IN USRCON.
44
45 ; MACRO LIBRARY CALLS
46 ;
47 .MCALL SAVMAP,RESMAP,RECMAP,MAP
48 .MCALL SAVRG,RESRG,$MVFBF
49 .MCALL CALLC,CALLX
50 .MCALL CCBDF$,NSPSY$
51 000000 CCBDF$ ; DEFINE THE CCB OFFSETTS
52 000000 NSPSY$ ; DEFINE THE NSP SYMBOLS
53
54 .IF NDF N$$SYS&N$$USR
55 N$$SYS=1 ;IF NEITHER INTERFACE IS SPECIFIED
56 ;THEN DEFAULT TO SYSTEM INTERFACE
57 .ENDC
NSPXMA MACRO M1110 13-OCT-79 10:18 PAGE 3-1
58
59 000000 .PSECT NSPXMA
NSPXMA MACRO M1110 13-OCT-79 10:18 PAGE 4
.XMENB
61 .SBTTL .XMENB
62 ;+
63 ; **-.XMENB-TRANSMIT ENABLE DISPATCH PROCESSING
64 ;
65 ; THIS ROUTINE DISPATCHES TO THE APPROPRIATE PROCESSING ROUTINE
66 ; BASED ON THE SUBFUNCTION CODE IN THE CCB.
67 ;
68 ; INPUTS:
69 ;
70 ; R5 = ADDRESS OF CCB
71 ; R3 = SUBFUNCTION CODE
72 ;
73 ; OUTPUTS TO PROCESSING ROUTINES:
74 ;
75 ; R5 = ADDRESS OF CCB TO PROCESS
76 ;-
77 .IF DF N$$SYS
78
79 .IF DF M$$MGE
80
81 000000 .XMENB::CALL @XMDSP(R3) ; DISPATCH ON SUBFUNCTION CODE
82 000004 RECMAP ; RESTORE PROPER ACP MAPPING
83 000012 RETURN ; EXIT
84
85 .IFF
86
87 .XMENB::CALLR @XMDSP(R3) ; DISPATCH ON SUBFUNCTION CODE
88
89 .ENDC
90
91 ;
92 ; TRANSMIT DISPATCH TABLE
93 ;
94 000014 000264' XMDSP: .WORD USRCON ; CONNECT INITIATE
95 000016 000000G .WORD CRASH ; DATA - PROCESSED IN THE DRIVER
96 000020 000000G .WORD CRASH ; INTERRUPT - PROCESSED IN THE DRIVER
97 000022 000000G .WORD CRASH ; RESERVED FOR SINGLE MESSAGE
98 000024 000574' .WORD USRDIS ; DISCONNECT
99 000026 000000G .WORD CRASH ; MODIFY FLOW CONTROL - PROCESSED IN THE DRIVER
100 000030 000000G .WORD CRASH ; SAMPLE FLOW CONTROL - PROCESSED IN THE DRIVER
101 000032 000000G .WORD CRASH ; BACKPRESSURE - PROCESSED IN THE DRIVER
102 000034 000000G .WORD CRASH ; BACKPRESSURE - PROCESSED IN THE DRIVER
103 000036 000550' .WORD USRABO ; ABORT
104
105 .ENDC
NSPXMA MACRO M1110 13-OCT-79 10:18 PAGE 5
.RCENB
107 .SBTTL .RCENB
108 ;+
109 ; **-.RCENB-RECEIVE ENABLE DISPATCH PROCESSING
110 ;
111 ; THIS ROUTINE DISPATCHES TO THE APPROPRIATE PROCESSING ROUTINE
112 ; BASED ON THE SUBFUNCTION CODE IN THE CCB.
113 ;
114 ; INPUTS:
115 ;
116 ; R5 = ADDRESS OF CCB
117 ; R3 = SUBFUNCTION CODE
118 ;
119 ; OUTPUTS TO PROCESSING ROUTINES:
120 ;
121 ; R5 = ADDRESS OF CCB TO PROCESS
122 ;-
123 .IF DF N$$SYS
124
125 .IF DF M$$MGE
126
127 000040 .RCENB::CALL @RCDSP(R3) ; DISPATCH ON SUBFUNCTION CODE
128 000044 RECMAP ; RESTORE PROPER ACP MAPPING
129 000052 RETURN ; EXIT
130
131 .IFF
132
133 .RCENB::CALLR @RCDSP(R3) ; DISPATCH ON SUBFUNCTION
134
135 .ENDC
136
137 ;
138 ; RECEIVE DISPATCH TABLE
139 ;
140 000054 000000G RCDSP: .WORD CRASH ; RETURN RECEIVE DATA BUFFER IN THE DRIVER
141 000056 000062' .WORD USRACC ; CONNECT ACCEPT
142 000060 000770' .WORD USRREJ ; CONNECT REJECT
143
144 .ENDC
NSPXMA MACRO M1110 13-OCT-79 10:18 PAGE 6
USRACC - USER CONNECT ACCEPT
146 .SBTTL USRACC - USER CONNECT ACCEPT
147 ;+
148 ; **-USRACC-CONNECT ACCEPT BY THE USER
149 ;
150 ; INPUTS:
151 ;
152 ; R5 = ADDRESS OF CONNECT CCB
153 ;
154 ; C.NSP USER LINK ADDRESS
155 ; C.LIN NSP LINK ADDRESS (LOW BYTE)
156 ; C.BUF+2 MAPPED VIRTUAL ADDRESS OF USER DATA
157 ; C.CNT LENGTH OF THE USER DATA (0 - 16.)
158 ;
159 ; OUTPUTS:
160 ;
161 ; C-BIT CLEAR:
162 ; THE LOGICAL LINK TABLE SETUP IS COMPLETED AND THE CONNECT ACCEPT
163 ; MESSAGE IS TRANSMITTED. THE CONNECT PENDING BLOCK AND CCB ARE
164 ; RELEASED. THE LOGICAL LINK ENTERS DATA STATE (ST$DAT) ON TRANSMIT
165 ; COMPLETE OF THE ACCEPT MESSAGE.
166 ;
167 ; C-BIT SET:
168 ; ALLOCATION FAILURE ON MESSAGE BUFFER FOR THE ACCEPT MESSAGE
169 ; R5 = ADDRESS OF THE CONNECT CCB
170 ;
171 ;-
172
173 000062 USRACC::CALLC CHKUSR ; GET THE ADDRESS OF THE LLT
174 000072 016560 000004 000040 MOV C.NSP(R5),L.ULA(R0) ; STORE ULA & PDV IN THE LLT
175 000100 122710 000006 CMPB #ST$DIP,(R0) ; IS THE LOGICAL LINK DISCONNECTING ?
176 000104 001461 BEQ 40$ ; IF EQ, YES - COMPLETE THE DISCONNECT CYCLE
177 000106 010502 MOV R5,R2 ; SAVE ADDRESS OF CONNECT CCB
178 000110 CALLC GETSMS ; ALLOCATE A SMALL MESSAGE BUFFER
179 000120 103447 BCS 30$ ; IF CS, ALLOCATION FAILURE - RETURN ERROR TO USER
180 000122 112765 000012 000011 MOVB #NT$CC,C.MOD(R5) ; SET CONNECT CONFIRM SUBFUNCTION CODE
181
182 000130 112710 000002 MOVB #ST$CC,(R0) ; SET LINK STATE TO CONNECT CONFIRM
183
184 000134 112724 000050 MOVB #MF.CTL!MC.CC,(R4)+ ; MSGFLGS FOR CONNECT CONFIRM
185 000140 CALL CHKFLG ; SET LINK TYPE AND FLOW CONTROL FLAGS
186 000144 CALLC BLDMSG ; BUILD DESTINATION & SOURCE LINK ADDRESSES
187 000154 016701 000000G MOV $RDBSZ,R1 ; CALULATE MAXIMUM DATA SEGSIZE ALLOWED
188 000160 162701 000042 SUB #N$$OVR,R1 ; ...
189 000164 CALLC PUTBIN ; PUT SEGSIZE INTO MESSAGE
190 000174 SAVRG <R5> ; SAVE ADDRESS OF MESSAGE CCB
191 000176 010205 MOV R2,R5 ; COPY ADDRESS OF ACCEPT CCB
192 000200 016503 000020 MOV C.CNT(R5),R3 ; OPTIONAL DATA LENGTH
193 000204 110324 MOVB R3,(R4)+ ; PUT LENGTH INTO MESSAGE
194 000206 001405 BEQ 20$ ; IF EQ, NO USER DATA TO MOVE
195 000210 016502 000016 MOV C.BUF+2(R5),R2 ; GET ADDRESS OF USER DATA BUFFER
196 000214 112224 10$: MOVB (R2)+,(R4)+ ; MOVE THE USER DATA TO THE MESSAGE
197 000216 SOB R3,10$ ; ...
198 000222 20$: CALL RLSDBK ; RELEASE THE DESCRIPTOR BLOCK
199 000226 012605 MOV (SP)+,R5 ; RECOVER MESSAGE CCB ADDRESS
200 000230 CALLC SNDMSG ; COMPUTE LENGTH AND SEND THE MESSAGE (CLEARS C-BIT)
201 000240 30$: RECMAP ; RESTORE PROPER ACP MAPPING
202 000246 RETURN ; RETURN TO CALLER
NSPXMA MACRO M1110 13-OCT-79 10:18 PAGE 6-1
USRACC - USER CONNECT ACCEPT
203
204 ;
205 ; LINK IS ALREADY IN DISCONNECT STATE
206 ;
207 000250 40$: CALL RLSDBK ; RELEASE THE DESCRIPTOR BLOCK
208 000254 CALL DISUS0 ; INITIATE THE DISCONNECT CYCLE (NO USER DATA)
209 000260 000241 CLC ; REPORT NO ERROR
210 000262 RETURN ; RETURN TO CALLER
NSPXMA MACRO M1110 13-OCT-79 10:18 PAGE 7
USRCON
212 .SBTTL USRCON
213 ;+
214 ; **-USRCON-CONNECT REQUEST BY THE USER
215 ;
216 ; THIS ROUTINE IS ENTERED TO BUILD AND TRANSMIT A CONNECT INITIATE
217 ; MESSAGE.
218 ;
219 ; INPUTS:
220 ;
221 ; R5 = ADDRESS OF CONNECT REQUEST CCB
222 ; C.NSP USER LINK ADDRESS
223 ; C.BUF+2 VIRTUAL ADDRESS OF CONNECT BLOCK (MAPPED)
224 ; C.BUF2+2 VIRTUAL ADDRESS OF BUFFER FOR ACCEPT OR REJECT DATA
225 ; C.CNT2 LENGTH OF THE DATA BUFFER
226 ;
227 ; OUTPUTS:
228 ;
229 ; C-BIT CLEAR:
230 ; A LOGICAL LINK TABLE ALLOCATED AND INITIALIZED, AND A CONNECT
231 ; INITIATE MESSAGE WAS TRANSMITTED.
232 ;
233 ; C-BIT SET:
234 ; THE DESTINATION NODE CANNOT BE REACHED OR A RESOURCE ALLOCATION
235 ; FAILURE ON THE LOGICAL LINK TABLE OR THE MESSAGE BUFFER OCCURRED.
236 ; R1 = ERROR CODE (ER$RES, ER$NOD, ER$FMT)
237 ; R5 = ADDRESS OF THE CONNECT CCB
238 ;
239 ;-
240
241 000264 USRCON::CALL GETNNO ; TRY TO RESOLVE THE DESTINATION NODE NAME
242 000270 103467 BCS 30$ ; IF CS, CANNOT REACH DESTINATION NODE (R1=ER$NOD)
243 000272 CALL ADDLNK ; ADD ANOTHER LINK
244 000276 103464 BCS 30$ ; IF CS, UNABLE TO ADD ANOTHER LINK (R1=ER$RES)
245 000300 050410 BIS R4,(R0) ; SET LINK TYPE FLAGS
246 000302 010360 000006 MOV R3,L.REM(R0) ; STORE POINTER TO DESTINATION NODE NAME
247 000306 105263 000004 INCB D$USE(R3) ; RECORD ANOTHER LINK TO THE DESTINATION NODE
248 000312 016560 000004 000040 MOV C.NSP(R5),L.ULA(R0) ; STORE ULA & PDV IN THE LLT
249 000320 112710 000001 MOVB #ST$CIS,(R0) ; SET NEW STATE TO CONNECT INITIATE
250 000324 005015 CLR (R5) ; QUEUE THE CONNECT REQUEST CCB IN THE LLT
251 000326 010560 000046 MOV R5,L.XQ1(R0) ; ...
252 000332 010502 MOV R5,R2 ; SAVE FOR STATUS FLAG TESTING ;AP0001
253 000334 CALL GETLDB ; ALLOCATE A BUFFER FOR THE CONNECT MESSAGE
254 000340 012701 000001 MOV #ER$RES,R1 ; ASSUME AN ALLOCATION FAILURE
255 000344 103435 BCS 20$ ; IF CS, RESOURCE ERROR - DON'T BUILD THE LINK
256 000346 112765 000000 000011 MOVB #NT$CON,C.MOD(R5) ; SET CONNECT INITIATE SUBFUNCTION CODE
257 000354 112724 000030 MOVB #MF.CTL!MC.CI,(R4)+ ; MSGFLGS=CONNECT
258 000360 CALL CHKFLG ; SET LINK TYPE AND FLOW CONTROL FLAGS
259 000364 CALLC BLDMSG ; BUILD DESTINATION & SOURCE LINK ADDRESSES
260 000374 SAVRG <R5> ; SAVE THE MESSAGE CCB ADDRESS
261 000376 016005 000046 MOV L.XQ1(R0),R5 ; GET USERS CONNECT CCB
262 000402 CALL CONSM2 ; BUILD THE REST OF THE CONNECT MESSAGE
263 000406 RESRG <R5> ; RESTORE THE ADDRESS OF THE MESSAGE CCB
264 000410 103405 BCS 10$ ; IF CS, FORMAT ERROR (R1=ER$FMT)
265 000412 CALLC SNDMSG ; COMPUTE LENGTH AND SEND MESSAGE (CLEARS C-BIT)
266 000422 000446 BR 40$ ;
267
268 000424 10$: CALLC RLSBUF ; RELEASE THE MESSAGE BUFFER
NSPXMA MACRO M1110 13-OCT-79 10:18 PAGE 7-1
USRCON
269 000434 016005 000046 MOV L.XQ1(R0),R5 ; GET CCB OF USERS CONNECT REQUEST
270 000440 20$: CALLC REMLNK ; REMOVE THE LINK
271 000450 30$: ; REFERENCE LABEL
272
273 .IF DF N$$USR
274 000450 000261 SEC ; INDICATE AN ERROR TO USER INTERFACE
275 .ENDC
276
277 .IF DF N$$SYS&N$$USR
278 000452 116500 000005 MOVB C.NSP+1(R5),R0 ; SYSTEM OR USER INTERFACE (DON'T CLEAR C-BIT) ;AP0004
279 000456 001430 BEQ 40$ ; USER ;**-1
280 .ENDC
281
282 .IF DF N$$SYS
283 000460 016565 000004 000006 MOV C.NSP(R5),C.LIN(R5) ; SET USER PDV & ULA
284 000466 005065 000004 CLR C.NSP(R5) ; INDICATE NO ADDITIONAL STATUS
285 000472 005065 000030 CLR C.CNT2(R5) ; INDICATE THAT THERE IS NO USER DATA
286 000476 012704 177774 MOV #NE.NOD,R4 ; ASSUME NODE ERROR ;AP0002
287 000502 022701 000002 CMP #ER$NOD,R1 ;AP0002
288 000506 001407 BEQ 35$ ;AP0002
289 000510 012704 177773 MOV #NE.RES,R4 ; MAYBE CANNOT GET LINK ;AP0002
290 000514 022701 000001 CMP #ER$RES,R1 ;AP0002
291 000520 001402 BEQ 35$ ;AP0002
292 000522 012704 177770 MOV #NE.FMT,R4 ; MUST BE FORMAT ERROR. ;AP0002
293 000526 35$: ;AP0002
294 000526 005000 CLR R0 ; MAKE SURE THERE IS NO LLT
295 000530 CALLC RETUSR ; RETURN CCB TO USER
296 .ENDC
297
298 000540 40$: RECMAP ; RESTORE PROPER ACP MAPPING
299 000546 RETURN ; RETURN TO CALLER
NSPXMA MACRO M1110 13-OCT-79 10:18 PAGE 8
USRDIS,USRABT,USRABO
301 .SBTTL USRDIS,USRABT,USRABO
302 ;+
303 ; **-USRDIS-USER SYNCRONOUS DISCONNECT
304 ; **-USRABT-USER ABORT
305 ; **-USRABO-USER FAULT
306 ;
307 ; INPUTS:
308 ;
309 ; R5 = ADDRESS OF A CCB WHICH MAY CONTAIN USER DATA INFORMATION
310 ; IN THE FIRST BUFFER DESCRIPTOR.
311 ;
312 ; OUTPUTS:
313 ;
314 ; ABORT REQUESTS ARE PROCESSED REGARDLESS OF THE STATE OF THE
315 ; LOGICAL LINK. SYNCHRONOUS DISCONNECT REQUESTS ARE PROCESSED
316 ; ONLY IF ALL ACTIVITY ON THE LINK HAS QUIESED; AN ERROR IS
317 ; RETURNED IF THE DISCONNECT CANNOT BE PERFORMED.
318 ;
319 ;-
320 .ENABL LSB
321
322 000550 USRABO::CALL CHKULA ; FIND LOGICAL LINK BY USER LINK ADDRESS
323 000554 012703 000046 MOV #ER$ABO,R3 ; SET USER FAULT CODE
324 000560 000412 BR 5$ ;
325
326 000562 USRABT::CALL CHKULA ; FIND LOGICAL LINK BY USER LINK ADDRESS
327 000566 012703 000011 MOV #ER$ABT,R3 ; SET USER ABORT CODE
328 000572 000405 BR 5$ ;
329
330 000574 005003 USRDIS::CLR R3 ; SET SYNCHRONOUS DISCONNECT CODE
331 000576 CALLC CHKUSR ; VALIDATE USER
332
333 000606 122710 000006 5$: CMPB #ST$DIP,(R0) ; ARE WE DISCONNECTING?
334 000612 001455 BEQ 50$ ; YES
335 000614 122710 000001 CMPB #ST$CIS,(R0) ; WAITING FOR CC FROM NET?
336 000620 001432 BEQ 20$ ; YES
337 000622 005703 TST R3 ; IS THIS AN ABORT ?
338 000624 001041 BNE 30$ ; IF NE, YES - DO IT IMMEDIATELY
339
340 .IF DF N$$SYS
341 000626 005760 000046 TST L.XQ1(R0) ; ANY DATA SEGMENTS WAITING TO BE XMITD?
342 000632 001011 BNE 10$ ; YES..RETURN TO USER
343 000634 005760 000050 TST L.XQ2(R0) ; ANY DATA SEGMENTS WAITING TO BE ACKED ? ;AP0003
344 000640 001006 BNE 10$ ; IF SO, NOT READY FOR DISCONNECT. ;AP0003
345 .ENDC
346
347 000642 005760 000052 TST L.XQ3(R0) ; ANY INT/LS SEGMENTS WAITING TO BE ACKD?
348 000646 001003 BNE 10$ ; YES..RETURN TO USER
349 000650 005760 000004 TST L.TIPI(R0) ; ANY DATA OR I/LS MESSAGES IN PROGRESS ?
350 000654 001425 BEQ 30$ ; IF EQ, NO - DO THE DISCONNECT
351 000656 10$: ; REFERENCE LABEL
352
353 .IF DF N$$SYS&N$$USR
354 000656 105760 000041 TSTB L.PDV(R0) ; SYSTEM OR USER INTERFACE? ;AP0001
355 000662 001002 BNE 15$ ; SYSTEM ;**-1
356 .ENDC
357
NSPXMA MACRO M1110 13-OCT-79 10:18 PAGE 8-1
USRDIS,USRABT,USRABO
358 .IF DF N$$USR
359 000664 000261 SEC ; SET C-BIT TO INDICATE LINK ACTIVE
360 000666 000437 BR 70$ ;
361 .ENDC
362 000670 15$:
363 .IF DF N$$SYS
364 000670 012704 177771 MOV #NE.ACT,R4 ; SET ERROR CODE
365 000674 CALLC RETUSR
366 000704 000427 BR 60$ ;
367 .ENDC
368
369 ;
370 ; ABORT REQUEST AND LINK STATE IS CONNECT INITIATE
371 ; CANNNOT GET HERE IF DISCONNECT; R3 HAS REASON CODE
372 ;
373 000706 112760 000015 000025 20$: MOVB #ST$DID,L.NSTA(R0) ; ALL DONE WITH RESPECT TO NET
374 000714 010560 000034 MOV R5,L.UDQ(R0) ; QUEUE THE DISCONNECT REQUEST
375 000720 005004 CLR R4 ; INDICATE NO USER DATA PRESENT
376 000722 CALL DISUSR ; PROPAGATE THE DISCONNECTION
377 000726 000416 BR 60$ ;
378
379 ;
380 ;
381 ; DISCONNECT OR ABORT AND LINK STATE REQUIRES A DISCONNECT MESSAGE
382 ; TO BE SENT. R3 HAS DISCONNECT REASON CODE.
383 ;
384 000730 30$: CALLC SNDDI ; DISCONNECT IS BY USER
385 000740 103412 BCS 70$ ; RESOURCE ERROR
386 000742 CALL ENTDIP ; START DISCONNECT PROCESS
387 000746 112760 000013 000024 50$: MOVB #ST$UDI,L.USTA(R0) ; ALL DONE WITH USER
388 000754 010560 000034 MOV R5,L.UDQ(R0) ; QUEUE THE DISCONNECT REQUEST
389 000760 CALL CLNLNK ; TRY TO GET RID OF LINK CLEANLY
390 000764 000241 60$: CLC ; REPORT NO ERROR
391 000766 70$: RETURN ; RETURN TO CALLER
392
393 .DSABL LSB
NSPXMA MACRO M1110 13-OCT-79 10:18 PAGE 9
USRREJ,USRCRJ
395 .SBTTL USRREJ,USRCRJ
396 ;+
397 ; **-USRREJ-CONNECT REJECT BY THE USER
398 ; **-USRCRJ-CONNECT REJECT BY THE USER INTERFACE
399 ;
400 ; INPUTS:
401 ;
402 ; R3 = REJECT CODE (ENTRY AT USRCRJ ONLY)
403 ; R5 = ADDRESS OF THE CONNECT CCB
404 ;
405 ;
406 ; OUTPUTS:
407 ;
408 ; A DISCONNECT INITIATE MESSAGE IS SENT WITH THE APPROPRIATE
409 ; ERROR CODE. THE LOGICAL LINK GOES AWAY WHEN A DISCONNECT
410 ; CONFIRM MESSAGE IS RECEIVED IN RESPONSE.
411 ;
412 ;-
413
414 000770 005003 USRREJ::CLR R3 ; SET ERROR CODE FOR USER REJECT
415
416 000772 USRCRJ::CALLC CHKUSR ; GET THE ADDRESS OF THE LLT
417 001002 122710 000006 CMPB #ST$DIP,(R0) ; ARE WE DISCONNECTING?
418 001006 001415 BEQ 10$ ; YES
419 001010 010360 000036 MOV R3,L.DCR(R0) ; STORE REASON CODE AND REJECT CCB IN
420 001014 010560 000034 MOV R5,L.UDQ(R0) ; ...EVENT OF AN ALLOCATION FAILURE
421 001020 CALLC SNDDI ; ATTEMPT TO SEND THE DISCONNECT INITIATE MESSAGE
422 001030 103413 BCS 20$ ; IF CS, ALLOCATION FAILURE - GO AWAY AND WAIT
423 001032 005060 000034 CLR L.UDQ(R0) ; REMOVE THE REJECT CCB FROM THE QUEUE
424 001036 CALL ENTDIP ; ENTER DISCONNECT STATE
425 001042 112760 000013 000024 10$: MOVB #ST$UDI,L.USTA(R0) ; WE ARE NOW DONE WITH THE USER
426 001050 CALL CLNLNK ; TRY TO GET RID OF THE LINK
427 001054 CALL RLSDBK ; RELEASE THE DESCRIPTOR BLOCK
428 001060 000241 20$: CLC ; MAKE SURE NO ERROR IS REPORTED
429 001062 RETURN ; RETURN TO CALLER
430
431
432 000001 .END
NSPXMA MACRO M1110 13-OCT-79 10:18 PAGE 9-1
SYMBOL TABLE
ACKMAS= 170000 CS.TMO= 020000 ER$NOD= 000002 G$$TPP= 000000 L.FLG 000012
ACKPRE= 100000 C$$CKP= 000000 ER$NSD= 000003 G$$TSS= 000000 L.LDA 000024
ACKRES= 060000 C$$ORE= 000400 ER$RES= 000001 G$$TTK= 000000 L.LIA 000026
ACKWRA= 010000 C$$RSH= 177564 ER$SSR= 000000 G$$WRD= 000000 L.LLA 000002
ADDLNK= ****** GX C.BID 000003 ER$SSS= 000045 I$$RAR= 000000 L.LNG1 000054
A$$CHK= 000000 C.BUF 000014 ER$STA= 000051 I$$RDN= 000000 L.LNO 000022
A$$CPS= 000000 C.BUF1 000014 ER$TCN= 000040 KDSAR0= 172360 L.LSA 000032
A$$PRI= 000000 C.BUF2 000024 ER$TCO= 000041 KDSDR0= 172320 L.LSF 000044
A$$TRP= 000000 C.CNT 000020 ER$TPA= 000010 KISAR0= 172340 L.LVL 000001
A.NAK = 010000 C.CNT1 000020 ER$UOB= 000004 KISAR5= 172352 L.NDA 000034
BLDMSG= ****** GX C.CNT2 000030 E$$XPR= 000000 KISAR6= 172354 L.NIN 000016
CB.CCB= 000002 C.FLG 000022 FC.CCP= 000020 KISAR7= 172356 L.NLA 000036
CB.RDB= 000004 C.FLG1 000022 FC.CTL= 000006 KISDR0= 172300 L.NSTA 000025
CE.ABO= 100362 C.FLG2 000032 FC.KCP= 000016 KISDR6= 172314 L.NXN 000014
CE.DIS= 100366 C.FNC 000010 FC.KIL= 000004 KISDR7= 172316 L.PDV 000041
CE.ERR= 100370 C.LIN 000006 FC.RCE= 000002 K$$CNT= 177546 L.REM 000006
CE.MOP= 100372 C.LNK 000000 FC.RCP= 000014 K$$CSR= 177546 L.RLA 000010
CE.NTE= 100361 C.MOD 000011 FC.TIM= 000010 K$$LDC= 000000 L.RNO 000020
CE.RTE= 100376 C.NSP 000004 FC.XCP= 000012 K$$TPS= 000074 L.STA 000000
CE.SRC= 100364 C.RSV 000002 FC.XME= 000000 LA.ACK= 100000 L.TC 000042
CE.TMO= 100374 C.STA 000007 FE.CAL= 000040 LA.MSK= 170000 L.TIC 000043
CF.EOM= 000004 C.STS 000012 FE.DRV= 000010 LA.NAK= 110000 L.TIPD 000005
CF.HDR= 000020 DF$ADJ= 020000 FE.EXP= 000200 LA.NMS= 010000 L.TIPI 000004
CF.LB = 100000 DF$DWN= 001000 FE.EXT= 000001 LA.RES= 060000 L.UDQ 000034
CF.SOM= 000010 DF$FRE= 070000 FE.EXV= 000004 LD$LP = 000000 L.ULA 000040
CF.SYN= 000040 DF$LCL= 040000 FE.LSI= 000400 LF.DFL= 000060 L.USA 000030
CF.TRN= 000100 DF$LNK= 004000 FE.MUP= 000002 LF.DSP= 000040 L.USTA 000024
CHKFLG= ****** GX DF$REM= 010000 FE.MXT= 040000 LF.DST= 000020 L.XQ1 000046
CHKULA= ****** GX DF$RES= 002000 FE.NLG= 100000 LF.FPN= 000010 L.XQ2 000050
CHKUSR= ****** GX DF$TMP= 100000 FE.PKT= 000100 LF.HF0= 001000 L.XQ3 000052
CLNLNK= ****** GX DISUSR= ****** GX FE.PLA= 000020 LF.HMF= 020000 MA.DA = 000000
CL$ACK= 000040 DISUS0= ****** GX FS.AST= 000000 LF.HSF= 010000 MA.IL = 000020
CL$MFL= 000010 D$CHN 000002 FS.CIB= 002000 LF.INR= 000100 MC.CC = 000040
CL$NRM= 000020 D$FLG 000000 FS.CRA= 001000 LF.INT= 000400 MC.CI = 000020
CL$SFL= 000004 D$LEN 000014 FS.DIS= 013000 LF.LCL= 040000 MC.DC = 000100
CL$TYP= 000001 D$LNG 000005 FS.DVC= 001000 LF.MMF= 100000 MC.DI = 000060
CL.MU1= 000001 D$NAM 000006 FS.ENB= 012000 LF.MSF= 040000 MC.NO = 000000
CL.MU2= 000002 D$USE 000004 FS.GET= 006000 LF.NKR= 000200 MC.ST = 000120
CL.RES= 177774 D$$BUG= 177514 FS.INI= 000000 LF.NKS= 000400 MD.BM = 000040
CMODE = 140000 D$$ISK= 000000 FS.KIL= 000000 LF.NPN= 000001 MD.EM = 000100
CONSM2= ****** GX D$$L11= 000001 FS.LTM= 001000 LF.NTS= 002000 MD.ILS= 000040
CRASH = ****** GX D$$YNC= 000000 FS.MNT= 004000 LF.RSU= 100000 MD.IM = 000020
CS.ABO= 000100 D$$YNM= 000000 FS.MSN= 014000 LS.DLS= 000200 MF.ACK= 000004
CS.BUF= 000200 ENTDIP= ****** GX FS.RNG= 011000 LS.FCC= 000004 MF.CTL= 000010
CS.DCR= 000400 ER$ABO= 000046 FS.RTN= 001000 LS.FC0= 000001 MF.DAT= 000000
CS.DEV= 000002 ER$ABT= 000011 FS.SET= 005000 LS.FC1= 000002 MPAR = 172100
CS.DIS= 000040 ER$ACC= 000042 FS.STM= 000000 LS.ILS= 000200 MPCSR = 177746
CS.ENB= 000020 ER$ACT= 000044 FS.STP= 002000 LS.MAK= 000020 MSGHDR= 000007
CS.EOF= 000001 ER$CDI= 000052 FS.STR= 001000 LS.MNK= 000040 M$$CRB= 000124
CS.ERR= 100000 ER$COM= 000047 FS.TRM= 003000 LS.RES= 000360 M$$CRX= 000000
CS.HFE= 002000 ER$FCF= 000050 FS.XKL= 002000 LS.RSV= 000300 M$$FCS= 000000
CS.LST= 040000 ER$FMT= 000005 FS.XOF= 010000 L$$ASG= 000000 M$$MGE= 000000
CS.MTL= 004000 ER$GEN= 000007 FS.XON= 007000 L$$DRV= 000000 M$$OVR= 000000
CS.RNG= 000010 ER$IFC= 000030 F$$LVL= 000001 L$$P11= 000001 NC.FM0= 000000
CS.ROV= 000004 ER$ILS= 000043 GETLDB= ****** GX L$$11R= 000000 NC.FM1= 000001
CS.RSN= 010000 ER$IMG= 000053 GETNNO= ****** GX L.CIQ 000026 NC.FM2= 000002
CS.SUC= 000001 ER$MLB= 000006 GETSMS= ****** GX L.DCR 000036 NETTIM= 000005
NSPXMA MACRO M1110 13-OCT-79 10:18 PAGE 9-2
SYMBOL TABLE
NE.ABO= 177776 NT$ROU= 000022 N.LGTH= 000160 P$FRQ 000012 S$FMT 000012
NE.ACT= 177771 NT$RTI= 000010 N.NODE 000000 P$FSP 000013 S$LEN 000040
NE.CLS= 177767 NT$RTN= 000000 N.OPDL 000136 P$LCD 000002 S$LNK 000022
NE.DIS= 177777 NT$SNG= 000006 N.OPTD 000140 P$LEN 000014 S$MLK 000024
NE.FMT= 177770 NT$STP= 000004 N.PASL 000102 P$LST 000000 S$NKS 000010
NE.NDT= 177766 NT$XOF= 000020 N.PASS 000104 P$NOD 000010 S$RES 000014
NE.NOD= 177774 NT$XON= 000016 N.RQDL 000060 P$PFQ 000006 S$SEC 000000
NE.REJ= 177775 NT.ACK= 000001 N.RQID 000062 P$TIM 000003 S$SNI 000016
NE.RES= 177773 NT.BOM= 000040 N.RSRV= 000030 P$$P45= 000000 S$UMR 000004
NE.TIM= 177772 NT.EOM= 000100 N.SDL1 000036 P$$WRD= 000000 S$UMS 000002
NI.FLI= 000002 NT.FCN= 037400 N.SDL2 000042 Q$$OPT= 000010 S$UNI 000020
NI.FRI= 000004 NT.MD1= 000420 N.SDS1 000040 RCDSP 000054R 002 S$$WRG= 000000
NI.FRT= 000001 NT.MFL= 000002 N.SDS2 000056 REMLNK= ****** GX S$$YSZ= 007600
NI.FUB= 000010 NT.MOD= 000020 N.SEG 000006 RETUSR= ****** GX TPS = 177564
NI.INI= 000001 NT.MOM= 000000 N.SFMT 000034 RF.CLN= 000000 T$$KMG= 000000
NI.RLI= 000002 NT.NAK= 000002 N.SGRP 000036 RF.CTL= 000003 T$$MIN= 000000
NI.RRI= 000004 NT.NFL= 000000 N.SOBJ 000035 RF.TIM= 177400 UBMPR = 170200
NI.RVE= 000001 NT.SFL= 000001 N.SUSR 000040 RF.TM0= 000400 UDSAR0= 177660
NI.VER= 000002 NT.SOL= 000140 PD$NSP= ****** GX RF.WTD= 000020 UDSDR0= 177620
NP$RTR= 000003 NT.XOF= 000004 PF$EIP= 000100 RF.WTM= 000030 UISAR0= 177640
NS.BOM= 000040 NT.XON= 000010 PF$ENB= 000200 RF.WTS= 000010 UISAR4= 177650
NS.EOM= 000100 N$ACQ 000000 PF$OFF= 000000 RH.CNT= 000001 UISAR5= 177652
NS.MFL= 000003 N$ICF 000006 PF$RLI= 000002 RH.EFM= 000020 UISAR6= 177654
NS.MOM= 000000 N$LNI 000010 PF$RRI= 000004 RH.HDR= 000002 UISAR7= 177656
NS.NFL= 000001 N$LVC 000022 PF$RVE= 000001 RH.PRI= 000014 UISDR0= 177600
NS.SET= 000002 N$NOD 000032 PF$RVR= 000040 RH.PR1= 000004 UISDR4= 177610
NS.SFL= 000002 N$PLD 000026 PF$SLI= 000002 RH.RFM= 000100 UISDR5= 177612
NS.SOL= 000140 N$STS 000042 PF$SRI= 000004 RLSBUF= ****** GX UISDR6= 177614
NS.SUC= 000001 N$TCB 000004 PF$SRT= 000001 RLSDBK= ****** GX UISDR7= 177616
NT$ABO= 000022 N$TMP 000012 PF$STA= 000003 R$$DER= 000000 USRABO 000550RG 002
NT$ACC= 000002 N$VER 000036 PF$SUB= 000010 R$$K11= 000001 USRABT 000562RG 002
NT$ADS= 000000 N$$DAT= 000030 PF$UP = 000001 R$$SND= 000000 USRACC 000062RG 002
NT$AKD= 000016 N$$DIS= 000020 PIRQ = 177772 R$$11M= 000000 USRCON 000264RG 002
NT$AKI= 000020 N$$INT= 000020 PMODE = 030000 SISDR0= 172200 USRCRJ 000772RG 002
NT$CC = 000012 N$$LDV= 000001 PR0 = 000000 SNDDI = ****** GX USRDIS 000574RG 002
NT$CON= 000000 N$$MOV= 000010 PR1 = 000040 SNDMSG= ****** GX USRREJ 000770RG 002
NT$DAT= 000002 N$$OPT= 000020 PR4 = 000200 SR0 = 177572 VF$RCV= 100000
NT$DIS= 000010 N$$OVR= 000042 PR5 = 000240 SR3 = 172516 VF$XMT= 040000
NT$IDC= 000034 N$$SYS= 000001 PR6 = 000300 ST$CC = 000002 V$FLG 000000
NT$IDN= 000030 N$$USR= 000001 PR7 = 000340 ST$CIR= 000003 V$LEN 000022
NT$ILN= 000032 N.ACNT 000116 PS = 177776 ST$CIS= 000001 V$RCV 000002
NT$IND= 000024 N.ACTL 000114 PS$NTI= 000003 ST$DAT= 000005 V$XMT 000012
NT$INL= 000026 N.DDL1 000012 PS$OFF= 000000 ST$DID= 000015 V$$CTR= 001000
NT$INT= 000004 N.DDL2 000016 PS$STR= 000001 ST$DIP= 000006 WINDOW= 004000
NT$LS = 000014 N.DDS1 000014 PS$UP = 000005 ST$DIR= 000012 XMDSP 000014R 002
NT$MOD= 000012 N.DDS2 000020 PS$VER= 000004 ST$DIS= 000014 X$$DBT= 000000
NT$NAK= 000022 N.DFMT 000010 PS$WT = 000002 ST$UDI= 000013 $CALLX= ****** GX
NT$OFF= 000026 N.DGRP 000012 PUTBIN= ****** GX ST$UNR= 000011 $RDBSZ= ****** GX
NT$ON = 000002 N.DOBJ 000011 P$CHN 000004 SWR = 177570 .RCENB 000040RG 002
NT$QRY= 000014 N.DUSR 000014 P$CNT 000005 S$EMR 000006 .XMENB 000000RG 002
NT$REJ= 000004
. ABS. 000160 000
000000 001
NSPXMA 001064 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 18823 WORDS ( 74 PAGES)
NSPXMA MACRO M1110 13-OCT-79 10:18 PAGE 9-3
SYMBOL TABLE
DYNAMIC MEMORY: 20620 WORDS ( 79 PAGES)
ELAPSED TIME: 00:00:46
NSPXMA,[131,34]NSPXMA/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[131,10]NSPXMA
NSPXMA CREATED BY MACRO ON 13-OCT-79 AT 10:19 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ADDLNK = ****** GX 7-243
BLDMSG = ****** GX 6-186 7-259
CHKFLG = ****** GX 6-185 7-258
CHKULA = ****** GX 8-322 8-326
CHKUSR = ****** GX 6-173 8-331 9-416
CLNLNK = ****** GX 8-389 9-426
CONSM2 = ****** GX 7-262
CRASH = ****** GX 4-95 4-96 4-97 4-99 4-100 4-101 4-102 5-140
C.BUF 000014 6-195
C.CNT 000020 6-192
C.CNT2 000030 *7-285
C.LIN 000006 *7-283
C.MOD 000011 *6-180 *7-256
C.NSP 000004 6-174 7-248 7-278 7-283 *7-284
DISUSR = ****** GX 8-376
DISUS0 = ****** GX 6-208
D$USE 000004 *7-247
ENTDIP = ****** GX 8-386 9-424
ER$ABO = 000046 8-323
ER$ABT = 000011 8-327
ER$NOD = 000002 7-287
ER$RES = 000001 7-254 7-290
GETLDB = ****** GX 7-253
GETNNO = ****** GX 7-241
GETSMS = ****** GX 6-178
KISAR6 = 172354 *4-82 *5-128 *6-201 *7-298
L.DCR 000036 *9-419
L.NSTA 000025 *8-373
L.PDV 000041 8-354
L.REM 000006 *7-246
L.TIPI 000004 8-349
L.UDQ 000034 *8-374 *8-388 *9-420 *9-423
L.ULA 000040 *6-174 *7-248
L.USTA 000024 *8-387 *9-425
L.XQ1 000046 *7-251 7-261 7-269 8-341
L.XQ2 000050 8-343
L.XQ3 000052 8-347
MC.CC = 000040 6-184
MC.CI = 000020 7-257
MF.CTL = 000010 6-184 7-257
M$$MGE = 000000 4-79 4-82 5-125 5-128 6-173 6-173 6-178 6-178 6-186
6-186 6-189 6-189 6-200 6-200 6-201 7-259 7-259 7-265
7-265 7-268 7-268 7-270 7-270 7-295 7-295 7-298 8-331
8-331 8-365 8-365 8-384 8-384 9-416 9-416 9-421 9-421
NE.ACT = 177771 8-364
NE.FMT = 177770 7-292
NE.NOD = 177774 7-286
NE.RES = 177773 7-289
NT$CC = 000012 6-180
NT$CON = 000000 7-256
N$$OVR = 000042 6-188
N$$SYS = 000001 3-54 4-77 5-123 7-277 7-282 8-340 8-353 8-363
NSPXMA CREATED BY MACRO ON 13-OCT-79 AT 10:19 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
N$$USR = 000001 3-54 7-273 7-277 8-353 8-358
PD$NSP = ****** GX 6-173 6-178 6-186 6-189 6-200 7-259 7-265 7-268 7-270
7-295 8-331 8-365 8-384 9-416 9-421
PUTBIN = ****** GX 6-189
RCDSP 000054 R 5-127 #5-140
REMLNK = ****** GX 7-270
RETUSR = ****** GX 7-295 8-365
RLSBUF = ****** GX 7-268
RLSDBK = ****** GX 6-198 6-207 9-427
RSX11D = ****** 6-173 6-173 6-178 6-178 6-186 6-186 6-189 6-189 6-200
6-200 7-259 7-259 7-265 7-265 7-268 7-268 7-270 7-270
7-295 7-295 8-331 8-331 8-365 8-365 8-384 8-384 9-416
9-416 9-421 9-421
SNDDI = ****** GX 8-384 9-421
SNDMSG = ****** GX 6-200 7-265
ST$CC = 000002 6-182
ST$CIS = 000001 7-249 8-335
ST$DID = 000015 8-373
ST$DIP = 000006 6-175 8-333 9-417
ST$UDI = 000013 8-387 9-425
UISAR6 = 177654 4-82 5-128 6-201 7-298
USRABO 000550 RG 4-103 #8-322
USRABT 000562 RG #8-326
USRACC 000062 RG 5-141 #6-173
USRCON 000264 RG 4-94 #7-241
USRCRJ 000772 RG #9-416
USRDIS 000574 RG 4-98 #8-330
USRREJ 000770 RG 5-142 #9-414
XMDSP 000014 R 4-81 #4-94
$CALLX = ****** GX 6-173 6-178 6-186 6-189 6-200 7-259 7-265 7-268 7-270
7-295 8-331 8-365 8-384 9-416 9-421
$RDBSZ = ****** GX 6-187
.RCENB 000040 RG #5-127
.XMENB 000000 RG #4-81
NSPXMA CREATED BY MACRO ON 13-OCT-79 AT 10:19 PAGE 3
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 4-81 5-127 6-185 6-198 6-207 6-208 7-241 7-243 7-253 7-258
7-262 8-322 8-326 8-376 8-386 8-389 9-424 9-426 9-427
CALLC #3-49 6-173 6-178 6-186 6-189 6-200 7-259 7-265 7-268 7-270
7-295 8-331 8-365 8-384 9-416 9-421
CALLX #3-49 6-173 6-178 6-186 6-189 6-200 7-259 7-265 7-268 7-270
7-295 8-331 8-365 8-384 9-416 9-421
CCBDF$ #3-50 #3-51
HWDDF$ #4-82 4-82 #5-128 5-128 #6-201 6-201 #7-298 7-298
MAP #3-47
NSPSY$ #3-50 #3-52
RECMAP #3-47 #4-82 #5-128 #6-201 #7-298
RESMAP #3-47
RESRG #3-48 7-263
RETURN 4-83 5-129 6-202 6-210 7-299 8-391 9-429
SAVMAP #3-47
SAVRG #3-48 #6-190 #7-260
SOB #6-197
$MVFBF #3-48