Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/srgndc.list
There are no other files named srgndc.list in the archive.
SRGNDC MACRO M1110 13-OCT-79 12:28
TABLE OF CONTENTS
10- 378 GNDLOG ;AP0002
11- 471 GNDMSG ;AP0002
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 3
1 .TITLE SRGNDC
2 .IDENT /V01.04/
3 ;
4 ; COPYRIGHT (C) 1978 BY
5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
6 ;
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
9 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
11 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
12 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
13 ; TRANSFERRED.
14 ;
15 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
16 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
17 ; CORPORATION.
18 ;
19 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
20 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
21 ;
22 ;
23 ; MODULE DESCRIPTION:
24 ;
25 ; NCU SERVICE MODULE TO PROCESS GET NETWORK DATA CALLS AND COMPLETIONS
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ; 1.01 20-NOV-78 ALAN D. PECKHAM
35 ; ADD EVENT LOGGING HOOKS
36 ; 1.02 30-MAY-79 ALAN D. PECKHAM
37 ; CREATE SEPERATE EVENT LOGGING GND STREAM AND CONSTRUCT MESSAGES
38 ; IMMEDIATELY FROM GND BUFFER.
39 ; 1.03 19-JUL-79 ALAN D. PECKHAM
40 ; ADD SUPPORT FOR SOFTWARE ERROR LOG DATA REPORTS.
41 ; 1.04 17-AUG-79 ALAN D. PECKHAM
42 ; LOGBLK WAS ON AN ODD BOUNDRY; FIX BAD BRANCH INTRODUCED IN 1.03
43 ;
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 4
45 ;
46 ;======================================================================;
47 ;++
48 ; +-------------------------------------------------+
49 ; I I
50 ; I S R G N D C I
51 ; I - - - - - - I
52 ; I I
53 ; +-------------------------------------------------+
54 ;
55 ; FUNCTION:
56 ;
57 ; SERVICE MODULE TO PROCESS GET NETWORK DATA CALLS AND COMPLETIONS
58 ;
59 ; INPUT: NONE
60 ;
61 ; OUTPUT: NONE
62 ;
63 ; REQUIREMENTS:
64 ;
65 ; INPUT VIA GNDDAT:
66 ;
67 ; CONBLK - GET NETWORK DATA DATA BLOCK
68 ; GNDCNT - NUMBER OF NETWORK DATA EVENTS OUTSTANDING
69 ; GNDSTA - MODULE PROCESSING STATE
70 ; LUNSAV - LOGICAL UNIT NUMBER OF LINK BEING ESTABLISHED
71 ; IOSB - I/O STATUS BLOCK OF COMPLETED OPERATION
72 ;
73 ; INPUT VIA LKUDAT:
74 ;
75 ; LKUTAB - LINK LOGICAL UNIT DATABASE
76 ; INUSE - SET IF LUN IN USE, CLEAR IF NOT
77 ; LUN - LOGICAL UNIT NUMBER
78 ; LKUEND - SYMBOL FOR END ADDRESS OF LINK LOGICAL UNIT DATABASE
79 ; RCEVCB - CONTROL BLOCK QUEUED FOR RECEIVING EVENTS
80 ; C.ADDR - ADDRESS OF CONTROL SWITCH; IF SWITCH IS ZERO RCEV
81 ; OPERATION MAY BE ABORTED
82 ;
83 ; CONTROL BLOCK SYMBOLS:
84 ;
85 ; C.ADDR - OFFSET OF ADDRESS FIELD
86 ; C.LINE - OFFSET OF LINE ID FIELD
87 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
88 ; C.RET - OFFSET OF RETURN CODE FIELD
89 ; CE$FAI - FAILURE RETURN CODE
90 ; CS$LKE - LINK ESTABLISHED RETURN CODE
91 ; CS$LNA - LINE ATTENTION RETURN CODE
92 ; CS$LOG - LOG DATA RETURN CODE ;AP0001
93 ;
94 ; LINK LOGICAL UNIT DATABASE SYMBOLS:
95 ;
96 ; ENTLEN - ENTRY LENGTH
97 ; INUSE - OFFSET OF IN USE FLAG
98 ; LUN - OFFSET OF LOGICAL UNIT NUMBER
99 ;
100 ; SERVICE SYMBOLS:
101 ;
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 4-1
102 ; NETLUN - NETWORK LOGICAL UNIT
103 ;
104 ; CONFIGURATION CONTROL SYMBOLS:
105 ;
106 ; F$EVNT - EVENT PROCESSING (I.E. LINE ATTENTION) DESIRED
107 ; F$LOGD - EVENT LOGGING DESIRED ;AP0001
108 ;
109 ; NETWORK SYMBOLS:
110 ;
111 ; N.CBL - LENGTH OF A CONNECT PENDING BLOCK
112 ; NT.ABO - CODE FOR LINK ABORTED BY USER
113 ; NT.ABT - CODE FOR LINK ABORTED BY NETWORK
114 ; NT.CON - CODE FOR CONNECT REQUESTED
115 ; NT.DSC - CODE FOR LINK DISCONNECTED
116 ; NT.MOP - CODE FOR MOP LINE ATTENTION EVENT
117 ; NT.LOG - CODE FOR EVENT LOGGING DATA ;AP0001
118 ;
119 ; EFFECTS:
120 ;
121 ; OUTPUT VIA GNDDAT:
122 ;
123 ; GNDCNT - UPDATED NUMBER OF NETWORK EVENTS OUTSTANDING
124 ; GNDSTA - UPDATED MODULE PROCESSING STATE
125 ; IOSB - CLEARED STATUS BLOCK
126 ; LUNSAV - LOGICAL UNIT LINK IS BEING OPENED ON
127 ;
128 ; OUTPUT VIA LKUDAT:
129 ;
130 ; LKUTAB - UPDATED DATABASE ENTRY
131 ; INUSE - SET IF LUN TAKEN, CLEAR IF NOT
132 ; RCEVCB - CLEAR IF CONTROL BLOCK USED
133 ; @RCEVCB - UPDATED CONTROL BLOCK IF USED
134 ; C.LINE - LINE ID IF LINE ATTENTION PROCESSED
135 ; C.LKNM - LINK NUMBER IF LINK ESTABLISHED
136 ; C.RET - RETURN CODE
137 ;
138 ;--
139 ;======================================================================;
140 ;
141 .NLIST CND
142 ;
143 ; EXTERNAL MACROS
144 ;
145 .MCALL PROC,CONDF,LKUDF,LKUMDF,GNDMDF,SRDF,SAVSTK,RESSTK
146 .MCALL NETDF$,ACC$S,GND$S,REJ$S
147 ;
148 ; DEFINE EXTERNAL SYMBOLS
149 ;
150 000000 CONDF ;CONTROL BLOCK SYMBOLS
151 000000 NETDF$ ;NSP INTERFACE SYMBOLS AND MACROS
152 000000 LKUDF ;LOGICAL LINK SYMBOLS
153 000000 SRDF ;SERVICE SYMBOLS
154 000000 CONFIG ;CONFIGURATION CONTROLS
155 ;
156 ; DEFINE LOCAL SYMBOLS
157 ;
158 ; STATES
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 4-2
159 ;
160 000000 IDLE = 0. ;IDLE
161 000001 GND = 1. ;GET NETWORK DATA PENDING
162 000002 ACC = 2. ;ACCEPT PENDING
163 000003 REJ = 3. ;REJECT PENDING
164 000004 INH = 4. ;INHIBIT GET NETWORK DATA
165 ;
166 ; READ/WRITE STORAGE
167 ;
168 000000 LKUMDF ;LINK LOGICAL UNIT MEMORY
169 000000 GNDMDF ;GND MEMORY
170 ; ;AP0002
171 ; EVENT LOGGING LOCAL RESIDENT READ/WRITE MEMORY ;AP0002
172 ; ;AP0002
174 000000 .PSECT $DATA,D,GBL ;AP0002
175 000000 LOGSB: .BLKW 2 ;GND I/O STATUS BLOCK ;AP0002
176 000004 000 LOGSTA: .BYTE IDLE ;GND STATUS BYTE ;AP0002
177 .EVEN ;AP0004
178 000006 LOGBLK: .BLKB N.CBL ;RECEPTION AREA FOR LOG DATA MESSAGES ;AP0002
179 .EVEN ;AP0002
180 000000 .PSECT ;AP0002
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 5
183 ;
184 ; PROCEDURE BODY
185 ;
186 000000 PROC SRGNDC
187 000000 SAVSTK <R5> ;SAVE REGISTER
188 000002 IF ; STATE = IDLE
189 000002 FALSEB NE GNDSTA,#IDLE
190 000012 THEN
191 000012 112767 000000 000004' MOVB #IDLE,LOGSTA ;RESET LOG GND STATE ;AP0002
192 000020 IF ; GND COUNT > 0
193 000020 FALSE LE GNDCNT
194 000026 THEN
195 000026 GND$S #NETLUN,,#IOSB,#SRAST,<#CONBLK,#N.CBL>
196 000076 IF ; SUCCESSFULLY QUEUED
197 000076 FALSE CS
198 000100 THEN
199 000100 112767 000001 000150' MOVB #GND,GNDSTA ;SET STATE TO GND PENDING
200 000106 005367 000004' DEC GNDCNT ;DECREMENT NUMBER OF EVENTS WAITING
201 000112 ENDIF
202 000112 ELSE
203 000114 IF ; RECEIVE EVENT QUEUED AND ABORT ALLOWED
204 000114 016700 000000' MOV RCEVCB,R0
205 000120 FALSE CLEAR
206 000122 FALSE SET @C.ADDR(R0)
207 000130 THEN
208 000130 005067 000000' CLR RCEVCB ;NO MORE RECEIVE EVENT CONTROL BLOCK
209 000134 112760 177774 000010 MOVB #CE$FAI,C.RET(R0) ;ABORT IT
210 000142 112767 000004 000150' MOVB #INH,GNDSTA ;INHIBIT GET NETWORK DATA
212 000150 112767 000004 000004' MOVB #INH,LOGSTA ;AND GET LOGGING DATA ;AP0002
214 000156 005067 000000' CLR IOSB ;SO NOTHING IN HERE RUNS
215 000162 ENDIF
216 000162 ENDIF
217 000162 ELSE
218 000164 IF ; I/O COMPLETE
220 000164 FALSEB NE LOGSTA,#IDLE ;AP0002
222 000174 FALSEB CLEAR IOSB
223 000202 THEN
224 000202 ONCASE ; STATE
225 000202 116700 000150' MOVB GNDSTA,R0
226 000206 CASE ; GND PENDING
227 000206 FALSE NE R0,#GND
228 000214 DO
229 000214 IF ; SUCCESS
230 000214 FALSEB LT IOSB
231 000222 THEN
232 000222 CALL GNDCOM ;PROCESS COMPLETION
233 000226 ELSE
234 000230 112767 000000 000150' MOVB #IDLE,GNDSTA ;SET STATE TO IDLE
235 000236 ENDIF
236 000236 CASE ; ACCEPT PENDING
237 000240 FALSE NE R0,#ACC
238 000246 DO
239 000246 016705 000000' MOV RCEVCB,R5 ;ADDRESS OF RCEV CONTROL BLOCK
240 000252 IF ; FAILURE
241 000252 FALSEB GT IOSB
242 000260 THEN
243 000260 116700 000151' MOVB LUNSAV,R0 ;PICK UP SAVED LOCAL LUN
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 5-1
244 000264 CALL SRCLKU ;CONVERT TO TABLE ADDRESS
245 000270 105060 000000 CLRB INUSE(R0) ;MARK ENTRY AS AVAILABLE
246 000274 ELSE
247 000276 005065 000020 CLR C.LKNM(R5) ;CLEAN UP LINK NUMBER FIELD
248 000302 116765 000151' 000020 MOVB LUNSAV,C.LKNM(R5) ;MOVE IN LOCAL LUN
249 000310 112765 000001 000010 MOVB #CS$LKE,C.RET(R5) ;POST WITH "CONNECT" CODE
250 000316 005067 000000' CLR RCEVCB ;NO MORE RCEV CONTROL BLOCK
251 000322 ENDIF
252 000322 112767 000000 000150' MOVB #IDLE,GNDSTA ;SET STATE TO IDLE
253 000330 ELSE ; REJECT
254 000332 112767 000000 000150' MOVB #IDLE,GNDSTA ;SET STATE TO IDLE
255 000340 ENDCASE
256 000340 ENDIF
258 000340 IF ; LOG GND STATE IS IDLE AND THE MAILBOX IS NON-EMPTY ;AP0002
259 000340 FALSEB NE LOGSTA,#IDLE ;AP0002
260 000350 FALSE LE GNDCNT ;AP0002
261 000356 THEN ;AP0002
262 000356 GND$S #NETLUN,,#LOGSB,#SRAST,<#LOGBLK,#N.CBL,#NT.LOG>,NT.TYP ;AP0002
263 000430 IF ; SUCCESSFUL DIRECTIVE ;AP0002
264 000430 FALSE CS ;AP0002
265 000432 THEN ;AP0002
266 000432 112767 000001 000004' MOVB #GND,LOGSTA ;SET STATE TO GND PENDING ;AP0002
267 000440 ENDIF ;AP0002
268 000440 ENDIF ;AP0002
269 000440 IF ; LOG DATA RECEIVED ;AP0002
270 000440 FALSEB NE LOGSTA,#GND ;AP0002
271 000450 FALSEB CLEAR LOGSB ;AP0002
272 000456 THEN ;AP0002
273 000456 IF ; THERE WAS A LOG DATA ENTRY ;AP0002
274 000456 FALSEB MI ;AP0002
275 000460 THEN ;AP0002
276 000460 005367 000004' DEC GNDCNT ;ONE LESS PIECE OF MAIL... ;AP0002
277 000464 012702 000006' MOV #LOGBLK,R2 ;GET ADDRESS OF LOG DATA ;AP0002
278 000470 016701 000002' MOV LOGSB+2,R1 ;ITS LENGTH ;AP0002
279 000474 CALL GNDLOG ;AND TRY TO DISPATCH TO EVENT LOGGER. ;AP0002
280 000500 ENDIF ;AP0002
281 000500 112767 000000 000004' MOVB #IDLE,LOGSTA ;RESET THE STATUS. ;AP0002
282 000506 ENDIF ;AP0002
284 000506 ENDIF
285 000506 RESSTK <R5> ;RESTORE REGISTER
286 000510 ENDPROC
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 6
288 ;
289 ; LOCAL PROCEDURE BODY
290 ;
291 000512 PROCLC GNDCOM
292 000512 ONCASE ; GND COMPLETION TYPE
293 000512 116700 000001' MOVB IOSB+1,R0
294 000516 CASE ; CONNECT
295 000516 FALSE NE R0,#NT.CON
296 000524 DO
297 000524 012700 000002' MOV #LKUTAB,R0 ;ADDRESS OF LOGICAL UNIT TABLE
298 000530 WHILE ; CURRENT ADDRESS < END AND ENTRY IN USE
299 000530 FALSE HIS R0,#LKUEND
300 000536 FALSEB CLEAR INUSE(R0)
301 000544 DO
302 000544 062700 000002 ADD #ENTLEN,R0 ;MOVE UP TO NEXT ENTRY
303 000550 ENDWHILE
304 000552 IF ; NO ENTRY OR CONNECT HAD OPTIONAL DATA
305 ; OR NO RECEIVE EVENT CONTROL BLOCK AVAILABLE
306 000552 TRUE HIS R0,#LKUEND
307 000560 TRUE NE IOSB+2,#N.CBL
308 000570 FALSE SET RCEVCB
309 000576 THEN
310 000576 REJ$S #NETLUN,,#IOSB,#SRAST,<#CONBLK>
311 000646 IF ; REJECT WAS QUEUED
312 000646 FALSE CS
313 000650 THEN
314 000650 112767 000003 000150' MOVB #REJ,GNDSTA ;SET STATE TO REJECT PENDING
315 000656 ENDIF
316 000656 ELSE
317 000660 016701 000000' MOV RCEVCB,R1 ;ADDRESS OF RCEV CONTROL BLOCK
318 000664 116001 000001 MOVB LUN(R0),R1 ;GET LOGICAL UNIT NUMBER
319 000670 110167 000151' MOVB R1,LUNSAV ;SAVE IT
320 000674 ACC$S R1,,#IOSB,#SRAST,<#CONBLK>
321 000742 IF ; ACCEPT WAS QUEUED
322 000742 FALSE CS
323 000744 THEN
324 000744 112767 000002 000150' MOVB #ACC,GNDSTA ;SET STATE TO ACCEPT PENDING
325 000752 105260 000000 INCB INUSE(R0) ;MARK ENTRY AS IN USE
326 000756 ENDIF
327 000756 ENDIF
328 000756 CASE ; DISCONNECT OR ABORT BY NSP OR USER
329 000760 TRUE EQ R0,#NT.DSC
330 000766 TRUE EQ R0,#NT.ABT
331 000774 FALSE NE R0,#NT.ABO
332 001002 DO
333 001002 116700 000003' MOVB IOSB+3,R0 ;DISCONNECTED LUN
334 001006 CALL SRCLKU ;CONVERT TO TABLE ENTRY ADDRESS
335 001012 105460 000000 NEGB INUSE(R0) ;MARK ENTRY AS DISCONNECTED
336 001016 112767 000000 000150' MOVB #IDLE,GNDSTA ;GO BACK TO IDLE
338 001024 CASE ; LINE ATTENTION
339 001026 FALSE NE R0,#NT.MOP
340 001034 DO
341 001034 IF ; RECEIVE EVENT CONTROL BLOCK AVAILABLE
342 001034 FALSE CLEAR RCEVCB
343 001042 THEN
344 001042 016700 000006' MOV CONBLK,R0 ;RAD-50 LINE ID
345 001046 CALL CVLTST ;CONVERT RAD-50 TO STANDARD
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 6-1
346 001052 IF ; SUCCESS
347 001052 FALSE CS
348 001054 THEN
349 001054 016705 000000' MOV RCEVCB,R5 ;ADDRESS RCEV CONTROL BLOCK
350 001060 110065 000014 MOVB R0,C.LINE(R5) ;PUT LINE TYPE IN CONTROL BLOCK
351 001064 012700 000010' MOV #CONBLK+2,R0 ;ADDRESS OF REST OF LINE ID
352 001070 012701 000003 MOV #3,R1 ;LENGTH OF REST OF LINE ID
353 001074 012702 000015 MOV #C.LINE+1,R2 ;OFFSET OF REST OF LINE ID
354 001100 060502 ADD R5,R2 ;MAKE IT A DESTINATION ADDRESS
355 001102 CALL MOVE ;PUT REST OF LINE ID IN CONTROL BLOCK
356 001106 112765 000001 000021 MOVB #1.,C.MODE(R5) ;INDICATE MAINTENANCE MODE
357 001114 112765 000002 000010 MOVB #CS$LNA,C.RET(R5) ;POST AS LINE ATTENTION
358 001122 005067 000000' CLR RCEVCB ;NO MORE RCEV BLOCK WAITING
359 001126 ENDIF
360 001126 112767 000000 000150' MOVB #IDLE,GNDSTA ;BACK TO IDLE STATE ;AP0001
361 001134 ENDIF
363 001134 CASE ; EVENT LOGGING DATA ;AP0001
364 001136 FALSE NE R0,#NT.LOG ;AP0001
365 001144 DO ;AP0001
366 001144 012702 000006' MOV #CONBLK,R2 ;GET ADDRESS OF LOG DATA ;AP0002
367 001150 016701 000002' MOV IOSB+2,R1 ;ITS LENGTH ;AP0002
368 001154 CALL GNDLOG ;AND TRY TO DISPATCH TO EVENT LOGGER. ;AP0002
369 001160 112767 000000 000150' MOVB #IDLE,GNDSTA ;SET THE STATE BACK TO IDLE. ;AP0002
372 001166 ELSE
373 001170 112767 000000 000150' MOVB #IDLE,GNDSTA ;SET STATE TO IDLE
374 001176 ENDCASE
375 001176 ENDPROC
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 7
GNDLOG
378 .SBTTL GNDLOG ;AP0002
379 ; ;AP0002
380 ;======================================================================; ;AP0002
381 ;++ ;AP0002
382 ; +-------------------------------------------------+ ;AP0002
383 ; I I ;AP0002
384 ; I G N D L O G I ;AP0002
385 ; I - - - - - - I ;AP0002
386 ; I I ;AP0002
387 ; +-------------------------------------------------+ ;AP0002
388 ; ;AP0002
389 ; FUNCTION: ;AP0002
390 ; ;AP0002
391 ; GET CONTROL BLOCK/BUFFER FOR EVENT LOGGING MESSAGE AND DISPATCH TO ;AP0002
392 ; THE LOG DATA PROCESSOR. ;AP0002
393 ; ;AP0002
394 ; INPUT: ;AP0002
395 ; ;AP0002
396 ; R1 - LENGTH OF LOG DATA MAIL RECEIVED ;AP0002
397 ; R2 - ADDRESS OF BUFFER CONTAINING LOG DATA MAIL ;AP0002
398 ; ;AP0002
399 ; OUTPUT: ;AP0002
400 ; ;AP0002
401 ; R5 - CONTROL BLOCK TO DISPATCH TO EVENT LOGGING PROCESS ;AP0002
402 ; ;AP0002
403 ; REQUIREMENTS: ;AP0002
404 ; ;AP0002
405 ; CONTROL BLOCK SYMBOLS: ;AP0002
406 ; ;AP0002
407 ; C.SAVE - ;AP0002
408 ; ;AP0002
409 ;-- ;AP0002
410 ;======================================================================; ;AP0002
411 ; ;AP0002
412 ; EXTERNAL MACROS ;AP0002
413 ; ;AP0002
414 .MCALL NICDF,PRDF,SRMDF ;AP0002
415 ; ;AP0002
416 ; DEFINE EXTERNAL SYMBOLS ;AP0002
417 ; ;AP0002
418 001200 NICDF ;NICE MESSAGE SYMBOLS ;AP0002
419 001200 PRDF ;PROCESSOR SYMBOLS ;AP0002
420 ; ;AP0002
421 ; SERVICE QUEUES MEMORY ;AP0002
422 ; ;AP0002
423 001200 SRMDF ;SERVICE MEMORY ;AP0002
424 ; ;AP0002
425 ; LOCAL PROCEDURE BODY ;AP0002
426 ; ;AP0002
427 001200 PROCLC GNDLOG ;AP0002
428 001200 012700 000000G MOV #LOGDB,R0 ;FIND OUR LOG DATA BASE ;AP0002
429 001204 WHILE ; MORE ENTRIES TO CHECK & OUR ENTRY NOT FOUND ;AP0002
430 001204 FALSE LOS #LOGDBE,R0 ;AP0002
431 001212 FALSEB EQ #LG.MNT,(R0) ;AP0002
432 001220 DO ;AP0002
433 001220 062700 000000G ADD #L.GLEN,R0 ;STEP TO NEXT ENTRY ;AP0002
434 001224 ENDWHILE ;AP0002
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 7-1
GNDLOG
435 001226 IF ; ENTRY FOUND ;AP0002
436 001226 FALSE LOS #LOGDBE,R0 ;AP0002
437 001234 THEN ;AP0002
438 001234 116062 000000G 000001 MOVB L.GSEQ(R0),1(R2) ;SAVE THE SEQUENCE NUMBER ;AP0002
439 001242 105260 000000G INCB L.GSEQ(R0) ;AND BUMP IT. ;AP0002
440 001246 SAVSTK <R2,R1> ;SAVE THE DATA POINTER ;AP0002
441 001252 CALL SRALCI ;GET A CONTROL BLOCK ;AP0002
442 001256 RESSTK <R1,R2> ;AND GET THE POINTER BACK. ;AP0002
443 001262 IF ; GOT A CONTROL BLOCK ;AP0002
444 001262 FALSE CS ;AP0002
445 001264 THEN ;AP0002
446 001264 010005 MOV R0,R5 ;SET OUR CONTROL BLOCK ;AP0002
447 001266 010265 000022 MOV R2,C.SAVE+0(R5) ;SAVE BUFFER ADDRESS ;AP0002
448 001272 010165 000024 MOV R1,C.SAVE+2(R5) ;AND LENGTH. ;AP0002
449 001276 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;SET THE LENGTH ;AP0002
450 001304 CALL SRALBF ;AND GET A BUFFER. ;AP0002
451 001310 IF ; GOT A BUFFER ;AP0002
452 001310 FALSE CS ;AP0002
453 001312 THEN ;AP0002
454 001312 CALL GNDMSG ;CONSTRUCT THE MESSAGE ;AP0002
455 001316 112765 000200 000006 MOVB #C$PROC,C.FUNC(R5) ;PASS TO ;AP0002
456 001324 112765 000020 000007 MOVB #P$LOGD,C.PROC(R5) ;THE LOG DATA PROCESSOR. ;AP0002
457 001332 005065 000020 CLR C.LKNM(R5) ;NO LINK FOR THIS ONE ;AP0002
458 001336 005065 000004 CLR C.CTXT(R5) ;INITIALIZE CONTEXT ;AP0002
459 001342 005267 000000G INC GCMDSR ;ONE MORE COMMAND SOURCE ;AP0002
460 001346 005267 000000G INC LOGCN ;AND LOGGING MESSAGE... ;AP0002
461 001352 012700 000010' MOV #INPRHD,R0 ;GET IN-PROCESS QUEUE ;AP0002
462 001356 CALL APPQUE ;AND APPEND THIS CONTROL BLOCK. ;AP0002
463 001362 ELSE ; NO BUFFER AVAILABLE ;AP0002
464 001364 010500 MOV R5,R0 ;COPY AND ;AP0002
465 001366 CALL SRRLCI ;RELEASE THE CONTROL BLOCK. ;AP0002
466 001372 ENDIF ;AP0002
467 001372 ENDIF ;AP0002
468 001372 ENDIF ;AP0002
469 001372 ENDPROC ;AP0002
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 8
GNDMSG
471 .SBTTL GNDMSG ;AP0002
472 ; ;AP0002
473 ;======================================================================; ;AP0002
474 ;++ ;AP0002
475 ; +-------------------------------------------------+ ;AP0002
476 ; I I ;AP0002
477 ; I G N D M S G I ;AP0002
478 ; I - - - - - - I ;AP0002
479 ; I I ;AP0002
480 ; +-------------------------------------------------+ ;AP0002
481 ; ;AP0002
482 ; FUNCTION: ;AP0002
483 ; ;AP0002
484 ; CONVERT RECEIVED LOG DATA MAIL INTO EVENT LOGGING MESSAGE ;AP0002
485 ; ;AP0002
486 ; INPUT: ;AP0002
487 ; ;AP0002
488 ; R5 - ADDRESS OF CONTROL BLOCK ;AP0002
489 ; ;AP0002
490 ; OUTPUT: ;AP0002
491 ; ;AP0002
492 ; @R5 - UPDATED CONTROL BLOCK ;AP0002
493 ; ;AP0002
494 ; REQUIREMENTS: ;AP0002
495 ; ;AP0002
496 ; CONTROL BLOCK SYMBOLS: ;AP0002
497 ; ;AP0002
498 ; C.ADDR - ;AP0002
499 ; C.LEN - ;AP0002
500 ; C.SAVE - ;AP0002
501 ; ;AP0002
502 ; EVENT LOGGING SYMBOLS ;AP0002
503 ; E$DDEV - DEVICE ID DATA TYPE CODE ;AP0002
504 ; E$DOSI - OPERATING SYSTEM ID DATA TYPE CODE ;AP0002
505 ; E$DREG - DEVICE REGISTERS DATA TYPE CODE ;AP0002
506 ; E$DRSN - EVENT REASON DATA TYPE CODE ;AP0002
507 ; E$DTHR - ERROR THRESHOLD DATA TYPE CODE ;AP0002
508 ;-- ;AP0002
509 ;======================================================================; ;AP0002
510 ; ;AP0002
511 ; EXTERNAL MACROS ;AP0002
512 ; ;AP0002
513 .MCALL SAVSTK,RESSTK,EVLDF$ ;AP0002
514 ; ;AP0002
515 ; DEFINE EXTERNAL SYMBOLS ;AP0002
516 ; ;AP0002
517 001374 EVLDF$ ;AP0002
518 ; ;AP0002
519 ; LOCAL PROCEDURE BODY ;AP0002
520 ; ;AP0002
521 001374 PROCLC GNDMSG ;AP0002
522 001374 016502 000014 MOV C.ADDR(R5),R2 ;GET MESSAGE BUFFER ADDRESS ;AP0002
523 001400 112722 000001 MOVB #1,(R2)+ ;SET EVENT LOG DATA CODE. ;AP0002
524 001404 112722 000000G MOVB #LG.MNT,(R2)+ ;** ASSUME MAINTENANCE MESSAGE FOR NOW. ;AP0002
525 001410 010246 MOV R2,-(SP) ;SAVE CURRENT POSITION ;AP0002
526 001412 105022 CLRB (R2)+ ;AND MAKE ROOM FOR NAME LENGTH. ;AP0002
527 001414 012701 000006 MOV #6,R1 ;MAXIMUM NODE NAME LENGTH ;AP0002
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 8-1
GNDMSG
528 001420 CALL LOCNOD ;MOVE LOCAL NODE NAME IN. ;AP0002
529 001424 110136 MOVB R1,@(SP)+ ;STORE NODE NAME LENGTH. ;AP0002
530 001426 112722 000003 MOVB #3,(R2)+ ;3-BYTES OF INFO TO COME ;AP0002
531 001432 010200 MOV R2,R0 ; IN THE COMPONENT NAME ;AP0002
532 001434 016501 000022 MOV C.SAVE(R5),R1 ;GET COMPONENT NAME ;AP0002
533 001440 016101 000006 MOV 6(R1),R1 ; FOR RAD50 CONVERSION ;AP0002
534 001444 CALL $C5TA ; ... ;AP0002
535 001450 010002 MOV R0,R2 ;SET BUFFER PTR BACK TO R2 ;AP0002
536 001452 016500 000022 MOV C.SAVE(R5),R0 ;NOW GET DATA BUFFER ADDRESS ;AP0002
537 001456 005720 TST (R0)+ ;GET SEQ & EVENT TYPE IN CORRECT ORDER ;AP0003
538 001460 114022 MOVB -(R0),(R2)+ ;SEQUENCE # ;AP0003
539 001462 114022 MOVB -(R0),(R2)+ ;SET THE EVENT TYPE ;AP0003
540 001464 105022 CLRB (R2)+ ;AS A TWO BYTE FIELD. ;AP0002
541 001466 005720 TST (R0)+ ;R0 IS NOW POINTING TO TIMESTAMP ;AP0004
542 001470 CALL SRLGTM ;DO UPTIME AS EX-4 ;AP0002
543 001474 ONCASE ; EVENT TYPE ;AP0003
544 001474 117500 000022 MOVB @C.SAVE(R5),R0 ;GET EVENT TYPE ;AP0003
545 001500 CASE ; HARDWARE ERROR ;AP0003
546 001500 FALSEB NE #E$THDW,R0 ;AP0004
547 001506 DO ;AP0003
548 001506 016500 000022 MOV C.SAVE(R5),R0 ;GET BUFFER ADDRESS AGAIN. ;AP0002
549 001512 062700 000012 ADD #10.,R0 ;POINT AT DEVICE ID ;AP0002
550 001516 112722 000005 MOVB #E$DDEV,(R2)+ ;DEVICE ID DATA TYPE ;AP0002
551 001522 005202 INC R2 ;REMEMBER WHERE TO PUT LENGTH ;AP0002
552 001524 SAVSTK <R2> ;... ;AP0002
553 001526 112722 000001 MOVB #1,(R2)+ ;STANDARD LINE ID ;AP0002
554 001532 112022 MOVB (R0)+,(R2)+ ;DEVICE ID ;AP0002
555 001534 112022 MOVB (R0)+,(R2)+ ;CONTROLLER ;AP0002
556 001536 IF ; UNIT IS SPECIFIED ;AP0002
557 001536 FALSEB EQ (R0),#377 ;AP0002
558 001544 THEN ;AP0002
559 001544 112022 MOVB (R0)+,(R2)+ ;UNIT ;AP0002
560 001546 IF ; STATION IS SPECIFIED ;AP0002
561 001546 FALSEB EQ (R0),#377 ;AP0002
562 001554 THEN ;AP0002
563 001554 112022 MOVB (R0)+,(R2)+ ;STATION ;AP0002
564 001556 ENDIF ;AP0002
565 001556 ENDIF ;AP0002
566 001556 RESSTK <R1> ;ADDRESS OF PLACE TO PUT LENGTH(+1) ;AP0002
567 001560 010200 MOV R2,R0 ;COPY CURRENT ADDRESS TO FIGURE LENGTH ;AP0002
568 001562 160100 SUB R1,R0 ;MINUS WHERE WE STARTED ;AP0002
569 001564 110041 MOVB R0,-(R1) ;PUT IT IN PLACE ;AP0002
570 001566 112722 000006 MOVB #E$DRSN,(R2)+ ;REASON CODE DATA TYPE ;AP0002
571 001572 016500 000022 MOV C.SAVE(R5),R0 ;GET BUFFER ADDRESS YET AGAIN ;AP0002
572 001576 016000 000010 MOV 8.(R0),R0 ;PICK UP THE CODE ;AP0002
573 001602 CALL PTEXWD ;AND STORE AS EXTENDABLE WORD. ;AP0002
574 001606 ENDCASE ;AP0003
575 ;MOVB #E$DOSI,(R2)+ ;** OPERATING SYSTEM ID DATA TYPE ;AP0002
576 001606 016500 000022 MOV C.SAVE(R5),R0 ;GET BUFFER ADDRESS ;AP0002
577 001612 010001 MOV R0,R1 ; COPY... ;AP0003
578 001614 062700 000016 ADD #14.,R0 ;THIS IS ADDRESS OF FIRST VARIABLE ENTRY ;AP0002
579 001620 066501 000024 ADD C.SAVE+2(R5),R1 ;AND THIS IS THE END OF THE BUFFER. ;AP0003
580 001624 SAVSTK <R1> ;SAVE THIS FOR FUTURE REFERENCE ;AP0002
581 001626 WHILE ; MORE STUFF IN BUFFER, AND ENUF TO HANDLE NEXT DATUM ;AP0002
582 001626 FALSE LOS (SP),R0 ;AP0003
583 001632 DO ;AP0002
584 001632 005001 CLR R1 ;GET THE NUMBER ;AP0002
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 8-2
GNDMSG
585 001634 156001 000001 BISB 1(R0),R1 ; OF BYTES IN NEXT ENTRY ;AP0002
586 001640 062701 000002 ADD #2,R1 ;ACTUAL AMOUNT OF STUFF TO MOVE OUT ;AP0002
587 001644 ONCASE ; DATA TYPE ;AP0002
588 001644 CASE ; REGISTER DATA OR ASCII TEXT ;AP0002
589 001644 TRUEB EQ (R0),#E$DREG ;AP0003
590 001652 FALSEB NE (R0),#E$DTXT ;AP0003
591 001660 DO ;AP0002
592 001660 CALL MOVE ;MOVE THE REGISTER DATA ;AP0002
593 001664 CASE ; THRESHOLD ;AP0002
594 001666 FALSEB NE (R0),#E$DTHR ;AP0002
595 001674 DO ;AP0002
596 001674 112022 MOVB (R0)+,(R2)+ ;SET THE DATA TYPE ;AP0002
597 001676 005200 INC R0 ;STEP OVER FIELD LENGTH ;AP0002
598 001700 112022 MOVB (R0)+,(R2)+ ;MOVE THE TWO-BYTE ;AP0002
599 001702 112022 MOVB (R0)+,(R2)+ ; THRESHOLD VALUE ;AP0002
600 001704 ELSE ; IF DOESN'T MATCH OUR CASES ;AP0002
601 001706 060100 ADD R1,R0 ;STEP OVER THE UNKNOWN FIELD (IGNORE) ;AP0002
602 001710 ENDCASE ;AP0002
603 001710 005200 INC R0 ;PUT ADDRESS ;AP0003
604 001712 042700 000001 BIC #1,R0 ;ON EVEN BOUNDRY ;AP0003
605 001716 ENDWHILE ;AP0002
606 001720 RESSTK <R1> ;CLEAN UP THE STACK ;AP0002
607 001722 166502 000014 SUB C.ADDR(R5),R2 ;GET LENGTH OF MESSAGE ;AP0002
608 001726 010265 000012 MOV R2,C.LEN(R5) ;AND STORE IT. ;AP0002
609 001732 ENDPROC ;AP0002
611 000001 .END
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 8-3
SYMBOL TABLE
ACC = 000002 C$OPOR= 000057 D$$L11= 000001 FR$LNL= 000001 F$RDBK= 000000
APPQUE= ****** GX C$OPOT= 000042 ENTLEN= 000002 FR$LNS= 000001 F$RDCM= 000000
A$$CHK= 000000 C$ORD = 000145 E$DDAT= 000003 FR$RMC= 000001 F$RDIN= 000001
A$$CPS= 000000 C$PROC= 000200 E$DDEV= 000005 FR$RML= 000001 F$RDIS= 000012
A$$TRP= 000000 C$RCBK= 000047 E$DLPC= 000013 FR$RMS= 000001 F$RDRC= 000000
BLKFLG= 000003 C$RCEV= 000050 E$DMCD= 000012 FS$HOS= 000001 F$RECO= 000001
CE$ACP= 177753 C$RCIN= 000062 E$DNOD= 000011 FS$INT= 000000 F$RLBF= 000001
CE$ADR= 177776 C$RCMA= 000146 E$DOSI= 000010 FS$LLP= 000001 F$RLCB= 000001
CE$CON= 177770 C$RCMS= 000054 E$DREC= 000007 FS$LOF= 000001 F$STBK= 000000
CE$DIS= 177771 C$RDBK= 000043 E$DREG= 000001 FS$LOG= 000001 F$STPR= 000001
CE$EOF= 177767 C$RDCM= 000035 E$DRSN= 000006 FS$LST= 000001 F$STPS= 000006
CE$FAI= 177774 C$RDIN= 000040 E$DTHR= 000015 FS$NET= 000001 F$TEST= 000001
CE$FIL= 177756 C$RDIS= 000040 E$DTIM= 000002 FS$NST= 000000 F$TRAC= 000000
CE$FUN= 177777 C$RDRC= 000060 E$DTPC= 000014 FS$PAS= 000001 F$TRBK= 000001
CE$GEN= 177774 C$RLBF= 000001 E$DTXT= 000016 FT$CNS= 000000 F$TRIG= 000001
CE$IND= 177757 C$RLCB= 000002 E$DUPT= 000004 FT$NOD= 000001 F$TRIN= 000000
CE$IO = 177760 C$RLCI= 000000 E$RABO= 000017 FT$TSK= 000001 F$TRMA= 000000
CE$LEN= 177775 C$STBK= 000055 E$RCRC= 000023 F$ALBF= 000001 F$TRMS= 000002
CE$LID= 177766 C$STPR= 000037 E$RDSC= 000005 F$ALCB= 000001 F$WRBK= 000000
CE$LST= 177752 C$STPS= 000037 E$RFRM= 000024 F$CB = 000017 F$WRCL= 000001
CE$NOD= 177765 C$TRBK= 000046 E$RHFE= 000016 F$CLCL= 000001 F$WRCM= 000000
CE$NSD= 177755 C$TRIN= 000063 E$RLIN= 000003 F$CLCO= 000000 F$WRRC= 000000
CE$NST= 177754 C$TRMA= 000145 E$RMOP= 000014 F$CLFL= 000000 F$ZERO= 000001
CE$NWE= 177773 C$TRMS= 000053 E$RMTL= 000013 F$CLLK= 000006 F$ZRCN= 000001
CE$OBJ= 177750 C$WRBK= 000044 E$RNAK= 000032 F$CLLN= 000002 F$$LVL= 000001
CE$OPN= 177761 C$WRCL= 000065 E$RNXM= 000002 F$DPOS= 000001 F$150 = 000002
CE$OVR= 177764 C$WRCM= 000036 E$ROVR= 000012 F$DUMP= 000000 F$300 = 000012
CE$PAR= 177763 C$WRRC= 000061 E$RPEC= 000022 F$EVNT= 000001 F$50 = 000002
CE$PRO= 177751 C$ZRCN= 000064 E$RPEM= 000021 F$EXAM= 000001 F$550 = 000002
CE$REJ= 177772 C$$CKP= 000000 E$RPET= 000020 F$EXHO= 000000 GCMDSR= ****** GX
CE$TMO= 177762 C$$ORE= 000400 E$RPRC= 000025 F$GTCM= 000001 GND = 000001
CMILUN= 000002 C$$RSH= 177564 E$RPWF= 000007 F$INCM= 000000 GNDCNT 000004R 003
CMOLUN= 000001 C.ADDR= 000014 E$RPWR= 000010 F$INLU= 000001 GNDCOM 000512R
CONBLK 000006R 003 C.BKNM= 000014 E$RRET= 000031 F$IRLU= 000000 GNDLOG 001200R
CS$ACK= 000002 C.CTXT= 000004 E$RRTE= 000011 F$LKLU= 000010 GNDMSG 001374R
CS$LKE= 000001 C.FUNC= 000006 E$RRTO= 000006 F$LNLU= 000002 GNDSTA 000150R 003
CS$LNA= 000002 C.LEN = 000012 E$RSEL= 000030 F$LNSR= 000001 G$$TPP= 000000
CS$LOG= 000003 C.LINE= 000014 E$RSIN= 000004 F$LOAD= 000000 G$$TSS= 000000
CS$NCH= 000003 C.LKNM= 000020 E$RSRC= 000015 F$LOGD= 000001 G$$TTK= 000000
CS$SUC= 000001 C.LUN = 000020 E$RTRN= 000026 F$LOOP= 000001 IDLE = 000000
CVLTST= ****** GX C.MODE= 000021 E$RUCL= 000001 F$NTCM= 000000 IE.NDA= 177662
C$ALBF= 000032 C.PRID= 000017 E$RXTO= 000027 F$OPCL= 000001 IE.NNT= 177660
C$ALCB= 000033 C.PROC= 000007 E$TASC= 000001 F$OPCO= 000000 IE.NRJ= 177666
C$CLCL= 000067 C.PROM= 000016 E$TASX= 000002 F$OPIN= 000000 IE.URJ= 177667
C$CLCO= 000003 C.PTR = 000000 E$THDW= 000003 F$OPIR= 000000 INH = 000004
C$CLFL= 000004 C.RET = 000010 E$TSFT= 000004 F$OPLK= 000005 INPRHD 000010R 005
C$CLLK= 000052 C.SAVE= 000022 E$TTOP= 000005 F$OPLN= 000002 INPRTL 000012R 005
C$CLLN= 000005 C.SERV= 000002 FILLUN= 000014 F$OPLO= 000000 INUSE = 000000
C$LEN = 000026 C.TASK= 000016 FLGGRP= 000000 F$OPOR= 000000 IOSB 000000R 003
C$NOPN= 000031 C.TYPE= 000016 FLGMSK= 000003 F$OPOT= 000000 IS.DAO= 000002
C$NORD= 000032 C.WAIT= 000020 FL$BOO= 000001 F$ORLU= 000000 I$$RAR= 000000
C$OPCL= 000066 DM$END= 000000 FL$DUM= 000001 F$OTLU= 000001 I$$RDN= 000000
C$OPCO= 000034 DM$MIM= 000002 FL$LOA= 000001 F$RCBK= 000002 K$$CNT= 177546
C$OPIN= 000041 DM$PXA= 000003 FL$LOO= 000001 F$RCEV= 000001 K$$CSR= 177546
C$OPIR= 000056 DM$SAD= 000001 FR$LCC= 000001 F$RCIN= 000000 K$$LDC= 000000
C$OPLK= 000051 D$$BUG= 177514 FR$LCS= 000001 F$RCMA= 000000 K$$TPS= 000074
C$OPLN= 000045 D$$ISK= 000000 FR$LNC= 000001 F$RCMS= 000002 LD$LP = 000000
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 8-4
SYMBOL TABLE
LG.MNT= ****** GX NE$FOR= 177776 NS$SUC= 000001 N.SDE 000042 SP$DTP= 000010
LINLUN= 000017 NE$FUN= 177777 NT.ABO= 000005 N.SDEC 000040 SP$LHO= 000002
LI$KNO= 000000 NE$GEN= 000007 NT.ABT= 000004 N.SEGZ 000002 SP$LLP= 000011
LI$STA= 000001 NE$ILS= 000043 NT.CON= 000001 N.SFM 000036 SP$LNM= 000016
LI$STR= 000002 NE$IMG= 000053 NT.DSC= 000003 N.SGP 000040 SP$LNO= 000015
LKUEND 000022R 002 NE$LCO= 177766 NT.INT= 000002 N.SND 000030 SP$LOF= 000012
LKUTAB 000002R 002 NE$LID= 177770 NT.LOG= 000011 N.SNM 000046 SP$LST= 000001
LNKLUN= 000004 NE$LPR= 177757 NT.MOP= 000010 N.SNMC 000044 SP$NDM= 000014
LOCNOD= ****** GX NE$LST= 177767 N$DPOS= 000014 N.SOT 000037 SP$NDO= 000013
LOGBLK 000006R 004 NE$MLB= 000006 N$DUMP= 000003 N.SUS 000042 SP$NST= 000006
LOGCN = ****** GX NE$NCO= 177755 N$EXAM= 000015 ORWTHD 000000R 005 SP$RRP= 000004
LOGDB = ****** GX NE$NIC= 177753 N$LNSR= 000016 ORWTTL 000002R 005 SP$RTP= 000005
LOGDBE= ****** GX NE$NOD= 177765 N$LOAD= 000002 PTEXWD= ****** GX SRALBF= ****** GX
LOGSB 000000R 004 NE$NOR= 177754 N$LOGD= 000001 PT$END= 000000 SRALCI= ****** GX
LOGSTA 000004R 004 NE$NSD= 000003 N$LOOP= 000005 PT$HOS= 000003 SRAST = ****** GX
LS$DUM= 000002 NE$ORD= 177774 N$RDIN= 000010 PT$NAM= 000001 SRCLKU= ****** GX
LS$LOA= 000000 NE$PAR= 177760 N$STPR= 000007 PT$NUM= 000002 SRGNDC 000000RG
LS$LOO= 000001 NE$RES= 177761 N$TEST= 000006 P$DPOS= 000016 SRLGTM= ****** GX
LS$TRI= 000004 NE$SER= 177764 N$TRIG= 000004 P$DUMP= 000003 SRRLCI= ****** GX
LS$TRQ= 000003 NE$SSR= 000000 N$ZERO= 000011 P$EVNT= 000011 ST$DIS= 000006
LUN = 000001 NE$SSS= 000045 N$$USR= 000001 P$EXAM= 000017 ST$ENA= 000005
LUNSAV 000151R 003 NE$STA= 177775 N.CAC 000120 P$GTCM= 000001 ST$LOO= 000003
L$$ASG= 000000 NE$TCN= 000040 N.CACC 000116 P$INCM= 000015 ST$MAI= 000004
L$$DRV= 000000 NE$TCO= 000041 N.CBL = 000142 P$LNSR= 000004 ST$OFF= 000001
L$$P11= 000001 NE$TPA= 000010 N.CDA 000142 P$LOAD= 000002 ST$ON = 000000
L$$11R= 000000 NE$UOB= 000004 N.CDAC 000140 P$LOGD= 000020 ST$SHU= 000002
L.GLEN= ****** GX NL$BRC= 000001 N.CID 000064 P$LOOP= 000005 S$$WRG= 000000
L.GSEQ= ****** GX NL$BTR= 000002 N.CIDC 000062 P$NTCM= 000014 S$$YSZ= 001600
MASTER= 000001 NL$RES= 000005 N.CPS 000106 P$RDIN= 000010 TEMFLG= 000030
MOVE = ****** GX NL$RLE= 000004 N.CPSC 000104 P$STPR= 000007 TIMBIT= 000002
M$$CRB= 000124 NL$RTR= 000003 N.CTL 000000 P$TEST= 000006 TIMFLG= 000002
M$$CRX= 000000 NL$TMO= 000006 N.DDE 000010 P$TRIG= 000012 T$$KMG= 000000
M$$FCS= 000000 NL$ZRO= 000000 N.DDEC 000006 P$ZERO= 000013 T$$MIN= 000000
M$$OVR= 000000 NN$CAC= 000011 N.DFM 000004 P$$P45= 000000 UNWTHD 000004R 005
NCOLUN= 000016 NN$CNI= 000013 N.DGP 000006 RCEVCB 000000R 002 UNWTTL 000006R 005
ND$BAD= 177777 NN$CNR= 000014 N.DNM 000014 REJ = 000003 V$$CTR= 001000
ND$LCC= 000000 NN$EXT= 000003 N.DNMC 000012 RI$LCC= 000001 X$$DBT= 000000
ND$LCS= 000001 NN$FMT= 000005 N.DOT 000005 RI$LCS= 000002 YES = 000001
ND$LNC= 000004 NN$IZS= 000007 N.DUS 000010 RI$LNC= 000007 $C5TA = ****** GX
ND$LNS= 000005 NN$IZU= 000010 N.MLEN= 000454 RI$LNL= 000006 $$CSTA= 000000
ND$RMC= 000002 NN$MAC= 000012 N.RAC 000070 RI$LNS= 000010 $$LUN = 000014
ND$RMS= 000003 NN$NKS= 000004 N.RACC 000066 RI$RMC= 000004 $$PRST= 000014
ND$ZLC= 000000 NN$RES= 000006 N.RDE 000012 RI$RML= 000003 $$STIX= 000777
ND$ZLN= 000002 NN$UMR= 000002 N.RDEC 000010 RI$RMS= 000005 $$STNM= 000000
ND$ZRM= 000001 NN$UMS= 000001 N.RFM 000006 RI$ZLC= 000011 $$S767= 000075
NETLUN= 000003 NN$ZRO= 000000 N.RGP 000010 RI$ZLN= 000013 $$S770= 000015
NE$ABO= 000046 NO = 000000 N.RID 000034 RI$ZRM= 000012 $$S771= 000077
NE$ABT= 000011 NO.DTR= 000077 N.RIDC 000032 R$$DER= 000000 $$S772= 000011
NE$ACC= 000042 NO.FAL= 000021 N.RND 000000 R$$K11= 000001 $$S773= 000000
NE$ACT= 000044 NO.FA1= 000001 N.RNM 000016 R$$SND= 000000 $$S774= 000077
NE$CDI= 000052 NO.NCU= 000023 N.RNMC 000014 R$$11M= 000000 $$S775= 000013
NE$COM= 000047 NO.RTL= 000022 N.ROT 000007 SERBIT= 000001 $$S776= 000000
NE$CON= 177762 NO.TAS= 000000 N.RPS 000056 SERFLG= 000001 $$S777= 000000
NE$FCF= 000050 NO.TCL= 000017 N.RPSC 000054 SLAVE = 000002 $$TRNM= 000000
NE$FIL= 177763 NO.TC1= 000005 N.RQL = 000110 SP$DHO= 000003 $$$ARG= 000002
NE$FIO= 177756 NO.TLK= 000020 N.RUS 000012 SP$DRP= 000007 $$$FLG= 016650
NE$FMT= 000005 NR$IFC= 000030
SRGNDC MACRO M1110 13-OCT-79 12:28 PAGE 8-5
SYMBOL TABLE
. ABS. 000142 000
001734 001
LKUDAT 000022 002
GNDDAT 000152 003
$DATA 000150 004
SRDAT 000014 005
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 13274 WORDS ( 52 PAGES)
DYNAMIC MEMORY: 14284 WORDS ( 54 PAGES)
ELAPSED TIME: 00:02:39
SRGNDC,[135,30]SRGNDC/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SRGNDC
SRGNDC CREATED BY MACRO ON 13-OCT-79 AT 12:29 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ACC = 000002 #4-162 5-237 6-324
APPQUE = ****** GX 7-462
CE$FAI = 177774 5-209
CONBLK 000006 R #4-169 5-195 6-310 6-320 6-344 6-351 6-366
CS$LKE = 000001 5-249
CS$LNA = 000002 6-357
CVLTST = ****** GX 6-345
C$PROC = 000200 7-455
C.ADDR = 000014 5-206 8-522 8-607
C.CTXT = 000004 *7-458
C.FUNC = 000006 *7-455
C.LEN = 000012 *7-449 *8-608
C.LINE = 000014 *6-350 6-353
C.LKNM = 000020 *5-247 *5-248 *7-457
C.MODE = 000021 *6-356
C.PROC = 000007 *7-456
C.RET = 000010 *5-209 *5-249 *6-357
C.SAVE = 000022 *7-447 *7-448 8-532 8-536 8-544 8-548 8-571 8-576 8-579
ENTLEN = 000002 #4-152 6-302
E$DDEV = 000005 8-550
E$DREG = 000001 8-589
E$DRSN = 000006 8-570
E$DTHR = 000015 8-594
E$DTXT = 000016 8-590
E$THDW = 000003 8-546
FL$BOO = 000001 #4-154 4-154 #4-168 4-168
FL$DUM = 000001 #4-154 4-154 #4-168 4-168
FL$LOA = 000001 #4-154 4-154 #4-168 4-168
FL$LOO = 000001 #4-154 4-154 #4-168 4-168
FR$LCC = 000001 #4-154 4-154 #4-168 4-168
FR$LCS = 000001 #4-154 4-154 #4-168 4-168
FR$LNC = 000001 #4-154 4-154 #4-168 4-168
FR$LNL = 000001 #4-154 4-154 #4-168 4-168
FR$LNS = 000001 #4-154 4-154 #4-168 4-168
FR$RMC = 000001 #4-154 4-154 #4-168 4-168
FR$RML = 000001 #4-154 4-154 #4-168 4-168
FR$RMS = 000001 #4-154 4-154 #4-168 4-168
FS$HOS = 000001 #4-154 4-154 #4-168 4-168
FS$INT = 000000 #4-154 4-154 4-154 4-154 #4-168 4-168 4-168 4-168
FS$LLP = 000001 #4-154 4-154 #4-168 4-168
FS$LOF = 000001 #4-154 4-154 #4-168 4-168
FS$LOG = 000001 #4-154 4-154 #4-168 4-168
FS$LST = 000001 #4-154 4-154 #4-168 4-168
FS$NET = 000001 #4-154 4-154 #4-168 4-168
FS$NST = 000000 #4-154 4-154 #4-168 4-168
FS$PAS = 000001 #4-154 4-154 #4-168 4-168
FT$CNS = 000000 #4-154 4-154 #4-168 4-168
FT$NOD = 000001 #4-154 4-154 #4-168 4-168
FT$TSK = 000001 #4-154 4-154 #4-168 4-168
F$ALBF = 000001 #4-154 #4-168
F$ALCB = 000001 #4-154 #4-168
F$CB = 000017 #4-154 #4-168
SRGNDC CREATED BY MACRO ON 13-OCT-79 AT 12:29 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$CLCL = 000001 #4-154 4-154 #4-154 #4-168 4-168 #4-168
F$CLCO = 000000 #4-154 #4-168
F$CLFL = 000000 #4-154 #4-168
F$CLLK = 000006 #4-154 4-154 #4-154 4-154 #4-154 4-154 #4-154 4-154 #4-154
4-154 #4-154 4-154 #4-154 #4-168 4-168 #4-168 4-168 #4-168
4-168 #4-168 4-168 #4-168 4-168 #4-168 4-168 #4-168
F$CLLN = 000002 #4-154 4-154 #4-154 4-154 #4-154 #4-168 4-168 #4-168 4-168
#4-168
F$DPOS = 000001 #4-154 4-154 #4-168 4-168
F$DUMP = 000000 #4-154 4-154 #4-168 4-168
F$EVNT = 000001 #4-154 4-154 #4-168 4-168 6-337
F$EXAM = 000001 #4-154 4-154 #4-168 4-168
F$EXHO = 000000 #4-154 #4-168
F$GTCM = 000001 #4-154 4-154 #4-168 4-168
F$INCM = 000000 #4-154 4-154 #4-168 4-168
F$INLU = 000001 #4-154 #4-168
F$IRLU = 000000 #4-154 #4-168
F$LKLU = 000010 #4-154 #4-168 4-168
F$LNLU = 000002 #4-154 #4-168
F$LNSR = 000001 #4-154 4-154 #4-168 4-168
F$LOAD = 000000 #4-154 4-154 #4-168 4-168
F$LOGD = 000001 #4-154 4-154 #4-168 4-168 4-173 5-211 5-219 5-257 6-362
6-376
F$LOOP = 000001 #4-154 4-154 #4-168 4-168
F$NTCM = 000000 #4-154 4-154 #4-168 4-168
F$OPCL = 000001 #4-154 4-154 #4-154 #4-168 4-168 #4-168
F$OPCO = 000000 #4-154 #4-168
F$OPIN = 000000 #4-154 #4-168
F$OPIR = 000000 #4-154 #4-168
F$OPLK = 000005 #4-154 4-154 #4-154 4-154 #4-154 4-154 #4-154 4-154 #4-154
4-154 #4-154 #4-168 4-168 #4-168 4-168 #4-168 4-168 #4-168
4-168 #4-168 4-168 #4-168
F$OPLN = 000002 #4-154 4-154 #4-154 4-154 #4-154 #4-168 4-168 #4-168 4-168
#4-168
F$OPLO = 000000 #4-154 #4-168
F$OPOR = 000000 #4-154 #4-168
F$OPOT = 000000 #4-154 #4-168
F$ORLU = 000000 #4-154 #4-168
F$OTLU = 000001 #4-154 #4-168
F$RCBK = 000002 #4-154 4-154 #4-154 4-154 #4-154 #4-168 4-168 #4-168 4-168
#4-168
F$RCEV = 000001 #4-154 4-154 #4-154 #4-168 4-168 #4-168
F$RCIN = 000000 #4-154 #4-168
F$RCMA = 000000 #4-154 #4-168
F$RCMS = 000002 #4-154 4-154 #4-154 #4-168 4-168 #4-168
F$RDBK = 000000 #4-154 #4-168
F$RDCM = 000000 #4-154 #4-168
F$RDIN = 000001 #4-154 4-154 #4-168 4-168
F$RDIS = 000012 #4-154 4-154 #4-154 4-154 #4-154 4-154 #4-154 4-154 #4-154
4-154 #4-154 4-154 #4-154 4-154 #4-154 4-154 #4-154 4-154
#4-154 #4-168 4-168 #4-168 4-168 #4-168 4-168 #4-168 4-168
#4-168 4-168 #4-168 4-168 #4-168 4-168 #4-168 4-168 #4-168
SRGNDC CREATED BY MACRO ON 13-OCT-79 AT 12:29 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
4-168 #4-168
F$RDRC = 000000 #4-154 #4-168
F$RECO = 000001 #4-154 4-154 #4-154 #4-168 4-168 #4-168
F$RLBF = 000001 #4-154 #4-168
F$RLCB = 000001 #4-154 #4-168
F$STBK = 000000 #4-154 #4-168
F$STPR = 000001 #4-154 4-154 #4-168 4-168
F$STPS = 000006 #4-154 4-154 #4-154 4-154 #4-154 4-154 #4-154 4-154 #4-154
4-154 #4-154 4-154 #4-154 #4-168 4-168 #4-168 4-168 #4-168
4-168 #4-168 4-168 #4-168 4-168 #4-168 4-168 #4-168
F$TEST = 000001 #4-154 4-154 #4-168 4-168
F$TRAC = 000000 #4-154 #4-168 5-186 5-186 5-286 5-286 6-291 6-291 6-375
6-375 7-427 7-427 7-469 7-469 8-521 8-521 8-609 8-609
F$TRBK = 000001 #4-154 4-154 #4-154 #4-168 4-168 #4-168
F$TRIG = 000001 #4-154 4-154 #4-168 4-168
F$TRIN = 000000 #4-154 #4-168
F$TRMA = 000000 #4-154 #4-168
F$TRMS = 000002 #4-154 4-154 #4-154 #4-168 4-168 #4-168
F$WRBK = 000000 #4-154 #4-168
F$WRCL = 000001 #4-154 4-154 #4-154 #4-168 4-168 #4-168
F$WRCM = 000000 #4-154 #4-168
F$WRRC = 000000 #4-154 #4-168
F$ZERO = 000001 #4-154 4-154 #4-168 4-168
F$ZRCN = 000001 #4-154 4-154 #4-154 #4-168 4-168 #4-168
F$150 = 000002 #4-154 #4-168
F$300 = 000012 #4-154 #4-168
F$50 = 000002 #4-154 #4-168
F$550 = 000002 #4-154 #4-168
GCMDSR = ****** GX *7-459
GND = 000001 #4-161 5-199 5-227 5-266 5-270
GNDCNT 000004 R #4-169 5-193 *5-200 5-260 *5-276
GNDCOM 000512 R 5-232 #6-291
GNDLOG 001200 R 5-279 6-368 #7-427
GNDMSG 001374 R 7-454 #8-521
GNDSTA 000150 R #4-169 5-189 *5-199 *5-210 5-225 *5-234 *5-252 *5-254 *6-314
*6-324 *6-336 *6-360 *6-369 *6-373
IDLE = 000000 #4-160 4-176 5-189 5-191 5-220 5-234 5-252 5-254 5-259
5-281 6-336 6-360 6-369 6-373
INH = 000004 #4-164 5-210 5-212
INPRHD 000010 R #7-423 7-423 7-461
INPRTL 000012 R #7-423
INUSE = 000000 #4-152 *5-245 6-300 *6-325 *6-335
IOSB 000000 R #4-169 5-195 *5-214 5-222 5-230 5-241 6-293 6-307 6-310
6-320 6-333 6-367
I$$AS = ****** 5-186 6-291 7-423 7-427 8-521
LG.MNT = ****** GX 7-431 8-524
LKUEND 000022 R #4-168 6-299 6-306
LKUTAB 000002 R #4-168 6-297
LNKLUN = 000004 4-168
LOCNOD = ****** GX 8-528
LOGBLK 000006 R #4-178 5-262 5-277
LOGCN = ****** GX *7-460
SRGNDC CREATED BY MACRO ON 13-OCT-79 AT 12:29 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
LOGDB = ****** GX 7-428
LOGDBE = ****** GX 7-430 7-436
LOGSB 000000 R #4-175 5-262 5-271 5-278
LOGSTA 000004 R #4-176 *5-191 *5-212 5-220 5-259 *5-266 5-270 *5-281
LUN = 000001 #4-152 6-318
LUNSAV 000151 R #4-169 5-243 5-248 *6-319
L.GLEN = ****** GX 7-433
L.GSEQ = ****** GX 7-438 *7-439
MASTER = 000001 #4-152
MOVE = ****** GX 6-355 8-592
NETLUN = 000003 5-195 5-262 6-310
NO = 000000 #4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154
4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154
4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154
4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154
4-154 4-154 4-154 #4-168 4-168 4-168 4-168 4-168 4-168
4-168 4-168 4-168 4-168 4-168 4-168 4-168 4-168 4-168
4-168 4-168 4-168 4-168 4-168 4-168 4-168 4-168 4-168
4-168 4-168 4-168 4-168 4-168 4-168 4-168 4-168 4-168
4-168 4-168 4-168 4-168 4-168 4-168
NT.ABO = 000005 6-331
NT.ABT = 000004 6-330
NT.CON = 000001 6-295
NT.DSC = 000003 6-329
NT.LOG = 000011 5-262 6-364
NT.MOP = 000010 6-339
N.CBL = 000142 4-169 4-178 5-195 5-262 6-307
N.MLEN = 000454 7-449
ORWTHD 000000 R #7-423 7-423
ORWTTL 000002 R #7-423
PTEXWD = ****** GX 8-573
P$LOGD = 000020 7-456
RCEVCB 000000 R #4-168 5-204 *5-208 5-239 *5-250 6-308 6-317 6-342 6-349
*6-358
REJ = 000003 #4-163 6-314
R$$11D = ****** 5-186 6-291 7-423 7-427 8-521
R$$11M = 000000 5-186 6-291 7-427 8-521
SLAVE = 000002 #4-152
SRALBF = ****** GX 7-450
SRALCI = ****** GX 7-441
SRAST = ****** GX 5-195 5-262 6-310 6-320
SRCLKU = ****** GX 5-244 6-334
SRGNDC 000000 RG #5-186
SRLGTM = ****** GX 8-542
SRRLCI = ****** GX 7-465
UNWTHD 000004 R #7-423 7-423
UNWTTL 000006 R #7-423
YES = 000001 #4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154
4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154
4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154
4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154 4-154
4-154 4-154 4-154 4-154 4-154 #4-168 4-168 4-168 4-168
SRGNDC CREATED BY MACRO ON 13-OCT-79 AT 12:29 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
4-168 4-168 4-168 4-168 4-168 4-168 4-168 4-168 4-168
4-168 4-168 4-168 4-168 4-168 4-168 4-168 4-168 4-168
4-168 4-168 4-168 4-168 4-168 4-168 4-168 4-168 4-168
4-168 4-168 4-168 4-168 4-168 4-168 4-168 4-168 4-168
4-168
$C5TA = ****** GX 8-534
$$CSTA = 000000 #5-186 5-224 #5-224 5-226 #5-226 5-236 #5-255 #6-291 6-292
#6-292 6-294 #6-294 6-328 6-338 6-363 #6-374 #7-427 #8-521
8-543 #8-543 8-545 #8-545 #8-574 8-587 #8-587 8-588 #8-588
8-593 #8-602
$$LUN = 000014 #4-168 4-168 4-168 #4-168 4-168 4-168 #4-168 4-168 4-168
#4-168 4-168 4-168 #4-168 4-168 4-168 #4-168 4-168 4-168
#4-168 4-168 4-168 #4-168 4-168 4-168 #4-168
$$PRST = 000014 #5-186 *5-188 #5-188 *5-192 #5-192 5-196 #5-196 5-203 #5-203
5-218 #5-218 5-224 #5-224 5-229 #5-229 *5-240 #5-240 5-258
#5-258 5-263 #5-263 5-269 #5-269 5-273 #5-273 #6-291 6-292
#6-292 *6-298 #6-298 6-304 #6-304 6-311 #6-311 6-321 #6-321
6-341 #6-341 6-346 #6-346 #7-427 *7-429 #7-429 7-435 #7-435
*7-443 #7-443 7-451 #7-451 #8-521 8-543 #8-543 *8-556 #8-556
*8-560 #8-560 *8-581 #8-581 8-587 #8-587
$$SLST = ****** 5-186 5-189 5-189 5-190 5-193 5-193 5-194 5-197 5-198
5-201 5-202 5-202 5-205 5-206 5-206 5-207 5-215 5-216
5-217 5-217 5-220 5-220 5-222 5-222 5-223 5-227 5-227
5-228 5-230 5-230 5-231 5-233 5-233 5-235 5-236 5-236
5-237 5-237 5-238 5-241 5-241 5-242 5-246 5-246 5-251
5-253 5-253 5-255 5-256 5-259 5-259 5-260 5-260 5-261
5-264 5-265 5-267 5-268 5-270 5-270 5-271 5-271 5-272
5-274 5-275 5-280 5-282 5-284 5-286 6-291 6-295 6-295
6-296 6-298 6-299 6-299 6-300 6-300 6-301 6-303 6-303
6-306 6-306 6-307 6-307 6-308 6-308 6-309 6-312 6-313
6-315 6-316 6-316 6-322 6-323 6-326 6-327 6-328 6-328
6-329 6-329 6-330 6-330 6-331 6-331 6-332 6-338 6-338
6-339 6-339 6-340 6-342 6-342 6-343 6-347 6-348 6-359
6-361 6-363 6-363 6-364 6-364 6-365 6-372 6-372 6-374
6-375 7-427 7-429 7-430 7-430 7-431 7-431 7-432 7-434
7-434 7-436 7-436 7-437 7-444 7-445 7-452 7-453 7-463
7-463 7-466 7-467 7-468 7-469 8-521 8-546 8-546 8-547
8-557 8-557 8-558 8-561 8-561 8-562 8-564 8-565 8-574
8-574 8-581 8-582 8-582 8-583 8-589 8-589 8-590 8-590
8-591 8-593 8-593 8-594 8-594 8-595 8-600 8-600 8-602
8-605 8-605 8-609
$$STIX = 000777 #5-186 *5-188 *5-188 #5-188 *5-188 *5-188 #5-188 *5-192 *5-192
#5-192 *5-192 *5-192 #5-192 5-196 5-196 #5-196 5-196 5-196
#5-196 5-201 #5-201 5-201 5-201 #5-201 5-201 5-203 5-203
#5-203 5-203 5-203 #5-203 5-215 #5-215 5-215 5-215 #5-215
5-215 5-216 #5-216 5-216 5-216 #5-216 5-216 5-218 5-218
#5-218 5-218 5-218 #5-218 5-224 5-224 #5-224 5-224 5-224
#5-224 5-224 5-224 #5-224 5-229 5-229 #5-229 5-229 5-229
#5-229 5-235 #5-235 5-235 5-235 #5-235 5-235 *5-240 *5-240
#5-240 *5-240 *5-240 #5-240 5-251 #5-251 5-251 5-251 #5-251
5-251 *5-255 #5-255 *5-255 5-255 #5-255 5-255 5-255 #5-255
5-255 5-256 #5-256 5-256 5-256 #5-256 5-256 5-258 5-258
SRGNDC CREATED BY MACRO ON 13-OCT-79 AT 12:29 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#5-258 5-258 5-258 #5-258 5-263 5-263 #5-263 5-263 5-263
#5-263 5-267 #5-267 5-267 5-267 #5-267 5-267 5-268 #5-268
5-268 5-268 #5-268 5-268 5-269 5-269 #5-269 5-269 5-269
#5-269 5-273 5-273 #5-273 5-273 5-273 #5-273 5-280 #5-280
5-280 5-280 #5-280 5-280 5-282 #5-282 5-282 5-282 #5-282
5-282 5-284 #5-284 5-284 5-284 #5-284 5-284 #6-291 6-292
6-292 #6-292 6-292 6-292 #6-292 6-292 6-292 #6-292 *6-298
*6-298 #6-298 *6-298 *6-298 #6-298 6-303 #6-303 6-303 6-303
#6-303 6-303 6-304 6-304 #6-304 6-304 6-304 #6-304 6-311
6-311 #6-311 6-311 6-311 #6-311 6-315 #6-315 6-315 6-315
#6-315 6-315 6-321 6-321 #6-321 6-321 6-321 #6-321 6-326
#6-326 6-326 6-326 #6-326 6-326 6-327 #6-327 6-327 6-327
#6-327 6-327 6-341 6-341 #6-341 6-341 6-341 #6-341 6-346
6-346 #6-346 6-346 6-346 #6-346 6-359 #6-359 6-359 6-359
#6-359 6-359 6-361 #6-361 6-361 6-361 #6-361 6-361 *6-374
#6-374 *6-374 6-374 #6-374 6-374 6-374 #6-374 6-374 #7-427
*7-429 *7-429 #7-429 *7-429 *7-429 #7-429 7-434 #7-434 7-434
7-434 #7-434 7-434 7-435 7-435 #7-435 7-435 7-435 #7-435
*7-443 *7-443 #7-443 *7-443 *7-443 #7-443 7-451 7-451 #7-451
7-451 7-451 #7-451 7-466 #7-466 7-466 7-466 #7-466 7-466
7-467 #7-467 7-467 7-467 #7-467 7-467 7-468 #7-468 7-468
7-468 #7-468 7-468 #8-521 8-543 8-543 #8-543 8-543 8-543
#8-543 8-543 8-543 #8-543 *8-556 *8-556 #8-556 *8-556 *8-556
#8-556 *8-560 *8-560 #8-560 *8-560 *8-560 #8-560 8-564 #8-564
8-564 8-564 #8-564 8-564 8-565 #8-565 8-565 8-565 #8-565
8-565 8-574 #8-574 8-574 8-574 #8-574 8-574 8-574 #8-574
8-574 *8-581 *8-581 #8-581 *8-581 *8-581 #8-581 8-587 8-587
#8-587 8-587 8-587 #8-587 8-587 8-587 #8-587 8-602 #8-602
8-602 8-602 #8-602 8-602 8-602 #8-602 8-602 8-605 #8-605
8-605 8-605 #8-605 8-605
$$STNM = 000000 #5-186 *5-188 #5-188 *5-188 5-189 5-190 *5-192 #5-192 *5-192
5-193 5-194 5-196 #5-196 5-196 5-197 5-198 5-201 #5-201
5-202 5-202 5-203 #5-203 5-203 5-205 5-206 5-207 5-215
#5-215 5-216 #5-216 5-217 5-217 5-218 #5-218 5-218 5-220
5-222 5-223 5-224 #5-224 5-224 5-227 5-228 5-229 #5-229
5-229 5-230 5-231 5-233 5-233 *5-235 #5-235 5-236 5-236
5-237 5-238 *5-240 #5-240 *5-240 5-241 5-242 5-246 5-246
5-251 #5-251 *5-253 5-253 5-255 #5-255 5-256 #5-256 5-258
#5-258 5-258 5-259 5-260 5-261 5-263 #5-263 5-263 5-264
5-265 *5-267 #5-267 5-268 #5-268 5-269 #5-269 5-269 5-270
5-271 5-272 5-273 #5-273 5-273 5-274 5-275 5-280 #5-280
*5-282 #5-282 5-284 #5-284 #6-291 6-292 #6-292 6-292 6-295
6-296 *6-298 #6-298 *6-298 *6-298 6-299 6-300 6-301 6-303
6-303 #6-303 6-304 #6-304 6-304 6-306 6-307 6-308 6-309
6-311 #6-311 6-311 6-312 6-313 *6-315 #6-315 6-316 6-316
6-321 #6-321 6-321 6-322 6-323 6-326 #6-326 6-327 #6-327
6-328 6-328 6-329 6-330 6-331 6-332 6-338 6-338 6-339
6-340 6-341 #6-341 6-341 6-342 6-343 6-346 #6-346 6-346
6-347 6-348 6-359 #6-359 *6-361 #6-361 6-363 6-363 6-364
6-365 6-372 6-372 6-374 #6-374 #7-427 *7-429 #7-429 *7-429
*7-429 7-430 7-431 7-432 7-434 7-434 #7-434 7-435 #7-435
7-435 7-436 7-437 *7-443 #7-443 *7-443 7-444 7-445 7-451
SRGNDC CREATED BY MACRO ON 13-OCT-79 AT 12:29 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#7-451 7-451 7-452 7-453 7-463 7-463 7-466 #7-466 7-467
#7-467 7-468 #7-468 #8-521 8-543 #8-543 8-543 8-546 8-547
*8-556 #8-556 *8-556 8-557 8-558 *8-560 #8-560 *8-560 8-561
8-562 *8-564 #8-564 8-565 #8-565 8-574 8-574 #8-574 *8-581
#8-581 *8-581 *8-581 8-582 8-583 8-587 #8-587 8-587 8-589
8-590 8-591 8-593 8-593 8-594 8-595 *8-600 8-600 8-602
#8-602 *8-605 8-605 #8-605
$$S767 = 000075 #5-229 5-235 #5-240 5-251
$$S770 = 000015 #5-229 5-235 #5-240 5-251
$$S771 = 000077 #5-224 *5-255 #6-311 6-315 #6-321 6-326 #6-346 6-359 #8-560
8-564
$$S772 = 000011 #5-196 5-201 #5-203 5-215 #5-224 5-255 #5-263 5-267 #5-273
5-280 #6-311 6-315 #6-321 6-326 #6-346 6-359 #7-451 7-466
#8-560 8-564
$$S773 = 000000 #5-196 5-201 #5-203 5-215 #5-224 5-255 #5-263 5-267 #5-273
5-280 #6-298 6-303 #6-304 6-327 #6-341 6-361 #7-451 7-466
#8-556 8-565 #8-587 8-602
$$S774 = 000077 #5-192 5-216 #5-218 5-256 #5-258 5-268 #5-269 5-282 #6-298
6-303 #6-304 6-327 #6-341 6-361 #7-443 7-467 #8-556 8-565
#8-587 8-602
$$S775 = 000013 #5-192 5-216 #5-218 5-256 #5-258 5-268 #5-269 5-282 #6-292
*6-374 #7-443 7-467 #8-543 8-574 #8-587 8-602
$$S776 = 000000 #5-188 5-284 #6-292 6-374 #7-429 7-434 #7-435 7-468 #8-543
8-574 #8-581 8-605
$$S777 = 000000 #5-188 5-284 #6-292 6-374 #7-429 7-434 #7-435 7-468 #8-543
8-574 #8-581 8-605
$$TRNM = 000000 #5-186 *5-188 #5-188 5-189 5-190 *5-192 #5-192 5-193 5-194
5-196 #5-196 5-197 5-198 5-201 #5-201 5-202 #5-202 5-203
#5-203 5-205 5-206 5-207 5-215 #5-215 5-216 #5-216 5-217
#5-217 5-218 #5-218 5-220 5-222 5-223 5-224 #5-224 5-227
5-228 5-229 #5-229 5-230 5-231 5-233 #5-233 *5-235 #5-235
5-236 5-236 #5-236 5-237 5-238 *5-240 #5-240 5-241 5-242
5-246 #5-246 5-251 #5-251 5-253 #5-253 5-255 5-255 #5-255
5-256 #5-256 5-258 #5-258 5-259 5-260 5-261 5-263 #5-263
5-264 5-265 *5-267 #5-267 5-268 #5-268 5-269 #5-269 5-270
5-271 5-272 5-273 #5-273 5-274 5-275 5-280 #5-280 *5-282
#5-282 5-284 #5-284 #6-291 6-292 #6-292 6-295 6-296 *6-298
#6-298 6-299 6-300 6-301 6-303 #6-303 6-304 #6-304 6-306
6-307 6-308 6-309 6-311 #6-311 6-312 6-313 *6-315 #6-315
6-316 #6-316 6-321 #6-321 6-322 6-323 6-326 #6-326 6-327
#6-327 6-328 6-328 #6-328 6-329 6-330 6-331 6-332 6-338
6-338 #6-338 6-339 6-340 6-341 #6-341 6-342 6-343 6-346
#6-346 6-347 6-348 6-359 #6-359 *6-361 #6-361 6-363 6-363
#6-363 6-364 6-365 6-372 #6-372 6-374 6-374 #6-374 #7-427
*7-429 #7-429 7-430 7-431 7-432 7-434 #7-434 7-435 #7-435
7-436 7-437 *7-443 #7-443 7-444 7-445 7-451 #7-451 7-452
7-453 7-463 #7-463 7-466 #7-466 7-467 #7-467 7-468 #7-468
#8-521 8-543 #8-543 8-546 8-547 *8-556 #8-556 8-557 8-558
*8-560 #8-560 8-561 8-562 *8-564 #8-564 8-565 #8-565 8-574
8-574 #8-574 *8-581 #8-581 8-582 8-583 8-587 #8-587 8-589
8-590 8-591 8-593 8-593 #8-593 8-594 8-595 8-600 #8-600
8-602 8-602 #8-602 8-605 #8-605
SRGNDC CREATED BY MACRO ON 13-OCT-79 AT 12:29 PAGE 8
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$$$ARG = 000002 #5-195 5-195 #5-195 5-195 #5-195 5-195 5-195 #5-195 5-195
5-195 5-195 5-195 5-195 5-195 5-195 5-195 5-195 5-195
#5-195 5-195 5-195 5-195 5-195 5-195 5-195 5-195 5-195
5-195 5-195 #5-195 5-195 5-195 5-195 5-195 5-195 5-195
5-195 5-195 5-195 5-195 #5-262 5-262 #5-262 5-262 #5-262
5-262 #5-262 5-262 5-262 #5-262 5-262 5-262 5-262 5-262
5-262 5-262 5-262 5-262 5-262 5-262 #5-262 5-262 5-262
5-262 5-262 5-262 5-262 5-262 5-262 5-262 5-262 #5-262
5-262 5-262 5-262 5-262 5-262 5-262 5-262 5-262 5-262
5-262 #6-310 6-310 #6-310 6-310 #6-310 6-310 #6-310 6-310
#6-310 6-310 #6-310 6-310 #6-310 6-310 #6-310 6-310 6-310
6-310 6-310 6-310 6-310 6-310 6-310 6-310 6-310 #6-310
6-310 6-310 6-310 6-310 6-310 6-310 6-310 6-310 6-310
6-310 #6-310 6-310 6-310 6-310 6-310 6-310 6-310 6-310
6-310 6-310 6-310 #6-320 6-320 #6-320 6-320 #6-320 6-320
#6-320 6-320 #6-320 6-320 #6-320 6-320 #6-320 6-320 #6-320
6-320 6-320 6-320 6-320 6-320 6-320 6-320 6-320 6-320
6-320 #6-320 6-320 6-320 6-320 6-320 6-320 6-320 6-320
6-320 6-320 6-320 #6-320 6-320 6-320 6-320 6-320 6-320
6-320 6-320 6-320 6-320 6-320
$$$FLG = 016650 #5-195 5-195 #5-262 5-262
SRGNDC CREATED BY MACRO ON 13-OCT-79 AT 12:29 PAGE 9
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
ACC$S #4-146 #6-320
CALL #5-232 #5-244 #5-279 #6-334 #6-345 #6-355 #6-368 #7-441 #7-450 #7-454
#7-462 #7-465 #8-528 #8-534 #8-542 #8-573 #8-592
CASE #5-186 5-226 5-236 #6-291 6-294 6-328 6-338 6-363 #7-427 #8-521
8-545 8-588 8-593
CONDF #4-145 #4-150
CONFIG #4-154 #4-168 #4-168
DIR$ #5-195 5-195 #5-262 5-262 #6-310 6-310 #6-320 6-320
DO #5-186 5-228 5-238 #6-291 6-296 6-301 6-332 6-340 6-365 #7-427
7-432 #8-521 8-547 8-583 8-591 8-595
ELSE #5-186 5-202 5-217 5-233 5-246 5-253 #6-291 6-316 6-372 #7-427
7-463 #8-521 8-600
ENDCAS #5-186 5-255 #6-291 6-374 #7-427 #8-521 8-574 8-602
ENDIF #5-186 #5-201 #5-215 #5-216 #5-235 #5-251 #5-255 #5-256 #5-267 #5-268
#5-280 #5-282 #5-284 #6-291 #6-303 #6-315 #6-326 #6-327 #6-359 #6-361
#6-374 #7-427 #7-434 #7-466 #7-467 #7-468 #8-521 #8-564 #8-565 #8-574
#8-602 #8-605
ENDPRO #5-186 5-286 #6-291 6-375 #7-427 7-469 #8-521 8-609
ENDWHI #5-186 #6-291 #6-303 #7-427 #7-434 #8-521 #8-605
EVLDF$ #8-513 8-517
FALSE #5-186 5-193 5-197 5-205 5-206 5-227 5-237 5-260 5-264 #6-291
6-295 6-299 6-308 6-312 6-322 6-331 6-339 6-342 6-347 6-364
#7-427 7-430 7-436 7-444 7-452 #8-521 8-582
FALSEB #5-186 5-189 5-220 5-222 5-230 5-241 5-259 5-270 5-271 5-274
#6-291 6-300 #7-427 7-431 #8-521 8-546 8-557 8-561 8-590 8-594
GNDMDF #4-145 #4-169
GND$S #4-146 5-195 5-262
IF #5-186 #5-188 #5-192 #5-196 #5-203 #5-218 #5-224 #5-229 #5-240 #5-258
#5-263 #5-269 #5-273 #6-291 #6-292 #6-298 #6-304 #6-311 #6-321 #6-341
#6-346 #7-427 #7-429 #7-435 #7-443 #7-451 #8-521 #8-543 #8-556 #8-560
#8-581 #8-587
JMPPRO #5-186 #6-291 #7-427 #8-521
LKUDF #4-145 4-152
LKUMDF #4-145 4-168
MOV$ #5-195 #5-195 #5-195 #5-195 #5-195 #5-195 #5-195 #5-195 #5-195 #5-262
#5-262 #5-262 #5-262 #5-262 #5-262 #5-262 #5-262 #5-262 #5-262 #6-310
#6-310 #6-310 #6-310 #6-310 #6-310 #6-310 #6-310 #6-310 #6-310 #6-310
#6-310 #6-310 #6-320 #6-320 #6-320 #6-320 #6-320 #6-320 #6-320 #6-320
#6-320 #6-320 #6-320 #6-320 #6-320
MVB$ #5-195 5-195 #5-262 5-262 #6-310 6-310 #6-320 6-320
NETDF$ #4-146 #4-151 #4-169 #4-169
NICDF #7-414 #7-418
ONCASE #5-186 5-224 #6-291 6-292 #7-427 #8-521 8-543 8-587
PRDF #7-414 7-419
PROC #4-145 5-186
PROCLC #5-186 6-291 #6-291 7-427 #7-427 8-521 #8-521
PROFLG #4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154
#4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154
#4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154
#4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154 #4-154
#4-154 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168
#4-168 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168
SRGNDC CREATED BY MACRO ON 13-OCT-79 AT 12:29 PAGE 10
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#4-168 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168
#4-168 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168 #4-168
#4-168 #4-168
QDPB$S #5-195 5-195 #5-262 5-262 #6-310 6-310 #6-320 6-320
REJ$S #4-146 #6-310
RESSTK #4-145 #5-285 #7-442 #8-513 #8-566 #8-606
RVP$ #5-195 #5-195 #5-195 #5-195 #5-262 #5-262 #5-262 #5-262 #6-310 #6-310
#6-310 #6-310 #6-320 #6-320 #6-320 #6-320
SAVSTK #4-145 #5-187 #7-440 #8-513 #8-552 #8-580
SRDF #4-145 #4-153 #4-168 #4-168
SRMDF #7-414 #7-423
SWSTK$ #5-186 #6-291 #7-427 #8-521
THEN #5-186 #5-190 #5-194 #5-198 #5-207 #5-223 #5-228 #5-231 #5-238 #5-242
#5-261 #5-265 #5-272 #5-275 #6-291 #6-296 #6-301 #6-309 #6-313 #6-323
#6-332 #6-340 #6-343 #6-348 #6-365 #7-427 #7-432 #7-437 #7-445 #7-453
#8-521 #8-547 #8-558 #8-562 #8-583 #8-591 #8-595
TRUE #5-186 #6-291 #6-306 #6-307 #6-329 #6-330 #7-427 #8-521
TRUEB #5-186 #6-291 #7-427 #8-521 #8-589
WHILE #5-186 #6-291 6-298 #7-427 7-429 #8-521 8-581
$CON$S #6-310 6-310 #6-320 6-320
$GNDF$ #5-195 5-195 #5-262 5-262
$$BGND #5-186 #5-189 #5-193 #5-197 #5-205 #5-206 #5-220 #5-222 #5-227 #5-230
#5-237 #5-241 #5-259 #5-260 #5-264 #5-270 #5-271 #5-274 #6-291 #6-295
#6-299 #6-300 #6-306 #6-307 #6-308 #6-312 #6-322 #6-329 #6-330 #6-331
#6-339 #6-342 #6-347 #6-364 #7-427 #7-430 #7-431 #7-436 #7-444 #7-452
#8-521 #8-546 #8-557 #8-561 #8-582 #8-589 #8-590 #8-594
$$BGNN #5-186 5-189 5-193 5-197 5-202 5-205 5-206 5-217 5-220 5-222
5-227 5-230 5-233 5-236 5-237 5-241 5-246 5-253 5-259 5-260
5-264 5-270 5-271 5-274 #6-291 6-295 6-299 6-300 6-303 6-306
6-307 6-308 6-312 6-316 6-322 6-328 6-329 6-330 6-331 6-338
6-339 6-342 6-347 6-363 6-364 6-372 #7-427 7-430 7-431 7-434
7-436 7-444 7-452 7-463 #8-521 8-546 8-557 8-561 8-582 8-589
8-590 8-593 8-594 8-600 8-605
$$ELSE #5-186 5-202 5-217 5-233 5-236 5-246 5-253 #6-291 6-316 6-328
6-338 6-363 6-372 #7-427 7-463 #8-521 8-593 8-600
$$GEN1 #5-186 #5-186 #5-189 #5-190 #5-193 #5-193 #5-194 #5-197 #5-198 #5-201
#5-202 #5-202 #5-205 #5-206 #5-206 #5-207 #5-215 #5-216 #5-217 #5-217
#5-220 #5-222 #5-222 #5-223 #5-227 #5-228 #5-230 #5-230 #5-231 #5-233
#5-233 #5-235 #5-236 #5-236 #5-237 #5-238 #5-241 #5-241 #5-242 #5-246
#5-246 #5-251 #5-253 #5-253 #5-255 #5-256 #5-259 #5-260 #5-260 #5-261
#5-264 #5-265 #5-267 #5-268 #5-270 #5-271 #5-271 #5-272 #5-274 #5-275
#5-280 #5-282 #5-284 #5-286 #6-291 #6-291 #6-295 #6-296 #6-298 #6-299
#6-300 #6-300 #6-301 #6-303 #6-303 #6-306 #6-307 #6-308 #6-308 #6-309
#6-312 #6-313 #6-315 #6-316 #6-316 #6-322 #6-323 #6-326 #6-327 #6-328
#6-328 #6-329 #6-330 #6-331 #6-332 #6-338 #6-338 #6-339 #6-340 #6-342
#6-342 #6-343 #6-347 #6-348 #6-359 #6-361 #6-363 #6-363 #6-364 #6-365
#6-372 #6-372 #6-374 #6-375 #7-427 #7-427 #7-429 #7-430 #7-431 #7-432
#7-434 #7-434 #7-436 #7-437 #7-444 #7-445 #7-452 #7-453 #7-463 #7-463
#7-466 #7-467 #7-468 #7-469 #8-521 #8-521 #8-546 #8-547 #8-557 #8-558
#8-561 #8-562 #8-564 #8-565 #8-574 #8-574 #8-581 #8-582 #8-583 #8-589
#8-590 #8-591 #8-593 #8-593 #8-594 #8-595 #8-600 #8-600 #8-602 #8-605
#8-605 #8-609
SRGNDC CREATED BY MACRO ON 13-OCT-79 AT 12:29 PAGE 11
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
$$GEN2 #5-186 5-189 5-220 5-227 5-237 5-259 5-270 #6-291 6-295 6-299
6-306 6-307 6-329 6-330 6-331 6-339 6-364 #7-427 7-430 7-431
7-436 #8-521 8-546 8-557 8-561 8-582 8-589 8-590 8-594
$$GNAB #5-186 5-189 5-193 5-197 5-220 5-227 5-230 5-237 5-241 5-259
5-260 5-264 5-270 5-274 #6-291 6-295 6-299 6-306 6-307 6-312
6-322 6-329 6-330 6-331 6-339 6-347 6-364 #7-427 7-430 7-431
7-436 7-444 7-452 #8-521 8-546 8-557 8-561 8-582 8-589 8-590
8-594
$$GNBT #5-186 #5-205 #5-206 #5-222 #5-271 #6-291 #6-300 #6-308 #6-342 #7-427
#8-521
$$GNCM #5-186 #5-189 #5-193 #5-197 #5-205 #5-206 #5-220 #5-222 #5-227 #5-230
#5-237 #5-241 #5-259 #5-260 #5-264 #5-270 #5-271 #5-274 #6-291 #6-295
#6-299 #6-300 #6-306 #6-307 #6-308 #6-312 #6-322 #6-329 #6-330 #6-331
#6-339 #6-342 #6-347 #6-364 #7-427 #7-430 #7-431 #7-436 #7-444 #7-452
#8-521 #8-546 #8-557 #8-561 #8-582 #8-589 #8-590 #8-594
$$INMC #5-186 5-186 #6-291 6-291 #7-427 7-427 #8-521 8-521
$$INSY #5-186 5-186 #6-291 6-291 #7-427 7-427 #8-521 8-521
$$LAB #5-186 5-190 5-194 5-198 5-201 5-202 5-207 5-215 5-216 5-217
5-223 5-228 5-231 5-233 5-235 5-236 5-238 5-242 5-246 5-251
5-253 5-255 5-256 5-261 5-265 5-267 5-268 5-272 5-275 5-280
5-282 5-284 #6-291 6-296 6-298 6-301 6-303 6-309 6-313 6-315
6-316 6-323 6-326 6-327 6-328 6-332 6-338 6-340 6-343 6-348
6-359 6-361 6-363 6-365 6-372 6-374 #7-427 7-429 7-432 7-434
7-437 7-445 7-453 7-463 7-466 7-467 7-468 #8-521 8-547 8-558
8-562 8-564 8-565 8-574 8-574 8-581 8-583 8-591 8-593 8-595
8-600 8-602 8-605
$$POP #5-186 5-201 5-201 5-215 5-215 5-216 5-216 5-235 5-235 5-251
5-251 5-255 5-255 5-255 5-256 5-256 5-267 5-267 5-268 5-268
5-280 5-280 5-282 5-282 5-284 5-284 #6-291 6-303 6-303 6-315
6-315 6-326 6-326 6-327 6-327 6-359 6-359 6-361 6-361 6-374
6-374 6-374 #7-427 7-434 7-434 7-466 7-466 7-467 7-467 7-468
7-468 #8-521 8-564 8-564 8-565 8-565 8-574 8-574 8-574 8-602
8-602 8-602 8-605 8-605
$$POPI #5-186 #5-201 #5-201 #5-215 #5-215 #5-216 #5-216 #5-235 #5-235 #5-251
#5-251 #5-255 #5-255 #5-255 #5-256 #5-256 #5-267 #5-267 #5-268 #5-268
#5-280 #5-280 #5-282 #5-282 #5-284 #5-284 #6-291 #6-303 #6-303 #6-315
#6-315 #6-326 #6-326 #6-327 #6-327 #6-359 #6-359 #6-361 #6-361 #6-374
#6-374 #6-374 #7-427 #7-434 #7-434 #7-466 #7-466 #7-467 #7-467 #7-468
#7-468 #8-521 #8-564 #8-564 #8-565 #8-565 #8-574 #8-574 #8-574 #8-602
#8-602 #8-602 #8-605 #8-605
$$PUSH #5-186 #5-188 #5-188 #5-192 #5-192 #5-196 #5-196 #5-203 #5-203 #5-218
#5-218 #5-224 #5-224 #5-224 #5-229 #5-229 #5-240 #5-240 #5-258 #5-258
#5-263 #5-263 #5-269 #5-269 #5-273 #5-273 #6-291 #6-292 #6-292 #6-292
#6-298 #6-298 #6-304 #6-304 #6-311 #6-311 #6-321 #6-321 #6-341 #6-341
#6-346 #6-346 #7-427 #7-429 #7-429 #7-435 #7-435 #7-443 #7-443 #7-451
#7-451 #8-521 #8-543 #8-543 #8-543 #8-556 #8-556 #8-560 #8-560 #8-581
#8-581 #8-587 #8-587 #8-587
$$STSM #5-186 #5-188 #5-188 #5-192 #5-192 #5-196 #5-196 #5-203 #5-203 #5-218
#5-218 #5-224 #5-224 #5-224 #5-229 #5-229 #5-240 #5-240 #5-258 #5-258
#5-263 #5-263 #5-269 #5-269 #5-273 #5-273 #6-291 #6-292 #6-292 #6-292
#6-298 #6-298 #6-304 #6-304 #6-311 #6-311 #6-321 #6-321 #6-341 #6-341
#6-346 #6-346 #7-427 #7-429 #7-429 #7-435 #7-435 #7-443 #7-443 #7-451
SRGNDC CREATED BY MACRO ON 13-OCT-79 AT 12:29 PAGE 12
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#7-451 #8-521 #8-543 #8-543 #8-543 #8-556 #8-556 #8-560 #8-560 #8-581
#8-581 #8-587 #8-587 #8-587
$$SYS #5-186 #6-291 #7-427 #8-521
$$TRCE #5-186 5-186 5-286 #6-291 6-291 6-375 #7-427 7-427 7-469 #8-521
8-521 8-609