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 -- CONSTANTS PHASE THREE -- 20 PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20 102 CTL 6611 103 * 104 * CONSTANTS ARE PLACED IN THEIR OBJECT-TIME LOCATIONS AT THE 105 * LOWER END OF STORAGE. THE OBJECT-TIME ADDRESSES REPLACE 106 * THE CONSTANTS WHEREVER THEY APPEAR. 107 * 108 * ON ENTRY, X1 AND TOPCOD ARE THE TOP OF THE PREFIX OF THE TOP 109 * STATEMENT, AND 81-83 IS THE NEXT AVAILABLE PLACE IN THE 110 * NUMBER TABLE. 111 * 112 * ON EXIT, X1 IS THE TOP OF THE PREFIX OF THE TOP STATEMENT 113 * AND 81-83 IS THE BOTTOM OF THE NUMBER TABLE. 114 * 115 X1 EQU 89 0089 116 X2 EQU 94 0094 117 X3 EQU 99 0099 118 * 119 * STUFF IN THE RESIDENT AREA 120 * 121 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 122 NEGAR2 EQU 142 LOOKS LIKE NEGARY -- SEE PHASE 20 0142 123 NEGAR3 EQU 157 LOOKS LIKE NEGARY -- SEE PHASE 20 0157 124 ARYSIZ EQU 160 TOTAL ARRAY SIZE & 2 0160 125 NEGARY EQU 163 16000 - ARYSIZ 0163 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 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 130 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 131 CDOVLY EQU 769 READ (1) INSTRUCTION IF RUNNING FROM CARDS 0769 132 TPREAD EQU 780 TAPE READ INSTRUCTION IN OVERLAY LOADER 0780 133 LOADXX EQU 793 EXIT FROM OVERLAY LOADER 0793 134 CLRBOT EQU 833 BOTTOM OF CORE TO CLEAR IN OVERLAY LOADER 0833 135 TOPCOD EQU 840 TOP OF CODE & X00 - 1 0840 136 DIFF EQU 845 TOP OF CORE - TOPCOD AS FIVE DIGITS 0845 137 BNDRY EQU 848 0848 138 * 139 ORG 849 0849 140 LOADDD EQU *&1 LOAD ADDRESS 0849 141 * 142 * CONVERT TOPCOR TO DECIMAL 143 * 144 849 BEGINN S W2H 4 0849 S !48 4 145 853 S W2L 4 0853 S !50 4 146 857 MZ TOPCOR,W2H-1 7 0857 Y 688 !47 4 147 864 MZ TOPCOR-2,W2L-1 7 0864 Y 686 !49 4 FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20 PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 871 BWZ *&12,W2L-1,2 8 0871 V 890 !49 2 4 149 879 A KA0,W2L 7 0879 A !52 !50 4 150 886 B *-18 4 0886 B 871 5 151 890 BWZ *&12,W2H-1,2 8 0890 V 909 !47 2 5 152 898 A KQ4,W2H 7 0898 A !54 !48 5 153 905 B *-18 4 0905 B 890 5 154 909 A W2L-1,W2H 7 0909 A !49 !48 5 155 916 MCW TOPCOR,ARYSZW 7 0916 M 688 !71 5 156 923 MCW W2H 4 0923 M !48 6 157 927 ZA ARYSZW 4 0927 ? !71 6 158 931 MZ *-4,ARYSZW 7 0931 Y 933 !71 6 159 938 MCW X2,SX2 7 0938 M 094 !57 6 160 945 S W2H2 4 0945 S !59 6 161 949 S W2L2 4 0949 S !61 6 162 * 163 * CONVERT ARYTOP TO DECIMAL 164 * 165 953 MZ ARYTOP,W2H2-1 7 0953 Y 194 !58 6 166 960 MZ ARYTOP-2,W2L2-1 7 0960 Y 192 !60 7 167 967 BWZ *&12,W2L2-1,2 8 0967 V 986 !60 2 7 168 975 A KA0,W2L2 7 0975 A !52 !61 7 169 982 B *-18 4 0982 B 967 7 170 986 BWZ *&12,W2H2-1,2 8 0986 V |05 !58 2 7 171 994 A KQ4,W2H2 7 0994 A !54 !59 8 172 1 001 B *-18 4 1001 B 986 8 173 1 005 A W2L2-1,W2H2 7 1005 A !60 !59 8 174 1 012 MCW ARYTOP,W5 7 1012 M 194 !66 8 175 1 019 MCW W2H2 4 1019 M !59 8 176 1 023 ZA W5 4 1023 ? !66 8 177 1 027 MZ *-4,W5 7 1027 Y |29 !66 9 178 * 179 * CONVERT W5-ARYSZW, WHIICH IS ARRAY SIZES & 2, TO MACHINE 180 * ADDRESS 181 * 182 1 034 S W5,ARYSZW 7 1034 S !66 !71 9 183 1 041 C KP0,ARYSZW 7 1041 C !76 !71 9 184 1 048 BE NOARYS 5 1048 B /61 S 9 185 1 053 MN ARYSZW,ARYSIZ 7 1053 D !71 160 9 186 1 060 MN 1 1060 D 9 187 1 061 MN 1 1061 D 9 188 1 062 SAR *&4 4 1062 Q |69 10 189 1 066 MCW 0,X2 WHY NOT JUST MCW ARYSZW-3,X2 ? 7 1066 M 000 094 10 190 1 073 MCW K0 4 1073 M !77 10 191 1 077 A X2 4 1077 A 094 10 192 1 081 MZ ZONES&X2,ARYSIZ 7 1081 Y !J6 160 10 193 1 088 CW 1 1088 ) 10 194 1 089 SBR *&7 4 1089 H |99 10 195 1 093 MZ ZONES-1&X2,0 WHY NOT MZ ZONES-1&X2,ARYSIZ-2 ? 7 1093 Y !J5 000 11 196 1 100 MCW K16K,W5B 7 1100 M !82 !87 11 197 1 107 S ARYSZW,W5B 7 1107 S !71 !87 11 FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20 PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 114 MN W5B,NEGARY 7 1114 D !87 163 11 199 1 121 MN 1 1121 D 11 200 1 122 MN 1 1122 D 11 201 1 123 SAR *&4 4 1123 Q /30 11 202 1 127 MCW 0,X2 WHY NOT MCW W5B-3,X2 ? 7 1127 M 000 094 12 203 1 134 MCW K0 4 1134 M !77 12 204 1 138 A X2 4 1138 A 094 12 205 1 142 MZ ZONES&X2,NEGARY 7 1142 Y !J6 163 12 206 1 149 CW 1 1149 ) 12 207 1 150 SBR *&7 4 1150 H /60 12 208 1 154 MZ ZONES-1&X2,0 WHY NOT MZ ZONES-1&X2,NEGARY-2 ? 7 1154 Y !J5 000 12 209 1 161 NOARYS MCW SX2,X2 7 1161 M !57 094 13 210 1 168 MA NEGARY,NEGAR2 7 1168 # 163 142 13 211 1 175 MA NEGARY,NEGAR3 7 1175 # 163 157 13 212 1 182 MCW TOPCOD,SAVTOP&3 7 1182 M 840 U82 13 213 1 189 MZ S,SAVTOP&2 X2 ZONE 7 1189 Y !88 U81 13 214 1 196 MCW X2,SX2B 7 1196 M 094 !91 14 215 1 203 MCW KB1,2599 7 1203 M !92 N99 14 216 1 210 LOOP BCE BOTTOM,0&X1, 8 1210 B X76 0|0 14 217 1 218 MCW 0&X1,SEQCOD 7 1218 M 0|0 !96 14 218 1 225 LCA 0&X1,PREFIX 7 1225 L 0|0 J06 14 219 1 232 SAR X1 4 1232 Q 089 15 220 1 236 SBR X3 4 1236 H 099 15 221 1 240 LCA PREFIX,0&X2 7 1240 L J06 0!0 15 222 1 247 SBR X2 4 1247 H 094 15 223 1 251 BCE ENDSTM,SEQCOD-3,/ END STATEMENT? 8 1251 B X46 !93 / 15 224 1 259 SCHUND BCE GOTUN6,0&X1,_ 8 1259 B S93 0|0 _ 15 225 1 267 CHAIN 5 MACRO 226 BCE 1 1267 B GEN 15 227 BCE 1 1268 B GEN 16 228 BCE 1 1269 B GEN 16 229 BCE 1 1270 B GEN 16 230 BCE 1 1271 B GEN 16 231 1 272 BCE ENDSTM,0&X1,} 8 1272 B X46 0|0 } GMARK 16 232 1 280 CHAIN 5 MACRO 233 BCE 1 1280 B GEN 16 234 BCE 1 1281 B GEN 16 235 BCE 1 1282 B GEN 17 236 BCE 1 1283 B GEN 17 237 BCE 1 1284 B GEN 17 238 1 285 SBR X1 4 1285 H 089 17 239 1 289 B SCHUND 4 1289 B S59 17 240 * 241 * GOT X1 TO WITHIN SIX OF UNDERSCORE. GET TO IT EXACTLY. 242 * 243 1 293 GOTUN6 BCE GOTUND,0&X1,_ 8 1293 B T09 0|0 _ 17 244 1 301 SBR X1 4 1301 H 089 17 245 1 305 B GOTUN6 4 1305 B S93 18 246 * 247 * GOT X1 TO THE UNDERSCORE ABOVE A NUMBER FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20 PAGE 4 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 * 249 1 309 GOTUND SW 1&X1 4 1309 , 0|1 18 250 1 313 CW 1 1313 ) 18 251 1 314 CW 1 1314 ) 18 252 1 315 CW 1 1315 ) 18 253 1 316 SAR X1 4 1316 Q 089 18 254 1 320 BCE GOTGM,4&X1,} CAN THIS HAPPEN? 8 1320 B T43 0|4 } GMARK 18 255 1 328 LCA 0&X3,0&X2 MOVE UP EVERYTHING ABOVE NUMBER. 7 1328 L 0?0 0!0 19 256 1 335 SBR X2 4 1335 H 094 19 257 1 339 CW 1&X2 4 1339 ) 0!1 19 258 1 343 GOTGM SBR X3,2&X1 7 1343 H 099 0|2 19 259 * 260 * GET X1 DOWN TO A PUNCTUATION MARK BELOW THE NUMBER 261 * 262 1 350 SCHPUN MCW 0&X1,W1 7 1350 M 0|0 J07 19 263 1 357 SAR X1 4 1357 Q 089 19 264 1 361 MCW W1,*&8 7 1361 M J07 T75 20 265 1 368 BCE GOTPUN,PUNCT,0 8 1368 B T88 J16 0 20 266 1 376 CHAIN 8 MACRO 267 BCE 1 1376 B GEN 20 268 BCE 1 1377 B GEN 20 269 BCE 1 1378 B GEN 20 270 BCE 1 1379 B GEN 20 271 BCE 1 1380 B GEN 20 272 BCE 1 1381 B GEN 21 273 BCE 1 1382 B GEN 21 274 BCE 1 1383 B GEN 21 275 1 384 B SCHPUN 4 1384 B T50 21 276 1 388 GOTPUN SW 2&X1 AT THE BOTTOM OF THE NUMBER 4 1388 , 0|2 21 277 1 392 ZA 0&X3,HASH 7 1392 ? 0?0 J20 21 278 1 399 A 4&X1,HASH 7 1399 A 0|4 J20 21 279 1 406 BCE BLANK,2&X1, 8 1406 B X04 0|2 22 280 1 414 BBACK MZ KB4,HASH 7 1414 Y J24 J20 22 281 1 421 MZ 1 1421 Y 22 282 1 422 MZ 1 1422 Y 22 283 1 423 MCW 1 1423 M 22 284 1 424 S DIFF-1,HASH COMPUTE 7 1424 S 844 J20 22 285 1 431 BWZ *-14,HASH,B MOD 8 1431 V U24 J20 B 22 286 1 439 A DIFF-1,HASH (DIFF-1,HASH) 7 1439 A 844 J20 23 287 1 446 MZ KB1,HASH 7 1446 Y !92 J20 23 288 1 453 MCW X2,SX2C 7 1453 M 094 J32 23 289 1 460 MCW 1 1460 M 23 290 1 461 MCW HASH,X1 7 1461 M J20 089 23 291 1 468 A X1 4 1468 A 089 23 292 1 472 A HASH,X1 7 1472 A J20 089 24 293 1 479 SAVTOP NOP 0 4 1479 N 000 24 294 1 483 SAR X1 4 1483 Q 089 24 295 1 487 MCW NOP,BOTHSH 7 1487 M J33 W71 24 296 1 494 HLOOP BCE NOTFND,0&X1, NOT FOUND IF HASH ENTRY BLANK 8 1494 B W26 0|0 24 297 1 502 BCE BOTHSH,0&X1,< 8 1502 B W71 0|0 < 24 FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20 PAGE 5 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 1 510 MCW 0&X1,X2 7 1510 M 0|0 094 25 299 1 517 SAR X1 4 1517 Q 089 25 300 1 521 C 0&X3,0&X2 7 1521 C 0?0 0!0 25 301 1 528 BU HLOOP 5 1528 B U94 / 25 302 1 533 C 0&X2,0&X3 7 1533 C 0!0 0?0 25 303 1 540 BU HLOOP 5 1540 B U94 / 25 304 * 305 * FOUND IN THE HASH TABLE 306 * 307 1 545 FOUND MCW X2,SX2D 7 1545 M 094 J36 26 308 1 552 MCW SX2D,SX2E 7 1552 M J36 J39 26 309 1 559 MA NEGARY,SX2D 7 1559 # 163 J36 26 310 1 566 MCW SX2C,X2 7 1566 M J32 094 26 311 1 573 MCW 1 1573 M 26 312 1 574 LCA SX2D,0&X2 7 1574 L J36 0!0 26 313 1 581 SBR X2 4 1581 H 094 27 314 1 585 CW 1&X2 4 1585 ) 0!1 27 315 1 589 MCW SX2E,*&7 7 1589 M J39 W02 27 316 1 596 BWZ FPNUM,0-0,2 8 1596 V W93 000 2 27 317 1 604 MZ KB1,2&X2 SET INTEGER ZONE 7 1604 Y !92 0!2 27 318 1 611 NUMFIN SBR X1,1&X1 7 1611 H 089 0|1 27 319 1 618 SBR X3 4 1618 H 099 28 320 1 622 B SCHUND 4 1622 B S59 28 321 * 322 * NOT FOUND, ENTER IT 323 * 324 1 626 NOTFND MCW 83,X2 7 1626 M 083 094 28 325 1 633 MCW 83,0&X1 7 1633 M 083 0|0 28 326 1 640 MCW 0&X3,0&X2 7 1640 M 0?0 0!0 28 327 1 647 SBR X1 4 1647 H 089 28 328 1 651 SBR 83 4 1651 H 083 28 329 1 655 BCE TOOBIG,0&X1,< 8 1655 B X12 0|0 < 29 330 1 663 SW 1&X1 4 1663 , 0|1 29 331 1 667 B FOUND 4 1667 B V45 29 332 * 333 * BOTTOM OF HASH TABLE 334 * 335 1 671 BOTHSH NOP TOOBIG 4 1671 N X12 29 336 1 675 MCW S,BOTHSH SHOULD THIS BE B INSTEAD OF S? 7 1675 M !88 W71 29 337 1 682 MCW BNDRY,X1 7 1682 M 848 089 29 338 1 689 B HLOOP 4 1689 B U94 29 339 * 340 * FOUND FLOATING-POINT NUMBER 341 * 342 1 693 FPNUM MZ *-6,2&X2 SET FLOATING POINT ZONE 7 1693 Y W93 0!2 30 343 1 700 B NUMFIN 4 1700 B W11 30 344 * 345 * A BLANK IN THE NUMBER 346 * 347 1 704 BLANK SW 3&X1 4 1704 , 0|3 30 FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20 PAGE 6 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 1 708 B BBACK 4 1708 B U14 30 349 * 350 * TOO BIG 351 * 352 1 712 TOOBIG CS 332 4 1712 / 332 30 353 1 716 CS 1 1716 / 30 354 1 717 CC 1 2 1717 F 1 30 355 1 719 MCW ERROR2,270 7 1719 M J75 270 31 356 1 726 W 1 1726 2 31 357 1 727 CC 1 2 1727 F 1 31 358 1 729 BCE HALT,CDOVLY,1 8 1729 B X42 769 1 31 359 1 737 RWD 1 5 1737 U %U1 R 31 360 1 742 HALT H HALT 4 1742 . X42 31 361 * 362 * GOT TO WITHIN SIX OF A GM WITHOUT SEEING UNDERSCORE. 363 * MOVE THE REMAINDER OF THE STATEMENT UP. 364 * 365 1 746 ENDSTM LCA 0&X3,0&X2 7 1746 L 0?0 0!0 31 366 1 753 SAR X3 4 1753 Q 099 32 367 1 757 C 0&X2 4 1757 C 0!0 32 368 1 761 SAR X2 4 1761 Q 094 32 369 1 765 MCW X3,X1 7 1765 M 099 089 32 370 1 772 B LOOP 4 1772 B S10 32 371 * 372 * REACHED THE BOTTOM OF STATEMENTS 373 * 374 1 776 BOTTOM MCW SX2B,X1 7 1776 M !91 089 32 375 1 783 CS 332 4 1783 / 332 32 376 1 787 CS 1 1787 / 33 377 1 788 MCW CONSTS,223 7 1788 M J98 223 33 378 * 379 * CONVERT 81-83 TO DECIMAL 380 * 381 1 795 S W2H3 4 1795 S K00 33 382 1 799 S W2L3 4 1799 S K02 33 383 1 803 MZ 83,W2H3-1 7 1803 Y 083 J99 33 384 1 810 MZ 81,W2L3-1 7 1810 Y 081 K01 33 385 1 817 BWZ *&12,W2L3-1,2 8 1817 V Y36 K01 2 33 386 1 825 A KA0,W2L3 7 1825 A !52 K02 34 387 1 832 B *-18 4 1832 B Y17 34 388 1 836 BWZ *&12,W2H3-1,2 8 1836 V Y55 J99 2 34 389 1 844 A KQ4,W2H3 7 1844 A !54 K00 34 390 1 851 B *-18 4 1851 B Y36 34 391 1 855 A W2L3-1,W2H3 7 1855 A K01 K00 34 392 1 862 MCW 83,W5C 7 1862 M 083 K08 35 393 1 869 MCW W2H3 4 1869 M K00 35 394 1 873 ZA W5C 4 1873 ? K08 35 395 1 877 MZ *-4,W5C 7 1877 Y Y79 K08 35 396 1 884 S ARYSZW,W5C 7 1884 S !71 K08 35 397 1 891 MZ KB1,W5C 7 1891 Y !92 K08 35 FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20 PAGE 7 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 1 898 A KP1,W5C 7 1898 A K03 K08 36 399 1 905 MCW 83,X3 7 1905 M 083 099 36 400 1 912 MA NEGARY,X3 7 1912 # 163 099 36 401 1 919 SBR X3,1&X3 7 1919 H 099 0?1 36 402 1 926 MCW ARYTOP,247 7 1926 M 194 247 36 403 1 933 MCW HYPHEN 4 1933 M K09 36 404 1 937 MCW X3 4 1937 M 099 37 405 1 941 MCW KB3 4 1941 M K12 37 406 1 945 MCW W5 4 1945 M !66 37 407 1 949 MCW TO 4 1949 M K16 37 408 1 953 MCW W5C 4 1953 M K08 37 409 1 957 CC J 2 1957 F J 37 410 1 959 W 1 1959 2 37 411 1 960 CC J 2 1960 F J 38 412 1 962 BCV *&5 5 1962 B Z71 @ 38 413 1 967 B *&3 4 1967 B Z73 38 414 1 971 CC 1 2 1971 F 1 38 415 * 416 * LOAD NEXT OVERLAY 417 * 418 1 973 BSS SNAPSH,D 5 1973 B 333 D 38 419 1 978 SBR TPREAD&6,838 7 1978 H 786 838 38 420 1 985 SBR CLRBOT 4 1985 H 833 38 421 1 989 SBR LOADXX&3,838 7 1989 H 796 838 39 422 1 996 SBR CLEARL&3,2598 7 1996 H 710 N98 39 423 2 003 LCA SUBSCR,PHASID 7 2003 L K22 110 39 424 2 010 B LOADNX 4 2010 B 700 39 425 * 426 * DATA 427 * 428 2 015 DCW @ 9@ 2 2015 39 429 ZONES EQU *&1 2016 430 2 046 DCW @9Z9R9I99ZZZRZIZ9RZRRRIR9IZIRIII@ 31 2046 40 431 2 048 W2H DCW #2 HIGH-ORDER ZONES FROM TOPCOR 2 2048 40 432 2 050 W2L DCW #2 LOW-ORDER ZONES FROM TOPCOR 2 2050 40 433 2 052 KA0 DCW @A0@ USED TO CONVERT MACHINE ADDRESS TO DECIMAL 2 2052 40 434 2 054 KQ4 DCW @?4@ USED TO CONVERT MACHINE ADDRESS TO DECIMAL 2 2054 40 435 2 057 SX2 DCW #3 3 2057 41 436 2 059 W2H2 DCW #2 2 2059 41 437 2 061 W2L2 DCW #2 2 2061 41 438 2 066 W5 DCW #5 5 2066 41 439 2 071 ARYSZW DCW #5 ARRAY SIZE & 2 5 2071 41 440 2 076 KP0 DCW @0000?@ 5 2076 41 441 2 077 K0 DCW @0@ 1 2077 41 442 2 082 K16K DCW @16000@ 5 2082 42 443 2 087 W5B DCW #5 5 2087 42 444 2 088 S DCW @S@ 1 2088 42 445 2 091 SX2B DCW #3 3 2091 42 446 2 092 KB1 DCW #1 1 2092 42 447 2 096 SEQCOD DCW #4 STATEMENT CODE AND SEQUENCE NUMBER 4 2096 42 FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20 PAGE 8 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 448 2 106 PREFIX DCW #10 ENTIRE STATEMENT PREFIX 10 2106 42 449 2 107 W1 DCW #1 1 2107 43 450 2 116 PUNCT DCW @#}@*-&)$,@ 9 2116 43 451 2 120 HASH DCW #4 4 2120 43 452 2 124 KB4 DCW #4 4 2124 43 453 2 132 SX2C DCW #8 8 2132 43 454 2 133 NOP NOP 1 2133 N 43 455 2 136 SX2D DCW #3 3 2136 43 456 2 139 SX2E DCW #3 3 2139 44 457 2 175 ERROR2 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ 36 2175 44 458 2 198 CONSTS DCW @CONSTANTS LOCATED FROM @ 23 2198 45 459 2 200 W2H3 DCW #2 2 2200 45 460 2 202 W2L3 DCW #2 2 2202 45 461 2 203 KP1 DCW &1 1 2203 45 462 2 208 W5C DCW #5 5 2208 45 463 2 209 HYPHEN DCW @-@ 1 2209 45 464 2 212 KB3 DCW #3 3 2212 45 465 2 216 TO DCW @ TO @ 4 2216 46 466 2 222 SUBSCR DCW @SUBSCR@ 6 2222 46 467 2 223 GMWM DCW @}@ 1 2223 GMARK 46 468 ORG 201 0201 469 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 849 47 470 EX BEGINN B 849 48 471 END / 000 080 FORTRAN COMPILER -- CONSTANTS PHASE THREE -- 20 PAGE 9 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ARYSIZ 160 ARYSZW 2071 ARYTOP 194 BBACK 1414 BEGINN 849 BLANK 1704 BNDRY 848 BOTHSH 1671 BOTTOM 1776 CDOVLY 769 CLEARL 707 CLRBOT 833 CONSTS 2198 DIFF 845 ENDSTM 1746 ERROR2 2175 FOUND 1545 FPNUM 1693 GMWM 2223 GOTGM 1343 GOTPUN 1388 GOTUN6 1293 GOTUND 1309 HALT 1742 HASH 2120 HLOOP 1494 HYPHEN 2209 K0 2077 K16K 2082 KA0 2052 KB1 2092 KB3 2212 KB4 2124 KP0 2076 KP1 2203 KQ4 2054 LOADDD 849 LOADNX 700 LOADXX 793 LOOP 1210 NEGAR2 142 NEGAR3 157 NEGARY 163 NOARYS 1161 NOP 2133 NOTFND 1626 NUMFIN 1611 PHASID 110 PREFIX 2106 PUNCT 2116 S 2088 SAVTOP 1479 SCHPUN 1350 SCHUND 1259 SEQCOD 2096 SNAPSH 333 SUBSCR 2222 SX2 2057 SX2B 2091 SX2C 2132 SX2D 2136 SX2E 2139 TO 2216 TOOBIG 1712 TOPCOD 840 TOPCOR 688 TPREAD 780 W1 2107 W2H 2048 W2H2 2059 W2H3 2200 W2L 2050 W2L2 2061 W2L3 2202 W5 2066 W5B 2087 W5C 2208 X1 89 X2 94 X3 99 ZONES 2016