Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/gcgtcm.list
There are no other files named gcgtcm.list in the archive.
GCGTCM MACRO M1110 13-OCT-79 11:42
TABLE OF CONTENTS
8- 81 GCGTCM
11- 334 GCNEXT
13- 423 GCNICE
16- 540 GCNTCM
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 3
1 .TITLE GCGTCM
2 .NLIST CND
3 .IDENT /V01.08/
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 GET COMMAND PROCESSOR
27 ;
28 ;
29 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
30 ;
31 ; IDENT HISTORY:
32 ;
33 ; 1.00 10-FEB-78
34 ; VERSION 2.0 RELEASE
35 ;
36 ; 1.01 7-AUG-78 ALAN D. PECKHAM
37 ; ADD EXAMINE/DEPOSIT FUNCTION DECODING
38 ; CLEAN UP IN PROCESSING TERMINATION
39 ; 1.02 24-AUG-78 ALAN D. PECKHAM
40 ; ADD EVENT LOGGING HOOKS
41 ; 1.03 17-JAN-78 ALAN D. PECKHAM
42 ; ADD CODE TO COPY EVENT LOGGING DATA TO ALLOCATED BUFFER
43 ; 1.04 25-JAN-79 ALAN D. PECKHAM
44 ; FIX BUG CAUSED BY 1.01 BUG FIX
45 ; 1.05 8-FEB-79 BUREN W. HOFFMAN
46 ; FIX TO PREVENT EVENT-LOGGING DEADLOCKS, WAITING FOR BUFFERS.
47 ; 1.06 12-FEB-79 BUREN W. HOFFMAN
48 ; FIXED BUG INTRODUCED IN 1.05
49 ; 1.07 15-FEB-79 BUREN W. HOFFMAN
50 ; CHANGED GCMDF MACRO CALL TO MAKE GCMDSR LABEL GLOBAL
51 ; 1.08 30-MAY-79 ALAN D. PECKHAM
52 ; REMOVE EVENT LOGGING CODE (NOW CENTRALIZED IN SRGNDC)
53 ;
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 4
55 ;
56 ; +-------------------------------------------------+
57 ; I I
58 ; I G E T C O M M A N D I
59 ; I - - - - - - - - - - - I
60 ; I I
61 ; +-------------------------------------------------+
62 ;
63 ; FUNCTION:
64 ;
65 ; NICE/NCP GET COMMAND PROCESSOR
66 ;
67 ; EXTERNAL MACROS
68 ;
69 .MCALL PROC,PROCLC,SAVSTK,RESSTK,GCMDF,GCDF,CONDF
70 ;
71 ; DEFINE EXTERNAL SYMBOLS
72 ;
73 000000 CONFIG ;CONFIGURATION CONTROLS
74 000000 GCDF ;GET COMMAND SYMBOLS
75 000000 CONDF ;CONTROL BLOCK SYMBOLS
76 ;
77 ; DEFINE READ/WRITE MEMORY
78 ;
79 000000 GCMDF GBL ;GET COMMAND MEMORY ;BH0007
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 5
GCGTCM
81 .SBTTL GCGTCM
82 ;
83 ;======================================================================;
84 ;++
85 ; +-------------------------------------------------+
86 ; I I
87 ; I G C G T C M I
88 ; I - - - - - - I
89 ; I I
90 ; +-------------------------------------------------+
91 ;
92 ; FUNCTION:
93 ;
94 ; TOP LEVEL PROCESSOR MODULE TO GET A COMMAND
95 ;
96 ; CALLING SEQUENCE: CALL GCGTCM
97 ;
98 ; INPUT:
99 ;
100 ; R5 - ZERO OR ADDRESS OF CONTROL BLOCK
101 ; C.ADDR - ADDRESS OF ALLOCATED CONTROL BLOCK
102 ; C.PROC - GET COMMAND PROCESSOR NUMBER
103 ; C.CTXT - GET COMMAND PROCESS STATE
104 ; -1 PROCESSOR COMPLETION
105 ; 0 INITIALIZATION
106 ; >0 SERVICE COMPLETION, = NUMBER-1 IS INDEX OF POINTER TO
107 ; PROCESSING CONTEXT
108 ; C.LKNM - ON PROCESSOR COMPLETION, ZERO OR LOGICAL LINK NUMBER
109 ;
110 ; OUTPUT:
111 ;
112 ; C-BIT - CLEAR TO CONTINUE PROCESSING, SET TO TERMINATE
113 ; R5 - ZERO OR ADDRESS OF CONTROL BLOCK TO PROCESS
114 ; C.CTXT - PROCESSING STATE
115 ; C.FUNC - FUNCTION CODE
116 ; C.PROC - PROCESSOR NUMBER
117 ;
118 ; REQUIREMENTS:
119 ;
120 ; INPUT VIA GCDAT:
121 ;
122 ; CBADDR - ADDRESS OF INITIAL CONTROL BLOCK
123 ; CMDSOR - NUMBER OF CURRENTLY ACTIVE COMMAND SOURCES
124 ; CTEXT - VECTOR OF POINTERS TO PROCESSING CONTEXT ENTRIES
125 ; MODULE - OFFSET OF PROCESSING MODULE ADDRESS IN CONTEXT ENTRY
126 ; WINDUP - SET IF WINDUP IN PROGRESS
127 ;
128 ; CONTROL BLOCK SYMBOLS:
129 ;
130 ; C.ADDR - OFFSET OF ADDRESS FIELD
131 ; C.CTXT - OFFSET OF CONTEXT FIELD
132 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
133 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
134 ; C.PROC - OFFSET OF PROCESSOR NUMBER FIELD
135 ; C$PROC - FUNCTION CODE FOR PROCESSORS
136 ; C$RLCI - FUNCTION CODE TO RELEASE CONTROL BLOCK
137 ;
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 5-1
GCGTCM
138 ; EFFECTS:
139 ;
140 ; OUTPUT VIA GCDAT:
141 ;
142 ; CBADDR - AT INITIALIZATION, ADDRESS OF INITIAL CONTROL BLOCK
143 ; CMDSOR - UPDATED NUMBER OF ACTIVE COMMAND SOURCES
144 ;
145 ;--
146 ;======================================================================;
147 ;
148 ; DEFINE EXTERNAL SYMBOLS
149 ;
150 000000 CONFIG ;CONFIGURATION SYMBOLS
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 6
GCGTCM
152 ;
153 ; PROCEDURE BODY
154 ;
155 000000 PROC GCGTCM
156 000000 IF ; CONTROL BLOCK PASSED
157 000000 FALSE CLEAR R5
158 000004 THEN
159 000004 SAVSTK <R4> ;SAVE REGISTER
160 000006 ONCASE ; CONTROL CONTEXT
161 000006 016504 000004 MOV C.CTXT(R5),R4 ;GET CONTROL CONTEXT
162 000012 CASE ; INITIALIZE
163 000012 FALSE SET R4
164 000016 DO
165 000016 010567 000000' MOV R5,CBADDR ;SAVE INITIAL CONTROL BLOCK ADDRESS
166 000022 CALL GCNEXT ;TRY TO START A COMMAND SOURCE
167 000026 CASE; SERVICE COMPLETION
168 000030 FALSE LT R4
169 000034 DO
170 000034 IF ; CONTROL BLOCK IS INITIAL CONTROL BLOCK
171 000034 FALSE NE R5,CBADDR
172 000042 THEN
173 000042 016500 000014 MOV C.ADDR(R5),R0 ;GET NEW CONTROL BLOCK ADDRESS
174 000046 116560 000007 000007 MOVB C.PROC(R5),C.PROC(R0) ;PROCESSOR = GET COMMAND
175 000054 112760 000200 000006 MOVB #C$PROC,C.FUNC(R0) ;FUNCTION = PROCESS
176 000062 016560 000004 000004 MOV C.CTXT(R5),C.CTXT(R0) ;SET UP CONTEXT POINTER
177 000070 005065 000004 CLR C.CTXT(R5) ;RELEASE INITIAL CONTROL BLOCK
178 000074 010005 MOV R0,R5 ;SWITCH CONTROL TO NEW CONTROL BLOCK
179 000076 ELSE
180 000100 005304 DEC R4 ;GET RID OF FORCE TO NON-ZERO
181 000102 SAVSTK <R3> ;SAVE REGISTER
182 000104 016403 000006' MOV CTEXT(R4),R3 ;GET CONTEXT POINTER
183 000110 CALL @MODULE(R3) ;CALL COMMAND SOURCE MODULE
184 000114 RESSTK <R3> ;RESTORE REGISTER
185 000116 ENDIF
186 000116 CASE ; PROCESSOR COMPLETION
187 000120 DO
188 000120 IF ; LOGICAL LINK
189 000120 FALSE CLEAR C.LKNM(R5)
190 000126 THEN
191 000126 012765 000001 000004 MOV #NCLKIX+1,C.CTXT(R5) ;IT'S A NICE LINK
192 000134 ELSE
193 000136 112765 000000 000006 MOVB #C$RLCI,C.FUNC(R5) ;RELEASE THE CONTROL BLOCK
194 000144 005367 000002' DEC CMDSOR ;ONE LESS COMMAND SOURCE
198 000150 ENDIF
199 000150 ENDCASE
200 000150 RESSTK <R4> ;RESTORE REGISTER
201 000152 000241 CLC ;INDICATE SOMETHING TO PROCESS
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 7
GCGTCM
203 000154 ELSE ; NO CONTROL BLOCK PASSED
204 000156 016700 000000' MOV CBADDR,R0 ;GET INITIAL CONTROL BLOCK ADDRESS
205 000162 IF ; INITIAL CONTROL BLOCK AVAILABLE
206 000162 FALSE SET C.CTXT(R0)
207 000170 THEN
208 000170 IF ; WINDUP AND NO COMMAND SOURCES
209 000170 FALSE CLEAR WINDUP
210 000176 FALSE SET CMDSOR
211 000204 THEN
212 000204 010005 MOV R0,R5 ;ADDRESS OF ORIGINAL CONTROL BLOCK
213 000206 005067 000000' CLR CBADDR ;THIS IS NO LONGER VALID ;AP0001
214 000212 005067 000004' CLR WINDUP ;WINDUP COMPLETED ;AP0001
215 000216 000261 SEC ;ALL DONE PROCESSING
216 000220 ELSE
217 000222 CALL GCNEXT ;TRY FOR ANOTHER COMMAND SOURCE
218 000226 000241 CLC ;NOT DONE PROCESSING
219 000230 ENDIF
220 000230 ELSE
221 000232 000241 CLC ;INDICATE SOMETHING TO PROCESS
222 000234 ENDIF
223 000234 ENDIF
224 000234 ENDPROC
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 8
GCNEXT
334 .SBTTL GCNEXT
335 ;
336 ;======================================================================;
337 ;++
338 ; +-------------------------------------------------+
339 ; I I
340 ; I G C N E X T I
341 ; I - - - - - - I
342 ; I I
343 ; +-------------------------------------------------+
344 ;
345 ; FUNCTION:
346 ;
347 ; GET COMMAND PROCESSOR MODULE TO FIND NEXT COMMAND SOURCE TO START
348 ;
349 ; CALLING SEQUENCE: CALL GCNEXT
350 ;
351 ; INPUT: NONE
352 ;
353 ; OUTPUT:
354 ;
355 ; R5 - ADDRESS OF CONTROL BLOCK IF COMMAND SOURCE TO START, ZERO IF NOT
356 ; C.CTXT - COMMAND SOURCE CONTEXT INDEX + 1
357 ; C.FUNC - FUNCTION CODE TO ALLOCATE A CONTROL BLOCK FOR IT
358 ;
359 ; REQUIREMENTS:
360 ;
361 ; INPUT VIA GCDAT:
362 ;
363 ; CBADDR - ADDRESS OF INITIAL CONTROL BLOCK
364 ; CTEXT - VECTOR OF POINTERS TO COMMAND SOURCE CONTEXT BLOCKS
365 ; CTEXTE - END INDEX OF CTEXT VECTOR
366 ; STATE - OFFSET OF STATE IN COMMAND SOURCE CONTEXT BLOCK
367 ; 0 AVAILABLE TO START
368 ; <>0 NOT AVAILABLE TO START
369 ; WINDUP - SET IF WINDUP IN PROCESS
370 ;
371 ; CONTROL BLOCK SYMBOLS:
372 ;
373 ; C.CTXT - OFFSET OF CONTEXT
374 ; C.FUNC - OFFSET OF FUNCTION CODE
375 ; C$ALCB - FUNCTION CODE TO ALLOCATE A CONTROL BLOCK
376 ;
377 ; EFFECTS:
378 ;
379 ; OUTPUT VIA GCDAT:
380 ;
381 ; STATE - (IN CONTEXT) NON-ZERO IF COMMAND SOURCE TO BE STARTED
382 ;
383 ;--
384 ;======================================================================;
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 9
GCNEXT
386 ;
387 ; LOCAL PROCEDURE BODY
388 ;
389 000236 PROCLC GCNEXT
390 000236 000241 CLC ;INDICATE NO COMMAND SOURCE FOUND
391 000240 IF ; WIND UP NOT IN PROGRESS
392 000240 FALSE SET WINDUP
393 000246 THEN
394 000246 005000 CLR R0 ;INITIALIZE CONTEXT POINTER INDEX
395 000250 WHILE ; COMMAND SOURCE NOT FOUND AND NOT ALL SOURCES CHECKED
396 000250 FALSE CS
397 000252 FALSE GE R0,#CTEXTE
398 000260 DO
399 000260 016001 000006' MOV CTEXT(R0),R1 ;GET CONTEXT ADDRESS
400 000264 IF ; COMMAND SOURCE TO BE INITIALIZED
401 000264 FALSE SET STATE(R1)
402 000272 THEN
403 000272 016705 000000' MOV CBADDR,R5 ;INITIAL CONTROL BLOCK ADDRESS
404 000276 005200 INC R0 ;FORCE NON-ZERO
405 000300 010065 000004 MOV R0,C.CTXT(R5) ;SAVE CONTEXT INDEX IN CONTROL BLOCK
406 000304 112765 000033 000006 MOVB #C$ALCB,C.FUNC(R5) ;FUNCTION = ALLOCATE CONTROL BLOCK
407 000312 005261 000002 INC STATE(R1) ;INDICATE COMMAND SOURCE STARTED
408 000316 000261 SEC ;INDICATE COMMAND SOURCE FOUND
409 000320 ELSE
410 000322 062700 000002 ADD #2,R0 ;ADVANCE TO NEXT COMMAND SOURCE
411 000326 000241 CLC ;INDICATE NO COMMAND SOURCE FOUND
412 000330 ENDIF
413 000330 ENDWHILE
414 000332 ENDIF
415 000332 IF ; NO COMMAND SOURCE FOUND
416 000332 FALSE CS
417 000334 THEN
418 000334 005005 CLR R5 ;INDICATE NO CONTROL BLOCK
419 000336 ENDIF
420 000336 ENDPROC
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 10
GCNICE
423 .SBTTL GCNICE
424 ;
425 ;======================================================================;
426 ;++
427 ; +-------------------------------------------------+
428 ; I I
429 ; I G C N I C E I
430 ; I - - - - - - I
431 ; I I
432 ; +-------------------------------------------------+
433 ;
434 ; FUNCTION:
435 ;
436 ; GET COMMAND PROCESSOR MODULE TO CONVERT A NICE FUNCTION CODE TO
437 ; A PROCESSOR NUMBER
438 ;
439 ; CALLING SEQUENCE: CALL GCNICE
440 ;
441 ; INPUT:
442 ;
443 ; R0 - NICE FUNCTION CODE
444 ;
445 ; OUTPUT:
446 ;
447 ; C-BIT - CLEAR IF SUCCESSFUL, SET IF NOT
448 ; R0 - PROCESSOR NUMBER IF SUCCESSFUL
449 ;
450 ; REQUIREMENTS:
451 ;
452 ; PROCESSOR SYMBOLS:
453 ;
454 ; P$.... - WHERE .... IS THE PROCESS MNEMONIC
455 ;
456 ; CONFIGURATION SYMBOLS:
457 ;
458 ; F$.... - WHERE .... IS THE PROCESS MNEMONIC
459 ;
460 ; NICE MESSAGE SYMBOLS:
461 ;
462 ; N$.... - WHERE .... IS THE PROCESS MNEMONIC
463 ;
464 ;--
465 ;======================================================================;
466 ;
467 ; EXTERNAL MACROS
468 ;
469 .MCALL PRDF,NICDF
470 ;
471 ; INTERNAL MACRO TO BUILD A FUNCTION CODE TABLE ENTRY
472 ;
473 .MACRO TABENT ABBR
474 .IF NE F$'ABBR
475 .BYTE N$'ABBR,P$'ABBR
476 .ENDC
477 .ENDM
478 ;
479 ; DEFINE EXTERNAL SYMBOLS
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 10-1
GCNICE
480 ;
481 000340 PRDF ;PROCESSOR SYMBOLS
482 000340 NICDF ;NICE MESSAGE SYMBOLS
483 ;
484 ; DEFINE INTERNAL SYMBOLS
485 ;
486 000002 ENTLEN = 2. ;LENGTH OF FUNCTION CODE TABLE ENTRY
487 000000 FUNCOD = 0. ;OFFSET OF FUNCTION CODE
488 000001 PRONUM = 1. ;OFFSET OF PROCESSOR NUMBER
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 11
GCNICE
490 ;
491 ; FUNCTION CODE TABLE
492 ;
493 000340 FUNTAB:
494 ;
495 000340 TABENT DPOS ;DEPOSIT MEMORY ;AP0001
496 000342 TABENT DUMP
497 000342 TABENT EXAM ;EXAMINE MEMORY ;AP0001
498 000344 TABENT LNSR ;LINE SERVICE
499 000346 TABENT LOAD
500 000346 TABENT LOGD ;EVENT LOGGING DATA ;AP0002
501 000350 TABENT LOOP
502 000352 TABENT RDIN ;READ INFORMATION
503 000354 TABENT STPR ;SET PARAMETER
504 000356 TABENT TEST
505 000360 TABENT TRIG ;TRIGGER BOOTSTRAP
506 000362 TABENT ZERO ;ZERO COUNTERS
507 ;
508 000364 TABEND:
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 12
GCNICE
510 ;
511 ; LOCAL PROCEDURE BODY
512 ;
513 000364 PROCLC GCNICE
514 000364 012702 000340' MOV #FUNTAB,R2 ;INITIALIZE TABLE ADDRESS
515 000370 005001 CLR R1 ;INITIALIZE PROCESSOR NUMBER
516 000372 WHILE ; PROCESSOR NUMBER NOT SET AND ADDRESS < END
517 000372 FALSE SET R1
518 000376 FALSE HIS R2,#TABEND
519 000404 DO
520 000404 IF ; FUNCTION CODES MATCH
521 000404 FALSEB NE R0,FUNCOD(R2)
522 000412 THEN
523 000412 116201 000001 MOVB PRONUM(R2),R1 ;GET PROCESSOR NUMBER
524 000416 ELSE
525 000420 062702 000002 ADD #ENTLEN,R2 ;MOVE UP TO NEXT ENTRY
526 000424 ENDIF
527 000424 ENDWHILE
528 000426 IF ; PROCESSOR NUMBER SET
529 000426 FALSE CLEAR R1
530 000432 THEN
531 000432 010100 MOV R1,R0 ;SET RETURN REGISTER
532 000434 000241 CLC ;RETURN SUCCESS
533 000436 ELSE
534 000440 000261 SEC ;RETURN FAILURE
535 000442 ENDIF
536 000442 ENDPROC
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 13
GCNTCM
540 .SBTTL GCNTCM
541 ;
542 ;======================================================================;
543 ;++
544 ; +-------------------------------------------------+
545 ; I I
546 ; I G C N T C M I
547 ; I - - - - - - I
548 ; I I
549 ; +-------------------------------------------------+
550 ;
551 ; FUNCTION:
552 ;
553 ; GET COMMAND PROCESSOR MODULE TO GET A COMMAND FROM THE NETWORK
554 ;
555 ; CALLING SEQUENCE: CALL GCNTCM
556 ;
557 ; INPUT:
558 ;
559 ; R3 - ADDRESS OF PROCESS CONTEXT BLOCK
560 ; STATE - PROCESS STATE
561 ; R5 - ADDRESS OF CONTROL BLOCK
562 ; C.ADDR - ADDRESS OF BUFFER FOR SOME OPERATIONS, ADDRESS OF TIMER
563 ; SWITCH FOR RECEIVE EVENT
564 ; @C.ADDR - MESSAGE RECEIVED FOR RECEIVE MESSAGE OPERATION
565 ; C.FUNC - FUNCTION CODE
566 ; C.LKNM - LOGICAL LINK NUMBER TO USE, ZERO IF NONE
567 ; C.RET - OPERATION RETURN CONDITION CODE
568 ;
569 ; OUTPUT:
570 ;
571 ; @R3 - UPDATED PROCESS CONTEXT
572 ; STATE - ZERO FOR STARTUP INACTIVE, SET FOR STARTUP ACTIVE
573 ; @R5 - UPDATED CONTROL BLOCK
574 ; @C.ADDR - MESSAGE TO SEND FOR TRANSMIT MESSAGE OPERATION
575 ; C.CTXT - ZERO FOR STARTING PROCESSOR
576 ; C.FUNC - FUNCTION CODE TO PERFORM
577 ; C.PROC - PROCESSOR NUMBER
578 ; C.LEN - LENGTH FOR SOME OPERATIONS
579 ;
580 ; REQUIREMENTS:
581 ;
582 ; INPUT VIA GCDAT:
583 ;
584 ; CMDSOR - NUMBER OF CURRENTLY ACTIVE COMMAND SOURCES
585 ; STATE - SYMBOL FOR OFFSET OF STATE IN PROCESS CONTEXT BLOCK
586 ;
587 ; NICE MESSAGE SYMBOLS:
588 ;
589 ; N.MLEN - MAXIMUM LENGTH OF A NICE MESSAGE
590 ; NE$FUN - INVALID FUNCTION CODE ERROR CODE
591 ;
592 ; PROCESSOR SYMBOLS:
593 ;
594 ; P$EVNT - PROCESSOR NUMBER FOR EVENT
595 ;
596 ; CONTROL BLOCK SYMBOLS:
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 13-1
GCNTCM
597 ;
598 ; C.ADDR - OFFSET OF ADDRESS FIELD
599 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
600 ; C.LEN - OFFSET OF LENGTH FIELD
601 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
602 ; C.RET - OFFSET OF RETURN CODE FIELD
603 ; C$ALBF - ALLOCATE BUFFER FUNCTION CODE
604 ; C$CLLK - CLOSE LINK FUNCTION CODE
605 ; C$OPLK - OPEN LINK FUNCTION CODE
606 ; C$PROC - PROCESS FUNCTION CODE
607 ; C$RCEV - RECEIVE EVENT FUNCTION CODE
608 ; C$RCMS - RECEIVE MESSAGE FUNCTION CODE
609 ; C$RLCI - RELEASE CONTROL BLOCK IMMEDIATE FUNCTION CODE
610 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
611 ; CS$LKE - LINK ESTABLISHED RETURN CODE
612 ; CS$LNA - LINE ATTENTION RETURN CODE
613 ;
614 ; CONFIGURATION CONTROLS:
615 ;
616 ; F$EVNT - SET IF EVENT PROCESSOR PRESENT
617 ;
618 ; EFFECTS:
619 ;
620 ; OUTPUT VIA GCDAT:
621 ;
622 ; CMDSOR - UPDATED NUMBER OF ACTIVE COMMAND SOURCES
623 ; WINDUP - SET IF RECEIVE EVENT FAILS
624 ;
625 ;--
626 ;======================================================================;
627 ;
628 ;
629 ; EXTERNAL MACROS
630 ;
631 .MCALL PRDF,NICDF
632 ;
633 ; DEFINE EXTERNAL SYMBOLS
634 ;
635 000444 PRDF ;PROCESSOR SYMBOLS
636 000444 NICDF ;NICE MESSAGE SYMBOLS
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 14
GCNTCM
638 ;
639 ; PROCEDURE BODY
640 ;
641 000444 PROC GCNTCM
642 000444 IF ; FUNCTION CODE = PROCESS JOB
643 000444 FALSEB NE C.FUNC(R5),#C$PROC
644 000454 THEN
645 000454 IF ; LINK NUMBER ALREADY SET
646 000454 FALSE CLEAR C.LKNM(R5)
647 000462 THEN
648 000462 112765 000051 000006 MOVB #C$OPLK,C.FUNC(R5) ;SIGNAL TO DO RECEIVE
649 000470 ELSE
650 000472 012765 000002' 000014 MOV #CMDSOR,C.ADDR(R5) ;MAKE COMMAND SOURCE COUNT THE ABORT SWITCH
651 000500 112765 177730 000006 MOVB #-C$RCEV,C.FUNC(R5) ;TRY TO RECEIVE AN EVENT
652 000506 ENDIF
653 000506 ENDIF
654 000506 IF ; FUNCTION CODE = RECEIVE EVENT
655 000506 FALSEB NE C.FUNC(R5),#C$RCEV
656 000516 THEN
657 000516 ONCASE ; RETURN CODE
658 000516 CASE ; LINK ESTABLISHED
659 000516 FALSEB NE C.RET(R5),#CS$LKE
660 000526 DO
661 000526 112765 000051 000006 MOVB #C$OPLK,C.FUNC(R5) ;SIGNAL TO DO RECEIVE
662 000534 005063 000002 CLR STATE(R3) ;LET ANOTHER INITIALIZATION START
663 000540 005267 000002' INC CMDSOR ;NEW COMMAND SOURCE STARTED
665 000544 CASE ; LINE ATTENTION
666 000546 FALSEB NE C.RET(R5),#CS$LNA
667 000556 DO
668 000556 112765 000011 000007 MOVB #P$EVNT,C.PROC(R5) ;DISPATCH TO EVENT PROCESSOR
669 000564 112765 177600 000006 MOVB #-C$PROC,C.FUNC(R5) ;SET FUNCTION CODE TO PROCESS
670 000572 005065 000004 CLR C.CTXT(R5) ;INITIALIZE HIS CONTEXT
671 000576 005063 000002 CLR STATE(R3) ;LET ANOTHER INITIALIZATION START
672 000602 005267 000002' INC CMDSOR ;NEW COMMAND SOURCE STARTED
674 000606 ELSE ; MUST BE A FAILURE
675 000610 005267 000004' INC WINDUP ;TIME TO GO AWAY
676 000614 005063 000002 CLR STATE(R3) ;RE-INITIALIZE STATE VARIABLE. ;AP0004
677 000620 112765 000000 000006 MOVB #-C$RLCI,C.FUNC(R5) ;RELEASE THE CONTROL BLOCK
678 000626 ENDCASE
679 000626 ENDIF
680 000626 IF ; FUNCTION CODE = OPEN LINK
681 000626 FALSEB NE C.FUNC(R5),#C$OPLK
682 000636 THEN
683 000636 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;LENGTH OF BUFFER TO ALLOCATE
684 000644 112765 177746 000006 MOVB #-C$ALBF,C.FUNC(R5) ;SET FUNCTION CODE TO ALLOCATE BUFFER
685 000652 ENDIF
686 000652 IF ; FUNCTION CODE = TRANSMIT MESSAGE
687 000652 FALSEB NE C.FUNC(R5),#C$TRMS
688 000662 THEN
689 000662 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;PRETEND LENGTH ALLOCATED
690 000670 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5) ;PRETEND JUST ALLOCATED
691 000676 ENDIF
692 000676 IF ; FUNCTION CODE = ALLOCATE BUFFER
693 000676 FALSEB NE C.FUNC(R5),#C$ALBF
694 000706 THEN
695 000706 112765 177724 000006 MOVB #-C$RCMS,C.FUNC(R5) ;SET FUNCTION CODE TO RECEIVE MESSAGE
696 000714 ENDIF
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 14-1
GCNTCM
697 000714 IF ; FUNCTION CODE = RECEIVE MESSAGE
698 000714 FALSEB NE C.FUNC(R5),#C$RCMS
699 000724 THEN
700 000724 IF ; SUCCESS
701 000724 FALSEB LT C.RET(R5)
702 000732 THEN
703 000732 117500 000014 MOVB @C.ADDR(R5),R0 ;GET THE NICE FUNCTION CODE
704 000736 CALL GCNICE ;CONVERT FUNCTION CODE TO PROCESSOR NUMBER
705 000742 IF ; SUCCESS
706 000742 FALSE CS
707 000744 THEN
708 000744 110065 000007 MOVB R0,C.PROC(R5) ;DISPATCH TO APPROPRIATE PROCESSOR
709 000750 112765 177600 000006 MOVB #-C$PROC,C.FUNC(R5) ;SET FUNCTION CODE TO PROCESS
710 000756 005065 000004 CLR C.CTXT(R5) ;INITIALIZE CONTEXT
711 000762 ELSE
712 000764 112775 177777 000014 MOVB #NE$FUN,@C.ADDR(R5) ;PUT NICE FUNCTION CODE ERROR IN MESSAGE
713 000772 012765 000001 000012 MOV #1,C.LEN(R5) ;SET LENGTH OF MESSAGE
714 001000 112765 177725 000006 MOVB #-C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
715 001006 ENDIF
716 001006 ELSE
717 001010 112765 177777 000006 MOVB #-C$RLBF,C.FUNC(R5) ;RELEASE THE BUFFER
718 001016 ENDIF
719 001016 ENDIF
720 001016 IF ; FUNCTION CODE = RELEASE BUFFER
721 001016 FALSEB NE C.FUNC(R5),#C$RLBF
722 001026 THEN
723 001026 112765 177726 000006 MOVB #-C$CLLK,C.FUNC(R5) ;CLOSE THE LINK
724 001034 ENDIF
725 001034 IF ; FUNCTION CODE = CLOSE LINK
726 001034 FALSEB NE C.FUNC(R5),#C$CLLK
727 001044 THEN
728 001044 005367 000002' DEC CMDSOR ;THIS COMMAND SOURCE IS GONE
729 001050 112765 000000 000006 MOVB #-C$RLCI,C.FUNC(R5) ;RELEASE THIS CONTROL BLOCK
730 001056 ENDIF
731 001056 105465 000006 NEGB C.FUNC(R5) ;FIX UP THE FUNCTION CODE
732 001062 ENDPROC
734 000001 .END
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 14-2
SYMBOL TABLE
A$$CHK= 000000 C$ORD = 000145 FL$BOO= 000001 F$OPOR= 000000 K$$TPS= 000074
A$$CPS= 000000 C$PROC= 000200 FL$DUM= 000001 F$OPOT= 000000 LD$LP = 000000
A$$TRP= 000000 C$RCBK= 000047 FL$LOA= 000001 F$ORLU= 000000 LI$KNO= 000000
CBADDR 000000R 002 C$RCEV= 000050 FL$LOO= 000001 F$OTLU= 000001 LI$STA= 000001
CE$ACP= 177753 C$RCIN= 000062 FR$LCC= 000001 F$RCBK= 000002 LI$STR= 000002
CE$ADR= 177776 C$RCMA= 000146 FR$LCS= 000001 F$RCEV= 000001 LS$DUM= 000002
CE$CON= 177770 C$RCMS= 000054 FR$LNC= 000001 F$RCIN= 000000 LS$LOA= 000000
CE$DIS= 177771 C$RDBK= 000043 FR$LNL= 000001 F$RCMA= 000000 LS$LOO= 000001
CE$EOF= 177767 C$RDCM= 000035 FR$LNS= 000001 F$RCMS= 000002 LS$TRI= 000004
CE$FAI= 177774 C$RDIN= 000040 FR$RMC= 000001 F$RDBK= 000000 LS$TRQ= 000003
CE$FIL= 177756 C$RDIS= 000040 FR$RML= 000001 F$RDCM= 000000 L$$ASG= 000000
CE$FUN= 177777 C$RDRC= 000060 FR$RMS= 000001 F$RDIN= 000001 L$$DRV= 000000
CE$GEN= 177774 C$RLBF= 000001 FS$HOS= 000001 F$RDIS= 000012 L$$P11= 000001
CE$IND= 177757 C$RLCB= 000002 FS$INT= 000000 F$RDRC= 000000 L$$11R= 000000
CE$IO = 177760 C$RLCI= 000000 FS$LLP= 000001 F$RECO= 000001 MODULE= 000000
CE$LEN= 177775 C$STBK= 000055 FS$LOF= 000001 F$RLBF= 000001 M$$CRB= 000124
CE$LID= 177766 C$STPR= 000037 FS$LOG= 000001 F$RLCB= 000001 M$$CRX= 000000
CE$LST= 177752 C$STPS= 000037 FS$LST= 000001 F$STBK= 000000 M$$FCS= 000000
CE$NOD= 177765 C$TRBK= 000046 FS$NET= 000001 F$STPR= 000001 M$$OVR= 000000
CE$NSD= 177755 C$TRIN= 000063 FS$NST= 000000 F$STPS= 000006 NCLKIX= 000000
CE$NST= 177754 C$TRMA= 000145 FS$PAS= 000001 F$TEST= 000001 ND$BAD= 177777
CE$NWE= 177773 C$TRMS= 000053 FT$CNS= 000000 F$TRAC= 000000 ND$LCC= 000000
CE$OBJ= 177750 C$WRBK= 000044 FT$NOD= 000001 F$TRBK= 000001 ND$LCS= 000001
CE$OPN= 177761 C$WRCL= 000065 FT$TSK= 000001 F$TRIG= 000001 ND$LNC= 000004
CE$OVR= 177764 C$WRCM= 000036 FUNCOD= 000000 F$TRIN= 000000 ND$LNS= 000005
CE$PAR= 177763 C$WRRC= 000061 FUNTAB 000340R F$TRMA= 000000 ND$RMC= 000002
CE$PRO= 177751 C$ZRCN= 000064 F$ALBF= 000001 F$TRMS= 000002 ND$RMS= 000003
CE$REJ= 177772 C$$CKP= 000000 F$ALCB= 000001 F$WRBK= 000000 ND$ZLC= 000000
CE$TMO= 177762 C$$ORE= 000400 F$CB = 000017 F$WRCL= 000001 ND$ZLN= 000002
CMDSOR 000002R 002 C$$RSH= 177564 F$CLCL= 000001 F$WRCM= 000000 ND$ZRM= 000001
CS$ACK= 000002 C.ADDR= 000014 F$CLCO= 000000 F$WRRC= 000000 NE$CON= 177762
CS$LKE= 000001 C.BKNM= 000014 F$CLFL= 000000 F$ZERO= 000001 NE$FIL= 177763
CS$LNA= 000002 C.CTXT= 000004 F$CLLK= 000006 F$ZRCN= 000001 NE$FIO= 177756
CS$LOG= 000003 C.FUNC= 000006 F$CLLN= 000002 F$$LVL= 000001 NE$FOR= 177776
CS$NCH= 000003 C.LEN = 000012 F$DPOS= 000001 F$150 = 000002 NE$FUN= 177777
CS$SUC= 000001 C.LINE= 000014 F$DUMP= 000000 F$300 = 000012 NE$LCO= 177766
CTEXT 000006R 002 C.LKNM= 000020 F$EVNT= 000001 F$50 = 000002 NE$LID= 177770
CTEXTE= 000002 C.LUN = 000020 F$EXAM= 000001 F$550 = 000002 NE$LPR= 177757
CTNTCM 000010R 002 C.MODE= 000021 F$EXHO= 000000 GCGTCM 000000RG NE$LST= 177767
C$ALBF= 000032 C.PRID= 000017 F$GTCM= 000001 GCMDSR 000002RG 002 NE$NCO= 177755
C$ALCB= 000033 C.PROC= 000007 F$INCM= 000000 GCNEXT 000236R NE$NIC= 177753
C$CLCL= 000067 C.PROM= 000016 F$INLU= 000001 GCNICE 000364R NE$NOD= 177765
C$CLCO= 000003 C.PTR = 000000 F$IRLU= 000000 GCNTCM 000444RG NE$NOR= 177754
C$CLFL= 000004 C.RET = 000010 F$LKLU= 000010 G$$TPP= 000000 NE$ORD= 177774
C$CLLK= 000052 C.SAVE= 000022 F$LNLU= 000002 G$$TSS= 000000 NE$PAR= 177760
C$CLLN= 000005 C.SERV= 000002 F$LNSR= 000001 G$$TTK= 000000 NE$RES= 177761
C$LEN = 000026 C.TASK= 000016 F$LOAD= 000000 INCMIX= 000002 NE$SER= 177764
C$NOPN= 000031 C.TYPE= 000016 F$LOGD= 000001 IS$ABO= 000004 NE$STA= 177775
C$NORD= 000032 C.WAIT= 000020 F$LOOP= 000001 IS$FIN= 000005 NL$BRC= 000001
C$OPCL= 000066 DM$END= 000000 F$NTCM= 000000 IS$INP= 000002 NL$BTR= 000002
C$OPCO= 000034 DM$MIM= 000002 F$OPCL= 000001 IS$INZ= 000001 NL$RES= 000005
C$OPIN= 000041 DM$PXA= 000003 F$OPCO= 000000 IS$SEL= 000003 NL$RLE= 000004
C$OPIR= 000056 DM$SAD= 000001 F$OPIN= 000000 I$$RAR= 000000 NL$RTR= 000003
C$OPLK= 000051 D$$BUG= 177514 F$OPIR= 000000 I$$RDN= 000000 NL$TMO= 000006
C$OPLN= 000045 D$$ISK= 000000 F$OPLK= 000005 K$$CNT= 177546 NL$ZRO= 000000
C$OPOR= 000057 D$$L11= 000001 F$OPLN= 000002 K$$CSR= 177546 NN$CAC= 000011
C$OPOT= 000042 ENTLEN= 000002 F$OPLO= 000000 K$$LDC= 000000 NN$CNI= 000013
GCGTCM MACRO M1110 13-OCT-79 11:42 PAGE 14-3
SYMBOL TABLE
NN$CNR= 000014 N$STPR= 000007 P$RDIN= 000010 SP$DRP= 000007 S$$WRG= 000000
NN$EXT= 000003 N$TEST= 000006 P$STPR= 000007 SP$DTP= 000010 S$$YSZ= 001600
NN$FMT= 000005 N$TRIG= 000004 P$TEST= 000006 SP$LHO= 000002 TABEND 000364R
NN$IZS= 000007 N$ZERO= 000011 P$TRIG= 000012 SP$LLP= 000011 T$$KMG= 000000
NN$IZU= 000010 N$$USR= 000001 P$ZERO= 000013 SP$LNM= 000016 T$$MIN= 000000
NN$MAC= 000012 N.MLEN= 000454 P$$P45= 000000 SP$LNO= 000015 V$$CTR= 001000
NN$NKS= 000004 PRONUM= 000001 RI$LCC= 000001 SP$LOF= 000012 WINDUP 000004R 002
NN$RES= 000006 PT$END= 000000 RI$LCS= 000002 SP$LST= 000001 X$$DBT= 000000
NN$UMR= 000002 PT$HOS= 000003 RI$LNC= 000007 SP$NDM= 000014 YES = 000001
NN$UMS= 000001 PT$NAM= 000001 RI$LNL= 000006 SP$NDO= 000013 $$CSTA= 000000
NN$ZRO= 000000 PT$NUM= 000002 RI$LNS= 000010 SP$NST= 000006 $$PRST= 000023
NO = 000000 P$DPOS= 000016 RI$RMC= 000004 SP$RRP= 000004 $$STIX= 000777
NSTATE 000012R 002 P$DUMP= 000003 RI$RML= 000003 SP$RTP= 000005 $$STNM= 000000
NS$SUC= 000001 P$EVNT= 000011 RI$RMS= 000005 STATE = 000002 $$S771= 000073
N$DPOS= 000014 P$EXAM= 000017 RI$ZLC= 000011 ST$DIS= 000006 $$S772= 000077
N$DUMP= 000003 P$GTCM= 000001 RI$ZLN= 000013 ST$ENA= 000005 $$S773= 000020
N$EXAM= 000015 P$INCM= 000015 RI$ZRM= 000012 ST$LOO= 000003 $$S774= 000077
N$LNSR= 000016 P$LNSR= 000004 R$$DER= 000000 ST$MAI= 000004 $$S775= 000017
N$LOAD= 000002 P$LOAD= 000002 R$$K11= 000001 ST$OFF= 000001 $$S776= 000000
N$LOGD= 000001 P$LOGD= 000020 R$$SND= 000000 ST$ON = 000000 $$S777= 000000
N$LOOP= 000005 P$LOOP= 000005 R$$11M= 000000 ST$SHU= 000002 $$TRNM= 000000
N$RDIN= 000010 P$NTCM= 000014 SP$DHO= 000003
. ABS. 000000 000
001064 001
GCDAT 000014 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 10792 WORDS ( 43 PAGES)
DYNAMIC MEMORY: 12172 WORDS ( 46 PAGES)
ELAPSED TIME: 00:03:01
GCGTCM,[135,30]GCGTCM/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,GCGTCM
GCGTCM CREATED BY MACRO ON 13-OCT-79 AT 11:43 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CBADDR 000000 R #4-79 *6-165 6-171 7-204 *7-213 9-403
CMDSOR 000002 R #4-79 *6-194 7-210 14-650 *14-663 *14-672 *14-728
CS$LKE = 000001 14-659
CS$LNA = 000002 14-666
CTEXT 000006 R #4-79 4-79 4-79 4-79 6-182 9-399
CTEXTE = 000002 #4-79 9-397
CTNTCM 000010 R 4-79 #4-79
C$ALBF = 000032 14-684 14-690 14-693
C$ALCB = 000033 9-406
C$CLLK = 000052 14-723 14-726
C$OPLK = 000051 14-648 14-661 14-681
C$PROC = 000200 6-175 14-643 14-669 14-709
C$RCEV = 000050 14-651 14-655
C$RCMS = 000054 14-695 14-698
C$RLBF = 000001 14-717 14-721
C$RLCI = 000000 6-193 14-677 14-729
C$TRMS = 000053 14-687 14-714
C.ADDR = 000014 6-173 *14-650 14-703 14-712
C.CTXT = 000004 6-161 6-176 *6-176 *6-177 *6-191 7-206 *9-405 *14-670 *14-710
C.FUNC = 000006 *6-175 *6-193 *9-406 14-643 *14-648 *14-651 14-655 *14-661 *14-669
*14-677 14-681 *14-684 14-687 *14-690 14-693 *14-695 14-698 *14-709
*14-714 *14-717 14-721 *14-723 14-726 *14-729 *14-731
C.LEN = 000012 *14-683 *14-689 *14-713
C.LKNM = 000020 6-189 14-646
C.PROC = 000007 6-174 *6-174 *14-668 *14-708
C.RET = 000010 14-659 14-666 14-701
ENTLEN = 000002 #10-486 12-525
FL$BOO = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FL$DUM = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FL$LOA = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FL$LOO = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FR$LCC = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FR$LCS = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FR$LNC = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FR$LNL = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FR$LNS = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FR$RMC = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FR$RML = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FR$RMS = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FS$HOS = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FS$INT = 000000 #4-73 4-73 4-73 4-73 #4-79 4-79 4-79 4-79 4-79
4-79 #5-150 5-150 5-150 5-150 6-195 8-226
FS$LLP = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FS$LOF = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FS$LOG = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FS$LST = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FS$NET = 000001 #4-73 4-73 #4-79 4-79 4-79 4-79 #5-150 5-150 10-422
13-539
FS$NST = 000000 #4-73 4-73 #4-79 4-79 #5-150 5-150
FS$PAS = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FT$CNS = 000000 #4-73 4-73 #4-79 4-79 #5-150 5-150
FT$NOD = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
GCGTCM CREATED BY MACRO ON 13-OCT-79 AT 11:43 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
FT$TSK = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
FUNCOD = 000000 #10-487 12-521
FUNTAB 000340 R #11-493 12-514
F$ALBF = 000001 #4-73 #4-79 #5-150
F$ALCB = 000001 #4-73 #4-79 #5-150
F$CB = 000017 #4-73 #4-79 #5-150
F$CLCL = 000001 #4-73 4-73 #4-73 #4-79 4-79 #4-79 #5-150 5-150 #5-150
F$CLCO = 000000 #4-73 #4-79 #5-150
F$CLFL = 000000 #4-73 #4-79 #5-150
F$CLLK = 000006 #4-73 4-73 #4-73 4-73 #4-73 4-73 #4-73 4-73 #4-73
4-73 #4-73 4-73 #4-73 #4-79 4-79 #4-79 4-79 #4-79
4-79 #4-79 4-79 #4-79 4-79 #4-79 4-79 #4-79 #5-150
5-150 #5-150 5-150 #5-150 5-150 #5-150 5-150 #5-150 5-150
#5-150 5-150 #5-150
F$CLLN = 000002 #4-73 4-73 #4-73 4-73 #4-73 #4-79 4-79 #4-79 4-79
#4-79 #5-150 5-150 #5-150 5-150 #5-150
F$DPOS = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150 11-495
F$DUMP = 000000 #4-73 4-73 #4-79 4-79 #5-150 5-150 11-496
F$EVNT = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150 14-664
F$EXAM = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150 11-497
F$EXHO = 000000 #4-73 #4-79 #5-150
F$GTCM = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150
F$INCM = 000000 #4-73 4-73 #4-79 4-79 #5-150 5-150
F$INLU = 000001 #4-73 #4-79 #5-150
F$IRLU = 000000 #4-73 #4-79 #5-150
F$LKLU = 000010 #4-73 #4-79 #5-150
F$LNLU = 000002 #4-73 #4-79 #5-150
F$LNSR = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150 11-498
F$LOAD = 000000 #4-73 4-73 #4-79 4-79 #5-150 5-150 11-499
F$LOGD = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150 11-500
F$LOOP = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150 11-501
F$NTCM = 000000 #4-73 4-73 #4-79 4-79 #5-150 5-150
F$OPCL = 000001 #4-73 4-73 #4-73 #4-79 4-79 #4-79 #5-150 5-150 #5-150
F$OPCO = 000000 #4-73 #4-79 #5-150
F$OPIN = 000000 #4-73 #4-79 #5-150
F$OPIR = 000000 #4-73 #4-79 #5-150
F$OPLK = 000005 #4-73 4-73 #4-73 4-73 #4-73 4-73 #4-73 4-73 #4-73
4-73 #4-73 #4-79 4-79 #4-79 4-79 #4-79 4-79 #4-79
4-79 #4-79 4-79 #4-79 #5-150 5-150 #5-150 5-150 #5-150
5-150 #5-150 5-150 #5-150 5-150 #5-150
F$OPLN = 000002 #4-73 4-73 #4-73 4-73 #4-73 #4-79 4-79 #4-79 4-79
#4-79 #5-150 5-150 #5-150 5-150 #5-150
F$OPLO = 000000 #4-73 #4-79 #5-150
F$OPOR = 000000 #4-73 #4-79 #5-150
F$OPOT = 000000 #4-73 #4-79 #5-150
F$ORLU = 000000 #4-73 #4-79 #5-150
F$OTLU = 000001 #4-73 #4-79 #5-150
F$RCBK = 000002 #4-73 4-73 #4-73 4-73 #4-73 #4-79 4-79 #4-79 4-79
#4-79 #5-150 5-150 #5-150 5-150 #5-150
F$RCEV = 000001 #4-73 4-73 #4-73 #4-79 4-79 #4-79 #5-150 5-150 #5-150
F$RCIN = 000000 #4-73 #4-79 #5-150
F$RCMA = 000000 #4-73 #4-79 #5-150
GCGTCM CREATED BY MACRO ON 13-OCT-79 AT 11:43 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$RCMS = 000002 #4-73 4-73 #4-73 #4-79 4-79 #4-79 #5-150 5-150 #5-150
F$RDBK = 000000 #4-73 #4-79 #5-150
F$RDCM = 000000 #4-73 #4-79 #5-150
F$RDIN = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150 11-502
F$RDIS = 000012 #4-73 4-73 #4-73 4-73 #4-73 4-73 #4-73 4-73 #4-73
4-73 #4-73 4-73 #4-73 4-73 #4-73 4-73 #4-73 4-73
#4-73 #4-79 4-79 #4-79 4-79 #4-79 4-79 #4-79 4-79
#4-79 4-79 #4-79 4-79 #4-79 4-79 #4-79 4-79 #4-79
4-79 #4-79 #5-150 5-150 #5-150 5-150 #5-150 5-150 #5-150
5-150 #5-150 5-150 #5-150 5-150 #5-150 5-150 #5-150 5-150
#5-150 5-150 #5-150
F$RDRC = 000000 #4-73 #4-79 #5-150
F$RECO = 000001 #4-73 4-73 #4-73 #4-79 4-79 #4-79 #5-150 5-150 #5-150
F$RLBF = 000001 #4-73 #4-79 #5-150
F$RLCB = 000001 #4-73 #4-79 #5-150
F$STBK = 000000 #4-73 #4-79 #5-150
F$STPR = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150 11-503
F$STPS = 000006 #4-73 4-73 #4-73 4-73 #4-73 4-73 #4-73 4-73 #4-73
4-73 #4-73 4-73 #4-73 #4-79 4-79 #4-79 4-79 #4-79
4-79 #4-79 4-79 #4-79 4-79 #4-79 4-79 #4-79 #5-150
5-150 #5-150 5-150 #5-150 5-150 #5-150 5-150 #5-150 5-150
#5-150 5-150 #5-150
F$TEST = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150 11-504
F$TRAC = 000000 #4-73 #4-79 #5-150 6-155 6-155 7-224 7-224 9-389 9-389
9-420 9-420 12-513 12-513 12-536 12-536 14-641 14-641 14-732
14-732
F$TRBK = 000001 #4-73 4-73 #4-73 #4-79 4-79 #4-79 #5-150 5-150 #5-150
F$TRIG = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150 11-505
F$TRIN = 000000 #4-73 #4-79 #5-150
F$TRMA = 000000 #4-73 #4-79 #5-150
F$TRMS = 000002 #4-73 4-73 #4-73 #4-79 4-79 #4-79 #5-150 5-150 #5-150
F$WRBK = 000000 #4-73 #4-79 #5-150
F$WRCL = 000001 #4-73 4-73 #4-73 #4-79 4-79 #4-79 #5-150 5-150 #5-150
F$WRCM = 000000 #4-73 #4-79 #5-150
F$WRRC = 000000 #4-73 #4-79 #5-150
F$ZERO = 000001 #4-73 4-73 #4-79 4-79 #5-150 5-150 11-506
F$ZRCN = 000001 #4-73 4-73 #4-73 #4-79 4-79 #4-79 #5-150 5-150 #5-150
F$150 = 000002 #4-73 #4-79 #5-150
F$300 = 000012 #4-73 #4-79 #5-150
F$50 = 000002 #4-73 #4-79 #5-150
F$550 = 000002 #4-73 #4-79 #5-150
GCGTCM 000000 RG #6-155
GCMDSR 000002 RG #4-79
GCNEXT 000236 R 6-166 7-217 #9-389
GCNICE 000364 R #12-513 14-704
GCNTCM 000444 RG 4-79 #14-641
INCMIX = 000002 #4-79
I$$AS = ****** 6-155 9-389 12-513 14-641
MODULE = 000000 #4-79 6-183
NCLKIX = 000000 #4-79 6-191
NE$FUN = 177777 14-712
NO = 000000 #4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73
GCGTCM CREATED BY MACRO ON 13-OCT-79 AT 11:43 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73
4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73
4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73
4-73 4-73 4-73 #4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 #5-150 5-150 5-150
5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150
5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150
5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150
5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150
NSTATE 000012 R #4-79
N$DPOS = 000014 11-495
N$EXAM = 000015 11-497
N$LNSR = 000016 11-498
N$LOGD = 000001 11-500
N$LOOP = 000005 11-501
N$RDIN = 000010 11-502
N$STPR = 000007 11-503
N$TEST = 000006 11-504
N$TRIG = 000004 11-505
N$ZERO = 000011 11-506
N.MLEN = 000454 14-683 14-689
PRONUM = 000001 #10-488 12-523
P$DPOS = 000016 11-495
P$EVNT = 000011 14-668
P$EXAM = 000017 11-497
P$LNSR = 000004 11-498
P$LOGD = 000020 11-500
P$LOOP = 000005 11-501
P$RDIN = 000010 11-502
P$STPR = 000007 11-503
P$TEST = 000006 11-504
P$TRIG = 000012 11-505
P$ZERO = 000013 11-506
R$$11D = ****** 6-155 9-389 12-513 14-641
R$$11M = 000000 6-155 9-389 12-513 14-641
STATE = 000002 #4-79 9-401 *9-407 *14-662 *14-671 *14-676
TABEND 000364 R #11-508 12-518
WINDUP 000004 R #4-79 7-209 *7-214 9-392 *14-675
YES = 000001 #4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73
4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73
4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73
4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73
4-73 4-73 4-73 4-73 4-73 #4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 #5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150
5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150
GCGTCM CREATED BY MACRO ON 13-OCT-79 AT 11:43 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150
5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150
5-150 5-150 5-150 5-150 5-150 5-150
$$CSTA = 000000 #6-155 *6-160 #6-160 6-162 #6-162 6-167 6-186 #6-199 #9-389
#12-513 #14-641 14-657 #14-657 14-658 #14-658 14-665 #14-678
$$PRST = 000023 #6-155 6-156 #6-156 *6-160 #6-160 6-170 #6-170 6-188 #6-188
*7-205 #7-205 7-208 #7-208 #9-389 9-391 #9-391 9-395 #9-395
*9-400 #9-400 9-415 #9-415 #12-513 12-516 #12-516 12-520 #12-520
12-528 #12-528 #14-641 14-642 #14-642 14-645 #14-645 14-654 #14-654
14-657 #14-657 14-680 #14-680 14-686 #14-686 14-692 #14-692 14-697
#14-697 14-700 #14-700 14-705 #14-705 14-720 #14-720 14-725 #14-725
$$SLST = ****** 6-155 6-157 6-157 6-158 6-163 6-163 6-164 6-167 6-167
6-168 6-168 6-169 6-171 6-171 6-172 6-179 6-179 6-185
6-186 6-186 6-187 6-189 6-189 6-190 6-192 6-192 6-198
6-199 6-199 7-203 7-203 7-206 7-206 7-207 7-209 7-209
7-210 7-210 7-211 7-216 7-216 7-219 7-220 7-220 7-222
7-223 7-224 9-389 9-392 9-392 9-393 9-395 9-396 9-397
9-397 9-398 9-401 9-401 9-402 9-409 9-409 9-412 9-413
9-413 9-414 9-416 9-417 9-419 9-420 12-513 12-516 12-517
12-517 12-518 12-518 12-519 12-521 12-521 12-522 12-524 12-524
12-526 12-527 12-527 12-529 12-529 12-530 12-533 12-533 12-535
12-536 14-641 14-643 14-643 14-644 14-646 14-646 14-647 14-649
14-649 14-652 14-653 14-655 14-655 14-656 14-659 14-659 14-660
14-665 14-665 14-666 14-666 14-667 14-674 14-674 14-678 14-679
14-681 14-681 14-682 14-685 14-687 14-687 14-688 14-691 14-693
14-693 14-694 14-696 14-698 14-698 14-699 14-701 14-701 14-702
14-706 14-707 14-711 14-711 14-715 14-716 14-716 14-718 14-719
14-721 14-721 14-722 14-724 14-726 14-726 14-727 14-730 14-732
$$STIX = 000777 #6-155 6-156 6-156 #6-156 6-156 6-156 #6-156 *6-160 *6-160
#6-160 *6-160 *6-160 #6-160 *6-160 *6-160 #6-160 6-170 6-170
#6-170 6-170 6-170 #6-170 6-185 #6-185 6-185 6-185 #6-185
6-185 6-188 6-188 #6-188 6-188 6-188 #6-188 6-198 #6-198
6-198 6-198 #6-198 6-198 6-199 #6-199 6-199 6-199 #6-199
6-199 6-199 #6-199 6-199 *7-205 *7-205 #7-205 *7-205 *7-205
#7-205 7-208 7-208 #7-208 7-208 7-208 #7-208 7-219 #7-219
7-219 7-219 #7-219 7-219 7-222 #7-222 7-222 7-222 #7-222
7-222 7-223 #7-223 7-223 7-223 #7-223 7-223 #9-389 9-391
9-391 #9-391 9-391 9-391 #9-391 9-395 9-395 #9-395 9-395
9-395 #9-395 *9-400 *9-400 #9-400 *9-400 *9-400 #9-400 9-412
#9-412 9-412 9-412 #9-412 9-412 9-413 #9-413 9-413 9-413
#9-413 9-413 9-414 #9-414 9-414 9-414 #9-414 9-414 9-415
9-415 #9-415 9-415 9-415 #9-415 9-419 #9-419 9-419 9-419
#9-419 9-419 #12-513 12-516 12-516 #12-516 12-516 12-516 #12-516
12-520 12-520 #12-520 12-520 12-520 #12-520 12-526 #12-526 12-526
12-526 #12-526 12-526 12-527 #12-527 12-527 12-527 #12-527 12-527
12-528 12-528 #12-528 12-528 12-528 #12-528 12-535 #12-535 12-535
12-535 #12-535 12-535 #14-641 14-642 14-642 #14-642 14-642 14-642
#14-642 14-645 14-645 #14-645 14-645 14-645 #14-645 14-652 #14-652
14-652 14-652 #14-652 14-652 14-653 #14-653 14-653 14-653 #14-653
14-653 14-654 14-654 #14-654 14-654 14-654 #14-654 14-657 14-657
#14-657 14-657 14-657 #14-657 14-657 14-657 #14-657 *14-678 #14-678
*14-678 14-678 #14-678 14-678 14-678 #14-678 14-678 14-679 #14-679
GCGTCM CREATED BY MACRO ON 13-OCT-79 AT 11:43 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
14-679 14-679 #14-679 14-679 14-680 14-680 #14-680 14-680 14-680
#14-680 14-685 #14-685 14-685 14-685 #14-685 14-685 14-686 14-686
#14-686 14-686 14-686 #14-686 14-691 #14-691 14-691 14-691 #14-691
14-691 14-692 14-692 #14-692 14-692 14-692 #14-692 14-696 #14-696
14-696 14-696 #14-696 14-696 14-697 14-697 #14-697 14-697 14-697
#14-697 14-700 14-700 #14-700 14-700 14-700 #14-700 14-705 14-705
#14-705 14-705 14-705 #14-705 14-715 #14-715 14-715 14-715 #14-715
14-715 14-718 #14-718 14-718 14-718 #14-718 14-718 14-719 #14-719
14-719 14-719 #14-719 14-719 14-720 14-720 #14-720 14-720 14-720
#14-720 14-724 #14-724 14-724 14-724 #14-724 14-724 14-725 14-725
#14-725 14-725 14-725 #14-725 14-730 #14-730 14-730 14-730 #14-730
14-730
$$STNM = 000000 #6-155 6-156 #6-156 6-156 6-157 6-158 *6-160 #6-160 *6-160
6-163 6-164 6-167 6-167 6-168 6-169 6-170 #6-170 6-170
6-171 6-172 *6-179 6-179 *6-185 #6-185 6-186 6-186 6-187
6-188 #6-188 6-188 6-189 6-190 *6-192 6-192 6-198 #6-198
6-199 6-199 #6-199 7-203 7-203 *7-205 #7-205 *7-205 7-206
7-207 7-208 #7-208 7-208 7-209 7-210 7-211 7-216 7-216
7-219 #7-219 7-220 7-220 7-222 #7-222 7-223 #7-223 #9-389
9-391 #9-391 9-391 9-392 9-393 9-395 #9-395 9-395 9-395
9-396 9-397 9-398 *9-400 #9-400 *9-400 9-401 9-402 9-409
9-409 9-412 #9-412 9-413 9-413 #9-413 9-414 #9-414 9-415
#9-415 9-415 9-416 9-417 9-419 #9-419 #12-513 12-516 #12-516
12-516 12-516 12-517 12-518 12-519 12-520 #12-520 12-520 12-521
12-522 *12-524 12-524 12-526 #12-526 12-527 12-527 #12-527 12-528
#12-528 12-528 12-529 12-530 12-533 12-533 12-535 #12-535 #14-641
14-642 #14-642 14-642 14-643 14-644 14-645 #14-645 14-645 14-646
14-647 *14-649 14-649 *14-652 #14-652 14-653 #14-653 14-654 #14-654
14-654 14-655 14-656 14-657 #14-657 14-657 14-659 14-660 14-665
14-665 14-666 14-667 14-674 14-674 14-678 #14-678 14-679 #14-679
14-680 #14-680 14-680 14-681 14-682 *14-685 #14-685 14-686 #14-686
14-686 14-687 14-688 *14-691 #14-691 14-692 #14-692 14-692 14-693
14-694 *14-696 #14-696 14-697 #14-697 14-697 14-698 14-699 14-700
#14-700 14-700 14-701 14-702 14-705 #14-705 14-705 14-706 14-707
14-711 14-711 *14-715 #14-715 14-716 14-716 *14-718 #14-718 14-719
#14-719 14-720 #14-720 14-720 14-721 14-722 *14-724 #14-724 14-725
#14-725 14-725 14-726 14-727 *14-730 #14-730
$$S771 = 000073 #6-170 6-185 #6-188 6-198
$$S772 = 000077 #6-170 6-185 #6-188 6-198 #7-208 7-219 #9-400 9-412 #14-705
14-715
$$S773 = 000020 #6-160 6-199 #7-208 7-219 #9-400 9-412 #14-657 *14-678 #14-705
14-715
$$S774 = 000077 #6-160 6-199 #7-205 7-222 #9-395 9-413 #12-520 12-526 #14-645
14-652 #14-657 14-678 #14-700 14-718
$$S775 = 000017 #6-160 6-199 #7-205 7-222 #9-395 9-413 #12-520 12-526 #14-645
14-652 #14-657 14-678 #14-700 14-718
$$S776 = 000000 #6-156 7-223 #9-391 9-414 #9-415 9-419 #12-516 12-527 #12-528
12-535 #14-642 14-653 #14-654 14-679 #14-680 14-685 #14-686 14-691
#14-692 14-696 #14-697 14-719 #14-720 14-724 #14-725 14-730
$$S777 = 000000 #6-156 7-223 #9-391 9-414 #9-415 9-419 #12-516 12-527 #12-528
12-535 #14-642 14-653 #14-654 14-679 #14-680 14-685 #14-686 14-691
#14-692 14-696 #14-697 14-719 #14-720 14-724 #14-725 14-730
GCGTCM CREATED BY MACRO ON 13-OCT-79 AT 11:43 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$$TRNM = 000000 #6-155 6-156 #6-156 6-157 6-158 *6-160 #6-160 6-163 6-164
6-167 6-167 #6-167 6-168 6-169 6-170 #6-170 6-171 6-172
6-179 #6-179 *6-185 #6-185 6-186 6-186 #6-186 6-187 6-188
#6-188 6-189 6-190 6-192 #6-192 6-198 #6-198 6-199 6-199
#6-199 7-203 #7-203 *7-205 #7-205 7-206 7-207 7-208 #7-208
7-209 7-210 7-211 7-216 #7-216 7-219 #7-219 7-220 #7-220
7-222 #7-222 7-223 #7-223 #9-389 9-391 #9-391 9-392 9-393
9-395 #9-395 9-396 9-397 9-398 *9-400 #9-400 9-401 9-402
9-409 #9-409 9-412 #9-412 9-413 #9-413 9-414 #9-414 9-415
#9-415 9-416 9-417 9-419 #9-419 #12-513 12-516 #12-516 12-517
12-518 12-519 12-520 #12-520 12-521 12-522 12-524 #12-524 12-526
#12-526 12-527 #12-527 12-528 #12-528 12-529 12-530 12-533 #12-533
12-535 #12-535 #14-641 14-642 #14-642 14-643 14-644 14-645 #14-645
14-646 14-647 14-649 #14-649 *14-652 #14-652 14-653 #14-653 14-654
#14-654 14-655 14-656 14-657 #14-657 14-659 14-660 14-665 14-665
#14-665 14-666 14-667 14-674 #14-674 14-678 14-678 #14-678 14-679
#14-679 14-680 #14-680 14-681 14-682 *14-685 #14-685 14-686 #14-686
14-687 14-688 *14-691 #14-691 14-692 #14-692 14-693 14-694 *14-696
#14-696 14-697 #14-697 14-698 14-699 14-700 #14-700 14-701 14-702
14-705 #14-705 14-706 14-707 14-711 #14-711 *14-715 #14-715 14-716
#14-716 *14-718 #14-718 14-719 #14-719 14-720 #14-720 14-721 14-722
*14-724 #14-724 14-725 #14-725 14-726 14-727 *14-730 #14-730
GCGTCM CREATED BY MACRO ON 13-OCT-79 AT 11:43 PAGE 8
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #6-166 #6-183 #7-217 #14-704
CASE #6-155 6-162 6-167 6-186 #9-389 #12-513 #14-641 14-658 14-665
CONDF #4-69 #4-75
CONFIG #4-73 #4-79 #4-79 #5-150
DO #6-155 6-164 6-169 6-187 #9-389 9-398 #12-513 12-519 #14-641 14-660
14-667
ELSE #6-155 6-179 6-192 7-203 7-216 7-220 #9-389 9-409 #12-513 12-524
12-533 #14-641 14-649 14-674 14-711 14-716
ENDCAS #6-155 6-199 #9-389 #12-513 #14-641 14-678
ENDIF #6-155 #6-185 #6-198 #6-199 #7-219 #7-222 #7-223 #9-389 #9-412 #9-413
#9-414 #9-419 #12-513 #12-526 #12-527 #12-535 #14-641 #14-652 #14-653 #14-678
#14-679 #14-685 #14-691 #14-696 #14-715 #14-718 #14-719 #14-724 #14-730
ENDPRO #6-155 7-224 #9-389 9-420 #12-513 12-536 #14-641 14-732
ENDWHI #6-155 #9-389 #9-413 #12-513 #12-527 #14-641
FALSE #6-155 6-157 6-163 6-168 6-171 6-189 7-206 7-209 7-210 #9-389
9-392 9-396 9-397 9-401 9-416 #12-513 12-517 12-518 12-529 #14-641
14-646 14-706
FALSEB #6-155 #9-389 #12-513 12-521 #14-641 14-643 14-655 14-659 14-666 14-681
14-687 14-693 14-698 14-701 14-721 14-726
GCDF #4-69 #4-74
GCMDF #4-69 #4-79
IF #6-155 #6-156 #6-160 #6-170 #6-188 #7-205 #7-208 #9-389 #9-391 #9-395
#9-400 #9-415 #12-513 #12-516 #12-520 #12-528 #14-641 #14-642 #14-645 #14-654
#14-657 #14-680 #14-686 #14-692 #14-697 #14-700 #14-705 #14-720 #14-725
JMPPRO #6-155 #9-389 #12-513 #14-641
NICDF #10-469 #10-482 #13-631 #13-636
ONCASE #6-155 6-160 #9-389 #12-513 #14-641 14-657
PRDF #10-469 #10-481 #13-631 #13-635
PROC #4-69 6-155 14-641
PROCLC #4-69 #6-155 9-389 #9-389 12-513 #12-513 #14-641
PROFLG #4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73
4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73
4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73
4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73 4-73
4-73 #4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 #5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150
5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150
5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150
5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150 5-150
5-150 5-150 5-150
RESSTK #4-69 #6-184 #6-200
SAVSTK #4-69 6-159 6-181
SWSTK$ #6-155 #9-389 #12-513 #14-641
TABENT #10-473 11-495 11-496 11-497 11-498 11-499 11-500 11-501 11-502 11-503
11-504 11-505 11-506
THEN #6-155 #6-158 #6-164 #6-169 #6-172 #6-187 #6-190 #7-207 #7-211 #9-389
#9-393 #9-398 #9-402 #9-417 #12-513 #12-519 #12-522 #12-530 #14-641 #14-644
#14-647 #14-656 #14-660 #14-667 #14-682 #14-688 #14-694 #14-699 #14-702 #14-707
#14-722 #14-727
GCGTCM CREATED BY MACRO ON 13-OCT-79 AT 11:43 PAGE 9
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
TRUE #6-155 #9-389 #12-513 #14-641
TRUEB #6-155 #9-389 #12-513 #14-641
WHILE #6-155 #9-389 9-395 #12-513 12-516 #14-641
$$BGND #6-155 #6-157 #6-163 #6-168 #6-171 #6-189 #7-206 #7-209 #7-210 #9-389
#9-392 #9-396 #9-397 #9-401 #9-416 #12-513 #12-517 #12-518 #12-521 #12-529
#14-641 #14-643 #14-646 #14-655 #14-659 #14-666 #14-681 #14-687 #14-693 #14-698
#14-701 #14-706 #14-721 #14-726
$$BGNN #6-155 6-157 6-163 6-167 6-168 6-171 6-179 6-186 6-189 6-192
7-203 7-206 7-209 7-210 7-216 7-220 #9-389 9-392 9-396 9-397
9-401 9-409 9-413 9-416 #12-513 12-517 12-518 12-521 12-524 12-527
12-529 12-533 #14-641 14-643 14-646 14-649 14-655 14-659 14-665 14-666
14-674 14-681 14-687 14-693 14-698 14-701 14-706 14-711 14-716 14-721
14-726
$$ELSE #6-155 6-167 6-179 6-186 6-192 7-203 7-216 7-220 #9-389 9-409
#12-513 12-524 12-533 #14-641 14-649 14-665 14-674 14-711 14-716
$$GEN1 #6-155 #6-155 #6-157 #6-157 #6-158 #6-163 #6-163 #6-164 #6-167 #6-167
#6-168 #6-168 #6-169 #6-171 #6-172 #6-179 #6-179 #6-185 #6-186 #6-186
#6-187 #6-189 #6-189 #6-190 #6-192 #6-192 #6-198 #6-199 #6-199 #7-203
#7-203 #7-206 #7-206 #7-207 #7-209 #7-209 #7-210 #7-210 #7-211 #7-216
#7-216 #7-219 #7-220 #7-220 #7-222 #7-223 #7-224 #9-389 #9-389 #9-392
#9-392 #9-393 #9-395 #9-396 #9-397 #9-398 #9-401 #9-401 #9-402 #9-409
#9-409 #9-412 #9-413 #9-413 #9-414 #9-416 #9-417 #9-419 #9-420 #12-513
#12-513 #12-516 #12-517 #12-517 #12-518 #12-519 #12-521 #12-522 #12-524 #12-524
#12-526 #12-527 #12-527 #12-529 #12-529 #12-530 #12-533 #12-533 #12-535 #12-536
#14-641 #14-641 #14-643 #14-644 #14-646 #14-646 #14-647 #14-649 #14-649 #14-652
#14-653 #14-655 #14-656 #14-659 #14-660 #14-665 #14-665 #14-666 #14-667 #14-674
#14-674 #14-678 #14-679 #14-681 #14-682 #14-685 #14-687 #14-688 #14-691 #14-693
#14-694 #14-696 #14-698 #14-699 #14-701 #14-701 #14-702 #14-706 #14-707 #14-711
#14-711 #14-715 #14-716 #14-716 #14-718 #14-719 #14-721 #14-722 #14-724 #14-726
#14-727 #14-730 #14-732
$$GEN2 #6-155 6-171 #9-389 9-397 #12-513 12-518 12-521 #14-641 14-643 14-655
14-659 14-666 14-681 14-687 14-693 14-698 14-721 14-726
$$GNAB #6-155 #6-168 #6-171 #9-389 #9-396 #9-397 #9-416 #12-513 #12-518 #12-521
#14-641 #14-643 #14-655 #14-659 #14-666 #14-681 #14-687 #14-693 #14-698 #14-701
#14-706 #14-721 #14-726
$$GNBT #6-155 6-157 6-163 6-189 7-206 7-209 7-210 #9-389 9-392 9-401
#12-513 12-517 12-529 #14-641 14-646
$$GNCM #6-155 #6-157 #6-163 #6-168 #6-171 #6-189 #7-206 #7-209 #7-210 #9-389
#9-392 #9-396 #9-397 #9-401 #9-416 #12-513 #12-517 #12-518 #12-521 #12-529
#14-641 #14-643 #14-646 #14-655 #14-659 #14-666 #14-681 #14-687 #14-693 #14-698
#14-701 #14-706 #14-721 #14-726
$$INMC #6-155 #6-155 #9-389 #9-389 #12-513 #12-513 #14-641 #14-641
$$INSY #6-155 6-155 #9-389 9-389 #12-513 12-513 #14-641 14-641
$$LAB #6-155 6-158 6-164 6-167 6-169 6-172 6-179 6-185 6-186 6-187
6-190 6-192 6-198 6-199 6-199 7-203 7-207 7-211 7-216 7-219
7-220 7-222 7-223 #9-389 9-393 9-395 9-398 9-402 9-409 9-412
9-413 9-414 9-417 9-419 #12-513 12-516 12-519 12-522 12-524 12-526
12-527 12-530 12-533 12-535 #14-641 14-644 14-647 14-649 14-652 14-653
14-656 14-660 14-665 14-667 14-674 14-678 14-679 14-682 14-685 14-688
14-691 14-694 14-696 14-699 14-702 14-707 14-711 14-715 14-716 14-718
14-719 14-722 14-724 14-727 14-730
$$POP #6-155 6-185 6-185 6-198 6-198 6-199 6-199 6-199 7-219 7-219
GCGTCM CREATED BY MACRO ON 13-OCT-79 AT 11:43 PAGE 10
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
7-222 7-222 7-223 7-223 #9-389 9-412 9-412 9-413 9-413 9-414
9-414 9-419 9-419 #12-513 12-526 12-526 12-527 12-527 12-535 12-535
#14-641 14-652 14-652 14-653 14-653 14-678 14-678 14-678 14-679 14-679
14-685 14-685 14-691 14-691 14-696 14-696 14-715 14-715 14-718 14-718
14-719 14-719 14-724 14-724 14-730 14-730
$$POPI #6-155 #6-185 #6-185 #6-198 #6-198 #6-199 #6-199 #6-199 #7-219 #7-219
#7-222 #7-222 #7-223 #7-223 #9-389 #9-412 #9-412 #9-413 #9-413 #9-414
#9-414 #9-419 #9-419 #12-513 #12-526 #12-526 #12-527 #12-527 #12-535 #12-535
#14-641 #14-652 #14-652 #14-653 #14-653 #14-678 #14-678 #14-678 #14-679 #14-679
#14-685 #14-685 #14-691 #14-691 #14-696 #14-696 #14-715 #14-715 #14-718 #14-718
#14-719 #14-719 #14-724 #14-724 #14-730 #14-730
$$PUSH #6-155 #6-156 #6-156 #6-160 #6-160 #6-160 #6-170 #6-170 #6-188 #6-188
#7-205 #7-205 #7-208 #7-208 #9-389 #9-391 #9-391 #9-395 #9-395 #9-400
#9-400 #9-415 #9-415 #12-513 #12-516 #12-516 #12-520 #12-520 #12-528 #12-528
#14-641 #14-642 #14-642 #14-645 #14-645 #14-654 #14-654 #14-657 #14-657 #14-657
#14-680 #14-680 #14-686 #14-686 #14-692 #14-692 #14-697 #14-697 #14-700 #14-700
#14-705 #14-705 #14-720 #14-720 #14-725 #14-725
$$STSM #6-155 #6-156 #6-156 #6-160 #6-160 #6-160 #6-170 #6-170 #6-188 #6-188
#7-205 #7-205 #7-208 #7-208 #9-389 #9-391 #9-391 #9-395 #9-395 #9-400
#9-400 #9-415 #9-415 #12-513 #12-516 #12-516 #12-520 #12-520 #12-528 #12-528
#14-641 #14-642 #14-642 #14-645 #14-645 #14-654 #14-654 #14-657 #14-657 #14-657
#14-680 #14-680 #14-686 #14-686 #14-692 #14-692 #14-697 #14-697 #14-700 #14-700
#14-705 #14-705 #14-720 #14-720 #14-725 #14-725
$$SYS #6-155 #9-389 #12-513 #14-641
$$TRCE #6-155 6-155 7-224 #9-389 9-389 9-420 #12-513 12-513 12-536 #14-641
14-641 14-732