␣␣␣␣CP = 35
  1. Definition
    00043 0 70000 1 77634 19 CP CPYTABLE+1,1
  2. Reference
    00044 1 00001 1 00043 20TXICP,1,1
␣␣␣␣N2 = 443
  1. Definition
    00673−0 50000 0 01203 427N2 CALDOTAG
  2. References (2)
    00663 0 02000 0 00674 419TRAN2+1 NO
    00671 0 12000 0 00673 425TPLN2
␣␣␣␣N3 = 454
  1. Definition
    00706−0 50000 0 01203 438N3 CALDOTAG
  2. References (2)
    00676 0 02000 0 00706 430TRAN3
    00704 0 12000 0 00706 436TPLN3
␣␣␣␣NL = 433
  1. Definition
    00661−0 50000 0 01203 417NL CALDOTAG
  2. Reference
    00657 0 12000 0 00661 415TPLNL
␣␣␣BST = 641
  1. Definition
    01201 0 00000 0 00000 645BST STORE NUMBER OF TIMES WORD COUNT WRONG
  2. References (3)
    00065−0 53400 4 01201 37LXDBST,4
    00073−0 63400 4 01201 43RDSXD SXDBST,4
    00076 0 60000 0 01201 46IDNTFY STZBST FORMAT SIZE AND ALL TAPE TABLES HAVE
␣␣␣CAS = 65
  1. Definition
    00101 0 34000 2 01253 49 CAS CASTAPTAB,2 COUNT
  2. Reference
    00104 2 00002 2 00101 52 NEXT TIXCAS,2,2
␣␣␣IJK = 653
  1. Definition
    01215 0 00000 0 00006 657 IJK HTR6,0,0
  2. References (2)
    01115 0 53400 4 01215 590LXAIJK,4
    01120 0 34000 4 01215 593BCAS CASIJK,4
␣␣␣IR1 = 616
  1. Definition
    A01150 0 00000 0 00000 620 IR1 HTR
  2. References (2)
    01071−0 63400 1 01150 568SXDIR1,1
    01105−0 53400 1 01150 580LXDIR1,1
␣␣␣IR2 = 617
  1. Definition
    01151 0 00000 0 00002 621 IR2 HTR2
  2. References (3)
    00033 0 53400 4 01151 11LXAIR2,4
    01070−0 63400 2 01151 567SXDIR2,2
    01104−0 53400 2 01151 579LXDIR2,2
␣␣␣IR4 = 618
  1. Definition
    01152 0 00000 0 00000 622 IR4 HTR0
  2. References (36)
    00042 0 53400 1 01152 18LXAIR4,1
    00052 0 53400 1 01152 26RDREC LXAIR4,1
    00125 0 53400 1 01152 69LXAIR4,1
    00127 0 53400 1 01152 71LXAIR4,1
    00137 0 53400 1 01152 79LXAIR4,1 IF TOO SMALL, SET TO ZERO
    00141 0 53400 1 01152 81LXAIR4,1 START AT FIRST ENTRY, THAT IS IR IS ZERO
    00157 0 53400 1 01152 95LXAIR4,1
    00161 0 53400 1 01152 97LXAIR4,1
    00171 0 53400 1 01152 105LXAIR4,1
    00173 0 53400 1 01152 107LXAIR4,1
    00204 0 53400 1 01152 116LXAIR4,1
    00206 0 53400 1 01152 118LXAIR4,1
    00222 0 53400 1 01152 130LXAIR4,1
    00230 0 53400 4 01152 136LXAIR4,4
    00246 0 53400 2 01152 150LXAIR4,2 READ IN TABLE OF NON EXECUTABLE
    00260 0 53400 2 01152 160LXAIR4,2
    00262 0 53400 1 01152 162LXAIR4,1
    00551 0 53400 1 01152 345LXAIR4,1
    00557 0 53400 1 01152 351LXAIR4,1 MAKE ENTRIES IN ERROR TABLE
    00564 0 53400 2 01152 356LXAIR4,2
    00606 0 53400 1 01152 374LXAIR4,1
    00610 0 53400 1 01152 376LXAIR4,1
    00625 0 53400 2 01152 389BINTIF LXAIR4,2 IS BETA IN DO TABLE A CONDITIONAL
    00733 0 53400 2 01152 459NEXTT LXAIR4,2
    00745 0 53400 4 01152 469BRANCH LXAIR4,4
    00770 0 53400 1 01152 488LXAIR4,1
    01004 0 53400 2 01152 500LXAIR4,2
    01013 0 53400 1 01152 507LXAIR4,1
    01037 0 50000 0 01152 536CLAIR4 PUT TSX FROM DABLE IN WHI+H
    01047−0 63400 4 01152 547ISNONX SXDIR4,4 ERROR WILL RECORD WHICH TABLE WAS SCANNED
    01063−0 53400 4 01152 559INFORM LXDIR4,4
    01067−0 63400 4 01152 566SXDIR4,4
    01103−0 53400 4 01152 578RETNA LXDIR4,4
    01114−0 63400 4 01152 589SXDIR4,4
    01127−0 53400 4 01152 600RETNB LXDIR4,4
    01275 0 53400 2 01152 705LXAIR4,2
␣␣␣NOP = 645
  1. Definition
    01205 0 76100 0 00000 649 NOP NOP
  2. Reference
    00152 0 50000 0 01205 90CLANOP
␣␣␣RDA = 50
  1. Definition
    00062 0 02000 0 01254 34 RDA TRAPTCH NOP GOES HERE AFTER SIZ TABLES ARE READ
  2. Reference
    00153 0 60100 0 00062 91STORDA RESET TEST AT END OF READ LOOP
␣␣␣REW = 528
  1. Definition
    01020 0 76100 0 00000 512REW NOP REPLACED BY SPACE2 AT 1263. WAS REWIND
␣␣␣SIZ = 93
  1. Definition
    00135−3 00000 1 00146 77SIZ TXLSETRD,1,0 IF NO ENTRIES, GET NEXT TAPE RECORDS
  2. Reference
    00064 0 10000 0 00135 36RDAAB TZESIZ TZE IDNTFY REPLACES THIS AFTER SIZ TABLES READ
␣␣␣SZW = 685
  1. Definition
    01255−0 75400 1 00000 689 SZW PXD0,1 NOT INCLUDED IN WORD COUNT
  2. Reference
    01254 2 00001 1 01255 688 PTCH TIXSZW,1,1 SIZ TABLE HAS CHECK SUM ENTRY NOT
␣␣␣TDO = 388
  1. Definition
    00604−3 00000 1 00723 372TDO TXLSPACES,1,0
  2. Reference
    01246 0 00000 0 00604 682HTRTDO
␣␣␣TRA = 81
  1. Definition
    00121 0 02000 0 00000 65TRA TRA0
  2. Reference
    00120 0 62100 0 00121 64STATRA
␣␣␣TRY = 58
  1. Definition
    00072 1 00001 4 00073 42 TRY TXIRDSXD,4,1
  2. Reference
    00066−3 00016 4 00072 38TXLTRY,4,14
␣␣ACAS = 574
  1. Definition
    01076 0 34000 2 01231 573ACAS CASSYMBL,2
  2. Reference
    01101 2 00001 2 01076 576ATIX TIXACAS,2,1 GET NEXT ILLEGAL SYMBOL FOR COMPARISON
␣␣ADDJ = 256
  1. Definition
    00400 0 50000 0 01172 240ADDJ CLATRADNB
  2. References (2)
    00373 0 02000 0 00400 235TRAADDJ
    00375 0 12000 0 00400 237TPLADDJ FAIL ANY ALPHA PLUS 1 SEARCH LATER ON
␣␣ADDK = 277
  1. Definition
    00425 0 50000 0 01172 261ADDK CLATRADNB
  2. References (2)
    00420 0 02000 0 00425 256TRAADDK
    00422 0 12000 0 00425 258TPLADDK
␣␣ADDL = 302
  1. Definition
    00456 0 50000 0 01155 286ADDL CLADECTWO
  2. References (2)
    00452 0 02000 0 00456 282TRAADDL
    00454−0 12000 0 00456 284TMIADDL
␣␣ADDM = 322
  1. Definition
    00502 0 50000 0 01155 306ADDM CLADECTWO
  2. References (2)
    00476 0 02000 0 00502 302TRAADDM
    00500−0 12000 0 00502 304TMIADDM
␣␣ADDN = 342
  1. Definition
    00526 0 50000 0 01155 326ADDN CLADECTWO
  2. References (2)
    00522 0 02000 0 00526 322TRAADDN
    00524−0 12000 0 00526 324TMIADDN
␣␣ADDQ = 370
  1. Definition
    00562 0 60000 0 01170 354ADDQ STZALFA
  2. Reference
    01273 0 02000 0 00562 703TRAADDQ
␣␣ADOB = 609
  1. Definition
    01141−0 63400 4 01177 613ADOB SXDERAS,4
  2. References (11)
    00642 0 07400 4 01141 402TSXADOB,4
    00651 0 07400 4 01141 409TSXADOB,4
    00655 0 07400 4 01141 413TSXADOB,4
    00660 0 07400 4 01141 416TSXADOB,4
    00667 0 07400 4 01141 423TSXADOB,4
    00672 0 07400 4 01141 426TSXADOB,4
    00702 0 07400 4 01141 434TSXADOB,4
    00705 0 07400 4 01141 437TSXADOB,4
    00715 0 07400 4 01141 445TSXADOB,4
    00720 0 07400 4 01141 448TSXADOB,4
    00730 0 07400 4 01141 456TSXADOB,4
