␣␣␣␣␣J = 247
  1. Definition
    00367 0 00000 0 00000 134 J HTR0 F6C01170
  2. References (2)
    00327−0 63400 1 00367 101 STJ SXDJ,1 SAVE CURRENT STATUS OF COUNTER IN DECR. OF J. F6C00850
    00342−0 53400 1 00367 112 MJC LXDJ,1 CURRENT STATUS OF EQUIV. WORD COUNTER F6C00960
␣␣␣␣␣N = 243
  1. Definition
    00363 0 00000 0 00000 130 N HTR0 F6C01130
  2. References (5)
    00261−0 63400 1 00363 55 GFI SXDN,1 SAVE NO. OF VARIABLE NAMES READ IN SENT. F6C00460
    00266−0 53400 1 00363 61 UP02 LXDN,1 N=NO. OF WORDS IN SENTENCE INTO XR1 F6C00520
    00301−0 53400 1 00363 73LXDN,1 WD CT. OF SENT. 1NTO XR1. OF THE WORDS IN THE F6C00630
    00326−0 53400 1 00363 100LXDN,1 RESET COUNTER FOR WORDS IN EQUIV. SENTENCE. F6C00840
    00350 0 50000 0 00363 118 UP03 CLAN TO MODIFY DRUM ADDRESS ADD NO. OF WORDS READ F6C01020
␣␣␣␣C1 = 249
  1. Definition
    00371+000001000000 136 C1 OCT000001000000 F6C01190
  2. References (2)
    00424 0 40200 0 00371 160SUBC1 TABLE -1 IN DECR OF UP 18 F6C01430
    00540 0 40200 0 00371 241SUBC1 IF THERE IS A COMMON TABLE, DECREASE WORD CT. F6C02190
