CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 FORTRAN COMPILER -- SHIFT CFL PHASE -- PHASE 50B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- SHIFT CFL PHASE -- PHASE 50B 102 CTL 6611 103 * 104 * CONSTANTS, FORMATS AND LIST STRINGS ARE MOVED INTO THEIR 105 * OBJECT CORE-STORAGE LOCATIONS ABOVE ARRAY STORAGE. ARRAY 106 * STORAGE-AREA IS CLEARED. 107 * 108 * ON ENTRY X3 IS AT THE TOP OF THE MOVED-DOWN CODE. 109 * 110 X1 EQU 89 0089 111 X2 EQU 94 0094 112 X3 EQU 99 0099 113 * 114 * STUFF IN THE RESIDENT AREA 115 * 116 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 117 TBLBOT EQU 145 ONE BELOW NUMBERS, FORMATS, I/O LISTS 0145 118 SEQTAB EQU 148 BOTTOM OF SEQUENCE NUMBER TABLE - 2 0148 119 ARYSIZ EQU 160 TOTAL ARRAY SIZE & 2 0160 120 NEGARY EQU 163 16000 - ARYSIZ 0163 121 ARYTOP EQU 194 TOP OF ARRAYS IN OBJECT CODE 0194 122 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 123 TOPCOR EQU 688 TOP CORE ADDRESS FROM PARAM CARD 0688 124 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 125 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 126 TPREAD EQU 780 TAPE READ INSTRUCTION IN OVERLAY LOADER 0780 127 LOADXX EQU 793 EXIT FROM OVERLAY LOADER 0793 128 CLRBOT EQU 833 BOTTOM OF CORE TO CLEAR IN OVERLAY LOADER 0833 129 * 130 * STUFF FROM THE PREVIOUS PHASE 131 * 132 ADR5B EQU 891 0891 133 ADR5 EQU 896 0896 134 CONV35 EQU 969 CONVERT ADDRESS IN ADR5 TO DIGITS IN ADR5B 0969 135 TOOBIG EQU 1092 1092 136 * 137 ORG 1175 1175 138 LOADDD EQU *&1 LOAD ADDRESS 1175 139 1 175 BEGINN C TOPCOR,ARYTOP 7 1175 C 688 194 4 140 1 182 BE DONE 5 1182 B V49 S 4 141 1 187 MCW SEQTAB,X1 7 1187 M 148 089 4 142 1 194 MCW SEQTAB,X2 7 1194 M 148 094 4 143 1 201 MA NEGARY,X2 7 1201 # 163 094 4 144 1 208 SBR SX3&6,0&X3 7 1208 H U89 0?0 5 145 1 215 CW ADR5-2 4 1215 ) 894 5 146 1 219 MCW X2,ADR5 7 1219 M 094 896 5 147 1 226 B CONV35 4 1226 B 969 5 1 FORTRAN COMPILER -- SHIFT CFL PHASE -- PHASE 50B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 230 MCW ADR5B,W5A 7 1230 M 891 V94 5 149 1 237 MCW X3,ADR5 7 1237 M 099 896 5 150 1 244 B CONV35 4 1244 B 969 6 151 1 248 MCW ADR5B,W5B 7 1248 M 891 V99 6 152 1 255 C W5A,W5B 7 1255 C V94 V99 6 153 1 262 BH TOOBIG 5 1262 B |92 U 6 154 1 267 MCW SEQTAB,ADR5 7 1267 M 148 896 6 155 1 274 B CONV35 4 1274 B 969 6 156 1 278 MCW ADR5B,W5C 7 1278 M 891 W04 7 157 1 285 MCW ARYTOP,ADR5 7 1285 M 194 896 7 158 1 292 B CONV35 4 1292 B 969 7 159 1 296 MCW ADR5B,W5D 7 1296 M 891 W09 7 160 1 303 C W5C,W5D 7 1303 C W04 W09 7 161 1 310 BL NOSQMV 5 1310 B T93 T 7 162 * 163 * MOVE SEQUENCE NUMBER TABLE DOWN BY THE ARRAY SIZE 164 * 165 1 315 SEQMV MA KA001,X1 7 1315 # W12 089 8 166 1 322 MA KA001,X2 7 1322 # W12 094 8 167 1 329 BW SEQMV3,0&X1 8 1329 V T82 0|0 1 8 168 1 337 CW 0&X2 4 1337 ) 0!0 8 169 1 341 MN 0&X1,0&X2 7 1341 D 0|0 0!0 8 170 1 348 MZ 0&X1,0&X2 7 1348 Y 0|0 0!0 9 171 1 355 SEQMV2 CW 0&X1 4 1355 ) 0|0 9 172 1 359 C X1,ARYTOP 7 1359 C 089 194 9 173 1 366 BU SEQMV 5 1366 B T15 / 9 174 1 371 MCW ARYTOP,X3 7 1371 M 194 099 9 175 1 378 B NOSQV2 4 1378 B U00 9 176 1 382 SEQMV3 LCA 0&X1,0&X2 7 1382 L 0|0 0!0 10 177 1 389 B SEQMV2 4 1389 B T55 10 178 * 179 * DON'T MOVE THE SEQUENCE NUMBER TABLE 180 * 181 1 393 NOSQMV MCW SEQTAB,X3 7 1393 M 148 099 10 182 1 400 NOSQV2 BW *&9,1&X3 8 1400 V U16 0?1 1 10 183 1 408 CW FLAG 4 1408 ) W13 10 184 1 412 SW 1&X3 4 1412 , 0?1 10 185 * 186 * MOVE CONSTANTS AND STRINGS UP 187 * 188 1 416 MCW TOPCOR,X1 7 1416 M 688 089 11 189 1 423 MCW ARYTOP,X2 7 1423 M 194 094 11 190 1 430 MOVEUP LCA 0&X1,0&X2 7 1430 L 0|0 0!0 11 191 1 437 SBR X2 4 1437 H 094 11 192 1 441 SBR X1 4 1441 H 089 11 193 1 445 MA ARYSIZ,X1 7 1445 # 160 089 11 194 1 452 C X1,X3 7 1452 C 089 099 12 195 1 459 BU MOVEUP 5 1459 B U30 / 12 196 1 464 BW SX3,FLAG 8 1464 V U83 W13 1 12 197 1 472 MA NEGARY,X3 7 1472 # 163 099 12 1 FORTRAN COMPILER -- SHIFT CFL PHASE -- PHASE 50B PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 479 CW 1&X3 4 1479 ) 0?1 12 199 1 483 SX3 SBR X3,0 7 1483 H 099 000 12 200 1 490 MA NEGARY,83 7 1490 # 163 083 13 201 1 497 MA NEGARY,TBLBOT 7 1497 # 163 145 13 202 1 504 MA NEGARY,SEQTAB 7 1504 # 163 148 13 203 1 511 MCW TOPCOR,X1 7 1511 M 688 089 13 204 1 518 CSLOOP C X1,ARYTOP 7 1518 C 089 194 13 205 1 525 BE DONE 5 1525 B V49 S 14 206 1 530 MCW KB1,0&X1 7 1530 M W14 0|0 14 207 1 537 CW 0&X1 4 1537 ) 0|0 14 208 1 541 SBR X1 4 1541 H 089 14 209 1 545 B CSLOOP 4 1545 B V18 14 210 * 211 1 549 DONE BSS SNAPSH,C 5 1549 B 333 C 14 212 1 554 SBR TPREAD&6,838 7 1554 H 786 838 14 213 1 561 SBR CLRBOT 4 1561 H 833 15 214 1 565 SBR LOADXX&3,838 7 1565 H 796 838 15 215 1 572 SBR CLEARL&3,GMWM 7 1572 H 710 W24 15 216 1 579 LCA REPLAC,PHASID 7 1579 L W23 110 15 217 1 586 B LOADNX 4 1586 B 700 15 218 * 219 * DATA 220 * 221 1 594 W5A DCW #5 5 1594 15 222 1 599 W5B DCW #5 5 1599 15 223 1 604 W5C DCW #5 5 1604 16 224 1 609 W5D DCW #5 5 1609 16 225 1 612 KA001 DSA 1 3 1612 001 16 226 1 613 FLAG DCW #1 1 1613 16 227 1 614 KB1 DCW #1 1 1614 16 228 1 623 REPLAC DCW @REPLACE 1@ 9 1623 16 229 1 624 GMWM DCW @}@ 1 1624 GMARK 16 230 ORG 201 0201 231 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 /75 17 232 EX BEGINN B /75 18 233 END / 000 080 1 FORTRAN COMPILER -- SHIFT CFL PHASE -- PHASE 50B PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ADR5 896 ADR5B 891 ARYSIZ 160 ARYTOP 194 BEGINN 1175 CLEARL 707 CLRBOT 833 CONV35 969 CSLOOP 1518 DONE 1549 FLAG 1613 GMWM 1624 KA001 1612 KB1 1614 LOADDD 1175 LOADNX 700 LOADXX 793 MOVEUP 1430 NEGARY 163 NOSQMV 1393 NOSQV2 1400 PHASID 110 REPLAC 1623 SEQMV 1315 SEQMV2 1355 SEQMV3 1382 SEQTAB 148 SNAPSH 333 SX3 1483 TBLBOT 145 TOOBIG 1092 TOPCOR 688 TPREAD 780 W5A 1594 W5B 1599 W5C 1604 W5D 1609 X1 89 X2 94 X3 99