Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/rimain.list
There are no other files named rimain.list in the archive.
RIMAIN MACRO M1110 13-OCT-79 11:00
TABLE OF CONTENTS
10- 144 RIABRT
12- 209 RIALL
14- 380 RIFINI
16- 511 RIGINF
18- 680 RIINIT
20- 792 RILBFA
23- 971 RILBFS
27- 1214 RIMAIN
29- 1431 RIPARS
34- 1699 RIRDLI
36- 1809 RISPEC
38- 1950 RITRCC
41- 2088 ZRALL
43- 2250 ZRCNTR
45- 2410 ZRLBFA
47- 2549 ZRLBFS
50- 2704 ZRSPEC
52- 2816 ZRTRC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 3
1 .TITLE RIMAIN
2 .NLIST CND
3 .IDENT /V01.00/
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 READ AND ZERO INFORMATION MAIN PROCESSOR
27 ;
28 ;
29 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
30 ;
31 ; IDENT HISTORY:
32 ;
33 ; 1.00 10-FEB-78
34 ; VERSION 2.0 RELEASE
35 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 4
37 ;
38 ;======================================================================;
39 ;++
40 ; +-------------------------------------------------+
41 ; I I
42 ; I R E A D & Z E R O I N F O R M A T I O N I
43 ; I - - - - - - - - - - - - - - - - - - - - - - - I
44 ; I I
45 ; +-------------------------------------------------+
46 ;
47 ; FUNCTION:
48 ;
49 ; PROCESSOR FOR NICE "READ INFORMATION" & "ZERO COUNTERS" FUNCTION
50 ;
51 ; CALLING SEQUENCE: CALL RIMAIN
52 ;
53 ; INPUT:
54 ;
55 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING "READ INFORMATION"
56 ; C.FUNC - FUNCTION CODE: #C$PROC
57 ; C.PROC - PROCESSOR NUMBER: #P$RDIN OR #P$ZERO
58 ; C.LEN - LENGTH OF NICE MESSAGE
59 ; C.ADDR - ADDRESS OF NICE MESSAGE
60 ; C.TYPE - CLEAR
61 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 5
63 ; OUTPUT:
64 ;
65 ; R4 - CLEAR
66 ; R5 - ADDRESS OF CONTROL BLOCK THAT REQUESTED "READ INFO"
67 ; C.CTXT - -1 COMPLETED SIGNAL
68 ; C.FUNC - FUNCTION CODE: #C$PROC
69 ; C.PROC - PROCESS CODE: #P$GTCM
70 ;
71 ; CONFIGURATION CONTROLS:
72 ;
73 ; F$RDIN - "READ INFORMATION" CONFIGURATION CONTROL FLAG
74 ; F$ZERO - ZERO COUNTERS CONFIGURATION CONTROL FLAG
75 ; FR$LCC - LOCAL COUNTERS CONFIGURATION CONTROL FLAG
76 ; FR$LCS - LOCAL STATUS CONFIGURATION CONTROL FLAG
77 ; FR$RML - REMOTE LISTINGS CONFIGURATION CONTROL FLAG
78 ; FR$RMC - REMOTE COUNTERS CONFIGURATION CONTROL FLAG
79 ; FR$RMS - REMOTE STATUS CONFIGURATION CONTROL FLAG
80 ; FR$LNL - LINE-ID LISTINGS CONFIGURATION CONTROL FLAG
81 ; FR$LNC - LINE COUNTERS CONFIGURATION CONTROL FLAG
82 ; FR$LNS - LINE STATUS CONFIGURATION CONTROL FLAG
83 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 6
85 ; BUFFER LAYOUTS FOR "READ INFORMATION" AND "ZERO COUNTERS":
86 ;
87 ; CONTROL BLOCK CONTEXT BLOCK
88 ;
89 ; I-----------------------I I-----------------------------I
90 ; R5 --> I C.PTR 0 I R4 ---> I MSBFHD 0 I
91 ; I-----------------------I ^ I-----------------------------I
92 ; I C.SERV 2 I ! I LILEN 2 I
93 ; I-----------------------I ! I-----------------------------I
94 ; I C.CTXT - - - 4 I - - - I LIADDR 4 I
95 ; I-----------------------I I-----------------------------I
96 ; I C.PROC 7 I C.FUNC 6 I I LIPTR 6 I
97 ; I-----------------------I !=============================!
98 ; I 11 I C.RET 10 I ! MSGCNT LO 11 MSGCOD 10 !
99 ; I-----------------------I !==============! !
100 ; I C.LEN 12 I I STATE 13 ! MSGCNT HI 12 !
101 ; I-----------------------I I--------------!==============!
102 ; I C.ADDR - - -14 I - - - I RETCOD 15 I SBSTAT 14 I
103 ; I-----------------------I ! I-----------------------------I
104 ; I C.PRID 17 I C.TYPE 16 I ! I 17 I OPTION 16 I
105 ; I-----------------------I ! I- -+--------------I
106 ; I C.LKNM 20 I ! I REMOTE NODE NAME (I-6) I
107 ; I-----------------------I ! I- -I
108 ; I C.SAVE 22 I ! I 6 BYTES ALWAYS RESERVED I
109 ; I-----------------------I ! I- -I
110 ; I 24 I ! I I
111 ; I-----------------------I ! I-----------------------------I
112 ; ! I LINE-ID 26 I
113 ; ! I- -I
114 ; ! I I
115 ; ! I--------------+- -I
116 ; ! I I
117 ; ! I--------------I
118 ; !
119 ; STANDARD LINE-ID FORMAT TYPE ( 1 ) : ! MESSAGE BLOCK
120 ; !
121 ; I-----------------I ! I-----------------------------I
122 ; I FORMAT TYPE = 1 I --> I I I
123 ; I-----------------I I-----------------------------I
124 ; I LINE DEVICE I I I I
125 ; I-----------------I I-----------------------------I
126 ; I LINE CONTROLLER I I I I
127 ; I-----------------I I-----------------------------I
128 ; I LINE NUMBER I I I I
129 ; I-----------------I I-----------------------------I
130 ; I LINE STATION I I I I
131 ; I-----------------I : ETC. : :
132 ;--
133 ;======================================================================;
134 ;
135 ; EXTERNAL MACROS
136 ;
137 .MCALL CONFIG
138 .MCALL PROC,PROCLC
139 ;
140 ; DEFINE EXTERNAL MACROS
141 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 6-1
142 000000 CONFIG ;CONFIGURATION CONTROL SYMBOLS
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 7
RIABRT
144 .SBTTL RIABRT
145 ;
146 ;======================================================================;
147 ;++
148 ; +-------------------------------------------------+
149 ; I I
150 ; I R I A B R T I
151 ; I - - - - - - I
152 ; I I
153 ; +-------------------------------------------------+
154 ;
155 ; FUNCTION:
156 ;
157 ; SET UP CONTEXT TO RETURN TO CALLER WITH ERROR CODE
158 ;
159 ; CALLING SEQUENCE: CALL RIABRT
160 ;
161 ; INPUT:
162 ;
163 ; R0 - ABORT CODE
164 ; R4 - ADDRESS OF THE CURRENT CONTEXT
165 ;
166 ; OUTPUT:
167 ;
168 ; C-BIT - SET
169 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
170 ; STATE - STATE CODE: #FINISH NEEDED
171 ; SBSTAT - CLEAR
172 ; RETCOD - ABORT RETURN CODE
173 ;
174 ; REQUIREMENTS:
175 ;
176 ; "READ INFORMATION" SYMBOLS
177 ;
178 ; STATE - OFFSET OF READ INFO STATE
179 ; SBSTAT - OFFSET OF READ INFO SUBSTATE
180 ; RETCOD - OFFSET OF RETURN CODE
181 ; FINISH - FINISH NEEDED STATE
182 ;
183 ;--
184 ;======================================================================;
185 ;
186 ;
187 ; EXTERNAL MACROS
188 ;
189 .MCALL RIDF
190 ;
191 ; DEFINE EXTERNAL SYMBOLS
192 ;
193 000000 RIDF ;"READ INFO" SYMBOLS
194 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 8
RIABRT
196 ;
197 ; PROCEDURE BODY
198 ;
199 000000 PROCLC RIABRT
200 000000 110064 000015 MOVB R0,RETCOD(R4) ;SET RETURN CODE FOR LATER
201 000004 105064 000014 CLRB SBSTAT(R4) ;INITIALIZE SUBSTATE
202 000010 112764 000002 000013 MOVB #FINISH,STATE(R4) ;START THE TERMINATION
203 000016 000261 SEC ;SIGNAL FAILURE FOR CALLER
204 000020 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 9
RIALL
209 .SBTTL RIALL
210 ;
211 ;======================================================================;
212 ;++
213 ; +-------------------------------------------------+
214 ; I I
215 ; I R I A L L I
216 ; I - - - - - I
217 ; I I
218 ; +-------------------------------------------------+
219 ;
220 ; FUNCTION:
221 ;
222 ; READ INFORMATION FROM ALL KNOWN NODES OR LINES,
223 ; RETURN INFORMATION IN NICE MESSAGES VIA LINK NUMBER
224 ;
225 ; CALLING SEQUENCE: CALL RIALL
226 ;
227 ; INPUT:
228 ;
229 ; R4 - ADDRESS OF THE CURRENT CONTEXT
230 ; SBSTAT - CLEAR
231 ; OPTION - NICE MESSAGE OPTION CODE
232 ; R5 - ADDRESS OF CONTROL BLOCK
233 ; C.ADDR - ADDRESS OF FREE MESSAGE BUFFER
234 ; C.TYPE - TYPE CODE OF INFORMATION DESIRED
235 ;
236 ; OUTPUT:
237 ;
238 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
239 ; LILEN - CLEAR
240 ; LIADDR - ADDRESS OF BUFFER OF LISTING OF NODES OR LINES
241 ; LIPTR - NOT PRESERVED
242 ; STATE - STATE CODE: #FINISH IF SUCCESS
243 ; SBSTAT - CLEAR IF SUCCESS
244 ; RETCOD - ABORT RETURN CODE IF SERVICE FAILED
245 ; OPTION - NICE MESSAGE OPTION CODE
246 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
247 ; C.RET - CLEAR IF SUCCESS, ABORT RETURN CODE IF TRANSMIT FAILED
248 ; C.ADDR - ADDRESS OF A FREE MESSAGE BUFFER
249 ; C.TYPE - TYPE CODE OF INFORMATION DESIRED
250 ; C.SAVE - NOT PRESERVED (2 WORDS)
251 ;
252 ; REQUIREMENTS:
253 ;
254 ; CONTROL BLOCK SYMBOLS:
255 ;
256 ; C$ALBF - ALLOCATE MEMORY BUFFER FUNCTION CODE
257 ; C$TRMS - TRANSMIT MESSAGE SYNCH. ON LOGICAL LINK FUNCTION CODE
258 ; C.FUNC - OFFSET OF FUNCTION CODE
259 ; C.RET - OFFSET OF RETURN CODE
260 ; C.LEN - OFFSET OF LENGTH
261 ; C.ADDR - OFFSET OF BLOCK ADDRESS
262 ; C.TYPE - OFFSET OF TYPE OF INFORMATION DESIRED
263 ; C.SAVE - OFFSET OF SAVE AREA (4 BYTES)
264 ; RI$RML - REMOTE NODE NAME LISTINGS TYPE CODE
265 ; RI$LNL - LINE-ID LISTINGS TYPE CODE
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 9-1
RIALL
266 ;
267 ; NICE MESSAGE SYMBOLS:
268 ;
269 ; N.MLEN - NICE MESSAGE LENGTH
270 ; ND$BAD - BAD DATA BLOCK TYPE CODE
271 ;
272 ; "READ INFORMATION" PROCESSOR SYMBOLS
273 ;
274 ; LILEN - OFFSET OF NUMBER OF NODES OR LINES LISTED
275 ; LIADDR - OFFSET OF ADDRESS OF LISTING OF NODES OR LINES
276 ; LIPTR - OFFSET OF ADDRESS OF NEXT NODE OR LINE TO PROCESS
277 ; MSGCOD - OFFSET OF NICE RETURN MESSAGE DATA BLOCK CODE
278 ; STATE - OFFSET OF READ INFO STATE
279 ; SBSTAT - OFFSET OF READ INFO SUBSTATE
280 ; FINISH - FINISH NEEDED STATE
281 ; ALBF - ALLOCATING MEMORY BUFFER SUBSTATE
282 ; RDIN - READING INFORMATION SUBSTATE
283 ; RDLI - READING LISTING OF ALL REMOTE NODE NAMES OR LINE-IDS
284 ; TRCC - TRANSMIT RETURN CODE & COUNT SUBSTATE
285 ; TRDB - TRANSMIT RETURN DATA BLOCK SUBSTATE
286 ;--
287 ;======================================================================;
288 ;
289 ;
290 ; EXTERNAL MACROS
291 ;
292 .MCALL CONDF,NICDF,RIDF
293 ;
294 ; DEFINE EXTERNAL SYMBOLS
295 ;
296 000022 CONDF ;CONTROL BLOCK SYMBOLS
297 000022 NICDF ;NICE MESSAGE SYMBOLS
298 000022 RIDF ;"READ INFORMATION" PROCESSOR SYMBOLS
299 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 10
RIALL
301 ;
302 ; PROCEDURE BODY
303 ;
304 000022 PROCLC RIALL
305 000022 IF ; SUBSTATE = 0
306 000022 FALSEB SET SBSTAT(R4)
307 000030 THEN
308 000030 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;GET ORIGINAL LENGTH OF BUFFER
309 000036 ENDIF
310 000036 IF ; SUBSTATE = 0 OR TYPE CODE = READ LISTINGS
311 000036 TRUEB CLEAR SBSTAT(R4)
312 000044 TRUEB EQ C.TYPE(R5),#RI$RML
313 000054 FALSEB NE C.TYPE(R5),#RI$LNL
314 000064 THEN
315 000064 CALL RIRDLI ;READ LISTINGS OF NODES OR LINES
316 000070 ENDIF
317 000070 IF ; SUBSTATE = READ LISTINGS
318 000070 FALSEB NE SBSTAT(R4),#RDLI
319 000100 THEN
320 000100 016564 000012 000002 MOV C.LEN(R5),LILEN(R4) ;SAVE NUMBER OF NAMES OR IDS READ
321 000106 016564 000014 000004 MOV C.ADDR(R5),LIADDR(R4) ;SAVE ADDRESS OF LISTING
322 000114 010465 000014 MOV R4,C.ADDR(R5) ;GET ADDRESS OF CONTEXT
323 000120 062765 000010 000014 ADD #MSGCOD,C.ADDR(R5) ;MAKE IT ADDRESS OF CODE & COUNT
324 000126 CALL RITRCC ;TRANSMIT RETURN CODE & COUNT
325 000132 ENDIF
326 000132 IF ; SUBSTATE = TRANSMIT RETURN CODE & COUNT
327 000132 FALSEB NE SBSTAT(R4),#TRCC
328 000142 THEN
329 000142 IF ; SUCCESS
330 000142 FALSEB LE C.RET(R5)
331 000150 THEN
332 000150 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;SET LENGTH OF NICE MESSAGE BUFFER
333 000156 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5) ;ALLOCATE NICE MESSAGE BUFFER
334 000164 112764 177777 000014 MOVB #-ALBF,SBSTAT(R4) ;SET SUBSTATE TO ALLOCATING BUFFER
335 000172 ENDIF
336 000172 ENDIF
337 000172 IF ; SUCCESS AND SUBSTATE = ALLOCATE BUFFER OR TRANSMIT DATA BLOCK
338 000172 FALSEB LE C.RET(R5)
339 000200 TRUEB EQ SBSTAT(R4),#ALBF
340 000210 FALSEB NE SBSTAT(R4),#TRDB
341 000220 THEN
342 000220 IF ; SUBSTATE = ALLOCATE BUFFER
343 000220 FALSEB NE SBSTAT(R4),#ALBF
344 000230 THEN
345 000230 016565 000014 000024 MOV C.ADDR(R5),C.SAVE+2(R5) ;SAVE ADDRESS OF NICE MESSAGE BUFFER
346 000236 016464 000004 000006 MOV LIADDR(R4),LIPTR(R4) ;INITIALIZE LISTING POINTER
347 000244 ENDIF
348 000244 IF ; MORE DATA BLOCKS LEFT TO BE READ AND TRANSMITTED
349 000244 FALSE LE LILEN(R4)
350 000252 THEN
351 000252 005364 000002 DEC LILEN(R4) ;DECREMENT NUMBER OF BLOCKS LEFT
352 000256 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;GET ORIGINAL LENGTH OF BUFFER
353 000264 CALL RILBFA ;LOAD BUFFER FOR "READ INFO" SERVICE
354 000270 ELSE
355 000272 105064 000014 CLRB SBSTAT(R4) ;CLEAN UP SUBSTATE
356 000276 112764 000002 000013 MOVB #FINISH,STATE(R4) ;SET STATE TO FINISH UP
357 000304 ENDIF
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 10-1
RIALL
358 000304 ENDIF
359 000304 IF ; SUBSTATE = READ INFORMATION
360 000304 FALSEB NE SBSTAT(R4),#RDIN
361 000314 THEN
362 000314 IF ; SUCCESS
363 000314 FALSEB LE C.RET(R5)
364 000322 THEN
365 000322 066565 000022 000012 ADD C.SAVE(R5),C.LEN(R5) ;MAKE FULL NICE MESSAGE LENGTH
366 000330 016565 000024 000014 MOV C.SAVE+2(R5),C.ADDR(R5) ;RESTORE ADDRESS OF MESSAGE BUFFER
367 000336 112765 000053 000006 MOVB #C$TRMS,C.FUNC(R5) ;SET FUNCTION TO TRANSMIT DATA BLOCK
368 000344 112764 177771 000014 MOVB #-TRDB,SBSTAT(R4) ;SET SUBSTATE TO TRANSMITTING DATA BLK
369 000352 ELSE
370 000354 105065 000010 CLRB C.RET(R5) ;CLEAR THE ERROR CONDITION
371 000360 112700 177777 MOVB #ND$BAD,R0 ;INDICATE BAD DATA BLOCK
372 000364 CALL RIABRT ;BLOW IT UP
373 000370 ENDIF
374 000370 ENDIF
375 000370 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 11
RIFINI
380 .SBTTL RIFINI
381 ;
382 ;======================================================================;
383 ;++
384 ; +-------------------------------------------------+
385 ; I I
386 ; I R I F I N I I
387 ; I - - - - - - I
388 ; I I
389 ; +-------------------------------------------------+
390 ;
391 ; FUNCTION:
392 ;
393 ; FINISH UP. IF "READ INFORMATION" WAS NOT SUCCESSFUL, TRANSMMIT
394 ; ABORT CODE. RELEASE MEMORY BUFFERS AND CONTEXT.
395 ;
396 ; CALLING SEQUENCE: CALL RIFINI
397 ;
398 ; INPUT:
399 ;
400 ; R4 - ADDRESS OF THE CURRENT CONTEXT
401 ; LIADDR - ADDRESS OF LISTINGS BUFFER OF NODES OR LINES
402 ; SBSTAT - CLEAR IF C.RET >= 0
403 ; RETCOD - RETURN CODE: CLEAR OR ABORT RETURN CODE
404 ; R5 - ADDRESS OF CONTROL BLOCK
405 ; C.CTXT - ADDRESS OF THE CURRENT CONTEXT
406 ; C.RET - RETURN CODE FROM LAST TRANSMIT
407 ; C.ADDR - ADDRESS OF NICE MESSAGE BUFFER
408 ;
409 ; OUTPUT:
410 ;
411 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
412 ; LIADDR - CLEAR
413 ; SBSTAT - CLEAR
414 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
415 ; C.CTXT - CLEAR
416 ; C.FUNC - FUCTION CODE: #C$RLBF RELEASE BUFFER
417 ; C.ADDR - NOT PRESERVED
418 ; C.SAVE+2 - NOT PRESERVED
419 ;
420 ; REQUIREMENTS:
421 ;
422 ; CONTROL BLOCK SYMBOLS:
423 ;
424 ; C$RLBF - RELEASE MEMORY BUFFER FUNCTION CODE
425 ; C$TRMS - TRANSMIT MESSAGE SYNCH. ON LOGICAL LINK FUNCTION CODE
426 ; C.CTXT - OFFSET OF PROCESSOR CONTEXT DATA POINTER
427 ; C.FUNC - OFFSET OF FUNCTION CODE
428 ; C.RET - OFFSET OF RETURN CODE
429 ; C.LEN - OFFSET OF LENGTH
430 ; C.ADDR - OFFSET OF BLOCK ADDRESS
431 ; C.SAVE - OFFSET OF SAVE AREA (4 BYTES)
432 ;
433 ; "READ INFORMATION" PROCESSOR SYMBOLS
434 ;
435 ; LENCNT - RETURN CODE & COUNT MESSAGE LENGTH
436 ; SBSTAT - OFFSET OF READ INFO SUBSTATE
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 11-1
RIFINI
437 ; RETCOD - OFFSET OF RETURN CODE
438 ; RLBF - RELEASE BUFFER SUBSTATE
439 ; TRCC - TRANSMIT RETURN CODE & COUNT SUBSTATE
440 ;--
441 ;======================================================================;
442 ;
443 ;
444 ; EXTERNAL MACROS
445 ;
446 .MCALL CONDF,RIDF
447 ;
448 ; DEFINE EXTERNAL SYMBOLS
449 ;
450 000372 CONDF ;CONTROL BLOCK SYMBOLS
451 000372 RIDF ;"READ INFORMATION" PROCESSOR SYMBOLS
452 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 12
RIFINI
454 ;
455 ; PROCEDURE BODY
456 ;
457 000372 PROCLC RIFINI
458 000372 IF ; CONTROL BLOCK RETURN CODE >= 0
459 000372 FALSEB MI C.RET(R5)
460 000400 THEN
461 000400 IF ; CONTEXT RETURN CODE < 0
462 000400 FALSEB PL RETCOD(R4)
463 000406 THEN
464 000406 016565 000014 000024 MOV C.ADDR(R5),C.SAVE+2(R5) ;SAVE ADDRESS OF NICE MESSAGE BUFFER
465 000414 010465 000014 MOV R4,C.ADDR(R5) ;GET ADDRESS OF CONTEXT
466 000420 062765 000010 000014 ADD #MSGCOD,C.ADDR(R5) ;MAKE IT ADDRESS OF CODE & COUNT
467 000426 016500 000014 MOV C.ADDR(R5),R0 ;GET BUFFER ADDRESS FOR RETURN CODE
468 000432 116420 000015 MOVB RETCOD(R4),(R0)+ ;INSERT THE NETWORK ERROR
469 000436 105020 CLRB (R0)+ ;INSERT ZERO FOR COUNT OF
470 000440 105020 CLRB (R0)+ ;RETURNING DATA BLOCKS
471 000442 105064 000015 CLRB RETCOD(R4) ;RESET CONTEXT RETURN ERROR CODE
472 000446 012765 000003 000012 MOV #LENCNT,C.LEN(R5) ;GET LENGTH OF MESSAGE BUFFER
473 000454 112765 000053 000006 MOVB #C$TRMS,C.FUNC(R5) ;SET FUNCTION TO TRANSMIT MESSAGE
474 000462 112764 177772 000014 MOVB #-TRCC,SBSTAT(R4) ;SET SBSTATE TO TRANSMITING CODE&CNT
475 000470 ENDIF
476 000470 ELSE
477 000472 105065 000010 CLRB C.RET(R5) ;CLEAN UP CONTROL BLOCK RETURN CODE
478 000476 105064 000015 CLRB RETCOD(R4) ;CLEAN UP CONTEXT BLOCK RETURN CODE
479 000502 105064 000014 CLRB SBSTAT(R4) ;CLEAN UP SUBSTATE
480 000506 ENDIF
481 000506 IF ; SUBSTATE = TRANSMIT RETURN CODE & COUNT
482 000506 FALSEB NE SBSTAT(R4),#TRCC
483 000516 THEN
484 000516 016565 000024 000014 MOV C.SAVE+2(R5),C.ADDR(R5) ;RESTORE ADDRESS OF NICE MESSAGE
485 000524 105064 000014 CLRB SBSTAT(R4) ;CLEAN UP SUBSTATE
486 000530 ENDIF
487 000530 IF ; SUBSTATE = 0
488 000530 FALSEB SET SBSTAT(R4)
489 000536 THEN
490 000536 112765 000001 000006 MOVB #C$RLBF,C.FUNC(R5) ;SET FUNCTION TO RELEASE BUFFER
491 000544 112764 177774 000014 MOVB #-RLBF,SBSTAT(R4) ;SET SBSTATE TO RELEASE NICE MESSAGE
492 000552 ENDIF
493 000552 IF ; SUBSTATE = RELEASE BUFFER
494 000552 FALSEB NE SBSTAT(R4),#RLBF
495 000562 THEN
496 000562 IF ; LISTINGS BUFFER HAS NOT BEEN RELEASED
497 000562 FALSE CLEAR LIADDR(R4)
498 000570 THEN
499 000570 016465 000004 000014 MOV LIADDR(R4),C.ADDR(R5) ;RELEASE THE LISTINGS BUFFER
500 000576 005064 000004 CLR LIADDR(R4) ;MARK AS GONE
501 000602 112764 177774 000014 MOVB #-RLBF,SBSTAT(R4) ;SET SBSTATE TO RELEASE LISTINGS BFR
502 000610 ELSE ; RELEASE THE CONTEXT
503 000612 016565 000004 000014 MOV C.CTXT(R5),C.ADDR(R5) ;RELEASE THE CONTEXT
504 000620 005065 000004 CLR C.CTXT(R5) ;MARK AS GONE
505 000624 105064 000014 CLRB SBSTAT(R4) ;CLEAN UP THE SUBSTATE
506 000630 ENDIF
507 000630 ENDIF
508 000630 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 13
RIGINF
511 .SBTTL RIGINF
512 ;
513 ;======================================================================;
514 ;++
515 ; +-------------------------------------------------+
516 ; I I
517 ; I R I G I N F I
518 ; I - - - - - - I
519 ; I I
520 ; +-------------------------------------------------+
521 ;
522 ; FUNCTION:
523 ;
524 ; GET INFORMATION REQUESTED,
525 ; RETURN THE INFORMATION IN NICE MESSAGES VIA LINK NUMBER
526 ;
527 ; CALLING SEQUENCE: CALL RIGINF
528 ;
529 ; INPUT:
530 ;
531 ; R4 - ADDRESS OF THE CURRENT CONTEXT
532 ; SBSTAT - CLEAR
533 ; OPTION - NICE MESSAGE OPTION CODE
534 ; RMNODE - REMOTE NODE NAME FOR WHICH INFORMATION IS REQUESTED
535 ; LINE - LINE-ID FOR WHICH INFORMATION IS REQUESTED
536 ; R5 - ADDRESS OF CONTROL BLOCK
537 ; C.ADDR - ADDRESS OF FREE MESSAGE BUFFER
538 ; C.TYPE - TYPE CODE OF INFORMATION DESIRED
539 ;
540 ; OUTPUT:
541 ;
542 ; C-BIT - CLEAR IF SUCCESS; SET IF INVALID TYPE CODE
543 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
544 ; STATE - STATE CODE: #FINISH
545 ; SBSTAT - CLEAR IF SUCCESS OR INVALID TYPE CODE
546 ; RETCOD - ABORT RETURN CODE: CLEAR IF SUCCESS;
547 ; NE$FUN IF INVALID TYPE CODE; ND$BAD IF SERVICE FAILED;
548 ; NE$LID IF INVALID LINE-ID
549 ; OPTION - NICE MESSAGE OPTION CODE
550 ; RMNODE - REMOTE NODE NAME FOR WHICH INFORMATION IS REQUESTED
551 ; LINE - LINE-ID FOR WHICH INFORMATION IS REQUESTED
552 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
553 ; C.RET - ABORT RETURN CODE IF TRANSMIT FAILED
554 ; C.ADDR - ADDRESS OF FREE MESSAGE BUFFER
555 ; C.TYPE - TYPE CODE OF INFORMATION DESIRED
556 ;
557 ; REQUIREMENTS:
558 ;
559 ; CONFIGURATION CONTROLS:
560 ;
561 ; FR$LCC - LOCAL COUNTERS CONFIGURATION CONTROL FLAG
562 ; FR$LCS - LOCAL STATUS CONFIGURATION CONTROL FLAG
563 ; FR$RML - REMOTE LISTINGS CONFIGURATION CONTROL FLAG
564 ; FR$RMC - REMOTE COUNTERS CONFIGURATION CONTROL FLAG
565 ; FR$RMS - REMOTE STATUS CONFIGURATION CONTROL FLAG
566 ; FR$LNL - LINE-ID LISTINGS CONFIGURATION CONTROL FLAG
567 ; FR$LNC - LINE COUNTERS CONFIGURATION CONTROL FLAG
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 13-1
RIGINF
568 ; FR$LNS - LINE STATUS CONFIGURATION CONTROL FLAG
569 ;
570 ; CONTROL BLOCK SYMBOLS:
571 ;
572 ; C.TYPE - OFFSET OF TYPE OF INFORMATION DESIRED
573 ; RI$LCC - LOCAL NODE COUNTERS TYPE CODE
574 ; RI$LCS - LOCAL NODE STATUS TYPE CODE
575 ; RI$RML - REMOTE NODE NAME LISTINGS TYPE CODE
576 ; RI$RMC - REMOTE NODE COUNTERS TYPE CODE
577 ; RI$RMS - REMOTE NODE STATUS TYPE CODE
578 ; RI$LNL - LINE-ID LISTINGS TYPE CODE
579 ; RI$LNC - LINE-ID COUNTERS TYPE CODE
580 ; RI$LNS - LINE-ID STATUS TYPE CODE
581 ;
582 ; NICE MESSAGE SYMBOLS:
583 ;
584 ; LI$KNO - ALL KNOWN LINE-ID FORMAT TYPE
585 ; LI$STA - STANDARD BINARY LINE-ID FORMAT TYPE
586 ; NE$FUN - INVALID FUCTION OR OPTION
587 ; NE$LID - INVALID LINE-ID
588 ;
589 ; "READ INFORMATION" SYMBOLS
590 ;
591 ; RETCOD - OFFSET OF RETURN CODE
592 ; RMNODE - OFFSET OF REMOTE NODE NAME
593 ; LINE - OFFSET OF LINE-ID
594 ;--
595 ;======================================================================;
596 ;
597 ;
598 ; EXTERNAL MACROS
599 ;
600 .MCALL CONDF,CONFIG,NICDF,RIDF
601 ;
602 ; DEFINE EXTERNAL SYMBOLS
603 ;
604 000632 CONDF ;CONTROL BLOCK SYMBOLS
605 000632 CONFIG ;CONFIGURATION CONTROL SYMBOLS
606 000632 NICDF ;NICE MESSAGE SYMBOLS
607 000632 RIDF ;"READ INFORMATION" SYMBOLS
608 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 14
RIGINF
610 ;
611 ; PROCEDURE BODY
612 ;
613 000632 PROCLC RIGINF
614 000632 105064 000015 CLRB RETCOD(R4) ;INITIALIZE ABORT RETURN CODE
615 000636 ONCASE ; TYPE INFORMATION REQUESTED CODE
616 000636 116500 000016 MOVB C.TYPE(R5),R0 ;GET TYPE CODE
618 000642 CASE ; TYPE CODE = READ LOCAL NODE INFORMATION
619 000642 TRUE EQ R0,#RI$LCC
620 000650 FALSE NE R0,#RI$LCS
621 000656 DO
622 000656 CALL RISPEC ;INFORMATION FOR THE LOCAL NODE
625 000662 CASE ; TYPE CODE = READ REMOTE NODE INFORMATION
626 000664 TRUE EQ R0,#RI$RML
627 000672 TRUE EQ R0,#RI$RMC
628 000700 FALSE NE R0,#RI$RMS
629 000706 DO
630 000706 ONCASE ; REMOTE NODE NAME LENGTH
631 000706 116400 000017 MOVB RMNODE(R4),R0 ;GET REMOTE NODE NAME LENGTH
632 000712 CASE ; LENGTH = 0 REQUESTING INFORMATION OF ALL KNOWN REMOTE NODES
633 000712 FALSE SET R0
634 000716 DO
636 000716 CALL RIALL ;INFORMATION OF ALL KNOWN REMOTE NODES
641 000722 CASE ; LENGTH > 0 REQUESTING INFORMATION OF SPECIFIED REMOTE NODE
642 000724 FALSE CLEAR R0
643 000730 DO
644 000730 CALL RISPEC ;INFORMATION OF SPECIFIED REMOTE NODE
645 000734 ENDCASE
648 000734 CASE ; TYPE CODE = READ LINE INFORMATION
649 000736 TRUE EQ R0,#RI$LNL
650 000744 TRUE EQ R0,#RI$LNC
651 000752 FALSE NE R0,#RI$LNS
652 000760 DO
653 000760 ONCASE ; LINE-ID FORMAT TYPE
654 000760 116400 000026 MOVB LINE(R4),R0 ;GET LINE-ID FORMAT TYPE
655 000764 CASE ; ALL KNOWN LINES
656 000764 FALSE NE R0,#LI$KNO
657 000772 DO
659 000772 CALL RIALL ;INFORMATION OF ALL KNOWN LINES
664 000776 CASE ; STANDARD LINE FORMAT
665 001000 FALSE NE R0,#LI$STA
666 001006 DO
667 001006 CALL RISPEC ;INFORMATION OF SPECIFIED LINE
668 001012 ELSE ; LINE-ID FORMAT TYPE NOT VALID
669 001014 012700 177770 MOV #NE$LID,R0 ;INVALID LINE-ID FORMAT TYPE
670 001020 CALL RIABRT ;BLOW IT UP
671 001024 ENDCASE
673 001024 ELSE ; TYPE CODE IS INVALID
674 001026 012700 177777 MOV #NE$FUN,R0 ;INVALID TYPE CODE
675 001032 CALL RIABRT ;BLOW IT UP
676 001036 ENDCASE
677 001036 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 15
RIINIT
680 .SBTTL RIINIT
681 ;
682 ;======================================================================;
683 ;++
684 ; +-------------------------------------------------+
685 ; I I
686 ; I R I I N I T I
687 ; I - - - - - - I
688 ; I I
689 ; +-------------------------------------------------+
690 ;
691 ; FUNCTION:
692 ;
693 ; INITIALIZE CONTEXT BLOCK FOR "READ INFORMATION"
694 ;
695 ; CALLING SEQUENCE: CALL RIINIT
696 ;
697 ; INPUT:
698 ;
699 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING "READ INFORMATION"
700 ; C.FUNC - FUCTION CODE: C$PROC
701 ; C.PROC - PROCESSOR NUMBER: #P$RDIN OR #P$ZERO
702 ; C.LEN - LENGTH OF NICE MESSAGE
703 ; C.ADDR - ADDRESS OF NICE MESSAGE
704 ;
705 ; OUTPUT:
706 ;
707 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
708 ; LILEN - CLEAR
709 ; LIADDR - CLEAR
710 ; LIPTR - CLEAR
711 ; MSGCOD - CLEAR
712 ; MSGCNT - CLEAR
713 ; STATE - STATE CODE: #GTINFO IF SUCCESS, #FINISH IF FAILURE
714 ; SBSTAT - CLEAR
715 ; RETCOD - CLEAR IF SUCCESS, ABORT RETURN CODE IF FAILURE
716 ; OPTION - NICE MESSAGE DATA BLOCK TYPE OPTION CODE
717 ; RMNODE - REMOTE NODE NAME (IF OPTION = #ND$RMC OR #ND$RMS)
718 ; LINE - LINE-ID (IF OPTION = #ND$LNC OR #ND$LNS)
719 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
720 ; C.CTXT - ADDRESS OF THE CURRENT CONTEXT
721 ; C.PROC - PROCESSOR NUMBER: #P$RDIN OR #P$ZERO
722 ; C.LEN - LENGTH OF PARSED NICE MESSAGE
723 ; C.ADDR - ADDRESS OF FREED NICE MESSAGE BUFFER
724 ;
725 ; REQUIREMENTS:
726 ;
727 ; CONTROL BLOCK SYMBOLS:
728 ;
729 ; C$ALBF - ALLOCATE MEMORY BUFFER FUNCTION CODE
730 ; C$PROC - PROCESS FUNCTION CODE
731 ; C.CTXT - OFFSET OF PROCESSOR CONTEXT DATA POINTER
732 ; C.FUNC - OFFSET OF FUNCTION CODE
733 ; C.PROC - OFFSET OF PROCESSOR NUMBER
734 ; C.LEN - OFFSET OF LENGTH
735 ; C.ADDR - OFFSET OF BLOCK ADDRESS
736 ; C.SAVE - OFFSET OF SAVE AREA (4 BYTES)
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 15-1
RIINIT
737 ;
738 ; "READ INFORMATION" SYMBOLS:
739 ;
740 ; STATE - OFFSET OF READ INFO STATE
741 ; SBSTAT - OFFSET OF READ INFO SUBSTATE
742 ; RETCOD - OFFSET OF RETURN CODE
743 ; CTXTLN - LENGTH OF CONTEXT BLOCK
744 ; GTINFO - GET INFORMATION NEEDED STATE
745 ;--
746 ;======================================================================;
747 ;
748 ;
749 ; EXTERNAL MACROS
750 ;
751 .MCALL CONDF,NICDF,RIDF
752 ;
753 ; DEFINE EXTERNAL SYMBOLS
754 ;
755 001040 CONDF ;CONTROL BLOCK SYMBOLS
756 001040 NICDF ;NICE MESSAGE SYMBOLS
757 001040 RIDF ;"READ INFORMATION" SYMBOLS
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 16
RIINIT
759 ;
760 ; PROCEDURE BODY
761 ;
762 001040 PROCLC RIINIT
763 001040 IF ; CONTROL BLOCK FUNCTION CODE = PROCESS JOB
764 001040 FALSEB NE C.FUNC(R5),#C$PROC
765 001050 THEN
766 001050 016565 000012 000022 MOV C.LEN(R5),C.SAVE(R5) ;SAVE LENGTH OF NICE MESSAGE
767 001056 016565 000014 000024 MOV C.ADDR(R5),C.SAVE+2(R5) ;SAVE ADDRESS OF NICE MESSAGE
768 001064 012765 000034 000012 MOV #CTXTLN,C.LEN(R5) ;SET LENGTH OF CONTEXT BLOCK
769 001072 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5) ;ALLOCATE CONTEXT BLOCK
770 001100 ELSE ; MUST HAVE FINISHED ALLOCATING CONTEXT BLOCK
771 001102 016504 000014 MOV C.ADDR(R5),R4 ;GET CONTEXT BLOCK ADDRESS
772 001106 010465 000004 MOV R4,C.CTXT(R5) ;AND PUT IT IN CONTROL BLOCK
773 001112 005000 CLR R0 ;SET UP A ZERO TO SPRAY
774 001114 010401 MOV R4,R1 ;START AT BEGINNING OF CONTEXT
775 001116 012702 000034 MOV #CTXTLN,R2 ;NUMBER OF BYTES TO SPRAY
776 001122 CALL SPRAY ;ZERO THE CONTEXT BLOCK
777 001126 016565 000022 000012 MOV C.SAVE(R5),C.LEN(R5) ;RESTORE SAVED NICE MESSAGE LENGTH
778 001134 016565 000024 000014 MOV C.SAVE+2(R5),C.ADDR(R5) ;RESTORE SAVED NICE MESSAGE ADDRESS
779 001142 CALL RIPARS ;PARSE THE MESSAGE INTO THE CONTEXT
780 001146 IF ; SUCCESS
781 001146 FALSEB SET RETCOD(R4)
782 001154 THEN
783 001154 112764 000001 000013 MOVB #GTINFO,STATE(R4) ;GO TO THE NEXT STATE
784 001162 105064 000014 CLRB SBSTAT(R4) ;WITH INITIAL SUBSTATE
785 001166 ENDIF
786 001166 ENDIF
787 001166 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 17
RILBFA
792 .SBTTL RILBFA
793 ;
794 ;======================================================================;
795 ;++
796 ; +-------------------------------------------------+
797 ; I I
798 ; I R I L B F A I
799 ; I - - - - - - I
800 ; I I
801 ; +-------------------------------------------------+
802 ;
803 ; FUNCTION:
804 ;
805 ; LOAD MESSAGE BUFFER FOR ALL NODES OR LINES, ONE PER EACH CALL.
806 ; SET ADDRESS OF BUFFER NEEDED BY "READ INFORMATION" SERVICE ROUTINE.
807 ;
808 ; CALLING SEQUENCE: CALL RILBFA
809 ;
810 ; INPUT:
811 ;
812 ; R4 - ADDRESS OF THE CURRENT CONTEXT
813 ; LIPTR - ADDRESS OF NEXT REMOTE NODE NAME OR LINE-ID TO PROCESS
814 ; OPTION - NICE DATA BLOCK TYPE OPTION CODE
815 ; R5 - ADDRESS OF CONTROL BLOCK
816 ; C.LEN - MAXIMUM LENGTH OF MESSAGE BUFFER
817 ; C.ADDR - ADDRESS OF MESSAGE BUFFER TO LOAD
818 ; C.TYPE - TYPE CODE OF INFORMATION DESIRED
819 ; (RI$RMC, RI$RMS, RI$LNC OR RI$LNS)
820 ;
821 ; OUTPUT:
822 ;
823 ; C-BIT - SET IF INVALID TYPE CODE, CLEARED IF VALID
824 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
825 ; LIPTR - ADDRESS OF NEXT REMOTE NODE NAME OR LINE-ID TO PROCESS
826 ; OPTION - NICE MESSAGE OPTION CODE
827 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
828 ; C.FUNC - FUCTION CODE: #C$RDIN READ INFORMATION
829 ; C.LEN - MAXIMUM LENGTH OF BUFFER FOR "READ INFO" SERVICE ROUTINE
830 ; C.ADDR - ADDRESS OF BUFFER NEEDED BY "READ INFO" SERVICE ROUTINE
831 ; C.TYPE - TYPE CODE OF INFORMATION DESIRED
832 ; C.SAVE - LENGTH OF INFORMATION LOADED INTO FRONT OF MESSAGE BUFFER
833 ; THAT IS NOT PASSED TO "READ INFO" SERVICE ROUTINE
834 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 18
RILBFA
836 ; MESSAGE BUFFER:
837 ;
838 ; TO READ REMOTE NODE COUNTERS OR STATUS:
839 ;
840 ; I----------------------I
841 ; I NICE DATA BLOCK TYPE I BLOCK TYPE = ND$RMC OR ND$RMS
842 ; I----------------------I
843 ; C.ADDR(R5) --> I I
844 ; I-- --I C.LEN(R5) = N.MLEN - 1
845 ; I I
846 ; I-- --I C.TYPE(R5) = RI$RMC OR RI$RMS
847 ; I I
848 ; I-- --I C.SAVE(R5) = 1
849 ; I REMOTE NODE NAME(I-6)I
850 ; I-- --I
851 ; I I
852 ; I-- --I
853 ; I I
854 ; I-- --I
855 ; I I
856 ; I----------------------I
857 ;
858 ; TO READ LINE COUNTERS OR STATUS:
859 ;
860 ; I----------------------I
861 ; I NICE DATA BLOCK TYPE I BLOCK TYPE = ND$LNC OR ND$LNS
862 ; I----------------------I
863 ; I LINE-ID FORMAT TYPE I FORMAT TYPE= 1
864 ; I----------------------I
865 ; C.ADDR(R5) --> I LINE DEVICE I
866 ; I----------------------I C.LEN(R5) = N.MLEN - 2
867 ; I LINE CONTROLLER I
868 ; I----------------------I C.TYPE(R5) = RI$LNC OR RI$LNS
869 ; I LINE NUMBER I
870 ; I----------------------I C.SAVE(R5) = 2
871 ; I LINE STATION I
872 ; I----------------------I
873 ;
874 ; REQUIREMENTS:
875 ;
876 ; CONTROL BLOCK SYMBOLS:
877 ;
878 ; C$RDIN - READ INFORMATION FUNCTION CODE
879 ; C.FUNC - OFFSET OF FUNCTION CODE
880 ; C.LEN - OFFSET OF LENGTH
881 ; C.ADDR - OFFSET OF BLOCK ADDRESS
882 ; C.TYPE - OFFSET OF TYPE OF INFORMATION DESIRED
883 ; C.SAVE - OFFSET OF SAVE AREA (4 BYTES)
884 ; RI$LCC - LOCAL NODE COUNTERS TYPE CODE
885 ; RI$LCS - LOCAL NODE STATUS TYPE CODE
886 ; RI$RML - REMOTE NODE NAME LISTINGS TYPE CODE
887 ; RI$RMC - REMOTE NODE COUNTERS TYPE CODE
888 ; RI$RMS - REMOTE NODE STATUS TYPE CODE
889 ; RI$LNL - LINE-ID LISTINGS TYPE CODE
890 ; RI$LNC - LINE-ID COUNTERS TYPE CODE
891 ; RI$LNS - LINE-ID STATUS TYPE CODE
892 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 18-1
RILBFA
893 ; NICE MESSAGE SYMBOLS:
894 ;
895 ; LI$STA - STANDARD BINARY LINE-ID FORMAT TYPE
896 ;
897 ; "READ INFORMATION" PROCESSOR SYMBOLS
898 ;
899 ; LINLEN - LINE-ID LENGTH
900 ; LIPTR - OFFSET OF ADDRESS OF NEXT NODE OR LINE TO PROCESS
901 ; SBSTAT - OFFSET OF READ INFO SUBSTATE
902 ; OPTION - OFFSET OF NICE MESSAGE OPTION FIELD
903 ; RDIN - READING INFORMATION SUBSTATE
904 ;--
905 ;======================================================================;
906 ;
907 ;
908 ; EXTERNAL MACROS
909 ;
910 .MCALL CONDF,NICDF,RIDF
911 ;
912 ; DEFINE EXTERNAL SYMBOLS
913 ;
914 001170 CONDF ;CONTROL BLOCK SYMBOLS
915 001170 NICDF ;NICE MESSAGE SYMBOLS
916 001170 RIDF ;"READ INFORMATION" PROCESSOR SYMBOLS
917 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 19
RILBFA
919 ;
920 ; PROCEDURE BODY
921 ;
922 001170 PROCLC RILBFA
923 001170 116500 000016 MOVB C.TYPE(R5),R0 ;GET TYPE CODE
924 001174 IF ; TYPE CODE NOT VALID
925 001174 TRUE EQ R0,#RI$LCC
926 001202 TRUE EQ R0,#RI$LCS
927 001210 TRUE EQ R0,#RI$RML
928 001216 FALSE NE R0,#RI$LNL
929 001224 THEN
930 001224 000261 SEC ;SHOW FAILURE
931 001226 ELSE
932 001230 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF NICE MESSAGE BUFFER
933 001234 116422 000016 MOVB OPTION(R4),(R2)+ ;MOVE NICE DATA BLOCK TYPE TO MESSAGE
934 001240 012765 000001 000022 MOV #1,C.SAVE(R5) ;LENGTH OF NICE MESSAGE DATA BLOCK TYPE
935 001246 005365 000012 DEC C.LEN(R5) ;REMAINING LENGTH OF BUFFER IS SHORTENED
936 001252 ONCASE ; TYPE INFORMATION REQUESTED CODE
937 001252 CASE ; TYPE CODE = READ REMOTE NODE INFORMATION
938 001252 TRUE EQ R0,#RI$RMC
939 001260 FALSE NE R0,#RI$RMS
940 001266 DO
941 001266 016400 000006 MOV LIPTR(R4),R0 ;GET ADDRESS OF REMOTE NODE NAME
942 001272 111001 MOVB (R0),R1 ;LENGTH OF REMOTE NODE NAME IN
943 001274 005201 INC R1 ;IMAGE FIELD FORMAT (I-6)
944 001276 CALL MOVE ;MOVE REMOTE NODE NAME TO MESSAGE
945 001302 010064 000006 MOV R0,LIPTR(R4) ;UPDATE REMOTE NODE NAME POINTER
946 001306 005265 000014 INC C.ADDR(R5) ;SET BUFFER ADDRESS FOR READ INFO.
947 001312 CASE ; TYPE CODE = READ LINE INFORMATION
948 001314 TRUE EQ R0,#RI$LNC
949 001322 FALSE NE R0,#RI$LNS
950 001330 DO
951 001330 112722 000001 MOVB #LI$STA,(R2)+ ;DEPOSIT STANDARD LINE-ID FORMAT TYPE
952 001334 016400 000006 MOV LIPTR(R4),R0 ;GET ADDRESS OF LINE-ID
953 001340 012701 000004 MOV #LINLEN-1,R1 ;GET LENGTH OF LINE-ID
954 001344 CALL MOVE ;MOVE LINE-ID TO MESSAGE
955 001350 010064 000006 MOV R0,LIPTR(R4) ;UPDATE LINE-ID POINTER
956 001354 005265 000022 INC C.SAVE(R5) ;LENGTH OF LINE-ID TYPE ADDED TO BUFFER
957 001360 062765 000002 000014 ADD #2,C.ADDR(R5) ;SET BUFFER ADDRESS FOR READ INFO
958 001366 005365 000012 DEC C.LEN(R5) ;SET BUFFER LENGTH FOR READ INFO
959 001372 ENDCASE
960 001372 112765 000040 000006 MOVB #C$RDIN,C.FUNC(R5) ;SET FUNCTION TO READ INFORMATION
961 001400 112764 177776 000014 MOVB #-RDIN,SBSTAT(R4) ;SET SUBSTATE TO READING INFORMATION
962 001406 000241 CLC ;SHOW SUCCESS CONDITION
963 001410 ENDIF
964 001410 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 20
RILBFS
971 .SBTTL RILBFS
972 ;
973 ;======================================================================;
974 ;++
975 ; +-------------------------------------------------+
976 ; I I
977 ; I R I L B F S I
978 ; I - - - - - - I
979 ; I I
980 ; +-------------------------------------------------+
981 ;
982 ; FUNCTION:
983 ;
984 ; LOAD MESSAGE BUFFER FOR A SPECIFIED NODE OR LINE
985 ; SET ADDRESS OF BUFFER NEEDED BY "READ INFORMATION" SERVICE ROUTINE
986 ;
987 ; CALLING SEQUENCE: CALL RILBFS
988 ;
989 ; INPUT:
990 ;
991 ; R4 - ADDRESS OF THE CURRENT CONTEXT
992 ; OPTION - NICE DATA BLOCK TYPE REQUESTED
993 ; RMNODE - REMOTE NODE NAME FOR WHICH INFORMATION IS REQUESTED
994 ; LINE - LINE-ID FOR WHICH INFORMATION IS REQUESTED
995 ; R5 - ADDRESS OF CONTROL BLOCK
996 ; C.LEN - MAXIMUM LENGTH OF MESSAGE BUFFER
997 ; C.ADDR - ADDRESS OF MESSAGE BUFFER TO LOAD
998 ; C.TYPE - TYPE CODE OF INFORMATION DESIRED (1,2,4,5,7,10)
999 ;
1000 ; OUTPUT:
1001 ;
1002 ; C-BIT - SET IF INVALID TYPE CODE, CLEARED IF VALID
1003 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
1004 ; SBSTAT - SUBSTATE CODE: #-RDIN READ INFORMATION
1005 ; OPTION - NICE MESSAGE OPTION CODE
1006 ; RMNODE - REMOTE NODE NAME FOR WHICH INFORMATION IS REQUESTED
1007 ; LINE - LINE-ID FOR WHICH INFORMATION IS REQUESTED
1008 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
1009 ; C.FUNC - FUCTION CODE: #C$RDIN READ INFORMATION
1010 ; C.LEN - MAXIMUM LENGTH OF BUFFER FOR "READ INFO" SERVICE ROUTINE
1011 ; C.ADDR - ADDRESS OF BUFFER NEEDED BY "READ INFO" SERVICE ROUTINE
1012 ; C.TYPE - TYPE CODE OF INFORMATION DESIRED
1013 ; C.SAVE - LENGTH OF INFORMATION LOADED INTO FRONT OF MESSAGE BUFFER
1014 ; THAT IS NOT PASSED TO "READ INFO" SERVICE ROUTINE
1015 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 21
RILBFS
1017 ; MESSAGE BUFFER:
1018 ;
1019 ; TO READ LOCAL OR REMOTE NODE COUNTERS:
1020 ;
1021 ; I----------------------I
1022 ; I NICE DATA BLOCK TYPE I BLOCK TYPE = ND$LCC OR ND$RMC
1023 ; I----------------------I
1024 ; C.ADDR(R5) --> I I
1025 ; I-- --I C.LEN(R5) = N.MLEN - 1
1026 ; I I
1027 ; I-- --I C.TYPE(R5) = RI$LCC OR RI$RMC
1028 ; I I
1029 ; I-- --I C.SAVE(R5) = 1
1030 ; I NODE NAME (I-6) I
1031 ; I-- --I
1032 ; I I
1033 ; I-- --I
1034 ; I I
1035 ; I-- --I
1036 ; I I
1037 ; I----------------------I
1038 ;
1039 ; TO READ LOCAL NODE STATUS:
1040 ;
1041 ; I----------------------I
1042 ; I NICE DATA BLOCK TYPE I BLOCK TYPE = ND$LCS
1043 ; I----------------------I
1044 ; I I
1045 ; I-- --I C.LEN(R5) = N.MLEN
1046 ; I I - LOCAL NODE NAME LENGTH
1047 ; I-- --I - LOCAL NODE NUMBER LENGTH
1048 ; I I - 1
1049 ; I-- --I
1050 ; I LOCAL NODE NAME(I-6) I
1051 ; I-- --I C.TYPE(R5) = RI$LCS
1052 ; I I
1053 ; I-- --I C.SAVE(R5) = LOCAL NODE NAME LENGTH
1054 ; I I + LOCAL NODE NUMBER LENGTH
1055 ; I-- --I + 1
1056 ; I I
1057 ; I----------------------I
1058 ; I LOCAL NODE NUMBER I
1059 ; I-- --I
1060 ; I (EX - 2) I
1061 ; I----------------------I
1062 ; C.ADDR(R5) --> I I
1063 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 22
RILBFS
1065 ; TO READ REMOTE NODE STATUS:
1066 ;
1067 ; I----------------------I
1068 ; I NICE DATA BLOCK TYPE I BLOCK TYPE = ND$RMS
1069 ; I----------------------I
1070 ; C.ADDR(R5) --> I I
1071 ; I-- --I C.LEN(R5) = N.MLEN - 1
1072 ; I I
1073 ; I-- --I C.TYPE(R5) = RI$RMS
1074 ; I I
1075 ; I-- --I C.SAVE(R5) = 1
1076 ; I REMOTE NODE NAME(I-6)I
1077 ; I-- --I
1078 ; I I
1079 ; I-- --I
1080 ; I I
1081 ; I-- --I
1082 ; I I
1083 ; I----------------------I
1084 ;
1085 ; TO READ LINE COUNTERS OR STATUS:
1086 ;
1087 ; I----------------------I
1088 ; I NICE DATA BLOCK TYPE I BLOCK TYPE = ND$LNC OR ND$LNS
1089 ; I----------------------I
1090 ; I LINE-ID FORMAT TYPE I FORMAT TYPE= 1
1091 ; I----------------------I
1092 ; C.ADDR(R5) --> I LINE DEVICE I
1093 ; I----------------------I C.LEN(R5) = N.MLEN - 2
1094 ; I LINE CONTROLLER I
1095 ; I----------------------I C.TYPE(R5) = RI$LNC OR RI$LNS
1096 ; I LINE NUMBER I
1097 ; I----------------------I C.SAVE(R5) = 2
1098 ; I LINE STATION I
1099 ; I----------------------I
1100 ;
1101 ; REQUIREMENTS:
1102 ;
1103 ; CONTROL BLOCK SYMBOLS:
1104 ;
1105 ; C$RDIN - READ INFORMATION FUNCTION CODE
1106 ; C.FUNC - OFFSET OF FUNCTION CODE
1107 ; C.LEN - OFFSET OF LENGTH
1108 ; C.ADDR - OFFSET OF BLOCK ADDRESS
1109 ; C.TYPE - OFFSET OF TYPE CODE OF INFORMATION DESIRED
1110 ; C.SAVE - OFFSET OF SAVE AREA (4 BYTES)
1111 ; RI$LCC - LOCAL NODE COUNTERS TYPE CODE
1112 ; RI$LCS - LOCAL NODE STATUS TYPE CODE
1113 ; RI$RML - REMOTE NODE NAME LISTINGS TYPE CODE
1114 ; RI$RMC - REMOTE NODE COUNTERS TYPE CODE
1115 ; RI$RMS - REMOTE NODE STATUS TYPE CODE
1116 ; RI$LNL - LINE-ID LISTINGS TYPE CODE
1117 ; RI$LNC - LINE-ID COUNTERS TYPE CODE
1118 ; RI$LNS - LINE-ID STATUS TYPE CODE
1119 ;
1120 ; "READ INFORMATION" SYMBOLS
1121 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 22-1
RILBFS
1122 ; NODLEN - MAXIMUM NODE NAME LENGTH
1123 ; LINLEN - LINE-ID LENGTH
1124 ; SBSTAT - OFFSET OF READ INFO SUBSTATE
1125 ; OPTION - OFFSET OF NICE MESSAGE OPTION FIELD
1126 ; RMNODE - OFFSET OF REMOTE NODE NAME
1127 ; LINE - OFFSET OF LINE-ID
1128 ; RDIN - READING INFORMATION SUBSTATE
1129 ;--
1130 ;======================================================================;
1131 ;
1132 ;
1133 ; EXTERNAL MACROS
1134 ;
1135 .MCALL CONDF,RIDF
1136 .MCALL RESSTK,SAVSTK
1137 ;
1138 ; DEFINE EXTERNAL SYMBOLS
1139 ;
1140 001412 CONDF ;CONTROL BLOCK SYMBOLS
1141 001412 RIDF ;"READ INFORMATION" PROCESSOR SYMBOLS
1142 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 23
RILBFS
1144 ;
1145 ; PROCEDURE BODY
1146 ;
1147 001412 PROCLC RILBFS
1148 001412 116500 000016 MOVB C.TYPE(R5),R0 ;GET TYPE CODE
1149 001416 IF ; TYPE CODE NOT VALID
1150 001416 TRUE LE R0
1151 001422 TRUE EQ R0,#RI$RML
1152 001430 TRUE EQ R0,#RI$LNL
1153 001436 FALSE LE R0,#RI$LNS
1154 001444 THEN
1155 001444 000261 SEC ;SHOW FAILURE
1156 001446 ELSE
1157 001450 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE BUFFER
1158 001454 116422 000016 MOVB OPTION(R4),(R2)+ ;MOVE NICE DATA BLOCK TYPE TO MESSAGE
1159 001460 012765 000001 000022 MOV #1,C.SAVE(R5) ;LENGTH OF NICE MESSAGE DATA BLOCK TYPE
1160 001466 005365 000012 DEC C.LEN(R5) ;REMAINING LENGTH OF BUFFER IS SHORTENED
1161 001472 ONCASE ; TYPE INFORMATION REQUESTED CODE
1162 001472 CASE ; TYPE CODE = READ LOCAL NODE INFORMATION
1163 001472 TRUE EQ R0,#RI$LCC
1164 001500 FALSE NE R0,#RI$LCS
1165 001506 DO
1166 001506 012701 000006 MOV #NODLEN,R1 ;MAXIMUM LOCAL NODE NAME LENGTH
1167 001512 SAVSTK <R2> ;SAVE ADDRESS FOR IMAGE LOCAL NODE NAME
1168 001514 005202 INC R2 ;SET ADDRESS FOR LOCAL NODE NAME
1169 001516 CALL LOCNOD ;MOVE LOCAL NODE NAME TO NICE DATA BLOCK
1170 001522 RESSTK <R2> ;RESTORE ADDRESS FOR IMAGE LOCAL NODE NAME
1171 001524 110112 MOVB R1,(R2) ;PUT IN LOCAL NODE NAME LENGTH
1172 001526 IF ; TYPE CODE = READ LOCAL NODE STATUS INFORMATION
1173 001526 FALSEB NE C.TYPE(R5),#RI$LCS
1174 001536 THEN
1175 001536 005201 INC R1 ;MOVE BUFFER POINTER BEYOND
1176 001540 060102 ADD R1,R2 ;IMAGE LOCAL NODE NAME (I-6)
1177 001542 060165 000022 ADD R1,C.SAVE(R5) ;LENGTH OF LOCAL NODE NAME ADDED TO BUFFER
1178 001546 160165 000012 SUB R1,C.LEN(R5) ;REMAINING LENGTH OF BUFFER IS SHORTENED
1179 001552 CALL PTEXWD ;MOVE LCL NODE NUMBER TO NICE DATA BLOCK
1180 001556 060165 000022 ADD R1,C.SAVE(R5) ;LENGTH OF LCL NODE NUMBER ADDED TO BUFR
1181 001562 160165 000012 SUB R1,C.LEN(R5) ;REMAINING LENGTH OF BUFFER IS SHORTENED
1182 001566 ENDIF
1183 001566 010265 000014 MOV R2,C.ADDR(R5) ;SET BUFFER ADDRESS FOR READ INFO
1184 001572 CASE ; TYPE CODE = READ REMOTE NODE INFORMATION
1185 001574 TRUE EQ R0,#RI$RMC
1186 001602 FALSE NE R0,#RI$RMS
1187 001610 DO
1188 001610 012700 000017 MOV #RMNODE,R0 ;OFFSET OF REMOTE NODE NAME IN CONTEXT
1189 001614 060400 ADD R4,R0 ;MAKE IT SOURCE ADDRESS
1190 001616 111001 MOVB (R0),R1 ;LENGTH OF REMOTE NODE NAME IN
1191 001620 005201 INC R1 ;IMAGE FIELD FORMAT (I-6)
1192 001622 CALL MOVE ;MOVE REMOTE NODE NAME TO MESSAGE
1193 001626 005265 000014 INC C.ADDR(R5) ;SET BUFFER ADDRESS FOR READ INFO
1194 001632 CASE ; TYPE CODE = READ LINE INFORMATION
1195 001634 TRUE EQ R0,#RI$LNC
1196 001642 FALSE NE R0,#RI$LNS
1197 001650 DO
1198 001650 012700 000026 MOV #LINE,R0 ;OFFSET OF LINE-ID IN CONTEXT
1199 001654 060400 ADD R4,R0 ;MAKE IT SOURCE ADDRESS
1200 001656 012701 000005 MOV #LINLEN,R1 ;GET LENGTH OF LINE-ID
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 23-1
RILBFS
1201 001662 CALL MOVE ;MOVE LINE-ID TO MESSAGE
1202 001666 005265 000022 INC C.SAVE(R5) ;LENGTH OF LINE-ID TYPE ADDED TO BUFFER
1203 001672 062765 000002 000014 ADD #2,C.ADDR(R5) ;SET BUFFER ADDRESS FOR READ INFO
1204 001700 005365 000012 DEC C.LEN(R5) ;SET BUFFER LENGTH FOR READ INFO
1205 001704 ENDCASE
1206 001704 112765 000040 000006 MOVB #C$RDIN,C.FUNC(R5) ;SET FUNCTION TO READ INFORMATION
1207 001712 112764 177776 000014 MOVB #-RDIN,SBSTAT(R4) ;SET SUBSTATE TO READING INFORMATION
1208 001720 000241 CLC ;SHOW SUCCESS CONDITION
1209 001722 ENDIF
1210 001722 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 24
RIMAIN
1214 .SBTTL RIMAIN
1215 ;
1216 ;======================================================================;
1217 ;++
1218 ; +-------------------------------------------------+
1219 ; I I
1220 ; I R I M A I N I
1221 ; I - - - - - - I
1222 ; I I
1223 ; +-------------------------------------------------+
1224 ;
1225 ; FUNCTION:
1226 ;
1227 ; PROCESSOR FOR NICE "READ INFORMATION" & "ZERO COUNTERS" FUNCTION
1228 ;
1229 ; CALLING SEQUENCE: CALL RIMAIN
1230 ;
1231 ; INPUT:
1232 ;
1233 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING "READ INFORMATION"
1234 ; C.FUNC - FUNCTION CODE: #C$PROC
1235 ; C.PROC - PROCESSOR NUMBER: #P$RDIN OR #P$ZERO
1236 ; C.LEN - LENGTH OF NICE MESSAGE
1237 ; C.ADDR - ADDRESS OF NICE MESSAGE
1238 ; C.TYPE - CLEAR
1239 ; C.LKNM - LINK NUMBER OF COMMAND LINK
1240 ;
1241 ; OUTPUT:
1242 ;
1243 ; R4 - CLEAR
1244 ; R5 - ADDRESS OF CONTROL BLOCK THAT REQUESTED "READ INFO"
1245 ; C.CTXT - -1 COMPLETED SIGNAL
1246 ; C.FUNC - FUNCTION CODE: #C$PROC
1247 ; C.PROC - PROCESS CODE: #P$GTCM
1248 ; C.LKNM - LINK NUMBER OF COMMAND LINK
1249 ;
1250 ; REQUIREMENTS:
1251 ;
1252 ; CONTROL BLOCK SYMBOLS:
1253 ;
1254 ; C$RLBF - RELEASE MEMORY BUFFER FUNCTION CODE
1255 ; C$PROC - PROCESS FUNCTION CODE
1256 ; C.CTXT - OFFSET OF PROCESSOR CONTEXT DATA POINTER
1257 ; C.FUNC - OFFSET OF FUNCTION CODE
1258 ; C.PROC - OFFSET OF PROCESSOR NUMBER
1259 ; C.TYPE - OFFSET OF TYPE OF INFORMATION DESIRED
1260 ;
1261 ; CONFIGURATION CONTROLS:
1262 ;
1263 ; F$RDIN - "READ INFORMATION" CONFIGURATION CONTROL FLAG
1264 ; F$ZERO - ZERO COUNTERS CONFIGURATION CONTROL FLAG
1265 ;
1266 ; NICE MESSAGE SYMBOLS:
1267 ;
1268 ; NE$FUN - INVALID FUNCTION OR OPTION RETURN CODE
1269 ;
1270 ; PROCESSOR SYMBOLS:
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 24-1
RIMAIN
1271 ;
1272 ; P$GTCM - GET COMMAND
1273 ; P$RDIN - "READ INFORMATION" PROCESSOR NUMBER
1274 ; P$ZERO - ZERO COUNTERS PROCESSOR NUMBER
1275 ;
1276 ; "READ INFORMATION" SYMBOLS:
1277 ;
1278 ; STATE - OFFSET OF READ INFO STATE
1279 ; OPTION - OFFSET OF NICE MESSAGE OPTION FIELD
1280 ; GTINFO - GET INFORMATION NEEDED STATE
1281 ; FINISH - FINISH NEEDED STATE
1282 ;--
1283 ;======================================================================;
1284 ;
1285 ;
1286 ; EXTERNAL MACROS
1287 ;
1288 .MCALL CONDF,CONFIG,NICDF,PRDF,RIDF
1289 ;
1290 ; DEFINE EXTERNAL SYMBOLS
1291 ;
1292 001724 CONDF ;CONTROL BLOCK SYMBOLS
1293 001724 CONFIG ;CONFIGURATION CONTROL SYMBOLS
1294 001724 NICDF ;NICE MESSAGE SYMBOLS
1295 001724 PRDF ;PROCESSOR SYMBOLS
1296 001724 RIDF ;"READ INFORMATION" SYMBOLS
1298 ;
1299 ; LOCAL DATA TABLE
1300 ;
1301 ; TABLE TO TRANSLATE NICE-MESSAGE-DATA-BLOCK-TYPE-OPTION-CODE
1302 ; INTO INFORMATION-REQUEST-TYPE-CODE FOR C.TYPE IN CONTROL
1303 ; BLOCK
1304 ;
1305 001724 RITTAB:
1306 ; OPTION CODE TYPE CODE
1307 001724 001 .BYTE RI$LCC ; 0. 1.
1308 001725 002 .BYTE RI$LCS ; 1. 2.
1309 001726 004 .BYTE RI$RMC ; 2. 4.
1310 001727 005 .BYTE RI$RMS ; 3. 5.
1311 001730 007 .BYTE RI$LNC ; 4. 7.
1312 001731 010 .BYTE RI$LNS ; 5. 8.
1313 ;
1314 000006 RITEND = .-RITTAB
1317 ;
1318 ; TABLE TO TRANSLATE NICE-MESSAGE-ZERO-COUNTERS-OPTION-CODE
1319 ; INTO COUNTER-TYPE-CODE FOR C.TYPE IN CONTROL BLOCK
1320 ;
1321 001732 ZRTTAB:
1322 ;
1323 001732 011 .BYTE RI$ZLC ; 0. 9.
1324 001733 012 .BYTE RI$ZRM ; 1. 10.
1325 001734 013 .BYTE RI$ZLN ; 2. 11.
1326 ;
1327 000003 ZRTEND = .-ZRTTAB
1329 .EVEN
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 25
RIMAIN
1331 ;
1332 ; PROCEDURE BODY
1333 ;
1334 001736 PROC RIMAIN
1335 001736 016504 000004 MOV C.CTXT(R5),R4 ;GET CONTEXT POINTER
1336 001742 IF ; CONTEXT POINTER = 0
1337 001742 FALSE SET R4
1338 001746 THEN
1339 001746 IF ; FUNCTION CODE <> RELEASE MEMORY BUFFER
1340 001746 FALSEB EQ C.FUNC(R5),#C$RLBF
1341 001756 THEN
1342 001756 CALL RIINIT ;INITIALIZE AND PARSE NICE MESSAGE
1343 001762 ELSE ; MUST HAVE JUST RELEASED CONTEXT, ALL DONE !
1344 001764 112765 000001 000007 MOVB #P$GTCM,C.PROC(R5) ;PASS THIS BACK FROM WHENCE IT CAME
1345 001772 112765 000200 000006 MOVB #C$PROC,C.FUNC(R5) ;FIX UP FUNCTION CODE
1346 002000 012765 177777 000004 MOV #-1,C.CTXT(R5) ;SIGNAL COMPLETE
1347 002006 005004 CLR R4 ;MAKE SURE NOBODY ELSE HERE RUNS
1348 002010 ENDIF
1349 002010 ENDIF
1350 002010 IF ; CONTEXT POINTER <> 0
1351 002010 FALSE CLEAR R4
1352 002014 THEN
1353 002014 105464 000014 NEGB SBSTAT(R4) ;NEGATE SUBSTATE TO FLAG OPERATION DONE
1354 002020 IF ; STATE = GET INFORMATION NEEDED
1355 002020 FALSEB NE STATE(R4),#GTINFO
1356 002030 THEN
1357 002030 IF ; TYPE CODE = 0
1358 002030 FALSEB SET C.TYPE(R5)
1359 002036 THEN
1360 002036 116400 000016 MOVB OPTION(R4),R0 ;GET NICE MSG DATA BLCK TYPE OPTION CODE
1361 002042 ONCASE ; PROCESSOR NUMBER
1362 ;
1364 002042 CASE ; PROCESSOR NUMBER = READ INFORMATION
1365 002042 FALSEB NE C.PROC(R5),#P$RDIN
1366 002052 DO
1367 002052 IF ; NICE MESSAGE OPTION CODE IS NOT VALID
1368 002052 TRUE GE R0,#RITEND
1369 002060 FALSE PL R0
1370 002064 THEN
1371 002064 012700 177777 MOV #NE$FUN,R0 ;SET INVALID OPTION RETURN CODE
1372 002070 CALL RIABRT ;BLOW IT UP
1373 002074 ELSE
1374 002076 116065 001724' 000016 MOVB RITTAB(R0),C.TYPE(R5) ;CHANGE TO TYPE INFO REQUESTED CODE
1375 002104 ENDIF
1377 ;
1379 002104 CASE ; PROCESSOR NUMBER = ZERO COUNTERS
1380 002106 FALSEB NE C.PROC(R5),#P$ZERO
1381 002116 DO
1382 002116 IF ; NICE MESSAGE OPTION CODE IS NOT VALID
1383 002116 TRUE GE R0,#ZRTEND
1384 002124 FALSE PL R0
1385 002130 THEN
1386 002130 012700 177777 MOV #NE$FUN,R0 ;SET INVALID OPTION RETURN CODE
1387 002134 CALL RIABRT ;BLOW IT UP
1388 002140 ELSE
1389 002142 116065 001732' 000016 MOVB ZRTTAB(R0),C.TYPE(R5) ;CHANGE TO ZERO COUNTER TYPE CODE
1390 002150 ENDIF
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 25-1
RIMAIN
1392 ;
1393 002150 ENDCASE
1394 002150 ENDIF
1395 002150 IF ; TYPE CODE <> 0
1396 002150 FALSEB CLEAR C.TYPE(R5)
1397 002156 THEN
1398 002156 ONCASE ; PROCESSOR NUMBER
1399 ;
1401 002156 CASE ; PROCESSOR NUMBER = READ INFORMATION
1402 002156 FALSEB NE C.PROC(R5),#P$RDIN
1403 002166 DO
1404 002166 CALL RIGINF ;GET INFORMATION REQUESTED
1406 ;
1408 002172 CASE ; PROCESSOR NUMBER = ZERO COUNTERS
1409 002174 FALSEB NE C.PROC(R5),#P$ZERO
1410 002204 DO
1411 002204 CALL ZRCNTR ;ZERO THE COUNTERS
1413 ;
1414 002210 ENDCASE
1415 002210 IF ; FAILURE
1416 002210 FALSEB PL C.RET(R5)
1417 002216 THEN
1418 002216 112764 000002 000013 MOVB #FINISH,STATE(R4) ;SET STATE TO FINISH UP
1419 002224 ENDIF
1420 002224 ENDIF
1421 002224 ENDIF
1422 002224 IF ; STATE = FINISH UP
1423 002224 FALSEB NE STATE(R4),#FINISH
1424 002234 THEN
1425 002234 CALL RIFINI ;CLEAN THIS MESS UP
1426 002240 ENDIF
1427 002240 ENDIF
1428 002240 000241 CLC ;FOLLOWING THE RULES
1429 002242 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 26
RIPARS
1431 .SBTTL RIPARS
1432 ;
1433 ;======================================================================;
1434 ;++
1435 ; +-------------------------------------------------+
1436 ; I I
1437 ; I R I P A R S I
1438 ; I - - - - - - I
1439 ; I I
1440 ; +-------------------------------------------------+
1441 ;
1442 ; FUNCTION:
1443 ;
1444 ; PARSE THE NICE MESSAGE INTO THE CURRENT CONTEXT
1445 ;
1446 ; CALLING SEQUENCE: CALL RIPARS
1447 ;
1448 ; INPUT:
1449 ;
1450 ; R4 - ADDRESS OF THE CURRENT CONTEXT
1451 ; R5 - ADDRESS OF CONTROL BLOCK
1452 ; C.PROC - PROCESSOR NUMBER
1453 ; C.LEN - LENGTH OF NICE MESSAGE
1454 ; C.ADDR - ADDRESS OF NICE MESSAGE
1455 ;
1456 ; OUTPUT:
1457 ;
1458 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
1459 ; CONTAINING PARSED RESULTS OF NICE MESSAGE
1460 ; STATE - STATE CODE: #FINISH IF FAILURE
1461 ; SBSTAT - CLEAR IF FAILURE
1462 ; RETCOD - CLEAR IF SUCCESS; ABORT RETURN CODE IF FAILURE
1463 ; OPTION - NICE MESSAGE OPTION CODE
1464 ; RMNODE - REMOTE NODE NAME (IF OPTION CODE = #ND$RMC, #ND$RMS, OR #ND$ZRM)
1465 ; LINE - LINE-ID (IF OPTION CODE = #ND$LNC, #ND$LNS, OR #ND$ZLN)
1466 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
1467 ; C.PROC - PROCESSOR NUMBER
1468 ; C.ADDR - ADDRESS OF A FREE MESSAGE BUFFER
1469 ;
1470 ; REQUIREMENTS:
1471 ;
1472 ; CONTROL BLOCK SYMBOLS:
1473 ;
1474 ; C.PROC - OFFSET OF PROCESSOR CODE
1475 ; C.LEN - OFFSET OF LENGTH
1476 ; C.ADDR - OFFSET OF BLOCK ADDRESS
1477 ;
1478 ; CONFIGURATION CONTROLS:
1479 ;
1480 ; F$RDIN - "READ INFORMATION" CONFIGURATION CONTROL FLAG
1481 ; F$ZERO - ZERO COUNTERS CONFIGURATION CONTROL FLAG
1482 ; FR$LCC - LOCAL COUNTERS CONFIGURATION CONTROL FLAG
1483 ; FR$LCS - LOCAL STATUS CONFIGURATION CONTROL FLAG
1484 ; FR$RMC - REMOTE COUNTERS CONFIGURATION CONTROL FLAG
1485 ; FR$RMS - REMOTE STATUS CONFIGURATION CONTROL FLAG
1486 ; FR$LNC - LINE COUNTERS CONFIGURATION CONTROL FLAG
1487 ; FR$LNS - LINE STATUS CONFIGURATION CONTROL FLAG
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 26-1
RIPARS
1488 ;
1489 ; NICE MESSAGE SYMBOLS:
1490 ;
1491 ; ND$LCC - LOCAL NODE COUNTERS DATA BLOCK TYPE OPTION CODE
1492 ; ND$LCS - LOCAL NODE STATUS DATA BLOCK TYPE OPTION CODE
1493 ; ND$RMC - REMOTE NODE COUNTERS DATA BLOCK TYPE OPTION CODE
1494 ; ND$RMS - REMOTE NODE STATUS DATA BLOCK TYPE OPTION CODE
1495 ; ND$LNC - LINE COUNTERS DATA BLOCK TYPE OPTION CODE
1496 ; ND$LNS - LINE STATUS DATA BLOCK TYPE OPTION CODE
1497 ; ND$ZLC - ZERO LOCAL NODE COUNTERS TYPE CODE
1498 ; ND$ZRM - ZERO REMOTE NODE COUNTERS TYPE CODE
1499 ; ND$ZLN - ZERO LINE COUNTERS TYPE CODE
1500 ; LI$KNO - ALL KNOWN LINE-ID FORMAT TYPE
1501 ; LI$STA - STANDARD BINARY LINE-ID FORMAT TYPE
1502 ; NE$FUN - INVALID FUNCTION OR OPTION RETURN CODE
1503 ; NE$FOR - INVALID MESSAGE FORMAT RETURN CODE
1504 ; NE$LID - INVALID LINE-ID RETURN CODE
1505 ; NE$NOD - INVALID NODE ID RETURN CODE
1506 ;
1507 ; PROCESSOR SYMBOLS:
1508 ;
1509 ; P$RDIN - "READ INFORMATION" PROCESSOR NUMBER
1510 ; P$ZERO - ZERO COUNTERS PROCESSOR NUMBER
1511 ;
1512 ; "READ INFORMATION" SYMBOLS:
1513 ;
1514 ; NODLEN - MAXIMUM NODE NAME LENGTH
1515 ; RETCOD - OFFSET OF RETURN CODE
1516 ; OPTION - OFFSET OF NICE MESSAGE OPTION FIELD
1517 ; RMNODE - OFFSET OF REMOTE NODE NAME
1518 ; LINE - OFFSET OF LINE-ID
1519 ;--
1520 ;======================================================================;
1521 ;
1522 ;
1523 ; EXTERNAL MACROS
1524 ;
1525 .MCALL SAVSTK,RESSTK,CONDF,CONFIG,NICDF,PRDF,RIDF
1526 ;
1527 ; DEFINE EXTERNAL SYMBOLS
1528 ;
1529 002244 CONDF ;CONTROL BLOCK SYMBOLS
1530 002244 CONFIG ;CONFIGURATION CONTROL SYMBOLS
1531 002244 NICDF ;NICE MESSAGE SYMBOLS
1532 002244 PRDF ;PROCESSOR SYMBOLS
1533 002244 RIDF ;"READ INFORMATION" SYMBOLS
1534 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 27
RIPARS
1536 ;
1537 ; PROCEDURE BODY
1538 ;
1539 002244 PROCLC RIPARS
1540 002244 SAVSTK <R3> ;SAVE REGISTERS
1541 002246 105064 000015 CLRB RETCOD(R4) ;INITIALIZE THE CONTEXT RETURN CODE
1542 002252 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF NICE MESSAGE
1543 002256 010203 MOV R2,R3 ;COPY THE ADDRESS
1544 002260 066503 000012 ADD C.LEN(R5),R3 ;MAKE MESSAGE END ADDRESS
1545 002264 005202 INC R2 ;MOVE CURRENT ADDRESS PAST FUCTION CODE
1546 002266 CALL GTMSBY ;GET THE TYPE DATA BLOCK OPTION CODE
1547 002272 IF ; SUCCESS
1548 002272 FALSE CS
1549 002274 THEN
1550 002274 110064 000016 MOVB R0,OPTION(R4) ;SAVE OPTION CODE IN CONTEXT
1551 002300 ONCASE ; PROCESSOR NUMBER
1552 ;
1554 002300 CASE ; PROCESSOR NUMBER = READ INFORMATION
1555 002300 FALSEB NE C.PROC(R5),#P$RDIN
1556 002310 DO
1557 002310 ONCASE ; DATA BLOCK TYPE OPTION CODE
1559 002310 CASE ; OPTION CODE = LOCAL NODE
1560 002310 TRUE EQ R0,#ND$LCC ;COUNT
1561 002316 FALSE NE R0,#ND$LCS ;STATUS
1562 002324 DO
1563 002324 CALL PARSLC ;PARSE LOCAL NODE TYPE NICE MESSAGE
1566 002330 CASE ; OPTION CODE = REMOTE NODE
1567 002332 TRUE EQ R0,#ND$RMC ;COUNT
1568 002340 FALSE NE R0,#ND$RMS ;STATUS
1569 002346 DO
1570 002346 CALL PARSRM ;PARSE REMOTE NODE TYPE NICE MESSAGE
1573 002352 CASE ; OPTION CODE = LINE
1574 002354 TRUE EQ R0,#ND$LNC ;COUNT
1575 002362 FALSE NE R0,#ND$LNS ;STATUS
1576 002370 DO
1577 002370 CALL PARSLN ;PARSE LINE TYPE NICE MESSAGE
1579 002374 ELSE ; OPTION CODE NOT VALID
1580 002376 012700 177777 MOV #NE$FUN,R0 ;OPTION CODE ERROR
1581 002402 CALL RIABRT ;BLOW IT UP
1582 002406 ENDCASE
1584 ;
1586 002406 CASE ; PROCESSOR NUMBER = ZERO COUNTERS
1587 002410 FALSEB NE C.PROC(R5),#P$ZERO
1588 002420 DO
1590 002420 ONCASE ; ZERO COUNTERS OPTION CODE
1591 002420 CASE ; OPTION CODE = LOCAL NODE
1592 002420 FALSE NE R0,#ND$ZLC
1593 002426 DO
1594 002426 CALL PARSLC ;PARSE LOCAL NODE TYPE NICE MESSAGE
1597 002432 CASE ; OPTION CODE = REMOTE NODE
1598 002434 FALSE NE R0,#ND$ZRM
1599 002442 DO
1600 002442 CALL PARSRM ;PARSE REMOTE NODE TYPE NICE MESSAGE
1603 002446 CASE ; OPTION CODE = LINE
1604 002450 FALSE NE R0,#ND$ZLN
1605 002456 DO
1606 002456 CALL PARSLN ;PARSE LINE TYPE NICE MESSAGE
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 27-1
RIPARS
1608 002462 ELSE ; OPTION CODE NOT VALID
1609 002464 012700 177777 MOV #NE$FUN,R0 ;OPTION CODE ERROR
1610 002470 CALL RIABRT ;BLOW IT UP
1611 002474 ENDCASE
1613 ;
1614 002474 ENDCASE
1615 002474 IF ; SUCCESS SO FAR, BUT NICE MESSAGE IS NOT THE SPECIFIED LENGTH
1616 002474 FALSEB SET RETCOD(R4)
1617 002502 FALSE EQ R2,R3
1618 002506 THEN
1619 002506 012700 177776 MOV #NE$FOR,R0 ;NICE MESSAGE FORMAT ERROR
1620 002512 CALL RIABRT ;BLOW IT UP
1621 002516 ENDIF
1622 002516 ELSE
1623 002520 012700 177776 MOV #NE$FOR,R0 ;NICE MESSAGE FORMAT ERROR
1624 002524 CALL RIABRT ;BLOW IT UP
1625 002530 ENDIF
1626 002530 RESSTK <R3> ;RESTORE REGISTERS
1627 002532 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 28
RIPARS
1630 ;
1631 ; PARSE THE LOCAL NODE TYPE NICE MESSAGE
1632 ;
1633 002534 PROCLC PARSLC
1634 002534 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 29
RIPARS
1638 ;
1639 ; PARSE THE REMOTE NODE TYPE NICE MESSAGE
1640 ;
1641 002536 PROCLC PARSRM
1642 002536 IF ; REMOTE NODE FORMAT TYPE = ALL KNOWN REMOTE NODES
1643 002536 FALSEB SET (R2)
1644 002542 THEN
1645 002542 105064 000017 CLRB RMNODE(R4) ;INDICATE FORMAT TYPE IN CONTEXT
1646 002546 005202 INC R2 ;UPDATE NICE MESSAGE INDEX
1647 002550 ELSE ; REMOTE NODE FORMAT TYPE = SPECIFIED REMOTE NODE
1648 002552 012700 000006 MOV #NODLEN,R0 ;MAXIMUM LENGTH OF NODE NAME
1649 002556 012701 000017 MOV #RMNODE,R1 ;OFFSET OF REMOTE NODE NAME IN CONTEXT
1650 002562 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
1651 002564 CALL MVMSIM ;MOVE IMAGE FIELD INTO CONTEXT
1652 002570 IF ; FAILURE
1653 002570 FALSE CC
1654 002572 THEN
1655 002572 012700 177765 MOV #NE$NOD,R0 ;INVALID REMOTE NODE NAME
1656 002576 CALL RIABRT ;BLOW IT UP
1657 002602 ENDIF
1658 002602 ENDIF
1659 002602 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 30
RIPARS
1663 ;
1664 ; PARSE THE LINE TYPE NICE MESSAGE
1665 ;
1666 002604 PROCLC PARSLN
1667 002604 CALL GTMSBY ;GET LINE-ID FORMAT TYPE
1668 002610 IF ; SUCCESS
1669 002610 FALSE CS
1670 002612 THEN
1671 002612 110064 000026 MOVB R0,LINE(R4) ;MOVE LINE-ID FORMAT TYPE TO CONTEXT
1672 002616 ONCASE ; LINE-ID FORMAT TYPE
1673 002616 CASE ; LINE-ID FORMAT TYPE = ALL KNOWN LINES
1674 002616 FALSE NE R0,#LI$KNO
1675 002624 DO
1676 002624 000241 CLC ;DON'T CORRUPT THE C-BIT
1677 002626 CASE ; LINE-ID FORMAT TYPE = STANDARD
1678 002630 FALSE NE R0,#LI$STA
1679 002636 DO
1680 002636 012700 000004 MOV #4,R0 ;BYTE COUNT IN LINE-ID
1681 002642 012701 000027 MOV #LINE+1,R1 ;OFFSET OF LINE-ID+1 IN CONTEXT
1682 002646 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
1683 002650 CALL MVMSBY ;MOVE LINE-ID TO CONTEXT
1684 002654 ELSE ; LINE-ID FORMAT TYPE IS NOT VALID
1685 002656 000261 SEC ;SHOW FAILURE
1686 002660 ENDCASE
1687 002660 ENDIF
1688 002660 IF ; FAILURE
1689 002660 FALSE CC
1690 002662 THEN
1691 002662 012700 177770 MOV #NE$LID,R0 ;INVALID LINE-ID
1692 002666 CALL RIABRT ;BLOW IT UP
1693 002672 ENDIF
1694 002672 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 31
RIRDLI
1699 .SBTTL RIRDLI
1700 ;
1701 ;======================================================================;
1702 ;++
1703 ; +-------------------------------------------------+
1704 ; I I
1705 ; I R I R D L I I
1706 ; I - - - - - - I
1707 ; I I
1708 ; +-------------------------------------------------+
1709 ;
1710 ; FUNCTION:
1711 ;
1712 ; READ LISTINGS OF ALL REMOTE NODE NAMES OR LINE-IDS
1713 ;
1714 ; CALLING SEQUENCE: CALL RIRDLI
1715 ;
1716 ; INPUT:
1717 ;
1718 ; R4 - ADDRESS OF THE CURRENT CONTEXT
1719 ; R5 - ADDRESS OF CONTROL BLOCK
1720 ; C.ADDR - ADDRESS OF BUFFER TO RECIEVE REMOTE-NODE NAMES OR LINE-IDS
1721 ; C.TYPE - TYPE CODE OF INFORMATION DESIRED OR COUNTERS TO ZERO
1722 ;
1723 ; OUTPUT:
1724 ;
1725 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
1726 ; SBSTAT - SUBSTATE CODE: #-RDLI FIRST PASS, #RDLI SECOND PASS
1727 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
1728 ; C.FUNC - FUCTION CODE: #C$RDIN READ INFORMATION
1729 ; C.RET - RETURN CODE FROM LISTINGS "READ INFO" SERVICE ROUTINE
1730 ; C.LEN - NUMBER OF REMOTE NODE NAMES OR LINE-IDS READ
1731 ; C.ADDR - ADDRESS OF BUFFER CONTAINING REMOTE NODE NAMES OR LINE-IDS
1732 ; C.TYPE - PRESERVED TYPE CODE
1733 ; C.PRID - PROCESS-ID CODE: #PIDALL
1734 ; C.SAVE - NOT PRESERVED
1735 ;
1736 ; REQUIREMENTS:
1737 ;
1738 ; CONTROL BLOCK SYMBOLS:
1739 ;
1740 ; C$RDIN - READ INFORMATION FUNCTION CODE
1741 ; C.FUNC - OFFSET OF FUNCTION CODE
1742 ; C.TYPE - OFFSET OF TYPE OF INFORMATION DESIREDOR COUNTERS TO ZERO
1743 ; C.PRID - OFFSET OF PROCESS-ID
1744 ; C.SAVE - OFFSET OF SAVE AREA (4 BYTES)
1745 ; RI$RML - REMOTE NODE NAME LISTINGS TYPE CODE
1746 ; RI$RMC - REMOTE NODE COUNTERS TYPE CODE
1747 ; RI$RMS - REMOTE NODE STATUS TYPE CODE
1748 ; RI$LNL - LINE-ID LISTINGS TYPE CODE
1749 ; RI$LNC - LINE-ID COUNTERS TYPE CODE
1750 ; RI$LNS - LINE-ID STATUS TYPE CODE
1751 ; RI$ZRM - ZERO REMOTE NODE COUNTERS TYPE CODE
1752 ; RI$ZLN - ZERO LINE COUNTERS TYPE CODE
1753 ;
1754 ; "READ INFORMATION" PROCESSOR SYMBOLS
1755 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 31-1
RIRDLI
1756 ; SBSTAT - OFFSET OF READ INFO SUBSTATE
1757 ; RDLI - READING LISTING OF ALL REMOTE NODE NAMES OR LINE-IDS
1758 ; PIDALL - ID CODE FOR LINES BELONGING TO ALL OWNERS
1759 ;--
1760 ;======================================================================;
1761 ;
1762 ;
1763 ; EXTERNAL MACROS
1764 ;
1765 .MCALL CONDF,RIDF
1766 ;
1767 ; DEFINE EXTERNAL SYMBOLS
1768 ;
1769 002674 CONDF ;CONTROL BLOCK SYMBOLS
1770 002674 RIDF ;"READ INFORMATION" PROCESSOR SYMBOLS
1771 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 32
RIRDLI
1773 ;
1774 ; PROCEDURE BODY
1775 ;
1776 002674 PROCLC RIRDLI
1777 002674 116500 000016 MOVB C.TYPE(R5),R0 ;GET TYPE INFORMATION REQUESTED CODE
1778 002700 IF ; TYPE CODE <> READ LISTINGS
1779 002700 FALSE EQ R0,#RI$RML
1780 002706 FALSE EQ R0,#RI$LNL
1781 002714 THEN
1782 002714 010065 000022 MOV R0,C.SAVE(R5) ;SAVE TYPE CODE
1783 002720 ONCASE ; TYPE INFORMATION REQUESTED OR ZERO COUNTERS CODE
1784 002720 CASE ; TYPE CODE = READ OR ZERO REMOTE NODE INFORMATION
1785 002720 TRUE EQ R0,#RI$RMC
1786 002726 TRUE EQ R0,#RI$RMS
1787 002734 FALSE NE R0,#RI$ZRM
1788 002742 DO
1789 002742 112765 000003 000016 MOVB #RI$RML,C.TYPE(R5) ;READ REMOTE NODE NAME LISTINGS
1790 002750 CASE ; TYPE CODE = READ LINE INFORMATION
1791 002752 TRUE EQ R0,#RI$LNC
1792 002760 TRUE EQ R0,#RI$LNS
1793 002766 FALSE NE R0,#RI$ZLN
1794 002774 DO
1795 002774 112765 000006 000016 MOVB #RI$LNL,C.TYPE(R5) ;READ LINE-IDS LISTING
1796 003002 112765 000000 000017 MOVB #PIDALL,C.PRID(R5) ;OF ALL LINES (REGARDLESS OF OWNER)
1797 003010 ENDCASE
1798 003010 112765 000040 000006 MOVB #C$RDIN,C.FUNC(R5) ;SET FUNCTION TO READ INFORMATION
1799 003016 112764 177775 000014 MOVB #-RDLI,SBSTAT(R4) ;SET SUBSTATE TO READING LISTINGS
1800 003024 ELSE
1801 003026 116565 000022 000016 MOVB C.SAVE(R5),C.TYPE(R5) ;RESTORE TYPE CODE
1802 003034 ENDIF
1803 003034 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 33
RISPEC
1809 .SBTTL RISPEC
1810 ;
1811 ;======================================================================;
1812 ;++
1813 ; +-------------------------------------------------+
1814 ; I I
1815 ; I R I S P E C I
1816 ; I - - - - - - I
1817 ; I I
1818 ; +-------------------------------------------------+
1819 ;
1820 ; FUNCTION:
1821 ;
1822 ; READ INFORMATION FROM A SPECIFIED NODE OR LINE,
1823 ; RETURN INFORMATION IN NICE MESSAGES VIA LINK NUMBER
1824 ;
1825 ; CALLING SEQUENCE: CALL RISPEC
1826 ;
1827 ; INPUT:
1828 ;
1829 ; R4 - ADDRESS OF THE CURRENT CONTEXT
1830 ; OPTION - NICE MESSAGE OPTION CODE
1831 ; RMNODE - REMOTE NODE NAME FOR WHICH INFORMATION IS REQUESTED
1832 ; LINE - LINE-ID FOR WHICH INFORMATION IS REQUESTED
1833 ; R5 - ADDRESS OF CONTROL BLOCK
1834 ; C.ADDR - ADDRESS OF FREE MESSAGE BUFFER
1835 ; C.TYPE - TYPE CODE OF INFORMATION DESIRED
1836 ;
1837 ; OUTPUT:
1838 ;
1839 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
1840 ; STATE - STATE CODE: #FINISH IF SUCCESS
1841 ; SBSTAT - CLEAR IF SUCCESS
1842 ; OPTION - NICE MESSAGE OPTION CODE
1843 ; RMNODE - REMOTE NODE NAME FOR WHICH INFORMATION IS REQUESTED
1844 ; LINE - LINE-ID FOR WHICH INFORMATION IS REQUESTED
1845 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
1846 ; C.RET - CLEAR IF SUCCESS, ABORT RETURN CODE IF TRANSMIT FAILED
1847 ; C.ADDR - ADDRESS OF FREE MESSAGE BUFFER
1848 ; C.TYPE - TYPE CODE OF INFORMATION DESIRED
1849 ; C.SAVE - NOT PRESERVED (2 WORDS)
1850 ;
1851 ; REQUIREMENTS:
1852 ;
1853 ; CONTROL BLOCK SYMBOLS:
1854 ;
1855 ; C$TRMS - TRANSMIT MESSAGE SYNCH. ON LOGICAL LINK FUNCTION CODE
1856 ; C.FUNC - OFFSET OF FUNCTION CODE
1857 ; C.RET - OFFSET OF RETURN CODE
1858 ; C.LEN - OFFSET OF LENGTH
1859 ; C.ADDR - OFFSET OF BLOCK ADDRESS
1860 ; C.SAVE - OFFSET OF SAVE AREA (4 BYTES)
1861 ;
1862 ; NICE MESSAGE SYMBOLS:
1863 ;
1864 ; N.MLEN - NICE MESSAGE LENGTH
1865 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 33-1
RISPEC
1866 ; "READ INFORMATION" SYMBOLS
1867 ;
1868 ; MSGCOD - OFFSET OF NICE RETURN MESSAGE DATA BLOCK CODE
1869 ; STATE - OFFSET OF READ INFO STATE
1870 ; SBSTAT - OFFSET OF READ INFO SUBSTATE
1871 ; FINISH - FINISH NEEDED STATE
1872 ; RDIN - READING INFORMATION SUBSTATE
1873 ; TRCC - TRANSMIT RETURN CODE & COUNT SUBSTATE
1874 ; TRDB - TRANSMIT DATA BLOCK SUBSTATE
1875 ;--
1876 ;======================================================================;
1877 ;
1878 ;
1879 ; EXTERNAL MACROS
1880 ;
1881 .MCALL CONDF,NICDF,RIDF
1882 ;
1883 ; DEFINE EXTERNAL SYMBOLS
1884 ;
1885 003036 CONDF ;CONTROL BLOCK SYMBOLS
1886 003036 NICDF ;NICE MESSAGE SYMBOLS
1887 003036 RIDF ;"READ INFORMATION" PROCESSOR SYMBOLS
1888 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 34
RISPEC
1890 ;
1891 ; PROCEDURE BODY
1892 ;
1893 003036 PROCLC RISPEC
1894 003036 ONCASE ; SUBSTATE
1895 003036 116400 000014 MOVB SBSTAT(R4),R0 ;GET SUBSTATE
1896 003042 CASE ; SUBSTATE = 0
1897 003042 FALSE SET R0
1898 003046 DO
1899 003046 016565 000014 000024 MOV C.ADDR(R5),C.SAVE+2(R5) ;SAVE ADDRESS OF MESSAGE BUFFER
1900 003054 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;GET ORIGINAL LENGTH OF BUFFER
1901 003062 CALL RILBFS ;LOAD BUFFER FOR "READ INFO" SERVICE
1902 003066 CASE ; SUBSTATE = READ INFORMATION
1903 003070 FALSE NE R0,#RDIN
1904 003076 DO
1905 003076 IF ; "READ INFORMATION" WAS SUCCESSFUL
1906 003076 FALSEB LE C.RET(R5)
1907 003104 THEN
1908 003104 066565 000012 000022 ADD C.LEN(R5),C.SAVE(R5) ;ADD LENGTH OF INFORMATION READ
1909 003112 ELSE
1910 003114 005065 000022 CLR C.SAVE(R5) ;INDICATE NO INFORMATION WAS READ
1911 003120 ENDIF
1912 003120 010465 000014 MOV R4,C.ADDR(R5) ;GET ADDRESS OF CONTEXT
1913 003124 062765 000010 000014 ADD #MSGCOD,C.ADDR(R5) ;MAKE IT ADDRESS OF CODE & COUNT
1914 003132 012765 000001 000012 MOV #1,C.LEN(R5) ;SET COUNT OF RETURN DATA BLOCKS
1915 003140 CALL RITRCC ;TRANSMIT RETURN CODE & COUNT
1916 003144 CASE ; SUBSTATE = TRANSMIT RETURN CODE & COUNT
1917 003146 FALSE NE R0,#TRCC
1918 003154 DO
1919 003154 016565 000024 000014 MOV C.SAVE+2(R5),C.ADDR(R5) ;RESTORE ADDRESS OF MESSAGE BUFFER
1920 003162 IF ; SUCCESS
1921 003162 FALSEB LE C.RET(R5)
1922 003170 THEN
1923 003170 016565 000022 000012 MOV C.SAVE(R5),C.LEN(R5) ;RESTORE LENGTH OF INFORMATION READ
1924 003176 IF ; ANY INFORMATION WAS READ
1925 003176 FALSE CLEAR C.LEN(R5)
1926 003204 THEN
1927 003204 112765 000053 000006 MOVB #C$TRMS,C.FUNC(R5) ;SET FUNC CODE TO TRANSMIT MESSAGE
1928 003212 112764 177771 000014 MOVB #-TRDB,SBSTAT(R4) ;SET SBSTATE TO TRANSMITING DATA BLK
1929 003220 ELSE
1930 003222 105064 000014 CLRB SBSTAT(R4) ;CLEAN UP SUBSTATE
1931 003226 112764 000002 000013 MOVB #FINISH,STATE(R4) ;SET STATE TO FINISH UP
1932 003234 ENDIF
1933 003234 ENDIF
1934 003234 CASE ; SUBSTATE = TRANSMIT RETURN DATA BLOCK
1935 003236 FALSE NE R0,#TRDB
1936 003244 DO
1937 003244 IF ; SUCCESS
1938 003244 FALSEB LE C.RET(R5)
1939 003252 THEN
1940 003252 105064 000014 CLRB SBSTAT(R4) ;CLEAN UP SUBSTATE
1941 003256 112764 000002 000013 MOVB #FINISH,STATE(R4) ;SET STATE TO FINISH UP
1942 003264 ENDIF
1943 003264 ENDCASE
1944 003264 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 35
RITRCC
1950 .SBTTL RITRCC
1951 ;
1952 ;======================================================================;
1953 ;++
1954 ; +-------------------------------------------------+
1955 ; I I
1956 ; I R I T R C C I
1957 ; I - - - - - - I
1958 ; I I
1959 ; +-------------------------------------------------+
1960 ;
1961 ; FUNCTION:
1962 ;
1963 ; TRANSMIT RETURN CODE & COUNT IN NICE MESSAGE VIA LINK NUMBER
1964 ;
1965 ; CALLING SEQUENCE: CALL RITRCC
1966 ;
1967 ; INPUT:
1968 ;
1969 ; R4 - ADDRESS OF THE CURRENT CONTEXT
1970 ; R5 - ADDRESS OF CONTROL BLOCK
1971 ; C.RET - RETURN CODE FROM "READ INFO" SERVICE
1972 ; C.LEN - COUNT OF NUMBER OF DATA BLOCKS BEING RETURNED
1973 ; C.ADDR - ADDRESS OF AN EMPTY MESSAGE BUFFER
1974 ;
1975 ; OUTPUT:
1976 ;
1977 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
1978 ; SBSTAT - SUBSTATE CODE: #-TRCC TRANSMITTING RETURN CODE & COUNT
1979 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
1980 ; C.FUNC - FUCTION CODE: C$TRMS TRANSMIT MESSAGE
1981 ; C.RET - CLEAR
1982 ; C.LEN - LENGTH OF RETURN CODE & COUNT NICE MESSAGE
1983 ; C.ADDR - ADDRESS OF RETURN CODE & COUNT NICE MESSAGE
1984 ;
1985 ; REQUIREMENTS:
1986 ;
1987 ; CONTROL BLOCK SYMBOLS:
1988 ;
1989 ; C$TRMS - TRANSMIT MESSAGE SYNCH. ON LOGICAL LINK FUNCTION CODE
1990 ; CE$FUN - INVALID FUNCTION CODE
1991 ; CE$LID - BAD LINE-ID
1992 ; CE$NOD - BAD NODE NAME
1993 ; CE$OVR - TABLE OVERFLOW
1994 ; C.FUNC - OFFSET OF FUNCTION CODE
1995 ; C.RET - OFFSET OF RETURN CODE
1996 ; C.LEN - OFFSET OF LENGTH
1997 ; C.ADDR - OFFSET OF BLOCK ADDRESS
1998 ;
1999 ; NICE MESSAGE SYMBOLS:
2000 ;
2001 ; NS$SUC - SUCCESS RETURN CODE
2002 ; NE$FUN - INVALID FUNCTION OR OPTION
2003 ; NE$LID - INVALID LINE-ID
2004 ; NE$NOD - INVALID NODE NAME
2005 ; NE$RES - RESOURCE ERROR
2006 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 35-1
RITRCC
2007 ; "READ INFORMATION" SYMBOLS
2008 ;
2009 ; LENCNT - RETURN CODE & COUNT MESSAGE LENGTH
2010 ; SBSTAT - OFFSET OF READ INFO SUBSTATE
2011 ; TRCC - TRANSMIT RETURN CODE & COUNT SUBSTATE
2012 ;--
2013 ;======================================================================;
2014 ;
2015 ;
2016 ; EXTERNAL MACROS
2017 ;
2018 .MCALL CONDF,NICDF,RIDF
2019 ;
2020 ; DEFINE EXTERNAL SYMBOLS
2021 ;
2022 003266 CONDF ;CONTROL BLOCK SYMBOLS
2023 003266 NICDF ;NICE MESSAGE SYMBOLS
2024 003266 RIDF ;"READ INFORMATION" PROCESSOR SYMBOLS
2025 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 36
RITRCC
2027 ;
2028 ; LOCAL DATA TABLE
2029 ;
2030 ; TRANSLATE "READ INFORMATION" RETURN CODE TO NICE MESSAGE ERROR CODES
2031 ;
2032 003266 RIETAB:
2033 ;
2034 003266 377 377 .BYTE CE$FUN,NE$FUN ;INVALID FUNCTION OR OPTION
2035 003270 366 370 .BYTE CE$LID,NE$LID ;SPECIFIED LINE-ID NOT FOUND
2036 003272 365 365 .BYTE CE$NOD,NE$NOD ;SPECIFIED NODE NAME NOT FOUND
2037 003274 364 361 .BYTE CE$OVR,NE$RES ;BUFFER SIZE EXCEEDED
2038 003276 000 .BYTE 0
2039 .EVEN
2040 ;
2041 ; PROCEDURE BODY
2042 ;
2043 003300 PROCLC RITRCC
2044 003300 016500 000014 MOV C.ADDR(R5),R0 ;GET BUFFER ADDRESS FOR RETURN CODE
2045 003304 IF ; SUCCESS
2046 003304 FALSEB LE C.RET(R5)
2047 003312 THEN
2048 003312 112720 000001 MOVB #NS$SUC,(R0)+ ;INSERT SUCCESS RETURN CODE
2049 003316 116520 000012 MOVB C.LEN(R5),(R0)+ ;INSERT COUNT OF RETURNING DATA BLOCKS
2050 003322 116510 000013 MOVB C.LEN+1(R5),(R0)
2051 003326 ELSE
2052 003330 105010 CLRB (R0) ;INITIALIZE NICE RETURN CODE ERROR
2053 003332 012701 003266' MOV #RIETAB,R1 ;INITIALIZE TRANSLATE TABLE POINTER
2054 003336 WHILE ; SERVICE ERROR CODE TYPE NOT FOUND AND MORE TO SEARCH
2055 003336 FALSEB SET (R0)
2056 003342 FALSEB CLEAR (R1)
2057 003346 DO
2058 003346 IF ; SERVICE ERROR CODE FOUND
2059 003346 FALSEB NE C.RET(R5),(R1)+
2060 003354 THEN
2061 003354 111110 MOVB (R1),(R0) ;GET CORRESPONDING NICE MESSAGE ERROR CODE
2062 003356 ELSE
2063 003360 005201 INC R1 ;INCREMENT TO NEXT TABLE ENTRY
2064 003362 ENDIF
2065 003362 ENDWHILE
2066 003364 IF ; SERVICE ERROR CODE WAS NOT FOUND
2067 003364 FALSEB SET (R0)
2068 003370 THEN
2069 003370 112720 177777 MOVB #NE$FUN,(R0)+ ;INSERT INVALID FUNCTION CODE ERROR
2070 003374 ELSE
2071 003376 005200 INC R0 ;UPDATE NICE MESSAGE POINTER
2072 003400 ENDIF
2073 003400 105020 CLRB (R0)+ ;INSERT ZERO FOR COUNT OF RETURNING
2074 003402 105020 CLRB (R0)+ ;DATA BLOCKS
2075 003404 ENDIF
2076 003404 105065 000010 CLRB C.RET(R5) ;RESET RETURN ERROR CODE
2077 003410 012765 000003 000012 MOV #LENCNT,C.LEN(R5) ;GET LENGTH OF MESSAGE BUFFER
2078 003416 112765 000053 000006 MOVB #C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
2079 003424 112764 177772 000014 MOVB #-TRCC,SBSTAT(R4) ;SET SUBSTATE TO TRANSMITING CODE & CNT
2080 003432 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 38
ZRALL
2088 .SBTTL ZRALL
2089 ;
2090 ;======================================================================;
2091 ;++
2092 ; +-------------------------------------------------+
2093 ; I I
2094 ; I Z R A L L I
2095 ; I - - - - - - I
2096 ; I I
2097 ; +-------------------------------------------------+
2098 ;
2099 ; FUNCTION:
2100 ;
2101 ; ZERO COUNTERS FOR ALL KNOWN NODES OR LINES.
2102 ;
2103 ; CALLING SEQUENCE: CALL ZRALL
2104 ;
2105 ; INPUT:
2106 ;
2107 ; R4 - ADDRESS OF THE CURRENT CONTEXT
2108 ; SBSTAT - CLEAR
2109 ; R5 - ADDRESS OF CONTROL BLOCK
2110 ; C.ADDR - ADDRESS OF FREE MESSAGE BUFFER
2111 ; C.TYPE - TYPE CODE OF COUNTERS TO BE ZEROED (RI$ZRM OR RI$ZLN)
2112 ;
2113 ; OUTPUT:
2114 ;
2115 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
2116 ; LILEN - CLEAR
2117 ; LIADDR - ADDRESS OF BUFFER OF LISTING OF NODES OR LINES
2118 ; LIPTR - NOT PRESERVED
2119 ; STATE - STATE CODE: #FINISH IF SUCCESS
2120 ; SBSTAT - CLEAR IF SUCCESS
2121 ; RETCOD - ABORT RETURN CODE IF SERVICE FAILED
2122 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
2123 ; C.RET - CLEAR IF SUCCESS, ABORT RETURN CODE IF TRANSMIT FAILED
2124 ; C.ADDR - ADDRESS OF A FREE MESSAGE BUFFER
2125 ; C.TYPE - TYPE CODE OF COUNTERS ZEROED (RI$ZRM OR RI$ZLN)
2126 ; C.SAVE - NOT PRESERVED (2 WORDS)
2127 ;
2128 ; REQUIREMENTS:
2129 ;
2130 ; CONTROL BLOCK SYMBOLS:
2131 ;
2132 ; C$ALBF - ALLOCATE MEMORY BUFFER FUNCTION CODE
2133 ; C.FUNC - OFFSET OF FUNCTION CODE
2134 ; C.RET - OFFSET OF RETURN CODE
2135 ; C.LEN - OFFSET OF LENGTH
2136 ; C.ADDR - OFFSET OF BLOCK ADDRESS
2137 ; C.TYPE - OFFSET OF CODE FOR COUNTERS TO BE ZEROED
2138 ; C.SAVE - OFFSET OF SAVE AREA (4 BYTES)
2139 ; RI$RML - REMOTE NODE NAME LISTINGS TYPE CODE
2140 ; RI$LNL - LINE-ID LISTINGS TYPE CODE
2141 ;
2142 ; NICE MESSAGE SYMBOLS:
2143 ;
2144 ; N.MLEN - NICE MESSAGE LENGTH
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 38-1
ZRALL
2145 ;
2146 ; "READ INFORMATION" PROCESSOR SYMBOLS
2147 ;
2148 ; LILEN - OFFSET OF NUMBER OF NODES OR LINES LISTED
2149 ; LIADDR - OFFSET OF ADDRESS OF LISTING OF NODES OR LINES
2150 ; LIPTR - OFFSET OF ADDRESS OF NEXT NODE OR LINE TO PROCESS
2151 ; MSGCOD - OFFSET OF NICE RETURN MESSAGE DATA BLOCK CODE
2152 ; STATE - OFFSET OF READ INFO STATE
2153 ; SBSTAT - OFFSET OF READ INFO SUBSTATE
2154 ; FINISH - FINISH NEEDED STATE
2155 ; ALBF - ALLOCATING MEMORY BUFFER SUBSTATE
2156 ; RDLI - READING LISTING OF ALL REMOTE NODE NAMES OR LINE-IDS
2157 ; TRC - TRANSMIT RETURN CODE
2158 ; ZERO - ZEROING COUNTERS SUBSTATE
2159 ;--
2160 ;======================================================================;
2161 ;
2162 ;
2163 ; EXTERNAL MACROS
2164 ;
2165 .MCALL CONDF,NICDF,RIDF
2166 ;
2167 ; DEFINE EXTERNAL SYMBOLS
2168 ;
2169 003434 CONDF ;CONTROL BLOCK SYMBOLS
2170 003434 NICDF ;NICE MESSAGE SYMBOLS
2171 003434 RIDF ;"READ INFORMATION" PROCESSOR SYMBOLS
2172 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 39
ZRALL
2174 ;
2175 ; PROCEDURE BODY
2176 ;
2177 003434 PROCLC ZRALL
2178 003434 IF ; SUBSTATE = 0
2179 003434 FALSEB SET SBSTAT(R4)
2180 003442 THEN
2181 003442 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;GET ORIGINAL LENGTH OF BUFFER
2182 003450 ENDIF
2183 003450 IF ; SUBSTATE = 0 OR TYPE CODE = READ LISTINGS
2184 003450 TRUEB CLEAR SBSTAT(R4)
2185 003456 TRUEB EQ C.TYPE(R5),#RI$RML
2186 003466 FALSEB NE C.TYPE(R5),#RI$LNL
2187 003476 THEN
2188 003476 CALL RIRDLI ;READ LISTINGS OF NODES OR LINES
2189 003502 ENDIF
2190 003502 IF ; SUBSTATE = READ LISTINGS
2191 003502 FALSEB NE SBSTAT(R4),#RDLI
2192 003512 THEN
2193 003512 016564 000012 000002 MOV C.LEN(R5),LILEN(R4) ;SAVE NUMBER OF NAMES OR IDS READ
2194 003520 016564 000014 000004 MOV C.ADDR(R5),LIADDR(R4) ;SAVE ADDRESS OF LISTING
2195 003526 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;SET LENGTH OF BUFFER
2196 003534 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5) ;ALLOCATE BUFFER
2197 003542 112764 177777 000014 MOVB #-ALBF,SBSTAT(R4) ;SET SUBSTATE TO ALLOCATING BUFFER
2198 003550 ENDIF
2199 003550 IF ; SUBSTATE = ALLOCATE BUFFER
2200 003550 FALSEB NE SBSTAT(R4),#ALBF
2201 003560 THEN
2202 003560 IF ; SUCCESS
2203 003560 FALSEB LE C.RET(R5)
2204 003566 THEN
2205 003566 016565 000014 000024 MOV C.ADDR(R5),C.SAVE+2(R5) ;SAVE ADDRESS OF BUFFER
2206 003574 016464 000004 000006 MOV LIADDR(R4),LIPTR(R4) ;INITIALIZE LISTING POINTER
2207 003602 112764 000010 000014 MOVB #ZERO,SBSTAT(R4) ;SET SUBSTATE TO ZEROING COUNTERS
2208 003610 ENDIF
2209 003610 ENDIF
2210 003610 IF ; SUBSTATE = ZERO COUNTERS
2211 003610 FALSEB NE SBSTAT(R4),#ZERO
2212 003620 THEN
2213 003620 IF ; SUCCESS
2214 003620 FALSEB LE C.RET(R5)
2215 003626 THEN
2216 003626 IF ; MORE NODES OR LINES WAITING FOR COUNTERS TO BE ZEROED
2217 003626 FALSE LE LILEN(R4)
2218 003634 THEN
2219 003634 005364 000002 DEC LILEN(R4) ;DECREMENT NUMBER LEFT
2220 003640 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;GET ORIGINAL LENGTH OF BUFFER
2221 003646 CALL ZRLBFA ;LOAD BUFFER FOR "ZERO COUNTERS" SERVICE
2222 003652 ELSE
2223 003654 010465 000014 MOV R4,C.ADDR(R5) ;GET ADDRESS OF CONTEXT
2224 003660 062765 000010 000014 ADD #MSGCOD,C.ADDR(R5) ;MAKE IT ADDRESS OF RETURN CODE
2225 003666 CALL ZRTRC ;TRANSMIT RETURN CODE
2226 003672 ENDIF
2227 003672 ENDIF
2228 003672 ENDIF
2229 003672 IF ; FAILURE
2230 003672 FALSEB PL C.RET(R5)
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 39-1
ZRALL
2231 003700 THEN
2232 003700 010465 000014 MOV R4,C.ADDR(R5) ;GET ADDRESS OF CONTEXT
2233 003704 062765 000010 000014 ADD #MSGCOD,C.ADDR(R5) ;MAKE IT ADDRESS OF RETURN CODE
2234 003712 CALL ZRTRC ;TRANSMIT RETURN CODE
2235 003716 ENDIF
2236 003716 IF ; SUBSTATE = TRANSMIT RETURN CODE
2237 003716 FALSEB NE SBSTAT(R4),#TRC
2238 003726 THEN
2239 003726 016565 000024 000014 MOV C.SAVE+2(R5),C.ADDR(R5) ;RESTORE ADDRESS OF BUFFER
2240 003734 105064 000014 CLRB SBSTAT(R4) ;CLEAN UP SUBSTATE
2241 003740 112764 000002 000013 MOVB #FINISH,STATE(R4) ;SET STATE TO FINISH UP
2242 003746 ENDIF
2243 003746 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 40
ZRCNTR
2250 .SBTTL ZRCNTR
2251 ;
2252 ;======================================================================;
2253 ;++
2254 ; +-------------------------------------------------+
2255 ; I I
2256 ; I Z R C N T R I
2257 ; I - - - - - - I
2258 ; I I
2259 ; +-------------------------------------------------+
2260 ;
2261 ; FUNCTION:
2262 ;
2263 ; ZERO COUNTER SPECIFIED
2264 ;
2265 ; CALLING SEQUENCE: CALL ZRCNTR
2266 ;
2267 ; INPUT:
2268 ;
2269 ; R4 - ADDRESS OF THE CURRENT CONTEXT
2270 ; SBSTAT - CLEAR
2271 ; RMNODE - REMOTE NODE NAME FOR WHICH COUNTERS ARE TO BE ZEROED
2272 ; LINE - LINE-ID FOR WHICH COUNTERS ARE TO BE ZEROED
2273 ; R5 - ADDRESS OF CONTROL BLOCK
2274 ; C.ADDR - ADDRESS OF FREE MESSAGE BUFFER
2275 ; C.TYPE - TYPE CODE FOR COUNTERS TO BE ZEROED
2276 ;
2277 ; OUTPUT:
2278 ;
2279 ; C-BIT - CLEAR IF SUCCESS; SET IF INVALID TYPE CODE
2280 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
2281 ; STATE - STATE CODE: #FINISH
2282 ; SBSTAT - CLEAR IF SUCCESS OR INVALID TYPE CODE
2283 ; RETCOD - ABORT RETURN CODE: CLEAR IF SUCCESS;
2284 ; NE$LID IF INVALID LINE-ID; NE$FUN IF INVALID TYPE CODE
2285 ; RMNODE - REMOTE NODE NAME FOR WHICH COUNTERS ARE ZEROED
2286 ; LINE - LINE-ID FOR WHICH COUNTERS ARE ZEROED
2287 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
2288 ; C.RET - ABORT RETURN CODE IF TRANSMIT FAILED
2289 ; C.ADDR - ADDRESS OF FREE MESSAGE BUFFER
2290 ; C.TYPE - TYPE CODE FOR COUNTERS ZEROED
2291 ;
2292 ; REQUIREMENTS:
2293 ;
2294 ; CONFIGURATION CONTROLS:
2295 ;
2296 ; FR$LCC - LOCAL COUNTERS CONFIGURATION CONTROL FLAG
2297 ; FR$RML - REMOTE LISTINGS CONFIGURATION CONTROL FLAG
2298 ; FR$RMC - REMOTE COUNTERS CONFIGURATION CONTROL FLAG
2299 ; FR$LNL - LINE-ID LISTINGS CONFIGURATION CONTROL FLAG
2300 ; FR$LNC - LINE COUNTERS CONFIGURATION CONTROL FLAG
2301 ;
2302 ; CONTROL BLOCK SYMBOLS:
2303 ;
2304 ; C.TYPE - OFFSET OF TYPE OF INFORMATION DESIRED
2305 ; RI$RML - REMOTE NODE NAME LISTINGS TYPE CODE
2306 ; RI$LNL - LINE-ID LISTINGS TYPE CODE
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 40-1
ZRCNTR
2307 ; RI$ZLC - ZERO LOCAL COUNTERS TYPE CODE
2308 ; RI$ZRM - ZERO REMOTE NODE COUNTERS TYPE CODE
2309 ; RI$ZLN - ZERO LINE COUNTERS TYPE CODE
2310 ;
2311 ; NICE MESSAGE SYMBOLS:
2312 ;
2313 ; LI$KNO - ALL KNOWN LINE-ID FORMAT TYPE
2314 ; LI$STA - STANDARD BINARY LINE-ID FORMAT TYPE
2315 ; NE$FUN - INVALID FUCTION OR OPTION
2316 ; NE$LID - INVALID LINE-ID
2317 ;
2318 ; "READ INFORMATION" SYMBOLS
2319 ;
2320 ; RETCOD - OFFSET OF RETURN CODE
2321 ; RMNODE - OFFSET OF REMOTE NODE NAME
2322 ; LINE - OFFSET OF LINE-ID
2323 ;--
2324 ;======================================================================;
2325 ;
2326 ;
2327 ; EXTERNAL MACROS
2328 ;
2329 .MCALL CONDF,CONFIG,NICDF,RIDF
2330 ;
2331 ; DEFINE EXTERNAL SYMBOLS
2332 ;
2333 003750 CONDF ;CONTROL BLOCK SYMBOLS
2334 003750 CONFIG ;CONFIGURATION CONTROL SYMBOLS
2335 003750 NICDF ;NICE MESSAGE SYMBOLS
2336 003750 RIDF ;"READ INFORMATION" SYMBOLS
2337 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 41
ZRCNTR
2339 ;
2340 ; PROCEDURE BODY
2341 ;
2342 003750 PROCLC ZRCNTR
2343 003750 105064 000015 CLRB RETCOD(R4) ;INITIALIZE ABORT RETURN CODE
2344 003754 ONCASE ; TYPE ZERO COUNTERS CODE
2345 003754 116500 000016 MOVB C.TYPE(R5),R0 ;GET TYPE CODE
2347 003760 CASE ; TYPE CODE = ZERO LOCAL NODE COUNTERS
2348 003760 FALSE NE R0,#RI$ZLC
2349 003766 DO
2350 003766 CALL ZRSPEC ;ZERO LOCAL NODE COUNTERS
2353 003772 CASE ; TYPE CODE = ZERO REMOTE NODE COUNTERS
2354 003774 TRUE EQ R0,#RI$RML
2355 004002 FALSE NE R0,#RI$ZRM
2356 004010 DO
2357 004010 ONCASE ; REMOTE NODE NAME LENGTH
2358 004010 116400 000017 MOVB RMNODE(R4),R0 ;GET REMOTE NODE NAME LENGTH
2359 004014 CASE ; LENGTH = 0 ZERO COUNTERS OF ALL KNOWN REMOTE NODES
2360 004014 FALSE SET R0
2361 004020 DO
2363 004020 CALL ZRALL ;ZERO COUNTERS OF ALL KNOWN REMOTE NODES
2368 004024 CASE ; LENGTH > 0 ZERO COUNTERS OF SPECIFIED REMOTE NODE
2369 004026 FALSE CLEAR R0
2370 004032 DO
2371 004032 CALL ZRSPEC ;ZERO COUNTERS OF SPECIFIED REMOTE NODE
2372 004036 ENDCASE
2375 004036 CASE ; TYPE CODE = ZERO LINE COUNTERS
2376 004040 TRUE EQ R0,#RI$LNL
2377 004046 FALSE NE R0,#RI$ZLN
2378 004054 DO
2379 004054 ONCASE ; LINE-ID FORMAT TYPE
2380 004054 116400 000026 MOVB LINE(R4),R0 ;GET LINE-ID FORMAT TYPE
2381 004060 CASE ; ALL KNOWN LINES
2382 004060 FALSE NE R0,#LI$KNO
2383 004066 DO
2385 004066 CALL ZRALL ;ZERO COUNTERS OF ALL KNOWN LINES
2390 004072 CASE ; STANDART LINE FORMAT
2391 004074 FALSE NE R0,#LI$STA
2392 004102 DO
2393 004102 CALL ZRSPEC ;ZERO COUNTERS OF SPECIFIED LINE
2394 004106 ELSE ; LINE-ID FORMAT TYPE NOT VALID
2395 004110 012700 177770 MOV #NE$LID,R0 ;INVALID LINE-ID FORMAT TYPE
2396 004114 CALL RIABRT ;BLOW IT UP
2397 004120 ENDCASE
2398 004120 ELSE ; TYPE CODE IS INVALID
2399 004122 012700 177777 MOV #NE$FUN,R0 ;INVALID TYPE CODE
2400 004126 CALL RIABRT ;BLOW IT UP
2401 004132 ENDCASE
2402 004132 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 42
ZRLBFA
2410 .SBTTL ZRLBFA
2411 ;
2412 ;======================================================================;
2413 ;++
2414 ; +-------------------------------------------------+
2415 ; I I
2416 ; I Z R L B F A I
2417 ; I - - - - - - I
2418 ; I I
2419 ; +-------------------------------------------------+
2420 ;
2421 ; FUNCTION:
2422 ;
2423 ; LOAD BUFFER FOR ALL NODES OR LINES, ONE PER EACH CALL.
2424 ;
2425 ; CALLING SEQUENCE: CALL ZRLBFA
2426 ;
2427 ; INPUT:
2428 ;
2429 ; R4 - ADDRESS OF THE CURRENT CONTEXT
2430 ; LIPTR - ADDRESS OF NEXT REMOTE NODE NAME OR LINE-ID TO PROCESS
2431 ; R5 - ADDRESS OF CONTROL BLOCK
2432 ; C.LEN - MAXIMUM LENGTH OF MESSAGE BUFFER
2433 ; C.ADDR - ADDRESS OF BUFFER TO LOAD FOR "ZERO COUNTERS" SERVICE
2434 ; C.TYPE - TYPE CODE OF COUNTERS TO BE ZEROED (RI$ZRM OR RI$ZLN)
2435 ;
2436 ; OUTPUT:
2437 ;
2438 ; C-BIT - SET IF INVALID TYPE CODE, CLEARED IF VALID
2439 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
2440 ; LIPTR - ADDRESS OF NEXT REMOTE NODE NAME OR LINE-ID TO PROCESS
2441 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
2442 ; C.FUNC - FUCTION CODE: #C$ZRCN ZERO COUNTERS
2443 ; C.ADDR - ADDRESS OF BUFFER NEEDED BY "ZERO COUNTERS" SERVICE ROUTINE
2444 ; C.TYPE - TYPE CODE OF COUNTERS TO BE ZEROED (RI$ZRM OR RI$ZLN)
2445 ;
2446 ; BUFFER:
2447 ;
2448 ; TO ZERO REMOTE NODE COUNTERS:
2449 ;
2450 ; I----------------------I
2451 ; C.ADDR(R5) --> I I
2452 ; I-- --I
2453 ; I I
2454 ; I-- --I C.TYPE(R5) = RI$ZRM
2455 ; I I
2456 ; I-- --I
2457 ; I REMOTE NODE NAME(I-6)I
2458 ; I-- --I
2459 ; I I
2460 ; I-- --I
2461 ; I I
2462 ; I-- --I
2463 ; I I
2464 ; I----------------------I
2465 ;
2466 ; TO ZERO LINE COUNTERS:
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 42-1
ZRLBFA
2467 ;
2468 ; I----------------------I
2469 ; C.ADDR(R5) --> I LINE DEVICE I
2470 ; I----------------------I
2471 ; I LINE CONTROLLER I
2472 ; I----------------------I C.TYPE(R5) = RI$ZLN
2473 ; I LINE NUMBER I
2474 ; I----------------------I
2475 ; I LINE STATION I
2476 ; I----------------------I
2477 ;
2478 ; REQUIREMENTS:
2479 ;
2480 ; CONTROL BLOCK SYMBOLS:
2481 ;
2482 ; C$ZRCN - ZERO COUNTERS FUNCTION CODE
2483 ; C.FUNC - OFFSET OF FUNCTION CODE
2484 ; C.ADDR - OFFSET OF BLOCK ADDRESS
2485 ; C.TYPE - OFFSET OF TYPE CODE FOR COUNTERS TO BE ZEROED
2486 ; RI$ZRM - ZERO REMOTE NODE COUNTERS TYPE CODE
2487 ; RI$ZLN - ZERO LINE COUNTERS TYPE CODE
2488 ;
2489 ; "READ INFORMATION" PROCESSOR SYMBOLS
2490 ;
2491 ; LINLEN - LINE-ID LENGTH
2492 ; LIPTR - OFFSET OF ADDRESS OF NEXT NODE OR LINE TO PROCESS
2493 ; SBSTAT - OFFSET OF READ INFO SUBSTATE
2494 ; ZERO - ZEROING COUNTERS SUBSTATE
2495 ;--
2496 ;======================================================================;
2497 ;
2498 ;
2499 ; EXTERNAL MACROS
2500 ;
2501 .MCALL CONDF,RIDF
2502 ;
2503 ; DEFINE EXTERNAL SYMBOLS
2504 ;
2505 004134 CONDF ;CONTROL BLOCK SYMBOLS
2506 004134 RIDF ;"READ INFORMATION" PROCESSOR SYMBOLS
2507 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 43
ZRLBFA
2509 ;
2510 ; PROCEDURE BODY
2511 ;
2512 004134 PROCLC ZRLBFA
2513 004134 116500 000016 MOVB C.TYPE(R5),R0 ;GET TYPE CODE
2514 004140 IF ; TYPE CODE NOT VALID
2515 004140 FALSE EQ R0,#RI$ZRM
2516 004146 FALSE EQ R0,#RI$ZLN
2517 004154 THEN
2518 004154 000261 SEC ;SHOW FAILURE
2519 004156 ELSE
2520 004160 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF NICE MESSAGE BUFFER
2521 004164 ONCASE ; TYPE CODE FOR COUNTERS TO BE ZEROED
2522 004164 CASE ; TYPE CODE = ZERO REMOTE NODE COUNTERS
2523 004164 FALSE NE R0,#RI$ZRM
2524 004172 DO
2525 004172 016400 000006 MOV LIPTR(R4),R0 ;GET ADDRESS OF REMOTE NODE NAME
2526 004176 111001 MOVB (R0),R1 ;LENGTH OF REMOTE NODE NAME IN
2527 004200 005201 INC R1 ;IMAGE FIELD FORMAT (I-6)
2528 004202 CALL MOVE ;MOVE REMOTE NODE NAME TO BUFFER
2529 004206 010064 000006 MOV R0,LIPTR(R4) ;UPDATE REMOTE NODE NAME POINTER
2530 004212 CASE ; TYPE CODE = ZERO LINE COUNTERS
2531 004214 FALSE NE R0,#RI$ZLN
2532 004222 DO
2533 004222 016400 000006 MOV LIPTR(R4),R0 ;GET ADDRESS OF LINE-ID
2534 004226 012701 000004 MOV #LINLEN-1,R1 ;GET LENGTH OF LINE-ID
2535 004232 CALL MOVE ;MOVE LINE-ID TO BUFFER
2536 004236 010064 000006 MOV R0,LIPTR(R4) ;UPDATE LINE-ID POINTER
2537 004242 ENDCASE
2538 004242 112765 000064 000006 MOVB #C$ZRCN,C.FUNC(R5) ;SET FUNCTION TO ZERO COUNTERS
2539 004250 112764 177770 000014 MOVB #-ZERO,SBSTAT(R4) ;SET SUBSTATE TO ZEROING COUNTERS
2540 004256 000241 CLC ;SHOW SUCCESS CONDITION
2541 004260 ENDIF
2542 004260 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 44
ZRLBFS
2549 .SBTTL ZRLBFS
2550 ;
2551 ;======================================================================;
2552 ;++
2553 ; +-------------------------------------------------+
2554 ; I I
2555 ; I Z R L B F S I
2556 ; I - - - - - - I
2557 ; I I
2558 ; +-------------------------------------------------+
2559 ;
2560 ; FUNCTION:
2561 ;
2562 ; LOAD BUFFER TO ZERO COUNTERS FOR A SPECIFIED NODE OR LINE
2563 ;
2564 ; CALLING SEQUENCE: CALL ZRLBFS
2565 ;
2566 ; INPUT:
2567 ;
2568 ; R4 - ADDRESS OF THE CURRENT CONTEXT
2569 ; OPTION - OPTION CODE FOR TYPE COUNTERS TO ZERO
2570 ; RMNODE - REMOTE NODE NAME FOR WHICH COUNTERS ARE TO BE ZEROED
2571 ; LINE - LINE-ID FOR WHICH COUNTERS ARE TO BE ZEROED
2572 ; R5 - ADDRESS OF CONTROL BLOCK
2573 ; C.LEN - LENGTH OF BUFFER TO LOAD
2574 ; C.ADDR - ADDRESS OF BUFFER TO LOAD
2575 ; C.TYPE - TYPE CODE FOR COUNTERS TO BE ZEROED (RI$ZLC, RI$ZRM OR RI$ZLN)
2576 ;
2577 ; OUTPUT:
2578 ;
2579 ; C-BIT - SET IF INVALID TYPE CODE, CLEARED IF VALID
2580 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
2581 ; SBSTAT - SUBSTATE CODE: #-ZERO ZERO COUNTERS
2582 ; OPTION - OPTION CODE FOR TYPE COUNTERS TO ZERO
2583 ; RMNODE - REMOTE NODE NAME FOR WHICH COUNTERS ARE TO BE ZEROED
2584 ; LINE - LINE-ID FOR WHICH COUNTERS ARE TO BE ZEROED
2585 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
2586 ; C.FUNC - FUCTION CODE: #C$ZRCN ZERO COUNTERS
2587 ; C.ADDR - ADDRESS OF BUFFER NEEDED BY "ZERO COUNTERS" SERVICE ROUTINE
2588 ; C.TYPE - TYPE CODE FOR COUNTERS TO BE ZEROED (RI$ZLC, RI$ZRM OR RI$ZLN)
2589 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 45
ZRLBFS
2591 ; BUFFER:
2592 ;
2593 ; TO ZERO LOCAL OR REMOTE NODE COUNTERS:
2594 ;
2595 ; I----------------------I
2596 ; C.ADDR(R5) --> I I
2597 ; I-- --I
2598 ; I I
2599 ; I-- --I C.TYPE(R5) = RI$ZLC OR RI$ZRM
2600 ; I I
2601 ; I-- --I
2602 ; I NODE NAME (I-6) I
2603 ; I-- --I
2604 ; I I
2605 ; I-- --I
2606 ; I I
2607 ; I-- --I
2608 ; I I
2609 ; I----------------------I
2610 ;
2611 ; TO ZERO LINE COUNTERS:
2612 ;
2613 ; I----------------------I
2614 ; C.ADDR(R5) --> I LINE DEVICE I
2615 ; I----------------------I
2616 ; I LINE CONTROLLER I
2617 ; I----------------------I C.TYPE(R5) = RI$ZLN
2618 ; I LINE NUMBER I
2619 ; I----------------------I
2620 ; I LINE STATION I
2621 ; I----------------------I
2622 ;
2623 ; REQUIREMENTS:
2624 ;
2625 ; CONTROL BLOCK SYMBOLS:
2626 ;
2627 ; C$ZRCN - ZERO COUNTERS FUNCTION CODE
2628 ; C.FUNC - OFFSET OF FUNCTION CODE
2629 ; C.LEN - OFFSET OF LENGTH
2630 ; C.ADDR - OFFSET OF BLOCK ADDRESS
2631 ; C.TYPE - OFFSET OF TYPE CODE OF OF COUNTERS TO ZERO
2632 ; RI$ZLC - ZERO LOCAL NODE COUNTERS TYPE CODE
2633 ; RI$ZRM - ZERO REMOTE NODE COUNTERS TYPE CODE
2634 ; RI$ZLN - ZERO LINE COUNTERS TYPE CODE
2635 ;
2636 ; "READ INFORMATION" SYMBOLS
2637 ;
2638 ; LINLEN - LINE-ID LENGTH
2639 ; SBSTAT - OFFSET OF READ INFO SUBSTATE
2640 ; RMNODE - OFFSET OF REMOTE NODE NAME
2641 ; LINE - OFFSET OF LINE-ID
2642 ; ZERO - ZEROING COUNTERS SUBSTATE
2643 ;--
2644 ;======================================================================;
2645 ;
2646 ;
2647 ; EXTERNAL MACROS
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 45-1
ZRLBFS
2648 ;
2649 .MCALL CONDF,RIDF
2650 ;
2651 ; DEFINE EXTERNAL SYMBOLS
2652 ;
2653 004262 CONDF ;CONTROL BLOCK SYMBOLS
2654 004262 RIDF ;"READ INFORMATION" SYMBOLS
2655 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 46
ZRLBFS
2657 ;
2658 ; PROCEDURE BODY
2659 ;
2660 004262 PROCLC ZRLBFS
2661 004262 116500 000016 MOVB C.TYPE(R5),R0 ;GET TYPE CODE
2662 004266 IF ; TYPE CODE NOT VALID
2663 004266 TRUE LT R0,#RI$ZLC
2664 004274 FALSE LE R0,#RI$ZLN
2665 004302 THEN
2666 004302 000261 SEC ;SHOW FAILURE
2667 004304 ELSE
2668 004306 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF BUFFER TO LOAD
2669 004312 ONCASE ; TYPE CODE OF COUNTERS TO ZERO
2670 004312 CASE ; TYPE CODE = ZERO LOCAL NODE COUNTERS
2671 004312 FALSE NE R0,#RI$ZLC
2672 004320 DO
2673 004320 016501 000012 MOV C.LEN(R5),R1 ;GET MAXIMUM LENGTH OF BUFFER TO LOAD
2674 004324 005202 INC R2 ;LEAVE SPACE FOR LOCAL NODE NAME LENGTH
2675 004326 CALL LOCNOD ;MOVE LOCAL NODE NAME TO BUFFER
2676 004332 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS TO PUT LOCAL NODE NAME LENGTH
2677 004336 110112 MOVB R1,(R2) ;MOVE LOCAL NODE NAME LENGTH TO BUFFER
2678 004340 CASE ; TYPE CODE = ZERO REMOTE NODE COUNTERS
2679 004342 FALSE NE R0,#RI$ZRM
2680 004350 DO
2681 004350 012700 000017 MOV #RMNODE,R0 ;OFFSET OF REMOTE NODE NAME IN CONTEXT
2682 004354 060400 ADD R4,R0 ;MAKE IT SOURCE ADDRESS
2683 004356 111001 MOVB (R0),R1 ;LENGTH OF REMOTE NODE NAME IN
2684 004360 005201 INC R1 ;IMAGE FIELD FORMAT (I-6)
2685 004362 CALL MOVE ;MOVE REMOTE NODE NAME TO BUFFER
2686 004366 CASE ; TYPE CODE = ZERO LINE COUNTERS
2687 004370 FALSE NE R0,#RI$ZLN
2688 004376 DO
2689 004376 012700 000027 MOV #LINE+1,R0 ;OFFSET OF LINE-ID IN CONTEXT
2690 004402 060400 ADD R4,R0 ;MAKE IT SOURCE ADDRESS
2691 004404 012701 000004 MOV #LINLEN-1,R1 ;GET LENGTH OF LINE-ID
2692 004410 CALL MOVE ;MOVE LINE-ID TO BUFFER
2693 004414 ENDCASE
2694 004414 112765 000064 000006 MOVB #C$ZRCN,C.FUNC(R5) ;SET FUNCTION TO ZERO COUNTERS
2695 004422 112764 177770 000014 MOVB #-ZERO,SBSTAT(R4) ;SET SUBSTATE TO ZEROING COUNTERS
2696 004430 000241 CLC ;SHOW SUCCESS CONDITION
2697 004432 ENDIF
2698 004432 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 47
ZRSPEC
2704 .SBTTL ZRSPEC
2705 ;
2706 ;======================================================================;
2707 ;++
2708 ; +-------------------------------------------------+
2709 ; I I
2710 ; I Z R S P E C I
2711 ; I - - - - - - I
2712 ; I I
2713 ; +-------------------------------------------------+
2714 ;
2715 ; FUNCTION:
2716 ;
2717 ; ZERO COUNTERS FOR A SPECIFIED NODE OR LINE.
2718 ;
2719 ; CALLING SEQUENCE: CALL ZRSPEC
2720 ;
2721 ; INPUT:
2722 ;
2723 ; R4 - ADDRESS OF THE CURRENT CONTEXT
2724 ; OPTION - OPTION CODE FOR TYPE COUNTERS TO ZERO
2725 ; RMNODE - REMOTE NODE NAME FOR WHICH COUNTERS ARE TO BE ZEROED
2726 ; LINE - LINE-ID FOR WHICH COUNTERS ARE TO BE ZEROED
2727 ; R5 - ADDRESS OF CONTROL BLOCK
2728 ; C.ADDR - ADDRESS OF FREE MESSAGE BUFFER
2729 ; C.TYPE - TYPE CODE FOR COUNTERS TO BE ZEROED (11,12,13)
2730 ;
2731 ; OUTPUT:
2732 ;
2733 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
2734 ; STATE - STATE CODE: #FINISH IF SUCCESS
2735 ; SBSTAT - CLEAR IF SUCCESS
2736 ; OPTION - OPTION CODE FOR TYPE COUNTERS ZEROED
2737 ; RMNODE - REMOTE NODE NAME FOR WHICH COUNTERS ARE ZEROED
2738 ; LINE - LINE-ID FOR WHICH COUNTERS ARE ZEROED
2739 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
2740 ; C.RET - CLEAR IF SUCCESS, ABORT RETURN CODE IF TRANSMIT FAILED
2741 ; C.ADDR - ADDRESS OF FREE MESSAGE BUFFER
2742 ; C.TYPE - TYPE CODE FOR COUNTERS ZEROED (11,12,13)
2743 ; C.SAVE - NOT PRESERVED (2 WORDS)
2744 ;
2745 ; REQUIREMENTS:
2746 ;
2747 ; CONTROL BLOCK SYMBOLS:
2748 ;
2749 ; C.RET - OFFSET OF RETURN CODE
2750 ; C.LEN - OFFSET OF LENGTH
2751 ; C.ADDR - OFFSET OF BLOCK ADDRESS
2752 ; C.SAVE - OFFSET OF SAVE AREA (4 BYTES)
2753 ;
2754 ; NICE MESSAGE SYMBOLS:
2755 ;
2756 ; N.MLEN - NICE MESSAGE LENGTH
2757 ;
2758 ; "READ INFORMATION" SYMBOLS
2759 ;
2760 ; MSGCOD - OFFSET OF NICE RETURN MESSAGE DATA BLOCK CODE
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 47-1
ZRSPEC
2761 ; STATE - OFFSET OF READ INFO STATE
2762 ; SBSTAT - OFFSET OF READ INFO SUBSTATE
2763 ; FINISH - FINISH NEEDED STATE
2764 ; ZERO - ZEROING COUNTERS SUBSTATE
2765 ; TRC - TRANSMITTING RETURN CODE SUBSTATE
2766 ;--
2767 ;======================================================================;
2768 ;
2769 ;
2770 ; EXTERNAL MACROS
2771 ;
2772 .MCALL CONDF,NICDF,RIDF
2773 ;
2774 ; DEFINE EXTERNAL SYMBOLS
2775 ;
2776 004434 CONDF ;CONTROL BLOCK SYMBOLS
2777 004434 NICDF ;NICE MESSAGE SYMBOLS
2778 004434 RIDF ;"READ INFORMATION" SYMBOLS
2779 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 48
ZRSPEC
2781 ;
2782 ; PROCEDURE BODY
2783 ;
2784 004434 PROCLC ZRSPEC
2785 004434 ONCASE ; SUBSTATE
2786 004434 116400 000014 MOVB SBSTAT(R4),R0 ;GET SUBSTATE
2787 004440 CASE ; SUBSTATE = 0
2788 004440 FALSE SET R0
2789 004444 DO
2790 004444 016565 000014 000024 MOV C.ADDR(R5),C.SAVE+2(R5) ;SAVE ADDRESS OF MESSAGE BUFFER
2791 004452 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;GET ORIGINAL LENGTH OF BUFFER
2792 004460 CALL ZRLBFS ;LOAD BUFFER FOR ZERO COUNTERS SERVICE
2793 004464 CASE ; SUBSTATE = ZERO COUNTERS
2794 004466 FALSE NE R0,#ZERO
2795 004474 DO
2796 004474 010465 000014 MOV R4,C.ADDR(R5) ;GET ADDRESS OF CONTEXT
2797 004500 062765 000010 000014 ADD #MSGCOD,C.ADDR(R5) ;MAKE IT ADDRESS OF CODE
2798 004506 CALL ZRTRC ;TRANSMIT RETURN CODE
2799 004512 CASE ; SUBSTATE = TRANSMIT RETURN CODE
2800 004514 FALSE NE R0,#TRC
2801 004522 DO
2802 004522 016565 000024 000014 MOV C.SAVE+2(R5),C.ADDR(R5) ;RESTORE ADDRESS OF BUFFER
2803 004530 IF ; SUCCESS
2804 004530 FALSEB LE C.RET(R5)
2805 004536 THEN
2806 004536 105064 000014 CLRB SBSTAT(R4) ;CLEAN UP SUBSTATE
2807 004542 112764 000002 000013 MOVB #FINISH,STATE(R4) ;SET STATE TO FINISH UP
2808 004550 ENDIF
2809 004550 ENDCASE
2810 004550 ENDPROC
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 49
ZRTRC
2816 .SBTTL ZRTRC
2817 ;
2818 ;======================================================================;
2819 ;++
2820 ; +-------------------------------------------------+
2821 ; I I
2822 ; I Z R T R C I
2823 ; I - - - - - - I
2824 ; I I
2825 ; +-------------------------------------------------+
2826 ;
2827 ; FUNCTION:
2828 ;
2829 ; TRANSMIT RETURN CODE IN NICE MESSAGE VIA LINK NUMBER
2830 ;
2831 ; CALLING SEQUENCE: CALL ZRTRC
2832 ;
2833 ; INPUT:
2834 ;
2835 ; R4 - ADDRESS OF THE CURRENT CONTEXT
2836 ; R5 - ADDRESS OF CONTROL BLOCK
2837 ; C.RET - RETURN CODE FROM "ZERO COUNTERS" SERVICE
2838 ; C.ADDR - ADDRESS OF AN EMPTY MESSAGE BUFFER
2839 ;
2840 ; OUTPUT:
2841 ;
2842 ; @R4 - ADDRESS OF THE UPDATED CURRENT CONTEXT
2843 ; SBSTAT - SUBSTATE CODE: #-TRC TRANSMITTING RETURN CODE
2844 ; @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
2845 ; C.FUNC - FUCTION CODE: C$TRMS TRANSMIT MESSAGE
2846 ; C.RET - CLEAR
2847 ; C.LEN - LENGTH OF RETURN CODE NICE MESSAGE
2848 ; C.ADDR - ADDRESS OF RETURN CODE NICE MESSAGE
2849 ;
2850 ; REQUIREMENTS:
2851 ;
2852 ; CONTROL BLOCK SYMBOLS:
2853 ;
2854 ; C$TRMS - TRANSMIT MESSAGE SYNCH. ON LOGICAL LINK FUNCTION CODE
2855 ; CE$FUN - INVALID FUNCTION CODE
2856 ; CE$LID - BAD LINE-ID
2857 ; CE$NOD - BAD NODE NAME
2858 ; CE$OVR - TABLE OVERFLOW
2859 ; C.FUNC - OFFSET OF FUNCTION CODE
2860 ; C.RET - OFFSET OF RETURN CODE
2861 ; C.LEN - OFFSET OF LENGTH
2862 ; C.ADDR - OFFSET OF BLOCK ADDRESS
2863 ;
2864 ; NICE MESSAGE SYMBOLS:
2865 ;
2866 ; NS$SUC - SUCCESS RETURN CODE
2867 ; NE$FUN - INVALID FUNCTION OR OPTION
2868 ; NE$LID - INVALID LINE-ID
2869 ; NE$NOD - INVALID NODE NAME
2870 ; NE$RES - RESOURCE ERROR
2871 ;
2872 ; "READ INFORMATION" SYMBOLS
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 49-1
ZRTRC
2873 ;
2874 ; SBSTAT - OFFSET OF READ INFO SUBSTATE
2875 ; TRC - TRANSMIT RETURN CODE SUBSTATE
2876 ;--
2877 ;======================================================================;
2878 ;
2879 ;
2880 ; EXTERNAL MACROS
2881 ;
2882 .MCALL CONDF,NICDF,RIDF
2883 ;
2884 ; DEFINE EXTERNAL SYMBOLS
2885 ;
2886 004552 CONDF ;CONTROL BLOCK SYMBOLS
2887 004552 NICDF ;NICE MESSAGE SYMBOLS
2888 004552 RIDF ;"READ INFORMATION" SYMBOLS
2889 ;
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 50
ZRTRC
2891 ;
2892 ; LOCAL DATA TABLE
2893 ;
2894 ; TRANSLATE "READ INFORMATION" RETURN CODE TO NICE MESSAGE ERROR CODES
2895 ;
2896 004552 ZRETAB:
2897 ;
2898 004552 377 377 .BYTE CE$FUN,NE$FUN ;INVALID FUNCTION OR OPTION
2899 004554 366 370 .BYTE CE$LID,NE$LID ;SPECIFIED LINE-ID NOT FOUND
2900 004556 365 365 .BYTE CE$NOD,NE$NOD ;SPECIFIED NODE NAME NOT FOUND
2901 004560 364 361 .BYTE CE$OVR,NE$RES ;BUFFER SIZE EXCEEDED
2902 004562 000 .BYTE 0
2903 ;
2904 .EVEN
2905 ;
2906 ; PROCEDURE BODY
2907 ;
2908 004564 PROCLC ZRTRC
2909 004564 016500 000014 MOV C.ADDR(R5),R0 ;GET BUFFER ADDRESS FOR RETURN CODE
2910 004570 IF ; SUCCESS
2911 004570 FALSEB LE C.RET(R5)
2912 004576 THEN
2913 004576 112710 000001 MOVB #NS$SUC,(R0) ;INSERT SUCCESS RETURN CODE
2914 004602 ELSE
2915 004604 105010 CLRB (R0) ;INITIALIZE NICE RETURN CODE ERROR
2916 004606 012701 004552' MOV #ZRETAB,R1 ;INITIALIZE TRANSLATE TABLE POINTER
2917 004612 WHILE ; SERVICE ERROR CODE TYPE NOT FOUND AND MORE TO SEARCH
2918 004612 FALSEB SET (R0)
2919 004616 FALSEB CLEAR (R1)
2920 004622 DO
2921 004622 IF ; SERVICE ERROR CODE FOUND
2922 004622 FALSEB NE C.RET(R5),(R1)+
2923 004630 THEN
2924 004630 111110 MOVB (R1),(R0) ;GET CORRESPONDING NICE MESSAGE ERROR CODE
2925 004632 ELSE
2926 004634 005201 INC R1 ;INCREMENT TO NEXT TABLE ENTRY
2927 004636 ENDIF
2928 004636 ENDWHILE
2929 004640 IF ; SERVICE ERROR CODE WAS NOT FOUND
2930 004640 FALSEB SET (R0)
2931 004644 THEN
2932 004644 112720 177777 MOVB #NE$FUN,(R0)+ ;INSERT INVALID FUNCTION CODE ERROR
2933 004650 ELSE
2934 004652 005200 INC R0 ;UPDATE NICE MESSAGE POINTER
2935 004654 ENDIF
2936 004654 ENDIF
2937 004654 105065 000010 CLRB C.RET(R5) ;RESET RETURN ERROR CODE
2938 004660 012765 000001 000012 MOV #1,C.LEN(R5) ;GET LENGTH OF MESSAGE BUFFER
2939 004666 112765 000053 000006 MOVB #C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
2940 004674 112764 177767 000014 MOVB #-TRC,SBSTAT(R4) ;SET SUBSTATE TO TRANSMITING CODE
2941 004702 ENDPROC
2944 000001 .END
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 50-1
SYMBOL TABLE
ALBF = 000001 C$RCEV= 000050 FL$LOO= 000001 F$RCEV= 000001 LS$LOO= 000001
A$$CHK= 000000 C$RCIN= 000062 FR$LCC= 000001 F$RCIN= 000000 LS$TRI= 000004
A$$CPS= 000000 C$RCMA= 000146 FR$LCS= 000001 F$RCMA= 000000 LS$TRQ= 000003
A$$TRP= 000000 C$RCMS= 000054 FR$LNC= 000001 F$RCMS= 000002 L$$ASG= 000000
CE$ACP= 177753 C$RDBK= 000043 FR$LNL= 000001 F$RDBK= 000000 L$$DRV= 000000
CE$ADR= 177776 C$RDCM= 000035 FR$LNS= 000001 F$RDCM= 000000 L$$P11= 000001
CE$CON= 177770 C$RDIN= 000040 FR$RMC= 000001 F$RDIN= 000001 L$$11R= 000000
CE$DIS= 177771 C$RDIS= 000040 FR$RML= 000001 F$RDIS= 000012 MOVE = ****** GX
CE$EOF= 177767 C$RDRC= 000060 FR$RMS= 000001 F$RDRC= 000000 MSBFHD 000000
CE$FAI= 177774 C$RLBF= 000001 FS$HOS= 000001 F$RECO= 000001 MSGCNT 000011
CE$FIL= 177756 C$RLCB= 000002 FS$INT= 000000 F$RLBF= 000001 MSGCOD 000010
CE$FUN= 177777 C$RLCI= 000000 FS$LLP= 000001 F$RLCB= 000001 MVMSBY= ****** GX
CE$GEN= 177774 C$STBK= 000055 FS$LOF= 000001 F$STBK= 000000 MVMSIM= ****** GX
CE$IND= 177757 C$STPR= 000037 FS$LOG= 000001 F$STPR= 000001 M$$CRB= 000124
CE$IO = 177760 C$STPS= 000037 FS$LST= 000001 F$STPS= 000006 M$$CRX= 000000
CE$LEN= 177775 C$TRBK= 000046 FS$NET= 000001 F$TEST= 000001 M$$FCS= 000000
CE$LID= 177766 C$TRIN= 000063 FS$NST= 000000 F$TRAC= 000000 M$$OVR= 000000
CE$LST= 177752 C$TRMA= 000145 FS$PAS= 000001 F$TRBK= 000001 ND$BAD= 177777
CE$NOD= 177765 C$TRMS= 000053 FT$CNS= 000000 F$TRIG= 000001 ND$LCC= 000000
CE$NSD= 177755 C$WRBK= 000044 FT$NOD= 000001 F$TRIN= 000000 ND$LCS= 000001
CE$NST= 177754 C$WRCL= 000065 FT$TSK= 000001 F$TRMA= 000000 ND$LNC= 000004
CE$NWE= 177773 C$WRCM= 000036 F$ALBF= 000001 F$TRMS= 000002 ND$LNS= 000005
CE$OBJ= 177750 C$WRRC= 000061 F$ALCB= 000001 F$WRBK= 000000 ND$RMC= 000002
CE$OPN= 177761 C$ZRCN= 000064 F$CB = 000017 F$WRCL= 000001 ND$RMS= 000003
CE$OVR= 177764 C$$CKP= 000000 F$CLCL= 000001 F$WRCM= 000000 ND$ZLC= 000000
CE$PAR= 177763 C$$ORE= 000400 F$CLCO= 000000 F$WRRC= 000000 ND$ZLN= 000002
CE$PRO= 177751 C$$RSH= 177564 F$CLFL= 000000 F$ZERO= 000001 ND$ZRM= 000001
CE$REJ= 177772 C.ADDR= 000014 F$CLLK= 000006 F$ZRCN= 000001 NE$CON= 177762
CE$TMO= 177762 C.BKNM= 000014 F$CLLN= 000002 F$$LVL= 000001 NE$FIL= 177763
CS$ACK= 000002 C.CTXT= 000004 F$DPOS= 000001 F$150 = 000002 NE$FIO= 177756
CS$LKE= 000001 C.FUNC= 000006 F$DUMP= 000000 F$300 = 000012 NE$FOR= 177776
CS$LNA= 000002 C.LEN = 000012 F$EVNT= 000001 F$50 = 000002 NE$FUN= 177777
CS$LOG= 000003 C.LINE= 000014 F$EXAM= 000001 F$550 = 000002 NE$LCO= 177766
CS$NCH= 000003 C.LKNM= 000020 F$EXHO= 000000 GTINFO= 000001 NE$LID= 177770
CS$SUC= 000001 C.LUN = 000020 F$GTCM= 000001 GTMSBY= ****** GX NE$LPR= 177757
CTXTLN= 000034 C.MODE= 000021 F$INCM= 000000 G$$TPP= 000000 NE$LST= 177767
C$ALBF= 000032 C.PRID= 000017 F$INLU= 000001 G$$TSS= 000000 NE$NCO= 177755
C$ALCB= 000033 C.PROC= 000007 F$IRLU= 000000 G$$TTK= 000000 NE$NIC= 177753
C$CLCL= 000067 C.PROM= 000016 F$LKLU= 000010 I$$RAR= 000000 NE$NOD= 177765
C$CLCO= 000003 C.PTR = 000000 F$LNLU= 000002 I$$RDN= 000000 NE$NOR= 177754
C$CLFL= 000004 C.RET = 000010 F$LNSR= 000001 K$$CNT= 177546 NE$ORD= 177774
C$CLLK= 000052 C.SAVE= 000022 F$LOAD= 000000 K$$CSR= 177546 NE$PAR= 177760
C$CLLN= 000005 C.SERV= 000002 F$LOGD= 000001 K$$LDC= 000000 NE$RES= 177761
C$LEN = 000026 C.TASK= 000016 F$LOOP= 000001 K$$TPS= 000074 NE$SER= 177764
C$NOPN= 000031 C.TYPE= 000016 F$NTCM= 000000 LD$LP = 000000 NE$STA= 177775
C$NORD= 000032 C.WAIT= 000020 F$OPCL= 000001 LENCNT= 000003 NL$BRC= 000001
C$OPCL= 000066 DM$END= 000000 F$OPCO= 000000 LIADDR 000004 NL$BTR= 000002
C$OPCO= 000034 DM$MIM= 000002 F$OPIN= 000000 LILEN 000002 NL$RES= 000005
C$OPIN= 000041 DM$PXA= 000003 F$OPIR= 000000 LINE 000026 NL$RLE= 000004
C$OPIR= 000056 DM$SAD= 000001 F$OPLK= 000005 LINLEN= 000005 NL$RTR= 000003
C$OPLK= 000051 D$$BUG= 177514 F$OPLN= 000002 LIPTR 000006 NL$TMO= 000006
C$OPLN= 000045 D$$ISK= 000000 F$OPLO= 000000 LI$KNO= 000000 NL$ZRO= 000000
C$OPOR= 000057 D$$L11= 000001 F$OPOR= 000000 LI$STA= 000001 NN$CAC= 000011
C$OPOT= 000042 FINISH= 000002 F$OPOT= 000000 LI$STR= 000002 NN$CNI= 000013
C$ORD = 000145 FL$BOO= 000001 F$ORLU= 000000 LOCNOD= ****** GX NN$CNR= 000014
C$PROC= 000200 FL$DUM= 000001 F$OTLU= 000001 LS$DUM= 000002 NN$EXT= 000003
C$RCBK= 000047 FL$LOA= 000001 F$RCBK= 000002 LS$LOA= 000000 NN$FMT= 000005
RIMAIN MACRO M1110 13-OCT-79 11:00 PAGE 50-2
SYMBOL TABLE
NN$IZS= 000007 PIDNSP= 000001 RIGINF 000632R SP$DHO= 000003 V$$CTR= 001000
NN$IZU= 000010 PTEXWD= ****** GX RIINIT 001040R SP$DRP= 000007 X$$DBT= 000000
NN$MAC= 000012 PT$END= 000000 RILBFA 001170R SP$DTP= 000010 YES = 000001
NN$NKS= 000004 PT$HOS= 000003 RILBFS 001412R SP$LHO= 000002 ZERO = 000010
NN$RES= 000006 PT$NAM= 000001 RIMAIN 001736RG SP$LLP= 000011 ZRALL 003434R
NN$UMR= 000002 PT$NUM= 000002 RIPARS 002244R SP$LNM= 000016 ZRCNTR 003750R
NN$UMS= 000001 P$DPOS= 000016 RIRDLI 002674R SP$LNO= 000015 ZRETAB 004552R
NN$ZRO= 000000 P$DUMP= 000003 RISPEC 003036R SP$LOF= 000012 ZRLBFA 004134R
NO = 000000 P$EVNT= 000011 RITEND= 000006 SP$LST= 000001 ZRLBFS 004262R
NODLEN= 000006 P$EXAM= 000017 RITRCC 003300R SP$NDM= 000014 ZRSPEC 004434R
NS$SUC= 000001 P$GTCM= 000001 RITTAB 001724R SP$NDO= 000013 ZRTEND= 000003
N$DPOS= 000014 P$INCM= 000015 RI$LCC= 000001 SP$NST= 000006 ZRTRC 004564R
N$DUMP= 000003 P$LNSR= 000004 RI$LCS= 000002 SP$RRP= 000004 ZRTTAB 001732R
N$EXAM= 000015 P$LOAD= 000002 RI$LNC= 000007 SP$RTP= 000005 $$CSTA= 000000
N$LNSR= 000016 P$LOGD= 000020 RI$LNL= 000006 STATE 000013 $$PRST= 000013
N$LOAD= 000002 P$LOOP= 000005 RI$LNS= 000010 ST$DIS= 000006 $$STIX= 000777
N$LOGD= 000001 P$NTCM= 000014 RI$RMC= 000004 ST$ENA= 000005 $$STNM= 000000
N$LOOP= 000005 P$RDIN= 000010 RI$RML= 000003 ST$LOO= 000003 $$S765= 000075
N$RDIN= 000010 P$STPR= 000007 RI$RMS= 000005 ST$MAI= 000004 $$S766= 000015
N$STPR= 000007 P$TEST= 000006 RI$ZLC= 000011 ST$OFF= 000001 $$S767= 000000
N$TEST= 000006 P$TRIG= 000012 RI$ZLN= 000013 ST$ON = 000000 $$S770= 000001
N$TRIG= 000004 P$ZERO= 000013 RI$ZRM= 000012 ST$SHU= 000002 $$S771= 000077
N$ZERO= 000011 P$$P45= 000000 RLBF = 000004 S$$WRG= 000000 $$S772= 000077
N$$USR= 000001 RDIN = 000002 RMNODE 000017 S$$YSZ= 001600 $$S773= 000011
N.MLEN= 000454 RDLI = 000003 R$$DER= 000000 TRC = 000011 $$S774= 000011
OPTION 000016 RETCOD 000015 R$$K11= 000001 TRCC = 000006 $$S775= 000010
PARSLC 002534R RIABRT 000000R R$$SND= 000000 TRDB = 000007 $$S776= 000000
PARSLN 002604R RIALL 000022R R$$11M= 000000 T$$KMG= 000000 $$S777= 000000
PARSRM 002536R RIETAB 003266R SBSTAT 000014 T$$MIN= 000000 $$TRNM= 000000
PIDALL= 000000 RIFINI 000372R SPRAY = ****** GX
. ABS. 000034 000
004704 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 12589 WORDS ( 50 PAGES)
DYNAMIC MEMORY: 14284 WORDS ( 54 PAGES)
ELAPSED TIME: 00:06:38
RIMAIN,[135,30]RIMAIN/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,RIMAIN
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ALBF = 000001 #7-193 #9-298 10-334 10-339 10-343 #11-451 #13-607 #15-757 #18-916
#22-1141 #24-1296 #26-1533 #31-1770 #33-1887 #35-2024 #38-2171 39-2197 39-2200
#40-2336 #42-2506 #45-2654 #47-2778 #49-2888
CE$FUN = 177777 36-2034 50-2898
CE$LID = 177766 36-2035 50-2899
CE$NOD = 177765 36-2036 50-2900
CE$OVR = 177764 36-2037 50-2901
CTXTLN = 000034 #7-193 #9-298 #11-451 #13-607 #15-757 16-768 16-775 #18-916 #22-1141
#24-1296 #26-1533 #31-1770 #33-1887 #35-2024 #38-2171 #40-2336 #42-2506 #45-2654
#47-2778 #49-2888
C$ALBF = 000032 10-333 16-769 39-2196
C$PROC = 000200 16-764 25-1345
C$RDIN = 000040 19-960 23-1206 32-1798
C$RLBF = 000001 12-490 25-1340
C$TRMS = 000053 10-367 12-473 34-1927 36-2078 50-2939
C$ZRCN = 000064 43-2538 46-2694
C.ADDR = 000014 10-321 *10-322 *10-323 10-345 *10-366 12-464 *12-465 *12-466 12-467
*12-484 *12-499 *12-503 16-767 16-771 *16-778 19-932 *19-946 *19-957
23-1157 *23-1183 *23-1193 *23-1203 27-1542 34-1899 *34-1912 *34-1913 *34-1919
36-2044 39-2194 39-2205 *39-2223 *39-2224 *39-2232 *39-2233 *39-2239 43-2520
46-2668 46-2676 48-2790 *48-2796 *48-2797 *48-2802 50-2909
C.CTXT = 000004 12-503 *12-504 *16-772 25-1335 *25-1346
C.FUNC = 000006 *10-333 *10-367 *12-473 *12-490 16-764 *16-769 *19-960 *23-1206 25-1340
*25-1345 *32-1798 *34-1927 *36-2078 *39-2196 *43-2538 *46-2694 *50-2939
C.LEN = 000012 *10-308 10-320 *10-332 *10-352 *10-365 *12-472 16-766 *16-768 *16-777
*19-935 *19-958 *23-1160 *23-1178 *23-1181 *23-1204 27-1544 *34-1900 34-1908
*34-1914 *34-1923 34-1925 36-2049 36-2050 *36-2077 *39-2181 39-2193 *39-2195
*39-2220 46-2673 *48-2791 *50-2938
C.PRID = 000017 *32-1796
C.PROC = 000007 *25-1344 25-1365 25-1380 25-1402 25-1409 27-1555 27-1587
C.RET = 000010 10-330 10-338 10-363 *10-370 12-459 *12-477 25-1416 34-1906 34-1921
34-1938 36-2046 36-2059 *36-2076 39-2203 39-2214 39-2230 48-2804 50-2911
50-2922 *50-2937
C.SAVE = 000022 *10-345 10-365 10-366 *12-464 12-484 *16-766 *16-767 16-777 16-778
*19-934 *19-956 *23-1159 *23-1177 *23-1180 *23-1202 *32-1782 32-1801 *34-1899
*34-1908 *34-1910 34-1919 34-1923 *39-2205 39-2239 *48-2790 48-2802
C.TYPE = 000016 10-312 10-313 14-616 19-923 23-1148 23-1173 25-1358 *25-1374 *25-1389
25-1396 32-1777 *32-1789 *32-1795 *32-1801 39-2185 39-2186 41-2345 43-2513
46-2661
FINISH = 000002 #7-193 8-202 #9-298 10-356 #11-451 #13-607 #15-757 #18-916 #22-1141
#24-1296 25-1418 25-1423 #26-1533 #31-1770 #33-1887 34-1931 34-1941 #35-2024
#38-2171 39-2241 #40-2336 #42-2506 #45-2654 #47-2778 48-2807 #49-2888
FL$BOO = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
FL$DUM = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
FL$LOA = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
FL$LOO = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
FR$LCC = 000001 #6-142 6-142 #13-605 13-605 14-617 19-969 #24-1293 24-1293 #26-1530
26-1530 27-1558 27-1589 27-1628 32-1807 34-1948 39-2248 #40-2334 40-2334
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
41-2346 43-2547 46-2702 48-2814
FR$LCS = 000001 #6-142 6-142 #13-605 13-605 14-617 19-969 #24-1293 24-1293 #26-1530
26-1530 27-1558 27-1628 32-1807 34-1948 #40-2334 40-2334
FR$LNC = 000001 #6-142 6-142 8-206 #13-605 13-605 14-647 16-789 19-969 #24-1293
24-1293 #26-1530 26-1530 27-1572 27-1602 29-1661 30-1696 32-1807 34-1948
37-2085 39-2248 #40-2334 40-2334 41-2374 41-2407 43-2547 46-2702 48-2814
FR$LNL = 000001 #6-142 6-142 8-207 #13-605 13-605 14-658 16-790 #24-1293 24-1293
#26-1530 26-1530 30-1697 37-2086 #40-2334 40-2334 41-2384 41-2408
FR$LNS = 000001 #6-142 6-142 8-206 #13-605 13-605 14-647 16-789 19-969 #24-1293
24-1293 #26-1530 26-1530 27-1572 29-1661 30-1696 32-1807 34-1948 #40-2334
40-2334
FR$RMC = 000001 #6-142 6-142 8-206 #13-605 13-605 14-624 16-789 19-969 #24-1293
24-1293 #26-1530 26-1530 27-1565 27-1596 28-1636 30-1696 32-1807 34-1948
37-2085 39-2248 #40-2334 40-2334 41-2352 41-2407 43-2547 46-2702 48-2814
FR$RML = 000001 #6-142 6-142 8-207 #13-605 13-605 14-635 16-790 #24-1293 24-1293
#26-1530 26-1530 30-1697 37-2086 #40-2334 40-2334 41-2362 41-2408
FR$RMS = 000001 #6-142 6-142 8-206 #13-605 13-605 14-624 16-789 19-969 #24-1293
24-1293 #26-1530 26-1530 27-1565 28-1636 30-1696 32-1807 34-1948 #40-2334
40-2334
FS$HOS = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
FS$INT = 000000 #6-142 6-142 6-142 6-142 #13-605 13-605 13-605 13-605 #24-1293
24-1293 24-1293 24-1293 #26-1530 26-1530 26-1530 26-1530 #40-2334 40-2334
40-2334 40-2334
FS$LLP = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
FS$LOF = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
FS$LOG = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
FS$LST = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
FS$NET = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
FS$NST = 000000 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
FS$PAS = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
FT$CNS = 000000 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
FT$NOD = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
FT$TSK = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
F$ALBF = 000001 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$ALCB = 000001 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$CB = 000017 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$CLCL = 000001 #6-142 6-142 #6-142 #13-605 13-605 #13-605 #24-1293 24-1293 #24-1293
#26-1530 26-1530 #26-1530 #40-2334 40-2334 #40-2334
F$CLCO = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$CLFL = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$CLLK = 000006 #6-142 6-142 #6-142 6-142 #6-142 6-142 #6-142 6-142 #6-142
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
6-142 #6-142 6-142 #6-142 #13-605 13-605 #13-605 13-605 #13-605
13-605 #13-605 13-605 #13-605 13-605 #13-605 13-605 #13-605 #24-1293
24-1293 #24-1293 24-1293 #24-1293 24-1293 #24-1293 24-1293 #24-1293 24-1293
#24-1293 24-1293 #24-1293 #26-1530 26-1530 #26-1530 26-1530 #26-1530 26-1530
#26-1530 26-1530 #26-1530 26-1530 #26-1530 26-1530 #26-1530 #40-2334 40-2334
#40-2334 40-2334 #40-2334 40-2334 #40-2334 40-2334 #40-2334 40-2334 #40-2334
40-2334 #40-2334
F$CLLN = 000002 #6-142 6-142 #6-142 6-142 #6-142 #13-605 13-605 #13-605 13-605
#13-605 #24-1293 24-1293 #24-1293 24-1293 #24-1293 #26-1530 26-1530 #26-1530
26-1530 #26-1530 #40-2334 40-2334 #40-2334 40-2334 #40-2334
F$DPOS = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
F$DUMP = 000000 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
F$EVNT = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
F$EXAM = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
F$EXHO = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$GTCM = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
F$INCM = 000000 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
F$INLU = 000001 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$IRLU = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$LKLU = 000010 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$LNLU = 000002 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$LNSR = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
F$LOAD = 000000 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
F$LOGD = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
F$LOOP = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
F$NTCM = 000000 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
F$OPCL = 000001 #6-142 6-142 #6-142 #13-605 13-605 #13-605 #24-1293 24-1293 #24-1293
#26-1530 26-1530 #26-1530 #40-2334 40-2334 #40-2334
F$OPCO = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$OPIN = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$OPIR = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$OPLK = 000005 #6-142 6-142 #6-142 6-142 #6-142 6-142 #6-142 6-142 #6-142
6-142 #6-142 #13-605 13-605 #13-605 13-605 #13-605 13-605 #13-605
13-605 #13-605 13-605 #13-605 #24-1293 24-1293 #24-1293 24-1293 #24-1293
24-1293 #24-1293 24-1293 #24-1293 24-1293 #24-1293 #26-1530 26-1530 #26-1530
26-1530 #26-1530 26-1530 #26-1530 26-1530 #26-1530 26-1530 #26-1530 #40-2334
40-2334 #40-2334 40-2334 #40-2334 40-2334 #40-2334 40-2334 #40-2334 40-2334
#40-2334
F$OPLN = 000002 #6-142 6-142 #6-142 6-142 #6-142 #13-605 13-605 #13-605 13-605
#13-605 #24-1293 24-1293 #24-1293 24-1293 #24-1293 #26-1530 26-1530 #26-1530
26-1530 #26-1530 #40-2334 40-2334 #40-2334 40-2334 #40-2334
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$OPLO = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$OPOR = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$OPOT = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$ORLU = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$OTLU = 000001 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$RCBK = 000002 #6-142 6-142 #6-142 6-142 #6-142 #13-605 13-605 #13-605 13-605
#13-605 #24-1293 24-1293 #24-1293 24-1293 #24-1293 #26-1530 26-1530 #26-1530
26-1530 #26-1530 #40-2334 40-2334 #40-2334 40-2334 #40-2334
F$RCEV = 000001 #6-142 6-142 #6-142 #13-605 13-605 #13-605 #24-1293 24-1293 #24-1293
#26-1530 26-1530 #26-1530 #40-2334 40-2334 #40-2334
F$RCIN = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$RCMA = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$RCMS = 000002 #6-142 6-142 #6-142 #13-605 13-605 #13-605 #24-1293 24-1293 #24-1293
#26-1530 26-1530 #26-1530 #40-2334 40-2334 #40-2334
F$RDBK = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$RDCM = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$RDIN = 000001 #6-142 6-142 8-205 12-509 #13-605 13-605 16-788 19-968 #24-1293
24-1293 24-1297 25-1363 25-1400 #26-1530 26-1530 27-1553 32-1806 34-1947
#40-2334 40-2334
F$RDIS = 000012 #6-142 6-142 #6-142 6-142 #6-142 6-142 #6-142 6-142 #6-142
6-142 #6-142 6-142 #6-142 6-142 #6-142 6-142 #6-142 6-142
#6-142 #13-605 13-605 #13-605 13-605 #13-605 13-605 #13-605 13-605
#13-605 13-605 #13-605 13-605 #13-605 13-605 #13-605 13-605 #13-605
13-605 #13-605 #24-1293 24-1293 #24-1293 24-1293 #24-1293 24-1293 #24-1293
24-1293 #24-1293 24-1293 #24-1293 24-1293 #24-1293 24-1293 #24-1293 24-1293
#24-1293 24-1293 #24-1293 #26-1530 26-1530 #26-1530 26-1530 #26-1530 26-1530
#26-1530 26-1530 #26-1530 26-1530 #26-1530 26-1530 #26-1530 26-1530 #26-1530
26-1530 #26-1530 26-1530 #26-1530 #40-2334 40-2334 #40-2334 40-2334 #40-2334
40-2334 #40-2334 40-2334 #40-2334 40-2334 #40-2334 40-2334 #40-2334 40-2334
#40-2334 40-2334 #40-2334 40-2334 #40-2334
F$RDRC = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$RECO = 000001 #6-142 6-142 #6-142 #13-605 13-605 #13-605 #24-1293 24-1293 #24-1293
#26-1530 26-1530 #26-1530 #40-2334 40-2334 #40-2334
F$RLBF = 000001 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$RLCB = 000001 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$STBK = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$STPR = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
F$STPS = 000006 #6-142 6-142 #6-142 6-142 #6-142 6-142 #6-142 6-142 #6-142
6-142 #6-142 6-142 #6-142 #13-605 13-605 #13-605 13-605 #13-605
13-605 #13-605 13-605 #13-605 13-605 #13-605 13-605 #13-605 #24-1293
24-1293 #24-1293 24-1293 #24-1293 24-1293 #24-1293 24-1293 #24-1293 24-1293
#24-1293 24-1293 #24-1293 #26-1530 26-1530 #26-1530 26-1530 #26-1530 26-1530
#26-1530 26-1530 #26-1530 26-1530 #26-1530 26-1530 #26-1530 #40-2334 40-2334
#40-2334 40-2334 #40-2334 40-2334 #40-2334 40-2334 #40-2334 40-2334 #40-2334
40-2334 #40-2334
F$TEST = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
F$TRAC = 000000 #6-142 8-199 8-199 8-204 8-204 10-304 10-304 10-375 10-375
12-457 12-457 12-508 12-508 #13-605 14-613 14-613 14-677 14-677
16-762 16-762 16-787 16-787 19-922 19-922 19-964 19-964 23-1147
23-1147 23-1210 23-1210 #24-1293 25-1334 25-1334 25-1429 25-1429 #26-1530
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
27-1539 27-1539 27-1627 27-1627 28-1633 28-1633 28-1634 28-1634 29-1641
29-1641 29-1659 29-1659 30-1666 30-1666 30-1694 30-1694 32-1776 32-1776
32-1803 32-1803 34-1893 34-1893 34-1944 34-1944 36-2043 36-2043 36-2080
36-2080 39-2177 39-2177 39-2243 39-2243 #40-2334 41-2342 41-2342 41-2402
41-2402 43-2512 43-2512 43-2542 43-2542 46-2660 46-2660 46-2698 46-2698
48-2784 48-2784 48-2810 48-2810 50-2908 50-2908 50-2941 50-2941
F$TRBK = 000001 #6-142 6-142 #6-142 #13-605 13-605 #13-605 #24-1293 24-1293 #24-1293
#26-1530 26-1530 #26-1530 #40-2334 40-2334 #40-2334
F$TRIG = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 #26-1530 26-1530 #40-2334
40-2334
F$TRIN = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$TRMA = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$TRMS = 000002 #6-142 6-142 #6-142 #13-605 13-605 #13-605 #24-1293 24-1293 #24-1293
#26-1530 26-1530 #26-1530 #40-2334 40-2334 #40-2334
F$WRBK = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$WRCL = 000001 #6-142 6-142 #6-142 #13-605 13-605 #13-605 #24-1293 24-1293 #24-1293
#26-1530 26-1530 #26-1530 #40-2334 40-2334 #40-2334
F$WRCM = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$WRRC = 000000 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$ZERO = 000001 #6-142 6-142 #13-605 13-605 #24-1293 24-1293 24-1316 25-1378 25-1407
#26-1530 26-1530 27-1585 37-2084 39-2247 #40-2334 40-2334 41-2406 43-2546
46-2701 48-2813
F$ZRCN = 000001 #6-142 6-142 #6-142 #13-605 13-605 #13-605 #24-1293 24-1293 #24-1293
#26-1530 26-1530 #26-1530 #40-2334 40-2334 #40-2334
F$150 = 000002 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$300 = 000012 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$50 = 000002 #6-142 #13-605 #24-1293 #26-1530 #40-2334
F$550 = 000002 #6-142 #13-605 #24-1293 #26-1530 #40-2334
GTINFO = 000001 #7-193 #9-298 #11-451 #13-607 #15-757 16-783 #18-916 #22-1141 #24-1296
25-1355 #26-1533 #31-1770 #33-1887 #35-2024 #38-2171 #40-2336 #42-2506 #45-2654
#47-2778 #49-2888
GTMSBY = ****** GX 27-1546 30-1667
I$$AS = ****** 8-199 10-304 12-457 14-613 16-762 19-922 23-1147 25-1334 27-1539
28-1633 29-1641 30-1666 32-1776 34-1893 36-2043 39-2177 41-2342 43-2512
46-2660 48-2784 50-2908
LENCNT = 000003 #7-193 #9-298 #11-451 12-472 #13-607 #15-757 #18-916 #22-1141 #24-1296
#26-1533 #31-1770 #33-1887 #35-2024 36-2077 #38-2171 #40-2336 #42-2506 #45-2654
#47-2778 #49-2888
LIADDR 000004 #7-193 #9-298 *10-321 10-346 #11-451 12-497 12-499 *12-500 #13-607
#15-757 #18-916 #22-1141 #24-1296 #26-1533 #31-1770 #33-1887 #35-2024 #38-2171
*39-2194 39-2206 #40-2336 #42-2506 #45-2654 #47-2778 #49-2888
LILEN 000002 #7-193 #9-298 *10-320 10-349 *10-351 #11-451 #13-607 #15-757 #18-916
#22-1141 #24-1296 #26-1533 #31-1770 #33-1887 #35-2024 #38-2171 *39-2193 39-2217
*39-2219 #40-2336 #42-2506 #45-2654 #47-2778 #49-2888
LINE 000026 #7-193 #9-298 #11-451 #13-607 14-654 #15-757 #18-916 #22-1141 23-1198
#24-1296 #26-1533 *30-1671 30-1681 #31-1770 #33-1887 #35-2024 #38-2171 #40-2336
41-2380 #42-2506 #45-2654 46-2689 #47-2778 #49-2888
LINLEN = 000005 #7-193 #9-298 #11-451 #13-607 #15-757 #18-916 19-953 #22-1141 23-1200
#24-1296 #26-1533 #31-1770 #33-1887 #35-2024 #38-2171 #40-2336 #42-2506 43-2534
#45-2654 46-2691 #47-2778 #49-2888
LIPTR 000006 #7-193 #9-298 *10-346 #11-451 #13-607 #15-757 #18-916 19-941 *19-945
19-952 *19-955 #22-1141 #24-1296 #26-1533 #31-1770 #33-1887 #35-2024 #38-2171
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
*39-2206 #40-2336 #42-2506 43-2525 *43-2529 43-2533 *43-2536 #45-2654 #47-2778
#49-2888
LI$KNO = 000000 14-656 30-1674 41-2382
LI$STA = 000001 14-665 19-951 30-1678 41-2391
LOCNOD = ****** GX 23-1169 46-2675
MOVE = ****** GX 19-944 19-954 23-1192 23-1201 43-2528 43-2535 46-2685 46-2692
MSBFHD 000000 #7-193 #9-298 #11-451 #13-607 #15-757 #18-916 #22-1141 #24-1296 #26-1533
#31-1770 #33-1887 #35-2024 #38-2171 #40-2336 #42-2506 #45-2654 #47-2778 #49-2888
MSGCNT 000011 #7-193 #9-298 #11-451 #13-607 #15-757 #18-916 #22-1141 #24-1296 #26-1533
#31-1770 #33-1887 #35-2024 #38-2171 #40-2336 #42-2506 #45-2654 #47-2778 #49-2888
MSGCOD 000010 #7-193 #9-298 10-323 #11-451 12-466 #13-607 #15-757 #18-916 #22-1141
#24-1296 #26-1533 #31-1770 #33-1887 34-1913 #35-2024 #38-2171 39-2224 39-2233
#40-2336 #42-2506 #45-2654 #47-2778 48-2797 #49-2888
MVMSBY = ****** GX 30-1683
MVMSIM = ****** GX 29-1651
ND$BAD = 177777 10-371
ND$LCC = 000000 27-1560
ND$LCS = 000001 27-1561
ND$LNC = 000004 27-1574
ND$LNS = 000005 27-1575
ND$RMC = 000002 27-1567
ND$RMS = 000003 27-1568
ND$ZLC = 000000 27-1592
ND$ZLN = 000002 27-1604
ND$ZRM = 000001 27-1598
NE$FOR = 177776 27-1619 27-1623
NE$FUN = 177777 14-674 25-1371 25-1386 27-1580 27-1609 36-2034 36-2069 41-2399 50-2898
50-2932
NE$LID = 177770 14-669 30-1691 36-2035 41-2395 50-2899
NE$NOD = 177765 29-1655 36-2036 50-2900
NE$RES = 177761 36-2037 50-2901
NO = 000000 #6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142
6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142
6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142
6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142
6-142 6-142 6-142 #13-605 13-605 13-605 13-605 13-605 13-605
13-605 13-605 13-605 13-605 13-605 13-605 13-605 13-605 13-605
13-605 13-605 13-605 13-605 13-605 13-605 13-605 13-605 13-605
13-605 13-605 13-605 13-605 13-605 13-605 13-605 13-605 13-605
13-605 13-605 13-605 13-605 13-605 13-605 #24-1293 24-1293 24-1293
24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293
24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293
24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293
24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293
#26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530
26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530
26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530
26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530
26-1530 26-1530 26-1530 #40-2334 40-2334 40-2334 40-2334 40-2334 40-2334
40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334
40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334
40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
40-2334 40-2334 40-2334 40-2334 40-2334 40-2334
NODLEN = 000006 #7-193 7-193 #9-298 9-298 #11-451 11-451 #13-607 13-607 #15-757
15-757 #18-916 18-916 #22-1141 22-1141 23-1166 #24-1296 24-1296 #26-1533
26-1533 29-1648 #31-1770 31-1770 #33-1887 33-1887 #35-2024 35-2024 #38-2171
38-2171 #40-2336 40-2336 #42-2506 42-2506 #45-2654 45-2654 #47-2778 47-2778
#49-2888 49-2888
NS$SUC = 000001 36-2048 50-2913
N.MLEN = 000454 10-308 10-332 10-352 34-1900 39-2181 39-2195 39-2220 48-2791
OPTION 000016 #7-193 #9-298 #11-451 #13-607 #15-757 #18-916 19-933 #22-1141 23-1158
#24-1296 25-1360 #26-1533 *27-1550 #31-1770 #33-1887 #35-2024 #38-2171 #40-2336
#42-2506 #45-2654 #47-2778 #49-2888
PARSLC 002534 R 27-1563 27-1594 #28-1633
PARSLN 002604 R 27-1577 27-1606 #30-1666
PARSRM 002536 R 27-1570 27-1600 #29-1641
PIDALL = 000000 #7-193 #9-298 #11-451 #13-607 #15-757 #18-916 #22-1141 #24-1296 #26-1533
#31-1770 32-1796 #33-1887 #35-2024 #38-2171 #40-2336 #42-2506 #45-2654 #47-2778
#49-2888
PIDNSP = 000001 #7-193 #9-298 #11-451 #13-607 #15-757 #18-916 #22-1141 #24-1296 #26-1533
#31-1770 #33-1887 #35-2024 #38-2171 #40-2336 #42-2506 #45-2654 #47-2778 #49-2888
PTEXWD = ****** GX 23-1179
P$GTCM = 000001 25-1344
P$RDIN = 000010 25-1365 25-1402 27-1555
P$ZERO = 000013 25-1380 25-1409 27-1587
RDIN = 000002 #7-193 #9-298 10-360 #11-451 #13-607 #15-757 #18-916 19-961 #22-1141
23-1207 #24-1296 #26-1533 #31-1770 #33-1887 34-1903 #35-2024 #38-2171 #40-2336
#42-2506 #45-2654 #47-2778 #49-2888
RDLI = 000003 #7-193 #9-298 10-318 #11-451 #13-607 #15-757 #18-916 #22-1141 #24-1296
#26-1533 #31-1770 32-1799 #33-1887 #35-2024 #38-2171 39-2191 #40-2336 #42-2506
#45-2654 #47-2778 #49-2888
RETCOD 000015 #7-193 *8-200 #9-298 #11-451 12-462 12-468 *12-471 *12-478 #13-607
*14-614 #15-757 16-781 #18-916 #22-1141 #24-1296 #26-1533 *27-1541 27-1616
#31-1770 #33-1887 #35-2024 #38-2171 #40-2336 *41-2343 #42-2506 #45-2654 #47-2778
#49-2888
RIABRT 000000 R #8-199 10-372 14-670 14-675 25-1372 25-1387 27-1581 27-1610 27-1620
27-1624 29-1656 30-1692 41-2396 41-2400
RIALL 000022 R #10-304 14-636 14-659
RIETAB 003266 R #36-2032 36-2053
RIFINI 000372 R #12-457 25-1425
RIGINF 000632 R #14-613 25-1404
RIINIT 001040 R #16-762 25-1342
RILBFA 001170 R 10-353 #19-922
RILBFS 001412 R #23-1147 34-1901
RIMAIN 001736 RG #25-1334
RIPARS 002244 R 16-779 #27-1539
RIRDLI 002674 R 10-315 #32-1776 39-2188
RISPEC 003036 R 14-622 14-644 14-667 #34-1893
RITEND = 000006 #24-1314 25-1368
RITRCC 003300 R 10-324 34-1915 #36-2043
RITTAB 001724 R #24-1305 24-1314 25-1374
RI$LCC = 000001 14-619 19-925 23-1163 24-1307
RI$LCS = 000002 14-620 19-926 23-1164 23-1173 24-1308
RI$LNC = 000007 14-650 19-948 23-1195 24-1311 32-1791
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 8
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
RI$LNL = 000006 10-313 14-649 19-928 23-1152 32-1780 32-1795 39-2186 41-2376
RI$LNS = 000010 14-651 19-949 23-1153 23-1196 24-1312 32-1792
RI$RMC = 000004 14-627 19-938 23-1185 24-1309 32-1785
RI$RML = 000003 10-312 14-626 19-927 23-1151 32-1779 32-1789 39-2185 41-2354
RI$RMS = 000005 14-628 19-939 23-1186 24-1310 32-1786
RI$ZLC = 000011 24-1323 41-2348 46-2663 46-2671
RI$ZLN = 000013 24-1325 32-1793 41-2377 43-2516 43-2531 46-2664 46-2687
RI$ZRM = 000012 24-1324 32-1787 41-2355 43-2515 43-2523 46-2679
RLBF = 000004 #7-193 #9-298 #11-451 12-491 12-494 12-501 #13-607 #15-757 #18-916
#22-1141 #24-1296 #26-1533 #31-1770 #33-1887 #35-2024 #38-2171 #40-2336 #42-2506
#45-2654 #47-2778 #49-2888
RMNODE 000017 #7-193 #9-298 #11-451 #13-607 14-631 #15-757 #18-916 #22-1141 23-1188
#24-1296 #26-1533 *29-1645 29-1649 #31-1770 #33-1887 #35-2024 #38-2171 #40-2336
41-2358 #42-2506 #45-2654 46-2681 #47-2778 #49-2888
R$$11D = ****** 8-199 10-304 12-457 14-613 16-762 19-922 23-1147 25-1334 27-1539
28-1633 29-1641 30-1666 32-1776 34-1893 36-2043 39-2177 41-2342 43-2512
46-2660 48-2784 50-2908
R$$11M = 000000 8-199 10-304 12-457 14-613 16-762 19-922 23-1147 25-1334 27-1539
28-1633 29-1641 30-1666 32-1776 34-1893 36-2043 39-2177 41-2342 43-2512
46-2660 48-2784 50-2908
SBSTAT 000014 #7-193 *8-201 #9-298 10-306 10-311 10-318 10-327 *10-334 10-339
10-340 10-343 *10-355 10-360 *10-368 #11-451 *12-474 *12-479 12-482
*12-485 12-488 *12-491 12-494 *12-501 *12-505 #13-607 #15-757 *16-784
#18-916 *19-961 #22-1141 *23-1207 #24-1296 *25-1353 #26-1533 #31-1770 *32-1799
#33-1887 34-1895 *34-1928 *34-1930 *34-1940 #35-2024 *36-2079 #38-2171 39-2179
39-2184 39-2191 *39-2197 39-2200 *39-2207 39-2211 39-2237 *39-2240 #40-2336
#42-2506 *43-2539 #45-2654 *46-2695 #47-2778 48-2786 *48-2806 #49-2888 *50-2940
SPRAY = ****** GX 16-776
STATE 000013 #7-193 *8-202 #9-298 *10-356 #11-451 #13-607 #15-757 *16-783 #18-916
#22-1141 #24-1296 25-1355 *25-1418 25-1423 #26-1533 #31-1770 #33-1887 *34-1931
*34-1941 #35-2024 #38-2171 *39-2241 #40-2336 #42-2506 #45-2654 #47-2778 *48-2807
#49-2888
TRC = 000011 #7-193 #7-193 #9-298 #9-298 #11-451 #11-451 #13-607 #13-607 #15-757
#15-757 #18-916 #18-916 #22-1141 #22-1141 #24-1296 #24-1296 #26-1533 #26-1533
#31-1770 #31-1770 #33-1887 #33-1887 #35-2024 #35-2024 #38-2171 #38-2171 39-2237
#40-2336 #40-2336 #42-2506 #42-2506 #45-2654 #45-2654 #47-2778 #47-2778 48-2800
#49-2888 #49-2888 50-2940
TRCC = 000006 #7-193 #9-298 10-327 #11-451 12-474 12-482 #13-607 #15-757 #18-916
#22-1141 #24-1296 #26-1533 #31-1770 #33-1887 34-1917 #35-2024 36-2079 #38-2171
#40-2336 #42-2506 #45-2654 #47-2778 #49-2888
TRDB = 000007 #7-193 #9-298 10-340 10-368 #11-451 #13-607 #15-757 #18-916 #22-1141
#24-1296 #26-1533 #31-1770 #33-1887 34-1928 34-1935 #35-2024 #38-2171 #40-2336
#42-2506 #45-2654 #47-2778 #49-2888
YES = 000001 #6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142
6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142
6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142
6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142 6-142
6-142 6-142 6-142 6-142 6-142 #13-605 13-605 13-605 13-605
13-605 13-605 13-605 13-605 13-605 13-605 13-605 13-605 13-605
13-605 13-605 13-605 13-605 13-605 13-605 13-605 13-605 13-605
13-605 13-605 13-605 13-605 13-605 13-605 13-605 13-605 13-605
13-605 13-605 13-605 13-605 13-605 13-605 13-605 13-605 13-605
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 9
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
13-605 #24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293
24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293
24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293
24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 24-1293
24-1293 24-1293 24-1293 24-1293 24-1293 24-1293 #26-1530 26-1530 26-1530
26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530
26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530
26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530
26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530 26-1530
26-1530 26-1530 #40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334
40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334
40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334
40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334
40-2334 40-2334 40-2334 40-2334 40-2334 40-2334 40-2334
ZERO = 000010 #7-193 #9-298 #11-451 #13-607 #15-757 #18-916 #22-1141 #24-1296 #26-1533
#31-1770 #33-1887 #35-2024 #38-2171 39-2207 39-2211 #40-2336 #42-2506 43-2539
#45-2654 46-2695 #47-2778 48-2794 #49-2888
ZRALL 003434 R #39-2177 41-2363 41-2385
ZRCNTR 003750 R 25-1411 #41-2342
ZRETAB 004552 R #50-2896 50-2916
ZRLBFA 004134 R 39-2221 #43-2512
ZRLBFS 004262 R #46-2660 48-2792
ZRSPEC 004434 R 41-2350 41-2371 41-2393 #48-2784
ZRTEND = 000003 #24-1327 25-1383
ZRTRC 004564 R 39-2225 39-2234 48-2798 #50-2908
ZRTTAB 001732 R #24-1321 24-1327 25-1389
$$CSTA = 000000 #8-199 #10-304 #12-457 #14-613 14-615 #14-615 14-618 #14-618 14-625
14-630 #14-630 14-632 #14-632 14-641 #14-645 14-648 14-653 #14-653
14-655 #14-655 14-664 #14-671 #14-676 #16-762 #19-922 19-936 #19-936
19-937 #19-937 19-947 #19-959 #23-1147 23-1161 #23-1161 23-1162 #23-1162
23-1184 23-1194 #23-1205 #25-1334 *25-1361 #25-1361 25-1364 #25-1364 25-1379
#25-1393 25-1398 #25-1398 25-1401 #25-1401 25-1408 #25-1414 #27-1539 *27-1551
#27-1551 27-1554 #27-1554 27-1557 #27-1557 27-1559 #27-1559 27-1566 27-1573
#27-1582 27-1586 27-1590 #27-1590 27-1591 #27-1591 27-1597 27-1603 #27-1611
#27-1614 #28-1633 #29-1641 #30-1666 *30-1672 #30-1672 30-1673 #30-1673 30-1677
#30-1686 #32-1776 *32-1783 #32-1783 32-1784 #32-1784 32-1790 #32-1797 #34-1893
34-1894 #34-1894 34-1896 #34-1896 34-1902 34-1916 34-1934 #34-1943 #36-2043
#39-2177 #41-2342 41-2344 #41-2344 41-2347 #41-2347 41-2353 41-2357 #41-2357
41-2359 #41-2359 41-2368 #41-2372 41-2375 41-2379 #41-2379 41-2381 #41-2381
41-2390 #41-2397 #41-2401 #43-2512 *43-2521 #43-2521 43-2522 #43-2522 43-2530
#43-2537 #46-2660 *46-2669 #46-2669 46-2670 #46-2670 46-2678 46-2686 #46-2693
#48-2784 48-2785 #48-2785 48-2787 #48-2787 48-2793 48-2799 #48-2809 #50-2908
$$PRST = 000013 #8-199 #10-304 10-305 #10-305 10-310 #10-310 10-317 #10-317 10-326
#10-326 10-329 #10-329 10-337 #10-337 10-342 #10-342 10-348 #10-348
10-359 #10-359 10-362 #10-362 #12-457 12-458 #12-458 12-461 #12-461
12-481 #12-481 12-487 #12-487 12-493 #12-493 12-496 #12-496 #14-613
14-615 #14-615 14-630 #14-630 14-653 #14-653 #16-762 16-763 #16-763
16-780 #16-780 #19-922 *19-924 #19-924 19-936 #19-936 #23-1147 *23-1149
#23-1149 23-1161 #23-1161 *23-1172 #23-1172 #25-1334 *25-1336 #25-1336 25-1339
#25-1339 25-1350 #25-1350 25-1354 #25-1354 25-1357 #25-1357 *25-1361 #25-1361
25-1367 #25-1367 25-1382 #25-1382 25-1395 #25-1395 25-1398 #25-1398 25-1415
#25-1415 25-1422 #25-1422 #27-1539 27-1547 #27-1547 *27-1551 #27-1551 27-1557
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 10
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#27-1557 27-1590 #27-1590 27-1615 #27-1615 #28-1633 #29-1641 29-1642 #29-1642
29-1652 #29-1652 #30-1666 30-1668 #30-1668 *30-1672 #30-1672 30-1688 #30-1688
#32-1776 *32-1778 #32-1778 *32-1783 #32-1783 #34-1893 34-1894 #34-1894 34-1905
#34-1905 *34-1920 #34-1920 *34-1924 #34-1924 34-1937 #34-1937 #36-2043 *36-2045
#36-2045 *36-2054 #36-2054 36-2058 #36-2058 36-2066 #36-2066 #39-2177 39-2178
#39-2178 39-2183 #39-2183 39-2190 #39-2190 39-2199 #39-2199 39-2202 #39-2202
39-2210 #39-2210 39-2213 #39-2213 39-2216 #39-2216 39-2229 #39-2229 39-2236
#39-2236 #41-2342 41-2344 #41-2344 41-2357 #41-2357 41-2379 #41-2379 #43-2512
*43-2514 #43-2514 *43-2521 #43-2521 #46-2660 *46-2662 #46-2662 *46-2669 #46-2669
#48-2784 48-2785 #48-2785 *48-2803 #48-2803 #50-2908 *50-2910 #50-2910 *50-2917
#50-2917 50-2921 #50-2921 50-2929 #50-2929
$$SLST = ****** 8-199 8-204 10-304 10-306 10-306 10-307 10-309 10-311 10-311
10-312 10-312 10-313 10-313 10-314 10-316 10-318 10-318 10-319
10-325 10-327 10-327 10-328 10-330 10-330 10-331 10-335 10-336
10-338 10-338 10-339 10-339 10-340 10-340 10-341 10-343 10-343
10-344 10-347 10-349 10-349 10-350 10-354 10-354 10-357 10-358
10-360 10-360 10-361 10-363 10-363 10-364 10-369 10-369 10-373
10-374 10-375 12-457 12-459 12-459 12-460 12-462 12-462 12-463
12-475 12-476 12-476 12-480 12-482 12-482 12-483 12-486 12-488
12-488 12-489 12-492 12-494 12-494 12-495 12-497 12-497 12-498
12-502 12-502 12-506 12-507 12-508 14-613 14-619 14-619 14-620
14-620 14-621 14-625 14-625 14-626 14-626 14-627 14-627 14-628
14-628 14-629 14-633 14-633 14-634 14-641 14-641 14-642 14-642
14-643 14-645 14-645 14-648 14-648 14-649 14-649 14-650 14-650
14-651 14-651 14-652 14-656 14-656 14-657 14-664 14-664 14-665
14-665 14-666 14-668 14-668 14-671 14-673 14-673 14-676 14-677
16-762 16-764 16-764 16-765 16-770 16-770 16-781 16-781 16-782
16-785 16-786 16-787 19-922 19-925 19-925 19-926 19-926 19-927
19-927 19-928 19-928 19-929 19-931 19-931 19-938 19-938 19-939
19-939 19-940 19-947 19-947 19-948 19-948 19-949 19-949 19-950
19-959 19-959 19-963 19-964 23-1147 23-1150 23-1150 23-1151 23-1151
23-1152 23-1152 23-1153 23-1153 23-1154 23-1156 23-1156 23-1163 23-1163
23-1164 23-1164 23-1165 23-1173 23-1173 23-1174 23-1182 23-1184 23-1184
23-1185 23-1185 23-1186 23-1186 23-1187 23-1194 23-1194 23-1195 23-1195
23-1196 23-1196 23-1197 23-1205 23-1205 23-1209 23-1210 25-1334 25-1337
25-1337 25-1338 25-1340 25-1340 25-1341 25-1343 25-1343 25-1348 25-1349
25-1351 25-1351 25-1352 25-1355 25-1355 25-1356 25-1358 25-1358 25-1359
25-1365 25-1365 25-1366 25-1368 25-1368 25-1369 25-1369 25-1370 25-1373
25-1373 25-1375 25-1379 25-1379 25-1380 25-1380 25-1381 25-1383 25-1383
25-1384 25-1384 25-1385 25-1388 25-1388 25-1390 25-1393 25-1393 25-1394
25-1396 25-1396 25-1397 25-1402 25-1402 25-1403 25-1408 25-1408 25-1409
25-1409 25-1410 25-1414 25-1414 25-1416 25-1416 25-1417 25-1419 25-1420
25-1421 25-1423 25-1423 25-1424 25-1426 25-1427 25-1429 27-1539 27-1548
27-1549 27-1555 27-1555 27-1556 27-1560 27-1560 27-1561 27-1561 27-1562
27-1566 27-1566 27-1567 27-1567 27-1568 27-1568 27-1569 27-1573 27-1573
27-1574 27-1574 27-1575 27-1575 27-1576 27-1579 27-1579 27-1582 27-1586
27-1586 27-1587 27-1587 27-1588 27-1592 27-1592 27-1593 27-1597 27-1597
27-1598 27-1598 27-1599 27-1603 27-1603 27-1604 27-1604 27-1605 27-1608
27-1608 27-1611 27-1614 27-1614 27-1616 27-1616 27-1617 27-1617 27-1618
27-1621 27-1622 27-1622 27-1625 27-1627 28-1633 28-1634 29-1641 29-1643
29-1643 29-1644 29-1647 29-1647 29-1653 29-1654 29-1657 29-1658 29-1659
30-1666 30-1669 30-1670 30-1674 30-1674 30-1675 30-1677 30-1677 30-1678
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 11
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
30-1678 30-1679 30-1684 30-1684 30-1686 30-1687 30-1689 30-1690 30-1693
30-1694 32-1776 32-1779 32-1779 32-1780 32-1780 32-1781 32-1785 32-1785
32-1786 32-1786 32-1787 32-1787 32-1788 32-1790 32-1790 32-1791 32-1791
32-1792 32-1792 32-1793 32-1793 32-1794 32-1797 32-1797 32-1800 32-1800
32-1802 32-1803 34-1893 34-1897 34-1897 34-1898 34-1902 34-1902 34-1903
34-1903 34-1904 34-1906 34-1906 34-1907 34-1909 34-1909 34-1911 34-1916
34-1916 34-1917 34-1917 34-1918 34-1921 34-1921 34-1922 34-1925 34-1925
34-1926 34-1929 34-1929 34-1932 34-1933 34-1934 34-1934 34-1935 34-1935
34-1936 34-1938 34-1938 34-1939 34-1942 34-1943 34-1943 34-1944 36-2043
36-2046 36-2046 36-2047 36-2051 36-2051 36-2054 36-2055 36-2055 36-2056
36-2056 36-2057 36-2059 36-2059 36-2060 36-2062 36-2062 36-2064 36-2065
36-2065 36-2067 36-2067 36-2068 36-2070 36-2070 36-2072 36-2075 36-2080
39-2177 39-2179 39-2179 39-2180 39-2182 39-2184 39-2184 39-2185 39-2185
39-2186 39-2186 39-2187 39-2189 39-2191 39-2191 39-2192 39-2198 39-2200
39-2200 39-2201 39-2203 39-2203 39-2204 39-2208 39-2209 39-2211 39-2211
39-2212 39-2214 39-2214 39-2215 39-2217 39-2217 39-2218 39-2222 39-2222
39-2226 39-2227 39-2228 39-2230 39-2230 39-2231 39-2235 39-2237 39-2237
39-2238 39-2242 39-2243 41-2342 41-2348 41-2348 41-2349 41-2353 41-2353
41-2354 41-2354 41-2355 41-2355 41-2356 41-2360 41-2360 41-2361 41-2368
41-2368 41-2369 41-2369 41-2370 41-2372 41-2372 41-2375 41-2375 41-2376
41-2376 41-2377 41-2377 41-2378 41-2382 41-2382 41-2383 41-2390 41-2390
41-2391 41-2391 41-2392 41-2394 41-2394 41-2397 41-2398 41-2398 41-2401
41-2402 43-2512 43-2515 43-2515 43-2516 43-2516 43-2517 43-2519 43-2519
43-2523 43-2523 43-2524 43-2530 43-2530 43-2531 43-2531 43-2532 43-2537
43-2537 43-2541 43-2542 46-2660 46-2663 46-2663 46-2664 46-2664 46-2665
46-2667 46-2667 46-2671 46-2671 46-2672 46-2678 46-2678 46-2679 46-2679
46-2680 46-2686 46-2686 46-2687 46-2687 46-2688 46-2693 46-2693 46-2697
46-2698 48-2784 48-2788 48-2788 48-2789 48-2793 48-2793 48-2794 48-2794
48-2795 48-2799 48-2799 48-2800 48-2800 48-2801 48-2804 48-2804 48-2805
48-2808 48-2809 48-2809 48-2810 50-2908 50-2911 50-2911 50-2912 50-2914
50-2914 50-2917 50-2918 50-2918 50-2919 50-2919 50-2920 50-2922 50-2922
50-2923 50-2925 50-2925 50-2927 50-2928 50-2928 50-2930 50-2930 50-2931
50-2933 50-2933 50-2935 50-2936 50-2941
$$STIX = 000777 #8-199 #10-304 10-305 10-305 #10-305 10-305 10-305 #10-305 10-309
#10-309 10-309 10-309 #10-309 10-309 10-310 10-310 #10-310 10-310
10-310 #10-310 10-316 #10-316 10-316 10-316 #10-316 10-316 10-317
10-317 #10-317 10-317 10-317 #10-317 10-325 #10-325 10-325 10-325
#10-325 10-325 10-326 10-326 #10-326 10-326 10-326 #10-326 10-329
10-329 #10-329 10-329 10-329 #10-329 10-335 #10-335 10-335 10-335
#10-335 10-335 10-336 #10-336 10-336 10-336 #10-336 10-336 10-337
10-337 #10-337 10-337 10-337 #10-337 10-342 10-342 #10-342 10-342
10-342 #10-342 10-347 #10-347 10-347 10-347 #10-347 10-347 10-348
10-348 #10-348 10-348 10-348 #10-348 10-357 #10-357 10-357 10-357
#10-357 10-357 10-358 #10-358 10-358 10-358 #10-358 10-358 10-359
10-359 #10-359 10-359 10-359 #10-359 10-362 10-362 #10-362 10-362
10-362 #10-362 10-373 #10-373 10-373 10-373 #10-373 10-373 10-374
#10-374 10-374 10-374 #10-374 10-374 #12-457 12-458 12-458 #12-458
12-458 12-458 #12-458 12-461 12-461 #12-461 12-461 12-461 #12-461
12-475 #12-475 12-475 12-475 #12-475 12-475 12-480 #12-480 12-480
12-480 #12-480 12-480 12-481 12-481 #12-481 12-481 12-481 #12-481
12-486 #12-486 12-486 12-486 #12-486 12-486 12-487 12-487 #12-487
12-487 12-487 #12-487 12-492 #12-492 12-492 12-492 #12-492 12-492
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 12
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
12-493 12-493 #12-493 12-493 12-493 #12-493 12-496 12-496 #12-496
12-496 12-496 #12-496 12-506 #12-506 12-506 12-506 #12-506 12-506
12-507 #12-507 12-507 12-507 #12-507 12-507 #14-613 14-615 14-615
#14-615 14-615 14-615 #14-615 14-615 14-615 #14-615 14-630 14-630
#14-630 14-630 14-630 #14-630 14-630 14-630 #14-630 14-645 #14-645
14-645 14-645 #14-645 14-645 14-645 #14-645 14-645 14-653 14-653
#14-653 14-653 14-653 #14-653 14-653 14-653 #14-653 14-671 #14-671
14-671 14-671 #14-671 14-671 14-671 #14-671 14-671 14-676 #14-676
14-676 14-676 #14-676 14-676 14-676 #14-676 14-676 #16-762 16-763
16-763 #16-763 16-763 16-763 #16-763 16-780 16-780 #16-780 16-780
16-780 #16-780 16-785 #16-785 16-785 16-785 #16-785 16-785 16-786
#16-786 16-786 16-786 #16-786 16-786 #19-922 *19-924 *19-924 #19-924
*19-924 *19-924 #19-924 19-936 19-936 #19-936 19-936 19-936 #19-936
19-936 19-936 #19-936 19-959 #19-959 19-959 19-959 #19-959 19-959
19-959 #19-959 19-959 19-963 #19-963 19-963 19-963 #19-963 19-963
#23-1147 *23-1149 *23-1149 #23-1149 *23-1149 *23-1149 #23-1149 23-1161 23-1161
#23-1161 23-1161 23-1161 #23-1161 23-1161 23-1161 #23-1161 *23-1172 *23-1172
#23-1172 *23-1172 *23-1172 #23-1172 23-1182 #23-1182 23-1182 23-1182 #23-1182
23-1182 23-1205 #23-1205 23-1205 23-1205 #23-1205 23-1205 23-1205 #23-1205
23-1205 23-1209 #23-1209 23-1209 23-1209 #23-1209 23-1209 #25-1334 *25-1336
*25-1336 #25-1336 *25-1336 *25-1336 #25-1336 25-1339 25-1339 #25-1339 25-1339
25-1339 #25-1339 25-1348 #25-1348 25-1348 25-1348 #25-1348 25-1348 25-1349
#25-1349 25-1349 25-1349 #25-1349 25-1349 25-1350 25-1350 #25-1350 25-1350
25-1350 #25-1350 25-1354 25-1354 #25-1354 25-1354 25-1354 #25-1354 25-1357
25-1357 #25-1357 25-1357 25-1357 #25-1357 *25-1361 *25-1361 #25-1361 *25-1361
*25-1361 #25-1361 *25-1361 *25-1361 #25-1361 25-1367 25-1367 #25-1367 25-1367
25-1367 #25-1367 25-1375 #25-1375 25-1375 25-1375 #25-1375 25-1375 25-1382
25-1382 #25-1382 25-1382 25-1382 #25-1382 25-1390 #25-1390 25-1390 25-1390
#25-1390 25-1390 25-1393 #25-1393 25-1393 25-1393 #25-1393 25-1393 25-1393
#25-1393 25-1393 25-1394 #25-1394 25-1394 25-1394 #25-1394 25-1394 25-1395
25-1395 #25-1395 25-1395 25-1395 #25-1395 25-1398 25-1398 #25-1398 25-1398
25-1398 #25-1398 25-1398 25-1398 #25-1398 25-1414 #25-1414 25-1414 25-1414
#25-1414 25-1414 25-1414 #25-1414 25-1414 25-1415 25-1415 #25-1415 25-1415
25-1415 #25-1415 25-1419 #25-1419 25-1419 25-1419 #25-1419 25-1419 25-1420
#25-1420 25-1420 25-1420 #25-1420 25-1420 25-1421 #25-1421 25-1421 25-1421
#25-1421 25-1421 25-1422 25-1422 #25-1422 25-1422 25-1422 #25-1422 25-1426
#25-1426 25-1426 25-1426 #25-1426 25-1426 25-1427 #25-1427 25-1427 25-1427
#25-1427 25-1427 #27-1539 27-1547 27-1547 #27-1547 27-1547 27-1547 #27-1547
*27-1551 *27-1551 #27-1551 *27-1551 *27-1551 #27-1551 *27-1551 *27-1551 #27-1551
27-1557 27-1557 #27-1557 27-1557 27-1557 #27-1557 27-1557 27-1557 #27-1557
27-1582 #27-1582 27-1582 27-1582 #27-1582 27-1582 27-1582 #27-1582 27-1582
27-1590 27-1590 #27-1590 27-1590 27-1590 #27-1590 27-1590 27-1590 #27-1590
27-1611 #27-1611 27-1611 27-1611 #27-1611 27-1611 27-1611 #27-1611 27-1611
27-1614 #27-1614 27-1614 27-1614 #27-1614 27-1614 27-1614 #27-1614 27-1614
27-1615 27-1615 #27-1615 27-1615 27-1615 #27-1615 27-1621 #27-1621 27-1621
27-1621 #27-1621 27-1621 27-1625 #27-1625 27-1625 27-1625 #27-1625 27-1625
#28-1633 #29-1641 29-1642 29-1642 #29-1642 29-1642 29-1642 #29-1642 29-1652
29-1652 #29-1652 29-1652 29-1652 #29-1652 29-1657 #29-1657 29-1657 29-1657
#29-1657 29-1657 29-1658 #29-1658 29-1658 29-1658 #29-1658 29-1658 #30-1666
30-1668 30-1668 #30-1668 30-1668 30-1668 #30-1668 *30-1672 *30-1672 #30-1672
*30-1672 *30-1672 #30-1672 *30-1672 *30-1672 #30-1672 30-1686 #30-1686 30-1686
30-1686 #30-1686 30-1686 30-1686 #30-1686 30-1686 30-1687 #30-1687 30-1687
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 13
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
30-1687 #30-1687 30-1687 30-1688 30-1688 #30-1688 30-1688 30-1688 #30-1688
30-1693 #30-1693 30-1693 30-1693 #30-1693 30-1693 #32-1776 *32-1778 *32-1778
#32-1778 *32-1778 *32-1778 #32-1778 *32-1783 *32-1783 #32-1783 *32-1783 *32-1783
#32-1783 *32-1783 *32-1783 #32-1783 *32-1797 #32-1797 *32-1797 32-1797 #32-1797
32-1797 32-1797 #32-1797 32-1797 32-1802 #32-1802 32-1802 32-1802 #32-1802
32-1802 #34-1893 34-1894 34-1894 #34-1894 34-1894 34-1894 #34-1894 34-1894
34-1894 #34-1894 34-1905 34-1905 #34-1905 34-1905 34-1905 #34-1905 34-1911
#34-1911 34-1911 34-1911 #34-1911 34-1911 *34-1920 *34-1920 #34-1920 *34-1920
*34-1920 #34-1920 *34-1924 *34-1924 #34-1924 *34-1924 *34-1924 #34-1924 34-1932
#34-1932 34-1932 34-1932 #34-1932 34-1932 34-1933 #34-1933 34-1933 34-1933
#34-1933 34-1933 34-1937 34-1937 #34-1937 34-1937 34-1937 #34-1937 34-1942
#34-1942 34-1942 34-1942 #34-1942 34-1942 34-1943 #34-1943 34-1943 34-1943
#34-1943 34-1943 34-1943 #34-1943 34-1943 #36-2043 *36-2045 *36-2045 #36-2045
*36-2045 *36-2045 #36-2045 *36-2054 *36-2054 #36-2054 *36-2054 *36-2054 #36-2054
36-2058 36-2058 #36-2058 36-2058 36-2058 #36-2058 36-2064 #36-2064 36-2064
36-2064 #36-2064 36-2064 36-2065 #36-2065 36-2065 36-2065 #36-2065 36-2065
36-2066 36-2066 #36-2066 36-2066 36-2066 #36-2066 36-2072 #36-2072 36-2072
36-2072 #36-2072 36-2072 36-2075 #36-2075 36-2075 36-2075 #36-2075 36-2075
#39-2177 39-2178 39-2178 #39-2178 39-2178 39-2178 #39-2178 39-2182 #39-2182
39-2182 39-2182 #39-2182 39-2182 39-2183 39-2183 #39-2183 39-2183 39-2183
#39-2183 39-2189 #39-2189 39-2189 39-2189 #39-2189 39-2189 39-2190 39-2190
#39-2190 39-2190 39-2190 #39-2190 39-2198 #39-2198 39-2198 39-2198 #39-2198
39-2198 39-2199 39-2199 #39-2199 39-2199 39-2199 #39-2199 39-2202 39-2202
#39-2202 39-2202 39-2202 #39-2202 39-2208 #39-2208 39-2208 39-2208 #39-2208
39-2208 39-2209 #39-2209 39-2209 39-2209 #39-2209 39-2209 39-2210 39-2210
#39-2210 39-2210 39-2210 #39-2210 39-2213 39-2213 #39-2213 39-2213 39-2213
#39-2213 39-2216 39-2216 #39-2216 39-2216 39-2216 #39-2216 39-2226 #39-2226
39-2226 39-2226 #39-2226 39-2226 39-2227 #39-2227 39-2227 39-2227 #39-2227
39-2227 39-2228 #39-2228 39-2228 39-2228 #39-2228 39-2228 39-2229 39-2229
#39-2229 39-2229 39-2229 #39-2229 39-2235 #39-2235 39-2235 39-2235 #39-2235
39-2235 39-2236 39-2236 #39-2236 39-2236 39-2236 #39-2236 39-2242 #39-2242
39-2242 39-2242 #39-2242 39-2242 #41-2342 41-2344 41-2344 #41-2344 41-2344
41-2344 #41-2344 41-2344 41-2344 #41-2344 41-2357 41-2357 #41-2357 41-2357
41-2357 #41-2357 41-2357 41-2357 #41-2357 41-2372 #41-2372 41-2372 41-2372
#41-2372 41-2372 41-2372 #41-2372 41-2372 41-2379 41-2379 #41-2379 41-2379
41-2379 #41-2379 41-2379 41-2379 #41-2379 41-2397 #41-2397 41-2397 41-2397
#41-2397 41-2397 41-2397 #41-2397 41-2397 41-2401 #41-2401 41-2401 41-2401
#41-2401 41-2401 41-2401 #41-2401 41-2401 #43-2512 *43-2514 *43-2514 #43-2514
*43-2514 *43-2514 #43-2514 *43-2521 *43-2521 #43-2521 *43-2521 *43-2521 #43-2521
*43-2521 *43-2521 #43-2521 *43-2537 #43-2537 *43-2537 43-2537 #43-2537 43-2537
43-2537 #43-2537 43-2537 43-2541 #43-2541 43-2541 43-2541 #43-2541 43-2541
#46-2660 *46-2662 *46-2662 #46-2662 *46-2662 *46-2662 #46-2662 *46-2669 *46-2669
#46-2669 *46-2669 *46-2669 #46-2669 *46-2669 *46-2669 #46-2669 46-2693 #46-2693
46-2693 46-2693 #46-2693 46-2693 46-2693 #46-2693 46-2693 46-2697 #46-2697
46-2697 46-2697 #46-2697 46-2697 #48-2784 48-2785 48-2785 #48-2785 48-2785
48-2785 #48-2785 48-2785 48-2785 #48-2785 *48-2803 *48-2803 #48-2803 *48-2803
*48-2803 #48-2803 48-2808 #48-2808 48-2808 48-2808 #48-2808 48-2808 48-2809
#48-2809 48-2809 48-2809 #48-2809 48-2809 48-2809 #48-2809 48-2809 #50-2908
*50-2910 *50-2910 #50-2910 *50-2910 *50-2910 #50-2910 *50-2917 *50-2917 #50-2917
*50-2917 *50-2917 #50-2917 50-2921 50-2921 #50-2921 50-2921 50-2921 #50-2921
50-2927 #50-2927 50-2927 50-2927 #50-2927 50-2927 50-2928 #50-2928 50-2928
50-2928 #50-2928 50-2928 50-2929 50-2929 #50-2929 50-2929 50-2929 #50-2929
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 14
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
50-2935 #50-2935 50-2935 50-2935 #50-2935 50-2935 50-2936 #50-2936 50-2936
50-2936 #50-2936 50-2936
$$STNM = 000000 #8-199 #10-304 10-305 #10-305 10-305 10-306 10-307 *10-309 #10-309
10-310 #10-310 10-310 10-311 10-312 10-313 10-314 10-316 #10-316
10-317 #10-317 10-317 10-318 10-319 10-325 #10-325 10-326 #10-326
10-326 10-327 10-328 10-329 #10-329 10-329 10-330 10-331 *10-335
#10-335 10-336 #10-336 10-337 #10-337 10-337 10-338 10-339 10-340
10-341 10-342 #10-342 10-342 10-343 10-344 *10-347 #10-347 10-348
#10-348 10-348 10-349 10-350 10-354 10-354 *10-357 #10-357 10-358
#10-358 10-359 #10-359 10-359 10-360 10-361 10-362 #10-362 10-362
10-363 10-364 *10-369 10-369 10-373 #10-373 10-374 #10-374 #12-457
12-458 #12-458 12-458 12-459 12-460 12-461 #12-461 12-461 12-462
12-463 *12-475 #12-475 12-476 12-476 12-480 #12-480 12-481 #12-481
12-481 12-482 12-483 12-486 #12-486 12-487 #12-487 12-487 12-488
12-489 *12-492 #12-492 12-493 #12-493 12-493 12-494 12-495 12-496
#12-496 12-496 12-497 12-498 *12-502 12-502 12-506 #12-506 12-507
#12-507 #14-613 14-615 #14-615 14-615 14-619 14-620 14-621 14-625
14-625 14-626 14-627 14-628 14-629 14-630 #14-630 14-630 14-633
14-634 14-641 14-641 14-642 14-643 14-645 14-645 #14-645 14-648
14-648 14-649 14-650 14-651 14-652 14-653 #14-653 14-653 14-656
14-657 14-664 14-664 14-665 14-666 14-668 14-668 14-671 #14-671
14-673 14-673 14-676 #14-676 #16-762 16-763 #16-763 16-763 16-764
16-765 *16-770 16-770 16-780 #16-780 16-780 16-781 16-782 16-785
#16-785 16-786 #16-786 #19-922 *19-924 #19-924 *19-924 19-925 19-926
19-927 19-928 19-929 19-931 19-931 19-936 #19-936 19-936 19-938
19-939 19-940 19-947 19-947 19-948 19-949 19-950 19-959 19-959
#19-959 19-963 #19-963 #23-1147 *23-1149 #23-1149 *23-1149 23-1150 23-1151
23-1152 23-1153 23-1154 23-1156 23-1156 23-1161 #23-1161 23-1161 23-1163
23-1164 23-1165 *23-1172 #23-1172 *23-1172 23-1173 23-1174 23-1182 #23-1182
23-1184 23-1184 23-1185 23-1186 23-1187 23-1194 23-1194 23-1195 23-1196
23-1197 23-1205 23-1205 #23-1205 23-1209 #23-1209 #25-1334 *25-1336 #25-1336
*25-1336 25-1337 25-1338 25-1339 #25-1339 25-1339 25-1340 25-1341 25-1343
25-1343 25-1348 #25-1348 25-1349 #25-1349 25-1350 #25-1350 25-1350 25-1351
25-1352 25-1354 #25-1354 25-1354 25-1355 25-1356 25-1357 #25-1357 25-1357
25-1358 25-1359 *25-1361 #25-1361 *25-1361 25-1365 25-1366 25-1367 #25-1367
25-1367 25-1368 25-1369 25-1370 25-1373 25-1373 *25-1375 #25-1375 25-1379
25-1379 25-1380 25-1381 25-1382 #25-1382 25-1382 25-1383 25-1384 25-1385
25-1388 25-1388 *25-1390 #25-1390 25-1393 25-1393 #25-1393 25-1394 #25-1394
25-1395 #25-1395 25-1395 25-1396 25-1397 25-1398 #25-1398 25-1398 25-1402
25-1403 25-1408 25-1408 25-1409 25-1410 25-1414 25-1414 #25-1414 25-1415
#25-1415 25-1415 25-1416 25-1417 *25-1419 #25-1419 25-1420 #25-1420 25-1421
#25-1421 25-1422 #25-1422 25-1422 25-1423 25-1424 25-1426 #25-1426 25-1427
#25-1427 #27-1539 27-1547 #27-1547 27-1547 27-1548 27-1549 *27-1551 #27-1551
*27-1551 27-1555 27-1556 27-1557 #27-1557 27-1557 27-1560 27-1561 27-1562
27-1566 27-1566 27-1567 27-1568 27-1569 27-1573 27-1573 27-1574 27-1575
27-1576 27-1579 27-1579 27-1582 #27-1582 27-1586 27-1586 27-1587 27-1588
27-1590 #27-1590 27-1590 27-1592 27-1593 27-1597 27-1597 27-1598 27-1599
27-1603 27-1603 27-1604 27-1605 27-1608 27-1608 27-1611 #27-1611 27-1614
27-1614 #27-1614 27-1615 #27-1615 27-1615 27-1616 27-1617 27-1618 27-1621
#27-1621 27-1622 27-1622 27-1625 #27-1625 #28-1633 #29-1641 29-1642 #29-1642
29-1642 29-1643 29-1644 29-1647 29-1647 29-1652 #29-1652 29-1652 29-1653
29-1654 29-1657 #29-1657 29-1658 #29-1658 #30-1666 30-1668 #30-1668 30-1668
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 15
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
30-1669 30-1670 *30-1672 #30-1672 *30-1672 30-1674 30-1675 30-1677 30-1677
30-1678 30-1679 30-1684 30-1684 30-1686 #30-1686 30-1687 #30-1687 30-1688
#30-1688 30-1688 30-1689 30-1690 30-1693 #30-1693 #32-1776 *32-1778 #32-1778
*32-1778 32-1779 32-1780 32-1781 *32-1783 #32-1783 *32-1783 32-1785 32-1786
32-1787 32-1788 32-1790 32-1790 32-1791 32-1792 32-1793 32-1794 32-1797
32-1797 #32-1797 *32-1800 32-1800 *32-1802 #32-1802 #34-1893 34-1894 #34-1894
34-1894 34-1897 34-1898 34-1902 34-1902 34-1903 34-1904 34-1905 #34-1905
34-1905 34-1906 34-1907 34-1909 34-1909 34-1911 #34-1911 34-1916 34-1916
34-1917 34-1918 *34-1920 #34-1920 *34-1920 34-1921 34-1922 *34-1924 #34-1924
*34-1924 34-1925 34-1926 *34-1929 34-1929 *34-1932 #34-1932 34-1933 #34-1933
34-1934 34-1934 34-1935 34-1936 34-1937 #34-1937 34-1937 34-1938 34-1939
*34-1942 #34-1942 34-1943 34-1943 #34-1943 #36-2043 *36-2045 #36-2045 *36-2045
36-2046 36-2047 *36-2051 36-2051 *36-2054 #36-2054 *36-2054 *36-2054 36-2055
36-2056 36-2057 36-2058 #36-2058 36-2058 36-2059 36-2060 *36-2062 36-2062
36-2064 #36-2064 36-2065 36-2065 #36-2065 36-2066 #36-2066 36-2066 36-2067
36-2068 *36-2070 36-2070 36-2072 #36-2072 36-2075 #36-2075 #39-2177 39-2178
#39-2178 39-2178 39-2179 39-2180 *39-2182 #39-2182 39-2183 #39-2183 39-2183
39-2184 39-2185 39-2186 39-2187 39-2189 #39-2189 39-2190 #39-2190 39-2190
39-2191 39-2192 *39-2198 #39-2198 39-2199 #39-2199 39-2199 39-2200 39-2201
39-2202 #39-2202 39-2202 39-2203 39-2204 *39-2208 #39-2208 39-2209 #39-2209
39-2210 #39-2210 39-2210 39-2211 39-2212 39-2213 #39-2213 39-2213 39-2214
39-2215 39-2216 #39-2216 39-2216 39-2217 39-2218 39-2222 39-2222 39-2226
#39-2226 39-2227 #39-2227 39-2228 #39-2228 39-2229 #39-2229 39-2229 39-2230
39-2231 39-2235 #39-2235 39-2236 #39-2236 39-2236 39-2237 39-2238 *39-2242
#39-2242 #41-2342 41-2344 #41-2344 41-2344 41-2348 41-2349 41-2353 41-2353
41-2354 41-2355 41-2356 41-2357 #41-2357 41-2357 41-2360 41-2361 41-2368
41-2368 41-2369 41-2370 41-2372 41-2372 #41-2372 41-2375 41-2375 41-2376
41-2377 41-2378 41-2379 #41-2379 41-2379 41-2382 41-2383 41-2390 41-2390
41-2391 41-2392 41-2394 41-2394 41-2397 #41-2397 41-2398 41-2398 41-2401
#41-2401 #43-2512 *43-2514 #43-2514 *43-2514 43-2515 43-2516 43-2517 43-2519
43-2519 *43-2521 #43-2521 *43-2521 43-2523 43-2524 43-2530 43-2530 43-2531
43-2532 43-2537 43-2537 #43-2537 43-2541 #43-2541 #46-2660 *46-2662 #46-2662
*46-2662 46-2663 46-2664 46-2665 46-2667 46-2667 *46-2669 #46-2669 *46-2669
46-2671 46-2672 46-2678 46-2678 46-2679 46-2680 46-2686 46-2686 46-2687
46-2688 46-2693 46-2693 #46-2693 46-2697 #46-2697 #48-2784 48-2785 #48-2785
48-2785 48-2788 48-2789 48-2793 48-2793 48-2794 48-2795 48-2799 48-2799
48-2800 48-2801 *48-2803 #48-2803 *48-2803 48-2804 48-2805 *48-2808 #48-2808
48-2809 48-2809 #48-2809 #50-2908 *50-2910 #50-2910 *50-2910 50-2911 50-2912
*50-2914 50-2914 *50-2917 #50-2917 *50-2917 *50-2917 50-2918 50-2919 50-2920
50-2921 #50-2921 50-2921 50-2922 50-2923 *50-2925 50-2925 50-2927 #50-2927
50-2928 50-2928 #50-2928 50-2929 #50-2929 50-2929 50-2930 50-2931 *50-2933
50-2933 50-2935 #50-2935 50-2936 #50-2936
$$S765 = 000075 #25-1367 25-1375 #25-1382 25-1390
$$S766 = 000015 #25-1367 25-1375 #25-1382 25-1390
$$S767 = 000000 #25-1361 25-1393 #25-1398 25-1414
$$S770 = 000001 #25-1361 25-1393 #25-1398 25-1414 #25-1415 25-1419 #27-1557 27-1582 #27-1590
27-1611
$$S771 = 000077 #23-1172 23-1182 #25-1361 25-1393 #25-1398 25-1414 #25-1415 25-1419 #27-1557
27-1582 #27-1590 27-1611 #34-1924 34-1932
$$S772 = 000077 #14-630 14-645 #14-653 14-671 #23-1172 23-1182 #25-1357 25-1394 #25-1395
25-1420 #27-1557 27-1582 #27-1590 27-1611 #34-1924 34-1932 #36-2058 36-2064
#39-2216 39-2226 #41-2357 41-2372 #41-2379 41-2397 #50-2921 50-2927
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 16
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$$S773 = 000011 #14-630 14-645 #14-653 14-671 #19-936 19-959 #23-1161 23-1205 #25-1357
25-1394 #25-1395 25-1420 #27-1551 27-1614 #30-1672 30-1686 #32-1783 *32-1797
#34-1905 34-1911 #34-1920 34-1933 #34-1937 34-1942 #36-2058 36-2064 #39-2216
39-2226 #41-2357 41-2372 #41-2379 41-2397 #43-2521 *43-2537 #46-2669 46-2693
#48-2803 48-2808 #50-2921 50-2927
$$S774 = 000011 #10-329 10-335 #10-342 10-347 #10-348 10-357 #10-362 10-373 #12-461
12-475 #12-496 12-506 #14-630 14-645 #14-653 14-671 #16-780 16-785
#19-936 19-959 #23-1161 23-1205 #25-1339 25-1348 #25-1354 25-1421 #25-1422
25-1426 #27-1551 27-1614 #27-1615 27-1621 #29-1652 29-1657 #30-1672 30-1686
#32-1783 32-1797 #34-1905 34-1911 #34-1920 34-1933 #34-1937 34-1942 #36-2054
36-2065 #36-2066 36-2072 #39-2202 39-2208 #39-2213 39-2227 #41-2357 41-2372
#41-2379 41-2397 #43-2521 43-2537 #46-2669 46-2693 #48-2803 48-2808 #50-2917
50-2928 #50-2929 50-2935
$$S775 = 000010 #10-329 10-335 #10-342 10-347 #10-348 10-357 #10-362 10-373 #12-461
12-475 #12-496 12-506 #14-615 14-676 #16-780 16-785 #19-936 19-959
#23-1161 23-1205 #25-1339 25-1348 #25-1354 25-1421 #25-1422 25-1426 #27-1551
27-1614 #27-1615 27-1621 #29-1652 29-1657 #30-1672 30-1686 #32-1783 32-1797
#34-1894 34-1943 #36-2054 36-2065 #36-2066 36-2072 #39-2202 39-2208 #39-2213
39-2227 #41-2344 41-2401 #43-2521 43-2537 #46-2669 46-2693 #48-2785 48-2809
#50-2917 50-2928 #50-2929 50-2935
$$S776 = 000000 #10-305 10-309 #10-310 10-316 #10-317 10-325 #10-326 10-336 #10-337
10-358 #10-359 10-374 #12-458 12-480 #12-481 12-486 #12-487 12-492
#12-493 12-507 #14-615 14-676 #16-763 16-786 #19-924 19-963 #23-1149
23-1209 #25-1336 25-1349 #25-1350 25-1427 #27-1547 27-1625 #29-1642 29-1658
#30-1668 30-1687 #30-1688 30-1693 #32-1778 32-1802 #34-1894 34-1943 #36-2045
36-2075 #39-2178 39-2182 #39-2183 39-2189 #39-2190 39-2198 #39-2199 39-2209
#39-2210 39-2228 #39-2229 39-2235 #39-2236 39-2242 #41-2344 41-2401 #43-2514
43-2541 #46-2662 46-2697 #48-2785 48-2809 #50-2910 50-2936
$$S777 = 000000 #10-305 10-309 #10-310 10-316 #10-317 10-325 #10-326 10-336 #10-337
10-358 #10-359 10-374 #12-458 12-480 #12-481 12-486 #12-487 12-492
#12-493 12-507 #14-615 14-676 #16-763 16-786 #19-924 19-963 #23-1149
23-1209 #25-1336 25-1349 #25-1350 25-1427 #27-1547 27-1625 #29-1642 29-1658
#30-1668 30-1687 #30-1688 30-1693 #32-1778 32-1802 #34-1894 34-1943 #36-2045
36-2075 #39-2178 39-2182 #39-2183 39-2189 #39-2190 39-2198 #39-2199 39-2209
#39-2210 39-2228 #39-2229 39-2235 #39-2236 39-2242 #41-2344 41-2401 #43-2514
43-2541 #46-2662 46-2697 #48-2785 48-2809 #50-2910 50-2936
$$TRNM = 000000 #8-199 #10-304 10-305 #10-305 10-306 10-307 *10-309 #10-309 10-310
#10-310 10-311 10-312 10-313 10-314 10-316 #10-316 10-317 #10-317
10-318 10-319 10-325 #10-325 10-326 #10-326 10-327 10-328 10-329
#10-329 10-330 10-331 *10-335 #10-335 10-336 #10-336 10-337 #10-337
10-338 10-339 10-340 10-341 10-342 #10-342 10-343 10-344 *10-347
#10-347 10-348 #10-348 10-349 10-350 10-354 #10-354 *10-357 #10-357
10-358 #10-358 10-359 #10-359 10-360 10-361 10-362 #10-362 10-363
10-364 10-369 #10-369 10-373 #10-373 10-374 #10-374 #12-457 12-458
#12-458 12-459 12-460 12-461 #12-461 12-462 12-463 *12-475 #12-475
12-476 #12-476 12-480 #12-480 12-481 #12-481 12-482 12-483 12-486
#12-486 12-487 #12-487 12-488 12-489 *12-492 #12-492 12-493 #12-493
12-494 12-495 12-496 #12-496 12-497 12-498 12-502 #12-502 12-506
#12-506 12-507 #12-507 #14-613 14-615 #14-615 14-619 14-620 14-621
14-625 14-625 #14-625 14-626 14-627 14-628 14-629 14-630 #14-630
14-633 14-634 14-641 14-641 #14-641 14-642 14-643 14-645 14-645
#14-645 14-648 14-648 #14-648 14-649 14-650 14-651 14-652 14-653
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 17
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#14-653 14-656 14-657 14-664 14-664 #14-664 14-665 14-666 14-668
#14-668 14-671 14-671 #14-671 14-673 #14-673 14-676 14-676 #14-676
#16-762 16-763 #16-763 16-764 16-765 16-770 #16-770 16-780 #16-780
16-781 16-782 16-785 #16-785 16-786 #16-786 #19-922 *19-924 #19-924
19-925 19-926 19-927 19-928 19-929 19-931 #19-931 19-936 #19-936
19-938 19-939 19-940 19-947 19-947 #19-947 19-948 19-949 19-950
19-959 19-959 #19-959 19-963 #19-963 #23-1147 *23-1149 #23-1149 23-1150
23-1151 23-1152 23-1153 23-1154 23-1156 #23-1156 23-1161 #23-1161 23-1163
23-1164 23-1165 *23-1172 #23-1172 23-1173 23-1174 23-1182 #23-1182 23-1184
23-1184 #23-1184 23-1185 23-1186 23-1187 23-1194 23-1194 #23-1194 23-1195
23-1196 23-1197 23-1205 23-1205 #23-1205 23-1209 #23-1209 #25-1334 *25-1336
#25-1336 25-1337 25-1338 25-1339 #25-1339 25-1340 25-1341 25-1343 #25-1343
25-1348 #25-1348 25-1349 #25-1349 25-1350 #25-1350 25-1351 25-1352 25-1354
#25-1354 25-1355 25-1356 25-1357 #25-1357 25-1358 25-1359 *25-1361 #25-1361
25-1365 25-1366 25-1367 #25-1367 25-1368 25-1369 25-1370 25-1373 #25-1373
*25-1375 #25-1375 25-1379 25-1379 #25-1379 25-1380 25-1381 25-1382 #25-1382
25-1383 25-1384 25-1385 25-1388 #25-1388 *25-1390 #25-1390 25-1393 25-1393
#25-1393 25-1394 #25-1394 25-1395 #25-1395 25-1396 25-1397 25-1398 #25-1398
25-1402 25-1403 25-1408 25-1408 #25-1408 25-1409 25-1410 25-1414 25-1414
#25-1414 25-1415 #25-1415 25-1416 25-1417 *25-1419 #25-1419 25-1420 #25-1420
25-1421 #25-1421 25-1422 #25-1422 25-1423 25-1424 25-1426 #25-1426 25-1427
#25-1427 #27-1539 27-1547 #27-1547 27-1548 27-1549 *27-1551 #27-1551 27-1555
27-1556 27-1557 #27-1557 27-1560 27-1561 27-1562 27-1566 27-1566 #27-1566
27-1567 27-1568 27-1569 27-1573 27-1573 #27-1573 27-1574 27-1575 27-1576
27-1579 #27-1579 27-1582 27-1582 #27-1582 27-1586 27-1586 #27-1586 27-1587
27-1588 27-1590 #27-1590 27-1592 27-1593 27-1597 27-1597 #27-1597 27-1598
27-1599 27-1603 27-1603 #27-1603 27-1604 27-1605 27-1608 #27-1608 27-1611
27-1611 #27-1611 27-1614 27-1614 #27-1614 27-1615 #27-1615 27-1616 27-1617
27-1618 27-1621 #27-1621 27-1622 #27-1622 27-1625 #27-1625 #28-1633 #29-1641
29-1642 #29-1642 29-1643 29-1644 29-1647 #29-1647 29-1652 #29-1652 29-1653
29-1654 29-1657 #29-1657 29-1658 #29-1658 #30-1666 30-1668 #30-1668 30-1669
30-1670 *30-1672 #30-1672 30-1674 30-1675 30-1677 30-1677 #30-1677 30-1678
30-1679 30-1684 #30-1684 30-1686 30-1686 #30-1686 30-1687 #30-1687 30-1688
#30-1688 30-1689 30-1690 30-1693 #30-1693 #32-1776 *32-1778 #32-1778 32-1779
32-1780 32-1781 *32-1783 #32-1783 32-1785 32-1786 32-1787 32-1788 32-1790
32-1790 #32-1790 32-1791 32-1792 32-1793 32-1794 32-1797 32-1797 #32-1797
32-1800 #32-1800 *32-1802 #32-1802 #34-1893 34-1894 #34-1894 34-1897 34-1898
34-1902 34-1902 #34-1902 34-1903 34-1904 34-1905 #34-1905 34-1906 34-1907
34-1909 #34-1909 34-1911 #34-1911 34-1916 34-1916 #34-1916 34-1917 34-1918
*34-1920 #34-1920 34-1921 34-1922 *34-1924 #34-1924 34-1925 34-1926 34-1929
#34-1929 *34-1932 #34-1932 34-1933 #34-1933 34-1934 34-1934 #34-1934 34-1935
34-1936 34-1937 #34-1937 34-1938 34-1939 *34-1942 #34-1942 34-1943 34-1943
#34-1943 #36-2043 *36-2045 #36-2045 36-2046 36-2047 36-2051 #36-2051 *36-2054
#36-2054 36-2055 36-2056 36-2057 36-2058 #36-2058 36-2059 36-2060 36-2062
#36-2062 36-2064 #36-2064 36-2065 #36-2065 36-2066 #36-2066 36-2067 36-2068
36-2070 #36-2070 36-2072 #36-2072 36-2075 #36-2075 #39-2177 39-2178 #39-2178
39-2179 39-2180 *39-2182 #39-2182 39-2183 #39-2183 39-2184 39-2185 39-2186
39-2187 39-2189 #39-2189 39-2190 #39-2190 39-2191 39-2192 *39-2198 #39-2198
39-2199 #39-2199 39-2200 39-2201 39-2202 #39-2202 39-2203 39-2204 *39-2208
#39-2208 39-2209 #39-2209 39-2210 #39-2210 39-2211 39-2212 39-2213 #39-2213
39-2214 39-2215 39-2216 #39-2216 39-2217 39-2218 39-2222 #39-2222 39-2226
#39-2226 39-2227 #39-2227 39-2228 #39-2228 39-2229 #39-2229 39-2230 39-2231
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 18
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
39-2235 #39-2235 39-2236 #39-2236 39-2237 39-2238 *39-2242 #39-2242 #41-2342
41-2344 #41-2344 41-2348 41-2349 41-2353 41-2353 #41-2353 41-2354 41-2355
41-2356 41-2357 #41-2357 41-2360 41-2361 41-2368 41-2368 #41-2368 41-2369
41-2370 41-2372 41-2372 #41-2372 41-2375 41-2375 #41-2375 41-2376 41-2377
41-2378 41-2379 #41-2379 41-2382 41-2383 41-2390 41-2390 #41-2390 41-2391
41-2392 41-2394 #41-2394 41-2397 41-2397 #41-2397 41-2398 #41-2398 41-2401
41-2401 #41-2401 #43-2512 *43-2514 #43-2514 43-2515 43-2516 43-2517 43-2519
#43-2519 *43-2521 #43-2521 43-2523 43-2524 43-2530 43-2530 #43-2530 43-2531
43-2532 43-2537 43-2537 #43-2537 43-2541 #43-2541 #46-2660 *46-2662 #46-2662
46-2663 46-2664 46-2665 46-2667 #46-2667 *46-2669 #46-2669 46-2671 46-2672
46-2678 46-2678 #46-2678 46-2679 46-2680 46-2686 46-2686 #46-2686 46-2687
46-2688 46-2693 46-2693 #46-2693 46-2697 #46-2697 #48-2784 48-2785 #48-2785
48-2788 48-2789 48-2793 48-2793 #48-2793 48-2794 48-2795 48-2799 48-2799
#48-2799 48-2800 48-2801 *48-2803 #48-2803 48-2804 48-2805 *48-2808 #48-2808
48-2809 48-2809 #48-2809 #50-2908 *50-2910 #50-2910 50-2911 50-2912 50-2914
#50-2914 *50-2917 #50-2917 50-2918 50-2919 50-2920 50-2921 #50-2921 50-2922
50-2923 50-2925 #50-2925 50-2927 #50-2927 50-2928 #50-2928 50-2929 #50-2929
50-2930 50-2931 50-2933 #50-2933 50-2935 #50-2935 50-2936 #50-2936
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 19
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #10-315 #10-324 #10-353 #10-372 #14-622 #14-636 #14-644 #14-659 #14-667 #14-670
#14-675 #16-776 #16-779 #19-944 #19-954 #23-1169 #23-1179 #23-1192 #23-1201 #25-1342
#25-1372 #25-1387 #25-1404 #25-1411 #25-1425 #27-1546 #27-1563 #27-1570 #27-1577 #27-1581
#27-1594 #27-1600 #27-1606 #27-1610 #27-1620 #27-1624 #29-1651 #29-1656 #30-1667 #30-1683
#30-1692 #34-1901 #34-1915 #39-2188 #39-2221 #39-2225 #39-2234 #41-2350 #41-2363 #41-2371
#41-2385 #41-2393 #41-2396 #41-2400 #43-2528 #43-2535 #46-2675 #46-2685 #46-2692 #48-2792
#48-2798
CASE #8-199 #10-304 #12-457 #14-613 14-618 14-625 14-632 14-641 14-648 14-655
14-664 #16-762 #19-922 19-937 19-947 #23-1147 23-1162 23-1184 23-1194 #25-1334
25-1364 25-1379 25-1401 25-1408 #27-1539 27-1554 27-1559 27-1566 27-1573 27-1586
27-1591 27-1597 27-1603 #28-1633 #29-1641 #30-1666 30-1673 30-1677 #32-1776 32-1784
32-1790 #34-1893 34-1896 34-1902 34-1916 34-1934 #36-2043 #39-2177 #41-2342 41-2347
41-2353 41-2359 41-2368 41-2375 41-2381 41-2390 #43-2512 43-2522 43-2530 #46-2660
46-2670 46-2678 46-2686 #48-2784 48-2787 48-2793 48-2799 #50-2908
CONDF #9-292 9-296 #11-446 11-450 #13-600 13-604 #15-751 15-755 #18-910 18-914
#22-1135 22-1140 #24-1288 24-1292 #26-1525 26-1529 #31-1765 31-1769 #33-1881 33-1885
#35-2018 35-2022 #38-2165 38-2169 #40-2329 40-2333 #42-2501 42-2505 #45-2649 45-2653
#47-2772 47-2776 #49-2882 49-2886
CONFIG #6-137 #6-142 #13-600 #13-605 #24-1288 #24-1293 #26-1525 #26-1530 #40-2329 #40-2334
DO #8-199 #10-304 #12-457 #14-613 14-621 14-629 14-634 14-643 14-652 14-657
14-666 #16-762 #19-922 19-940 19-950 #23-1147 23-1165 23-1187 23-1197 #25-1334
25-1366 25-1381 25-1403 25-1410 #27-1539 27-1556 27-1562 27-1569 27-1576 27-1588
27-1593 27-1599 27-1605 #28-1633 #29-1641 #30-1666 30-1675 30-1679 #32-1776 32-1788
32-1794 #34-1893 34-1898 34-1904 34-1918 34-1936 #36-2043 36-2057 #39-2177 #41-2342
41-2349 41-2356 41-2361 41-2370 41-2378 41-2383 41-2392 #43-2512 43-2524 43-2532
#46-2660 46-2672 46-2680 46-2688 #48-2784 48-2789 48-2795 48-2801 #50-2908 50-2920
ELSE #8-199 #10-304 10-354 10-369 #12-457 12-476 12-502 #14-613 14-668 14-673
#16-762 16-770 #19-922 19-931 #23-1147 23-1156 #25-1334 25-1343 25-1373 25-1388
#27-1539 27-1579 27-1608 27-1622 #28-1633 #29-1641 29-1647 #30-1666 30-1684 #32-1776
32-1800 #34-1893 34-1909 34-1929 #36-2043 36-2051 36-2062 36-2070 #39-2177 39-2222
#41-2342 41-2394 41-2398 #43-2512 43-2519 #46-2660 46-2667 #48-2784 #50-2908 50-2914
50-2925 50-2933
ENDCAS #8-199 #10-304 #12-457 #14-613 14-645 14-671 14-676 #16-762 #19-922 19-959
#23-1147 23-1205 #25-1334 25-1393 25-1414 #27-1539 27-1582 27-1611 27-1614 #28-1633
#29-1641 #30-1666 30-1686 #32-1776 32-1797 #34-1893 34-1943 #36-2043 #39-2177 #41-2342
41-2372 41-2397 41-2401 #43-2512 43-2537 #46-2660 46-2693 #48-2784 48-2809 #50-2908
ENDIF #8-199 #10-304 #10-309 #10-316 #10-325 #10-335 #10-336 #10-347 #10-357 #10-358
#10-373 #10-374 #12-457 #12-475 #12-480 #12-486 #12-492 #12-506 #12-507 #14-613
#14-645 #14-671 #14-676 #16-762 #16-785 #16-786 #19-922 #19-959 #19-963 #23-1147
#23-1182 #23-1205 #23-1209 #25-1334 #25-1348 #25-1349 #25-1375 #25-1390 #25-1393 #25-1394
#25-1414 #25-1419 #25-1420 #25-1421 #25-1426 #25-1427 #27-1539 #27-1582 #27-1611 #27-1614
#27-1621 #27-1625 #28-1633 #29-1641 #29-1657 #29-1658 #30-1666 #30-1686 #30-1687 #30-1693
#32-1776 #32-1797 #32-1802 #34-1893 #34-1911 #34-1932 #34-1933 #34-1942 #34-1943 #36-2043
#36-2064 #36-2065 #36-2072 #36-2075 #39-2177 #39-2182 #39-2189 #39-2198 #39-2208 #39-2209
#39-2226 #39-2227 #39-2228 #39-2235 #39-2242 #41-2342 #41-2372 #41-2397 #41-2401 #43-2512
#43-2537 #43-2541 #46-2660 #46-2693 #46-2697 #48-2784 #48-2808 #48-2809 #50-2908 #50-2927
#50-2928 #50-2935 #50-2936
ENDPRO #8-199 8-204 #10-304 10-375 #12-457 12-508 #14-613 14-677 #16-762 16-787
#19-922 19-964 #23-1147 23-1210 #25-1334 25-1429 #27-1539 27-1627 #28-1633 28-1634
#29-1641 29-1659 #30-1666 30-1694 #32-1776 32-1803 #34-1893 34-1944 #36-2043 36-2080
#39-2177 39-2243 #41-2342 41-2402 #43-2512 43-2542 #46-2660 46-2698 #48-2784 48-2810
#50-2908 50-2941
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 20
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
ENDWHI #8-199 #10-304 #12-457 #14-613 #16-762 #19-922 #23-1147 #25-1334 #27-1539 #28-1633
#29-1641 #30-1666 #32-1776 #34-1893 #36-2043 #36-2065 #39-2177 #41-2342 #43-2512 #46-2660
#48-2784 #50-2908 #50-2928
FALSE #8-199 #10-304 10-349 #12-457 12-497 #14-613 14-620 14-628 14-633 14-642
14-651 14-656 14-665 #16-762 #19-922 19-928 19-939 19-949 #23-1147 23-1153
23-1164 23-1186 23-1196 #25-1334 25-1337 25-1351 25-1369 25-1384 #27-1539 27-1548
27-1561 27-1568 27-1575 27-1592 27-1598 27-1604 27-1617 #28-1633 #29-1641 29-1653
#30-1666 30-1669 30-1674 30-1678 30-1689 #32-1776 32-1779 32-1780 32-1787 32-1793
#34-1893 34-1897 34-1903 34-1917 34-1925 34-1935 #36-2043 #39-2177 39-2217 #41-2342
41-2348 41-2355 41-2360 41-2369 41-2377 41-2382 41-2391 #43-2512 43-2515 43-2516
43-2523 43-2531 #46-2660 46-2664 46-2671 46-2679 46-2687 #48-2784 48-2788 48-2794
48-2800 #50-2908
FALSEB #8-199 #10-304 #10-306 #10-313 #10-318 #10-327 #10-330 #10-338 #10-340 #10-343
#10-360 #10-363 #12-457 #12-459 #12-462 #12-482 #12-488 #12-494 #14-613 #16-762
#16-764 #16-781 #19-922 #23-1147 #23-1173 #25-1334 #25-1340 #25-1355 #25-1358 #25-1365
#25-1380 #25-1396 #25-1402 #25-1409 #25-1416 #25-1423 #27-1539 #27-1555 #27-1587 #27-1616
#28-1633 #29-1641 #29-1643 #30-1666 #32-1776 #34-1893 #34-1906 #34-1921 #34-1938 #36-2043
#36-2046 #36-2055 #36-2056 #36-2059 #36-2067 #39-2177 #39-2179 #39-2186 #39-2191 #39-2200
#39-2203 #39-2211 #39-2214 #39-2230 #39-2237 #41-2342 #43-2512 #46-2660 #48-2784 #48-2804
#50-2908 #50-2911 #50-2918 #50-2919 #50-2922 #50-2930
IF #8-199 #10-304 #10-305 #10-310 #10-317 #10-326 #10-329 #10-337 #10-342 #10-348
#10-359 #10-362 #12-457 #12-458 #12-461 #12-481 #12-487 #12-493 #12-496 #14-613
#14-615 #14-630 #14-653 #16-762 #16-763 #16-780 #19-922 #19-924 #19-936 #23-1147
#23-1149 #23-1161 #23-1172 #25-1334 #25-1336 #25-1339 #25-1350 #25-1354 #25-1357 #25-1361
#25-1367 #25-1382 #25-1395 #25-1398 #25-1415 #25-1422 #27-1539 #27-1547 #27-1551 #27-1557
#27-1590 #27-1615 #28-1633 #29-1641 #29-1642 #29-1652 #30-1666 #30-1668 #30-1672 #30-1688
#32-1776 #32-1778 #32-1783 #34-1893 #34-1894 #34-1905 #34-1920 #34-1924 #34-1937 #36-2043
#36-2045 #36-2054 #36-2058 #36-2066 #39-2177 #39-2178 #39-2183 #39-2190 #39-2199 #39-2202
#39-2210 #39-2213 #39-2216 #39-2229 #39-2236 #41-2342 #41-2344 #41-2357 #41-2379 #43-2512
#43-2514 #43-2521 #46-2660 #46-2662 #46-2669 #48-2784 #48-2785 #48-2803 #50-2908 #50-2910
#50-2917 #50-2921 #50-2929
JMPPRO #8-199 #10-304 #12-457 #14-613 #16-762 #19-922 #23-1147 #25-1334 #27-1539 #28-1633
#29-1641 #30-1666 #32-1776 #34-1893 #36-2043 #39-2177 #41-2342 #43-2512 #46-2660 #48-2784
#50-2908
NICDF #9-292 9-297 #13-600 13-606 #15-751 15-756 #18-910 18-915 #24-1288 24-1294
#26-1525 26-1531 #33-1881 33-1886 #35-2018 35-2023 #38-2165 38-2170 #40-2329 40-2335
#47-2772 47-2777 #49-2882 49-2887
ONCASE #8-199 #10-304 #12-457 #14-613 14-615 14-630 14-653 #16-762 #19-922 19-936
#23-1147 23-1161 #25-1334 25-1361 25-1398 #27-1539 27-1551 27-1557 27-1590 #28-1633
#29-1641 #30-1666 30-1672 #32-1776 32-1783 #34-1893 34-1894 #36-2043 #39-2177 #41-2342
41-2344 41-2357 41-2379 #43-2512 43-2521 #46-2660 46-2669 #48-2784 48-2785 #50-2908
PRDF #24-1288 24-1295 #26-1525 26-1532
PROC #6-138 25-1334
PROCLC #6-138 8-199 #8-199 10-304 #10-304 12-457 #12-457 14-613 #14-613 16-762
#16-762 19-922 #19-922 23-1147 #23-1147 #25-1334 27-1539 #27-1539 28-1633 #28-1633
29-1641 #29-1641 30-1666 #30-1666 32-1776 #32-1776 34-1893 #34-1893 36-2043 #36-2043
39-2177 #39-2177 41-2342 #41-2342 43-2512 #43-2512 46-2660 #46-2660 48-2784 #48-2784
50-2908 #50-2908
PROFLG #6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142
#6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142
#6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142
#6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142 #6-142
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 21
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#6-142 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605
#13-605 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605
#13-605 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605
#13-605 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605 #13-605
#13-605 #13-605 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293
#24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293
#24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293
#24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293 #24-1293
#24-1293 #24-1293 #24-1293 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530
#26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530
#26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530
#26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530 #26-1530
#26-1530 #26-1530 #26-1530 #26-1530 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334
#40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334
#40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334
#40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334 #40-2334
#40-2334 #40-2334 #40-2334 #40-2334 #40-2334
RESSTK #22-1136 #23-1170 #26-1525 #27-1626
RIDF #7-189 7-193 #9-292 9-298 #11-446 11-451 #13-600 13-607 #15-751 15-757
#18-910 18-916 #22-1135 22-1141 #24-1288 24-1296 #26-1525 26-1533 #31-1765 31-1770
#33-1881 33-1887 #35-2018 35-2024 #38-2165 38-2171 #40-2329 40-2336 #42-2501 42-2506
#45-2649 45-2654 #47-2772 47-2778 #49-2882 49-2888
SAVSTK #22-1136 #23-1167 #26-1525 #27-1540
SWSTK$ #8-199 #10-304 #12-457 #14-613 #16-762 #19-922 #23-1147 #25-1334 #27-1539 #28-1633
#29-1641 #30-1666 #32-1776 #34-1893 #36-2043 #39-2177 #41-2342 #43-2512 #46-2660 #48-2784
#50-2908
THEN #8-199 #10-304 #10-307 #10-314 #10-319 #10-328 #10-331 #10-341 #10-344 #10-350
#10-361 #10-364 #12-457 #12-460 #12-463 #12-483 #12-489 #12-495 #12-498 #14-613
#14-621 #14-629 #14-634 #14-643 #14-652 #14-657 #14-666 #16-762 #16-765 #16-782
#19-922 #19-929 #19-940 #19-950 #23-1147 #23-1154 #23-1165 #23-1174 #23-1187 #23-1197
#25-1334 #25-1338 #25-1341 #25-1352 #25-1356 #25-1359 #25-1366 #25-1370 #25-1381 #25-1385
#25-1397 #25-1403 #25-1410 #25-1417 #25-1424 #27-1539 #27-1549 #27-1556 #27-1562 #27-1569
#27-1576 #27-1588 #27-1593 #27-1599 #27-1605 #27-1618 #28-1633 #29-1641 #29-1644 #29-1654
#30-1666 #30-1670 #30-1675 #30-1679 #30-1690 #32-1776 #32-1781 #32-1788 #32-1794 #34-1893
#34-1898 #34-1904 #34-1907 #34-1918 #34-1922 #34-1926 #34-1936 #34-1939 #36-2043 #36-2047
#36-2057 #36-2060 #36-2068 #39-2177 #39-2180 #39-2187 #39-2192 #39-2201 #39-2204 #39-2212
#39-2215 #39-2218 #39-2231 #39-2238 #41-2342 #41-2349 #41-2356 #41-2361 #41-2370 #41-2378
#41-2383 #41-2392 #43-2512 #43-2517 #43-2524 #43-2532 #46-2660 #46-2665 #46-2672 #46-2680
#46-2688 #48-2784 #48-2789 #48-2795 #48-2801 #48-2805 #50-2908 #50-2912 #50-2920 #50-2923
#50-2931
TRUE #8-199 #10-304 #12-457 #14-613 #14-619 #14-626 #14-627 #14-649 #14-650 #16-762
#19-922 #19-925 #19-926 #19-927 #19-938 #19-948 #23-1147 #23-1150 #23-1151 #23-1152
#23-1163 #23-1185 #23-1195 #25-1334 #25-1368 #25-1383 #27-1539 #27-1560 #27-1567 #27-1574
#28-1633 #29-1641 #30-1666 #32-1776 #32-1785 #32-1786 #32-1791 #32-1792 #34-1893 #36-2043
#39-2177 #41-2342 #41-2354 #41-2376 #43-2512 #46-2660 #46-2663 #48-2784 #50-2908
TRUEB #8-199 #10-304 #10-311 #10-312 #10-339 #12-457 #14-613 #16-762 #19-922 #23-1147
#25-1334 #27-1539 #28-1633 #29-1641 #30-1666 #32-1776 #34-1893 #36-2043 #39-2177 #39-2184
#39-2185 #41-2342 #43-2512 #46-2660 #48-2784 #50-2908
WHILE #8-199 #10-304 #12-457 #14-613 #16-762 #19-922 #23-1147 #25-1334 #27-1539 #28-1633
#29-1641 #30-1666 #32-1776 #34-1893 #36-2043 36-2054 #39-2177 #41-2342 #43-2512 #46-2660
#48-2784 #50-2908 50-2917
$$BGND #8-199 #10-304 10-306 10-311 10-312 10-313 10-318 10-327 10-330 10-338
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 22
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
10-339 10-340 10-343 10-349 10-360 10-363 #12-457 12-459 12-462 12-482
12-488 12-494 12-497 #14-613 14-619 14-620 14-626 14-627 14-628 14-633
14-642 14-649 14-650 14-651 14-656 14-665 #16-762 16-764 16-781 #19-922
19-925 19-926 19-927 19-928 19-938 19-939 19-948 19-949 #23-1147 23-1150
23-1151 23-1152 23-1153 23-1163 23-1164 23-1173 23-1185 23-1186 23-1195 23-1196
#25-1334 25-1337 25-1340 25-1351 25-1355 25-1358 25-1365 25-1368 25-1369 25-1380
25-1383 25-1384 25-1396 25-1402 25-1409 25-1416 25-1423 #27-1539 27-1548 27-1555
27-1560 27-1561 27-1567 27-1568 27-1574 27-1575 27-1587 27-1592 27-1598 27-1604
27-1616 27-1617 #28-1633 #29-1641 29-1643 29-1653 #30-1666 30-1669 30-1674 30-1678
30-1689 #32-1776 32-1779 32-1780 32-1785 32-1786 32-1787 32-1791 32-1792 32-1793
#34-1893 34-1897 34-1903 34-1906 34-1917 34-1921 34-1925 34-1935 34-1938 #36-2043
36-2046 36-2055 36-2056 36-2059 36-2067 #39-2177 39-2179 39-2184 39-2185 39-2186
39-2191 39-2200 39-2203 39-2211 39-2214 39-2217 39-2230 39-2237 #41-2342 41-2348
41-2354 41-2355 41-2360 41-2369 41-2376 41-2377 41-2382 41-2391 #43-2512 43-2515
43-2516 43-2523 43-2531 #46-2660 46-2663 46-2664 46-2671 46-2679 46-2687 #48-2784
48-2788 48-2794 48-2800 48-2804 #50-2908 50-2911 50-2918 50-2919 50-2922 50-2930
$$BGNN #8-199 #10-304 10-306 10-311 10-312 10-313 10-318 10-327 10-330 10-338
10-339 10-340 10-343 10-349 10-354 10-360 10-363 10-369 #12-457 12-459
12-462 12-476 12-482 12-488 12-494 12-497 12-502 #14-613 14-619 14-620
14-625 14-626 14-627 14-628 14-633 14-641 14-642 14-648 14-649 14-650
14-651 14-656 14-664 14-665 14-668 14-673 #16-762 16-764 16-770 16-781
#19-922 19-925 19-926 19-927 19-928 19-931 19-938 19-939 19-947 19-948
19-949 #23-1147 23-1150 23-1151 23-1152 23-1153 23-1156 23-1163 23-1164 23-1173
23-1184 23-1185 23-1186 23-1194 23-1195 23-1196 #25-1334 25-1337 25-1340 25-1343
25-1351 25-1355 25-1358 25-1365 25-1368 25-1369 25-1373 25-1379 25-1380 25-1383
25-1384 25-1388 25-1396 25-1402 25-1408 25-1409 25-1416 25-1423 #27-1539 27-1548
27-1555 27-1560 27-1561 27-1566 27-1567 27-1568 27-1573 27-1574 27-1575 27-1579
27-1586 27-1587 27-1592 27-1597 27-1598 27-1603 27-1604 27-1608 27-1616 27-1617
27-1622 #28-1633 #29-1641 29-1643 29-1647 29-1653 #30-1666 30-1669 30-1674 30-1677
30-1678 30-1684 30-1689 #32-1776 32-1779 32-1780 32-1785 32-1786 32-1787 32-1790
32-1791 32-1792 32-1793 32-1800 #34-1893 34-1897 34-1902 34-1903 34-1906 34-1909
34-1916 34-1917 34-1921 34-1925 34-1929 34-1934 34-1935 34-1938 #36-2043 36-2046
36-2051 36-2055 36-2056 36-2059 36-2062 36-2065 36-2067 36-2070 #39-2177 39-2179
39-2184 39-2185 39-2186 39-2191 39-2200 39-2203 39-2211 39-2214 39-2217 39-2222
39-2230 39-2237 #41-2342 41-2348 41-2353 41-2354 41-2355 41-2360 41-2368 41-2369
41-2375 41-2376 41-2377 41-2382 41-2390 41-2391 41-2394 41-2398 #43-2512 43-2515
43-2516 43-2519 43-2523 43-2530 43-2531 #46-2660 46-2663 46-2664 46-2667 46-2671
46-2678 46-2679 46-2686 46-2687 #48-2784 48-2788 48-2793 48-2794 48-2799 48-2800
48-2804 #50-2908 50-2911 50-2914 50-2918 50-2919 50-2922 50-2925 50-2928 50-2930
50-2933
$$ELSE #8-199 #10-304 10-354 10-369 #12-457 12-476 12-502 #14-613 14-625 14-641
14-648 14-664 14-668 14-673 #16-762 16-770 #19-922 19-931 19-947 #23-1147
23-1156 23-1184 23-1194 #25-1334 25-1343 25-1373 25-1379 25-1388 25-1408 #27-1539
27-1566 27-1573 27-1579 27-1586 27-1597 27-1603 27-1608 27-1622 #28-1633 #29-1641
29-1647 #30-1666 30-1677 30-1684 #32-1776 32-1790 32-1800 #34-1893 34-1902 34-1909
34-1916 34-1929 34-1934 #36-2043 36-2051 36-2062 36-2070 #39-2177 39-2222 #41-2342
41-2353 41-2368 41-2375 41-2390 41-2394 41-2398 #43-2512 43-2519 43-2530 #46-2660
46-2667 46-2678 46-2686 #48-2784 48-2793 48-2799 #50-2908 50-2914 50-2925 50-2933
$$GEN1 #8-199 8-199 8-204 #10-304 10-304 10-306 10-306 10-307 10-309 10-311
10-311 10-312 10-313 10-314 10-316 10-318 10-319 10-325 10-327 10-328
10-330 10-330 10-331 10-335 10-336 10-338 10-338 10-339 10-340 10-341
10-343 10-344 10-347 10-349 10-349 10-350 10-354 10-354 10-357 10-358
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 23
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
10-360 10-361 10-363 10-363 10-364 10-369 10-369 10-373 10-374 10-375
#12-457 12-457 12-459 12-459 12-460 12-462 12-462 12-463 12-475 12-476
12-476 12-480 12-482 12-483 12-486 12-488 12-488 12-489 12-492 12-494
12-495 12-497 12-497 12-498 12-502 12-502 12-506 12-507 12-508 #14-613
14-613 14-619 14-620 14-621 14-625 14-625 14-626 14-627 14-628 14-629
14-633 14-633 14-634 14-641 14-641 14-642 14-642 14-643 14-645 14-645
14-648 14-648 14-649 14-650 14-651 14-652 14-656 14-657 14-664 14-664
14-665 14-666 14-668 14-668 14-671 14-673 14-673 14-676 14-677 #16-762
16-762 16-764 16-765 16-770 16-770 16-781 16-781 16-782 16-785 16-786
16-787 #19-922 19-922 19-925 19-926 19-927 19-928 19-929 19-931 19-931
19-938 19-939 19-940 19-947 19-947 19-948 19-949 19-950 19-959 19-959
19-963 19-964 #23-1147 23-1147 23-1150 23-1150 23-1151 23-1152 23-1153 23-1154
23-1156 23-1156 23-1163 23-1164 23-1165 23-1173 23-1174 23-1182 23-1184 23-1184
23-1185 23-1186 23-1187 23-1194 23-1194 23-1195 23-1196 23-1197 23-1205 23-1205
23-1209 23-1210 #25-1334 25-1334 25-1337 25-1337 25-1338 25-1340 25-1341 25-1343
25-1343 25-1348 25-1349 25-1351 25-1351 25-1352 25-1355 25-1356 25-1358 25-1358
25-1359 25-1365 25-1366 25-1368 25-1369 25-1369 25-1370 25-1373 25-1373 25-1375
25-1379 25-1379 25-1380 25-1381 25-1383 25-1384 25-1384 25-1385 25-1388 25-1388
25-1390 25-1393 25-1393 25-1394 25-1396 25-1396 25-1397 25-1402 25-1403 25-1408
25-1408 25-1409 25-1410 25-1414 25-1414 25-1416 25-1416 25-1417 25-1419 25-1420
25-1421 25-1423 25-1424 25-1426 25-1427 25-1429 #27-1539 27-1539 27-1548 27-1549
27-1555 27-1556 27-1560 27-1561 27-1562 27-1566 27-1566 27-1567 27-1568 27-1569
27-1573 27-1573 27-1574 27-1575 27-1576 27-1579 27-1579 27-1582 27-1586 27-1586
27-1587 27-1588 27-1592 27-1593 27-1597 27-1597 27-1598 27-1599 27-1603 27-1603
27-1604 27-1605 27-1608 27-1608 27-1611 27-1614 27-1614 27-1616 27-1616 27-1617
27-1618 27-1621 27-1622 27-1622 27-1625 27-1627 #28-1633 28-1633 28-1634 #29-1641
29-1641 29-1643 29-1643 29-1644 29-1647 29-1647 29-1653 29-1654 29-1657 29-1658
29-1659 #30-1666 30-1666 30-1669 30-1670 30-1674 30-1675 30-1677 30-1677 30-1678
30-1679 30-1684 30-1684 30-1686 30-1687 30-1689 30-1690 30-1693 30-1694 #32-1776
32-1776 32-1779 32-1780 32-1781 32-1785 32-1786 32-1787 32-1788 32-1790 32-1790
32-1791 32-1792 32-1793 32-1794 32-1797 32-1797 32-1800 32-1800 32-1802 32-1803
#34-1893 34-1893 34-1897 34-1897 34-1898 34-1902 34-1902 34-1903 34-1904 34-1906
34-1906 34-1907 34-1909 34-1909 34-1911 34-1916 34-1916 34-1917 34-1918 34-1921
34-1921 34-1922 34-1925 34-1925 34-1926 34-1929 34-1929 34-1932 34-1933 34-1934
34-1934 34-1935 34-1936 34-1938 34-1938 34-1939 34-1942 34-1943 34-1943 34-1944
#36-2043 36-2043 36-2046 36-2046 36-2047 36-2051 36-2051 36-2054 36-2055 36-2055
36-2056 36-2056 36-2057 36-2059 36-2060 36-2062 36-2062 36-2064 36-2065 36-2065
36-2067 36-2067 36-2068 36-2070 36-2070 36-2072 36-2075 36-2080 #39-2177 39-2177
39-2179 39-2179 39-2180 39-2182 39-2184 39-2184 39-2185 39-2186 39-2187 39-2189
39-2191 39-2192 39-2198 39-2200 39-2201 39-2203 39-2203 39-2204 39-2208 39-2209
39-2211 39-2212 39-2214 39-2214 39-2215 39-2217 39-2217 39-2218 39-2222 39-2222
39-2226 39-2227 39-2228 39-2230 39-2230 39-2231 39-2235 39-2237 39-2238 39-2242
39-2243 #41-2342 41-2342 41-2348 41-2349 41-2353 41-2353 41-2354 41-2355 41-2356
41-2360 41-2360 41-2361 41-2368 41-2368 41-2369 41-2369 41-2370 41-2372 41-2372
41-2375 41-2375 41-2376 41-2377 41-2378 41-2382 41-2383 41-2390 41-2390 41-2391
41-2392 41-2394 41-2394 41-2397 41-2398 41-2398 41-2401 41-2402 #43-2512 43-2512
43-2515 43-2516 43-2517 43-2519 43-2519 43-2523 43-2524 43-2530 43-2530 43-2531
43-2532 43-2537 43-2537 43-2541 43-2542 #46-2660 46-2660 46-2663 46-2664 46-2665
46-2667 46-2667 46-2671 46-2672 46-2678 46-2678 46-2679 46-2680 46-2686 46-2686
46-2687 46-2688 46-2693 46-2693 46-2697 46-2698 #48-2784 48-2784 48-2788 48-2788
48-2789 48-2793 48-2793 48-2794 48-2795 48-2799 48-2799 48-2800 48-2801 48-2804
48-2804 48-2805 48-2808 48-2809 48-2809 48-2810 #50-2908 50-2908 50-2911 50-2911
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 24
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
50-2912 50-2914 50-2914 50-2917 50-2918 50-2918 50-2919 50-2919 50-2920 50-2922
50-2923 50-2925 50-2925 50-2927 50-2928 50-2928 50-2930 50-2930 50-2931 50-2933
50-2933 50-2935 50-2936 50-2941
$$GEN2 #8-199 #10-304 10-312 10-313 10-318 10-327 10-339 10-340 10-343 10-360
#12-457 12-482 12-494 #14-613 14-619 14-620 14-626 14-627 14-628 14-649
14-650 14-651 14-656 14-665 #16-762 16-764 #19-922 19-925 19-926 19-927
19-928 19-938 19-939 19-948 19-949 #23-1147 23-1151 23-1152 23-1153 23-1163
23-1164 23-1173 23-1185 23-1186 23-1195 23-1196 #25-1334 25-1340 25-1355 25-1365
25-1368 25-1380 25-1383 25-1402 25-1409 25-1423 #27-1539 27-1555 27-1560 27-1561
27-1567 27-1568 27-1574 27-1575 27-1587 27-1592 27-1598 27-1604 27-1617 #28-1633
#29-1641 #30-1666 30-1674 30-1678 #32-1776 32-1779 32-1780 32-1785 32-1786 32-1787
32-1791 32-1792 32-1793 #34-1893 34-1903 34-1917 34-1935 #36-2043 36-2059 #39-2177
39-2185 39-2186 39-2191 39-2200 39-2211 39-2237 #41-2342 41-2348 41-2354 41-2355
41-2376 41-2377 41-2382 41-2391 #43-2512 43-2515 43-2516 43-2523 43-2531 #46-2660
46-2663 46-2664 46-2671 46-2679 46-2687 #48-2784 48-2794 48-2800 #50-2908 50-2922
$$GNAB #8-199 #10-304 10-312 10-313 10-318 10-327 10-330 10-338 10-339 10-340
10-343 10-349 10-360 10-363 #12-457 12-459 12-462 12-482 12-494 #14-613
14-619 14-620 14-626 14-627 14-628 14-649 14-650 14-651 14-656 14-665
#16-762 16-764 #19-922 19-925 19-926 19-927 19-928 19-938 19-939 19-948
19-949 #23-1147 23-1150 23-1151 23-1152 23-1153 23-1163 23-1164 23-1173 23-1185
23-1186 23-1195 23-1196 #25-1334 25-1340 25-1355 25-1365 25-1368 25-1369 25-1380
25-1383 25-1384 25-1402 25-1409 25-1416 25-1423 #27-1539 27-1548 27-1555 27-1560
27-1561 27-1567 27-1568 27-1574 27-1575 27-1587 27-1592 27-1598 27-1604 27-1617
#28-1633 #29-1641 29-1653 #30-1666 30-1669 30-1674 30-1678 30-1689 #32-1776 32-1779
32-1780 32-1785 32-1786 32-1787 32-1791 32-1792 32-1793 #34-1893 34-1903 34-1906
34-1917 34-1921 34-1935 34-1938 #36-2043 36-2046 36-2059 #39-2177 39-2185 39-2186
39-2191 39-2200 39-2203 39-2211 39-2214 39-2217 39-2230 39-2237 #41-2342 41-2348
41-2354 41-2355 41-2376 41-2377 41-2382 41-2391 #43-2512 43-2515 43-2516 43-2523
43-2531 #46-2660 46-2663 46-2664 46-2671 46-2679 46-2687 #48-2784 48-2794 48-2800
48-2804 #50-2908 50-2911 50-2922
$$GNBT #8-199 #10-304 #10-306 #10-311 #12-457 #12-488 #12-497 #14-613 #14-633 #14-642
#16-762 #16-781 #19-922 #23-1147 #25-1334 #25-1337 #25-1351 #25-1358 #25-1396 #27-1539
#27-1616 #28-1633 #29-1641 #29-1643 #30-1666 #32-1776 #34-1893 #34-1897 #34-1925 #36-2043
#36-2055 #36-2056 #36-2067 #39-2177 #39-2179 #39-2184 #41-2342 #41-2360 #41-2369 #43-2512
#46-2660 #48-2784 #48-2788 #50-2908 #50-2918 #50-2919 #50-2930
$$GNCM #8-199 #10-304 10-306 10-311 10-312 10-313 10-318 10-327 10-330 10-338
10-339 10-340 10-343 10-349 10-360 10-363 #12-457 12-459 12-462 12-482
12-488 12-494 12-497 #14-613 14-619 14-620 14-626 14-627 14-628 14-633
14-642 14-649 14-650 14-651 14-656 14-665 #16-762 16-764 16-781 #19-922
19-925 19-926 19-927 19-928 19-938 19-939 19-948 19-949 #23-1147 23-1150
23-1151 23-1152 23-1153 23-1163 23-1164 23-1173 23-1185 23-1186 23-1195 23-1196
#25-1334 25-1337 25-1340 25-1351 25-1355 25-1358 25-1365 25-1368 25-1369 25-1380
25-1383 25-1384 25-1396 25-1402 25-1409 25-1416 25-1423 #27-1539 27-1548 27-1555
27-1560 27-1561 27-1567 27-1568 27-1574 27-1575 27-1587 27-1592 27-1598 27-1604
27-1616 27-1617 #28-1633 #29-1641 29-1643 29-1653 #30-1666 30-1669 30-1674 30-1678
30-1689 #32-1776 32-1779 32-1780 32-1785 32-1786 32-1787 32-1791 32-1792 32-1793
#34-1893 34-1897 34-1903 34-1906 34-1917 34-1921 34-1925 34-1935 34-1938 #36-2043
36-2046 36-2055 36-2056 36-2059 36-2067 #39-2177 39-2179 39-2184 39-2185 39-2186
39-2191 39-2200 39-2203 39-2211 39-2214 39-2217 39-2230 39-2237 #41-2342 41-2348
41-2354 41-2355 41-2360 41-2369 41-2376 41-2377 41-2382 41-2391 #43-2512 43-2515
43-2516 43-2523 43-2531 #46-2660 46-2663 46-2664 46-2671 46-2679 46-2687 #48-2784
48-2788 48-2794 48-2800 48-2804 #50-2908 50-2911 50-2918 50-2919 50-2922 50-2930
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 25
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
$$INMC #8-199 #8-199 #10-304 #10-304 #12-457 #12-457 #14-613 #14-613 #16-762 #16-762
#19-922 #19-922 #23-1147 #23-1147 #25-1334 #25-1334 #27-1539 #27-1539 #28-1633 #28-1633
#29-1641 #29-1641 #30-1666 #30-1666 #32-1776 #32-1776 #34-1893 #34-1893 #36-2043 #36-2043
#39-2177 #39-2177 #41-2342 #41-2342 #43-2512 #43-2512 #46-2660 #46-2660 #48-2784 #48-2784
#50-2908 #50-2908
$$INSY #8-199 #8-199 #10-304 #10-304 #12-457 #12-457 #14-613 #14-613 #16-762 #16-762
#19-922 #19-922 #23-1147 #23-1147 #25-1334 #25-1334 #27-1539 #27-1539 #28-1633 #28-1633
#29-1641 #29-1641 #30-1666 #30-1666 #32-1776 #32-1776 #34-1893 #34-1893 #36-2043 #36-2043
#39-2177 #39-2177 #41-2342 #41-2342 #43-2512 #43-2512 #46-2660 #46-2660 #48-2784 #48-2784
#50-2908 #50-2908
$$LAB #8-199 #10-304 10-307 10-309 10-314 10-316 10-319 10-325 10-328 10-331
10-335 10-336 10-341 10-344 10-347 10-350 10-354 10-357 10-358 10-361
10-364 10-369 10-373 10-374 #12-457 12-460 12-463 12-475 12-476 12-480
12-483 12-486 12-489 12-492 12-495 12-498 12-502 12-506 12-507 #14-613
14-621 14-625 14-629 14-634 14-641 14-643 14-645 14-645 14-648 14-652
14-657 14-664 14-666 14-668 14-671 14-673 14-676 #16-762 16-765 16-770
16-782 16-785 16-786 #19-922 19-929 19-931 19-940 19-947 19-950 19-959
19-959 19-963 #23-1147 23-1154 23-1156 23-1165 23-1174 23-1182 23-1184 23-1187
23-1194 23-1197 23-1205 23-1205 23-1209 #25-1334 25-1338 25-1341 25-1343 25-1348
25-1349 25-1352 25-1356 25-1359 25-1366 25-1370 25-1373 25-1375 25-1379 25-1381
25-1385 25-1388 25-1390 25-1393 25-1393 25-1394 25-1397 25-1403 25-1408 25-1410
25-1414 25-1414 25-1417 25-1419 25-1420 25-1421 25-1424 25-1426 25-1427 #27-1539
27-1549 27-1556 27-1562 27-1566 27-1569 27-1573 27-1576 27-1579 27-1582 27-1586
27-1588 27-1593 27-1597 27-1599 27-1603 27-1605 27-1608 27-1611 27-1614 27-1614
27-1618 27-1621 27-1622 27-1625 #28-1633 #29-1641 29-1644 29-1647 29-1654 29-1657
29-1658 #30-1666 30-1670 30-1675 30-1677 30-1679 30-1684 30-1686 30-1687 30-1690
30-1693 #32-1776 32-1781 32-1788 32-1790 32-1794 32-1797 32-1797 32-1800 32-1802
#34-1893 34-1898 34-1902 34-1904 34-1907 34-1909 34-1911 34-1916 34-1918 34-1922
34-1926 34-1929 34-1932 34-1933 34-1934 34-1936 34-1939 34-1942 34-1943 34-1943
#36-2043 36-2047 36-2051 36-2054 36-2057 36-2060 36-2062 36-2064 36-2065 36-2068
36-2070 36-2072 36-2075 #39-2177 39-2180 39-2182 39-2187 39-2189 39-2192 39-2198
39-2201 39-2204 39-2208 39-2209 39-2212 39-2215 39-2218 39-2222 39-2226 39-2227
39-2228 39-2231 39-2235 39-2238 39-2242 #41-2342 41-2349 41-2353 41-2356 41-2361
41-2368 41-2370 41-2372 41-2372 41-2375 41-2378 41-2383 41-2390 41-2392 41-2394
41-2397 41-2398 41-2401 #43-2512 43-2517 43-2519 43-2524 43-2530 43-2532 43-2537
43-2537 43-2541 #46-2660 46-2665 46-2667 46-2672 46-2678 46-2680 46-2686 46-2688
46-2693 46-2693 46-2697 #48-2784 48-2789 48-2793 48-2795 48-2799 48-2801 48-2805
48-2808 48-2809 48-2809 #50-2908 50-2912 50-2914 50-2917 50-2920 50-2923 50-2925
50-2927 50-2928 50-2931 50-2933 50-2935 50-2936
$$POP #8-199 #10-304 #10-309 #10-309 #10-316 #10-316 #10-325 #10-325 #10-335 #10-335
#10-336 #10-336 #10-347 #10-347 #10-357 #10-357 #10-358 #10-358 #10-373 #10-373
#10-374 #10-374 #12-457 #12-475 #12-475 #12-480 #12-480 #12-486 #12-486 #12-492
#12-492 #12-506 #12-506 #12-507 #12-507 #14-613 #14-645 #14-645 #14-645 #14-671
#14-671 #14-671 #14-676 #14-676 #14-676 #16-762 #16-785 #16-785 #16-786 #16-786
#19-922 #19-959 #19-959 #19-959 #19-963 #19-963 #23-1147 #23-1182 #23-1182 #23-1205
#23-1205 #23-1205 #23-1209 #23-1209 #25-1334 #25-1348 #25-1348 #25-1349 #25-1349 #25-1375
#25-1375 #25-1390 #25-1390 #25-1393 #25-1393 #25-1393 #25-1394 #25-1394 #25-1414 #25-1414
#25-1414 #25-1419 #25-1419 #25-1420 #25-1420 #25-1421 #25-1421 #25-1426 #25-1426 #25-1427
#25-1427 #27-1539 #27-1582 #27-1582 #27-1582 #27-1611 #27-1611 #27-1611 #27-1614 #27-1614
#27-1614 #27-1621 #27-1621 #27-1625 #27-1625 #28-1633 #29-1641 #29-1657 #29-1657 #29-1658
#29-1658 #30-1666 #30-1686 #30-1686 #30-1686 #30-1687 #30-1687 #30-1693 #30-1693 #32-1776
#32-1797 #32-1797 #32-1797 #32-1802 #32-1802 #34-1893 #34-1911 #34-1911 #34-1932 #34-1932
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 26
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#34-1933 #34-1933 #34-1942 #34-1942 #34-1943 #34-1943 #34-1943 #36-2043 #36-2064 #36-2064
#36-2065 #36-2065 #36-2072 #36-2072 #36-2075 #36-2075 #39-2177 #39-2182 #39-2182 #39-2189
#39-2189 #39-2198 #39-2198 #39-2208 #39-2208 #39-2209 #39-2209 #39-2226 #39-2226 #39-2227
#39-2227 #39-2228 #39-2228 #39-2235 #39-2235 #39-2242 #39-2242 #41-2342 #41-2372 #41-2372
#41-2372 #41-2397 #41-2397 #41-2397 #41-2401 #41-2401 #41-2401 #43-2512 #43-2537 #43-2537
#43-2537 #43-2541 #43-2541 #46-2660 #46-2693 #46-2693 #46-2693 #46-2697 #46-2697 #48-2784
#48-2808 #48-2808 #48-2809 #48-2809 #48-2809 #50-2908 #50-2927 #50-2927 #50-2928 #50-2928
#50-2935 #50-2935 #50-2936 #50-2936
$$POPI #8-199 #10-304 #10-309 #10-309 #10-316 #10-316 #10-325 #10-325 #10-335 #10-335
#10-336 #10-336 #10-347 #10-347 #10-357 #10-357 #10-358 #10-358 #10-373 #10-373
#10-374 #10-374 #12-457 #12-475 #12-475 #12-480 #12-480 #12-486 #12-486 #12-492
#12-492 #12-506 #12-506 #12-507 #12-507 #14-613 #14-645 #14-645 #14-645 #14-671
#14-671 #14-671 #14-676 #14-676 #14-676 #16-762 #16-785 #16-785 #16-786 #16-786
#19-922 #19-959 #19-959 #19-959 #19-963 #19-963 #23-1147 #23-1182 #23-1182 #23-1205
#23-1205 #23-1205 #23-1209 #23-1209 #25-1334 #25-1348 #25-1348 #25-1349 #25-1349 #25-1375
#25-1375 #25-1390 #25-1390 #25-1393 #25-1393 #25-1393 #25-1394 #25-1394 #25-1414 #25-1414
#25-1414 #25-1419 #25-1419 #25-1420 #25-1420 #25-1421 #25-1421 #25-1426 #25-1426 #25-1427
#25-1427 #27-1539 #27-1582 #27-1582 #27-1582 #27-1611 #27-1611 #27-1611 #27-1614 #27-1614
#27-1614 #27-1621 #27-1621 #27-1625 #27-1625 #28-1633 #29-1641 #29-1657 #29-1657 #29-1658
#29-1658 #30-1666 #30-1686 #30-1686 #30-1686 #30-1687 #30-1687 #30-1693 #30-1693 #32-1776
#32-1797 #32-1797 #32-1797 #32-1802 #32-1802 #34-1893 #34-1911 #34-1911 #34-1932 #34-1932
#34-1933 #34-1933 #34-1942 #34-1942 #34-1943 #34-1943 #34-1943 #36-2043 #36-2064 #36-2064
#36-2065 #36-2065 #36-2072 #36-2072 #36-2075 #36-2075 #39-2177 #39-2182 #39-2182 #39-2189
#39-2189 #39-2198 #39-2198 #39-2208 #39-2208 #39-2209 #39-2209 #39-2226 #39-2226 #39-2227
#39-2227 #39-2228 #39-2228 #39-2235 #39-2235 #39-2242 #39-2242 #41-2342 #41-2372 #41-2372
#41-2372 #41-2397 #41-2397 #41-2397 #41-2401 #41-2401 #41-2401 #43-2512 #43-2537 #43-2537
#43-2537 #43-2541 #43-2541 #46-2660 #46-2693 #46-2693 #46-2693 #46-2697 #46-2697 #48-2784
#48-2808 #48-2808 #48-2809 #48-2809 #48-2809 #50-2908 #50-2927 #50-2927 #50-2928 #50-2928
#50-2935 #50-2935 #50-2936 #50-2936
$$PUSH #8-199 #10-304 #10-305 #10-305 #10-310 #10-310 #10-317 #10-317 #10-326 #10-326
#10-329 #10-329 #10-337 #10-337 #10-342 #10-342 #10-348 #10-348 #10-359 #10-359
#10-362 #10-362 #12-457 #12-458 #12-458 #12-461 #12-461 #12-481 #12-481 #12-487
#12-487 #12-493 #12-493 #12-496 #12-496 #14-613 #14-615 #14-615 #14-615 #14-630
#14-630 #14-630 #14-653 #14-653 #14-653 #16-762 #16-763 #16-763 #16-780 #16-780
#19-922 #19-924 #19-924 #19-936 #19-936 #19-936 #23-1147 #23-1149 #23-1149 #23-1161
#23-1161 #23-1161 #23-1172 #23-1172 #25-1334 #25-1336 #25-1336 #25-1339 #25-1339 #25-1350
#25-1350 #25-1354 #25-1354 #25-1357 #25-1357 #25-1361 #25-1361 #25-1361 #25-1367 #25-1367
#25-1382 #25-1382 #25-1395 #25-1395 #25-1398 #25-1398 #25-1398 #25-1415 #25-1415 #25-1422
#25-1422 #27-1539 #27-1547 #27-1547 #27-1551 #27-1551 #27-1551 #27-1557 #27-1557 #27-1557
#27-1590 #27-1590 #27-1590 #27-1615 #27-1615 #28-1633 #29-1641 #29-1642 #29-1642 #29-1652
#29-1652 #30-1666 #30-1668 #30-1668 #30-1672 #30-1672 #30-1672 #30-1688 #30-1688 #32-1776
#32-1778 #32-1778 #32-1783 #32-1783 #32-1783 #34-1893 #34-1894 #34-1894 #34-1894 #34-1905
#34-1905 #34-1920 #34-1920 #34-1924 #34-1924 #34-1937 #34-1937 #36-2043 #36-2045 #36-2045
#36-2054 #36-2054 #36-2058 #36-2058 #36-2066 #36-2066 #39-2177 #39-2178 #39-2178 #39-2183
#39-2183 #39-2190 #39-2190 #39-2199 #39-2199 #39-2202 #39-2202 #39-2210 #39-2210 #39-2213
#39-2213 #39-2216 #39-2216 #39-2229 #39-2229 #39-2236 #39-2236 #41-2342 #41-2344 #41-2344
#41-2344 #41-2357 #41-2357 #41-2357 #41-2379 #41-2379 #41-2379 #43-2512 #43-2514 #43-2514
#43-2521 #43-2521 #43-2521 #46-2660 #46-2662 #46-2662 #46-2669 #46-2669 #46-2669 #48-2784
#48-2785 #48-2785 #48-2785 #48-2803 #48-2803 #50-2908 #50-2910 #50-2910 #50-2917 #50-2917
#50-2921 #50-2921 #50-2929 #50-2929
$$STSM #8-199 #10-304 #10-305 #10-305 #10-310 #10-310 #10-317 #10-317 #10-326 #10-326
#10-329 #10-329 #10-337 #10-337 #10-342 #10-342 #10-348 #10-348 #10-359 #10-359
RIMAIN CREATED BY MACRO ON 13-OCT-79 AT 11:03 PAGE 27
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#10-362 #10-362 #12-457 #12-458 #12-458 #12-461 #12-461 #12-481 #12-481 #12-487
#12-487 #12-493 #12-493 #12-496 #12-496 #14-613 #14-615 #14-615 #14-615 #14-630
#14-630 #14-630 #14-653 #14-653 #14-653 #16-762 #16-763 #16-763 #16-780 #16-780
#19-922 #19-924 #19-924 #19-936 #19-936 #19-936 #23-1147 #23-1149 #23-1149 #23-1161
#23-1161 #23-1161 #23-1172 #23-1172 #25-1334 #25-1336 #25-1336 #25-1339 #25-1339 #25-1350
#25-1350 #25-1354 #25-1354 #25-1357 #25-1357 #25-1361 #25-1361 #25-1361 #25-1367 #25-1367
#25-1382 #25-1382 #25-1395 #25-1395 #25-1398 #25-1398 #25-1398 #25-1415 #25-1415 #25-1422
#25-1422 #27-1539 #27-1547 #27-1547 #27-1551 #27-1551 #27-1551 #27-1557 #27-1557 #27-1557
#27-1590 #27-1590 #27-1590 #27-1615 #27-1615 #28-1633 #29-1641 #29-1642 #29-1642 #29-1652
#29-1652 #30-1666 #30-1668 #30-1668 #30-1672 #30-1672 #30-1672 #30-1688 #30-1688 #32-1776
#32-1778 #32-1778 #32-1783 #32-1783 #32-1783 #34-1893 #34-1894 #34-1894 #34-1894 #34-1905
#34-1905 #34-1920 #34-1920 #34-1924 #34-1924 #34-1937 #34-1937 #36-2043 #36-2045 #36-2045
#36-2054 #36-2054 #36-2058 #36-2058 #36-2066 #36-2066 #39-2177 #39-2178 #39-2178 #39-2183
#39-2183 #39-2190 #39-2190 #39-2199 #39-2199 #39-2202 #39-2202 #39-2210 #39-2210 #39-2213
#39-2213 #39-2216 #39-2216 #39-2229 #39-2229 #39-2236 #39-2236 #41-2342 #41-2344 #41-2344
#41-2344 #41-2357 #41-2357 #41-2357 #41-2379 #41-2379 #41-2379 #43-2512 #43-2514 #43-2514
#43-2521 #43-2521 #43-2521 #46-2660 #46-2662 #46-2662 #46-2669 #46-2669 #46-2669 #48-2784
#48-2785 #48-2785 #48-2785 #48-2803 #48-2803 #50-2908 #50-2910 #50-2910 #50-2917 #50-2917
#50-2921 #50-2921 #50-2929 #50-2929
$$SYS #8-199 #10-304 #12-457 #14-613 #16-762 #19-922 #23-1147 #25-1334 #27-1539 #28-1633
#29-1641 #30-1666 #32-1776 #34-1893 #36-2043 #39-2177 #41-2342 #43-2512 #46-2660 #48-2784
#50-2908
$$TRCE #8-199 8-199 8-204 #10-304 10-304 10-375 #12-457 12-457 12-508 #14-613
14-613 14-677 #16-762 16-762 16-787 #19-922 19-922 19-964 #23-1147 23-1147
23-1210 #25-1334 25-1334 25-1429 #27-1539 27-1539 27-1627 #28-1633 28-1633 28-1634
#29-1641 29-1641 29-1659 #30-1666 30-1666 30-1694 #32-1776 32-1776 32-1803 #34-1893
34-1893 34-1944 #36-2043 36-2043 36-2080 #39-2177 39-2177 39-2243 #41-2342 41-2342
41-2402 #43-2512 43-2512 43-2542 #46-2660 46-2660 46-2698 #48-2784 48-2784 48-2810
#50-2908 50-2908 50-2941