Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/snifnd.list
There are no other files named snifnd.list in the archive.
SNIFND MACRO M1110 13-OCT-79 13:06 PAGE 3
1 .TITLE SNIFND
2 .IDENT /X01/
3 ;
4 ; COPYRIGHT (C) 1977
5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
6 ;
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
9 ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE
10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY
11 ; OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE
12 ; AVAILABLE TO ANY OTHER PERSON EXECPT FOR USE ON SUCH SYSTEM AND
13 ; TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND
14 ; OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
15 ;
16 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
17 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
18 ; EQUIPMENT CORPORATION.
19 ;
20 ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
21 ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
22 ;
23 ;
24 ; VERSION X01
25 ;
26 ; AUTHOR:
27 ; J.A. SCHRIESHEIM 27-OCT-77
28 ;
29 ; MODIFIED BY:
30 ;
31 ;
SNIFND MACRO M1110 13-OCT-79 13:06 PAGE 4
33 ; EXTERNAL MACRO DEFINITIONS
34 ;
35 .MCALL CCBDF$,PDVDF$,SLTDF$,NSDDB$
36 000000 CCBDF$ ; DEFINE THE CCB OFFSETS
37 000000 PDVDF$ ; DEFINE THE PDV OFFSETS
38 000000 SLTDF$ ; DEFINE THE SLT OFFSETS
39 000000 NSDDB$ ; DEFINE THE NSP OFFSETS
40 ;
41 ; LOCAL SYMBOL DEFINITIONS
42 ;
43 ;
44 ; PARAMETER BLOCK OFFSET DEFINITIONS
45 ;
46 000040 .ASECT
47 000000 .=0
48 000000 TNAM: .BLKW 1 ; RAD50 PROCESS NAME
49 000002 TCTL: .BLKB 1 ; CONTROLLER NUMBER
50 000003 TLIN: .BLKB 1 ; LINE NUMBER ON CONTROLLER
51 000004 TSTA: .BLKB 1 ; MULTIPOINT STATION ADDRESS
52 000005 .BLKB 1 ; RESERVED
53 000006 TFLG: .BLKB 1 ; PROCESS FLAGS
54 000007 TPDV: .BLKB 1 ; PROCESS INDEX
55 000010 TSLN: .BLKW 1 ; SYSTEM LINE NUMBER AND LOGICAL STATION
56 000012 TSLF: .BLKW 1 ; SYSTEM LINE TABLE FLAGS
57 000014 TDDM: .BLKB 1 ; DDM PROCESS INDEX
58 000015 TDLC: .BLKB 1 ; DLC PROCESS INDEX
59 000016 TASN: .BLKW 1 ; CURRENT ASSIGNMENT (PDV & CHAN)
60 000000 .PSECT
61 ;
62 ; FEATURES MASK BIT DEFINITION
63 ;
64 020000 FE.CEX=20000 ; COMM EXEC IS LOADED
65 ;
66 ; LOCAL DATA
67 ;
68 000000 LINBLK::.BLKW 8. ; PARAMETER BLOCK
69
70 000020 055210 LOCNAM: .RAD50 /NSP/ ; LOCAL PROCESS NAME
71
72 ;
73 ; TABLE OF LINE PROCESS NAMES:
74 ;
75 000022 015600 LINTBL: .RAD50 /DP/ ; OFFSET 0
76 000024 016110 .RAD50 /DU/ ; 2
77 000026 015340 .RAD50 /DL/ ; 4
78 000030 015650 .RAD50 /DQ/ ; 6
79 000032 014450 .RAD50 /DA/ ; 8
80 000034 016130 .RAD50 /DUP/ ; 10
81 000036 015413 .RAD50 /DMC/ ; 12
82 000040 015366 .RAD50 /DLV/ ; 14
83 000042 015460 .RAD50 /DN/ ; 16
84 000044 043240 .RAD50 /KL/ ; 18
85 000046 016045 .RAD50 /DTE/ ; 20
86 000050 016160 .RAD50 /DV/ ; 22
87 000052 016420 .RAD50 /DZ/ ; 24
88 000054 016136 .RAD50 /DUV/ ; 26
89 000056 042560 .RAD50 /KDP/ ; 28
SNIFND MACRO M1110 13-OCT-79 13:06 PAGE 4-1
90 000060 042572 .RAD50 /KDZ/ ; 30
SNIFND MACRO M1110 13-OCT-79 13:06 PAGE 5
92 ;+
93 ; **-FNDLN-FIND A LINE-ID IN THE SYSTEM DATA BASES
94 ;
95 ; INPUTS:
96 ;
97 ; R0 = ADDRESS OF NCU REQUEST BUFFER WITH LINE-ID OF THE FOLLOWING FORM:
98 ; BYTE 0 = ID FORMAT (ONLY TYPE 1 IS SUPPORTED)
99 ; BYTE 1 = LINE PROCESS NAME (INDEX INTO LINTBL)
100 ; BYTE 2 = CONTROLLER NUMBER
101 ; BYTE 3 = LINE NUMBER
102 ; BYTE 4 = STATION NUMBER
103 ;
104 ; OUTPUTS:
105 ; R0 = POINTER TO NEXT FREE BYTE IN BUFFER
106 ; C-BIT CLEAR:
107 ; LINBLK = ADDRESS OF 8 WORD PARAMETER BLOCK FORMATTED AS FOLLOWS:
108 ; WD 0 RAD50 PROCESS NAME
109 ; WD 1 LINE NUMBER CONTROLLER NUMBER
110 ; WD 2 RESERVED STATION NUMEBR
111 ; WD 3 PDV INDEX PDV FLAGS
112 ;
113 ; FOR A DDM:
114 ; WD 4 STATION SYSTEM LINE
115 ; WD 5 SYSTEM LINE TABLE FLAGS
116 ; WD 6 DLC INDEX DDM INDEX
117 ; WD 7 PDV ASSIGNED CHANNEL ASSIGNED
118 ;
119 ; C-BIT SET:
120 ; LINE-ID CANNOT BE FOUND IN THE SYSTEM
121 ; HMSG FILLED IN TO INDICATE INVALID LINE-ID
122 ;-
123
124 000062 FNDLN::
125
126 000062 010546 MOV R5,-(SP) ; SAVE R5
127 000064 012705 000000' MOV #LINBLK,R5 ; POINT TO LINE DATA BUFFER
128 000070 010504 MOV R5,R4 ; MAKE WORKING COPY
129 000072 012767 000370 000000G MOV #<377&-8.>,HMSG ; ASSUME INVALID LINE ID
130 000100 122027 000001 CMPB (R0)+,#1 ; STANDARD FORMAT ?
131 000104 001020 BNE 10$ ; IF NE, NO - CAN'T DO IT
132
133 000106 112001 MOVB (R0)+,R1 ; GET INDEX VALUE
134 000110 016124 000022' MOV LINTBL(R1),(R4)+; PLACE IN LINBLK BUFFER
135 000114 112024 MOVB (R0)+,(R4)+ ; GET CONTROLLER NUMBER
136 000116 112024 MOVB (R0)+,(R4)+ ; GET LINE NUMBER
137 000120 112024 MOVB (R0)+,(R4)+ ; GET STATION NUMBER
138 000122 CALL FNDLA ; FIND LINE IN SYSTEM DATA BASE
139 000126 032765 040000 000012 BIT #LF.RDY,TSLF(R5); IS LINE READY ?
140 000134 001404 BEQ 10$ ; IF EQ, NO - INVALID LINE ID
141 000136 032765 020000 000012 BIT #LF.UNL,TSLF(R5); IS LINE MARKED FOR UNLOADING ?
142 000144 001401 BEQ 20$ ; IF EQ, NO - OKAY
143
144 000146 000261 10$: SEC ; INVALID LINE - ID
145 000150 012605 20$: MOV (SP)+,R5 ; RESTORE R5
146 000152 RETURN
SNIFND MACRO M1110 13-OCT-79 13:06 PAGE 6
148 ;+
149 ; **-FNDLOC-FIND NSP PROCESS IN SYSTEM DATA BASES
150 ;
151 ; INPUTS:
152 ; R0 = POINTER TO BUFFER TO RECEIVE LOCAL NODE NAME
153 ;
154 ; OUTPUTS:
155 ; IF SUCCESSFUL:
156 ; LINBLK = 8 WORD PARAMETER BLOCK
157 ; R0 = NEXT FREE BYTE IN BUFFER PAST NODE NAME
158 ; R4 = NSP STATISTICS DESCRIPTOR BLOCK ADDRESS
159 ;
160 ; FOR FAILURE:
161 ; ERROR CODE SET IN HMSG TO SEND AS RETURN
162 ; C-BIT ERROR INDICATOR
163 ;-
164
165 000154 FNDLOC::
166
167 000154 010546 MOV R5,-(SP) ; SAVE R5
168 000156 012767 000362 000000G MOV #<377&-14.>,HMSG ; ASSUME CONFIG DATA BASE ERROR
169 000164 012705 000000' MOV #LINBLK,R5 ; POINT TO PARAMETER BLOCK
170 000170 016765 177624 000000 MOV LOCNAM,TNAM(R5) ; MOVE "NSP" INTO BLOCK AS PROCESS NAME
171 000176 005065 000002 CLR 2(R5) ; INITIALIZE PARAMETER BLOCK
172 000202 005065 000004 CLR 4(R5) ; ...
173
174 000206 CALL FNDLA ; FIND PROCESS
175 000212 103434 BCS 20$ ; IF CS, COULDN'T FIND IT
176 000214 032765 000004 000006 BIT #ZF.LLC,TFLG(R5); IS THIS AN LLC ?
177 000222 001427 BEQ 10$ ; IF EQ, NO - ERROR
178 000224 032765 000001 000006 BIT #ZF.DDM,TFLG(R5); IS THIS A DDM ?
179 000232 001023 BNE 10$ ; IF NE, NO - ERROR
180
181 000234 116704 177547 MOVB TPDV+LINBLK,R4 ; GET PDV INDEX
182 000240 016404 000000G MOV $PDVTB(R4),R4 ; INDEX OFF OF PDV TABLE
183 000244 016404 000014 MOV Z.DAT(R4),R4 ; POINT TO NSP DATA BASE
184 000250 016403 000034 MOV N$NOD+2(R4),R3 ; POINT TO NODE NAME DESCRIPTOR
185 000254 016404 000044 MOV N$STS+2(R4),R4 ; POINT TO STATISTICS DESCRIPTOR
186 000260 116301 000005 MOVB D$LNG(R3),R1 ; GET LENGTH OF NODE NAME
187 000264 110120 MOVB R1,(R0)+ ; SET LENGTH IN BUFFER
188 000266 062703 000006 ADD #D$NAM,R3 ; POINT TO START OF NAME STRING
189 000272 112320 5$: MOVB (R3)+,(R0)+ ; MOVE NODE NAME INTO BUFFER
190 000274 005301 DEC R1 ; KEEP COUNT OF CHARACTERS
191 000276 001375 BNE 5$ ; ...
192 000300 000401 BR 20$ ; RETURN
193
194 000302 000261 10$: SEC ; SET C FOR ERRORS
195 000304 012605 20$: MOV (SP)+,R5 ; RESTORE R5
196 000306 RETURN
SNIFND MACRO M1110 13-OCT-79 13:06 PAGE 7
198 ;+
199 ; **-FNDLA-FIND A LINE-ID USING A PARSED ARGUMENT BLOCK
200 ;
201 ; INPUTS:
202 ;
203 ; R5 = ADDRESS OF AN 8 WORD PARAMETER BLOCK
204 ;
205 ; OUTPUTS:
206 ;
207 ; C-BIT CLEAR:
208 ; R5 = ADDRESS OF THE 8 WORD PARAMETER BLOCK FORMATTED AS FOLLOWS:
209 ; WD 0 RAD50 PROCESS NAME
210 ; WD 1 LINE NUMBER CONTROLLER NUMBER
211 ; WD 2 RESERVED STATION NUMEBR
212 ; WD 3 PDV INDEX PDV FLAGS
213 ;
214 ; FOR A DDM:
215 ;
216 ; WD 4 STATION SYSTEM LINE
217 ; WD 5 SYSTEM LINE TABLE FLAGS
218 ; WD 6 DLC INDEX DDM INDEX
219 ; WD 7 PDV ASSIGNED CHANNEL ASSIGNED
220 ;
221 ; FOR AN LLC OR A DLC:
222 ;
223 ; WD 4 - WD 7 UNDEFINED
224 ;
225 ; C-BIT SET:
226 ; LINE-ID CANNOT BE FOUND IN THE SYSTEM
227 ;
228 ; REGISTERS MODIFIED:
229 ;
230 ; NONE
231 ;
232 ;-
233
234 000310 FNDLA::
235 000310 010046 MOV R0,-(SP) ; SAVE R0
236 000312 016502 000000 MOV TNAM(R5),R2 ; GET RAD50 PROCESS NAME
237 000316 CALL $PDVAD ; FIND THE PROCESS INDEX
238 000322 103465 BCS 100$ ; IF CS, NO PROCESS OF THIS NAME- ERROR
239 000324 110265 000007 MOVB R2,TPDV(R5) ; STORE RESULTANT PDV INDEX
240 000330 116100 000011 MOVB Z.FLG(R1),R0 ; GET PDV FLAGS FOR PROCESS TYPE
241 000334 110065 000006 MOVB R0,TFLG(R5) ; STORE FLAGS IN OUTPUT AREA
242 000340 132700 000004 BITB #ZF.LLC,R0 ; IS THIS PROCESS AN LLC ?
243 000344 001053 BNE 90$ ; IF NE, YES - ALL DONE WITH THE SEARCH
244 000346 132700 000001 BITB #ZF.DDM,R0 ; IS IT A DDM ?
245 000352 001443 BEQ 80$ ; IF EQ, NO - ALL DONE WITH THE SEARCH
246
247 ;
248 ; LOOK THROUGH THE SYSTEM LINE TABLE TO FIND AN ENTRY WHICH MATCHES THE
249 ; SPECIFIED VALUES FOR DDM PROCESS INDEX, CONTROLLER NUMBER, AND
250 ; LINE NUMBER OF THE CONTROLLER.
251 ; EVENTUALLY, THE DLC LINE TABLE WILL BE SEARCHED TO FIND THE LOGICAL
252 ; STATION ADDRESS WHICH CORRESPONDS TO THE SPECIFIED STATION ADDRESS.
253 ;
254 000354 016700 000000G MOV $SLTNM,R0 ; GET NUMBER OF SYSTEM LINES
SNIFND MACRO M1110 13-OCT-79 13:06 PAGE 7-1
255 000360 016701 000000G MOV $SLTTA,R1 ; GET ADDRESS OF SYSTEM LINE TABLE
256
257
258 000364 126165 000002 000007 10$: CMPB L.DDM(R1),TPDV(R5) ; DOES THIS PROCESS MATCH ?
259 000372 001010 BNE 20$ ; IF NE, NO - KEEP LOOKING
260 000374 126165 000012 000002 CMPB L.CTL(R1),TCTL(R5) ; DOES THIS CONTROLLER NUMBER MATCH ?
261 000402 001004 BNE 20$ ; IF NE, NO - KEEP LOOKING
262 000404 126165 000013 000003 CMPB L.UNT(R1),TLIN(R5) ;DOES THIS UNIT NUMBER MATCH ?
263 000412 001406 BEQ 30$ ; IF EQ, FOUND THE CORRECT SLN
264 000414 062701 000014 20$: ADD #L.LEN,R1 ; COMPUTE ADDRESS OF NEXT SLT ENTRY
265 000420 SOB R0,10$ ; LOOK THROUGH ALL SYSTEM LINES
266 000424 000261 SEC ; NO LINE-ID TO BE FOUND
267 000426 000423 BR 100$ ; EXIT WITH ERROR
268
269 000430 016165 000000 000012 30$: MOV L.FLG(R1),TSLF(R5) ; STORE SYSTEM LINE FLAGS IN OUTPUT AREA
270 000436 016165 000002 000014 MOV L.DDM(R1),TDDM(R5) ; STORE DDM & DLC PDV INDECIES
271 000444 016702 000000G MOV $SLTNM,R2 ; COMPUTE THE SYSTEM LINE NUMBER
272 000450 160002 SUB R0,R2 ; ...
273 000452 110265 000010 MOVB R2,TSLN(R5) ; AND STORE IT IN THE OUTPUT BLOCK
274 ;
275 ; FOR NOW ANY STATION WILL BE VALID
276 ;
277 000456 105065 000011 CLRB TSLN+1(R5) ; SET LOGICAL STATION ADDRESS
278
279 000462 006302 80$: ASL R2 ; FIND CURRENT PDV & CHANNEL ASSIGNMENT
280 000464 066702 000000G ADD $LLCTA,R2 ; COMPUTE THE ADDRESS IN THE REVERSE CHANNEL
281 000470 011265 000016 MOV (R2),TASN(R5) ; MAPPING TABLE AND STORE THE CONTENTS
282 000474 000241 90$: CLC ; INDICATE SUCCESS
283 000476 012600 100$: MOV (SP)+,R0 ; RESTORE R0
284 000500 RETURN ; RETURN TO CALLER
SNIFND MACRO M1110 13-OCT-79 13:06 PAGE 8
286 ;+
287 ; **-$PDVAD-FIND PROCESS NAME AND INDEX
288 ;
289 ; INPUTS:
290 ;
291 ; R2 = RAD50 PROCESS NAME TO FIND
292 ;
293 ; OUTPUTS:
294 ;
295 ; R1 = ADDRESS OF PDV
296 ; R2 = PROCESS INDEX
297 ;
298 ; REGISTERS MODIFIED:
299 ;
300 ; R0
301 ;-
302
303 000502 $PDVAD::
304
305 000502 032767 020000 000000G BIT #FE.CEX,$FMASK ; IS COMM EXEC LOADED?
306 000510 001413 BEQ 15$ ; IF EQ, NO
307 000512 010246 MOV R2,-(SP) ; SAVE PROCESS NAME
308 000514 016700 000000G MOV $PDVNM,R0 ; GET NUMBER OF PDV ENTRIES
309 000520 016702 000000G MOV $PDVTA,R2 ; GET ADDRESS OF PDV TABLE
310 000524 012201 10$: MOV (R2)+,R1 ; GET ADDRESS OF A PDV
311 000526 026116 000006 CMP Z.NAM(R1),(SP) ; IS THIS THE RIGHT ONE ?
312 000532 001404 BEQ 20$ ; IF EQ, YES
313 000534 SOB R0,10$ ; DON'T LOOK THROUGH TO MANY
314 000540 000261 15$: SEC ; INDICATE ERROR
315 000542 000403 BR 30$ ; EXIT IF ITS NOT FOUND
316
317 000544 166702 000000G 20$: SUB $PDVTA,R2 ; COMPUTE THE PDV INDEX
318 000550 005742 TST -(R2) ; COMPENSATE FOR PREVIOUS POP (CLEAR C-BIT)
319 000552 011626 30$: MOV (SP),(SP)+ ; CLEAN OFF THE STACK
320 000554 RETURN ; RETURN TO CALLER
321
322
323 000001 .END
SNIFND MACRO M1110 13-OCT-79 13:06 PAGE 8-1
SYMBOL TABLE
A$$CHK= 000000 C.STA 000007 FS.XOF= 010000 N$TMP 000012 S$RES 000014
A$$CPS= 000000 C.STS 000012 FS.XON= 007000 N$VER 000036 S$SEC 000000
A$$PRI= 000000 DF$ADJ= 020000 F$$LVL= 000001 N$$LDV= 000001 S$SNI 000016
A$$TRP= 000000 DF$DWN= 001000 G$$TPP= 000000 N$$MOV= 000010 S$UMR 000004
CB.CCB= 000002 DF$FRE= 070000 G$$TSS= 000000 N$$SYS= 000001 S$UMS 000002
CB.RDB= 000004 DF$LCL= 040000 G$$TTK= 000000 N$$USR= 000001 S$UNI 000020
CE.ABO= 100362 DF$LNK= 004000 G$$WRD= 000000 PF$EIP= 000100 S$$WRG= 000000
CE.DIS= 100366 DF$REM= 010000 HMSG = ****** GX PF$ENB= 000200 S$$YSZ= 007600
CE.ERR= 100370 DF$RES= 002000 I$$RAR= 000000 PF$OFF= 000000 TASN 000016
CE.MOP= 100372 DF$TMP= 100000 I$$RDN= 000000 PF$RLI= 000002 TCTL 000002
CE.NTE= 100361 D$CHN 000002 K$$CNT= 177546 PF$RRI= 000004 TDDM 000014
CE.RTE= 100376 D$FLG 000000 K$$CSR= 177546 PF$RVE= 000001 TDLC 000015
CE.SRC= 100364 D$LEN 000014 K$$LDC= 000000 PF$RVR= 000040 TFLG 000006
CE.TMO= 100374 D$LNG 000005 K$$TPS= 000074 PF$SLI= 000002 TLIN 000003
CF.EOM= 000004 D$NAM 000006 LD$LP = 000000 PF$SRI= 000004 TNAM 000000
CF.HDR= 000020 D$USE 000004 LF.ACT= 100000 PF$SRT= 000001 TPDV 000007
CF.LB = 100000 D$$BUG= 177514 LF.BWT= 000007 PF$STA= 000003 TSLF 000012
CF.SOM= 000010 D$$ISK= 000000 LF.DLO= 000040 PF$SUB= 000010 TSLN 000010
CF.SYN= 000040 D$$L11= 000001 LF.ENA= 002000 PF$UP = 000001 TSTA 000004
CF.TRN= 000100 D$$YNC= 000000 LF.MDC= 000100 PS$NTI= 000003 T$$KMG= 000000
CS.ABO= 000100 D$$YNM= 000000 LF.MFL= 004000 PS$OFF= 000000 T$$MIN= 000000
CS.BUF= 000200 E$$XPR= 000000 LF.MTP= 000020 PS$STR= 000001 VF$RCV= 100000
CS.DCR= 000400 FC.CCP= 000020 LF.RDY= 040000 PS$UP = 000005 VF$XMT= 040000
CS.DEV= 000002 FC.CTL= 000006 LF.REA= 010000 PS$VER= 000004 V$FLG 000000
CS.DIS= 000040 FC.KCP= 000016 LF.TIM= 000010 PS$WT = 000002 V$LEN 000022
CS.ENB= 000020 FC.KIL= 000004 LF.UNL= 020000 P$CHN 000004 V$RCV 000002
CS.EOF= 000001 FC.RCE= 000002 LINBLK 000000RG P$CNT 000005 V$XMT 000012
CS.ERR= 100000 FC.RCP= 000014 LINTBL 000022R P$FRQ 000012 V$$CTR= 001000
CS.HFE= 002000 FC.TIM= 000010 LOCNAM 000020R P$FSP 000013 X$$DBT= 000000
CS.LST= 040000 FC.XCP= 000012 L$$ASG= 000000 P$LCD 000002 ZF.DDM= 000001
CS.MTL= 004000 FC.XME= 000000 L$$DRV= 000000 P$LEN 000014 ZF.DLC= 000002
CS.RNG= 000010 FE.CEX= 020000 L$$P11= 000001 P$LST 000000 ZF.KMX= 000020
CS.ROV= 000004 FNDLA 000310RG L$$11R= 000000 P$NOD 000010 ZF.LLC= 000004
CS.RSN= 010000 FNDLN 000062RG L.CTL 000012 P$PFQ 000006 ZF.LMC= 000100
CS.SUC= 000001 FNDLOC 000154RG L.DDM 000002 P$TIM 000003 ZF.MFL= 000010
CS.TMO= 020000 FS.AST= 000000 L.DDS 000004 P$$P45= 000000 ZF.MUX= 000040
C$$CKP= 000000 FS.CIB= 002000 L.DLC 000003 P$$WRD= 000000 ZF.TIM= 000200
C$$ORE= 000400 FS.CRA= 001000 L.DLM 000006 Q$$OPT= 000010 Z.DAT 000014
C$$RSH= 177564 FS.DIS= 013000 L.DLS 000010 RF.CLN= 000000 Z.DSP 000000
C.BID 000003 FS.DVC= 001000 L.FLG 000000 RF.CTL= 000003 Z.FLG 000011
C.BUF 000014 FS.ENB= 012000 L.LEN = 000014 RF.TIM= 177400 Z.LEN = 000014
C.BUF1 000014 FS.GET= 006000 L.UNT 000013 RF.TM0= 000400 Z.LLN 000010
C.BUF2 000024 FS.INI= 000000 M$$CRB= 000124 RF.WTD= 000020 Z.MAP 000016
C.CNT 000020 FS.KIL= 000000 M$$CRX= 000000 RF.WTM= 000030 Z.NAM 000006
C.CNT1 000020 FS.LTM= 001000 M$$FCS= 000000 RF.WTS= 000010 Z.PCB 000012
C.CNT2 000030 FS.MNT= 004000 M$$MGE= 000000 R$$DER= 000000 Z.SCH 000004
C.FLG 000022 FS.MSN= 014000 M$$OVR= 000000 R$$K11= 000001 $FMASK= ****** GX
C.FLG1 000022 FS.RNG= 011000 N$ACQ 000000 R$$SND= 000000 $LLCTA= ****** GX
C.FLG2 000032 FS.RTN= 001000 N$ICF 000006 R$$11M= 000000 $PDVAD 000502RG
C.FNC 000010 FS.SET= 005000 N$LNI 000010 S$EMR 000006 $PDVNM= ****** GX
C.LIN 000006 FS.STM= 000000 N$LVC 000022 S$FMT 000012 $PDVTA= ****** GX
C.LNK 000000 FS.STP= 002000 N$NOD 000032 S$LEN 000040 $PDVTB= ****** GX
C.MOD 000011 FS.STR= 001000 N$PLD 000026 S$LNK 000022 $SLTNM= ****** GX
C.NSP 000004 FS.TRM= 003000 N$STS 000042 S$MLK 000024 $SLTTA= ****** GX
C.RSV 000002 FS.XKL= 002000 N$TCB 000004 S$NKS 000010
. ABS. 000046 000
SNIFND MACRO M1110 13-OCT-79 13:06 PAGE 8-2
SYMBOL TABLE
000556 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 8844 WORDS ( 35 PAGES)
DYNAMIC MEMORY: 10060 WORDS ( 38 PAGES)
ELAPSED TIME: 00:00:24
SNIFND,[135,34]SNIFND/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[135,10]SNIFND
SNIFND CREATED BY MACRO ON 13-OCT-79 AT 13:06 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
DF$ADJ = 020000 #4-39 4-39
DF$DWN = 001000 #4-39
DF$FRE = 070000 #4-39
DF$LCL = 040000 #4-39 4-39
DF$LNK = 004000 #4-39
DF$REM = 010000 #4-39 4-39
DF$RES = 002000 #4-39
DF$TMP = 100000 #4-39
D$CHN 000002 #4-39
D$FLG 000000 #4-39
D$LEN 000014 #4-39
D$LNG 000005 #4-39 6-186
D$NAM 000006 #4-39 6-188
D$USE 000004 #4-39
FE.CEX = 020000 #4-64 8-305
FNDLA 000310 RG 5-138 6-174 #7-234
FNDLN 000062 RG #5-124
FNDLOC 000154 RG #6-165
HMSG = ****** GX *5-129 *6-168
I$$AS = ****** 4-37
LF.ACT = 100000 #4-38
LF.BWT = 000007 #4-38
LF.DLO = 000040 #4-38
LF.ENA = 002000 #4-38
LF.MDC = 000100 #4-38
LF.MFL = 004000 #4-38
LF.MTP = 000020 #4-38
LF.RDY = 040000 #4-38 5-139
LF.REA = 010000 #4-38
LF.TIM = 000010 #4-38
LF.UNL = 020000 #4-38 5-141
LINBLK 000000 RG #4-68 5-127 6-169 6-181
LINTBL 000022 R #4-75 5-134
LOCNAM 000020 R #4-70 6-170
L.CTL 000012 #4-38 7-260
L.DDM 000002 #4-38 7-258 7-270
L.DDS 000004 #4-38
L.DLC 000003 #4-38
L.DLM 000006 #4-38
L.DLS 000010 #4-38
L.FLG 000000 #4-38 7-269
L.LEN = 000014 #4-38 7-264
L.UNT 000013 #4-38 7-262
N$ACQ 000000 #4-39
N$ICF 000006 #4-39
N$LNI 000010 #4-39
N$LVC 000022 #4-39
N$NOD 000032 #4-39 6-184
N$PLD 000026 #4-39
N$STS 000042 #4-39 6-185
N$TCB 000004 #4-39
N$TMP 000012 #4-39
SNIFND CREATED BY MACRO ON 13-OCT-79 AT 13:06 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
N$VER 000036 #4-39
PF$EIP = 000100 #4-39
PF$ENB = 000200 #4-39
PF$OFF = 000000 #4-39
PF$RLI = 000002 #4-39
PF$RRI = 000004 #4-39
PF$RVE = 000001 #4-39
PF$RVR = 000040 #4-39
PF$SLI = 000002 #4-39
PF$SRI = 000004 #4-39
PF$SRT = 000001 #4-39
PF$STA = 000003 #4-39
PF$SUB = 000010 #4-39
PF$UP = 000001 #4-39
PS$NTI = 000003 #4-39
PS$OFF = 000000 #4-39
PS$STR = 000001 #4-39
PS$UP = 000005 #4-39
PS$VER = 000004 #4-39
PS$WT = 000002 #4-39
P$CHN 000004 #4-39
P$CNT 000005 #4-39
P$FRQ 000012 #4-39
P$FSP 000013 #4-39
P$LCD 000002 #4-39
P$LEN 000014 #4-39
P$LST 000000 #4-39
P$NOD 000010 #4-39
P$PFQ 000006 #4-39
P$TIM 000003 #4-39
RF.CLN = 000000 #4-39
RF.CTL = 000003 #4-39
RF.TIM = 177400 #4-39
RF.TM0 = 000400 #4-39
RF.WTD = 000020 #4-39
RF.WTM = 000030 #4-39
RF.WTS = 000010 #4-39
R$$11D = ****** 4-37
R$$11M = 000000 4-37
R$$11S = ****** 4-37
S$EMR 000006 #4-39
S$FMT 000012 #4-39
S$LEN 000040 #4-39
S$LNK 000022 #4-39
S$MLK 000024 #4-39
S$NKS 000010 #4-39
S$RES 000014 #4-39
S$SEC 000000 #4-39
S$SNI 000016 #4-39
S$UMR 000004 #4-39
S$UMS 000002 #4-39
S$UNI 000020 #4-39
SNIFND CREATED BY MACRO ON 13-OCT-79 AT 13:06 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
TASN 000016 #4-59 *7-281
TCTL 000002 #4-49 7-260
TDDM 000014 #4-57 *7-270
TDLC 000015 #4-58
TFLG 000006 #4-53 6-176 6-178 *7-241
TLIN 000003 #4-50 7-262
TNAM 000000 #4-48 *6-170 7-236
TPDV 000007 #4-54 6-181 *7-239 7-258
TSLF 000012 #4-56 5-139 5-141 *7-269
TSLN 000010 #4-55 *7-273 *7-277
TSTA 000004 #4-51
VF$RCV = 100000 #4-39
VF$XMT = 040000 #4-39
V$FLG 000000 #4-39
V$LEN 000022 #4-39
V$RCV 000002 #4-39
V$XMT 000012 #4-39
X$$MCB = ****** 4-37 4-37
ZF.DDM = 000001 #4-37 6-178 7-244
ZF.DLC = 000002 #4-37
ZF.KMX = 000020 #4-37
ZF.LLC = 000004 #4-37 6-176 7-242
ZF.LMC = 000100 #4-37
ZF.MFL = 000010 #4-37
ZF.MUX = 000040 #4-37
ZF.TIM = 000200 #4-37
Z.DAT 000014 #4-37 6-183
Z.DSP 000000 #4-37 4-37
Z.FLG 000011 #4-37 7-240
Z.LEN = 000014 #4-37
Z.LLN 000010 #4-37
Z.MAP 000016 #4-37
Z.NAM 000006 #4-37 8-311
Z.PCB 000012 #4-37
Z.SCH 000004 #4-37
$FMASK = ****** GX 8-305
$LLCTA = ****** GX 7-280
$PDVAD 000502 RG 7-237 #8-303
$PDVNM = ****** GX 8-308
$PDVTA = ****** GX 8-309 8-317
$PDVTB = ****** GX 6-182
$SLTNM = ****** GX 7-254 7-271
$SLTTA = ****** GX 7-255
SNIFND CREATED BY MACRO ON 13-OCT-79 AT 13:06 PAGE 4
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 5-138 6-174 7-237
CCBDF$ #4-35 4-36
NSDDB$ #4-35 4-39
PDVDF$ #4-35 4-37
RETURN 5-146 6-196 7-284 8-320
SLTDF$ #4-35 4-38
SOB #7-265 #8-313