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 -- STMT NUMBERS FOUR -- PHASE 30 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- STMT NUMBERS FOUR -- PHASE 30 102 CTL 6611 103 * 104 * THE THREE-CHARACTER EQUIVALENTS OF STATEMENT NUMBERS WHICH 105 * IDENTIFY STATEMENTS ARE MATCHED AGAINST THE STATEMENT NUMBER 106 * TABLE. WHEN THE EQUIVALENT IS FOUND, THE SEQUENCE NUMBER 107 * GENERATED BY THE COMPILER FOR THAT STATEMENT IS SUBSTITUTED 108 * IN THE TABLE. UNREFERENCED AND MULTI-DEFINED STATEMENT 109 * NUMBERS ARE NOTED. 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 GLOBER EQU 184 GLOBAL ERROR FLAG -- WM MEANS ERROR 0184 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 TPREAD EQU 780 TAPE READ INSTRUCTION IN OVERLAY LOADER 0780 124 LOADXX EQU 793 EXIT FROM OVERLAY LOADER 0793 125 CLRBOT EQU 833 BOTTOM OF CORE TO CLEAR IN OVERLAY LOADER 0833 126 * 127 BNDRY EQU 849 TOPCOD + 0.48 * (BOTTAB - 1 - TOPCOD) 0849 128 MOVE EQU 937 MOVE EITHER PREFIX OR STATEMENT UP 0937 129 HASH EQU 964 COMPUTE HASH PROBE 0964 130 SOUGHT EQU 1051 LABEL SOUGHT IN HASH PROBE ROUTINE 1051 131 SX1A EQU 1054 1054 132 SEQCOD EQU 1062 1062 133 SAVBOT EQU 1065 BOTTOM OF SEQUENCE NUMBER TABLE 1065 134 TOOBIG EQU 1066 1066 135 SX1 EQU 1143 1143 136 * 137 ORG 1187 1187 138 LOADDD EQU *&1 LOAD ADDRESS 1187 139 1 187 BEGINN LCA KB1,0&X2 7 1187 L W25 0!0 4 140 1 194 SW GM 4 1194 , X25 4 141 1 198 MCW X1,X2 7 1198 M 089 094 4 142 1 205 NXSTMT BCE DONE,0&X1, 8 1205 B U84 0|0 4 143 1 213 MCW 0&X1,SEQCOD 7 1213 M 0|0 |62 4 144 1 220 SAR X1 4 1220 Q 089 4 145 1 224 BCE NOLABL,0&X1,} 8 1224 B V69 0|0 } GMARK 5 146 1 232 B HASH COMPUTE HASH PROBE 4 1232 B 964 5 147 * LOOKUP IN HASH TABLE 1 FORTRAN COMPILER -- STMT NUMBERS FOUR -- PHASE 30 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 236 MCW NOP,SWITCH 7 1236 M W26 T90 5 149 1 243 LOOKL1 MCW 0&X1,X3 7 1243 M 0|0 099 5 150 1 250 SAR X1 4 1250 Q 089 5 151 1 254 BW LOOK2,1&X1 8 1254 V S94 0|1 1 5 152 1 262 BCE SWITCH,3&X1,< BOTTOM OF THE TABLE 8 1262 B T90 0|3 < 6 153 1 270 BCE UNREF,1&X1, PROBED HASH ENTRY IS EMPTY 8 1270 B U12 0|1 6 154 1 278 C 3&X1,SOUGHT 7 1278 C 0|3 |51 6 155 1 285 BU LOOKL1 5 1285 B S43 / 6 156 1 290 B DOUBLE 4 1290 B U46 6 157 1 294 LOOK2 C 0&X3,SOUGHT 7 1294 C 0?0 |51 6 158 1 301 BU LOOKL1 5 1301 B S43 / 7 159 1 306 MZ SEQCOD-1,SVZONE 7 1306 Y |61 W27 7 160 1 313 MZ *-4,SEQCOD-1 7 1313 Y T15 |61 7 161 1 320 MCW SEQCOD,0&X3 7 1320 M |62 0?0 7 162 1 327 SBR X3 4 1327 H 099 7 163 1 331 CW 1&X3 NO WM IN LABEL TABLE MEANS DEFINED 4 1331 ) 0?1 7 164 1 335 MCW 3&X1,SEQCOD 7 1335 M 0|3 |62 8 165 1 342 MZ SVZONE,SEQCOD-1 7 1342 Y W27 |61 8 166 1 349 MCW SOUGHT,3&X1 7 1349 M |51 0|3 8 167 1 356 CW 1&X1 NO WM IN HASH TABLE MEANS DEFINED 4 1356 ) 0|1 8 168 1 360 LOOK3 MCW SX1A,X1 7 1360 M |54 089 8 169 1 367 NOLABB SBR X1,4&X1 BACK HERE FROM NOLABL 7 1367 H 089 0|4 8 170 1 374 MCW SEQCOD 4 1374 M |62 9 171 1 378 B MOVE 4 1378 B 937 9 172 1 382 B MOVE 4 1382 B 937 9 173 1 386 B NXSTMT 4 1386 B S05 9 174 * 175 1 390 SWITCH NOP UNREF GOT HERE TWICE? 4 1390 N U12 9 176 1 394 MCW BRANCH,SWITCH 7 1394 M W28 T90 9 177 1 401 MCW BNDRY,X1 7 1401 M 849 089 9 178 1 408 B LOOKL1 4 1408 B S43 10 179 * 180 1 412 UNREF CS 332 4 1412 / 332 10 181 1 416 CS 1 1416 / 10 182 1 417 MN SEQCOD,250 7 1417 D |62 250 10 183 1 424 MN 1 1424 D 10 184 1 425 MN 1 1425 D 10 185 1 426 MCW ERR19 4 1426 M W75 10 186 1 430 W 1 1430 2 11 187 1 431 BCV *&5 5 1431 B U40 @ 11 188 1 436 B *&3 4 1436 B U42 11 189 1 440 CC 1 2 1440 F 1 11 190 1 442 B UNREF2 4 1442 B V62 11 191 * 192 1 446 DOUBLE CS 332 4 1446 / 332 11 193 1 450 CS 1 1450 / 11 194 1 451 SW GLOBER 4 1451 , 184 12 195 1 455 MN SEQCOD,245 7 1455 D |62 245 12 196 1 462 MN 1 1462 D 12 197 1 463 MN 1 1463 D 12 1 FORTRAN COMPILER -- STMT NUMBERS FOUR -- PHASE 30 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 464 MCW ERR20 4 1464 M X17 12 199 1 468 W 1 1468 2 12 200 1 469 BCV *&5 5 1469 B U78 @ 12 201 1 474 B *&3 4 1474 B U80 13 202 1 478 CC 1 2 1478 F 1 13 203 1 480 B LOOK3 4 1480 B T60 13 204 * 205 1 484 DONE MCW SAVBOT,X3 7 1484 M |65 099 13 206 1 491 LCA GM,0&X3 7 1491 L X25 0?0 13 207 1 498 SBR X3 4 1498 H 099 13 208 1 502 SBR SEQTAB 4 1502 H 148 13 209 1 506 CS 0&X2 4 1506 / 0!0 14 210 1 510 MCW SX1,X1 7 1510 M /43 089 14 211 1 517 SW 0&X2 4 1517 , 0!0 14 212 1 521 BSS SNAPSH,C 5 1521 B 333 C 14 213 1 526 SBR TPREAD&6,838 7 1526 H 786 838 14 214 1 533 SBR CLRBOT 4 1533 H 833 14 215 1 537 SBR LOADXX&3,838 7 1537 H 796 838 14 216 1 544 SBR CLEARL&3,GMWM 7 1544 H 710 X26 15 217 1 551 LCA STNUM5,PHASID 7 1551 L X24 110 15 218 1 558 B LOADNX 4 1558 B 700 15 219 * 220 1 562 UNREF2 MCW SX1A,X1 7 1562 M |54 089 15 221 1 569 NOLABL BCE *&5,SEQCOD-3,D DO STATEMENT? 8 1569 B V81 |59 D 15 222 1 577 B NOLABB 4 1577 B T67 15 223 1 581 MCW SAVBOT,X3 7 1581 M |65 099 16 224 1 588 MCW SEQCOD,0&X3 7 1588 M |62 0?0 16 225 1 595 SBR X3 4 1595 H 099 16 226 1 599 BCE TOOBIG,0&X3,< 8 1599 B |66 0?0 < 16 227 1 607 MCW SAVBOT,SEQCOD 7 1607 M |65 |62 16 228 1 614 SBR SAVBOT,1&X3 7 1614 H |65 0?1 17 229 1 621 B NOLABB 4 1621 B T67 17 230 1 625 KB1 DCW #1 1 1625 17 231 1 626 NOP NOP 1 1626 N 17 232 1 627 SVZONE DCW #1 1 1627 17 233 1 628 BRANCH B 1 1628 B 17 234 1 675 ERR19 DCW @ERROR 19 - UNREFERENCED STMT NUMBER, STATEMENT @ 47 1675 19 235 1 717 ERR20 DCW @ERROR 20 - DOUBLY DEFINED STMT, STATEMENT @ 42 1717 21 236 1 724 STNUM5 DCW @STNUM 5@ 7 1724 21 237 1 725 GM DC @}@ 1 1725 GMARK 21 238 1 726 GMWM DCW @}@ 1 1726 GMARK 21 239 ORG 201 0201 240 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 /87 22 241 END BEGINN / /87 080 1 FORTRAN COMPILER -- STMT NUMBERS FOUR -- PHASE 30 PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGINN 1187 BNDRY 849 BRANCH 1628 CLEARL 707 CLRBOT 833 DONE 1484 DOUBLE 1446 ERR19 1675 ERR20 1717 GLOBER 184 GM 1725 GMWM 1726 HASH 964 KB1 1625 LOADDD 1187 LOADNX 700 LOADXX 793 LOOK2 1294 LOOK3 1360 LOOKL1 1243 MOVE 937 NOLABB 1367 NOLABL 1569 NOP 1626 NXSTMT 1205 PHASID 110 SAVBOT 1065 SEQCOD 1062 SEQTAB 148 SNAPSH 333 SOUGHT 1051 STNUM5 1724 SVZONE 1627 SWITCH 1390 SX1 1143 SX1A 1054 TOOBIG 1066 TPREAD 780 UNREF 1412 UNREF2 1562 X1 89 X2 94 X3 99 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 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 END / 000 080 1 PAGE 2 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS