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 -- SCANNER -- PHASE 03 PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- SCANNER -- PHASE 03 102 * 103 * SCANNER PHASE: INSERT STATEMENT NUMBERS (NOT LABELS) 104 * CLASSIFY STATEMENTS (FORMAT STATEMENTS ALREADY CLASSIFIED) 105 * 106 CTL 6611 107 * 108 X1 EQU 89 0089 109 X2 EQU 94 0094 110 X3 EQU 99 0099 111 * 112 * STUFF IN THE RESIDENT AREA 113 * 114 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 115 SNAPSH EQU 333 CORE DUMP SNAPSHOT ROUTINE 0333 116 * 117 PWORD EQU 685 THE WORD PARAM 0685 118 TOPCOR EQU 688 TOP CORE ADDRESS FROM PARAM CARD 0688 119 IMOD EQU 690 INTEGER MODULUS -- NUMBER OF DIGITS 0690 120 MANTIS EQU 692 FLOATING POINT MANTISSA DIGITS 0692 121 CONDNS EQU 693 P FOR CONDENSED DECK 0693 122 SNAPSW EQU 694 S FOR SNAPSHOT 0694 123 C1410 EQU 695 T IF RUN ON 1410 IN 1401 COMPATIBILITY MODE 0695 124 FMTSW EQU 696 X FOR NO FORMAT, L FOR LIMITED FORMAT 0696 125 * BLANK FOR ORDINARY, A FOR A CONVERSION 126 PARAM EQU 699 PARAMETER CARD IS STORED HERE 0699 127 * 128 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 129 CLEARL EQU 707 CLEAR INSTRUCTION IN LOADNX 0707 130 LOADEX EQU 793 BRANCH THAT EXITS LOADNX 0793 131 * 132 * SIGNALS USED WHEN LOADING FROM CARDS 133 * 134 ORG 101 0101 135 DCW @:@ COLON 5-8 1 0101 4 136 ORG 101 0101 137 DCW @SCANNER@ 7 0107 5 138 * 139 ORG 838 0838 140 LOADDD EQU *&1 LOAD ADDRESS 0838 141 * 142 * START HERE. 143 * CHECK MODULUS AND MANTISSA 144 * 145 838 BEGINN MCW TOPCOR,CORCHK&6 7 0838 M 688 985 6 146 845 SW IMOD-1,MANTIS-1 7 0845 , 689 691 6 147 852 BCE IDEF,IMOD, INTEGER MODULUS BLANK ON PARAMETER CARD 8 0852 B 864 690 6 FORTRAN COMPILER -- SCANNER -- PHASE 03 PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 860 B ISPEC NO, USE SPECIFIED MODULUS 4 0860 B 871 6 149 864 IDEF MCW INTDEF,IMOD YES, USE DEFAULT MODULUS 7 0864 M M42 690 6 150 871 ISPEC BCE FDEF,MANTIS, FLOATING POINT MANTISSA BLANK? 8 0871 B 883 692 7 151 879 B FSPEC NO, USE SPECIFIED MANTISSA 4 0879 B 890 7 152 883 FDEF MCW FLTDEF,MANTIS YES, USE DEFAULT MANTISSA 7 0883 M M44 692 7 153 890 FSPEC C IMOD,INTMIN COMPARE MODULUS TO MINIMUM 7 0890 C 690 M46 7 154 897 BH BADMOD 5 0897 B U69 U 7 155 902 C IMOD,DIGMAX CHECK INTEGER MODULUS 7 0902 C 690 M48 7 156 909 BL BADMOD 5 0909 B U69 T 8 157 914 MANCHK C MANTIS,DIGMAX CHECK FLOATING POINT MANTISSA 7 0914 C 692 M48 8 158 921 BL BADMAN 5 0921 B U95 T 8 159 926 C MANTIS,FLTMIN 7 0926 C 692 M50 8 160 933 BH BADMAN 5 0933 B U95 U 8 161 * 162 * REPORT MODULUS AND MANTISSA 163 * 164 938 BADRET CS 332 4 0938 / 332 8 165 942 CS 1 0942 / 8 166 943 MCW MODMSG,210 7 0943 M M60 210 9 167 950 MCS IMOD,213 7 0950 Z 690 213 9 168 957 W 1 0957 2 9 169 958 CS 299 4 0958 / 299 9 170 962 MCW MANMSG,211 7 0962 M M71 211 9 171 969 MCS MANTIS,214 7 0969 Z 692 214 9 172 976 W 1 0976 2 9 173 977 CC J 2 0977 F J 10 174 * 175 979 CORCHK BCE CORCHK,0-0,0 TOPCOR STORED INTO B 8 0979 B 979 000 0 10 176 987 B 1 0987 B 10 177 988 SBR MVBACK&6 STORES TOPCOR-2 4 0988 H T24 10 178 992 SBR MVSTMT&3 4 0992 H 999 10 179 996 MVSTMT LCA 0-0,STMTSV COPY STATEMENT TO WORK AREA 7 0996 L 000 L97 10 180 1 003 SAR MVSTMT&3 READY FOR NEXT STATEMENT 4 1003 Q 999 10 181 1 007 MCW STMTNO,STMTSV INSERT STATEMENT NUMBER INTO STMT 7 1007 M M00 L97 11 182 1 014 A K1,STMTNO AND BUMP IT 7 1014 A M01 M00 11 183 1 021 BCE CLASS2,STMTYP,F FORMAT STMT IS ALREADY CLASSIFIED 8 1021 B T14 L94 F 11 184 * 185 * SKIP OVER THE LABEL IF ANY 186 * 187 1 029 SBR CHKLBL&6,STMTST 7 1029 H |49 L93 11 188 1 036 SBR STMTPT,STMTST-1 INITIALIZE STATEMENT POINTER 7 1036 H M04 L92 11 189 1 043 CHKLBL BCE STSTMT,STMTST,: FOUND THE START OF THE STATEMENT? 8 1043 B |75 L93 : 12 190 1 051 SBR CHKLBL&6 4 1051 H |49 12 191 1 055 SBR CHKLB2&6 4 1055 H |65 12 192 1 059 CHKLB2 BCE CHKLB2,0, DECREASE B REGISTER 8 1059 B |59 000 12 193 1 067 SBR STMTPT SET STATEMENT POINTER 4 1067 H M04 12 194 1 071 B CHKLBL 4 1071 B |43 12 195 * 196 * START PROCESSING THE STATEMENT PROPER. 197 * CHECK FOR ASSIGNMENT STATEMENT. FORTRAN COMPILER -- SCANNER -- PHASE 03 PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 * 199 1 075 STSTMT MCW STMTPT,ENDCHK&6 7 1075 M M04 |95 12 200 1 082 MCW STMTPT,EQTEST&6 7 1082 M M04 /08 13 201 1 089 ENDCHK BCE CKWORD,0,} END OF STATEMENT? 8 1089 B /73 000 } GMARK 13 202 1 097 B 1 1097 B 13 203 1 098 SBR ENDCHK&6 4 1098 H |95 13 204 1 102 EQTEST BCE EQ,0-0,# 8 1102 B /19 000 # 13 205 1 110 B 1 1110 B 13 206 1 111 SBR EQTEST&6 4 1111 H /08 13 207 1 115 B ENDCHK 4 1115 B |89 14 208 * 209 * ASSIGNMENT STATEMENT. 210 * 211 1 119 EQ SW ENDCHK&4 4 1119 , |93 14 212 1 123 MCW ENDCHK&6,SVCHAR&3 7 1123 M |95 /37 14 213 1 130 CW ENDCHK&4 4 1130 ) |93 14 214 1 134 SVCHAR MCW 0-0,CHAR 7 1134 M 000 M05 14 215 1 141 SAR SVCHAR&3 4 1141 Q /37 14 216 1 145 BCE LPAREN,CHAR,% 8 1145 B T49 M05 % 14 217 1 153 BCE LPAREN,CHAR,} 8 1153 B T49 M05 } GMARK 15 218 1 161 BCE CKWORD,CHAR,, 8 1161 B /73 M05 , 15 219 1 169 B SVCHAR 4 1169 B /34 15 220 * 221 * CHECK KEYWORD 222 * 223 1 173 CKWORD MCW STMTPT,*&4 7 1173 M M04 /83 15 224 1 180 MCW 0-0,WORD 7 1180 M 000 M15 15 225 1 187 SW WORD 4 1187 , M15 15 226 1 191 SW 1 1191 , 15 227 1 192 MCW WORD,*&8 7 1192 M M15 S06 16 228 1 199 BCE BFCS1,KBFCS, IS 1ST LETTER B, F, C OR S? 8 1199 B S37 M24 16 229 1 207 CHAIN 3 MACRO 230 BCE 1 1207 B GEN 16 231 BCE 1 1208 B GEN 16 232 BCE 1 1209 B GEN 16 233 1 210 MCW WORD-1,*&8 7 1210 M M14 S24 16 234 1 217 TQINUA BCE QINUA2,KQINUA, IS 2ND LETTER Q, I, N, U OR A? 8 1217 B S71 M20 16 235 1 225 CHAIN 4 MACRO 236 BCE 1 1225 B GEN 17 237 BCE 1 1226 B GEN 17 238 BCE 1 1227 B GEN 17 239 BCE 1 1228 B GEN 17 240 1 229 SW STMTYP 4 1229 , L94 17 241 1 233 B OTHER 4 1233 B U22 17 242 * 243 * FIRST LETTER IS B(ACKSPACE), F(ORMAT), C(ONTINUE), 244 * S(TOP) OR S(ENSELIGHT) 245 * 246 1 237 BFCS1 C WORD-2,KNSE IS WORD [BFCS].NSE? 7 1237 C M13 M74 17 247 1 244 BE SENSE 5 1244 B S60 S 18 FORTRAN COMPILER -- SCANNER -- PHASE 03 PAGE 4 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 1 249 MCW WORD,STMTYP USE FIRST LETTER (BFCS) FOR STMT TYPE 7 1249 M M15 L94 18 249 1 256 B CLASSD 4 1256 B T09 18 250 1 260 SENSE MCW TSENSE,STMTYP 7 1260 M M75 L94 18 251 1 267 B CLASSD 4 1267 B T09 18 252 * 253 * SECOND LETTER IS (E)Q(UIVALENCE), (D)I(MENSION), 254 * (E)N(D) OR (E)N(DFILE), (P)U(NCH) OR (P)A(USE) 255 * 256 1 271 QINUA2 MCW WORD-1,STMTYP 7 1271 M M14 L94 18 257 1 278 BCE N2,TQINUA&7,N 8 1278 B S90 S24 N 19 258 1 286 B CLASSD 4 1286 B T09 19 259 * 260 * SECOND LETTER IS N. CHECK FOR ENDFILE. 261 * 262 1 290 N2 C WORD-2,KDFILE IS WORD .NDFILE? 7 1290 C M13 M80 19 263 1 297 BE CLASSD 5 1297 B T09 S 19 264 1 302 MCW TSLASH,STMTYP SET TYPE TO / 7 1302 M M81 L94 19 265 * 266 * STATEMENT IS CLASSIFIED 267 * 268 1 309 CLASSD CW WORD 4 1309 ) M15 19 269 1 313 CW 1 1313 ) 19 270 1 314 CLASS2 CW STMTYP 4 1314 ) L94 20 271 1 318 MVBACK LCA STMTSV,0 MOVE THE STATEMENT BACK 7 1318 L L97 000 20 272 1 325 SBR MVBACK&6 4 1325 H T24 20 273 1 329 SBR CKBLNK&6 4 1329 H T43 20 274 1 333 SBR 83 ADDRESS BELOW LAST STMT, FOR NEXT PHASE 4 1333 H 083 20 275 1 337 CKBLNK BCE DONE,0-0, 8 1337 B W72 000 20 276 1 345 B MVSTMT 4 1345 B 996 20 277 * 278 * LEFT PARENTHESIS OR GROUP MARK 279 * 280 1 349 LPAREN MCW EQTEST&6,X1 7 1349 M /08 089 21 281 1 356 BCE RPAREN,1&X1,) 8 1356 B T69 0|1 ) 21 282 1 364 B 1 1364 B 21 283 1 365 B CLASS2 4 1365 B T14 21 284 1 369 RPAREN BCE LPAR2,2&X1,% 8 1369 B T85 0|2 % 21 285 1 377 SBR X1 4 1377 H 089 21 286 1 381 B RPAREN 4 1381 B T69 21 287 1 385 LPAR2 BCE F,3&X1,F 8 1385 B T97 0|3 F 22 288 1 393 B CLASS2 4 1393 B T14 22 289 1 397 F BCE CLASS2,6&X1,: 8 1397 B T14 0|6 : 22 290 1 405 CHAIN 2 MACRO 291 BCE 1 1405 B GEN 22 292 BCE 1 1406 B GEN 22 293 1 407 MCW TARITH,STMTYP 7 1407 M M82 L94 22 294 1 414 SW 195 4 1414 , 195 22 295 1 418 B CLASS2 4 1418 B T14 23 296 * 297 * FIRST LETTER IS NOT BFCS AND SECOND LETTER IS NOT QINUA FORTRAN COMPILER -- SCANNER -- PHASE 03 PAGE 5 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 * 299 1 422 OTHER CW WORD 4 1422 ) M15 23 300 1 426 CW 1 1426 ) 23 301 1 427 C WORD,KFI IF ( SENSE...? 7 1427 C M15 M32 23 302 1 434 BU NOTIF 5 1434 B V21 / 23 303 1 439 BCE SLITE,WORD-8,L 8 1439 B U58 M07 L 23 304 1 447 MCW TSSW,STMTYP SENSE SWITCH 7 1447 M M40 L94 23 305 1 454 B CLASS2 4 1454 B T14 24 306 * 307 * NINTH CHARACTER IS L -- ASSUME IF ( SENSE LIGHT ... ) 308 * 309 1 458 SLITE MCW TSLITE,STMTYP 7 1458 M M83 L94 24 310 1 465 B CLASS2 4 1465 B T14 24 311 * 312 * BAD MODULUS MESSAGE 313 * 314 1 469 BADMOD CS 332 4 1469 / 332 24 315 1 473 CS 1 1473 / 24 316 1 474 MCW MSG42,218 7 1474 M N01 218 24 317 1 481 W 1 1481 2 24 318 1 482 CC J 2 1482 F J 25 319 1 484 MCW INTDEF,IMOD 7 1484 M M42 690 25 320 1 491 B MANCHK 4 1491 B 914 25 321 * 322 * BAD MANTISSA MESSAGE 323 * 324 1 495 BADMAN CS 332 4 1495 / 332 25 325 1 499 CS 1 1499 / 25 326 1 500 MCW MSG43,219 7 1500 M N20 219 25 327 1 507 W 1 1507 2 25 328 1 508 CC J 2 1508 F J 26 329 1 510 MCW FLTDEF,MANTIS 7 1510 M M44 692 26 330 1 517 B BADRET 4 1517 B 938 26 331 * 332 * NOT AN IF STATEMENT, CHECK FOR OTHERS 333 * 334 1 521 NOTIF BCE DO,WORD,D 8 1521 B V95 M15 D 26 335 1 529 BCE LPAR3,WORD-2,% 8 1529 B W06 M13 % 26 336 1 537 BCE LPAR5,WORD-4,% 8 1537 B W17 M11 % 26 337 1 545 BCE GOTO,WORD,G 8 1545 B W28 M15 G 27 338 1 553 BCE PRINT,WORD,P 8 1553 B W39 M15 P 27 339 1 561 BWZ READ,WORD-4,2 8 1561 V W50 M11 2 27 340 1 569 BCE RWD,WORD-5,D 8 1569 B W61 M10 D 27 341 1 577 MCW K1,STMTYP 7 1577 M M01 L94 27 342 1 584 MN WORD-5,STMTYP USE NUMERIC OF SIXTH CHAR 7 1584 D M10 L94 28 343 1 591 B CLASS2 4 1591 B T14 28 344 * 345 * FIRST LETTER IS D(O) 346 * 347 1 595 DO MCW TDO,STMTYP 7 1595 M M39 L94 28 FORTRAN COMPILER -- SCANNER -- PHASE 03 PAGE 6 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 1 602 B CLASS2 4 1602 B T14 28 349 * 350 * THIRD CHARACTER IS LEFT PARENTHESIS 351 * 352 1 606 LPAR3 MCW TIF,STMTYP 7 1606 M M38 L94 28 353 1 613 B CLASS2 4 1613 B T14 28 354 * 355 * FIFTH CHARACTER IS LEFT PARENTHESIS -- ASSUME COMPUTED GOTO 356 * 357 1 617 LPAR5 MCW TCGO,STMTYP 7 1617 M M37 L94 29 358 1 624 B CLASS2 4 1624 B T14 29 359 * 360 * FIRST CHARACTER IS G 361 * 362 1 628 GOTO MCW TGO,STMTYP 7 1628 M M36 L94 29 363 1 635 B CLASS2 4 1635 B T14 29 364 * 365 * FIRST CHARACTER IS P 366 * 367 1 639 PRINT MCW TPRINT,STMTYP 7 1639 M M35 L94 29 368 1 646 B CLASS2 4 1646 B T14 29 369 * 370 * FIFTH CHARACTER IS NUMERIC -- ASSUME IT'S READ 371 * 372 1 650 READ MCW TREAD,STMTYP 7 1650 M M34 L94 30 373 1 657 B CLASS2 4 1657 B T14 30 374 * 375 * SIXTH CHARACTER IS D -- ASSUME REWIND 376 * 377 1 661 RWD MCW TREW,STMTYP 7 1661 M M33 L94 30 378 1 668 B CLASS2 4 1668 B T14 30 379 * 380 * ALL DONE 381 * 382 1 672 DONE BSS SNAPSH,C 5 1672 B 333 C 30 383 1 677 SBR LOADEX&3,1010 7 1677 H 796 |10 30 384 1 684 SBR CLEARL&3,2599 7 1684 H 710 N99 31 385 1 691 LCA SORTER,PHASID 7 1691 L N30 110 31 386 1 698 B LOADNX 4 1698 B 700 31 387 1 702 DCW #1 1 1702 31 388 1 703 DCW #1 1 1703 31 389 * 390 STMTST EQU 2393 STATEMENT START 2393 391 STMTYP EQU 2394 STATEMENT TYPE -- F FOR FORMAT 2394 392 STMTSV EQU 2397 2397 393 * 394 * CONSTANTS AND WORK AREAS 395 * 396 ORG 2398 2398 397 2 400 STMTNO DCW 001 3 2400 32 FORTRAN COMPILER -- SCANNER -- PHASE 03 PAGE 7 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 2 401 K1 DCW 1 1 2401 32 399 2 404 STMTPT DCW #3 STATEMENT POINTER 3 2404 32 400 2 405 CHAR DCW #1 CHARACTER BEING EXAMINED 1 2405 32 401 2 415 WORD DCW #10 10 2415 32 402 2 420 KQINUA DC @QINUA@ TEST SECOND CHARACTER OF STATEMENT 5 2420 32 403 2 424 KBFCS DC @BFCS@ TEST FIRST CHARACTER OF STATEMENT 4 2424 32 404 2 430 KFI DCW @ESNES%FI@ IF(SENSE SPELLED BACKWARD 8 2432 32 405 2 433 TREW DC @Z@ STATEMENT CODE FOR REWIND 1 2433 32 406 2 434 TREAD DC @L@ STATEMENT CODE FOR READ 1 2434 32 407 2 435 TPRINT DC @P@ STATEMENT CODE FOR PRINT 1 2435 32 408 2 436 TGO DC @G@ STATEMENT CODE FOR GOTO 1 2436 32 409 2 437 TCGO DC @T@ STATEMENT CODE FOR COMPUTED GOTO 1 2437 33 410 2 438 TIF DC @E@ STATEMENT CODE FOR IF 1 2438 33 411 2 439 TDO DC @D@ STATEMENT CODE FOR DO 1 2439 33 412 2 440 TSSW DC @W@ STATEMENT CODE FOR IF ( SENSE SWITCH ... 1 2440 33 413 2 442 INTDEF DCW 05 DEFAULT INTEGER MODULUS 2 2442 33 414 2 444 FLTDEF DCW 08 DEFAULT FLOATING POINT MANTISSA DIGITS 2 2444 33 415 2 446 INTMIN DCW 01 MINIMUM INTEGER MODULUS 2 2446 33 416 2 448 DIGMAX DCW 20 MAXIMUM INT MOD AND MAX FP MANTISSA 2 2448 33 417 2 450 FLTMIN DCW 02 MINIMUM FLOATING POINT MANTISSA DIGITS 2 2450 34 418 2 460 MODMSG DCW @MODULUS IS@ 10 2460 34 419 2 471 MANMSG DCW @MANTISSA IS@ 11 2471 34 420 2 474 KNSE DCW @ESN@ NSE (PART OF SENSELIGHT) SPELT BACKWARD 3 2474 34 421 2 475 TSENSE DCW @J@ STATEMENT CODE FOR SENSE LIGHT 1 2475 34 422 2 480 KDFILE DCW @ELIFD@ DFILE (PART OF ENDFILE) SPELT BACKWARD 5 2480 34 423 2 481 TSLASH DCW @/@ STATEMENT CODE FOR END 1 2481 34 424 2 482 TARITH DCW @R@ STATEMENT CODE FOR ARITHMETIC 1 2482 35 425 2 483 TSLITE DCW @K@ STATEMENT CODE FOR IF ( SENSE LIGHT... 1 2483 35 426 2 501 MSG42 DCW @ERROR 42 - MODULUS@ 18 2501 35 427 2 520 MSG43 DCW @ERROR 43 - MANTISSA@ 19 2520 35 428 2 530 SORTER DCW @SORTER ONE@ 10 2530 36 429 ORG 2600 2600 430 2 600 GMWM DCW @}@ 1 2600 GMARK 37 431 ORG 201 0201 432 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 838 38 433 EX BEGINN B 838 39 434 END / 000 080 FORTRAN COMPILER -- SCANNER -- PHASE 03 PAGE 8 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BADMAN 1495 BADMOD 1469 BADRET 938 BEGINN 838 BFCS1 1237 C1410 695 CHAR 2405 CHKLB2 1059 CHKLBL 1043 CKBLNK 1337 CKWORD 1173 CLASS2 1314 CLASSD 1309 CLEARL 707 CONDNS 693 CORCHK 979 DIGMAX 2448 DO 1595 DONE 1672 ENDCHK 1089 EQ 1119 EQTEST 1102 F 1397 FDEF 883 FLTDEF 2444 FLTMIN 2450 FMTSW 696 FSPEC 890 GMWM 2600 GOTO 1628 IDEF 864 IMOD 690 INTDEF 2442 INTMIN 2446 ISPEC 871 K1 2401 KBFCS 2424 KDFILE 2480 KFI 2432 KNSE 2474 KQINUA 2420 LOADDD 838 LOADEX 793 LOADNX 700 LPAR2 1385 LPAR3 1606 LPAR5 1617 LPAREN 1349 MANCHK 914 MANMSG 2471 MANTIS 692 MODMSG 2460 MSG42 2501 MSG43 2520 MVBACK 1318 MVSTMT 996 N2 1290 NOTIF 1521 OTHER 1422 PARAM 699 PHASID 110 PRINT 1639 PWORD 685 QINUA2 1271 READ 1650 RPAREN 1369 RWD 1661 SENSE 1260 SLITE 1458 SNAPSH 333 SNAPSW 694 SORTER 2530 STMTNO 2400 STMTPT 2404 STMTST 2393 STMTSV 2397 STMTYP 2394 STSTMT 1075 SVCHAR 1134 TARITH 2482 TCGO 2437 TDO 2439 TGO 2436 TIF 2438 TOPCOR 688 TPRINT 2435 TQINUA 1217 TREAD 2434 TREW 2433 TSENSE 2475 TSLASH 2481 TSLITE 2483 TSSW 2440 WORD 2415 X1 89 X2 94 X3 99