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 -- RESORT 4 PHASE -- PHASE 50A PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- RESORT 4 PHASE -- PHASE 50A 102 CTL 6611 103 * 104 * THE STATEMENTS ARE RELOCATED TO THE POSITIONS THEY WILL OCCUPY 105 * AT OBJECT TIME. THE STATEMENT NUMBER TABLE IS ADJUSTED TO 106 * TO SHOW THE OBJECT TIME LOCATIONS OF THE STATEMENTS. 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 NSTMTS EQU 183 NUMBER OF STATEMENTS, INCLUDING GENERATED STOP 0183 120 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 121 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 122 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 123 * 124 * STUFF FROM THE PREVIOUS PHASE 125 * 126 W3 EQU 859 0859 127 TOPC5 EQU 870 TOPC AS FIVE DIGITS 0870 128 ADR5B EQU 891 0891 129 ADR5 EQU 896 0896 130 CONV35 EQU 969 CONVERT ADDRESS IN ADR5 TO DIGITS IN ADR5B 0969 131 TOOBIG EQU 1092 1092 132 * 133 ORG 1175 1175 134 LOADDD EQU *&1 LOAD ADDRESS 1175 135 1 175 BEGINN MCW SEQTAB,X1 7 1175 M 148 089 4 136 1 182 SBR X1,1&X1 7 1182 H 089 0|1 4 137 1 189 C TBLBOT,X1 7 1189 C 145 089 4 138 1 196 BE ATBOT 5 1196 B S60 S 4 139 1 201 LOOP SBR X1,3&X1 7 1201 H 089 0|3 4 140 1 208 MCW 0&X1,X2 7 1208 M 0|0 094 5 141 1 215 BWZ *&12,X2-1,2 8 1215 V S34 093 2 5 142 1 223 MCW 0&X2,0&X1 7 1223 M 0!0 0|0 5 143 1 230 B TSTBOT 4 1230 B S48 5 144 1 234 MA W3,X2 7 1234 # 859 094 5 145 1 241 MCW X2,0&X1 7 1241 M 094 0|0 6 146 1 248 TSTBOT C X1,TBLBOT 7 1248 C 089 145 6 147 1 255 BU LOOP 5 1255 B S01 / 6 FORTRAN COMPILER -- RESORT 4 PHASE -- PHASE 50A PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 260 ATBOT MCW W3,X1 7 1260 M 859 089 6 149 1 267 MA X3,X1 7 1267 # 099 089 6 150 1 274 MCW X1,NEWX3&6 7 1274 M 089 U69 7 151 1 281 SBR ADR5,0&X3 7 1281 H 896 0?0 7 152 1 288 B CONV35 4 1288 B 969 7 153 1 292 MCW ADR5B,TOPC5 7 1292 M 891 870 7 154 1 299 MCW ADR5B,W5 7 1299 M 891 W68 7 155 1 306 MCW W3,ADR5 7 1306 M 859 896 7 156 1 313 B CONV35 4 1313 B 969 8 157 1 317 A ADR5B,TOPC5 7 1317 A 891 870 8 158 1 324 C K16000,TOPC5 7 1324 C W63 870 8 159 1 331 BL *&8 5 1331 B T43 T 8 160 1 336 S K16000,TOPC5 7 1336 S W63 870 8 161 1 343 MCW SEQTAB,ADR5 7 1343 M 148 896 8 162 1 350 B CONV35 4 1350 B 969 9 163 1 354 C ADR5B,TOPC5 7 1354 C 891 870 9 164 1 361 BH TOOBIG 5 1361 B |92 U 9 165 1 366 MZ X1,TSTZON&7 7 1366 Y 089 V77 9 166 1 373 MCW X1-2,TSTCHR&7 7 1373 M 087 V97 9 167 1 380 MCW NSTMTS,X2 7 1380 M 183 094 9 168 1 387 MA W3,NSTMTS 7 1387 # 859 183 10 169 1 394 C TOPC5,W5 7 1394 C 870 W68 10 170 1 401 BH FINDW2 5 1401 B V14 U 10 171 1 406 MORE LCA 0&X3,0&X1 7 1406 L 0?0 0|0 10 172 1 413 SAR X3 4 1413 Q 099 10 173 1 417 C 0&X1 4 1417 C 0|0 10 174 1 421 SAR X1 4 1421 Q 089 10 175 1 425 BCE *&5,0&X3,: AT TOP OF MOVED-UP CODE 8 1425 B U37 0?0 : 11 176 1 433 B MORE 4 1433 B U06 11 177 * 178 * DONE 179 * 180 1 437 CSLOOP CS 0&X1 4 1437 / 0|0 11 181 1 441 SBR X1 4 1441 H 089 11 182 1 445 C X1,BOTCLR AT THE BOTTOM OF CORE TO CLEAR? 7 1445 C 089 W71 11 183 1 452 BU CSLOOP NO, CLEAR MORE 5 1452 B U37 / 11 184 1 457 CW 0&X1 4 1457 ) 0|0 11 185 1 461 CW 1 1461 ) 12 186 1 462 CW 1 1462 ) 12 187 1 463 NEWX3 SBR X3,0 7 1463 H 099 000 12 188 1 470 SW 0&X1,1&X3 7 1470 , 0|0 0?1 12 189 1 477 MCW W3,X2 7 1477 M 859 094 12 190 1 484 BSS SNAPSH,D 5 1484 B 333 D 12 191 1 489 SBR CLEARL&3,GMWM 7 1489 H 710 W88 12 192 1 496 LCA SHIFT,PHASID 7 1496 L W80 110 13 193 1 503 B LOADNX 4 1503 B 700 13 194 * 195 * MOVE THE CODE TO ITS FINAL PLACE 196 * 197 1 507 FINDWM A KP1,X2 7 1507 A W81 094 13 FORTRAN COMPILER -- RESORT 4 PHASE -- PHASE 50A PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 514 FINDW2 BW *&5,1&X2 8 1514 V V26 0!1 1 13 199 1 522 B FINDWM 4 1522 B V07 13 200 1 526 MCW X2,X1 7 1526 M 094 089 13 201 1 533 MA W3,X1 7 1533 # 859 089 14 202 1 540 LCA 0&X2,0&X1 MOVE ONE FIELD TO ITS FINAL PLACE 7 1540 L 0!0 0|0 14 203 1 547 C X2,X3 7 1547 C 094 099 14 204 1 554 BU FINDWM 5 1554 B V07 / 14 205 1 559 LCA KB2,2&X3 7 1559 L W83 0?2 14 206 1 566 CW 1&X3 4 1566 ) 0?1 14 207 1 570 TSTZON BWZ TSTCHR,X3,2 CLEAR MOVED-AWAY CODE 8 1570 V V90 099 2 15 208 1 578 CS 0&X3 4 1578 / 0?0 15 209 1 582 SBR X3 4 1582 H 099 15 210 1 586 B TSTZON 4 1586 B V70 15 211 1 590 TSTCHR BCE CLR00F,X3-2,0 8 1590 B W10 097 0 15 212 1 598 CS 0&X3 4 1598 / 0?0 15 213 1 602 SBR X3 4 1602 H 099 15 214 1 606 B TSTCHR 4 1606 B V90 16 215 1 610 CLR00F C X3,X1 7 1610 C 099 089 16 216 1 617 BE CLRFIN 5 1617 B W41 S 16 217 1 622 LCA KB1,0&X3 7 1622 L W84 0?0 16 218 1 629 CW 0&X3 4 1629 ) 0?0 16 219 1 633 SBR X3 4 1633 H 099 16 220 1 637 B CLR00F 4 1637 B W10 16 221 1 641 CLRFIN MCW NSTMTS,X1 7 1641 M 183 089 17 222 1 648 MA K15999,X1 7 1648 # W87 089 17 223 1 655 B CSLOOP 4 1655 B U37 17 224 * 225 * DATA 226 * 227 1 663 K16000 DCW 16000 5 1663 17 228 1 668 W5 DCW #5 5 1668 17 229 1 671 BOTCLR DSA DOWNTO TEST FOR BOTTOM OF CLEARING 3 1671 W99 17 230 1 680 SHIFT DCW @SHIFT CFL@ 9 1680 18 231 1 681 KP1 DCW &1 1 1681 18 232 1 683 KB2 DCW #2 2 1683 18 233 1 684 KB1 DCW #1 1 1684 18 234 1 687 K15999 DSA 15999 3 1687 I9I 18 235 1 688 GMWM DCW @}@ 1 1688 GMARK 18 236 ORG *&X00 1700 237 DOWNTO EQU * 1699 238 ORG 201 0201 239 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 /75 19 240 EX BEGINN B /75 20 241 END / 000 080 FORTRAN COMPILER -- RESORT 4 PHASE -- PHASE 50A PAGE 4 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ADR5 896 ADR5B 891 ATBOT 1260 BEGINN 1175 BOTCLR 1671 CLEARL 707 CLR00F 1610 CLRFIN 1641 CONV35 969 CSLOOP 1437 DOWNTO 1699 FINDW2 1514 FINDWM 1507 GMWM 1688 K15999 1687 K16000 1663 KB1 1684 KB2 1683 KP1 1681 LOADDD 1175 LOADNX 700 LOOP 1201 MORE 1406 NEWX3 1463 NSTMTS 183 PHASID 110 SEQTAB 148 SHIFT 1680 SNAPSH 333 TBLBOT 145 TOOBIG 1092 TOPC5 870 TSTBOT 1248 TSTCHR 1590 TSTZON 1570 W3 859 W5 1668 X1 89 X2 94 X3 99