␣␣ALFA = 632
  1. Definition
    01170 0 00000 0 00000 636ALFA
  2. References (23)
    00265 0 62100 0 01170 165STAALFA END OF PROCESSING EACH KIND OF TIFGO
    00303 0 50000 0 01170 179CLAALFA
    00343 0 62200 0 01170 211STDALFA
    00361 0 62200 0 01170 225STDALFA
    00406 0 62200 0 01170 246STDALFA
    00433 0 62200 0 01170 267STDALFA
    00457 0 62200 0 01170 287STDALFA
    00503 0 62200 0 01170 307STDALFA
    00527 0 62200 0 01170 327STDALFA
    00562 0 60000 0 01170 354ADDQ STZALFA
    00563 0 62100 0 01170 355STAALFA
    00566 0 34000 0 01170 358CASALFA
    00573 0 50000 0 01170 363CLAALFA
    00602 0 50000 0 01170 370ALAND1 CLAALFA
    00617 0 62100 0 01170 383STAALFA
    00643 0 50000 0 01170 403DOALF CLAALFA
    00742 0 60100 0 01170 466STOALFA FREQUENCY OF BETA IS IGNORED BY
    00750 0 34000 0 01170 472CASALFA
    01022−0 63400 4 01170 517NOBETA SXDALFA,4
    01024−0 53400 4 01170 519LXDALFA,4
    01030 0 50000 0 01170 524CLAALFA
    01060 0 62200 0 01170 556STDALFA
    01061 0 56000 0 01170 557LDQALFA
␣␣ATIX = 577
  1. Definition
    01101 2 00001 2 01076 576ATIX TIXACAS,2,1 GET NEXT ILLEGAL SYMBOL FOR COMPARISON
  2. Reference
    01077 0 02000 0 01101 574TRAATIX
␣␣BCAS = 592
  1. Definition
    01120 0 34000 4 01215 593BCAS CASIJK,4
  2. Reference
    01123 2 00001 4 01120 596 BTIX TIXBCAS,4,1
␣␣BETA = 31516
  1. Definition
    75434 5 BETA SYNERLIST−1251
  2. References (4)
    00243 0 60000 0 75434 147STZBETA
    00244 0 62100 0 75434 148STABETA
    00565 0 50000 2 75434 357NXTBTA CLABETA,2
    01133 0 60100 4 75434 607STOBET STOBETA,4
␣␣BIGD = 527
  1. Definition
    01017 0 07400 4 00032 511BIGD TSX26,4
␣␣BSTA = 642
  1. Definition
    01202 0 00000 0 00000 646BSTA DITTO IDENTIFICATION
  2. References (3)
    00105−0 53400 4 01202 53LXDBSTA,4 BACK SPACE RECORD AND TRY AGAIN 15 TIMES
    00113−0 63400 4 01202 59IDNSXD SXDBSTA,4
    00116 0 60000 0 01202 62HAVE STZBSTA
␣␣BTIX = 595
  1. Definition
    01123 2 00001 4 01120 596 BTIX TIXBCAS,4,1
  2. Reference
    01121 0 02000 0 01123 594TRABTIX
␣␣CASH = 553
  1. Definition
    01051 0 34000 2 74303 549CASH CASNONEXT,2
  2. References (2)
    01055−3 00000 2 01051 553TXLH TXLCASH,2,0
    01276 0 02000 0 01051 706TRACASH
␣␣CLAE = 135
  1. Definition
    00207 0 50000 1 77633 119CLAE CLATABLE,1 MINUS ENTRY MEANS BETA IS
  2. Reference
    00214−3 00000 1 00207 124TXLE TXLCLAE,1,0
␣␣CLAF = 179
  1. Definition
    00263 0 50000 1 75433 163CLAF CLATIFGOT,1 SAVE ALPHA IN CASE OF ERROR, AND
  2. Reference
    00310−3 00000 1 00263 184TXLF TXLCLAF,1,0 ALPHA TABLE
␣␣CLAJ = 244
  1. Definition
    00364 0 50000 1 75432 228CLAJ CLATIFGOT−1,1 PREPARE TO READ RELATED TRAD ENTRIES
␣␣CLAK = 265
  1. Definition
    00411 0 50000 1 75432 249CLAK CLATIFGOT−1,1
␣␣CLAQ = 368
  1. Definition
    00560 0 50000 1 75433 352CLAQ CLAALPHA,1
  2. Reference
    00600−3 00000 1 00560 368ENDALF TXLCLAQ,1,0
␣␣CLAT = 476
  1. Definition
    00734 0 50000 1 77634 460CLAT CLATABLE+1,1
  2. Reference
    00737 2 00001 1 00734 463TNEXT TIXCLAT,1,1 WILL NOT FAIL BEFORE THE TMI
␣␣COPY = 46
  1. Definition
    00056 0 70000 1 77633 30 COPY CPYTABLE,1 ALTERNATE FOR READING TRAD CPY TRAD,2
  2. References (6)
    00057 1 00001 1 00056 31CPTXI TXICOPY,1,1 TIX COPYAA,1,1
    00060 1 77777 4 00056 32COPYAA TXICOPY,4,−1
    00216 0 62100 0 00056 126STACOPY
    00225 0 60100 0 00056 133STOCOPY UPWARDS IN MEMORY. BUT
    00233 0 60100 0 00056 139STOCOPY
    01261 0 60100 0 00056 693STOCOPY
␣␣DCPY = 524
  1. Definition
    01014 0 70000 1 00031 508DCPY CPY25,1
  2. Reference
    01015 1 77777 1 01014 509TXIDCPY,1,−1
␣␣ERAS = 639
  1. Definition
    01177 0 00000 0 00000 643ERAS
  2. References (6)
    01026−0 63400 4 01177 522SAVALF SXDERAS,4
    01035 0 62200 0 01177 534STDERAS
    01045−0 53400 4 01177 542LXDERAS,4
    01131−0 63400 4 01177 605MORBTS SXDERAS,4
    01137−0 53400 4 01177 611LXDERAS,4
    01141−0 63400 4 01177 613ADOB SXDERAS,4
␣␣FRET = 474
  1. Definition
    00732−3 00002 1 00052 458FRET TXLRDREC,1,2 GO THRO THIS TABLE FROM LAST TO FIRST
  2. Reference
    01250 0 00000 0 00732 684HTRFRET
␣␣HAVE = 78
  1. Definition
    00116 0 60000 0 01202 62HAVE STZBSTA
  2. Reference
    00103 0 02000 0 00116 51TRAHAVE
␣␣LDQA = 88
  1. Definition
    00130 0 56000 1 77633 72LDQA LDQTABLE,1
  2. Reference
    00133−3 00000 1 00130 75TXLA TXLLDQA,1,0
␣␣LDQB = 98
  1. Definition
    00142 0 56000 1 77633 82LDQB LDQTABLE,1
  2. Reference
    00145−3 00000 1 00142 85 TXLB TXLLDQB,1,0
␣␣LDQC = 114
  1. Definition
    00162 0 56000 1 77633 98LDQC LDQTABLE,1
  2. Reference
    00165−3 00000 1 00162 101TXLC TXLLDQC,1,0
␣␣LDQD = 124
  1. Definition
    00174 0 56000 1 77633 108LDQD LDQTABLE,1
  2. Reference
    00177−3 00000 1 00174 111TXLD TXLLDQD,1,0
␣␣NAME = 638
  1. Definition
    01176 0 00000 0 00000 642NAME
  2. References (4)
    01066−0 60000 0 01176 565CHECKA STQNAME
    01107 0 56000 0 01176 582WRONG LDQNAME
    01113 0 56000 0 01176 588CHECKB LDQNAME
    01124 0 56000 0 01176 597LDQNAME
␣␣NEXT = 68
  1. Definition
    00104 2 00002 2 00101 52 NEXT TIXCAS,2,2
  2. Reference
    00102 0 02000 0 00104 50TRANEXT
␣␣OVER = 39
  1. Definition
    00047 0 76200 0 00222 23 OVER RTB2 SPACE OVER END FILE AFTER FORSUB
  2. Reference
    00134 0 02000 0 00047 76TRAOVER
␣␣PDXP = 356
  1. Definition
    00544−0 75400 4 00000 340PDXP PXD0,4
  2. Reference
    00542 0 02000 0 00544 338TRAPDXP TAPE TABLE INTO ADDRESS OF MEMORY
␣␣PTCH = 684
  1. Definition
    01254 2 00001 1 01255 688 PTCH TIXSZW,1,1 SIZ TABLE HAS CHECK SUM ENTRY NOT
  2. Reference
    00062 0 02000 0 01254 34 RDA TRAPTCH NOP GOES HERE AFTER SIZ TABLES ARE READ
␣␣PXDH = 171
  1. Definition
    00253−0 75400 4 00000 155PXDH PXD0,4
  2. Reference
    00251 0 02000 0 00253 153TRAPXDH ADDRESS OF MEMORY
␣␣QADD = 369
  1. Definition
    00561 0 02000 0 01271 353QADD TRAPAQADD
  2. Reference
    00603 0 02000 0 00561 371TRAQADD
␣␣SCLA = 407
  1. Definition
    00627 0 50000 2 75433 391SCLA CLAALPHA,2
  2. Reference
    00635−3 00000 2 00627 397ALFANB TXLSCLA,2,0
␣␣SXDG = 159
  1. Definition
    00237−0 63400 4 00572 143SXDG SXDBETANB,4 SAVE NUMBER OF ENTRIES IN BETA TABLE
  2. Reference
    00236 1 77777 4 00237 142TXISXDG,4,−1
␣␣TIXP = 360
  1. Definition
    00550 2 00001 1 00552 344TIXP TIXNEXTP,1,1
  2. Reference
    00543 0 02000 0 00550 339TRATIXP
␣␣TIXS = 412
  1. Definition
    00634 1 00001 2 00635 396TIXS TXIALFANB,2,1
  2. Reference
    00632 0 02000 0 00634 394TRATIXS
␣␣TIXT = 491
  1. Definition
    00753 1 00001 4 00754 475TIXT TXIFRETST,4,1
  2. Reference
    00751 0 02000 0 00753 473TRATIXT
␣␣TRAD = 154
  1. Definition
    00232 0 50000 0 01163 138TRAD CLAADTABL RESTORE COPY LOOP
  2. Reference
    01244 0 00000 0 00232 680HTRTRAD
