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