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 -- RESORT 2 PHASE -- PHASE 48 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- RESORT 2 PHASE -- PHASE 48 102 CTL 6611 103 * 104 * THE RESORT TABLE IS FILLED WITH THE CURRENT LOCATION 105 * OF EACH STATEMENT. 106 * 107 * ON ENTRY, X1 AND X2 ARE THE BOTTOM OF THE PREFIX OF THE 108 * BOTTOMMOST STATEMENT IN HIGH CORE, AND X3 IS THE BOTTOM 109 * OF THE BOTTOMMOST STATEMENT IN HIGH CORE. 110 * 111 X1 EQU 89 0089 112 X2 EQU 94 0094 113 X3 EQU 99 0099 114 * 115 * STUFF IN THE RESIDENT AREA 116 * 117 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 118 SEQTAB EQU 148 BOTTOM OF SEQUENCE NUMBER TABLE - 2 0148 119 NSTMTS EQU 183 NUMBER OF STATEMENTS, INCLUDING GENERATED STOP 0183 120 * BEGINNING OF GENERATED CODE ON EXIT. 121 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 122 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 123 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 124 * 125 * STUFF FROM THE PREVIOUS PHASE 126 * 127 SX3 EQU 844 0844 128 TABBOT EQU 847 BOTTOM OF RESORT TABLE 0847 129 SX2 EQU 853 0853 130 W3 EQU 859 0859 131 TOPC EQU 862 TABBOT PLUS 3 X NUMBER OF STATEMENTS PLUS 1 0862 132 SEQNO EQU 865 SEQUENCE NUMBER OF STATEMENT BEING PROCESSED 0865 133 TOPC5 EQU 870 TOPC AS FIVE DIGITS 0870 134 TIMES6 EQU 875 DOCNT TIMES 6 0875 135 TOPB EQU 883 TABBOT PLUS 3 X NUMBER OF STATEMENTS PLUS 1 0883 136 FLAG EQU 884 0884 137 ADR5B EQU 891 0891 138 ADR5 EQU 896 0896 139 CONV53 EQU 929 CONVERT FIVE DIGITS IN ADR5 TO ADDRESS 0929 140 CONV35 EQU 969 CONVERT ADDRESS IN ADR5 TO DIGITS IN ADR5B 0969 141 FINDGM EQU 1052 FIND NEXT HIGHER GM 1052 142 * 143 SORTAB EQU 2499 SORT TABLE 2499 144 * 145 ORG 1175 1175 146 LOADDD EQU *&1 LOAD ADDRESS 1175 147 1 175 BEGINN MCW TOPB,X3 7 1175 M 883 099 4 1 FORTRAN COMPILER -- RESORT 2 PHASE -- PHASE 48 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 182 B FIRST 4 1182 B S25 4 149 1 186 LOOP SBR X2,2&X2 7 1186 H 094 0!2 4 150 1 193 MZ X3,SX3 7 1193 Y 099 844 4 151 1 200 MCW X2,X3 7 1200 M 094 099 4 152 1 207 B FINDGM 4 1207 B |52 4 153 1 211 MCW X3,X2 7 1211 M 099 094 5 154 1 218 MCW SX3,X3 7 1218 M 844 099 5 155 1 225 FIRST SBR SX2,2&X2 7 1225 H 853 0!2 5 156 1 232 BWZ *&5,0&X2,2 8 1232 V S44 0!0 2 5 157 1 240 B *&9 4 1240 B S52 5 158 1 244 BWZ *&19,2&X2,2 8 1244 V S70 0!2 2 6 159 1 252 MCW 2&X2,X2 7 1252 M 0!2 094 6 160 1 259 MCW 0&X2,X2 GET SEQUENCE NUMBER FROM TABLE TO X2 7 1259 M 0!0 094 6 161 1 266 B *&8 4 1266 B S77 6 162 1 270 MCW 2&X2,X2 GET SEQUENCE NUMBER TO X2 7 1270 M 0!2 094 6 163 1 277 SBR SEQNO,0&X2 7 1277 H 865 0!0 7 164 1 284 SBR *&14 4 1284 H T01 7 165 1 288 MZ X2ZONE,*&6 7 1288 Y W55 T00 7 166 1 295 SBR X2,0 7 1295 H 094 000 7 167 1 302 MCW SEQNO,*&14 7 1302 M 865 T22 7 168 1 309 MZ X2ZONE,*&6 7 1309 Y W55 T21 7 169 1 316 SBR X2,0 DOUBLE SEQUENCE NUMBER THE HARD WAY??? 7 1316 H 094 000 8 170 1 323 C SORTAB&X2,KB3 SORT TABLE ENTRY EMTPY? 7 1323 C MR9 W58 8 171 1 330 BU *&12 NO 5 1330 B T46 / 8 172 1 335 MCW X1,SORTAB&X2 7 1335 M 089 MR9 8 173 1 342 B LINKED 4 1342 B T96 8 174 1 346 SW 3&X3 LINK ANOTHER STATEMENT 4 1346 , 0?3 8 175 1 350 MCW SORTAB&X2,5&X3 OF THE SAME SEQUENCE NUMBER 7 1350 M MR9 0?5 9 176 1 357 CW 3&X3 TO THE TABLE. THIS CAN 4 1357 ) 0?3 9 177 1 361 MCW X1,2&X3 HAPPEN WITH 7 1361 M 089 0?2 9 178 1 368 MCW K1,FLAG DO STATEMENTS 7 1368 M W59 884 9 179 1 375 SBR SORTAB&X2,2&X3 7 1375 H MR9 0?2 9 180 1 382 MZ X1ZONE,SORTAB-1&X2 MARK FIRST AS LINKED 7 1382 Y W60 MR8 9 181 1 389 SBR X3,6&X3 7 1389 H 099 0?6 10 182 1 396 LINKED MCW SX2,X2 7 1396 M 853 094 10 183 1 403 C SEQTAB,SX2 7 1403 C 148 853 10 184 1 410 BU WHAT 5 1410 B V90 / 10 185 1 415 BCE ONE,FLAG,0 8 1415 B U48 884 0 10 186 1 423 MCW K0,FLAG 7 1423 M W61 884 11 187 1 430 MCW X1,X3 7 1430 M 089 099 11 188 1 437 B FINDGM 4 1437 B |52 11 189 1 441 MZ X1ZONE,1&X3 7 1441 Y W60 0?1 11 190 1 448 ONE MCW TOPC,X2 7 1448 M 862 094 11 191 1 455 LCA COLON,0&X2 7 1455 L W62 0!0 11 192 1 462 MCW TABBOT,X3 7 1462 M 847 099 12 193 1 469 SBR X3,3&X3 7 1469 H 099 0?3 12 194 1 476 MCW 86,ADR5 7 1476 M 086 896 12 195 1 483 B CONV35 4 1483 B 969 12 196 1 487 MCW ADR5B,TOPC5 7 1487 M 891 870 12 197 1 494 SBR ADR5,0&X2 7 1494 H 896 0!0 12 1 FORTRAN COMPILER -- RESORT 2 PHASE -- PHASE 48 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 501 B CONV35 4 1501 B 969 13 199 1 505 MCW ADR5B,TIMES6 7 1505 M 891 875 13 200 1 512 S TIMES6,TOPC5 7 1512 S 875 870 13 201 1 519 BM *&5,TOPC5 8 1519 V V31 870 K 13 202 1 527 B *&8 4 1527 B V38 13 203 1 531 A K16K,TOPC5 7 1531 A W67 870 13 204 1 538 MCW TOPC5,ADR5 7 1538 M 870 896 14 205 1 545 B CONV53 4 1545 B 929 14 206 1 549 MCW ADR5,W3 7 1549 M 896 859 14 207 1 556 SBR X2,1&X2 7 1556 H 094 0!1 14 208 1 563 SBR NSTMTS 4 1563 H 183 14 209 1 567 BSS SNAPSH,C 5 1567 B 333 C 14 210 1 572 SBR CLEARL&3,GMWM 7 1572 H 710 W76 15 211 1 579 LCA RESORT,PHASID 7 1579 L W75 110 15 212 1 586 B LOADNX 4 1586 B 700 15 213 * 214 1 590 WHAT MCW X3,SX3 7 1590 M 099 844 15 215 1 597 MCW X1,X3 7 1597 M 089 099 15 216 1 604 B FINDGM GET UP TO NEXT STATEMENT 4 1604 B |52 15 217 1 608 MCW X3,X1 7 1608 M 099 089 16 218 1 615 MCW SX3,X3 7 1615 M 844 099 16 219 1 622 BCE ONEB,FLAG,0 8 1622 B W44 884 0 16 220 1 630 MCW K0,FLAG 7 1630 M W61 884 16 221 1 637 MZ X1ZONE,1&X1 7 1637 Y W60 0|1 16 222 1 644 ONEB SBR X1,4&X1 7 1644 H 089 0|4 17 223 1 651 B LOOP 4 1651 B /86 17 224 * 225 * DATA 226 * 227 1 655 X2ZONE DCW @R@ 1 1655 17 228 1 658 KB3 DCW #3 3 1658 17 229 1 659 K1 DCW 1 1 1659 17 230 1 660 X1ZONE DCW @Z@ 1 1660 17 231 1 661 K0 DCW 0 1 1661 17 232 1 662 COLON DCW @:@ 1 1662 18 233 1 667 K16K DCW 16000 5 1667 18 234 1 675 RESORT DCW @RESORT 3@ 8 1675 18 235 1 676 GMWM DCW @}@ 1 1676 GMARK 18 236 ORG 201 0201 237 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 /75 19 238 EX BEGINN B /75 20 239 END / 000 080 1 FORTRAN COMPILER -- RESORT 2 PHASE -- PHASE 48 PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ADR5 896 ADR5B 891 BEGINN 1175 CLEARL 707 COLON 1662 CONV35 969 CONV53 929 FINDGM 1052 FIRST 1225 FLAG 884 GMWM 1676 K0 1661 K1 1659 K16K 1667 KB3 1658 LINKED 1396 LOADDD 1175 LOADNX 700 LOOP 1186 NSTMTS 183 ONE 1448 ONEB 1644 PHASID 110 RESORT 1675 SEQNO 865 SEQTAB 148 SNAPSH 333 SORTAB 2499 SX2 853 SX3 844 TABBOT 847 TIMES6 875 TOPB 883 TOPC 862 TOPC5 870 W3 859 WHAT 1590 X1 89 X1ZONE 1660 X2 94 X2ZONE 1655 X3 99