1 MASTER RECORD CARD = FN058
2THE FOLLOWING PROGRAM CONSTITUTES THE SECOND SECTION OF THE F3B00010
3MERGE. IT PREPARES THE TIFGO FILE OF COMPILED INSTRUCTIONS F3B00020
4- I.E., THE INSTRUCTIONS WHICH ARE NEEDED TO COMPLETE THE F3800030
5TRANSLATION OF CONTR0L FORMULAS AS WELL AS THOSE WHICH BECOMEF3B00040
6NECESSARY AS A RESULT OF THE INTERRELATION BETWEEN CONTROL F3B00050
7FORMULAS AND DO FORMULAS - FOR LATER MERGING WITH THE FILE OFF3B00060
8INSTRUCTIONS CREATED IN THE FIRST SECTION OF THE MERGE F3B00070
00030 9ORG24 F3B00080
10POSITIONING OF TAPE 2, TAPE 3, TAPE 4 F3B00090
00030 0 53400 4 02274 11M20000 LXAM2CON,4 PLACE A ZERO IN IR 4 F3B00100
00031 1 00013 4 00032 12CDR1 TXIM20000+2,4,11 ADD 13 FOR SPACING TAPE TO TIFGO TABLE F3B00110
00032 0 76200 0 00222 13RDS146 POSITION TAPE 2 TO TIFGO TABLE, BY SPACING F3B00120
00033 2 00001 4 00032 14TIXM20000+2,4,1 OVER 7 RECORDS F3B00130
00034 0 77200 0 00223 15REW147 REWIND TAPE 3 F3B00140
00035 0 77200 0 00224 16REW148 REWIN0 TAPE 4 F3B00150
17PROGRAM TO READ TRASTO FROM DRUM F3B00160
00036 0 53400 4 02330 18LXAM2ECTR,4 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B00170
00037 0 76200 0 00303 19 RDRA2 RDR3 SELECT DRUM 3 F3B00180
00040 0 46000 0 02332 20LDAO456 LOCATE DRUM ADDRESS OF TRASTO F3B00190
00041 0 70000 0 02345 21CPYTRSWC WORD COUNT F3B00200
00042 0 70000 0 02346 22CPYWCCHS CHECK SUM F3B00210
00043 0 50000 0 02345 23CLATRSWC DOES WORD COUNT AGREE F3B00220
00044 0 40200 0 02346 24SUBWCCHS WITH ITS CHECK SUM F3B00230
00045 0 10000 0 00050 25TZERDRA1 YES F3B00240
00046 2 00001 4 00037 26TIXRDRA2,4,1 NO, TRY 4 MORE TIMES F3B00250
00047 0 07400 4 00004 27TSX4,4 WORD COUNT MOT EQUAL TO CHECK SUM F3B00260
00050 0 50000 0 02345 28 RDRA1 CLATRSWC ARE THERE ENTRIES IN TRASTO F3B00270
00051 0 10000 0 00321 29TZERTT00 NO F3B00280
00052 0 40000 0 02333 30ADDORTRST INITIAL LOCATION OF TRASTO WORK AREA F3B00290
00053 0 62100 0 00062 31STARDRB1 INITIALIZE ADDRESSES OF CPY INSTR. F3B00300
00054 0 62100 0 00070 32STARDRB2 F3B00310
00055 0 62100 0 00100 33STARDRB5 F3B00320
00056 0 53400 4 02330 34LXAM2ECTR,4 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B00330
00057 0 76200 0 00303 35RDRA3 RDR3 SELECT DRUM 3 F3B00340
00060 0 53400 1 02345 36LXATRSWC,1 PLACE WORD COUNT IN IR 1 F3B00350
00061 0 46000 0 02336 37LDAO460 INITIAL DRUM ADDRESS F3B00360
00062 0 70000 1 00000 38 RDRB1 CPY0,1 AND COPY ALL OF THE TRASTO F3B00370
00063 2 00001 1 00062 39TIXRDRB1,1,1 ENTRIES. F3B00380
00064 0 76000 0 00000 40CLM CLEAR ACC. F3B00390
00065 0 53400 1 02345 41LXATRSWC,1 NEW WORD COUNT IN IR 1 F3B00400
00066−3 00000 1 00074 42RDRB3 TXLRDRB4,1,0 CHECK COUNT DURING LOOP F3B00410
00067 0 53400 2 02331 43LXAL(3),2 PLACE COUNT OF 3 IN IR 2 IN ORDER TO F3B00420
00070 0 36100 1 00000 44 RDRB2 ACL0,1 ADD LOGICALLY EVERYTHREE TRASTO F3B00430
00071−2 00001 1 00074 45TNXRDRB4,1,1 WORDS, COUNT ALL ENTRIES F3B00440
00072 2 00001 2 00070 46TIXRDRB2,2,1 IR 2 USED TO COUNT EVERY THREE F3B00450
00073 1 77777 1 00066 47TXIRDRB3,1,−1 WORDS, SKIP OVER 4TH WORD. F3B00460
00074 0 60200 0 02347 48 RDRB4 SLWCHS1 AFTER ALL WORDS ARE COUNTED F3B00470
00075 0 76000 0 00000 49CLM CLEAR ACC F3B00480
00076 0 53400 1 02345 50LXATRSWC,1 WORD COUNT OF TRASTO ENTRIES F3B00490
00077 1 77775 1 00100 51TXIRDRB5,1,−3 ADD OLD CHECKS SUMS, AND F3B00500
00100 0 36100 1 00000 52 RDRB5 ACL0,1 ACCUMULATE SUM LOGICALLY F3B00510
00101 2 00004 1 00100 53TIXRDRB5,1,4 F3B00520
00102 0 60200 0 02350 54SLWCHS2 F3B00530
00103 0 50000 0 02347 55CLACHS1 COMPUTED CHECK SUM. F3B00540
00104 0 40200 0 02350 56SUBCHS2 DO CHECK SUMS MATCH F3B00550
00105 0 10000 0 00110 57TZESTRS YES F3B00560
00106 2 00001 4 00057 58TIXRDRA3,4,1 IF THE SUMS DONT AGREE, TRY 4 MORE TIMES F3B00570
00107 0 07400 4 00004 59COR3 TSX4,4 CHECK SUMS INCORRECT AFTER 5 TRIES F3B00580
60PROGRAM TO SORT TRASTO ENTRIES BY TYPE F3B00590
00110 0 50000 0 02345 61STRS CLATRSWC INITIALIZATION OF ALL MODIFIED ADDRESSES F3B00600
00111 0 40000 0 02333 62ADDTRSORG F3B00610
00112 0 62100 0 00135 63STAA4 F3B00620
00113 0 62100 0 00140 64STAA1 F3B00630
00114 0 62100 0 00144 65STAA3 F3B00640
00115 0 62100 0 00154 66STAB1 F3B00650
00116 0 62100 0 00162 67STAB5 F3B00660
00117 0 62100 0 00174 68STAC3 F3B00670
00120 0 62100 0 00204 69STAD2 F3B00680
00121 0 62100 0 00210 70STAD3 F3B00690
00122 0 62100 0 00220 71STAE2 F3B00700
00123 0 62100 0 00226 72STAE4 F3B00710
00124 0 62100 0 00240 73STAF3 F3B00720
00125−0 63400 0 02337 74SXD1BOX,0 CLEAR DECREMENT OF WORK AREA F3B00730
00126−0 63400 0 02340 75SXD2BOX,0 F3B00740
00127−0 63400 0 02341 76SXD3BOX,0 F3B00750
00130−0 63400 0 02342 77SXD4BOX,0 F3B00760
00131−0 63400 0 02343 78SXD5BOX,0 F3B00770
00132−0 63400 0 02344 79SXD6BOX,0 F3B00780
00133 0 53400 1 02345 80LXATRSWC,1 WORD COUNT IN IR 1 F3B00790
00134 1 77776 1 00135 81TXIA4,1,−2 F3B00800
00135 0 50000 1 00000 82 A4 CLA0,1 OBTAIN WORD 3, AND SEPARATE TYPES F3B00810
00136−0 12000 0 00203 83TMID1 ENTRY IS TYPE 4,5 OR 6, 3RD WD, MINUS F3B00820
84ENTRY IS TYPE 1, 2, OR 3 F3B00830
00137 1 00002 1 00140 85TXIA1,1,2 RESTORE LOOP COUNT F3B00840
00140 0 50000 1 00000 86 A1 CLA0,1 OBTAIN WORD 1 F3B00850
00141 0 12000 0 00153 87TPLB2 ENTRY IS TYPE 1 OR 2 P3B0D890
88ENTRY IS TYPE 3 F3B00870
00142 0 53400 4 02277 89LXAL(4),4 MINUS IN FIRST AND THIRD WDS. F3B00880
00143−0 53400 2 02341 90LXD3BOX,2 PLACE A COUNT OF 4 IN IR 4, F3B00890
00144−0 50000 1 00000 91 A3 CAL0,1 CLEAR IR 2, AND GET 1ST WD. IN ACC F3B00900
00145 0 60200 2 04030 92SLWTYPE3,2 PLACE IN PROPER MEMORY LOC. F3B00910
00146 1 77777 2 00147 93TXIA2,2,−1 SUB. 1 FROM IR 2, LOOP BACK F3B00920
00147−0 63400 2 02341 94 A2 SXD3BOX,2 TO GET 4 WORDS IN PROPER LOC. F3B00930
00150−2 00001 1 00247 95TNXPACK,1,1 EXIT FOR END OF TRASTO F3B00940
00151 2 00001 4 00144 96TIXA3,4,1 F3B00950
00152 1 77776 1 00135 97TXIA4,1,−2 PICK UP NEXT TRASTO ENTRY F3B00960
98ENTRY IS TYPE 1 OR 2 F3B00970
00153 1 77777 1 00154 99 B2 TXIB1,1,−1 F3B00980
00154−0 50000 1 00000 100 B1 CAL0,1 OBTAIN WORD 2 F3B00990
00155−0 32000 0 02335 101ANAMASK EXAMINE PREFIX, IF TYPE 2 HAS MINUS SIGN F3B01000
00156 0 10000 0 00171 102TZEC1 ENTRY IS TYPE 1 F3B01010
103ENTRY IS TYPE 2 F3B01020
00157 1 00001 1 00160 104TXIB3,1,1 RESTORE COUNT TO GET WORD 1 F3B01030
00160 0 53400 4 02277 105 B3 LXAL(4),4 COUNT 4 IN IR 4 F3B01040
00161−0 53400 2 02340 106LXD2BOX,2 CLEAR IR 2 F3B01050
00162−0 50000 1 00000 107 B5 CAL0,1 1ST WORD F3B01060
00163 0 60200 2 03210 108SLWTYPE2,2 PROPER OUTPUT AREA F3B01070
00164 1 77777 2 00165 109TXIB4,2,−1 DECREASE COUNT IN IR 2 BY -1 F3B01080
00165−0 63400 2 02340 110 B4 SXD2BOX,2 PLACE COUNT IN PROPER PLACE F3B01090
00166−2 00001 1 00247 111TNXPACK,1,1 EXIT F3B01100
00167 2 00001 4 00162 112TIXB5,4,1 F3B01110
00170 1 77776 1 00135 113TXIA4,1,−2 TRANSFER BACK TO SORT NEXT ENTRY F3B01120
114ENTRY IS TYPE 1 F3B01130
00171 1 00001 1 00172 115 C1 TXIC2,1,1 RESTORE COUNT TO GET WD 1. F3B01140
00172 0 53400 4 02277 116 C2 LXAL(4),4 F3B01150
00173−0 53400 2 02337 117LXD1BOX,2 F3B01160
00174−0 50000 1 00000 118 C3 CAL0,1 F3B01170
00175 0 60200 2 02370 119SLWTYPE1,2 STORE IN PROPER MEMORY P0SITION F3B01180
00176 1 77777 2 00177 120TXIC4,2,−1 F3B01190
00177−0 63400 2 02337 121 C4 SXD1BOX,2 SAVE COUNT OF TYPE 1 ENTRY F3B01200
00200−2 00001 1 00247 122TNXPACK,1,1 EXIT F3B01210
00201 2 00001 4 00174 123TIXC3,4,1 F3B01220
00202 1 77776 1 00135 124TXIA4,1,−2 BACK FOR NEXT ENTRY F3B01230
125ENTRY IS TYPE 4, 5 OR 6 F3B01240
00203 1 00002 1 00204 126 D1 TXID2,1,2 F3B01250
00204 0 50000 1 00000 127 D2 CLA0,1 OBTAIN WORD 1 F3B01260
00205 0 12000 0 00217 128TPLE1 ENTRY IS TYPE 4 OR 6 F3B01270
129ENTRY IS TYPE 5 F3B01280
00206 0 53400 4 02277 130LXAL(4),4 F3B01290
00207−0 53400 2 02343 131LXD5BOX,2 COUNT OF ENTRIES FOR TYPE 5 F3B01300
00210−0 50000 1 00000 132 D3 CAL0,1 F3B01310
00211 0 60200 2 05470 133SLWTYPE5,2 STORE IN PROPER MEMORY POS. F3B01320
00212 1 77777 2 00213 134TXID4,2,−1 F3B01330
00213−0 63400 2 02343 135 D4 SXD5BOX,2 SAVE COUNT FOR TYPE 1 ENTRY F3B01340
00214−2 00001 1 00247 136TNXPACK,1,1 EXIT F3B01350
00215 2 00001 4 00210 137TIXD3,4,1 F3B01360
00216 1 77776 1 00135 138TXIA4,1,−2 OBTAIN NEXT TRASTO ENTRY F3B01370
139ENTRY IS TYPE 4 OR 6 F3B01380
00217 1 77777 1 00220 140 E1 TXIE2,1,−1 F3B01390
00220−0 50000 1 00000 141 E2 CAL0,1 OBTAIN WORD 2 F3B01400
00221−0 32000 0 02335 142ANAMASK TEST IF MINUS F3B01410
00222 0 10000 0 00235 143TZEF1 ENTRY IS TYPE 4 F3B01420
144ENTRY IS TYPE 6 F3B01430
00223 1 00001 1 00224 145TXIE3,1,1 RESTORE COUNT TO GET WORD 1 F3B01440
00224 0 53400 4 02277 146 E3 LXAL(4),4 F3B01450
00225−0 53400 2 02344 147LXD6BOX,2 F2B01460
00226−0 50000 1 00000 148 E4 CAL0,1 F3B01470
00227 0 60200 2 06310 149SLWTYPE6,2 STORE IN PROPER MEMORY POS F3B01480
00230 1 77777 2 00231 150TXIE5,2,−1 F3B01490
00231−0 63400 2 02344 151 E5 SXD6BOX,2 SAVE COUNT FOR TYPE 6 ENTRY F3B01500
00232−2 00001 1 00247 152TNXPACK,1,1 EXIT F3B01510
00233 2 00001 4 00226 153TIXE4,4,1 F3B01520
00234 1 77776 1 00135 154TXIA4,1,−2 OBTAIN NEXT TRASTO ENTRY F3B01530
155ENTRY IS TYPE 4 F3B01540
00235 1 00001 1 00236 156 F1 TXIF2,1,1 F3B01550
00236 0 53400 4 02277 157 F2 LXAL(4),4 F3B01560
00237−0 53400 2 02342 158LXD4BOX,2 F3B01570
00240−0 50000 1 00000 159 F3 CAL0,1 F3B01580
00241 0 60200 2 04650 160SLWTYPE4,2 STORE IN PROPER MEMORY POS F3B01590
00242 1 77777 2 00243 161TXIF4,2,−1 F3B01600
00243−0 63400 2 02342 162 F4 SXD4BOX,2 SAVE COUNT FOR TYPE 4 ENTRY F3B01610
00244−2 00001 1 00247 163TNXPACK,1,1 EXIT F3B01620
00245 2 00001 4 00240 164TIXF3,4,1 F3B01630
00246 1 77776 1 00135 165TXIA4,1,−2 OBTAIN NEXT TRASTO ENTRIES F3B01640
166TYPE 2 TO TRASTO F3B01650
00247−0 53400 1 02337 167 PACK LXD1BOX,1 PACK TRASTO ENTRIES T0 GETHER F3B01660
00250−0 53400 4 02340 168LXD2BOX,4 IN MEMORY IN ORDER OF TYPES 1 THRU F3B01670
00251−3 00000 4 00261 169TXLH5,4,0 6. F3B01680
00252−0 53400 2 02274 170LXDL(0),2 F3B01690
00253−0 50000 2 03210 171 G4 CALTYPE2,2 F3B01700
00254 0 60200 1 02370 172SLWTYPE1,1 F3801710
00255 1 77777 1 00256 173TXIG1,1,−1 F3B01720
00256 1 77777 2 00257 174 G1 TXIG2,2,−1 F3801730
00257 1 00001 4 00260 175 G2 TXIG3,4,1 F3B01740
00260 3 00000 4 00253 176 G3 TXHG4,4,0 INDEX C REDUCES T0 ZERO F3B01750
177TYPE 3 TO TRASTO F3B01760
00261−0 53400 2 02341 178 H5 LXD3BOX,2 F3B01770
00262−3 00000 2 00271 179TXLI5,2,0 F3B01780
00263−0 50000 4 04030 180 H4 CALTYPE3,4 F3B01790
00264 0 60200 1 02370 181SLWTYPE1,1 F3B01800
00265 1 77777 1 00266 182TXIH1,1,−1 F3B01810
00266 1 77777 4 00267 183 H1 TXIH2,4,−1 F3B01820
00267 1 00001 2 00270 184 H2 TXIH3,2,1 F3B01830
00270 3 00000 2 00263 185 H3 TXHH4,2,0 F3B01840
186TYPE 4 TO TRASTO F3B01850
00271−0 53400 4 02342 187 I5 LXD4BOX,4 F3801860
00272−3 00000 4 00301 188TXLJ5,4,0 - F3B01870
00273−0 50000 2 04650 189 I4 CALTYPE4,2 F3B01880
00274 0 60200 1 02370 190SLWTYPE1,1 F3B01890
00275 1 77777 1 00276 191TXII1,1,−1 F3B01900
00276 1 77777 2 00277 192 I1 TXII2,2,−1 F3B01910
00277 1 00001 4 00300 193 I2 TXII3,4,1 F3B01920
00300 3 00000 4 00273 194 I3 TXHI4,4,0 F3B01930
195TYPE 5 TO TRASTO F3B01940
00301−0 53400 2 02343 196 J5 LXD5BOX,2 F3D01950
00302−3 00000 2 00311 197TXLK5,2,0 F3B01960
00303−0 50000 4 05470 198 J4 CALTYPE5,4 F3B01970
00304 0 60200 1 02370 199SLWTYPE1,1 F3B01980
00305 1 77777 1 00306 200TXIJ1,1,−1 F3B01990
00306 1 77777 4 00307 201 J1 TXIJ2,4,−1 F3B02000
00307 1 00001 2 00310 202 J2 TXIJ3,2,1 F3B02010
00310 3 00000 2 00303 203 J3 TXHJ4,2,0 F3B02020
204TYPE 6 TO TRASTO F3B02030
00311−0 53400 4 02344 205 K5 LXD6BOX,4 F3B02040
00312−3 00000 4 00321 206TXLCALL,4,0 F3B02050
00313−0 50000 2 06310 207 K4 CALTYPE6,2 F3B02060
00314 0 60200 1 02370 208SLWTYPE1,1 F3B02070
00315 1 77777 1 00316 209TXIK1,1,−1 F3B02080
00316 1 77777 2 00317 210 K1 TXIK2,2,−1 F3B02090
00317 1 00001 4 00320 211 K2 TXIK3,4,1 F3B02100
00320 3 00000 4 00313 212 K3 TXHK4,4,0 F3B02110
213PROGRAM TO READ TIFGO TABLE F3B02120
00321−0 76000 0 00012 214 RTT00 RTT TURN OFF TAPE CHECK INDICATOR AND LITES F3B02130
00321 215CALL SYNRTT00 F3B02140
00322 0 76100 0 00000 216NOP F3B02150
00323 0 53400 2 02330 217LXAM2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B02160
00324 0 76200 0 00222 218 RTTD3 RTB2 SELECT TAPE 2 T0 READ TIFGO F3B02170
00325 0 70000 0 05471 219CPYTIFGO−1 F3B02180
00326 0 50000 0 05471 220CLATIFGO−1 IDENTIFICATION FOR TIFGO TABLE F3B02190
00327 0 40200 0 02276 221SUBL(2) IS TABLE CALLED FOR F3B02200
00330 0 10000 0 00332 222TZERTTD1 YES F3B02210
00331 0 07400 4 00004 223TSX4,4 NOT TIFGO FILE F3B02220
00332 0 70000 0 05471 224 RTTD1 CPYTIFGO−1 GET WORD COUNT F3B02230
00333 0 53400 1 02274 225LXAL(0),1 F3B02240
00334 0 50000 0 05471 226CLATIFGO−1 TEST WD. COUNT F3B02250
00335 0 10000 0 00342 227TZERTTD5 NO TIFGO ENTRIES F3B02260
00336 0 70000 1 05472 228 RTTD2 CPYTIFGO,1 COPY F3B02270
00337 1 77777 1 00336 229TXIRTTD2,1,−1 LOOP F3B02280
00340 0 07400 4 00004 230TSX4,4 EOF INCORRECT F3B02290
00341 0 76600 0 00333 231IOD EOR F3B02300
00342−0 76000 0 00012 232 RTTD5 RTT IS TAPE CHECK ON F3B02310
00343 0 02000 0 00346 233TRARTTD4 YES F3B02320
00344−0 63400 1 05471 234SXDTIFGO−1,1 NO F3B02330
00345 0 02000 0 00351 235TRARTTE1 TO READ TRAD TABLE F3B02340
00346 0 76400 0 00202 236 RTTD4 BST2 F3B02350
00347 2 00001 2 00324 237TIXRTTD3,2,1 F3B02360
00350 0 07400 4 00004 238COR4 TSX4,4 ERROR READING TIFGO TABLE AFTER 5 TRIES F3B02370
239PROGRAM T0 READ TRAD TABLE F3B02380
00351 0 53400 2 02330 240RTTE1 LXAM2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B02390
00352 0 76200 0 00222 241 RTTE5 RTB2 READ TRAD TABLE FROM TAPE 2 F3B02400
00353 0 70000 0 06766 242CPYTRAD−1 IDENTIFICATION NUMBER F3B02410
00354 0 50000 0 06766 243CLATRAD−1 F3B02420
00355 0 40200 0 02331 244SUBL(3) IS TABLE CALLED FOR F3B02430
00356 0 10000 0 00360 245TZERTTE2 YES F3B02440
00357 0 07400 4 00004 246TSX4,4 TRAD TABLE NOT CALLED FOR F3B02450
00360 0 70000 0 06766 247 RTTE2 CPYTRAD−1 GET WORD COUNT F3B02460
00361 0 50000 0 06766 248CLATRAD−1 TEST WORD COUNT FOR NUMBER OF ENTRIES F3B02470
00362 0 10000 0 00370 249TZERTTE6 F3B02480
00363 0 53400 1 02274 250LXAL(0),1 F3B02490
00364 0 70000 1 06767 251 RTTE3 CPYTRAD,1 COPY TRAD ENTRIES AND GET 2S COMP. F3B02500
00365 1 77777 1 00364 252TXIRTTE3,1,−1 OF NUMBER OF ENTRIES. F3B02510
00366 0 07400 4 00004 253TSX4,4 EOF INCORRECT F3B02520
00367 0 76600 0 00333 254IOD EOR F3B02530
00370−0 76000 0 00012 255 RTTE6 RTT IS TAPE CHECK ON F3B02540
00371 0 02000 0 00373 256TRARTTE4 YES F3B02550
00372 0 02000 0 00376 257TRARTTC0 NO F3B02560
00373 0 76400 0 00202 258 RTTE4 BST2 ERROR ROUTINE FOR READING TRAD F3B02570
00374 2 00001 2 00352 259TIXRTTE5,2,1 ENTRIES F3B02580
00375 0 07400 4 00004 260COR5 TSX4,4 AFTER 5 TRIES F3B02590
261PROGRAM T0 READ TRALEV F3B02600
00376 0 76000 0 00000 262 RTTC0 CLM CLEAR ACCUMULATOR F3B02610
00377 0 60200 0 03210 263SLWTRALEV−1 SET WORD PRECEDING ENTRIES T0 ZERO F3B02620
00400 0 53400 2 02330 264RTTC4 LXAM2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B02630
00401 0 76200 0 00224 265 RTTC2 RTB4 READ TRALEV ENTRIES FROM TP. 4 F3B02640
00402 0 70000 0 03211 266CPYTRALEV IDENTIFICATION F3B02650
00403−0 76000 0 00012 267RTT IS TAPE CHECK ON F3B02660
00404 0 02000 0 00406 268TRARTTC1 YES F3B02670
00405 0 02000 0 00411 269TRARTTC3 NO F3B02680
00406 0 76400 0 00204 270 RTTC1 BST4 ERROR ROUTINE FOR READING TRALEV F3B02690
00407 2 00001 2 00401 271TIXRTTC2,2,1 F3B02700
00410 0 07400 4 00004 272COR6 TSX4,4 AFTER 5 TRIES F3B02710
00411 0 50000 0 03211 273 RTTC3 CLATRALEV IS TRALEV EMPTY F3B02720
00412 0 10000 0 00450 274TZEOUT YES F3B02730
00413 0 53400 2 02330 275LXAM2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B02740
00414−0 53400 1 02305 276 RTTA3 LXDM2CON+9,1 RESET IR 1 T0 ALL ONES F3B02750
00415 0 70000 1 03211 277 RTTA1 CPYTRALEV,1 COPY LOOP. ADD COUNT TO READ ADDRESS F3B02760
00416 1 77777 1 00415 278TXIRTTA1,1,−1 F3B02770
00417 0 07400 4 00004 279TSX4,4 EOF INCORRECT F3B02780
00420 0 76600 0 00333 280IOD EOR F3B02790
00421−0 76000 0 00012 281RTT IS TAPE CHECK ON F3B02800
00422 0 02000 0 00424 282TRARTTA2 YES F3B02810
00423 0 02000 0 00431 283TRARTTB1 NO F3B02820
00424 0 76400 0 00204 284 RTTA2 BST4 BACKSPACE TAPE 4 F3B02830
00425 0 76200 0 00224 285RTB4 READ AGAIN F3B02840
00426 0 70000 0 03211 286CPYTRALEV GET WORD COUNT F3B02850
00427 2 00001 2 00414 287TIXRTTA3,2,1 TRY AGAIN T0 READ IN ENTRIES F3B02860
00430 0 07400 4 00004 288COR7 TSX4,4 ERROR READING TAPE 4 F3B02870
00431−0 63400 1 00442 289 RTTB1 SXDRTTB4,1 SAVE WORD COUNT OF FIRST RECORD, 2S COMP, F3B02880
00432 0 53400 2 02330 290LXAM2ECTR,2 LOAD COUNT OF 5 FOR ERROR ROUTINE F3B02890
00433 0 76200 0 00224 291 RTTB5 RTB4 F3B02900
00434−0 53400 1 00442 292LXDRTTB4,1 REPLACE COUNT IN IR 1 OF FIRST RECORD F3B02910
00435 0 70000 1 03211 293 RTTB2 CPYTRALEV,1 COPY SECOND RECORD ETC, IN PROPER PLACE F3B02920
00436 1 77777 1 00435 294TXIRTTB2,1,−1 SUBTRACT 1 FROM COUNT F3B02930
00437 0 02000 0 00447 295TRARTTB6 EOF F3B02940
00440 0 76600 0 00333 296IOD EOR F3B02950
00441−0 76000 0 00012 297RTT IS TAPE CHECK ON F3B02960
D00442−3 00000 1 00444 298 RTTB4 TXLRTTB3,1 YES, COMPARE TO WORD COUNT OF FIRST F3B02970
00443 0 02000 0 00447 299TRARTTB6 RECORD, NO. F3B02980
00444 0 76400 0 00204 300 RTTB3 BST4 F3B02990
00445 2 00001 2 00433 301TIXRTTB5,2,1 F3B03000
00446 0 07400 4 00004 302COR8 TSX4,4 ERROR TRYING T0 READ TRALEV FROM TAPE 4 F3B03010
00447−0 63400 1 03210 303 RTTB6 SXDTRALEV−1,1 SAVE TRALEV WORD COUNT F3B03020
00450 0 50000 0 02345 304 OUT CLATRSWC TIFGO WORD COUNT. F3BD3030
00451 0 76000 0 00006 305COM F3B03040
00452 0 40000 0 02275 306ADDM2CON+1 2S COMPLIMENT OF WORD COUNT F3B03050
00453 0 73400 1 00000 307PAX0,1 IN IR 1 F3B03060
00454−0 63400 1 02367 308SXDCTRSWC,1 SAVE WORD COUNT F3B03070
00455−0 53400 1 02314 309LXDM2CON+16,1 PLACE 5 IN IR 1 F3B03080
00456 0 76200 0 00222 310 RDS RDS146 MOVE UP TAPE 2, 3 FILES TO TIFGO F3B03090
00457 0 70000 0 02366 311 CPY CPYM2CW+4 FILE F3B03100
00460 0 02000 0 00457 312TRACPY F3B03110
00461 0 02000 0 00463 313TRATIX END OF RECORD F3B03120
00462 0 02000 0 00456 314TRARDS F3B03130
00463 2 00001 1 00456 315TIX TIXRDS,1,1 F3B03140
00464 0 77200 0 00224 316 REW REW148 TAPE.4 REWOUND F3B03150
00465 0 76000 0 00000 317CLM SET ACC. TO ZERO F3B03160
00466 0 60200 0 02345 318SLWTIFFN REPLACE INDEX COUNTERS F3B03170
00467 0 60200 0 02346 319SLWCTRAST CELLS TO ZEROS F3B03180
00470 0 60200 0 02347 320SLWETRAL F3B03190
00471 0 60200 0 02350 321SLWLEVN0 F3B03200
00472 0 60200 0 02331 322SLWCBOX F3B03210
00473 0 60200 0 02355 323SLWBBOX F3B03220
00474 0 60200 0 02332 324SLWL0X F3B03230
00475 0 60200 0 07324 325SLWASN0 F3B03240
00476 0 60200 0 07323 326SLWEASC0 F3B03250
00477 0 60200 0 02356 327SLWETRAST F3B03260
00500 0 60200 0 02357 328SLWNETRAL F3B03270
00501 0 60200 0 07322 329SLWTFRC0 F3B03280
00502 0 53400 1 02274 330LXAM2CON,1 INITIALIZE IR 1 TO ZERO F3B03290
331M2 MAIN PROGRAM- TIFGO FMLA NO NOT IN F3B03300
332TRALEV F3B03310
00503−0 75400 1 00000 333M21000 PXD0,1 TEST T0 SEE IF AT END OF TIFGO F3B03320
00504 0 40200 0 05471 334SUBTIFGO−1 N0. OF TIFGO ENTRIES F3B03330
00505 0 10000 0 00751 335TZEM21900 END OF TIFGO F3B03340
00506 0 50000 1 05472 336CLATIFGO,1 FIRST WD. OF TIFGO ENTRY, F3B03350
00507 0 62200 0 02345 337STDTIFFN SAVE INTERNAL FMLA. NO. F3B03360
00510−0 12000 0 00514 338TMIM21010 SIGNIFIES AN IF F3B03370
00511−0 32000 0 02306 339ANAM2CON+10 TEST DIFFERTENT TYPES F3B03380
00512 0 40200 0 02300 340SUBM2CON+4 F3B03390
00513 0 10000 0 00730 341TZEM21600 TIFGO ENTRY AN ASSIGN F3B03400
00514 0 50000 0 02347 342M21010 CLAETRAL DETERMINE CURRENT TIFGO ENTRY F3B03410
00515 0 40200 0 03210 343SUBTRALEV−1 FOR CORRESPONDING TRALEV ENTRY F3B03420
00516 0 10000 0 00523 344TZEM21020 END OF TRALEV F3B03430
00517−0 53400 2 02347 345LXDETRAL,2 IR 2, CURRENT TRALEV ENTRY F3B03440
00520 0 50000 2 03211 346CLATRALEV,2 TRALEV, FMLA WD. F3B03450
00521 0 40000 0 02345 347ADDTIFFN TIFGO FMLA NO. F3803460
00522 0 10000 0 00776 348TZEM22000 T1FG0 ENTRY IN TRALEV F3B03470
00523 0 50000 1 05472 349M21020 CLATIFGO,1 F3B03480
00524−0 12000 0 00672 350TMIM21800 TIFGO ENTRY AN IF(E) F3B03490
00525−0 32000 0 02306 351ANAM2CON+10 F3B03500
00526 0 10000 0 00536 352TZEM21030 TIFGO ENTRY A GO TO A F3B03510
00527 0 34000 0 02277 353CASM2CON+3 F3B03520
00530 1 77777 1 00650 354TXIM21500,1,−1 TIFGO ENTRY AN IF OVERFLOW F3B03530
00531 1 77777 1 00625 355TXIM21400,1,−1 TIFGO ENTRY AN IF DIVCK F3B03540
00532 0 34000 0 02276 356CASM2CON+2 F3B03550
00533 1 77777 1 00602 357TXIM21300,1,−1 TIFGO ENTRY AN IF SENSE F3B03560
00534 1 77777 1 00550 358TXIM21100,1,−1 TIFGO ENTRY A GO TO (A),1 F3B03570
00535 1 77776 1 00503 359TXIM21000,1,−2 TIFGO ENTRY A GO TO N(A) F3B03580
360TIFGO ENTRY A GO TO A F3B03590
00536 1 77777 1 00537 361M21030 TXIM21030+1,1,−1 F3B03600
00537 0 50000 1 05472 362CLATIFGO,1 2ND WORD BETA IN ADDRESS F3B03610
00540 0 76700 0 00022 363ALS18 SHIFT TO DECREMENT F3B03620
00541 0 60100 0 02364 364STOM2CW+2 3RD WD OF INSTRUCTION AREA F3B03630
00542 0 07400 4 02177 365TSXCIT200,4 COMPILE INSTRUCTION F3B03640
00543 0 00000 0 02345 366HTRTIFFN ALPHA F3B03650
00544 0 00000 0 02315 367HTRM2ABC TRA F3B03660
00545 0 00000 0 02364 368HTRM2CW+2 BETA F3B03670
00546 0 00000 0 02274 369HTRM2CON 0 F3B03680
00547 1 77777 1 00503 370TXIM21000,1,−1 F3B03690
371TIFGO ENTRY A GO TO (A),I F3B03700
00550 0 50000 1 05472 372M21100 CLATIFGO,1 2ND WORD OF TIFGO ENTRY F3B03710
00551 0 73400 2 00000 373PAX0,2 CTRAD U IN IR 2 F3B03720
00552−0 63400 2 02332 374SXDL0X,2 SAVE CTRAD U IN INDEX CELL DECR. F3B03730
00553−0 32000 0 02305 375ANAM2CON+9 SAVE CTRAD 1 IN ACCUMULATOR F3B03740
00554 0 40000 0 02303 376ADDM2CON+7 ADD ONE, CTRAD 1+I F3803750
00555 0 40200 0 02332 377SUBL0X CTRAD U F3B03760
00556 0 60100 0 02365 378STOM2CW+3 4TH WD OF INSTRUCTION F3B03770
00557 0 07400 4 02177 379M21110 TSXCIT200,4 COMP1LE F3B03780
00560 0 00000 0 02345 380HTRTIFFN ALPHA F3B03790
00561 0 00000 0 02274 381HTRM2CON ZERO F3B03800
00562 0 00000 0 02345 382HTRTIFFN ALPHA F3B03810
00563 0 00000 0 02365 383HTRM2CW+3 NO. OF TRAD ENTRUES CTRAD 1+1-CTRAD 2 F3B03820
00564 1 00001 2 00565 384TXIM21120,2,1 STEP UP COUNT TO NEXT TRAD ENTRY F3B03830
00565 0 50000 1 05472 385M21120 CLATIFGO,1 2ND WORD OF TIFGO ENTRY F3B03840
00566 0 62200 0 00600 386STDM21140 STORE IN TXL INSTRUCTION F3B03850
00567 0 50000 2 07361 387M21125 CLATRAD+250,2 BRING IN NEXT TRAD ENTRY F3B03860
00570 0 76700 0 00022 388ALS18 PUT BETA1 IN DECREMENT F3B03870
00571 0 60100 0 02364 389STOM2CW+2 3RD WD. OF CIT F3B03880
00572 0 07400 4 02177 390TSXCIT200,4 COMPILE F3B03890
00573 0 00000 0 02274 391HTRM2CON ZERO F3B03900
00574 0 00000 0 02315 392HTRM2ABC TRA F3B03910
00575 0 00000 0 02364 393HTRM2CW+2 TRAD BI F3B03920
00576 0 00000 0 02274 394HTRM2CON ZERO F3B03930
00577 1 00001 2 00600 395TXIM21140,2,1 STEP UP TRAD ENTRY F3B03940
D00600−3 00000 2 00567 396M21140 TXLM21125,2 TEST IF LAST TRAD ENTRY, NO F3B03950
00601 1 77777 1 00503 397TXIM21000,1,−1 BACK TO NEXT TIFGO. F3B03960
398TIFGO ENTRY AN IF SENSE F3B03970
00602 0 07400 4 02177 399M21300 TSXCIT200,4 COMPILE F3B03980
00603 0 00000 0 02345 400HTRTIFFN ALPHA F3B03990
00604 0 00000 0 02274 401HTRM2CON ZERO F3B04000
00605 0 00000 0 02274 402HTRM2CON ZERO F3B04010
00606 0 00000 0 02274 403HTRM2CON ZERO F3B04020
00607 0 50000 1 05472 404CLATIFGO,1 2ND. WORD OF TIFGO ENTRY F3B04030
00610−0 32000 0 02306 405ANAM2CON+10 SAVE ADDRESS, BETA 2 F3B04040
00611 0 76700 0 00022 406ALS18 SHIFT TO DECREMENT F3B04050
00612 0 53400 2 02276 407LXAM2CON+2,2 LOAD 2 IN IR 2, 2 SETS OF 1NSTRUCTION F3B04060
00613 0 60100 0 02364 408M21310 STOM2CW+2 STORE BETA 2 IN 3RD WD. F3B04070
00614 0 07400 4 02177 409TSXCIT200,4 COMPILE F3B04080
00615 0 00000 0 02274 410HTRM2CON ZERO F3B04090
00616 0 00000 0 02315 411HTRM2ABC TRA F3B04100
00617 0 00000 0 02364 412HTRM2CW+2 BETA 2, BETA 1 F38D411D
00620 0 00000 0 02274 413HTRM2CON ZERO F3B04120
00621 0 50000 1 05472 414CLATIFGO,1 2ND WORD F3B04130
00622−0 32000 0 02305 415ANAM2CON+9 SAVE DECREMENT F3B04140
00623 2 00001 2 00613 416TIXM21310,2,1 COMPILE SECOND TRA F3B04150
00624 1 77777 1 00503 417TXIM21000,1,−1 BACK T0 OBTAIN NEXT TIFGO F3B04160
418TIFGO ENTRY AN IF DIV CK F3B04170
00625 0 07400 4 02177 419M21400 TSXCIT200,4 COMPILE F3B04180
00626 0 00000 0 02345 420HTRTIFFN ALPHA F3B04190
00627 0 00000 0 02274 421HTRM2CON ZERO F3B04200
00630 0 00000 0 02274 422HTRM2CON ZERO F3B04210
00631 0 00000 0 02274 423HTRM2CON ZERO F3B04220
00632 0 50000 1 05472 424CLATIFGO,1 2ND WORD OF TIFGO ENTRY F3B04230
00633−0 32000 0 02305 425ANAM2CON+9 SAVE DECREMENT F3B04240
00634 0 53400 2 02276 426LXAM2CON+2,2 COUNT OF 2 IN IR 2 F3B04250
00635 0 60100 0 02364 427M21410 STOM2CW+2 COMPILE F3B04260
00636 0 07400 4 02177 428TSXCIT200,4 COMPILE F3B04270
00637 0 00000 0 02274 429HTRM2CON ZERO F3B04280
00640 0 00000 0 02315 430HTRM2ABC TRA F3B04290
00641 0 00000 0 02364 431HTRM2CW+2 BETA1, F3B04300
00642 0 00000 0 02274 432HTRM2CON ZERO F3B04310
00643 0 50000 1 05472 433CLATIFGO,1 2ND WORD F3B04320
00644−0 32000 0 02306 434ANAM2CON+10 SAVE BETA 2 F3B04330
00645 0 76700 0 00022 435ALS18 PLACE IN DECREMENT F3B04340
00646 2 00001 2 00635 436TIXM21410,2,1 COMPILE 2ND TRA INSTR, F3B04350
00647 1 77777 1 00503 437TXIM21000,1,−1 BACK TO GET NEXT TIFGO F3B04360
438TIFGO ENTRY AN IF OVERFLOW F3B04370
00650 0 50000 1 05472 439M21500 CLATIFGO,1 2ND WORD 0F TIFGO ENTRY F3B04380
00651−0 32000 0 02305 440ANAM2CON+9 SAVE DECREMENT F3B04390
00652 0 60100 0 02364 441STOM2CW+2 3RD WORD, BETA 1 F3B04400
00653 0 07400 4 02177 442TSXCIT200,4 COMPILE F3B04410
00654 0 00000 0 02345 443HTRTIFFN ALPHA F3B04420
00655 0 00000 0 02274 444HTRM2CON ZERO F3B04430
00656 0 00000 0 02364 445HTRM2CW+2 BETA 1 F3B04440
00657 0 00000 0 02274 446HTRM2CON ZERO F3B04450
00660 0 50000 1 05472 447CLATIFGO,1 2ND WORD OF TIFGO ENTRY F3B04460
00661−0 32000 0 02306 448ANAM2CON+10 SAVE BETA 2 F3B04470
00662 0 76700 0 00022 449ALS18 SHIFT TO DECREMENT F3B04480
00663 0 60100 0 02364 450STOM2CW+2 3RD WORD OF COMPILED INSTRUCTIONS F3B04490
00664 0 07400 4 02177 451M21515 TSXCIT200,4 COMPILE F3B04500
00665 0 00000 0 02274 452HTRM2CON ZERO F3B04510
00666 0 00000 0 02315 453HTRM2ABC TRA F3B04520
00667 0 00000 0 02364 454HTRM2CW+2 BETA 2 F3B04530
00670 0 00000 0 02274 455HTRM2CON ZERO F3B04540
00671 1 77777 1 00503 456TXIM21000,1,−1 BACK TO NEXT TIFGO ENTRY F3B04550
457TIFGO ENTRY AN IF (E) F3B04560
00672−0 32000 0 02306 458M21800 ANAM2CON+10 SAVE ADDRESS OF 1ST WD, BETA 1 F3B04570
00673 0 76700 0 00022 459ALS18 PLACE IN DECREMENT F3B04580
00674 0 60100 0 02364 460STOM2CW+2 3RD WORD OF CIT F3B04590
00675 0 07400 4 02177 461TSXCIT200,4 COMPILE F3B04600
00676 0 00000 0 02345 462HTRTIFFN ALPHA F3B04610
00677 0 00000 0 02274 463HTRM2CON ZERO F3B04620
00700 0 00000 0 02274 464HTRM2CON ZERO F3B04630
00701 0 00000 0 02274 465HTRM2CON ZERO F3B04640
00702 1 77777 1 00703 466TXIM21810,1,−1 STEP COUNT FOR 2ND TIFGO WORD F3B04650
00703 0 50000 1 05472 467M21810 CLATIFGO,1 2ND WD. OF TIFGO ENTRY F3B04660
00704−0 32000 0 02305 468ANAM2CON+9 SAVE DECREMENT BETA 2 F3804670
00705 0 60100 0 02366 469STOM2CW+4 5TH WD. F3B04680
00706 0 50000 0 02345 470CLATIFFN ALPHA F3B04690
00707−0 50100 0 02301 471ORAM2CON+5 10(8) INSTR. NO. WITHIN INTERNAL FMLANO. F3B04700
00710 0 60100 0 02362 472STOM2CW INTERNAL FMLA NO. F3B04710
00711 0 07400 4 02177 473TSXCIT200,4 COMPILE F3B04720
00712 0 00000 0 02362 474HTRM2CW F3B04730
00713 0 00000 0 02316 475HTRM2ABC+1 TZE F3B04740
00714 0 00000 0 02366 476HTRM2CW+4 BETA 2 C(M2CW+4) F3B04750
00715 0 00000 0 02274 477HTRM2CON ZERO F3B04760
00716 0 50000 1 05472 478CLATIFGO,1 2ND WORD 0F TIFGO ENTRY F3B04770
00717−0 32000 0 02306 479ANAM2CON+10 SAVE ADDRESS, BETA 3 F3B04780
00720 0 76700 0 00022 480ALS18 SHIFT TO DECREMENT F3B04790
00721 0 60100 0 02366 481STOM2CW+4 STORE BETA 3 F3B04800
00722 0 07400 4 02177 482TSXCIT200,4 COMPILE F3B04810
00723 0 00000 0 02274 483HTRM2CON ZERO F3804820
00724 0 00000 0 02317 484HTRM2ABC+2 TPL F3B04830
00725 0 00000 0 02366 485HTRM2CW+4 BETA 3 C(M2CW+4) F3B04840
00726 0 00000 0 02274 486HTRM2CON ZERO F3B04850
00727 0 02000 0 00664 487TRAM21515 TR. TO COMPILE TRA TO BETA 1 F3B04860
488TIFGO ENTRY AN ASSIGN F3B04870
00730 0 50000 0 07324 489M21600 CLAASN0 CURRENT ASSIGN NO. F3B04880
00731 0 60100 0 02365 490STOM2CW+3 4TH WORD OF CIT F3B04890
00732 0 40000 0 02303 491ADDM2CON+7 +000001000000 F3B04900
00733 0 60100 0 07324 492STOASN0 REPLACE ASSIGN NO. F3B04910
00734 0 07400 4 02177 493TSXCIT200,4 COMPILE F3B04920
00735 0 00000 0 02345 494HTRTIFFN ALPHA F3B04930
00736 0 00000 0 02274 495HTRM2CON ZERO F3B04940
00737 0 00000 0 02307 496HTRM2CON+11 +030000000000 F3B04950
00740 0 00000 0 02365 497HTRM2CW+3 CURRENT ASSIGN NO. F3B04960
00741 1 77777 1 00742 498M21610 TXIM21610+1,1,−1 F3B04970
00742 0 50000 1 05472 499CLATIFGO,1 2ND WD. OF TIFGO ENTRY F3B04980
00743 0 76700 0 00022 500ALS18 PLACE BETA IN DECREMENT F3B04990
00744−0 53400 2 07323 501LXDEASC0,2 CURRENT ASC0 ENTRY PT. IN IR 2 F3B05000
00745 0 60100 2 07325 502STOASC0,2 STORE BETA IN PROPER ASC0 LOC F3B05010
00746 1 77777 2 00747 503TXIM21620,2,−1 STEP COUNT FOR NEXT ASC0 ENTRY F3B05020
00747−0 63400 2 07323 504M21620 SXDEASC0,2 PT. AND STORE F3B03030
00750 1 77777 1 00503 505TXIM21000,1,−1 BACK FOR NEXT TIFGO F3B05040
506M2 TERMINAL ROUTINE F3B05050
00751−0 53400 2 02355 507M21900 LXDBBOX,2 2S COMPL. OF NO OF WDS IN BLOCK F3B05060
00752−0 53400 4 07322 508LXDTFRC0,4 F3B05070
00753 1 00003 4 00754 509TXIM21900+3,4,3 STEP UP BLOCK COUNT BY 3 F3B05080
00754−3 00000 2 00764 510TXLM21920,2,0 TEST IF AT END OF BLOCK F3B05090
00755 0 76600 0 00222 511WRS146 SELECT TAPE 2 F3B05100
00756 1 00001 4 00757 512TXIM21910−1,4,1 STEPUP IR 4 BY 1 F3B05110
00757−0 53400 1 02274 513LXDM2CON,1 ZEROS IN IR 1 F3B05120
00760 0 70000 1 06622 514M21910 CPYCIB2,1 WRITE REMAINING CITS F3B05130
00761 1 77777 1 00762 515TXIM21910+2,1,−1 DECREASE COUNT IN IR 1 F3B05140
00762 1 00001 2 00763 516TXIM21910+3,2,1 INCREASE COUNT IN IR 2 F3B05150
00763 3 00001 2 00760 517TXHM21910,2,1 TEST 1F AT END F3B05160
00764 0 77000 0 00222 518M21920 WEF146 WRITE END OF FILE F3B05170
00765 0 76400 0 00222 519BST146 F3B05180
00766 2 00001 4 00765 520TIXM21920+1,4,1 F3B05190
00767 0 76200 0 00222 521M21925 RDS146 POSITION TAPE 2 AT BEGINNING F3B05200
00770 0 70000 0 02366 522CPYM2CW+4 OF TIFGO FILE F3B05210
00771 0 02000 0 00770 523TRAM21925+1 BACK TO READ LOOP F3B05220
00772 0 02000 0 00774 524TRAM22000−2 F3B05230
00773 0 02000 0 00767 525TRAM21925 F3B05240
00774 0 76200 0 00221 526RTB1 F3B05250
00775 0 02000 0 00004 527TRA4 F3B05260
528M2-MAIN PROGRAM-TIFGO FMLA NO IN F3B05270
529TRALEV F3B05280
00776 1 77777 2 00777 530M22000 TXIM22000+1,2,−1 UPDATE TRALEV ENTRY F3B05290
00777−0 63400 2 02347 531SXDETRAL,2 POINT, SAVE IN PROPER CELL F3B05300
01000−0 53400 2 02274 532LXDM2CON,2 RESET IR 2 WITH ZERO F3B05310
01001 0 07400 4 01456 533TSXM22700,4 TRASTO FMLA NO SEARCH, M2 SUBROUTINE F3B05320
01002 0 02000 0 01004 534TRAM22006 CUR TIFGO FMLA NO NOT IN TRASTO F3B05330
01003 0 02000 0 01015 535TRAM22015 CUR TIFGO FMLA NO IN TRASTO F3B05340
01004−0 53400 2 02347 536M22006 LXDETRAL,2 2S COMPL. 0F TRALEV ENTRY PT. COUNT F3B053S0
01005 0 50000 2 03211 537CLATRALEV,2 TRALEV ENTRY F3B05360
01006−0 12000 0 01013 538TMIM22013 IS IT START OF NEXT ENTRY 2 F3B05370
01007−0 75400 2 00000 539PXD0,2 TRALEV ENTRY PT CT. IN ACC F3B05380
01010 0 40200 0 03210 540SUBTRALEV−1 TRALEV WORD COUNT F3B05390
01011 0 10000 0 01013 541TZEM22013 IS IT END OF TRALEV TABLE, YES F3B05400
01012 1 77777 2 01005 542TXIM22006+1,2,−1 NO, UPDATE TRALEV TABLE F3B05410
01013−0 63400 2 02347 543M22013 SXDETRAL,2 START OF NEXT ENTRY, SAVE COUNT F3B05420
01014 0 02000 0 00523 544TRAM21020 OF TRALEV, BACK TO COMPILE INSTR. F3B05430
01015−0 63400 2 02356 545M22015 SXDETRAST,2 SAVE TRASTO ENTRY PT. F3B05440
01016 0 50000 0 02274 546CLAM2CON INITIALIZE ADDC0 F3B05450
01017 0 60100 0 02333 547STOADDCO F3B05460
01020 0 50000 1 05472 548CLATIFGO,1 OBTAIN TIFGO TYPE, TRANSFER TO ROUTINES F3B05470
01021−0 12000 0 01360 549TMIM22600 IF(E) F3B05480
01022−0 32000 0 02306 550ANAM2CON+10 F3B05490
01023 0 10000 0 01033 551TZEM22020 GO TO A F3B05500
01024 0 34000 0 02277 552CASM2CON+3 F3B05510
01025 1 77777 1 01344 553TXIM22500,1,−1 IF OVERFLOW F3B05520
01026 1 77777 1 01252 554TXIM22400,1,−1 IF DIV CK F3B05530
01027 0 34000 0 02276 555CASM2CON+2 F3B05540
01030 1 77777 1 01236 556TXIM22300,1,−1 IF SENSE F3B05550
01031 1 77777 1 01123 557TXIM22200,1,−1 GO TO (A),1 F3B05560
01032 1 77777 1 01072 558TXIM22100,1,−1 GO TO N (A) F3B05570
559TIFGO ENTRY A GO TO A F3B05580
01033 0 50000 0 02345 560M22020 CLATIFFN CURRENT TIFGO FMLA NO. F3B05590
01034 0 60100 0 02362 561PAT1 STOM2CW F3B05600
01035 0 50000 0 02301 562PAT2 CLAM2CON+5 +10,INCREMENT F3B05610
01036 0 60100 0 02360 563PAT3 STOCLOC FOR LOC WD OF 1ST INSTR OF TRASTO BLOCK F3B05620
01037 0 07400 4 01477 564M22022 TSXM22750,4 TRASTO LEV.NO.SEARCH F3B05630
01040 0 07400 4 01560 565TSXM22800,4 CUR.TIFGO LEV.NO.IN TRASTO F3B05640
01041−0 53400 2 02346 566LXDCTRAST,2 CUR.TIFGO NO.NOT IN TRASTO F3B05630
01042 1 77774 2 01043 567M22025 TXIM22025+1,2,−4 UP0ATE TRASTO ENTRY POINT F3B05660
01043 0 07400 4 01456 568TSXM22700,4 TRASTO FMLA NO SEARCH F3B05670
01044 0 02000 0 01052 569TRAM22035 TIFGO FMLA NO.NOT AGAIN FOUND F3B05680
01045 0 50000 0 02333 570CLAADDCO TIFGO FMLA NO AGAIN FOUND F3B05600
01046 0 10000 0 01037 571TZEM22022 TIFGO ENTRY NOT YET FOUND IN TRASTO F3B05700
01047 0 50000 0 02274 572CLAM2CON TIFGO ENTRY ALREADY FOUND IN TRASTO F3B05710
01050 0 60100 0 02362 573STOM2CW ADJUST LOCATION WORD TO ZERO F3B05720
01051 0 02000 0 01037 574TRAM22022 BACK TO LEVEL NO. SEARCH F3B05730
01052 0 50000 0 02333 575M22035 CLAADDCO NO. OF TIMES TIFGO ENTRY APPEARS IN TRASTO F3B05740
01053 0 10000 0 01056 576TZEM22040 TIFGO ENTRY NEVER FOUND IN TRASTO F3B0S730
01054 0 50000 0 02311 577CLAM2CON+13 TIFGO ENTRY FOUND IN TRASTO F3B05760
01055 0 60100 0 02362 578STOM2CW +170000000000 , NEW. LOC. WORD F3B05770
01056 0 50000 1 05473 579M22040 CLATIFGO+1,1 TIFGO BETA F3B05780
01057 0 76700 0 00022 580ALS18 PUT INTO DECREMENT F3B05790
01060 0 60100 0 02364 581STOM2CW+2 3RD WORD F3B05800
01061 0 07400 4 02177 582TSXCIT200,4 COMPILE FINAL INSTRUCTION F3B05810
01062 0 00000 0 02362 583HTRM2CW 17(8) F3B05820
01063 0 00000 0 02315 584HTRM2ABC TRA F3B05830
01064 0 00000 0 02364 585HTRM2CW+2 BETA F3B05840
01065 0 00000 0 02274 586HTRM2CON ZERO F3B05850
01066−0 53400 2 02347 587LXDETRAL,2 UPDATE TRALEV ENTRY POINT F3B05860
01067 1 77777 2 01070 588M22050 TXIM22050+1,2,−1 F3B05870
01070−0 63400 2 02347 589SXDETRAL,2 UPDATE TRALEV TO NEXT ENTRY F3B05880
01071 1 77776 1 00503 590TXIM21000,1,−2 BACK TO TEST AGAIN. F3B05890
591TIFGO ENTRY A GO TO N (A) F3B05900
01072 0 50000 0 02345 592M22100 CLATIFFN CURRENT TIFGO ALPHA F3B05910
01073 0 76000 0 00002 593CHS MAKE LOCATION WORD POSITIVE F3B05920
01074 0 60100 0 02362 594PAT5 STOM2CW F3B05930
01075 0 50000 0 02301 595PAT6 CLAM2CON+5 +10 F3B05940
01076 0 60100 0 02360 596PAT7 STOCLOC SAVE INCREMENT F3B05930
01077 0 07400 4 01477 597M22105 TSXM22750,4 TRASTO LEV NO SEARCH F3B05960
01100 0 07400 4 01560 598TSXM22800,4 CUR TIFGO LEV NO.IN TRASTO F3B05970
01101−0 53400 2 02346 599LXDCTRAST,2 CUR TIFGQ LEV NO NOT IN TRASTO F3B05980
01102 1 77774 2 01103 600M22110 TXIM22110+1,2,−4 UPDATE TRASTO ENTRY POINT F3B05990
01103 0 07400 4 01456 601TSXM22700,4 TRASTO FMLA NO SEARCH F3B06000
01104 0 02000 0 01112 602TRAM22120 TIFGO FMLA NO.NOT AGAIN FOUND F3B06010
01105 0 50000 0 02333 603CLAADDCO TIFGO FMLA NO.AGAIN FOUND F3B06020
01106 0 10000 0 01077 604TZEM22105 TIFGO ENTRY NOT YET FOUND IN TRASTO F3B06030
01107 0 50000 0 02274 605CLAM2CON T1FG0 ENTRY ALREADY FOUND IN TRASTO F3B06040
01110 0 60100 0 02362 606STOM2CW ADJUST LOCATION WROD TO ZERO F3B06030
01111 0 02000 0 01077 607TRAM22105 BACK TO LEVEL NO. SEARCH F3806060
01112−0 53400 2 02347 608M22120 LXDETRAL,2 UPDATE TRALEV ENTRY POINT F3B06070
01113 0 50000 2 03211 609CLATRALEV,2 BEGINNING OF TRALEV BLOCK F3B06080
01114−0 12000 0 01121 610TMIM22130 F3B06090
01115−0 75400 2 00000 611PXD0,2 TEST IF END OF TRALEV F3B06100
01116 0 40200 0 03210 612SUBTRALEV−1 F3B06110
01117 0 10000 0 01121 613TZEM22130 F3B06120
01120 1 77777 2 01113 614TXIM22120+1,2,−1 SPACE OVER TO NEXT ENTRY F3806130
01121−0 63400 2 02347 615M22130 SXDETRAL,2 F3B06140
01122 1 77777 1 00503 616TXIM21000,1,−1 F3B061S0
617TIFGO ENTRY A GO TO (A),1 F3B06160
01123 0 50000 1 05472 618M22200 CLATIFGO,1 COMPUTE N+1 (CTRAD1- CTRAD2+1) F3806170
01124 0 73400 2 00000 619PAX0,2 STORE IN M2CW+3 F3B06180
01125−0 63400 2 02332 620SXDL0X,2 STORE COMPILING FIRST F3B06100
01126−0 32000 0 02305 621ANAM2CON+9 INSTRUCTION F3806200
01127 0 40000 0 02303 622ADDM2CON+7 F3B06210
01130 0 40200 0 02332 623SUBL0X F3806220
01131 0 60100 0 02365 624STOM2CW+3 F3806230
01132 0 76000 0 00006 625COM COMPUTE 2S COMP OF F3B06240
01133 0 40000 0 02304 626ADDM2CON+8 N-1 IN ORDER TO F3806230
01134 0 62200 0 01140 627STDM22220 OBTAIN TRALEV ENTRY F3B06260
01135−0 53400 2 02347 628LXDETRAL,2 POINT FOR LAST ADDRESS F3B06270
01136−0 63400 2 01165 629SXDM22240+1,2 F3B06280
01137−0 63400 2 01231 630SXDM22275+1,2 F3806290
D01140 1 00000 2 01141 631M22220 TXIM22220+1,2 F3806300
01141−0 63400 2 02357 632SXDNETRAL,2 TRALEV. ENTRY PT. FOR LAST ADDRESS F3B06310
01142−0 63400 2 02347 633SXDETRAL,2 CURRENT TRALEV ENTRY PT. F3806320
01143 0 07400 4 02177 634TSXCIT200,4 COMPILE FIRST INSTRUCTION F3B06330
01144 0 00000 0 02345 635HTRTIFFN ALPHA F3806340
01145 0 00000 0 02274 636HTRM2CON ZERO F3B06350
01146 0 00000 0 02345 637HTRTIFFN ALPHA F3B06360
01147 0 00000 0 02365 638HTRM2CW+3 NO. OF ADDRESS IN TRAD F3B06370
01150 0 07400 4 01477 639M22225 TSXM22750,4 TRASTO LEVEL NO SEARCH F3B06380
01151 0 07400 4 02013 640TSXM23000,4 COR TIFGO LEV NO IN TRASTO F3B06390
01152−0 53400 2 02346 641LXDCTRAST,2 CUR TIFGO LEV NO NOT IN TRASTO F3806400
01153 1 77774 2 01154 642M22230 TXIM22230+1,2,−4 UPDATE TRASTD ENTRY POINT F3B06410
01154 0 07400 4 01456 643TSXM22700,4 TRASTO FMLA NO.SEARCH F3B06420
01155 0 07400 4 02077 644TSXM23050,4 TIFGO FMLA NO.NOT AGAIN FOUND F3B06430
01156 0 02000 0 01150 645TRAM22225 TIFGO FMLA NO AGAIN FOUND F3B06440
01157 0 50000 0 02356 646M22233 CLAETRAST RESET CTRAST CELL FOR F3B06430
01160 0 60100 0 02346 647STOCTRAST TRASTO LEV NO SEARCH F3B06460
01161−0 53400 2 02347 648LXDETRAL,2 UPDATE TRALEV ENTRY POINT F3B06470
01162 1 00001 2 01163 649TXIM22240−1,2,1 F3B06480
01163−0 63400 2 02347 650SXDETRAL,2 F3B06490
01164−3 00000 2 01166 651M22240 TXLM22240+2,2,0 F3B06500
D01165−3 00000 2 01150 652TXLM22225,2 F3B06510
01166 0 50000 0 02333 653CLAADDCO F3B06520
01167 0 10000 0 01232 654TZEM22275+2 TIFGO ENTRY NEVER FOUND IN TRASTO F3B06530
01170−0 53400 2 02357 655LXDNETRAL,2 RESET ETRAL FOR SECOND F3B06540
01171−0 63400 2 02347 656SXDETRAL,2 PASS THROUGH TRASTO F3B06550
01172 0 50000 0 02301 657CLAM2CON+5 1NITIALIZE LOCATION F3B06560
01173 0 60100 0 02360 658STOCLOC COUNTER F3B06570
01174 0 60100 0 02362 659STOM2CW SET LOCATION WORD FOR FIRST F3B06580
01175 0 50000 0 02345 660M22245 CLATIFFN TRASTO INSERT F3B06590
01176−0 60200 0 02362 661ORSM2CW F3B06600
01177 0 50000 0 02274 662CLAM2CON INITIALIZE ADDC0 FOR F3B06610
01200 0 60100 0 02333 663STOADDCO TRASTO LEV.NO.SEARCH AND TRANSFER TO PERFORM F3B06620
01201 0 07400 4 01477 664M22250 TSXM22750,4 TRASTO LEV.NO.SEARCH F3B06630
01202 0 07400 4 01560 665TSXM22800,4 CUR TIFGO LEV NO FOUND F3B06640
01203−0 53400 2 02346 666LXDCTRAST,2 CUR TIFGO NO.NOT FOUND F3B06650
01204 1 77774 2 01205 667M22255 TXIM22255+1,2,−4 UPDATE TRASTO ENTRY POINT F3B06660
01205 0 07400 4 01456 668TSXM22700,4 TRASTO FMLA NO.SEARCH F3B06670
01206 0 02000 0 01214 669TRAM22263 TIFGO FMLA NO.NOT AGAIN FOUND F3B06680
01207 0 50000 0 02333 670CLAADDCO TIFGO FMLA NO.AGAIN FOUND F3B06690
01210 0 10000 0 01201 671TZEM22250 CUR TIFGO ADD NOT YET FOUND IN TRASTO F3B06700
01211 0 50000 0 02274 672CLAM2CON CURT1FG0 ADD ALREADY FOUND IN TRASTO F3B06710
01212 0 60100 0 02362 673STOM2CW ADJUST LOCATION WORD F3B06720
01213 0 02000 0 01201 674TRAM22250 F3B06730
01214 0 50000 0 02333 675M22263 CLAADDCO F3B06740
01215 0 10000 0 01223 676TZEM22270 CUR. TIFGO NEVER FQUND IN TRASTO F3B06750
01216 0 07400 4 02163 677TSXM23075,4 CUR. TIFGO ADD. FOUND IN.TRASTO F3B06760
01217 0 50000 0 02360 678CLACLOC UPDATE LOCATION WORD FOR NEXT ENTRY F3B06770
01220 0 40000 0 02301 679ADDM2CON+5 BLOCK OF TRASTO UNSERTS F3B06780
01221 0 60100 0 02360 680STOCLOC F3B06790
01222 0 60100 0 02362 681STOM2CW F3B06800
01223 0 50000 0 02356 682M22270 CLAETRAST RESET CTRAST FOR TRASTO F3B06810
01224 0 60100 0 02346 683STOCTRAST LEV. NI. SEARCH F3B06820
01225−0 53400 2 02347 684LXDETRAL,2 UPDATE TRALEV ENTRT PIINT F3B06830
01226 1 00001 2 01227 685TXIM22275−1,2,1 F3B06840
01227−0 63400 2 02347 686SXDETRAL,2 F3B06850
01230−3 00000 2 01232 687M22275 TXLM22275+2,2,0 F3B06860
D01231−3 00000 2 01175 688TXLM22245,2 F3B06870
01232−0 53400 2 02357 689LXDNETRAL,2 UPDATE TRALEV ENTRY POINT F3806880
01233 1 77777 2 01234 690TXIM22280,2,−1 FOR NEXT TIFGO ENTRY F3B06890
01234−0 63400 2 02347 691M22280 SXDETRAL,2 F3B06900
01235 1 77777 1 00503 692TXIM21000,1,−1 BACK TO NEXT TIFGO F3B06910
693TIFGO ENTRY AN IF SENSE F3B06920
01236−0 53400 2 02347 694M22300 LXDETRAL,2 UPDATE TRALEV F3B06930
01237−0 63400 2 01165 695SXDM22240+1,2 F3B06940
01240−0 63400 2 01231 696SXDM22275+1,2 F3B06950
01241 1 77777 2 01242 697M22303 TXIM22303+1,2,−1 F3B06960
01242−0 63400 2 02357 698SXDNETRAL,2 F3B06970
01243−0 63400 2 02347 699SXDETRAL,2 F3B06980
01244 0 07400 4 02177 700TSXCIT200,4 COMPILE INFO. INSTRUCTION F3B06990
01245 0 00000 0 02345 701HTRTIFFN ALPHA F3B07000
01246 0 00000 0 02274 702HTRM2CON ZERO F3B07010
01247 0 00000 0 02274 703HTRM2CON ZERO F3B07020
01250 0 00000 0 02274 704HTRM2CON ZERO F3B07030
01251 0 02000 0 01150 705TRAM22225 TRASTO LEVEL NO. SEARCH F3B07040
706TIFGO ENTRY AN IF DIV CK F3B07050
01252−0 53400 2 02347 707M22400 LXDETRAL,2 UPDATE TRALEV F3B07060
01253 1 77776 2 01254 708TXIM22400+2,2,−2 F3B07070
01254−0 63400 2 01277 709SXDM22425+1,2 F3B07080
01255−0 63400 2 01342 710SXDM22465+1,2 F3B07090
01256 0 07400 4 02177 711TSXCIT200,4 COMPILE INFO. INSTRUCTION F3B07100
01257 0 00000 0 02345 712HTRTIFFN ALPHA F3B07110
01260 0 00000 0 02274 713HTRM2CON ZERO F3B07120
01261 0 00000 0 02274 714HTRM2CON ZERO F3B07130
01262 0 00000 0 02274 715HTRM2CON ZERO F3B07140
01263 0 07400 4 01477 716M22410 TSXM22750,4 TRASTO LEVEL NO SEARCH F3B07150
01264 0 07400 4 02013 717TSXM23000,4 CUR. TIFGO LEVEL NO. IN TRASTO F3B07160
01265−0 53400 2 02346 718LXDCTRAST,2 CUR. TIFGO LEVEL NO. NOT IN TRASTO F3B07170
01266 1 77774 2 01267 719M22415 TXIM22415+1,2,−4 UPDATE TRASTO ENTRY POINT F3B07180
01267 0 07400 4 01456 720TSXM22700,4 TRASTO FMLA. NO. SEARCH F3B07190
01270 0 07400 4 02077 721TSXM23050,4 TIFGO FMLA. NO NOT AGAIN FOUND F3B07200
01271 0 02000 0 01263 722TRAM22410 TIFGO FMLA. NO. AGAIN FOUND F3B07210
01272 0 50000 0 02356 723M22420 CLAETRAST RESET CTRAST CELL FOR F3B07220
01273 0 60100 0 02346 724STOCTRAST TRASTO LEVEL NO. SEARCH F3B07230
01274−0 53400 2 02347 725LXDETRAL,2 UPDATE TRALEV ENTRY POINT F3B07240
01275 1 77777 2 01276 726TXIM22425,2,−1 F3B07250
01276−0 63400 2 02347 727M22425 SXDETRAL,2 F3B07260
D01277 3 00000 2 01263 728TXHM22410,2 F3B07270
01300 0 50000 0 02333 729CLAADDCO F3B07280
01301 0 10000 0 01343 730TZEM22465+2 TIFGO ENTRY NEVER FOUND IN TRASTO F3B07290
01302 1 00002 2 01303 731TXIM22430,2,2 RESET ETRAL FOR SECOND F3B07300
01303−0 63400 2 02347 732M22430 SXDETRAL,2 PASS THROUGH TREASTO F3B07310
01304 0 50000 0 02301 733CLAM2CON+5 INITIALIZE LOCATION F3B07320
01305 0 60100 0 02360 734STOCLOC COUNTER F3B07330
01306 0 60100 0 02362 735STOM2CW SET LOCATION WORD FOR F3B07340
01307 0 50000 0 02345 736M22435 CLATIFFN FIRST TRASTO INSERT F3B07330
01310−0 60200 0 02362 737ORSM2CW F3B07360
01311 0 50000 0 02274 738CLAM2CON INITIALIZE ADDC0 FOR F3B07370
01312 0 60100 0 02333 739STOADDCO TRASTO LEV NO SEARCH F3B07380
01313 0 07400 4 01477 740M22440 TSXM22750,4 TRASTO LEV NO SEARCH F3B07390
01314 0 07400 4 01560 741TSXM22800,4 CUR TIFGO LEV NO FOUND IN TRASTO F3B07400
01315−0 53400 2 02346 742LXDCTRAST,2 CUR TIFGO LEV NO NOT FOUND IN TRASTO F3B07410
01316 1 77774 2 01317 743M22445 TXIM22445+1,2,−4 UPDATE TRASTO ENTRY POINT F3807420
01317 0 07400 4 01456 744TSXM22700,4 TRASTO FMLA NO SEARCH F3B07430
01320 0 02000 0 01326 745TRAM22455 TIFGO FMLA NO NOT AGAIN FOUND F3B07440
01321 0 50000 0 02333 746CLAADDCO TIFGO FMLA NO AGAIN FOUND F3B07450
01322 0 10000 0 01313 747TZEM22440 CUR TIFGO ADD NOT YET FOUND IN TRASTOF3807460
01323 0 50000 0 02274 748CLAM2CON CUR TIFGO ENTRY ALREADY FOUND IN TRASF3B07470
01324 0 60100 0 02362 749STOM2CW ADJUST LOCATION WORD F3B07480
01325 0 02000 0 01313 750TRAM22440 TRASTO LEV. NO, SEARCH F3B07490
01326 0 50000 0 02333 751M22455 CLAADDCO F3B07500
01327 0 10000 0 01335 752TZEM22460 CUR TIFGO ADD NEVER FOUND IN TRASTO F3807510
01330 0 07400 4 02163 753TSXM23075,4 CUR TIFG0 ADD FOUND IN TRASTO F3B07520
01331 0 50000 0 02360 754CLACLOC UPDATE LOCATION WORD FOR F3B07530
01332 0 40000 0 02301 755ADDM2CON+5 NEXT BLOCK OF TRASTO INSERTS F3B07540
01333 0 60100 0 02360 756STOCLOC F3B07550
01334 0 60100 0 02362 757STOM2CW F3B07560
01335 0 50000 0 02356 758M22460 CLAETRAST RESET CTRAST FOR TRASTO LEV F3B07570
01336 0 60100 0 02346 759STOCTRAST NO SEARCH F3B07580
01337−0 53400 2 02347 760LXDETRAL,2 UPDATE TRALEV ENTRY F3B07590
01340 1 77777 2 01341 761TXIM22465,2,−1 POINT F3B07600
01341−0 63400 2 02347 762M22465 SXDETRAL,2 F3B07610
D01342 3 00000 2 01307 763TXHM22435,2 TEST END OF TRALEV ENTRIES . F3B07620
01343 1 77777 1 00503 764TXIM21000,1,−1 NEXT TIFGO. F3B07630
765TIFGO ENTRY AN IF OVERFLOW F3B07640
01344−0 53400 2 02347 766M22500 LXDETRAL,2 INITIALIZE AND RECORD END OF F3B07650
01345 1 77776 2 01346 767TXIM22500+2,2,−2 TRALEV ENTRY F3B07660
01346−0 63400 2 01277 768SXDM22425+1,2 F3B07670
01347−0 63400 2 01342 769SXDM22465+1,2 F3B07680
01350 0 07400 4 01477 770M22505 TSXM22750,4 TRASTO LEV NO SEARCH F3B07690
01351 0 07400 4 02027 771COR12 TSXM23025,4 F3B07700
01352−0 53400 2 02346 772LXDCTRAST,2 CUR TIFGO LEV NO NOT IN TRASTO F3B07710
01353 1 77774 2 01354 773M22510 TXIM22510+1,2,−4 UPDATE TRASTO ENTRY POINT F3B07720
01354 0 07400 4 01456 774TSXM22700,4 TRASTO FMLA NO SEARCH F3B07730
01355 0 07400 4 02113 775TSXM23060,4 TRASTO FMLA NO NOT AGAIN FOUND F3B07740
01356 0 02000 0 01350 776TRAM22505 TRASTO FMLA NO AGAIN FOUND F3B07750
01357 0 02000 0 01272 777TRAM22420 CONTINUE AS IN DVCH. F3B07760
778TIFGO ENTRY AN IF (E) F3B07770
01360−0 53400 2 02347 779M22600 LXDETRAL,2 PERMUTE WDS. OF THIS TRALEV ENTRY F3B07780
01361 0 50000 2 03211 780CLATRALEV,2 SO THAT F3B07790
01362 0 60100 0 02361 781STOSAVE A1, A2, A3, BECOMES A2, A3, A1 F3B07800
01363 0 50000 2 03212 782CLATRALEV+1,2 A2 FIRST F3B07810
01364 0 60100 2 03211 783STOTRALEV,2 F3B07820
01365 0 50000 2 03213 784CLATRALEV+2,2 A3 SECOND F3B07830
01366 0 60100 2 03212 785STOTRALEV+1,2 F3B07840
01367 0 50000 0 02361 786CLASAVE A1 THIRD F3B07850
01370 0 60100 2 03213 787STOTRALEV+2,2 F3B07860
01371 1 77775 2 01372 788M22610 TXIM22610+1,2,−3 F3B07870
01372−0 63400 2 01342 789SXDM22465+1,2 F3B07880
01373 0 07400 4 02177 790TSXCIT200,4 COMPILE INFO INSTRUCTION F3B07890
01374 0 00000 0 02345 791HTRTIFFN ALPHA F3B07900
01375 0 00000 0 02274 792HTRM2CON ZERO F3B07910
01376 0 00000 0 02274 793HTRM2CON ZERO F3B07920
01377 0 00000 0 02274 794HTRM2CON ZERO F3B07930
01400 0 07400 4 01477 795M22620 TSXM22750,4 TRASTQ LEV NO SEARCH F3B07940
01401 0 07400 4 02043 796TSXM23035,4 CUR TIFGO LEV NO FOUND IN TRASTO F3B07930
01402−0 53400 2 02346 797LXDCTRAST,2 CUR TIFGO LEV NO NOT FOUND IN TRASTO F3B07960
01403 1 77774 2 01404 798M22625 TXIM22625+1,2,−4 UPDATE TRASTO ENTRY POINT F3B07970
01404 0 07400 4 01456 799TSXM22700,4 TRASTO FMLA NO SEARCH F3B07980
01405 0 07400 4 02127 800TSXM23065,4 TRASTO FMLA NO NOT AGAIN FOUND F3B07990
01406 0 02000 0 01400 801TRAM22620 TRASTO FMLA NO AGAIN FOUND F3B08000
01407 0 50000 0 02356 802M22630 CLAETRAST RESET CTRAST CELL FOR F3B08010
01410 0 60100 0 02346 803STOCTRAST TRASTO LEV NO SEARCH F3B08020
01411−0 53400 2 02347 804LXDETRAL,2 UPDATE TRALEV F3B08030
01412 1 77777 2 01413 805TXIM22635,2,−1 ENTRY POINT F3B08040
01413−0 63400 2 02347 806M22635 SXDETRAL,2 F3B08050
01414 0 07400 4 01477 807M22640 TSXM22750,4 TRASTO LEVEL NO SEARCH F3B08060
01415 0 07400 4 02062 808TSXM23040,4 CUR TIFGO LEV NO FOUND IN TRASTO F3B08070
01416−0 53400 4 02346 809LXDCTRAST,4 CUR TIFGO LEV N0 NOT FOUND IN TRASTO F3B08080
01417 1 77774 2 01420 810TXIM22645,2,−4 UPDATE TRASTO ENTRY POINT F3B08090
01420 0 07400 4 01456 811M22645 TSXM22700,4 TRASTO FMLA NO SEARCH F3B08100
01421 0 07400 4 02147 812TSXM23070,4 TIFGO FMLA NO NOT AGAIN FOUND F3B08110
01422 0 02000 0 01414 813TRAM22640 TIFGO FMLA NO AGAIN FOUND F3B08120
01423 0 50000 0 02356 814M22650 CLAETRAST RESET CTRAST CELL FOR F3B08130
01424 0 60100 0 02346 815STOCTRAST TRASTO LEV NO SEARCH F3B08140
01425−0 53400 2 02347 816LXDETRAL,2 F3B08150
01426 1 77777 2 01427 817TXIM22655,2,−1 UPDATE TRALEV F3B08160
01427−0 63400 2 02347 818M22655 SXDETRAL,2 ENTRY POINT F3B08170
01430 0 50000 0 02333 819CLAADDCO SET ADDC0 FOR F3B08180
01431 0 40000 0 02301 820ADDM2CON+5 TRA ADDRESS F3B08190
01432 0 60100 0 02333 821STOADDCO F3B08200
01433 0 07400 4 01477 822M22660 TSXM22750,4 TRASTQ LEV NO SEARCH F3B08210
01434 0 07400 4 02013 823TSXM23000,4 CUR TIFGO LEV NO FOUND IN TRASTO F3B08220
01435−0 53400 2 02346 824LXDCTRAST,2 CUR TIFGO LEV NO NOT FOUND IN TRASTO F3808230
01436 1 77774 2 01437 825TXIM22663,2,−4 UPDATE TRASTO ENTRY POINT F3B08240
01437 0 07400 4 01456 826M22663 TSXM22700,4 TRASTO FMLA NO SEARCH F3B08250
01440 0 07400 4 02077 827TSXM23050,4 TIFGO FMLA NO NOT AGAIN FOUND F3B08260
01441 0 02000 0 01433 828TRAM22660 TIFO FMLA NO AGAIN FOUND F3B08270
01442−0 53400 2 02347 829LXDETRAL,2 F3B08280
01443 1 77777 2 01444 830TXIM22670,2,−1 UPDATE TRALEV ENTRY POINT F3B08290
01444−0 63400 2 02347 831M22670 SXDETRAL,2 FOR NEXT TIFGO ENTRY F3B08300
01445 0 50000 0 02333 832CLAADDCO F3B08310
01446 0 40200 0 02301 833SUBM2CON+5 F3B08320
01447 0 10000 0 00535 834COR13 TZEM21030−1 F3B08330
01450 1 00003 2 01451 835TXIM22675,2,3 RESET ETRAL FOR F3B08340
01451−0 63400 2 02347 836M22675 SXDETRAL,2 SECOND PASS THROUGH TRASTO F3B08350
01452 0 50000 0 02356 837CLAETRAST RESET CTRAST FOR SECOND F3B08360
01453 0 60100 0 02346 838STOCTRAST PASS THROUGH TRASTO F3B08370
01454 0 50000 0 02302 839CLAM2CON+6 INITIALIZE LOCATION F3B08380
01455 1 77777 1 01305 840TXIM22435−2,1,−1 F3B08390
841M2 CLOSED SUBROUTINES F3B08400
842TRASTO FMLA NO SEARCH F3B08410
01456−0 75400 2 00000 843M22700 PXD0,2 PLACE COUNT 0F TRALEV ENTRY IN AC. F3B08420
01457 0 40200 0 02367 844SUBTRASTO−1 TRASTO WORD COUNT F3B08430
01460 0 10000 4 00001 845TZE1,4 EQUAL. TR BACK F3B08440
01461 0 50000 2 02370 846CLATRASTO,2 TRASTO ENTRY F3B08450
01462−0 32000 0 02306 847ANAM2CON+10 SAVE DECREMENT F3B08460
01463 0 76700 0 00022 848ALS18 SHIFT B TO DECREMENT PORTION F3B08470
01464 0 34000 0 02345 849CASTIFFN CURRENT TIFGO FMLA. NO. F3B08480
01465 0 02000 0 01470 850TRAM22710 TRASTO GREATER THAN TIFGO F3B08490
01466 0 02000 0 01475 851TRAM22715 TRASTO EQUAL TO TIFGO FMLA NO F3B08500
01467 1 77774 2 01456 852TXIM22700,2,−4 TRAS TO LESS THAN TIFGO, BACK TO BRING NEXT F3B08510
01470 0 50000 2 02370 853M22710 CLATRASTO,2 TRASTO ENTRY F3B08520
01471−0 32000 0 02305 854ANAM2CON+9 MASK OUT ADDRESS F3B08530
01472 0 34000 0 02345 855CASTIFFN INTERNAL FORMULA NO. ALPHA F3B08540
01473 1 77774 2 01456 856TXIM22700,2,−4 TRASTO F3B08550
01474 1 77774 2 01456 857TXIM22700,2,−4 F3B08560
01475−0 63400 2 02346 858M22715 SXDCTRAST,2 F3B08570
01476 0 02000 4 00002 859TRA2,4 TRASTO NOT FOUND F3B08580
860TRASTO LEVEL NO SEARCH F3B08590
01477−0 63400 4 02331 861M22750 SXDCBOX,4 TR COUNT STORED FOR LINKAGE F3B08600
01500−0 53400 2 02347 862LXDETRAL,2 CURRENT TRALEV ENTRY PT. IN IR 2 F3B08610
01501 0 50000 2 03211 863CLATRALEV,2 LOAD TRALEV WORD F3B08620
01502 0 62100 0 02350 864STALEVN0 CURRENT LEVEL NO. F3B08630
01503−0 53400 2 02346 865LXDCTRAST,2 CURRENT TRASTO ENTRY PT. F3B08640
01504 0 50000 0 02340 866CLATWOL TWOS COMPLIMENT OF NO OF WDS. IN DEC. FIELD F3808630
01505 0 10000 0 01527 867TZEM22770 TYPE 2 F3B08660
01506 0 50000 0 02346 868CLACTRAST CURRENT TRASTO ENTRY PT. F3B08670
01507−0 10000 0 01513 869TNZM22760 F3B08680
01510 0 50000 0 02337 870CLAONEL TYPE 1 F3B08690
01511 0 10000 0 01550 871TZEM22787 F3B08700
01512 0 02000 0 01527 872TRAM22770 F3B08710
01513 0 50000 0 02337 873M22760 CLAONEL TEST TYPE 1 F3B08720
01514−0 10000 0 01524 874TNZM22767 F3808730
01515 0 40000 0 02340 875M22762 ADDTWOL NO. OF TYPE 2 F3B08740
01516−0 73400 4 00000 876PDX0,4 F3B08750
01517−0 75400 4 00000 877PXD0,4 F3B08760
01520 0 34000 0 02346 878CASCTRAST COMPARE F3B08770
01521 0 02000 0 01527 879TRAM22770 F3B08780
01522 0 02000 0 01527 880TRAM22770 F3B08790
01523 0 02000 0 01550 881TRAM22787 F3B08800
01524 0 34000 0 02346 882M22767 CASCTRAST F3B08810
01525 0 02000 0 01515 883TRAM22762 F3B08820
01526 0 02000 0 01515 884TRAM22762 F3B08830
01527 0 50000 2 02371 885M22770 CLATRASTO+1,2 LEVEL NOS. F3B08840
01530−0 32000 0 02306 886ANAM2CON+10 SAVE ADDRESS, TEST UPPER LEVEL F3B08850
01531 0 34000 0 02350 887CASLEVN0 COMPARE TO CURRENT TIFGO LEVEL NO, F3808860
01532 0 02000 0 01535 888TRAM22777 LESS THAN F3B08870
01533 0 02000 0 01556 889TRAM22795 F3B08880
01534 0 02000 0 01556 890TRAM22795 F3B08890
01535 0 50000 2 02371 891M22777 CLATRASTO+1,2 LEVEL NOS. F3B08900
01536−0 32000 0 02305 892ANAM2CON+9 SAVE DECREMENT F3B08910
01537 0 77100 0 00022 893ARS18 - PLACE IN ADDRESS F3B08920
01540 0 34000 0 02350 894CASLEVN0 CURRENT TIFGO LEVEL NO. F3B08930
01541 0 02000 0 01556 895TRAM22795 EXIT, NOT FOUND F3B08940
01542 0 02000 0 01543 896TRAM22783 EQUAL TO OR GREATER THAN F3B08930
01543 0 50000 0 02333 897M22783 CLAADDCO NO. OF TIMES TIFGO APPEARS F3808960
01544 0 40000 0 02301 898ADDM2CON+5 ADD 10(8) INCREMENT F3B08970
01545 0 60100 0 02333 899STOADDCO RESTORE F3B08980
01546−0 53400 4 02331 900LXDCBOX,4 RESTORE LINKAGE, LEVEL NO. F3B08990
01547 0 02000 4 00001 901TRA1,4 FOUND. F3B09000
01550 0 50000 2 02372 902M22787 CLATRASTO+2,2 TAGS, WORD 3, TYPE 2 LEVEL NO. F3B09010
01551−0 32000 0 02305 903ANAM2CON+9 SAVE DECREMENT F3B09020
01552 0 77100 0 00022 904ARS18 SHIFT TO ADDRESS F3B09030
01553 0 34000 0 02350 905CASLEVN0 COMPARE LEVEL NO. F3B09040
01554 0 02000 0 01543 906TRAM22783 F3B09050
01555 0 02000 0 01556 907TRAM22795 F3809060
01556−0 53400 4 02331 908M22795 LXDCBOX,4 F3B09070
01557 0 02000 4 00002 909TRA2,4 NOT FOUND, BACK TO MAIN ROUTINE F3B09080
910INDEXING INSTRUCTION COMPILER F3B09090
01560−0 63400 4 02331 911M22800 SXDCBOX,4 SAVE COUNT IN 4 FOR LINKAGE F3B09100
01561−0 53400 2 02274 912LXDM2CON,2 PLACE ZERO IN IR 2 F3B09110
01562 0 50000 0 02346 913CLACTRAST CURRENT TRASTO ENTRY POINT F3B09120
01563−0 10000 0 01567 914TNZM22810 F3B09130
01564 0 50000 2 02337 915M22805 CLAONEL,2 LENGTH OF TYPE 1 ENTRY ETC. F3B09140
01565−0 10000 2 01600 916TNZM22819,2 ENTRIES EXIST F3B09150
01566 1 77777 2 01564 917TXIM22805,2,−1 GET NEXT TYPE ENTRY F3B09160
01567 0 50000 0 02274 918M22810 CLAM2CON ZERO IN ACC. F3B09170
01570 0 40000 2 02337 919ADDONEL,2 LENGTH OF TYPE 1 ENTRY ETC F3B09180
01571−0 73400 4 00000 920PDX0,4 PLACE THIS RESULT INIR 4 F3B09190
01572−0 75400 4 00000 921PXD0,4 PUT BACK IN ACC., CLEARING ADDRESS F3B09200
01573 0 10000 0 01577 922TZEM22813 F3B09210
01574 0 40200 0 02346 923SUBCTRAST CURRENT TRASTO ENTRY POINT F3B09220
01575−0 12000 2 01600 924TMIM22819,2 PROPER TYPE F3B09230
01576 0 40000 0 02346 925ADDCTRAST F3B09240
01577 1 77777 2 01570 926M22813 TXIM22810+1,2,−1 SORT ACCORDING TO TYPE F3B09250
01600 0 02000 0 01606 927M22819 TRAM22825 TYPE I INSERTS F3B09260
01601 0 02000 0 01633 928TRAM22850 TYPE II INSERTS F3B09270
01602 0 02000 0 01654 929TRAM22875 TYPE III INSERTS F3B09280
01603 0 02000 0 01677 930TRAM22900 TYPE IV INSERTS F3B09290
01604 0 02000 0 01732 931TRAM22925 TYPE V INSERTS F3B09300
01605 0 02000 0 01752 932TRAM22950 TYPE VI INSERTS F3B09310
01606−0 53400 2 02346 933M22825 LXDCTRAST,2 TYPE I INSERTS F3B09320
01607 0 50000 2 02372 934CLATRASTO+2,2 3RD WRD 0F TRASTO ENTRY F3B09330
01610 0 76500 0 00022 935LRS18 ADDRESS PORTION IN MQ F3B09340
01611 0 60100 0 02365 936STOM2CW+3 DECREMENT, T1, IN 4TH WORD F3B09350
01612−0 50000 0 02310 937CALM2CON+12 +140000000000 F3B09360
01613 0 60200 0 02364 938SLWM2CW+2 SYMBOLIC ADDRESS F3B09370
01614 0 76300 0 00022 939LLS18 PUT BACK T2 IN ACC F3B09380
01615−0 60200 0 02364 940ORSM2CW+2 PUT 1N ADDRESS PART OF 3RD WD F3B09390
01616 0 07400 4 02177 941TSXCIT200,4 COMPILE INSTRUCTIONS F3B09400
01617 0 00000 0 02362 942HTRM2CW INT. FMLA NO. IF ANY F3B09410
01620 0 00000 0 02320 943HTRM2ABC+3 SXD F3B09420
01621 0 00000 0 02364 944HTRM2CW+2 +140000000000, T2 F3B09430
01622 0 00000 0 02365 945HTRM2CW+3 T1 F3B09440
01623 0 60100 0 02365 946STOM2CW+3 PUT T2 IN 4TH WRD. F3B09450
01624 0 07400 4 02177 947TSXCIT200,4 COMPILE F3B09460
01625 0 00000 0 02274 948HTRM2CON ZERO F3B09470
01626 0 00000 0 02321 949HTRM2ABC+4 LXD F3B09480
01627 0 00000 0 02364 950HTRM2CW+2 14(8),T2 F3B09490
01630 0 00000 0 02365 951HTRM2CW+3 T2 F3B09500
01631−0 53400 4 02331 952M22848 LXDCBOX,4 RESTORE LINKAGE F3B09510
01632 0 02000 4 00001 953TRA1,4 BACK TO MAIN ROUTINE F3B09520
01633−0 53400 2 02346 954M22850 LXDCTRAST,2 TYPE II INSERTS F3B09530
01634−0 50000 2 02371 955CALTRASTO+1,2 2ND WORD OF TRASTO ENTRY F3B09540
01635 0 60200 0 02364 956SLWM2CW+2 SAVE IN 3RD WORD FOR COMPILER F3B09550
01636−0 50000 2 02372 957CALTRASTO+2,2 3RD WD OF ENTRY F3B09560
01637−0 32000 0 02306 958ANAM2CON+10 SAVE ADDRESS F3B09570
01640 0 60200 0 02365 959SLWM2CW+3 STORE IN 4TH WD F3B09580
01641 0 07400 4 02177 960TSXCIT200,4 COMPILER F3B09590
01642 0 00000 0 02362 961HTRM2CW INTERNAL FMLA NO., IF ANY F3B09600
01643 0 00000 0 02322 962HTRM2ABC+5 PXD F3B09610
01644 0 00000 0 02274 963HTRM2CON ZERO F3B09620
01645 0 00000 0 02365 964HTRM2CW+3 ZERO,T1 F3B09630
01646 0 07400 4 02177 965TSXCIT200,4 COMPILER F3B09640
01647 0 00000 0 02274 966HTRM2CON ZERO F3B09650
01650 0 00000 0 02323 967HTRM2ABC+6 STO F3B09660
01651 0 00000 0 02364 968HTRM2CW+2 S(BCD) F3B09670
01652 0 00000 0 02274 969HTRM2CON ZERO F3B09680
01653 0 02000 0 01631 970TRAM22848 TO RESTORE LINKAGE F3B09690
01654−0 53400 2 02346 971M22875 LXDCTRAST,2 TYPE III INSERTS F3B09700
01655 0 50000 2 02372 972CLATRASTO+2,2 3RD WRD OF TRASTO ENTRY F3B09710
01656 0 76500 0 00022 973LRS18 SHIFT N T0 MG F3B09720
01657 0 40000 0 02303 974ADDM2CON+7 1 T0 ADDRESS FOR SIGN F3B09730
01660 0 60100 0 02365 975STOM2CW+3 4TH WORD F3B09740
01661 0 76000 0 00000 976CLM CLEAR ACC F3B09750
01662 0 76300 0 00022 977LLS18 PUT N BACK IN ACC. F3B09760
01663 0 76000 0 00006 978COM COMPLIMENT F3B09770
01664 0 40000 0 02275 979ADDM2CON+1 ADD ONE, 2 S COMPLIMENT F3B09780
01665−0 32000 0 02306 980ANAM2CON+10 SAVE ADDRESS F3B09790
01666 0 60100 0 02363 981STOM2CW+1 2ND WORD OF COMPILER F3B09800
01667−0 50000 0 02324 982CALM2ABC+7 TXI F3B09810
01670−0 60200 0 02363 983ORSM2CW+1 IN DECREMENT F3B09820
01671 0 07400 4 02177 984TSXCIT200,4 COMPILER F3B09830
01672 0 00000 0 02362 985HTRM2CW F3B09840
01673 0 00000 0 02363 986HTRM2CW+1 TXI, N(COMP) F3B09850
01674 0 00000 0 02311 987HTRM2CON+13 +170000000000 F3B09860
01675 0 00000 0 02365 988HTRM2CW+3 1, F3B09870
01676 0 02000 0 01631 989TRAM22848 RESTORE LINKAGE F3B09880
01677−0 53400 2 02346 990M22900 LXDCTRAST,2 TYPE IV INSERT F3B09890
01700 0 50000 2 02372 991CLATRASTO+2,2 3RD WRD 0F TRASTO ENTRY F3B09900
01701 0 76000 0 00002 992CHS CHANGE SIGN TO PLUS F3B09910
01702 0 76500 0 00022 993LRS18 T1, T0 ADDRESS. T2 TO M2 F3B09920
01703 0 76100 0 00000 994COR14 NOP F3B09930
01704 0 60100 0 02365 995PAT9 STOM2CW+3 F3B09940
01705 0 50000 0 02360 996PAT10 CLACLOC INCREMENT FOR LOC WD OF 1ST ENTRY F3B09950
01706 0 40000 0 02301 997PAT11 ADDM2CON+5 ADD 10 F3B09960
01707 0 60100 0 02360 998PAT12 STOCLOC RESTORE WITH NEW INCREMENT F3B09970
01710 0 60100 0 02364 999PAT13 STOM2CW+2 ALS 0 PLACE IN 3RD WD OF COMPILER F3B09980
01711 0 50000 0 02345 1000PAT14 CLATRSWC WORD COUNT F3B09990
01712−0 60200 0 02364 1001PAT15 ORSM2CW+2 SAVE IN DECREMENT OF 3RD WD F3B10000
01713 0 07400 4 02177 1002RET3 TSXCIT200,4 COMPILER F3B10010
01714 0 00000 0 02362 1003HTRM2CW F3B10020
01715 0 00000 0 02320 1004HTRM2ABC+3 SXD F3B10030
01716 0 00000 0 02364 1005COR16 HTRM2CW+2 WORD COUNT, INCREMENTED LOC WD F3B10040
01717 0 00000 0 02365 1006HTRM2CW+3 T1 F3B10050
01720 0 50000 2 02372 1007CLATRASTO+2,2 3RD WORD OF TRASTO ENTRY F3B10060
01721−0 32000 0 02306 1008ANAM2CON+10 SAVE ADDRESS F3B10070
01722 0 40000 0 02303 1009ADDM2CON+7 1 TO ADDRESS FOR C F3B10080
01723 0 60100 0 02365 1010STOM2CW+3 4TH WORD F3B10090
01724 0 07400 4 02177 1011TSXCIT200,4 COMPILER F3B10100
01725 0 00000 0 02364 1012COR17 HTRM2CW+2 LOC WORD F3B10110
01726 0 00000 0 02325 1013HTRM2ABC+8 TIX F3B10120
01727 0 00000 0 02311 1014HTRM2CON+13 17(8) F3B10130
01730 0 00000 0 02365 1015HTRM2CW+3 1T2 F3B10140
01731 0 02000 0 01631 1016TRAM22848 BACK TO RESTORE LINKAGE F3B10150
01732−0 53400 2 02346 1017M22925 LXDCTRAST,2 TYPE V INSERTS F3B10160
01733 0 50000 2 02372 1018CLATRASTO+2,2 3RD WORD F3B10170
01734 0 76000 0 00002 1019CHS CHANGE SIGN TO PLUS F3B10180
01735 0 76500 0 00022 1020LRS18 SHIFT T TO ADDRESS, N TO MQ F3B10190
01736 0 40000 0 02303 1021ADDM2CON+7 1 FOR SIGN F3B10200
01737 0 60100 0 02365 1022STOM2CW+3 4TH WRD. FOR COMPILER F3B10210
01740−0 50000 0 02324 1023CALM2ABC+7 TXI F3B10220
01741 0 77100 0 00022 1024ARS18 SHIFT TO ADDRESS PORTION F3B10230
01742 0 76300 0 00022 1025LLS18 CONTENTS OF MQ F3B10240
01743 0 60200 0 02363 1026SLWM2CW+1 1 TXI, N F3B10250
01744 0 07400 4 02177 1027TSXCIT200,4 COMPILER F3B10260
01745 0 00000 0 02362 1028HTRM2CW F3B10270
01746 0 00000 0 02363 1029HTRM2CW+1 TXI, N F3B10280
01747 0 00000 0 02311 1030HTRM2CON+13 17(8) F3B10290
01750 0 00000 0 02365 1031HTRM2CW+3 1,T F3B10300
01751 0 02000 0 01631 1032TRAM22848 RESTORE LINKAGE F3B10310
01752−0 53400 2 02346 1033M22950 LXDCTRAST,2 TYPE VI INSERTS F3B10320
01753 0 50000 2 02372 1034CLATRASTO+2,2 3RD WORD 0F TRASTO ENTRY F3B10330
01754 0 76000 0 00002 1035CHS F3B10340
01755−0 50100 0 02312 1036ORAM2CON+14 +120000000000 F3B10350
01756 0 60100 0 02364 1037STOM2CW+2 3RD WD OF COMPILER F3B10360
01757 0 50000 0 02277 1038CLAM2CON+3 +000000000004 F3B10370
01760−0 50100 0 02334 1039COR18 ORACOR28 +000004 F3B10380
01761 0 60100 0 02366 1040STOM2CW+4 5TH WORD F3B10390
01762 0 07400 4 02177 1041TSXCIT200,4 COMPILER F3B10400
01763 0 00000 0 02362 1042HTRM2CW F3B10410
01764 0 00000 0 02320 1043HTRM2ABC+3 SXD F3B10420
01765 0 00000 0 02313 1044HTRM2CON+15 60000000000 F3B10430
01766 0 00000 0 02366 1045HTRM2CW+4 4,4 F3B10440
01767 0 07400 4 02177 1046TSXCIT200,4 COMPILER F3B10450
01770 0 00000 0 02274 1047HTRM2CON ZERO F3B10460
01771 0 00000 0 02326 1048HTRM2ABC+9 TSX F3B10470
01772 0 00000 0 02364 1049HTRM2CW+2 12(8),T F3B10480
01773 0 00000 0 02277 1050HTRM2CON+3 ZERO,4 F3B10490
01774 0 50200 2 02372 1051CLSTRASTO+2,2 3RD WORD F3B10500
01775 0 60100 0 02365 1052STOM2CW+3 4TH WD OF COMPILER F3B10510
01776−0 50100 0 02310 1053ORAM2CON+12 14 IN DECREMENT F3B10520
01777 0 60100 0 02364 1054STOM2CW+2 3RD WD, SAVE T F3B10530
02000 0 07400 4 02177 1055TSXCIT200,4 COMPILER F3B10540
02001 0 00000 0 02274 1056HTRM2CON ZERO F3B10550
02002 0 00000 0 02321 1057HTRM2ABC+4 LXP F3B10560
02003 0 00000 0 02364 1058HTRM2CW+2 14(8),T F3B10570
02004 0 00000 0 02365 1059HTRM2CW+3 ZERO,T F3B10580
02005 0 07400 4 02177 1060TSXCIT200,4 COMPILER F3B10590
02006 0 00000 0 02274 1061HTRM2CON ZERO F3B10600
02007 0 00000 0 02327 1062HTRM2ABC+10 LXD F3B10610
02010 0 00000 0 02313 1063HTRM2CON+15 6(8) F3B10620
02011 0 00000 0 02366 1064HTRM2CW+4 5 4 F3B10630
02012 0 02000 0 01631 1065TRAM22848 BACK TO RESTORE LINKAGE F3B10640
1066INITIAL TRANSFER COMPILERS FOR TIFGO ENTRIES F3B10650
1067WHEN A TRASTO ENTRY IS ASSOCIATED WITH F3B10660
1068THE TRANSFER ADDRESS F3B10670
1069TRANSFER WITH LOCATION 0 F3B10680
02013−0 63400 4 02270 1070M23000 SXDADD6+3,4 SAVE CONTENTS 0F IR4 FOR LINKAGE F3B10690
02014 0 50000 0 02345 1071CLATIFFN CURRENT TIF60 FMLA. NO. IN DECR. F3B10700
02015 0 60100 0 02364 1072STOM2CW+2 3RD WORD F3B10710
02016 0 50000 0 02333 1073CLAADDCO 8 TIMES N0, 0F TIMES ADDRESS )S IN TRASTO F3B10720
02017−0 60200 0 02364 1074ORSM2CW+2 PLACE IN ADDRESS F3B10730
02020 0 07400 4 02177 1075TSXCIT200,4 COMPILER F3B10740
02021 0 00000 0 02274 1076HTRM2CON ZERO F3B10750
02022 0 00000 0 02315 1077HTRM2ABC TRA F3B10760
02023 0 00000 0 02364 1078HTRM2CW+2 TIFEN, ADDC0 F3B10770
02024 0 00000 0 02274 1079HTRM2CON ZERO F3B10780
02025 0 02000 0 02271 1080COR20 TRAPAT17 F3B10790
02026 0 02000 4 00006 1081TRA6,4 BACK TO MAIN ROUTINE F3B10800
1082INFO INSTRUCTION FOR IF OVERFLOW F3B10810
02027−0 63400 4 02270 1083M23025 SXDADD6+3,4 SAVE LINKAGE F3B10820
02030 0 50000 0 02345 1084CLATIFFN TIFGO FMLA NO. F3B10830
02031 0 60100 0 02364 1085STOM2CW+2 3RD WD. F3B10840
02032 0 50000 0 02333 1086CLAADDCO COUNT F3B10850
02033−0 60200 0 02364 1087ORSM2CW+2 ADDRESS F3B10860
02034 0 07400 4 02177 1088TSXCIT200,4 COMPILER F3B10870
02035 0 00000 0 02345 1089HTRTIFFN TIFGO FMLA NO. F3B10880
02036 0 00000 0 02274 1090HTRM2CON ZERO F3B10890
02037 0 00000 0 02364 1091HTRM2CW+2 TIFFN, ADDC0 F3B10900
02040 0 00000 0 02274 1092HTRM2CON F3B10910
02041 0 02000 0 02271 1093COR22 TRAPAT17 F3B10920
02042 0 02000 4 00006 1094TRA6,4 F3B10930
1095TRANSFER ON ZERO WITH LOCATION FMLA NO + 8 F3B10940
02043−0 63400 4 02270 1096M23035 SXDADD6+3,4 F3B10950
02044 0 50000 0 02345 1097CLATIFFN F3B10960
02045 0 60100 0 02362 1098STOM2CW INT.FMLA NO F3B10970
02046 0 60100 0 02364 1099STOM2CW+2 3RD WD F3B10980
02047 0 50000 0 02333 1100CLAADDCO COUNT F3B10990
02050−0 60200 0 02362 1101ORSM2CW ADDRESS OF FIRST WD. F3B1100D
02051 0 40000 0 02301 1102ADDM2CON+5 ADD 10 F3B11010
02052−0 60200 0 02364 1103ORSM2CW+2 ADD 10 TO COUNT F3B11020
02053 0 07400 4 02177 1104TSXCIT200,4 COMPILER F3B11030
02054 0 00000 0 02362 1105HTRM2CW INT FMLAN0, ADDC0 F3B11040
02055 0 00000 0 02316 1106HTRM2ABC+1 TZE F3B11050
02056 0 00000 0 02364 1107HTRM2CW+2 INT. FMLA NO., ADDC0+10 F3B11060
02057 0 00000 0 02274 1108HTRM2CON ZERO F3B11070
02060 0 02000 0 02271 1109COR24 TRAPAT17 F3B11080
02061 0 02000 4 00006 1110TRA6,4 F3B11090
1111TRANSFER ON PLUS WITH LOCATION 0 F3B11100
02062−0 63400 4 02270 1112M23040 SXDADD6+3,4 SAVE LINKAGE F3B11110
02063 0 50000 0 02345 1113CLATIFFN TIFGO INT. FMLA NO. F3B11120
02064 0 60100 0 02364 1114STOM2CW+2 3RD WD F3B11130
02065 0 50000 0 02333 1115CLAADDCO F3B11140
02066 0 40000 0 02301 1116ADDM2CON+5 10 TO ADDC0 F3B11150
02067−0 60200 0 02364 1117ORSM2CW+2 IN ADDRESS OF 3RD WD F3B11160
02070 0 07400 4 02177 1118TSXCIT200,4 COMPILER F3B11170
02071 0 00000 0 02274 1119HTRM2CON ZERO F3B11180
02072 0 00000 0 02317 1120HTRM2ABC+2 TPL F3B11190
02073 0 00000 0 02364 1121HTRM2CW+2 TIFFN, ADDC0+10 F3B11200
02074 0 00000 0 02274 1122HTRM2CON ZERO F3B11210
02075 0 02000 0 02271 1123COR26 TRAPAT17 F3B11220
02076 0 02000 4 00006 1124TRA6,4 F3B11230
1125INITIAL TRANSFER COMPILERS FOR TIFGO F3B11240
1126ENTRIES WHEN THERE IS NO TRASTO ENTRY F3B11250
1127FOR THE TRANSFER ADDRESS F3B11260
1128TRANSFER WITH LOCATION 0 F3B11270
02077−0 63400 4 02331 1129M23050 SXDCBOX,4 SAVE LINKAGE F3B11280
02100−0 53400 2 02347 1130LXDETRAL,2 IN IRZ CURRENT TRALEV ENTRY PT, F3B11290
02101 0 50000 2 03211 1131CLATRALEV,2 CURRENT TRALEV ENTRY F3B11300
02102−0 32000 0 02305 1132ANAM2CON+9 SAVE DECREMENT, OF TRAVEV ENTRY F3B11310
02103 0 60100 0 02364 1133STOM2CW+2 SRD WORD F3B11320
02104 0 07400 4 02177 1134TSXCIT200,4 COMPILER F3B11330
02105 0 00000 0 02274 1135HTRM2CON ZERO F3B11340
02106 0 00000 0 02315 1136HTRM2ABC TRA F3B11350
02107 0 00000 0 02364 1137HTRM2CW+2 AI F3B11360
02110 0 00000 0 02274 1138HTRM2CON ZERO F3B11370
02111−0 53400 4 02331 1139LXDCBOX,4 RESTORE LINKAGE F3B11380
02112 0 02000 4 00002 1140TRA2,4 F3B11390
1141INFO INSTRUCTION FOR IF OVERFLOW F3B11400
02113−0 63400 4 02331 1142M23060 SXDCBOX,4 SAVE LINKAGE F3B11410
02114−0 53400 2 02347 1143LXDETRAL,2 CURRENT TRALEV ENTRY DT. F3B11420
02115 0 50000 2 03211 1144CLATRALEV,2 TRALEV ENTRY F3B11430
02116−0 32000 0 02305 1145ANAM2CON+9 SAVE DECREMENT F3B11440
02117 0 60100 0 02364 1146STOM2CW+2 3RD WD F3B114S0
02120 0 07400 4 02177 1147TSXCIT200,4 COMPILER F3B11460
02121 0 00000 0 02345 1148HTRTIFFN TIFGO INT. FMLA NO F3B11470
02122 0 00000 0 02274 1149HTRM2CON ZERO F3B11480
02123 0 00000 0 02364 1150HTRM2CW+2 AI F3B11490
02124 0 00000 0 02274 1151HTRM2CON ZERO F3B11500
02125−0 53400 4 02331 1152LXDCBOX,4 RESTORE LINKAGE F3B11510
02126 0 02000 4 00002 1153TRA2,4 F3B11520
1154TRANSFER ON ZERO WITH LOCATION FMLA NO + 8 F3B11530
02127−0 63400 4 02331 1155M23065 SXDCBOX,4 SAVE LINKAGE F3B11540
02130−0 53400 2 02347 1156LXDETRAL,2 CURRENT TRALEV ENTRY PT F3B11550
02131 0 50000 2 03211 1157CLATRALEV,2 SAVE DECREMENT OF TRALEV F3B11560
02132−0 32000 0 02305 1158ANAM2CON+9 ENTRY F3B11570
02133 0 60100 0 02364 1159STOM2CW+2 F3B11580
02134 0 50000 0 02345 1160CLATIFFN TIFGO FMLA NO. F3B11590
02135 0 60100 0 02362 1161STOM2CW F3B11600
02136 0 50000 0 02301 1162CLAM2CON+5 10 (8) F3B11610
02137−0 60200 0 02362 1163ORSM2CW ADD TO ADDRESS F3B11620
02140 0 07400 4 02177 1164TSXCIT200,4 F3B11630
02141 0 00000 0 02362 1165HTRM2CW T1FFN+10(8) F3B11640
02142 0 00000 0 02316 1166HTRM2ABC+1 TZE F3B11650
02143 0 00000 0 02364 1167HTRM2CW+2 AI F3B11660
02144 0 00000 0 02274 1168HTRM2CON ZERO F3B11670
02145−0 53400 4 02331 1169LXDCBOX,4 F3B11680
02146 0 02000 4 00002 1170TRA2,4 F3B11690
1171TRANSFER ON PLUS WITH LOCATION 0 F3B11700
02147−0 63400 4 02331 1172M23070 SXDCBOX,4 SAVE LINKAGE F3B11710
02150−0 53400 2 02347 1173LXDETRAL,2 F3B11720
02151 0 50000 2 03211 1174CLATRALEV,2 F3B11730
02152−0 32000 0 02305 1175ANAM2CON+9 DECREMENT OF TRALEV ENTRY F3B11740
02153 0 60100 0 02364 1176STOM2CW+2 F3B11750
02154 0 07400 4 02177 1177TSXCIT200,4 F3B11760
02155 0 00000 0 02274 1178HTRM2CON ZERO F3B11770
02156 0 00000 0 02317 1179HTRM2ABC+2 TPL F3B11780
02157 0 00000 0 02364 1180HTRM2CW+2 AI F3B11790
02160 0 00000 0 02274 1181HTRM2CON ZERO F3B11800
02161−0 53400 4 02331 1182LXDCBOX,4 F3B11810
02162 0 02000 4 00002 1183TRA2,4 F3B11820
1184FINAL TRANSFER COMPILER FOR TIFGO F3B11830
1185ENTRIES WHEN A TRASTO ENTRY IS ASSOCIATED F3B11840
1186WITH THE TRANSFER ADDRESS F3B11850
02163−0 63400 4 02331 1187M23075 SXDCBOX,4 SAVE LINKAGE F3B11860
02164−0 53400 2 02347 1188LXDETRAL,2 F3B11870
02165 0 50000 2 03211 1189CLATRALEV,2 F3B11880
02166−0 32000 0 02305 1190ANAM2CON+9 SAVE DECREMENT OF TRALEV F3B11890
02167 0 60100 0 02364 1191STOM2CW+2 ENTRY F3B11900
02170 0 07400 4 02177 1192TSXCIT200,4 F3B11910
02171 0 00000 0 02311 1193HTRM2CON+13 +170000000000 F3B11920
02172 0 00000 0 02315 1194HTRM2ABC TRA F3B11930
02173 0 00000 0 02364 1195HTRM2CW+2 AI F3B11940
02174 0 00000 0 02274 1196HTRM2CON ZERO F3B11950
02175−0 53400 4 02331 1197LXDCBOX,4 F3B11960
02176 0 02000 4 00001 1198TRA1,4 F3B11970
1199M2 COMPILER CIT200 F3B11980
02177 0 60100 0 02351 1200CIT200 STOE1C2 SAVE AC F3B11990
02200−0 60000 0 02352 1201STQE2C2 SAVE MQ F3B12000
02201−0 63400 1 02353 1202SXDE3C2,1 SAVE IR 1 F3B12010
02202−0 63400 2 02354 1203SXDE4C2,2 SAVE IR 2 F3B12020
02203−0 53400 2 02355 1204LXDBBOX,2 2 S COMP. OF NO. OF WDS. IN BLOCK F3B12030
02204 3 77634 2 02217 1205TXHCIT204,2,−100 COMPARE TO 100. F3B12040
02205−3 00000 2 02217 1206TXLCIT204,2,0 LAST ENTRY F3B12050
02206 0 76600 0 00222 1207WRS146 SELECT TAPE 2 F3B12060
02207 0 50000 0 07322 1208CLATFRC0 TIFGO FILE REC. COUNT F3B12070
02210 0 40000 0 02303 1209ADDM2CON+7 ADD 1 TO DECREMENT F3B12080
02211 0 60100 0 07322 1210STOTFRC0 TIFGO FILE REC. COUNT F3B12090
02212 0 53400 1 02274 1211LXAM2CON,1 ZERO IN IR 1 F3B12100
02213 0 70000 1 06622 1212CIT201 CPYCIB2,1 OUTPUT AREA F3B12110
02214 1 77777 1 02215 1213TXICIT202,1,−1 SET COUNT FOR NEXT WORD F3B12120
02215 1 00001 2 02216 1214CIT202 TXICIT203,2,1 SET UP COUNT OF BLOCK F3B12130
02216 3 00001 2 02213 1215CIT203 TXHCIT201,2,1 BACK T0 CONTINUE WRITING F3B12140
02217 0 53400 1 02277 1216CIT204 LXAM2CON+3,1 COUNT 0F 4 IN IR 1 F3B12150
02220 0 50000 0 02275 1217CLAM2CON+1 1 IN ACC F3B12160
02221 0 62100 0 02222 1218STACIT205 TO GET NEXT ENTRY F3B12170
02222 0 50000 4 00000 1219CIT205 CLA0,4 ADDRESS OF NEXT ENTRY F3B12180
02223 0 62100 0 02224 1220STACIT206 F3B12190
A02224 0 50000 0 00000 1221CIT206 CLA NEXT ENTRY F3B12200
02225 0 60100 2 06622 1222STOCIB2,2 OUTPUT AREA F3B12210
02226 0 50000 0 02222 1223CLACIT205 ADDRESS F3B12220
02227 0 40000 0 02275 1224ADDM2CON+1 ONE F3B12230
02230 0 62100 0 02222 1225STACIT205 RESTORE ADDRESS F3B12240
02231 1 77777 2 02232 1226TXICIT207,2,−1 DECREASE BLOCK COUNT F3B12250
02232 2 00001 1 02222 1227CIT207 TIXCIT205,1,1 GET NEXT ENTRY F3BI2260
02233−0 63400 2 02355 1228SXDBBOX,2 SAVE COUNT F3B12270
02234 0 50000 0 02351 1229CLAE1C2 RESTORE AC F3B12280
02235 0 56000 0 02352 1230LDQE2C2 RESTORE MQ F3B12290
02236−0 53400 1 02353 1231LXDE3C2,1 RESTORE IR 1 F3B12300
02237−0 53400 2 02354 1232LXDE4C2,2 RESTORE IR 2 F3B12310
02240 0 02000 4 00005 1233TRA5,4 BACK TO MAIN ROUTINE F3B12320
02241−0 63400 4 02260 1234ADD1 SXDADD4,4 SAVE LINKAGE F3B12330
02242−0 53400 2 02346 1235ADD2 LXDCTRAST,2 CURRENT TRASTO ENTRY POINT F3B12340
02243 0 50000 2 02372 1236CLATRASTO+2,2 3RD WD OF TRASTO ENTRY F3B12330
02244 0 12000 0 02254 1237TPLADD3 SORT OUT TYPES 1,2,3 F3B12360
02245 0 50000 2 02371 1238CLATRASTO+1,2 TYPES 4,5,6. TEST 2ND WD F3B12370
02246−0 12000 0 02254 1239TMIADD3 TYPE 2 F3B12380
02247 0 50000 2 02370 1240CLATRASTO,2 1ST WORD F3B12390
02250−0 12000 0 02254 1241TMIADD3 TYPE 3 F3B12400
02251 0 50000 0 02333 1242CLAADDCO COUNT TIMES 8 F3B12410
02252 0 40000 0 02301 1243ADDM2CON+5 ADD ONE F3B12420
02253 0 60100 0 02333 1244STOADDCO RESTORE NEW COUNT F3B12430
02254 1 77774 2 02255 1245ADD3 TXIADD3+1,2,−4 SKIP TO NEXT ENTRY F3B12440
02255 0 07400 4 01456 1246TSXM22700,4 TRASTO FMLA NO SEARCH F3B12450
02256 0 02000 0 02263 1247TRAADD5 F3B12460
02257 0 07400 4 01477 1248TSXM22750,4 TRASTO LEVEL NO SEA RCH F3B12470
D02260−3 00000 0 02265 1249ADD4 TXLADD6,0 F3B12480
02261−0 53400 2 02346 1250LXDCTRAST,2 END F3B12490
02262 1 77774 2 02255 1251TXIADD3+1,2,−4 BACK FOR NEXT ENTRY F3B12500
02263−0 53400 4 02260 1252ADD5 LXDADD4,4 F3B12510
02264 0 02000 4 00001 1253TRA1,4 BACK TO MAIN ROUTINE, VIA PAT 18 F3B12520
02265 0 50000 0 02333 1254ADD6 CLAADDCO F3B12530
02266 0 40200 0 02301 1255SUBM2CON+5 F3B12540
02267 0 60100 0 02333 1256STOADDCO F3B12550
D02270−3 00000 0 02242 1257TXLADD2,0 F3B12560
02271 0 07400 4 02241 1258PAT17 TSXADD1,4 F3B12570
02272−0 53400 4 02270 1259PAT18 LXDADD6+3,4 F3B12580
02273 0 02000 4 00006 1260PAT19 TRA6,4 F3B12590
02274+000000000000 1261 M2CON DEC0,1,2,4,6,8,16,1B17,3B17 F3B12600
02275+000000000001 1262
02276+000000000002 1263
02277+000000000004 1264
02300+000000000006 1265
02301+000000000010 1266
02302+000000000020 1267
02303+000001000000 1268
02304+000003000000 1269
02305+077777000000 1270OCT77777000000,77777,50000000000,140000000000 F3B12610
02306+000000077777 1271
02307+050000000000 1272
02310+140000000000 1273
02311+170000000000 1274COR27 OCT170000000000,120000000000,60000000000,3000000 F3B12620
02312+120000000000 1275
02313+060000000000 1276
02314+000003000000 1277
02315 635121000000 1278 M2ABC BCD6TRA000TZE000TPL000SXD000LXP000PXD000 F3B12630
02316 637125000000 1279
02317 634743000000 1280
02320 626724000000 1281
02321 436747000000 1282
02322 476724000000 1283
02323 626346000000 1284BCD5STO000TXI000TIX000TSX000LXD000 F3B12640
02324 636731000000 1285
02325 633167000000 1286
02326 636267000000 1287
02327 436724000000 1288
02330+000000000005 1289M2ECTR DEC5 F3B12650
02274 1290 L(0) SYNM2CON F3B12660
02276 1291 L(2) SYNM2CON+2 F3B12670
02277 1292 L(4) SYNM2CON+3 F3B12680
02331+000000000003 1293 L(3) DEC3 F3B12690
02331 1294CBOX SYNL(3) IRC STORED IN DECR FIELD FOR ALL CLSD SUBROUTINE LINKAGEF3B12700
02332+000000000456 1295 O456 OCT456 F3B12710
02332 1296L0X SYNO456 LOWER INDEX FOR TRAD IN DECR FIELD F3B12720
02333 0 00000 0 02370 1297TRSORG TRASTO F3B12730
02333 1298ORTRST SYNTRSORG F3B12740
02333 1299ADDCO SYNTRSORG 8 TIMES THE NUM OF TIMES THE CURRENT ADDRESS OF THE F3B127S0
1300 CURRENT TIFGO ENTRY APPEARS IN TRASTO, IN ADDR FIELD F3B12760
02334+000004000000 1301COR28 OCT4000000 F3B12770
02335−200000000000 1302 MASK OCT−200000000000 F3B12780
02336+000000000460 1303 O460 OCT460 F3B12790
02337 0 00000 0 00000 13041BOX F3B12800
02340 0 00000 0 00000 13052BOX F3B12810
02341 0 00000 0 00000 13063BOX F3B12820
02342 0 00000 0 00000 13074BOX F3B12830
02343 0 00000 0 00000 13085BOX F3B12840
02344 0 00000 0 00000 13096BOX F3B12850
02337 1310ONEL SYN1BOX TWOS COMPS F3B12860
02340 1311TWOL SYNONEL+1 OF THE LENGTHS F3B12870
02341 1312THREEL SYNONEL+2 OF VARIOUS TYPES F3B12880
02342 1313F0URL SYNONEL+3 OF ENTRY BLOCKS F3B12890
02343 1314FIVEL SYNONEL+4 IN TRASTO F3B12900
02344 1315SIXL SYNONEL+5 IN DECREMENT FIELD F3B12910
02345 0 00000 0 00000 1316 TRSWC WORD COUNT F3B12920
02345 1317TIFFN SYNTRSWC CURRENT TIFGO FMLA NUM IN DEC FIELD F3B12930
02346 0 00000 0 00000 1318WCCHS F3B12940
02346 1319CTRAST SYNWCCHS CURRENT TRASTO ENTRY POINT IN DEC FIELD (TWOS COMP) F3B12950
02347 0 00000 0 00000 1320CHS1 F3B12960
02347 1321ETRAL SYNCHS1 CURRENT TRALEV ENTRY POINT IN DEC FIELD (TWOS COMP) F3B12970
02350 0 00000 0 00000 1322CHS2 F3B12980
02350 1323LEVN0 SYNCHS2 LEVEL NUM OF CURRENT ADDR OF CURR TIFGO ENTRY IN ADDRESSF3B12990
02351 0 00000 0 00000 1324E1C2 CELL FOR SAVING AC F3B13000
02352 0 00000 0 00000 1325E2C2 CELL FOR SAVING MQ F3B13010
02353 0 00000 0 00000 1326E3C2 CELL FOR SAVING IRA IN DEC FIELD F3B13020
02354 0 00000 0 00000 1327E4C2 CELL FOR SAVING IRB IN DEC FIELD F3B13030
02355 0 00000 0 00000 1328BBOX TWOS COMP OF NO OF WDS ALREADY ENTERED IN BLOCK F3B13040
02356 0 00000 0 00000 1329ETRAST TRASTO ENTRY POINT FOR INITIAL TIFGO FMLA NO MATCH IN DEC F3B13050
02357 0 00000 0 00000 1330NETRAL TRALEV ENTRY POINT FOR LAST ADD IN DEC FIELD(TWOS COMP) F3B13060
02360 0 00000 0 00000 1331CLOC INCREMENT FOR LOC WD OF FIRST INST IN CUR BLOCK F3B13070
1332 0F TRASTO INSERTIONS (IN ADDR FIELD) F3B13080
02361 0 00000 0 00000 1333SAVE TEHP STORAGE FOR FIRST TRALEV ENTRY FOR IF (E) F3B13090
02362 1334M2CW BSS5 FOUR WORD INSTRUCTION STORAGE F3B13100
02367 0 00000 0 00000 1335CTRSWC F3B13110
02370 1336TRASTO BSS400 F3B13120
02370 1337 TYPE1 SYNTRASTO F3B13130
03210 1338 TYPE2 BSS400 F3B13140
04030 1339 TYPE3 BSS400 F3B13150
04650 1340 TYPE4 BSS400 F3B13160
05470 1341 TYPE5 BSS400 F3B13170
06310 1342 TYPE6 BSS400 F3B13180
03211 1343TRALEV SYNTYPE2+1 F3B13190
05472 1344 TIFGO SYNTYPE2+1202 F3B13200
06622 1345CIB2 SYNTYPE2+1802 F3B13210
06767 1346TRAD SYNCIB2+101 F3B13220
07322 1347ORG3794 F3B13230
07322 1348 TFRC0 BSS1 F3B13240
07323 1349EASC0 BSS1 CURRENT ASC0 ENTRY POINT IN DECR FIELD (TWOS COMP) F3B13250
07324 1350ASN0 BSS1 ONE LESS THAN CUR ASSIGN NUM IN DEC FIELD F3B13260
07325 1351 ASC0 BSS300 F3B13270