␣␣TRYA = 74
  1. Definition
    00112 1 00001 4 00113 58TRYA TXIIDNSXD,4,1
  2. Reference
    00106−3 00016 4 00112 54TXLTRYA,4,14 IF NECESSARY
␣␣TSTE = 139
  1. Definition
    00213 1 00001 1 00214 123TSTE TXITXLE,1,1
  2. Reference
    00210 0 12000 0 00213 120TPLTSTE DUPLICATED IN SOURCE PROGRAM
␣␣TSXA = 89
  1. Definition
    00131 0 07400 4 01066 73TSXA TSXCHECKA,4
␣␣TSXB = 99
  1. Definition
    00143 0 07400 4 01066 83TSXB TSXCHECKA,4
␣␣TSXC = 115
  1. Definition
    00163 0 07400 4 01066 99TSXC TSXCHECKA,4
␣␣TSXD = 125
  1. Definition
    00175 0 07400 4 01066 109TSXD TSXCHECKA,4
␣␣TSXE = 138
  1. Definition
    00212 0 07400 4 01033 122TSXE TSXERROR,4
␣␣TSXH = 562
  1. Definition
    01062 0 07400 4 01033 558TSXH TSXERROR,4
␣␣TW13 = 633
  1. Definition
    01171 0 00000 0 00325 637TW13 HTR213
  2. Reference
    01002 0 50000 0 01171 498CLATW13 PUT RECORD NUMBER IN 2 FOR PRINT OUT
␣␣TXHJ = 260
  1. Definition
    00404 3 00000 2 00370 244TXHJ TXHMORTR,2,0
  2. References (2)
    00367 0 62200 0 00404 231STDTXHJ
    00403 1 77777 2 00404 243TXITXHJ,2,−1
␣␣TXHK = 281
  1. Definition
    00431 3 00000 2 00415 265TXHK TXHMORTRD,2,0
  2. References (2)
    00414 0 62200 0 00431 252STDTXHK
    00430 1 77777 2 00431 264TXITXHK,2,−1
␣␣TXLA = 91
  1. Definition
    00133−3 00000 1 00130 75TXLA TXLLDQA,1,0
  2. References (2)
    00126−0 63400 1 00133 70SAVEA SXDTXLA,1
    00132 1 00002 1 00133 74TXITXLA,1,2
␣␣TXLB = 101
  1. Definition
    00145−3 00000 1 00142 85 TXLB TXLLDQB,1,0
  2. References (2)
    00140−0 63400 1 00145 80SAVEB SXDTXLB,1
    00144 1 00002 1 00145 84TXITXLB,1,2 GET NEXT 2 WORD ENTRY
␣␣TXLC = 117
  1. Definition
    00165−3 00000 1 00162 101TXLC TXLLDQC,1,0
  2. References (2)
    00160−0 63400 1 00165 96SAVEC SXDTXLC,1
    00164 1 00001 1 00165 100TXITXLC,1,1 1 WORD ENTRIES
␣␣TXLD = 127
  1. Definition
    00177−3 00000 1 00174 111TXLD TXLLDQD,1,0
  2. References (2)
    00172−0 63400 1 00177 106SAVED SXDTXLD,1
    00176 1 00001 1 00177 110TXITXLD,1,1 1 WORD ENTRIES
␣␣TXLE = 140
  1. Definition
    00214−3 00000 1 00207 124TXLE TXLCLAE,1,0
  2. References (2)
    00205−0 63400 1 00214 117SAVEE SXDTXLE,1
    00213 1 00001 1 00214 123TSTE TXITXLE,1,1
␣␣TXLF = 200
  1. Definition
    00310−3 00000 1 00263 184TXLF TXLCLAF,1,0 ALPHA TABLE
  2. References (2)
    00223−0 63400 1 00310 131SAVEF SXDTXLF,1
    00307 1 00002 1 00310 183RETIF6 TXITXLF,1,2 TYPE 6 TIFGO ENTRIES DO NOT GO IN
␣␣TXLH = 557
  1. Definition
    01055−3 00000 2 01051 553TXLH TXLCASH,2,0
  2. References (2)
    00261−0 63400 2 01055 161SAVEH SXDTXLH,2 SET END OF ENTRIES TEST
    01054 1 00001 2 01055 552NEXTH TXITXLH,2,1 SCANNING BETA TABLE
␣␣TXLS = 466
  1. Definition
    00722−3 00000 1 00611 450TXLS TXLCLADO,1,0
  2. References (2)
    00607−0 63400 1 00722 375SAVES SXDTXLS,1
    00721 1 00005 1 00722 449NXTDO TXITXLS,1,5
␣ALPHA = 31515
  1. Definition
    75433 7ALPHA SYNERLIST−1252
  2. References (6)
    00304 0 60100 4 75433 180STOALPHA,4
    00546 0 60100 1 75433 342STOALPHA,1
    00560 0 50000 1 75433 352CLAQ CLAALPHA,1
    00627 0 50000 2 75433 391SCLA CLAALPHA,2
    00746 0 50000 4 75433 470TCLAT CLAALPHA,4
    00756 0 50000 4 75433 478HAVALF CLAALPHA,4 THE ONLY TIME A FREQUENCY STATEMENT CAN
␣BADWC = 56
  1. Definition
    00070 0 07400 4 01033 40BADWC TSXERROR,4
␣CLADO = 393
  1. Definition
    00611 0 50000 1 77633 377CLADO CLATABLE,1
  2. Reference
    00722−3 00000 1 00611 450TXLS TXLCLADO,1,0
␣CPNON = 167
  1. Definition
    00247 0 70000 0 00000 151CPNON CPY0 STATEMENTS AND SAVE
  2. Reference
    00256 1 00001 2 00247 158TXICPNON,2,1
␣CPTXI = 47
  1. Definition
    00057 1 00001 1 00056 31CPTXI TXICOPY,1,1 TIX COPYAA,1,1
  2. References (2)
    00227 0 62100 0 00057 135STACPTXI AS USUAL
    00235 0 62100 0 00057 141STACPTXI
␣DOALF = 419
  1. Definition
    00643 0 50000 0 01170 403DOALF CLAALFA
  2. References (3)
    00624 0 02000 0 00643 388TRADOALF
    00640 0 12000 0 00643 400TPLDOALF IF BETA IN TO IS NON EXECUTABLE THIS
    00731 0 02000 0 00643 457TRADOALF AND TEST ALPHA
␣DOTAG = 643
  1. Definition
    01203 0 00000 0 00000 647DOTAG
  2. References (4)
    00614 0 63000 0 01203 380STPDOTAG
    00661−0 50000 0 01203 417NL CALDOTAG
    00673−0 50000 0 01203 427N2 CALDOTAG
    00706−0 50000 0 01203 438N3 CALDOTAG
␣EQUIV = 501
  1. Definition
    00765 0 50000 0 77633 485EQUIV CLATABLE FIRST WORD IN TABLE WILL BE 35 ONES
  2. Reference
    01252 0 00000 0 00765 686HTREQUIV
␣ERNBR = 635
  1. Definition
    01173 0 00000 0 00000 639ERNBR
  2. References (5)
    00777 0 50000 0 01173 495DIAGND CLAERNBR
    01027−0 53400 4 01173 523LXDERNBR,4
    01034−0 53400 4 01173 533LXDERNBR,4 FOR ERROR, IN DEC OF 1ST WORD
    01044−0 63400 4 01173 541NEXTA SXDERNBR,4
    01142−0 53400 4 01173 614LXDERNBR,4
␣ERROR = 539
  1. Definition
    527ENTER WITH MQ=BCD SYMBOL OR HASH,0, ALPHA
    528MAKES 2 WORD ENTRY IN ERROR LIST
    529 1...KIND OF ERROR,0, TABLE IN WHICH ERROR FOUND
    530 2...CONTENTS OF MQ
    531EXIT AC HASH, MQ NOT CHANGED
    01033−0 75400 4 00000 532ERROR PXD0,4 PUT TSX FROM SECTION SCANNING
  2. References (8)
    00070 0 07400 4 01033 40BADWC TSXERROR,4
    00110 0 07400 4 01033 56NOIDEN TSXERROR,4
    00212 0 07400 4 01033 122TSXE TSXERROR,4
    00301 0 07400 4 01033 177WHATIF TSXERROR,4 TABLE, BUT PUT ALPHA IN TABLE ANYWAY
    00775 0 07400 4 01033 493NOTEQV TSXERROR,4
    01062 0 07400 4 01033 558TSXH TSXERROR,4
    01110 0 07400 4 01033 583CHATSX TSXERROR,4
    01125 0 07400 4 01033 598CHBTSX TSXERROR,4
␣FSAVE = 198
  1. Definition
    00306−0 63400 4 00635 182FSAVE SXDALFANB,4
  2. Reference
    00305 1 00001 4 00306 181TXIFSAVE,4,1
␣IDENT = 636
  1. Definition
    01174 0 00000 0 00000 640IDENT
  2. References (4)
    00054 0 70000 0 01174 28CPYIDENT
    00067 0 56000 0 01174 39LDQIDENT
    00100 0 50000 0 01174 48CLAIDENT TAPE RECORD, NOT INCLUDED IN WORD
    00107 0 56000 0 01174 55LDQIDENT
␣IJKN1 = 440
  1. Definition
    00670 0 07400 4 01113 424IJKN1 TSXCHECKB,4
  2. Reference
    00666 0 12000 0 00670 422TPLIJKN1
␣IJKN2 = 451
  1. Definition
    00703 0 07400 4 01113 435IJKN2 TSXCHECKB,4
  2. Reference
    00701 0 12000 0 00703 433TPLIJKN2
␣IJKN3 = 462
  1. Definition
    00716 0 07400 4 01113 446IJKN3 TSXCHECKB,4
  2. Reference
    00714 0 12000 0 00716 444TPLIJKN3
