Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/memain.list
There are no other files named memain.list in the archive.
MEMAIN MACRO M1110 13-OCT-79 12:13
TABLE OF CONTENTS
8- 71 MEABRT
9- 132 MEFINI
11- 236 MEINIT
13- 323 MEMAIN
15- 421 MEPARS
17- 549 MEPROC
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 3
1 .TITLE MEMAIN
2 .NLIST CND
3 .IDENT /V01.01/
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 MEMORY SERVICE MAIN PROCESSOR
27 ;
28 ;
29 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
30 ;
31 ; IDENT HISTORY:
32 ;
33 ; 1.00 9-AUG-78
34 ; VERSION 2.0 RELEASE
35 ;
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 4
37 ;
38 ; +-------------------------------------------------+
39 ; I I
40 ; I M E M O R Y S E R V I C E I
41 ; I - - - - - - - - - - - - - - I
42 ; I I
43 ; +-------------------------------------------------+
44 ;
45 ; FUNCTION:
46 ;
47 ; PROCESSOR FOR NICE EXAMINE / DEPOSIT MEMORY FUNCTIONS
48 ;
49 ; REQUIREMENTS:
50 ;
51 ; SYSTEM CONFIGURATION SYMBOLS:
52 ;
53 ; R$$11M - DEFINED IF ASSEMBLING FOR AN RSX-11M/S SYSTEM
54 ; R$$11D - DEFINED IF ASSEMBLING FOR AN RSX-11D SYSTEM
55 ; I$$AS - DEFINED IF ASSEMBLING FOR AN IAS SYSTEM
56 ;
57 ; NICE/NCP SET CONFIGURATION SYMBOLS:
58 ;
59 ; F$DPOS - DEPOSIT MEMORY
60 ; F$EXAM - EXAMINE MEMORY
61 ;
62 ; EXTERNAL MACROS
63 ;
64 .MCALL PROC,PROCLC
65 ;
66 ; DEFINE CONFIGURATION CONTROL SYMBOLS
67 ;
68 000000 CONFIG
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 5
MEABRT
71 .SBTTL MEABRT
72 ;
73 ;======================================================================;
74 ;++
75 ; +-------------------------------------------------+
76 ; I I
77 ; I M E A B R T I
78 ; I - - - - - - I
79 ; I I
80 ; +-------------------------------------------------+
81 ;
82 ; FUNCTION:
83 ;
84 ; MEMORY SERVICE MODULE TO ABORT PROCESSING
85 ;
86 ; INPUT:
87 ;
88 ; R0 - NICE RESPONSE MESSAGE RETURN CODE
89 ; R4 - ADDRESS OF CONTEXT BLOCK
90 ; R5 - ADDRESS OF CONTROL BLOCK
91 ;
92 ; OUTPUT:
93 ;
94 ; @R4 - UPDATED CONTEXT
95 ; RETCOD - NICE RETURN CODE
96 ; STATE - FINISH STATE VALUE
97 ; @R5 - UPDATED CONTROL BLOCK
98 ; C.FUNC - ZERO
99 ;
100 ; REQUIREMENTS:
101 ;
102 ; MEMORY SERVICE SYMBOLS:
103 ;
104 ; FINISH - FINISH STATE VALUE
105 ; RETCOD - OFFSET OF NICE RETURN CODE IN CONTEXT
106 ; STATE - OFFSET OF PROCESSING STATE IN CONTEXT
107 ;
108 ; CONTROL BLOCK SYMBOLS:
109 ;
110 ; C.FUNC - OFFSET OF FUNCTION CODE
111 ;
112 ;--
113 ;======================================================================;
114 ;
115 ; EXTERNAL MACROS
116 ;
117 .MCALL MEDF,CONDF
118 ;
119 ; DEFINE EXTERNAL SYMBOLS
120 ;
121 000000 MEDF ;MEMORY SYMBOLS
122 000000 CONDF ;CONTROL BLOCK SYMBOLS
123 ;
124 ; LOCAL PROCEDURE BODY
125 ;
126 000000 PROCLC MEABRT
127 000000 110064 000011 MOVB R0,RETCOD(R4) ;SET RETURN CODE FOR LATER
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 5-1
MEABRT
128 000004 105065 000006 CLRB C.FUNC(R5) ;INITIALIZE FOR NEXT STEP
129 000010 112764 000003 000010 MOVB #FINISH,STATE(R4) ;START THE TERMINATION
130 000016 ENDPROC
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 6
MEFINI
132 .SBTTL MEFINI
133 ;
134 ;======================================================================;
135 ;++
136 ; +-------------------------------------------------+
137 ; I I
138 ; I M E F I N I I
139 ; I - - - - - - I
140 ; I I
141 ; +-------------------------------------------------+
142 ;
143 ; FUNCTION:
144 ;
145 ; MEMORY SERVICES MODULE TO FINISH PROCESSING
146 ;
147 ; INPUT:
148 ;
149 ; R4 - ADDRESS OF CONTEXT BLOCK
150 ; RETCOD - NICE RETURN CODE
151 ; MCNT - COUNT OF BYTES EXAMINED
152 ; R5 - ADDRESS OF CONTROL BLOCK
153 ; C.ADDR - ADDRESS OF COMMAND MESSAGE BUFFER
154 ; C.CTXT - ADDRESS OF CONTEXT BLOCK
155 ; C.FUNC - FUNCTION JUST COMPLETED
156 ; C.PROC - PROCESSOR NUMBER: #P$DPOS OR #P$EXAM
157 ;
158 ; OUTPUT:
159 ;
160 ; @R5 - UPDATED CONTROL BLOCK
161 ; C.ADDR - ON FINAL RETURN (RELEASE BUFFER REQUEST), ADDRESS OF
162 ; CONTEXT BLOCK
163 ; C.CTXT - ON FINAL RETURN, ZERO
164 ; C.FUNC - FUNCTION TO PERFORM
165 ; C.LEN - ON TRANSMIT MESSAGE REQUEST, LENGTH OF MESSAGE
166 ;
167 ; REQUIREMENTS:
168 ;
169 ; CONTROL BLOCK SYMBOLS:
170 ;
171 ; C.ADDR - OFFSET OF ADDRESS FIELD
172 ; C.CTXT - OFFSET OF CONTEXT FIELD
173 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
174 ; C.PROC - PROCESS FUNCTION CODE
175 ; C.LEN - OFFSET OF LENGTH FIELD
176 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
177 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
178 ;
179 ; PROCESSOR SYMBOLS:
180 ;
181 ; P$EXAM - EXAMINE MEMORY
182 ;
183 ; MEMORY SERVICE SYMBOLS:
184 ;
185 ; RETCOD - OFFSET OF NICE RETURN CODE IN CONTEXT
186 ; MCNT - OFFSET TO COUNTS OF BYTES EXAMINED
187 ;
188 ;--
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 6-1
MEFINI
189 ;======================================================================;
190 ;
191 ;
192 ; EXTERNAL MACROS
193 ;
194 .MCALL MEDF,PRDF,CONDF
195 ;
196 ; DEFINE EXTERNAL SYMBOLS
197 ;
198 000020 CONDF ;CONTROL BLOCK SYMBOLS
199 000020 PRDF ;PROCESOR SYMBOLS
200 000020 MEDF ;MEMORY SYMBOLS
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 7
MEFINI
202 ;
203 ; LOCAL PROCEDURE BODY
204 ;
205 000020 PROCLC MEFINI
206 000020 IF ; FUNCTION CODE = 0
207 000020 FALSEB SET C.FUNC(R5)
208 000026 THEN
209 000026 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE BUFFER
210 000032 116422 000011 MOVB RETCOD(R4),(R2)+ ;PUT RETURN CODE IN MESSAGE
211 000036 IF ; SUCCESSFUL RETURN CODE AND THIS IS AN EXAMINE
212 000036 FALSE MI
213 000040 FALSEB NE C.PROC(R5),#P$EXAM
214 000050 THEN ; INCLUDE COUNT AND DATA IN MESSAGE
215 000050 116422 000006 MOVB MCNT(R4),(R2)+ ;INSERT COUNT OF DATA RETURNED
216 000054 066402 000006 ADD MCNT(R4),R2 ;AND BYPASS THAT DATA
217 000060 ENDIF
218 000060 166502 000014 SUB C.ADDR(R5),R2 ;COMPUTE LENGTH OF MESSAGE
219 000064 010265 000012 MOV R2,C.LEN(R5) ;SET LENGTH OF MESSAGE
220 000070 112765 177725 000006 MOVB #-C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
221 000076 ENDIF
222 000076 IF ; FUNCTION CODE = TRANSMIT MESSAGE
223 000076 FALSEB NE C.FUNC(R5),#C$TRMS
224 000106 THEN
225 000106 112765 177777 000006 MOVB #-C$RLBF,C.FUNC(R5) ;RELEASE THE MESSAGE BUFFER
226 000114 ENDIF
227 000114 IF ; FUNCTION CODE = RELEASE BUFFER
228 000114 FALSEB NE C.FUNC(R5),#C$RLBF
229 000124 THEN
230 000124 016565 000004 000014 MOV C.CTXT(R5),C.ADDR(R5) ;SET UP TO RELEASE CONTEXT BLOCK
231 000132 005065 000004 CLR C.CTXT(R5) ;NO MORE CONTEXT POINTER
232 000136 105465 000006 NEGB C.FUNC(R5) ;SET FUNCTION CODE TO RELEASE BUFFER
233 000142 ENDIF
234 000142 ENDPROC
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 8
MEINIT
236 .SBTTL MEINIT
237 ;
238 ;======================================================================;
239 ;++
240 ; +-------------------------------------------------+
241 ; I I
242 ; I M E I N I T I
243 ; I - - - - - - I
244 ; I I
245 ; +-------------------------------------------------+
246 ;
247 ; FUNCTION:
248 ;
249 ; MEMORY SERVICE INITIALIZATION MODULE
250 ;
251 ; INPUT:
252 ;
253 ; R5 - ADDRESS OF CONTROL BLOCK
254 ; C.ADDR - ON ALLOCATE BUFFER COMPLETION, ADDRESS OF BUFFER
255 ; C.FUNC - FUNCTION JUST PERFORMED
256 ; C.SAVE - ON ALLOCATE BUFFER COMPLETION, SAVED FIELDS
257 ; OTHER INPUTS - AS SPECIFIED FOR MEPARS
258 ;
259 ; OUTPUT:
260 ;
261 ; R4 - ADDRESS OF CONTEXT BLOCK
262 ; OTHER FIELDS - ZERO OR AS SPECIFIED FOR MEPARS
263 ; @R5 - UPDATED CONTROL BLOCK
264 ; C.CTXT - ON FINAL RETURN, ADDRESS OF CONTEXT BLOCK
265 ; C.FUNC - FUNCTION TO PERFORM
266 ; C.LEN - ON ALLOCATE BUFFER REQUEST, LENGTH OF BUFFER
267 ; C.SAVE - ON ALLOCATE BUFFER REQUEST, SAVED FIELDS
268 ; OTHER OUTPUTS - AS SPECIFIED FOR MEPARS
269 ;
270 ; REQUIREMENTS:
271 ;
272 ; CONTROL BLOCK SYMBOLS:
273 ;
274 ; C.ADDR - OFFSET OF ADDRESS FIELD
275 ; C.CTXT - OFFSET OF CONTEXT FIELD
276 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
277 ; C.LEN - OFFSET OF LENGTH FIELD
278 ; C.SAVE - OFFSET OF SAVE AREA
279 ; C$ALBF - ALLOCATE BUFFER FUNCTION CODE
280 ; C$PROC - PROCESS FUNCTION CODE
281 ;
282 ; MEMORY SERVICE SYMBOLS:
283 ;
284 ; CTXTLN - LENGTH OF CONTEXT BLOCK
285 ;
286 ;--
287 ;======================================================================;
288 ;
289 ;
290 ; EXTERNAL MACROS
291 ;
292 .MCALL CONDF,MEDF
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 8-1
MEINIT
293 ;
294 ; DEFINE EXTERNAL SYMBOLS
295 ;
296 000144 CONDF ;CONTROL BLOCK SYMBOLS
297 000144 MEDF ;MEMORY SYMBOLS
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 9
MEINIT
299 ;
300 ; LOCAL PROCEDURE BODY
301 ;
302 000144 PROCLC MEINIT
303 000144 IF ; CONTROL BLOCK FUNCTION CODE = PROCESS JOB
304 000144 FALSEB NE C.FUNC(R5),#C$PROC
305 000154 THEN
306 000154 016565 000012 000022 MOV C.LEN(R5),C.SAVE(R5) ;SAVE LENGTH OF MESSAGE
307 000162 016565 000014 000024 MOV C.ADDR(R5),C.SAVE+2(R5) ;SAVE ADDRESS OF MESSAGE
308 000170 012765 000012 000012 MOV #CTXTLN,C.LEN(R5) ;SET LENGTH OF CONTEXT BLOCK
309 000176 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5) ;ALLOCATE CONTEXT BLOCK
310 000204 ELSE ; MUST BE ALLOCATE MEMORY BUFFER
311 000206 016504 000014 MOV C.ADDR(R5),R4 ;GET CONTEXT BLOCK ADDRESS
312 000212 010465 000004 MOV R4,C.CTXT(R5) ;AND PUT IT IN CONTROL BLOCK
313 000216 005000 CLR R0 ;SET UP A ZERO TO SPRAY
314 000220 010401 MOV R4,R1 ;START AT BEGINNING OF CONTEXT
315 000222 012702 000012 MOV #CTXTLN,R2 ;NUMBER OF BYTES TO SPRAY
316 000226 CALL SPRAY ;ZERO THE CONTEXT BLOCK
317 000232 016565 000022 000012 MOV C.SAVE(R5),C.LEN(R5) ;RESTORE SAVED LENGTH
318 000240 016565 000024 000014 MOV C.SAVE+2(R5),C.ADDR(R5) ;RESTORE SAVED MESSAGE ADDRESS
319 000246 CALL MEPARS ;PARSE MESSAGE TO CONTEXT
320 000252 ENDIF
321 000252 ENDPROC
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 10
MEMAIN
323 .SBTTL MEMAIN
324 ;
325 ;======================================================================;
326 ;++
327 ; +-------------------------------------------------+
328 ; I I
329 ; I M E M A I N I
330 ; I - - - - - - I
331 ; I I
332 ; +-------------------------------------------------+
333 ;
334 ; FUNCTION:
335 ;
336 ; PROCESSOR FOR EXAMINE AND DEPOSIT MEMORY
337 ;
338 ; INPUT:
339 ;
340 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING SET
341 ; C.FUNC - FUNCTION CODE: #C$PROC
342 ; C.ADDR - ADDRESS OF ARGUMENT BLOCK
343 ; C.LEN - LENGTH OF NICE MESSAGE
344 ;
345 ; OUTPUT:
346 ;
347 ; C-BIT - CLEAR
348 ; @R5 - UPDATED CONTROL BLOCK
349 ; C.RET - RETURN CODE
350 ;
351 ; REQUIREMENTS:
352 ;
353 ; CONTROL BLOCK SYMBOLS:
354 ;
355 ; C.FUNC - OFFSET OF FUNCTION CODE
356 ; C.PROC - PROCESS FUNCTION CODE
357 ; C.ADDR - OFFSET OF ADDRESS FIELD
358 ; C.CTXT - OFFSET OF PROCESSOR CONTEXT DATA POINTER
359 ;
360 ; PROCESSOR SYMBOLS:
361 ;
362 ; P$GCTM - GET COMMAND
363 ;
364 ; MEMORY SERVICE SYMBOLS:
365 ;
366 ; STATE - CURRENT PROCESSOR STATE
367 ; PROC - PROCESS MESSAGE PROCESSER STATE
368 ; FINISH - PROCESSER STATE TO FINISH UP
369 ;
370 ;--
371 ;======================================================================;
372 ;
373 ; EXTERNAL MACROS
374 ;
375 .MCALL CONDF,MEDF
376 ;
377 ; DEFINE EXTERNAL SYMBOLS
378 ;
379 000254 CONDF ;CONTROL BLOCK SYMBOLS
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 10-1
MEMAIN
380 000254 MEDF ;MEMORY SERVICE SYMBOLS
381 000254 PRDF ;PROCESSOR SYMBOLS
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 11
MEMAIN
383 ;
384 ; PROCEDURE BODY
385 ;
386 000254 PROC MEMAIN
387 000254 016504 000004 MOV C.CTXT(R5),R4 ;GET CONTEXT POINTER
388 000260 IF ; CONTEXT POINTER = 0
389 000260 FALSE SET R4
390 000264 THEN
391 000264 IF ; FUNCTION CODE <> RELEASE MEMORY BUFFER
392 000264 FALSEB EQ C.FUNC(R5),#C$RLBF
393 000274 THEN
394 000274 CALL MEINIT ;INITIALIZE
395 000300 ELSE ; MUST HAVE JUST RELEASED CONTEXT, ALL DONE!
396 000302 112765 000001 000007 MOVB #P$GTCM,C.PROC(R5) ;PASS THIS BACK FROM WHENCE IT CAME
397 000310 112765 000200 000006 MOVB #C$PROC,C.FUNC(R5) ;FIX UP FUNCTION CODE
398 000316 012765 177777 000004 MOV #-1,C.CTXT(R5) ;SIGNAL COMPLETE
399 000324 005004 CLR R4 ;MAKE SURE NOBODY ELSE IN HERE RUNS
400 000326 ENDIF
401 000326 ENDIF
402 000326 IF ; CONTEXT POINTER <> 0
403 000326 FALSE CLEAR R4
404 000332 THEN
405 000332 WHILE ; STATE = PROCESS AND FUNCTION CODE >= 0
406 000332 FALSEB NE STATE(R4),#PROC
407 000342 FALSEB LT C.FUNC(R5)
408 000350 DO
409 000350 CALL MEPROC ;PROCESS A SET
410 000354 ENDWHILE
411 000356 IF ; STATE = FINISH UP
412 000356 FALSEB NE STATE(R4),#FINISH
413 000366 THEN
414 000366 CALL MEFINI ;CLEAN UP
415 000372 ENDIF
416 000372 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
417 000376 ENDIF
418 000376 000241 CLC ;FOLLOWING THE RULES...
419 000400 ENDPROC
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 12
MEPARS
421 .SBTTL MEPARS
422 ;
423 ;======================================================================;
424 ;++
425 ; +-------------------------------------------------+
426 ; I I
427 ; I M E P A R S I
428 ; I - - - - - - I
429 ; I I
430 ; +-------------------------------------------------+
431 ;
432 ; FUNCTION:
433 ;
434 ; MEMORY SERVICE MODULE TO PARSE THE NICE COMMAND MESSAGE
435 ;
436 ; INPUT:
437 ;
438 ; R4 - ADDRESS OF CONTEXT BLOCK
439 ; R5 - ADDRESS OF CONTROL BLOCK
440 ; C.ADDR - ADDRESS OF MESSAGE
441 ; C.LEN - LENGTH OF MESSAGE
442 ;
443 ; OUTPUT:
444 ;
445 ; @R4 - UPDATED CONTEXT BLOCK
446 ; OPTION - PROCESSING INDEX FOR NICE SET OPTION
447 ; STATE - IF SUCCESSFUL, SET UP STATE VALUE
448 ; @R5 - UPDATED CONTROL BLOCK
449 ; C.FUNC - IF SUCCESSFUL, ZERO
450 ; OTHER OUTPUTS - AS DESCRIBED FOR MEABRT
451 ;
452 ; REQUIREMENTS:
453 ;
454 ; SET PARAMETER SYMBOLS:
455 ;
456 ; STATE - OFFSET OF PROCESSING STATE IN CONTEXT
457 ;
458 ; MEMORY SERVICE SYMBOLS:
459 ;
460 ; MPRM - OFFSET TO ADDRESS OF 4 BYTE PHYSICAL ADDRESS
461 ; MCNT - OFFSET TO COUNT OF BYTES TO EXAMINE OR DEPOSIT
462 ; MDAT - OFFSET TO DEPOSIT DATA ADDRESS
463 ; STATE - PROCESSOR STATE BYTE
464 ;
465 ; NICE MESSAGE SYMBOLS:
466 ;
467 ; NE$FOR - INVALID MESSAGE FORMAT ERROR CODE
468 ; NE$FUN - INVALID FUNCTION ERROR CODE
469 ;
470 ; CONFIGURATION CONTROL SYMBOLS:
471 ;
472 ; F$DPOS - "DEPOSIT MEMORY" CONFIGURATION CONTROL FLAG
473 ;
474 ; CONTROL BLOCK SYMBOLS:
475 ;
476 ; C.ADDR - OFFSET OF ADDRESS FIELD
477 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 12-1
MEPARS
478 ; C.PROC - PROCESS FUNCTION CODE OFFSET
479 ; C.LEN - OFFSET OF LENGTH FIELD
480 ;
481 ;--
482 ;======================================================================;
483 ;
484 ;
485 ; EXTERNAL MACROS
486 ;
487 .MCALL MEDF,NICDF,CONDF,SAVSTK,RESSTK
488 ;
489 ; DEFINE EXTERNAL SYMBOLS
490 ;
491 000402 MEDF ;MEMORY SYMBOLS
492 000402 NICDF ;NICE MESSAGE SYMBOLS
493 000402 CONDF ;CONTROL BLOCK SYMBOLS
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 13
MEPARS
495 ;
496 ; LOCAL PROCEDURE BODY
497 ;
498 000402 PROCLC MEPARS
499 000402 SAVSTK <R3> ;SAVE REGISTER
500 000404 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE
501 000410 010203 MOV R2,R3 ;COPY IT
502 000412 066503 000012 ADD C.LEN(R5),R3 ;COMPUTE END ADDRESS
503 000416 005202 INC R2 ;MOVE PAST FUNCTION CODE
504 000420 CALL GTMSBY ;GET OPTION BYTE
505 000424 IF ; SUCCESS
506 000424 FALSE CS
507 000426 THEN
508 000426 IF ; OPTION = 0
509 000426 FALSE NE,R0
510 000432 THEN
511 000432 010264 000000 MOV R2,MPRM(R4) ;SAVE THE ADDRESS OF THE ADDRESS
512 000436 CALL GTMSWD ;GET LOW ORDER ADDRESS
513 000442 CALL GTMSWD ;AND HIGH ORDER ADDRESS
514 000446 CALL GTMSBY ;NOW PICK UP BYTE COUNT
515 000452 042700 177400 BIC #^C377,R0 ;CLEAR OFF THE GARBAGE
516 000456 010064 000006 MOV R0,MCNT(R4) ;AND SAVE.
518 000462 IF ; IT IS A DEPOSIT AND THERE IS MORE MESSAGE
519 000462 FALSE CS
520 000464 FALSEB NE C.PROC(R5),#P$DPOS
521 000474 THEN ; SET DEPOSIT DATA ADDRESS
522 000474 010264 000004 MOV R2,MDAT(R4) ;SAVE DATA ADDRESS
523 000500 060002 ADD R0,R2 ;PASS BY THE DEPOSIT DATA
524 000502 ENDIF
526 000502 ELSE
527 000504 012700 177777 MOV #NE$FUN,R0 ;FUNCTION CODE ERROR
528 000510 000261 SEC ;SET FAILURE
529 000512 ENDIF
530 000512 ENDIF
531 000512 IF ; SUCCESS AND MESSAGE NOT USED UP
532 000512 FALSE CS
533 000514 FALSE EQ R2,R3
534 000520 THEN
535 000520 012700 177776 MOV #NE$FOR,R0 ;MESSAGE FORMAT ERROR
536 000524 000261 SEC ;SET FAILURE
537 000526 ENDIF
538 000526 IF ; SUCCESS
539 000526 FALSE CS
540 000530 THEN
541 000530 105065 000006 CLRB C.FUNC(R5) ;INITIALIZE FOR NEXT STATE
542 000534 112764 000002 000010 MOVB #PROC,STATE(R4) ;MOVE TO NEXT STATE
543 000542 ELSE
544 000544 CALL MEABRT ;BLOW IT UP
545 000550 ENDIF
546 000550 RESSTK <R3> ;RESTORE REGISTER
547 000552 ENDPROC
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 14
MEPROC
549 .SBTTL MEPROC
550 ;
551 ;======================================================================;
552 ;++
553 ; +-------------------------------------------------+
554 ; I I
555 ; I M E P R O C I
556 ; I - - - - - - I
557 ; I I
558 ; +-------------------------------------------------+
559 ;
560 ; FUNCTION:
561 ;
562 ; MEMORY SERVICE MODULE TO DO THE EXAMINE / DEPOSIT
563 ;
564 ; INPUT:
565 ;
566 ; R4 - ADDRESS OF CONTEXT BLOCK
567 ; R5 - ADDRESS OF CONTROL BLOCK
568 ; C.ADDR - ADDRESS OF MESSAGE
569 ; C.LEN - LENGTH OF MESSAGE
570 ;
571 ; OUTPUT:
572 ;
573 ; @R4 - UPDATED CONTEXT BLOCK
574 ; STATE - IF SUCCESSFUL, SET UP STATE VALUE
575 ; @R5 - UPDATED CONTROL BLOCK
576 ; C.FUNC - IF SUCCESSFUL, ZERO
577 ; OTHER OUTPUTS - AS DESCRIBED FOR MEABRT
578 ;
579 ; REQUIREMENTS:
580 ;
581 ; CONFIGURATION CONTROL SYMBOLS:
582 ;
583 ; F$DPOS - "DEPOSIT MEMORY" CONFIGURATION CONTROL FLAG
584 ; F$EXAM - "EXAMINE MEMORY" CONFIGURATION CONTROL FLAG
585 ;
586 ; CONTROL BLOCK SYMBOLS:
587 ;
588 ; C.ADDR - OFFSET OF ADDRESS FIELD
589 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
590 ; C.PROC - PROCESSOR NUMBER OFFSET
591 ; C.RET - OFFSET OF I/O STATUS BLOCK
592 ;
593 ; SYSTEM SYMBOLS:
594 ;
595 ; IE.BLK - INVALID ADDRESS ERROR CODE FROM DLX
596 ;
597 ; NICE MESSAGE SYMBOLS:
598 ;
599 ; NS$SUC - SUCCESS RETURN CODE
600 ; NE$PAR - PARAMETER ERROR RETURN CODE
601 ; NE$FUN - INVALID FUNCTION ERROR RETURN CODE
602 ;
603 ; SERVICE SYMBOLS:
604 ;
605 ; NCOLUN - NETWORK CONTROL LOGICAL UNIT NUMBER
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 14-1
MEPROC
606 ; TEMFLG - NETWORK CONTROL EVENT FLAG NUMBER
607 ;
608 ; DLX NICE SERVICE SYMBOLS:
609 ;
610 ; NX.NIC - NICE SERVICE QIO FUNCTION CODE
611 ; NX$DEP - DEPOSIT MEMORY SUBCODE
612 ; NX$EXM - EXAMINE MEMORY SUBCODE
613 ;
614 ; MEMORY SERVICE SYMBOLS:
615 ;
616 ; MDAT - POINTER TO DEPOSIT DATA ADRESS
617 ; MCNT - COUNT OF BYTES TO DEPOSIT OR EXAMINE
618 ; MPRM - ADDRESS OF 4-BYTE PHYSICAL ADDRESS
619 ;
620 ;--
621 ;======================================================================;
622 ;
623 ;
624 ; EXTERNAL MACROS
625 ;
626 .MCALL SRDF,MEDF,DLXDF,NICDF,CONDF,SAVSTK,RESSTK,QIOW$S
627 ;
628 ; DEFINE EXTERNAL SYMBOLS
629 ;
630 000554 MEDF ;MEMORY SYMBOLS
631 000554 SRDF ;SERVICE SYMBOLS
632 000554 DLXDF ;DLX NICE SERVICE SYMBOLS
633 000554 NICDF ;NICE MESSAGE SYMBOLS
634 000554 CONDF ;CONTROL BLOCK SYMBOLS
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 15
MEPROC
636 ;
637 ; LOCAL PROCEDURE BODY
638 ;
639 000554 PROCLC MEPROC
640 000554 012701 000005 MOV #5,R1 ;ASSUME ONLY ADDRESS AND COUNT TO SEND
641 000560 IF ; THIS IS A DEPOSIT
642 000560 FALSEB NE C.PROC(R5),#P$DPOS
643 000570 THEN ; SET FOR THE DEPOSIT SUB-FUNCTION
644 000570 066401 000006 ADD MCNT(R4),R1 ;INCLUDE DATA IN COUNT
645 000574 016403 000004 MOV MDAT(R4),R3 ;GET DATA ADDRESS
646 000600 012702 000046 MOV #NX$DEP,R2
647 000604 ELSE ; SET FOR THE EXAMINE SUB-FUNCTION
648 000606 016503 000014 MOV C.ADDR(R5),R3 ;GET RETURN BUFFER ADDRESS
649 000612 122323 CMPB (R3)+,(R3)+ ;FUTURE HOME OF RETURN CODE AND COUNT
650 000614 012702 000050 MOV #NX$EXM,R2
651 000620 ENDIF
652 000620 010500 MOV R5,R0
653 000622 062700 000010 ADD #C.RET,R0
654 000626 QIOW$S #NX.NIC,#NCOLUN,#TEMFLG,,R0,,<MPRM(R4),R1,R2,R3,MCNT(R4)>
655 000676 IF ; SUCCESS
656 000676 TRUE CC
657 000700 FALSEB MI,(R0)
658 000704 THEN
659 000704 012700 000001 MOV #NS$SUC,R0 ;SUCCESSFUL RETURN CODE
660 000710 ELSE ; CHECK ON THE ERROR
661 000712 ONCASE
662 000712 CASE ; ADDRESS ERROR
663 000712 FALSEB NE #IE.BLK,(R0)
664 000720 DO
665 000720 012700 177760 MOV #NE$PAR,R0 ;PARAMETER ERROR
666 000724 ELSE
667 000726 012700 177777 MOV #NE$FUN,R0 ;NICE FUNCTION ERROR
668 000732 ENDCASE
669 000732 ENDIF
670 000732 CALL MEABRT
671 000736 ENDPROC
673 000001 .END
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 15-1
SYMBOL TABLE
A$$CHK= 000000 C$PROC= 000200 FLGGRP= 000000 F$OPOR= 000000 LS$LOA= 000000
A$$CPS= 000000 C$RCBK= 000047 FLGMSK= 000003 F$OPOT= 000000 LS$LOO= 000001
A$$TRP= 000000 C$RCEV= 000050 FL$BOO= 000001 F$ORLU= 000000 LS$TRI= 000004
BLKFLG= 000003 C$RCIN= 000062 FL$DUM= 000001 F$OTLU= 000001 LS$TRQ= 000003
CE$ACP= 177753 C$RCMA= 000146 FL$LOA= 000001 F$RCBK= 000002 L$$ASG= 000000
CE$ADR= 177776 C$RCMS= 000054 FL$LOO= 000001 F$RCEV= 000001 L$$DRV= 000000
CE$CON= 177770 C$RDBK= 000043 FR$LCC= 000001 F$RCIN= 000000 L$$P11= 000001
CE$DIS= 177771 C$RDCM= 000035 FR$LCS= 000001 F$RCMA= 000000 L$$11R= 000000
CE$EOF= 177767 C$RDIN= 000040 FR$LNC= 000001 F$RCMS= 000002 MCNT 000006
CE$FAI= 177774 C$RDIS= 000040 FR$LNL= 000001 F$RDBK= 000000 MDAT 000004
CE$FIL= 177756 C$RDRC= 000060 FR$LNS= 000001 F$RDCM= 000000 MEABRT 000000R
CE$FUN= 177777 C$RLBF= 000001 FR$RMC= 000001 F$RDIN= 000001 MEFINI 000020R
CE$GEN= 177774 C$RLCB= 000002 FR$RML= 000001 F$RDIS= 000012 MEINIT 000144R
CE$IND= 177757 C$RLCI= 000000 FR$RMS= 000001 F$RDRC= 000000 MEMAIN 000254RG
CE$IO = 177760 C$STBK= 000055 FS$HOS= 000001 F$RECO= 000001 MEPARS 000402R
CE$LEN= 177775 C$STPR= 000037 FS$INT= 000000 F$RLBF= 000001 MEPROC 000554R
CE$LID= 177766 C$STPS= 000037 FS$LLP= 000001 F$RLCB= 000001 MLEN 000002
CE$LST= 177752 C$TRBK= 000046 FS$LOF= 000001 F$STBK= 000000 MPRM 000000
CE$NOD= 177765 C$TRIN= 000063 FS$LOG= 000001 F$STPR= 000001 M$$CRB= 000124
CE$NSD= 177755 C$TRMA= 000145 FS$LST= 000001 F$STPS= 000006 M$$CRX= 000000
CE$NST= 177754 C$TRMS= 000053 FS$NET= 000001 F$TEST= 000001 M$$FCS= 000000
CE$NWE= 177773 C$WRBK= 000044 FS$NST= 000000 F$TRAC= 000000 M$$OVR= 000000
CE$OBJ= 177750 C$WRCL= 000065 FS$PAS= 000001 F$TRBK= 000001 NCOLUN= 000016
CE$OPN= 177761 C$WRCM= 000036 FT$CNS= 000000 F$TRIG= 000001 ND$BAD= 177777
CE$OVR= 177764 C$WRRC= 000061 FT$NOD= 000001 F$TRIN= 000000 ND$LCC= 000000
CE$PAR= 177763 C$ZRCN= 000064 FT$TSK= 000001 F$TRMA= 000000 ND$LCS= 000001
CE$PRO= 177751 C$$CKP= 000000 F$ALBF= 000001 F$TRMS= 000002 ND$LNC= 000004
CE$REJ= 177772 C$$ORE= 000400 F$ALCB= 000001 F$WRBK= 000000 ND$LNS= 000005
CE$TMO= 177762 C$$RSH= 177564 F$CB = 000017 F$WRCL= 000001 ND$RMC= 000002
CMILUN= 000002 C.ADDR= 000014 F$CLCL= 000001 F$WRCM= 000000 ND$RMS= 000003
CMOLUN= 000001 C.BKNM= 000014 F$CLCO= 000000 F$WRRC= 000000 ND$ZLC= 000000
CS$ACK= 000002 C.CTXT= 000004 F$CLFL= 000000 F$ZERO= 000001 ND$ZLN= 000002
CS$LKE= 000001 C.FUNC= 000006 F$CLLK= 000006 F$ZRCN= 000001 ND$ZRM= 000001
CS$LNA= 000002 C.LEN = 000012 F$CLLN= 000002 F$$LVL= 000001 NETLUN= 000003
CS$LOG= 000003 C.LINE= 000014 F$DPOS= 000001 F$150 = 000002 NE$CON= 177762
CS$NCH= 000003 C.LKNM= 000020 F$DUMP= 000000 F$300 = 000012 NE$FIL= 177763
CS$SUC= 000001 C.LUN = 000020 F$EVNT= 000001 F$50 = 000002 NE$FIO= 177756
CTXTLN= 000012 C.MODE= 000021 F$EXAM= 000001 F$550 = 000002 NE$FOR= 177776
C$ALBF= 000032 C.PRID= 000017 F$EXHO= 000000 GTMSBY= ****** GX NE$FUN= 177777
C$ALCB= 000033 C.PROC= 000007 F$GTCM= 000001 GTMSWD= ****** GX NE$LCO= 177766
C$CLCL= 000067 C.PROM= 000016 F$INCM= 000000 G$$TPP= 000000 NE$LID= 177770
C$CLCO= 000003 C.PTR = 000000 F$INLU= 000001 G$$TSS= 000000 NE$LPR= 177757
C$CLFL= 000004 C.RET = 000010 F$IRLU= 000000 G$$TTK= 000000 NE$LST= 177767
C$CLLK= 000052 C.SAVE= 000022 F$LKLU= 000010 IE.BLK= ****** GX NE$NCO= 177755
C$CLLN= 000005 C.SERV= 000002 F$LNLU= 000002 I$$RAR= 000000 NE$NIC= 177753
C$LEN = 000026 C.TASK= 000016 F$LNSR= 000001 I$$RDN= 000000 NE$NOD= 177765
C$NOPN= 000031 C.TYPE= 000016 F$LOAD= 000000 K$$CNT= 177546 NE$NOR= 177754
C$NORD= 000032 C.WAIT= 000020 F$LOGD= 000001 K$$CSR= 177546 NE$ORD= 177774
C$OPCL= 000066 DM$END= 000000 F$LOOP= 000001 K$$LDC= 000000 NE$PAR= 177760
C$OPCO= 000034 DM$MIM= 000002 F$NTCM= 000000 K$$TPS= 000074 NE$RES= 177761
C$OPIN= 000041 DM$PXA= 000003 F$OPCL= 000001 LD$LP = 000000 NE$SER= 177764
C$OPIR= 000056 DM$SAD= 000001 F$OPCO= 000000 LINLUN= 000017 NE$STA= 177775
C$OPLK= 000051 D$$BUG= 177514 F$OPIN= 000000 LI$KNO= 000000 NL$BRC= 000001
C$OPLN= 000045 D$$ISK= 000000 F$OPIR= 000000 LI$STA= 000001 NL$BTR= 000002
C$OPOR= 000057 D$$L11= 000001 F$OPLK= 000005 LI$STR= 000002 NL$RES= 000005
C$OPOT= 000042 FILLUN= 000014 F$OPLN= 000002 LNKLUN= 000004 NL$RLE= 000004
C$ORD = 000145 FINISH= 000003 F$OPLO= 000000 LS$DUM= 000002 NL$RTR= 000003
MEMAIN MACRO M1110 13-OCT-79 12:13 PAGE 15-2
SYMBOL TABLE
NL$TMO= 000006 NX$SLS= 000022 PT$HOS= 000003 RI$RMS= 000005 ST$ENA= 000005
NL$ZRO= 000000 NX$SNH= 000024 PT$NAM= 000001 RI$ZLC= 000011 ST$LOO= 000003
NN$CAC= 000011 NX$SNM= 000036 PT$NUM= 000002 RI$ZLN= 000013 ST$MAI= 000004
NN$CNI= 000013 NX$SNO= 000034 P$DPOS= 000016 RI$ZRM= 000012 ST$OFF= 000001
NN$CNR= 000014 NX$SNS= 000010 P$DUMP= 000003 R$$DER= 000000 ST$ON = 000000
NN$EXT= 000003 NX$XMT= 000030 P$EVNT= 000011 R$$K11= 000001 ST$SHU= 000002
NN$FMT= 000005 NX$ZLC= 000020 P$EXAM= 000017 R$$SND= 000000 S$$WRG= 000000
NN$IZS= 000007 NX$ZNC= 000006 P$GTCM= 000001 R$$11M= 000000 S$$YSZ= 001600
NN$IZU= 000010 NX.NIC= 017050 P$INCM= 000015 SERBIT= 000001 TEMFLG= 000030
NN$MAC= 000012 N$DPOS= 000014 P$LNSR= 000004 SERFLG= 000001 TIMBIT= 000002
NN$NKS= 000004 N$DUMP= 000003 P$LOAD= 000002 SETUP = 000001 TIMFLG= 000002
NN$RES= 000006 N$EXAM= 000015 P$LOGD= 000020 SPRAY = ****** GX T$$KMG= 000000
NN$UMR= 000002 N$LNSR= 000016 P$LOOP= 000005 SP$DHO= 000003 T$$MIN= 000000
NN$UMS= 000001 N$LOAD= 000002 P$NTCM= 000014 SP$DRP= 000007 V$$CTR= 001000
NN$ZRO= 000000 N$LOGD= 000001 P$RDIN= 000010 SP$DTP= 000010 X$$DBT= 000000
NO = 000000 N$LOOP= 000005 P$STPR= 000007 SP$LHO= 000002 YES = 000001
NS$SUC= 000001 N$RDIN= 000010 P$TEST= 000006 SP$LLP= 000011 $$CSTA= 000000
NX$DEP= 000046 N$STPR= 000007 P$TRIG= 000012 SP$LNM= 000016 $$PRST= 000012
NX$EXM= 000050 N$TEST= 000006 P$ZERO= 000013 SP$LNO= 000015 $$STIX= 000777
NX$RCV= 000032 N$TRIG= 000004 P$$P45= 000000 SP$LOF= 000012 $$STNM= 000000
NX$RLC= 000016 N$XADJ= 000002 RETCOD 000011 SP$LST= 000001 $$S772= 000077
NX$RLN= 000012 N$XINT= 000003 RI$LCC= 000001 SP$NDM= 000014 $$S773= 000000
NX$RLS= 000014 N$XLCL= 000001 RI$LCS= 000002 SP$NDO= 000013 $$S774= 000011
NX$RNC= 000004 N$XRMT= 000004 RI$LNC= 000007 SP$NST= 000006 $$S775= 000011
NX$RNN= 000000 N$ZERO= 000011 RI$LNL= 000006 SP$RRP= 000004 $$S776= 000000
NX$RNS= 000002 N$$USR= 000001 RI$LNS= 000010 SP$RTP= 000005 $$S777= 000000
NX$SLH= 000026 N.MLEN= 000454 RI$RMC= 000004 STATE 000010 $$TRNM= 000000
NX$SLM= 000042 PROC = 000002 RI$RML= 000003 ST$DIS= 000006 $$$ARG= 000002
NX$SLO= 000040 PT$END= 000000
. ABS. 000012 000
000740 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 10767 WORDS ( 43 PAGES)
DYNAMIC MEMORY: 12172 WORDS ( 46 PAGES)
ELAPSED TIME: 00:02:43
MEMAIN,[135,30]MEMAIN/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,MEMAIN
MEMAIN CREATED BY MACRO ON 13-OCT-79 AT 12:15 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CTXTLN = 000012 9-308 9-315
C$ALBF = 000032 9-309
C$PROC = 000200 9-304 11-397
C$RLBF = 000001 7-225 7-228 11-392
C$TRMS = 000053 7-220 7-223
C.ADDR = 000014 7-209 7-218 *7-230 9-307 9-311 *9-318 13-500 15-648
C.CTXT = 000004 7-230 *7-231 *9-312 11-387 *11-398
C.FUNC = 000006 *5-128 7-207 *7-220 7-223 *7-225 7-228 *7-232 9-304 *9-309
11-392 *11-397 11-407 *11-416 *13-541
C.LEN = 000012 *7-219 9-306 *9-308 *9-317 13-502
C.PROC = 000007 7-213 *11-396 13-520 15-642
C.RET = 000010 15-653
C.SAVE = 000022 *9-306 *9-307 9-317 9-318
FINISH = 000003 5-129 11-412
FL$BOO = 000001 #4-68 4-68
FL$DUM = 000001 #4-68 4-68
FL$LOA = 000001 #4-68 4-68
FL$LOO = 000001 #4-68 4-68
FR$LCC = 000001 #4-68 4-68
FR$LCS = 000001 #4-68 4-68
FR$LNC = 000001 #4-68 4-68
FR$LNL = 000001 #4-68 4-68
FR$LNS = 000001 #4-68 4-68
FR$RMC = 000001 #4-68 4-68
FR$RML = 000001 #4-68 4-68
FR$RMS = 000001 #4-68 4-68
FS$HOS = 000001 #4-68 4-68
FS$INT = 000000 #4-68 4-68 4-68 4-68
FS$LLP = 000001 #4-68 4-68
FS$LOF = 000001 #4-68 4-68
FS$LOG = 000001 #4-68 4-68
FS$LST = 000001 #4-68 4-68
FS$NET = 000001 #4-68 4-68
FS$NST = 000000 #4-68 4-68
FS$PAS = 000001 #4-68 4-68
FT$CNS = 000000 #4-68 4-68
FT$NOD = 000001 #4-68 4-68
FT$TSK = 000001 #4-68 4-68
F$ALBF = 000001 #4-68
F$ALCB = 000001 #4-68
F$CB = 000017 #4-68
F$CLCL = 000001 #4-68 4-68 #4-68
F$CLCO = 000000 #4-68
F$CLFL = 000000 #4-68
F$CLLK = 000006 #4-68 4-68 #4-68 4-68 #4-68 4-68 #4-68 4-68 #4-68
4-68 #4-68 4-68 #4-68
F$CLLN = 000002 #4-68 4-68 #4-68 4-68 #4-68
F$DPOS = 000001 #4-68 4-68 4-69 13-517
F$DUMP = 000000 #4-68 4-68
F$EVNT = 000001 #4-68 4-68
F$EXAM = 000001 #4-68 4-68 4-69
F$EXHO = 000000 #4-68
MEMAIN CREATED BY MACRO ON 13-OCT-79 AT 12:15 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$GTCM = 000001 #4-68 4-68
F$INCM = 000000 #4-68 4-68
F$INLU = 000001 #4-68
F$IRLU = 000000 #4-68
F$LKLU = 000010 #4-68
F$LNLU = 000002 #4-68
F$LNSR = 000001 #4-68 4-68
F$LOAD = 000000 #4-68 4-68
F$LOGD = 000001 #4-68 4-68
F$LOOP = 000001 #4-68 4-68
F$NTCM = 000000 #4-68 4-68
F$OPCL = 000001 #4-68 4-68 #4-68
F$OPCO = 000000 #4-68
F$OPIN = 000000 #4-68
F$OPIR = 000000 #4-68
F$OPLK = 000005 #4-68 4-68 #4-68 4-68 #4-68 4-68 #4-68 4-68 #4-68
4-68 #4-68
F$OPLN = 000002 #4-68 4-68 #4-68 4-68 #4-68
F$OPLO = 000000 #4-68
F$OPOR = 000000 #4-68
F$OPOT = 000000 #4-68
F$ORLU = 000000 #4-68
F$OTLU = 000001 #4-68
F$RCBK = 000002 #4-68 4-68 #4-68 4-68 #4-68
F$RCEV = 000001 #4-68 4-68 #4-68
F$RCIN = 000000 #4-68
F$RCMA = 000000 #4-68
F$RCMS = 000002 #4-68 4-68 #4-68
F$RDBK = 000000 #4-68
F$RDCM = 000000 #4-68
F$RDIN = 000001 #4-68 4-68
F$RDIS = 000012 #4-68 4-68 #4-68 4-68 #4-68 4-68 #4-68 4-68 #4-68
4-68 #4-68 4-68 #4-68 4-68 #4-68 4-68 #4-68 4-68
#4-68
F$RDRC = 000000 #4-68
F$RECO = 000001 #4-68 4-68 #4-68
F$RLBF = 000001 #4-68
F$RLCB = 000001 #4-68
F$STBK = 000000 #4-68
F$STPR = 000001 #4-68 4-68
F$STPS = 000006 #4-68 4-68 #4-68 4-68 #4-68 4-68 #4-68 4-68 #4-68
4-68 #4-68 4-68 #4-68
F$TEST = 000001 #4-68 4-68
F$TRAC = 000000 #4-68 5-126 5-126 5-130 5-130 7-205 7-205 7-234 7-234
9-302 9-302 9-321 9-321 11-386 11-386 11-419 11-419 13-498
13-498 13-547 13-547 15-639 15-639 15-671 15-671
F$TRBK = 000001 #4-68 4-68 #4-68
F$TRIG = 000001 #4-68 4-68
F$TRIN = 000000 #4-68
F$TRMA = 000000 #4-68
F$TRMS = 000002 #4-68 4-68 #4-68
F$WRBK = 000000 #4-68
MEMAIN CREATED BY MACRO ON 13-OCT-79 AT 12:15 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$WRCL = 000001 #4-68 4-68 #4-68
F$WRCM = 000000 #4-68
F$WRRC = 000000 #4-68
F$ZERO = 000001 #4-68 4-68
F$ZRCN = 000001 #4-68 4-68 #4-68
F$150 = 000002 #4-68
F$300 = 000012 #4-68
F$50 = 000002 #4-68
F$550 = 000002 #4-68
GTMSBY = ****** GX 13-504 13-514
GTMSWD = ****** GX 13-512 13-513
IE.BLK = ****** GX 15-663
I$$AS = ****** 5-126 7-205 9-302 11-386 13-498 15-639
MCNT 000006 7-215 7-216 *13-516 15-644 15-654
MDAT 000004 *13-522 15-645
MEABRT 000000 R #5-126 13-544 15-670
MEFINI 000020 R #7-205 11-414
MEINIT 000144 R #9-302 11-394
MEMAIN 000254 RG #11-386
MEPARS 000402 R 9-319 #13-498
MEPROC 000554 R 11-409 #15-639
MPRM 000000 *13-511 15-654
NCOLUN = 000016 15-654
NE$FOR = 177776 13-535
NE$FUN = 177777 13-527 15-667
NE$PAR = 177760 15-665
NO = 000000 #4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68
4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68
4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68
4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68
4-68 4-68 4-68
NS$SUC = 000001 15-659
NX$DEP = 000046 15-646
NX$EXM = 000050 15-650
NX.NIC = 017050 15-654
PROC = 000002 11-406 13-542
P$DPOS = 000016 13-520 15-642
P$EXAM = 000017 7-213
P$GTCM = 000001 11-396
RETCOD 000011 *5-127 7-210
R$$11D = ****** 5-126 7-205 9-302 11-386 13-498 15-639
R$$11M = 000000 5-126 7-205 9-302 11-386 13-498 15-639
SPRAY = ****** GX 9-316
STATE 000010 *5-129 11-406 11-412 *13-542
TEMFLG = 000030 15-654
YES = 000001 #4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68
4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68
4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68
4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68 4-68
4-68 4-68 4-68 4-68 4-68
$$CSTA = 000000 #5-126 #7-205 #9-302 #11-386 #13-498 #15-639 15-661 #15-661 15-662
#15-662 #15-668
MEMAIN CREATED BY MACRO ON 13-OCT-79 AT 12:15 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$$PRST = 000012 #5-126 #7-205 7-206 #7-206 *7-211 #7-211 7-222 #7-222 7-227
#7-227 #9-302 9-303 #9-303 #11-386 *11-388 #11-388 11-391 #11-391
11-402 #11-402 11-405 #11-405 11-411 #11-411 #13-498 13-505 #13-505
13-508 #13-508 13-518 #13-518 13-531 #13-531 13-538 #13-538 #15-639
*15-641 #15-641 15-655 #15-655 15-661 #15-661
$$SLST = ****** 5-126 5-130 7-205 7-207 7-207 7-208 7-212 7-213 7-213
7-214 7-217 7-221 7-223 7-223 7-224 7-226 7-228 7-228
7-229 7-233 7-234 9-302 9-304 9-304 9-305 9-310 9-310
9-320 9-321 11-386 11-389 11-389 11-390 11-392 11-392 11-393
11-395 11-395 11-400 11-401 11-403 11-403 11-404 11-405 11-406
11-406 11-407 11-407 11-408 11-410 11-410 11-412 11-412 11-413
11-415 11-417 11-419 13-498 13-506 13-507 13-509 13-509 13-510
13-519 13-520 13-520 13-521 13-524 13-526 13-526 13-529 13-530
13-532 13-533 13-533 13-534 13-537 13-539 13-540 13-543 13-543
13-545 13-547 15-639 15-642 15-642 15-643 15-647 15-647 15-651
15-656 15-657 15-657 15-658 15-660 15-660 15-663 15-663 15-664
15-666 15-666 15-668 15-669 15-671
$$STIX = 000777 #5-126 #7-205 7-206 7-206 #7-206 7-206 7-206 #7-206 *7-211
*7-211 #7-211 *7-211 *7-211 #7-211 7-217 #7-217 7-217 7-217
#7-217 7-217 7-221 #7-221 7-221 7-221 #7-221 7-221 7-222
7-222 #7-222 7-222 7-222 #7-222 7-226 #7-226 7-226 7-226
#7-226 7-226 7-227 7-227 #7-227 7-227 7-227 #7-227 7-233
#7-233 7-233 7-233 #7-233 7-233 #9-302 9-303 9-303 #9-303
9-303 9-303 #9-303 9-320 #9-320 9-320 9-320 #9-320 9-320
#11-386 *11-388 *11-388 #11-388 *11-388 *11-388 #11-388 11-391 11-391
#11-391 11-391 11-391 #11-391 11-400 #11-400 11-400 11-400 #11-400
11-400 11-401 #11-401 11-401 11-401 #11-401 11-401 11-402 11-402
#11-402 11-402 11-402 #11-402 11-405 11-405 #11-405 11-405 11-405
#11-405 11-410 #11-410 11-410 11-410 #11-410 11-410 11-411 11-411
#11-411 11-411 11-411 #11-411 11-415 #11-415 11-415 11-415 #11-415
11-415 11-417 #11-417 11-417 11-417 #11-417 11-417 #13-498 13-505
13-505 #13-505 13-505 13-505 #13-505 13-508 13-508 #13-508 13-508
13-508 #13-508 13-518 13-518 #13-518 13-518 13-518 #13-518 13-524
#13-524 13-524 13-524 #13-524 13-524 13-529 #13-529 13-529 13-529
#13-529 13-529 13-530 #13-530 13-530 13-530 #13-530 13-530 13-531
13-531 #13-531 13-531 13-531 #13-531 13-537 #13-537 13-537 13-537
#13-537 13-537 13-538 13-538 #13-538 13-538 13-538 #13-538 13-545
#13-545 13-545 13-545 #13-545 13-545 #15-639 *15-641 *15-641 #15-641
*15-641 *15-641 #15-641 15-651 #15-651 15-651 15-651 #15-651 15-651
15-655 15-655 #15-655 15-655 15-655 #15-655 15-661 15-661 #15-661
15-661 15-661 #15-661 15-661 15-661 #15-661 *15-668 #15-668 *15-668
15-668 #15-668 15-668 15-668 #15-668 15-668 15-669 #15-669 15-669
15-669 #15-669 15-669
$$STNM = 000000 #5-126 #7-205 7-206 #7-206 7-206 7-207 7-208 *7-211 #7-211
*7-211 7-212 7-213 7-214 7-217 #7-217 *7-221 #7-221 7-222
#7-222 7-222 7-223 7-224 *7-226 #7-226 7-227 #7-227 7-227
7-228 7-229 7-233 #7-233 #9-302 9-303 #9-303 9-303 9-304
9-305 *9-310 9-310 9-320 #9-320 #11-386 *11-388 #11-388 *11-388
11-389 11-390 11-391 #11-391 11-391 11-392 11-393 11-395 11-395
11-400 #11-400 11-401 #11-401 11-402 #11-402 11-402 11-403 11-404
11-405 #11-405 11-405 11-405 11-406 11-407 11-408 11-410 11-410
#11-410 11-411 #11-411 11-411 11-412 11-413 11-415 #11-415 11-417
MEMAIN CREATED BY MACRO ON 13-OCT-79 AT 12:15 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#11-417 #13-498 13-505 #13-505 13-505 13-506 13-507 13-508 #13-508
13-508 13-509 13-510 13-518 #13-518 13-518 13-519 13-520 13-521
13-524 #13-524 13-526 13-526 13-529 #13-529 13-530 #13-530 13-531
#13-531 13-531 13-532 13-533 13-534 13-537 #13-537 13-538 #13-538
13-538 13-539 13-540 *13-543 13-543 13-545 #13-545 #15-639 *15-641
#15-641 *15-641 15-642 15-643 *15-647 15-647 *15-651 #15-651 15-655
#15-655 15-655 15-656 15-657 15-658 *15-660 15-660 15-661 #15-661
15-661 15-663 15-664 *15-666 15-666 15-668 #15-668 15-669 #15-669
$$S772 = 000077 #13-518 13-524
$$S773 = 000000 #13-518 13-524 #15-661 *15-668
$$S774 = 000011 #7-211 7-217 #11-391 11-400 #11-405 11-410 #11-411 11-415 #13-508
13-529 #15-661 15-668
$$S775 = 000011 #7-211 7-217 #11-391 11-400 #11-405 11-410 #11-411 11-415 #13-508
13-529 #15-661 15-668
$$S776 = 000000 #7-206 7-221 #7-222 7-226 #7-227 7-233 #9-303 9-320 #11-388
11-401 #11-402 11-417 #13-505 13-530 #13-531 13-537 #13-538 13-545
#15-641 15-651 #15-655 15-669
$$S777 = 000000 #7-206 7-221 #7-222 7-226 #7-227 7-233 #9-303 9-320 #11-388
11-401 #11-402 11-417 #13-505 13-530 #13-531 13-537 #13-538 13-545
#15-641 15-651 #15-655 15-669
$$TRNM = 000000 #5-126 #7-205 7-206 #7-206 7-207 7-208 *7-211 #7-211 7-212
7-213 7-214 7-217 #7-217 *7-221 #7-221 7-222 #7-222 7-223
7-224 *7-226 #7-226 7-227 #7-227 7-228 7-229 7-233 #7-233
#9-302 9-303 #9-303 9-304 9-305 9-310 #9-310 9-320 #9-320
#11-386 *11-388 #11-388 11-389 11-390 11-391 #11-391 11-392 11-393
11-395 #11-395 11-400 #11-400 11-401 #11-401 11-402 #11-402 11-403
11-404 11-405 #11-405 11-406 11-407 11-408 11-410 #11-410 11-411
#11-411 11-412 11-413 11-415 #11-415 11-417 #11-417 #13-498 13-505
#13-505 13-506 13-507 13-508 #13-508 13-509 13-510 13-518 #13-518
13-519 13-520 13-521 13-524 #13-524 13-526 #13-526 13-529 #13-529
13-530 #13-530 13-531 #13-531 13-532 13-533 13-534 13-537 #13-537
13-538 #13-538 13-539 13-540 13-543 #13-543 13-545 #13-545 #15-639
*15-641 #15-641 15-642 15-643 15-647 #15-647 *15-651 #15-651 15-655
#15-655 15-656 15-657 15-658 15-660 #15-660 15-661 #15-661 15-663
15-664 15-666 #15-666 15-668 15-668 #15-668 15-669 #15-669
$$$ARG = 000002 #15-654 15-654 #15-654 15-654 #15-654 15-654 #15-654 15-654 #15-654
15-654 #15-654 15-654 15-654 #15-654 15-654 15-654 15-654 15-654
15-654 15-654 15-654 15-654 15-654 15-654 #15-654 15-654 15-654
15-654 15-654 15-654 15-654 15-654 15-654 15-654 15-654 #15-654
15-654 15-654 15-654 15-654 15-654 15-654 15-654 15-654 15-654
15-654
MEMAIN CREATED BY MACRO ON 13-OCT-79 AT 12:15 PAGE 6
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #9-316 #9-319 #11-394 #11-409 #11-414 #13-504 #13-512 #13-513 #13-514 #13-544
#15-670
CASE #5-126 #7-205 #9-302 #11-386 #13-498 #15-639 15-662
CONDF #5-117 #5-122 #6-194 #6-198 #8-292 #8-296 #10-375 #10-379 #12-487 #12-493
#14-626 #14-634
CONFIG #4-68
DIR$ #15-654 #15-654
DLXDF #14-626 14-632
DO #5-126 #7-205 #9-302 #11-386 11-408 #13-498 #15-639 15-664
ELSE #5-126 #7-205 #9-302 9-310 #11-386 11-395 #13-498 13-526 13-543 #15-639
15-647 15-660 15-666
ENDCAS #5-126 #7-205 #9-302 #11-386 #13-498 #15-639 #15-668
ENDIF #5-126 #7-205 #7-217 #7-221 #7-226 #7-233 #9-302 #9-320 #11-386 #11-400
#11-401 #11-410 #11-415 #11-417 #13-498 #13-524 #13-529 #13-530 #13-537 #13-545
#15-639 #15-651 #15-668 #15-669
ENDPRO #5-126 5-130 #7-205 7-234 #9-302 9-321 #11-386 11-419 #13-498 13-547
#15-639 15-671
ENDWHI #5-126 #7-205 #9-302 #11-386 #11-410 #13-498 #15-639
FALSE #5-126 #7-205 #7-212 #9-302 #11-386 #11-389 #11-403 #13-498 #13-506 #13-509
#13-519 #13-532 #13-533 #13-539 #15-639
FALSEB #5-126 #7-205 #7-207 #7-213 #7-223 #7-228 #9-302 #9-304 #11-386 #11-392
#11-406 #11-407 #11-412 #13-498 #13-520 #15-639 #15-642 #15-657 #15-663
IF #5-126 #7-205 7-206 7-211 7-222 7-227 #9-302 9-303 #11-386 11-388
11-391 11-402 11-405 11-411 #13-498 13-505 13-508 13-518 13-531 13-538
#15-639 15-641 15-655 15-661
JMPPRO #5-126 #7-205 #9-302 #11-386 #13-498 #15-639
MEDF #5-117 #5-121 #6-194 #6-200 #8-292 #8-297 #10-375 #10-380 #12-487 #12-491
#14-626 #14-630
MOV$ #15-654 #15-654 #15-654 #15-654 #15-654 #15-654 #15-654 #15-654 #15-654 #15-654
#15-654 #15-654
MVB$ #15-654 15-654
NICDF #12-487 12-492 #14-626 14-633
ONCASE #5-126 #7-205 #9-302 #11-386 #13-498 #15-639 15-661
PRDF #6-194 #6-199 #10-381
PROC #4-64 11-386
PROCLC #4-64 5-126 #5-126 7-205 #7-205 9-302 #9-302 #11-386 13-498 #13-498
15-639 #15-639
PROFLG #4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68
#4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68
#4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68
#4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68 #4-68
#4-68
QDPB$S #15-654 15-654
QIOW$S #14-626 15-654
RESSTK #12-487 13-546 #14-626
RVP$ #15-654 15-654 15-654 15-654
SAVSTK #12-487 13-499 #14-626
SRDF #14-626 #14-631
SWSTK$ #5-126 #7-205 #9-302 #11-386 #13-498 #15-639
THEN #5-126 #7-205 #7-208 #7-214 #7-224 #7-229 #9-302 #9-305 #11-386 #11-390
#11-393 #11-404 #11-408 #11-413 #13-498 #13-507 #13-510 #13-521 #13-534 #13-540
#15-639 #15-643 #15-658 #15-664
MEMAIN CREATED BY MACRO ON 13-OCT-79 AT 12:15 PAGE 7
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
TRUE #5-126 #7-205 #9-302 #11-386 #13-498 #15-639 #15-656
TRUEB #5-126 #7-205 #9-302 #11-386 #13-498 #15-639
WHILE #5-126 #7-205 #9-302 #11-386 11-405 #13-498 #15-639
$$BGND #5-126 #7-205 7-207 7-212 7-213 7-223 7-228 #9-302 9-304 #11-386
11-389 11-392 11-403 11-406 11-407 11-412 #13-498 13-506 13-509 13-519
13-520 13-532 13-533 13-539 #15-639 15-642 15-656 15-657 15-663
$$BGNN #5-126 #7-205 7-207 7-212 7-213 7-223 7-228 #9-302 9-304 9-310
#11-386 11-389 11-392 11-395 11-403 11-406 11-407 11-410 11-412 #13-498
13-506 13-509 13-519 13-520 13-526 13-532 13-533 13-539 13-543 #15-639
15-642 15-647 15-656 15-657 15-660 15-663 15-666
$$ELSE #5-126 #7-205 #9-302 9-310 #11-386 11-395 #13-498 13-526 13-543 #15-639
15-647 15-660 15-666
$$GEN1 #5-126 #5-126 #5-130 #7-205 #7-205 #7-207 #7-207 #7-208 #7-212 #7-213
#7-214 #7-217 #7-221 #7-223 #7-224 #7-226 #7-228 #7-229 #7-233 #7-234
#9-302 #9-302 #9-304 #9-305 #9-310 #9-310 #9-320 #9-321 #11-386 #11-386
#11-389 #11-389 #11-390 #11-392 #11-393 #11-395 #11-395 #11-400 #11-401 #11-403
#11-403 #11-404 #11-405 #11-406 #11-407 #11-407 #11-408 #11-410 #11-410 #11-412
#11-413 #11-415 #11-417 #11-419 #13-498 #13-498 #13-506 #13-507 #13-509 #13-509
#13-510 #13-519 #13-520 #13-521 #13-524 #13-526 #13-526 #13-529 #13-530 #13-532
#13-533 #13-534 #13-537 #13-539 #13-540 #13-543 #13-543 #13-545 #13-547 #15-639
#15-639 #15-642 #15-643 #15-647 #15-647 #15-651 #15-656 #15-657 #15-657 #15-658
#15-660 #15-660 #15-663 #15-664 #15-666 #15-666 #15-668 #15-669 #15-671
$$GEN2 #5-126 #7-205 7-213 7-223 7-228 #9-302 9-304 #11-386 11-392 11-406
11-412 #13-498 13-520 13-533 #15-639 15-642 15-663
$$GNAB #5-126 #7-205 #7-212 #7-213 #7-223 #7-228 #9-302 #9-304 #11-386 #11-392
#11-406 #11-407 #11-412 #13-498 #13-506 #13-509 #13-519 #13-520 #13-532 #13-533
#13-539 #15-639 #15-642 #15-656 #15-657 #15-663
$$GNBT #5-126 #7-205 #7-207 #9-302 #11-386 #11-389 #11-403 #13-498 #15-639
$$GNCM #5-126 #7-205 7-207 7-212 7-213 7-223 7-228 #9-302 9-304 #11-386
11-389 11-392 11-403 11-406 11-407 11-412 #13-498 13-506 13-509 13-519
13-520 13-532 13-533 13-539 #15-639 15-642 15-656 15-657 15-663
$$INMC #5-126 5-126 #7-205 7-205 #9-302 9-302 #11-386 11-386 #13-498 13-498
#15-639 15-639
$$INSY #5-126 5-126 #7-205 7-205 #9-302 9-302 #11-386 11-386 #13-498 13-498
#15-639 15-639
$$LAB #5-126 #7-205 7-208 7-214 7-217 7-221 7-224 7-226 7-229 7-233
#9-302 9-305 9-310 9-320 #11-386 11-390 11-393 11-395 11-400 11-401
11-404 11-405 11-408 11-410 11-413 11-415 11-417 #13-498 13-507 13-510
13-521 13-524 13-526 13-529 13-530 13-534 13-537 13-540 13-543 13-545
#15-639 15-643 15-647 15-651 15-658 15-660 15-664 15-666 15-668 15-669
$$POP #5-126 #7-205 #7-217 #7-217 #7-221 #7-221 #7-226 #7-226 #7-233 #7-233
#9-302 #9-320 #9-320 #11-386 #11-400 #11-400 #11-401 #11-401 #11-410 #11-410
#11-415 #11-415 #11-417 #11-417 #13-498 #13-524 #13-524 #13-529 #13-529 #13-530
#13-530 #13-537 #13-537 #13-545 #13-545 #15-639 #15-651 #15-651 #15-668 #15-668
#15-668 #15-669 #15-669
$$POPI #5-126 #7-205 #7-217 #7-217 #7-221 #7-221 #7-226 #7-226 #7-233 #7-233
#9-302 #9-320 #9-320 #11-386 #11-400 #11-400 #11-401 #11-401 #11-410 #11-410
#11-415 #11-415 #11-417 #11-417 #13-498 #13-524 #13-524 #13-529 #13-529 #13-530
#13-530 #13-537 #13-537 #13-545 #13-545 #15-639 #15-651 #15-651 #15-668 #15-668
#15-668 #15-669 #15-669
$$PUSH #5-126 #7-205 #7-206 #7-206 #7-211 #7-211 #7-222 #7-222 #7-227 #7-227
#9-302 #9-303 #9-303 #11-386 #11-388 #11-388 #11-391 #11-391 #11-402 #11-402
MEMAIN CREATED BY MACRO ON 13-OCT-79 AT 12:15 PAGE 8
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#11-405 #11-405 #11-411 #11-411 #13-498 #13-505 #13-505 #13-508 #13-508 #13-518
#13-518 #13-531 #13-531 #13-538 #13-538 #15-639 #15-641 #15-641 #15-655 #15-655
#15-661 #15-661 #15-661
$$STSM #5-126 #7-205 #7-206 #7-206 #7-211 #7-211 #7-222 #7-222 #7-227 #7-227
#9-302 #9-303 #9-303 #11-386 #11-388 #11-388 #11-391 #11-391 #11-402 #11-402
#11-405 #11-405 #11-411 #11-411 #13-498 #13-505 #13-505 #13-508 #13-508 #13-518
#13-518 #13-531 #13-531 #13-538 #13-538 #15-639 #15-641 #15-641 #15-655 #15-655
#15-661 #15-661 #15-661
$$SYS #5-126 #7-205 #9-302 #11-386 #13-498 #15-639
$$TRCE #5-126 5-126 5-130 #7-205 7-205 7-234 #9-302 9-302 9-321 #11-386
11-386 11-419 #13-498 13-498 13-547 #15-639 15-639 15-671