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 -- LIST PHASE TWO -- PHASE 26 PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- LIST PHASE TWO -- PHASE 26 102 CTL 6611 103 * 104 * THE OBJECT-TIME LIST STRINGS ARE DEVELOPED AND STORED 105 * IMMEDIATELY TO THE LEFT OF THE FORMAT STRINGS AT THE LOWER 106 * (HIGH ADDRESS) END OF STORAGE. 107 * 108 * ON ENTRY, X1 IS THE TOP OF STATEMENTS IN LOW CORE, 81-83 109 * IS THREE BELOW THE FORMAT STRINGS OR NUMBER TABLE. 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 NEGAR2 EQU 142 LOOKS LIKE NEGARY -- SEE PHASE 20 0142 119 ARYSIZ EQU 160 TOTAL ARRAY SIZE & 2 0160 120 NEGARY EQU 163 16000 - ARYSIZ 0163 121 GLOBER EQU 184 GLOBAL ERROR FLAG -- WM MEANS ERROR 0184 122 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 123 IMOD EQU 690 INTEGER MODULUS -- NUMBER OF DIGITS 0690 124 MANTIS EQU 692 FLOATING POINT MANTISSA DIGITS 0692 125 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 126 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 127 TPREAD EQU 780 TAPE READ INSTRUCTION IN OVERLAY LOADER 0780 128 SEQCOD EQU 841 STATEMENT CODE AND SEQUENCE NUMBER 0841 129 SX1 EQU 844 SAVE ARE FOR X1 FROM PHASE 25 -- SAME AS 0844 130 * X1 ON ENTRY HERE 131 * 132 ORG 845 0845 133 LOADDD EQU *&1 LOAD ADDRESS 0845 134 845 BEGINN MCW 83,X2 7 0845 M 083 094 4 135 852 LOOP BW DONE,0&X1 8 0852 V Z88 0|0 1 4 136 860 MCW X2,SX2 7 0860 M 094 !53 4 137 867 MCW 0&X1,SEQCOD 7 0867 M 0|0 841 4 138 874 MCW X1,SAVSEQ&6 7 0874 M 089 Z69 4 139 881 C 0&X1 GET X1 4 0881 C 0|0 5 140 885 SAR X1 DOWN TO BODY 4 0885 Q 089 5 141 889 SBR X3 4 0889 H 099 5 142 893 GETGM C 0&X3 GET X3 DOWN 4 0893 C 0?0 5 143 897 SAR X3 TO BELOW GMWM AT 4 0897 Q 099 5 144 901 BCE GOTGM,1&X3,} BOTTOM OF STATEMENT 8 0901 B 913 0?1 } GMARK 5 145 909 B GETGM 4 0909 B 893 5 146 913 GOTGM SBR SX3&6,0&X3 7 0913 H Z83 0?0 6 147 920 C 0&X1 4 0920 C 0|0 6 FORTRAN COMPILER -- LIST PHASE TWO -- PHASE 26 PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 924 C 1 0924 C 6 149 925 SAR SX1B 4 0925 Q !56 6 150 929 BCE GOTCOM,0&X1,, 8 0929 B 947 0|0 , 6 151 937 CHAIN 6 MACRO 152 BCE 1 0937 B GEN 6 153 BCE 1 0938 B GEN 6 154 BCE 1 0939 B GEN 7 155 BCE 1 0940 B GEN 7 156 BCE 1 0941 B GEN 7 157 BCE 1 0942 B GEN 7 158 943 B FINLS2 4 0943 B Y22 7 159 947 GOTCOM MCW SX1B,X1 7 0947 M !56 089 7 160 954 BCE NOLINK,1&X1,} LIST NOT LINKED TO ANOTHER? 8 0954 B 989 0|1 } GMARK 7 161 962 MCW 3&X1,X3 7 0962 M 0|3 099 8 162 969 BW LSTERR,1&X3 8 0969 V Z22 0?1 1 8 163 977 LCA 1&X3,4&X1 7 0977 L 0?1 0|4 8 164 984 CW 1 0984 ) 8 165 985 B SX3 4 0985 B Z77 8 166 989 NOLINK BCE ENDLS2,2&X3,, 8 0989 B X98 0?2 , 8 167 997 SBR X3 4 0997 H 099 8 168 1 001 MARK LCA KDOT,0&X2 BELOW NUMBER TABLE AND FORMATS 7 1001 L !57 0!0 9 169 1 008 SBR X2 4 1008 H 094 9 170 1 012 CW 1&X2 4 1012 ) 0!1 9 171 1 016 S W1 4 1016 S !58 9 172 1 020 NXTLST SBR X3,1&X3 7 1020 H 099 0?1 9 173 1 027 BCE RPAR,0&X3,) 8 1027 B S72 0?0 ) 9 174 1 035 BCE SUBS,0&X3,$ 8 1035 B X37 0?0 $ 10 175 1 043 B ADRTST 4 1043 B Y42 10 176 1 047 LCA W3,0&X2 7 1047 L J45 0!0 10 177 1 054 SBR X2 4 1054 H 094 10 178 1 058 BCE GOTCM2,0&X3,, 8 1058 B S60 0?0 , 10 179 1 066 BCE LPAR,0&X3,% 8 1066 B U67 0?0 % 10 180 1 074 B ADRTST 4 1074 B Y42 11 181 1 078 LCA W3,0&X2 7 1078 L J45 0!0 11 182 1 085 LCA COMMA 4 1085 L !59 11 183 1 089 SBR X2 4 1089 H 094 11 184 1 093 CW 5&X2 4 1093 ) 0!5 11 185 1 097 CW 1&X2 4 1097 ) 0!1 11 186 1 101 MZ 3&X2,KB1 7 1101 Y 0!3 !60 11 187 1 108 MCW X1,SX1D 7 1108 M 089 !63 12 188 1 115 ZA IMOD,WIDTH 7 1115 ? 690 !68 12 189 1 122 BM INT,3&X2 INTEGER 8 1122 V /37 0!3 K 12 190 1 130 MCW MANTIS,WIDTH 7 1130 M 692 !68 12 191 1 137 INT S KP16K,WIDTH 7 1137 S !73 !68 12 192 1 144 MN WIDTH,MWIDTH 7 1144 D !68 !77 13 193 1 151 MN 1 1151 D 13 194 1 152 MN 1 1152 D 13 195 1 153 SAR *&4 WHY NOT JUST 4 1153 Q /60 13 196 1 157 MCW 0,X1 MCW WIDTH-3,0&X1? 7 1157 M 000 089 13 197 1 164 MCW K0 4 1164 M !74 13 FORTRAN COMPILER -- LIST PHASE TWO -- PHASE 26 PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 168 A X1 4 1168 A 089 13 199 1 172 MZ ZONES&1&X1,MWIDTH 7 1172 Y !S0 !77 14 200 1 179 CW 1 1179 ) 14 201 1 180 SBR *&7 WHY NOT JUST 4 1180 H /90 14 202 1 184 MZ ZONES&X1,0 MZ ZONES&X1,MWIDTH-2? 7 1184 Y !/9 000 14 203 1 191 MCW MWIDTH,X1 7 1191 M !77 089 14 204 1 198 MCW 4&X2,*&14 7 1198 M 0!4 S18 14 205 1 205 MZ *-6,*&6 SET X1 ZONE 7 1205 Y S05 S17 15 206 1 212 SBR 4&X2,0 7 1212 H 0!4 000 15 207 1 219 MZ KB1,3&X2 7 1219 Y !60 0!3 15 208 1 226 MCW SX1D,X1 7 1226 M !63 089 15 209 1 233 MZ *-4,6&X2 CLOBBER TYPE TAG 7 1233 Y S35 0!6 15 210 1 240 TESTLP BCE LPAR,0&X3,% 8 1240 B U67 0?0 % 16 211 1 248 TSTLST C 0&X3,COMMA 7 1248 C 0?0 !59 16 212 1 255 BU LSTERR 5 1255 B Z22 / 16 213 1 260 GOTCM2 BW ENDLST,0&X3 8 1260 V W97 0?0 1 16 214 1 268 B NXTLST 4 1268 B |20 16 215 * 216 * RIGHT PARENTHESIS -- BOTTOM OF IMPLIED DO 217 * 218 1 272 RPAR BCE RPAR0,W1,? 8 1272 B W34 !58 ? 17 219 1 280 RPARB MCW X1,SX1C 7 1280 M 089 !80 17 220 1 287 LCA KDOT,0&X1 7 1287 L !57 0|0 17 221 1 294 SBR X1 4 1294 H 089 17 222 1 298 A KP1,W1 7 1298 A !81 !58 17 223 1 305 BCE LSTERR,W1,D 8 1305 B Z22 !58 D 18 224 1 313 B MOVADR INCREMENT OR UPPER BOUND 4 1313 B W52 18 225 1 317 C 0&X3,COMMA 7 1317 C 0?0 !59 18 226 1 324 BU LSTERR 5 1324 B Z22 / 18 227 1 329 B MOVADR UPPER BOUND OR LOWER BOUND 4 1329 B W52 18 228 1 333 BCE MOVADR,0&X3,, LOWER BOUND 8 1333 B W52 0?0 , 18 229 1 341 C 0&X3,KEQUAL 7 1341 C 0?0 !82 19 230 1 348 BU LSTERR 5 1348 B Z22 / 19 231 1 353 B MOVADR SUBSCRIPT/LOOP INDUCTOR 4 1353 B W52 19 232 1 357 SBR 0&X1,1&X2 7 1357 H 0|0 0!1 19 233 1 364 CW 0&X1 DECREASE X1 4 1364 ) 0|0 19 234 1 368 CW 1 1368 ) 19 235 1 369 SW 1 1369 , 19 236 1 370 SAR X1 4 1370 Q 089 20 237 1 374 MCW X3,SX3B 7 1374 M 099 !85 20 238 1 381 MN 0&X3 4 1381 D 0?0 20 239 1 385 SAR X3 4 1385 Q 099 20 240 1 389 RLPAR BCE LPAR2,2&X3,% 8 1389 B U21 0?2 % 20 241 1 397 BCE RPAR2,2&X3,) 8 1397 B U40 0?2 ) 20 242 1 405 BW LSTERR,2&X3 8 1405 V Z22 0?2 1 21 243 1 413 SBR X3 4 1413 H 099 21 244 1 417 B RLPAR 4 1417 B T89 21 245 1 421 LPAR2 LCA KRPAR,0&X2 7 1421 L !86 0!0 21 246 1 428 SBR X2 4 1428 H 094 21 247 1 432 CW 1&X2 4 1432 ) 0!1 21 FORTRAN COMPILER -- LIST PHASE TWO -- PHASE 26 PAGE 4 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 1 436 B RPMORE 4 1436 B U56 21 249 1 440 RPAR2 LCA EQBLNK,0&X2 7 1440 L !90 0!0 22 250 1 447 SBR X2 4 1447 H 094 22 251 1 451 SW 2&X2 4 1451 , 0!2 22 252 1 455 CW 1 1455 ) 22 253 1 456 RPMORE MCW SX3B,X3 7 1456 M !85 099 22 254 1 463 B TSTLST 4 1463 B S48 22 255 * 256 * LEFT PARENTHESIS -- TOP OF IMPLIED DO 257 * 258 1 467 LPAR S KP1,W1 7 1467 S !81 !58 22 259 1 474 BM LSTERR,W1 UNBALANCED PARENTHESES 8 1474 V Z22 !58 K 23 260 1 482 MA NEGARY,3&X1 7 1482 # 163 0|3 23 261 1 489 LCA 3&X1,0&X2 7 1489 L 0|3 0!0 23 262 1 496 LCA 6&X1 4 1496 L 0|6 23 263 1 500 SBR X2 4 1500 H 094 23 264 1 504 BCE DOT,13&X1,. 8 1504 B W19 0/3 . 23 265 1 512 LCA 15&X1,0&X2 7 1512 L 0/5 0!0 24 266 1 519 SBR X2 4 1519 H 094 24 267 1 523 LPAR3 LCA 12&X1,0&X2 7 1523 L 0/2 0!0 24 268 1 530 LCA 1 1530 L 24 269 1 531 LCA KLPAR 4 1531 L !91 24 270 1 535 SBR X2 4 1535 H 094 24 271 1 539 CW 1&X2 4 1539 ) 0!1 24 272 1 543 SWITCH NOP LPAR5 4 1543 N W08 25 273 1 547 MCW 3&X1,X1 7 1547 M 0|3 089 25 274 1 554 MN 0&X1 4 1554 D 0|0 25 275 1 558 SAR X1 4 1558 Q 089 25 276 1 562 MA ARYSIZ,X1 7 1562 # 160 089 25 277 1 569 MA NEGARY,X2 7 1569 # 163 094 25 278 1 576 SBR 0&X1,1&X2 7 1576 H 0|0 0!1 26 279 1 583 MA ARYSIZ,X2 7 1583 # 160 094 26 280 1 590 LPAR4 SBR X3,1&X3 7 1590 H 099 0?1 26 281 1 597 MCW SX1C,X1 7 1597 M !80 089 26 282 1 604 B TESTLP 4 1604 B S40 26 283 1 608 LPAR5 MCW NOP,SWITCH 7 1608 M !92 V43 26 284 1 615 B LPAR4 4 1615 B V90 27 285 1 619 DOT LCA NEGAR2,0&X2 7 1619 L 142 0!0 27 286 1 626 SBR X2 4 1626 H 094 27 287 1 630 B LPAR3 4 1630 B V23 27 288 * 289 * RIGHT PARENTHESIS AND W1 IS ZERO 290 * 291 1 634 RPAR0 SBR X1,W48 7 1634 H 089 J40 27 292 1 641 MCW BRANCH,SWITCH 7 1641 M J41 V43 27 293 1 648 B RPARB 4 1648 B S80 27 294 * 295 * MOVE ADDRESS AT 1&X3..3&X3 TO W3 AND -2&X1..0&X1, 296 * DECREMENT X3 BY 3. 297 * FORTRAN COMPILER -- LIST PHASE TWO -- PHASE 26 PAGE 5 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 1 652 MOVADR SBR MOVADX&3 4 1652 H W96 28 299 1 656 SBR X3,1&X3 7 1656 H 099 0?1 28 300 1 663 B ADRTST 4 1663 B Y42 28 301 1 667 LCA W3,0&X1 7 1667 L J45 0|0 28 302 1 674 SBR X1 4 1674 H 089 28 303 1 678 MZ *-4,2&X1 CLOBBER TYPE TAG (WHY?) 7 1678 Y W80 0|2 28 304 1 685 BW LSTERR,0&X3 8 1685 V Z22 0?0 1 29 305 1 693 MOVADX B 0 4 1693 B 000 29 306 * 307 * END OF I/O LIST 308 * 309 1 697 ENDLST C W1,KP0 PARENTHESES BALANCED 7 1697 C !58 J42 29 310 1 704 BU LSTERR NO 5 1704 B Z22 / 29 311 1 709 CW 0&X3 4 1709 ) 0?0 29 312 1 713 CW 1 1713 ) 29 313 1 714 SW 1 1714 , 29 314 1 715 SAR X3 4 1715 Q 099 30 315 1 719 SBR 3&X3,1&X2 7 1719 H 0?3 0!1 30 316 1 726 MA NEGARY,3&X3 7 1726 # 163 0?3 30 317 1 733 B SX3 4 1733 B Z77 30 318 * 319 * DOLLAR SIGN -- BOTTOM OF SUBSCRIPT 320 * 321 1 737 SUBS SW 0&X3 4 1737 , 0?0 30 322 1 741 SAR X3 4 1741 Q 099 30 323 1 745 SBR SX1E&3,1&X3 7 1745 H X93 0?1 30 324 1 752 GETDOL BCE GOTDOL,2&X3,$ 8 1752 B X68 0?2 $ 31 325 1 760 SBR X3 4 1760 H 099 31 326 1 764 B GETDOL 4 1764 B X52 31 327 1 768 GOTDOL LCA 2&X3,0&X2 7 1768 L 0?2 0!0 31 328 1 775 SBR X2 4 1775 H 094 31 329 1 779 CW 1&X2 4 1779 ) 0!1 31 330 1 783 SBR X3,3&X3 7 1783 H 099 0?3 31 331 1 790 SX1E CW 0 4 1790 ) 000 32 332 1 794 B TESTLP 4 1794 B S40 32 333 1 798 ENDLS2 BW FINLST,2&X3 8 1798 V Y17 0?2 1 32 334 1 806 SBR X3,2&X3 7 1806 H 099 0?2 32 335 1 813 B MARK 4 1813 B |01 32 336 1 817 FINLST SW 3&X3 4 1817 , 0?3 32 337 1 821 CW 1 1821 ) 32 338 1 822 FINLS2 BCE LSTERR,SEQCOD-3,1 8 1822 B Z22 838 1 33 339 1 830 BCE LSTERR,SEQCOD-3,3 8 1830 B Z22 838 3 33 340 1 838 B SAVSEQ 4 1838 B Z63 33 341 * 342 * TEST WHETHER THREE CHARACTERS STARTING AT X3 ARE AN ADDRESS, 343 * I.E., THAT THE NUMERIC PART IS A DIGIT. IF SO, MOVE IT TO 344 * W3 AND BUMP X3 BY 3. 345 * 346 1 842 ADRTST SBR ADRTSX&3 4 1842 H Y96 33 347 1 846 MN 2&X3,DIGTST&11 7 1846 D 0?2 Z08 33 FORTRAN COMPILER -- LIST PHASE TWO -- PHASE 26 PAGE 6 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 1 853 B DIGTST 4 1853 B Y97 33 349 1 857 MN 1&X3,DIGTST&11 7 1857 D 0?1 Z08 34 350 1 864 B DIGTST 4 1864 B Y97 34 351 1 868 MN 0&X3,DIGTST&11 7 1868 D 0?0 Z08 34 352 1 875 B DIGTST 4 1875 B Y97 34 353 1 879 MCW 2&X3,W3 7 1879 M 0?2 J45 34 354 1 886 SBR X3,3&X3 7 1886 H 099 0?3 34 355 1 893 ADRTSX B 0-0 4 1893 B 000 35 356 1 897 DIGTST SBR *&4 4 1897 H Z04 35 357 1 901 BCE 0-0,DIGITS,0 8 1901 B 000 J55 0 35 358 1 909 CHAIN 9 MACRO 359 BCE 1 1909 B GEN 35 360 BCE 1 1910 B GEN 35 361 BCE 1 1911 B GEN 35 362 BCE 1 1912 B GEN 35 363 BCE 1 1913 B GEN 36 364 BCE 1 1914 B GEN 36 365 BCE 1 1915 B GEN 36 366 BCE 1 1916 B GEN 36 367 BCE 1 1917 B GEN 36 368 1 918 B LSTERR 4 1918 B Z22 36 369 1 922 LSTERR CS 332 4 1922 / 332 36 370 1 926 CS 1 1926 / 37 371 1 927 SW GLOBER 4 1927 , 184 37 372 1 931 MN SEQCOD,234 7 1931 D 841 234 37 373 1 938 MN 1 1938 D 37 374 1 939 MN 1 1939 D 37 375 1 940 MCW ERR47 4 1940 M J86 37 376 1 944 W 1 1944 2 37 377 1 945 BCV *&5 5 1945 B Z54 @ 38 378 1 950 B *&3 4 1950 B Z56 38 379 1 954 CC 1 2 1954 F 1 38 380 1 956 MCW SLASH,SEQCOD-3 CONVERT TO END STATEMENT 7 1956 M J87 838 38 381 1 963 SAVSEQ MCW SEQCOD,0 7 1963 M 841 000 38 382 1 970 MCW SX2,X2 7 1970 M !53 094 38 383 1 977 SX3 SBR X1,0 7 1977 H 089 000 38 384 1 984 B LOOP 4 1984 B 852 39 385 1 988 DONE MCW SX1,X1 7 1988 M 844 089 39 386 1 995 BSS SNAPSH,C 5 1995 B 333 C 39 387 2 000 SBR CLEARL&3,GMWM 7 2000 H 710 J97 39 388 2 007 LCA LIST3,PHASID 7 2007 L J96 110 39 389 2 014 B LOADNX 4 2014 B 700 39 390 * 391 * DATA 392 * 393 2 019 ZONES DCW @ 9@ 2 2019 39 394 2 050 DCW @9Z9R9I99ZZZRZIZ9RZRRRIR9IZIRIII@ 31 2050 40 395 2 053 SX2 DCW #3 3 2053 40 396 2 056 SX1B DCW #3 3 2056 40 397 2 057 KDOT DCW @.@ 1 2057 40 FORTRAN COMPILER -- LIST PHASE TWO -- PHASE 26 PAGE 7 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 2 058 W1 DCW #1 1 2058 40 399 2 059 COMMA DCW @,@ 1 2059 41 400 2 060 KB1 DCW #1 1 2060 41 401 2 063 SX1D DCW #3 3 2063 41 402 2 068 WIDTH DCW #5 5 2068 41 403 2 073 KP16K DCW @1600?@ 5 2073 41 404 2 074 K0 DCW 0 1 2074 41 405 2 077 MWIDTH DCW #3 WIDTH - 16000 IN MACHINE FORM 3 2077 41 406 2 080 SX1C DCW #3 3 2080 42 407 2 081 KP1 DCW &1 1 2081 42 408 2 082 KEQUAL DCW @#@ 1 2082 42 409 2 085 SX3B DCW #3 3 2085 42 410 2 086 KRPAR DCW @)@ 1 2086 42 411 2 090 EQBLNK DCW @# @ 4 2090 42 412 2 091 KLPAR DCW @%@ 1 2091 42 413 2 092 NOP NOP 1 2092 N 43 414 2 140 W48 DCW #48 48 2140 45 415 2 141 BRANCH B 1 2141 B 45 416 2 142 KP0 DCW &0 1 2142 45 417 2 145 W3 DCW #3 3 2145 45 418 2 155 DIGITS DCW @0123456789@ 10 2155 45 419 2 186 ERR47 DCW @ERROR 47 - BAD LIST, STATEMENT @ 31 2186 46 420 2 187 SLASH DCW @/@ CODE FOR END STATEMENT 1 2187 46 421 2 196 LIST3 DCW @LISTR TRI@ 9 2196 47 422 2 197 GMWM DCW @}@ 1 2197 GMARK 47 423 ORG 201 0201 424 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 845 48 425 EX BEGINN B 845 49 426 END / 000 080 FORTRAN COMPILER -- LIST PHASE TWO -- PHASE 26 PAGE 8 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ADRTST 1842 ADRTSX 1893 ARYSIZ 160 BEGINN 845 BRANCH 2141 CLEARL 707 COMMA 2059 DIGITS 2155 DIGTST 1897 DONE 1988 DOT 1619 ENDLS2 1798 ENDLST 1697 EQBLNK 2090 ERR47 2186 FINLS2 1822 FINLST 1817 GETDOL 1752 GETGM 893 GLOBER 184 GMWM 2197 GOTCM2 1260 GOTCOM 947 GOTDOL 1768 GOTGM 913 IMOD 690 INT 1137 K0 2074 KB1 2060 KDOT 2057 KEQUAL 2082 KLPAR 2091 KP0 2142 KP1 2081 KP16K 2073 KRPAR 2086 LIST3 2196 LOADDD 845 LOADNX 700 LOOP 852 LPAR 1467 LPAR2 1421 LPAR3 1523 LPAR4 1590 LPAR5 1608 LSTERR 1922 MANTIS 692 MARK 1001 MOVADR 1652 MOVADX 1693 MWIDTH 2077 NEGAR2 142 NEGARY 163 NOLINK 989 NOP 2092 NXTLST 1020 PHASID 110 RLPAR 1389 RPAR 1272 RPAR0 1634 RPAR2 1440 RPARB 1280 RPMORE 1456 SAVSEQ 1963 SEQCOD 841 SLASH 2187 SNAPSH 333 SUBS 1737 SWITCH 1543 SX1 844 SX1B 2056 SX1C 2080 SX1D 2063 SX1E 1790 SX2 2053 SX3 1977 SX3B 2085 TESTLP 1240 TPREAD 780 TSTLST 1248 W1 2058 W3 2145 W48 2140 WIDTH 2068 X1 89 X2 94 X3 99 ZONES 2019