␣MINB1 = 204
  1. Definition
    00314 0 07400 4 01022 188MINB1 TSXNOBETA,4 CORRESPONDING TO IT IN COL 1 TO 5 OF
␣MINB2 = 213
  1. Definition
    00325 0 07400 4 01022 197MINB2 TSXNOBETA,4
␣MINB3 = 221
  1. Definition
    00335 0 07400 4 01022 205MINB3 TSXNOBETA,4
␣MORTR = 248
  1. Definition
    00370 0 50000 2 76027 232MORTR CLATRADT+250,2
  2. Reference
    00404 3 00000 2 00370 244TXHJ TXHMORTR,2,0
␣MSK35 = 626
  1. Definition
    01162+377777777777 630MSK35 OCT377777777777
  2. References (2)
    00766 0 40200 0 01162 486SUBMSK35 IF THERE HAVE BEEN INCONSISTANT
    00772 0 40200 0 01162 490SUBMSK35 LAST INCONSISTANCY IS FOLLOWED BY
␣NEXTA = 548
  1. Definition
    01044−0 63400 4 01173 541NEXTA SXDERNBR,4
  2. References (3)
    01032 1 00001 4 01044 526TXINEXTA,4,1 SAME RETURN AS ERROR ROUTINE.
    01043 1 00002 4 01044 540TXINEXTA,4,2
    01147 1 00002 4 01044 619TXINEXTA,4,2
␣NEXTH = 556
  1. Definition
    01054 1 00001 2 01055 552NEXTH TXITXLH,2,1 SCANNING BETA TABLE
  2. Reference
    01052 0 02000 0 01054 550TRANEXTH
␣NEXTI = 237
  1. Definition
    00355 0 50000 1 75432 221NEXTI CLATIFGOT−1,1 DO NOT PUT IN ALPHA TABLE IF
  2. References (2)
    00351 0 02000 0 00355 217TRANEXTI KEEP TRACK OF NUMBER OF BETAS
    00353−0 12000 0 00355 219TMINEXTI
␣NEXTL = 294
  1. Definition
    00446 0 50000 1 75433 278NEXTL CLATIFGOT−1*,1
  2. References (2)
    00442 0 02000 0 00446 274TRANEXTL
    00444−0 12000 0 00446 276TMINEXTL
␣NEXTM = 314
  1. Definition
    00472 0 50000 1 75432 298NEXTM CLATIFGOT−1,1
  2. References (2)
    00466 0 02000 0 00472 294TRANEXTM
    00470−0 12000 0 00472 296TMINEXTM
␣NEXTN = 334
  1. Definition
    00516 0 50000 1 75432 318NEXTN CLATIFGOT−1,1
  2. References (2)
    00512 0 02000 0 00516 314TRANEXTN
    00514−0 12000 0 00516 316TMINEXTN
␣NEXTP = 362
  1. Definition
    00552−0 63400 1 00600 346NEXTP SXDENDALF,1
  2. Reference
    00550 2 00001 1 00552 344TIXP TIXNEXTP,1,1
␣NEXTQ = 377
  1. Definition
    00571 1 77777 2 00572 361NEXTQ TXIBETANB,2,−1
  2. Reference
    00567 0 02000 0 00571 359TRANEXTQ
␣NEXTT = 475
  1. Definition
    00733 0 53400 2 01152 459NEXTT LXAIR4,2
  2. Reference
    00763 2 00001 1 00733 483NXTFRT TIXNEXTT,1,1
␣NOTRA = 382
  1. Definition
    00576 0 07400 4 01022 366NOTRA TSXNOBETA,4 NOT EITHER TABLE, PART OF PROG NOT ENTERED
␣NOWB2 = 209
  1. Definition
    00321 0 50000 1 75432 193NOWB2 CLATIFGOT−1,1
  2. References (2)
    00315 0 02000 0 00321 189TRANOWB2 SOURCE PROGRAM, SKIP REST OF PROCESSING
    00317−0 12000 0 00321 191TMINOWB2 BETA TABLE
␣NOWB3 = 218
  1. Definition
    00332 0 50000 1 75432 202NOWB3 CLATIFGOT−1,1
  2. References (2)
    00326 0 02000 0 00332 198TRANOWB3
    00330−0 12000 0 00332 200TMINOWB3
␣NXTDO = 465
  1. Definition
    00721 1 00005 1 00722 449NXTDO TXITXLS,1,5
  2. References (2)
    00711 0 02000 0 00721 441TRANXTDO
    00717 0 12000 0 00721 447TPLNXTDO
␣PATIF = 688
  1. Definition
    01260 0 50000 0 01163 692 PATIF CLAADTABL
  2. Reference
    00220−3 00000 1 01260 128TIFGO TXLPATIF,1,0 IF NO ENTRIES, IGNORE TRAD IDENTIFICATION
␣PATS2 = 700
  1. Definition
    01274−0 63400 2 01301 704PATS2 SXDPATERA,2
  2. Reference
    01050 0 02000 0 01274 548TRAPATS2
␣PUNN1 = 437
  1. Definition
    00665 0 07400 4 01066 421PUNN1 TSXCHECKA,4
␣PUNN2 = 448
  1. Definition
    00700 0 07400 4 01066 432PUNN2 TSXCHECKA,4
␣PUNN3 = 459
  1. Definition
    00713 0 07400 4 01066 443PUNN3 TSXCHECKA,4
␣RDAAB = 52
  1. Definition
    00064 0 10000 0 00135 36RDAAB TZESIZ TZE IDNTFY REPLACES THIS AFTER SIZ TABLES READ
  2. Reference
    00151 0 62100 0 00064 89STARDAAB
␣RDREC = 42
  1. Definition
    00052 0 53400 1 01152 26RDREC LXAIR4,1
  2. References (14)
    00075 0 02000 0 00052 45TRARDREC
    00115 0 02000 0 00052 61TRARDREC
    00123 0 02000 0 00052 67TRARDREC
    00154 0 02000 0 00052 92TRARDREC
    00155−3 00000 1 00052 93SUBARG TXLRDREC,1,0 INITIALIZATION OF END ENTRIES TEST
    00166 0 02000 0 00052 102TRARDREC
    00201 0 02000 0 00052 113TRARDREC
    00202−3 00000 1 00052 114TEIFNO TXLRDREC,1,0 INITIALIZE END OF ENTRIES TEST
    00217 0 02000 0 00052 127TRARDREC
    00231 0 02000 0 00052 137TRARDREC
    00601 0 02000 0 00052 369TRARDREC
    00726 0 02000 0 00052 454TRARDREC
    00732−3 00002 1 00052 458FRET TXLRDREC,1,2 GO THRO THIS TABLE FROM LAST TO FIRST
    00764 0 02000 0 00052 484TRARDREC
␣RDSXD = 59
  1. Definition
    00073−0 63400 4 01201 43RDSXD SXDBST,4
  2. Reference
    00072 1 00001 4 00073 42 TRY TXIRDSXD,4,1
␣RETNA = 579
  1. Definition
    01103−0 53400 4 01152 578RETNA LXDIR4,4
  2. Reference
    01112 0 02000 0 01103 585TRARETNA
␣RETNB = 599
  1. Definition
    01127−0 53400 4 01152 600RETNB LXDIR4,4
  2. Reference
    01122 0 02000 0 01127 595TRARETNB
␣SAVEA = 86
  1. Definition
    00126−0 63400 1 00133 70SAVEA SXDTXLA,1
  2. Reference
    00124 2 00002 1 00126 68FORSUB TIXSAVEA,1,2
␣SAVEB = 96
  1. Definition
    00140−0 63400 1 00145 80SAVEB SXDTXLB,1
  2. Reference
    00136 2 00002 1 00140 78TIXSAVEB,1,2 REDUCE WORD COUNT FOR END OF ENTRIES TEST
␣SAVEC = 112
  1. Definition
    00160−0 63400 1 00165 96SAVEC SXDTXLC,1
  2. Reference
    00156 2 00001 1 00160 94TIXSAVEC,1,1
␣SAVED = 122
  1. Definition
    00172−0 63400 1 00177 106SAVED SXDTXLD,1
  2. Reference
    00170 2 00001 1 00172 104TIXSAVED,1,1
␣SAVEE = 133
  1. Definition
    00205−0 63400 1 00214 117SAVEE SXDTXLE,1
  2. Reference
    00203 2 00001 1 00205 115TIXSAVEE,1,1
␣SAVEF = 147
  1. Definition
    00223−0 63400 1 00310 131SAVEF SXDTXLF,1
  2. Reference
    00221 2 00002 1 00223 129TIXSAVEF,1,2
␣SAVEH = 177
  1. Definition
    00261−0 63400 2 01055 161SAVEH SXDTXLH,2 SET END OF ENTRIES TEST
  2. Reference
    00257 2 00001 2 00261 159SAVXNB TIXSAVEH,2,1 SET END OF ENTRIES TEST
␣SAVES = 391
  1. Definition
    00607−0 63400 1 00722 375SAVES SXDTXLS,1
  2. Reference
    00605 2 00005 1 00607 373TIXSAVES,1,5 INITIALIZE END OF ENTRIES TEST
␣SETRD = 102
  1. Definition
    00146 0 76200 0 00222 86SETRD RTB2 SPACE OVER GAP AT END OF 4TH FILE
  2. Reference
    00135−3 00000 1 00146 77SIZ TXLSETRD,1,0 IF NO ENTRIES, GET NEXT TAPE RECORDS
␣STBET = 605
  1. Definition
    01135−0 63400 4 00572 609STBET SXDBETANB,4
  2. Reference
    01134 1 77777 4 01135 608TXISTBET,4,−1
␣STOPS = 350
  1. Definition
    00536 0 76200 0 00223 334STOPS RTB3
  2. Reference
    00311 0 02000 0 00536 185TRASTOPS WHEN TIFGO FINISHED, READ IN STOPS
