1 MASTER RECORD CARD = FN056
2THE FOLLOWING PROGRAM CONSTITUTES THE FIRST SECTION OF THE F3B00010
3MERGE. IT PERFORMS THE INITIAL MERGE OF THE AIL FILE AND THE F3B00020
4DO FILE OF COMPILED INSTRUCTIONS. IN ADDITION TO MERGING F3B00030
5THESE TWO FILES, IT INSERTS THE ARITHMETIC OPEN SUBROUTINES F3B00040
6IN THEIR CORRECT P0SITION IN THE FILE OF COMPILED INSTRUCT- F3B00050
7IONS AND EFFECTS APPROPRIATE GENERALIZED TAG CHANGES IN AIL F3B00060
8FILE INSTRUCTIONS F3B00070
00030 9ORG24 F3B00080
10 TAPE P0SITIONING T0 READ FORTAG INTO CORE STORAGE F3B00090
00030 0 53400 1 02164 11LXAM1ECTR,1 LOAD 5 INTO IRA TP RD ERROR CTR. F3B00100
00031 0 76200 0 00222 12M10000 RDS146 READ BINARY TAPE 2 WITH FORTAG TBL F3B00110
00032 0 70000 0 05737 13CPYERAS THE 7TH RECORD OF 5TH FILE WHICH IS F3B00120
00033 0 07400 2 00064 14TSXM10043,2 THE TAPE TABLES HAVING 11 RECORDS. F3B00130
00034 0 76100 0 00031 15NOPM10000 TAPE 2 STANDS AT DOTAGB RECORD F3B00140
00035−0 53400 1 05737 16LXDERAS,1 COUNT FILE. TAPE 2 BACKSPACED NO. F3B00150
00036 1 00007 1 00037 17TXIM10010,1,7 RECORDS IN DOTAGB PLUS 7 T0 START FORTAG, F3B00160
00037 0 76400 0 00222 18M10010 BST146 F3B00170
00040 2 00001 1 00037 19TIXM10010,1,1 F3B00180
20READ FORTAG INTO CORE STORAGE F3B00190
00041−0 76000 0 00012 21RTT TURN-OFF TAPE INDICATOR, F3B00200
00042 0 76100 0 00000 22NOP IF 0O. F3B00210
00043 0 53400 1 02164 23LXAM1ECTR,1 LOAD 5 INTO IRA TP RD ERROR CTR. F3B00220
00044 0 76200 0 00222 24M10020 RDS146 READ TAPE 2 P0SITIONED AT FORTAG TBL F3B00230
00045 0 70000 0 02326 25CPYFORTAG−1 AND TEST FIRST WORD TO GUARANTEE F3B00240
00046 0 50000 0 02326 26CLAFORTAG−1 BEGINNING OF FORTAG TABLE. F3B00250
00047 0 40200 0 02174 27SUBM1CON+4 FORTAG IS TABLE NO. 4. F3B00260
00050 0 10000 0 00052 28TZEM10030 TABLE NO. IS FIRST WORD OF TAPE TABLES. F3B00270
00051 0 07400 4 00004 29TSX4,4 WRONG TABLE. IS NOT FORTAG. F3B00280
00052 0 70000 0 02326 30M10030 CPYFORTAG−1 READ 2ND FORTAG TABLE WORD AND TEST F3B00290
00053 0 50000 0 02326 31CLAFORTAG−1 THERE ARE FORTAG ENTRIES. F3B00300
00054 0 10000 0 00061 32TZEM10040 FORTAG TABLE ENTRIES ARE 1 WORD. F3B00310
00055 0 53400 2 02170 33LXAM1CON,2 LOAD 0 INTO INDEX REG. B. F3B00320
00056 0 70000 2 02327 34M10035 CPYFORTAG,2 READ 3RD AND SUCCEEDING WORDS F3B00330
00057 1 77777 2 00056 35TXIM10035,2,−1 OF FORTAG INTO CONSEC, LOCATIONS. F3B00340
00060 0 07400 4 00004 36TSX4,4 EOF SKIP. FORTAG NOT LAST REC. OF FILE. F3B00350
00061 0 07400 2 00064 37M10040 TSXM10043,2 TEST IF TAPE READ CORRECTLY. F3B00360
00062 0 76100 0 00044 38NOPM10020 RE-READ TAPE LOCATION. F3B00370
00063 0 02000 0 00075 39TRAM10050 CONTINUE IN MAIN PROGRAM. F3B00380
00064 0 76600 0 00333 40M10043 WRS219 DELAY 704 FOR RTT TEST. F3B00390
00065−0 76000 0 00012 41RTT F3B00400
00066 0 02000 0 00070 42TRAM10045 TO TAPE READ ERROR ROUTINE. F3B00410
00067 0 02000 2 00002 43TRA2,2 TAPE 2 READ CORRECTLY. RETURN MAIN RTN, F3B00420
00070 0 50000 2 00001 44M10045 CLA1,2 TAPE READ ERROR RTN. INITIALIZE F3B00430
00071 0 62100 0 00073 45STAM10048 TIX ADDRESS TO RETURN TO PROPER F3B00440
00072 0 76400 0 00222 46BST146 RE-READ TAPE LOCATION. F3B00450
00073 2 00001 1 00000 47M10048 TIX0,1,1 F3B00460
00074 0 07400 4 00004 48TSX4,4 BINARY READ 5 TIMES UNSUCCESSFULLY F3B00470
49POSITIONING OF TAPE 2, TAPE 3, TAPE 4, TO READ COMPAIL F3B00480
50WRITE MERGE 1, AND READ DO FILE, RESP. F3B00490
00075 0 77200 0 00223 51M10050 REW147 REWIND TAPE 3 TO WRITE MERGE 1. F3B00500
00076 0 77200 0 00224 52REW148 REWIND TAPE 4 FOR COMPDO FILE. F3B00510
00077 0 76200 0 00224 53RDS148 SPACE OVER TRALEV THE 1ST FILE ON F3B00520
00100 0 70000 0 05737 54M10055 CPYERAS TAPE 4 T0 GET T0 FIRST RECORD F3800530
00101 0 02000 0 00100 55TRAM10055 OF COMPDO FILE. F3B00540
00102 0 02000 0 00104 56TRAM10060 END OF TRALEV FILE. F3800550
00103 0 02000 0 00077 57TRAM10055−1 SPACE 0VER NEXT TRALEV RECORD. F3B00560
00104 0 53400 2 02170 58M10060 LXAM1CON,2 LOAD 0 INTO IRB. F3B00570
00105 1 00021 2 00106 59TXIM10060+2,2,17 F3B00580
00106 0 76400 0 00222 60BST146 BACKSPACE BINARY TAPE 2 BY F3B00590
00107 2 00001 2 00106 61TIXM10060+2,2,1 13 RECORDS TO POSITIDN TAPE 2 F3B00600
00110 0 53400 1 02164 62LXAM1ECTR,1 TO READ COMPAIL RECORD COUNT FILE. F3B00610
00111 0 76200 0 00222 63M10063 RDS146 F3B00620
00112 0 70000 0 05737 64CPYERAS F3B00630
00113 0 07400 2 00064 65TSXM10043,2 F3B00640
00114 0 76100 0 00111 66NOPM10063 BACKSPACE TAPE 2 OVER COMPAIL F3B00650
00115 0 53400 2 05737 67LXAERAS,2 RECORD COUNT, A EOF MARK, AND F3B00660
00116 1 00002 2 00117 68TXIM10070,2,2 OVER COMPAIL RECORDS F3B00670
00117 0 76400 0 00222 69M10070 BST146 TO POSITION TAPE 2 TO FIRST F3B00680
00120 2 00001 2 00117 70TIXM10070,2,1 RECORD OF COMPAIL FILE. F3B00690
00121−0 76000 0 00141 71MSE97 TURN-OFF SENSE LIGHTS 1,3, AND 4. F3B00700
00122 0 76100 0 00000 72NOP SENSE LIGHT 2 USED BY SEC. 2 F3B00710
00123−0 76000 0 00143 73MSE99 TO INDICATE TO SEC. 3 THERE F3B00720
00124 0 76100 0 00000 74NOP ARE NO COMPDO INSTR IF F3B00730
00125−0 76000 0 00144 75MSE100 LIGHT 2 IS ON. F3B00740
00126 0 76100 0 00000 76NOP F3B00750
77CHANGE TAG TABLE EDIT F3B00760
00127 0 53400 4 02164 78PEC00 LXAM1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR. F3B00770
00130 0 76200 0 00303 79PEC01 RDS195 UNEDITED CHTG TABLE ON L0G OR 3. F3B00780
00131 0 46000 0 02170 80LDAM1CON 0=DR ORG UCHTG - 2 F3B00790
00132 0 70000 0 05737 81CPYERAS TABLE LENGTH TO ERAS F3B00800
00133 0 70000 0 05740 82CPYERAS+1 CHECK SUM INTO ERAS+1. F3B00810
00134−0 50000 0 05737 83CALERAS CHECK DRUM READ F3B00820
00135 0 40200 0 05740 84SUBERAS+1 TEST IF TABLE LENGTH READ F3B00830
00136 0 10000 0 00141 85TZEPEC02 CORRECTLY FROM DRUM 3. F3B00840
00137 2 00001 4 00130 86TIXPEC01,4,1 READ DRUM 5 TIMES IF LENGTH WRONG. F3B00850
00140 0 07400 4 00004 87TSX4,4 DRUM READ 5 TIMES UNSUCCESSFULLY. F3B00860
00141 0 53400 4 02164 88PEC02 LXAM1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR. F3B00870
00142 0 50000 0 05737 89PEC03 CLAERAS TEST IF THERE ARE ANY ENTRIES F3B00880
00143 0 10000 0 00235 90TZEPEC20 IN CHG TAG TABLE. F3B00890
00144 0 73400 3 00000 91PAX0,3 UNEDITED TABLE LENGTH TO IRA, IRB F3B00900
00145 0 40200 0 00154 92SUBPEC05 COMPUTE CORE ADDRESS INTO WHICH F3B00910
00146 0 62100 0 00151 93STAPEC04 CHG TAG TABLE ENTRIES TO BE F3B00920
00147 0 76200 0 00303 94RDS195 READ PLUS TABLE LENGTH FOR TIX OPER. F3B00930
00150 0 46000 0 02172 95LDAM1CON+2 DRUM READ ADDRESS OF 2. F3B00940
00151 0 70000 1 00000 96PEC04 CPY0,1 READ CHG TAG TABLE INTO UCHTG BLOCK F3B00950
00152 2 00001 1 00151 97TIXPEC04,1,1 F3B00960
00153 0 53400 1 02170 98LXAM1CON,1 LOAD 0 INTO IRA. F3B00970
00154−0 50000 1 05263 99PEC05 CALUCHTG,1 UNEDITED CHG TAG TABLE ENTRIES CONSIST F3B00980
00155 0 36100 1 05264 100ACLUCHTG+1,1 OF 3 WORDS. TEST LOG SUM OF F3B00990
00156 0 40200 1 05265 101SUBUCHTG+2,1 2 WORDS EQUALS DRUM CHECK F3B01000
00157 0 10000 0 00162 102TZEPEC06 SUM FOR THE ENTRY. F3B01010
00160 2 00001 4 00142 103TIXPEC03,4,1 DRUM READ ERROR. TRY 5 TIMES. F3B01020
00161 0 07400 4 00004 104TSX4,4 DRUM READ 5 TIMES UNSUCCESSFULLT. F3B01030
00162 1 77775 1 00163 105PEC06 TXIPEC07,1,−3 MODIFY TABLE ADDR FOR NEXT 3 WORDS. F3B01040
00163 2 00003 2 00154 106PEC07 TIXPEC05,2,3 TEST FOR END CHG TAG BLOCK F3B01050
107BEGIN EDIT OF UCHTG F3B01060
00164 0 53400 3 02170 108PEC10 LXAM1CON,3 LOAD 0 INTO IRA, IRB F3B01070
00165 0 50000 0 05740 109CLAERAS+1 PUT UCHTG TABLE LENGTH IN ADDRESS AND F3B01080
00166−0 50100 0 02326 110ORAFORTAG−1 FORTAG TABLE LENGTH IN DECREMENT F3B01090
00167 0 76000 0 00006 111COM0 PORTIONS OF ACCUM. F3B01100
00170 0 40000 0 02212 112ADDM1CON+18 OBTAIN 25 COMP OF FORTAG F3B01110
00171 0 62200 0 00213 113STDPEC16 LENGTH AND UCHTG LENGTH AND F3B01120
00172 0 76700 0 00022 114ALS18 STORE IN DEC OF TEST INST. F3B01130
00173 0 62200 0 00211 115STDPEC14 F3B01140
00174 0 50000 1 02327 116PEC11 CLAFORTAG,1 SUCCESSIVE DUPLICATES IN F3B01150
00175 0 34000 1 02330 117CASFORTAG+1,1 FORTAG TABLE NOT COMPARED TO F3B01160
00176 0 02000 0 00200 118TRAPEC12 UCHTG TABLE ENTRIES. F3801170
00177 1 77777 1 00174 119TXIPEC11,1,−1 IRA KEEPS TRACK OF FORTAG ENTRIES. F3B01180
00200 0 76700 0 00022 120PEC12 ALS18 IRC KEEPS TRACK OF UCHTG ENTRIES. F3B01190
00201 0 60100 0 05737 121STOERAS MOVE TAG OF CURRENT FORTAG ENTRY F3B01200
00202 0 53400 4 02170 122LXAM1CON,4 INTO DECREMENT AND COMPARE WITH F3B01210
00203 0 50000 4 05264 123PEC13 CLAUCHTG+1,4 TAG1 IN DECREMENT OF UCHTG F3B01220
00204−0 32000 0 02205 124ANAM1CON+13 ENTRIES. IF TAGS ARE EQUAL, F3B01230
00205 0 34000 0 05737 125CASERAS TEST FORTAG INTERNAL F3B01240
00206 1 77775 4 00211 126TXIPEC14,4,−3 FORMULA LIES WITHIN RANGE F3B01250
00207 0 02000 0 00243 127TRAPEC30 GIVEN IN FIRST WORD F3B01260
00210 1 77775 4 00211 128TXIPEC14,4,−3 OF UCHTG ENTRY. F3B01270
D00211 3 00000 4 00203 129PEC14 TXHPEC13,4 2S COMP OF UCHTG LENGTH IN DECREMENT. F3B01280
00212 1 77777 1 00213 130PEC15 TXIPEC16,1,−1 END OF UCHTG TABLE. F3B01290
D00213 3 00000 1 00174 131PEC16 TXHPEC11,1 2S COMP OF FORTAG LENGTH IN DECREMENT. F3B01300
132END OF EDIT, COMPUTE CHTGE2 F3B01310
00214−0 75400 2 00000 133PEC17 PXD0,2 END OF FORTAG TABLE. F3B01320
00215 0 60100 0 02274 134STOCHTGL SAVE VALUE OF IRB FROM F3B01330
00216 0 50000 0 02170 135CLAM1CON EDIT CHG TAG TABLE ROUTINE F3B01340
00217 0 60100 0 02275 136STOCHTGE1 AS TABLE LENGTH CONTROL F3B01350
00220 0 53400 4 02170 137LXAM1CON,4 WORD FOR CHANGE TAG TABLE F3B01360
00221 0 50000 4 05741 138CLACHTG,4 SEARCH ROUTINE AT M12500. F3B01370
00222 0 60100 0 02277 139STOCHTGFN CALCULATE NUMBER OF ENTRIES F3B01380
00223 1 77776 4 00224 140PEC18 TXIPEC18+1,4,−2 IN EDITED CHG TAG TABLE WITH F3B01390
00224−0 75400 4 00000 141PXD0,4 SAME INTERNAL FORMULA F3B01400
00225 0 40200 0 02274 142SUBCHTGL NUMBER AND RECORD IN F3B01410
00226 0 10000 0 00232 143TZEPEC19 CONTR0L WORDS CHTGE1 AND CHTGE2 F3B01420
00227 0 50000 4 05741 144CLACHTG,4 TO PREVENT SEARCHING ENTIRE F3B01430
00230 0 40200 0 02277 145SUBCHTGFN EDITED CHG TAG TABLE IN F3B01440
00231 0 10000 0 00223 146TZEPEC18 SEARCH AT M12500. F3B01450
00232−0 75400 4 00000 147PEC19 PXD0,4 F3B01460
00233 0 60100 0 02276 148STOCHTGE2 F3B01470
00234 0 02000 0 00271 149TRARSTO00 F3B01480
150ROUTINE FOR EMPTY UCHTG TABLE F3B01490
00235 0 50000 0 02170 151PEC20 CLAM1CON PLACE ZEROS INTO 3 CONTROL F3B01500
00236 0 60100 0 02274 152STOCHTGL WORDS FOR CHANGE TAG TABLE SEARCH F3B01510
00237 0 60100 0 02275 153STOCHTGE1 ROUTINE TO INDICATE NO ENTRIES F3801520
00240 0 60100 0 02276 154STOCHTGE2 IN EDITED CHG TAG TABLE. F3801530
00241 0 76000 0 00143 155PSE99 SENSE LIGHT 3 TURNED ON TO INDICATE F3B01540
00242 0 02000 0 00271 156TRARSTO00 NO ENTRIES IN EDITED CHG TAG TABLE F3B01550
157SEARCH FOR INT FMLA NO OF CUR. FORTAG ENTRY IN UCHTG F3B01560
00243 0 50000 1 02327 158PEC30 CLAFORTAG,1 TAG OF FORTAG ENTRY EQUAL F3B01570
00244−0 32000 0 02205 159ANAM1CON+13 TO TAG1 OF UCHTG ENTRY. F3B01580
00245 0 60100 0 02273 160STOCOMBOX TEST FORTAG INTERNAL FORMULA F3B01590
00246 0 50000 4 05263 161CLAUCHTG,4 NUMBER LIES WITHIN RANGE F3B01600
00247−0 32000 0 02205 162ANAM1CON+13 GIVEN IN FIRST WORD OF UCHTG F3B01610
00250 0 34000 0 02273 163CASCOMBOX ENTRY. IF RANGE CONDITION IS F3B01620
00251 1 77775 4 00211 164TXIPEC14,4,−3 SATISFIED, PRODUCE ENTRY F3B01630
00252 1 77775 4 00211 165TXIPEC14,4,−3 FOR EDITED CHG TAG TABLE. F3B01640
00253 0 50000 4 05263 166CLAUCHTG,4 EDITED CHG TAG ENTRY CONSISTS F3B01650
00254 0 76700 0 00026 167ALS22 OF 2 WORDS. FIRST WORD HAS F3B01660
00255 0 77100 0 00004 168ARS4 INTERNAL FORMULA NUMBER F3B01670
00256 0 34000 0 02273 169CASCOMBOX IN DECREMENT AND ZEROS IN F3B01680
00257 0 02000 0 00262 170TRAPEC31 ADDRESS. SECOND WORD HAS F3B01690
00260 0 02000 0 00262 171TRAPEC31 TAG1 IN DECREMENT AND TAG2 F3B01700
00261 1 77775 4 00211 172TXIPEC14,4,−3 IN ADDRESS TAKEN FROM 2ND F3801710
00262 0 50000 0 02273 173PEC31 CLACOMBOX WORD OF UCHTG ENTRY. CONTINUE F3B01720
00263 0 60100 2 05741 174STOCHTG,2 WITH FORTAG AND UCHTG TAG F3B01730
00264 0 50000 4 05264 175CLAUCHTG+1,4 COMPARIS0N LOOP UNTIL FORTAG F3B01740
00265 0 60100 2 05742 176STOCHTG+1,2 TABLE EXHAUSTED. F3B01750
00266 1 77776 2 00267 177TXIPEC32,2,−2 F3B01760
00267 3 76646 2 00212 178PEC32 TXHPEC15,2,−602 CHTG BLOCK EXCEEDS ALLOCATED 600 WORDS F3B01770
00270 0 07400 4 00004 179TSX4,4 CHTG BLOCK EXCEEDS ALLOCATED 600 WORDS. F3B01780
180SXTX TABLE READ ROUTINE F3B01790
00271−0 76000 0 00142 181RSTO00 MSE98 TEST IF DO FILE EMPTY. F3B01800
00272 0 02000 0 00274 182TRARSTO05−1 SENSE LIGHT 2 ON INDICATES F3801810
00273 0 02000 0 00340 183TRAM10200 NO SXTX ENTRIES. F3B01820
00274 0 53400 4 02164 184LXAM1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR. F3B01830
00275 0 76200 0 00301 185RSTO05 RDS193 SXDTX TABLE 0N LOGICAL DRUM 1, F3B01840
00276 0 46000 0 02213 186LDAM1CON+19 STARTING AT LOCATION 202 F3B01850
00277 0 70000 0 05737 187CPYERAS 1ST WORD IS ORIGIN + 2+ TAB LENGTH. F3801860
00300 0 70000 0 05740 188CPYERAS+1 2ND DR WD IS CK SUM FOR 1ST WD. F3801870
00301−0 50000 0 05737 189CALERAS SXDTX TABLE ENTRY HAS 3 WORDS. F3801880
00302 0 40200 0 05740 190SUBERAS+1 THIRD WORD IS CHECK SUM. F3B01890
00303 0 10000 0 00306 191TZERSTO20 TEST THAT FIRST 2 WORDS OFF F3801900
00304 2 00001 4 00275 192TIXRSTO05,4,1 DRUM READ CORRECTLY. F3801910
00305 0 07400 4 00004 193TSX4,4 DRUM READ 5 TIMES UNSUCCESSFULLY. F3B01920
00306 0 53400 4 02164 194RSTO20 LXAM1ECTR,4 LOAD 5 INTO IRC DR RD ERROR CTR F3801930
00307 0 50000 0 05737 195RSTO21 CLAERAS SUBTRACT ORIGIN+2 FROM FIRST F3B01040
00310 0 40200 0 02214 196SUBM1CON+20 WORD TO GET SXDTX TABLE LENGTH. F3801950
00311−0 10000 0 00314 197TNZRSTO30 F3801960
00312 0 60100 0 02300 198STOSXTXL STORE 0 AS SXDTX LENGTH IF NO F3801970
00313 0 02000 0 00340 199TRAM10200 ENTRIES AND GO TO READ AIL RTN. F3801980
00314 0 60100 0 02300 200RSTO30 STOSXTXL STORE SXDTX LENGTH AND LOAD F3B01990
00315 0 73400 3 00000 201PAX0,3 SXDTX LENGTH INTO IRA, IRB. F3802000
00316 0 40200 0 00327 202SUBRSTO40+3 CALC. ADDRESS TO READ IN SXTX TABLE. F3802010
00317 0 62100 0 00324 203STARSTO40 INITIAL WORD OF TABLE IS F3B02020
00320 0 62100 0 00466 204STAM10305 FORTAG + 300. INITIALIZE F3802030
00321 0 62100 0 00474 205STAM10310+1 ADDRESSES FOR SXTX TABLE SEARCH. F3802040
00322 0 76200 0 00301 206RDS193 READ SXTX ENTRIES FROM F3802050
00323 0 46000 0 02214 207LDAM1CON+20 DRUM 1, LOC. 204. F3B02060
00324 0 70000 2 00000 208RSTO40 CPY0,2 CPY LOOP F3B02070
00325 2 00001 2 00324 209TIXRSTO40,2,1 SXTX TABLE LENGTH IN IRB. F3802080
00326 0 53400 2 02170 210LXAM1CON,2 F3B02090
00327−0 50000 2 03003 211CALSXTX,2 TEST LOGICAL SUM OF 1ST TWO F3802100
00330 0 36100 2 03004 212ACLSXTX+1,2 WORDS EQUAL CHECK SUM IN 3RD F3802110
00331 0 40200 2 03005 213SUBSXTX+2,2 WORD FOR EACH SXTX ENTRY. F3802120
00332 0 10000 0 00335 214TZERSTO60 PROGRAM AUT0MATICALLY TRIES F3B02130
00333 2 00001 4 00307 215TIXRSTO21,4,1 RE-READING DRUM 3 TIMES IF ERROR. F3802140
00334 0 07400 4 00004 216TSX4,4 DRUM READ 5 TIMES UNSUCCESSFULLY. F3B02150
00335 1 77775 2 00336 217RSTO60 TXIRSTO60+1,2,−3 F3B02160
00336 2 00003 1 00327 218TIXRSTO40+3,1,3 SXTX TABLE LENGTH IN 1RA, F3B02170
00337 0 02000 0 00340 219TRAM10200 SXTX TABLE IN CORES SUCCESSFULLY. F3B02180
220READ AIL, READ DO ROUTINES F3B02190
00340 0 53400 4 02170 221M10200 LXAM1CON,4 0 IN IRC WHEN SKIPPING CL0SED SRTNS. F3B02200
00341 0 50000 0 02171 222M10210 CLAM1CON+1 STORE 1 IN M1TRC, TP 2. F3B02210
00342 0 60100 0 02306 223STOM1TRC READ ERROR COUNTER. F3B02220
00343 0 76200 0 00222 224M10220 RDS146 READ 1 RECORD OF AIL, THE 2ND F3B02230
00344 0 53400 1 02170 225LXAM1CON,1 FILE ON TP 2 ALREADY POSITIONED. F3B02240
00345 0 70000 1 02327 226M10230 CPYAIL,1 AIL REC. READ OVER FORTAG FILE. F3B02250
00346 1 77777 1 00345 227TXIM10230,1,−1 IRA GIVES POSITION IN AIL RECORD. F3B02260
00347 0 02000 0 00521 228TRAM10800 END OF AIL FILE. F3B02270
00350 0 76600 0 00333 229WRS219 END OF AIL RECORD. F3B02280
00351−0 76000 0 00012 230RTT F3B02290
00352 0 02000 0 00501 231TRAM10700 REDUNDANCY WHEN READING TP 2. F3B02300
00353−0 63400 1 02305 232M10240 SXDM1ALWN,1 STORE 2S COMPL AIL WORD COUNT F3B02310
00354 0 53400 1 02170 233LXAM1CON,1 IN CURRENT AIL REC, USUALLY 100 F3B02320
00355−0 75400 4 00000 234PXD0,4 RD RTN ENTRY VIA TSX F3B02330
00356 0 10000 0 00360 235TZEPAT1 ROUTINE TO SKIP OVER FORTRAN FUNCTIONS F3B02340
00357 0 02000 4 00002 236RET1 TRA2,4 IRC VALUE SET BY TSX RETURN F FCN TEST F3B02350
00360−0 50000 1 02327 237PAT1 CALAIL,1 A FORTRAN FCN, A CLOSED SUBRTN, F3B02360
00361−0 32000 1 02330 238ANAAIL+1,1 IS IDENTIFIED BY 4 WORDS F3B02370
00362−0 32000 1 02331 239ANAAIL+2,1 FILLED WITH 1 BITS. F3B02380
00363−0 32000 1 02332 240ANAAIL+3,1 TEST IF AIL ENTRY IS ALL 1 BITS, F3B02390
00364 0 60200 0 05737 241SLWERAS INDICATES SUCCEEDING ENTRIES F3B02400
00365 0 50000 0 05737 242CLAERAS BEL0NG T0 A FORTRAN FCN AND F3B02410
00366 0 40200 0 02211 243SUBM1CON+17 ARE SKIPPED OVER HERE. F3B02420
00367−0 10000 0 00410 244TNZPAT5 AIL ENTRY NOT A FORTRAN FCN. F3B02430
00370 0 50000 0 02176 245CLAM1CON+6 AIL ENTRY IS A FORTRAN FCN. F3B02770
00371 0 62200 0 00411 246STDPAT5+1 STORE 1 IN DECRE. F FCN EXISTS. F3B02450
00372 1 77774 1 00420 247TXIOUT34,1,−4 TO TEST IF LAST AIL INSTR OF BUFFER. F3B02460
00373−0 75400 1 00000 248PAT2 PXD0,1 COMPARE NO. CURRENT WORD OF F3B02470
00374 0 34000 0 02305 249CASM1ALWN AIL REC WITH AIL REC COUNT F3B02480
00375 0 02000 0 00400 250TRAPAT3 TO TEST IF LAST INSTR IN REC. F3B02490
00376 0 07400 4 00341 251TSXM10210,4 READ NEXT AIL RECORD. F3B02500
00377 0 07400 4 00004 252TSX4,4 WD COUNT-NOT EQUAL TO REC COUNT F3B02510
00400 0 50000 1 02327 253PAT3 CLAAIL,1 TEST IF 0PEN SUBRTN END, F3B02520
00401−0 10000 0 00403 254TNZPAT4 BY 1S IN FIRST WORD OF ENTRY. F3B02530
00402 1 77774 1 00373 255TXIPAT2,1,−4 0S IN IST WORD INDICATES F FCN ENTRY F3B02540
00403 0 40200 0 02211 256PAT4 SUBM1CON+17 -377777777777. F3B02550
00404−0 10000 0 00410 257TNZPAT5 IST DESIRED AIL ENTRY FOUND F3B02560
00405−0 50000 1 02327 258CALAIL,1 TEST IF CURRENT ENTRY F3B02570
00406−0 32000 1 02330 259ANAAIL+1,1 AN OPEN SUBRTN END OR F3B02580
00407 0 02000 0 00412 260TRAOUT24 ANOTHER FORTRAN FCN. F3B02590
00410 0 53400 4 02170 261PAT5 LXAM1CON,4 F3B02600
TD00411−3 00000 0 00426 262TXLM10250 UNCON. TR TO READ IN DO RECORD. F3B02610
00412−0 32000 1 02331 263OUT24 ANAAIL+2,1 CONTINUATION OF TEST IF F3B02620
00413−0 32000 1 02332 264ANAAIL+3,1 CURRENT ENTRY F FCN OR F3B02630
00414 0 76000 0 00006 265COM OPEN SUBRTN ENTRY. F3B02640
00415−0 32000 0 02211 266ANAM1CON+17 -377777777777. F3B02650
00416 0 10000 0 00372 267TZEPAT2−1 ENTRY INDICATES F FCN. F3B02660
00417 1 77774 1 00373 268TXIPAT2,1,−4 OPEN SUBRTN END. F3B02670
00420−0 75400 1 00000 269OUT34 PXD0,1 COMPARE NO. CURRENT WORD OF F3B02680
00421 0 34000 0 02305 270CASM1ALWN AIL REC WITH AIL REC COUNT F3B02690
00422 0 02000 0 00425 271TRAOUT43 TO TEST IF LAST INSTR IN RECORD. F3B02700
00423 0 07400 4 00341 272OUT41 TSXM10210,4 READ NEXT AIL RECORD. F3B02710
00424 0 07400 4 00004 273TSX4,4 WORD COUNT EXCEEDS TOTAL COUNT IN REC. F3B02720
00425 1 77774 1 00373 274OUT43 TXIPAT2,1,−4 ADD 4 IRA, AT LEAST 1 INSTR IN ROUTINE F3B02730
00426 0 50000 0 02171 275M10250 CLAM1CON+1 STORE 1 IN M1TRC, TP 2 F3B02740
00427 0 60100 0 02306 276STOM1TRC READ ERROR COUNTER. F3B02750
00430 0 76200 0 00224 277M10260 RDS148 READ 1 RECORD OF DO, THE 1ST F3B02760
00431 0 53400 2 02170 278LXAM1CON,2 FILE ON TP 2 ALREADY POSITIONED. F3B02770
00432 0 70000 2 02473 279M10270 CPYDO,2 DO REC. READ 100 WDS BEYOND AIL. F3B02780
00433 1 77777 2 00432 280TXIM10270,2,−1 IRB GIVES P0SITION IN DO RECORD. F3B02790
00434 0 02000 0 00531 281TRAM10850 TO END OF DO FILE RTN. F3B02800
00435 0 76600 0 00333 282WRS219 TO END OF DO RECORD RTN. F3B02810
00436−0 76000 0 00012 283RTT IF DO FILE EMPTY, NO SXTX TABLE MADE. F3B02820
00437 0 02000 0 00511 284TRAM10750 REDUNDANCY WHEN READING TP 2. F3B02830
00440−0 63400 2 02304 285SXDM1DOWN,2 STORE 2S COMPL DO WORD COUNT. F3B02840
00441 0 50000 0 02300 286CLASXTXL TEST IF SXDTX TABLE EMPTY F3B02850
00442−0 10000 0 00445 287TNZM10285−2 FROM STORED TABLE LENGTH. F3B02860
00443 0 53400 2 02170 288LXAM1CON,2 NO SXTX ENTRIES, GO TO AIL AND DO F3B02870
00444 0 02000 0 00454 289TRAM10290 COMPILATION ROUTINES. F3B02880
00445−0 63400 4 02302 290SXDCBOX,4 SAVE IRC FOR TSX TEST F3B02890
00446 1 00004 2 00447 291TXIM10285,2,4 ADD 4 IRB GET 1ST WD LAST DO INSTR. F3B02900
00447 0 50000 2 02474 292M10285 CLADO+1,2 TEST CURRENT DO INST AN SXD F3B02910
00450 0 40200 0 02246 293SUBM1ABC+25 BY EXAMINING 2ND WORD OF INSTR. F3B02920
00451 0 10000 0 00463 294TZEM10300 CURRENT INSTR IS SXD. F3B02930
00452 3 00000 2 00446 295TXHM10285−1,2,0 IRB ZERO HEANS ALL DO ENTRIES F3B02940
00453−0 53400 4 02302 296LXDCBOX,4 IN BLOCK EXAMINED FOR SXD. F3B02950
00454−0 75400 4 00000 297M10290 PXD0,4 IRC NOT ZERO AFTER 1ST DO REC F3B02960
00455 0 10000 0 00457 298TZEM10295 IN CORES. IRC PERMITS RE-ENTRY F3B02970
00456 0 02000 4 00002 299TRA2,4 VIA TSX TO DO + AIL CMP RTN F3B02980
00457−0 76000 0 00141 300M10295 MSE97 TEST IF END AIL FILE. F3B02990
00460 0 02000 0 00626 301TRAM11010 TO COMPARE AIL + DO FMLA NOS. F3B03000
00461 0 76000 0 00141 302PSE97 SENSE LIGHT 1 ON IF AIL EOF. F3B03010
00462 0 02000 0 00636 303TRAM11030 TO COMPILE DO INSTR. F3B03020
00463 0 50000 2 02475 304M10300 CLADO+2,2 SEARCH SXTX TABLE FOR ENTRY F3B03030
00464 0 60100 0 02301 305STOSXLOC EQUAL TO ADDR PORTION GIVEN IN F3B03040
00465 0 53400 4 02300 306LXASXTXL,4 3RD WD CURRENT SXD DO INSTR. F3B03050
00466 0 50000 4 00000 307M10305 CLA0,4 ADDR SXTX ORGIN PLUS LENGTH F3B03060
00467 0 40200 0 02301 308SUBSXLOC F3B03070
00470 0 10000 0 00473 309TZEM10310 SXTX ENTRY CORR TO SXD FOUND. F3B03080
00471 2 00003 4 00466 310TIXM10305,4,3 F3B03090
00472 0 02000 0 00452 311TRAM10285+3 NO SXTX ENTRY CORR TO SXD FOUND. F3B03100
00473 2 00001 4 00474 312M10310 TIXM10310+1,4,1 ROUTINE PUT 2ND WORD SXTX F3B03110
00474 0 50000 4 00000 313CLA0,4 TABLE ENTRY INTO ADDRESS WD F3B03120
00475 0 60100 2 02475 314STODO+2,2 CURRENT SXD DO INSTR. F3B03130
00476 0 50000 0 02170 315CLAM1CON CHANGE SXD FMLA NO. TO F3B03140
00477 0 60100 2 02473 316STODO,2 ZEROS IN DO RECORD BUFFER. F3B03150
00500 0 02000 0 00452 317TRAM10285+3 TO CONTINUE SXD SEARCH OF DO REC. F3B03160
318ERROR ROUTINES, END OF FILE ROUTINES F3B03170
00501 0 50000 0 02306 319M10700 CLAM1TRC REDUNDANCY CHECK READING F3B03180
00502 0 40200 0 02164 320SUBM1ECTR AIL RECORD. TEST IF F3B03190
00503 0 10000 0 00510 321TZEM1EATC TAPE 2 READ ALREADY 5 F3B03200
00504 0 40000 0 02165 322ADDM1ECTR+1 TIMES. IF NOT, INCREASE F3B03210
00505 0 60100 0 02306 323STOM1TRC COUNT BY 1 IN TAPE READ F3B03220
00506 0 76400 0 00222 324M10705 BST146 COUNTER AND READ AIL F3B03230
00507 0 02000 0 00343 325TRAM10220 RECORD AGAIN. F3B03240
00510 0 07400 4 00004 326M1EATC TSX4,4 AIL REC. READ 5 TIMES UNSUCCESSFULLY. F3B03250
00511 0 50000 0 02306 327M10750 CLAM1TRC REDUNDANCY CHECK READING F3B03260
00512 0 40200 0 02164 328SUBM1ECTR DO RECORD. TEST IF F3B03270
00513 0 10000 0 00520 329TZEM1EDTC TAPE 2 READ ALREADY 5 F3B03280
00514 0 40000 0 02165 330ADDM1ECTR+1 TIMES. IF NOT, INCREASE F3B03290
00515 0 60100 0 02306 331STOM1TRC COUNT BY 1 IN TAPE READ F3B03300
00516 0 76400 0 00224 332M10755 BST148 COUNTER AND READ DO F3B03310
00517 0 02000 0 00430 333TRAM10260 RECORD AGAIN F3B03320
00520 0 07400 4 00004 334M1EDTC TSX4,4 DO REC. READ 5 TIMES UNSUCCESSFULLY, F3B03330
00521 0 76000 0 00141 335M10800 PSE97 END OF FILE FOR AIL ROUTINE. F3B03340
00522−0 76000 0 00142 336MSE98 TURN SENSE LIGHT 1 ON FOR AIL F3B03350
00523 0 02000 0 00526 337TRAM10810 EOF AND TEST IF ENTRIES IN SXTX TBL F3B03360
00524 0 76000 0 00142 338PSE98 BY LIGHT 2 ON. F3B03370
00525 0 02000 0 00536 339TRAM10900 TO WR 0N TP 3 INSTR IN BUFFER. F3B03380
00526−0 75400 4 00000 340M10810 PXD0,4 IRC ZERO IF DO FILE NOT READ YET. F3B03390
00527 0 10000 0 00426 341TZEM10250 T0 READ DO FILE RECORD. F3B03400
00530 0 02000 0 00636 342TRAM11030 T0 COMPILE DO INSTRUCTIONS. F3B03410
00531 0 76000 0 00142 343M10850 PSE98 END OF FILE FOR DO ROUTINE. F3B03420
00532−0 76000 0 00141 344MSE97 TURN SENSE LIGHT 2 ON FOR D0 F3B03430
00533 0 02000 0 00751 345TRAM12000 EOF AND TEST IF AIL AT EOF. F3B03440
00534 0 76000 0 00141 346PSE97 F3B03450
00535 0 02000 0 00536 347TRAM10900 F3B03460
348M1 TERMINAL ROUTINE F3B03470
00536 0 76600 0 00223 349M10900 WRS147 ROUTINE WR ON TP 3 INSTR REMAINING F3B03480
00537−0 53400 2 02317 350LXDBB0X,2 IN CIB BUFFER FROM CIT. F3B03490
00540 0 76000 0 00140 351PSE96 TURN-OFF ALL SENSE LIGHTS. F3B03500
00541 0 70000 1 02637 352M10910 CPYCIB,1 F3B03510
00542 1 77777 1 00543 353TXIM10920,1,−1 F3B03520
00543 1 00001 2 00544 354M10920 TXIM10920+1,2,1 IRB 2S COMP NO WORDS CIB BUFFER. F3B03530
00544 3 00001 2 00541 355TXHM10910,2,1 F3B03540
00545 0 77000 0 00223 356M10930 WEF147 WR FORTRAN FCNS 2ND FILE TP 3. F3B03550
00546−0 53400 2 00411 357PAT10 LXDPAT5+1,2 WRITE FORTRAN FCNS AS 2ND FILE ON TAPE 3. F3B03560
00547 3 00000 2 00553 358TXHPAT12,2,0 1 IN DECREMENT IF F FCNS IN AIL FILE. F3B03570
00550 0 77000 0 00223 359PAT11 WEF147 WR 2ND TAPE MARK ON TP 3 FOR MERGE 1 END. F3B03580
00551 0 76200 0 00221 360RTB1 SPACE OVER DIAGNOSTIC RECORD. F3B03590
00552 0 02000 0 00004 361TRA4 TO READ IN MERGE 2. F3B03600
00553−0 63400 1 02166 362PAT12 SXDM1ECTR+2,1 F3B03610
00554−0 63400 2 02167 363SXDM1ECTR+3,2 F3B03620
00555 0 53400 1 02164 364LXAM1ECTR,1 LOAD 5 INTO IRC TP RD ERROR CTR. F3B03630
00556 0 76200 0 00222 365RDS146 READ AIL RECORD COUNT, THE F3B03640
00557 0 70000 0 05737 366CPYERAS NEXT FILE AFTER AIL EOF F3B03650
00560 0 07400 2 00064 367TSXM10043,2 TO BACKSPACE TP 2 TO F3B03660
00561 0 76100 0 00556 368NOPPAT12+3 START OF AIL FILE TO GET F3B03670
00562−0 53400 1 02166 369LXDM1ECTR+2,1 F FCNS AT BEGINNING OF COMPAIL FILE. F3B03680
00563−0 53400 2 02167 370LXDM1ECTR+3,2 F3B03690
00564 0 53400 2 05737 371LXAERAS,2 F3B03700
00565 1 00002 2 00566 372TXIPAT13,2,2 F3B03710
00566 0 76400 0 00222 373PAT13 BST146 F3B03720
00567 2 00001 2 00566 374TIXPAT13,2,1 F3B03730
00570 0 76000 0 00142 375PSE98 PUT LIGHT 2 ON FOR D0 EOF. F3B03740
00571 0 76000 0 00143 376PSE99 PUT LIGHT 3 ON FOR NO CHTG TBL. F3B03750
00572 0 50000 0 02170 377CLAM1CON INITIALIZE BBOX WITH 0. BBOX F3B03760
00573 0 60100 0 02317 378STOBB0X KEEPS COUNT OF RECORDS IN CIB BUFFER. F3B03770
00574 0 07400 4 00341 379TSXM10210,4 TO READ AIL FILE FOR FORTRAN FCNS. F3B03780
00575 0 76100 0 00000 380NOP NOP NEEDED FOR ROUTINE AT RET1. F3B03790
00576−0 50000 1 02327 381PAT14 CALAIL,1 TEST FOR FORTRAN FCN. AIL F3B03800
00577−0 32000 1 02330 382ANAAIL+1,1 WORD ALL ONES IF A FORTRAN FCN. F3B03810
00600−0 32000 1 02331 383ANAAIL+2,1 F3B03820
00601−0 32000 1 02332 384ANAAIL+3,1 F3B03830
00602 0 60200 0 05737 385SLWERAS F3B03840
00603 0 50000 0 05737 386CLAERAS F3B03850
00604 0 40200 0 02211 387SUBM1CON+17 F3B03860
00605−0 10000 0 00615 388TNZOUT ENTRY IS NOT A FORTRAN FCN. F3B03870
00606 1 77774 1 00607 389PAT15 TXIPAT15+1,1,−4 F3B03880
00607−0 75400 1 00000 390PXD0,1 TEST IF LAST WORD OF F3B03890
00610 0 34000 0 02305 391CASM1ALWN AIL BUFFER. F3B03900
00611 0 02000 0 00751 392TRAM12000 TO AIL COMPILATION ROUT1NE. F3B03910
00612 0 07400 4 00341 393PAT16 TSXM10210,4 TO READ NEXT AIL ENTRY. F3B03920
00613 0 07400 4 00004 394TSX4,4 NO. OF WORDS OF AIL REC NOT A MULTIPLE OF 4 F3B03930
00614 0 02000 0 00751 395TRAM12000 TO AIL COMPILATION ROUTINE. F3B03940
00615 1 77777 2 00616 396OUT TXIOUT1,2,−1 MAKE IRB VALUE ZERO. F3B039S0
00616−0 63400 2 00411 397OUT1 SXDPAT5+1,2 DECREMENT ZERO MEANS NO FORTRAN FCNS. F3B03960
00617 0 76200 0 00222 398OUT13 RDS146 SPACE OVER REMAINING F3B03970
00620 0 70000 0 05737 399OUT14 CPYERAS AIL ENTRIES WHICH ARE F3B03980
00621 0 02000 0 00620 400TRAOUT14 NOT FORTRAN FCNS TO POSITION F3B03990
00622 0 02000 0 00624 401TRAOUT22 TAPE 2 AT END OF AIL FILE. F3B04000
00623 0 02000 0 00617 402TRAOUT13 F3B04010
00624 0 53400 1 02170 403OUT22 LXAM1CON,1 F3B04020
00625 0 02000 0 00536 404TRAM10900 TO WR ANY F FCN ENTRIES IN CIB BUFFER. F3B04030
405COMPAIL INSTR USUALLY MERGED AHEAD OF COMPDO INSTR IF BOTH F3B04040
406HAVE SAME FMLA NO, EXCEPT FOR READ AND WRITE,WHEN DO PRECEDESF3804030
407THE AIL FOR TIMING REASONS. FMLA NO. DECREMENT PART HERE. F3B04060
408COMPARISON OF AIL AND DO FMLA NOS AND F3B04070
409COMPILATION OF DO INSTRUCTIONS F3B04080
00626 0 50000 2 02473 410M11010 CLADO,2 COMPARE AIL AND DO INTERNAL F3B04090
00627 0 62200 0 02307 411STDM1DOFN FORMULA NOS. F3B04100
00630 0 07400 4 00744 412M11015 TSXERR2,4 TEST FOR FORTRAN FCNS. F3B04110
00631−0 32000 0 02205 413ANAM1CON+13 +077777000000. F3B04120
00632 0 34000 0 02307 414CASM1DOFN COMPARE AIL AND F3B04130
00633 0 02000 0 00636 415TRAM11030 AIL FMLA NO GREATER DO NO. F3B04140
00634 0 02000 0 00667 416TRAM11070 AIL FMLA NO. EQUALS DO NO. F3B04150
00635 0 02000 0 00751 417TRAM12000 AIL FMLA NO. LESS DO NO. F3B04160
00636 0 53400 4 02174 418M11030 LXAM1CON+4,4 COMPILE DO INSTR BY F3B04170
00637 0 50000 2 02473 419M11031 CLADO,2 GATHERING 4 WORDS FROM F3B04180
00640 0 60100 4 02326 420STOM1CW+4,4 DO REC BUFFER AND PLACING F3B04190
00641 1 77777 2 00642 421TXIM11035,2,−1 THEM IN CALLING SEQ LOCATIONS. F3B04200
00642 2 00001 4 00637 422M11035 TIXM11031,4,1 F3B04210
00643 0 07400 4 00707 423TSXCIT00,4 TO CIT COMPILING ROUTINE. F3B04220
00644 0 00000 0 02322 424HTRM1CW CALLING SEQ FOR LOCATIONS F3B04230
00645 0 00000 0 02323 425HTRM1CW+1 OF 4 COMPILED WORDS. F3B04240
00646 0 00000 0 02324 426HTRM1CW+2 F3B04250
00647 0 00000 0 02325 427HTRM1CW+3 F3B04260
00650−0 75400 2 00000 428PXD0,2 TEST IF END OF CUR DO REC F3B04270
00651 0 34000 0 02304 429CASM1DOWN BY COMPARING CURRENT DO WD F3B04280
00652 0 02000 0 00655 430TRAM11055 P0SITION WITH TOTAL DO F3B04290
00653 0 07400 4 00426 431TSXM10250,4 REC WORD COUNT. F3B04300
00654 0 07400 4 00004 432TSX4,4 NO OF WORDS NOT A MULTIPLE OF 4 F3B04310
00655−0 76000 0 00141 433M11055 MSE97 END OF AIL FILE IF LIGHT 1 ON, F3B04320
00656 0 02000 0 00661 434TRAM11060 F3B04330
00657 0 76000 0 00141 435PSE97 AIL AT EOF. CONTINUE F3B04340
00660 0 02000 0 00636 436TRAM11030 COMPILING DO INSTR. F3B04350
00661 0 50000 2 02473 437M11060 CLADO,2 GET NEXT DO INST SAME BLOCK F3B04360
00662−0 32000 0 02205 438ANAM1CON+13 AS PREVIOUS ONE. F3B04370
00663 0 34000 0 02307 439CASM1DOFN AIL AND DO FMLA NOS IN DECREMENTS. F3B04380
00664 0 02000 0 00626 440TRAM11010 DO FMLA NO. GREATER AIL NO. F3B04390
00665 0 76100 0 00000 441NOP DO FMLA NO. EQUALS AIL NO. F3B04400
00666 0 02000 0 00636 442TRAM11030 DO FMLA NO. LESS AIL NO. F3B04410
00667 1 77777 1 00670 443M11070 TXIM11070+1,1,−1 F3B04420
00670 0 50000 1 02327 444CLAAIL,1 TEST IF CURRENT AIL OPER RDS F3B04430
00671 0 40200 0 02236 445SUBM1ABC+17 F3B04440
00672 0 10000 0 00677 446TZEM11080 F3B04450
00673 0 50000 1 02327 447CLAAIL,1 TEST IF CURRENT AIL OPER WRS F3B04460
00674 0 40200 0 02247 448SUBM1ABC+26 F3B04470
00675 0 10000 0 00677 449TZEM11080 F3B04480
00676 1 00001 1 00751 450TXIM12000,1,1 RESTORE IRA CURRENT AIL VALUE. F3B04490
00677 1 00001 1 00700 451M11080 TXIERR3,1,1 T0 TEST IF SPACING TAPE. F3B04500
00700 0 50000 2 02473 452ERR3 CLADO,2 TEST IF BOTH AIL AND DO HAVE SAME FORMULA NO.F3B04510
00701−0 32000 0 02206 453ANAM1CON+14 DETERMINE IF DO OR AIL INSTR COMPILED FIRST. F3B04520
00702 0 10000 0 00704 454TZERET2 LXD BEFORE RDS HAS ZERO LOCATION. F3B04530
00703 0 02000 0 00751 455TRAM12000 TO COMPILE AIL INSTRUCTION. F3B04540
00704 0 50000 0 02210 456RET2 CLAM1CON+16 INCREASE AIL 1ST WD ADDRESS F3B04550
00705−0 60200 1 02327 457ORSAIL,1 FOR SEC. 4 PURP0SES. F3B04560
00706 0 02000 0 00636 458TRAM11030 T0 COMPILE DO INSTR. F3B04570
459COMPILING ROUTINE,CIT00 F3B04580
00707−0 60000 0 02314 460CIT00 STQE1C E1C CELL FOR SAVING MQ. F3B04590
00710−0 63400 1 02315 461SXDE2C,1 E2C CELL FOR SAVING IRA. F3B04600
00711−0 63400 2 02316 462SXDE3C,2 E3C CELL FOR SAVING IRB. F3B04610
00712−0 53400 2 02317 463LXDBB0X,2 2S COMP NO. ALREADY IN BLOCK. F3B04620
00713 3 77634 2 00723 464TXHCIT04,2,−100 TR NO. WDS IN BLOCK LESS 100. F3B04630
00714−3 00000 2 00723 465TXLCIT04,2,0 TR NO. WDS IN BLOCK EQUALS 0. F3B04640
00715 0 76600 0 00223 466WRS147 WRITE-OUT BLOCK OF 100 F3B04650
00716 0 53400 1 02170 467LXAM1CON,1 WORDS WHICH MAKE UP F3B04660
00717 0 70000 1 02637 468CIT01 CPYCIB,1 25 COMPILED INSTR. ON TP 3. F3B04670
00720 1 77777 1 00721 469TXICIT02,1,−1 F3B04680
00721 1 00001 2 00722 470CIT02 TXICIT03,2,1 WRITING OF CIB BUFFER F3B04690
00722 3 00001 2 00717 471CIT03 TXHCIT01,2,1 FINISHED WHEN IRB IS 0. F3B04700
00723 0 53400 1 02174 472CIT04 LXAM1CON+4,1 ROUTINE TO PLACE 4 WORDS F3B04710
00724 0 50000 0 02171 473CLAM1CON+1 OF COMPILED INSTR IN CIB F3B04720
00725 0 62100 0 00726 474STACIT05 BUFFER OF 100 WORDS, F3B04730
00726 0 50000 4 00000 475CIT05 CLA0,4 IRC CONTAINS 2S COMP LOC OF F3B04740
00727 0 62100 0 00730 476STACIT06 CALLING SEQ LESS 1, F3B04750
A00730 0 50000 0 00000 477CIT06 CLA INSTR ADDRESS SEQUENT1ALLY F3B04760
00731 0 60100 2 02637 478STOCIB,2 M1CW, M1CW+1, M1CW+2 F3B04770
00732 0 50000 0 00726 479CLACIT05 AND M1CW+3. F3B04780
00733 0 40000 0 02171 480ADDM1CON+1 F3B04790
00734 0 62100 0 00726 481STACIT05 F3804800
00735 1 77777 2 00736 482TXICIT07,2,−1 F3B04810
00736 2 00001 1 00726 483CIT07 TIXCIT05,1,1 IRA LOADED WITH 4. F3B04820
00737−0 63400 2 02317 484SXDBB0X,2 2S COMPL NO. WORDS ALREADY IN BLOCK. F3B04830
00740 0 56000 0 02314 485LDQE1C RESTORE MQ, IRA, IRB. F3B04840
00741−0 53400 1 02315 486LXDE2C,1 IRA GIVES AIL REC POSITION. F3804850
00742−0 53400 2 02316 487LXDE3C,2 IRB GIVES DO REC POSITION. F3B04860
00743 0 02000 4 00005 488TRA5,4 RETURN TO TSX ADDR PLUS 5. F3B04870
00744 0 50000 1 02327 489ERR2 CLAAIL,1 TEST IF FORTRAN FCN DEFINED IN MIDDLE OF F3B04880
00745 0 34000 0 02211 490CASM1CON+17 PROGRAM, BY FIRST INSTR WORD ALL ONES. F3B04890
00746 0 02000 4 00001 491TRA1,4 RETURN TO NEXT INSTR. OF MAIN PROGRAM. F3804900
00747 0 07400 4 00004 492TSX4,4 FORTRAN FUNCTION IN MIDDLE OF PROGRAM F3804910
00750 0 07400 4 00004 493ERROR3 TSX4,4 WORD ALL 1S COMPARED HIGH TO AC WITH ALL 1S F3804920
494COMPILATION OF AIL INSTRUCTIONS F3804930
00751 0 07400 4 00744 495M12000 TSXERR2,4 TEST 1ST AIL WORD ALL ONES. F3B04940
00752 0 62200 0 02310 496STDM1ALFN SAVE FMLA NO. 1ST INSTR ARITH BLOCK, F3B04950
00753−0 12000 0 01070 497M12005 TMIM13000 MINUS MEANS OPEN SU8ROUTINE. F3804960
00754 0 53400 4 02174 498LXAM1CON+4,4 COMPILE AIL INST BY F3B04970
00755 0 50000 1 02327 499M12010 CLAAIL,1 MOVING 4 WORDS OF INSTR F3B04980
00756 0 60100 4 02326 500STOM1CW+4,4 INTO COMPILED WORD 8UFFER. F3804990
00757 1 77777 1 00760 501TXIM12020,1,−1 F3B05000
00760 2 00001 4 00755 502M12020 TIXM12010,4,1 F3805010
00761 0 50000 0 02325 503M12021 CLAM1CW+3 TEST IF TAGGED INSTR, BITS 24-26. F3B05020
00762−0 32000 0 02207 504M12022 ANAM1CON+15 1,2 OR 3 GIVEN IN TAG. ONE F3B05030
00763 0 10000 0 00767 505TZEM12030 DIM TAGS NOT CHANGED. F3805040
00764−0 76000 0 00143 506MSE99 SENSE LIGHT 3 ON IF NO F3805050
00765 0 07400 4 01016 507TSXM12500,4 ENTRIES IN EDITED CHANGE F3805060
00766 0 76000 0 00143 508PSE99 TAG TABLE. F3B05070
00767 0 07400 4 00707 509M12030 TSXCIT00,4 TO CIT COMPILING IF TAG UNCHANGED. F3805080
00770 0 00000 0 02322 510HTRM1CW CALLING SEQ FOR LOCATIONS F3B05090
00771 0 00000 0 02323 511HTRM1CW+1 OF 4 COMPILED WORDS. F3B05100
00772 0 00000 0 02324 512HTRM1CW+2 F3B05110
00773 0 00000 0 02325 513HTRM1CW+3 F3B05120
00774−0 75400 1 00000 514M12035 PXD0,1 TEST IF END OF CUR AIL REC F3B05130
00775 0 34000 0 02305 515CASM1ALWN BY COMPAR1NG CURRENT AIL WD F3B05140
00776 0 02000 0 01001 516TRAM12040 POSITION WITH TOTAL AIL F3805150
00777 0 07400 4 00341 517TSXM10210,4 REC WORD COUNT. F3B05160
01000 0 07400 4 00004 518TSX4,4 NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4 F380S170
01001 0 50000 1 02327 519M12040 CLAAIL,1 NEXT AIL INST SAME BLOCK AS F3B05180
01002−0 32000 0 02205 520ANAM1CON+13 PREVI0US ONE. +077777000000. F3B05190
01003 0 34000 0 02310 521CASM1ALFN F3B05200
01004 0 02000 0 01010 522TRAM12050 NEXT AIL FMLA NO. GR THAN PREV. F3B09210
01005 0 76100 0 00000 523NOP F3B03220
01006 0 50000 1 02327 524CLAAIL,1 TEST IF OPEN SRTN. IF NOT, F3805230
01007 0 02000 0 00753 525TRAM12005 COMPILE AIL INSTR F3B05240
01010−0 76000 0 00142 526M12050 MSE98 END OF DO FILE IF LIGHT 2 ON, F3B03250
01011 0 02000 0 00630 527TRAM11015 TO CMP AIL AND DO FMLA NOS. F3B05260
01012 0 76000 0 00142 528PSE98 F3B05270
01013 3 00001 2 00751 529TXHM12000,2,1 IN THE MAIN MERGE IF IRB F3B03280
01014−3 00000 2 00751 530TXLM12000,2,0 ANY VALUE EXCEPT 1. F3805290
01015 0 02000 0 00576 531TRAPAT14 TO TEST FOR FORTRAN FCN. F3B05300
532 CHANGE TAG TABLE SEARCH F3805310
01016 0 50000 0 02325 533M12500 CLAM1CW+3 SYMBOLIC TAG IN BINARY BITS F3805320
01017 0 62100 0 02303 534STATAGB0X 24-35 4TH WD COMPILED INSTR. F3805330
01020−0 63400 4 02302 535SXDCBOX,4 IRC HAS TSX RTN ADDR TO M12030. F3B05340
01021−0 53400 4 02275 536M12503 LXDCHTGE1,4 F3B05350
01022 0 50000 4 05741 537CLACHTG,4 CMP INT FMLA NO CUR AIL INSTR F3B05360
01023 0 34000 0 02310 538CASM1ALFN WITH CUR CHTG TABLE BLOCK. F3805370
01024 0 02000 0 01027 539TRAM12510 CHTG FMLA NO GREATER AIL NO. F3805380
01025 0 02000 0 01031 540TRAM12515 CHTG FMLA NO EQUALS AIL NO, F3B05390
01026 0 02000 0 01046 541TRAM12540 CHTG FMLA NO LESS AIL NO. F3B05400
01027−0 53400 4 02302 542M12510 LXDCBOX,4 IRC HAS TSX RTN ADDR TO F3B05410
01030 0 02000 4 00002 543TRA2,4 AIL COMP AT M12030. F3B05420
01031 0 50000 0 02276 544M12515 CLACHTGE2 SEARCH CUR CHTG BLOCK FOR F3B05430
01032 0 62200 0 01044 545STDM12530+1 CUR AIL INST TAG F3B05440
01033 1 77777 4 01034 546M12520 TXIM12520+1,4,−1 F3B05450
01034 0 50000 4 05741 547CLACHTG,4 GET TAG1 FROM 2ND WORD OF F3B05460
01035 0 76500 0 00022 548LRS18 CHTG TABLE. F3B05470
01036 0 40200 0 02303 549SUBTAGB0X TAG BOX HAS AIL TAG IN ADDR. F3B05480
01037−0 10000 0 01043 550TNZM12530 CHTG TAG AND AIL TAG DIFFERENT. F3B05490
01040 0 76300 0 00022 551LLS18 CHTG AND AIL TAGS SAME, SO F3B05500
01041 0 62100 0 02325 552STAM1CW+3 REPLACE CUR AIL TAG WITH CHTG T2. F3B05510
01042 0 02000 0 01027 553TRAM12510 RTN VIA TSX TO AIL COMP AT M12030. F3B05520
01043 1 77777 4 01044 554M12530 TXIM12530+1,4,−1 IRC ENDS CHTG BLOCK SAME FMLA NO. F3B05530
D01044 3 00000 4 01033 555TXHM12520,4 DECREMENT IS CHTGE2 VALUE. F3B05540
01045 0 02000 0 01027 556TRAM12510 F3B05550
01046 0 50000 0 02276 557M12540 CLACHTGE2 UPDATE CHTGE1. CHTGE1 HAS IRC F3B05560
01047 0 60100 0 02275 558STOCHTGE1 VALUE T0 GET 1ST ENTRY OF F3805570
01050 0 40200 0 02274 559SUBCHTGL CHTG BLOCK ALL SAME FMLA NO. F3B05580
01051−0 10000 0 01054 560TNZM12550 CHTGL HAS 2S COMP NO WDS CHTG TABLE. F3B05590
01052 0 76000 0 00143 561PSE99 SENSE LIGHT 3 ON MEANS CHTG F3B05600
01053 0 02000 0 01027 562TRAM12510 EMPTY OR EXHAUSTED. F3B05610
01054−0 53400 4 02275 563M12550 LXDCHTGE1,4 COMPUTE NEW CHTGE2. CHTGE2 IS F3B05620
01055 0 50000 4 05741 564CLACHTG,4 DECREMENT VALUE IN M12530 TO F3B05630
01056 0 60100 0 02277 565STOCHTGFN INDICATE LAST ENTRY IN CHTG F3B05640
01057 1 77776 4 01060 566M12555 TXIM12555+1,4,−2 BLOCK ALL WITH SAME FMLA NO. F3B05650
01060−0 75400 4 00000 567PXD0,4 THIS OBVIATES SEARCHING ENTIRE F3B05660
01061 0 40200 0 02274 568SUBCHTGL CHTG TABLE WHEN TESTING AIL F3B05670
01062 0 10000 0 01066 569TZEM12570 INSTR FOR CHANGING ITS TAG. F3B05680
01063 0 50000 4 05741 570CLACHTG,4 ROUTINE ENTERED WHEN AIL F3B05690
01064 0 40200 0 02277 571SUBCHTGFN FMLA NO. GREATER THAN CHTG F3B05700
01065 0 10000 0 01057 572TZEM12555 FMLA, SO MUST UPDATE CHTGE1 F3B05710
01066−0 63400 4 02276 573M12570 SXDCHTGE2,4 AND CHTGE2 TO GET NEXT ENTRY, F3B05720
01067 0 02000 0 01021 574TRAM12503 TO CMP AIL AND CHTG FMLA NOS. F3B05730
575EXPONENTIAL OPEN SUBROUTINES F3B05740
01070 0 76000 0 00002 576M13000 CHS CHANGE MINUS SIGN OF F3B05750
01071 0 60100 0 02322 577STOM1CW INT FMLA NO, IF ANY, TO H1CW F3B05760
01072 1 77777 1 01073 578TXIM13005,1,−1 DECREASE COUNT IN IR1 F3B05770
01073 0 50000 1 02327 579M13005 CLAAIL,1 SECOND WORD F3B05780
01074 0 40200 0 02237 580SUBM1ABC+18 FIXED EXP, FLOATING EXP OR SPECIAL OP F3B05790
01075 0 10000 0 01101 581TZEM13020 FIXED EXPONENT F3B05800
01076 0 40000 0 02240 582ADDM1ABC+19 TEST FOR FLOATING POINT F3B05810
01077 0 10000 0 01102 583TZEM13020+1 IF NEITHER, THEN NOT EXPONENTIAL F3B05820
01100 1 77777 1 01304 584TXIM13500,1,−1 DETERMINATION OF SPECIAL 0P. F3B05830
01101 0 76000 0 00144 585M13020 PSE100 FIXED EXP. LITE 100 ON F3B05840
01102 1 77777 1 01103 586TXIM13020+2,1,−1 3RD WORD F3B05850
01103 0 50000 1 02327 587CLAAIL,1 INFO ON LOC OF ARG F3B05860
01104 0 60100 0 02324 588STOM1CW+2 TO M1CW+2 F3B05870
01105 1 77777 1 01106 589M13025 TXIM13025+1,1,−1 F3B05880
01106 0 50000 1 02327 590CLAAIL,1 REL ADD AND TAG, IF ANY. F3B05890
01107 0 60100 0 02325 591STOM1CW+3 TO M1CW+3 F3B05900
01110 1 77777 1 01111 592M13030 TXIM13030+1,1,−1 DECREASE BY 1 F3B05910
01111−0 75400 1 00000 593PXD0,1 TEST FOR END OF CUR AIL REC F3B05920
01112 0 34000 0 02305 594CASM1ALWN 2S COMPLIMENT OF NUMBER OF WORDS F3B05930
01113 0 02000 0 01116 595TRAM13040 OF CURRENT AIL RECORD F3B05940
01114 0 07400 4 00341 596TSXM10210,4 BACK TO READ NEXT AIL RECORD F3B05950
01115 0 07400 4 00004 597TSX4,4 NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4 F3B05960
01116 1 77776 1 01117 598M13040 TXIM13040+1,1,−2 DECREASE BY 2 F3B05970
01117 0 50000 0 02324 599CLAM1CW+2 LOCATION OF ARGUMENT F3B05980
01120 0 40200 0 02241 600SUBM1ABC+20 SUBTRACT A PLUS SIGN F3B05990
01121 0 10000 0 01212 601TZEM13200 ARG IN AC F3B06000
01122 0 50000 0 02324 602CLAM1CW+2 LOCATION AGAIN F3B06010
01123 0 40200 0 02237 603SUBM1ABC+18 SUBTRACT ASTERISK F3B06020
01124 0 10000 0 01230 604TZEM13250 ARG IN MQ F3B06030
605ARGUMENT STORED, FIXED OR FLOATING F3B06040
01125 0 50000 1 02327 606CLAAIL,1 VALUE OF EXPONENT, 3RD WORD F3B06050
01126 0 40200 0 02176 607SUBM1CON+6 OF SECOND AIL ENTRY F3B06060
01127−0 10000 0 01135 608TNZM13060 EXP GREATER THAN 1 F3B06070
01130 0 50000 0 02215 609CLAM1ABC EXP EQUALS 1, COMPILE A CLA INSTR F3B06080
01131 0 60100 0 02323 610STOM1CW+1 AND PLACE IT IN OP CODE F3B06090
01132−0 76000 0 00144 611MSE100 TURN OFF SENSE LIGHT, ADJUST F3B06100
01133 0 76100 0 00000 612NOP COUNT FOR NEXT AIL ENTRY, AND F3B06110
01134 1 77776 1 00761 613TXIM12021,1,−2 TRANSFER BACK FOR CHTG SEARCH F3B06120
01135 0 50000 0 02325 614M13060 CLAM1CW+3 EXPONENT GREATER THAN 1 F3B06130
01136−0 32000 0 02207 615ANAM1CON+15 TEST IF TAG NEEDS CHANGING F3B06140
01137 0 10000 0 01143 616TZEM13070 ARG TAGGED F3B06150
01140−0 76000 0 00143 617MSE99 END OF CHTG TABLE F3B06160
01141 0 07400 4 01016 618TSXM12500,4 TRANSFER BACK T0 CHTG TABLE F3B06170
01142 0 76000 0 00143 619PSE99 SEARCH F3B06180
01143 0 07400 4 00707 620M13070 TSXCIT00,4 COMPILE FIRST INST F3B06190
01144 0 00000 0 02322 621HTRM1CW LOCATION OF INTERNAL FORMULA NO F3B06200
01145 0 00000 0 02216 622HTRM1ABC+1 LOCATION OF LDQ INSTRUCTION F3B06210
01146 0 00000 0 02324 623HTRM1CW+2 LOCATION OF ARGUMENT F3B06220
01147 0 00000 0 02325 624HTRM1CW+3 TAG F3B06230
01150 0 50000 1 02327 625M13080 CLAAIL,1 VALUE OF EXPONENT F3B06240
01151 0 40200 0 02177 626SUBM1CON+7 SUBTRACT 2 F3B06250
01152 0 10000 0 01175 627TZEM13115 EXPONENT EQUAL TO 2 F3B06260
01153 0 62200 0 02311 628STDCCOUNT EXP-2 TO COUNT F3B06270
01154−0 76000 0 00144 629MSE100 ARG FIXED OR FLOATING F3B06280
01155 0 02000 0 01260 630TRAM13300 FLOATING ARGUMENT F3B06290
01156 0 76000 0 00144 631PSE100 F3B06300
632FIXED ARGUMENT, STORED, IN AC, INMQ, EXP GREATER THAN 2 F3B06310
01157 0 07400 4 00707 633M13090 TSXCIT00,4 COMPILE INSTRUCTIONS FOR FIXED ARG. F3B06320
01160 0 00000 0 02170 634HTRM1CON FOR THE EXPON. F3B06330
01161 0 00000 0 02217 635HTRM1ABC+2 ENTIAL ROUTINE. THE LOCATION F3B06340
01162 0 00000 0 02324 636HTRM1CW+2 OF THE ARGUMENT HAS ALREADY F3B06350
01163 0 00000 0 02325 637HTRM1CW+3 BEEN CONSIDERED, AND TH LOOP F3B06360
01164 0 07400 4 00707 638TSXCIT00,4 WILL COMPILE N-2 PAIRS OF F3B06370
01165 0 00000 0 02170 639HTRM1CON MPY AND LRS INSTRUCTIONS F3B06380
01166 0 00000 0 02220 640HTRM1ABC+3 F3B06390
01167 0 00000 0 02170 641HTRM1CON F3B06400
01170 0 00000 0 02203 642HTRM1CON+11 F3B06410
01171−0 53400 4 02311 643LXDCCOUNT,4 LOAD EXPONENT -2 IN IR 4 AND F3B06420
01172 1 77777 4 01173 644M13110 TXIM13110+1,4,−1 COMPILE N-2 PAIRS OF INSTRUCTIONS F3B06430
01173−0 63400 4 02311 645SXDCCOUNT,4 RESTORE CCOUNT DURING LOOP F3B06440
D01174 3 00000 4 01157 646TXHM13090,4 F3B06450
01175−0 76000 0 00144 647M13115 MSE100 ARG FIXED OR FL0ATING F3B06460
01176 0 02000 0 01276 648TRAM13330 FLOATING ARGUMENT F3B06470
01177 0 07400 4 00707 649TSXCIT00,4 COMPILE LAST 2 INST FOR F3B06480
01200 0 00000 0 02170 650HTRM1CON EXP GREATER OR EQUAL 2, IN WHICH F3B06490
01201 0 00000 0 02217 651HTRM1ABC+2 CASE WE MUST COMPILE ONLY ONE F3B06500
01202 0 00000 0 02324 652HTRM1CW+2 PAIR OF INSTRUCTIONS F3B06510
01203 0 00000 0 02325 653HTRM1CW+3 F3B06520
01204 0 07400 4 00707 654TSXCIT00,4 F3B06530
01205 0 00000 0 02170 655HTRM1CON F3B06540
01206 0 00000 0 02221 656HTRM1ABC+4 F3B06550
01207 0 00000 0 02170 657HTRM1CON F3B06560
01210 0 00000 0 02202 658HTRM1CON+10 F3B06570
01211 1 77776 1 00774 659TXIM12035,1,−2 BACK T0 CONTINUE AIL ROUTINES F3B06580
660ARG IN AC, FIXED OR FLOATING F3B06590
01212 0 50000 1 02327 661M13200 CLAAIL,1 TEST TO SEE IF EXPONENT F3B06600
01213 0 40200 0 02176 662SUBM1CON+6 EQUALS 1, IF YES, TRANSFER F3B06610
01214−0 10000 0 01220 663TNZM13210 BACK TO PICK UP NEXT RECORD F3B06620
01215−0 76000 0 00144 664MSE100 IF NO, CONTINUE TO F3B06630
01216 0 76100 0 00000 665NOP COMPILE PROPER INSTRUCTIONS F3B06640
01217 1 77776 1 00774 666TXIM12035,1,−2 F3B06650
01220 0 50000 0 02242 667M13210 CLAM1ABC+21 EXP GREATER THAN 1,0 F3B06660
01221 0 60100 0 02324 668STOM1CW+2 STORE VALUE OF EXPONENT IN INSTR. AREA F3B06670
01222 0 07400 4 00707 669TSXCIT00,4 COMPILE FIRST INST F3B06680
01223 0 00000 0 02322 670HTRM1CW CALLING SEQUENCE FOR ARG- F3B06690
01224 0 00000 0 02222 671HTRM1ABC+5 UMENT IN ACC, COMPILE F3B06700
01225 0 00000 0 02324 672HTRM1CW+2 A STO INSTRUCTION, AND CONTINUE F3B06710
01226 0 00000 0 02325 673HTRM1CW+3 AS IF IT WERE STORED INITIALLY F3B06720
01227 0 02000 0 01143 674TRAM13070 F3B06730
675ARG IN MQ, FIXED OR FL0ATING F3B06740
01230 0 50000 1 02327 676M13250 CLAAIL,1 VALUE OF EXPONENT AND TEST TO F3806750
01231 0 40200 0 02176 677SUBM1CON+6 SEE IF EXPONENT = 1, IF IT IS F3B06760
01232−0 10000 0 01250 678TNZM13265 EQUAL TO ONE, WE KNOW THAT F3B06770
01233 0 07400 4 00707 679TSXCIT00,4 THE VALUE OF THE F3B06780
01234 0 00000 0 02322 680HTRM1CW ARGUMENT IS RETAINED AS THE F3B06790
01235 0 00000 0 02232 681HTRM1ABC+13 ANSWER. F3B06800
01236 0 00000 0 02170 682HTRM1CON F3B06810
01237 0 00000 0 02170 683HTRM1CON F3B06820
01240 0 07400 4 00707 684TSXCIT00,4 F3B06830
01241 0 00000 0 02170 685HTRM1CON F3B06840
01242 0 00000 0 02223 686HTRM1ABC+6 F3B06850
01243 0 00000 0 02170 687HTRM1CON F3B06860
01244 0 00000 0 02204 688HTRM1CON+12 F3B06870
01245−0 76000 0 00144 689MSE100 TURN OF SENSE LIGHT F3B06880
01246 0 76100 0 00000 690NOP F3B06890
01247 1 77776 1 00774 691TXIM12035,1,−2 BACK T0 AIL ROUTINE F3B06900
01250 0 50000 0 02242 692M13265 CLAM1ABC+21 EXP GREATER 1, F3B06910
01251 0 60100 0 02324 693STOM1CW+2 PLACE 010000000000IN LOCATION POS. F3B06920
01252 0 07400 4 00707 694TSXCIT00,4 COMPILE FIRST INST F3B06930
01253 0 00000 0 02322 695HTRM1CW ZERO F3B06940
01254 0 00000 0 02224 696HTRM1ABC+7 COMPILE A STQ INSTRUCTION F3B06950
01255 0 00000 0 02324 697HTRM1CW+2 AND THEN TRANSFER TO DETER- F3B06960
01256 0 00000 0 02325 698HTRM1CW+3 MINE THE VALUE OF THE F3B06970
01257 0 02000 0 01150 699TRAM13080 EXPONENT, F3B06980
700FLOATING ARG, STORE0, IN AC, IN MQ, EXP GREATER 2 F3B06990
01260 0 07400 4 00707 701M13300 TSXCIT00,4 F3B07000
01261 0 00000 0 02170 702HTRM1CON INST COMPILING LOOP FOR FL0ATING F3B07010
01262 0 00000 0 02225 703HTRM1ABC+8 ARGUMENT, COMPILE A FMP F3B07020
01263 0 00000 0 02324 704HTRM1CW+2 INSTRUCTION, AND A LRS INSTR- F3B07030
01264 0 00000 0 02325 705HTRM1CW+3 UCTION. F3B07040
01265 0 07400 4 00707 706TSXCIT00,4 F3B07050
01266 0 00000 0 02170 707HTRM1CON ZERO, FOR INTERNAL FMLA. NO. F3B07060
01267 0 00000 0 02220 708HTRM1ABC+3 F3B07070
01270 0 00000 0 02170 709HTRM1CON PLACE 43 INDECREMENT OF F3B07080
01271 0 00000 0 02204 710HTRM1CON+12 RELATIVE ADDRESS. F3B07090
01272−0 53400 4 02311 711LXDCCOUNT,4 LOAD N-2 IN IR 4 F3B07100
01273 1 77777 4 01274 712M13320 TXIM13320+1,4,−1 DECREASE COUNT BY 1 F3B07110
01274−0 63400 4 02311 713SXDCCOUNT,4 REPLACE CCOUNT F3B07120
D01275 3 00000 4 01260 714TXHM13300,4 BACK TO COMILE N-2 PRS. OF INST. F3B07130
01276 0 07400 4 00707 715M13330 TSXCIT00,4 COMPILE LAST INST FOR F3B07140
01277 0 00000 0 02170 716HTRM1CON EXP GREATER OR EQUAL 2 F3B07150
01300 0 00000 0 02225 717HTRM1ABC+8 F3B07160
01301 0 00000 0 02324 718HTRM1CW+2 F3B07170
01302 0 00000 0 02325 719HTRM1CW+3 F3B07180
01303 1 77776 1 00774 720TXIM12035,1,−2 BACK TO STANDARD AIL ROUTINE F3B07190
01304−0 53400 4 02203 721M13500 LXDM1CON+11,4 SPECIAL OPS. LOAD COUNT OF 22 IN IR 4 F3B07200
01305 0 50000 1 02327 722CLAAIL,1 COMPARE SPECIAL OP. FUNCTION NAME F3B07210
01306 0 34000 4 02273 723M13503 CASM1D+18,4 IS THIRD WORD OF 1ST AIL ENTRY F3807220
01307 0 02000 0 07071 724TRA0P1−2 NEW ROUTINE HANDLING ADD. SUBROUTINES F3B07230
01310 0 02000 0 01312 725TRAM13510 INCONSTANT AREA F3807240
01311 0 02000 0 07071 726TRA0P1−2 NEW ROUTINE HANDLING ADD. SUBROUTINES F3B07250
01312−0 63400 4 02312 727M13510 SXDCCELL,4 IRC TO CCELL F3B07260
01313 1 77776 1 01314 728TXIM13510+2,1,−2 DECREASE CONTENTS OF IR 1 BY 2 F3B07270
01314−0 75400 1 00000 729PXD0,1 END OF AIL REC F3B07280
01315 0 34000 0 02305 730CASM1ALWN 2 IS COMP, OF NO. OF WORDS OF CUR- F3B07290
01316 0 02000 0 01321 731TRAM13520 RENT AIL RECORD F3B07300
01317 0 07400 4 00341 732TSXM10210,4 TO GET NEXT AIL RECORD F3B07310
01320 0 07400 4 00004 733TSX4,4 NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4 F3B07320
01321−0 53400 4 02312 734M13520 LXDCCELL,4 F3B07330
01322 0 02000 4 01345 735M13525 TRAM13525+19,4 CHOOSE APPROPRIATE SPECIAL OP BRANCH F3B07340
01323 1 77776 1 01345 736TXIM13550,1,−2 (XABS) F3807350
01324 1 77776 1 01345 737TXIM13550,1,−2 (ABS) F3B07360
01325 1 77776 1 01412 738TXIM13600,1,−2 (XINT) F3B07370
01326 1 77776 1 01411 739TXIM13595,1,−2 (INT) F3B07380
01327 1 77776 1 01412 740TXIM13600,1,−2 (XFIX) F3B07390
01330 1 77776 1 02063 741TXIM13900,1,−2 (FLDAT) F3B07400
01331 1 77776 1 01513 742TXIM13680,1,−2 (XMOD) F3B07410
01332 1 77776 1 01514 743TXIM13681,1,−2 (MOD) F3B07420
01333 1 77776 1 01514 744TXIM13681,1,−2 (XSIGN) F3B07430
01334 1 77776 1 01514 745TXIM13681,1,−2 (SIGN) F3807440
01335 1 77776 1 01514 746TXIM13681,1,−2 (XMAX0 ) F3B07450
01336 1 77776 1 01514 747TXIM13681,1,−2 (MAX1 0 F3B07460
01337 1 77776 1 01513 748TXIM13680,1,−2 (XMAX1B) F3B07470
01340 1 77776 1 01513 749TXIM13680,1,−2 (MAX0B) F3B07480
01341 1 77776 1 01514 750TXIM13681,1,−2 (XMIN0B) F3807490
01342 1 77776 1 01514 751TXIM13681,1,−2 (MIN1B0) F3807500
01343 1 77776 1 01513 752TXIM13680,1,−2 (XMIN1B) F3B07510
01344 1 77776 1 01513 753TXIM13680,1,−2 (MINOB0) F3B07520
754XABS, ABS BRANCH F3B07530
01345 0 07400 4 02156 755M13550 TSXERROR1+1,4 INFO ON LOC OF ARG, CHECK FOR ALL 1S F3B07540
01346 0 60100 0 02324 756STOM1CW+2 TO M1CW+2 F3B07550
01347 1 77777 1 01350 757TXIM13555,1,−1 INCREMENT IR 1. . F3B07560
01350 0 50000 1 02327 758M13555 CLAAIL,1 REL ADD AND TAG, IF ANY, F3B07570
01351 0 60100 0 02325 759STOM1CW+3 TO M1CW+3 F3B07580
01352 0 50000 0 02324 760CLAM1CW+2 LOCATION OF ARGUMENT F3B07590
01353 0 40200 0 02241 761SUBM1ABC+20 SUBTRACT PLUS SIGN F3B07600
01354 0 10000 0 01373 762TZEM13575 ARG IN AC F3B07610
01355 0 50000 0 02324 763CLAM1CW+2 LOCATION OF ARGUMENT F3B07620
01356 0 40200 0 02237 764SUBM1ABC+18 ONE ASTERISK F3B07630
01357 0 10000 0 01401 765TZEM13580 ARG IN MQ F3B07640
766ARG STORED F3B07650
01360 0 50000 0 02325 767CLAM1CW+3 RELATIVE ADDRESS AND TAG (IF ANY) F3B07660
01361−0 32000 0 02207 768ANAM1CON+15 ARG TAGGED, F3B07670
01362 0 10000 0 01366 769TZEM13570 ARG NOT TAGGED F3B07680
01363−0 76000 0 00143 770MSE99 END OF CHTG TABLE F3B07690
01364 0 07400 4 01016 771TSXM12500,4 CHANGE TAG TABLE SEARCH F3B07700
01365 0 76000 0 00143 772PSE99 F3B07710
01366 0 07400 4 00707 773M13570 TSXCIT00,4 COMPILE FIRST INST F3B07720
01367 0 00000 0 02322 774HTRM1CW INTERNAL FMLA NO. F3B07730
01370 0 00000 0 02215 775HTRM1ABC COMPILE ACLA INSTRUCTION F3B07740
01371 0 00000 0 02324 776HTRM1CW+2 F3B07750
01372 0 00000 0 02325 777HTRM1CW+3 F3B07760
778ARG IN AC,(STORED) F3B07770
01373 0 07400 4 00707 779M13575 TSXCIT00,4 COMPILE FIRST (SECOND) INST F3B07780
01374 0 00000 0 02170 780HTRM1CON ZERO F3B07790
01375 0 00000 0 02226 781HTRM1ABC+9 SSP F3B07800
01376 0 00000 0 02170 782HTRM1CON ZERO F3B07810
01377 0 00000 0 02170 783HTRM1CON ZERO F3B07820
01400 1 77777 1 00774 784TXIM12035,1,−1 AIL ROUTINE F3B07830
785ARG IN MQ F3B07840
01401 0 50000 0 02242 786M13580 CLAM1ABC+21 010000000000 F3B07850
01402 0 60100 0 02324 787STOM1CW+2 LOCATION OF ARG F3B07860
01403 0 07400 4 00707 788TSXCIT00,4 COMPILE FIRST INST F3B07870
01404 0 00000 0 02322 789HTRM1CW INT. FMLA NO. F3B07880
01405 0 00000 0 02224 790HTRM1ABC+7 STQ F3B07890
01406 0 00000 0 02324 791HTRM1CW+2 F3B07900
01407 0 00000 0 02325 792HTRM1CW+3 F3B07910
01410 0 02000 0 01366 793TRAM13570 COMPILE INSTRUCTION AS IF STORED F3B07920
794XFIX, XINT, INT BRANCH F3B07930
01411 0 76000 0 00144 795M13595 PSE100 FLOATING PT F3B07940
01412 0 07400 4 02156 796M13600 TSXERROR1+1,4 INFO ON LOC OF ARG F3B07950
01413 0 60100 0 02324 797STOM1CW+2 TO M1CW+2 F3B07960
01414 1 77777 1 01415 798TXIM13605,1,−1 F3B07970
01415 0 50000 1 02327 799M13605 CLAAIL,1 REL ADD AND TAG, IF ANY, F3B07980
01416 0 60100 0 02325 800STOM1CW+3 TO M1CW+3 F3807990
01417 0 50000 0 02324 801CLAM1CW+2 LOCATION OF ARG. F3B08000
01420 0 40200 0 02241 802SUBM1ABC+20 PLUS SIGN F3B08010
01421 0 10000 0 01440 803TZEM13630 ARG IN AC F3B08020
01422 0 50000 0 02324 804CLAM1CW+2 LOCATION OF ARG. F3B08030
01423 0 40200 0 02237 805SUBM1ABC+18 ASTERISK F3B08040
01424 0 10000 0 01503 806TZEM13670 ARG IN MQ F3B08050
807ARG STORED F3B08060
01425 0 50000 0 02325 808CLAM1CW+3 4TH WORD F3B08070
01426−0 32000 0 02207 809ANAM1CON+15 ARG TAGGED F3B08080
01427 0 10000 0 01433 810TZEM13620 NOT TAGGED F3808090
01430−0 76000 0 00143 811MSE99 END OF CHTG TABLE F3808100
01431 0 07400 4 01016 812TSXM12500,4 CHTG TABLE SEARCH F3808110
01432 0 76000 0 00143 813PSE99 F3B08120
01433 0 07400 4 00707 814M13620 TSXCIT00,4 COMPILE FIRST INST F3B08130
01434 0 00000 0 02322 815HTRM1CW INT. FMLA NO. IF ANY. F3B08140
01435 0 00000 0 02215 816HTRM1ABC CLA INSTRUCTION F3808150
01436 0 00000 0 02324 817HTRM1CW+2 F3808160
01437 0 00000 0 02325 818HTRM1CW+3 F3B08170
819ARG IN AC(STORED) F3B08180
01440 0 07400 4 00707 820M13630 TSXCIT00,4 COMPILE FIRST (SECOND) INST F3808190
01441 0 00000 0 02170 821HTRM1CON ZERO F3808200
01442 0 00000 0 02227 822HTRM1ABC+10 UFA OP CODE F3B08210
01443 0 00000 0 02243 823HTRM1ABC+22 060000000000 F3808220
01444 0 00000 0 02170 824HTRM1CON ZERO F3808230
01445−0 76000 0 00144 825MSE100 TEST FOR FL0ATING PT. F3808240
01446 0 02000 0 01450 826TRAM13640 XINT F3808250
01447 0 02000 0 01475 827TRAM13660 INT F3808260
828XFIX, XINT, ARG STORED, IN AC, IN MQ F3808270
01450 0 07400 4 00707 829M13640 TSXCIT00,4 COMPILE 4 INST F3808280
01451 0 00000 0 02170 830HTRM1CON ZERO F3B08290
01452 0 00000 0 02220 831HTRM1ABC+3 LRS INSTRUCTION F3B08300
01453 0 00000 0 02170 832HTRM1CON ZERO F3808310
01454 0 00000 0 02170 833HTRM1CON ZERO F3B08320
01455 0 07400 4 00707 834TSXCIT00,4 F3808330
01456 0 00000 0 02170 835HTRM1CON F3B08340
01457 0 00000 0 02230 836HTRM1ABC+11 ANA F3B08350
01460 0 00000 0 02243 837HTRM1ABC+22 060000000000 F3808360
01461 0 00000 0 02176 838HTRM1CON+6 F3B08370
01462 0 07400 4 00707 839TSXCIT00,4 +000001000000 F3B08380
01463 0 00000 0 02170 840HTRM1CON F3B08390
01464 0 00000 0 02223 841HTRM1ABC+6 LLS F3B08400
01465 0 00000 0 02170 842HTRM1CON F3B08410
01466 0 00000 0 02170 843HTRM1CON F3808420
01467 0 07400 4 00707 844TSXCIT00,4 F3B08430
01470 0 00000 0 02170 845HTRM1CON F3B08440
01471 0 00000 0 02221 846HTRM1ABC+4 ALS F3B08430
01472 0 00000 0 02170 847HTRM1CON F3B08450
01473 0 00000 0 02203 848HTRM1CON+11 +000022000000 F3808470
01474 1 77777 1 00774 849TXIM12035,1,−1 CONTINUE WITH ROUTINE F3B08480
850INT, ARG STORED, IN AC, IN MQ F3B08490
01475 0 07400 4 00707 851M13660 TSXCIT00,4 COMPILE 1 INST F3B08500
01476 0 00000 0 02170 852HTRM1CON F3B085I0
01477 0 00000 0 02231 853HTRM1ABC+12 FAD F3B08520
01500 0 00000 0 02243 854HTRM1ABC+22 060000000000 F3B08530
01501 0 00000 0 02170 855HTRM1CON ZERO F3B08540
01502 1 77777 1 00774 856TXIM12035,1,−1 CONTINUE WITH AIL ROUTINE F3B08550
857XFIX, XINT, INT, ARG IN MQ F3B08560
01503 0 50000 0 02242 858M13670 CLAM1ABC+21 COMPILE FIRST INST F3B08570
01504 0 60100 0 02324 859STOM1CW+2 010000000000 F3B08580
01505 0 07400 4 00707 860TSXCIT00,4 F3B08590
01506 0 00000 0 02322 861HTRM1CW INT, FMLA NO. F3B08600
01507 0 00000 0 02224 862HTRM1ABC+7 STQ F3B08610
01510 0 00000 0 02324 863HTRM1CW+2 F3B08620
01511 0 00000 0 02325 864HTRM1CW+3 F3B08630
01512 0 02000 0 01433 865TRAM13620 TRANSFER TO CONTINUE AS STORED F3B08640
866ALL MUTIVARIATE FUNCTIONS F3B08650
01513 0 76000 0 00144 867M13680 PSE100 PLACE SENSE SW. ON FOR FIXPT, F3B08660
01514 0 50000 1 02325 868M13681 CLAAIL−2,1 TEST INTERNAL FORMULA NO, F3B08670
01515 0 40200 0 02211 869SUBM1CON+17 -377777777777, SHOULD BE AT F3B08680
01516 0 10000 0 02155 870TZEERROR1 LEAST TWO ARGUMENTS FOR MULTIVARIATE FCNS. F3B08690
01517 0 50000 1 02327 871CLAAIL,1 LOCATION OF ARGUMENT F3B08700
01520 0 60100 0 02324 872RET3 STOM1CW+2 LOCATION OF ARGUMENT F3B08710
01521 1 77777 1 01522 873TXIM13685,1,−1 ADJUST COUNT IN IR 1, F3B08720
01522 0 50000 1 02327 874M13685 CLAAIL,1 REL ADD + TAG OF F3B08730
01523 0 60100 0 02325 875STOM1CW+3 FIRST ARG TO M1CW+3 F3B08740
01524 1 77777 1 01525 876TXIM13690,1,−1 F3B08750
01525−0 75400 1 00000 877M13690 PXD0,1 END OF AIL REC F3B08760
01526 0 34000 0 02305 878CASM1ALWN 2S COMPLIMENT OF NO. OF WORDS F3B08770
01527 0 02000 0 01532 879TRAM13700 IN AIL RECORD F3B08780
01530 0 07400 4 00341 880TSXM10210,4 BRING IN NEXT AIL REC. F3B08790
01531 0 07400 4 00004 881TSX4,4 N0 OF WORDS OF AIL REC NOT A MULTIPLE OF 4 F3B08800
01532 0 50000 0 02325 882M13700 CLAM1CW+3 REL. ADDRESS + TAG, IF ANY F3B08810
01533−0 32000 0 02207 883ANAM1CON+15 +000000002000 F3B08820
01534 0 10000 0 01540 884TZEM13710 FIRST ARG TAGGED F3B08830
01535−0 76000 0 00143 885MSE99 END OF CHTG TABLE F3B08840
01536 0 07400 4 01016 886TSXM12500,4 CHTG TABLE SEARCH F3B08850
01537 0 76000 0 00143 887PSE99 F3B08860
01540 0 50000 0 02201 888M13710 CLAM1CON+9 SIGN, MODULO OR MAX, MIN F3B08870
01541 0 34000 0 02312 889CASCCELL COMPARE TO 10 F3B08880
01542 0 76100 0 00000 890NOP F3B08890
01543 0 02000 0 01706 891TRAM13770 MAX OR MIN BRANCH F3B08900
01544 0 50000 0 02175 892CLAM1CON+5 SIGN OR MODULO, +000012000000 F3B08910
01545 0 34000 0 02312 893CASCCELL F3B08920
01546 0 76100 0 00000 894NOP F3B08930
01547 0 02000 0 02122 895TRAM13950 SIGN BRANCH F3B08940
01550−0 76000 0 00144 896MSE100 XMOD OR MOD F3B08950
01551 0 02000 0 01604 897TRAM13735 FL0ATING PT., MOD BRANCH F3B08960
898XM0D BRANCH F3B08970
01552 0 07400 4 00707 899TSXCIT00,4 COMPILE 3 INST, FOR MULTIVARIATE F3B08980
01553 0 00000 0 02322 900HTRM1CW XMOD. F3B08990
01554 0 00000 0 02232 901HTRM1ABC+13 CLM F3B09000
01555 0 00000 0 02170 902HTRM1CON F3B09010
01556 0 00000 0 02170 903HTRM1CON F3B09020
01557 0 07400 4 00707 904TSXCIT00,4 F3B09030
01560 0 00000 0 02170 905HTRM1CON F3B09040
01561 0 00000 0 02216 906HTRM1ABC+1 LDQ F3B09050
01562 0 00000 0 02324 907HTRM1CW+2 A F3B09060
01563 0 00000 0 02325 908HTRM1CW+3 F3B09070
01564 0 07400 4 00707 909TSXCIT00,4 F3B09080
01565 0 00000 0 02170 910HTRM1CON F3B09090
01566 0 00000 0 02223 911HTRM1ABC+6 LLS F3B09100
01567 0 00000 0 02170 912HTRM1CON F3B09110
01570 0 00000 0 02170 913HTRM1CON F3B09120
01571 0 50000 0 02170 914CLAM1CON ZERO, T0 REPLACE 1,S. F3B09130
01572 0 60100 0 02322 915STOM1CW INTERNAL FMLA NO. F3B09140
01573 0 50000 0 02233 916CLAM1ABC+14 DVP OP CODE F3B09150
01574 0 60100 0 02323 917STOM1CW+1 F3B09160
01575 1 77776 1 01576 918TXIM13725,1,−2 DECREASE IR 1 BY 2 F3B09170
01576 0 07400 4 02156 919M13725 TSXERROR1+1,4 CHECK FOR END OF CALLING SEQUENCE F3B09180
01577 0 60100 0 02324 920STOM1CW+2 SYMBOLIC ADDRESS OF 2ND ARGUM. F3B09190
01600 1 77777 1 01601 921TXIM13730,1,−1 F3B09200
01601 0 50000 1 02327 922M13730 CLAAIL,1 REL ADD AND TAG 0, F3B09210
01602 0 60100 0 02325 923STOM1CW+3 SECOND ARG TO M1CW+3 F3B09220
01603 1 77777 1 00762 924TXIM12022,1,−1 BACK T0 END OF AIL ROUTINE F3B09230
925MOD BRANCH F3B09240
01604 0 07400 4 00707 926M13735 TSXCIT00,4 COMPILE FIRST INST F3B09250
01605 0 00000 0 02322 927HTRM1CW F3B09260
01606 0 00000 0 02250 928HTRM1ABC+27 CLS A F3B09270
01607 0 00000 0 02324 929HTRM1CW+2 F3B09280
01610 0 00000 0 02325 930HTRM1CW+3 F3B09290
01611 0 50000 0 02324 931CLAM1CW+2 SAVE FIRST ARG IN 3RD WORD F3B09300
01612 0 60100 0 02320 932STO3WD F3B09310
01613 0 50000 0 02325 933CLAM1CW+3 SAVE REL ADD AND TAG IN 4WD F3B09320
01614 0 60100 0 02321 934STO4WD F3B09330
01615 1 77776 1 01616 935TXIM13741,1,−2 F3B09340
01616 0 07400 4 02156 936M13741 TSXERROR1+1,4 CHECK THAT NEXT WORD IS LAST ARG. F3B09350
01617 0 60100 0 02324 937STOM1CW+2 SYMBOLIC AD OF 2ND ARG. F3B09360
01620 1 77777 1 01621 938TXIM13745,1,−1 F3B09370
01621 0 50000 1 02327 939M13745 CLAAIL,1 REL ADD AND TAG OF F3B09380
01622 0 60100 0 02325 940STOM1CW+3 SECOND ARG T0 M1CW+3 F3B09390
01623−0 32000 0 02207 941ANAM1CON+15 TEST IF TAGGED F3B09400
01624 0 10000 0 01630 942TZEM13755 SECOND ARG TAGGED F3B09410
01625−0 76000 0 00143 943MSE99 END OF CHTG TABLE F3B09420
01626 0 07400 4 01016 944TSXM12500,4 BACK TO AIL ROUTINE F3B09430
01627 0 76000 0 00143 945PSE99 F3B09440
01630 0 07400 4 00707 946M13755 TSXCIT00,4 COMPILE LAST 9 INSTS F3B09450
01631 0 00000 0 02170 947HTRM1CON F3B09460
01632 0 00000 0 02234 948HTRM1ABC+15 FDP B F3B09470
01633 0 00000 0 02324 949HTRM1CW+2 F3B09480
01634 0 00000 0 02325 950HTRM1CW+3 F3B09490
01635 0 07400 4 00707 951TSXCIT00,4 F3B09500
01636 0 00000 0 02170 952HTRM1CON F3B09510
01637 0 00000 0 02224 953HTRM1ABC+7 STQ F3B09520
01640 0 00000 0 02242 954HTRM1ABC+21 010000000000 F3B09530
01641 0 00000 0 02170 955HTRM1CON F3B09540
01642 0 07400 4 00707 956TSXCIT00,4 F3B09550
01643 0 00000 0 02170 957HTRM1CON F3B07560
01644 0 00000 0 02215 958HTRM1ABC CLA F3B09570
01645 0 00000 0 02242 959HTRM1ABC+21 010000000000 F3B09580
01646 0 00000 0 02170 960HTRM1CON F3B09590
01647 0 07400 4 00707 961TSXCIT00,4 F3B09600
01650 0 00000 0 02170 962HTRM1CON F3B09610
01651 0 00000 0 02227 963HTRM1ABC+10 UFA F3B09620
01652 0 00000 0 02243 964HTRM1ABC+22 060000000000 F3B09630
01653 0 00000 0 02170 965HTRM1CON F3B09640
01654 0 07400 4 00707 966TSXCIT00,4 F3B09650
01655 0 00000 0 02170 967HTRM1CON F3B09660
01656 0 00000 0 02231 968HTRM1ABC+12 FAD F3B09670
01657 0 00000 0 02243 969HTRM1ABC+22 060000000000 F3B09680
01660 0 00000 0 02170 970HTRM1CON F3B09690
01661 0 07400 4 00707 971TSXCIT00,4 F3B09700
01662 0 00000 0 02170 972HTRM1CON F3B09710
01663 0 00000 0 02222 973HTRM1ABC+5 STO F3B09720
01664 0 00000 0 02242 974HTRM1ABC+21 060000000000 F3B09730
01665 0 00000 0 02170 975HTRM1CON F3B09740
01666 0 07400 4 00707 976TSXCIT00,4 F3B09750
01667 0 00000 0 02170 977HTRM1CON F3B09760
01670 0 00000 0 02216 978HTRM1ABC+1 LDQ F3B09770
01671 0 00000 0 02242 979HTRM1ABC+21 060000000000 F3B09780
01672 0 00000 0 02170 980HTRM1CON F3B09790
01673 0 07400 4 00707 981TSXCIT00,4 F3B09800
01674 0 00000 0 02170 982HTRM1CON F3B09810
01675 0 00000 0 02225 983HTRM1ABC+8 FMP F3B09820
01676 0 00000 0 02324 984HTRM1CW+2 B F3B09830
01677 0 00000 0 02325 985HTRM1CW+3 F3B09840
01700 0 07400 4 00707 986TSXCIT00,4 F3B09850
01701 0 00000 0 02170 987HTRM1CON F3B09860
01702 0 00000 0 02231 988HTRM1ABC+12 FAD F3B09870
01703 0 00000 0 02320 989HTR3WD A F3B09880
01704 0 00000 0 02321 990HTR4WD F3B09890
01705 1 77777 1 00774 991TXIM12035,1,−1 AIL ROUTINE F3B09900
992MAX, MIN BRANCH F3B09910
01706 0 50000 0 02200 993M13770 CLAM1CON+8 +000004000000 F3B09920
01707 0 34000 0 02312 994CASCCELL FOR MIN BRANCH F3B09930
01710 0 76100 0 00000 995NOP F3B09940
01711 0 02000 0 02017 996TRAM13855 MIN BRANCH F3B09950
997ALL MAX ROUTINES F3B09960
01712 0 07400 4 00707 998TSXCIT00,4 COMPILE FIRST INST F3B09970
01713 0 00000 0 02322 999HTRM1CW F3B09980
01714 0 00000 0 02215 1000HTRM1ABC CLA A1 F3B09990
01715 0 00000 0 02324 1001HTRM1CW+2 SYMBOLIC ADDRESS OF FIRST ARGUHENT F3B10000
01716 0 00000 0 02325 1002HTRM1CW+3 RELATIVE ADDRESS + TAG, IF ANY F3B10010
01717 0 50000 1 02327 1003M13780 CLAAIL,1 END MARK, IF ANY, TO ENDT, THIS WILL F3B10020
01720 0 60100 0 02313 1004STOENDT BE ALL 1S IF END. F3B10030
01721 1 77776 1 01722 1005TXIM13785,1,−2 F3B10040
01722 0 50000 1 02327 1006M13785 CLAAIL,1 SYMBOLIC ADDRESS OF ITH ARG, I EQUAL 2,...,N F3B10050
01723 0 60100 0 02324 1007STOM1CW+2 TO M1CW+2 F3B10060
01724 1 77777 1 01725 1008TXIM13790,1,−1 F3B10070
01725 0 50000 1 02327 1009M13790 CLAAIL,1 REL ADD AND TAG OF F3B10080
01726 0 60100 0 02325 1010STOM1CW+3 ITH ARG T0 M1CW+3 F3B10090
01727−0 32000 0 02207 1011ANAM1CON+15 TEST IF ITHARGUMENT TAGGED F3B10100
01730 0 10000 0 01734 1012TZEM13800 ITH ARG NOT TAGGED F3B10110
01731−0 76000 0 00143 1013MSE99 END OF CHTG TABLE F3B10120
01732 0 07400 4 01016 1014TSXM12500,4 CHTG TABLE SEARCH F3B10)30
01733 0 76000 0 00143 1015PSE99 F3B10140
01734 0 50000 0 02200 1016M13800 CLAM1CON+8 000004000000 F3B10150
01735 0 34000 0 02312 1017CASCCELL COMPARE FOR MINIMUM BR. F3B10160
01736 0 76100 0 00000 1018NOP F3B10170
01737 0 02000 0 02025 1019TRAM13860 MIN BRANCH F3B10180
01740 0 07400 4 00707 1020TSXCIT00,4 COMPILE 3 INSTRUCTIONS FOR F3B10190
01741 0 00000 0 02170 1021HTRM1CON ITH ARG F3810200
01742 0 00000 0 02216 1022HTRM1ABC+1 LDQ F3B10210
01743 0 00000 0 02324 1023HTRM1CW+2 ITH ARGUMENT I=2....,N F3B10220
01744 0 00000 0 02325 1024HTRM1CW+3 F3B10230
01745 0 07400 4 00707 1025TSXCIT00,4 F3B10240
01746 0 00000 0 02170 1026HTRM1CON F3B10250
01747 0 00000 0 02235 1027HTRM1ABC+16 TLQ F3810260
01750 0 00000 0 02245 1028HTRM1ABC+24 +170000000000 F3B10270
01751 0 00000 0 02177 1029HTRM1CON+7 +000002000000 F3810280
01752 0 07400 4 00707 1030TSXCIT00,4 F3B10290
01753 0 00000 0 02170 1031HTRM1CON F3B10300
01754 0 00000 0 02215 1032HTRM1ABC CLA AI F3B10310
01755 0 00000 0 02324 1033HTRM1CW+2 F3B10320
01756 0 00000 0 02325 1034HTRM1CW+3 F3B10330
01757 0 50000 0 02313 1035CLAENDT I=N F3B10340
01760 0 40200 0 02211 1036SUBM1CON+17 -377777777777 F3B10350
01761 0 10000 0 01771 1037TZEM13830 LAST ARGUMENT F3B10360
01762 1 77777 1 01763 1038TXIM13820,1,−1 F3B10370
01763−0 75400 1 00000 1039M13820 PXD0,1 END OF AIL REC F3B10380
01764 0 34000 0 02305 1040CASM1ALWN 2S COMPL. OF NO. OF WORS OF AIL REC F3810390
01765 0 02000 0 01717 1041TRAM13780 TO COMPILE INSTR. FOR ALL ARGUMENTS F3810400
01766 0 07400 4 00341 1042TSXM10210,4 PACK TO READ NEXT AIL RECORD F3810410
01767 0 07400 4 00004 1043TSX4,4 NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4 F3810420
01770 0 02000 0 01717 1044TRAM13780 F3810430
01771−0 76000 0 00144 1045M13830 MSE100 TEST FOR FIXED PT AND TURN OFF SW. F3B10440
01772 1 77777 1 00774 1046TXIM12035,1,−1 OUT FOR XMAX0, MAX1, XMIN0, MIN1 F3810450
01773 0 50000 0 02312 1047CLACCELL NO. OF FUNCTION FIXED MAX. F3810460
01774 0 77100 0 00022 1048ARS18 F3B10470
01775 0 76000 0 00001 1049LBT TEST FOR FLOATING MAX OR MIN F3B10480
01776 0 02000 0 01440 1050TRAM13630 XMAX1, XMIN1, FIXED MIX OR MIN F3810490
01777 0 07400 4 00707 1051TSXCIT00,4 COMPILE LAST 3 INSTRUCTIONS F3B10500
02000 0 00000 0 02170 1052HTRM1CON FOR MAX0, MIN0 F3810510
02001 0 00000 0 02220 1053HTRM1ABC+3 LRS F3B10520
02002 0 00000 0 02170 1054HTRM1CON F3810530
02003 0 00000 0 02203 1055HTRM1CON+11 18 F3B10540
02004 0 07400 4 00707 1056TSXCIT00,4 F3B10550
02005 0 00000 0 02170 1057HTRM1CON F3B10560
02006 0 00000 0 02244 1058HTRM1ABC+23 ORA F3B10570
02007 0 00000 0 02243 1059HTRM1ABC+22 06000D000000 F3B10580
02010 0 00000 0 02170 1060HTRM1CON F3810590
02011 0 07400 4 00707 1061TSXCIT00,4 F3B10600
02012 0 00000 0 02170 1062HTRM1CON F3810610
02013 0 00000 0 02231 1063HTRM1ABC+12 FAD F3B10620
02014 0 00000 0 02243 1064HTRM1ABC+22 060000000000 F3B10630
02015 0 00000 0 02170 1065HTRM1CON F3810640
02016 1 77777 1 00774 1066TXIM12035,1,−1 BACK TO END OF AIL ROUTINE F3B10650
1067ALL MIN ROUTINE COMPILE FIRST INST F3B10660
02017 0 07400 4 00707 1068M13855 TSXCIT00,4 COMPILE FIRST INST F3B10670
02020 0 00000 0 02322 1069HTRM1CW F3810680
02021 0 00000 0 02216 1070HTRM1ABC+1 LDQ A1 F3B10690
02022 0 00000 0 02324 1071HTRM1CW+2 F3810700
02023 0 00000 0 02325 1072HTRM1CW+3 F3B10710
02024 0 02000 0 01717 1073TRAM13780 TO STORE NEEDED INFORMATION F3810720
02025 0 07400 4 00707 1074M13860 TSXCIT00,4 COMPILE 3 INST FOR F3B10730
02026 0 00000 0 02170 1075HTRM1CON ITH ARG F3B10740
02027 0 00000 0 02215 1076HTRM1ABC CLA A2....N F3B10750
02030 0 00000 0 02324 1077HTRM1CW+2 F3810760
02031 0 00000 0 02325 1078HTRM1CW+3 F3810770
02032 0 07400 4 00707 1079TSXCIT00,4 F3810780
02033 0 00000 0 02170 1080HTRM1CON F3B10790
02034 0 00000 0 02235 1081HTRM1ABC+16 TLQ F3B10800
02035 0 00000 0 02245 1082HTRM1ABC+24 +000002000000 F3B10810
02036 0 00000 0 02177 1083HTRM1CON+7 +170000000000 F3B10820
02037 0 07400 4 00707 1084TSXCIT00,4 F3B10830
02040 0 00000 0 02170 1085HTRM1CON F3810840
02041 0 00000 0 02216 1086HTRM1ABC+1 LDQ A2....N F3B10850
02042 0 00000 0 02324 1087HTRM1CW+2 F3B10860
02043 0 00000 0 02325 1088HTRM1CW+3 F3B10870
02044 0 50000 0 02313 1089CLAENDT I=N F3B10880
02045 0 40200 0 02211 1090SUBM1CON+17 -377777777777 F3B10890
02046 0 10000 0 02050 1091TZEM13880 LAST ARGUMENT F3B10900
02047 1 77777 1 01763 1092TXIM13820,1,−1 TO TEST IF END OF AIL RECORD F3B10910
02050 0 07400 4 00707 1093M13880 TSXCIT00,4 COMPILE TWO INST. F3B10920
02051 0 00000 0 02170 1094HTRM1CON F3B10930
02052 0 00000 0 02224 1095HTRM1ABC+7 STQ F3B10940
02053 0 00000 0 02242 1096HTRM1ABC+21 010000000000 F3B10950
02054 0 00000 0 02170 1097HTRM1CON F3B10960
02055 0 07400 4 00707 1098TSXCIT00,4 F3B10970
02056 0 00000 0 02170 1099HTRM1CON F3B10980
02057 0 00000 0 02215 1100HTRM1ABC CLA F3B10990
02060 0 00000 0 02242 1101HTRM1ABC+21 010000000000 F3B11000
02061 0 00000 0 02170 1102HTRM1CON F3B11010
02062 0 02000 0 01771 1103TRAM13830 TEST SW, 4 AND GO TO VARIOUS ROUTES F3B11020
1104FLOAT BRANCH F3B11030
02063 0 07400 4 02156 1105M13900 TSXERROR1+1,4 TO TEST IF ONLY ONE ARGUMENT F3B11040
02064 0 60100 0 02324 1106STOM1CW+2 SYMBOLIC LOCATION OF ARGUMENT F3B11050
02065 1 77777 1 02066 1107TXIM13905,1,−1 F3B11060
02066 0 50000 1 02327 1108M13905 CLAAIL,1 REL ADD AND TAG, IF ANY, F3B11070
02067 0 60100 0 02325 1109STOM1CW+3 TO M1CW+3 F3B11080
02070 0 50000 0 02324 1110CLAM1CW+2 F3B11090
02071 0 40200 0 02241 1111SUBM1ABC+20 PLUS SIGN F3B11100
02072 0 10000 0 02111 1112TZEM13915 ARG IN AC F3B11110
02073 0 50000 0 02324 1113CLAM1CW+2 F3B11120
02074 0 40200 0 02237 1114SUBM1ABC+18 ASTERISK F3B11130
02075 0 10000 0 02112 1115TZEM13920 ARG IN MQ F3B11140
02076 0 50000 0 02325 1116CLAM1CW+3 RELATIVE ADDRESS AND TAG, IF ANY F3B11150
02077−0 32000 0 02207 1117ANAM1CON+15 F3B11160
02100 0 10000 0 02104 1118TZEM13910 ARG NOT TAGGED F3811170
02101−0 76000 0 00143 1119MSE99 F3B11190
02102 0 07400 4 01016 1120TSXM12500,4 CHTG TABLE SEARCH F3B11190
02103 0 76000 0 00143 1121PSE99 F3B11200
02104 0 07400 4 00707 1122M13910 TSXCIT00,4 F3B11210
02105 0 00000 0 02322 1123HTRM1CW F3B11220
02106 0 00000 0 02215 1124HTRM1ABC CLA A F3B11230
02107 0 00000 0 02324 1125HTRM1CW+2 F3811240
02110 0 00000 0 02325 1126HTRM1CW+3 F3811250
1127ARG IN AC (STORED) F3B11260
02111 0 02000 0 01777 1128M13915 TRAM13830+6 TO COMILE 3 INSTR. AS MAX OR MIN F3B11270
1129ARG IN MQ F3B11280
02112 0 50000 0 02242 1130M13920 CLAM1ABC+21 010000000000 F3B11290
02113 0 60100 0 02324 1131STOM1CW+2 SYMBOLIC LOCATION F3B11300
02114 0 07400 4 00707 1132TSXCIT00,4 F3B11320
02115 0 00000 0 02322 1133HTRM1CW F3B11330
02116 0 00000 0 02224 1134HTRM1ABC+7 STQ F3B11340
02117 0 00000 0 02324 1135HTRM1CW+2 F3B11350
02120 0 00000 0 02325 1136HTRM1CW+3 F3B11360
02121 0 02000 0 02104 1137TRAM13910 TO COMPILE A CLA INSTRUCTION F3B11370
1138XSIGN, SIGN BRANCH F3B11380
02122 0 07400 4 00707 1139M13950 TSXCIT00,4 F3B11390
02123 0 00000 0 02322 1140HTRM1CW F3B11400
02124 0 00000 0 02215 1141HTRM1ABC CLA A1 F3B11410
02125 0 00000 0 02324 1142HTRM1CW+2 F3B11420
02126 0 00000 0 02325 1143HTRM1CW+3 F3B11430
02127 1 77776 1 02130 1144TXIM13955,1,−2 DECREASE IR 1 BY -2 F3B11440
02130 0 07400 4 02156 1145M13955 TSXERROR1+1,4 TEST IF ONLY 2 ARGUMENTS F3B11450
02131 0 60100 0 02324 1146STOM1CW+2 SYMBOLIC ADDRESS. F3B11460
02132 1 77777 1 02133 1147TXIM13960,1,−1 F3B11470
02133 0 50000 1 02327 1148M13960 CLAAIL,1 REL ADD AND TAG, IF ANY, TO F3B11480
02134 0 60100 0 02325 1149STOM1CW+3 M1CW+3 F3B11490
02135−0 32000 0 02207 1150ANAM1CON+15 ARG TAGGED F3B11500
02136 0 10000 0 02142 1151TZEM13965 ARG NOT TAGGED F3B11510
02137−0 76000 0 00143 1152MSE99 F3B11520
02140 0 07400 4 01016 1153TSXM12500,4 BACK T0 CHTG TABLE SEARCH F3B11530
02141 0 76000 0 00143 1154PSE99 F3B11540
02142 0 07400 4 00707 1155M13965 TSXCIT00,4 F3B11550
02143 0 00000 0 02170 1156HTRM1CON F3B11560
02144 0 00000 0 02216 1157HTRM1ABC+1 LDQ A2 F3B11570
02145 0 00000 0 02324 1158HTRM1CW+2 F3B11580
02146 0 00000 0 02325 1159HTRM1CW+3 F3B11590
02147 0 07400 4 00707 1160TSXCIT00,4 F3B11600
02150 0 00000 0 02170 1161HTRM1CON F3B11610
02151 0 00000 0 02223 1162HTRM1ABC+6 LLS F3B11620
02152 0 00000 0 02170 1163HTRM1CON F3B11630
02153 0 00000 0 02170 1164HTRM1CON F3B11640
02154 1 77777 1 00774 1165TXIM12035,1,−1 AIL ROUTINE F3B11650
02155 0 07400 4 00004 1166ERROR1 TSX4,4 A MULT1 VARIATE FN. HAS ONLY 1 VARIABLE F3B11660
02156 0 50000 1 02325 1167ERR1 CLAAIL−2,1 INT. FORMULA NO. OF ARGURMENT F3B11670
02157 0 40200 0 02211 1168SUBM1CON+17 -377777777777 F3B11680
02160−0 10000 0 02163 1169TNZERROR2 SHOULD BE ALL 1S, FOR PARTICULAR ROUTINE F3B11690
02161 0 50000 1 02327 1170CLAAIL,1 LOCATION OF ARGUMENT F3B11700
02162 0 02000 4 00001 1171TRA1,4 BACK TO CONTINUE F3B11710
02163 0 07400 4 00004 1172ERROR2 TSX4,4 A UNIVARIATE OR 2VAR. ROUTINE NOT CORRECT F3B11720
02164+000000000005 1173M1ECTR DEC5,6,0,0 F3B11730
02165+000000000006 1174
02166+000000000000 1175
02167+000000000000 1176
02170+000000000000 1177M1CON DEC0,1,2,3,4,10B17,1B17,2B17,4B17,8B17,17B17,18B17,35B17 F3B11740
02171+000000000001 1178
02172+000000000002 1179
02173+000000000003 1180
02174+000000000004 1181
02175+000012000000 1182
02176+000001000000 1183
02177+000002000000 1184
02200+000004000000 1185
02201+000010000000 1186
02202+000021000000 1187
02203+000022000000 1188
02204+000043000000 1189
02205+077777000000 1190OCT77777000000,77777,2000,370,777777777777,1000001,312,314 F3B11750
02206+000000077777 1191
02207+000000002000 1192
02210+000000000370 1193
02211−377777777777 1194
02212+000001000001 1195
02213+000000000312 1196
02214+000000000314 1197
02215 234321000000 1198M1ABC BCD7CLA000LDQ000MPY000LRS000ALS000STO000LLS000 F3B11760
02216 432450000000 1199
02217 444770000000 1200
02220 435162000000 1201
02221 214362000000 1202
02222 626346000000 1203
02223 434362000000 1204
02224 626350000046 1205BCD7STQ00OFMP000SSP000UFA000ANA00OFAD000CLM000 F3B11770
02225 264447000000 1206
02226 626247000000 1207
02227 642621000000 1208
02230 214521000046 1209
02231 262124000000 1210
02232 234344000000 1211
02233 246547000046 1212BCD7DVP00OFDP000TLQ000RTB000*000000*0000+00000 F3B11780
02234 262447000000 1213
02235 634350000000 1214
02236 516322000000 1215
02237 540000000000 1216
02240 005400000000 1217
02241 200000000000 1218
02242 010000000000 1219BCD3100000600000ORA000 F3B11790
02243 060000000000 1220
02244 465121000000 1221
02245+170000000000 1222OCT170000000000 F3B11800
02246 626724000000 1223BCD3SXD000WTB000CLS000 F3B11810
02247 666322000000 1224
02250 234362000000 1225
02251 672122626060 1226M1D BCD7XABS␣␣ABS␣␣␣XINT␣␣INT␣␣␣XFIX␣␣FLOAT␣XMOD␣␣ F3B11820
02252 212262606060 1227
02253 673145636060 1228
02254 314563606060 1229
02255 672631676060 1230
02256 264346216360 1231
02257 674446246060 1232
02260 444624606060 1233BCD4MOD␣␣␣XSIGN␣SIGN␣␣XMAX0␣ F3B11830
02261 676231274560 1234
02262 623127456060 1235
02263 674421670060 1236
02264 442167016060 1237BCD7MAX1␣␣XMAX1␣MAX0␣␣XMIN0␣MIN1␣␣XMIN1␣MIN0␣␣ F3B11840
02265 674421670160 1238
02266 442167006060 1239
02267 674431450060 1240
02270 443145016060 1241
02271 674431450160 1242
02272 443145006060 1243
02273 0 00000 0 00000 1244COMBOX TAG OR 1NT FMLA NO OF FORTAG ENTRY DURING CHTG EDIT F3B11850
02274 0 00000 0 00000 1245CHTGL 2S COMP OF NO OF WORDS IN CHTG TABLE F3B11860
02275 0 00000 0 00000 1246CHTGE1 2S COMP OF CUR. ENTRY POINT IN CHTG TABLE F3B11870
02276 0 00000 0 00000 1247CHTGE2 2S COMP OF NEXT ENTRY POINT IN CHTG TABLE F3B11880
02277 0 00000 0 00000 1248CHTGFN INT FMLA NO APPEARING IN CURRENT CHTG TABLE BLOCK F3B11890
02300 0 00000 0 00000 1249SXTXL LENGTH OF SXTX TABLE F3B11900
02301 0 00000 0 00000 1250SXLOC LOCATION WORD OF CURRENT DO INST F3B11910
02302 0 00000 0 00000 1251CBOX IRC DURING CHTG TABLE SEARCH, SXTX TABLE SEARCH F3B11920
02303 0 00000 0 00000 1252TAGB0X TAG OF CUR AIL INST DURING CHTG TABLE SEARCH F3B11930
02304 0 00000 0 00000 1253M1DOWN 2S COMP OF N0 OF WORDS IN CUR DO REC F3B11940
02305 0 00000 0 00000 1254M1ALWN 2S COMP OF N0 OF WORDS IN CUR AIL REC F3B11950
02306 0 00000 0 00000 1255M1TRC NO OF REC READS F3B11960
02307 0 00000 0 00000 1256M1DOFN INT FMLA NO OF CUR BLOCK OF DO INST F3B11970
02310 0 00000 0 00000 1257M1ALFN INT FMLA NO OF CUR BLOCK OF AIL INST F3B11980
02311 0 00000 0 00000 1258CCOUNT COUNT NO OF PAIRS OF MPY,LRS INST FOR EXP ROUTINE F3B11990
02312 0 00000 0 00000 1259CCELL IND SPECIAL OP ROUTINE F3B12000
02313 0 00000 0 00000 1260ENDT IND APPEARANCE OF END MARK IN MAX,MIN ROUTINES F3B12010
02314 0 00000 0 00000 1261E1C CELL FOR SAVING MQ F3B12020
02315 0 00000 0 00000 1262E2C CELL FOR SAVING IRA F3B12030
02316 0 00000 0 00000 1263E3C CELL FOR SAVING IRB F3B12040
02317 0 00000 0 00000 1264BB0X 2S COMP OF NO OF WORDS ALREADY ENTERED IN BLOCK F3B12050
02320 0 00000 0 00000 12653WD TEHP STORAGE FOR THID WD OF COMPILED INST F3B12060
02321 0 00000 0 00000 12664WD TEHP STORAGE FORF0URTH WD OF COMPILED INST F3B12070
02322 1267M1CW BSS4 FOUR WORD INST SPACE FOR COMPILING F3B12080
02326 0 00000 0 00000 1268PZELENGTH OF FORTAG TABLE F3B12090
02327 1269FORTAG BSS1500 AIL,DO,CIB LATER SHARE THIS BLOCK F3B12100
05263 1270UCHTG BSS300 F3B12110
05737 1271ERAS BSS2 ORIGEN + SXTX LENGTH, SXTX, CHTG LENGTH F3B12120
05741 1272CHTG BSS600 F3B12130
02327 1273AIL SYNFORTAG F3B12140
02473 1274DO SYNFORTAG+100 F3B12150
02637 1275CIB SYNFORTAG+200 F3B12160
03003 1276SXTX SYNFORTAG+300 F3B12170
07073 1277 0P1 SYN3643