TITLE 'IKTCAS53 - TCAS TABLE CREATION *00001000 ' 00002000 IKTCAS53 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IKTCAS53 78.053' 0001 00008000 DROP @15 00009000 @PROLOG STM @14,@00,12(@13) 0001 00010000 STM @02,@12,28(@13) 0001 00011000 BALR @12,0 0001 00012000 @PSTART DS 0H 0001 00013000 USING @PSTART,@12 0001 00014000 ST @13,@SA00001+4 0001 00015000 LA @14,@SA00001 0001 00016000 ST @14,8(,@13) 0001 00017000 LR @13,@14 0001 00018000 EJECT 00019000 * 0023 00020000 * /*****************************************************************/ 00021000 * /* */ 00022000 * /* GETMAIN FOR TCAST, DMPCD AND TIM/TOM LIST IN CSA IF STORAGE */ 00023000 * /* CANNOT BE OBTAINED, RETURN TO CALLER WITH A CODE X'1C' */ 00024000 * /* */ 00025000 * /*****************************************************************/ 00026000 * 0023 00027000 * R8=LENGTH(TCAST)+LENGTH(DMPCD)+LENGTH(TIOMLIST);/* LENGTH FOR 0023 00028000 * GETMAIN @ZA20856*/ 00029000 LA R8,219 0023 00030000 * RFY 0024 00031000 * (R14, 0024 00032000 * R15, 0024 00033000 * R0, 0024 00034000 * R1) RSTD /* RESTRICT PARA REG */ 00035000 * ; 0024 00036000 * GEN CODE; 0025 00037000 GETMAIN RC,LV=(8),SP=231 CONDITIONAL GETMAIN FOR TCAST 00038000 * IF R15^=0 /* RETURN CODE NOT ZERO */ 00039000 * THEN 0026 00040000 LTR R15,R15 0026 00041000 BZ @RF00026 0026 00042000 * DO; 0027 00043000 * RETURN CODE(RCNCSA); /* RETURN WITH CODE-NO STORAG*/ 00044000 LA @15,28 0028 00045000 L @13,4(,@13) 0028 00046000 L @14,12(,@13) 0028 00047000 L @00,20(,@13) 0028 00048000 LM @02,@12,28(@13) 0028 00049000 BR @14 0028 00050000 * END; 0029 00051000 * TCGSP=R1; /* KEEP RECORD PTR */ 00052000 @RF00026 ST R1,TCGSP 0030 00053000 * TCGSL=R8; /* KEEP RECORD LENGTH */ 00054000 ST R8,TCGSL 0031 00055000 * RFY 0032 00056000 * AREA BASED(R1); /* R1 CONTAIN ADDR OF GETMAIN */ 00057000 * AREA(1:R8)=AREA(1:R8)&& /* CLEAR THE AREA */ 00058000 * AREA(1:R8); 0033 00059000 LR @07,R8 0033 00060000 BCTR @07,0 0033 00061000 EX @07,@SX00971 0033 00062000 * R8=R1; /* R8 POINTS TO TCAST */ 00063000 LR R8,R1 0034 00064000 * RFY 0035 00065000 * (R14, 0035 00066000 * R15, 0035 00067000 * R0, 0035 00068000 * R1) UNRSTD /* UNRESTRI PARA R */ 00069000 * ; 0035 00070000 * RFY 0036 00071000 * TCAST BASED(R8); 0036 00072000 * 0036 00073000 * /*****************************************************************/ 00074000 * /* */ 00075000 * /* INITIALIZE TCAS TABLE VARIOUS MODULES ARE LOADED AND THIER */ 00076000 * /* ADDRESSES ARE STORED IN TCAST */ 00077000 * /* */ 00078000 * /*****************************************************************/ 00079000 * 0037 00080000 * R9=R8+LENGTH(TCAST); /* R9 POINTS TO VTAM DUMP CODE 0037 00081000 * TABLE @ZA20856*/ 00082000 LA R9,136 0037 00083000 ALR R9,R8 0037 00084000 * TCASDUMP=R9; /* STORE ADDRESS @ZA20856*/ 00085000 ST R9,TCASDUMP(,R8) 0038 00086000 * R9=R9+LENGTH(DMPCD); /* R9 PT TIM/TOM LIST@ZA20856 */ 00087000 AL R9,@CF00968 0039 00088000 * RFY 0040 00089000 * TIOMLIST BASED(R9); 0040 00090000 * TCASTTL=R9; /* STORE IN TCAST */ 00091000 ST R9,TCASTTL(,R8) 0041 00092000 * TIOMLEN=LENGTH(TIOMLIST); /* STORE LENGTH */ 00093000 MVC TIOMLEN(4,R9),@CF00056 0042 00094000 * RFY 0043 00095000 * (R14, 0043 00096000 * R15, 0043 00097000 * R0, 0043 00098000 * R1) RSTD /* RESTRICT PARA REG */ 00099000 * ; 0043 00100000 * GEN CODE; 0044 00101000 LOAD EP=IKTQMIN LOAD INPUT Q MANAGER 00102000 * TCASIQM=R0; /* STORE ADDR */ 00103000 ST R0,TCASIQM(,R8) 0045 00104000 * GEN CODE; 0046 00105000 LOAD EP=IKTQMOUT LOAD OUTPUT Q MANAGER 00106000 * TCASOQM=R0; /* STORE ADDR */ 00107000 ST R0,TCASOQM(,R8) 0047 00108000 * GEN CODE; 0048 00109000 LOAD EP=IKTMSGS LOAD MSG MODULE 00110000 * TCASMSGS=R0; /* STORE ADDR */ 00111000 ST R0,TCASMSGS(,R8) 0049 00112000 * GEN CODE; 0050 00113000 LOAD EP=IKTASCII LOAD ASCII TABLE 00114000 * TCASASCI=R0; /* STORE ADDR */ 00115000 ST R0,TCASASCI(,R8) 0051 00116000 * GEN CODE; 0052 00117000 LOAD EP=IKTLTERM LOAD LOST EXIT 00118000 * TCASLTE=R0; /* STORE ADDR */ 00119000 ST R0,TCASLTE(,R8) 0053 00120000 * GEN CODE; 0054 00121000 * /* LOAD TPEND EXIT @ZM21019*/ 00122000 LOAD EP=IKTTPEND /* @ZM21019*/ 00123000 * TCASTPND=R0; /* STORE TPEND ADDR @ZM21019*/ 00124000 ST R0,TCASTPND(,R8) 0055 00125000 * GEN CODE; 0056 00126000 LOAD EP=IKTTOMJR LOAD TOM JR 00127000 * TCASOMJR=R0; /* STORE ADDR */ 00128000 ST R0,TCASOMJR(,R8) 0057 00129000 * GEN CODE; 0058 00130000 * /* @G58AK3A*/ 00131000 LOAD EP=IKT3270I 3270 INPUT DATA RTN @G58AK3A 00132000 * TCASDATI=R0; /* STORE ADDR @G58AK3A*/ 00133000 ST R0,TCASDATI(,R8) 0059 00134000 * GEN CODE; 0060 00135000 * /* @G58AK3A*/ 00136000 LOAD EP=IKT3270O 3270 OUTPUT DATA RTN@G58AK3A 00137000 * TCASDATO=R0; /* STORE ADDR @G58AK3A*/ 00138000 ST R0,TCASDATO(,R8) 0061 00139000 * GEN CODE; 0062 00140000 * /* @G58AK3A*/ 00141000 LOAD EP=IKTATTN 3270 ATTN RTN @G58AK3A*/ 00142000 * TCASATTN=R0; /* STORE ADDR @G58AK3A*/ 00143000 ST R0,TCASATTN(,R8) 0063 00144000 * GEN CODE; 0064 00145000 * /* @G58AK3A*/ 00146000 LOAD EP=IKTIOFRR 3270 I/O FRR RTN @G58AK3A 00147000 * TCASFRR=R0; /* STORE ADDR @G58AK3A*/ 00148000 ST R0,TCASFRR(,R8) 0065 00149000 * GEN CODE; 0066 00150000 * /* @G58AK3A*/ 00151000 LOAD EP=IKTEXIT 3270 EXIT RTN @G58AK3A*/ 00152000 * TCASEXIT=R0; /* STORE ADDR @G58AK3A*/ 00153000 ST R0,TCASEXIT(,R8) 0067 00154000 * GEN CODE; 0068 00155000 * /* @ZA20856*/ 00156000 LOAD EP=IKTIST00 /* SCHED FRR RTN @ZA20856*/ 00157000 * TCASSCHD=R0; /* STORE ADDRESS @ZA20856*/ 00158000 * 0069 00159000 ST R0,TCASSCHD(,R8) 0069 00160000 * /*****************************************************************/ 00161000 * /* */ 00162000 * /* LOAD TIM/TOM MODULES AND STORE ADDRESSES IN TIM/TOM ADDRESS */ 00163000 * /* LIST */ 00164000 * /* */ 00165000 * /*****************************************************************/ 00166000 * 0070 00167000 * R10=ADDR(TIOMNAME); /* ADDR OF TIM/TOM NAME TABLE */ 00168000 LA R10,TIOMNAME 0070 00169000 * R9=R9+4; /* SKIP THE LEN FIELD */ 00170000 AL R9,@CF00081 0071 00171000 * DO WHILE(R10->TCWA4^=' '); /* THE LAST ENTRY IS BLANK */ 00172000 B @DE00072 0072 00173000 @DL00072 DS 0H 0073 00174000 * GEN CODE; 0073 00175000 LOAD EPLOC=(10) LOAD PROPER MODULE 00176000 * R9->TCWA3=R0; /* STORE ADDR OF MODULE */ 00177000 ST R0,TCWA3(,R9) 0074 00178000 * R9=R9+4; /* NEXT ADDR ON THE LIST */ 00179000 AL R9,@CF00081 0075 00180000 * R10=R10+8; /* NEXT NAME */ 00181000 AL R10,@CF00061 0076 00182000 * END; /* LOOP */ 00183000 @DE00072 CLC TCWA4(2,R10),@CC00961 0077 00184000 BNE @DL00072 0077 00185000 * TCASID='TCAS'; /* STORE ID */ 00186000 MVC TCASID(4,R8),@CC00962 0078 00187000 * TCASASCB=TWAASCB; /* STORE ASCB ADDR */ 00188000 * 0079 00189000 L @07,TWAASCB(,TWAPTR) 0079 00190000 ST @07,TCASASCB(,R8) 0079 00191000 * /*****************************************************************/ 00192000 * /* */ 00193000 * /* STORE ADDRESS OF TCAST IN CVT COMPARE SWAP IS USED. IF CS NOT */ 00194000 * /* SUCCESSFUL, IT MEANS TCAST ALREADY EXISTS, AND RETURN TO */ 00195000 * /* CALLER WITH CODE X'04' */ 00196000 * /* */ 00197000 * /*****************************************************************/ 00198000 * 0080 00199000 * R9=0; /* FOR COMPARE SWAP */ 00200000 SLR R9,R9 0080 00201000 * R10=ADDR(CVTTCASP); /* ADDR OF ADDR OF TCAST */ 00202000 L R10,CVTPTR 0081 00203000 LA R10,CVTTCASP(,R10) 0081 00204000 * GEN CODE; 0082 00205000 MODESET KEY=ZERO,MODE=SUP ENTER KEY ZERO AND SUP STATE 00206000 CS 9,8,0(10) ; COMPARE SWAP THE ADDR IN 00207000 MODESET KEY=NZERO,MODE=PROB BACK TO ORIGINAL 00208000 * RFY 0083 00209000 * (R14, 0083 00210000 * R15, 0083 00211000 * R0, 0083 00212000 * R1) UNRSTD /* UNRESTRI PARA R */ 00213000 * ; 0083 00214000 * IF R9^=0 /* IF CS NOT SUCCESSFUL */ 00215000 * THEN 0084 00216000 LTR R9,R9 0084 00217000 BZ @RF00084 0084 00218000 * DO; 0085 00219000 * CALL FREEST; /* TO FREE STORAGE */ 00220000 BAL @14,FREEST 0086 00221000 * RETURN CODE(RCINVS); /* RETURN WITH CODE-INVALID */ 00222000 LA @15,4 0087 00223000 L @13,4(,@13) 0087 00224000 L @14,12(,@13) 0087 00225000 L @00,20(,@13) 0087 00226000 LM @02,@12,28(@13) 0087 00227000 BR @14 0087 00228000 * END; 0088 00229000 * R1=R8; /* R1 CONTAIN ADDR OF TCAST */ 00230000 @RF00084 LR R1,R8 0089 00231000 * RETURN CODE(0); /* NORMAL RETURN */ 00232000 * 0090 00233000 SLR @15,@15 0090 00234000 L @13,4(,@13) 0090 00235000 L @14,12(,@13) 0090 00236000 L @00,20(,@13) 0090 00237000 LM @02,@12,28(@13) 0090 00238000 BR @14 0090 00239000 * /*****************************************************************/ 00240000 * /* */ 00241000 * /* FREE GETMAIN STORAGE */ 00242000 * /* */ 00243000 * /*****************************************************************/ 00244000 * 0091 00245000 *FREEST: 0091 00246000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0091 00247000 FREEST DS 0H 0092 00248000 * TCSAVE1=R14; /* SAVE RETURN REG */ 00249000 LR TCSAVE1,R14 0092 00250000 * R8=TCGSP; /* ADDR OF GETMAIN AREA */ 00251000 L R8,TCGSP 0093 00252000 * R9=TCGSL; /* LENGTH */ 00253000 L R9,TCGSL 0094 00254000 * RFY 0095 00255000 * (R14, 0095 00256000 * R15, 0095 00257000 * R0, 0095 00258000 * R1) RSTD /* RESTRICT PARA REG */ 00259000 * ; 0095 00260000 * GEN CODE; 0096 00261000 FREEMAIN E,LV=(R9),A=TCGSP,SP=231 FREEMAIN TCAST STORAGE 00262000 * RFY 0097 00263000 * (R14, 0097 00264000 * R15, 0097 00265000 * R0, 0097 00266000 * R1) UNRSTD /* UNRESTRI PARA R */ 00267000 * ; 0097 00268000 * R14=TCSAVE1; /* RESTORE RETURN REG */ 00269000 LR R14,TCSAVE1 0098 00270000 * END FREEST; 0099 00271000 @EL00002 DS 0H 0099 00272000 @EF00002 DS 0H 0099 00273000 @ER00002 BR @14 0099 00274000 * END IKTCAS53 0100 00275000 * 0100 00276000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00277000 */*%INCLUDE SYSLIB (IKTCASWA) */ 00278000 */*%INCLUDE SYSLIB (CVT ) */ 00279000 */*%INCLUDE SYSLIB (IKTTCAST) */ 00280000 */*%INCLUDE SYSLIB (IKTDMPCD) */ 00281000 * 0100 00282000 * ; 0100 00283000 @DATA DS 0H 00284000 @SX00971 XC AREA(0,R1),AREA(R1) 00285000 DS 0F 00286000 @SA00001 DS 18F 00287000 DS 0F 00288000 @CF00081 DC F'4' 00289000 @CF00061 DC F'8' 00290000 @CF00056 DC F'32' 00291000 @CF00968 DC F'51' 00292000 DS 0D 00293000 TCGSP DC A(0) 00294000 TCGSL DC F'0' 00295000 @CC00962 DC C'TCAS' 00296000 @CC00961 DC C' ' 00297000 TIOMNAME DC CL8'IKTIMIDS' 00298000 DC CL8'IKTOMIDS' 00299000 DC CL8'IKTTIMRT' 00300000 DC CL8'IKTTOMRT' 00301000 DC CL8'IKTIMLU2' 00302000 DC CL8'IKTOMLU2' 00303000 DC CL8' ' 00304000 DS CL2 00305000 PATCH DC 13F'0' 00306000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00307000 @01 EQU 01 00308000 @02 EQU 02 00309000 @03 EQU 03 00310000 @04 EQU 04 00311000 @05 EQU 05 00312000 @06 EQU 06 00313000 @07 EQU 07 00314000 @08 EQU 08 00315000 @09 EQU 09 00316000 @10 EQU 10 00317000 @11 EQU 11 00318000 @12 EQU 12 00319000 @13 EQU 13 00320000 @14 EQU 14 00321000 @15 EQU 15 00322000 TCSAVE1 EQU @06 00323000 R12 EQU @12 00324000 R1 EQU @01 00325000 TWAPTR EQU @11 00326000 R0 EQU @00 00327000 R8 EQU @08 00328000 R9 EQU @09 00329000 R10 EQU @10 00330000 R14 EQU @14 00331000 R15 EQU @15 00332000 R13 EQU @13 00333000 CVTPTR EQU 16 00334000 TWAR EQU 0 00335000 TWAASCB EQU TWAR+12 00336000 TWAMFL EQU TWAR+80 00337000 TWAVFL EQU TWAR+81 00338000 TWAUFL EQU TWAR+82 00339000 TWACFL EQU TWAR+83 00340000 TWAM EQU TWAR+84 00341000 TWAME EQU TWAM+68 00342000 TWAMEI EQU TWAME 00343000 TWAV EQU TWAR+184 00344000 TWAVE EQU TWAV+68 00345000 TWAVEI EQU TWAVE 00346000 TWAVI EQU TWAR+284 00347000 TWAU EQU TWAR+300 00348000 TWAUE EQU TWAU+68 00349000 TWAUEI EQU TWAUE 00350000 TWAUI EQU TWAR+400 00351000 TWAC EQU TWAR+408 00352000 TWACE EQU TWAC+68 00353000 TWACEI EQU TWACE 00354000 TWACI EQU TWAR+508 00355000 CVTMAP EQU 0 00356000 CVTDAR EQU CVTMAP+72 00357000 CVTFLGS1 EQU CVTDAR 00358000 CVTDCB EQU CVTMAP+116 00359000 CVTIERLC EQU CVTMAP+144 00360000 CVTOPTA EQU CVTMAP+182 00361000 CVTOPTB EQU CVTMAP+183 00362000 CVTGTF EQU CVTMAP+236 00363000 CVTGTFST EQU CVTGTF 00364000 CVTGTFS EQU CVTGTFST 00365000 CVTSTATE EQU CVTGTFST 00366000 CVTTMODE EQU CVTGTFST 00367000 CVTFORM EQU CVTGTFST 00368000 CVTAQAVT EQU CVTMAP+240 00369000 CVTTCMFG EQU CVTAQAVT 00370000 CVTVOLM2 EQU CVTMAP+244 00371000 CVTTATA EQU CVTVOLM2 00372000 CVTTSKS EQU CVTTATA 00373000 CVTVOLF2 EQU CVTTSKS 00374000 CVTTAT EQU CVTTATA+1 00375000 CVTATER EQU CVTMAP+248 00376000 CVTEXT1 EQU CVTMAP+252 00377000 CVTPURG EQU CVTMAP+260 00378000 CVTQMSG EQU CVTMAP+268 00379000 CVTDMSR EQU CVTMAP+272 00380000 CVTRSV37 EQU CVTDMSR 00381000 CVTDMSRF EQU CVTRSV37 00382000 CVTERPV EQU CVTMAP+316 00383000 CVTINTLA EQU CVTMAP+320 00384000 CVTAPF EQU CVTMAP+324 00385000 CVTEXT2 EQU CVTMAP+328 00386000 CVTHJES EQU CVTMAP+332 00387000 CVTPGSIA EQU CVTMAP+348 00388000 CVTA1F1 EQU CVTMAP+356 00389000 CVTSYSK EQU CVTMAP+357 00390000 CVTVOLM1 EQU CVTMAP+380 00391000 CVTVOLF1 EQU CVTVOLM1 00392000 CVTATMCT EQU CVTMAP+388 00393000 CVTXTNT1 EQU 0 00394000 CVTXTNT2 EQU 0 00395000 CVTDSSV EQU CVTXTNT2 00396000 CVTFLGBT EQU CVTXTNT2+5 00397000 CVTQID EQU CVTXTNT2+24 00398000 CVTSHS EQU CVTXTNT2+40 00399000 CVTRV400 EQU CVTXTNT2+52 00400000 CVTRV409 EQU CVTXTNT2+53 00401000 CVTATCVT EQU CVTXTNT2+64 00402000 CVTRV429 EQU CVTXTNT2+84 00403000 CVTRV438 EQU CVTXTNT2+85 00404000 CVTRV457 EQU CVTXTNT2+112 00405000 CVTRV466 EQU CVTXTNT2+113 00406000 CVTFIX EQU 0 00407000 CVTRELNO EQU CVTFIX+252 00408000 TCAST EQU 0 00409000 TCASID EQU TCAST 00410000 TCASUSER EQU TCAST+4 00411000 TCASDATI EQU TCAST+44 00412000 TCASDATO EQU TCAST+48 00413000 TCASMSGS EQU TCAST+52 00414000 TCASFRR EQU TCAST+56 00415000 TCASTTL EQU TCAST+64 00416000 TCASIQM EQU TCAST+72 00417000 TCASOQM EQU TCAST+76 00418000 TCASEXIT EQU TCAST+80 00419000 TCASLTE EQU TCAST+84 00420000 TCASFLG1 EQU TCAST+88 00421000 TCASFLG2 EQU TCAST+89 00422000 TCASASCB EQU TCAST+92 00423000 TCASASCI EQU TCAST+108 00424000 TCASATTN EQU TCAST+112 00425000 TCASOMJR EQU TCAST+120 00426000 TCASTPND EQU TCAST+124 00427000 TCASSCHD EQU TCAST+128 00428000 TCASDUMP EQU TCAST+132 00429000 TCASTPTR EQU 0 00430000 DMPCD EQU 0 00431000 DMPCD01 EQU DMPCD+3 00432000 DMPCD02 EQU DMPCD+6 00433000 DMPCD03 EQU DMPCD+9 00434000 DMPCD04 EQU DMPCD+12 00435000 DMPCD05 EQU DMPCD+15 00436000 DMPCD06 EQU DMPCD+18 00437000 DMPCD07 EQU DMPCD+21 00438000 DMPCD08 EQU DMPCD+24 00439000 DMPCD09 EQU DMPCD+27 00440000 DMPCD10 EQU DMPCD+30 00441000 DMPCD11 EQU DMPCD+33 00442000 DMPCD12 EQU DMPCD+36 00443000 DMPCD13 EQU DMPCD+39 00444000 DMPCD14 EQU DMPCD+42 00445000 DMPCD15 EQU DMPCD+45 00446000 DMPCD16 EQU DMPCD+48 00447000 TCWA3 EQU 0 00448000 TCWA4 EQU 0 00449000 AREA EQU 0 00450000 TIOMLIST EQU 0 00451000 TIOMLEN EQU TIOMLIST 00452000 CVTS01 EQU CVTPGSIA 00453000 CVTLPDIA EQU CVTS01+12 00454000 CVTDIRST EQU CVTLPDIA 00455000 CVTSLIDA EQU CVTS01+24 00456000 CVTCTLFG EQU CVTS01+50 00457000 CVTRV210 EQU CVTS01+424 00458000 CVTRV219 EQU CVTS01+425 00459000 CVTRV228 EQU CVTS01+426 00460000 CVTRV237 EQU CVTS01+427 00461000 CVTMFRTR EQU CVTS01+452 00462000 CVTRV262 EQU CVTS01+468 00463000 CVTRV271 EQU CVTS01+469 00464000 CVTRV280 EQU CVTS01+470 00465000 CVTRV289 EQU CVTS01+471 00466000 CVTGSDA EQU CVTS01+600 00467000 CVTTCASP EQU CVTS01+664 00468000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00469000 CVTRV628 EQU CVTS01+728 00470000 CVTRV627 EQU CVTS01+724 00471000 CVTRV626 EQU CVTS01+720 00472000 CVTRV625 EQU CVTS01+716 00473000 CVTRV624 EQU CVTS01+712 00474000 CVTRV623 EQU CVTS01+708 00475000 CVTRV622 EQU CVTS01+704 00476000 CVTRV621 EQU CVTS01+700 00477000 CVTRV620 EQU CVTS01+696 00478000 CVTRV619 EQU CVTS01+692 00479000 CVTRV618 EQU CVTS01+688 00480000 CVTRV617 EQU CVTS01+684 00481000 CVTRV616 EQU CVTS01+680 00482000 CVTRV615 EQU CVTS01+676 00483000 CVTRV614 EQU CVTS01+672 00484000 CVTRV613 EQU CVTS01+668 00485000 CVT0PT03 EQU CVTS01+660 00486000 CVT0PT0E EQU CVTS01+656 00487000 CVTIRM EQU CVTS01+652 00488000 CVTCGK EQU CVTS01+648 00489000 CVTRV607 EQU CVTS01+644 00490000 CVTRV606 EQU CVTS01+640 00491000 CVTRV605 EQU CVTS01+636 00492000 CVTRV604 EQU CVTS01+632 00493000 CVTEFF02 EQU CVTS01+628 00494000 CVTCBBR EQU CVTS01+624 00495000 CVTSSCR EQU CVTS01+620 00496000 CVTEVENT EQU CVTS01+616 00497000 CVTCRCA EQU CVTS01+612 00498000 CVTTPIO EQU CVTS01+608 00499000 CVTADV EQU CVTS01+604 00500000 CVTGSDAB EQU CVTGSDA 00501000 CVTQV3 EQU CVTS01+596 00502000 CVTQV2 EQU CVTS01+592 00503000 CVTQV1 EQU CVTS01+588 00504000 CVTRPT EQU CVTS01+584 00505000 CVTSSRB EQU CVTS01+580 00506000 CVTCSDRL EQU CVTS01+576 00507000 CVTEXP1 EQU CVTS01+572 00508000 CVTRMPMT EQU CVTS01+568 00509000 CVTRMPTT EQU CVTS01+564 00510000 CVTVPSA EQU CVTS01+560 00511000 CVTVSTOP EQU CVTS01+556 00512000 CVTGTFR8 EQU CVTS01+552 00513000 CVTQUIT EQU CVTS01+548 00514000 CVTVACR EQU CVTS01+544 00515000 CVTWTCB EQU CVTS01+540 00516000 CVTSTPRS EQU CVTS01+536 00517000 CVT0PT02 EQU CVTS01+532 00518000 CVTDARCM EQU CVTS01+528 00519000 CVTIRECM EQU CVTS01+524 00520000 CVTJRECM EQU CVTS01+520 00521000 CVTVEMS0 EQU CVTS01+516 00522000 CVTSPFRR EQU CVTS01+512 00523000 CVTRLSTG EQU CVTS01+508 00524000 CVT0TC0A EQU CVTS01+504 00525000 CVTGMBR EQU CVTS01+500 00526000 CVTLFRM EQU CVTS01+496 00527000 CVTRMBR EQU CVTS01+492 00528000 CVTVIOP EQU CVTS01+488 00529000 CVTRV307 EQU CVTS01+486 00530000 CVTRV306 EQU CVTS01+484 00531000 CVTRV305 EQU CVTS01+482 00532000 CVTRV304 EQU CVTS01+480 00533000 CVTRV303 EQU CVTS01+478 00534000 CVTRV302 EQU CVTS01+476 00535000 CVTTRCA EQU CVTS01+472 00536000 CVTRV297 EQU CVTRV289 00537000 CVTRV296 EQU CVTRV289 00538000 CVTRV295 EQU CVTRV289 00539000 CVTRV294 EQU CVTRV289 00540000 CVTRV293 EQU CVTRV289 00541000 CVTRV292 EQU CVTRV289 00542000 CVTRV291 EQU CVTRV289 00543000 CVTRV290 EQU CVTRV289 00544000 CVTRV288 EQU CVTRV280 00545000 CVTRV287 EQU CVTRV280 00546000 CVTRV286 EQU CVTRV280 00547000 CVTRV285 EQU CVTRV280 00548000 CVTRV284 EQU CVTRV280 00549000 CVTRV283 EQU CVTRV280 00550000 CVTRV282 EQU CVTRV280 00551000 CVTRV281 EQU CVTRV280 00552000 CVTRV279 EQU CVTRV271 00553000 CVTRV278 EQU CVTRV271 00554000 CVTRV277 EQU CVTRV271 00555000 CVTRV276 EQU CVTRV271 00556000 CVTRV275 EQU CVTRV271 00557000 CVTRV274 EQU CVTRV271 00558000 CVTRV273 EQU CVTRV271 00559000 CVTRV272 EQU CVTRV271 00560000 CVTRV270 EQU CVTRV262 00561000 CVTRV269 EQU CVTRV262 00562000 CVTRV268 EQU CVTRV262 00563000 CVTRV267 EQU CVTRV262 00564000 CVTRV266 EQU CVTRV262 00565000 CVTRV265 EQU CVTRV262 00566000 CVTRV264 EQU CVTRV262 00567000 CVTRV263 EQU CVTRV262 00568000 CVTVFP EQU CVTS01+464 00569000 CVTVSI EQU CVTS01+460 00570000 CVTVPSIB EQU CVTS01+456 00571000 CVTMFACT EQU CVTMFRTR 00572000 CVTMFCTL EQU CVTS01+448 00573000 CVTPVBP EQU CVTS01+444 00574000 CVTPWI EQU CVTS01+440 00575000 CVTRV254 EQU CVTS01+438 00576000 CVTRV253 EQU CVTS01+436 00577000 CVTRV252 EQU CVTS01+434 00578000 CVTRV251 EQU CVTS01+433 00579000 CVTRV250 EQU CVTS01+432 00580000 CVTRV249 EQU CVTS01+431 00581000 CVTRV248 EQU CVTS01+430 00582000 CVTRV247 EQU CVTS01+429 00583000 CVTRV246 EQU CVTS01+428 00584000 CVTRV245 EQU CVTRV237 00585000 CVTRV244 EQU CVTRV237 00586000 CVTRV243 EQU CVTRV237 00587000 CVTRV242 EQU CVTRV237 00588000 CVTRV241 EQU CVTRV237 00589000 CVTRV240 EQU CVTRV237 00590000 CVTRV239 EQU CVTRV237 00591000 CVTRV238 EQU CVTRV237 00592000 CVTRV236 EQU CVTRV228 00593000 CVTRV235 EQU CVTRV228 00594000 CVTRV234 EQU CVTRV228 00595000 CVTRV233 EQU CVTRV228 00596000 CVTRV232 EQU CVTRV228 00597000 CVTRV231 EQU CVTRV228 00598000 CVTRV230 EQU CVTRV228 00599000 CVTRV229 EQU CVTRV228 00600000 CVTRV227 EQU CVTRV219 00601000 CVTRV226 EQU CVTRV219 00602000 CVTRV225 EQU CVTRV219 00603000 CVTRV224 EQU CVTRV219 00604000 CVTRV223 EQU CVTRV219 00605000 CVTRV222 EQU CVTRV219 00606000 CVTRV221 EQU CVTRV219 00607000 CVTRV220 EQU CVTRV219 00608000 CVTRV218 EQU CVTRV210 00609000 CVTRV217 EQU CVTRV210 00610000 CVTRV216 EQU CVTRV210 00611000 CVTRV215 EQU CVTRV210 00612000 CVTRV214 EQU CVTRV210 00613000 CVTRV213 EQU CVTRV210 00614000 CVTRV212 EQU CVTRV210 00615000 CVTRV211 EQU CVTRV210 00616000 CVTLCCAT EQU CVTS01+420 00617000 CVTPCCAT EQU CVTS01+416 00618000 CVTIPCRP EQU CVTS01+412 00619000 CVTIPCRI EQU CVTS01+408 00620000 CVTIPCDS EQU CVTS01+404 00621000 CVTAIDVT EQU CVTS01+400 00622000 CVTSSAP EQU CVTS01+396 00623000 CVTEHCIR EQU CVTS01+392 00624000 CVTEHDEF EQU CVTS01+388 00625000 CVTDAIR EQU CVTS01+384 00626000 CVTPERFM EQU CVTS01+380 00627000 CVT044R2 EQU CVTS01+376 00628000 CVTFETCH EQU CVTS01+372 00629000 CVTRSTWD EQU CVTS01+368 00630000 CVTSPOST EQU CVTS01+364 00631000 CVTIOBP EQU CVTS01+360 00632000 CVTASMVT EQU CVTS01+356 00633000 CVTRECRQ EQU CVTS01+352 00634000 CVTWSAC EQU CVTS01+348 00635000 CVTRV149 EQU CVTS01+344 00636000 CVTWSAL EQU CVTS01+340 00637000 CVTSPSA EQU CVTS01+336 00638000 CVTGLMN EQU CVTS01+332 00639000 CVTVEAC0 EQU CVTS01+328 00640000 CVT062R1 EQU CVTS01+324 00641000 CVTRPOST EQU CVTS01+320 00642000 CVTDQIQE EQU CVTS01+316 00643000 CVTCSD EQU CVTS01+312 00644000 CVTLKRMA EQU CVTS01+308 00645000 CVTRSPIE EQU CVTS01+304 00646000 CVTRENQ EQU CVTS01+300 00647000 CVTLQCB EQU CVTS01+296 00648000 CVTFQCB EQU CVTS01+292 00649000 CVTQCS01 EQU CVTS01+288 00650000 CVTAPFT EQU CVTS01+284 00651000 CVTPARRL EQU CVTS01+280 00652000 CVTVWAIT EQU CVTS01+276 00653000 CVTGSPL EQU CVTS01+272 00654000 CVTLSMQ EQU CVTS01+268 00655000 CVTGSMQ EQU CVTS01+264 00656000 CVTEXPRO EQU CVTS01+260 00657000 CVTOPCTP EQU CVTS01+256 00658000 CVTSIC EQU CVTS01+252 00659000 CVTTPIOS EQU CVTS01+248 00660000 CVTRTMS EQU CVTS01+244 00661000 CVTSDBF EQU CVTS01+240 00662000 CVTSCBP EQU CVTS01+236 00663000 CVTSDMP EQU CVTS01+232 00664000 CVTSV60 EQU CVTS01+228 00665000 CVTRTMCT EQU CVTS01+224 00666000 CVTASCBL EQU CVTS01+220 00667000 CVTASCBH EQU CVTS01+216 00668000 CVTGDA EQU CVTS01+212 00669000 CVTASVT EQU CVTS01+208 00670000 CVTVVMDI EQU CVTS01+204 00671000 CVTAQTOP EQU CVTS01+200 00672000 CVTIOSCS EQU CVTS01+196 00673000 CVTSDRM EQU CVTS01+192 00674000 CVTOPTE EQU CVTS01+188 00675000 CVTSTXU EQU CVTS01+184 00676000 CVTQUIS EQU CVTS01+180 00677000 CVTPARS EQU CVTS01+176 00678000 CVTS1EE EQU CVTS01+172 00679000 CVTFRAS EQU CVTS01+168 00680000 CVTQSAS EQU CVTS01+164 00681000 CVTCRAS EQU CVTS01+160 00682000 CVTCRMN EQU CVTS01+156 00683000 CVTDELCP EQU CVTS01+152 00684000 CVTFRECL EQU CVTS01+148 00685000 CVTGETCL EQU CVTS01+144 00686000 CVTBLDCP EQU CVTS01+140 00687000 CVTAUTHL EQU CVTS01+136 00688000 CVTSCAN EQU CVTS01+132 00689000 CVTRV144 EQU CVTS01+130 00690000 CVTMAXMP EQU CVTS01+128 00691000 CVTSTCK EQU CVTS01+124 00692000 CVTRV139 EQU CVTS01+123 00693000 CVTDSSAC EQU CVTS01+122 00694000 CVTRV513 EQU CVTS01+121 00695000 CVTIOSPL EQU CVTS01+120 00696000 CVTPTGT EQU CVTS01+116 00697000 CVTCSPIE EQU CVTS01+112 00698000 CVTSMFEX EQU CVTS01+108 00699000 CVTOLT0A EQU CVTS01+104 00700000 CVTSRBRT EQU CVTS01+100 00701000 CVTPUTL EQU CVTS01+96 00702000 CVTASCRL EQU CVTS01+92 00703000 CVTASCRF EQU CVTS01+88 00704000 CVTRV326 EQU CVTS01+84 00705000 CVTRV325 EQU CVTS01+80 00706000 CVTRV324 EQU CVTS01+76 00707000 CVT0VL01 EQU CVTS01+72 00708000 CVTSHRVM EQU CVTS01+68 00709000 CVTRV332 EQU CVTS01+64 00710000 CVTTAS EQU CVTS01+60 00711000 CVTRSCN EQU CVTS01+56 00712000 CVTTRAC2 EQU CVTS01+54 00713000 CVTTRACE EQU CVTS01+52 00714000 CVTAPG EQU CVTS01+51 00715000 CVTSDTRC EQU CVTCTLFG 00716000 CVTGTRCE EQU CVTCTLFG 00717000 CVTNOMP EQU CVTCTLFG 00718000 CVTRSV79 EQU CVTCTLFG 00719000 CVTDSTAT EQU CVTCTLFG 00720000 CVTRSV78 EQU CVTCTLFG 00721000 CVTRV333 EQU CVTCTLFG 00722000 CVTRV323 EQU CVTCTLFG 00723000 CVTSPVLK EQU CVTS01+49 00724000 CVTRSV77 EQU CVTS01+48 00725000 CVTRV331 EQU CVTS01+44 00726000 CVTRV330 EQU CVTS01+40 00727000 CVTRV329 EQU CVTS01+36 00728000 CVTRV328 EQU CVTS01+32 00729000 CVTRV322 EQU CVTS01+28 00730000 CVTSLID EQU CVTSLIDA+1 00731000 CVTSYLK EQU CVTSLIDA 00732000 CVTRV321 EQU CVTS01+20 00733000 CVTRV320 EQU CVTS01+16 00734000 CVTLPDIR EQU CVTLPDIA+1 00735000 CVTRSV69 EQU CVTDIRST 00736000 CVTRSV68 EQU CVTDIRST 00737000 CVTRSV67 EQU CVTDIRST 00738000 CVTRSV66 EQU CVTDIRST 00739000 CVTRSV65 EQU CVTDIRST 00740000 CVTRSV64 EQU CVTDIRST 00741000 CVTRSV63 EQU CVTDIRST 00742000 CVTDICOM EQU CVTDIRST 00743000 CVTPVTP EQU CVTS01+8 00744000 CVTLPDSR EQU CVTS01+4 00745000 CVTGETL EQU CVTS01 00746000 TIOMEND EQU TIOMLIST+32 00747000 TOMLU2 EQU TIOMLIST+24 00748000 TIMLU2 EQU TIOMLIST+20 00749000 TOMRTS EQU TIOMLIST+16 00750000 TIMRTS EQU TIOMLIST+12 00751000 TOM3270 EQU TIOMLIST+8 00752000 TIM3270 EQU TIOMLIST+4 00753000 DMPOP16 EQU DMPCD16+2 00754000 DMPFB16 EQU DMPCD16+1 00755000 DMPRC16 EQU DMPCD16 00756000 DMPOP15 EQU DMPCD15+2 00757000 DMPFB15 EQU DMPCD15+1 00758000 DMPRC15 EQU DMPCD15 00759000 DMPOP14 EQU DMPCD14+2 00760000 DMPFB14 EQU DMPCD14+1 00761000 DMPRC14 EQU DMPCD14 00762000 DMPOP13 EQU DMPCD13+2 00763000 DMPFB13 EQU DMPCD13+1 00764000 DMPRC13 EQU DMPCD13 00765000 DMPOP12 EQU DMPCD12+2 00766000 DMPFB12 EQU DMPCD12+1 00767000 DMPRC12 EQU DMPCD12 00768000 DMPOP11 EQU DMPCD11+2 00769000 DMPFB11 EQU DMPCD11+1 00770000 DMPRC11 EQU DMPCD11 00771000 DMPOP10 EQU DMPCD10+2 00772000 DMPFB10 EQU DMPCD10+1 00773000 DMPRC10 EQU DMPCD10 00774000 DMPOP09 EQU DMPCD09+2 00775000 DMPFB09 EQU DMPCD09+1 00776000 DMPRC09 EQU DMPCD09 00777000 DMPOP08 EQU DMPCD08+2 00778000 DMPFB08 EQU DMPCD08+1 00779000 DMPRC08 EQU DMPCD08 00780000 DMPOP07 EQU DMPCD07+2 00781000 DMPFB07 EQU DMPCD07+1 00782000 DMPRC07 EQU DMPCD07 00783000 DMPOP06 EQU DMPCD06+2 00784000 DMPFB06 EQU DMPCD06+1 00785000 DMPRC06 EQU DMPCD06 00786000 DMPOP05 EQU DMPCD05+2 00787000 DMPFB05 EQU DMPCD05+1 00788000 DMPRC05 EQU DMPCD05 00789000 DMPOP04 EQU DMPCD04+2 00790000 DMPFB04 EQU DMPCD04+1 00791000 DMPRC04 EQU DMPCD04 00792000 DMPOP03 EQU DMPCD03+2 00793000 DMPFB03 EQU DMPCD03+1 00794000 DMPRC03 EQU DMPCD03 00795000 DMPOP02 EQU DMPCD02+2 00796000 DMPFB02 EQU DMPCD02+1 00797000 DMPRC02 EQU DMPCD02 00798000 DMPOP01 EQU DMPCD01+2 00799000 DMPFB01 EQU DMPCD01+1 00800000 DMPRC01 EQU DMPCD01 00801000 @NM00017 EQU DMPCD+1 00802000 DMPRCCT EQU DMPCD 00803000 TCASTEND EQU TCAST+136 00804000 @NM00016 EQU TCAST+118 00805000 TCASBR14 EQU TCAST+116 00806000 TCASTTQH EQU TCAST+104 00807000 @NM00015 EQU TCAST+102 00808000 @NM00014 EQU TCAST+100 00809000 @NM00013 EQU TCAST+98 00810000 @NM00012 EQU TCAST+96 00811000 @NM00011 EQU TCAST+90 00812000 @NM00010 EQU TCASFLG2 00813000 @NM00009 EQU TCASFLG1 00814000 TCASNACT EQU TCASFLG1 00815000 TCASVSD EQU TCASFLG1 00816000 TCASABND EQU TCASFLG1 00817000 TCASMDSW EQU TCASFLG1 00818000 TCASBKMD EQU TCASFLG1 00819000 TCASTSB EQU TCAST+68 00820000 TCASWA EQU TCAST+60 00821000 TCASXECB EQU TCAST+40 00822000 TCASTID EQU TCAST+32 00823000 @NM00008 EQU TCAST+31 00824000 TCASCHNL EQU TCAST+30 00825000 TCASCRSZ EQU TCAST+28 00826000 TCASLBUF EQU TCAST+24 00827000 TCASHBUF EQU TCAST+20 00828000 TCASCLSZ EQU TCAST+18 00829000 TCASRCON EQU TCAST+16 00830000 TCASACBP EQU TCAST+8 00831000 TCASUMAX EQU TCASUSER+2 00832000 TCASUSEC EQU TCASUSER 00833000 CVTLEVL EQU CVTRELNO+2 00834000 CVTNUMB EQU CVTRELNO 00835000 CVTMDL EQU CVTFIX+250 00836000 @NM00007 EQU CVTFIX+248 00837000 @NM00006 EQU CVTFIX 00838000 CVTRV482 EQU CVTXTNT2+128 00839000 CVTRV481 EQU CVTXTNT2+124 00840000 CVTRV480 EQU CVTXTNT2+120 00841000 CVTRV479 EQU CVTXTNT2+118 00842000 CVTRV478 EQU CVTXTNT2+117 00843000 CVTRV477 EQU CVTXTNT2+116 00844000 CVTRV476 EQU CVTXTNT2+115 00845000 CVTRV475 EQU CVTXTNT2+114 00846000 CVTRV474 EQU CVTRV466 00847000 CVTRV473 EQU CVTRV466 00848000 CVTRV472 EQU CVTRV466 00849000 CVTRV471 EQU CVTRV466 00850000 CVTRV470 EQU CVTRV466 00851000 CVTRV469 EQU CVTRV466 00852000 CVTRV468 EQU CVTRV466 00853000 CVTRV467 EQU CVTRV466 00854000 CVTRV465 EQU CVTRV457 00855000 CVTRV464 EQU CVTRV457 00856000 CVTRV463 EQU CVTRV457 00857000 CVTRV462 EQU CVTRV457 00858000 CVTRV461 EQU CVTRV457 00859000 CVTRV460 EQU CVTRV457 00860000 CVTRV459 EQU CVTRV457 00861000 CVTRV458 EQU CVTRV457 00862000 CVTRV456 EQU CVTXTNT2+108 00863000 CVTRV455 EQU CVTXTNT2+104 00864000 CVTRV454 EQU CVTXTNT2+100 00865000 CVTRV453 EQU CVTXTNT2+96 00866000 CVTRV452 EQU CVTXTNT2+94 00867000 CVTRV451 EQU CVTXTNT2+92 00868000 CVTRV450 EQU CVTXTNT2+90 00869000 CVTRV449 EQU CVTXTNT2+88 00870000 CVTRV448 EQU CVTXTNT2+87 00871000 CVTRV447 EQU CVTXTNT2+86 00872000 CVTRV446 EQU CVTRV438 00873000 CVTRV445 EQU CVTRV438 00874000 CVTRV444 EQU CVTRV438 00875000 CVTRV443 EQU CVTRV438 00876000 CVTRV442 EQU CVTRV438 00877000 CVTRV441 EQU CVTRV438 00878000 CVTRV440 EQU CVTRV438 00879000 CVTRV439 EQU CVTRV438 00880000 CVTRV437 EQU CVTRV429 00881000 CVTRV436 EQU CVTRV429 00882000 CVTRV435 EQU CVTRV429 00883000 CVTRV434 EQU CVTRV429 00884000 CVTRV433 EQU CVTRV429 00885000 CVTRV432 EQU CVTRV429 00886000 CVTRV431 EQU CVTRV429 00887000 CVTRV430 EQU CVTRV429 00888000 CVTRV428 EQU CVTXTNT2+80 00889000 CVTRV427 EQU CVTXTNT2+76 00890000 CVTRV426 EQU CVTXTNT2+72 00891000 CVTRV425 EQU CVTXTNT2+68 00892000 CVTATACT EQU CVTATCVT 00893000 CVTRV423 EQU CVTXTNT2+62 00894000 CVTRV422 EQU CVTXTNT2+60 00895000 CVTRV421 EQU CVTXTNT2+58 00896000 CVTRV420 EQU CVTXTNT2+56 00897000 CVTRV419 EQU CVTXTNT2+55 00898000 CVTRV418 EQU CVTXTNT2+54 00899000 CVTRV417 EQU CVTRV409 00900000 CVTRV416 EQU CVTRV409 00901000 CVTRV415 EQU CVTRV409 00902000 CVTRV414 EQU CVTRV409 00903000 CVTRV413 EQU CVTRV409 00904000 CVTRV412 EQU CVTRV409 00905000 CVTRV411 EQU CVTRV409 00906000 CVTRV410 EQU CVTRV409 00907000 CVTRV408 EQU CVTRV400 00908000 CVTRV407 EQU CVTRV400 00909000 CVTRV406 EQU CVTRV400 00910000 CVTRV405 EQU CVTRV400 00911000 CVTRV404 EQU CVTRV400 00912000 CVTRV403 EQU CVTRV400 00913000 CVTRV402 EQU CVTRV400 00914000 CVTRV401 EQU CVTRV400 00915000 CVTICB EQU CVTXTNT2+48 00916000 CVTSKTA EQU CVTXTNT2+44 00917000 CVTSHSB EQU CVTSHS 00918000 CVTRSV98 EQU CVTXTNT2+36 00919000 CVTRSV97 EQU CVTXTNT2+34 00920000 CVTRSV96 EQU CVTXTNT2+32 00921000 CVTOLTEP EQU CVTXTNT2+28 00922000 CVTQIDA EQU CVTQID+1 00923000 CVTRSV95 EQU CVTQID 00924000 CVTRSV94 EQU CVTXTNT2+20 00925000 CVTRSV93 EQU CVTXTNT2+16 00926000 CVTRSV92 EQU CVTXTNT2+12 00927000 CVTDEBVR EQU CVTXTNT2+8 00928000 CVTRSV91 EQU CVTXTNT2+6 00929000 CVTRSV9H EQU CVTFLGBT 00930000 CVTRSV9G EQU CVTFLGBT 00931000 CVTRSV9F EQU CVTFLGBT 00932000 CVTRSV9E EQU CVTFLGBT 00933000 CVTRSV9D EQU CVTFLGBT 00934000 CVTRSV9C EQU CVTFLGBT 00935000 CVTVME EQU CVTFLGBT 00936000 CVTNPE EQU CVTFLGBT 00937000 CVTNUCLS EQU CVTXTNT2+4 00938000 CVTDSSVA EQU CVTDSSV+1 00939000 CVTRSV89 EQU CVTDSSV 00940000 CVTRSV88 EQU CVTXTNT1+8 00941000 CVTRSV87 EQU CVTXTNT1+4 00942000 CVTFACHN EQU CVTXTNT1 00943000 CVTRV488 EQU CVTMAP+412 00944000 CVTRV487 EQU CVTMAP+408 00945000 CVTRV486 EQU CVTMAP+404 00946000 CVTRV485 EQU CVTMAP+400 00947000 CVTACTAP EQU CVTMAP+396 00948000 CVTAUTH EQU CVTMAP+392 00949000 CVTATMCA EQU CVTATMCT+1 00950000 CVTATMST EQU CVTATMCT 00951000 CVTRSV61 EQU CVTMAP+384 00952000 CVTVOLT1 EQU CVTVOLM1+1 00953000 CVTVOLI1 EQU CVTVOLF1 00954000 CVTSTOA EQU CVTMAP+376 00955000 CVTRSV58 EQU CVTMAP+374 00956000 CVTRSV57 EQU CVTMAP+372 00957000 CVTDDCE EQU CVTMAP+368 00958000 CVTPNWFR EQU CVTMAP+364 00959000 CVTSMF EQU CVTMAP+360 00960000 CVTSULK EQU CVTMAP+358 00961000 CVTSLKO EQU CVTSYSK 00962000 CVTSLKP EQU CVTSYSK 00963000 CVTSLKQ EQU CVTSYSK 00964000 CVTSLKR EQU CVTSYSK 00965000 CVTRSV56 EQU CVTSYSK 00966000 CVTRSV55 EQU CVTSYSK 00967000 CVTRSV54 EQU CVTSYSK 00968000 CVTRSV53 EQU CVTSYSK 00969000 CVTRSV52 EQU CVTA1F1 00970000 CVTRSV51 EQU CVTA1F1 00971000 CVTRSV50 EQU CVTA1F1 00972000 CVTRSV49 EQU CVTA1F1 00973000 CVTRSV48 EQU CVTA1F1 00974000 CVTRSV47 EQU CVTA1F1 00975000 CVTSRSW EQU CVTA1F1 00976000 CVTPFSW EQU CVTA1F1 00977000 CVTPCVT EQU CVTMAP+352 00978000 CVTRSV46 EQU CVTMAP+344 00979000 CVTRSV45 EQU CVTMAP+340 00980000 CVTRSV44 EQU CVTMAP+338 00981000 CVTRSV43 EQU CVTMAP+336 00982000 CVTHJESA EQU CVTHJES+1 00983000 CVTRSV42 EQU CVTHJES 00984000 CVTEXT2A EQU CVTEXT2+1 00985000 CVTRSV41 EQU CVTEXT2 00986000 CVTAPFA EQU CVTAPF+1 00987000 CVTRSV40 EQU CVTAPF 00988000 CVTRV518 EQU CVTINTLA 00989000 CVTRV517 EQU CVTERPV 00990000 CVTEORM EQU CVTMAP+312 00991000 CVTMCHPR EQU CVTMAP+308 00992000 CVTTZ EQU CVTMAP+304 00993000 CVTJEPS EQU CVTMAP+300 00994000 CVTJESCT EQU CVTMAP+296 00995000 CVTMODE EQU CVTMAP+292 00996000 CVTPTRV EQU CVTMAP+288 00997000 CVTREAL EQU CVTMAP+284 00998000 CVTRSV39 EQU CVTMAP+280 00999000 CVTRSV38 EQU CVTMAP+276 01000000 CVTDMSRA EQU CVTDMSR+1 01001000 CVTRV634 EQU CVTDMSRF 01002000 CVTRV633 EQU CVTDMSRF 01003000 CVTRV632 EQU CVTDMSRF 01004000 CVTRV631 EQU CVTDMSRF 01005000 CVTRV630 EQU CVTDMSRF 01006000 CVTRV629 EQU CVTDMSRF 01007000 CVTUDUMP EQU CVTDMSRF 01008000 CVTSDUMP EQU CVTDMSRF 01009000 CVTQMSGA EQU CVTQMSG+1 01010000 CVTRSV36 EQU CVTQMSG 01011000 CVTAMFF EQU CVTMAP+264 01012000 CVTPURGA EQU CVTPURG+1 01013000 CVTRSV35 EQU CVTPURG 01014000 CVTCBSP EQU CVTMAP+256 01015000 CVTATERA EQU CVTATER+1 01016000 CVTSYST EQU CVTATER 01017000 CVTVOLT2 EQU CVTTAT 01018000 CVTVOLI2 EQU CVTVOLF2 01019000 CVTAQAVB EQU CVTAQAVT+1 01020000 CVTRSV34 EQU CVTTCMFG 01021000 CVTRSV33 EQU CVTTCMFG 01022000 CVTRSV32 EQU CVTTCMFG 01023000 CVTRSV31 EQU CVTTCMFG 01024000 CVTRSV30 EQU CVTTCMFG 01025000 CVTRSV29 EQU CVTTCMFG 01026000 CVTRSV28 EQU CVTTCMFG 01027000 CVTTCRDY EQU CVTTCMFG 01028000 CVTGTFA EQU CVTGTF+1 01029000 CVTRSV27 EQU CVTGTFST 01030000 CVTRNIO EQU CVTGTFST 01031000 CVTUSR EQU CVTGTFST 01032000 CVTRV318 EQU CVTFORM 01033000 CVTRV317 EQU CVTTMODE 01034000 CVTRV316 EQU CVTSTATE 01035000 CVTRV315 EQU CVTGTFS 01036000 CVTGTFAV EQU CVTGTFS 01037000 CVT0SCR1 EQU CVTMAP+232 01038000 CVTRV515 EQU CVTMAP+228 01039000 CVTRMS EQU CVTMAP+224 01040000 CVTPATCH EQU CVTMAP+220 01041000 CVTTSCE EQU CVTMAP+216 01042000 CVTLNKSC EQU CVTMAP+214 01043000 CVTQABST EQU CVTMAP+212 01044000 CVTMDLDS EQU CVTMAP+208 01045000 CVTUSER EQU CVTMAP+204 01046000 CVTABEND EQU CVTMAP+200 01047000 CVTSMCA EQU CVTMAP+196 01048000 CVTRSV18 EQU CVTMAP+192 01049000 CVTQLPAQ EQU CVTMAP+188 01050000 CVTQCDSR EQU CVTMAP+184 01051000 CVTRSV17 EQU CVTOPTB 01052000 CVTRSV16 EQU CVTOPTB 01053000 CVTFP EQU CVTOPTB 01054000 CVTAPTHR EQU CVTOPTB 01055000 CVTNLOG EQU CVTOPTB 01056000 CVTTOD EQU CVTOPTB 01057000 CVTCTIMS EQU CVTOPTB 01058000 CVTPROT EQU CVTOPTB 01059000 CVTXPFP EQU CVTOPTA 01060000 CVTASCII EQU CVTOPTA 01061000 CVTRSV13 EQU CVTOPTA 01062000 CVTRSV12 EQU CVTOPTA 01063000 CVTNIP EQU CVTOPTA 01064000 CVTDDR EQU CVTOPTA 01065000 CVTAPR EQU CVTOPTA 01066000 CVTCCH EQU CVTOPTA 01067000 CVTSNCTR EQU CVTMAP+180 01068000 CVTQMWR EQU CVTMAP+176 01069000 CVTQOCR EQU CVTMAP+172 01070000 CVT1EF00 EQU CVTMAP+168 01071000 CVTMZ00 EQU CVTMAP+164 01072000 CVTHEAD EQU CVTMAP+160 01073000 CVTRSV11 EQU CVTMAP+156 01074000 CVT0PT01 EQU CVTMAP+152 01075000 CVTMSER EQU CVTMAP+148 01076000 CVTRV516 EQU CVTIERLC 01077000 CVTILCH EQU CVTMAP+140 01078000 CVT0DS EQU CVTMAP+136 01079000 CVTFBOSV EQU CVTMAP+132 01080000 CVTNUCB EQU CVTMAP+128 01081000 CVTIXAVL EQU CVTMAP+124 01082000 CVTIOQET EQU CVTMAP+120 01083000 CVTDCBA EQU CVTMAP+117 01084000 CVTMVS2 EQU CVTDCB 01085000 CVT6DAT EQU CVTDCB 01086000 CVT4MPS EQU CVTDCB 01087000 CVTRSV09 EQU CVTDCB 01088000 CVT4MS1 EQU CVTDCB 01089000 CVT2SPS EQU CVTDCB 01090000 CVT1SSS EQU CVTDCB 01091000 CVTRSV08 EQU CVTDCB 01092000 CVTSTB EQU CVTMAP+112 01093000 CVTQTD00 EQU CVTMAP+108 01094000 CVTQTE00 EQU CVTMAP+104 01095000 CVTCUCB EQU CVTMAP+100 01096000 CVTSJQ EQU CVTMAP+96 01097000 CVTPBLDL EQU CVTMAP+92 01098000 CVTTPC EQU CVTMAP+88 01099000 CVTSVDCB EQU CVTMAP+84 01100000 CVTBRET EQU CVTMAP+82 01101000 CVTEXIT EQU CVTMAP+80 01102000 CVT0FN00 EQU CVTMAP+76 01103000 CVTDARA EQU CVTDAR+1 01104000 CVTRSV07 EQU CVTFLGS1 01105000 CVTRSV06 EQU CVTFLGS1 01106000 CVTRSV05 EQU CVTFLGS1 01107000 CVTRSV04 EQU CVTFLGS1 01108000 CVTRSV03 EQU CVTFLGS1 01109000 CVTRSV02 EQU CVTFLGS1 01110000 CVTRSV01 EQU CVTFLGS1 01111000 CVTDMPLK EQU CVTFLGS1 01112000 CVTXITP EQU CVTMAP+68 01113000 CVTZDTAB EQU CVTMAP+64 01114000 CVTMSLT EQU CVTMAP+60 01115000 CVTDATE EQU CVTMAP+56 01116000 CVTBTERM EQU CVTMAP+52 01117000 CVTSYSAD EQU CVTMAP+48 01118000 CVTXTLER EQU CVTMAP+44 01119000 CVTILK2 EQU CVTMAP+40 01120000 CVTILK1 EQU CVTMAP+36 01121000 CVTPRLTV EQU CVTMAP+32 01122000 CVTPCNVT EQU CVTMAP+28 01123000 CVT0VL00 EQU CVTMAP+24 01124000 CVTXAPG EQU CVTMAP+20 01125000 CVTBUF EQU CVTMAP+16 01126000 CVTJOB EQU CVTMAP+12 01127000 CVTLINK EQU CVTMAP+8 01128000 CVT0EF00 EQU CVTMAP+4 01129000 CVTTCBP EQU CVTMAP 01130000 CVT EQU CVTMAP 01131000 TWAEND EQU TWAR+536 01132000 TWAWORKE EQU TWAR+524 01133000 @NM00005 EQU TWACI+13 01134000 TWACSKIP EQU TWACI+12 01135000 TWACMODQ EQU TWACI+8 01136000 TWACSTPQ EQU TWACI+4 01137000 TWACECB EQU TWACI 01138000 TWACERRS EQU TWACE+4 01139000 TWACERA EQU TWACEI+1 01140000 TWACEIFC EQU TWACEI 01141000 TWACRTFC EQU TWAC+60 01142000 TWACABFC EQU TWAC+56 01143000 TWACTWA EQU TWAC+52 01144000 TWACEWA EQU TWAC+4 01145000 TWACID EQU TWAC 01146000 TWAUACQH EQU TWAUI+4 01147000 TWAUECB EQU TWAUI 01148000 TWAUERRS EQU TWAUE+4 01149000 TWAUERA EQU TWAUEI+1 01150000 TWAUEIFC EQU TWAUEI 01151000 TWAURTFC EQU TWAU+60 01152000 TWAUABFC EQU TWAU+56 01153000 TWAUTWA EQU TWAU+52 01154000 TWAUEWA EQU TWAU+4 01155000 TWAUID EQU TWAU 01156000 TWAVACQH EQU TWAVI+12 01157000 TWAVTHQH EQU TWAVI+8 01158000 TWAVTEQH EQU TWAVI+4 01159000 TWAVECB EQU TWAVI 01160000 TWAVERRS EQU TWAVE+4 01161000 TWAVERA EQU TWAVEI+1 01162000 TWAVEIFC EQU TWAVEI 01163000 TWAVRTFC EQU TWAV+60 01164000 TWAVABFC EQU TWAV+56 01165000 TWAVTWA EQU TWAV+52 01166000 TWAVEWA EQU TWAV+4 01167000 TWAVID EQU TWAV 01168000 TWAMERRS EQU TWAME+4 01169000 TWAMERA EQU TWAMEI+1 01170000 TWAMEIFC EQU TWAMEI 01171000 TWAMRTFC EQU TWAM+60 01172000 TWAMABFC EQU TWAM+56 01173000 TWAMTWA EQU TWAM+52 01174000 TWAMEWA EQU TWAM+4 01175000 TWAMID EQU TWAM 01176000 @NM00004 EQU TWACFL 01177000 TWACFL4 EQU TWACFL 01178000 TWACFL2 EQU TWACFL 01179000 TWACFL1 EQU TWACFL 01180000 @NM00003 EQU TWAUFL 01181000 TWAUFL4 EQU TWAUFL 01182000 TWAUFL3 EQU TWAUFL 01183000 TWAUFL2 EQU TWAUFL 01184000 TWAUFL1 EQU TWAUFL 01185000 @NM00002 EQU TWAVFL 01186000 TWAVFL6 EQU TWAVFL 01187000 TWAVFL5 EQU TWAVFL 01188000 TWAVFL4 EQU TWAVFL 01189000 TWAVFL3 EQU TWAVFL 01190000 TWAVFL2 EQU TWAVFL 01191000 TWAVFL1 EQU TWAVFL 01192000 @NM00001 EQU TWAMFL 01193000 TWAMFL1 EQU TWAMFL 01194000 TWACCOMP EQU TWAR+76 01195000 TWAUCOMP EQU TWAR+72 01196000 TWAVCOMP EQU TWAR+68 01197000 TWAMECB EQU TWAR+64 01198000 TWACTCB EQU TWAR+60 01199000 TWAUTCB EQU TWAR+56 01200000 TWAVTCB EQU TWAR+52 01201000 TWAMSG EQU TWAR+48 01202000 TWADEQAS EQU TWAR+44 01203000 TWAEESR EQU TWAR+40 01204000 TWAPPSR EQU TWAR+36 01205000 TWATCSR EQU TWAR+32 01206000 TWATTSR EQU TWAR+28 01207000 TWAINIT EQU TWAR+24 01208000 TWATCAST EQU TWAR+20 01209000 TWACSCB EQU TWAR+16 01210000 TWAPASQH EQU TWAR+8 01211000 TWASYNQH EQU TWAR+4 01212000 TWARSON EQU TWAR+2 01213000 TWACOMP EQU TWAR 01214000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01215000 @ENDDATA EQU * 01216000 END IKTCAS53,(C'PLS1842',0701,78053) 01217000