␣SYMBL = 665
  1. Definition
    01231 0 00006 0 00013 669 SYMBL HTR11,0,6
  2. References (3)
    01072−0 53400 1 01231 569LXDSYMBL,1 6 INTO IR1
    01073 0 53400 2 01231 570NXTNAM LXASYMBL,2 10 INTO IR2
    01076 0 34000 2 01231 573ACAS CASSYMBL,2
␣TABLE = 32667
  1. Definition
    77633 3TABLE SYNERLIST−100
  2. References (22)
    00043 0 70000 1 77634 19 CP CPYTABLE+1,1
    00056 0 70000 1 77633 30 COPY CPYTABLE,1 ALTERNATE FOR READING TRAD CPY TRAD,2
    00130 0 56000 1 77633 72LDQA LDQTABLE,1
    00142 0 56000 1 77633 82LDQB LDQTABLE,1
    00162 0 56000 1 77633 98LDQC LDQTABLE,1
    00174 0 56000 1 77633 108LDQD LDQTABLE,1
    00207 0 50000 1 77633 119CLAE CLATABLE,1 MINUS ENTRY MEANS BETA IS
    00211 0 56000 1 77633 121LDQTABLE,1
    00611 0 50000 1 77633 377CLADO CLATABLE,1
    00615 0 50000 1 77633 381CLATABLE,1 SAVE ALPHA IN CASE OF ERROR
    00620 0 50000 1 77633 384CLATABLE,1
    00652 0 56000 1 77632 410DOSYMB LDQTABLE−1,1 DOES SYMBOL CONTAIN ANY ILLEGAL
    00664 0 56000 1 77631 420LDQTABLE−2,1 YES
    00677 0 56000 1 77630 431LDQTABLE−3,1
    00712 0 56000 1 77627 442LDQTABLE−4,1
    00734 0 50000 1 77634 460CLAT CLATABLE+1,1
    00765 0 50000 0 77633 485EQUIV CLATABLE FIRST WORD IN TABLE WILL BE 35 ONES
    00771 0 50000 1 77632 489NXTEQV CLATABLE−1,1
    00774 0 56000 1 77632 492LDQTABLE−1,1
    01143 0 50000 1 77633 615CLATABLE,1
    01145 0 50000 1 77632 617CLATABLE−1,1
    01163 0 70000 1 77633 631ADTABL CPYTABLE,1
␣TCLAT = 486
  1. Definition
    00746 0 50000 4 75433 470TCLAT CLAALPHA,4
  2. Reference
    00754−3 00000 4 00746 476FRETST TXLTCLAT,4,0 SET AT END OF READING IN STOP TABLE
␣TIF6B = 348
  1. Definition
    00534 0 07400 4 01022 332TIF6B TSXNOBETA,4
␣TIFGO = 144
  1. Definition
    00220−3 00000 1 01260 128TIFGO TXLPATIF,1,0 IF NO ENTRIES, IGNORE TRAD IDENTIFICATION
  2. Reference
    01242 0 00000 0 00220 678HTRTIFGO
␣TIFMI = 202
  1. Definition
    00312−0 32000 0 01157 186TIFMI ANAADDMSK
  2. Reference
    00267−0 12000 0 00312 167TMITIFMI
␣TIFOB = 234
  1. Definition
    00352 0 07400 4 01047 218TIFOB TSXISNONX,4
  2. Reference
    00347−0 10000 0 00352 215TNZTIFOB
␣TNEXT = 479
  1. Definition
    00737 2 00001 1 00734 463TNEXT TIXCLAT,1,1 WILL NOT FAIL BEFORE THE TMI
  2. Reference
    00736 1 00001 2 00737 462TXITNEXT,2,1
␣TRADT = 31517
  1. Definition
    75435 4 TRADT SYNERLIST−1250
  2. References (5)
    00370 0 50000 2 76027 232MORTR CLATRADT+250,2
    00377 0 62200 2 76027 239STDTRADT+250,2 BUT KEEP TRACK OF NUMBER OF BRANCHES GIVEN
    00415 0 50000 2 76027 253MORTRD CLATRADT+250,2
    00424 0 62200 2 76027 260STDTRADT+250,2
    01165 0 70000 4 75435 633ADTRAD CPYTRADT,4
␣UPPER = 119
  1. Definition
    00167−3 00000 1 00200 103UPPER TXLUPPRTB,1,0 INITIALIZE END OF ENTRIES TEST
  2. Reference
    01236 0 00000 0 00167 674HTRUPPER
␣WRONG = 583
  1. Definition
    01107 0 56000 0 01176 582WRONG LDQNAME
  2. Reference
    01100 0 02000 0 01107 575TRAWRONG
␣XERAS = 640
  1. Definition
    01200 0 00000 0 00000 644XERAS
ADDMSK = 623
  1. Definition
    01157+000000077777 627ADDMSK OCT000000077777
  2. References (16)
    00312−0 32000 0 01157 186TIFMI ANAADDMSK
    00323−0 32000 0 01157 195ANAADDMSK
    00333−0 32000 0 01157 203ANAADDMSK
    00346−0 32000 0 01157 214ANAADDMSK
    00437−0 32000 0 01157 271ANAADDMSK
    00447−0 32000 0 01157 279ANAADDMSK
    00463−0 32000 0 01157 291ANAADDMSK
    00473−0 32000 0 01157 299ANAADDMSK
    00507−0 32000 0 01157 311ANAADDMSK
    00517−0 32000 0 01157 319ANAADDMSK
    00532−0 32000 0 01157 330ANAADDMSK
    00621−0 32000 0 01157 385ANAADDMSK
    00630−0 32000 0 01157 392ANAADDMSK MASK OUT NUMBER OF BRANCHES
    00644−0 32000 0 01157 404ANAADDMSK CLEAR ANY HASH LEFT FROM ERROR RECODING
    00741−0 32000 0 01157 465ANAADDMSK
    00747−0 32000 0 01157 471ANAADDMSK
ADDONE = 619
  1. Definition
    01153 0 00000 0 00001 623ADDONE HTR1
  2. References (2)
    00645 0 40000 0 01153 405ADDADDONE
    01272 0 40000 0 01153 702ADDADDONE
ADTABL = 627
  1. Definition
    01163 0 70000 1 77633 631ADTABL CPYTABLE,1
  2. References (2)
    00232 0 50000 0 01163 138TRAD CLAADTABL RESTORE COPY LOOP
    01260 0 50000 0 01163 692 PATIF CLAADTABL
ADTIFG = 628
  1. Definition
    01164 0 00000 0 75433 632ADTIFG HTRTIFGOT
  2. Reference
    00215 0 50000 0 01164 125CLAADTIFG
ADTRAD = 629
  1. Definition
    01165 0 70000 4 75435 633ADTRAD CPYTRADT,4
  2. Reference
    00224 0 50000 0 01165 132CLAADTRAD SET READ LOOP TO READ TRAD
AFTRSZ = 666
  1. Definition
    01232 0 00000 0 00076 670AFTRSZ HTRIDNTFY
  2. Reference
    00150 0 50000 0 01232 88CLAAFTRSZ
ALAND1 = 386
  1. Definition
    00602 0 50000 0 01170 370ALAND1 CLAALFA
  2. Reference
    00575−0 12000 0 00602 365TMIALAND1 TABLE FOR ALPHA +2 ETC
ALFAD1 = 226
  1. Definition
    00342 0 50000 0 01156 210ALFAD1 CLADECTRE
  2. References (2)
    00336 0 02000 0 00342 206TRAALFAD1
    00340−0 12000 0 00342 208TMIALFAD1
ALFANB = 413
  1. Definition
    00635−3 00000 2 00627 397ALFANB TXLSCLA,2,0
  2. References (5)
    00302−0 53400 4 00635 178NXTIFG LXDALFANB,4 STORE ALPHA IN TABLE
    00306−0 63400 4 00635 182FSAVE SXDALFANB,4
    00537−0 53400 1 00635 335LXDALFANB,1 LOAD NUMBER ALREADY IN ALPHA TABLE
    00553−0 63400 1 00635 347SXDALFANB,1
    00634 1 00001 2 00635 396TIXS TXIALFANB,2,1
B1TIF3 = 289
  1. Definition
    00441 0 07400 4 01022 273B1TIF3 TSXNOBETA,4
B1TIF4 = 309
  1. Definition
    00465 0 07400 4 01022 293B1TIF4 TSXNOBETA,4
B1TIF5 = 329
  1. Definition
    00511 0 07400 4 01022 313B1TIF5 TSXNOBETA,4
B2TIF3 = 297
  1. Definition
    00451 0 07400 4 01022 281B2TIF3 TSXNOBETA,4
B2TIF4 = 317
  1. Definition
    00475 0 07400 4 01022 301B2TIF4 TSXNOBETA,4
B2TIF5 = 337
  1. Definition
    00521 0 07400 4 01022 321B2TIF5 TSXNOBETA,4
BETANB = 378
  1. Definition
    00572 3 00000 2 00565 362BETANB TXHNXTBTA,2,0
  2. References (5)
    00237−0 63400 4 00572 143SXDG SXDBETANB,4 SAVE NUMBER OF ENTRIES IN BETA TABLE
    00571 1 77777 2 00572 361NEXTQ TXIBETANB,2,−1
    01132−0 53400 4 00572 606LXDBETANB,4
    01135−0 63400 4 00572 609STBET SXDBETANB,4
    01136−0 63400 4 00572 610SXDBETANB,4
BINTIF = 405
  1. Definition
    00625 0 53400 2 01152 389BINTIF LXAIR4,2 IS BETA IN DO TABLE A CONDITIONAL
  2. Reference
    00622−0 10000 0 00625 386TNZBINTIF
BRANCH = 485
  1. Definition
    00745 0 53400 4 01152 469BRANCH LXAIR4,4
  2. Reference
    00743−0 10000 0 00745 467TNZBRANCH FORTRAN IF NO CORRESPONDING BETA IN
