TITLE 'IECVERPL - ERP LOADER AND XCTL ROUTINE *00001000 ' 00002000 RBPRFXLN EQU 64 00003000 RBPRFLNA EQU 32 00004000 PRBLEN EQU 136 00005000 SIRBLEN EQU 200 00006000 TIRBLEN EQU 136 00007000 IRBLEN EQU 128 00008000 SVRBLEN EQU 200 00009000 IECVERPL CSECT 00010000 LR @10,@15 LOAD BASE REG 00011000 USING IECVERPL,10 00012000 * REG1=ADDR(ESTAEA); /* GET ESTAE PARAM AREA */ 00013000 L @12,PSAAOLD 0186 00014000 L @12,ASCBASXB(,@12) 0186 00015000 L @12,ASXBSIRB(,@12) 0186 00016000 LA REG1,96 0186 00017000 ALR REG1,@12 0186 00018000 * REG2=SRBPARM; /* POINTER TO IOSB */ 00019000 L @12,RBIQE1-1(,@12) 0187 00020000 L REG2,SRBPARM(,@12) 0187 00021000 * REG1->ESTAEA(1:16)=ESTAELST; /* LIST TO SIRB SAVE AREA */ 00022000 MVC ESTAEA(16,REG1),ESTAELST 0188 00023000 * REG1->PARAMAD=REG2; /* ADDRESS OF IOSB TO PARAMETER 00024000 * AREA */ 00025000 ST REG2,PARAMAD(,REG1) 0189 00026000 * GEN( ESTAE MF=(E,(1)) SET ESTAE ); 0190 00027000 ESTAE MF=(E,(1)) SET ESTAE 00028000 * RFY 0191 00029000 * (REG3) RSTD; 0191 00030000 * 0192 00031000 */************************************************************** 0192 00032000 ** 0192 00033000 ** CHECK IOSPROC FOR ZERO TO DETERMINE IF UCBETI 0192 00034000 ** IS TO BE USED IN DETERMINING THE REQUESTED ROUTINE. 0192 00035000 ** 0192 00036000 ************************************************************** */ 00037000 * 0192 00038000 * REG1=SRBPARM; /* GET THE IOSB POINTER */ 00039000 L @12,PSAAOLD 0192 00040000 L @12,ASCBASXB(,@12) 0192 00041000 L @12,ASXBSIRB(,@12) 0192 00042000 L @15,RBIQE1-1(,@12) 0192 00043000 L REG1,SRBPARM(,@15) 0192 00044000 * IF IOSPROC^=ZERO /* IS A PROC REQUESTED */ 00045000 * THEN 0193 00046000 CLI IOSPROC(REG1),0 0193 00047000 BE @RF00193 0193 00048000 * DO; /* YES - FIND WHICH ONE */ 00049000 * REG13=ADDR(ESA1); 0195 00050000 * 0195 00051000 LA REG13,ESA1(,@12) 0195 00052000 */* @ M01044*/ 00053000 * 0196 00054000 * /* LOAD ESA PTR IN 13 */ 00055000 * IF IOSPROC=IOSADAVV /* WAS DAVV REQUESTED */ 00056000 * THEN 0196 00057000 CLI IOSPROC(REG1),X'10' 0196 00058000 BNE @RF00196 0196 00059000 * DO; /* YES GO TO DAVV */ 00060000 * RFY 0198 00061000 * (REG15) RSTD; 0198 00062000 * REG15=ADDR(IECVDAVV); /* GET DAVV ADDRESS */ 00063000 L REG15,@CV02570 0199 00064000 * GO TO DAVV; /* GO TO RESIDENT DAVV */ 00065000 BR REG15 0200 00066000 * RFY 0201 00067000 * (REG15) UNRSTD; 0201 00068000 * END; 0202 00069000 * ELSE 0203 00070000 * DO; /* NOT DAVV CHECK OTHERS */ 00071000 @RF00196 DS 0H 0204 00072000 * IF IOSPROC=IOSAWTO /* IS REQUEST WTO */ 00073000 * THEN 0204 00074000 CLI IOSPROC(REG1),X'14' 0204 00075000 BNE @RF00204 0204 00076000 * DO; /* YES - SET WTO NAME AND PROCEED 00077000 * TO ERP XCTL ROUTINE */ 00078000 * REG2=WTONAME1; /* GET FIRST FOUR CHARS */ 00079000 L REG2,@CF02585 0206 00080000 * REG3=WTONAME2; /* GET LAST FOUR CHARS */ 00081000 L REG3,@CF02587 0207 00082000 * END; 0208 00083000 * ELSE 0209 00084000 * DO; /* NOT WTO - CHECK DDR */ 00085000 B @RC00204 0209 00086000 @RF00204 DS 0H 0210 00087000 * IF IOSPROC=IOSADDR /* IS IT A DDR REQ */ 00088000 * THEN 0210 00089000 CLI IOSPROC(REG1),X'18' 0210 00090000 BNE @RF00210 0210 00091000 * DO; /* YES - SET UP FOR DDR */ 00092000 * REG2=DDRNAME1; /* SET FIRST FOUR CHARS */ 00093000 L REG2,@CF02585 0212 00094000 * REG3=DDRNAME2; /* SET LAST FOUR CHARS */ 00095000 L REG3,@CF02590 0213 00096000 * END; 0214 00097000 * ELSE 0215 00098000 * DO; /* NOT DDR - CHECK CRH Y30CQLE*/ 00099000 B @RC00210 0215 00100000 @RF00210 DS 0H 0216 00101000 * IF IOSPROC=IOSACRH&/* IF ENTERED FOR CRH &Y30CQLE*/ 00102000 * CVTCRCA^=0 THEN/* CRH IS ACTIVE THEN..Y30CQLE*/ 00103000 CLI IOSPROC(REG1),X'1C' 0216 00104000 BNE @RF00216 0216 00105000 L @12,FLCCVT 0216 00106000 L @00,CVTCRCA(,@12) 0216 00107000 LTR @00,@00 0216 00108000 BZ @RF00216 0216 00109000 * DO; /* Y30CQLE*/ 00110000 * RFY /* Y30CQLE*/ 00111000 * (REG15) RSTD;/* Y30CQLE*/ 00112000 * REG15=ADDR(IECVCRHT);/* SET R15=@ TIMER POP 00113000 * Y30CQLE*/ 00114000 L @12,CRCAPTR(,@12) 0219 00115000 L REG15,CRCACRHT(,@12) 0219 00116000 * GEN; 0220 00117000 * /* Y30CQLE*/ 00118000 STIMER REAL,(REG15),DINTVL=CRH15 00119000 * ONE AND ONE-HALF SECOND TIMER POP INTERVAL Y30CQLE 00120000 * GO TO ERPL3;/* EXIT TO IEAODS-Y30CQLE */ 00121000 B ERPL3 0221 00122000 * END; /* Y30CQLE */ 00123000 * ELSE 0223 00124000 * GO TO ERPLT2; /* UNAUTHORIZED REQ */ 00125000 * END; 0224 00126000 * IOSPROC=ZERO; /* ZERO THE IOSPROC FLD */ 00127000 @RC00210 MVI IOSPROC(REG1),X'00' 0225 00128000 * END; /* Y30CQLE */ 00129000 * END; 0227 00130000 @RC00204 DS 0H 0228 00131000 * END; 0228 00132000 * 0229 00133000 */************************************************************** 0229 00134000 ** 0229 00135000 ** IOSPROC IS ZERO SO THE UCBETI IS USED TO RESOLVE 0229 00136000 ** THE DESIRED ROUTINE NAME. 0229 00137000 ** 0229 00138000 ************************************************************** */ 00139000 * 0229 00140000 * ELSE 0229 00141000 * DO; 0229 00142000 B @RC00193 0229 00143000 @RF00193 DS 0H 0230 00144000 * REG13=UCBETI; /* IOSPROC = 0 GET ERROR TABLE 0230 00145000 * INDEX IN REG 13 */ 00146000 L @14,IOSUCB(,REG1) 0230 00147000 L @14,UCBEXTPT(,@14) 0230 00148000 SLR REG13,REG13 0230 00149000 IC REG13,UCBETI(,@14) 0230 00150000 * IF REG13=ZERO 0231 00151000 * 0231 00152000 */* M01049 */ 00153000 * 0231 00154000 * /* IS UCBETI = 0 */ 00155000 * THEN 0231 00156000 LTR REG13,REG13 0231 00157000 BNZ @RF00231 0231 00158000 * REG13=ID25F; 0232 00159000 * 0232 00160000 LA REG13,256 0232 00161000 */* M01049 */ 00162000 * 0233 00163000 * /* YES - SET FOR 25F */ 00164000 * ELSE 0233 00165000 * ; 0233 00166000 * 0233 00167000 @RF00231 DS 0H 0234 00168000 */* M01049 */ 00169000 * 0234 00170000 * GO TO ERPL3ENT; /* BYPASS ADDRESSABILITY SETUP IN 00171000 * ERP XCTL RTN */ 00172000 B ERPL3ENT 0234 00173000 */************************************************************** 0235 00174000 ** 0235 00175000 ** SET UP ADDRESSABILITY FOR ROUTINES ENTERING HERE TO 0235 00176000 ** USE THE ERP XCTL FUNCTION. 0235 00177000 ** 0235 00178000 ************************************************************** */ 00179000 * 0235 00180000 * GEN; 0235 00181000 * 0235 00182000 ENTRY IECXTLER 00183000 IECXTLER DS 0H ERP XCTL RTN ENTRY 00184000 LR @10,@14 GET ENTRY ADDR M01049 00185000 LA @15,IECXTLER-IECVERPL LOAD DISP TO START 00186000 SR @10,@15 RESET BASE REG 00187000 */************************************************************** 0236 00188000 ** 0236 00189000 ** USING THE NUMBER INPUT IN REG 13 THIS ROUTINE WILL 0236 00190000 ** BUILD AN IGE0 NAME BY CVD AND UNPK. THIS NAME WILL 0236 00191000 ** THEN BE SEARCHED IN BOTH THE CDE AND LPDE QUEUES TO 0236 00192000 ** FIND THE ENTRY POINT. 0236 00193000 ** 0236 00194000 ************************************************************** */ 00195000 * 0236 00196000 *ERPL3ENT: 0236 00197000 * ; /* BYPASS ADDRESSABILITY SETUP 0236 00198000 * ENTRY */ 00199000 ERPL3ENT DS 0H 0237 00200000 * RFY 0237 00201000 * (REG12) RSTD; 0237 00202000 * RFY 0238 00203000 * (REG15) RSTD; 0238 00204000 * REG15=ADDR(ESA1); /* LOAD ESA ADDRESS FOR USE IN 0239 00205000 * CONVERTING THE NAME */ 00206000 L @14,PSAAOLD 0239 00207000 L @14,ASCBASXB(,@14) 0239 00208000 L @14,ASXBSIRB(,@14) 0239 00209000 LA REG15,ESA1(,@14) 0239 00210000 * REG12=ADDR(SIRBC1); /* ADDRESS OF THE MODULE NAME IN 00211000 * SIRB (FIRST TWO WORDS) USED AS 00212000 * A WORK AREA */ 00213000 LR REG12,@14 0240 00214000 * GEN; 0241 00215000 LA @15,4(@15) INCREMENT INTO ESA FOR 00216000 * DOUBLE WORD ALIGNMENT 00217000 SRL @15,3 SHIFT OUT LO 3 BITS 00218000 SLL @15,3 ROUND TO DBLWORD 00219000 CVD @13,0(@15) CONVERT NAME NUMERIC TO 00220000 * DECIMAL 00221000 UNPK 0(4,@12),5(3,@15) UNPACK NAME INTO SIRBC1 00222000 * REG2=STDPREFX; /* SET 'IGE0 PREFIX */ 00223000 L REG2,@CF02585 0242 00224000 * REG3=REG12->SIRBC1; /* LOAD LAST HALF OF ERP NAME */ 00225000 L REG3,SIRBC1(,REG12) 0243 00226000 * RFY 0244 00227000 * (REG12) UNRSTD; 0244 00228000 * RFY 0245 00229000 * (REG15) UNRSTD; 0245 00230000 * END; 0246 00231000 * 0247 00232000 */************************************************************** 0247 00233000 ** 0247 00234000 ** THIS ROUTINE CALLS THE RESIDENT ROUTINE WHICH SEARCHES 0247 00235000 ** THE DESIRED CDE Q FOR THE REQUESTED ROUTINE. 0247 00236000 ** THE CMS AND LOCAL LOCKS ARE ACQUIRED BEFORE ENTRY. 0247 00237000 ** RETURNS FROM THIS ROUTINE ARE +0 FOR NAME FOUND 0247 00238000 ** (PTR TO CDE IN REG 11 ) OR +4 NAME NOT FOUND. 0247 00239000 ** IF THE NAME IS NOT FOUND IN THE CDES AN LPDE SEARCH IS 0247 00240000 ** TRIED. 0247 00241000 ** 0247 00242000 ************************************************************** */ 00243000 * 0247 00244000 * SIRBC1=REG2; /* SET FIRST HALF NAME */ 00245000 @RC00193 L @12,PSAAOLD 0247 00246000 L @12,ASCBASXB(,@12) 0247 00247000 L @12,ASXBSIRB(,@12) 0247 00248000 ST REG2,SIRBC1(,@12) 0247 00249000 * REG1=SRBPARM; /* INSURE IOSB POINTER@YM05171 */ 00250000 L @15,RBIQE1-1(,@12) 0248 00251000 L REG1,SRBPARM(,@15) 0248 00252000 * SIRBC2=REG3; /* SET SECOND HALF NAME */ 00253000 ST REG3,SIRBC2(,@12) 0249 00254000 * ESA1=REG1; /* SAVE THE IOSB POINTER ACROSS 00255000 * CONTENTS DIRECTORY SEARCH */ 00256000 ST REG1,ESA1(,@12) 0250 00257000 * RFY 0251 00258000 * (REG2) UNRSTD; 0251 00259000 * RFY 0252 00260000 * (REG3) UNRSTD; 0252 00261000 * RFY 0253 00262000 * (REG8) RSTD; 0253 00263000 * RFY 0254 00264000 * (REG9) RSTD; 0254 00265000 * REG8=CVTQLPAQ; /* SET REG 8 TO CDE Q */ 00266000 L @15,FLCCVT 0255 00267000 L REG8,CVTQLPAQ(,@15) 0255 00268000 * REG9=ADDR(SIRBWORD); /* ADDRESS OF NAME */ 00269000 * 0256 00270000 LR REG9,@12 0256 00271000 * /*****************************************************************/ 00272000 * /* */ 00273000 * /* RESPECIFY ALL REGS USED BY SETLOCK */ 00274000 * /* */ 00275000 * /*****************************************************************/ 00276000 * 0257 00277000 * RFY 0257 00278000 * (REG12) RSTD; 0257 00279000 * RFY 0258 00280000 * (REG14) RSTD; 0258 00281000 * GEN; 0259 00282000 ERPLO1 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND,RELATED=(LOCALMEMORY,IEC*00283000 VERPL(ERPLR1,ERPLR2)) 00284000 ERPLO2 SETLOCK OBTAIN,TYPE=CMS,MODE=UNCOND,RELATED=(CROSSMEM,IECVERPL*00285000 (ERPLR3,ERPLR4)) 00286000 * RFY 0260 00287000 * (REG14) UNRSTD; 0260 00288000 * CALL CDSEARCH; /* CALL RESIDENT RTN TO SEARCH 0261 00289000 * CDE'S FOR NAME */ 00290000 L @14,FLCCVT 0261 00291000 L @15,CVTQCDSR(,@14) 0261 00292000 BALR @14,@15 0261 00293000 * RFY 0262 00294000 * (REG8) UNRSTD; 0262 00295000 * RFY 0263 00296000 * (REG9) UNRSTD; 0263 00297000 * GO TO LPAFND; /* THIS GO TO HANDLES THE +0 0264 00298000 * RETURN FRON THE CDE SEARCH RTN*/ 00299000 B LPAFND 0264 00300000 * 0265 00301000 */************************************************************** 0265 00302000 ** 0265 00303000 ** NAME NOT FOUND IN CDES. FREE LOCKS AND TRY LPDES. 0265 00304000 ** 0265 00305000 ************************************************************** */ 00306000 * 0265 00307000 * RFY 0265 00308000 * (REG14) RSTD; 0265 00309000 * GEN; 0266 00310000 ERPLR3 SETLOCK RELEASE,TYPE=CMS,RELATED=(CROSSMEM,IECVERPL(ERPLO2)) 00311000 ERPLR1 SETLOCK RELEASE,TYPE=LOCAL,RELATED=(LOCALMEMORY,IECVERPL(ERPLO*00312000 1)) 00313000 * RFY 0267 00314000 * (REG14) UNRSTD; 0267 00315000 * RFY 0268 00316000 * (REG3) RSTD; 0268 00317000 * REG3=FLCCVT; /* ADDRESS OF CVT FOR LPDE SEARCH*/ 00318000 L @15,FLCCVT 0269 00319000 LR REG3,@15 0269 00320000 * CALL IEAVVMSR; /* CALL LPDE SEARCH RTN */ 00321000 L @15,CVTLPDSR(,@15) 0270 00322000 BALR @14,@15 0270 00323000 * RFY 0271 00324000 * (REG3) UNRSTD; 0271 00325000 * GO TO LPDEFND; /* THIS GO TO HANDLES THE FOUND 00326000 * CONDITION ( +0 RETURN) FROM 0272 00327000 * LPDE SEARCH */ 00328000 B LPDEFND 0272 00329000 * 0273 00330000 */************************************************************** 0273 00331000 ** 0273 00332000 ** RETURN +4 FROM LPDE SEARCH. NAME DOES NOT EXIST. 0273 00333000 ** TERMINATE IOSB IN ERROR. 0273 00334000 ** 0273 00335000 ************************************************************** */ 00336000 * 0273 00337000 * RFY 0273 00338000 * (REG0) RSTD; 0273 00339000 * RFY 0274 00340000 * (REG15) RSTD; 0274 00341000 *ERPLTERM: 0275 00342000 * ; 0275 00343000 ERPLTERM DS 0H 0276 00344000 * REG1=ESA1; /* LOAD IOSB ADDR INTO REG 1 */ 00345000 L @14,PSAAOLD 0276 00346000 L @14,ASCBASXB(,@14) 0276 00347000 L @14,ASXBSIRB(,@14) 0276 00348000 L REG1,ESA1(,@14) 0276 00349000 *ERPLT2: 0277 00350000 * ; /* ENTRY FOR REG1 LOADED */ 00351000 ERPLT2 DS 0H 0278 00352000 * REG0=IOSSRB; /* SRB ADDRESS IN REG 0 */ 00353000 L REG0,IOSSRB(,REG1) 0278 00354000 * IOSEX=ON1; /* INSURE EXCEPTION ON */ 00355000 * IOSERR=OFF1; /* INSURE ERP IN CONTROL IS OFF */ 00356000 OI IOSEX(REG1),B'00000100' 0280 00357000 NI IOSERR(REG1),B'11011111' 0280 00358000 * SVC(15); /* SVC F TO LET POST STATUS 0281 00359000 * TERMONATE REQ IN ERROR */ 00360000 SVC 15 0281 00361000 *ERPL3: 0282 00362000 * SVC(3); /* EXIT TO DISPATCHER */ 00363000 ERPL3 SVC 3 0282 00364000 * 0283 00365000 */************************************************************** 0283 00366000 ** 0283 00367000 ** NAME FOUND IN CDE. GET ROUTINE ADDRESS AND GO THERE 0283 00368000 ** AFTER FREEING CMS AND LOCAL LOCKS. 0283 00369000 ** 0283 00370000 ************************************************************** */ 00371000 * 0283 00372000 *LPAFND: 0283 00373000 * ; /* CDE FOUND IN DYNAMIC LPA 0283 00374000 * SEARCH. CDE ADDR RETURNED IN 00375000 * REG 11 */ 00376000 LPAFND DS 0H 0284 00377000 * RFY 0284 00378000 * (REG14) RSTD; 0284 00379000 * REG1=REG11; /* SAVE REG 11 ACROSS SETLOCKS */ 00380000 LR REG1,REG11 0285 00381000 * GEN; 0286 00382000 ERPLR4 SETLOCK RELEASE,TYPE=CMS,RELATED=(CROSSMEM,IECVERPL(ERPLO2)) 00383000 ERPLR2 SETLOCK RELEASE,TYPE=LOCAL,RELATED=(LOCALMEMORY,IECVERPL(ERPLO*00384000 1)) 00385000 * REG11=REG1; /* RESTORE REG 11 */ 00386000 LR REG11,REG1 0287 00387000 * RFY 0288 00388000 * (REG14) UNRSTD; 0288 00389000 * REG1=ESA1; /* LOAD REG1 WITH IOSB */ 00390000 L @14,PSAAOLD 0289 00391000 L @14,ASCBASXB(,@14) 0289 00392000 L @14,ASXBSIRB(,@14) 0289 00393000 L REG1,ESA1(,@14) 0289 00394000 * REG13=ADDR(ESA1); /* LOAD ESA PTR IN 13 */ 00395000 LA REG13,ESA1(,@14) 0290 00396000 * REG15=CDENTPT; /* GET ROUTINE ENTRY POINT FROM 00397000 * CDE */ 00398000 L REG15,CDENTPT(,REG11) 0291 00399000 * GO TO TARGTRTN; /* GO TO REQUESTED ERP LOAD */ 00400000 BR REG15 0292 00401000 * 0293 00402000 */************************************************************** 0293 00403000 ** 0293 00404000 ** NAME FOUND IN LPDE. GET ROUTINE ADDRESS AND GO THERE. 0293 00405000 ** 0293 00406000 ************************************************************** */ 00407000 * 0293 00408000 *LPDEFND: 0293 00409000 * ; /* LPDE FOUND IN LPDE SEARCH. 0293 00410000 * LPDE ADDR RETURNED IN REG 0 */ 00411000 LPDEFND DS 0H 0294 00412000 * REG11=REG0; /* SET REG 11 TO POINT TO THE 0294 00413000 * LPDE */ 00414000 LR REG11,REG0 0294 00415000 * REG1=ESA1; /* LOAD REG1 WITH IOSB */ 00416000 L @14,PSAAOLD 0295 00417000 L @14,ASCBASXB(,@14) 0295 00418000 L @14,ASXBSIRB(,@14) 0295 00419000 L REG1,ESA1(,@14) 0295 00420000 * REG13=ADDR(ESA1); /* LOAD ESA PTR IN 13 */ 00421000 LA REG13,ESA1(,@14) 0296 00422000 * REG15=LPDENTP; /* LOAD ROUTINE ENT PNT */ 00423000 L REG15,LPDENTP(,REG11) 0297 00424000 * GO TO TARGTRTN; /* GO TO REQUESTED ERP LOAD */ 00425000 BR REG15 0298 00426000 * RFY 0299 00427000 * (REG0) UNRSTD; 0299 00428000 * RFY 0300 00429000 * (REG15) UNRSTD; 0300 00430000 * GEN; 0301 00431000 * 0301 00432000 ESTAELST ESTAE ERPLESTA,CT,ASYNCH=NO, *00433000 ESTAR=NO,TERM=YES, *00434000 BRANCH=NO,RECORD=NO, *00435000 MF=L,PURGE=NONE 00436000 */********************************************************************* 00437000 *** ** 00438000 *** ERPLESTA ROUTINE ** 00439000 *** ** 00440000 **********************************************************************/ 00441000 * 0302 00442000 *ERPLESTA: 0302 00443000 * ; 0302 00444000 ERPLESTA DS 0H 0303 00445000 * RFY 0303 00446000 * (REG0) RSTD; 0303 00447000 * RFY 0304 00448000 * (REG3) RSTD; 0304 00449000 * RFY 0305 00450000 * (REG4) RSTD; 0305 00451000 * RFY 0306 00452000 * (REG5) RSTD; 0306 00453000 * RFY 0307 00454000 * (REG6) RSTD; 0307 00455000 * RFY 0308 00456000 * (REG7) RSTD; 0308 00457000 * RFY 0309 00458000 * (REG8) RSTD; 0309 00459000 * RFY 0310 00460000 * (REG14) RSTD; 0310 00461000 * GEN; 0311 00462000 BALR @10,0 00463000 LA @15,ERPLESTA-IECVERPL+2 00464000 SR @10,@15 00465000 * REG13=ADDR(RBSIRBWA); /* ADDRESS SAVE AREA */ 00466000 L @15,PSAAOLD 0312 00467000 L @15,ASCBASXB(,@15) 0312 00468000 L @15,ASXBSIRB(,@15) 0312 00469000 LA REG13,RBSIRBWA(,@15) 0312 00470000 */************************************************************** 0313 00471000 ** SAVE OFF REQUIRED REGISTERS AND SET SAVE AREA ADDRESS * 0313 00472000 ************************************************************** */ 00473000 * 0313 00474000 * REG5=REG0; /* SDWA WORK AREA 0313 00475000 * AVAILABLE,REG0=12 */ 00476000 LR REG5,REG0 0313 00477000 * REG6=REG1; /* ADDRESS OF THE SDWA */ 00478000 LR REG6,REG1 0314 00479000 * REG7=REG14; /* ADDRESS OF RTM */ 00480000 LR REG7,REG14 0315 00481000 * REG8=REG2; /* SAVE IN CASE IT CONTAINS IOSB 00482000 * ADDRESS @ZA17750*/ 00483000 LR REG8,REG2 0316 00484000 * RFY 0317 00485000 * (REG0) UNRSTD; 0317 00486000 * RFY 0318 00487000 * (REG14) UNRSTD; 0318 00488000 * 0318 00489000 */************************************************************* 0319 00490000 ** CHECK AND FIND IF THERE IS AN SRB 0319 00491000 ************************************************************* */ 00492000 * 0319 00493000 * RFY 0319 00494000 * (REG2) RSTD; 0319 00495000 * IF RBIQEA1(2:4)^='000000'X /* IS SRB PURGED */ 00496000 * THEN 0320 00497000 CLC RBIQEA1+1(3,@15),@CB02643 0320 00498000 BE @RF00320 0320 00499000 * IF RBIQEA1(1:1)='00'X THEN 0321 00500000 CLI RBIQEA1(@15),X'00' 0321 00501000 BNE @RF00321 0321 00502000 * DO; /* SRB ONLY */ 00503000 * REG2=CVTSDBF&'00FFFFFF'X; 0323 00504000 L @09,FLCCVT 0323 00505000 L REG2,CVTSDBF(,@09) 0323 00506000 N REG2,@CF02644 0323 00507000 * REG3=REG2|'80000000'X; 0324 00508000 LR REG3,REG2 0324 00509000 O REG3,@CF02645 0324 00510000 * REG4=FLCCVT; /* CHECK FOR DUMP BUFF. */ 00511000 LR REG4,@09 0325 00512000 * GEN; 0326 00513000 CS 2,3,CVTSDBF-CVT(4) 00514000 * RFY 0327 00515000 * (REG3) UNRSTD; 0327 00516000 * RFY 0328 00517000 * (REG4) UNRSTD; 0328 00518000 * BC(7,NDUMP); 0329 00519000 * 0329 00520000 BC 7,NDUMP 0329 00521000 */************************************************************* 0330 00522000 ** ISSUE SVC DUMP 0330 00523000 ************************************************************* */ 00524000 * 0330 00525000 * DATAADDR=ADDR(DATASAVE); /* VIRT ADDR OF DATA @ZA09413*/ 00526000 LA @09,DATASAVE(,REG2) 0330 00527000 ST @09,DATAADDR(,REG2) 0330 00528000 * DATALEN=LENGTH(DATASAVE); /* SET DATA LENGTH @ZA09413*/ 00529000 MVC DATALEN(2,REG2),@CH02654 0331 00530000 * DATASAVS=DATASRB; /* MOVE IN SRB @ZA09413,@ZA17382 */ 00531000 L @09,PSAAOLD 0332 00532000 L @04,ASCBASXB(,@09) 0332 00533000 L @04,ASXBSIRB(,@04) 0332 00534000 L @03,RBIQEA(,@04) 0332 00535000 MVC DATASAVS(44,REG2),DATASRB(@03) 0332 00536000 * DATASAVI=DATAIOSB; /* MOVE IN IOSB TO SAVE @ZA17382*/ 00537000 L @04,RBIQE1-1(,@04) 0333 00538000 L @04,SRBPARM(,@04) 0333 00539000 MVC DATASAVI(108,REG2),DATAIOSB(@04) 0333 00540000 * DATAEND=''B; /* INDICATE DATA END @ZA09413*/ 00541000 XC DATAEND(6,REG2),DATAEND(REG2) 0334 00542000 * REG2=ASCBASID; 0335 00543000 LH REG2,ASCBASID(,@09) 0335 00544000 N REG2,@CF02657 0335 00545000 * GEN; 0336 00546000 SDUMP HDR='IOS-IECVERPL ERROR', *00547000 SDATA=(PSA,NUC,SQA,LSQA,RGN,LPA,TRT,CSA,SWA), *00548000 ASID=(REG2), *00549000 BUFFER=YES,BRANCH=NO @YM06203 00550000 * RFY 0337 00551000 * (REG2) UNRSTD; 0337 00552000 * REG1=REG6; 0338 00553000 LR REG1,REG6 0338 00554000 *NDUMP: 0339 00555000 * IF REG5^=CODE12 THEN /* CHECK FOR RTCA */ 00556000 NDUMP C REG5,@CF02598 0339 00557000 BE @RF00339 0339 00558000 * DO; /* RTCA EXISTS */ 00559000 * SDWAPARM->IOSCOD=IOSABNC; 0341 00560000 L @09,SDWAPARM(,REG1) 0341 00561000 MVI IOSCOD(@09),X'45' 0341 00562000 * SDWAMODN='IECVERPL'; 0342 00563000 MVC SDWAMODN(8,REG1),@CC02650 0342 00564000 * SDWACSCT='IECVERPL'; 0343 00565000 MVC SDWACSCT(8,REG1),@CC02650 0343 00566000 * SDWAREXN='ERPLESTA'; 0344 00567000 MVC SDWAREXN(8,REG1),@CC02651 0344 00568000 * ESA1=SDWAPARM; /* REG1, SDWA PARM FIELD @ZA17750*/ 00569000 L @04,PSAAOLD 0345 00570000 L @04,ASCBASXB(,@04) 0345 00571000 L @04,ASXBSIRB(,@04) 0345 00572000 ST @09,ESA1(,@04) 0345 00573000 * DO; /* SETRP RETADDR(ERPLTERM)RC(4)RE 00574000 * CORD(YES)FRESDWA(YES) */ 00575000 * RESPECIFY 0347 00576000 * (GPR00P, 0347 00577000 * GPR01P, 0347 00578000 * GPR14P, 0347 00579000 * GPR15P) RSTD; 0347 00580000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 00581000 MVI SDWARCDE(GPR01P),X'04' 0348 00582000 * GPR01P->SDWARTYA=ADDR(ERPLTERM);/* SAVE RETRY ADDRESS*/ 00583000 LA @09,ERPLTERM 0349 00584000 ST @09,SDWARTYA(,GPR01P) 0349 00585000 * GPR01P->SDWAFREE='1'B;/* SET FLAG TO FREE SDWA */ 00586000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD INDICATOR */ 00587000 OI SDWAFREE(GPR01P),B'10000100' 0351 00588000 * RESPECIFY 0352 00589000 * (GPR00P, 0352 00590000 * GPR01P, 0352 00591000 * GPR14P, 0352 00592000 * GPR15P) UNRSTD; 0352 00593000 * END; 0353 00594000 * END; 0354 00595000 * ELSE 0355 00596000 * REG8->IOSCOD=IOSABNC; /* PERM ERROR @ZA17750*/ 00597000 B @RC00339 0355 00598000 @RF00339 MVI IOSCOD(REG8),X'45' 0355 00599000 * RFY 0356 00600000 * (REG0) RSTD; 0356 00601000 @RC00339 DS 0H 0357 00602000 * RFY 0357 00603000 * (REG14) RSTD; 0357 00604000 * RFY 0358 00605000 * (REG15) RSTD; 0358 00606000 * REG0=ADDR(ERPLTERM); /* ADDRESS TO RETRY TO */ 00607000 LA REG0,ERPLTERM 0359 00608000 * REG14=REG7; /* RESTORE RETURN ADDRESS */ 00609000 LR REG14,REG7 0360 00610000 * REG15=4; 0361 00611000 LA REG15,4 0361 00612000 * GEN(BR 14); /* RC=4, IN REG 15 FOR */ 00613000 * 0362 00614000 BR 14 00615000 * /***********************************************************/ 00616000 * /* */ 00617000 * /* RETRY IN STAE INTFC. BRANCH TO RTM */ 00618000 * /* */ 00619000 * /***********************************************************/ 00620000 * 0363 00621000 * END; 0363 00622000 * ELSE 0364 00623000 * DO; /* WORKAREA ONLY,ON SIRB */ 00624000 B @RC00321 0364 00625000 @RF00321 DS 0H 0365 00626000 * REG1=RBIQEA; /* POINTER FIRST WORKAREA */ 00627000 L @09,PSAAOLD 0365 00628000 L @09,ASCBASXB(,@09) 0365 00629000 L @09,ASXBSIRB(,@09) 0365 00630000 L REG1,RBIQEA(,@09) 0365 00631000 * REG1=REG1&'00FFFFFF'X; 0366 00632000 N REG1,@CF02644 0366 00633000 * REG11='00000020'X; /* FREE A 160 BYTE BLOCK */ 00634000 LA REG11,32 0367 00635000 * REG1->SRBID='00000000'X; /* ZERO CHAIN FIELD IN ERP WA 0368 00636000 * @ZA17750*/ 00637000 MVC SRBID(4,REG1),@CB02653 0368 00638000 * REG15=IOCORMGT; /* ADDRESS OF CORE MANAGER */ 00639000 L @09,FLCCVT 0369 00640000 L @09,CVTIXAVL(,@09) 0369 00641000 L REG15,IOCORMGT(,@09) 0369 00642000 * GEN(BAL @14,4(@15)); /* BRANCH TO CORE MANAGER */ 00643000 BAL @14,4(@15) 00644000 * END; 0371 00645000 * ELSE 0372 00646000 * ; /* NO SRB OR OR THE WORK AREA WAS 00647000 * JUST FREED. */ 00648000 @RF00320 DS 0H 0373 00649000 * IF REG5^=CODE12 THEN 0373 00650000 @RC00320 C REG5,@CF02598 0373 00651000 BE @RF00373 0373 00652000 * DO; 0374 00653000 * SDWAMODN='IECVERPL'; 0375 00654000 MVC SDWAMODN(8,REG1),@CC02650 0375 00655000 * SDWACSCT='IECVERPL'; 0376 00656000 MVC SDWACSCT(8,REG1),@CC02650 0376 00657000 * SDWAREXN='ERPLESTA'; 0377 00658000 MVC SDWAREXN(8,REG1),@CC02651 0377 00659000 * DO; /* SETRP RETADDR(ERPL3)RC(4)RECOR 00660000 * D(YES)FRESDWA(YES) */ 00661000 * RESPECIFY 0379 00662000 * (GPR00P, 0379 00663000 * GPR01P, 0379 00664000 * GPR14P, 0379 00665000 * GPR15P) RSTD; 0379 00666000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 00667000 MVI SDWARCDE(GPR01P),X'04' 0380 00668000 * GPR01P->SDWARTYA=ADDR(ERPL3);/* SAVE RETRY ADDRESS */ 00669000 LA @09,ERPL3 0381 00670000 ST @09,SDWARTYA(,GPR01P) 0381 00671000 * GPR01P->SDWAFREE='1'B; /* SET FLAG TO FREE SDWA */ 00672000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00673000 OI SDWAFREE(GPR01P),B'10000100' 0383 00674000 * RESPECIFY 0384 00675000 * (GPR00P, 0384 00676000 * GPR01P, 0384 00677000 * GPR14P, 0384 00678000 * GPR15P) UNRSTD; 0384 00679000 * END; 0385 00680000 * END; 0386 00681000 * ELSE 0387 00682000 * ; 0387 00683000 @RF00373 DS 0H 0388 00684000 * REG0=ADDR(ERPL3); /* ADDRESS TO RETRY TO */ 00685000 LA REG0,ERPL3 0388 00686000 * REG14=REG7; /* RESTORE RETURN ADDRESS */ 00687000 LR REG14,REG7 0389 00688000 * REG15=4; 0390 00689000 LA REG15,4 0390 00690000 * GEN(BR 14) ; /* RC=4, IN REG 15 FOR RETRY IN 00691000 * STAE INTFC. */ 00692000 BR 14 00693000 * RFY 0392 00694000 * (REG0) UNRSTD; 0392 00695000 * RFY 0393 00696000 * (REG14) UNRSTD; 0393 00697000 * RFY 0394 00698000 * (REG15) UNRSTD; 0394 00699000 * END IECVERPL 0395 00700000 * 0395 00701000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00702000 */*%INCLUDE SYSLIB (IECDCRCA) */ 00703000 */*%INCLUDE SYSLIB (CVT ) */ 00704000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00705000 */*%INCLUDE SYSLIB (IHAASXB ) */ 00706000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00707000 */*%INCLUDE SYSLIB (IHARB ) */ 00708000 */*%INCLUDE SYSLIB (IKJRB ) */ 00709000 */*%INCLUDE SYSLIB (IHACDE ) */ 00710000 */*%INCLUDE SYSLIB (IHALPDE ) */ 00711000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00712000 */*%INCLUDE SYSLIB (IECDIOCM) */ 00713000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00714000 */*%INCLUDE SYSLIB (IHASRB ) */ 00715000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00716000 * 0395 00717000 * ; 0395 00718000 @DATA DS 0H 00719000 @CH02654 DC H'152' 00720000 @DATD DSECT 00721000 DS 0F 00722000 IECVERPL CSECT 00723000 DS 0F 00724000 @CF02598 DC F'12' 00725000 @CF02644 DC XL4'00FFFFFF' 00726000 @CF02645 DC XL4'80000000' 00727000 @CF02657 DC XL4'0000FFFF' 00728000 @CF02585 DC C'IGE0' 00729000 @CF02587 DC C'025C' 00730000 @CF02590 DC C'660A' 00731000 @DATD DSECT 00732000 DS 0D 00733000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00734000 @ENDDATD EQU * 00735000 IECVERPL CSECT 00736000 DS 0F 00737000 @SIZDATD DC AL1(0) 00738000 DC AL3(@ENDDATD-@DATD) 00739000 @CV02570 DC V(IECVDAVV) 00740000 DS 0D 00741000 @CC02650 DC C'IECVERPL' 00742000 @CC02651 DC C'ERPLESTA' 00743000 @CB02653 DC X'00000000' 00744000 @CB02643 EQU @CB02653 00745000 DS CL4 00746000 CRH15 DC X'F0F0F0F0F0F1F5F0' 00747000 ERPLPAT DC 10F'0' 00748000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00749000 @01 EQU 01 00750000 @02 EQU 02 00751000 @03 EQU 03 00752000 @04 EQU 04 00753000 @05 EQU 05 00754000 @06 EQU 06 00755000 @07 EQU 07 00756000 @08 EQU 08 00757000 @09 EQU 09 00758000 @10 EQU 10 00759000 @11 EQU 11 00760000 @12 EQU 12 00761000 @13 EQU 13 00762000 @14 EQU 14 00763000 @15 EQU 15 00764000 REG11 EQU @11 00765000 REG1 EQU @01 00766000 REG0 EQU @00 00767000 REG2 EQU @02 00768000 REG3 EQU @03 00769000 REG4 EQU @04 00770000 REG5 EQU @05 00771000 REG6 EQU @06 00772000 REG7 EQU @07 00773000 REG8 EQU @08 00774000 REG9 EQU @09 00775000 REG12 EQU @12 00776000 REG13 EQU @13 00777000 REG14 EQU @14 00778000 REG15 EQU @15 00779000 GPR00P EQU @00 00780000 GPR01P EQU @01 00781000 GPR14P EQU @14 00782000 GPR15P EQU @15 00783000 REG10 EQU @10 00784000 CVTPTR EQU 16 00785000 PSA EQU 0 00786000 FLCRNPSW EQU PSA 00787000 FLCROPSW EQU PSA+8 00788000 FLCICCW2 EQU PSA+16 00789000 FLCCVT EQU FLCICCW2 00790000 PSAEEPSW EQU PSA+132 00791000 PSAESPSW EQU PSA+136 00792000 FLCSVILC EQU PSAESPSW+1 00793000 PSAEPPSW EQU PSA+140 00794000 FLCPIILC EQU PSAEPPSW+1 00795000 FLCPICOD EQU PSAEPPSW+2 00796000 PSAPICOD EQU FLCPICOD+1 00797000 FLCTEA EQU PSAEPPSW+4 00798000 FLCPER EQU PSA+152 00799000 FLCMCLA EQU PSA+168 00800000 FLCIOEL EQU FLCMCLA+4 00801000 FLCIOA EQU FLCMCLA+16 00802000 FLCFSA EQU FLCMCLA+80 00803000 PSAAOLD EQU PSA+548 00804000 PSASUPER EQU PSA+552 00805000 PSASUP1 EQU PSASUPER 00806000 PSASUP2 EQU PSASUPER+1 00807000 PSASUP3 EQU PSASUPER+2 00808000 PSASUP4 EQU PSASUPER+3 00809000 PSACLHT EQU PSA+640 00810000 PSALKSA EQU PSA+696 00811000 PSAHLHI EQU PSA+760 00812000 PSADSSFL EQU PSA+836 00813000 PSADSSF1 EQU PSADSSFL 00814000 PSADSSF3 EQU PSADSSFL+2 00815000 PSADSSF4 EQU PSADSSFL+3 00816000 PSARSVT EQU PSA+896 00817000 CRCA EQU 0 00818000 CRCAFLGS EQU CRCA+4 00819000 CRCAFLG1 EQU CRCAFLGS 00820000 CRCAMCW EQU CRCA+8 00821000 CRCAMCWZ EQU CRCAMCW 00822000 CRCAMCWF EQU CRCAMCW+3 00823000 CRCACRHT EQU CRCA+16 00824000 CVTMAP EQU 0 00825000 CVTDAR EQU CVTMAP+72 00826000 CVTFLGS1 EQU CVTDAR 00827000 CVTDCB EQU CVTMAP+116 00828000 CVTIOQET EQU CVTMAP+120 00829000 CVTIXAVL EQU CVTMAP+124 00830000 CVTIERLC EQU CVTMAP+144 00831000 CVTHEAD EQU CVTMAP+160 00832000 CVTSV76C EQU CVTHEAD 00833000 CVTOPTA EQU CVTMAP+182 00834000 CVTOPTB EQU CVTMAP+183 00835000 CVTQCDSR EQU CVTMAP+184 00836000 CVTQLPAQ EQU CVTMAP+188 00837000 CVTGTF EQU CVTMAP+236 00838000 CVTGTFST EQU CVTGTF 00839000 CVTGTFS EQU CVTGTFST 00840000 CVTSTATE EQU CVTGTFST 00841000 CVTTMODE EQU CVTGTFST 00842000 CVTFORM EQU CVTGTFST 00843000 CVTAQAVT EQU CVTMAP+240 00844000 CVTTCMFG EQU CVTAQAVT 00845000 CVTVOLM2 EQU CVTMAP+244 00846000 CVTTATA EQU CVTVOLM2 00847000 CVTTSKS EQU CVTTATA 00848000 CVTVOLF2 EQU CVTTSKS 00849000 CVTTAT EQU CVTTATA+1 00850000 CVTATER EQU CVTMAP+248 00851000 CVTEXT1 EQU CVTMAP+252 00852000 CVTPURG EQU CVTMAP+260 00853000 CVTQMSG EQU CVTMAP+268 00854000 CVTDMSR EQU CVTMAP+272 00855000 CVTRSV37 EQU CVTDMSR 00856000 CVTDMSRF EQU CVTRSV37 00857000 CVTERPV EQU CVTMAP+316 00858000 CVTINTLA EQU CVTMAP+320 00859000 CVTAPF EQU CVTMAP+324 00860000 CVTEXT2 EQU CVTMAP+328 00861000 CVTHJES EQU CVTMAP+332 00862000 CVTPGSIA EQU CVTMAP+348 00863000 CVTA1F1 EQU CVTMAP+356 00864000 CVTSYSK EQU CVTMAP+357 00865000 CVTVOLM1 EQU CVTMAP+380 00866000 CVTVOLF1 EQU CVTVOLM1 00867000 CVTATMCT EQU CVTMAP+388 00868000 CVTXTNT1 EQU 0 00869000 CVTXTNT2 EQU 0 00870000 CVTDSSV EQU CVTXTNT2 00871000 CVTFLGBT EQU CVTXTNT2+5 00872000 CVTQID EQU CVTXTNT2+24 00873000 CVTRV400 EQU CVTXTNT2+52 00874000 CVTRV409 EQU CVTXTNT2+53 00875000 CVTATCVT EQU CVTXTNT2+64 00876000 CVTRV429 EQU CVTXTNT2+84 00877000 CVTRV438 EQU CVTXTNT2+85 00878000 CVTRV457 EQU CVTXTNT2+112 00879000 CVTRV466 EQU CVTXTNT2+113 00880000 CVTFIX EQU 0 00881000 CVTRELNO EQU CVTFIX+252 00882000 ASCB EQU 0 00883000 ASCBASID EQU ASCB+36 00884000 ASCBFW1 EQU ASCB+100 00885000 ASCBRCTF EQU ASCBFW1+2 00886000 ASCBFLG1 EQU ASCBFW1+3 00887000 ASCBASXB EQU ASCB+108 00888000 ASCBDSP1 EQU ASCB+114 00889000 ASCBFLG2 EQU ASCB+115 00890000 ASXB EQU 0 00891000 ASXBSIRB EQU ASXB+160 00892000 ASXBAEQ EQU ASXB+168 00893000 ASXBSECR EQU ASXB+199 00894000 ASCBSFLG EQU ASXBSECR 00895000 ASXBCASW EQU ASXB+216 00896000 ASXBCRB1 EQU ASXBCASW 00897000 RBPRFX EQU 0 00898000 RBBASIC EQU 0 00899000 RBEXRTNM EQU RBBASIC 00900000 RBTMFLD EQU RBEXRTNM 00901000 RBSTAB EQU RBBASIC+10 00902000 XSTAB EQU RBSTAB 00903000 RBSTAB1 EQU XSTAB 00904000 XSTAB1 EQU RBSTAB1 00905000 RBFTCKPT EQU XSTAB1 00906000 RBSTAB2 EQU XSTAB+1 00907000 XSTAB2 EQU RBSTAB2 00908000 RBTCBNXT EQU XSTAB2 00909000 RBFACTV EQU XSTAB2 00910000 RBFDYN EQU XSTAB2 00911000 RBECBWT EQU XSTAB2 00912000 RBOPSW EQU RBBASIC+16 00913000 XRBPSW EQU RBOPSW 00914000 RBOPSWB2 EQU XRBPSW+1 00915000 RBLINK EQU RBBASIC+28 00916000 XRBLNK EQU RBLINK 00917000 RBWCF EQU XRBLNK 00918000 RBLINKB EQU XRBLNK+1 00919000 RBGRSAVE EQU RBBASIC+32 00920000 XRBREG EQU RBGRSAVE 00921000 RBGRS0 EQU XRBREG 00922000 RBGRS1 EQU XRBREG+4 00923000 RBGRS2 EQU XRBREG+8 00924000 RBGRS3 EQU XRBREG+12 00925000 RBGRS4 EQU XRBREG+16 00926000 RBGRS5 EQU XRBREG+20 00927000 RBGRS6 EQU XRBREG+24 00928000 RBGRS7 EQU XRBREG+28 00929000 RBGRS8 EQU XRBREG+32 00930000 RBGRS9 EQU XRBREG+36 00931000 RBGRS10 EQU XRBREG+40 00932000 RBGRS11 EQU XRBREG+44 00933000 RBGRS12 EQU XRBREG+48 00934000 RBGRS13 EQU XRBREG+52 00935000 RBGRS14 EQU XRBREG+56 00936000 RBGRS15 EQU XRBREG+60 00937000 XRBESA EQU RBBASIC+96 00938000 RBPREFIX EQU 0 00939000 RBRSV019 EQU RBPREFIX+14 00940000 RBRSV028 EQU RBPREFIX+15 00941000 RBRSV041 EQU RBPREFIX+27 00942000 RBRSV054 EQU RBPREFIX+39 00943000 RBRTOPSW EQU RBPREFIX+40 00944000 RBRTPSW2 EQU RBRTOPSW+8 00945000 RBRTICIL EQU RBRTPSW2 00946000 RBFLAGS1 EQU RBPREFIX+56 00947000 RBINTCDA EQU RBPREFIX+61 00948000 RBSECT EQU 0 00949000 RBPPSAV EQU RBSECT 00950000 @NM00043 EQU RBSECT+10 00951000 @NM00044 EQU @NM00043 00952000 RBTRSVRB EQU @NM00044 00953000 @NM00046 EQU @NM00043+1 00954000 RBETXR EQU @NM00046 00955000 RBEP EQU RBSECT+12 00956000 RBPGMQ EQU RBSECT+24 00957000 @NM00053 EQU RBSECT+28 00958000 IRBEND EQU RBSECT+96 00959000 @NM00057 EQU RBSECT+96 00960000 RBRSV138 EQU @NM00057+7 00961000 RBRSV150 EQU RBSECT+167 00962000 CDENTRY EQU 0 00963000 CDENTPT EQU CDENTRY+16 00964000 CDATTR EQU CDENTRY+28 00965000 CDATTR2 EQU CDENTRY+29 00966000 LPDE EQU 0 00967000 LPDENTP EQU LPDE+16 00968000 LPDEATTR EQU LPDE+28 00969000 LPDEATT2 EQU LPDE+29 00970000 LPDEMJNM EQU LPDE+32 00971000 SDWA EQU 0 00972000 SDWAPARM EQU SDWA 00973000 SDWAFIOB EQU SDWA+4 00974000 SDWAABCC EQU SDWAFIOB 00975000 SDWACMPF EQU SDWAABCC 00976000 SDWACTL1 EQU SDWA+8 00977000 SDWACMKA EQU SDWACTL1 00978000 SDWAMWPA EQU SDWACTL1+1 00979000 SDWAPMKA EQU SDWACTL1+4 00980000 SDWACTL2 EQU SDWA+16 00981000 SDWACMKP EQU SDWACTL2 00982000 SDWAMWPP EQU SDWACTL2+1 00983000 SDWAPMKP EQU SDWACTL2+4 00984000 SDWAGRSV EQU SDWA+24 00985000 SDWANAME EQU SDWA+88 00986000 SDWAEC1 EQU SDWA+104 00987000 SDWAEMK1 EQU SDWAEC1 00988000 SDWAMWP1 EQU SDWAEC1+1 00989000 SDWAINT1 EQU SDWAEC1+2 00990000 SDWANXT1 EQU SDWAEC1+4 00991000 SDWAAEC1 EQU SDWA+112 00992000 SDWAILC1 EQU SDWAAEC1+1 00993000 SDWAINC1 EQU SDWAAEC1+2 00994000 SDWAICD1 EQU SDWAINC1+1 00995000 SDWAEC2 EQU SDWA+120 00996000 SDWAEMK2 EQU SDWAEC2 00997000 SDWAMWP2 EQU SDWAEC2+1 00998000 SDWAINT2 EQU SDWAEC2+2 00999000 SDWANXT2 EQU SDWAEC2+4 01000000 SDWAAEC2 EQU SDWA+128 01001000 SDWAILC2 EQU SDWAAEC2+1 01002000 SDWAINC2 EQU SDWAAEC2+2 01003000 SDWAICD2 EQU SDWAINC2+1 01004000 SDWASRSV EQU SDWA+136 01005000 SDWAIDNT EQU SDWA+200 01006000 SDWAMCH EQU SDWA+204 01007000 SDWASTCK EQU SDWAMCH 01008000 SDWAMCHI EQU SDWAMCH+8 01009000 SDWAMCHS EQU SDWAMCHI 01010000 SDWAMCHD EQU SDWAMCHI+1 01011000 SDWARSR1 EQU SDWAMCH+12 01012000 SDWARSR2 EQU SDWAMCH+13 01013000 SDWAFLGS EQU SDWA+232 01014000 SDWAERRA EQU SDWAFLGS 01015000 SDWAERRB EQU SDWAFLGS+1 01016000 SDWAERRC EQU SDWAFLGS+2 01017000 SDWAERRD EQU SDWAFLGS+3 01018000 SDWAIOFS EQU SDWA+238 01019000 SDWARTYA EQU SDWA+240 01020000 SDWACPUA EQU SDWA+248 01021000 SDWAPARQ EQU SDWA+252 01022000 SDWARCDE EQU SDWAPARQ 01023000 SDWAACF2 EQU SDWAPARQ+1 01024000 SDWARCRD EQU SDWAACF2 01025000 SDWAFREE EQU SDWAACF2 01026000 SDWAACF3 EQU SDWAPARQ+2 01027000 SDWAACF4 EQU SDWAPARQ+3 01028000 SDWALKWA EQU SDWA+256 01029000 SDWALKWS EQU SDWALKWA 01030000 SDWARECP EQU SDWA+292 01031000 SDWAMODN EQU SDWARECP 01032000 SDWACSCT EQU SDWARECP+8 01033000 SDWAREXN EQU SDWARECP+16 01034000 SDWASNPA EQU SDWA+320 01035000 SDWADUMP EQU SDWASNPA 01036000 SDWADPFS EQU SDWADUMP+1 01037000 SDWADDAT EQU SDWASNPA+4 01038000 SDWASDAT EQU SDWADDAT 01039000 SDWAPDAT EQU SDWADDAT+2 01040000 SDWADPSA EQU SDWA+328 01041000 SDWADPSL EQU SDWADPSA 01042000 SDWARA EQU SDWA+400 01043000 SDWADPVA EQU SDWARA+2 01044000 IOCOM EQU 0 01045000 IOCORMGT EQU IOCOM+36 01046000 IOSB EQU 0 01047000 IOSFLA EQU IOSB 01048000 IOSACHN EQU IOSFLA 01049000 IOSERR EQU IOSFLA 01050000 IOSEX EQU IOSFLA 01051000 IOSFLB EQU IOSB+1 01052000 IOSFLC EQU IOSB+2 01053000 IOSDVALT EQU IOSFLC 01054000 IOSPROC EQU IOSB+3 01055000 IOSPKEY EQU IOSB+12 01056000 IOSCOD EQU IOSB+13 01057000 IOSOPT EQU IOSB+14 01058000 IOSOPT2 EQU IOSB+15 01059000 IOSUCB EQU IOSB+16 01060000 @NM00119 EQU IOSB+20 01061000 IOSCSW EQU @NM00119+1 01062000 IOSTATUS EQU IOSCSW+3 01063000 IOSSRB EQU IOSB+28 01064000 IOSIPIB EQU IOSB+44 01065000 IOSDIE EQU IOSB+68 01066000 IOSDIEFG EQU IOSDIE 01067000 IOSPATH EQU IOSB+86 01068000 IOSCHN EQU IOSPATH 01069000 IOSCKEY EQU IOSB+89 01070000 IOSEEKA EQU IOSB+100 01071000 IOSCCHH EQU IOSEEKA+3 01072000 IOSSKHH EQU IOSCCHH+2 01073000 SRBSECT EQU 0 01074000 SRB EQU SRBSECT 01075000 SRBID EQU SRB 01076000 SRBFLC EQU SRB+12 01077000 SRBPARM EQU SRB+28 01078000 UCB EQU 0 01079000 UCBOB EQU 0 01080000 UCBJBNR EQU UCBOB 01081000 UCBFL5 EQU UCBOB+1 01082000 UCBAF EQU UCBFL5 01083000 UCBSTAT EQU UCBOB+3 01084000 UCBCHAN EQU UCBOB+4 01085000 UCBSFLS EQU UCBOB+6 01086000 UCBFLA EQU UCBSFLS 01087000 UCBFL1 EQU UCBFLA 01088000 UCBBSY EQU UCBFL1 01089000 UCBNRY EQU UCBFL1 01090000 UCBPST EQU UCBFL1 01091000 UCBCUB EQU UCBFL1 01092000 UCBFLB EQU UCBSFLS+1 01093000 UCBCHM EQU UCBOB+8 01094000 UCBCHM1 EQU UCBCHM 01095000 UCBPTH0 EQU UCBCHM1 01096000 UCBPTH1 EQU UCBCHM1 01097000 UCBWGT EQU UCBOB+12 01098000 UCBTYP EQU UCBOB+16 01099000 UCBTBYT1 EQU UCBTYP 01100000 UCB1FEA5 EQU UCBTBYT1 01101000 UCB1FEA6 EQU UCBTBYT1 01102000 UCBTBYT2 EQU UCBTYP+1 01103000 UCB2OPT2 EQU UCBTBYT2 01104000 UCBDUDN1 EQU UCB2OPT2 01105000 UCB2OPT3 EQU UCBTBYT2 01106000 UCBDUDN2 EQU UCB2OPT3 01107000 UCB2OPT4 EQU UCBTBYT2 01108000 UCBRWTAU EQU UCB2OPT4 01109000 UCB2OPT6 EQU UCBTBYT2 01110000 UCB2OPT7 EQU UCBTBYT2 01111000 UCBTBYT3 EQU UCBTYP+2 01112000 UCBDVCLS EQU UCBTBYT3 01113000 UCBTBYT4 EQU UCBTYP+3 01114000 UCBEXTPT EQU UCBOB+20 01115000 UCBFLC EQU UCBEXTPT 01116000 UCBDEV EQU UCBOB+24 01117000 UCBCMEXT EQU 0 01118000 UCBETI EQU UCBCMEXT 01119000 UCBATI EQU UCBCMEXT+3 01120000 @NM00130 EQU UCBATI 01121000 UCBFLP1 EQU UCBCMEXT+5 01122000 UCBMT EQU 0 01123000 UCBOCR EQU 0 01124000 UCB3540X EQU 0 01125000 UCBDKBYT EQU UCB3540X+6 01126000 UCB3800X EQU 0 01127000 UCBOPTNS EQU UCB3800X 01128000 UCBACTIV EQU UCB3800X+3 01129000 UCBMDRBF EQU UCB3800X+36 01130000 UCBUCS EQU 0 01131000 UCBUCSOP EQU UCBUCS+4 01132000 UCBFCBOP EQU UCBUCS+5 01133000 DAVV EQU 0 01134000 TARGTRTN EQU 0 01135000 CDSEARCH EQU 0 01136000 IEAVVMSR EQU 0 01137000 IECVCRHT EQU 0 01138000 DATASRB EQU 0 01139000 DATAIOSB EQU 0 01140000 ESTAEA EQU 0 01141000 STAEADDR EQU ESTAEA 01142000 PARAMAD EQU ESTAEA+4 01143000 FLGS EQU ESTAEA+12 01144000 SDUMPBUF EQU 0 01145000 DATAADDR EQU SDUMPBUF 01146000 DATALEN EQU SDUMPBUF+4 01147000 DATASAVE EQU SDUMPBUF+6 01148000 DATASAVS EQU DATASAVE 01149000 DATASAVI EQU DATASAVE+44 01150000 DATAEND EQU SDUMPBUF+158 01151000 UCBBGN EQU 0 01152000 CVTS01 EQU CVTPGSIA 01153000 CVTLPDSR EQU CVTS01+4 01154000 CVTLPDIA EQU CVTS01+12 01155000 CVTDIRST EQU CVTLPDIA 01156000 CVTSLIDA EQU CVTS01+24 01157000 CVTCTLFG EQU CVTS01+50 01158000 CVTSDBF EQU CVTS01+240 01159000 CVTRV210 EQU CVTS01+424 01160000 CVTRV219 EQU CVTS01+425 01161000 CVTRV228 EQU CVTS01+426 01162000 CVTRV237 EQU CVTS01+427 01163000 CVTMFRTR EQU CVTS01+452 01164000 CVTRV262 EQU CVTS01+468 01165000 CVTRV271 EQU CVTS01+469 01166000 CVTRV280 EQU CVTS01+470 01167000 CVTRV289 EQU CVTS01+471 01168000 CVTGSDA EQU CVTS01+600 01169000 CVTCRCA EQU CVTS01+612 01170000 CRCAPTR EQU CVTCRCA 01171000 PSARSVTE EQU PSARSVT 01172000 RBSECS03 EQU RBEP 01173000 RBCDE EQU RBSECS03 01174000 RBCDFLGS EQU RBCDE 01175000 RBSECS05 EQU RBPGMQ 01176000 RBSQE EQU RBSECS05 01177000 RBSECS06 EQU RBPGMQ 01178000 RBIQE EQU RBSECS06 01179000 RBIQE1 EQU RBIQE+1 01180000 RBSECS07 EQU RBPGMQ 01181000 RBIQE2 EQU RBSECS07 01182000 RBIQEA EQU RBIQE2 01183000 RBSECS08 EQU IRBEND 01184000 RBSECS09 EQU IRBEND 01185000 RBSIRBWA EQU RBSECS09 01186000 IOSATTSC EQU IOSIPIB 01187000 IOSWTOWA EQU IOSIPIB 01188000 IOSPCISC EQU IOSIPIB 01189000 UCBOBS01 EQU UCBDEV 01190000 UCBSTAB EQU UCBOBS01+10 01191000 UCBBSVL EQU UCBSTAB 01192000 UCBPRSRS EQU UCBSTAB 01193000 UCBDMCT EQU UCBOBS01+11 01194000 UCBFL4 EQU UCBOBS01+13 01195000 UCBOBS02 EQU UCBDEV 01196000 UCBTFL1 EQU UCBOBS02+19 01197000 UCBXTN EQU UCBOBS02+20 01198000 UCBVOPT EQU UCBXTN 01199000 UCBOBS03 EQU UCBDEV 01200000 UCBXTADR EQU UCBOBS03 01201000 UCBOBS04 EQU UCBDEV 01202000 UCBBTA EQU UCBOBS04+12 01203000 UCBOBS06 EQU UCBDEV 01204000 UCBAOF EQU UCBOBS06 01205000 UCBAOF1 EQU UCBAOF 01206000 UCBAOF2 EQU UCBAOF+1 01207000 @NM00129 EQU UCBOBS06+3 01208000 UCBIRB EQU UCBOBS06+4 01209000 UCBGRAF EQU UCBIRB 01210000 UCBLDNCA EQU UCBOBS06+8 01211000 UCBRDYQ EQU UCBLDNCA 01212000 UCBIRLN EQU UCBRDYQ 01213000 UCBLDNCB EQU UCBRDYQ+1 01214000 UCBCTLNK EQU UCBOBS06+12 01215000 UCBOBS07 EQU UCBDEV 01216000 UCBOBS08 EQU UCBDEV 01217000 UCBCTCAD EQU UCBOBS08 01218000 UCBCTCF1 EQU UCBOBS08+4 01219000 UCBOBS09 EQU UCBDEV 01220000 ESA1 EQU RBSIRBWA 01221000 RBIQEA1 EQU RBIQEA 01222000 SIRBWORD EQU RBEXRTNM 01223000 SIRBC1 EQU SIRBWORD 01224000 SIRBC2 EQU SIRBWORD+4 01225000 FLC EQU PSA 01226000 * START UNREFERENCED COMPONENTS 01227000 UCBRV066 EQU UCBOBS09+4 01228000 UCBIOSBA EQU UCBOBS09 01229000 UCBRV042 EQU UCBOBS08+5 01230000 UCBRV082 EQU UCBCTCF1 01231000 UCBRV081 EQU UCBCTCF1 01232000 UCBRV080 EQU UCBCTCF1 01233000 UCBRV079 EQU UCBCTCF1 01234000 UCBRV078 EQU UCBCTCF1 01235000 UCBRV077 EQU UCBCTCF1 01236000 UCBRV076 EQU UCBCTCF1 01237000 UCBCTC80 EQU UCBCTCF1 01238000 UCBCTCAL EQU UCBCTCAD 01239000 UCBICNCB EQU UCBOBS07+4 01240000 UCBRV040 EQU UCBOBS07 01241000 UCBCTLNA EQU UCBCTLNK+1 01242000 UCBRLN EQU UCBCTLNK 01243000 UCBRDYQA EQU UCBLDNCB 01244000 UCBINRLN EQU UCBIRLN 01245000 UCBIRBA EQU UCBIRB+1 01246000 UCBRV039 EQU UCBGRAF 01247000 UCBDWNR EQU UCBGRAF 01248000 UCBRPND EQU UCBGRAF 01249000 UCBUPM EQU UCBGRAF 01250000 UCBBTAM EQU UCBGRAF 01251000 UCBDRNO EQU UCBGRAF 01252000 UCBDRO EQU UCBGRAF 01253000 UCBOIP EQU UCBGRAF 01254000 UCBATRCD EQU @NM00129 01255000 UCBSKPFG EQU @NM00129 01256000 UCBRIPND EQU @NM00129 01257000 UCBRTIAC EQU @NM00129 01258000 UCBRSV79 EQU @NM00129 01259000 UCBRSV78 EQU @NM00129 01260000 UCBRSV77 EQU @NM00129 01261000 UCBOLTEP EQU @NM00129 01262000 UCBATNCT EQU UCBOBS06+2 01263000 UCBRSV76 EQU UCBAOF2 01264000 UCBRSV75 EQU UCBAOF2 01265000 UCBRSV74 EQU UCBAOF2 01266000 UCBRSV73 EQU UCBAOF2 01267000 UCBRSV72 EQU UCBAOF2 01268000 UCBRSV71 EQU UCBAOF2 01269000 UCBRSV70 EQU UCBAOF2 01270000 UCBRSV69 EQU UCBAOF2 01271000 UCBRSV68 EQU UCBAOF1 01272000 UCBRSV67 EQU UCBAOF1 01273000 UCBRSV66 EQU UCBAOF1 01274000 UCBRSV65 EQU UCBAOF1 01275000 UCBRSV64 EQU UCBAOF1 01276000 UCBOFNL EQU UCBAOF1 01277000 UCBOFSP EQU UCBAOF1 01278000 UCBOFMCR EQU UCBAOF1 01279000 UCBBTB EQU UCBBTA+1 01280000 UCBDI EQU UCBBTA 01281000 UCBSNS EQU UCBOBS04+8 01282000 UCBTEB EQU UCBOBS04+4 01283000 UCBGCB EQU UCBOBS04+3 01284000 UCBOPEN EQU UCBOBS04+2 01285000 UCBSTART EQU UCBOBS04 01286000 UCBXTNB EQU UCBXTN+1 01287000 UCBRSV22 EQU UCBVOPT 01288000 UCBRSV21 EQU UCBVOPT 01289000 UCBRSV20 EQU UCBVOPT 01290000 UCBESVE EQU UCBVOPT 01291000 UCBERPC EQU UCBVOPT 01292000 UCBESVC EQU UCBVOPT 01293000 UCBEVA EQU UCBVOPT 01294000 UCBESV EQU UCBVOPT 01295000 UCBRV009 EQU UCBTFL1 01296000 UCBRV008 EQU UCBTFL1 01297000 UCBRV007 EQU UCBTFL1 01298000 UCBRV006 EQU UCBTFL1 01299000 UCBRV005 EQU UCBTFL1 01300000 UCBRV038 EQU UCBTFL1 01301000 UCBNSLTP EQU UCBTFL1 01302000 UCBNLTP EQU UCBTFL1 01303000 UCBRES1B EQU UCBOBS02+18 01304000 UCBFSER EQU UCBOBS02+12 01305000 @NM00128 EQU UCBOBS02+4 01306000 UCBFSEQ EQU UCBOBS02+2 01307000 UCBFSCT EQU UCBOBS02 01308000 UCBNEXP EQU UCBOBS01+20 01309000 UCBBASE EQU UCBOBS01+16 01310000 UCBRES1A EQU UCBOBS01+15 01311000 UCBUSER EQU UCBOBS01+14 01312000 UCBFL47 EQU UCBFL4 01313000 UCBFL46 EQU UCBFL4 01314000 UCBFL45 EQU UCBFL4 01315000 UCBRV065 EQU UCBFL4 01316000 UCBDSS EQU UCBFL4 01317000 UCBRESVP EQU UCBFL4 01318000 UCBWDAV EQU UCBFL4 01319000 UCBDAVV EQU UCBFL4 01320000 UCBSQC EQU UCBOBS01+12 01321000 UCBDATP EQU UCBOBS01+12 01322000 UCBDMC EQU UCBDMCT 01323000 UCBMOUNT EQU UCBDMCT 01324000 UCBBNUL EQU UCBSTAB 01325000 UCBSHAR EQU UCBSTAB 01326000 UCBBSTR EQU UCBSTAB 01327000 UCBBPUB EQU UCBSTAB 01328000 UCBBPRV EQU UCBSTAB 01329000 UCBBALB EQU UCBPRSRS 01330000 UCBPGFL EQU UCBSTAB 01331000 UCBDVSHR EQU UCBBSVL 01332000 UCBVOLI EQU UCBOBS01+4 01333000 UCBVTOC EQU UCBOBS01 01334000 IOSPCIWA EQU IOSPCISC+44 01335000 IOSPCIRS EQU IOSPCISC+8 01336000 @NM00124 EQU IOSPCISC+4 01337000 @NM00123 EQU IOSPCISC 01338000 IOSWRNDR EQU IOSWTOWA+4 01339000 IOSWTOPT EQU IOSWTOWA+3 01340000 IOSWTOCP EQU IOSWTOWA+2 01341000 IOSWTOCH EQU IOSWTOWA 01342000 IOSATTWA EQU IOSATTSC+40 01343000 @NM00122 EQU IOSATTSC+24 01344000 IOSATTSN EQU IOSATTSC 01345000 RBRSV161 EQU RBSECS09+64 01346000 RBIQEWRK EQU RBSECS08+4 01347000 RBNEXAV EQU RBSECS08 01348000 RBUSE EQU RBIQE 01349000 RBSQEA EQU RBSQE+1 01350000 @NM00058 EQU RBSQE 01351000 RBCDE1 EQU RBCDE+1 01352000 RBCDLOAD EQU RBCDFLGS 01353000 RBCDXCTL EQU RBCDFLGS 01354000 RBCDSYNC EQU RBCDFLGS 01355000 RBCDNODE EQU RBCDFLGS 01356000 RBRSV010 EQU RBCDFLGS 01357000 RBCDATCH EQU RBCDFLGS 01358000 RBRSV009 EQU RBCDFLGS 01359000 RBNOCELL EQU RBCDFLGS 01360000 PSARSAV EQU PSARSVTE+60 01361000 PSARSTK EQU PSARSVTE+56 01362000 PSAESAV3 EQU PSARSVTE+52 01363000 PSAESTK3 EQU PSARSVTE+48 01364000 PSAESAV2 EQU PSARSVTE+44 01365000 PSAESTK2 EQU PSARSVTE+40 01366000 PSAESAV1 EQU PSARSVTE+36 01367000 PSAESTK1 EQU PSARSVTE+32 01368000 PSAPSAV EQU PSARSVTE+28 01369000 PSAPSTK EQU PSARSVTE+24 01370000 PSAMSAV EQU PSARSVTE+20 01371000 PSAMSTK EQU PSARSVTE+16 01372000 PSASSAV EQU PSARSVTE+12 01373000 PSASSTK EQU PSARSVTE+8 01374000 PSANSTK EQU PSARSVTE+4 01375000 PSACSTK EQU PSARSVTE 01376000 CVTRV628 EQU CVTS01+728 01377000 CVTRV627 EQU CVTS01+724 01378000 CVTRV626 EQU CVTS01+720 01379000 CVTRV625 EQU CVTS01+716 01380000 CVTRV624 EQU CVTS01+712 01381000 CVTRV623 EQU CVTS01+708 01382000 CVTRV622 EQU CVTS01+704 01383000 CVTRV621 EQU CVTS01+700 01384000 CVTIHASU EQU CVTS01+696 01385000 CVTRV619 EQU CVTS01+692 01386000 CVTRV618 EQU CVTS01+688 01387000 CVTRV617 EQU CVTS01+684 01388000 CVTRV616 EQU CVTS01+680 01389000 CVTRV615 EQU CVTS01+676 01390000 CVTRV614 EQU CVTS01+672 01391000 CVTRV613 EQU CVTS01+668 01392000 CVTTCASP EQU CVTS01+664 01393000 CVT0PT03 EQU CVTS01+660 01394000 CVT0PT0E EQU CVTS01+656 01395000 CVTRV609 EQU CVTS01+652 01396000 CVTCGK EQU CVTS01+648 01397000 CVTRAC EQU CVTS01+644 01398000 CVTRV606 EQU CVTS01+640 01399000 CVTRV605 EQU CVTS01+636 01400000 CVTRV604 EQU CVTS01+632 01401000 CVTEFF02 EQU CVTS01+628 01402000 CVTCBBR EQU CVTS01+624 01403000 CVTSSCR EQU CVTS01+620 01404000 CVTEVENT EQU CVTS01+616 01405000 CVTTPIO EQU CVTS01+608 01406000 CVTADV EQU CVTS01+604 01407000 CVTGSDAB EQU CVTGSDA 01408000 CVTQV3 EQU CVTS01+596 01409000 CVTQV2 EQU CVTS01+592 01410000 CVTQV1 EQU CVTS01+588 01411000 CVTRPT EQU CVTS01+584 01412000 CVTSSRB EQU CVTS01+580 01413000 CVTCSDRL EQU CVTS01+576 01414000 CVTEXP1 EQU CVTS01+572 01415000 CVTRMPMT EQU CVTS01+568 01416000 CVTRMPTT EQU CVTS01+564 01417000 CVTVPSA EQU CVTS01+560 01418000 CVTVSTOP EQU CVTS01+556 01419000 CVTGTFR8 EQU CVTS01+552 01420000 CVTQUIT EQU CVTS01+548 01421000 CVTVACR EQU CVTS01+544 01422000 CVTWTCB EQU CVTS01+540 01423000 CVTSTPRS EQU CVTS01+536 01424000 CVT0PT02 EQU CVTS01+532 01425000 CVTDARCM EQU CVTS01+528 01426000 CVTIRECM EQU CVTS01+524 01427000 CVTJRECM EQU CVTS01+520 01428000 CVTVEMS0 EQU CVTS01+516 01429000 CVTSPFRR EQU CVTS01+512 01430000 CVTRLSTG EQU CVTS01+508 01431000 CVT0TC0A EQU CVTS01+504 01432000 CVTGMBR EQU CVTS01+500 01433000 CVTLFRM EQU CVTS01+496 01434000 CVTRMBR EQU CVTS01+492 01435000 CVTVIOP EQU CVTS01+488 01436000 CVTRV307 EQU CVTS01+486 01437000 CVTRV306 EQU CVTS01+484 01438000 CVTRV305 EQU CVTS01+482 01439000 CVTRV304 EQU CVTS01+480 01440000 CVTRV303 EQU CVTS01+478 01441000 CVTRV302 EQU CVTS01+476 01442000 CVTTRCA EQU CVTS01+472 01443000 CVTRV297 EQU CVTRV289 01444000 CVTRV296 EQU CVTRV289 01445000 CVTRV295 EQU CVTRV289 01446000 CVTRV294 EQU CVTRV289 01447000 CVTRV293 EQU CVTRV289 01448000 CVTRV292 EQU CVTRV289 01449000 CVTRV291 EQU CVTRV289 01450000 CVTRV290 EQU CVTRV289 01451000 CVTRV288 EQU CVTRV280 01452000 CVTRV287 EQU CVTRV280 01453000 CVTRV286 EQU CVTRV280 01454000 CVTRV285 EQU CVTRV280 01455000 CVTRV284 EQU CVTRV280 01456000 CVTRV283 EQU CVTRV280 01457000 CVTRV282 EQU CVTRV280 01458000 CVTRV281 EQU CVTRV280 01459000 CVTRV279 EQU CVTRV271 01460000 CVTRV278 EQU CVTRV271 01461000 CVTRV277 EQU CVTRV271 01462000 CVTRV276 EQU CVTRV271 01463000 CVTRV275 EQU CVTRV271 01464000 CVTRV274 EQU CVTRV271 01465000 CVTRV273 EQU CVTRV271 01466000 CVTRV272 EQU CVTRV271 01467000 CVTRV270 EQU CVTRV262 01468000 CVTRV269 EQU CVTRV262 01469000 CVTRV268 EQU CVTRV262 01470000 CVTRV267 EQU CVTRV262 01471000 CVTRV266 EQU CVTRV262 01472000 CVTRV265 EQU CVTRV262 01473000 CVTRV264 EQU CVTRV262 01474000 CVTRV263 EQU CVTRV262 01475000 CVTVFP EQU CVTS01+464 01476000 CVTVSI EQU CVTS01+460 01477000 CVTVPSIB EQU CVTS01+456 01478000 CVTMFACT EQU CVTMFRTR 01479000 CVTMFCTL EQU CVTS01+448 01480000 CVTPVBP EQU CVTS01+444 01481000 CVTPWI EQU CVTS01+440 01482000 CVTRV254 EQU CVTS01+438 01483000 CVTRV253 EQU CVTS01+436 01484000 CVTRV252 EQU CVTS01+434 01485000 CVTRV251 EQU CVTS01+433 01486000 CVTRV250 EQU CVTS01+432 01487000 CVTRV249 EQU CVTS01+431 01488000 CVTRV248 EQU CVTS01+430 01489000 CVTRV247 EQU CVTS01+429 01490000 CVTRV246 EQU CVTS01+428 01491000 CVTRV245 EQU CVTRV237 01492000 CVTRV244 EQU CVTRV237 01493000 CVTRV243 EQU CVTRV237 01494000 CVTRV242 EQU CVTRV237 01495000 CVTRV241 EQU CVTRV237 01496000 CVTRV240 EQU CVTRV237 01497000 CVTRV239 EQU CVTRV237 01498000 CVTRV238 EQU CVTRV237 01499000 CVTRV236 EQU CVTRV228 01500000 CVTRV235 EQU CVTRV228 01501000 CVTRV234 EQU CVTRV228 01502000 CVTRV233 EQU CVTRV228 01503000 CVTRV232 EQU CVTRV228 01504000 CVTRV231 EQU CVTRV228 01505000 CVTRV230 EQU CVTRV228 01506000 CVTRV229 EQU CVTRV228 01507000 CVTRV227 EQU CVTRV219 01508000 CVTRV226 EQU CVTRV219 01509000 CVTRV225 EQU CVTRV219 01510000 CVTRV224 EQU CVTRV219 01511000 CVTRV223 EQU CVTRV219 01512000 CVTRV222 EQU CVTRV219 01513000 CVTRV221 EQU CVTRV219 01514000 CVTRV220 EQU CVTRV219 01515000 CVTRV218 EQU CVTRV210 01516000 CVTRV217 EQU CVTRV210 01517000 CVTRV216 EQU CVTRV210 01518000 CVTRV215 EQU CVTRV210 01519000 CVTRV214 EQU CVTRV210 01520000 CVTRV213 EQU CVTRV210 01521000 CVTRV212 EQU CVTRV210 01522000 CVTRV211 EQU CVTRV210 01523000 CVTLCCAT EQU CVTS01+420 01524000 CVTPCCAT EQU CVTS01+416 01525000 CVTIPCRP EQU CVTS01+412 01526000 CVTIPCRI EQU CVTS01+408 01527000 CVTIPCDS EQU CVTS01+404 01528000 CVTAIDVT EQU CVTS01+400 01529000 CVTSSAP EQU CVTS01+396 01530000 CVTEHCIR EQU CVTS01+392 01531000 CVTEHDEF EQU CVTS01+388 01532000 CVTDAIR EQU CVTS01+384 01533000 CVTPERFM EQU CVTS01+380 01534000 CVT044R2 EQU CVTS01+376 01535000 CVTFETCH EQU CVTS01+372 01536000 CVTRSTWD EQU CVTS01+368 01537000 CVTSPOST EQU CVTS01+364 01538000 CVTIOBP EQU CVTS01+360 01539000 CVTASMVT EQU CVTS01+356 01540000 CVTRECRQ EQU CVTS01+352 01541000 CVTWSAC EQU CVTS01+348 01542000 CVTRV149 EQU CVTS01+344 01543000 CVTWSAL EQU CVTS01+340 01544000 CVTSPSA EQU CVTS01+336 01545000 CVTGLMN EQU CVTS01+332 01546000 CVTVEAC0 EQU CVTS01+328 01547000 CVT062R1 EQU CVTS01+324 01548000 CVTRPOST EQU CVTS01+320 01549000 CVTDQIQE EQU CVTS01+316 01550000 CVTCSD EQU CVTS01+312 01551000 CVTLKRMA EQU CVTS01+308 01552000 CVTRSPIE EQU CVTS01+304 01553000 CVTRENQ EQU CVTS01+300 01554000 CVTLQCB EQU CVTS01+296 01555000 CVTFQCB EQU CVTS01+292 01556000 CVTQCS01 EQU CVTS01+288 01557000 CVTAPFT EQU CVTS01+284 01558000 CVTPARRL EQU CVTS01+280 01559000 CVTVWAIT EQU CVTS01+276 01560000 CVTGSPL EQU CVTS01+272 01561000 CVTLSMQ EQU CVTS01+268 01562000 CVTGSMQ EQU CVTS01+264 01563000 CVTEXPRO EQU CVTS01+260 01564000 CVTOPCTP EQU CVTS01+256 01565000 CVTSIC EQU CVTS01+252 01566000 CVTTPIOS EQU CVTS01+248 01567000 CVTRTMS EQU CVTS01+244 01568000 CVTSCBP EQU CVTS01+236 01569000 CVTSDMP EQU CVTS01+232 01570000 CVTSV60 EQU CVTS01+228 01571000 CVTRTMCT EQU CVTS01+224 01572000 CVTASCBL EQU CVTS01+220 01573000 CVTASCBH EQU CVTS01+216 01574000 CVTGDA EQU CVTS01+212 01575000 CVTASVT EQU CVTS01+208 01576000 CVTVVMDI EQU CVTS01+204 01577000 CVTAQTOP EQU CVTS01+200 01578000 CVTIOSCS EQU CVTS01+196 01579000 CVTSDRM EQU CVTS01+192 01580000 CVTOPTE EQU CVTS01+188 01581000 CVTSTXU EQU CVTS01+184 01582000 CVTQUIS EQU CVTS01+180 01583000 CVTPARS EQU CVTS01+176 01584000 CVTS1EE EQU CVTS01+172 01585000 CVTFRAS EQU CVTS01+168 01586000 CVTQSAS EQU CVTS01+164 01587000 CVTCRAS EQU CVTS01+160 01588000 CVTCRMN EQU CVTS01+156 01589000 CVTDELCP EQU CVTS01+152 01590000 CVTFRECL EQU CVTS01+148 01591000 CVTGETCL EQU CVTS01+144 01592000 CVTBLDCP EQU CVTS01+140 01593000 CVTAUTHL EQU CVTS01+136 01594000 CVTSCAN EQU CVTS01+132 01595000 CVTRV144 EQU CVTS01+130 01596000 CVTMAXMP EQU CVTS01+128 01597000 CVTSTCK EQU CVTS01+124 01598000 CVTRV139 EQU CVTS01+123 01599000 CVTDSSAC EQU CVTS01+122 01600000 CVTRV513 EQU CVTS01+121 01601000 CVTIOSPL EQU CVTS01+120 01602000 CVTPTGT EQU CVTS01+116 01603000 CVTCSPIE EQU CVTS01+112 01604000 CVTSMFEX EQU CVTS01+108 01605000 CVTOLT0A EQU CVTS01+104 01606000 CVTSRBRT EQU CVTS01+100 01607000 CVTPUTL EQU CVTS01+96 01608000 CVTASCRL EQU CVTS01+92 01609000 CVTASCRF EQU CVTS01+88 01610000 CVTRV326 EQU CVTS01+84 01611000 CVTRV325 EQU CVTS01+80 01612000 CVTRV324 EQU CVTS01+76 01613000 CVT0VL01 EQU CVTS01+72 01614000 CVTSHRVM EQU CVTS01+68 01615000 CVTRV332 EQU CVTS01+64 01616000 CVTTAS EQU CVTS01+60 01617000 CVTRSCN EQU CVTS01+56 01618000 CVTTRAC2 EQU CVTS01+54 01619000 CVTTRACE EQU CVTS01+52 01620000 CVTAPG EQU CVTS01+51 01621000 CVTSDTRC EQU CVTCTLFG 01622000 CVTGTRCE EQU CVTCTLFG 01623000 CVTNOMP EQU CVTCTLFG 01624000 CVTRSV79 EQU CVTCTLFG 01625000 CVTDSTAT EQU CVTCTLFG 01626000 CVTRSV78 EQU CVTCTLFG 01627000 CVTRV333 EQU CVTCTLFG 01628000 CVTRV323 EQU CVTCTLFG 01629000 CVTSPVLK EQU CVTS01+49 01630000 CVTRSV77 EQU CVTS01+48 01631000 CVTRV331 EQU CVTS01+44 01632000 CVTRV330 EQU CVTS01+40 01633000 CVTRV329 EQU CVTS01+36 01634000 CVTRV328 EQU CVTS01+32 01635000 CVTRV322 EQU CVTS01+28 01636000 CVTSLID EQU CVTSLIDA+1 01637000 CVTSYLK EQU CVTSLIDA 01638000 CVTRV321 EQU CVTS01+20 01639000 CVTRV320 EQU CVTS01+16 01640000 CVTLPDIR EQU CVTLPDIA+1 01641000 CVTRSV69 EQU CVTDIRST 01642000 CVTRSV68 EQU CVTDIRST 01643000 CVTRSV67 EQU CVTDIRST 01644000 CVTRSV66 EQU CVTDIRST 01645000 CVTRSV65 EQU CVTDIRST 01646000 CVTRSV64 EQU CVTDIRST 01647000 CVTRSV63 EQU CVTDIRST 01648000 CVTDICOM EQU CVTDIRST 01649000 CVTPVTP EQU CVTS01+8 01650000 CVTGETL EQU CVTS01 01651000 ESTAR1 EQU FLGS+1 01652000 TERMREC EQU FLGS 01653000 TCBAD EQU ESTAEA+8 01654000 RTNADDR EQU STAEADDR+1 01655000 STAEFLGS EQU STAEADDR 01656000 UCBERADR EQU UCBUCS+12 01657000 UCBFCBID EQU UCBUCS+8 01658000 UCBERCNT EQU UCBUCS+7 01659000 UCBRSV51 EQU UCBUCS+6 01660000 UCBRSV50 EQU UCBFCBOP 01661000 UCBRSV49 EQU UCBFCBOP 01662000 UCBRSV48 EQU UCBFCBOP 01663000 UCBRSV47 EQU UCBFCBOP 01664000 UCBRSV46 EQU UCBFCBOP 01665000 UCBRSV45 EQU UCBFCBOP 01666000 UCBRSV44 EQU UCBFCBOP 01667000 UCBFCBO1 EQU UCBFCBOP 01668000 UCBUCSPE EQU UCBUCSOP 01669000 UCBRSV43 EQU UCBUCSOP 01670000 UCBRSV42 EQU UCBUCSOP 01671000 UCBRSV41 EQU UCBUCSOP 01672000 UCBRSV40 EQU UCBUCSOP 01673000 UCBRSV39 EQU UCBUCSOP 01674000 UCBUCSO2 EQU UCBUCSOP 01675000 UCBUCSO1 EQU UCBUCSOP 01676000 UCBUCSID EQU UCBUCS 01677000 UCBMDRBA EQU UCBMDRBF+1 01678000 UCBRV075 EQU UCBMDRBF 01679000 UCBRV074 EQU UCB3800X+32 01680000 UCBIMAGE EQU UCB3800X+28 01681000 UCBFCBNM EQU UCB3800X+24 01682000 UCBCHAR4 EQU UCB3800X+20 01683000 UCBCHAR3 EQU UCB3800X+16 01684000 UCBCHAR2 EQU UCB3800X+12 01685000 UCBCHAR1 EQU UCB3800X+8 01686000 UCBCGMID EQU UCB3800X+4 01687000 UCBBRSTA EQU UCBACTIV 01688000 UCBRV063 EQU UCBACTIV 01689000 UCBRV062 EQU UCBACTIV 01690000 UCBRV061 EQU UCBACTIV 01691000 UCBRV060 EQU UCBACTIV 01692000 UCBRV059 EQU UCBACTIV 01693000 UCBRV058 EQU UCBACTIV 01694000 UCBRV057 EQU UCBACTIV 01695000 UCBRV050 EQU UCB3800X+2 01696000 UCBCGMNO EQU UCB3800X+1 01697000 UCBRV083 EQU UCBOPTNS 01698000 UCBBRSTR EQU UCBOPTNS 01699000 UCBRV056 EQU UCBOPTNS 01700000 UCBRV055 EQU UCBOPTNS 01701000 UCBRV054 EQU UCBOPTNS 01702000 UCBRV053 EQU UCBOPTNS 01703000 UCBRV052 EQU UCBOPTNS 01704000 UCBRV051 EQU UCBOPTNS 01705000 UCBRV073 EQU UCB3540X+7 01706000 UCBRV072 EQU UCBDKBYT 01707000 UCBRV071 EQU UCBDKBYT 01708000 UCBRV070 EQU UCBDKBYT 01709000 UCBRV069 EQU UCBDKBYT 01710000 UCBRV068 EQU UCBDKBYT 01711000 UCBRV067 EQU UCBDKBYT 01712000 UCBVLVER EQU UCBDKBYT 01713000 UCBDKAMX EQU UCBDKBYT 01714000 UCBVLSER EQU UCB3540X 01715000 UCBRDATA EQU UCBOCR+4 01716000 UCBFRID EQU UCBOCR 01717000 UCBCLN EQU UCBMT+14 01718000 UCBERG EQU UCBMT+12 01719000 UCBMS EQU UCBMT+11 01720000 UCBNB EQU UCBMT+10 01721000 UCBPW EQU UCBMT+9 01722000 UCBPR EQU UCBMT+8 01723000 UCBSIO EQU UCBMT+6 01724000 UCBTW EQU UCBMT+5 01725000 UCBTR EQU UCBMT+4 01726000 UCBTWT EQU UCBMT+3 01727000 UCBTRT EQU UCBMT+2 01728000 UCBCTD EQU UCBMT 01729000 UCBWTOID EQU UCBCMEXT+17 01730000 UCBRV043 EQU UCBCMEXT+16 01731000 UCBASID EQU UCBCMEXT+14 01732000 UCBMFCNT EQU UCBCMEXT+12 01733000 UCBPMSK EQU UCBCMEXT+10 01734000 UCBCCWOF EQU UCBCMEXT+8 01735000 UCBRV041 EQU UCBCMEXT+6 01736000 UCBRV036 EQU UCBFLP1 01737000 UCBRV035 EQU UCBFLP1 01738000 UCBERLOG EQU UCBFLP1 01739000 UCBRV033 EQU UCBFLP1 01740000 UCBINHIO EQU UCBFLP1 01741000 UCBNSWAP EQU UCBFLP1 01742000 UCBSHRUP EQU UCBFLP1 01743000 UCBNSRCH EQU UCBFLP1 01744000 UCBSNSCT EQU UCBCMEXT+4 01745000 UCBHPDV EQU @NM00130 01746000 UCBHALI EQU @NM00130 01747000 UCBRSV09 EQU @NM00130 01748000 UCBRSV08 EQU @NM00130 01749000 UCBRSV07 EQU @NM00130 01750000 UCBRSV06 EQU @NM00130 01751000 UCBRSV05 EQU @NM00130 01752000 UCBRSV04 EQU @NM00130 01753000 UCBDTI EQU UCBCMEXT+2 01754000 UCBSTI EQU UCBCMEXT+1 01755000 UCBEXTP EQU UCBEXTPT+1 01756000 UCBDDRSW EQU UCBFLC 01757000 UCBTICBT EQU UCBFLC 01758000 UCBIVRR EQU UCBFLC 01759000 UCBIVRS EQU UCBFLC 01760000 UCBITF EQU UCBFLC 01761000 UCBUDE EQU UCBFLC 01762000 UCBWAA EQU UCBFLC 01763000 UCBATTP EQU UCBFLC 01764000 UCBUNTYP EQU UCBTBYT4 01765000 UCBRSV11 EQU UCBDVCLS 01766000 UCBRSV10 EQU UCBDVCLS 01767000 UCB3CHAR EQU UCBDVCLS 01768000 UCB3UREC EQU UCBDVCLS 01769000 UCB3DISP EQU UCBDVCLS 01770000 UCB3DACC EQU UCBDVCLS 01771000 UCB3COMM EQU UCBDVCLS 01772000 UCB3TAPE EQU UCBDVCLS 01773000 UCBDVPWR EQU UCB2OPT7 01774000 UCBVLPWR EQU UCB2OPT6 01775000 UCB2OPT5 EQU UCBTBYT2 01776000 UCBRVDEV EQU UCBRWTAU 01777000 UCBRPS EQU UCBDUDN2 01778000 UCBRR EQU UCBDUDN1 01779000 UCB2OPT1 EQU UCBTBYT2 01780000 UCB2OPT0 EQU UCBTBYT2 01781000 UCB1FEA7 EQU UCBTBYT1 01782000 UCBD6250 EQU UCB1FEA6 01783000 UCBD1600 EQU UCB1FEA5 01784000 UCB1FEA4 EQU UCBTBYT1 01785000 UCB1FEA3 EQU UCBTBYT1 01786000 UCB1FEA2 EQU UCBTBYT1 01787000 UCB1FEA1 EQU UCBTBYT1 01788000 UCB1FEA0 EQU UCBTBYT1 01789000 UCBNAME EQU UCBOB+13 01790000 UCBRV029 EQU UCBWGT 01791000 UCBVHRSN EQU UCBWGT 01792000 UCBVORSN EQU UCBWGT 01793000 UCBMTPXP EQU UCBWGT 01794000 UCBREW EQU UCBWGT 01795000 UCBPUB EQU UCBWGT 01796000 UCBOUT EQU UCBWGT 01797000 UCBIN EQU UCBWGT 01798000 UCBCPU EQU UCBOB+11 01799000 UCBLCI EQU UCBOB+10 01800000 UCBCNT EQU UCBOB+9 01801000 UCBRV017 EQU UCBCHM1 01802000 UCBRV016 EQU UCBCHM1 01803000 UCBRV015 EQU UCBCHM1 01804000 UCBRV014 EQU UCBCHM1 01805000 UCBSPB EQU UCBPTH1 01806000 UCBPPB EQU UCBPTH1 01807000 UCBSPA EQU UCBPTH0 01808000 UCBPPA EQU UCBPTH0 01809000 UCBSIGP EQU UCBFLB 01810000 UCBVALPH EQU UCBFLB 01811000 UCBCRHSN EQU UCBFLB 01812000 UCBCRHRV EQU UCBFLB 01813000 UCBRESVH EQU UCBFLB 01814000 UCBSPST EQU UCBFLB 01815000 UCBASNS EQU UCBFLB 01816000 UCBIORST EQU UCBFLB 01817000 UCBQISCE EQU UCBFL1 01818000 UCBACTV EQU UCBFL1 01819000 UCBSAP EQU UCBFL1 01820000 UCBNOTRC EQU UCBCUB 01821000 UCBPSNS EQU UCBFL1 01822000 UCBUSING EQU UCBPST 01823000 UCBNOTRD EQU UCBNRY 01824000 UCBBUSYD EQU UCBBSY 01825000 UCBUA EQU UCBCHAN+1 01826000 UCBCHA EQU UCBCHAN 01827000 UCBDADI EQU UCBSTAT 01828000 UCBSYSR EQU UCBSTAT 01829000 UCBPRES EQU UCBSTAT 01830000 UCBALOC EQU UCBSTAT 01831000 UCBUNLD EQU UCBSTAT 01832000 UCBRESV EQU UCBSTAT 01833000 UCBCHGS EQU UCBSTAT 01834000 UCBONLI EQU UCBSTAT 01835000 UCBID EQU UCBOB+2 01836000 UCBALTPH EQU UCBFL5 01837000 UCBALTCU EQU UCBFL5 01838000 UCBNALOC EQU UCBFL5 01839000 UCBENVRD EQU UCBFL5 01840000 UCBVSDR EQU UCBFL5 01841000 UCBSASK EQU UCBFL5 01842000 UCBAMV EQU UCBAF 01843000 UCBDCC EQU UCBFL5 01844000 UCBMONT EQU UCBJBNR 01845000 UCBRV011 EQU UCBJBNR 01846000 UCBMMSGP EQU UCBJBNR 01847000 UCBOLDSM EQU UCBJBNR 01848000 UCBRV003 EQU UCBJBNR 01849000 UCBDUC EQU UCBJBNR 01850000 UCBJES3 EQU UCBJBNR 01851000 UCBVRDEV EQU UCBJBNR 01852000 UCBCMSEG EQU UCBOB 01853000 UCBPFXND EQU UCB+512 01854000 UCBIOQ EQU UCB+508 01855000 UCBLOCK EQU UCB+504 01856000 UCBPXST EQU UCB+504 01857000 @NM00127 EQU UCB 01858000 @NM00126 EQU SRB+40 01859000 @NM00125 EQU SRB+38 01860000 SRBPRIOR EQU SRB+37 01861000 SRBPKF EQU SRB+36 01862000 SRBSAVE EQU SRB+32 01863000 SRBRMTR EQU SRB+24 01864000 SRBEP EQU SRB+20 01865000 SRBPTCB EQU SRBFLC+4 01866000 SRBPASID EQU SRBFLC+2 01867000 SRBCPAFF EQU SRBFLC 01868000 SRBASCB EQU SRB+8 01869000 SRBFLNK EQU SRB+4 01870000 IOSEND EQU IOSB+108 01871000 IOSSKR EQU IOSEEKA+7 01872000 IOSSKH2 EQU IOSSKHH+1 01873000 IOSSKH1 EQU IOSSKHH 01874000 IOSSKCC EQU IOSCCHH 01875000 IOSSKBB EQU IOSEEKA+1 01876000 IOSSKM EQU IOSEEKA 01877000 IOSEEK EQU IOSB+92 01878000 IOSMDM EQU IOSB+91 01879000 IOSMDB EQU IOSB+90 01880000 IOSCKEY7 EQU IOSCKEY 01881000 IOSCKEY6 EQU IOSCKEY 01882000 IOSCKEY5 EQU IOSCKEY 01883000 IOSCKEY4 EQU IOSCKEY 01884000 @NM00121 EQU IOSCKEY 01885000 IOSFMSK EQU IOSB+88 01886000 IOSCUDEV EQU IOSPATH+1 01887000 @NM00120 EQU IOSCHN 01888000 IOSPATH3 EQU IOSCHN 01889000 IOSPATH2 EQU IOSCHN 01890000 IOSEXP EQU IOSCHN 01891000 IOSGDP EQU IOSCHN 01892000 IOSAFF EQU IOSB+85 01893000 IOSRSS1B EQU IOSB+84 01894000 IOSDSID EQU IOSB+80 01895000 IOSVST EQU IOSB+76 01896000 IOSRST EQU IOSB+72 01897000 IOSNOTRS EQU IOSDIEFG 01898000 IOSABN EQU IOSB+64 01899000 IOSNRM EQU IOSB+60 01900000 IOSPCI EQU IOSB+56 01901000 IOSERP EQU IOSB+52 01902000 IOSPCHN EQU IOSB+48 01903000 IOSSNS EQU IOSB+42 01904000 IOSAPMSK EQU IOSB+40 01905000 IOSRES4A EQU IOSB+36 01906000 IOSUSE EQU IOSB+32 01907000 IOSCSWRC EQU IOSCSW+5 01908000 IOSTSB EQU IOSTATUS+1 01909000 IOSTSA EQU IOSTATUS 01910000 IOSCSWCA EQU IOSCSW 01911000 IOSCC EQU @NM00119 01912000 IOSOPT2X EQU IOSOPT2 01913000 IOSHTP EQU IOSOPT2 01914000 IOSRELSE EQU IOSOPT 01915000 IOSAPR EQU IOSOPT 01916000 IOSTSLL EQU IOSOPT 01917000 IOSNERP EQU IOSOPT 01918000 IOSPSLL EQU IOSOPT 01919000 IOSQISCE EQU IOSOPT 01920000 IOSDEP EQU IOSOPT 01921000 IOSBYP EQU IOSOPT 01922000 IOSPKY7 EQU IOSPKEY 01923000 IOSPGDPX EQU IOSPKEY 01924000 IOSIDR EQU IOSPKEY 01925000 IOSLCL EQU IOSPKEY 01926000 @NM00118 EQU IOSPKEY 01927000 IOSPGAD EQU IOSB+8 01928000 IOSASID EQU IOSB+6 01929000 IOSPRLVL EQU IOSB+5 01930000 IOSDVRID EQU IOSB+4 01931000 IOSFLC7 EQU IOSFLC 01932000 IOSCTCNR EQU IOSFLC 01933000 IOSRWAIT EQU IOSFLC 01934000 IOSTP EQU IOSFLC 01935000 IOSCC3WE EQU IOSFLC 01936000 IOSVERIF EQU IOSDVALT 01937000 IOSDVMNT EQU IOSFLC 01938000 IOSLOG EQU IOSFLB 01939000 IOSBDCST EQU IOSFLB 01940000 IOSMSG EQU IOSFLB 01941000 IOSFLB4 EQU IOSFLB 01942000 IOSFLB3 EQU IOSFLB 01943000 IOSFLB2 EQU IOSFLB 01944000 IOSSDR EQU IOSFLB 01945000 IOSDIESE EQU IOSFLB 01946000 IOSIOSB EQU IOSFLA 01947000 IOSDOM EQU IOSFLA 01948000 IOSSMDB EQU IOSFLA 01949000 IOSSMDA EQU IOSFLA 01950000 IOSCCHN EQU IOSACHN 01951000 IOSDCHN EQU IOSACHN 01952000 IOCOEND EQU IOCOM+128 01953000 IOCPATCH EQU IOCOM+124 01954000 IOCUCBBM EQU IOCOM+120 01955000 IOCQCNT EQU IOCOM+116 01956000 IOCIOSDQ EQU IOCOM+112 01957000 IOCIOSEQ EQU IOCOM+108 01958000 IOCSVCF EQU IOCOM+104 01959000 IOCTCCW EQU IOCOM+100 01960000 IOCRSVTB EQU IOCOM+96 01961000 IOCMFCNT EQU IOCOM+92 01962000 IOCMFHK EQU IOCOM+88 01963000 IOCGENA EQU IOCOM+84 01964000 IOCCCH EQU IOCOM+80 01965000 IOCASYNQ EQU IOCOM+76 01966000 IOCLCHTB EQU IOCOM+72 01967000 IOCATTBL EQU IOCOM+68 01968000 IOCOMEX EQU IOCOM+64 01969000 IOCSYNCH EQU IOCOM+56 01970000 IOCCATLK EQU IOCOM+48 01971000 IOCPRGID EQU IOCOM+44 01972000 IOCIOSCP EQU IOCOM+40 01973000 IOCVOID EQU IOCOM+32 01974000 IOCSTIO EQU IOCOM+28 01975000 @NM00117 EQU IOCOM+24 01976000 @NM00116 EQU IOCOM+20 01977000 IOCINT EQU IOCOM+16 01978000 IOCCTBL EQU IOCOM+12 01979000 IOCHIO EQU IOCOM+8 01980000 IOCPST EQU IOCOM+4 01981000 IOCPGCT EQU IOCOM+2 01982000 IOCVOICT EQU IOCOM 01983000 @NM00115 EQU SDWA+512 01984000 SDWAVRA EQU SDWARA+4 01985000 SDWAURAL EQU SDWARA+3 01986000 @NM00114 EQU SDWADPVA 01987000 SDWAEBC EQU SDWADPVA 01988000 SDWAHEX EQU SDWADPVA 01989000 SDWAVRAL EQU SDWARA 01990000 @NM00113 EQU SDWA+396 01991000 SDWACOMP EQU SDWA+392 01992000 SDWARCPL EQU SDWA+364 01993000 @NM00112 EQU SDWADPSA+32 01994000 SDWATO4 EQU SDWADPSL+28 01995000 SDWAFRM4 EQU SDWADPSL+24 01996000 SDWATO3 EQU SDWADPSL+20 01997000 SDWAFRM3 EQU SDWADPSL+16 01998000 SDWATO2 EQU SDWADPSL+12 01999000 SDWAFRM2 EQU SDWADPSL+8 02000000 SDWATO1 EQU SDWADPSL+4 02001000 SDWAFRM1 EQU SDWADPSL 02002000 @NM00111 EQU SDWADDAT+3 02003000 @NM00110 EQU SDWAPDAT 02004000 SDWAUSPL EQU SDWAPDAT 02005000 SDWADPSW EQU SDWAPDAT 02006000 SDWATJPA EQU SDWAPDAT 02007000 SDWATLPA EQU SDWAPDAT 02008000 SDWADREG EQU SDWAPDAT 02009000 SDWADSAH EQU SDWAPDAT 02010000 SDWADSAS EQU SDWAPDAT 02011000 @NM00109 EQU SDWADDAT+1 02012000 @NM00108 EQU SDWASDAT 02013000 SDWAQQS EQU SDWASDAT 02014000 SDWACBS EQU SDWASDAT 02015000 SDWAGTF EQU SDWASDAT 02016000 SDWASWA EQU SDWASDAT 02017000 SDWALSQA EQU SDWASDAT 02018000 SDWASQA EQU SDWASDAT 02019000 SDWANUC EQU SDWASDAT 02020000 @NM00107 EQU SDWADUMP+2 02021000 @NM00106 EQU SDWADPFS 02022000 SDWASLST EQU SDWADPFS 02023000 @NM00105 EQU SDWADPFS 02024000 SDWADLST EQU SDWADPFS 02025000 SDWADPT EQU SDWADPFS 02026000 SDWADPID EQU SDWADUMP 02027000 SDWADPLA EQU SDWA+316 02028000 @NM00104 EQU SDWA+290 02029000 SDWAASID EQU SDWA+288 02030000 SDWATALW EQU SDWALKWS+28 02031000 SDWATDLW EQU SDWALKWS+24 02032000 SDWATNLW EQU SDWALKWS+20 02033000 SDWAAPLW EQU SDWALKWS+16 02034000 SDWAIPLW EQU SDWALKWS+12 02035000 SDWAILLW EQU SDWALKWS+8 02036000 SDWAIULW EQU SDWALKWS+4 02037000 SDWAICLW EQU SDWALKWS 02038000 SDWAFLLK EQU SDWAACF4 02039000 SDWACMS EQU SDWAACF4 02040000 SDWAOPTM EQU SDWAACF4 02041000 SDWATADB EQU SDWAACF4 02042000 SDWATDNB EQU SDWAACF4 02043000 SDWATNCB EQU SDWAACF4 02044000 SDWAILCH EQU SDWAACF4 02045000 SDWAIUCB EQU SDWAACF4 02046000 SDWAICAT EQU SDWAACF3 02047000 SDWAIPRG EQU SDWAACF3 02048000 SDWASALL EQU SDWAACF3 02049000 SDWAASMP EQU SDWAACF3 02050000 SDWADISP EQU SDWAACF3 02051000 @NM00103 EQU SDWAACF3 02052000 @NM00102 EQU SDWAACF2 02053000 SDWAUPRG EQU SDWAACF2 02054000 @NM00101 EQU SDWAACF2 02055000 SDWASPIN EQU SDWAACF2 02056000 @NM00100 EQU SDWAACF2 02057000 SDWALCPU EQU SDWACPUA+2 02058000 @NM00099 EQU SDWACPUA 02059000 SDWARECA EQU SDWA+244 02060000 @NM00098 EQU SDWA+239 02061000 @NM00097 EQU SDWAIOFS 02062000 SDWANIOP EQU SDWAIOFS 02063000 SDWANOIO EQU SDWAIOFS 02064000 SDWAIOHT EQU SDWAIOFS 02065000 SDWAIOQR EQU SDWAIOFS 02066000 SDWAFMID EQU SDWA+236 02067000 @NM00096 EQU SDWAERRD 02068000 SDWAMCIV EQU SDWAERRD 02069000 SDWARPIV EQU SDWAERRD 02070000 SDWAMABD EQU SDWAERRD 02071000 SDWACTS EQU SDWAERRD 02072000 SDWASTAE EQU SDWAERRD 02073000 SDWANRBE EQU SDWAERRD 02074000 SDWACLUP EQU SDWAERRD 02075000 @NM00095 EQU SDWAERRC 02076000 SDWAEAS EQU SDWAERRC 02077000 SDWAPERC EQU SDWAERRC 02078000 SDWAIRB EQU SDWAERRC 02079000 SDWASTAI EQU SDWAERRC 02080000 SDWASTAF EQU SDWAERRC 02081000 SDWASRBM EQU SDWAERRB 02082000 SDWALDIS EQU SDWAERRB 02083000 SDWAENRB EQU SDWAERRB 02084000 SDWATYP1 EQU SDWAERRB 02085000 @NM00094 EQU SDWAERRB 02086000 SDWAPGIO EQU SDWAERRA 02087000 SDWATEXC EQU SDWAERRA 02088000 SDWASVCE EQU SDWAERRA 02089000 SDWAABTM EQU SDWAERRA 02090000 SDWASVCD EQU SDWAERRA 02091000 SDWARKEY EQU SDWAERRA 02092000 SDWAPCHK EQU SDWAERRA 02093000 SDWAMCHK EQU SDWAERRA 02094000 SDWATIME EQU SDWAMCH+20 02095000 SDWARFSA EQU SDWAMCH+16 02096000 @NM00093 EQU SDWAMCH+14 02097000 SDWAVEQR EQU SDWARSR2 02098000 SDWAPGFX EQU SDWARSR2 02099000 SDWAFLSQ EQU SDWARSR2 02100000 SDWAFSQA EQU SDWARSR2 02101000 SDWANUCL EQU SDWARSR2 02102000 SDWASPER EQU SDWARSR2 02103000 SDWAINTC EQU SDWARSR2 02104000 SDWAOFLN EQU SDWARSR2 02105000 SDWACHNG EQU SDWARSR1 02106000 SDWAMSER EQU SDWARSR1 02107000 @NM00092 EQU SDWARSR1 02108000 SDWACPID EQU SDWAMCH+10 02109000 SDWATERR EQU SDWAMCHD 02110000 SDWAFPRX EQU SDWAMCHD 02111000 SDWAINSF EQU SDWAMCHD 02112000 SDWAACR EQU SDWAMCHD 02113000 SDWASCK EQU SDWAMCHD 02114000 SDWAPSWU EQU SDWAMCHD 02115000 SDWAREGU EQU SDWAMCHD 02116000 SDWASKYF EQU SDWAMCHD 02117000 @NM00091 EQU SDWAMCHS 02118000 SDWARSRF EQU SDWAMCHS 02119000 SDWARSRC EQU SDWAMCHS 02120000 SDWAINVP EQU SDWAMCHS 02121000 SDWATSVL EQU SDWAMCHS 02122000 SDWARCDF EQU SDWAMCHS 02123000 SDWASRVL EQU SDWAMCHS 02124000 SDWASCKE EQU SDWASTCK+4 02125000 SDWASCKB EQU SDWASTCK 02126000 SDWALNTH EQU SDWAIDNT+1 02127000 SDWASPID EQU SDWAIDNT 02128000 SDWASR15 EQU SDWASRSV+60 02129000 SDWASR14 EQU SDWASRSV+56 02130000 SDWASR13 EQU SDWASRSV+52 02131000 SDWASR12 EQU SDWASRSV+48 02132000 SDWASR11 EQU SDWASRSV+44 02133000 SDWASR10 EQU SDWASRSV+40 02134000 SDWASR09 EQU SDWASRSV+36 02135000 SDWASR08 EQU SDWASRSV+32 02136000 SDWASR07 EQU SDWASRSV+28 02137000 SDWASR06 EQU SDWASRSV+24 02138000 SDWASR05 EQU SDWASRSV+20 02139000 SDWASR04 EQU SDWASRSV+16 02140000 SDWASR03 EQU SDWASRSV+12 02141000 SDWASR02 EQU SDWASRSV+8 02142000 SDWASR01 EQU SDWASRSV+4 02143000 SDWASR00 EQU SDWASRSV 02144000 SDWATRN2 EQU SDWAAEC2+4 02145000 SDWAIPC2 EQU SDWAICD2 02146000 SDWAIMC2 EQU SDWAICD2 02147000 SDWAIPR2 EQU SDWAICD2 02148000 @NM00090 EQU SDWAINC2 02149000 @NM00089 EQU SDWAILC2 02150000 SDWAIL2 EQU SDWAILC2 02151000 @NM00088 EQU SDWAILC2 02152000 @NM00087 EQU SDWAAEC2 02153000 SDWAADD2 EQU SDWANXT2+1 02154000 @NM00086 EQU SDWANXT2 02155000 @NM00085 EQU SDWAEC2+3 02156000 SDWASGN2 EQU SDWAINT2 02157000 SDWAEXP2 EQU SDWAINT2 02158000 SDWADEC2 EQU SDWAINT2 02159000 SDWAFPO2 EQU SDWAINT2 02160000 SDWACC2 EQU SDWAINT2 02161000 @NM00084 EQU SDWAINT2 02162000 SDWAPGM2 EQU SDWAMWP2 02163000 SDWAWAT2 EQU SDWAMWP2 02164000 SDWAMCK2 EQU SDWAMWP2 02165000 SDWAECT2 EQU SDWAMWP2 02166000 SDWAKEY2 EQU SDWAMWP2 02167000 SDWAEXT2 EQU SDWAEMK2 02168000 SDWAIO2 EQU SDWAEMK2 02169000 SDWATRM2 EQU SDWAEMK2 02170000 @NM00083 EQU SDWAEMK2 02171000 SDWAPER2 EQU SDWAEMK2 02172000 @NM00082 EQU SDWAEMK2 02173000 SDWATRAN EQU SDWAAEC1+4 02174000 SDWAIPC1 EQU SDWAICD1 02175000 SDWAIMC1 EQU SDWAICD1 02176000 SDWAIPR1 EQU SDWAICD1 02177000 @NM00081 EQU SDWAINC1 02178000 @NM00080 EQU SDWAILC1 02179000 SDWAIL1 EQU SDWAILC1 02180000 @NM00079 EQU SDWAILC1 02181000 @NM00078 EQU SDWAAEC1 02182000 SDWAADD1 EQU SDWANXT1+1 02183000 @NM00077 EQU SDWANXT1 02184000 @NM00076 EQU SDWAEC1+3 02185000 SDWASGN1 EQU SDWAINT1 02186000 SDWAEXP1 EQU SDWAINT1 02187000 SDWADEC1 EQU SDWAINT1 02188000 SDWAFPO1 EQU SDWAINT1 02189000 SDWACC1 EQU SDWAINT1 02190000 @NM00075 EQU SDWAINT1 02191000 SDWAPGM1 EQU SDWAMWP1 02192000 SDWAWAT1 EQU SDWAMWP1 02193000 SDWAMCK1 EQU SDWAMWP1 02194000 SDWAECT1 EQU SDWAMWP1 02195000 SDWAKEY1 EQU SDWAMWP1 02196000 SDWAEXT1 EQU SDWAEMK1 02197000 SDWAIO1 EQU SDWAEMK1 02198000 SDWATRM1 EQU SDWAEMK1 02199000 @NM00074 EQU SDWAEMK1 02200000 SDWAPER1 EQU SDWAEMK1 02201000 @NM00073 EQU SDWAEMK1 02202000 SDWAIOBR EQU SDWA+100 02203000 SDWAEPA EQU SDWA+96 02204000 @NM00072 EQU SDWANAME+4 02205000 SDWARBAD EQU SDWANAME 02206000 SDWAGR15 EQU SDWAGRSV+60 02207000 SDWAGR14 EQU SDWAGRSV+56 02208000 SDWAGR13 EQU SDWAGRSV+52 02209000 SDWAGR12 EQU SDWAGRSV+48 02210000 SDWAGR11 EQU SDWAGRSV+44 02211000 SDWAGR10 EQU SDWAGRSV+40 02212000 SDWAGR09 EQU SDWAGRSV+36 02213000 SDWAGR08 EQU SDWAGRSV+32 02214000 SDWAGR07 EQU SDWAGRSV+28 02215000 SDWAGR06 EQU SDWAGRSV+24 02216000 SDWAGR05 EQU SDWAGRSV+20 02217000 SDWAGR04 EQU SDWAGRSV+16 02218000 SDWAGR03 EQU SDWAGRSV+12 02219000 SDWAGR02 EQU SDWAGRSV+8 02220000 SDWAGR01 EQU SDWAGRSV+4 02221000 SDWAGR00 EQU SDWAGRSV 02222000 SDWANXTP EQU SDWACTL2+5 02223000 SDWASGP EQU SDWAPMKP 02224000 SDWAEUP EQU SDWAPMKP 02225000 SDWADOP EQU SDWAPMKP 02226000 SDWAFPP EQU SDWAPMKP 02227000 SDWACCP EQU SDWAPMKP 02228000 SDWAILP EQU SDWAPMKP 02229000 SDWAINTP EQU SDWACTL2+2 02230000 SDWASPVP EQU SDWAMWPP 02231000 SDWAWATP EQU SDWAMWPP 02232000 SDWAMCKP EQU SDWAMWPP 02233000 @NM00071 EQU SDWAMWPP 02234000 SDWAKEYP EQU SDWAMWPP 02235000 SDWAEXTP EQU SDWACMKP 02236000 SDWAIOP EQU SDWACMKP 02237000 SDWANXTA EQU SDWACTL1+5 02238000 SDWASGA EQU SDWAPMKA 02239000 SDWAEUA EQU SDWAPMKA 02240000 SDWADOA EQU SDWAPMKA 02241000 SDWAFPA EQU SDWAPMKA 02242000 SDWACCA EQU SDWAPMKA 02243000 SDWAILA EQU SDWAPMKA 02244000 SDWAINTA EQU SDWACTL1+2 02245000 SDWASPVA EQU SDWAMWPA 02246000 SDWAWATA EQU SDWAMWPA 02247000 SDWAMCKA EQU SDWAMWPA 02248000 @NM00070 EQU SDWAMWPA 02249000 SDWAKEYA EQU SDWAMWPA 02250000 SDWAEXTA EQU SDWACMKA 02251000 SDWAIOA EQU SDWACMKA 02252000 SDWACMPC EQU SDWAABCC+1 02253000 @NM00069 EQU SDWACMPF 02254000 SDWASTCC EQU SDWACMPF 02255000 @NM00068 EQU SDWACMPF 02256000 SDWASTEP EQU SDWACMPF 02257000 SDWAREQ EQU SDWACMPF 02258000 LPDEXTAD EQU LPDEMJNM+4 02259000 LPDEXTLN EQU LPDEMJNM 02260000 LPDEATT3 EQU LPDE+30 02261000 LPDEAUTH EQU LPDEATT2 02262000 LPDESYSL EQU LPDEATT2 02263000 @NM00067 EQU LPDEATT2 02264000 @NM00066 EQU LPDEATT2 02265000 LPDERLC EQU LPDEATT2 02266000 LPDEXLE EQU LPDEATT2 02267000 @NM00065 EQU LPDEATT2 02268000 LPDENLR EQU LPDEATTR 02269000 @NM00064 EQU LPDEATTR 02270000 LPDEMIN EQU LPDEATTR 02271000 @NM00063 EQU LPDEATTR 02272000 LPDESER EQU LPDEATTR 02273000 LPDEREN EQU LPDEATTR 02274000 @NM00062 EQU LPDEATTR 02275000 LPDENIP EQU LPDEATTR 02276000 @NM00061 EQU LPDE+26 02277000 LPDEUSE EQU LPDE+24 02278000 LPDEXLP EQU LPDE+20 02279000 LPDENAME EQU LPDE+8 02280000 LPDERBP EQU LPDE+4 02281000 LPDECHN EQU LPDE 02282000 CDATTR3 EQU CDENTRY+30 02283000 CDAUTH EQU CDATTR2 02284000 CDSYSLIB EQU CDATTR2 02285000 CDOLY EQU CDATTR2 02286000 @NM00060 EQU CDATTR2 02287000 CDRLC EQU CDATTR2 02288000 CDXLE EQU CDATTR2 02289000 CDREL EQU CDATTR2 02290000 CDSPZ EQU CDATTR2 02291000 CDNLR EQU CDATTR 02292000 CDJPA EQU CDATTR 02293000 CDMIN EQU CDATTR 02294000 CDNFN EQU CDATTR 02295000 CDSER EQU CDATTR 02296000 CDREN EQU CDATTR 02297000 CDNIC EQU CDATTR 02298000 CDNIP EQU CDATTR 02299000 @NM00059 EQU CDENTRY+26 02300000 CDUSE EQU CDENTRY+24 02301000 CDXLMJP EQU CDENTRY+20 02302000 CDNAME EQU CDENTRY+8 02303000 CDRRBP EQU CDENTRY+4 02304000 CDCHAIN EQU CDENTRY 02305000 SIRBEND EQU RBSECT+168 02306000 SVRBEND EQU RBSECT+168 02307000 RBRSV158 EQU RBRSV150 02308000 RBRSV157 EQU RBRSV150 02309000 RBRSV156 EQU RBRSV150 02310000 RBRSV155 EQU RBRSV150 02311000 RBRSV154 EQU RBRSV150 02312000 RBRSV153 EQU RBRSV150 02313000 RBRSV152 EQU RBRSV150 02314000 RBRSV151 EQU RBRSV150 02315000 RBRSV149 EQU RBSECT+166 02316000 RBRSV148 EQU RBSECT+164 02317000 RBSCBB EQU RBSECT+144 02318000 TIRBEND EQU @NM00057+8 02319000 PRBEND EQU @NM00057+8 02320000 RBRSV146 EQU RBRSV138 02321000 RBRSV145 EQU RBRSV138 02322000 RBRSV144 EQU RBRSV138 02323000 RBRSV143 EQU RBRSV138 02324000 RBRSV142 EQU RBRSV138 02325000 RBRSV141 EQU RBRSV138 02326000 RBRSV140 EQU RBRSV138 02327000 RBRSV139 EQU RBRSV138 02328000 RBRSV137 EQU @NM00057+6 02329000 RBRSV136 EQU @NM00057+4 02330000 RBRSV135 EQU @NM00057 02331000 @NM00056 EQU RBSECT+32 02332000 @NM00055 EQU @NM00053+1 02333000 @NM00054 EQU @NM00053 02334000 RBPGMQ1 EQU RBPGMQ+1 02335000 @NM00052 EQU RBPGMQ 02336000 @NM00051 EQU RBSECT+16 02337000 @NM00050 EQU @NM00046 02338000 @NM00049 EQU @NM00046 02339000 RBIQETP EQU @NM00046 02340000 RBUSIQE EQU RBETXR 02341000 RBATTN EQU @NM00046 02342000 @NM00048 EQU @NM00046 02343000 @NM00047 EQU @NM00046 02344000 RBPMSVRB EQU @NM00044 02345000 RBATNXIT EQU @NM00044 02346000 @NM00045 EQU @NM00044 02347000 RBWAITP EQU @NM00044 02348000 RBFNSVRB EQU RBTRSVRB 02349000 RBFTP EQU @NM00044 02350000 RBSIZE EQU RBSECT+8 02351000 RBABOPSW EQU RBSECT+4 02352000 RBPPSAV1 EQU RBPPSAV+1 02353000 @NM00042 EQU RBPPSAV 02354000 RBPRFXND EQU RBPREFIX+64 02355000 RBINTCOD EQU RBINTCDA+1 02356000 RBINLNTH EQU RBINTCDA 02357000 RBWCSA EQU RBPREFIX+60 02358000 RBRSV004 EQU RBPREFIX+57 02359000 RBSSSYN EQU RBFLAGS1 02360000 RBSCB EQU RBFLAGS1 02361000 RBLONGWT EQU RBFLAGS1 02362000 RBASIR EQU RBFLAGS1 02363000 RBRSV159 EQU RBFLAGS1 02364000 RBABEND EQU RBFLAGS1 02365000 RBXWAIT EQU RBFLAGS1 02366000 RBSLOCK EQU RBFLAGS1 02367000 RBRTRAN EQU RBRTPSW2+4 02368000 RBRTINCD EQU RBRTICIL+2 02369000 RBRTILC EQU RBRTICIL+1 02370000 RBRSV160 EQU RBRTICIL 02371000 RBRTPSW1 EQU RBRTOPSW 02372000 RBRSV062 EQU RBRSV054 02373000 RBRSV061 EQU RBRSV054 02374000 RBRSV060 EQU RBRSV054 02375000 RBRSV059 EQU RBRSV054 02376000 RBRSV058 EQU RBRSV054 02377000 RBRSV057 EQU RBRSV054 02378000 RBRSV056 EQU RBRSV054 02379000 RBRSV055 EQU RBRSV054 02380000 RBRSV053 EQU RBPREFIX+38 02381000 RBRSV052 EQU RBPREFIX+36 02382000 RBRSV051 EQU RBPREFIX+32 02383000 RBPRFXST EQU RBPREFIX+32 02384000 RBRSV050 EQU RBPREFIX+28 02385000 RBRSV049 EQU RBRSV041 02386000 RBRSV048 EQU RBRSV041 02387000 RBRSV047 EQU RBRSV041 02388000 RBRSV046 EQU RBRSV041 02389000 RBRSV045 EQU RBRSV041 02390000 RBRSV044 EQU RBRSV041 02391000 RBRSV043 EQU RBRSV041 02392000 RBRSV042 EQU RBRSV041 02393000 RBRSV040 EQU RBPREFIX+26 02394000 RBRSV039 EQU RBPREFIX+24 02395000 RBRSV038 EQU RBPREFIX+20 02396000 RBRSV037 EQU RBPREFIX+16 02397000 RBRSV036 EQU RBRSV028 02398000 RBRSV035 EQU RBRSV028 02399000 RBRSV034 EQU RBRSV028 02400000 RBRSV033 EQU RBRSV028 02401000 RBRSV032 EQU RBRSV028 02402000 RBRSV031 EQU RBRSV028 02403000 RBRSV030 EQU RBRSV028 02404000 RBRSV029 EQU RBRSV028 02405000 RBRSV027 EQU RBRSV019 02406000 RBRSV026 EQU RBRSV019 02407000 RBRSV025 EQU RBRSV019 02408000 RBRSV024 EQU RBRSV019 02409000 RBRSV023 EQU RBRSV019 02410000 RBRSV022 EQU RBRSV019 02411000 RBRSV021 EQU RBRSV019 02412000 RBRSV020 EQU RBRSV019 02413000 RBRSV018 EQU RBPREFIX+13 02414000 RBRSV017 EQU RBPREFIX+12 02415000 RBSRV016 EQU RBPREFIX+11 02416000 RBRSV015 EQU RBPREFIX+10 02417000 RBRSV014 EQU RBPREFIX+8 02418000 RBRSV013 EQU RBPREFIX+4 02419000 RBRSV012 EQU RBPREFIX 02420000 RBEXSAVE EQU XRBESA 02421000 XRBREG15 EQU RBGRS15 02422000 XRBREG14 EQU RBGRS14 02423000 XRBREG13 EQU RBGRS13 02424000 XRBREG12 EQU RBGRS12 02425000 XRBREG11 EQU RBGRS11 02426000 XRBREG10 EQU RBGRS10 02427000 XRBREG9 EQU RBGRS9 02428000 XRBREG8 EQU RBGRS8 02429000 XRBREG7 EQU RBGRS7 02430000 XRBREG6 EQU RBGRS6 02431000 XRBREG5 EQU RBGRS5 02432000 XRBREG4 EQU RBGRS4 02433000 XRBREG3 EQU RBGRS3 02434000 XRBREG2 EQU RBGRS2 02435000 XRBREG1 EQU RBGRS1 02436000 XRBREG0 EQU RBGRS0 02437000 XRBLNKA EQU RBLINKB 02438000 XRBWT EQU RBWCF 02439000 @NM00041 EQU RBBASIC+24 02440000 RBOPSWPS EQU RBOPSWB2 02441000 @NM00040 EQU RBOPSWB2 02442000 @NM00039 EQU XRBPSW 02443000 @NM00038 EQU RBBASIC+12 02444000 XRBWAIT EQU RBECBWT 02445000 XRBFRRB EQU RBFDYN 02446000 @NM00037 EQU XSTAB2 02447000 XRBACTV EQU RBFACTV 02448000 XRBTCBP EQU RBTCBNXT 02449000 @NM00036 EQU XSTAB1 02450000 XRBCKPT EQU RBFTCKPT 02451000 @NM00035 EQU XSTAB1 02452000 @NM00034 EQU RBBASIC+8 02453000 @NM00033 EQU RBEXRTNM+1 02454000 RBTMIND3 EQU RBTMFLD 02455000 RBTMIND2 EQU RBTMFLD 02456000 RBTMCMP EQU RBTMFLD 02457000 RBWLIM EQU RBTMFLD 02458000 RBRSV005 EQU RBTMFLD 02459000 RBTMTOD EQU RBTMFLD 02460000 RBTMQUE EQU RBTMFLD 02461000 @NM00032 EQU RBPRFX 02462000 ASXBEND EQU ASXB+232 02463000 ASXBRV25 EQU ASXB+228 02464000 ASXBRV24 EQU ASXB+224 02465000 ASXBPT0E EQU ASXB+220 02466000 ASXBCRB4 EQU ASXBCASW+3 02467000 ASXBCRB3 EQU ASXBCASW+2 02468000 ASXBCRB2 EQU ASXBCASW+1 02469000 ASXBCR06 EQU ASXBCRB1 02470000 ASXBCR05 EQU ASXBCRB1 02471000 ASXBCR04 EQU ASXBCRB1 02472000 ASXBCR03 EQU ASXBCRB1 02473000 ASXBCR02 EQU ASXBCRB1 02474000 ASXBCR01 EQU ASXBCRB1 02475000 ASXBTFD EQU ASXBCRB1 02476000 ASXBPIP EQU ASXBCRB1 02477000 ASXBCTDC EQU ASXB+212 02478000 ASXBTDCB EQU ASXB+208 02479000 ASXBRV19 EQU ASXB+204 02480000 ASXBSENV EQU ASXBSECR+1 02481000 ASXBRV34 EQU ASCBSFLG 02482000 ASXBRV33 EQU ASCBSFLG 02483000 ASXBRV32 EQU ASCBSFLG 02484000 ASXBRV31 EQU ASCBSFLG 02485000 ASXBRV30 EQU ASCBSFLG 02486000 ASXBRV29 EQU ASCBSFLG 02487000 ASXBRV28 EQU ASCBSFLG 02488000 ASXBRV27 EQU ASCBSFLG 02489000 ASXBUSER EQU ASXB+192 02490000 ASXBLSRB EQU ASXBAEQ+20 02491000 ASXBFSRB EQU ASXBAEQ+16 02492000 ASXBLRQE EQU ASXBAEQ+12 02493000 ASXBFRQE EQU ASXBAEQ+8 02494000 ASXBLIQE EQU ASXBAEQ+4 02495000 ASXBFIQE EQU ASXBAEQ 02496000 ASXBETSK EQU ASXB+164 02497000 ASXBPSWD EQU ASXB+152 02498000 ASXBPRG EQU ASXB+136 02499000 ASXBRV26 EQU ASXB+132 02500000 ASXBOUSB EQU ASXB+128 02501000 ASXBDDR EQU ASXB+124 02502000 ASXBRCTD EQU ASXB+120 02503000 ASXBRSMD EQU ASXB+116 02504000 ASXBSPSA EQU ASXB+112 02505000 ASXBFRWA EQU ASXB+108 02506000 ASXBFLSA EQU ASXB+36 02507000 ASXBIHSA EQU ASXB+32 02508000 ASXBRV15 EQU ASXB+28 02509000 ASXBRV14 EQU ASXB+24 02510000 ASXBLWA EQU ASXB+20 02511000 ASXBMPST EQU ASXB+16 02512000 ASXBRS00 EQU ASXB+14 02513000 ASXBTCBS EQU ASXB+12 02514000 ASXBLTCB EQU ASXB+8 02515000 ASXBFTCB EQU ASXB+4 02516000 ASXBASXB EQU ASXB 02517000 ASXBEGIN EQU ASXB 02518000 ASCBEND EQU ASCB+208 02519000 ASCBSRBT EQU ASCB+200 02520000 ASCBSWTL EQU ASCB+196 02521000 ASCBRS14 EQU ASCB+195 02522000 ASCBSMCT EQU ASCB+194 02523000 ASCBRS12 EQU ASCB+192 02524000 ASCBPCTT EQU ASCB+188 02525000 ASCBVGTT EQU ASCB+184 02526000 ASCBLGCB EQU ASCB+180 02527000 ASCBJBNS EQU ASCB+176 02528000 ASCBJBNI EQU ASCB+172 02529000 ASCBMCC EQU ASCB+168 02530000 ASCBRTWA EQU ASCB+164 02531000 ASCBIQEA EQU ASCB+160 02532000 ASCBXMPQ EQU ASCB+156 02533000 ASCBRS01 EQU ASCB+154 02534000 ASCBFMCT EQU ASCB+152 02535000 ASCBOUXB EQU ASCB+148 02536000 ASCBOUCB EQU ASCB+144 02537000 ASCBMECB EQU ASCB+140 02538000 ASCBQECB EQU ASCB+136 02539000 ASCBCMSB EQU ASCB+132 02540000 ASCBCMSF EQU ASCB+128 02541000 ASCBTCBS EQU ASCB+124 02542000 ASCBNVSC EQU ASCB+122 02543000 ASCBVSC EQU ASCB+120 02544000 ASCBSRBS EQU ASCB+118 02545000 ASCBSSRB EQU ASCB+116 02546000 ASCBRV06 EQU ASCBFLG2 02547000 ASCBRV05 EQU ASCBFLG2 02548000 ASCBRV04 EQU ASCBFLG2 02549000 ASCBSNQS EQU ASCBFLG2 02550000 ASCBS2S EQU ASCBFLG2 02551000 ASCBCEXT EQU ASCBFLG2 02552000 ASCBPXMT EQU ASCBFLG2 02553000 ASCBXMPT EQU ASCBFLG2 02554000 ASCBRF07 EQU ASCBDSP1 02555000 ASCBRF06 EQU ASCBDSP1 02556000 ASCBRF05 EQU ASCBDSP1 02557000 ASCBRF04 EQU ASCBDSP1 02558000 ASCBRF03 EQU ASCBDSP1 02559000 ASCBRF02 EQU ASCBDSP1 02560000 ASCBFAIL EQU ASCBDSP1 02561000 ASCBNOQ EQU ASCBDSP1 02562000 ASCBSWCT EQU ASCB+112 02563000 ASCBTMCH EQU ASCB+104 02564000 ASCBNSWP EQU ASCBFLG1 02565000 ASCBTYP1 EQU ASCBFLG1 02566000 ASCBSTND EQU ASCBFLG1 02567000 ASCBABNT EQU ASCBFLG1 02568000 ASCBTERM EQU ASCBFLG1 02569000 ASCBS3S EQU ASCBFLG1 02570000 ASCBCMSH EQU ASCBFLG1 02571000 ASCBTOFF EQU ASCBFLG1 02572000 ASCBRF01 EQU ASCBRCTF 02573000 ASCBTMLW EQU ASCBRCTF 02574000 ASCBOUT EQU ASCBRCTF 02575000 ASCBWAIT EQU ASCBRCTF 02576000 ASCBRV08 EQU ASCBRCTF 02577000 ASCBFQU EQU ASCBRCTF 02578000 ASCBFRS EQU ASCBRCTF 02579000 ASCBTMNO EQU ASCBRCTF 02580000 ASCBAFFN EQU ASCBFW1 02581000 ASCBDUMP EQU ASCB+96 02582000 ASCBQSVC EQU ASCB+92 02583000 ASCBUBET EQU ASCB+88 02584000 ASCBECB EQU ASCB+84 02585000 ASCBJSTL EQU ASCB+80 02586000 ASCBEWST EQU ASCB+72 02587000 ASCBEJST EQU ASCB+64 02588000 ASCBTSB EQU ASCB+60 02589000 ASCBCSCB EQU ASCB+56 02590000 ASCBRSM EQU ASCB+52 02591000 ASCBLDA EQU ASCB+48 02592000 ASCBSTOR EQU ASCB+44 02593000 ASCBDP EQU ASCB+43 02594000 ASCBRV07 EQU ASCB+42 02595000 ASCBIOSM EQU ASCB+40 02596000 ASCBSEQN EQU ASCB+38 02597000 ASCBCPUS EQU ASCB+32 02598000 ASCBSPL EQU ASCB+28 02599000 ASCBLSLQ EQU ASCB+24 02600000 ASCBFSLQ EQU ASCB+20 02601000 ASCBIOSP EQU ASCB+16 02602000 ASCBLOCK EQU ASCB+12 02603000 ASCBBWDP EQU ASCB+8 02604000 ASCBFWDP EQU ASCB+4 02605000 ASCBASCB EQU ASCB 02606000 ASCBEGIN EQU ASCB 02607000 CVTLEVL EQU CVTRELNO+2 02608000 CVTNUMB EQU CVTRELNO 02609000 CVTMDL EQU CVTFIX+250 02610000 @NM00007 EQU CVTFIX+248 02611000 @NM00006 EQU CVTFIX 02612000 CVTRV482 EQU CVTXTNT2+128 02613000 CVTRV481 EQU CVTXTNT2+124 02614000 CVTRV480 EQU CVTXTNT2+120 02615000 CVTRV479 EQU CVTXTNT2+118 02616000 CVTRV478 EQU CVTXTNT2+117 02617000 CVTRV477 EQU CVTXTNT2+116 02618000 CVTRV476 EQU CVTXTNT2+115 02619000 CVTRV475 EQU CVTXTNT2+114 02620000 CVTRV474 EQU CVTRV466 02621000 CVTRV473 EQU CVTRV466 02622000 CVTRV472 EQU CVTRV466 02623000 CVTRV471 EQU CVTRV466 02624000 CVTRV470 EQU CVTRV466 02625000 CVTRV469 EQU CVTRV466 02626000 CVTRV468 EQU CVTRV466 02627000 CVTRV467 EQU CVTRV466 02628000 CVTRV465 EQU CVTRV457 02629000 CVTRV464 EQU CVTRV457 02630000 CVTRV463 EQU CVTRV457 02631000 CVTRV462 EQU CVTRV457 02632000 CVTRV461 EQU CVTRV457 02633000 CVTRV460 EQU CVTRV457 02634000 CVTRV459 EQU CVTRV457 02635000 CVTRV458 EQU CVTRV457 02636000 CVTRV456 EQU CVTXTNT2+108 02637000 CVTRV455 EQU CVTXTNT2+104 02638000 CVTRV454 EQU CVTXTNT2+100 02639000 CVTRV453 EQU CVTXTNT2+96 02640000 CVTRV452 EQU CVTXTNT2+94 02641000 CVTRV451 EQU CVTXTNT2+92 02642000 CVTRV450 EQU CVTXTNT2+90 02643000 CVTRV449 EQU CVTXTNT2+88 02644000 CVTRV448 EQU CVTXTNT2+87 02645000 CVTRV447 EQU CVTXTNT2+86 02646000 CVTRV446 EQU CVTRV438 02647000 CVTRV445 EQU CVTRV438 02648000 CVTRV444 EQU CVTRV438 02649000 CVTRV443 EQU CVTRV438 02650000 CVTRV442 EQU CVTRV438 02651000 CVTRV441 EQU CVTRV438 02652000 CVTRV440 EQU CVTRV438 02653000 CVTRV439 EQU CVTRV438 02654000 CVTRV437 EQU CVTRV429 02655000 CVTRV436 EQU CVTRV429 02656000 CVTRV435 EQU CVTRV429 02657000 CVTRV434 EQU CVTRV429 02658000 CVTRV433 EQU CVTRV429 02659000 CVTRV432 EQU CVTRV429 02660000 CVTRV431 EQU CVTRV429 02661000 CVTRV430 EQU CVTRV429 02662000 CVTRV428 EQU CVTXTNT2+80 02663000 CVTRV427 EQU CVTXTNT2+76 02664000 CVTRV426 EQU CVTXTNT2+72 02665000 CVTRV425 EQU CVTXTNT2+68 02666000 CVTATACT EQU CVTATCVT 02667000 CVTRV423 EQU CVTXTNT2+62 02668000 CVTRV422 EQU CVTXTNT2+60 02669000 CVTRV421 EQU CVTXTNT2+58 02670000 CVTRV420 EQU CVTXTNT2+56 02671000 CVTRV419 EQU CVTXTNT2+55 02672000 CVTRV418 EQU CVTXTNT2+54 02673000 CVTRV417 EQU CVTRV409 02674000 CVTRV416 EQU CVTRV409 02675000 CVTRV415 EQU CVTRV409 02676000 CVTRV414 EQU CVTRV409 02677000 CVTRV413 EQU CVTRV409 02678000 CVTRV412 EQU CVTRV409 02679000 CVTRV411 EQU CVTRV409 02680000 CVTRV410 EQU CVTRV409 02681000 CVTRV408 EQU CVTRV400 02682000 CVTRV407 EQU CVTRV400 02683000 CVTRV406 EQU CVTRV400 02684000 CVTRV405 EQU CVTRV400 02685000 CVTRV404 EQU CVTRV400 02686000 CVTRV403 EQU CVTRV400 02687000 CVTRV402 EQU CVTRV400 02688000 CVTRV401 EQU CVTRV400 02689000 CVTICB EQU CVTXTNT2+48 02690000 CVTSKTA EQU CVTXTNT2+44 02691000 CVTRSV99 EQU CVTXTNT2+40 02692000 CVTRSV98 EQU CVTXTNT2+36 02693000 CVTRSV97 EQU CVTXTNT2+34 02694000 CVTRSV96 EQU CVTXTNT2+32 02695000 CVTOLTEP EQU CVTXTNT2+28 02696000 CVTQIDA EQU CVTQID+1 02697000 CVTRSV95 EQU CVTQID 02698000 CVTRSV94 EQU CVTXTNT2+20 02699000 CVTRSV93 EQU CVTXTNT2+16 02700000 CVTRSV92 EQU CVTXTNT2+12 02701000 CVTDEBVR EQU CVTXTNT2+8 02702000 CVTRSV91 EQU CVTXTNT2+6 02703000 CVTRSV9H EQU CVTFLGBT 02704000 CVTRSV9G EQU CVTFLGBT 02705000 CVTRSV9F EQU CVTFLGBT 02706000 CVTRSV9E EQU CVTFLGBT 02707000 CVTRSV9D EQU CVTFLGBT 02708000 CVTRSV9C EQU CVTFLGBT 02709000 CVTVME EQU CVTFLGBT 02710000 CVTNPE EQU CVTFLGBT 02711000 CVTNUCLS EQU CVTXTNT2+4 02712000 CVTDSSVA EQU CVTDSSV+1 02713000 CVTRSV89 EQU CVTDSSV 02714000 CVTRSV88 EQU CVTXTNT1+8 02715000 CVTRSV87 EQU CVTXTNT1+4 02716000 CVTFACHN EQU CVTXTNT1 02717000 CVTRV488 EQU CVTMAP+412 02718000 CVTRV487 EQU CVTMAP+408 02719000 CVTRV486 EQU CVTMAP+404 02720000 CVTRV485 EQU CVTMAP+400 02721000 CVTACTAP EQU CVTMAP+396 02722000 CVTAUTH EQU CVTMAP+392 02723000 CVTATMCA EQU CVTATMCT+1 02724000 CVTATMST EQU CVTATMCT 02725000 CVTRSV61 EQU CVTMAP+384 02726000 CVTVOLT1 EQU CVTVOLM1+1 02727000 CVTVOLI1 EQU CVTVOLF1 02728000 CVTSTOA EQU CVTMAP+376 02729000 CVTRSV58 EQU CVTMAP+374 02730000 CVTRSV57 EQU CVTMAP+372 02731000 CVTDDCE EQU CVTMAP+368 02732000 CVTPNWFR EQU CVTMAP+364 02733000 CVTSMF EQU CVTMAP+360 02734000 CVTSULK EQU CVTMAP+358 02735000 CVTSLKO EQU CVTSYSK 02736000 CVTSLKP EQU CVTSYSK 02737000 CVTSLKQ EQU CVTSYSK 02738000 CVTSLKR EQU CVTSYSK 02739000 CVTRSV56 EQU CVTSYSK 02740000 CVTRSV55 EQU CVTSYSK 02741000 CVTRSV54 EQU CVTSYSK 02742000 CVTRSV53 EQU CVTSYSK 02743000 CVTRSV52 EQU CVTA1F1 02744000 CVTRSV51 EQU CVTA1F1 02745000 CVTRSV50 EQU CVTA1F1 02746000 CVTRSV49 EQU CVTA1F1 02747000 CVTRSV48 EQU CVTA1F1 02748000 CVTRSV47 EQU CVTA1F1 02749000 CVTSRSW EQU CVTA1F1 02750000 CVTPFSW EQU CVTA1F1 02751000 CVTPCVT EQU CVTMAP+352 02752000 CVTRSV46 EQU CVTMAP+344 02753000 CVTRSV45 EQU CVTMAP+340 02754000 CVTRSV44 EQU CVTMAP+338 02755000 CVTRSV43 EQU CVTMAP+336 02756000 CVTHJESA EQU CVTHJES+1 02757000 CVTRSV42 EQU CVTHJES 02758000 CVTEXT2A EQU CVTEXT2+1 02759000 CVTRSV41 EQU CVTEXT2 02760000 CVTAPFA EQU CVTAPF+1 02761000 CVTRSV40 EQU CVTAPF 02762000 CVTRV518 EQU CVTINTLA 02763000 CVTRV517 EQU CVTERPV 02764000 CVTEORM EQU CVTMAP+312 02765000 CVTMCHPR EQU CVTMAP+308 02766000 CVTTZ EQU CVTMAP+304 02767000 CVTJEPS EQU CVTMAP+300 02768000 CVTJESCT EQU CVTMAP+296 02769000 CVTMODE EQU CVTMAP+292 02770000 CVTPTRV EQU CVTMAP+288 02771000 CVTREAL EQU CVTMAP+284 02772000 CVTRSV39 EQU CVTMAP+280 02773000 CVTRSV38 EQU CVTMAP+276 02774000 CVTDMSRA EQU CVTDMSR+1 02775000 CVTRV634 EQU CVTDMSRF 02776000 CVTRV633 EQU CVTDMSRF 02777000 CVTRV632 EQU CVTDMSRF 02778000 CVTRV631 EQU CVTDMSRF 02779000 CVTRV630 EQU CVTDMSRF 02780000 CVTRV629 EQU CVTDMSRF 02781000 CVTUDUMP EQU CVTDMSRF 02782000 CVTSDUMP EQU CVTDMSRF 02783000 CVTQMSGA EQU CVTQMSG+1 02784000 CVTRSV36 EQU CVTQMSG 02785000 CVTAMFF EQU CVTMAP+264 02786000 CVTPURGA EQU CVTPURG+1 02787000 CVTRSV35 EQU CVTPURG 02788000 CVTCBSP EQU CVTMAP+256 02789000 CVTATERA EQU CVTATER+1 02790000 CVTSYST EQU CVTATER 02791000 CVTVOLT2 EQU CVTTAT 02792000 CVTVOLI2 EQU CVTVOLF2 02793000 CVTAQAVB EQU CVTAQAVT+1 02794000 CVTRSV34 EQU CVTTCMFG 02795000 CVTRSV33 EQU CVTTCMFG 02796000 CVTRSV32 EQU CVTTCMFG 02797000 CVTRSV31 EQU CVTTCMFG 02798000 CVTRSV30 EQU CVTTCMFG 02799000 CVTRSV29 EQU CVTTCMFG 02800000 CVTRSV28 EQU CVTTCMFG 02801000 CVTTCRDY EQU CVTTCMFG 02802000 CVTGTFA EQU CVTGTF+1 02803000 CVTRSV27 EQU CVTGTFST 02804000 CVTRNIO EQU CVTGTFST 02805000 CVTUSR EQU CVTGTFST 02806000 CVTRV318 EQU CVTFORM 02807000 CVTRV317 EQU CVTTMODE 02808000 CVTRV316 EQU CVTSTATE 02809000 CVTRV315 EQU CVTGTFS 02810000 CVTGTFAV EQU CVTGTFS 02811000 CVT0SCR1 EQU CVTMAP+232 02812000 CVTRV515 EQU CVTMAP+228 02813000 CVTRMS EQU CVTMAP+224 02814000 CVTPATCH EQU CVTMAP+220 02815000 CVTTSCE EQU CVTMAP+216 02816000 CVTLNKSC EQU CVTMAP+214 02817000 CVTQABST EQU CVTMAP+212 02818000 CVTMDLDS EQU CVTMAP+208 02819000 CVTUSER EQU CVTMAP+204 02820000 CVTABEND EQU CVTMAP+200 02821000 CVTSMCA EQU CVTMAP+196 02822000 CVTRSV18 EQU CVTMAP+192 02823000 CVTRSV17 EQU CVTOPTB 02824000 CVTRSV16 EQU CVTOPTB 02825000 CVTFP EQU CVTOPTB 02826000 CVTAPTHR EQU CVTOPTB 02827000 CVTNLOG EQU CVTOPTB 02828000 CVTTOD EQU CVTOPTB 02829000 CVTCTIMS EQU CVTOPTB 02830000 CVTPROT EQU CVTOPTB 02831000 CVTXPFP EQU CVTOPTA 02832000 CVTASCII EQU CVTOPTA 02833000 CVTRSV13 EQU CVTOPTA 02834000 CVTRSV12 EQU CVTOPTA 02835000 CVTNIP EQU CVTOPTA 02836000 CVTDDR EQU CVTOPTA 02837000 CVTAPR EQU CVTOPTA 02838000 CVTCCH EQU CVTOPTA 02839000 CVTSNCTR EQU CVTMAP+180 02840000 CVTQMWR EQU CVTMAP+176 02841000 CVTQOCR EQU CVTMAP+172 02842000 CVT1EF00 EQU CVTMAP+168 02843000 CVTMZ00 EQU CVTMAP+164 02844000 CVTSV76Q EQU CVTSV76C 02845000 CVTRSV11 EQU CVTMAP+156 02846000 CVT0PT01 EQU CVTMAP+152 02847000 CVTMSER EQU CVTMAP+148 02848000 CVTRV516 EQU CVTIERLC 02849000 CVTILCH EQU CVTMAP+140 02850000 CVT0DS EQU CVTMAP+136 02851000 CVTFBOSV EQU CVTMAP+132 02852000 CVTNUCB EQU CVTMAP+128 02853000 CVTSV76M EQU CVTIOQET 02854000 CVTDCBA EQU CVTMAP+117 02855000 CVTMVS2 EQU CVTDCB 02856000 CVT6DAT EQU CVTDCB 02857000 CVT4MPS EQU CVTDCB 02858000 CVTRSV09 EQU CVTDCB 02859000 CVT4MS1 EQU CVTDCB 02860000 CVT2SPS EQU CVTDCB 02861000 CVT1SSS EQU CVTDCB 02862000 CVTRSV08 EQU CVTDCB 02863000 CVTSTB EQU CVTMAP+112 02864000 CVTQTD00 EQU CVTMAP+108 02865000 CVTQTE00 EQU CVTMAP+104 02866000 CVTCUCB EQU CVTMAP+100 02867000 CVTSJQ EQU CVTMAP+96 02868000 CVTPBLDL EQU CVTMAP+92 02869000 CVTTPC EQU CVTMAP+88 02870000 CVTSVDCB EQU CVTMAP+84 02871000 CVTBRET EQU CVTMAP+82 02872000 CVTEXIT EQU CVTMAP+80 02873000 CVT0FN00 EQU CVTMAP+76 02874000 CVTDARA EQU CVTDAR+1 02875000 CVTRSV07 EQU CVTFLGS1 02876000 CVTRSV06 EQU CVTFLGS1 02877000 CVTRSV05 EQU CVTFLGS1 02878000 CVTRSV04 EQU CVTFLGS1 02879000 CVTRSV03 EQU CVTFLGS1 02880000 CVTRSV02 EQU CVTFLGS1 02881000 CVTRSV01 EQU CVTFLGS1 02882000 CVTDMPLK EQU CVTFLGS1 02883000 CVTXITP EQU CVTMAP+68 02884000 CVTZDTAB EQU CVTMAP+64 02885000 CVTMSLT EQU CVTMAP+60 02886000 CVTDATE EQU CVTMAP+56 02887000 CVTBTERM EQU CVTMAP+52 02888000 CVTSYSAD EQU CVTMAP+48 02889000 CVTXTLER EQU CVTMAP+44 02890000 CVTILK2 EQU CVTMAP+40 02891000 CVTILK1 EQU CVTMAP+36 02892000 CVTPRLTV EQU CVTMAP+32 02893000 CVTPCNVT EQU CVTMAP+28 02894000 CVT0VL00 EQU CVTMAP+24 02895000 CVTXAPG EQU CVTMAP+20 02896000 CVTBUF EQU CVTMAP+16 02897000 CVTJOB EQU CVTMAP+12 02898000 CVTLINK EQU CVTMAP+8 02899000 CVT0EF00 EQU CVTMAP+4 02900000 CVTTCBP EQU CVTMAP 02901000 CVT EQU CVTMAP 02902000 CRCAEND EQU CRCA+80 02903000 CRCARSV3 EQU CRCA+72 02904000 CRCAITIM EQU CRCA+64 02905000 CRCACTIM EQU CRCA+56 02906000 CRCARSV2 EQU CRCA+54 02907000 CRCACHAN EQU CRCA+52 02908000 CRCARSV1 EQU CRCA+44 02909000 CRCACAT EQU CRCA+40 02910000 CRCAPCCA EQU CRCA+36 02911000 CRCACINT EQU CRCA+32 02912000 CRCACRH3 EQU CRCA+28 02913000 CRCACRH2 EQU CRCA+24 02914000 CRCACRH1 EQU CRCA+20 02915000 @NM00005 EQU CRCAMCW+4 02916000 CRCAMCWC EQU CRCAMCWF 02917000 CRCAMCWM EQU CRCAMCWF 02918000 CRCAMCWI EQU CRCAMCWF 02919000 @NM00004 EQU CRCAMCWF 02920000 @NM00003 EQU CRCAMCW+1 02921000 CRCAMCWY EQU CRCAMCWZ 02922000 @NM00002 EQU CRCAMCWZ 02923000 CRCAFLG4 EQU CRCAFLGS+3 02924000 CRCAFLG3 EQU CRCAFLGS+2 02925000 CRCAFLG2 EQU CRCAFLGS+1 02926000 @NM00001 EQU CRCAFLG1 02927000 CRCAFTIM EQU CRCAFLG1 02928000 CRCAHIO EQU CRCAFLG1 02929000 CRCACCH EQU CRCAFLG1 02930000 CRCADINT EQU CRCAFLG1 02931000 CRCADIAG EQU CRCAFLG1 02932000 CRCAID EQU CRCA 02933000 @NM00031 EQU PSA+3668 02934000 PSASTAK EQU PSA+3072 02935000 @NM00030 EQU PSA+1048 02936000 PSAUSEND EQU PSA+1048 02937000 PSARV062 EQU PSA+1044 02938000 PSACDAL EQU PSA+1040 02939000 PSAWTCOD EQU PSA+1036 02940000 PSAATCVT EQU PSA+1032 02941000 PSAPCPSW EQU PSA+1024 02942000 PSAPIR2 EQU PSA+1020 02943000 PSARV059 EQU PSA+1018 02944000 PSASVC13 EQU PSA+1016 02945000 PSALSFCC EQU PSA+1012 02946000 PSASFACC EQU PSA+1008 02947000 PSASTOP EQU PSA+992 02948000 PSASTART EQU PSA+976 02949000 PSARSPSW EQU PSA+968 02950000 PSASRPSW EQU PSA+960 02951000 PSARV045 EQU PSA+892 02952000 PSARV044 EQU PSA+888 02953000 PSARV043 EQU PSA+884 02954000 PSARV042 EQU PSA+880 02955000 PSARV041 EQU PSA+876 02956000 PSARV040 EQU PSA+872 02957000 PSARV025 EQU PSA+868 02958000 PSADSSED EQU PSA+868 02959000 PSADSSPR EQU PSA+864 02960000 PSADSSFW EQU PSA+860 02961000 PSADSS14 EQU PSA+856 02962000 PSADSSPP EQU PSA+848 02963000 PSADSSRP EQU PSA+840 02964000 PSADSS05 EQU PSADSSF4 02965000 PSADSS10 EQU PSADSSF4 02966000 PSADSSVE EQU PSADSSF4 02967000 PSADSSDE EQU PSADSSF4 02968000 PSADSSC0 EQU PSADSSF4 02969000 PSADSSIE EQU PSADSSF4 02970000 PSADSS12 EQU PSADSSF4 02971000 PSADSSRC EQU PSADSSF4 02972000 PSARV057 EQU PSADSSF3 02973000 PSARV056 EQU PSADSSF3 02974000 PSARV055 EQU PSADSSF3 02975000 PSADSSMC EQU PSADSSF3 02976000 PSADSSRW EQU PSADSSF3 02977000 PSADSSNM EQU PSADSSF3 02978000 PSADSSES EQU PSADSSF3 02979000 PSADSSGP EQU PSADSSF3 02980000 PSADSSF2 EQU PSADSSFL+1 02981000 PSADSSPI EQU PSADSSF1 02982000 PSADSSOI EQU PSADSSF1 02983000 PSADSSSP EQU PSADSSF1 02984000 PSADSSTP EQU PSADSSF1 02985000 PSADSSDW EQU PSADSSF1 02986000 PSADSSDD EQU PSADSSF1 02987000 PSADSSDM EQU PSADSSF1 02988000 PSADSSMV EQU PSADSSF1 02989000 PSADSSTS EQU PSA+816 02990000 PSADSSWK EQU PSA+812 02991000 PSADSSR3 EQU PSA+808 02992000 PSADSSR2 EQU PSA+804 02993000 PSADSSRS EQU PSA+800 02994000 PSASTOR EQU PSA+796 02995000 PSACPUSA EQU PSA+794 02996000 PSAVSTAP EQU PSA+792 02997000 PSAWKVAP EQU PSA+788 02998000 PSAWKRAP EQU PSA+784 02999000 PSAMCHIC EQU PSA+783 03000000 PSARV061 EQU PSA+782 03001000 PSASYMSK EQU PSA+781 03002000 PSAMCHFL EQU PSA+780 03003000 PSACR0 EQU PSA+776 03004000 PSAPSWSV EQU PSA+768 03005000 PSALITA EQU PSA+764 03006000 PSACLHS EQU PSAHLHI 03007000 PSALKR15 EQU PSALKSA+60 03008000 PSALKR14 EQU PSALKSA+56 03009000 PSALKR13 EQU PSALKSA+52 03010000 PSALKR12 EQU PSALKSA+48 03011000 PSALKR11 EQU PSALKSA+44 03012000 PSALKR10 EQU PSALKSA+40 03013000 PSALKR9 EQU PSALKSA+36 03014000 PSALKR8 EQU PSALKSA+32 03015000 PSALKR7 EQU PSALKSA+28 03016000 PSALKR6 EQU PSALKSA+24 03017000 PSALKR5 EQU PSALKSA+20 03018000 PSALKR4 EQU PSALKSA+16 03019000 PSALKR3 EQU PSALKSA+12 03020000 PSALKR2 EQU PSALKSA+8 03021000 PSALKR1 EQU PSALKSA+4 03022000 PSALKR0 EQU PSALKSA 03023000 PSARV023 EQU PSACLHT+52 03024000 PSALOCAL EQU PSACLHT+48 03025000 PSACMSL EQU PSACLHT+44 03026000 PSAOPTL EQU PSACLHT+40 03027000 PSATPACL EQU PSACLHT+36 03028000 PSATPDNL EQU PSACLHT+32 03029000 PSATPNCL EQU PSACLHT+28 03030000 PSAIOSLL EQU PSACLHT+24 03031000 PSAIOSUL EQU PSACLHT+20 03032000 PSAIOSCL EQU PSACLHT+16 03033000 PSAIOSSL EQU PSACLHT+12 03034000 PSASALCL EQU PSACLHT+8 03035000 PSAASML EQU PSACLHT+4 03036000 PSADISPL EQU PSACLHT 03037000 PSASRSA EQU PSA+636 03038000 PSARV050 EQU PSA+634 03039000 PSADSSGO EQU PSA+633 03040000 PSARECUR EQU PSA+632 03041000 PSAHLHIS EQU PSA+628 03042000 PSAIPCSA EQU PSA+624 03043000 @NM00029 EQU PSA+621 03044000 PSAIPCDM EQU PSA+620 03045000 PSAIPCD EQU PSA+616 03046000 @NM00028 EQU PSA+613 03047000 PSAIPCRM EQU PSA+612 03048000 PSAIPCR EQU PSA+608 03049000 PSAMCHEX EQU PSA+600 03050000 PSAMPSW EQU PSA+592 03051000 PSAEXPS2 EQU PSA+584 03052000 PSAEXPS1 EQU PSA+576 03053000 PSAPIREG EQU PSA+572 03054000 PSARSREG EQU PSA+568 03055000 PSAGPREG EQU PSA+556 03056000 PSARV022 EQU PSASUP4 03057000 PSARV021 EQU PSASUP4 03058000 PSARV020 EQU PSASUP4 03059000 PSARV019 EQU PSASUP4 03060000 PSARV018 EQU PSASUP4 03061000 PSARV017 EQU PSASUP4 03062000 PSARV016 EQU PSASUP4 03063000 PSARV015 EQU PSASUP4 03064000 PSARV014 EQU PSASUP3 03065000 PSARV013 EQU PSASUP3 03066000 PSARV012 EQU PSASUP3 03067000 PSAESTA EQU PSASUP3 03068000 PSASPR EQU PSASUP3 03069000 PSAPSREG EQU PSASUP3 03070000 PSAPI2 EQU PSASUP3 03071000 PSAIOSUP EQU PSASUP3 03072000 PSALCR EQU PSASUP2 03073000 PSARTM EQU PSASUP2 03074000 PSAACR EQU PSASUP2 03075000 PSAIPCE2 EQU PSASUP2 03076000 PSAIPCES EQU PSASUP2 03077000 PSAIPCEC EQU PSASUP2 03078000 PSAGTF EQU PSASUP2 03079000 PSAIPCRI EQU PSASUP2 03080000 PSATYPE6 EQU PSASUP1 03081000 PSATCTL EQU PSASUP1 03082000 PSADISP EQU PSASUP1 03083000 PSALOCK EQU PSASUP1 03084000 PSAPI EQU PSASUP1 03085000 PSAEXT EQU PSASUP1 03086000 PSASVC EQU PSASUP1 03087000 PSAIO EQU PSASUP1 03088000 PSAANEW EQU PSA+544 03089000 PSATOLD EQU PSA+540 03090000 PSATNEW EQU PSA+536 03091000 PSALCCAR EQU PSA+532 03092000 PSALCCAV EQU PSA+528 03093000 PSAPCCAR EQU PSA+524 03094000 PSAPCCAV EQU PSA+520 03095000 PSACPULA EQU PSA+518 03096000 PSACPUPA EQU PSA+516 03097000 PSAPSA EQU PSA+512 03098000 FLCHDEND EQU PSA+512 03099000 FLCCRSAV EQU FLCMCLA+280 03100000 FLCGRSAV EQU FLCMCLA+216 03101000 FLCFPSAV EQU FLCMCLA+184 03102000 FLCFLA EQU FLCMCLA+88 03103000 FLCRGNCD EQU FLCMCLA+84 03104000 FLCFSAA EQU FLCFSA+1 03105000 @NM00027 EQU FLCFSA 03106000 @NM00026 EQU FLCMCLA+72 03107000 FLCMCIC EQU FLCMCLA+64 03108000 @NM00025 EQU FLCMCLA+20 03109000 FLCIOAA EQU FLCIOA+1 03110000 @NM00024 EQU FLCIOA 03111000 @NM00023 EQU FLCMCLA+15 03112000 @NM00022 EQU FLCMCLA+14 03113000 @NM00021 EQU FLCMCLA+12 03114000 FLCLCL EQU FLCMCLA+8 03115000 FLCIOELA EQU FLCIOEL+1 03116000 @NM00020 EQU FLCIOEL 03117000 FLCCHNID EQU FLCMCLA 03118000 @NM00019 EQU PSA+160 03119000 FLCMTRCD EQU PSA+157 03120000 @NM00018 EQU PSA+156 03121000 FLCPERA EQU FLCPER+1 03122000 @NM00017 EQU FLCPER 03123000 @NM00016 EQU PSA+151 03124000 FLCPERCD EQU PSA+150 03125000 FLCMCNUM EQU PSA+149 03126000 @NM00015 EQU PSA+148 03127000 FLCTEAA EQU FLCTEA+1 03128000 @NM00014 EQU FLCTEA 03129000 PSAPIPC EQU PSAPICOD 03130000 PSAPIMC EQU PSAPICOD 03131000 PSAPIPER EQU PSAPICOD 03132000 PSARV049 EQU FLCPICOD 03133000 FLCPILCB EQU FLCPIILC 03134000 @NM00013 EQU FLCPIILC 03135000 @NM00012 EQU PSAEPPSW 03136000 FLCSVCN EQU PSAESPSW+2 03137000 FLCSILCB EQU FLCSVILC 03138000 @NM00011 EQU FLCSVILC 03139000 @NM00010 EQU PSAESPSW 03140000 FLCEICOD EQU PSAEEPSW+2 03141000 PSASPAD EQU PSAEEPSW 03142000 @NM00009 EQU PSA+128 03143000 FLCINPSW EQU PSA+120 03144000 FLCMNPSW EQU PSA+112 03145000 FLCPNPSW EQU PSA+104 03146000 FLCSNPSW EQU PSA+96 03147000 FLCENPSW EQU PSA+88 03148000 FLCTRACE EQU PSA+84 03149000 FLCTIMER EQU PSA+80 03150000 FLCCVT2 EQU PSA+76 03151000 FLCCAW EQU PSA+72 03152000 FLCCSW EQU PSA+64 03153000 FLCIOPSW EQU PSA+56 03154000 FLCMOPSW EQU PSA+48 03155000 FLCPOPSW EQU PSA+40 03156000 FLCSOPSW EQU PSA+32 03157000 FLCEOPSW EQU PSA+24 03158000 @NM00008 EQU FLCICCW2+4 03159000 FLCICCW1 EQU FLCROPSW 03160000 FLCIPPSW EQU FLCRNPSW 03161000 * END UNREFERENCED COMPONENTS 03162000 @RF00216 EQU ERPLT2 03163000 @RC00321 EQU @RC00320 03164000 @ENDDATA EQU * 03165000 END IECVERPL,(C'PLS1913',0701,77095) 03166000