Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/lglogd.list
There are no other files named lglogd.list in the archive.
LGLOGD MACRO M1110 13-OCT-79 11:53
TABLE OF CONTENTS
8- 81 LGABRT
19- 1143 LGFINI
20- 1227 LGINIT
21- 1329 LGLOGD
22- 1448 LGPARS
25- 1819 LGTTSK
26- 1970 LGTMND
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 3
1 .TITLE LGLOGD
2 .NLIST CND
3 .ENABL LC
4 .IDENT /V01.08/
5 ;
6 ; COPYRIGHT (C) 1978 BY
7 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
8 ;
9 ;
10 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
11 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
12 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
13 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
14 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
15 ; TRANSFERRED.
16 ;
17 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
18 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
19 ; CORPORATION.
20 ;
21 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
22 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
23 ;
24 ;
25 ; MODULE DESCRIPTION:
26 ;
27 ; NCU EVENT LOGGING DATA SERVICE
28 ;
29 ;
30 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
31 ;
32 ; IDENT HISTORY:
33 ;
34 ; 1.00 13-DEC-78
35 ; VERSION 2.0 RELEASE
36 ; 1.05 23-FEB-79 ALAN D. PECKHAM
37 ; ADD MONITOR TASK CODING
38 ; 1.06 1-MAR-79 ALAN D. PECKHAM
39 ; EVERY NEW FEATURE SHOULD HAVE A BUG IN IT...
40 ; 1.07 2-MAR-79 BUREN W. HOFFMAN
41 ; FIXED SAVING OF LUN TO SAVE WHOLE WORD LUN TABLE ADDRESS,
42 ; INSTEAD OF LUN #.
43 ; 1.08 28-MAR-79 ALAN D. PECKHAM
44 ; ADD CODE TO ALLOW TARGET LINKS TO BE LEFT OPEN IF MORE LOG DATA
45 ; MESSAGES HAVE BEEN RECEIVED.
46 ;
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 4
48 ;
49 ; +-------------------------------------------------+
50 ; I I
51 ; I E V E N T L O G G I N G S E R V I C E I
52 ; I - - - - - - - - - - - - - - - - - - - - - I
53 ; I I
54 ; +-------------------------------------------------+
55 ;
56 ; FUNCTION:
57 ;
58 ; PROCESSOR FOR NICE EVENT LOGGING DATA FUNCTIONS
59 ;
60 ; REQUIREMENTS:
61 ;
62 ; SYSTEM CONFIGURATION SYMBOLS:
63 ;
64 ; R$$11M - DEFINED IF ASSEMBLING FOR AN RSX-11M/S SYSTEM
65 ; R$$11D - DEFINED IF ASSEMBLING FOR AN RSX-11D SYSTEM
66 ; I$$AS - DEFINED IF ASSEMBLING FOR AN IAS SYSTEM
67 ;
68 ; NICE/NCP SET CONFIGURATION SYMBOLS:
69 ;
70 ; F$LOGD - EVENT LOGGING DATA
71 ;
72 ; EXTERNAL MACROS
73 ;
74 .MCALL PROC,PROCLC
75 ;
76 ; DEFINE CONFIGURATION CONTROL SYMBOLS
77 ;
78 000000 CONFIG
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 5
LGABRT
81 .SBTTL LGABRT
82 ;
83 ;======================================================================;
84 ;++
85 ; +-------------------------------------------------+
86 ; I I
87 ; I L G A B R T I
88 ; I - - - - - - I
89 ; I I
90 ; +-------------------------------------------------+
91 ;
92 ; FUNCTION:
93 ;
94 ; EVENT LOGGING DATA SERVICE MODULE TO ABORT PROCESSING
95 ;
96 ; INPUT:
97 ;
98 ; R0 - NICE RESPONSE MESSAGE RETURN CODE
99 ; R4 - ADDRESS OF CONTEXT BLOCK
100 ; R5 - ADDRESS OF CONTROL BLOCK
101 ;
102 ; OUTPUT:
103 ;
104 ; @R4 - UPDATED CONTEXT
105 ; STATE - FINISH STATE VALUE
106 ; @R5 - UPDATED CONTROL BLOCK
107 ; C.FUNC - ZERO
108 ;
109 ; REQUIREMENTS:
110 ;
111 ; EVENT LOGGING SERVICE SYMBOLS:
112 ;
113 ; FINISH - FINISH STATE VALUE
114 ; STATE - OFFSET OF PROCESSING STATE IN CONTEXT
115 ;
116 ; CONTROL BLOCK SYMBOLS:
117 ;
118 ; C.FUNC - OFFSET OF FUNCTION CODE
119 ;
120 ;--
121 ;======================================================================;
122 ;
123 ; EXTERNAL MACROS
124 ;
125 .MCALL LGDF,CONDF
126 ;
127 ; DEFINE EXTERNAL SYMBOLS
128 ;
129 000000 LGDF ;EVENT LOGGING DATA SYMBOLS
130 000000 CONDF ;CONTROL BLOCK SYMBOLS
131 ;
132 ; LOCAL PROCEDURE BODY
133 ;
134 000000 PROCLC LGABRT
135 000000 105065 000006 CLRB C.FUNC(R5) ;INITIALIZE FOR NEXT STEP
136 000004 112764 000002 000021 MOVB #FINISH,STATE(R4) ;START THE TERMINATION
137 000012 ENDPROC
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 16
LGFINI
1143 .SBTTL LGFINI
1144 ;
1145 ;======================================================================;
1146 ;++
1147 ; +-------------------------------------------------+
1148 ; I I
1149 ; I L G F I N I I
1150 ; I - - - - - - I
1151 ; I I
1152 ; +-------------------------------------------------+
1153 ;
1154 ; FUNCTION:
1155 ;
1156 ; EVENT LOGGING DATA SERVICES MODULE TO FINISH PROCESSING
1157 ;
1158 ; INPUT:
1159 ;
1160 ; R5 - ADDRESS OF CONTROL BLOCK
1161 ; C.ADDR - ADDRESS OF COMMAND MESSAGE BUFFER
1162 ; C.CTXT - ADDRESS OF CONTEXT BLOCK
1163 ; C.FUNC - FUNCTION JUST COMPLETED
1164 ; C.PROC - PROCESSOR NUMBER: #P$LOGD
1165 ;
1166 ; OUTPUT:
1167 ;
1168 ; @R5 - UPDATED CONTROL BLOCK
1169 ; C.ADDR - ADDRESS OF CONTEXT BLOCK
1170 ; C.CTXT - ZERO
1171 ; C.FUNC - FUNCTION TO PERFORM
1172 ;
1173 ; REQUIREMENTS:
1174 ;
1175 ; CONTROL BLOCK SYMBOLS:
1176 ;
1177 ; C.ADDR - OFFSET OF ADDRESS FIELD
1178 ; C.CTXT - OFFSET OF CONTEXT FIELD
1179 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1180 ; C.PROC - PROCESS FUNCTION CODE
1181 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
1182 ;
1183 ; PROCESSOR SYMBOLS:
1184 ;
1185 ; P$LOGD - EVENT LOGGING DATA
1186 ;
1187 ;--
1188 ;======================================================================;
1189 ;
1190 ;
1191 ; EXTERNAL MACROS
1192 ;
1193 .MCALL LGDF,PRDF,CONDF
1194 ;
1195 ; DEFINE EXTERNAL SYMBOLS
1196 ;
1197 000014 CONDF ;CONTROL BLOCK SYMBOLS
1198 000014 PRDF ;PROCESOR SYMBOLS
1199 000014 LGDF ;EVENT LOGGING DATA SYMBOLS
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 16-1
LGFINI
1200 ;
1201 ; LOCAL PROCEDURE BODY
1202 ;
1203 000014 PROCLC LGFINI
1204 000014 IF ; FUNCTION CODE = 0
1205 000014 FALSEB SET C.FUNC(R5)
1206 000022 THEN
1207 000022 112765 177777 000006 MOVB #-C$RLBF,C.FUNC(R5) ;RELEASE THE MESSAGE BUFFER
1208 000030 ENDIF
1209 000030 IF ; INTERNAL BUFFER NOT RELEASED YET
1210 000030 FALSE CLEAR MESBUF(R4)
1211 000036 FALSEB NE C.FUNC(R5),#C$RLBF
1212 000046 THEN
1213 000046 016465 000000 000014 MOV MESBUF(R4),C.ADDR(R5) ;SET UP TO RELEASE INTERNAL BUFFER
1214 000054 005064 000000 CLR MESBUF(R4) ;NO MORE INTERNAL MESSAGE BUFFER
1215 000060 105465 000006 NEGB C.FUNC(R5) ;SET FUNCTION CODE TO RELEASE BUFFER
1216 000064 ENDIF
1217 000064 IF ; CONTEXT NOT RELEASED YET
1218 000064 FALSEB NE C.FUNC(R5),#C$RLBF
1219 000074 THEN
1220 000074 016465 000022 000020 MOV OLDLUN(R4),C.LKNM(R5) ;RESTORE LINK LUN.
1221 000102 010465 000014 MOV R4,C.ADDR(R5) ;SET UP TO RELEASE CONTEXT BLOCK
1222 000106 005065 000004 CLR C.CTXT(R5) ;NO MORE CONTEXT POINTER
1223 000112 105465 000006 NEGB C.FUNC(R5) ;SET FUNCTION CODE TO RELEASE BUFFER
1224 000116 ENDIF
1225 000116 ENDPROC
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 17
LGINIT
1227 .SBTTL LGINIT
1228 ;
1229 ;======================================================================;
1230 ;++
1231 ; +-------------------------------------------------+
1232 ; I I
1233 ; I L G I N I T I
1234 ; I - - - - - - I
1235 ; I I
1236 ; +-------------------------------------------------+
1237 ;
1238 ; FUNCTION:
1239 ;
1240 ; EVENT LOGGING DATA SERVICE INITIALIZATION MODULE
1241 ;
1242 ; INPUT:
1243 ;
1244 ; R5 - ADDRESS OF CONTROL BLOCK
1245 ; C.ADDR - ON ALLOCATE BUFFER COMPLETION, ADDRESS OF BUFFER
1246 ; C.FUNC - FUNCTION JUST PERFORMED
1247 ; C.SAVE - ON ALLOCATE BUFFER COMPLETION, SAVED FIELDS
1248 ; OTHER INPUTS - AS SPECIFIED FOR LGPARS
1249 ;
1250 ; OUTPUT:
1251 ;
1252 ; R4 - ADDRESS OF CONTEXT BLOCK
1253 ; OTHER FIELDS - ZERO OR AS SPECIFIED FOR LGPARS
1254 ; @R5 - UPDATED CONTROL BLOCK
1255 ; C.CTXT - ON FINAL RETURN, ADDRESS OF CONTEXT BLOCK
1256 ; C.FUNC - FUNCTION TO PERFORM
1257 ; C.LEN - ON ALLOCATE BUFFER REQUEST, LENGTH OF BUFFER
1258 ; C.SAVE - ON ALLOCATE BUFFER REQUEST, SAVED FIELDS
1259 ; OTHER OUTPUTS - AS SPECIFIED FOR LGPARS
1260 ;
1261 ; REQUIREMENTS:
1262 ;
1263 ; CONTROL BLOCK SYMBOLS:
1264 ;
1265 ; C.ADDR - OFFSET OF ADDRESS FIELD
1266 ; C.CTXT - OFFSET OF CONTEXT FIELD
1267 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1268 ; C.LEN - OFFSET OF LENGTH FIELD
1269 ; C.SAVE - OFFSET OF SAVE AREA
1270 ; C$ALBF - ALLOCATE BUFFER FUNCTION CODE
1271 ; C$PROC - PROCESS FUNCTION CODE
1272 ;
1273 ; EVENT LOGGING DATA SERVICE SYMBOLS:
1274 ;
1275 ; CTXTLN - LENGTH OF CONTEXT BLOCK
1276 ;
1277 ;--
1278 ;======================================================================;
1279 ;
1280 ;
1281 ; EXTERNAL MACROS
1282 ;
1283 .MCALL CONDF,LGDF,CRBDF$
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 17-1
LGINIT
1284 ;
1285 ; DEFINE EXTERNAL SYMBOLS
1286 ;
1287 000120 CONDF ;CONTROL BLOCK SYMBOLS
1288 000120 LGDF ;EVENT LOGGING DATA SYMBOLS
1289 000120 CRBDF$ ;CONNECT BLOCK SYMBOLS
1290 ;
1291 ; LOCAL PROCEDURE BODY
1292 ;
1293 000120 PROCLC LGINIT
1294 000120 IF ; CONTROL BLOCK FUNCTION CODE = PROCESS JOB
1295 000120 FALSEB NE C.FUNC(R5),#C$PROC
1296 000130 THEN
1297 000130 016565 000014 000022 MOV C.ADDR(R5),C.SAVE(R5) ;SAVE ADDRESS OF MESSAGE
1298 000136 016565 000012 000024 MOV C.LEN(R5),C.SAVE+2(R5) ;SAVE LENGTH OF MESSAGE
1299 000144 012765 000024 000012 MOV #CTXTLN,C.LEN(R5) ;SET LENGTH OF CONTEXT BLOCK
1300 000152 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5) ;ALLOCATE CONTEXT BLOCK
1301 000160 ELSE ; MUST BE ALLOCATE MEMORY BUFFER
1302 000162 IF ; CONTEXT NOT SET
1303 000162 FALSE SET R4
1304 000166 THEN
1305 000166 016504 000014 MOV C.ADDR(R5),R4 ;GET CONTEXT BLOCK ADDRESS
1306 000172 010465 000004 MOV R4,C.CTXT(R5) ;AND PUT IT IN CONTROL BLOCK
1307 000176 005000 CLR R0 ;SET UP A ZERO TO SPRAY
1308 000200 010401 MOV R4,R1 ;START AT BEGINNING OF CONTEXT
1309 000202 012702 000024 MOV #CTXTLN,R2 ;NUMBER OF BYTES TO SPRAY
1310 000206 CALL SPRAY ;ZERO THE CONTEXT BLOCK
1314 000212 012765 000204 000012 MOV #132.,C.LEN(R5) ;ALLOCATE A MESSAGE BUFFER
1316 000220 105465 000006 NEGB C.FUNC(R5)
1317 000224 ELSE
1318 000226 016564 000014 000000 MOV C.ADDR(R5),MESBUF(R4) ;MESSAGE BUFFER ALLOCATED
1319 000234 016564 000020 000022 MOV C.LKNM(R5),OLDLUN(R4) ;LUN OVER WHICH MESSAGE WAS RECEIVED
1320 000242 016565 000024 000012 MOV C.SAVE+2(R5),C.LEN(R5) ;RESTORE SAVED LENGTH
1321 000250 016565 000022 000014 MOV C.SAVE(R5),C.ADDR(R5) ;RESTORE SAVED MESSAGE ADDRESS
1322 000256 105065 000006 CLRB C.FUNC(R5) ;RESET FUNCTION
1323 000262 005367 000000G DEC LOGCN ;COUNT THIS MESSAGE OUT.
1324 000266 CALL LGPARS ;PARSE MESSAGE TO CONTEXT
1325 000272 ENDIF
1326 000272 ENDIF
1327 000272 ENDPROC
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 18
LGLOGD
1329 .SBTTL LGLOGD
1330 ;
1331 ;======================================================================;
1332 ;++
1333 ; +-------------------------------------------------+
1334 ; I I
1335 ; I L G L O G D I
1336 ; I - - - - - - I
1337 ; I I
1338 ; +-------------------------------------------------+
1339 ;
1340 ; FUNCTION:
1341 ;
1342 ; PROCESSOR FOR EVENT LOGGING DATA
1343 ;
1344 ; INPUT:
1345 ;
1346 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING SET
1347 ; C.FUNC - FUNCTION CODE: #C$PROC
1348 ; C.ADDR - ADDRESS OF ARGUMENT BLOCK
1349 ; C.LEN - LENGTH OF NICE MESSAGE
1350 ;
1351 ; OUTPUT:
1352 ;
1353 ; C-BIT - CLEAR
1354 ; @R5 - UPDATED CONTROL BLOCK
1355 ; C.RET - RETURN CODE
1356 ;
1357 ; REQUIREMENTS:
1358 ;
1359 ; CONTROL BLOCK SYMBOLS:
1360 ;
1361 ; C.FUNC - OFFSET OF FUNCTION CODE
1362 ; C.PROC - PROCESS FUNCTION CODE
1363 ; C.ADDR - OFFSET OF ADDRESS FIELD
1364 ; C.CTXT - OFFSET OF PROCESSOR CONTEXT DATA POINTER
1365 ;
1366 ; PROCESSOR SYMBOLS:
1367 ;
1368 ; P$GCTM - GET COMMAND
1369 ;
1370 ; EVENT LOGGING DATA SERVICE SYMBOLS:
1371 ;
1372 ; STATE - CURRENT PROCESSOR STATE
1373 ; PROC - PROCESS MESSAGE PROCESSER STATE
1374 ; FINISH - PROCESSER STATE TO FINISH UP
1375 ;
1376 ;--
1377 ;======================================================================;
1378 ;
1379 ; EXTERNAL MACROS
1380 ;
1381 .MCALL CONDF,LGDF
1382 ;
1383 ; DEFINE EXTERNAL SYMBOLS
1384 ;
1385 000274 CONDF ;CONTROL BLOCK SYMBOLS
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 18-1
LGLOGD
1386 000274 LGDF ;EVENT LOGGING DATA SERVICE SYMBOLS
1387 000274 PRDF ;PROCESSOR SYMBOLS
1388 ;
1389 ; PROCEDURE BODY
1390 ;
1391 000274 PROC LGLOGD
1392 000274 016504 000004 MOV C.CTXT(R5),R4 ;GET CONTEXT POINTER
1393 000300 IF ; CONTEXT POINTER = 0
1394 000300 TRUE CLEAR
1395 000302 FALSEB SET STATE(R4)
1396 000310 THEN
1397 000310 IF ; FUNCTION CODE <> RELEASE MEMORY BUFFER
1398 000310 FALSEB EQ C.FUNC(R5),#C$RLBF
1399 000320 THEN
1400 000320 CALL LGINIT ;INITIALIZE
1401 000324 ELSE ; MUST HAVE JUST RELEASED CONTEXT, ALL DONE!
1402 000326 112765 000001 000007 MOVB #P$GTCM,C.PROC(R5) ;PASS THIS BACK FROM WHENCE IT CAME
1403 000334 112765 000200 000006 MOVB #C$PROC,C.FUNC(R5) ;FIX UP FUNCTION CODE
1404 000342 012765 177777 000004 MOV #-1,C.CTXT(R5) ;SIGNAL COMPLETE
1405 000350 005004 CLR R4 ;MAKE SURE NOBODY ELSE IN HERE RUNS
1406 000352 ENDIF
1407 000352 ENDIF
1408 000352 IF ; CONTEXT POINTER <> 0
1409 000352 FALSE CLEAR R4
1410 000356 THEN
1411 000356 WHILE ; STATE = PROCESS AND FUNCTION CODE >= 0
1412 000356 FALSEB NE STATE(R4),#PROC
1413 000366 FALSEB LT C.FUNC(R5)
1414 000374 DO
1415 000374 ONCASE ; TARGETS ENABLED
1417 000374 CASE ; MASTER NODE TARGET ENABLED
1418 000374 FALSE CLEAR #LG.MND,FLAGS(R4)
1419 000404 DO
1420 000404 CALL LGTMND
1423 000410 CASE ; MONITOR TASK
1424 000412 FALSE CLEAR #LG.TSK,FLAGS(R4)
1425 000422 DO
1426 000422 CALL LGTTSK
1434 000426 ELSE ; ALL TARGETS TAKEN CARE OF
1435 000430 CALL LGABRT
1436 000434 ENDCASE
1437 000434 ENDWHILE
1438 000436 IF ; STATE = FINISH UP
1439 000436 FALSEB NE STATE(R4),#FINISH
1440 000446 THEN
1441 000446 CALL LGFINI ;CLEAN UP
1442 000452 ENDIF
1443 000452 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
1444 000456 ENDIF
1445 000456 000241 CLC ;FOLLOWING THE RULES...
1446 000460 ENDPROC
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 19
LGPARS
1448 .SBTTL LGPARS
1449 ;
1450 ;======================================================================;
1451 ;++
1452 ; +-------------------------------------------------+
1453 ; I I
1454 ; I L G P A R S I
1455 ; I - - - - - - I
1456 ; I I
1457 ; +-------------------------------------------------+
1458 ;
1459 ; FUNCTION:
1460 ;
1461 ; EVENT LOGGING DATA SERVICE MODULE TO PARSE THE NICE COMMAND MESSAGE
1462 ;
1463 ; INPUT:
1464 ;
1465 ; R4 - ADDRESS OF CONTEXT BLOCK
1466 ; R5 - ADDRESS OF CONTROL BLOCK
1467 ; C.ADDR - ADDRESS OF MESSAGE
1468 ; C.LEN - LENGTH OF MESSAGE
1469 ;
1470 ; OUTPUT:
1471 ;
1472 ; @R4 - UPDATED CONTEXT BLOCK
1473 ; OPTION - PROCESSING INDEX FOR NICE SET OPTION
1474 ; STATE - IF SUCCESSFUL, SET UP STATE VALUE
1475 ; @R5 - UPDATED CONTROL BLOCK
1476 ; C.FUNC - IF SUCCESSFUL, ZERO
1477 ; OTHER OUTPUTS - AS DESCRIBED FOR LGABRT
1478 ;
1479 ; REQUIREMENTS:
1480 ;
1481 ; SET PARAMETER SYMBOLS:
1482 ;
1483 ; STATE - OFFSET OF PROCESSING STATE IN CONTEXT
1484 ;
1485 ; EVENT LOGGING DATA SERVICE SYMBOLS:
1486 ;
1487 ;
1488 ; CONFIGURATION CONTROL SYMBOLS:
1489 ;
1490 ; F$LOGD - "EVENT LOGGING DATA" CONFIGURATION CONTROL FLAG
1491 ;
1492 ; CONTROL BLOCK SYMBOLS:
1493 ;
1494 ; C.ADDR - OFFSET OF ADDRESS FIELD
1495 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1496 ; C.PROC - PROCESS FUNCTION CODE OFFSET
1497 ; C.LEN - OFFSET OF LENGTH FIELD
1498 ;
1499 ;--
1500 ;======================================================================;
1501 ;
1502 ;
1503 ; EXTERNAL MACROS
1504 ;
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 19-1
LGPARS
1505 .MCALL LGDF,NICDF,CONDF,SAVSTK,RESSTK
1506 ;
1507 ; DEFINE EXTERNAL SYMBOLS
1508 ;
1509 000462 LGDF ;EVENT LOGGING DATA SYMBOLS
1510 000462 NICDF ;NICE MESSAGE SYMBOLS
1511 000462 CONDF ;CONTROL BLOCK SYMBOLS
1512 ;
1513 ; LOCAL PROCEDURE BODY
1514 ;
1515 000462 PROCLC LGPARS
1516 000462 SAVSTK <R3> ;SAVE REGISTER
1517 000464 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE
1518 000470 010203 MOV R2,R3 ;COPY IT
1519 000472 066503 000012 ADD C.LEN(R5),R3 ;COMPUTE END ADDRESS
1520 000476 005202 INC R2 ;MOVE PAST FUNCTION CODE
1521 000500 CALL GTMSBY ;GET THE OPTION BYTE
1522 000504 IF ; SUCCESS
1523 000504 FALSE CS
1524 000506 THEN
1525 000506 012701 000000G MOV #LOGDB,R1 ;GET LOG DATA BASE
1526 000512 WHILE ; LOGGING TYPE NOT FOUND
1527 000512 FALSE LOS #LOGDBE,R1
1528 000520 FALSEB EQ (R1),R0
1529 000524 DO
1530 000524 062701 000000G ADD #L.GLEN,R1 ;GO ON TO NEXT ENTRY
1531 000530 ENDWHILE
1532 000532 IF ; LOGGING TYPE FOUND AND LOGGING ENABLED
1533 000532 FALSE LOS #LOGDBE,R1
1534 000540 011100 MOV (R1),R0 ;PICK UP TARGETS
1535 000542 FALSE PL
1536 000544 THEN
1537 000544 010164 000014 MOV R1,LOGD(R4) ;SAVE DATA BASE ADDRESS
1538 000550 042700 100377 BIC #^C<177*400>,R0 ;CLEAR OUT EXTRANEOUS BITS
1539 000554 010064 000016 MOV R0,FLAGS(R4) ;THE ENABLED TARGETS.
1540 000560 010264 000002 MOV R2,NODE(R4) ;ADDRESS OF SOURCE NODE NAME
1541 000564 CALL GTMSBY ;AND GET ITS LENGTH
1542 000570 ELSE
1543 000572 000261 SEC ;INVALID LOGGING TYPE
1544 000574 ENDIF
1545 000574 IF ; SUCCESS AND NOT TOO LARGE
1546 000574 FALSE CS
1547 000576 FALSE LO #6.,R0
1548 000604 THEN
1549 000604 060002 ADD R0,R2 ;BYPASS THE SOURCE NODE NAME
1550 000606 010264 000004 MOV R2,COMP(R4) ;SAVE ADDRESS OF COMPONENT NAME
1551 000612 CALL GTMSBY ;AND GET ITS LENGTH
1552 000616 IF ; SUCCESS AND NOT TOO LARGE
1553 000616 FALSE CS
1554 000620 FALSE LO #16.,R0
1555 000626 THEN
1556 000626 060002 ADD R0,R2 ;BYPASS THE COMPONENT NAME
1557 000630 CALL GTMSBY ;GET THE SEQUENCE NUMBER
1558 000634 IF ; SUCCESS
1559 000634 FALSE CS
1560 000636 THEN
1561 000636 110064 000020 MOVB R0,SEQN(R4) ;SAVE THE SEQUENCE NUMBER
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 19-2
LGPARS
1562 000642 CALL GTMSWD ;GET THE EVENT CODE
1563 000646 IF ; SUCCESS AND WITHIN RANGE
1564 000646 FALSE CS
1565 000650 THEN
1566 000650 010064 000006 MOV R0,EVNT(R4) ;SAVE EVENT CODE.
1567 000654 010264 000010 MOV R2,DTBEG(R4) ;SAVE BEGINNING
1568 000660 010364 000012 MOV R3,DTEND(R4) ;AND END OF DATA.
1569 000664 WHILE ; MORE MESSAGE TO LOOK AT
1570 000664 FALSE CS
1571 000666 FALSE EQ DTEND(R4),R2
1572 000674 DO ; GET A DATA TYPE
1573 000674 CALL GTMSBY
1574 000700 IF ; WE GOT A VALID DATA TYPE
1575 000700 FALSE CS
1576 000702 FALSE LO #BPSMAX,R0
1577 000710 THEN ; BYPASS THE DATA
1578 000710 006300 ASL R0
1579 000712 CALL @BYPASS(R0)
1580 000716 ENDIF
1581 000716 ENDWHILE
1582 000720 ENDIF
1583 000720 ENDIF
1584 000720 ENDIF
1585 000720 ENDIF
1586 000720 ENDIF
1587 000720 IF ; SUCCESS
1588 000720 FALSE CS
1589 000722 THEN
1590 000722 105065 000006 CLRB C.FUNC(R5) ;INITIALIZE FOR NEXT STATE
1591 000726 112764 000001 000021 MOVB #PROC,STATE(R4) ;MOVE TO NEXT STATE
1592 000734 ELSE
1593 000736 CALL LGABRT ;BLOW IT UP
1594 000742 ENDIF
1595 000742 RESSTK <R3> ;RESTORE REGISTER
1596 000744 ENDPROC
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 20
LGPARS
1598 ;
1599 ; DISPATCH VECTOR TO BYPASS A DATA TYPE FIELD
1600 ;
1601 000000 .PSECT WORD,D
1602 000000 BYPASS:
1603 000000 000746' .WORD BPSINV ; 0 (INVALID)
1604 000002 000752' .WORD BPSI ; 1 GENERAL DATA
1605 000004 000772' .WORD BPSEX ; 2 TIME
1606 000006 001024' .WORD BPS4 ; 3 DATE
1607 000010 000772' .WORD BPSEX ; 4 UPTIME
1608 000012 000752' .WORD BPSI ; 5 DEVICE-ID
1609 000014 000772' .WORD BPSEX ; 6 REASON
1610 000016 000752' .WORD BPSI ; 7 RECOVERY
1611 000020 000764' .WORD BPS1I ; 8 OPERATING SYSTEM ID
1612 000022 000752' .WORD BPSI ; 9 NODE IDENTIFICATION
1613 000024 001016' .WORD BPS2 ; 10 MICROCODE DESCRIPTOR
1614 000026 000772' .WORD BPSEX ; 11 LINE PROTOCOL
1615 000030 000772' .WORD BPSEX ; 12 TRANSMISSION PROTOCOL
1616 000032 001016' .WORD BPS2 ; 13 THRESHOLD
1617 000034 000752' .WORD BPSI ; 14 TEXT
1618 000016 BPSMAX =.-BYPASS/2-1
1619 000746 .PSECT
1620 ;
1621 ; INVALID CODE
1622 ;
1623 000746 PROCLC BPSINV
1624 000746 000261 SEC
1625 000750 ENDPROC
1626 ;
1627 ; BYPASS AN IMAGE FIELD
1628 ;
1629 000752 PROCLC BPSI
1630 000752 005046 CLR -(SP)
1631 000754 152216 BISB (R2)+,(SP)
1632 000756 062602 ADD (SP)+,R2
1633 000760 JMPPROC BPSCHK
1634 ;
1635 ; BYPASS A BYTE FOLLOWED BY AN I-TYPE FIELD
1636 ;
1637 000764 PROCLC BPS1I
1638 000764 005202 INC R2
1639 000766 JMPPROC BPSI
1640 ;
1641 ; BYPASS AN EXTENDABLE BINARY FIELD
1642 ;
1643 000772 PROCLC BPSEX
1644 000772 WHILE ; FIELD IS EXTENDED
1645 000772 FALSE LO DTEND(R4),R2
1646 001000 FALSEB PL (R2)
1647 001004 DO
1648 001004 005202 INC R2
1649 001006 ENDWHILE
1650 001010 005202 INC R2
1651 001012 JMPPROC BPSCHK
1652 ;
1653 ; BYPASS A TWO BYTE FIELD
1654 ;
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 20-1
LGPARS
1655 001016 PROCLC BPS2
1656 001016 122222 CMPB (R2)+,(R2)+
1657 001020 JMPPROC BPSCHK
1658 ;
1659 ; BYPASS A FOUR BYTE FIELD
1660 ;
1661 001024 PROCLC BPS4
1662 001024 062702 000004 ADD #4,R2
1663 001030 JMPPROC BPSCHK
1664 ;
1665 ; SET THE CARRY IF BEYOND THE DATA AREA
1666 ;
1667 001034 PROCLC BPSCHK
1668 001034 026402 000012 CMP DTEND(R4),R2
1669 001040 ENDPROC
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 22
LGTTSK
1819 .SBTTL LGTTSK
1820 ;
1821 ;======================================================================;
1822 ;++
1823 ; +-------------------------------------------------+
1824 ; I I
1825 ; I L G T T S K I
1826 ; I - - - - - - I
1827 ; I I
1828 ; +-------------------------------------------------+
1829 ;
1830 ; FUNCTION:
1831 ;
1832 ; EVENT LOGGING DATA SERVICE MODULE TO ROUTE EVENT LOG MESSAGE TO
1833 ; MONITOR TASK TARGET
1834 ;
1835 ; INPUT:
1836 ;
1837 ; R4 - ADDRESS OF CONTEXT BLOCK
1838 ; R5 - ADDRESS OF CONTROL BLOCK
1839 ;
1840 ; NO OUTPUTS
1841 ;
1842 ; REQUIREMENTS:
1843 ;
1844 ;--
1845 ;======================================================================;
1846 ;
1847 ; EXTERNAL MACROS
1848 ;
1849 .MCALL LGDF,CRBDF$
1850 ;
1851 ; DEFINE EXTERNAL SYMBOLS
1852 ;
1853 001042 LGDF ;EVENT LOGGING DATA SYMBOLS
1854 001042 CRBDF$ ;CONNECT BLOCK OFFSETS
1855 ;
1856 ; LOCAL DATA (MUST BE IN ROOT)
1857 ;
1858 000000 .PSECT $DATA,D,GBL
1859 000000 000000 TSKLNK: .WORD 0 ;CURRENT LINK NUMBER IF OPEN
1860 001042 .PSECT
1861 ;
1862 ; LOCAL PROCEDURE BODY
1863 ;
1864 001042 PROCLC LGTTSK
1865 001042 IF ; FUNCTION CODE = 0
1866 001042 FALSEB SET C.FUNC(R5)
1867 001050 THEN
1868 001050 016565 000014 000022 MOV C.ADDR(R5),C.SAVE(R5) ;SAVE BUFFER ADDRESS
1869 001056 016565 000012 000024 MOV C.LEN(R5),C.SAVE+2(R5) ;AND LENGTH.
1870 001064 016400 000014 MOV LOGD(R4),R0 ;GET LOGGING TARGET ENTRY ADDRESS
1871 001070 IF ; TARGET NOT OPEN
1872 001070 016765 000000' 000020 MOV TSKLNK,C.LKNM(R5)
1873 001076 FALSE SET
1874 001100 THEN
1875 001100 042760 000000G 000000G BIC #LG.TSK,L.GSWX(R0) ;CLEAR THE "ALTERED TARGET" FLAG
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 22-1
LGTTSK
1876 001106 062700 000000G ADD #L.GTND,R0 ;GET TASK'S NODE NAME
1877 001112 016465 000000 000014 MOV MESBUF(R4),C.ADDR(R5) ;PUT BUFFER ADDRESS IN CONTROL BLOCK
1878 001120 CALL BLCNBK ;AND BUILD A CONNECK BLOCK.
1879 001124 016400 000014 MOV LOGD(R4),R0 ;GET TARGET ENTRY ADDRESS
1880 001130 062700 000000G ADD #L.GTSK,R0 ;TO POINT AT TASK ENTRY.
1881 001134 016502 000014 MOV C.ADDR(R5),R2 ;ALSO GET CONNECT BLOCK.
1882 001140 ONCASE ; FORMAT TYPE
1883 001140 112001 MOVB (R0)+,R1 ;GET FORMAT BYTE
1884 001142 112062 000007 MOVB (R0)+,N.ROT(R2) ;STORE OBJECT TYPE
1885 001146 110162 000006 MOVB R1,N.RFM(R2) ;AND FORMAT BYTE.
1886 001152 CASE ; OBJECT TYPE AND DESCRIPTOR
1887 001152 FALSE NE #1,R1
1888 001160 DO
1889 001160 112001 MOVB (R0)+,R1 ;GET LENGTH OF TASK NAME
1890 001162 010162 000010 MOV R1,N.RDEC(R2) ;STORE IT
1891 001166 062702 000012 ADD #N.RDE,R2 ;POINT TO TASK AREA
1892 001172 CALL MOVE ;AND COPY TASK NAME OVER.
1893 001176 CASE ; OBJECT TYPE, GROUP, USER, DESCRIPTOR
1894 001200 FALSE NE #2,R1
1895 001206 DO
1896 001206 012062 000010 MOV (R0)+,N.RGP(R2) ;STORE GROUP
1897 001212 012062 000012 MOV (R0)+,N.RUS(R2) ;AND USER NUMBERS.
1898 001216 112001 MOVB (R0)+,R1 ;GET LENGTH OF TASK NAME
1899 001220 010162 000014 MOV R1,N.RNMC(R2) ;STORE IT
1900 001224 062702 000016 ADD #N.RNM,R2 ;POINT TO TASK AREA
1901 001230 CALL MOVE ;AND COPY TASK NAME OVER.
1902 001234 ENDCASE
1903 001234 112765 177727 000006 MOVB #-C$OPLK,C.FUNC(R5) ;OPEN A LINK TO THE TASK.
1904 001242 ELSE
1905 001244 IF ; TARGET HAS NOT CHANGED
1906 001244 FALSE SET #LG.TSK,L.GSWX(R0)
1907 001254 THEN
1908 001254 012765 000000G 000010 MOV #IS.SUC,C.RET(R5) ;SET SUCCESS RETURN CODE
1909 001262 112765 000051 000006 MOVB #C$OPLK,C.FUNC(R5) ;FOR TRIUMPHANT RETURN.
1910 001270 ELSE
1911 001272 112765 177726 000006 MOVB #-C$CLLK,C.FUNC(R5) ;CLOSE CURRENT LINK.
1912 001300 ENDIF
1913 001300 ENDIF
1914 001300 ENDIF
1915 001300 IF ; LINK IS OPENED
1916 001300 FALSEB NE C.FUNC(R5),#C$OPLK
1917 001310 THEN
1918 001310 IF ; SUCCESS
1919 001310 116500 000010 MOVB C.RET(R5),R0 ;GET RETURN CODE
1920 001314 FALSEB LT
1921 001316 THEN
1922 001316 016565 000022 000014 MOV C.SAVE(R5),C.ADDR(R5) ;GET MESSAGE ADDRESS
1923 001324 016565 000024 000012 MOV C.SAVE+2(R5),C.LEN(R5) ;LENGTH
1924 001332 112765 177725 000006 MOVB #-C$TRMS,C.FUNC(R5) ;AND TRANSMIT IT.
1925 001340 ELSE ;OTHERWISE
1926 001342 112765 000052 000006 MOVB #C$CLLK,C.FUNC(R5) ;LINK IS CLOSED.
1927 001350 ENDIF
1928 001350 ENDIF
1929 001350 IF ; MESSAGE TRANSMITTED
1930 001350 FALSEB NE C.FUNC(R5),#C$TRMS
1931 001360 THEN
1932 001360 IF ; SUCCESSFUL AND MORE MESSAGES ON THE WAY
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 22-2
LGTTSK
1933 001360 FALSE CLEAR LOGCN
1934 001366 FALSEB LT C.RET(R5)
1935 001374 THEN
1936 001374 016567 000020 000000' MOV C.LKNM(R5),TSKLNK ;SAVE LINK NUMBER
1937 001402 042764 000000G 000016 BIC #LG.TSK,FLAGS(R4) ;MONITOR TASK INFORMED.
1938 001410 016565 000022 000014 MOV C.SAVE(R5),C.ADDR(R5) ;RESTORE BUFFER ADDRESS
1939 001416 016565 000024 000012 MOV C.SAVE+2(R5),C.LEN(R5) ;AND LENGTH.
1940 001424 105065 000006 CLRB C.FUNC(R5) ;FINISHED HERE.
1941 001430 ELSE
1942 001432 IF ; UNSUCCESSFUL AND THIS IS OLD LINK
1943 001432 FALSEB GE
1944 001434 FALSE CLEAR TSKLNK
1945 001442 THEN
1946 001442 016400 000014 MOV LOGD(R4),R0 ;GET THE LOG DATA BASE
1947 001446 052760 000000G 000000G BIS #LG.TSK,L.GSWX(R0) ;AND SET TO RE-OPEN THE LINK.
1948 001454 ENDIF
1949 001454 112765 177726 000006 MOVB #-C$CLLK,C.FUNC(R5) ;CLOSE THE LINK.
1950 001462 ENDIF
1951 001462 ENDIF
1952 001462 IF ; LINK IS CLOSED
1953 001462 FALSEB NE C.FUNC(R5),#C$CLLK
1954 001472 THEN
1955 001472 005067 000000' CLR TSKLNK ;LINK IS NOW CLOSED
1956 001476 IF ; WE WERE CLOSING OLD TARGET
1957 001476 016400 000014 MOV LOGD(R4),R0
1958 001502 FALSE SET #LG.TSK,L.GSWX(R0)
1959 001512 THEN
1960 001512 042764 000000G 000016 BIC #LG.TSK,FLAGS(R4) ;MONITOR TASK INFORMED.
1961 001520 ENDIF
1962 001520 016565 000022 000014 MOV C.SAVE(R5),C.ADDR(R5) ;RESTORE BUFFER ADDRESS
1963 001526 016565 000024 000012 MOV C.SAVE+2(R5),C.LEN(R5) ;AND LENGTH.
1964 001534 105065 000006 CLRB C.FUNC(R5) ;FINISHED HERE.
1965 001540 ENDIF
1966 001540 ENDPROC
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 23
LGTMND
1970 .SBTTL LGTMND
1971 ;
1972 ;======================================================================;
1973 ;++
1974 ; +-------------------------------------------------+
1975 ; I I
1976 ; I L G T M N D I
1977 ; I - - - - - - I
1978 ; I I
1979 ; +-------------------------------------------------+
1980 ;
1981 ; FUNCTION:
1982 ;
1983 ; EVENT LOGGING DATA SERVICE MODULE TO ROUTE EVENT LOG MESSAGE TO
1984 ; MASTER NODE TARGET
1985 ;
1986 ; INPUT:
1987 ;
1988 ; R4 - ADDRESS OF CONTEXT BLOCK
1989 ; R5 - ADDRESS OF CONTROL BLOCK
1990 ;
1991 ; NO OUTPUTS
1992 ;
1993 ; REQUIREMENTS:
1994 ;
1995 ;--
1996 ;======================================================================;
1997 ;
1998 ; EXTERNAL MACROS
1999 ;
2000 .MCALL LGDF
2001 ;
2002 ; DEFINE EXTERNAL SYMBOLS
2003 ;
2004 001542 LGDF ;EVENT LOGGING DATA SYMBOLS
2005 ;
2006 ; LOCAL DATA (MUST BE IN ROOT)
2007 ;
2008 000002 .PSECT $DATA,D,GBL
2009 000002 000000 MNDLNK: .WORD 0 ;CURRENT LINK NUMBER IF OPEN
2010 001542 .PSECT
2011 ;
2012 ; LOCAL PROCEDURE BODY
2013 ;
2014 001542 PROCLC LGTMND
2015 001542 IF ; FUNCTION CODE = 0
2016 001542 FALSEB SET C.FUNC(R5)
2017 001550 THEN
2018 001550 016565 000014 000022 MOV C.ADDR(R5),C.SAVE(R5) ;SAVE BUFFER ADDRESS
2019 001556 016565 000012 000024 MOV C.LEN(R5),C.SAVE+2(R5) ;AND LENGTH.
2020 001564 016400 000014 MOV LOGD(R4),R0 ;GET LOGGING TARGET ENTRY ADDRESS
2021 001570 IF ; TARGET NOT OPEN
2022 001570 016765 000002' 000020 MOV MNDLNK,C.LKNM(R5)
2023 001576 FALSE SET
2024 001600 THEN
2025 001600 042760 000000G 000000G BIC #LG.MND,L.GSWX(R0) ;CLEAR THE "ALTERED TARGET" FLAG
2026 001606 062700 000000G ADD #L.GMND,R0 ;GET MASTER NODE'S NAME
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 23-1
LGTMND
2027 001612 016465 000000 000014 MOV MESBUF(R4),C.ADDR(R5) ;PUT BUFFER ADDRESS IN CONTROL BLOCK
2028 001620 CALL BLCNBK ;AND BUILD A CONNECK BLOCK.
2029 001624 112765 177727 000006 MOVB #-C$OPLK,C.FUNC(R5) ;OPEN A LINK TO THE MASTER NODE.
2030 001632 ELSE
2031 001634 IF ; TARGET HAS NOT CHANGED
2032 001634 FALSE SET #LG.MND,L.GSWX(R0)
2033 001644 THEN
2034 001644 012765 000000G 000010 MOV #IS.SUC,C.RET(R5) ;SET SUCCESS RETURN CODE
2035 001652 112765 000051 000006 MOVB #C$OPLK,C.FUNC(R5) ;FOR TRIUMPHANT RETURN.
2036 001660 ELSE
2037 001662 112765 177726 000006 MOVB #-C$CLLK,C.FUNC(R5) ;CLOSE CURRENT LINK.
2038 001670 ENDIF
2039 001670 ENDIF
2040 001670 ENDIF
2041 001670 IF ; LINK IS OPENED
2042 001670 FALSEB NE C.FUNC(R5),#C$OPLK
2043 001700 THEN
2044 001700 IF ; SUCCESS
2045 001700 116500 000010 MOVB C.RET(R5),R0 ;GET RETURN CODE
2046 001704 FALSEB LT
2047 001706 THEN
2048 001706 016565 000022 000014 MOV C.SAVE(R5),C.ADDR(R5) ;GET MESSAGE ADDRESS
2049 001714 016565 000024 000012 MOV C.SAVE+2(R5),C.LEN(R5) ;LENGTH
2050 001722 112765 177725 000006 MOVB #-C$TRMS,C.FUNC(R5) ;AND TRANSMIT IT.
2051 001730 ELSE ;OTHERWISE
2052 001732 112765 000052 000006 MOVB #C$CLLK,C.FUNC(R5) ;LINK IS CLOSED.
2053 001740 ENDIF
2054 001740 ENDIF
2055 001740 IF ; MESSAGE TRANSMITTED
2056 001740 FALSEB NE C.FUNC(R5),#C$TRMS
2057 001750 THEN
2058 001750 IF ; SUCCESSFUL AND MORE MESSAGES ON THE WAY
2059 001750 FALSE CLEAR LOGCN
2060 001756 FALSEB LT C.RET(R5)
2061 001764 THEN
2062 001764 016567 000020 000002' MOV C.LKNM(R5),MNDLNK ;SAVE LINK NUMBER
2063 001772 042764 000000G 000016 BIC #LG.MND,FLAGS(R4) ;MASTER NODE INFORMED.
2064 002000 016565 000022 000014 MOV C.SAVE(R5),C.ADDR(R5) ;RESTORE BUFFER ADDRESS
2065 002006 016565 000024 000012 MOV C.SAVE+2(R5),C.LEN(R5) ;AND LENGTH.
2066 002014 105065 000006 CLRB C.FUNC(R5) ;FINISHED HERE.
2067 002020 ELSE
2068 002022 IF ; UNSUCCESSFUL AND THIS IS OLD LINK
2069 002022 FALSEB GE
2070 002024 FALSE CLEAR MNDLNK
2071 002032 THEN
2072 002032 016400 000014 MOV LOGD(R4),R0 ;GET THE LOG DATA BASE
2073 002036 052760 000000G 000000G BIS #LG.MND,L.GSWX(R0) ;AND SET TO RE-OPEN THE LINK.
2074 002044 ENDIF
2075 002044 112765 177726 000006 MOVB #-C$CLLK,C.FUNC(R5) ;CLOSE THE LINK.
2076 002052 ENDIF
2077 002052 ENDIF
2078 002052 IF ; LINK IS CLOSED
2079 002052 FALSEB NE C.FUNC(R5),#C$CLLK
2080 002062 THEN
2081 002062 005067 000002' CLR MNDLNK ;LINK IS NOW CLOSED
2082 002066 IF ; WE WERE CLOSING OLD TARGET
2083 002066 016400 000014 MOV LOGD(R4),R0
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 23-2
LGTMND
2084 002072 FALSE SET #LG.MND,L.GSWX(R0)
2085 002102 THEN
2086 002102 042764 000000G 000016 BIC #LG.MND,FLAGS(R4) ;MASTER NODE INFORMED.
2087 002110 ENDIF
2088 002110 016565 000022 000014 MOV C.SAVE(R5),C.ADDR(R5) ;RESTORE BUFFER ADDRESS
2089 002116 016565 000024 000012 MOV C.SAVE+2(R5),C.LEN(R5) ;AND LENGTH.
2090 002124 105065 000006 CLRB C.FUNC(R5) ;FINISHED HERE.
2091 002130 ENDIF
2092 002130 ENDPROC
2095 000001 .END
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 23-3
SYMBOL TABLE
A$$CHK= 000000 C$OPCO= 000034 DM$MIM= 000002 F$LOOP= 000001 K$$LDC= 000000
A$$CPS= 000000 C$OPIN= 000041 DM$PXA= 000003 F$NTCM= 000000 K$$TPS= 000074
A$$TRP= 000000 C$OPIR= 000056 DM$SAD= 000001 F$OPCL= 000001 LD$LP = 000000
BLCNBK= ****** GX C$OPLK= 000051 DTBEG 000010 F$OPCO= 000000 LGABRT 000000R
BPSCHK 001034R C$OPLN= 000045 DTEND 000012 F$OPIN= 000000 LGFINI 000014R
BPSEX 000772R C$OPOR= 000057 D$$BUG= 177514 F$OPIR= 000000 LGINIT 000120R
BPSI 000752R C$OPOT= 000042 D$$ISK= 000000 F$OPLK= 000005 LGLOGD 000274RG
BPSINV 000746R C$ORD = 000145 D$$L11= 000001 F$OPLN= 000002 LGPARS 000462R
BPSMAX= 000016 C$PROC= 000200 EVNT 000006 F$OPLO= 000000 LGTMND 001542R
BPS1I 000764R C$RCBK= 000047 FINISH= 000002 F$OPOR= 000000 LGTTSK 001042R
BPS2 001016R C$RCEV= 000050 FLAGS 000016 F$OPOT= 000000 LG.MND= ****** GX
BPS4 001024R C$RCIN= 000062 FL$BOO= 000001 F$ORLU= 000000 LG.TSK= ****** GX
BYPASS 000000R 002 C$RCMA= 000146 FL$DUM= 000001 F$OTLU= 000001 LI$KNO= 000000
CE$ACP= 177753 C$RCMS= 000054 FL$LOA= 000001 F$RCBK= 000002 LI$STA= 000001
CE$ADR= 177776 C$RDBK= 000043 FL$LOO= 000001 F$RCEV= 000001 LI$STR= 000002
CE$CON= 177770 C$RDCM= 000035 FR$LCC= 000001 F$RCIN= 000000 LOGCN = ****** GX
CE$DIS= 177771 C$RDIN= 000040 FR$LCS= 000001 F$RCMA= 000000 LOGD 000014
CE$EOF= 177767 C$RDIS= 000040 FR$LNC= 000001 F$RCMS= 000002 LOGDB = ****** GX
CE$FAI= 177774 C$RDRC= 000060 FR$LNL= 000001 F$RDBK= 000000 LOGDBE= ****** GX
CE$FIL= 177756 C$RLBF= 000001 FR$LNS= 000001 F$RDCM= 000000 LS$DUM= 000002
CE$FUN= 177777 C$RLCB= 000002 FR$RMC= 000001 F$RDIN= 000001 LS$LOA= 000000
CE$GEN= 177774 C$RLCI= 000000 FR$RML= 000001 F$RDIS= 000012 LS$LOO= 000001
CE$IND= 177757 C$STBK= 000055 FR$RMS= 000001 F$RDRC= 000000 LS$TRI= 000004
CE$IO = 177760 C$STPR= 000037 FS$HOS= 000001 F$RECO= 000001 LS$TRQ= 000003
CE$LEN= 177775 C$STPS= 000037 FS$INT= 000000 F$RLBF= 000001 L$$ASG= 000000
CE$LID= 177766 C$TRBK= 000046 FS$LLP= 000001 F$RLCB= 000001 L$$DRV= 000000
CE$LST= 177752 C$TRIN= 000063 FS$LOF= 000001 F$STBK= 000000 L$$P11= 000001
CE$NOD= 177765 C$TRMA= 000145 FS$LOG= 000001 F$STPR= 000001 L$$11R= 000000
CE$NSD= 177755 C$TRMS= 000053 FS$LST= 000001 F$STPS= 000006 L.GLEN= ****** GX
CE$NST= 177754 C$WRBK= 000044 FS$NET= 000001 F$TEST= 000001 L.GMND= ****** GX
CE$NWE= 177773 C$WRCL= 000065 FS$NST= 000000 F$TRAC= 000000 L.GSWX= ****** GX
CE$OBJ= 177750 C$WRCM= 000036 FS$PAS= 000001 F$TRBK= 000001 L.GTND= ****** GX
CE$OPN= 177761 C$WRRC= 000061 FT$CNS= 000000 F$TRIG= 000001 L.GTSK= ****** GX
CE$OVR= 177764 C$ZRCN= 000064 FT$NOD= 000001 F$TRIN= 000000 MESBUF 000000
CE$PAR= 177763 C$$CKP= 000000 FT$TSK= 000001 F$TRMA= 000000 MNDLNK 000002R 003
CE$PRO= 177751 C$$ORE= 000400 F$ALBF= 000001 F$TRMS= 000002 MOVE = ****** GX
CE$REJ= 177772 C$$RSH= 177564 F$ALCB= 000001 F$WRBK= 000000 M$$CRB= 000124
CE$TMO= 177762 C.ADDR= 000014 F$CB = 000017 F$WRCL= 000001 M$$CRX= 000000
COMP 000004 C.BKNM= 000014 F$CLCL= 000001 F$WRCM= 000000 M$$FCS= 000000
CS$ACK= 000002 C.CTXT= 000004 F$CLCO= 000000 F$WRRC= 000000 M$$OVR= 000000
CS$LKE= 000001 C.FUNC= 000006 F$CLFL= 000000 F$ZERO= 000001 ND$BAD= 177777
CS$LNA= 000002 C.LEN = 000012 F$CLLK= 000006 F$ZRCN= 000001 ND$LCC= 000000
CS$LOG= 000003 C.LINE= 000014 F$CLLN= 000002 F$$LVL= 000001 ND$LCS= 000001
CS$NCH= 000003 C.LKNM= 000020 F$DPOS= 000001 F$150 = 000002 ND$LNC= 000004
CS$SUC= 000001 C.LUN = 000020 F$DUMP= 000000 F$300 = 000012 ND$LNS= 000005
CTXTLN 000024 C.MODE= 000021 F$EVNT= 000001 F$50 = 000002 ND$RMC= 000002
C$ALBF= 000032 C.PRID= 000017 F$EXAM= 000001 F$550 = 000002 ND$RMS= 000003
C$ALCB= 000033 C.PROC= 000007 F$EXHO= 000000 GTMSBY= ****** GX ND$ZLC= 000000
C$CLCL= 000067 C.PROM= 000016 F$GTCM= 000001 GTMSWD= ****** GX ND$ZLN= 000002
C$CLCO= 000003 C.PTR = 000000 F$INCM= 000000 G$$TPP= 000000 ND$ZRM= 000001
C$CLFL= 000004 C.RET = 000010 F$INLU= 000001 G$$TSS= 000000 NE$CON= 177762
C$CLLK= 000052 C.SAVE= 000022 F$IRLU= 000000 G$$TTK= 000000 NE$FIL= 177763
C$CLLN= 000005 C.SERV= 000002 F$LKLU= 000010 IS.SUC= ****** GX NE$FIO= 177756
C$LEN = 000026 C.TASK= 000016 F$LNLU= 000002 I$$RAR= 000000 NE$FOR= 177776
C$NOPN= 000031 C.TYPE= 000016 F$LNSR= 000001 I$$RDN= 000000 NE$FUN= 177777
C$NORD= 000032 C.WAIT= 000020 F$LOAD= 000000 K$$CNT= 177546 NE$LCO= 177766
C$OPCL= 000066 DM$END= 000000 F$LOGD= 000001 K$$CSR= 177546 NE$LID= 177770
LGLOGD MACRO M1110 13-OCT-79 11:53 PAGE 23-4
SYMBOL TABLE
NE$LPR= 177757 NO = 000000 N.RQL = 000110 RI$RML= 000003 ST$OFF= 000001
NE$LST= 177767 NODE 000002 N.RUS 000012 RI$RMS= 000005 ST$ON = 000000
NE$NCO= 177755 NS$SUC= 000001 OLDLUN 000022 RI$ZLC= 000011 ST$SHU= 000002
NE$NIC= 177753 N$DPOS= 000014 PROC = 000001 RI$ZLN= 000013 S$$WRG= 000000
NE$NOD= 177765 N$DUMP= 000003 PT$END= 000000 RI$ZRM= 000012 S$$YSZ= 001600
NE$NOR= 177754 N$EXAM= 000015 PT$HOS= 000003 R$$DER= 000000 TSKLNK 000000R 003
NE$ORD= 177774 N$LNSR= 000016 PT$NAM= 000001 R$$K11= 000001 T$$KMG= 000000
NE$PAR= 177760 N$LOAD= 000002 PT$NUM= 000002 R$$SND= 000000 T$$MIN= 000000
NE$RES= 177761 N$LOGD= 000001 P$DPOS= 000016 R$$11M= 000000 V$$CTR= 001000
NE$SER= 177764 N$LOOP= 000005 P$DUMP= 000003 SEQN 000020 X$$DBT= 000000
NE$STA= 177775 N$RDIN= 000010 P$EVNT= 000011 SPRAY = ****** GX YES = 000001
NL$BRC= 000001 N$STPR= 000007 P$EXAM= 000017 SP$DHO= 000003 $$CSTA= 000000
NL$BTR= 000002 N$TEST= 000006 P$GTCM= 000001 SP$DRP= 000007 $$PRST= 000021
NL$RES= 000005 N$TRIG= 000004 P$INCM= 000015 SP$DTP= 000010 $$STIX= 000777
NL$RLE= 000004 N$ZERO= 000011 P$LNSR= 000004 SP$LHO= 000002 $$STNM= 000000
NL$RTR= 000003 N$$USR= 000001 P$LOAD= 000002 SP$LLP= 000011 $$S762= 000077
NL$TMO= 000006 N.MLEN= 000454 P$LOGD= 000020 SP$LNM= 000016 $$S763= 000017
NL$ZRO= 000000 N.RAC 000070 P$LOOP= 000005 SP$LNO= 000015 $$S764= 000077
NN$CAC= 000011 N.RACC 000066 P$NTCM= 000014 SP$LOF= 000012 $$S765= 000016
NN$CNI= 000013 N.RDE 000012 P$RDIN= 000010 SP$LST= 000001 $$S766= 000077
NN$CNR= 000014 N.RDEC 000010 P$STPR= 000007 SP$NDM= 000014 $$S767= 000015
NN$EXT= 000003 N.RFM 000006 P$TEST= 000006 SP$NDO= 000013 $$S770= 000077
NN$FMT= 000005 N.RGP 000010 P$TRIG= 000012 SP$NST= 000006 $$S771= 000000
NN$IZS= 000007 N.RID 000034 P$ZERO= 000013 SP$RRP= 000004 $$S772= 000011
NN$IZU= 000010 N.RIDC 000032 P$$P45= 000000 SP$RTP= 000005 $$S773= 000016
NN$MAC= 000012 N.RND 000000 RI$LCC= 000001 START = 000000 $$S774= 000077
NN$NKS= 000004 N.RNM 000016 RI$LCS= 000002 STATE 000021 $$S775= 000020
NN$RES= 000006 N.RNMC 000014 RI$LNC= 000007 ST$DIS= 000006 $$S776= 000000
NN$UMR= 000002 N.ROT 000007 RI$LNL= 000006 ST$ENA= 000005 $$S777= 000000
NN$UMS= 000001 N.RPS 000056 RI$LNS= 000010 ST$LOO= 000003 $$TRNM= 000000
NN$ZRO= 000000 N.RPSC 000054 RI$RMC= 000004 ST$MAI= 000004
. ABS. 000110 000
002132 001
WORD 000036 002
$DATA 000004 003
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 10797 WORDS ( 43 PAGES)
DYNAMIC MEMORY: 12172 WORDS ( 46 PAGES)
ELAPSED TIME: 00:04:37
LGLOGD,[135,30]LGLOGD/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,LGLOGD
LGLOGD CREATED BY MACRO ON 13-OCT-79 AT 11:55 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
BLCNBK = ****** GX 22-1878 23-2028
BPSCHK 001034 R 20-1633 20-1651 20-1657 20-1663 #20-1667
BPSEX 000772 R 20-1605 20-1607 20-1609 20-1614 20-1615 #20-1643
BPSI 000752 R 20-1604 20-1608 20-1610 20-1612 20-1617 #20-1629 20-1639
BPSINV 000746 R 20-1603 #20-1623
BPSMAX = 000016 19-1576 #20-1618
BPS1I 000764 R 20-1611 #20-1637
BPS2 001016 R 20-1613 20-1616 #20-1655
BPS4 001024 R 20-1606 #20-1661
BYPASS 000000 R 19-1579 #20-1602 20-1618
COMP 000004 *19-1550
CTXTLN 000024 17-1299 17-1309
C$ALBF = 000032 17-1300
C$CLLK = 000052 22-1911 22-1926 22-1949 22-1953 23-2037 23-2052 23-2075 23-2079
C$OPLK = 000051 22-1903 22-1909 22-1916 23-2029 23-2035 23-2042
C$PROC = 000200 17-1295 18-1403
C$RLBF = 000001 16-1207 16-1211 16-1218 18-1398
C$TRMS = 000053 22-1924 22-1930 23-2050 23-2056
C.ADDR = 000014 *16-1213 *16-1221 17-1297 17-1305 17-1318 *17-1321 19-1517 22-1868 *22-1877
22-1881 *22-1922 *22-1938 *22-1962 23-2018 *23-2027 *23-2048 *23-2064 *23-2088
C.CTXT = 000004 *16-1222 *17-1306 18-1392 *18-1404
C.FUNC = 000006 *5-135 16-1205 *16-1207 16-1211 *16-1215 16-1218 *16-1223 17-1295 *17-1300
*17-1316 *17-1322 18-1398 *18-1403 18-1413 *18-1443 *19-1590 22-1866 *22-1903
*22-1909 *22-1911 22-1916 *22-1924 *22-1926 22-1930 *22-1940 *22-1949 22-1953
*22-1964 23-2016 *23-2029 *23-2035 *23-2037 23-2042 *23-2050 *23-2052 23-2056
*23-2066 *23-2075 23-2079 *23-2090
C.LEN = 000012 17-1298 *17-1299 *17-1314 *17-1320 19-1519 22-1869 *22-1923 *22-1939 *22-1963
23-2019 *23-2049 *23-2065 *23-2089
C.LKNM = 000020 *16-1220 17-1319 *22-1872 22-1936 *23-2022 23-2062
C.PROC = 000007 *18-1402
C.RET = 000010 *22-1908 22-1919 22-1934 *23-2034 23-2045 23-2060
C.SAVE = 000022 *17-1297 *17-1298 17-1320 17-1321 *22-1868 *22-1869 22-1922 22-1923 22-1938
22-1939 22-1962 22-1963 *23-2018 *23-2019 23-2048 23-2049 23-2064 23-2065
23-2088 23-2089
DTBEG 000010 *19-1567
DTEND 000012 *19-1568 19-1571 20-1645 20-1668
EVNT 000006 *19-1566
FINISH = 000002 5-136 18-1439
FLAGS 000016 18-1418 18-1424 *19-1539 *22-1937 *22-1960 *23-2063 *23-2086
FL$BOO = 000001 #4-78 4-78
FL$DUM = 000001 #4-78 4-78
FL$LOA = 000001 #4-78 4-78
FL$LOO = 000001 #4-78 4-78
FR$LCC = 000001 #4-78 4-78
FR$LCS = 000001 #4-78 4-78
FR$LNC = 000001 #4-78 4-78
FR$LNL = 000001 #4-78 4-78
FR$LNS = 000001 #4-78 4-78
FR$RMC = 000001 #4-78 4-78
FR$RML = 000001 #4-78 4-78
FR$RMS = 000001 #4-78 4-78
FS$HOS = 000001 #4-78 4-78
LGLOGD CREATED BY MACRO ON 13-OCT-79 AT 11:55 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
FS$INT = 000000 #4-78 4-78 4-78 4-78
FS$LLP = 000001 #4-78 4-78
FS$LOF = 000001 #4-78 4-78
FS$LOG = 000001 #4-78 4-78
FS$LST = 000001 #4-78 4-78
FS$NET = 000001 #4-78 4-78
FS$NST = 000000 #4-78 4-78
FS$PAS = 000001 #4-78 4-78
FT$CNS = 000000 #4-78 4-78 6-139 7-230 8-298 9-358 10-595 11-650 12-721
13-830 14-942 15-1089 18-1428 21-1671
FT$NOD = 000001 #4-78 4-78 18-1416 23-1969
FT$TSK = 000001 #4-78 4-78 18-1422 22-1818
F$ALBF = 000001 #4-78
F$ALCB = 000001 #4-78
F$CB = 000017 #4-78
F$CLCL = 000001 #4-78 4-78 #4-78
F$CLCO = 000000 #4-78
F$CLFL = 000000 #4-78
F$CLLK = 000006 #4-78 4-78 #4-78 4-78 #4-78 4-78 #4-78 4-78 #4-78
4-78 #4-78 4-78 #4-78
F$CLLN = 000002 #4-78 4-78 #4-78 4-78 #4-78
F$DPOS = 000001 #4-78 4-78
F$DUMP = 000000 #4-78 4-78
F$EVNT = 000001 #4-78 4-78
F$EXAM = 000001 #4-78 4-78
F$EXHO = 000000 #4-78
F$GTCM = 000001 #4-78 4-78
F$INCM = 000000 #4-78 4-78
F$INLU = 000001 #4-78
F$IRLU = 000000 #4-78
F$LKLU = 000010 #4-78
F$LNLU = 000002 #4-78
F$LNSR = 000001 #4-78 4-78
F$LOAD = 000000 #4-78 4-78
F$LOGD = 000001 #4-78 4-78 4-79
F$LOOP = 000001 #4-78 4-78
F$NTCM = 000000 #4-78 4-78
F$OPCL = 000001 #4-78 4-78 #4-78
F$OPCO = 000000 #4-78
F$OPIN = 000000 #4-78
F$OPIR = 000000 #4-78
F$OPLK = 000005 #4-78 4-78 #4-78 4-78 #4-78 4-78 #4-78 4-78 #4-78
4-78 #4-78
F$OPLN = 000002 #4-78 4-78 #4-78 4-78 #4-78
F$OPLO = 000000 #4-78
F$OPOR = 000000 #4-78
F$OPOT = 000000 #4-78
F$ORLU = 000000 #4-78
F$OTLU = 000001 #4-78
F$RCBK = 000002 #4-78 4-78 #4-78 4-78 #4-78
F$RCEV = 000001 #4-78 4-78 #4-78
F$RCIN = 000000 #4-78
LGLOGD CREATED BY MACRO ON 13-OCT-79 AT 11:55 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$RCMA = 000000 #4-78
F$RCMS = 000002 #4-78 4-78 #4-78
F$RDBK = 000000 #4-78
F$RDCM = 000000 #4-78
F$RDIN = 000001 #4-78 4-78
F$RDIS = 000012 #4-78 4-78 #4-78 4-78 #4-78 4-78 #4-78 4-78 #4-78
4-78 #4-78 4-78 #4-78 4-78 #4-78 4-78 #4-78 4-78
#4-78
F$RDRC = 000000 #4-78
F$RECO = 000001 #4-78 4-78 #4-78
F$RLBF = 000001 #4-78
F$RLCB = 000001 #4-78
F$STBK = 000000 #4-78
F$STPR = 000001 #4-78 4-78
F$STPS = 000006 #4-78 4-78 #4-78 4-78 #4-78 4-78 #4-78 4-78 #4-78
4-78 #4-78 4-78 #4-78
F$TEST = 000001 #4-78 4-78
F$TRAC = 000000 #4-78 5-134 5-134 5-137 5-137 16-1203 16-1203 16-1225 16-1225
17-1293 17-1293 17-1327 17-1327 18-1391 18-1391 18-1446 18-1446 19-1515
19-1515 19-1596 19-1596 20-1623 20-1623 20-1625 20-1625 20-1629 20-1629
20-1637 20-1637 20-1643 20-1643 20-1655 20-1655 20-1661 20-1661 20-1667
20-1667 20-1669 20-1669 22-1864 22-1864 22-1966 22-1966 23-2014 23-2014
23-2092 23-2092
F$TRBK = 000001 #4-78 4-78 #4-78
F$TRIG = 000001 #4-78 4-78
F$TRIN = 000000 #4-78
F$TRMA = 000000 #4-78
F$TRMS = 000002 #4-78 4-78 #4-78
F$WRBK = 000000 #4-78
F$WRCL = 000001 #4-78 4-78 #4-78
F$WRCM = 000000 #4-78
F$WRRC = 000000 #4-78
F$ZERO = 000001 #4-78 4-78
F$ZRCN = 000001 #4-78 4-78 #4-78
F$150 = 000002 #4-78
F$300 = 000012 #4-78
F$50 = 000002 #4-78
F$550 = 000002 #4-78
GTMSBY = ****** GX 19-1521 19-1541 19-1551 19-1557 19-1573
GTMSWD = ****** GX 19-1562
IS.SUC = ****** GX 22-1908 23-2034
I$$AS = ****** 5-134 16-1203 17-1293 18-1391 19-1515 20-1623 20-1629 20-1637 20-1643
20-1655 20-1661 20-1667 22-1864 23-2014
LGABRT 000000 R #5-134 18-1435 19-1593
LGFINI 000014 R #16-1203 18-1441
LGINIT 000120 R #17-1293 18-1400
LGLOGD 000274 RG #18-1391
LGPARS 000462 R 17-1324 #19-1515
LGTMND 001542 R 18-1420 #23-2014
LGTTSK 001042 R 18-1426 #22-1864
LG.MND = ****** GX 18-1418 23-2025 23-2032 23-2063 23-2073 23-2084 23-2086
LG.TSK = ****** GX 18-1424 22-1875 22-1906 22-1937 22-1947 22-1958 22-1960
LGLOGD CREATED BY MACRO ON 13-OCT-79 AT 11:55 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
LOGCN = ****** GX *17-1323 22-1933 23-2059
LOGD 000014 *19-1537 22-1870 22-1879 22-1946 22-1957 23-2020 23-2072 23-2083
LOGDB = ****** GX 19-1525
LOGDBE = ****** GX 19-1527 19-1533
L.GLEN = ****** GX 19-1530
L.GMND = ****** GX 23-2026
L.GSWX = ****** GX *22-1875 22-1906 *22-1947 22-1958 *23-2025 23-2032 *23-2073 23-2084
L.GTND = ****** GX 22-1876
L.GTSK = ****** GX 22-1880
MESBUF 000000 16-1210 16-1213 *16-1214 *17-1318 22-1877 23-2027
MNDLNK 000002 R #23-2009 23-2022 *23-2062 23-2070 *23-2081
MOVE = ****** GX 22-1892 22-1901
NO = 000000 #4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78
4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78
4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78
4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78
4-78 4-78 4-78
NODE 000002 *19-1540
N.RDE 000012 22-1891
N.RDEC 000010 *22-1890
N.RFM 000006 *22-1885
N.RGP 000010 *22-1896
N.RNM 000016 22-1900
N.RNMC 000014 *22-1899
N.ROT 000007 *22-1884
N.RQL = 000110 17-1311
N.RUS 000012 *22-1897
OLDLUN 000022 16-1220 *17-1319
PROC = 000001 18-1412 19-1591
P$GTCM = 000001 18-1402
R$$11D = ****** 5-134 16-1203 17-1293 18-1391 19-1515 20-1623 20-1629 20-1637 20-1643
20-1655 20-1661 20-1667 22-1864 23-2014
R$$11M = 000000 5-134 16-1203 17-1293 18-1391 19-1515 20-1623 20-1629 20-1637 20-1643
20-1655 20-1661 20-1667 22-1864 23-2014
SEQN 000020 *19-1561
SPRAY = ****** GX 17-1310
STATE 000021 *5-136 18-1395 18-1412 18-1439 *19-1591
TSKLNK 000000 R #22-1859 22-1872 *22-1936 22-1944 *22-1955
YES = 000001 #4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78
4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78
4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78
4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78 4-78
4-78 4-78 4-78 4-78 4-78
$$CSTA = 000000 #5-134 #16-1203 #17-1293 #18-1391 18-1415 #18-1415 18-1417 #18-1417 18-1423
#18-1436 #19-1515 #20-1623 #20-1629 #20-1637 #20-1643 #20-1655 #20-1661 #20-1667
#22-1864 *22-1882 #22-1882 22-1886 #22-1886 22-1893 #22-1902 #23-2014
$$PRST = 000021 #5-134 #16-1203 16-1204 #16-1204 16-1209 #16-1209 16-1217 #16-1217 #17-1293
17-1294 #17-1294 17-1302 #17-1302 #18-1391 *18-1393 #18-1393 18-1397 #18-1397
18-1408 #18-1408 18-1411 #18-1411 18-1415 #18-1415 18-1438 #18-1438 #19-1515
19-1522 #19-1522 *19-1526 #19-1526 19-1532 #19-1532 19-1545 #19-1545 19-1552
#19-1552 19-1558 #19-1558 19-1563 #19-1563 *19-1569 #19-1569 19-1574 #19-1574
19-1587 #19-1587 #20-1623 #20-1629 #20-1637 #20-1643 20-1644 #20-1644 #20-1655
LGLOGD CREATED BY MACRO ON 13-OCT-79 AT 11:55 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#20-1661 #20-1667 #22-1864 22-1865 #22-1865 *22-1871 #22-1871 *22-1882 #22-1882
22-1905 #22-1905 22-1915 #22-1915 22-1918 #22-1918 22-1929 #22-1929 22-1932
#22-1932 22-1942 #22-1942 22-1952 #22-1952 22-1956 #22-1956 #23-2014 23-2015
#23-2015 *23-2021 #23-2021 23-2031 #23-2031 23-2041 #23-2041 23-2044 #23-2044
23-2055 #23-2055 23-2058 #23-2058 23-2068 #23-2068 23-2078 #23-2078 23-2082
#23-2082
$$SLST = ****** 5-134 5-137 16-1203 16-1205 16-1205 16-1206 16-1208 16-1210 16-1210
16-1211 16-1211 16-1212 16-1216 16-1218 16-1218 16-1219 16-1224 16-1225
17-1293 17-1295 17-1295 17-1296 17-1301 17-1301 17-1303 17-1303 17-1304
17-1317 17-1317 17-1325 17-1326 17-1327 18-1391 18-1394 18-1395 18-1395
18-1396 18-1398 18-1398 18-1399 18-1401 18-1401 18-1406 18-1407 18-1409
18-1409 18-1410 18-1411 18-1412 18-1412 18-1413 18-1413 18-1414 18-1418
18-1418 18-1419 18-1423 18-1423 18-1424 18-1424 18-1425 18-1434 18-1434
18-1436 18-1437 18-1437 18-1439 18-1439 18-1440 18-1442 18-1444 18-1446
19-1515 19-1523 19-1524 19-1526 19-1527 19-1527 19-1528 19-1528 19-1529
19-1531 19-1531 19-1533 19-1533 19-1535 19-1536 19-1542 19-1542 19-1544
19-1546 19-1547 19-1547 19-1548 19-1553 19-1554 19-1554 19-1555 19-1559
19-1560 19-1564 19-1565 19-1569 19-1570 19-1571 19-1571 19-1572 19-1575
19-1576 19-1576 19-1577 19-1580 19-1581 19-1581 19-1582 19-1583 19-1584
19-1585 19-1586 19-1588 19-1589 19-1592 19-1592 19-1594 19-1596 20-1623
20-1625 20-1629 20-1633 20-1637 20-1639 20-1643 20-1644 20-1645 20-1645
20-1646 20-1646 20-1647 20-1649 20-1649 20-1651 20-1655 20-1657 20-1661
20-1663 20-1667 20-1669 22-1864 22-1866 22-1866 22-1867 22-1873 22-1874
22-1887 22-1887 22-1888 22-1893 22-1893 22-1894 22-1894 22-1895 22-1902
22-1902 22-1904 22-1904 22-1906 22-1906 22-1907 22-1910 22-1910 22-1912
22-1913 22-1914 22-1916 22-1916 22-1917 22-1920 22-1921 22-1925 22-1925
22-1927 22-1928 22-1930 22-1930 22-1931 22-1933 22-1933 22-1934 22-1934
22-1935 22-1941 22-1941 22-1943 22-1944 22-1944 22-1945 22-1948 22-1950
22-1951 22-1953 22-1953 22-1954 22-1958 22-1958 22-1959 22-1961 22-1965
22-1966 23-2014 23-2016 23-2016 23-2017 23-2023 23-2024 23-2030 23-2030
23-2032 23-2032 23-2033 23-2036 23-2036 23-2038 23-2039 23-2040 23-2042
23-2042 23-2043 23-2046 23-2047 23-2051 23-2051 23-2053 23-2054 23-2056
23-2056 23-2057 23-2059 23-2059 23-2060 23-2060 23-2061 23-2067 23-2067
23-2069 23-2070 23-2070 23-2071 23-2074 23-2076 23-2077 23-2079 23-2079
23-2080 23-2084 23-2084 23-2085 23-2087 23-2091 23-2092
$$STIX = 000777 #5-134 #16-1203 16-1204 16-1204 #16-1204 16-1204 16-1204 #16-1204 16-1208
#16-1208 16-1208 16-1208 #16-1208 16-1208 16-1209 16-1209 #16-1209 16-1209
16-1209 #16-1209 16-1216 #16-1216 16-1216 16-1216 #16-1216 16-1216 16-1217
16-1217 #16-1217 16-1217 16-1217 #16-1217 16-1224 #16-1224 16-1224 16-1224
#16-1224 16-1224 #17-1293 17-1294 17-1294 #17-1294 17-1294 17-1294 #17-1294
17-1302 17-1302 #17-1302 17-1302 17-1302 #17-1302 17-1325 #17-1325 17-1325
17-1325 #17-1325 17-1325 17-1326 #17-1326 17-1326 17-1326 #17-1326 17-1326
#18-1391 *18-1393 *18-1393 #18-1393 *18-1393 *18-1393 #18-1393 18-1397 18-1397
#18-1397 18-1397 18-1397 #18-1397 18-1406 #18-1406 18-1406 18-1406 #18-1406
18-1406 18-1407 #18-1407 18-1407 18-1407 #18-1407 18-1407 18-1408 18-1408
#18-1408 18-1408 18-1408 #18-1408 18-1411 18-1411 #18-1411 18-1411 18-1411
#18-1411 18-1415 18-1415 #18-1415 18-1415 18-1415 #18-1415 18-1415 18-1415
#18-1415 18-1436 #18-1436 18-1436 18-1436 #18-1436 18-1436 18-1436 #18-1436
18-1436 18-1437 #18-1437 18-1437 18-1437 #18-1437 18-1437 18-1438 18-1438
#18-1438 18-1438 18-1438 #18-1438 18-1442 #18-1442 18-1442 18-1442 #18-1442
18-1442 18-1444 #18-1444 18-1444 18-1444 #18-1444 18-1444 #19-1515 19-1522
19-1522 #19-1522 19-1522 19-1522 #19-1522 *19-1526 *19-1526 #19-1526 *19-1526
LGLOGD CREATED BY MACRO ON 13-OCT-79 AT 11:55 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
*19-1526 #19-1526 19-1531 #19-1531 19-1531 19-1531 #19-1531 19-1531 19-1532
19-1532 #19-1532 19-1532 19-1532 #19-1532 19-1544 #19-1544 19-1544 19-1544
#19-1544 19-1544 19-1545 19-1545 #19-1545 19-1545 19-1545 #19-1545 19-1552
19-1552 #19-1552 19-1552 19-1552 #19-1552 19-1558 19-1558 #19-1558 19-1558
19-1558 #19-1558 19-1563 19-1563 #19-1563 19-1563 19-1563 #19-1563 *19-1569
*19-1569 #19-1569 *19-1569 *19-1569 #19-1569 19-1574 19-1574 #19-1574 19-1574
19-1574 #19-1574 19-1580 #19-1580 19-1580 19-1580 #19-1580 19-1580 19-1581
#19-1581 19-1581 19-1581 #19-1581 19-1581 19-1582 #19-1582 19-1582 19-1582
#19-1582 19-1582 19-1583 #19-1583 19-1583 19-1583 #19-1583 19-1583 19-1584
#19-1584 19-1584 19-1584 #19-1584 19-1584 19-1585 #19-1585 19-1585 19-1585
#19-1585 19-1585 19-1586 #19-1586 19-1586 19-1586 #19-1586 19-1586 19-1587
19-1587 #19-1587 19-1587 19-1587 #19-1587 19-1594 #19-1594 19-1594 19-1594
#19-1594 19-1594 #20-1623 #20-1629 #20-1637 #20-1643 20-1644 20-1644 #20-1644
20-1644 20-1644 #20-1644 20-1649 #20-1649 20-1649 20-1649 #20-1649 20-1649
#20-1655 #20-1661 #20-1667 #22-1864 22-1865 22-1865 #22-1865 22-1865 22-1865
#22-1865 *22-1871 *22-1871 #22-1871 *22-1871 *22-1871 #22-1871 *22-1882 *22-1882
#22-1882 *22-1882 *22-1882 #22-1882 *22-1882 *22-1882 #22-1882 22-1902 #22-1902
22-1902 22-1902 #22-1902 22-1902 22-1902 #22-1902 22-1902 22-1905 22-1905
#22-1905 22-1905 22-1905 #22-1905 22-1912 #22-1912 22-1912 22-1912 #22-1912
22-1912 22-1913 #22-1913 22-1913 22-1913 #22-1913 22-1913 22-1914 #22-1914
22-1914 22-1914 #22-1914 22-1914 22-1915 22-1915 #22-1915 22-1915 22-1915
#22-1915 22-1918 22-1918 #22-1918 22-1918 22-1918 #22-1918 22-1927 #22-1927
22-1927 22-1927 #22-1927 22-1927 22-1928 #22-1928 22-1928 22-1928 #22-1928
22-1928 22-1929 22-1929 #22-1929 22-1929 22-1929 #22-1929 22-1932 22-1932
#22-1932 22-1932 22-1932 #22-1932 22-1942 22-1942 #22-1942 22-1942 22-1942
#22-1942 22-1948 #22-1948 22-1948 22-1948 #22-1948 22-1948 22-1950 #22-1950
22-1950 22-1950 #22-1950 22-1950 22-1951 #22-1951 22-1951 22-1951 #22-1951
22-1951 22-1952 22-1952 #22-1952 22-1952 22-1952 #22-1952 22-1956 22-1956
#22-1956 22-1956 22-1956 #22-1956 22-1961 #22-1961 22-1961 22-1961 #22-1961
22-1961 22-1965 #22-1965 22-1965 22-1965 #22-1965 22-1965 #23-2014 23-2015
23-2015 #23-2015 23-2015 23-2015 #23-2015 *23-2021 *23-2021 #23-2021 *23-2021
*23-2021 #23-2021 23-2031 23-2031 #23-2031 23-2031 23-2031 #23-2031 23-2038
#23-2038 23-2038 23-2038 #23-2038 23-2038 23-2039 #23-2039 23-2039 23-2039
#23-2039 23-2039 23-2040 #23-2040 23-2040 23-2040 #23-2040 23-2040 23-2041
23-2041 #23-2041 23-2041 23-2041 #23-2041 23-2044 23-2044 #23-2044 23-2044
23-2044 #23-2044 23-2053 #23-2053 23-2053 23-2053 #23-2053 23-2053 23-2054
#23-2054 23-2054 23-2054 #23-2054 23-2054 23-2055 23-2055 #23-2055 23-2055
23-2055 #23-2055 23-2058 23-2058 #23-2058 23-2058 23-2058 #23-2058 23-2068
23-2068 #23-2068 23-2068 23-2068 #23-2068 23-2074 #23-2074 23-2074 23-2074
#23-2074 23-2074 23-2076 #23-2076 23-2076 23-2076 #23-2076 23-2076 23-2077
#23-2077 23-2077 23-2077 #23-2077 23-2077 23-2078 23-2078 #23-2078 23-2078
23-2078 #23-2078 23-2082 23-2082 #23-2082 23-2082 23-2082 #23-2082 23-2087
#23-2087 23-2087 23-2087 #23-2087 23-2087 23-2091 #23-2091 23-2091 23-2091
#23-2091 23-2091
$$STNM = 000000 #5-134 #16-1203 16-1204 #16-1204 16-1204 16-1205 16-1206 *16-1208 #16-1208
16-1209 #16-1209 16-1209 16-1210 16-1211 16-1212 16-1216 #16-1216 16-1217
#16-1217 16-1217 16-1218 16-1219 16-1224 #16-1224 #17-1293 17-1294 #17-1294
17-1294 17-1295 17-1296 *17-1301 17-1301 17-1302 #17-1302 17-1302 17-1303
17-1304 17-1317 17-1317 17-1325 #17-1325 17-1326 #17-1326 #18-1391 *18-1393
#18-1393 *18-1393 18-1394 18-1395 18-1396 18-1397 #18-1397 18-1397 18-1398
18-1399 18-1401 18-1401 18-1406 #18-1406 18-1407 #18-1407 18-1408 #18-1408
18-1408 18-1409 18-1410 18-1411 #18-1411 18-1411 18-1411 18-1412 18-1413
LGLOGD CREATED BY MACRO ON 13-OCT-79 AT 11:55 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
18-1414 18-1415 #18-1415 18-1415 18-1418 18-1419 18-1423 18-1423 18-1424
18-1425 18-1434 18-1434 18-1436 #18-1436 18-1437 18-1437 #18-1437 18-1438
#18-1438 18-1438 18-1439 18-1440 18-1442 #18-1442 18-1444 #18-1444 #19-1515
19-1522 #19-1522 19-1522 19-1523 19-1524 *19-1526 #19-1526 *19-1526 *19-1526
19-1527 19-1528 19-1529 19-1531 19-1531 #19-1531 19-1532 #19-1532 19-1532
19-1533 19-1535 19-1536 19-1542 19-1542 19-1544 #19-1544 19-1545 #19-1545
19-1545 19-1546 19-1547 19-1548 19-1552 #19-1552 19-1552 19-1553 19-1554
19-1555 19-1558 #19-1558 19-1558 19-1559 19-1560 19-1563 #19-1563 19-1563
19-1564 19-1565 *19-1569 #19-1569 *19-1569 *19-1569 19-1570 19-1571 19-1572
19-1574 #19-1574 19-1574 19-1575 19-1576 19-1577 19-1580 #19-1580 19-1581
19-1581 #19-1581 19-1582 #19-1582 19-1583 #19-1583 19-1584 #19-1584 19-1585
#19-1585 19-1586 #19-1586 19-1587 #19-1587 19-1587 19-1588 19-1589 *19-1592
19-1592 19-1594 #19-1594 #20-1623 #20-1629 #20-1637 #20-1643 20-1644 #20-1644
20-1644 20-1644 20-1645 20-1646 20-1647 20-1649 20-1649 #20-1649 #20-1655
#20-1661 #20-1667 #22-1864 22-1865 #22-1865 22-1865 22-1866 22-1867 *22-1871
#22-1871 *22-1871 22-1873 22-1874 *22-1882 #22-1882 *22-1882 22-1887 22-1888
22-1893 22-1893 22-1894 22-1895 22-1902 22-1902 #22-1902 *22-1904 22-1904
22-1905 #22-1905 22-1905 22-1906 22-1907 *22-1910 22-1910 *22-1912 #22-1912
22-1913 #22-1913 22-1914 #22-1914 22-1915 #22-1915 22-1915 22-1916 22-1917
22-1918 #22-1918 22-1918 22-1920 22-1921 *22-1925 22-1925 *22-1927 #22-1927
22-1928 #22-1928 22-1929 #22-1929 22-1929 22-1930 22-1931 22-1932 #22-1932
22-1932 22-1933 22-1934 22-1935 22-1941 22-1941 22-1942 #22-1942 22-1942
22-1943 22-1944 22-1945 *22-1948 #22-1948 *22-1950 #22-1950 22-1951 #22-1951
22-1952 #22-1952 22-1952 22-1953 22-1954 22-1956 #22-1956 22-1956 22-1958
22-1959 *22-1961 #22-1961 22-1965 #22-1965 #23-2014 23-2015 #23-2015 23-2015
23-2016 23-2017 *23-2021 #23-2021 *23-2021 23-2023 23-2024 *23-2030 23-2030
23-2031 #23-2031 23-2031 23-2032 23-2033 *23-2036 23-2036 *23-2038 #23-2038
23-2039 #23-2039 23-2040 #23-2040 23-2041 #23-2041 23-2041 23-2042 23-2043
23-2044 #23-2044 23-2044 23-2046 23-2047 *23-2051 23-2051 *23-2053 #23-2053
23-2054 #23-2054 23-2055 #23-2055 23-2055 23-2056 23-2057 23-2058 #23-2058
23-2058 23-2059 23-2060 23-2061 23-2067 23-2067 23-2068 #23-2068 23-2068
23-2069 23-2070 23-2071 *23-2074 #23-2074 *23-2076 #23-2076 23-2077 #23-2077
23-2078 #23-2078 23-2078 23-2079 23-2080 23-2082 #23-2082 23-2082 23-2084
23-2085 *23-2087 #23-2087 23-2091 #23-2091
$$S762 = 000077 #19-1574 19-1580
$$S763 = 000017 #19-1574 19-1580
$$S764 = 000077 #19-1569 19-1581
$$S765 = 000016 #19-1569 19-1581
$$S766 = 000077 #19-1563 19-1582
$$S767 = 000015 #19-1563 19-1582
$$S770 = 000077 #19-1558 19-1583
$$S771 = 000000 #18-1415 18-1436 #19-1558 19-1583 #22-1882 22-1902
$$S772 = 000011 #18-1415 18-1436 #19-1552 19-1584 #22-1882 22-1902 #22-1905 22-1912 #22-1942
22-1948 #23-2031 23-2038 #23-2068 23-2074
$$S773 = 000016 #18-1415 18-1436 #19-1552 19-1584 #22-1882 22-1902 #22-1905 22-1912 #22-1942
22-1948 #23-2031 23-2038 #23-2068 23-2074
$$S774 = 000077 #17-1302 17-1325 #18-1397 18-1406 #18-1411 18-1437 #18-1438 18-1442 #19-1526
19-1531 #19-1532 19-1544 #19-1545 19-1585 #22-1871 22-1913 #22-1918 22-1927
#22-1932 22-1950 #22-1956 22-1961 #23-2021 23-2039 #23-2044 23-2053 #23-2058
23-2076 #23-2082 23-2087
$$S775 = 000020 #17-1302 17-1325 #18-1397 18-1406 #18-1411 18-1437 #18-1438 18-1442 #19-1526
19-1531 #19-1532 19-1544 #19-1545 19-1585 #22-1871 22-1913 #22-1918 22-1927
LGLOGD CREATED BY MACRO ON 13-OCT-79 AT 11:55 PAGE 8
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#22-1932 22-1950 #22-1956 22-1961 #23-2021 23-2039 #23-2044 23-2053 #23-2058
23-2076 #23-2082 23-2087
$$S776 = 000000 #16-1204 16-1208 #16-1209 16-1216 #16-1217 16-1224 #17-1294 17-1326 #18-1393
18-1407 #18-1408 18-1444 #19-1522 19-1586 #19-1587 19-1594 #20-1644 20-1649
#22-1865 22-1914 #22-1915 22-1928 #22-1929 22-1951 #22-1952 22-1965 #23-2015
23-2040 #23-2041 23-2054 #23-2055 23-2077 #23-2078 23-2091
$$S777 = 000000 #16-1204 16-1208 #16-1209 16-1216 #16-1217 16-1224 #17-1294 17-1326 #18-1393
18-1407 #18-1408 18-1444 #19-1522 19-1586 #19-1587 19-1594 #20-1644 20-1649
#22-1865 22-1914 #22-1915 22-1928 #22-1929 22-1951 #22-1952 22-1965 #23-2015
23-2040 #23-2041 23-2054 #23-2055 23-2077 #23-2078 23-2091
$$TRNM = 000000 #5-134 #16-1203 16-1204 #16-1204 16-1205 16-1206 *16-1208 #16-1208 16-1209
#16-1209 16-1210 16-1211 16-1212 16-1216 #16-1216 16-1217 #16-1217 16-1218
16-1219 16-1224 #16-1224 #17-1293 17-1294 #17-1294 17-1295 17-1296 17-1301
#17-1301 17-1302 #17-1302 17-1303 17-1304 17-1317 #17-1317 17-1325 #17-1325
17-1326 #17-1326 #18-1391 *18-1393 #18-1393 18-1394 18-1395 18-1396 18-1397
#18-1397 18-1398 18-1399 18-1401 #18-1401 18-1406 #18-1406 18-1407 #18-1407
18-1408 #18-1408 18-1409 18-1410 18-1411 #18-1411 18-1412 18-1413 18-1414
18-1415 #18-1415 18-1418 18-1419 18-1423 18-1423 #18-1423 18-1424 18-1425
18-1434 #18-1434 18-1436 18-1436 #18-1436 18-1437 #18-1437 18-1438 #18-1438
18-1439 18-1440 18-1442 #18-1442 18-1444 #18-1444 #19-1515 19-1522 #19-1522
19-1523 19-1524 *19-1526 #19-1526 19-1527 19-1528 19-1529 19-1531 #19-1531
19-1532 #19-1532 19-1533 19-1535 19-1536 19-1542 #19-1542 19-1544 #19-1544
19-1545 #19-1545 19-1546 19-1547 19-1548 19-1552 #19-1552 19-1553 19-1554
19-1555 19-1558 #19-1558 19-1559 19-1560 19-1563 #19-1563 19-1564 19-1565
*19-1569 #19-1569 19-1570 19-1571 19-1572 19-1574 #19-1574 19-1575 19-1576
19-1577 19-1580 #19-1580 19-1581 #19-1581 19-1582 #19-1582 19-1583 #19-1583
19-1584 #19-1584 19-1585 #19-1585 19-1586 #19-1586 19-1587 #19-1587 19-1588
19-1589 19-1592 #19-1592 19-1594 #19-1594 #20-1623 #20-1629 #20-1637 #20-1643
20-1644 #20-1644 20-1645 20-1646 20-1647 20-1649 #20-1649 #20-1655 #20-1661
#20-1667 #22-1864 22-1865 #22-1865 22-1866 22-1867 *22-1871 #22-1871 22-1873
22-1874 *22-1882 #22-1882 22-1887 22-1888 22-1893 22-1893 #22-1893 22-1894
22-1895 22-1902 22-1902 #22-1902 22-1904 #22-1904 22-1905 #22-1905 22-1906
22-1907 22-1910 #22-1910 *22-1912 #22-1912 22-1913 #22-1913 22-1914 #22-1914
22-1915 #22-1915 22-1916 22-1917 22-1918 #22-1918 22-1920 22-1921 22-1925
#22-1925 *22-1927 #22-1927 22-1928 #22-1928 22-1929 #22-1929 22-1930 22-1931
22-1932 #22-1932 22-1933 22-1934 22-1935 22-1941 #22-1941 22-1942 #22-1942
22-1943 22-1944 22-1945 *22-1948 #22-1948 *22-1950 #22-1950 22-1951 #22-1951
22-1952 #22-1952 22-1953 22-1954 22-1956 #22-1956 22-1958 22-1959 *22-1961
#22-1961 22-1965 #22-1965 #23-2014 23-2015 #23-2015 23-2016 23-2017 *23-2021
#23-2021 23-2023 23-2024 23-2030 #23-2030 23-2031 #23-2031 23-2032 23-2033
23-2036 #23-2036 *23-2038 #23-2038 23-2039 #23-2039 23-2040 #23-2040 23-2041
#23-2041 23-2042 23-2043 23-2044 #23-2044 23-2046 23-2047 23-2051 #23-2051
*23-2053 #23-2053 23-2054 #23-2054 23-2055 #23-2055 23-2056 23-2057 23-2058
#23-2058 23-2059 23-2060 23-2061 23-2067 #23-2067 23-2068 #23-2068 23-2069
23-2070 23-2071 *23-2074 #23-2074 *23-2076 #23-2076 23-2077 #23-2077 23-2078
#23-2078 23-2079 23-2080 23-2082 #23-2082 23-2084 23-2085 *23-2087 #23-2087
23-2091 #23-2091
LGLOGD CREATED BY MACRO ON 13-OCT-79 AT 11:55 PAGE 9
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #17-1310 #17-1324 #18-1400 #18-1420 #18-1426 #18-1435 #18-1441 #19-1521 #19-1541 #19-1551
#19-1557 #19-1562 #19-1573 #19-1579 #19-1593 #22-1878 #22-1892 #22-1901 #23-2028
CASE #5-134 #16-1203 #17-1293 #18-1391 18-1417 18-1423 #19-1515 #20-1623 #20-1629 #20-1637
#20-1643 #20-1655 #20-1661 #20-1667 #22-1864 22-1886 22-1893 #23-2014
CONDF #5-125 #5-130 #16-1193 #16-1197 #17-1283 #17-1287 #18-1381 #18-1385 #19-1505 #19-1511
CONFIG #4-78
CRBDF$ #17-1283 #17-1289 #22-1849 #22-1854
DO #5-134 #16-1203 #17-1293 #18-1391 18-1414 18-1419 18-1425 #19-1515 19-1529 19-1572
#20-1623 #20-1629 #20-1637 #20-1643 20-1647 #20-1655 #20-1661 #20-1667 #22-1864 22-1888
22-1895 #23-2014
ELSE #5-134 #16-1203 #17-1293 17-1301 17-1317 #18-1391 18-1401 18-1434 #19-1515 19-1542
19-1592 #20-1623 #20-1629 #20-1637 #20-1643 #20-1655 #20-1661 #20-1667 #22-1864 22-1904
22-1910 22-1925 22-1941 #23-2014 23-2030 23-2036 23-2051 23-2067
ENDCAS #5-134 #16-1203 #17-1293 #18-1391 #18-1436 #19-1515 #20-1623 #20-1629 #20-1637 #20-1643
#20-1655 #20-1661 #20-1667 #22-1864 #22-1902 #23-2014
ENDIF #5-134 #16-1203 #16-1208 #16-1216 #16-1224 #17-1293 #17-1325 #17-1326 #18-1391 #18-1406
#18-1407 #18-1436 #18-1437 #18-1442 #18-1444 #19-1515 #19-1531 #19-1544 #19-1580 #19-1581
#19-1582 #19-1583 #19-1584 #19-1585 #19-1586 #19-1594 #20-1623 #20-1629 #20-1637 #20-1643
#20-1649 #20-1655 #20-1661 #20-1667 #22-1864 #22-1902 #22-1912 #22-1913 #22-1914 #22-1927
#22-1928 #22-1948 #22-1950 #22-1951 #22-1961 #22-1965 #23-2014 #23-2038 #23-2039 #23-2040
#23-2053 #23-2054 #23-2074 #23-2076 #23-2077 #23-2087 #23-2091
ENDPRO #5-134 5-137 #16-1203 16-1225 #17-1293 17-1327 #18-1391 18-1446 #19-1515 19-1596
#20-1623 20-1625 #20-1629 #20-1637 #20-1643 #20-1655 #20-1661 #20-1667 20-1669 #22-1864
22-1966 #23-2014 23-2092
ENDWHI #5-134 #16-1203 #17-1293 #18-1391 #18-1437 #19-1515 #19-1531 #19-1581 #20-1623 #20-1629
#20-1637 #20-1643 #20-1649 #20-1655 #20-1661 #20-1667 #22-1864 #23-2014
FALSE #5-134 #16-1203 #16-1210 #17-1293 #17-1303 #18-1391 #18-1409 #18-1418 #18-1424 #19-1515
#19-1523 #19-1527 #19-1533 #19-1535 #19-1546 #19-1547 #19-1553 #19-1554 #19-1559 #19-1564
#19-1570 #19-1571 #19-1575 #19-1576 #19-1588 #20-1623 #20-1629 #20-1637 #20-1643 #20-1645
#20-1655 #20-1661 #20-1667 #22-1864 #22-1873 #22-1887 #22-1894 #22-1906 #22-1933 #22-1944
#22-1958 #23-2014 #23-2023 #23-2032 #23-2059 #23-2070 #23-2084
FALSEB #5-134 #16-1203 #16-1205 #16-1211 #16-1218 #17-1293 #17-1295 #18-1391 #18-1395 #18-1398
#18-1412 #18-1413 #18-1439 #19-1515 #19-1528 #20-1623 #20-1629 #20-1637 #20-1643 #20-1646
#20-1655 #20-1661 #20-1667 #22-1864 #22-1866 #22-1916 #22-1920 #22-1930 #22-1934 #22-1943
#22-1953 #23-2014 #23-2016 #23-2042 #23-2046 #23-2056 #23-2060 #23-2069 #23-2079
IF #5-134 #16-1203 16-1204 16-1209 16-1217 #17-1293 17-1294 17-1302 #18-1391 18-1393
18-1397 18-1408 18-1411 18-1415 18-1438 #19-1515 19-1522 19-1526 19-1532 19-1545
19-1552 19-1558 19-1563 19-1569 19-1574 19-1587 #20-1623 #20-1629 #20-1637 #20-1643
20-1644 #20-1655 #20-1661 #20-1667 #22-1864 22-1865 22-1871 22-1882 22-1905 22-1915
22-1918 22-1929 22-1932 22-1942 22-1952 22-1956 #23-2014 23-2015 23-2021 23-2031
23-2041 23-2044 23-2055 23-2058 23-2068 23-2078 23-2082
JMPPRO #5-134 #16-1203 #17-1293 #18-1391 #19-1515 #20-1623 #20-1629 #20-1633 #20-1637 #20-1639
#20-1643 #20-1651 #20-1655 #20-1657 #20-1661 #20-1663 #20-1667 #22-1864 #23-2014
LGDF #5-125 #5-129 #16-1193 #16-1199 #17-1283 #17-1288 #18-1381 #18-1386 #19-1505 #19-1509
#22-1849 #22-1853 #23-2000 #23-2004
NICDF #19-1505 #19-1510
ONCASE #5-134 #16-1203 #17-1293 #18-1391 18-1415 #19-1515 #20-1623 #20-1629 #20-1637 #20-1643
#20-1655 #20-1661 #20-1667 #22-1864 22-1882 #23-2014
PRDF #16-1193 #16-1198 #18-1387
PROC #4-74 18-1391
PROCLC #4-74 5-134 #5-134 16-1203 #16-1203 17-1293 #17-1293 #18-1391 19-1515 #19-1515
20-1623 #20-1623 20-1629 #20-1629 20-1637 #20-1637 20-1643 #20-1643 20-1655 #20-1655
LGLOGD CREATED BY MACRO ON 13-OCT-79 AT 11:55 PAGE 10
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
20-1661 #20-1661 20-1667 #20-1667 22-1864 #22-1864 23-2014 #23-2014
PROFLG #4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78
#4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78
#4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78
#4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78 #4-78
#4-78
RESSTK #19-1505 #19-1595
SAVSTK #19-1505 19-1516
SWSTK$ #5-134 #16-1203 #17-1293 #18-1391 #19-1515 #20-1623 #20-1629 #20-1637 #20-1643 #20-1655
#20-1661 #20-1667 #22-1864 #23-2014
THEN #5-134 #16-1203 #16-1206 #16-1212 #16-1219 #17-1293 #17-1296 #17-1304 #18-1391 #18-1396
#18-1399 #18-1410 #18-1414 #18-1419 #18-1425 #18-1440 #19-1515 #19-1524 #19-1529 #19-1536
#19-1548 #19-1555 #19-1560 #19-1565 #19-1572 #19-1577 #19-1589 #20-1623 #20-1629 #20-1637
#20-1643 #20-1647 #20-1655 #20-1661 #20-1667 #22-1864 #22-1867 #22-1874 #22-1888 #22-1895
#22-1907 #22-1917 #22-1921 #22-1931 #22-1935 #22-1945 #22-1954 #22-1959 #23-2014 #23-2017
#23-2024 #23-2033 #23-2043 #23-2047 #23-2057 #23-2061 #23-2071 #23-2080 #23-2085
TRUE #5-134 #16-1203 #17-1293 #18-1391 #18-1394 #19-1515 #20-1623 #20-1629 #20-1637 #20-1643
#20-1655 #20-1661 #20-1667 #22-1864 #23-2014
TRUEB #5-134 #16-1203 #17-1293 #18-1391 #19-1515 #20-1623 #20-1629 #20-1637 #20-1643 #20-1655
#20-1661 #20-1667 #22-1864 #23-2014
WHILE #5-134 #16-1203 #17-1293 #18-1391 18-1411 #19-1515 19-1526 19-1569 #20-1623 #20-1629
#20-1637 #20-1643 20-1644 #20-1655 #20-1661 #20-1667 #22-1864 #23-2014
$$BGND #5-134 #16-1203 16-1205 16-1210 16-1211 16-1218 #17-1293 17-1295 17-1303 #18-1391
18-1394 18-1395 18-1398 18-1409 18-1412 18-1413 18-1418 18-1424 18-1439 #19-1515
19-1523 19-1527 19-1528 19-1533 19-1535 19-1546 19-1547 19-1553 19-1554 19-1559
19-1564 19-1570 19-1571 19-1575 19-1576 19-1588 #20-1623 #20-1629 #20-1637 #20-1643
20-1645 20-1646 #20-1655 #20-1661 #20-1667 #22-1864 22-1866 22-1873 22-1887 22-1894
22-1906 22-1916 22-1920 22-1930 22-1933 22-1934 22-1943 22-1944 22-1953 22-1958
#23-2014 23-2016 23-2023 23-2032 23-2042 23-2046 23-2056 23-2059 23-2060 23-2069
23-2070 23-2079 23-2084
$$BGNN #5-134 #16-1203 16-1205 16-1210 16-1211 16-1218 #17-1293 17-1295 17-1301 17-1303
17-1317 #18-1391 18-1394 18-1395 18-1398 18-1401 18-1409 18-1412 18-1413 18-1418
18-1423 18-1424 18-1434 18-1437 18-1439 #19-1515 19-1523 19-1527 19-1528 19-1531
19-1533 19-1535 19-1542 19-1546 19-1547 19-1553 19-1554 19-1559 19-1564 19-1570
19-1571 19-1575 19-1576 19-1581 19-1588 19-1592 #20-1623 #20-1629 #20-1637 #20-1643
20-1645 20-1646 20-1649 #20-1655 #20-1661 #20-1667 #22-1864 22-1866 22-1873 22-1887
22-1893 22-1894 22-1904 22-1906 22-1910 22-1916 22-1920 22-1925 22-1930 22-1933
22-1934 22-1941 22-1943 22-1944 22-1953 22-1958 #23-2014 23-2016 23-2023 23-2030
23-2032 23-2036 23-2042 23-2046 23-2051 23-2056 23-2059 23-2060 23-2067 23-2069
23-2070 23-2079 23-2084
$$ELSE #5-134 #16-1203 #17-1293 17-1301 17-1317 #18-1391 18-1401 18-1423 18-1434 #19-1515
19-1542 19-1592 #20-1623 #20-1629 #20-1637 #20-1643 #20-1655 #20-1661 #20-1667 #22-1864
22-1893 22-1904 22-1910 22-1925 22-1941 #23-2014 23-2030 23-2036 23-2051 23-2067
$$GEN1 #5-134 #5-134 #5-137 #16-1203 #16-1203 #16-1205 #16-1205 #16-1206 #16-1208 #16-1210
#16-1210 #16-1211 #16-1212 #16-1216 #16-1218 #16-1219 #16-1224 #16-1225 #17-1293 #17-1293
#17-1295 #17-1296 #17-1301 #17-1301 #17-1303 #17-1303 #17-1304 #17-1317 #17-1317 #17-1325
#17-1326 #17-1327 #18-1391 #18-1391 #18-1394 #18-1395 #18-1395 #18-1396 #18-1398 #18-1399
#18-1401 #18-1401 #18-1406 #18-1407 #18-1409 #18-1409 #18-1410 #18-1411 #18-1412 #18-1413
#18-1413 #18-1414 #18-1418 #18-1419 #18-1423 #18-1423 #18-1424 #18-1425 #18-1434 #18-1434
#18-1436 #18-1437 #18-1437 #18-1439 #18-1440 #18-1442 #18-1444 #18-1446 #19-1515 #19-1515
#19-1523 #19-1524 #19-1526 #19-1527 #19-1528 #19-1529 #19-1531 #19-1531 #19-1533 #19-1535
#19-1536 #19-1542 #19-1542 #19-1544 #19-1546 #19-1547 #19-1548 #19-1553 #19-1554 #19-1555
LGLOGD CREATED BY MACRO ON 13-OCT-79 AT 11:55 PAGE 11
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#19-1559 #19-1560 #19-1564 #19-1565 #19-1569 #19-1570 #19-1571 #19-1572 #19-1575 #19-1576
#19-1577 #19-1580 #19-1581 #19-1581 #19-1582 #19-1583 #19-1584 #19-1585 #19-1586 #19-1588
#19-1589 #19-1592 #19-1592 #19-1594 #19-1596 #20-1623 #20-1623 #20-1625 #20-1629 #20-1629
#20-1633 #20-1637 #20-1637 #20-1639 #20-1643 #20-1643 #20-1644 #20-1645 #20-1646 #20-1646
#20-1647 #20-1649 #20-1649 #20-1651 #20-1655 #20-1655 #20-1657 #20-1661 #20-1661 #20-1663
#20-1667 #20-1667 #20-1669 #22-1864 #22-1864 #22-1866 #22-1866 #22-1867 #22-1873 #22-1874
#22-1887 #22-1888 #22-1893 #22-1893 #22-1894 #22-1895 #22-1902 #22-1902 #22-1904 #22-1904
#22-1906 #22-1907 #22-1910 #22-1910 #22-1912 #22-1913 #22-1914 #22-1916 #22-1917 #22-1920
#22-1921 #22-1925 #22-1925 #22-1927 #22-1928 #22-1930 #22-1931 #22-1933 #22-1933 #22-1934
#22-1934 #22-1935 #22-1941 #22-1941 #22-1943 #22-1944 #22-1944 #22-1945 #22-1948 #22-1950
#22-1951 #22-1953 #22-1954 #22-1958 #22-1959 #22-1961 #22-1965 #22-1966 #23-2014 #23-2014
#23-2016 #23-2016 #23-2017 #23-2023 #23-2024 #23-2030 #23-2030 #23-2032 #23-2033 #23-2036
#23-2036 #23-2038 #23-2039 #23-2040 #23-2042 #23-2043 #23-2046 #23-2047 #23-2051 #23-2051
#23-2053 #23-2054 #23-2056 #23-2057 #23-2059 #23-2059 #23-2060 #23-2060 #23-2061 #23-2067
#23-2067 #23-2069 #23-2070 #23-2070 #23-2071 #23-2074 #23-2076 #23-2077 #23-2079 #23-2080
#23-2084 #23-2085 #23-2087 #23-2091 #23-2092
$$GEN2 #5-134 #16-1203 16-1211 16-1218 #17-1293 17-1295 #18-1391 18-1398 18-1412 18-1418
18-1424 18-1439 #19-1515 19-1527 19-1528 19-1533 19-1547 19-1554 19-1571 19-1576
#20-1623 #20-1629 #20-1637 #20-1643 20-1645 #20-1655 #20-1661 #20-1667 #22-1864 22-1887
22-1894 22-1906 22-1916 22-1930 22-1953 22-1958 #23-2014 23-2032 23-2042 23-2056
23-2079 23-2084
$$GNAB #5-134 #16-1203 16-1211 16-1218 #17-1293 17-1295 #18-1391 18-1398 18-1412 18-1413
18-1439 #19-1515 19-1523 19-1527 19-1528 19-1533 19-1535 19-1546 19-1547 19-1553
19-1554 19-1559 19-1564 19-1570 19-1571 19-1575 19-1576 19-1588 #20-1623 #20-1629
#20-1637 #20-1643 20-1645 20-1646 #20-1655 #20-1661 #20-1667 #22-1864 22-1887 22-1894
22-1916 22-1920 22-1930 22-1934 22-1943 22-1953 #23-2014 23-2042 23-2046 23-2056
23-2060 23-2069 23-2079
$$GNBT #5-134 #16-1203 #16-1205 #16-1210 #17-1293 #17-1303 #18-1391 #18-1394 #18-1395 #18-1409
#18-1418 #18-1424 #19-1515 #20-1623 #20-1629 #20-1637 #20-1643 #20-1655 #20-1661 #20-1667
#22-1864 #22-1866 #22-1873 #22-1906 #22-1933 #22-1944 #22-1958 #23-2014 #23-2016 #23-2023
#23-2032 #23-2059 #23-2070 #23-2084
$$GNCM #5-134 #16-1203 #16-1205 #16-1210 #16-1211 #16-1218 #17-1293 #17-1295 #17-1303 #18-1391
#18-1394 #18-1395 #18-1398 #18-1409 #18-1412 #18-1413 #18-1418 #18-1424 #18-1439 #19-1515
#19-1523 #19-1527 #19-1528 #19-1533 #19-1535 #19-1546 #19-1547 #19-1553 #19-1554 #19-1559
#19-1564 #19-1570 #19-1571 #19-1575 #19-1576 #19-1588 #20-1623 #20-1629 #20-1637 #20-1643
#20-1645 #20-1646 #20-1655 #20-1661 #20-1667 #22-1864 #22-1866 #22-1873 #22-1887 #22-1894
#22-1906 #22-1916 #22-1920 #22-1930 #22-1933 #22-1934 #22-1943 #22-1944 #22-1953 #22-1958
#23-2014 #23-2016 #23-2023 #23-2032 #23-2042 #23-2046 #23-2056 #23-2059 #23-2060 #23-2069
#23-2070 #23-2079 #23-2084
$$INMC #5-134 5-134 #16-1203 16-1203 #17-1293 17-1293 #18-1391 18-1391 #19-1515 19-1515
#20-1623 20-1623 #20-1629 20-1629 #20-1637 20-1637 #20-1643 20-1643 #20-1655 20-1655
#20-1661 20-1661 #20-1667 20-1667 #22-1864 22-1864 #23-2014 23-2014
$$INSY #5-134 5-134 #16-1203 16-1203 #17-1293 17-1293 #18-1391 18-1391 #19-1515 19-1515
#20-1623 20-1623 #20-1629 20-1629 #20-1637 20-1637 #20-1643 20-1643 #20-1655 20-1655
#20-1661 20-1661 #20-1667 20-1667 #22-1864 22-1864 #23-2014 23-2014
$$LAB #5-134 #16-1203 16-1206 16-1208 16-1212 16-1216 16-1219 16-1224 #17-1293 17-1296
17-1301 17-1304 17-1317 17-1325 17-1326 #18-1391 18-1396 18-1399 18-1401 18-1406
18-1407 18-1410 18-1411 18-1414 18-1419 18-1423 18-1425 18-1434 18-1436 18-1437
18-1440 18-1442 18-1444 #19-1515 19-1524 19-1526 19-1529 19-1531 19-1536 19-1542
19-1544 19-1548 19-1555 19-1560 19-1565 19-1569 19-1572 19-1577 19-1580 19-1581
19-1582 19-1583 19-1584 19-1585 19-1586 19-1589 19-1592 19-1594 #20-1623 #20-1629
#20-1637 #20-1643 20-1644 20-1647 20-1649 #20-1655 #20-1661 #20-1667 #22-1864 22-1867
LGLOGD CREATED BY MACRO ON 13-OCT-79 AT 11:55 PAGE 12
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
22-1874 22-1888 22-1893 22-1895 22-1902 22-1902 22-1904 22-1907 22-1910 22-1912
22-1913 22-1914 22-1917 22-1921 22-1925 22-1927 22-1928 22-1931 22-1935 22-1941
22-1945 22-1948 22-1950 22-1951 22-1954 22-1959 22-1961 22-1965 #23-2014 23-2017
23-2024 23-2030 23-2033 23-2036 23-2038 23-2039 23-2040 23-2043 23-2047 23-2051
23-2053 23-2054 23-2057 23-2061 23-2067 23-2071 23-2074 23-2076 23-2077 23-2080
23-2085 23-2087 23-2091
$$POP #5-134 #16-1203 #16-1208 #16-1208 #16-1216 #16-1216 #16-1224 #16-1224 #17-1293 #17-1325
#17-1325 #17-1326 #17-1326 #18-1391 #18-1406 #18-1406 #18-1407 #18-1407 #18-1436 #18-1436
#18-1436 #18-1437 #18-1437 #18-1442 #18-1442 #18-1444 #18-1444 #19-1515 #19-1531 #19-1531
#19-1544 #19-1544 #19-1580 #19-1580 #19-1581 #19-1581 #19-1582 #19-1582 #19-1583 #19-1583
#19-1584 #19-1584 #19-1585 #19-1585 #19-1586 #19-1586 #19-1594 #19-1594 #20-1623 #20-1629
#20-1637 #20-1643 #20-1649 #20-1649 #20-1655 #20-1661 #20-1667 #22-1864 #22-1902 #22-1902
#22-1902 #22-1912 #22-1912 #22-1913 #22-1913 #22-1914 #22-1914 #22-1927 #22-1927 #22-1928
#22-1928 #22-1948 #22-1948 #22-1950 #22-1950 #22-1951 #22-1951 #22-1961 #22-1961 #22-1965
#22-1965 #23-2014 #23-2038 #23-2038 #23-2039 #23-2039 #23-2040 #23-2040 #23-2053 #23-2053
#23-2054 #23-2054 #23-2074 #23-2074 #23-2076 #23-2076 #23-2077 #23-2077 #23-2087 #23-2087
#23-2091 #23-2091
$$POPI #5-134 #16-1203 #16-1208 #16-1208 #16-1216 #16-1216 #16-1224 #16-1224 #17-1293 #17-1325
#17-1325 #17-1326 #17-1326 #18-1391 #18-1406 #18-1406 #18-1407 #18-1407 #18-1436 #18-1436
#18-1436 #18-1437 #18-1437 #18-1442 #18-1442 #18-1444 #18-1444 #19-1515 #19-1531 #19-1531
#19-1544 #19-1544 #19-1580 #19-1580 #19-1581 #19-1581 #19-1582 #19-1582 #19-1583 #19-1583
#19-1584 #19-1584 #19-1585 #19-1585 #19-1586 #19-1586 #19-1594 #19-1594 #20-1623 #20-1629
#20-1637 #20-1643 #20-1649 #20-1649 #20-1655 #20-1661 #20-1667 #22-1864 #22-1902 #22-1902
#22-1902 #22-1912 #22-1912 #22-1913 #22-1913 #22-1914 #22-1914 #22-1927 #22-1927 #22-1928
#22-1928 #22-1948 #22-1948 #22-1950 #22-1950 #22-1951 #22-1951 #22-1961 #22-1961 #22-1965
#22-1965 #23-2014 #23-2038 #23-2038 #23-2039 #23-2039 #23-2040 #23-2040 #23-2053 #23-2053
#23-2054 #23-2054 #23-2074 #23-2074 #23-2076 #23-2076 #23-2077 #23-2077 #23-2087 #23-2087
#23-2091 #23-2091
$$PUSH #5-134 #16-1203 #16-1204 #16-1204 #16-1209 #16-1209 #16-1217 #16-1217 #17-1293 #17-1294
#17-1294 #17-1302 #17-1302 #18-1391 #18-1393 #18-1393 #18-1397 #18-1397 #18-1408 #18-1408
#18-1411 #18-1411 #18-1415 #18-1415 #18-1415 #18-1438 #18-1438 #19-1515 #19-1522 #19-1522
#19-1526 #19-1526 #19-1532 #19-1532 #19-1545 #19-1545 #19-1552 #19-1552 #19-1558 #19-1558
#19-1563 #19-1563 #19-1569 #19-1569 #19-1574 #19-1574 #19-1587 #19-1587 #20-1623 #20-1629
#20-1637 #20-1643 #20-1644 #20-1644 #20-1655 #20-1661 #20-1667 #22-1864 #22-1865 #22-1865
#22-1871 #22-1871 #22-1882 #22-1882 #22-1882 #22-1905 #22-1905 #22-1915 #22-1915 #22-1918
#22-1918 #22-1929 #22-1929 #22-1932 #22-1932 #22-1942 #22-1942 #22-1952 #22-1952 #22-1956
#22-1956 #23-2014 #23-2015 #23-2015 #23-2021 #23-2021 #23-2031 #23-2031 #23-2041 #23-2041
#23-2044 #23-2044 #23-2055 #23-2055 #23-2058 #23-2058 #23-2068 #23-2068 #23-2078 #23-2078
#23-2082 #23-2082
$$STSM #5-134 #16-1203 #16-1204 #16-1204 #16-1209 #16-1209 #16-1217 #16-1217 #17-1293 #17-1294
#17-1294 #17-1302 #17-1302 #18-1391 #18-1393 #18-1393 #18-1397 #18-1397 #18-1408 #18-1408
#18-1411 #18-1411 #18-1415 #18-1415 #18-1415 #18-1438 #18-1438 #19-1515 #19-1522 #19-1522
#19-1526 #19-1526 #19-1532 #19-1532 #19-1545 #19-1545 #19-1552 #19-1552 #19-1558 #19-1558
#19-1563 #19-1563 #19-1569 #19-1569 #19-1574 #19-1574 #19-1587 #19-1587 #20-1623 #20-1629
#20-1637 #20-1643 #20-1644 #20-1644 #20-1655 #20-1661 #20-1667 #22-1864 #22-1865 #22-1865
#22-1871 #22-1871 #22-1882 #22-1882 #22-1882 #22-1905 #22-1905 #22-1915 #22-1915 #22-1918
#22-1918 #22-1929 #22-1929 #22-1932 #22-1932 #22-1942 #22-1942 #22-1952 #22-1952 #22-1956
#22-1956 #23-2014 #23-2015 #23-2015 #23-2021 #23-2021 #23-2031 #23-2031 #23-2041 #23-2041
#23-2044 #23-2044 #23-2055 #23-2055 #23-2058 #23-2058 #23-2068 #23-2068 #23-2078 #23-2078
#23-2082 #23-2082
$$SYS #5-134 #16-1203 #17-1293 #18-1391 #19-1515 #20-1623 #20-1629 #20-1637 #20-1643 #20-1655
#20-1661 #20-1667 #22-1864 #23-2014
LGLOGD CREATED BY MACRO ON 13-OCT-79 AT 11:55 PAGE 13
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
$$TRCE #5-134 5-134 5-137 #16-1203 16-1203 16-1225 #17-1293 17-1293 17-1327 #18-1391
18-1391 18-1446 #19-1515 19-1515 19-1596 #20-1623 20-1623 20-1625 #20-1629 20-1629
#20-1637 20-1637 #20-1643 20-1643 #20-1655 20-1655 #20-1661 20-1661 #20-1667 20-1667
20-1669 #22-1864 22-1864 22-1966 #23-2014 23-2014 23-2092