BTIFG1 = 250
  1. Definition
    00372 0 07400 4 01022 234BTIFG1 TSXNOBETA,4
BTIFG2 = 271
  1. Definition
    00417 0 07400 4 01022 255BTIFG2 TSXNOBETA,4
CHATSX = 584
  1. Definition
    01110 0 07400 4 01033 583CHATSX TSXERROR,4
CHBTSX = 597
  1. Definition
    01125 0 07400 4 01033 598CHBTSX TSXERROR,4
CHECKA = 566
  1. Definition
    562ENTER WITH HASH IN AC MQ HAS BCD SYMBOL. EXIT WITH HASH IN
    563AC AMD MQ, SYMBOL IS STORED IN NAME. DC IS MINUS ONLY WHEN
    564ILLEGAL CHARACTER PRESENT
    01066−0 60000 0 01176 565CHECKA STQNAME
  2. References (8)
    00131 0 07400 4 01066 73TSXA TSXCHECKA,4
    00143 0 07400 4 01066 83TSXB TSXCHECKA,4
    00163 0 07400 4 01066 99TSXC TSXCHECKA,4
    00175 0 07400 4 01066 109TSXD TSXCHECKA,4
    00653 0 07400 4 01066 411PUNSYM TSXCHECKA,4 PUNCTUATION
    00665 0 07400 4 01066 421PUNN1 TSXCHECKA,4
    00700 0 07400 4 01066 432PUNN2 TSXCHECKA,4
    00713 0 07400 4 01066 443PUNN3 TSXCHECKA,4
CHECKB = 587
  1. Definition
    586ENTER WITH HASH IN AC + MQ, EXIT SAME EXCEPT WHERE NO MATCH
    587THEN MINUS
    01113 0 56000 0 01176 588CHECKB LDQNAME
  2. References (4)
    00656 0 07400 4 01113 414IJKSYM TSXCHECKB,4 DOES SYMBOL BEGIN WITH IJKLM OR N
    00670 0 07400 4 01113 424IJKN1 TSXCHECKB,4
    00703 0 07400 4 01113 435IJKN2 TSXCHECKB,4
    00716 0 07400 4 01113 446IJKN3 TSXCHECKB,4
CHNONX = 631
  1. Definition
    01167 0 00000 0 01063 635CHNONX HTRINFORM
  2. Reference
    00555 0 50000 0 01167 349CLACHNONX RESET ISNONX ROUTINE SO IT IS
CONBET = 471
  1. Definition
    00727 0 07400 4 01022 455CONBET TSXNOBETA,4
  2. Reference
    00633 0 02000 0 00727 395TRACONBET THIS IS AN ERROR
COPYAA = 48
  1. Definition
    00060 1 77777 4 00056 32COPYAA TXICOPY,4,−1
  2. References (2)
    00234 0 50000 0 00060 140CLACOPYAA
    01166 0 00000 0 00060 634CPTRAD HTRCOPYAA
CPSTOP = 352
  1. Definition
    00540 0 70000 0 00000 336CPSTOP CPY0 READ TABLE OF STOPS INTO REST OF
  2. Reference
    00547 1 00001 1 00540 343TXICPSTOP,1,1
CPTRAD = 630
  1. Definition
    01166 0 00000 0 00060 634CPTRAD HTRCOPYAA
  2. Reference
    00226 0 50000 0 01166 134CLACPTRAD KEEP TRACK OF WORD COUNT
DECMSK = 625
  1. Definition
    01161+077777000000 629DECMSK OCT077777000000
  2. Reference
    00757−0 32000 0 01161 479ANADECMSK LOUSE UP THE OBJECT PROGRAM IS WHEN
DECONE = 620
  1. Definition
    01154 0 00001 0 00000 624DECONE HTR0,0,1
  2. References (5)
    00360 0 50000 0 01154 224CLADECONE
    00376 0 50000 0 01154 238CLADECONE BY PUTING NUMBER IN DECFIELD
    00401 0 40000 0 01154 241ADDDECONE
    00423 0 50000 0 01154 259CLADECONE
    00426 0 40000 0 01154 262ADDDECONE
DECTRE = 622
  1. Definition
    01156 0 00003 0 00000 626DECTRE HTR0,0,3
  2. Reference
    00342 0 50000 0 01156 210ALFAD1 CLADECTRE
DECTWO = 621
  1. Definition
    01155 0 00002 0 00000 625DECTWO HTR0,0,2
  2. References (3)
    00456 0 50000 0 01155 286ADDL CLADECTWO
    00502 0 50000 0 01155 306ADDM CLADECTWO
    00526 0 50000 0 01155 326ADDN CLADECTWO
DIAGND = 511
  1. Definition
    00777 0 50000 0 01173 495DIAGND CLAERNBR
  2. References (4)
    00071 0 02000 0 00777 41TRADIAGND
    00111 0 02000 0 00777 57TRADIAGND
    00767−0 10000 0 00777 487TNZDIAGND
    00773 0 10000 0 00777 491TZEDIAGND ANOTHER WORD OF ONES
DIAGRD = 517
  1. Definition
    01005 0 76200 0 00201 501DIAGRD RTD1 SPACE OVER REST OF SYSTEM IN FORTRAN
  2. References (2)
    01007 0 02000 0 01005 503TRADIAGRD
    01011−3 00001 2 01005 505TST2FL TXLDIAGRD,2,1
DOALNX = 424
  1. Definition
    00650 0 07400 4 01022 408DOALNX TSXNOBETA,4
DOBETA = 644
  1. Definition
    01204 0 00000 0 00000 648DOBETA
  2. References (3)
    00626 0 60100 0 01204 390STODOBETA TRANSFER, THAT IS, IS IT IN ALPHA TABLE
    00631 0 34000 0 01204 393CASDOBETA
    00636 0 50000 0 01204 398CLADOBETA
DOBTNX = 417
  1. Definition
    00641 0 07400 4 01022 401DOBTNX TSXNOBETA,4
DONOBT = 403
  1. Definition
    00623 0 07400 4 01022 387DONOBT TSXNOBETA,4
DOSYMB = 426
  1. Definition
    00652 0 56000 1 77632 410DOSYMB LDQTABLE−1,1 DOES SYMBOL CONTAIN ANY ILLEGAL
  2. Reference
    00647 0 12000 0 00652 407TPLDOSYMB THIS IS ERROR
ENDALF = 384
  1. Definition
    00600−3 00000 1 00560 368ENDALF TXLCLAQ,1,0
  2. References (2)
    00552−0 63400 1 00600 346NEXTP SXDENDALF,1
    00577 1 00001 1 00600 367NXTALF TXIENDALF,1,1
ERLIST = 32767
  1. Definition
    77777 2ERLIST SYN32767
  2. References (12)
    77633 3TABLE SYNERLIST−100
    75435 4 TRADT SYNERLIST−1250
    75434 5 BETA SYNERLIST−1251
    75433 6TIFGOT SYNERLIST−1252
    75433 7ALPHA SYNERLIST−1252
    74303 8NONEXT SYNERLIST−1852
    01031 0 60100 4 77777 525STOERLIST,4
    01036 0 62200 4 77777 535STDERLIST,4
    01041 0 62100 4 77777 538STAERLIST,4
    01042−0 60000 4 77776 539STQERLIST−1,4 PUT MQ IN 2ND WORD
    01144 0 60100 4 77777 616STOERLIST,4
    01146 0 60100 4 77776 618STOERLIST−1,4
FORSUB = 84
  1. Definition
    00124 2 00002 1 00126 68FORSUB TIXSAVEA,1,2
  2. Reference
    00046 2 00001 1 00124 22TIXFORSUB,1,1 DROP COUNT OF 2ND FILE
FRETIF = 498
  1. Definition
    00762 0 07400 4 01022 482FRETIF TSXNOBETA,4
FRETNB = 646
  1. Definition
    01206 0 00000 0 00000 650FRETNB
  2. References (2)
    00740−0 63400 2 01206 464NEWFRT SXDFRETNB,2 SAVE NUMBER OF FREQUENCIES
    00760 0 40200 0 01206 480SUBFRETNB THERE ARE MORE FREQUENCIES GIVEN THAN
FRETST = 492
  1. Definition
    00754−3 00000 4 00746 476FRETST TXLTCLAT,4,0 SET AT END OF READING IN STOP TABLE
  2. References (2)
    00554−0 63400 1 00754 348SXDFRETST,1
    00753 1 00001 4 00754 475TIXT TXIFRETST,4,1
HAVALF = 494
  1. Definition
    00756 0 50000 4 75433 478HAVALF CLAALPHA,4 THE ONLY TIME A FREQUENCY STATEMENT CAN
  2. Reference
    00752 0 02000 0 00756 474TRAHAVALF
IDNSXD = 75
  1. Definition
    00113−0 63400 4 01202 59IDNSXD SXDBSTA,4
  2. Reference
    00112 1 00001 4 00113 58TRYA TXIIDNSXD,4,1
IDNTFY = 62
  1. Definition
    00076 0 60000 0 01201 46IDNTFY STZBST FORMAT SIZE AND ALL TAPE TABLES HAVE
  2. Reference
    01232 0 00000 0 00076 670AFTRSZ HTRIDNTFY
IJKSYM = 430
  1. Definition
    00656 0 07400 4 01113 414IJKSYM TSXCHECKB,4 DOES SYMBOL BEGIN WITH IJKLM OR N
  2. Reference
    00654 0 12000 0 00656 412TPLIJKSYM
INFORM = 563
  1. Definition
    01063−0 53400 4 01152 559INFORM LXDIR4,4
  2. Reference
    01167 0 00000 0 01063 635CHNONX HTRINFORM
