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 -- DIMENSION PHASE TWO -- 12 PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12 102 CTL 6611 103 * 104 * ARRAYS ARE ASSIGNED THEIR OBJECT-TIME ADDRESSES. 105 * 106 * ON ENTRY, X3 IS ONE BELOW THE GROUP MARK BELOW THE BOTTOM OF 107 * THE ARRAY TABLE, AND 86 IS THE ADDRESS OF THE LOW-ORDER DIGIT 108 * OF THE OFFSET FIELD OF THE TOPMOST (FIRST) ARRAY TABLE ENTRY 109 * IF THERE ARE ANY ARRAYS, OR BLANK IF THERE IS NO ARRAY TABLE. 110 * 111 * ON EXIT THE FIXED-WIDTH FIELDS OF THE ARRAY TABLE ELEMENTS ARE 112 * THE BASE ADDRESS AS FIVE DIGITS, THE TOP ADDRESS AS THREE 113 * CHARACTERS WITH A TYPE ZONE IN THE SECOND CHARACTER, THE 114 * ARRAY ELEMENT WIDTH (IMOD OR MANTIS&2) AND JUNK, AND THE 115 * ADDRESS OF THE LOW-ORDER DIGIT OF THE FIRST ARRAY ELEMENT 116 * AS THREE CHARACTERS WITH A TYPE ZONE IN THE SECOND CHARACTER. 117 * 118 X1 EQU 89 0089 119 X2 EQU 94 0094 120 X3 EQU 99 0099 121 * 122 * STUFF IN THE RESIDENT AREA 123 * 124 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 125 GLOBER EQU 184 GLOBAL ERROR FLAG -- WM MEANS ERROR 0184 126 ARYTOP EQU 194 TOP OF ARRAYS IN OBJECT CODE 0194 127 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 128 TOPCOR EQU 688 TOP CORE ADDRESS FROM PARAM CARD 0688 129 IMOD EQU 690 INTEGER MODULUS -- NUMBER OF DIGITS 0690 130 MANTIS EQU 692 FLOATING POINT MANTISSA DIGITS 0692 131 FMTSW EQU 696 X FOR NO FORMAT, L FOR LIMITED FORMAT 0696 132 * BLANK FOR ORDINARY, A FOR A CONVERSION 133 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 134 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 135 * 136 ORG 838 0838 137 LOADDD EQU *&1 LOAD ADDRESS 0838 138 838 BEGINN BCE ORD,FMTSW, ORDINARY FORMATTING? 8 0838 B 891 696 4 139 846 SBR X2,BASE5A 7 0846 H 094 !60 4 140 853 BCE OTH,FMTSW,A A-CONVERSION FORMATTING? 8 0853 B !33 696 A 4 141 861 SBR X2,BASE5L 7 0861 H 094 !68 4 142 868 BCE OTH,FMTSW,L LIMITED FORMATTING? 8 0868 B !33 696 L 4 143 876 SBR X2,BASE5X 7 0876 H 094 !76 5 144 883 BCE OTH,FMTSW,X NO FORMATTING? 8 0883 B !33 696 X 5 145 891 ORD MCW X3,83 7 0891 M 099 083 5 146 898 A KP2,MANTIS ADD EXPONENT WIDTH TO MANTISSA WIDTH 7 0898 A J30 692 5 147 905 SW GM 4 0905 , !85 5 FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12 PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 909 LCA GM,1&X3 PUT A GMWM BELOW BOTTOM OF ARRAY TABLE 7 0909 L !85 0?1 6 149 916 BCE NOARY,86, NO ARRAYS? 8 0916 B V98 086 6 150 924 MCW 86,X3 7 0924 M 086 099 6 151 931 AGAIN S W6 4 0931 S J36 6 152 935 MCW 6&X3,NEXT 7 0935 M 0?6 J39 6 153 942 BCE NOEQV,1&X3, NO EQUIVALENCE CLASS LINK? 8 0942 B T43 0?1 7 154 950 MCW 3&X3,X2 NEXT MEMBER OF EQUIVALENCE CLASS 7 0950 M 0?3 094 7 155 957 ZA 0&X3,W10-4 OFFSET 7 0957 ? 0?0 !91 7 156 964 M 5&X2,W10-1 7 0964 @ 0!5 !94 7 157 971 A 0&X2,W10-1 OFFSET OF NEXT IN EQUIVALENCE CLASS 7 0971 A 0!0 !94 7 158 978 MCW W10-1,0&X3 7 0978 M !94 0?0 8 159 985 NOEQVR MCW 0&X3,W6 7 0985 M 0?0 J36 8 160 992 SAR X3 4 0992 Q 099 8 161 996 S KP1,W6 7 0996 S J40 J36 8 162 1 003 MCW X3,X2 7 1003 M 099 094 8 163 1 010 MORE MCM 2&X2 GET X2 ABOVE THE GMWM 4 1010 P 0!2 8 164 1 014 MN AND THEN 1 1014 D 8 165 1 015 MN BACK DOWN 1 1015 D 9 166 1 016 SAR X2 BELOW IT 4 1016 Q 094 9 167 1 020 BCE MORE,1&X2,| 8 1020 B |10 0!1 | 9 168 1 028 MCW 0&X2,CH FIRST CHARACTER OF VARIABLE NAME 7 1028 M 0!0 J41 9 169 1 035 MCW CH,*&8 7 1035 M J41 |49 9 170 1 042 BCE INTVAR,IJKLMN,0 INTEGER VARIABLE? 8 1042 B T32 J47 0 9 171 1 050 B 1 1050 B 9 172 1 051 B 1 1051 B 10 173 1 052 B 1 1052 B 10 174 1 053 B 1 1053 B 10 175 1 054 B 1 1054 B 10 176 1 055 A MANTIS,W6 FLOATING POINT VARIABLE 7 1055 A 692 J36 10 177 1 062 VAR MCW W6,14&X3 LOW-ORDER TO WHAT WAS PREV 7 1062 M J36 0A4 10 178 1 069 MCW W6-3,X2 THOUSANDS TO X2 7 1069 M J33 094 10 179 1 076 A X2 DOUBLE IT 4 1076 A 094 11 180 1 080 MZ ZONES&X2,12&X3 THOUSANDS ZONES 7 1080 Y !R8 0A2 11 181 1 087 MZ ZONES&1&X2,14&X3 TO VARIABLE ADDRESS 7 1087 Y !R9 0A4 11 182 1 094 ZA KZ1,W10-4 CLEAR 7 1094 ? J48 !91 11 183 1 101 MCW 0&X3,W10-4 GET FIRST DIMENSION 7 1101 M 0?0 !91 11 184 1 108 MCW KB1 AND A BLANK 4 1108 M !96 11 185 1 112 SBR PREP&6 4 1112 H /39 12 186 1 116 NOP 0&X3 GET X2 4 1116 N 0?0 12 187 1 120 MCW DOWN TO 1 1120 M 12 188 1 121 SAR X2 SECOND DIMENSION 4 1121 Q 094 12 189 1 125 BCE NODIM2,0&X2,} NO SECOND DIMENSION IF GM? 8 1125 B /47 0!0 } GMARK 12 190 1 133 PREP MCW 0&X2,0-0 7 1133 M 0!0 000 12 191 1 140 M 0&X3,W10-4 7 1140 @ 0?0 !91 12 192 1 147 NODIM2 LCA KB3,8&X3 CLOBBER EQUIVALENCE LINK 7 1147 L J51 0?8 13 193 1 154 MCW X1,SX1 SAVE X1 7 1154 M 089 J54 13 194 1 161 MCW 14&X3,X1 ADDRESS TO X1 7 1161 M 0A4 089 13 195 1 168 MCW CH,*&8 7 1168 M J41 /82 13 196 1 175 BCE INTVR2,IJKLM2,0 INTEGER VARIABLE? 8 1175 B T65 J60 0 13 197 1 183 B 1 1183 B 13 FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12 PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 184 B 1 1184 B 13 199 1 185 B 1 1185 B 14 200 1 186 B 1 1186 B 14 201 1 187 B 1 1187 B 14 202 1 188 M MANTIS,W10-1 FIRST DIMENSION * WIDTH 7 1188 @ 692 !94 14 203 1 195 MZ KZAB,7&X3 MARK FLOATING-POINT ZONE 7 1195 Y J61 0?7 14 204 1 202 MCW MANTIS,10&X3 7 1202 M 692 0A0 14 205 1 209 VAR2 MZ 7&X3,13&X3 COPY TYPE ZONE 7 1209 Y 0?7 0A3 14 206 1 216 MCW SX1,X1 7 1216 M J54 089 15 207 1 223 S 10&X3,W6 SUBTRACT VARIABLE WIDTH 7 1223 S 0A0 J36 15 208 1 230 A W10-1,W6 7 1230 A !94 J36 15 209 1 237 MN W6,8&X3 LOW-ORDER DIGITS 7 1237 D J36 0?8 15 210 1 244 MN TO WHAT WAS THE 1 1244 D 15 211 1 245 MN EQUIVALENCE CLASS LINK 1 1245 D 15 212 1 246 SAR *&4 4 1246 Q S53 15 213 1 250 MCW 0-0,X2 7 1250 M 000 094 16 214 1 257 MCW KZ1 4 1257 M J48 16 215 1 261 A X2 4 1261 A 094 16 216 1 265 MZ ZONES&1&X2,8&X3 7 1265 Y !R9 0?8 16 217 1 272 CW WHY NOT 1 1272 ) 16 218 1 273 SBR *&7 JUST 4 1273 H S83 16 219 1 277 MZ ZONES&X2,0 MZ ZONES&X2,6&X3 ? 7 1277 Y !R8 000 16 220 1 284 A KP1,W6 7 1284 A J40 J36 17 221 1 291 S W6,BASE5 COMPUTE BASE5 = MAX(BASE5,W6) 7 1291 S J36 !49 17 222 1 298 BM NEGDIF,BASE5 8 1298 V T54 !49 K 17 223 1 306 A W6,BASE5 7 1306 A J36 !49 17 224 1 313 TSTMOR BCE NOMORE,NEXT, NO MORE ARRAYS IF NEXT IS BLANK 8 1313 B T90 J39 17 225 1 321 MCW NEXT,X3 7 1321 M J39 099 18 226 1 328 B AGAIN 4 1328 B 931 18 227 * 228 1 332 INTVAR A IMOD,W6 7 1332 A 690 J36 18 229 1 339 B VAR 4 1339 B |62 18 230 * 231 * AT THE END OF AN EQUIVALENCE CLASS (MAYBE THE ONLY ONE 232 * IN IT). 233 * 234 1 343 NOEQV MCW BASE5,0&X3 7 1343 M !49 0?0 18 235 1 350 B NOEQVR 4 1350 B 985 18 236 * 237 1 354 NEGDIF MCW W6,BASE5 7 1354 M J36 !49 19 238 1 361 B TSTMOR 4 1361 B T13 19 239 * 240 1 365 INTVR2 M IMOD,W10-1 FIRST DIMENSION * WIDTH 7 1365 @ 690 !94 19 241 1 372 MZ KZB,7&X3 MARK INTEGER ZONE 7 1372 Y J62 0?7 19 242 1 379 MCW IMOD,10&X3 7 1379 M 690 0A0 19 243 1 386 B VAR2 4 1386 B S09 19 244 * 245 * NO MORE ARRAY TABLE ELEMENTS 246 * 247 * CONVERT TOPCOR TO FIVE DIGITS FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12 PAGE 4 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 * 249 1 390 NOMORE S W2A 4 1390 S J64 20 250 1 394 S W2B 4 1394 S J66 20 251 1 398 MZ TOPCOR,W2A-1 7 1398 Y 688 J63 20 252 1 405 MZ TOPCOR-2,W2B-1 7 1405 Y 686 J65 20 253 1 412 LOOP1K BWZ MOD4,W2B-1,2 MULTIPLE OF 4K? 8 1412 V U31 J65 2 20 254 1 420 A KA0,W2B 7 1420 A J68 J66 20 255 1 427 B LOOP1K 4 1427 B U12 21 256 1 431 MOD4 BWZ BELOW4,W2A-1,2 8 1431 V U50 J63 2 21 257 1 439 A KQ4,W2A 7 1439 A J70 J64 21 258 1 446 B MOD4 4 1446 B U31 21 259 1 450 BELOW4 A W2B-1,W2A 7 1450 A J65 J64 21 260 1 457 MCW TOPCOR,TOP5 7 1457 M 688 !81 21 261 1 464 MCW W2A 4 1464 M J64 22 262 1 468 ZA TOP5 4 1468 ? !81 22 263 1 472 MZ *-4,TOP5 7 1472 Y U74 !81 22 264 * 265 * TEST FOR TOO BIG PROGRAM 266 * 267 1 479 S BASE5,TOP5 TOPCOR - TOP OF ARRAYS 7 1479 S !49 !81 22 268 1 486 S KP1,TOP5 7 1486 S J40 !81 22 269 1 493 BM TOOBIG,TOP5 8 1493 V V66 !81 K 22 270 1 501 MN TOP5,TOP3 LOW-ORDER 7 1501 D !81 !84 23 271 1 508 MN DIGITS OF 1 1508 D 23 272 1 509 MN FREE SPACE 1 1509 D 23 273 1 510 SAR *&4 4 1510 Q V17 23 274 1 514 MCW 0-0,X2 THOUSANDS TO X2 7 1514 M 000 094 23 275 1 521 MCW KZ1 AND A ZERO 4 1521 M J48 23 276 1 525 A X2 DOUBLE IT 4 1525 A 094 23 277 1 529 MZ ZONES&1&X2,TOP3 7 1529 Y !R9 !84 24 278 1 536 CW WHY NOT 1 1536 ) 24 279 1 537 SBR *&7 JUST 4 1537 H V47 24 280 1 541 MZ ZONES&X2,0 MCW ZONES&X2,TOP3-2? 7 1541 Y !R8 000 24 281 1 548 MCW BASE3,ARYTOP 7 1548 M !52 194 24 282 1 555 MA TOP3,ARYTOP 7 1555 # !84 194 24 283 1 562 B NOTBIG 4 1562 B W05 24 284 1 566 TOOBIG BW NOTBIG,W10 DON'T REPEAT ERROR MESSAGE 8 1566 V W05 !95 1 25 285 1 574 CS 332 4 1574 / 332 25 286 1 578 CS 1 1578 / 25 287 1 579 MCW ERROR2,270 7 1579 M K06 270 25 288 1 586 W 1 1586 2 25 289 1 587 SW GLOBER,W10 SET GLOBAL AND DON'T REPEAT FLAGS 7 1587 , 184 !95 25 290 1 594 S TOP5 4 1594 S !81 25 291 1 598 NOARY MCW TOPCOR,ARYTOP 7 1598 M 688 194 26 292 1 605 NOTBIG MCW BASE3,86 7 1605 M !52 086 26 293 1 612 CC L 2 1612 F L 26 294 1 614 BCV *&5 5 1614 B W23 @ 26 295 1 619 B *&3 4 1619 B W25 26 296 1 623 CC 1 2 1623 F 1 26 297 1 625 CS 332 4 1625 / 332 26 FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12 PAGE 5 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 1 629 CS 1 1629 / 27 299 1 630 MCW STORGE,247 7 1630 M K51 247 27 300 1 637 W 1 1637 2 27 301 1 638 CC J 2 1638 F J 27 302 1 640 MCW 83,X3 7 1640 M 083 099 27 303 * 304 * PRINT THE ARRAYS AND THEIR ADDRESSES 305 * 306 1 647 NOTHER NOP 10&X3 4 1647 N 0A0 27 307 1 651 MCM 1 1651 P 27 308 1 652 SAR X3 4 1652 Q 099 28 309 1 656 CS 299 4 1656 / 299 28 310 1 660 MORE3 BCE MORE2,0&X3,| 8 1660 B Z72 0?0 | 28 311 1 668 B 1 1668 B 28 312 1 669 MN 0&X3 4 1669 D 0?0 28 313 1 673 MN 1 1673 D 28 314 1 674 SAR X3 4 1674 Q 099 28 315 1 678 BCE NOARYS,0&X3,: NO ARRAYS IF COLON 8 1678 B Z84 0?0 : 29 316 1 686 MN 201 4 1686 D 201 29 317 1 690 MN 1 1690 D 29 318 1 691 SAR X2 4 1691 Q 094 29 319 1 695 SBR X3,0&X3 7 1695 H 099 0?0 29 320 * 321 * MOVE VARIABLE TO PRINT AREA -- NEED TO REVERSE IT 322 * 323 1 702 MOVE MCW 0&X3,CH2 7 1702 M 0?0 K52 29 324 1 709 SAR X3 4 1709 Q 099 29 325 1 713 MCW CH2,2&X2 7 1713 M K52 0!2 30 326 1 720 SBR X2 4 1720 H 094 30 327 1 724 BW MOVFIN,1&X3 8 1724 V X36 0?1 1 30 328 1 732 B MOVE 4 1732 B X02 30 329 1 736 MOVFIN C 0&X3 SKIP 4 1736 C 0?0 30 330 1 740 C THE 1 1740 C 30 331 1 741 C FIXED 1 1741 C 30 332 1 742 C WIDTH 1 1742 C 31 333 1 743 SAR X2 FIELDS 4 1743 Q 094 31 334 1 747 A TOP5,5&X2 7 1747 A !81 0!5 31 335 1 754 MA TOP3,8&X2 7 1754 # !84 0!8 31 336 1 761 MA TOP3,14&X2 7 1761 # !84 0J4 31 337 1 768 MCS 5&X2,218 7 1768 Z 0!5 218 31 338 1 775 MCW 8&X2,234 7 1775 M 0!8 234 32 339 1 782 MZ KB1,233 7 1782 Y !96 233 32 340 1 789 SW 220 4 1789 , 220 32 341 * 342 * CONVERT TOP ADDRESS OF ARRAY TO FIVE DIGITS 343 * 344 1 793 S W2C 4 1793 S K54 32 345 1 797 S W2D 4 1797 S K56 32 346 1 801 MZ 8&X2,W2C-1 7 1801 Y 0!8 K53 32 347 1 808 MZ 6&X2,W2D-1 7 1808 Y 0!6 K55 33 FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12 PAGE 6 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 1 815 LP1KA BWZ MOD4A,W2D-1,2 MULTIPLE OF 4K? 8 1815 V Y34 K55 2 33 349 1 823 A KA0,W2D 7 1823 A J68 K56 33 350 1 830 B LP1KA 4 1830 B Y15 33 351 1 834 MOD4A BWZ LOW4,W2C-1,2 8 1834 V Y53 K53 2 33 352 1 842 A KQ4,W2C 7 1842 A J70 K54 34 353 1 849 B MOD4A 4 1849 B Y34 34 354 1 853 LOW4 A W2D-1,W2C 7 1853 A K55 K54 34 355 1 860 MCW 8&X2,224 7 1860 M 0!8 224 34 356 1 867 MCW W2C 4 1867 M K54 34 357 1 871 ZA 224 4 1871 ? 224 34 358 1 875 MZ *-4,224 7 1875 Y Y77 224 35 359 1 882 MCW HYPHEN,219 7 1882 M K57 219 35 360 1 889 MN 5&X2,230 7 1889 D 0!5 230 35 361 1 896 MN 1 1896 D 35 362 1 897 MN 1 1897 D 35 363 1 898 SAR *&4 4 1898 Q Z05 35 364 1 902 MCW 0,X2 7 1902 M 000 094 35 365 1 909 MCW KZ1 4 1909 M J48 36 366 1 913 A X2 4 1913 A 094 36 367 1 917 MZ ZONES&1&X2,230 7 1917 Y !R9 230 36 368 1 924 CW 1 1924 ) 36 369 1 925 SBR *&7 4 1925 H Z35 36 370 1 929 MZ ZONES&X2,0 7 1929 Y !R8 000 36 371 1 936 BCV *&5 5 1936 B Z45 @ 36 372 1 941 B *&3 4 1941 B Z47 37 373 1 945 CC 1 2 1945 F 1 37 374 1 947 W 1 1947 2 37 375 1 948 CS 299 4 1948 / 299 37 376 1 952 MCM 1&X3 4 1952 P 0?1 37 377 1 956 SAR X3 4 1956 Q 099 37 378 1 960 BCE DONE,0&X3, 8 1960 B !08 0?0 37 379 1 968 B NOTHER DO ANOTHER ONE 4 1968 B W47 38 380 * 381 1 972 MORE2 MCM 0&X3 4 1972 P 0?0 38 382 1 976 SBR X3 4 1976 H 099 38 383 1 980 B MORE3 4 1980 B W60 38 384 * 385 * PRINT NO ARRAYS MESSAGE 386 * 387 1 984 NOARYS CS 332 4 1984 / 332 38 388 1 988 CS 1 1988 / 38 389 1 989 MCW NOARYM,209 7 1989 M K66 209 38 390 1 996 W 1 1996 2 39 391 1 997 BCV *&5 5 1997 B !06 @ 39 392 2 002 B DONE 4 2002 B !08 39 393 2 006 CC 1 2 2006 F 1 39 394 * 395 * DONE 396 * 397 2 008 DONE CC L 2 2008 F L 39 FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12 PAGE 7 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 2 010 BSS SNAPSH,E 5 2010 B 333 E 39 399 2 015 SBR CLEARL&3,GMWM 7 2015 H 710 K73 39 400 2 022 LCA VARBL1,PHASID 7 2022 L K72 110 40 401 2 029 B LOADNX 4 2029 B 700 40 402 * 403 * FORMATTING OTHER THAN ORDINARY FORMATTING 404 * 405 2 033 OTH MCW 0&X2,BASE3 BASE ADDRESS 7 2033 M 0!0 !52 40 406 2 040 MCW AND DECIMAL EQUIVALENT & 1 1 2040 M 40 407 2 041 B ORD 4 2041 B 891 40 408 * 409 * DATA 410 * 411 2 049 BASE5 DCW 04280 DECIMAL FORMAT BASE ADDRESS FOR ARRAYS 5 2049 40 412 * EVENTUALLY, 1 ABOVE TOP OF ARRAYS 413 2 052 BASE3 DSA 4279 BASE5 - 1 IN MACHINE ADDRESS FORMAT 3 2052 27Z 40 414 2 057 DCW 04617 5 2057 41 415 2 060 BASE5A DSA 4616 A FORMAT BASE ADDRESS FOR ARRAYS 3 2060 61W 41 416 2 065 DCW 02016 5 2065 41 417 2 068 BASE5L DSA 2015 L FORMAT BASE ADDRESS FOR ARRAYS 3 2068 !15 41 418 2 073 DCW 01697 5 2073 41 419 2 076 BASE5X DSA 1696 X (NO) FORMAT BASE ADDRESS FOR ARRAYS 3 2076 W96 41 420 2 081 TOP5 DCW 00000 TOPCOR AS FIVE DIGITS 5 2081 41 421 2 084 TOP3 DCW 000 TOPCOR LESS ARRAYS AS 3 CHARACTERS 3 2084 42 422 2 085 GM DC @}@ 1 2085 GMARK 42 423 2 095 W10 DCW #10 10 2095 42 424 2 096 KB1 DCW #1 1 2096 42 425 2 098 ZONES DCW @ 9@ 2 2098 42 426 2 129 DCW @9Z9R9I99ZZZRZIZ9RZRRRIR9IZIRIII@ 31 2129 43 427 2 130 KP2 DCW &2 1 2130 43 428 2 136 W6 DCW #6 6 2136 43 429 2 139 NEXT DCW #3 3 2139 44 430 2 140 KP1 DCW &1 1 2140 44 431 2 141 CH DCW #1 1 2141 44 432 2 147 IJKLMN DCW @IJKLMN@ 6 2147 44 433 2 148 KZ1 DCW 0 1 2148 44 434 2 151 KB3 DCW #3 3 2151 44 435 2 154 SX1 DCW #3 SAVE AREA FOR X1 3 2154 44 436 2 160 IJKLM2 DCW @IJKLMN@ 6 2160 45 437 2 161 KZAB DCW &1 A AND B ZONES 1 2161 45 438 2 162 KZB DCW -1 B ZONE 1 2162 45 439 2 164 W2A DCW #2 2 2164 45 440 2 166 W2B DCW #2 2 2166 45 441 2 168 KA0 DCW @A0@ 2 2168 45 442 2 170 KQ4 DCW @?4@ 2 2170 45 443 2 206 ERROR2 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ 36 2206 46 444 2 251 STORGE DCW @STORAGE ASSIGNMENT-ARRAYS & EQUATED VARIABLES@ 45 2251 48 445 2 252 CH2 DCW #1 1 2252 48 446 2 254 W2C DCW #2 2 2254 48 447 2 256 W2D DCW #2 2 2256 48 FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12 PAGE 8 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 448 2 257 HYPHEN DCW @-@ 1 2257 48 449 2 266 NOARYM DCW @NO ARRAYS@ 9 2266 49 450 2 272 VARBL1 DCW @VARBL1@ 6 2272 49 451 2 273 GMWM DCW @}@ 1 2273 GMARK 49 452 ORG 201 0201 453 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 838 50 454 EX BEGINN B 838 51 455 END / 000 080 FORTRAN COMPILER -- DIMENSION PHASE TWO -- 12 PAGE 9 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS AGAIN 931 ARYTOP 194 BASE3 2052 BASE5 2049 BASE5A 2060 BASE5L 2068 BASE5X 2076 BEGINN 838 BELOW4 1450 CH 2141 CH2 2252 CLEARL 707 DONE 2008 ERROR2 2206 FMTSW 696 GLOBER 184 GM 2085 GMWM 2273 HYPHEN 2257 IJKLM2 2160 IJKLMN 2147 IMOD 690 INTVAR 1332 INTVR2 1365 KA0 2168 KB1 2096 KB3 2151 KP1 2140 KP2 2130 KQ4 2170 KZ1 2148 KZAB 2161 KZB 2162 LOADDD 838 LOADNX 700 LOOP1K 1412 LOW4 1853 LP1KA 1815 MANTIS 692 MOD4 1431 MOD4A 1834 MORE 1010 MORE2 1972 MORE3 1660 MOVE 1702 MOVFIN 1736 NEGDIF 1354 NEXT 2139 NOARY 1598 NOARYM 2266 NOARYS 1984 NODIM2 1147 NOEQV 1343 NOEQVR 985 NOMORE 1390 NOTBIG 1605 NOTHER 1647 ORD 891 OTH 2033 PHASID 110 PREP 1133 SNAPSH 333 STORGE 2251 SX1 2154 TOOBIG 1566 TOP3 2084 TOP5 2081 TOPCOR 688 TSTMOR 1313 VAR 1062 VAR2 1209 VARBL1 2272 W10 2095 W2A 2164 W2B 2166 W2C 2254 W2D 2256 W6 2136 X1 89 X2 94 X3 99 ZONES 2098