Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/trtrig.list
There are no other files named trtrig.list in the archive.
TRTRIG MACRO M1110 13-OCT-79 12:57
TABLE OF CONTENTS
8- 52 TRABRT
9- 114 TRCNFG
11- 250 TRFINI
13- 360 TRINIT
15- 462 TRPARS
17- 624 TRPROC
20- 803 TRTRIG
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 3
1 .TITLE TRTRIG
2 .IDENT /V01.00/
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 TRIGGER PROCESSOR
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 4
36 ;
37 ; +-------------------------------------------------+
38 ; I I
39 ; I T R I G G E R I
40 ; I - - - - - - - I
41 ; I I
42 ; +-------------------------------------------------+
43 ;
44 ; FUNCTION:
45 ;
46 ; NICE PROCESS TRIGGER PROCESSOR
47 ;
48 ; EXTERNAL STRUCTURING MACROS
49 ;
50 .MCALL PROC,PROCLC
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 5
TRABRT
52 .SBTTL TRABRT
53 ;
54 ;======================================================================;
55 ;++
56 ; +-------------------------------------------------+
57 ; I I
58 ; I T R A B R T I
59 ; I - - - - - - I
60 ; I I
61 ; +-------------------------------------------------+
62 ;
63 ; FUNCTION:
64 ;
65 ; TRIGGER PROCESSOR MODULE TO ABORT THE PROCESS
66 ;
67 ; INPUT:
68 ;
69 ; R0 - NICE RETURN CONDITION CODE
70 ; R4 - ADDRESS OF CONTEXT AREA
71 ; R5 - ADDRESS OF CONTROL BLOCK
72 ;
73 ; OUTPUT:
74 ;
75 ; @R4 - MODIFIED CONTEXT
76 ; RETCOD - NICE RETURN CONDITION CODE
77 ; STATE - NEW PROCESS STATE OF FINISH
78 ; @R5 - MODIFIED CONTROL BLOCK
79 ; C.FUNC - ZERO
80 ;
81 ; REQUIREMENTS:
82 ;
83 ; TRIGGER SYMBOLS:
84 ;
85 ; FINISH - FINISH STATE
86 ; RETCOD - OFFSET OF RETURN CODE IN CONTEXT
87 ; STATE - OFFSET OF STATE IN CONTEXT
88 ;
89 ; CONTROL BLOCK SYMBOLS:
90 ;
91 ; C.FUNC - OFFSET OF FUNCTION CODE
92 ;
93 ;--
94 ;======================================================================;
95 ;
96 ;
97 ; EXTERNAL MACROS
98 ;
99 .MCALL TRDF,CONDF
100 ;
101 ; DEFINE EXTERNAL SYMBOLS
102 ;
103 000000 TRDF ;TRIGGER SYMBOLS
104 000000 CONDF ;CONTROL BLOCK SYMBOLS
105 ;
106 ; LOCAL PROCEDURE BODY
107 ;
108 000000 PROCLC TRABRT
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 5-1
TRABRT
109 000000 110064 000005 MOVB R0,RETCOD(R4) ;SET RETURN CODE FOR LATER
110 000004 105065 000006 CLRB C.FUNC(R5) ;INITIALIZE FOR NEXT STEP
111 000010 112764 000003 000004 MOVB #FINISH,STATE(R4) ;START THE TERMINATION
112 000016 ENDPROC
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 6
TRCNFG
114 .SBTTL TRCNFG
115 ;
116 ;======================================================================;
117 ;++
118 ; +-------------------------------------------------+
119 ; I I
120 ; I T R C N F G I
121 ; I - - - - - - I
122 ; I I
123 ; +-------------------------------------------------+
124 ;
125 ; FUNCTION:
126 ;
127 ; TRIGGER PROCESSOR MODULE TO GET CONFIGURATION DATABASE INFORMATION
128 ;
129 ; INPUT:
130 ;
131 ; R4 - CONTEXT ADDRESS
132 ; LINE - LINE ID IF IDENTIFICATION BY SERVER
133 ; OPTION - NICE OPTION FIELD
134 ; SVNODE - SERVER NODE NAME IMAGE IF IDENTIFICATION BY SERVER
135 ; TGNODE - TARGET NODE NAME IMAGE IF IDENTIFICATION BY TARGET
136 ; R5 - CONTROL BLOCK ADDRESS
137 ;
138 ; OUTPUT:
139 ;
140 ; @R4 - MODIFIED CONTEXT
141 ; BOOPAS - TARGET'S BOOT PASSWORD
142 ; LINE - TARGET'S BOOT LINE ID
143 ; SVNODE - TARGET'S SERVER NODE NAME IMAGE
144 ; STATE - UPDATED PROCESS STATE
145 ; @R5 - MODIFIED CONTROL BLOCK
146 ; C.FUNC - ZERO
147 ;
148 ; REQUIREMENTS:
149 ;
150 ; TRIGGER SYMBOLS:
151 ;
152 ; BPSINC - OPTION BITS FOR BOOT PASSWORD INCLUDED
153 ; LINE - OFFSET OF SERVER LINE IN CONTEXT
154 ; NOTNAM - OPTION BITS FOR IDENTIFICATION NOT BY TARGET NAME
155 ; OPTION - OFFSET OF OPTION FIELD IN CONTEXT
156 ; PROC - PROCESS STATE FOR PROCESS
157 ; SRVINC - OPTION BITS FOR SERVER IDENTIFICATION INCLUDED
158 ; STATE - OFFSET OF PROCESS STATE IN CONTEXT
159 ; SVNODE - OFFSET OF SERVER NAME IMAGE IN CONTEXT
160 ; TGNODE - OFFSET OF TARGET NAME IMAGE IN CONTEXT
161 ;
162 ; CONFIGURATON DATABASE SYMBOLS:
163 ;
164 ; BTPSAD - OFFSET OF BOOT PASSWORD IMAGE ADDRESS IN ENTRY
165 ; SVLNID - OFFSET OF SERVER LINE ID IN ENTRY
166 ; SVNMAD - OFFSET OF SERVER NAME IMAGE ADDRESS IN ENTRY
167 ;
168 ; CONTROL BLOCK SYMBOLS:
169 ;
170 ; C.FUNC - OFFSET OF FUNCTION CODE
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 6-1
TRCNFG
171 ;
172 ;--
173 ;======================================================================;
174 ;
175 ;
176 ; EXTERNAL MACROS
177 ;
178 .MCALL TRDF,NICDF,SAVSTK,RESSTK,CNFDF,CONDF
179 ;
180 ; DEFINE EXTERNAL SYMBOLS
181 ;
182 000020 TRDF ;TRIGGER SYMBOLS
183 000020 NICDF ;NICE MESSAGE SYMBOLS
184 000020 CNFDF ;CONFIGURATION DATABASE SYMBOLS
185 000020 CONDF ;CONTROL BLOCK SYMBOLS
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 7
TRCNFG
187 ;
188 ; LOCAL PROCEDURE BODY
189 ;
190 000020 PROCLC TRCNFG
191 000020 116400 000006 MOVB OPTION(R4),R0 ;GET NICE MESSAGE OPTION FIELD
192 000024 IF ; ANYTHING NEEDED FROM CONFIGURATION FILE
193 000024 TRUE CLEAR #SRVINC,R0
194 000032 FALSE SET #BPSINC,R0
195 000040 THEN
196 000040 IF ; IDENTIFICATION BY TARGET NAME
197 000040 FALSEB SET #NOTNAM,OPTION(R4)
198 000050 THEN
199 000050 012700 000007 MOV #TGNODE,R0 ;OFFSET OF TARGET NODE NAME IN CONTEXT
200 000054 005001 CLR R1
201 000056 ELSE
202 000060 012700 000016 MOV #SVNODE,R0 ;OFFSET OF SERVER NODE NAME IN CONTEXT
203 000064 012701 000025 MOV #LINE,R1 ;OFFSET OF SERVER LINE IN CONTEXT
204 000070 060401 ADD R4,R1 ;MAKE IT A POINTER
205 000072 ENDIF
206 000072 060400 ADD R4,R0 ;MAKE NAME OFFSET A POINTER
207 000074 SAVSTK <R3> ;SAVE REGISTER
208 000076 CALL CNFFND ;FIND CONFIGURATION ENTRY
209 000102 IF ; SUCCESS
210 000102 FALSE CS
211 000104 THEN
212 000104 IF ; SERVER NEEDED
213 000104 FALSEB SET #SRVINC,OPTION(R4)
214 000114 THEN
215 000114 012700 000004 MOV #SVNMAD,R0 ;OFFSET OF SERVER NAME ADDRESS IN DATABASE
216 000120 012702 000016 MOV #SVNODE,R2 ;OFFSET OF SERVER NAME IN CONTEXT
217 000124 CALL CNFMOV ;MOVE NAME FROM DATABASE TO CONTEXT
218 000130 012700 000010 MOV #SVLNID,R0 ;OFFSET OF SERVER LINE ID IN DATABASE
219 000134 060300 ADD R3,R0 ;MAKE IT A SOURCE ADDRESS
220 000136 012701 000004 MOV #4,R1 ;LENGTH OF LINE ID
221 000142 012702 000025 MOV #LINE,R2 ;OFFSET OF SERVER LINE ID IN CONTEXT
222 000146 060402 ADD R4,R2 ;MAKE IT A DESTINATION ADDRESS
223 000150 CALL MOVE ;MOVE SERVER LINE ID FROM DATABASE TO CONTEXT
224 000154 000241 CLC ;SUCCESS SO FAR
225 000156 ELSE
226 000160 000241 CLC ;SET SUCCESS
227 000162 ENDIF
228 000162 IF ; SUCCESS SO FAR AND BOOT PASSWORD NEEDED
229 000162 FALSE CS
230 000164 FALSEB SET #BPSINC,OPTION(R4)
231 000174 THEN
232 000174 012700 000024 MOV #BTPSAD,R0 ;OFFSET OF PASSWORD ADDRESS IN DATABASE
233 000200 012702 000031 MOV #BOOPAS,R2 ;OFFSET OF PASSWORD IN CONTEXT
234 000204 CALL CNFMOV ;MOVE PASSWORD FROM DATABASE TO CONTEXT
235 000210 000241 CLC ;SUCCESS SO FAR
236 000212 ENDIF
237 000212 ENDIF
238 000212 RESSTK <R3> ;RESTORE REGISTER
239 000214 ENDIF
240 000214 IF ; SUCCESS
241 000214 FALSE CS
242 000216 THEN
243 000216 112764 000002 000004 MOVB #PROC,STATE(R4) ;MOVE TO NEXT STATE
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 7-1
TRCNFG
244 000224 105065 000006 CLRB C.FUNC(R5) ;WITH INITIALIZED FUNCTION CODE
245 000230 ELSE
246 000232 CALL TRABRT ;BLOW UP, ERROR CODE ALREADY SET
247 000236 ENDIF
248 000236 ENDPROC
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 8
TRFINI
250 .SBTTL TRFINI
251 ;
252 ;======================================================================;
253 ;++
254 ; +-------------------------------------------------+
255 ; I I
256 ; I T R F I N I I
257 ; I - - - - - - I
258 ; I I
259 ; +-------------------------------------------------+
260 ;
261 ; FUNCTION:
262 ;
263 ; TRIGGER PROCESSOR MODULE TO FINISH UP THE PROCESS
264 ;
265 ; INPUT:
266 ;
267 ; R4 - CONTEXT ADDRESS
268 ; CMLKNM - COMMAND LINK NUMBER
269 ; LSLKNM - LINE SERVICE LINK NUMBER
270 ; RETCOD - NICE RETURN CONDITION CODE
271 ; R5 - CONTROL BLOCK ADDRESS
272 ; C.ADDR - ADDRESS OF COMMAND MESSAGE BUFFER
273 ; C.CTXT - CONTEXT ADDRESS
274 ; C.FUNC - FUNCTION CODE JUST PROCESSED OR ZERO FOR INITIAL CALL
275 ;
276 ; OUTPUT:
277 ;
278 ; @R4 - MODIFIED CONTEXT, UNTIL CONTEXT RELEASED
279 ; LSLKNM - ZERO WHEN LINE SERVICE LINK CLOSED
280 ; @R5 - MODIFIED CONTROL BLOCK
281 ; C.ADDR - ADDRESS OF BUFFER TO PROCESS
282 ; C.FUNC - FUNCTION TO PERFORM
283 ; C.LEN - LENGTH OF MESSAGE TO TRANSMIT
284 ; C.LKNM - LINK NUMBER TO CLOSE OR TO TRANSMIT ON
285 ;
286 ; REQUIREMENTS:
287 ;
288 ; TRIGGER SYMBOLS:
289 ;
290 ; CMLKNM - OFFSET OF COMMAND LINK NUMBER IN CONTEXT
291 ; LSLKNM - OFFSET OF LINE SERVICE LINK NUMBER IN CONTEXT
292 ; RETCOD - OFFSET OF NICE RETURN CODE IN CONTEXT
293 ;
294 ; CONTROL BLOCK SYMBOLS:
295 ;
296 ; C.ADDR - OFFSET OF ADDRESS FIELD
297 ; C.CTXT - OFFSET OF CONTEXT ADDRESS FIELD
298 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
299 ; C.LEN - OFFSET OF LENGTH FIELD
300 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
301 ; C$CLLK - CLOSE LINK FUNCTION CODE
302 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
303 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
304 ;
305 ;--
306 ;======================================================================;
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 8-1
TRFINI
307 ;
308 ;
309 ; EXTERNAL MACROS
310 ;
311 .MCALL TRDF,CONDF
312 ;
313 ; DEFINE EXTERNAL SYMBOLS
314 ;
315 000240 TRDF ;TRIGGER SYMBOLS
316 000240 CONDF ;CONTROL BLOCK SYMBOLS
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 9
TRFINI
318 ;
319 ; LOCAL PROCEDURE BODY
320 ;
321 000240 PROCLC TRFINI
322 000240 IF ; FUNCTION CODE = 0
323 000240 FALSEB SET C.FUNC(R5)
324 000246 THEN
325 000246 IF ; LINE SERVICE LINK OPEN
326 000246 FALSE CLEAR LSLKNM(R4)
327 000254 THEN
328 000254 016465 000002 000020 MOV LSLKNM(R4),C.LKNM(R5) ;PUT LINK NUMBER IN CONTROL BLOCK
329 000262 112765 177726 000006 MOVB #-C$CLLK,C.FUNC(R5) ;SET FUNCTION CODE TO CLOSE LINK
330 000270 ELSE
331 000272 112765 000052 000006 MOVB #C$CLLK,C.FUNC(R5) ;LOOK LIKE LINK JUST CLOSED
332 000300 ENDIF
333 000300 ENDIF
334 000300 IF ; FUNCTION CODE = CLOSE LINK
335 000300 FALSEB NE C.FUNC(R5),#C$CLLK
336 000310 THEN
337 000310 005064 000002 CLR LSLKNM(R4) ;MARK LINK CLOSED
338 000314 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE BUFFER
339 000320 116422 000005 MOVB RETCOD(R4),(R2)+ ;PUT RETURN CODE IN MESSAGE
340 000324 166502 000014 SUB C.ADDR(R5),R2 ;COMPUTE LENGTH OF MESSAGE
341 000330 010265 000012 MOV R2,C.LEN(R5) ;SET LENGTH OF MESSAGE
342 000334 016465 000000 000020 MOV CMLKNM(R4),C.LKNM(R5) ;SET COMMAND LINK NUMBER
343 000342 112765 177725 000006 MOVB #-C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
344 000350 ENDIF
345 000350 IF ; FUNCTION CODE = TRANSMIT MESSAGE
346 000350 FALSEB NE C.FUNC(R5),#C$TRMS
347 000360 THEN
348 000360 112765 177777 000006 MOVB #-C$RLBF,C.FUNC(R5) ;RELEASE THE MESSAGE BUFFER
349 000366 ENDIF
350 000366 IF ; FUNCTION CODE = RELEASE BUFFER
351 000366 FALSEB NE C.FUNC(R5),#C$RLBF
352 000376 THEN
353 000376 016565 000004 000014 MOV C.CTXT(R5),C.ADDR(R5) ;SET UP TO RELEASE CONTEXT BLOCK
354 000404 005065 000004 CLR C.CTXT(R5) ;NO MORE CONTEXT POINTER
355 000410 105465 000006 NEGB C.FUNC(R5) ;RELEASE BUFFER AGAIN
356 000414 ENDIF
357 000414 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
358 000420 ENDPROC
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 10
TRINIT
360 .SBTTL TRINIT
361 ;
362 ;======================================================================;
363 ;++
364 ; +-------------------------------------------------+
365 ; I I
366 ; I T R I N I T I
367 ; I - - - - - - I
368 ; I I
369 ; +-------------------------------------------------+
370 ;
371 ; FUNCTION:
372 ;
373 ; TRIGGER PROCESSOR MODULE TO INITIALIZE CONTEXT AREA
374 ;
375 ; INPUT:
376 ;
377 ; R5 - CONTROL BLOCK ADDRESS
378 ; C.ADDR - ADDRESS OF MESSAGE OR ADDRESS OF BUFFER
379 ; C.FUNC - FUNCTION CODE
380 ; C.LEN - LENGTH OF MESSAGE
381 ; C.LKNM - COMMAND LINK NUMBER
382 ; C.SAVE - SAVED DATA
383 ;
384 ; OUTPUT:
385 ;
386 ; R4 - CONTEXT ADDRESS
387 ; CMLKNM - COMMAND LINK NUMBER
388 ; STATE - NEXT PROCESSING STATE
389 ; APPROPRIATE FIELDS - INFORMATION PARSED FROM MESSAGE
390 ; REMAINING FIELDS - ZERO
391 ; @R5 - MODIFIED CONTROL BLOCK
392 ; C.FUNC - FUNCTION TO PERFORM OR ZERO
393 ; C.LEN - LENGTH OF MEMORY BUFFER TO ALLOCATE
394 ; C.SAVE - SAVE DATA
395 ;
396 ; REQUIREMENTS:
397 ;
398 ; TRIGGER SYMBOLS:
399 ;
400 ; CMLKNM - OFFSET OF COMMAND LINK NUMBER IN CONTEXT
401 ; CONFIG - PROCESSOR STATE OF CONFIGURATION DATABASE INPUT
402 ; CTXTLN - LENGTH NEEDED FOR CONTEXT
403 ; STATE - OFFSET OF PROCESSING STATE IN CONTEXT
404 ;
405 ; CONTROL BLOCK SYMBOLS:
406 ;
407 ; C.ADDR - OFFSET OF ADDRESS FIELD
408 ; C.CTXT - OFFSET OF CONTEXT ADDRESS FIELD
409 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
410 ; C.LEN - OFFSET OF LENGTH FIELD
411 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
412 ; C.SAVE - OFFSET OF SAVE AREA FIELD
413 ; C$ALBF - ALLOCATE BUFFER FUNCTION CODE
414 ; C$PROC - PROCESS FUNCTION CODE
415 ;
416 ;--
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 10-1
TRINIT
417 ;======================================================================;
418 ;
419 ;
420 ; EXTERNAL MACROS
421 ;
422 .MCALL CONDF,TRDF
423 ;
424 ; DEFINE EXTERNAL SYMBOLS
425 ;
426 000422 CONDF ;CONTROL BLOCK SYMBOLS
427 000422 TRDF ;TRIGGER SYMBOLS
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 11
TRINIT
429 ;
430 ; LOCAL PROCEDURE BODY
431 ;
432 000422 PROCLC TRINIT
433 000422 IF ; CONTROL BLOCK FUNCTION CODE = PROCESS JOB
434 000422 FALSEB NE C.FUNC(R5),#C$PROC
435 000432 THEN
436 000432 016565 000012 000022 MOV C.LEN(R5),C.SAVE(R5) ;SAVE LENGTH OF MESSAGE
437 000440 016565 000014 000024 MOV C.ADDR(R5),C.SAVE+2(R5) ;SAVE ADDRESS OF MESSAGE
438 000446 012765 000042 000012 MOV #CTXTLN,C.LEN(R5) ;SET LENGTH OF CONTEXT BLOCK
439 000454 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5) ;ALLOCATE CONTEXT BLOCK
440 000462 ELSE ; MUST BE ALLOCATE MEMORY BUFFER
441 000464 016504 000014 MOV C.ADDR(R5),R4 ;GET CONTEXT BLOCK ADDRESS
442 000470 010465 000004 MOV R4,C.CTXT(R5) ;AND PUT IT IN CONTROL BLOCK
443 000474 005000 CLR R0 ;SET UP A ZERO TO SPRAY
444 000476 010401 MOV R4,R1 ;START AT BEGINNING OF CONTEXT
445 000500 012702 000042 MOV #CTXTLN,R2 ;NUMBER OF BYTES TO SPRAY
446 000504 CALL SPRAY ;ZERO THE CONTEXT BLOCK
447 000510 016564 000020 000000 MOV C.LKNM(R5),CMLKNM(R4) ;SAVE THE COMMAND LINK NUMBER
448 000516 016565 000022 000012 MOV C.SAVE(R5),C.LEN(R5) ;RESTORE SAVED LENGTH
449 000524 016565 000024 000014 MOV C.SAVE+2(R5),C.ADDR(R5) ;RESTORE SAVED MESSAGE ADDRESS
450 000532 CALL TRPARS ;PARSE MESSAGE TO CONTEXT
451 000536 IF ; SUCCESS
452 000536 FALSE CS
453 000540 THEN
454 000540 112764 000001 000004 MOVB #CONFIG,STATE(R4) ;MOVE TO NEXT STATE
455 000546 105065 000006 CLRB C.FUNC(R5) ;WITH INITIALIZED FUNCTION CODE
456 000552 ELSE
457 000554 CALL TRABRT ;BLOW IT UP
458 000560 ENDIF
459 000560 ENDIF
460 000560 ENDPROC
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 12
TRPARS
462 .SBTTL TRPARS
463 ;
464 ;======================================================================;
465 ;++
466 ; +-------------------------------------------------+
467 ; I I
468 ; I T R P A R S I
469 ; I - - - - - - I
470 ; I I
471 ; +-------------------------------------------------+
472 ;
473 ; FUNCTION:
474 ;
475 ; TRIGGER PROCESSOR MODULE TO PARSE THE NICE COMMAND MESSAGE
476 ;
477 ; INPUT:
478 ;
479 ; R4 - CONTEXT ADDRESS
480 ; R5 - CONTROL BLOCK ADDRESS
481 ; C.ADDR - NICE MESSAGE ADDRESS
482 ; C.LEN - LENGTH OF NICE MESSAGE
483 ;
484 ; OUTPUT:
485 ;
486 ; C-BIT - CLEAR IF SUCCESSFUL, SET IF NOT
487 ; R0 - NICE ERROR CODE IF FAILURE
488 ; @R4 - MODIFIED CONTEXT
489 ; BOOPAS - BOOT PASSWORD IMAGE, IF IN MESSAGE
490 ; LINE - SERVER LINE ID, IF IN MESSAGE
491 ; OPTION - NICE MESSAGE OPTIONS
492 ; SVNODE - SERVER NODE NAME IMAGE, IF IN MESSAGE
493 ; TGNODE - TARGET NODE NAME IMAGE, IF IN MESSAGE
494 ;
495 ; REQUIREMENTS:
496 ;
497 ; TRIGGER SYMBOLS:
498 ;
499 ; BADBIT - BITS WHICH CANNOT BE SET IN OPTIONS
500 ; BOOPAS - OFFSET OF BOOT PASSWORD FIELD IN CONTEXT
501 ; BPSINC - OPTION BITS FOR BOOT PASSWORD INCLUDED IN MESSAGE
502 ; BPSLEN - MAXIMUM LENGTH OF BOOT PASSWORD IN CONTEXT
503 ; LINE - OFFSET OF SERVER LINE ID IN CONTEXT
504 ; NODLEN - MAXIMUM LENGTH OF NODE NAME IN CONTEXT
505 ; NOTNAM - OPTION BITS FOR TRIGGER NODE NAME NOT INCLUDED IN MESSAGE
506 ; SVNODE - OFFSET OF SERVER NODE NAME FIELD IN CONTEXT
507 ; TGNODE - OFFSET OF TARGET NODE NAME FIELD IN CONTEXT
508 ;
509 ; CONTROL BLOCK SYMBOLS:
510 ;
511 ; C.ADDR - OFFSET OF ADDRESS FIELD
512 ; C.LEN - OFFSET OF LENGTH FIELD
513 ;
514 ; NICE MESSAGE SYMBOLS:
515 ;
516 ; LI$STA - TYPE VALUE FOR STANDARD LINE IDENTIFIER
517 ; NE$FOR - ERROR RETURN FOR FORMAT ERROR
518 ; NE$FUN - ERROR RETURN FOR FUNCTION CODE ERROR
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 12-1
TRPARS
519 ; NE$PAR - ERROR RETURN FOR PARAMETER ERROR
520 ;
521 ;--
522 ;======================================================================;
523 ;
524 ;
525 ; EXTERNAL MACROS
526 ;
527 .MCALL SAVSTK,RESSTK,CONDF,TRDF,NICDF
528 ;
529 ; DEFINE EXTERNAL SYMBOLS
530 ;
531 000562 CONDF ;CONTROL BLOCK SYMBOLS
532 000562 TRDF ;TRIGGER SYMBOLS
533 000562 NICDF ;NICE MESSAGE SYMBOLS
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 13
TRPARS
535 ;
536 ; LOCAL PROCEDURE BODY
537 ;
538 000562 PROCLC TRPARS
539 000562 SAVSTK <R3> ;SAVE REGISTERS
540 000564 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE
541 000570 010203 MOV R2,R3 ;COPY IT
542 000572 066503 000012 ADD C.LEN(R5),R3 ;MAKE MESSAGE END ADDRESS
543 000576 005202 INC R2 ;MOVE CURRENT ADDRESS PAST FUNCTION CODE
544 000600 CALL GTMSBY ;GET THE OPTION BYTE
545 000604 IF ; SUCCESS
546 000604 FALSE CS
547 000606 THEN
548 000606 IF ; BAD OPTION BIT SET
549 000606 FALSEB CLEAR #BADBIT,R0
550 000614 THEN
551 000614 012700 177777 MOV #NE$FUN,R0 ;FUNCTION CODE ERROR
552 000620 000261 SEC ;FAIL
553 000622 ELSE
554 000624 110064 000006 MOVB R0,OPTION(R4) ;SAVE THE OPTION FIELD
555 000630 ENDIF
556 000630 IF ; SUCCESS
557 000630 FALSE CS
558 000632 THEN
559 000632 IF ; IDENTIFICATION BY NAME
560 000632 FALSEB SET #NOTNAM,OPTION(R4)
561 000642 THEN
562 000642 012700 000006 MOV #NODLEN,R0 ;MAXIMUM LENGTH OF NODE NAME
563 000646 012701 000007 MOV #TGNODE,R1 ;OFFSET OF TARGET NODE NAME IN CONTEXT
564 000652 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
565 000654 CALL MVMSIM ;MOVE IMAGE FIELD INTO CONTEXT
566 000660 ELSE
567 000662 IF ; OPTION IS NOT SERVER INCLUDED
568 000662 FALSEB SET #SRVINC,OPTION(R4)
569 000672 THEN
570 000672 012700 177777 MOV #NE$FUN,R0 ;FUNCTION CODE ERROR
571 000676 000261 SEC ;FAIL
572 000700 ENDIF
573 000700 ENDIF
574 000700 ENDIF
575 000700 IF ; SUCCESS AND SERVER INCLUDED
576 000700 FALSE CS
577 000702 FALSEB CLEAR #SRVINC,OPTION(R4)
578 000712 THEN
579 000712 012700 000006 MOV #NODLEN,R0 ;MAXIMUM NODE NAME LENGTH
580 000716 012701 000016 MOV #SVNODE,R1 ;OFFSET OF SERVER NODE NAME IN CONTEXT
581 000722 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
582 000724 CALL MVMSIM ;MOVE IMAGE FIELD INTO CONTEXT
583 000730 IF ; SUCCESS
584 000730 FALSE CS
585 000732 THEN
586 000732 CALL GTMSBY ;GET LINE FORMAT TYPE
587 000736 IF ; SUCCESS
588 000736 FALSE CS
589 000740 THEN
590 000740 IF ; LINE FORMAT TYPE <> STANDARD
591 000740 FALSE EQ R0,#LI$STA
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 13-1
TRPARS
592 000746 THEN
593 000746 012700 177760 MOV #NE$PAR,R0 ;PARAMETER ERROR
594 000752 000261 SEC ;FAIL
595 000754 ELSE
596 000756 012700 000004 MOV #4,R0 ;BYTE COUNT IN LINE ID
597 000762 012701 000025 MOV #LINE,R1 ;OFFSET OF LINE ID IN CONTEXT
598 000766 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
599 000770 CALL MVMSBY ;MOVE LINE ID TO CONTEXT
600 000774 ENDIF
601 000774 ENDIF
602 000774 ENDIF
603 000774 ENDIF
604 000774 IF ; SUCCESS AND BOOT PASSWORD INCLUDED
605 000774 FALSE CS
606 000776 FALSEB CLEAR #BPSINC,OPTION(R4)
607 001006 THEN
608 001006 012700 000010 MOV #BPSLEN,R0 ;MAXIMUM LENGTH OF BOOT PASSWORD
609 001012 012701 000031 MOV #BOOPAS,R1 ;OFFSET OF BOOT PASSWORD IN CONTEXT
610 001016 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
611 001020 CALL MVMSIM ;MOVE IMAGE FIELD TO CONTEXT
612 001024 ENDIF
613 001024 IF ; SUCCESS AND MESSAGE NOT USED UP
614 001024 FALSE CS
615 001026 FALSE EQ R2,R3
616 001032 THEN
617 001032 012700 177776 MOV #NE$FOR,R0 ;MESSAGE FORMAT ERROR
618 001036 000261 SEC ;FAIL
619 001040 ENDIF
620 001040 ENDIF
621 001040 RESSTK <R3> ;RESTORE REGISTERS
622 001042 ENDPROC
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 14
TRPROC
624 .SBTTL TRPROC
625 ;
626 ;======================================================================;
627 ;++
628 ; +-------------------------------------------------+
629 ; I I
630 ; I T R P R O C I
631 ; I - - - - - - I
632 ; I I
633 ; +-------------------------------------------------+
634 ;
635 ; FUNCTION:
636 ;
637 ; TRIGGER PROCESSOR MODULE TO PROCESS THE TRIGGER FUNCTION
638 ;
639 ; INPUT:
640 ;
641 ; R4 - CONTEXT ADDRESS
642 ; BOOPAS - BOOT PASSWORD IMAGE
643 ; LINE - SERVER LINE ID
644 ; SVNODE - SERVER NODE NAME IMAGE
645 ; R5 - CONTROL BLOCK ADDRESS
646 ; C.ADDR - ADDRESS OF MESSAGE BUFFER
647 ; C.FUNC - FUNCTION PERFORMED, ZERO FOR INITIAL CALL
648 ; C.LEN - LENGTH OF MESSAGE RECEIVED
649 ; C.LKNM - LINK NUMBER OF LINK OPENED
650 ; C.RET - RETURN CONDITION CODE
651 ;
652 ; OUTPUT:
653 ;
654 ; @R4 - MODIFIED CONTEXT
655 ; LSLKNM - LINE SERVICE LINK NUMBER IF OPENED
656 ; PROCESS STATE - AS MODIFIED BY LSABRT
657 ; @R5 - MODIFIED CONTROL BLOCK
658 ; @C.ADDR - LINE SERVICE NICE COMMAND MESSAGE TO TRANSMIT
659 ; C.FUNC - FUNCTION TO PERFORM
660 ; C.LEN - LENGTH OF MESSAGE TO TRANSMIT
661 ; OR LENGTH OF BUFFER FOR RECEIVE
662 ;
663 ; REQUIREMENTS:
664 ;
665 ; TRIGGER SYMBOLS:
666 ;
667 ; BOOPAS - OFFSET OF BOOT PASSWORD IN CONTEXT
668 ; LINE - OFFSET OF SERVER LINE ID IN CONTEXT
669 ; LSLKNM - OFFSET OF LINE SERVICE LINK NUMBER IN CONTEXT
670 ; SVNODE - OFFSET OF SERVER NODE NAME IMAGE IN CONTEXT
671 ;
672 ; CONTROL BLOCK SYMBOLS:
673 ;
674 ; C.ADDR - OFFSET OF ADDRESS FIELD
675 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
676 ; C.LEN - OFFSET OF LENGTH FIELD
677 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
678 ; C.RET - OFFSET OF RETURN CODE FIELD
679 ; C$OPLK - OPEN LINK FUNCTION CODE
680 ; C$RCMS - RECEIVE MESSAGE FUNCTION CODE
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 14-1
TRPROC
681 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
682 ; CE$NOD - INVALID NODE ERROR CODE
683 ; CE$OBJ - OBJECT DOESN'T EXIST
684 ; CE$REJ - LINK REJECTED ERROR CODE
685 ;
686 ; NICE MESSAGE SYMBOLS:
687 ;
688 ; LI$STA - TYPE VALUE FOR STANDARD LINE ID
689 ; LS$TRI - LINE SERVICE TRIGGER OPTION CODE
690 ; N.MLEN - MAXIMUM LENGTH OF A NICE MESSAGE
691 ; N$LNSR - NICE LINE SERVICE FUNCTION CODE
692 ; NE$FOR - MESSAGE FORMAT ERROR CODE
693 ; NE$NCO - NETWORK COMMUNICATIONS ERROR CODE
694 ; NE$NIC - NICE PROCESS UNAVAILABLE
695 ; NE$RES - RESOURCE ERROR CODE
696 ; NE$SER - INVALID SERVER ID ERROR CODE
697 ;
698 ;--
699 ;======================================================================;
700 ;
701 ;
702 ; EXTERNAL MACROS
703 ;
704 .MCALL TRDF,CONDF,NICDF
705 ;
706 ; DEFINE EXTERNAL SYMBOLS
707 ;
708 001044 TRDF ;TRIGGER SYMBOLS
709 001044 CONDF ;CONTROL BLOCK SYMBOLS
710 001044 NICDF ;NICE MESSAGE SYMBOLS
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 15
TRPROC
712 ;
713 ; LOCAL PROCEDURE BODY
714 ;
715 001044 PROCLC TRPROC
716 001044 IF ; FUNCTION CODE = 0
717 001044 FALSEB SET C.FUNC(R5)
718 001052 THEN
719 001052 012700 000016 MOV #SVNODE,R0 ;OFFSET OF SERVER NODE NAME IMAGE IN CONTEXT
720 001056 060400 ADD R4,R0 ;MAKE IT AN ADDRESS
721 001060 CALL BLCNBK ;BUILD A CONNECT BLOCK
722 001064 112765 177727 000006 MOVB #-C$OPLK,C.FUNC(R5) ;SET FUNCTION CODE TO OPEN LINK
723 001072 ENDIF
724 001072 IF ; FUNCTION CODE = OPEN LINK
725 001072 FALSEB NE C.FUNC(R5),#C$OPLK
726 001102 THEN
727 001102 IF ; SUCCESS
728 001102 FALSEB LT C.RET(R5)
729 001110 THEN
730 001110 016564 000020 000002 MOV C.LKNM(R5),LSLKNM(R4) ;SET LINE SERVICE LINK NUMBER IN CONTEXT
731 001116 016502 000014 MOV C.ADDR(R5),R2 ;GET BUFFER ADDRESS
732 001122 112722 000016 MOVB #N$LNSR,(R2)+ ;NICE FUNCTION CODE FOR LINE SERVICE
733 001126 112722 000004 MOVB #LS$TRI,(R2)+ ;OPTION = TRIGGER BOOT, DO NOT GET PROGRAM REQUEST
734 001132 112722 000001 MOVB #LI$STA,(R2)+ ;LINE ID FORMAT = STANDARD
735 001136 012700 000025 MOV #LINE,R0 ;OFFSET OF LINE ID IN CONTEXT
736 001142 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
737 001144 012701 000004 MOV #4,R1 ;LENGTH OF LINE ID
738 001150 CALL MOVE ;MOVE LINE ID TO MESSAGE
739 001154 012700 000031 MOV #BOOPAS,R0 ;OFFSET OF BOOT PASSWORD IN CONTEXT
740 001160 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
741 001162 112001 MOVB (R0)+,R1 ;LENGTH OF BOOT PASSWORD
742 001164 110122 MOVB R1,(R2)+ ;PUT IT IN MESSAGE
743 001166 CALL MOVE ;MOVE BOOT PASSWORD TO MESSAGE
744 001172 166502 000014 SUB C.ADDR(R5),R2 ;COMPUTE LENGTH OF MESSAGE
745 001176 010265 000012 MOV R2,C.LEN(R5) ;PUT IT IN CONTROL BLOCK
746 001202 112765 177725 000006 MOVB #-C$TRMS,C.FUNC(R5) ;TRANSMIT LINE SERVICE REQUEST
747 001210 ELSE
748 001212 ONCASE ; ERROR CODE
749 001212 116500 000010 MOVB C.RET(R5),R0
750 001216 CASE ; NODE NAME
751 001216 FALSE NE R0,#CE$NOD
752 001224 DO
753 001224 012700 177764 MOV #NE$SER,R0 ;SERVER ID ERROR
754 001230 CASE ; REJECTED
755 001232 FALSE NE R0,#CE$REJ
756 001240 DO
757 001240 012700 177761 MOV #NE$RES,R0 ;RESOURCE ERROR
758 001244 CASE ; OBJECT DOESN'T EXIST
759 001246 FALSE NE R0,#CE$OBJ
760 001254 DO
761 001254 012700 177753 MOV #NE$NIC,R0 ;NICE PROCESS UNAVAILABLE
762 001260 ELSE
763 001262 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATIONS ERROR
764 001266 ENDCASE
765 001266 CALL TRABRT ;AND GIVE UP
766 001272 ENDIF
767 001272 ENDIF
768 001272 IF ; FUNCTION CODE = TRANSMIT MESSAGE
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 15-1
TRPROC
769 001272 FALSEB NE C.FUNC(R5),#C$TRMS
770 001302 THEN
771 001302 IF ; SUCCESS
772 001302 FALSEB LT C.RET(R5)
773 001310 THEN
774 001310 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;LENGTH OF RECEIVE BUFFER
775 001316 112765 177724 000006 MOVB #-C$RCMS,C.FUNC(R5) ;SET FUNCTION CODE TO RECEIVE MESSAGE
776 001324 ELSE
777 001326 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATION ERROR
778 001332 CALL TRABRT ;GO AWAY
779 001336 ENDIF
780 001336 ENDIF
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 16
TRPROC
782 001336 IF ; FUNCTION CODE = RECEIVE MESSAGE
783 001336 FALSEB NE C.FUNC(R5),#C$RCMS
784 001346 THEN
785 001346 IF ; SUCCESS
786 001346 FALSEB LT C.RET(R5)
787 001354 THEN
788 001354 IF ; MESSAGE LENGTH = 1 BYTE
789 001354 FALSE NE C.LEN(R5),#1
790 001364 THEN
791 001364 117500 000014 MOVB @C.ADDR(R5),R0 ;GET NICE RETURN CODE
792 001370 ELSE
793 001372 012700 177776 MOV #NE$FOR,R0 ;MESSAGE FORMAT ERROR
794 001376 ENDIF
795 001376 ELSE
796 001400 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATIONS ERROR
797 001404 ENDIF
798 001404 CALL TRABRT ;ALL DONE IN ANY CASE
799 001410 ENDIF
800 001410 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
801 001414 ENDPROC
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 17
TRTRIG
803 .SBTTL TRTRIG
804 ;
805 ;======================================================================;
806 ;++
807 ; +-------------------------------------------------+
808 ; I I
809 ; I T R T R I G I
810 ; I - - - - - - I
811 ; I I
812 ; +-------------------------------------------------+
813 ;
814 ; FUNCTION:
815 ;
816 ; TRIGGER PROCESSOR TOP LEVEL MODULE
817 ;
818 ; INPUT:
819 ;
820 ; IN CONTEXT - PROCESS STATE
821 ; R5 - CONTROL BLOCK ADDRESS
822 ; C.CTXT - CONTEXT ADDRESS OR ZERO FOR INITIALIZATION
823 ; C.FUNC - FUNCTION JUST PERFORMED
824 ;
825 ; OUTPUT:
826 ;
827 ; C-BIT - CLEAR
828 ; @R5 - MODIFIED CONTROL BLOCK
829 ; C.CTXT - CONTEXT ADDRESS OR -1 FOR COMPLETE
830 ; C.FUNC - FUNCTION TO PERFORM
831 ; C.PROC - GET COMMAND PROCESSOR NUMBER WHEN COMPLETE
832 ;
833 ; REQUIREMENTS:
834 ;
835 ; TRIGGER SYMBOLS:
836 ;
837 ; CONFIG - PROCESSING STATE FOR CONFIGURATION DATABASE INPUT
838 ; FINISH - PROCESSING STATE FOR FINISH UP
839 ; PROC - PROCESSING STATE FOR PROCESS TRIGGER FUNCTION
840 ; STATE - OFFSET OF STATE IN CONTEXT
841 ;
842 ; CONTROL BLOCK SYMBOLS:
843 ;
844 ; C.CTXT - OFFSET OF CONTEXT FIELD
845 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
846 ; C.PROC - OFFSET OF PROCESSOR NUMBER FIELD
847 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
848 ; C$PROC - PROCESS FUNCTION CODE
849 ;
850 ; PROCESSOR SYMBOLS:
851 ;
852 ; P$GTCM - GET COMMAND PROCESSOR NUMBER
853 ;
854 ; NOTES:
855 ;
856 ; THE MODULES BELOW THIS ONE USE THE CONTROL BLOCK AND THE CONTEXT
857 ; AREA FOR INPUT AND OUTPUT.
858 ;
859 ;--
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 17-1
TRTRIG
860 ;======================================================================;
861 ;
862 ;
863 ; EXTERNAL MACROS
864 ;
865 .MCALL CONDF,TRDF,PRDF
866 ;
867 ; DEFINE EXTERNAL SYMBOLS
868 ;
869 001416 CONDF ;CONTROL BLOCK SYMBOLS
870 001416 TRDF ;TRIGGER SYMBOLS
871 001416 PRDF ;PROCESSOR SYMBOLS
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 18
TRTRIG
873 ;
874 ; PROCEDURE BODY
875 ;
876 001416 PROC TRTRIG
877 001416 016504 000004 MOV C.CTXT(R5),R4 ;GET CONTEXT POINTER
878 001422 IF ; CONTEXT POINTER = 0
879 001422 FALSE SET R4
880 001426 THEN
881 001426 IF ; FUNCTION CODE <> RELEASE MEMORY BUFFER
882 001426 FALSEB EQ C.FUNC(R5),#C$RLBF
883 001436 THEN
884 001436 CALL TRINIT ;INITIALIZE
885 001442 ELSE ; MUST HAVE JUST RELEASED CONTEXT, ALL DONE!
886 001444 112765 000001 000007 MOVB #P$GTCM,C.PROC(R5) ;PASS THIS BACK FROM WHENCE IT CAME
887 001452 112765 000200 000006 MOVB #C$PROC,C.FUNC(R5) ;FIX UP FUNCTION CODE
888 001460 012765 177777 000004 MOV #-1,C.CTXT(R5) ;SIGNAL COMPLETE
889 001466 005004 CLR R4 ;MAKE SURE NOBODY ELSE IN HERE RUNS
890 001470 ENDIF
891 001470 ENDIF
892 001470 IF ; CONTEXT POINTER <> 0
893 001470 FALSE CLEAR R4
894 001474 THEN
895 001474 IF ; STATE = CONFIGURATION NEEDED
896 001474 FALSEB NE STATE(R4),#CONFIG
897 001504 THEN
898 001504 CALL TRCNFG ;SET UP CONFIGURATION DATA
899 001510 ENDIF
900 001510 IF ; STATE = PROCESS
901 001510 FALSEB NE STATE(R4),#PROC
902 001520 THEN
903 001520 CALL TRPROC ;PROCESS IT
904 001524 ENDIF
905 001524 IF ; STATE = FINISH UP
906 001524 FALSEB NE STATE(R4),#FINISH
907 001534 THEN
908 001534 CALL TRFINI ;CLEAN UP
909 001540 ENDIF
910 001540 ENDIF
911 001540 000241 CLC ;FOLLOWING THE RULES...
912 001542 ENDPROC
913 000001 .END
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 18-1
SYMBOL TABLE
A$$CHK= 000000 C$OPIN= 000041 DM$MIM= 000002 F$OPCO= 000000 LINE 000025
A$$CPS= 000000 C$OPIR= 000056 DM$PXA= 000003 F$OPIN= 000000 LI$KNO= 000000
A$$TRP= 000000 C$OPLK= 000051 DM$SAD= 000001 F$OPIR= 000000 LI$STA= 000001
BADBIT= 000370 C$OPLN= 000045 D$$BUG= 177514 F$OPLK= 000005 LI$STR= 000002
BLCNBK= ****** GX C$OPOR= 000057 D$$ISK= 000000 F$OPLN= 000002 LSLKNM 000002
BOOPAS 000031 C$OPOT= 000042 D$$L11= 000001 F$OPLO= 000000 LS$DUM= 000002
BPSINC= 000004 C$ORD = 000145 ENTLEN= 000034 F$OPOR= 000000 LS$LOA= 000000
BPSLEN= 000010 C$PROC= 000200 FINISH= 000003 F$OPOT= 000000 LS$LOO= 000001
BTPSAD= 000024 C$RCBK= 000047 FL$BOO= 000001 F$ORLU= 000000 LS$TRI= 000004
CE$ACP= 177753 C$RCEV= 000050 FL$DUM= 000001 F$OTLU= 000001 LS$TRQ= 000003
CE$ADR= 177776 C$RCIN= 000062 FL$LOA= 000001 F$RCBK= 000002 L$$ASG= 000000
CE$CON= 177770 C$RCMA= 000146 FL$LOO= 000001 F$RCEV= 000001 L$$DRV= 000000
CE$DIS= 177771 C$RCMS= 000054 FR$LCC= 000001 F$RCIN= 000000 L$$P11= 000001
CE$EOF= 177767 C$RDBK= 000043 FR$LCS= 000001 F$RCMA= 000000 L$$11R= 000000
CE$FAI= 177774 C$RDCM= 000035 FR$LNC= 000001 F$RCMS= 000002 MOVE = ****** GX
CE$FIL= 177756 C$RDIN= 000040 FR$LNL= 000001 F$RDBK= 000000 MVMSBY= ****** GX
CE$FUN= 177777 C$RDIS= 000040 FR$LNS= 000001 F$RDCM= 000000 MVMSIM= ****** GX
CE$GEN= 177774 C$RDRC= 000060 FR$RMC= 000001 F$RDIN= 000001 M$$CRB= 000124
CE$IND= 177757 C$RLBF= 000001 FR$RML= 000001 F$RDIS= 000012 M$$CRX= 000000
CE$IO = 177760 C$RLCB= 000002 FR$RMS= 000001 F$RDRC= 000000 M$$FCS= 000000
CE$LEN= 177775 C$RLCI= 000000 FS$HOS= 000001 F$RECO= 000001 M$$OVR= 000000
CE$LID= 177766 C$STBK= 000055 FS$INT= 000000 F$RLBF= 000001 ND$BAD= 177777
CE$LST= 177752 C$STPR= 000037 FS$LLP= 000001 F$RLCB= 000001 ND$LCC= 000000
CE$NOD= 177765 C$STPS= 000037 FS$LOF= 000001 F$STBK= 000000 ND$LCS= 000001
CE$NSD= 177755 C$TRBK= 000046 FS$LOG= 000001 F$STPR= 000001 ND$LNC= 000004
CE$NST= 177754 C$TRIN= 000063 FS$LST= 000001 F$STPS= 000006 ND$LNS= 000005
CE$NWE= 177773 C$TRMA= 000145 FS$NET= 000001 F$TEST= 000001 ND$RMC= 000002
CE$OBJ= 177750 C$TRMS= 000053 FS$NST= 000000 F$TRAC= 000000 ND$RMS= 000003
CE$OPN= 177761 C$WRBK= 000044 FS$PAS= 000001 F$TRBK= 000001 ND$ZLC= 000000
CE$OVR= 177764 C$WRCL= 000065 FT$CNS= 000000 F$TRIG= 000001 ND$ZLN= 000002
CE$PAR= 177763 C$WRCM= 000036 FT$NOD= 000001 F$TRIN= 000000 ND$ZRM= 000001
CE$PRO= 177751 C$WRRC= 000061 FT$TSK= 000001 F$TRMA= 000000 NE$CON= 177762
CE$REJ= 177772 C$ZRCN= 000064 F$ALBF= 000001 F$TRMS= 000002 NE$FIL= 177763
CE$TMO= 177762 C$$CKP= 000000 F$ALCB= 000001 F$WRBK= 000000 NE$FIO= 177756
CMLKNM 000000 C$$ORE= 000400 F$CB = 000017 F$WRCL= 000001 NE$FOR= 177776
CNFFND= ****** GX C$$RSH= 177564 F$CLCL= 000001 F$WRCM= 000000 NE$FUN= 177777
CNFMOV= ****** GX C.ADDR= 000014 F$CLCO= 000000 F$WRRC= 000000 NE$LCO= 177766
CONFIG= 000001 C.BKNM= 000014 F$CLFL= 000000 F$ZERO= 000001 NE$LID= 177770
CS$ACK= 000002 C.CTXT= 000004 F$CLLK= 000006 F$ZRCN= 000001 NE$LPR= 177757
CS$LKE= 000001 C.FUNC= 000006 F$CLLN= 000002 F$$LVL= 000001 NE$LST= 177767
CS$LNA= 000002 C.LEN = 000012 F$DPOS= 000001 F$150 = 000002 NE$NCO= 177755
CS$LOG= 000003 C.LINE= 000014 F$DUMP= 000000 F$300 = 000012 NE$NIC= 177753
CS$NCH= 000003 C.LKNM= 000020 F$EVNT= 000001 F$50 = 000002 NE$NOD= 177765
CS$SUC= 000001 C.LUN = 000020 F$EXAM= 000001 F$550 = 000002 NE$NOR= 177754
CTXTLN= 000042 C.MODE= 000021 F$EXHO= 000000 GTMSBY= ****** GX NE$ORD= 177774
C$ALBF= 000032 C.PRID= 000017 F$GTCM= 000001 G$$TPP= 000000 NE$PAR= 177760
C$ALCB= 000033 C.PROC= 000007 F$INCM= 000000 G$$TSS= 000000 NE$RES= 177761
C$CLCL= 000067 C.PROM= 000016 F$INLU= 000001 G$$TTK= 000000 NE$SER= 177764
C$CLCO= 000003 C.PTR = 000000 F$IRLU= 000000 I$$RAR= 000000 NE$STA= 177775
C$CLFL= 000004 C.RET = 000010 F$LKLU= 000010 I$$RDN= 000000 NL$BRC= 000001
C$CLLK= 000052 C.SAVE= 000022 F$LNLU= 000002 K$$CNT= 177546 NL$BTR= 000002
C$CLLN= 000005 C.SERV= 000002 F$LNSR= 000001 K$$CSR= 177546 NL$RES= 000005
C$LEN = 000026 C.TASK= 000016 F$LOAD= 000000 K$$LDC= 000000 NL$RLE= 000004
C$NOPN= 000031 C.TYPE= 000016 F$LOGD= 000001 K$$TPS= 000074 NL$RTR= 000003
C$NORD= 000032 C.WAIT= 000020 F$LOOP= 000001 LDFLAD= 000014 NL$TMO= 000006
C$OPCL= 000066 DMFLAD= 000030 F$NTCM= 000000 LDPRAD= 000020 NL$ZRO= 000000
C$OPCO= 000034 DM$END= 000000 F$OPCL= 000001 LD$LP = 000000 NN$CAC= 000011
TRTRIG MACRO M1110 13-OCT-79 12:57 PAGE 18-2
SYMBOL TABLE
NN$CNI= 000013 N$TRIG= 000004 P$$P45= 000000 SP$LOF= 000012 TRFINI 000240R
NN$CNR= 000014 N$ZERO= 000011 RETCOD 000005 SP$LST= 000001 TRINIT 000422R
NN$EXT= 000003 N$$USR= 000001 RI$LCC= 000001 SP$NDM= 000014 TRPARS 000562R
NN$FMT= 000005 N.MLEN= 000454 RI$LCS= 000002 SP$NDO= 000013 TRPROC 001044R
NN$IZS= 000007 OPTION 000006 RI$LNC= 000007 SP$NST= 000006 TRTRIG 001416RG
NN$IZU= 000010 PROC = 000002 RI$LNL= 000006 SP$RRP= 000004 T$$KMG= 000000
NN$MAC= 000012 PT$END= 000000 RI$LNS= 000010 SP$RTP= 000005 T$$MIN= 000000
NN$NKS= 000004 PT$HOS= 000003 RI$RMC= 000004 SRVINC= 000002 V$$CTR= 001000
NN$RES= 000006 PT$NAM= 000001 RI$RML= 000003 STATE 000004 X$$DBT= 000000
NN$UMR= 000002 PT$NUM= 000002 RI$RMS= 000005 ST$DIS= 000006 YES = 000001
NN$UMS= 000001 P$DPOS= 000016 RI$ZLC= 000011 ST$ENA= 000005 $$CSTA= 000000
NN$ZRO= 000000 P$DUMP= 000003 RI$ZLN= 000013 ST$LOO= 000003 $$PRST= 000015
NO = 000000 P$EVNT= 000011 RI$ZRM= 000012 ST$MAI= 000004 $$STIX= 000777
NODLEN= 000006 P$EXAM= 000017 R$$DER= 000000 ST$OFF= 000001 $$STNM= 000000
NOTNAM= 000001 P$GTCM= 000001 R$$K11= 000001 ST$ON = 000000 $$S766= 000077
NS$SUC= 000001 P$INCM= 000015 R$$SND= 000000 ST$SHU= 000002 $$S767= 000017
N$DPOS= 000014 P$LNSR= 000004 R$$11M= 000000 SVLNID= 000010 $$S770= 000077
N$DUMP= 000003 P$LOAD= 000002 SPRAY = ****** GX SVNMAD= 000004 $$S771= 000000
N$EXAM= 000015 P$LOGD= 000020 SP$DHO= 000003 SVNODE 000016 $$S772= 000077
N$LNSR= 000016 P$LOOP= 000005 SP$DRP= 000007 S$$WRG= 000000 $$S773= 000017
N$LOAD= 000002 P$NTCM= 000014 SP$DTP= 000010 S$$YSZ= 001600 $$S774= 000077
N$LOGD= 000001 P$RDIN= 000010 SP$LHO= 000002 TGNMAD= 000000 $$S775= 000012
N$LOOP= 000005 P$STPR= 000007 SP$LLP= 000011 TGNODE 000007 $$S776= 000000
N$RDIN= 000010 P$TEST= 000006 SP$LNM= 000016 TRABRT 000000R $$S777= 000000
N$STPR= 000007 P$TRIG= 000012 SP$LNO= 000015 TRCNFG 000020R $$TRNM= 000000
N$TEST= 000006 P$ZERO= 000013
. ABS. 000042 000
001544 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 10626 WORDS ( 42 PAGES)
DYNAMIC MEMORY: 12172 WORDS ( 46 PAGES)
ELAPSED TIME: 00:02:13
TRTRIG,[135,30]TRTRIG/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,TRTRIG
TRTRIG CREATED BY MACRO ON 13-OCT-79 AT 12:58 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
BADBIT = 000370 13-549
BLCNBK = ****** GX 15-721
BOOPAS 000031 7-233 13-609 15-739
BPSINC = 000004 7-194 7-230 13-606
BPSLEN = 000010 13-608
BTPSAD = 000024 7-232
CE$NOD = 177765 15-751
CE$OBJ = 177750 15-759
CE$REJ = 177772 15-755
CMLKNM 000000 9-342 *11-447
CNFFND = ****** GX 7-208
CNFMOV = ****** GX 7-217 7-234
CONFIG = 000001 11-454 18-896
CTXTLN = 000042 11-438 11-445
C$ALBF = 000032 11-439
C$CLLK = 000052 9-329 9-331 9-335
C$OPLK = 000051 15-722 15-725
C$PROC = 000200 11-434 18-887
C$RCMS = 000054 15-775 16-783
C$RLBF = 000001 9-348 9-351 18-882
C$TRMS = 000053 9-343 9-346 15-746 15-769
C.ADDR = 000014 9-338 9-340 *9-353 11-437 11-441 *11-449 13-540 15-731 15-744
16-791
C.CTXT = 000004 9-353 *9-354 *11-442 18-877 *18-888
C.FUNC = 000006 *5-110 *7-244 9-323 *9-329 *9-331 9-335 *9-343 9-346 *9-348
9-351 *9-355 *9-357 11-434 *11-439 *11-455 15-717 *15-722 15-725
*15-746 15-769 *15-775 16-783 *16-800 18-882 *18-887
C.LEN = 000012 *9-341 11-436 *11-438 *11-448 13-542 *15-745 *15-774 16-789
C.LKNM = 000020 *9-328 *9-342 11-447 15-730
C.PROC = 000007 *18-886
C.RET = 000010 15-728 15-749 15-772 16-786
C.SAVE = 000022 *11-436 *11-437 11-448 11-449
FINISH = 000003 5-111 18-906
F$TRAC = 000000 5-108 5-108 5-112 5-112 7-190 7-190 7-248 7-248 9-321
9-321 9-358 9-358 11-432 11-432 11-460 11-460 13-538 13-538
13-622 13-622 15-715 15-715 16-801 16-801 18-876 18-876 18-912
18-912
GTMSBY = ****** GX 13-544 13-586
I$$AS = ****** 5-108 7-190 9-321 11-432 13-538 15-715 18-876
LINE 000025 7-203 7-221 13-597 15-735
LI$STA = 000001 13-591 15-734
LSLKNM 000002 9-326 9-328 *9-337 *15-730
LS$TRI = 000004 15-733
MOVE = ****** GX 7-223 15-738 15-743
MVMSBY = ****** GX 13-599
MVMSIM = ****** GX 13-565 13-582 13-611
NE$FOR = 177776 13-617 16-793
NE$FUN = 177777 13-551 13-570
NE$NCO = 177755 15-763 15-777 16-796
NE$NIC = 177753 15-761
NE$PAR = 177760 13-593
NE$RES = 177761 15-757
TRTRIG CREATED BY MACRO ON 13-OCT-79 AT 12:58 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
NE$SER = 177764 15-753
NODLEN = 000006 13-562 13-579
NOTNAM = 000001 7-197 13-560
N$LNSR = 000016 15-732
N.MLEN = 000454 15-774
OPTION 000006 7-191 7-197 7-213 7-230 *13-554 13-560 13-568 13-577 13-606
PROC = 000002 7-243 18-901
P$GTCM = 000001 18-886
RETCOD 000005 *5-109 9-339
R$$11D = ****** 5-108 7-190 9-321 11-432 13-538 15-715 18-876
R$$11M = 000000 5-108 7-190 9-321 11-432 13-538 15-715 18-876
SPRAY = ****** GX 11-446
SRVINC = 000002 7-193 7-213 13-568 13-577
STATE 000004 *5-111 *7-243 *11-454 18-896 18-901 18-906
SVLNID = 000010 7-218
SVNMAD = 000004 7-215
SVNODE 000016 7-202 7-216 13-580 15-719
TGNODE 000007 7-199 13-563
TRABRT 000000 R #5-108 7-246 11-457 15-765 15-778 16-798
TRCNFG 000020 R #7-190 18-898
TRFINI 000240 R #9-321 18-908
TRINIT 000422 R #11-432 18-884
TRPARS 000562 R 11-450 #13-538
TRPROC 001044 R #15-715 18-903
TRTRIG 001416 RG #18-876
$$CSTA = 000000 #5-108 #7-190 #9-321 #11-432 #13-538 #15-715 15-748 #15-748 15-750
#15-750 15-754 15-758 #15-764 #18-876
$$PRST = 000015 #5-108 #7-190 *7-192 #7-192 7-196 #7-196 7-209 #7-209 7-212
#7-212 7-228 #7-228 7-240 #7-240 #9-321 9-322 #9-322 9-325
#9-325 9-334 #9-334 9-345 #9-345 9-350 #9-350 #11-432 11-433
#11-433 11-451 #11-451 #13-538 13-545 #13-545 13-548 #13-548 13-556
#13-556 13-559 #13-559 13-567 #13-567 13-575 #13-575 13-583 #13-583
13-587 #13-587 13-590 #13-590 13-604 #13-604 13-613 #13-613 #15-715
15-716 #15-716 15-724 #15-724 15-727 #15-727 15-748 #15-748 15-768
#15-768 15-771 #15-771 16-782 #16-782 16-785 #16-785 16-788 #16-788
#18-876 *18-878 #18-878 18-881 #18-881 18-892 #18-892 18-895 #18-895
18-900 #18-900 18-905 #18-905
$$SLST = ****** 5-108 5-112 7-190 7-193 7-193 7-194 7-194 7-195 7-197
7-197 7-198 7-201 7-201 7-205 7-210 7-211 7-213 7-213
7-214 7-225 7-225 7-227 7-229 7-230 7-230 7-231 7-236
7-237 7-239 7-241 7-242 7-245 7-245 7-247 7-248 9-321
9-323 9-323 9-324 9-326 9-326 9-327 9-330 9-330 9-332
9-333 9-335 9-335 9-336 9-344 9-346 9-346 9-347 9-349
9-351 9-351 9-352 9-356 9-358 11-432 11-434 11-434 11-435
11-440 11-440 11-452 11-453 11-456 11-456 11-458 11-459 11-460
13-538 13-546 13-547 13-549 13-549 13-550 13-553 13-553 13-555
13-557 13-558 13-560 13-560 13-561 13-566 13-566 13-568 13-568
13-569 13-572 13-573 13-574 13-576 13-577 13-577 13-578 13-584
13-585 13-588 13-589 13-591 13-591 13-592 13-595 13-595 13-600
13-601 13-602 13-603 13-605 13-606 13-606 13-607 13-612 13-614
13-615 13-615 13-616 13-619 13-620 13-622 15-715 15-717 15-717
15-718 15-723 15-725 15-725 15-726 15-728 15-728 15-729 15-747
TRTRIG CREATED BY MACRO ON 13-OCT-79 AT 12:58 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
15-747 15-751 15-751 15-752 15-754 15-754 15-755 15-755 15-756
15-758 15-758 15-759 15-759 15-760 15-762 15-762 15-764 15-766
15-767 15-769 15-769 15-770 15-772 15-772 15-773 15-776 15-776
15-779 15-780 16-783 16-783 16-784 16-786 16-786 16-787 16-789
16-789 16-790 16-792 16-792 16-794 16-795 16-795 16-797 16-799
16-801 18-876 18-879 18-879 18-880 18-882 18-882 18-883 18-885
18-885 18-890 18-891 18-893 18-893 18-894 18-896 18-896 18-897
18-899 18-901 18-901 18-902 18-904 18-906 18-906 18-907 18-909
18-910 18-912
$$STIX = 000777 #5-108 #7-190 *7-192 *7-192 #7-192 *7-192 *7-192 #7-192 7-196
7-196 #7-196 7-196 7-196 #7-196 7-205 #7-205 7-205 7-205
#7-205 7-205 7-209 7-209 #7-209 7-209 7-209 #7-209 7-212
7-212 #7-212 7-212 7-212 #7-212 7-227 #7-227 7-227 7-227
#7-227 7-227 7-228 7-228 #7-228 7-228 7-228 #7-228 7-236
#7-236 7-236 7-236 #7-236 7-236 7-237 #7-237 7-237 7-237
#7-237 7-237 7-239 #7-239 7-239 7-239 #7-239 7-239 7-240
7-240 #7-240 7-240 7-240 #7-240 7-247 #7-247 7-247 7-247
#7-247 7-247 #9-321 9-322 9-322 #9-322 9-322 9-322 #9-322
9-325 9-325 #9-325 9-325 9-325 #9-325 9-332 #9-332 9-332
9-332 #9-332 9-332 9-333 #9-333 9-333 9-333 #9-333 9-333
9-334 9-334 #9-334 9-334 9-334 #9-334 9-344 #9-344 9-344
9-344 #9-344 9-344 9-345 9-345 #9-345 9-345 9-345 #9-345
9-349 #9-349 9-349 9-349 #9-349 9-349 9-350 9-350 #9-350
9-350 9-350 #9-350 9-356 #9-356 9-356 9-356 #9-356 9-356
#11-432 11-433 11-433 #11-433 11-433 11-433 #11-433 11-451 11-451
#11-451 11-451 11-451 #11-451 11-458 #11-458 11-458 11-458 #11-458
11-458 11-459 #11-459 11-459 11-459 #11-459 11-459 #13-538 13-545
13-545 #13-545 13-545 13-545 #13-545 13-548 13-548 #13-548 13-548
13-548 #13-548 13-555 #13-555 13-555 13-555 #13-555 13-555 13-556
13-556 #13-556 13-556 13-556 #13-556 13-559 13-559 #13-559 13-559
13-559 #13-559 13-567 13-567 #13-567 13-567 13-567 #13-567 13-572
#13-572 13-572 13-572 #13-572 13-572 13-573 #13-573 13-573 13-573
#13-573 13-573 13-574 #13-574 13-574 13-574 #13-574 13-574 13-575
13-575 #13-575 13-575 13-575 #13-575 13-583 13-583 #13-583 13-583
13-583 #13-583 13-587 13-587 #13-587 13-587 13-587 #13-587 13-590
13-590 #13-590 13-590 13-590 #13-590 13-600 #13-600 13-600 13-600
#13-600 13-600 13-601 #13-601 13-601 13-601 #13-601 13-601 13-602
#13-602 13-602 13-602 #13-602 13-602 13-603 #13-603 13-603 13-603
#13-603 13-603 13-604 13-604 #13-604 13-604 13-604 #13-604 13-612
#13-612 13-612 13-612 #13-612 13-612 13-613 13-613 #13-613 13-613
13-613 #13-613 13-619 #13-619 13-619 13-619 #13-619 13-619 13-620
#13-620 13-620 13-620 #13-620 13-620 #15-715 15-716 15-716 #15-716
15-716 15-716 #15-716 15-723 #15-723 15-723 15-723 #15-723 15-723
15-724 15-724 #15-724 15-724 15-724 #15-724 15-727 15-727 #15-727
15-727 15-727 #15-727 15-748 15-748 #15-748 15-748 15-748 #15-748
15-748 15-748 #15-748 *15-764 #15-764 *15-764 15-764 #15-764 15-764
15-764 #15-764 15-764 15-766 #15-766 15-766 15-766 #15-766 15-766
15-767 #15-767 15-767 15-767 #15-767 15-767 15-768 15-768 #15-768
15-768 15-768 #15-768 15-771 15-771 #15-771 15-771 15-771 #15-771
15-779 #15-779 15-779 15-779 #15-779 15-779 15-780 #15-780 15-780
15-780 #15-780 15-780 16-782 16-782 #16-782 16-782 16-782 #16-782
16-785 16-785 #16-785 16-785 16-785 #16-785 16-788 16-788 #16-788
TRTRIG CREATED BY MACRO ON 13-OCT-79 AT 12:58 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
16-788 16-788 #16-788 16-794 #16-794 16-794 16-794 #16-794 16-794
16-797 #16-797 16-797 16-797 #16-797 16-797 16-799 #16-799 16-799
16-799 #16-799 16-799 #18-876 *18-878 *18-878 #18-878 *18-878 *18-878
#18-878 18-881 18-881 #18-881 18-881 18-881 #18-881 18-890 #18-890
18-890 18-890 #18-890 18-890 18-891 #18-891 18-891 18-891 #18-891
18-891 18-892 18-892 #18-892 18-892 18-892 #18-892 18-895 18-895
#18-895 18-895 18-895 #18-895 18-899 #18-899 18-899 18-899 #18-899
18-899 18-900 18-900 #18-900 18-900 18-900 #18-900 18-904 #18-904
18-904 18-904 #18-904 18-904 18-905 18-905 #18-905 18-905 18-905
#18-905 18-909 #18-909 18-909 18-909 #18-909 18-909 18-910 #18-910
18-910 18-910 #18-910 18-910
$$STNM = 000000 #5-108 #7-190 *7-192 #7-192 *7-192 7-193 7-194 7-195 7-196
#7-196 7-196 7-197 7-198 7-201 7-201 7-205 #7-205 7-209
#7-209 7-209 7-210 7-211 7-212 #7-212 7-212 7-213 7-214
7-225 7-225 7-227 #7-227 7-228 #7-228 7-228 7-229 7-230
7-231 7-236 #7-236 7-237 #7-237 *7-239 #7-239 7-240 #7-240
7-240 7-241 7-242 7-245 7-245 7-247 #7-247 #9-321 9-322
#9-322 9-322 9-323 9-324 9-325 #9-325 9-325 9-326 9-327
*9-330 9-330 *9-332 #9-332 9-333 #9-333 9-334 #9-334 9-334
9-335 9-336 *9-344 #9-344 9-345 #9-345 9-345 9-346 9-347
*9-349 #9-349 9-350 #9-350 9-350 9-351 9-352 9-356 #9-356
#11-432 11-433 #11-433 11-433 11-434 11-435 *11-440 11-440 11-451
#11-451 11-451 11-452 11-453 11-456 11-456 11-458 #11-458 11-459
#11-459 #13-538 13-545 #13-545 13-545 13-546 13-547 13-548 #13-548
13-548 13-549 13-550 13-553 13-553 *13-555 #13-555 13-556 #13-556
13-556 13-557 13-558 13-559 #13-559 13-559 13-560 13-561 13-566
13-566 13-567 #13-567 13-567 13-568 13-569 13-572 #13-572 13-573
#13-573 13-574 #13-574 13-575 #13-575 13-575 13-576 13-577 13-578
13-583 #13-583 13-583 13-584 13-585 13-587 #13-587 13-587 13-588
13-589 13-590 #13-590 13-590 13-591 13-592 13-595 13-595 13-600
#13-600 13-601 #13-601 13-602 #13-602 13-603 #13-603 13-604 #13-604
13-604 13-605 13-606 13-607 13-612 #13-612 13-613 #13-613 13-613
13-614 13-615 13-616 13-619 #13-619 13-620 #13-620 #15-715 15-716
#15-716 15-716 15-717 15-718 *15-723 #15-723 15-724 #15-724 15-724
15-725 15-726 15-727 #15-727 15-727 15-728 15-729 *15-747 15-747
15-748 #15-748 15-748 15-751 15-752 15-754 15-754 15-755 15-756
15-758 15-758 15-759 15-760 *15-762 15-762 15-764 #15-764 15-766
#15-766 15-767 #15-767 15-768 #15-768 15-768 15-769 15-770 15-771
#15-771 15-771 15-772 15-773 *15-776 15-776 15-779 #15-779 15-780
#15-780 16-782 #16-782 16-782 16-783 16-784 16-785 #16-785 16-785
16-786 16-787 16-788 #16-788 16-788 16-789 16-790 *16-792 16-792
*16-794 #16-794 16-795 16-795 *16-797 #16-797 16-799 #16-799 #18-876
*18-878 #18-878 *18-878 18-879 18-880 18-881 #18-881 18-881 18-882
18-883 18-885 18-885 18-890 #18-890 18-891 #18-891 18-892 #18-892
18-892 18-893 18-894 18-895 #18-895 18-895 18-896 18-897 18-899
#18-899 18-900 #18-900 18-900 18-901 18-902 18-904 #18-904 18-905
#18-905 18-905 18-906 18-907 18-909 #18-909 18-910 #18-910
$$S766 = 000077 #13-590 13-600
$$S767 = 000017 #13-590 13-600
$$S770 = 000077 #13-567 13-572 #13-587 13-601
$$S771 = 000000 #13-567 13-572 #13-587 13-601 #15-748 *15-764
$$S772 = 000077 #7-212 7-227 #7-228 7-236 #13-559 13-573 #13-583 13-602 #15-748
TRTRIG CREATED BY MACRO ON 13-OCT-79 AT 12:58 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
15-764 #16-788 16-794
$$S773 = 000017 #7-212 7-227 #7-228 7-236 #13-559 13-573 #13-583 13-602 #15-748
15-764 #16-788 16-794
$$S774 = 000077 #7-196 7-205 #7-209 7-237 #9-325 9-332 #11-451 11-458 #13-548
13-555 #13-556 13-574 #13-575 13-603 #13-604 13-612 #13-613 13-619
#15-727 15-766 #15-771 15-779 #16-785 16-797 #18-881 18-890 #18-895
18-899 #18-900 18-904 #18-905 18-909
$$S775 = 000012 #7-196 7-205 #7-209 7-237 #9-325 9-332 #11-451 11-458 #13-548
13-555 #13-556 13-574 #13-575 13-603 #13-604 13-612 #13-613 13-619
#15-727 15-766 #15-771 15-779 #16-785 16-797 #18-881 18-890 #18-895
18-899 #18-900 18-904 #18-905 18-909
$$S776 = 000000 #7-192 7-239 #7-240 7-247 #9-322 9-333 #9-334 9-344 #9-345
9-349 #9-350 9-356 #11-433 11-459 #13-545 13-620 #15-716 15-723
#15-724 15-767 #15-768 15-780 #16-782 16-799 #18-878 18-891 #18-892
18-910
$$S777 = 000000 #7-192 7-239 #7-240 7-247 #9-322 9-333 #9-334 9-344 #9-345
9-349 #9-350 9-356 #11-433 11-459 #13-545 13-620 #15-716 15-723
#15-724 15-767 #15-768 15-780 #16-782 16-799 #18-878 18-891 #18-892
18-910
$$TRNM = 000000 #5-108 #7-190 *7-192 #7-192 7-193 7-194 7-195 7-196 #7-196
7-197 7-198 7-201 #7-201 7-205 #7-205 7-209 #7-209 7-210
7-211 7-212 #7-212 7-213 7-214 7-225 #7-225 7-227 #7-227
7-228 #7-228 7-229 7-230 7-231 7-236 #7-236 7-237 #7-237
*7-239 #7-239 7-240 #7-240 7-241 7-242 7-245 #7-245 7-247
#7-247 #9-321 9-322 #9-322 9-323 9-324 9-325 #9-325 9-326
9-327 9-330 #9-330 *9-332 #9-332 9-333 #9-333 9-334 #9-334
9-335 9-336 *9-344 #9-344 9-345 #9-345 9-346 9-347 *9-349
#9-349 9-350 #9-350 9-351 9-352 9-356 #9-356 #11-432 11-433
#11-433 11-434 11-435 11-440 #11-440 11-451 #11-451 11-452 11-453
11-456 #11-456 11-458 #11-458 11-459 #11-459 #13-538 13-545 #13-545
13-546 13-547 13-548 #13-548 13-549 13-550 13-553 #13-553 *13-555
#13-555 13-556 #13-556 13-557 13-558 13-559 #13-559 13-560 13-561
13-566 #13-566 13-567 #13-567 13-568 13-569 13-572 #13-572 13-573
#13-573 13-574 #13-574 13-575 #13-575 13-576 13-577 13-578 13-583
#13-583 13-584 13-585 13-587 #13-587 13-588 13-589 13-590 #13-590
13-591 13-592 13-595 #13-595 13-600 #13-600 13-601 #13-601 13-602
#13-602 13-603 #13-603 13-604 #13-604 13-605 13-606 13-607 13-612
#13-612 13-613 #13-613 13-614 13-615 13-616 13-619 #13-619 13-620
#13-620 #15-715 15-716 #15-716 15-717 15-718 *15-723 #15-723 15-724
#15-724 15-725 15-726 15-727 #15-727 15-728 15-729 15-747 #15-747
15-748 #15-748 15-751 15-752 15-754 15-754 #15-754 15-755 15-756
15-758 15-758 #15-758 15-759 15-760 15-762 #15-762 15-764 15-764
#15-764 15-766 #15-766 15-767 #15-767 15-768 #15-768 15-769 15-770
15-771 #15-771 15-772 15-773 15-776 #15-776 15-779 #15-779 15-780
#15-780 16-782 #16-782 16-783 16-784 16-785 #16-785 16-786 16-787
16-788 #16-788 16-789 16-790 16-792 #16-792 *16-794 #16-794 16-795
#16-795 *16-797 #16-797 16-799 #16-799 #18-876 *18-878 #18-878 18-879
18-880 18-881 #18-881 18-882 18-883 18-885 #18-885 18-890 #18-890
18-891 #18-891 18-892 #18-892 18-893 18-894 18-895 #18-895 18-896
18-897 18-899 #18-899 18-900 #18-900 18-901 18-902 18-904 #18-904
18-905 #18-905 18-906 18-907 18-909 #18-909 18-910 #18-910
TRTRIG CREATED BY MACRO ON 13-OCT-79 AT 12:58 PAGE 6
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #7-208 #7-217 #7-223 #7-234 #7-246 #11-446 #11-450 #11-457 #13-544 #13-565
#13-582 #13-586 #13-599 #13-611 #15-721 #15-738 #15-743 #15-765 #15-778 #16-798
#18-884 #18-898 #18-903 #18-908
CASE #5-108 #7-190 #9-321 #11-432 #13-538 #15-715 15-750 15-754 15-758 #18-876
CNFDF #6-178 6-184
CONDF #5-99 #5-104 #6-178 #6-185 #8-311 #8-316 #10-422 #10-426 #12-527 #12-531
#14-704 #14-709 #17-865 #17-869
DO #5-108 #7-190 #9-321 #11-432 #13-538 #15-715 15-752 15-756 15-760 #18-876
ELSE #5-108 #7-190 7-201 7-225 7-245 #9-321 9-330 #11-432 11-440 11-456
#13-538 13-553 13-566 13-595 #15-715 15-747 15-762 15-776 16-792 16-795
#18-876 18-885
ENDCAS #5-108 #7-190 #9-321 #11-432 #13-538 #15-715 15-764 #18-876
ENDIF #5-108 #7-190 #7-205 #7-227 #7-236 #7-237 #7-239 #7-247 #9-321 #9-332
#9-333 #9-344 #9-349 #9-356 #11-432 #11-458 #11-459 #13-538 #13-555 #13-572
#13-573 #13-574 #13-600 #13-601 #13-602 #13-603 #13-612 #13-619 #13-620 #15-715
#15-723 #15-764 #15-766 #15-767 #15-779 #15-780 #16-794 #16-797 #16-799 #18-876
#18-890 #18-891 #18-899 #18-904 #18-909 #18-910
ENDPRO #5-108 5-112 #7-190 7-248 #9-321 9-358 #11-432 11-460 #13-538 13-622
#15-715 16-801 #18-876 18-912
ENDWHI #5-108 #7-190 #9-321 #11-432 #13-538 #15-715 #18-876
FALSE #5-108 #7-190 7-194 7-210 7-229 7-241 #9-321 9-326 #11-432 11-452
#13-538 13-546 13-557 13-576 13-584 13-588 13-591 13-605 13-614 13-615
#15-715 15-751 15-755 15-759 16-789 #18-876 18-879 18-893
FALSEB #5-108 #7-190 7-197 7-213 7-230 #9-321 9-323 9-335 9-346 9-351
#11-432 11-434 #13-538 13-549 13-560 13-568 13-577 13-606 #15-715 15-717
15-725 15-728 15-769 15-772 16-783 16-786 #18-876 18-882 18-896 18-901
18-906
IF #5-108 #7-190 #7-192 #7-196 #7-209 #7-212 #7-228 #7-240 #9-321 #9-322
#9-325 #9-334 #9-345 #9-350 #11-432 #11-433 #11-451 #13-538 #13-545 #13-548
#13-556 #13-559 #13-567 #13-575 #13-583 #13-587 #13-590 #13-604 #13-613 #15-715
#15-716 #15-724 #15-727 #15-748 #15-768 #15-771 #16-782 #16-785 #16-788 #18-876
#18-878 #18-881 #18-892 #18-895 #18-900 #18-905
JMPPRO #5-108 #7-190 #9-321 #11-432 #13-538 #15-715 #18-876
NICDF #6-178 #6-183 #12-527 #12-533 #14-704 #14-710
ONCASE #5-108 #7-190 #9-321 #11-432 #13-538 #15-715 15-748 #18-876
PRDF #17-865 #17-871
PROC #4-50 18-876
PROCLC #4-50 5-108 #5-108 7-190 #7-190 9-321 #9-321 11-432 #11-432 13-538
#13-538 15-715 #15-715 #18-876
RESSTK #6-178 #7-238 #12-527 #13-621
SAVSTK #6-178 #7-207 #12-527 #13-539
SWSTK$ #5-108 #7-190 #9-321 #11-432 #13-538 #15-715 #18-876
THEN #5-108 #7-190 #7-195 #7-198 #7-211 #7-214 #7-231 #7-242 #9-321 #9-324
#9-327 #9-336 #9-347 #9-352 #11-432 #11-435 #11-453 #13-538 #13-547 #13-550
#13-558 #13-561 #13-569 #13-578 #13-585 #13-589 #13-592 #13-607 #13-616 #15-715
#15-718 #15-726 #15-729 #15-752 #15-756 #15-760 #15-770 #15-773 #16-784 #16-787
#16-790 #18-876 #18-880 #18-883 #18-894 #18-897 #18-902 #18-907
TRDF #5-99 #5-103 #6-178 #6-182 #8-311 #8-315 #10-422 #10-427 #12-527 #12-532
#14-704 #14-708 #17-865 #17-870
TRUE #5-108 #7-190 #7-193 #9-321 #11-432 #13-538 #15-715 #18-876
TRUEB #5-108 #7-190 #9-321 #11-432 #13-538 #15-715 #18-876
WHILE #5-108 #7-190 #9-321 #11-432 #13-538 #15-715 #18-876
TRTRIG CREATED BY MACRO ON 13-OCT-79 AT 12:58 PAGE 7
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
$$BGND #5-108 #7-190 #7-193 #7-194 #7-197 #7-210 #7-213 #7-229 #7-230 #7-241
#9-321 #9-323 #9-326 #9-335 #9-346 #9-351 #11-432 #11-434 #11-452 #13-538
#13-546 #13-549 #13-557 #13-560 #13-568 #13-576 #13-577 #13-584 #13-588 #13-591
#13-605 #13-606 #13-614 #13-615 #15-715 #15-717 #15-725 #15-728 #15-751 #15-755
#15-759 #15-769 #15-772 #16-783 #16-786 #16-789 #18-876 #18-879 #18-882 #18-893
#18-896 #18-901 #18-906
$$BGNN #5-108 #7-190 7-193 7-194 7-197 7-201 7-210 7-213 7-225 7-229
7-230 7-241 7-245 #9-321 9-323 9-326 9-330 9-335 9-346 9-351
#11-432 11-434 11-440 11-452 11-456 #13-538 13-546 13-549 13-553 13-557
13-560 13-566 13-568 13-576 13-577 13-584 13-588 13-591 13-595 13-605
13-606 13-614 13-615 #15-715 15-717 15-725 15-728 15-747 15-751 15-754
15-755 15-758 15-759 15-762 15-769 15-772 15-776 16-783 16-786 16-789
16-792 16-795 #18-876 18-879 18-882 18-885 18-893 18-896 18-901 18-906
$$ELSE #5-108 #7-190 7-201 7-225 7-245 #9-321 9-330 #11-432 11-440 11-456
#13-538 13-553 13-566 13-595 #15-715 15-747 15-754 15-758 15-762 15-776
16-792 16-795 #18-876 18-885
$$GEN1 #5-108 #5-108 #5-112 #7-190 #7-190 #7-193 #7-194 #7-195 #7-197 #7-198
#7-201 #7-201 #7-205 #7-210 #7-211 #7-213 #7-214 #7-225 #7-225 #7-227
#7-229 #7-230 #7-231 #7-236 #7-237 #7-239 #7-241 #7-242 #7-245 #7-245
#7-247 #7-248 #9-321 #9-321 #9-323 #9-323 #9-324 #9-326 #9-326 #9-327
#9-330 #9-330 #9-332 #9-333 #9-335 #9-336 #9-344 #9-346 #9-347 #9-349
#9-351 #9-352 #9-356 #9-358 #11-432 #11-432 #11-434 #11-435 #11-440 #11-440
#11-452 #11-453 #11-456 #11-456 #11-458 #11-459 #11-460 #13-538 #13-538 #13-546
#13-547 #13-549 #13-550 #13-553 #13-553 #13-555 #13-557 #13-558 #13-560 #13-561
#13-566 #13-566 #13-568 #13-569 #13-572 #13-573 #13-574 #13-576 #13-577 #13-578
#13-584 #13-585 #13-588 #13-589 #13-591 #13-592 #13-595 #13-595 #13-600 #13-601
#13-602 #13-603 #13-605 #13-606 #13-607 #13-612 #13-614 #13-615 #13-616 #13-619
#13-620 #13-622 #15-715 #15-715 #15-717 #15-717 #15-718 #15-723 #15-725 #15-726
#15-728 #15-728 #15-729 #15-747 #15-747 #15-751 #15-752 #15-754 #15-754 #15-755
#15-756 #15-758 #15-758 #15-759 #15-760 #15-762 #15-762 #15-764 #15-766 #15-767
#15-769 #15-770 #15-772 #15-772 #15-773 #15-776 #15-776 #15-779 #15-780 #16-783
#16-784 #16-786 #16-786 #16-787 #16-789 #16-790 #16-792 #16-792 #16-794 #16-795
#16-795 #16-797 #16-799 #16-801 #18-876 #18-876 #18-879 #18-879 #18-880 #18-882
#18-883 #18-885 #18-885 #18-890 #18-891 #18-893 #18-893 #18-894 #18-896 #18-897
#18-899 #18-901 #18-902 #18-904 #18-906 #18-907 #18-909 #18-910 #18-912
$$GEN2 #5-108 #7-190 #7-193 #7-194 #7-197 #7-213 #7-230 #9-321 #9-335 #9-346
#9-351 #11-432 #11-434 #13-538 #13-549 #13-560 #13-568 #13-577 #13-591 #13-606
#13-615 #15-715 #15-725 #15-751 #15-755 #15-759 #15-769 #16-783 #16-789 #18-876
#18-882 #18-896 #18-901 #18-906
$$GNAB #5-108 #7-190 7-210 7-229 7-241 #9-321 9-335 9-346 9-351 #11-432
11-434 11-452 #13-538 13-546 13-557 13-576 13-584 13-588 13-591 13-605
13-614 13-615 #15-715 15-725 15-728 15-751 15-755 15-759 15-769 15-772
16-783 16-786 16-789 #18-876 18-882 18-896 18-901 18-906
$$GNBT #5-108 #7-190 7-193 7-194 7-197 7-213 7-230 #9-321 9-323 9-326
#11-432 #13-538 13-549 13-560 13-568 13-577 13-606 #15-715 15-717 #18-876
18-879 18-893
$$GNCM #5-108 #7-190 7-193 7-194 7-197 7-210 7-213 7-229 7-230 7-241
#9-321 9-323 9-326 9-335 9-346 9-351 #11-432 11-434 11-452 #13-538
13-546 13-549 13-557 13-560 13-568 13-576 13-577 13-584 13-588 13-591
13-605 13-606 13-614 13-615 #15-715 15-717 15-725 15-728 15-751 15-755
15-759 15-769 15-772 16-783 16-786 16-789 #18-876 18-879 18-882 18-893
18-896 18-901 18-906
TRTRIG CREATED BY MACRO ON 13-OCT-79 AT 12:58 PAGE 8
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
$$INMC #5-108 5-108 #7-190 7-190 #9-321 9-321 #11-432 11-432 #13-538 13-538
#15-715 15-715 #18-876 18-876
$$INSY #5-108 5-108 #7-190 7-190 #9-321 9-321 #11-432 11-432 #13-538 13-538
#15-715 15-715 #18-876 18-876
$$LAB #5-108 #7-190 7-195 7-198 7-201 7-205 7-211 7-214 7-225 7-227
7-231 7-236 7-237 7-239 7-242 7-245 7-247 #9-321 9-324 9-327
9-330 9-332 9-333 9-336 9-344 9-347 9-349 9-352 9-356 #11-432
11-435 11-440 11-453 11-456 11-458 11-459 #13-538 13-547 13-550 13-553
13-555 13-558 13-561 13-566 13-569 13-572 13-573 13-574 13-578 13-585
13-589 13-592 13-595 13-600 13-601 13-602 13-603 13-607 13-612 13-616
13-619 13-620 #15-715 15-718 15-723 15-726 15-729 15-747 15-752 15-754
15-756 15-758 15-760 15-762 15-764 15-766 15-767 15-770 15-773 15-776
15-779 15-780 16-784 16-787 16-790 16-792 16-794 16-795 16-797 16-799
#18-876 18-880 18-883 18-885 18-890 18-891 18-894 18-897 18-899 18-902
18-904 18-907 18-909 18-910
$$POP #5-108 #7-190 7-205 7-205 7-227 7-227 7-236 7-236 7-237 7-237
7-239 7-239 7-247 7-247 #9-321 9-332 9-332 9-333 9-333 9-344
9-344 9-349 9-349 9-356 9-356 #11-432 11-458 11-458 11-459 11-459
#13-538 13-555 13-555 13-572 13-572 13-573 13-573 13-574 13-574 13-600
13-600 13-601 13-601 13-602 13-602 13-603 13-603 13-612 13-612 13-619
13-619 13-620 13-620 #15-715 15-723 15-723 15-764 15-764 15-764 15-766
15-766 15-767 15-767 15-779 15-779 15-780 15-780 16-794 16-794 16-797
16-797 16-799 16-799 #18-876 18-890 18-890 18-891 18-891 18-899 18-899
18-904 18-904 18-909 18-909 18-910 18-910
$$POPI #5-108 #7-190 7-205 7-205 7-227 7-227 7-236 7-236 7-237 7-237
7-239 7-239 7-247 7-247 #9-321 9-332 9-332 9-333 9-333 9-344
9-344 9-349 9-349 9-356 9-356 #11-432 11-458 11-458 11-459 11-459
#13-538 13-555 13-555 13-572 13-572 13-573 13-573 13-574 13-574 13-600
13-600 13-601 13-601 13-602 13-602 13-603 13-603 13-612 13-612 13-619
13-619 13-620 13-620 #15-715 15-723 15-723 15-764 15-764 15-764 15-766
15-766 15-767 15-767 15-779 15-779 15-780 15-780 16-794 16-794 16-797
16-797 16-799 16-799 #18-876 18-890 18-890 18-891 18-891 18-899 18-899
18-904 18-904 18-909 18-909 18-910 18-910
$$PUSH #5-108 #7-190 #7-192 #7-192 #7-196 #7-196 #7-209 #7-209 #7-212 #7-212
#7-228 #7-228 #7-240 #7-240 #9-321 #9-322 #9-322 #9-325 #9-325 #9-334
#9-334 #9-345 #9-345 #9-350 #9-350 #11-432 #11-433 #11-433 #11-451 #11-451
#13-538 #13-545 #13-545 #13-548 #13-548 #13-556 #13-556 #13-559 #13-559 #13-567
#13-567 #13-575 #13-575 #13-583 #13-583 #13-587 #13-587 #13-590 #13-590 #13-604
#13-604 #13-613 #13-613 #15-715 #15-716 #15-716 #15-724 #15-724 #15-727 #15-727
#15-748 #15-748 #15-748 #15-768 #15-768 #15-771 #15-771 #16-782 #16-782 #16-785
#16-785 #16-788 #16-788 #18-876 #18-878 #18-878 #18-881 #18-881 #18-892 #18-892
#18-895 #18-895 #18-900 #18-900 #18-905 #18-905
$$STSM #5-108 #7-190 #7-192 #7-192 #7-196 #7-196 #7-209 #7-209 #7-212 #7-212
#7-228 #7-228 #7-240 #7-240 #9-321 #9-322 #9-322 #9-325 #9-325 #9-334
#9-334 #9-345 #9-345 #9-350 #9-350 #11-432 #11-433 #11-433 #11-451 #11-451
#13-538 #13-545 #13-545 #13-548 #13-548 #13-556 #13-556 #13-559 #13-559 #13-567
#13-567 #13-575 #13-575 #13-583 #13-583 #13-587 #13-587 #13-590 #13-590 #13-604
#13-604 #13-613 #13-613 #15-715 #15-716 #15-716 #15-724 #15-724 #15-727 #15-727
#15-748 #15-748 #15-748 #15-768 #15-768 #15-771 #15-771 #16-782 #16-782 #16-785
#16-785 #16-788 #16-788 #18-876 #18-878 #18-878 #18-881 #18-881 #18-892 #18-892
#18-895 #18-895 #18-900 #18-900 #18-905 #18-905
$$SYS #5-108 #7-190 #9-321 #11-432 #13-538 #15-715 #18-876
TRTRIG CREATED BY MACRO ON 13-OCT-79 AT 12:58 PAGE 9
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
$$TRCE #5-108 5-108 5-112 #7-190 7-190 7-248 #9-321 9-321 9-358 #11-432
11-432 11-460 #13-538 13-538 13-622 #15-715 15-715 16-801 #18-876 18-876
18-912