ISNONX = 551
  1. Definition
    544ENTER WITH AC ALL ZERO, EXCEPT ADDRESS WHICH HAS BETA
    545FROM TIFGO OR TDO, OR ALPHA+1 FROM SAME. EXIT SAME, EXCEPT
    546WHERE MATCH IS FOUND, THEN AC HAS HASH
    01047−0 63400 4 01152 547ISNONX SXDIR4,4 ERROR WILL RECORD WHICH TABLE WAS SCANNED
  2. References (15)
    00316 0 07400 4 01047 190SAVEB1 TSXISNONX,4 IF BETA IS NOT EXECUTABLE, DO NOT PUT IN
    00327 0 07400 4 01047 199SAVEB2 TSXISNONX,4
    00337 0 07400 4 01047 207SAVEB3 TSXISNONX,4
    00352 0 07400 4 01047 218TIFOB TSXISNONX,4
    00374 0 07400 4 01047 236TRADX1 TSXISNONX,4 IF TRAD IS NON EXECUTABLE, MAKE ENTRY
    00421 0 07400 4 01047 257TRADX2 TSXISNONX,4
    00443 0 07400 4 01047 275TIF3B1 TSXISNONX,4
    00453 0 07400 4 01047 283TIF3B2 TSXISNONX,4
    00467 0 07400 4 01047 295TIF4B1 TSXISNONX,4
    00477 0 07400 4 01047 303TIF4B2 TSXISNONX,4
    00513 0 07400 4 01047 315TIF5B1 TSXISNONX,4
    00523 0 07400 4 01047 323TIF5B2 TSXISNONX,4
    00574 0 07400 4 01047 364TSXISNONX,4 IF ALPHA PLUS 1 IN NONX, THEN LOOK IN BETA
    00637 0 07400 4 01047 399TSXISNONX,4
    00646 0 07400 4 01047 406TSXISNONX,4 IF ALPHA PLUS 1 IS NON EXECUTABLE
MORBTS = 601
  1. Definition
    602ENTER WITH BETA FROM TIFGO ENTRIES WHICH ARE MINUS OR HAVE 0,
    6033,4,5 OR 6 IN ADDRESS OF 1ST WORD. TIFGO 1 AND 2 ARE ALREADY
    604IN BETA TABLE. EXIT WITH SAME.
    01131−0 63400 4 01177 605MORBTS SXDERAS,4
  2. References (10)
    00320 0 07400 4 01131 192TSXMORBTS,4
    00331 0 07400 4 01131 201TSXMORBTS,4
    00341 0 07400 4 01131 209TSXMORBTS,4
    00354 0 07400 4 01131 220TSXMORBTS,4
    00445 0 07400 4 01131 277TSXMORBTS,4
    00455 0 07400 4 01131 285TSXMORBTS,4
    00471 0 07400 4 01131 297TSXMORBTS,4
    00501 0 07400 4 01131 305TSXMORBTS,4
    00515 0 07400 4 01131 317TSXMORBTS,4
    00525 0 07400 4 01131 325TSXMORBTS,4
MORTRD = 269
  1. Definition
    00415 0 50000 2 76027 253MORTRD CLATRADT+250,2
  2. Reference
    00431 3 00000 2 00415 265TXHK TXHMORTRD,2,0
NEWFRT = 480
  1. Definition
    00740−0 63400 2 01206 464NEWFRT SXDFRETNB,2 SAVE NUMBER OF FREQUENCIES
  2. Reference
    00735−0 12000 0 00740 461TMINEWFRT
NOBETA = 530
  1. Definition
    514ENTER WITH AC ZERO. EXIT WITH TSX FROM TABLE
    515WHICH HAS MISSING BETA, IN DEC OF AC AND
    516ALPHA IN ADDRESS OF AC.
    01022−0 63400 4 01170 517NOBETA SXDALFA,4
  2. References (19)
    00314 0 07400 4 01022 188MINB1 TSXNOBETA,4 CORRESPONDING TO IT IN COL 1 TO 5 OF
    00325 0 07400 4 01022 197MINB2 TSXNOBETA,4
    00335 0 07400 4 01022 205MINB3 TSXNOBETA,4
    00350 0 07400 4 01022 216TSXTFO TSXNOBETA,4
    00372 0 07400 4 01022 234BTIFG1 TSXNOBETA,4
    00417 0 07400 4 01022 255BTIFG2 TSXNOBETA,4
    00441 0 07400 4 01022 273B1TIF3 TSXNOBETA,4
    00451 0 07400 4 01022 281B2TIF3 TSXNOBETA,4
    00465 0 07400 4 01022 293B1TIF4 TSXNOBETA,4
    00475 0 07400 4 01022 301B2TIF4 TSXNOBETA,4
    00511 0 07400 4 01022 313B1TIF5 TSXNOBETA,4
    00521 0 07400 4 01022 321B2TIF5 TSXNOBETA,4
    00534 0 07400 4 01022 332TIF6B TSXNOBETA,4
    00576 0 07400 4 01022 366NOTRA TSXNOBETA,4 NOT EITHER TABLE, PART OF PROG NOT ENTERED
    00623 0 07400 4 01022 387DONOBT TSXNOBETA,4
    00641 0 07400 4 01022 401DOBTNX TSXNOBETA,4
    00650 0 07400 4 01022 408DOALNX TSXNOBETA,4
    00727 0 07400 4 01022 455CONBET TSXNOBETA,4
    00762 0 07400 4 01022 482FRETIF TSXNOBETA,4
NOIDEN = 72
  1. Definition
    00110 0 07400 4 01033 56NOIDEN TSXERROR,4
NONEXB = 559
  1. Definition
    01057 0 76700 0 00022 555NONEXB ALS18 ERROR, SAVE BETA AND ALPHA IN LIST
  2. Reference
    01053 0 02000 0 01057 551YESNOX TRANONEXB THIS WILL BE CHANGED TO BYPASS ERROR WHEN
NONEXT = 30915
  1. Definition
    74303 8NONEXT SYNERLIST−1852
  2. References (2)
    00255 0 60100 2 74303 157STONONEXT,2
    01051 0 34000 2 74303 549CASH CASNONEXT,2
NOTEQV = 509
  1. Definition
    00775 0 07400 4 01033 493NOTEQV TSXERROR,4
NOTIFG = 82
  1. Definition
    00122 0 76200 0 00222 66NOTIFG RTB2 IF NO TIFGO ENTRY, IGNORE TRAD ENTRY
  2. Reference
    01262 0 02000 0 00122 694TRANOTIFG
NXTALF = 383
  1. Definition
    00577 1 00001 1 00600 367NXTALF TXIENDALF,1,1
  2. References (2)
    00570 0 02000 0 00577 360TRANXTALF
    01271 0 10000 0 00577 701PAQADD TZENXTALF
NXTBTA = 373
  1. Definition
    00565 0 50000 2 75434 357NXTBTA CLABETA,2
  2. Reference
    00572 3 00000 2 00565 362BETANB TXHNXTBTA,2,0
NXTEQV = 505
  1. Definition
    00771 0 50000 1 77632 489NXTEQV CLATABLE−1,1
  2. Reference
    00776 1 00001 1 00771 494TXINXTEQV,1,1
NXTFRT = 499
  1. Definition
    00763 2 00001 1 00733 483NXTFRT TIXNEXTT,1,1
  2. References (3)
    00744 0 02000 0 00763 468TRANXTFRT COLUMN 1 TO 5 OF SOURCE PROGRAM
    00755 0 02000 0 00763 477TRANXTFRT
    00761 0 12000 0 00763 481TPLNXTFRT BRANCHES.
NXTIFG = 194
  1. Definition
    00302−0 53400 4 00635 178NXTIFG LXDALFANB,4 STORE ALPHA IN TABLE
  2. References (7)
    00344 0 02000 0 00302 212TRANXTIFG
    00362 0 02000 0 00302 226TRANXTIFG
    00407 0 02000 0 00302 247TRANXTIFG
    00434 0 02000 0 00302 268TRANXTIFG
    00460 0 02000 0 00302 288TRANXTIFG
    00504 0 02000 0 00302 308TRANXTIFG
    00530 0 02000 0 00302 328TRANXTIFG
NXTNAM = 571
  1. Definition
    01073 0 53400 2 01231 570NXTNAM LXASYMBL,2 10 INTO IR2
  2. Reference
    01102 2 00001 1 01073 577TIXNXTNAM,1,1 GET NEXT BCD CHARACTER FOR COMPARISON
PAQADD = 697
  1. Definition
    01271 0 10000 0 00577 701PAQADD TZENXTALF
  2. Reference
    00561 0 02000 0 01271 353QADD TRAPAQADD
PATERA = 705
  1. Definition
    01301 0 00000 0 00000 709PATERA
  2. References (2)
    01274−0 63400 2 01301 704PATS2 SXDPATERA,2
    01277−0 53400 2 01301 707PATRE2 LXDPATERA,2
PATRE2 = 703
  1. Definition
    01277−0 53400 2 01301 707PATRE2 LXDPATERA,2
  2. References (2)
    01056 0 02000 0 01277 554TRAPATRE2
    01065 0 02000 0 01277 561TRAPATRE2
PUNSYM = 427
  1. Definition
    00653 0 07400 4 01066 411PUNSYM TSXCHECKA,4 PUNCTUATION
RDFILE = 28
  1. Definition
    00034 0 76200 0 00202 12RDFILE RTD2 WILL READ ANY KIND OF END FILE MARK
  2. References (2)
    00036 0 02000 0 00034 14TRARDFILE
    00037 2 00001 4 00034 15TIXRDFILE,4,1 SPACE OVER 2 FILES AND OVER 1ST RECORD OF
RETIF6 = 199
  1. Definition
    00307 1 00002 1 00310 183RETIF6 TXITXLF,1,2 TYPE 6 TIFGO ENTRIES DO NOT GO IN
  2. References (3)
    00357 3 00000 4 00307 223TXHRETIF6,4,0
    00533−0 10000 0 00307 331TNZRETIF6
    00535 0 02000 0 00307 333TRARETIF6
SAVALF = 534
  1. Definition
    521ENTER WITH HASH IN AC. EXIT WITH CONTENTS OF ALPHA IN AC
    01026−0 63400 4 01177 522SAVALF SXDERAS,4
  2. Reference
    01023 0 07400 4 01026 518TSXSAVALF,4
