Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/srrdin.list
There are no other files named srrdin.list in the archive.
SRRDIN MACRO M1110 13-OCT-79 12:42
TABLE OF CONTENTS
9- 114 SRRDIN
13- 242 SRRLCS
17- 386 SRRLNC
21- 514 SRRLNL
24- 664 SRRLNS
26- 774 SRRNDC
30- 911 SRRRML
33- 1030 SRRRMS
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 3
1 .TITLE SRRDIN
2 .NLIST CND
3 .IDENT /V01.05/
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 ; NCU SERVICE MODULE TO READ NETWORK INFORMATION
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 ; 1.01 31-JUL-78 ALAN D. PECKHAM
37 ; OFFLOAD MAPPED FUNCTIONS ONTO DLX
38 ; 1.02 28-AUG-78 ALAN D. PECKHAM
39 ; DISALLOW ASKING FOR STATE OF LOCAL NODE AS IF A REMOTE NODE
40 ; 1.03 19-JAN-79 BUREN W. HOFFMAN
41 ; CHANGED THE SRQNXF PROCEDURE FROM LOCAL TO GLOBAL.
42 ; 1.04 30-JAN-79 ALAN D. PECKHAM
43 ; REMOVED SRQNXF TO SEPERATE MODULE
44 ; 1.05 31-JAN-79 ALAN D. PECKHAM
45 ; FIX MISUNDERSTANDING ABOUT TRUEB IN SRRRMS
46 ;
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 4
48 ;
49 ;======================================================================;
50 ;++
51 ; +-------------------------------------------------+
52 ; I I
53 ; I R E A D I N F O R M A T I O N S E R V I C E I
54 ; I - - - - - - - - - - - - - - - - - - - - - - - - I
55 ; I I
56 ; +-------------------------------------------------+
57 ;
58 ; FUNCTION:
59 ;
60 ; READ INFORMATION
61 ;
62 ; CALLING SEQUENCE: CALL SRRDIN
63 ;
64 ; INPUT:
65 ;
66 ; R5 - ADDRESS OF CONTROL BLOCK
67 ; C.LEN - MAXIMUM LENGTH OF BUFFER IN BYTES
68 ; C.ADDR - ADDRESS OF BUFFER FOR DATA
69 ; C.TYPE - TYPE CODE OF INFORMATION DESIRED
70 ; FOR LINE-ID LISTINGS
71 ; C.PRID - PROCESS-ID TYPE OF OWNER OF LINES
72 ; 0 - LINES OWNED BY ANY PROCESS
73 ; 1 - LINES OWNED BY NSP
74 ;
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 5
76 ; OUTPUT:
77 ;
78 ; C-BIT - CLEAR
79 ; R5 - ADDRESS OF UPDATED CONTROL BLOCK
80 ; C.RET - RETURN CODE
81 ; C.LEN - AMOUNT OF DATA RETURNED
82 ; FOR LISTINGS OF REMOTE NODES & LINE-IDS
83 ; NUMBER OF REMOTE NODES OR LINE-IDS RETURNED IN BUFFER
84 ; FOR COUNTS & STATUS
85 ; LENGTH IN BYTES OF INFORMATION READ
86 ; C.ADDR - ADDRESS OF BUFFER OF INFORMATION READ
87 ; C.TYPE - NOT CHANGED
88 ; C.PRID - NOT CHANGED
89 ;
90 ; REQUIREMENTS:
91 ;
92 ; CONFIGURATION CONTROL SYMBOLS:
93 ;
94 ; FR$LCC - LOCAL NODE COUNTERS
95 ; FR$LCS - LOCAL NODE STATUS
96 ; FR$RML - REMOTE NODE LISTINGS
97 ; FR$RMC - REMOTE NODE COUNTERS
98 ; FR$RMS - REMOTE NODE STATUS
99 ; FR$LNL - LINE-ID LISTINGS
100 ; FR$LNC - LINE COUNTERS
101 ;--
102 ;======================================================================;
103 ;
104 ; EXTERNAL MACROS
105 ;
106 .MCALL CONFIG
107 .MCALL PROC,PROCLC ;AP0001
108 ; ;**-1
109 ; DEFINE EXTERNAL MACROS
110 ;
111 000000 CONFIG ;CONFIGURATION CONTROL SYMBOLS
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 6
SRRDIN
114 .SBTTL SRRDIN
115 ;
116 ;======================================================================;
117 ;++
118 ; +-------------------------------------------------+
119 ; I I
120 ; I S R R D I N I
121 ; I - - - - - - I
122 ; I I
123 ; +-------------------------------------------------+
124 ;
125 ; FUNCTION:
126 ;
127 ; READ INFORMATION
128 ;
129 ; CALLING SEQUENCE: CALL SRRDIN
130 ;
131 ; INPUT:
132 ;
133 ; R5 - ADDRESS OF CONTROL BLOCK
134 ; C.LEN - MAXIMUM LENGTH OF BUFFER IN BYTES
135 ; C.ADDR - ADDRESS OF BUFFER FOR DATA
136 ; C.TYPE - TYPE CODE OF INFORMATION DESIRED
137 ; FOR LINE-ID LISTINGS
138 ; C.PRID - PROCESS-ID TYPE OF OWNER OF LINES
139 ; 0 - LINES OWNED BY ANY PROCESS
140 ; 1 - LINES OWNED BY NSP
141 ; FOR LOCAL NODE COUNTERS
142 ; @C.ADDR - LOCAL NODE NAME (I-6)
143 ; FOR REMOTE NODE COUNTERS & STATUS
144 ; @C.ADDR - REMOTE NODE NAME (I-6)
145 ; FOR LINE COUNTERS & STATUS
146 ; @C.ADDR - LINE-ID IN STANDARD FORMAT (4 BYTES)
147 ;
148 ; OUTPUT:
149 ;
150 ; C-BIT - CLEAR
151 ; R5 - ADDRESS OF UPDATED CONTROL BLOCK
152 ; C.RET - RETURN CODE
153 ; C.LEN - AMOUNT OF DATA RETURNED
154 ; FOR LISTINGS OF REMOTE NODES & LINE-IDS
155 ; NUMBER OF REMOTE NODES OR LINE-IDS RETURNED IN BUFFER
156 ; FOR COUNTS & STATUS
157 ; LENGTH IN BYTES OF INFORMATION READ
158 ; C.ADDR - ADDRESS OF BUFFER OF INFORMATION READ
159 ; C.TYPE - NOT CHANGED
160 ; C.PRID - NOT CHANGED
161 ; @C.ADDR - INFORMATION READ
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 7
SRRDIN
163 ;
164 ; REQUIREMENTS:
165 ;
166 ; CONFIGURATION CONTROL SYMBOLS:
167 ;
168 ; FR$LCC - LOCAL NODE COUNTERS
169 ; FR$LCS - LOCAL NODE STATUS
170 ; FR$RML - REMOTE NODE LISTINGS
171 ; FR$RMC - REMOTE NODE COUNTERS
172 ; FR$RMS - REMOTE NODE STATUS
173 ; FR$LNL - LINE-ID LISTINGS
174 ; FR$LNC - LINE COUNTERS
175 ; FR$LNS - LINE STATUS
176 ;
177 ; CONTROL BLOCK SYMBOLS:
178 ;
179 ; CE$FUN - INVALID FUNCTION ERROR RETURN CODE
180 ; C.RET - OFFSET OF RETURN CODE
181 ; C.LEN - OFFSET OF LENGTH
182 ; C.TYPE - OFFSET OF TYPE OF INFORMATION DESIRED
183 ;--
184 ;======================================================================;
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 8
SRRDIN
186 ;
187 ; EXTERNAL MACROS
188 ;
189 .MCALL CONDF ;AP0001
190 ; ;**-1
191 ; INTERNAL MACRO TO BUILD SERVICE TABLE ENTRY
192 ;
193 .MACRO SRVENT MNE,ABBR
194 .IF NE FR$'MNE
195 .WORD SR'ABBR
196 .IFF
197 .WORD 0
198 .ENDC
199 .ENDM
200 ;
201 ; DEFINE EXTERNAL SYMBOLS
202 ;
203 000000 CONDF ;CONTROL BLOCK SYMBOLS
204 ; ;**-1
205 ; INFORMATION REQUEST SERVICE TABLE
206 ;
207 000000 INFTAB:
208 ;
209 000000 SRVENT LCC,RNDC ;READ LOCAL NODE COUNTERS
210 000002 SRVENT LCS,RLCS ;READ LOCAL NODE STATUS
211 000004 SRVENT RML,RRML ;READ REMOTE NODE LISTINGS
212 000006 SRVENT RMC,RNDC ;READ REMOTE NODE COUNTERS
213 000010 SRVENT RMS,RRMS ;READ REMOTE NODE STATUS
214 000012 SRVENT LNL,RLNL ;READ LINE-ID LISTINGS
215 000014 SRVENT LNC,RLNC ;READ LINE COUNTERS
216 000016 SRVENT LNS,RLNS ;READ LINE STATUS
217 ;
218 000020 INFEND = .-INFTAB
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 9
SRRDIN
220 ;
221 ; PROCEDURE BODY
222 ;
223 000020 PROC SRRDIN
224 000020 116500 000016 MOVB C.TYPE(R5),R0 ;GET TYPE CODE OF INFO REQUESTED
225 000024 006300 ASL R0 ;TURN IT INTO TABLE POINTER
226 000026 016001 177776' MOV INFTAB-2(R0),R1 ;GET ADDRESS OF INFO REQUEST SERVICE
227 000032 IF ; ADDRESS OF INFORMAMTION REQUEST SERVICE EXISTS
228 000032 FALSE HI R0,#INFEND
229 000040 FALSE CLEAR R1
230 000044 THEN
231 000044 CALL @R1 ;DISPATCH SERVICE
232 000046 ELSE
233 000050 005065 000012 CLR C.LEN(R5) ;ZERO LENGTH OF INFORMATION READ
234 000054 112765 177777 000010 MOVB #CE$FUN,C.RET(R5) ;RETURN INVALID OPTION ERROR CODE
235 000062 ENDIF
236 000062 000241 CLC ;SERVICE COMPLETED, RETURN
237 000064 ENDPROC
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 10
SRRLCS
242 .SBTTL SRRLCS
243 ;
244 ;======================================================================;
245 ;++
246 ; +-------------------------------------------------+
247 ; I I
248 ; I S R R L C S I
249 ; I - - - - - - I
250 ; I I
251 ; +-------------------------------------------------+
252 ;
253 ; FUNCTION:
254 ;
255 ; READ LOCAL NODE STATUS
256 ;
257 ; CALLING SEQUENCE: CALL SRRLCS
258 ;
259 ; INPUT:
260 ;
261 ; R5 - ADDRESS OF CONTROL BLOCK
262 ; C.LEN - MAXIMUM LENGTH OF DATA BUFFER IN NUMBER OF BYTES
263 ; C.ADDR - ADDRESS OF DATA BLOCK FOR LOCAL NODE STATUS
264 ; ;**-1
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 11
SRRLCS
266 ; OUTPUT:
267 ;
268 ; C-BIT - CLEAR
269 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
270 ; C.RET - RETURN CODE
271 ; C.LEN - LENGTH OF RETURNED DATA BLOCK IN NUMBER OF BYTES
272 ; C.ADDR - ADDRESS OF UPDATED DATA BLOCK CONTAINING LOCAL NODE STATUS
273 ; @C.ADDR -
274 ;
275 ; I-----------------------------------I
276 ; I OPER LOG STATE I NODE STATE I
277 ; I-----------------------------------I
278 ; I I MAINT LOG STATE I
279 ; I- -I-----------------I
280 ; I I
281 ; I- -I
282 ; I DEFAULT HOST NODE NAME (I-6) I
283 ; I- -I
284 ; I I
285 ; I-----------------------------------I
286 ; I ROUTING VERSION I
287 ; I-----------------I- -I
288 ; I I I
289 ; I- -I-----------------I
290 ; I COMMUNICATIONS VERSION I
291 ; I-----------------------------------I
292 ; I SYSTEM VERSION (I-32) I
293 ; I- -I
294 ; I I
295 ; I- -I
296 ; : :
297 ; : :
298 ; : :
299 ; I- -I
300 ; I I
301 ; I-----------------------------------I
302 ;
303 ; REQUIREMENTS: ;**-1
304 ;
305 ; CONTROL BLOCK SYMBOLS:
306 ;
307 ; C.LEN - OFFSET OF LENGTH
308 ; C.ADDR - OFFSET OF BLOCK ADDRESS
309 ;
310 ; DLX SERVICE SYMBOLS: ;AP0001
311 ; ;AP0001
312 ; NX.NIC - NICE SERVICE QIO FUNCTION ;AP0001
313 ; NX$RNS - READ NODE STATUS SUBFUNCTION ;AP0001
314 ;-- ;**-28
315 ;======================================================================;
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 12
SRRLCS
317 ;
318 ; EXTERNAL MACROS
319 ;
320 .MCALL CONDF,NICDF,DLXDF,SRDF ;AP0001
321 .MCALL SAVSTK,RESSTK,QIOW$S ;AP0001
322 ; ;**-2
323 ; DEFINE EXTERNAL SYMBOLS
324 ;
325 000066 CONDF ;CONTROL BLOCK SYMBOLS
326 000066 NICDF ;NICE MESSAGE SYMBOLS
327 000066 DLXDF ;DLX NICE SERVICE SYMBOLS ;AP0001
328 000066 SRDF ;SERVICE SYMBOLS ;**-1
329 ; ;AP0001
330 ; HOLDING AREA FOR NODE / LINE NAME ;AP0001
331 ; ;AP0001
332 000066 NNAME: .BLKW 4 ;AP0001
333 ;AP0001
334 ;AP0001
335 000076 PROCLC GETNOD ;AP0001
336 000076 016500 000014 MOV C.ADDR(R5),R0 ;GET BUFFER ADDRESS ;AP0001
337 000102 012701 000066' MOV #NNAME,R1 ;AND HOLDING BUFFER ;AP0001
338 000106 112002 MOVB (R0)+,R2 ;THIS IS THE COUNT ;AP0001
339 000110 110221 MOVB R2,(R1)+ ;INSERT IT ;AP0001
340 000112 WHILE ; WE HAVE MORE OF THE NAME TO MOVE ;AP0001
341 000112 FALSE EQ,R2 ;AP0001
342 000116 DO ;AP0001
343 000116 112021 MOVB (R0)+,(R1)+ ;COPY IT OVER ;AP0001
344 000120 005302 DEC R2 ;AP0001
345 000122 ENDWHILE ;AP0001
346 000124 012701 000066' MOV #NNAME,R1 ;RECOVER THE HOLDING BUFFER ;AP0001
347 000130 111102 MOVB (R1),R2 ;AND GET ;AP0001
348 000132 005202 INC R2 ;THE LENGTH OF THE DATA ;AP0001
349 000134 ENDPROC ;AP0001
350 ;AP0001
351 ;AP0001
352 000136 PROCLC GETLIN ;AP0001
353 000136 016500 000014 MOV C.ADDR(R5),R0 ;GET BUFFER ADDRESS ;AP0001
354 000142 012701 000066' MOV #NNAME,R1 ;AND HOLDING BUFFER ;AP0001
355 000146 012702 000004 MOV #4,R2 ;MOVE THIS MUCH ;AP0001
356 000152 WHILE ; WE HAVE MORE OF THE LINE-ID TO MOVE ;AP0001
357 000152 FALSE EQ,R2 ;AP0001
358 000156 DO ;AP0001
359 000156 112021 MOVB (R0)+,(R1)+ ;COPY IT OVER ;AP0001
360 000160 005302 DEC R2 ;AP0001
361 000162 ENDWHILE ;AP0001
362 000164 012701 000066' MOV #NNAME,R1 ;RECOVER THE HOLDING BUFFER ;AP0001
363 000170 012702 000004 MOV #4,R2 ;AND SET LENGTH OF ID ;AP0001
364 000174 ENDPROC ;AP0001
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 13
SRRLCS
366 ;
367 ; PROCEDURE BODY
368 ;
369 000176 PROCLC SRRLCS ;AP0001
370 000176 012702 000067' MOV #NNAME+1,R2 ;GET OUR NODE NAME BUFFER ;AP0001
371 000202 012701 000006 MOV #6,R1 ;THIS MANY CHARACTERS ;AP0001
372 000206 CALL LOCNOD ;COPY THE LOCAL NODE NAME IN ;AP0001
373 000212 110167 177650 MOVB R1,NNAME ;STORE THE COUNT ;AP0001
374 000216 005201 INC R1 ;AND FIGURE TOTAL LENGTH ;AP0001
375 000220 012700 000010 MOV #C.RET,R0 ;COPY TO ;AP0001
376 000224 060500 ADD R5,R0 ;GET STATUS BLOCK ADDRESS ;AP0001
377 000226 QIOW$S #NX.NIC,#NCOLUN,#TEMFLG,,R0,,<#NNAME,R1,#NX$RNS,C.ADDR(R5),C.LEN(R5)> ;AP0001
378 ;READ THE NODE COUNTS ;AP0001
379 000302 CALL SRQNXF ;PROCESS DLX RETURN CODES FOR NODE FUNCTION ;AP0001
380 000306 ENDPROC ;AP0001
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 14
SRRLNC
386 .SBTTL SRRLNC
387 ;
388 ;======================================================================;
389 ;++
390 ; +-------------------------------------------------+
391 ; I I
392 ; I S R R L N C I
393 ; I - - - - - - I
394 ; I I
395 ; +-------------------------------------------------+
396 ;
397 ; FUNCTION:
398 ;
399 ; READ LINE COUNTERS
400 ;
401 ; CALLING SEQUENCE: CALL SRRLNC
402 ;
403 ; INPUT:
404 ;
405 ; R5 - ADDRESS OF CONTROL BLOCK
406 ; C.LEN - MAXIMUM LENGTH OF DATA BUFFER IN NUMBER OF BYTES
407 ; C.ADDR - ADDRESS OF DATA BLOCK FOR LINE COUNTERS
408 ; @C.ADDR -
409 ;
410 ; !-----------------------------------!
411 ; ! LINE CONTROLLER ! LINE DEVICE !
412 ; !-----------------------------------!
413 ; ! LINE STATION ! LINE NUMBER !
414 ; !-----------------------------------!
415 ;
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 15
SRRLNC
417 ; OUTPUT:
418 ;
419 ; C-BIT - CLEAR
420 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
421 ; C.RET - RETURN CODE
422 ; C.LEN - TOTAL LENGTH OF RETURNED DATA BLOCK IN NUMBER OF BYTES
423 ; C.ADDR - ADDRESS OF UPDATED DATA BLOCK CONTAINING LINE COUNTERS
424 ; @C.ADDR -
425 ;
426 ; !-----------------------------------!
427 ; ! LINE CONTROLLER ! LINE DEVICE !
428 ; !-----------------------------------!
429 ; ! LINE STATION ! LINE NUMBER !
430 ; !-----------------------------------!
431 ; ! COUNT LOW ! NL$ZRO !
432 ; !-----------------------------------!
433 ; ! NL$BRC ! COUNT HIGH !
434 ; !-----------------------------------!
435 ; ! COUNT HIGH ! COUNT LOW !
436 ; !-----------------------------------!
437 ; ! COUNT LOW ! NL$BTR !
438 ; !-----------------------------------!
439 ; ! NL$RTR ! COUNT HIGH !
440 ; !-----------------------------------!
441 ; ! COUNT HIGH ! COUNT LOW !
442 ; !-----------------------------------!
443 ; ! COUNT LOW ! NL$RLE !
444 ; !-----------------------------------!
445 ; ! NL$RES ! COUNT HIGH !
446 ; !-----------------------------------!
447 ; ! COUNT HIGH ! COUNT LOW !
448 ; !-----------------------------------!
449 ; ! COUNT LOW ! NL$TMO !
450 ; !-----------------------------------!
451 ; ! COUNT HIGH !
452 ; +-----------------!
453 ; NL$ZRO = TIME IN SECONDS SINCE LAST ZEROED
454 ; NL$BRC = BLOCKS RECEIVED
455 ; NL$BTR = BLOCKS SENT
456 ; NL$RTR = RETRANSMISSIONS, LINE ERRORS
457 ; NL$RLE = RECEIVED LINE ERRORS
458 ; NL$RES = RESOURCE ERRORS
459 ; NL$TMO = RECEIVE TIMEOUTS (NOT AVAILABLE FROM DMC11)
460 ;
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 16
SRRLNC
462 ; REQUIREMENTS:
463 ;
464 ; CONTROL BLOCK SYMBOLS:
465 ;
466 ; CE$LID - INVALID LINE-ID RETURN CODE
467 ; C.RET - OFFSET OF RETURN CODE
468 ; C.LEN - OFFSET OF LENGTH
469 ; C.ADDR - OFFSET OF BLOCK ADDRESS
470 ;
471 ; DLX SERVICE SYMBOLS: ;AP0001
472 ; ;AP0001
473 ; NX.NIC - NICE SERVICE QIO FUNCTION ;AP0001
474 ; NX$RLC - READ LINE COUNTS SUBFUNCTION ;AP0001
475 ; ;**-65
476 ;--
477 ;======================================================================;
478 ; ;**-1
479 ; EXTERNAL MACROS
480 ;
481 .MCALL CONDF,NICDF,DLXDF,SRDF,QIOW$S ;AP0001
482 .MCALL RESSTK,SAVSTK ;**-1
483 ; ;**-1
484 ; DEFINE EXTERNAL SYMBOLS
485 ;
486 000310 CONDF ;CONTROL BLOCK SYMBOLS ;**-1
487 000310 SRDF ;SERVICE SYMBOLS ;AP0001
488 000310 NICDF ;NICE MESSAGE SYMBOLS ;**-1
489 000310 DLXDF ;DLX NICE SERVICE SYMBOLS ;AP0001
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 17
SRRLNC
491 ; ;**-1
492 ; PROCEDURE BODY
493 ;
494 000310 PROCLC SRRLNC ;AP0001
495 000310 SAVSTK <R4,R3> ;GET ROOM TO MOVE ;AP0001
496 000314 CALL GETLIN ;COPY THE LINE-ID TO THE HOLDING AREA ;AP0001
497 000320 016503 000014 MOV C.ADDR(R5),R3 ;GET DESTINATION ADDRESS (DDB) ;AP0001
498 000324 060203 ADD R2,R3 ;INDEX TO RECEIVE DATA ;AP0001
499 000326 016504 000012 MOV C.LEN(R5),R4 ;GET LENGTH ;AP0001
500 000332 160204 SUB R2,R4 ;OF RECEIVE AREA ;AP0001
501 000334 012700 000010 MOV #C.RET,R0 ;COPY TO ;AP0001
502 000340 060500 ADD R5,R0 ;GET STATUS BLOCK ADDRESS ;AP0001
503 000342 QIOW$S #NX.NIC,#NCOLUN,#TEMFLG,,R0,,<R1,R2,#NX$RLC,R3,R4> ;AP0001
504 ;READ THE LINE COUNTS ;AP0001
505 000410 CALL SRQNXF ;PROCESS DLX RETURN CODES FOR LINE FUNCTION ;AP0001
506 000414 060265 000012 ADD R2,C.LEN(R5) ;ADD LINE-ID TO LENGTH OF RESPONSE ;AP0001
507 000420 RESSTK <R3,R4> ;YOU CAN HAVE THESE BACK ;AP0001
508 000424 ENDPROC ;AP0001
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 18
SRRLNL
514 .SBTTL SRRLNL
515 ;
516 ;======================================================================;
517 ;++
518 ; +-------------------------------------------------+
519 ; I I
520 ; I S R R L N L I
521 ; I - - - - - - I
522 ; I I
523 ; +-------------------------------------------------+
524 ;
525 ; FUNCTION:
526 ;
527 ; READ LISTING OF ALL KNOWN LINE-IDS OWNED BY A SPECIFIED PROCESS-ID TYPE
528 ;
529 ; CALLING SEQUENCE: CALL SRRLNL
530 ;
531 ; INPUT:
532 ;
533 ; R5 - ADDRESS OF CONTROL BLOCK
534 ; C.LEN - MAXIMUM LENGTH OF DATA BUFFER IN NUMBER OF BYTES
535 ; C.ADDR - ADDRESS OF DATA BLOCK FOR LISTING OF ALL LINE-IDS
536 ; C.PRID - PROCESS-ID TYPE OF OWNER OF LINES
537 ; 0 - LINES OWNED BY ANY PROCESS
538 ; 1 - LINES OWNED BY NSP
539 ;
540 ; OUTPUT:
541 ;
542 ; C-BIT - CLEAR
543 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
544 ; C.RET - RETURN CODE
545 ; C.LEN - NUMBER OF LINE-IDS RETURNED (CAN BE ZERO)
546 ; C.ADDR - ADDRESS OF UPDATED DATA BLOCK CONTAINING LINE-IDS
547 ; C.PRID - PROCESS-ID TYPE OF OWNER OF LINES (UNCHANGED)
548 ; @C.ADDR -
549 ;
550 ; !-----------------------------------!
551 ; ! LINE CONTROLLER ! LINE DEVICE !
552 ; !-----------------------------------!
553 ; ! LINE STATION ! LINE NUMBER !
554 ; !===================================!
555 ; ! LINE CONTROLLER ! LINE DEVICE !
556 ; !-----------------------------------!
557 ; ! LINE STATION ! LINE NUMBER !
558 ; !===================================!
559 ; ! LINE CONTROLLER ! LINE DEVICE !
560 ; !-----------------------------------!
561 ; ! LINE STATION ! LINE NUMBER !
562 ; !===================================!
563 ; ! ETC. ! !
564 ; !-----------------------------------!
565 ; ! ! !
566 ; !===================================!
567 ;
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 19
SRRLNL
569 ; REQUIREMENTS:
570 ;
571 ; CONTROL BLOCK SYMBOLS:
572 ;
573 ; CS$SUC - SUCCESS RETURN CODE
574 ; CE$FUN - INVALID FUNCTION OR OPTION ERROR RETURN CODE
575 ; CE$OVR - RESOURCE ERROR RETURN CODE
576 ; C.RET - OFFSET OF RETURN CODE
577 ; C.LEN - OFFSET OF LENGTH
578 ; C.ADDR - OFFSET OF BLOCK ADDRESS
579 ; C.PRID - OFFSET OF PROCESS-ID
580 ;
581 ; DLX SERVICE SYMBOLS: ;AP0001
582 ; ;AP0001
583 ; NX.NIC - NICE SERVICE QIO FUNCTION ;AP0001
584 ; NX$RLN - READ LINE IDENTIFIERS SUBFUNCTION ;AP0001
585 ; ;**-35
586 ;--
587 ;======================================================================;
588 ;
589 ; ;**-1
590 ; EXTERNAL MACROS
591 ;
592 .MCALL CONDF,DLXDF,SRDF,QIOW$S ;AP0001
593 .MCALL RESSTK,SAVSTK ;**-1
594 ; ;**-1
595 ; DEFINE EXTERNAL SYMBOLS
596 ;
597 000426 CONDF ;CONTROL BLOCK SYMBOLS
598 000426 DLXDF ;DLX NICE SERVICE SYMBOLS ;AP0001
599 000426 SRDF ;SERVICE SYMBOLS ;AP0001
600 ; ;**-6
601 ; TRANSLATION TABLE FROM PROCESS-ID TO PROCESS NUMBER (LINE OWNERSHIP)
602 ;
603 000426 000000 PRIDTB: .WORD 0 ;ANY OWNER ;AP0001
604 000430 055210 .RAD50 /NSP/ ;NSP IS OWNER ;AP0001
605 000004 PRIDLN = .-PRIDTB ;LENGTH OF PROCESS-ID TABLE ;**-2
606 .EVEN
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 20
SRRLNL
608 ;
609 ; PROCEDURE BODY
610 ;
611 000432 PROCLC SRRLNL ;AP0001
612 000432 116500 000017 MOVB C.PRID(R5),R0 ;GET PROCESS ID REQESTED ;AP0001
613 000436 006300 ASL R0 ;TURN INTO INDEX ;AP0001
614 000440 IF ; PROCESS-ID IS LEGAL ;AP0001
615 000440 FALSE GE R0,#PRIDLN ;AP0001
616 000446 THEN ;AP0001
617 000446 016000 000426' MOV PRIDTB(R0),R0 ;TRANSLATE PROCESS-ID TO LLC PROCESS NAME ;AP0001
618 000452 SAVSTK <R3,R4> ;GET ROOM TO MOVE ;AP0001
619 000456 016502 000014 MOV C.ADDR(R5),R2 ;GET BUFFER ADDRESS ;AP0001
620 000462 016503 000012 MOV C.LEN(R5),R3 ;LENGTH ;AP0001
621 000466 010204 MOV R2,R4 ;COPY ADDRESS AND ;AP0001
622 000470 IF ; BUFFER ADDRESS IS ODD ;AP0001
623 000470 FALSE CLEAR,#1,R4 ;AP0001
624 000476 THEN ;AP0001
625 000476 005204 INC R4 ;BUMP THE ADDRESS ;AP0001
626 000500 005303 DEC R3 ;AND DETRACT FROM THE COUNT ;AP0001
627 000502 ENDIF ;AP0001
628 000502 012701 000010 MOV #C.RET,R1 ;COPY TO GET ;AP0001
629 000506 060501 ADD R5,R1 ;STATUS BLOCK ADDRESS ;AP0001
630 000510 QIOW$S #NX.NIC,#NCOLUN,#TEMFLG,,R1,,<R4,R3,#NX$RLN,R4,R3> ;AP0001
631 ;READ THE LINE-IDS AND OWNERS ;AP0001
632 000556 CALL SRQNXF ;PROCESS DLX RETURN CODES FOR LINE FUNCTION ;AP0001
633 000562 IF ; SUCCESSFUL ;AP0001
634 000562 TRUE CC ;AP0001
635 000564 FALSEB LE,(R1) ;AP0001
636 000570 THEN ;AP0001
637 000570 010403 MOV R4,R3 ;FIGURE THE ;AP0001
638 000572 066503 000012 ADD C.LEN(R5),R3 ;END OF BUFFER ;AP0001
639 000576 005065 000012 CLR C.LEN(R5) ;INITITIALIZE COUNT OF LINES ;AP0001
640 000602 WHILE ; STILL MORE OF THE BUFFER TO LOOK AT ;AP0001
641 000602 FALSE HIS,R4,R3 ;AP0001
642 000606 DO ; CHECK IF IT IS A LINE WE WANT ;AP0001
643 000606 IF ; IT IS A WANTED LINE ;AP0001
644 000606 TRUE EQ,R0 ;AP0001
645 000612 FALSE NE,4(R4),R0 ;AP0001
646 000620 THEN ; COPY IT INTO A NEW LIST ;AP0001
647 000620 011422 MOV (R4),(R2)+ ;AP0001
648 000622 016422 000002 MOV 2(R4),(R2)+ ;AP0001
649 000626 005265 000012 INC C.LEN(R5) ;ONE MORE LINE... ;AP0001
650 000632 ENDIF ;AP0001
651 000632 062704 000006 ADD #6,R4 ;AP0001
652 000636 ENDWHILE ;AP0001
653 000640 ENDIF ;AP0001
654 000640 RESSTK <R4,R3> ;AP0001
655 000644 ELSE ;AP0001
656 000646 112765 177777 000010 MOVB #CE$FUN,C.RET(R5) ;INVALID PROCESS-ID SPECIFIED ;AP0001
657 000654 ENDIF ;AP0001
658 000654 ENDPROC ;AP0001
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 21
SRRLNS
664 .SBTTL SRRLNS
665 ;
666 ;======================================================================;
667 ;++
668 ; +-------------------------------------------------+
669 ; I I
670 ; I S R R L N S I
671 ; I - - - - - - I
672 ; I I
673 ; +-------------------------------------------------+
674 ;
675 ; FUNCTION:
676 ;
677 ; READ LINE STATUS
678 ;
679 ; CALLING SEQUENCE: CALL SRRLNS
680 ;
681 ; INPUT:
682 ;
683 ; R5 - ADDRESS OF CONTROL BLOCK
684 ; C.LEN - MAXIMUM LENGTH OF DATA BUFFER IN NUMBER OF BYTES
685 ; C.ADDR - ADDRESS OF DATA BLOCK FOR LINE STATUS
686 ; @C.ADDR -
687 ;
688 ; !-----------------------------------!
689 ; ! LINE CONTROLLER ! LINE DEVICE !
690 ; !-----------------------------------!
691 ; ! LINE STATION ! LINE NUMBER !
692 ; !-----------------------------------!
693 ;
694 ; OUTPUT:
695 ;
696 ; C-BIT - CLEAR
697 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
698 ; C.RET - RETURN CODE
699 ; C.LEN - LENGTH OF RETURNED DATA BLOCK IN NUMBER OF BYTES
700 ; C.ADDR - ADDRESS OF UPDATED DATA BLOCK CONTAINING LINE STATUS
701 ; @C.ADDR -
702 ;
703 ; !-----------------------------------!
704 ; ! LINE CONTROLLER ! LINE DEVICE !
705 ; !-----------------------------------!
706 ; ! LINE STATION ! LINE NUMBER !
707 ; !-----------------------------------!
708 ; ! OPER LOG STATE ! LINE STATE !
709 ; !-----------------------------------!
710 ; ! ! MAINT LOG STATE !
711 ; ! +-----------------!
712 ; ! !
713 ; ! !
714 ; ! REMOTE NODE NAME (I-6) !
715 ; ! !
716 ; ! !
717 ; !-----------------------------------!
718 ;
719 ; REQUIREMENTS:
720 ;
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 21-1
SRRLNS
721 ; CONTROL BLOCK SYMBOLS:
722 ;
723 ; CS$SUC - SUCCESS RETURN CODE
724 ; CE$LID - INVALID LINE-ID
725 ; CE$OVR - RESOURCE ERROR RETURN ERROR CODE
726 ; C.RET - OFFSET OF RETURN CODE
727 ; C.LEN - OFFSET OF LENGTH
728 ; C.ADDR - OFFSET OF BLOCK ADDRESS
729 ;
730 ; DLX SERVICE SYMBOLS: ;AP0001
731 ; ;AP0001
732 ; NX.NIC - NICE SERVICE QIO FUNCTION ;AP0001
733 ; NX$RLS - READ LINE STATUS SUBFUNCTION ;AP0001
734 ; ;**-43
735 ;--
736 ;======================================================================;
737 ;
738 ;
739 ; EXTERNAL MACROS
740 ;
741 .MCALL CONDF,NICDF,DLXDF,SRDF,QIOW$S ;AP0001
742 .MCALL RESSTK,SAVSTK ;**-1
743 ; ;**-1
744 ; DEFINE EXTERNAL SYMBOLS
745 ;
746 000656 CONDF ;CONTROL BLOCK SYMBOLS
747 000656 NICDF ;NICE MESSAGE SYMBOLS ;**-2
748 000656 DLXDF ;DLX NICE SERVICE SYMBOLS ;AP0001
749 000656 SRDF ;SERVICE SYMBOLS ;AP0001
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 22
SRRLNS
751 ;
752 ; PROCEDURE BODY
753 ;
754 000656 PROCLC SRRLNS ;AP0001
755 000656 SAVSTK <R4,R3> ;GET ROOM TO MOVE ;AP0001
756 000662 CALL GETLIN ;COPY THE LINE-ID TO THE HOLDING AREA ;AP0001
757 000666 016503 000014 MOV C.ADDR(R5),R3 ;GET DESTINATION ADDRESS (DDB) ;AP0001
758 000672 060203 ADD R2,R3 ;INDEX TO RECEIVE DATA ;AP0001
759 000674 016504 000012 MOV C.LEN(R5),R4 ;GET LENGTH ;AP0001
760 000700 160204 SUB R2,R4 ;OF RECEIVE AREA ;AP0001
761 000702 012700 000010 MOV #C.RET,R0 ;COPY TO ;AP0001
762 000706 060500 ADD R5,R0 ;GET STATUS BLOCK ADDRESS ;AP0001
763 000710 QIOW$S #NX.NIC,#NCOLUN,#TEMFLG,,R0,,<R1,R2,#NX$RLS,R3,R4> ;AP0001
764 ;READ THE LINE STATUS ;AP0001
765 000756 CALL SRQNXF ;PROCESS DLX RETURN CODES FOR LINE FUNCTION ;AP0001
766 000762 060265 000012 ADD R2,C.LEN(R5) ;ADD LINE-ID TO LENGTH OF RESPONSE ;AP0001
767 000766 RESSTK <R3,R4> ;YOU CAN HAVE THESE BACK ;AP0001
768 000772 ENDPROC ;AP0001
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 23
SRRNDC
774 .SBTTL SRRNDC
775 ;
776 ;======================================================================;
777 ;++
778 ; +-------------------------------------------------+
779 ; I I
780 ; I S R R N D C I
781 ; I - - - - - - I
782 ; I I
783 ; +-------------------------------------------------+
784 ;
785 ; FUNCTION:
786 ;
787 ; READ NODE COUNTS
788 ;
789 ; CALLING SEQUENCE: CALL SRRNDC
790 ;
791 ; INPUT:
792 ;
793 ; R5 - ADDRESS OF CONTROL BLOCK
794 ; C.LEN - MAXIMUM LENGTH OF DATA BUFFER IN NUMBER OF BYTES
795 ; C.ADDR - ADDRESS OF DATA BLOCK FOR NODE COUNTS
796 ; @C.ADDR -
797 ; NODE NAME (I-6)
798 ;
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 24
SRRNDC
800 ; OUTPUT:
801 ;
802 ; C-BIT - CLEAR
803 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
804 ; C.RET - RETURN CODE
805 ; C.LEN - LENGTH OF RETURNED DATA BLOCK IN NUMBER OF BYTES
806 ; C.ADDR - ADDRESS OF UPDATED DATA BLOCK CONTAINING NODE COUNTS
807 ;
808 ; C.ADDR(R5) --> I-----------------------------------I
809 ; I NODE NAME (I-6) I
810 ; I- -I
811 ; I I
812 ; I- -I
813 ; I I
814 ; I-----------------+- -I
815 ; I NN$ZRO I I
816 ; I-----------------------------------I
817 ; I COUNT HIGH I COUNT LOW I
818 ; I-----------------------------------I
819 ; I COUNT LOW I NN$UMS I
820 ; I-----------------------------------I
821 ; I NN$EXT I COUNT HIGH I
822 ; I-----------------------------------I
823 ; I COUNT HIGH I COUNT LOW I
824 ; I-----------------------------------I
825 ; I COUNT LOW I NN$NKS I
826 ; I-----------------------------------I
827 ; I NN$FMT I COUNT HIGH I
828 ; I-----------------------------------I
829 ; I COUNT HIGH I COUNT LOW I
830 ; I-----------------------------------I
831 ; I COUNT LOW I NN$RES I
832 ; I-----------------------------------I
833 ; I NN$IZS I COUNT HIGH I
834 ; I-----------------------------------I
835 ; I COUNT HIGH I COUNT LOW I
836 ; I-----------------------------------I
837 ; I COUNT LOW I NN$IZU I
838 ; I-----------------------------------I
839 ; I NN$CAC I COUNT HIGH I
840 ; I-----------------------------------I
841 ; I COUNT HIGH I COUNT LOW I
842 ; I-----------------------------------I
843 ; I COUNT LOW I NN$MAC I
844 ; I-----------------------------------I
845 ; I COUNT HIGH I
846 ; I-----------------I
847 ; NN$ZRO = SECONDS SINCE LAST ZEROED
848 ; NN$UMS = USER MESSAGES SENT
849 ; NN$EXT = EXTRANEOUS MESSAGES RECEIVED
850 ; NN$NKS = NEGATIVE ACKNOWLEDGEMENTS SENT
851 ; NN$FMT = FORMAT ERRORS OTHER THAN ROUTING
852 ; NN$RES = RESOURCE ERRORS
853 ; NN$IZS = SUCCESSFUL NEIGHBOR INITIALIZATIONS
854 ; NN$IZU = UNSUCCESSFUL NEIGHBOR INITIALIZATIONS
855 ; NN$CAC = CURRENTLY ACTIVE LOGICAL LINKS
856 ; NN$MAC = MAXIMUM LOGICAL LINKS ACTIVE
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 25
SRRNDC
858 ; REQUIREMENTS:
859 ;
860 ; CONTROL BLOCK SYMBOLS:
861 ;
862 ; CE$NOD - INVALID NODE NAME
863 ; C.RET - OFFSET OF RETURN CODE
864 ; C.LEN - OFFSET OF LENGTH
865 ; C.ADDR - OFFSET OF BLOCK ADDRESS
866 ;
867 ; DLX SERVICE SYMBOLS: ;AP0001
868 ; ;AP0001
869 ; NX.NIC - NICE SERVICE QIO FUNCTION ;AP0001
870 ; NX$RNC - READ NODE COUNTS SUBFUNCTION ;AP0001
871 ; ;**-32
872 ;--
873 ;======================================================================;
874 ;
875 ; ;**-1
876 ; EXTERNAL MACROS
877 ;
878 .MCALL CONDF,NICDF,DLXDF,SRDF,QIOW$S ;AP0001
879 .MCALL RESSTK,SAVSTK ;**-1
880 ; ;**-1
881 ; DEFINE EXTERNAL SYMBOLS
882 ;
883 000774 CONDF ;CONTROL BLOCK SYMBOLS
884 000774 NICDF ;NICE MESSAGE SYMBOLS ;**-1
885 000774 DLXDF ;DLX NICE SERVICE SYMBOLS ;AP0001
886 000774 SRDF ;SERVICE SYMBOLS ;AP0001
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 26
SRRNDC
888 ;
889 ; PROCEDURE BODY
890 ;
891 000774 PROCLC SRRNDC ;AP0001
892 000774 SAVSTK <R4,R3> ;GET ROOM TO MOVE ;AP0001
893 001000 CALL GETNOD ;COPY NODE NAME TO HOLDING AREA ;AP0001
894 001004 016503 000014 MOV C.ADDR(R5),R3 ;INDEX TO AREA ;AP0001
895 001010 060203 ADD R2,R3 ;TO RECEIVE DATA ;AP0001
896 001012 016504 000012 MOV C.LEN(R5),R4 ;GET LENGTH ;AP0001
897 001016 160204 SUB R2,R4 ;OF RECEIVE AREA ;AP0001
898 001020 012700 000010 MOV #C.RET,R0 ;COPY TO ;AP0001
899 001024 060500 ADD R5,R0 ;GET STATUS BLOCK ADDRESS ;AP0001
900 001026 QIOW$S #NX.NIC,#NCOLUN,#TEMFLG,,R0,,<R1,R2,#NX$RNC,R3,R4> ;AP0001
901 ;READ THE COUNTS ;AP0001
902 001074 CALL SRQNXF ;PROCESS DLX RETURN CODES FOR NODE FUNCTION ;AP0001
903 001100 060265 000012 ADD R2,C.LEN(R5) ;ADD NODE NAME TO RESPONSE LENGTH ;AP0001
904 001104 RESSTK <R3,R4> ;YOU CAN HAVE THESE BACK ;AP0001
905 001110 ENDPROC ;AP0001
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 27
SRRRML
911 .SBTTL SRRRML
912 ;
913 ;======================================================================;
914 ;++
915 ; +-------------------------------------------------+
916 ; I I
917 ; I S R R R M L I
918 ; I - - - - - - I
919 ; I I
920 ; +-------------------------------------------------+
921 ;
922 ; FUNCTION:
923 ;
924 ; READ LISTING OF ALL KNOWN REMOTE NODE NAMES
925 ;
926 ; CALLING SEQUENCE: CALL SRRRML
927 ;
928 ; INPUT:
929 ;
930 ; R5 - ADDRESS OF CONTROL BLOCK
931 ; C.LEN - MAXIMUM LENGTH OF DATA BUFFER IN NUMBER OF BYTES
932 ; C.ADDR - ADDRESS OF DATA BLOCK FOR LISTING OF ALL REMOTE NODE NAMES
933 ;
934 ; OUTPUT:
935 ;
936 ; C-BIT - CLEAR
937 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
938 ; C.RET - RETURN CODE
939 ; C.LEN - NUMBER OF REMOTE NODE NAMES RETURNED (CAN BE ZERO)
940 ; C.ADDR - ADDRESS OF UPDATED DATA BLOCK CONTAINING REMOTE NODE NAMES
941 ; @C.ADDR -
942 ; NODE NAME (I-6)
943 ; NODE NAME (I-6)
944 ; NODE NAME (I-6)
945 ; ETC.
946 ;
947 ; REQUIREMENTS:
948 ;
949 ; CONTROL BLOCK SYMBOLS:
950 ;
951 ; CS$SUC - SUCCESS RETURN CODE
952 ; CE$OVR - RESOURCE ERROR RETURN ERROR CODE
953 ; C.RET - OFFSET OF RETURN CODE
954 ; C.LEN - OFFSET OF LENGTH
955 ; C.ADDR - OFFSET OF BLOCK ADDRESS
956 ;
957 ; DLX SERVICE SYMBOLS: ;AP0001
958 ; ;AP0001
959 ; NX.NIC - NICE SERVICE QIO FUNCTION ;AP0001
960 ; NX$RNN - READ NODE NAMES SUBFUNCTION ;AP0001
961 ;-- ;**-7
962 ;======================================================================;
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 28
SRRRML
964 ;
965 ; EXTERNAL MACROS
966 ;
967 .MCALL CONDF,DLXDF,SRDF ;AP0001
968 .MCALL RESSTK,SAVSTK ;**-1
969 ; ;**-1
970 ; DEFINE EXTERNAL SYMBOLS
971 ;
972 001112 CONDF ;CONTROL BLOCK SYMBOLS
973 001112 DLXDF ;DLX NICE SERVICE SYMBOLS ;AP0001
974 001112 SRDF ;SERVICE SYMBOLS ;AP0001
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 29
SRRRML
976 ;
977 ; PROCEDURE BODY
978 ;
979 001112 PROCLC SRRRML ;AP0001
980 001112 SAVSTK <R3,R4> ;GET ROOM TO MOVE ;AP0001
981 001116 016502 000014 MOV C.ADDR(R5),R2 ;GET BUFFER ADDRESS ;AP0001
982 001122 010203 MOV R2,R3 ;COPY AND ;AP0001
983 001124 016504 000012 MOV C.LEN(R5),R4 ;GET LENGTH ;AP0001
984 001130 IF ; BUFFER ADDRESS IS ODD ;AP0001
985 001130 FALSE CLEAR,#1,R3 ;AP0001
986 001136 THEN ;AP0001
987 001136 005203 INC R3 ;BUMP THE ADDRESS ;AP0001
988 001140 005304 DEC R4 ;AND DETRACT FROM THE COUNT ;AP0001
989 001142 ENDIF ;AP0001
990 001142 012701 000010 MOV #C.RET,R1 ;COPY TO ;AP0001
991 001146 060501 ADD R5,R1 ;GET STATUS BLOCK ADDRESS ;AP0001
992 001150 QIOW$S #NX.NIC,#NCOLUN,#TEMFLG,,R1,,<R3,R4,#NX$RNN,R3,R4> ;AP0001
993 ;READ THE NODE-NAMES AND TYPES ;AP0001
994 001216 CALL SRQNXF ;PROCESS DLX RETURN CODES FOR LINE FUNCTION ;AP0001
995 001222 IF ; SUCCESSFUL ;AP0001
996 001222 TRUE CC ;AP0001
997 001224 FALSEB LE,(R1) ;AP0001
998 001230 THEN ;AP0001
999 001230 010301 MOV R3,R1 ;GET END OF BUFFER ;AP0001
1000 001232 066501 000012 ADD C.LEN(R5),R1 ;AP0001
1001 001236 005065 000012 CLR C.LEN(R5) ;INITITIALIZE COUNT OF NODES ;AP0001
1002 001242 WHILE ; STILL MORE OF THE BUFFER TO LOOK AT ;AP0001
1003 001242 FALSE HIS,R3,R1 ;AP0001
1004 001246 DO ; WEED OUT THE NODES WE WANT ;AP0001
1005 001246 112300 MOVB (R3)+,R0 ;PICK UP NODE TYPE ;AP0001
1006 001250 112304 MOVB (R3)+,R4 ;AND LENGTH OF NAME ;AP0001
1007 001252 IF ; THIS NODE IS NOT THE LOCAL NODE ;AP0001
1008 001252 FALSE EQ,#N$XLCL,R0 ;AP0001
1009 001260 THEN ; COPY IT INTO A NEW LIST ;AP0001
1010 001260 110422 MOVB R4,(R2)+ ;STORE THE NODE NAME LENGTH ;AP0001
1011 001262 WHILE ; WE HAVE MORE NODE NAME TO MOVE ;AP0001
1012 001262 FALSE LE,R4 ;AP0001
1013 001266 DO ; COPY THE NAME OVER ;AP0001
1014 001266 112322 MOVB (R3)+,(R2)+ ;AP0001
1015 001270 005304 DEC R4 ;AP0001
1016 001272 ENDWHILE ;AP0001
1017 001274 005265 000012 INC C.LEN(R5) ;ONE MORE NODE... ;AP0001
1018 001300 ELSE ;AP0001
1019 001302 060403 ADD R4,R3 ;PASS THIS NODE BY ;AP0001
1020 001304 ENDIF ;AP0001
1021 001304 ENDWHILE ;AP0001
1022 001306 ENDIF ;AP0001
1023 001306 RESSTK <R4,R3> ;AP0001
1024 001312 ENDPROC ;AP0001
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 30
SRRRMS
1030 .SBTTL SRRRMS
1031 ;
1032 ;======================================================================;
1033 ;++
1034 ; +-------------------------------------------------+
1035 ; I I
1036 ; I S R R R M S I
1037 ; I - - - - - - I
1038 ; I I
1039 ; +-------------------------------------------------+
1040 ;
1041 ; FUNCTION:
1042 ;
1043 ; READ REMOTE NODE STATUS
1044 ;
1045 ; CALLING SEQUENCE: CALL SRRRMS
1046 ;
1047 ; INPUT:
1048 ;
1049 ; R5 - ADDRESS OF CONTROL BLOCK
1050 ; C.LEN - MAXIMUM LENGTH OF DATA BUFFER IN NUMBER OF BYTES
1051 ; C.ADDR - ADDRESS OF DATA BLOCK FOR REMOTE NODE STATUS
1052 ; @C.ADDR -
1053 ; NODE NAME (I-6)
1054 ;
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 31
SRRRMS
1056 ; OUTPUT:
1057 ;
1058 ; C-BIT - CLEAR
1059 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
1060 ; C.RET - RETURN CODE
1061 ; C.LEN - LENGTH OF RETURNED DATA BLOCK IN NUMBER OF BYTES
1062 ; C.ADDR - ADDRESS OF UPDATED DATA BLOCK CONTAINING REMOTE NODE STATUS
1063 ;
1064 ; C.ADDR(R5) --> I-----------------------------------I
1065 ; I I
1066 ; I- -I
1067 ; I NODE NAME (I-6) I
1068 ; I- -I
1069 ; I I
1070 ; I-----------------+- -I
1071 ; I NODE # (EX-2) I I
1072 ; I-----------------------------------I
1073 ; I NODE STATE I NODE # (EX-2) I
1074 ; I-----------------------------------I
1075 ; I RECEIVE PASSWORD I
1076 ; I- -I
1077 ; I I
1078 ; I- -I
1079 ; I I
1080 ; I- -I
1081 ; I I
1082 ; I-----------------------------------I
1083 ; I TRANSMIT PASSWORD I
1084 ; I- -I
1085 ; I I
1086 ; I- -I
1087 ; I I
1088 ; I- -I
1089 ; I I
1090 ; I-----------------------------------I
1091 ;
1092 ; REQUIREMENTS:
1093 ;
1094 ; CONTROL BLOCK SYMBOLS:
1095 ;
1096 ; C.RET - OFFSET OF RETURN CODE ;**-1
1097 ; C.LEN - OFFSET OF LENGTH
1098 ; C.ADDR - OFFSET OF BLOCK ADDRESS
1099 ;
1100 ; DLX SERVICE SYMBOLS: ;AP0001
1101 ; ;AP0001
1102 ; NX.NIC - NICE SERVICE QIO FUNCTION ;AP0001
1103 ; NX$RNS - READ NODE STATUS SUBFUNCTION ;AP0001
1104 ; ;AP0002
1105 ; INPUT VIA LNDDAT: ;AP0002
1106 ; ;AP0002
1107 ; NAMLEN - LENGTH OF LOCAL NODE NAME ;AP0002
1108 ; NODNAM - LOCAL NODE NAME ;AP0002
1109 ;-- ;**-14
1110 ;======================================================================;
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 32
SRRRMS
1112 ;
1113 ; EXTERNAL MACROS
1114 ;
1115 .MCALL CONDF,SRDF,NICDF,DLXDF,LNDMDF,QIOW$S ;AP0002
1116 .MCALL RESSTK,SAVSTK ;**-1
1117 ; ;**-1
1118 ; DEFINE EXTERNAL SYMBOLS
1119 ;
1120 001314 CONDF ;CONTROL BLOCK SYMBOLS
1121 001314 DLXDF ;DLX NICE SERVICE SYMBOLS ;AP0001
1122 001314 SRDF ;SERVICE SYMBOLS ;AP0001
1123 ; ;AP0002
1124 ; DEFINE READ/WRITE MEMORY ;AP0002
1125 ; ;AP0002
1126 001314 LNDMDF ;LOCAL NODE NAME MEMORY ;AP0002
1127 001314 NICDF ;NICE MESSAGE SYMBOLS ;**-1
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 33
SRRRMS
1129 ;
1130 ; PROCEDURE BODY
1131 ;
1132 001314 PROCLC SRRRMS ;AP0001
1133 001314 SAVSTK <R4,R3> ;GET ROOM TO MOVE ;AP0001
1134 001320 CALL GETNOD ;COPY NODE NAME TO HOLDING AREA ;AP0001
1135 001324 IF ; NODE NAME LENGTHS EQUAL ;AP0002
1136 001324 016703 000002' MOV NAMLEN,R3 ;LENGTH OF NODE NAME ;AP0002
1137 001330 FALSEB NE (R1),R3 ;AP0005
1138 001334 THEN ;AP0002
1139 001334 WHILE ; MORE NODE NAME TO COMPARE ;AP0002
1140 001334 TRUE PL,R3 ;AP0002
1141 001340 FALSEB EQ,NNAME-1(R3),NODNAM-1(R3) ;AP0002
1142 001350 DO ;AP0002
1143 001350 005303 DEC R3 ;RUN THE INDEX DOWN ;AP0002
1144 001352 ENDWHILE ;AP0002
1145 001354 IF ; NODE NAMES MATCHED ;AP0002
1146 001354 FALSEB PL,R3 ;AP0002
1147 001360 THEN ;AP0002
1148 001360 105011 CLRB (R1) ;INVALIDATE THE NAME ;AP0002
1149 001362 ENDIF ;AP0002
1150 001362 ENDIF ;AP0002
1151 001362 016503 000014 MOV C.ADDR(R5),R3 ;INDEX TO AREA ;AP0001
1152 001366 060203 ADD R2,R3 ;TO RECEIVE DATA ;AP0001
1153 001370 016504 000012 MOV C.LEN(R5),R4 ;GET LENGTH ;AP0001
1154 001374 160204 SUB R2,R4 ;OF RECEIVE AREA ;AP0001
1155 001376 012700 000010 MOV #C.RET,R0 ;COPY TO ;AP0001
1156 001402 060500 ADD R5,R0 ;GET STATUS BLOCK ADDRESS ;AP0001
1157 001404 QIOW$S #NX.NIC,#NCOLUN,#TEMFLG,,R0,,<R1,R2,#NX$RNS,R3,R4> ;AP0001
1158 ;READ THE STATUS ;AP0001
1159 001452 CALL SRQNXF ;PROCESS DLX RETURN CODES FOR NODE FUNCTION ;AP0001
1160 001456 IF ; NO ERROR ;AP0005
1161 001456 FALSE CS ;AP0005
1162 001460 THEN ;AP0005
1163 001460 060265 000012 ADD R2,C.LEN(R5) ;ADD NODE NAME TO RESPONSE LENGTH ;AP0005
1164 001464 000241 CLC ;AP0005
1165 001466 ENDIF ;AP0005
1166 001466 RESSTK <R3,R4> ;YOU CAN HAVE THESE BACK ;AP0001
1167 001472 ENDPROC ;AP0001
1170 000001 .END
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 33-1
SYMBOL TABLE
A$$CHK= 000000 C$RCBK= 000047 FL$BOO= 000001 F$ORLU= 000000 LS$LOA= 000000
A$$CPS= 000000 C$RCEV= 000050 FL$DUM= 000001 F$OTLU= 000001 LS$LOO= 000001
A$$TRP= 000000 C$RCIN= 000062 FL$LOA= 000001 F$RCBK= 000002 LS$TRI= 000004
BLKFLG= 000003 C$RCMA= 000146 FL$LOO= 000001 F$RCEV= 000001 LS$TRQ= 000003
CE$ACP= 177753 C$RCMS= 000054 FR$LCC= 000001 F$RCIN= 000000 L$$ASG= 000000
CE$ADR= 177776 C$RDBK= 000043 FR$LCS= 000001 F$RCMA= 000000 L$$DRV= 000000
CE$CON= 177770 C$RDCM= 000035 FR$LNC= 000001 F$RCMS= 000002 L$$P11= 000001
CE$DIS= 177771 C$RDIN= 000040 FR$LNL= 000001 F$RDBK= 000000 L$$11R= 000000
CE$EOF= 177767 C$RDIS= 000040 FR$LNS= 000001 F$RDCM= 000000 M$$CRB= 000124
CE$FAI= 177774 C$RDRC= 000060 FR$RMC= 000001 F$RDIN= 000001 M$$CRX= 000000
CE$FIL= 177756 C$RLBF= 000001 FR$RML= 000001 F$RDIS= 000012 M$$FCS= 000000
CE$FUN= 177777 C$RLCB= 000002 FR$RMS= 000001 F$RDRC= 000000 M$$OVR= 000000
CE$GEN= 177774 C$RLCI= 000000 FS$HOS= 000001 F$RECO= 000001 NAMLEN 000002R 002
CE$IND= 177757 C$STBK= 000055 FS$INT= 000000 F$RLBF= 000001 NCOLUN= 000016
CE$IO = 177760 C$STPR= 000037 FS$LLP= 000001 F$RLCB= 000001 ND$BAD= 177777
CE$LEN= 177775 C$STPS= 000037 FS$LOF= 000001 F$STBK= 000000 ND$LCC= 000000
CE$LID= 177766 C$TRBK= 000046 FS$LOG= 000001 F$STPR= 000001 ND$LCS= 000001
CE$LST= 177752 C$TRIN= 000063 FS$LST= 000001 F$STPS= 000006 ND$LNC= 000004
CE$NOD= 177765 C$TRMA= 000145 FS$NET= 000001 F$TEST= 000001 ND$LNS= 000005
CE$NSD= 177755 C$TRMS= 000053 FS$NST= 000000 F$TRAC= 000000 ND$RMC= 000002
CE$NST= 177754 C$WRBK= 000044 FS$PAS= 000001 F$TRBK= 000001 ND$RMS= 000003
CE$NWE= 177773 C$WRCL= 000065 FT$CNS= 000000 F$TRIG= 000001 ND$ZLC= 000000
CE$OBJ= 177750 C$WRCM= 000036 FT$NOD= 000001 F$TRIN= 000000 ND$ZLN= 000002
CE$OPN= 177761 C$WRRC= 000061 FT$TSK= 000001 F$TRMA= 000000 ND$ZRM= 000001
CE$OVR= 177764 C$ZRCN= 000064 F$ALBF= 000001 F$TRMS= 000002 NETLUN= 000003
CE$PAR= 177763 C$$CKP= 000000 F$ALCB= 000001 F$WRBK= 000000 NE$CON= 177762
CE$PRO= 177751 C$$ORE= 000400 F$CB = 000017 F$WRCL= 000001 NE$FIL= 177763
CE$REJ= 177772 C$$RSH= 177564 F$CLCL= 000001 F$WRCM= 000000 NE$FIO= 177756
CE$TMO= 177762 C.ADDR= 000014 F$CLCO= 000000 F$WRRC= 000000 NE$FOR= 177776
CMILUN= 000002 C.BKNM= 000014 F$CLFL= 000000 F$ZERO= 000001 NE$FUN= 177777
CMOLUN= 000001 C.CTXT= 000004 F$CLLK= 000006 F$ZRCN= 000001 NE$LCO= 177766
CS$ACK= 000002 C.FUNC= 000006 F$CLLN= 000002 F$$LVL= 000001 NE$LID= 177770
CS$LKE= 000001 C.LEN = 000012 F$DPOS= 000001 F$150 = 000002 NE$LPR= 177757
CS$LNA= 000002 C.LINE= 000014 F$DUMP= 000000 F$300 = 000012 NE$LST= 177767
CS$LOG= 000003 C.LKNM= 000020 F$EVNT= 000001 F$50 = 000002 NE$NCO= 177755
CS$NCH= 000003 C.LUN = 000020 F$EXAM= 000001 F$550 = 000002 NE$NIC= 177753
CS$SUC= 000001 C.MODE= 000021 F$EXHO= 000000 GETLIN 000136R NE$NOD= 177765
C$ALBF= 000032 C.PRID= 000017 F$GTCM= 000001 GETNOD 000076R NE$NOR= 177754
C$ALCB= 000033 C.PROC= 000007 F$INCM= 000000 G$$TPP= 000000 NE$ORD= 177774
C$CLCL= 000067 C.PROM= 000016 F$INLU= 000001 G$$TSS= 000000 NE$PAR= 177760
C$CLCO= 000003 C.PTR = 000000 F$IRLU= 000000 G$$TTK= 000000 NE$RES= 177761
C$CLFL= 000004 C.RET = 000010 F$LKLU= 000010 INFEND= 000020 NE$SER= 177764
C$CLLK= 000052 C.SAVE= 000022 F$LNLU= 000002 INFTAB 000000R NE$STA= 177775
C$CLLN= 000005 C.SERV= 000002 F$LNSR= 000001 I$$RAR= 000000 NL$BRC= 000001
C$LEN = 000026 C.TASK= 000016 F$LOAD= 000000 I$$RDN= 000000 NL$BTR= 000002
C$NOPN= 000031 C.TYPE= 000016 F$LOGD= 000001 K$$CNT= 177546 NL$RES= 000005
C$NORD= 000032 C.WAIT= 000020 F$LOOP= 000001 K$$CSR= 177546 NL$RLE= 000004
C$OPCL= 000066 DM$END= 000000 F$NTCM= 000000 K$$LDC= 000000 NL$RTR= 000003
C$OPCO= 000034 DM$MIM= 000002 F$OPCL= 000001 K$$TPS= 000074 NL$TMO= 000006
C$OPIN= 000041 DM$PXA= 000003 F$OPCO= 000000 LD$LP = 000000 NL$ZRO= 000000
C$OPIR= 000056 DM$SAD= 000001 F$OPIN= 000000 LINLUN= 000017 NNAME 000066R
C$OPLK= 000051 D$$BUG= 177514 F$OPIR= 000000 LI$KNO= 000000 NN$CAC= 000011
C$OPLN= 000045 D$$ISK= 000000 F$OPLK= 000005 LI$STA= 000001 NN$CNI= 000013
C$OPOR= 000057 D$$L11= 000001 F$OPLN= 000002 LI$STR= 000002 NN$CNR= 000014
C$OPOT= 000042 FILLUN= 000014 F$OPLO= 000000 LNKLUN= 000004 NN$EXT= 000003
C$ORD = 000145 FLGGRP= 000000 F$OPOR= 000000 LOCNOD= ****** GX NN$FMT= 000005
C$PROC= 000200 FLGMSK= 000003 F$OPOT= 000000 LS$DUM= 000002 NN$IZS= 000007
SRRDIN MACRO M1110 13-OCT-79 12:42 PAGE 33-2
SYMBOL TABLE
NN$IZU= 000010 NX$SNO= 000034 PT$END= 000000 SP$LLP= 000011 ST$SHU= 000002
NN$MAC= 000012 NX$SNS= 000010 PT$HOS= 000003 SP$LNM= 000016 S$$WRG= 000000
NN$NKS= 000004 NX$XMT= 000030 PT$NAM= 000001 SP$LNO= 000015 S$$YSZ= 001600
NN$RES= 000006 NX$ZLC= 000020 PT$NUM= 000002 SP$LOF= 000012 TEMFLG= 000030
NN$UMR= 000002 NX$ZNC= 000006 P$$P45= 000000 SP$LST= 000001 TIMBIT= 000002
NN$UMS= 000001 NX.NIC= 017050 RI$LCC= 000001 SP$NDM= 000014 TIMFLG= 000002
NN$ZRO= 000000 N$DPOS= 000014 RI$LCS= 000002 SP$NDO= 000013 T$$KMG= 000000
NO = 000000 N$DUMP= 000003 RI$LNC= 000007 SP$NST= 000006 T$$MIN= 000000
NODNAM 000004R 002 N$EXAM= 000015 RI$LNL= 000006 SP$RRP= 000004 V$$CTR= 001000
NODNUM 000000R 002 N$LNSR= 000016 RI$LNS= 000010 SP$RTP= 000005 X$$DBT= 000000
NS$SUC= 000001 N$LOAD= 000002 RI$RMC= 000004 SRQNXF= ****** GX YES = 000001
NX$DEP= 000046 N$LOGD= 000001 RI$RML= 000003 SRRDIN 000020RG $$CSTA= 000000
NX$EXM= 000050 N$LOOP= 000005 RI$RMS= 000005 SRRLCS 000176R $$PRST= 000013
NX$RCV= 000032 N$RDIN= 000010 RI$ZLC= 000011 SRRLNC 000310R $$STIX= 000777
NX$RLC= 000016 N$STPR= 000007 RI$ZLN= 000013 SRRLNL 000432R $$STNM= 000000
NX$RLN= 000012 N$TEST= 000006 RI$ZRM= 000012 SRRLNS 000656R $$S770= 000077
NX$RLS= 000014 N$TRIG= 000004 R$$DER= 000000 SRRNDC 000774R $$S771= 000013
NX$RNC= 000004 N$XADJ= 000002 R$$K11= 000001 SRRRML 001112R $$S772= 000077
NX$RNN= 000000 N$XINT= 000003 R$$SND= 000000 SRRRMS 001314R $$S773= 000012
NX$RNS= 000002 N$XLCL= 000001 R$$11M= 000000 ST$DIS= 000006 $$S774= 000077
NX$SLH= 000026 N$XRMT= 000004 SERBIT= 000001 ST$ENA= 000005 $$S775= 000010
NX$SLM= 000042 N$ZERO= 000011 SERFLG= 000001 ST$LOO= 000003 $$S776= 000000
NX$SLO= 000040 N$$USR= 000001 SP$DHO= 000003 ST$MAI= 000004 $$S777= 000000
NX$SLS= 000022 N.MLEN= 000454 SP$DRP= 000007 ST$OFF= 000001 $$TRNM= 000000
NX$SNH= 000024 PRIDLN= 000004 SP$DTP= 000010 ST$ON = 000000 $$$ARG= 000002
NX$SNM= 000036 PRIDTB 000426R SP$LHO= 000002
. ABS. 000000 000
001474 001
LNDDAT 000012 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 11228 WORDS ( 44 PAGES)
DYNAMIC MEMORY: 12172 WORDS ( 46 PAGES)
ELAPSED TIME: 00:02:17
SRRDIN,[135,30]SRRDIN/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SRRDIN
SRRDIN CREATED BY MACRO ON 13-OCT-79 AT 12:43 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CE$FUN = 177777 9-234 20-656
C.ADDR = 000014 12-336 12-353 13-377 17-497 20-619 22-757 26-894 29-981 33-1151
C.LEN = 000012 *9-233 13-377 17-499 *17-506 20-620 20-638 *20-639 *20-649 22-759
*22-766 26-896 *26-903 29-983 29-1000 *29-1001 *29-1017 33-1153 *33-1163
C.PRID = 000017 20-612
C.RET = 000010 *9-234 13-375 17-501 20-628 *20-656 22-761 26-898 29-990 33-1155
C.TYPE = 000016 9-224
FL$BOO = 000001 #5-111 5-111
FL$DUM = 000001 #5-111 5-111
FL$LOA = 000001 #5-111 5-111
FL$LOO = 000001 #5-111 5-111
FR$LCC = 000001 #5-111 5-111 8-209 22-772
FR$LCS = 000001 #5-111 5-111 8-210 9-240
FR$LNC = 000001 #5-111 5-111 8-215 13-384
FR$LNL = 000001 #5-111 5-111 8-214 17-512
FR$LNS = 000001 #5-111 5-111 8-216 20-662
FR$RMC = 000001 #5-111 5-111 8-212 22-772
FR$RML = 000001 #5-111 5-111 8-211 26-909
FR$RMS = 000001 #5-111 5-111 8-213 29-1028
FS$HOS = 000001 #5-111 5-111
FS$INT = 000000 #5-111 5-111 5-111 5-111
FS$LLP = 000001 #5-111 5-111
FS$LOF = 000001 #5-111 5-111
FS$LOG = 000001 #5-111 5-111
FS$LST = 000001 #5-111 5-111
FS$NET = 000001 #5-111 5-111
FS$NST = 000000 #5-111 5-111
FS$PAS = 000001 #5-111 5-111
FT$CNS = 000000 #5-111 5-111
FT$NOD = 000001 #5-111 5-111
FT$TSK = 000001 #5-111 5-111
F$ALBF = 000001 #5-111
F$ALCB = 000001 #5-111
F$CB = 000017 #5-111
F$CLCL = 000001 #5-111 5-111 #5-111
F$CLCO = 000000 #5-111
F$CLFL = 000000 #5-111
F$CLLK = 000006 #5-111 5-111 #5-111 5-111 #5-111 5-111 #5-111 5-111 #5-111
5-111 #5-111 5-111 #5-111
F$CLLN = 000002 #5-111 5-111 #5-111 5-111 #5-111
F$DPOS = 000001 #5-111 5-111
F$DUMP = 000000 #5-111 5-111
F$EVNT = 000001 #5-111 5-111
F$EXAM = 000001 #5-111 5-111
F$EXHO = 000000 #5-111
F$GTCM = 000001 #5-111 5-111
F$INCM = 000000 #5-111 5-111
F$INLU = 000001 #5-111
F$IRLU = 000000 #5-111
F$LKLU = 000010 #5-111
F$LNLU = 000002 #5-111
F$LNSR = 000001 #5-111 5-111
SRRDIN CREATED BY MACRO ON 13-OCT-79 AT 12:43 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$LOAD = 000000 #5-111 5-111
F$LOGD = 000001 #5-111 5-111
F$LOOP = 000001 #5-111 5-111
F$NTCM = 000000 #5-111 5-111
F$OPCL = 000001 #5-111 5-111 #5-111
F$OPCO = 000000 #5-111
F$OPIN = 000000 #5-111
F$OPIR = 000000 #5-111
F$OPLK = 000005 #5-111 5-111 #5-111 5-111 #5-111 5-111 #5-111 5-111 #5-111
5-111 #5-111
F$OPLN = 000002 #5-111 5-111 #5-111 5-111 #5-111
F$OPLO = 000000 #5-111
F$OPOR = 000000 #5-111
F$OPOT = 000000 #5-111
F$ORLU = 000000 #5-111
F$OTLU = 000001 #5-111
F$RCBK = 000002 #5-111 5-111 #5-111 5-111 #5-111
F$RCEV = 000001 #5-111 5-111 #5-111
F$RCIN = 000000 #5-111
F$RCMA = 000000 #5-111
F$RCMS = 000002 #5-111 5-111 #5-111
F$RDBK = 000000 #5-111
F$RDCM = 000000 #5-111
F$RDIN = 000001 #5-111 5-111
F$RDIS = 000012 #5-111 5-111 #5-111 5-111 #5-111 5-111 #5-111 5-111 #5-111
5-111 #5-111 5-111 #5-111 5-111 #5-111 5-111 #5-111 5-111
#5-111 5-112 9-239 13-383 17-511 20-661 22-771 26-908 29-1027
F$RDRC = 000000 #5-111
F$RECO = 000001 #5-111 5-111 #5-111
F$RLBF = 000001 #5-111
F$RLCB = 000001 #5-111
F$STBK = 000000 #5-111
F$STPR = 000001 #5-111 5-111
F$STPS = 000006 #5-111 5-111 #5-111 5-111 #5-111 5-111 #5-111 5-111 #5-111
5-111 #5-111 5-111 #5-111
F$TEST = 000001 #5-111 5-111
F$TRAC = 000000 #5-111 9-223 9-223 9-237 9-237 12-335 12-335 12-349 12-349
12-352 12-352 12-364 12-364 13-369 13-369 13-380 13-380 17-494
17-494 17-508 17-508 20-611 20-611 20-658 20-658 22-754 22-754
22-768 22-768 26-891 26-891 26-905 26-905 29-979 29-979 29-1024
29-1024 33-1132 33-1132 33-1167 33-1167
F$TRBK = 000001 #5-111 5-111 #5-111
F$TRIG = 000001 #5-111 5-111
F$TRIN = 000000 #5-111
F$TRMA = 000000 #5-111
F$TRMS = 000002 #5-111 5-111 #5-111
F$WRBK = 000000 #5-111
F$WRCL = 000001 #5-111 5-111 #5-111
F$WRCM = 000000 #5-111
F$WRRC = 000000 #5-111
F$ZERO = 000001 #5-111 5-111
F$ZRCN = 000001 #5-111 5-111 #5-111
SRRDIN CREATED BY MACRO ON 13-OCT-79 AT 12:43 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$150 = 000002 #5-111
F$300 = 000012 #5-111
F$50 = 000002 #5-111
F$550 = 000002 #5-111
GETLIN 000136 R #12-352 17-496 22-756
GETNOD 000076 R #12-335 26-893 33-1134
INFEND = 000020 #8-218 9-228
INFTAB 000000 R #8-207 8-218 9-226
I$$AS = ****** 9-223 12-335 12-352 13-369 17-494 20-611 22-754 26-891 29-979
33-1132
LOCNOD = ****** GX 13-372
NAMLEN 000002 R #32-1126 33-1136
NCOLUN = 000016 13-377 17-503 20-630 22-763 26-900 29-992 33-1157
NNAME 000066 R #12-332 12-337 12-346 12-354 12-362 13-370 *13-373 13-377 33-1141
NO = 000000 #5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111
5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111
5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111
5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111
5-111 5-111 5-111
NODNAM 000004 R #32-1126 33-1141
NODNUM 000000 R #32-1126
NX$RLC = 000016 17-503
NX$RLN = 000012 20-630
NX$RLS = 000014 22-763
NX$RNC = 000004 26-900
NX$RNN = 000000 29-992
NX$RNS = 000002 13-377 33-1157
NX.NIC = 017050 13-377 17-503 20-630 22-763 26-900 29-992 33-1157
N$XLCL = 000001 29-1008
PRIDLN = 000004 #19-605 20-615
PRIDTB 000426 R #19-603 19-605 20-617
R$$11D = ****** 9-223 12-335 12-352 13-369 17-494 20-611 22-754 26-891 29-979
33-1132
R$$11M = 000000 9-223 12-335 12-352 13-369 17-494 20-611 22-754 26-891 29-979
33-1132
SRQNXF = ****** GX 13-379 17-505 20-632 22-765 26-902 29-994 33-1159
SRRDIN 000020 RG #9-223
SRRLCS 000176 R 8-210 #13-369
SRRLNC 000310 R 8-215 #17-494
SRRLNL 000432 R 8-214 #20-611
SRRLNS 000656 R 8-216 #22-754
SRRNDC 000774 R 8-209 8-212 #26-891
SRRRML 001112 R 8-211 #29-979
SRRRMS 001314 R 8-213 #33-1132
TEMFLG = 000030 13-377 17-503 20-630 22-763 26-900 29-992 33-1157
YES = 000001 #5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111
5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111
5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111
5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111 5-111
5-111 5-111 5-111 5-111 5-111
$$CSTA = 000000 #9-223 #12-335 #12-352 #13-369 #17-494 #20-611 #22-754 #26-891 #29-979
#33-1132
SRRDIN CREATED BY MACRO ON 13-OCT-79 AT 12:43 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$$PRST = 000013 #9-223 *9-227 #9-227 #12-335 *12-340 #12-340 #12-352 *12-356 #12-356
#13-369 #17-494 #20-611 20-614 #20-614 *20-622 #20-622 20-633 #20-633
20-640 #20-640 20-643 #20-643 #22-754 #26-891 #29-979 *29-984 #29-984
29-995 #29-995 29-1002 #29-1002 *29-1007 #29-1007 *29-1011 #29-1011 #33-1132
33-1135 #33-1135 33-1139 #33-1139 33-1145 #33-1145 33-1160 #33-1160
$$SLST = ****** 9-223 9-228 9-228 9-229 9-229 9-230 9-232 9-232 9-235
9-237 12-335 12-340 12-341 12-341 12-342 12-345 12-345 12-349
12-352 12-356 12-357 12-357 12-358 12-361 12-361 12-364 13-369
13-380 17-494 17-508 20-611 20-615 20-615 20-616 20-623 20-623
20-624 20-627 20-634 20-635 20-635 20-636 20-640 20-641 20-641
20-642 20-644 20-644 20-645 20-645 20-646 20-650 20-652 20-652
20-653 20-655 20-655 20-657 20-658 22-754 22-768 26-891 26-905
29-979 29-985 29-985 29-986 29-989 29-996 29-997 29-997 29-998
29-1002 29-1003 29-1003 29-1004 29-1008 29-1008 29-1009 29-1011 29-1012
29-1012 29-1013 29-1016 29-1016 29-1018 29-1018 29-1020 29-1021 29-1021
29-1022 29-1024 33-1132 33-1137 33-1137 33-1138 33-1139 33-1140 33-1140
33-1141 33-1141 33-1142 33-1144 33-1144 33-1146 33-1146 33-1147 33-1149
33-1150 33-1161 33-1162 33-1165 33-1167
$$STIX = 000777 #9-223 *9-227 *9-227 #9-227 *9-227 *9-227 #9-227 9-235 #9-235
9-235 9-235 #9-235 9-235 #12-335 *12-340 *12-340 #12-340 *12-340
*12-340 #12-340 12-345 #12-345 12-345 12-345 #12-345 12-345 #12-352
*12-356 *12-356 #12-356 *12-356 *12-356 #12-356 12-361 #12-361 12-361
12-361 #12-361 12-361 #13-369 #17-494 #20-611 20-614 20-614 #20-614
20-614 20-614 #20-614 *20-622 *20-622 #20-622 *20-622 *20-622 #20-622
20-627 #20-627 20-627 20-627 #20-627 20-627 20-633 20-633 #20-633
20-633 20-633 #20-633 20-640 20-640 #20-640 20-640 20-640 #20-640
20-643 20-643 #20-643 20-643 20-643 #20-643 20-650 #20-650 20-650
20-650 #20-650 20-650 20-652 #20-652 20-652 20-652 #20-652 20-652
20-653 #20-653 20-653 20-653 #20-653 20-653 20-657 #20-657 20-657
20-657 #20-657 20-657 #22-754 #26-891 #29-979 *29-984 *29-984 #29-984
*29-984 *29-984 #29-984 29-989 #29-989 29-989 29-989 #29-989 29-989
29-995 29-995 #29-995 29-995 29-995 #29-995 29-1002 29-1002 #29-1002
29-1002 29-1002 #29-1002 *29-1007 *29-1007 #29-1007 *29-1007 *29-1007 #29-1007
*29-1011 *29-1011 #29-1011 *29-1011 *29-1011 #29-1011 29-1016 #29-1016 29-1016
29-1016 #29-1016 29-1016 29-1020 #29-1020 29-1020 29-1020 #29-1020 29-1020
29-1021 #29-1021 29-1021 29-1021 #29-1021 29-1021 29-1022 #29-1022 29-1022
29-1022 #29-1022 29-1022 #33-1132 33-1135 33-1135 #33-1135 33-1135 33-1135
#33-1135 33-1139 33-1139 #33-1139 33-1139 33-1139 #33-1139 33-1144 #33-1144
33-1144 33-1144 #33-1144 33-1144 33-1145 33-1145 #33-1145 33-1145 33-1145
#33-1145 33-1149 #33-1149 33-1149 33-1149 #33-1149 33-1149 33-1150 #33-1150
33-1150 33-1150 #33-1150 33-1150 33-1160 33-1160 #33-1160 33-1160 33-1160
#33-1160 33-1165 #33-1165 33-1165 33-1165 #33-1165 33-1165
$$STNM = 000000 #9-223 *9-227 #9-227 *9-227 9-228 9-229 9-230 9-232 9-232
*9-235 #9-235 #12-335 *12-340 #12-340 *12-340 *12-340 12-341 12-342
12-345 12-345 #12-345 #12-352 *12-356 #12-356 *12-356 *12-356 12-357
12-358 12-361 12-361 #12-361 #13-369 #17-494 #20-611 20-614 #20-614
20-614 20-615 20-616 *20-622 #20-622 *20-622 20-623 20-624 20-627
#20-627 20-633 #20-633 20-633 20-634 20-635 20-636 20-640 #20-640
20-640 20-640 20-641 20-642 20-643 #20-643 20-643 20-644 20-645
20-646 20-650 #20-650 20-652 20-652 #20-652 20-653 #20-653 *20-655
20-655 *20-657 #20-657 #22-754 #26-891 #29-979 *29-984 #29-984 *29-984
29-985 29-986 29-989 #29-989 29-995 #29-995 29-995 29-996 29-997
SRRDIN CREATED BY MACRO ON 13-OCT-79 AT 12:43 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
29-998 29-1002 #29-1002 29-1002 29-1002 29-1003 29-1004 *29-1007 #29-1007
*29-1007 29-1008 29-1009 *29-1011 #29-1011 *29-1011 *29-1011 29-1012 29-1013
29-1016 29-1016 #29-1016 29-1018 29-1018 29-1020 #29-1020 29-1021 29-1021
#29-1021 29-1022 #29-1022 #33-1132 33-1135 #33-1135 33-1135 33-1137 33-1138
33-1139 #33-1139 33-1139 33-1139 33-1140 33-1141 33-1142 33-1144 33-1144
#33-1144 33-1145 #33-1145 33-1145 33-1146 33-1147 33-1149 #33-1149 33-1150
#33-1150 33-1160 #33-1160 33-1160 33-1161 33-1162 33-1165 #33-1165
$$S770 = 000077 #20-643 20-650 #29-1011 29-1016
$$S771 = 000013 #20-643 20-650 #29-1011 29-1016
$$S772 = 000077 #20-640 20-652 #29-1007 29-1020
$$S773 = 000012 #20-640 20-652 #29-1007 29-1020
$$S774 = 000077 #20-622 20-627 #20-633 20-653 #29-1002 29-1021 #33-1139 33-1144 #33-1145
33-1149
$$S775 = 000010 #20-622 20-627 #20-633 20-653 #29-1002 29-1021 #33-1139 33-1144 #33-1145
33-1149
$$S776 = 000000 #9-227 9-235 #12-340 12-345 #12-356 12-361 #20-614 20-657 #29-984
29-989 #29-995 29-1022 #33-1135 33-1150 #33-1160 33-1165
$$S777 = 000000 #9-227 9-235 #12-340 12-345 #12-356 12-361 #20-614 20-657 #29-984
29-989 #29-995 29-1022 #33-1135 33-1150 #33-1160 33-1165
$$TRNM = 000000 #9-223 *9-227 #9-227 9-228 9-229 9-230 9-232 #9-232 *9-235
#9-235 #12-335 *12-340 #12-340 12-341 12-342 12-345 #12-345 #12-352
*12-356 #12-356 12-357 12-358 12-361 #12-361 #13-369 #17-494 #20-611
20-614 #20-614 20-615 20-616 *20-622 #20-622 20-623 20-624 20-627
#20-627 20-633 #20-633 20-634 20-635 20-636 20-640 #20-640 20-641
20-642 20-643 #20-643 20-644 20-645 20-646 20-650 #20-650 20-652
#20-652 20-653 #20-653 20-655 #20-655 *20-657 #20-657 #22-754 #26-891
#29-979 *29-984 #29-984 29-985 29-986 29-989 #29-989 29-995 #29-995
29-996 29-997 29-998 29-1002 #29-1002 29-1003 29-1004 *29-1007 #29-1007
29-1008 29-1009 *29-1011 #29-1011 29-1012 29-1013 29-1016 #29-1016 29-1018
#29-1018 29-1020 #29-1020 29-1021 #29-1021 29-1022 #29-1022 #33-1132 33-1135
#33-1135 33-1137 33-1138 33-1139 #33-1139 33-1140 33-1141 33-1142 33-1144
#33-1144 33-1145 #33-1145 33-1146 33-1147 33-1149 #33-1149 33-1150 #33-1150
33-1160 #33-1160 33-1161 33-1162 33-1165 #33-1165
$$$ARG = 000002 #13-377 13-377 #13-377 13-377 #13-377 13-377 #13-377 13-377 #13-377
13-377 #13-377 13-377 13-377 #13-377 13-377 13-377 13-377 13-377
13-377 13-377 13-377 13-377 13-377 13-377 #13-377 13-377 13-377
13-377 13-377 13-377 13-377 13-377 13-377 13-377 13-377 #13-377
13-377 13-377 13-377 13-377 13-377 13-377 13-377 13-377 13-377
13-377 #17-503 17-503 #17-503 17-503 #17-503 17-503 #17-503 17-503
#17-503 17-503 #17-503 17-503 17-503 #17-503 17-503 17-503 17-503
17-503 17-503 17-503 17-503 17-503 17-503 17-503 #17-503 17-503
17-503 17-503 17-503 17-503 17-503 17-503 17-503 17-503 17-503
#17-503 17-503 17-503 17-503 17-503 17-503 17-503 17-503 17-503
17-503 17-503 #20-630 20-630 #20-630 20-630 #20-630 20-630 #20-630
20-630 #20-630 20-630 #20-630 20-630 20-630 #20-630 20-630 20-630
20-630 20-630 20-630 20-630 20-630 20-630 20-630 20-630 #20-630
20-630 20-630 20-630 20-630 20-630 20-630 20-630 20-630 20-630
20-630 #20-630 20-630 20-630 20-630 20-630 20-630 20-630 20-630
20-630 20-630 20-630 #22-763 22-763 #22-763 22-763 #22-763 22-763
#22-763 22-763 #22-763 22-763 #22-763 22-763 22-763 #22-763 22-763
22-763 22-763 22-763 22-763 22-763 22-763 22-763 22-763 22-763
#22-763 22-763 22-763 22-763 22-763 22-763 22-763 22-763 22-763
SRRDIN CREATED BY MACRO ON 13-OCT-79 AT 12:43 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
22-763 22-763 #22-763 22-763 22-763 22-763 22-763 22-763 22-763
22-763 22-763 22-763 22-763 #26-900 26-900 #26-900 26-900 #26-900
26-900 #26-900 26-900 #26-900 26-900 #26-900 26-900 26-900 #26-900
26-900 26-900 26-900 26-900 26-900 26-900 26-900 26-900 26-900
26-900 #26-900 26-900 26-900 26-900 26-900 26-900 26-900 26-900
26-900 26-900 26-900 #26-900 26-900 26-900 26-900 26-900 26-900
26-900 26-900 26-900 26-900 26-900 #29-992 29-992 #29-992 29-992
#29-992 29-992 #29-992 29-992 #29-992 29-992 #29-992 29-992 29-992
#29-992 29-992 29-992 29-992 29-992 29-992 29-992 29-992 29-992
29-992 29-992 #29-992 29-992 29-992 29-992 29-992 29-992 29-992
29-992 29-992 29-992 29-992 #29-992 29-992 29-992 29-992 29-992
29-992 29-992 29-992 29-992 29-992 29-992 #33-1157 33-1157 #33-1157
33-1157 #33-1157 33-1157 #33-1157 33-1157 #33-1157 33-1157 #33-1157 33-1157
33-1157 #33-1157 33-1157 33-1157 33-1157 33-1157 33-1157 33-1157 33-1157
33-1157 33-1157 33-1157 #33-1157 33-1157 33-1157 33-1157 33-1157 33-1157
33-1157 33-1157 33-1157 33-1157 33-1157 #33-1157 33-1157 33-1157 33-1157
33-1157 33-1157 33-1157 33-1157 33-1157 33-1157 33-1157
SRRDIN CREATED BY MACRO ON 13-OCT-79 AT 12:43 PAGE 7
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #9-231 #13-372 #13-379 #17-496 #17-505 #20-632 #22-756 #22-765 #26-893 #26-902
#29-994 #33-1134 #33-1159
CASE #9-223 #12-335 #12-352 #13-369 #17-494 #20-611 #22-754 #26-891 #29-979 #33-1132
CONDF #8-189 8-203 #12-320 12-325 #16-481 16-486 #19-592 19-597 #21-741 21-746
#25-878 25-883 #28-967 28-972 #32-1115 32-1120
CONFIG #5-106 #5-111
DIR$ #13-377 13-377 #17-503 17-503 #20-630 20-630 #22-763 22-763 #26-900 26-900
#29-992 29-992 #33-1157 33-1157
DLXDF #12-320 12-327 #16-481 16-489 #19-592 19-598 #21-741 21-748 #25-878 25-885
#28-967 28-973 #32-1115 32-1121
DO #9-223 #12-335 12-342 #12-352 12-358 #13-369 #17-494 #20-611 20-642 #22-754
#26-891 #29-979 29-1004 29-1013 #33-1132 33-1142
ELSE #9-223 9-232 #12-335 #12-352 #13-369 #17-494 #20-611 20-655 #22-754 #26-891
#29-979 29-1018 #33-1132
ENDCAS #9-223 #12-335 #12-352 #13-369 #17-494 #20-611 #22-754 #26-891 #29-979 #33-1132
ENDIF #9-223 #9-235 #12-335 #12-345 #12-352 #12-361 #13-369 #17-494 #20-611 #20-627
#20-650 #20-652 #20-653 #20-657 #22-754 #26-891 #29-979 #29-989 #29-1016 #29-1020
#29-1021 #29-1022 #33-1132 #33-1144 #33-1149 #33-1150 #33-1165
ENDPRO #9-223 9-237 #12-335 12-349 #12-352 12-364 #13-369 13-380 #17-494 17-508
#20-611 20-658 #22-754 22-768 #26-891 26-905 #29-979 29-1024 #33-1132 33-1167
ENDWHI #9-223 #12-335 #12-345 #12-352 #12-361 #13-369 #17-494 #20-611 #20-652 #22-754
#26-891 #29-979 #29-1016 #29-1021 #33-1132 #33-1144
FALSE #9-223 9-228 9-229 #12-335 12-341 #12-352 12-357 #13-369 #17-494 #20-611
20-615 20-623 20-641 20-645 #22-754 #26-891 #29-979 29-985 29-1003 29-1008
29-1012 #33-1132 33-1161
FALSEB #9-223 #12-335 #12-352 #13-369 #17-494 #20-611 #20-635 #22-754 #26-891 #29-979
#29-997 #33-1132 #33-1137 #33-1141 #33-1146
IF #9-223 9-227 #12-335 12-340 #12-352 12-356 #13-369 #17-494 #20-611 20-614
20-622 20-633 20-640 20-643 #22-754 #26-891 #29-979 29-984 29-995 29-1002
29-1007 29-1011 #33-1132 33-1135 33-1139 33-1145 33-1160
JMPPRO #9-223 #12-335 #12-352 #13-369 #17-494 #20-611 #22-754 #26-891 #29-979 #33-1132
LNDMDF #32-1115 #32-1126
MOV$ #13-377 #13-377 #13-377 #13-377 #13-377 #13-377 #13-377 #13-377 #13-377 #13-377
#13-377 #13-377 #17-503 #17-503 #17-503 #17-503 #17-503 #17-503 #17-503 #17-503
#17-503 #17-503 #17-503 #17-503 #20-630 #20-630 #20-630 #20-630 #20-630 #20-630
#20-630 #20-630 #20-630 #20-630 #20-630 #20-630 #22-763 #22-763 #22-763 #22-763
#22-763 #22-763 #22-763 #22-763 #22-763 #22-763 #22-763 #22-763 #26-900 #26-900
#26-900 #26-900 #26-900 #26-900 #26-900 #26-900 #26-900 #26-900 #26-900 #26-900
#29-992 #29-992 #29-992 #29-992 #29-992 #29-992 #29-992 #29-992 #29-992 #29-992
#29-992 #29-992 #33-1157 #33-1157 #33-1157 #33-1157 #33-1157 #33-1157 #33-1157 #33-1157
#33-1157 #33-1157 #33-1157 #33-1157
MVB$ #13-377 13-377 #17-503 17-503 #20-630 20-630 #22-763 22-763 #26-900 26-900
#29-992 29-992 #33-1157 33-1157
NICDF #12-320 #12-326 #16-481 #16-488 #21-741 #21-747 #25-878 #25-884 #32-1115 #32-1127
ONCASE #9-223 #12-335 #12-352 #13-369 #17-494 #20-611 #22-754 #26-891 #29-979 #33-1132
PROC #5-107 9-223
PROCLC #5-107 #9-223 12-335 #12-335 12-352 #12-352 13-369 #13-369 17-494 #17-494
20-611 #20-611 22-754 #22-754 26-891 #26-891 29-979 #29-979 33-1132 #33-1132
PROFLG #5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111
#5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111
#5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111
#5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111 #5-111
SRRDIN CREATED BY MACRO ON 13-OCT-79 AT 12:43 PAGE 8
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#5-111
QDPB$S #13-377 #13-377 #17-503 #17-503 #20-630 #20-630 #22-763 #22-763 #26-900 #26-900
#29-992 #29-992 #33-1157 #33-1157
QIOW$S #12-321 #13-377 #16-481 #17-503 #19-592 #20-630 #21-741 #22-763 #25-878 #26-900
#29-992 #32-1115 #33-1157
RESSTK #12-321 #16-482 #17-507 #19-593 #20-654 #21-742 #22-767 #25-879 #26-904 #28-968
#29-1023 #32-1116 #33-1166
RVP$ #13-377 #13-377 #13-377 #13-377 #17-503 #17-503 #17-503 #17-503 #20-630 #20-630
#20-630 #20-630 #22-763 #22-763 #22-763 #22-763 #26-900 #26-900 #26-900 #26-900
#29-992 #29-992 #29-992 #29-992 #33-1157 #33-1157 #33-1157 #33-1157
SAVSTK #12-321 #16-482 #17-495 #19-593 #20-618 #21-742 #22-755 #25-879 #26-892 #28-968
#29-980 #32-1116 #33-1133
SRDF #12-320 12-328 #16-481 16-487 #19-592 19-599 #21-741 21-749 #25-878 25-886
#28-967 28-974 #32-1115 32-1122
SRVENT #8-193 #8-209 #8-210 #8-211 #8-212 #8-213 #8-214 #8-215 #8-216
SWSTK$ #9-223 #12-335 #12-352 #13-369 #17-494 #20-611 #22-754 #26-891 #29-979 #33-1132
THEN #9-223 #9-230 #12-335 #12-342 #12-352 #12-358 #13-369 #17-494 #20-611 #20-616
#20-624 #20-636 #20-642 #20-646 #22-754 #26-891 #29-979 #29-986 #29-998 #29-1004
#29-1009 #29-1013 #33-1132 #33-1138 #33-1142 #33-1147 #33-1162
TRUE #9-223 #12-335 #12-352 #13-369 #17-494 #20-611 #20-634 #20-644 #22-754 #26-891
#29-979 #29-996 #33-1132 #33-1140
TRUEB #9-223 #12-335 #12-352 #13-369 #17-494 #20-611 #22-754 #26-891 #29-979 #33-1132
WHILE #9-223 #12-335 12-340 #12-352 12-356 #13-369 #17-494 #20-611 20-640 #22-754
#26-891 #29-979 29-1002 29-1011 #33-1132 33-1139
$$BGND #9-223 9-228 9-229 #12-335 12-341 #12-352 12-357 #13-369 #17-494 #20-611
20-615 20-623 20-634 20-635 20-641 20-644 20-645 #22-754 #26-891 #29-979
29-985 29-996 29-997 29-1003 29-1008 29-1012 #33-1132 33-1137 33-1140 33-1141
33-1146 33-1161
$$BGNN #9-223 9-228 9-229 9-232 #12-335 12-341 12-345 #12-352 12-357 12-361
#13-369 #17-494 #20-611 20-615 20-623 20-634 20-635 20-641 20-644 20-645
20-652 20-655 #22-754 #26-891 #29-979 29-985 29-996 29-997 29-1003 29-1008
29-1012 29-1016 29-1018 29-1021 #33-1132 33-1137 33-1140 33-1141 33-1144 33-1146
33-1161
$$ELSE #9-223 9-232 #12-335 #12-352 #13-369 #17-494 #20-611 20-655 #22-754 #26-891
#29-979 29-1018 #33-1132
$$GEN1 #9-223 9-223 9-228 9-229 9-229 9-230 9-232 9-232 9-235 9-237
#12-335 12-335 12-340 12-341 12-341 12-342 12-345 12-345 12-349 #12-352
12-352 12-356 12-357 12-357 12-358 12-361 12-361 12-364 #13-369 13-369
13-380 #17-494 17-494 17-508 #20-611 20-611 20-615 20-616 20-623 20-624
20-627 20-634 20-635 20-635 20-636 20-640 20-641 20-642 20-644 20-644
20-645 20-646 20-650 20-652 20-652 20-653 20-655 20-655 20-657 20-658
#22-754 22-754 22-768 #26-891 26-891 26-905 #29-979 29-979 29-985 29-986
29-989 29-996 29-997 29-997 29-998 29-1002 29-1003 29-1004 29-1008 29-1009
29-1011 29-1012 29-1012 29-1013 29-1016 29-1016 29-1018 29-1018 29-1020 29-1021
29-1021 29-1022 29-1024 #33-1132 33-1132 33-1137 33-1138 33-1139 33-1140 33-1140
33-1141 33-1142 33-1144 33-1144 33-1146 33-1146 33-1147 33-1149 33-1150 33-1161
33-1162 33-1165 33-1167
$$GEN2 #9-223 9-228 #12-335 #12-352 #13-369 #17-494 #20-611 20-615 20-623 20-641
20-645 #22-754 #26-891 #29-979 29-985 29-1003 29-1008 #33-1132 33-1137 33-1141
$$GNAB #9-223 #9-228 #12-335 #12-341 #12-352 #12-357 #13-369 #17-494 #20-611 #20-615
#20-634 #20-635 #20-641 #20-644 #20-645 #22-754 #26-891 #29-979 #29-996 #29-997
#29-1003 #29-1008 #29-1012 #33-1132 #33-1137 #33-1140 #33-1141 #33-1146 #33-1161
SRRDIN CREATED BY MACRO ON 13-OCT-79 AT 12:43 PAGE 9
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
$$GNBT #9-223 #9-229 #12-335 #12-352 #13-369 #17-494 #20-611 #20-623 #22-754 #26-891
#29-979 #29-985 #33-1132
$$GNCM #9-223 9-228 9-229 #12-335 12-341 #12-352 12-357 #13-369 #17-494 #20-611
20-615 20-623 20-634 20-635 20-641 20-644 20-645 #22-754 #26-891 #29-979
29-985 29-996 29-997 29-1003 29-1008 29-1012 #33-1132 33-1137 33-1140 33-1141
33-1146 33-1161
$$INMC #9-223 9-223 #12-335 12-335 #12-352 12-352 #13-369 13-369 #17-494 17-494
#20-611 20-611 #22-754 22-754 #26-891 26-891 #29-979 29-979 #33-1132 33-1132
$$INSY #9-223 9-223 #12-335 12-335 #12-352 12-352 #13-369 13-369 #17-494 17-494
#20-611 20-611 #22-754 22-754 #26-891 26-891 #29-979 29-979 #33-1132 33-1132
$$LAB #9-223 9-230 9-232 9-235 #12-335 12-340 12-342 12-345 #12-352 12-356
12-358 12-361 #13-369 #17-494 #20-611 20-616 20-624 20-627 20-636 20-640
20-642 20-646 20-650 20-652 20-653 20-655 20-657 #22-754 #26-891 #29-979
29-986 29-989 29-998 29-1002 29-1004 29-1009 29-1011 29-1013 29-1016 29-1018
29-1020 29-1021 29-1022 #33-1132 33-1138 33-1139 33-1142 33-1144 33-1147 33-1149
33-1150 33-1162 33-1165
$$POP #9-223 #9-235 #9-235 #12-335 #12-345 #12-345 #12-352 #12-361 #12-361 #13-369
#17-494 #20-611 #20-627 #20-627 #20-650 #20-650 #20-652 #20-652 #20-653 #20-653
#20-657 #20-657 #22-754 #26-891 #29-979 #29-989 #29-989 #29-1016 #29-1016 #29-1020
#29-1020 #29-1021 #29-1021 #29-1022 #29-1022 #33-1132 #33-1144 #33-1144 #33-1149 #33-1149
#33-1150 #33-1150 #33-1165 #33-1165
$$POPI #9-223 #9-235 #9-235 #12-335 #12-345 #12-345 #12-352 #12-361 #12-361 #13-369
#17-494 #20-611 #20-627 #20-627 #20-650 #20-650 #20-652 #20-652 #20-653 #20-653
#20-657 #20-657 #22-754 #26-891 #29-979 #29-989 #29-989 #29-1016 #29-1016 #29-1020
#29-1020 #29-1021 #29-1021 #29-1022 #29-1022 #33-1132 #33-1144 #33-1144 #33-1149 #33-1149
#33-1150 #33-1150 #33-1165 #33-1165
$$PUSH #9-223 #9-227 #9-227 #12-335 #12-340 #12-340 #12-352 #12-356 #12-356 #13-369
#17-494 #20-611 #20-614 #20-614 #20-622 #20-622 #20-633 #20-633 #20-640 #20-640
#20-643 #20-643 #22-754 #26-891 #29-979 #29-984 #29-984 #29-995 #29-995 #29-1002
#29-1002 #29-1007 #29-1007 #29-1011 #29-1011 #33-1132 #33-1135 #33-1135 #33-1139 #33-1139
#33-1145 #33-1145 #33-1160 #33-1160
$$STSM #9-223 #9-227 #9-227 #12-335 #12-340 #12-340 #12-352 #12-356 #12-356 #13-369
#17-494 #20-611 #20-614 #20-614 #20-622 #20-622 #20-633 #20-633 #20-640 #20-640
#20-643 #20-643 #22-754 #26-891 #29-979 #29-984 #29-984 #29-995 #29-995 #29-1002
#29-1002 #29-1007 #29-1007 #29-1011 #29-1011 #33-1132 #33-1135 #33-1135 #33-1139 #33-1139
#33-1145 #33-1145 #33-1160 #33-1160
$$SYS #9-223 #12-335 #12-352 #13-369 #17-494 #20-611 #22-754 #26-891 #29-979 #33-1132
$$TRCE #9-223 9-223 9-237 #12-335 12-335 12-349 #12-352 12-352 12-364 #13-369
13-369 13-380 #17-494 17-494 17-508 #20-611 20-611 20-658 #22-754 22-754
22-768 #26-891 26-891 26-905 #29-979 29-979 29-1024 #33-1132 33-1132 33-1167