␣␣␣␣CS = 242
  1. Definition
    00362 0 00000 0 00000 129 CS HTR0 F6C01120
  2. References (6)
    00252 0 70000 0 00362 48CPYCS CHECK SUM TEST. (EACH SENTENCE HAS ITS OWN F6C00390
    00254 0 36100 0 00362 50ACLCS F6C00410
    00436−0 70000 0 00362 170CADCS F6C01530
    00457 0 70000 0 00362 187CPYCS F6C01700
    00461−0 70000 0 00362 189CADCS F6C01720
    00474−0 70000 0 00362 200CADCS F6C01830
␣␣␣CH2 = 330
  1. Definition
    00512−0 63400 1 00525 215 CH2 SXDUP21,1 NO. OF WORDS IN SENTENCE INTO DECR. UP 21 F6C01970
  2. Reference
    00511 2 00001 1 00512 214TIXCH2,1,1 XR1 CONTAINS NO. OF WOROS READ BY NXT F6C01960
␣␣␣DEN = 210
  1. Definition
    00322 2 00001 1 00302 96 DEN TIXLID,1,1 IS CORRESPOND1NG TO WDS IN EQUIV. SENT. ARE F6C00800
  2. Reference
    00320 0 04000 0 00322 94TLQDEN F6C00780
␣␣␣DES = 219
  1. Definition
    00333 0 50000 1 71457 105 DES CLAECS,1 CURRENT WORD OF EQUIV SENTENCE. F6C00890
␣␣␣DSA = 283
  1. Definition
    T00433−0 75400 0 00000 167 DSA PXD0 F6C01500
  2. Reference
    00432 0 46000 0 00433 166LDADSA SIZE TABLE TEST F6C01490
␣␣␣DSR = 280
  1. Definition
    00430 0 53400 2 00265 164 DSR LXALOC15,2 SET DRUM ERROR COUNTER F6C01470
  2. Reference
    00426 0 02000 0 00430 162TRADSR ERROR F6C01450
␣␣␣DTA = 299
  1. Definition
    T00453−0 75400 0 00002 183 DTA PXD2 F6C01660
  2. Reference
    00452 0 46000 0 00453 182LDADTA TABLE. F6C01650
␣␣␣DTC = 300
  1. Definition
    00454−0 70000 1 75055 184 DTC CADSTS,1 COPY ARRAY NAME INTO STS,1 F6C01670
  2. Reference
    00456 2 00001 1 00454 186TIXDTC,1,1 F6C01690
␣␣␣DTE = 294
  1. Definition
    00446 0 53400 1 00366 178 DTE LXAVSZ,1 SIZE TABLE TEST F6C01610
␣␣␣DTR = 291
  1. Definition
    00443 0 50000 0 00366 175 DTR CLAVSZ F6C01580
  2. Reference
    00440 0 10000 0 00443 172TZEDTR F6C01550
␣␣␣ECC = 166
  1. Definition
    00246−0 70000 1 71456 43 ECC CADECS−1,1 COPY VARIABLE NAME INTO ECS-1 ETC F6C00350
  2. Reference
    00251 0 16200 0 00246 46TQPECC TRANS. TO ECC IF STILL MORE WORDS IN SENT. F6C00380
␣␣␣ECI = 168
  1. Definition
    00250−0 70000 1 75531 45 ECI CADI,1 COPY ELEMENT NUMBER INTO I-1 ETC F6C00370
  2. Reference
    00247 1 00001 1 00250 44TXIECI,1,1 F6C00360
␣␣␣ECN = 238
  1. Definition
    00356−3 00000 1 00360 125 ECN TXLUP31,1,** WD COUNT OF EQUIV. TABLE IN DECR. F6C01080
  2. Reference
    00503−0 63400 1 00356 207SXDECN,1 IF THERE ARE ENTRIES IN EQUIV, SAVE WD. CT. IN F6C01900
␣␣␣EOF = 279
  1. Definition
    00427 0 07400 4 00004 163 EOF TSX4,4 END OF FILE ERROR F6C01460
  2. Reference
    00416 0 02000 0 00427 154TRAEOF END OF FILE IS ERROR HERE F6C01370
␣␣␣ETA = 313
  1. Definition
    T00471−0 75400 0 00000 197 ETA PXD0 F6C01800
  2. Reference
    00470 0 46000 0 00471 196LDAETA EQUIV TABLE TEST F6C01790
␣␣␣ETL = 241
  1. Definition
    00361 0 00000 0 00000 128 ETL HTR0 F6C01110
  2. References (5)
    00244 0 46000 0 00361 41LDAETL TO LOCATE FIRST VARIABLE NAME IN EQUIV. SENT. F6C00330
    00353 0 40000 0 00361 122ADDETL LAST STARTING DRUM ADDRESS. F6C01050
    00354 0 60100 0 00361 123STOETL STORE NEW STARTING DRUM ADDRESS IN ETL. F6C01060
    00355 0 53400 1 00361 124LXAETL,1 TEST FOR END OF EQUIVALENCE TABLE. F6C01070
    00505 0 60100 0 00361 210STOETL SET ETL=2 F6C01920
␣␣␣ETN = 248
  1. Definition
    00370 0 00000 0 00000 135 ETN HTR0 F6C01180
  2. References (2)
    00472−0 70000 0 00370 198CADETN READ WORD COUNT OF EQUIV TABLE INTO ETN F6C01810
    00501−0 53400 1 00370 205 ETT LXDETN,1 SET XR1 EQUAL WD. CT. OF EQUIV TABLE F6C01880
␣␣␣ETR = 310
  1. Definition
    00466 0 53400 2 00265 194 ETR LXALOC15,2 F6C01770
  2. References (2)
    D00447−3 00000 1 00466 179TXLETR,1 IF NO SIZE TABLE, GO ETR F6C01620
    00463 0 10000 0 00466 191TZEETR TEST CHECK SUM IF OK, GO TO ETR. F6C01740
␣␣␣ETT = 321
  1. Definition
    00501−0 53400 1 00370 205 ETT LXDETN,1 SET XR1 EQUAL WD. CT. OF EQUIV TABLE F6C01880
  2. Reference
    00476 0 10000 0 00501 202TZEETT IF NO ERROR, GO TO ETT. F6C01850
␣␣␣GFI = 177
  1. Definition
    00261−0 63400 1 00363 55 GFI SXDN,1 SAVE NO. OF VARIABLE NAMES READ IN SENT. F6C00460
  2. Reference
    00256 0 10000 0 00261 52TZEGFI IF CHECK SUM OK, PROCEED TO GFI F6C00430
␣␣␣IR4 = 250
  1. Definition
    00372 0 00000 0 00000 137 IR4 HTR0 F6C01200
  2. References (2)
    00267−0 63400 4 00372 62SXDIR4,4 SAVE XR4 F6C00530
    00347−0 53400 4 00372 117LXDIR4,4 F6C01010
␣␣␣LID = 194
  1. Definition
    74 SENTENCE. F6C00631
    00302 0 50000 1 71457 75 LID CLAECS,1 BRING A WORD OF SENTENCE INTO AC. F6C00640
  2. Reference
    00322 2 00001 1 00302 96 DEN TIXLID,1,1 IS CORRESPOND1NG TO WDS IN EQUIV. SENT. ARE F6C00800
␣␣␣LIT = 204
  1. Definition
    88 LENGTH OF THAT ARRAY. F6C00731
    00314−0 40000 1 75531 89 LIT SBMI,1 COMPUTE AND STORE D=L-I FOR I CORRESPONDING TO F6C00740
  2. Reference
    00312 0 02000 0 00314 86TRALIT SET L=1 AND GO TO LIT TO COMPUTE D. F6C00720
␣␣␣MAX = 190
  1. Definition
    69 AND REPEAT WITH NEXT I. F6C00591
    00276 0 60200 0 00364 70 MAX SLWMAXI STORE MAXIMUM I OF SENTENCE. F6C00600
  2. Reference
    00271−2 00001 1 00276 64TNXMAX,1,1 WHERE I IS NUMERIC PART OF EQUIV. COMPARE WITH F6C00550
␣␣␣ME1 = 382
  1. Definition
    M00576 0 62100 0 00205 274 ME1 STAME2 STORE ZERO IN ADDRESS OF ME2 AND GO TO F6C02490
  2. Reference
    00537 0 10000 0 00576 240TZEME1 TRANSFER OUT TO ME1 IF N0 COMM0N TABLE. F6C02180
␣␣␣ME2 = 133
  1. Definition
    2************* FORTRAN II SECTION SIX ************************F6C00010
    3FORTRAN 2 RECORD 96 - ASSIGN COMMON F6C00011
    4 F6C00012
    5CONTROL ENTERS THIS RECORD AT LOCATION 400 (OCTAL) F6C00013
    6 F6C00014
    M 00205 7 ME2 SYN133 F6C00020
  2. Reference
    M00576 0 62100 0 00205 274 ME1 STAME2 STORE ZERO IN ADDRESS OF ME2 AND GO TO F6C02490
␣␣␣MIT = 186
  1. Definition
    00272 0 56000 1 75531 65 MIT LDQI,1 NEXT I F6C00560
  2. Reference
    00275 2 00001 1 00272 68 TIN TIXMIT,1,1 IF MORE IS TO BE COMPARED, DECREMENT XR1 F6C00590
␣␣␣MJC = 226
  1. Definition
    00342−0 53400 1 00367 112 MJC LXDJ,1 CURRENT STATUS OF EQUIV. WORD COUNTER F6C00960
  2. References (2)
    00336 0 02000 0 00342 108TRAMJC RETURN FROM EDEV. F6C00920
    00340 0 10000 0 00342 110TZEMJC CORRESP. TO DEV ENTRY SHOULD EQUAL EA OR ERROR F6C00940
␣␣␣NSZ = 201
  1. Definition
    84 AGAIN TO COMPARE. F6C00701
    00311 0 50000 0 00162 85 NSZ CLAONE IF NO WORD IN SENTENCE IS AN ARRAY, F6C00710
  2. Reference
    D00304−3 00000 2 00311 78TXLNSZ,2 IF NO ENTRIES IN SIZE TABLE, GO TO NSZ F6C00660
␣␣␣NXT = 160
  1. Definition
    36READ EQUIV SENTENCE FROM DRUM 1 F6C00280
    00240−0 63400 2 00264 37 NXT SXDLIB20,2 SAVE XR2 F6C00290
  2. Reference
    00510 0 07400 4 00240 213 UP32 TSXNXT,4 READ EQUIV. SENTENCE. F6C01950
␣␣␣SSF = 203
  1. Definition
    00313 0 50000 2 76173 87 SSF CLAL,2 IF WORD IN SENT.=ARRAY NAME IN SIZE TABLE, CLA F6C00730
  2. Reference
    00307 0 02000 0 00313 82TRASSF IF EQUAL, GO TO SSF TO COMPUTE D. F6C00690
␣␣␣SSZ = 197
  1. Definition
    00305 0 34000 2 75055 79 SSZ CASSTS,2 OTHERWISE, COMPARE A WORD OF EQUIV SENT WITH F6C00670
  2. Reference
    00310 2 00001 2 00305 83 TDV TIXSSZ,2,1 IF NOT EQUAL, DECREMENT ARRAY NAME INDEX AND GOF6C00700
␣␣␣STJ = 215
  1. Definition
    00327−0 63400 1 00367 101 STJ SXDJ,1 SAVE CURRENT STATUS OF COUNTER IN DECR. OF J. F6C00850
  2. Reference
    00343 2 00001 1 00327 113TIXSTJ,1,1 IF MORE WDS IN SENTENCE, REPEAT WITH NEXT WORD F6C00970
␣␣␣STP = 265
  1. Definition
    00411 0 42000 0 00005 149 STP HPR5 F6C01320
  2. Reference
    00404 0 53400 1 00411 144LXASTP,1 SET TAPE ERROR COUNTER F6C01270
␣␣␣TDV = 200
  1. Definition
    00310 2 00001 2 00305 83 TDV TIXSSZ,2,1 IF NOT EQUAL, DECREMENT ARRAY NAME INDEX AND GOF6C00700
  2. Reference
    00306 0 02000 0 00310 81TRATDV F6C00680
␣␣␣TIN = 189
  1. Definition
    00275 2 00001 1 00272 68 TIN TIXMIT,1,1 IF MORE IS TO BE COMPARED, DECREMENT XR1 F6C00590
  2. Reference
    00273 0 04000 0 00275 66TLQTIN GREATER OF THE TWO IS INTO AC. F6C00570
␣␣␣VSZ = 246
  1. Definition
    00366 0 00000 0 00000 133 VSZ HTR0 CONTAINS NO. OF 2-WORD ENTRIES IN SIZ TABLE. F6C01160
  2. References (6)
    00303 0 53400 2 00366 76LXAVSZ,2 NO. OF ENTRIES IN ARRAY NAME TABLE (FROM SIZE F6C00650
    00434−0 70000 0 00366 168CADVSZ READ SIZE TABLE WORD COUNT F6C01510
    00443 0 50000 0 00366 175 DTR CLAVSZ F6C01580
    00445 0 60100 0 00366 177STOVSZ TABLE INTO VSZ F6C01600
    00446 0 53400 1 00366 178 DTE LXAVSZ,1 SIZE TABLE TEST F6C01610
    00553 0 53400 2 00366 253 UP05 LXAVSZ,2 IS UPPER SYM F6C02300
␣␣EDEV = 136
  1. Definition
    9THIS ROUTINE IS ENTERED AFTER AN UNSUCCESSFUL BINARY SEARCH F6C00031
    10OF DEV. INDEX REGISTER 2 CONTAINS THE RELATIVE POSITI0N IN F6C00032
    11DEV THAT THE NEW, ENTRY SHOULD HAVE. F6C00033
    00210 1 00001 2 00211 12 EDEV TXIEDEV0,2,1 SAVE POSITION FOR TEST. F6C00040
  2. References (2)
    00335 0 07400 4 00210 107TSXEDEV,4 STORE IN DEV TABLE F6C00910
    00547 0 07400 4 00210 248TSXEDEV,4 TO ENTER COMMON SYMBOL IN DEV TABLE. F6C02260
␣␣LIB1 = 385
  1. Definition
    00601 0 00000 0 00000 277 LIB1 HTR0 F6C02520
  2. References (3)
    00545−0 63400 1 00601 246SXDLIB1,1 SAVE COUNT. F6C02240
    00551−0 53400 1 00601 250LXDLIB1,1 RETURN HERE IF LOCATED COMMON WORD IN DEV TABL,F6C02280
    00554−0 53400 1 00601 254LXDLIB1,1 F6C02310
␣␣MAXD = 245
  1. Definition
    00365 0 00000 0 00000 132 MAXD HTR0 F6C01150
  2. References (4)
    00300 0 60100 0 00365 72STOMAXD SET MAXD=0 WHICH CORRESPONDS TO ONE F6C00620
    00317 0 50000 0 00365 93CLAMAXD F6C00770
    00321−0 60000 0 00365 95STQMAXD GO BACK AND COMPUTE D US1NG NEW I UNTIL ALL F6C00790
    00345 0 40200 0 00365 115SUBMAXD F6C00990
␣␣MAXI = 244
  1. Definition
    00364 0 00000 0 00000 131 MAXI HTR0 F6C01140
  2. References (2)
    00276 0 60200 0 00364 70 MAX SLWMAXI STORE MAXIMUM I OF SENTENCE. F6C00600
    00324 0 40200 0 00364 98SUBMAXI REDUCE LOCATION COUNTER BY MAX1 F6C00820
␣␣UP01 = 349
  1. Definition
    237ASSIGN UPPER MEMORY FOR WORDS IN COMMON BUT NOT IN EQUIV. F6C02151
    00535−0 53400 1 00164 238 UP01 LXDADDR,1 ASSIGN UPPER F6C02160
  2. References (3)
    D00502−3 00000 1 00535 206TXLUP01,1 IF WORD C0UNTER ZERO, TRANSFER F6C01890
    00531 0 02000 0 00535 232TRAUP01 IF END OF EQUIV TABLE, RETURN HERE F6C02120
    00534 0 02000 0 00535 236TRAUP01 IF END OF EQUIV TABLE, RETURN HERE F6C02150
␣␣UP02 = 182
  1. Definition
    60EQUIV SENTENCE ASSIGNMENT F6C00510
    00266−0 53400 1 00363 61 UP02 LXDN,1 N=NO. OF WORDS IN SENTENCE INTO XR1 F6C00520
  2. Reference
    00532 0 07400 4 00266 233 UP30 TSXUP02,4 TO ASSIGN EQUIV. SENT, WORD OF WHICH F6C02130
␣␣UP03 = 232
  1. Definition
    00350 0 50000 0 00363 118 UP03 CLAN TO MODIFY DRUM ADDRESS ADD NO. OF WORDS READ F6C01020
  2. Reference
    00527 0 07400 4 00350 228 UP33 TSXUP03,4 MODIFY DRUM ADDRESS AND TEST FOR END OF EQUIV. F6C02100
␣␣UP05 = 363
  1. Definition
    252TO DETERMINE WHETHER SYMBOL JUST ENTERED IN DEV IS AN ARRAY. F6C02291
    00553 0 53400 2 00366 253 UP05 LXAVSZ,2 IS UPPER SYM F6C02300
  2. Reference
    00550 0 02000 0 00553 249TRAUP05 RETURN FROM EDEV. GO TO UP05 TO RESET LCTR F6C02270
␣␣UP06 = 377
  1. Definition
    00571 1 00001 1 00572 269 UP06 TXIUP23,1,1 REPEAT FOR EACH COMMON ENTRY UNTIL F6C02440
  2. Reference
    00552 0 02000 0 00571 251TRAUP06 RESTORE XR AND GO TO UP06 TO INCREMENT WD COUNTF6C02290
␣␣UP07 = 371
  1. Definition
    261 ARRAY NAMES F6C02371
    00563 0 50200 0 00162 262 UP07 CLSONE IF NOT IN SIZE TABLE, REDUCE LCTR BY ONE. I.E. F6C02380
  2. Reference
    D00555−3 00000 2 00563 255TXLUP07,2 TRANSFER IF NO SIZE TABLE. F6C02320
␣␣UP08 = 367
  1. Definition
    00557 0 34000 2 75055 257 UP08 CASSTS,2 WITH ARRAY NAME FROM SIZE TABLE F6C02340
  2. Reference
    00562 2 00001 2 00557 260 UP09 TIXUP08,2,1 NOT LOCATED. REPEAT UNTIL COMPARED WITH ALL F6C02370
␣␣UP09 = 370
  1. Definition
    00562 2 00001 2 00557 260 UP09 TIXUP08,2,1 NOT LOCATED. REPEAT UNTIL COMPARED WITH ALL F6C02370
  2. Reference
    00560 0 02000 0 00562 258TRAUP09 F6C02350
␣␣UP10 = 373
  1. Definition
    00565 0 50200 2 76173 265 UP10 CLSL,2 REDUCE LCTR BY LENGTH OF ARRAY F6C02400
  2. Reference
    00561 0 02000 0 00565 259TRAUP10 COMMON SYMBOL LOCATED FN SIZE TABLE F6C02360
␣␣UP11 = 374
  1. Definition
    00566 0 40000 0 00171 266 UP11 ADDLCTR REDUCE LCTR F6C02410
  2. Reference
    00564 0 02000 0 00566 264TRAUP11 F6C02390
␣␣UP12 = 256
  1. Definition
    T00400−0 75400 0 00004 140 UP12 PXD4 F6C01230
␣␣UP15 = 266
  1. Definition
    00412 0 76200 0 00222 150 UP15 RTB2 SELECT TAPE TWO F6C01330
  2. References (2)
    00405 0 02000 0 00412 145TRAUP15 AND GO TO READ IN COMMON. F6C01280
    00407 2 00001 1 00412 147TIXUP15,1,1 UNLESS C0UNTER REDUCED TO 1. F6C01300
␣␣UP16 = 268
  1. Definition
    00414 0 70000 4 72606 152 UP16 CPYUPPER−1,4 READ IN COMMON TABLE. F6C01350
  2. Reference
    00415 1 00001 4 00414 153TXIUP16,4,1 F6C01360
␣␣UP17 = 337
  1. Definition
    00521 1 00001 2 00522 222 UP17 TXIUP18,2,1 NOT EQUAL. INCREMENT INDEX REG 2. F6C02040
  2. Reference
    00517 0 02000 0 00521 220TRAUP17 NOT EQUAL F6C02020
␣␣UP18 = 338
  1. Definition
    00522 3 00522 2 00524 223 UP18 TXHUP19,2,* PROCEED TO UP 19 IF ALL WORDS IN COMMON C0MPAREF6C02050
  2. References (2)
    00425 0 62200 0 00522 161STDUP18 F6C01440
    00521 1 00001 2 00522 222 UP17 TXIUP18,2,1 NOT EQUAL. INCREMENT INDEX REG 2. F6C02040
␣␣UP19 = 340
  1. Definition
    00524 1 00001 1 00525 225 UP19 TXIUP21,1,1 END OF COMMON. INCREMENT VARIABLE NAME COUNTER F6C02070
  2. Reference
    00522 3 00522 2 00524 223 UP18 TXHUP19,2,* PROCEED TO UP 19 IF ALL WORDS IN COMMON C0MPAREF6C02050
␣␣UP20 = 333
  1. Definition
    00515 0 50000 1 71456 218 UP20 CLAECS−1,1 COMPARE VARIABLE NAME FROM EQUIV SENTENCE F6C02000
  2. Reference
    00523 0 02000 0 00515 224TRAUP20 OTHERWISE COMPARE AGAIN WITH NEXT COMMON WORD F6C02060
␣␣UP21 = 341
  1. Definition
    00525 3 00525 1 00527 226 UP21 TXHUP33,1,* IF ALL VARIABLE NAMES IN SENTENCE COMPARED F6C02080
  2. References (2)
    00512−0 63400 1 00525 215 CH2 SXDUP21,1 NO. OF WORDS IN SENTENCE INTO DECR. UP 21 F6C01970
    00524 1 00001 1 00525 225 UP19 TXIUP21,1,1 END OF COMMON. INCREMENT VARIABLE NAME COUNTER F6C02070
␣␣UP22 = 332
  1. Definition
    00514−0 53400 2 00164 217 UP22 LXDADDR,2 F6C01990
  2. Reference
    00526 0 02000 0 00514 227TRAUP22 IF MORE NAMES IN SENTENCE, COMPARE NEXT WORD F6C02090
␣␣UP23 = 378
  1. Definition
    00572 3 00572 1 00574 270 UP23 TXHUP25,1,* ALL ENTRIES IN COMMON TABLE ARE IN DEV F6C02450
  2. References (2)
    00541 0 62200 0 00572 242STDUP23 BY 1 AND STORE IN DECR. OF UP 23 F6C02200
    00571 1 00001 1 00572 269 UP06 TXIUP23,1,1 REPEAT FOR EACH COMMON ENTRY UNTIL F6C02440
␣␣UP24 = 356
  1. Definition
    00544 0 50000 1 72604 245 UP24 CLAUPPER−3,1 A COMMON ENTRY INTO AC. F6C02230
  2. Reference
    00573 0 02000 0 00544 271TRAUP24 TABLE WITH THEIR ABSOLUTE LOCATIONS IN DEA TABLF6C02460
␣␣UP25 = 380
  1. Definition
    00574 0 76200 0 00221 272 UP25 RTB1 GO TO LOADER F6C02470
  2. References (3)
    00507 0 10000 0 00574 212TZEUP25 EQUALS ZERO, GO TO UP 25. IF NOT 0, F6C01940
    00572 3 00572 1 00574 270 UP23 TXHUP25,1,* ALL ENTRIES IN COMMON TABLE ARE IN DEV F6C02450
    00577 0 02000 0 00574 275TRAUP25 LOADER. F6C02500
␣␣UP30 = 346
  1. Definition
    00532 0 07400 4 00266 233 UP30 TSXUP02,4 TO ASSIGN EQUIV. SENT, WORD OF WHICH F6C02130
  2. Reference
    00520 0 02000 0 00532 221TRAUP30 EQUAL. I.E, VARIABLE NAME IS IN COMMON. F6C02030
␣␣UP31 = 240
  1. Definition
    00360 0 02000 4 00001 127 UP31 TRA1,4 IF NOT END OF EQUIV TABLE, GO TO EXIT+1 F6C01100
  2. Reference
    00356−3 00000 1 00360 125 ECN TXLUP31,1,** WD COUNT OF EQUIV. TABLE IN DECR. F6C01080
␣␣UP32 = 328
  1. Definition
    00510 0 07400 4 00240 213 UP32 TSXNXT,4 READ EQUIV. SENTENCE. F6C01950
  2. References (2)
    00530 0 02000 0 00510 230TRAUP32 RETURN HERE IF NOT END OF EQUIV TABLE TO READ F6C02110
    00533 0 02000 0 00510 235TRAUP32 RETURN IF NOT END OF EQUIV. TABLE F6C02140
␣␣UP33 = 343
  1. Definition
    00527 0 07400 4 00350 228 UP33 TSXUP03,4 MODIFY DRUM ADDRESS AND TEST FOR END OF EQUIV. F6C02100
  2. Reference
    00525 3 00525 1 00527 226 UP21 TXHUP33,1,* IF ALL VARIABLE NAMES IN SENTENCE COMPARED F6C02080
␣EDEV0 = 137
  1. Definition
    00211−0 63400 2 00225 13 EDEV0 SXDEDEV1,2 F6C00050
  2. Reference
    00210 1 00001 2 00211 12 EDEV TXIEDEV0,2,1 SAVE POSITION FOR TEST. F6C00040
␣EDEV1 = 149
  1. Definition
    00225 3 00225 2 00233 25 EDEV1 TXHEDEV4,2,* DECREMENT CONTAINS NEW POSITION F6C00170
  2. References (3)
    00211−0 63400 2 00225 13 EDEV0 SXDEDEV1,2 F6C00050
    00216−3 00000 2 00225 18 EDEV3 TXLEDEV1,2,**+0 UPDATED TO NEXT P0WER OF 2. F6C00100
    00237 1 77777 2 00225 35TXIEDEV1,2,−1 F6C00270
␣EDEV2 = 141
  1. Definition
    00215−0 63400 2 00155 17 EDEV2 SXDDEVL,2 MUST STARTING PT OF NEXT SEARCH BE F6C00090
  2. Reference
    00214 1 00001 2 00215 16TXIEDEV2,2,1 UPDATE LENGTH OF DEV TABLE. F6C00080
␣EDEV3 = 142
  1. Definition
    00216−3 00000 2 00225 18 EDEV3 TXLEDEV1,2,**+0 UPDATED TO NEXT P0WER OF 2. F6C00100
  2. Reference
    00224 0 62200 0 00216 24STDEDEV3 HIGHER POWER OF 2. F6C00160
␣EDEV4 = 155
  1. Definition
    00233−0 50000 2 00000 31 EDEV4 CALDEV+1,2 UNTIL SPACE IS MADE FOR NEW ENTRY. F6C00230
  2. Reference
    00225 3 00225 2 00233 25 EDEV1 TXHEDEV4,2,* DECREMENT CONTAINS NEW POSITION F6C00170
␣ERRUP = 262
  1. Definition
    00406 0 76400 0 00202 146 ERRUP BST2 TRY TO READ RECORD AGAIN F6C01290
  2. Reference
    00422 0 02000 0 00406 158TRAERRUP F6C01410
␣IDENT = 384
  1. Definition
    00600 0 00000 0 00000 276 IDENT HTR0 F6C02510
␣LIB20 = 180
  1. Definition
    00264 0 00000 0 00000 58 LIB20 HTR0 F6C00490
  2. References (2)
    00240−0 63400 2 00264 37 NXT SXDLIB20,2 SAVE XR2 F6C00290
    00262−0 53400 2 00264 56LXDLIB20,2 RESTORE XR2 F6C00470
␣LIB21 = 162
  1. Definition
    00242 0 76200 0 00301 39 LIB21 RDR1 F6C00310
  2. Reference
    00257 2 00001 2 00242 53TIXLIB21,2,1 IF INCORRECT CHECK SUM, TRY AGAIN UNLESS F6C00440
␣LIB22 = 281
  1. Definition
    00431 0 76200 0 00302 165 LIB22 RDR2 F6C01480
  2. Reference
    00441 2 00001 2 00431 173TIXLIB22,2,1 IF DRUM READ ERROR F6C01560
␣LIB23 = 297
  1. Definition
    00451 0 76200 0 00302 181 LIB23 RDR2 DRUM READ ERROR COUNT AND READ IN SIZE F6C01640
  2. Reference
    00464 2 00001 2 00451 192TIXLIB23,2,1 CHECK SUM ERROR. F6C01750
␣LIB24 = 311
  1. Definition
    00467 0 76200 0 00301 195 LIB24 RDR1 SELECT DRUM 1. TO SEE IF ANY EQUIV. TABLE. F6C01780
  2. Reference
    00477 2 00001 2 00467 203TIXLIB24,2,1 F6C01860
␣LOC15 = 181
  1. Definition
    00265 0 00000 0 00017 59 LOC15 HTR15 F6C00500
  2. References (4)
    00241 0 53400 2 00265 38LXALOC15,2 SET DRUM READ ERROR COUNTER F6C00300
    00430 0 53400 2 00265 164 DSR LXALOC15,2 SET DRUM ERROR COUNTER F6C01470
    00450 0 53400 2 00265 180LXALOC15,2 IF SIZE TABLE ENTRIES, SET F6C01630
    00466 0 53400 2 00265 194 ETR LXALOC15,2 F6C01770