SAVEB1 = 206
  1. Definition
    00316 0 07400 4 01047 190SAVEB1 TSXISNONX,4 IF BETA IS NOT EXECUTABLE, DO NOT PUT IN
  2. Reference
    00313−0 10000 0 00316 187TNZSAVEB1 IF BETA IS ZERO, THERE WAS NO ENTRY
SAVEB2 = 215
  1. Definition
    00327 0 07400 4 01047 199SAVEB2 TSXISNONX,4
  2. Reference
    00324−0 10000 0 00327 196TNZSAVEB2
SAVEB3 = 223
  1. Definition
    00337 0 07400 4 01047 207SAVEB3 TSXISNONX,4
  2. Reference
    00334−0 10000 0 00337 204TNZSAVEB3
SAVXNB = 175
  1. Definition
    00257 2 00001 2 00261 159SAVXNB TIXSAVEH,2,1 SET END OF ENTRIES TEST
  2. Reference
    00252 0 02000 0 00257 154TRASAVXNB
SPACE2 = 691
  1. Definition
    01263 0 76200 0 00222 695SPACE2 RTB2
  2. Reference
    01000 0 10000 0 01263 496TZESPACE2 IF NO ERROR, READ IN SECTION II
SPACES = 467
  1. Definition
    00723 0 76200 0 00222 451SPACES RTB2 SPACE OVER FORVAL
  2. Reference
    00604−3 00000 1 00723 372TDO TXLSPACES,1,0
STOBET = 603
  1. Definition
    01133 0 60100 4 75434 607STOBET STOBETA,4
SUBARG = 109
  1. Definition
    00155−3 00000 1 00052 93SUBARG TXLRDREC,1,0 INITIALIZATION OF END ENTRIES TEST
  2. Reference
    01234 0 00000 0 00155 672HTRSUBARG
SUBWDS = 51
  1. Definition
    00063 0 40200 0 01175 35SUBWDS SUBWDCONT
  2. Reference
    01257 0 02000 0 00063 691TRASUBWDS
TAGMSK = 624
  1. Definition
    01160+000000700000 628TAGMSK OCT000000700000
  2. Reference
    00612−0 32000 0 01160 378ANATAGMSK SAVE TAG FIELD FOR PROCESSING N1,N2,N3
TAPTAB = 683
  1. Definition
    01253 0 00000 0 00020 687TAPTAB HTR16
  2. References (3)
    00077 0 53400 2 01253 47LXATAPTAB,2 IDENTIFICATION WORD AS FIRST WORD OF
    00101 0 34000 2 01253 49 CAS CASTAPTAB,2 COUNT
    00117 0 50000 2 01254 63CLATAPTAB+1,2
TEIFNO = 130
  1. Definition
    00202−3 00000 1 00052 114TEIFNO TXLRDREC,1,0 INITIALIZE END OF ENTRIES TEST
  2. Reference
    01240 0 00000 0 00202 676HTRTEIFNO
TIF3B1 = 291
  1. Definition
    00443 0 07400 4 01047 275TIF3B1 TSXISNONX,4
  2. Reference
    00440−0 10000 0 00443 272TNZTIF3B1
TIF3B2 = 299
  1. Definition
    00453 0 07400 4 01047 283TIF3B2 TSXISNONX,4
  2. Reference
    00450−0 10000 0 00453 280TNZTIF3B2
TIF4B1 = 311
  1. Definition
    00467 0 07400 4 01047 295TIF4B1 TSXISNONX,4
  2. Reference
    00464−0 10000 0 00467 292TNZTIF4B1
TIF4B2 = 319
  1. Definition
    00477 0 07400 4 01047 303TIF4B2 TSXISNONX,4
  2. Reference
    00474−0 10000 0 00477 300TNZTIF4B2
TIF5B1 = 331
  1. Definition
    00513 0 07400 4 01047 315TIF5B1 TSXISNONX,4
  2. Reference
    00510−0 10000 0 00513 312TNZTIF5B1
TIF5B2 = 339
  1. Definition
    00523 0 07400 4 01047 323TIF5B2 TSXISNONX,4
  2. Reference
    00520−0 10000 0 00523 320TNZTIF5B2
TIFGO1 = 243
  1. Definition
    00363 0 60000 0 01172 227TIFGO1 STZTRADNB
  2. Reference
    00272−3 00001 2 00363 170TXLTIFGO1,2,1
TIFGO2 = 264
  1. Definition
    00410 0 60000 0 01172 248TIFGO2 STZTRADNB
  2. Reference
    00273−3 00002 2 00410 171TXLTIFGO2,2,2
TIFGO3 = 285
  1. Definition
    00435 0 50000 1 75432 269TIFGO3 CLATIFGOT−1,1
  2. Reference
    00274−3 00003 2 00435 172TXLTIFGO3,2,3
TIFGO4 = 305
  1. Definition
    00461 0 50000 1 75432 289TIFGO4 CLATIFGOT−1,1
  2. Reference
    00275−3 00004 2 00461 173TXLTIFGO4,2,4
TIFGO5 = 325
  1. Definition
    00505 0 50000 1 75432 309TIFGO5 CLATIFGOT−1,1
  2. Reference
    00276−3 00005 2 00505 174TXLTIFGO5,2,5
TIFGO6 = 345
  1. Definition
    00531 0 50000 1 75432 329TIFGO6 CLATIFGOT−1,1
  2. Reference
    00277−3 00006 2 00531 175TXLTIFGO6,2,6
TIFGOT = 31515
  1. Definition
    75433 6TIFGOT SYNERLIST−1252
  2. References (17)
    00263 0 50000 1 75433 163CLAF CLATIFGOT,1 SAVE ALPHA IN CASE OF ERROR, AND
    00266 0 50000 1 75433 166CLATIFGOT,1 DETERMINE KIND OF ENTRY
    00300 0 56000 1 75433 176LDQTIFGOT,1 NOT IDENTIFYABLE, SAVE IN ERROR
    00321 0 50000 1 75432 193NOWB2 CLATIFGOT−1,1
    00332 0 50000 1 75432 202NOWB3 CLATIFGOT−1,1
    00345 0 50000 1 75432 213TIFZRO CLATIFGOT−1,1
    00355 0 50000 1 75432 221NEXTI CLATIFGOT−1,1 DO NOT PUT IN ALPHA TABLE IF
    00364 0 50000 1 75432 228CLAJ CLATIFGOT−1,1 PREPARE TO READ RELATED TRAD ENTRIES
    00411 0 50000 1 75432 249CLAK CLATIFGOT−1,1
    00435 0 50000 1 75432 269TIFGO3 CLATIFGOT−1,1
    00446 0 50000 1 75433 278NEXTL CLATIFGOT−1*,1
    00461 0 50000 1 75432 289TIFGO4 CLATIFGOT−1,1
    00472 0 50000 1 75432 298NEXTM CLATIFGOT−1,1
    00505 0 50000 1 75432 309TIFGO5 CLATIFGOT−1,1
    00516 0 50000 1 75432 318NEXTN CLATIFGOT−1,1
    00531 0 50000 1 75432 329TIFGO6 CLATIFGOT−1,1
    01164 0 00000 0 75433 632ADTIFG HTRTIFGOT
TIFZRO = 229
  1. Definition
    00345 0 50000 1 75432 213TIFZRO CLATIFGOT−1,1
  2. Reference
    00271−3 00000 2 00345 169TXLTIFZRO,2,0
TRADNB = 634
  1. Definition
    01172 0 00000 0 00000 638TRADNB
  2. References (8)
    00363 0 60000 0 01172 227TIFGO1 STZTRADNB
    00400 0 50000 0 01172 240ADDJ CLATRADNB
    00402 0 60100 0 01172 242STOTRADNB
    00405 0 50000 0 01172 245CLATRADNB
    00410 0 60000 0 01172 248TIFGO2 STZTRADNB
    00425 0 50000 0 01172 261ADDK CLATRADNB
    00427 0 60100 0 01172 263STOTRADNB
    00432 0 50000 0 01172 266CLATRADNB
TRADX1 = 252
  1. Definition
    00374 0 07400 4 01047 236TRADX1 TSXISNONX,4 IF TRAD IS NON EXECUTABLE, MAKE ENTRY
  2. Reference
    00371−0 10000 0 00374 233TNZTRADX1
TRADX2 = 273
  1. Definition
    00421 0 07400 4 01047 257TRADX2 TSXISNONX,4
  2. Reference
    00416−0 10000 0 00421 254TNZTRADX2
TST2FL = 521
  1. Definition
    01011−3 00001 2 01005 505TST2FL TXLDIAGRD,2,1
  2. Reference
    01010 1 00001 2 01011 504TXITST2FL,2,1
TSXTFO = 232
  1. Definition
    00350 0 07400 4 01022 216TSXTFO TSXNOBETA,4
UPPRTB = 128
  1. Definition
    00200 0 76200 0 00222 112UPPRTB RTB2 NO SCAN OF HOLARG RECORD
  2. Reference
    00167−3 00000 1 00200 103UPPER TXLUPPRTB,1,0 INITIALIZE END OF ENTRIES TEST
WDCONT = 637
  1. Definition
    01175 0 00000 0 00000 641WDCONT
  2. References (2)
    00055 0 70000 0 01175 29CPYWDCONT
    00063 0 40200 0 01175 35SUBWDS SUBWDCONT
WHATIF = 193
  1. Definition
    00301 0 07400 4 01033 177WHATIF TSXERROR,4 TABLE, BUT PUT ALPHA IN TABLE ANYWAY
YESNOX = 555
  1. Definition
    01053 0 02000 0 01057 551YESNOX TRANONEXB THIS WILL BE CHANGED TO BYPASS ERROR WHEN
  2. Reference
    00556 0 62100 0 01053 350STAYESNOX MERELY INFORMATIVE AND DOES NOT