␣␣␣␣␣A = 2708
  1. Definition
    05224 996A BSS1 F2509970
  2. References (11)
    03722 0 62200 0 05224 221STDA SAVE A F2502150
    04056 0 60100 0 05224 322STOA ALL CALLS REQUIRED FOR F2503170
    04111−0 63400 2 05224 349SXDA,2 F2503440
    04122 0 34000 0 05224 358CASA F2503530
    04125 0 50000 0 05224 361DOGS45 CLAA T-A STORE B IN TRBBOX F2503560
    04170 0 50000 0 05224 403FIND20 CLAA COMPARE DOTAGA WITH F2503980
    04525 0 34000 0 05224 662CASA WE FIND AN ADTAG F2506580
    06037 0 50000 0 05224 1397CLAA ALPHA PLUS ONE IS F2513980
    06050 0 50000 0 05224 1406CLAA ALPHA PLUS ONE IS F2514070
    05374 0 50000 0 05224 1911CLAA ASSIGNED FOR 1ST LXD F2519110
    06262 0 50000 0 05224 2349CLAA THAT TRA INST F2523490
␣␣␣␣␣B = 2709
  1. Definition
    05225 997B BSS1 F2509980
  2. References (9)
    03724−0 63400 1 05225 223SXDB,1 CURRENT DO F2502170
    04057 0 60100 0 05225 323STOB COMPARISON FOR EACH DO F2503180
    04102−0 63400 2 05225 342SXDB,2 PUT A OF DO IN INDICATOR B F2503370
    04113−0 63400 2 05225 351SXDB,2 F2503460
    04114 0 50000 0 05225 352DOGS30 CLAB F2503470
    04127 0 50000 0 05225 363CLAB F2503580
    04154 0 50000 0 05225 388SCAN05 CLAB DOTAG A OF EACH TAGTAG F2503830
    04531 0 34000 0 05225 666ADTGS4 CASB F2506620
    05264 0 40000 0 05225 1839ADDB TXL LOCATION F2518390
␣␣␣␣␣C = 50
  1. Definition
    00062 0 53400 2 00146 50 C LXAL0,2 F2500510
␣␣␣␣A1 = 27
  1. Definition
    00033 0 76200 0 00222 26 A1 RDS146 F2500270
  2. Reference
    00060 0 02000 0 00033 48TRAA1 ROUTINE F2500490
␣␣␣␣A2 = 36
  1. Definition
    00044 0 76400 0 00222 35 A2 BST146 BACKSPACE T0 BEGINNING F2500360
  2. References (3)
    00042−3 00000 1 00044 33TXLA2,1,0 F2500340
    00043 1 00002 1 00044 34TXIA2,1,2 F2500350
    00045 2 00001 1 00044 36TIXA2,1,1 OF DOTAG RECORDS F2500370
␣␣␣␣A3 = 40
  1. Definition
    00050 0 76200 0 00224 39 A3 RDS148 F2500400
  2. References (2)
    00052 0 02000 0 00050 41TRAA3 F2500420
    00055 0 02000 0 00050 45TRAA3 E.O.R. F2500460
␣␣␣␣A4 = 49
  1. Definition
    00061 0 07400 4 00004 49 A4 TSXDIAG,4 TAPE 2 HAS GOTTEN AN ERROR CHECK 5 TIMES. F2500500
  2. Reference
    00056−2 00001 1 00061 46A3I TNXA4,1,1 READING F2500470
␣␣␣␣AC = 2734
  1. Definition
    05256−0 63400 4 06252 1833AC SXDAC248,4 STORE LINKAGE F2518330
  2. Reference
    M 05256 3109RTXAC SYNAC F2531090
␣␣␣␣AX = 2695
  1. Definition
    05207 983AX BSS1 F2509840
  2. References (21)
    05570−0 63400 1 05207 2035AC109 SXDAX,1 CHECK FOR F2520350
    05634−0 53400 1 05207 2071LXDAX,1 F2520710
    05661−0 53400 1 05207 2092LXDAX,1 COMPUTE G AND DETERMINE F2520920
    05704−0 53400 1 05207 2111AC150 LXDAX,1 F2521110
    05711−0 53400 2 05207 2116LXDAX,2 F2521160
    05722−0 53400 2 05207 2125LXDAX,2 F2521250
    05727−0 53400 2 05207 2130LXDAX,2 F2521300
    05743−0 53400 1 05207 2142AC160 LXDAX,1 F2521420
    05777−0 63400 1 05207 2170AC166 SXDAX,1 APP. TGTG AND F2521700
    06012−0 53400 1 05207 2181LXDAX,1 IS F2521810
    06060−0 53400 1 05207 2219AC190 LXDAX,1 IF ALL SUBS HAVE NOT BEEN F2522190
    06063−0 63400 1 05207 2222AC200 SXDAX,1 TXI PHASE, START TIX. F2522220
    06074−0 53400 1 05207 2231LXDAX,1 F2522310
    06104−0 53400 2 05207 2239LXDAX,2 AND COMPUTE F2522390
    06107−0 53400 1 05207 2242LXDAX,1 F2522420
    06116−0 53400 1 05207 2249AC228 LXDAX,1 G1 NOT = 1, F2522490
    06172−0 53400 1 05207 2293AC230 LXDAX,1 G=1, F2522930
    06235−0 53400 1 05207 2328 AC236 LXDAX,1 F2523280
    06275−0 53400 2 05207 2362LXDAX,2 F2523620
    06322−0 53400 2 05207 2383LXDAX,2 PUT AX POSITION IN F2523830
    06336−0 53400 1 05207 2400LXDAX,1 F2524000
␣␣␣␣B1 = 92
  1. Definition
    M00134 0 36100 1 07226 97B1 ACLRTXAC+1000,1 PROGRAM ON DRUM. F2500980
  2. Reference
    00135 2 00001 1 00134 98TIXB1,1,1 F2500990
␣␣␣␣B2 = 99
  1. Definition
    M00143 0 70000 1 07226 104B2 CPYRTXAC+1000,1 F2501050
  2. Reference
    00144 2 00001 1 00143 105TIXB2,1,1 F2501060
␣␣␣␣C1 = 58
  1. Definition
    00072 0 76200 0 00302 60 C1 RDS194 SELECT FIXCON DRUM. F2500610
  2. Reference
    00122 2 00001 1 00072 84 C6 TIXC1,1,1 DRUM 2 READING ERROR ROUTINE. F2500850
␣␣␣␣C2 = 68
  1. Definition
    00104 0 62200 0 04616 70C2 STDFC08+1 STORE WORD COUNT IN F2500710
  2. Reference
    00121 0 02000 0 00104 83TRAC2 F2500840
␣␣␣␣C4 = 76
  1. Definition
    00114 0 76600 0 00302 78 C4 WRS194 F2500790
  2. Reference
    00101 0 10000 0 00114 67TZEC4 NO ENTR1ES IN FIXCON F2500680
␣␣␣␣C6 = 82
  1. Definition
    00122 2 00001 1 00072 84 C6 TIXC1,1,1 DRUM 2 READING ERROR ROUTINE. F2500850
  2. Reference
    00077−0 10000 0 00122 65TNZC6 ERROR IN DRUM READING F2500660
␣␣␣␣L0 = 102
  1. Definition
    A00146 0 00000 0 00000 107 L0 HTR14 F2501070
  2. References (6)
    00062 0 53400 2 00146 50 C LXAL0,2 F2500510
    00115 0 70000 0 00146 79CPYL0 NO ENTRIES, WRITE F2500800
    00116 0 70000 0 00146 80CPYL0 ZEROS IN FIRST FOUR F2500810
    00117 0 70000 0 00146 81CPYL0 LOCATIONS OF DRUM 3 F2500820
    00120 0 70000 0 00146 82CPYL0 F2500830
    00132 0 50000 0 00146 95 BINIT CLAL0 F2500960
␣␣␣␣L1 = 86
  1. Definition
    00126 0 00000 0 00001 88 L1 HTR1 F2500890
  2. Reference
    00066 0 53400 2 00126 56LXAL1,2 F2500570
␣␣␣␣L2 = 87
  1. Definition
    00127 0 00000 0 00002 89 L2 HTR2 F2500900
  2. Reference
    00102 0 40200 0 00127 68SUBL2 F2500690
␣␣␣␣L3 = 88
  1. Definition
    00130 0 00000 0 00003 90 L3 HTR3 F2500910
␣␣␣␣L5 = 89
  1. Definition
    00131 0 00000 0 00005 91 L5 HTR5 F2500920
  2. References (3)
    00030 0 53400 1 00131 23AINIT LXAL5,1 INITIALIZE ERROR COUNTER, F2500240
    00071 0 53400 1 00131 59LXAL5,1 INITIALIZE ERROR COUNTER. F2500600
    00214 0 40200 0 00131 148SUBL5 THE FIRST READING OF THE TABLE. F2501430
␣␣␣␣PC = 3521
  1. Definition
    2631*************************************************************F2526310
    2632PC IS A SUBROUTINE CALLED BY AOR0, BOR0, ETC. T0 HAKE C0MPUTAF2526320
    2633TIONS AND T0 CALL C0MPILING ROUTINES FOR TXI DECREMENT INTIAF2526330
    2634LIZATION. F2526340
    06701−0 63400 4 06717 2635PC SXDPC04,4 F2526350
  2. References (4)
    06033 0 07400 4 06701 2198TSXPC,4 FOR BLOCK D SPECIAL. F2521980
    06450 0 07400 4 06701 2475TSXPC,4 F2524750
    06477 0 07400 4 06701 2499TSXPC,4 AND COMPILE BLKC INIT. F2524990
    06536 0 07400 4 06701 2531TSXPC,4 MAKE COMPUTATIONS AND COMPILE F2525310
␣␣␣␣S3 = 3316
  1. Definition
    D06364 3 00000 1 06354 1625S3 TXHSEARCH,1 TEST FOR END OF BLOCK, F2516260
  2. References (5)
    06324−0 63400 1 06364 1588PRES10 SXDS3,1 SEARCH ROUTINE. MASK IS F2515890
    06334−0 63400 1 06364 1596PRES30 SXDS3,1 F2515970
    06342−0 63400 1 06364 1602PRES50 SXDS3,1 F2516030
    06350−0 63400 1 06364 1608PRES70 SXDS3,1 F2516090
    06363 2 00001 1 06364 1624TIXS3,1,1 INDEX FOR NEXT ENTRY, F2516250
␣␣␣␣S8 = 3318
  1. Definition
    06366 0 50000 1 06450 1627S8 CLARXTA+45,1 TABLE ENTRY CONTAINS F2516280
  2. Reference
    06362 0 10000 0 06366 1623TZES8 SUCCESSFUL SEARCH. F2516240
␣␣␣␣XK = 3841
  1. Definition
    07401 0 00000 0 07552 2978XK XKI F2529780
  2. Reference
    07111 0 50000 0 07401 2771CLAXK F2527710
␣␣␣␣XX = 2699
  1. Definition
    05213 987XX BSS1 F2509880
  2. References (6)
    06032−0 63400 1 05213 2197SXDXX,1 INSTRUCTIONS F2521970
    06447−0 63400 1 05213 2474SXDXX,1 POS. TO S1. F2524740
    06476−0 63400 1 05213 2498SXDXX,1 AND CALL PC TO COMPUTE F2524980
    06535−0 63400 1 05213 2530SXDXX,1 F2525300
    06736−0 53400 1 05213 2664PC20 LXDXX,1 ISOLATE N3 FOR F2526640
    07053−0 53400 1 05213 2741PC22 LXDXX,1 X NOT CONSTANT, F2527410
␣␣␣0P2 = 2488
  1. Definition
    768*************************************************************F2507690
    769OP2 IS CALLED BY THE ALPHA STATE TO TEST FOR OPTIMIZATION IN F2507700
    770THE COMILATION OF LOAD VALUE COMPUTATION. IT OPTIMIZES WHEN F2507710
    771(CN1-1)=0 OR IS COMPUTABLE AT EXECUTIVE TIME. F2507720
    04670 0 50000 4 77776 7720P2 CLA32766,4 F2507730
  2. References (3)
    05512 0 07400 4 04670 1989TSX0P2,4 OPTIMIZING ROUTINE. F2519890
    05530 0 07400 4 04670 2003TSX0P2,4 TO OPTIMIZE. F2520030
    05544 0 07400 4 04670 2015TSX0P2,4 FOR OPTIMIZATION F2520150
␣␣␣A3I = 46
  1. Definition
    00056−2 00001 1 00061 46A3I TNXA4,1,1 READING F2500470
  2. Reference
    00040 0 02000 0 00056 31TRAA3I ERROR F2500320
␣␣␣AD1 = 2700
  1. Definition
    05214 988AD1 BSS1 F2509890
  2. References (9)
    03755 0 60100 0 05214 248STOAD1 F2502420
    03756 0 70000 0 05214 249CPYAD1 F2502430
    03757 0 70000 0 05214 250CPYAD1 F2502440
    04607 0 60100 0 05214 719STOAD1 F2507200
    04614 0 46000 0 05214 724LDAAD1 ON DRUM 3. F2507250
    04630 0 50000 0 05214 736CLAAD1 INITIALIZE ORIGIN DRUM F2507370
    04632 0 60100 0 05214 738STOAD1 (EVEN ENTRIES) F2507390
    04646 0 60100 0 05214 750STOAD1 NEW ADDRESS FOR DRUM WRITING. F2507510
    04650 0 46000 0 05214 752LDAAD1 DRUM AND F2507530
␣␣␣AD2 = 2701
  1. Definition
    05215 989AD2 BSS1 F2509900
␣␣␣ARG = 2723
  1. Definition
    05243 1011ARG BSS1 F2510120
  2. References (4)
    06320 0 60100 0 05243 1584STOARG USED FOR TABLE SEARCH. F2515850
    06357 0 50000 0 05243 1620CLAARG IT AND THEN SEARCHES F2516210
    M 05243 3113ERDRM1 SYNARG F2531130
    M 05243 3114ERDRM1 SYNARG F2531140
␣␣␣ARS = 3154
  1. Definition
    06122 0 77100 0 00025 1448ARS ARS21 S3 CARRY BIT IN POSITION 35 F2514490
  2. Reference
    06117−3 00001 4 06122 1445TXLARS,4,1 AND CENTER POSITIONS. F2514460
␣␣␣CIB = 24
  1. Definition
    160 F2501540
    00030 161CIB BSS100 F2501550
  2. References (2)
    04356 0 70000 1 00030 537CIT01 CPYCIB,1 COPY LOOP. F2505320
    04364 0 60100 2 00030 543STOCIB,2 F2505380
␣␣␣CIT = 2277
  1. Definition
    524*************************************************************F2505190
    525CIT ENTERS A COMPILED INSTRUCTION INTO THE COMPILED INSTRUCTIF2505200
    526ION BUFFER. IF THE BUFFER IS FULL, CITSP (WHICH IS PART OF CF2505210
    527CIT) WRITES IT ONTO TAPE 3. F2505220
    04345−0 63400 1 05174 528CIT SXDE2C,1 SIZE T0 CURRENT WORD COUNT. F2505230
  2. References (34)
    04513 0 07400 4 04345 649TSXCIT,4 F2506450
    04727 0 07400 4 04345 803TSXCIT,4 F2508040
    04737 0 07400 4 04345 811TSXCIT,4 F2508120
    04763 0 07400 4 04345 834TSXCIT,4 F2508350
    05012 0 07400 4 04345 857TSXCIT,4 F2508580
    05035 0 07400 4 04345 876TSXCIT,4 L(N1) F2508770
    05401 0 07400 4 04345 1111TSXCIT,4 COMPILED INSTRUCTION.P F2511120
    05412 0 07400 4 04345 1120TSXCIT,4 COMPILER ROUTINE. F2511210
    05433 0 07400 4 04345 1137TSXCIT,4 WORD FOR SXD INSTRUCTION. F2511380
    05651 0 07400 4 04345 1279TSXCIT,4 F2512800
    05672 0 07400 4 04345 1296TSXCIT,4 PUT INTO BUFFER. F2512970
    05743 0 07400 4 04345 1337TSXCIT,4 IN CIB, F2513380
    06042 0 07400 4 04345 1400TSXCIT,4 ENTER TXL IN BUFFER, F2514010
    06053 0 07400 4 04345 1409TSXCIT,4 ENTER COMPILED TXL IN BUFFER. F2514100
    06177 0 07400 4 04345 1493RTX250 TSXCIT,4 COMPILE INST. F2514940
    06521 0 07400 4 04345 1734TSXCIT,4 COMPILE TXI INSTRUCITON. F2517350
    06543 0 07400 4 04345 1752TSXCIT,4 F2517530
    06556 0 07400 4 04345 1766TSXCIT,4 F2517670
    06615 0 07400 4 04345 1797TSXCIT,4 F2517980
    05376 0 07400 4 04345 1913AC024 TSXCIT,4 PUT IN DOFILE. F2519130
    05564 0 07400 4 04345 2031TSXCIT,4 PUT IN BUFFER. F2520310
    05671 0 07400 4 04345 2100TSXCIT,4 F2521000
    05742 0 07400 4 04345 2141TSXCIT,4 SUB OF TAG. F2521410
    05760 0 07400 4 04345 2155TSXCIT,4 THE F2521550
    05767 0 07400 4 04345 2162TSXCIT,4 SYMBOL. F2521620
    06145 0 07400 4 04345 2272TSXCIT,4 F2522720
    06157 0 07400 4 04345 2282TSXCIT,4 F2522820
    06221 0 07400 4 04345 2316TSXCIT,4 F2523160
    06271 0 07400 4 04345 2356TSXCIT,4 F2523560
    06623 0 07400 4 04345 2585TSXCIT,4 AND GO TO F2525850
    06634 0 07400 4 04345 2594TSXCIT,4 FIXCON SYMBOL F2525940
    07011 0 07400 4 04345 2707TSXCIT,4 SUB L(1), F2527070
    07022 0 07400 4 04345 2716TSXCIT,4 F2527160
    07344 0 07400 4 04345 2948LXC30 TSXCIT,4 F2529480
␣␣␣CLA = 3148
  1. Definition
    06114 0 50000 0 03653 1442CLA CLATAG4 POSITION IS LEFT OR CENTER, F2514430
  2. Reference
    06112 2 00001 4 06114 1440TIXCLA,4,1 MOVE RIGHT ONE POSITION. F2514410
␣␣␣E2C = 2684
  1. Definition
    A05174 0 00000 0 00000 972E2C HTR F2509730
  2. References (2)
    04345−0 63400 1 05174 528CIT SXDE2C,1 SIZE T0 CURRENT WORD COUNT. F2505230
    04370−0 53400 1 05174 547LXDE2C,1 F2505420
␣␣␣E3C = 2685
  1. Definition
    A05175 0 00000 0 00000 973E3C HTR F2509740
  2. References (2)
    04346−0 63400 2 05175 529SXDE3C,2 F2505240
    04371−0 53400 2 05175 548LXDE3C,2 F2505430
␣␣␣ISC = 2180
  1. Definition
    415*************************************************************F2504100
    416ISC IS CALLED BY FIND TO TEST FOR MODIFICATION. F2504110
    04204 0 53400 2 05126 417ISC LXAL(1),2 COMPARE SUBSCRIPT F2504120
  2. References (4)
    04175 0 07400 4 04204 408TSXISC,4 F2504030
    04210 1 00001 2 04211 421TXIISC+5,2,1 TRY NEXT LEFT F2504160
    04211−3 00003 2 04205 422TXLISC+1,2,3 SUBSCRIPT. F2504170
    05772 0 07400 4 04204 1360TSXISC,4 FIND DOSUB. F2513610
␣␣␣LBT = 3155
  1. Definition
    06123 0 76000 0 00001 1449LBT LBT TEST FOR DOSUB CARRY BIT. F2514500
  2. Reference
    06121 0 02000 0 06123 1447TRALBT F2514480
␣␣␣LXC = 3769
  1. Definition
    2900*************************************************************F2529000
    2901THIS ROUTINE EXAMINES A BLOCK OF CONSTANTS AND COMPILES ONE IF2529010
    2902INSTRUCTION FOR EACH. THE CALLER INDICATES THE FIRST CONSTANF2529020
    2903BY A REFERENCE IN THE ACCUMULATOR, AND INDICATES THE NUMBER OF2529030
    2904OF INSTRUCTIONS IN INDEX REGISTER A. F2529040
    07271−0 63400 4 07336 2905LXC SXDLXC19,4 F2529050
  2. References (33)
    05504 0 07400 4 07271 1983TSXLXC,4 COMPILE CLA, SUB. F2519830
    05522 0 07400 4 07271 1997TSXLXC,4 COMPILER. F2519970
    05537 0 07400 4 07271 2010TSXLXC,4 COMPILE S2 LOAD VALUE. F2520100
    05553 0 07400 4 07271 2022TSXLXC,4 BLOCK. F2520220
    05703 0 07400 4 07271 2110TSXLXC,4 F2521100
    05716 0 07400 4 07271 2121TSXLXC,4 F2521210
    06106 0 07400 4 07271 2241TSXLXC,4 ON O.C. LEVEL. F2522410
    06133 0 07400 4 07271 2262TSXLXC,4 F2522620
    06164 0 07400 4 07271 2287TSXLXC,4 F2522870
    06170 0 07400 4 07271 2291TSXLXC,4 GROUP FOR THIS CASE. F2522910
    06207 0 07400 4 07271 2306TSXLXC,4 CASE. F2523060
    06224 0 07400 4 07271 2319TSXLXC,4 F2523190
    06230 0 07400 4 07271 2323TSXLXC,4 THIS CASE. F2523230
    06426 0 07400 4 07271 2456TSXLXC,4 F2524560
    06432 0 07400 4 07271 2460TSXLXC,4 F2524600
    06600 0 07400 4 07271 2566TSXLXC,4 F2525660
    06603 0 07400 4 07271 2569TSXLXC,4 F2525690
    06606 0 07400 4 07271 2572TSXLXC,4 F2525720
    06642 0 07400 4 07271 2600TSXLXC,4 F2526000
    06660 0 07400 4 07271 2614TSXLXC,4 F2526140
    06663 0 07400 4 07271 2617TSXLXC,4 F2526170
    06677 0 07400 4 07271 2629TSXLXC,4 F2526290
    06727 0 07400 4 07271 2657TSXLXC,4 F2526570
    06762 0 07400 4 07271 2684TSXLXC,4 SUBL(1), AND F2526840
    06771 0 07400 4 07271 2691TSXLXC,4 STO 1) +3. F2526910
    07025 0 07400 4 07271 2719TSXLXC,4 F2527190
    07043 0 07400 4 07271 2733TSXLXC,4 STO1)+3, F2527330
    07046 0 07400 4 07271 2736TSXLXC,4 F2527360
    07066 0 07400 4 07271 2752TSXLXC,4 F2527520
    07071 0 07400 4 07271 2755TSXLXC,4 F2527550
    07100 0 07400 4 07271 2762TSXLXC,4 F2527620
    07112 0 07400 4 07271 2772TSXLXC,4 F2527720
    07124 0 07400 4 07271 2782PC62 TSXLXC,4 STD, ADD N3G, STD. F2527820
␣␣␣MAN = 1964
  1. Definition
    174MAN CONSTITUTES THE MAIN LINEAR FLOW THROUGH BLOCK 5. A F2501680
    175SUBROUTINE PICKS A DO BETA OR ALPHA, AND THEN CONTROL IS PASSF2501690
    176ED TO THE PROPER STATE, (BETA OR ALPHA), TO COMPILE ALL THE F2501700
    177INDEXING INSTRUCTIONS FOR THAT PART OF THAT DO. CONTROL IS F2501710
    178RETURNED TO MAN. THIS PROCESS IS REPEATED UNTIL ALL ALPHAS F2501720
    179AND BETAS IN A NEST HAVE BEEN TREATED. THE WHOLE PROCEDURE IF2501730
    180IS REPEATED FOR EACH NEST AND THEN CONTROL IS PASSED TO BLOCKF2501740
    181SIX. F2501750
    182************************************************************ F2501760
    03654 0 07400 4 04012 183 MAN TSXTDOTG,4 READ ONE NEST OF DOTAG F2501770
  2. References (2)
    00110 0 02000 0 03654 74TRAMAN IF NO DOTAGS, F2500750
    03737 0 02000 0 03654 234TRAMAN F2502280
␣␣␣N3X = 2698
  1. Definition
    05212 986N3X BSS1 F2509870
  2. References (6)
    06030−0 63400 1 05212 2195SXDN3X,1 TO COMPILE F2521950
    06445−0 63400 1 05212 2472SXDN3X,1 POS. TO S2. F2524720
    06474−0 63400 1 05212 2496SXDN3X,1 TO S3, F2524960
    06533−0 63400 1 05212 2528SXDN3X,1 F2525280
    06702−0 53400 1 05212 2636LXDN3X,1 F2526360
    07113−0 53400 1 05212 2773PC60 LXDN3X,1 F2527730
␣␣␣OP3 = 2529
  1. Definition
    813*************************************************************F2508140
    814OP3 TESTS FOR VARIABLE NS AND IF CONSTANT COMPILES A F2508150
    815CLA L(N2-N1), OR IF VARIABLE CLA L(N2)....SUBL(N1), F2508160
    04741−0 63400 4 05040 816OP3 SXDEROP3,4 F2508170
  2. References (5)
    06135 0 07400 4 04741 2264ACI22 TSXOP3,4 N3= 1, N1 NOT = 1, F2522640
    06211 0 07400 4 04741 2308ACI23 TSXOP3,4 N3=1, N1 NOT = 1. F2523080
    06610 0 07400 4 04741 2574EOR02 TSXOP3,4 COMPILE CLA (N2 - N1) F2525740
    06773 0 07400 4 04741 2693PCI22 TSXOP3,4 COMPILE CLA L(N2-N1) F2526930
    07035 0 07400 4 04741 2727TSXOP3,4 NO, COMPILE CLA (N2-N1) F2527270
␣␣␣PCI = 3551
  1. Definition
    06737 0 50000 1 03652 2665PCI CLATAG2+3,1 XX POSITION F2526650
␣␣␣RTX = 2734
  1. Definition
    1022*************************************************************F2510230
    1023BEGIN BETA STAGE F2510240
    1024THE BETA STATE IS CALLED BY MAN TO COMPUTE AND COMPILE F2510250
    1025INCREMENTING, TESTING, AND RESETTING INSTRUCTIONS FOR A GIVE F2510260
    1026DO. F2510270
    05256−0 63400 4 05325 1027RTX SXDRTX024,4 F2510280
  2. References (2)
    05256 1832ORGRTX F2518320
    M 05256 3108RTXAC SYNRTX F2531080
␣␣␣STO = 1980
  1. Definition
    03674 0 60100 2 03636 199 STO STOADTGA,2 TO F2501930
  2. Reference
    03675 2 00001 2 03674 200TIXSTO,2,1 ZERO F2501940
␣␣␣TGA = 3390
  1. Definition
    1706*************************************************************F2517070
    1707TGA MAKES AN ENTRY IN APPENDED TAGTAG SHOWING THE LOCATION OFF2317080
    1708A GIVEN VARIABLE DECREMENT TXI OR TIX. FOR REFERENCE BY THE F2517090
    1709ALPHA STATE WHEN COMPILING CECREMENT INITIALIZATION F2517100
    1710INSTRUCTIONS. F2517110
    06476 0 76700 0 00022 1711TGA ALS18 FOR RX LOC. F2517120
  2. References (3)
    05406 0 07400 4 06476 1116TSXTGA,4 PLACE LOCATION IN APPENDED TAGTAG WORD F2511170
    05737 0 07400 4 06476 1333TSXTGA,4 IN APPENDED DRM TG WORD, F2513340
    06552 0 07400 4 06476 1762TSXTGA,4 F2517630
␣␣␣TTG = 2071
  1. Definition
    294************************************************************ F2502890
    295TTG IS CALLED BY MAN TO READ IN A NEST OF TAGTAG ENTRIES F2502900
    04027 0 53400 2 05121 296 TTG LXALMXTG,2 LOCATION OF MAX TAP TABLE SIZE F2502910
  2. Reference
    03665 0 07400 4 04027 192TSXTTG,4 READ NEST OF TAGTAGS F2501860
␣␣␣XCI = 3886
  1. Definition
    07456 0 07570 2 34321 3023XCI 14545,2,OR000+2 F2530230
  2. Reference
    07373 0 00000 0 07456 2972LXCI XCI F2529720
␣␣␣XKI = 3946
  1. Definition
    07552 0 07612 2 34321 3083XKI 14545,2,OR000+20 F2530830
  2. Reference
    07401 0 00000 0 07552 2978XK XKI F2529780
␣␣␣XTG = 2719
  1. Definition
    05237 1007XTG BSS1 F2510080
  2. References (19)
    04163−0 53400 1 05237 398LXDXTG,1 F2503930
    04516−0 53400 1 05237 655ADTGSE LXDXTG,1 F2506510
    04520−0 63400 1 05237 657SXDXTG,1 F2506530
    05300 0 60100 0 05237 1045STOXTG F2510460
    05306−0 63400 1 05237 1051SXDXTG,1 ENTRY THAT LIES BETWEEN A AND B F2510520
    05311−0 63400 1 05237 1054SXDXTG,1 SC MODIFIED BY DO, STORE. F2510550
    05704 0 50000 0 05237 1306CLAXTG STORE ITS INDEX F2513070
    05713−0 63400 4 05237 1313SXDXTG,4 F2513140
    06064−0 63400 1 05237 1418SXDXTG,1 F2514190
    06067−0 63400 1 05237 1421SXDXTG,1 PRESERVE X OF TAG UNDER CONDSIDERATION. F2514220
    06126 0 40200 0 05237 1452SUBXTG TAG IS BEST TEST. F2514530
    06203−0 63400 4 05237 1497SXDXTG,4 COMPIL1NG F2514980
    06502 0 50000 0 05237 1715CLAXTG CALCULATES X LOC OF TTGA. F2517160
    06607−0 53400 2 05237 1791BCDE10 LXDXTG,2 F2517920
    05314−0 63400 1 05237 1863SXDXTG,1 BY A DO WITHIN ALPHA F2518630
    05317−0 63400 1 05237 1866SXDXTG,1 STORE TGTG INDEX IN XTG. F2518660
    05321−0 53400 1 05237 1868LXDXTG,1 SET UP FOR FIND ROUTINE. F2518680
    05770 0 50000 0 05237 2163AC165 CLAXTG START SCANNING F2521630
    06242−0 63400 2 05237 2333SXDXTG,2 F2523330
␣␣0P24 = 2518
  1. Definition
    04726−0 63400 1 05173 8020P24 SXDBB0X,1 F2508030
  2. Reference
    04725 1 00004 1 04726 801TXI0P24,1,4 F2508020
␣␣0P2P = 2494
  1. Definition
    04676 0 50000 2 01100 7780P2P CLADOTAGZ+2,2 IF NOT DEFINED BY F2507790
  2. Reference
    04674 3 00000 2 04676 776TXH0P2P,2,0 F2507770
␣␣AC05 = 2756
  1. Definition
    05304 0 50000 0 05123 1855AC05 CLAALLONE INITIALIZE CIL WORDS F2518550
␣␣ADTG = 1446
  1. Definition
    02646 165ADTG BSS404 F2501590
  2. Reference
    03466 3118ADTGMX SYNADTG+400 F2531180
␣␣AOR0 = 3284
  1. Definition
    2385*************************************************************F2523850
    2386AOR0, BOR0, COR0, DOR0, AND EOR0 ARE CALLED T0 MAKE APPROPRIAF2523860
    2387COMPILING TABLE (OR0) ENTRIES AND TO CALLL ROUTINES TO MAKE F2523870
    2388COMPUTATIONS AND COMPILE INSTRUCTIQNS TO INTIALIZE VARIABLE DF2523880
    2389DECREMENTS FOR BLOCKS A, B, C, D, AND E RESPECTIVELY. F2523890
    06324−0 63400 4 06346 2390AOR0 SXDAOR05,4 F2523900
  2. References (2)
    06043 0 07400 4 06324 2206TSXAOR0,4 BLOCK A F2522060
    06114 0 07400 4 06324 2247TSXAOR0,4 COMPUTE G, PUT IN OR0+19. F2522470
␣␣BB0X = 2683
  1. Definition
    A05173 0 00000 0 00000 971BB0X HTR F2509720
  2. References (8)
    03677 0 60100 0 05173 202STOBB0X INDICATORS F2501960
    04350−0 53400 2 05173 531LXDBB0X,2 COMP OF CURRENT WORD COUNT. F2505260
    04352−0 53400 2 05173 533CITSP LXDBB0X,2 F2505280
    04367−0 63400 2 05173 546SXDBB0X,2 SAVE CURRENT WD CT, F2505410
    04724−0 53400 1 05173 800LXDBB0X,1 F2508010
    04726−0 63400 1 05173 8020P24 SXDBB0X,1 F2508030
    05730−0 53400 4 05173 2131LXDBB0X,4 F2521310
    05732−0 63400 4 05173 2133SXDBB0X,4 F2521330
␣␣BCD0 = 2624
  1. Definition
    05100+060000000002 912BCD0 OCT060000000002 F2509130
  2. Reference
    05355 0 50000 0 05100 1896AC021 CLABCD0 F2518960
␣␣BCD2 = 2625
  1. Definition
    05101+020000000000 913BCD2 OCT020000000000 F2509140
  2. Reference
    04655−0 50100 0 05101 757ORABCD2 AND RETURN F2507580
␣␣BCDE = 3430
  1. Definition
    1755*************************************************************F2517560
    1756BCDE COMPILES TXI-SXD-TIX INSTRUCTIONS AND MAKES PROPER TABLEF2517570
    1757ENTRIES IN DOTAG AND TGA WHEN BLOCK B,C,D, OR E IS VARIABLE. F2517580
    06546−0 63400 4 06567 1758BCDE SXDBCDE2,4 F2517590
  2. References (4)
    05464 0 07400 4 06546 1162RTX80 TSXBCDE,4 BLOCK B IS VARIABLE. F2511630
    05523 0 07400 4 06546 1193RTX100 TSXBCDE,4 BLOCK DECREMENT IS VARIABLE. F2511940
    05577 0 07400 4 06546 1237RTX130 TSXBCDE,4 BLOCK D IS VARIABLE. F2512380
    05644 0 07400 4 06546 1274RTX154 TSXBCDE,4 E IS VARIABLE. THIS TAKES F2512750
␣␣BIT1 = 2654
  1. Definition
    05136 2 00000 0 00000 942BIT1 PTW0 F2509430
  2. References (5)
    04076−0 32000 0 05136 338ANABIT1 F2503330
    04146 0 50000 0 05136 378CLABIT1 ORDER TO PLACE BIT IN F2503730
    05417−0 32000 0 05136 1125ANABIT1 F2511260
    06272 0 50000 0 05136 1559TETG3 CLABIT1 ENTER TEST BIT F2515600
    05751−0 32000 0 05136 2148ANABIT1 F2521480
␣␣BIT2 = 2655
  1. Definition
    05137 1 00000 0 00000 943BIT2 PON0 F2509440
  2. References (4)
    04105−0 32000 0 05137 345ANABIT2 MASK T0 INDICATE LOOKED AT F2503400
    06554−0 32000 0 05137 2546ANABIT2 COMPUTABLE. F2525460
    06745−0 32000 0 05137 2671ANABIT2 F2526710
    07231−0 32000 0 05137 2866ANABIT2 DECREMENT OF F2528660
␣␣BIT8 = 2656
  1. Definition
    05140+002000000000 944BIT8 OCT002000000000 F2509450
  2. References (2)
    06604−0 50000 0 05140 1788CALBIT8 PLACE A ONE IN BIT 7 OF TAG4 F2517890
    06015−0 32000 0 05140 2184ANABIT8 POSITION IS S1, IS F2521840
␣␣BITP = 3679
  1. Definition
    2796*************************************************************F2527960
    2797BITP CHECKS SUBSCRIPTS FOR DEFINITION. IF DEFINED BY RELCON F2327970
    2798OR DOSUB IT OBTAINS OBJECT PROGRAM SYMBOLS FOR N1 OR S1 RESPEF2327980
    2799CTIVELY. F2527990
    07137 0 62100 0 07162 2800BITP STABITP14 F2528000
  2. References (3)
    05414 0 07400 4 07137 1927TSXBITP,4 OR0 TABLE. F2519270
    05420 0 07400 4 07137 1931TSXBITP,4 S2. F2519310
    05427 0 07400 4 07137 1938TSXBITP,4 F2519380
␣␣BOR0 = 3357
  1. Definition
    2463*************************************************************F2324630
    06435−0 63400 4 05236 2464BOR0 SXDLINKC,4 FOR B BLOCK F2524640
  2. Reference
    06046 0 07400 4 06435 2209TSXBOR0,4 BLOCK B F2522090
␣␣CILV = 3220
  1. Definition
    1514*************************************************************F2515130
    1515CILV IS CALLED WHEN AN INSTRUCTION NUMBER IS NEEDED FOR A C0MF2515160
    1516PILED BETA STATE INSTRUCTION. F2515170
    06224 0 50000 0 05244 1517CILV CLAVCTR THIS ROUTINE UPDATES F2515180
  2. References (10)
    04473 0 07400 4 06224 633TSXCILV,4 COMPILING AN F2506290
    05403 0 07400 4 06224 1113RTX68 TSXCILV,4 DECREMENT IS VARIABLE. ASSIGN LOCATION. F2511140
    05645 0 07400 4 06224 1275TSXCILV,4 CARE OF FIRST 3 INSTRUCTIONS.P F2512760
    05666 0 07400 4 06224 1292TSXCILV,4 GENERATE AND F2512930
    05734 0 07400 4 06224 1330TSXCILV,4 DECREMENT IS VARIABLE. F2513310
    05777 0 07400 4 06224 1365TSXCILV,4 OBTAIN LOCATION FOR TEST, F2513660
    06136 0 07400 4 06224 1460TSXCILV,4 TIX AFTER TXL AND ASSIGN F2514610
    06173 0 07400 4 06224 1489TSXCILV,4 THIS IS FIRST TIX AFTER F2514900
    06547 0 07400 4 06224 1759TSXCILV,4 OBTAIN LOC. FOR FIRST INST. F2517600
    06611 0 07400 4 06224 1793TSXCILV,4 OBTAIN LOC. FOR THIRD F2517940
␣␣COR0 = 3371
  1. Definition
    2478*************************************************************F2524780
    06453−0 63400 4 06465 2479COR0 SXDCOR005,4 F2524790
  2. Reference
    06051 0 07400 4 06453 2212TSXCOR0,4 BLOCK C F2522120
␣␣COSE = 3706
  1. Definition
    2827*************************************************************F2528270
    2828COSE TESTS COEFFICIENTS AND OBTAINS OBJECT PROGRAM SYMBOLS FRF2528280
    2829TH0SE GREATER THAN 1 F2528290
    07172 0 53400 1 05106 2830COSE LXAL(6),1 COEFFICIENT INDEX. F2528300
  2. References (2)
    05443 0 07400 4 07172 1950AC048 TSXCOSE,4 TEST COEFFS GREATER THAN 1. F2519500
    05721 0 07400 4 07172 2124TSXCOSE,4 F2521240
␣␣CSXD = 2362
  1. Definition
    625*************************************************************F2506210
    626CSXD COMPILES AN SXD INSTRUCTION WHERE THE ADDRESS IS NOT YETF2306220
    627KNOWN, BUT IS KNOWN T0 BE THE TEST FOR A GIVEN DO. THE F2506230
    628ADDRESS WORD IS FILLED IN WITH THAT DOTAG ALPHA-BETA AND THE F2306240
    629LOCATION OF THE SXD IS STORED IN THAT DQTAG SO THAT A TABLE (F2506250
    630(SXDTX) MAY BE MADE FOR REFERENCE BY SECTION 3 T0 FILL IN THEF2506260
    631PROPER ADDRESS DURING MERGE. F2506270
    04472−0 63400 4 05245 632CSXD SXDERTX01,4 ROUTINE FOR F2506280
  2. References (3)
    05655 0 07400 4 04472 1283TSXCSXD,4 TSX CSXD. F2512840
    06522 0 07400 4 04472 1735TSXCSXD,4 COMPILE SXD SKELETON. F2517360
    06557 0 07400 4 04472 1767TSXCSXD,4 F2517680
␣␣CXIJ = 2343
  1. Definition
    602*************************************************************F2505980
    603CXIJ COMPUTES GN3X. WHEN THE ROUTINE CXIJ+2 IS CALLED, F2505990
    604GQ IS COMPUTED, Q BEING WHATEVER PARAMETER IS LEFT IN THE ACCF2506000
    605BY THE CALLER. . F2506010
    04447 0 50000 2 01103 606CXIJ CLADOTAGZ+5,2 F2506020
  2. References (12)
    04452 3 00001 1 04455 609TXHCXIJ+6,1,1 S2 OR S1. F2506050
    05455 0 07400 4 04447 1155RTX72 TSXCXIJ,4 FOR LEFT SUB WHICH IS TEST. F2511560
    05501 0 07400 4 04447 1175RTX91 TSXCXIJ,4 FOR F2511760
    05541 0 07400 4 04447 1207TSXCXIJ,4 COMPUTE XN3G FOR F2512080
    05565 0 07400 4 04447 1227RTX122 TSXCXIJ,4 ADJUSTMENT F2512280
    05617 0 07400 4 04447 1253TSXCXIJ,4 COMPUTE XN3G FOR CENTER. F2512540
    05633 0 07400 4 04447 1265RTX150 TSXCXIJ,4 IN ORDER TO CMPILE 2ND F2512660
    06027 0 07400 4 04451 1389TSXCXIJ+2,4 F2513900
    06151 0 07400 4 04447 1471TSXCXIJ,4 AND COMPUTE ACCORDINGLY F2514720
    06164 0 07400 4 04447 1482TSXCXIJ,4 IN XA, THEN CALLCXIJ F2514830
    05635 0 07400 4 04451 2072TSXCXIJ+2,4 IF POSITION IS F2520720
    05662 0 07400 4 04451 2093TSXCXIJ+2,4 IF GREATER THAN ONE, F2520930
␣␣DIAG = 4
  1. Definition
    00004 3126 DIAG EQU4 F2531260
  2. References (18)
    00061 0 07400 4 00004 49 A4 TSXDIAG,4 TAPE 2 HAS GOTTEN AN ERROR CHECK 5 TIMES. F2500500
    00123 0 07400 4 00004 85TSXDIAG,4 DRUM 2 READING ERROR 5 TIMES. F2500860
    00216 0 07400 4 00004 150 STOP TSXDIAG,4 DRUM 3 READING ERROR 5 TIMES. F2501450
    04006 0 07400 4 00004 276TSXDIAG,4 DRUM 1 READ INCORRECTLY 5 TIMES. F2502700
    04007 0 07400 4 00004 277PGPG12 TSXDIAG,4 DRUM 2 READ INCORRECTLY 5 TIMES. F2502710
    04026 0 07400 4 00004 293TSXDIAG,4 TAPE 4 READ INCORRECTLY 5 TIMES. F2502880
    04035 0 07400 4 00004 302TSXDIAG,4 FALXE END OF FILE ON TAPE 4. F2502970
    04040 0 07400 4 00004 305TSXDIAG,4 BUFFFR EXCEEDED. F2503000
    04054 0 07400 4 00004 317TSXDIAG,4 TAPE 4 READ INCORRECTLY 5 TIMES F2503120
    04124 0 07400 4 00004 360TSXDIAG,4 T=A, ERROR. F2503550
    04157 0 07400 4 00004 391TSXDIAG,4 EQUALITY IMPOSSIBLE. F2503860
    04307 0 07400 4 00004 491TSXDIAG,4 DRUM 4 READING ERROR 5 TIMES. F2504860
    04533 0 07400 4 00004 668TSXDIAG,4 EQUALITY IMPOSSIBLE. F2506640
    04623 0 07400 4 00004 731TSXDIAG,4 TLQOBVIATES THIS PATH. F2507320
    04666 0 07400 4 00004 766STOPFC TSXDIAG,4 DRUM 4 READING ERROR 5 TIMES. F2507670
    05773 0 07400 4 00004 1361TSXDIAG,4 SC NOT MODIFIED BY CURRENT DO. F2313620
    06234 0 07400 4 00004 1525CILV1 TSXDIAG,4 TOO MANY INSTRUCTION NUMBERS. F2515260
    06353 0 07400 4 00004 1611ERROR TSXDIAG,4 ALL SEARCHES FAILED. F2516120
␣␣DOGS = 2093
  1. Definition
    318************************************************************ F2503130
    319DOGS IS CALLED BY MAN TD SELECT AN ALPHA OR BETA TO BE PRO F2503140
    320CESSED BY THE APPROPRIATE STATE (ALPHA OR BETA). F2503150
    04055 0 50000 0 05133 321 DOGS CLAL(0) INITIALIZING TO ZERO F2503160
  2. Reference
    03707 0 07400 4 04055 210TSXDOGS,4 SELECT BOR A F2502040
␣␣DORO = 3394
  1. Definition
    2502*************************************************************F2525020
    06502−0 63400 4 06522 2503DORO SXDDOR05,4 BLOCK D NORMAL. F2525030
  2. References (2)
    06054 0 07400 4 06502 2215TSXDORO,4 BLOCK D. F2522150
    06542 0 07400 4 06502 2536TSXDORO,4 COMP. INSTR. FOR 1ST TXI-SXD-TIX. F2525360
␣␣EDCB = 3403
  1. Definition
    1724*************************************************************F23172S0
    1725EDCB COMPILES TXI-SXD-TIX INSTRUCTIONS AND STORES THE SXD LOCF2517260
    1726ATION FOR BLOCKS B,C,D, OR E WHEN THE DECREMENTS ARE CONSTANTF2517270
    1727AND KNOWN. F2517280
    06513−0 63400 4 06533 1728EDCB SXDEDCB5,4 COMPILES TXI SXD TIX F2517290
  2. References (5)
    05462 0 07400 4 06513 1160TSXEDCB,4 COMPILE TXI SXD TIX. F2511610
    05521 0 07400 4 06513 1191RTX95 TSXEDCB,4 COMPILE TXI SXD TIX. F2511920
    05575 0 07400 4 06513 1235TSXEDCB,4 COMPILE TXI SXD TIX. F2512360
    05627 0 07400 4 06513 1261TSXEDCB,4 COMPILES FIRST F2512620
    05642 0 07400 4 06513 1272TSXEDCB,4 COMPILE 2ND TXI SXD TIX. F2512730
␣␣ENTR = 2200
  1. Definition
    440*************************************************************F2504350
    441ENTR SIMJLATES A TAU ENTRY AND SPREADS IS INTO WORKING TAG--(F2504360
    04230−0 53400 2 05230 442ENTR LXDDOIND,2 SYMBOL OF DO IS F2504370
  2. References (4)
    05332 0 07400 4 04230 1072RTX34 TSXENTR,4 IF COUNTER, MAKE F2510730
    06017 0 07400 4 04230 1381TSXENTR,4 NOT NORMAL TAG, LAY OUT SIMULATED F2513820
    06110 0 07400 4 04230 1438TSXENTR,4 ARTIFICIAL WRKSC ENTRY, F2514390
    05332 0 07400 4 04230 1877TSXENTR,4 CTR. TYPE ENTRY, SIMULATE F2518770
␣␣EOR0 = 3425
  1. Definition
    2534*************************************************************F2525340
    06541−0 63400 4 06645 2535EOR0 SXDEOR006,4 F2525350
  2. Reference
    06056 0 07400 4 06541 2217AC186 TSXEOR0,4 BLOCK E. F2522170
␣␣ER0P = 2593
  1. Definition
    05041+000000000100 880ER0P OCT100 F2508810
␣␣ER40 = 2721
  1. Definition
    05241 1009ER40 BSS1 F2510100
  2. References (7)
    06245 0 60100 0 05241 1538STOER40 F2515390
    06263 0 40200 0 05241 1552SUBER40 DOES TEST NAME EQUAL TAG NAME, F2515530
    06302 0 60100 0 05241 1570STOER40 TEST BITS 1,2. F2515710
    06313 0 56000 0 05241 1579LDQER40 WITH THE POS. THE TEST F2515800
    06321−0 63400 4 05241 1585SXDER40,4 F2515860
    06371−0 53400 4 05241 1630LXDER40,4 A-F. F2516310
    05241 3111CPYWD1 SYNER40 F2531110
␣␣ER41 = 2722
  1. Definition
    05242 1010ER41 BSS1 F2510110
  2. References (6)
    06251 0 60100 0 05242 1542STOER41 THIS INSURES THAT TEST BITS F2515430
    06253 0 32000 0 05242 1544ANSER41 RIGHTMOST DUPE. F2515450
    06265 0 56000 0 05242 1554LDQER41 TEST NAME EQUALS TAG NAHE, F2515550
    06310 0 60100 0 05242 1576STOER41 CARRY BITS 101. F2515770
    06317−0 50100 0 05242 1583ORAER41 THIS RESULTS IN THE MASK F2515840
    05242 3112CPYWD2 SYNER41 F2531120
␣␣ERAB = 2690
  1. Definition
    05202 3116ERAB SYNERTGA F2531160
  2. References (2)
    04000 0 60200 0 05202 270SLWERAB F2502640
    04002 0 40200 0 05202 272SUBERAB F2502660
␣␣EROR = 137
  1. Definition
    00211 0 50000 0 05223 145 EROR CLAERORBX IF ERROR IN A CHECK THE F2501400
  2. Reference
    00204−0 10000 0 00211 140TNZEROR F2501350
␣␣FC02 = 2438
  1. Definition
    04606 0 50000 0 04667 718FC02 CLAORIGIN FIXCON TABLE ORIGIN. F2507190
  2. Reference
    04665 2 00001 4 04606 765TIXFC02,4,1 RETURN FOR 1ST-PASS. F2507660
␣␣FC04 = 2442
  1. Definition
    M04612 0 50000 0 05243 722FC04 CLAERDRM1 COMPARISON WORD IN ACCUMULATOR. F2507230
  2. Reference
    D04634−3 00000 0 04612 740FC29 TXLFC04,0 RETURN TO FC04 FOR SECOND PASS. F2507410
␣␣FC08 = 2445
  1. Definition
    04615 0 70000 0 05241 725FC08 CPYCPYWD1 ENTRY FROM TABLE. F2507260
  2. References (5)
    00104 0 62200 0 04616 70C2 STDFC08+1 STORE WORD COUNT IN F2500710
    03751 0 50000 0 04616 244CLAFC08+1 F2502380
    04626 1 00002 1 04615 734FC24 TXIFC08,1,2 BUMP WORD COUNT TEST INDICATOR F2507330
    04640−0 53400 1 04616 744LXDFC08+1,1 F2507450
    04642−0 63400 1 04616 746FC42 SXDFC08+1,1 NEW TEST VALUE (WORD COUNT). F2507470
␣␣FC18 = 2452
  1. Definition
    D04624−3 00000 0 04662 732FC18 TXLFC60,0 EQUALITY SEARCH ENDED. F2507330
  2. References (2)
    04602−0 63400 2 04624 714SXDFC18,2 INDEX F2507150
    04657−0 53400 2 04624 759LXDFC18,2 MAIN F2507600
␣␣FC20 = 2453
  1. Definition
    04625 0 70000 0 05246 733FC20 CPYERDRM SKIP EVEN ENTRIES FOR 2ND PASS. F2507340
  2. Reference
    D04636−3 00000 0 04625 742FC34 TXLFC20,0 F2507430
␣␣FC24 = 2454
  1. Definition
    04626 1 00002 1 04615 734FC24 TXIFC08,1,2 BUMP WORD COUNT TEST INDICATOR F2507330
  2. Reference
    D04616 3 00000 1 04627 726TXHFC24+1,1 DECREMENT CONTAINS WORD COUNT. F2507270
␣␣FC28 = 2459
  1. Definition
    04633 0 53400 1 05126 739FC28 LXAL(1),1 SET ENTRY NUMBER FOR SECOND PASS. F2507400
␣␣FC29 = 2460
  1. Definition
    D04634−3 00000 0 04612 740FC29 TXLFC04,0 RETURN TO FC04 FOR SECOND PASS. F2507410
  2. References (2)
    04601−0 63400 1 04634 713FIXCON SXDFC29,1 SAVE F2507140
    04656−0 53400 1 04634 758LXDFC29,1 TO F2507590
␣␣FC30 = 2461
  1. Definition
    04635 0 70000 0 05246 741FC30 CPYERDRM F2507420
  2. Reference
    04620 0 04000 0 04635 728TLQFC30 ENTRY LESS THAN COMPARISON WORD. F2507290
␣␣FC34 = 2462
  1. Definition
    D04636−3 00000 0 04625 742FC34 TXLFC20,0 F2507430
  2. References (2)
    04603−0 63400 4 04636 715SXDFC34,4 REGISTERS. F2507160
    04660−0 53400 4 04636 760LXDFC34,4 F2507610
␣␣FC40 = 2463
  1. Definition
    04637 0 60100 0 05241 743FC40 STOCPYWD1 SEARCH ENDED, ENTRY NOT FOUND. F2507440
  2. Reference
    04627−2 00001 2 04637 735TNXFC40,2,1 TEST FOR PASS CONDITION. F2507360
␣␣FC42 = 2466
  1. Definition
    04642−0 63400 1 04616 746FC42 SXDFC08+1,1 NEW TEST VALUE (WORD COUNT). F2507470
  2. Reference
    04641 1 00001 1 04642 745TXIFC42,1,1 WORD COUNT, F2507460
␣␣FC50 = 2475
  1. Definition
    04653−0 75400 1 00000 755FC50 PXD0,1 PLACE NAME OF CONSTANT F2507560
  2. Reference
    04664 0 10000 0 04653 764TZEFC50 DRUM READ CORRECTLY. F2507650
␣␣FC60 = 2482
  1. Definition
    04662 0 50000 0 05241 762FC60 CLACPYWD1 TEST DRUM READING F2507630
  2. Reference
    D04624−3 00000 0 04662 732FC18 TXLFC60,0 EQUALITY SEARCH ENDED. F2507330
␣␣FIND = 2162
  1. Definition
    394*************************************************************F2503890
    395FIND, BEGINNING WITH RTXTGX, SEARCHES FOR A TAGTAG ENTRY MODIF2503900
    396F1ED BY THE CURRENT DO. F2503910
    04162−0 63400 4 04176 397FIND SXDFIND22,4 F2503920
  2. References (3)
    05307 0 07400 4 04162 1052RTX06 TSXFIND,4 F2510530
    06065 0 07400 4 04162 1419RTX226 TSXFIND,4 FIND VALID TAG. FILL TAG WORDS. F2514200
    05315 0 07400 4 04162 1864AC010 TSXFIND,4 AND BETA. F2518640
␣␣L(0) = 2651
  1. Definition
    05133 0 00000 0 00000 939L(0) 0 F2509411
  2. References (36)
    00150 0 50000 0 05133 112ADTGDM CLAL(0) INITIALIZE ERROR INDICATOR F2506950
    03667 0 50000 0 05133 194CLAL(0) ZERO. F2501880
    03676 0 50000 0 05133 201 MAN10 CLAL(0) INITIALIZE F2501950
    03733 0 70000 0 05133 230CPYL(0) END OF RECORD INDIC F2502240
    03734 0 70000 0 05133 231CPYL(0) F2502250
    03735 0 70000 0 05133 232CPYL(0) F2502260
    03736 0 70000 0 05133 233CPYL(0) F2502270
    03774 0 50000 0 05133 266CLAL(0) F2502600
    04055 0 50000 0 05133 321 DOGS CLAL(0) INITIALIZING TO ZERO F2503160
    04334 0 50000 0 05133 515CLAL(0) IF LOCIND GREATER F2505100
    04355 0 53400 1 05133 536LXAL(0),1 0N TAPE 3. F2505310
    04407 0 50000 0 05133 567CLAL(0) F2505620
    04474 0 50000 0 05133 634CLAL(0) SXD INSTRUCTION F2506300
    04610 0 53400 1 05133 720LXAL(0),1 INITIALIZE WORD COUNT TEST INDICATOR. F2507210
    04722 0 50000 0 05133 798CLAL(0) F2507990
    04761 0 50000 0 05133 832CLAL(0) CALLER. F2508330
    04773 0 50000 0 05133 842CLAL(0) CLA L(N2). F2508430
    05006 0 50000 0 05133 853OP33 CLAL(0) F2508540
    05021 0 50000 0 05133 864CLAL(0) COMPILE F2508650
    05276 0 50000 0 05133 1043RTX05 CLAL(0) INITIALIZE THE TEST TAG F2510440
    05421 0 50000 0 05133 1127CLAL(0) FORVAR EXISTS. F2511280
    06043 0 50000 0 05133 1401CLAL(0) ELIMINATE VARIABLE INDICATOR BIT. F2514020
    06465 0 50000 0 05133 1697CIL023 CLAL(0) ROUTINE PLACES SPECIAL F2516980
    05426 0 50000 0 05133 1937AC046 CLAL(0) REPEAT FOR F2519370
    05624 0 50000 0 05133 2063CLAL(0) SYMBOLIC ADDRESS AND F2520630
    05654 0 50000 0 05133 2087CLAL(0) F2520870
    05667 0 50000 0 05133 2098CLAL(0) CLA N2, FOLLOWED F2520980
    05753 0 50000 0 05133 2150CLAL(0) YES, F2521500
    06011 0 53400 4 05133 2180LXAL(0),4 F2521800
    06150 0 50000 0 05133 2275CLAL(0) F2522750
    06264 0 50000 0 05133 2351CLAL(0) PROPERLY. F2523510
    07131 0 50000 0 05133 2790CIL03I CLAL(0) PLACE 0 IN LOCATION F2527900
    07213 0 50000 0 05133 2850CLAL(0) ISOLATE F2528500
    07310 0 50000 0 05133 2920LXC08 CLAL(0) F2529200
    07322 0 50000 0 05133 2930CLAL(0) RELATIVE F2529300
    07342 0 50000 0 05133 2946CLAL(0) F2529460
␣␣L(1) = 2646
  1. Definition
    05126 0 00000 0 00001 934L(1) 1 F2509350
  2. References (43)
    00105 0 50000 0 05126 71CLAL(1) DECREMENT OF FC08-1 F2500720
    00212 0 40000 0 05126 146ADDL(1) ENTIRE TABLE IS RE-READ. F2501410
    03705 0 50000 0 05126 208 MAN20 CLAL(1) F2502020
    04135 0 40200 0 05126 369SUBL(1) EITHER B OF SAME DO OR F2503640
    04204 0 53400 2 05126 417ISC LXAL(1),2 COMPARE SUBSCRIPT F2504120
    04552 0 53400 2 05126 683ADTGS8 LXAL(1),2 INIT FOR POSING. F2506790
    04633 0 53400 1 05126 739FC28 LXAL(1),1 SET ENTRY NUMBER FOR SECOND PASS. F2507400
    05456 0 40200 0 05126 1156SUBL(1) F2511570
    05502 0 40200 0 05126 1176SUBL(1) LEFT F2511770
    05571 0 40200 0 05126 1231SUBL(1) ADD ERTX01 F2512320
    05620 0 40200 0 05126 1254SUBL(1) STORE SN3G-1 F2512550
    05634 0 40200 0 05126 1266SUBL(1) TXI SXD TIX IN F2512670
    06240−0 32000 0 05126 1531ANAL(1) F2515320
    06252 0 40200 0 05126 1543SUBL(1) ARE ENTERED ONLY FOR F2515440
    06322 0 53400 1 05126 1586LXAL(1),1 THIS BLOCK REPRESENTS F2515870
    05372 0 40200 0 05126 1909SUBL(1) F2519090
    05417 0 50000 0 05126 1930AC040 CLAL(1) REPEAT FOR F2519300
    05455 0 40200 0 05126 1960SUBL(1) THAN 1, RETURN. F2519600
    05501 0 40200 0 05126 1980SUBL(1) F2519800
    05543 0 53400 1 05126 2014LXAL(1),1 CALL OP2 ROUTINE F2520140
    05660 0 50000 0 05126 2091AC140 CLAL(1) F2520910
    05663 0 40200 0 05126 2094SUBL(1) F2520940
    05673 0 40000 0 05126 2102AC146 ADDL(1) G GREATER THAN 1, F2521020
    05714 0 53400 1 05126 2119LXAL(1),1 F2521190
    06100 0 40200 0 05126 2235SUBL(1) DOES N3 = 1. F2522350
    06122 0 40200 0 05126 2253SUBL(1) F2522530
    06125 0 40200 0 05126 2256SUBL(1) N1 = 1. F2522560
    06176 0 40200 0 05126 2297SUBL(1) F2522970
    06201 0 40200 0 05126 2300SUBL(1) F252300D
    06223 0 53400 1 05126 2318LXAL(1),1 F2523180
    06473 0 53400 1 05126 2495COR010 LXAL(1),1 SET N3X POSITION F2524950
    06532 0 53400 1 05126 2527DOR020 LXAL(1),1 SET N3X POS. TO S3, F2525270
    06557 0 40200 0 05126 2549SUBL(1) IS N3=1. F2525490
    06562 0 40200 0 05126 2552SUBL(1) N1 = 1. F2525520
    06601 0 53400 1 05126 2567EOR03 LXAL(1),1 COMPILE F2525670
    06675 0 53400 1 05126 2627LXAL(1),1 OR0+20 AND C0MPILE F2526270
    06742 0 40200 0 05126 2668SUBL(1) F2526680
    06751 0 40200 0 05126 2675SUBL(1) F2526750
    06760 0 53400 1 05126 2682LXAL(1),1 YES, COMPILE F2526820
    07033 0 40200 0 05126 2725SUBL(1) F2527250
    07044 0 53400 1 05126 2734PCI33 LXAL(1),1 F2527340
    07110 0 53400 1 05126 2770LXAL(1),1 F2527700
    07301 0 40200 0 05126 2913SUBL(1) LXD COMPILED. IF SO, F2529130
␣␣L(2) = 2647
  1. Definition
    05127 0 00000 0 00002 935L(2) 2 F2509360
  2. References (20)
    04427 0 40200 0 05127 586SUBL(2) F2505820
    04433 0 40200 0 05127 590SUBL(2) COMPUTE F2505860
    04440 0 40200 0 05127 595SUBL(2) COMPUTE F2505910
    04611 0 53400 2 05127 721LXAL(2),2 INITIALIZE INDICATOR FOR TWO PASSES. F2507220
    04631 0 40000 0 05127 737ADDL(2) ADDRESS FOR 2ND PASS F2507380
    05157 0 53400 1 05127 959INST3 LXAL(2),1 F2509600
    05540 0 53400 1 05127 1206LXAL(2),1 FOR EXIT ROUTINE. F2512070
    05616 0 53400 1 05127 1252LXAL(2),1 FOR EXIT ROUTINE, F2512530
    05765 0 40000 0 05127 1355ADDL(2) DRUM. F2513560
    05413 0 50000 0 05127 1926CLAL(2) 1F VARIABLE LOAD, FILL F2519260
    05472 0 53400 1 05127 1973AC049 LXAL(2),1 F2519730
    05513 0 53400 1 05127 1990LXAL(2),1 AT LEAST 4 COMP INST. F2519900
    05527 0 53400 1 05127 2002LXAL(2),1 CALL OP2 ROUTINE F2520020
    06031 0 53400 1 05127 2196LXAL(2),1 INITIALIZATION F2521960
    06206 0 53400 1 05127 2305LXAL(2),1 FOR THIS F2523050
    06226 0 53400 1 05127 2321AC230I LXAL(2),1 G =1, N3 NOT = 1. F2523210
    06424 0 53400 1 05127 2454AOR030 LXAL(2),1 SUB IS S1, C1=1, F2524540
    06444 0 53400 1 05127 2471LXAL(2),1 INITIALIZE N3X F2524710
    06534 0 53400 1 05127 2529LXAL(2),1 XX POS. TO S2. F2525290
    07067 0 53400 1 05127 2753LXAL(2),1 F2527530
␣␣L(3) = 2649
  1. Definition
    05131 0 00000 0 00003 937L(3) 3 F2509380
  2. References (21)
    04406 0 53400 1 05131 566TELC LXAL(3),1 F2505610
    04565 0 53400 1 05131 697LXAL(3),1 F2506980
    05500 0 53400 1 05131 1174LXAL(3),1 XN3G-1 F2511750
    05564 0 53400 1 05131 1226LXAL(3),1 DECREMENT F2512270
    05730−0 32000 0 05131 1326RTX188 ANAL(3) F2513270
    06254 0 53400 1 05131 1545LXAL(3),1 F2515460
    05302 0 40000 0 05131 1853ADDL(3) ADDRESS FOR F2518530
    05511 0 53400 1 05131 1988LXAL(3),1 S1 DEFINED, GO TO F2519880
    05567 0 53400 1 05131 2034LXAL(3),1 PREPARE TO F2520340
    05702 0 53400 1 05131 2109LXAL(3),1 F2521090
    05776 0 53400 1 05131 2169LXAL(3),1 YES, ISOLATE F2521690
    06027 0 53400 1 05131 2194LXAL(3),1 CALL PC ROUTINE F2521940
    06062 0 53400 1 05131 2221LXAL(3),1 THIS REPRESENTS END OF F2522210
    06446 0 53400 1 05131 2473LXAL(3),1 INITIALIZE XX F2524730
    06475 0 53400 1 05131 2497LXAL(3),1 XX POSITION TO S1 F2524970
    06550 0 53400 1 05131 2542LXAL(3),1 SEE IF F2525420
    06577 0 53400 1 05131 2565LXAL(3),1 F2525650
    07116 0 53400 1 05131 2776LXAL(3),1 OF F2527760
    07173 0 53400 2 05131 2831LXAL(3),2 SENSE LIGHT INDEX. F2528310
    07247 0 40000 0 05131 2882ADDL(3) OR0 TABLE. F2528820
    07253 0 53400 1 05131 2886LXAL(3),1 F2528860
␣␣L(4) = 2648
  1. Definition
    05130 0 00000 0 00004 936L(4) 4 F2509370
  2. References (15)
    04362 0 53400 1 05130 541CIT04 LXAL(4),1 PROCEED TO NEW F2505360
    04573−0 32000 0 05130 703ANAL(4) N1 F2507040
    05156 0 53400 1 05130 958INST2 LXAL(4),1 F2509590
    05474−0 32000 0 05130 1975ANAL(4) DORC, OR DOSUB. F2519750
    06132 0 53400 1 05130 2261LXAL(4),1 F2522610
    06162 0 53400 1 05130 2285LXAL(4),1 F2522850
    06166 0 53400 1 05130 2289AC228I LXAL(4),1 F2522890
    06430 0 53400 1 05130 2458AOR040 LXAL(4),1 COMPILE LDQ,MPY, STD. F2524580
    06641 0 53400 1 05130 2599LXAL(4),1 F2525990
    06661 0 53400 1 05130 2615EOR018 LXAL(4),1 COMPILE LLS, SUB, F2526150
    06725 0 53400 1 05130 2655LXAL(4),1 STO C(OR0+12) F2526550
    06770 0 53400 1 05130 2690LXAL(4),1 ALS 17 F2526900
    07023 0 53400 1 05130 2717LXAL(4),1 F2527170
    07041 0 53400 1 05130 2731LXAL(4),1 MPY G, F2527310
    07245 0 40000 0 05130 2880ADDL(4) CALCULATES ADDRESS F2528800
␣␣L(5) = 2650
  1. Definition
    05132 0 00000 0 00005 938L(5) 5 F250939D
  2. References (6)
    03765 0 53400 2 05132 259LXAL(5),2 INITIALIZE DRUM READING ERROR COUNTER. F2502530
    04012 0 53400 1 05132 281 TDOTG LXAL(5),1 S CALLED BY MAN TO READ IN A NEST OF DOTAG ENTRIES. F2502750
    04030 0 53400 1 05132 297 TTG01 LXAL(5),1 INITIALIZE TAPE ERROR COUNTER. F2502920
    04237 0 53400 1 05132 451LXAL(5),1 F2504460
    04605 0 53400 4 05132 717LXAL(5),4 F2507180
    06307−0 32000 0 05132 1575ANAL(5) AND STORED. F2515760
␣␣L(6) = 2630
  1. Definition
    05106 0 00000 0 00006 918L(6) 6 F2509190
  2. References (6)
    05531 0 53400 1 05106 2004LXAL(6),1 COUNTER FOR COMPILING F2520040
    05545 0 53400 1 05106 2016LXAL(6),1 COMPILING COUNTER. F2520160
    06103 0 53400 1 05106 2238LXAL(6),1 IN APPROP. OR0 LOCS F2522380
    06647 0 53400 1 05106 2605EOR008 LXAL(6),1 X NOT CONST., F2526050
    07055 0 53400 1 05106 2743LXAL(6),1 TES, COMPILE F2527430
    07172 0 53400 1 05106 2830COSE LXAL(6),1 COEFFICIENT INDEX. F2528300
␣␣L(7) = 2622
  1. Definition
    05076 0 00000 0 00007 910L(7) 7 F2509110
  2. References (11)
    04562−0 32000 0 05076 694ANAL(7) IS STORED IN N1SBX. F2506900
    04744−0 32000 0 05076 819ANAL(7) CONSTANT. F2508200
    05551−0 32000 0 05076 1215ANAL(7) DUPES, F2512160
    06250−0 32000 0 05076 1541ANAL(7) IF THERE ARE DUPES F2515420
    06367−0 32000 0 05076 1628ANAL(7) BLOCK NOS. 0-5 WHICH F2516290
    06622−0 32000 0 05076 1804ANAL(7) F2518050
    05402−0 32000 0 05076 1917ANAL(7) A RELCON OR BOTH ARE F2519170
    05405−0 32000 0 05076 1920ANAL(7) ORDEDO. F2519200
    06040−0 32000 0 05076 2203ANAL(7) CALLPROPER ROUTINE F2522030
    06517−0 32000 0 05076 2516ANAL(7) F2525160
    07242−0 32000 0 05076 2877ANAL(7) F2528770
␣␣L(8) = 2632
  1. Definition
    05110 0 00000 0 00010 920L(8) 8 F2509210
  2. References (3)
    04342 0 40000 0 05110 521ADDL(8) F2505160
    06226 0 40000 0 05110 1519ADDL(8) STORE IT INTO CIL00 F2515200
    06544 0 40000 0 05110 2538ADDL(8) TXI RELATIVE F2525380
␣␣LOC0 = 2266
  1. Definition
    510*************************************************************F2505050
    511LOC0 ASSIGNS A RELATIVE LOCATION (INSTRUCTION NUMBER), AND UPF2505060
    512DATES A COUNTER FOR THE NEXT ASSIGNMENT. F2505070
    04332 0 50000 0 05222 513LOC0 CLALOCIND F2505080
  2. Reference
    04347 0 07400 2 04332 530TSXLOC0,2 F2505250
␣␣LXCI = 3835
  1. Definition
    07373 0 00000 0 07456 2972LXCI XCI F2529720
  2. References (2)
    06657 0 50000 0 07373 2613EOR015 CLALXCI F2526130
    07065 0 50000 0 07373 2751PC30 CLALXCI F2527510
␣␣OP31 = 2550
  1. Definition
    04766 0 77100 0 00001 837OP31 ARS1 F2508380
  2. Reference
    04745−0 10000 0 04766 820TNZOP31 NO, OP31. F2508210
␣␣OP32 = 2558
  1. Definition
    04776 0 50000 2 01101 845OP32 CLADOTAGZ+3,2 F2508460
  2. Reference
    04770 0 02000 0 04776 839TRAOP32 F2508400
␣␣OP33 = 2566
  1. Definition
    05006 0 50000 0 05133 853OP33 CLAL(0) F2508540
  2. Reference
    04775 0 02000 0 05006 844TRAOP33 F2506450
␣␣OP34 = 2580
  1. Definition
    05024 0 50000 2 01100 867OP34 CLADOTAGZ+2,2 N1 CONSTANT, F2508680
  2. Reference
    05016 0 02000 0 05024 861TRAOP34 F2508620
␣␣OP35 = 2587
  1. Definition
    05033 0 50000 0 05055 874OP35 CLAL(SUB) COMPILE F2508750
  2. Reference
    05023 0 02000 0 05033 866TRAOP35 F2508670
␣␣PC04 = 3535
  1. Definition
    D06717−3 00000 0 06731 2649PC04 TXLPC10,0 NO, PC10. F2526490
  2. References (2)
    06701−0 63400 4 06717 2635PC SXDPC04,4 F2526350
    07125−0 53400 4 06717 2783LXDPC04,4 F2527830
␣␣PC10 = 3545
  1. Definition
    06731 0 56000 2 01102 2659PC10 LDQDOTAGZ+4,2 N3 C0NSTANT, PUT F2526590
  2. Reference
    D06717−3 00000 0 06731 2649PC04 TXLPC10,0 NO, PC10. F2526490
␣␣PC20 = 3550
  1. Definition
    06736−0 53400 1 05213 2664PC20 LXDXX,1 ISOLATE N3 FOR F2526640
  2. Reference
    06730 0 02000 0 06736 2658TRAPC20 F2526580
␣␣PC21 = 3624
  1. Definition
    07050 0 07400 4 07226 2738PC21 TSXPXOR0,4 IS X CONSTANT. F2527380
  2. References (2)
    06743−0 10000 0 07050 2669TNZPC21 NO, PC22. F2526690
    06746 0 10000 0 07050 2672TZEPC21 YES, PC21. F2526720
␣␣PC22 = 3627
  1. Definition
    07053−0 53400 1 05213 2741PC22 LXDXX,1 X NOT CONSTANT, F2527410
  2. Reference
    07051 0 02000 0 07053 2739TRAPC22 NO, PC22. F2527390
␣␣PC25 = 3634
  1. Definition
    07062 0 40000 0 05061 2748PC25 ADDL1DEC F2527480
  2. Reference
    07061 1 00002 1 07062 2747TXIPC25,1,2 TO TO PC60, F2527470
␣␣PC30 = 3637
  1. Definition
    07065 0 50000 0 07373 2751PC30 CLALXCI F2527510
  2. Reference
    07060 0 10000 0 07065 2746TZEPC30 N3X-1, AND F2527460
␣␣PC40 = 3643
  1. Definition
    07073 0 50000 0 07612 2757PC40 CLAOR000+20 POS, IS S2, F2527570
  2. Reference
    07054−3 00002 1 07073 2742TXLPC40,1,2 IS POSITION S1. F2527420
␣␣PC50 = 3650
  1. Definition
    07102 0 76500 0 00043 2764PC50 LRS35 X IS CONSTANT, F2527640
  2. Reference
    07052 0 02000 0 07102 2740TRAPC50 YES. PC50, F2527400
␣␣PC60 = 3659
  1. Definition
    07113−0 53400 1 05212 2773PC60 LXDN3X,1 F2527730
  2. References (5)
    06772 0 02000 0 07113 2692TRAPC60 F2526920
    06776 0 10000 0 07113 2696TZEPC60 YES, PC 60. F2526960
    07047 0 02000 0 07113 2737TRAPC60 F2527370
    07072 0 02000 0 07113 2756TRAPC60 F2527560
    07101 0 02000 0 07113 2763TRAPC60 F2527630
␣␣PC61 = 3671
  1. Definition
    07127 0 50000 0 07562 2785PC61 CLALXCI8P CONSTANT. COMPILE F2527850
  2. Reference
    07122 0 02000 0 07127 2780TRAPC61 CONSTANT, PC61. F2527800
␣␣PC62 = 3668
  1. Definition
    07124 0 07400 4 07271 2782PC62 TSXLXC,4 STD, ADD N3G, STD. F2527820
  2. Reference
    07130 0 02000 0 07124 2786TRAPC62 STO, ADD C(OR0+12), STD. F2527860
␣␣PRES = 3263
  1. Definition
    1564*************************************************************F2515650
    1565PRES DETERMINES THE TXI BLOCK NUMBER FOR A GIVEN TAG AND PUTSF2515660
    1566IT IN INDEX REGISTER B. F2515670
    06277 0 50000 0 03653 1567PRES CLATAG4 FIRST THE TEST F2515680
  2. Reference
    05313 0 07400 4 06277 1056TSXPRES,4 F2510570
␣␣RXTA = 3323
  1. Definition
    06373+000000006600 1632RXTA OCT6600 6L, 760 MASK F2516330
  2. References (2)
    06354 0 50000 1 06450 1617SEARCH CLARXTA+45,1 F2516180
    06366 0 50000 1 06450 1627S8 CLARXTA+45,1 TABLE ENTRY CONTAINS F2516280
␣␣SCAN = 2155
  1. Definition
    383*************************************************************F2503780
    384SCAN SCANS TAGTAG FOR THE FIRST ENTRY THAT IS MODIFIED BY A DF2503790
    385DO WHOSE ALLPHA IS LESS THAT THE CURRENT DOTAG BETA. F2503800
    386THIS TAG IS CALLED RTXTGX. F2503810
    04153 0 53400 1 05121 387SCAN LXALMXTG,1 COMPARE B WITH DOFOR F2503820
  2. References (2)
    05304 0 07400 4 04153 1049TSXSCAN,4 F2510500
    05312 0 07400 4 04153 1861TSXSCAN,4 SCAN AND FIND PICK F2518610
␣␣SMSK = 2659
  1. Definition
    05143 0 00000 0 00000 947SMSK F2509480
  2. References (5)
    06327 0 60100 0 05143 1591STOSMSK FIRST 11 ENTRIES ARE F2515920
    06332 0 60100 0 05143 1594STOSMSK AFTER SEARCHING LAST F2515950
    06340 0 60100 0 05143 1600STOSMSK F2516010
    06346 0 60100 0 05143 1606STOSMSK F2516070
    06360−0 32000 0 05143 1621ANASMSK PRESCR1BED BLOCKS OF F2516220
␣␣STOP = 142
  1. Definition
    00216 0 07400 4 00004 150 STOP TSXDIAG,4 DRUM 3 READING ERROR 5 TIMES. F2501450
␣␣TAG1 = 1958
  1. Definition
    03646 0 00000 0 00000 168TAG1 F2501620
  2. References (2)
    04214 0 62200 0 03646 428STDTAG1 IN WORKING TGTG. F2504230
    04536−0 63400 2 03646 671SXDTAG1,2 DDA IN TAG1 DECREMENT. F2506670
␣␣TAG2 = 1959
  1. Definition
    03647 0 00000 0 00000 169TAG2 F2501630
  2. References (49)
    04206 0 40200 2 03652 419SUBTAG2+3,2 OF THE CURRENT DO. F2504140
    04216−0 63400 2 03647 430SXDTAG2,2 F2504250
    04220 0 62200 0 03650 432STDTAG2+1 F2504270
    04222−0 63400 2 03651 434SXDTAG2+2,2 F2504290
    04373−0 53400 1 03647 552SCLMN1 LXDTAG2,1 S1 INDEX QUANTITY. F2505470
    04374−0 53400 2 03650 553LXDTAG2+1,2 S2 INDEX QUANTITY. F2505480
    04400−0 53400 2 03651 557SCLMN3 LXDTAG2+2,2 QUANTITIES OF F2505520
    04412 0 50000 1 03652 570TELC05 CLATAG2+3,1 SEQUENCE. PUT S IN XB T0 PREPARE F2505650
    04503−0 53400 4 03647 641CSXD4 LXDTAG2,4 BLOCKS B,C, LOAD S1 INDEX. F2506370
    04540−0 63400 2 03647 673SXDTAG2,2 S1 INDEX IN TAG2. F2506690
    04543−0 63400 2 03650 676SXDTAG2+1,2 S2 INDEX IN TAG2+1. F2506720
    04545−0 63400 2 03651 678SXDTAG2+2,2 S3 INDEX IN TAG2+2. F2506740
    04553 0 50000 2 03652 684CLATAG2+3,2 F2506800
    04566 0 50000 1 03652 698N1S02 CLATAG2+3,1 A CONATAINS POSIND. F2506990
    04672 0 50000 1 03652 774CLATAG2+3,1 IF S IS NOT F2507750
    05437−0 53400 2 03647 1141LXDTAG2,2 BLOCK B FIRST DETERMINE F2511420
    05452−0 53400 2 03647 1152LXDTAG2,2 F2511530
    05470−0 53400 2 03647 1166LXDTAG2,2 ISOLATE F2511670
    05477−0 53400 2 03647 1173LXDTAG2,2 COMPUTE F2511740
    05527−0 53400 2 03650 1197LXDTAG2+1,2 BLOCK D CONSIDERED. F2511980
    05537−0 53400 2 03650 1205LXDTAG2+1,2 CONSIDER CENTER SUBSCRIPT F2512060
    05563−0 53400 2 03650 1225RTX118 LXDTAG2+1,2 COMPUTE XN3G F2512260
    05602−0 53400 2 03647 1240LXDTAG2,2 PUT N BITS FOR S1 F2512410
    05606−0 53400 2 03650 1244LXDTAG2+1,2 FOR VARIABLE DECREMENT F2512450
    05615−0 53400 2 03650 1251LXDTAG2+1,2 SET UP CENTER SUBSCRIPT F2512520
    05630−0 53400 2 03647 1262LXDTAG2,2 THREE OF BLOCK E. F2512630
    05661−0 53400 2 03647 1287LXDTAG2,2 PLACE LOCATION OF SXD F2512880
    06255 0 50000 1 03652 1546CLATAG2+3,1 SELECT DOTAG WHICH F2515470
    06530−0 53400 2 03647 1741LXDTAG2,2 BLOCKS D, E SHIFT LEFT 12. F2517420
    06534−0 53400 2 03650 1745EDCB10 LXDTAG2+1,2 BLOCK D,E USE S2 DOTAG. F2517460
    06563−0 53400 1 03650 1771LXDTAG2+1,1 PLACE LOC. OF SXD INST. F2517720
    06571−0 53400 1 03647 1777LXDTAG2,1 PLACE LOC. FOR SXD OF F2517780
    05460−0 53400 1 03647 1963AC048I LXDTAG2,1 IS/LATE N1. F2519630
    05476−0 53400 2 03647 1977LXDTAG2,2 YES, IS IT A DOSUB. F2519770
    05571 0 50000 1 03652 2036CLATAG2+3,1 DUPES. F2520360
    05575 0 34000 1 03652 2040CASTAG2+3,1 SKIP DUPES F2520400
    06075 0 50000 1 03652 2232CLATAG2+3,1 ISOLATE F2522320
    06117 0 50000 1 03652 2250CLATAG2+3,1 COMPILE INSTRUCTIONS F2522500
    06173 0 50000 1 03652 2294CLATAG2+3,1 DOES F2522940
    06325 0 50000 1 03652 2391CLATAG2+3,1 LOCATION IS F2523910
    06551 0 50000 1 03652 2543CLATAG2+3,1 X FOR F2525430
    06703 0 50000 1 03652 2637CLATAG2+3,1 F2526370
    06737 0 50000 1 03652 2665PCI CLATAG2+3,1 XX POSITION F2526650
    07114 0 50000 1 03652 2774CLATAG2+3,1 IS F2527740
    07156 0 50000 2 03651 2815CLATAG2+2,2 DEFINED BY DO, CHECK F2528150
    07211 0 50000 2 03652 2848TESTL0 CLATAG2+3,2 INITIALIZE INDEX F2528480
    07226 0 50000 1 03652 2863PXOR0 CLATAG2+3,1 IF X IS F2528630
    M 03650 3106TAG21 SYNTAG2+1 F2531060
    M 03651 3107TAG22 SYNTAG2+2 F2531070
␣␣TAG3 = 1962
  1. Definition
    03652 172TAG3 BSS1 F2501660
  2. References (29)
    04224 0 60100 0 03652 436STOTAG3 F2504310
    04507 0 50000 0 03652 645CLATAG3 NOT KNOWN. F2506410
    04547 0 60100 0 03652 680STOTAG3 TAG NAME IN TAG3. F2506760
    05320−0 53400 1 03652 1062RTX020 LXDTAG3,1 DECREMENT IS CONSTANT. F2510630
    05322 0 50000 0 03652 1064CLATAG3 OR RESET TAG. F2510650
    05327 0 50000 0 03652 1069RTX30 CLATAG3 IF RESET TAG, PUT TAG F2510700
    05423 0 50000 0 03652 1129CLATAG3 COMPILE F2511300
    05443 0 50000 0 03652 1145CLATAG3 DECREMENT IS CONSTANT. F2511460
    05474 0 50000 0 03652 1170CLATAG3 DECREMENT IS CONSTANT. F2511710
    05533 0 50000 0 03652 1201CLATAG3 DECREMENT IS CONSTANT. F2512020
    05612 0 50000 0 03652 1248CLATAG3 CONSTANT CASE, LAY F2512490
    05677 0 50000 0 03652 1301CLATAG3 COMPARE TAG NAME F2513020
    06015−0 53400 1 03652 1379RTX200 LXDTAG3,1 F2513800
    06021 0 50000 0 03652 1383RTX201 CLATAG3 PREPARE FOR F2513840
    06073−0 53400 2 03652 1425LXDTAG3,2 F2514260
    06075 0 50000 0 03652 1427CLATAG3 NEW TAG, DETERMINE F2514280
    06101 0 50000 0 03652 1431CLATAG3 YES, TSX F2514320
    06103 0 50000 0 03652 1433RTX229 CLATAG3 CURRENT TAG F2514340
    06243 0 50000 0 03652 1536 TETG CLATAG3 ISOLATE F2515370
    06473 0 50000 0 03652 1703CLATAG3 TAG WD. THIS IS DOEN F2517040
    06627 0 50000 0 03652 1813CLATAG3 IN DECREMENT FOR THE F2518140
    06634 0 50000 0 03652 1820CILNAM CLATAG3 THIS ROUTINE F2518210
    05324−0 53400 1 03652 1871LXDTAG3,1 IF IT IS PROCEED TO F2518710
    05326 0 50000 0 03652 1873CLATAG3 - NO CURRENT TG, USE NEW TG. F2518730
    05334 0 50000 0 03652 1879AC016I CLATAG3 RESET TYPE ENTRY F2518790
    05340 0 50000 0 03652 1883AC018 CLATAG3 CURRENT TAG VALID, LAY F2518830
    05604 0 50000 0 03652 2047CLATAG3 AND F2520470
    05705 0 50000 1 03652 2112CLATAG3,1 F2521120
    07133 0 50000 0 03652 2792CLATAG3 TAG WORD OF COMPILED F2527920
␣␣TAG4 = 1963
  1. Definition
    03653 173TAG4 BSS1 F2501670
  2. References (28)
    04226 0 60100 0 03653 438STOTAG4 F2504330
    04551 0 60100 0 03653 682STOTAG4 ADTG WD4 IN TAG4. F2506780
    04560 0 50000 0 03653 692N1STET CLATAG4 F2506880
    05346 0 50000 0 03653 1084CLATAG4 . TEST FOR DUPLICATE F2510840
    05413 0 50000 0 03653 1121RTX69 CLATAG4 TEST FOR SYM8OL F2511220
    05510 0 50000 0 03653 1182CLATAG4 F2511830
    05547 0 50000 0 03653 1213CLATAG4 TEST F2512140
    05723 0 50000 0 03653 1321CLATAG4 LOOK AT F2513220
    06010 0 50000 0 03653 1374CLATAG4 CHECK FOR DORC. F2513750
    06114 0 50000 0 03653 1442CLA CLATAG4 POSITION IS LEFT OR CENTER, F2514430
    06116−0 50100 0 03653 1444ORATAG4 CARRY BITS FOR LEFT F2514450
    06153 0 56000 0 03653 1473LDQTAG4 TEST F2514740
    06160 0 56000 0 03653 1478LDQTAG4 TEST DUPE F2514790
    06246 0 50000 0 03653 1539CLATAG4 ISOLATE DUPES INDICATORS F2515400
    06274−0 60200 0 03653 1561ORSTAG4 SUBSCRIPT. F2515620
    06277 0 50000 0 03653 1567PRES CLATAG4 FIRST THE TEST F2515680
    06305−0 50100 0 03653 1573ORATAG4 IN THE MQ WHILE THE F2515740
    05400 0 50000 0 03653 1915AC030 CLATAG4 VARIABLE CASE, THE BITS FOR F2519150
    05404 0 50000 0 03653 1919CLATAG4 WORDS, DEFDQ, RELCO, AND F2519190
    05445−0 32000 0 03653 1952ANATAG4 COEFS, 011 RELCONS, 100 CUPE. F2519520
    05745 0 50000 0 03653 2144CLATAG4 CHECK SUSBIT F2521440
    06013 0 50000 0 03653 2182CLATAG4 POSITION F2521820
    06017 0 50000 0 03653 2186CLATAG4 NO, BLOCK A. F2521860
    06354 0 56000 0 03653 2414LDQTAG4 F2524140
    06375 0 56000 0 03653 2431LDQTAG4 CHECK DUPES F2524310
    06411 0 50000 0 03653 2443AOR022 CLATAG4 F2524430
    06462 0 50000 0 03653 2486CLATAG4 TEST F2524860
    06515 0 50000 0 03653 2514CLATAG4 F2525140
␣␣TELC = 2310
  1. Definition
    563*************************************************************F2505580
    564TELC MONITORS THE COMPUTING OF THE LOAD PORTION OF THE TEST F2505590
    565DECREMENT. F2505600
    04406 0 53400 1 05131 566TELC LXAL(3),1 F2505610
  2. References (3)
    06031 0 07400 4 04410 1391TSXTELC+2,4 COMPUTES LOAD VALUE FOR F2513920
    05346 0 07400 4 04406 1889TSXTELC,4 COMPUTE LOAD F2518890
    05644 0 07400 4 04410 2079TSXTELC+2,4 F2520790
␣␣TETG = 3235
  1. Definition
    1534TETG DETERMINES FOR WHICH DOS A GIVEN TAG IS A TEST. THIS F2515330
    1535INFORMATION IS RECORDED IN TAG4. F2515360
    06243 0 50000 0 03652 1536 TETG CLATAG3 ISOLATE F2515370
  2. References (2)
    05312 0 07400 4 06243 1055TSXTETG,4 PLACE TEST BITS IN TAG WORD. F2510560
    06275 2 00001 1 06255 1562TETG5 TIXTETG+10,1,1 DEAL WITH NEXT SUBSCRIPT, F2515630
␣␣TGA5 = 3398
  1. Definition
    06506 2 00001 1 06511 1719TGA5 TIXTGA10,1,1 SHIFT LEFT FOR S1 OR S2 F2517200
  2. Reference
    06512 0 02000 0 06506 1723TRATGA5 F2517240
␣␣TGA8 = 3399
  1. Definition
    06507−0 60200 2 02646 1720TGA8 ORSMXTGA,2 ADDRESS IS ORIGIN PLUS MAX F2517210
  2. References (4)
    05715 0 62100 0 06507 1315STATGA8 F2513160
    05750 0 62100 0 06507 1342STATGA8 F2513430
    06214 0 62100 0 06507 1506STATGA8 F2515070
    06221 0 62100 0 06507 1511STATGA8 END OF BETA CYCLE8 RETURN TO 1 PLUS F2513120
␣␣TGAT = 3391
  1. Definition
    06477 0 77100 0 00003 1712TGAT ARS3 FOR TX LOC, DIV VCTOR BY 8. F2517130
  2. Reference
    06142 0 07400 4 06477 1464TSXTGAT,4 FOR SXD ADDRESS IS OBJECT TIME. F2514650
␣␣TGFM = 2187
  1. Definition
    424*************************************************************F2504190
    425TGFM TAKES A TAG ENTRY AND STORES ITS INFORMATION INTO F2504200
    426WORKING TGTG. F2504210
    04213 0 50000 1 02336 427 TGFM CLAMXTGTG,1 F2504220
  2. References (2)
    04174 0 07400 4 04213 407TSXTGFM,4 F2504020
    05771 0 07400 4 04213 1359TSXTGFM,4 FILL OUT TAG WORDS. F2513600
␣␣TGTG = 574
  1. Definition
    01076 163TGTG BSS672 F2501570
  2. References (2)
    01242 3105ZEKSUM SYNTGTG+100 F2531050
    02336 3124MXTGTG SYNTGTG+672 F2531240
␣␣VCTR = 2724
  1. Definition
    05244 1012VCTR BSS1 F2510130
  2. References (8)
    03704 0 60100 0 05244 207STOVCTR INSTRUCTION COUNTER F2502010
    04340 0 50000 0 05244 519CLAVCTR F2505140
    04343 0 60100 0 05244 522STOVCTR - F2505170
    05257−0 53400 1 05244 1028LXDVCTR,1 VARIABLE CTR. LAST BETA. F2510290
    05267 0 60100 0 05244 1036STOVCTR VCTR AND F2510370
    06224 0 50000 0 05244 1517CILV CLAVCTR THIS ROUTINE UPDATES F2515180
    06227 0 60100 0 05244 1520STOVCTR IT IS CALLED WHEN F2515210
    05257 0 60100 0 05244 1834STOVCTR DOTAG ALPHA IS LOCATION. F2518340
␣␣X2CI = 3936
  1. Definition
    07540 0 07573 2 34321 3073X2CI 14545,2,OR000+5 F2530730
  2. Reference
    07403 0 00000 0 07540 2980LX2CI X2CI F2529800
␣␣XCI6 = 3894
  1. Definition
    07466−2 00043 4 34362 3031XCI6 TNX14578,4,35 LLS F2530310
  2. References (2)
    07374 0 00000 0 07466 2973LXCI6 XCI6 F2529730
    07404 0 00000 0 07467 2981LXCI61 XCI6+1 F2529810
␣␣XCI8 = 3896
  1. Definition
    07470 0 07605 6 26324 3033XCI8 11476,6,OR000+15 F2530330
  2. Reference
    07405 0 00000 0 07470 2982LXCI8 XCI8 F2529820
␣␣XCIE = 3947
  1. Definition
    07553−2 00043 4 34362 3084XCIE TNX14578,4,35 LLS F2530840
  2. References (2)
    07375 0 00000 0 07553 2974LXCIE XCIE F2529740
    07376 0 00000 0 07554 2975LXCIE1 XCIE+1 F2529750
␣␣XOR0 = 3743
  1. Definition
    2872*************************************************************F2528720
    2873XOR0 FILLS OUT OR0 FOR N1, N2, N3, GIVEN DO IN B AND POS IN AF2528730
    07237−0 63400 4 07260 2874XOR0 SXDXOR032,4 F2528740
  2. References (2)
    06102 0 07400 4 07237 2237TSXXOR0,4 NO, PLACE N SYMBOLS F2522370
    07232−0 10000 0 07237 2867TNZXOR0 ACC. F2528670
␣0P2P1 = 2503
  1. Definition
    04707 0 07400 4 04601 7870P2P1 TSXFIXCON,4 F2507880
  2. Reference
    04705−3 00002 1 04707 785TXL0P2P1,1,2 F2507860
␣0P2P2 = 2507
  1. Definition
    04713 0 73400 1 00000 7910P2P2 PAX0,1 F2507920
  2. Reference
    04710−3 00002 1 04713 788TXL0P2P2,1,2 F2507890
␣0PMSK = 2666
  1. Definition
    05152+000000074030 9540PMSK OCT74030 F2509550
  2. Reference
    05444 0 50000 0 05152 1951CLA0PMSK F2519510
␣6ONES = 2628
  1. Definition
    05104−370000000000 9166ONES OCT770000000000 F2509170
  2. References (20)
    04677−0 32000 0 05104 779ANA6ONES F2507800
    04714−0 32000 0 05104 792ANA6ONES ASSIGN FIXCON SYMBOL F2507930
    04735−0 32000 0 05104 809ANA6ONES F2508100
    04753−0 32000 0 05104 826ANA6ONES CLA F2508270
    05002−0 32000 0 05104 849ANA6ONES F2508500
    05030−0 32000 0 05104 871ANA6ONES AND PREPARE F2508720
    06004−0 32000 0 05104 1370ANA6ONES F2513710
    05365−0 32000 0 05104 1904ANA6ONES F2519040
    05561−0 32000 0 05104 2028ANA6ONES F2520280
    05614−0 32000 0 05104 2055ANA6ONES 18 N2 CONSTANT. F2520550
    05652−0 32000 0 05104 2085ANA6ONES AND COMPILE F2520850
    06142−0 32000 0 05104 2269ANA6ONES FOR F2522690
    06154−0 32000 0 05104 2279ANA6ONES F2522790
    06216−0 32000 0 05104 2313ANA6ONES THIS F2523130
    06620−0 32000 0 05104 2582ANA6ONES MPY L(C1., F2525820
    06631−0 32000 0 05104 2591ANA6ONES F2525910
    07007−0 32000 0 05104 2705ANA6ONES ALS17 F2527050
    07017−0 32000 0 05104 2713ANA6ONES F2527130
    07325−0 32000 0 05104 2933ANA6ONES WORD. F2529330
    07334−0 50000 0 05104 2940CAL6ONES IN CIL02. F2529400
␣6T017 = 2681
  1. Definition
    05171+007777000000 9696T017 OCT007777000000 F2509700
  2. Reference
    05602−0 32000 0 05171 2045ANA6T017 NAME OF TEST F2520450
␣A1000 = 3903
  1. Definition
    07477 0 07566 2 34321 3040A1000 14545,2,OR000 F2530400
  2. Reference
    07362 0 00000 0 07477 2963K2AOR0 A1000 F2529630
␣A1001 = 3904
  1. Definition
    07500 0 07604 6 26324 3041A1001 11476,6,OR000+14 F2530410
  2. Reference
    07363 0 00000 0 07500 2964K3AOR0 A1001 F2529640
␣A1C00 = 3899
  1. Definition
    07473 0 07566 4 32450 3036A1C00 13608,4,OR000 F2530360
  2. Reference
    07360 0 00000 0 07473 2961K1AOR0 A1C00 F2529610
␣A1C01 = 3900
  1. Definition
    07474 0 07611 4 44770 3037A1C01 18936,4,OR000+19 F2530370
  2. Reference
    07361 0 00000 0 07474 2962KIAOR0 A1C01 F2529620
␣ABDRM = 2035
  1. Definition
    254************************************************************ F2502412
    255ABDRM IS CALLED BY MAN TO WRITE THE PROPEER DRUM STATE8 ALPHAF2502400
    256OR BETA, INTO CORES WHEN NECESSARY. F2502500
    03763−0 63400 4 05223 257 ABDRM SXDERORBX,4 STORE LINKAGE F2ZA1510
  2. Reference
    03715 0 07400 4 03763 216 MAN35 TSXABDRM,4 NO. READ STATE FROM DRUM F2502100
␣AC010 = 2765
  1. Definition
    05315 0 07400 4 04162 1864AC010 TSXFIND,4 AND BETA. F2518640
  2. References (3)
    05164 0 00000 0 05315 964INST11 AC010 F2509650
    05323−0 10000 0 05315 1870AC016 TNZAC010 THE OUTERMOST DO. F2518700
    06237 0 02000 0 05315 2330AC240 TRAAC010 F2523300
␣AC014 = 2768
  1. Definition
    05320 0 07400 4 04373 1867AC014 TSXSCLMN1,4 OBTAIN X FOR MINLEV OF S.C F2518670
  2. Reference
    D06252−3 00000 0 05320 2341AC248 TXLAC014,0 VALID ENTRY, CONTINUE AC CYCLE. F2523410
␣AC016 = 2771
  1. Definition
    05323−0 10000 0 05315 1870AC016 TNZAC010 THE OUTERMOST DO. F2518700
  2. References (2)
    06245 0 62100 0 05323 2336STAAC016 F2523360
    06255 0 62100 0 05323 2344STAAC016 MODIFIED F2523440
␣AC018 = 2784
  1. Definition
    05340 0 50000 0 03652 1883AC018 CLATAG3 CURRENT TAG VALID, LAY F2518830
  2. Reference
    05325 3 00000 1 05340 1872TXHAC018,1,0 COMPILE PROPER INST. F2518720
␣AC019 = 2786
  1. Definition
    05342 0 07400 4 04236 1885AC019 TSXSUBCOM,4 WRKSC AND CONTINUE F2518850
␣AC020 = 2787
  1. Definition
    05343 0 07400 4 04560 1886AC020 TSXN1STET,4 F2518860
  2. Reference
    05333 0 02000 0 05343 1878TRAAC020 WRKSC AND CONTINUE F2518780
␣AC021 = 2797
  1. Definition
    05355 0 50000 0 05100 1896AC021 CLABCD0 F2518960
  2. Reference
    05337 0 02000 0 05355 1882TRAAC021 DECRENENT AND CONTINUE F2518820
␣AC022 = 2799
  1. Definition
    05357 0 50000 0 05051 1898AC022 CLAL(LXD) F2518980
  2. Reference
    05354 0 02000 0 05357 1895TRAAC022 CONTINUE. F2518950
␣AC024 = 2814
  1. Definition
    05376 0 07400 4 04345 1913AC024 TSXCIT,4 PUT IN DOFILE. F2519130
  2. Reference
    05371 0 10000 0 05376 1908TZEAC024 F2519080
␣AC030 = 2816
  1. Definition
    05400 0 50000 0 03653 1915AC030 CLATAG4 VARIABLE CASE, THE BITS FOR F2519150
  2. Reference
    05345−0 10000 0 05400 1888TNZAC030 VARIABLE, TRA AC030. F2518880
␣AC040 = 2831
  1. Definition
    05417 0 50000 0 05126 1930AC040 CLAL(1) REPEAT FOR F2519300
  2. Reference
    05415 0 02000 0 05417 1928TRAAC040 S1 NOT DEFINED. F2519280
␣AC046 = 2838
  1. Definition
    05426 0 50000 0 05133 1937AC046 CLAL(0) REPEAT FOR F2519370
  2. Reference
    05421 0 02000 0 05426 1932TRAAC046 S2 NOT DEFINED. F2519320
␣AC048 = 2851
  1. Definition
    05443 0 07400 4 07172 1950AC048 TSXCOSE,4 TEST COEFFS GREATER THAN 1. F2519500
  2. References (3)
    05430 0 02000 0 05443 1939TRAAC048 S3 NOT DEFINED. F2519390
    05450−3 00000 1 05452 1955TXLAC048+7,1,0 IF S2 DEF BY DO, F2519550
    05453−3 00000 1 05455 1958TXLAC048+10,1,0 OR N1S OF S2 AND S3. F2519580
␣AC049 = 2874
  1. Definition
    05472 0 53400 1 05127 1973AC049 LXAL(2),1 F2519730
  2. References (2)
    05446−0 10000 0 05472 1953TNZAC049 SOME OF ABOVE EXIST. F2519530
    05457 0 12000 0 05472 1962TPLAC049 DEFINED BY A DO, F2519620
␣AC050 = 2895
  1. Definition
    05517 0 50000 0 07353 1994AC050 CLAKLX02 L(LXI02) F2519940
  2. References (2)
    04712 2 00001 1 05517 790TIXAC050,1,1 F2507910
    05515 0 02000 0 05517 1992TRAAC050 GREATER THAN 1, F2519920
␣AC064 = 2899
  1. Definition
    05523 0 50000 0 05252 1998AC064 CLAOREDO F2519980
  2. References (2)
    05510 0 02000 0 05523 1987TRAAC064 S1 IS NOT DEF., TAKE S2. F2519870
    05724 0 02000 0 05523 2127TRAAC064 F2521270
␣AC068 = 2910
  1. Definition
    05536 0 50000 0 07356 2009AC068 CLAKLX03I F2520090
  2. References (2)
    05533 0 02000 0 05536 2006TRAAC068 NO F2520060
    05535 1 00002 1 05537 2008TXIAC068+1,1,2 INCREMENT COMPILING COUNTER. F2520080
␣AC080 = 2912
  1. Definition
    05540 0 50000 0 05252 2011AC080 CLAOREDO F2520110
  2. References (2)
    05526 0 02000 0 05540 2001TRAAC080 S2 NOT DEFINED. S3. F2520010
    05723−3 00002 2 05540 2126TXLAC080,2,2 F2521260
␣AC084 = 2922
  1. Definition
    05552 0 50000 0 07357 2021AC084 CLAKLX05I C3=1, COMPILE KLX05I F2520210
  2. References (2)
    05547 0 02000 0 05552 2018TRAAC084 NONE. F2520180
    05551 1 00002 1 05553 2020TXIAC084+1,1,2 KLX05 BLOCK. F2520200
␣AC096 = 2924
  1. Definition
    05554 0 07400 4 07131 2023AC096 TSXCIL03I,4 COMPILE F2520230
  2. References (3)
    05542 0 02000 0 05554 2013TRAAC096 S3 NOT DEFINED, EXIT. F2520130
    05720 0 60100 0 05554 2123STOAC096 F2521230
    05726 0 60100 0 05554 2129STOAC096 F2521290
␣AC100 = 2933
  1. Definition
    05565 0 50000 0 07620 2032AC100 CLAOR000+26 F2520320
  2. References (2)
    05412 0 10000 0 05567 1925TZEAC100+2 TRA AC100+2. F2519250
    05471 0 02000 0 05564 1972TRAAC100−1 T0 INIT PORTION, F2519720
␣AC109 = 2936
  1. Definition
    05570−0 63400 1 05207 2035AC109 SXDAX,1 CHECK FOR F2520350
  2. Reference
    05744 2 00001 1 05570 2143TIXAC109,1,1 REDUCE POS. CTR. F2521430
␣AC110 = 2940
  1. Definition
    05574−2 00001 1 05601 2039AC110 TNXAC116,1,1 F2520390
  2. References (2)
    05576 0 02000 0 05574 2041TRAAC110 EXCEPT F2520410
    05600 0 02000 0 05574 2043TRAAC110 F2520430
␣AC116 = 2945
  1. Definition
    05601 0 50000 2 01106 2044AC116 CLADOTAGZ+8,2 ISOLATE F2520440
  2. Reference
    05574−2 00001 1 05601 2039AC110 TNXAC116,1,1 F2520390
␣AC120 = 2955
  1. Definition
    05613 0 50000 2 01101 2054AC120 CLADOTAGZ+3,2 THIS IS TEST TAG, F2520540
  2. Reference
    05611 0 02000 0 05613 2052TRAAC120 THIS IS A TEST TAG. F2520520
␣AC128 = 2962
  1. Definition
    05622 0 50000 2 01101 2061AC128 CLADOTAGZ+3,2 F2520610
  2. Reference
    05615−0 10000 0 05622 2056TNZAC128 F2520560
␣AC138 = 2967
  1. Definition
    05627 0 56000 2 01104 2066AC138 LDQDOTAGZ+6,2 CONSTANT N2 CASE. F2520660
  2. References (2)
    05620 0 10000 0 05627 2059TZEAC138 INSTEAD OF F2520590
    05621 0 02000 0 05633 2060TRAAC138+4 F2520600
␣AC139 = 2983
  1. Definition
    05647 0 76700 0 00022 2082AC139 ALS18 F2520820
  2. References (3)
    05636−2 00001 1 05647 2073TNXAC139,1,1 F2520730
    05642−0 10000 0 05646 2077TNZAC139−1 F2520770
    05645 0 02000 0 05647 2080TRAAC139 F2520800
␣AC140 = 2992
  1. Definition
    05660 0 50000 0 05126 2091AC140 CLAL(1) F2520910
  2. Reference
    05626 0 02000 0 05660 2065TRAAC140 RELATIVE ADDRESS. F2520650
␣AC144 = 2997
  1. Definition
    05665 0 50000 0 05053 2096AC144 CLAL(CLA) G = 1, F2520960
  2. Reference
    05657 0 02000 0 05665 2090TRAAC144 F2520900
␣AC146 = 3003
  1. Definition
    05673 0 40000 0 05126 2102AC146 ADDL(1) G GREATER THAN 1, F2521020
  2. Reference
    05664−0 10000 0 05673 2095TNZAC146 F2520950
␣AC150 = 3012
  1. Definition
    05704−0 53400 1 05207 2111AC150 LXDAX,1 F2521110
  2. Reference
    05672 0 02000 0 05704 2101TRAAC150 F2521010
␣AC155 = 3029
  1. Definition
    05725 0 50000 0 05167 2128AC155 CLAINST14 F2521280
  2. References (2)
    05166 0 02000 0 05725 966INST13 TRAAC155 F2509670
    05731 1 00004 4 05732 2132TXIAC155+5,4,4 F2521320
␣AC157 = 3035
  1. Definition
    05733 0 07400 4 07211 2134AC157 TSXTESTL0,4 F2521340
  2. References (2)
    05712 0 10000 0 05733 2117TZEAC157 F2521170
    05713−2 00001 2 05733 2118TNXAC157,2,1 F2521180
␣AC160 = 3043
  1. Definition
    05743−0 53400 1 05207 2142AC160 LXDAX,1 F2521420
  2. References (5)
    05573−3 00000 2 05743 2038TXLAC160,2,0 POS. NOT M0D. BY DO. F2520380
    05577 0 02000 0 05743 2042TRAAC160 RIGHTMOST. F2520420
    05610 0 02000 0 05743 2051TRAAC160 NOT A TEST TAG. F2520510
    05612 0 02000 0 05743 2053TRAAC160 NOT A TEST TAG. F2520530
    05632 0 10000 0 05743 2069TZEAC160 NO, TAKE NEXT SUB. F2520690
␣AC165 = 3064
  1. Definition
    05770 0 50000 0 05237 2163AC165 CLAXTG START SCANNING F2521630
  2. References (4)
    05746 0 12000 0 05770 2145TPLAC165 FOR FORVAR. F2521450
    05752 0 10000 0 05770 2149TZEAC165 NO, AC165. F2521490
    06247 0 62100 0 05773 2338STAAC165+3 F2523380
    06257 0 62100 0 05773 2346STAAC165+3 CYCLE, F2523460
␣AC166 = 3071
  1. Definition
    05777−0 63400 1 05207 2170AC166 SXDAX,1 APP. TGTG AND F2521700
  2. Reference
    06061 2 00001 1 05777 2220TIXAC166,1,1 CONSIDERED FOR TXIS, TAKE NEXT RT. F2522200
␣AC168 = 3074
  1. Definition
    06002−2 00001 1 06005 2173AC168 TNXAC170,1,1 OF TXI F2521730
  2. Reference
    06004 0 02000 0 06002 2175TRAAC168 WITH VARIABLE F2521750
␣AC170 = 3077
  1. Definition
    06005−0 32000 0 05170 2176AC170 ANA6ONESR DECREMENTS. F2521760
  2. Reference
    06002−2 00001 1 06005 2173AC168 TNXAC170,1,1 OF TXI F2521730
␣AC171 = 3086
  1. Definition
    06016−0 10000 0 06021 2185AC171 TNZAC172 THIS BLOCK D SPECIAL. F2521850
␣AC172 = 3089
  1. Definition
    06021 0 56000 0 03640 2188AC172 LDQWRKSC+2 TES, SET UP F2521880
  2. Reference
    06016−0 10000 0 06021 2185AC171 TNZAC172 THIS BLOCK D SPECIAL. F2521850
␣AC173 = 3101
  1. Definition
    06035−3 00001 1 06037 2200AC173 TXLAC174,1,1 IS POSITION S3) F2522000
  2. Reference
    06014−3 00002 1 06035 2183TXLAC173,1,2 F2521830
␣AC174 = 3103
  1. Definition
    06037 0 77100 0 00035 2202AC174 ARS29 FROM TAG4 AND F2522020
  2. Reference
    06035−3 00001 1 06037 2200AC173 TXLAC174,1,1 IS POSITION S3) F2522000
␣AC176 = 3106
  1. Definition
    06042 3 00000 4 06045 2205AC176 TXHAC176+3,4,0 INSTRUCTIONS FOR THAT BLOCK. F2522050
  2. References (2)
    06020 0 02000 0 06042 2187TRAAC176 TSX AOR0 F2521870
    06042 3 00000 4 06045 2205AC176 TXHAC176+3,4,0 INSTRUCTIONS FOR THAT BLOCK. F2522050
␣AC178 = 3112
  1. Definition
    06050 3 00002 4 06053 2211AC178 TXHAC182,4,2 F2522110
  2. Reference
    06045 3 00001 4 06050 2208TXHAC178,4,1 F2522080
␣AC182 = 3115
  1. Definition
    06053 3 00003 4 06056 2214AC182 TXHAC186,4,3 F2522140
  2. Reference
    06050 3 00002 4 06053 2211AC178 TXHAC182,4,2 F2522110
␣AC186 = 3118
  1. Definition
    06056 0 07400 4 06541 2217AC186 TSXEOR0,4 BLOCK E. F2522170
  2. Reference
    06053 3 00003 4 06056 2214AC182 TXHAC186,4,3 F2522140
␣AC190 = 3120
  1. Definition
    06060−0 53400 1 05207 2219AC190 LXDAX,1 IF ALL SUBS HAVE NOT BEEN F2522190
  2. References (7)
    06006 0 10000 0 06060 2177TZEAC190 NONE, AC190. F2521770
    06034 0 02000 0 06060 2199TRAAC190 F2521990
    06044 0 02000 0 06060 2207TRAAC190 F2522070
    06047 0 02000 0 06060 2210TRAAC190 F2522100
    06052 0 02000 0 06060 2213TRAAC190 F2522130
    06055 0 02000 0 06060 2216TRAAC190 F2522160
    06057 0 02000 0 06060 2218TRAAC190 F2522180
␣AC200 = 3123
  1. Definition
    06063−0 63400 1 05207 2222AC200 SXDAX,1 TXI PHASE, START TIX. F2522220
  2. Reference
    06236 2 00001 1 06063 2329TIXAC200,1,1 F2523290
␣AC210 = 3125
  1. Definition
    06065−2 00001 1 06070 2224AC210 TNXAC214+1,1,1 F2522240
  2. Reference
    06067 0 02000 0 06065 2226AC214 TRAAC210 F2522260
␣AC214 = 3127
  1. Definition
    06067 0 02000 0 06065 2226AC214 TRAAC210 F2522260
  2. Reference
    06065−2 00001 1 06070 2224AC210 TNXAC214+1,1,1 F2522240
␣AC220 = 3141
  1. Definition
    06105 0 50000 2 07367 2240AC220 CLAKTX00+3,2 X QUANTITY F2522400
  2. Reference
    06101 0 10000 0 06107 2236TZEAC220+2 F2522360
␣AC224 = 3149
  1. Definition
    06115 0 02000 0 06172 2248AC224 TRAAC230 G1 = 1. F2522480
  2. Reference
    05160 0 02000 0 06115 960INST4 TRAAC224 F2509610
␣AC228 = 3150
  1. Definition
    06116−0 53400 1 05207 2249AC228 LXDAX,1 G1 NOT = 1, F2522490
  2. Reference
    05161 0 02000 0 06116 961INST5 TRAAC228 F2509620
␣AC230 = 3194
  1. Definition
    06172−0 53400 1 05207 2293AC230 LXDAX,1 G=1, F2522930
  2. Reference
    06115 0 02000 0 06172 2248AC224 TRAAC230 G1 = 1. F2522480
␣AC234 = 3225
  1. Definition
    06231 0 50000 0 05157 2324AC234 CLAINST3 RESET MODIFIED AOR0. F2523240
  2. References (5)
    06134 0 02000 0 06231 2263TRAAC234 EXIT TIX INITIAL1ZATION. F2522630
    06165 0 02000 0 06231 2288TRAAC234 EXIT TIX INITIALIZATION, F2522880
    06171 0 02000 0 06231 2292TRAAC234 EXIT TIX INITIALIZATION. F2522920
    06210 0 02000 0 06231 2307TRAAC234 EXIT TIX INITIALIZATION. F2523070
    06225 0 02000 0 06231 2320TRAAC234 EXIT TIX INITIALIZATION. F2523200
␣AC236 = 3229
  1. Definition
    06235−0 53400 1 05207 2328 AC236 LXDAX,1 F2523280
  2. Reference
    06071 0 10000 0 06235 2228TZEAC236 IS THERE A TIX VAR. DEC. LOC. F2522280
␣AC240 = 3231
  1. Definition
    06237 0 02000 0 05315 2330AC240 TRAAC010 F2523300
  2. References (5)
    05316 0 02000 0 06240 1865TRAAC240+1 END OF DO FOR DOTAG. F2518650
    05775 0 10000 0 06237 2168TZEAC240 NONE, AC240. F2521680
    06241 1 00004 2 06242 2332TXIAC240+3,2,4 F2523320
    06244 0 62100 0 06237 2335STAAC240 MODIFY RETURN FOR ADTG ENTRY. F2523350
    06254 0 62100 0 06237 2343STAAC240 INSTRUCTIONS F2523430
␣AC244 = 3240
  1. Definition
    06250 0 07400 4 04516 2339AC244 TSXADTGSE,4 FIND VALID ADTG ENTRY. F2523390
  2. Reference
    05162 0 00000 0 06250 962INST8 AC244 F2509630
␣AC248 = 3242
  1. Definition
    D06252−3 00000 0 05320 2341AC248 TXLAC014,0 VALID ENTRY, CONTINUE AC CYCLE. F2523410
  2. References (2)
    05256−0 63400 4 06252 1833AC SXDAC248,4 STORE LINKAGE F2518330
    06272−0 53400 4 06252 2357AC260 LXDAC248,4 END OF F2523570
␣AC250 = 3243
  1. Definition
    06253 0 50000 0 05164 2342AC250 CLAINST11 REINITIALIZE F2523420
  2. Reference
    06251 0 02000 0 06253 2340TRAAC250 END OF TABLE , GET NEXT DO. F2523400
␣AC260 = 3258
  1. Definition
    06272−0 53400 4 06252 2357AC260 LXDAC248,4 END OF F2523570
  2. Reference
    06261 0 10000 0 06272 2348TZEAC260 A BSS INST SO F2523480
␣ACI21 = 3135
  1. Definition
    06077 0 50000 2 01102 2234ACI21 CLADOTAGZ+4,2 THIS DO. F2522340
␣ACI22 = 3165
  1. Definition
    06135 0 07400 4 04741 2264ACI22 TSXOP3,4 N3= 1, N1 NOT = 1, F2522640
  2. Reference
    06126−0 10000 0 06135 2257TNZACI22 N1 NOT = 1. F2522570
␣ACI23 = 3209
  1. Definition
    06211 0 07400 4 04741 2308ACI23 TSXOP3,4 N3=1, N1 NOT = 1. F2523080
  2. Reference
    06202−0 10000 0 06211 2301TNZACI23 NO. F2523010
␣AD202 = 2613
  1. Definition
    05065 0 00000 0 00312 901AD202 202 F2509020
  2. Reference
    03742 0 46000 0 05065 237LDAAD202 F2502310
␣ADMSK = 2657
  1. Definition
    05141+000000077777 945ADMSK OCT77777 F2509460
  2. References (19)
    04450−0 32000 0 05141 607ANAADMSK ISOLATE X QUANTITY. F2506030
    05405−0 32000 0 05141 1115ANAADMSK FOR TGA ROUTINE. F2511160
    05424−0 32000 0 05141 1130ANAADMSK STORE F2511310
    05663−0 32000 0 05141 1289ANAADMSK AND POSITION. (LEFT SUB DO). F2512900
    05736−0 32000 0 05141 1332ANAADMSK AND ENTRY IS MADE F2513330
    06141−0 32000 0 05141 1463ANAADMSK MUST BE STORED IN TGA WORD F2514640
    06230−0 32000 0 05141 1521ANAADMSK WE NEED A LOCATION F2515220
    06244−0 32000 0 05141 1537ANAADMSK TAG NAME. F2515380
    06524−0 32000 0 05141 1737ANAADMSK F2517380
    06551−0 32000 0 05141 1761ANAADMSK APPENDED TAG WORD. F2517620
    06564−0 32000 0 05141 1772ANAADMSK INTO DOTAG ENTRY FOR F2517730
    06572−0 32000 0 05141 1778ANAADMSK REMAINING TWO BLOCKS. F2517790
    06630−0 32000 0 05141 1814ANAADMSK RELATIVE PART, F2518150
    06635−0 32000 0 05141 1821ANAADMSK ENTERS THE F2518220
    06330−0 32000 0 05141 2394ANAADMSK WITH PROPER BETA. F2523940
    06706−0 32000 0 05141 2640ANAADMSK FORM LOCATION F2526400
    07134−0 32000 0 05141 2793ANAADMSK INSTRUCGIN. F2527930
    07222−0 32000 0 05141 2857ANAADMSK LOCATION F2528570
    07234−0 32000 0 05141 2869ANAADMSK F2528690
␣ADTGA = 1950
  1. Definition
    03636 3117ADTGA SYNOADTGA+100 F2531170
  2. References (3)
    03674 0 60100 2 03636 199 STO STOADTGA,2 TO F2501930
    05113 0 00000 0 03636 923INST20 ADTGA F2509240
    05163 0 00000 0 03636 963INST10 ADTGA F2509640
␣ADTGS = 2383
  1. Definition
    04517 1 77774 1 04520 656ADTGS TXIADTGS+1,1,−4 F2506520
  2. References (4)
    04517 1 77774 1 04520 656ADTGS TXIADTGS+1,1,−4 F2506520
    04530 0 02000 0 04517 665TRAADTGS OF THE CURRENT DO F2506610
    04532 0 02000 0 04517 667TRAADTGS NOT IN RANGE, SELECT NEXT F2506630
    04556 3 00002 2 04517 687TXHADTGS,2,2 NOT MOD BY DO, TAKE NEXT SUBSCRIPT F2506830
␣ADTGX = 2702
  1. Definition
    05216 990ADTGX BSS1 F2509910
  2. Reference
    05302 0 60100 0 05216 1047STOADTGX F2510480
␣AINIT = 24
  1. Definition
    00030 0 53400 1 00131 23AINIT LXAL5,1 INITIALIZE ERROR COUNTER, F2500240
␣AOR05 = 3302
  1. Definition
    D06346−3 00000 0 06430 2408AOR05 TXLAOR040,0 F2524080
  2. References (2)
    06324−0 63400 4 06346 2390AOR0 SXDAOR05,4 F2523900
    06433−0 53400 4 06346 2461AOR050 LXDAOR05,4 RESTORE LINKAGE. F2524610
␣BCD15 = 2623
  1. Definition
    05077+170000000000 911BCD15 OCT170000000000 F2509120
  2. Reference
    06471 0 50000 0 05077 1701CLABCD15 AND INITIALIZES LOC. WORD F2517020
␣BCDE2 = 3447
  1. Definition
    D06567−3 00000 0 06577 1775BCDE2 TXLBCDE9,0 BLOCKS D,E CONTINUE. F2517760
  2. References (2)
    06546−0 63400 4 06567 1758BCDE SXDBCDE2,4 F2517590
    06616−0 53400 4 06567 1798LXDBCDE2,4 F2517990
␣BCDE5 = 3448
  1. Definition
    06570 0 50000 0 05176 1776BCDE5 CLACIL00 BLOCK B OR C . F2517770
  2. Reference
    06561−3 00002 2 06570 1769TXLBCDE5,2,2 TEST FOR BLOCKS B OR C. F2517700
␣BCDE8 = 3454
  1. Definition
    06576−0 60200 1 01104 1782BCDE8 ORSDOTAGZ+6,1 F2517830
  2. Reference
    06574 3 00001 2 06576 1780TXHBCDE8,2,1 F2517810
␣BCDE9 = 3455
  1. Definition
    06577−0 75400 2 00000 1783BCDE9 PXD0,2 BLOCK NUMBER MUST BE F2517840
  2. Reference
    D06567−3 00000 0 06577 1775BCDE2 TXLBCDE9,0 BLOCKS D,E CONTINUE. F2517760
␣BINIT = 90
  1. Definition
    92************************************************************ F2300930
    93BINIT WRITES A SELECTED STATE, ALPHA OR BETA, ON DRUM2 OR 1 F2500940
    94RESPECTIVELY, F2500930
    00132 0 50000 0 00146 95 BINIT CLAL0 F2500960
  2. References (2)
    00063 0 07400 4 00132 51TSXBINIT,4 WRITE BLOCK A ON DRUM F2500520
    00067 0 07400 4 00132 57TSXBINIT,4 PLACE BLOCK B ON DRUM F2500580
␣BIT01 = 2626
  1. Definition
    05102−200000000000 914BIT01 OCT600000000000 F2509150
  2. Reference
    07327−0 32000 0 05102 2935ANABIT01 F2529350
␣BIT20 = 2668
  1. Definition
    05154+000000100000 956BIT20 OCT100000 F2509570
  2. References (4)
    06054 0 50000 0 05154 1410CLABIT20 TEST VAR1ABLE INDICATOR. F2514110
    05617−0 32000 0 05154 2058ANABIT20 GO TO AC138 +4 F2520580
    05641−0 32000 0 05154 2076ANABIT20 HAVE VARIABLE DECREMENT. F2520760
    05710−0 32000 0 05154 2115ANABIT20 F2521150
␣CDOR0 = 3260
  1. Definition
    2359*************************************************************F2523590
    2360CDOR0 TAKES COEF. AND DIM. AND FILLS OUT OR0. F2523600
    06274−0 63400 4 06277 2361CDOR0 SXDCDOR01,4 F2523610
␣CIL00 = 2686
  1. Definition
    05176 974CIL00 BSS1 F2509750
  2. References (31)
    04336 0 50000 0 05176 517CLACIL00 TO ZERO. F2505120
    04341 0 60100 0 05176 520STOCIL00 UPDATE VCTR. F2505150
    04363 0 50000 1 05202 542CIT05 CLACIL00+4,1 INST INTO BUFFER. F2505370
    04723 0 60100 0 05176 799STOCIL00 F2508000
    04762 0 60100 0 05176 833STOCIL00 ZERO LOCATION. F2508340
    05007 0 60100 0 05176 854STOCIL00 F2508550
    05271 0 60100 0 05176 1038STOCIL00 CIL BUFFER F2510390
    05404 0 50000 0 05176 1114CLACIL00 PREPARE VCTR LOCATION F2511150
    05422 0 60100 0 05176 1128STOCIL00 F2511290
    05662 0 50000 0 05176 1288CLACIL00 INSTRUCTION IN PROPER DOTAG ENTRY F2512890
    05735 0 50000 0 05176 1331CLACIL00 INSTRUCTION IS COMPILED F2513320
    06057 0 50000 0 05176 1413CLACIL00 STORE LOCATION F2514140
    06140 0 50000 0 05176 1462CLACIL00 WHEN DECREMENT IS VARIABLE, LOCATION F2514630
    06225 0 60100 0 05176 1518STOCIL00 VCTR AND F2515190
    06466 0 60100 0 05176 1698STOCIL00 F2516990
    06523 0 50000 0 05176 1736CLACIL00 F2517370
    06550 0 50000 0 05176 1760CLACIL00 MAKE LOCATION ENTRY INTO F2517610
    06562 0 50000 0 05176 1770CLACIL00 BLOCK D OR E. F2517710
    06570 0 50000 0 05176 1776BCDE5 CLACIL00 BLOCK B OR C . F2517770
    06625 0 50000 0 05176 1811CIL23 CLACIL00 THIS ROUTINE PLACES TAG IN F2518120
    05265 0 60100 0 05176 1840STOCIL00 IN F2518400
    05273 0 36100 0 05176 1846ACLCIL00 SXDTX F2518460
    05277 0 70000 0 05176 1850CPYCIL00 DRUM 1. F2518500
    05305 0 60100 0 05176 1856STOCIL00 TO ALL ONES AND F2518560
    05375 0 60100 0 05176 1912STOCIL00 COMPILED FOR AN ALPHA. F2519120
    05670 0 60100 0 05176 2099STOCIL00 LATER BY STD. F2520990
    T05740−0 63400 0 05176 2139SXDCIL00 AC160 TO F2521390
    06263 0 60100 0 05176 2350STOCIL00 WILL FUNCTION F2523500
    07132 0 60100 0 05176 2791STOCIL00 WORD AND TAG IN F2527910
    07306 0 60100 0 05176 2918STOCIL00 INSTRUCTION. F2529180
    07311 0 60100 0 05176 2921STOCIL00 F2529210
␣CIL01 = 2687
  1. Definition
    05177 975CIL01 BSS1 F2509760
  2. References (43)
    04512 0 60100 0 05177 648STOCIL01 F2506440
    04721 0 60100 0 05177 797STOCIL01 F2507980
    04731 0 60100 0 05177 805STOCIL01 F2508060
    04760 0 60100 0 05177 831STOCIL01 THE F2508320
    05011 0 60100 0 05177 856STOCIL01 F2508570
    05034 0 60100 0 05177 875STOCIL01 SUB F2508760
    05272 0 60100 0 05177 1039STOCIL01 TO ALL ONES. F2510400
    05340 0 60100 0 05177 1078STOCIL01 TXI F2510790
    05377 0 62100 0 05177 1109STACIL01 AFTER DECREMENT IS COMPUTED, FILL F2511100
    05411 0 60100 0 05177 1119STOCIL01 COMPILED INSTRUCTION F2511200
    05427 0 60100 0 05177 1133STOCIL01 FORVAR OCCURRANCE. F2511340
    05650 0 60100 0 05177 1278STOCIL01 NOW COMPILED. F2512790
    05671 0 60100 0 05177 1295STOCIL01 F2512960
    05742 0 60100 0 05177 1336STOCIL01 TXI AND PUT F2513370
    06033 0 60100 0 05177 1393RTX204 STOCIL01 FINAL TXL DECREHENT. F2513940
    06035−0 60200 0 05177 1395ORSCIL01 F2513960
    06046 0 60100 0 05177 1404STOCIL01 F2514050
    06131 0 60100 0 05177 1455STOCIL01 F2514560
    06145 0 60100 0 05177 1467STOCIL01 SC IS DEAD. F2514680
    06170 0 62100 0 05177 1486STACIL01 IN CIL01 WORD. F2514870
    06515 0 60100 0 05177 1730STOCIL01 DECREMENTS ARE KN0WN, F2517310
    06517 0 62100 0 05177 1732STACIL01 BE IN ERTX01 AND F2517330
    06537 0 60100 0 05177 1748STOCIL01 TIX. F2517490
    06541 0 62100 0 05177 1750STACIL01 TIX DECREMENT, F2517510
    06554 0 60100 0 05177 1764STOCIL01 COMPILED INSTRUCTIN, F2517650
    06613 0 60100 0 05177 1795STOCIL01 FOR 2ND WORD. F2517960
    05306 0 60100 0 05177 1857STOCIL01 PUT F2518570
    05360 0 60100 0 05177 1899STOCIL01 LXD F2518990
    05470 0 60100 0 05177 1971STOCIL01 WORDS AND CONTINUE F2519710
    05556 0 60100 0 05177 2025STOCIL01 F2520250
    05666 0 60100 0 05177 2097STOCIL01 COMPILE F2520970
    05737 0 60100 0 05177 2138STOCIL01 AND RETURN TO F2521380
    05757 0 60100 0 05177 2154STOCIL01 STORE F2521540
    05764 0 60100 0 05177 2159STOCIL01 SUBSCRIPT F2521590
    06137 0 60100 0 05177 2266STOCIL01 TIX F2522660
    06147 0 60100 0 05177 2274STOCIL01 F2522740
    06213 0 60100 0 05177 2310STOCIL01 TIX F2523100
    06270 0 60100 0 05177 2355STOCIL01 F2523550
    06615 0 60100 0 05177 2579STOCIL01 ADD L(1), F2525790
    06625 0 60100 0 05177 2587STOCIL01 F2525870
    07003 0 60100 0 05177 2701STOCIL01 ADD L(1) F2527010
    07013 0 60100 0 05177 2709STOCIL01 TO PC60. F2527090
    07315−0 60000 0 05177 2925STQCIL01 COMPILE OP. WORD. F2529250
␣CIL02 = 2688
  1. Definition
    05200 976CIL02 BSS1 F2509770
  2. References (41)
    04476 0 60100 0 05200 636STOCIL02 F2506320
    04506 0 60100 0 05200 644STOCIL02 FROM WD1 OF S1 DOTAG. F2506400
    04715 0 60100 0 05200 793STOCIL02 CHECK SUBSCRIPT. IF F2507940
    04736 0 60100 0 05200 810STOCIL02 F2508110
    04754 0 60100 0 05200 827STOCIL02 L(N2-N1) F2508280
    04772 0 60100 0 05200 841STOCIL02 COMPILE F2506420
    05003 0 60100 0 05200 850STOCIL02 F2508510
    05020 0 60100 0 05200 863STOCIL02 PREPARE TO F2508640
    05031 0 60100 0 05200 872STOCIL02 TO COMPILE F2508730
    05273 0 60100 0 05200 1040STOCIL02 F2510410
    05432 0 60100 0 05200 1136STOCIL02 IN RELATIVE ADDRESS F2511370
    06041 0 60100 0 05200 1399STOCIL02 ADDRESS. F2514000
    06052 0 60100 0 05200 1408STOCIL02 SYMBOLIC ADDRESS, F2514090
    06472 0 60100 0 05200 1702STOCIL02 AND PLACES TAG IN F2517030
    06626 0 60100 0 05200 1812STOCIL02 TAG WD. OF CIL03 AN0 1 F2518130
    05307 0 60100 0 05200 1858STOCIL02 INTO CIT F2518580
    05353 0 60100 0 05200 1894STOCIL02 FIXCON LOCATION SYMBOL. F2518940
    05356 0 60100 0 05200 1897STOCIL02 LXD ADDRESS T0 BCD ZERO. F2518970
    05362 0 50000 0 05200 1901CLACIL02 PLACE LXD ADDRESS F2519010
    05366 0 60100 0 05200 1905STOCIL02 ADDRESS. F2519050
    05465 0 60100 0 05200 1968STOCIL02 STO S1 OR N1 SYMBOL. F2519680
    05563 0 60100 0 05200 2030STOCIL02 F2520300
    05623 0 60100 0 05200 2062STOCIL02 PUT N2 WORD AS F2520620
    05653 0 60100 0 05200 2086STOCIL02 CLAL(GN2 + LOAD PORT.) F2520860
    05677 0 50000 0 05200 2106CLACIL02 F2521060
    05735 0 60100 0 05200 2136STOCIL02 COMPILE F2521360
    05754 0 60100 0 05200 2151STOCIL02 COMPILE F2521510
    05762 0 60100 0 05200 2157STOCIL02 OF F2521570
    06143 0 60100 0 05200 2270STOCIL02 THIS F2522700
    06155 0 60100 0 05200 2280STOCIL02 F2522800
    06217 0 60100 0 05200 2314STOCIL02 CASE. F2523140
    06265 0 60100 0 05200 2352STOCIL02 F2523520
    06621 0 60100 0 05200 2583STOCIL02 ALS 17, F2525830
    06632 0 60100 0 05200 2592STOCIL02 F2525920
    07010 0 60100 0 05200 2706STOCIL02 STD 1) +3 F2527060
    07020 0 60100 0 05200 2714STOCIL02 F2527140
    07321 0 60100 0 05200 2929STOCIL02 SYMBOLIC ADDRESS. F2529290
    07324−0 50000 0 05200 2932CALCIL02 TEST CIL02 F2529320
    07331−0 50000 0 05200 2937CALCIL02 FIRST CHARACTER NUMBERIC, F2529370
    07335 0 32000 0 05200 2941ANSCIL02 F2529410
    07343 0 60100 0 05200 2947STOCIL02 F2529470
␣CIL03 = 2689
  1. Definition
    05201 977CIL03 BSS1 F2509780
  2. References (36)
    04475 0 60100 0 05201 635STOCIL03 WHERE THE F2506310
    04510 0 62100 0 05201 646STACIL03 F2506420
    04717 0 60100 0 05201 795STOCIL03 COMPILE ADD L(SYMBOL). F2507960
    04733 0 60100 0 05201 807STOCIL03 F2508080
    04756 0 60100 0 05201 829STOCIL03 RETURN F2508300
    04774 0 60100 0 05201 843STOCIL03 F2508440
    05005 0 60100 0 05201 852STOCIL03 F2508530
    05022 0 60100 0 05201 865STOCIL03 SUBL(N1). F2508660
    05032−0 63400 4 05201 873SXDCIL03,4 SUB L(N1). F2508740
    05274 0 60100 0 05201 1041STOCIL03 F2510420
    05425 0 60100 0 05201 1131STOCIL03 INSTRUCTION F2511320
    06470 0 60100 0 05201 1700STOCIL03 F2517010
    06474 0 62100 0 05201 1704STACIL03 FOR INST. OF K DECREMENT. F2517050
    06632 0 60100 0 05201 1816STOCIL03 THE ADDRESS WORD CIL02 . F2518170
    06636 0 60100 0 05201 1822STOCIL03 TAG NAME F2518230
    05310 0 60100 0 05201 1859STOCIL03 AS FIRST ALPHA STAGE F2518590
    05367−0 63400 4 05201 1906SXDCIL03,4 RELATIVE ADDRESS. F2519060
    05562−0 63400 1 05201 2029SXDCIL03,1 F2520290
    05625 0 60100 0 05201 2064STOCIL03 ZERO AS THE F2520640
    05655 0 60100 0 05201 2088STOCIL03 F2520880
    05656−0 63400 1 05201 2089SXDCIL03,1 F2520890
    T05741−0 63400 0 05201 2140SXDCIL03 CONSIDER NEXT F2521400
    05766 0 60100 0 05201 2161STOCIL03 ITS F2521610
    06144−0 63400 1 05201 2271SXDCIL03,1 CASE. F2522710
    06151 0 60100 0 05201 2276STOCIL03 F2522760
    06156−0 63400 4 05201 2281SXDCIL03,4 F2522810
    06220−0 63400 1 05201 2315SXDCIL03,1 F2523150
    06266 0 60100 0 05201 2353STOCIL03 F2523530
    06622−0 63400 4 05201 2584SXDCIL03,4 STO 1)+3, F2525840
    06633−0 63400 4 05201 2593SXDCIL03,4 F2525930
    07006−0 63400 1 05201 2704SXDCIL03,1 MPY L(G) F2527040
    07021−0 63400 4 05201 2715SXDCIL03,4 F2527150
    07135 0 60100 0 05201 2794STOCIL03 F2527940
    07323 0 60100 0 05201 2931STOCIL03 ADDRESS. F2529310
    07333 0 62200 0 05201 2939STDCIL03 IN CIL03, LEFT HALF F2529390
    07341 0 60100 0 05201 2945STOCIL03 F2529450
␣CIL23 = 3477
  1. Definition
    1807*************************************************************F2518080
    1808CIL23 FILLS OUT THE ADDRESS AND TAG NAME WORDS FOR A COMPILEDF2518090
    1809INSTRUCTION WHEN THE ADDRESS IS TO BE THE NEXT SEQUENTIAL INSF2518100
    1810TRUCTION AND THE LOCATION WORD IS FILLED ELSEWHERE. F2518110
    06625 0 50000 0 05176 1811CIL23 CLACIL00 THIS ROUTINE PLACES TAG IN F2518120
  2. References (8)
    05407 0 07400 4 06625 1117TSXCIL23,4 AND THEN FILL OUT F2511180
    05646 0 07400 4 06625 1276TSXCIL23,4 THE REMAINING THREE ARE F2512770
    05667 0 07400 4 06625 1293TSXCIL23,4 F2512940
    05740 0 07400 4 06625 1334TSXCIL23,4 F2513350
    06137 0 07400 4 06625 1461TSXCIL23,4 LOCATION. F2514620
    06174 0 07400 4 06625 1490TSXCIL23,4 TEST. F2514910
    06555 0 07400 4 06625 1765TSXCIL23,4 FILL OUT REMAINING WORDS. F2517660
    06614 0 07400 4 06625 1796TSXCIL23,4 FILL OUT REMAINING WORDS. F2517970
␣CILV1 = 3228
  1. Definition
    06234 0 07400 4 00004 1525CILV1 TSXDIAG,4 TOO MANY INSTRUCTION NUMBERS. F2515260
  2. Reference
    06232 0 10000 0 06234 1523TZECILV1 INSTRUCTION. F2515240
␣CIT01 = 2286
  1. Definition
    04356 0 70000 1 00030 537CIT01 CPYCIB,1 COPY LOOP. F2505320
  2. Reference
    04361 3 00001 2 04356 540CIT03 TXHCIT01,2,1 TEST FOR BUFFER DNE. F2505350
␣CIT02 = 2288
  1. Definition
    04360 1 00001 2 04361 539CIT02 TXICIT03,2,1 DROP WORD COUNT. F2505340
  2. Reference
    04357 1 77777 1 04360 538TXICIT02,1,−1 F2505330
␣CIT03 = 2289
  1. Definition
    04361 3 00001 2 04356 540CIT03 TXHCIT01,2,1 TEST FOR BUFFER DNE. F2505350
  2. Reference
    04360 1 00001 2 04361 539CIT02 TXICIT03,2,1 DROP WORD COUNT. F2505340
␣CIT04 = 2290
  1. Definition
    04362 0 53400 1 05130 541CIT04 LXAL(4),1 PROCEED TO NEW F2505360
  2. References (2)
    04351 3 77634 2 04362 532TXHCIT04,2,−100 IF BUFFER INITIALLY F2505270
    04353−3 00000 2 04362 534TXLCIT04,2,0 WRITE F2505290
␣CIT05 = 2291
  1. Definition
    04363 0 50000 1 05202 542CIT05 CLACIL00+4,1 INST INTO BUFFER. F2505370
  2. Reference
    04366 2 00001 1 04363 545CIT07 TIXCIT05,1,1 F2505400
␣CIT07 = 2294
  1. Definition
    04366 2 00001 1 04363 545CIT07 TIXCIT05,1,1 F2505400
  2. Reference
    04365 1 77777 2 04366 544TXICIT07,2,−1 KEEP WORD COUNT UPDATED. F2505390
␣CITSP = 2282
  1. Definition
    04352−0 53400 2 05173 533CITSP LXDBB0X,2 F2505280
  2. References (3)
    03731 0 07400 4 04352 228 MAN50 TSXCITSP,4 WRITE CIT BUFFER ON TAPE F2502220
    05275 0 07400 4 04352 1042TSXCITSP,4 USE SPECIAL CIT ENTRY. F2510430
    05311 0 07400 4 04352 1860TSXCITSP,4 ENTRY. F2518600
␣CN1IJ = 2323
  1. Definition
    579*************************************************************F2505740
    580CN1IJ COMPUTES THE LOAD VALUE FOR A GIVEN SUBSCRIPT IN A F2505750
    581SUBSCRIPT COMBINATION. (C1N1-1), OR (C2N1-1)D1 F2505760
    04423 0 56000 2 01100 582CN1IJ LDQDOTAGZ+2,2 N2 INTO MQ. F2505770
  2. References (2)
    04415 0 07400 4 04423 573TSXCN1IJ,4 COMPUTE (CN1-1)IJ-ETC. F2505680
    04702 0 07400 4 04423 782TSXCN1IJ,4 F2507830
␣CN3IJ = 3367
  1. Definition
    1676*************************************************************F2516770
    1677CN3IJ COMPUTES THE INDEX INCREMENTING VALUE FOR EACH PASS THRF2516780
    1678THROUGH A DO LOOP. THIS IS THE NORHAL TXI DECREMENT. F2516790
    06447 0 56000 2 01102 1679CN3IJ LDQDOTAGZ+4,2 COMPUTES DECREMENT AND F2516800
  2. References (9)
    05343 0 07400 4 06447 1081TSXCN3IJ,4 ROUTINE COMPUTES DECREMENT N3G F2510820
    05360 0 07400 4 06447 1094TSXCN3IJ,4 1,2 OR 2,3 OR 1,2,3. F2510950
    05373 0 07400 4 06447 1105TSXCN3IJ,4 COMPUTE DECREMENT ADJUSTMENT FOR S1 F2511060
    05450 0 07400 4 06447 1150TSXCN3IJ,4 COMPUTE N3G AND F2511510
    05505 0 07400 4 06447 1179TSXCN3IJ,4 FOR RIGHT F2511800
    05516 0 07400 4 06447 1188RTX93 TSXCN3IJ,4 FOR DECREMENT AND F2511890
    05545 0 07400 4 06447 1211TSXCN3IJ,4 COMPUTE N3G FOR F2512120
    05557 0 07400 4 06447 1221RTX114 TSXCN3IJ,4 COMPUTE N3G F2512220
    05624 0 07400 4 06447 1258TSXCN3IJ,4 SUBSCRIPT (DOSUB). F2512590
␣COSE5 = 3709
  1. Definition
    07175 0 50000 1 03644 2833COSE5 CLAWRKSC+6,1 ISOLATE COEFFIEIENT, F2528330
  2. Reference
    07206 2 00001 2 07175 2842COSE10 TIXCOSE5,2,1 BUMP S.6. TEST AND LOOP, F2528420
␣CSXD4 = 2371
  1. Definition
    04503−0 53400 4 03647 641CSXD4 LXDTAG2,4 BLOCKS B,C, LOAD S1 INDEX. F2506370
  2. References (2)
    04500−3 00002 4 04503 638TXLCSXD4,4,2 BLOCKS B,C. F2506340
    04502 0 02000 0 04504 640TRACSXD4+1 F2506360
␣CXIJ1 = 2352
  1. Definition
    04460 0 56000 0 03640 615CXIJ1 LDQWRKSC+2 S2, LOAD C2. F2506110
  2. Reference
    04455−3 00002 1 04460 612TXLCXIJ1,1,2 S2. F2506080
␣CXIJ2 = 2353
  1. Definition
    04461 0 20000 0 05247 616CXIJ2 MPYERTX03 F2506120
  2. References (2)
    04454 0 02000 0 04461 611TRACXIJ2 F2506070
    04457 0 02000 0 04461 614TRACXIJ2 F2506100
␣CXIJ4 = 2360
  1. Definition
    04470 0 76300 0 00021 623CXIJ4 LLS17 F2506190
  2. References (2)
    04462 3 00002 1 04470 617TXHCXIJ4,1,2 IF S1, FINISHED. F2506130
    04465 3 00001 1 04470 620TXHCXIJ4,1,1 IF S2, FINISHED. F2506160
␣DEFDO = 2731
  1. Definition
    05253 1019DEFDO BSS1 F2510200
  2. References (2)
    05406 0 60100 0 05253 1921STODEFDO F2519210
    07152 0 50000 0 05253 2811CLADEFDO DEFINED. CHECK T0 SEE F2528110
␣DOIND = 2712
  1. Definition
    05230 1000DOIND BSS1 F2510010
  2. References (25)
    03700 0 60100 0 05230 203STODOIND F2501970
    03720−0 53400 2 05230 219 MAN40 LXDDOIND,2 F2502130
    04144−0 63400 1 05230 376SXDDOIND,1 DO INDICATOR SET F2503710
    04205 0 50000 0 05230 418CLADOIND WITH THE INDEX F2504130
    04230−0 53400 2 05230 442ENTR LXDDOIND,2 SYMBOL OF DO IS F2504370
    04554 0 40200 0 05230 685SUBDOIND TEST FOR MODIFICATION, F2506810
    05260−0 53400 2 05230 1029LXDDOIND,2 NEW DO F2510300
    05342−0 53400 2 05230 1080LXDDOIND,2 EXIT-ROUTINE. F2510810
    05372−0 53400 2 05230 1104LXDDOIND,2 F2511050
    05415−0 53400 2 05230 1123LXDDOIND,2 FORVAR F2511240
    05430−0 53400 2 05230 1134LXDDOIND,2 F2511350
    05446−0 53400 2 05230 1148LXDDOIND,2 PREPARE FOR F2511490
    05544−0 53400 2 05230 1210LXDDOIND,2 FOR CN3IJROUTINE. F2512110
    05623−0 53400 2 05230 1257LXDDOIND,2 FOR RIGHT F2512580
    05673−0 53400 2 05230 1297RTX160 LXDDOIND,2 FINDING S.C, WHICH F2512980
    05753−0 53400 2 05230 1345RTX196 LXDDOIND,2 THIS DO HAS NO TEST. THIS INFORMATION F2513460
    06000−0 53400 2 05230 1366LXDDOIND,2 ISOLATE F2513670
    06024−0 53400 2 05230 1386RTX202 LXDDOIND,2 PREPARE FOR AND CALL CXIJ F2513870
    06055−0 53400 2 05230 1411RTX214 LXDDOIND,2 ENTERONE IN BIT 20 IF F2514120
    06071 0 40200 0 05230 1423SUBDOIND WITH INDEX OF THE DO. F2514240
    06150−0 53400 2 05230 1470LXDDOIND,2 TEST FOR DUPLICATES F2514710
    06235−0 53400 2 05230 1528N3BIT LXDDOIND,2 THIS ROUTIN E ISOLATES F2515290
    05322 0 40200 0 05230 1869SUBDOIND TEST TO SEE IF THIS IS F2518690
    05747−0 53400 2 05230 2146LXDDOIND,2 FORVAR, IS IT F2521460
    07303−0 53400 2 05230 2915LXDDOIND,2 DECREMENT F2529150
␣DOR05 = 3410
  1. Definition
    D06522−3 00000 0 06527 2519DOR05 TXLDOR010,0 F2525190
  2. References (2)
    06502−0 63400 4 06522 2503DORO SXDDOR05,4 BLOCK D NORMAL. F2525030
    06537−0 53400 4 06522 2532LXDDOR05,4 INSTRUCTIONS TO INIT. VAR. F2525320
␣DOTAG = 124
  1. Definition
    00174 162DOTAG BSS450 F2501560
  2. Reference
    01076 3119DOTAGZ SYNDOTAG+450 F2531190
␣EDCB5 = 3419
  1. Definition
    D06533−3 00000 0 06535 1744EDCB5 TXLEDCB20,0 BLOCK B, SHIGT LEFT 18. F2517450
  2. References (3)
    06513−0 63400 4 06533 1728EDCB SXDEDCB5,4 COMPILES TXI SXD TIX F2517290
    06531 3 00001 4 06533 1742TXHEDCB5,4,1 BLOCKS C, B USE S1 DOTAG. F2517430
    06544−0 53400 4 06533 1753LXDEDCB5,4 F2517540
␣EOR01 = 3449
  1. Definition
    06571 0 50000 2 01101 2559EOR01 CLADOTAGZ+3,2 ISOLATE F2525590
  2. Reference
    06566−0 10000 0 06571 2556TNZEOR01 NO. F2525560
␣EOR02 = 3464
  1. Definition
    06610 0 07400 4 04741 2574EOR02 TSXOP3,4 COMPILE CLA (N2 - N1) F2525740
  2. Reference
    06563−0 10000 0 06610 2553TNZEOR02 N1 NOT = 1. F2525530
␣EOR03 = 3457
  1. Definition
    06601 0 53400 1 05126 2567EOR03 LXAL(1),1 COMPILE F2525670
  2. References (4)
    06604 1 00001 1 06605 2570TXIEOR03+4,1,1 COMPILE F2525700
    06613 0 10000 0 06601 2577TZEEOR03 UES, EOR03. F2525770
    06643 0 02000 0 06601 2601TRAEOR03 F2526010
    06700 0 02000 0 06601 2630TRAEOR03 F2526300
␣ERDRM = 2726
  1. Definition
    05246 3115ERDRM SYNERTX02 F2531150
  2. References (3)
    04621 0 70000 0 05246 729CPYERDRM SKIP EVEN ENTRIES FOR 2ND PASS. F2507300
    04625 0 70000 0 05246 733FC20 CPYERDRM SKIP EVEN ENTRIES FOR 2ND PASS. F2507340
    04635 0 70000 0 05246 741FC30 CPYERDRM F2507420
␣ERLXC = 2694
  1. Definition
    05206 982ERLXC BSS1 F2509830
  2. References (2)
    07272 0 60100 0 05206 2906STOERLXC F2529060
    07275 0 40000 0 05206 2909ADDERLXC F2529090
␣EROP3 = 2592
  1. Definition
    05040 0 00000 0 00000 879EROP3 F2508800
  2. References (3)
    04741−0 63400 4 05040 816OP3 SXDEROP3,4 F2508170
    04764−0 53400 4 05040 835LXDEROP3,4 F2508360
    05036−0 53400 4 05040 877LXDEROP3,4 . F2508780
␣ERROR = 3307
  1. Definition
    06353 0 07400 4 00004 1611ERROR TSXDIAG,4 ALL SEARCHES FAILED. F2516120
␣ERTGA = 2690
  1. Definition
    05202 978ERTGA BSS1 F2509790
  2. References (3)
    06500 0 60100 0 05202 1713STOERTGA F2517140
    06505 0 50000 0 05202 1718CLAERTGA F2517190
    05202 3116ERAB SYNERTGA F2531160
␣INST2 = 2670
  1. Definition
    05156 0 53400 1 05130 958INST2 LXAL(4),1 F2509590
  2. Reference
    06233 0 50000 0 05156 2326CLAINST2 F2523260
␣INST3 = 2671
  1. Definition
    05157 0 53400 1 05127 959INST3 LXAL(2),1 F2509600
  2. Reference
    06231 0 50000 0 05157 2324AC234 CLAINST3 RESET MODIFIED AOR0. F2523240
␣INST4 = 2672
  1. Definition
    05160 0 02000 0 06115 960INST4 TRAAC224 F2509610
  2. Reference
    06110 0 50000 0 05160 2243CLAINST4 TRA AC224. MODIFY ADR0 F2522430
␣INST5 = 2673
  1. Definition
    05161 0 02000 0 06116 961INST5 TRAAC228 F2509620
  2. Reference
    06112 0 50000 0 05161 2245CLAINST5 TRAAC228. F2522450
␣INST8 = 2674
  1. Definition
    05162 0 00000 0 06250 962INST8 AC244 F2509630
  2. Reference
    06243 0 50000 0 05162 2334CLAINST8 L(TRA AC244). F2523340
␣KLX01 = 3816
  1. Definition
    2952*************************************************************F2529520
    07350 0 00000 0 07406 2953KLX01 LXI00 F2529530
  2. Reference
    05503 0 50000 0 07350 1982AC049A CLAKLX01 F2519820
␣KLX02 = 3819
  1. Definition
    07353 0 00000 0 07410 2956KLX02 LXI02 F2529560
  2. References (2)
    05517 0 50000 0 07353 1994AC050 CLAKLX02 L(LXI02) F2519940
    06761 0 50000 0 07353 2683CLAKLX02 CLA N1, F2526830
␣KLX03 = 3820
  1. Definition
    07354 0 00000 0 07424 2957KLX03 LXI16 F2529570
  2. Reference
    05534 0 50000 0 07354 2007CLAKLX03 YES. F2520070
␣KLX05 = 3821
  1. Definition
    07355 0 00000 0 07442 2958KLX05 LXI30 F2529580
  2. Reference
    05550 0 50000 0 07355 2019CLAKLX05 C3 GREATER THAN 1, COMPILE F2520190
␣KTX00 = 3828
  1. Definition
    07364 0 00000 0 07501 2965KTX00 TXC00 F2529650
  2. Reference
    06105 0 50000 2 07367 2240AC220 CLAKTX00+3,2 X QUANTITY F2522400
␣KTX03 = 3832
  1. Definition
    07370 0 00000 0 07532 2969KTX03 TXC31 F2529690
␣KTX04 = 3831
  1. Definition
    07367 0 00000 0 07531 2968KTX04 TXC30 F2529680
␣L(10) = 2652
  1. Definition
    05134 0 00000 0 00012 940L(10) 10 F2509410
  2. Reference
    07076 0 53400 1 05134 2760LXAL(10),1 GO TO PC60. F2527600
␣L(16) = 2653
  1. Definition
    05135 0 00000 0 00020 941L(16) 16 F2509420
  2. References (2)
    06546 0 40000 0 05135 2540ADDL(16) UPDATE TIX RELATIVE F2525400
    06712 0 40000 0 05135 2644ADDL(16) F2526440
␣L(17) = 2614
  1. Definition
    05066 0 00000 0 00021 902L(17) 17 F2509030
  2. Reference
    07251 0 40000 0 05066 2884ADDL(17) F2528840
␣L(24) = 2631
  1. Definition
    05107 0 00000 0 00030 919L(24) 24 F2509200
␣L(K1) = 2633
  1. Definition
    05111+000000000010 921L(K1) OCT10 F2509220
  2. Reference
    05266 0 40000 0 05111 1035ADDL(K1) FIRST B. SET F2510360
␣L1000 = 103
  1. Definition
    00147 0 00000 0 01750 108 L1000 HTR1000 F2501080
  2. References (3)
    00133 0 53400 1 00147 96LXAL1000,1 FORM CHECK SUM FOR F2500970
    00137 0 53400 1 00147 100LXAL1000,1 F2501010
    00141 0 46000 0 00147 102LDAL1000 PROGRAM ONTO DRUM F2501030
␣L1DEC = 2609
  1. Definition
    05061+000001000000 897L1DEC OCT1000000 F2508980
  2. References (20)
    03753 0 40000 0 05061 246ADDL1DEC F2502400
    04233 0 50000 0 05061 445CLAL1DEC =1. THIS SIMULATES F2504400
    04706 0 40000 0 05061 786ADDL1DEC TO (CN1-1). F2507870
    06040 0 40000 0 05061 1398ADDL1DEC ENTERED AS THE SYMBOLIC F2513990
    06051 0 40000 0 05061 1407ADDL1DEC ENTERED AS THE F2514080
    06467 0 50000 0 05061 1699CLAL1DEC SYMBOL FOR ADDRESS F2517000
    06631−0 50100 0 05061 1815ORAL1DEC PLACES THE LOCATION IN F2518160
    05351 0 40000 0 05061 1892ADDL1DEC IN F2518920
    06302 0 40200 0 05061 2367SUBL1DEC IS C1 GREATER THAN1. F2523670
    06341 0 40200 0 05061 2403SUBL1DEC C1=1. F2524030
    06343 0 40000 0 05061 2405ADDL1DEC NO, ASSIGN F2524050
    06565 0 40200 0 05061 2555SUBL1DEC DOES C1=1. F2525550
    06612 0 40200 0 05061 2576SUBL1DEC DOES C1=1. F2525760
    06651 0 40200 0 05061 2607SUBL1DEC INSTRUCTIONS F2526070
    06756 0 40200 0 05061 2680SUBL1DEC F2526800
    06775 0 40200 0 05061 2695SUBL1DEC IS C1 = 1. F2526950
    07057 0 40200 0 05061 2745SUBL1DEC TO COMPUTE F2527450
    07062 0 40000 0 05061 2748PC25 ADDL1DEC F2527480
    07105 0 40200 0 05061 2767SUBL1DEC F2527670
    07177 0 40200 0 05061 2835SUBL1DEC F2528350
␣L3DEC = 2621
  1. Definition
    05075+000003000000 909L3DEC OCT000003000000 F2509100
  2. Reference
    04732 0 50000 0 05075 806CLAL3DEC F2508070
␣L4DEC = 2634
  1. Definition
    05112+000004000000 922L4DEC OCT000004000000 F2509230
␣LADMX = 2645
  1. Definition
    05125 0 00000 0 00620 933LADMX 400 F2509340
  2. References (5)
    00153 0 53400 1 05125 115LXALADMX,1 ADTAG AREA F2501100
    00173 0 53400 1 05125 131LXALADMX,1 START TO CHECK F2501260
    05711 0 53400 4 05125 1311LXALADMX,4 PREPARE FOR ADTAG TXI. F2513120
    06201 0 53400 4 05125 1495RTX260 LXALADMX,4 START DRMTG SEARCH AND F2514960
    06240 0 53400 2 05125 2331LXALADMX,2 START ADTG COMPILING. F2523310
␣LINKC = 2718
  1. Definition
    05236 1006LINKC BSS1 F2510070
  2. References (6)
    04411−0 63400 4 05236 569SXDLINKC,4 F2505640
    04421−0 53400 4 05236 577LXDLINKC,4 F2505720
    06435−0 63400 4 05236 2464BOR0 SXDLINKC,4 FOR B BLOCK F2524640
    06451−0 53400 4 05236 2476LXDLINKC,4 F2524760
    07174−0 63400 4 05236 2832SXDLINKC,4 STORE LINKAGE. F2528320
    07207−0 53400 4 05236 2843LXDLINKC,4 RESTORE LINKAGE F2528430
␣LMXTG = 2641
  1. Definition
    05121 0 00000 0 01240 929LMXTG 672 F2509300
  2. References (2)
    04027 0 53400 2 05121 296 TTG LXALMXTG,2 LOCATION OF MAX TAP TABLE SIZE F2502910
    04153 0 53400 1 05121 387SCAN LXALMXTG,1 COMPARE B WITH DOFOR F2503820
␣LX2CI = 3843
  1. Definition
    07403 0 00000 0 07540 2980LX2CI X2CI F2529800
  2. Reference
    07077 0 50000 0 07403 2761CLALX2CI F2527610
␣LXC08 = 3784
  1. Definition
    07310 0 50000 0 05133 2920LXC08 CLAL(0) F2529200
  2. References (2)
    07300 0 10000 0 07310 2912TZELXC08 THIS IS THE FIRST F2529120
    07345 2 00001 1 07310 2949TIXLXC08,1,1 COUNT COMPILED INSTR. IN BLK. F2529490
␣LXC10 = 3786
  1. Definition
    07312 0 56000 1 00000 2922LXC10 LDQ0,1 SKELETAL INSTRUCTION. F2529220
  2. References (2)
    07276 0 62100 0 07312 2910STALXC10 F2529100
    07307 0 02000 0 07312 2919TRALXC10 F2529190
␣LXC15 = 3792
  1. Definition
    A07320 0 50000 0 00000 2928LXC15 CLA F2529280
  2. Reference
    07317 0 62100 0 07320 2927STALXC15 SYMBOL.ADDR, TYPE INSTRUCTION, F2529270
␣LXC19 = 3806
  1. Definition
    D07336−3 00000 0 07344 2942LXC19 TXLLXC30,0 SHIF TYPE INSTRUCTION, F2529420
  2. References (2)
    07271−0 63400 4 07336 2905LXC SXDLXC19,4 F2529050
    07346−0 53400 4 07336 2950LXDLXC19,4 F2529500
␣LXC20 = 3807
  1. Definition
    07337 0 76700 0 00022 2943LXC20 ALS18 F2529430
  2. Reference
    07316−0 12000 0 07337 2926TMILXC20 F2529260
␣LXC30 = 3812
  1. Definition
    07344 0 07400 4 04345 2948LXC30 TSXCIT,4 F2529480
  2. References (3)
    07326 0 10000 0 07344 2934TZELXC30 FIRST CHARACTER IS ZERO. F2529340
    07330−0 10000 0 07344 2936TNZLXC30 FIRST CHARACTER ALPHABETIC. F2529360
    D07336−3 00000 0 07344 2942LXC19 TXLLXC30,0 SHIF TYPE INSTRUCTION, F2529420
␣LXCI6 = 3836
  1. Definition
    07374 0 00000 0 07466 2973LXCI6 XCI6 F2529730
  2. Reference
    07070 0 50000 0 07374 2754CLALXCI6 F2527540
␣LXCI8 = 3845
  1. Definition
    07405 0 00000 0 07470 2982LXCI8 XCI8 F2529820
  2. Reference
    07123 0 50000 0 07405 2781CLALXCI8 VARIABLE, COMPILE F2527810
␣LXCIE = 3837
  1. Definition
    07375 0 00000 0 07553 2974LXCIE XCIE F2529740
  2. Reference
    06662 0 50000 0 07375 2616CLALXCIE STD,STD. F2526160
␣LXI00 = 3846
  1. Definition
    07406 0 07603 2 34321 2983LXI00 14545,2,OR000+13 F2529830
  2. References (2)
    07350 0 00000 0 07406 2953KLX01 LXI00 F2529530
    07351 0 00000 0 07407 2954KLX01I LXI00+1 F2529540
␣LXI02 = 3848
  1. Definition
    07410 0 07567 2 34321 2985LXI02 14545,2,OR000+1 F2529850
  2. Reference
    07353 0 00000 0 07410 2956KLX02 LXI02 F2529560
␣LXI05 = 3850
  1. Definition
    07412 0 07567 4 32450 2987LXI05 13608,4,OR000+1 F2529870
  2. Reference
    07352 0 00000 0 07412 2955KLX02I LXI05 F2529550
␣LXI10 = 3854
  1. Definition
    07416 0 07572 4 32450 2991LXI10 13608,4,OR000+4 F2529910
  2. Reference
    07356 0 00000 0 07416 2959KLX03I LXI10 F2529590
␣LXI16 = 3860
  1. Definition
    07424 0 07572 4 32450 2997LXI16 13608,4,OR000+4 F2529970
  2. Reference
    07354 0 00000 0 07424 2957KLX03 LXI16 F2529570
␣LXI24 = 3868
  1. Definition
    07434 0 07613 4 32450 3005LXI24 13608,4,OR000+21 F2530050
  2. Reference
    07357 0 00000 0 07434 2960KLX05I LXI24 F2529600
␣LXI30 = 3874
  1. Definition
    07442 0 07613 4 32450 3011LXI30 13608,4,OR000+21 F2530110
  2. Reference
    07355 0 00000 0 07442 2958KLX05 LXI30 F2529580
␣MAN03 = 1970
  1. Definition
    03662 0 32000 2 01104 189 MAN03 ANSDOTAGZ+6,2 T1 WORD MUST HAVE F2501830
  2. Reference
    D03664 3 00000 2 03662 191 MAN05 TXHMAN03,2 SXD LOCATION F2501830
␣MAN05 = 1972
  1. Definition
    D03664 3 00000 2 03662 191 MAN05 TXHMAN03,2 SXD LOCATION F2501830
  2. References (2)
    03657−0 63400 2 03664 186SXDMAN05,2 F2501800
    03663 1 77767 2 03664 190TXIMAN05,2,−9 SOME BITS REM0VED FOR F2501840
␣MAN06 = 1977
  1. Definition
    03671 0 60100 2 02646 196 MAN06 STOMXTGA,2 TO. F2501900
  2. Reference
    03672 2 00001 2 03671 197TIXMAN06,2,1 ZERO. F2501910
␣MAN10 = 1982
  1. Definition
    03676 0 50000 0 05133 201 MAN10 CLAL(0) INITIALIZE F2501950
␣MAN20 = 1989
  1. Definition
    03705 0 50000 0 05126 208 MAN20 CLAL(1) F2502020
  2. Reference
    03730 0 02000 0 03705 227TRAMAN20 BACK T0 DOGS F2502210
␣MAN35 = 1997
  1. Definition
    03715 0 07400 4 03763 216 MAN35 TSXABDRM,4 NO. READ STATE FROM DRUM F2502100
  2. Reference
    03713 0 02000 0 03715 214TRAMAN35 NO F2502080
␣MAN40 = 2000
  1. Definition
    03720−0 53400 2 05230 219 MAN40 LXDDOIND,2 F2502130
  2. Reference
    03714 0 02000 0 03720 215TRAMAN40 YES F2502090
␣MAN45 = 2005
  1. Definition
    03725−0 73400 1 00000 224MAN45 PDX0,1 F2502180
␣MAN50 = 2009
  1. Definition
    03731 0 07400 4 04352 228 MAN50 TSXCITSP,4 WRITE CIT BUFFER ON TAPE F2502220
  2. Reference
    03710 0 02000 0 03731 211TRAMAN50 NEST COMPLETELY ANALYZED F2502050
␣MAN70 = 2016
  1. Definition
    03740 0 77000 0 00223 235 MAN70 WEF147 END OF FILE FOR DO FILE F2502290
  2. Reference
    03655 0 02000 0 03740 184TRAMAN70 END OF PROBLEM F2501780
␣MXTGA = 1446
  1. Definition
    02646 3125MXTGA SYNOMXTGA+200 F2531250
  2. References (5)
    03671 0 60100 2 02646 196 MAN06 STOMXTGA,2 TO. F2501900
    05114 0 00000 0 02646 924INST22 MXTGA F2509250
    05165 0 00000 0 02646 965INST12 MXTGA F2509660
    06507−0 60200 2 02646 1720TGA8 ORSMXTGA,2 ADDRESS IS ORIGIN PLUS MAX F2517210
    05773−0 50000 1 02646 2166CALMXTGA,1 DECREMENTS OF TXI F2521660
␣N1S02 = 2422
  1. Definition
    04566 0 50000 1 03652 698N1S02 CLATAG2+3,1 A CONATAINS POSIND. F2506990
  2. References (2)
    04576 2 00001 1 04566 706N1S05 TIXN1S02,1,1 REPEAT FOR NEXT RIGHT S. F2507070
    06013 0 07400 4 04566 1377TSXN1S02,4 F2513780
␣N1S05 = 2430
  1. Definition
    04576 2 00001 1 04566 706N1S05 TIXN1S02,1,1 REPEAT FOR NEXT RIGHT S. F2507070
  2. Reference
    D04570−3 00000 2 04576 700TXLN1S05,2 NO TAG FOR THIS POS. F2507010
␣N1SBX = 2732
  1. Definition
    05254 1020N1SBX BSS1 F2510210
  2. References (7)
    04564 0 60100 0 05254 696STON1SBX F2506920
    04575−0 60200 0 05254 705ORSN1SBX OR N1BIT TO N1SBX. F2507060
    04577 0 50000 0 05254 707CLAN1SBX F2507080
    06012 0 60100 0 05254 1376STON1SBX N1 BIT. F2513770
    05344 0 50000 0 05254 1887CLAN1SBX VALUE IS CONSTANT F2518870
    05411 0 50000 0 05254 1924CLAN1SBX IF CONSTANT LOAD, F2519240
    07160 0 50000 0 05254 2817BITP10 CLAN1SBX VARIABLE. IF SO, RETURN F2528170
␣N3BIT = 3229
  1. Definition
    1526*************************************************************F2515270
    1527N3BIT PLACES THE VARIABLE N3 BIT OF A DO IN THE WORK N3IND. F2513280
    06235−0 53400 2 05230 1528N3BIT LXDDOIND,2 THIS ROUTIN E ISOLATES F2515290
  2. Reference
    05303 0 07400 4 06235 1048TSXN3BIT,4 ISOLATE N3 BIT OF DOTAG F2510490
␣N3IND = 2716
  1. Definition
    05234 1004N3IND BSS1 F2510050
  2. References (7)
    05316 0 50000 0 05234 1060CLAN3IND BLOCK EQUALSA. F2510610
    05441 0 40000 0 05234 1143ADDN3IND F2511440
    05472 0 40000 0 05234 1168ADDN3IND F2511690
    05531 0 40000 0 05234 1199ADDN3IND CHECK FOR VARIABLE DECREMENT. F2512000
    05604 0 40000 0 05234 1242ADDN3IND N3IND FOR S1 F2512430
    05732 0 50000 0 05234 1328RTX190 CLAN3IND F2513290
    06241 0 60100 0 05234 1532STON3IND F2515330
␣NBITS = 3472
  1. Definition
    1800*************************************************************F2518010
    1801NBITS ISOLATES THE VARIABLE PARAMETER BITS FOR A GIVEN DOTAG.F2518020
    06620 0 50000 2 01076 1802NBITS CLADOTAGZ,2 ROUTINE FOR ISOLATING F2518030
  2. References (6)
    05440 0 07400 4 06620 1142TSXNBITS,4 IF DECREMENT IS VARIABLE F2511430
    05471 0 07400 4 06620 1167TSXNBITS,4 NBITS INTO N1N2N3. F2511680
    05530 0 07400 4 06620 1198TSXNBITS,4 ISOLATE NBITS F2511990
    05603 0 07400 4 06620 1241TSXNBITS,4 PLACE N BITS PLUS F2512420
    05607 0 07400 4 06620 1245TSXNBITS,4 TEST. 1F SUM IS NOT ZERO, F2512460
    06001 0 07400 4 06620 1367TSXNBITS,4 NBITS. F2513680
␣OR000 = 3958
  1. Definition
    3095*************************************************************F2530950
    07566 3096 OR000 BSS12 F2530960
  2. References (165)
    04711 0 60100 0 07567 789STOOR000+1 F2507900
    04734 0 50000 0 07620 808CLAOR000+26 F2508090
    05067 0 00000 0 07566 903L(OR0) OR000 F2509040
    05363 0 60100 0 07621 1902STOOR000+27 IN OR0 TABLE. F2519020
    05416 0 60100 0 07567 1929STOOR000+1 S1 DEFINED. STO SYMBOL IN OR0+1. F2519290
    05422 0 60100 0 07572 1933STOOR000+4 S2 DEFINED. PUT SUBSCRIPT F2519330
    05425 0 60100 0 07575 1936STOOR000+7 IN OR0+7. F2519360
    05431 0 60100 0 07613 1940STOOR000+21 S3 DEFINED. PUT SUBSCRIPT F2519400
    05436 0 60100 0 07616 1945STOOR000+24 OR0+24. F2519450
    05441 0 60100 0 07575 1948STOOR000+7 AND STORE IN OR0+7, F2519480
    05557 0 50000 0 07620 2026CLAOR000+26 ERASABLE OBJECT TIME SYMBOL. F2520260
    05565 0 50000 0 07620 2032AC100 CLAOR000+26 F2520320
    05566 0 60100 0 07621 2033STOOR000+27 F2520330
    05676 0 60100 0 07577 2105STOOR000+9 F2521050
    05700 0 60100 0 07567 2107STOOR000+1 F2521070
    06024 0 60100 0 07612 2191STOOR000+20 C1 IS G FOR F2521910
    06026 0 60100 0 07611 2193STOOR000+19 PREPARE TO F2521930
    06130 0 60100 0 07566 2259STOOR000 G GREATER THAN 1, F2522590
    06140 0 50000 0 07603 2267CLAOR000+13 INITIALIZATION F2522670
    06152 0 50000 0 07620 2277CLAOR000+26 ERASEABLE STORAGE F2522770
    06160 0 50000 0 07620 2283CLAOR000+26 PLACE ERASEABLE SYMBOL F2522830
    06161 0 60100 0 07566 2284STOOR000 IN OR000 FOR LXC BLOCK. F2522840
    06204 0 60100 0 07566 2303STOOR000 COMPILE TIX F2523030
    06214 0 50000 0 07603 2311CLAOR000+13 INITIALIZATION F2523110
    06320 0 60100 0 07611 2381STOOR000+19 IN OR0 + 19. F2523810
    06333 0 60100 0 07604 2397STOOR000+14 F2523970
    06335 0 60100 0 07566 2399STOOR000 F2523990
    06345 0 60100 0 07611 2407STOOR000+19 F2524070
    06365 0 60100 0 07611 2423STOOR000+19 G AND PUT IN OR0+19 F2524230
    06422 0 60100 0 07611 2452STOOR000+19 G FOR S3. F2524520
    06441 0 60100 0 07611 2468STOOR000+19 IN OR0. F2524680
    06443 0 60100 0 07612 2470STOOR000+20 F2524700
    06461 0 60100 0 07611 2485STOOR000+19 BLOCK C DECREMENTS. F2524850
    06471 0 40000 0 07611 2493ADDOR000+19 IN OR0+19 FOR F2524930
    06472 0 60100 0 07611 2494STOOR000+19 USE BY PC. F2524940
    06510 0 60100 0 07611 2509STOOR000+19 C1 ADDED TO G1. F2525090
    06514 0 60100 0 07612 2513STOOR000+20 F2525130
    06524 0 40000 0 07611 2521ADDOR000+19 F2525210
    06525 0 60100 0 07611 2522STOOR000+19 F2525220
    06530 0 40000 0 07612 2525ADDOR000+20 F2525250
    06531 0 60100 0 07612 2526STOOR000+20 F2525260
    06543 0 50000 0 07605 2537CLAOR000+15 UPDATE F2525370
    06545 0 60100 0 07604 2539STOOR000+14 INSTRUCTION NUM8ER. F2525390
    06547 0 60100 0 07605 2541STOOR000+15 INSTRUCTION NUMBER. F2525410
    06572 0 60100 0 07566 2560STOOR000 N2 SYMBOL. F2525600
    06575 0 60100 0 07611 2563STOOR000+19 COMPILE LDQ L(N2), F2525630
    06616 0 50000 0 07603 2580CLAOR000+13 STO 1)+3, F2525800
    06626 0 50000 0 07620 2588CLAOR000+26 F2525880
    06627 0 60100 0 07567 2589STOOR000+1 F2525890
    06637 0 60100 0 07577 2597STOOR000+9 F2525970
    06656 0 60100 0 07577 2612STOOR000+9 F2526120
    06674 0 60100 0 07612 2626EOR022 STOOR000+20 PUT SYMB0L IN F2526260
    06711 0 60100 0 07604 2643STOOR000+14 AND OR0+15. F2526430
    06713 0 60100 0 07605 2645STOOR000+15 F2526450
    06721 0 60100 0 07566 2651STOOR000 COMPILE F2526510
    06722 0 50000 0 07611 2652CLAOR000+19 LDQ L(G), (N3X POS,), F2526520
    06724 0 60100 0 07611 2654STOOR000+19 ALS 17, F2526540
    06732 0 20000 0 07611 2660MPYOR000+19 N3G SYMBOL IN F2526600
    06735 0 60100 0 07611 2663STOOR000+19 F2526630
    06754 0 60100 0 07567 2678STOOR000+1 F2526780
    06766 0 60100 0 07577 2688STOOR000+9 LDQ L(N2) F2526880
    07001 0 60100 0 07577 2699STOOR000+9 C1 AND F2526990
    07004 0 50000 0 07603 2702CLAOR000+13 STO 1) +3 F2527020
    07014 0 50000 0 07620 2710CLAOR000+26 F2527100
    07015 0 60100 0 07567 2711STOOR000+1 F2527110
    07027 0 50000 0 07612 2721PCI31 CLAOR000+20 XX POS 2 , X VAR., N3 = 1, F2527210
    07031 0 60100 0 07577 2723STOOR000+9 AND PUT IN OR0+9 F2527230
    07040 0 60100 0 07567 2730STOOR000+1 LDQ N2, F2527300
    07064 0 60100 0 07577 2750STOOR000+9 F2527500
    07073 0 50000 0 07612 2757PC40 CLAOR000+20 POS, IS S2, F2527570
    07075 0 60100 0 07612 2759STOOR000+20 TO COMPUT N3X-1 AND F2527590
    07103 0 20000 0 07612 2765MPYOR000+20 FORM GN3X-1 FOR F2527650
    07107 0 60100 0 07612 2769STOOR000+20 F2527690
    07204 0 60100 2 07602 2840STOOR000+12,2 OR0+910, OR 11. F2528400
    07266 0 60100 0 07566 2897STOOR000 F2528970
    07406 0 07603 2 34321 2983LXI00 14545,2,OR000+13 F2529830
    07407 0 07620 6 26346 298411494,6,OR000+26 F2529840
    07410 0 07567 2 34321 2985LXI02 14545,2,OR000+1 F2529850
    07411 0 07620 6 26346 298611494,6,OR000+26 F2529860
    07412 0 07567 4 32450 2987LXI05 13608,4,OR000+1 F2529870
    07413 0 07577 4 44770 298818936,4,OR000+9 F2529880
    07415 0 07620 6 26346 299011494,6,OR000+26 F2529900
    07416 0 07572 4 32450 2991LXI10 13608,4,OR000+4 F2529910
    07417 0 07575 4 44770 299218936,4,OR000+7 F2529920
    07421 0 07575 6 26422 299411538,6,OR000+7 F2529940
    07422 0 07620 2 12424 29955396,2,OR000+26 F2529950
    07423 0 07620 6 26346 299611494,6,OR000+26 F2529960
    07424 0 07572 4 32450 2997LXI16 13608,4,OR000+4 F2529970
    07425 0 07600 4 44770 299818936,4,OR000+10 F2529980
    07427 0 07575 4 44770 300018936,4,OR000+7 F2530000
    07431 0 07575 6 26422 300211538,6,OR000+7 F2530020
    07432 0 07620 2 12424 30035396,2,OR000+26 F2530030
    07433 0 07620 6 26346 300411494,6,OR000+26 F2530040
    07434 0 07613 4 32450 3005LXI24 13608,4,OR000+21 F2530050
    07435 0 07616 4 44770 300618936,4,OR000+24 F2530060
    07437 0 07616 6 26422 300811538,6,OR000+24 F2530080
    07440 0 07620 2 12424 30095396,2,OR000+26 F2530090
    07441 0 07620 6 26346 301011494,6,OR000+26 F2530100
    07442 0 07613 4 32450 3011LXI30 13608,4,OR000+21 F2530110
    07443 0 07601 4 44770 301218936,4,OR000+11 F2530120
    07445 0 07616 4 44770 301418936,4,OR000+24 F2530140
    07447 0 07616 6 26422 301611538,6,OR000+24 F2530160
    07450 0 07620 2 12424 30175396,2,OR000+26 F2530170
    07451 0 07620 6 26346 301811494,6,OR000+26 F2530180
    07452 0 07611 4 32450 3019L(BIC) 13608,4,OR000+19 F2530190
    07453 0 07566 4 44770 302018936,4,OR000 F2530200
    07455 0 07602 6 26346 302211494,6,OR000+12 F2530220
    07456 0 07570 2 34321 3023XCI 14545,2,OR000+2 F2530230
    07457 0 07567 6 26422 302411538,6,OR000+1 F2530240
    07460 0 07571 2 12424 30255396,2,OR000+3 F2530250
    07462 0 07571 2 46547 302719815,2,OR000+3 F2530270
    07463 0 07571 4 44770 302818936,4,OR000+3 F2530280
    07465 0 07577 4 44770 303018936,4,OR000+9 F2530300
    07467 0 07603 6 26422 303211538,6,OR000+13 F2530320
    07470 0 07605 6 26324 3033XCI8 11476,6,OR000+15 F2530330
    07471 0 07602 2 12424 30345396,2,OR000+12 F2530340
    07472 0 07604 6 26324 303511476,6,OR000+14 F2530350
    07473 0 07566 4 32450 3036A1C00 13608,4,OR000 F2530360
    07474 0 07611 4 44770 3037A1C01 18936,4,OR000+19 F2530370
    07476 0 07604 6 26324 303911476,6,OR000+14 F2530390
    07477 0 07566 2 34321 3040A1000 14545,2,OR000 F2530400
    07500 0 07604 6 26324 3041A1001 11476,6,OR000+14 F2530410
    07501 0 07570 2 34321 3042TXC00 14545,2,OR000+2 F2530420
    07502 0 07567 6 26422 304311538,6,OR000+1 F2530430
    07503 0 07571 2 12424 30445396,2,OR000+3 F2530470
    07505 0 07571 2 46547 304619815,2,OR000+3 F25F0460
    07506 0 07571 4 44770 304718936,4,OR000+3 F2530470
    07507 0 07573 2 34321 3048TXC08 14545,2,OR000+5 F2530480
    07510 0 07572 6 26422 304911538,6,OR000+4 F2530490
    07511 0 07574 2 12424 30505396,2,OR000+6 F2530500
    07513 0 07574 2 46547 305219815,2,OR000+6 F2530520
    07514 0 07574 4 44770 305318936,4,OR000+6 F2530530
    07515 0 07614 2 34321 3054TXC18 14545,2,OR000+22 F2530540
    07516 0 07613 6 26422 305511538,6,OR000+21 F2530550
    07517 0 07615 2 12424 30565396,2,OR000+23 F2530560
    07521 0 07615 2 46547 305819815,2,OR000+23 F2530580
    07522 0 07615 4 44770 305918936,4,OR000+23 F2530590
    07524 0 07575 4 44770 306118936,4,OR000+7 F2530610
    07526 0 07576 4 44770 306318936,4,OR000+8 F2530630
    07530 0 07601 4 44770 306518936,4,OR000+11 F2530650
    07532 0 07621 2 12424 3067TXC31 5396,2,OR000+27 F2530670
    07533 0 07603 6 26422 306811538,6,OR000+13 F2530680
    07535 0 07611 4 44770 307018936,4,OR000+19 F2530700
    07537 0 07604 6 26324 307211476,6,OR000+14 F2530720
    07540 0 07573 2 34321 3073X2CI 14545,2,OR000+5 F2530730
    07541 0 07572 6 26422 307411538,6,OR000+4 F2530740
    07542 0 07574 2 12424 30755396,2,OR000+6 F2530750
    07544 0 07574 2 46547 307719815,2,OR000+6 F2530770
    07545 0 07574 4 44770 307818936,4,OR000+6 F2530780
    07547 0 07612 4 44770 308018936,4,OR000+20 F2530800
    07551 0 07603 6 26422 308211538,6,OR000+13 F2530820
    07552 0 07612 2 34321 3083XKI 14545,2,OR000+20 F2530830
    07554 0 07603 6 26422 308511538,6,OR000+13 F2530850
    07555 0 07605 6 26324 308611476,6,OR000+15 F2530860
    07556 0 07604 6 26324 308711476,6,OR000+14 F2530870
    07557 0 07605 6 26324 3088XCI8P 11476,6,OR000+15 F2530880
    07560 0 07611 2 12424 30895396,2,OR000+19 F2530890
    07561 0 07604 6 26324 309011476,6,OR000+14 F2530900
    07563 0 07612 2 34321 3092XCIEP 14545,2,OR000+20 F2530920
    07564 0 07605 6 26324 3093XCEIP 11476,6,OR000+15 F2530930
    07565 0 07604 6 26324 309411476,6,OR000+14 F2530940
    M 07602 3120OR012 SYNOR000+12 F2531200
    07603 3121OR013 SYNOR000+13 F2531210
    07610 3122OR018 SYNOR000+18 F2531220
    M 07620 3123OR026 SYNOR000+26 F2531230
␣OR012 = 3970
  1. Definition
    M 07602 3120OR012 SYNOR000+12 F2531200
␣OR013 = 3971
  1. Definition
    07603 3121OR013 SYNOR000+13 F2531210
␣OR014 = 3972
  1. Definition
    07604 3099 OR014 BSS12 F2530990
␣OR018 = 3976
  1. Definition
    07610 3122OR018 SYNOR000+18 F2531220
␣OR026 = 3984
  1. Definition
    M 07620 3123OR026 SYNOR000+26 F2531230
␣OREDO = 2730
  1. Definition
    05252 1018OREDO BSS1 F2510190
  2. References (6)
    05410 0 60100 0 05252 1923STOOREDO F2519230
    05473 0 50000 0 05252 1974CLAOREDO IS LEFT SUB A RELCON, F2519740
    05505 0 50000 0 05252 1984AC049B CLAOREDO F2519840
    05523 0 50000 0 05252 1998AC064 CLAOREDO F2519980
    05540 0 50000 0 05252 2011AC080 CLAOREDO F2520110
    07146 0 50000 0 05252 2807CLAOREDO CHECK TO SEE IT F2528070
␣PCI21 = 3572
  1. Definition
    06764 0 50000 0 03636 2686PCI21 CLAWRKSC F2526860
  2. Reference
    06757−0 10000 0 06764 2681TNZPCI21 NO, PCI21. F2526810
␣PCI22 = 3579
  1. Definition
    06773 0 07400 4 04741 2693PCI22 TSXOP3,4 COMPILE CLA L(N2-N1) F2526930
  2. Reference
    06752−0 10000 0 06773 2676TNZPCI22 NO, PCI22. F2526760
␣PCI31 = 3607
  1. Definition
    07027 0 50000 0 07612 2721PCI31 CLAOR000+20 XX POS 2 , X VAR., N3 = 1, F2527210
  2. Reference
    06747−3 00002 1 07027 2673TXLPCI31,1,2 NO, IS POS. S2. F2526730
␣PCI32 = 3615
  1. Definition
    07037 0 50000 2 01101 2729PCI32 CLADOTAGZ+3,2 COMPILE F2527290
  2. Reference
    07034 0 10000 0 07037 2726TZEPCI32 YES, PCI32. F2527260
␣PCI33 = 3620
  1. Definition
    07044 0 53400 1 05126 2734PCI33 LXAL(1),1 F2527340
  2. References (2)
    06763 0 02000 0 07044 2685TRAPCI33 F2526850
    07026 0 02000 0 07044 2720TRAPCI33 F2527200
␣PGPG4 = 2038
  1. Definition
    03766 0 76200 4 00302 260 PGPG4 RDS194,4 F2502540
  2. Reference
    04004 2 00001 2 03766 274TIXPGPG4,2,1 READING ERROR TRY AGAIN 4 TIMES, F2502680
␣PGPG8 = 2042
  1. Definition
    M03772 0 70000 1 07226 264PGPG8 CPYRTXAC+1000,1 F2502580
  2. Reference
    03773 2 00001 1 03772 265TIXPGPG8,1,1 F2502590
␣PXOR0 = 3734
  1. Definition
    2861*************************************************************F2528610
    2862PREFACE TO OR0 EXAMINES VARIABLIITY OF X QUANTITY. F2528620
    07226 0 50000 1 03652 2863PXOR0 CLATAG2+3,1 IF X IS F2528630
  2. References (2)
    06644 0 07400 4 07226 2602TSXPXOR0,4 C1 GREATER THAN 1. F2526020
    07050 0 07400 4 07226 2738PC21 TSXPXOR0,4 IS X CONSTANT. F2527380
␣RELC0 = 2696
  1. Definition
    05210 984RELC0 BSS1 F2509850
  2. References (2)
    05403 0 60100 0 05210 1918STORELC0 ISOLATED IN 3 SEPARATE F2519180
    05407−0 50100 0 05210 1922ORARELC0 F2519220
␣RTX04 = 2740
  1. Definition
    D05264−3 00000 1 05276 1033RTX04 TXLRTX05,1 IS THIS THE FIRST BETA, F2510340
  2. Reference
    05263−0 63400 2 05264 1032SXDRTX04,2 F2510330
␣RTX05 = 2750
  1. Definition
    05276 0 50000 0 05133 1043RTX05 CLAL(0) INITIALIZE THE TEST TAG F2510440
  2. Reference
    D05264−3 00000 1 05276 1033RTX04 TXLRTX05,1 IS THIS THE FIRST BETA, F2510340
␣RTX06 = 2759
  1. Definition
    05307 0 07400 4 04162 1052RTX06 TSXFIND,4 F2510530
  2. Reference
    05706 0 02000 0 05307 1308RTX164 TRARTX06 GO TO FIND FOR NEXT TAG. F2513090
␣RTX30 = 2775
  1. Definition
    05327 0 50000 0 03652 1069RTX30 CLATAG3 IF RESET TAG, PUT TAG F2510700
  2. Reference
    D05325−3 00000 0 05327 1067RTX024 TXLRTX30,0 RESET F2510680
␣RTX34 = 2778
  1. Definition
    05332 0 07400 4 04230 1072RTX34 TSXENTR,4 IF COUNTER, MAKE F2510730
  2. Reference
    05326 0 02000 0 05332 1068TRARTX34 COUNTER. F2510690
␣RTX50 = 2780
  1. Definition
    05334−0 75400 1 00000 1074RTX50 PXD0,1 CURRENT TAG. F2510750
  2. Reference
    05321 3 00000 1 05334 1063TXHRTX50,1,0 TEST FOR INSERTED COUNTER. F2510640
␣RTX51 = 2782
  1. Definition
    05336 0 07400 4 04236 1076RTX51 TSXSUBCOM,4 LAY OUT TAU ENTRY. F2510770
  2. Reference
    05331 0 02000 0 05336 1071TRARTX51 GO TO SUBCOM. F2510720
␣RTX52 = 2783
  1. Definition
    05337 0 50000 0 05042 1077RTX52 CLAL(TXI) COMPILE F2510780
  2. Reference
    05333 0 02000 0 05337 1073TRARTX52 ARTIFICIAL ENTRY IN WRKSC. F2510740
␣RTX61 = 2799
  1. Definition
    05357 0 60100 0 05246 1093RTX61 STOERTX02 STORE STATUS OF ACCUMULATOR. DUPES ARE F2510940
  2. Reference
    05356 1 00001 1 05357 1092TXIRTX61,1,1 F2510930
␣RTX62 = 2804
  1. Definition
    05364 1 00002 1 05365 1098RTX62 TXIRTX62+1,1,2 F2510990
  2. References (2)
    05355 1 00002 1 05367 1091TXIRTX62+3,1,2 DUPES ARE 1,3 ON TRANSFER F2510920
    05364 1 00002 1 05365 1098RTX62 TXIRTX62+1,1,2 F2510990
␣RTX66 = 2814
  1. Definition
    05376 0 50000 0 05245 1108RTX66 CLAERTX01 F2511090
  2. References (3)
    05352 0 02000 0 05376 1088TRARTX66 NO DUPLICATES FOR THIS SUBSCRIPT. F2510890
    05365 3 00003 1 05376 1099TXHRTX66,1,3 NOT 3RD SUBSCRIPT CASE, F2511000
    05371 0 02000 0 05376 1103TRARTX66 F2511040
␣RTX68 = 2819
  1. Definition
    05403 0 07400 4 06224 1113RTX68 TSXCILV,4 DECREMENT IS VARIABLE. ASSIGN LOCATION. F2511140
  2. Reference
    05317−0 10000 0 05403 1061TNZRTX68 DECREMENT OF RXA IS VARIABLE . F2510620
␣RTX69 = 2827
  1. Definition
    05413 0 50000 0 03653 1121RTX69 CLATAG4 TEST FOR SYM8OL F2511220
  2. References (3)
    05402 0 02000 0 05413 1112TRARTX69 AND CONTINUE. F2511130
    05710 0 62100 0 05414 1310STARTX69+1 RESET AT END OF ROUTINE. F2513110
    05746 0 62100 0 05414 1340STARTX69+1 ADDRESSES FOR F2513410
␣RTX70 = 2845
  1. Definition
    05435 3 00001 2 05466 1139RTX70 TXHRTX90,2,1 BLOCK IS B,C,D QR E. F2511400
  2. Reference
    05315 3 00000 2 05435 1059TXHRTX70,2,0 BLOCK DIFFERENT FROM A OR F, F2510600
␣RTX72 = 2861
  1. Definition
    05455 0 07400 4 04447 1155RTX72 TSXCXIJ,4 FOR LEFT SUB WHICH IS TEST. F2511560
  2. Reference
    05454 1 00001 1 05455 1154TXIRTX72,1,1 AND COMPUTE XN3G F2511550
␣RTX80 = 2868
  1. Definition
    05464 0 07400 4 06546 1162RTX80 TSXBCDE,4 BLOCK B IS VARIABLE. F2511630
  2. Reference
    05442−0 10000 0 05464 1144TNZRTX80 DECREMENT IS VARIABLE. F2511450
␣RTX90 = 2870
  1. Definition
    05466 3 00002 2 05525 1164RTX90 TXHRTX110,2,2 BLOCK IS C,D, OR E. F2511650
  2. Reference
    05435 3 00001 2 05466 1139RTX70 TXHRTX90,2,1 BLOCK IS B,C,D QR E. F2511400
␣RTX91 = 2881
  1. Definition
    05501 0 07400 4 04447 1175RTX91 TSXCXIJ,4 FOR F2511760
␣RTX93 = 2894
  1. Definition
    05516 0 07400 4 06447 1188RTX93 TSXCN3IJ,4 FOR DECREMENT AND F2511890
  2. Reference
    05515 1 00001 1 05516 1187TXIRTX93,1,1 COMPUTE ADJUSTMENT F2511880
␣RTX95 = 2897
  1. Definition
    05521 0 07400 4 06513 1191RTX95 TSXEDCB,4 COMPILE TXI SXD TIX. F2511920
  2. Reference
    05513 0 02000 0 05521 1185TRARTX95 NO DOSUB DUPE. F2511860
␣RTXAC = 2734
  1. Definition
    M 05256 3109RTXAC SYNAC F2531090
  2. References (5)
    M00134 0 36100 1 07226 97B1 ACLRTXAC+1000,1 PROGRAM ON DRUM. F2500980
    M00143 0 70000 1 07226 104B2 CPYRTXAC+1000,1 F2501050
    M03727 0 07400 4 05256 226TSXRTXAC,4 F2502200
    M03772 0 70000 1 07226 264PGPG8 CPYRTXAC+1000,1 F2502580
    M03776 0 36100 1 07226 268PGPG10 ACLRTXAC+1000,1 F2502620
␣SMSK1 = 2660
  1. Definition
    05144+000000000760 948SMSK1 OCT760 F2509490
  2. Reference
    06326 0 50000 0 05144 1590PRES20 CLASMSK1 INDEX DECREMENT IS STORED. F2515910
␣SMSK2 = 2661
  1. Definition
    05145+000000000774 949SMSK2 OCT774 F2509500
  2. Reference
    06331 0 50000 0 05145 1593CLASMSK2 RETURN TO ROUTINE F2515940
␣SMSK3 = 2662
  1. Definition
    05146+000000000763 950SMSK3 OCT763 F2509510
  2. Reference
    06345 0 50000 0 05146 1605CLASMSK3 F2516060
␣SMSK4 = 2663
  1. Definition
    05147+000000000773 951SMSK4 OCT773 F2509520
  2. Reference
    06337 0 50000 0 05147 1599CLASMSK4 F2516000
␣SWICH = 2710
  1. Definition
    05226 998SWICH BSS1 F2509990
  2. References (5)
    04060 0 60100 0 05226 324STOSWICH F2503190
    04073 0 50000 0 05226 335DOGS22 CLASWICH F2503300
    04132 0 50000 0 05226 366CLASWICH RECORD SWITCH F2503610
    04134 0 50000 0 05226 368DOGS50 CLASWICH REVERSE SWITCH FOR F2503630
    04137 0 60100 0 05226 371STOSWICH F2503660
␣T1MSK = 2627
  1. Definition
    05103−300000077777 915T1MSK OCT700000077777 F2509160
  2. Reference
    03661−0 50000 0 05103 188CALT1MSK MASK FOR T1 WORD OF DOTAG F2501820
␣TAG21 = 1960
  1. Definition
    M 03650 3106TAG21 SYNTAG2+1 F2531060
  2. References (2)
    M04501−0 53400 4 03650 639LXDTAG21,4 BLOCKS D,E, LOAD S2 INDEX. F2506350
    M05447−0 53400 1 03650 1954LXDTAG21,1 NONE OF ABOVE EXIST, F2519540
␣TAG22 = 1961
  1. Definition
    M 03651 3107TAG22 SYNTAG2+2 F2531070
  2. Reference
    M05452−0 53400 1 03651 1957LXDTAG22,1 IF S3 DEF BY DO, F2519570
␣TDOTG = 2058
  1. Definition
    280************************************************************ F2502740
    04012 0 53400 1 05132 281 TDOTG LXAL(5),1 S CALLED BY MAN TO READ IN A NEST OF DOTAG ENTRIES. F2502750
  2. Reference
    03654 0 07400 4 04012 183 MAN TSXTDOTG,4 READ ONE NEST OF DOTAG F2501770
␣TETG3 = 3258
  1. Definition
    06272 0 50000 0 05136 1559TETG3 CLABIT1 ENTER TEST BIT F2515600
  2. Reference
    06270 0 02000 0 06272 1557TRATETG3 NOT A LEFT DUPE, ENTER TEST BIT. F251S580
␣TETG5 = 3261
  1. Definition
    06275 2 00001 1 06255 1562TETG5 TIXTETG+10,1,1 DEAL WITH NEXT SUBSCRIPT, F2515630
  2. References (3)
    06256 0 10000 0 06275 1547TZETETG5 CONTR0LS THIS F2515480
    06264−0 10000 0 06275 1553TNZTETG5 NO, GO TO NEXT SUBSCRIPT. F2515540
    06271 0 02000 0 06275 1558TRATETG5 LEFT DUPE, IGNORE. F2515590
␣TETTG = 2692
  1. Definition
    05204 980TETTG BSS1 F2509810
  2. References (2)
    05603 0 60100 0 05204 2046STOTETTG FOR THIS DO F2520460
    05607 0 34000 0 05204 2050CASTETTG CURRENT TAG. F2520500
␣TGA10 = 3401
  1. Definition
    06511 0 76700 0 00006 1722TGA10 ALS6 F2517230
  2. Reference
    06506 2 00001 1 06511 1719TGA5 TIXTGA10,1,1 SHIFT LEFT FOR S1 OR S2 F2517200
␣TTG01 = 2072
  1. Definition
    04030 0 53400 1 05132 297 TTG01 LXAL(5),1 INITIALIZE TAPE ERROR COUNTER. F2502920
  2. Reference
    04050 2 00004 2 04030 313TIXTTG01,2,4 F2503080
␣TTG02 = 2073
  1. Definition
    04031 0 76200 0 00224 298 TTG02 RDS148 F2502930
  2. Reference
    04053 2 00001 1 04031 316TIXTTG02,1,1 UP T0 5 TIMES. F2503110
␣TTG05 = 2075
  1. Definition
    04033 0 70000 2 02336 300 TTG05 CPYMXTGTG,2 F2502950
  2. Reference
    04037 2 00001 2 04033 304TTG06 TIXTTG05,2,1 F2502990
␣TTG06 = 2079
  1. Definition
    04037 2 00001 2 04033 304TTG06 TIXTTG05,2,1 F2502990
  2. Reference
    04034 0 02000 0 04037 301TRATTG06 F2502960
␣TTG07 = 2081
  1. Definition
    04041 0 76600 0 00333 306 TTG07 WRS219 F2503010
  2. Reference
    04036 0 02000 0 04041 303TRATTG07 END OF RECORD, CORRECT-EXIT. F2502980
␣TTG10 = 2083
  1. Definition
    TD04043−3 00000 0 04051 308 TTG10 TXLTTG16 ERROR IN READING F2503030
  2. References (2)
    04032−0 63400 2 04043 299SXDTTG10,2 FOR ERROR BACKUP IN READING F2502940
    04051−0 53400 2 04043 314 TTG16 LXDTTG10,2 TAPE ERROR ROUTINE , LOAD F2503090
␣TTG11 = 2085
  1. Definition
    04045 0 50000 2 02336 310 TTG11 CLAMXTGTG,2 FOR NEST END TEST F2503050
  2. Reference
    04044 1 00004 2 04045 309TXITTG11,2,4 FIRST WORD LAST ENTRY F2503040
␣TTG13 = 2087
  1. Definition
    04047 0 10000 4 00001 312 TTG13 TZE1,4 END OF NEST F2503070
␣TTG16 = 2089
  1. Definition
    04051−0 53400 2 04043 314 TTG16 LXDTTG10,2 TAPE ERROR ROUTINE , LOAD F2503090
  2. Reference
    TD04043−3 00000 0 04051 308 TTG10 TXLTTG16 ERROR IN READING F2503030
␣TX040 = 3932
  1. Definition
    07534−2 00022 4 35162 3069TX040 TNX14962,4,18 LRS F2530690
  2. Reference
    07371 0 00000 0 07534 2970LTX040 TX040 F2529700
␣TX042 = 3934
  1. Definition
    07536−2 00043 4 34362 3071TX042 TNX14578,4,35 LLS F2530710
  2. Reference
    07372 0 00000 0 07536 2971LTX042 TX042 F2529710
␣TXC00 = 3905
  1. Definition
    07501 0 07570 2 34321 3042TXC00 14545,2,OR000+2 F2530420
  2. Reference
    07364 0 00000 0 07501 2965KTX00 TXC00 F2529650
␣TXC08 = 3911
  1. Definition
    07507 0 07573 2 34321 3048TXC08 14545,2,OR000+5 F2530480
  2. Reference
    07365 0 00000 0 07507 2966TXC08 F2529660
␣TXC18 = 3917
  1. Definition
    07515 0 07614 2 34321 3054TXC18 14545,2,OR000+22 F2530540
  2. Reference
    07366 0 00000 0 07515 2967TXC18 F2529670
␣TXC30 = 3929
  1. Definition
    07531−2 00043 4 34362 3066TXC30 TNX14578,4,35 LLS F2530660
  2. Reference
    07367 0 00000 0 07531 2968KTX04 TXC30 F2529680
␣TXC31 = 3930
  1. Definition
    07532 0 07621 2 12424 3067TXC31 5396,2,OR000+27 F2530670
  2. Reference
    07370 0 00000 0 07532 2969KTX03 TXC31 F2529690
␣WRKSC = 1950
  1. Definition
    03636 167WRKSC BSS8 F2501610
  2. References (83)
    04232 0 60100 0 03637 444STOWRKSC+1 AND COEF. IS SET F2504390
    04234 0 60100 0 03636 446STOWRKSC A TAU TABLE ENTRY. F2504410
    04244 0 60100 4 03646 456SUB020 STOWRKSC+8,4 TO ZERO. F2504510
    04264 0 70000 0 03636 472CPYWRKSC WD1 IS C1 AND C2. F2504670
    04266 0 70000 0 03642 474CPYWRKSC+4 WD5 IS C3. F2504690
    04267 0 70000 0 03637 475SUB040 CPYWRKSC+1 WD2 IS S1, F2504700
    04271 0 70000 0 03641 477CPYWRKSC+3 WD4 IS S2. F2504720
    04273 0 70000 0 03643 479CPYWRKSC+5 WD6 IS S3. F2504740
    04274 0 70000 0 03644 480SUB050 CPYWRKSC+6 WD7 IS DIMENSI0N F2504750
    04277−0 50000 0 03636 483CALWRKSC F2504780
    04300 0 36100 4 03645 484SUB070 ACLWRKSC+7,4 F2504790
    04311 0 50000 4 03645 493SUB080 CLAWRKSC+7,4 F2504880
    04314 0 60100 4 03645 496STOWRKSC+7,4 WD1 DECREMENT IS C1) F2504910
    04317 0 60100 0 03640 499STOWRKSC+2 F2504940
    04321 0 60100 0 03645 501SUB090 STOWRKSC+7 WD8 DECREMENT IS D2. F2504960
    04426 0 20000 0 03636 585MPYWRKSC S1, F2505810
    04432 0 20000 0 03640 589MPYWRKSC+2 S2 F2505850
    04435 0 20000 0 03644 592MPYWRKSC+6 GO TO CN1IJ8 TO DIVIDE F2505880
    04437 0 20000 0 03642 594CN1IJ4 MPYWRKSC+4 S3, F2505900
    04442 0 20000 0 03644 597MPYWRKSC+6 GO TO CN1IJ8 TO DIVIDE F2505930
    04444 0 20000 0 03645 599MPYWRKSC+7 RETURN. F2503950
    04453 0 56000 0 03642 610LDQWRKSC+4 S3, LOAD C3. F2506060
    04456 0 56000 0 03636 613LDQWRKSC S1, LOAD C1. F2506090
    04460 0 56000 0 03640 615CXIJ1 LDQWRKSC+2 S2, LOAD C2. F2506110
    04464 0 20000 0 03644 619MPYWRKSC+6 CX TIMES D1. F2506150
    04467 0 20000 0 03645 622MPYWRKSC+7 CXD1 TIMES D2. F2506180
    06452 0 20000 0 03644 1682MPYWRKSC+6 D1N3 FOR S2 OR S3. F2516830
    06455 0 20000 0 03645 1685MPYWRKSC+7 D2D1N3 FOR S3. F2516860
    06462 0 20000 1 03644 1690MPYWRKSC+6,1 CN3D1D2 OR CN3D1 OR CN3. F2516910
    05423 0 50000 0 03644 1934CLAWRKSC+6 SYMBOL IN OR0+4 AND F2519340
    05432 0 56000 0 03644 1941LDQWRKSC+6 SYMBOL IN OR0+21 F2519410
    05433 0 20000 0 03645 1942MPYWRKSC+7 AND F2519420
    05437 0 50000 0 03644 1946CLAWRKSC+6 F2519460
    05464 0 50000 0 03637 1967CLAWRKSC+1 F2519670
    06021 0 56000 0 03640 2188AC172 LDQWRKSC+2 TES, SET UP F2521880
    06022 0 20000 0 03644 2189MPYWRKSC+6 CID1 AS G F2521890
    06025 0 50000 0 03636 2192CLAWRKSC N3X POSITION. F2521920
    06301 0 50000 0 03636 2366CLAWRKSC S1, F2523660
    06305 0 50000 0 03636 2370CLAWRKSC SENSE LIGHT , ISOLATE C1. F2523700
    06307 0 56000 0 03644 2372CDOR03 LDQWRKSC+6 ISOLATE D1. F2523720
    06311 0 20000 0 03640 2374MPYWRKSC+2 S2, FORM C2D1. F2523740
    06313 0 20000 0 03642 2376CDOR05 MPYWRKSC+4 S3, FORM F2523760
    06315 0 20000 0 03645 2378MPYWRKSC+7 F2523780
    06340 0 50000 0 03636 2402CLAWRKSC S1 , IS F2524020
    06350 0 56000 0 03640 2410LDQWRKSC+2 YES, FOR C2D1. F2524100
    06351 0 20000 0 03644 2411MPYWRKSC+6 IF S2 IS A F2524110
    06360 0 50000 0 03636 2418CLAWRKSC F2524180
    06367 0 56000 0 03642 2425AOR020 LDQWRKSC+4 S3, FORM F2524250
    06370 0 20000 0 03644 2426MPYWRKSC+6 C3D1D2. F2524260
    06372 0 20000 0 03645 2428MPYWRKSC+7 F2524280
    06404 0 56000 0 03640 2438LDQWRKSC+2 F2524380
    06405 0 20000 0 03644 2439MPYWRKSC+6 F2524390
    06415 0 50000 0 03636 2447CLAWRKSC F2524470
    06436 0 56000 0 03640 2465LDQWRKSC+2 COMPUTE G AS F2524650
    06437 0 20000 0 03644 2466MPYWRKSC+6 C2D1. PLACE F2524660
    06442 0 50000 0 03636 2469CLAWRKSC F2524690
    06454 0 56000 0 03644 2480LDQWRKSC+6 FORM C3D1D2 AND F2524800
    06455 0 20000 0 03645 2481MPYWRKSC+7 STORE-IN F2524810
    06457 0 20000 0 03642 2483MPYWRKSC+4 FOR USE BY F2524830
    06466 0 56000 0 03644 2490LDQWRKSC+6 IF DUPES, FORM F2524900
    06467 0 20000 0 03640 2491MPYWRKSC+2 C2D1, ADD TO F2524910
    06503 0 56000 0 03642 2504LDQWRKSC+4 COMPUTES C3D1D2, G1 F2525040
    06504 0 20000 0 03644 2505MPYWRKSC+6 AND C2D1, G2 IF DUP. F2525050
    06506 0 20000 0 03645 2507MPYWRKSC+7 110 C1 ADDED TO G2. F2525070
    06511 0 56000 0 03640 2510LDQWRKSC+2 F2525100
    06512 0 20000 0 03644 2511MPYWRKSC+6 F2525110
    06523 0 50000 0 03636 2520CLAWRKSC F2525200
    06527 0 50000 0 03636 2524DOR010 CLAWRKSC F2525240
    06564 0 50000 0 03636 2554CLAWRKSC N3,NU = 1, F2525540
    06573 0 50000 0 03636 2561CLAWRKSC ASSIGN SYMBOL F2525610
    06611 0 50000 0 03636 2575CLAWRKSC OR CLA N2, SUB N1. F2525750
    06635 0 50000 0 03636 2595CLAWRKSC FOR C1. F2525950
    06650 0 50000 0 03636 2606CLAWRKSC COMPILE F2526060
    06654 0 50000 0 03636 2610EOR010 CLAWRKSC F2526100
    06670 0 20000 0 03636 2622MPYWRKSC F2526220
    06755 0 50000 0 03636 2679CLAWRKSC F2526790
    06764 0 50000 0 03636 2686PCI21 CLAWRKSC F2526860
    06774 0 50000 0 03636 2694CLAWRKSC F2526940
    06777 0 50000 0 03636 2697CLAWRKSC NO, OBTAIN F2526970
    07056 0 50000 0 03636 2744CLAWRKSC INSTRUCTIONS F2527440
    07167 0 50000 1 03643 2824BITP30 CLAWRKSC+5,1 RELCON S SYMBOL FROM WRKSC. F2528240
    07175 0 50000 1 03644 2833COSE5 CLAWRKSC+6,1 ISOLATE COEFFIEIENT, F2528330
    07202 0 50000 1 03644 2838CLAWRKSC+6,1 ASS1GN FIXCON SYMBOL F2528380
␣XCEIP = 3956
  1. Definition
    07564 0 07605 6 26324 3093XCEIP 11476,6,OR000+15 F2530930
  2. Reference
    07400 0 00000 0 07564 2977LXCEIP XCEIP F2529770
␣XCI8P = 3951
  1. Definition
    07557 0 07605 6 26324 3088XCI8P 11476,6,OR000+15 F2530880
  2. Reference
    07562 0 00000 0 07557 3091LXCI8P XCI8P F2530910
␣XCIEP = 3955
  1. Definition
    07563 0 07612 2 34321 3092XCIEP 14545,2,OR000+20 F2530920
  2. Reference
    07377 0 00000 0 07563 2976LXCIEP XCIEP F2529760
11BITS = 2667
  1. Definition
    05153+000000003777 95511BITS OCT3777 F2509560
  2. References (4)
    05330−0 32000 0 05153 1070ANA11BITS NAME IN ACCUMULATOR AND F2510710
    05535−0 32000 0 05153 1203ANA11BITS NAME AND F2512040
    06105−0 32000 0 05153 1435ANA11BITS FILL OUT F2514360
    05335−0 32000 0 05153 1880ANA11BITS LAY OUT TAU ENTRIES F2518800
24T035 = 2682
  1. Definition
    05172+000000007777 97024T035 OCT7777 F2509710
  2. Reference
    05605−0 32000 0 05172 2048ANA24T035 COMPARE F2520480
36ONES = 2669
  1. Definition
    05155−377777777777 95736ONES OCT777777777777 F2509580
6ONESR = 2680
  1. Definition
    05170+000000000077 9686ONESR OCT77 F2509690
  2. References (3)
    05262−0 32000 0 05170 1837ANA6ONESR IN F2518370
    06005−0 32000 0 05170 2176AC170 ANA6ONESR DECREMENTS. F2521760
    06070−0 32000 0 05170 2227ANA6ONESR F2522270
ABDRMA = 2618
  1. Definition
    05072+000000001750 906ABDRMA DEC1000 F2509070
  2. Reference
    03770 0 46000 4 05073 262LDAABDRMA+1,4 F2502560
AC016I = 2780
  1. Definition
    05334 0 50000 0 03652 1879AC016I CLATAG3 RESET TYPE ENTRY F2518790
  2. Reference
    05331 0 02000 0 05334 1876TRAAC016I RESET TYPE ENTRY, USE NEW TAG F2518760
AC048I = 2864
  1. Definition
    05460−0 53400 1 03647 1963AC048I LXDTAG2,1 IS/LATE N1. F2519630
  2. References (3)
    05456 0 10000 0 05460 1961TZEAC048I IS S1 IS F2519610
    05461−3 00000 1 05464 1964TXLAC048I+4,1,0 IF NOT ISOLATE F2519640
    05463 0 02000 0 05465 1966TRAAC048I+5 F2519660
AC049A = 2883
  1. Definition
    05503 0 50000 0 07350 1982AC049A CLAKLX01 F2519820
  2. Reference
    05475 0 10000 0 05503 1976TZEAC049A NO, COMPILE CLA, SUB. F2519760
AC049B = 2885
  1. Definition
    05505 0 50000 0 05252 1984AC049B CLAOREDO F2519840
  2. References (2)
    05477−3 00000 2 05505 1978TXLAC049B,2,0 NO. F2519780
    05502−0 10000 0 05505 1981TNZAC049B NO. F2519810
AC050I = 2897
  1. Definition
    05521 0 50000 0 07352 1996AC050I CLAKLX02I L(LXI03) F2519960
  2. References (2)
    05516 1 00002 1 05521 1993TXIAC050I,1,2 F2519930
    05520 0 02000 0 05522 1995TRAAC050I+1 F2519950
AC228I = 3190
  1. Definition
    06166 0 53400 1 05130 2289AC228I LXAL(4),1 F2522890
  2. Reference
    06123−0 10000 0 06166 2254TNZAC228I N3 NOT = 1. F2522540
AC230I = 3222
  1. Definition
    06226 0 53400 1 05127 2321AC230I LXAL(2),1 G =1, N3 NOT = 1. F2523210
  2. Reference
    06177−0 10000 0 06226 2298TNZAC230I NO. F2522980
ADTG05 = 106
  1. Definition
    00152 0 53400 2 05124 114ADTG05 LXALZEKMX,2 CHECK SUM AREA F2506970
  2. Reference
    00215−0 10000 0 00152 149TNZADTG05 F2501440
ADTG10 = 110
  1. Definition
    00156 0 70000 1 03466 118ADTG10 CPYADTGMX,1 ADDRESS IS ORIGIN - MAX WORDS F2501130
  2. Reference
    00167 1 77777 2 00156 127TXIADTG10,2,−1 F2501220
ADTG20 = 118
  1. Definition
    00166 0 70000 2 01242 126ADTG20 CPYZEKSUM,2 CHECK SUM FOR DRMTAG. F2501210
  2. Reference
    00165 1 77774 1 00166 125TXIADTG20,1,−4 F2501200
ADTG30 = 120
  1. Definition
    00170−0 63400 1 00207 128ADTG30 SXDADTG38,1 MAX CURRENT TABLE SIZE. F2501230
  2. Reference
    00163 0 10000 0 00170 123TZEADTG30 END OF TABLE. F2501180
ADTG32 = 125
  1. Definition
    00175−0 50000 1 03466 133ADTG32 CALADTGMX,1 F2501280
  2. Reference
    D00207 3 00000 1 00175 143ADTG38 TXHADTG32,1 TEST FOR END OF TABLE. F2501380
ADTG34 = 134
  1. Definition
    00206 1 77777 2 00207 142ADTG34 TXIADTG38,2,−1 F2501370
  2. Reference
    00205 1 77774 1 00206 141TXIADTG34,1,−4 F2501360
ADTG38 = 135
  1. Definition
    D00207 3 00000 1 00175 143ADTG38 TXHADTG32,1 TEST FOR END OF TABLE. F2501380
  2. References (3)
    00170−0 63400 1 00207 128ADTG30 SXDADTG38,1 MAX CURRENT TABLE SIZE. F2501230
    00172 3 00617 1 00210 130TXHADTG38+1,1,399 RETURN IF TABLE DEPLETED. F2501250
    00206 1 77777 2 00207 142ADTG34 TXIADTG38,2,−1 F2501370
ADTGDM = 104
  1. Definition
    109**00 F2501090
    110************************************************************ F2506930
    111ADTGDM READS THE ADTAG TABLE FROM DRUM 3 INTO CORES. F2506940
    00150 0 50000 0 05133 112ADTGDM CLAL(0) INITIALIZE ERROR INDICATOR F2506950
  2. Reference
    00070 0 07400 4 00150 58TSXADTGDM,4 READ ADTAG ENTRIES F2500590
ADTGMX = 1846
  1. Definition
    03466 3118ADTGMX SYNADTG+400 F2531180
  2. References (14)
    00156 0 70000 1 03466 118ADTG10 CPYADTGMX,1 ADDRESS IS ORIGIN - MAX WORDS F2501130
    00160 0 70000 1 03467 120CPYADTGMX+1,1 F2501150
    00161 0 40200 1 03466 121SUBADTGMX,1 F2501160
    00162 0 70000 1 03470 122CPYADTGMX+2,1 F2501170
    00164 0 70000 1 03471 124CPYADTGMX+3,1 F2501190
    00175−0 50000 1 03466 133ADTG32 CALADTGMX,1 F2501280
    00176 0 36100 1 03467 134ACLADTGMX+1,1 F2501290
    00177 0 36100 1 03470 135ACLADTGMX+2,1 F2501300
    00200 0 36100 1 03471 136ACLADTGMX+3,1 F2501310
    04523 0 50000 1 03466 660ADTGS5 CLAADTGMX,1 COMPARE ADTG DDA WITH F2506560
    04534 0 50000 1 03466 669CLAADTGMX,1 IN RANGE, FILL F2506650
    04541 0 50000 1 03467 674CLAADTGMX+1,1 F2506700
    04546 0 50000 1 03470 679CLAADTGMX+2,1 F2506750
    04550 0 50000 1 03471 681CLAADTGMX+3,1 F2506770
ADTGS1 = 2385
  1. Definition
    D04521 3 00000 1 04523 658ADTGS1 TXHADTGS5,1 F2506540
  2. Reference
    00171−0 63400 1 04521 129SXDADTGS1,1 F2501240
ADTGS4 = 2393
  1. Definition
    04531 0 34000 0 05225 666ADTGS4 CASB F2506620
  2. References (2)
    04526 0 02000 0 04531 663TRAADTGS4 MODIFIED BY A DO THAT F2506590
    04527 0 02000 0 04531 664TRAADTGS4 IS WITHIN THE RANGE F2506600
ADTGS5 = 2387
  1. Definition
    04523 0 50000 1 03466 660ADTGS5 CLAADTGMX,1 COMPARE ADTG DDA WITH F2506560
  2. Reference
    D04521 3 00000 1 04523 658ADTGS1 TXHADTGS5,1 F2506540
ADTGS8 = 2410
  1. Definition
    04552 0 53400 2 05126 683ADTGS8 LXAL(1),2 INIT FOR POSING. F2506790
  2. Reference
    04557 1 00001 2 04553 688TXIADTGS8+1,2,1 ADTG NOT MOD BY DO, TAKE NEXT ADTG. F2506840
ADTGSE = 2382
  1. Definition
    652*************************************************************F2506480
    653ADTGSE FINDS A VALID DRMTG (ADTAG) ENTRY FOR CONSIDERATION F2506490
    654AND SPREADS IT INTO WORKING TAG (WRKSC). F2506500
    04516−0 53400 1 05237 655ADTGSE LXDXTG,1 F2506510
  2. References (3)
    05716 0 07400 4 04516 1316RTX184 TSXADTGSE,4 SEARCH FOR ADTAG. F2513170
    06204 0 07400 4 04516 1498RTX264 TSXADTGSE,4 FIND VALID TAG, FILL OUT TAG WDS. F2514990
    06250 0 07400 4 04516 2339AC244 TSXADTGSE,4 FIND VALID ADTG ENTRY. F2523390
ALLONE = 2643
  1. Definition
    05123+377777777777 931ALLONE OCT377777777777 F2509320
  2. References (5)
    00157 0 50000 0 05123 119CLAALLONE FENCE FOR TABLE END F2501140
    03703 0 50000 0 05123 206CLAALLONE INITIALIZE F2502000
    04046 0 40200 0 05123 311SUBALLONE END OF NEST INDICATOR F2503060
    05270 0 50000 0 05123 1037CLAALLONE INITIALIZE F2510380
    05304 0 50000 0 05123 1855AC05 CLAALLONE INITIALIZE CIL WORDS F2518550
AOR010 = 3303
  1. Definition
    06347−3 00001 1 06367 2409AOR010 TXLAOR020,1,1 IS SUB S2. F2524090
  2. Reference
    06337−3 00002 1 06347 2401TXLAOR010,1,2 S2 OR S3. F2524010
AOR014 = 3315
  1. Definition
    06363 0 50000 0 05245 2421AOR014 CLAERAOR0 CONTAINS C2D1, ETC. F2524210
  2. Reference
    06357 0 02000 0 06363 2417TRAAOR014 NO DUPES. F2524170
AOR020 = 3319
  1. Definition
    06367 0 56000 0 03642 2425AOR020 LDQWRKSC+4 S3, FORM F2524250
  2. Reference
    06347−3 00001 1 06367 2409AOR010 TXLAOR020,1,1 IS SUB S2. F2524090
AOR022 = 3337
  1. Definition
    06411 0 50000 0 03653 2443AOR022 CLATAG4 F2524430
  2. Reference
    06403 0 02000 0 06411 2437TRAAOR022 F2524370
AOR024 = 3344
  1. Definition
    06420 0 50000 0 05245 2450AOR024 CLAERAOR0 F2524500
  2. References (2)
    06400 0 02000 0 06420 2434TRAAOR024 ACCORDINGLY. F2524340
    06414 0 02000 0 06420 2446TRAAOR024 F2524460
AOR030 = 3348
  1. Definition
    06424 0 53400 1 05127 2454AOR030 LXAL(2),1 SUB IS S1, C1=1, F2524540
  2. References (3)
    06111 0 60100 0 06424 2244STOAOR030 ROUTINE T0 COMPUTE G. F2522440
    06232 0 60100 0 06424 2325STOAOR030 LXC L(4),1. F2523250
    06342 0 10000 0 06424 2404TZEAOR030 YES F2524040
AOR040 = 3352
  1. Definition
    06430 0 53400 1 05130 2458AOR040 LXAL(4),1 COMPILE LDQ,MPY, STD. F2524580
  2. References (5)
    06113 0 60100 0 06430 2246STOAOR040 F2522460
    06234 0 60100 0 06430 2327STOAOR040 LXD L(2),1. F2523270
    D06346−3 00000 0 06430 2408AOR05 TXLAOR040,0 F2524080
    06366 0 02000 0 06430 2424TRAAOR040 F2524240
    06423 0 02000 0 06430 2453TRAAOR040 F2524530
AOR050 = 3355
  1. Definition
    06433−0 53400 4 06346 2461AOR050 LXDAOR05,4 RESTORE LINKAGE. F2524610
  2. Reference
    06427 0 02000 0 06433 2457TRAAOR050 F2524570
BCDE10 = 3463
  1. Definition
    06607−0 53400 2 05237 1791BCDE10 LXDXTG,2 F2517920
  2. References (3)
    06602−3 00001 1 06606 1786TXLBCDE10−1,1,1 F2517870
    06603−3 00002 1 06607 1787TXLBCDE10,1,2 IF POSITION IS LEFT, F2517880
    06605 0 02000 0 06607 1789TRABCDE10 TO INDICATE BLOCK D SPECIAL. F2517900
BITMSK = 2664
  1. Definition
    05150+000000000020 952BITMSK OCT20 F2509530
  2. Reference
    06011−0 32000 1 05152 1375ANABITMSK+2,1 F2513760
BITP02 = 3687
  1. Definition
    A07147 0 77100 0 00000 2808BITP02 ARS DEFINED BY DO, RELCON, F2528080
  2. References (2)
    07140 0 62100 0 07147 2801STABITP02 INITIALIZE SHIFTS, F2528010
    07164 0 02000 0 07151 2821TRABITP02+2 SYMBOL HAS VARIABLE N1. F2528210
BITP04 = 3691
  1. Definition
    A07153 0 77100 0 00000 2812BITP04 ARS IF DEFINED BY DO, F2528120
  2. Reference
    07141 0 62100 0 07153 2802STABITP04 STORE LINKAGE F2528020
BITP10 = 3696
  1. Definition
    07160 0 50000 0 05254 2817BITP10 CLAN1SBX VARIABLE. IF SO, RETURN F2528170
BITP14 = 3698
  1. Definition
    A07162 0 77100 0 00000 2819BITP14 ARS IF NOT, F2528190
  2. Reference
    07137 0 62100 0 07162 2800BITP STABITP14 F2528000
BITP20 = 3701
  1. Definition
    07165 0 50000 2 01100 2822BITP20 CLADOTAGZ+2,2 DOSUB, N2. F2528220
BITP25 = 3702
  1. Definition
    D07166−3 00000 0 07170 2823BITP25 TXLBITP40,0 SUBMLEFT IN ACC. F2528230
  2. References (2)
    07145−0 63400 4 07166 2806SXDBITP25,4 F2528060
    07170−0 53400 4 07166 2825BITP40 LXDBITP25,4 RESTORE LINKAGE F2528250
BITP30 = 3703
  1. Definition
    07167 0 50000 1 03643 2824BITP30 CLAWRKSC+5,1 RELCON S SYMBOL FROM WRKSC. F2528240
  2. Reference
    07155 0 02000 0 07167 2814TRABITP30 DEFINED AS RELCON. F2528140
BITP40 = 3704
  1. Definition
    07170−0 53400 4 07166 2825BITP40 LXDBITP25,4 RESTORE LINKAGE F2528250
  2. Reference
    D07166−3 00000 0 07170 2823BITP25 TXLBITP40,0 SUBMLEFT IN ACC. F2528230
BLKNUM = 2728
  1. Definition
    05250 1016BLKNUM BSS1 F2510170
  2. References (13)
    04477−0 53400 4 05250 637LXDBLKNUM,4 F2506330
    05436−0 63400 2 05250 1140SXDBLKNUM,2 F2511410
    05467−0 63400 2 05250 1165SXDBLKNUM,2 BLOCK IS C, PUT IN XB. F2511660
    05526−0 63400 2 05250 1196SXDBLKNUM,2 STORE BLOCK NUMBER D. F2511970
    05601−0 63400 2 05250 1239RTX140 SXDBLKNUM,2 BLOCK E F2512400
    05637−0 53400 4 05250 1269LXDBLKNUM,4 APPEAR LIKE BLOCK C SO F2512700
    05641−0 63400 4 05250 1271RTX152 SXDBLKNUM,4 PROPERLY INTO DOTAG. F2512720
    05652−0 53400 4 05250 1280LXDBLKNUM,4 CHANGE BLKNUM F2512810
    05654−0 63400 4 05250 1282SXDBLKNUM,4 TO C AND F2512830
    05656−0 53400 4 05250 1284LXDBLKNUM,4 F2512850
    05660−0 63400 4 05250 1286SXDBLKNUM,4 F2512870
    06526−0 53400 4 05250 1739LXDBLKNUM,4 DOTAG WORD 7. APPROPRIATE F2517400
    06560−0 53400 2 05250 1768LXDBLKNUM,2 F2517690
BLKSZE = 2619
  1. Definition
    05073+000000001750 907BLKSZE DEC1000 F2509080
  2. References (2)
    03767 0 53400 1 05073 261LXABLKSZE,1 = OF INST PLUS CHECK SUM F2502550
    03775 0 53400 1 05073 267LXABLKSZE,1 F2502610
CDOR01 = 3263
  1. Definition
    D06277 3 00000 0 06300 2364CDOR01 TXHCDOR01+1,0 WHICH SUB IS IT. F2523640
  2. References (3)
    06274−0 63400 4 06277 2361CDOR0 SXDCDOR01,4 F2523610
    D06277 3 00000 0 06300 2364CDOR01 TXHCDOR01+1,0 WHICH SUB IS IT. F2523640
    06321−0 53400 4 06277 2382LXDCDOR01,4 RESTORE LINKAGE, F2523820
CDOR03 = 3271
  1. Definition
    06307 0 56000 0 03644 2372CDOR03 LDQWRKSC+6 ISOLATE D1. F2523720
  2. Reference
    06300−3 00002 2 06307 2365TXLCDOR03,2,2 S2 OR S3, TRA. F2523650
CDOR05 = 3275
  1. Definition
    06313 0 20000 0 03642 2376CDOR05 MPYWRKSC+4 S3, FORM F2523760
  2. Reference
    06310−3 00001 2 06313 2373TXLCDOR05,2,1 WHICH SUBLISKIT. F2523730
CDOR07 = 3278
  1. Definition
    06316 0 76700 0 00021 2379CDOR07 ALS17 ASSIGN SYMBOL F2523790
  2. References (2)
    06306 0 02000 0 06317 2371TRACDOR07+1 F2523710
    06312 0 02000 0 06316 2375TRACDOR07 F2523750
CHEKSM = 2691
  1. Definition
    05203 979CHEKSM BSS1 F2509800
  2. References (2)
    03771 0 70000 0 05203 263CPYCHEKSM F2502570
    04001 0 50000 0 05203 271CLACHEKSM F2502650
CIL023 = 3381
  1. Definition
    1693*************************************************************F2516940
    1694CIL023 FILLS OUT THE LOCATION, ADDRESS, AND TAG NAME WORDS FOF2516950
    1695FOR NON-LOCATION COMPILED INSTRUCTIONS ADDRESSING THE FOLLOWIF2516960
    1696ING INSTRUCTIONS F2516970
    06465 0 50000 0 05133 1697CIL023 CLAL(0) ROUTINE PLACES SPECIAL F2516980
  2. References (4)
    05400 0 07400 4 06465 1110TSXCIL023,4 OUT-4 WORDS OF F2511110
    06176 0 07400 4 06465 1492RTX246 TSXCIL023,4 F2514930
    06520 0 07400 4 06465 1733TSXCIL023,4 ERTX02, F2517340
    06542 0 07400 4 06465 1751TSXCIL023,4 F2517520
CIL03I = 3673
  1. Definition
    2787*************************************************************F2527870
    2788CIL03I FILLS OUT LOCATION AND TAG NAME WORDS FOR COMPILED INSF2527880
    2789TRUCTIONS WITHOUT LOCATIONS. F2527890
    07131 0 50000 0 05133 2790CIL03I CLAL(0) PLACE 0 IN LOCATION F2527900
  2. References (5)
    05167 0 07400 4 07131 967INST14 TSXCIL03I,4 F2509680
    05361 0 07400 4 07131 1900TSXCIL03I,4 FILL OUT LOCATION AND TG WORDS. F2519000
    05466 0 07400 4 07131 1969TSXCIL03I,4 FILL OUT F2519690
    05554 0 07400 4 07131 2023AC096 TSXCIL03I,4 COMPILE F2520230
    05755 0 07400 4 07131 2152TSXCIL03I,4 INSTRUCTIONS F2521520
CILNAM = 3484
  1. Definition
    1818*************************************************************F2518190
    1819CILNAM ENTERS ONLY THE TAG NAME. F2518200
    06634 0 50000 0 03652 1820CILNAM CLATAG3 THIS ROUTINE F2518210
  2. References (2)
    06036 0 07400 4 06634 1396TSXCILNAM,4 ENTER TAG NAME IN CIL03. F2513970
    06047 0 07400 4 06634 1405TSXCILNAM,4 ENTER TAG NAME. F2514060
CN1IJ2 = 2329
  1. Definition
    04431−3 00001 1 04437 588CN1IJ2 TXLCN1IJ4,1,1 DIVIDE BY 2 AND RETURN. F2505840
  2. Reference
    04425−3 00002 1 04431 584TXLCN1IJ2,1,2 S2 OR S3, TRANSFER. F2505800
CN1IJ4 = 2335
  1. Definition
    04437 0 20000 0 03642 594CN1IJ4 MPYWRKSC+4 S3, F2505900
  2. Reference
    04431−3 00001 1 04437 588CN1IJ2 TXLCN1IJ4,1,1 DIVIDE BY 2 AND RETURN. F2505840
CN1IJ8 = 2341
  1. Definition
    04445 0 77100 0 00001 600CN1IJ8 ARS1 DIVIDE BY 2, RESULT IS (C1N1-1) F2505960
  2. References (2)
    04430 0 02000 0 04445 587TRACN1IJ8 F2505830
    04436 0 02000 0 04445 593TRACN1IJ8 BY 2 AND RETURN. F2505890
CN3IJ5 = 3375
  1. Definition
    06457−0 75400 1 00000 1687CN3IJ5 PXD0,1 PLACE TWICE F2516880
  2. References (2)
    06451 3 00002 1 06457 1681TXHCN3IJ5,1,2 IF POSIND=3, S1 POS. F2516820
    06454 3 00001 1 06457 1684TXHCN3IJ5,1,1 POSIND=2 S2 POS. F2516850
COR005 = 3381
  1. Definition
    D06465−3 00000 0 06473 2489COR005 TXLCOR010,0 NO DUPES. F2524890
  2. References (2)
    06453−0 63400 4 06465 2479COR0 SXDCOR005,4 F2524790
    06500−0 53400 4 06465 2500LXDCOR005,4 RESTORE LINKAGE AND F2525000
COR010 = 3387
  1. Definition
    06473 0 53400 1 05126 2495COR010 LXAL(1),1 SET N3X POSITION F2524950
  2. Reference
    D06465−3 00000 0 06473 2489COR005 TXLCOR010,0 NO DUPES. F2524890
COSE08 = 3717
  1. Definition
    07205 2 00002 1 07206 2841COSE08 TIXCOSE10,1,2 BUMP COEF. INDEX. F2528410
  2. References (2)
    07176 0 10000 0 07205 2834TZECOSE08 NO SUB FOR THIS DIM. F2528340
    07200 0 10000 0 07205 2836TZECOSE08 C=1, CHECK NEXT C. F2528360
COSE10 = 3718
  1. Definition
    07206 2 00001 2 07175 2842COSE10 TIXCOSE5,2,1 BUMP S.6. TEST AND LOOP, F2528420
  2. Reference
    07205 2 00002 1 07206 2841COSE08 TIXCOSE10,1,2 BUMP COEF. INDEX. F2528410
CPYWD1 = 2721
  1. Definition
    05241 3111CPYWD1 SYNER40 F2531110
  2. References (5)
    04615 0 70000 0 05241 725FC08 CPYCPYWD1 ENTRY FROM TABLE. F2507260
    04637 0 60100 0 05241 743FC40 STOCPYWD1 SEARCH ENDED, ENTRY NOT FOUND. F2507440
    04651 0 70000 0 05241 753CPYCPYWD1 WRITE NEW CONSTANT F2507540
    04652 0 70000 0 05241 754CPYCPYWD1 AND CHECK SUM ON DRUM. F2507550
    04662 0 50000 0 05241 762FC60 CLACPYWD1 TEST DRUM READING F2507630
CPYWD2 = 2722
  1. Definition
    05242 3112CPYWD2 SYNER41 F2531120
  2. References (3)
    04617 0 70000 0 05242 727CPYCPYWD2 CHECK SUM. F2507280
    04622 0 34000 0 05242 730CASCPYWD2 COMPARE ENTRY WITH COMPARISON WORD. F2507310
    04663 0 40200 0 05242 763SUBCPYWD2 F2507640
CPYWD3 = 84
  1. Definition
    A00124 0 00000 0 00000 86CPYWD3 HTR F2500870
  2. References (11)
    00034 0 70000 0 00124 27CPYCPYWD3 DO TAG REC COUNT F2500280
    00035 0 70000 0 00124 28CPYCPYWD3 DO TAG REC COUNT F2500290
    00041−0 53400 1 00124 32LXDCPYWD3,1 F2500330
    00051 0 70000 0 00124 40CPYCPYWD3 TAGTAG RECORD COUNT F2500410
    00073 0 70000 0 00124 61CPYCPYWD3 WORD COUNT OF FIXCON F2500620
    00075 0 50000 0 00124 63CLACPYWD3 F2500640
    00100 0 50000 0 00124 66CLACPYWD3 F2500670
    00136 0 60200 0 00124 99SLWCPYWD3 F2501000
    00142 0 70000 0 00124 103CPYCPYWD3 F2501040
    00201 0 60200 0 00124 137SLWCPYWD3 F2501320
    00202 0 50000 0 00124 138CLACPYWD3 F2501330
CPYWD4 = 85
  1. Definition
    A00125 0 00000 0 00000 87CPYWD4 HTR F2500880
  2. References (2)
    00074 0 70000 0 00125 62CPYCPYWD4 F2500630
    00076 0 40200 0 00125 64SUBCPYWD4 F2500650
DECMSK = 2658
  1. Definition
    05142+077777000000 946DECMSK OCT077777000000 F2509470
  2. References (6)
    03752−0 32000 0 05142 245ANADECMSK F2502390
    04313−0 32000 0 05142 495ANADECMSK F2504900
    04524−0 32000 0 05142 661ANADECMSK DOTAG A AND B UNTIL F2506570
    05701−0 32000 0 05142 1303ANADECMSK OF CURRENT DO. F2513040
    07305−0 32000 0 05142 2917ANADECMSK FOR FIRST COMPILED F2529170
    07340−0 32000 0 05142 2944ANADECMSK F2529440
DOGS20 = 2106
  1. Definition
    04072 0 53400 1 05057 334DOGS20 LXALMXDTG,1 START SCAN AT FIRST ENTRY F2503290
  2. References (3)
    D04063−3 00000 1 04072 327TXLDOGS20,1 F2503220
    04065−0 10000 0 04072 329TNZDOGS20 F2503240
    04070 3 00001 1 04072 332TXHDOGS20,1,1 HAS BEEN COMPLETELY F2503270
DOGS22 = 2107
  1. Definition
    04073 0 50000 0 05226 335DOGS22 CLASWICH F2503300
  2. Reference
    D04142 3 00000 1 04073 374DOGS60 TXHDOGS22,1 F2503690
DOGS25 = 2116
  1. Definition
    04104 0 50000 1 01076 344DOGS25 CLADOTAGZ,1 B PORTION UNDER CONSIDERATION F2503390
  2. Reference
    04074−0 10000 0 04104 336TNZDOGS25 B PORTION UNDER CONSIDERATION F2503310
DOGS30 = 2124
  1. Definition
    04114 0 50000 0 05225 352DOGS30 CLAB F2503470
  2. Reference
    04103 0 02000 0 04114 343TRADOGS30 PROCEED T/ COMPARIS0N F2503380
DOGS40 = 2129
  1. Definition
    04121 0 50000 0 05232 357DOGS40 CLATEABOX COMPARE AS F2503520
  2. Reference
    04117 0 02000 0 04121 355TRADOGS40 T=B1 COMPARE AS F2503500
DOGS45 = 2133
  1. Definition
    04125 0 50000 0 05224 361DOGS45 CLAA T-A STORE B IN TRBBOX F2503560
  2. Reference
    04116 0 02000 0 04125 354TRADOGS45 T-B1 STORE B IN TEB8OX F2503490
DOGS50 = 2140
  1. Definition
    04134 0 50000 0 05226 368DOGS50 CLASWICH REVERSE SWITCH FOR F2503630
  2. References (4)
    04077−0 10000 0 04134 339TNZDOGS50 CONTINUE, ALREADY ANALYZED F2503340
    04106−0 10000 0 04134 346TNZDOGS50 ALREADY ANALYZED, CONTINUE F2503410
    04120 0 02000 0 04134 356TRADOGS50 T-B1 CONTINUE F2503510
    04123 0 02000 0 04134 359TRADOGS50 T-A CONTINUE F2503540
DOGS60 = 2146
  1. Definition
    D04142 3 00000 1 04073 374DOGS60 TXHDOGS22,1 F2503690
  2. References (3)
    03656−0 63400 2 04142 185SXDDOGS60,2 INIT. DECREMENT OF TEST. F2501790
    04140−0 10000 0 04142 372TNZDOGS60 TESTS A,B STATUS IF A F2503670
    04141 1 77767 1 04142 373TXIDOGS60,1,−9 LOWERS INDEX FOR NEXT DO F2503680
DOGS70 = 2153
  1. Definition
    04151−0 60200 1 01076 381DOGS70 ORSDOTAGZ,1 F2503760
  2. Reference
    04147−3 00000 2 04151 379TXLDOGS70,2,0 A OR B USED F2503740
DOIND1 = 2713
  1. Definition
    05231 1001DOIND1 BSS1 F2510020
  2. References (4)
    03701 0 60100 0 05231 204STODOIND1 F2501980
    04062−0 53400 1 05231 326LXDDOIND1,1 IF LEVEL OF LAST F2503210
    04131−0 63400 1 05231 365SXDDOIND1,1 RECORD THE DO POSITION F2503600
    04143−0 53400 1 05231 375LXDDOIND1,1 END OF SCAN F2503700
DOR010 = 3415
  1. Definition
    06527 0 50000 0 03636 2524DOR010 CLAWRKSC F2525240
  2. Reference
    D06522−3 00000 0 06527 2519DOR05 TXLDOR010,0 F2525190
DOR020 = 3418
  1. Definition
    06532 0 53400 1 05126 2527DOR020 LXAL(1),1 SET N3X POS. TO S3, F2525270
  2. References (2)
    06520 0 10000 0 06532 2517TZEDOR020 F2525170
    06526 0 02000 0 06532 2523TRADOR020 FC52523D
DOTAGZ = 574
  1. Definition
    01076 3119DOTAGZ SYNDOTAG+450 F2531190
  2. References (90)
    03662 0 32000 2 01104 189 MAN03 ANSDOTAGZ+6,2 T1 WORD MUST HAVE F2501830
    03721 0 50000 2 01076 220CLADOTAGZ,2 F2502140
    04015 0 70000 2 01076 284TDOTG4 CPYDOTAGZ,2 F2502790
    04066 0 50000 1 01103 330CLADOTAGZ+5,1 ANALYZED DOTAG ENTRY F2503250
    04075 0 50000 1 01076 337CLADOTAGZ,1 A PORTION UNDER CONSIDERATION F2503320
    04100 0 50000 1 01076 340CLADOTAGZ,1 SETS UP A PORTION OF F2503350
    04104 0 50000 1 01076 344DOGS25 CLADOTAGZ,1 B PORTION UNDER CONSIDERATION F2503390
    04107 0 50000 1 01076 347CLADOTAGZ,1 SET UP A IN F2503420
    04151−0 60200 1 01076 381DOGS70 ORSDOTAGZ,1 F2503760
    04231 0 50000 2 01077 443CLADOTAGZ+1,2 PLACED IN WRKSC F2504380
    04423 0 56000 2 01100 582CN1IJ LDQDOTAGZ+2,2 N2 INTO MQ. F2505770
    04447 0 50000 2 01103 606CXIJ CLADOTAGZ+5,2 F2506020
    04504 0 50000 4 01076 642CLADOTAGZ,4 FOR BLOCKS B,C, FILL IN F2506380
    04571 0 50000 2 01076 701CLADOTAGZ,2 ISOLATE F2507020
    04676 0 50000 2 01100 7780P2P CLADOTAGZ+2,2 IF NOT DEFINED BY F2507790
    04701 0 50000 2 01100 781CLADOTAGZ+2,2 IF CONSTANT, COMPUTE F2507820
    04742 0 50000 2 01076 817CLADOTAGZ,2 ARE ALL F2508180
    04746 0 50000 2 01101 821CLADOTAGZ+3,2 YES, F2508220
    04747 0 40200 2 01100 822SUBDOTAGZ+2,2 FORM F2508230
    04771 0 50000 2 01101 840CLADOTAGZ+3,2 N2 VARIABLE, F2508410
    04776 0 50000 2 01101 845OP32 CLADOTAGZ+3,2 F2508460
    05013 0 50000 2 01076 858CLADOTAGZ,2 F2508590
    05017 0 50000 2 01100 862CLADOTAGZ+2,2 N1IS VARIABLE, F2508630
    05024 0 50000 2 01100 867OP34 CLADOTAGZ+2,2 N1 CONSTANT, F2508680
    05261 0 50000 2 01076 1030CLADOTAGZ,2 ALPHA BETA WORD OF DO. F2510310
    05416 0 50000 2 01103 1124CLADOTAGZ+5,2 OCCURRANCE. F2511250
    05431 0 50000 2 01077 1135CLADOTAGZ+1,2 PUT FORVAR SUBSCRIPT F2511360
    05665−0 60200 2 01104 1291ORSDOTAGZ+6,2 F2512920
    05674 0 50000 2 01106 1298CLADOTAGZ+8,2 HAS AN S THAT IS THE TEST. F2512990
    05754 0 50000 2 01076 1346CLADOTAGZ,2 IS ENTERED IN A DRUM TABLE. F2513470
    06003 0 50000 2 01101 1369CLADOTAGZ+3,2 F2513700
    06026 0 50000 2 01101 1388CLADOTAGZ+3,2 PTCH06 CALLS TELC ROUTINE F2513890
    06056−0 60200 2 01106 1412ORSDOTAGZ+8,2 VARIABLE DECREMENT. F2514130
    06061−0 60200 2 01104 1415ORSDOTAGZ+6,2 TEST. F2514160
    06236 0 50000 2 01076 1529CLADOTAGZ,2 THE N3 BIT SO THAT F2515300
    06260 0 50000 2 01106 1549CLADOTAGZ+8,2 F2515S00
    06447 0 56000 2 01102 1679CN3IJ LDQDOTAGZ+4,2 COMPUTES DECREMENT AND F2516800
    06535−0 60200 2 01104 1746EDCB20 ORSDOTAGZ+6,2 PLACE LOC. INTO WD 7. F2517470
    06566−0 60200 1 01104 1774ORSDOTAGZ+6,1 F2517750
    06576−0 60200 1 01104 1782BCDE8 ORSDOTAGZ+6,1 F2517830
    06620 0 50000 2 01076 1802NBITS CLADOTAGZ,2 ROUTINE FOR ISOLATING F2518030
    05260 0 50000 2 01104 1835CLADOTAGZ+6,2 PLACE F2518350
    05266 0 50000 2 01076 1841CLADOTAGZ,2 ERTX01 FOR F2518410
    05451−0 50000 1 01100 1956CALDOTAGZ+2,1 ISOLATE N1. F2519560
    05454−0 50100 1 01100 1959ORADOTAGZ+2,1 IF EITHER N1 IS GREATER F2519590
    05462 0 50000 1 01100 1965CLADOTAGZ+2,1 S1 (BCD). F2519650
    05500 0 50000 2 01100 1979CLADOTAGZ+2,2 YES, IS N1(S1)=1. F2519790
    05601 0 50000 2 01106 2044AC116 CLADOTAGZ+8,2 ISOLATE F2520440
    05613 0 50000 2 01101 2054AC120 CLADOTAGZ+3,2 THIS IS TEST TAG, F2520540
    05616 0 50000 2 01106 2057CLADOTAGZ+8,2 IF RIGHT TEST HAS VARIABLE DECREMENT F2520570
    05622 0 50000 2 01101 2061AC128 CLADOTAGZ+3,2 F2520610
    05627 0 56000 2 01104 2066AC138 LDQDOTAGZ+6,2 CONSTANT N2 CASE. F2520660
    05633 0 50000 2 01101 2070CLADOTAGZ+3,2 YES, ISOLATE N2. F2520700
    05640 0 50000 2 01106 2075CLADOTAGZ+8,2 DOES TEST F2520750
    05707 0 50000 2 01106 2114CLADOTAGZ+8,2 F2521140
    05750 0 50000 2 01103 2147CLADOTAGZ+5,2 WITHIN THE CURRENT DO. F2521470
    05761 0 50000 2 01077 2156CLADOTAGZ+1,2 VALUE F2521560
    06077 0 50000 2 01102 2234ACI21 CLADOTAGZ+4,2 THIS DO. F2522340
    06121 0 50000 2 01102 2252CLADOTAGZ+4,2 TIX DECREMENT. F2522520
    06124 0 50000 2 01100 2255CLADOTAGZ+2,2 N3 = 1, DOES F2522550
    06127 0 50000 2 01101 2258CLADOTAGZ+3,2 N3, N1=1. F2522580
    06175 0 50000 2 01102 2296CLADOTAGZ+4,2 F2522960
    06200 0 50000 2 01100 2299CLADOTAGZ+2,2 YES, DOES N1= 1. F2522990
    06203 0 50000 2 01101 2302CLADOTAGZ+3,2 G,N3,N1 = 1, F2523020
    06327 0 50000 2 01076 2393CLADOTAGZ,2 BY COMBINING TETLOC F2523930
    06334 0 50000 2 01102 2398CLADOTAGZ+4,2 F2523980
    06553 0 50000 2 01103 2545CLADOTAGZ+5,2 IS F2525450
    06556 0 50000 2 01102 2548CLADOTAGZ+4,2 X NOT COMPUTABLE, F2525480
    06561 0 50000 2 01100 2551CLADOTAGZ+2,2 N3=1, IS F2525510
    06567 0 50000 2 01101 2557CLADOTAGZ+3,2 N3, N1, C1 = 1 . F2525570
    06571 0 50000 2 01101 2559EOR01 CLADOTAGZ+3,2 ISOLATE F2525590
    06705 0 50000 2 01076 2639CLADOTAGZ,2 F2526390
    06714 0 50000 2 01076 2646CLADOTAGZ,2 IS N3 FOR THIS DO F2526460
    06720 0 50000 2 01102 2650CLADOTAGZ+4,2 YES, F2526500
    06731 0 56000 2 01102 2659PC10 LDQDOTAGZ+4,2 N3 C0NSTANT, PUT F2526590
    06741 0 50000 2 01102 2667CLADOTAGZ+4,2 DOES N3 = 1. F2526670
    06744 0 50000 2 01103 2670CLADOTAGZ+5,2 YES, IS X CONST. F2526700
    06750 0 50000 2 01100 2674CLADOTAGZ+2,2 NO, IS N1 = 1. F2526740
    06753 0 50000 2 01101 2677CLADOTAGZ+3,2 YES, DOES C1 = 1, F2526770
    07032 0 50000 2 01100 2724CLADOTAGZ+2,2 IS N1 = 1 F2527240
    07037 0 50000 2 01101 2729PCI32 CLADOTAGZ+3,2 COMPILE F2527290
    07117 0 50000 2 01076 2777CLADOTAGZ,2 CURRENT F2527770
    07165 0 50000 2 01100 2822BITP20 CLADOTAGZ+2,2 DOSUB, N2. F2528220
    07214 0 56000 2 01104 2851LDQDOTAGZ+6,2 SXD F2528510
    07221 0 50000 2 01076 2856CLADOTAGZ,2 PUT TXL F2528560
    07230 0 50000 2 01103 2865CLADOTAGZ+5,2 LEFT IN THE F2528650
    07233 0 50000 2 01103 2868CLADOTAGZ+5,2 F2528680
    07240 0 50000 2 01076 2875CLADOTAGZ,2 F2528750
    07256 0 50000 2 01100 2889CLADOTAGZ+2,2 F2528890
    07304 0 50000 2 01076 2916CLADOTAGZ,2 OF LOCATION WORD F2529160
DRADS1 = 2610
  1. Definition
    05062+000000002664 898DRADS1 OCT2664 F2508990
DRADS2 = 2611
  1. Definition
    05063 0 00000 0 00314 899DRADS2 204 F2509000
  2. References (5)
    03743 0 70000 0 05063 238CPYDRADS2 F2502320
    03744 0 70000 0 05063 239CPYDRADS2 F2502330
    05275 0 46000 0 05063 1848LDADRADS2 ENTRY F2518480
    05301 0 50000 0 05063 1852CLADRADS2 RESET DRUM F2518520
    05303 0 60100 0 05063 1854STODRADS2 NEXT ENTRY. F2518540
DRADS3 = 2612
  1. Definition
    05064 0 00000 0 00002 900DRADS3 2 F2509010
  2. References (5)
    03746 0 70000 0 05064 241CPYDRADS3 F2502350
    03747 0 70000 0 05064 242CPYDRADS3 F2502360
    05761 0 46000 0 05064 1351LDADRADS3 WORD F2513520
    05764 0 50000 0 05064 1354CLADRADS3 DOCAR F2513550
    05766 0 60100 0 05064 1356STODRADS3 TABLE. F2513570
DRADSI = 143
  1. Definition
    00217+000000002664 151DRADSI OCT2664 DRMTG ORIGIN. F2501460
  2. Reference
    00155 0 46000 0 00217 117LDADRADSI READ ADTEG TABLE F2501120
EDCB10 = 3420
  1. Definition
    06534−0 53400 2 03650 1745EDCB10 LXDTAG2+1,2 BLOCK D,E USE S2 DOTAG. F2517460
  2. Reference
    06527 3 00002 4 06534 1740TXHEDCB10,4,2 BITS DEPEND ON BLOCK NOS. F2517410
EDCB20 = 3421
  1. Definition
    06535−0 60200 2 01104 1746EDCB20 ORSDOTAGZ+6,2 PLACE LOC. INTO WD 7. F2517470
  2. Reference
    D06533−3 00000 0 06535 1744EDCB5 TXLEDCB20,0 BLOCK B, SHIGT LEFT 18. F2517450
EOR006 = 3493
  1. Definition
    D06645−3 00000 0 06647 2603EOR006 TXLEOR008,0 F2526030
  2. References (4)
    06541−0 63400 4 06645 2535EOR0 SXDEOR006,4 F2525350
    06555 0 10000 0 06644 2547TZEEOR006−1 X COMPUTABLE. F2525470
    06560−0 10000 0 06644 2550TNZEOR006−1 N3 NOT =1. F2525500
    06664−0 53400 4 06645 2618LXDEOR006,4 F2526180
EOR008 = 3495
  1. Definition
    06647 0 53400 1 05106 2605EOR008 LXAL(6),1 X NOT CONST., F2526050
  2. Reference
    D06645−3 00000 0 06647 2603EOR006 TXLEOR008,0 F2526030
EOR010 = 3500
  1. Definition
    06654 0 50000 0 03636 2610EOR010 CLAWRKSC F2526100
  2. Reference
    06653 1 00002 1 06654 2609TXIEOR010,1,2 XGN3. F2526090
EOR015 = 3503
  1. Definition
    06657 0 50000 0 07373 2613EOR015 CLALXCI F2526130
  2. Reference
    06652 0 10000 0 06657 2608TZEEOR015 TO COMPUTE F2526080
EOR018 = 3505
  1. Definition
    06661 0 53400 1 05130 2615EOR018 LXAL(4),1 COMPILE LLS, SUB, F2526150
  2. Reference
    06607 0 02000 0 06664 2573TRAEOR018+3 F2525730
EOR020 = 3510
  1. Definition
    06666 0 76500 0 00043 2620EOR020 LRS35 F2526200
  2. Reference
    06646 0 02000 0 06666 2604TRAEOR020 X CONSTANT, EOR020. F2526040
EOR022 = 3516
  1. Definition
    06674 0 60100 0 07612 2626EOR022 STOOR000+20 PUT SYMB0L IN F2526260
  2. Reference
    06570 0 02000 0 06674 2558TRAEOR022 ISOLATE N2 SYMBOL. F2525580
ERAOR0 = 2725
  1. Definition
    05245 3110ERAOR0 SYNERTX01 F2531100
  2. References (10)
    06353 0 60100 0 05245 2413STOERAOR0 F2524130
    06361 0 40000 0 05245 2419ADDERAOR0 F2524190
    06362 0 60100 0 05245 2420STOERAOR0 F2524200
    06363 0 50000 0 05245 2421AOR014 CLAERAOR0 CONTAINS C2D1, ETC. F2524210
    06374 0 60100 0 05245 2430STOERAOR0 F2524300
    06407 0 40000 0 05245 2441ADDERAOR0 F2524410
    06410 0 60100 0 05245 2442STOERAOR0 F2524420
    06416 0 40000 0 05245 2448ADDERAOR0 F2524480
    06417 0 60100 0 05245 2449STOERAOR0 F2524490
    06420 0 50000 0 05245 2450AOR024 CLAERAOR0 F2524500
ERDRM1 = 2723
  1. Definition
    M 05243 3114ERDRM1 SYNARG F2531140
  2. References (2)
    M04604 0 60100 0 05243 716STOERDRM1 F2507170
    M04612 0 50000 0 05243 722FC04 CLAERDRM1 COMPARISON WORD IN ACCUMULATOR. F2507230
ERORBX = 2707
  1. Definition
    05223 995ERORBX BSS1 F2509960
  2. References (5)
    00151 0 60100 0 05223 113STOERORBX F2506960
    00211 0 50000 0 05223 145 EROR CLAERORBX IF ERROR IN A CHECK THE F2501400
    00213 0 60100 0 05223 147STOERORBX THIS IS DONE FOUR TIMES AFTER F2501420
    03763−0 63400 4 05223 257 ABDRM SXDERORBX,4 STORE LINKAGE F2ZA1510
    04010−0 53400 4 05223 278PGPG14 LXDERORBX,4 F2502720
ERTX01 = 2725
  1. Definition
    05245 1013ERTX01 BSS1 F2510140
  2. References (38)
    04410 0 60100 0 05245 568STOERTX01 F2505630
    04416 0 40000 0 05245 574ADDERTX01 . F2505690
    04417 0 60100 0 05245 575STOERTX01 (C1N1)+(C2N1-1)D1+(C3N1-1)D1D2. F2505700
    04472−0 63400 4 05245 632CSXD SXDERTX01,4 ROUTINE FOR F2506280
    04514−0 53400 4 05245 650LXDERTX01,4 F2506460
    05344 0 60100 0 05245 1082STOERTX01 AND STORES IN ERTX01. F2510830
    05362 0 40000 0 05245 1096ADDERTX01 FOR NEXT LEFT SUBSCR1PT. F2510970
    05363 0 60100 0 05245 1097STOERTX01 REPLACE ADJUSTED DECREMENT IN ERTX01. F2510980
    05374 0 40000 0 05245 1106ADDERTX01 IN 1,2,3 AND 1,3 CASES. F2511070
    05375 0 60100 0 05245 1107STOERTX01 FINAL DECREMENT ADJUSTMENT. F2511080
    05376 0 50000 0 05245 1108RTX66 CLAERTX01 F2511090
    05451 0 60100 0 05245 1151STOERTX01 STORE IN ERTX01. F2511520
    05460 0 40000 0 05245 1158ADDERTX01 ADDN3G FOR THIS SUBSCRIPT F2511590
    05461 0 60100 0 05245 1159STOERTX01 RESULT IS TXI DECREMENT. F2511600
    05507 0 60100 0 05245 1181STOERTX01 RESULT IS ERTX01. F2511820
    05517 0 40000 0 05245 1189ADDERTX01 STORE IN ERTX01. F2511900
    05520 0 60100 0 05245 1190STOERTX01 XN3G(L) + N3G(R) + N3G(C) - 1) F2511910
    05546 0 60100 0 05245 1212STOERTX01 DOSUB SUBSCRIPT. F2512130
    05560 0 40000 0 05245 1222ADDERTX01 DECREMENT ADJUSTMENT F2512230
    05561 0 60100 0 05245 1223STOERTX01 FOR X0X F2512240
    05573 0 40000 0 05245 1233ADDERTX01 YIELDING TXI F2512340
    05574 0 60100 0 05245 1234STOERTX01 DECREMENT. F2512350
    05605 0 60100 0 05245 1243STOERTX01 AND S2 INTO ERTX01 F2512440
    05610 0 40000 0 05245 1246ADDERTX01 THEN THE DECREMENT IS VARIABLE. F2512470
    05626 0 60100 0 05245 1260STOERTX01 IN ERTX01. F2512610
    05635 0 60100 0 05245 1267STOERTX01 BLOCK E, THE BLOCK F2512680
    05676 0 60100 0 05245 1300STOERTX01 TEST NAME. F2513010
    05702 0 40200 0 05245 1304SUBERTX01 IF THIS TAG IS F2513050
    06032 0 50000 0 05245 1392CLAERTX01 DEC, STORES IN ERTX01. F2513930
    06152 0 60100 0 05245 1472STOERTX01 XN3G IN ERTX01. F2514730
    06165 0 40000 0 05245 1483ADDERTX01 AND COMPUTE AND ADD F2514840
    06166 0 60100 0 05245 1484STOERTX01 DECREMENT ADJUSTMENT F2514850
    06167 0 50000 0 05245 1485RTX240 CLAERTX01 PUT COMPUTED DE EREMTN F2514860
    06516 0 50000 0 05245 1731CLAERTX01 ASSUMES DECREMENTS TO F2517320
    05274 0 60200 0 05245 1847SLWERTX01 TABLE F2518470
    05300 0 70000 0 05245 1851CPYERTX01 F2518510
    05347 0 50000 0 05245 1890CLAERTX01 VALUE F2518900
    05245 3110ERAOR0 SYNERTX01 F2531100
ERTX02 = 2726
  1. Definition
    05246 1014ERTX02 BSS1 F2510150
  2. References (15)
    05357 0 60100 0 05246 1093RTX61 STOERTX02 STORE STATUS OF ACCUMULATOR. DUPES ARE F2510940
    05366 0 50000 0 05246 1100CLAERTX02 LOW ORDER BIT IS SUBSCRIPT LEFT OF DOSUB. F2511010
    05457 0 60100 0 05246 1157STOERTX02 F2511580
    05503 0 60100 0 05246 1177STOERTX02 SUBSCRIPT. F2511780
    05506 0 40000 0 05246 1180ADDERTX02 SUBSCRIPT. F2511810
    05542 0 60100 0 05246 1208STOERTX02 CENTER SUBSCRIPT. F2512090
    05566 0 40000 0 05246 1228ADDERTX02 FOR CENTER F2512290
    05567 0 60100 0 05246 1229STOERTX02 SUBSCRIPT. F2512300
    05570 0 50000 0 05246 1230RTX126 CLAERTX02 SUB1 AND F2512310
    05572 0 60100 0 05246 1232STOERTX02 AND ERTX02 F2512330
    05621 0 60100 0 05246 1255STOERTX02 IN ERTX02. F2512560
    05625 0 40000 0 05246 1259ADDERTX02 PUT FIRST TXI DECREMENT F2512600
    05636 0 60100 0 05246 1268STOERTX02 NUMBER IS SET TO F2512690
    06540 0 50000 0 05246 1749CLAERTX02 COMPILE F2517500
    05246 3115ERDRM SYNERTX02 F2531150
ERTX03 = 2727
  1. Definition
    05247 1015ERTX03 BSS1 F2510160
  2. References (2)
    04451 0 60100 0 05247 608STOERTX03 F2506040
    04461 0 20000 0 05247 616CXIJ2 MPYERTX03 F2506120
ESTORE = 2616
  1. Definition
    05070 0 00000 0 00000 904ESTORE HTR0 F2509050
  2. References (3)
    05637 0 60100 0 05070 2074STOESTORE F2520740
    05643 0 50000 0 05070 2078CLAESTORE F2520780
    05646 0 50000 0 05070 2081CLAESTORE F2520810
FIND10 = 2165
  1. Definition
    D04165 3 00000 1 04170 400FIND10 TXHFIND20,1 DECREMENT CONTAINS TGTG COUNT. F2503950
  2. References (3)
    03666−0 63400 2 04165 193SXDFIND10,2 SAVE COUNT OF TAGTAGS IN NEST F2501870
    04164 1 77774 1 04165 399FINDO4 TXIFIND10,1,−4 BUMP TO NEXT TGTG ENTRY. F2503940
    04172 0 02000 0 04166 405TRAFIND10+1 END OF DO. F2504000
FIND20 = 2168
  1. Definition
    04170 0 50000 0 05224 403FIND20 CLAA COMPARE DOTAGA WITH F2503980
  2. Reference
    D04165 3 00000 1 04170 400FIND10 TXHFIND20,1 DECREMENT CONTAINS TGTG COUNT. F2503950
FIND22 = 2174
  1. Definition
    D04176−3 00000 0 04164 409FIND22 TXLFINDO4,0 POSIND=3 IF LEFTMMST SYMBML. F2504040
  2. References (3)
    04162−0 63400 4 04176 397FIND SXDFIND22,4 F2503920
    04166−0 53400 4 04176 401LXDFIND22,4 F2503960
    04202−0 53400 4 04176 413LXDFIND22,4 F3504080
FINDO4 = 2164
  1. Definition
    04164 1 77774 1 04165 399FINDO4 TXIFIND10,1,−4 BUMP TO NEXT TGTG ENTRY. F2503940
  2. Reference
    D04176−3 00000 0 04164 409FIND22 TXLFINDO4,0 POSIND=3 IF LEFTMMST SYMBML. F2504040
FIXCON = 2433
  1. Definition
    709*************************************************************F2507100
    710FIXCON SCANS THE FIXCON DRUM TABLE FOR A DESIRED SYMBOL FOR AF2507110
    711FIXED POINT CONSTANT. IF THE DESIRED FIXCON IS NOT THERE A SF2507120
    712SYMBOL IS CREATED FOR IT AND AN ENTRY IS MADE. F2507130
    04601−0 63400 1 04634 713FIXCON SXDFC29,1 SAVE F2507140
  2. References (28)
    04707 0 07400 4 04601 7870P2P1 TSXFIXCON,4 F2507880
    04751 0 07400 4 04601 824TSXFIXCON,4 OBTAIN FIXCON SYMBOL F2508250
    05000 0 07400 4 04601 847TSXFIXCON,4 F2508480
    05026 0 07400 4 04601 869TSXFIXCON,4 FIXCON SYMBOL F2508700
    05352 0 07400 4 04601 1893TSXFIXCON,4 FIXCON. F2518930
    05424 0 07400 4 04601 1935TSXFIXCON,4 D1 SYMBOL F2519350
    05435 0 07400 4 04601 1944TSXFIXCON,4 D1D2 IN F2519440
    05440 0 07400 4 04601 1947TSXFIXCON,4 OBTAIN SYMBOL FOR D1 F2519470
    05650 0 07400 4 04601 2083TSXFIXCON,4 ASSIGN SYMBOL FOR F2520830
    05675 0 07400 4 04601 2104TSXFIXCON,4 LDQ, MPY, ALS. F2521040
    06317 0 07400 4 04601 2380TSXFIXCON,4 FOR G AND PUT F2523800
    06344 0 07400 4 04601 2406TSXFIXCON,4 SYMBOL FOR C1. F2524060
    06364 0 07400 4 04601 2422TSXFIXCON,4 ASSIGN SYMBOL FOR F2524220
    06421 0 07400 4 04601 2451TSXFIXCON,4 ASSIGN SYMBOL FOR F2524510
    06574 0 07400 4 04601 2562TSXFIXCON,4 FOR C1, AND F2525620
    06636 0 07400 4 04601 2596TSXFIXCON,4 F2525960
    06655 0 07400 4 04601 2611TSXFIXCON,4 F2526110
    06673 0 07400 4 04601 2625TSXFIXCON,4 F2526250
    06723 0 07400 4 04601 2653TSXFIXCON,4 MPY N3, (N3X POS.), F2526530
    06734 0 07400 4 04601 2662TSXFIXCON,4 F2526620
    06765 0 07400 4 04601 2687TSXFIXCON,4 COMPILE F2526870
    07000 0 07400 4 04601 2698TSXFIXCON,4 SYMBOL FOR F2526980
    07030 0 07400 4 04601 2722TSXFIXCON,4 ASSIGN SYMBOL FOR G F2527220
    07063 0 07400 4 04601 2749TSXFIXCON,4 F2527490
    07074 0 07400 4 04601 2758TSXFIXCON,4 COMPILE INSTRUCTIONS F2527580
    07106 0 07400 4 04601 2768TSXFIXCON,4 F2527680
    07203 0 07400 4 04601 2839TSXFIXCON,4 FOR C NOT = 1. STORE IN F2528390
    07262 0 07400 4 04601 2893TSXFIXCON,4 F2528930
INST10 = 2675
  1. Definition
    05163 0 00000 0 03636 963INST10 ADTGA F2509640
  2. Reference
    06246 0 50000 0 05163 2337CLAINST10 F2523370
INST11 = 2676
  1. Definition
    05164 0 00000 0 05315 964INST11 AC010 F2509650
  2. Reference
    06253 0 50000 0 05164 2342AC250 CLAINST11 REINITIALIZE F2523420
INST12 = 2677
  1. Definition
    05165 0 00000 0 02646 965INST12 MXTGA F2509660
  2. Reference
    06256 0 50000 0 05165 2345CLAINST12 FOR DMTAG F2523450
INST13 = 2678
  1. Definition
    05166 0 02000 0 05725 966INST13 TRAAC155 F2509670
  2. Reference
    05717 0 50000 0 05166 2122CLAINST13 F2521220
INST14 = 2679
  1. Definition
    05167 0 07400 4 07131 967INST14 TSXCIL03I,4 F2509680
  2. Reference
    05725 0 50000 0 05167 2128AC155 CLAINST14 F2521280
INST20 = 2635
  1. Definition
    05113 0 00000 0 03636 923INST20 ADTGA F2509240
  2. References (2)
    05714 0 50000 0 05113 1314CLAINST20 ADTGA LOCATION, F2513150
    06213 0 50000 0 05113 1505CLAINST20 ROUTINE TO F2515060
INST22 = 2636
  1. Definition
    05114 0 00000 0 02646 924INST22 MXTGA F2509250
  2. References (2)
    05747 0 50000 0 05114 1341CLAINST22 TXI CYCLE. F2513420
    06220 0 50000 0 05114 1510CLAINST22 ROUTINE FOR TGTGS. F2515110
INST24 = 2637
  1. Definition
    05115 0 00000 0 05673 925INST24 RTX160 F2509260
  2. Reference
    05745 0 50000 0 05115 1339RTX192 CLAINST24 RESET MODIFIED F2513400
INST26 = 2638
  1. Definition
    05116 0 00000 0 05716 926INST26 RTX184 F2509270
  2. Reference
    05707 0 50000 0 05116 1309RTX180 CLAINST26 RTX184 LOCATION. F2513100
INST30 = 2639
  1. Definition
    05117 0 00000 0 06204 927INST30 RTX264 F2509280
  2. Reference
    06211 0 50000 0 05117 1503CLAINST30 MODIFY TGTG F2515040
INST32 = 2640
  1. Definition
    05120 0 00000 0 06065 928INST32 RTX226 F2509290
  2. Reference
    06216 0 50000 0 05120 1508RTX270 CLAINST32 ADTG PORTION FINISHED. F2515090
K1AOR0 = 3824
  1. Definition
    07360 0 00000 0 07473 2961K1AOR0 A1C00 F2529610
  2. References (4)
    06131 0 50000 0 07360 2260CLAK1AOR0 F2522600
    06163 0 50000 0 07360 2286CLAK1AOR0 F2522860
    06431 0 50000 0 07360 2459CLAK1AOR0 F2524590
    06576 0 50000 0 07360 2564CLAK1AOR0 MPY L(C1), ARS 17. F2525640
K1BOR0 = 3842
  1. Definition
    07402 0 00000 0 07452 2979K1BOR0 L(BIC) F2529790
  2. Reference
    06726 0 50000 0 07402 2656CLAK1BOR0 F2526560
K2AOR0 = 3826
  1. Definition
    07362 0 00000 0 07477 2963K2AOR0 A1000 F2529630
  2. References (2)
    06205 0 50000 0 07362 2304CLAK2AOR0 INITIALIZATION F2523040
    06425 0 50000 0 07362 2455CLAK2AOR0 COMPILE CLA, STD. F2524550
K3AOR0 = 3827
  1. Definition
    07363 0 00000 0 07500 2964K3AOR0 A1001 F2529640
  2. Reference
    06222 0 50000 0 07363 2317CLAK3AOR0 F2523170
KIAOR0 = 3825
  1. Definition
    07361 0 00000 0 07474 2962KIAOR0 A1C01 F2529620
KLX01I = 3817
  1. Definition
    07351 0 00000 0 07407 2954KLX01I LXI00+1 F2529540
  2. Reference
    05715 0 50000 0 07351 2120CLAKLX01I F2521200
KLX02I = 3818
  1. Definition
    07352 0 00000 0 07412 2955KLX02I LXI05 F2529550
  2. References (6)
    05521 0 50000 0 07352 1996AC050I CLAKLX02I L(LXI03) F2519960
    05701 0 50000 0 07352 2108CLAKLX02I F2521080
    06640 0 50000 0 07352 2598CLAKLX02I F2525980
    06767 0 50000 0 07352 2689CLAKLX02I MPY LC1) F2526890
    07024 0 50000 0 07352 2718CLAKLX02I F2527180
    07042 0 50000 0 07352 2732CLAKLX02I ALS 17, F2527320
KLX03I = 3822
  1. Definition
    07356 0 00000 0 07416 2959KLX03I LXI10 F2529590
  2. Reference
    05536 0 50000 0 07356 2009AC068 CLAKLX03I F2520090
KLX05I = 3823
  1. Definition
    07357 0 00000 0 07434 2960KLX05I LXI24 F2529600
  2. Reference
    05552 0 50000 0 07357 2021AC084 CLAKLX05I C3=1, COMPILE KLX05I F2520210
L(ADD) = 2604
  1. Definition
    05054 212424000000 892L(ADD) BCD1ADD000 F2508930
  2. References (5)
    04720 0 50000 0 05054 796CLAL(ADD) STO 1)+3. F2507970
    06136 0 50000 0 05054 2265CLAL(ADD) COMPILE F2522650
    06212 0 50000 0 05054 2309CLAL(ADD) COMPILE F2523090
    06614 0 50000 0 05054 2578CLAL(ADD) NO, COMPILE F2525780
    07002 0 50000 0 05054 2700PCI22R CLAL(ADD) COMPILE F2527000
L(BIC) = 3882
  1. Definition
    07452 0 07611 4 32450 3019L(BIC) 13608,4,OR000+19 F2530190
  2. Reference
    07402 0 00000 0 07452 2979K1BOR0 L(BIC) F2529790
L(BSS) = 2606
  1. Definition
    05056 226262000000 894L(BSS) BCD1BSS000 F2508950
  2. Reference
    06267 0 50000 0 05056 2354CLAL(BSS) F2523540
L(CLA) = 2603
  1. Definition
    05053 234321000000 891L(CLA) BCD1CLA000 F2508920
  2. References (3)
    04757 0 50000 0 05053 830CLAL(CLA) TO F2508310
    05010 0 50000 0 05053 855CLAL(CLA) F2508560
    05665 0 50000 0 05053 2096AC144 CLAL(CLA) G = 1, F2520960
L(DED) = 2600
  1. Definition
    05050 242524000000 888L(DED) BCD1DED000 F2508890
  2. Reference
    06144 0 50000 0 05050 1466RTX234 CLAL(DED) COMPILE OP WHICH INDICATES F2514670
L(LXD) = 2601
  1. Definition
    05051 436724000000 889L(LXD) BCD1LXD000 F2508900
  2. References (3)
    05357 0 50000 0 05051 1898AC022 CLAL(LXD) F2518980
    05467 0 50000 0 05051 1970CLAL(LXD) COMPILED INSTRUCTION F2519700
    05555 0 50000 0 05051 2024CLAL(LXD) LXD. F2520240
L(OR0) = 2615
  1. Definition
    05067 0 00000 0 07566 903L(OR0) OR000 F2509040
  2. Reference
    07244 0 50000 0 05067 2879CLAL(OR0) ORIGIN OF OR0 TABLE. F2528790
L(PXD) = 2595
  1. Definition
    05043 476724000000 883L(PXD) BCD1PXD000 F2508840
  2. Reference
    05756 0 50000 0 05043 2153CLAL(PXD) TO F2521530
L(STD) = 2602
  1. Definition
    05052 626324000000 890L(STD) BCD1STD000 F2508910
  2. Reference
    05736 0 50000 0 05052 2137CLAL(STD) STD TETL0 F2521370
L(STO) = 2596
  1. Definition
    05044 626346000000 884L(STO) BCD1STO000 F2508850
  2. References (5)
    04730 0 50000 0 05044 804CLAL(STO) F2508050
    05763 0 50000 0 05044 2158CLAL(STO) THE F2521580
    06146 0 50000 0 05044 2273CLAL(STO) F2522730
    06624 0 50000 0 05044 2586CLAL(STO) EOR03. F2525860
    07012 0 50000 0 05044 2708CLAL(STO) THEN GO F2527080
L(SUB) = 2605
  1. Definition
    05055 626422000000 893L(SUB) BCD1SUB000 F2508940
  2. Reference
    05033 0 50000 0 05055 874OP35 CLAL(SUB) COMPILE F2508750
L(SXD) = 2597
  1. Definition
    05045 626724000000 885L(SXD) BCD1SXD000 F2508860
  2. References (2)
    04511 0 50000 0 05045 647CLAL(SXD) F2506430
    05426 0 50000 0 05045 1132CLAL(SXD) FOR F2511330
L(TIX) = 2598
  1. Definition
    05046 633167000000 886L(TIX) BCD1TIX000 F2508870
  2. References (4)
    05670 0 50000 0 05046 1294CLAL(TIX) COMPILE REMAINING INSTRC. F2512950
    06130 0 50000 0 05046 1454RTX232 CLAL(TIX) COMPILE TIX INSTRUCTION. F2514550
    06536 0 50000 0 05046 1747CLAL(TIX) COMPILE F2517480
    06612 0 50000 0 05046 1794CLAL(TIX) INST. AND OPERATION PART F2517950
L(TXI) = 2594
  1. Definition
    881*************************************************************F2508820
    05042 636731000000 882L(TXI) BCD1TXI000 F2508830
  2. References (6)
    05337 0 50000 0 05042 1077RTX52 CLAL(TXI) COMPILE F2510780
    05410 0 50000 0 05042 1118CLAL(TXI) REMAINING WORDS OF F2511190
    05647 0 50000 0 05042 1277CLAL(TXI) F2512780
    05741 0 50000 0 05042 1335CLAL(TXI) COMPILE F2513360
    06514 0 50000 0 05042 1729CLAL(TXI) INSTRUCTIONS WHEN F2517300
    06553 0 50000 0 05042 1763CLAL(TXI) PLACE OPERATION IN F2517640
L(TXL) = 2599
  1. Definition
    05047 636743000000 887L(TXL) BCD1TXL000 F2508880
  2. References (2)
    06034−0 50000 0 05047 1394CALL(TXL) F2513950
    06045 0 50000 0 05047 1403RTX210 CLAL(TXL) COMPILE INSTRUCTION FOR VARIABLE DECREMENT.F2514040
LHXTGA = 2642
  1. Definition
    05122 0 00000 0 00310 930LHXTGA 200 F2509310
  2. Reference
    03670 0 53400 2 05122 195LXALHXTGA,2 INITIALIZE APPENDED TGTG F2501890
LMXDTG = 2607
  1. Definition
    05057 0 00000 0 00702 895LMXDTG 450 F2508960
  2. References (3)
    03660 0 53400 2 05057 187LXALMXDTG,2 F2501810
    04013 0 53400 2 05057 282TDOTG1 LXALMXDTG,2 F2502770
    04072 0 53400 1 05057 334DOGS20 LXALMXDTG,1 START SCAN AT FIRST ENTRY F2503290
LOCIND = 2706
  1. Definition
    05222 994LOCIND BSS1 F2509950
  2. References (8)
    03706 0 60100 0 05222 209STOLOCIND F2502030
    04332 0 50000 0 05222 513LOC0 CLALOCIND F2505080
    04335 0 60100 0 05222 516STOLOCIND F2505110
    05370 0 50000 0 05222 1907CLALOCIND TEST LOCATION INDICATOR. F2519070
    05373 0 60100 0 05222 1910STOLOCIND A LOCATION MUST BE F2519100
    06260 0 50000 0 05222 2347CLALOCIND COMPILE AT LEAST F2523470
    07277 0 50000 0 05222 2911CLALOCIND TEST TO SEE IF F2529110
    07302 0 60100 0 05222 2914STOLOCIND PLACE A IN F2529140
LTX040 = 3833
  1. Definition
    07371 0 00000 0 07534 2970LTX040 TX040 F2529700
  2. Reference
    06167 0 50000 0 07371 2290CLALTX040 COMPILE TIX INITIAL1ZATION F2522900
LTX042 = 3834
  1. Definition
    07372 0 00000 0 07536 2971LTX042 TX042 F2529710
  2. Reference
    06227 0 50000 0 07372 2322CLALTX042 F2523220
LXCEIP = 3840
  1. Definition
    07400 0 00000 0 07564 2977LXCEIP XCEIP F2529770
  2. Reference
    06605 0 50000 0 07400 2571CLALXCEIP STD L(TIX), STD L(TXI). F2525710
LXCI61 = 3844
  1. Definition
    07404 0 00000 0 07467 2981LXCI61 XCI6+1 F2529810
  2. Reference
    07045 0 50000 0 07404 2735CLALXCI61 F2527350
LXCI8P = 3954
  1. Definition
    07562 0 00000 0 07557 3091LXCI8P XCI8P F2530910
  2. Reference
    07127 0 50000 0 07562 2785PC61 CLALXCI8P CONSTANT. COMPILE F2527850
LXCIE1 = 3838
  1. Definition
    07376 0 00000 0 07554 2975LXCIE1 XCIE+1 F2529750
  2. Reference
    06602 0 50000 0 07376 2568CLALXCIE1 SUB L(1), F2525680
LXCIEP = 3839
  1. Definition
    07377 0 00000 0 07563 2976LXCIEP XCIEP F2529760
  2. Reference
    06676 0 50000 0 07377 2628CLALXCIEP CLA (SYMB0L), F2526280
LZEKMX = 2644
  1. Definition
    05124 0 00000 0 00144 932LZEKMX 100 F2509330
  2. References (3)
    00152 0 53400 2 05124 114ADTG05 LXALZEKMX,2 CHECK SUM AREA F2506970
    00174 0 53400 2 05124 132LXALZEKMX,2 ALL CHECK SUMS. F2501270
    03673 0 53400 2 05124 198LXALZEKMX,2 INITIALIZE APPENDED ADTAG F2501920
MAXLOC = 2608
  1. Definition
    05060+000000000400 896MAXLOC OCT400 F2508970
  2. Reference
    06231 0 40200 0 05060 1522SUBMAXLOC FOR A COMPILED F2515230
MINUS1 = 2620
  1. Definition
    05074+000000077776 908MINUS1 OCT77776 F2509090
MXTGTG = 1246
  1. Definition
    02336 3124MXTGTG SYNTGTG+672 F2531240
  2. References (9)
    04033 0 70000 2 02336 300 TTG05 CPYMXTGTG,2 F2502950
    04045 0 50000 2 02336 310 TTG11 CLAMXTGTG,2 FOR NEST END TEST F2503050
    04155 0 34000 1 02336 389CASMXTGTG,1 ENTRY IN NEST F2503840
    04171 0 34000 1 02336 404CASMXTGTG,1 TGTG DOFOR DOTAG A. F2503990
    04213 0 50000 1 02336 427 TGFM CLAMXTGTG,1 F2504220
    04217 0 50000 1 02337 431CLAMXTGTG+1,1 F2504260
    04223 0 50000 1 02340 435CLAMXTGTG+2,1 F2504300
    04225 0 50000 1 02341 437CLAMXTGTG+3,1 F2504320
    06610−0 60200 2 02341 1792ORSMXTGTG+3,2 F2517930
N0PRET = 2617
  1. Definition
    05071+077777077777 905N0PRET OCT077777077777 F2509050
  2. References (2)
    04505−0 32000 0 05071 643ANAN0PRET SYMBOLIC ADDRESS OF SXD F2506390
    05267−0 32000 0 05071 1842ANAN0PRET F2518420
N1N2N3 = 2717
  1. Definition
    05235 1005N1N2N3 BSS1 F2510060
  2. References (5)
    06002 0 60100 0 05235 1368STON1N2N3 F2513690
    06132 0 50000 0 05235 1456CLAN1N2N3 TEST FOR VARIABLE DECREMENT, F2514570
    06623 0 60100 0 05235 1805STON1N2N3 F2518060
    07243 0 60100 0 05235 2878STON1N2N3 F2528780
    07254 0 56000 0 05235 2887XOR030 LDQN1N2N3 F2528870
N1STET = 2416
  1. Definition
    689*************************************************************F2506830
    690N1STET ISOLATES VARIABLE N1 BITS FOR A TAG AND ORS THEM TO LF2506860
    691LAST 3 BITS OF THE WORD N1SBX. F2506870
    04560 0 50000 0 03653 692N1STET CLATAG4 F2506880
  2. Reference
    05343 0 07400 4 04560 1886AC020 TSXN1STET,4 F2518860
OADTGA = 1850
  1. Definition
    03472 166OADTGA BSS100 F2501600
  2. Reference
    03636 3117ADTGA SYNOADTGA+100 F2531170
OMXTGA = 1246
  1. Definition
    02336 164OMXTGA BSS200 F2501580
  2. Reference
    02646 3125MXTGA SYNOMXTGA+200 F2531250
ORIGIN = 2487
  1. Definition
    04667 0 00000 0 00002 767ORIGIN HTR2 F2507680
  2. References (2)
    04606 0 50000 0 04667 718FC02 CLAORIGIN FIXCON TABLE ORIGIN. F2507190
    04645 0 40000 0 04667 749ADDORIGIN ORIGIN EQUALS F2507500
PCI22R = 3586
  1. Definition
    07002 0 50000 0 05054 2700PCI22R CLAL(ADD) COMPILE F2527000
  2. Reference
    07036 0 02000 0 07002 2728TRAPCI22R OR CLA N2, SUB N1. F2527280
PGPG10 = 2046
  1. Definition
    M03776 0 36100 1 07226 268PGPG10 ACLRTXAC+1000,1 F2502620
  2. Reference
    03777 2 00001 1 03776 269TIXPGPG10,1,1 F2502630
PGPG12 = 2055
  1. Definition
    04007 0 07400 4 00004 277PGPG12 TSXDIAG,4 DRUM 2 READ INCORRECTLY 5 TIMES. F2502710
  2. Reference
    04005−3 00000 4 04007 275TXLPGPG12,4,0 WHICH DRUM. F2502690
PGPG14 = 2056
  1. Definition
    04010−0 53400 4 05223 278PGPG14 LXDERORBX,4 F2502720
  2. Reference
    04003 0 10000 0 04010 273TZEPGPG14 F2502670
POSIND = 2720
  1. Definition
    05240 1008POSIND BSS1 F2510090
  2. References (22)
    04201 0 60100 0 05240 412STOPOSIND F2504070
    05341 0 53400 1 05240 1079LXAPOSIND,1 PREPARE FOR F2510800
    05345 0 53400 1 05240 1083LXAPOSIND,1 F2510830
    05361 0 53400 1 05240 1095LXAPOSIND,1 COMPUTE DECREMENT ADJUSTMENT F2510960
    05447 0 53400 1 05240 1149LXAPOSIND,1 EXIT ROUTINE. F2511500
    05453 0 53400 1 05240 1153LXAPOSIND,1 MOVE POSIND T0 LEFT SUB F2511540
    05504 0 53400 1 05240 1178LXAPOSIND,1 THEN COMPUTE N3G F2511790
    05514 0 53400 1 05240 1186LXAPOSIND,1 DOSUB IS DUPE. F2511870
    05543 0 53400 1 05240 1209LXAPOSIND,1 PREPARE DOSUB SUBSCRIPT F2512100
    05555 0 53400 1 05240 1219LXAPOSIND,1 X0X BLOCK D. F2512200
    05622 0 53400 1 05240 1256LXAPOSIND,1 COMPUTE N3G F2512570
    05631 0 53400 1 05240 1263LXAPOSIND,1 COMPUTE XN3G FOR F2512640
    05722 0 60100 0 05240 1320STOPOSIND F2513210
    05776 0 60100 0 05240 1364STOPOSIND INDICATOR. F2513650
    06006 0 53400 1 05240 1372LXAPOSIND,1 F2513730
    06025 0 53400 1 05240 1387LXAPOSIND,1 ROUTINE T0 COMPUTE XGN3. F2513880
    06111 0 53400 4 05240 1439RTX230 LXAPOSIND,4 F2514400
    06147 0 53400 1 05240 1469RTX238 LXAPOSIND,1 DECREMENT IS CONSTANT. F2514700
    06210 0 60100 0 05240 1502STOPOSIND IN POSIND. F2515030
    06312−0 50100 0 05240 1578ORAPOSIND SHIFTED TO BE COMBINED F2515790
    06501 0 53400 1 05240 1714LXAPOSIND,1 F2517150
    06601 0 53400 1 05240 1785LXAPOSIND,1 OF TAG 4 WORD. F2517860
PRES10 = 3284
  1. Definition
    06324−0 63400 1 06364 1588PRES10 SXDS3,1 SEARCH ROUTINE. MASK IS F2515890
  2. Reference
    06323 1 00042 1 06324 1587TXIPRES10,1,34 SETS OF CALLING SEQUENCES TO F2515880
PRES20 = 3286
  1. Definition
    06326 0 50000 0 05144 1590PRES20 CLASMSK1 INDEX DECREMENT IS STORED. F2515910
  2. Reference
    06325 1 00012 1 06326 1589TXIPRES20,1,10 STORED AND BLOCK TEST F2515900
PRES30 = 3292
  1. Definition
    06334−0 63400 1 06364 1596PRES30 SXDS3,1 F2515970
  2. Reference
    06333 2 00014 1 06334 1595TIXPRES30,1,12 BLOCK INDICATES AN ERROR. F2515960
PRES40 = 3294
  1. Definition
    06336 0 07400 4 06354 1598PRES40 TSXSEARCH,4 F2515990
  2. Reference
    06335 1 00014 1 06336 1597TXIPRES40,1,12 F2515980
PRES50 = 3298
  1. Definition
    06342−0 63400 1 06364 1602PRES50 SXDS3,1 F2516030
  2. Reference
    06341 2 00020 1 06342 1601TIXPRES50,1,16 F2516020
PRES60 = 3300
  1. Definition
    06344 0 07400 4 06354 1604PRES60 TSXSEARCH,4 F2516050
  2. Reference
    06343 1 00020 1 06344 1603TXIPRES60,1,16 F2516040
PRES70 = 3304
  1. Definition
    06350−0 63400 1 06364 1608PRES70 SXDS3,1 F2516090
  2. Reference
    06347 2 00006 1 06350 1607TIXPRES70,1,6 F2516080
PRES80 = 3306
  1. Definition
    06352 0 07400 4 06354 1610PRES80 TSXSEARCH,4 F2516110
  2. Reference
    06351 1 00006 1 06352 1609TXIPRES80,1,6 F2516100
RETURN = 2528
  1. Definition
    04740 0 02000 0 00000 812RETURN TRA0 ADDRESS MODIFIED, F2508130
  2. References (2)
    04671 0 62100 0 04740 773STARETURN LINKAGE. F2507740
    04703 0 10000 0 04740 783TZERETURN RETURN AND CONSIDER S2. F2507840
RTX020 = 2768
  1. Definition
    05320−0 53400 1 03652 1062RTX020 LXDTAG3,1 DECREMENT IS CONSTANT. F2510630
  2. Reference
    05733 0 10000 0 05320 1329TZERTX020 DECREMENT IS CONSTANT. F2513300
RTX024 = 2773
  1. Definition
    D05325−3 00000 0 05327 1067RTX024 TXLRTX30,0 RESET F2510680
  2. References (2)
    05256−0 63400 4 05325 1027RTX SXDRTX024,4 F2510280
    06222−0 53400 4 05325 1512RTX280 LXDRTX024,4 LOCATION OF THE INSTRUCTION F2515130
RTX100 = 2899
  1. Definition
    05523 0 07400 4 06546 1193RTX100 TSXBCDE,4 BLOCK DECREMENT IS VARIABLE. F2511940
  2. Reference
    05473−0 10000 0 05523 1169TNZRTX100 DECREMENT IS VARIABLE, TSX BCDE. F2511700
RTX110 = 2901
  1. Definition
    05525 3 00003 2 05601 1195RTX110 TXHRTX140,2,3 D OR E. F2511960
  2. Reference
    05466 3 00002 2 05525 1164RTX90 TXHRTX110,2,2 BLOCK IS C,D, OR E. F2511650
RTX114 = 2927
  1. Definition
    05557 0 07400 4 06447 1221RTX114 TSXCN3IJ,4 COMPUTE N3G F2512220
  2. Reference
    05556 1 00002 1 05557 1220TXIRTX114,1,2 SWITCH RIGHT OR LEFT POSIND. F2512210
RTX118 = 2931
  1. Definition
    05563−0 53400 2 03650 1225RTX118 LXDTAG2+1,2 COMPUTE XN3G F2512260
  2. Reference
    05554 0 02000 0 05563 1218TRARTX118 XX0 BLOCK D, OR 0XX. F2512190
RTX122 = 2933
  1. Definition
    05565 0 07400 4 04447 1227RTX122 TSXCXIJ,4 ADJUSTMENT F2512280
RTX126 = 2936
  1. Definition
    05570 0 50000 0 05246 1230RTX126 CLAERTX02 SUB1 AND F2512310
  2. References (2)
    05552 0 10000 0 05570 1216TZERTX126 NORMAL BLOCK D, NO DUPES. F2512170
    05562 0 02000 0 05570 1224TRARTX126 DUPES. F2512250
RTX130 = 2943
  1. Definition
    05577 0 07400 4 06546 1237RTX130 TSXBCDE,4 BLOCK D IS VARIABLE. F2512380
  2. Reference
    05532−0 10000 0 05577 1200TNZRTX130 DECREMENT IS VARIABLE. F2512010
RTX140 = 2945
  1. Definition
    05601−0 63400 2 05250 1239RTX140 SXDBLKNUM,2 BLOCK E F2512400
  2. Reference
    05525 3 00003 2 05601 1195RTX110 TXHRTX140,2,3 D OR E. F2511960
RTX150 = 2971
  1. Definition
    05633 0 07400 4 04447 1265RTX150 TSXCXIJ,4 IN ORDER TO CMPILE 2ND F2512660
  2. Reference
    05632 1 00002 1 05633 1264TXIRTX150,1,2 LEFT SUBSCRIPT. F2512650
RTX152 = 2977
  1. Definition
    05641−0 63400 4 05250 1271RTX152 SXDBLKNUM,4 PROPERLY INTO DOTAG. F2512720
  2. Reference
    05640 2 00002 4 05641 1270TIXRTX152,4,2 THATTHE SXD LOCATION IS STORED F2512710
RTX154 = 2980
  1. Definition
    05644 0 07400 4 06546 1274RTX154 TSXBCDE,4 E IS VARIABLE. THIS TAKES F2512750
  2. Reference
    05611−0 10000 0 05644 1247TNZRTX154 DECREMENT IS VARIABLE. F2512480
RTX157 = 2987
  1. Definition
    05653 2 00002 4 05653 1281RTX157 TIXRTX157,4,2 FROM E F2512820
  2. References (2)
    05653 2 00002 4 05653 1281RTX157 TIXRTX157,4,2 FROM E F2512820
    05657 1 00002 4 05660 1285TXIRTX157+5,4,2 F2512860
RTX160 = 3003
  1. Definition
    05673−0 53400 2 05230 1297RTX160 LXDDOIND,2 FINDING S.C, WHICH F2512980
  2. References (12)
    05115 0 00000 0 05673 925INST24 RTX160 F2509260
    05314 3 00004 2 05673 1058TXHRTX160,2,4 BLOCK F, NO INSTRUCTIONS, GET NEW TAG. F2510590
    05414 0 12000 0 05673 1122TPLRTX160 INDICATION F2511230
    05420 0 10000 0 05673 1126TZERTX160 NO FORVAR, CONTINUE. F2511270
    05434 0 02000 0 05673 1138TRARTX160 F2511390
    05463 0 02000 0 05673 1161TRARTX160 CHECK BEST TEST. F2511620
    05465 0 02000 0 05673 1163TRARTX160 F2511640
    05522 0 02000 0 05673 1192TRARTX160 F2511930
    05524 0 02000 0 05673 1194TRARTX160 F2511950
    05576 0 02000 0 05673 1236TRARTX160 END CHECK FOR TEST TAG. F2512370
    05600 0 02000 0 05673 1238TRARTX160 F2512390
    05643 0 02000 0 05673 1273TRARTX160 F2512740
RTX164 = 3014
  1. Definition
    05706 0 02000 0 05307 1308RTX164 TRARTX06 GO TO FIND FOR NEXT TAG. F2513090
  2. Reference
    05703−0 10000 0 05706 1305TNZRTX164 BEST TEST, F2513060
RTX180 = 3015
  1. Definition
    05707 0 50000 0 05116 1309RTX180 CLAINST26 RTX184 LOCATION. F2513100
  2. References (2)
    05310 0 02000 0 05707 1053TRARTX180 END OF DO, START DMTG CYCLE. F2510540
    05712 1 00004 4 05713 1312TXIRTX180+4,4,4 F2513130
RTX184 = 3022
  1. Definition
    05716 0 07400 4 04516 1316RTX184 TSXADTGSE,4 SEARCH FOR ADTAG. F2513170
  2. References (3)
    05116 0 00000 0 05716 926INST26 RTX184 F2509270
    05731−0 10000 0 05716 1327TNZRTX184 CARRY T1 OR T2 BLOCK F. F2513280
    05744 0 02000 0 05716 1338TRARTX184 GET NEW ADTAG. F2513390
RTX188 = 3032
  1. Definition
    05730−0 32000 0 05131 1326RTX188 ANAL(3) F2513270
  2. Reference
    05726−3 00001 2 05730 1324TXLRTX188,2,1 S3 F2513250
RTX190 = 3034
  1. Definition
    05732 0 50000 0 05234 1328RTX190 CLAN3IND F2513290
  2. Reference
    05725 3 00002 2 05732 1323TXHRTX190,2,2 S1, BLOCK A. F2513240
RTX192 = 3045
  1. Definition
    05745 0 50000 0 05115 1339RTX192 CLAINST24 RESET MODIFIED F2513400
  2. Reference
    05717 0 02000 0 05745 1317TRARTX192 END OF TABLE, START TX PHASE. F2513180
RTX195 = 3049
  1. Definition
    05751−0 53400 1 05220 1343RTX195 LXDTETTGX,1 DETERMINE IF THIS DO HAS A TEST. F2513440
RTX196 = 3051
  1. Definition
    05753−0 53400 2 05230 1345RTX196 LXDDOIND,2 THIS DO HAS NO TEST. THIS INFORMATION F2513460
RTX197 = 3064
  1. Definition
    05770 0 76000 0 00140 1358RTX197 PSE096 CLEAR SENSE LIGHTS. F2513590
  2. Reference
    05752 3 00000 1 05770 1344TXHRTX197,1,0 THIS DO HAS A TEST. F2513450
RTX198 = 3079
  1. Definition
    06007−2 00001 1 06015 1373RTX198 TNXRTX200,1,1 IS POSITION S3. F2513740
RTX200 = 3085
  1. Definition
    06015−0 53400 1 03652 1379RTX200 LXDTAG3,1 F2513800
  2. Reference
    06007−2 00001 1 06015 1373RTX198 TNXRTX200,1,1 IS POSITION S3. F2513740
RTX201 = 3089
  1. Definition
    06021 0 50000 0 03652 1383RTX201 CLATAG3 PREPARE FOR F2513840
  2. Reference
    06016 3 00000 1 06021 1380TXHRTX201,1,0 F2513810
RTX202 = 3092
  1. Definition
    06024−0 53400 2 05230 1386RTX202 LXDDOIND,2 PREPARE FOR AND CALL CXIJ F2513870
  2. Reference
    06020 0 02000 0 06024 1382TRARTX202 TAU ENTRY INTO WRKSC. F2513830
RTX204 = 3099
  1. Definition
    06033 0 60100 0 05177 1393RTX204 STOCIL01 FINAL TXL DECREHENT. F2513940
  2. Reference
    06030−2 00001 1 06033 1390TNXRTX204,1,1 F2513910
RTX210 = 3109
  1. Definition
    06045 0 50000 0 05047 1403RTX210 CLAL(TXL) COMPILE INSTRUCTION FOR VARIABLE DECREMENT.F2514040
  2. References (2)
    06005−0 10000 0 06045 1371TNZRTX210 N2 IS VARIABLE F2513720
    06014−0 10000 0 06045 1378TNZRTX210 TXL VARIABLE DECREMENT, F2513790
RTX214 = 3117
  1. Definition
    06055−0 53400 2 05230 1411RTX214 LXDDOIND,2 ENTERONE IN BIT 20 IF F2514120
  2. Reference
    06044 0 02000 0 06055 1402TRARTX214 F2514030
RTX222 = 3123
  1. Definition
    06063−0 53400 1 05221 1417RTX222 LXDRTXTGX,1 START SCAN FOR TIXING, F2514180
RTX226 = 3125
  1. Definition
    06065 0 07400 4 04162 1419RTX226 TSXFIND,4 FIND VALID TAG. FILL TAG WORDS. F2514200
  2. References (2)
    05120 0 00000 0 06065 928INST32 RTX226 F2509290
    06200 0 02000 0 06065 1494RTX254 TRARTX226 RETURN FOR NEXT TG F2514950
RTX228 = 3128
  1. Definition
    06070 0 07400 4 04373 1422RTX228 TSXSCLMN1,4 COMPARE LARGEST S INDES F2514230
  2. Reference
    06215 0 02000 0 06070 1507TRARTX228 AND EXECUTE. F2515080
RTX229 = 3139
  1. Definition
    06103 0 50000 0 03652 1433RTX229 CLATAG3 CURRENT TAG F2514340
  2. References (3)
    06074 3 00000 2 06103 1426TXHRTX229,2,0 CURRENT TAG VALID, FILL OUT WRKSC. F2514270
    06100 0 02000 0 06110 1430TRARTX229+5 NO,TSX ENTR. F2514310
    06102 0 02000 0 06105 1432TRARTX229+2 SUBCOM. F2514330
RTX230 = 3145
  1. Definition
    06111 0 53400 4 05240 1439RTX230 LXAPOSIND,4 F2514400
  2. Reference
    06107 0 02000 0 06111 1437TRARTX230 CONTINUE. F2514380
RTX232 = 3160
  1. Definition
    06130 0 50000 0 05046 1454RTX232 CLAL(TIX) COMPILE TIX INSTRUCTION. F2514550
  2. References (2)
    06113 0 02000 0 06130 1441TRARTX232 POSITION IS RIGHT, IGNORE CARRY, F2514420
    06124 0 02000 0 06130 1450TRARTX232 NO CARRY, CONTINUE. F2514510
RTX234 = 3172
  1. Definition
    06144 0 50000 0 05050 1466RTX234 CLAL(DED) COMPILE OP WHICH INDICATES F2514670
  2. Reference
    06072 0 10000 0 06144 1424TZERTX234 DO IS OUTER, OBTAIN TAG. F2514250
RTX238 = 3175
  1. Definition
    06147 0 53400 1 05240 1469RTX238 LXAPOSIND,1 DECREMENT IS CONSTANT. F2514700
  2. Reference
    06133 0 10000 0 06147 1457TZERTX238 DECREMENT IS CONSTANT. F2514580
RTX239 = 3183
  1. Definition
    06157 1 00001 1 06160 1477RTX239 TXIRTX239+1,1,1 DUPES EXIST F2514780
  2. References (2)
    06157 1 00001 1 06160 1477RTX239 TXIRTX239+1,1,1 DUPES EXIST F2514780
    06163 0 02000 0 06157 1481TRARTX239 UNTIL THAT POSITION IS F2514820
RTX240 = 3191
  1. Definition
    06167 0 50000 0 05245 1485RTX240 CLAERTX01 PUT COMPUTED DE EREMTN F2514860
  2. Reference
    06156 0 02000 0 06167 1476TRARTX240 NO DUPES F2514770
RTX242 = 3193
  1. Definition
    06171−0 76000 0 00141 1487RTX242 MSE097 A LOC MUST BE ASSIGNED IF F2514880
  2. Reference
    06146 0 02000 0 06171 1468TRARTX242 ASSIGN LOCATION IF NECESSARY. F2514690
RTX246 = 3198
  1. Definition
    06176 0 07400 4 06465 1492RTX246 TSXCIL023,4 F2514930
  2. Reference
    06172 0 02000 0 06176 1488TRARTX246 F2514890
RTX250 = 3199
  1. Definition
    06177 0 07400 4 04345 1493RTX250 TSXCIT,4 COMPILE INST. F2514940
  2. References (2)
    06143 0 02000 0 06177 1465TRARTX250 NOW PERFORM COMPILING. F2514660
    06175 0 02000 0 06177 1491TRARTX250 F2514920
RTX254 = 3200
  1. Definition
    06200 0 02000 0 06065 1494RTX254 TRARTX226 RETURN FOR NEXT TG F2514950
  2. References (3)
    06127−0 10000 0 06200 1453TNZRTX254 NO, GET NEXT TAG. F2514540
    06212 0 62100 0 06200 1504STARTX254 TIX COMPIL1NG F2515050
    06217 0 62100 0 06200 1509STARTX254 REMODIFY TIX COMPILING F2513100
RTX260 = 3201
  1. Definition
    06201 0 53400 4 05125 1495RTX260 LXALADMX,4 START DRMTG SEARCH AND F2514960
  2. References (2)
    06066 0 02000 0 06201 1420TRARTX260 END OF DO. F2514210
    06202 1 00004 4 06203 1496TXIRTX260+2,4,4 F2514970
RTX264 = 3204
  1. Definition
    06204 0 07400 4 04516 1498RTX264 TSXADTGSE,4 FIND VALID TAG, FILL OUT TAG WDS. F2514990
  2. Reference
    05117 0 00000 0 06204 927INST30 RTX264 F2509280
RTX270 = 3214
  1. Definition
    06216 0 50000 0 05120 1508RTX270 CLAINST32 ADTG PORTION FINISHED. F2515090
  2. Reference
    06205 0 02000 0 06216 1499TRARTX270 END OF TABLE F2515000
RTX280 = 3218
  1. Definition
    06222−0 53400 4 05325 1512RTX280 LXDRTX024,4 LOCATION OF THE INSTRUCTION F2515130
  2. Reference
    05767 0 02000 0 06222 1357TRARTX280 F2513580
RTXIN1 = 2757
  1. Definition
    05305−0 63400 1 05221 1050RTXIN1 SXDRTXTGX,1 STORE FIRST TTG FOR TX CYCLE. F2510510
RTXTGX = 2705
  1. Definition
    05221 993RTXTGX BSS1 F2509940
  2. References (4)
    05301 0 60100 0 05221 1046STORTXTGX F2510470
    05305−0 63400 1 05221 1050RTXIN1 SXDRTXTGX,1 STORE FIRST TTG FOR TX CYCLE. F2510510
    06063−0 53400 1 05221 1417RTX222 LXDRTXTGX,1 START SCAN FOR TIXING, F2514180
    05313−0 63400 1 05221 1862SXDRTXTGX,1 F2518620
SCAN05 = 2156
  1. Definition
    04154 0 50000 0 05225 388SCAN05 CLAB DOTAG A OF EACH TAGTAG F2503830
  2. Reference
    04160 1 77774 1 04154 392TXISCAN05,1,−4 G LESS THAN A. F2503870
SCAN10 = 2161
  1. Definition
    04161 0 02000 4 00001 393SCAN10 TRA1,4 F2503880
  2. Reference
    04156 1 00004 1 04161 390TXISCAN10,1,4 SEARCH COMPLETED. F2503850
SCLMN1 = 2299
  1. Definition
    550*************************************************************F2505430
    551SCLMN1 ISOLATES THE INNERMOST DOTAG CONTROLLING A GIVEN TAG F2505460
    04373−0 53400 1 03647 552SCLMN1 LXDTAG2,1 S1 INDEX QUANTITY. F2505470
  2. References (2)
    06070 0 07400 4 04373 1422RTX228 TSXSCLMN1,4 COMPARE LARGEST S INDES F2514230
    05320 0 07400 4 04373 1867AC014 TSXSCLMN1,4 OBTAIN X FOR MINLEV OF S.C F2518670
SCLMN2 = 2302
  1. Definition
    D04376 3 00000 1 04400 555SCLMN2 TXHSCLMN3,1 COMPARES SIZES F2505500
  2. References (2)
    04375−0 63400 2 04376 554SXDSCLMN2,2 THIS ROUTINE F2505490
    04377−0 53400 1 04376 556LXDSCLMN2,1 OF THE INDEX F2505510
SCLMN3 = 2304
  1. Definition
    04400−0 53400 2 03651 557SCLMN3 LXDTAG2+2,2 QUANTITIES OF F2505520
  2. Reference
    D04376 3 00000 1 04400 555SCLMN2 TXHSCLMN3,1 COMPARES SIZES F2505500
SCLMN4 = 2306
  1. Definition
    D04402 3 00000 1 04404 559SCLMN4 TXHSCLMN5,1 LARGEST 2.X. QUANTITY F2505540
  2. References (2)
    04401−0 63400 2 04402 558SXDSCLMN4,2 EACH SUBSCRIPT IN A TAG. F2505530
    04403−0 53400 1 04402 560LXDSCLMN4,1 IS FOUND AND LEFT IN F2505550
SCLMN5 = 2308
  1. Definition
    04404−0 75400 1 00000 561SCLMN5 PXD0,1 ACC FOR COMPARISON WITH DOIND. F2505560
  2. Reference
    D04402 3 00000 1 04404 559SCLMN4 TXHSCLMN5,1 LARGEST 2.X. QUANTITY F2505540
SEARCH = 3308
  1. Definition
    1612*************************************************************F2516130
    1613SEARCH IS CALLED BY PRES TO COMPARE CONSTANTS IN THE RX TABLEF2516140
    1614AGAINST VARIOUS PERMUTATIONS OF AN ARGUMENT WORD. A MATCHINGF2516150
    1615COMPARISON MEANS THE CONSTANT WILL YIELD THE CORRECT BLOCK NUF2316160
    1616NUMBER. F2516170
    06354 0 50000 1 06450 1617SEARCH CLARXTA+45,1 F2516180
  2. References (5)
    06330 0 07400 4 06354 1592TSXSEARCH,4 SFARCHED. THEN 12,12,4. F2515930
    06336 0 07400 4 06354 1598PRES40 TSXSEARCH,4 F2515990
    06344 0 07400 4 06354 1604PRES60 TSXSEARCH,4 F2516050
    06352 0 07400 4 06354 1610PRES80 TSXSEARCH,4 F2516110
    D06364 3 00000 1 06354 1625S3 TXHSEARCH,1 TEST FOR END OF BLOCK, F2516260
STOPFC = 2486
  1. Definition
    04666 0 07400 4 00004 766STOPFC TSXDIAG,4 DRUM 4 READING ERROR 5 TIMES. F2507670
SUB010 = 2209
  1. Definition
    04241 0 76200 0 00304 453SUB010 RDS196 SELECT TAU DRUM. F2504480
  2. Reference
    04306 2 00001 1 04241 490TIXSUB010,1,1 ERROR, TRY UP TO 5 TIMES. F2504850
SUB020 = 2212
  1. Definition
    04244 0 60100 4 03646 456SUB020 STOWRKSC+8,4 TO ZERO. F2504510
  2. Reference
    04245 2 00001 4 04244 457TIXSUB020,4,1 F2504520
SUB030 = 2224
  1. Definition
    04260 0 40000 0 04330 468SUB030 ADDSUBES2 INSTRUCTION F2504630
  2. Reference
    04261 2 00001 4 04260 469TIXSUB030,4,1 F2504640
SUB040 = 2231
  1. Definition
    04267 0 70000 0 03637 475SUB040 CPYWRKSC+1 WD2 IS S1, F2504700
  2. Reference
    04265−3 00002 2 04267 473TXLSUB040,2,2 1 AND 2 DIM SKIP WD5. F2504680
SUB050 = 2236
  1. Definition
    04274 0 70000 0 03644 480SUB050 CPYWRKSC+6 WD7 IS DIMENSI0N F2504750
  2. Reference
    04272−3 00002 2 04274 478TXLSUB050,2,2 1 AND 2 DIM SKIP WD 6 F2504730
SUB060 = 2237
  1. Definition
    04275 0 70000 0 04327 481SUB060 CPYSUBES1 CHECK-SUM INTO-SUBES1. F2504760
  2. Reference
    04270−3 00001 2 04275 476TXLSUB060,2,1 1 DIM., SKIP WDS 4,6,7. F2504710
SUB070 = 2240
  1. Definition
    04300 0 36100 4 03645 484SUB070 ACLWRKSC+7,4 F2504790
  2. Reference
    04301 2 00001 4 04300 485TIXSUB070,4,1 3 ATTEMPTS ARE MADE F2504800
SUB075 = 2248
  1. Definition
    04310−0 53400 4 04325 492SUB075 LXDSUBORG+1,4 REARRANGE C1,C2,D1, AND D2. F2504870
  2. Reference
    04305 0 10000 0 04310 489TZESUB075 CHECK SUMS AGREE, TRA. F2504840
SUB080 = 2249
  1. Definition
    04311 0 50000 4 03645 493SUB080 CLAWRKSC+7,4 F2504880
  2. Reference
    D04320−3 00000 0 04311 500SUB085 TXLSUB080,0 F2504950
SUB085 = 2256
  1. Definition
    D04320−3 00000 0 04311 500SUB085 TXLSUB080,0 F2504950
  2. References (2)
    04236−0 63400 4 04320 450SUBCOM SXDSUB085,4 SAVE LINKAGE. F2504450
    04322−0 53400 4 04320 502LXDSUB085,4 RESTORE LINKAGE INDEX. F2504970
SUB090 = 2257
  1. Definition
    04321 0 60100 0 03645 501SUB090 STOWRKSC+7 WD8 DECREMENT IS D2. F2504960
  2. Reference
    04316−2 00006 4 04321 498TNXSUB090,4,6 F2504930
SUB100 = 2259
  1. Definition
    04323 0 02000 4 00001 503SUB100 TRA1,4 F2504980
SUBCOM = 2206
  1. Definition
    448*************************************************************F2504430
    449SUBCOM SPREADS A TAU ENTRY INTO WORKING TAG F2504440
    04236−0 63400 4 04320 450SUBCOM SXDSUB085,4 SAVE LINKAGE. F2504450
  2. References (9)
    05336 0 07400 4 04236 1076RTX51 TSXSUBCOM,4 LAY OUT TAU ENTRY. F2510770
    05445 0 07400 4 04236 1147TSXSUBCOM,4 LAY OUT TAU INTO WRKSC. F2511480
    05476 0 07400 4 04236 1172TSXSUBCOM,4 ENTRY INTO WRKSC. F2511730
    05536 0 07400 4 04236 1204TSXSUBCOM,4 LAY OUT TAU ENTRY.P F2512050
    05614 0 07400 4 04236 1250TSXSUBCOM,4 WRKSC. F2512510
    06023 0 07400 4 04236 1385TSXSUBCOM,4 LAY OUT TAU ENTRY. F2513860
    06106 0 07400 4 04236 1436TSXSUBCOM,4 WRKSC AND F2514370
    05336 0 07400 4 04236 1881TSXSUBCOM,4 F2518810
    05342 0 07400 4 04236 1885AC019 TSXSUBCOM,4 WRKSC AND CONTINUE F2518850
SUBES1 = 2263
  1. Definition
    A04327 0 00000 0 00000 507SUBES1 HTR F2505020
  2. References (6)
    04253 0 60100 0 04327 463STOSUBES1 TAU THREE ADD. IS ORG+7TAU. F2504580
    04257 0 40000 0 04327 467ADDSUBES1 FOR LDA F2504620
    04262 0 62100 0 04327 470STASUBES1 ACTUAL DRUM ADDRESS. F2504650
    04263 0 46000 0 04327 471LDASUBES1 COPY SUB. COMBINATION F2504660
    04275 0 70000 0 04327 481SUB060 CPYSUBES1 CHECK-SUM INTO-SUBES1. F2504760
    04304 0 40200 0 04327 488SUBSUBES1 COMPLETE ROUTINE, RETURN. F2504830
SUBES2 = 2264
  1. Definition
    A04330 0 00000 0 00000 508SUBES2 HTR F2505030
  2. References (4)
    04255 0 60100 0 04330 465STOSUBES2 ADRRESS F2504600
    04260 0 40000 0 04330 468SUB030 ADDSUBES2 INSTRUCTION F2504630
    04302 0 60200 0 04330 486SLWSUBES2 TO READ SC CORRECTLY, F2504810
    04303 0 50000 0 04330 487CLASUBES2 IF ERROR STILL PRESENT, F2504820
SUBORG = 2260
  1. Definition
    04324+000006001356 504SUBORG OCT000006001356 DECREMENT IS 6, ADD. IS ORG. TAU3. F2504990
  2. References (4)
    04242−0 53400 4 04326 454LXDSUBORG+2,4 INITIALIZE F2504490
    04256 0 50000 4 04327 466CLASUBORG+3,4 F2504610
    04276−0 53400 4 04324 482LXDSUBORG,4 COMPUTE CHECK-SUM. F2504770
    04310−0 53400 4 04325 492SUB075 LXDSUBORG+1,4 REARRANGE C1,C2,D1, AND D2. F2504870
SUBTAG = 2265
  1. Definition
    04331 0 00000 0 00000 509SUBTAG F2505040
  2. References (2)
    04240 0 60100 0 04331 452STOSUBTAG F2504470
    04246 0 50000 0 04331 458CLASUBTAG F2504530
SWICH1 = 2715
  1. Definition
    05233 1003SWICH1 BSS1 F2510040
  2. References (7)
    03702 0 60100 0 05233 205STOSWICH1 F2501990
    03711 0 50000 0 05233 212CLASWICH1 IS APPROPR1ATE F2502060
    03716 0 50000 0 05233 217CLASWICH1 F2502110
    03764 0 53400 4 05233 258LXASWICH1,4 F2502520
    04064 0 50000 0 05233 328CLASWICH1 F2503230
    04133 0 60100 0 05233 367STOSWICH1 F2503620
    04145 0 53400 2 05233 377LXASWICH1,2 F2503720
SWICH2 = 2693
  1. Definition
    05205 981SWICH2 BSS1 F2509820
  2. References (3)
    00106 0 60100 0 05205 72STOSWICH2 SET SWITCH 2 TO 1 F2500730
    03712 0 34000 0 05205 213CASSWICH2 CODING IN CORES F2502070
    03717 0 60100 0 05205 218STOSWICH2 F2502120
SXDTXZ = 2729
  1. Definition
    05251 1017SXDTXZ BSS1 F2510180
  2. References (6)
    05757 0 60100 0 05251 1349STOSXDTXZ ENTER F2513500
    05762 0 70000 0 05251 1352CPYSXDTXZ ONE F2513530
    05763 0 70000 0 05251 1353CPYSXDTXZ INTO F2513540
    05270 0 60100 0 05251 1843STOSXDTXZ F2518430
    05272−0 50000 0 05251 1845CALSXDTXZ MAKE F2518450
    05276 0 70000 0 05251 1849CPYSXDTXZ ON F2518490
TDOTG1 = 2059
  1. Definition
    04013 0 53400 2 05057 282TDOTG1 LXALMXDTG,2 F2502770
  2. Reference
    04025 2 00001 1 04013 292TIXTDOTG1,1,1 IF NOT YET READ 3 TIMES F2502870
TDOTG4 = 2061
  1. Definition
    04015 0 70000 2 01076 284TDOTG4 CPYDOTAGZ,2 F2502790
  2. Reference
    04016 1 77777 2 04015 285TXITDOTG4,2,−1 F2502800
TDOTG5 = 2068
  1. Definition
    04024 0 76400 0 00222 291TDOTG5 BST146 BACKSPACE AND REPEAT F2502860
  2. Reference
    04022 0 02000 0 04024 289TRATDOTG5 ERROR F2502840
TEABOX = 2714
  1. Definition
    05232 1002TEABOX BSS1 F2510030
  2. References (2)
    04121 0 50000 0 05232 357DOGS40 CLATEABOX COMPARE AS F2503520
    04126 0 60100 0 05232 362STOTEABOX F2503570
TEBBOX = 2711
  1. Definition
    05227 999TEBBOX BSS1 F2510000
  2. References (3)
    04061 0 60100 0 05227 325STOTEBBOX F2503200
    04115 0 34000 0 05227 353CASTEBBOX F2503480
    04130 0 60100 0 05227 364STOTEBBOX F2503590
TELC05 = 2314
  1. Definition
    04412 0 50000 1 03652 570TELC05 CLATAG2+3,1 SEQUENCE. PUT S IN XB T0 PREPARE F2505650
  2. Reference
    04420 2 00001 1 04412 576TELC10 TIXTELC05,1,1 GO TO NEXT S FOR CN1IJ ROUTINE. F2505710
TELC10 = 2320
  1. Definition
    04420 2 00001 1 04412 576TELC10 TIXTELC05,1,1 GO TO NEXT S FOR CN1IJ ROUTINE. F2505710
  2. Reference
    04414−3 00000 2 04416 572TXLTELC10−2,2,0 NO S, GO TO NEXT S. F2505670
TESTL0 = 3721
  1. Definition
    2845*************************************************************F2528450
    2846TESTL0 OBTAINS THE TEST LOCATION TO BE THE SYMBOLIC ADDRESS OF2528460
    2847OF THE STD INITIALIZING INSTRUCT10N, F2528470
    07211 0 50000 2 03652 2848TESTL0 CLATAG2+3,2 INITIALIZE INDEX F2528480
  2. Reference
    05733 0 07400 4 07211 2134AC157 TSXTESTL0,4 F2521340
TETLOC = 2733
  1. Definition
    05255 1021TETLOC BSS1 F2510220
  2. References (7)
    05734 0 50000 0 05255 2135CLATETLOC IN TETL0. F2521350
    06010 0 60100 0 05255 2179STOTETLOC LOC. OF TXI. F2521790
    06073 0 60100 0 05255 2230STOTETLOC IN TETLOC WORD. F2522300
    06332−0 50100 0 05255 2396ORATETLOC F2523960
    06710−0 50100 0 05255 2642ORATETLOC IN OR0+14 F2526420
    07220 0 60100 0 05255 2855STOTETLOC ADDRESS F2528550
    07224−0 60200 0 05255 2859ORSTETLOC DECREMENT. F2528590
TETMSK = 2629
  1. Definition
    05105+007777000000 917TETMSK OCT007777000000 F2509180
  2. References (2)
    05675−0 32000 0 05105 1299ANATETMSK F2513000
    06261−0 32000 0 05105 1550ANATETMSK ISOLATE TEST NAME F2515510
TETTGX = 2704
  1. Definition
    05220 992TETTGX BSS1 F2509930
  2. References (4)
    05277 0 60100 0 05220 1044STOTETTGX INDEX FOR THIS DO TO ZERO. F2510450
    05705 0 60100 0 05220 1307STOTETTGX IN TETTGX, F2513080
    05751−0 53400 1 05220 1343RTX195 LXDTETTGX,1 DETERMINE IF THIS DO HAS A TEST. F2513440
    06125 0 50000 0 05220 1451CLATETTGX CARRY, SEE IF THIS F2514520
WRKRXT = 2703
  1. Definition
    05217 991WRKRXT BSS1 F2509920
  2. References (2)
    06356 0 60100 0 05217 1619STOWRKRXT THE ARGUMENT MASK, EDITS F2516200
    06361 0 40200 0 05217 1622SUBWRKRXT THE RX TABLE. -F2516230
WRKTGA = 2697
  1. Definition
    05211 985WRKTGA BSS1 F2509860
  2. References (3)
    05774 0 60200 0 05211 2167SLWWRKTGA AND TIX INSTRUCTIONS- F2521670
    06000−0 50000 0 05211 2171CALWRKTGA CHECK FOR F2521710
    06064 0 50000 0 05211 2223CLAWRKTGA ISOLATE APP. TGTG ENTRY. F2522230
XOR010 = 3752
  1. Definition
    07250 3 00001 1 07252 2883XOR010 TXHXOR020,1,1 F2528830
  2. Reference
    07246 3 00002 1 07250 2881TXHXOR010,1,2 FOR STORING INTO F2528810
XOR020 = 3754
  1. Definition
    07252 0 62100 0 07263 2885XOR020 STAXOR036 STORE ADRS FOR NS. F2528850
  2. Reference
    07250 3 00001 1 07252 2883XOR010 TXHXOR020,1,1 F2528830
XOR030 = 3756
  1. Definition
    07254 0 56000 0 05235 2887XOR030 LDQN1N2N3 F2528870
  2. Reference
    07265 2 00001 1 07254 2896XOR040 TIXXOR030,1,1 F2528960
XOR032 = 3760
  1. Definition
    D07260−3 00000 0 07263 2891XOR032 TXLXOR036,0 N IS VARIABLE F2528910
  2. References (2)
    07237−0 63400 4 07260 2874XOR0 SXDXOR032,4 F2528740
    07267−0 53400 4 07260 2898LXDXOR032,4 F2528980
XOR034 = 3761
  1. Definition
    07261 0 76700 0 00022 2892XOR034 ALS18 F2528920
  2. Reference
    07257 0 16200 0 07261 2890TQPXOR034 N IS CONSTANT. F2528900
XOR036 = 3763
  1. Definition
    07263 0 60100 1 00000 2894XOR036 STO0,1 F2528940
  2. References (2)
    07252 0 62100 0 07263 2885XOR020 STAXOR036 STORE ADRS FOR NS. F2528850
    D07260−3 00000 0 07263 2891XOR032 TXLXOR036,0 N IS VARIABLE F2528910
XOR040 = 3765
  1. Definition
    07265 2 00001 1 07254 2896XOR040 TIXXOR030,1,1 F2528960
  2. Reference
    07264 2 00001 2 07265 2895TIXXOR040,2,1 F2528950
ZEKSUM = 674
  1. Definition
    3101*************************************************************F2531010
    3102 F2531020
    3103*************************************************************F2531030
    3104SYNONYMS F2531040
    01242 3105ZEKSUM SYNTGTG+100 F2531050
  2. References (2)
    00166 0 70000 2 01242 126ADTG20 CPYZEKSUM,2 CHECK SUM FOR DRMTAG. F2501210
    00203 0 40200 2 01242 139SUBZEKSUM,2 F2501340