Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/srroot.list
There are no other files named srroot.list in the archive.
SRROOT MACRO M1110 13-OCT-79 11:23
TABLE OF CONTENTS
8- 59 SRAST
9- 99 SRDISP
12- 310 SRIQUE
14- 395 SRNAST
15- 449 SRNEXT
17- 548 SRQUE
19- 631 SRSTFL
20- 676 SRSTTM
21- 720 SRSVCB
22- 811 SRSVWT
24- 880 SRTMST
25- 931 SRWAIT
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 3
1 .TITLE SRROOT
2 .IDENT /V01.01/
3 ;
4 ; COPYRIGHT (C) 1978 BY
5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
6 ;
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
9 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
11 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
12 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
13 ; TRANSFERRED.
14 ;
15 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
16 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
17 ; CORPORATION.
18 ;
19 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
20 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
21 ;
22 ;
23 ; MODULE DESCRIPTION:
24 ;
25 ; NCU SERVICE ROOT SEGMENT
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
35 ; 1.01 7-AUG-78 ALAN D. PECKHAM
36 ; ALTER HEADERS FOR AST PROCEDURES
37 ;
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 4
39 ;
40 ; +-------------------------------------------------+
41 ; I I
42 ; I S E R V I C E R O O T I
43 ; I - - - - - - - - - - - - I
44 ; I I
45 ; +-------------------------------------------------+
46 ;
47 ; FUNCTION:
48 ;
49 ; NICE/NCP ROOT RESIDENT SERVICE MODULES
50 ;
51 ; EXTERNAL MACROS
52 ;
53 .MCALL PROC,PROCLC,PROCAST,SRMDF ;AP0001
54 ; ;**-1
55 ; DEFINE COMMON READ/WRITE MEMORY
56 ;
57 000000 SRMDF ;SERVICE MEMORY
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 5
SRAST
59 .SBTTL SRAST
60 ;
61 ;======================================================================;
62 ;++
63 ; +-------------------------------------------------+
64 ; I I
65 ; I S R A S T I
66 ; I - - - - - I
67 ; I I
68 ; +-------------------------------------------------+
69 ;
70 ; FUNCTION:
71 ;
72 ; SERVICE MODULE TO HANDLE ASYNCHRONOUS I/O COMPLETION
73 ;
74 ; CALLING SEQUENCE: CALLED AS STANDARD AST FROM QIO MACRO
75 ;
76 ; INPUT:
77 ;
78 ; SP - STANDARD AST INFORMATION
79 ;
80 ; OUTPUT: NONE
81 ;
82 ; REQUIREMENTS:
83 ;
84 ;--
85 ;======================================================================;
86 ;
87 ;
88 ; EXTERNAL MACROS
89 ;
90 .MCALL ASTX$S
91 ;
92 ; PROCEDURE BODY
93 ;
94 000000 PROCAST SRAST ;AP0001
95 000000 005726 TST (SP)+ ;IGNORE I/O STATUS BLOCK ADDRESS ;**-1
96 000002 CALL SRSTFL ;SET SERVICE EVENT FLAG
97 000006 ENDAST ;AP0001
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 6
SRDISP
99 .SBTTL SRDISP
100 ;
101 ;======================================================================;
102 ;++
103 ; +-------------------------------------------------+
104 ; I I
105 ; I S R D I S P I
106 ; I - - - - - - I
107 ; I I
108 ; +-------------------------------------------------+
109 ;
110 ; FUNCTION:
111 ;
112 ; SERVICE MODULE TO DISPATCH A CONTROL BLOCK TO A SERVICE
113 ;
114 ; CALLING SEQUENCE: CALL SRDISP
115 ;
116 ; INPUT:
117 ;
118 ; R5 - ADDRESS OF CONTROL BLOCK
119 ; C.FUNC - FUNCTION CODE OF SERVICE
120 ; OTHER FIELDS - AS REQUIRED BY SERVICE
121 ;
122 ; OUTPUT:
123 ;
124 ; C-BIT - CLEAR IF DISPATCHED SUCCESSFULLY, SET IF NOT
125 ; @R5 - UPDATED CONTROL BLOCK
126 ; C.RET - ERROR CODE IF UNRECOGNIZED SERVICE
127 ;
128 ; REQUIREMENTS:
129 ;
130 ; CONTROL BLOCK SYMBOLS:
131 ;
132 ; C.FUNC - OFFSET OF FUNCTION CODE
133 ; C.RET - OFFSET OF RETURN CODE
134 ; CE$FUN - RETURN CODE FOR INVALID FUNCTION CODE
135 ; SERVICE FUNCTION CODES:
136 ;
137 ; C$.... - WHERE .... IS A FUNCTION MNEMONIC
138 ;
139 ; CONFIGURATION CONTROL FLAGS FOR SERVICES:
140 ;
141 ; F$.... - WHERE .... IS A FUNCTION CODE MNEMONIC
142 ;
143 ;--
144 ;======================================================================;
145 ;
146 ; EXTERNAL MACROS
147 ;
148 .MCALL CONDF,CONFIG
149 ;
150 ; INTERNAL MACRO TO BUILD SERVICE TABLE ENTRY
151 ;
152 .MACRO TABENT MNE
153 .IF NE F$'MNE
154 .WORD C$'MNE
155 .WORD .+2
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 6-1
SRDISP
156 .IF IDN MNE,STPS
157 JMP SRSTPR
158 .IFF
159 .IF IDN MNE,RDIS
160 JMP SRRDIN
161 .IFF
162 JMP SR'MNE
163 .ENDC
164 .ENDC
165 .ENDC
166 .ENDM
167 ;
168 ; DEFINE EXTERNAL SYMBOLS
169 ;
170 000014 CONDF ;CONTROL BLOCK SYMBOLS
171 000014 CONFIG ;CONFIGURATION CONTROLS
172 ;
173 ; DEFINE INTERNAL SYMBOLS
174 ;
175 000010 ENTLEN = 8. ;LENGTH OF TABLE ENTRY
176 000000 FUNCOD = 0. ;OFFSET OF FUNCTION CODE
177 000002 SERADR = 2. ;OFFSET OF SERVICE ADDRESS
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 7
SRDISP
179 ;
180 ; SERVICE TABLE
181 ;
182 000014 SERTAB:
183 ;
184 000014 TABENT ALBF ;ALLOCATE MEMORY BUFFER
185 000024 TABENT ALCB ;ALLOCATE CONTROL BLOCK
186 000034 TABENT CLCL ;CLOSE COMMAND OUTPUT MEDIUM FOR LOGGING
187 000044 TABENT CLCO ;CLOSE COMMAND OUTPUT MEDIUM
188 000044 TABENT CLFL ;CLOSE FILE
189 000044 TABENT CLLK ;CLOSE LOGICAL LINK
190 000054 TABENT CLLN ;CLOSE LINE
191 000064 TABENT OPCL ;OPEN COMMAND OUTPUT MEDIUM FOR LOGGING
192 000074 TABENT OPCO ;OPEN COMMAND OUTPUT MEDIUM
193 000074 TABENT OPIN ;OPEN INPUT FILE FOR BLOCK I/O
194 000074 TABENT OPIR ;OPEN INPUT FILE FOR RECORD I/O
195 000074 TABENT OPLK ;OPEN LOGICAL LINK
196 000104 TABENT OPLN ;OPEN LINE
197 000114 TABENT OPOR ;OPEN OUTPUT FILE FOR RECORD I/O
198 000114 TABENT OPOT ;OPEN OUTPUT FILE FOR BLOCK I/O
199 000114 TABENT RCBK ;RECEIVE BLOCK ON LINE
200 000124 TABENT RCEV ;RECEIVE EVENT
201 000134 TABENT RCIN ;RECEIVE INTERNAL DATA
202 000134 TABENT RCMA ;RECEIVE MESSAGE ASYNCH. ON LOGICAL LINK
203 000134 TABENT RCMS ;RECEIVE MESSAGE SYNCH. ON LOGICAL LINK
204 000144 TABENT RDBK ;READ BLOCK FROM FILE
205 000144 TABENT RDCM ;READ COMMAND MEDIUM
206 000144 TABENT RDIS ;READ INFORMATION
207 000154 TABENT RDRC ;READ RECORD FROM FILE
208 000154 TABENT RLBF ;RELEASE MEMORY BUFFER
209 000164 TABENT RLCB ;RELEASE CONTROL BLOCK
210 000174 TABENT STBK ;SET FILE BLOCK NUMBER
211 000174 TABENT STPS ;SET PARAMETER
212 000204 TABENT TRBK ;TRANSMIT BLOCK ON LINE
213 000214 TABENT TRIN ;TRANSMIT INTERNAL DATA
214 000214 TABENT TRMA ;TRANSMIT MESSAGE ASYNCH. ON LOGICAL LINK
215 000214 TABENT TRMS ;TRANSMIT MESSAGE SYNCH. ON LOGICAL LINK
216 000224 TABENT WRBK ;WRITE BLOCK TO FILE
217 000224 TABENT WRCL ;WRITE COMMAND OUTPUT MEDIUM FOR LOGGING
218 000234 TABENT WRCM ;WRITE COMMAND MEDIUM
219 000234 TABENT WRRC ;WRITE RECORD TO FILE
220 000234 TABENT ZRCN ;ZERO COUNTERS
221 ;
222 000244 TABEND:
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 8
SRDISP
224 ;
225 ; LOCAL PROCEDURE BODY
226 ;
227 000244 PROCLC SRDISP
228 000244 116500 000006 MOVB C.FUNC(R5),R0 ;GET FUNCTION CODE OF SERVICE REQUESTED
229 000250 012701 000014' MOV #SERTAB,R1 ;GET ADDRESS OF SERVICE TABLE
230 000254 005002 CLR R2 ;NO SERVICE ADDRESS SET
231 000256 WHILE ; NO SERVICE ADDRESS SET AND CURRENT TABLE ADDRESS < END
232 000256 FALSE SET R2
233 000262 FALSE HIS R1,#TABEND
234 000270 DO
235 000270 IF ; SERVICE REQUESTED = THIS ONE
236 000270 FALSE NE FUNCOD(R1),R0
237 000276 THEN
238 000276 016102 000002 MOV SERADR(R1),R2 ;SET SERVICE ADDRESS
239 000302 ELSE
240 000304 062701 000010 ADD #ENTLEN,R1 ;MOVE TO NEXT ENTRY
241 000310 ENDIF
242 000310 ENDWHILE
243 000312 IF ; SERVICE ADDRESS SET
244 000312 FALSE CLEAR R2
245 000316 THEN
246 000316 CALL @R2 ;DISPATCH SERVICE
247 000320 ELSE
248 000322 112765 177777 000010 MOVB #CE$FUN,C.RET(R5) ;SET ERROR RETURN FOR INVALID FUNCTION
249 000330 000241 CLC ;THIS SERVICE IS COMPLETE
250 000332 ENDIF
251 000332 ENDPROC
252 .IF NE F$RDCM
253 .PAGE
254 .SBTTL SRGAST
255 ;
256 ;======================================================================;
257 ;++
258 ; +-------------------------------------------------+
259 ; I I
260 ; I S R G A S T I
261 ; I - - - - - - I
262 ; I I
263 ; +-------------------------------------------------+
264 ;
265 ; FUNCTION:
266 ;
267 ; SERVICE AST MODULE FOR GET COMMAND LINE TERMINAL INPUT
268 ;
269 ; CALLING SEQUENCE: CALLED AS STANDARD AST
270 ;
271 ; INPUT:
272 ;
273 ; SP - STANDARD AST INFORMATION
274 ;
275 ; OUTPUT: NONE
276 ;
277 ; REQUIREMENTS:
278 ;
279 ; COMMAND MEDIUM INPUT SYMBOL:
280 ;
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 8-1
SRDISP
281 ; TERINP - TERMINAL INPUT FLAG
282 ;
283 ; EFFECTS:
284 ;
285 ; OUTPUT VIA CMIDAT:
286 ;
287 ; CMIFLG - TERMINAL INPUT FLAG SET
288 ;
289 ;--
290 ;======================================================================;
291 ;
292 ;
293 ; EXTERNAL MACROS
294 ;
295 .MCALL PROC,CMIMDF,ASTX$S
296 ;
297 ; DEFINE READ/WRITE MEMORY
298 ;
299 CMIMDF ;COMMAND MEDIUM INPUT MEMORY
300 ;
301 ; PROCEDURE BODY
302 ;
303 PROCAST SRGAST ;AP0001
304 TST (SP)+ ;PULL I/O STATUS BLOCK ADDRESS OFF STACK ;**-1
305 BISB #TERINP,CMIFLG ;SET TERMINAL INPUT FLAG
306 CALL SRSTFL ;SET SERVICE EVENT FLAG
307 ENDAST ;AP0001
308 .ENDC ;**-2
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 9
SRIQUE
310 .SBTTL SRIQUE
311 ;
312 ;======================================================================;
313 ;++
314 ; +-------------------------------------------------+
315 ; I I
316 ; I S R I Q U E I
317 ; I - - - - - - I
318 ; I I
319 ; +-------------------------------------------------+
320 ;
321 ; FUNCTION:
322 ;
323 ; SERVICE MODULE TO QUEUE A SERVICE REQUEST
324 ;
325 ; CALLING SEQUENCE: CALL SRIQUE
326 ;
327 ; INPUT:
328 ;
329 ; R5 - ADDRESS OF CONTROL BLOCK DESCRIBING SERVICE REQUEST
330 ; C.FUNC - FUNCTION CODE OF SERVICE
331 ; OTHER FIELDS - AS REQUIRED ACCORDING TO SERVICE
332 ;
333 ; OUTPUT:
334 ;
335 ; R5 - ZERO
336 ;
337 ; REQUIREMENTS:
338 ;
339 ; INPUT VIA SRDAT:
340 ;
341 ; INPRHD - IN-PROCESS QUEUE HEAD
342 ; ORWTHD - ORDERED WAIT QUEUE HEAD
343 ; UNWTHD - UNORDERED WAIT QUEUE HEAD
344 ;
345 ; CONTROL BLOCK SYMBOLS:
346 ;
347 ; C.FUNC - OFFSET OF FUNCTION CODE
348 ; C$NORD - BEGINNING VALUE OF UNORDERED FUNCTION CODES
349 ; C$ORD - BEGINNING VALUE OF ORDERED FUNCTION CODES
350 ;
351 ; EFFECTS:
352 ;
353 ; OUTPUT VIA SRDAT:
354 ;
355 ; INPRHD - UPDATED IF SERVICE REQUEST GOES IN PROCESS
356 ; ORWTHD - UPDATED IF ORDERED SERVICE PROCESSED
357 ; UNWTHD - UPDATED IF UNORDERED SERVICE PROCESSED
358 ;
359 ;--
360 ;======================================================================;
361 ;
362 ;
363 ; EXTERNAL MACROS
364 ;
365 .MCALL CONDF
366 ;
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 9-1
SRIQUE
367 ; DEFINE EXTERNAL SYMBOLS
368 ;
369 000334 CONDF ;CONTROL BLOCK SYMBOLS
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 10
SRIQUE
371 ;
372 ; LOCAL PROCEDURE BODY
373 ;
374 000334 PROCLC SRIQUE
375 000334 116500 000006 MOVB C.FUNC(R5),R0 ;GET FUNCTION CODE
376 000340 IF ; NON-FAILING SERVICE
377 000340 FALSE GE R0,#C$NORD
378 000346 THEN
379 000346 CALL SRDISP ;DISPATCH IT
380 000352 012700 000010' MOV #INPRHD,R0 ;SET UP TO PUT ON IN PROCESS QUEUE
381 000356 ELSE
382 000360 IF ; ORDERED SERVICE
383 000360 FALSE LT R0,#C$ORD
384 000366 THEN
385 000366 012700 000000' MOV #ORWTHD,R0 ;SET UP TO PUT ON ORDERED WAIT QUEUE
386 000372 ELSE
387 000374 012700 000004' MOV #UNWTHD,R0 ;SET UP TO PUT ON UNORDERED WAIT QUEUE
388 000400 ENDIF
389 000400 ENDIF
390 000400 CALL APPQUE ;PUT CONTROL BLOCK ON PROPER QUEUE
391 000404 005005 CLR R5 ;SET RETURN REGISTER
392 000406 CALL SRSVWT ;SERVICE THE WAIT QUEUES
393 000412 ENDPROC
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 11
SRNAST
395 .SBTTL SRNAST
396 ;
397 ;======================================================================;
398 ;++
399 ; +-------------------------------------------------+
400 ; I I
401 ; I S R N A S T I
402 ; I - - - - - - I
403 ; I I
404 ; +-------------------------------------------------+
405 ;
406 ; FUNCTION:
407 ;
408 ; SERVICE AST MODULE FOR GET NETWORK DATA INTERFACE
409 ;
410 ; CALLING SEQUENCE: CALLED AS STANDARD AST
411 ;
412 ; INPUT:
413 ;
414 ; SP - STANDARD AST INFORMATION
415 ;
416 ; OUTPUT: NONE
417 ;
418 ; REQUIREMENTS:
419 ;
420 ; INPUT VIA GNDDAT:
421 ;
422 ; GNDCNT - NUMBER OF GET NETWORK DATA EVENTS AVAILABLE
423 ;
424 ; EFFECTS:
425 ;
426 ; OUTPUT VIA GNDDAT:
427 ;
428 ; GNDCNT - UPDATED NUMBER OF EVENTS AVAILABLE
429 ;
430 ;--
431 ;======================================================================;
432 ;
433 ;
434 ; EXTERNAL MACROS
435 ;
436 .MCALL GNDMDF,ASTX$S
437 ;
438 ; DEFINE READ/WRITE MEMORY
439 ;
440 000414 GNDMDF ;GET NETWORK DATA INTERFACE MEMORY
441 ;
442 ; PROCEDURE BODY
443 ;
444 000414 PROCAST SRNAST ;AP0001
445 000414 005267 000004' INC GNDCNT ;ADD ONE TO THE PENDING RECEIVE COUNT ;**-1
446 000420 CALL SRSTFL ;SET THE SERVICE EVENT FLAG
447 000424 ENDAST ;AP0001
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 12
SRNEXT
449 .SBTTL SRNEXT
450 ;
451 ;======================================================================;
452 ;++
453 ; +-------------------------------------------------+
454 ; I I
455 ; I S R N E X T I
456 ; I - - - - - - I
457 ; I I
458 ; +-------------------------------------------------+
459 ;
460 ; FUNCTION:
461 ;
462 ; TOP LEVEL SERVICE MODULE TO GET NEXT COMPLETED REQUEST
463 ;
464 ; CALLING SEQUENCE: CALL SRNEXT
465 ;
466 ; INPUT: NONE
467 ;
468 ; OUTPUT:
469 ;
470 ; R5 - ADDRESS OF CONTROL BLOCK
471 ; C.RET - NON-ZERO
472 ; OTHER FIELDS - ACCORDING TO SERVICE
473 ;
474 ; REQUIREMENTS:
475 ;
476 ; INPUT VIA SRDAT:
477 ;
478 ; INPRHD - IN-PROCESS QUEUE HEAD
479 ;
480 ; CONTROL BLOCK SYMBOLS:
481 ;
482 ; C.RET - OFFSET OF RETURN CODE
483 ; C.SERV - OFFSET OF SERVICE CONTEXT
484 ;
485 ; SERVICE SYMBOLS:
486 ;
487 ; SERFLG - SERVICE EVENT FLAG NUMBER
488 ;
489 ; EFFECTS:
490 ;
491 ; OUTPUT VIA SRDAT:
492 ;
493 ; INPRHD - UPDATED QUEUE
494 ;
495 ;--
496 ;======================================================================;
497 ;
498 ;
499 ; EXTERNAL MACROS
500 ;
501 .MCALL CONDF,SRDF,CLEF$S
502 ;
503 ; DEFINE EXTERNAL SYMBOLS
504 ;
505 000432 CONDF ;CONTROL BLOCK SYMBOLS
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 12-1
SRNEXT
506 000432 SRDF ;SERVICE SYMBOLS
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 13
SRNEXT
508 ;
509 ; PROCEDURE BODY
510 ;
511 000432 PROC SRNEXT
512 000432 005005 CLR R5 ;SET NOTHING TO RETURN
513 000434 WHILE ; NOTHING TO RETURN
514 000434 FALSE SET R5
515 000440 DO
516 000440 CLEF$S #SERFLG ;CLEAR SERVICE COMPLETION FLAG
517 000452 CALL SRSVWT ;SERVICE WAIT QUEUES
518 000456 CALL SRGNDC ;CHECK NETWORK COMPLETIONS
519 000462 012700 000010' MOV #INPRHD,R0 ;GET ADDRESS OF IN-PROCESS QUEUE HEAD
520 000466 010001 MOV R0,R1 ;SET UP TO GET FIRST CONTROL BLOCK
521 000470 WHILE ; NO COMPLETION FOUND AND ANOTHER CONTROL BLOCK ON LIST
522 000470 FALSE SET R5
523 000474 011105 MOV (R1),R5
524 000476 FALSE CLEAR R5
525 000502 DO
526 000502 IF ; NOT COMPLETE
527 000502 FALSEB SET C.RET(R5)
528 000510 THEN
529 000510 010501 MOV R5,R1 ;MAKE THIS CONTROL BLOCK THE PREVIOUS
530 000512 005005 CLR R5 ;DON'T REMEMBER AS COMPLETED
531 000514 ENDIF
532 000514 ENDWHILE
533 000516 IF ; SOMETHING FOUND
534 000516 FALSE CLEAR R5
535 000522 THEN
536 000522 CALL REMQUE ;REMOVE IT FROM QUEUE
537 000526 IF ; SERVICE NOT COMPLETED
538 000526 FALSE CLEAR C.SERV(R5)
539 000534 THEN
540 000534 CALL SRIQUE ;QUEUE IT AGAIN
541 000540 ENDIF
542 000540 ELSE
543 000542 CALL SRWAIT ;WAIT FOR SOMETHING TO HAPPEN
544 000546 ENDIF
545 000546 ENDWHILE
546 000550 ENDPROC
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 14
SRQUE
548 .SBTTL SRQUE
549 ;
550 ;======================================================================;
551 ;++
552 ; +-------------------------------------------------+
553 ; I I
554 ; I S R Q U E I
555 ; I - - - - - I
556 ; I I
557 ; +-------------------------------------------------+
558 ;
559 ; FUNCTION:
560 ;
561 ; TOP LEVEL SERVICE MODULE TO QUEUE A SERVICE REQUEST
562 ;
563 ; CALLING SEQUENCE: CALL SRQUE
564 ;
565 ; INPUT:
566 ;
567 ; R5 - ADDRESS OF LIST OF CONTROL BLOCK DESCRIBING SERVICE REQUESTS
568 ; FIRST WORD - ADDRESS OF NEXT CONTROL BLOCK, ZERO IF NONE
569 ; C.FUNC - FUNCTION CODE OF SERVICE
570 ; OTHER FIELDS - AS REQUIRED ACCORDING TO SERVICE
571 ;
572 ; OUTPUT:
573 ;
574 ; R5 - ZERO
575 ;
576 ; REQUIREMENTS:
577 ;
578 ; CONTROL BLOCK SYMBOLS:
579 ;
580 ; C.FUNC - OFFSET OF FUNCTION CODE
581 ; C.RET - OFFSET OF RETURN CODE
582 ; C.SERV - OFFSET OF SERVICE CONTEXT
583 ; C$NOPN - FUNCTION CODE FOR NO OPERATION, NO RETURN
584 ; C$RLCI - FUNCTION CODE FOR RELEASE CONTROL BLOCK IMMEDIATE
585 ;
586 ;--
587 ;======================================================================;
588 ;
589 ;
590 ; EXTERNAL MACROS
591 ;
592 .MCALL CONDF,SAVSTK,RESSTK
593 ;
594 ; DEFINE EXTERNAL SYMBOLS
595 ;
596 000552 CONDF ;CONTROL BLOCK SYMBOLS
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 15
SRQUE
598 ;
599 ; PROCEDURE BODY
600 ;
601 000552 PROC SRQUE
602 000552 SAVSTK <R3> ;SAVE REGISTER
603 000554 010503 MOV R5,R3 ;INITIALIZE LIST POINTER
604 000556 WHILE ; LIST POINTER <> 0
605 000556 FALSE CLEAR R3
606 000562 DO
607 000562 010305 MOV R3,R5 ;MAKE THIS THE CURRENT CONTROL BLOCK
608 000564 011303 MOV (R3),R3 ;MOVE LIST POINTER UP TO NEXT
609 000566 005015 CLR (R5) ;CLEAR POINTER IN CURRENT CONTROL BLOCK
610 000570 ONCASE ; FUNCTION CODE
611 000570 116500 000006 MOVB C.FUNC(R5),R0
612 000574 CASE ; NO OPERATION, NO RETURN
613 000574 FALSE NE R0,#C$NOPN
614 000602 DO
615 000602 005005 CLR R5 ;JUST MAKE IT GO AWAY
616 000604 CASE ; RELEASE CONTROL BLOCK IMMEDIATE
617 000606 FALSE NE R0,#C$RLCI
618 000614 DO
619 000614 010500 MOV R5,R0 ;ADDRESS OF CONTROL BLOCK
620 000616 CALL SRRLCI ;LET IT GO
621 000622 005005 CLR R5 ;SET FOR RETURN
622 000624 ELSE
623 000626 005065 000002 CLR C.SERV(R5) ;INITIALIZE CONTEXT FOR LOWER LEVELS
624 000632 005065 000010 CLR C.RET(R5) ;LIKEWISE RETURN CODE
625 000636 CALL SRIQUE ;AND QUEUE THE REQUEST
626 000642 ENDCASE
627 000642 ENDWHILE
628 000644 RESSTK <R3> ;RESTORE REGISTER
629 000646 ENDPROC
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 16
SRSTFL
631 .SBTTL SRSTFL
632 ;
633 ;======================================================================;
634 ;++
635 ; +-------------------------------------------------+
636 ; I I
637 ; I S R S T F L I
638 ; I - - - - - - I
639 ; I I
640 ; +-------------------------------------------------+
641 ;
642 ; FUNCTION:
643 ;
644 ; SERVICE MODULE TO SET SERVICE EVENT FLAG
645 ;
646 ; CALLING SEQUENCE: CALL SRSTFL
647 ;
648 ; INPUT: NONE
649 ;
650 ; OUTPUT: NONE
651 ;
652 ; REQUIREMENTS:
653 ;
654 ; SERVICE MODULE SYMBOLS:
655 ;
656 ; SERFLG - I/O SERVICE EVENT FLAG NUMBER
657 ;
658 ;--
659 ;======================================================================;
660 ;
661 ;
662 ; EXTERNAL MACROS
663 ;
664 .MCALL SRDF,SETF$S
665 ;
666 ; DEFINE EXTERNAL SYMBOLS
667 ;
668 000650 SRDF ;SERVICE SYMBOLS
669 ;
670 ; PROCEDURE BODY
671 ;
672 000650 PROC SRSTFL
673 000650 SETF$S #SERFLG ;MAKE THE SERVICE WORLD TURN
674 000662 ENDPROC
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 17
SRSTTM
676 .SBTTL SRSTTM
677 ;
678 ;======================================================================;
679 ;++
680 ; +-------------------------------------------------+
681 ; I I
682 ; I S R S T T M I
683 ; I - - - - - - I
684 ; I I
685 ; +-------------------------------------------------+
686 ;
687 ; FUNCTION:
688 ;
689 ; SERVICE MODULE TO SET ONE SECOND SERVICE TIMER
690 ;
691 ; INPUT: NONE
692 ;
693 ; OUTPUT: NONE
694 ;
695 ; REQUIREMENTS:
696 ;
697 ; SERVICE SYMBOLS:
698 ;
699 ; TIMFLG - TIMER EVENT FLAG NUMBER
700 ;
701 ;--
702 ;======================================================================;
703 ;
704 ; EXTERNAL MACROS
705 ;
706 .MCALL SRDF
707 ;
708 ; DEFINE EXTERNAL SYMBOLS
709 ;
710 000664 SRDF ;SERVICE SYMBOLS
711 ;
712 ; PROCEDURE BODY
713 ;
714 000664 PROC SRSTTM
715 000664 012700 000001 MOV #1.,R0 ;ONE SECOND
716 000670 012701 000002 MOV #TIMFLG,R1 ;EVENT FLAG
717 000674 CALL SRTMST ;SET TIMER
718 000700 ENDPROC
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 18
SRSVCB
720 .SBTTL SRSVCB
721 ;
722 ;======================================================================;
723 ;++
724 ; +-------------------------------------------------+
725 ; I I
726 ; I S R S V C B I
727 ; I - - - - - - I
728 ; I I
729 ; +-------------------------------------------------+
730 ;
731 ; FUNCTION:
732 ;
733 ; SERVICE MODULE TO SERVICE A QUEUED CONTROL BLOCK
734 ;
735 ; CALLING SEQUENCE: CALL SRSVCB
736 ;
737 ; INPUT:
738 ;
739 ; R3 - ADDRESS OF HEAD OF QUEUE BLOCK IS ON
740 ; R4 - ADDRESS OF POINTER TO THIS BLOCK
741 ; R5 - ADDRESS OF CONTROL BLOCK
742 ;
743 ; OUTPUT:
744 ;
745 ; C-BIT - CLEAR IF CONTROL BLOCK MOVED TO IN-PROCESS, SET IF NOT
746 ; @R3 - UPDATED QUEUE BLOCK WAS ON
747 ; R4 - PROPER PREVIOUS ADDRESS
748 ; @R4 - UPDATED POINTER TO NEXT BLOCK
749 ;
750 ; REQUIREMENTS:
751 ;
752 ; INPUT VIA SRDAT:
753 ;
754 ; INPRHD - HEAD OF IN-PROCESS QUEUE
755 ;
756 ; CONTROL BLOCK SYMBOLS:
757 ;
758 ; C.RET - OFFSET OF RETURN CODE
759 ;
760 ; EFFECTS:
761 ;
762 ; OUTPUT VIA SRDAT:
763 ;
764 ; @INPRHD - UPDATED IN-PROCESS QUEUE
765 ;
766 ;--
767 ;======================================================================;
768 ;
769 ;
770 ; EXTERNAL MACROS
771 ;
772 .MCALL CONDF,SAVSTK,RESSTK
773 000702 CONDF ;CONTROL BLOCK SYMBOLS
774 ;
775 ; LOCAL PROCEDURE BODY
776 ;
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 18-1
SRSVCB
777 000702 PROCLC SRSVCB
778 000702 010300 MOV R3,R0 ;ADDRESS OF LIST HEAD
779 000704 010401 MOV R4,R1 ;ADDRESS OF POINTER
780 000706 CALL REMQUE ;REMOVE BLOCK FROM CURRENT LIST
781 000712 CALL SRDISP ;DISPATCH THE SERVICE
782 000716 IF ; SUCCESS
783 000716 FALSE CS
784 000720 THEN
785 000720 012700 000010' MOV #INPRHD,R0 ;ADDRESS OF IN-PROCESS QUEUE HEAD
786 000724 CALL APPQUE ;APPEND TO IN-PROCESS QUEUE
787 000730 000241 CLC ;SET SUCCESS
788 000732 ELSE
789 000734 IF ; CHAIN RETURNED AND FIRST CONTROL BLOCK IS A COMPLETION
790 000734 FALSE CLEAR (R5)
791 000740 FALSEB CLEAR C.RET(R5)
792 000746 THEN
793 000746 SAVSTK <(R5)> ;SAVE POINTER TO NEXT CONTROL BLOCK
794 000750 005015 CLR (R5) ;MAKE THIS ONE A SOLO
795 000752 012700 000010' MOV #INPRHD,R0 ;ADDRESS OF IN-PROCESS QUEUE HEAD
796 000756 CALL APPQUE ;PUT COMPLETION ON IN-PROCESS QUEUE
797 000762 RESSTK <R5> ;GET BACK THE REAL ONE
798 000764 ENDIF
799 000764 011415 MOV (R4),(R5) ;MOVE POINTER FROM PREVIOUS BACK
800 000766 010514 MOV R5,(R4) ;PUT THIS ONE BACK IN LIST
801 000770 010504 MOV R5,R4 ;MAKE THIS ONE PREVIOUS
802 000772 IF ; THIS ONE IS LAST
803 000772 FALSE SET (R5)
804 000776 THEN
805 000776 010563 000002 MOV R5,2(R3) ;UPDATE TAIL POINTER
806 001002 ENDIF
807 001002 000261 SEC ;DIDN'T QUEUE IT
808 001004 ENDIF
809 001004 ENDPROC
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 19
SRSVWT
811 .SBTTL SRSVWT
812 ;
813 ;======================================================================;
814 ;++
815 ; +-------------------------------------------------+
816 ; I I
817 ; I S R S V W T I
818 ; I - - - - - - I
819 ; I I
820 ; +-------------------------------------------------+
821 ;
822 ; FUNCTION:
823 ;
824 ; SERVICE MODULE TO SERVICE WAIT QUEUES
825 ;
826 ; CALLING SEQUENCE: CALL SRSVWT
827 ;
828 ; INPUT: NONE
829 ;
830 ; OUTPUT: NONE
831 ;
832 ; REQUIREMENTS:
833 ;
834 ; INPUT VIA SRDAT:
835 ;
836 ; ORWTHD - HEAD OF ORDERED WAIT QUEUE
837 ; UNWTHD - HEAD OF UNORDERED WAIT QUEUE
838 ;
839 ; EFFECTS:
840 ;
841 ; OUTPUT VIA SRDAT:
842 ;
843 ; @ORWTHD - UPDATED ORDERED WAIT QUEUE
844 ; @UNWTHD - UPDATED UNORDERED WAIT QUEUE
845 ;
846 ;--
847 ;======================================================================;
848 ;
849 ;
850 ; EXTERNAL MACROS
851 ;
852 .MCALL SAVSTK,RESSTK
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 20
SRSVWT
854 ;
855 ; LOCAL PROCEDURE BODY
856 ;
857 001006 PROCLC SRSVWT
858 001006 SAVSTK <R3,R4,R5> ;SAVE REGISTERS
859 001014 012703 000000' MOV #ORWTHD,R3 ;ADDRESS OF ORDERED WAIT QUEUE HEAD
860 001020 010304 MOV R3,R4 ;MAKE IT THE POINTER TO PREVIOUS
861 001022 000241 CLC ;SET SUCCESS
862 001024 WHILE ; SUCCESS AND POINTER TO NEXT <> 0
863 001024 FALSE CS
864 001026 011405 MOV (R4),R5
865 001030 FALSE CLEAR R5
866 001034 DO
867 001034 CALL SRSVCB ;SERVICE THE CONTROL BLOCK
868 001040 ENDWHILE
869 001042 012703 000004' MOV #UNWTHD,R3 ;ADDRESS OF UNORDERED WAIT QUEUE HEAD
870 001046 010304 MOV R3,R4 ;MAKE IT THE POINTER TO PREVIOUS
871 001050 WHILE ; POINTER TO NEXT <> 0
872 001050 011405 MOV (R4),R5
873 001052 FALSE CLEAR R5
874 001056 DO
875 001056 CALL SRSVCB ;SERVICE THE CONTROL BLOCK
876 001062 ENDWHILE
877 001064 RESSTK <R5,R4,R3> ;RESTORE REGISTERS
878 001072 ENDPROC
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 21
SRTMST
880 .SBTTL SRTMST
881 ;
882 ;======================================================================;
883 ;++
884 ; +-------------------------------------------------+
885 ; I I
886 ; I S R T M S T I
887 ; I - - - - - - I
888 ; I I
889 ; +-------------------------------------------------+
890 ;
891 ; FUNCTION:
892 ;
893 ; SERVICE MODULE TO SET A TIMER
894 ;
895 ; INPUT:
896 ;
897 ; R0 - NUMBER OF SECONDS TO TIME
898 ; R1 - EVENT FLAG TO USE
899 ;
900 ; OUTPUT: NONE
901 ;
902 ; NOTES:
903 ;
904 ; IF TIMER CANNOT BE SET DUE TO SYSTEM RESOURCE PROBLEMS, THE
905 ; ROUTINE WILL NOT RETURN UNTIL IT CAN.
906 ;
907 ;--
908 ;======================================================================;
909 ;
910 ; EXTERNAL MACROS
911 ;
912 .MCALL MRKT$S,WSIG$S
913 ;
914 ; PROCEDURE BODY
915 ;
916 001074 PROC SRTMST
917 001074 000261 SEC ;INITIALIZE DONE FLAG
918 001076 WHILE ; TIMER NOT SET
919 001076 FALSE CC
920 001100 DO
921 001100 MRKT$S R1,R0,#2 ;SET UP TIMER
922 001120 IF ; FAILURE
923 001120 FALSE CC
924 001122 THEN
925 001122 WSIG$S ;WAIT FOR SOMETHING TO HAPPEN
926 001130 000261 SEC ;REMEMBER, WE FAILED
927 001132 ENDIF
928 001132 ENDWHILE
929 001134 ENDPROC
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 22
SRWAIT
931 .SBTTL SRWAIT
932 ;
933 ;======================================================================;
934 ;++
935 ; +-------------------------------------------------+
936 ; I I
937 ; I S R W A I T I
938 ; I - - - - - - I
939 ; I I
940 ; +-------------------------------------------------+
941 ;
942 ; FUNCTION:
943 ;
944 ; SERVICE MODULE TO WAIT FOR A SERVICE EVENT FLAG TO BE SET
945 ;
946 ; CALLING SEQUENCE: CALL SRWAIT
947 ;
948 ; INPUT: NONE
949 ;
950 ; OUTPUT: NONE
951 ;
952 ; REQUIREMENTS:
953 ;
954 ; TEMPORARY MEMORY:
955 ;
956 ; TEMBLK - FIRST FOUR WORDS
957 ;
958 ; SERVICE SYMBOLS:
959 ;
960 ; FLGGRP - EVENT FLAG GROUP NUMBER
961 ; FLGMSK - EVENT FLAG MASK VALUE
962 ; SERBIT - BIT TO CHECK FOR SERVICE COMPLETION
963 ;
964 ;--
965 ;======================================================================;
966 ;
967 ;
968 ; EXTERNAL MACROS
969 ;
970 .MCALL PROC,SRDF,WTLO$S,RDAF$S,TEMMDF
971 ;
972 ; DEFINE EXTERNAL SYMBOLS
973 ;
974 001136 SRDF ;SERVICE SYMBOLS
975 ;
976 ; DEFINE READ/WRITE STORAGE
977 ;
978 001136 TEMMDF ;TEMPORARY MEMORY BLOCK
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 23
SRWAIT
980 ;
981 ; LOCAL PROCEDURE BODY
982 ;
983 001136 PROCLC SRWAIT
984 001136 005067 000000' CLR TEMBLK
985 001142 WTLO$S FLGGRP,#FLGMSK ;WAIT FOR TIMER OR I/O COMPLETION
986 001156 RDAF$S #TEMBLK ;READ FLAG STATES
987 001170 IF ; SERVICE FLAG NOT SET
988 001170 FALSE SET #SERBIT,TEMBLK
989 001200 THEN ;MUST BE TIMER
990 001200 CALL SRSTTM ;RESET TIMER
991 001204 ENDIF
992 001204 ENDPROC
993 000001 .END
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 23-1
SYMBOL TABLE
APPQUE= ****** GX C$ORD = 000145 FL$DUM= 000001 F$ORLU= 000000 LNKLUN= 000004
A$$CHK= 000000 C$PROC= 000200 FL$LOA= 000001 F$OTLU= 000001 LUNSAV 000151R 003
A$$CPS= 000000 C$RCBK= 000047 FL$LOO= 000001 F$RCBK= 000002 L$$ASG= 000000
A$$TRP= 000000 C$RCEV= 000050 FR$LCC= 000001 F$RCEV= 000001 L$$DRV= 000000
BLKFLG= 000003 C$RCIN= 000062 FR$LCS= 000001 F$RCIN= 000000 L$$P11= 000001
CE$ACP= 177753 C$RCMA= 000146 FR$LNC= 000001 F$RCMA= 000000 L$$11R= 000000
CE$ADR= 177776 C$RCMS= 000054 FR$LNL= 000001 F$RCMS= 000002 M$$CRB= 000124
CE$CON= 177770 C$RDBK= 000043 FR$LNS= 000001 F$RDBK= 000000 M$$CRX= 000000
CE$DIS= 177771 C$RDCM= 000035 FR$RMC= 000001 F$RDCM= 000000 M$$FCS= 000000
CE$EOF= 177767 C$RDIN= 000040 FR$RML= 000001 F$RDIN= 000001 M$$OVR= 000000
CE$FAI= 177774 C$RDIS= 000040 FR$RMS= 000001 F$RDIS= 000012 NCOLUN= 000016
CE$FIL= 177756 C$RDRC= 000060 FS$HOS= 000001 F$RDRC= 000000 NETLUN= 000003
CE$FUN= 177777 C$RLBF= 000001 FS$INT= 000000 F$RECO= 000001 NE$ABO= 000046
CE$GEN= 177774 C$RLCB= 000002 FS$LLP= 000001 F$RLBF= 000001 NE$ABT= 000011
CE$IND= 177757 C$RLCI= 000000 FS$LOF= 000001 F$RLCB= 000001 NE$ACC= 000042
CE$IO = 177760 C$STBK= 000055 FS$LOG= 000001 F$STBK= 000000 NE$ACT= 000044
CE$LEN= 177775 C$STPR= 000037 FS$LST= 000001 F$STPR= 000001 NE$CDI= 000052
CE$LID= 177766 C$STPS= 000037 FS$NET= 000001 F$STPS= 000006 NE$COM= 000047
CE$LST= 177752 C$TRBK= 000046 FS$NST= 000000 F$TEST= 000001 NE$FCF= 000050
CE$NOD= 177765 C$TRIN= 000063 FS$PAS= 000001 F$TRAC= 000000 NE$FMT= 000005
CE$NSD= 177755 C$TRMA= 000145 FT$CNS= 000000 F$TRBK= 000001 NE$GEN= 000007
CE$NST= 177754 C$TRMS= 000053 FT$NOD= 000001 F$TRIG= 000001 NE$ILS= 000043
CE$NWE= 177773 C$WRBK= 000044 FT$TSK= 000001 F$TRIN= 000000 NE$IMG= 000053
CE$OBJ= 177750 C$WRCL= 000065 FUNCOD= 000000 F$TRMA= 000000 NE$MLB= 000006
CE$OPN= 177761 C$WRCM= 000036 F$ALBF= 000001 F$TRMS= 000002 NE$NOD= 000002
CE$OVR= 177764 C$WRRC= 000061 F$ALCB= 000001 F$WRBK= 000000 NE$NSD= 000003
CE$PAR= 177763 C$ZRCN= 000064 F$CB = 000017 F$WRCL= 000001 NE$RES= 000001
CE$PRO= 177751 C$$CKP= 000000 F$CLCL= 000001 F$WRCM= 000000 NE$SSR= 000000
CE$REJ= 177772 C$$ORE= 000400 F$CLCO= 000000 F$WRRC= 000000 NE$SSS= 000045
CE$TMO= 177762 C$$RSH= 177564 F$CLFL= 000000 F$ZERO= 000001 NE$STA= 000051
CMILUN= 000002 C.ADDR= 000014 F$CLLK= 000006 F$ZRCN= 000001 NE$TCN= 000040
CMOLUN= 000001 C.BKNM= 000014 F$CLLN= 000002 F$$LVL= 000001 NE$TCO= 000041
CONBLK 000006R 003 C.CTXT= 000004 F$DPOS= 000001 F$150 = 000002 NE$TPA= 000010
CS$ACK= 000002 C.FUNC= 000006 F$DUMP= 000000 F$300 = 000012 NE$UOB= 000004
CS$LKE= 000001 C.LEN = 000012 F$EVNT= 000001 F$50 = 000002 NO = 000000
CS$LNA= 000002 C.LINE= 000014 F$EXAM= 000001 F$550 = 000002 NO.DTR= 000077
CS$LOG= 000003 C.LKNM= 000020 F$EXHO= 000000 GNDCNT 000004R 003 NO.FAL= 000021
CS$NCH= 000003 C.LUN = 000020 F$GTCM= 000001 GNDSTA 000150R 003 NO.FA1= 000001
CS$SUC= 000001 C.MODE= 000021 F$INCM= 000000 G$$TPP= 000000 NO.NCU= 000023
C$ALBF= 000032 C.PRID= 000017 F$INLU= 000001 G$$TSS= 000000 NO.RTL= 000022
C$ALCB= 000033 C.PROC= 000007 F$IRLU= 000000 G$$TTK= 000000 NO.TAS= 000000
C$CLCL= 000067 C.PROM= 000016 F$LKLU= 000010 IE.NDA= 177662 NO.TCL= 000017
C$CLCO= 000003 C.PTR = 000000 F$LNLU= 000002 IE.NNT= 177660 NO.TC1= 000005
C$CLFL= 000004 C.RET = 000010 F$LNSR= 000001 IE.NRJ= 177666 NO.TLK= 000020
C$CLLK= 000052 C.SAVE= 000022 F$LOAD= 000000 IE.URJ= 177667 NR$IFC= 000030
C$CLLN= 000005 C.SERV= 000002 F$LOGD= 000001 INPRHD 000010R 002 NT.ABO= 000005
C$LEN = 000026 C.TASK= 000016 F$LOOP= 000001 INPRTL 000012R 002 NT.ABT= 000004
C$NOPN= 000031 C.TYPE= 000016 F$NTCM= 000000 IOSB 000000R 003 NT.CON= 000001
C$NORD= 000032 C.WAIT= 000020 F$OPCL= 000001 IS.DAO= 000002 NT.DSC= 000003
C$OPCL= 000066 D$$BUG= 177514 F$OPCO= 000000 I$$RAR= 000000 NT.INT= 000002
C$OPCO= 000034 D$$ISK= 000000 F$OPIN= 000000 I$$RDN= 000000 NT.LOG= 000011
C$OPIN= 000041 D$$L11= 000001 F$OPIR= 000000 K$$CNT= 177546 NT.MOP= 000010
C$OPIR= 000056 ENTLEN= 000010 F$OPLK= 000005 K$$CSR= 177546 N$$USR= 000001
C$OPLK= 000051 FILLUN= 000014 F$OPLN= 000002 K$$LDC= 000000 N.CAC 000120
C$OPLN= 000045 FLGGRP= 000000 F$OPLO= 000000 K$$TPS= 000074 N.CACC 000116
C$OPOR= 000057 FLGMSK= 000003 F$OPOR= 000000 LD$LP = 000000 N.CBL = 000142
C$OPOT= 000042 FL$BOO= 000001 F$OPOT= 000000 LINLUN= 000017 N.CDA 000142
SRROOT MACRO M1110 13-OCT-79 11:23 PAGE 23-2
SYMBOL TABLE
N.CDAC 000140 N.RQL = 000110 R$$K11= 000001 SRGNDC= ****** GX S$$YSZ= 001600
N.CID 000064 N.RUS 000012 R$$SND= 000000 SRIQUE 000334R TABEND 000244R
N.CIDC 000062 N.SDE 000042 R$$11M= 000000 SRNAST 000414RG TEMBLK 000000R 004
N.CPS 000106 N.SDEC 000040 SERADR= 000002 SRNEXT 000432RG TEMBLN= 000032
N.CPSC 000104 N.SEGZ 000002 SERBIT= 000001 SROPCL= ****** GX TEMFLG= 000030
N.CTL 000000 N.SFM 000036 SERFLG= 000001 SROPLK= ****** GX TEMWLN= 000015
N.DDE 000010 N.SGP 000040 SERTAB 000014R SROPLN= ****** GX TIMBIT= 000002
N.DDEC 000006 N.SND 000030 SP$DHO= 000003 SRQUE 000552RG TIMFLG= 000002
N.DFM 000004 N.SNM 000046 SP$DRP= 000007 SRRCBK= ****** GX T$$KMG= 000000
N.DGP 000006 N.SNMC 000044 SP$DTP= 000010 SRRCEV= ****** GX T$$MIN= 000000
N.DNM 000014 N.SOT 000037 SP$LHO= 000002 SRRCMS= ****** GX UNWTHD 000004R 002
N.DNMC 000012 N.SUS 000042 SP$LLP= 000011 SRRDIN= ****** GX UNWTTL 000006R 002
N.DOT 000005 ORWTHD 000000R 002 SP$LNM= 000016 SRRLBF= ****** GX V$$CTR= 001000
N.DUS 000010 ORWTTL 000002R 002 SP$LNO= 000015 SRRLCB= ****** GX X$$DBT= 000000
N.RAC 000070 P$$P45= 000000 SP$LOF= 000012 SRRLCI= ****** GX YES = 000001
N.RACC 000066 REMQUE= ****** GX SP$LST= 000001 SRSTFL 000650RG $$CSTA= 000000
N.RDE 000012 RI$LCC= 000001 SP$NDM= 000014 SRSTPR= ****** GX $$PRST= 000010
N.RDEC 000010 RI$LCS= 000002 SP$NDO= 000013 SRSTTM 000664RG $$STIX= 000777
N.RFM 000006 RI$LNC= 000007 SP$NST= 000006 SRSVCB 000702R $$STNM= 000000
N.RGP 000010 RI$LNL= 000006 SP$RRP= 000004 SRSVWT 001006R $$S772= 000077
N.RID 000034 RI$LNS= 000010 SP$RTP= 000005 SRTMST 001074RG $$S773= 000000
N.RIDC 000032 RI$RMC= 000004 SRALBF= ****** GX SRTRBK= ****** GX $$S774= 000077
N.RND 000000 RI$RML= 000003 SRALCB= ****** GX SRTRMS= ****** GX $$S775= 000010
N.RNM 000016 RI$RMS= 000005 SRAST 000000RG SRWAIT 001136R $$S776= 000000
N.RNMC 000014 RI$ZLC= 000011 SRCLCL= ****** GX SRWRCL= ****** GX $$S777= 000000
N.ROT 000007 RI$ZLN= 000013 SRCLLK= ****** GX SRZRCN= ****** GX $$TRNM= 000000
N.RPS 000056 RI$ZRM= 000012 SRCLLN= ****** GX S$$WRG= 000000 $$$ARG= 000004
N.RPSC 000054 R$$DER= 000000 SRDISP 000244R
. ABS. 000142 000
001206 001
SRDAT 000014 002
GNDDAT 000152 003
TEMDAT 000032 004
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 11563 WORDS ( 46 PAGES)
DYNAMIC MEMORY: 13228 WORDS ( 50 PAGES)
ELAPSED TIME: 00:02:21
SRROOT,[135,30]SRROOT/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SRROOT
SRROOT CREATED BY MACRO ON 13-OCT-79 AT 11:24 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
APPQUE = ****** GX 10-390 18-786 18-796
CE$FUN = 177777 8-248
CONBLK 000006 R #11-440
C$ALBF = 000032 7-184
C$ALCB = 000033 7-185
C$CLCL = 000067 7-186
C$CLLK = 000052 7-189
C$CLLN = 000005 7-190
C$NOPN = 000031 15-613
C$NORD = 000032 10-377
C$OPCL = 000066 7-191
C$OPLK = 000051 7-195
C$OPLN = 000045 7-196
C$ORD = 000145 10-383
C$RCBK = 000047 7-199
C$RCEV = 000050 7-200
C$RCMS = 000054 7-203
C$RDIS = 000040 7-206
C$RLBF = 000001 7-208
C$RLCB = 000002 7-209
C$RLCI = 000000 15-617
C$STPS = 000037 7-211
C$TRBK = 000046 7-212
C$TRMS = 000053 7-215
C$WRCL = 000065 7-217
C$ZRCN = 000064 7-220
C.FUNC = 000006 8-228 10-375 15-611
C.RET = 000010 *8-248 13-527 *15-624 18-791
C.SERV = 000002 13-538 *15-623
ENTLEN = 000010 #6-175 8-240
FLGGRP = 000000 23-985 23-985
FLGMSK = 000003 23-985
FL$BOO = 000001 #6-171 6-171
FL$DUM = 000001 #6-171 6-171
FL$LOA = 000001 #6-171 6-171
FL$LOO = 000001 #6-171 6-171
FR$LCC = 000001 #6-171 6-171
FR$LCS = 000001 #6-171 6-171
FR$LNC = 000001 #6-171 6-171
FR$LNL = 000001 #6-171 6-171
FR$LNS = 000001 #6-171 6-171
FR$RMC = 000001 #6-171 6-171
FR$RML = 000001 #6-171 6-171
FR$RMS = 000001 #6-171 6-171
FS$HOS = 000001 #6-171 6-171
FS$INT = 000000 #6-171 6-171 6-171 6-171
FS$LLP = 000001 #6-171 6-171
FS$LOF = 000001 #6-171 6-171
FS$LOG = 000001 #6-171 6-171
FS$LST = 000001 #6-171 6-171
FS$NET = 000001 #6-171 6-171
FS$NST = 000000 #6-171 6-171
SRROOT CREATED BY MACRO ON 13-OCT-79 AT 11:24 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
FS$PAS = 000001 #6-171 6-171
FT$CNS = 000000 #6-171 6-171
FT$NOD = 000001 #6-171 6-171
FT$TSK = 000001 #6-171 6-171
FUNCOD = 000000 #6-176 8-236
F$ALBF = 000001 #6-171 7-184
F$ALCB = 000001 #6-171 7-185
F$CB = 000017 #6-171
F$CLCL = 000001 #6-171 6-171 #6-171 7-186
F$CLCO = 000000 #6-171 7-187
F$CLFL = 000000 #6-171 7-188
F$CLLK = 000006 #6-171 6-171 #6-171 6-171 #6-171 6-171 #6-171 6-171 #6-171
6-171 #6-171 6-171 #6-171 7-189
F$CLLN = 000002 #6-171 6-171 #6-171 6-171 #6-171 7-190
F$DPOS = 000001 #6-171 6-171
F$DUMP = 000000 #6-171 6-171
F$EVNT = 000001 #6-171 6-171
F$EXAM = 000001 #6-171 6-171
F$EXHO = 000000 #6-171
F$GTCM = 000001 #6-171 6-171
F$INCM = 000000 #6-171 6-171
F$INLU = 000001 #6-171
F$IRLU = 000000 #6-171
F$LKLU = 000010 #6-171
F$LNLU = 000002 #6-171
F$LNSR = 000001 #6-171 6-171
F$LOAD = 000000 #6-171 6-171
F$LOGD = 000001 #6-171 6-171
F$LOOP = 000001 #6-171 6-171
F$NTCM = 000000 #6-171 6-171
F$OPCL = 000001 #6-171 6-171 #6-171 7-191
F$OPCO = 000000 #6-171 7-192
F$OPIN = 000000 #6-171 7-193
F$OPIR = 000000 #6-171 7-194
F$OPLK = 000005 #6-171 6-171 #6-171 6-171 #6-171 6-171 #6-171 6-171 #6-171
6-171 #6-171 7-195
F$OPLN = 000002 #6-171 6-171 #6-171 6-171 #6-171 7-196
F$OPLO = 000000 #6-171
F$OPOR = 000000 #6-171 7-197
F$OPOT = 000000 #6-171 7-198
F$ORLU = 000000 #6-171
F$OTLU = 000001 #6-171
F$RCBK = 000002 #6-171 6-171 #6-171 6-171 #6-171 7-199
F$RCEV = 000001 #6-171 6-171 #6-171 7-200
F$RCIN = 000000 #6-171 7-201
F$RCMA = 000000 #6-171 7-202
F$RCMS = 000002 #6-171 6-171 #6-171 7-203
F$RDBK = 000000 #6-171 7-204
F$RDCM = 000000 #6-171 7-205 8-252
F$RDIN = 000001 #6-171 6-171
F$RDIS = 000012 #6-171 6-171 #6-171 6-171 #6-171 6-171 #6-171 6-171 #6-171
6-171 #6-171 6-171 #6-171 6-171 #6-171 6-171 #6-171 6-171
SRROOT CREATED BY MACRO ON 13-OCT-79 AT 11:24 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#6-171 7-206
F$RDRC = 000000 #6-171 7-207
F$RECO = 000001 #6-171 6-171 #6-171
F$RLBF = 000001 #6-171 7-208
F$RLCB = 000001 #6-171 7-209
F$STBK = 000000 #6-171 7-210
F$STPR = 000001 #6-171 6-171
F$STPS = 000006 #6-171 6-171 #6-171 6-171 #6-171 6-171 #6-171 6-171 #6-171
6-171 #6-171 6-171 #6-171 7-211
F$TEST = 000001 #6-171 6-171
F$TRAC = 000000 5-94 5-94 5-97 5-97 #6-171 8-227 8-227 8-251 8-251
10-374 10-374 10-393 10-393 11-444 11-444 11-447 11-447 13-511
13-511 13-546 13-546 15-601 15-601 15-629 15-629 16-672 16-672
16-674 16-674 17-714 17-714 17-718 17-718 18-777 18-777 18-809
18-809 20-857 20-857 20-878 20-878 21-916 21-916 21-929 21-929
23-983 23-983 23-992 23-992
F$TRBK = 000001 #6-171 6-171 #6-171 7-212
F$TRIG = 000001 #6-171 6-171
F$TRIN = 000000 #6-171 7-213
F$TRMA = 000000 #6-171 7-214
F$TRMS = 000002 #6-171 6-171 #6-171 7-215
F$WRBK = 000000 #6-171 7-216
F$WRCL = 000001 #6-171 6-171 #6-171 7-217
F$WRCM = 000000 #6-171 7-218
F$WRRC = 000000 #6-171 7-219
F$ZERO = 000001 #6-171 6-171
F$ZRCN = 000001 #6-171 6-171 #6-171 7-220
F$150 = 000002 #6-171
F$300 = 000012 #6-171
F$50 = 000002 #6-171
F$550 = 000002 #6-171
GNDCNT 000004 R #11-440 *11-445
GNDSTA 000150 R #11-440
INPRHD 000010 R #4-57 4-57 10-380 13-519 18-785 18-795
INPRTL 000012 R #4-57
IOSB 000000 R #11-440
I$$AS = ****** 4-57 5-94 8-227 10-374 11-444 13-511 15-601 16-672 17-714
18-777 20-857 21-916 23-983
LUNSAV 000151 R #11-440
NO = 000000 #6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171
6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171
6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171
6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171
6-171 6-171 6-171
N.CBL = 000142 11-440
ORWTHD 000000 R #4-57 4-57 10-385 20-859
ORWTTL 000002 R #4-57
REMQUE = ****** GX 13-536 18-780
R$$11D = ****** 4-57 5-94 8-227 10-374 11-444 13-511 15-601 16-672 17-714
18-777 20-857 21-916 23-983
R$$11M = 000000 5-94 8-227 10-374 11-444 13-511 15-601 16-672 17-714 18-777
20-857 21-916 23-983
SRROOT CREATED BY MACRO ON 13-OCT-79 AT 11:24 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
SERADR = 000002 #6-177 8-238
SERBIT = 000001 23-988
SERFLG = 000001 13-516 16-673
SERTAB 000014 R #7-182 8-229
SRALBF = ****** GX 7-184
SRALCB = ****** GX 7-185
SRAST 000000 RG #5-94
SRCLCL = ****** GX 7-186
SRCLLK = ****** GX 7-189
SRCLLN = ****** GX 7-190
SRDISP 000244 R #8-227 10-379 18-781
SRGNDC = ****** GX 13-518
SRIQUE 000334 R #10-374 13-540 15-625
SRNAST 000414 RG #11-444
SRNEXT 000432 RG #13-511
SROPCL = ****** GX 7-191
SROPLK = ****** GX 7-195
SROPLN = ****** GX 7-196
SRQUE 000552 RG #15-601
SRRCBK = ****** GX 7-199
SRRCEV = ****** GX 7-200
SRRCMS = ****** GX 7-203
SRRDIN = ****** GX 7-206
SRRLBF = ****** GX 7-208
SRRLCB = ****** GX 7-209
SRRLCI = ****** GX 15-620
SRSTFL 000650 RG 5-96 11-446 #16-672
SRSTPR = ****** GX 7-211
SRSTTM 000664 RG #17-714 23-990
SRSVCB 000702 R #18-777 20-867 20-875
SRSVWT 001006 R 10-392 13-517 #20-857
SRTMST 001074 RG 17-717 #21-916
SRTRBK = ****** GX 7-212
SRTRMS = ****** GX 7-215
SRWAIT 001136 R 13-543 #23-983
SRWRCL = ****** GX 7-217
SRZRCN = ****** GX 7-220
TABEND 000244 R #7-222 8-233
TEMBLK 000000 R #22-978 *23-984 23-986 23-988
TEMBLN = 000032 #22-978
TEMWLN = 000015 #22-978 22-978 22-978
TIMFLG = 000002 17-716
UNWTHD 000004 R #4-57 4-57 10-387 20-869
UNWTTL 000006 R #4-57
YES = 000001 #6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171
6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171
6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171
6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171 6-171
6-171 6-171 6-171 6-171 6-171
$$CSTA = 000000 #5-94 #8-227 #10-374 #11-444 #13-511 #15-601 15-610 #15-610 15-612
#15-612 15-616 #15-626 #16-672 #17-714 #18-777 #20-857 #21-916 #23-983
$$PRST = 000010 #5-94 #8-227 8-231 #8-231 8-235 #8-235 8-243 #8-243 #10-374
SRROOT CREATED BY MACRO ON 13-OCT-79 AT 11:24 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
*10-376 #10-376 10-382 #10-382 #11-444 #13-511 13-513 #13-513 *13-521
#13-521 13-526 #13-526 13-533 #13-533 13-537 #13-537 #15-601 *15-604
#15-604 15-610 #15-610 #16-672 #17-714 #18-777 18-782 #18-782 18-789
#18-789 *18-802 #18-802 #20-857 20-862 #20-862 *20-871 #20-871 #21-916
21-918 #21-918 21-922 #21-922 #23-983 23-987 #23-987
$$SLST = ****** 5-94 5-97 8-227 8-231 8-232 8-232 8-233 8-233 8-234
8-236 8-236 8-237 8-239 8-239 8-241 8-242 8-242 8-244
8-244 8-245 8-247 8-247 8-250 8-251 10-374 10-377 10-377
10-378 10-381 10-381 10-383 10-383 10-384 10-386 10-386 10-388
10-389 10-393 11-444 11-447 13-511 13-513 13-514 13-514 13-515
13-521 13-522 13-522 13-524 13-524 13-525 13-527 13-527 13-528
13-531 13-532 13-532 13-534 13-534 13-535 13-538 13-538 13-539
13-541 13-542 13-542 13-544 13-545 13-545 13-546 15-601 15-604
15-605 15-605 15-606 15-613 15-613 15-614 15-616 15-616 15-617
15-617 15-618 15-622 15-622 15-626 15-627 15-627 15-629 16-672
16-674 17-714 17-718 18-777 18-783 18-784 18-788 18-788 18-790
18-790 18-791 18-791 18-792 18-798 18-803 18-803 18-804 18-806
18-808 18-809 20-857 20-862 20-863 20-865 20-865 20-866 20-868
20-868 20-871 20-873 20-873 20-874 20-876 20-876 20-878 21-916
21-918 21-919 21-920 21-923 21-924 21-927 21-928 21-928 21-929
23-983 23-988 23-988 23-989 23-991 23-992
$$STIX = 000777 #5-94 #8-227 8-231 8-231 #8-231 8-231 8-231 #8-231 8-235
8-235 #8-235 8-235 8-235 #8-235 8-241 #8-241 8-241 8-241
#8-241 8-241 8-242 #8-242 8-242 8-242 #8-242 8-242 8-243
8-243 #8-243 8-243 8-243 #8-243 8-250 #8-250 8-250 8-250
#8-250 8-250 #10-374 *10-376 *10-376 #10-376 *10-376 *10-376 #10-376
10-382 10-382 #10-382 10-382 10-382 #10-382 10-388 #10-388 10-388
10-388 #10-388 10-388 10-389 #10-389 10-389 10-389 #10-389 10-389
#11-444 #13-511 13-513 13-513 #13-513 13-513 13-513 #13-513 *13-521
*13-521 #13-521 *13-521 *13-521 #13-521 13-526 13-526 #13-526 13-526
13-526 #13-526 13-531 #13-531 13-531 13-531 #13-531 13-531 13-532
#13-532 13-532 13-532 #13-532 13-532 13-533 13-533 #13-533 13-533
13-533 #13-533 13-537 13-537 #13-537 13-537 13-537 #13-537 13-541
#13-541 13-541 13-541 #13-541 13-541 13-544 #13-544 13-544 13-544
#13-544 13-544 13-545 #13-545 13-545 13-545 #13-545 13-545 #15-601
*15-604 *15-604 #15-604 *15-604 *15-604 #15-604 15-610 15-610 #15-610
15-610 15-610 #15-610 15-610 15-610 #15-610 15-626 #15-626 15-626
15-626 #15-626 15-626 15-626 #15-626 15-626 15-627 #15-627 15-627
15-627 #15-627 15-627 #16-672 #17-714 #18-777 18-782 18-782 #18-782
18-782 18-782 #18-782 18-789 18-789 #18-789 18-789 18-789 #18-789
18-798 #18-798 18-798 18-798 #18-798 18-798 *18-802 *18-802 #18-802
*18-802 *18-802 #18-802 18-806 #18-806 18-806 18-806 #18-806 18-806
18-808 #18-808 18-808 18-808 #18-808 18-808 #20-857 20-862 20-862
#20-862 20-862 20-862 #20-862 20-868 #20-868 20-868 20-868 #20-868
20-868 *20-871 *20-871 #20-871 *20-871 *20-871 #20-871 20-876 #20-876
20-876 20-876 #20-876 20-876 #21-916 21-918 21-918 #21-918 21-918
21-918 #21-918 21-922 21-922 #21-922 21-922 21-922 #21-922 21-927
#21-927 21-927 21-927 #21-927 21-927 21-928 #21-928 21-928 21-928
#21-928 21-928 #23-983 23-987 23-987 #23-987 23-987 23-987 #23-987
23-991 #23-991 23-991 23-991 #23-991 23-991
$$STNM = 000000 #5-94 #8-227 8-231 #8-231 8-231 8-231 8-232 8-233 8-234
8-235 #8-235 8-235 8-236 8-237 *8-239 8-239 8-241 #8-241
SRROOT CREATED BY MACRO ON 13-OCT-79 AT 11:24 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
8-242 8-242 #8-242 8-243 #8-243 8-243 8-244 8-245 8-247
8-247 8-250 #8-250 #10-374 *10-376 #10-376 *10-376 10-377 10-378
*10-381 10-381 10-382 #10-382 10-382 10-383 10-384 *10-386 10-386
*10-388 #10-388 10-389 #10-389 #11-444 #13-511 13-513 #13-513 13-513
13-513 13-514 13-515 *13-521 #13-521 *13-521 *13-521 13-522 13-524
13-525 13-526 #13-526 13-526 13-527 13-528 13-531 #13-531 13-532
13-532 #13-532 13-533 #13-533 13-533 13-534 13-535 13-537 #13-537
13-537 13-538 13-539 13-541 #13-541 13-542 13-542 13-544 #13-544
13-545 13-545 #13-545 #15-601 *15-604 #15-604 *15-604 *15-604 15-605
15-606 15-610 #15-610 15-610 15-613 15-614 15-616 15-616 15-617
15-618 15-622 15-622 15-626 #15-626 15-627 15-627 #15-627 #16-672
#17-714 #18-777 18-782 #18-782 18-782 18-783 18-784 18-788 18-788
18-789 #18-789 18-789 18-790 18-791 18-792 *18-798 #18-798 *18-802
#18-802 *18-802 18-803 18-804 *18-806 #18-806 18-808 #18-808 #20-857
20-862 #20-862 20-862 20-862 20-863 20-865 20-866 20-868 20-868
#20-868 *20-871 #20-871 *20-871 *20-871 20-873 20-874 20-876 20-876
#20-876 #21-916 21-918 #21-918 21-918 21-918 21-919 21-920 21-922
#21-922 21-922 21-923 21-924 21-927 #21-927 21-928 21-928 #21-928
#23-983 23-987 #23-987 23-987 23-988 23-989 23-991 #23-991
$$S772 = 000077 #13-526 13-531 #13-537 13-541
$$S773 = 000000 #13-526 13-531 #13-537 13-541 #15-610 15-626
$$S774 = 000077 #8-235 8-241 #10-382 10-388 #13-521 13-532 #13-533 13-544 #15-610
15-626 #18-789 18-798 #18-802 18-806 #21-922 21-927
$$S775 = 000010 #8-235 8-241 #10-382 10-388 #13-521 13-532 #13-533 13-544 #15-610
15-626 #18-789 18-798 #18-802 18-806 #21-922 21-927
$$S776 = 000000 #8-231 8-242 #8-243 8-250 #10-376 10-389 #13-513 13-545 #15-604
15-627 #18-782 18-808 #20-862 20-868 #20-871 20-876 #21-918 21-928
#23-987 23-991
$$S777 = 000000 #8-231 8-242 #8-243 8-250 #10-376 10-389 #13-513 13-545 #15-604
15-627 #18-782 18-808 #20-862 20-868 #20-871 20-876 #21-918 21-928
#23-987 23-991
$$TRNM = 000000 #5-94 #8-227 8-231 #8-231 8-232 8-233 8-234 8-235 #8-235
8-236 8-237 8-239 #8-239 8-241 #8-241 8-242 #8-242 8-243
#8-243 8-244 8-245 8-247 #8-247 8-250 #8-250 #10-374 *10-376
#10-376 10-377 10-378 10-381 #10-381 10-382 #10-382 10-383 10-384
10-386 #10-386 *10-388 #10-388 10-389 #10-389 #11-444 #13-511 13-513
#13-513 13-514 13-515 *13-521 #13-521 13-522 13-524 13-525 13-526
#13-526 13-527 13-528 13-531 #13-531 13-532 #13-532 13-533 #13-533
13-534 13-535 13-537 #13-537 13-538 13-539 13-541 #13-541 13-542
#13-542 13-544 #13-544 13-545 #13-545 #15-601 *15-604 #15-604 15-605
15-606 15-610 #15-610 15-613 15-614 15-616 15-616 #15-616 15-617
15-618 15-622 #15-622 15-626 15-626 #15-626 15-627 #15-627 #16-672
#17-714 #18-777 18-782 #18-782 18-783 18-784 18-788 #18-788 18-789
#18-789 18-790 18-791 18-792 *18-798 #18-798 *18-802 #18-802 18-803
18-804 *18-806 #18-806 18-808 #18-808 #20-857 20-862 #20-862 20-863
20-865 20-866 20-868 #20-868 *20-871 #20-871 20-873 20-874 20-876
#20-876 #21-916 21-918 #21-918 21-919 21-920 21-922 #21-922 21-923
21-924 21-927 #21-927 21-928 #21-928 #23-983 23-987 #23-987 23-988
23-989 23-991 #23-991
$$$ARG = 000004 #21-921 21-921 21-921 21-921 21-921 21-921 21-921 21-921 21-921
21-921 21-921
SRROOT CREATED BY MACRO ON 13-OCT-79 AT 11:24 PAGE 7
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
ASTX$S #5-90 #5-94 #5-97 #11-436 #11-444 #11-447
CALL #5-96 #8-246 #10-379 #10-390 #10-392 #11-446 #13-517 #13-518 #13-536 #13-540
#13-543 #15-620 #15-625 #17-717 #18-780 #18-781 #18-786 #18-796 #20-867 #20-875
#23-990
CASE #5-94 #8-227 #10-374 #11-444 #13-511 #15-601 15-612 15-616 #16-672 #17-714
#18-777 #20-857 #21-916 #23-983
CLEF$S #12-501 13-516
CONDF #6-148 #6-170 #9-365 #9-369 #12-501 #12-505 #14-592 #14-596 #18-772 #18-773
CONFIG #6-148 #6-171
DIR$ #5-97 5-97 #11-447 11-447 #13-516 13-516 #16-673 16-673 #21-921 21-921
#21-925 21-925 #23-985 23-985 #23-986 23-986
DO #5-94 #8-227 8-234 #10-374 #11-444 #13-511 13-515 13-525 #15-601 15-606
15-614 15-618 #16-672 #17-714 #18-777 #20-857 20-866 20-874 #21-916 21-920
#23-983
ELSE #5-94 #8-227 8-239 8-247 #10-374 10-381 10-386 #11-444 #13-511 13-542
#15-601 15-622 #16-672 #17-714 #18-777 18-788 #20-857 #21-916 #23-983
ENDAST #5-94 #5-97 #11-444 #11-447
ENDCAS #5-94 #8-227 #10-374 #11-444 #13-511 #15-601 15-626 #16-672 #17-714 #18-777
#20-857 #21-916 #23-983
ENDIF #5-94 #8-227 #8-241 #8-242 #8-250 #10-374 #10-388 #10-389 #11-444 #13-511
#13-531 #13-532 #13-541 #13-544 #13-545 #15-601 #15-626 #15-627 #16-672 #17-714
#18-777 #18-798 #18-806 #18-808 #20-857 #20-868 #20-876 #21-916 #21-927 #21-928
#23-983 #23-991
ENDPRO #5-94 #8-227 8-251 #10-374 10-393 #11-444 #13-511 13-546 #15-601 15-629
#16-672 16-674 #17-714 17-718 #18-777 18-809 #20-857 20-878 #21-916 21-929
#23-983 23-992
ENDWHI #5-94 #8-227 #8-242 #10-374 #11-444 #13-511 #13-532 #13-545 #15-601 #15-627
#16-672 #17-714 #18-777 #20-857 #20-868 #20-876 #21-916 #21-928 #23-983
FALSE #5-94 #8-227 8-232 8-233 8-236 8-244 #10-374 10-377 10-383 #11-444
#13-511 13-514 13-522 13-524 13-534 13-538 #15-601 15-605 15-613 15-617
#16-672 #17-714 #18-777 18-783 18-790 18-803 #20-857 20-863 20-865 20-873
#21-916 21-919 21-923 #23-983 23-988
FALSEB #5-94 #8-227 #10-374 #11-444 #13-511 #13-527 #15-601 #16-672 #17-714 #18-777
#18-791 #20-857 #21-916 #23-983
GNDMDF #11-436 #11-440
IF #5-94 #8-227 #8-231 #8-235 #8-243 #10-374 #10-376 #10-382 #11-444 #13-511
#13-513 #13-521 #13-526 #13-533 #13-537 #15-601 #15-604 #15-610 #16-672 #17-714
#18-777 #18-782 #18-789 #18-802 #20-857 #20-862 #20-871 #21-916 #21-918 #21-922
#23-983 #23-987
JMPPRO #5-94 #8-227 #10-374 #11-444 #13-511 #15-601 #16-672 #17-714 #18-777 #20-857
#21-916 #23-983
MOV$ #13-516 #13-516 #16-673 #16-673 #21-921 #21-921 #21-921 #21-921 #21-921 #23-985
#23-985 #23-986 #23-986
MRKT$S #21-912 21-921
NETDF$ #11-440 #11-440
ONCASE #5-94 #8-227 #10-374 #11-444 #13-511 #15-601 15-610 #16-672 #17-714 #18-777
#20-857 #21-916 #23-983
PROC #4-53 13-511 15-601 16-672 17-714 21-916 #22-970
PROCAS #4-53 #5-94 #11-444
PROCLC #4-53 #5-94 8-227 #8-227 10-374 #10-374 #11-444 #13-511 #15-601 #16-672
#17-714 18-777 #18-777 20-857 #20-857 #21-916 23-983 #23-983
PROFLG #6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171
SRROOT CREATED BY MACRO ON 13-OCT-79 AT 11:24 PAGE 8
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171
#6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171
#6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171 #6-171
#6-171
RDAF$S #22-970 #23-986
RESSTK #14-592 #15-628 #18-772 #18-797 #19-852 #20-877
RVP$ #21-921 #21-921
SAVSTK #14-592 #15-602 #18-772 #18-793 #19-852 #20-858
SETF$S #16-664 #16-673
SRDF #12-501 #12-506 #16-664 #16-668 #17-706 #17-710 #22-970 #22-974
SRMDF #4-53 4-57
SWSTK$ #5-94 #8-227 #10-374 #11-444 #13-511 #15-601 #16-672 #17-714 #18-777 #20-857
#21-916 #23-983
TABENT #6-152 #7-184 #7-185 #7-186 #7-187 #7-188 #7-189 #7-190 #7-191 #7-192
#7-193 #7-194 #7-195 #7-196 #7-197 #7-198 #7-199 #7-200 #7-201 #7-202
#7-203 #7-204 #7-205 #7-206 #7-207 #7-208 #7-209 #7-210 #7-211 #7-212
#7-213 #7-214 #7-215 #7-216 #7-217 #7-218 #7-219 #7-220
TEMMDF #22-970 #22-978
THEN #5-94 #8-227 #8-234 #8-237 #8-245 #10-374 #10-378 #10-384 #11-444 #13-511
#13-515 #13-525 #13-528 #13-535 #13-539 #15-601 #15-606 #15-614 #15-618 #16-672
#17-714 #18-777 #18-784 #18-792 #18-804 #20-857 #20-866 #20-874 #21-916 #21-920
#21-924 #23-983 #23-989
TRUE #5-94 #8-227 #10-374 #11-444 #13-511 #15-601 #16-672 #17-714 #18-777 #20-857
#21-916 #23-983
TRUEB #5-94 #8-227 #10-374 #11-444 #13-511 #15-601 #16-672 #17-714 #18-777 #20-857
#21-916 #23-983
WHILE #5-94 #8-227 8-231 #10-374 #11-444 #13-511 13-513 13-521 #15-601 15-604
#16-672 #17-714 #18-777 #20-857 20-862 20-871 #21-916 21-918 #23-983
WSIG$S #21-912 #21-925
WTLO$S #22-970 23-985
$$BGND #5-94 #8-227 8-232 8-233 8-236 8-244 #10-374 10-377 10-383 #11-444
#13-511 13-514 13-522 13-524 13-527 13-534 13-538 #15-601 15-605 15-613
15-617 #16-672 #17-714 #18-777 18-783 18-790 18-791 18-803 #20-857 20-863
20-865 20-873 #21-916 21-919 21-923 #23-983 23-988
$$BGNN #5-94 #8-227 8-232 8-233 8-236 8-239 8-242 8-244 8-247 #10-374
10-377 10-381 10-383 10-386 #11-444 #13-511 13-514 13-522 13-524 13-527
13-532 13-534 13-538 13-542 13-545 #15-601 15-605 15-613 15-616 15-617
15-622 15-627 #16-672 #17-714 #18-777 18-783 18-788 18-790 18-791 18-803
#20-857 20-863 20-865 20-868 20-873 20-876 #21-916 21-919 21-923 21-928
#23-983 23-988
$$ELSE #5-94 #8-227 #8-239 #8-247 #10-374 #10-381 #10-386 #11-444 #13-511 #13-542
#15-601 #15-616 #15-622 #16-672 #17-714 #18-777 #18-788 #20-857 #21-916 #23-983
$$GEN1 #5-94 5-94 5-97 #8-227 8-227 8-231 8-232 8-232 8-233 8-234
8-236 8-237 8-239 8-239 8-241 8-242 8-242 8-244 8-244 8-245
8-247 8-247 8-250 8-251 #10-374 10-374 10-377 10-378 10-381 10-381
10-383 10-384 10-386 10-386 10-388 10-389 10-393 #11-444 11-444 11-447
#13-511 13-511 13-513 13-514 13-514 13-515 13-521 13-522 13-522 13-524
13-524 13-525 13-527 13-527 13-528 13-531 13-532 13-532 13-534 13-534
13-535 13-538 13-538 13-539 13-541 13-542 13-542 13-544 13-545 13-545
13-546 #15-601 15-601 15-604 15-605 15-605 15-606 15-613 15-614 15-616
15-616 15-617 15-618 15-622 15-622 15-626 15-627 15-627 15-629 #16-672
16-672 16-674 #17-714 17-714 17-718 #18-777 18-777 18-783 18-784 18-788
SRROOT CREATED BY MACRO ON 13-OCT-79 AT 11:24 PAGE 9
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
18-788 18-790 18-790 18-791 18-791 18-792 18-798 18-803 18-803 18-804
18-806 18-808 18-809 #20-857 20-857 20-862 20-863 20-865 20-865 20-866
20-868 20-868 20-871 20-873 20-873 20-874 20-876 20-876 20-878 #21-916
21-916 21-918 21-919 21-920 21-923 21-924 21-927 21-928 21-928 21-929
#23-983 23-983 23-988 23-989 23-991 23-992
$$GEN2 #5-94 #8-227 8-233 8-236 #10-374 10-377 10-383 #11-444 #13-511 #15-601
15-613 15-617 #16-672 #17-714 #18-777 #20-857 #21-916 #23-983 23-988
$$GNAB #5-94 #8-227 #8-233 #8-236 #10-374 #10-377 #10-383 #11-444 #13-511 #15-601
#15-613 #15-617 #16-672 #17-714 #18-777 #18-783 #20-857 #20-863 #21-916 #21-919
#21-923 #23-983
$$GNBT #5-94 #8-227 #8-232 #8-244 #10-374 #11-444 #13-511 #13-514 #13-522 #13-524
#13-527 #13-534 #13-538 #15-601 #15-605 #16-672 #17-714 #18-777 #18-790 #18-791
#18-803 #20-857 #20-865 #20-873 #21-916 #23-983 #23-988
$$GNCM #5-94 #8-227 8-232 8-233 8-236 8-244 #10-374 10-377 10-383 #11-444
#13-511 13-514 13-522 13-524 13-527 13-534 13-538 #15-601 15-605 15-613
15-617 #16-672 #17-714 #18-777 18-783 18-790 18-791 18-803 #20-857 20-863
20-865 20-873 #21-916 21-919 21-923 #23-983 23-988
$$INMC #5-94 #5-94 #8-227 #8-227 #10-374 #10-374 #11-444 #11-444 #13-511 #13-511
#15-601 #15-601 #16-672 #16-672 #17-714 #17-714 #18-777 #18-777 #20-857 #20-857
#21-916 #21-916 #23-983 #23-983
$$INSY #5-94 #5-94 #8-227 #8-227 #10-374 #10-374 #11-444 #11-444 #13-511 #13-511
#15-601 #15-601 #16-672 #16-672 #17-714 #17-714 #18-777 #18-777 #20-857 #20-857
#21-916 #21-916 #23-983 #23-983
$$LAB #5-94 #8-227 #8-231 #8-234 #8-237 #8-239 #8-241 #8-242 #8-245 #8-247
#8-250 #10-374 #10-378 #10-381 #10-384 #10-386 #10-388 #10-389 #11-444 #13-511
#13-513 #13-515 #13-521 #13-525 #13-528 #13-531 #13-532 #13-535 #13-539 #13-541
#13-542 #13-544 #13-545 #15-601 #15-604 #15-606 #15-614 #15-616 #15-618 #15-622
#15-626 #15-627 #16-672 #17-714 #18-777 #18-784 #18-788 #18-792 #18-798 #18-804
#18-806 #18-808 #20-857 #20-862 #20-866 #20-868 #20-871 #20-874 #20-876 #21-916
#21-918 #21-920 #21-924 #21-927 #21-928 #23-983 #23-989 #23-991
$$POP #5-94 #8-227 #8-241 #8-241 #8-242 #8-242 #8-250 #8-250 #10-374 #10-388
#10-388 #10-389 #10-389 #11-444 #13-511 #13-531 #13-531 #13-532 #13-532 #13-541
#13-541 #13-544 #13-544 #13-545 #13-545 #15-601 #15-626 #15-626 #15-626 #15-627
#15-627 #16-672 #17-714 #18-777 #18-798 #18-798 #18-806 #18-806 #18-808 #18-808
#20-857 #20-868 #20-868 #20-876 #20-876 #21-916 #21-927 #21-927 #21-928 #21-928
#23-983 #23-991 #23-991
$$POPI #5-94 #8-227 #8-241 #8-241 #8-242 #8-242 #8-250 #8-250 #10-374 #10-388
#10-388 #10-389 #10-389 #11-444 #13-511 #13-531 #13-531 #13-532 #13-532 #13-541
#13-541 #13-544 #13-544 #13-545 #13-545 #15-601 #15-626 #15-626 #15-626 #15-627
#15-627 #16-672 #17-714 #18-777 #18-798 #18-798 #18-806 #18-806 #18-808 #18-808
#20-857 #20-868 #20-868 #20-876 #20-876 #21-916 #21-927 #21-927 #21-928 #21-928
#23-983 #23-991 #23-991
$$PUSH #5-94 #8-227 #8-231 #8-231 #8-235 #8-235 #8-243 #8-243 #10-374 #10-376
#10-376 #10-382 #10-382 #11-444 #13-511 #13-513 #13-513 #13-521 #13-521 #13-526
#13-526 #13-533 #13-533 #13-537 #13-537 #15-601 #15-604 #15-604 #15-610 #15-610
#15-610 #16-672 #17-714 #18-777 #18-782 #18-782 #18-789 #18-789 #18-802 #18-802
#20-857 #20-862 #20-862 #20-871 #20-871 #21-916 #21-918 #21-918 #21-922 #21-922
#23-983 #23-987 #23-987
$$STSM #5-94 #8-227 8-231 8-231 8-235 8-235 8-243 8-243 #10-374 10-376
10-376 10-382 10-382 #11-444 #13-511 13-513 13-513 13-521 13-521 13-526
13-526 13-533 13-533 13-537 13-537 #15-601 15-604 15-604 15-610 15-610
15-610 #16-672 #17-714 #18-777 18-782 18-782 18-789 18-789 18-802 18-802
SRROOT CREATED BY MACRO ON 13-OCT-79 AT 11:24 PAGE 10
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#20-857 20-862 20-862 20-871 20-871 #21-916 21-918 21-918 21-922 21-922
#23-983 23-987 23-987
$$SYS #5-94 #8-227 #10-374 #11-444 #13-511 #15-601 #16-672 #17-714 #18-777 #20-857
#21-916 #23-983
$$TRCE #5-94 5-94 5-97 #8-227 8-227 8-251 #10-374 10-374 10-393 #11-444
11-444 11-447 #13-511 13-511 13-546 #15-601 15-601 15-629 #16-672 16-672
16-674 #17-714 17-714 17-718 #18-777 18-777 18-809 #20-857 20-857 20-878
#21-916 21-916 21-929 #23-983 23-983 23-992