TITLE 'IGG0203K -- SUBSYSTEM CLOSE EXECUTOR *00001000 ' 00002000 IGG0203K CSECT , 0001 00003000 @PROLOG BALR @03,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@03 0001 00006000 EJECT 00007000 * /* EQUATES GEN CODE Y02120 */ 00008000 K0 EQU 0 CONSTANT OF ZERO Y02120 00009000 LNSAV EQU 72 SAVE AREA IN BYTES Y02120 00010000 K254 EQU 254 CONSTANT OF 250 FOR SP Y02120 00011000 EJECT 00012000 EJECT 00013000 EJECT 00014000 * 0095 00015000 */* SETUP POINTERS TO WORK AREA, JFCB, ACB, TIOT, AND DEB */ 00016000 */* FOR THIS ENTRY IN THE WTG TABLE. */ 00017000 * 0095 00018000 *START: 0095 00019000 * ; 0095 00020000 START DS 0H 0096 00021000 * RCORE=WTGCORE; /* LOAD OCE WORK AREA POINTER */ 00022000 SLR RCORE,RCORE 0096 00023000 ICM RCORE,7,WTGCORE(RWTGC) 0096 00024000 * RACB=PARM; /* LOAD ACB POINTER */ 00025000 L RACB,PARM(,RPARC) 0097 00026000 * RDEB=ACBDEB; /* LOAD DEB POINTER */ 00027000 SLR RDEB,RDEB 0098 00028000 ICM RDEB,7,ACBDEB(RACB) 0098 00029000 */* BUILD LINKAGE AND GO TO THE SUBSYSTEM BY ISSUING THE Y02120 */ 00030000 */* IEFSSREQ MACRO. Y02120 */ 00031000 * 0099 00032000 * SSOBFUNC=17; /* FUNCTION ID Y02120 */ 00033000 LA @12,4 0099 00034000 LA @10,SSIBSUSE+36(,RDEB) 0099 00035000 ALR @10,@12 0099 00036000 MVC SSOBFUNC(2,@10),@CH01090 0099 00037000 * SSDAJFCB=ADDR(DXJBF); /* JFCB ADDRESS Y02120 */ 00038000 LA @09,SSOBINDV(,@10) 0100 00039000 ALR @09,@12 0100 00040000 LA @12,DXJBF(,RCORE) 0100 00041000 ST @12,SSDAJFCB(,@09) 0100 00042000 * DXCCW1A=ADDR(SSOB)|'80000000'X; /* PARM LIST END Y02120 */ 00043000 O @10,@CF01890 0101 00044000 ST @10,DXCCW1A(,RCORE) 0101 00045000 * R1=ADDR(DXCCW1A); /* POINTS TO LIST Y02120 */ 00046000 LA R1,DXCCW1A(,RCORE) 0102 00047000 * RFY 0103 00048000 * (SAVEPTR, 0103 00049000 * REG15) RSTD; /* RESTRICT FOR Y02134 IEFSSREQ 00050000 * Y02134 */ 00051000 * SAVEPTR=ADDR(DXLBL); /* POINTS TO SAVE AREA Y02120 */ 00052000 LR SAVEPTR,RCORE 0104 00053000 * DXEXHASP=ON; /* HASP GIVEN CONTROL @ZA02504*/ 00054000 OI DXEXHASP(RCORE),B'10000000' 0105 00055000 * GEN(IEFSSREQ); /* ISSUE MACRO CALL Y02120 */ 00056000 IEFSSREQ 00057000 * RFY 0107 00058000 * SAVEPTR UNRSTD; /* Y02120 */ 00059000 */* ERROR RETURN LOGIC Y02120 */ 00060000 */* Y02120 */ 00061000 * 0108 00062000 * IF REG15=0&SSOBRETN=0 THEN /* CHECK ERROR Y02120 */ 00063000 SLR @14,@14 0108 00064000 CR REG15,@14 0108 00065000 BNE @RF00108 0108 00066000 LA @12,SSIBSUSE+36(,RDEB) 0108 00067000 C @14,SSOBRETN+4(,@12) 0108 00068000 BE @RT00108 0108 00069000 * GO TO RELOOP; /* NO ERROR Y02120 */ 00070000 */* TURN OFF BUSY BIT IN ACB Y02120 */ 00071000 * 0110 00072000 * ACBIOSFG='0'B; /* TURN OFF BUSY BIT Y02120 */ 00073000 @RF00108 NI ACBIOSFG(RACB),B'11111110' 0110 00074000 * IF REG15=0 THEN /* TEST FOR ERROR YM1195 */ 00075000 LTR REG15,REG15 0111 00076000 BZ @RT00111 0111 00077000 * GO TO RELOOP; /* NO IEFSSREQ ERROR YM1195 */ 00078000 * ELSE /* YM1195 */ 00079000 * DO; /* YM1195 */ 00080000 * GEN REFS(DXCALLID,DXREG9); 0114 00081000 * /*YM1195 */ 00082000 * DMABCOND CABD254,IGG0206M,RES=NO GENERATE ABEND YM1195 00083000 LA 0,CABD254 YM1195 00084000 MVC DXCALLID(2,4),6(RWTG) YM1195 00085000 MVC 0(5,RWTGC),IGG0206M YM1195 00086000 STM 9,14,DXREG9(4) SAVE REGS YM3885 00087000 B BRANCH GO TO PROB DETERMINATION YM1195 00088000 CABD254 EQU 254 ERROR CODE YM1195 00089000 * END; /* YM1195 */ 00090000 * RFY 0116 00091000 * REG15 UNRSTD; /* YM1195 */ 00092000 * 0117 00093000 */* DETERMINE IF THIS MODULE IS NEEDED BY ANOTHER ENTRY IN THE */ 00094000 */* WTG TABLE. IF YES, GO BACK TO THE START OF THIS MODULE. */ 00095000 * 0117 00096000 *RELOOP: 0117 00097000 * WTGEID='0000'X; /* INDICATE THIS ENTRY Y02134 0117 00098000 * FINISHED Y02134 */ 00099000 RELOOP MVC WTGEID(2,RWTGC),@CB01893 0117 00100000 *LOOP1: 0118 00101000 * ; 0118 00102000 LOOP1 DS 0H 0119 00103000 * RWTGC=RWTGC+LENGTH(WTGENTRY); /* POINT TO NEXT WTG ENTRY */ 00104000 AH RWTGC,@CH00061 0119 00105000 * RPARC=RPARC+LENGTH(PARC); /* POINT TO NEXT PARM ENTRY */ 00106000 AH RPARC,@CH00059 0120 00107000 * IF WTGEID='3K' THEN 0121 00108000 CLC WTGEID(2,RWTGC),@CC01897 0121 00109000 BE @RT00121 0121 00110000 * GO TO START; /* Y02134 */ 00111000 * IF WTGEID<'0B'|WTGEID>'0G' /* Y02134 */ 00112000 * THEN 0123 00113000 CLC WTGEID(2,RWTGC),@CC01898 0123 00114000 BL @RT00123 0123 00115000 CLC WTGEID(2,RWTGC),@CC01899 0123 00116000 BH @RT00123 0123 00117000 * GO TO LOOP1; /* Y02134 */ 00118000 */* THIS MODULE IS NOT REQUIRED FOR FURTHER PROCESSING. NOW FIND */ 00119000 */* THE FIRST NON-ZERO ENTRY IN THE WTG TABLE. */ 00120000 * 0125 00121000 * RPARC=RPAR; /* POINT TO START OF PARM LIST */ 00122000 LR RPARC,RPAR 0125 00123000 * RWTGC=RWTG+LENGTH(WTG); /* POINT TO FIRST ENTRY Y02134 */ 00124000 LA RWTGC,32 0126 00125000 ALR RWTGC,RWTG 0126 00126000 *LOOP2: 0127 00127000 * ; 0127 00128000 LOOP2 DS 0H 0128 00129000 * IF WTGEID='0000'X THEN 0128 00130000 CLC WTGEID(2,RWTGC),@CB01893 0128 00131000 BNE @RF00128 0128 00132000 * DO; /* IS THIS ENTRY THROUGH Y02134 */ 00133000 * RWTGC=RWTGC+LENGTH(WTGENTRY);/* YES INCR WTG ENT */ 00134000 AH RWTGC,@CH00061 0130 00135000 * RPARC=RPARC+LENGTH(PARC); /* INCR PARM POINTER */ 00136000 AH RPARC,@CH00059 0131 00137000 * GO TO LOOP2; /* GO CHECK NEXT ENTRY */ 00138000 B LOOP2 0132 00139000 * END; 0133 00140000 * 0133 00141000 */* GO FREE THIS MODULES DATA AREA. */ 00142000 * 0134 00143000 * GEN(BAL RET,FINISH); /* GO FREE DATA AREA */ 00144000 @RF00128 DS 0H 0134 00145000 BAL RET,FINISH 00146000 */* TRANSFER CONTROL TO NEXT MODULE. */ 00147000 * 0135 00148000 * RFY 0135 00149000 * (REG15) RSTD; /* Y02134 */ 00150000 *BRANCH: 0136 00151000 * ; /* YM1195 */ 00152000 BRANCH DS 0H 0137 00153000 * REG15=ADDR(WTGPREFX); /* Y02080 */ 00154000 LA REG15,WTGPREFX(,RWTG) 0137 00155000 * GEN REFS(WTGMODEP,WTGMODNM,IECREGSV); 0138 00156000 * /* Y02134 */ 00157000 * IECRES LOAD,MODID=(RWTGC),PREFIX=0(15),BRANCH=DIRECT Y02080 00158000 L 15,0(,15) Y02080 00159000 STM 0,14,IECREGSV-IECPREFX(15) Y02080 00160000 MVC WTGMODNM+6(2,6),0(RWTGC) Y02080 00161000 MVC WTGMODEP+1(3,6),2(RWTGC) Y02080 00162000 LA 6,WTGMODNM(,6) Y02080 00163000 L 5,CVTPTR(0,0) Y02080 00164000 L 5,CVTDMSR-CVT(,5) Y02080 00165000 B 20(,5) Y02080 00166000 * RFY 0139 00167000 * (REG15) UNRSTD; /* Y02134 */ 00168000 *FINISH: 0140 00169000 * RETURN; /* Y02080 */ 00170000 @EL00001 DS 0H 0140 00171000 @EF00001 DS 0H 0140 00172000 @ER00001 BR @14 0140 00173000 * GEN DATA; 0141 00174000 * END IGG0203K 0142 00175000 * 0142 00176000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00177000 */*%INCLUDE SYSLIB (CVT ) */ 00178000 */*%INCLUDE SYSLIB (IFGACB ) */ 00179000 */*%INCLUDE SYSLIB (IEFJESCT) */ 00180000 */*%INCLUDE SYSLIB (IECDSECT) */ 00181000 */*%INCLUDE SYSLIB (IECDSECS) */ 00182000 */*%INCLUDE SYSLIB (IKJTCB ) */ 00183000 */*%INCLUDE SYSLIB (IEFTIOT1) */ 00184000 */*%INCLUDE SYSLIB (IEZDEB ) */ 00185000 */*%INCLUDE SYSLIB (IEFJSSIB) */ 00186000 */*%INCLUDE SYSLIB (IEFJSSOB) */ 00187000 * 0142 00188000 * ; 0142 00189000 B @EL00001 0142 00190000 @DATA DS 0H 00191000 @CH00059 DC H'4' 00192000 @CH00061 DC H'8' 00193000 @CH01090 DC H'17' 00194000 @DATD DSECT 00195000 DS 0F 00196000 IGG0203K CSECT 00197000 DS 0F 00198000 @CF01890 DC XL4'80000000' 00199000 @DATD DSECT 00200000 DS 0D 00201000 IGG0203K CSECT 00202000 DS 0F 00203000 @SIZDATD DC AL1(0) 00204000 DC AL3(@ENDDATD-@DATD) 00205000 DS 0D 00206000 @CC01897 DC C'3K' 00207000 @CC01898 DC C'0B' 00208000 @CC01899 DC C'0G' 00209000 @CB01893 DC X'0000' 00210000 JECSINT DC CL8'IFGAAABA' 00211000 @DATD DSECT 00212000 IGG0203K CSECT Y02080 00213000 XCTLTABL XCTLTABL ID=(IGG0206M,6M),SVC=020,BRT=YES,LENGTH= YM1195 00214000 CVT EQU 0 DEFINE CVT DSECT NAME Y02080 00215000 @DATD DSECT 00216000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00217000 @ENDDATD EQU * 00218000 IGG0203K CSECT 00219000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00220000 @01 EQU 01 00221000 @02 EQU 02 00222000 @03 EQU 03 00223000 @04 EQU 04 00224000 @05 EQU 05 00225000 @06 EQU 06 00226000 @07 EQU 07 00227000 @08 EQU 08 00228000 @09 EQU 09 00229000 @10 EQU 10 00230000 @11 EQU 11 00231000 @12 EQU 12 00232000 @13 EQU 13 00233000 @14 EQU 14 00234000 @15 EQU 15 00235000 R1 EQU @01 00236000 RACB EQU @02 00237000 RCORE EQU @04 00238000 RPAR EQU @05 00239000 RWTG EQU @06 00240000 RPARC EQU @07 00241000 RWTGC EQU @08 00242000 RDEB EQU @11 00243000 SAVEPTR EQU @13 00244000 REG15 EQU @15 00245000 RET EQU @14 00246000 RF EQU @15 00247000 R0 EQU @00 00248000 CVTPTR EQU 16 00249000 DEBSBPTR EQU 0 00250000 DEBEXPTR EQU 0 00251000 PARC EQU 0 00252000 PARM EQU PARC 00253000 CVTMAP EQU 0 00254000 CVTDAR EQU CVTMAP+72 00255000 CVTFLGS1 EQU CVTDAR 00256000 CVTDCB EQU CVTMAP+116 00257000 CVTIERLC EQU CVTMAP+144 00258000 CVTOPTA EQU CVTMAP+182 00259000 CVTOPTB EQU CVTMAP+183 00260000 CVTGTF EQU CVTMAP+236 00261000 CVTGTFST EQU CVTGTF 00262000 CVTGTFS EQU CVTGTFST 00263000 CVTSTATE EQU CVTGTFST 00264000 CVTTMODE EQU CVTGTFST 00265000 CVTFORM EQU CVTGTFST 00266000 CVTUSR EQU CVTGTFST 00267000 CVTAQAVT EQU CVTMAP+240 00268000 CVTTCMFG EQU CVTAQAVT 00269000 CVTVOLM2 EQU CVTMAP+244 00270000 CVTTATA EQU CVTVOLM2 00271000 CVTTSKS EQU CVTTATA 00272000 CVTVOLF2 EQU CVTTSKS 00273000 CVTTAT EQU CVTTATA+1 00274000 CVTATER EQU CVTMAP+248 00275000 CVTEXT1 EQU CVTMAP+252 00276000 CVTPURG EQU CVTMAP+260 00277000 CVTQMSG EQU CVTMAP+268 00278000 CVTDMSR EQU CVTMAP+272 00279000 CVTJESCT EQU CVTMAP+296 00280000 CVTERPV EQU CVTMAP+316 00281000 CVTINTLA EQU CVTMAP+320 00282000 CVTAPF EQU CVTMAP+324 00283000 CVTEXT2 EQU CVTMAP+328 00284000 CVTHJES EQU CVTMAP+332 00285000 CVTPGSIA EQU CVTMAP+348 00286000 CVTA1F1 EQU CVTMAP+356 00287000 CVTSYSK EQU CVTMAP+357 00288000 CVTVOLM1 EQU CVTMAP+380 00289000 CVTVOLF1 EQU CVTVOLM1 00290000 CVTATMCT EQU CVTMAP+388 00291000 CVTXTNT1 EQU 0 00292000 CVTXTNT2 EQU 0 00293000 CVTDSSV EQU CVTXTNT2 00294000 CVTRSV90 EQU CVTXTNT2+5 00295000 CVTQID EQU CVTXTNT2+24 00296000 CVTRV400 EQU CVTXTNT2+52 00297000 CVTRV409 EQU CVTXTNT2+53 00298000 CVTATCVT EQU CVTXTNT2+64 00299000 CVTRV429 EQU CVTXTNT2+84 00300000 CVTRV438 EQU CVTXTNT2+85 00301000 CVTRV457 EQU CVTXTNT2+112 00302000 CVTRV466 EQU CVTXTNT2+113 00303000 CVTFIX EQU 0 00304000 CVTRELNO EQU CVTFIX+252 00305000 IFGACB EQU 0 00306000 ACBCOMN EQU IFGACB 00307000 ACBLENG EQU ACBCOMN+2 00308000 ACBLENG2 EQU ACBLENG 00309000 ACBAMBL EQU ACBCOMN+4 00310000 ACBIXLST EQU ACBAMBL 00311000 ACBJWA EQU ACBIXLST 00312000 ACBMACRF EQU ACBCOMN+12 00313000 ACBMACR1 EQU ACBMACRF 00314000 ACBADR EQU ACBMACR1 00315000 ACBCNV EQU ACBMACR1 00316000 ACBMACR2 EQU ACBMACRF+1 00317000 ACBLFB EQU ACBCOMN+20 00318000 ACBBUFPL EQU ACBLFB 00319000 ACBRECFM EQU ACBCOMN+24 00320000 ACBCCTYP EQU ACBCOMN+25 00321000 ACBOPT EQU ACBCOMN+26 00322000 ACBDSORG EQU ACBOPT 00323000 ACBCROPS EQU ACBDSORG 00324000 ACBEXLST EQU ACBCOMN+36 00325000 ACBDDNM EQU ACBCOMN+40 00326000 ACBAMETH EQU ACBDDNM+3 00327000 ACBDEB EQU ACBDDNM+5 00328000 ACBOFLGS EQU ACBCOMN+48 00329000 ACBEXFG EQU ACBOFLGS 00330000 ACBIOSFG EQU ACBOFLGS 00331000 ACBINFLG EQU ACBCOMN+50 00332000 ACBUJFCB EQU ACBCOMN+52 00333000 ACBWAPTR EQU ACBUJFCB 00334000 JESCT EQU 0 00335000 JESWAA EQU JESCT+8 00336000 JESSSREQ EQU JESCT+20 00337000 FORCORE EQU 0 00338000 DXDSCB EQU FORCORE 00339000 DXLBL EQU DXDSCB 00340000 DXJBF EQU FORCORE+100 00341000 DXDAADDR EQU FORCORE+312 00342000 DXDCB EQU FORCORE+320 00343000 DXCCW EQU FORCORE+368 00344000 DXCCW1 EQU DXCCW 00345000 DXCCW5 EQU DXCCW+32 00346000 DXCCW8 EQU DXCCW+56 00347000 DXCCW12 EQU DXCCW+88 00348000 DXXCTL EQU FORCORE+472 00349000 DXVOLSR EQU FORCORE+500 00350000 DXVOLSR1 EQU DXVOLSR 00351000 DXVOLSR2 EQU DXVOLSR+6 00352000 DXVOLSR3 EQU DXVOLSR+12 00353000 DXRESSW EQU FORCORE+524 00354000 DXTCBADR EQU FORCORE+532 00355000 DXDEBXAD EQU FORCORE+552 00356000 DXUCBSAV EQU FORCORE+564 00357000 DXUDCBAD EQU FORCORE+568 00358000 DXPDCBAD EQU FORCORE+572 00359000 DXATCOM1 EQU FORCORE+588 00360000 DXATGENS EQU DXATCOM1 00361000 DXATVGIV EQU DXATGENS 00362000 DXATOUTA EQU DXATCOM1+2 00363000 DXATDACC EQU DXATCOM1+3 00364000 DXATCOM2 EQU FORCORE+592 00365000 DXATEOV EQU DXATCOM2 00366000 DXATOPEN EQU DXATCOM2+1 00367000 DXATALL EQU DXATCOM2+2 00368000 DXATEXC1 EQU FORCORE+604 00369000 DXATEXB1 EQU DXATEXC1 00370000 DXEXHASP EQU DXATEXB1 00371000 DXATEXC2 EQU FORCORE+608 00372000 DSECTSIZ EQU FORCORE+612 00373000 IECPREFX EQU 0 00374000 IECEXTPR EQU IECPREFX+32 00375000 IECREGSV EQU IECEXTPR 00376000 IECUPRML EQU IECEXTPR+80 00377000 IECRESWA EQU IECEXTPR+84 00378000 RWARESWA EQU 0 00379000 RWAPREFX EQU RWARESWA 00380000 USERPRML EQU 0 00381000 IECRRPL EQU 0 00382000 RRPLIST EQU IECRRPL 00383000 RRFUNCTN EQU RRPLIST 00384000 RRFLAGS1 EQU RRPLIST+1 00385000 RRFLAGS2 EQU RRPLIST+2 00386000 RRFLAGS3 EQU RRPLIST+3 00387000 RRXRETRY EQU RRPLIST+12 00388000 DSMADTRL EQU 0 00389000 DSMADTW1 EQU DSMADTRL 00390000 DSMADTB1 EQU DSMADTW1 00391000 DSMADTB2 EQU DSMADTW1+1 00392000 WTGTABLE EQU 0 00393000 WTGWTOPR EQU WTGTABLE 00394000 WTG EQU 0 00395000 WTGAREA EQU WTG 00396000 WTGMODNM EQU WTGAREA 00397000 WTGMODEP EQU WTGAREA+8 00398000 WTGPREFX EQU WTGAREA+16 00399000 WTGPATHS EQU WTG+30 00400000 WTGENTRY EQU 0 00401000 WTGIDTTR EQU WTGENTRY 00402000 WTGEID EQU WTGIDTTR 00403000 WTGCORE EQU WTGENTRY+5 00404000 APPNMTBL EQU 0 00405000 APPENTRY EQU APPNMTBL+4 00406000 TCBFIX EQU 0 00407000 TCBFRS EQU TCBFIX 00408000 TCB EQU 0 00409000 TCBPIE EQU TCB+4 00410000 TCBPMASK EQU TCBPIE 00411000 TCBTIO EQU TCB+12 00412000 TCBCMP EQU TCB+16 00413000 TCBCMPF EQU TCBCMP 00414000 TCBCPP EQU TCBCMPF 00415000 TCBSTCC EQU TCBCMPF 00416000 TCBCDBL EQU TCBCMPF 00417000 TCBCWTO EQU TCBCMPF 00418000 TCBCIND EQU TCBCMPF 00419000 TCBCMSG EQU TCBCMPF 00420000 TCBTRN EQU TCB+20 00421000 TCBABF EQU TCBTRN 00422000 TCBMSS EQU TCB+24 00423000 TCBPKF EQU TCB+28 00424000 TCBFLGS EQU TCB+29 00425000 TCBFLGS1 EQU TCBFLGS 00426000 TCBFLGS2 EQU TCBFLGS+1 00427000 TCBFLGS3 EQU TCBFLGS+2 00428000 TCBFLGS4 EQU TCBFLGS+3 00429000 TCBFLGS5 EQU TCBFLGS+4 00430000 TCBABWF EQU TCBFLGS5 00431000 TCBJPQ EQU TCB+44 00432000 TCBPURGE EQU TCBJPQ 00433000 TCBGRS EQU TCB+48 00434000 TCBFSA EQU TCB+112 00435000 TCBTME EQU TCB+120 00436000 TCBJSTCB EQU TCB+124 00437000 TCBTSFLG EQU TCB+148 00438000 TCBTSTSK EQU TCBTSFLG 00439000 TCBSTAB EQU TCB+160 00440000 TCBNSTAE EQU TCBSTAB 00441000 TCBTCT EQU TCB+164 00442000 TCBTCTGF EQU TCBTCT 00443000 TCBSCNDY EQU TCB+172 00444000 TCBNDSP EQU TCBSCNDY 00445000 TCBNDSP1 EQU TCBNDSP+1 00446000 TCBNDSP2 EQU TCBNDSP+2 00447000 TCBNDSP3 EQU TCBNDSP+3 00448000 TCBJSCB EQU TCB+180 00449000 TCBRECDE EQU TCBJSCB 00450000 TCBEXT1 EQU TCB+196 00451000 TCBBITS EQU TCB+200 00452000 TCBNDSP4 EQU TCBBITS 00453000 TCBNDSP5 EQU TCBBITS+1 00454000 TCBFLGS6 EQU TCBBITS+2 00455000 TCBFLGS7 EQU TCBBITS+3 00456000 TCBDAR EQU TCB+204 00457000 TCBDARC EQU TCBDAR 00458000 TCBEXT2 EQU TCB+208 00459000 TCBFOE EQU TCB+244 00460000 TCBESTAE EQU TCB+264 00461000 TCBESTRM EQU TCBESTAE+1 00462000 TCBFBYT1 EQU TCB+276 00463000 TCBFBYT2 EQU TCB+277 00464000 TCBRV124 EQU TCB+278 00465000 TCBRV133 EQU TCB+279 00466000 TCBXTNT2 EQU 0 00467000 TCBGTF EQU TCBXTNT2 00468000 TCBTFLG EQU TCBGTF 00469000 TCBRV146 EQU TCBXTNT2+28 00470000 TCBRV155 EQU TCBXTNT2+29 00471000 TCBRV164 EQU TCBXTNT2+30 00472000 TCBRV173 EQU TCBXTNT2+31 00473000 TIOT1 EQU 0 00474000 DEBBASIC EQU 0 00475000 DEBTCBAD EQU DEBBASIC 00476000 DEBDEBAD EQU DEBBASIC+4 00477000 DEBIRBAD EQU DEBBASIC+8 00478000 DEBOFLGS EQU DEBIRBAD 00479000 DEBOPATB EQU DEBBASIC+12 00480000 DEBFLGS1 EQU DEBBASIC+14 00481000 DEBUSRPG EQU DEBBASIC+16 00482000 DEBRRQ EQU DEBBASIC+20 00483000 DEBECBAD EQU DEBRRQ 00484000 DEBDCBAD EQU DEBBASIC+24 00485000 DEBPROTG EQU DEBDCBAD 00486000 DEBAPPAD EQU DEBBASIC+28 00487000 DEBBASND EQU DEBBASIC+32 00488000 DEBDASD EQU 0 00489000 DEBUCBAD EQU DEBDASD 00490000 DEBBINUM EQU DEBDASD+4 00491000 DEBACSMD EQU 0 00492000 DEBVOLSQ EQU DEBACSMD 00493000 DEBVOLBT EQU DEBVOLSQ 00494000 DEBDSNM EQU DEBACSMD+4 00495000 DEBUTSAA EQU DEBDSNM 00496000 DEBACS01 EQU 0 00497000 DEBDSNAM EQU DEBACS01 00498000 DEBACS02 EQU 0 00499000 DEBDBLK EQU DEBACS02 00500000 DEBACS03 EQU 0 00501000 DEBACS04 EQU 0 00502000 DEBTBFRA EQU DEBACS04 00503000 DEBTCCWA EQU DEBACS04+4 00504000 DEBACS05 EQU 0 00505000 DEBFUCBA EQU DEBACS05 00506000 DEBLUCBA EQU DEBACS05+4 00507000 DEBACS06 EQU 0 00508000 DEBACS07 EQU 0 00509000 DEBACS08 EQU 0 00510000 DEBSUBNM EQU 0 00511000 DEB EQU 0 00512000 DEBAVT EQU DEB 00513000 DEBEOEA EQU DEBAVT 00514000 DEBEOEAB EQU DEBEOEA 00515000 DEBSIOA EQU DEBAVT+4 00516000 DEBSIOAB EQU DEBSIOA 00517000 DEBPCIA EQU DEBAVT+8 00518000 DEBPCIAB EQU DEBPCIA 00519000 DEBCEA EQU DEBAVT+12 00520000 DEBCEAB EQU DEBCEA 00521000 DEBXCEA EQU DEBAVT+16 00522000 DEBXCEAB EQU DEBXCEA 00523000 DEBPREFX EQU DEB+20 00524000 DEBXTNP EQU DEBPREFX+8 00525000 DEBXTN EQU 0 00526000 DEBXFLG1 EQU DEBXTN+2 00527000 SSIB EQU 0 00528000 SSIBFLG1 EQU SSIB+6 00529000 SSIBSUSE EQU SSIB+32 00530000 SSOB EQU 0 00531000 SSOBFUNC EQU SSOB+6 00532000 SSOBRETN EQU SSOB+12 00533000 SSOBINDV EQU SSOB+16 00534000 SSDA EQU 0 00535000 SSDARESF EQU SSDA+3 00536000 SSDAJFCB EQU SSDA+8 00537000 SSREQ EQU 0 00538000 SWAMGR EQU 0 00539000 DXCCW1A EQU DXCCW1 00540000 CVTS01 EQU CVTPGSIA 00541000 CVTLPDIA EQU CVTS01+12 00542000 CVTDIRST EQU CVTLPDIA 00543000 CVTSLIDA EQU CVTS01+24 00544000 CVTCTLFG EQU CVTS01+50 00545000 CVTRV210 EQU CVTS01+424 00546000 CVTRV219 EQU CVTS01+425 00547000 CVTRV228 EQU CVTS01+426 00548000 CVTRV237 EQU CVTS01+427 00549000 CVTMFRTR EQU CVTS01+452 00550000 CVTRV262 EQU CVTS01+468 00551000 CVTRV271 EQU CVTS01+469 00552000 CVTRV280 EQU CVTS01+470 00553000 CVTRV289 EQU CVTS01+471 00554000 CVTGSDA EQU CVTS01+600 00555000 DXXWTG EQU DSECTSIZ 00556000 DXXAREA EQU DSECTSIZ+4 00557000 DXXMODNM EQU DXXAREA 00558000 DXXLNG EQU DXXAREA+29 00559000 DXXENTRY EQU DXXAREA+32 00560000 DXXIDTTR EQU DXXENTRY 00561000 DXREGSAV EQU DXCCW8 00562000 DXREG9 EQU DXREGSAV 00563000 DXREG1 EQU DXREGSAV+28 00564000 DXIDENT EQU DXCCW12 00565000 DXCALLID EQU DXIDENT 00566000 DXRETMOD EQU DXIDENT+2 00567000 @NM00042 EQU DXXCTL 00568000 DXSAVMOD EQU @NM00042+2 00569000 @NM00043 EQU DXRESSW 00570000 TIOENTRY EQU TIOT1+24 00571000 TIOESTTA EQU TIOENTRY+1 00572000 TIOERLOC EQU TIOENTRY+2 00573000 TIOELINK EQU TIOERLOC+1 00574000 TIOESYOT EQU TIOELINK 00575000 TIOESTTC EQU TIOENTRY+15 00576000 TIOESTTB EQU TIOENTRY+16 00577000 POOLSTAR EQU TIOENTRY+20 00578000 TIOEDEVE EQU TIOESTTB 00579000 TIOSTTB EQU TIOEDEVE 00580000 DEBBAS02 EQU DEBBASND 00581000 DEBDDS1 EQU DEBBAS02 00582000 DEBSUCBA EQU DEBDDS1 00583000 DEBRDCB EQU DEBDDS1+4 00584000 DEBPDCB EQU DEBDDS1+8 00585000 DEBWDCB EQU DEBDDS1+12 00586000 DEBBAS01 EQU DEBBASND 00587000 DEBISAM EQU DEBBAS01 00588000 DEBFIEAD EQU DEBISAM 00589000 DEBFPEAD EQU DEBISAM+4 00590000 DEBFOEAD EQU DEBISAM+8 00591000 DEBEXPT EQU DEBISAM+12 00592000 DEBRPSID EQU DEBEXPT 00593000 DXBTAMX EQU DXREG1 00594000 DXDSNAME EQU DXCCW5 00595000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00596000 DEBEXPTA EQU DEBEXPT+1 00597000 DEBRSV12 EQU DEBRPSID 00598000 DEBRSV11 EQU DEBRPSID 00599000 DEBRSV10 EQU DEBRPSID 00600000 DEBRSV09 EQU DEBRPSID 00601000 DEBRPSAP EQU DEBRPSID 00602000 DEBRPSO EQU DEBRPSID 00603000 DEBRPSI EQU DEBRPSID 00604000 DEBRPSP EQU DEBRPSID 00605000 DEBFOEB EQU DEBFOEAD+1 00606000 DEBNOEE EQU DEBFOEAD 00607000 DEBFPEB EQU DEBFPEAD+1 00608000 DEBNPEE EQU DEBFPEAD 00609000 DEBFIEB EQU DEBFIEAD+1 00610000 DEBNIEE EQU DEBFIEAD 00611000 DEBWDCBA EQU DEBWDCB+1 00612000 DEBRSV08 EQU DEBWDCB 00613000 DEBPDCBA EQU DEBPDCB+1 00614000 DEBRSV07 EQU DEBPDCB 00615000 DEBRDCBA EQU DEBRDCB+1 00616000 DEBRSV06 EQU DEBRDCB 00617000 DEBSUCBB EQU DEBSUCBA+1 00618000 DEBSDVM EQU DEBSUCBA 00619000 TIOUCBP EQU TIOEDEVE+1 00620000 TIOVERF EQU TIOSTTB 00621000 TIOUNLD EQU TIOSTTB 00622000 TIOMNTD EQU TIOSTTB 00623000 TIOSETU EQU TIOSTTB 00624000 TIOVLSR EQU TIOSTTB 00625000 TIOPVIO EQU TIOSTTB 00626000 TIOREQD EQU TIOSTTB 00627000 TIOUSED EQU TIOSTTB 00628000 TIOTFEND EQU POOLSTAR+16 00629000 TIOPSLOT EQU POOLSTAR+13 00630000 TIOPSTTB EQU POOLSTAR+12 00631000 TIOPPOOL EQU POOLSTAR+4 00632000 TIOPNSRT EQU POOLSTAR+3 00633000 @NM00049 EQU POOLSTAR+2 00634000 TIOPNSLT EQU POOLSTAR+1 00635000 @NM00048 EQU POOLSTAR 00636000 TIOEFSRT EQU TIOENTRY+17 00637000 TIOSVERF EQU TIOESTTB 00638000 TIOSUNLD EQU TIOESTTB 00639000 TIOSMNTD EQU TIOESTTB 00640000 TIOSSETU EQU TIOESTTB 00641000 TIOSVLSR EQU TIOESTTB 00642000 TIOSPVIO EQU TIOESTTB 00643000 TIOSREQD EQU TIOESTTB 00644000 TIOSUSED EQU TIOESTTB 00645000 TIOSBALS EQU TIOESTTC 00646000 TIOSBALP EQU TIOESTTC 00647000 TIOSVOLS EQU TIOESTTC 00648000 TIOSVOLP EQU TIOESTTC 00649000 TIOSAFFS EQU TIOESTTC 00650000 TIOSAFFP EQU TIOESTTC 00651000 TIOSDEFR EQU TIOESTTC 00652000 TIOSDKCR EQU TIOESTTC 00653000 TIOEJFCB EQU TIOENTRY+12 00654000 TIOEDDNM EQU TIOENTRY+4 00655000 TIOTREM EQU TIOELINK 00656000 TIOESSDS EQU TIOESYOT 00657000 TIOESYIN EQU TIOELINK 00658000 TIOEQNAM EQU TIOELINK 00659000 TIOEDYNM EQU TIOELINK 00660000 TIOTTERM EQU TIOELINK 00661000 TIOTRV01 EQU TIOELINK 00662000 TIOSYOUT EQU TIOELINK 00663000 TIOEWTCT EQU TIOERLOC 00664000 TIOSDSP2 EQU TIOESTTA 00665000 TIOSDSP1 EQU TIOESTTA 00666000 TIOSLABL EQU TIOESTTA 00667000 TIOSDADS EQU TIOESTTA 00668000 TIOSJBLB EQU TIOESTTA 00669000 TIOSPLTS EQU TIOESTTA 00670000 TIOSPLTP EQU TIOESTTA 00671000 TIOSLTYP EQU TIOESTTA 00672000 TIOELNGH EQU TIOENTRY 00673000 DXRESIND EQU @NM00043 00674000 DXSAVOFF EQU @NM00042+7 00675000 DXSAVADR EQU DXSAVMOD+2 00676000 DXSAVID EQU DXSAVMOD 00677000 DXABCODE EQU @NM00042 00678000 DXRETCOD EQU DXIDENT+7 00679000 DXRETTTR EQU DXRETMOD+2 00680000 DXRETID EQU DXRETMOD 00681000 DXREG0 EQU DXREGSAV+24 00682000 DXREGE EQU DXREGSAV+20 00683000 DXREGD EQU DXREGSAV+16 00684000 DXREGC EQU DXREGSAV+12 00685000 DXREGB EQU DXREGSAV+8 00686000 DXREGA EQU DXREGSAV+4 00687000 DXXEND EQU DXXAREA+48 00688000 DXXLAST EQU DXXAREA+40 00689000 DXXCORE EQU DXXENTRY+5 00690000 DXETTR EQU DXXIDTTR+2 00691000 DXEID EQU DXXIDTTR 00692000 DXXPATHS EQU DXXAREA+30 00693000 DXOPCLSW EQU DXXLNG 00694000 DXXTXTLN EQU DXXAREA+27 00695000 DXXMODSZ EQU DXXAREA+24 00696000 DXXATTRB EQU DXXAREA+22 00697000 @NM00027 EQU DXXAREA+20 00698000 DXXPREFX EQU DXXAREA+16 00699000 @NM00026 EQU DXXAREA+12 00700000 DXXMODEP EQU DXXAREA+8 00701000 DXXMODID EQU DXXMODNM+6 00702000 @NM00025 EQU DXXMODNM 00703000 DXXWTOPR EQU DXXWTG 00704000 CVTTPIO EQU CVTS01+608 00705000 CVTADV EQU CVTS01+604 00706000 CVTGSDAB EQU CVTGSDA 00707000 CVTQV3 EQU CVTS01+596 00708000 CVTQV2 EQU CVTS01+592 00709000 CVTQV1 EQU CVTS01+588 00710000 CVTRPT EQU CVTS01+584 00711000 CVTSSRB EQU CVTS01+580 00712000 CVTCSDRL EQU CVTS01+576 00713000 CVTEXP1 EQU CVTS01+572 00714000 CVTRMPMT EQU CVTS01+568 00715000 CVTRMPTT EQU CVTS01+564 00716000 CVTVPSA EQU CVTS01+560 00717000 CVTVSTOP EQU CVTS01+556 00718000 CVTGTFR8 EQU CVTS01+552 00719000 CVTQUIT EQU CVTS01+548 00720000 CVTVACR EQU CVTS01+544 00721000 CVTWTCB EQU CVTS01+540 00722000 CVTSTPRS EQU CVTS01+536 00723000 CVT0PT02 EQU CVTS01+532 00724000 CVTDARCM EQU CVTS01+528 00725000 CVTIRECM EQU CVTS01+524 00726000 CVTJRECM EQU CVTS01+520 00727000 CVTVEMS0 EQU CVTS01+516 00728000 CVTSPFRR EQU CVTS01+512 00729000 CVTRLSTG EQU CVTS01+508 00730000 CVT0TC0A EQU CVTS01+504 00731000 CVTGMBR EQU CVTS01+500 00732000 CVTLFRM EQU CVTS01+496 00733000 CVTRMBR EQU CVTS01+492 00734000 CVTVIOP EQU CVTS01+488 00735000 CVTRV307 EQU CVTS01+486 00736000 CVTRV306 EQU CVTS01+484 00737000 CVTRV305 EQU CVTS01+482 00738000 CVTRV304 EQU CVTS01+480 00739000 CVTRV303 EQU CVTS01+478 00740000 CVTRV302 EQU CVTS01+476 00741000 CVTRV301 EQU CVTS01+475 00742000 CVTRV300 EQU CVTS01+474 00743000 CVTRV299 EQU CVTS01+473 00744000 CVTRV298 EQU CVTS01+472 00745000 CVTRV297 EQU CVTRV289 00746000 CVTRV296 EQU CVTRV289 00747000 CVTRV295 EQU CVTRV289 00748000 CVTRV294 EQU CVTRV289 00749000 CVTRV293 EQU CVTRV289 00750000 CVTRV292 EQU CVTRV289 00751000 CVTRV291 EQU CVTRV289 00752000 CVTRV290 EQU CVTRV289 00753000 CVTRV288 EQU CVTRV280 00754000 CVTRV287 EQU CVTRV280 00755000 CVTRV286 EQU CVTRV280 00756000 CVTRV285 EQU CVTRV280 00757000 CVTRV284 EQU CVTRV280 00758000 CVTRV283 EQU CVTRV280 00759000 CVTRV282 EQU CVTRV280 00760000 CVTRV281 EQU CVTRV280 00761000 CVTRV279 EQU CVTRV271 00762000 CVTRV278 EQU CVTRV271 00763000 CVTRV277 EQU CVTRV271 00764000 CVTRV276 EQU CVTRV271 00765000 CVTRV275 EQU CVTRV271 00766000 CVTRV274 EQU CVTRV271 00767000 CVTRV273 EQU CVTRV271 00768000 CVTRV272 EQU CVTRV271 00769000 CVTRV270 EQU CVTRV262 00770000 CVTRV269 EQU CVTRV262 00771000 CVTRV268 EQU CVTRV262 00772000 CVTRV267 EQU CVTRV262 00773000 CVTRV266 EQU CVTRV262 00774000 CVTRV265 EQU CVTRV262 00775000 CVTRV264 EQU CVTRV262 00776000 CVTRV263 EQU CVTRV262 00777000 CVTVFP EQU CVTS01+464 00778000 CVTVSI EQU CVTS01+460 00779000 CVTVPSIB EQU CVTS01+456 00780000 CVTMFACT EQU CVTMFRTR 00781000 CVTMFCTL EQU CVTS01+448 00782000 CVTPVBP EQU CVTS01+444 00783000 CVTPWI EQU CVTS01+440 00784000 CVTRV254 EQU CVTS01+438 00785000 CVTRV253 EQU CVTS01+436 00786000 CVTRV252 EQU CVTS01+434 00787000 CVTRV251 EQU CVTS01+433 00788000 CVTRV250 EQU CVTS01+432 00789000 CVTRV249 EQU CVTS01+431 00790000 CVTRV248 EQU CVTS01+430 00791000 CVTRV247 EQU CVTS01+429 00792000 CVTRV246 EQU CVTS01+428 00793000 CVTRV245 EQU CVTRV237 00794000 CVTRV244 EQU CVTRV237 00795000 CVTRV243 EQU CVTRV237 00796000 CVTRV242 EQU CVTRV237 00797000 CVTRV241 EQU CVTRV237 00798000 CVTRV240 EQU CVTRV237 00799000 CVTRV239 EQU CVTRV237 00800000 CVTRV238 EQU CVTRV237 00801000 CVTRV236 EQU CVTRV228 00802000 CVTRV235 EQU CVTRV228 00803000 CVTRV234 EQU CVTRV228 00804000 CVTRV233 EQU CVTRV228 00805000 CVTRV232 EQU CVTRV228 00806000 CVTRV231 EQU CVTRV228 00807000 CVTRV230 EQU CVTRV228 00808000 CVTRV229 EQU CVTRV228 00809000 CVTRV227 EQU CVTRV219 00810000 CVTRV226 EQU CVTRV219 00811000 CVTRV225 EQU CVTRV219 00812000 CVTRV224 EQU CVTRV219 00813000 CVTRV223 EQU CVTRV219 00814000 CVTRV222 EQU CVTRV219 00815000 CVTRV221 EQU CVTRV219 00816000 CVTRV220 EQU CVTRV219 00817000 CVTRV218 EQU CVTRV210 00818000 CVTRV217 EQU CVTRV210 00819000 CVTRV216 EQU CVTRV210 00820000 CVTRV215 EQU CVTRV210 00821000 CVTRV214 EQU CVTRV210 00822000 CVTRV213 EQU CVTRV210 00823000 CVTRV212 EQU CVTRV210 00824000 CVTRV211 EQU CVTRV210 00825000 CVTLCCAT EQU CVTS01+420 00826000 CVTPCCAT EQU CVTS01+416 00827000 CVTIPCRP EQU CVTS01+412 00828000 CVTIPCRI EQU CVTS01+408 00829000 CVTIPCDS EQU CVTS01+404 00830000 CVTAIDVT EQU CVTS01+400 00831000 CVTSSAP EQU CVTS01+396 00832000 CVTEHCIR EQU CVTS01+392 00833000 CVTEHDEF EQU CVTS01+388 00834000 CVTDAIR EQU CVTS01+384 00835000 CVTPERFM EQU CVTS01+380 00836000 CVT044R2 EQU CVTS01+376 00837000 CVTFETCH EQU CVTS01+372 00838000 CVTRSTWD EQU CVTS01+368 00839000 CVTSPOST EQU CVTS01+364 00840000 CVTIOBP EQU CVTS01+360 00841000 CVTASMVT EQU CVTS01+356 00842000 CVTRECRQ EQU CVTS01+352 00843000 CVTWSAC EQU CVTS01+348 00844000 CVTRV149 EQU CVTS01+344 00845000 CVTWSAL EQU CVTS01+340 00846000 CVTSPSA EQU CVTS01+336 00847000 CVTGLMN EQU CVTS01+332 00848000 CVTVEAC0 EQU CVTS01+328 00849000 CVT062R1 EQU CVTS01+324 00850000 CVTRPOST EQU CVTS01+320 00851000 CVTDQIQE EQU CVTS01+316 00852000 CVTCSD EQU CVTS01+312 00853000 CVTLKRMA EQU CVTS01+308 00854000 CVTRSPIE EQU CVTS01+304 00855000 CVTRENQ EQU CVTS01+300 00856000 CVTLQCB EQU CVTS01+296 00857000 CVTFQCB EQU CVTS01+292 00858000 CVTQCS01 EQU CVTS01+288 00859000 CVTAPFT EQU CVTS01+284 00860000 CVTPARRL EQU CVTS01+280 00861000 CVTVWAIT EQU CVTS01+276 00862000 CVTGSPL EQU CVTS01+272 00863000 CVTLSMQ EQU CVTS01+268 00864000 CVTGSMQ EQU CVTS01+264 00865000 CVTEXPRO EQU CVTS01+260 00866000 CVTOPCTP EQU CVTS01+256 00867000 CVTSIC EQU CVTS01+252 00868000 CVTTPIOS EQU CVTS01+248 00869000 CVTRTMS EQU CVTS01+244 00870000 CVTSDBF EQU CVTS01+240 00871000 CVTSCBP EQU CVTS01+236 00872000 CVTSDMP EQU CVTS01+232 00873000 CVTSV60 EQU CVTS01+228 00874000 CVTRTMCT EQU CVTS01+224 00875000 CVTASCBL EQU CVTS01+220 00876000 CVTASCBH EQU CVTS01+216 00877000 CVTGDA EQU CVTS01+212 00878000 CVTASVT EQU CVTS01+208 00879000 CVTVVMDI EQU CVTS01+204 00880000 CVTAQTOP EQU CVTS01+200 00881000 CVTIOSCS EQU CVTS01+196 00882000 CVTSDRM EQU CVTS01+192 00883000 CVTOPTE EQU CVTS01+188 00884000 CVTSTXU EQU CVTS01+184 00885000 CVTQUIS EQU CVTS01+180 00886000 CVTPARS EQU CVTS01+176 00887000 CVTS1EE EQU CVTS01+172 00888000 CVTFRAS EQU CVTS01+168 00889000 CVTQSAS EQU CVTS01+164 00890000 CVTCRAS EQU CVTS01+160 00891000 CVTCRMN EQU CVTS01+156 00892000 CVTDELCP EQU CVTS01+152 00893000 CVTFRECL EQU CVTS01+148 00894000 CVTGETCL EQU CVTS01+144 00895000 CVTBLDCP EQU CVTS01+140 00896000 CVTAUTHL EQU CVTS01+136 00897000 CVTSCAN EQU CVTS01+132 00898000 CVTRV144 EQU CVTS01+130 00899000 CVTMAXMP EQU CVTS01+128 00900000 CVTSTCK EQU CVTS01+124 00901000 CVTRV139 EQU CVTS01+123 00902000 CVTDSSAC EQU CVTS01+122 00903000 CVTRV513 EQU CVTS01+121 00904000 CVTIOSPL EQU CVTS01+120 00905000 CVTPTGT EQU CVTS01+116 00906000 CVTCSPIE EQU CVTS01+112 00907000 CVTSMFEX EQU CVTS01+108 00908000 CVTOLT0A EQU CVTS01+104 00909000 CVTSRBRT EQU CVTS01+100 00910000 CVTPUTL EQU CVTS01+96 00911000 CVTRV519 EQU CVTS01+92 00912000 CVTRV327 EQU CVTS01+88 00913000 CVTRV326 EQU CVTS01+84 00914000 CVTRV325 EQU CVTS01+80 00915000 CVTRV324 EQU CVTS01+76 00916000 CVT0VL01 EQU CVTS01+72 00917000 CVTSHRVM EQU CVTS01+68 00918000 CVTRV332 EQU CVTS01+64 00919000 CVTTAS EQU CVTS01+60 00920000 CVTRSCN EQU CVTS01+56 00921000 CVTTRAC2 EQU CVTS01+54 00922000 CVTTRACE EQU CVTS01+52 00923000 CVTAPG EQU CVTS01+51 00924000 CVTSDTRC EQU CVTCTLFG 00925000 CVTGTRCE EQU CVTCTLFG 00926000 CVTNOMP EQU CVTCTLFG 00927000 CVTRSV79 EQU CVTCTLFG 00928000 CVTDSTAT EQU CVTCTLFG 00929000 CVTRSV78 EQU CVTCTLFG 00930000 CVTRV333 EQU CVTCTLFG 00931000 CVTRV323 EQU CVTCTLFG 00932000 CVTSPVLK EQU CVTS01+49 00933000 CVTRSV77 EQU CVTS01+48 00934000 CVTRV331 EQU CVTS01+44 00935000 CVTRV330 EQU CVTS01+40 00936000 CVTRV329 EQU CVTS01+36 00937000 CVTRV328 EQU CVTS01+32 00938000 CVTRV322 EQU CVTS01+28 00939000 CVTSLID EQU CVTSLIDA+1 00940000 CVTSYLK EQU CVTSLIDA 00941000 CVTRV321 EQU CVTS01+20 00942000 CVTRV320 EQU CVTS01+16 00943000 CVTLPDIR EQU CVTLPDIA+1 00944000 CVTRSV69 EQU CVTDIRST 00945000 CVTRSV68 EQU CVTDIRST 00946000 CVTRSV67 EQU CVTDIRST 00947000 CVTRSV66 EQU CVTDIRST 00948000 CVTRSV65 EQU CVTDIRST 00949000 CVTRSV64 EQU CVTDIRST 00950000 CVTRSV63 EQU CVTDIRST 00951000 CVTDICOM EQU CVTDIRST 00952000 CVTPVTP EQU CVTS01+8 00953000 CVTLPDSR EQU CVTS01+4 00954000 CVTGETL EQU CVTS01 00955000 SSDASSCM EQU SSDA+16 00956000 SSDADEBP EQU SSDA+12 00957000 SSDABUFR EQU SSDA+4 00958000 @NM00055 EQU SSDARESF 00959000 SSDADEFR EQU SSDARESF 00960000 SSDAAUTO EQU SSDARESF 00961000 SSDARESV EQU SSDA+2 00962000 SSDALEN EQU SSDA 00963000 SSOBSSIB EQU SSOB+8 00964000 SSOBLEN EQU SSOB+4 00965000 SSOBID EQU SSOB 00966000 SSIBRSV1 EQU SSIB+28 00967000 SSIBDEST EQU SSIB+20 00968000 SSIBJBID EQU SSIB+12 00969000 SSIBSSNM EQU SSIB+8 00970000 SSIBRESV EQU SSIB+7 00971000 @NM00054 EQU SSIBFLG1 00972000 SSIBPJES EQU SSIBFLG1 00973000 SSIBLEN EQU SSIB+4 00974000 SSIBID EQU SSIB 00975000 DEBXRV40 EQU DEBXTN+28 00976000 DEBXRV39 EQU DEBXTN+24 00977000 DEBXXARG EQU DEBXTN+20 00978000 DEBXMCF2 EQU DEBXTN+19 00979000 DEBXMCF1 EQU DEBXTN+18 00980000 DEBXDSO2 EQU DEBXTN+17 00981000 DEBXDSO1 EQU DEBXTN+16 00982000 DEBXDBPR EQU DEBXTN+12 00983000 DEBXDCBM EQU DEBXTN+8 00984000 DEBXDSAB EQU DEBXTN+4 00985000 DEBXRV48 EQU DEBXTN+3 00986000 DEBXRV47 EQU DEBXFLG1 00987000 DEBXRV46 EQU DEBXFLG1 00988000 DEBXRV45 EQU DEBXFLG1 00989000 DEBXRV44 EQU DEBXFLG1 00990000 DEBXRV43 EQU DEBXFLG1 00991000 DEBXRV42 EQU DEBXFLG1 00992000 DEBXTSKC EQU DEBXFLG1 00993000 DEBXCDCB EQU DEBXFLG1 00994000 DEBXLNGH EQU DEBXTN 00995000 DEBTBLOF EQU DEBPREFX+14 00996000 DEBAMTYP EQU DEBPREFX+13 00997000 DEBLNGTH EQU DEBPREFX+12 00998000 DEBDCBMK EQU DEBXTNP 00999000 DEBDSCBA EQU DEBPREFX+1 01000000 DEBWKARA EQU DEBPREFX 01001000 DEBXCEAD EQU DEBXCEA+1 01002000 DEBXCENP EQU DEBXCEAB 01003000 DEBRSV35 EQU DEBXCEAB 01004000 DEBRSV34 EQU DEBXCEAB 01005000 DEBRSV33 EQU DEBXCEAB 01006000 DEBRSV32 EQU DEBXCEAB 01007000 DEBCEAD EQU DEBCEA+1 01008000 DEBCENP EQU DEBCEAB 01009000 DEBRSV31 EQU DEBCEAB 01010000 DEBRSV30 EQU DEBCEAB 01011000 DEBRSV29 EQU DEBCEAB 01012000 DEBRSV28 EQU DEBCEAB 01013000 DEBPCIAD EQU DEBPCIA+1 01014000 DEBPCINP EQU DEBPCIAB 01015000 DEBRSV27 EQU DEBPCIAB 01016000 DEBRSV26 EQU DEBPCIAB 01017000 DEBRSV25 EQU DEBPCIAB 01018000 DEBRSV24 EQU DEBPCIAB 01019000 DEBSIOAD EQU DEBSIOA+1 01020000 DEBSIONP EQU DEBSIOAB 01021000 DEBFIX EQU DEBSIOAB 01022000 DEBIOVR EQU DEBSIOAB 01023000 DEBSIOX EQU DEBSIOAB 01024000 DEBPGFX EQU DEBSIOAB 01025000 DEBEOEAD EQU DEBEOEA+1 01026000 DEBEOENP EQU DEBEOEAB 01027000 DEBRSV22 EQU DEBEOEAB 01028000 DEBRSV21 EQU DEBEOEAB 01029000 DEBRSV20 EQU DEBEOEAB 01030000 DEBRSV19 EQU DEBEOEAB 01031000 DEBSUBID EQU DEBSUBNM 01032000 DEBSIOA2 EQU DEBACS08+24 01033000 DEBRPSIO EQU DEBACS08+20 01034000 DEBFREED EQU DEBACS08+16 01035000 @NM00053 EQU DEBACS08+12 01036000 @NM00052 EQU DEBACS08+8 01037000 DEBDISAD EQU DEBACS08+4 01038000 @NM00051 EQU DEBACS08 01039000 DEBRPSST EQU DEBACS07+64 01040000 DEBARECK EQU DEBACS07+60 01041000 DEBAREWT EQU DEBACS07+56 01042000 DEBACHK EQU DEBACS07+52 01043000 DEBAWRIT EQU DEBACS07+48 01044000 DEBASETL EQU DEBACS07+44 01045000 DEBAREAD EQU DEBACS07+40 01046000 DEBCRECK EQU DEBACS07+36 01047000 DEBCREWT EQU DEBACS07+32 01048000 DEBCCHK EQU DEBACS07+28 01049000 DEBCWRIT EQU DEBACS07+24 01050000 DEBCSETL EQU DEBACS07+20 01051000 DEBCREAD EQU DEBACS07+16 01052000 DEBWKPT5 EQU DEBACS07+12 01053000 DEBWKPT4 EQU DEBACS07+8 01054000 DEBGET EQU DEBACS07+4 01055000 @NM00050 EQU DEBACS07 01056000 DEBPUT EQU DEBACS06+4 01057000 DEBDCBFA EQU DEBACS06 01058000 DEBLUCBB EQU DEBLUCBA+1 01059000 DEBRSV18 EQU DEBLUCBA 01060000 DEBFUCBB EQU DEBFUCBA+1 01061000 DEBRSV17 EQU DEBFUCBA 01062000 DEBTCCWB EQU DEBTCCWA+1 01063000 DEBRSV16 EQU DEBTCCWA 01064000 DEBTBFRB EQU DEBTBFRA+1 01065000 DEBRSV15 EQU DEBTBFRA 01066000 DEBDBPEF EQU DEBACS03+8 01067000 DEBDBPP EQU DEBACS03+4 01068000 DEBDTPP EQU DEBACS03 01069000 DEBDBPE EQU DEBDBLK+1 01070000 DEBDBPT EQU DEBDBLK 01071000 DEBEXTNM EQU DEBDSNAM 01072000 DEBRSV14 EQU DEBDSNM+4 01073000 DEBUTSAB EQU DEBUTSAA+1 01074000 DEBRSV13 EQU DEBUTSAA 01075000 DEBVOLNM EQU DEBACSMD+2 01076000 DEBVLSEQ EQU DEBVOLSQ+1 01077000 DEBRSV42 EQU DEBVOLBT 01078000 DEBRSV41 EQU DEBVOLBT 01079000 DEBRSV40 EQU DEBVOLBT 01080000 DEBRSV39 EQU DEBVOLBT 01081000 DEBRSV38 EQU DEBVOLBT 01082000 DEBRSV37 EQU DEBVOLBT 01083000 DEBRSV36 EQU DEBVOLBT 01084000 DEBEXFUL EQU DEBVOLBT 01085000 DEBNMTRK EQU DEBDASD+14 01086000 DEBENDHH EQU DEBDASD+12 01087000 DEBENDCC EQU DEBDASD+10 01088000 DEBSTRHH EQU DEBDASD+8 01089000 DEBSTRCC EQU DEBDASD+6 01090000 DEBUCBA EQU DEBUCBAD+1 01091000 DEBDVMOD EQU DEBUCBAD 01092000 DEBAPPB EQU DEBAPPAD+1 01093000 DEBEXSCL EQU DEBAPPAD 01094000 DEBDCBB EQU DEBDCBAD+1 01095000 DEBDEBID EQU DEBPROTG 01096000 DEBECBB EQU DEBECBAD+1 01097000 DEBPRIOR EQU DEBECBAD 01098000 DEBUSRPB EQU DEBUSRPG+1 01099000 DEBNMEXT EQU DEBUSRPG 01100000 DEBRSV05 EQU DEBBASIC+15 01101000 DEBXTNIN EQU DEBFLGS1 01102000 DEBAPFIN EQU DEBFLGS1 01103000 DEBF1CEV EQU DEBFLGS1 01104000 DEBCINDI EQU DEBFLGS1 01105000 DEBRSV02 EQU DEBFLGS1 01106000 DEBRSV01 EQU DEBFLGS1 01107000 DEBEOFDF EQU DEBFLGS1 01108000 DEBPWCKD EQU DEBFLGS1 01109000 DEBQSCNT EQU DEBBASIC+13 01110000 DEBACCS EQU DEBOPATB 01111000 DEBPOSIT EQU DEBOPATB 01112000 DEBZERO EQU DEBOPATB 01113000 DEBABEND EQU DEBOPATB 01114000 DEBIRBB EQU DEBIRBAD+1 01115000 DEBRERR EQU DEBOFLGS 01116000 DEBLABEL EQU DEBOFLGS 01117000 DEBSPLIT EQU DEBOFLGS 01118000 DEBDCB EQU DEBOFLGS 01119000 DEBRLSE EQU DEBOFLGS 01120000 DEBEOF EQU DEBOFLGS 01121000 DEBDISP EQU DEBOFLGS 01122000 DEBDEBB EQU DEBDEBAD+1 01123000 DEBAMLNG EQU DEBDEBAD 01124000 DEBTCBB EQU DEBTCBAD+1 01125000 DEBNMSUB EQU DEBTCBAD 01126000 TIOCSTEP EQU TIOT1+8 01127000 TIOCNJOB EQU TIOT1 01128000 @NM00047 EQU TCBXTNT2+32 01129000 TCBRV181 EQU TCBRV173 01130000 TCBRV180 EQU TCBRV173 01131000 TCBRV179 EQU TCBRV173 01132000 TCBRV178 EQU TCBRV173 01133000 TCBRV177 EQU TCBRV173 01134000 TCBRV176 EQU TCBRV173 01135000 TCBRV175 EQU TCBRV173 01136000 TCBRV174 EQU TCBRV173 01137000 TCBRV172 EQU TCBRV164 01138000 TCBRV171 EQU TCBRV164 01139000 TCBRV170 EQU TCBRV164 01140000 TCBRV169 EQU TCBRV164 01141000 TCBRV168 EQU TCBRV164 01142000 TCBRV167 EQU TCBRV164 01143000 TCBRV166 EQU TCBRV164 01144000 TCBRV165 EQU TCBRV164 01145000 TCBRV163 EQU TCBRV155 01146000 TCBRV162 EQU TCBRV155 01147000 TCBRV161 EQU TCBRV155 01148000 TCBRV160 EQU TCBRV155 01149000 TCBRV159 EQU TCBRV155 01150000 TCBRV158 EQU TCBRV155 01151000 TCBRV157 EQU TCBRV155 01152000 TCBRV156 EQU TCBRV155 01153000 TCBRV154 EQU TCBRV146 01154000 TCBRV153 EQU TCBRV146 01155000 TCBRV152 EQU TCBRV146 01156000 TCBRV151 EQU TCBRV146 01157000 TCBRV150 EQU TCBRV146 01158000 TCBRV149 EQU TCBRV146 01159000 TCBRV148 EQU TCBRV146 01160000 TCBRV147 EQU TCBRV146 01161000 TCBRV145 EQU TCBXTNT2+26 01162000 TCBRV144 EQU TCBXTNT2+24 01163000 TCBRV143 EQU TCBXTNT2+20 01164000 TCBRV142 EQU TCBXTNT2+16 01165000 TCBRSV49 EQU TCBXTNT2+12 01166000 TCBRSV48 EQU TCBXTNT2+8 01167000 TCBRCMP EQU TCBXTNT2+5 01168000 TCBRSVAB EQU TCBXTNT2+4 01169000 TCBGTFA EQU TCBGTF+1 01170000 TCBRSV47 EQU TCBTFLG 01171000 TCBRSV46 EQU TCBTFLG 01172000 TCBRSV45 EQU TCBTFLG 01173000 TCBRSV44 EQU TCBTFLG 01174000 TCBRSV43 EQU TCBTFLG 01175000 TCBDSPIT EQU TCBTFLG 01176000 TCBERRTN EQU TCBTFLG 01177000 TCBASYNC EQU TCBTFLG 01178000 @NM00046 EQU TCB+296 01179000 TCBSCBQ EQU TCB+292 01180000 TCBSWASA EQU TCB+288 01181000 TCBDBTB EQU TCB+284 01182000 TCBRPT EQU TCB+280 01183000 TCBRV141 EQU TCBRV133 01184000 TCBRV140 EQU TCBRV133 01185000 TCBRV139 EQU TCBRV133 01186000 TCBRV138 EQU TCBRV133 01187000 TCBRV137 EQU TCBRV133 01188000 TCBRV136 EQU TCBRV133 01189000 TCBRV135 EQU TCBRV133 01190000 TCBRV134 EQU TCBRV133 01191000 TCBRV132 EQU TCBRV124 01192000 TCBRV131 EQU TCBRV124 01193000 TCBRV130 EQU TCBRV124 01194000 TCBRV129 EQU TCBRV124 01195000 TCBRV128 EQU TCBRV124 01196000 TCBRV127 EQU TCBRV124 01197000 TCBRV126 EQU TCBRV124 01198000 TCBRV125 EQU TCBRV124 01199000 TCBRV123 EQU TCBFBYT2 01200000 TCBRV122 EQU TCBFBYT2 01201000 TCBECBNV EQU TCBFBYT2 01202000 TCBSSSYN EQU TCBFBYT2 01203000 TCBFPRAP EQU TCBFBYT2 01204000 TCBFDW EQU TCBFBYT2 01205000 TCBFMW EQU TCBFBYT2 01206000 TCBCNCB EQU TCBFBYT2 01207000 TCBLLH EQU TCBFBYT1 01208000 TCBRV113 EQU TCBFBYT1 01209000 TCBEOT EQU TCBFBYT1 01210000 TCBRTM2 EQU TCBFBYT1 01211000 TCBPGNLY EQU TCBFBYT1 01212000 TCBNDIOS EQU TCBFBYT1 01213000 TCBACTIV EQU TCBFBYT1 01214000 TCBEOTFM EQU TCBFBYT1 01215000 TCBAFFN EQU TCB+274 01216000 TCBCCPVI EQU TCB+272 01217000 TCBUKYSP EQU TCB+268 01218000 TCBMODE EQU TCBESTAE+3 01219000 TCBERTYP EQU TCBESTAE+2 01220000 TCBRV314 EQU TCBESTRM 01221000 TCBRV313 EQU TCBESTRM 01222000 TCBRV312 EQU TCBESTRM 01223000 TCBRV311 EQU TCBESTRM 01224000 TCBRV310 EQU TCBESTRM 01225000 TCBRV309 EQU TCBESTRM 01226000 TCBRV308 EQU TCBESTRM 01227000 TCBETERM EQU TCBESTRM 01228000 TCBSCBKY EQU TCBESTAE 01229000 TCBRTM12 EQU TCB+260 01230000 TCBTCBID EQU TCB+256 01231000 TCBRSV96 EQU TCB+252 01232000 TCBSWA EQU TCB+248 01233000 TCBFOEA EQU TCBFOE+1 01234000 TCBRSV42 EQU TCBFOE 01235000 TCBRV306 EQU TCB+240 01236000 TCBRSV41 EQU TCB+239 01237000 TCBTID EQU TCB+238 01238000 TCBRSVAA EQU TCB+237 01239000 TCBABCUR EQU TCB+236 01240000 TCBTMSAV EQU TCB+232 01241000 TCBIOTIM EQU TCB+228 01242000 TCBRTWA EQU TCB+224 01243000 TCBBACK EQU TCB+220 01244000 TCBTIRB EQU TCB+216 01245000 TCBAECB EQU TCB+212 01246000 TCBEXT2A EQU TCBEXT2+1 01247000 TCBRSV39 EQU TCBEXT2 01248000 TCBSTMCT EQU TCB+207 01249000 TCBSYSCT EQU TCB+206 01250000 TCBRSV37 EQU TCB+205 01251000 TCBEXSVC EQU TCBDAR 01252000 TCBRSV36 EQU TCBDAR 01253000 TCBDARWT EQU TCBDAR 01254000 TCBDARO EQU TCBDAR 01255000 TCBDARMC EQU TCBDARC 01256000 TCBDARD EQU TCBDAR 01257000 TCBDARS EQU TCBDAR 01258000 TCBDARP EQU TCBDAR 01259000 TCBGTOFM EQU TCBFLGS7 01260000 TCBADMP EQU TCBFLGS7 01261000 TCBRSTSK EQU TCBFLGS7 01262000 TCBRSV35 EQU TCBFLGS7 01263000 TCBSTACK EQU TCBFLGS7 01264000 TCBRSV34 EQU TCBFLGS7 01265000 TCBRSV33 EQU TCBFLGS7 01266000 TCBGPECB EQU TCBFLGS7 01267000 TCBNTJS EQU TCBFLGS6 01268000 TCBAPG EQU TCBFLGS6 01269000 TCBMIGR EQU TCBFLGS6 01270000 TCBRV303 EQU TCBFLGS6 01271000 TCBSPVLK EQU TCBFLGS6 01272000 TCBCPU EQU TCBFLGS6 01273000 TCBPIE17 EQU TCBFLGS6 01274000 TCBRV EQU TCBFLGS6 01275000 TCBRSV79 EQU TCBNDSP5 01276000 TCBRSV78 EQU TCBNDSP5 01277000 TCBRSV77 EQU TCBNDSP5 01278000 TCBRSV76 EQU TCBNDSP5 01279000 TCBRSV75 EQU TCBNDSP5 01280000 TCBRSV74 EQU TCBNDSP5 01281000 TCBRSV95 EQU TCBNDSP5 01282000 TCBRSV94 EQU TCBNDSP5 01283000 TCBRSV93 EQU TCBNDSP4 01284000 TCBRSV92 EQU TCBNDSP4 01285000 TCBRSV91 EQU TCBNDSP4 01286000 TCBRSV90 EQU TCBNDSP4 01287000 TCBRSV89 EQU TCBNDSP4 01288000 TCBRSV88 EQU TCBNDSP4 01289000 TCBRSV87 EQU TCBNDSP4 01290000 TCBRSV86 EQU TCBNDSP4 01291000 TCBEXT1A EQU TCBEXT1+1 01292000 TCBRSV32 EQU TCBEXT1 01293000 TCBEXCPD EQU TCB+192 01294000 TCBIOBRC EQU TCB+188 01295000 TCBDDWTC EQU TCB+186 01296000 TCBDDEXC EQU TCB+184 01297000 TCBJSCBB EQU TCBJSCB+1 01298000 @NM00045 EQU TCBRECDE 01299000 TCBREC EQU TCBRECDE 01300000 TCBMDIDS EQU TCB+176 01301000 TCBNDINT EQU TCBNDSP3 01302000 TCBRSV27 EQU TCBNDSP3 01303000 TCBRSV26 EQU TCBNDSP3 01304000 TCBRSV25 EQU TCBNDSP3 01305000 TCBRSV24 EQU TCBNDSP3 01306000 TCBSRBND EQU TCBNDSP3 01307000 TCBRV302 EQU TCBNDSP3 01308000 TCBLJSND EQU TCBNDSP3 01309000 TCBABE EQU TCBNDSP2 01310000 TCBDSS EQU TCBNDSP2 01311000 TCBOWAIT EQU TCBNDSP2 01312000 TCBIWAIT EQU TCBNDSP2 01313000 TCBNDTS EQU TCBNDSP2 01314000 TCBNDSVC EQU TCBNDSP2 01315000 TCBSTPP EQU TCBNDSP2 01316000 TCBABD EQU TCBNDSP2 01317000 TCBRSV22 EQU TCBNDSP1 01318000 TCBPIEND EQU TCBNDSP1 01319000 TCBTPSP EQU TCBNDSP1 01320000 TCBDDRND EQU TCBNDSP1 01321000 TCBRSPND EQU TCBNDSP1 01322000 TCBRSTND EQU TCBNDSP1 01323000 TCBDARPN EQU TCBNDSP1 01324000 TCBDARTN EQU TCBNDSP1 01325000 TCBNDSP0 EQU TCBNDSP 01326000 TCBUSER EQU TCB+168 01327000 TCBTCTB EQU TCBTCT+1 01328000 TCBRSV9C EQU TCBTCTGF 01329000 TCBRSV9B EQU TCBTCTGF 01330000 TCBRSV9A EQU TCBTCTGF 01331000 TCBRSV99 EQU TCBTCTGF 01332000 TCBRSV98 EQU TCBTCTGF 01333000 TCBRSV97 EQU TCBTCTGF 01334000 TCBRSV20 EQU TCBTCTGF 01335000 TCBSMFGF EQU TCBTCTGF 01336000 TCBSTABB EQU TCBSTAB+1 01337000 TCBSTCUR EQU TCBNSTAE 01338000 TCBRV301 EQU TCBNSTAE 01339000 TCBSYNCH EQU TCBNSTAE 01340000 TCBHALT EQU TCBNSTAE 01341000 TCBPPSUP EQU TCBNSTAE 01342000 TCB33E EQU TCBNSTAE 01343000 TCBQUIES EQU TCBNSTAE 01344000 TCBSTABE EQU TCBNSTAE 01345000 TCBAQE EQU TCB+156 01346000 TCBPQE EQU TCB+152 01347000 TCBTSDP EQU TCB+151 01348000 TCBTSLP EQU TCB+150 01349000 TCBSTPCT EQU TCB+149 01350000 TCBCPUBN EQU TCBTSFLG 01351000 TCBDYDSP EQU TCBTSFLG 01352000 TCBRSV18 EQU TCBTSFLG 01353000 TCBRSV17 EQU TCBTSFLG 01354000 TCBTIOTG EQU TCBTSFLG 01355000 TCBATT EQU TCBTSFLG 01356000 TCBSTPPR EQU TCBTSFLG 01357000 TCBRV300 EQU TCBTSTSK 01358000 TCBECB EQU TCB+144 01359000 TCBIQE EQU TCB+140 01360000 TCBLTC EQU TCB+136 01361000 TCBOTC EQU TCB+132 01362000 TCBNTC EQU TCB+128 01363000 TCBJSTCA EQU TCBJSTCB+1 01364000 TCBRSV16 EQU TCBJSTCB 01365000 TCBTQET EQU TCBTME 01366000 TCBTCB EQU TCB+116 01367000 TCBFSAB EQU TCBFSA+1 01368000 TCBQEL EQU TCBFSA 01369000 TCBGRS15 EQU TCBGRS+60 01370000 TCBGRS14 EQU TCBGRS+56 01371000 TCBGRS13 EQU TCBGRS+52 01372000 TCBGRS12 EQU TCBGRS+48 01373000 TCBGRS11 EQU TCBGRS+44 01374000 TCBGRS10 EQU TCBGRS+40 01375000 TCBGRS9 EQU TCBGRS+36 01376000 TCBGRS8 EQU TCBGRS+32 01377000 TCBGRS7 EQU TCBGRS+28 01378000 TCBGRS6 EQU TCBGRS+24 01379000 TCBGRS5 EQU TCBGRS+20 01380000 TCBGRS4 EQU TCBGRS+16 01381000 TCBGRS3 EQU TCBGRS+12 01382000 TCBGRS2 EQU TCBGRS+8 01383000 TCBGRS1 EQU TCBGRS+4 01384000 TCBGRS0 EQU TCBGRS 01385000 TCBJPQB EQU TCBJPQ+1 01386000 TCBRSV15 EQU TCBPURGE 01387000 TCBRSV14 EQU TCBPURGE 01388000 TCBRSV13 EQU TCBPURGE 01389000 TCBRSV12 EQU TCBPURGE 01390000 TCBRSV11 EQU TCBPURGE 01391000 TCBRSV10 EQU TCBPURGE 01392000 TCBRSV09 EQU TCBPURGE 01393000 TCBJPQF EQU TCBPURGE 01394000 TCBJLB EQU TCB+40 01395000 TCBLLS EQU TCB+36 01396000 TCBDSP EQU TCB+35 01397000 TCBLMP EQU TCB+34 01398000 TCBPNDSP EQU TCBFLGS5 01399000 TCBFCD1 EQU TCBFLGS5 01400000 TCBSTP EQU TCBFLGS5 01401000 TCBSYS EQU TCBFLGS5 01402000 TCBANDSP EQU TCBFLGS5 01403000 TCBPAGE EQU TCBFLGS5 01404000 TCBUXNDF EQU TCBABWF 01405000 TCBFC EQU TCBFLGS5 01406000 TCBONDSP EQU TCBFLGS4 01407000 TCBMPCND EQU TCBFLGS4 01408000 TCBMPCVQ EQU TCBFLGS4 01409000 TCBUXNDV EQU TCBFLGS4 01410000 TCBHNDSP EQU TCBFLGS4 01411000 TCBRQENA EQU TCBFLGS4 01412000 TCBSER EQU TCBFLGS4 01413000 TCBNDUMP EQU TCBFLGS4 01414000 TCBDWSTA EQU TCBFLGS3 01415000 TCBRSV08 EQU TCBFLGS3 01416000 TCBRSV07 EQU TCBFLGS3 01417000 TCBRSV06 EQU TCBFLGS3 01418000 TCBABGM EQU TCBFLGS3 01419000 TCBABTRM EQU TCBFLGS3 01420000 TCBADINP EQU TCBFLGS3 01421000 TCBFSM EQU TCBFLGS3 01422000 TCBFTS EQU TCBFLGS2 01423000 TCBFETXR EQU TCBFLGS2 01424000 TCBFDSOP EQU TCBFLGS2 01425000 TCBFJMC EQU TCBFLGS2 01426000 TCBFSMC EQU TCBFLGS2 01427000 TCBFABOP EQU TCBFLGS2 01428000 TCBFSTI EQU TCBFLGS2 01429000 TCBFOINP EQU TCBFLGS2 01430000 TCBFX EQU TCBFLGS1 01431000 TCBFS EQU TCBFLGS1 01432000 TCBFT EQU TCBFLGS1 01433000 TCBPDUMP EQU TCBFLGS1 01434000 TCBRSV04 EQU TCBFLGS1 01435000 TCBFERA EQU TCBFLGS1 01436000 TCBFE EQU TCBFLGS1 01437000 TCBFA EQU TCBFLGS1 01438000 TCBZERO EQU TCBPKF 01439000 TCBFLAG EQU TCBPKF 01440000 TCBMSSB EQU TCBMSS+1 01441000 TCBRSV03 EQU TCBMSS 01442000 TCBTRNB EQU TCBTRN+1 01443000 TCBRSV02 EQU TCBABF 01444000 TCBOLTEP EQU TCBABF 01445000 TCBTCP EQU TCBABF 01446000 TCBTCPP EQU TCBABF 01447000 TCBRSV01 EQU TCBABF 01448000 TCBGRPH EQU TCBABF 01449000 TCBNOCHK EQU TCBABF 01450000 TCBMOD91 EQU TCBABF 01451000 TCBCMPC EQU TCBCMP+1 01452000 TCBRV318 EQU TCBCMSG 01453000 TCBRV317 EQU TCBCIND 01454000 TCBRV316 EQU TCBCWTO 01455000 TCBCASID EQU TCBCDBL 01456000 TCBNOCC EQU TCBSTCC 01457000 TCBDMPO EQU TCBCPP 01458000 TCBCSTEP EQU TCBCMPF 01459000 TCBCREQ EQU TCBCMPF 01460000 TCBDEB EQU TCB+8 01461000 TCBPIEA EQU TCBPIE+1 01462000 TCBPM EQU TCBPMASK 01463000 @NM00044 EQU TCBPMASK 01464000 TCBRBP EQU TCB 01465000 TCBFRS6 EQU TCBFRS+24 01466000 TCBFRS4 EQU TCBFRS+16 01467000 TCBFRS2 EQU TCBFRS+8 01468000 TCBFRS0 EQU TCBFRS 01469000 APPNAMID EQU APPNMTBL+24 01470000 APPOFFST EQU APPENTRY+2 01471000 APPCOUNT EQU APPENTRY 01472000 APPSIZE EQU APPNMTBL+2 01473000 APPBAL EQU APPNMTBL 01474000 WTGETTR EQU WTGIDTTR+2 01475000 WTGOPD EQU WTGPATHS+1 01476000 WTGRECHK EQU WTGPATHS+1 01477000 WTGTSENQ EQU WTGPATHS+1 01478000 @NM00041 EQU WTGPATHS+1 01479000 WTGTRACE EQU WTGPATHS+1 01480000 @NM00040 EQU WTGPATHS 01481000 WTGJFCBW EQU WTGPATHS 01482000 WTGSMF EQU WTGPATHS 01483000 WTGTCOS EQU WTGPATHS 01484000 WTGNSL EQU WTGPATHS 01485000 WTGPRLSE EQU WTGPATHS 01486000 WTGLNG EQU WTG+29 01487000 WTGTXTLN EQU WTGAREA+27 01488000 WTGMODSZ EQU WTGAREA+24 01489000 WTGATTRB EQU WTGAREA+22 01490000 @NM00039 EQU WTGAREA+20 01491000 @NM00038 EQU WTGAREA+12 01492000 WTGMODID EQU WTGMODNM+6 01493000 @NM00037 EQU WTGMODNM 01494000 DSMADTW6 EQU DSMADTRL+20 01495000 DSMADTW5 EQU DSMADTRL+16 01496000 DSMADTW4 EQU DSMADTRL+12 01497000 DSMADTW3 EQU DSMADTRL+8 01498000 DSMADTW2 EQU DSMADTRL+4 01499000 DSMADTB4 EQU DSMADTW1+3 01500000 DSMADTB3 EQU DSMADTW1+2 01501000 @NM00036 EQU DSMADTB2 01502000 DSMDSNE EQU DSMADTB2 01503000 DSMTIOTE EQU DSMADTB2 01504000 DSMSMCE EQU DSMADTB2 01505000 DSMVTOCR EQU DSMADTB2 01506000 DSMASWAP EQU DSMADTB1 01507000 DSMUCBAL EQU DSMADTB1 01508000 DSMRPSAP EQU DSMADTB1 01509000 DSMLOCK EQU DSMADTB1 01510000 @NM00035 EQU DSMADTB1 01511000 DSMVIO EQU DSMADTB1 01512000 DSMISAM EQU DSMADTB1 01513000 RRFWORK EQU RRPLIST+20 01514000 RRMLRTRY EQU RRPLIST+16 01515000 RRUCBPTR EQU RRXRETRY 01516000 RR1RETRY EQU RRPLIST+8 01517000 RR1WRKAR EQU RRPLIST+4 01518000 @NM00034 EQU RRFLAGS3 01519000 RRFTERM EQU RRFLAGS3 01520000 RRFFCEXC EQU RRFLAGS3 01521000 RRFFINFC EQU RRFLAGS3 01522000 RRFNRTCA EQU RRFLAGS3 01523000 @NM00033 EQU RRFLAGS3 01524000 RRFENQUL EQU RRFLAGS2 01525000 RRFPRDET EQU RRFLAGS2 01526000 @NM00032 EQU RRFLAGS2 01527000 RRFQMNGR EQU RRFLAGS2 01528000 RRFENQPW EQU RRFLAGS2 01529000 @NM00031 EQU RRFLAGS2 01530000 RRFFIN1 EQU RRFLAGS2 01531000 RRFTRACE EQU RRFLAGS1 01532000 RRFSMF EQU RRFLAGS1 01533000 RRFNSL EQU RRFLAGS1 01534000 RRFAMSTR EQU RRFLAGS1 01535000 RRFAMEXR EQU RRFLAGS1 01536000 RRFAMEXG EQU RRFLAGS1 01537000 RRFUSREX EQU RRFLAGS1 01538000 @NM00030 EQU RRFLAGS1 01539000 RRFRJFCB EQU RRFUNCTN 01540000 RRFDADSM EQU RRFUNCTN 01541000 DXDCBLST EQU USERPRML 01542000 RWALIST EQU RWARESWA+12 01543000 RWAPARM EQU RWAPREFX+8 01544000 RWATRBUF EQU RWAPREFX+4 01545000 RWATRACE EQU RWAPREFX 01546000 IECQMNGR EQU IECEXTPR+92 01547000 IECMSGQA EQU IECEXTPR+88 01548000 IECDCBNO EQU IECUPRML 01549000 IECRRPRM EQU IECEXTPR+76 01550000 IECWTGTB EQU IECEXTPR+72 01551000 IECCORP2 EQU IECPREFX+28 01552000 IECCORP1 EQU IECPREFX+24 01553000 IECCORPS EQU IECPREFX+20 01554000 IECCORSP EQU IECPREFX+19 01555000 @NM00029 EQU IECPREFX+17 01556000 IECCORKY EQU IECPREFX+16 01557000 IECCORAD EQU IECPREFX+12 01558000 IECCORLN EQU IECPREFX+8 01559000 @NM00028 EQU IECPREFX+4 01560000 IECCORID EQU IECPREFX 01561000 DXATEXB2 EQU DXATEXC2 01562000 DXATCOM4 EQU FORCORE+600 01563000 DXATCOM3 EQU FORCORE+596 01564000 @NM00024 EQU DXATCOM2+3 01565000 @NM00023 EQU DXATALL 01566000 DXATSWAP EQU DXATALL 01567000 DXATFC EQU DXATALL 01568000 @NM00022 EQU DXATOPEN 01569000 DXATDFIN EQU DXATOPEN 01570000 DXATDSIN EQU DXATOPEN 01571000 DXATMODM EQU DXATOPEN 01572000 DXATMODE EQU DXATOPEN 01573000 DXATMODS EQU DXATOPEN 01574000 DXATIGN EQU DXATOPEN 01575000 DXATVCAT EQU DXATEOV 01576000 DXATDADM EQU DXATEOV 01577000 DXATREMT EQU DXATEOV 01578000 DXATDNEW EQU DXATEOV 01579000 DXATDFRE EQU DXATEOV 01580000 DXATDCHN EQU DXATEOV 01581000 DXATNVOL EQU DXATEOV 01582000 DXATCCAT EQU DXATEOV 01583000 DXATRDDB EQU DXATDACC 01584000 DXATEOF EQU DXATDACC 01585000 @NM00021 EQU DXATDACC 01586000 DXATSMF EQU DXATDACC 01587000 DXATUPDB EQU DXATDACC 01588000 DXATDRCT EQU DXATDACC 01589000 DXATTRAK EQU DXATDACC 01590000 DXATF1CE EQU DXATDACC 01591000 DXATNSL EQU DXATOUTA 01592000 DXATTTM2 EQU DXATOUTA 01593000 DXATTTM1 EQU DXATOUTA 01594000 DXATTRL2 EQU DXATOUTA 01595000 DXATTRL1 EQU DXATOUTA 01596000 DXATDATM EQU DXATOUTA 01597000 DXATHDTM EQU DXATOUTA 01598000 DXATVLHD EQU DXATOUTA 01599000 DXATCLOS EQU DXATCOM1+1 01600000 DXATSRET EQU DXATGENS 01601000 DXATVCIG EQU DXATVGIV 01602000 DXATVTMG EQU DXATVGIV 01603000 DXATVSMG EQU DXATVGIV 01604000 DXATJFCB EQU DXATGENS 01605000 DXATDISP EQU DXATGENS 01606000 DXATREFR EQU DXATGENS 01607000 DXATDMCT EQU DXATGENS 01608000 DXMSGADR EQU FORCORE+584 01609000 DXPRPARC EQU FORCORE+580 01610000 DXUDCBML EQU FORCORE+578 01611000 DXUDCBPL EQU FORCORE+576 01612000 DXPACBAD EQU DXPDCBAD+1 01613000 @NM00020 EQU DXPDCBAD 01614000 DXUACBAD EQU DXUDCBAD+1 01615000 @NM00019 EQU DXUDCBAD 01616000 DXUCBSVV EQU DXUCBSAV+1 01617000 @NM00018 EQU DXUCBSAV 01618000 DXUCBADR EQU FORCORE+560 01619000 DXTIOTAD EQU FORCORE+556 01620000 DXDSAB EQU FORCORE+548 01621000 DXDSABAD EQU FORCORE+544 01622000 DXDSABQD EQU FORCORE+540 01623000 DXJSCBAD EQU FORCORE+536 01624000 DXASCBAD EQU FORCORE+528 01625000 DXEXTSW EQU FORCORE+527 01626000 DXUKEY EQU FORCORE+526 01627000 DXWKEYSV EQU FORCORE+525 01628000 DXUNITOF EQU FORCORE+522 01629000 DXNOUNIT EQU FORCORE+520 01630000 DXVOLSEQ EQU FORCORE+518 01631000 DXVOLMT3 EQU DXVOLSR3 01632000 DXVOLMT2 EQU DXVOLSR2 01633000 DXVOLMT1 EQU DXVOLSR1 01634000 DXWORK4 EQU FORCORE+496 01635000 DXWORK3 EQU FORCORE+492 01636000 DXWORK2 EQU FORCORE+488 01637000 DXWORK1 EQU FORCORE+484 01638000 DXWORK EQU FORCORE+480 01639000 @NM00017 EQU FORCORE+464 01640000 DXCCW11 EQU DXCCW+80 01641000 DXCCW10 EQU DXCCW+72 01642000 DXCCW9 EQU DXCCW+64 01643000 DXCCW7 EQU DXCCW+48 01644000 DXCCW6 EQU DXCCW+40 01645000 DXCCW4 EQU DXCCW+24 01646000 DXCCW3 EQU DXCCW+16 01647000 DXCCW2 EQU DXCCW+8 01648000 DXDCBDEB EQU DXDCB+44 01649000 @NM00016 EQU DXDCB+24 01650000 DXDEBDCB EQU DXDCB+20 01651000 @NM00015 EQU DXDCB 01652000 DXDEB EQU DXDAADDR+4 01653000 @NM00014 EQU DXDAADDR 01654000 DXIOB EQU FORCORE+280 01655000 DXECB EQU FORCORE+276 01656000 DSCCORE EQU FORCORE+96 01657000 JESPJESN EQU JESCT+28 01658000 JESSSCT EQU JESCT+24 01659000 JESRESQM EQU JESCT+16 01660000 JESQMGR EQU JESCT+12 01661000 JESUNITS EQU JESCT+4 01662000 @NM00013 EQU JESCT 01663000 ACBAPID EQU ACBCOMN+72 01664000 ACBCBMWA EQU ACBCOMN+68 01665000 ACBUAPTR EQU ACBCOMN+64 01666000 ACBLRECL EQU ACBCOMN+62 01667000 ACBBLKSZ EQU ACBCOMN+60 01668000 ACBBUFSP EQU ACBCOMN+56 01669000 @NM00012 EQU ACBWAPTR+1 01670000 ACBOPTN EQU ACBWAPTR 01671000 ACBCAT EQU ACBINFLG 01672000 ACBIJRQE EQU ACBINFLG 01673000 ACBJEPS EQU ACBINFLG 01674000 @NM00011 EQU ACBINFLG 01675000 ACBERFLG EQU ACBCOMN+49 01676000 ACBBUSY EQU ACBIOSFG 01677000 ACBLOCK EQU ACBEXFG 01678000 @NM00010 EQU ACBOFLGS 01679000 ACBDSERR EQU ACBOFLGS 01680000 ACBOPEN EQU ACBOFLGS 01681000 ACBEOV EQU ACBOFLGS 01682000 @NM00009 EQU ACBOFLGS 01683000 ACBERFL EQU ACBDDNM+4 01684000 ACBAM EQU ACBAMETH 01685000 ACBINFL EQU ACBDDNM+2 01686000 ACBTIOT EQU ACBDDNM 01687000 ACBUEL EQU ACBEXLST 01688000 ACBPASSW EQU ACBCOMN+32 01689000 @NM00008 EQU ACBCOMN+28 01690000 @NM00007 EQU ACBDSORG+1 01691000 ACBDORGA EQU ACBDSORG+1 01692000 @NM00006 EQU ACBDSORG 01693000 ACBCRNRE EQU ACBCROPS 01694000 ACBCRNCK EQU ACBCROPS 01695000 ACBASA EQU ACBCCTYP 01696000 @NM00005 EQU ACBCCTYP 01697000 ACBRECAF EQU ACBRECFM 01698000 ACBJBUF EQU ACBBUFPL+2 01699000 @NM00004 EQU ACBBUFPL 01700000 ACBBUFNI EQU ACBCOMN+18 01701000 ACBBUFND EQU ACBCOMN+16 01702000 ACBSTRNO EQU ACBCOMN+14 01703000 @NM00003 EQU ACBMACR2 01704000 ACBLOGON EQU ACBMACR2 01705000 ACBSKP EQU ACBMACR2 01706000 ACBCHN EQU ACBMACR2 01707000 ACBCBRD EQU ACBMACR2 01708000 ACBCBOPN EQU ACBMACR2 01709000 ACBUBF EQU ACBMACR1 01710000 ACBOUT EQU ACBMACR1 01711000 ACBIN EQU ACBMACR1 01712000 ACBDIR EQU ACBMACR1 01713000 ACBSEQ EQU ACBMACR1 01714000 ACBBLK EQU ACBCNV 01715000 ACBADD EQU ACBADR 01716000 ACBKEY EQU ACBMACR1 01717000 ACBINRTN EQU ACBCOMN+8 01718000 ACBIBCT EQU ACBJWA 01719000 ACBLEN2 EQU ACBLENG2 01720000 ACBSTYP EQU ACBCOMN+1 01721000 ACBID EQU ACBCOMN 01722000 CVTLEVL EQU CVTRELNO+2 01723000 CVTNUMB EQU CVTRELNO 01724000 CVTMDL EQU CVTFIX+250 01725000 @NM00002 EQU CVTFIX+248 01726000 @NM00001 EQU CVTFIX 01727000 CVTRV482 EQU CVTXTNT2+128 01728000 CVTRV481 EQU CVTXTNT2+124 01729000 CVTRV480 EQU CVTXTNT2+120 01730000 CVTRV479 EQU CVTXTNT2+118 01731000 CVTRV478 EQU CVTXTNT2+117 01732000 CVTRV477 EQU CVTXTNT2+116 01733000 CVTRV476 EQU CVTXTNT2+115 01734000 CVTRV475 EQU CVTXTNT2+114 01735000 CVTRV474 EQU CVTRV466 01736000 CVTRV473 EQU CVTRV466 01737000 CVTRV472 EQU CVTRV466 01738000 CVTRV471 EQU CVTRV466 01739000 CVTRV470 EQU CVTRV466 01740000 CVTRV469 EQU CVTRV466 01741000 CVTRV468 EQU CVTRV466 01742000 CVTRV467 EQU CVTRV466 01743000 CVTRV465 EQU CVTRV457 01744000 CVTRV464 EQU CVTRV457 01745000 CVTRV463 EQU CVTRV457 01746000 CVTRV462 EQU CVTRV457 01747000 CVTRV461 EQU CVTRV457 01748000 CVTRV460 EQU CVTRV457 01749000 CVTRV459 EQU CVTRV457 01750000 CVTRV458 EQU CVTRV457 01751000 CVTRV456 EQU CVTXTNT2+108 01752000 CVTRV455 EQU CVTXTNT2+104 01753000 CVTRV454 EQU CVTXTNT2+100 01754000 CVTRV453 EQU CVTXTNT2+96 01755000 CVTRV452 EQU CVTXTNT2+94 01756000 CVTRV451 EQU CVTXTNT2+92 01757000 CVTRV450 EQU CVTXTNT2+90 01758000 CVTRV449 EQU CVTXTNT2+88 01759000 CVTRV448 EQU CVTXTNT2+87 01760000 CVTRV447 EQU CVTXTNT2+86 01761000 CVTRV446 EQU CVTRV438 01762000 CVTRV445 EQU CVTRV438 01763000 CVTRV444 EQU CVTRV438 01764000 CVTRV443 EQU CVTRV438 01765000 CVTRV442 EQU CVTRV438 01766000 CVTRV441 EQU CVTRV438 01767000 CVTRV440 EQU CVTRV438 01768000 CVTRV439 EQU CVTRV438 01769000 CVTRV437 EQU CVTRV429 01770000 CVTRV436 EQU CVTRV429 01771000 CVTRV435 EQU CVTRV429 01772000 CVTRV434 EQU CVTRV429 01773000 CVTRV433 EQU CVTRV429 01774000 CVTRV432 EQU CVTRV429 01775000 CVTRV431 EQU CVTRV429 01776000 CVTRV430 EQU CVTRV429 01777000 CVTRV428 EQU CVTXTNT2+80 01778000 CVTRV427 EQU CVTXTNT2+76 01779000 CVTRV426 EQU CVTXTNT2+72 01780000 CVTRV425 EQU CVTXTNT2+68 01781000 CVTATACT EQU CVTATCVT 01782000 CVTRV423 EQU CVTXTNT2+62 01783000 CVTRV422 EQU CVTXTNT2+60 01784000 CVTRV421 EQU CVTXTNT2+58 01785000 CVTRV420 EQU CVTXTNT2+56 01786000 CVTRV419 EQU CVTXTNT2+55 01787000 CVTRV418 EQU CVTXTNT2+54 01788000 CVTRV417 EQU CVTRV409 01789000 CVTRV416 EQU CVTRV409 01790000 CVTRV415 EQU CVTRV409 01791000 CVTRV414 EQU CVTRV409 01792000 CVTRV413 EQU CVTRV409 01793000 CVTRV412 EQU CVTRV409 01794000 CVTRV411 EQU CVTRV409 01795000 CVTRV410 EQU CVTRV409 01796000 CVTRV408 EQU CVTRV400 01797000 CVTRV407 EQU CVTRV400 01798000 CVTRV406 EQU CVTRV400 01799000 CVTRV405 EQU CVTRV400 01800000 CVTRV404 EQU CVTRV400 01801000 CVTRV403 EQU CVTRV400 01802000 CVTRV402 EQU CVTRV400 01803000 CVTRV401 EQU CVTRV400 01804000 CVTRSVA1 EQU CVTXTNT2+48 01805000 CVTRSVA0 EQU CVTXTNT2+44 01806000 CVTRSV99 EQU CVTXTNT2+40 01807000 CVTRSV98 EQU CVTXTNT2+36 01808000 CVTRSV97 EQU CVTXTNT2+34 01809000 CVTRSV96 EQU CVTXTNT2+32 01810000 CVTOLTEP EQU CVTXTNT2+28 01811000 CVTQIDA EQU CVTQID+1 01812000 CVTRSV95 EQU CVTQID 01813000 CVTRSV94 EQU CVTXTNT2+20 01814000 CVTRSV93 EQU CVTXTNT2+16 01815000 CVTRSV92 EQU CVTXTNT2+12 01816000 CVTDEBVR EQU CVTXTNT2+8 01817000 CVTRSV91 EQU CVTXTNT2+6 01818000 CVTRSV9H EQU CVTRSV90 01819000 CVTRSV9G EQU CVTRSV90 01820000 CVTRSV9F EQU CVTRSV90 01821000 CVTRSV9E EQU CVTRSV90 01822000 CVTRSV9D EQU CVTRSV90 01823000 CVTRSV9C EQU CVTRSV90 01824000 CVTRSV9B EQU CVTRSV90 01825000 CVTRSV9A EQU CVTRSV90 01826000 CVTNUCLS EQU CVTXTNT2+4 01827000 CVTDSSVA EQU CVTDSSV+1 01828000 CVTRSV89 EQU CVTDSSV 01829000 CVTRSV88 EQU CVTXTNT1+8 01830000 CVTRSV87 EQU CVTXTNT1+4 01831000 CVTFACHN EQU CVTXTNT1 01832000 CVTRV488 EQU CVTMAP+412 01833000 CVTRV487 EQU CVTMAP+408 01834000 CVTRV486 EQU CVTMAP+404 01835000 CVTRV485 EQU CVTMAP+400 01836000 CVTRV484 EQU CVTMAP+396 01837000 CVTAUTH EQU CVTMAP+392 01838000 CVTATMCA EQU CVTATMCT+1 01839000 CVTATMST EQU CVTATMCT 01840000 CVTRSV61 EQU CVTMAP+384 01841000 CVTVOLT1 EQU CVTVOLM1+1 01842000 CVTVOLI1 EQU CVTVOLF1 01843000 CVTSTOA EQU CVTMAP+376 01844000 CVTRSV58 EQU CVTMAP+374 01845000 CVTRSV57 EQU CVTMAP+372 01846000 CVTDDCE EQU CVTMAP+368 01847000 CVTPNWFR EQU CVTMAP+364 01848000 CVTSMF EQU CVTMAP+360 01849000 CVTSULK EQU CVTMAP+358 01850000 CVTSLKO EQU CVTSYSK 01851000 CVTSLKP EQU CVTSYSK 01852000 CVTSLKQ EQU CVTSYSK 01853000 CVTSLKR EQU CVTSYSK 01854000 CVTRSV56 EQU CVTSYSK 01855000 CVTRSV55 EQU CVTSYSK 01856000 CVTRSV54 EQU CVTSYSK 01857000 CVTRSV53 EQU CVTSYSK 01858000 CVTRSV52 EQU CVTA1F1 01859000 CVTRSV51 EQU CVTA1F1 01860000 CVTRSV50 EQU CVTA1F1 01861000 CVTRSV49 EQU CVTA1F1 01862000 CVTRSV48 EQU CVTA1F1 01863000 CVTRSV47 EQU CVTA1F1 01864000 CVTSRSW EQU CVTA1F1 01865000 CVTPFSW EQU CVTA1F1 01866000 CVTPCVT EQU CVTMAP+352 01867000 CVTRSV46 EQU CVTMAP+344 01868000 CVTRSV45 EQU CVTMAP+340 01869000 CVTRSV44 EQU CVTMAP+338 01870000 CVTRSV43 EQU CVTMAP+336 01871000 CVTHJESA EQU CVTHJES+1 01872000 CVTRSV42 EQU CVTHJES 01873000 CVTEXT2A EQU CVTEXT2+1 01874000 CVTRSV41 EQU CVTEXT2 01875000 CVTAPFA EQU CVTAPF+1 01876000 CVTRSV40 EQU CVTAPF 01877000 CVTRV518 EQU CVTINTLA 01878000 CVTRV517 EQU CVTERPV 01879000 CVTEORM EQU CVTMAP+312 01880000 CVTMCHPR EQU CVTMAP+308 01881000 CVTTZ EQU CVTMAP+304 01882000 CVTJEPS EQU CVTMAP+300 01883000 CVTMODE EQU CVTMAP+292 01884000 CVTPTRV EQU CVTMAP+288 01885000 CVTREAL EQU CVTMAP+284 01886000 CVTRSV39 EQU CVTMAP+280 01887000 CVTRSV38 EQU CVTMAP+276 01888000 CVTDMSRA EQU CVTDMSR+1 01889000 CVTRSV37 EQU CVTDMSR 01890000 CVTQMSGA EQU CVTQMSG+1 01891000 CVTRSV36 EQU CVTQMSG 01892000 CVTAMFF EQU CVTMAP+264 01893000 CVTPURGA EQU CVTPURG+1 01894000 CVTRSV35 EQU CVTPURG 01895000 CVTCBSP EQU CVTMAP+256 01896000 CVTATERA EQU CVTATER+1 01897000 CVTSYST EQU CVTATER 01898000 CVTVOLT2 EQU CVTTAT 01899000 CVTVOLI2 EQU CVTVOLF2 01900000 CVTAQAVB EQU CVTAQAVT+1 01901000 CVTRSV34 EQU CVTTCMFG 01902000 CVTRSV33 EQU CVTTCMFG 01903000 CVTRSV32 EQU CVTTCMFG 01904000 CVTRSV31 EQU CVTTCMFG 01905000 CVTRSV30 EQU CVTTCMFG 01906000 CVTRSV29 EQU CVTTCMFG 01907000 CVTRSV28 EQU CVTTCMFG 01908000 CVTTCRDY EQU CVTTCMFG 01909000 CVTGTFA EQU CVTGTF+1 01910000 CVTRSV27 EQU CVTGTFST 01911000 CVTRNIO EQU CVTGTFST 01912000 CVTRV319 EQU CVTUSR 01913000 CVTRV318 EQU CVTFORM 01914000 CVTRV317 EQU CVTTMODE 01915000 CVTRV316 EQU CVTSTATE 01916000 CVTRV315 EQU CVTGTFS 01917000 CVTGTFAV EQU CVTGTFS 01918000 CVT0SCR1 EQU CVTMAP+232 01919000 CVTRV515 EQU CVTMAP+228 01920000 CVTRMS EQU CVTMAP+224 01921000 CVTPATCH EQU CVTMAP+220 01922000 CVTTSCE EQU CVTMAP+216 01923000 CVTLNKSC EQU CVTMAP+214 01924000 CVTQABST EQU CVTMAP+212 01925000 CVTMDLDS EQU CVTMAP+208 01926000 CVTUSER EQU CVTMAP+204 01927000 CVTABEND EQU CVTMAP+200 01928000 CVTSMCA EQU CVTMAP+196 01929000 CVTRSV18 EQU CVTMAP+192 01930000 CVTQLPAQ EQU CVTMAP+188 01931000 CVTQCDSR EQU CVTMAP+184 01932000 CVTRSV17 EQU CVTOPTB 01933000 CVTRSV16 EQU CVTOPTB 01934000 CVTFP EQU CVTOPTB 01935000 CVTAPTHR EQU CVTOPTB 01936000 CVTNLOG EQU CVTOPTB 01937000 CVTTOD EQU CVTOPTB 01938000 CVTCTIMS EQU CVTOPTB 01939000 CVTPROT EQU CVTOPTB 01940000 CVTXPFP EQU CVTOPTA 01941000 CVTASCII EQU CVTOPTA 01942000 CVTRSV13 EQU CVTOPTA 01943000 CVTRSV12 EQU CVTOPTA 01944000 CVTNIP EQU CVTOPTA 01945000 CVTDDR EQU CVTOPTA 01946000 CVTAPR EQU CVTOPTA 01947000 CVTCCH EQU CVTOPTA 01948000 CVTSNCTR EQU CVTMAP+180 01949000 CVTQMWR EQU CVTMAP+176 01950000 CVTQOCR EQU CVTMAP+172 01951000 CVT1EF00 EQU CVTMAP+168 01952000 CVTMZ00 EQU CVTMAP+164 01953000 CVTHEAD EQU CVTMAP+160 01954000 CVTRSV11 EQU CVTMAP+156 01955000 CVT0PT01 EQU CVTMAP+152 01956000 CVTMSER EQU CVTMAP+148 01957000 CVTRV516 EQU CVTIERLC 01958000 CVTILCH EQU CVTMAP+140 01959000 CVT0DS EQU CVTMAP+136 01960000 CVTFBOSV EQU CVTMAP+132 01961000 CVTNUCB EQU CVTMAP+128 01962000 CVTIXAVL EQU CVTMAP+124 01963000 CVTIOQET EQU CVTMAP+120 01964000 CVTDCBA EQU CVTMAP+117 01965000 CVTMVS2 EQU CVTDCB 01966000 CVT6DAT EQU CVTDCB 01967000 CVT4MPS EQU CVTDCB 01968000 CVTRSV09 EQU CVTDCB 01969000 CVT4MS1 EQU CVTDCB 01970000 CVT2SPS EQU CVTDCB 01971000 CVT1SSS EQU CVTDCB 01972000 CVTRSV08 EQU CVTDCB 01973000 CVTSTB EQU CVTMAP+112 01974000 CVTQTD00 EQU CVTMAP+108 01975000 CVTQTE00 EQU CVTMAP+104 01976000 CVTCUCB EQU CVTMAP+100 01977000 CVTSJQ EQU CVTMAP+96 01978000 CVTPBLDL EQU CVTMAP+92 01979000 CVTTPC EQU CVTMAP+88 01980000 CVTSVDCB EQU CVTMAP+84 01981000 CVTBRET EQU CVTMAP+82 01982000 CVTEXIT EQU CVTMAP+80 01983000 CVT0FN00 EQU CVTMAP+76 01984000 CVTDARA EQU CVTDAR+1 01985000 CVTRSV07 EQU CVTFLGS1 01986000 CVTRSV06 EQU CVTFLGS1 01987000 CVTRSV05 EQU CVTFLGS1 01988000 CVTRSV04 EQU CVTFLGS1 01989000 CVTRSV03 EQU CVTFLGS1 01990000 CVTRSV02 EQU CVTFLGS1 01991000 CVTRSV01 EQU CVTFLGS1 01992000 CVTDMPLK EQU CVTFLGS1 01993000 CVTXITP EQU CVTMAP+68 01994000 CVTZDTAB EQU CVTMAP+64 01995000 CVTMSLT EQU CVTMAP+60 01996000 CVTDATE EQU CVTMAP+56 01997000 CVTBTERM EQU CVTMAP+52 01998000 CVTSYSAD EQU CVTMAP+48 01999000 CVTXTLER EQU CVTMAP+44 02000000 CVTILK2 EQU CVTMAP+40 02001000 CVTILK1 EQU CVTMAP+36 02002000 CVTPRLTV EQU CVTMAP+32 02003000 CVTPCNVT EQU CVTMAP+28 02004000 CVT0VL00 EQU CVTMAP+24 02005000 CVTXAPG EQU CVTMAP+20 02006000 CVTBUF EQU CVTMAP+16 02007000 CVTJOB EQU CVTMAP+12 02008000 CVTLINK EQU CVTMAP+8 02009000 CVT0EF00 EQU CVTMAP+4 02010000 CVTTCBP EQU CVTMAP 02011000 CVT EQU CVTMAP 02012000 ACBADDR EQU PARM+1 02013000 OPENATTB EQU PARM 02014000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02015000 @RT00108 EQU RELOOP 02016000 @RT00111 EQU RELOOP 02017000 @RT00121 EQU START 02018000 @RT00123 EQU LOOP1 02019000 FINISH EQU @EL00001 02020000 @ENDDATA EQU * 02021000 END IGG0203K,(C'PLS0040',0602,75026) 02022000