Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/evevnt.list
There are no other files named evevnt.list in the archive.
EVEVNT MACRO M1110 13-OCT-79 11:36
TABLE OF CONTENTS
8- 78 EVABRT
9- 127 EVBLMS
11- 245 EVEVNT
13- 368 EVFINI
18- 720 EVHOST
20- 795 EVINIT
21- 895 EVLGCM
22- 963 EVLGMS
23- 1018 EVLINE
25- 1304 EVLINK
26- 1439 EVLMBG
28- 1533 EVPARS
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 3
1 .TITLE EVEVNT
2 .ENABL LC
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 EVENT 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 ; 1.01 18-JAN-79 ALAN D. PECKHAM
36 ; ADD EVENT LOGGING CODE
37 ; 1.02 29-JAN-79 BUREN W. HOFFMAN
38 ; MODIFIED EVENT LOGGING OF 1.01 TO ACCEPT NEW
39 ; FORMAT LOGGING MESSAGES.
40 ; 1.03 30-JAN-79 ALAN D. PECKHAM
41 ; REMOVED EVLOGT TO SEPERATE MODULE TO BECOME SRLGTM.
42 ; 1.04 1-FEB-79 ALAN D. PECKHAM
43 ; REMOVE LOGDF CALL TO MAKE LOGDB DEFINITIONS BE GLOBAL
44 ; 1.05 5-FEB-79 BUREN W. HOFFMAN
45 ; ALTERED EVLOGD TO READ NEW FORMAT LOG MESSAGE FROM $CMLOG.
46 ; 1.06 21-FEB-79 BUREN W. HOFFMAN
47 ; FIXED GLITCH IN LOG DATA COPYING.
48 ; 1.07 1-JUN-79 ALAN D. PECKHAM
49 ; REMOVED EVENT LOGGING CODE (NOW RESIDES IN SRGNDC).
50 ; ADDED EVENT LOGGING REPORT OF DLL/ULD SOFTWARE ERROR.
51 ; 1.08 17-AUG-79 ALAN D. PECKHAM
52 ; BUMP LOGGING EVENT COUNTER WHEN SENDING LOGGING MESSAGE
53 ;
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 4
55 ;
56 ; +-------------------------------------------------+
57 ; I I
58 ; I E V E N T I
59 ; I - - - - - I
60 ; I I
61 ; +-------------------------------------------------+
62 ;
63 ; FUNCTION:
64 ;
65 ; NICE PROCESS EVENT PROCESSOR
66 ;
67 ; EXTERNAL MACROS
68 ;
69 .MCALL PROC,PROCLC,EVDF,CONDF,NICDF,MOPDF
70 ;
71 ; DEFINE EXTERNAL SYMBOLS
72 ;
73 000000 EVDF ;EVENT SYMBOLS
74 000000 CONDF ;CONTROL BLOCK SYMBOLS
75 000000 NICDF ;NICE MESSAGE SYMBOLS
76 000000 MOPDF ;MOP MESSAGE SYMBOLS
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 5
EVABRT
78 .SBTTL EVABRT
79 ;
80 ;======================================================================;
81 ;++
82 ; +-------------------------------------------------+
83 ; I I
84 ; I E V A B R T I
85 ; I - - - - - - I
86 ; I I
87 ; +-------------------------------------------------+
88 ;
89 ; FUNCTION:
90 ;
91 ; EVENT PROCESSOR MODULE TO ABORT THE PROCESS
92 ;
93 ; INPUT:
94 ;
95 ; R4 - ADDRESS OF CONTEXT BLOCK
96 ; R5 - ADDRESS OF CONTROL BLOCK
97 ;
98 ; OUTPUT:
99 ;
100 ; @R4 - UPDATED CONTEXT
101 ; STATE - FINISH
102 ; @R5 - UPDATED CONTROL BLOCK
103 ; C.FUNC - ZERO
104 ;
105 ; REQUIREMENTS:
106 ;
107 ; EVENT SYMBOLS:
108 ;
109 ; FINISH - FINISH STATE VALUE
110 ; STATE - OFFSET OF STATE IN CONTEXT
111 ;
112 ; CONTROL BLOCK SYMBOLS:
113 ;
114 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
115 ;
116 ;--
117 ;======================================================================;
118 ;
119 ;
120 ; LOCAL PROCEDURE BODY
121 ;
122 000000 PROCLC EVABRT
123 000000 112764 000004 000014 MOVB #FINISH,STATE(R4) ;GO AND CLEAN IT ALL UP
124 000006 105065 000006 CLRB C.FUNC(R5) ;INDICATE INITIALIZING
125 000012 ENDPROC
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 6
EVBLMS
127 .SBTTL EVBLMS
128 ;
129 ;======================================================================;
130 ;++
131 ; +-------------------------------------------------+
132 ; I I
133 ; I E V B L M S I
134 ; I - - - - - - I
135 ; I I
136 ; +-------------------------------------------------+
137 ;
138 ; FUNCTION:
139 ;
140 ; EVENT PROCESSOR MODULE TO BUILD A NICE COMMAND MESSAGE
141 ;
142 ; INPUT:
143 ;
144 ; R4 - ADDRESS OF CONTEXT BLOCK
145 ; BOODEV - TYPE OF BOOT DEVICE
146 ; LINE - FOUR BYTE BINARY LINE ID
147 ; MEMLEN - MEMORY LENGTH OF TARGET SYSTEM FOR DUMP
148 ; REQPRO - TYPE OF REQUESTED PROGRAM
149 ; REQTYP - LINE ATTENTION REQUEST TYPE
150 ; SOFTID - SOFTWARE ID OF REQUESTED PROGRAM
151 ; R5 - ADDRESS OF CONTROL BLOCK
152 ; C.ADDR - ADDRESS OF BUFFER FOR MESSAGE
153 ;
154 ; OUTPUT:
155 ;
156 ; @R5 - UPDATED CONTROL BLOCK
157 ; @C.ADDR - NICE COMMAND MESSAGE
158 ; C.LEN - LENGTH OF MESSAGE
159 ;
160 ; REQUIREMENTS:
161 ;
162 ; NICE MESSAGE SYMBOLS:
163 ;
164 ; LI$STA - STANDARD LINE ID TYPE VALUE
165 ; N$DUMP - NICE DUMP FUNCTION CODE
166 ; N$LOAD - NICE LOAD FUNCTION CODE
167 ;
168 ; EVENT SYMBOLS:
169 ;
170 ; LOAD - LOAD REQUEST TYPE VALUE
171 ; NODLEN - MAXIMUM LENGTH OF A NODE NAME
172 ;
173 ; CONTROL BLOCK SYMBOLS:
174 ;
175 ; C.ADDR - OFFSET OF ADDRESS FIELD
176 ; C.LEN - OFFSET OF LENGTH FIELD
177 ;
178 ;--
179 ;======================================================================;
180 ;
181 ;
182 ; DEFINE READ ONLY MEMORY
183 ;
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 6-1
EVBLMS
184 ; NICE MESSAGE FUNCTION CODES
185 ;
186 000014 NICFUN:
187 ;
188 000014 000 .BYTE 0 ;FILLER FOR INDEXING
189 000015 002 .BYTE N$LOAD
190 000016 003 .BYTE N$DUMP
191 ;
192 ; NICE MESSAGE OPTIONS FOR DEFAULTED FIELDS
193 ;
194 000017 DEFOPT:
195 ;
196 000017 000 .BYTE 0 ;FILLER FOR INDEXING
197 000020 013 .BYTE 013 ;LOAD
198 000021 013 .BYTE 013 ;DUMP
199 ;
200 .EVEN
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 7
EVBLMS
202 ;
203 ; LOCAL PROCEDURE BODY
204 ;
205 000022 PROCLC EVBLMS
206 000022 116400 000046 MOVB REQTYP(R4),R0 ;GET THE REQUEST TYPE
207 000026 016502 000014 MOV C.ADDR(R5),R2 ;ADDRESS OF MESSAGE BUFFER
208 000032 116022 000014' MOVB NICFUN(R0),(R2)+ ;PUT FUNCTION CODE IN MESSAGE
209 000036 116022 000017' MOVB DEFOPT(R0),(R2)+ ;SET MESSAGE OPTION FIELD FOR DEFAULT
210 000042 010246 MOV R2,-(SP) ;STACK THE CURRENT OUTPUT ADDRESS
211 000044 005202 INC R2 ;LEAVE A SPACE
212 000046 012701 000006 MOV #NODLEN,R1 ;MAXIMUM LENGTH OF NODE NAME
213 000052 CALL LOCNOD ;PUT LOCAL NODE NAME IN AS SERVER
214 000056 110136 MOVB R1,@(SP)+ ;AND IT'S LENGTH BACK IN FRONT OF IT
215 000060 112722 000001 MOVB #LI$STA,(R2)+ ;SERVER LINE, STANDARD FORMAT
216 000064 012700 000016 MOV #LINE,R0 ;OFFSET OF LINE ID IN CONTEXT
217 000070 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
218 000072 012701 000004 MOV #4,R1 ;LENGTH OF LINE ID
219 000076 CALL MOVE ;PUT LINE ID IN AS SERVER LINE
220 000102 IF ; REQUEST TYPE = LOAD
221 000102 FALSEB NE REQTYP(R4),#LOAD
222 000112 THEN
223 000112 116422 000023 MOVB BOODEV(R4),(R2)+ ;PUT IN BOOT DEVICE TYPE
224 000116 112722 000001 MOVB #1,(R2)+ ;PUT IN CPU TYPE = PDP-11
225 000122 116422 000024 MOVB REQPRO(R4),(R2)+ ;PUT IN REQUESTED PROGRAM TYPE
226 000126 012700 000025 MOV #SOFTID,R0 ;OFFSET OF SOFTWARE ID IN CONTEXT
227 000132 060400 ADD R4,R0 ;MAKE IT A DESTINATION ADDRESS
228 000134 116401 000025 MOVB SOFTID(R4),R1 ;LENGTH OF SOFTWARE ID
229 000140 005201 INC R1 ;INCLUDE THE LENGTH BYTE
230 000142 CALL MOVE ;PUT SOFTWARE ID IN MESSAGE
231 000146 ELSE ; REQUEST TYPE IS DUMP
232 000150 105022 CLRB (R2)+ ;SET 4 BYTE START ADDRESS TO ZERO
233 000152 105022 CLRB (R2)+
234 000154 105022 CLRB (R2)+
235 000156 105022 CLRB (R2)+
236 000160 012700 000004 MOV #MEMLEN,R0 ;OFFSET OF MEMORY LENGTH IN CONTEXT
237 000164 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
238 000166 012701 000004 MOV #4,R1 ;LENGTH OF MEMORY ADDRESS
239 000172 CALL MOVE ;PUT MEMORY ADDRESS IN MESSAGE
240 000176 ENDIF
241 000176 166502 000014 SUB C.ADDR(R5),R2 ;COMPUTE LENGTH OF MESSAGE
242 000202 010265 000012 MOV R2,C.LEN(R5) ;PUT IT IN CONTROL BLOCK
243 000206 ENDPROC
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 8
EVEVNT
245 .SBTTL EVEVNT
246 ;
247 ;======================================================================;
248 ;++
249 ; +-------------------------------------------------+
250 ; I I
251 ; I E V E V N T I
252 ; I - - - - - - I
253 ; I I
254 ; +-------------------------------------------------+
255 ;
256 ; FUNCTION:
257 ;
258 ; EVENT PROCESSOR MAINLINE MODULE
259 ;
260 ; INPUT:
261 ;
262 ; R5 - ADDRESS OF CONTROL BLOCK
263 ; C.CTXT - ON INITIAL OR FINAL ENTRY, ZERO; OTHERWISE, ADDRESS
264 ; OF CONTEXT BLOCK
265 ; @C.CTXT(R5) - CONTEXT BLOCK
266 ; STATE - PROCESSING STATE
267 ; OTHER FIELDS - AS DESCRIBED FOR SUB-MODULES
268 ; C.FUNC - FUNCTION JUST PERFORMED
269 ; OTHER FIELDS - AS DESCRIBED FOR SUB-MODULES
270 ;
271 ; OUTPUT:
272 ;
273 ; C-BIT - CLEAR
274 ; @R5 - UPDATED CONTROL BLOCK
275 ; C.CTXT - CONTEXT VALUE
276 ; @C.CTXT - UPDATED CONTEXT BLOCK AS SPECIFIED FOR SUB-MODULES
277 ; C.FUNC - FUNCTION TO PERFORM
278 ; C.LKNM - ON FINAL RETURN, ZERO
279 ; C.PROC - ON FINAL RETURN, GET COMMAND PROCESSOR NUMBER
280 ; OTHER FIELDS - AS DESCRIBED FOR SUB-MODULES
281 ;
282 ; REQUIREMENTS:
283 ;
284 ; EVENT SYMBOLS:
285 ;
286 ; FINISH - FINISH STATE VALUE
287 ; LINPRO - LINE PROCESSING STATE VALUE
288 ; LNKPRO - LINK PROCESSING STATE VALUE
289 ; STATE - OFFSET OF STATE IN CONTEXT BLOCK
290 ;
291 ; PROCESSOR SYMBOLS:
292 ;
293 ; P$GTCM - GET COMMAND PROCESSOR NUMBER
294 ;
295 ; CONTROL BLOCK SYMBOLS:
296 ;
297 ; C.CTXT - OFFSET OF CONTEXT FIELD
298 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
299 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
300 ; C.PROC - OFFSET OF PROCESSOR NUMBER FIELD
301 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 8-1
EVEVNT
302 ; C$PROC - PROCESS FUNCTION CODE
303 ;
304 ;--
305 ;======================================================================;
306 ;
307 ;
308 ; EXTERNAL MACROS
309 ;
310 .MCALL PRDF
311 ;
312 ; DEFINE EXTERNAL SYMBOLS
313 ;
314 000210 PRDF ;PROCESSOR SYMBOLS
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 9
EVEVNT
316 ;
317 ; PROCEDURE BODY
318 ;
319 000210 PROC EVEVNT
320 000210 016504 000004 MOV C.CTXT(R5),R4 ;GET CONTEXT POINTER
321 000214 IF ; CONTEXT POINTER = 0 OR STATE = 0
322 000214 TRUE CLEAR R4
323 000220 FALSEB SET STATE(R4)
324 000226 THEN
325 000226 IF ; FUNCTION CODE <> RELEASE MEMORY BUFFER
326 000226 FALSEB EQ C.FUNC(R5),#C$RLBF
327 000236 THEN
328 000236 CALL EVINIT ;INITIALIZE
329 000242 ELSE ; MUST HAVE JUST RELEASED CONTEXT, ALL DONE!
330 000244 IF ; EVENT LOGGING MESSAGE AVAILABLE ;AP0007
331 000244 016565 000024 000014 MOV C.SAVE+2(R5),C.ADDR(R5) ;AP0007
332 000252 FALSE CLEAR ;AP0007
333 000254 THEN ;AP0007
334 000254 005267 000000G INC LOGCN ;COUNT THIS MESSAGE IN ;AP0008
335 000260 016565 000022 000012 MOV C.SAVE(R5),C.LEN(R5) ;SET LENGTH AND ;AP0007
336 000266 112765 000020 000007 MOVB #P$LOGD,C.PROC(R5) ;PASS IT TO THE EVENT LOGGER. ;AP0007
337 000274 ELSE ;AP0007
338 000276 112765 000001 000007 MOVB #P$GTCM,C.PROC(R5) ;PASS IT BACK TO WHENCE IT CAME. ;AP0007
339 000304 012765 177777 000004 MOV #-1,C.CTXT(R5) ;SIGNAL COMPLETE ;AP0007
340 000312 ENDIF ;AP0007
341 000312 112765 000200 000006 MOVB #C$PROC,C.FUNC(R5) ;FIX UP FUNCTION CODE ;**-1
342 000320 005065 000020 CLR C.LKNM(R5) ;NO LINK FOR THIS ONE ;**-1
343 000324 005004 CLR R4 ;MAKE SURE NOBODY ELSE IN HERE RUNS
344 000326 ENDIF
345 000326 ENDIF
346 000326 IF ; CONTEXT POINTER <> 0
347 000326 FALSE CLEAR R4
348 000332 THEN
349 000332 IF ; STATE = LINE PROCESSING
350 000332 FALSEB NE STATE(R4),#LINPRO
351 000342 THEN
352 000342 CALL EVLINE ;PROCESS LINE
353 000346 ENDIF
354 000346 IF ; STATE = LINK PROCESSING
355 000346 FALSEB NE STATE(R4),#LNKPRO
356 000356 THEN
357 000356 CALL EVLINK ;PROCESS LINK
358 000362 ENDIF
359 000362 IF ; STATE = FINISH UP
360 000362 FALSEB NE STATE(R4),#FINISH
361 000372 THEN
362 000372 CALL EVFINI ;CLEAN UP
363 000376 ENDIF
364 000376 ENDIF
365 000376 000241 CLC ;FOLLOWING THE RULES...
366 000400 ENDPROC
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 10
EVFINI
368 .SBTTL EVFINI
369 ;
370 ;======================================================================;
371 ;++
372 ; +-------------------------------------------------+
373 ; I I
374 ; I E V F I N I I
375 ; I - - - - - - I
376 ; I I
377 ; +-------------------------------------------------+
378 ;
379 ; FUNCTION:
380 ;
381 ; EVENT PROCESSOR MODULE TO FINISH UP THE PROCESS
382 ;
383 ; INPUT:
384 ;
385 ; R4 - ADDRESS OF CONTEXT BLOCK
386 ; CMLKNM - LINK NUMBER OF COMMAND LINK
387 ; ERRCOD - ERROR CODE FOR FAILURES
388 ; ERRFUN - FUNCTION ON WHICH ERROR ENCOUNTERED
389 ; >=0 SERVICE ERROR
390 ; <0 NICE RESPONSE ERROR
391 ; FLAGS - PROCESS CLEANUP FLAGS
392 ; LINE - FOUR BYTE BINARY LINE ID
393 ; MESBUF - ADDRESS OF MESSAGE BUFFER
394 ; R5 - ADDRESS OF CONTROL BLOCK
395 ; C.ADDR - AFTER CLOSE LINK COMPLETION AND BEFORE MESSAGE BUFFER
396 ; RELEASE, MESSAGE BUFFER ADDRESS
397 ; C.CTXT - ON FINAL RETURN, ZERO
398 ; C.FUNC - FUNCTION JUST COMPLETED
399 ; OTHER FIELDS AS REQUIRED BY MODULE EVLGCM
400 ;
401 ; OUTPUT:
402 ;
403 ; R5 - UPDATED CONTROL BLOCK
404 ; C.ADDR - ADDRESS OF MESSAGE BUFFER
405 ; C.FUNC - FUNCTION TO PERFORM
406 ; C.LKNM - LINK TO CLOSE
407 ; C.TYPE - TYPE OF SET TO PERFORM
408 ; OTHER FIELDS AS SET BY MODULES EVLMBG AND EVLGMS
409 ;
410 ; REQUIREMENTS:
411 ;
412 ; NICE MESSAGE SYMBOLS:
413 ;
414 ; ST$ON - STATE VALUE FOR LINE ON
415 ;
416 ; EVENT SYMBOLS:
417 ;
418 ; CMLKNM - OFFSET OF COMMAND LINK NUMBER IN CONTEXT
419 ; ERRCOD - OFFSET OF ERROR CODE IN CONTEXT
420 ; ERRFUN - OFFSET OF FAILING FUNCTION IN CONTEXT
421 ; FINMES - FLAG MASK FOR FINISH MESSAGE WANTED
422 ; FLAGS - OFFSET OF CLEANUP FLAGS IN CONTEXT
423 ; LINE - OFFSET OF LINE ID IN CONTEXT
424 ; LINSWI - FLAG MASK FOR LINE STATE SWITCHED
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 10-1
EVFINI
425 ; MESBUF - OFFSET OF MESSAGE BUFFER ADDRESS IN CONTEXT
426 ;
427 ; CONTROL BLOCK SYMBOLS:
428 ;
429 ; C.ADDR - OFFSET OF ADDRESS FIELD
430 ; C.CTXT - OFFSET OF CONTEXT FIELD
431 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
432 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
433 ; C.TYPE - OFFSET OF TYPE FIELD
434 ; CE$FAI - FAILURE RETURN CODE
435 ; C$CLCL - CLOSE COMMAND OUTPUT MEDIUM FOR LOGGING FUNCTION CODE
436 ; C$CLLK - CLOSE LINK FUNCTION CODE
437 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
438 ; C$STPR - SET PARAMETER FUNCTION CODE
439 ; SP$LST - SET LINE STATE TYPE CODE
440 ;
441 ;--
442 ;======================================================================;
443 ;
444 ; EXTERNAL MACROS
445 ;
446 .MCALL SAVSTK,RESSTK,EVLDF$ ;AP0007
447 ; ;AP0007
448 ; DEFINE EXTERNAL SYMBOLS ;AP0007
449 ; ;AP0007
450 000402 EVLDF$ ;EVENT LOGGING SYMBOLS ;AP0007
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 11
EVFINI
452 ;
453 ; DEFINE LOCAL READ ONLY MEMORY
454 ;
455 ; NICE RESPONSE MESSAGE ERROR MESSAGES, BYTE ALIGNED
456 ;
457 000000 .PSECT BYTE,D ;AP0001
458 000000 151 156 166 FUNMSG: .ASCIZ /invalid function or option/
000003 141 154 151
000006 144 040 146
000011 165 156 143
000014 164 151 157
000017 156 040 157
000022 162 040 157
000025 160 164 151
000030 157 156 000
459 000033 151 156 166 FORMSG: .ASCIZ /invalid message format/
000036 141 154 151
000041 144 040 155
000044 145 163 163
000047 141 147 145
000052 040 146 157
000055 162 155 141
000060 164 000
460 000062 151 156 163 STAMSG: .ASCIZ /insufficient status/
000065 165 146 146
000070 151 143 151
000073 145 156 164
000076 040 163 164
000101 141 164 165
000104 163 000
461 000106 155 145 163 ORDMSG: .ASCIZ /message ordering error/
000111 163 141 147
000114 145 040 157
000117 162 144 145
000122 162 151 156
000125 147 040 145
000130 162 162 157
000133 162 000
462 000135 151 156 166 LIDMSG: .ASCIZ /invalid line id/
000140 141 154 151
000143 144 040 154
000146 151 156 145
000151 040 151 144
000154 000
463 000155 154 151 156 LSTMSG: .ASCIZ /line in wrong state/
000160 145 040 151
000163 156 040 167
000166 162 157 156
000171 147 040 163
000174 164 141 164
000177 145 000
464 000201 154 151 156 LCOMSG: .ASCIZ /line communication error/
000204 145 040 143
000207 157 155 155
000212 165 156 151
000215 143 141 164
000220 151 157 156
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 11-1
EVFINI
000223 040 145 162
000226 162 157 162
000231 000
465 000232 151 156 166 NODMSG: .ASCIZ /invalid node id/
000235 141 154 151
000240 144 040 156
000243 157 144 145
000246 040 151 144
000251 000
466 000252 151 156 166 SERMSG: .ASCIZ /invalid server id/
000255 141 154 151
000260 144 040 163
000263 145 162 166
000266 145 162 040
000271 151 144 000
467 000274 151 156 166 FILMSG: .ASCIZ /invalid file/
000277 141 154 151
000302 144 040 146
000305 151 154 145
000310 000
468 000311 143 157 156 CONMSG: .ASCIZ /configuration data base error/
000314 146 151 147
000317 165 162 141
000322 164 151 157
000325 156 040 144
000330 141 164 141
000333 040 142 141
000336 163 145 040
000341 145 162 162
000344 157 162 000
469 000347 162 145 163 RESMSG: .ASCIZ /resource error/
000352 157 165 162
000355 143 145 040
000360 145 162 162
000363 157 162 000
470 000366 151 156 166 PARMSG: .ASCIZ /invalid parameter error/
000371 141 154 151
000374 144 040 160
000377 141 162 141
000402 155 145 164
000405 145 162 040
000410 145 162 162
000413 157 162 000
471 000416 154 151 156 LPRMSG: .ASCIZ /line protocol error/
000421 145 040 160
000424 162 157 164
000427 157 143 157
000432 154 040 145
000435 162 162 157
000440 162 000
472 000442 146 151 154 FIOMSG: .ASCIZ 'file I/O error'
000445 145 040 111
000450 057 117 040
000453 145 162 162
000456 157 162 000
473 000461 156 145 164 NCOMSG: .ASCIZ /network communication error/
000464 167 157 162
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 11-2
EVFINI
000467 153 040 143
000472 157 155 155
000475 165 156 151
000500 143 141 164
000503 151 157 156
000506 040 145 162
000511 162 157 162
000514 000
474 000515 156 157 040 NORMSG: .ASCIZ /no room for new entry/
000520 162 157 157
000523 155 040 146
000526 157 162 040
000531 156 145 167
000534 040 145 156
000537 164 162 171
000542 000
475 000543 162 145 155 NICMSG: .ASCIZ /remote NICE process not available/
000546 157 164 145
000551 040 116 111
000554 103 105 040
000557 160 162 157
000562 143 145 163
000565 163 040 156
000570 157 164 040
000573 141 166 141
000576 151 154 141
000601 142 154 145
000604 000
476 000605 165 156 162 RDFMSG: .ASCIZ /unrecognized error from NICE process/
000610 145 143 157
000613 147 156 151
000616 172 145 144
000621 040 145 162
000624 162 157 162
000627 040 146 162
000632 157 155 040
000635 116 111 103
000640 105 040 160
000643 162 157 143
000646 145 163 163
000651 000
477 ;
478 000402 .PSECT ;AP0001
479 ; ;**-1
480 ; NICE RESPONSE ERROR MESSAGE LOOKUP TABLE, WORD ALIGNED
481 ;
482 000402 RMBLCK:
483 000402 177777 000000' .WORD NE$FUN,FUNMSG
484 000406 177776 000033' .WORD NE$FOR,FORMSG
485 000412 177775 000062' .WORD NE$STA,STAMSG
486 000416 177774 000106' .WORD NE$ORD,ORDMSG
487 000422 177770 000135' .WORD NE$LID,LIDMSG
488 000426 177767 000155' .WORD NE$LST,LSTMSG
489 000432 177766 000201' .WORD NE$LCO,LCOMSG
490 000436 177765 000232' .WORD NE$NOD,NODMSG
491 000442 177764 000252' .WORD NE$SER,SERMSG
492 000446 177763 000274' .WORD NE$FIL,FILMSG
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 11-3
EVFINI
493 000452 177762 000311' .WORD NE$CON,CONMSG
494 000456 177761 000347' .WORD NE$RES,RESMSG
495 000462 177760 000366' .WORD NE$PAR,PARMSG
496 000466 177757 000416' .WORD NE$LPR,LPRMSG
497 000472 177756 000442' .WORD NE$FIO,FIOMSG
498 000476 177755 000461' .WORD NE$NCO,NCOMSG
499 000502 177754 000515' .WORD NE$NOR,NORMSG
500 000506 177753 000543' .WORD NE$NIC,NICMSG
501 000512 000605' RMBEND: .WORD RDFMSG ;DEFAULT MESSAGE ADDRESS
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 12
EVFINI
503 ;
504 ; SERVICE ERROR MESSAGES, BYTE ALIGNED
505 ;
506 000652 .PSECT BYTE,D ;AP0001
507 000652 116 111 103 REJMSG: .ASCIZ /NICE process too busy/
000655 105 040 160
000660 162 157 143
000663 145 163 163
000666 040 164 157
000671 157 040 142
000674 165 163 171
000677 000
508 000700 151 156 166 HOSMSG: .ASCIZ /invalid host node name/
000703 141 154 151
000706 144 040 150
000711 157 163 164
000714 040 156 157
000717 144 145 040
000722 156 141 155
000725 145 000
509 000727 144 151 162 DLCMSG: .ASCIZ /direct line access failure/
000732 145 143 164
000735 040 154 151
000740 156 145 040
000743 141 143 143
000746 145 163 163
000751 040 146 141
000754 151 154 165
000757 162 145 000
510 000762 162 145 143 TMOMSG: .ASCIZ /receive time-out/
000765 145 151 166
000770 145 040 164
000773 151 155 145
000776 055 157 165
001001 164 000
511 001003 150 157 163 OBJMSG: .ASCIZ /host NICE process not available/
001006 164 040 116
001011 111 103 105
001014 040 160 162
001017 157 143 145
001022 163 163 040
001025 156 157 164
001030 040 141 166
001033 141 151 154
001036 141 142 154
001041 145 000
512 001043 165 156 162 SDFMSG: .ASCIZ /unrecognized service error/
001046 145 143 157
001051 147 156 151
001054 172 145 144
001057 040 163 145
001062 162 166 151
001065 143 145 040
001070 145 162 162
001073 157 162 000
513 000514 .PSECT ;AP0001
514 ; ;**-1
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 12-1
EVFINI
515 ; SERVICE ERROR MESSAGE LOOKUP TABLE, WORD ALIGNED
516 ;
517 000514 177772 000652' SMBLK1: .WORD CE$REJ,REJMSG
518 000520 177773 000461' .WORD CE$NWE,NCOMSG
519 000524 177771 000461' .WORD CE$DIS,NCOMSG
520 000530 177765 000700' .WORD CE$NOD,HOSMSG
521 000534 177766 000135' .WORD CE$LID,LIDMSG
522 000540 177762 000762' .WORD CE$TMO,TMOMSG
523 000544 177750 001003' .WORD CE$OBJ,OBJMSG
524 000550 001043' SMB1EN: .WORD SDFMSG ;DEFAULT MESSAGE ADDRESS
525 ;
526 000552 000051 000461' SMBLK2: .WORD C$OPLK,NCOMSG
527 000556 000054 000461' .WORD C$RCMS,NCOMSG
528 000562 000053 000461' .WORD C$TRMS,NCOMSG
529 000566 000037 000727' .WORD C$STPR,DLCMSG
530 000572 000045 000727' .WORD C$OPLN,DLCMSG
531 000576 000005 000727' .WORD C$CLLN,DLCMSG
532 000602 000047 000201' .WORD C$RCBK,LCOMSG
533 000606 000046 000201' .WORD C$TRBK,LCOMSG
534 000612 001043' SMB2EN: .WORD SDFMSG ;DEFAULT MESSAGE ADDRESS
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 13
EVFINI
536 ;
537 ; COMPLETION MESSAGES
538 ;
539 001076 .PSECT BYTE,D ;AP0001
540 001076 143 157 155 COMMSG: .ASCII /complete/
001101 160 154 145
001104 164 145
541 000010 COMLEN = .-COMMSG
542 ;
543 001106 146 141 151 FAIMSG: .ASCII /failed, /
001111 154 145 144
001114 054 040
544 000010 FAILEN = .-FAIMSG
545 ; ;AP0007
546 ; NICE EVENT LOGGING COMPONENT NAME ;AP0007
547 ; ;AP0007
548 001116 006 116 111 NICE: .ASCII <6>/NICE../ ;AP0007
001121 103 105 056
001124 056
549 000007 NICELN = .-NICE ;AP0007
550 ;
551 000614 .PSECT ;AP0001
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 14
EVFINI
553 ;
554 ; LOCAL PROCEDURE BODY
555 ;
556 000614 PROCLC EVFINI
557 000614 IF ; FUNCTION CODE = 0
558 000614 FALSEB SET C.FUNC(R5)
559 000622 THEN
560 000622 IF ; LINK OPEN
561 000622 FALSE CLEAR CMLKNM(R4)
562 000630 THEN
563 000630 016465 000000 000020 MOV CMLKNM(R4),C.LKNM(R5) ;PUT LINK NUMBER IN CONTROL BLOCK
564 000636 112765 177726 000006 MOVB #-C$CLLK,C.FUNC(R5) ;SET FUNCTION CODE TO CLOSE LINK
565 000644 ELSE
566 000646 112765 000052 000006 MOVB #C$CLLK,C.FUNC(R5) ;PRETEND LINK JUST CLOSED
567 000654 ENDIF
568 000654 ENDIF
569 000654 IF ; FUNCTION CODE = CLOSE LINK
570 000654 FALSEB NE C.FUNC(R5),#C$CLLK
571 000664 THEN
572 000664 016465 000002 000014 MOV MESBUF(R4),C.ADDR(R5) ;MAKE SURE BUFFER ADDRESS IN CONTROL BLOCK
573 000672 IF ; LINE STATE SWITCHED
574 000672 FALSEB CLEAR #LINSWI,FLAGS(R4)
575 000702 THEN
576 000702 012700 000016 MOV #LINE,R0 ;OFFSET OF LINE ID IN CONTEXT
577 000706 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
578 000710 012701 000004 MOV #4,R1 ;LENGTH OF LINE ID
579 000714 016502 000014 MOV C.ADDR(R5),R2 ;DESTINATION ADDRESS
580 000720 CALL MOVE ;MOVE LINE ID TO BUFFER
581 000724 112722 000000 MOVB #ST$ON,(R2)+ ;SET STATE TO ON
582 000730 112765 000001 000016 MOVB #SP$LST,C.TYPE(R5) ;OPERATION TYPE IS SET LINE STATE
583 000736 112765 177741 000006 MOVB #-C$STPR,C.FUNC(R5) ;SET FUNCTION CODE TO SET PARAMETER
584 000744 ELSE
585 000746 112765 000037 000006 MOVB #C$STPR,C.FUNC(R5) ;PRETEND PARAMETER JUST SET
586 000754 ENDIF
587 000754 ENDIF
588 000754 IF ; FUNCTION CODE = SET PARAMETER
589 000754 FALSEB NE C.FUNC(R5),#C$STPR
590 000764 THEN
591 000764 IF ; FINISH MESSAGE WANTED
592 000764 FALSEB CLEAR #FINMES,FLAGS(R4)
593 000774 THEN
594 000774 CALL EVLMBG ;BUILD BEGINNING OF MESSAGE
595 001000 IF ; SUCCESSFUL OPERATION
596 001000 FALSEB LT ERRCOD(R4)
597 001006 THEN
598 001006 012700 001076' MOV #COMMSG,R0 ;ADDRESS OF COMPLETE MESSAGE
599 001012 012701 000010 MOV #COMLEN,R1 ;LENGTH OF COMPLETE MESSAGE
600 001016 ELSE
601 001020 012700 001106' MOV #FAIMSG,R0 ;ADDRESS OF FAILED MESSAGE
602 001024 012701 000010 MOV #FAILEN,R1 ;LENGTH OF FAILED MESSAGE
603 001030 CALL MOVE ;PUT FAILED ON END OF MESSAGE
604 001034 SAVSTK <R2> ;SAVE POINTER TO NEXT MESSAGE BYTE
605 001036 116400 000050 MOVB ERRCOD(R4),R0 ;GET ERROR CODE ;AP0007
606 001042 116401 000047 MOVB ERRFUN(R4),R1 ;AND SERVICE FUNCTION WHICH FAILED ;AP0007
607 001046 IF ; NICE ERROR CODE ;**-1
608 001046 FALSE GE
609 001050 THEN
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 14-1
EVFINI
610 001050 012701 000402' MOV #RMBLCK,R1 ;ADDRESS OF TABLE BEGINNING FOR NICE
611 001054 012702 000512' MOV #RMBEND,R2 ;ADDRESS OF TABLE END
612 001060 ELSE ; SERVICE ERROR
613 001062 IF ; GENERAL FAILURE
614 001062 FALSEB NE ERRCOD(R4),#CE$FAI
615 001072 THEN
616 001072 110100 MOVB R1,R0 ;USE SERVICE FUNCTION CODE AS ERROR CODE ;AP0007
617 001074 012701 000552' MOV #SMBLK2,R1 ;ADDRESS OF TABLE BEGINNING FOR GENERAL ERROR ;**-1
618 001100 012702 000612' MOV #SMB2EN,R2 ;ADDRESS OF END
619 001104 ELSE
620 001106 012701 000514' MOV #SMBLK1,R1 ;ADDRESS OF TABLE BEGINNING FOR SPECIFIC ERROR
621 001112 012702 000550' MOV #SMB1EN,R2 ;ADDRESS OF END
622 001116 ENDIF
623 001116 ENDIF
624 001116 CALL MATCH ;FIND THE CORRESPONDING MESSAGE ;**-1
625 001122 IF ; NO MATCH
626 001122 FALSE CC
627 001124 THEN
628 001124 011200 MOV (R2),R0 ;USE DEFAULT ERROR MESSAGE FOR TYPE
629 001126 ENDIF
630 001126 005001 CLR R1 ;INITIALIZE MESSAGE LENGTH TO 0
631 001130 010002 MOV R0,R2 ;COPY MESSAGE ADDRESS
632 001132 WHILE ; NOT END OF STRING
633 001132 FALSEB CLEAR (R2)+
634 001136 DO
635 001136 005201 INC R1 ;INCREMENT MESSAGE LENGTH
636 001140 ENDWHILE
637 001142 RESSTK <R2> ;RESTORE ADDRESS OF NEXT MESSAGE BYTE
638 001144 ENDIF
639 001144 CALL MOVE ;PUT ON END OF MESSAGE
640 001150 CALL EVLGMS ;LOG THE MESSAGE
641 001154 ELSE
642 001156 112765 000067 000006 MOVB #C$CLCL,C.FUNC(R5) ;PRETEND LOGGING MESSAGE COMPLETE
643 001164 ENDIF
644 001164 ENDIF
645 001164 CALL EVLGCM ;CHECK LOGGING COMPLETION
646 001170 IF ; COMPLETE
647 001170 FALSE CS
648 001172 THEN
649 001172 IF ; MESSAGE BUFFER ALLOCATED
650 001172 016502 000014 MOV C.ADDR(R5),R2 ;AP0007
651 001176 010265 000024 MOV R2,C.SAVE+2(R5) ;AP0007
652 001202 FALSE CLEAR ;AP0007
653 001204 THEN ;**-1
654 001204 SAVSTK R3 ;AP0007
655 001206 012703 000000G MOV #LOGDB,R3 ;FIND OUR LOG DATA BASE ;AP0007
656 001212 WHILE ; MORE ENTRIES TO CHECK & OUR ENTRY NOT FOUND ;AP0007
657 001212 FALSE LOS #LOGDBE,R3 ;AP0007
658 001220 FALSEB EQ #LG.MNT,(R3) ;AP0007
659 001226 DO ;AP0007
660 001226 062703 000000G ADD #L.GLEN,R3 ;STEP TO NEXT ENTRY ;AP0007
661 001232 ENDWHILE ;AP0007
662 001234 IF ; ENTRY FOUND AND ERROR MESSAGE CONSTRUCTED ;AP0007
663 001234 FALSE LOS #LOGDBE,R3 ;AP0007
664 001242 FALSEB CLEAR #FINMES,FLAGS(R4) ;AP0007
665 001252 FALSEB GT ERRCOD(R4) ;AP0007
666 001260 THEN ;AP0007
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 14-2
EVFINI
667 001260 010201 MOV R2,R1 ;MAKE ROOM AT BEGINNING OF BUFFER ;AP0007
668 001262 066501 000022 ADD C.SAVE(R5),R1 ;BY SHIFTING TEXT ;AP0007
669 001266 010100 MOV R1,R0 ;UP BY ;AP0007
670 001270 062700 000036 ADD #30.,R0 ;THIRTY CHARACTERS. ;AP0007
671 001274 WHILE ; MORE MESSAGE TO MOVE UP ;AP0007
672 001274 FALSE EQ R1,R2 ;AP0007
673 001300 DO ;AP0007
674 001300 114140 MOVB -(R1),-(R0) ;COPY CHARACTERS. ;AP0007
675 001302 ENDWHILE ;AP0007
676 001304 112722 000001 MOVB #N$LOGD,(R2)+ ;SET EVENT LOGGING DATA CODE ;AP0007
677 001310 111322 MOVB (R3),(R2)+ ;LOGGING OPTION CODE ;AP0007
678 001312 010246 MOV R2,-(SP) ;SAVE CURRENT POSITION ;AP0007
679 001314 105022 CLRB (R2)+ ;AND MAKE ROOM FOR LENGTH. ;AP0007
680 001316 012701 000006 MOV #6,R1 ;MAXIMUM NODE NAME LENGTH ;AP0007
681 001322 CALL LOCNOD ;MOVE LOCAL NODE NAME IN. ;AP0007
682 001326 110136 MOVB R1,@(SP)+ ;STORE THE NODE NAME LENGTH. ;AP0007
683 001330 012701 000007 MOV #NICELN,R1 ;LENGTH AND ;AP0007
684 001334 012700 001116' MOV #NICE,R0 ;ADDRESS OF COMPONENT ;AP0007
685 001340 CALL MOVE ;COPY IT IN. ;AP0007
686 001344 116322 000000G MOVB L.GSEQ(R3),(R2)+ ;STORE THE SEQUENCE NUMBER ;AP0007
687 001350 105263 000000G INCB L.GSEQ(R3) ;AND BUMP IT BY ONE. ;AP0007
688 001354 112722 000004 MOVB #E$TSFT,(R2)+ ;SET SOFTWARE ERROR ;AP0007
689 001360 105022 CLRB (R2)+ ;IN TWO BYTE FIELD. ;AP0007
690 001362 005000 CLR R0 ;NO RESOLUTION BLOCK ;AP0007
691 001364 CALL SRLGTM ;SET TIME/DATE OR UPTIME. ;AP0007
692 001370 016501 000022 MOV C.SAVE(R5),R1 ;GET LENGTH ;AP0007
693 001374 016500 000014 MOV C.ADDR(R5),R0 ;AND ADDRESS ;AP0007
694 001400 062700 000036 ADD #30.,R0 ;OF TEXT. ;AP0007
695 001404 112722 000016 MOVB #E$DTXT,(R2)+ ;SET TEXT DATA FIELD ;AP0007
696 001410 110122 MOVB R1,(R2)+ ;LENGTH OF I-TYPE FIELD ;AP0007
697 001412 CALL MOVE ;AND COPY IT BACK DOWN. ;AP0007
698 001416 166502 000024 SUB C.SAVE+2(R5),R2 ;COMPUTE ;AP0007
699 001422 010265 000022 MOV R2,C.SAVE(R5) ;AND SAVE THE LENGTH. ;AP0007
700 001426 112765 000001 000006 MOVB #C$RLBF,C.FUNC(R5) ;FAKE A BUFFER RELEASE ;AP0007
701 001434 ELSE ;AP0007
702 001436 005065 000024 CLR C.SAVE+2(R5) ;INDICATE NO LOG MESSAGE ;AP0007
703 001442 112765 177777 000006 MOVB #-C$RLBF,C.FUNC(R5) ;RETURN THE BUFFER. ;AP0007
704 001450 ENDIF ;AP0007
705 001450 RESSTK R3 ;AP0007
706 001452 ELSE ;**-1
707 001454 112765 000001 000006 MOVB #C$RLBF,C.FUNC(R5) ;PRETEND BUFFER JUST RELEASED
708 001462 ENDIF
709 001462 ENDIF
710 001462 IF ; FUNCTION CODE = RELEASE BUFFER
711 001462 FALSEB NE C.FUNC(R5),#C$RLBF
712 001472 THEN
713 001472 005065 000004 CLR C.CTXT(R5) ;CLEAN UP CONTEXT POINTER
714 001476 010465 000014 MOV R4,C.ADDR(R5) ;PUT CONTEXT ADDRESS IN CONTROL BLOCK
715 001502 105465 000006 NEGB C.FUNC(R5) ;RELEASE CONTEXT
716 001506 ENDIF
717 001506 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
718 001512 ENDPROC
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 15
EVHOST
720 .SBTTL EVHOST
721 ;
722 ;======================================================================;
723 ;++
724 ; +-------------------------------------------------+
725 ; I I
726 ; I E V H O S T I
727 ; I - - - - - - I
728 ; I I
729 ; +-------------------------------------------------+
730 ;
731 ; FUNCTION:
732 ;
733 ; EVENT PROCESSOR MODULE TO DETERMINE THE HOST FOR A LINE
734 ;
735 ; INPUT:
736 ;
737 ; R4 - ADDRESS OF CONTEXT BLOCK
738 ; LINE - FOUR BYTE BINARY LINE ID
739 ;
740 ; OUTPUT:
741 ;
742 ; R0 - ADDRESS OF HOST NODE NAME IMAGE
743 ;
744 ; REQUIREMENTS:
745 ;
746 ; INPUT VIA HOST DATABASE:
747 ;
748 ; HOSDB - GLOBAL SYMBOL FOR BEGINNING OF DATABASE
749 ; HOSDBE - GLOBAL SYMBOLS FOR END OF DATABASE
750 ;
751 ; HOST DATABASE SYMBOLS:
752 ;
753 ; ENTLEN - LENGTH OF LINE TABLE ENTRY
754 ; TABBEG - OFFSET OF LINE TABLE BEGINNING FROM DATABASE BEGINNING
755 ;
756 ; EVENT SYMBOLS:
757 ;
758 ; LINE - OFFSET OF LINE ID IN CONTEXT
759 ;
760 ;--
761 ;======================================================================;
762 ;
763 ;
764 ; EXTERNAL MACROS
765 ;
766 .MCALL HOSDF
767 ;
768 ; DEFINE EXTERNAL SYMBOLS
769 ;
770 001514 HOSDF ;HOST DATABASE SYMBOLS
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 16
EVHOST
772 ;
773 ; LOCAL PROCEDURE BODY
774 ;
775 001514 PROCLC EVHOST
776 001514 012700 000007G MOV #HOSDB+TABBEG,R0 ;ADDRESS OF LINE HOST TABLE
777 001520 WHILE ; CURRENT ADDRESS < END AND LINE <> TABLE
778 001520 FALSE HIS R0,#HOSDBE
779 001526 TRUEB NE LINE(R4),(R0)
780 001534 TRUEB NE LINE+1(R4),1(R0)
781 001544 TRUEB NE LINE+2(R4),2(R0)
782 001554 FALSEB EQ LINE+3(R4),3(R0)
783 001564 DO
784 001564 062700 000013 ADD #ENTLEN,R0 ;MOVE TO NEXT ENTRY
785 001570 ENDWHILE
786 001572 IF ; ENTRY ADDRESS WITHIN TABLE
787 001572 FALSE HIS R0,#HOSDBE
788 001600 THEN
789 001600 062700 000004 ADD #4,R0 ;POINT TO HOST NODE NAME FOR LINE
790 001604 ELSE
791 001606 012700 000000G MOV #HOSDB,R0 ;POINT TO DEFAULT HOST
792 001612 ENDIF
793 001612 ENDPROC
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 17
EVINIT
795 .SBTTL EVINIT
796 ;
797 ;======================================================================;
798 ;++
799 ; +-------------------------------------------------+
800 ; I I
801 ; I E V I N I T I
802 ; I - - - - - - I
803 ; I I
804 ; +-------------------------------------------------+
805 ;
806 ; FUNCTION:
807 ;
808 ; EVENT PROCESSOR MODULE TO INITIALZE THE PROCESS
809 ;
810 ; INPUT:
811 ;
812 ; R4 - ADDRESS OF CONTEXT BLOCK, ZERO IF NOT YET ALLOCATED
813 ; R5 - ADDRESS OF CONTROL BLOCK
814 ; C.ADDR - ON ALLOCATE BUFFER COMPLETION, ADDRESS OF BUFFER
815 ; C.FUNC - FUNCTION JUST PERFORMED
816 ; C.LINE - LINE ON WHICH EVENT OCCURED
817 ; C.MODE - MODE OF LINE ATTENTION
818 ;
819 ; OUTPUT:
820 ;
821 ; R4 - ADDRESS OF CONTEXT BLOCK WHEN ALLOCATED
822 ; LINE - FOUR BYTE BINARY LINE ID
823 ; MESBUF - ADDRESS OF MESSAGE BUFFER
824 ; MODE - LINE ATTENTION MODE
825 ; STATE - NEXT PROCESSING STATE
826 ; @R5 - UPDATED CONTROL BLOCK
827 ; C.CTXT - ADDRESS OF CONTEXT BLOCK
828 ; C.FUNC - FUNCTION TO PERFORM
829 ; C.LEN - LENGTH OF BUFFER TO ALLOCATE
830 ; C.SAVE - SAVED FIELDS
831 ;
832 ; REQUIREMENTS:
833 ;
834 ; EVENT SYMBOLS:
835 ;
836 ; LINE - OFFSET OF LINE ID IN CONTEXT
837 ; LINPRO - LINE PROCESSING STATE VALUE
838 ; MESBUF - OFFSET OF MESSAGE BUFFER ADDRESS IN CONTEXT
839 ; MODE - OFFSET OF LINE ATTENTION MODE IN CONTEXT
840 ; STATE - OFFSET OF STATE IN CONTEXT
841 ;
842 ; CONTROL BLOCK SYMBOLS:
843 ;
844 ; C.ADDR - OFFSET OF ADDRESS FIELD
845 ; C.CTXT - OFFSET OF CONTEXT FIELD
846 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
847 ; C.LEN - OFFSET OF LENGTH FIELD
848 ; C.LINE - OFFSET OF LINE ID FIELD
849 ; C.MODE - OFFSET OF MODE FIELD
850 ; C$ALBF - ALLOCATE BUFFER FUNCTION CODE
851 ; C$PROC - PROCESS FUNCTION CODE
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 17-1
EVINIT
852 ; CTXTLN - LENGTH OF CONTEXT BLOCK
853 ;
854 ;--
855 ;======================================================================;
856 ;
857 ; LOCAL PROCEDURE BODY
858 ;
859 001614 PROCLC EVINIT
860 001614 IF ; CONTROL BLOCK FUNCTION CODE = PROCESS JOB
861 001614 FALSEB NE C.FUNC(R5),#C$PROC
862 001624 THEN
863 001624 016565 000012 000022 MOV C.LEN(R5),C.SAVE(R5) ;SAVE NEEDED CONTROL BLOCK FIELDS
864 001632 016565 000014 000024 MOV C.ADDR(R5),C.SAVE+2(R5)
865 001640 012765 000051 000012 MOV #CTXTLN,C.LEN(R5) ;SET LENGTH OF CONTEXT BLOCK
866 001646 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5) ;ALLOCATE CONTEXT BLOCK
867 001654 ELSE ; MUST BE ALLOCATE MEMORY BUFFER
868 001656 IF ; CONTEXT NOT SET
869 001656 FALSE SET R4
870 001662 THEN
871 001662 016504 000014 MOV C.ADDR(R5),R4 ;GET CONTEXT BLOCK ADDRESS
872 001666 010465 000004 MOV R4,C.CTXT(R5) ;AND PUT IT IN CONTROL BLOCK
873 001672 005000 CLR R0 ;SET UP A ZERO TO SPRAY
874 001674 010401 MOV R4,R1 ;START AT BEGINNING OF CONTEXT
875 001676 012702 000051 MOV #CTXTLN,R2 ;NUMBER OF BYTES TO SPRAY
876 001702 CALL SPRAY ;ZERO THE CONTEXT BLOCK
877 001706 016565 000022 000012 MOV C.SAVE(R5),C.LEN(R5) ;RESTORE SAVED CONTROL BLOCK FIELDS
878 001714 016565 000024 000014 MOV C.SAVE+2(R5),C.ADDR(R5)
879 001722 012700 000014 MOV #C.LINE,R0 ;OFFSET OF LINE ID IN CONTROL BLOCK
880 001726 060500 ADD R5,R0 ;MAKE IT A SOURCE ADDRESS
881 001730 012701 000004 MOV #4,R1 ;LENGTH OF LINE ID
882 001734 012702 000016 MOV #LINE,R2 ;OFFSET OF LINE ID IN CONTEXT
883 001740 060402 ADD R4,R2 ;MAKE IT A DESTINATION ADDRESS
884 001742 CALL MOVE ;PUT LINE ID IN CONTEXT
885 001746 116564 000021 000022 MOVB C.MODE(R5),MODE(R4) ;PUT LINE MODE IN CONTEXT
886 001754 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;ALLOCATE A MESSAGE BUFFER
887 001762 ELSE
888 001764 016564 000014 000002 MOV C.ADDR(R5),MESBUF(R4) ;MESSAGE BUFFER ALLOCATED
889 001772 112764 000002 000014 MOVB #LINPRO,STATE(R4) ;MOVE TO NEXT STATE
890 002000 105065 000006 CLRB C.FUNC(R5) ;SIGNAL INITIALIZATION
891 002004 ENDIF
892 002004 ENDIF
893 002004 ENDPROC
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 18
EVLGCM
895 .SBTTL EVLGCM
896 ;
897 ;======================================================================;
898 ;++
899 ; +-------------------------------------------------+
900 ; I I
901 ; I E V L G C M I
902 ; I - - - - - - I
903 ; I I
904 ; +-------------------------------------------------+
905 ;
906 ; FUNCTION:
907 ;
908 ; EVENT PROCESSOR MODULE TO PROCESS LOGGING TO COMPLETION
909 ;
910 ; INPUT:
911 ;
912 ; R5 - ADDRESS OF CONTROL BLOCK
913 ; C.FUNC - FUNCTION JUST PERFORMED
914 ; C.SAVE - IF LOGGING IN PROCESS, LENGTH OF MESSAGE TO LOG
915 ;
916 ; OUTPUT:
917 ;
918 ; C-BIT - CLEAR IF LOGGING COMPLETED, SET IF NOT
919 ; @R5 - UPDATED CONTROL BLOCK
920 ; C.FUNC - FUNCTION TO PERFORM
921 ; C.LEN - IF FUNCTION IS WRITE COMMAND MEDIUM, LENGTH OF MESSAGE
922 ;
923 ; REQUIREMENTS:
924 ;
925 ; CONTROL BLOCK SYMBOLS:
926 ;
927 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
928 ; C.LEN - OFFSET OF LENGTH FIELD
929 ; C.SAVE - OFFSET OF SAVE AREA
930 ; C$CLCL - CLOSE COMMAND OUTPUT MEDIUM FOR LOGGING FUNCTION CODE
931 ; C$OPCL - OPEN COMMAND OUTPUT MEDIUM FOR LOGGING FUNCTION CODE
932 ; C$WRCL - WRITE COMMAND OUTPUT MEDIUM FOR LOGGING FUNCTION CODE
933 ;
934 ;--
935 ;======================================================================;
936 ;
937 ;
938 ; LOCAL PROCEDURE BODY
939 ;
940 002006 PROCLC EVLGCM
941 002006 116500 000006 MOVB C.FUNC(R5),R0 ;GET THE FUNCTION CODE
942 002012 ONCASE ; FUNCTION CODE
943 002012 CASE ; OPEN COMMAND MEDIUM
944 002012 FALSE NE R0,#C$OPCL
945 002020 DO
946 002020 016565 000022 000012 MOV C.SAVE(R5),C.LEN(R5) ;LENGTH OF MESSAGE TO LOG
947 002026 112765 177713 000006 MOVB #-C$WRCL,C.FUNC(R5) ;NEXT IS WRITE COMMAND MEDIUM FOR LOGGING
948 002034 000261 SEC ;NOT DONE YET
949 002036 CASE ; WRITE COMMAND MEDIUM
950 002040 FALSE NE R0,#C$WRCL
951 002046 DO
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 18-1
EVLGCM
952 002046 112765 177711 000006 MOVB #-C$CLCL,C.FUNC(R5) ;NEXT IS CLOSE COMMAND MEDIUM
953 002054 000261 SEC ;NOT DONE YET
954 002056 CASE ; CLOSE COMMAND MEDIUM
955 002060 FALSE NE R0,#C$CLCL
956 002066 DO
957 002066 000241 CLC ;ALL DONE
958 002070 ELSE
959 002072 000261 SEC ;WHATEVER IT IS, IT AIN'T US
960 002074 ENDCASE
961 002074 ENDPROC
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 19
EVLGMS
963 .SBTTL EVLGMS
964 ;
965 ;======================================================================;
966 ;++
967 ; +-------------------------------------------------+
968 ; I I
969 ; I E V L G M S I
970 ; I - - - - - - I
971 ; I I
972 ; +-------------------------------------------------+
973 ;
974 ; FUNCTION:
975 ;
976 ; EVENT PROCESSOR MODULE TO LOG A MESSAGE
977 ;
978 ; INPUT:
979 ;
980 ; R2 - ADDRESS OF NEXT AVAILABLE BYTE IN MESSAGE BUFFER
981 ; R4 - ADDRESS OF CONTEXT BLOCK
982 ; MESBUF - ADDRESS OF MESSAGE BUFFER
983 ; R5 - ADDRESS OF CONTROL BLOCK
984 ;
985 ; OUTPUT:
986 ;
987 ; @R5 - UPDATED CONTROL BLOCK
988 ; C.ADDR - ADDRESS OF MESSAGE BUFFER
989 ; C.FUNC - FUNCTION CODE TO START LOGGING PROCESS
990 ; C.SAVE - LENGTH OF MESSAGE
991 ;
992 ; REQUIREMENTS:
993 ;
994 ; EVENT SYMBOLS:
995 ;
996 ; MESBUF - OFFSET OF MESSAGE BUFFER ADDRESS IN CONTEXT
997 ;
998 ; CONTROL BLOCK SYMBOLS:
999 ;
1000 ; C.ADDR - OFFSET OF ADDRESS FIELD
1001 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1002 ; C.SAVE - OFFSET OF SAVE AREA
1003 ; C$OPCL - OPEN COMMAND MEDIUM FOR LOGGING FUNCTION CODE
1004 ;
1005 ;--
1006 ;======================================================================;
1007 ;
1008 ;
1009 ; LOCAL PROCEDURE BODY
1010 ;
1011 002076 PROCLC EVLGMS
1012 002076 016465 000002 000014 MOV MESBUF(R4),C.ADDR(R5) ;MAKE SURE BUFFER ADDRESS IN CONTROL BLOCK
1013 002104 166502 000014 SUB C.ADDR(R5),R2 ;COMPUTE LENGTH OF MESSAGE
1014 002110 010265 000022 MOV R2,C.SAVE(R5) ;AND SAVE IT IN THE CONTROL BLOCK
1015 002114 112765 177712 000006 MOVB #-C$OPCL,C.FUNC(R5) ;START BY OPENING THE COMMAND MEDIUM FOR LOGGING
1016 002122 ENDPROC
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 20
EVLINE
1018 .SBTTL EVLINE
1019 ;
1020 ;======================================================================;
1021 ;++
1022 ; +-------------------------------------------------+
1023 ; I I
1024 ; I E V L I N E I
1025 ; I - - - - - - I
1026 ; I I
1027 ; +-------------------------------------------------+
1028 ;
1029 ; FUNCTION:
1030 ;
1031 ; EVENT PROCESSOR MODULE TO DO LINE PROCESSING
1032 ;
1033 ; INPUT:
1034 ;
1035 ; R4 - ADDRESS OF CONTEXT BLOCK
1036 ; ERRFUN - NON-ZERO IF ERROR HAS OCCURED ON RECEIVE/TRANSMIT
1037 ; EXTCB - ADDRESS OF EXTRA CONTROL BLOCK
1038 ; FLAGS - PROCESSING FLAGS
1039 ; LINE - FOUR BYTE BINARY LINE ID
1040 ; MESBUF - ADDRESS OF MESSAGE BUFFER
1041 ; MODE - LINE ACCESS MODE
1042 ; ORIGCB - ADDRESS OF ORIGINAL CONTROL BLOCK
1043 ; R5 - ADDRESS OF CONTROL BLOCK
1044 ; C.ADDR - ON INITIAL ENTRY, ADDRESS OF MESSAGE BUFFER; ON ALLOCATE
1045 ; CONTROL BLOCK COMPLETION, ADDRESS OF CONTROL BLOCK
1046 ; @C.ADDR - ON RECEIVE BLOCK COMPLETION, BLOCK RECEIVED
1047 ; C.FUNC - FUNCTION JUST PERFORMED
1048 ; C.LEN - ON RECEIVE BLOCK COMPLETION, LENGTH OF BLOCK
1049 ; C.LUN - LUN DURING LOGGING OR LINE PROCESSING
1050 ; C.RET - RETURN CODE
1051 ;
1052 ; OUTPUT:
1053 ;
1054 ; R4 - UPDATED CONTEXT
1055 ; ERRCOD - IF FAILURE, ERROR CODE
1056 ; ERRFUN - IF FAILURE, FUNCTION WHICH FAILED
1057 ; EXTCB - ADDRESS OF EXTRA CONTROL BLOCK
1058 ; FLAGS - PROCESSING STATUS FLAGS
1059 ; ORIGCB - ADDRESS OF ORIGINAL CONTROL BLOCK
1060 ; STATE - ON FINAL RETURN, NEXT PROCESSING STATE
1061 ; OTHER FIELDS - AS SPECIFIED FOR MODULE EVPARS
1062 ; R5 - UPDATED CONTROL BLOCK
1063 ; (R5) - FOR RECEIVE/TRANSMIT BLOCK, ADDRESS OF EXTRA CONTROL BLOCK
1064 ; C.ADDR - ADDRESS OF MESSAGE TO TRANSMIT
1065 ; C.FUNC - TRANSMIT MESSAGE FUNCTION CODE
1066 ; C.LEN - LENGTH OF MESSAGE TO TRANSMIT
1067 ; C.SAVE - MESSAGE TO TRANSMIT
1068 ; C.ADDR - FOR SET LINE STATE, RECEIVE BLOCK, AND LOGGING, MESSAGE
1069 ; BUFFER ADDRESS; FOR RELEASE CONTROL BLOCK, CONTROL BLOCK ADDRESS
1070 ; @C.ADDR - FOR SET LINE STATE, ARGUMENT BLOCK; FOR LOGGING,
1071 ; MESSAGE TO LOG
1072 ; C.FUNC - FUNCTION TO PERFORM
1073 ; C.LEN - FOR RECEIVE BLOCK, MAXIMUM LENGTH OF BUFFER
1074 ; C.LINE - FOR OPEN LINE, LINE ID
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 20-1
EVLINE
1075 ; C.LUN - FOR LOGGING OR LINE PROCESSING, LOGICAL UNIT NUMBER
1076 ; C.MODE - FOR OPEN LINE, LINE ACCESS MODE
1077 ; C.TYPE - FOR SET LINE STATE, TYPE CODE
1078 ; C.WAIT - FOR OPEN LINE, MAXIMUM RECEIVE WAIT
1079 ; OTHER FIELDS - AS SPECIFIED FOR LOGGING MODULES
1080 ;
1081 ; REQUIREMENTS:
1082 ;
1083 ; EVENT SYMBOLS:
1084 ;
1085 ; ERRCOD - OFFSET OF ERROR CODE IN CONTEXT
1086 ; ERRFUN - OFFSET OF FAILED FUNCTION IN CONTEXT
1087 ; EXTCB - OFFSET OF EXTRA CONTROL BLOCK ADDRESS IN CONTEXT
1088 ; FINMES - FLAG MASK FOR FINISH MESSAGE WANTED
1089 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
1090 ; LINE - OFFSET OF LINE ID IN CONTEXT
1091 ; LINSWI - FLAG MASK FOR LINE STATE SWITCHED
1092 ; LNKPRO - STATE VALUE FOR LINK PROCESSING
1093 ; MESBUF - OFFSET OF MESSAGE BUFFER ADDRESS IN CONTEXT
1094 ; MODE - OFFSET OF LINE ACCESS MODE IN CONTEXT
1095 ; ORIGCB - OFFSET OF ORIGINAL CONTROL BLOCK ADDRESS IN CONTEXT
1096 ; RECPEN - RECEIVE PENDING FLAG MASK
1097 ; STATE - OFFSET OF PROCESSING STATE IN CONTEXT
1098 ; TRAPEN - TRANSMIT PENDING FLAG MASK
1099 ;
1100 ; MOP MESSAGE SYMBOLS:
1101 ;
1102 ; M$MRUN - MOP RUNNING FUNCTION CODE
1103 ;
1104 ; NICE MESSAGE SYMBOLS:
1105 ;
1106 ; N.MLEN - MAXIMUM LENGTH OF MESSAGE BUFFER
1107 ; NE$LPR - LINE PROTOCOL ERROR RETURN CODE
1108 ; ST$MAI - MAINTENANCE STATE VALUE
1109 ;
1110 ; CONTROL BLOCK SYMBOLS:
1111 ;
1112 ; C.ADDR - OFFSET OF ADDRESS FIELD
1113 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1114 ; C.LEN - OFFSET OF LENGTH FIELD
1115 ; C.LINE - OFFSET OF LINE ID FIELD
1116 ; C.MODE - OFFSET OF MODE FIELD
1117 ; C.RET - OFFSET OF RETURN CODE FIELD
1118 ; C.SAVE - OFFSET OF SAVE AREA
1119 ; C.TYPE - OFFSET OF TYPE CODE FIELD
1120 ; C.WAIT - OFFSET OF TIME-OUT WAIT FIELD
1121 ; C$ALCB - ALLOCATE CONTROL BLOCK FUNCTION CODE
1122 ; C$CLLN - CLOSE LINE FUNCTION CODE
1123 ; C$LEN - LENGTH OF A CONTROL BLOCK
1124 ; C$NOPN - NO OPERATION, NO RETURN FUNCTION CODE
1125 ; C$OPLN - OPEN LINE FUNCTION CODE
1126 ; C$RCBK - RECEIVE BLOCK FUNCION CODE
1127 ; C$RLCB - RELEASE CONTROL BLOCK FUNCTION CODE
1128 ; C$STPR - SET PARAMETER FUNCTION CODE
1129 ; C$TRBK - TRANSMIT BLOCK FUNCTION CODE
1130 ; CS$NCH - NO CHANGE SUCCESS RETURN CODE
1131 ; SP$LST - SET LINE STATE TYPE CODE
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 20-2
EVLINE
1132 ;
1133 ;--
1134 ;======================================================================;
1135 ;
1136 ; READ ONLY MEMORY
1137 ;
1138 001125 .PSECT BYTE,D ;AP0001
1139 001125 162 145 161 REQMSG: .ASCII /requested/
001130 165 145 163
001133 164 145 144
1140 000011 REQLEN = .-REQMSG
1141 ;
1142 002124 .PSECT ;AP0001
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 21
EVLINE
1144 ;
1145 ; LOCAL PROCEDURE BODY
1146 ;
1147 002124 PROCLC EVLINE
1148 002124 IF ; FUNCTION CODE = 0
1149 002124 FALSEB SET C.FUNC(R5)
1150 002132 THEN
1151 002132 012700 000016 MOV #LINE,R0 ;OFFSET OF LINE ID IN CONTEXT
1152 002136 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
1153 002140 012701 000004 MOV #4,R1 ;LENGTH OF LINE ID
1154 002144 016502 000014 MOV C.ADDR(R5),R2 ;ADDRESS OF BUFFER
1155 002150 CALL MOVE ;PUT LINE ID IN BUFFER
1156 002154 112722 000004 MOVB #ST$MAI,(R2)+ ;WANT MAINTENANCE STATE
1157 002160 112765 000001 000016 MOVB #SP$LST,C.TYPE(R5) ;SETTING LINE STATE
1158 002166 112765 177741 000006 MOVB #-C$STPR,C.FUNC(R5) ;SET FUNCTION CODE TO SET PARAMETER
1159 002174 ENDIF
1160 002174 IF ; FUNCTION CODE = SET PARAMETER
1161 002174 FALSEB NE C.FUNC(R5),#C$STPR
1162 002204 THEN
1163 002204 116500 000010 MOVB C.RET(R5),R0 ;GET RETURN CODE
1164 002210 IF ; SUCCESS BUT NO CHANGE
1165 002210 FALSEB NE R0,#CS$NCH
1166 002216 THEN
1167 002216 CALL EVABRT ;STOP DOING THIS
1168 002222 ELSE
1169 002224 152764 000002 000015 BISB #FINMES,FLAGS(R4) ;INDICATE FINISH MESSAGE WILL BE WANTED
1170 002232 IF ; SUCCESS
1171 002232 FALSE LT R0
1172 002236 THEN
1173 002236 152764 000001 000015 BISB #LINSWI,FLAGS(R4) ;SET LINE SWITCHED FLAG
1174 002244 012700 000016 MOV #LINE,R0 ;OFFSET OF LINE ID IN CONTEXT
1175 002250 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
1176 002252 012701 000004 MOV #4,R1 ;LENGTH OF LINE ID
1177 002256 012702 000014 MOV #C.LINE,R2 ;OFFSET OF LINE ID IN CONTROL BLOCK
1178 002262 060502 ADD R5,R2 ;MAKE IT A DESTINATION ADDRESS
1179 002264 CALL MOVE ;MOVE LINE ID TO CONTROL BLOCK
1180 002270 116465 000022 000021 MOVB MODE(R4),C.MODE(R5) ;PUT LINE ACCESS MODE IN CONTROL BLOCK
1181 002276 112765 000074 000020 MOVB #60.,C.WAIT(R5) ;MAXIMUM TIME TO WAIT FOR RECEIVE
1182 002304 112765 177733 000006 MOVB #-C$OPLN,C.FUNC(R5) ;SET FUNCTION CODE TO OPEN LINE
1183 002312 ELSE
1184 002314 112764 000037 000047 MOVB #C$STPR,ERRFUN(R4) ;REMEMBER THE FUNCTION THAT FAILED
1185 002322 110064 000050 MOVB R0,ERRCOD(R4) ;REMEMBER THE FAILURE
1186 002326 112765 000005 000006 MOVB #C$CLLN,C.FUNC(R5) ;PRETEND LINE JUST CLOSED
1187 002334 ENDIF
1188 002334 ENDIF
1189 002334 ENDIF
1190 002334 IF ; FUNCTION CODE = OPEN LINE
1191 002334 FALSEB NE C.FUNC(R5),#C$OPLN
1192 002344 THEN
1193 002344 116500 000010 MOVB C.RET(R5),R0 ;GET RETURN CODE
1194 002350 IF ; SUCCESS
1195 002350 FALSEB LT
1196 002352 THEN
1197 002352 112765 177745 000006 MOVB #-C$ALCB,C.FUNC(R5) ;SET FUNCTION CODE TO ALLOCATE CONTROL BLOCK
1198 002360 ELSE
1199 002362 112764 000045 000047 MOVB #C$OPLN,ERRFUN(R4) ;REMEMBER THE FUNCTION THAT FAILED
1200 002370 110064 000050 MOVB R0,ERRCOD(R4) ;REMEMBER THE FAILURE
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 21-1
EVLINE
1201 002374 112765 000005 000006 MOVB #C$CLLN,C.FUNC(R5) ;PRETEND LINE CLOSE COMPLETED
1202 002402 ENDIF
1203 002402 ENDIF
1204 002402 IF ; FUNCTION CODE = ALLOCATE CONTROL BLOCK
1205 002402 FALSEB NE C.FUNC(R5),#C$ALCB
1206 002412 THEN
1207 002412 010500 MOV R5,R0 ;ORIGINAL CONTROL BLOCK IS SOURCE
1208 002414 016502 000014 MOV C.ADDR(R5),R2 ;EXTRA CONTROL BLOCK IS DESTINATION
1209 002420 012701 000026 MOV #C$LEN,R1 ;LENGTH OF A CONTROL BLOCK
1210 002424 CALL MOVE ;COPY ORIGINAL TO EXTRA
1211 002430 016500 000014 MOV C.ADDR(R5),R0 ;ADDRESS OF EXTRA CONTROL BLOCK
1212 002434 010015 MOV R0,(R5) ;POINT ORIGINAL TO EXTRA
1213 002436 010064 000012 MOV R0,EXTCB(R4) ;SAVE EXTRA CONTROL BLOCK ADDRESS
1214 002442 010564 000010 MOV R5,ORIGCB(R4) ;AND ORIGINAL, TOO
1215 002446 062760 000022 000014 ADD #C.SAVE,C.ADDR(R0) ;POINT ADDRESS FIELD TO SAVE AREA
1216 002454 112770 000014 000014 MOVB #M$MRUN,@C.ADDR(R0) ;PUT A MOP RUNNING FUNCTION CODE THERE
1217 002462 012760 000001 000012 MOV #1,C.LEN(R0) ;MESSAGE LENGTH OF 1
1218 002470 112760 000046 000006 MOVB #C$TRBK,C.FUNC(R0) ;SET FUNCTION CODE TO TRANSMIT BLOCK
1219 002476 016465 000002 000014 MOV MESBUF(R4),C.ADDR(R5) ;ADDRESS OF MESSAGE BUFFER
1220 002504 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;LENGTH OF MESSAGE BUFFER
1221 002512 112765 177731 000006 MOVB #-C$RCBK,C.FUNC(R5) ;SET FUNCTION CODE TO RECEIVE BLOCK
1222 002520 152764 000030 000015 BISB #<TRAPEN!RECPEN>,FLAGS(R4) ;FLAG RECEIVE/TRANSMIT PENDING
1223 002526 ENDIF
1224 002526 116500 000006 MOVB C.FUNC(R5),R0 ;GET FUNCTION CODE
1225 002532 IF ; FUNCTION CODE = TRANSMIT BLOCK OR FUNCTION CODE = RECEIVE BLOCK
1226 002532 TRUEB EQ R0,#C$TRBK
1227 002540 FALSEB NE R0,#C$RCBK
1228 002546 THEN
1229 002546 IF ; FUNCTION CODE = TRANSMIT BLOCK
1230 002546 FALSE NE R0,#C$TRBK
1231 002554 THEN
1232 002554 142764 000010 000015 BICB #TRAPEN,FLAGS(R4) ;CLEAR TRANSMIT PENDING FLAG
1233 002562 ELSE
1234 002564 142764 000020 000015 BICB #RECPEN,FLAGS(R4) ;CLEAR RECEIVE PENDING FLAG
1235 002572 ENDIF
1236 002572 116500 000010 MOVB C.RET(R5),R0 ;GET RETURN CODE
1237 002576 IF ; FAILURE ON THIS OPERATION AND NO OTHER FAILURE
1238 002576 FALSE GT
1239 002600 FALSEB SET ERRFUN(R4)
1240 002606 THEN
1241 002606 116564 000006 000047 MOVB C.FUNC(R5),ERRFUN(R4) ;REMEMBER FAILED FUNCTION
1242 002614 110064 000050 MOVB R0,ERRCOD(R4) ;AND FAILURE
1243 002620 ENDIF
1244 002620 IF ; BOTH OPERATIONS COMPLETE
1245 002620 FALSEB SET #<TRAPEN!RECPEN>,FLAGS(R4)
1246 002630 THEN
1247 002630 016405 000010 MOV ORIGCB(R4),R5 ;ADDRESS OF ORIGINAL CONTROL BLOCK
1248 002634 016465 000012 000014 MOV EXTCB(R4),C.ADDR(R5) ;ADDRESS OF EXTRA CONTROL BLOCK
1249 002642 112765 177776 000006 MOVB #-C$RLCB,C.FUNC(R5) ;SET FUNCTION CODE TO RELEASE CONTROL BLOCK
1250 002650 ELSE
1251 002652 112765 177747 000006 MOVB #-C$NOPN,C.FUNC(R5) ;SET FUNCTION CODE TO WAIT FOR OTHER COMPLETION
1252 002660 ENDIF
1253 002660 ENDIF
1254 002660 IF ; FUNCTION CODE = RELEASE CONTROL BLOCK
1255 002660 FALSEB NE C.FUNC(R5),#C$RLCB
1256 002670 THEN
1257 002670 IF ; SUCCESS ON RECEIVE/TRANSMIT
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 21-2
EVLINE
1258 002670 FALSEB SET ERRFUN(R4)
1259 002676 THEN
1260 002676 016465 000002 000014 MOV MESBUF(R4),C.ADDR(R5) ;RESTORE MESSAGE BUFFER ADDRESS
1261 002704 CALL EVPARS ;PARSE MESSAGE TO CONTEXT
1262 002710 IF ; FAILURE
1263 002710 FALSE CC
1264 002712 THEN
1265 002712 105364 000047 DECB ERRFUN(R4) ;MAKE IT LOOK LIKE A NICE ERROR RESPONSE
1266 002716 112764 177757 000050 MOVB #NE$LPR,ERRCOD(R4) ;WITH A LINE PROTOCOL ERROR
1267 002724 ENDIF
1268 002724 ENDIF
1269 002724 112765 177773 000006 MOVB #-C$CLLN,C.FUNC(R5) ;SET FUNCTION CODE TO CLOSE LINE
1270 002732 ENDIF
1271 002732 IF ; FUNCTION CODE = CLOSE LINE
1272 002732 FALSEB NE C.FUNC(R5),#C$CLLN
1273 002742 THEN
1274 002742 116500 000010 MOVB C.RET(R5),R0 ;GET RETURN CODE
1275 002746 IF ; FAILURE AND NO ERROR FLAGGED
1276 002746 FALSEB GT
1277 002750 FALSEB SET ERRCOD(R4)
1278 002756 THEN
1279 002756 112764 000005 000047 MOVB #C$CLLN,ERRFUN(R4) ;REMEMBER THE FUNCTION THAT FAILED
1280 002764 110064 000050 MOVB R0,ERRCOD(R4) ;AND THE FAILURE
1281 002770 ENDIF
1282 002770 CALL EVLMBG ;BUILD BEGINNING OF LINE LOGGING MESSAGE
1283 002774 012700 001125' MOV #REQMSG,R0 ;ADDRESS OF REQUEST TAG
1284 003000 012701 000011 MOV #REQLEN,R1 ;LENGTH OF REQUEST TAG
1285 003004 CALL MOVE ;PUT REQUEST TAG ON END OF LOGGING MESSAGE
1286 003010 CALL EVLGMS ;AND LOG IT
1287 003014 ENDIF
1288 003014 CALL EVLGCM ;CHECK LOGGING COMPLETION
1289 003020 IF ; COMPLETE
1290 003020 FALSE CS
1291 003022 THEN
1292 003022 IF ; NO ERROR FLAGED
1293 003022 FALSEB SET ERRCOD(R4)
1294 003030 THEN
1295 003030 112764 000003 000014 MOVB #LNKPRO,STATE(R4) ;MOVE TO NEXT STATE
1296 003036 105065 000006 CLRB C.FUNC(R5) ;INDICATE INITIALIZING
1297 003042 ELSE
1298 003044 CALL EVABRT ;BAG IT
1299 003050 ENDIF
1300 003050 ENDIF
1301 003050 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
1302 003054 ENDPROC
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 22
EVLINK
1304 .SBTTL EVLINK
1305 ;
1306 ;======================================================================;
1307 ;++
1308 ; +-------------------------------------------------+
1309 ; I I
1310 ; I E V L I N K I
1311 ; I - - - - - - I
1312 ; I I
1313 ; +-------------------------------------------------+
1314 ;
1315 ; FUNCTION:
1316 ;
1317 ; EVENT PROCESSOR MODULE TO DO LOGICAL LINK PROCESSING
1318 ;
1319 ; INPUT:
1320 ;
1321 ; R4 - ADDRESS OF CONTEXT BLOCK
1322 ; MESBUF - ADDRESS OF MESSAGE BUFFER
1323 ; R5 - ADDRESS OF CONTROL BLOCK
1324 ; C.ADDR - ON RECEIVE MESSAGE COMPLETION, ADDRESS OF MESSAGE
1325 ; C.FUNC - FUNCTION JUST PERFORMED
1326 ; C.LEN - ON RECEIVE MESSAGE COMPLETION, LENGTH OF MESSAGE
1327 ; C.LKNM - ON OPEN LINK COMPLETION, LINK NUMBER
1328 ; C.RET - ON COMPLETION ENTRY, RETURN CODE
1329 ;
1330 ; OUTPUT:
1331 ;
1332 ; @R4 - UPDATED CONTEXT BLOCK
1333 ; CMLKNM - IF LINK OPENED, LINK NUMBER
1334 ; ERRCOD - IF FAILURE, ERROR CODE
1335 ; ERRFUN - IF FAILURE, FAILED FUNCTION
1336 ; @R5 - UPDATED CONTROL BLOCK
1337 ; C.ADDR - ADDRESS OF MESSAGE BUFFER
1338 ; @C.ADDR - FOR OPEN LINK, CONNECT REQUEST BLOCK; FOR TRANSMIT
1339 ; MESSAGE, MESSAGE
1340 ; C.FUNC - FUNCTION TO PERFORM
1341 ; C.LEN - FOR TRANSMIT MESSAGE, MESSAGE LENGTH; FOR RECEIVE
1342 ; MESSAGE, BUFFER LENGTH
1343 ;
1344 ; REQUIREMENTS:
1345 ;
1346 ; EVENT SYMBOLS:
1347 ;
1348 ; CMLKNM - OFFSET OF COMMAND LINK NUMBER IN CONTEXT
1349 ; ERRCOD - OFFSET OF ERROR CODE IN CONTEXT
1350 ; ERRFUN - OFFSET OF FAILED FUNCTION IN CONTEXT
1351 ; MESBUF - OFFSET OF MESSAGE BUFFER ADDRESS IN CONTEXT
1352 ;
1353 ; NICE MESSAGE SYMBOLS:
1354 ;
1355 ; N.MLEN - MAXIMUM LENGTH OF MESSAGE
1356 ; NE$FOR - FORMAT ERROR CODE
1357 ;
1358 ; CONTROL BLOCK SYMBOLS:
1359 ;
1360 ; C.ADDR - OFFSET OF ADDRESS FIELD
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 22-1
EVLINK
1361 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1362 ; C.LEN - OFFSET OF LENGTH FIELD
1363 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
1364 ; C.RET - OFFSET OF RETURN CODE FIELD
1365 ; C$OPLK - OPEN LINK FUNCTION CODE
1366 ; C$RCMS - RECEIVE MESSAGE FUNCTION CODE
1367 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
1368 ;
1369 ;--
1370 ;======================================================================;
1371 ;
1372 ;
1373 ; LOCAL PROCEDURE BODY
1374 ;
1375 003056 PROCLC EVLINK
1376 003056 IF ; FUNCTION CODE = 0
1377 003056 FALSEB SET C.FUNC(R5)
1378 003064 THEN
1379 003064 CALL EVHOST ;FIGURE OUT WHO THE HOST IS
1380 003070 016465 000002 000014 MOV MESBUF(R4),C.ADDR(R5) ;PUT BUFFER ADDRESS IN CONTROL BLOCK
1381 003076 CALL BLCNBK ;BUILD A CONNECT BLOCK
1382 003102 112765 177727 000006 MOVB #-C$OPLK,C.FUNC(R5) ;SET FUNCTION CODE TO OPEN LINK
1383 003110 ENDIF
1384 003110 IF ; FUNCTION CODE = OPEN LINK
1385 003110 FALSEB NE C.FUNC(R5),#C$OPLK
1386 003120 THEN
1387 003120 116500 000010 MOVB C.RET(R5),R0 ;GET THE RETURN CODE
1388 003124 IF ; SUCCESS
1389 003124 FALSEB LT
1390 003126 THEN
1391 003126 016564 000020 000000 MOV C.LKNM(R5),CMLKNM(R4) ;SET LINK NUMBER IN CONTEXT
1392 003134 CALL EVBLMS ;BUILD A NICE MESSAGE
1393 003140 112765 177725 000006 MOVB #-C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
1394 003146 ELSE
1395 003150 112764 000051 000047 MOVB #C$OPLK,ERRFUN(R4) ;REMEMBER THE FUNCTON THAT FAILED
1396 003156 110064 000050 MOVB R0,ERRCOD(R4) ;AND THE FAILURE
1397 003162 CALL EVABRT ;QUIT
1398 003166 ENDIF
1399 003166 ENDIF
1400 003166 IF ; FUNCTION CODE = TRANSMIT MESSAGE
1401 003166 FALSEB NE C.FUNC(R5),#C$TRMS
1402 003176 THEN
1403 003176 116500 000010 MOVB C.RET(R5),R0 ;GET THE RETURN CODE
1404 003202 IF ; SUCCESS
1405 003202 FALSEB LT
1406 003204 THEN
1407 003204 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;MAXIMUM LENGTH OF MESSAGE
1408 003212 112765 177724 000006 MOVB #-C$RCMS,C.FUNC(R5) ;SET FUNCTION CODE TO RECEIVE MESSAGE
1409 003220 ELSE
1410 003222 112764 000053 000047 MOVB #C$TRMS,ERRFUN(R4) ;REMEMBER THE FUNCTION THAT FAILED
1411 003230 110064 000050 MOVB R0,ERRCOD(R4) ;AND THE FAILURE
1412 003234 CALL EVABRT ;GIVE UP
1413 003240 ENDIF
1414 003240 ENDIF
1415 003240 IF ; FUNCTION CODE = RECEIVE MESSAGE
1416 003240 FALSEB NE C.FUNC(R5),#C$RCMS
1417 003250 THEN
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 22-2
EVLINK
1418 003250 116500 000010 MOVB C.RET(R5),R0 ;GET THE RETURN CODE
1419 003254 IF ; SUCCESS
1420 003254 FALSE LT
1421 003256 THEN
1422 003256 105364 000047 DECB ERRFUN(R4) ;MAKE THIS A NICE ERROR RESPONSE
1423 003262 IF ; MESSAGE LENGTH < 1
1424 003262 FALSEB GE C.LEN(R5),#1
1425 003272 THEN
1426 003272 112764 177776 000050 MOVB #NE$FOR,ERRCOD(R4) ;IT'S A NICE FORMAT ERROR
1427 003300 ELSE
1428 003302 117564 000014 000050 MOVB @C.ADDR(R5),ERRCOD(R4) ;IT'S WHATEVER NICE SAYS IT IS
1429 003310 ENDIF
1430 003310 ELSE
1431 003312 112765 000054 000047 MOVB #C$RCMS,ERRFUN(R5) ;REMEMBER THE FUNCTION THAT FAILED
1432 003320 110065 000050 MOVB R0,ERRCOD(R5) ;AND THE FAILURE
1433 003324 ENDIF
1434 003324 CALL EVABRT ;ALL DONE IN ANY CASE
1435 003330 ENDIF
1436 003330 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
1437 003334 ENDPROC
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 23
EVLMBG
1439 .SBTTL EVLMBG
1440 ;
1441 ;======================================================================;
1442 ;++
1443 ; +-------------------------------------------------+
1444 ; I I
1445 ; I E V L M B G I
1446 ; I - - - - - - I
1447 ; I I
1448 ; +-------------------------------------------------+
1449 ;
1450 ; FUNCTION:
1451 ;
1452 ; EVENT PROCESSOR MODULE TO SET UP BEGINNING OF A LOGGING MESSAGE
1453 ;
1454 ; INPUT:
1455 ;
1456 ; R4 - ADDRESS OF CONTEXT BLOCK
1457 ; LINE - FOUR BYTE BINARY LINE ID
1458 ; MESBUF - ADDRESS OF MESSAGE BUFFER
1459 ; REQTYP - TYPE OF REQUEST IN PROCESS
1460 ;
1461 ; OUTPUT:
1462 ;
1463 ; R2 - ADDRESS OF NEXT AVAILABLE BYTE IN MESSAGE BUFFER
1464 ; @MESBUF(R4) - BEGINNING OF LOGGING MESSAGE
1465 ;
1466 ; REQUIREMENTS:
1467 ;
1468 ; EVENT SYMBOLS:
1469 ;
1470 ; LINE - OFFSET OF LINE ID IN CONTEXT
1471 ; MESBUF - OFFSET OF MESSAGE BUFFER ADDRESS IN CONTEXT
1472 ; REQTYP - OFFSET OF REQUEST TYPE IN CONTEXT
1473 ;
1474 ;--
1475 ;======================================================================;
1476 ;
1477 ;
1478 ; DEFINE READ ONLY MEMORY
1479 ;
1480 001136 .PSECT BYTE,D ;AP0001
1481 001136 074 116 103 BEGMSG: .ASCII /<NCU> Line / ;AP0001
001141 125 076 040
001144 114 151 156
001147 145 040
1482 000013 BEGLEN = .-BEGMSG ;**-1
1483 ;
1484 001151 165 156 162 LINMSG: .ASCII /unrecognizable/
001154 145 143 157
001157 147 156 151
001162 172 141 142
001165 154 145
1485 000016 LINLEN = .-LINMSG
1486 ;
1487 001167 040 155 141 MAIMSG: .ASCII / maintenance /
001172 151 156 164
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 23-1
EVLMBG
001175 145 156 141
001200 156 143 145
001203 040
1488 000015 MAILEN = .-MAIMSG
1489 ;
1490 001204 040 154 157 LOAMSG: .ASCII / load /
001207 141 144 040
1491 000006 LOALEN = .-LOAMSG
1492 ;
1493 001212 040 144 165 DUMMSG: .ASCII / dump /
001215 155 160 040
1494 000006 DUMLEN = .-DUMMSG
1495 ;
1496 ; LENGTH TABLE, INDEXED BY TYPE
1497 ;
1498 001220 015 006 006 TYPLEN: .BYTE MAILEN,LOALEN,DUMLEN
1499 ;
1500 003336 .PSECT ;AP0001
1501 ; ;**-1
1502 ; ADDRESS TABLE, INDEXED BY TYPE
1503 ;
1504 003336 001167' 001204' 001212' TYPADR: .WORD MAIMSG,LOAMSG,DUMMSG
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 24
EVLMBG
1506 ;
1507 ; LOCAL PROCEDURE BODY
1508 ;
1509 003344 PROCLC EVLMBG
1510 003344 012700 001136' MOV #BEGMSG,R0 ;ADDRESS OF BEGINNING OF MESSAGE
1511 003350 012701 000013 MOV #BEGLEN,R1 ;LENGTH OF SAME
1512 003354 016402 000002 MOV MESBUF(R4),R2 ;ADDRESS OF MESSAGE BUFFER
1513 003360 CALL MOVE ;PUT BEGINNING INTO MESSAGE
1514 003364 010200 MOV R2,R0 ;ADDRESS OF NEXT BYTE IN MESSAGE
1515 003366 012701 000016 MOV #LINE,R1 ;OFFSET OF LINE ID IN CONTEXT
1516 003372 060401 ADD R4,R1 ;POINT TO LINE ID
1517 003374 CALL CVLITX ;CONVERT LINE ID TO TEXT
1518 003400 010002 MOV R0,R2 ;ADDRESS OF NEXT BYTE IN MESSAGE
1519 003402 IF ; CONVERT FAILED
1520 003402 FALSE CC
1521 003404 THEN
1522 003404 012700 001151' MOV #LINMSG,R0 ;ADDRESS OF LINE ID REPLACEMENT
1523 003410 012701 000016 MOV #LINLEN,R1 ;LENGTH OF SAME
1524 003414 CALL MOVE ;PUT THIS IN MESSAGE INSTEAD OF LINE ID
1525 003420 ENDIF
1526 003420 116400 000046 MOVB REQTYP(R4),R0 ;TYPE OF REQUEST BEING PROCESSED
1527 003424 116001 001220' MOVB TYPLEN(R0),R1 ;LENGTH OF TYPE STRING
1528 003430 006300 ASL R0 ;MAKE THIS A WORD INDEX
1529 003432 016000 003336' MOV TYPADR(R0),R0 ;ADDRESS OF TYPE STRING
1530 003436 CALL MOVE ;PUT TYPE STRING ON END OF MESSAGE
1531 003442 ENDPROC
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 25
EVPARS
1533 .SBTTL EVPARS
1534 ;
1535 ;======================================================================;
1536 ;++
1537 ; +-------------------------------------------------+
1538 ; I I
1539 ; I E V P A R S I
1540 ; I - - - - - - I
1541 ; I I
1542 ; +-------------------------------------------------+
1543 ;
1544 ; FUNCTION:
1545 ;
1546 ; EVENT PROCESSOR MODULE TO PARSE A MOP MESSAGE
1547 ;
1548 ; INPUT:
1549 ;
1550 ; R4 - ADDRESS OF CONTEXT BLOCK
1551 ; R5 - ADDRESS OF CONTROL BLOCK
1552 ; C.ADDR - ADDRESS OF MOP MESSAGE
1553 ; C.LEN - LENGTH OF MOP MESSAGE
1554 ;
1555 ; OUTPUT:
1556 ;
1557 ; C-BIT - CLEAR IF PARSE SUCCESSFUL, SET IF NOT
1558 ; @R4 - UPDATED CONTEXT BLOCK
1559 ; BOODEV - BOOT DEVICE TYPE
1560 ; MEMLEN - IF DUMP, MEMORY LENGTH
1561 ; REQPRO - IF LOAD, REQUESTED PROGRAM TYPE
1562 ; REQTYP - REQUEST TYPE (DUMP OR LOAD)
1563 ; SOFTID - IF LOAD, SOFTWARE ID
1564 ;
1565 ; REQUIREMENTS:
1566 ;
1567 ; EVENT SYMBOLS:
1568 ;
1569 ; BOODEV - OFFSET OF BOOT DEVICE TYPE IN CONTEXT
1570 ; DUMP - DUMP REQUEST TYPE VALUE
1571 ; LOAD - LOAD REQUEST TYPE VALUE
1572 ; MEMLEN - OFFSET OF MEMORY LENGTH IN CONTEXT
1573 ; REQPRO - OFFSET OF REQUESTED PROGRAM TYPE IN CONTEXT
1574 ; REQTYP - OFFSET OF REQUEST TYPE IN CONTEXT
1575 ; SIDLEN - MAXIMUM LENGTH OF SOFTWARE ID
1576 ; SOFTID - OFFSET OF SOFTWARE ID IN CONTEXT
1577 ;
1578 ; MOP MESSAGE SYMBOLS:
1579 ;
1580 ; M$MRUN - MOP RUNNING FUNCTION CODE
1581 ; M$RQPG - REQUEST PROGRAM FUNCTION CODE
1582 ; MF$DUM - DUMP FEATURES MASK
1583 ;
1584 ; CONTROL BLOCK SYMBOLS:
1585 ;
1586 ; C.ADDR - OFFSET OF ADDRESS FIELD
1587 ; C.LEN - OFFSET OF LENGTH FIELD
1588 ;
1589 ;--
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 25-1
EVPARS
1590 ;======================================================================;
1591 ;
1592 ;
1593 ; EXTERNAL MACROS
1594 ;
1595 .MCALL SAVSTK,RESSTK
1596 ;
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 26
EVPARS
1598 ;
1599 ; LOCAL PROCEDURE BODY
1600 ;
1601 003444 PROCLC EVPARS
1602 003444 SAVSTK <R3> ;SAVE REGISTER
1603 003446 016502 000014 MOV C.ADDR(R5),R2 ;ADDRESS OF MESSAGE
1604 003452 010203 MOV R2,R3 ;COPY IT
1605 003454 066503 000012 ADD C.LEN(R5),R3 ;COMPUTE END ADDRESS
1606 003460 CALL GTMSBY ;GET MESSAGE TYPE
1607 003464 IF ; SUCCESS
1608 003464 FALSE CS
1609 003466 THEN
1610 003466 ONCASE ; MESSAGE TYPE
1611 003466 CASE ; PROGRAM REQUEST
1612 003466 FALSE NE R0,#M$RQPG
1613 003474 DO
1614 003474 112764 000001 000046 MOVB #LOAD,REQTYP(R4) ;SET REQUEST TYPE IN CONTEXT TO LOAD
1615 003502 000241 CLC ;SET SUCCESS SO FAR
1616 003504 CASE ; MOP RUNNING
1617 003506 FALSE NE R0,#M$MRUN
1618 003514 DO
1619 003514 112764 000002 000046 MOVB #DUMP,REQTYP(R4) ;SET REQUEST TYPE IN CONTEXT TO DUMP
1620 003522 000241 CLC ;SET SUCCESS SO FAR
1621 003524 ELSE
1622 003526 000261 SEC ;SET FAILURE
1623 003530 ENDCASE
1624 003530 ENDIF
1625 003530 IF ; SUCCESS SO FAR
1626 003530 FALSE CS
1627 003532 THEN
1628 003532 CALL GTMSBY ;GET DEVICE TYPE
1629 003536 IF ; SUCCESS
1630 003536 FALSE CS
1631 003540 THEN
1632 003540 110064 000023 MOVB R0,BOODEV(R4) ;SET BOOT DEVICE TYPE IN CONTEXT
1633 003544 005202 INC R2 ;SKIP OVER STATION ADDRESS
1634 003546 IF ; REQUEST TYPE = LOAD
1635 003546 FALSEB NE REQTYP(R4),#LOAD
1636 003556 THEN
1637 003556 CALL GTMSBY ;GET PROGRAM TYPE
1638 003562 IF ; SUCCESS
1639 003562 FALSE CS
1640 003564 THEN
1641 003564 110064 000024 MOVB R0,REQPRO(R4) ;PUT REQUESTED PROGRAM TYPE IN CONTEXT
1642 003570 IF ; MESSAGE NOT USED UP
1643 003570 FALSE GE R2,R3
1644 003574 THEN
1645 003574 012700 000020 MOV #SIDLEN,R0 ;MAXIMUM LENGTH OF SOFTWARE ID
1646 003600 012701 000025 MOV #SOFTID,R1 ;OFFSET OF SOFTWARE ID IN CONTEXT
1647 003604 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
1648 003606 CALL MVMSIM ;MOVE IMAGE FIELD TO CONTEXT
1649 003612 ENDIF
1650 003612 ENDIF
1651 003612 ELSE
1652 003614 CALL GTMSWD ;GET MEMORY LENGTH LOW ORDER WORD
1653 003620 IF ; SUCCESS
1654 003620 FALSE CS
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 26-1
EVPARS
1655 003622 THEN
1656 003622 010064 000004 MOV R0,MEMLEN(R4) ;PUT LOW ORDER WORD IN CONTEXT
1657 003626 CALL GTMSWD ;GET MEMORY LENGTH HIGH ORDER WORD
1658 003632 IF ; SUCCESS
1659 003632 FALSE CS
1660 003634 THEN
1661 003634 010064 000006 MOV R0,MEMLEN+2(R4) ;AND PUT IN CONTEXT
1662 003640 CALL GTMSBY ;GET FEATURES MASK
1663 003644 IF ; SUCCESS
1664 003644 FALSE CS
1665 003646 THEN
1666 003646 IF ; DUMP BIT NOT SET
1667 003646 FALSE SET #MF$DUM,R0
1668 003654 THEN
1669 003654 000261 SEC ;FAIL
1670 003656 ENDIF
1671 003656 ENDIF
1672 003656 ENDIF
1673 003656 ENDIF
1674 003656 ENDIF
1675 003656 ENDIF
1676 003656 ENDIF
1677 003656 IF ; SUCCESS AND MESSAGE USED UP
1678 003656 FALSE CS
1679 003660 FALSE NE R2,R3
1680 003664 THEN
1681 003664 000241 CLC ;SUCCESS
1682 003666 ELSE
1683 003670 000261 SEC ;FAILURE
1684 003672 ENDIF
1685 003672 RESSTK <R3> ;RESTORE REGISTER
1686 003674 ENDPROC
1687 000001 .END
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 26-2
SYMBOL TABLE
A$$CHK= 000000 C$OPIR= 000056 DM$MIM= 000002 E$RRTE= 000011 F$EXAM= 000001
A$$CPS= 000000 C$OPLK= 000051 DM$PXA= 000003 E$RRTO= 000006 F$EXHO= 000000
A$$TRP= 000000 C$OPLN= 000045 DM$SAD= 000001 E$RSEL= 000030 F$GTCM= 000001
BEGLEN= 000013 C$OPOR= 000057 DUMLEN= 000006 E$RSIN= 000004 F$INCM= 000000
BEGMSG 001136R 002 C$OPOT= 000042 DUMMSG 001212R 002 E$RSRC= 000015 F$INLU= 000001
BLCNBK= ****** GX C$ORD = 000145 DUMP = 000002 E$RTRN= 000026 F$IRLU= 000000
BOODEV 000023 C$PROC= 000200 D$$BUG= 177514 E$RUCL= 000001 F$LKLU= 000010
CE$ACP= 177753 C$RCBK= 000047 D$$ISK= 000000 E$RXTO= 000027 F$LNLU= 000002
CE$ADR= 177776 C$RCEV= 000050 D$$L11= 000001 E$TASC= 000001 F$LNSR= 000001
CE$CON= 177770 C$RCIN= 000062 ENTLEN= 000013 E$TASX= 000002 F$LOAD= 000000
CE$DIS= 177771 C$RCMA= 000146 ERRCOD 000050 E$THDW= 000003 F$LOGD= 000001
CE$EOF= 177767 C$RCMS= 000054 ERRFUN 000047 E$TSFT= 000004 F$LOOP= 000001
CE$FAI= 177774 C$RDBK= 000043 EVABRT 000000R E$TTOP= 000005 F$NTCM= 000000
CE$FIL= 177756 C$RDCM= 000035 EVBLMS 000022R FAILEN= 000010 F$OPCL= 000001
CE$FUN= 177777 C$RDIN= 000040 EVEVNT 000210RG FAIMSG 001106R 002 F$OPCO= 000000
CE$GEN= 177774 C$RDIS= 000040 EVFINI 000614R FILMSG 000274R 002 F$OPIN= 000000
CE$IND= 177757 C$RDRC= 000060 EVHOST 001514R FINISH= 000004 F$OPIR= 000000
CE$IO = 177760 C$RLBF= 000001 EVINIT 001614R FINMES= 000002 F$OPLK= 000005
CE$LEN= 177775 C$RLCB= 000002 EVLGCM 002006R FIOMSG 000442R 002 F$OPLN= 000002
CE$LID= 177766 C$RLCI= 000000 EVLGMS 002076R FLAGS 000015 F$OPLO= 000000
CE$LST= 177752 C$STBK= 000055 EVLINE 002124R FL$BOO= 000001 F$OPOR= 000000
CE$NOD= 177765 C$STPR= 000037 EVLINK 003056R FL$DUM= 000001 F$OPOT= 000000
CE$NSD= 177755 C$STPS= 000037 EVLMBG 003344R FL$LOA= 000001 F$ORLU= 000000
CE$NST= 177754 C$TRBK= 000046 EVPARS 003444R FL$LOO= 000001 F$OTLU= 000001
CE$NWE= 177773 C$TRIN= 000063 EXTCB 000012 FORMSG 000033R 002 F$RCBK= 000002
CE$OBJ= 177750 C$TRMA= 000145 E$DDAT= 000003 FR$LCC= 000001 F$RCEV= 000001
CE$OPN= 177761 C$TRMS= 000053 E$DDEV= 000005 FR$LCS= 000001 F$RCIN= 000000
CE$OVR= 177764 C$WRBK= 000044 E$DLPC= 000013 FR$LNC= 000001 F$RCMA= 000000
CE$PAR= 177763 C$WRCL= 000065 E$DMCD= 000012 FR$LNL= 000001 F$RCMS= 000002
CE$PRO= 177751 C$WRCM= 000036 E$DNOD= 000011 FR$LNS= 000001 F$RDBK= 000000
CE$REJ= 177772 C$WRRC= 000061 E$DOSI= 000010 FR$RMC= 000001 F$RDCM= 000000
CE$TMO= 177762 C$ZRCN= 000064 E$DREC= 000007 FR$RML= 000001 F$RDIN= 000001
CMLKNM 000000 C$$CKP= 000000 E$DREG= 000001 FR$RMS= 000001 F$RDIS= 000012
COMLEN= 000010 C$$ORE= 000400 E$DRSN= 000006 FS$HOS= 000001 F$RDRC= 000000
COMMSG 001076R 002 C$$RSH= 177564 E$DTHR= 000015 FS$INT= 000000 F$RECO= 000001
CONMSG 000311R 002 C.ADDR= 000014 E$DTIM= 000002 FS$LLP= 000001 F$RLBF= 000001
CS$ACK= 000002 C.BKNM= 000014 E$DTPC= 000014 FS$LOF= 000001 F$RLCB= 000001
CS$LKE= 000001 C.CTXT= 000004 E$DTXT= 000016 FS$LOG= 000001 F$STBK= 000000
CS$LNA= 000002 C.FUNC= 000006 E$DUPT= 000004 FS$LST= 000001 F$STPR= 000001
CS$LOG= 000003 C.LEN = 000012 E$RABO= 000017 FS$NET= 000001 F$STPS= 000006
CS$NCH= 000003 C.LINE= 000014 E$RCRC= 000023 FS$NST= 000000 F$TEST= 000001
CS$SUC= 000001 C.LKNM= 000020 E$RDSC= 000005 FS$PAS= 000001 F$TRAC= 000000
CTXTLN= 000051 C.LUN = 000020 E$RFRM= 000024 FT$CNS= 000000 F$TRBK= 000001
CVLITX= ****** GX C.MODE= 000021 E$RHFE= 000016 FT$NOD= 000001 F$TRIG= 000001
C$ALBF= 000032 C.PRID= 000017 E$RLIN= 000003 FT$TSK= 000001 F$TRIN= 000000
C$ALCB= 000033 C.PROC= 000007 E$RMOP= 000014 FUNMSG 000000R 002 F$TRMA= 000000
C$CLCL= 000067 C.PROM= 000016 E$RMTL= 000013 F$ALBF= 000001 F$TRMS= 000002
C$CLCO= 000003 C.PTR = 000000 E$RNAK= 000032 F$ALCB= 000001 F$WRBK= 000000
C$CLFL= 000004 C.RET = 000010 E$RNXM= 000002 F$CB = 000017 F$WRCL= 000001
C$CLLK= 000052 C.SAVE= 000022 E$ROVR= 000012 F$CLCL= 000001 F$WRCM= 000000
C$CLLN= 000005 C.SERV= 000002 E$RPEC= 000022 F$CLCO= 000000 F$WRRC= 000000
C$LEN = 000026 C.TASK= 000016 E$RPEM= 000021 F$CLFL= 000000 F$ZERO= 000001
C$NOPN= 000031 C.TYPE= 000016 E$RPET= 000020 F$CLLK= 000006 F$ZRCN= 000001
C$NORD= 000032 C.WAIT= 000020 E$RPRC= 000025 F$CLLN= 000002 F$$LVL= 000001
C$OPCL= 000066 DEFOPT 000017R E$RPWF= 000007 F$DPOS= 000001 F$150 = 000002
C$OPCO= 000034 DLCMSG 000727R 002 E$RPWR= 000010 F$DUMP= 000000 F$300 = 000012
C$OPIN= 000041 DM$END= 000000 E$RRET= 000031 F$EVNT= 000001 F$50 = 000002
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 26-3
SYMBOL TABLE
F$550 = 000002 MEMLEN 000004 NICELN= 000007 P$EVNT= 000011 SP$LHO= 000002
GTMSBY= ****** GX MESBUF 000002 NICFUN 000014R P$EXAM= 000017 SP$LLP= 000011
GTMSWD= ****** GX MF$DUM= 000002 NICMSG 000543R 002 P$GTCM= 000001 SP$LNM= 000016
G$$TPP= 000000 MF$LOA= 000000 NL$BRC= 000001 P$INCM= 000015 SP$LNO= 000015
G$$TSS= 000000 MF$LOO= 000004 NL$BTR= 000002 P$LNSR= 000004 SP$LOF= 000012
G$$TTK= 000000 MODE 000022 NL$RES= 000005 P$LOAD= 000002 SP$LST= 000001
HOSDB = ****** GX MOVE = ****** GX NL$RLE= 000004 P$LOGD= 000020 SP$NDM= 000014
HOSDBE= ****** GX MVMSIM= ****** GX NL$RTR= 000003 P$LOOP= 000005 SP$NDO= 000013
HOSMSG 000700R 002 M$ASCD= 000034 NL$TMO= 000006 P$NTCM= 000014 SP$NST= 000006
I$$RAR= 000000 M$DATA= 000016 NL$ZRO= 000000 P$RDIN= 000010 SP$RRP= 000004
I$$RDN= 000000 M$DUMP= 000004 NN$CAC= 000011 P$STPR= 000007 SP$RTP= 000005
K$$CNT= 177546 M$EMOP= 000006 NN$CNI= 000013 P$TEST= 000006 SRLGTM= ****** GX
K$$CSR= 177546 M$LDTR= 000000 NN$CNR= 000014 P$TRIG= 000012 STAMSG 000062R 002
K$$LDC= 000000 M$LOAD= 000002 NN$EXT= 000003 P$ZERO= 000013 STATE 000014
K$$TPS= 000074 M$LOOP= 000030 NN$FMT= 000005 P$$P45= 000000 ST$DIS= 000006
LCOMSG 000201R 002 M$MRUN= 000014 NN$IZS= 000007 RDFMSG 000605R 002 ST$ENA= 000005
LD$LP = 000000 M$PARM= 000024 NN$IZU= 000010 RECPEN= 000020 ST$LOO= 000003
LG.MNT= ****** GX M$RQLD= 000012 NN$MAC= 000012 REJMSG 000652R 002 ST$MAI= 000004
LIDMSG 000135R 002 M$RQPG= 000010 NN$NKS= 000004 REQLEN= 000011 ST$OFF= 000001
LINE 000016 M$$CRB= 000124 NN$RES= 000006 REQMSG 001125R 002 ST$ON = 000000
LINLEN= 000016 M$$CRX= 000000 NN$UMR= 000002 REQPRO 000024 ST$SHU= 000002
LINMSG 001151R 002 M$$FCS= 000000 NN$UMS= 000001 REQTYP 000046 S$$WRG= 000000
LINPRO= 000002 M$$OVR= 000000 NN$ZRO= 000000 RESMSG 000347R 002 S$$YSZ= 001600
LINSWI= 000001 NCOMSG 000461R 002 NO = 000000 RI$LCC= 000001 TABBEG= 000007
LI$KNO= 000000 ND$BAD= 177777 NODLEN= 000006 RI$LCS= 000002 TMOMSG 000762R 002
LI$STA= 000001 ND$LCC= 000000 NODMSG 000232R 002 RI$LNC= 000007 TRAPEN= 000010
LI$STR= 000002 ND$LCS= 000001 NORMSG 000515R 002 RI$LNL= 000006 TYPADR 003336R
LNKPRO= 000003 ND$LNC= 000004 NS$SUC= 000001 RI$LNS= 000010 TYPLEN 001220R 002
LOAD = 000001 ND$LNS= 000005 N$DPOS= 000014 RI$RMC= 000004 T$$KMG= 000000
LOALEN= 000006 ND$RMC= 000002 N$DUMP= 000003 RI$RML= 000003 T$$MIN= 000000
LOAMSG 001204R 002 ND$RMS= 000003 N$EXAM= 000015 RI$RMS= 000005 V$$CTR= 001000
LOCNOD= ****** GX ND$ZLC= 000000 N$LNSR= 000016 RI$ZLC= 000011 X$$DBT= 000000
LOGCN = ****** GX ND$ZLN= 000002 N$LOAD= 000002 RI$ZLN= 000013 YES = 000001
LOGDB = ****** GX ND$ZRM= 000001 N$LOGD= 000001 RI$ZRM= 000012 $$CSTA= 000000
LOGDBE= ****** GX NE$CON= 177762 N$LOOP= 000005 RMBEND 000512R $$PRST= 000023
LOGPRO= 000001 NE$FIL= 177763 N$RDIN= 000010 RMBLCK 000402R $$STIX= 000777
LPRMSG 000416R 002 NE$FIO= 177756 N$STPR= 000007 R$$DER= 000000 $$STNM= 000000
LSTMSG 000155R 002 NE$FOR= 177776 N$TEST= 000006 R$$K11= 000001 $$S762= 000077
LS$DUM= 000002 NE$FUN= 177777 N$TRIG= 000004 R$$SND= 000000 $$S763= 000021
LS$LOA= 000000 NE$LCO= 177766 N$ZERO= 000011 R$$11M= 000000 $$S764= 000077
LS$LOO= 000001 NE$LID= 177770 N$$USR= 000001 SDFMSG 001043R 002 $$S765= 000020
LS$TRI= 000004 NE$LPR= 177757 N.MLEN= 000454 SERMSG 000252R 002 $$S766= 000077
LS$TRQ= 000003 NE$LST= 177767 OBJMSG 001003R 002 SIDLEN= 000020 $$S767= 000017
L$$ASG= 000000 NE$NCO= 177755 OPTSPE= 000004 SMBLK1 000514R $$S770= 000011
L$$DRV= 000000 NE$NIC= 177753 ORDMSG 000106R 002 SMBLK2 000552R $$S771= 000014
L$$P11= 000001 NE$NOD= 177765 ORIGCB 000010 SMB1EN 000550R $$S772= 000077
L$$11R= 000000 NE$NOR= 177754 PARMSG 000366R 002 SMB2EN 000612R $$S773= 000013
L.GLEN= ****** GX NE$ORD= 177774 PT$END= 000000 SOFTID 000025 $$S774= 000077
L.GSEQ= ****** GX NE$PAR= 177760 PT$HOS= 000003 SPRAY = ****** GX $$S775= 000012
MAILEN= 000015 NE$RES= 177761 PT$NAM= 000001 SP$DHO= 000003 $$S776= 000000
MAIMSG 001167R 002 NE$SER= 177764 PT$NUM= 000002 SP$DRP= 000007 $$S777= 000000
MAINT = 000000 NE$STA= 177775 P$DPOS= 000016 SP$DTP= 000010 $$TRNM= 000000
MATCH = ****** GX NICE 001116R 002 P$DUMP= 000003
. ABS. 000051 000
003676 001
BYTE 001223 002
EVEVNT MACRO M1110 13-OCT-79 11:36 PAGE 26-4
SYMBOL TABLE
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 12172 WORDS ( 48 PAGES)
DYNAMIC MEMORY: 13228 WORDS ( 50 PAGES)
ELAPSED TIME: 00:05:28
EVEVNT,[135,30]EVEVNT/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,EVEVNT
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
BEGLEN = 000013 #23-1482 24-1511
BEGMSG 001136 R #23-1481 23-1482 24-1510
BLCNBK = ****** GX 22-1381
BOODEV 000023 7-223 *26-1632
CE$DIS = 177771 12-519
CE$FAI = 177774 14-614
CE$LID = 177766 12-521
CE$NOD = 177765 12-520
CE$NWE = 177773 12-518
CE$OBJ = 177750 12-523
CE$REJ = 177772 12-517
CE$TMO = 177762 12-522
CMLKNM 000000 14-561 14-563 *22-1391
COMLEN = 000010 #13-541 14-599
COMMSG 001076 R #13-540 13-541 14-598
CONMSG 000311 R #11-468 11-493
CS$NCH = 000003 21-1165
CTXTLN = 000051 17-865 17-875
CVLITX = ****** GX 24-1517
C$ALBF = 000032 17-866
C$ALCB = 000033 21-1197 21-1205
C$CLCL = 000067 14-642 18-952 18-955
C$CLLK = 000052 14-564 14-566 14-570
C$CLLN = 000005 12-531 21-1186 21-1201 21-1269 21-1272 21-1279
C$LEN = 000026 21-1209
C$NOPN = 000031 21-1251
C$OPCL = 000066 18-944 19-1015
C$OPLK = 000051 12-526 22-1382 22-1385 22-1395
C$OPLN = 000045 12-530 21-1182 21-1191 21-1199
C$PROC = 000200 9-341 17-861
C$RCBK = 000047 12-532 21-1221 21-1227
C$RCMS = 000054 12-527 22-1408 22-1416 22-1431
C$RLBF = 000001 9-326 14-700 14-703 14-707 14-711
C$RLCB = 000002 21-1249 21-1255
C$STPR = 000037 12-529 14-583 14-585 14-589 21-1158 21-1161 21-1184
C$TRBK = 000046 12-533 21-1218 21-1226 21-1230
C$TRMS = 000053 12-528 22-1393 22-1401 22-1410
C$WRCL = 000065 18-947 18-950
C.ADDR = 000014 7-207 7-241 *9-331 *14-572 14-579 14-650 14-693 *14-714 17-864
17-871 *17-878 17-888 *19-1012 19-1013 21-1154 21-1208 21-1211 *21-1215
21-1216 *21-1219 *21-1248 *21-1260 *22-1380 22-1428 26-1603
C.CTXT = 000004 9-320 *9-339 *14-713 *17-872
C.FUNC = 000006 *5-124 9-326 *9-341 14-558 *14-564 *14-566 14-570 *14-583 *14-585
14-589 *14-642 *14-700 *14-703 *14-707 14-711 *14-715 *14-717 17-861
*17-866 *17-890 18-941 *18-947 *18-952 *19-1015 21-1149 *21-1158 21-1161
*21-1182 *21-1186 21-1191 *21-1197 *21-1201 21-1205 *21-1218 *21-1221 21-1224
21-1241 *21-1249 *21-1251 21-1255 *21-1269 21-1272 *21-1296 *21-1301 22-1377
*22-1382 22-1385 *22-1393 22-1401 *22-1408 22-1416 *22-1436
C.LEN = 000012 *7-242 *9-335 17-863 *17-865 *17-877 *17-886 *18-946 *21-1217 *21-1220
*22-1407 22-1424 26-1605
C.LINE = 000014 17-879 21-1177
C.LKNM = 000020 *9-342 *14-563 22-1391
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
C.MODE = 000021 17-885 *21-1180
C.PROC = 000007 *9-336 *9-338
C.RET = 000010 21-1163 21-1193 21-1236 21-1274 22-1387 22-1403 22-1418
C.SAVE = 000022 9-331 9-335 *14-651 14-668 14-692 14-698 *14-699 *14-702 *17-863
*17-864 17-877 17-878 18-946 *19-1014 21-1215
C.TYPE = 000016 *14-582 *21-1157
C.WAIT = 000020 *21-1181
DEFOPT 000017 R #6-194 7-209
DLCMSG 000727 R #12-509 12-529 12-530 12-531
DUMLEN = 000006 #23-1494 23-1498
DUMMSG 001212 R #23-1493 23-1494 23-1504
DUMP = 000002 26-1619
ENTLEN = 000013 #15-770 16-784
ERRCOD 000050 14-596 14-605 14-614 14-665 *21-1185 *21-1200 *21-1242 *21-1266 21-1277
*21-1280 21-1293 *22-1396 *22-1411 *22-1426 *22-1428 *22-1432
ERRFUN 000047 14-606 *21-1184 *21-1199 21-1239 *21-1241 21-1258 *21-1265 *21-1279 *22-1395
*22-1410 *22-1422 *22-1431
EVABRT 000000 R #5-122 21-1167 21-1298 22-1397 22-1412 22-1434
EVBLMS 000022 R #7-205 22-1392
EVEVNT 000210 RG #9-319
EVFINI 000614 R 9-362 #14-556
EVHOST 001514 R #16-775 22-1379
EVINIT 001614 R 9-328 #17-859
EVLGCM 002006 R 14-645 #18-940 21-1288
EVLGMS 002076 R 14-640 #19-1011 21-1286
EVLINE 002124 R 9-352 #21-1147
EVLINK 003056 R 9-357 #22-1375
EVLMBG 003344 R 14-594 21-1282 #24-1509
EVPARS 003444 R 21-1261 #26-1601
EXTCB 000012 *21-1213 21-1248
E$DTXT = 000016 14-695
E$TSFT = 000004 14-688
FAILEN = 000010 #13-544 14-602
FAIMSG 001106 R #13-543 13-544 14-601
FILMSG 000274 R #11-467 11-492
FINISH = 000004 5-123 9-360
FINMES = 000002 14-592 14-664 21-1169
FIOMSG 000442 R #11-472 11-497
FLAGS 000015 14-574 14-592 14-664 *21-1169 *21-1173 *21-1222 *21-1232 *21-1234 21-1245
FORMSG 000033 R #11-459 11-484
FUNMSG 000000 R #11-458 11-483
F$TRAC = 000000 5-122 5-122 5-125 5-125 7-205 7-205 7-243 7-243 9-319
9-319 9-366 9-366 14-556 14-556 14-718 14-718 16-775 16-775
16-793 16-793 17-859 17-859 17-893 17-893 18-940 18-940 18-961
18-961 19-1011 19-1011 19-1016 19-1016 21-1147 21-1147 21-1302 21-1302
22-1375 22-1375 22-1437 22-1437 24-1509 24-1509 24-1531 24-1531 26-1601
26-1601 26-1686 26-1686
GTMSBY = ****** GX 26-1606 26-1628 26-1637 26-1662
GTMSWD = ****** GX 26-1652 26-1657
HOSDB = ****** GX 16-776 16-791
HOSDBE = ****** GX 16-778 16-787
HOSMSG 000700 R #12-508 12-520
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
I$$AS = ****** 5-122 7-205 9-319 14-556 16-775 17-859 18-940 19-1011 21-1147
22-1375 24-1509 26-1601
LCOMSG 000201 R #11-464 11-489 12-532 12-533
LG.MNT = ****** GX 14-658
LIDMSG 000135 R #11-462 11-487 12-521
LINE 000016 7-216 14-576 16-779 16-780 16-781 16-782 17-882 21-1151 21-1174
24-1515
LINLEN = 000016 #23-1485 24-1523
LINMSG 001151 R #23-1484 23-1485 24-1522
LINPRO = 000002 9-350 17-889
LINSWI = 000001 14-574 21-1173
LI$STA = 000001 7-215
LNKPRO = 000003 9-355 21-1295
LOAD = 000001 7-221 26-1614 26-1635
LOALEN = 000006 #23-1491 23-1498
LOAMSG 001204 R #23-1490 23-1491 23-1504
LOCNOD = ****** GX 7-213 14-681
LOGCN = ****** GX *9-334
LOGDB = ****** GX 14-655
LOGDBE = ****** GX 14-657 14-663
LPRMSG 000416 R #11-471 11-496
LSTMSG 000155 R #11-463 11-488
L.GLEN = ****** GX 14-660
L.GSEQ = ****** GX 14-686 *14-687
MAILEN = 000015 #23-1488 23-1498
MAIMSG 001167 R #23-1487 23-1488 23-1504
MATCH = ****** GX 14-624
MEMLEN 000004 7-236 *26-1656 *26-1661
MESBUF 000002 14-572 *17-888 19-1012 21-1219 21-1260 22-1380 24-1512
MF$DUM = 000002 26-1667
MODE 000022 *17-885 21-1180
MOVE = ****** GX 7-219 7-230 7-239 14-580 14-603 14-639 14-685 14-697 17-884
21-1155 21-1179 21-1210 21-1285 24-1513 24-1524 24-1530
MVMSIM = ****** GX 26-1648
M$MRUN = 000014 21-1216 26-1617
M$RQPG = 000010 26-1612
NCOMSG 000461 R #11-473 11-498 12-518 12-519 12-526 12-527 12-528
NE$CON = 177762 11-493
NE$FIL = 177763 11-492
NE$FIO = 177756 11-497
NE$FOR = 177776 11-484 22-1426
NE$FUN = 177777 11-483
NE$LCO = 177766 11-489
NE$LID = 177770 11-487
NE$LPR = 177757 11-496 21-1266
NE$LST = 177767 11-488
NE$NCO = 177755 11-498
NE$NIC = 177753 11-500
NE$NOD = 177765 11-490
NE$NOR = 177754 11-499
NE$ORD = 177774 11-486
NE$PAR = 177760 11-495
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
NE$RES = 177761 11-494
NE$SER = 177764 11-491
NE$STA = 177775 11-485
NICE 001116 R #13-548 13-549 14-684
NICELN = 000007 #13-549 14-683
NICFUN 000014 R #6-186 7-208
NICMSG 000543 R #11-475 11-500
NODLEN = 000006 7-212
NODMSG 000232 R #11-465 11-490
NORMSG 000515 R #11-474 11-499
N$DUMP = 000003 6-190
N$LOAD = 000002 6-189
N$LOGD = 000001 14-676
N.MLEN = 000454 17-886 21-1220 22-1407
OBJMSG 001003 R #12-511 12-523
ORDMSG 000106 R #11-461 11-486
ORIGCB 000010 *21-1214 21-1247
PARMSG 000366 R #11-470 11-495
P$GTCM = 000001 9-338
P$LOGD = 000020 9-336
RDFMSG 000605 R #11-476 11-501
RECPEN = 000020 21-1222 21-1234 21-1245
REJMSG 000652 R #12-507 12-517
REQLEN = 000011 #20-1140 21-1284
REQMSG 001125 R #20-1139 20-1140 21-1283
REQPRO 000024 7-225 *26-1641
REQTYP 000046 7-206 7-221 24-1526 *26-1614 *26-1619 26-1635
RESMSG 000347 R #11-469 11-494
RMBEND 000512 R #11-501 14-611
RMBLCK 000402 R #11-482 14-610
R$$11D = ****** 5-122 7-205 9-319 14-556 16-775 17-859 18-940 19-1011 21-1147
22-1375 24-1509 26-1601
R$$11M = 000000 5-122 7-205 9-319 14-556 16-775 17-859 18-940 19-1011 21-1147
22-1375 24-1509 26-1601
SDFMSG 001043 R #12-512 12-524 12-534
SERMSG 000252 R #11-466 11-491
SIDLEN = 000020 26-1645
SMBLK1 000514 R #12-517 14-620
SMBLK2 000552 R #12-526 14-617
SMB1EN 000550 R #12-524 14-621
SMB2EN 000612 R #12-534 14-618
SOFTID 000025 7-226 7-228 26-1646
SPRAY = ****** GX 17-876
SP$LST = 000001 14-582 21-1157
SRLGTM = ****** GX 14-691
STAMSG 000062 R #11-460 11-485
STATE 000014 *5-123 9-323 9-350 9-355 9-360 *17-889 *21-1295
ST$MAI = 000004 21-1156
ST$ON = 000000 14-581
TABBEG = 000007 #15-770 16-776
TMOMSG 000762 R #12-510 12-522
TRAPEN = 000010 21-1222 21-1232 21-1245
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
TYPADR 003336 R #23-1504 24-1529
TYPLEN 001220 R #23-1498 24-1527
$$CSTA = 000000 #5-122 #7-205 #9-319 #14-556 #16-775 #17-859 #18-940 *18-942 #18-942
18-943 #18-943 18-949 18-954 #18-960 #19-1011 #21-1147 #22-1375 #24-1509
#26-1601 26-1610 #26-1610 26-1611 #26-1611 26-1616 #26-1623
$$PRST = 000023 #5-122 #7-205 7-220 #7-220 #9-319 *9-321 #9-321 9-325 #9-325
9-330 #9-330 9-346 #9-346 9-349 #9-349 9-354 #9-354 9-359
#9-359 #14-556 14-557 #14-557 14-560 #14-560 14-569 #14-569 *14-573
#14-573 14-588 #14-588 14-591 #14-591 14-595 #14-595 *14-607 #14-607
14-613 #14-613 14-625 #14-625 *14-632 #14-632 14-646 #14-646 14-649
#14-649 *14-656 #14-656 14-662 #14-662 14-671 #14-671 14-710 #14-710
#16-775 *16-777 #16-777 16-786 #16-786 #17-859 17-860 #17-860 17-868
#17-868 #18-940 *18-942 #18-942 #19-1011 #21-1147 21-1148 #21-1148 21-1160
#21-1160 *21-1164 #21-1164 *21-1170 #21-1170 21-1190 #21-1190 *21-1194 #21-1194
21-1204 #21-1204 *21-1225 #21-1225 21-1229 #21-1229 *21-1237 #21-1237 21-1244
#21-1244 21-1254 #21-1254 21-1257 #21-1257 21-1262 #21-1262 21-1271 #21-1271
*21-1275 #21-1275 21-1289 #21-1289 21-1292 #21-1292 #22-1375 22-1376 #22-1376
22-1384 #22-1384 *22-1388 #22-1388 22-1400 #22-1400 *22-1404 #22-1404 22-1415
#22-1415 *22-1419 #22-1419 22-1423 #22-1423 #24-1509 *24-1519 #24-1519 #26-1601
26-1607 #26-1607 26-1610 #26-1610 26-1625 #26-1625 26-1629 #26-1629 26-1634
#26-1634 26-1638 #26-1638 *26-1642 #26-1642 26-1653 #26-1653 26-1658 #26-1658
26-1663 #26-1663 26-1666 #26-1666 26-1677 #26-1677
$$SLST = ****** 5-122 5-125 7-205 7-221 7-221 7-222 7-231 7-231 7-240
7-243 9-319 9-322 9-322 9-323 9-323 9-324 9-326 9-326
9-327 9-329 9-329 9-332 9-333 9-337 9-337 9-340 9-344
9-345 9-347 9-347 9-348 9-350 9-350 9-351 9-353 9-355
9-355 9-356 9-358 9-360 9-360 9-361 9-363 9-364 9-366
14-556 14-558 14-558 14-559 14-561 14-561 14-562 14-565 14-565
14-567 14-568 14-570 14-570 14-571 14-574 14-574 14-575 14-584
14-584 14-586 14-587 14-589 14-589 14-590 14-592 14-592 14-593
14-596 14-596 14-597 14-600 14-600 14-608 14-609 14-612 14-612
14-614 14-614 14-615 14-619 14-619 14-622 14-623 14-626 14-627
14-629 14-632 14-633 14-633 14-634 14-636 14-636 14-638 14-641
14-641 14-643 14-644 14-647 14-648 14-652 14-653 14-656 14-657
14-657 14-658 14-658 14-659 14-661 14-661 14-663 14-663 14-664
14-664 14-665 14-665 14-666 14-671 14-672 14-672 14-673 14-675
14-675 14-701 14-701 14-704 14-706 14-706 14-708 14-709 14-711
14-711 14-712 14-716 14-718 16-775 16-777 16-778 16-778 16-779
16-779 16-780 16-780 16-781 16-781 16-782 16-782 16-783 16-785
16-785 16-787 16-787 16-788 16-790 16-790 16-792 16-793 17-859
17-861 17-861 17-862 17-867 17-867 17-869 17-869 17-870 17-887
17-887 17-891 17-892 17-893 18-940 18-944 18-944 18-945 18-949
18-949 18-950 18-950 18-951 18-954 18-954 18-955 18-955 18-956
18-958 18-958 18-960 18-961 19-1011 19-1016 21-1147 21-1149 21-1149
21-1150 21-1159 21-1161 21-1161 21-1162 21-1165 21-1165 21-1166 21-1168
21-1168 21-1171 21-1171 21-1172 21-1183 21-1183 21-1187 21-1188 21-1189
21-1191 21-1191 21-1192 21-1195 21-1196 21-1198 21-1198 21-1202 21-1203
21-1205 21-1205 21-1206 21-1223 21-1226 21-1226 21-1227 21-1227 21-1228
21-1230 21-1230 21-1231 21-1233 21-1233 21-1235 21-1238 21-1239 21-1239
21-1240 21-1243 21-1245 21-1245 21-1246 21-1250 21-1250 21-1252 21-1253
21-1255 21-1255 21-1256 21-1258 21-1258 21-1259 21-1263 21-1264 21-1267
21-1268 21-1270 21-1272 21-1272 21-1273 21-1276 21-1277 21-1277 21-1278
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
21-1281 21-1287 21-1290 21-1291 21-1293 21-1293 21-1294 21-1297 21-1297
21-1299 21-1300 21-1302 22-1375 22-1377 22-1377 22-1378 22-1383 22-1385
22-1385 22-1386 22-1389 22-1390 22-1394 22-1394 22-1398 22-1399 22-1401
22-1401 22-1402 22-1405 22-1406 22-1409 22-1409 22-1413 22-1414 22-1416
22-1416 22-1417 22-1420 22-1421 22-1424 22-1424 22-1425 22-1427 22-1427
22-1429 22-1430 22-1430 22-1433 22-1435 22-1437 24-1509 24-1520 24-1521
24-1525 24-1531 26-1601 26-1608 26-1609 26-1612 26-1612 26-1613 26-1616
26-1616 26-1617 26-1617 26-1618 26-1621 26-1621 26-1623 26-1624 26-1626
26-1627 26-1630 26-1631 26-1635 26-1635 26-1636 26-1639 26-1640 26-1643
26-1643 26-1644 26-1649 26-1650 26-1651 26-1651 26-1654 26-1655 26-1659
26-1660 26-1664 26-1665 26-1667 26-1667 26-1668 26-1670 26-1671 26-1672
26-1673 26-1674 26-1675 26-1676 26-1678 26-1679 26-1679 26-1680 26-1682
26-1682 26-1684 26-1686
$$STIX = 000777 #5-122 #7-205 7-220 7-220 #7-220 7-220 7-220 #7-220 7-240
#7-240 7-240 7-240 #7-240 7-240 #9-319 *9-321 *9-321 #9-321
*9-321 *9-321 #9-321 9-325 9-325 #9-325 9-325 9-325 #9-325
9-330 9-330 #9-330 9-330 9-330 #9-330 9-340 #9-340 9-340
9-340 #9-340 9-340 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-346 9-346 #9-346
9-346 9-346 #9-346 9-349 9-349 #9-349 9-349 9-349 #9-349
9-353 #9-353 9-353 9-353 #9-353 9-353 9-354 9-354 #9-354
9-354 9-354 #9-354 9-358 #9-358 9-358 9-358 #9-358 9-358
9-359 9-359 #9-359 9-359 9-359 #9-359 9-363 #9-363 9-363
9-363 #9-363 9-363 9-364 #9-364 9-364 9-364 #9-364 9-364
#14-556 14-557 14-557 #14-557 14-557 14-557 #14-557 14-560 14-560
#14-560 14-560 14-560 #14-560 14-567 #14-567 14-567 14-567 #14-567
14-567 14-568 #14-568 14-568 14-568 #14-568 14-568 14-569 14-569
#14-569 14-569 14-569 #14-569 *14-573 *14-573 #14-573 *14-573 *14-573
#14-573 14-586 #14-586 14-586 14-586 #14-586 14-586 14-587 #14-587
14-587 14-587 #14-587 14-587 14-588 14-588 #14-588 14-588 14-588
#14-588 14-591 14-591 #14-591 14-591 14-591 #14-591 14-595 14-595
#14-595 14-595 14-595 #14-595 *14-607 *14-607 #14-607 *14-607 *14-607
#14-607 14-613 14-613 #14-613 14-613 14-613 #14-613 14-622 #14-622
14-622 14-622 #14-622 14-622 14-623 #14-623 14-623 14-623 #14-623
14-623 14-625 14-625 #14-625 14-625 14-625 #14-625 14-629 #14-629
14-629 14-629 #14-629 14-629 *14-632 *14-632 #14-632 *14-632 *14-632
#14-632 14-636 #14-636 14-636 14-636 #14-636 14-636 14-638 #14-638
14-638 14-638 #14-638 14-638 14-643 #14-643 14-643 14-643 #14-643
14-643 14-644 #14-644 14-644 14-644 #14-644 14-644 14-646 14-646
#14-646 14-646 14-646 #14-646 14-649 14-649 #14-649 14-649 14-649
#14-649 *14-656 *14-656 #14-656 *14-656 *14-656 #14-656 14-661 #14-661
14-661 14-661 #14-661 14-661 14-662 14-662 #14-662 14-662 14-662
#14-662 14-671 14-671 #14-671 14-671 14-671 #14-671 14-675 #14-675
14-675 14-675 #14-675 14-675 14-704 #14-704 14-704 14-704 #14-704
14-704 14-708 #14-708 14-708 14-708 #14-708 14-708 14-709 #14-709
14-709 14-709 #14-709 14-709 14-710 14-710 #14-710 14-710 14-710
#14-710 14-716 #14-716 14-716 14-716 #14-716 14-716 #16-775 *16-777
*16-777 #16-777 *16-777 *16-777 #16-777 16-785 #16-785 16-785 16-785
#16-785 16-785 16-786 16-786 #16-786 16-786 16-786 #16-786 16-792
#16-792 16-792 16-792 #16-792 16-792 #17-859 17-860 17-860 #17-860
17-860 17-860 #17-860 17-868 17-868 #17-868 17-868 17-868 #17-868
17-891 #17-891 17-891 17-891 #17-891 17-891 17-892 #17-892 17-892
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
17-892 #17-892 17-892 #18-940 *18-942 *18-942 #18-942 *18-942 *18-942
#18-942 *18-942 *18-942 #18-942 18-960 #18-960 18-960 18-960 #18-960
18-960 18-960 #18-960 18-960 #19-1011 #21-1147 21-1148 21-1148 #21-1148
21-1148 21-1148 #21-1148 21-1159 #21-1159 21-1159 21-1159 #21-1159 21-1159
21-1160 21-1160 #21-1160 21-1160 21-1160 #21-1160 *21-1164 *21-1164 #21-1164
*21-1164 *21-1164 #21-1164 *21-1170 *21-1170 #21-1170 *21-1170 *21-1170 #21-1170
21-1187 #21-1187 21-1187 21-1187 #21-1187 21-1187 21-1188 #21-1188 21-1188
21-1188 #21-1188 21-1188 21-1189 #21-1189 21-1189 21-1189 #21-1189 21-1189
21-1190 21-1190 #21-1190 21-1190 21-1190 #21-1190 *21-1194 *21-1194 #21-1194
*21-1194 *21-1194 #21-1194 21-1202 #21-1202 21-1202 21-1202 #21-1202 21-1202
21-1203 #21-1203 21-1203 21-1203 #21-1203 21-1203 21-1204 21-1204 #21-1204
21-1204 21-1204 #21-1204 21-1223 #21-1223 21-1223 21-1223 #21-1223 21-1223
*21-1225 *21-1225 #21-1225 *21-1225 *21-1225 #21-1225 21-1229 21-1229 #21-1229
21-1229 21-1229 #21-1229 21-1235 #21-1235 21-1235 21-1235 #21-1235 21-1235
*21-1237 *21-1237 #21-1237 *21-1237 *21-1237 #21-1237 21-1243 #21-1243 21-1243
21-1243 #21-1243 21-1243 21-1244 21-1244 #21-1244 21-1244 21-1244 #21-1244
21-1252 #21-1252 21-1252 21-1252 #21-1252 21-1252 21-1253 #21-1253 21-1253
21-1253 #21-1253 21-1253 21-1254 21-1254 #21-1254 21-1254 21-1254 #21-1254
21-1257 21-1257 #21-1257 21-1257 21-1257 #21-1257 21-1262 21-1262 #21-1262
21-1262 21-1262 #21-1262 21-1267 #21-1267 21-1267 21-1267 #21-1267 21-1267
21-1268 #21-1268 21-1268 21-1268 #21-1268 21-1268 21-1270 #21-1270 21-1270
21-1270 #21-1270 21-1270 21-1271 21-1271 #21-1271 21-1271 21-1271 #21-1271
*21-1275 *21-1275 #21-1275 *21-1275 *21-1275 #21-1275 21-1281 #21-1281 21-1281
21-1281 #21-1281 21-1281 21-1287 #21-1287 21-1287 21-1287 #21-1287 21-1287
21-1289 21-1289 #21-1289 21-1289 21-1289 #21-1289 21-1292 21-1292 #21-1292
21-1292 21-1292 #21-1292 21-1299 #21-1299 21-1299 21-1299 #21-1299 21-1299
21-1300 #21-1300 21-1300 21-1300 #21-1300 21-1300 #22-1375 22-1376 22-1376
#22-1376 22-1376 22-1376 #22-1376 22-1383 #22-1383 22-1383 22-1383 #22-1383
22-1383 22-1384 22-1384 #22-1384 22-1384 22-1384 #22-1384 *22-1388 *22-1388
#22-1388 *22-1388 *22-1388 #22-1388 22-1398 #22-1398 22-1398 22-1398 #22-1398
22-1398 22-1399 #22-1399 22-1399 22-1399 #22-1399 22-1399 22-1400 22-1400
#22-1400 22-1400 22-1400 #22-1400 *22-1404 *22-1404 #22-1404 *22-1404 *22-1404
#22-1404 22-1413 #22-1413 22-1413 22-1413 #22-1413 22-1413 22-1414 #22-1414
22-1414 22-1414 #22-1414 22-1414 22-1415 22-1415 #22-1415 22-1415 22-1415
#22-1415 *22-1419 *22-1419 #22-1419 *22-1419 *22-1419 #22-1419 22-1423 22-1423
#22-1423 22-1423 22-1423 #22-1423 22-1429 #22-1429 22-1429 22-1429 #22-1429
22-1429 22-1433 #22-1433 22-1433 22-1433 #22-1433 22-1433 22-1435 #22-1435
22-1435 22-1435 #22-1435 22-1435 #24-1509 *24-1519 *24-1519 #24-1519 *24-1519
*24-1519 #24-1519 24-1525 #24-1525 24-1525 24-1525 #24-1525 24-1525 #26-1601
26-1607 26-1607 #26-1607 26-1607 26-1607 #26-1607 26-1610 26-1610 #26-1610
26-1610 26-1610 #26-1610 26-1610 26-1610 #26-1610 26-1623 #26-1623 26-1623
26-1623 #26-1623 26-1623 26-1623 #26-1623 26-1623 26-1624 #26-1624 26-1624
26-1624 #26-1624 26-1624 26-1625 26-1625 #26-1625 26-1625 26-1625 #26-1625
26-1629 26-1629 #26-1629 26-1629 26-1629 #26-1629 26-1634 26-1634 #26-1634
26-1634 26-1634 #26-1634 26-1638 26-1638 #26-1638 26-1638 26-1638 #26-1638
*26-1642 *26-1642 #26-1642 *26-1642 *26-1642 #26-1642 26-1649 #26-1649 26-1649
26-1649 #26-1649 26-1649 26-1650 #26-1650 26-1650 26-1650 #26-1650 26-1650
26-1653 26-1653 #26-1653 26-1653 26-1653 #26-1653 26-1658 26-1658 #26-1658
26-1658 26-1658 #26-1658 26-1663 26-1663 #26-1663 26-1663 26-1663 #26-1663
26-1666 26-1666 #26-1666 26-1666 26-1666 #26-1666 26-1670 #26-1670 26-1670
26-1670 #26-1670 26-1670 26-1671 #26-1671 26-1671 26-1671 #26-1671 26-1671
26-1672 #26-1672 26-1672 26-1672 #26-1672 26-1672 26-1673 #26-1673 26-1673
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 8
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
26-1673 #26-1673 26-1673 26-1674 #26-1674 26-1674 26-1674 #26-1674 26-1674
26-1675 #26-1675 26-1675 26-1675 #26-1675 26-1675 26-1676 #26-1676 26-1676
26-1676 #26-1676 26-1676 26-1677 26-1677 #26-1677 26-1677 26-1677 #26-1677
26-1684 #26-1684 26-1684 26-1684 #26-1684 26-1684
$$STNM = 000000 #5-122 #7-205 7-220 #7-220 7-220 7-221 7-222 7-231 7-231
7-240 #7-240 #9-319 *9-321 #9-321 *9-321 9-322 9-323 9-324
9-325 #9-325 9-325 9-326 9-327 9-329 9-329 9-330 #9-330
9-330 9-332 9-333 *9-337 9-337 *9-340 #9-340 9-344 #9-344
9-345 #9-345 9-346 #9-346 9-346 9-347 9-348 9-349 #9-349
9-349 9-350 9-351 9-353 #9-353 9-354 #9-354 9-354 9-355
9-356 9-358 #9-358 9-359 #9-359 9-359 9-360 9-361 9-363
#9-363 9-364 #9-364 #14-556 14-557 #14-557 14-557 14-558 14-559
14-560 #14-560 14-560 14-561 14-562 *14-565 14-565 *14-567 #14-567
14-568 #14-568 14-569 #14-569 14-569 14-570 14-571 *14-573 #14-573
*14-573 14-574 14-575 *14-584 14-584 *14-586 #14-586 14-587 #14-587
14-588 #14-588 14-588 14-589 14-590 14-591 #14-591 14-591 14-592
14-593 14-595 #14-595 14-595 14-596 14-597 *14-600 14-600 *14-607
#14-607 *14-607 14-608 14-609 *14-612 14-612 14-613 #14-613 14-613
14-614 14-615 *14-619 14-619 *14-622 #14-622 14-623 #14-623 14-625
#14-625 14-625 14-626 14-627 *14-629 #14-629 *14-632 #14-632 *14-632
*14-632 14-633 14-634 14-636 14-636 #14-636 *14-638 #14-638 14-641
14-641 *14-643 #14-643 14-644 #14-644 14-646 #14-646 14-646 14-647
14-648 14-649 #14-649 14-649 14-652 14-653 *14-656 #14-656 *14-656
*14-656 14-657 14-658 14-659 14-661 14-661 #14-661 14-662 #14-662
14-662 14-663 14-664 14-665 14-666 14-671 #14-671 14-671 14-671
14-672 14-673 *14-675 14-675 #14-675 *14-701 14-701 *14-704 #14-704
*14-706 14-706 *14-708 #14-708 14-709 #14-709 14-710 #14-710 14-710
14-711 14-712 14-716 #14-716 #16-775 *16-777 #16-777 *16-777 *16-777
16-778 16-779 16-780 16-781 16-782 16-783 16-785 16-785 #16-785
16-786 #16-786 16-786 16-787 16-788 16-790 16-790 *16-792 #16-792
#17-859 17-860 #17-860 17-860 17-861 17-862 *17-867 17-867 17-868
#17-868 17-868 17-869 17-870 *17-887 17-887 17-891 #17-891 17-892
#17-892 #18-940 *18-942 #18-942 *18-942 18-944 18-945 18-949 18-949
18-950 18-951 18-954 18-954 18-955 18-956 18-958 18-958 18-960
#18-960 #19-1011 #21-1147 21-1148 #21-1148 21-1148 21-1149 21-1150 *21-1159
#21-1159 21-1160 #21-1160 21-1160 21-1161 21-1162 *21-1164 #21-1164 *21-1164
21-1165 21-1166 21-1168 21-1168 *21-1170 #21-1170 *21-1170 21-1171 21-1172
*21-1183 21-1183 *21-1187 #21-1187 21-1188 #21-1188 21-1189 #21-1189 21-1190
#21-1190 21-1190 21-1191 21-1192 *21-1194 #21-1194 *21-1194 21-1195 21-1196
*21-1198 21-1198 *21-1202 #21-1202 21-1203 #21-1203 21-1204 #21-1204 21-1204
21-1205 21-1206 *21-1223 #21-1223 *21-1225 #21-1225 *21-1225 21-1226 21-1227
21-1228 21-1229 #21-1229 21-1229 21-1230 21-1231 *21-1233 21-1233 *21-1235
#21-1235 *21-1237 #21-1237 *21-1237 21-1238 21-1239 21-1240 *21-1243 #21-1243
21-1244 #21-1244 21-1244 21-1245 21-1246 *21-1250 21-1250 *21-1252 #21-1252
21-1253 #21-1253 21-1254 #21-1254 21-1254 21-1255 21-1256 21-1257 #21-1257
21-1257 21-1258 21-1259 21-1262 #21-1262 21-1262 21-1263 21-1264 *21-1267
#21-1267 21-1268 #21-1268 *21-1270 #21-1270 21-1271 #21-1271 21-1271 21-1272
21-1273 *21-1275 #21-1275 *21-1275 21-1276 21-1277 21-1278 *21-1281 #21-1281
21-1287 #21-1287 21-1289 #21-1289 21-1289 21-1290 21-1291 21-1292 #21-1292
21-1292 21-1293 21-1294 21-1297 21-1297 21-1299 #21-1299 21-1300 #21-1300
#22-1375 22-1376 #22-1376 22-1376 22-1377 22-1378 *22-1383 #22-1383 22-1384
#22-1384 22-1384 22-1385 22-1386 *22-1388 #22-1388 *22-1388 22-1389 22-1390
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 9
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
*22-1394 22-1394 22-1398 #22-1398 22-1399 #22-1399 22-1400 #22-1400 22-1400
22-1401 22-1402 *22-1404 #22-1404 *22-1404 22-1405 22-1406 *22-1409 22-1409
22-1413 #22-1413 22-1414 #22-1414 22-1415 #22-1415 22-1415 22-1416 22-1417
*22-1419 #22-1419 *22-1419 22-1420 22-1421 22-1423 #22-1423 22-1423 22-1424
22-1425 *22-1427 22-1427 *22-1429 #22-1429 22-1430 22-1430 *22-1433 #22-1433
22-1435 #22-1435 #24-1509 *24-1519 #24-1519 *24-1519 24-1520 24-1521 24-1525
#24-1525 #26-1601 26-1607 #26-1607 26-1607 26-1608 26-1609 26-1610 #26-1610
26-1610 26-1612 26-1613 26-1616 26-1616 26-1617 26-1618 26-1621 26-1621
26-1623 #26-1623 26-1624 #26-1624 26-1625 #26-1625 26-1625 26-1626 26-1627
26-1629 #26-1629 26-1629 26-1630 26-1631 26-1634 #26-1634 26-1634 26-1635
26-1636 26-1638 #26-1638 26-1638 26-1639 26-1640 *26-1642 #26-1642 *26-1642
26-1643 26-1644 26-1649 #26-1649 26-1650 #26-1650 26-1651 26-1651 26-1653
#26-1653 26-1653 26-1654 26-1655 26-1658 #26-1658 26-1658 26-1659 26-1660
26-1663 #26-1663 26-1663 26-1664 26-1665 26-1666 #26-1666 26-1666 26-1667
26-1668 26-1670 #26-1670 26-1671 #26-1671 26-1672 #26-1672 26-1673 #26-1673
26-1674 #26-1674 26-1675 #26-1675 26-1676 #26-1676 26-1677 #26-1677 26-1677
26-1678 26-1679 26-1680 26-1682 26-1682 26-1684 #26-1684
$$S762 = 000077 #26-1666 26-1670
$$S763 = 000021 #26-1666 26-1670
$$S764 = 000077 #26-1663 26-1671
$$S765 = 000020 #26-1663 26-1671
$$S766 = 000077 #14-613 14-622 #26-1642 26-1649 #26-1658 26-1672
$$S767 = 000017 #14-613 14-622 #26-1642 26-1649 #26-1658 26-1672
$$S770 = 000011 #14-607 14-623 #14-625 14-629 #14-632 14-636 #14-671 14-675 #26-1638
26-1650 #26-1653 26-1673
$$S771 = 000014 #14-607 14-623 #14-625 14-629 #14-632 14-636 #14-671 14-675 #26-1638
26-1650 #26-1653 26-1673
$$S772 = 000077 #9-330 9-340 #14-595 14-638 #14-656 14-661 #14-662 14-704 #21-1170
21-1187 #21-1262 21-1267 #22-1423 22-1429 #26-1634 26-1674
$$S773 = 000013 #9-330 9-340 #14-595 14-638 #14-656 14-661 #14-662 14-704 #21-1170
21-1187 #21-1262 21-1267 #22-1423 22-1429 #26-1610 26-1623 #26-1634 26-1674
$$S774 = 000077 #9-325 9-344 #9-349 9-353 #9-354 9-358 #9-359 9-363 #14-560
14-567 #14-573 14-586 #14-591 14-643 #14-649 14-708 #17-868 17-891
#21-1164 21-1188 #21-1194 21-1202 #21-1229 21-1235 #21-1237 21-1243 #21-1244
21-1252 #21-1257 21-1268 #21-1275 21-1281 #21-1292 21-1299 #22-1388 22-1398
#22-1404 22-1413 #22-1419 22-1433 #26-1610 26-1623 #26-1629 26-1675
$$S775 = 000012 #9-325 9-344 #9-349 9-353 #9-354 9-358 #9-359 9-363 #14-560
14-567 #14-573 14-586 #14-591 14-643 #14-649 14-708 #17-868 17-891
#18-942 18-960 #21-1164 21-1188 #21-1194 21-1202 #21-1229 21-1235 #21-1237
21-1243 #21-1244 21-1252 #21-1257 21-1268 #21-1275 21-1281 #21-1292 21-1299
#22-1388 22-1398 #22-1404 22-1413 #22-1419 22-1433 #26-1610 26-1623 #26-1629
26-1675
$$S776 = 000000 #7-220 7-240 #9-321 9-345 #9-346 9-364 #14-557 14-568 #14-569
14-587 #14-588 14-644 #14-646 14-709 #14-710 14-716 #16-777 16-785
#16-786 16-792 #17-860 17-892 #18-942 18-960 #21-1148 21-1159 #21-1160
21-1189 #21-1190 21-1203 #21-1204 21-1223 #21-1225 21-1253 #21-1254 21-1270
#21-1271 21-1287 #21-1289 21-1300 #22-1376 22-1383 #22-1384 22-1399 #22-1400
22-1414 #22-1415 22-1435 #24-1519 24-1525 #26-1607 26-1624 #26-1625 26-1676
#26-1677 26-1684
$$S777 = 000000 #7-220 7-240 #9-321 9-345 #9-346 9-364 #14-557 14-568 #14-569
14-587 #14-588 14-644 #14-646 14-709 #14-710 14-716 #16-777 16-785
#16-786 16-792 #17-860 17-892 #18-942 18-960 #21-1148 21-1159 #21-1160
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 10
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
21-1189 #21-1190 21-1203 #21-1204 21-1223 #21-1225 21-1253 #21-1254 21-1270
#21-1271 21-1287 #21-1289 21-1300 #22-1376 22-1383 #22-1384 22-1399 #22-1400
22-1414 #22-1415 22-1435 #24-1519 24-1525 #26-1607 26-1624 #26-1625 26-1676
#26-1677 26-1684
$$TRNM = 000000 #5-122 #7-205 7-220 #7-220 7-221 7-222 7-231 #7-231 7-240
#7-240 #9-319 *9-321 #9-321 9-322 9-323 9-324 9-325 #9-325
9-326 9-327 9-329 #9-329 9-330 #9-330 9-332 9-333 9-337
#9-337 *9-340 #9-340 9-344 #9-344 9-345 #9-345 9-346 #9-346
9-347 9-348 9-349 #9-349 9-350 9-351 9-353 #9-353 9-354
#9-354 9-355 9-356 9-358 #9-358 9-359 #9-359 9-360 9-361
9-363 #9-363 9-364 #9-364 #14-556 14-557 #14-557 14-558 14-559
14-560 #14-560 14-561 14-562 14-565 #14-565 *14-567 #14-567 14-568
#14-568 14-569 #14-569 14-570 14-571 *14-573 #14-573 14-574 14-575
14-584 #14-584 *14-586 #14-586 14-587 #14-587 14-588 #14-588 14-589
14-590 14-591 #14-591 14-592 14-593 14-595 #14-595 14-596 14-597
14-600 #14-600 *14-607 #14-607 14-608 14-609 14-612 #14-612 14-613
#14-613 14-614 14-615 14-619 #14-619 *14-622 #14-622 14-623 #14-623
14-625 #14-625 14-626 14-627 *14-629 #14-629 *14-632 #14-632 14-633
14-634 14-636 #14-636 *14-638 #14-638 14-641 #14-641 *14-643 #14-643
14-644 #14-644 14-646 #14-646 14-647 14-648 14-649 #14-649 14-652
14-653 *14-656 #14-656 14-657 14-658 14-659 14-661 #14-661 14-662
#14-662 14-663 14-664 14-665 14-666 14-671 #14-671 14-672 14-673
14-675 #14-675 14-701 #14-701 *14-704 #14-704 14-706 #14-706 *14-708
#14-708 14-709 #14-709 14-710 #14-710 14-711 14-712 14-716 #14-716
#16-775 *16-777 #16-777 16-778 16-779 16-780 16-781 16-782 16-783
16-785 #16-785 16-786 #16-786 16-787 16-788 16-790 #16-790 *16-792
#16-792 #17-859 17-860 #17-860 17-861 17-862 17-867 #17-867 17-868
#17-868 17-869 17-870 17-887 #17-887 17-891 #17-891 17-892 #17-892
#18-940 *18-942 #18-942 18-944 18-945 18-949 18-949 #18-949 18-950
18-951 18-954 18-954 #18-954 18-955 18-956 18-958 #18-958 18-960
18-960 #18-960 #19-1011 #21-1147 21-1148 #21-1148 21-1149 21-1150 *21-1159
#21-1159 21-1160 #21-1160 21-1161 21-1162 *21-1164 #21-1164 21-1165 21-1166
21-1168 #21-1168 *21-1170 #21-1170 21-1171 21-1172 21-1183 #21-1183 *21-1187
#21-1187 21-1188 #21-1188 21-1189 #21-1189 21-1190 #21-1190 21-1191 21-1192
*21-1194 #21-1194 21-1195 21-1196 21-1198 #21-1198 *21-1202 #21-1202 21-1203
#21-1203 21-1204 #21-1204 21-1205 21-1206 *21-1223 #21-1223 *21-1225 #21-1225
21-1226 21-1227 21-1228 21-1229 #21-1229 21-1230 21-1231 21-1233 #21-1233
*21-1235 #21-1235 *21-1237 #21-1237 21-1238 21-1239 21-1240 *21-1243 #21-1243
21-1244 #21-1244 21-1245 21-1246 21-1250 #21-1250 *21-1252 #21-1252 21-1253
#21-1253 21-1254 #21-1254 21-1255 21-1256 21-1257 #21-1257 21-1258 21-1259
21-1262 #21-1262 21-1263 21-1264 *21-1267 #21-1267 21-1268 #21-1268 *21-1270
#21-1270 21-1271 #21-1271 21-1272 21-1273 *21-1275 #21-1275 21-1276 21-1277
21-1278 *21-1281 #21-1281 21-1287 #21-1287 21-1289 #21-1289 21-1290 21-1291
21-1292 #21-1292 21-1293 21-1294 21-1297 #21-1297 21-1299 #21-1299 21-1300
#21-1300 #22-1375 22-1376 #22-1376 22-1377 22-1378 *22-1383 #22-1383 22-1384
#22-1384 22-1385 22-1386 *22-1388 #22-1388 22-1389 22-1390 22-1394 #22-1394
22-1398 #22-1398 22-1399 #22-1399 22-1400 #22-1400 22-1401 22-1402 *22-1404
#22-1404 22-1405 22-1406 22-1409 #22-1409 22-1413 #22-1413 22-1414 #22-1414
22-1415 #22-1415 22-1416 22-1417 *22-1419 #22-1419 22-1420 22-1421 22-1423
#22-1423 22-1424 22-1425 22-1427 #22-1427 *22-1429 #22-1429 22-1430 #22-1430
*22-1433 #22-1433 22-1435 #22-1435 #24-1509 *24-1519 #24-1519 24-1520 24-1521
24-1525 #24-1525 #26-1601 26-1607 #26-1607 26-1608 26-1609 26-1610 #26-1610
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 11
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
26-1612 26-1613 26-1616 26-1616 #26-1616 26-1617 26-1618 26-1621 #26-1621
26-1623 26-1623 #26-1623 26-1624 #26-1624 26-1625 #26-1625 26-1626 26-1627
26-1629 #26-1629 26-1630 26-1631 26-1634 #26-1634 26-1635 26-1636 26-1638
#26-1638 26-1639 26-1640 *26-1642 #26-1642 26-1643 26-1644 26-1649 #26-1649
26-1650 #26-1650 26-1651 #26-1651 26-1653 #26-1653 26-1654 26-1655 26-1658
#26-1658 26-1659 26-1660 26-1663 #26-1663 26-1664 26-1665 26-1666 #26-1666
26-1667 26-1668 26-1670 #26-1670 26-1671 #26-1671 26-1672 #26-1672 26-1673
#26-1673 26-1674 #26-1674 26-1675 #26-1675 26-1676 #26-1676 26-1677 #26-1677
26-1678 26-1679 26-1680 26-1682 #26-1682 26-1684 #26-1684
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 12
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #7-213 #7-219 #7-230 #7-239 #9-328 #9-352 #9-357 #9-362 #14-580 #14-594
#14-603 #14-624 #14-639 #14-640 #14-645 #14-681 #14-685 #14-691 #14-697 #17-876
#17-884 #21-1155 #21-1167 #21-1179 #21-1210 #21-1261 #21-1282 #21-1285 #21-1286 #21-1288
#21-1298 #22-1379 #22-1381 #22-1392 #22-1397 #22-1412 #22-1434 #24-1513 #24-1517 #24-1524
#24-1530 #26-1606 #26-1628 #26-1637 #26-1648 #26-1652 #26-1657 #26-1662
CASE #5-122 #7-205 #9-319 #14-556 #16-775 #17-859 #18-940 #18-943 #18-949 #18-954
#19-1011 #21-1147 #22-1375 #24-1509 #26-1601 #26-1611 #26-1616
CONDF #4-69 #4-74
DO #5-122 #7-205 #9-319 #14-556 #14-634 #14-659 #14-673 #16-775 #16-783 #17-859
#18-940 #18-945 #18-951 #18-956 #19-1011 #21-1147 #22-1375 #24-1509 #26-1601 #26-1613
#26-1618
ELSE #5-122 #7-205 #7-231 #9-319 #9-329 #9-337 #14-556 #14-565 #14-584 #14-600
#14-612 #14-619 #14-641 #14-701 #14-706 #16-775 #16-790 #17-859 #17-867 #17-887
#18-940 #18-958 #19-1011 #21-1147 #21-1168 #21-1183 #21-1198 #21-1233 #21-1250 #21-1297
#22-1375 #22-1394 #22-1409 #22-1427 #22-1430 #24-1509 #26-1601 #26-1621 #26-1651 #26-1682
ENDCAS #5-122 #7-205 #9-319 #14-556 #16-775 #17-859 #18-940 18-960 #19-1011 #21-1147
#22-1375 #24-1509 #26-1601 26-1623
ENDIF #5-122 #7-205 7-240 #9-319 9-340 9-344 9-345 9-353 9-358 9-363
9-364 #14-556 14-567 14-568 14-586 14-587 14-622 14-623 14-629 14-636
14-638 14-643 14-644 14-661 14-675 14-704 14-708 14-709 14-716 #16-775
16-785 16-792 #17-859 17-891 17-892 #18-940 18-960 #19-1011 #21-1147 21-1159
21-1187 21-1188 21-1189 21-1202 21-1203 21-1223 21-1235 21-1243 21-1252 21-1253
21-1267 21-1268 21-1270 21-1281 21-1287 21-1299 21-1300 #22-1375 22-1383 22-1398
22-1399 22-1413 22-1414 22-1429 22-1433 22-1435 #24-1509 24-1525 #26-1601 26-1623
26-1624 26-1649 26-1650 26-1670 26-1671 26-1672 26-1673 26-1674 26-1675 26-1676
26-1684
ENDPRO #5-122 5-125 #7-205 7-243 #9-319 9-366 #14-556 14-718 #16-775 16-793
#17-859 17-893 #18-940 18-961 #19-1011 19-1016 #21-1147 21-1302 #22-1375 22-1437
#24-1509 24-1531 #26-1601 26-1686
ENDWHI #5-122 #7-205 #9-319 #14-556 14-636 14-661 14-675 #16-775 16-785 #17-859
#18-940 #19-1011 #21-1147 #22-1375 #24-1509 #26-1601
EVDF #4-69 4-73
EVLDF$ #10-446 10-450
FALSE #5-122 #7-205 #9-319 #9-332 #9-347 #14-556 #14-561 #14-608 #14-626 #14-647
#14-652 #14-657 #14-663 #14-672 #16-775 #16-778 #16-787 #17-859 #17-869 #18-940
#18-944 #18-950 #18-955 #19-1011 #21-1147 #21-1171 #21-1230 #21-1238 #21-1263 #21-1290
#22-1375 #22-1420 #24-1509 #24-1520 #26-1601 #26-1608 #26-1612 #26-1617 #26-1626 #26-1630
#26-1639 #26-1643 #26-1654 #26-1659 #26-1664 #26-1667 #26-1678 #26-1679
FALSEB #5-122 #7-205 7-221 #9-319 9-323 9-326 9-350 9-355 9-360 #14-556
14-558 14-570 14-574 14-589 14-592 14-596 14-614 14-633 14-658 14-664
14-665 14-711 #16-775 16-782 #17-859 17-861 #18-940 #19-1011 #21-1147 21-1149
21-1161 21-1165 21-1191 21-1195 21-1205 21-1227 21-1239 21-1245 21-1255 21-1258
21-1272 21-1276 21-1277 21-1293 #22-1375 22-1377 22-1385 22-1389 22-1401 22-1405
22-1416 22-1424 #24-1509 #26-1601 26-1635
HOSDF #15-766 #15-770
IF #5-122 #7-205 7-220 #9-319 9-321 9-325 9-330 9-346 9-349 9-354
9-359 #14-556 14-557 14-560 14-569 14-573 14-588 14-591 14-595 14-607
14-613 14-625 14-632 14-646 14-649 14-656 14-662 14-671 14-710 #16-775
16-777 16-786 #17-859 17-860 17-868 #18-940 18-942 #19-1011 #21-1147 21-1148
21-1160 21-1164 21-1170 21-1190 21-1194 21-1204 21-1225 21-1229 21-1237 21-1244
21-1254 21-1257 21-1262 21-1271 21-1275 21-1289 21-1292 #22-1375 22-1376 22-1384
22-1388 22-1400 22-1404 22-1415 22-1419 22-1423 #24-1509 24-1519 #26-1601 26-1607
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 13
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
26-1610 26-1625 26-1629 26-1634 26-1638 26-1642 26-1653 26-1658 26-1663 26-1666
26-1677
JMPPRO #5-122 #7-205 #9-319 #14-556 #16-775 #17-859 #18-940 #19-1011 #21-1147 #22-1375
#24-1509 #26-1601
MOPDF #4-69 4-76
NICDF #4-69 4-75
ONCASE #5-122 #7-205 #9-319 #14-556 #16-775 #17-859 #18-940 #18-942 #19-1011 #21-1147
#22-1375 #24-1509 #26-1601 #26-1610
PRDF #8-310 8-314
PROC #4-69 9-319
PROCLC #4-69 5-122 #5-122 7-205 #7-205 #9-319 14-556 #14-556 16-775 #16-775
17-859 #17-859 18-940 #18-940 19-1011 #19-1011 21-1147 #21-1147 22-1375 #22-1375
24-1509 #24-1509 26-1601 #26-1601
RESSTK #10-446 14-637 14-705 #25-1595 26-1685
SAVSTK #10-446 14-604 14-654 #25-1595 26-1602
SWSTK$ #5-122 #7-205 #9-319 #14-556 #16-775 #17-859 #18-940 #19-1011 #21-1147 #22-1375
#24-1509 #26-1601
THEN #5-122 #7-205 7-222 #9-319 9-324 9-327 9-333 9-348 9-351 9-356
9-361 #14-556 14-559 14-562 14-571 14-575 14-590 14-593 14-597 14-609
14-615 14-627 14-634 14-648 14-653 14-659 14-666 14-673 14-712 #16-775
16-783 16-788 #17-859 17-862 17-870 #18-940 18-945 18-951 18-956 #19-1011
#21-1147 21-1150 21-1162 21-1166 21-1172 21-1192 21-1196 21-1206 21-1228 21-1231
21-1240 21-1246 21-1256 21-1259 21-1264 21-1273 21-1278 21-1291 21-1294 #22-1375
22-1378 22-1386 22-1390 22-1402 22-1406 22-1417 22-1421 22-1425 #24-1509 24-1521
#26-1601 26-1609 26-1613 26-1618 26-1627 26-1631 26-1636 26-1640 26-1644 26-1655
26-1660 26-1665 26-1668 26-1680
TRUE #5-122 #7-205 #9-319 9-322 #14-556 #16-775 #17-859 #18-940 #19-1011 #21-1147
#22-1375 #24-1509 #26-1601
TRUEB #5-122 #7-205 #9-319 #14-556 #16-775 16-779 16-780 16-781 #17-859 #18-940
#19-1011 #21-1147 21-1226 #22-1375 #24-1509 #26-1601
WHILE #5-122 #7-205 #9-319 #14-556 #14-632 #14-656 #14-671 #16-775 #16-777 #17-859
#18-940 #19-1011 #21-1147 #22-1375 #24-1509 #26-1601
$$BGND #5-122 #7-205 #7-221 #9-319 #9-322 #9-323 #9-326 #9-332 #9-347 #9-350
#9-355 #9-360 #14-556 #14-558 #14-561 #14-570 #14-574 #14-589 #14-592 #14-596
#14-608 #14-614 #14-626 #14-633 #14-647 #14-652 #14-657 #14-658 #14-663 #14-664
#14-665 #14-672 #14-711 #16-775 #16-778 #16-779 #16-780 #16-781 #16-782 #16-787
#17-859 #17-861 #17-869 #18-940 #18-944 #18-950 #18-955 #19-1011 #21-1147 #21-1149
#21-1161 #21-1165 #21-1171 #21-1191 #21-1195 #21-1205 #21-1226 #21-1227 #21-1230 #21-1238
#21-1239 #21-1245 #21-1255 #21-1258 #21-1263 #21-1272 #21-1276 #21-1277 #21-1290 #21-1293
#22-1375 #22-1377 #22-1385 #22-1389 #22-1401 #22-1405 #22-1416 #22-1420 #22-1424 #24-1509
#24-1520 #26-1601 #26-1608 #26-1612 #26-1617 #26-1626 #26-1630 #26-1635 #26-1639 #26-1643
#26-1654 #26-1659 #26-1664 #26-1667 #26-1678 #26-1679
$$BGNN #5-122 #7-205 7-221 7-231 #9-319 9-322 9-323 9-326 9-329 9-332
9-337 9-347 9-350 9-355 9-360 #14-556 14-558 14-561 14-565 14-570
14-574 14-584 14-589 14-592 14-596 14-600 14-608 14-612 14-614 14-619
14-626 14-633 14-636 14-641 14-647 14-652 14-657 14-658 14-661 14-663
14-664 14-665 14-672 14-675 14-701 14-706 14-711 #16-775 16-778 16-779
16-780 16-781 16-782 16-785 16-787 16-790 #17-859 17-861 17-867 17-869
17-887 #18-940 18-944 18-949 18-950 18-954 18-955 18-958 #19-1011 #21-1147
21-1149 21-1161 21-1165 21-1168 21-1171 21-1183 21-1191 21-1195 21-1198 21-1205
21-1226 21-1227 21-1230 21-1233 21-1238 21-1239 21-1245 21-1250 21-1255 21-1258
21-1263 21-1272 21-1276 21-1277 21-1290 21-1293 21-1297 #22-1375 22-1377 22-1385
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 14
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
22-1389 22-1394 22-1401 22-1405 22-1409 22-1416 22-1420 22-1424 22-1427 22-1430
#24-1509 24-1520 #26-1601 26-1608 26-1612 26-1616 26-1617 26-1621 26-1626 26-1630
26-1635 26-1639 26-1643 26-1651 26-1654 26-1659 26-1664 26-1667 26-1678 26-1679
26-1682
$$ELSE #5-122 #7-205 7-231 #9-319 9-329 9-337 #14-556 14-565 14-584 14-600
14-612 14-619 14-641 14-701 14-706 #16-775 16-790 #17-859 17-867 17-887
#18-940 18-949 18-954 18-958 #19-1011 #21-1147 21-1168 21-1183 21-1198 21-1233
21-1250 21-1297 #22-1375 22-1394 22-1409 22-1427 22-1430 #24-1509 #26-1601 26-1616
26-1621 26-1651 26-1682
$$GEN1 #5-122 #5-122 #5-125 #7-205 #7-205 #7-221 #7-222 #7-231 #7-231 #7-240
#7-243 #9-319 #9-319 #9-322 #9-322 #9-323 #9-323 #9-324 #9-326 #9-327
#9-329 #9-329 #9-332 #9-333 #9-337 #9-337 #9-340 #9-344 #9-345 #9-347
#9-347 #9-348 #9-350 #9-351 #9-353 #9-355 #9-356 #9-358 #9-360 #9-361
#9-363 #9-364 #9-366 #14-556 #14-556 #14-558 #14-558 #14-559 #14-561 #14-561
#14-562 #14-565 #14-565 #14-567 #14-568 #14-570 #14-571 #14-574 #14-575 #14-584
#14-584 #14-586 #14-587 #14-589 #14-590 #14-592 #14-593 #14-596 #14-596 #14-597
#14-600 #14-600 #14-608 #14-609 #14-612 #14-612 #14-614 #14-615 #14-619 #14-619
#14-622 #14-623 #14-626 #14-627 #14-629 #14-632 #14-633 #14-633 #14-634 #14-636
#14-636 #14-638 #14-641 #14-641 #14-643 #14-644 #14-647 #14-648 #14-652 #14-653
#14-656 #14-657 #14-658 #14-659 #14-661 #14-661 #14-663 #14-664 #14-665 #14-665
#14-666 #14-671 #14-672 #14-673 #14-675 #14-675 #14-701 #14-701 #14-704 #14-706
#14-706 #14-708 #14-709 #14-711 #14-712 #14-716 #14-718 #16-775 #16-775 #16-777
#16-778 #16-779 #16-780 #16-781 #16-782 #16-783 #16-785 #16-785 #16-787 #16-788
#16-790 #16-790 #16-792 #16-793 #17-859 #17-859 #17-861 #17-862 #17-867 #17-867
#17-869 #17-869 #17-870 #17-887 #17-887 #17-891 #17-892 #17-893 #18-940 #18-940
#18-944 #18-945 #18-949 #18-949 #18-950 #18-951 #18-954 #18-954 #18-955 #18-956
#18-958 #18-958 #18-960 #18-961 #19-1011 #19-1011 #19-1016 #21-1147 #21-1147 #21-1149
#21-1149 #21-1150 #21-1159 #21-1161 #21-1162 #21-1165 #21-1166 #21-1168 #21-1168 #21-1171
#21-1171 #21-1172 #21-1183 #21-1183 #21-1187 #21-1188 #21-1189 #21-1191 #21-1192 #21-1195
#21-1196 #21-1198 #21-1198 #21-1202 #21-1203 #21-1205 #21-1206 #21-1223 #21-1226 #21-1227
#21-1228 #21-1230 #21-1231 #21-1233 #21-1233 #21-1235 #21-1238 #21-1239 #21-1239 #21-1240
#21-1243 #21-1245 #21-1246 #21-1250 #21-1250 #21-1252 #21-1253 #21-1255 #21-1256 #21-1258
#21-1258 #21-1259 #21-1263 #21-1264 #21-1267 #21-1268 #21-1270 #21-1272 #21-1273 #21-1276
#21-1277 #21-1277 #21-1278 #21-1281 #21-1287 #21-1290 #21-1291 #21-1293 #21-1293 #21-1294
#21-1297 #21-1297 #21-1299 #21-1300 #21-1302 #22-1375 #22-1375 #22-1377 #22-1377 #22-1378
#22-1383 #22-1385 #22-1386 #22-1389 #22-1390 #22-1394 #22-1394 #22-1398 #22-1399 #22-1401
#22-1402 #22-1405 #22-1406 #22-1409 #22-1409 #22-1413 #22-1414 #22-1416 #22-1417 #22-1420
#22-1421 #22-1424 #22-1425 #22-1427 #22-1427 #22-1429 #22-1430 #22-1430 #22-1433 #22-1435
#22-1437 #24-1509 #24-1509 #24-1520 #24-1521 #24-1525 #24-1531 #26-1601 #26-1601 #26-1608
#26-1609 #26-1612 #26-1613 #26-1616 #26-1616 #26-1617 #26-1618 #26-1621 #26-1621 #26-1623
#26-1624 #26-1626 #26-1627 #26-1630 #26-1631 #26-1635 #26-1636 #26-1639 #26-1640 #26-1643
#26-1644 #26-1649 #26-1650 #26-1651 #26-1651 #26-1654 #26-1655 #26-1659 #26-1660 #26-1664
#26-1665 #26-1667 #26-1668 #26-1670 #26-1671 #26-1672 #26-1673 #26-1674 #26-1675 #26-1676
#26-1678 #26-1679 #26-1680 #26-1682 #26-1682 #26-1684 #26-1686
$$GEN2 #5-122 #7-205 7-221 #9-319 9-326 9-350 9-355 9-360 #14-556 14-570
14-574 14-589 14-592 14-614 14-657 14-658 14-663 14-664 14-672 14-711
#16-775 16-778 16-779 16-780 16-781 16-782 16-787 #17-859 17-861 #18-940
18-944 18-950 18-955 #19-1011 #21-1147 21-1161 21-1165 21-1191 21-1205 21-1226
21-1227 21-1230 21-1245 21-1255 21-1272 #22-1375 22-1385 22-1401 22-1416 22-1424
#24-1509 #26-1601 26-1612 26-1617 26-1635 26-1643 26-1667 26-1679
$$GNAB #5-122 #7-205 7-221 #9-319 9-326 9-350 9-355 9-360 #14-556 14-570
14-589 14-596 14-608 14-614 14-626 14-647 14-657 14-658 14-663 14-665
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 15
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
14-672 14-711 #16-775 16-778 16-779 16-780 16-781 16-782 16-787 #17-859
17-861 #18-940 18-944 18-950 18-955 #19-1011 #21-1147 21-1161 21-1165 21-1171
21-1191 21-1195 21-1205 21-1226 21-1227 21-1230 21-1238 21-1255 21-1263 21-1272
21-1276 21-1290 #22-1375 22-1385 22-1389 22-1401 22-1405 22-1416 22-1420 22-1424
#24-1509 24-1520 #26-1601 26-1608 26-1612 26-1617 26-1626 26-1630 26-1635 26-1639
26-1643 26-1654 26-1659 26-1664 26-1678 26-1679
$$GNBT #5-122 #7-205 #9-319 #9-322 #9-323 #9-332 #9-347 #14-556 #14-558 #14-561
#14-574 #14-592 #14-633 #14-652 #14-664 #16-775 #17-859 #17-869 #18-940 #19-1011
#21-1147 #21-1149 #21-1239 #21-1245 #21-1258 #21-1277 #21-1293 #22-1375 #22-1377 #24-1509
#26-1601 #26-1667
$$GNCM #5-122 #7-205 #7-221 #9-319 #9-322 #9-323 #9-326 #9-332 #9-347 #9-350
#9-355 #9-360 #14-556 #14-558 #14-561 #14-570 #14-574 #14-589 #14-592 #14-596
#14-608 #14-614 #14-626 #14-633 #14-647 #14-652 #14-657 #14-658 #14-663 #14-664
#14-665 #14-672 #14-711 #16-775 #16-778 #16-779 #16-780 #16-781 #16-782 #16-787
#17-859 #17-861 #17-869 #18-940 #18-944 #18-950 #18-955 #19-1011 #21-1147 #21-1149
#21-1161 #21-1165 #21-1171 #21-1191 #21-1195 #21-1205 #21-1226 #21-1227 #21-1230 #21-1238
#21-1239 #21-1245 #21-1255 #21-1258 #21-1263 #21-1272 #21-1276 #21-1277 #21-1290 #21-1293
#22-1375 #22-1377 #22-1385 #22-1389 #22-1401 #22-1405 #22-1416 #22-1420 #22-1424 #24-1509
#24-1520 #26-1601 #26-1608 #26-1612 #26-1617 #26-1626 #26-1630 #26-1635 #26-1639 #26-1643
#26-1654 #26-1659 #26-1664 #26-1667 #26-1678 #26-1679
$$INMC #5-122 #5-122 #7-205 #7-205 #9-319 #9-319 #14-556 #14-556 #16-775 #16-775
#17-859 #17-859 #18-940 #18-940 #19-1011 #19-1011 #21-1147 #21-1147 #22-1375 #22-1375
#24-1509 #24-1509 #26-1601 #26-1601
$$INSY #5-122 #5-122 #7-205 #7-205 #9-319 #9-319 #14-556 #14-556 #16-775 #16-775
#17-859 #17-859 #18-940 #18-940 #19-1011 #19-1011 #21-1147 #21-1147 #22-1375 #22-1375
#24-1509 #24-1509 #26-1601 #26-1601
$$LAB #5-122 #7-205 7-222 7-231 7-240 #9-319 9-324 9-327 9-329 9-333
9-337 9-340 9-344 9-345 9-348 9-351 9-353 9-356 9-358 9-361
9-363 9-364 #14-556 14-559 14-562 14-565 14-567 14-568 14-571 14-575
14-584 14-586 14-587 14-590 14-593 14-597 14-600 14-609 14-612 14-615
14-619 14-622 14-623 14-627 14-629 14-632 14-634 14-636 14-638 14-641
14-643 14-644 14-648 14-653 14-656 14-659 14-661 14-666 14-671 14-673
14-675 14-701 14-704 14-706 14-708 14-709 14-712 14-716 #16-775 16-777
16-783 16-785 16-788 16-790 16-792 #17-859 17-862 17-867 17-870 17-887
17-891 17-892 #18-940 18-945 18-949 18-951 18-954 18-956 18-958 18-960
#19-1011 #21-1147 21-1150 21-1159 21-1162 21-1166 21-1168 21-1172 21-1183 21-1187
21-1188 21-1189 21-1192 21-1196 21-1198 21-1202 21-1203 21-1206 21-1223 21-1228
21-1231 21-1233 21-1235 21-1240 21-1243 21-1246 21-1250 21-1252 21-1253 21-1256
21-1259 21-1264 21-1267 21-1268 21-1270 21-1273 21-1278 21-1281 21-1287 21-1291
21-1294 21-1297 21-1299 21-1300 #22-1375 22-1378 22-1383 22-1386 22-1390 22-1394
22-1398 22-1399 22-1402 22-1406 22-1409 22-1413 22-1414 22-1417 22-1421 22-1425
22-1427 22-1429 22-1430 22-1433 22-1435 #24-1509 24-1521 24-1525 #26-1601 26-1609
26-1613 26-1616 26-1618 26-1621 26-1623 26-1624 26-1627 26-1631 26-1636 26-1640
26-1644 26-1649 26-1650 26-1651 26-1655 26-1660 26-1665 26-1668 26-1670 26-1671
26-1672 26-1673 26-1674 26-1675 26-1676 26-1680 26-1682 26-1684
$$POP #5-122 #7-205 #7-240 #7-240 #9-319 #9-340 #9-340 #9-344 #9-344 #9-345
#9-345 #9-353 #9-353 #9-358 #9-358 #9-363 #9-363 #9-364 #9-364 #14-556
#14-567 #14-567 #14-568 #14-568 #14-586 #14-586 #14-587 #14-587 #14-622 #14-622
#14-623 #14-623 #14-629 #14-629 #14-636 #14-636 #14-638 #14-638 #14-643 #14-643
#14-644 #14-644 #14-661 #14-661 #14-675 #14-675 #14-704 #14-704 #14-708 #14-708
#14-709 #14-709 #14-716 #14-716 #16-775 #16-785 #16-785 #16-792 #16-792 #17-859
#17-891 #17-891 #17-892 #17-892 #18-940 #18-960 #18-960 #18-960 #19-1011 #21-1147
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 16
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#21-1159 #21-1159 #21-1187 #21-1187 #21-1188 #21-1188 #21-1189 #21-1189 #21-1202 #21-1202
#21-1203 #21-1203 #21-1223 #21-1223 #21-1235 #21-1235 #21-1243 #21-1243 #21-1252 #21-1252
#21-1253 #21-1253 #21-1267 #21-1267 #21-1268 #21-1268 #21-1270 #21-1270 #21-1281 #21-1281
#21-1287 #21-1287 #21-1299 #21-1299 #21-1300 #21-1300 #22-1375 #22-1383 #22-1383 #22-1398
#22-1398 #22-1399 #22-1399 #22-1413 #22-1413 #22-1414 #22-1414 #22-1429 #22-1429 #22-1433
#22-1433 #22-1435 #22-1435 #24-1509 #24-1525 #24-1525 #26-1601 #26-1623 #26-1623 #26-1623
#26-1624 #26-1624 #26-1649 #26-1649 #26-1650 #26-1650 #26-1670 #26-1670 #26-1671 #26-1671
#26-1672 #26-1672 #26-1673 #26-1673 #26-1674 #26-1674 #26-1675 #26-1675 #26-1676 #26-1676
#26-1684 #26-1684
$$POPI #5-122 #7-205 #7-240 #7-240 #9-319 #9-340 #9-340 #9-344 #9-344 #9-345
#9-345 #9-353 #9-353 #9-358 #9-358 #9-363 #9-363 #9-364 #9-364 #14-556
#14-567 #14-567 #14-568 #14-568 #14-586 #14-586 #14-587 #14-587 #14-622 #14-622
#14-623 #14-623 #14-629 #14-629 #14-636 #14-636 #14-638 #14-638 #14-643 #14-643
#14-644 #14-644 #14-661 #14-661 #14-675 #14-675 #14-704 #14-704 #14-708 #14-708
#14-709 #14-709 #14-716 #14-716 #16-775 #16-785 #16-785 #16-792 #16-792 #17-859
#17-891 #17-891 #17-892 #17-892 #18-940 #18-960 #18-960 #18-960 #19-1011 #21-1147
#21-1159 #21-1159 #21-1187 #21-1187 #21-1188 #21-1188 #21-1189 #21-1189 #21-1202 #21-1202
#21-1203 #21-1203 #21-1223 #21-1223 #21-1235 #21-1235 #21-1243 #21-1243 #21-1252 #21-1252
#21-1253 #21-1253 #21-1267 #21-1267 #21-1268 #21-1268 #21-1270 #21-1270 #21-1281 #21-1281
#21-1287 #21-1287 #21-1299 #21-1299 #21-1300 #21-1300 #22-1375 #22-1383 #22-1383 #22-1398
#22-1398 #22-1399 #22-1399 #22-1413 #22-1413 #22-1414 #22-1414 #22-1429 #22-1429 #22-1433
#22-1433 #22-1435 #22-1435 #24-1509 #24-1525 #24-1525 #26-1601 #26-1623 #26-1623 #26-1623
#26-1624 #26-1624 #26-1649 #26-1649 #26-1650 #26-1650 #26-1670 #26-1670 #26-1671 #26-1671
#26-1672 #26-1672 #26-1673 #26-1673 #26-1674 #26-1674 #26-1675 #26-1675 #26-1676 #26-1676
#26-1684 #26-1684
$$PUSH #5-122 #7-205 #7-220 #7-220 #9-319 #9-321 #9-321 #9-325 #9-325 #9-330
#9-330 #9-346 #9-346 #9-349 #9-349 #9-354 #9-354 #9-359 #9-359 #14-556
#14-557 #14-557 #14-560 #14-560 #14-569 #14-569 #14-573 #14-573 #14-588 #14-588
#14-591 #14-591 #14-595 #14-595 #14-607 #14-607 #14-613 #14-613 #14-625 #14-625
#14-632 #14-632 #14-646 #14-646 #14-649 #14-649 #14-656 #14-656 #14-662 #14-662
#14-671 #14-671 #14-710 #14-710 #16-775 #16-777 #16-777 #16-786 #16-786 #17-859
#17-860 #17-860 #17-868 #17-868 #18-940 #18-942 #18-942 #18-942 #19-1011 #21-1147
#21-1148 #21-1148 #21-1160 #21-1160 #21-1164 #21-1164 #21-1170 #21-1170 #21-1190 #21-1190
#21-1194 #21-1194 #21-1204 #21-1204 #21-1225 #21-1225 #21-1229 #21-1229 #21-1237 #21-1237
#21-1244 #21-1244 #21-1254 #21-1254 #21-1257 #21-1257 #21-1262 #21-1262 #21-1271 #21-1271
#21-1275 #21-1275 #21-1289 #21-1289 #21-1292 #21-1292 #22-1375 #22-1376 #22-1376 #22-1384
#22-1384 #22-1388 #22-1388 #22-1400 #22-1400 #22-1404 #22-1404 #22-1415 #22-1415 #22-1419
#22-1419 #22-1423 #22-1423 #24-1509 #24-1519 #24-1519 #26-1601 #26-1607 #26-1607 #26-1610
#26-1610 #26-1610 #26-1625 #26-1625 #26-1629 #26-1629 #26-1634 #26-1634 #26-1638 #26-1638
#26-1642 #26-1642 #26-1653 #26-1653 #26-1658 #26-1658 #26-1663 #26-1663 #26-1666 #26-1666
#26-1677 #26-1677
$$STSM #5-122 #7-205 #7-220 #7-220 #9-319 #9-321 #9-321 #9-325 #9-325 #9-330
#9-330 #9-346 #9-346 #9-349 #9-349 #9-354 #9-354 #9-359 #9-359 #14-556
#14-557 #14-557 #14-560 #14-560 #14-569 #14-569 #14-573 #14-573 #14-588 #14-588
#14-591 #14-591 #14-595 #14-595 #14-607 #14-607 #14-613 #14-613 #14-625 #14-625
#14-632 #14-632 #14-646 #14-646 #14-649 #14-649 #14-656 #14-656 #14-662 #14-662
#14-671 #14-671 #14-710 #14-710 #16-775 #16-777 #16-777 #16-786 #16-786 #17-859
#17-860 #17-860 #17-868 #17-868 #18-940 #18-942 #18-942 #18-942 #19-1011 #21-1147
#21-1148 #21-1148 #21-1160 #21-1160 #21-1164 #21-1164 #21-1170 #21-1170 #21-1190 #21-1190
#21-1194 #21-1194 #21-1204 #21-1204 #21-1225 #21-1225 #21-1229 #21-1229 #21-1237 #21-1237
#21-1244 #21-1244 #21-1254 #21-1254 #21-1257 #21-1257 #21-1262 #21-1262 #21-1271 #21-1271
#21-1275 #21-1275 #21-1289 #21-1289 #21-1292 #21-1292 #22-1375 #22-1376 #22-1376 #22-1384
EVEVNT CREATED BY MACRO ON 13-OCT-79 AT 11:39 PAGE 17
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#22-1384 #22-1388 #22-1388 #22-1400 #22-1400 #22-1404 #22-1404 #22-1415 #22-1415 #22-1419
#22-1419 #22-1423 #22-1423 #24-1509 #24-1519 #24-1519 #26-1601 #26-1607 #26-1607 #26-1610
#26-1610 #26-1610 #26-1625 #26-1625 #26-1629 #26-1629 #26-1634 #26-1634 #26-1638 #26-1638
#26-1642 #26-1642 #26-1653 #26-1653 #26-1658 #26-1658 #26-1663 #26-1663 #26-1666 #26-1666
#26-1677 #26-1677
$$SYS #5-122 #7-205 #9-319 #14-556 #16-775 #17-859 #18-940 #19-1011 #21-1147 #22-1375
#24-1509 #26-1601
$$TRCE #5-122 5-122 5-125 #7-205 7-205 7-243 #9-319 9-319 9-366 #14-556
14-556 14-718 #16-775 16-775 16-793 #17-859 17-859 17-893 #18-940 18-940
18-961 #19-1011 19-1011 19-1016 #21-1147 21-1147 21-1302 #22-1375 22-1375 22-1437
#24-1509 24-1509 24-1531 #26-1601 26-1601 26-1686