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 1 PHASE -- PHASE 47 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- RESORT 1 PHASE -- PHASE 47 102 CTL 6611 103 * 104 * AN AREA IS MADE AVAILABLE FOR A TABLE TO ASSIST IN RESORTING 105 * THE STATEMENTS INTO THEIR ORIGINAL ORDER. 106 * 107 X1 EQU 89 0089 108 X2 EQU 94 0094 109 X3 EQU 99 0099 110 * 111 * STUFF IN THE RESIDENT AREA 112 * 113 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 114 DOCNT EQU 151 COUNT OF DO STATEMENTS 0151 115 NSTMTS EQU 183 NUMBER OF STATEMENTS, INCLUDING GENERATED STOP 0183 116 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 117 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 118 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 119 CDOVLY EQU 769 1 IF RUNNING FROM CARDS, N IF FROM TAPE 0769 120 TPREAD EQU 780 TAPE READ INSTRUCTION IN OVERLAY LOADER 0780 121 LOADXX EQU 793 EXIT FROM OVERLAY LOADER 0793 122 CLRBOT EQU 833 BOTTOM OF CORE TO CLEAR IN OVERLAY LOADER 0833 123 * 124 SORTAB EQU 2499 SORT TABLE 2499 125 * 126 ORG 838 0838 127 LOADDD EQU *&1 LOAD ADDRESS 0838 128 838 W1 DCW 0 1 0838 4 129 841 TOPA DCW 000 TABBOT PLUS 3 X NUMBER OF STATEMENTS 3 0841 4 130 844 DCW 000 3 0844 4 131 847 TABBOT DCW 000 BOTTOM OF RESORT TABLE 3 0847 4 132 850 DCW 000 3 0850 4 133 853 DCW 000 3 0853 4 134 856 SX3 DCW 000 3 0856 4 135 859 DCW 000 3 0859 5 136 862 TOPC DCW 000 TABBOT PLUS 3 X NUMBER OF STATEMENTS PLUS 1 3 0862 5 137 865 DCW 000 3 0865 5 138 870 TOPC5 DCW 00000 TOPC AS FIVE DIGITS 5 0870 5 139 875 TIMES6 DCW 00000 DOCNT TIMES 6 5 0875 5 140 880 W5 DCW 00000 5 0880 5 141 883 TOPB DCW 000 TABBOT PLUS 3 X NUMBER OF STATEMENTS PLUS 1 3 0883 5 142 884 DCW 0 1 0884 6 143 886 ZONTST DCW 99 FOR TESTING ZONES 2 0886 6 144 891 ADR5B DCW #5 5 0891 6 145 896 ADR5 DCW #5 5 0896 6 146 898 ZONES DCW @99@ 2 0898 6 147 900 DCW @Z9@ 2 0900 6 1 FORTRAN COMPILER -- RESORT 1 PHASE -- PHASE 47 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 902 DCW @R9@ 2 0902 6 149 904 DCW @I9@ 2 0904 7 150 906 DCW @9Z@ 2 0906 7 151 908 DCW @ZZ@ 2 0908 7 152 910 DCW @RZ@ 2 0910 7 153 912 DCW @IZ@ 2 0912 7 154 914 DCW @9R@ 2 0914 7 155 916 DCW @ZR@ 2 0916 7 156 918 DCW @RR@ 2 0918 8 157 920 DCW @IR@ 2 0920 8 158 922 DCW @9I@ 2 0922 8 159 924 DCW @ZI@ 2 0924 8 160 926 DCW @RI@ 2 0926 8 161 928 DCW @II@ 2 0928 8 162 * 163 * CONVERT FIVE-DIGIT ADDRESS IN ADR5 TO MACHINE FORM 164 * 165 929 CONV53 SBR CONV5X&3 4 0929 H 968 8 166 933 ZA ADR5-3,X1 7 0933 ? 893 089 9 167 940 MZ NOZONE,X1 7 0940 Y /26 089 9 168 947 A X1 4 0947 A 089 9 169 951 MZ ZONES-1&X1,ADR5-2 7 0951 Y 8Z7 894 9 170 958 MZ ZONES&X1,ADR5 7 0958 Y 8Z8 896 9 171 965 CONV5X B 0-0 4 0965 B 000 9 172 * 173 * CONVERT THREE-CHARACTER ADDRESS IN ADR5 TO FIVE DIGITS IN ADR5B 174 * 175 969 CONV35 SBR CONV3X&3 4 0969 H |24 10 176 973 MCW K5B,ADR5B 7 0973 M /31 891 10 177 980 MN ADR5,ADR5B 7 0980 D 896 891 10 178 987 MN 1 0987 D 10 179 988 MN 1 0988 D 10 180 989 MZ ADR5,ZONTST 7 0989 Y 896 886 10 181 996 MZ ADR5-2,ZONTST-1 7 0996 Y 894 885 10 182 1 003 MCW AZONES,*&11 7 1003 M /34 |20 11 183 1 010 S ADR5 4 1010 S 896 11 184 1 014 TSTZON C ZONTST,0-0 7 1014 C 886 000 11 185 1 021 CONV3X BE 0-0 5 1021 B 000 S 11 186 1 026 A K1,ADR5B-3 7 1026 A /35 888 11 187 1 033 SW TSTZON&4 4 1033 , |18 11 188 1 037 A K002,TSTZON&6 7 1037 A /38 |20 12 189 1 044 CW TSTZON&4 4 1044 ) |18 12 190 1 048 B TSTZON 4 1048 B |14 12 191 * 192 * FIND NEXT HIGHER GMWM. LEAVE ITS ADDRESS & 1 IN X3. 193 * 194 1 052 FINDGM SBR FINDGX&3 4 1052 H |91 12 195 1 056 MN 0&X3 4 1056 D 0?0 12 196 1 060 SAR X3 4 1060 Q 099 12 197 1 064 MORE MCM 1&X3 4 1064 P 0?1 12 1 FORTRAN COMPILER -- RESORT 1 PHASE -- PHASE 47 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 068 MN 1 1068 D 13 199 1 069 SBR X3 4 1069 H 099 13 200 1 073 BCE MORE,0&X3,| 8 1073 B |64 0?0 | 13 201 1 081 SBR X3,1&X3 7 1081 H 099 0?1 13 202 1 088 FINDGX B 0-0 4 1088 B 000 13 203 * 204 * PROGRAM IS TOO BIG 205 * 206 1 092 TOOBIG CS 332 4 1092 / 332 13 207 1 096 CS 1 1096 / 13 208 1 097 CC 1 2 1097 F 1 14 209 1 099 MCW ERROR2,270 7 1099 M /74 270 14 210 1 106 W 1 1106 2 14 211 1 107 CC 1 2 1107 F 1 14 212 1 109 BCE HALT,CDOVLY,1 8 1109 B /22 769 1 14 213 1 117 RWD 1 5 1117 U %U1 R 14 214 1 122 HALT H HALT 4 1122 . /22 14 215 * 216 1 126 NOZONE DCW #1 1 1126 15 217 1 131 K5B DCW #5 5 1131 15 218 1 134 AZONES DSA ZONES 3 1134 898 15 219 1 135 K1 DCW 1 1 1135 15 220 1 138 K002 DCW 002 3 1138 15 221 1 174 ERROR2 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ 36 1174 16 222 * 223 1 175 BEGINN SBR SX3,0&X3 7 1175 H 856 0?0 17 224 1 182 SBR X1,SORTAB 7 1182 H 089 M99 17 225 1 189 SBR TABBOT BOTTOM OF CODE IN LOW CORE 4 1189 H 847 17 226 1 193 MCW NSTMTS,*&14 7 1193 M 183 S13 17 227 1 200 MZ X1ZONE,*&6 7 1200 Y V23 S12 17 228 1 207 NSX3 SBR X1,0 COMPUTE 7 1207 H 089 000 17 229 1 214 A K1A,W1 TABBOT PLUS 7 1214 A V24 838 18 230 1 221 C W1,K3 NUMBER OF STATEMENTS 7 1221 C 838 V25 18 231 1 228 BH NSX3 TIMES 3 5 1228 B S07 U 18 232 1 233 SBR TOPA,0&X1 7 1233 H 841 0|0 18 233 1 240 SBR TOPB,1&X1 7 1240 H 883 0|1 18 234 1 247 MCW KB,W1 7 1247 M V26 838 19 235 1 254 BCE *&5,DOCNT, 8 1254 B S66 151 19 236 1 262 B HAVE 4 1262 B S92 19 237 1 266 SBR TOPC,1&X1 7 1266 H 862 0|1 19 238 1 273 SBR ADR5 4 1273 H 896 19 239 1 277 B CONV35 4 1277 B 969 19 240 1 281 MCW ADR5B,TOPC5 7 1281 M 891 870 20 241 1 288 B NOT 4 1288 B T61 20 242 1 292 HAVE MCW DOCNT,TIMES6 7 1292 M 151 875 20 243 1 299 A TIMES6 4 1299 A 875 20 244 1 303 A TIMES6 4 1303 A 875 20 245 1 307 A DOCNT 4 1307 A 151 20 246 1 311 A DOCNT,TIMES6 7 1311 A 151 875 20 247 1 318 SBR ADR5,1&X1 7 1318 H 896 0|1 21 1 FORTRAN COMPILER -- RESORT 1 PHASE -- PHASE 47 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 1 325 B CONV35 4 1325 B 969 21 249 1 329 MCW ADR5B,TOPC5 7 1329 M 891 870 21 250 1 336 A TIMES6,TOPC5 7 1336 A 875 870 21 251 1 343 MCW TOPC5,ADR5 7 1343 M 870 896 21 252 1 350 B CONV53 4 1350 B 929 21 253 1 354 MCW ADR5,TOPC 7 1354 M 896 862 22 254 1 361 NOT MCW SX3,ADR5 7 1361 M 856 896 22 255 1 368 B CONV35 4 1368 B 969 22 256 1 372 MCW ADR5B,W5 7 1372 M 891 880 22 257 1 379 C TOPC5,W5 7 1379 C 870 880 22 258 1 386 BH *&5 5 1386 B T95 U 22 259 1 391 B TOOBIG 4 1391 B |92 23 260 1 395 CC 1 2 1395 F 1 23 261 1 397 CS 332 4 1397 / 332 23 262 1 401 CS 1 1401 / 23 263 1 402 MCW STRTNG,243 7 1402 M V56 243 23 264 1 409 W 1 1409 2 23 265 1 410 CC K 2 1410 F K 23 266 1 412 CS 332 4 1412 / 332 24 267 1 416 CS 1 1416 / 24 268 1 417 MCW SEQ,208 7 1417 M V59 208 24 269 1 424 MCW STRTA,242 7 1424 M V75 242 24 270 1 431 MCW DISPLA,256 7 1431 M V82 256 24 271 1 438 W 1 1438 2 24 272 1 439 CC J 2 1439 F J 24 273 1 441 CS 332 4 1441 / 332 25 274 1 445 CS 1 1445 / 25 275 1 446 LCA K000,208 7 1446 L V85 208 25 276 1 453 MCW SX3,X1 7 1453 M 856 089 25 277 1 460 SBR X1,2&X1 7 1460 H 089 0|2 25 278 1 467 SBR X3 4 1467 H 099 25 279 1 471 B FINDGM 4 1471 B |52 25 280 1 475 MCW X3,X2 7 1475 M 099 094 26 281 1 482 BSS SNAPSH,C 5 1482 B 333 C 26 282 1 487 SBR TPREAD&6,1175 7 1487 H 786 /75 26 283 1 494 SBR CLRBOT 4 1494 H 833 26 284 1 498 SBR LOADXX&3,1175 7 1498 H 796 /75 26 285 1 505 SBR CLEARL&3,GMWM 7 1505 H 710 V94 26 286 1 512 LCA RESORT,PHASID 7 1512 L V93 110 27 287 1 519 B LOADNX 4 1519 B 700 27 288 * 289 * DATA 290 * 291 1 523 X1ZONE DCW @Z@ 1 1523 27 292 1 524 K1A DCW 1 1 1524 27 293 1 525 K3 DCW 3 1 1525 27 294 1 526 KB DCW #1 1 1526 27 295 1 556 STRTNG DCW @STARTING ADDRESS OF STATEMENTS@ 30 1556 28 296 1 559 SEQ DCW @SEQ@ 3 1559 28 297 1 575 STRTA DCW @STARTING ADDRESS@ 16 1575 29 1 FORTRAN COMPILER -- RESORT 1 PHASE -- PHASE 47 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 1 582 DISPLA DCW @DISPLAY@ 7 1582 29 299 1 585 K000 DCW 000 3 1585 29 300 1 593 RESORT DCW @RESORT 2@ 8 1593 29 301 1 594 GMWM DCW @}@ 1 1594 GMARK 29 302 ORG 201 0201 303 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 838 30 304 EX BEGINN B /75 31 305 END / 000 080 1 FORTRAN COMPILER -- RESORT 1 PHASE -- PHASE 47 PAGE 6 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ADR5 896 ADR5B 891 AZONES 1134 BEGINN 1175 CDOVLY 769 CLEARL 707 CLRBOT 833 CONV35 969 CONV3X 1021 CONV53 929 CONV5X 965 DISPLA 1582 DOCNT 151 ERROR2 1174 FINDGM 1052 FINDGX 1088 GMWM 1594 HALT 1122 HAVE 1292 K000 1585 K002 1138 K1 1135 K1A 1524 K3 1525 K5B 1131 KB 1526 LOADDD 838 LOADNX 700 LOADXX 793 MORE 1064 NOT 1361 NOZONE 1126 NSTMTS 183 NSX3 1207 PHASID 110 RESORT 1593 SEQ 1559 SNAPSH 333 SORTAB 2499 STRTA 1575 STRTNG 1556 SX3 856 TABBOT 847 TIMES6 875 TOOBIG 1092 TOPA 841 TOPB 883 TOPC 862 TOPC5 870 TPREAD 780 TSTZON 1014 W1 838 W5 880 X1 89 X1ZONE 1523 X2 94 X3 99 ZONES 898 ZONTST 886