Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/snisub.list
There are no other files named snisub.list in the archive.
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06
TABLE OF CONTENTS
5- 95 MOVTIM - MOVE ELAPSED TIME COUNTER INTO BUFFER
6- 122 INVALD - SET RETURN CODE AS INVALID REQUEST
7- 138 LOCCOU - SHOW/ZERO LOCAL COUNTERS
8- 171 ZERLOC - ZERO LOCAL COUNTERS
9- 199 SHOLOC - SHOW LOCAL COUNTERS
10- 236 LINCOU - SHOW/ZERO LINE COUNTERS
11- 286 DMCCOU - SHOW/ZERO DMC COUNTERS
12- 340 ZERDMC - RESET DMC COUNTERS
13- 372 SHODMC - SHOW DMC COUNTERS
14- 409 DDCCOU - SHOW/ZERO DDCMP LINE COUNTERS
15- 435 SHODDC - SHOW DDCMP STATION TABLE COUNTERS
16- 466 ZERDDC - ZERO COUNTERS FOR DDCMP LINE
17- 494 DACOU - SHOW/ZERO DA LINE COUNTERS
18- 529 LOCSTA - DISPLAY LOCAL NODE STATE
19- 565 LINSTA - DISPLAY LINE STATE
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 3
1 .TITLE SNISUB - SHOW AND ZERO COUNTERS
2 .IDENT /X01.2/
3 ;
4 ; COPYRIGHT (C) 1977
5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 01754
6 ;
7 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED
8 ; AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE
9 ; AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS
10 ; SOFTWARE OR ANY OTHER COPIES THEREOF MAY NOT BE PROVIDED
11 ; OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO
12 ; AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
13 ;
14 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
15 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY
16 ; DIGITAL EQUIPMENT CORPORATION.
17 ;
18 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
19 ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
20 ;
21 ; VERSION X01.2
22 ;
23 ; AUTHOR:
24 ; J.A. SCHRIESHEIM 27-OCT-77
25 ;
26 ; MODIFIED BY:
27 ; J.A. SCHRIESHEIM 22-DEC-77
28 ; ADDED LINE TIMEOUT AND SELECTION ERRORS
29 ;
30 ; J.A. SCHRIESHEIM 25-JAN-78
31 ; ADDED REMOTE NODE NAME TO "SHOW STATE LINE"
32 ;
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 4
34 ;
35 ; EXTERNAL MACRO DEFINITIONS:
36 ;
37 .MCALL CCBDF$,PDVDF$,SLTDF$,NSDDB$,DMCDF$,HWDDF$,DDCDF$,DADF$
38 .MCALL UCBDF$,HDRDF$,NSPVR$,CALLR
39 000000 CCBDF$ ; DEFINE THE CCB OFFSETS
40 000000 PDVDF$ ; DEFINE THE PDV OFFSETS
41 000000 SLTDF$ ; DEFINE THE SLT OFFSETS
42 000000 NSDDB$ ; BRING IN DDB DEFINITIONS
43 000000 DMCDF$ ; DEFINE DMC TABLE OFFSETS
44 000000 DADF$ ; DEFINE DA TABLE OFFSETS
45 000000 DDCDF$ ; DEFINE DDCMP OFFSETS
46 000000 NSPVR$ ; DEFINE VERSION NUMBERS
47 000000 HWDDF$ ; DEFINE HARDWARE DEFINITIONS
48 000000 UCBDF$ ; DEFINE UCB OFFSETS
49 000000 HDRDF$ ; DEFINE HEADER OFFSETS
50 ;
51 ; PARAMETER BLOCK OFFSET DEFINITIONS:
52 ;
53 000074 .ASECT
54 000000 .=0
55 000000 TNAM: .BLKW 1 ; RAD50 PROCESS NAME
56 000002 TCTL: .BLKB 1 ; CONTROLLER NUMBER
57 000003 TLIN: .BLKB 1 ; LINE NUMBER ON CONTROLLER
58 000004 TSTA: .BLKB 1 ; MULTIPOINT STATION ADDRESS
59 000005 .BLKB 1 ; RESERVED
60 000006 TFLG: .BLKB 1 ; PROCESS FLAGS
61 000007 TPDV: .BLKB 1 ; PROCESS INDEX
62 000010 TSLN: .BLKW 1 ; SYSTEM LINE NUMBER AND LOGICAL STATION
63 000012 TSLF: .BLKW 1 ; SYSTEM LINE TABLE FLAGS
64 000014 TDDM: .BLKB 1 ; DDM PROCESS INDEX
65 000015 TDLC: .BLKB 1 ; DLC PROCESS INDEX
66 000016 TASN: .BLKW 1 ; CURRENT ASSIGNMENT (PDV & CHAN)
67 000000 .PSECT
68
69 ;
70 ; OPERATION DESCRIPTOR WORD BIT DEFINITIONS:
71 ;
72 000001 NS.SHO=1 ; IF SET, SHOW FUNCTION
73 ; IF CLEAR, ZERO FUNCTION
74 000002 NS.COU=2 ; IF SET, COUNTS
75 ; IF CLEAR, STATE
76 000004 NS.LIN=4 ; IF SET, LINE
77 ; IF CLEAR, LOCAL
78 ;
79 ; CANNED MESSAGE FOR SHOW STATE LOCAL
80 ;
81 000000 000 LSMSG: .BYTE 0 ; NODE NUMBER (NOT SENT)
82 000001 000 .BYTE 0 ; NODE STATE (ALWAYS ON)
83 000002 000 .BYTE 0 ; OPERATOR LOGGING STATE
84 000003 000 .BYTE 0 ; MAINTENANCE LOGGING STATE
85 000004 000 .BYTE 0 ; DEFAULT HOST COUNT (NOT SENT)
86 000005 003 .BYTE RT$VER ; ROUTING VERSION NUMBER
87 000006 001 .BYTE RT$ECO ; ROUTING ECO
88 000007 000 .BYTE RT$REV ; REVISION NUMBER
89 000010 003 .BYTE CM$VER ; COMM VERSION
90 000011 001 .BYTE CM$ECO ; COMM ECO
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 4-1
91 000012 000 .BYTE CM$REV ; REVISION NUMBER
92 000013 LSMSGL=.-LSMSG ; LENGTH OF CANNED PART OF MESSAGE
93 .EVEN
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 5
MOVTIM - MOVE ELAPSED TIME COUNTER INTO BUFFER
95 .SBTTL MOVTIM - MOVE ELAPSED TIME COUNTER INTO BUFFER
96 ;+
97 ; **-MOVTIM-MOVE ELAPSED TIME COUNTER INTO BUFFER
98 ;
99 ; INPUTS:
100 ; R0 = BUFFER POINTER
101 ; R4 = POINTER TO TIME LAST ZEROED AS SECONDS/2 SINCE MIDNIGHT
102 ; CURTIM = CURRENT TIME IN SAME FORMAT
103 ;
104 ; OUTPUTS:
105 ; R0 = POINTS TO NEXT FREE BYTE IN BUFFER
106 ; R4 = POINTS TO NEXT WORD
107 ; ELAPSED TIME COUNTER MOVED INTO BUFFER
108 ;-
109
110 000014 MOVTIM:
111
112 000014 105020 CLRB (R0)+ ; SET COUNTER TYPE
113 000016 162467 000000G SUB (R4)+,CURTIM ; CALC ELAPSED TIME
114 000022 103004 BCC 10$ ; IF CC, VALID TIME COUNT
115 000024 062767 124300 000000G ADD #<24.*60.*30.>,CURTIM ; ELSE ADD IN A DAY
116 000032 100402 BMI 20$ ; IF MI, OVERFLOW - DON'T SHIFT
117 000034 006367 000000G 10$: ASL CURTIM ; CONVERT TIME INTO 1 SECOND INTERVALS
118 000040 116720 000000G 20$: MOVB CURTIM,(R0)+ ; MOVE IN LOW BYTE OF TIME
119 000044 116720 000001G MOVB CURTIM+1,(R0)+ ; SET HIGH BYTE
120 000050 RETURN
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 6
INVALD - SET RETURN CODE AS INVALID REQUEST
122 .SBTTL INVALD - SET RETURN CODE AS INVALID REQUEST
123 ;+
124 ; **-INVALD-SET RETURN CODE AS 'INVALID REQUEST'
125 ;
126 ; INPUTS:
127 ; NONE
128 ;
129 ; OUTPUTS:
130 ; HEADER MESSAGE (HMSG) FILLED IN WITH -1.
131 ;-
132
133 000052 INVALD::
134
135 000052 012767 000377 000000G MOV #<377&-1>,HMSG ; SET FAILURE CODE
136 000060 RETURN
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 7
LOCCOU - SHOW/ZERO LOCAL COUNTERS
138 .SBTTL LOCCOU - SHOW/ZERO LOCAL COUNTERS
139 ;+
140 ; **-LOCCOU-SHOW/ZERO THE LOCAL COUNTERS
141 ;
142 ; INPUTS:
143 ; R0 = POINTER TO DATA BUFFER
144 ; R5 = OPERATION DESCRIPTOR:
145 ; BIT = SET/CLEAR
146 ; NS.SHO = SHOW/ZERO
147 ; NS.COU = COUNTS/STATUS
148 ; NS.LIN = LINE/LOCAL
149 ;
150 ; OUTPUTS:
151 ;
152 ; NSP STATISTICS DESCRIPTOR ZEROED OR DISPLAYED.
153 ; IF ZEROED, CURRENT TIME SET IN S$SEC, AND
154 ; S$LNK MOVED INTO S$MLK AS HIGH WATER MARK.
155 ;-
156
157 000062 LOCCOU::
158
159 000062 CALL FNDLOC ; FIND NSP DATA BASE
160 000066 103410 BCS 99$ ; IF CS, ERROR, RETURN
161 000070 032705 000001 BIT #NS.SHO,R5 ; IS THIS A SHOW OPERATION ?
162 000074 001003 BNE 10$ ; IF NE, YES
163 000076 CALL ZERLOC ; ELSE, ZERO COUNTERS
164 000102 000402 BR 99$ ; AND RETURN
165
166 000104 10$: CALL SHOLOC ; SHOW COUNTS LOCAL
167
168 000110 99$: RETURN
169
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 8
ZERLOC - ZERO LOCAL COUNTERS
171 .SBTTL ZERLOC - ZERO LOCAL COUNTERS
172 ;+
173 ; **-ZERLOC-ZERO LOCAL COUNTERS
174 ;
175 ; ZEROES THE NSP STATISTICS DESCRIPTORS, SETS S$SEC TO CURRENT TIME,
176 ; AND RESETS THE HIGH WATER MARK IN S$MLK TO CURRENT VALUE OF S$LNK.
177 ;
178 ; INPUTS:
179 ; R4 = POINTER TO STATISTICS BLOCK
180 ; CURTIM = CURRENT TIME IN SECONDS/2 SINCE MIDNIGHT
181 ;
182 ; OUTPUTS:
183 ; BLOCK ZEROED / RESET
184 ;
185 ; R5 PRESERVED ACROSS CALL
186 ;-
187
188 000112 ZERLOC:
189
190 000112 016724 000000G MOV CURTIM,(R4)+ ; SET LAST ZEROED TIME TO NOW
191 000116 012701 000010 MOV #8.,R1 ; 8. COUNTERS TO CLEAR
192 000122 005024 10$: CLR (R4)+ ; CLEAR COUNTER
193 000124 005301 DEC R1 ; DEC LOOP COUNT
194 000126 001375 BNE 10$ ; IF NE, KEEP GOING
195 000130 011464 000002 MOV (R4),2(R4) ; SET LUT HIGH WATER MARK
196 000134 012767 000001 000000G MOV #<377&1>,HMSG ; SET SUCCESS WITH NO DATA TO SEND
197 000142 RETURN
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 9
SHOLOC - SHOW LOCAL COUNTERS
199 .SBTTL SHOLOC - SHOW LOCAL COUNTERS
200 ;+
201 ; **-SHOLOC-SHOW LOCAL COUNTERS
202 ;
203 ; MOVES THE NSP STATISTICS COUNTERS INTO A DATA MESSAGE TO BE SENT TO THE
204 ; REQUESTING TASK.
205 ;
206 ; INPUTS:
207 ; R0 = ADDRESS OF NEXT FREE BYTE IN BUFFER
208 ; R4 = POINTER TO STATISTICS BLOCK
209 ;
210 ; OUTPUTS:
211 ; NICE DATA MESSAGE BUILT
212 ; MSGL = SIZE OF MESSAGE TO SEND
213 ; HMSG = INDICATES SUCCESS, WITH 1 MESSAGE TO FOLLOW
214 ;-
215
216 000144 SHOLOC:
217
218 000144 CALL MOVTIM ; CALCULATE AND SET ELAPSED TIME
219 000150 005003 CLR R3 ; CLEAR COUNTER TYPE
220 000152 10$: CALL MOVCNT ; MOVE COUNTER FIELD
221 000156 020327 000012 CMP R3,#10. ; FINISHED YET?
222 000162 001373 BNE 10$ ; IF NE, NO
223 000164 162700 000001G SUB #BUFF+1,R0 ; CALC SIZE OF MESSAGE TO SEND
224 000170 010067 000000G MOV R0,MSGL ; SET SIZE OF MESSAGE
225 000174 012767 000401 000000G MOV #<1+<1*256.>>,HMSG ; SET SUCCESS, WITH ONE MESSAGE TO COME
226 000202 RETURN
227
228
229 000204 MOVCNT:
230 000204 005203 INC R3 ; INCREMENT FIELD NUMBER
231 000206 110320 MOVB R3,(R0)+ ; SET FIELD NUMBER
232 000210 112420 MOVB (R4)+,(R0)+ ; MOVE LOW BYTE OF COUNTER INTO BUFF
233 000212 112420 MOVB (R4)+,(R0)+ ; MOVE HIGH BYTE
234 000214 RETURN
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 10
LINCOU - SHOW/ZERO LINE COUNTERS
236 .SBTTL LINCOU - SHOW/ZERO LINE COUNTERS
237 ;+
238 ; **-LINCOU-SHOW/ZERO THE LINE COUNTERS
239 ;
240 ; INPUTS:
241 ; R0 = ADDRESS OF NEXT FREE BYTE IN BUFFER
242 ; LINBLK = 8. WORD PARAMETER BLOCK FROM FNDLN
243 ; R5 = OPERATION DESCRIPTOR FROM PARSE
244 ;
245 ; OUTPUTS:
246 ; LINE COUNTERS ZEROED OR DISPLAYED.
247 ;-
248
249 000216 LINCOU::
250
251 000216 CALL FNDLN ; FIND LINE ID IN SYSTEM TABLES
252 000222 103461 BCS 40$ ; IF CS, RETURN
253 000224 010046 MOV R0,-(SP) ; SAVE BUFFER POINTER
254 000226 116701 000010G MOVB TSLN+LINBLK,R1 ; GET LINE NUMBER
255 000232 012700 000014 MOV #L.LEN,R0 ; GET TABLE ENTRY LENGTH
256 000236 CALL $MUL ; CALC OFFSET INTO LINE TABLE
257 000242 062701 000000G ADD #$SLTTB,R1 ; POINT TO ENTRY FOR LINE
258 000246 016100 000010 MOV L.DLS(R1),R0 ; GET LINE TABLE VIRTURAL ADDRESS
259 000252 026727 000000G 015413 CMP TNAM+LINBLK,#^RDMC ; IS THIS A DMC ?
260 000260 001003 BNE 10$ ; IF EQ, NO
261 000262 CALL DMCCOU ; ELSE, ZERO/SHOW DMC COUNTERS
262 000266 000411 BR 30$ ; AND RETURN
263
264 000270 026727 000000G 014450 10$: CMP TNAM+LINBLK,#^RDA ; IS IT A DA ?
265 000276 001003 BNE 20$ ; IF NE, NO
266 000300 CALL DACOU ; ELSE DA COUNTERS
267 000304 000402 BR 30$ ; AND RETURN
268
269 000306 20$: CALL DDCCOU ; ELSE, MUST BE DDCMP
270
271 000312 012600 30$: MOV (SP)+,R0 ; RESTORE R0
272 000314 012767 000001 000000G MOV #<377&1>,HMSG ; ASSUME NO MESSAGES TO FOLLOW
273 000322 032705 000001 BIT #NS.SHO,R5 ; IS THIS A SHOW FUNCTION ?
274 000326 001417 BEQ 40$ ; IF EQ, NO - FINISHED
275 000330 CALL MOVTIM ; MOVE TIME INTO NICE MESSAGE
276 000334 005003 CLR R3 ; INITIALIZE COUNTER NUMBER
277 000336 35$: CALL MOVCNT ; MOVE COUNTER INTO NICE MESSAGE
278 000342 020327 000006 CMP R3,#6 ; HAVE WE DONE 6 YET ?
279 000346 001373 BNE 35$ ; IF NE, NO
280 000350 162700 000001G SUB #BUFF+1,R0 ; CALCULATE MESSAGE LENGTH
281 000354 010067 000000G MOV R0,MSGL ; SET MESSAGE LENGTH FOR SEND
282 000360 012767 000401 000000G MOV #<1+<256.*1>>,HMSG ; SET SUCCESS CODE, WITH ONE MESSAGE
283 ; TO FOLLOW
284 000366 40$: RETURN
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 11
DMCCOU - SHOW/ZERO DMC COUNTERS
286 .SBTTL DMCCOU - SHOW/ZERO DMC COUNTERS
287 ;+
288 ; **-DMCCOU-SHOW/ZERO DMC COUNTERS
289 ;
290 ; PRINTS THE COUNTERS FROM THE LINE TABLE, OR MOVES THE COUNTERS
291 ; FROM THE DMC BASE TABLE INTO THE LINE TABLE AND RE-SETS THE TIME,
292 ; AND BLOCK COUNTS.
293 ;
294 ; INPUTS:
295 ; R0 = LINE TABLE ADDRESS
296 ; R5 = OPERATION DESCRIPTOR WORD FROM PARSE
297 ;
298 ; OUTPUTS:
299 ; COUNTERS DISPLAYED OR ZEROED
300 ;-
301
302 000370 DMCCOU:
303
304 000370 012702 000000G MOV #BUFF1,R2 ; POINT TO BUFFER FOR COUNTERS
305 000374 010204 MOV R2,R4 ; KEEP A COPY
306 000376 016022 000052 MOV D.TLZ(R0),(R2)+ ; COPY TIME LAST ZEROED
307 000402 016022 000056 MOV D.RCV(R0),(R2)+ ; COPY BLOCKS RECV'D COUNT
308 000406 016022 000054 MOV D.XMT(R0),(R2)+ ; AND BLOCKS XMITTED
309 000412 010246 MOV R2,-(SP) ; SAVE POINTER TO COUNTER BUFFER
310 000414 016001 000032 MOV D.LVA(R0),R1 ; LOAD BASE TABLE VIRTUAL ADDRESS
311 000420 062701 000005 ADD #5,R1 ; POINT TO BASE+5 (COUNTERS)
312
313 .IF DF M$$MGE ; IF MAPPED
314 000424 CALL $SWSTK,10$ ; ENTER SYSTEM STATE
315 000430 016067 000030 172354 MOV D.LBIA(R0),KISAR6 ; MAP TO BASE TABLE
316 .ENDC
317
318 000436 010046 MOV R0,-(SP) ; FREE R0
319 000440 012700 000005 MOV #5,R0 ; MOVE REPEAT COUNT INTO R0
320 000444 112103 5$: MOVB (R1)+,R3 ; GET COUNTER AND SIGN EXTEND
321 000446 010322 MOV R3,(R2)+ ; MOVE INTO ARGUMENT BUFFER
322 000450 005300 DEC R0 ; LOOP
323 000452 001374 BNE 5$ ; ...
324 000454 012600 MOV (SP)+,R0 ; RESTORE R0
325
326 .IF DF M$$MGE
327 000456 RETURN
328 .ENDC
329
330 000460 012603 10$: MOV (SP)+,R3 ; RESTORE ARG BUFFER POINTER
331 000462 032705 000001 BIT #NS.SHO,R5 ; SHOW FUNCTION ?
332 000466 001003 BNE 20$ ; IF NE, YES
333 000470 CALL ZERDMC ; ELSE, ZERO COUNTERS
334 000474 000402 BR 30$ ; AND RETURN
335
336 000476 20$: CALL SHODMC ; SHOW COUNTERS
337
338 000502 30$: RETURN
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 12
ZERDMC - RESET DMC COUNTERS
340 .SBTTL ZERDMC - RESET DMC COUNTERS
341 ;+
342 ; **-ZERDMC-"ZERO" DMC COUNTERS
343 ;
344 ; THIS ROUTINE MOVES THE BASE TABLE COUNTERS INTO THE LINE TABLE, RESETS
345 ; THE TIME LAST ZEROED, AND CLEARS THE BLOCK COUNTS (D.RCV, D.XMT).
346 ;
347 ; INPUTS:
348 ; R0 = ADDRESS OF DMC LINE TABLE
349 ; R3 = BUFFER WITH COUNTERS TAKEN FROM BASE TABLE IN FORM:
350 ; .BYTE COUNTER,0
351 ; CURTIM = CURRENT TIME AS (SECONDS SINCE MIDNIGHT)/2
352 ;
353 ; OUTPUTS:
354 ; COUNTERS RESET
355 ;-
356
357 000504 ZERDMC:
358
359 000504 016760 000000G 000052 MOV CURTIM,D.TLZ(R0) ; RESET TIME LAST ZEROED
360 000512 005060 000054 CLR D.XMT(R0) ; ZERO XMITT BLOCK COUNT
361 000516 005060 000056 CLR D.RCV(R0) ; ZERO RECEIVE COUNT
362 000522 062700 000060 ADD #D.LREC,R0 ; POINT TO OLD ERROR COUNTERS
363
364 000526 012701 000005 MOV #5,R1 ; DO 5 TIMES
365 000532 112320 10$: MOVB (R3)+,(R0)+ ; RESET COUNTER
366 000534 105723 TSTB (R3)+ ; SKIP OVER NULL BYTE
367 000536 005301 DEC R1 ; LOOP
368 000540 001374 BNE 10$ ; ...
369
370 000542 RETURN
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 13
SHODMC - SHOW DMC COUNTERS
372 .SBTTL SHODMC - SHOW DMC COUNTERS
373 ;+
374 ; **-SHODMC-SHOW DMC COUNTERS
375 ;
376 ; CALCULATES THE DIFFERENCE BETWEEN BASE TABLE COUNTERS AND THE COPIES
377 ; KEEP IN THE LINE TABLE, FORMATTS THE MESSAGES AND PRINTS THEM.
378 ;
379 ; INPUTS:
380 ; R0 = LINE TABLE ADDRESS
381 ; R3 = COPY OF COUNTERS FROM BASE TABLE IN FORM:
382 ; .BYTE COUNTER,0
383 ; R4 = ADDRESS OF BUFFER WITH COUNTERS
384 ;
385 ; OUTPUTS:
386 ; MESSAGES PRINTED
387 ;-
388
389 000544 SHODMC:
390
391 000544 010346 MOV R3,-(SP) ; SAVE R3
392 000546 062700 000060 ADD #D.LREC,R0 ; POINT TO OLD COPY OF COUNTERS
393 000552 012746 000005 MOV #5,-(SP) ; DO 5 TIMES
394 000556 112002 10$: MOVB (R0)+,R2 ; GET OLD COUNTER FROM LINE TABLE
395 000560 160223 SUB R2,(R3)+ ; CALCULATE DIFFERENCE
396 000562 100002 BPL 20$ ; IF PL, VALID COUNT
397 000564 005463 177776 NEG -2(R3) ; ELSE, NEGATE (WRAP-AROUND)
398 000570 005316 20$: DEC (SP) ; LOOP
399 000572 001371 BNE 10$ ; ...
400 000574 005726 TST (SP)+ ; CLEAN OFF STACK
401
402 000576 012603 MOV (SP)+,R3 ; RESTORE POINTER TO DIFFERENCE TABLE
403 000600 066363 000004 000006 ADD 4(R3),6(R3) ; CALC RECV'D LINE ERRORS
404 000606 016363 000002 000004 MOV 2(R3),4(R3) ; MOVE RESOURCE ERROR COUNT
405 000614 016363 000006 000002 MOV 6(R3),2(R3) ; MOVE RESOURCE ERROR COUNT
406 000622 016363 000010 000006 MOV 10(R3),6(R3) ; MOVE TIMEOUT ERROR COUNT
407 000630 RETURN
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 14
DDCCOU - SHOW/ZERO DDCMP LINE COUNTERS
409 .SBTTL DDCCOU - SHOW/ZERO DDCMP LINE COUNTERS
410 ;+
411 ; **-DDCCOU-SHOW/ZERO DDCMP LINE COUNTERS
412 ;
413 ; PRINTS OR ZEROES THE COUNTERS FROM THE STATION TABLES.
414 ;
415 ; INPUTS:
416 ; R0 = LINE TABLE ADDRESS
417 ; R5 = OPERATION DESCRIPTOR WORD FROM PARSE
418 ;
419 ; OUTPUTS:
420 ; COUNTERS DISPLAYED OR ZEROED
421 ;-
422
423 000632 DDCCOU:
424
425 000632 016000 000014 MOV L.STAL(R0),R0 ; GET STATION TABLE ADDRESS
426 000636 032705 000001 BIT #NS.SHO,R5 ; IS THIS A SHOW OPERATION ?
427 000642 001403 BEQ 10$ ; IF EQ, NO
428 000644 CALL SHODDC ; ELSE, SHOW COUNTERS
429 000650 000402 BR 20$ ; AND RETURN
430
431 000652 10$: CALL ZERDDC ; ZERO COUNTERS
432
433 000656 20$: RETURN
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 15
SHODDC - SHOW DDCMP STATION TABLE COUNTERS
435 .SBTTL SHODDC - SHOW DDCMP STATION TABLE COUNTERS
436 ;+
437 ; **-SHODDC-SHOW DDCMP STATION TABLE COUNTERS
438 ;
439 ; GATHERS, FORMATS AND PRINTS THE ERROR COUNTS IN THE STATION TABLE.
440 ;
441 ; INPUTS:
442 ; R0 = STATION TABLE ADDRESS
443 ;
444 ; OUTPUTS:
445 ; COUNTERS PRINTED
446 ;-
447
448 000660 SHODDC:
449
450 000660 012701 000000G MOV #BUFF1,R1 ; POINT TO ARGUMENT BUFFER
451 000664 010104 MOV R1,R4 ; SAVE COPY
452 000666 016021 000064 MOV S.TIM(R0),(R1)+ ; GET TIME LAST ZEROED
453 000672 016021 000066 MOV S.RCV(R0),(R1)+ ; GET BLOCKS RECEIVED COUNT
454 000676 016021 000070 MOV S.XMT(R0),(R1)+ ; GET BLOCKS XMITTED COUNT
455 000702 116002 000055 MOVB S.XMTE(R0),R2 ; XMIT ERRORS
456 000706 010221 MOV R2,(R1)+ ; ...
457 000710 116002 000052 MOVB S.RCVE(R0),R2 ; GET RECEIVE ERRORS
458 000714 010221 MOV R2,(R1)+ ; ...
459 000716 116002 000054 MOVB S.RSTE(R0),R2 ; OTHER ERRORS
460 000722 010221 MOV R2,(R1)+ ; ...
461 000724 116002 000053 MOVB S.TMOE(R0),R2 ; GET TIMEOUT ERRORS
462 000730 010211 MOV R2,(R1) ; ...
463
464 000732 RETURN
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 16
ZERDDC - ZERO COUNTERS FOR DDCMP LINE
466 .SBTTL ZERDDC - ZERO COUNTERS FOR DDCMP LINE
467 ;+
468 ; **-ZERDDC-ZERO COUNTERS FOR DDCMP LINE
469 ;
470 ; ZEROES THE ERROR COUNTERS IN THE LINE STATION TABLE, AND RE-SETS THE
471 ; TIME-LAST-ZEROED WORD.
472 ;
473 ; INPUTS:
474 ; R0 = STATION TABLE ADDRESS
475 ; CURTIM = CURRENT TIME IN (SECONDS SINCE MIDNIGHT)/2
476 ;
477 ; OUTPUTS:
478 ; COUNTS ZEROED
479 ;-
480
481 000734 ZERDDC:
482
483 000734 016760 000000G 000064 MOV CURTIM,S.TIM(R0) ; SET TIME LAST ZEROED TO NOW
484 000742 005060 000066 CLR S.RCV(R0) ; CLEAR BLOCKS RECEIVED
485 000746 005060 000070 CLR S.XMT(R0) ; CLEAR BLOCKS XMITTED
486 000752 105060 000055 CLRB S.XMTE(R0) ; CLEAR XMIT ERROR COUNT
487 000756 105060 000052 CLRB S.RCVE(R0) ; CLEAR RECEIVE ERROR COUNT
488 000762 105060 000054 CLRB S.RSTE(R0) ; CLEAR RESOURCE ERROR COUNT
489 000766 105060 000053 CLRB S.TMOE(R0) ; CLEAR TIMEOUT ERROR COUNT
490
491 000772 RETURN
492
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 17
DACOU - SHOW/ZERO DA LINE COUNTERS
494 .SBTTL DACOU - SHOW/ZERO DA LINE COUNTERS
495 ;+
496 ; **-DACOU-SHOW/ZERO DA LINE TABLE COUNTERS
497 ;
498 ; FORMATS OR ZEROES THE COUNTERS FROM THE DA LINE TABLE
499 ;
500 ; INPUTS:
501 ; R0 = LINE TABLE ADDRESS
502 ; R5 = OPERATIONS DESCRIPTOR WORD FROM PARSE
503 ;
504 ; OUTPUTS:
505 ; COUNTERS ZEROED OR R4 = POINTER TO COPY OF COUNTERS
506 ;-
507
508 000774 DACOU:
509
510 000774 032705 000001 BIT #NS.SHO,R5 ; SHOW OPERATION ?
511 001000 001010 BNE 10$ ; IF NE, YES
512 001002 005060 000026 CLR T.XMT(R0) ; ELSE, CLEAR BLOCKS TRANSMITTED
513 001006 005060 000030 CLR T.RCV(R0) ; ZERO BLOCKS RECEIVED COUNT
514 001012 016760 000000G 000032 MOV CURTIM,T.TLZ(R0) ; SET TIME LAST ZEROED TO NOW
515 001020 000415 BR 20$ ; AND RETURN
516
517 001022 012701 000000G 10$: MOV #BUFF1,R1 ; POINT TO ARGUMENT BUFFER
518 001026 010104 MOV R1,R4 ; SAVE A COPY
519 001030 016021 000032 MOV T.TLZ(R0),(R1)+ ; GET TIME LAST ZEROED
520 001034 016021 000030 MOV T.RCV(R0),(R1)+ ; GET BLOCKS RECEIVED COUNT
521 001040 016021 000026 MOV T.XMT(R0),(R1)+ ; GET BLOCKS TRANSMITTED
522 001044 005021 CLR (R1)+ ; NO ERRORS POSSIBLE
523 001046 005021 CLR (R1)+ ; ...
524 001050 005021 CLR (R1)+ ; ...
525 001052 005011 CLR (R1) ; ...
526
527 001054 20$: RETURN
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 18
LOCSTA - DISPLAY LOCAL NODE STATE
529 .SBTTL LOCSTA - DISPLAY LOCAL NODE STATE
530 ;+
531 ; **-LOCSTA-DISPLAY LOCAL NODE STATE
532 ;
533 ; FORMATS THE NICE MESSAGE FOR THE SHOW STATE LOCAL COMMAND.
534 ;
535 ; INPUTS:
536 ; R0 = NEXT FREE BYTE IN BUFFER
537 ;
538 ; OUTPUTS:
539 ; MESSAGE FORMATED
540 ;-
541
542 001056 LOCSTA::
543
544 001056 CALL FNDLOC ; FIND DATA BASE AND MOVE IN NAME
545 001062 103425 BCS 99$ ; IF CS, ERROR
546 001064 012701 000000' MOV #LSMSG,R1 ; POINT TO CANNED PART OF MESSAGE
547 001070 012702 000013 MOV #LSMSGL,R2 ; GET LENGTH OF MESSAGE
548 001074 112120 10$: MOVB (R1)+,(R0)+ ; MOVE MESSAGE INTO BUFFER
549 001076 005302 DEC R2 ; DEC BYTE COUNT
550 001100 001375 BNE 10$ ; AND LOOP
551 001102 012701 000000G MOV #$NODID,R1 ; POINT TO NODE ID DESCRIPTOR
552 001106 012102 MOV (R1)+,R2 ; GET STRING LENGTH AND POINT TO STRING
553 001110 110220 MOVB R2,(R0)+ ; SET STRING LENGTH IN MESSAGE
554 001112 112120 20$: MOVB (R1)+,(R0)+ ; MOVE NODE ID INTO BUFFER
555 001114 005302 DEC R2 ; AND LOOP
556 001116 001375 BNE 20$ ; ...
557
558 001120 162700 000001G SUB #BUFF+1,R0 ; CALCULATE MESSAGE LENGTH
559 001124 010067 000000G MOV R0,MSGL ; SET MESSAGE LENGTH
560
561 001130 012767 000401 000000G MOV #<1+<1*256.>>,HMSG ; SET SUCCESSS, WITH ONE MESSAGE TO COME
562
563 001136 99$: RETURN
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 19
LINSTA - DISPLAY LINE STATE
565 .SBTTL LINSTA - DISPLAY LINE STATE
566 ;+
567 ; **-LINSTA-DISPLAY STATE OF LINE
568 ;
569 ; LINE STATE IS DECLARED ON, OFF OR MAINT.
570 ;
571 ; INPUTS:
572 ; R0 = ADDRESS OF NEXT FREE BYTE IN BUFFER
573 ; 8. WORD DESCRIPTOR BLOCK AT LINBLK
574 ;
575 ; OUTPUTS:
576 ; NICE MESSAGE BUILT FOR SHOW STATE LINE
577 ;-
578
579 001140 LINSTA::
580
581 001140 CALL FNDLN ; FIND LINE IN SYSTEM DATA BASES
582 001144 103472 BCS 99$ ; IF CS, COULDN'T - ERROR
583 001146 010003 MOV R0,R3 ; COPY BUFFER POINTER
584 001150 112713 000004 MOVB #4,(R3) ; ASSUME STATE = MAINTENANCE
585 001154 116704 000017G MOVB TASN+LINBLK+1,R4 ; GET CURRENT ASSIGNMENT
586 001160 122704 000000G CMPB #PD$NSP,R4 ; OWNED BY NSP ?
587 001164 001023 BNE 10$ ; IF NE, NO - MAINT.
588 001166 105013 CLRB (R3) ; ELSE, ASSUME "ON"
589 001170 016404 000000G MOV $PDVTB(R4),R4 ; INDEX OFF PDV TABLE
590 001174 016404 000014 MOV Z.DAT(R4),R4 ; POINT TO DATA BASE
591 001200 116701 000016G MOVB TASN+LINBLK,R1 ; GET ASSIGNMENT
592 001204 012700 000014 MOV #P$LEN,R0 ; SET BLOCK LENGTH
593 001210 CALL $MUL ; CALCULATE OFFSET
594 001214 066401 000030 ADD N$PLD+2(R4),R1 ; POINT TO LINK DESCRIPTOR
595 001220 132761 000001 000001 BITB #PF$UP,P$LST+1(R1) ; IS LINE UP ?
596 001226 001002 BNE 10$ ; IF NE, YES
597 001230 112713 000001 MOVB #1,(R3) ; ELSE STATE = "OFF"
598
599 001234 105723 10$: TSTB (R3)+ ; UPDATE BUFFER POINTER
600 001236 105023 CLRB (R3)+ ; SET OPERATING LOGGING STATE
601 001240 105023 CLRB (R3)+ ; SET MAINTENANCE LOGGING STATE
602 001242 105023 CLRB (R3)+ ; ASSUME NO REMOTE NODE
603 001244 132761 000001 000001 BITB #PF$UP,P$LST+1(R1) ; STATE = UP ?
604 001252 001420 BEQ 30$ ; IF EQ, NO - SKIP REMOTE NAME
605 001254 122761 000005 000000 CMPB #PS$UP,P$LST(R1) ; HAVE WE NODE-INIT ?
606 001262 001014 BNE 30$ ; IF NE, NO - "REMOTE=NONE"
607 001264 016101 000010 MOV P$NOD(R1),R1 ; POINT TO NODE DESCRIPTOR
608 001270 001411 BEQ 30$ ; IF EQ, NONE
609 001272 116102 000005 MOVB D$LNG(R1),R2 ; GET LENGTH OF NODE NAME
610 001276 062701 000006 ADD #D$NAM,R1 ; POINT TO NODE NAME
611 001302 110263 177777 MOVB R2,-1(R3) ; SET LENGTH OF NODE NAME E
612 001306 112123 20$: MOVB (R1)+,(R3)+ ; MOVE NAME INTO MESSAGE
613 001310 005302 DEC R2 ; DEC CHARACTER COUNT
614 001312 003375 BGT 20$ ; LOOP
615
616 001314 162703 000001G 30$: SUB #BUFF+1,R3 ; CALCULATE NICE MESSAGE LENGTH
617 001320 010367 000000G MOV R3,MSGL ; SET LENGTH OF MESSAGE TO SEND
618 001324 012767 000401 000000G MOV #<1+<1*256.>>,HMSG ; SET SUCCESS WITH 1 MESSAGE TO COME
619 001332 99$: RETURN
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 20
LINSTA - DISPLAY LINE STATE
621 000001 .END
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 20-1
SYMBOL TABLE
A$$CHK= 000000 C.LIN 000006 D.PFNC 000040 FS.STP= 002000 LD$LP = 000000
A$$CPS= 000000 C.LNK 000000 D.PLEX 000046 FS.STR= 001000 LF.ACT= 100000
A$$PRI= 000000 C.MOD 000011 D.RAQC 000002 FS.TRM= 003000 LF.BWT= 000007
A$$TRP= 000000 C.NSP 000004 D.RASQ 000010 FS.XKL= 002000 LF.DLO= 000040
BUFF = ****** GX C.RSV 000002 D.RAWQ 000004 FS.XOF= 010000 LF.ENA= 002000
BUFF1 = ****** GX C.STA 000007 D.RBFC 000003 FS.XON= 007000 LF.MDC= 000100
CB.CCB= 000002 C.STS 000012 D.RCV 000056 F$$LVL= 000001 LF.MFL= 004000
CB.RDB= 000004 DACOU 000774R D.SEL0 177744 G$$TPP= 000000 LF.MTP= 000020
CE.ABO= 100362 DDCCOU 000632R D.SEL2 177772 G$$TSS= 000000 LF.RDY= 040000
CE.DIS= 100366 DF$ADJ= 020000 D.STAT 000044 G$$TTK= 000000 LF.REA= 010000
CE.ERR= 100370 DF$DWN= 001000 D.TIME 000001 G$$WRD= 000000 LF.TIM= 000010
CE.MOP= 100372 DF$FRE= 070000 D.TIMR 000000 HMSG = ****** GX LF.UNL= 020000
CE.NTE= 100361 DF$LCL= 040000 D.TLZ 000052 H.CSP 000000 LINBLK= ****** GX
CE.RTE= 100376 DF$LNK= 004000 D.XAQC 000014 H.CUIC 000010 LINCOU 000216RG
CE.SRC= 100364 DF$REM= 010000 D.XASQ 000022 H.DSW 000046 LINSTA 001140RG
CE.TMO= 100374 DF$RES= 002000 D.XAWQ 000016 H.DUIC 000012 LOCCOU 000062RG
CF.EOM= 000004 DF$TMP= 100000 D.XBFC 000015 H.EFLM 000004 LOCSTA 001056RG
CF.HDR= 000020 DMCCOU 000370R D.XMT 000054 H.EFSV 000040 LSMSG 000000R
CF.LB = 100000 DV.CCL= 000002 E$$XPR= 000000 H.FCS 000050 LSMSGL= 000013
CF.SOM= 000010 DV.COM= 020000 FC.CCP= 000020 H.FORT 000052 LS.CTL= 020000
CF.SYN= 000040 DV.DIR= 000010 FC.CTL= 000006 H.FPSA 000042 LS.HDX= 000002
CF.TRN= 000100 DV.F11= 040000 FC.KCP= 000016 H.FPVA 000034 LS.LEN= 000400
CMODE = 140000 DV.ISP= 002000 FC.KIL= 000004 H.GARD 000072 LS.MPM= 000004
CM$ECO= 000001 DV.MNT= 100000 FC.RCE= 000002 H.HDLN 000002 LS.MPS= 000010
CM$REV= 000000 DV.MXD= 000100 FC.RCP= 000014 H.IPC 000016 LS.PDD= 001000
CM$VER= 000003 DV.OSP= 004000 FC.TIM= 000010 H.IPS 000014 LS.RSA= 040000
CS.ABO= 000100 DV.PSE= 010000 FC.XCP= 000012 H.ISP 000020 LS.RSN= 100000
CS.BUF= 000200 DV.REC= 000001 FC.XME= 000000 H.LUN 000076 L$$ASG= 000000
CS.DCR= 000400 DV.SDI= 000020 FE.CAL= 000040 H.NLUN 000074 L$$DRV= 000000
CS.DEV= 000002 DV.SQD= 000040 FE.DRV= 000010 H.NML 000061 L$$P11= 000001
CS.DIS= 000040 DV.SWL= 001000 FE.EXP= 000200 H.ODVA 000022 L$$11R= 000000
CS.ENB= 000020 DV.TTY= 000004 FE.EXT= 000001 H.ODVL 000024 L.ACST 000022
CS.EOF= 000001 DV.UMD= 000200 FE.EXV= 000004 H.OVLY 000054 L.BABI 000057
CS.ERR= 100000 D$CHN 000002 FE.LSI= 000400 H.PFVA 000032 L.BABT 000052
CS.HFE= 002000 D$FLG 000000 FE.MUP= 000002 H.RCVA 000036 L.CHAR 000036
CS.LST= 040000 D$LEN 000014 FE.MXT= 040000 H.RRVA 000062 L.CRC 000032
CS.MTL= 004000 D$LNG 000005 FE.NLG= 100000 H.SPRI 000060 L.CRST 000020
CS.RNG= 000010 D$NAM 000006 FE.PKT= 000100 H.TKVA 000026 L.CTL 000012
CS.ROV= 000004 D$USE 000004 FE.PLA= 000020 H.TKVL 000030 L.CTMO 000000
CS.RSN= 010000 D$$BUG= 177514 FNDLN = ****** GX H.VEXT 000056 L.DDM 000002
CS.SUC= 000001 D$$ISK= 000000 FNDLOC= ****** GX H.WND 000044 L.DDS 000004
CS.TMO= 020000 D$$L11= 000001 FS.AST= 000000 INVALD 000052RG L.DDST 000024
CURTIM= ****** GX D$$YNC= 000000 FS.CIB= 002000 I$$RAR= 000000 L.DEDI 000055
C$$CKP= 000000 D$$YNM= 000000 FS.CRA= 001000 I$$RDN= 000000 L.DEDT 000046
C$$ORE= 000400 D.CFNC 000036 FS.DIS= 013000 KDSAR0= 172360 L.DLC 000003
C$$RSH= 177564 D.ERRS 000034 FS.DVC= 001000 KDSDR0= 172320 L.DLM 000006
C.BID 000003 D.IVCT 177724 FS.ENB= 012000 KISAR0= 172340 L.DLS 000010
C.BUF 000014 D.LBIA 000030 FS.GET= 006000 KISAR5= 172352 L.ENA 000063
C.BUF1 000014 D.LEN = 000144 FS.INI= 000000 KISAR6= 172354 L.FCNL 000010
C.BUF2 000024 D.LINE 000026 FS.KIL= 000000 KISAR7= 172356 L.FLG 000000
C.CNT 000020 D.LOGG 000066 FS.LTM= 001000 KISDR0= 172300 L.HDR 000030
C.CNT1 000020 D.LREC 000060 FS.MNT= 004000 KISDR6= 172314 L.ITMO 000001
C.CNT2 000030 D.LVA 000032 FS.MSN= 014000 KISDR7= 172316 L.LEN = 000014
C.FLG 000022 D.OFFI= 000030 FS.RNG= 011000 K$$CNT= 177546 L.LNUM 000060
C.FLG1 000022 D.OFFO= 000002 FS.RTN= 001000 K$$CSR= 177546 L.LOGG 000042
C.FLG2 000032 D.OFFS= 000054 FS.SET= 005000 K$$LDC= 000000 L.MOTD 000062
C.FNC 000010 D.OVCT 177752 FS.STM= 000000 K$$TPS= 000074 L.NAST 000064
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 20-2
SYMBOL TABLE
L.NDED 000065 PR4 = 000200 SS.ENA= 040000 S.RSTE 000054 UDSAR0= 177660
L.NMSG 000061 PR5 = 000240 SS.HLT= 000000 S.SEL 000072 UDSDR0= 177620
L.PDLI 000056 PR6 = 000300 SS.IST= 000002 S.SLAN 000016 UISAR0= 177640
L.PDLT 000050 PR7 = 000340 SS.MNT= 000010 S.SPAN 000017 UISAR4= 177650
L.STAL 000014 PS = 177776 SS.PIG= 010000 S.STE 000020 UISAR5= 177652
L.STBL 000066 PS$NTI= 000003 SS.REP= 001000 S.STLG 000074 UISAR6= 177654
L.STS 000002 PS$OFF= 000000 SS.RTR= 002000 S.STRC 000057 UISAR7= 177656
L.TDNQ 000004 PS$STR= 000001 SS.RUN= 000006 S.STS 000002 UISDR0= 177600
L.UNT 000013 PS$UP = 000005 SS.SEL= 000400 S.TAKQ 000010 UISDR4= 177610
L.UPDI 000054 PS$VER= 000004 SS.SHU= 020000 S.THD 000036 UISDR5= 177612
L.UPDT 000044 PS$WT = 000002 SS.TIM= 004000 S.THI 000034 UISDR6= 177614
L.XMST 000026 P$CHN 000004 SWR = 177570 S.THP 000035 UISDR7= 177616
MOVCNT 000204R P$CNT 000005 S$EMR 000006 S.TIM 000064 US.ABO= 000001
MOVTIM 000014R P$FRQ 000012 S$FMT 000012 S.TMOE 000053 US.BSY= 000200
MPAR = 172100 P$FSP 000013 S$LEN 000040 S.TM1 000041 US.CRW= 000004
MPCSR = 177746 P$LCD 000002 S$LNK 000022 S.U 000022 US.DSB= 000010
MSGL = ****** GX P$LEN 000014 S$MLK 000024 S.X 000042 US.ECH= 000002
M$$CRB= 000124 P$LST 000000 S$NKS 000010 S.XMT 000070 US.FOR= 000040
M$$CRX= 000000 P$NOD 000010 S$RES 000014 S.XMTE 000055 US.FRK= 000002
M$$FCS= 000000 P$PFQ 000006 S$SEC 000000 TASN 000016 US.LAB= 000004
M$$MGE= 000000 P$TIM 000003 S$SNI 000016 TCTL 000002 US.MDE= 000002
M$$OVR= 000000 P$$P45= 000000 S$UMR 000004 TDDM 000014 US.MDM= 000020
NS.COU= 000002 P$$WRD= 000000 S$UMS 000002 TDLC 000015 US.MNT= 000100
NS.LIN= 000004 Q$$OPT= 000010 S$UNI 000020 TFLG 000006 US.OFL= 000001
NS.SHO= 000001 RF.CLN= 000000 S$$WRG= 000000 TLIN 000003 US.OUT= 000001
N$ACQ 000000 RF.CTL= 000003 S$$YSZ= 007600 TNAM 000000 US.PUB= 000004
N$ICF 000006 RF.TIM= 177400 S.A 000044 TPDV 000007 US.RED= 000002
N$LNI 000010 RF.TM0= 000400 S.AI 000033 TPS = 177564 US.SHR= 000001
N$LVC 000022 RF.WTD= 000020 S.AQ 000032 TSLF 000012 US.UMD= 000010
N$NOD 000032 RF.WTM= 000030 S.AR 000045 TSLN 000010 US.WCK= 000010
N$PLD 000026 RF.WTS= 000010 S.CTB 000052 TSTA 000004 U.ACP = 000032
N$STS 000042 RT$ECO= 000001 S.CTBE 000061 T$$KMG= 000000 U.ATT 000022
N$TCB 000004 RT$REV= 000000 S.CTW 000066 T$$MIN= 000000 U.BUF 000024
N$TMP 000012 RT$VER= 000003 S.CTWE 000074 T.DR 000002 U.CBF = 000032
N$VER 000036 R$$DER= 000000 S.DSTE 000056 T.ER 000024 U.CLI 177772
N$$LDV= 000001 R$$K11= 000001 S.FCNL 000014 T.FL 000004 U.CNT 000030
N$$MOV= 000010 R$$SND= 000000 S.I 000024 T.LN 000022 U.CTL 000004
N$$SYS= 000001 R$$11M= 000000 S.II 000031 T.OFFS= 000020 G U.CW1 000010
N$$USR= 000001 SE.SAK= 000020 S.IQ 000030 T.RA 000006 U.CW2 000012
PD$NSP= ****** GX SE.SNK= 000004 S.LNK 000000 T.RC 000010 U.CW3 000014
PF$EIP= 000100 SE.SRP= 000010 S.MOTD 000050 T.RCV 000030 U.CW4 000016
PF$ENB= 000200 SE.SSK= 000001 S.N 000043 T.SP 000020 U.DCB 000000
PF$OFF= 000000 SE.SSL= 000040 S.NAKT 000063 T.TIME 000001 U.LUIC 177774
PF$RLI= 000002 SE.SST= 000002 S.NDAT 000047 T.TIMR 000000 U.OWN 177776
PF$RRI= 000004 SHODDC 000660R S.NKRE 000051 T.TLZ 000032 U.RED 000002
PF$RVE= 000001 SHODMC 000544R S.NMSG 000037 T.VCT 177760 U.SCB 000020
PF$RVR= 000040 SHOLOC 000144R S.NRSP 000046 T.XC 000016 U.STS 000005
PF$SLI= 000002 SISDR0= 172200 S.PI 000027 T.XMT 000026 U.ST2 000007
PF$SRI= 000004 SP.PLA= 000010 S.PLS 000021 T.XW 000012 U.UIC = 000052
PF$SRT= 000001 SP.PLD= 000002 S.PQ 000026 UBMPR = 170200 U.UNIT 000006
PF$STA= 000003 SP.PLI= 000006 S.PTXQ 000004 UC.ALG= 000200 U.VCB = 000034
PF$SUB= 000010 SP.PLO= 000000 S.R 000040 UC.ATT= 000010 U2.AT.= 000020
PF$UP = 000001 SP.PLP= 000004 S.RCV 000066 UC.KIL= 000004 U2.CRT= 002000
PIRQ = 177772 SR0 = 177572 S.RCVE 000052 UC.LGH= 000003 U2.DH1= 100000
PMODE = 030000 SR3 = 172516 S.REPS 000060 UC.NPR= 000100 U2.DJ1= 040000
PR0 = 000000 SS.ACT= 100000 S.RETH 000061 UC.PWF= 000020 U2.DZ1= 000100
PR1 = 000040 SS.AST= 000004 S.RPTH 000062 UC.QUE= 000040 U2.ESC= 001000
SNISUB - SHOW AND ZERO COUNTERS MACRO M1110 13-OCT-79 13:06 PAGE 20-3
SYMBOL TABLE
U2.HLD= 000040 U2.7CH= 010000 W.BLGH 000020 ZF.DDM= 000001 Z.LEN = 000014
U2.LOG= 000400 VF$RCV= 100000 W.BLPD 000016 ZF.DLC= 000002 Z.LLN 000010
U2.LWC= 000001 VF$XMT= 040000 W.BLVR 000002 ZF.KMX= 000020 Z.MAP 000016
U2.L3S= 000004 V$FLG 000000 W.BNPD 000015 ZF.LLC= 000004 Z.NAM 000006
U2.L8S= 010000 V$LEN 000022 W.BOFF 000012 ZF.LMC= 000100 Z.PCB 000012
U2.NEC= 004000 V$RCV 000002 W.BPCB 000000 ZF.MFL= 000010 Z.SCH 000004
U2.PRV= 000010 V$XMT 000012 W.BSIZ 000010 ZF.MUX= 000040 $MUL = ****** GX
U2.RMT= 020000 V$$CTR= 001000 X$$DBT= 000000 ZF.TIM= 000200 $NODID= ****** GX
U2.R04= 100000 W.BATT 000006 ZERDDC 000734R Z.DAT 000014 $PDVTB= ****** GX
U2.SLV= 000200 W.BFPD 000014 ZERDMC 000504R Z.DSP 000000 $SLTTB= ****** GX
U2.VT5= 000002 W.BHVR 000004 ZERLOC 000112R Z.FLG 000011 ..OFF.= 177724
. ABS. 177776 000
001334 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 17146 WORDS ( 67 PAGES)
DYNAMIC MEMORY: 18508 WORDS ( 71 PAGES)
ELAPSED TIME: 00:00:55
SNISUB,[135,34]SNISUB/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[135,10]SNISUB
SNISUB CREATED BY MACRO ON 13-OCT-79 AT 13:07 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
BUFF = ****** GX 9-223 10-280 18-558 19-616
BUFF1 = ****** GX 11-304 15-450 17-517
CM$ECO = 000001 #4-46 4-90
CM$REV = 000000 #4-46 4-91
CM$VER = 000003 #4-46 4-89
CURTIM = ****** GX *5-113 *5-115 *5-117 5-118 5-119 8-190 12-359 16-483 17-514
DACOU 000774 R 10-266 #17-508
DDCCOU 000632 R 10-269 #14-423
DF$ADJ = 020000 #4-42 4-42
DF$DWN = 001000 #4-42
DF$FRE = 070000 #4-42
DF$LCL = 040000 #4-42 4-42
DF$LNK = 004000 #4-42
DF$REM = 010000 #4-42 4-42
DF$RES = 002000 #4-42
DF$TMP = 100000 #4-42
DMCCOU 000370 R 10-261 #11-302
D$CHN 000002 #4-42
D$FLG 000000 #4-42
D$LEN 000014 #4-42
D$LNG 000005 #4-42 19-609
D$NAM 000006 #4-42 19-610
D$USE 000004 #4-42
D.CFNC 000036 #4-43
D.ERRS 000034 #4-43
D.IVCT 177724 #4-43 4-43
D.LBIA 000030 #4-43 11-315
D.LEN = 000144 #4-43
D.LINE 000026 #4-43
D.LOGG 000066 #4-43
D.LREC 000060 #4-43 12-362 13-392
D.LVA 000032 #4-43 11-310
D.OFFI = 000030 #4-43
D.OFFO = 000002 #4-43
D.OFFS = 000054 #4-43
D.OVCT 177752 #4-43
D.PFNC 000040 #4-43
D.PLEX 000046 #4-43
D.RAQC 000002 #4-43
D.RASQ 000010 #4-43
D.RAWQ 000004 #4-43
D.RBFC 000003 #4-43
D.RCV 000056 #4-43 11-307 *12-361
D.SEL0 177744 #4-43
D.SEL2 177772 #4-43
D.STAT 000044 #4-43
D.TIME 000001 #4-43
D.TIMR 000000 #4-43
D.TLZ 000052 #4-43 11-306 *12-359
D.XAQC 000014 #4-43
D.XASQ 000022 #4-43
D.XAWQ 000016 #4-43
SNISUB CREATED BY MACRO ON 13-OCT-79 AT 13:07 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
D.XBFC 000015 #4-43
D.XMT 000054 #4-43 11-308 *12-360
FNDLN = ****** GX 10-251 19-581
FNDLOC = ****** GX 7-159 18-544
HMSG = ****** GX *6-135 *8-196 *9-225 *10-272 *10-282 *18-561 *19-618
INVALD 000052 RG #6-133
I$$AS = ****** 4-40
KISAR6 = 172354 *11-315
LF.ACT = 100000 #4-41
LF.BWT = 000007 #4-41
LF.DLO = 000040 #4-41
LF.ENA = 002000 #4-41
LF.MDC = 000100 #4-41
LF.MFL = 004000 #4-41
LF.MTP = 000020 #4-41
LF.RDY = 040000 #4-41
LF.REA = 010000 #4-41
LF.TIM = 000010 #4-41
LF.UNL = 020000 #4-41
LINBLK = ****** GX 10-254 10-259 10-264 19-585 19-591
LINCOU 000216 RG #10-249
LINSTA 001140 RG #19-579
LOCCOU 000062 RG #7-157
LOCSTA 001056 RG #18-542
LSMSG 000000 R #4-81 4-92 18-546
LSMSGL = 000013 #4-92 18-547
LS.CTL = 020000 #4-45
LS.HDX = 000002 #4-45
LS.LEN = 000400 #4-45
LS.MPM = 000004 #4-45
LS.MPS = 000010 #4-45
LS.PDD = 001000 #4-45
LS.RSA = 040000 #4-45
LS.RSN = 100000 #4-45
L.ACST 000022 #4-45
L.BABI 000057 #4-45
L.BABT 000052 #4-45
L.CHAR 000036 #4-45
L.CRC 000032 #4-45
L.CRST 000020 #4-45
L.CTL 000012 #4-41
L.CTMO 000000 #4-45
L.DDM 000002 #4-41
L.DDS 000004 #4-41
L.DDST 000024 #4-45
L.DEDI 000055 #4-45
L.DEDT 000046 #4-45
L.DLC 000003 #4-41
L.DLM 000006 #4-41
L.DLS 000010 #4-41 10-258
L.ENA 000063 #4-45
L.FCNL 000010 #4-45
SNISUB CREATED BY MACRO ON 13-OCT-79 AT 13:07 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
L.FLG 000000 #4-41
L.HDR 000030 #4-45
L.ITMO 000001 #4-45
L.LEN = 000014 #4-41 10-255
L.LNUM 000060 #4-45
L.LOGG 000042 #4-45
L.MOTD 000062 #4-45
L.NAST 000064 #4-45
L.NDED 000065 #4-45
L.NMSG 000061 #4-45
L.PDLI 000056 #4-45
L.PDLT 000050 #4-45
L.STAL 000014 #4-45 14-425
L.STBL 000066 #4-45
L.STS 000002 #4-45
L.TDNQ 000004 #4-45
L.UNT 000013 #4-41
L.UPDI 000054 #4-45
L.UPDT 000044 #4-45
L.XMST 000026 #4-45
MOVCNT 000204 R 9-220 #9-229 10-277
MOVTIM 000014 R #5-110 9-218 10-275
MSGL = ****** GX *9-224 *10-281 *18-559 *19-617
M$$MGE = 000000 4-43 4-43 4-43 4-43 4-44 4-44 4-45 11-313 11-326
NS.COU = 000002 #4-74
NS.LIN = 000004 #4-76
NS.SHO = 000001 #4-72 7-161 10-273 11-331 14-426 17-510
N$ACQ 000000 #4-42
N$ICF 000006 #4-42
N$LNI 000010 #4-42
N$LVC 000022 #4-42
N$NOD 000032 #4-42
N$PLD 000026 #4-42 19-594
N$STS 000042 #4-42
N$TCB 000004 #4-42
N$TMP 000012 #4-42
N$VER 000036 #4-42
PD$NSP = ****** GX 19-586
PF$EIP = 000100 #4-42
PF$ENB = 000200 #4-42
PF$OFF = 000000 #4-42
PF$RLI = 000002 #4-42
PF$RRI = 000004 #4-42
PF$RVE = 000001 #4-42
PF$RVR = 000040 #4-42
PF$SLI = 000002 #4-42
PF$SRI = 000004 #4-42
PF$SRT = 000001 #4-42
PF$STA = 000003 #4-42
PF$SUB = 000010 #4-42
PF$UP = 000001 #4-42 19-595 19-603
PS$NTI = 000003 #4-42
SNISUB CREATED BY MACRO ON 13-OCT-79 AT 13:07 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
PS$OFF = 000000 #4-42
PS$STR = 000001 #4-42
PS$UP = 000005 #4-42 19-605
PS$VER = 000004 #4-42
PS$WT = 000002 #4-42
P$CHN 000004 #4-42
P$CNT 000005 #4-42
P$FRQ 000012 #4-42
P$FSP 000013 #4-42
P$LCD 000002 #4-42
P$LEN 000014 #4-42 19-592
P$LST 000000 #4-42 19-595 19-603 19-605
P$NOD 000010 #4-42 19-607
P$PFQ 000006 #4-42
P$TIM 000003 #4-42
RF.CLN = 000000 #4-42
RF.CTL = 000003 #4-42
RF.TIM = 177400 #4-42
RF.TM0 = 000400 #4-42
RF.WTD = 000020 #4-42
RF.WTM = 000030 #4-42
RF.WTS = 000010 #4-42
RT$ECO = 000001 #4-46 4-87
RT$REV = 000000 #4-46 4-88
RT$VER = 000003 #4-46 4-86
R$$11D = ****** 4-40
R$$11M = 000000 4-40
R$$11S = ****** 4-40
SE.SAK = 000020 #4-45
SE.SNK = 000004 #4-45
SE.SRP = 000010 #4-45
SE.SSK = 000001 #4-45
SE.SSL = 000040 #4-45
SE.SST = 000002 #4-45
SHODDC 000660 R 14-428 #15-448
SHODMC 000544 R 11-336 #13-389
SHOLOC 000144 R 7-166 #9-216
SP.PLA = 000010 #4-45
SP.PLD = 000002 #4-45
SP.PLI = 000006 #4-45
SP.PLO = 000000 #4-45
SP.PLP = 000004 #4-45
SS.ACT = 100000 #4-45
SS.AST = 000004 #4-45
SS.ENA = 040000 #4-45
SS.HLT = 000000 #4-45
SS.IST = 000002 #4-45
SS.MNT = 000010 #4-45
SS.PIG = 010000 #4-45
SS.REP = 001000 #4-45
SS.RTR = 002000 #4-45
SS.RUN = 000006 #4-45
SNISUB CREATED BY MACRO ON 13-OCT-79 AT 13:07 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
SS.SEL = 000400 #4-45
SS.SHU = 020000 #4-45
SS.TIM = 004000 #4-45
S$EMR 000006 #4-42
S$FMT 000012 #4-42
S$LEN 000040 #4-42
S$LNK 000022 #4-42
S$MLK 000024 #4-42
S$NKS 000010 #4-42
S$RES 000014 #4-42
S$SEC 000000 #4-42
S$SNI 000016 #4-42
S$UMR 000004 #4-42
S$UMS 000002 #4-42
S$UNI 000020 #4-42
S.A 000044 #4-45
S.AI 000033 #4-45
S.AQ 000032 #4-45
S.AR 000045 #4-45
S.CTB 000052 #4-45
S.CTBE 000061 #4-45
S.CTW 000066 #4-45
S.CTWE 000074 #4-45
S.DSTE 000056 #4-45
S.FCNL 000014 #4-45
S.I 000024 #4-45
S.II 000031 #4-45
S.IQ 000030 #4-45
S.LNK 000000 #4-45
S.MOTD 000050 #4-45
S.N 000043 #4-45
S.NAKT 000063 #4-45
S.NDAT 000047 #4-45
S.NKRE 000051 #4-45
S.NMSG 000037 #4-45
S.NRSP 000046 #4-45
S.PI 000027 #4-45
S.PLS 000021 #4-45
S.PQ 000026 #4-45
S.PTXQ 000004 #4-45
S.R 000040 #4-45
S.RCV 000066 #4-45 15-453 *16-484
S.RCVE 000052 #4-45 15-457 *16-487
S.REPS 000060 #4-45
S.RETH 000061 #4-45
S.RPTH 000062 #4-45
S.RSTE 000054 #4-45 15-459 *16-488
S.SEL 000072 #4-45
S.SLAN 000016 #4-45
S.SPAN 000017 #4-45
S.STE 000020 #4-45
S.STLG 000074 #4-45
SNISUB CREATED BY MACRO ON 13-OCT-79 AT 13:07 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
S.STRC 000057 #4-45
S.STS 000002 #4-45
S.TAKQ 000010 #4-45
S.THD 000036 #4-45
S.THI 000034 #4-45
S.THP 000035 #4-45
S.TIM 000064 #4-45 15-452 *16-483
S.TMOE 000053 #4-45 15-461 *16-489
S.TM1 000041 #4-45
S.U 000022 #4-45
S.X 000042 #4-45
S.XMT 000070 #4-45 15-454 *16-485
S.XMTE 000055 #4-45 15-455 *16-486
TASN 000016 #4-66 19-585 19-591
TCTL 000002 #4-56
TDDM 000014 #4-64
TDLC 000015 #4-65
TFLG 000006 #4-60
TLIN 000003 #4-57
TNAM 000000 #4-55 10-259 10-264
TPDV 000007 #4-61
TSLF 000012 #4-63
TSLN 000010 #4-62 10-254
TSTA 000004 #4-58
T.DR 000002 #4-44
T.ER 000024 #4-44
T.FL 000004 #4-44
T.LN 000022 #4-44
T.OFFS = 000020 G #4-44
T.RA 000006 #4-44
T.RC 000010 #4-44
T.RCV 000030 #4-44 *17-513 17-520
T.SP 000020 #4-44
T.TIME 000001 #4-44
T.TIMR 000000 #4-44
T.TLZ 000032 #4-44 *17-514 17-519
T.VCT 177760 #4-44 4-44
T.XC 000016 #4-44
T.XMT 000026 #4-44 *17-512 17-521
T.XW 000012 #4-44
VF$RCV = 100000 #4-42
VF$XMT = 040000 #4-42
V$FLG 000000 #4-42
V$LEN 000022 #4-42
V$RCV 000002 #4-42
V$XMT 000012 #4-42
X$$MCB = ****** 4-40 4-40
ZERDDC 000734 R 14-431 #16-481
ZERDMC 000504 R 11-333 #12-357
ZERLOC 000112 R 7-163 #8-188
ZF.DDM = 000001 #4-40
ZF.DLC = 000002 #4-40
SNISUB CREATED BY MACRO ON 13-OCT-79 AT 13:07 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ZF.KMX = 000020 #4-40
ZF.LLC = 000004 #4-40
ZF.LMC = 000100 #4-40
ZF.MFL = 000010 #4-40
ZF.MUX = 000040 #4-40
ZF.TIM = 000200 #4-40
Z.DAT 000014 #4-40 19-590
Z.DSP 000000 #4-40 4-40
Z.FLG 000011 #4-40
Z.LEN = 000014 #4-40
Z.LLN 000010 #4-40
Z.MAP 000016 #4-40
Z.NAM 000006 #4-40
Z.PCB 000012 #4-40
Z.SCH 000004 #4-40
$MUL = ****** GX 10-256 19-593
$NODID = ****** GX 18-551
$PDVTB = ****** GX 19-589
$SLTTB = ****** GX 10-257
..OFF. = 177724 #4-43 4-43 4-43
SNISUB CREATED BY MACRO ON 13-OCT-79 AT 13:07 PAGE 8
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 7-159 7-163 7-166 9-218 9-220 10-251 10-256 10-261 10-266 10-269
10-275 10-277 11-314 11-333 11-336 14-428 14-431 18-544 19-581 19-593
CALLR #4-38
CCBDF$ #4-37 4-39
DADF$ #4-37 #4-44
DDCDF$ #4-37 4-45
DMCDF$ #4-37 #4-43
HDRDF$ #4-38 4-49
HWDDF$ #4-37 4-47
NSDDB$ #4-37 #4-42
NSPVR$ #4-38 #4-46
PDVDF$ #4-37 #4-40
RETURN 5-120 6-136 7-168 8-197 9-226 9-234 10-284 11-327 11-338 12-370
13-407 14-433 15-464 16-491 17-527 18-563 19-619
SLTDF$ #4-37 4-41
TMPDF$ #4-43 #4-43 #4-44 #4-44
UCBDF$ #4-38 4-48
.BIN #4-43 #4-44
.CNB #4-43 #4-44
.CNW #4-43 #4-44
.CORE #4-43 #4-44
.CSR #4-43 #4-43 #4-43 #4-44 #4-44
.DVCHA #4-43 #4-43 #4-44
.INT #4-43 4-43 4-43 4-43 #4-44 4-44 4-44
.INT1 #4-43 #4-44
.INT2 #4-43 #4-44
.INT3 #4-43 #4-44
.LFLHD #4-43 #4-44
.LIBR #4-43 #4-44
.LINKS #4-43 #4-44
.LSTHD #4-43 #4-43 #4-43 #4-43 #4-43 #4-43 #4-44 #4-44
.LTAB #4-43 #4-44
.MPLHD #4-43 #4-44
.POOL #4-43 #4-44
.PRI #4-43 4-43 4-43 #4-44 4-44
.SCOM #4-43 #4-44
.SECSR #4-43 #4-44
.SLNB #4-43 #4-44
.SLNW #4-43 #4-44 4-44
.STNB #4-43 #4-44
.STNW #4-43 #4-44
.UNB #4-43 #4-44
.UNW #4-43 #4-44
.VFY #4-43 #4-44