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 FORTRAN COMPILER -- SHIFT CFL PHASE -- PHASE 50B PAGE 1 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 1 175 BEGINN C TOPCOR,ARYTOP 7 1175 C 688 194 4 139 1 182 BE DONE 5 1182 B V49 S 4 140 1 187 MCW SEQTAB,X1 7 1187 M 148 089 4 141 1 194 MCW SEQTAB,X2 7 1194 M 148 094 4 142 1 201 MA NEGARY,X2 7 1201 # 163 094 4 143 1 208 SBR SX3&6,0&X3 7 1208 H U89 0?0 5 144 1 215 CW ADR5-2 4 1215 ) 894 5 145 1 219 MCW X2,ADR5 7 1219 M 094 896 5 146 1 226 B CONV35 4 1226 B 969 5 147 1 230 MCW ADR5B,W5A 7 1230 M 891 V94 5 FORTRAN COMPILER -- SHIFT CFL PHASE -- PHASE 50B PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 237 MCW X3,ADR5 7 1237 M 099 896 5 149 1 244 B CONV35 4 1244 B 969 6 150 1 248 MCW ADR5B,W5B 7 1248 M 891 V99 6 151 1 255 C W5A,W5B 7 1255 C V94 V99 6 152 1 262 BH TOOBIG 5 1262 B |92 U 6 153 1 267 MCW SEQTAB,ADR5 7 1267 M 148 896 6 154 1 274 B CONV35 4 1274 B 969 6 155 1 278 MCW ADR5B,W5C 7 1278 M 891 W04 7 156 1 285 MCW ARYTOP,ADR5 7 1285 M 194 896 7 157 1 292 B CONV35 4 1292 B 969 7 158 1 296 MCW ADR5B,W5D 7 1296 M 891 W09 7 159 1 303 C W5C,W5D 7 1303 C W04 W09 7 160 1 310 BIN TESTMV, V3M4 5 1310 B W24 7 161 * 162 * MOVE SEQUENCE NUMBER TABLE DOWN BY THE ARRAY SIZE 163 * 164 1 315 SEQMV MA KA001,X1 7 1315 # W12 089 8 165 1 322 MA KA001,X2 7 1322 # W12 094 8 166 1 329 BW SEQMV3,0&X1 8 1329 V T82 0|0 1 8 167 1 337 CW 0&X2 4 1337 ) 0!0 8 168 1 341 MN 0&X1,0&X2 7 1341 D 0|0 0!0 8 169 1 348 MZ 0&X1,0&X2 7 1348 Y 0|0 0!0 9 170 1 355 SEQMV2 CW 0&X1 4 1355 ) 0|0 9 171 1 359 C X1,ARYTOP 7 1359 C 089 194 9 172 1 366 BU SEQMV 5 1366 B T15 / 9 173 1 371 MCW ARYTOP,X3 7 1371 M 194 099 9 174 1 378 B NOSQV2 4 1378 B U00 9 175 1 382 SEQMV3 LCA 0&X1,0&X2 7 1382 L 0|0 0!0 10 176 1 389 B SEQMV2 4 1389 B T55 10 177 * 178 * DON'T MOVE THE SEQUENCE NUMBER TABLE 179 * 180 1 393 NOSQMV MCW SEQTAB,X3 7 1393 M 148 099 10 181 1 400 NOSQV2 BW *&9,1&X3 8 1400 V U16 0?1 1 10 182 1 408 CW FLAG 4 1408 ) W13 10 183 1 412 SW 1&X3 4 1412 , 0?1 10 184 * 185 * MOVE CONSTANTS AND STRINGS UP 186 * 187 1 416 MCW TOPCOR,X1 7 1416 M 688 089 11 188 1 423 MCW ARYTOP,X2 7 1423 M 194 094 11 189 1 430 MOVEUP LCA 0&X1,0&X2 7 1430 L 0|0 0!0 11 190 1 437 SBR X2 4 1437 H 094 11 191 1 441 SBR X1 4 1441 H 089 11 192 1 445 MA ARYSIZ,X1 7 1445 # 160 089 11 193 1 452 C X1,X3 7 1452 C 089 099 12 194 1 459 BU MOVEUP 5 1459 B U30 / 12 195 1 464 BW SX3,FLAG 8 1464 V U83 W13 1 12 196 1 472 MA NEGARY,X3 7 1472 # 163 099 12 197 1 479 CW 1&X3 4 1479 ) 0?1 12 FORTRAN COMPILER -- SHIFT CFL PHASE -- PHASE 50B PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 483 SX3 SBR X3,0 7 1483 H 099 000 12 199 1 490 MA NEGARY,83 7 1490 # 163 083 13 200 1 497 MA NEGARY,TBLBOT 7 1497 # 163 145 13 201 1 504 MA NEGARY,SEQTAB 7 1504 # 163 148 13 202 1 511 MCW TOPCOR,X1 7 1511 M 688 089 13 203 1 518 CSLOOP C X1,ARYTOP 7 1518 C 089 194 13 204 1 525 BE DONE 5 1525 B V49 S 14 205 1 530 MCW KB1,0&X1 7 1530 M W14 0|0 14 206 1 537 CW 0&X1 4 1537 ) 0|0 14 207 1 541 SBR X1 4 1541 H 089 14 208 1 545 B CSLOOP 4 1545 B V18 14 209 * 210 1 549 DONE BSS SNAPSH,C 5 1549 B 333 C 14 211 1 554 SBR TPREAD&6,838 7 1554 H 786 838 14 212 1 561 SBR CLRBOT 4 1561 H 833 15 213 1 565 SBR LOADXX&3,838 7 1565 H 796 838 15 214 1 572 SBR CLEARL&3,GMWM 7 1572 H 710 W34 15 215 1 579 LCA REPLAC,PHASID 7 1579 L W23 110 15 216 1 586 B LOADNX 4 1586 B 700 15 217 * 218 * DATA 219 * 220 1 594 W5A DCW #5 5 1594 15 221 1 599 W5B DCW #5 5 1599 15 222 1 604 W5C DCW #5 5 1604 16 223 1 609 W5D DCW #5 5 1609 16 224 1 612 KA001 DSA 1 3 1612 001 16 225 1 613 FLAG DCW #1 1 1613 16 226 1 614 KB1 DCW #1 1 1614 16 227 1 623 REPLAC DCW @REPLACE 1@ 9 1623 16 228 1 624 TESTMV BH SEQMV V3M4 5 1624 B T15 U 16 229 1 629 BIN NOSQMV, V3M4 5 1629 B T93 17 230 1 634 GMWM DCW @}@ 1 1634 GMARK 17 231 EX BEGINN B /75 18 232 END / 000 080 FORTRAN COMPILER -- SHIFT CFL PHASE -- PHASE 50B PAGE 4 SYMBOL 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 1634 KA001 1612 KB1 1614 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 TESTMV 1624 TOOBIG 1092 TOPCOR 688 TPREAD 780 W5A 1594 W5B 1599 W5C 1604 W5D 1609 X1 89 X2 94 X3 99