Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/nscon.list
There are no other files named nscon.list in the archive.
NSCON MACRO M1110 13-OCT-79 10:19
TABLE OF CONTENTS
4- 55 $CONQIO - LOGICAL LINK CONNECT QIO (FUNCTION=33) PROCESSOR
5- 98 CON - LOGICAL LINK CONNECT (SUBFUNCTION=000)
6- 140 CNVCRB - CONVERT FROM USER'S CONNECT BLOCK
9- 216 ACC - LOGICAL LINK CONNECT ACCEPT (SUBFUNCTION=010)
NSCON MACRO M1110 13-OCT-79 10:19 PAGE 3
1 .TITLE NSCON
2 .IDENT /V01.01/
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 CONNECT/ACCEPT QIO PROCESSOR
27 ;
28 ;
29 ;
30 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
31 ;
32 ; IDENT HISTORY:
33 ;
34 ; 1.00 10-FEB-78
35 ; VERSION 2.0 RELEASE
36 ; 1.01 8-JUN-79 ALAN D. PECKHAM
37 ; CORRECT RACE CONDITION IN ACC
38
39 ; MACRO LIBRARY CALLS
40 ;
41
42 .MCALL CCBDF$,NSPSY$,SAVRG,RESRG,MAP,$MVTBF,RECMAP
43 000000 CCBDF$ ;DEFINE CCB OFFSETS
44 000000 NSPSY$ ;DEFINE NSP INTERNAL SYMBOLS
45
46 .MCALL LLWDF$,MBXDF$
47 000000 LLWDF$ ;DEFINE WINDOW BLOCK OFFSETS
48 000000 MBXDF$ ;DEFINE MAILBOX OFFSETS
49
50 .MCALL CRBDF$,CNBDF$,NSSYM$
51 000000 CRBDF$ ;DEFINE CONNECT REQUEST BLOCK OFFSETS
52 000000 CNBDF$ ;DEFINE CONNECT PENDING BLOCK OFFSETS
53 000000 NSSYM$ ;DEFINE DEVICE RETURN VALUES
NSCON MACRO M1110 13-OCT-79 10:19 PAGE 4
$CONQIO - LOGICAL LINK CONNECT QIO (FUNCTION=33) PROCESSOR
55 .SBTTL $CONQIO - LOGICAL LINK CONNECT QIO (FUNCTION=33) PROCESSOR
56
57 ;+
58 ; ** - CON$QIO - CON$/ACC$ QIOS
59 ;
60 ; THIS ROUTINE PROCESSES QIO REQUESTS WITH FUNCTION
61 ; CODE OF 33 (EITHER CON$ OR ACC$).
62 ;
63 ; INPUTS:
64 ;
65 ; R1 = SUBFUNCTION CODE
66 ; R3 -> I/O PACKET
67 ;
68 ; OUTPUTS: (ON DISPATCH TO EITHER CON$ OR ACC$)
69 ;
70 ; R3 -> I/O PACKET
71 ; R5 -> WINDOW BLOCK
72 ;-
73 000000 .PSECT $NSACP
74
75 000000 017305 000000G $CONQIO::MOV @I.LN2(R3),R5 ;GET POINTER TO WINDOW BLOCK
76 000004 005305 DEC R5 ;REMOVE ACCESS INTERLOCK BIT FROM ADDRESS
77 000006 012765 000000C 000000 MOV #WI.RDV!WI.WRV,W.CTL(R5) ;ALLOW READ AND WRITE ACCESS
78 000014 016365 000000G 000002 MOV I.TCB(R3),W.TASK(R5) ;STORE TCB ADDRESS IN WINDOW BLOCK
79 000022 CALL MAPHDR ;GET POINTER TO TASK HEADER
80 000026 005000 CLR R0 ;CLEAR REGISTER TO PREVENT SIGN EXTEND
81 000030 156200 000000G BISB H.NML(R2),R0 ;GET MAILBOX LUN NUMBER
82 000034 CALL MAPLUN ;GET POINTER TO 2ND LUN WORD
83 000040 011065 000016 MOV (R0),W.MBOX(R5) ;STORE MAILBOX ADDRESS IN WINDOW BLOCK
84 000044 042765 000001 000016 BIC #1,W.MBOX(R5) ;CLEAR ACCESS BIT IN ADDRESS
85 000052 010565 000024 MOV R5,W.SNDQ+2(R5) ;INITIALIZE TRANSMIT QUEUE LISTHEAD
86 000056 062765 000022 000024 ADD #W.SNDQ,W.SNDQ+2(R5) ;...
87 000064 010565 000030 MOV R5,W.RCVQ+2(R5) ;INITIALIZE RECEIVE QUEUE LISTHEAD
88 000070 062765 000026 000030 ADD #W.RCVQ,W.RCVQ+2(R5) ;...
89 000076 010565 000036 MOV R5,W.INTQ+2(R5) ;INITIALIZE INTERRUPT QUEUE LISTHEAD
90 000102 062765 000034 000036 ADD #W.INTQ,W.INTQ+2(R5) ;...
91 000110 010365 000014 MOV R3,W.PIO(R5) ;STORE I/O PACKET IN WINDOW BLOCK
92 000114 105701 TSTB R1 ;CON$ OR ACC$?
93 000116 001402 BEQ 10$ ;IF NE, THEN CON$
94 000120 CALLR ACC ;OTHERWISE ACC$
95
96 000124 10$: ;REFERENCE LABEL
NSCON MACRO M1110 13-OCT-79 10:19 PAGE 5
CON - LOGICAL LINK CONNECT (SUBFUNCTION=000)
98 .SBTTL CON - LOGICAL LINK CONNECT (SUBFUNCTION=000)
99
100 ;+
101 ; ** - CON - QIO REQUEST
102 ;
103 ; THIS ROUTINE PROCESSES A USER TASK'S CONNECT REQUEST. IT
104 ; CONVERTS THE USER'S CONNECT REQUEST BLOCK INTO THE INTERNAL
105 ; CONNECT BLOCK FORMAT AND CALLS NSP TO SEND THE CONNECT
106 ; INTITIATE MESSAGE.
107 ;
108 ; INPUTS:
109 ;
110 ; R3 -> I/O PACKET
111 ; R5 -> WINDOW BLOCK
112 ;-
113
114 000124 CON: SWSTK$ 40$ ;SWITCH TO SYSTEM STATE
115 000130 SAVRG <R5> ;;SAVE THE ADDRESS OF THE WINDOW BLOCK
116 000132 005000 CLR R0 ;;SET PDV INDEX TO ZERO (USER INTERFACE)
117 000134 156500 000011 BISB W.ULA(R5),R0 ;;...AND MERGE IN THE USER LINK ADDRESS
118 000140 CALL GETDBK ;;ALLOCATE THE CONBLK
119 000144 103420 BCS 10$ ;;IF CS, ALLOCATION FAILURE (R1=ER$RES)
120 000146 010065 000004 MOV R0,C.NSP(R5) ;;STORE PDV AND ULA IN THE CCB
121 000152 016500 000016 MOV C.BUF+2(R5),R0 ;;GET ADDRESS OF DESCRIPTOR BLOCK
122 000156 010065 000026 MOV R0,C.BUF2+2(R5) ;;SECOND DESCRIPTOR HAS ADDRESS FOR RETURN DATA
123 000162 012765 000020 000030 MOV #N$$OPT,C.CNT2(R5) ;;..AND MAXIMUM LENGTH OF DATA
124 000170 CALL CNVCRB ;;CONVERT USER'S CONNECT REQUEST BLOCK
125 ;; INTO THE SYSTEM INTERFACE FORMAT
126 000174 CALL USRCON ;;CALL NSP TO DO CONNECT INITIATE
127 000200 103013 BCC 20$ ;;IF CC, CONNECT REQUEST WAS PROCESSED
128 000202 CALL RLSDBK ;;ELSE, DEALLOCATE CONBLK (R1=ER$NOD, ER$RES)
129 000206 10$: RESRG <R5> ;;RESTORE ADDRESS OF WINDOW BLOCK
130 000210 016503 000014 MOV W.PIO(R5),R3 ;;GET ADDRESS OF I/O PACKET
131 000214 CALL REMULA ;;REMOVE WINDOW BLOCK FROM ULT
132 000220 012700 000266 MOV #IE.NRJ&377,R0 ;;GET REJECT ERROR CODE
133 000224 CALLR IODUN ;;POST ERROR COMPLETION TO USER
134
135 000230 20$: RESRG <R5> ;;RESTORE ADDRESS OF WINDOW BLOCK
136 000232 016500 000016 MOV W.MBOX(R5),R0 ;;OTHERWISE GET ADDRESS OF MAILBOX
137 000236 105260 000006 INCB M.USE(R0) ;;INCR # OF PENDING/ACTIVE LOGICAL LINKS
138 000242 40$: RETURN ;;RETURN TO TASK STATE AND CALLER
NSCON MACRO M1110 13-OCT-79 10:19 PAGE 6
CNVCRB - CONVERT FROM USER'S CONNECT BLOCK
140 .SBTTL CNVCRB - CONVERT FROM USER'S CONNECT BLOCK
141
142 ;+
143 ; ** - CNVCRB - CONVERT FROM USER'S CONNECT BLOCK
144 ;
145 ; THIS SUBROUTINE CONVERTS THE USER'S CONNECT REQUEST BLOCK
146 ; INTO A CONNECT REQUEST BLOCK THAT IS COMPATIBLE WITH THE
147 ; SYSTEM INTERFACE.
148 ;
149 ; INPUTS:
150 ;
151 ; R3-> I/O PACKET
152 ; R0-> CONBLK
153 ;
154 ; OUTPUTS:
155 ;
156 ; R0, R1, & R2 ARE DESTROYED
157 ;-
158 000000 .PSECT
159
160 .ENABL LSB
161
162 000000 CNVCRB: MAP I.PRM(R3) ;;MAP TO USER'S CONNECT REQUEST BLOCK
163 000006 016301 000002G MOV I.PRM+2(R3),R1 ;;GET ADDRESS OF USER'S CONNECT BLOCK
164 000012 012120 MOV (R1)+,(R0)+ ;;MOVE DESTINATION NODE NAME
165 000014 012120 MOV (R1)+,(R0)+ ;;...
166 000016 012120 MOV (R1)+,(R0)+ ;;...
167 000020 005020 CLR (R0)+ ;;SPECIFY MAXIMUM SEGMENT SIZE
168 000022 012702 000012 MOV #<N.RIDC-N.RDEC>/2+1,R2 ;;GET SIZE OF DESTINATION DESCRIPTOR
169 000026 012120 10$: MOV (R1)+,(R0)+ ;;COPY DESTINATION DESCRIPTOR
170 000030 SOB R2,10$
171 000034 012720 000001 MOV #NC.FM1,(R0)+ ;;SET SOURCE DESCRIPTOR TO FORMAT 1, OBJECT TYPE 0
172 000040 012720 000006 MOV #6,(R0)+ ;;STORE SOURCE NAME LENGTH
173 000044 SAVRG <R1> ;;SAVE POINTER INTO USER'S CONNECT BLOCK
174 000046 016301 000000G MOV I.TCB(R3),R1 ;;GET USER'S TASK TCB ADDRESS
175 000052 016146 000002G MOV T.NAM+2(R1),-(SP) ;;STORE LAST 3 CHARACTERS OF NAME
176 000056 016101 000000G MOV T.NAM(R1),R1 ;;GET FIRST 3 CHARACTERS OF NAME
177 000062 CALL $C5TA ;;CONVERT THEM FROM RAD50 TO ASCII
178 000066 012601 MOV (SP)+,R1 ;;GET LAST 3 CHARACTERS OF NAME AGAIN
179 000070 CALL $C5TA ;;CONVERT THEM FROM RAD50 TO ASCII
180 000074 RESRG <R1>
181 000076 062700 000012 ADD #N.RQDL-<N.SDS1+6>,R0 ;;MOVE CONBLK POINTER TO N.RQDL
182 000102 012702 000027 MOV #<N.RQL-N.RIDC>/2,R2
183 000106 012120 20$: MOV (R1)+,(R0)+ ;;COPY REQUESTOR ID, PASSWORD
184 000110 SOB R2,20$ ;;AND ACCOUNTING INFORMATION
185 000114 016302 000010G MOV I.PRM+10(R3),R2 ;;GET OPTIONAL DATA COUNT
186 000120 010220 MOV R2,(R0)+ ;;STORE COUNT IN THE CONBLK
187 000122 001420 BEQ 50$ ;;IF EQ, NO OPTIONAL DATA - JUST EXIT
188 000124 000407 BR 30$ ;;ELSE GO MOVE IT
NSCON MACRO M1110 13-OCT-79 10:19 PAGE 7
CNVCRB - CONVERT FROM USER'S CONNECT BLOCK
190 ;+
191 ; ** - MVDAT - COMMON DATA MOVER
192 ;
193 ; COMMON SUBROUTINE FOR MOVING USER OPTIONAL DATA ON ACC$ AND REJ$
194 ;
195 ; INPUTS:
196 ;
197 ; R3 -> I/O PACKET
198 ; R4 -> ACC$ OR REJ$ CCB ADDRESS
199 ;
200 ;-
201
202 000126 016400 000016 MVDAT:: MOV C.BUF+2(R4),R0 ;;GET ADDRESS OF CONBLK
203 000132 016302 000010G MOV I.PRM+10(R3),R2 ;;GET NUMBER OF BYTES OF OPTIONAL DATA
204 000136 010264 000020 MOV R2,C.CNT(R4) ;;...AND STORE IN THE CCB
205 000142 001410 BEQ 50$ ;;IF EQ, NO OPTIONAL DATA - JUST EXIT
206 000144 30$: MAP I.PRM+4(R3) ;;MAP TO USER'S OPTIONAL DATA
207 000152 016301 000006G MOV I.PRM+6(R3),R1 ;;GET ADDRESS OF OPTIONAL DATA
208 000156 112120 40$: MOVB (R1)+,(R0)+ ;;MOVE OPTIONAL DATA INTO CONBLK
209 000160 SOB R2,40$ ;;LOOP TILL DONE
210 000164 50$: RECMAP ;;RECOVER MAPPING
211 000172 RETURN ;;RETURN
212
213 .DSABL LSB
NSCON MACRO M1110 13-OCT-79 10:19 PAGE 9
ACC - LOGICAL LINK CONNECT ACCEPT (SUBFUNCTION=010)
216 .SBTTL ACC - LOGICAL LINK CONNECT ACCEPT (SUBFUNCTION=010)
217
218 ;+
219 ; ** - ACC - QIO REQUEST
220 ;
221 ; THIS ROUTINE PROCESSES A USER TASK'S ACCEPT CONNECT REQUEST.
222 ; IT ACCEPTS A CONNECTION THAT THE USER RECEIVED THROUGH HIS
223 ; NETWORK DATA QUEUE.
224 ;
225 ; INPUTS:
226 ;
227 ; R3-> I/O PACKET
228 ; R5-> WINDOW BLOCK
229 ;
230 ;-
231 000174 .PSECT
232
233 000174 ACC: SWSTK$ 30$ ;SWITCH TO SYSTEM STATE
234 000200 016504 000016 MOV W.MBOX(R5),R4 ;GET THE ADDRESS OF THE MAILBOX
235 000204 CALL TLACHK ;CHECK TLA RETURNED BY USER
236 000210 010104 MOV R1,R4 ;;COPY CI CCB ADDRESS (TLA)
237 000212 001471 BEQ 20$ ;;IF EQ, INVALID TLA RETURNED
238 000214 005064 000004 CLR C.NSP(R4) ;;ZERO PDV INDEX FOR USER INTERFACE
239 000220 156564 000011 000004 BISB W.ULA(R5),C.NSP(R4) ;;...AND MERGE IN THE ULA
240 ;;STORE DISCONNECT CONTEXT IN I/O PACKET
241 000226 016363 000000G 000012G MOV I.LN2(R3),I.PRM+12(R3) ;; POINTER TO 2ND LUN WORD
242 000234 012763 000000C 000014G MOV #IE.ABO&377,I.PRM+14(R3) ;; LINK DISCONNECTING STATUS
243 000242 005063 000016G CLR I.PRM+16(R3) ;; NO BYTE COUNT
244 000246 116465 000006 000010 MOVB C.LIN(R4),W.LLA(R5) ;;SAVE LLA IN WINDOW BLOCK
245 000254 016465 000022 000012 MOV C.FLG(R4),W.SEGZ(R5) ;;STORE THE MAX SEGMENT SIZE THAT WE CAN TRANSMIT
246 000262 CALL MVDAT ;;MOVE OPTIONAL DATA INTO CONBLK
247 000266 SAVRG <R3,R5,C.NSP(R4)> ;;SAVE I/O PACKET, WINDOW ADDRESS, AND ULA ;AP0001
248 000276 010405 MOV R4,R5 ;;COPY CCB ADDRESS ;**-1
249 000300 CALL USRACC ;;CALL NSP TO ACCEPT CONNECTION
250 000304 RESRG <R3,R5> ;;RESTORE ULA AND WINDOW ADDRESS ;AP0001
251 000310 103414 BCS 10$ ;;IF CS, RESOURCE ERROR FROM USRACC ;**-1
252 000312 010305 MOV R3,R5 ;;COPY ULA AND ;AP0001
253 000314 RESRG <R3> ;;RECOVER THE I/O PACKET ADDRESS ;**-1
254 000316 CALL GETWB ;;...IN CASE LINK DISCONNECTED)
255 000322 103427 BCS 30$ ;;IF CS, LINK HAS BEEN DISCONNECTED
256 000324 152765 000002 000004 BISB #WS.EST,W.STAT(R5) ;;INDICATE THAT LOGICAL LINK IS ESTABLISHED
257 000332 005065 000014 CLR W.PIO(R5) ;;CLEAR PENDING I/O PACKET CELL IN WINDOW BLOCK
258 000336 CALLR IOSUC ;;POST COMPLETION TO USER AND RETURN
259
260 000342 016500 000016 10$: MOV W.MBOX(R5),R0 ;;GET MAILBOX ADDRESS AND DECREMENT
261 000346 105360 000006 DECB M.USE(R0) ;;...THE ACTIVE LINK COUNT
262 000352 CALL REMULA ;;DEALLOCATE WINDOW BLOCK AND CLEAR LUN ACCESS
263 000356 012703 000001 MOV #ER$RES,R3 ;;SET REJECT REASON CODE
264 000362 010405 MOV R4,R5 ;;COPY CCB ADDRESS
265 000364 CALL CCBREJ ;;ISSUE CONNECT REJECT
266 000370 RESRG <R3> ;;RECOVER I/O PACKET ADDRESS
267 000372 012700 000000C MOV #IE.RSU&377,R0 ;;SET RESOURCE ERROR FOR USER
268 000376 20$: CALLR IODUN1 ;;COMPLETE I/O REQUEST IN ERROR
269
270 000402 30$: RETURN ;;RETURN TO TASK STATE AND CALLER
271
272 000001 .END
NSCON MACRO M1110 13-OCT-79 10:19 PAGE 9-1
SYMBOL TABLE
ACC 000174R C$$CKP= 000000 ER$SSS= 000045 IE.ABO= ****** GX LS.MNK= 000040
ACKMAS= 170000 C$$ORE= 000400 ER$STA= 000051 IE.NDA= 177662 LS.RES= 000360
ACKPRE= 100000 C$$RSH= 177564 ER$TCN= 000040 IE.NNT= 177660 LS.RSV= 000300
ACKRES= 060000 C.BID 000003 ER$TCO= 000041 IE.NRJ= 177666 L$$ASG= 000000
ACKWRA= 010000 C.BUF 000014 ER$TPA= 000010 IE.RSU= ****** GX L$$DRV= 000000
A$$CHK= 000000 C.BUF1 000014 ER$UOB= 000004 IE.URJ= 177667 L$$P11= 000001
A$$CPS= 000000 C.BUF2 000024 E$$XPR= 000000 IODUN = ****** GX L$$11R= 000000
A$$PRI= 000000 C.CNT 000020 FC.CCP= 000020 IODUN1= ****** GX L.CIQ 000026
A$$TRP= 000000 C.CNT1 000020 FC.CTL= 000006 IOSUC = ****** GX L.DCR 000036
A.NAK = 010000 C.CNT2 000030 FC.KCP= 000016 IS.DAO= 000002 L.FLG 000012
CB.CCB= 000002 C.FLG 000022 FC.KIL= 000004 I$$RAR= 000000 L.LDA 000024
CB.RDB= 000004 C.FLG1 000022 FC.RCE= 000002 I$$RDN= 000000 L.LIA 000026
CCBREJ= ****** GX C.FLG2 000032 FC.RCP= 000014 I.LN2 = ****** GX L.LLA 000002
CE.ABO= 100362 C.FNC 000010 FC.TIM= 000010 I.PRM = ****** GX L.LNG1 000054
CE.DIS= 100366 C.LIN 000006 FC.XCP= 000012 I.TCB = ****** GX L.LNO 000022
CE.ERR= 100370 C.LNK 000000 FC.XME= 000000 KDSAR0= 172360 L.LSA 000032
CE.MOP= 100372 C.MOD 000011 FE.CAL= 000040 KDSDR0= 172320 L.LSF 000044
CE.NTE= 100361 C.NSP 000004 FE.DRV= 000010 KISAR0= 172340 L.LVL 000001
CE.RTE= 100376 C.RSV 000002 FE.EXP= 000200 KISAR5= 172352 L.NDA 000034
CE.SRC= 100364 C.STA 000007 FE.EXT= 000001 KISAR6= 172354 L.NIN 000016
CE.TMO= 100374 C.STS 000012 FE.EXV= 000004 KISAR7= 172356 L.NLA 000036
CF.EOM= 000004 DF$ADJ= 020000 FE.LSI= 000400 KISDR0= 172300 L.NSTA 000025
CF.HDR= 000020 DF$DWN= 001000 FE.MUP= 000002 KISDR6= 172314 L.NXN 000014
CF.LB = 100000 DF$FRE= 070000 FE.MXT= 040000 KISDR7= 172316 L.PDV 000041
CF.SOM= 000010 DF$LCL= 040000 FE.NLG= 100000 K$$CNT= 177546 L.REM 000006
CF.SYN= 000040 DF$LNK= 004000 FE.PKT= 000100 K$$CSR= 177546 L.RLA 000010
CF.TRN= 000100 DF$REM= 010000 FE.PLA= 000020 K$$LDC= 000000 L.RNO 000020
CL$ACK= 000040 DF$RES= 002000 FS.AST= 000000 K$$TPS= 000074 L.STA 000000
CL$MFL= 000010 DF$TMP= 100000 FS.CIB= 002000 LA.ACK= 100000 L.TC 000042
CL$NRM= 000020 D$CHN 000002 FS.CRA= 001000 LA.MSK= 170000 L.TIC 000043
CL$SFL= 000004 D$FLG 000000 FS.DIS= 013000 LA.NAK= 110000 L.TIPD 000005
CL$TYP= 000001 D$LEN 000014 FS.DVC= 001000 LA.NMS= 010000 L.TIPI 000004
CL.MU1= 000001 D$LNG 000005 FS.ENB= 012000 LA.RES= 060000 L.UDQ 000034
CL.MU2= 000002 D$NAM 000006 FS.GET= 006000 LD$LP = 000000 L.ULA 000040
CL.RES= 177774 D$USE 000004 FS.INI= 000000 LF.DFL= 000060 L.USA 000030
CMODE = 140000 D$$BUG= 177514 FS.KIL= 000000 LF.DSP= 000040 L.USTA 000024
CNVCRB 000000R D$$ISK= 000000 FS.LTM= 001000 LF.DST= 000020 L.XQ1 000046
CON 000124R 002 D$$L11= 000001 FS.MNT= 004000 LF.FPN= 000010 L.XQ2 000050
CS.ABO= 000100 D$$YNC= 000000 FS.MSN= 014000 LF.HF0= 001000 L.XQ3 000052
CS.BUF= 000200 D$$YNM= 000000 FS.RNG= 011000 LF.HMF= 020000 MAPHDR= ****** GX
CS.DCR= 000400 ER$ABO= 000046 FS.RTN= 001000 LF.HSF= 010000 MAPLUN= ****** GX
CS.DEV= 000002 ER$ABT= 000011 FS.SET= 005000 LF.INR= 000100 MA.DA = 000000
CS.DIS= 000040 ER$ACC= 000042 FS.STM= 000000 LF.INT= 000400 MA.IL = 000020
CS.ENB= 000020 ER$ACT= 000044 FS.STP= 002000 LF.LCL= 040000 MC.CC = 000040
CS.EOF= 000001 ER$CDI= 000052 FS.STR= 001000 LF.MMF= 100000 MC.CI = 000020
CS.ERR= 100000 ER$COM= 000047 FS.TRM= 003000 LF.MSF= 040000 MC.DC = 000100
CS.HFE= 002000 ER$FCF= 000050 FS.XKL= 002000 LF.NKR= 000200 MC.DI = 000060
CS.LST= 040000 ER$FMT= 000005 FS.XOF= 010000 LF.NKS= 000400 MC.NO = 000000
CS.MTL= 004000 ER$GEN= 000007 FS.XON= 007000 LF.NPN= 000001 MC.ST = 000120
CS.RNG= 000010 ER$IFC= 000030 F$$LVL= 000001 LF.NTS= 002000 MD.BM = 000040
CS.ROV= 000004 ER$ILS= 000043 GETDBK= ****** GX LF.RSU= 100000 MD.EM = 000100
CS.RSN= 010000 ER$IMG= 000053 GETWB = ****** GX LS.DLS= 000200 MD.ILS= 000040
CS.SUC= 000001 ER$MLB= 000006 G$$TPP= 000000 LS.FCC= 000004 MD.IM = 000020
CS.TMO= 020000 ER$NOD= 000002 G$$TSS= 000000 LS.FC0= 000001 MF.ACK= 000004
CX.GDQ= 000001 ER$NSD= 000003 G$$TTK= 000000 LS.FC1= 000002 MF.CTL= 000010
CX.REQ= 000002 ER$RES= 000001 G$$WRD= 000000 LS.ILS= 000200 MF.DAT= 000000
CX.UNL= 000004 ER$SSR= 000000 H.NML = ****** GX LS.MAK= 000020 MPAR = 172100
NSCON MACRO M1110 13-OCT-79 10:19 PAGE 9-2
SYMBOL TABLE
MPCSR = 177746 NI.FRT= 000001 NT.ABT= 000004 N.DFM 000004 PF$RLI= 000002
MSGHDR= 000007 NI.FUB= 000010 NT.ACK= 000001 N.DFMT 000010 PF$RRI= 000004
MS.AST= 000010 NI.INI= 000001 NT.BOM= 000040 N.DGP 000006 PF$RVE= 000001
MS.CIP= 000200 NI.RLI= 000002 NT.CON= 000001 N.DGRP 000012 PF$RVR= 000040
MVDAT 000126RG NI.RRI= 000004 NT.DSC= 000003 N.DNM 000014 PF$SLI= 000002
M$$CRB= 000124 NI.RVE= 000001 NT.EOM= 000100 N.DNMC 000012 PF$SRI= 000004
M$$CRX= 000000 NI.VER= 000002 NT.FCN= 037400 N.DOBJ 000011 PF$SRT= 000001
M$$FCS= 000000 NO.DTR= 000077 NT.INT= 000002 N.DOT 000005 PF$STA= 000003
M$$MGE= 000000 NO.FAL= 000021 NT.LOG= 000011 N.DUS 000010 PF$SUB= 000010
M$$OVR= 000000 NO.FA1= 000001 NT.MD1= 000420 N.DUSR 000014 PF$UP = 000001
M.MAIL 000012 NO.NCU= 000023 NT.MFL= 000002 N.LGTH= 000160 PIRQ = 177772
M.MAX 000007 NO.RTL= 000022 NT.MOD= 000020 N.NODE 000000 PMODE = 030000
M.MBL = 000016 NO.TAS= 000000 NT.MOM= 000000 N.OPDL 000136 PR0 = 000000
M.NAST 000005 NO.TCL= 000017 NT.MOP= 000010 N.OPTD 000140 PR1 = 000040
M.NEXT 000000 NO.TC1= 000005 NT.NAK= 000002 N.PASL 000102 PR4 = 000200
M.SPA 000010 NO.TLK= 000020 NT.NFL= 000000 N.PASS 000104 PR5 = 000240
M.STAT 000004 NP$RTR= 000003 NT.SFL= 000001 N.RAC 000070 PR6 = 000300
M.TASK 000002 NR$IFC= 000030 NT.SOL= 000140 N.RACC 000066 PR7 = 000340
M.USE 000006 NS.BOM= 000040 NT.XOF= 000004 N.RDE 000012 PS = 177776
NC.FM0= 000000 NS.EOM= 000100 NT.XON= 000010 N.RDEC 000010 PS$NTI= 000003
NC.FM1= 000001 NS.MFL= 000003 N$ACQ 000000 N.RFM 000006 PS$OFF= 000000
NC.FM2= 000002 NS.MOM= 000000 N$ICF 000006 N.RGP 000010 PS$STR= 000001
NETTIM= 000005 NS.NFL= 000001 N$LNI 000010 N.RID 000034 PS$UP = 000005
NE$ABO= 000046 NS.SET= 000002 N$LVC 000022 N.RIDC 000032 PS$VER= 000004
NE$ABT= 000011 NS.SFL= 000002 N$NOD 000032 N.RND 000000 PS$WT = 000002
NE$ACC= 000042 NS.SOL= 000140 N$PLD 000026 N.RNM 000016 P$CHN 000004
NE$ACT= 000044 NS.SUC= 000001 N$STS 000042 N.RNMC 000014 P$CNT 000005
NE$CDI= 000052 NT$ABO= 000022 N$TCB 000004 N.ROT 000007 P$FRQ 000012
NE$COM= 000047 NT$ACC= 000002 N$TMP 000012 N.RPS 000056 P$FSP 000013
NE$FCF= 000050 NT$ADS= 000000 N$VER 000036 N.RPSC 000054 P$LCD 000002
NE$FMT= 000005 NT$AKD= 000016 N$$DAT= 000030 N.RQDL 000060 P$LEN 000014
NE$GEN= 000007 NT$AKI= 000020 N$$DIS= 000020 N.RQID 000062 P$LST 000000
NE$ILS= 000043 NT$CC = 000012 N$$INT= 000020 N.RQL = 000110 P$NOD 000010
NE$IMG= 000053 NT$CON= 000000 N$$LDV= 000001 N.RSRV= 000030 P$PFQ 000006
NE$MLB= 000006 NT$DAT= 000002 N$$MOV= 000010 N.RUS 000012 P$TIM 000003
NE$NOD= 000002 NT$DIS= 000010 N$$OPT= 000020 N.SDE 000042 P$$P45= 000000
NE$NSD= 000003 NT$IDC= 000034 N$$OVR= 000042 N.SDEC 000040 P$$WRD= 000000
NE$RES= 000001 NT$IDN= 000030 N$$SYS= 000001 N.SDL1 000036 Q$$OPT= 000010
NE$SSR= 000000 NT$ILN= 000032 N$$USR= 000001 N.SDL2 000042 REMULA= ****** GX
NE$SSS= 000045 NT$IND= 000024 N.ACNT 000116 N.SDS1 000040 RF.CLN= 000000
NE$STA= 000051 NT$INL= 000026 N.ACTL 000114 N.SDS2 000056 RF.CTL= 000003
NE$TCN= 000040 NT$INT= 000004 N.CAC 000120 N.SEG 000006 RF.TIM= 177400
NE$TCO= 000041 NT$LS = 000014 N.CACC 000116 N.SEGZ 000002 RF.TM0= 000400
NE$TPA= 000010 NT$MOD= 000012 N.CBL = 000142 N.SFM 000036 RF.WTD= 000020
NE$UOB= 000004 NT$NAK= 000022 N.CDA 000142 N.SFMT 000034 RF.WTM= 000030
NE.ABO= 177776 NT$OFF= 000026 N.CDAC 000140 N.SGP 000040 RF.WTS= 000010
NE.ACT= 177771 NT$ON = 000002 N.CID 000064 N.SGRP 000036 RH.CNT= 000001
NE.CLS= 177767 NT$QRY= 000014 N.CIDC 000062 N.SND 000030 RH.EFM= 000020
NE.DIS= 177777 NT$REJ= 000004 N.CPS 000106 N.SNM 000046 RH.HDR= 000002
NE.FMT= 177770 NT$ROU= 000022 N.CPSC 000104 N.SNMC 000044 RH.PRI= 000014
NE.NDT= 177766 NT$RTI= 000010 N.CTL 000000 N.SOBJ 000035 RH.PR1= 000004
NE.NOD= 177774 NT$RTN= 000000 N.DDE 000010 N.SOT 000037 RH.RFM= 000100
NE.REJ= 177775 NT$SNG= 000006 N.DDEC 000006 N.SUS 000042 RLSDBK= ****** GX
NE.RES= 177773 NT$STP= 000004 N.DDL1 000012 N.SUSR 000040 R$$DER= 000000
NE.TIM= 177772 NT$XOF= 000020 N.DDL2 000016 PF$EIP= 000100 R$$K11= 000001
NI.FLI= 000002 NT$XON= 000016 N.DDS1 000014 PF$ENB= 000200 R$$SND= 000000
NI.FRI= 000004 NT.ABO= 000005 N.DDS2 000020 PF$OFF= 000000 R$$11M= 000000
NSCON MACRO M1110 13-OCT-79 10:19 PAGE 9-3
SYMBOL TABLE
SISDR0= 172200 S$MLK 000024 UDSDR0= 177620 V$RCV 000002 W.CTL 000000
SR0 = 177572 S$NKS 000010 UISAR0= 177640 V$XMT 000012 W.INTQ 000034
SR3 = 172516 S$RES 000014 UISAR4= 177650 V$$CTR= 001000 W.LLA 000010
ST$CC = 000002 S$SEC 000000 UISAR5= 177652 WINDOW= 004000 W.LUN 000007
ST$CIR= 000003 S$SNI 000016 UISAR6= 177654 WI.RDV= ****** GX W.MBOX 000016
ST$CIS= 000001 S$UMR 000004 UISAR7= 177656 WI.WRV= ****** GX W.MODC 000005
ST$DAT= 000005 S$UMS 000002 UISDR0= 177600 WS.DIC= 000004 W.PIO 000014
ST$DID= 000015 S$UNI 000020 UISDR4= 177610 WS.DIP= 000100 W.RCVQ 000026
ST$DIP= 000006 S$$WRG= 000000 UISDR5= 177612 WS.EST= 000002 W.SEGZ 000012
ST$DIR= 000012 S$$YSZ= 007600 UISDR6= 177614 WS.INT= 000040 W.SNDQ 000022
ST$DIS= 000014 TLACHK= ****** GX UISDR7= 177616 WS.KIP= 000200 W.STAT 000004
ST$UDI= 000013 TPS = 177564 USRACC= ****** GX WS.MOD= 000010 W.TASK 000002
ST$UNR= 000011 T$$KMG= 000000 USRCON= ****** GX WS.STA= 000020 W.ULA 000011
SWR = 177570 T$$MIN= 000000 VF$RCV= 100000 WS.VE1= 000001 W.WBL = 000040
S$EMR 000006 T.NAM = ****** GX VF$XMT= 040000 W.CCBU 000006 X$$DBT= 000000
S$FMT 000012 UBMPR = 170200 V$FLG 000000 W.CINT 000032 $CONQI 000000RG 002
S$LEN 000040 UDSAR0= 177660 V$LEN 000022 W.CSND 000020 $C5TA = ****** GX
S$LNK 000022
. ABS. 000160 000
000404 001
$NSACP 000244 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 21147 WORDS ( 83 PAGES)
DYNAMIC MEMORY: 20620 WORDS ( 79 PAGES)
ELAPSED TIME: 00:00:45
NSCON,[131,34]NSCON/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[131,10]NSCON
NSCON CREATED BY MACRO ON 13-OCT-79 AT 10:20 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ACC 000174 R 4-94 #9-233
CCBREJ = ****** GX 9-265
CNVCRB 000000 R 5-124 #6-162
CON 000124 R #5-114
C.BUF 000014 5-121 7-202
C.BUF2 000024 *5-122
C.CNT 000020 *7-204
C.CNT2 000030 *5-123
C.FLG 000022 9-245
C.LIN 000006 9-244
C.NSP 000004 *5-120 *9-238 *9-239 9-247
ER$RES = 000001 9-263
GETDBK = ****** GX 5-118
GETWB = ****** GX 9-254
H.NML = ****** GX 4-81
IE.ABO = ****** GX 9-242
IE.NRJ = 177666 5-132
IE.RSU = ****** GX 9-267
IODUN = ****** GX 5-133
IODUN1 = ****** GX 9-268
IOSUC = ****** GX 9-258
I.LN2 = ****** GX 4-75 9-241
I.PRM = ****** GX 6-162 6-163 6-185 7-203 7-206 7-207 *9-241 *9-242 *9-243
I.TCB = ****** GX 4-78 6-174
KISAR6 = 172354 *6-162 *7-206 *7-210
MAPHDR = ****** GX 4-79
MAPLUN = ****** GX 4-82
MVDAT 000126 RG #7-202 9-246
M$$MGE = 000000 6-162 7-206 7-210
M.USE 000006 *5-137 *9-261
NC.FM1 = 000001 6-171
N$$OPT = 000020 5-123
N.RDEC 000010 6-168
N.RIDC 000032 6-168 6-182
N.RQDL 000060 6-181
N.RQL = 000110 6-182
N.SDS1 000040 6-181
REMULA = ****** GX 5-131 9-262
RLSDBK = ****** GX 5-128
TLACHK = ****** GX 9-235
T.NAM = ****** GX 6-175 6-176
UISAR6 = 177654 7-210
USRACC = ****** GX 9-249
USRCON = ****** GX 5-126
WI.RDV = ****** GX 4-77
WI.WRV = ****** GX 4-77
WS.EST = 000002 9-256
W.CTL 000000 *4-77
W.INTQ 000034 *4-89 4-90 *4-90
W.LLA 000010 *9-244
W.MBOX 000016 *4-83 *4-84 5-136 9-234 9-260
W.PIO 000014 *4-91 5-130 *9-257
NSCON CREATED BY MACRO ON 13-OCT-79 AT 10:20 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
W.RCVQ 000026 *4-87 4-88 *4-88
W.SEGZ 000012 *9-245
W.SNDQ 000022 *4-85 4-86 *4-86
W.STAT 000004 *9-256
W.TASK 000002 *4-78
W.ULA 000011 5-117 9-239
$CONQI 000000 RG #4-75
$C5TA = ****** GX 6-177 6-179
NSCON CREATED BY MACRO ON 13-OCT-79 AT 10:20 PAGE 3
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 4-79 4-82 5-114 5-118 5-124 5-126 5-128 5-131 6-177 6-179
9-233 9-235 9-246 9-249 9-254 9-262 9-265
CALLR #4-94 #5-133 #9-258 #9-268
CCBDF$ #3-42 3-43
CNBDF$ #3-50 #3-52
CRBDF$ #3-50 3-51
HWDDF$ #6-162 6-162 #7-206 7-206 #7-210 7-210
LLWDF$ #3-46 #3-47
MAP #3-42 #6-162 #7-206
MBXDF$ #3-46 #3-48
NSPSY$ #3-42 #3-44
NSSYM$ #3-50 3-53
RECMAP #3-42 7-210
RESRG #3-42 5-129 5-135 6-180 9-250 9-253 9-266
RETURN 5-138 7-211 9-270
SAVRG #3-42 5-115 6-173 9-247
SOB #6-170 #6-184 #7-209
SWSTK$ #5-114 #9-233
$MVTBF #3-42