//DDS0411C JOB CLASS=A,MSGCLASS=H,REGION=4M,NOTIFY=&SYSUID 00000100 //********************************************************************* 00000200 //* 00000300 //* SCAN MACRO LIBRARY DIRECTORIES AND REPORT ON ASSEMBLER MACRO NAMES 00000300 //* WHICH CONFLICT WITH Z10 HARDWARE INSTRUCTION MNEMONICS. 00000400 //* 00000600 //* REQUIRED CHANGES ARE: 00000700 //* 00000800 //* 1) ADD A VALID JOB CARD 00000900 //* 2) INCLUDE A STATEMENT AS FOLLOWS FOR EACH MACRO LIBRARY 00001000 //* TO BE SCANNED: 00001100 //* 00001200 //* //STEP0001 EXEC PDSMEM,PDS='THIS.MACLIB' <=== MACLIB NAME 00001300 //* //STEP0002 EXEC PDSMEM,PDS='THAT.MACLIB' <=== MACLIB NAME 00001400 //* 00001500 //* A REPORT LIKE THE FOLLOWING WILL BE PRODUCED: 00001600 //* 00001700 //* **************************************************************** 00001800 //* * * 00001900 //* * **** Z10 OPCODE CONFLICT,MEMBER=BASSM LIB=DDS0411.MACLIB * 00002000 //* * **** Z10 OPCODE CONFLICT,MEMBER=L LIB=DDS0411.MACLIB * 00002100 //* * **** Z10 OPCODE CONFLICT,MEMBER=LTR LIB=DDS0411.MACLIB * 00002200 //* * * 00002300 //* * **** TOTAL Z10 OPCODE CONFLICTS = 3 * 00002400 //* * * 00002500 //* **************************************************************** 00002600 //* 00002700 //* WRITTEN BY: HANK CALZARETTA 00002800 //* IBM CORP 00002900 //* SYSTEM Z IT ARCHITECT 00003000 //* HECALZAR@US.IBM.COM 00003100 //* 00003200 //********************************************************************* 00003300 //* 00003400 //PDSMEM PROC PDS= 00003500 //*************************************************** 00003600 //* INSTREAM PROC TO LIST MEMBER NAMES IN A PDS 00003700 //*************************************************** 00003800 //STEP010 EXEC PGM=IKJEFT01,DYNAMNBR=30,PARM='PDSMEM' 00003900 //SYSPROC DD DSN=&&TMPCLIST,DISP=SHR 00004000 //ISPMLIB DD DISP=SHR,DSN=ISP.SISPMENU 00004100 //ISPPLIB DD DISP=SHR,DSN=ISP.SISPPENU 00004200 //ISPSLIB DD DISP=SHR,DSN=ISP.SISPSLIB 00004300 // DD DISP=SHR,DSN=ISP.SISPSENU 00004400 //ISPTLIB DD DISP=SHR,DSN=ISP.SISPTENU 00004500 //ISPPROF DD DISP=(,DELETE),SPACE=(TRK,(5,5,5)),UNIT=SYSDA, 00004600 // LRECL=80,BLKSIZE=0,RECFM=FB 00004700 //ISPLOG DD DISP=(,DELETE),SPACE=(TRK,(5,5)),UNIT=SYSDA, 00004800 // LRECL=80,BLKSIZE=0,RECFM=FB 00004900 //SYSOUT DD SYSOUT=* 00005000 //SYSTSPRT DD SYSOUT=* 00005100 //PDS DD DISP=SHR,DSN=&PDS 00005200 //MEMRPT DD DISP=(MOD,CATLG),UNIT=SYSDA,SPACE=(CYL,(1,1)), 00005300 // LRECL=80,BLKSIZE=3120,RECFM=FB, 00005400 // DSN=&&MEMRPT 00005500 //SYSTSIN DD DUMMY 00005600 // PEND 00005700 //************************************************* 00005800 //* COPY REXX EXECS TO TEMPORARY SYSPROC 00005900 //************************************************* 00006000 //STEP0002 EXEC PGM=IEBGENER 00006100 //SYSPRINT DD SYSOUT=* 00006200 //SYSIN DD DUMMY 00006300 //SYSUT1 DD *,DLM=## 00006400 /* rexx **********************************************/ 00006500 /* Exec PDSMEM creates a member listing from the PDS */ 00006600 /* pointed to by ddname PDS. Report is written to */ 00006700 /* file 'MEMRPT'. */ 00006800 /******************************************************/ 00006900 IF SYSVAR(SYSISPF) <> 'ACTIVE' THEN DO 00007000 "ISPSTART CMD(PDSMEM)" 00007100 EXIT 00007200 END 00007300 address ISPEXEC 00007400 "LMINIT DATAID(PDSDID) DDNAME(PDS) ENQ(SHR)" 00007500 "LMOPEN DATAID("PDSDID") OPTION(INPUT)" 00007600 ddinfo = listdsi("PDS" "FILE") 00007700 pdsname = sysdsname 00007800 do forever 00007900 "LMMLIST DATAID("PDSDID") MEMBER(MEMBER) OPTION(LIST)" 00008000 listrc = rc 00008100 if listrc > 0 then leave 00008200 outline = left(member,8," ") || " " || pdsname 00008300 push outline 00008400 address TSO "EXECIO 1 DISKW "MEMRPT 00008500 end 00008600 address ISPEXEC "LMCLOSE DATAID("PDSDID")" 00008700 ## 00008800 //SYSUT2 DD DSN=&&TMPCLIST(PDSMEM),UNIT=SYSDA,SPACE=(TRK,(1,1,1)), 00008900 // DISP=(,PASS),LRECL=80,BLKSIZE=3120,RECFM=FB 00009000 /* 00009100 //STEP0003 EXEC PGM=IEBGENER 00009200 //SYSPRINT DD SYSOUT=* 00009300 //SYSIN DD DUMMY 00009400 //SYSUT1 DD *,DLM=## 00009500 /* rexx ***********************************************/ 00009600 /* Exec CHKOPS compares the member names from macro */ 00009700 /* libraries with the list of valid z10 assembler */ 00009800 /* mnemonics. Matches are reported in file SYSPRINT. */ 00009900 /* The member list is created by exec PDSMEM and is */ 00010000 /* read from file MEMRPT. The z10 mnemonics are read */ 00010100 /* from file Z10OPS. This list was compiled from the */ 00010200 /* "Principles of Operation" manual */ 00010200 /*******************************************************/ 00010300 cnt = 0 00010400 do forever 00010500 address TSO "EXECIO 1 DISKR "Z10OPS 00010600 if rc = 2 then leave 00010700 pull inline 00010800 op = word(inline,1) 00010900 if op = '*' then iterate 00011000 ops.op = 'X' 00011100 end 00011200 00011300 do forever 00011400 address TSO "EXECIO 1 DISKR "MEMRPT 00011500 if rc = 2 then leave 00011600 pull inline 00011700 op = word(inline,1) 00011800 lib = word(inline,2) 00011900 if ops.op = 'X' then do 00012000 op = left(op,8," ") 00012100 say " **** Z10 OPCODE CONFLICT,MEMBER=" || op || " LIB=" || lib 00012200 cnt = cnt + 1 00012300 end 00012400 end 00012500 00012600 say " " 00012700 say " **** TOTAL Z10 OPCODE CONFLICTS =" cnt 00012800 ## 00012900 //SYSUT2 DD DSN=&&TMPCLIST(CHKOPS),DISP=SHR 00013000 /* 00013100 //************************************************* 00013200 //* EXECUTE PDSMEM PROC TO LIST MEMBER NAMES 00013300 //* 00013400 //* **** INCLUDE ONE STATEMENT BELOW FOR EACH *** 00013500 //* **** MACRO LIBRARY TO BE SCANNED *** 00013600 //* \/ \/ 00013700 //************************************************* 00013800 //STEP0001 EXEC PDSMEM,PDS='THIS.MACLIB' <=== MACLIB NAME 00013910 //STEP0002 EXEC PDSMEM,PDS='THAT.MACLIB' <=== MACLIB NAME 00014000 //************************************************* 00014100 //* EXECUTE CHKOPS EXEC TO REPORT ON MACRO NAMES 00014200 //* WHICH CONFLICT WITH Z10 MNEMONICS 00014300 //************************************************* 00014400 //STEP0003 EXEC PGM=IKJEFT01,DYNAMNBR=30,PARM='CHKOPS' 00014500 //SYSPROC DD DSN=&&TMPCLIST,DISP=SHR 00014600 //ISPMLIB DD DISP=SHR,DSN=ISP.SISPMENU 00014700 //ISPPLIB DD DISP=SHR,DSN=ISP.SISPPENU 00014800 //ISPSLIB DD DISP=SHR,DSN=ISP.SISPSLIB 00014900 // DD DISP=SHR,DSN=ISP.SISPSENU 00015000 //ISPTLIB DD DISP=SHR,DSN=ISP.SISPTENU 00015100 //ISPPROF DD DISP=(,DELETE),SPACE=(TRK,(5,5,5)),UNIT=SYSDA, 00015200 // LRECL=80,BLKSIZE=0,RECFM=FB 00015300 //ISPLOG DD DISP=(,DELETE),SPACE=(TRK,(5,5)),UNIT=SYSDA, 00015400 // LRECL=80,BLKSIZE=0,RECFM=FB 00015500 //SYSOUT DD SYSOUT=* 00015600 //SYSTSPRT DD SYSOUT=* 00015700 //MEMRPT DD DISP=SHR,DSN=&&MEMRPT 00015800 //SYSTSIN DD DUMMY 00015900 //Z10OPS DD * 00016000 * z/10 Hardware Instruction Mnemonics **** 00016100 A 00016200 AD 00016300 ADB 00016400 ADBR 00016500 ADR 00016600 ADTR 00016700 AE 00016800 AEB 00016900 AEBR 00017000 AER 00017100 AFI 00017200 AG 00017300 AGF 00017400 AGFI 00017500 AGFR 00017600 AGHI 00017700 AGR 00017800 AGSI 00017900 AH 00018000 AHI 00018100 AHY 00018200 AL 00018300 ALC 00018400 ALCG 00018500 ALCGR 00018600 ALCR 00018700 ALFI 00018800 ALG 00018900 ALGF 00019000 ALGFI 00019100 ALGFR 00019200 ALGR 00019300 ALGSI 00019400 ALR 00019500 ALSI 00019600 ALY 00019700 AP 00019800 AR 00019900 ASI 00020000 AU 00020100 AUR 00020200 AW 00020300 AWR 00020400 AXBR 00020500 AXR 00020600 AXTR 00020700 AY 00020800 BAKR 00020900 BAL 00021000 BALR 00021100 BAS 00021200 BASR 00021300 BASSM 00021400 BC 00021500 BCR 00021600 BCT 00021700 BCTG 00021800 BCTGR 00021900 BCTR 00022000 BRAS 00022100 BRASL 00022200 BRC 00022300 BRCL 00022400 BRCT 00022500 BRCTG 00022600 BRXH 00022700 BRXHG 00022800 BRXLE 00022900 BRXLG 00023000 BSA 00023100 BSG 00023200 BSM 00023300 BXH 00023400 BXHG 00023500 BXLE 00023600 BXLEG 00023700 C 00023800 CD 00023900 CDB 00024000 CDBR 00024100 CDFBR 00024200 CDFR 00024300 CDGBR 00024400 CDGR 00024500 CDGTR 00024600 CDR 00024700 CDS 00024800 CDSG 00024900 CDSTR 00025000 CDSY 00025100 CDTR 00025200 CDUTR 00025300 CE 00025400 CEB 00025500 CEBR 00025600 CEDTR 00025700 CEFBR 00025800 CEFR 00025900 CEGBR 00026000 CEGR 00026100 CER 00026200 CEXTR 00026300 CFC 00026400 CFDBR 00026500 CFDR 00026600 CFEBR 00026700 CFER 00026800 CFI 00026900 CFXBR 00027000 CFXR 00027100 CG 00027200 CGDBR 00027300 CGDR 00027400 CGDTR 00027500 CGEBR 00027600 CGER 00027700 CGF 00027800 CGFI 00027900 CGFR 00028000 CGFRL 00028100 CGH 00028200 CGHI 00028300 CGHRL 00028400 CGHSI 00028500 CGIB 00028600 CGIJ 00028700 CGIT 00028800 CGR 00028900 CGRB 00029000 CGRJ 00029100 CGRL 00029200 CGRT 00029300 CGXBR 00029400 CGXR 00029500 CGXTR 00029600 CH 00029700 CHHSI 00029800 CHI 00029900 CHRL 00030000 CHSI 00030100 CHY 00030200 CIB 00030300 CIJ 00030400 CIT 00030500 CKSM 00030600 CL 00030700 CLC 00030800 CLCL 00030900 CLCLE 00031000 CLCLU 00031100 CLFHSI 00031200 CLFI 00031300 CLFIT 00031400 CLG 00031500 CLGF 00031600 CLGFI 00031700 CLGFR 00031800 CLGFRL 00031900 CLGHRL 00032000 CLGHSI 00032100 CLGIB 00032200 CLGIJ 00032300 CLGIT 00032400 CLGR 00032500 CLGRB 00032600 CLGRJ 00032700 CLGRL 00032800 CLGRT 00032900 CLHHSI 00033000 CLHRL 00033100 CLI 00033200 CLIB 00033300 CLIJ 00033400 CLIY 00033500 CLM 00033600 CLMH 00033700 CLMY 00033800 CLR 00033900 CLRB 00034000 CLRJ 00034100 CLRL 00034200 CLRT 00034300 CLST 00034400 CLY 00034500 CMPSC 00034600 CP 00034700 CPSDR 00034800 CPYA 00034900 CR 00035000 CRB 00035100 CRJ 00035200 CRL 00035300 CRT 00035400 CS 00035500 CSCH 00035600 CSDTR 00035700 CSG 00035800 CSP 00035900 CSPG 00036000 CSST 00036100 CSXTR 00036200 CSY 00036300 CU12 00036400 CU14 00036500 CU21 00036600 CU24 00036700 CU41 00036800 CU42 00036900 CUDTR 00037000 CUSE 00037100 CUTFU 00037200 CUUTF 00037300 CUXTR 00037400 CVB 00037500 CVBG 00037600 CVBY 00037700 CVD 00037800 CVDG 00037900 CVDY 00038000 CXBR 00038100 CXFBR 00038200 CXFR 00038300 CXGBR 00038400 CXGR 00038500 CXGTR 00038600 CXR 00038700 CXSTR 00038800 CXTR 00038900 CXUTR 00039000 CY 00039100 D 00039200 DD 00039300 DDB 00039400 DDBR 00039500 DDR 00039600 DDTR 00039700 DE 00039800 DEB 00039900 DEBR 00040000 DER 00040100 DIDBR 00040200 DIEBR 00040300 DL 00040400 DLG 00040500 DLGR 00040600 DLR 00040700 DP 00040800 DR 00040900 DSG 00041000 DSGF 00041100 DSGFR 00041200 DSGR 00041300 DXBR 00041400 DXR 00041500 DXTR 00041600 EAR 00041700 ECAG 00041800 ECTG 00041900 ED 00042000 EDMK 00042100 EEDTR 00042200 EEXTR 00042300 EFPC 00042400 EPAIR 00042500 EPAR 00042600 EPSW 00042700 EREG 00042800 EREGG 00042900 ESAIR 00043000 ESAR 00043100 ESDTR 00043200 ESEA 00043300 ESTA 00043400 ESXTR 00043500 EX 00043600 EXRL 00043700 FIDBR 00043800 FIDR 00043900 FIDTR 00044000 FIEBR 00044100 FIER 00044200 FIXBR 00044300 FIXR 00044400 FIXTR 00044500 FLOGR 00044600 HDR 00044700 HER 00044800 HSCH 00044900 IAC 00045000 IC 00045100 ICM 00045200 ICMH 00045300 ICMY 00045400 ICY 00045500 IDTE 00045600 IEDTR 00045700 IEXTR 00045800 IIHF 00045900 IIHH 00046000 IIHL 00046100 IILF 00046200 IILH 00046300 IILL 00046400 IPK 00046500 IPM 00046600 IPTE 00046700 ISKE 00046800 IVSK 00046900 KDB 00047000 KDBR 00047100 KDTR 00047200 KEB 00047300 KEBR 00047400 KIMD 00047500 KLMD 00047600 KM 00047700 KMAC 00047800 KMC 00047900 KXBR 00048000 KXTR 00048100 L 00048200 LA 00048300 LAE 00048400 LAEY 00048500 LAM 00048600 LAMY 00048700 LARL 00048800 LASP 00048900 LAY 00049000 LB 00049100 LBR 00049200 LCDBR 00049300 LCDFR 00049400 LCDR 00049500 LCEBR 00049600 LCER 00049700 LCGFR 00049800 LCGR 00049900 LCR 00050000 LCTL 00050100 LCTLG 00050200 LCXBR 00050300 LCXR 00050400 LD 00050500 LDE 00050600 LDEB 00050700 LDEBR 00050800 LDER 00050900 LDETR 00051000 LDGR 00051100 LDR 00051200 LDXBR 00051300 LDXR 00051400 LDXTR 00051500 LDY 00051600 LE 00051700 LEDBR 00051800 LEDR 00051900 LEDTR 00052000 LER 00052100 LEXBR 00052200 LEXR 00052300 LEY 00052400 LFAS 00052500 LFPC 00052600 LG 00052700 LGB 00052800 LGBR 00052900 LGDR 00053000 LGF 00053100 LGFI 00053200 LGFR 00053300 LGFRL 00053400 LGH 00053500 LGHI 00053600 LGHR 00053700 LGHRL 00053800 LGR 00053900 LGRL 00054000 LH 00054100 LHI 00054200 LHR 00054300 LHRL 00054400 LHY 00054500 LLC 00054600 LLCR 00054700 LLGC 00054800 LLGCR 00054900 LLGF 00055000 LLGFR 00055100 LLGFRL 00055200 LLGH 00055300 LLGHR 00055400 LLGHRL 00055500 LLGT 00055600 LLGTR 00055700 LLH 00055800 LLHR 00055900 LLHRL 00056000 LLIHF 00056100 LLIHH 00056200 LLIHL 00056300 LLILF 00056400 LLILH 00056500 LLILL 00056600 LM 00056700 LMD 00056800 LMG 00056900 LMH 00057000 LMY 00057100 LNDBR 00057200 LNDFR 00057300 LNDR 00057400 LNEBR 00057500 LNER 00057600 LNGFR 00057700 LNGR 00057800 LNR 00057900 LNXBR 00058000 LNXR 00058100 LPDBR 00058200 LPDFR 00058300 LPDR 00058400 LPEBR 00058500 LPER 00058600 LPGFR 00058700 LPGR 00058800 LPQ 00058900 LPR 00059000 LPSW 00059100 LPSWE 00059200 LPTEA 00059300 LPXBR 00059400 LPXR 00059500 LR 00059600 LRA 00059700 LRAG 00059800 LRAY 00059900 LRDR 00060000 LRER 00060100 LRL 00060200 LRV 00060300 LRVG 00060400 LRVGR 00060500 LRVH 00060600 LRVR 00060700 LT 00060800 LTDBR 00060900 LTDR 00061000 LTDTR 00061100 LTEBR 00061200 LTER 00061300 LTG 00061400 LTGF 00061500 LTGFR 00061600 LTGR 00061700 LTR 00061800 LTXBR 00061900 LTXR 00062000 LTXTR 00062100 LURA 00062200 LURAG 00062300 LXD 00062400 LXDB 00062500 LXDBR 00062600 LXDR 00062700 LXDTR 00062800 LXE 00062900 LXEB 00063000 LXEBR 00063100 LXER 00063200 LXR 00063300 LY 00063400 LZDR 00063500 LZER 00063600 LZXR 00063700 M 00063800 MAD 00063900 MADB 00064000 MADBR 00064100 MADR 00064200 MAE 00064300 MAEB 00064400 MAEBR 00064500 MAER 00064600 MAY 00064700 MAYH 00064800 MAYHR 00064900 MAYL 00065000 MAYLR 00065100 MAYR 00065200 MC 00065300 MD 00065400 MDB 00065500 MDBR 00065600 MDE 00065700 MDEB 00065800 MDEBR 00065900 MDER 00066000 MDR 00066100 MDTR 00066200 ME 00066300 MEE 00066400 MEEB 00066500 MEEBR 00066600 MEER 00066700 MER 00066800 MFY 00066900 MGHI 00067000 MH 00067100 MHI 00067200 MHY 00067300 ML 00067400 MLG 00067500 MLGR 00067600 MLR 00067700 MP 00067800 MR 00067900 MS 00068000 MSCH 00068100 MSD 00068200 MSDB 00068300 MSDBR 00068400 MSDR 00068500 MSE 00068600 MSEB 00068700 MSEBR 00068800 MSER 00068900 MSFI 00069000 MSG 00069100 MSGF 00069200 MSGFI 00069300 MSGFR 00069400 MSGR 00069500 MSR 00069600 MSTA 00069700 MSY 00069800 MVC 00069900 MVCDK 00070000 MVCIN 00070100 MVCK 00070200 MVCL 00070300 MVCLE 00070400 MVCLU 00070500 MVCOS 00070600 MVCP 00070700 MVCS 00070800 MVCSK 00070900 MVGHI 00071000 MVHHI 00071100 MVHI 00071200 MVI 00071300 MVIY 00071400 MVN 00071500 MVO 00071600 MVPG 00071700 MVST 00071800 MVZ 00071900 MXBR 00072000 MXD 00072100 MXDB 00072200 MXDBR 00072300 MXDR 00072400 MXR 00072500 MXTR 00072600 MY 00072700 MYH 00072800 MYHR 00072900 MYL 00073000 MYLR 00073100 MYR 00073200 N 00073300 NC 00073400 NG 00073500 NGR 00073600 NI 00073700 NIHF 00073800 NIHH 00073900 NIHL 00074000 NILF 00074100 NILH 00074200 NILL 00074300 NIY 00074400 NR 00074500 NY 00074600 O 00074700 OC 00074800 OG 00074900 OGR 00075000 OI 00075100 OIHF 00075200 OIHH 00075300 OIHL 00075400 OILF 00075500 OILH 00075600 OILL 00075700 OIY 00075800 OR 00075900 OY 00076000 PACK 00076100 PALB 00076200 PC 00076300 PFD 00076400 PFDRL 00076500 PFMF 00076600 PFPO 00076700 PGIN 00076800 PGOUT 00076900 PKA 00077000 PKU 00077100 PLO 00077200 PR 00077300 PT 00077400 PTF 00077500 PTFF 00077600 PTI 00077700 PTLB 00077800 QADTR 00077900 QAXTR 00078000 RCHP 00078100 RISBG 00078200 RLL 00078300 RLLG 00078400 RNSBG 00078500 ROSBG 00078600 RP 00078700 RRBE 00078800 RRDTR 00078900 RRXTR 00079000 RSCH 00079100 RXSBG 00079200 S 00079300 SAC 00079400 SACF 00079500 SAL 00079600 SAM24 00079700 SAM31 00079800 SAM64 00079900 SAR 00080000 SCHM 00080100 SCK 00080200 SCKC 00080300 SCKPF 00080400 SD 00080500 SDB 00080600 SDBR 00080700 SDR 00080800 SDTR 00080900 SE 00081000 SEB 00081100 SEBR 00081200 SER 00081300 SFASR 00081400 SFPC 00081500 SG 00081600 SGF 00081700 SGFR 00081800 SGR 00081900 SH 00082000 SHY 00082100 SIGP 00082200 SL 00082300 SLA 00082400 SLAG 00082500 SLB 00082600 SLBG 00082700 SLBGR 00082800 SLBR 00082900 SLDA 00083000 SLDL 00083100 SLDT 00083200 SLFI 00083300 SLG 00083400 SLGF 00083500 SLGFI 00083600 SLGFR 00083700 SLGR 00083800 SLL 00083900 SLLG 00084000 SLR 00084100 SLXT 00084200 SLY 00084300 SP 00084400 SPKA 00084500 SPM 00084600 SPT 00084700 SPX 00084800 SQD 00084900 SQDB 00085000 SQDBR 00085100 SQDR 00085200 SQE 00085300 SQEB 00085400 SQEBR 00085500 SQER 00085600 SQXBR 00085700 SQXR 00085800 SR 00085900 SRA 00086000 SRAG 00086100 SRDA 00086200 SRDL 00086300 SRDT 00086400 SRL 00086500 SRLG 00086600 SRNM 00086700 SRNMT 00086800 SRP 00086900 SRST 00087000 SRSTU 00087100 SRXT 00087200 SSAIR 00087300 SSAR 00087400 SSCH 00087500 SSKE 00087600 SSM 00087700 ST 00087800 STAM 00087900 STAMY 00088000 STAP 00088100 STC 00088200 STCK 00088300 STCKC 00088400 STCKE 00088500 STCKF 00088600 STCM 00088700 STCMH 00088800 STCMY 00088900 STCPS 00089000 STCRW 00089100 STCTG 00089200 STCTL 00089300 STCY 00089400 STD 00089500 STDY 00089600 STE 00089700 STEY 00089800 STFL 00089900 STFLE 00090000 STFPC 00090100 STG 00090200 STGRL 00090300 STH 00090400 STHRL 00090500 STHY 00090600 STIDP 00090700 STM 00090800 STMG 00090900 STMH 00091000 STMY 00091100 STNSM 00091200 STOSM 00091300 STPQ 00091400 STPT 00091500 STPX 00091600 STRAG 00091700 STRL 00091800 STRV 00091900 STRVG 00092000 STRVH 00092100 STSCH 00092200 STSI 00092300 STURA 00092400 STURG 00092500 STY 00092600 SU 00092700 SUR 00092800 SVC 00092900 SW 00093000 SWR 00093100 SXBR 00093200 SXR 00093300 SXTR 00093400 SY 00093500 TAM 00093600 TAR 00093700 TB 00093800 TBDR 00093900 TBEDR 00094000 TCDB 00094100 TCEB 00094200 TCXB 00094300 TDCDT 00094400 TDCET 00094500 TDCXT 00094600 TDGDT 00094700 TDGET 00094800 TDGXT 00094900 THDER 00095000 THDR 00095100 TM 00095200 TMH 00095300 TMHH 00095400 TMHL 00095500 TML 00095600 TMLH 00095700 TMLL 00095800 TMY 00095900 TP 00096000 TPI 00096100 TPROT 00096200 TR 00096300 TRACE 00096400 TRACG 00096500 TRAP2 00096600 TRAP4 00096700 TRE 00096800 TROO 00096900 TROT 00097000 TRT 00097100 TRTE 00097200 TRTO 00097300 TRTR 00097400 TRTRE 00097500 TRTT 00097600 TS 00097700 TSCH 00097800 UNPK 00097900 UNPKA 00098000 UNPKU 00098100 UPT 00098200 X 00098300 XC 00098400 XG 00098500 XGR 00098600 XI 00098700 XIHF 00098800 XILF 00098900 XIY 00099000 XR 00099100 XSCH 00099200 XY 00099300 ZAP 00099400 /* 00099500 // 00099600