05224 | 996 | A | BSS | 1 | F2509970 |
03722 | 0 62200 0 05224 | 221 | STD | A SAVE A | F2502150 | ||
04056 | 0 60100 0 05224 | 322 | STO | A ALL CALLS REQUIRED FOR | F2503170 | ||
04111 | −0 63400 2 05224 | 349 | SXD | A,2 | F2503440 | ||
04122 | 0 34000 0 05224 | 358 | CAS | A | F2503530 | ||
04125 | 0 50000 0 05224 | 361 | DOGS45 | CLA | A T-A STORE B IN TRBBOX | F2503560 | |
04170 | 0 50000 0 05224 | 403 | FIND20 | CLA | A COMPARE DOTAGA WITH | F2503980 | |
04525 | 0 34000 0 05224 | 662 | CAS | A WE FIND AN ADTAG | F2506580 | ||
06037 | 0 50000 0 05224 | 1397 | CLA | A ALPHA PLUS ONE IS | F2513980 | ||
06050 | 0 50000 0 05224 | 1406 | CLA | A ALPHA PLUS ONE IS | F2514070 | ||
05374 | 0 50000 0 05224 | 1911 | CLA | A ASSIGNED FOR 1ST LXD | F2519110 | ||
06262 | 0 50000 0 05224 | 2349 | CLA | A THAT TRA INST | F2523490 |
05225 | 997 | B | BSS | 1 | F2509980 |
03724 | −0 63400 1 05225 | 223 | SXD | B,1 CURRENT DO | F2502170 | ||
04057 | 0 60100 0 05225 | 323 | STO | B COMPARISON FOR EACH DO | F2503180 | ||
04102 | −0 63400 2 05225 | 342 | SXD | B,2 PUT A OF DO IN INDICATOR B | F2503370 | ||
04113 | −0 63400 2 05225 | 351 | SXD | B,2 | F2503460 | ||
04114 | 0 50000 0 05225 | 352 | DOGS30 | CLA | B | F2503470 | |
04127 | 0 50000 0 05225 | 363 | CLA | B | F2503580 | ||
04154 | 0 50000 0 05225 | 388 | SCAN05 | CLA | B DOTAG A OF EACH TAGTAG | F2503830 | |
04531 | 0 34000 0 05225 | 666 | ADTGS4 | CAS | B | F2506620 | |
05264 | 0 40000 0 05225 | 1839 | ADD | B TXL LOCATION | F2518390 |
05207 | 983 | AX | BSS | 1 | F2509840 |
05570 | −0 63400 1 05207 | 2035 | AC109 | SXD | AX,1 CHECK FOR | F2520350 | |
05634 | −0 53400 1 05207 | 2071 | LXD | AX,1 | F2520710 | ||
05661 | −0 53400 1 05207 | 2092 | LXD | AX,1 COMPUTE G AND DETERMINE | F2520920 | ||
05704 | −0 53400 1 05207 | 2111 | AC150 | LXD | AX,1 | F2521110 | |
05711 | −0 53400 2 05207 | 2116 | LXD | AX,2 | F2521160 | ||
05722 | −0 53400 2 05207 | 2125 | LXD | AX,2 | F2521250 | ||
05727 | −0 53400 2 05207 | 2130 | LXD | AX,2 | F2521300 | ||
05743 | −0 53400 1 05207 | 2142 | AC160 | LXD | AX,1 | F2521420 | |
05777 | −0 63400 1 05207 | 2170 | AC166 | SXD | AX,1 APP. TGTG AND | F2521700 | |
06012 | −0 53400 1 05207 | 2181 | LXD | AX,1 IS | F2521810 | ||
06060 | −0 53400 1 05207 | 2219 | AC190 | LXD | AX,1 IF ALL SUBS HAVE NOT BEEN | F2522190 | |
06063 | −0 63400 1 05207 | 2222 | AC200 | SXD | AX,1 TXI PHASE, START TIX. | F2522220 | |
06074 | −0 53400 1 05207 | 2231 | LXD | AX,1 | F2522310 | ||
06104 | −0 53400 2 05207 | 2239 | LXD | AX,2 AND COMPUTE | F2522390 | ||
06107 | −0 53400 1 05207 | 2242 | LXD | AX,1 | F2522420 | ||
06116 | −0 53400 1 05207 | 2249 | AC228 | LXD | AX,1 G1 NOT = 1, | F2522490 | |
06172 | −0 53400 1 05207 | 2293 | AC230 | LXD | AX,1 G=1, | F2522930 | |
06235 | −0 53400 1 05207 | 2328 | AC236 | LXD | AX,1 | F2523280 | |
06275 | −0 53400 2 05207 | 2362 | LXD | AX,2 | F2523620 | ||
06322 | −0 53400 2 05207 | 2383 | LXD | AX,2 PUT AX POSITION IN | F2523830 | ||
06336 | −0 53400 1 05207 | 2400 | LXD | AX,1 | F2524000 |
A | 00146 | 0 00000 0 00000 | 107 | L0 | HTR | 14 | F2501070 |
00062 | 0 53400 2 00146 | 50 | C | LXA | L0,2 | F2500510 | |
00115 | 0 70000 0 00146 | 79 | CPY | L0 NO ENTRIES, WRITE | F2500800 | ||
00116 | 0 70000 0 00146 | 80 | CPY | L0 ZEROS IN FIRST FOUR | F2500810 | ||
00117 | 0 70000 0 00146 | 81 | CPY | L0 LOCATIONS OF DRUM 3 | F2500820 | ||
00120 | 0 70000 0 00146 | 82 | CPY | L0 | F2500830 | ||
00132 | 0 50000 0 00146 | 95 | BINIT | CLA | L0 | F2500960 |
2631 | ************************************************************* | F2526310 | |||||
2632 | PC IS A SUBROUTINE CALLED BY AOR0, BOR0, ETC. T0 HAKE C0MPUTA | F2526320 | |||||
2633 | TIONS AND T0 CALL C0MPILING ROUTINES FOR TXI DECREMENT INTIA | F2526330 | |||||
2634 | LIZATION. | F2526340 | |||||
06701 | −0 63400 4 06717 | 2635 | PC | SXD | PC04,4 | F2526350 |
06033 | 0 07400 4 06701 | 2198 | TSX | PC,4 FOR BLOCK D SPECIAL. | F2521980 | ||
06450 | 0 07400 4 06701 | 2475 | TSX | PC,4 | F2524750 | ||
06477 | 0 07400 4 06701 | 2499 | TSX | PC,4 AND COMPILE BLKC INIT. | F2524990 | ||
06536 | 0 07400 4 06701 | 2531 | TSX | PC,4 MAKE COMPUTATIONS AND COMPILE | F2525310 |
D | 06364 | 3 00000 1 06354 | 1625 | S3 | TXH | SEARCH,1 TEST FOR END OF BLOCK, | F2516260 |
06324 | −0 63400 1 06364 | 1588 | PRES10 | SXD | S3,1 SEARCH ROUTINE. MASK IS | F2515890 | |
06334 | −0 63400 1 06364 | 1596 | PRES30 | SXD | S3,1 | F2515970 | |
06342 | −0 63400 1 06364 | 1602 | PRES50 | SXD | S3,1 | F2516030 | |
06350 | −0 63400 1 06364 | 1608 | PRES70 | SXD | S3,1 | F2516090 | |
06363 | 2 00001 1 06364 | 1624 | TIX | S3,1,1 INDEX FOR NEXT ENTRY, | F2516250 |
05213 | 987 | XX | BSS | 1 | F2509880 |
06032 | −0 63400 1 05213 | 2197 | SXD | XX,1 INSTRUCTIONS | F2521970 | ||
06447 | −0 63400 1 05213 | 2474 | SXD | XX,1 POS. TO S1. | F2524740 | ||
06476 | −0 63400 1 05213 | 2498 | SXD | XX,1 AND CALL PC TO COMPUTE | F2524980 | ||
06535 | −0 63400 1 05213 | 2530 | SXD | XX,1 | F2525300 | ||
06736 | −0 53400 1 05213 | 2664 | PC20 | LXD | XX,1 ISOLATE N3 FOR | F2526640 | |
07053 | −0 53400 1 05213 | 2741 | PC22 | LXD | XX,1 X NOT CONSTANT, | F2527410 |
768 | ************************************************************* | F2507690 | |||||
769 | OP2 IS CALLED BY THE ALPHA STATE TO TEST FOR OPTIMIZATION IN | F2507700 | |||||
770 | THE 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 | 772 | 0P2 | CLA | 32766,4 | F2507730 |
05512 | 0 07400 4 04670 | 1989 | TSX | 0P2,4 OPTIMIZING ROUTINE. | F2519890 | ||
05530 | 0 07400 4 04670 | 2003 | TSX | 0P2,4 TO OPTIMIZE. | F2520030 | ||
05544 | 0 07400 4 04670 | 2015 | TSX | 0P2,4 FOR OPTIMIZATION | F2520150 |
05214 | 988 | AD1 | BSS | 1 | F2509890 |
03755 | 0 60100 0 05214 | 248 | STO | AD1 | F2502420 | ||
03756 | 0 70000 0 05214 | 249 | CPY | AD1 | F2502430 | ||
03757 | 0 70000 0 05214 | 250 | CPY | AD1 | F2502440 | ||
04607 | 0 60100 0 05214 | 719 | STO | AD1 | F2507200 | ||
04614 | 0 46000 0 05214 | 724 | LDA | AD1 ON DRUM 3. | F2507250 | ||
04630 | 0 50000 0 05214 | 736 | CLA | AD1 INITIALIZE ORIGIN DRUM | F2507370 | ||
04632 | 0 60100 0 05214 | 738 | STO | AD1 (EVEN ENTRIES) | F2507390 | ||
04646 | 0 60100 0 05214 | 750 | STO | AD1 NEW ADDRESS FOR DRUM WRITING. | F2507510 | ||
04650 | 0 46000 0 05214 | 752 | LDA | AD1 DRUM AND | F2507530 |
524 | ************************************************************* | F2505190 | |||||
525 | CIT ENTERS A COMPILED INSTRUCTION INTO THE COMPILED INSTRUCTI | F2505200 | |||||
526 | ION BUFFER. IF THE BUFFER IS FULL, CITSP (WHICH IS PART OF C | F2505210 | |||||
527 | CIT) WRITES IT ONTO TAPE 3. | F2505220 | |||||
04345 | −0 63400 1 05174 | 528 | CIT | SXD | E2C,1 SIZE T0 CURRENT WORD COUNT. | F2505230 |
04513 | 0 07400 4 04345 | 649 | TSX | CIT,4 | F2506450 | ||
04727 | 0 07400 4 04345 | 803 | TSX | CIT,4 | F2508040 | ||
04737 | 0 07400 4 04345 | 811 | TSX | CIT,4 | F2508120 | ||
04763 | 0 07400 4 04345 | 834 | TSX | CIT,4 | F2508350 | ||
05012 | 0 07400 4 04345 | 857 | TSX | CIT,4 | F2508580 | ||
05035 | 0 07400 4 04345 | 876 | TSX | CIT,4 L(N1) | F2508770 | ||
05401 | 0 07400 4 04345 | 1111 | TSX | CIT,4 COMPILED INSTRUCTION.P | F2511120 | ||
05412 | 0 07400 4 04345 | 1120 | TSX | CIT,4 COMPILER ROUTINE. | F2511210 | ||
05433 | 0 07400 4 04345 | 1137 | TSX | CIT,4 WORD FOR SXD INSTRUCTION. | F2511380 | ||
05651 | 0 07400 4 04345 | 1279 | TSX | CIT,4 | F2512800 | ||
05672 | 0 07400 4 04345 | 1296 | TSX | CIT,4 PUT INTO BUFFER. | F2512970 | ||
05743 | 0 07400 4 04345 | 1337 | TSX | CIT,4 IN CIB, | F2513380 | ||
06042 | 0 07400 4 04345 | 1400 | TSX | CIT,4 ENTER TXL IN BUFFER, | F2514010 | ||
06053 | 0 07400 4 04345 | 1409 | TSX | CIT,4 ENTER COMPILED TXL IN BUFFER. | F2514100 | ||
06177 | 0 07400 4 04345 | 1493 | RTX250 | TSX | CIT,4 COMPILE INST. | F2514940 | |
06521 | 0 07400 4 04345 | 1734 | TSX | CIT,4 COMPILE TXI INSTRUCITON. | F2517350 | ||
06543 | 0 07400 4 04345 | 1752 | TSX | CIT,4 | F2517530 | ||
06556 | 0 07400 4 04345 | 1766 | TSX | CIT,4 | F2517670 | ||
06615 | 0 07400 4 04345 | 1797 | TSX | CIT,4 | F2517980 | ||
05376 | 0 07400 4 04345 | 1913 | AC024 | TSX | CIT,4 PUT IN DOFILE. | F2519130 | |
05564 | 0 07400 4 04345 | 2031 | TSX | CIT,4 PUT IN BUFFER. | F2520310 | ||
05671 | 0 07400 4 04345 | 2100 | TSX | CIT,4 | F2521000 | ||
05742 | 0 07400 4 04345 | 2141 | TSX | CIT,4 SUB OF TAG. | F2521410 | ||
05760 | 0 07400 4 04345 | 2155 | TSX | CIT,4 THE | F2521550 | ||
05767 | 0 07400 4 04345 | 2162 | TSX | CIT,4 SYMBOL. | F2521620 | ||
06145 | 0 07400 4 04345 | 2272 | TSX | CIT,4 | F2522720 | ||
06157 | 0 07400 4 04345 | 2282 | TSX | CIT,4 | F2522820 | ||
06221 | 0 07400 4 04345 | 2316 | TSX | CIT,4 | F2523160 | ||
06271 | 0 07400 4 04345 | 2356 | TSX | CIT,4 | F2523560 | ||
06623 | 0 07400 4 04345 | 2585 | TSX | CIT,4 AND GO TO | F2525850 | ||
06634 | 0 07400 4 04345 | 2594 | TSX | CIT,4 FIXCON SYMBOL | F2525940 | ||
07011 | 0 07400 4 04345 | 2707 | TSX | CIT,4 SUB L(1), | F2527070 | ||
07022 | 0 07400 4 04345 | 2716 | TSX | CIT,4 | F2527160 | ||
07344 | 0 07400 4 04345 | 2948 | LXC30 | TSX | CIT,4 | F2529480 |
415 | ************************************************************* | F2504100 | |||||
416 | ISC IS CALLED BY FIND TO TEST FOR MODIFICATION. | F2504110 | |||||
04204 | 0 53400 2 05126 | 417 | ISC | LXA | L(1),2 COMPARE SUBSCRIPT | F2504120 |
04175 | 0 07400 4 04204 | 408 | TSX | ISC,4 | F2504030 | ||
04210 | 1 00001 2 04211 | 421 | TXI | ISC+5,2,1 TRY NEXT LEFT | F2504160 | ||
04211 | −3 00003 2 04205 | 422 | TXL | ISC+1,2,3 SUBSCRIPT. | F2504170 | ||
05772 | 0 07400 4 04204 | 1360 | TSX | ISC,4 FIND DOSUB. | F2513610 |
2900 | ************************************************************* | F2529000 | |||||
2901 | THIS ROUTINE EXAMINES A BLOCK OF CONSTANTS AND COMPILES ONE I | F2529010 | |||||
2902 | INSTRUCTION FOR EACH. THE CALLER INDICATES THE FIRST CONSTAN | F2529020 | |||||
2903 | BY A REFERENCE IN THE ACCUMULATOR, AND INDICATES THE NUMBER O | F2529030 | |||||
2904 | OF INSTRUCTIONS IN INDEX REGISTER A. | F2529040 | |||||
07271 | −0 63400 4 07336 | 2905 | LXC | SXD | LXC19,4 | F2529050 |
05504 | 0 07400 4 07271 | 1983 | TSX | LXC,4 COMPILE CLA, SUB. | F2519830 | ||
05522 | 0 07400 4 07271 | 1997 | TSX | LXC,4 COMPILER. | F2519970 | ||
05537 | 0 07400 4 07271 | 2010 | TSX | LXC,4 COMPILE S2 LOAD VALUE. | F2520100 | ||
05553 | 0 07400 4 07271 | 2022 | TSX | LXC,4 BLOCK. | F2520220 | ||
05703 | 0 07400 4 07271 | 2110 | TSX | LXC,4 | F2521100 | ||
05716 | 0 07400 4 07271 | 2121 | TSX | LXC,4 | F2521210 | ||
06106 | 0 07400 4 07271 | 2241 | TSX | LXC,4 ON O.C. LEVEL. | F2522410 | ||
06133 | 0 07400 4 07271 | 2262 | TSX | LXC,4 | F2522620 | ||
06164 | 0 07400 4 07271 | 2287 | TSX | LXC,4 | F2522870 | ||
06170 | 0 07400 4 07271 | 2291 | TSX | LXC,4 GROUP FOR THIS CASE. | F2522910 | ||
06207 | 0 07400 4 07271 | 2306 | TSX | LXC,4 CASE. | F2523060 | ||
06224 | 0 07400 4 07271 | 2319 | TSX | LXC,4 | F2523190 | ||
06230 | 0 07400 4 07271 | 2323 | TSX | LXC,4 THIS CASE. | F2523230 | ||
06426 | 0 07400 4 07271 | 2456 | TSX | LXC,4 | F2524560 | ||
06432 | 0 07400 4 07271 | 2460 | TSX | LXC,4 | F2524600 | ||
06600 | 0 07400 4 07271 | 2566 | TSX | LXC,4 | F2525660 | ||
06603 | 0 07400 4 07271 | 2569 | TSX | LXC,4 | F2525690 | ||
06606 | 0 07400 4 07271 | 2572 | TSX | LXC,4 | F2525720 | ||
06642 | 0 07400 4 07271 | 2600 | TSX | LXC,4 | F2526000 | ||
06660 | 0 07400 4 07271 | 2614 | TSX | LXC,4 | F2526140 | ||
06663 | 0 07400 4 07271 | 2617 | TSX | LXC,4 | F2526170 | ||
06677 | 0 07400 4 07271 | 2629 | TSX | LXC,4 | F2526290 | ||
06727 | 0 07400 4 07271 | 2657 | TSX | LXC,4 | F2526570 | ||
06762 | 0 07400 4 07271 | 2684 | TSX | LXC,4 SUBL(1), AND | F2526840 | ||
06771 | 0 07400 4 07271 | 2691 | TSX | LXC,4 STO 1) +3. | F2526910 | ||
07025 | 0 07400 4 07271 | 2719 | TSX | LXC,4 | F2527190 | ||
07043 | 0 07400 4 07271 | 2733 | TSX | LXC,4 STO1)+3, | F2527330 | ||
07046 | 0 07400 4 07271 | 2736 | TSX | LXC,4 | F2527360 | ||
07066 | 0 07400 4 07271 | 2752 | TSX | LXC,4 | F2527520 | ||
07071 | 0 07400 4 07271 | 2755 | TSX | LXC,4 | F2527550 | ||
07100 | 0 07400 4 07271 | 2762 | TSX | LXC,4 | F2527620 | ||
07112 | 0 07400 4 07271 | 2772 | TSX | LXC,4 | F2527720 | ||
07124 | 0 07400 4 07271 | 2782 | PC62 | TSX | LXC,4 STD, ADD N3G, STD. | F2527820 |
174 | MAN CONSTITUTES THE MAIN LINEAR FLOW THROUGH BLOCK 5. A | F2501680 | |||||
175 | SUBROUTINE PICKS A DO BETA OR ALPHA, AND THEN CONTROL IS PASS | F2501690 | |||||
176 | ED TO THE PROPER STATE, (BETA OR ALPHA), TO COMPILE ALL THE | F2501700 | |||||
177 | INDEXING INSTRUCTIONS FOR THAT PART OF THAT DO. CONTROL IS | F2501710 | |||||
178 | RETURNED TO MAN. THIS PROCESS IS REPEATED UNTIL ALL ALPHAS | F2501720 | |||||
179 | AND BETAS IN A NEST HAVE BEEN TREATED. THE WHOLE PROCEDURE I | F2501730 | |||||
180 | IS REPEATED FOR EACH NEST AND THEN CONTROL IS PASSED TO BLOCK | F2501740 | |||||
181 | SIX. | F2501750 | |||||
182 | ************************************************************ | F2501760 | |||||
03654 | 0 07400 4 04012 | 183 | MAN | TSX | TDOTG,4 READ ONE NEST OF DOTAG | F2501770 |
00110 | 0 02000 0 03654 | 74 | TRA | MAN IF NO DOTAGS, | F2500750 | ||
03737 | 0 02000 0 03654 | 234 | TRA | MAN | F2502280 |
05212 | 986 | N3X | BSS | 1 | F2509870 |
06030 | −0 63400 1 05212 | 2195 | SXD | N3X,1 TO COMPILE | F2521950 | ||
06445 | −0 63400 1 05212 | 2472 | SXD | N3X,1 POS. TO S2. | F2524720 | ||
06474 | −0 63400 1 05212 | 2496 | SXD | N3X,1 TO S3, | F2524960 | ||
06533 | −0 63400 1 05212 | 2528 | SXD | N3X,1 | F2525280 | ||
06702 | −0 53400 1 05212 | 2636 | LXD | N3X,1 | F2526360 | ||
07113 | −0 53400 1 05212 | 2773 | PC60 | LXD | N3X,1 | F2527730 |
813 | ************************************************************* | F2508140 | |||||
814 | OP3 TESTS FOR VARIABLE NS AND IF CONSTANT COMPILES A | F2508150 | |||||
815 | CLA L(N2-N1), OR IF VARIABLE CLA L(N2)....SUBL(N1), | F2508160 | |||||
04741 | −0 63400 4 05040 | 816 | OP3 | SXD | EROP3,4 | F2508170 |
06135 | 0 07400 4 04741 | 2264 | ACI22 | TSX | OP3,4 N3= 1, N1 NOT = 1, | F2522640 | |
06211 | 0 07400 4 04741 | 2308 | ACI23 | TSX | OP3,4 N3=1, N1 NOT = 1. | F2523080 | |
06610 | 0 07400 4 04741 | 2574 | EOR02 | TSX | OP3,4 COMPILE CLA (N2 - N1) | F2525740 | |
06773 | 0 07400 4 04741 | 2693 | PCI22 | TSX | OP3,4 COMPILE CLA L(N2-N1) | F2526930 | |
07035 | 0 07400 4 04741 | 2727 | TSX | OP3,4 NO, COMPILE CLA (N2-N1) | F2527270 |
1022 | ************************************************************* | F2510230 | |||||
1023 | BEGIN BETA STAGE | F2510240 | |||||
1024 | THE BETA STATE IS CALLED BY MAN TO COMPUTE AND COMPILE | F2510250 | |||||
1025 | INCREMENTING, TESTING, AND RESETTING INSTRUCTIONS FOR A GIVE | F2510260 | |||||
1026 | DO. | F2510270 | |||||
05256 | −0 63400 4 05325 | 1027 | RTX | SXD | RTX024,4 | F2510280 |
05256 | 1832 | ORG | RTX | F2518320 | |||
M | 05256 | 3108 | RTXAC | SYN | RTX | F2531080 |
1706 | ************************************************************* | F2517070 | |||||
1707 | TGA MAKES AN ENTRY IN APPENDED TAGTAG SHOWING THE LOCATION OF | F2317080 | |||||
1708 | A GIVEN VARIABLE DECREMENT TXI OR TIX. FOR REFERENCE BY THE | F2517090 | |||||
1709 | ALPHA STATE WHEN COMPILING CECREMENT INITIALIZATION | F2517100 | |||||
1710 | INSTRUCTIONS. | F2517110 | |||||
06476 | 0 76700 0 00022 | 1711 | TGA | ALS | 18 FOR RX LOC. | F2517120 |
05406 | 0 07400 4 06476 | 1116 | TSX | TGA,4 PLACE LOCATION IN APPENDED TAGTAG WORD | F2511170 | ||
05737 | 0 07400 4 06476 | 1333 | TSX | TGA,4 IN APPENDED DRM TG WORD, | F2513340 | ||
06552 | 0 07400 4 06476 | 1762 | TSX | TGA,4 | F2517630 |
294 | ************************************************************ | F2502890 | |||||
295 | TTG IS CALLED BY MAN TO READ IN A NEST OF TAGTAG ENTRIES | F2502900 | |||||
04027 | 0 53400 2 05121 | 296 | TTG | LXA | LMXTG,2 LOCATION OF MAX TAP TABLE SIZE | F2502910 |
03665 | 0 07400 4 04027 | 192 | TSX | TTG,4 READ NEST OF TAGTAGS | F2501860 |
05237 | 1007 | XTG | BSS | 1 | F2510080 |
04163 | −0 53400 1 05237 | 398 | LXD | XTG,1 | F2503930 | ||
04516 | −0 53400 1 05237 | 655 | ADTGSE | LXD | XTG,1 | F2506510 | |
04520 | −0 63400 1 05237 | 657 | SXD | XTG,1 | F2506530 | ||
05300 | 0 60100 0 05237 | 1045 | STO | XTG | F2510460 | ||
05306 | −0 63400 1 05237 | 1051 | SXD | XTG,1 ENTRY THAT LIES BETWEEN A AND B | F2510520 | ||
05311 | −0 63400 1 05237 | 1054 | SXD | XTG,1 SC MODIFIED BY DO, STORE. | F2510550 | ||
05704 | 0 50000 0 05237 | 1306 | CLA | XTG STORE ITS INDEX | F2513070 | ||
05713 | −0 63400 4 05237 | 1313 | SXD | XTG,4 | F2513140 | ||
06064 | −0 63400 1 05237 | 1418 | SXD | XTG,1 | F2514190 | ||
06067 | −0 63400 1 05237 | 1421 | SXD | XTG,1 PRESERVE X OF TAG UNDER CONDSIDERATION. | F2514220 | ||
06126 | 0 40200 0 05237 | 1452 | SUB | XTG TAG IS BEST TEST. | F2514530 | ||
06203 | −0 63400 4 05237 | 1497 | SXD | XTG,4 COMPIL1NG | F2514980 | ||
06502 | 0 50000 0 05237 | 1715 | CLA | XTG CALCULATES X LOC OF TTGA. | F2517160 | ||
06607 | −0 53400 2 05237 | 1791 | BCDE10 | LXD | XTG,2 | F2517920 | |
05314 | −0 63400 1 05237 | 1863 | SXD | XTG,1 BY A DO WITHIN ALPHA | F2518630 | ||
05317 | −0 63400 1 05237 | 1866 | SXD | XTG,1 STORE TGTG INDEX IN XTG. | F2518660 | ||
05321 | −0 53400 1 05237 | 1868 | LXD | XTG,1 SET UP FOR FIND ROUTINE. | F2518680 | ||
05770 | 0 50000 0 05237 | 2163 | AC165 | CLA | XTG START SCANNING | F2521630 | |
06242 | −0 63400 2 05237 | 2333 | SXD | XTG,2 | F2523330 |
2385 | ************************************************************* | F2523850 | |||||
2386 | AOR0, BOR0, COR0, DOR0, AND EOR0 ARE CALLED T0 MAKE APPROPRIA | F2523860 | |||||
2387 | COMPILING TABLE (OR0) ENTRIES AND TO CALLL ROUTINES TO MAKE | F2523870 | |||||
2388 | COMPUTATIONS AND COMPILE INSTRUCTIQNS TO INTIALIZE VARIABLE D | F2523880 | |||||
2389 | DECREMENTS FOR BLOCKS A, B, C, D, AND E RESPECTIVELY. | F2523890 | |||||
06324 | −0 63400 4 06346 | 2390 | AOR0 | SXD | AOR05,4 | F2523900 |
06043 | 0 07400 4 06324 | 2206 | TSX | AOR0,4 BLOCK A | F2522060 | ||
06114 | 0 07400 4 06324 | 2247 | TSX | AOR0,4 COMPUTE G, PUT IN OR0+19. | F2522470 |
A | 05173 | 0 00000 0 00000 | 971 | BB0X | HTR | F2509720 |
03677 | 0 60100 0 05173 | 202 | STO | BB0X INDICATORS | F2501960 | ||
04350 | −0 53400 2 05173 | 531 | LXD | BB0X,2 COMP OF CURRENT WORD COUNT. | F2505260 | ||
04352 | −0 53400 2 05173 | 533 | CITSP | LXD | BB0X,2 | F2505280 | |
04367 | −0 63400 2 05173 | 546 | SXD | BB0X,2 SAVE CURRENT WD CT, | F2505410 | ||
04724 | −0 53400 1 05173 | 800 | LXD | BB0X,1 | F2508010 | ||
04726 | −0 63400 1 05173 | 802 | 0P24 | SXD | BB0X,1 | F2508030 | |
05730 | −0 53400 4 05173 | 2131 | LXD | BB0X,4 | F2521310 | ||
05732 | −0 63400 4 05173 | 2133 | SXD | BB0X,4 | F2521330 |
1755 | ************************************************************* | F2517560 | |||||
1756 | BCDE COMPILES TXI-SXD-TIX INSTRUCTIONS AND MAKES PROPER TABLE | F2517570 | |||||
1757 | ENTRIES IN DOTAG AND TGA WHEN BLOCK B,C,D, OR E IS VARIABLE. | F2517580 | |||||
06546 | −0 63400 4 06567 | 1758 | BCDE | SXD | BCDE2,4 | F2517590 |
05464 | 0 07400 4 06546 | 1162 | RTX80 | TSX | BCDE,4 BLOCK B IS VARIABLE. | F2511630 | |
05523 | 0 07400 4 06546 | 1193 | RTX100 | TSX | BCDE,4 BLOCK DECREMENT IS VARIABLE. | F2511940 | |
05577 | 0 07400 4 06546 | 1237 | RTX130 | TSX | BCDE,4 BLOCK D IS VARIABLE. | F2512380 | |
05644 | 0 07400 4 06546 | 1274 | RTX154 | TSX | BCDE,4 E IS VARIABLE. THIS TAKES | F2512750 |
05136 | 2 00000 0 00000 | 942 | BIT1 | PTW | 0 | F2509430 |
04076 | −0 32000 0 05136 | 338 | ANA | BIT1 | F2503330 | ||
04146 | 0 50000 0 05136 | 378 | CLA | BIT1 ORDER TO PLACE BIT IN | F2503730 | ||
05417 | −0 32000 0 05136 | 1125 | ANA | BIT1 | F2511260 | ||
06272 | 0 50000 0 05136 | 1559 | TETG3 | CLA | BIT1 ENTER TEST BIT | F2515600 | |
05751 | −0 32000 0 05136 | 2148 | ANA | BIT1 | F2521480 |
2796 | ************************************************************* | F2527960 | |||||
2797 | BITP CHECKS SUBSCRIPTS FOR DEFINITION. IF DEFINED BY RELCON | F2327970 | |||||
2798 | OR DOSUB IT OBTAINS OBJECT PROGRAM SYMBOLS FOR N1 OR S1 RESPE | F2327980 | |||||
2799 | CTIVELY. | F2527990 | |||||
07137 | 0 62100 0 07162 | 2800 | BITP | STA | BITP14 | F2528000 |
05414 | 0 07400 4 07137 | 1927 | TSX | BITP,4 OR0 TABLE. | F2519270 | ||
05420 | 0 07400 4 07137 | 1931 | TSX | BITP,4 S2. | F2519310 | ||
05427 | 0 07400 4 07137 | 1938 | TSX | BITP,4 | F2519380 |
1514 | ************************************************************* | F2515130 | |||||
1515 | CILV IS CALLED WHEN AN INSTRUCTION NUMBER IS NEEDED FOR A C0M | F2515160 | |||||
1516 | PILED BETA STATE INSTRUCTION. | F2515170 | |||||
06224 | 0 50000 0 05244 | 1517 | CILV | CLA | VCTR THIS ROUTINE UPDATES | F2515180 |
04473 | 0 07400 4 06224 | 633 | TSX | CILV,4 COMPILING AN | F2506290 | ||
05403 | 0 07400 4 06224 | 1113 | RTX68 | TSX | CILV,4 DECREMENT IS VARIABLE. ASSIGN LOCATION. | F2511140 | |
05645 | 0 07400 4 06224 | 1275 | TSX | CILV,4 CARE OF FIRST 3 INSTRUCTIONS.P | F2512760 | ||
05666 | 0 07400 4 06224 | 1292 | TSX | CILV,4 GENERATE AND | F2512930 | ||
05734 | 0 07400 4 06224 | 1330 | TSX | CILV,4 DECREMENT IS VARIABLE. | F2513310 | ||
05777 | 0 07400 4 06224 | 1365 | TSX | CILV,4 OBTAIN LOCATION FOR TEST, | F2513660 | ||
06136 | 0 07400 4 06224 | 1460 | TSX | CILV,4 TIX AFTER TXL AND ASSIGN | F2514610 | ||
06173 | 0 07400 4 06224 | 1489 | TSX | CILV,4 THIS IS FIRST TIX AFTER | F2514900 | ||
06547 | 0 07400 4 06224 | 1759 | TSX | CILV,4 OBTAIN LOC. FOR FIRST INST. | F2517600 | ||
06611 | 0 07400 4 06224 | 1793 | TSX | CILV,4 OBTAIN LOC. FOR THIRD | F2517940 |
2827 | ************************************************************* | F2528270 | |||||
2828 | COSE TESTS COEFFICIENTS AND OBTAINS OBJECT PROGRAM SYMBOLS FR | F2528280 | |||||
2829 | TH0SE GREATER THAN 1 | F2528290 | |||||
07172 | 0 53400 1 05106 | 2830 | COSE | LXA | L(6),1 COEFFICIENT INDEX. | F2528300 |
05443 | 0 07400 4 07172 | 1950 | AC048 | TSX | COSE,4 TEST COEFFS GREATER THAN 1. | F2519500 | |
05721 | 0 07400 4 07172 | 2124 | TSX | COSE,4 | F2521240 |
625 | ************************************************************* | F2506210 | |||||
626 | CSXD COMPILES AN SXD INSTRUCTION WHERE THE ADDRESS IS NOT YET | F2306220 | |||||
627 | KNOWN, BUT IS KNOWN T0 BE THE TEST FOR A GIVEN DO. THE | F2506230 | |||||
628 | ADDRESS WORD IS FILLED IN WITH THAT DOTAG ALPHA-BETA AND THE | F2306240 | |||||
629 | LOCATION 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 THE | F2506260 | |||||
631 | PROPER ADDRESS DURING MERGE. | F2506270 | |||||
04472 | −0 63400 4 05245 | 632 | CSXD | SXD | ERTX01,4 ROUTINE FOR | F2506280 |
05655 | 0 07400 4 04472 | 1283 | TSX | CSXD,4 TSX CSXD. | F2512840 | ||
06522 | 0 07400 4 04472 | 1735 | TSX | CSXD,4 COMPILE SXD SKELETON. | F2517360 | ||
06557 | 0 07400 4 04472 | 1767 | TSX | CSXD,4 | F2517680 |
602 | ************************************************************* | F2505980 | |||||
603 | CXIJ COMPUTES GN3X. WHEN THE ROUTINE CXIJ+2 IS CALLED, | F2505990 | |||||
604 | GQ IS COMPUTED, Q BEING WHATEVER PARAMETER IS LEFT IN THE ACC | F2506000 | |||||
605 | BY THE CALLER. . | F2506010 | |||||
04447 | 0 50000 2 01103 | 606 | CXIJ | CLA | DOTAGZ+5,2 | F2506020 |
04452 | 3 00001 1 04455 | 609 | TXH | CXIJ+6,1,1 S2 OR S1. | F2506050 | ||
05455 | 0 07400 4 04447 | 1155 | RTX72 | TSX | CXIJ,4 FOR LEFT SUB WHICH IS TEST. | F2511560 | |
05501 | 0 07400 4 04447 | 1175 | RTX91 | TSX | CXIJ,4 FOR | F2511760 | |
05541 | 0 07400 4 04447 | 1207 | TSX | CXIJ,4 COMPUTE XN3G FOR | F2512080 | ||
05565 | 0 07400 4 04447 | 1227 | RTX122 | TSX | CXIJ,4 ADJUSTMENT | F2512280 | |
05617 | 0 07400 4 04447 | 1253 | TSX | CXIJ,4 COMPUTE XN3G FOR CENTER. | F2512540 | ||
05633 | 0 07400 4 04447 | 1265 | RTX150 | TSX | CXIJ,4 IN ORDER TO CMPILE 2ND | F2512660 | |
06027 | 0 07400 4 04451 | 1389 | TSX | CXIJ+2,4 | F2513900 | ||
06151 | 0 07400 4 04447 | 1471 | TSX | CXIJ,4 AND COMPUTE ACCORDINGLY | F2514720 | ||
06164 | 0 07400 4 04447 | 1482 | TSX | CXIJ,4 IN XA, THEN CALLCXIJ | F2514830 | ||
05635 | 0 07400 4 04451 | 2072 | TSX | CXIJ+2,4 IF POSITION IS | F2520720 | ||
05662 | 0 07400 4 04451 | 2093 | TSX | CXIJ+2,4 IF GREATER THAN ONE, | F2520930 |
00004 | 3126 | DIAG | EQU | 4 | F2531260 |
00061 | 0 07400 4 00004 | 49 | A4 | TSX | DIAG,4 TAPE 2 HAS GOTTEN AN ERROR CHECK 5 TIMES. | F2500500 | |
00123 | 0 07400 4 00004 | 85 | TSX | DIAG,4 DRUM 2 READING ERROR 5 TIMES. | F2500860 | ||
00216 | 0 07400 4 00004 | 150 | STOP | TSX | DIAG,4 DRUM 3 READING ERROR 5 TIMES. | F2501450 | |
04006 | 0 07400 4 00004 | 276 | TSX | DIAG,4 DRUM 1 READ INCORRECTLY 5 TIMES. | F2502700 | ||
04007 | 0 07400 4 00004 | 277 | PGPG12 | TSX | DIAG,4 DRUM 2 READ INCORRECTLY 5 TIMES. | F2502710 | |
04026 | 0 07400 4 00004 | 293 | TSX | DIAG,4 TAPE 4 READ INCORRECTLY 5 TIMES. | F2502880 | ||
04035 | 0 07400 4 00004 | 302 | TSX | DIAG,4 FALXE END OF FILE ON TAPE 4. | F2502970 | ||
04040 | 0 07400 4 00004 | 305 | TSX | DIAG,4 BUFFFR EXCEEDED. | F2503000 | ||
04054 | 0 07400 4 00004 | 317 | TSX | DIAG,4 TAPE 4 READ INCORRECTLY 5 TIMES | F2503120 | ||
04124 | 0 07400 4 00004 | 360 | TSX | DIAG,4 T=A, ERROR. | F2503550 | ||
04157 | 0 07400 4 00004 | 391 | TSX | DIAG,4 EQUALITY IMPOSSIBLE. | F2503860 | ||
04307 | 0 07400 4 00004 | 491 | TSX | DIAG,4 DRUM 4 READING ERROR 5 TIMES. | F2504860 | ||
04533 | 0 07400 4 00004 | 668 | TSX | DIAG,4 EQUALITY IMPOSSIBLE. | F2506640 | ||
04623 | 0 07400 4 00004 | 731 | TSX | DIAG,4 TLQOBVIATES THIS PATH. | F2507320 | ||
04666 | 0 07400 4 00004 | 766 | STOPFC | TSX | DIAG,4 DRUM 4 READING ERROR 5 TIMES. | F2507670 | |
05773 | 0 07400 4 00004 | 1361 | TSX | DIAG,4 SC NOT MODIFIED BY CURRENT DO. | F2313620 | ||
06234 | 0 07400 4 00004 | 1525 | CILV1 | TSX | DIAG,4 TOO MANY INSTRUCTION NUMBERS. | F2515260 | |
06353 | 0 07400 4 00004 | 1611 | ERROR | TSX | DIAG,4 ALL SEARCHES FAILED. | F2516120 |
318 | ************************************************************ | F2503130 | |||||
319 | DOGS IS CALLED BY MAN TD SELECT AN ALPHA OR BETA TO BE PRO | F2503140 | |||||
320 | CESSED BY THE APPROPRIATE STATE (ALPHA OR BETA). | F2503150 | |||||
04055 | 0 50000 0 05133 | 321 | DOGS | CLA | L(0) INITIALIZING TO ZERO | F2503160 |
03707 | 0 07400 4 04055 | 210 | TSX | DOGS,4 SELECT BOR A | F2502040 |
1724 | ************************************************************* | F23172S0 | |||||
1725 | EDCB COMPILES TXI-SXD-TIX INSTRUCTIONS AND STORES THE SXD LOC | F2517260 | |||||
1726 | ATION FOR BLOCKS B,C,D, OR E WHEN THE DECREMENTS ARE CONSTANT | F2517270 | |||||
1727 | AND KNOWN. | F2517280 | |||||
06513 | −0 63400 4 06533 | 1728 | EDCB | SXD | EDCB5,4 COMPILES TXI SXD TIX | F2517290 |
05462 | 0 07400 4 06513 | 1160 | TSX | EDCB,4 COMPILE TXI SXD TIX. | F2511610 | ||
05521 | 0 07400 4 06513 | 1191 | RTX95 | TSX | EDCB,4 COMPILE TXI SXD TIX. | F2511920 | |
05575 | 0 07400 4 06513 | 1235 | TSX | EDCB,4 COMPILE TXI SXD TIX. | F2512360 | ||
05627 | 0 07400 4 06513 | 1261 | TSX | EDCB,4 COMPILES FIRST | F2512620 | ||
05642 | 0 07400 4 06513 | 1272 | TSX | EDCB,4 COMPILE 2ND TXI SXD TIX. | F2512730 |
440 | ************************************************************* | F2504350 | |||||
441 | ENTR SIMJLATES A TAU ENTRY AND SPREADS IS INTO WORKING TAG--( | F2504360 | |||||
04230 | −0 53400 2 05230 | 442 | ENTR | LXD | DOIND,2 SYMBOL OF DO IS | F2504370 |
05332 | 0 07400 4 04230 | 1072 | RTX34 | TSX | ENTR,4 IF COUNTER, MAKE | F2510730 | |
06017 | 0 07400 4 04230 | 1381 | TSX | ENTR,4 NOT NORMAL TAG, LAY OUT SIMULATED | F2513820 | ||
06110 | 0 07400 4 04230 | 1438 | TSX | ENTR,4 ARTIFICIAL WRKSC ENTRY, | F2514390 | ||
05332 | 0 07400 4 04230 | 1877 | TSX | ENTR,4 CTR. TYPE ENTRY, SIMULATE | F2518770 |
05241 | 1009 | ER40 | BSS | 1 | F2510100 |
06245 | 0 60100 0 05241 | 1538 | STO | ER40 | F2515390 | ||
06263 | 0 40200 0 05241 | 1552 | SUB | ER40 DOES TEST NAME EQUAL TAG NAME, | F2515530 | ||
06302 | 0 60100 0 05241 | 1570 | STO | ER40 TEST BITS 1,2. | F2515710 | ||
06313 | 0 56000 0 05241 | 1579 | LDQ | ER40 WITH THE POS. THE TEST | F2515800 | ||
06321 | −0 63400 4 05241 | 1585 | SXD | ER40,4 | F2515860 | ||
06371 | −0 53400 4 05241 | 1630 | LXD | ER40,4 A-F. | F2516310 | ||
05241 | 3111 | CPYWD1 | SYN | ER40 | F2531110 |
05242 | 1010 | ER41 | BSS | 1 | F2510110 |
06251 | 0 60100 0 05242 | 1542 | STO | ER41 THIS INSURES THAT TEST BITS | F2515430 | ||
06253 | 0 32000 0 05242 | 1544 | ANS | ER41 RIGHTMOST DUPE. | F2515450 | ||
06265 | 0 56000 0 05242 | 1554 | LDQ | ER41 TEST NAME EQUALS TAG NAHE, | F2515550 | ||
06310 | 0 60100 0 05242 | 1576 | STO | ER41 CARRY BITS 101. | F2515770 | ||
06317 | −0 50100 0 05242 | 1583 | ORA | ER41 THIS RESULTS IN THE MASK | F2515840 | ||
05242 | 3112 | CPYWD2 | SYN | ER41 | F2531120 |
04615 | 0 70000 0 05241 | 725 | FC08 | CPY | CPYWD1 ENTRY FROM TABLE. | F2507260 |
00104 | 0 62200 0 04616 | 70 | C2 | STD | FC08+1 STORE WORD COUNT IN | F2500710 | |
03751 | 0 50000 0 04616 | 244 | CLA | FC08+1 | F2502380 | ||
04626 | 1 00002 1 04615 | 734 | FC24 | TXI | FC08,1,2 BUMP WORD COUNT TEST INDICATOR | F2507330 | |
04640 | −0 53400 1 04616 | 744 | LXD | FC08+1,1 | F2507450 | ||
04642 | −0 63400 1 04616 | 746 | FC42 | SXD | FC08+1,1 NEW TEST VALUE (WORD COUNT). | F2507470 |
394 | ************************************************************* | F2503890 | |||||
395 | FIND, BEGINNING WITH RTXTGX, SEARCHES FOR A TAGTAG ENTRY MODI | F2503900 | |||||
396 | F1ED BY THE CURRENT DO. | F2503910 | |||||
04162 | −0 63400 4 04176 | 397 | FIND | SXD | FIND22,4 | F2503920 |
05307 | 0 07400 4 04162 | 1052 | RTX06 | TSX | FIND,4 | F2510530 | |
06065 | 0 07400 4 04162 | 1419 | RTX226 | TSX | FIND,4 FIND VALID TAG. FILL TAG WORDS. | F2514200 | |
05315 | 0 07400 4 04162 | 1864 | AC010 | TSX | FIND,4 AND BETA. | F2518640 |
05133 | 0 00000 0 00000 | 939 | L(0) | 0 | F2509411 |
00150 | 0 50000 0 05133 | 112 | ADTGDM | CLA | L(0) INITIALIZE ERROR INDICATOR | F2506950 | |
03667 | 0 50000 0 05133 | 194 | CLA | L(0) ZERO. | F2501880 | ||
03676 | 0 50000 0 05133 | 201 | MAN10 | CLA | L(0) INITIALIZE | F2501950 | |
03733 | 0 70000 0 05133 | 230 | CPY | L(0) END OF RECORD INDIC | F2502240 | ||
03734 | 0 70000 0 05133 | 231 | CPY | L(0) | F2502250 | ||
03735 | 0 70000 0 05133 | 232 | CPY | L(0) | F2502260 | ||
03736 | 0 70000 0 05133 | 233 | CPY | L(0) | F2502270 | ||
03774 | 0 50000 0 05133 | 266 | CLA | L(0) | F2502600 | ||
04055 | 0 50000 0 05133 | 321 | DOGS | CLA | L(0) INITIALIZING TO ZERO | F2503160 | |
04334 | 0 50000 0 05133 | 515 | CLA | L(0) IF LOCIND GREATER | F2505100 | ||
04355 | 0 53400 1 05133 | 536 | LXA | L(0),1 0N TAPE 3. | F2505310 | ||
04407 | 0 50000 0 05133 | 567 | CLA | L(0) | F2505620 | ||
04474 | 0 50000 0 05133 | 634 | CLA | L(0) SXD INSTRUCTION | F2506300 | ||
04610 | 0 53400 1 05133 | 720 | LXA | L(0),1 INITIALIZE WORD COUNT TEST INDICATOR. | F2507210 | ||
04722 | 0 50000 0 05133 | 798 | CLA | L(0) | F2507990 | ||
04761 | 0 50000 0 05133 | 832 | CLA | L(0) CALLER. | F2508330 | ||
04773 | 0 50000 0 05133 | 842 | CLA | L(0) CLA L(N2). | F2508430 | ||
05006 | 0 50000 0 05133 | 853 | OP33 | CLA | L(0) | F2508540 | |
05021 | 0 50000 0 05133 | 864 | CLA | L(0) COMPILE | F2508650 | ||
05276 | 0 50000 0 05133 | 1043 | RTX05 | CLA | L(0) INITIALIZE THE TEST TAG | F2510440 | |
05421 | 0 50000 0 05133 | 1127 | CLA | L(0) FORVAR EXISTS. | F2511280 | ||
06043 | 0 50000 0 05133 | 1401 | CLA | L(0) ELIMINATE VARIABLE INDICATOR BIT. | F2514020 | ||
06465 | 0 50000 0 05133 | 1697 | CIL023 | CLA | L(0) ROUTINE PLACES SPECIAL | F2516980 | |
05426 | 0 50000 0 05133 | 1937 | AC046 | CLA | L(0) REPEAT FOR | F2519370 | |
05624 | 0 50000 0 05133 | 2063 | CLA | L(0) SYMBOLIC ADDRESS AND | F2520630 | ||
05654 | 0 50000 0 05133 | 2087 | CLA | L(0) | F2520870 | ||
05667 | 0 50000 0 05133 | 2098 | CLA | L(0) CLA N2, FOLLOWED | F2520980 | ||
05753 | 0 50000 0 05133 | 2150 | CLA | L(0) YES, | F2521500 | ||
06011 | 0 53400 4 05133 | 2180 | LXA | L(0),4 | F2521800 | ||
06150 | 0 50000 0 05133 | 2275 | CLA | L(0) | F2522750 | ||
06264 | 0 50000 0 05133 | 2351 | CLA | L(0) PROPERLY. | F2523510 | ||
07131 | 0 50000 0 05133 | 2790 | CIL03I | CLA | L(0) PLACE 0 IN LOCATION | F2527900 | |
07213 | 0 50000 0 05133 | 2850 | CLA | L(0) ISOLATE | F2528500 | ||
07310 | 0 50000 0 05133 | 2920 | LXC08 | CLA | L(0) | F2529200 | |
07322 | 0 50000 0 05133 | 2930 | CLA | L(0) RELATIVE | F2529300 | ||
07342 | 0 50000 0 05133 | 2946 | CLA | L(0) | F2529460 |
05126 | 0 00000 0 00001 | 934 | L(1) | 1 | F2509350 |
00105 | 0 50000 0 05126 | 71 | CLA | L(1) DECREMENT OF FC08-1 | F2500720 | ||
00212 | 0 40000 0 05126 | 146 | ADD | L(1) ENTIRE TABLE IS RE-READ. | F2501410 | ||
03705 | 0 50000 0 05126 | 208 | MAN20 | CLA | L(1) | F2502020 | |
04135 | 0 40200 0 05126 | 369 | SUB | L(1) EITHER B OF SAME DO OR | F2503640 | ||
04204 | 0 53400 2 05126 | 417 | ISC | LXA | L(1),2 COMPARE SUBSCRIPT | F2504120 | |
04552 | 0 53400 2 05126 | 683 | ADTGS8 | LXA | L(1),2 INIT FOR POSING. | F2506790 | |
04633 | 0 53400 1 05126 | 739 | FC28 | LXA | L(1),1 SET ENTRY NUMBER FOR SECOND PASS. | F2507400 | |
05456 | 0 40200 0 05126 | 1156 | SUB | L(1) | F2511570 | ||
05502 | 0 40200 0 05126 | 1176 | SUB | L(1) LEFT | F2511770 | ||
05571 | 0 40200 0 05126 | 1231 | SUB | L(1) ADD ERTX01 | F2512320 | ||
05620 | 0 40200 0 05126 | 1254 | SUB | L(1) STORE SN3G-1 | F2512550 | ||
05634 | 0 40200 0 05126 | 1266 | SUB | L(1) TXI SXD TIX IN | F2512670 | ||
06240 | −0 32000 0 05126 | 1531 | ANA | L(1) | F2515320 | ||
06252 | 0 40200 0 05126 | 1543 | SUB | L(1) ARE ENTERED ONLY FOR | F2515440 | ||
06322 | 0 53400 1 05126 | 1586 | LXA | L(1),1 THIS BLOCK REPRESENTS | F2515870 | ||
05372 | 0 40200 0 05126 | 1909 | SUB | L(1) | F2519090 | ||
05417 | 0 50000 0 05126 | 1930 | AC040 | CLA | L(1) REPEAT FOR | F2519300 | |
05455 | 0 40200 0 05126 | 1960 | SUB | L(1) THAN 1, RETURN. | F2519600 | ||
05501 | 0 40200 0 05126 | 1980 | SUB | L(1) | F2519800 | ||
05543 | 0 53400 1 05126 | 2014 | LXA | L(1),1 CALL OP2 ROUTINE | F2520140 | ||
05660 | 0 50000 0 05126 | 2091 | AC140 | CLA | L(1) | F2520910 | |
05663 | 0 40200 0 05126 | 2094 | SUB | L(1) | F2520940 | ||
05673 | 0 40000 0 05126 | 2102 | AC146 | ADD | L(1) G GREATER THAN 1, | F2521020 | |
05714 | 0 53400 1 05126 | 2119 | LXA | L(1),1 | F2521190 | ||
06100 | 0 40200 0 05126 | 2235 | SUB | L(1) DOES N3 = 1. | F2522350 | ||
06122 | 0 40200 0 05126 | 2253 | SUB | L(1) | F2522530 | ||
06125 | 0 40200 0 05126 | 2256 | SUB | L(1) N1 = 1. | F2522560 | ||
06176 | 0 40200 0 05126 | 2297 | SUB | L(1) | F2522970 | ||
06201 | 0 40200 0 05126 | 2300 | SUB | L(1) | F252300D | ||
06223 | 0 53400 1 05126 | 2318 | LXA | L(1),1 | F2523180 | ||
06473 | 0 53400 1 05126 | 2495 | COR010 | LXA | L(1),1 SET N3X POSITION | F2524950 | |
06532 | 0 53400 1 05126 | 2527 | DOR020 | LXA | L(1),1 SET N3X POS. TO S3, | F2525270 | |
06557 | 0 40200 0 05126 | 2549 | SUB | L(1) IS N3=1. | F2525490 | ||
06562 | 0 40200 0 05126 | 2552 | SUB | L(1) N1 = 1. | F2525520 | ||
06601 | 0 53400 1 05126 | 2567 | EOR03 | LXA | L(1),1 COMPILE | F2525670 | |
06675 | 0 53400 1 05126 | 2627 | LXA | L(1),1 OR0+20 AND C0MPILE | F2526270 | ||
06742 | 0 40200 0 05126 | 2668 | SUB | L(1) | F2526680 | ||
06751 | 0 40200 0 05126 | 2675 | SUB | L(1) | F2526750 | ||
06760 | 0 53400 1 05126 | 2682 | LXA | L(1),1 YES, COMPILE | F2526820 | ||
07033 | 0 40200 0 05126 | 2725 | SUB | L(1) | F2527250 | ||
07044 | 0 53400 1 05126 | 2734 | PCI33 | LXA | L(1),1 | F2527340 | |
07110 | 0 53400 1 05126 | 2770 | LXA | L(1),1 | F2527700 | ||
07301 | 0 40200 0 05126 | 2913 | SUB | L(1) LXD COMPILED. IF SO, | F2529130 |
05127 | 0 00000 0 00002 | 935 | L(2) | 2 | F2509360 |
04427 | 0 40200 0 05127 | 586 | SUB | L(2) | F2505820 | ||
04433 | 0 40200 0 05127 | 590 | SUB | L(2) COMPUTE | F2505860 | ||
04440 | 0 40200 0 05127 | 595 | SUB | L(2) COMPUTE | F2505910 | ||
04611 | 0 53400 2 05127 | 721 | LXA | L(2),2 INITIALIZE INDICATOR FOR TWO PASSES. | F2507220 | ||
04631 | 0 40000 0 05127 | 737 | ADD | L(2) ADDRESS FOR 2ND PASS | F2507380 | ||
05157 | 0 53400 1 05127 | 959 | INST3 | LXA | L(2),1 | F2509600 | |
05540 | 0 53400 1 05127 | 1206 | LXA | L(2),1 FOR EXIT ROUTINE. | F2512070 | ||
05616 | 0 53400 1 05127 | 1252 | LXA | L(2),1 FOR EXIT ROUTINE, | F2512530 | ||
05765 | 0 40000 0 05127 | 1355 | ADD | L(2) DRUM. | F2513560 | ||
05413 | 0 50000 0 05127 | 1926 | CLA | L(2) 1F VARIABLE LOAD, FILL | F2519260 | ||
05472 | 0 53400 1 05127 | 1973 | AC049 | LXA | L(2),1 | F2519730 | |
05513 | 0 53400 1 05127 | 1990 | LXA | L(2),1 AT LEAST 4 COMP INST. | F2519900 | ||
05527 | 0 53400 1 05127 | 2002 | LXA | L(2),1 CALL OP2 ROUTINE | F2520020 | ||
06031 | 0 53400 1 05127 | 2196 | LXA | L(2),1 INITIALIZATION | F2521960 | ||
06206 | 0 53400 1 05127 | 2305 | LXA | L(2),1 FOR THIS | F2523050 | ||
06226 | 0 53400 1 05127 | 2321 | AC230I | LXA | L(2),1 G =1, N3 NOT = 1. | F2523210 | |
06424 | 0 53400 1 05127 | 2454 | AOR030 | LXA | L(2),1 SUB IS S1, C1=1, | F2524540 | |
06444 | 0 53400 1 05127 | 2471 | LXA | L(2),1 INITIALIZE N3X | F2524710 | ||
06534 | 0 53400 1 05127 | 2529 | LXA | L(2),1 XX POS. TO S2. | F2525290 | ||
07067 | 0 53400 1 05127 | 2753 | LXA | L(2),1 | F2527530 |
05131 | 0 00000 0 00003 | 937 | L(3) | 3 | F2509380 |
04406 | 0 53400 1 05131 | 566 | TELC | LXA | L(3),1 | F2505610 | |
04565 | 0 53400 1 05131 | 697 | LXA | L(3),1 | F2506980 | ||
05500 | 0 53400 1 05131 | 1174 | LXA | L(3),1 XN3G-1 | F2511750 | ||
05564 | 0 53400 1 05131 | 1226 | LXA | L(3),1 DECREMENT | F2512270 | ||
05730 | −0 32000 0 05131 | 1326 | RTX188 | ANA | L(3) | F2513270 | |
06254 | 0 53400 1 05131 | 1545 | LXA | L(3),1 | F2515460 | ||
05302 | 0 40000 0 05131 | 1853 | ADD | L(3) ADDRESS FOR | F2518530 | ||
05511 | 0 53400 1 05131 | 1988 | LXA | L(3),1 S1 DEFINED, GO TO | F2519880 | ||
05567 | 0 53400 1 05131 | 2034 | LXA | L(3),1 PREPARE TO | F2520340 | ||
05702 | 0 53400 1 05131 | 2109 | LXA | L(3),1 | F2521090 | ||
05776 | 0 53400 1 05131 | 2169 | LXA | L(3),1 YES, ISOLATE | F2521690 | ||
06027 | 0 53400 1 05131 | 2194 | LXA | L(3),1 CALL PC ROUTINE | F2521940 | ||
06062 | 0 53400 1 05131 | 2221 | LXA | L(3),1 THIS REPRESENTS END OF | F2522210 | ||
06446 | 0 53400 1 05131 | 2473 | LXA | L(3),1 INITIALIZE XX | F2524730 | ||
06475 | 0 53400 1 05131 | 2497 | LXA | L(3),1 XX POSITION TO S1 | F2524970 | ||
06550 | 0 53400 1 05131 | 2542 | LXA | L(3),1 SEE IF | F2525420 | ||
06577 | 0 53400 1 05131 | 2565 | LXA | L(3),1 | F2525650 | ||
07116 | 0 53400 1 05131 | 2776 | LXA | L(3),1 OF | F2527760 | ||
07173 | 0 53400 2 05131 | 2831 | LXA | L(3),2 SENSE LIGHT INDEX. | F2528310 | ||
07247 | 0 40000 0 05131 | 2882 | ADD | L(3) OR0 TABLE. | F2528820 | ||
07253 | 0 53400 1 05131 | 2886 | LXA | L(3),1 | F2528860 |
05130 | 0 00000 0 00004 | 936 | L(4) | 4 | F2509370 |
04362 | 0 53400 1 05130 | 541 | CIT04 | LXA | L(4),1 PROCEED TO NEW | F2505360 | |
04573 | −0 32000 0 05130 | 703 | ANA | L(4) N1 | F2507040 | ||
05156 | 0 53400 1 05130 | 958 | INST2 | LXA | L(4),1 | F2509590 | |
05474 | −0 32000 0 05130 | 1975 | ANA | L(4) DORC, OR DOSUB. | F2519750 | ||
06132 | 0 53400 1 05130 | 2261 | LXA | L(4),1 | F2522610 | ||
06162 | 0 53400 1 05130 | 2285 | LXA | L(4),1 | F2522850 | ||
06166 | 0 53400 1 05130 | 2289 | AC228I | LXA | L(4),1 | F2522890 | |
06430 | 0 53400 1 05130 | 2458 | AOR040 | LXA | L(4),1 COMPILE LDQ,MPY, STD. | F2524580 | |
06641 | 0 53400 1 05130 | 2599 | LXA | L(4),1 | F2525990 | ||
06661 | 0 53400 1 05130 | 2615 | EOR018 | LXA | L(4),1 COMPILE LLS, SUB, | F2526150 | |
06725 | 0 53400 1 05130 | 2655 | LXA | L(4),1 STO C(OR0+12) | F2526550 | ||
06770 | 0 53400 1 05130 | 2690 | LXA | L(4),1 ALS 17 | F2526900 | ||
07023 | 0 53400 1 05130 | 2717 | LXA | L(4),1 | F2527170 | ||
07041 | 0 53400 1 05130 | 2731 | LXA | L(4),1 MPY G, | F2527310 | ||
07245 | 0 40000 0 05130 | 2880 | ADD | L(4) CALCULATES ADDRESS | F2528800 |
05132 | 0 00000 0 00005 | 938 | L(5) | 5 | F250939D |
03765 | 0 53400 2 05132 | 259 | LXA | L(5),2 INITIALIZE DRUM READING ERROR COUNTER. | F2502530 | ||
04012 | 0 53400 1 05132 | 281 | TDOTG | LXA | L(5),1 S CALLED BY MAN TO READ IN A NEST OF DOTAG ENTRIES. | F2502750 | |
04030 | 0 53400 1 05132 | 297 | TTG01 | LXA | L(5),1 INITIALIZE TAPE ERROR COUNTER. | F2502920 | |
04237 | 0 53400 1 05132 | 451 | LXA | L(5),1 | F2504460 | ||
04605 | 0 53400 4 05132 | 717 | LXA | L(5),4 | F2507180 | ||
06307 | −0 32000 0 05132 | 1575 | ANA | L(5) AND STORED. | F2515760 |
05106 | 0 00000 0 00006 | 918 | L(6) | 6 | F2509190 |
05531 | 0 53400 1 05106 | 2004 | LXA | L(6),1 COUNTER FOR COMPILING | F2520040 | ||
05545 | 0 53400 1 05106 | 2016 | LXA | L(6),1 COMPILING COUNTER. | F2520160 | ||
06103 | 0 53400 1 05106 | 2238 | LXA | L(6),1 IN APPROP. OR0 LOCS | F2522380 | ||
06647 | 0 53400 1 05106 | 2605 | EOR008 | LXA | L(6),1 X NOT CONST., | F2526050 | |
07055 | 0 53400 1 05106 | 2743 | LXA | L(6),1 TES, COMPILE | F2527430 | ||
07172 | 0 53400 1 05106 | 2830 | COSE | LXA | L(6),1 COEFFICIENT INDEX. | F2528300 |
05076 | 0 00000 0 00007 | 910 | L(7) | 7 | F2509110 |
04562 | −0 32000 0 05076 | 694 | ANA | L(7) IS STORED IN N1SBX. | F2506900 | ||
04744 | −0 32000 0 05076 | 819 | ANA | L(7) CONSTANT. | F2508200 | ||
05551 | −0 32000 0 05076 | 1215 | ANA | L(7) DUPES, | F2512160 | ||
06250 | −0 32000 0 05076 | 1541 | ANA | L(7) IF THERE ARE DUPES | F2515420 | ||
06367 | −0 32000 0 05076 | 1628 | ANA | L(7) BLOCK NOS. 0-5 WHICH | F2516290 | ||
06622 | −0 32000 0 05076 | 1804 | ANA | L(7) | F2518050 | ||
05402 | −0 32000 0 05076 | 1917 | ANA | L(7) A RELCON OR BOTH ARE | F2519170 | ||
05405 | −0 32000 0 05076 | 1920 | ANA | L(7) ORDEDO. | F2519200 | ||
06040 | −0 32000 0 05076 | 2203 | ANA | L(7) CALLPROPER ROUTINE | F2522030 | ||
06517 | −0 32000 0 05076 | 2516 | ANA | L(7) | F2525160 | ||
07242 | −0 32000 0 05076 | 2877 | ANA | L(7) | F2528770 |
510 | ************************************************************* | F2505050 | |||||
511 | LOC0 ASSIGNS A RELATIVE LOCATION (INSTRUCTION NUMBER), AND UP | F2505060 | |||||
512 | DATES A COUNTER FOR THE NEXT ASSIGNMENT. | F2505070 | |||||
04332 | 0 50000 0 05222 | 513 | LOC0 | CLA | LOCIND | F2505080 |
04347 | 0 07400 2 04332 | 530 | TSX | LOC0,2 | F2505250 |
1564 | ************************************************************* | F2515650 | |||||
1565 | PRES DETERMINES THE TXI BLOCK NUMBER FOR A GIVEN TAG AND PUTS | F2515660 | |||||
1566 | IT IN INDEX REGISTER B. | F2515670 | |||||
06277 | 0 50000 0 03653 | 1567 | PRES | CLA | TAG4 FIRST THE TEST | F2515680 |
05313 | 0 07400 4 06277 | 1056 | TSX | PRES,4 | F2510570 |
383 | ************************************************************* | F2503780 | |||||
384 | SCAN SCANS TAGTAG FOR THE FIRST ENTRY THAT IS MODIFIED BY A D | F2503790 | |||||
385 | DO WHOSE ALLPHA IS LESS THAT THE CURRENT DOTAG BETA. | F2503800 | |||||
386 | THIS TAG IS CALLED RTXTGX. | F2503810 | |||||
04153 | 0 53400 1 05121 | 387 | SCAN | LXA | LMXTG,1 COMPARE B WITH DOFOR | F2503820 |
05304 | 0 07400 4 04153 | 1049 | TSX | SCAN,4 | F2510500 | ||
05312 | 0 07400 4 04153 | 1861 | TSX | SCAN,4 SCAN AND FIND PICK | F2518610 |
05143 | 0 00000 0 00000 | 947 | SMSK | F2509480 |
06327 | 0 60100 0 05143 | 1591 | STO | SMSK FIRST 11 ENTRIES ARE | F2515920 | ||
06332 | 0 60100 0 05143 | 1594 | STO | SMSK AFTER SEARCHING LAST | F2515950 | ||
06340 | 0 60100 0 05143 | 1600 | STO | SMSK | F2516010 | ||
06346 | 0 60100 0 05143 | 1606 | STO | SMSK | F2516070 | ||
06360 | −0 32000 0 05143 | 1621 | ANA | SMSK PRESCR1BED BLOCKS OF | F2516220 |
03647 | 0 00000 0 00000 | 169 | TAG2 | F2501630 |
04206 | 0 40200 2 03652 | 419 | SUB | TAG2+3,2 OF THE CURRENT DO. | F2504140 | ||
04216 | −0 63400 2 03647 | 430 | SXD | TAG2,2 | F2504250 | ||
04220 | 0 62200 0 03650 | 432 | STD | TAG2+1 | F2504270 | ||
04222 | −0 63400 2 03651 | 434 | SXD | TAG2+2,2 | F2504290 | ||
04373 | −0 53400 1 03647 | 552 | SCLMN1 | LXD | TAG2,1 S1 INDEX QUANTITY. | F2505470 | |
04374 | −0 53400 2 03650 | 553 | LXD | TAG2+1,2 S2 INDEX QUANTITY. | F2505480 | ||
04400 | −0 53400 2 03651 | 557 | SCLMN3 | LXD | TAG2+2,2 QUANTITIES OF | F2505520 | |
04412 | 0 50000 1 03652 | 570 | TELC05 | CLA | TAG2+3,1 SEQUENCE. PUT S IN XB T0 PREPARE | F2505650 | |
04503 | −0 53400 4 03647 | 641 | CSXD4 | LXD | TAG2,4 BLOCKS B,C, LOAD S1 INDEX. | F2506370 | |
04540 | −0 63400 2 03647 | 673 | SXD | TAG2,2 S1 INDEX IN TAG2. | F2506690 | ||
04543 | −0 63400 2 03650 | 676 | SXD | TAG2+1,2 S2 INDEX IN TAG2+1. | F2506720 | ||
04545 | −0 63400 2 03651 | 678 | SXD | TAG2+2,2 S3 INDEX IN TAG2+2. | F2506740 | ||
04553 | 0 50000 2 03652 | 684 | CLA | TAG2+3,2 | F2506800 | ||
04566 | 0 50000 1 03652 | 698 | N1S02 | CLA | TAG2+3,1 A CONATAINS POSIND. | F2506990 | |
04672 | 0 50000 1 03652 | 774 | CLA | TAG2+3,1 IF S IS NOT | F2507750 | ||
05437 | −0 53400 2 03647 | 1141 | LXD | TAG2,2 BLOCK B FIRST DETERMINE | F2511420 | ||
05452 | −0 53400 2 03647 | 1152 | LXD | TAG2,2 | F2511530 | ||
05470 | −0 53400 2 03647 | 1166 | LXD | TAG2,2 ISOLATE | F2511670 | ||
05477 | −0 53400 2 03647 | 1173 | LXD | TAG2,2 COMPUTE | F2511740 | ||
05527 | −0 53400 2 03650 | 1197 | LXD | TAG2+1,2 BLOCK D CONSIDERED. | F2511980 | ||
05537 | −0 53400 2 03650 | 1205 | LXD | TAG2+1,2 CONSIDER CENTER SUBSCRIPT | F2512060 | ||
05563 | −0 53400 2 03650 | 1225 | RTX118 | LXD | TAG2+1,2 COMPUTE XN3G | F2512260 | |
05602 | −0 53400 2 03647 | 1240 | LXD | TAG2,2 PUT N BITS FOR S1 | F2512410 | ||
05606 | −0 53400 2 03650 | 1244 | LXD | TAG2+1,2 FOR VARIABLE DECREMENT | F2512450 | ||
05615 | −0 53400 2 03650 | 1251 | LXD | TAG2+1,2 SET UP CENTER SUBSCRIPT | F2512520 | ||
05630 | −0 53400 2 03647 | 1262 | LXD | TAG2,2 THREE OF BLOCK E. | F2512630 | ||
05661 | −0 53400 2 03647 | 1287 | LXD | TAG2,2 PLACE LOCATION OF SXD | F2512880 | ||
06255 | 0 50000 1 03652 | 1546 | CLA | TAG2+3,1 SELECT DOTAG WHICH | F2515470 | ||
06530 | −0 53400 2 03647 | 1741 | LXD | TAG2,2 BLOCKS D, E SHIFT LEFT 12. | F2517420 | ||
06534 | −0 53400 2 03650 | 1745 | EDCB10 | LXD | TAG2+1,2 BLOCK D,E USE S2 DOTAG. | F2517460 | |
06563 | −0 53400 1 03650 | 1771 | LXD | TAG2+1,1 PLACE LOC. OF SXD INST. | F2517720 | ||
06571 | −0 53400 1 03647 | 1777 | LXD | TAG2,1 PLACE LOC. FOR SXD OF | F2517780 | ||
05460 | −0 53400 1 03647 | 1963 | AC048I | LXD | TAG2,1 IS/LATE N1. | F2519630 | |
05476 | −0 53400 2 03647 | 1977 | LXD | TAG2,2 YES, IS IT A DOSUB. | F2519770 | ||
05571 | 0 50000 1 03652 | 2036 | CLA | TAG2+3,1 DUPES. | F2520360 | ||
05575 | 0 34000 1 03652 | 2040 | CAS | TAG2+3,1 SKIP DUPES | F2520400 | ||
06075 | 0 50000 1 03652 | 2232 | CLA | TAG2+3,1 ISOLATE | F2522320 | ||
06117 | 0 50000 1 03652 | 2250 | CLA | TAG2+3,1 COMPILE INSTRUCTIONS | F2522500 | ||
06173 | 0 50000 1 03652 | 2294 | CLA | TAG2+3,1 DOES | F2522940 | ||
06325 | 0 50000 1 03652 | 2391 | CLA | TAG2+3,1 LOCATION IS | F2523910 | ||
06551 | 0 50000 1 03652 | 2543 | CLA | TAG2+3,1 X FOR | F2525430 | ||
06703 | 0 50000 1 03652 | 2637 | CLA | TAG2+3,1 | F2526370 | ||
06737 | 0 50000 1 03652 | 2665 | PCI | CLA | TAG2+3,1 XX POSITION | F2526650 | |
07114 | 0 50000 1 03652 | 2774 | CLA | TAG2+3,1 IS | F2527740 | ||
07156 | 0 50000 2 03651 | 2815 | CLA | TAG2+2,2 DEFINED BY DO, CHECK | F2528150 | ||
07211 | 0 50000 2 03652 | 2848 | TESTL0 | CLA | TAG2+3,2 INITIALIZE INDEX | F2528480 | |
07226 | 0 50000 1 03652 | 2863 | PXOR0 | CLA | TAG2+3,1 IF X IS | F2528630 | |
M | 03650 | 3106 | TAG21 | SYN | TAG2+1 | F2531060 | |
M | 03651 | 3107 | TAG22 | SYN | TAG2+2 | F2531070 |
03652 | 172 | TAG3 | BSS | 1 | F2501660 |
04224 | 0 60100 0 03652 | 436 | STO | TAG3 | F2504310 | ||
04507 | 0 50000 0 03652 | 645 | CLA | TAG3 NOT KNOWN. | F2506410 | ||
04547 | 0 60100 0 03652 | 680 | STO | TAG3 TAG NAME IN TAG3. | F2506760 | ||
05320 | −0 53400 1 03652 | 1062 | RTX020 | LXD | TAG3,1 DECREMENT IS CONSTANT. | F2510630 | |
05322 | 0 50000 0 03652 | 1064 | CLA | TAG3 OR RESET TAG. | F2510650 | ||
05327 | 0 50000 0 03652 | 1069 | RTX30 | CLA | TAG3 IF RESET TAG, PUT TAG | F2510700 | |
05423 | 0 50000 0 03652 | 1129 | CLA | TAG3 COMPILE | F2511300 | ||
05443 | 0 50000 0 03652 | 1145 | CLA | TAG3 DECREMENT IS CONSTANT. | F2511460 | ||
05474 | 0 50000 0 03652 | 1170 | CLA | TAG3 DECREMENT IS CONSTANT. | F2511710 | ||
05533 | 0 50000 0 03652 | 1201 | CLA | TAG3 DECREMENT IS CONSTANT. | F2512020 | ||
05612 | 0 50000 0 03652 | 1248 | CLA | TAG3 CONSTANT CASE, LAY | F2512490 | ||
05677 | 0 50000 0 03652 | 1301 | CLA | TAG3 COMPARE TAG NAME | F2513020 | ||
06015 | −0 53400 1 03652 | 1379 | RTX200 | LXD | TAG3,1 | F2513800 | |
06021 | 0 50000 0 03652 | 1383 | RTX201 | CLA | TAG3 PREPARE FOR | F2513840 | |
06073 | −0 53400 2 03652 | 1425 | LXD | TAG3,2 | F2514260 | ||
06075 | 0 50000 0 03652 | 1427 | CLA | TAG3 NEW TAG, DETERMINE | F2514280 | ||
06101 | 0 50000 0 03652 | 1431 | CLA | TAG3 YES, TSX | F2514320 | ||
06103 | 0 50000 0 03652 | 1433 | RTX229 | CLA | TAG3 CURRENT TAG | F2514340 | |
06243 | 0 50000 0 03652 | 1536 | TETG | CLA | TAG3 ISOLATE | F2515370 | |
06473 | 0 50000 0 03652 | 1703 | CLA | TAG3 TAG WD. THIS IS DOEN | F2517040 | ||
06627 | 0 50000 0 03652 | 1813 | CLA | TAG3 IN DECREMENT FOR THE | F2518140 | ||
06634 | 0 50000 0 03652 | 1820 | CILNAM | CLA | TAG3 THIS ROUTINE | F2518210 | |
05324 | −0 53400 1 03652 | 1871 | LXD | TAG3,1 IF IT IS PROCEED TO | F2518710 | ||
05326 | 0 50000 0 03652 | 1873 | CLA | TAG3 - NO CURRENT TG, USE NEW TG. | F2518730 | ||
05334 | 0 50000 0 03652 | 1879 | AC016I | CLA | TAG3 RESET TYPE ENTRY | F2518790 | |
05340 | 0 50000 0 03652 | 1883 | AC018 | CLA | TAG3 CURRENT TAG VALID, LAY | F2518830 | |
05604 | 0 50000 0 03652 | 2047 | CLA | TAG3 AND | F2520470 | ||
05705 | 0 50000 1 03652 | 2112 | CLA | TAG3,1 | F2521120 | ||
07133 | 0 50000 0 03652 | 2792 | CLA | TAG3 TAG WORD OF COMPILED | F2527920 |
03653 | 173 | TAG4 | BSS | 1 | F2501670 |
04226 | 0 60100 0 03653 | 438 | STO | TAG4 | F2504330 | ||
04551 | 0 60100 0 03653 | 682 | STO | TAG4 ADTG WD4 IN TAG4. | F2506780 | ||
04560 | 0 50000 0 03653 | 692 | N1STET | CLA | TAG4 | F2506880 | |
05346 | 0 50000 0 03653 | 1084 | CLA | TAG4 . TEST FOR DUPLICATE | F2510840 | ||
05413 | 0 50000 0 03653 | 1121 | RTX69 | CLA | TAG4 TEST FOR SYM8OL | F2511220 | |
05510 | 0 50000 0 03653 | 1182 | CLA | TAG4 | F2511830 | ||
05547 | 0 50000 0 03653 | 1213 | CLA | TAG4 TEST | F2512140 | ||
05723 | 0 50000 0 03653 | 1321 | CLA | TAG4 LOOK AT | F2513220 | ||
06010 | 0 50000 0 03653 | 1374 | CLA | TAG4 CHECK FOR DORC. | F2513750 | ||
06114 | 0 50000 0 03653 | 1442 | CLA | CLA | TAG4 POSITION IS LEFT OR CENTER, | F2514430 | |
06116 | −0 50100 0 03653 | 1444 | ORA | TAG4 CARRY BITS FOR LEFT | F2514450 | ||
06153 | 0 56000 0 03653 | 1473 | LDQ | TAG4 TEST | F2514740 | ||
06160 | 0 56000 0 03653 | 1478 | LDQ | TAG4 TEST DUPE | F2514790 | ||
06246 | 0 50000 0 03653 | 1539 | CLA | TAG4 ISOLATE DUPES INDICATORS | F2515400 | ||
06274 | −0 60200 0 03653 | 1561 | ORS | TAG4 SUBSCRIPT. | F2515620 | ||
06277 | 0 50000 0 03653 | 1567 | PRES | CLA | TAG4 FIRST THE TEST | F2515680 | |
06305 | −0 50100 0 03653 | 1573 | ORA | TAG4 IN THE MQ WHILE THE | F2515740 | ||
05400 | 0 50000 0 03653 | 1915 | AC030 | CLA | TAG4 VARIABLE CASE, THE BITS FOR | F2519150 | |
05404 | 0 50000 0 03653 | 1919 | CLA | TAG4 WORDS, DEFDQ, RELCO, AND | F2519190 | ||
05445 | −0 32000 0 03653 | 1952 | ANA | TAG4 COEFS, 011 RELCONS, 100 CUPE. | F2519520 | ||
05745 | 0 50000 0 03653 | 2144 | CLA | TAG4 CHECK SUSBIT | F2521440 | ||
06013 | 0 50000 0 03653 | 2182 | CLA | TAG4 POSITION | F2521820 | ||
06017 | 0 50000 0 03653 | 2186 | CLA | TAG4 NO, BLOCK A. | F2521860 | ||
06354 | 0 56000 0 03653 | 2414 | LDQ | TAG4 | F2524140 | ||
06375 | 0 56000 0 03653 | 2431 | LDQ | TAG4 CHECK DUPES | F2524310 | ||
06411 | 0 50000 0 03653 | 2443 | AOR022 | CLA | TAG4 | F2524430 | |
06462 | 0 50000 0 03653 | 2486 | CLA | TAG4 TEST | F2524860 | ||
06515 | 0 50000 0 03653 | 2514 | CLA | TAG4 | F2525140 |
563 | ************************************************************* | F2505580 | |||||
564 | TELC MONITORS THE COMPUTING OF THE LOAD PORTION OF THE TEST | F2505590 | |||||
565 | DECREMENT. | F2505600 | |||||
04406 | 0 53400 1 05131 | 566 | TELC | LXA | L(3),1 | F2505610 |
06031 | 0 07400 4 04410 | 1391 | TSX | TELC+2,4 COMPUTES LOAD VALUE FOR | F2513920 | ||
05346 | 0 07400 4 04406 | 1889 | TSX | TELC,4 COMPUTE LOAD | F2518890 | ||
05644 | 0 07400 4 04410 | 2079 | TSX | TELC+2,4 | F2520790 |
1534 | TETG DETERMINES FOR WHICH DOS A GIVEN TAG IS A TEST. THIS | F2515330 | |||||
1535 | INFORMATION IS RECORDED IN TAG4. | F2515360 | |||||
06243 | 0 50000 0 03652 | 1536 | TETG | CLA | TAG3 ISOLATE | F2515370 |
05312 | 0 07400 4 06243 | 1055 | TSX | TETG,4 PLACE TEST BITS IN TAG WORD. | F2510560 | ||
06275 | 2 00001 1 06255 | 1562 | TETG5 | TIX | TETG+10,1,1 DEAL WITH NEXT SUBSCRIPT, | F2515630 |
06507 | −0 60200 2 02646 | 1720 | TGA8 | ORS | MXTGA,2 ADDRESS IS ORIGIN PLUS MAX | F2517210 |
05715 | 0 62100 0 06507 | 1315 | STA | TGA8 | F2513160 | ||
05750 | 0 62100 0 06507 | 1342 | STA | TGA8 | F2513430 | ||
06214 | 0 62100 0 06507 | 1506 | STA | TGA8 | F2515070 | ||
06221 | 0 62100 0 06507 | 1511 | STA | TGA8 END OF BETA CYCLE8 RETURN TO 1 PLUS | F2513120 |
424 | ************************************************************* | F2504190 | |||||
425 | TGFM TAKES A TAG ENTRY AND STORES ITS INFORMATION INTO | F2504200 | |||||
426 | WORKING TGTG. | F2504210 | |||||
04213 | 0 50000 1 02336 | 427 | TGFM | CLA | MXTGTG,1 | F2504220 |
04174 | 0 07400 4 04213 | 407 | TSX | TGFM,4 | F2504020 | ||
05771 | 0 07400 4 04213 | 1359 | TSX | TGFM,4 FILL OUT TAG WORDS. | F2513600 |
05244 | 1012 | VCTR | BSS | 1 | F2510130 |
03704 | 0 60100 0 05244 | 207 | STO | VCTR INSTRUCTION COUNTER | F2502010 | ||
04340 | 0 50000 0 05244 | 519 | CLA | VCTR | F2505140 | ||
04343 | 0 60100 0 05244 | 522 | STO | VCTR - | F2505170 | ||
05257 | −0 53400 1 05244 | 1028 | LXD | VCTR,1 VARIABLE CTR. LAST BETA. | F2510290 | ||
05267 | 0 60100 0 05244 | 1036 | STO | VCTR VCTR AND | F2510370 | ||
06224 | 0 50000 0 05244 | 1517 | CILV | CLA | VCTR THIS ROUTINE UPDATES | F2515180 | |
06227 | 0 60100 0 05244 | 1520 | STO | VCTR IT IS CALLED WHEN | F2515210 | ||
05257 | 0 60100 0 05244 | 1834 | STO | VCTR DOTAG ALPHA IS LOCATION. | F2518340 |
2872 | ************************************************************* | F2528720 | |||||
2873 | XOR0 FILLS OUT OR0 FOR N1, N2, N3, GIVEN DO IN B AND POS IN A | F2528730 | |||||
07237 | −0 63400 4 07260 | 2874 | XOR0 | SXD | XOR032,4 | F2528740 |
06102 | 0 07400 4 07237 | 2237 | TSX | XOR0,4 NO, PLACE N SYMBOLS | F2522370 | ||
07232 | −0 10000 0 07237 | 2867 | TNZ | XOR0 ACC. | F2528670 |
05104 | −370000000000 | 916 | 6ONES | OCT | 770000000000 | F2509170 |
04677 | −0 32000 0 05104 | 779 | ANA | 6ONES | F2507800 | ||
04714 | −0 32000 0 05104 | 792 | ANA | 6ONES ASSIGN FIXCON SYMBOL | F2507930 | ||
04735 | −0 32000 0 05104 | 809 | ANA | 6ONES | F2508100 | ||
04753 | −0 32000 0 05104 | 826 | ANA | 6ONES CLA | F2508270 | ||
05002 | −0 32000 0 05104 | 849 | ANA | 6ONES | F2508500 | ||
05030 | −0 32000 0 05104 | 871 | ANA | 6ONES AND PREPARE | F2508720 | ||
06004 | −0 32000 0 05104 | 1370 | ANA | 6ONES | F2513710 | ||
05365 | −0 32000 0 05104 | 1904 | ANA | 6ONES | F2519040 | ||
05561 | −0 32000 0 05104 | 2028 | ANA | 6ONES | F2520280 | ||
05614 | −0 32000 0 05104 | 2055 | ANA | 6ONES 18 N2 CONSTANT. | F2520550 | ||
05652 | −0 32000 0 05104 | 2085 | ANA | 6ONES AND COMPILE | F2520850 | ||
06142 | −0 32000 0 05104 | 2269 | ANA | 6ONES FOR | F2522690 | ||
06154 | −0 32000 0 05104 | 2279 | ANA | 6ONES | F2522790 | ||
06216 | −0 32000 0 05104 | 2313 | ANA | 6ONES THIS | F2523130 | ||
06620 | −0 32000 0 05104 | 2582 | ANA | 6ONES MPY L(C1., | F2525820 | ||
06631 | −0 32000 0 05104 | 2591 | ANA | 6ONES | F2525910 | ||
07007 | −0 32000 0 05104 | 2705 | ANA | 6ONES ALS17 | F2527050 | ||
07017 | −0 32000 0 05104 | 2713 | ANA | 6ONES | F2527130 | ||
07325 | −0 32000 0 05104 | 2933 | ANA | 6ONES WORD. | F2529330 | ||
07334 | −0 50000 0 05104 | 2940 | CAL | 6ONES IN CIL02. | F2529400 |
254 | ************************************************************ | F2502412 | |||||
255 | ABDRM IS CALLED BY MAN TO WRITE THE PROPEER DRUM STATE8 ALPHA | F2502400 | |||||
256 | OR BETA, INTO CORES WHEN NECESSARY. | F2502500 | |||||
03763 | −0 63400 4 05223 | 257 | ABDRM | SXD | ERORBX,4 STORE LINKAGE | F2ZA1510 |
03715 | 0 07400 4 03763 | 216 | MAN35 | TSX | ABDRM,4 NO. READ STATE FROM DRUM | F2502100 |
05443 | 0 07400 4 07172 | 1950 | AC048 | TSX | COSE,4 TEST COEFFS GREATER THAN 1. | F2519500 |
05430 | 0 02000 0 05443 | 1939 | TRA | AC048 S3 NOT DEFINED. | F2519390 | ||
05450 | −3 00000 1 05452 | 1955 | TXL | AC048+7,1,0 IF S2 DEF BY DO, | F2519550 | ||
05453 | −3 00000 1 05455 | 1958 | TXL | AC048+10,1,0 OR N1S OF S2 AND S3. | F2519580 |
05743 | −0 53400 1 05207 | 2142 | AC160 | LXD | AX,1 | F2521420 |
05573 | −3 00000 2 05743 | 2038 | TXL | AC160,2,0 POS. NOT M0D. BY DO. | F2520380 | ||
05577 | 0 02000 0 05743 | 2042 | TRA | AC160 RIGHTMOST. | F2520420 | ||
05610 | 0 02000 0 05743 | 2051 | TRA | AC160 NOT A TEST TAG. | F2520510 | ||
05612 | 0 02000 0 05743 | 2053 | TRA | AC160 NOT A TEST TAG. | F2520530 | ||
05632 | 0 10000 0 05743 | 2069 | TZE | AC160 NO, TAKE NEXT SUB. | F2520690 |
06060 | −0 53400 1 05207 | 2219 | AC190 | LXD | AX,1 IF ALL SUBS HAVE NOT BEEN | F2522190 |
06006 | 0 10000 0 06060 | 2177 | TZE | AC190 NONE, AC190. | F2521770 | ||
06034 | 0 02000 0 06060 | 2199 | TRA | AC190 | F2521990 | ||
06044 | 0 02000 0 06060 | 2207 | TRA | AC190 | F2522070 | ||
06047 | 0 02000 0 06060 | 2210 | TRA | AC190 | F2522100 | ||
06052 | 0 02000 0 06060 | 2213 | TRA | AC190 | F2522130 | ||
06055 | 0 02000 0 06060 | 2216 | TRA | AC190 | F2522160 | ||
06057 | 0 02000 0 06060 | 2218 | TRA | AC190 | F2522180 |
06231 | 0 50000 0 05157 | 2324 | AC234 | CLA | INST3 RESET MODIFIED AOR0. | F2523240 |
06134 | 0 02000 0 06231 | 2263 | TRA | AC234 EXIT TIX INITIAL1ZATION. | F2522630 | ||
06165 | 0 02000 0 06231 | 2288 | TRA | AC234 EXIT TIX INITIALIZATION, | F2522880 | ||
06171 | 0 02000 0 06231 | 2292 | TRA | AC234 EXIT TIX INITIALIZATION. | F2522920 | ||
06210 | 0 02000 0 06231 | 2307 | TRA | AC234 EXIT TIX INITIALIZATION. | F2523070 | ||
06225 | 0 02000 0 06231 | 2320 | TRA | AC234 EXIT TIX INITIALIZATION. | F2523200 |
06237 | 0 02000 0 05315 | 2330 | AC240 | TRA | AC010 | F2523300 |
05316 | 0 02000 0 06240 | 1865 | TRA | AC240+1 END OF DO FOR DOTAG. | F2518650 | ||
05775 | 0 10000 0 06237 | 2168 | TZE | AC240 NONE, AC240. | F2521680 | ||
06241 | 1 00004 2 06242 | 2332 | TXI | AC240+3,2,4 | F2523320 | ||
06244 | 0 62100 0 06237 | 2335 | STA | AC240 MODIFY RETURN FOR ADTG ENTRY. | F2523350 | ||
06254 | 0 62100 0 06237 | 2343 | STA | AC240 INSTRUCTIONS | F2523430 |
05141 | +000000077777 | 945 | ADMSK | OCT | 77777 | F2509460 |
04450 | −0 32000 0 05141 | 607 | ANA | ADMSK ISOLATE X QUANTITY. | F2506030 | ||
05405 | −0 32000 0 05141 | 1115 | ANA | ADMSK FOR TGA ROUTINE. | F2511160 | ||
05424 | −0 32000 0 05141 | 1130 | ANA | ADMSK STORE | F2511310 | ||
05663 | −0 32000 0 05141 | 1289 | ANA | ADMSK AND POSITION. (LEFT SUB DO). | F2512900 | ||
05736 | −0 32000 0 05141 | 1332 | ANA | ADMSK AND ENTRY IS MADE | F2513330 | ||
06141 | −0 32000 0 05141 | 1463 | ANA | ADMSK MUST BE STORED IN TGA WORD | F2514640 | ||
06230 | −0 32000 0 05141 | 1521 | ANA | ADMSK WE NEED A LOCATION | F2515220 | ||
06244 | −0 32000 0 05141 | 1537 | ANA | ADMSK TAG NAME. | F2515380 | ||
06524 | −0 32000 0 05141 | 1737 | ANA | ADMSK | F2517380 | ||
06551 | −0 32000 0 05141 | 1761 | ANA | ADMSK APPENDED TAG WORD. | F2517620 | ||
06564 | −0 32000 0 05141 | 1772 | ANA | ADMSK INTO DOTAG ENTRY FOR | F2517730 | ||
06572 | −0 32000 0 05141 | 1778 | ANA | ADMSK REMAINING TWO BLOCKS. | F2517790 | ||
06630 | −0 32000 0 05141 | 1814 | ANA | ADMSK RELATIVE PART, | F2518150 | ||
06635 | −0 32000 0 05141 | 1821 | ANA | ADMSK ENTERS THE | F2518220 | ||
06330 | −0 32000 0 05141 | 2394 | ANA | ADMSK WITH PROPER BETA. | F2523940 | ||
06706 | −0 32000 0 05141 | 2640 | ANA | ADMSK FORM LOCATION | F2526400 | ||
07134 | −0 32000 0 05141 | 2793 | ANA | ADMSK INSTRUCGIN. | F2527930 | ||
07222 | −0 32000 0 05141 | 2857 | ANA | ADMSK LOCATION | F2528570 | ||
07234 | −0 32000 0 05141 | 2869 | ANA | ADMSK | F2528690 |
04517 | 1 77774 1 04520 | 656 | ADTGS | TXI | ADTGS+1,1,−4 | F2506520 |
04517 | 1 77774 1 04520 | 656 | ADTGS | TXI | ADTGS+1,1,−4 | F2506520 | |
04530 | 0 02000 0 04517 | 665 | TRA | ADTGS OF THE CURRENT DO | F2506610 | ||
04532 | 0 02000 0 04517 | 667 | TRA | ADTGS NOT IN RANGE, SELECT NEXT | F2506630 | ||
04556 | 3 00002 2 04517 | 687 | TXH | ADTGS,2,2 NOT MOD BY DO, TAKE NEXT SUBSCRIPT | F2506830 |
92 | ************************************************************ | F2300930 | |||||
93 | BINIT WRITES A SELECTED STATE, ALPHA OR BETA, ON DRUM2 OR 1 | F2500940 | |||||
94 | RESPECTIVELY, | F2500930 | |||||
00132 | 0 50000 0 00146 | 95 | BINIT | CLA | L0 | F2500960 |
00063 | 0 07400 4 00132 | 51 | TSX | BINIT,4 WRITE BLOCK A ON DRUM | F2500520 | ||
00067 | 0 07400 4 00132 | 57 | TSX | BINIT,4 PLACE BLOCK B ON DRUM | F2500580 |
05154 | +000000100000 | 956 | BIT20 | OCT | 100000 | F2509570 |
06054 | 0 50000 0 05154 | 1410 | CLA | BIT20 TEST VAR1ABLE INDICATOR. | F2514110 | ||
05617 | −0 32000 0 05154 | 2058 | ANA | BIT20 GO TO AC138 +4 | F2520580 | ||
05641 | −0 32000 0 05154 | 2076 | ANA | BIT20 HAVE VARIABLE DECREMENT. | F2520760 | ||
05710 | −0 32000 0 05154 | 2115 | ANA | BIT20 | F2521150 |
05176 | 974 | CIL00 | BSS | 1 | F2509750 |
04336 | 0 50000 0 05176 | 517 | CLA | CIL00 TO ZERO. | F2505120 | ||
04341 | 0 60100 0 05176 | 520 | STO | CIL00 UPDATE VCTR. | F2505150 | ||
04363 | 0 50000 1 05202 | 542 | CIT05 | CLA | CIL00+4,1 INST INTO BUFFER. | F2505370 | |
04723 | 0 60100 0 05176 | 799 | STO | CIL00 | F2508000 | ||
04762 | 0 60100 0 05176 | 833 | STO | CIL00 ZERO LOCATION. | F2508340 | ||
05007 | 0 60100 0 05176 | 854 | STO | CIL00 | F2508550 | ||
05271 | 0 60100 0 05176 | 1038 | STO | CIL00 CIL BUFFER | F2510390 | ||
05404 | 0 50000 0 05176 | 1114 | CLA | CIL00 PREPARE VCTR LOCATION | F2511150 | ||
05422 | 0 60100 0 05176 | 1128 | STO | CIL00 | F2511290 | ||
05662 | 0 50000 0 05176 | 1288 | CLA | CIL00 INSTRUCTION IN PROPER DOTAG ENTRY | F2512890 | ||
05735 | 0 50000 0 05176 | 1331 | CLA | CIL00 INSTRUCTION IS COMPILED | F2513320 | ||
06057 | 0 50000 0 05176 | 1413 | CLA | CIL00 STORE LOCATION | F2514140 | ||
06140 | 0 50000 0 05176 | 1462 | CLA | CIL00 WHEN DECREMENT IS VARIABLE, LOCATION | F2514630 | ||
06225 | 0 60100 0 05176 | 1518 | STO | CIL00 VCTR AND | F2515190 | ||
06466 | 0 60100 0 05176 | 1698 | STO | CIL00 | F2516990 | ||
06523 | 0 50000 0 05176 | 1736 | CLA | CIL00 | F2517370 | ||
06550 | 0 50000 0 05176 | 1760 | CLA | CIL00 MAKE LOCATION ENTRY INTO | F2517610 | ||
06562 | 0 50000 0 05176 | 1770 | CLA | CIL00 BLOCK D OR E. | F2517710 | ||
06570 | 0 50000 0 05176 | 1776 | BCDE5 | CLA | CIL00 BLOCK B OR C . | F2517770 | |
06625 | 0 50000 0 05176 | 1811 | CIL23 | CLA | CIL00 THIS ROUTINE PLACES TAG IN | F2518120 | |
05265 | 0 60100 0 05176 | 1840 | STO | CIL00 IN | F2518400 | ||
05273 | 0 36100 0 05176 | 1846 | ACL | CIL00 SXDTX | F2518460 | ||
05277 | 0 70000 0 05176 | 1850 | CPY | CIL00 DRUM 1. | F2518500 | ||
05305 | 0 60100 0 05176 | 1856 | STO | CIL00 TO ALL ONES AND | F2518560 | ||
05375 | 0 60100 0 05176 | 1912 | STO | CIL00 COMPILED FOR AN ALPHA. | F2519120 | ||
05670 | 0 60100 0 05176 | 2099 | STO | CIL00 LATER BY STD. | F2520990 | ||
T | 05740 | −0 63400 0 05176 | 2139 | SXD | CIL00 AC160 TO | F2521390 | |
06263 | 0 60100 0 05176 | 2350 | STO | CIL00 WILL FUNCTION | F2523500 | ||
07132 | 0 60100 0 05176 | 2791 | STO | CIL00 WORD AND TAG IN | F2527910 | ||
07306 | 0 60100 0 05176 | 2918 | STO | CIL00 INSTRUCTION. | F2529180 | ||
07311 | 0 60100 0 05176 | 2921 | STO | CIL00 | F2529210 |
05177 | 975 | CIL01 | BSS | 1 | F2509760 |
04512 | 0 60100 0 05177 | 648 | STO | CIL01 | F2506440 | ||
04721 | 0 60100 0 05177 | 797 | STO | CIL01 | F2507980 | ||
04731 | 0 60100 0 05177 | 805 | STO | CIL01 | F2508060 | ||
04760 | 0 60100 0 05177 | 831 | STO | CIL01 THE | F2508320 | ||
05011 | 0 60100 0 05177 | 856 | STO | CIL01 | F2508570 | ||
05034 | 0 60100 0 05177 | 875 | STO | CIL01 SUB | F2508760 | ||
05272 | 0 60100 0 05177 | 1039 | STO | CIL01 TO ALL ONES. | F2510400 | ||
05340 | 0 60100 0 05177 | 1078 | STO | CIL01 TXI | F2510790 | ||
05377 | 0 62100 0 05177 | 1109 | STA | CIL01 AFTER DECREMENT IS COMPUTED, FILL | F2511100 | ||
05411 | 0 60100 0 05177 | 1119 | STO | CIL01 COMPILED INSTRUCTION | F2511200 | ||
05427 | 0 60100 0 05177 | 1133 | STO | CIL01 FORVAR OCCURRANCE. | F2511340 | ||
05650 | 0 60100 0 05177 | 1278 | STO | CIL01 NOW COMPILED. | F2512790 | ||
05671 | 0 60100 0 05177 | 1295 | STO | CIL01 | F2512960 | ||
05742 | 0 60100 0 05177 | 1336 | STO | CIL01 TXI AND PUT | F2513370 | ||
06033 | 0 60100 0 05177 | 1393 | RTX204 | STO | CIL01 FINAL TXL DECREHENT. | F2513940 | |
06035 | −0 60200 0 05177 | 1395 | ORS | CIL01 | F2513960 | ||
06046 | 0 60100 0 05177 | 1404 | STO | CIL01 | F2514050 | ||
06131 | 0 60100 0 05177 | 1455 | STO | CIL01 | F2514560 | ||
06145 | 0 60100 0 05177 | 1467 | STO | CIL01 SC IS DEAD. | F2514680 | ||
06170 | 0 62100 0 05177 | 1486 | STA | CIL01 IN CIL01 WORD. | F2514870 | ||
06515 | 0 60100 0 05177 | 1730 | STO | CIL01 DECREMENTS ARE KN0WN, | F2517310 | ||
06517 | 0 62100 0 05177 | 1732 | STA | CIL01 BE IN ERTX01 AND | F2517330 | ||
06537 | 0 60100 0 05177 | 1748 | STO | CIL01 TIX. | F2517490 | ||
06541 | 0 62100 0 05177 | 1750 | STA | CIL01 TIX DECREMENT, | F2517510 | ||
06554 | 0 60100 0 05177 | 1764 | STO | CIL01 COMPILED INSTRUCTIN, | F2517650 | ||
06613 | 0 60100 0 05177 | 1795 | STO | CIL01 FOR 2ND WORD. | F2517960 | ||
05306 | 0 60100 0 05177 | 1857 | STO | CIL01 PUT | F2518570 | ||
05360 | 0 60100 0 05177 | 1899 | STO | CIL01 LXD | F2518990 | ||
05470 | 0 60100 0 05177 | 1971 | STO | CIL01 WORDS AND CONTINUE | F2519710 | ||
05556 | 0 60100 0 05177 | 2025 | STO | CIL01 | F2520250 | ||
05666 | 0 60100 0 05177 | 2097 | STO | CIL01 COMPILE | F2520970 | ||
05737 | 0 60100 0 05177 | 2138 | STO | CIL01 AND RETURN TO | F2521380 | ||
05757 | 0 60100 0 05177 | 2154 | STO | CIL01 STORE | F2521540 | ||
05764 | 0 60100 0 05177 | 2159 | STO | CIL01 SUBSCRIPT | F2521590 | ||
06137 | 0 60100 0 05177 | 2266 | STO | CIL01 TIX | F2522660 | ||
06147 | 0 60100 0 05177 | 2274 | STO | CIL01 | F2522740 | ||
06213 | 0 60100 0 05177 | 2310 | STO | CIL01 TIX | F2523100 | ||
06270 | 0 60100 0 05177 | 2355 | STO | CIL01 | F2523550 | ||
06615 | 0 60100 0 05177 | 2579 | STO | CIL01 ADD L(1), | F2525790 | ||
06625 | 0 60100 0 05177 | 2587 | STO | CIL01 | F2525870 | ||
07003 | 0 60100 0 05177 | 2701 | STO | CIL01 ADD L(1) | F2527010 | ||
07013 | 0 60100 0 05177 | 2709 | STO | CIL01 TO PC60. | F2527090 | ||
07315 | −0 60000 0 05177 | 2925 | STQ | CIL01 COMPILE OP. WORD. | F2529250 |
05200 | 976 | CIL02 | BSS | 1 | F2509770 |
04476 | 0 60100 0 05200 | 636 | STO | CIL02 | F2506320 | ||
04506 | 0 60100 0 05200 | 644 | STO | CIL02 FROM WD1 OF S1 DOTAG. | F2506400 | ||
04715 | 0 60100 0 05200 | 793 | STO | CIL02 CHECK SUBSCRIPT. IF | F2507940 | ||
04736 | 0 60100 0 05200 | 810 | STO | CIL02 | F2508110 | ||
04754 | 0 60100 0 05200 | 827 | STO | CIL02 L(N2-N1) | F2508280 | ||
04772 | 0 60100 0 05200 | 841 | STO | CIL02 COMPILE | F2506420 | ||
05003 | 0 60100 0 05200 | 850 | STO | CIL02 | F2508510 | ||
05020 | 0 60100 0 05200 | 863 | STO | CIL02 PREPARE TO | F2508640 | ||
05031 | 0 60100 0 05200 | 872 | STO | CIL02 TO COMPILE | F2508730 | ||
05273 | 0 60100 0 05200 | 1040 | STO | CIL02 | F2510410 | ||
05432 | 0 60100 0 05200 | 1136 | STO | CIL02 IN RELATIVE ADDRESS | F2511370 | ||
06041 | 0 60100 0 05200 | 1399 | STO | CIL02 ADDRESS. | F2514000 | ||
06052 | 0 60100 0 05200 | 1408 | STO | CIL02 SYMBOLIC ADDRESS, | F2514090 | ||
06472 | 0 60100 0 05200 | 1702 | STO | CIL02 AND PLACES TAG IN | F2517030 | ||
06626 | 0 60100 0 05200 | 1812 | STO | CIL02 TAG WD. OF CIL03 AN0 1 | F2518130 | ||
05307 | 0 60100 0 05200 | 1858 | STO | CIL02 INTO CIT | F2518580 | ||
05353 | 0 60100 0 05200 | 1894 | STO | CIL02 FIXCON LOCATION SYMBOL. | F2518940 | ||
05356 | 0 60100 0 05200 | 1897 | STO | CIL02 LXD ADDRESS T0 BCD ZERO. | F2518970 | ||
05362 | 0 50000 0 05200 | 1901 | CLA | CIL02 PLACE LXD ADDRESS | F2519010 | ||
05366 | 0 60100 0 05200 | 1905 | STO | CIL02 ADDRESS. | F2519050 | ||
05465 | 0 60100 0 05200 | 1968 | STO | CIL02 STO S1 OR N1 SYMBOL. | F2519680 | ||
05563 | 0 60100 0 05200 | 2030 | STO | CIL02 | F2520300 | ||
05623 | 0 60100 0 05200 | 2062 | STO | CIL02 PUT N2 WORD AS | F2520620 | ||
05653 | 0 60100 0 05200 | 2086 | STO | CIL02 CLAL(GN2 + LOAD PORT.) | F2520860 | ||
05677 | 0 50000 0 05200 | 2106 | CLA | CIL02 | F2521060 | ||
05735 | 0 60100 0 05200 | 2136 | STO | CIL02 COMPILE | F2521360 | ||
05754 | 0 60100 0 05200 | 2151 | STO | CIL02 COMPILE | F2521510 | ||
05762 | 0 60100 0 05200 | 2157 | STO | CIL02 OF | F2521570 | ||
06143 | 0 60100 0 05200 | 2270 | STO | CIL02 THIS | F2522700 | ||
06155 | 0 60100 0 05200 | 2280 | STO | CIL02 | F2522800 | ||
06217 | 0 60100 0 05200 | 2314 | STO | CIL02 CASE. | F2523140 | ||
06265 | 0 60100 0 05200 | 2352 | STO | CIL02 | F2523520 | ||
06621 | 0 60100 0 05200 | 2583 | STO | CIL02 ALS 17, | F2525830 | ||
06632 | 0 60100 0 05200 | 2592 | STO | CIL02 | F2525920 | ||
07010 | 0 60100 0 05200 | 2706 | STO | CIL02 STD 1) +3 | F2527060 | ||
07020 | 0 60100 0 05200 | 2714 | STO | CIL02 | F2527140 | ||
07321 | 0 60100 0 05200 | 2929 | STO | CIL02 SYMBOLIC ADDRESS. | F2529290 | ||
07324 | −0 50000 0 05200 | 2932 | CAL | CIL02 TEST CIL02 | F2529320 | ||
07331 | −0 50000 0 05200 | 2937 | CAL | CIL02 FIRST CHARACTER NUMBERIC, | F2529370 | ||
07335 | 0 32000 0 05200 | 2941 | ANS | CIL02 | F2529410 | ||
07343 | 0 60100 0 05200 | 2947 | STO | CIL02 | F2529470 |
05201 | 977 | CIL03 | BSS | 1 | F2509780 |
04475 | 0 60100 0 05201 | 635 | STO | CIL03 WHERE THE | F2506310 | ||
04510 | 0 62100 0 05201 | 646 | STA | CIL03 | F2506420 | ||
04717 | 0 60100 0 05201 | 795 | STO | CIL03 COMPILE ADD L(SYMBOL). | F2507960 | ||
04733 | 0 60100 0 05201 | 807 | STO | CIL03 | F2508080 | ||
04756 | 0 60100 0 05201 | 829 | STO | CIL03 RETURN | F2508300 | ||
04774 | 0 60100 0 05201 | 843 | STO | CIL03 | F2508440 | ||
05005 | 0 60100 0 05201 | 852 | STO | CIL03 | F2508530 | ||
05022 | 0 60100 0 05201 | 865 | STO | CIL03 SUBL(N1). | F2508660 | ||
05032 | −0 63400 4 05201 | 873 | SXD | CIL03,4 SUB L(N1). | F2508740 | ||
05274 | 0 60100 0 05201 | 1041 | STO | CIL03 | F2510420 | ||
05425 | 0 60100 0 05201 | 1131 | STO | CIL03 INSTRUCTION | F2511320 | ||
06470 | 0 60100 0 05201 | 1700 | STO | CIL03 | F2517010 | ||
06474 | 0 62100 0 05201 | 1704 | STA | CIL03 FOR INST. OF K DECREMENT. | F2517050 | ||
06632 | 0 60100 0 05201 | 1816 | STO | CIL03 THE ADDRESS WORD CIL02 . | F2518170 | ||
06636 | 0 60100 0 05201 | 1822 | STO | CIL03 TAG NAME | F2518230 | ||
05310 | 0 60100 0 05201 | 1859 | STO | CIL03 AS FIRST ALPHA STAGE | F2518590 | ||
05367 | −0 63400 4 05201 | 1906 | SXD | CIL03,4 RELATIVE ADDRESS. | F2519060 | ||
05562 | −0 63400 1 05201 | 2029 | SXD | CIL03,1 | F2520290 | ||
05625 | 0 60100 0 05201 | 2064 | STO | CIL03 ZERO AS THE | F2520640 | ||
05655 | 0 60100 0 05201 | 2088 | STO | CIL03 | F2520880 | ||
05656 | −0 63400 1 05201 | 2089 | SXD | CIL03,1 | F2520890 | ||
T | 05741 | −0 63400 0 05201 | 2140 | SXD | CIL03 CONSIDER NEXT | F2521400 | |
05766 | 0 60100 0 05201 | 2161 | STO | CIL03 ITS | F2521610 | ||
06144 | −0 63400 1 05201 | 2271 | SXD | CIL03,1 CASE. | F2522710 | ||
06151 | 0 60100 0 05201 | 2276 | STO | CIL03 | F2522760 | ||
06156 | −0 63400 4 05201 | 2281 | SXD | CIL03,4 | F2522810 | ||
06220 | −0 63400 1 05201 | 2315 | SXD | CIL03,1 | F2523150 | ||
06266 | 0 60100 0 05201 | 2353 | STO | CIL03 | F2523530 | ||
06622 | −0 63400 4 05201 | 2584 | SXD | CIL03,4 STO 1)+3, | F2525840 | ||
06633 | −0 63400 4 05201 | 2593 | SXD | CIL03,4 | F2525930 | ||
07006 | −0 63400 1 05201 | 2704 | SXD | CIL03,1 MPY L(G) | F2527040 | ||
07021 | −0 63400 4 05201 | 2715 | SXD | CIL03,4 | F2527150 | ||
07135 | 0 60100 0 05201 | 2794 | STO | CIL03 | F2527940 | ||
07323 | 0 60100 0 05201 | 2931 | STO | CIL03 ADDRESS. | F2529310 | ||
07333 | 0 62200 0 05201 | 2939 | STD | CIL03 IN CIL03, LEFT HALF | F2529390 | ||
07341 | 0 60100 0 05201 | 2945 | STO | CIL03 | F2529450 |
1807 | ************************************************************* | F2518080 | |||||
1808 | CIL23 FILLS OUT THE ADDRESS AND TAG NAME WORDS FOR A COMPILED | F2518090 | |||||
1809 | INSTRUCTION WHEN THE ADDRESS IS TO BE THE NEXT SEQUENTIAL INS | F2518100 | |||||
1810 | TRUCTION AND THE LOCATION WORD IS FILLED ELSEWHERE. | F2518110 | |||||
06625 | 0 50000 0 05176 | 1811 | CIL23 | CLA | CIL00 THIS ROUTINE PLACES TAG IN | F2518120 |
05407 | 0 07400 4 06625 | 1117 | TSX | CIL23,4 AND THEN FILL OUT | F2511180 | ||
05646 | 0 07400 4 06625 | 1276 | TSX | CIL23,4 THE REMAINING THREE ARE | F2512770 | ||
05667 | 0 07400 4 06625 | 1293 | TSX | CIL23,4 | F2512940 | ||
05740 | 0 07400 4 06625 | 1334 | TSX | CIL23,4 | F2513350 | ||
06137 | 0 07400 4 06625 | 1461 | TSX | CIL23,4 LOCATION. | F2514620 | ||
06174 | 0 07400 4 06625 | 1490 | TSX | CIL23,4 TEST. | F2514910 | ||
06555 | 0 07400 4 06625 | 1765 | TSX | CIL23,4 FILL OUT REMAINING WORDS. | F2517660 | ||
06614 | 0 07400 4 06625 | 1796 | TSX | CIL23,4 FILL OUT REMAINING WORDS. | F2517970 |
579 | ************************************************************* | F2505740 | |||||
580 | CN1IJ COMPUTES THE LOAD VALUE FOR A GIVEN SUBSCRIPT IN A | F2505750 | |||||
581 | SUBSCRIPT COMBINATION. (C1N1-1), OR (C2N1-1)D1 | F2505760 | |||||
04423 | 0 56000 2 01100 | 582 | CN1IJ | LDQ | DOTAGZ+2,2 N2 INTO MQ. | F2505770 |
04415 | 0 07400 4 04423 | 573 | TSX | CN1IJ,4 COMPUTE (CN1-1)IJ-ETC. | F2505680 | ||
04702 | 0 07400 4 04423 | 782 | TSX | CN1IJ,4 | F2507830 |
1676 | ************************************************************* | F2516770 | |||||
1677 | CN3IJ COMPUTES THE INDEX INCREMENTING VALUE FOR EACH PASS THR | F2516780 | |||||
1678 | THROUGH A DO LOOP. THIS IS THE NORHAL TXI DECREMENT. | F2516790 | |||||
06447 | 0 56000 2 01102 | 1679 | CN3IJ | LDQ | DOTAGZ+4,2 COMPUTES DECREMENT AND | F2516800 |
05343 | 0 07400 4 06447 | 1081 | TSX | CN3IJ,4 ROUTINE COMPUTES DECREMENT N3G | F2510820 | ||
05360 | 0 07400 4 06447 | 1094 | TSX | CN3IJ,4 1,2 OR 2,3 OR 1,2,3. | F2510950 | ||
05373 | 0 07400 4 06447 | 1105 | TSX | CN3IJ,4 COMPUTE DECREMENT ADJUSTMENT FOR S1 | F2511060 | ||
05450 | 0 07400 4 06447 | 1150 | TSX | CN3IJ,4 COMPUTE N3G AND | F2511510 | ||
05505 | 0 07400 4 06447 | 1179 | TSX | CN3IJ,4 FOR RIGHT | F2511800 | ||
05516 | 0 07400 4 06447 | 1188 | RTX93 | TSX | CN3IJ,4 FOR DECREMENT AND | F2511890 | |
05545 | 0 07400 4 06447 | 1211 | TSX | CN3IJ,4 COMPUTE N3G FOR | F2512120 | ||
05557 | 0 07400 4 06447 | 1221 | RTX114 | TSX | CN3IJ,4 COMPUTE N3G | F2512220 | |
05624 | 0 07400 4 06447 | 1258 | TSX | CN3IJ,4 SUBSCRIPT (DOSUB). | F2512590 |
05230 | 1000 | DOIND | BSS | 1 | F2510010 |
03700 | 0 60100 0 05230 | 203 | STO | DOIND | F2501970 | ||
03720 | −0 53400 2 05230 | 219 | MAN40 | LXD | DOIND,2 | F2502130 | |
04144 | −0 63400 1 05230 | 376 | SXD | DOIND,1 DO INDICATOR SET | F2503710 | ||
04205 | 0 50000 0 05230 | 418 | CLA | DOIND WITH THE INDEX | F2504130 | ||
04230 | −0 53400 2 05230 | 442 | ENTR | LXD | DOIND,2 SYMBOL OF DO IS | F2504370 | |
04554 | 0 40200 0 05230 | 685 | SUB | DOIND TEST FOR MODIFICATION, | F2506810 | ||
05260 | −0 53400 2 05230 | 1029 | LXD | DOIND,2 NEW DO | F2510300 | ||
05342 | −0 53400 2 05230 | 1080 | LXD | DOIND,2 EXIT-ROUTINE. | F2510810 | ||
05372 | −0 53400 2 05230 | 1104 | LXD | DOIND,2 | F2511050 | ||
05415 | −0 53400 2 05230 | 1123 | LXD | DOIND,2 FORVAR | F2511240 | ||
05430 | −0 53400 2 05230 | 1134 | LXD | DOIND,2 | F2511350 | ||
05446 | −0 53400 2 05230 | 1148 | LXD | DOIND,2 PREPARE FOR | F2511490 | ||
05544 | −0 53400 2 05230 | 1210 | LXD | DOIND,2 FOR CN3IJROUTINE. | F2512110 | ||
05623 | −0 53400 2 05230 | 1257 | LXD | DOIND,2 FOR RIGHT | F2512580 | ||
05673 | −0 53400 2 05230 | 1297 | RTX160 | LXD | DOIND,2 FINDING S.C, WHICH | F2512980 | |
05753 | −0 53400 2 05230 | 1345 | RTX196 | LXD | DOIND,2 THIS DO HAS NO TEST. THIS INFORMATION | F2513460 | |
06000 | −0 53400 2 05230 | 1366 | LXD | DOIND,2 ISOLATE | F2513670 | ||
06024 | −0 53400 2 05230 | 1386 | RTX202 | LXD | DOIND,2 PREPARE FOR AND CALL CXIJ | F2513870 | |
06055 | −0 53400 2 05230 | 1411 | RTX214 | LXD | DOIND,2 ENTERONE IN BIT 20 IF | F2514120 | |
06071 | 0 40200 0 05230 | 1423 | SUB | DOIND WITH INDEX OF THE DO. | F2514240 | ||
06150 | −0 53400 2 05230 | 1470 | LXD | DOIND,2 TEST FOR DUPLICATES | F2514710 | ||
06235 | −0 53400 2 05230 | 1528 | N3BIT | LXD | DOIND,2 THIS ROUTIN E ISOLATES | F2515290 | |
05322 | 0 40200 0 05230 | 1869 | SUB | DOIND TEST TO SEE IF THIS IS | F2518690 | ||
05747 | −0 53400 2 05230 | 2146 | LXD | DOIND,2 FORVAR, IS IT | F2521460 | ||
07303 | −0 53400 2 05230 | 2915 | LXD | DOIND,2 DECREMENT | F2529150 |
05061 | +000001000000 | 897 | L1DEC | OCT | 1000000 | F2508980 |
03753 | 0 40000 0 05061 | 246 | ADD | L1DEC | F2502400 | ||
04233 | 0 50000 0 05061 | 445 | CLA | L1DEC =1. THIS SIMULATES | F2504400 | ||
04706 | 0 40000 0 05061 | 786 | ADD | L1DEC TO (CN1-1). | F2507870 | ||
06040 | 0 40000 0 05061 | 1398 | ADD | L1DEC ENTERED AS THE SYMBOLIC | F2513990 | ||
06051 | 0 40000 0 05061 | 1407 | ADD | L1DEC ENTERED AS THE | F2514080 | ||
06467 | 0 50000 0 05061 | 1699 | CLA | L1DEC SYMBOL FOR ADDRESS | F2517000 | ||
06631 | −0 50100 0 05061 | 1815 | ORA | L1DEC PLACES THE LOCATION IN | F2518160 | ||
05351 | 0 40000 0 05061 | 1892 | ADD | L1DEC IN | F2518920 | ||
06302 | 0 40200 0 05061 | 2367 | SUB | L1DEC IS C1 GREATER THAN1. | F2523670 | ||
06341 | 0 40200 0 05061 | 2403 | SUB | L1DEC C1=1. | F2524030 | ||
06343 | 0 40000 0 05061 | 2405 | ADD | L1DEC NO, ASSIGN | F2524050 | ||
06565 | 0 40200 0 05061 | 2555 | SUB | L1DEC DOES C1=1. | F2525550 | ||
06612 | 0 40200 0 05061 | 2576 | SUB | L1DEC DOES C1=1. | F2525760 | ||
06651 | 0 40200 0 05061 | 2607 | SUB | L1DEC INSTRUCTIONS | F2526070 | ||
06756 | 0 40200 0 05061 | 2680 | SUB | L1DEC | F2526800 | ||
06775 | 0 40200 0 05061 | 2695 | SUB | L1DEC IS C1 = 1. | F2526950 | ||
07057 | 0 40200 0 05061 | 2745 | SUB | L1DEC TO COMPUTE | F2527450 | ||
07062 | 0 40000 0 05061 | 2748 | PC25 | ADD | L1DEC | F2527480 | |
07105 | 0 40200 0 05061 | 2767 | SUB | L1DEC | F2527670 | ||
07177 | 0 40200 0 05061 | 2835 | SUB | L1DEC | F2528350 |
05125 | 0 00000 0 00620 | 933 | LADMX | 400 | F2509340 |
00153 | 0 53400 1 05125 | 115 | LXA | LADMX,1 ADTAG AREA | F2501100 | ||
00173 | 0 53400 1 05125 | 131 | LXA | LADMX,1 START TO CHECK | F2501260 | ||
05711 | 0 53400 4 05125 | 1311 | LXA | LADMX,4 PREPARE FOR ADTAG TXI. | F2513120 | ||
06201 | 0 53400 4 05125 | 1495 | RTX260 | LXA | LADMX,4 START DRMTG SEARCH AND | F2514960 | |
06240 | 0 53400 2 05125 | 2331 | LXA | LADMX,2 START ADTG COMPILING. | F2523310 |
05236 | 1006 | LINKC | BSS | 1 | F2510070 |
04411 | −0 63400 4 05236 | 569 | SXD | LINKC,4 | F2505640 | ||
04421 | −0 53400 4 05236 | 577 | LXD | LINKC,4 | F2505720 | ||
06435 | −0 63400 4 05236 | 2464 | BOR0 | SXD | LINKC,4 FOR B BLOCK | F2524640 | |
06451 | −0 53400 4 05236 | 2476 | LXD | LINKC,4 | F2524760 | ||
07174 | −0 63400 4 05236 | 2832 | SXD | LINKC,4 STORE LINKAGE. | F2528320 | ||
07207 | −0 53400 4 05236 | 2843 | LXD | LINKC,4 RESTORE LINKAGE | F2528430 |
02646 | 3125 | MXTGA | SYN | OMXTGA+200 | F2531250 |
03671 | 0 60100 2 02646 | 196 | MAN06 | STO | MXTGA,2 TO. | F2501900 | |
05114 | 0 00000 0 02646 | 924 | INST22 | MXTGA | F2509250 | ||
05165 | 0 00000 0 02646 | 965 | INST12 | MXTGA | F2509660 | ||
06507 | −0 60200 2 02646 | 1720 | TGA8 | ORS | MXTGA,2 ADDRESS IS ORIGIN PLUS MAX | F2517210 | |
05773 | −0 50000 1 02646 | 2166 | CAL | MXTGA,1 DECREMENTS OF TXI | F2521660 |
05254 | 1020 | N1SBX | BSS | 1 | F2510210 |
04564 | 0 60100 0 05254 | 696 | STO | N1SBX | F2506920 | ||
04575 | −0 60200 0 05254 | 705 | ORS | N1SBX OR N1BIT TO N1SBX. | F2507060 | ||
04577 | 0 50000 0 05254 | 707 | CLA | N1SBX | F2507080 | ||
06012 | 0 60100 0 05254 | 1376 | STO | N1SBX N1 BIT. | F2513770 | ||
05344 | 0 50000 0 05254 | 1887 | CLA | N1SBX VALUE IS CONSTANT | F2518870 | ||
05411 | 0 50000 0 05254 | 1924 | CLA | N1SBX IF CONSTANT LOAD, | F2519240 | ||
07160 | 0 50000 0 05254 | 2817 | BITP10 | CLA | N1SBX VARIABLE. IF SO, RETURN | F2528170 |
1526 | ************************************************************* | F2515270 | |||||
1527 | N3BIT PLACES THE VARIABLE N3 BIT OF A DO IN THE WORK N3IND. | F2513280 | |||||
06235 | −0 53400 2 05230 | 1528 | N3BIT | LXD | DOIND,2 THIS ROUTIN E ISOLATES | F2515290 |
05303 | 0 07400 4 06235 | 1048 | TSX | N3BIT,4 ISOLATE N3 BIT OF DOTAG | F2510490 |
05234 | 1004 | N3IND | BSS | 1 | F2510050 |
05316 | 0 50000 0 05234 | 1060 | CLA | N3IND BLOCK EQUALSA. | F2510610 | ||
05441 | 0 40000 0 05234 | 1143 | ADD | N3IND | F2511440 | ||
05472 | 0 40000 0 05234 | 1168 | ADD | N3IND | F2511690 | ||
05531 | 0 40000 0 05234 | 1199 | ADD | N3IND CHECK FOR VARIABLE DECREMENT. | F2512000 | ||
05604 | 0 40000 0 05234 | 1242 | ADD | N3IND N3IND FOR S1 | F2512430 | ||
05732 | 0 50000 0 05234 | 1328 | RTX190 | CLA | N3IND | F2513290 | |
06241 | 0 60100 0 05234 | 1532 | STO | N3IND | F2515330 |
1800 | ************************************************************* | F2518010 | |||||
1801 | NBITS ISOLATES THE VARIABLE PARAMETER BITS FOR A GIVEN DOTAG. | F2518020 | |||||
06620 | 0 50000 2 01076 | 1802 | NBITS | CLA | DOTAGZ,2 ROUTINE FOR ISOLATING | F2518030 |
05440 | 0 07400 4 06620 | 1142 | TSX | NBITS,4 IF DECREMENT IS VARIABLE | F2511430 | ||
05471 | 0 07400 4 06620 | 1167 | TSX | NBITS,4 NBITS INTO N1N2N3. | F2511680 | ||
05530 | 0 07400 4 06620 | 1198 | TSX | NBITS,4 ISOLATE NBITS | F2511990 | ||
05603 | 0 07400 4 06620 | 1241 | TSX | NBITS,4 PLACE N BITS PLUS | F2512420 | ||
05607 | 0 07400 4 06620 | 1245 | TSX | NBITS,4 TEST. 1F SUM IS NOT ZERO, | F2512460 | ||
06001 | 0 07400 4 06620 | 1367 | TSX | NBITS,4 NBITS. | F2513680 |
3095 | ************************************************************* | F2530950 | |||||
07566 | 3096 | OR000 | BSS | 12 | F2530960 |
04711 | 0 60100 0 07567 | 789 | STO | OR000+1 | F2507900 | ||
04734 | 0 50000 0 07620 | 808 | CLA | OR000+26 | F2508090 | ||
05067 | 0 00000 0 07566 | 903 | L(OR0) | OR000 | F2509040 | ||
05363 | 0 60100 0 07621 | 1902 | STO | OR000+27 IN OR0 TABLE. | F2519020 | ||
05416 | 0 60100 0 07567 | 1929 | STO | OR000+1 S1 DEFINED. STO SYMBOL IN OR0+1. | F2519290 | ||
05422 | 0 60100 0 07572 | 1933 | STO | OR000+4 S2 DEFINED. PUT SUBSCRIPT | F2519330 | ||
05425 | 0 60100 0 07575 | 1936 | STO | OR000+7 IN OR0+7. | F2519360 | ||
05431 | 0 60100 0 07613 | 1940 | STO | OR000+21 S3 DEFINED. PUT SUBSCRIPT | F2519400 | ||
05436 | 0 60100 0 07616 | 1945 | STO | OR000+24 OR0+24. | F2519450 | ||
05441 | 0 60100 0 07575 | 1948 | STO | OR000+7 AND STORE IN OR0+7, | F2519480 | ||
05557 | 0 50000 0 07620 | 2026 | CLA | OR000+26 ERASABLE OBJECT TIME SYMBOL. | F2520260 | ||
05565 | 0 50000 0 07620 | 2032 | AC100 | CLA | OR000+26 | F2520320 | |
05566 | 0 60100 0 07621 | 2033 | STO | OR000+27 | F2520330 | ||
05676 | 0 60100 0 07577 | 2105 | STO | OR000+9 | F2521050 | ||
05700 | 0 60100 0 07567 | 2107 | STO | OR000+1 | F2521070 | ||
06024 | 0 60100 0 07612 | 2191 | STO | OR000+20 C1 IS G FOR | F2521910 | ||
06026 | 0 60100 0 07611 | 2193 | STO | OR000+19 PREPARE TO | F2521930 | ||
06130 | 0 60100 0 07566 | 2259 | STO | OR000 G GREATER THAN 1, | F2522590 | ||
06140 | 0 50000 0 07603 | 2267 | CLA | OR000+13 INITIALIZATION | F2522670 | ||
06152 | 0 50000 0 07620 | 2277 | CLA | OR000+26 ERASEABLE STORAGE | F2522770 | ||
06160 | 0 50000 0 07620 | 2283 | CLA | OR000+26 PLACE ERASEABLE SYMBOL | F2522830 | ||
06161 | 0 60100 0 07566 | 2284 | STO | OR000 IN OR000 FOR LXC BLOCK. | F2522840 | ||
06204 | 0 60100 0 07566 | 2303 | STO | OR000 COMPILE TIX | F2523030 | ||
06214 | 0 50000 0 07603 | 2311 | CLA | OR000+13 INITIALIZATION | F2523110 | ||
06320 | 0 60100 0 07611 | 2381 | STO | OR000+19 IN OR0 + 19. | F2523810 | ||
06333 | 0 60100 0 07604 | 2397 | STO | OR000+14 | F2523970 | ||
06335 | 0 60100 0 07566 | 2399 | STO | OR000 | F2523990 | ||
06345 | 0 60100 0 07611 | 2407 | STO | OR000+19 | F2524070 | ||
06365 | 0 60100 0 07611 | 2423 | STO | OR000+19 G AND PUT IN OR0+19 | F2524230 | ||
06422 | 0 60100 0 07611 | 2452 | STO | OR000+19 G FOR S3. | F2524520 | ||
06441 | 0 60100 0 07611 | 2468 | STO | OR000+19 IN OR0. | F2524680 | ||
06443 | 0 60100 0 07612 | 2470 | STO | OR000+20 | F2524700 | ||
06461 | 0 60100 0 07611 | 2485 | STO | OR000+19 BLOCK C DECREMENTS. | F2524850 | ||
06471 | 0 40000 0 07611 | 2493 | ADD | OR000+19 IN OR0+19 FOR | F2524930 | ||
06472 | 0 60100 0 07611 | 2494 | STO | OR000+19 USE BY PC. | F2524940 | ||
06510 | 0 60100 0 07611 | 2509 | STO | OR000+19 C1 ADDED TO G1. | F2525090 | ||
06514 | 0 60100 0 07612 | 2513 | STO | OR000+20 | F2525130 | ||
06524 | 0 40000 0 07611 | 2521 | ADD | OR000+19 | F2525210 | ||
06525 | 0 60100 0 07611 | 2522 | STO | OR000+19 | F2525220 | ||
06530 | 0 40000 0 07612 | 2525 | ADD | OR000+20 | F2525250 | ||
06531 | 0 60100 0 07612 | 2526 | STO | OR000+20 | F2525260 | ||
06543 | 0 50000 0 07605 | 2537 | CLA | OR000+15 UPDATE | F2525370 | ||
06545 | 0 60100 0 07604 | 2539 | STO | OR000+14 INSTRUCTION NUM8ER. | F2525390 | ||
06547 | 0 60100 0 07605 | 2541 | STO | OR000+15 INSTRUCTION NUMBER. | F2525410 | ||
06572 | 0 60100 0 07566 | 2560 | STO | OR000 N2 SYMBOL. | F2525600 | ||
06575 | 0 60100 0 07611 | 2563 | STO | OR000+19 COMPILE LDQ L(N2), | F2525630 | ||
06616 | 0 50000 0 07603 | 2580 | CLA | OR000+13 STO 1)+3, | F2525800 | ||
06626 | 0 50000 0 07620 | 2588 | CLA | OR000+26 | F2525880 | ||
06627 | 0 60100 0 07567 | 2589 | STO | OR000+1 | F2525890 | ||
06637 | 0 60100 0 07577 | 2597 | STO | OR000+9 | F2525970 | ||
06656 | 0 60100 0 07577 | 2612 | STO | OR000+9 | F2526120 | ||
06674 | 0 60100 0 07612 | 2626 | EOR022 | STO | OR000+20 PUT SYMB0L IN | F2526260 | |
06711 | 0 60100 0 07604 | 2643 | STO | OR000+14 AND OR0+15. | F2526430 | ||
06713 | 0 60100 0 07605 | 2645 | STO | OR000+15 | F2526450 | ||
06721 | 0 60100 0 07566 | 2651 | STO | OR000 COMPILE | F2526510 | ||
06722 | 0 50000 0 07611 | 2652 | CLA | OR000+19 LDQ L(G), (N3X POS,), | F2526520 | ||
06724 | 0 60100 0 07611 | 2654 | STO | OR000+19 ALS 17, | F2526540 | ||
06732 | 0 20000 0 07611 | 2660 | MPY | OR000+19 N3G SYMBOL IN | F2526600 | ||
06735 | 0 60100 0 07611 | 2663 | STO | OR000+19 | F2526630 | ||
06754 | 0 60100 0 07567 | 2678 | STO | OR000+1 | F2526780 | ||
06766 | 0 60100 0 07577 | 2688 | STO | OR000+9 LDQ L(N2) | F2526880 | ||
07001 | 0 60100 0 07577 | 2699 | STO | OR000+9 C1 AND | F2526990 | ||
07004 | 0 50000 0 07603 | 2702 | CLA | OR000+13 STO 1) +3 | F2527020 | ||
07014 | 0 50000 0 07620 | 2710 | CLA | OR000+26 | F2527100 | ||
07015 | 0 60100 0 07567 | 2711 | STO | OR000+1 | F2527110 | ||
07027 | 0 50000 0 07612 | 2721 | PCI31 | CLA | OR000+20 XX POS 2 , X VAR., N3 = 1, | F2527210 | |
07031 | 0 60100 0 07577 | 2723 | STO | OR000+9 AND PUT IN OR0+9 | F2527230 | ||
07040 | 0 60100 0 07567 | 2730 | STO | OR000+1 LDQ N2, | F2527300 | ||
07064 | 0 60100 0 07577 | 2750 | STO | OR000+9 | F2527500 | ||
07073 | 0 50000 0 07612 | 2757 | PC40 | CLA | OR000+20 POS, IS S2, | F2527570 | |
07075 | 0 60100 0 07612 | 2759 | STO | OR000+20 TO COMPUT N3X-1 AND | F2527590 | ||
07103 | 0 20000 0 07612 | 2765 | MPY | OR000+20 FORM GN3X-1 FOR | F2527650 | ||
07107 | 0 60100 0 07612 | 2769 | STO | OR000+20 | F2527690 | ||
07204 | 0 60100 2 07602 | 2840 | STO | OR000+12,2 OR0+910, OR 11. | F2528400 | ||
07266 | 0 60100 0 07566 | 2897 | STO | OR000 | F2528970 | ||
07406 | 0 07603 2 34321 | 2983 | LXI00 | 14545,2,OR000+13 | F2529830 | ||
07407 | 0 07620 6 26346 | 2984 | 11494,6,OR000+26 | F2529840 | |||
07410 | 0 07567 2 34321 | 2985 | LXI02 | 14545,2,OR000+1 | F2529850 | ||
07411 | 0 07620 6 26346 | 2986 | 11494,6,OR000+26 | F2529860 | |||
07412 | 0 07567 4 32450 | 2987 | LXI05 | 13608,4,OR000+1 | F2529870 | ||
07413 | 0 07577 4 44770 | 2988 | 18936,4,OR000+9 | F2529880 | |||
07415 | 0 07620 6 26346 | 2990 | 11494,6,OR000+26 | F2529900 | |||
07416 | 0 07572 4 32450 | 2991 | LXI10 | 13608,4,OR000+4 | F2529910 | ||
07417 | 0 07575 4 44770 | 2992 | 18936,4,OR000+7 | F2529920 | |||
07421 | 0 07575 6 26422 | 2994 | 11538,6,OR000+7 | F2529940 | |||
07422 | 0 07620 2 12424 | 2995 | 5396,2,OR000+26 | F2529950 | |||
07423 | 0 07620 6 26346 | 2996 | 11494,6,OR000+26 | F2529960 | |||
07424 | 0 07572 4 32450 | 2997 | LXI16 | 13608,4,OR000+4 | F2529970 | ||
07425 | 0 07600 4 44770 | 2998 | 18936,4,OR000+10 | F2529980 | |||
07427 | 0 07575 4 44770 | 3000 | 18936,4,OR000+7 | F2530000 | |||
07431 | 0 07575 6 26422 | 3002 | 11538,6,OR000+7 | F2530020 | |||
07432 | 0 07620 2 12424 | 3003 | 5396,2,OR000+26 | F2530030 | |||
07433 | 0 07620 6 26346 | 3004 | 11494,6,OR000+26 | F2530040 | |||
07434 | 0 07613 4 32450 | 3005 | LXI24 | 13608,4,OR000+21 | F2530050 | ||
07435 | 0 07616 4 44770 | 3006 | 18936,4,OR000+24 | F2530060 | |||
07437 | 0 07616 6 26422 | 3008 | 11538,6,OR000+24 | F2530080 | |||
07440 | 0 07620 2 12424 | 3009 | 5396,2,OR000+26 | F2530090 | |||
07441 | 0 07620 6 26346 | 3010 | 11494,6,OR000+26 | F2530100 | |||
07442 | 0 07613 4 32450 | 3011 | LXI30 | 13608,4,OR000+21 | F2530110 | ||
07443 | 0 07601 4 44770 | 3012 | 18936,4,OR000+11 | F2530120 | |||
07445 | 0 07616 4 44770 | 3014 | 18936,4,OR000+24 | F2530140 | |||
07447 | 0 07616 6 26422 | 3016 | 11538,6,OR000+24 | F2530160 | |||
07450 | 0 07620 2 12424 | 3017 | 5396,2,OR000+26 | F2530170 | |||
07451 | 0 07620 6 26346 | 3018 | 11494,6,OR000+26 | F2530180 | |||
07452 | 0 07611 4 32450 | 3019 | L(BIC) | 13608,4,OR000+19 | F2530190 | ||
07453 | 0 07566 4 44770 | 3020 | 18936,4,OR000 | F2530200 | |||
07455 | 0 07602 6 26346 | 3022 | 11494,6,OR000+12 | F2530220 | |||
07456 | 0 07570 2 34321 | 3023 | XCI | 14545,2,OR000+2 | F2530230 | ||
07457 | 0 07567 6 26422 | 3024 | 11538,6,OR000+1 | F2530240 | |||
07460 | 0 07571 2 12424 | 3025 | 5396,2,OR000+3 | F2530250 | |||
07462 | 0 07571 2 46547 | 3027 | 19815,2,OR000+3 | F2530270 | |||
07463 | 0 07571 4 44770 | 3028 | 18936,4,OR000+3 | F2530280 | |||
07465 | 0 07577 4 44770 | 3030 | 18936,4,OR000+9 | F2530300 | |||
07467 | 0 07603 6 26422 | 3032 | 11538,6,OR000+13 | F2530320 | |||
07470 | 0 07605 6 26324 | 3033 | XCI8 | 11476,6,OR000+15 | F2530330 | ||
07471 | 0 07602 2 12424 | 3034 | 5396,2,OR000+12 | F2530340 | |||
07472 | 0 07604 6 26324 | 3035 | 11476,6,OR000+14 | F2530350 | |||
07473 | 0 07566 4 32450 | 3036 | A1C00 | 13608,4,OR000 | F2530360 | ||
07474 | 0 07611 4 44770 | 3037 | A1C01 | 18936,4,OR000+19 | F2530370 | ||
07476 | 0 07604 6 26324 | 3039 | 11476,6,OR000+14 | F2530390 | |||
07477 | 0 07566 2 34321 | 3040 | A1000 | 14545,2,OR000 | F2530400 | ||
07500 | 0 07604 6 26324 | 3041 | A1001 | 11476,6,OR000+14 | F2530410 | ||
07501 | 0 07570 2 34321 | 3042 | TXC00 | 14545,2,OR000+2 | F2530420 | ||
07502 | 0 07567 6 26422 | 3043 | 11538,6,OR000+1 | F2530430 | |||
07503 | 0 07571 2 12424 | 3044 | 5396,2,OR000+3 | F2530470 | |||
07505 | 0 07571 2 46547 | 3046 | 19815,2,OR000+3 | F25F0460 | |||
07506 | 0 07571 4 44770 | 3047 | 18936,4,OR000+3 | F2530470 | |||
07507 | 0 07573 2 34321 | 3048 | TXC08 | 14545,2,OR000+5 | F2530480 | ||
07510 | 0 07572 6 26422 | 3049 | 11538,6,OR000+4 | F2530490 | |||
07511 | 0 07574 2 12424 | 3050 | 5396,2,OR000+6 | F2530500 | |||
07513 | 0 07574 2 46547 | 3052 | 19815,2,OR000+6 | F2530520 | |||
07514 | 0 07574 4 44770 | 3053 | 18936,4,OR000+6 | F2530530 | |||
07515 | 0 07614 2 34321 | 3054 | TXC18 | 14545,2,OR000+22 | F2530540 | ||
07516 | 0 07613 6 26422 | 3055 | 11538,6,OR000+21 | F2530550 | |||
07517 | 0 07615 2 12424 | 3056 | 5396,2,OR000+23 | F2530560 | |||
07521 | 0 07615 2 46547 | 3058 | 19815,2,OR000+23 | F2530580 | |||
07522 | 0 07615 4 44770 | 3059 | 18936,4,OR000+23 | F2530590 | |||
07524 | 0 07575 4 44770 | 3061 | 18936,4,OR000+7 | F2530610 | |||
07526 | 0 07576 4 44770 | 3063 | 18936,4,OR000+8 | F2530630 | |||
07530 | 0 07601 4 44770 | 3065 | 18936,4,OR000+11 | F2530650 | |||
07532 | 0 07621 2 12424 | 3067 | TXC31 | 5396,2,OR000+27 | F2530670 | ||
07533 | 0 07603 6 26422 | 3068 | 11538,6,OR000+13 | F2530680 | |||
07535 | 0 07611 4 44770 | 3070 | 18936,4,OR000+19 | F2530700 | |||
07537 | 0 07604 6 26324 | 3072 | 11476,6,OR000+14 | F2530720 | |||
07540 | 0 07573 2 34321 | 3073 | X2CI | 14545,2,OR000+5 | F2530730 | ||
07541 | 0 07572 6 26422 | 3074 | 11538,6,OR000+4 | F2530740 | |||
07542 | 0 07574 2 12424 | 3075 | 5396,2,OR000+6 | F2530750 | |||
07544 | 0 07574 2 46547 | 3077 | 19815,2,OR000+6 | F2530770 | |||
07545 | 0 07574 4 44770 | 3078 | 18936,4,OR000+6 | F2530780 | |||
07547 | 0 07612 4 44770 | 3080 | 18936,4,OR000+20 | F2530800 | |||
07551 | 0 07603 6 26422 | 3082 | 11538,6,OR000+13 | F2530820 | |||
07552 | 0 07612 2 34321 | 3083 | XKI | 14545,2,OR000+20 | F2530830 | ||
07554 | 0 07603 6 26422 | 3085 | 11538,6,OR000+13 | F2530850 | |||
07555 | 0 07605 6 26324 | 3086 | 11476,6,OR000+15 | F2530860 | |||
07556 | 0 07604 6 26324 | 3087 | 11476,6,OR000+14 | F2530870 | |||
07557 | 0 07605 6 26324 | 3088 | XCI8P | 11476,6,OR000+15 | F2530880 | ||
07560 | 0 07611 2 12424 | 3089 | 5396,2,OR000+19 | F2530890 | |||
07561 | 0 07604 6 26324 | 3090 | 11476,6,OR000+14 | F2530900 | |||
07563 | 0 07612 2 34321 | 3092 | XCIEP | 14545,2,OR000+20 | F2530920 | ||
07564 | 0 07605 6 26324 | 3093 | XCEIP | 11476,6,OR000+15 | F2530930 | ||
07565 | 0 07604 6 26324 | 3094 | 11476,6,OR000+14 | F2530940 | |||
M | 07602 | 3120 | OR012 | SYN | OR000+12 | F2531200 | |
07603 | 3121 | OR013 | SYN | OR000+13 | F2531210 | ||
07610 | 3122 | OR018 | SYN | OR000+18 | F2531220 | ||
M | 07620 | 3123 | OR026 | SYN | OR000+26 | F2531230 |
05252 | 1018 | OREDO | BSS | 1 | F2510190 |
05410 | 0 60100 0 05252 | 1923 | STO | OREDO | F2519230 | ||
05473 | 0 50000 0 05252 | 1974 | CLA | OREDO IS LEFT SUB A RELCON, | F2519740 | ||
05505 | 0 50000 0 05252 | 1984 | AC049B | CLA | OREDO | F2519840 | |
05523 | 0 50000 0 05252 | 1998 | AC064 | CLA | OREDO | F2519980 | |
05540 | 0 50000 0 05252 | 2011 | AC080 | CLA | OREDO | F2520110 | |
07146 | 0 50000 0 05252 | 2807 | CLA | OREDO CHECK TO SEE IT | F2528070 |
2861 | ************************************************************* | F2528610 | |||||
2862 | PREFACE TO OR0 EXAMINES VARIABLIITY OF X QUANTITY. | F2528620 | |||||
07226 | 0 50000 1 03652 | 2863 | PXOR0 | CLA | TAG2+3,1 IF X IS | F2528630 |
06644 | 0 07400 4 07226 | 2602 | TSX | PXOR0,4 C1 GREATER THAN 1. | F2526020 | ||
07050 | 0 07400 4 07226 | 2738 | PC21 | TSX | PXOR0,4 IS X CONSTANT. | F2527380 |
M | 05256 | 3109 | RTXAC | SYN | AC | F2531090 |
M | 00134 | 0 36100 1 07226 | 97 | B1 | ACL | RTXAC+1000,1 PROGRAM ON DRUM. | F2500980 |
M | 00143 | 0 70000 1 07226 | 104 | B2 | CPY | RTXAC+1000,1 | F2501050 |
M | 03727 | 0 07400 4 05256 | 226 | TSX | RTXAC,4 | F2502200 | |
M | 03772 | 0 70000 1 07226 | 264 | PGPG8 | CPY | RTXAC+1000,1 | F2502580 |
M | 03776 | 0 36100 1 07226 | 268 | PGPG10 | ACL | RTXAC+1000,1 | F2502620 |
05226 | 998 | SWICH | BSS | 1 | F2509990 |
04060 | 0 60100 0 05226 | 324 | STO | SWICH | F2503190 | ||
04073 | 0 50000 0 05226 | 335 | DOGS22 | CLA | SWICH | F2503300 | |
04132 | 0 50000 0 05226 | 366 | CLA | SWICH RECORD SWITCH | F2503610 | ||
04134 | 0 50000 0 05226 | 368 | DOGS50 | CLA | SWICH REVERSE SWITCH FOR | F2503630 | |
04137 | 0 60100 0 05226 | 371 | STO | SWICH | F2503660 |
03636 | 167 | WRKSC | BSS | 8 | F2501610 |
04232 | 0 60100 0 03637 | 444 | STO | WRKSC+1 AND COEF. IS SET | F2504390 | ||
04234 | 0 60100 0 03636 | 446 | STO | WRKSC A TAU TABLE ENTRY. | F2504410 | ||
04244 | 0 60100 4 03646 | 456 | SUB020 | STO | WRKSC+8,4 TO ZERO. | F2504510 | |
04264 | 0 70000 0 03636 | 472 | CPY | WRKSC WD1 IS C1 AND C2. | F2504670 | ||
04266 | 0 70000 0 03642 | 474 | CPY | WRKSC+4 WD5 IS C3. | F2504690 | ||
04267 | 0 70000 0 03637 | 475 | SUB040 | CPY | WRKSC+1 WD2 IS S1, | F2504700 | |
04271 | 0 70000 0 03641 | 477 | CPY | WRKSC+3 WD4 IS S2. | F2504720 | ||
04273 | 0 70000 0 03643 | 479 | CPY | WRKSC+5 WD6 IS S3. | F2504740 | ||
04274 | 0 70000 0 03644 | 480 | SUB050 | CPY | WRKSC+6 WD7 IS DIMENSI0N | F2504750 | |
04277 | −0 50000 0 03636 | 483 | CAL | WRKSC | F2504780 | ||
04300 | 0 36100 4 03645 | 484 | SUB070 | ACL | WRKSC+7,4 | F2504790 | |
04311 | 0 50000 4 03645 | 493 | SUB080 | CLA | WRKSC+7,4 | F2504880 | |
04314 | 0 60100 4 03645 | 496 | STO | WRKSC+7,4 WD1 DECREMENT IS C1) | F2504910 | ||
04317 | 0 60100 0 03640 | 499 | STO | WRKSC+2 | F2504940 | ||
04321 | 0 60100 0 03645 | 501 | SUB090 | STO | WRKSC+7 WD8 DECREMENT IS D2. | F2504960 | |
04426 | 0 20000 0 03636 | 585 | MPY | WRKSC S1, | F2505810 | ||
04432 | 0 20000 0 03640 | 589 | MPY | WRKSC+2 S2 | F2505850 | ||
04435 | 0 20000 0 03644 | 592 | MPY | WRKSC+6 GO TO CN1IJ8 TO DIVIDE | F2505880 | ||
04437 | 0 20000 0 03642 | 594 | CN1IJ4 | MPY | WRKSC+4 S3, | F2505900 | |
04442 | 0 20000 0 03644 | 597 | MPY | WRKSC+6 GO TO CN1IJ8 TO DIVIDE | F2505930 | ||
04444 | 0 20000 0 03645 | 599 | MPY | WRKSC+7 RETURN. | F2503950 | ||
04453 | 0 56000 0 03642 | 610 | LDQ | WRKSC+4 S3, LOAD C3. | F2506060 | ||
04456 | 0 56000 0 03636 | 613 | LDQ | WRKSC S1, LOAD C1. | F2506090 | ||
04460 | 0 56000 0 03640 | 615 | CXIJ1 | LDQ | WRKSC+2 S2, LOAD C2. | F2506110 | |
04464 | 0 20000 0 03644 | 619 | MPY | WRKSC+6 CX TIMES D1. | F2506150 | ||
04467 | 0 20000 0 03645 | 622 | MPY | WRKSC+7 CXD1 TIMES D2. | F2506180 | ||
06452 | 0 20000 0 03644 | 1682 | MPY | WRKSC+6 D1N3 FOR S2 OR S3. | F2516830 | ||
06455 | 0 20000 0 03645 | 1685 | MPY | WRKSC+7 D2D1N3 FOR S3. | F2516860 | ||
06462 | 0 20000 1 03644 | 1690 | MPY | WRKSC+6,1 CN3D1D2 OR CN3D1 OR CN3. | F2516910 | ||
05423 | 0 50000 0 03644 | 1934 | CLA | WRKSC+6 SYMBOL IN OR0+4 AND | F2519340 | ||
05432 | 0 56000 0 03644 | 1941 | LDQ | WRKSC+6 SYMBOL IN OR0+21 | F2519410 | ||
05433 | 0 20000 0 03645 | 1942 | MPY | WRKSC+7 AND | F2519420 | ||
05437 | 0 50000 0 03644 | 1946 | CLA | WRKSC+6 | F2519460 | ||
05464 | 0 50000 0 03637 | 1967 | CLA | WRKSC+1 | F2519670 | ||
06021 | 0 56000 0 03640 | 2188 | AC172 | LDQ | WRKSC+2 TES, SET UP | F2521880 | |
06022 | 0 20000 0 03644 | 2189 | MPY | WRKSC+6 CID1 AS G | F2521890 | ||
06025 | 0 50000 0 03636 | 2192 | CLA | WRKSC N3X POSITION. | F2521920 | ||
06301 | 0 50000 0 03636 | 2366 | CLA | WRKSC S1, | F2523660 | ||
06305 | 0 50000 0 03636 | 2370 | CLA | WRKSC SENSE LIGHT , ISOLATE C1. | F2523700 | ||
06307 | 0 56000 0 03644 | 2372 | CDOR03 | LDQ | WRKSC+6 ISOLATE D1. | F2523720 | |
06311 | 0 20000 0 03640 | 2374 | MPY | WRKSC+2 S2, FORM C2D1. | F2523740 | ||
06313 | 0 20000 0 03642 | 2376 | CDOR05 | MPY | WRKSC+4 S3, FORM | F2523760 | |
06315 | 0 20000 0 03645 | 2378 | MPY | WRKSC+7 | F2523780 | ||
06340 | 0 50000 0 03636 | 2402 | CLA | WRKSC S1 , IS | F2524020 | ||
06350 | 0 56000 0 03640 | 2410 | LDQ | WRKSC+2 YES, FOR C2D1. | F2524100 | ||
06351 | 0 20000 0 03644 | 2411 | MPY | WRKSC+6 IF S2 IS A | F2524110 | ||
06360 | 0 50000 0 03636 | 2418 | CLA | WRKSC | F2524180 | ||
06367 | 0 56000 0 03642 | 2425 | AOR020 | LDQ | WRKSC+4 S3, FORM | F2524250 | |
06370 | 0 20000 0 03644 | 2426 | MPY | WRKSC+6 C3D1D2. | F2524260 | ||
06372 | 0 20000 0 03645 | 2428 | MPY | WRKSC+7 | F2524280 | ||
06404 | 0 56000 0 03640 | 2438 | LDQ | WRKSC+2 | F2524380 | ||
06405 | 0 20000 0 03644 | 2439 | MPY | WRKSC+6 | F2524390 | ||
06415 | 0 50000 0 03636 | 2447 | CLA | WRKSC | F2524470 | ||
06436 | 0 56000 0 03640 | 2465 | LDQ | WRKSC+2 COMPUTE G AS | F2524650 | ||
06437 | 0 20000 0 03644 | 2466 | MPY | WRKSC+6 C2D1. PLACE | F2524660 | ||
06442 | 0 50000 0 03636 | 2469 | CLA | WRKSC | F2524690 | ||
06454 | 0 56000 0 03644 | 2480 | LDQ | WRKSC+6 FORM C3D1D2 AND | F2524800 | ||
06455 | 0 20000 0 03645 | 2481 | MPY | WRKSC+7 STORE-IN | F2524810 | ||
06457 | 0 20000 0 03642 | 2483 | MPY | WRKSC+4 FOR USE BY | F2524830 | ||
06466 | 0 56000 0 03644 | 2490 | LDQ | WRKSC+6 IF DUPES, FORM | F2524900 | ||
06467 | 0 20000 0 03640 | 2491 | MPY | WRKSC+2 C2D1, ADD TO | F2524910 | ||
06503 | 0 56000 0 03642 | 2504 | LDQ | WRKSC+4 COMPUTES C3D1D2, G1 | F2525040 | ||
06504 | 0 20000 0 03644 | 2505 | MPY | WRKSC+6 AND C2D1, G2 IF DUP. | F2525050 | ||
06506 | 0 20000 0 03645 | 2507 | MPY | WRKSC+7 110 C1 ADDED TO G2. | F2525070 | ||
06511 | 0 56000 0 03640 | 2510 | LDQ | WRKSC+2 | F2525100 | ||
06512 | 0 20000 0 03644 | 2511 | MPY | WRKSC+6 | F2525110 | ||
06523 | 0 50000 0 03636 | 2520 | CLA | WRKSC | F2525200 | ||
06527 | 0 50000 0 03636 | 2524 | DOR010 | CLA | WRKSC | F2525240 | |
06564 | 0 50000 0 03636 | 2554 | CLA | WRKSC N3,NU = 1, | F2525540 | ||
06573 | 0 50000 0 03636 | 2561 | CLA | WRKSC ASSIGN SYMBOL | F2525610 | ||
06611 | 0 50000 0 03636 | 2575 | CLA | WRKSC OR CLA N2, SUB N1. | F2525750 | ||
06635 | 0 50000 0 03636 | 2595 | CLA | WRKSC FOR C1. | F2525950 | ||
06650 | 0 50000 0 03636 | 2606 | CLA | WRKSC COMPILE | F2526060 | ||
06654 | 0 50000 0 03636 | 2610 | EOR010 | CLA | WRKSC | F2526100 | |
06670 | 0 20000 0 03636 | 2622 | MPY | WRKSC | F2526220 | ||
06755 | 0 50000 0 03636 | 2679 | CLA | WRKSC | F2526790 | ||
06764 | 0 50000 0 03636 | 2686 | PCI21 | CLA | WRKSC | F2526860 | |
06774 | 0 50000 0 03636 | 2694 | CLA | WRKSC | F2526940 | ||
06777 | 0 50000 0 03636 | 2697 | CLA | WRKSC NO, OBTAIN | F2526970 | ||
07056 | 0 50000 0 03636 | 2744 | CLA | WRKSC INSTRUCTIONS | F2527440 | ||
07167 | 0 50000 1 03643 | 2824 | BITP30 | CLA | WRKSC+5,1 RELCON S SYMBOL FROM WRKSC. | F2528240 | |
07175 | 0 50000 1 03644 | 2833 | COSE5 | CLA | WRKSC+6,1 ISOLATE COEFFIEIENT, | F2528330 | |
07202 | 0 50000 1 03644 | 2838 | CLA | WRKSC+6,1 ASS1GN FIXCON SYMBOL | F2528380 |
05153 | +000000003777 | 955 | 11BITS | OCT | 3777 | F2509560 |
05330 | −0 32000 0 05153 | 1070 | ANA | 11BITS NAME IN ACCUMULATOR AND | F2510710 | ||
05535 | −0 32000 0 05153 | 1203 | ANA | 11BITS NAME AND | F2512040 | ||
06105 | −0 32000 0 05153 | 1435 | ANA | 11BITS FILL OUT | F2514360 | ||
05335 | −0 32000 0 05153 | 1880 | ANA | 11BITS LAY OUT TAU ENTRIES | F2518800 |
D | 00207 | 3 00000 1 00175 | 143 | ADTG38 | TXH | ADTG32,1 TEST FOR END OF TABLE. | F2501380 |
00170 | −0 63400 1 00207 | 128 | ADTG30 | SXD | ADTG38,1 MAX CURRENT TABLE SIZE. | F2501230 | |
00172 | 3 00617 1 00210 | 130 | TXH | ADTG38+1,1,399 RETURN IF TABLE DEPLETED. | F2501250 | ||
00206 | 1 77777 2 00207 | 142 | ADTG34 | TXI | ADTG38,2,−1 | F2501370 |
109 | **00 | F2501090 | |||||
110 | ************************************************************ | F2506930 | |||||
111 | ADTGDM READS THE ADTAG TABLE FROM DRUM 3 INTO CORES. | F2506940 | |||||
00150 | 0 50000 0 05133 | 112 | ADTGDM | CLA | L(0) INITIALIZE ERROR INDICATOR | F2506950 |
00070 | 0 07400 4 00150 | 58 | TSX | ADTGDM,4 READ ADTAG ENTRIES | F2500590 |
03466 | 3118 | ADTGMX | SYN | ADTG+400 | F2531180 |
00156 | 0 70000 1 03466 | 118 | ADTG10 | CPY | ADTGMX,1 ADDRESS IS ORIGIN - MAX WORDS | F2501130 | |
00160 | 0 70000 1 03467 | 120 | CPY | ADTGMX+1,1 | F2501150 | ||
00161 | 0 40200 1 03466 | 121 | SUB | ADTGMX,1 | F2501160 | ||
00162 | 0 70000 1 03470 | 122 | CPY | ADTGMX+2,1 | F2501170 | ||
00164 | 0 70000 1 03471 | 124 | CPY | ADTGMX+3,1 | F2501190 | ||
00175 | −0 50000 1 03466 | 133 | ADTG32 | CAL | ADTGMX,1 | F2501280 | |
00176 | 0 36100 1 03467 | 134 | ACL | ADTGMX+1,1 | F2501290 | ||
00177 | 0 36100 1 03470 | 135 | ACL | ADTGMX+2,1 | F2501300 | ||
00200 | 0 36100 1 03471 | 136 | ACL | ADTGMX+3,1 | F2501310 | ||
04523 | 0 50000 1 03466 | 660 | ADTGS5 | CLA | ADTGMX,1 COMPARE ADTG DDA WITH | F2506560 | |
04534 | 0 50000 1 03466 | 669 | CLA | ADTGMX,1 IN RANGE, FILL | F2506650 | ||
04541 | 0 50000 1 03467 | 674 | CLA | ADTGMX+1,1 | F2506700 | ||
04546 | 0 50000 1 03470 | 679 | CLA | ADTGMX+2,1 | F2506750 | ||
04550 | 0 50000 1 03471 | 681 | CLA | ADTGMX+3,1 | F2506770 |
652 | ************************************************************* | F2506480 | |||||
653 | ADTGSE FINDS A VALID DRMTG (ADTAG) ENTRY FOR CONSIDERATION | F2506490 | |||||
654 | AND SPREADS IT INTO WORKING TAG (WRKSC). | F2506500 | |||||
04516 | −0 53400 1 05237 | 655 | ADTGSE | LXD | XTG,1 | F2506510 |
05716 | 0 07400 4 04516 | 1316 | RTX184 | TSX | ADTGSE,4 SEARCH FOR ADTAG. | F2513170 | |
06204 | 0 07400 4 04516 | 1498 | RTX264 | TSX | ADTGSE,4 FIND VALID TAG, FILL OUT TAG WDS. | F2514990 | |
06250 | 0 07400 4 04516 | 2339 | AC244 | TSX | ADTGSE,4 FIND VALID ADTG ENTRY. | F2523390 |
05123 | +377777777777 | 931 | ALLONE | OCT | 377777777777 | F2509320 |
00157 | 0 50000 0 05123 | 119 | CLA | ALLONE FENCE FOR TABLE END | F2501140 | ||
03703 | 0 50000 0 05123 | 206 | CLA | ALLONE INITIALIZE | F2502000 | ||
04046 | 0 40200 0 05123 | 311 | SUB | ALLONE END OF NEST INDICATOR | F2503060 | ||
05270 | 0 50000 0 05123 | 1037 | CLA | ALLONE INITIALIZE | F2510380 | ||
05304 | 0 50000 0 05123 | 1855 | AC05 | CLA | ALLONE INITIALIZE CIL WORDS | F2518550 |
06430 | 0 53400 1 05130 | 2458 | AOR040 | LXA | L(4),1 COMPILE LDQ,MPY, STD. | F2524580 |
06113 | 0 60100 0 06430 | 2246 | STO | AOR040 | F2522460 | ||
06234 | 0 60100 0 06430 | 2327 | STO | AOR040 LXD L(2),1. | F2523270 | ||
D | 06346 | −3 00000 0 06430 | 2408 | AOR05 | TXL | AOR040,0 | F2524080 |
06366 | 0 02000 0 06430 | 2424 | TRA | AOR040 | F2524240 | ||
06423 | 0 02000 0 06430 | 2453 | TRA | AOR040 | F2524530 |
05250 | 1016 | BLKNUM | BSS | 1 | F2510170 |
04477 | −0 53400 4 05250 | 637 | LXD | BLKNUM,4 | F2506330 | ||
05436 | −0 63400 2 05250 | 1140 | SXD | BLKNUM,2 | F2511410 | ||
05467 | −0 63400 2 05250 | 1165 | SXD | BLKNUM,2 BLOCK IS C, PUT IN XB. | F2511660 | ||
05526 | −0 63400 2 05250 | 1196 | SXD | BLKNUM,2 STORE BLOCK NUMBER D. | F2511970 | ||
05601 | −0 63400 2 05250 | 1239 | RTX140 | SXD | BLKNUM,2 BLOCK E | F2512400 | |
05637 | −0 53400 4 05250 | 1269 | LXD | BLKNUM,4 APPEAR LIKE BLOCK C SO | F2512700 | ||
05641 | −0 63400 4 05250 | 1271 | RTX152 | SXD | BLKNUM,4 PROPERLY INTO DOTAG. | F2512720 | |
05652 | −0 53400 4 05250 | 1280 | LXD | BLKNUM,4 CHANGE BLKNUM | F2512810 | ||
05654 | −0 63400 4 05250 | 1282 | SXD | BLKNUM,4 TO C AND | F2512830 | ||
05656 | −0 53400 4 05250 | 1284 | LXD | BLKNUM,4 | F2512850 | ||
05660 | −0 63400 4 05250 | 1286 | SXD | BLKNUM,4 | F2512870 | ||
06526 | −0 53400 4 05250 | 1739 | LXD | BLKNUM,4 DOTAG WORD 7. APPROPRIATE | F2517400 | ||
06560 | −0 53400 2 05250 | 1768 | LXD | BLKNUM,2 | F2517690 |
1693 | ************************************************************* | F2516940 | |||||
1694 | CIL023 FILLS OUT THE LOCATION, ADDRESS, AND TAG NAME WORDS FO | F2516950 | |||||
1695 | FOR NON-LOCATION COMPILED INSTRUCTIONS ADDRESSING THE FOLLOWI | F2516960 | |||||
1696 | ING INSTRUCTIONS | F2516970 | |||||
06465 | 0 50000 0 05133 | 1697 | CIL023 | CLA | L(0) ROUTINE PLACES SPECIAL | F2516980 |
05400 | 0 07400 4 06465 | 1110 | TSX | CIL023,4 OUT-4 WORDS OF | F2511110 | ||
06176 | 0 07400 4 06465 | 1492 | RTX246 | TSX | CIL023,4 | F2514930 | |
06520 | 0 07400 4 06465 | 1733 | TSX | CIL023,4 ERTX02, | F2517340 | ||
06542 | 0 07400 4 06465 | 1751 | TSX | CIL023,4 | F2517520 |
2787 | ************************************************************* | F2527870 | |||||
2788 | CIL03I FILLS OUT LOCATION AND TAG NAME WORDS FOR COMPILED INS | F2527880 | |||||
2789 | TRUCTIONS WITHOUT LOCATIONS. | F2527890 | |||||
07131 | 0 50000 0 05133 | 2790 | CIL03I | CLA | L(0) PLACE 0 IN LOCATION | F2527900 |
05167 | 0 07400 4 07131 | 967 | INST14 | TSX | CIL03I,4 | F2509680 | |
05361 | 0 07400 4 07131 | 1900 | TSX | CIL03I,4 FILL OUT LOCATION AND TG WORDS. | F2519000 | ||
05466 | 0 07400 4 07131 | 1969 | TSX | CIL03I,4 FILL OUT | F2519690 | ||
05554 | 0 07400 4 07131 | 2023 | AC096 | TSX | CIL03I,4 COMPILE | F2520230 | |
05755 | 0 07400 4 07131 | 2152 | TSX | CIL03I,4 INSTRUCTIONS | F2521520 |
1818 | ************************************************************* | F2518190 | |||||
1819 | CILNAM ENTERS ONLY THE TAG NAME. | F2518200 | |||||
06634 | 0 50000 0 03652 | 1820 | CILNAM | CLA | TAG3 THIS ROUTINE | F2518210 |
06036 | 0 07400 4 06634 | 1396 | TSX | CILNAM,4 ENTER TAG NAME IN CIL03. | F2513970 | ||
06047 | 0 07400 4 06634 | 1405 | TSX | CILNAM,4 ENTER TAG NAME. | F2514060 |
05241 | 3111 | CPYWD1 | SYN | ER40 | F2531110 |
04615 | 0 70000 0 05241 | 725 | FC08 | CPY | CPYWD1 ENTRY FROM TABLE. | F2507260 | |
04637 | 0 60100 0 05241 | 743 | FC40 | STO | CPYWD1 SEARCH ENDED, ENTRY NOT FOUND. | F2507440 | |
04651 | 0 70000 0 05241 | 753 | CPY | CPYWD1 WRITE NEW CONSTANT | F2507540 | ||
04652 | 0 70000 0 05241 | 754 | CPY | CPYWD1 AND CHECK SUM ON DRUM. | F2507550 | ||
04662 | 0 50000 0 05241 | 762 | FC60 | CLA | CPYWD1 TEST DRUM READING | F2507630 |
A | 00124 | 0 00000 0 00000 | 86 | CPYWD3 | HTR | F2500870 |
00034 | 0 70000 0 00124 | 27 | CPY | CPYWD3 DO TAG REC COUNT | F2500280 | ||
00035 | 0 70000 0 00124 | 28 | CPY | CPYWD3 DO TAG REC COUNT | F2500290 | ||
00041 | −0 53400 1 00124 | 32 | LXD | CPYWD3,1 | F2500330 | ||
00051 | 0 70000 0 00124 | 40 | CPY | CPYWD3 TAGTAG RECORD COUNT | F2500410 | ||
00073 | 0 70000 0 00124 | 61 | CPY | CPYWD3 WORD COUNT OF FIXCON | F2500620 | ||
00075 | 0 50000 0 00124 | 63 | CLA | CPYWD3 | F2500640 | ||
00100 | 0 50000 0 00124 | 66 | CLA | CPYWD3 | F2500670 | ||
00136 | 0 60200 0 00124 | 99 | SLW | CPYWD3 | F2501000 | ||
00142 | 0 70000 0 00124 | 103 | CPY | CPYWD3 | F2501040 | ||
00201 | 0 60200 0 00124 | 137 | SLW | CPYWD3 | F2501320 | ||
00202 | 0 50000 0 00124 | 138 | CLA | CPYWD3 | F2501330 |
05142 | +077777000000 | 946 | DECMSK | OCT | 077777000000 | F2509470 |
03752 | −0 32000 0 05142 | 245 | ANA | DECMSK | F2502390 | ||
04313 | −0 32000 0 05142 | 495 | ANA | DECMSK | F2504900 | ||
04524 | −0 32000 0 05142 | 661 | ANA | DECMSK DOTAG A AND B UNTIL | F2506570 | ||
05701 | −0 32000 0 05142 | 1303 | ANA | DECMSK OF CURRENT DO. | F2513040 | ||
07305 | −0 32000 0 05142 | 2917 | ANA | DECMSK FOR FIRST COMPILED | F2529170 | ||
07340 | −0 32000 0 05142 | 2944 | ANA | DECMSK | F2529440 |
04134 | 0 50000 0 05226 | 368 | DOGS50 | CLA | SWICH REVERSE SWITCH FOR | F2503630 |
04077 | −0 10000 0 04134 | 339 | TNZ | DOGS50 CONTINUE, ALREADY ANALYZED | F2503340 | ||
04106 | −0 10000 0 04134 | 346 | TNZ | DOGS50 ALREADY ANALYZED, CONTINUE | F2503410 | ||
04120 | 0 02000 0 04134 | 356 | TRA | DOGS50 T-B1 CONTINUE | F2503510 | ||
04123 | 0 02000 0 04134 | 359 | TRA | DOGS50 T-A CONTINUE | F2503540 |
01076 | 3119 | DOTAGZ | SYN | DOTAG+450 | F2531190 |
03662 | 0 32000 2 01104 | 189 | MAN03 | ANS | DOTAGZ+6,2 T1 WORD MUST HAVE | F2501830 | |
03721 | 0 50000 2 01076 | 220 | CLA | DOTAGZ,2 | F2502140 | ||
04015 | 0 70000 2 01076 | 284 | TDOTG4 | CPY | DOTAGZ,2 | F2502790 | |
04066 | 0 50000 1 01103 | 330 | CLA | DOTAGZ+5,1 ANALYZED DOTAG ENTRY | F2503250 | ||
04075 | 0 50000 1 01076 | 337 | CLA | DOTAGZ,1 A PORTION UNDER CONSIDERATION | F2503320 | ||
04100 | 0 50000 1 01076 | 340 | CLA | DOTAGZ,1 SETS UP A PORTION OF | F2503350 | ||
04104 | 0 50000 1 01076 | 344 | DOGS25 | CLA | DOTAGZ,1 B PORTION UNDER CONSIDERATION | F2503390 | |
04107 | 0 50000 1 01076 | 347 | CLA | DOTAGZ,1 SET UP A IN | F2503420 | ||
04151 | −0 60200 1 01076 | 381 | DOGS70 | ORS | DOTAGZ,1 | F2503760 | |
04231 | 0 50000 2 01077 | 443 | CLA | DOTAGZ+1,2 PLACED IN WRKSC | F2504380 | ||
04423 | 0 56000 2 01100 | 582 | CN1IJ | LDQ | DOTAGZ+2,2 N2 INTO MQ. | F2505770 | |
04447 | 0 50000 2 01103 | 606 | CXIJ | CLA | DOTAGZ+5,2 | F2506020 | |
04504 | 0 50000 4 01076 | 642 | CLA | DOTAGZ,4 FOR BLOCKS B,C, FILL IN | F2506380 | ||
04571 | 0 50000 2 01076 | 701 | CLA | DOTAGZ,2 ISOLATE | F2507020 | ||
04676 | 0 50000 2 01100 | 778 | 0P2P | CLA | DOTAGZ+2,2 IF NOT DEFINED BY | F2507790 | |
04701 | 0 50000 2 01100 | 781 | CLA | DOTAGZ+2,2 IF CONSTANT, COMPUTE | F2507820 | ||
04742 | 0 50000 2 01076 | 817 | CLA | DOTAGZ,2 ARE ALL | F2508180 | ||
04746 | 0 50000 2 01101 | 821 | CLA | DOTAGZ+3,2 YES, | F2508220 | ||
04747 | 0 40200 2 01100 | 822 | SUB | DOTAGZ+2,2 FORM | F2508230 | ||
04771 | 0 50000 2 01101 | 840 | CLA | DOTAGZ+3,2 N2 VARIABLE, | F2508410 | ||
04776 | 0 50000 2 01101 | 845 | OP32 | CLA | DOTAGZ+3,2 | F2508460 | |
05013 | 0 50000 2 01076 | 858 | CLA | DOTAGZ,2 | F2508590 | ||
05017 | 0 50000 2 01100 | 862 | CLA | DOTAGZ+2,2 N1IS VARIABLE, | F2508630 | ||
05024 | 0 50000 2 01100 | 867 | OP34 | CLA | DOTAGZ+2,2 N1 CONSTANT, | F2508680 | |
05261 | 0 50000 2 01076 | 1030 | CLA | DOTAGZ,2 ALPHA BETA WORD OF DO. | F2510310 | ||
05416 | 0 50000 2 01103 | 1124 | CLA | DOTAGZ+5,2 OCCURRANCE. | F2511250 | ||
05431 | 0 50000 2 01077 | 1135 | CLA | DOTAGZ+1,2 PUT FORVAR SUBSCRIPT | F2511360 | ||
05665 | −0 60200 2 01104 | 1291 | ORS | DOTAGZ+6,2 | F2512920 | ||
05674 | 0 50000 2 01106 | 1298 | CLA | DOTAGZ+8,2 HAS AN S THAT IS THE TEST. | F2512990 | ||
05754 | 0 50000 2 01076 | 1346 | CLA | DOTAGZ,2 IS ENTERED IN A DRUM TABLE. | F2513470 | ||
06003 | 0 50000 2 01101 | 1369 | CLA | DOTAGZ+3,2 | F2513700 | ||
06026 | 0 50000 2 01101 | 1388 | CLA | DOTAGZ+3,2 PTCH06 CALLS TELC ROUTINE | F2513890 | ||
06056 | −0 60200 2 01106 | 1412 | ORS | DOTAGZ+8,2 VARIABLE DECREMENT. | F2514130 | ||
06061 | −0 60200 2 01104 | 1415 | ORS | DOTAGZ+6,2 TEST. | F2514160 | ||
06236 | 0 50000 2 01076 | 1529 | CLA | DOTAGZ,2 THE N3 BIT SO THAT | F2515300 | ||
06260 | 0 50000 2 01106 | 1549 | CLA | DOTAGZ+8,2 | F2515S00 | ||
06447 | 0 56000 2 01102 | 1679 | CN3IJ | LDQ | DOTAGZ+4,2 COMPUTES DECREMENT AND | F2516800 | |
06535 | −0 60200 2 01104 | 1746 | EDCB20 | ORS | DOTAGZ+6,2 PLACE LOC. INTO WD 7. | F2517470 | |
06566 | −0 60200 1 01104 | 1774 | ORS | DOTAGZ+6,1 | F2517750 | ||
06576 | −0 60200 1 01104 | 1782 | BCDE8 | ORS | DOTAGZ+6,1 | F2517830 | |
06620 | 0 50000 2 01076 | 1802 | NBITS | CLA | DOTAGZ,2 ROUTINE FOR ISOLATING | F2518030 | |
05260 | 0 50000 2 01104 | 1835 | CLA | DOTAGZ+6,2 PLACE | F2518350 | ||
05266 | 0 50000 2 01076 | 1841 | CLA | DOTAGZ,2 ERTX01 FOR | F2518410 | ||
05451 | −0 50000 1 01100 | 1956 | CAL | DOTAGZ+2,1 ISOLATE N1. | F2519560 | ||
05454 | −0 50100 1 01100 | 1959 | ORA | DOTAGZ+2,1 IF EITHER N1 IS GREATER | F2519590 | ||
05462 | 0 50000 1 01100 | 1965 | CLA | DOTAGZ+2,1 S1 (BCD). | F2519650 | ||
05500 | 0 50000 2 01100 | 1979 | CLA | DOTAGZ+2,2 YES, IS N1(S1)=1. | F2519790 | ||
05601 | 0 50000 2 01106 | 2044 | AC116 | CLA | DOTAGZ+8,2 ISOLATE | F2520440 | |
05613 | 0 50000 2 01101 | 2054 | AC120 | CLA | DOTAGZ+3,2 THIS IS TEST TAG, | F2520540 | |
05616 | 0 50000 2 01106 | 2057 | CLA | DOTAGZ+8,2 IF RIGHT TEST HAS VARIABLE DECREMENT | F2520570 | ||
05622 | 0 50000 2 01101 | 2061 | AC128 | CLA | DOTAGZ+3,2 | F2520610 | |
05627 | 0 56000 2 01104 | 2066 | AC138 | LDQ | DOTAGZ+6,2 CONSTANT N2 CASE. | F2520660 | |
05633 | 0 50000 2 01101 | 2070 | CLA | DOTAGZ+3,2 YES, ISOLATE N2. | F2520700 | ||
05640 | 0 50000 2 01106 | 2075 | CLA | DOTAGZ+8,2 DOES TEST | F2520750 | ||
05707 | 0 50000 2 01106 | 2114 | CLA | DOTAGZ+8,2 | F2521140 | ||
05750 | 0 50000 2 01103 | 2147 | CLA | DOTAGZ+5,2 WITHIN THE CURRENT DO. | F2521470 | ||
05761 | 0 50000 2 01077 | 2156 | CLA | DOTAGZ+1,2 VALUE | F2521560 | ||
06077 | 0 50000 2 01102 | 2234 | ACI21 | CLA | DOTAGZ+4,2 THIS DO. | F2522340 | |
06121 | 0 50000 2 01102 | 2252 | CLA | DOTAGZ+4,2 TIX DECREMENT. | F2522520 | ||
06124 | 0 50000 2 01100 | 2255 | CLA | DOTAGZ+2,2 N3 = 1, DOES | F2522550 | ||
06127 | 0 50000 2 01101 | 2258 | CLA | DOTAGZ+3,2 N3, N1=1. | F2522580 | ||
06175 | 0 50000 2 01102 | 2296 | CLA | DOTAGZ+4,2 | F2522960 | ||
06200 | 0 50000 2 01100 | 2299 | CLA | DOTAGZ+2,2 YES, DOES N1= 1. | F2522990 | ||
06203 | 0 50000 2 01101 | 2302 | CLA | DOTAGZ+3,2 G,N3,N1 = 1, | F2523020 | ||
06327 | 0 50000 2 01076 | 2393 | CLA | DOTAGZ,2 BY COMBINING TETLOC | F2523930 | ||
06334 | 0 50000 2 01102 | 2398 | CLA | DOTAGZ+4,2 | F2523980 | ||
06553 | 0 50000 2 01103 | 2545 | CLA | DOTAGZ+5,2 IS | F2525450 | ||
06556 | 0 50000 2 01102 | 2548 | CLA | DOTAGZ+4,2 X NOT COMPUTABLE, | F2525480 | ||
06561 | 0 50000 2 01100 | 2551 | CLA | DOTAGZ+2,2 N3=1, IS | F2525510 | ||
06567 | 0 50000 2 01101 | 2557 | CLA | DOTAGZ+3,2 N3, N1, C1 = 1 . | F2525570 | ||
06571 | 0 50000 2 01101 | 2559 | EOR01 | CLA | DOTAGZ+3,2 ISOLATE | F2525590 | |
06705 | 0 50000 2 01076 | 2639 | CLA | DOTAGZ,2 | F2526390 | ||
06714 | 0 50000 2 01076 | 2646 | CLA | DOTAGZ,2 IS N3 FOR THIS DO | F2526460 | ||
06720 | 0 50000 2 01102 | 2650 | CLA | DOTAGZ+4,2 YES, | F2526500 | ||
06731 | 0 56000 2 01102 | 2659 | PC10 | LDQ | DOTAGZ+4,2 N3 C0NSTANT, PUT | F2526590 | |
06741 | 0 50000 2 01102 | 2667 | CLA | DOTAGZ+4,2 DOES N3 = 1. | F2526670 | ||
06744 | 0 50000 2 01103 | 2670 | CLA | DOTAGZ+5,2 YES, IS X CONST. | F2526700 | ||
06750 | 0 50000 2 01100 | 2674 | CLA | DOTAGZ+2,2 NO, IS N1 = 1. | F2526740 | ||
06753 | 0 50000 2 01101 | 2677 | CLA | DOTAGZ+3,2 YES, DOES C1 = 1, | F2526770 | ||
07032 | 0 50000 2 01100 | 2724 | CLA | DOTAGZ+2,2 IS N1 = 1 | F2527240 | ||
07037 | 0 50000 2 01101 | 2729 | PCI32 | CLA | DOTAGZ+3,2 COMPILE | F2527290 | |
07117 | 0 50000 2 01076 | 2777 | CLA | DOTAGZ,2 CURRENT | F2527770 | ||
07165 | 0 50000 2 01100 | 2822 | BITP20 | CLA | DOTAGZ+2,2 DOSUB, N2. | F2528220 | |
07214 | 0 56000 2 01104 | 2851 | LDQ | DOTAGZ+6,2 SXD | F2528510 | ||
07221 | 0 50000 2 01076 | 2856 | CLA | DOTAGZ,2 PUT TXL | F2528560 | ||
07230 | 0 50000 2 01103 | 2865 | CLA | DOTAGZ+5,2 LEFT IN THE | F2528650 | ||
07233 | 0 50000 2 01103 | 2868 | CLA | DOTAGZ+5,2 | F2528680 | ||
07240 | 0 50000 2 01076 | 2875 | CLA | DOTAGZ,2 | F2528750 | ||
07256 | 0 50000 2 01100 | 2889 | CLA | DOTAGZ+2,2 | F2528890 | ||
07304 | 0 50000 2 01076 | 2916 | CLA | DOTAGZ,2 OF LOCATION WORD | F2529160 |
05063 | 0 00000 0 00314 | 899 | DRADS2 | 204 | F2509000 |
03743 | 0 70000 0 05063 | 238 | CPY | DRADS2 | F2502320 | ||
03744 | 0 70000 0 05063 | 239 | CPY | DRADS2 | F2502330 | ||
05275 | 0 46000 0 05063 | 1848 | LDA | DRADS2 ENTRY | F2518480 | ||
05301 | 0 50000 0 05063 | 1852 | CLA | DRADS2 RESET DRUM | F2518520 | ||
05303 | 0 60100 0 05063 | 1854 | STO | DRADS2 NEXT ENTRY. | F2518540 |
05064 | 0 00000 0 00002 | 900 | DRADS3 | 2 | F2509010 |
03746 | 0 70000 0 05064 | 241 | CPY | DRADS3 | F2502350 | ||
03747 | 0 70000 0 05064 | 242 | CPY | DRADS3 | F2502360 | ||
05761 | 0 46000 0 05064 | 1351 | LDA | DRADS3 WORD | F2513520 | ||
05764 | 0 50000 0 05064 | 1354 | CLA | DRADS3 DOCAR | F2513550 | ||
05766 | 0 60100 0 05064 | 1356 | STO | DRADS3 TABLE. | F2513570 |
05245 | 3110 | ERAOR0 | SYN | ERTX01 | F2531100 |
06353 | 0 60100 0 05245 | 2413 | STO | ERAOR0 | F2524130 | ||
06361 | 0 40000 0 05245 | 2419 | ADD | ERAOR0 | F2524190 | ||
06362 | 0 60100 0 05245 | 2420 | STO | ERAOR0 | F2524200 | ||
06363 | 0 50000 0 05245 | 2421 | AOR014 | CLA | ERAOR0 CONTAINS C2D1, ETC. | F2524210 | |
06374 | 0 60100 0 05245 | 2430 | STO | ERAOR0 | F2524300 | ||
06407 | 0 40000 0 05245 | 2441 | ADD | ERAOR0 | F2524410 | ||
06410 | 0 60100 0 05245 | 2442 | STO | ERAOR0 | F2524420 | ||
06416 | 0 40000 0 05245 | 2448 | ADD | ERAOR0 | F2524480 | ||
06417 | 0 60100 0 05245 | 2449 | STO | ERAOR0 | F2524490 | ||
06420 | 0 50000 0 05245 | 2450 | AOR024 | CLA | ERAOR0 | F2524500 |
05223 | 995 | ERORBX | BSS | 1 | F2509960 |
00151 | 0 60100 0 05223 | 113 | STO | ERORBX | F2506960 | ||
00211 | 0 50000 0 05223 | 145 | EROR | CLA | ERORBX IF ERROR IN A CHECK THE | F2501400 | |
00213 | 0 60100 0 05223 | 147 | STO | ERORBX THIS IS DONE FOUR TIMES AFTER | F2501420 | ||
03763 | −0 63400 4 05223 | 257 | ABDRM | SXD | ERORBX,4 STORE LINKAGE | F2ZA1510 | |
04010 | −0 53400 4 05223 | 278 | PGPG14 | LXD | ERORBX,4 | F2502720 |
05245 | 1013 | ERTX01 | BSS | 1 | F2510140 |
04410 | 0 60100 0 05245 | 568 | STO | ERTX01 | F2505630 | ||
04416 | 0 40000 0 05245 | 574 | ADD | ERTX01 . | F2505690 | ||
04417 | 0 60100 0 05245 | 575 | STO | ERTX01 (C1N1)+(C2N1-1)D1+(C3N1-1)D1D2. | F2505700 | ||
04472 | −0 63400 4 05245 | 632 | CSXD | SXD | ERTX01,4 ROUTINE FOR | F2506280 | |
04514 | −0 53400 4 05245 | 650 | LXD | ERTX01,4 | F2506460 | ||
05344 | 0 60100 0 05245 | 1082 | STO | ERTX01 AND STORES IN ERTX01. | F2510830 | ||
05362 | 0 40000 0 05245 | 1096 | ADD | ERTX01 FOR NEXT LEFT SUBSCR1PT. | F2510970 | ||
05363 | 0 60100 0 05245 | 1097 | STO | ERTX01 REPLACE ADJUSTED DECREMENT IN ERTX01. | F2510980 | ||
05374 | 0 40000 0 05245 | 1106 | ADD | ERTX01 IN 1,2,3 AND 1,3 CASES. | F2511070 | ||
05375 | 0 60100 0 05245 | 1107 | STO | ERTX01 FINAL DECREMENT ADJUSTMENT. | F2511080 | ||
05376 | 0 50000 0 05245 | 1108 | RTX66 | CLA | ERTX01 | F2511090 | |
05451 | 0 60100 0 05245 | 1151 | STO | ERTX01 STORE IN ERTX01. | F2511520 | ||
05460 | 0 40000 0 05245 | 1158 | ADD | ERTX01 ADDN3G FOR THIS SUBSCRIPT | F2511590 | ||
05461 | 0 60100 0 05245 | 1159 | STO | ERTX01 RESULT IS TXI DECREMENT. | F2511600 | ||
05507 | 0 60100 0 05245 | 1181 | STO | ERTX01 RESULT IS ERTX01. | F2511820 | ||
05517 | 0 40000 0 05245 | 1189 | ADD | ERTX01 STORE IN ERTX01. | F2511900 | ||
05520 | 0 60100 0 05245 | 1190 | STO | ERTX01 XN3G(L) + N3G(R) + N3G(C) - 1) | F2511910 | ||
05546 | 0 60100 0 05245 | 1212 | STO | ERTX01 DOSUB SUBSCRIPT. | F2512130 | ||
05560 | 0 40000 0 05245 | 1222 | ADD | ERTX01 DECREMENT ADJUSTMENT | F2512230 | ||
05561 | 0 60100 0 05245 | 1223 | STO | ERTX01 FOR X0X | F2512240 | ||
05573 | 0 40000 0 05245 | 1233 | ADD | ERTX01 YIELDING TXI | F2512340 | ||
05574 | 0 60100 0 05245 | 1234 | STO | ERTX01 DECREMENT. | F2512350 | ||
05605 | 0 60100 0 05245 | 1243 | STO | ERTX01 AND S2 INTO ERTX01 | F2512440 | ||
05610 | 0 40000 0 05245 | 1246 | ADD | ERTX01 THEN THE DECREMENT IS VARIABLE. | F2512470 | ||
05626 | 0 60100 0 05245 | 1260 | STO | ERTX01 IN ERTX01. | F2512610 | ||
05635 | 0 60100 0 05245 | 1267 | STO | ERTX01 BLOCK E, THE BLOCK | F2512680 | ||
05676 | 0 60100 0 05245 | 1300 | STO | ERTX01 TEST NAME. | F2513010 | ||
05702 | 0 40200 0 05245 | 1304 | SUB | ERTX01 IF THIS TAG IS | F2513050 | ||
06032 | 0 50000 0 05245 | 1392 | CLA | ERTX01 DEC, STORES IN ERTX01. | F2513930 | ||
06152 | 0 60100 0 05245 | 1472 | STO | ERTX01 XN3G IN ERTX01. | F2514730 | ||
06165 | 0 40000 0 05245 | 1483 | ADD | ERTX01 AND COMPUTE AND ADD | F2514840 | ||
06166 | 0 60100 0 05245 | 1484 | STO | ERTX01 DECREMENT ADJUSTMENT | F2514850 | ||
06167 | 0 50000 0 05245 | 1485 | RTX240 | CLA | ERTX01 PUT COMPUTED DE EREMTN | F2514860 | |
06516 | 0 50000 0 05245 | 1731 | CLA | ERTX01 ASSUMES DECREMENTS TO | F2517320 | ||
05274 | 0 60200 0 05245 | 1847 | SLW | ERTX01 TABLE | F2518470 | ||
05300 | 0 70000 0 05245 | 1851 | CPY | ERTX01 | F2518510 | ||
05347 | 0 50000 0 05245 | 1890 | CLA | ERTX01 VALUE | F2518900 | ||
05245 | 3110 | ERAOR0 | SYN | ERTX01 | F2531100 |
05246 | 1014 | ERTX02 | BSS | 1 | F2510150 |
05357 | 0 60100 0 05246 | 1093 | RTX61 | STO | ERTX02 STORE STATUS OF ACCUMULATOR. DUPES ARE | F2510940 | |
05366 | 0 50000 0 05246 | 1100 | CLA | ERTX02 LOW ORDER BIT IS SUBSCRIPT LEFT OF DOSUB. | F2511010 | ||
05457 | 0 60100 0 05246 | 1157 | STO | ERTX02 | F2511580 | ||
05503 | 0 60100 0 05246 | 1177 | STO | ERTX02 SUBSCRIPT. | F2511780 | ||
05506 | 0 40000 0 05246 | 1180 | ADD | ERTX02 SUBSCRIPT. | F2511810 | ||
05542 | 0 60100 0 05246 | 1208 | STO | ERTX02 CENTER SUBSCRIPT. | F2512090 | ||
05566 | 0 40000 0 05246 | 1228 | ADD | ERTX02 FOR CENTER | F2512290 | ||
05567 | 0 60100 0 05246 | 1229 | STO | ERTX02 SUBSCRIPT. | F2512300 | ||
05570 | 0 50000 0 05246 | 1230 | RTX126 | CLA | ERTX02 SUB1 AND | F2512310 | |
05572 | 0 60100 0 05246 | 1232 | STO | ERTX02 AND ERTX02 | F2512330 | ||
05621 | 0 60100 0 05246 | 1255 | STO | ERTX02 IN ERTX02. | F2512560 | ||
05625 | 0 40000 0 05246 | 1259 | ADD | ERTX02 PUT FIRST TXI DECREMENT | F2512600 | ||
05636 | 0 60100 0 05246 | 1268 | STO | ERTX02 NUMBER IS SET TO | F2512690 | ||
06540 | 0 50000 0 05246 | 1749 | CLA | ERTX02 COMPILE | F2517500 | ||
05246 | 3115 | ERDRM | SYN | ERTX02 | F2531150 |
D | 04165 | 3 00000 1 04170 | 400 | FIND10 | TXH | FIND20,1 DECREMENT CONTAINS TGTG COUNT. | F2503950 |
03666 | −0 63400 2 04165 | 193 | SXD | FIND10,2 SAVE COUNT OF TAGTAGS IN NEST | F2501870 | ||
04164 | 1 77774 1 04165 | 399 | FINDO4 | TXI | FIND10,1,−4 BUMP TO NEXT TGTG ENTRY. | F2503940 | |
04172 | 0 02000 0 04166 | 405 | TRA | FIND10+1 END OF DO. | F2504000 |
709 | ************************************************************* | F2507100 | |||||
710 | FIXCON SCANS THE FIXCON DRUM TABLE FOR A DESIRED SYMBOL FOR A | F2507110 | |||||
711 | FIXED POINT CONSTANT. IF THE DESIRED FIXCON IS NOT THERE A S | F2507120 | |||||
712 | SYMBOL IS CREATED FOR IT AND AN ENTRY IS MADE. | F2507130 | |||||
04601 | −0 63400 1 04634 | 713 | FIXCON | SXD | FC29,1 SAVE | F2507140 |
04707 | 0 07400 4 04601 | 787 | 0P2P1 | TSX | FIXCON,4 | F2507880 | |
04751 | 0 07400 4 04601 | 824 | TSX | FIXCON,4 OBTAIN FIXCON SYMBOL | F2508250 | ||
05000 | 0 07400 4 04601 | 847 | TSX | FIXCON,4 | F2508480 | ||
05026 | 0 07400 4 04601 | 869 | TSX | FIXCON,4 FIXCON SYMBOL | F2508700 | ||
05352 | 0 07400 4 04601 | 1893 | TSX | FIXCON,4 FIXCON. | F2518930 | ||
05424 | 0 07400 4 04601 | 1935 | TSX | FIXCON,4 D1 SYMBOL | F2519350 | ||
05435 | 0 07400 4 04601 | 1944 | TSX | FIXCON,4 D1D2 IN | F2519440 | ||
05440 | 0 07400 4 04601 | 1947 | TSX | FIXCON,4 OBTAIN SYMBOL FOR D1 | F2519470 | ||
05650 | 0 07400 4 04601 | 2083 | TSX | FIXCON,4 ASSIGN SYMBOL FOR | F2520830 | ||
05675 | 0 07400 4 04601 | 2104 | TSX | FIXCON,4 LDQ, MPY, ALS. | F2521040 | ||
06317 | 0 07400 4 04601 | 2380 | TSX | FIXCON,4 FOR G AND PUT | F2523800 | ||
06344 | 0 07400 4 04601 | 2406 | TSX | FIXCON,4 SYMBOL FOR C1. | F2524060 | ||
06364 | 0 07400 4 04601 | 2422 | TSX | FIXCON,4 ASSIGN SYMBOL FOR | F2524220 | ||
06421 | 0 07400 4 04601 | 2451 | TSX | FIXCON,4 ASSIGN SYMBOL FOR | F2524510 | ||
06574 | 0 07400 4 04601 | 2562 | TSX | FIXCON,4 FOR C1, AND | F2525620 | ||
06636 | 0 07400 4 04601 | 2596 | TSX | FIXCON,4 | F2525960 | ||
06655 | 0 07400 4 04601 | 2611 | TSX | FIXCON,4 | F2526110 | ||
06673 | 0 07400 4 04601 | 2625 | TSX | FIXCON,4 | F2526250 | ||
06723 | 0 07400 4 04601 | 2653 | TSX | FIXCON,4 MPY N3, (N3X POS.), | F2526530 | ||
06734 | 0 07400 4 04601 | 2662 | TSX | FIXCON,4 | F2526620 | ||
06765 | 0 07400 4 04601 | 2687 | TSX | FIXCON,4 COMPILE | F2526870 | ||
07000 | 0 07400 4 04601 | 2698 | TSX | FIXCON,4 SYMBOL FOR | F2526980 | ||
07030 | 0 07400 4 04601 | 2722 | TSX | FIXCON,4 ASSIGN SYMBOL FOR G | F2527220 | ||
07063 | 0 07400 4 04601 | 2749 | TSX | FIXCON,4 | F2527490 | ||
07074 | 0 07400 4 04601 | 2758 | TSX | FIXCON,4 COMPILE INSTRUCTIONS | F2527580 | ||
07106 | 0 07400 4 04601 | 2768 | TSX | FIXCON,4 | F2527680 | ||
07203 | 0 07400 4 04601 | 2839 | TSX | FIXCON,4 FOR C NOT = 1. STORE IN | F2528390 | ||
07262 | 0 07400 4 04601 | 2893 | TSX | FIXCON,4 | F2528930 |
07352 | 0 00000 0 07412 | 2955 | KLX02I | LXI05 | F2529550 |
05521 | 0 50000 0 07352 | 1996 | AC050I | CLA | KLX02I L(LXI03) | F2519960 | |
05701 | 0 50000 0 07352 | 2108 | CLA | KLX02I | F2521080 | ||
06640 | 0 50000 0 07352 | 2598 | CLA | KLX02I | F2525980 | ||
06767 | 0 50000 0 07352 | 2689 | CLA | KLX02I MPY LC1) | F2526890 | ||
07024 | 0 50000 0 07352 | 2718 | CLA | KLX02I | F2527180 | ||
07042 | 0 50000 0 07352 | 2732 | CLA | KLX02I ALS 17, | F2527320 |
05054 | 212424000000 | 892 | L(ADD) | BCD | 1ADD000 | F2508930 |
04720 | 0 50000 0 05054 | 796 | CLA | L(ADD) STO 1)+3. | F2507970 | ||
06136 | 0 50000 0 05054 | 2265 | CLA | L(ADD) COMPILE | F2522650 | ||
06212 | 0 50000 0 05054 | 2309 | CLA | L(ADD) COMPILE | F2523090 | ||
06614 | 0 50000 0 05054 | 2578 | CLA | L(ADD) NO, COMPILE | F2525780 | ||
07002 | 0 50000 0 05054 | 2700 | PCI22R | CLA | L(ADD) COMPILE | F2527000 |
05044 | 626346000000 | 884 | L(STO) | BCD | 1STO000 | F2508850 |
04730 | 0 50000 0 05044 | 804 | CLA | L(STO) | F2508050 | ||
05763 | 0 50000 0 05044 | 2158 | CLA | L(STO) THE | F2521580 | ||
06146 | 0 50000 0 05044 | 2273 | CLA | L(STO) | F2522730 | ||
06624 | 0 50000 0 05044 | 2586 | CLA | L(STO) EOR03. | F2525860 | ||
07012 | 0 50000 0 05044 | 2708 | CLA | L(STO) THEN GO | F2527080 |
05046 | 633167000000 | 886 | L(TIX) | BCD | 1TIX000 | F2508870 |
05670 | 0 50000 0 05046 | 1294 | CLA | L(TIX) COMPILE REMAINING INSTRC. | F2512950 | ||
06130 | 0 50000 0 05046 | 1454 | RTX232 | CLA | L(TIX) COMPILE TIX INSTRUCTION. | F2514550 | |
06536 | 0 50000 0 05046 | 1747 | CLA | L(TIX) COMPILE | F2517480 | ||
06612 | 0 50000 0 05046 | 1794 | CLA | L(TIX) INST. AND OPERATION PART | F2517950 |
881 | ************************************************************* | F2508820 | |||||
05042 | 636731000000 | 882 | L(TXI) | BCD | 1TXI000 | F2508830 |
05337 | 0 50000 0 05042 | 1077 | RTX52 | CLA | L(TXI) COMPILE | F2510780 | |
05410 | 0 50000 0 05042 | 1118 | CLA | L(TXI) REMAINING WORDS OF | F2511190 | ||
05647 | 0 50000 0 05042 | 1277 | CLA | L(TXI) | F2512780 | ||
05741 | 0 50000 0 05042 | 1335 | CLA | L(TXI) COMPILE | F2513360 | ||
06514 | 0 50000 0 05042 | 1729 | CLA | L(TXI) INSTRUCTIONS WHEN | F2517300 | ||
06553 | 0 50000 0 05042 | 1763 | CLA | L(TXI) PLACE OPERATION IN | F2517640 |
05222 | 994 | LOCIND | BSS | 1 | F2509950 |
03706 | 0 60100 0 05222 | 209 | STO | LOCIND | F2502030 | ||
04332 | 0 50000 0 05222 | 513 | LOC0 | CLA | LOCIND | F2505080 | |
04335 | 0 60100 0 05222 | 516 | STO | LOCIND | F2505110 | ||
05370 | 0 50000 0 05222 | 1907 | CLA | LOCIND TEST LOCATION INDICATOR. | F2519070 | ||
05373 | 0 60100 0 05222 | 1910 | STO | LOCIND A LOCATION MUST BE | F2519100 | ||
06260 | 0 50000 0 05222 | 2347 | CLA | LOCIND COMPILE AT LEAST | F2523470 | ||
07277 | 0 50000 0 05222 | 2911 | CLA | LOCIND TEST TO SEE IF | F2529110 | ||
07302 | 0 60100 0 05222 | 2914 | STO | LOCIND PLACE A IN | F2529140 |
02336 | 3124 | MXTGTG | SYN | TGTG+672 | F2531240 |
04033 | 0 70000 2 02336 | 300 | TTG05 | CPY | MXTGTG,2 | F2502950 | |
04045 | 0 50000 2 02336 | 310 | TTG11 | CLA | MXTGTG,2 FOR NEST END TEST | F2503050 | |
04155 | 0 34000 1 02336 | 389 | CAS | MXTGTG,1 ENTRY IN NEST | F2503840 | ||
04171 | 0 34000 1 02336 | 404 | CAS | MXTGTG,1 TGTG DOFOR DOTAG A. | F2503990 | ||
04213 | 0 50000 1 02336 | 427 | TGFM | CLA | MXTGTG,1 | F2504220 | |
04217 | 0 50000 1 02337 | 431 | CLA | MXTGTG+1,1 | F2504260 | ||
04223 | 0 50000 1 02340 | 435 | CLA | MXTGTG+2,1 | F2504300 | ||
04225 | 0 50000 1 02341 | 437 | CLA | MXTGTG+3,1 | F2504320 | ||
06610 | −0 60200 2 02341 | 1792 | ORS | MXTGTG+3,2 | F2517930 |
05235 | 1005 | N1N2N3 | BSS | 1 | F2510060 |
06002 | 0 60100 0 05235 | 1368 | STO | N1N2N3 | F2513690 | ||
06132 | 0 50000 0 05235 | 1456 | CLA | N1N2N3 TEST FOR VARIABLE DECREMENT, | F2514570 | ||
06623 | 0 60100 0 05235 | 1805 | STO | N1N2N3 | F2518060 | ||
07243 | 0 60100 0 05235 | 2878 | STO | N1N2N3 | F2528780 | ||
07254 | 0 56000 0 05235 | 2887 | XOR030 | LDQ | N1N2N3 | F2528870 |
689 | ************************************************************* | F2506830 | |||||
690 | N1STET ISOLATES VARIABLE N1 BITS FOR A TAG AND ORS THEM TO L | F2506860 | |||||
691 | LAST 3 BITS OF THE WORD N1SBX. | F2506870 | |||||
04560 | 0 50000 0 03653 | 692 | N1STET | CLA | TAG4 | F2506880 |
05343 | 0 07400 4 04560 | 1886 | AC020 | TSX | N1STET,4 | F2518860 |
05240 | 1008 | POSIND | BSS | 1 | F2510090 |
04201 | 0 60100 0 05240 | 412 | STO | POSIND | F2504070 | ||
05341 | 0 53400 1 05240 | 1079 | LXA | POSIND,1 PREPARE FOR | F2510800 | ||
05345 | 0 53400 1 05240 | 1083 | LXA | POSIND,1 | F2510830 | ||
05361 | 0 53400 1 05240 | 1095 | LXA | POSIND,1 COMPUTE DECREMENT ADJUSTMENT | F2510960 | ||
05447 | 0 53400 1 05240 | 1149 | LXA | POSIND,1 EXIT ROUTINE. | F2511500 | ||
05453 | 0 53400 1 05240 | 1153 | LXA | POSIND,1 MOVE POSIND T0 LEFT SUB | F2511540 | ||
05504 | 0 53400 1 05240 | 1178 | LXA | POSIND,1 THEN COMPUTE N3G | F2511790 | ||
05514 | 0 53400 1 05240 | 1186 | LXA | POSIND,1 DOSUB IS DUPE. | F2511870 | ||
05543 | 0 53400 1 05240 | 1209 | LXA | POSIND,1 PREPARE DOSUB SUBSCRIPT | F2512100 | ||
05555 | 0 53400 1 05240 | 1219 | LXA | POSIND,1 X0X BLOCK D. | F2512200 | ||
05622 | 0 53400 1 05240 | 1256 | LXA | POSIND,1 COMPUTE N3G | F2512570 | ||
05631 | 0 53400 1 05240 | 1263 | LXA | POSIND,1 COMPUTE XN3G FOR | F2512640 | ||
05722 | 0 60100 0 05240 | 1320 | STO | POSIND | F2513210 | ||
05776 | 0 60100 0 05240 | 1364 | STO | POSIND INDICATOR. | F2513650 | ||
06006 | 0 53400 1 05240 | 1372 | LXA | POSIND,1 | F2513730 | ||
06025 | 0 53400 1 05240 | 1387 | LXA | POSIND,1 ROUTINE T0 COMPUTE XGN3. | F2513880 | ||
06111 | 0 53400 4 05240 | 1439 | RTX230 | LXA | POSIND,4 | F2514400 | |
06147 | 0 53400 1 05240 | 1469 | RTX238 | LXA | POSIND,1 DECREMENT IS CONSTANT. | F2514700 | |
06210 | 0 60100 0 05240 | 1502 | STO | POSIND IN POSIND. | F2515030 | ||
06312 | −0 50100 0 05240 | 1578 | ORA | POSIND SHIFTED TO BE COMBINED | F2515790 | ||
06501 | 0 53400 1 05240 | 1714 | LXA | POSIND,1 | F2517150 | ||
06601 | 0 53400 1 05240 | 1785 | LXA | POSIND,1 OF TAG 4 WORD. | F2517860 |
05673 | −0 53400 2 05230 | 1297 | RTX160 | LXD | DOIND,2 FINDING S.C, WHICH | F2512980 |
05115 | 0 00000 0 05673 | 925 | INST24 | RTX160 | F2509260 | ||
05314 | 3 00004 2 05673 | 1058 | TXH | RTX160,2,4 BLOCK F, NO INSTRUCTIONS, GET NEW TAG. | F2510590 | ||
05414 | 0 12000 0 05673 | 1122 | TPL | RTX160 INDICATION | F2511230 | ||
05420 | 0 10000 0 05673 | 1126 | TZE | RTX160 NO FORVAR, CONTINUE. | F2511270 | ||
05434 | 0 02000 0 05673 | 1138 | TRA | RTX160 | F2511390 | ||
05463 | 0 02000 0 05673 | 1161 | TRA | RTX160 CHECK BEST TEST. | F2511620 | ||
05465 | 0 02000 0 05673 | 1163 | TRA | RTX160 | F2511640 | ||
05522 | 0 02000 0 05673 | 1192 | TRA | RTX160 | F2511930 | ||
05524 | 0 02000 0 05673 | 1194 | TRA | RTX160 | F2511950 | ||
05576 | 0 02000 0 05673 | 1236 | TRA | RTX160 END CHECK FOR TEST TAG. | F2512370 | ||
05600 | 0 02000 0 05673 | 1238 | TRA | RTX160 | F2512390 | ||
05643 | 0 02000 0 05673 | 1273 | TRA | RTX160 | F2512740 |
05221 | 993 | RTXTGX | BSS | 1 | F2509940 |
05301 | 0 60100 0 05221 | 1046 | STO | RTXTGX | F2510470 | ||
05305 | −0 63400 1 05221 | 1050 | RTXIN1 | SXD | RTXTGX,1 STORE FIRST TTG FOR TX CYCLE. | F2510510 | |
06063 | −0 53400 1 05221 | 1417 | RTX222 | LXD | RTXTGX,1 START SCAN FOR TIXING, | F2514180 | |
05313 | −0 63400 1 05221 | 1862 | SXD | RTXTGX,1 | F2518620 |
550 | ************************************************************* | F2505430 | |||||
551 | SCLMN1 ISOLATES THE INNERMOST DOTAG CONTROLLING A GIVEN TAG | F2505460 | |||||
04373 | −0 53400 1 03647 | 552 | SCLMN1 | LXD | TAG2,1 S1 INDEX QUANTITY. | F2505470 |
06070 | 0 07400 4 04373 | 1422 | RTX228 | TSX | SCLMN1,4 COMPARE LARGEST S INDES | F2514230 | |
05320 | 0 07400 4 04373 | 1867 | AC014 | TSX | SCLMN1,4 OBTAIN X FOR MINLEV OF S.C | F2518670 |
1612 | ************************************************************* | F2516130 | |||||
1613 | SEARCH IS CALLED BY PRES TO COMPARE CONSTANTS IN THE RX TABLE | F2516140 | |||||
1614 | AGAINST VARIOUS PERMUTATIONS OF AN ARGUMENT WORD. A MATCHING | F2516150 | |||||
1615 | COMPARISON MEANS THE CONSTANT WILL YIELD THE CORRECT BLOCK NU | F2316160 | |||||
1616 | NUMBER. | F2516170 | |||||
06354 | 0 50000 1 06450 | 1617 | SEARCH | CLA | RXTA+45,1 | F2516180 |
06330 | 0 07400 4 06354 | 1592 | TSX | SEARCH,4 SFARCHED. THEN 12,12,4. | F2515930 | ||
06336 | 0 07400 4 06354 | 1598 | PRES40 | TSX | SEARCH,4 | F2515990 | |
06344 | 0 07400 4 06354 | 1604 | PRES60 | TSX | SEARCH,4 | F2516050 | |
06352 | 0 07400 4 06354 | 1610 | PRES80 | TSX | SEARCH,4 | F2516110 | |
D | 06364 | 3 00000 1 06354 | 1625 | S3 | TXH | SEARCH,1 TEST FOR END OF BLOCK, | F2516260 |
448 | ************************************************************* | F2504430 | |||||
449 | SUBCOM SPREADS A TAU ENTRY INTO WORKING TAG | F2504440 | |||||
04236 | −0 63400 4 04320 | 450 | SUBCOM | SXD | SUB085,4 SAVE LINKAGE. | F2504450 |
05336 | 0 07400 4 04236 | 1076 | RTX51 | TSX | SUBCOM,4 LAY OUT TAU ENTRY. | F2510770 | |
05445 | 0 07400 4 04236 | 1147 | TSX | SUBCOM,4 LAY OUT TAU INTO WRKSC. | F2511480 | ||
05476 | 0 07400 4 04236 | 1172 | TSX | SUBCOM,4 ENTRY INTO WRKSC. | F2511730 | ||
05536 | 0 07400 4 04236 | 1204 | TSX | SUBCOM,4 LAY OUT TAU ENTRY.P | F2512050 | ||
05614 | 0 07400 4 04236 | 1250 | TSX | SUBCOM,4 WRKSC. | F2512510 | ||
06023 | 0 07400 4 04236 | 1385 | TSX | SUBCOM,4 LAY OUT TAU ENTRY. | F2513860 | ||
06106 | 0 07400 4 04236 | 1436 | TSX | SUBCOM,4 WRKSC AND | F2514370 | ||
05336 | 0 07400 4 04236 | 1881 | TSX | SUBCOM,4 | F2518810 | ||
05342 | 0 07400 4 04236 | 1885 | AC019 | TSX | SUBCOM,4 WRKSC AND CONTINUE | F2518850 |
A | 04327 | 0 00000 0 00000 | 507 | SUBES1 | HTR | F2505020 |
04253 | 0 60100 0 04327 | 463 | STO | SUBES1 TAU THREE ADD. IS ORG+7TAU. | F2504580 | ||
04257 | 0 40000 0 04327 | 467 | ADD | SUBES1 FOR LDA | F2504620 | ||
04262 | 0 62100 0 04327 | 470 | STA | SUBES1 ACTUAL DRUM ADDRESS. | F2504650 | ||
04263 | 0 46000 0 04327 | 471 | LDA | SUBES1 COPY SUB. COMBINATION | F2504660 | ||
04275 | 0 70000 0 04327 | 481 | SUB060 | CPY | SUBES1 CHECK-SUM INTO-SUBES1. | F2504760 | |
04304 | 0 40200 0 04327 | 488 | SUB | SUBES1 COMPLETE ROUTINE, RETURN. | F2504830 |
A | 04330 | 0 00000 0 00000 | 508 | SUBES2 | HTR | F2505030 |
04255 | 0 60100 0 04330 | 465 | STO | SUBES2 ADRRESS | F2504600 | ||
04260 | 0 40000 0 04330 | 468 | SUB030 | ADD | SUBES2 INSTRUCTION | F2504630 | |
04302 | 0 60200 0 04330 | 486 | SLW | SUBES2 TO READ SC CORRECTLY, | F2504810 | ||
04303 | 0 50000 0 04330 | 487 | CLA | SUBES2 IF ERROR STILL PRESENT, | F2504820 |
04324 | +000006001356 | 504 | SUBORG | OCT | 000006001356 DECREMENT IS 6, ADD. IS ORG. TAU3. | F2504990 |
04242 | −0 53400 4 04326 | 454 | LXD | SUBORG+2,4 INITIALIZE | F2504490 | ||
04256 | 0 50000 4 04327 | 466 | CLA | SUBORG+3,4 | F2504610 | ||
04276 | −0 53400 4 04324 | 482 | LXD | SUBORG,4 COMPUTE CHECK-SUM. | F2504770 | ||
04310 | −0 53400 4 04325 | 492 | SUB075 | LXD | SUBORG+1,4 REARRANGE C1,C2,D1, AND D2. | F2504870 |
05233 | 1003 | SWICH1 | BSS | 1 | F2510040 |
03702 | 0 60100 0 05233 | 205 | STO | SWICH1 | F2501990 | ||
03711 | 0 50000 0 05233 | 212 | CLA | SWICH1 IS APPROPR1ATE | F2502060 | ||
03716 | 0 50000 0 05233 | 217 | CLA | SWICH1 | F2502110 | ||
03764 | 0 53400 4 05233 | 258 | LXA | SWICH1,4 | F2502520 | ||
04064 | 0 50000 0 05233 | 328 | CLA | SWICH1 | F2503230 | ||
04133 | 0 60100 0 05233 | 367 | STO | SWICH1 | F2503620 | ||
04145 | 0 53400 2 05233 | 377 | LXA | SWICH1,2 | F2503720 |
05251 | 1017 | SXDTXZ | BSS | 1 | F2510180 |
05757 | 0 60100 0 05251 | 1349 | STO | SXDTXZ ENTER | F2513500 | ||
05762 | 0 70000 0 05251 | 1352 | CPY | SXDTXZ ONE | F2513530 | ||
05763 | 0 70000 0 05251 | 1353 | CPY | SXDTXZ INTO | F2513540 | ||
05270 | 0 60100 0 05251 | 1843 | STO | SXDTXZ | F2518430 | ||
05272 | −0 50000 0 05251 | 1845 | CAL | SXDTXZ MAKE | F2518450 | ||
05276 | 0 70000 0 05251 | 1849 | CPY | SXDTXZ ON | F2518490 |
2845 | ************************************************************* | F2528450 | |||||
2846 | TESTL0 OBTAINS THE TEST LOCATION TO BE THE SYMBOLIC ADDRESS O | F2528460 | |||||
2847 | OF THE STD INITIALIZING INSTRUCT10N, | F2528470 | |||||
07211 | 0 50000 2 03652 | 2848 | TESTL0 | CLA | TAG2+3,2 INITIALIZE INDEX | F2528480 |
05733 | 0 07400 4 07211 | 2134 | AC157 | TSX | TESTL0,4 | F2521340 |
05255 | 1021 | TETLOC | BSS | 1 | F2510220 |
05734 | 0 50000 0 05255 | 2135 | CLA | TETLOC IN TETL0. | F2521350 | ||
06010 | 0 60100 0 05255 | 2179 | STO | TETLOC LOC. OF TXI. | F2521790 | ||
06073 | 0 60100 0 05255 | 2230 | STO | TETLOC IN TETLOC WORD. | F2522300 | ||
06332 | −0 50100 0 05255 | 2396 | ORA | TETLOC | F2523960 | ||
06710 | −0 50100 0 05255 | 2642 | ORA | TETLOC IN OR0+14 | F2526420 | ||
07220 | 0 60100 0 05255 | 2855 | STO | TETLOC ADDRESS | F2528550 | ||
07224 | −0 60200 0 05255 | 2859 | ORS | TETLOC DECREMENT. | F2528590 |
05220 | 992 | TETTGX | BSS | 1 | F2509930 |
05277 | 0 60100 0 05220 | 1044 | STO | TETTGX INDEX FOR THIS DO TO ZERO. | F2510450 | ||
05705 | 0 60100 0 05220 | 1307 | STO | TETTGX IN TETTGX, | F2513080 | ||
05751 | −0 53400 1 05220 | 1343 | RTX195 | LXD | TETTGX,1 DETERMINE IF THIS DO HAS A TEST. | F2513440 | |
06125 | 0 50000 0 05220 | 1451 | CLA | TETTGX CARRY, SEE IF THIS | F2514520 |
3101 | ************************************************************* | F2531010 | |||||
3102 | F2531020 | ||||||
3103 | ************************************************************* | F2531030 | |||||
3104 | SYNONYMS | F2531040 | |||||
01242 | 3105 | ZEKSUM | SYN | TGTG+100 | F2531050 |
00166 | 0 70000 2 01242 | 126 | ADTG20 | CPY | ZEKSUM,2 CHECK SUM FOR DRMTAG. | F2501210 | |
00203 | 0 40200 2 01242 | 139 | SUB | ZEKSUM,2 | F2501340 |