TITLE 'IGE0004I, 370X CHANNEL ERP *00001000 ' 00002000 IGE0004I CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 * 02S0280 00005000 * /*****************************************************************/ 00006000 * /* */ 00007000 * /* PROLOGUE: THIS SEGMENT COMPLETES THE MODULE PROLOGUE CODE */ 00008000 * /* */ 00009000 * /*****************************************************************/ 00010000 * 02S0280 00011000 * RBASE=REG15; /* ASSIGN TO THE BASE REGISTER 00012000 * THE ENTRY POINT ADDRESS OF THE 00013000 * MODULE */ 00014000 LR RBASE,REG15 02S0280 00015000 * RFY 02S0281 00016000 * REG15 UNRSTD; 02S0281 00017000 * GEN CODE NODEFS NOEXIT NOFLOWS REFS(RBASE) SEQFLOW NOSETS; 02S0282 00018000 * /* 00019000 USING IGE0004I,RBASE INFORM THE ASSEMBLER OF THE 00020000 * BASE REGISTER TO BE USED FOR 00021000 * ADDRESSING CODE 00022000 IGE0004I IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00023000 * 02S0283 00024000 * /*****************************************************************/ 00025000 * /* */ 00026000 * /* GPROCESS: THIS IS THE TOP LEVEL SEGMENT OF THE MODULE. IT IS */ 00027000 * /* COMPOSED OF SEGMENTS CONDTEST, PROCCASE, EXITCASE, AND */ 00028000 * /* INTF025C. CONDTEST EVALUATES ERROR CONDITIONS AND DETERMINES */ 00029000 * /* APPROPRIATE ACTION. PROCCASE IS A CASE MACRO WHOSE SUBCASES */ 00030000 * /* SETUP APPROPRIATE ACTION FOR THE VARIOUS ERROR CONDITIONS AND */ 00031000 * /* DETERMINE HOW TO EXIT FROM THE MODULE. EXITCASE IS A CASE */ 00032000 * /* MACRO WHOSE SUBCASES EXIT FROM THE MODULE. INTF025C IS A */ 00033000 * /* SUBROUTINE WHICH SETS UP A PERMANENT ERROR EXIT TO IGE0025C */ 00034000 * /* FOR MESSAGE IEA000I AND OBR RECORDING FOR SUBCASES CRETRY AND */ 00035000 * /* CPET3 OF PROCCASE. */ 00036000 * /* */ 00037000 * /*****************************************************************/ 00038000 * 02S0283 00039000 * IOSBPTR=RPARM; /* REG 1 CONTAINS IOSB ADDRESS 00040000 * @G36XREB*/ 00041000 LR IOSBPTR,RPARM 03S0283 00042000 * RLCB=IOSUSE; /* GET LCB ADDRESS FROM IOSB 00043000 * @G36XREB*/ 00044000 L RLCB,IOSUSE(,IOSBPTR) 03S0284 00045000 */* MAP I/O STATUS FIELDS FROM IOSB INTO LCB(IOB) @G36XRIB*/ 00046000 * 03S0285 00047000 * LCBFLAG1=IOSFLA; /* STATUS BITS @G36XRIB*/ 00048000 MVC LCBFLAG1(1,RLCB),IOSFLA(IOSBPTR) 03S0285 00049000 * LCBFLAG2=IOSFLB; /* STATUS BITS @G36XRIB*/ 00050000 MVC LCBFLAG2(1,RLCB),IOSFLB(IOSBPTR) 03S0286 00051000 * LCBECBCC=IOSCOD; /* ECB COMPLETION CODE @G36XRIB*/ 00052000 MVC LCBECBCC(1,RLCB),IOSCOD(IOSBPTR) 03S0287 00053000 * LCBSIOCC=IOSCC; /* SIO COMPLETION CODE @G36XRIB*/ 00054000 MVC LCBSIOCC(1,RLCB),IOSCC(IOSBPTR) 03S0288 00055000 * LCBCSW=IOSCSW; /* CSW @G36XRIB*/ 00056000 MVC LCBCSW(7,RLCB),IOSCSW(IOSBPTR) 03S0289 00057000 * LCBSNS=IOSSNS; /* SENSE BYTES @G36XRIB*/ 00058000 MVC LCBSNS(2,RLCB),IOSSNS(IOSBPTR) 03S0290 00059000 * IF(LCBSIOC1=RESET&LCBSIOC2=SET) THEN/* SIO COND.CODE 1 @G36XREB*/ 00060000 TM LCBSIOC2(RLCB),B'00010000' 03S0291 00061000 BNO @RF00291 03S0291 00062000 TM LCBSIOC1(RLCB),B'00100000' 03S0291 00063000 BNZ @RF00291 03S0291 00064000 * DO; /* YES @G36XREB*/ 00065000 * LCBCSWCA=LCBSTART+LENGTH(IEDQCCW);/* ..THEN SETUP DUMMY 03S0293 00066000 * INTERRUPT ADDRESS @YM06897*/ 00067000 LA @10,8 03S0293 00068000 L @09,LCBSTART-1(,RLCB) 03S0293 00069000 LA @09,0(,@09) 03S0293 00070000 ALR @10,@09 03S0293 00071000 STCM @10,7,LCBCSWCA(RLCB) 03S0293 00072000 * IOSCSWCA=LCBCSWCA; /* PUT DUMMY ADDR IN IOSB ALSO 00073000 * @G36XREB*/ 00074000 STCM @10,7,IOSCSWCA(IOSBPTR) 03S0294 00075000 * END; /* @G36XREB*/ 00076000 * ELSE 03S0296 00077000 * ; /* @YM06897*/ 00078000 @RF00291 DS 0H 03S0297 00079000 * RPARM=LCBTTCIN; /* SETUP PARAMETER FOR IEDQTNT */ 00080000 LH RPARM,LCBTTCIN(,RLCB) 03S0297 00081000 N RPARM,@CF03392 03S0297 00082000 * RAVT=TCXAVT; /* SET UP AVT POINTER @YM05691*/ 00083000 L @10,CVTPTR 03S0298 00084000 L @10,TCXPTR(,@10) 03S0298 00085000 L RAVT,TCXAVT(,@10) 03S0298 00086000 * CALL IEDQTNT; /* LINK TO IEDQTNT TO GET NCP TTE 00087000 * ADDRESS */ 00088000 L @15,AVTRNMPT(,RAVT) 03S0299 00089000 BALR @14,@15 03S0299 00090000 * RTRM=RPARM-LENGTH(IEDNTRM); /* BACKUP TTE ADDRESS TO PREFIX 00091000 * @YM04622*/ 00092000 LR RTRM,RPARM 03S0300 00093000 SL RTRM,@CF00035 03S0300 00094000 * 03S0301 00095000 * /*****************************************************************/ 00096000 * /* */ 00097000 * /* GPROCESS.CONDTEST: EVALUATES ERROR CONDITIONS AND DETERMINES */ 00098000 * /* APPROPRIATE ACTION. ASSIGNS AN INDEX TO RPROC FOR CASE */ 00099000 * /* PROCCASE. COMPOSED OF SEGMENTS CONVRV, INITPROC, CONDSIO3, AND*/ 00100000 * /* CONDOTHR. CONVRV CONVERTS REAL DATA ADDRESSES TO VIRTUAL ONES */ 00101000 * /* IN THE CCWS IN THE CHANNEL PROGRAM. INITPROC DOES INITIAL */ 00102000 * /* PROCESSING-CALLING CHANNEL I/O TRACE OR SAVING ORIGINAL */ 00103000 * /* STATUS. CONDSIO3 HANDLES SIOCC3 STATUS. CONDOTHR HANDLES ALL */ 00104000 * /* OTHER STATUS. */ 00105000 * /* */ 00106000 * /*****************************************************************/ 00107000 * 03S0301 00108000 * 04S0301 00109000 * /*****************************************************************/ 00110000 * /* */ 00111000 * /* GPROCESS.CONDTEST.CONVRV: CONVERTS REAL DATA ADDRESSES TO */ 00112000 * /* VIRTUAL ADDRESSES IN THE CCWS IN THE INVOKING CHANNEL PROGRAM.*/ 00113000 * /* */ 00114000 * /*****************************************************************/ 00115000 * 04S0301 00116000 * RFY 04S0301 00117000 * (RINT, 04S0301 00118000 * REG10) RSTD; /* @YM04622*/ 00119000 * IF LCBRLAD=SET THEN /* IF VIRTUAL CHAN PROG THEN 00120000 * @YM04622*/ 00121000 TM LCBRLAD(RLCB),B'00010000' 04S0302 00122000 BNO @RF00302 04S0302 00123000 * DO; /* TRANSLATE REAL TO VIRTUAL 00124000 * @YM04622*/ 00125000 * REG10=CVTPTRV; /* GET ADDRESS OF REAL TO VIRTUAL 00126000 * TRANSLATE ROUTINE @YM04622*/ 00127000 L @07,CVTPTR 04S0304 00128000 L REG10,CVTPTRV(,@07) 04S0304 00129000 * RINT=LCBCSWCA-LENGTH(IEDQCCW);/* INTERRUPT CCW ADDRESS 04S0305 00130000 * @YM04622*/ 00131000 L RINT,LCBCSWCA-1(,RLCB) 04S0305 00132000 LA RINT,0(,RINT) 04S0305 00133000 SL RINT,@CF00045 04S0305 00134000 * IF TRMIPLDM=SET| /* IF IPL/DUMP IN PROGRESS ... 00135000 * @YM04622*/ 00136000 * LCBSTAT1=AVTEFF THEN /* ... OR CLOSE CHAN PROG THEN 00137000 * @YM04622*/ 00138000 TM TRMIPLDM(RTRM),B'10000000' 04S0306 00139000 BO @RT00306 04S0306 00140000 CLI LCBSTAT1(RLCB),X'FF' 04S0306 00141000 BNE @RF00306 04S0306 00142000 @RT00306 DS 0H 04S0307 00143000 * RCCW=LCBSTART; /* BEGIN TRANSLATION WITH FIRST 00144000 * CCW @YM04622*/ 00145000 L RCCW,LCBSTART-1(,RLCB) 04S0307 00146000 LA RCCW,0(,RCCW) 04S0307 00147000 * ELSE /* @YM04622*/ 00148000 * DO; /* ELSE DETERMINE WHICH CCWS NEED 00149000 * TRANSLATION @YM04622*/ 00150000 B @RC00306 04S0308 00151000 @RF00306 DS 0H 04S0309 00152000 * RPARM=RLCB+DCBEIOBX; /* POINT TO END OF LCB @YM04622*/ 00153000 L @07,LCBDCBPT(,RLCB) 04S0309 00154000 LR RPARM,RLCB 04S0309 00155000 SLR @05,@05 04S0309 00156000 IC @05,DCBEIOBX+20(,@07) 04S0309 00157000 ALR RPARM,@05 04S0309 00158000 * IF RINT>=RLCB& /* IF INTERRUPT CCW IS IN THE LCB 00159000 * @YM04622*/ 00160000 * RINTCCWOPCDE;/* SAVE COMMAND 00377000 * ON WHICH ERROR OCCURRED 04S0365 00378000 * @YM08537*/ 00379000 L @07,LCBCSWCA-1(,RLCB) 04S0365 00380000 AL @07,@CF03394 04S0365 00381000 MVC OPCDESAV(1,RLCB),CCWOPCDE(@07) 04S0365 00382000 * END; 04S0366 00383000 * IF LCBSTAT1=AVTEFF THEN /* IF TCAM CLOSEDOWN ... @YM07000*/ 00384000 @RC00348 CLI LCBSTAT1(RLCB),X'FF' 03S0367 00385000 BNE @RF00367 03S0367 00386000 * RPROC=GRETRY; /* ... IGNORE ANY ERRORS, DO MDR 00387000 * PROCESSING @YM07000*/ 00388000 LA RPROC,5 03S0368 00389000 * ELSE /* @YM07000*/ 00390000 * IF LCBSIOC1=SET&LCBSIOC2=SET /* IF SIOCC3 */ 00391000 * THEN 03S0369 00392000 B @RC00367 03S0369 00393000 @RF00367 TM LCBSIOC1(RLCB),B'00110000' 03S0369 00394000 BNO @RF00369 03S0369 00395000 * 04S0370 00396000 * /*************************************************************/ 00397000 * /* */ 00398000 * /* GPROCESS.CONDTEST.CONDSIO3: DOES INITIAL PROCESSING FOR */ 00399000 * /* SIO CONDITION CODE 3 STATUS. */ 00400000 * /* */ 00401000 * /*************************************************************/ 00402000 * 04S0370 00403000 * DO; 04S0370 00404000 * RTCX=CVTAQAVT; /* TCX ADDRESS @G36XREB*/ 00405000 L @07,CVTPTR 04S0371 00406000 L RTCX,CVTAQAVT(,@07) 04S0371 00407000 * GEN REFS(TCXCC3TS,RTCX,REG13,TCXESAVE,IOSUCB,IOSBPTR,RPARM, 00408000 * TCXERPPM); 04S0372 00409000 * /* @G36XREB*/ 00410000 CC3LOOP EQU * @G36XREB 00411000 TS TCXCC3TS(RTCX) RESERVE SAVE AREA IN TCX @G36XREB 00412000 BNZ CC3LOOP LOOP TILL TCX AVAILABLE @G36XREB 00413000 LA REG13,TCXESAVE(RTCX) SAVE AREA FOR IECVIOPM @G36XREB 00414000 L RPARM,IOSUCB(IOSBPTR) UCB ADDRESS @G36XREB 00415000 LA RPARM,0(RPARM) CLEAR HO BYTE @G36XREB 00416000 ST RPARM,TCXERPPM(RTCX) SET PARM LIST @G36XREB 00417000 LA RPARM,TCXERPPM(RTCX) PARM LIST ADDR @G36XREB 00418000 LINK EP=IECVIOPM,MF=(E,(1)) CHECK AVAIL PATHS @G36XREB 00419000 MVI TCXCC3TS(RTCX),0 CLEAR TS LOCK @G36XREB 00420000 * IF REG15=0 THEN /* ALTERNATE PATH AVAILABLE 04S0373 00421000 * @G36XREB*/ 00422000 LTR REG15,REG15 04S0373 00423000 BNZ @RF00373 04S0373 00424000 * RPROC=RETRY; /* YES, RETRY I/O @G36XREB*/ 00425000 LA RPROC,1 04S0374 00426000 * ELSE /* ALTERNATE PATH NOT AVAILABLE 00427000 * @G36XREB*/ 00428000 * DO; /* @G36XREB*/ 00429000 B @RC00373 04S0375 00430000 @RF00373 DS 0H 04S0376 00431000 * LCBNX064=SET; /* TELL QNX TO PRINT IED064 MSG 00432000 * @G36XREB*/ 00433000 OI LCBNX064(RLCB),B'10000000' 04S0376 00434000 * MSG064=MSG064L; /* MOVE WTO LIST TO WORK AREA TO 00435000 * MAKE REENTRENT @ZM47653*/ 00436000 L @07,EWAPTR(,IOSBPTR) 04S0377 00437000 MVC MSG064(49,@07),MSG064L 04S0377 00438000 * M064CUA=UCBNAME; /* INSERT UCB NAME IN MSG 04S0378 00439000 * @G36XREB*/ 00440000 L @05,UCBPTR(,IOSBPTR) 04S0378 00441000 MVC M064CUA(3,@07),UCBNAME(@05) 04S0378 00442000 * RPARM=ADDR(MSG064); /* MSG ADDRESS @G36XREB*/ 00443000 LA RPARM,MSG064(,@07) 04S0379 00444000 * GEN(WTO MF=(E,(1))); /* WRITE MSG IED064 TO SYSTEM 00445000 * OPERATOR @G36XREB*/ 00446000 WTO MF=(E,(1)) 00447000 * MSG064=''B; /* CLEAR WTO IN WORKAREA @ZM47653*/ 00448000 L @07,EWAPTR(,IOSBPTR) 04S0381 00449000 XC MSG064(49,@07),MSG064(@07) 04S0381 00450000 * RPROC=PET2; /* PERMANENT ERROR PROCESSING 00451000 * @G36XREB*/ 00452000 LA RPROC,3 04S0382 00453000 * END; /* @G36XREB*/ 00454000 * END; 04S0384 00455000 * ELSE 03S0385 00456000 * 04S0385 00457000 * /*************************************************************/ 00458000 * /* */ 00459000 * /* GPROCESS.CONDTEST.CONDOTHR: DOES INITIAL PROCESSING FOR */ 00460000 * /* ALL CONDITIONS EXCEPT SIOCC3. */ 00461000 * /* */ 00462000 * /*************************************************************/ 00463000 * 04S0385 00464000 * DO; 04S0385 00465000 B @RC00369 04S0385 00466000 @RF00369 DS 0H 04S0386 00467000 * IF(LCBSIOC1=RESET&LCBSIOC2=SET&LCBUSUC=SET)|(LCBSIOC1=RESET& 00468000 * LCBSIOC2=RESET) /* IF SIO CONDITION CODE 1 AND 00469000 * UNIT CHECK OR SIO CONDITION 00470000 * CODE 0 @YM06897*/ 00471000 * THEN 04S0386 00472000 TM LCBSIOC2(RLCB),B'00010000' 04S0386 00473000 BNO @GL00006 04S0386 00474000 TM LCBSIOC1(RLCB),B'00100000' 04S0386 00475000 BNZ @GL00006 04S0386 00476000 TM LCBUSUC(RLCB),B'00000010' 04S0386 00477000 BO @RT00386 04S0386 00478000 @GL00006 TM LCBSIOC1(RLCB),B'00110000' 04S0386 00479000 BNZ @RF00386 04S0386 00480000 @RT00386 DS 0H 04S0387 00481000 * DO; /* ..THEN PROCESS POSSIBLY 04S0387 00482000 * RECOVERABLE ERRORS @YM06897*/ 00483000 * IF LCBCSCDC=SET|LCBCSCCC=SET|LCBCSICC=SET/* IF CHANNEL 00484000 * DATA CHECK OR CHANNEL CONTROL 00485000 * CHECK OR INTERFACE CONTROL 00486000 * CHECK */ 00487000 * THEN 04S0388 00488000 TM LCBCSCDC(RLCB),B'00001110' 04S0388 00489000 BZ @RF00388 04S0388 00490000 * RPROC=RETRY; /* SETUP RETRY PROCESSING */ 00491000 LA RPROC,1 04S0389 00492000 * ELSE 04S0390 00493000 * IF LCBUSUC=SET /* IF UNIT CHECK */ 00494000 * THEN 04S0390 00495000 B @RC00388 04S0390 00496000 @RF00388 TM LCBUSUC(RLCB),B'00000010' 04S0390 00497000 BNO @RF00390 04S0390 00498000 * DO; 04S0391 00499000 * IF LCBINTRQ=SET|LCBNOTIN=SET/* IF INTERVENTION 00500000 * REQUIRED OR NOT INITIALIZED */ 00501000 * THEN 04S0392 00502000 TM LCBINTRQ(RLCB),B'01000010' 04S0392 00503000 BZ @RF00392 04S0392 00504000 * DO; 04S0393 00505000 * LCBNX142=SET;/* TELL IEDQNX TO WRITE MESSAGE 00506000 * IED142 */ 00507000 OI LCBNX142(RLCB),B'01000000' 04S0394 00508000 * RPROC=PET3; /* SETUP PERMANENT ERROR 04S0395 00509000 * PROCESSING(TYPE 3) */ 00510000 LA RPROC,4 04S0395 00511000 * END; 04S0396 00512000 * ELSE 04S0397 00513000 * IF LCBEQUCK=SET|LCBBUSCK=SET|LCBDATCK=SET| 00514000 * LCBOVRUN=SET|LCBCMDRJ=SET/* IF EQUIPMENT 00515000 * CHECK OR BUSOUT CHECK OR DATA 00516000 * CHECK OR OVERRUN OR COMMAND 00517000 * REJECT */ 00518000 * THEN 04S0397 00519000 B @RC00392 04S0397 00520000 @RF00392 TM LCBEQUCK(RLCB),B'10111100' 04S0397 00521000 BZ @RF00397 04S0397 00522000 * RPROC=RETRY;/* SETUP RETRY PROCESSING */ 00523000 LA RPROC,1 04S0398 00524000 * ELSE 04S0399 00525000 * RPROC=GRETRY;/* MUST BE UC(ABORT) STATUS-EXIT 00526000 * TO IGG019TH WITH NORMAL 04S0399 00527000 * COMPLETION INDICATED */ 00528000 B @RC00397 04S0399 00529000 @RF00397 LA RPROC,5 04S0399 00530000 * END; 04S0400 00531000 * ELSE 04S0401 00532000 * IF LCBCSPGC=SET|LCBCSPTC=SET|LCBCSCHC=SET|LCBCSPCI= 00533000 * SET|LCBCSIL=SET/* IF PROGRAM CHECK OR 04S0401 00534000 * PROTECTION CHECK OR CHAINING 00535000 * CHECK OR PROGRAM-CONTROLLED 00536000 * INTERRUPTION OR INCORRECT 00537000 * LENGTH */ 00538000 * THEN 04S0401 00539000 B @RC00390 04S0401 00540000 @RF00390 TM LCBCSPGC(RLCB),B'11110001' 04S0401 00541000 BZ @RF00401 04S0401 00542000 * RPROC=RETRY; /* SETUP RETRY PROCESSING */ 00543000 LA RPROC,1 04S0402 00544000 * ELSE 04S0403 00545000 * IF IOSERR=SET /* THERE ARE NO ERRORS ACCORDING 00546000 * TO THE VARIOUS STATUS 04S0403 00547000 * INDICATORS-IF THIS IS 04S0403 00548000 * SUBSEQUENT ENTRY FOR SAME CP 00549000 * @G36XREB*/ 00550000 * THEN 04S0403 00551000 B @RC00401 04S0403 00552000 @RF00401 TM IOSERR(IOSBPTR),B'00100000' 04S0403 00553000 BNO @RF00403 04S0403 00554000 * RPROC=GRETRY; /* SETUP GOOD RETRY PROCESSING */ 00555000 LA RPROC,5 04S0404 00556000 * ELSE 04S0405 00557000 * RPROC=MDREXIT;/* BY DEFAULT 4I WAS INVOKED TO 00558000 * INVOKE 904I(MDR PROCESSOR) SO 00559000 * SETUP MDR EXIT PROCESSING */ 00560000 B @RC00403 04S0405 00561000 @RF00403 LA RPROC,6 04S0405 00562000 * END; /* @YM06897*/ 00563000 * ELSE 04S0407 00564000 * DO; /* ..ELSE DECLARE PERMANENT ERROR 00565000 * BECAUSE THERE MUST HAVE BEEN A 00566000 * SOFTWARE ERROR SOMEWHERE 04S0407 00567000 * @YM06897*/ 00568000 B @RC00386 04S0407 00569000 @RF00386 DS 0H 04S0408 00570000 * LCBNX162=SET; /* TELL IEDQNX THAT WE WANT MSG 00571000 * IED162I WRITTEN @YM06897*/ 00572000 OI LCBNX162(RLCB),B'00100000' 04S0408 00573000 * RPROC=PET3; /* SETUP PERMANENT ERROR TYPE 3 00574000 * PROCESSING @YM06897*/ 00575000 LA RPROC,4 04S0409 00576000 * END; /* @YM06897*/ 00577000 * END; 04S0411 00578000 @RC00386 DS 0H 04S0412 00579000 * 03S0412 00580000 * /*****************************************************************/ 00581000 * /* */ 00582000 * /* GPROCESS.PROCCASE: A CASE MACRO WHOSE SUBCASES SETUP */ 00583000 * /* APPROPRIATE ACTION FOR THE VARIOUS ERROR CONDITIONS AND */ 00584000 * /* DETERMINE HOW TO EXIT FROM THE MODULE. THE SEGMENT IS COMPOSED*/ 00585000 * /* OF SUBCASE SEGMENTS. THE SUBCASES ASSIGN AN INDEX TO REXIT FOR*/ 00586000 * /* CASE EXITCASE. */ 00587000 * /* */ 00588000 * /*****************************************************************/ 00589000 * 03S0412 00590000 * DO; /* CASE(RPROC)NAMES(CRETRY,CPET1, 00591000 * CPET2,CPET3,CGRETRY,CMDREXIT) */ 00592000 @RC00369 DS 0H 03S0412 00593000 @RC00367 DS 0H 03S0413 00594000 * DCL 03S0413 00595000 * CL0001@ LABEL BASED(CP0001@(RPROC)) VALUERANGE(CRETRY,CPET1, 00596000 * CPET2,CPET3,CGRETRY,CMDREXIT);/* BRANCH TARGET */ 00597000 * DCL 03S0414 00598000 * CP0001@(6) PTR(31) INIT(ADDR(CRETRY),ADDR(CPET1),ADDR(CPET2), 00599000 * ADDR(CPET3),ADDR(CGRETRY),ADDR(CMDREXIT)); 03S0414 00600000 * GOTO CL0001@; /* BRANCH TO SELECTED CASE 03S0415 00601000 * PROCESSING CASE */ 00602000 LR @07,RPROC 03S0415 00603000 SLA @07,2 03S0415 00604000 L @07,CP0001@-4(@07) 03S0415 00605000 BR @07 03S0415 00606000 * 04S0416 00607000 * /***************************************************************/ 00608000 * /* */ 00609000 * /* GPROCESS.PROCCASE.CRETRY: SETS UP RETRY ACTION(EXIT VIA */ 00610000 * /* ERROR EXCP) OR PERMANENT ERROR ACTION(EXIT TO IGE0025C FOR */ 00611000 * /* MESSAGE IEA000I AND OBR RECORDING) IF RETRY LIMIT EXCEEDED. */ 00612000 * /* */ 00613000 * /***************************************************************/ 00614000 * 04S0416 00615000 *CRETRY: 04S0416 00616000 * DO; /* SUBCASE RETRY PROCESSING */ 00617000 CRETRY DS 0H 04S0417 00618000 * LCBINCAM=LCBINCAM+1; /* INCREMENT RETRY COUNTER */ 00619000 LA @07,1 04S0417 00620000 AH @07,LCBINCAM(,RLCB) 04S0417 00621000 STH @07,LCBINCAM(,RLCB) 04S0417 00622000 * IF LCBINCAM>RETRYLIM /* IF RETRY HAS BEEN PERFORMED 00623000 * THE MAXIMUM NUMBER OF TIMES */ 00624000 * THEN 04S0418 00625000 C @07,@CF00074 04S0418 00626000 BNH @RF00418 04S0418 00627000 * DO; 04S0419 00628000 * LCBNX162=SET; /* TELL IEDQNX TO WRITE MESSAGE 00629000 * IED162 */ 00630000 OI LCBNX162(RLCB),B'00100000' 04S0420 00631000 * CALL INTF025C; /* SETUP PARAMETERS FOR EXIT TO 00632000 * IGE0025C */ 00633000 LA @15,INTF025C 04S0421 00634000 BALR @14,@15 04S0421 00635000 * IOSERR=OFF; /* INDICATE PERMANENT... @G36XREB*/ 00636000 * IOSEX=ON; /* ...ERROR @G36XREB*/ 00637000 OI IOSEX(IOSBPTR),B'00000100' 04S0423 00638000 NI IOSERR(IOSBPTR),B'11011111' 04S0423 00639000 * RPARM=IOSBPTR; /* IOSB ADDRESS @G36XREB*/ 00640000 LR RPARM,IOSBPTR 04S0424 00641000 * REG13=XCTL025C; /* IGE0025C ID @G36XREB*/ 00642000 LA REG13,253 04S0425 00643000 * REG14=CVTXTLER; /* XCTL ROUTINE ADDRESS @G36XREB*/ 00644000 L @07,CVTPTR 04S0426 00645000 L REG14,CVTXTLER(,@07) 04S0426 00646000 * GEN(BR REG14); /* XCTL TO MESSAGE WRITER 04S0427 00647000 * @G36XREB*/ 00648000 BR REG14 00649000 * END; 04S0428 00650000 * ELSE 04S0429 00651000 * DO; /* RETRY LIMIT HAS NOT BEEN 04S0429 00652000 * EXCEEDED-RETRY AGAIN */ 00653000 B @RC00418 04S0429 00654000 @RF00418 DS 0H 04S0430 00655000 * RCCW=LCBCSWCA-LENGTH(IEDQCCW);/* GET ADDRESS OF INTERRUPT 00656000 * CCW */ 00657000 L RCCW,LCBCSWCA-1(,RLCB) 04S0430 00658000 LA RCCW,0(,RCCW) 04S0430 00659000 SL RCCW,@CF00045 04S0430 00660000 * IF CCWOPCDE=CCWREAD|CCWOPCDE=CCWRS0|CCWOPCDE=CCWRS1/* IF 00661000 * INTERRUPT CCW WAS READ START 00662000 * OR READ */ 00663000 * THEN 04S0431 00664000 CLI CCWOPCDE(RCCW),X'02' 04S0431 00665000 BE @RT00431 04S0431 00666000 CLI CCWOPCDE(RCCW),X'32' 04S0431 00667000 BE @RT00431 04S0431 00668000 CLI CCWOPCDE(RCCW),X'52' 04S0431 00669000 BNE @RF00431 04S0431 00670000 @RT00431 DS 0H 04S0432 00671000 * DO; 04S0432 00672000 * IF TRMIPLDM=RESET /* IF IPL AND DUMP ARE NOT IN 00673000 * PROGRESS */ 00674000 * THEN 04S0433 00675000 TM TRMIPLDM(RTRM),B'10000000' 04S0433 00676000 BNZ @RF00433 04S0433 00677000 * LCBSTART=ADDR(LCBCCW3);/* RESTART ON READ START */ 00678000 LA @07,LCBCCW3(,RLCB) 04S0434 00679000 STCM @07,7,LCBSTART(RLCB) 04S0434 00680000 * ELSE 04S0435 00681000 * ; /* RESTART ON WRITE START */ 00682000 @RF00433 DS 0H 04S0436 00683000 * END; 04S0436 00684000 * ELSE 04S0437 00685000 * ; 04S0437 00686000 @RF00431 DS 0H 04S0438 00687000 * IOSVST=LCBSTART; /* START OF RETRY CHANNEL PROGRAM 00688000 * @G36XREB*/ 00689000 L @07,LCBSTART-1(,RLCB) 04S0438 00690000 LA @07,0(,@07) 04S0438 00691000 ST @07,IOSVST(,IOSBPTR) 04S0438 00692000 * RPARM=IOSVST; /* GET REAL ADDRESS OF... 04S0439 00693000 * @ZM47867*/ 00694000 LR RPARM,@07 04S0439 00695000 * GEN(LRA RPARM,0(RPARM));/* ...CHANNEL PROGRAM @G36XREB*/ 00696000 LRA RPARM,0(RPARM) 00697000 * IOSRST=RPARM; /* PUT REAL ADDR IN IOSB @G36XREB*/ 00698000 ST RPARM,IOSRST(,IOSBPTR) 04S0441 00699000 * RPARM=IOSBPTR; /* IOSB ADDRESS @G36XREB*/ 00700000 LR RPARM,IOSBPTR 04S0442 00701000 * CALL SIOAPNG; /* CALL START I/O APPENDAGE TO 00702000 * CONVERT CHANNEL PROGRAM FROM 00703000 * VIETUAL TO REAL @G36XREB*/ 00704000 L @07,IEDQDPTR(,IOSBPTR) 04S0443 00705000 L @15,DEBSIOA(,@07) 04S0443 00706000 BALR @14,@15 04S0443 00707000 * IOSERR=ON; /* INDICATE RETRY... @G36XREB*/ 00708000 * IOSEX=ON; /* ...SITUATION @G36XREB*/ 00709000 OI IOSERR(IOSBPTR),B'00100100' 04S0445 00710000 * SVC(15); /* ISSUE ERROR EXCP @G36XREB*/ 00711000 SVC 15 04S0446 00712000 * SVC(3); /* EXIT SVC @G36XREB*/ 00713000 SVC 3 04S0447 00714000 * END; 04S0448 00715000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00716000 B CE0001@ 04S0449 00717000 * END CRETRY; /* END OF SUBCASE */ 00718000 * 04S0451 00719000 * /***************************************************************/ 00720000 * /* */ 00721000 * /* GPROCESS.PROCCASE.CPET1: SETS UP PERMANENT ERROR TYPE 1 */ 00722000 * /* ACTION-EXIT TO IGE0025C FOR ALTERNATE PATH RETRY. */ 00723000 * /* */ 00724000 * /***************************************************************/ 00725000 * 04S0451 00726000 *CPET1: 04S0451 00727000 * DO; /* SUBCASE PERMANENT ERROR TYPE 1 00728000 * PROCESSING */ 00729000 CPET1 DS 0H 04S0452 00730000 */* NO ACTION, CURRENTLY NOT BEING USED @G36XREB*/ 00731000 * 04S0452 00732000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00733000 B CE0001@ 04S0452 00734000 * END CPET1; /* END OF SUBCASE */ 00735000 * 04S0454 00736000 * /***************************************************************/ 00737000 * /* */ 00738000 * /* GPROCESS.PROCCASE.CPET2: SETS UP PERMANENT ERROR PROCESSING */ 00739000 * /* TYPE 2-EXIT TO IGG019TH VIA ERROR EXCP. */ 00740000 * /* */ 00741000 * /***************************************************************/ 00742000 * 04S0454 00743000 *CPET2: 04S0454 00744000 * DO; /* SUBCASE PERMANENT ERROR TYPE 2 00745000 * PROCESSING */ 00746000 CPET2 DS 0H 04S0455 00747000 * LCBSENS0=LCBSNSV; /* RESTORE ORIGINAL SENSE */ 00748000 MVC LCBSENS0(1,RLCB),LCBSNSV(RLCB) 04S0455 00749000 * LCBCSW=LCBCSWSV; /* RESTORE ORIGINAL CSW */ 00750000 MVC LCBCSW(7,RLCB),LCBCSWSV(RLCB) 04S0456 00751000 * LCBUNADD=ADDR(UCBNAME); /* SETUP PARAMETER FOR IGE0025C */ 00752000 L @07,UCBPTR(,IOSBPTR) 04S0457 00753000 LA @07,UCBNAME(,@07) 04S0457 00754000 STCM @07,7,LCBUNADD(RLCB) 04S0457 00755000 * LCBSTART=LCBSTSAV; /* RESTORE ORIGINAL CP START 00756000 * ADDRESS */ 00757000 MVC LCBSTART(3,RLCB),LCBSTSAV(RLCB) 04S0458 00758000 * LCBINCAM=ZERO; /* RESET RETRY COUNTER */ 00759000 SLR @07,@07 04S0459 00760000 STH @07,LCBINCAM(,RLCB) 04S0459 00761000 * LCBECBCC=LCBECB41; /* SET TCAM PERMANENT ERROR SO 00762000 * THAT IGG019TH WILL DETECT IT 00763000 * @OY20613*/ 00764000 MVI LCBECBCC(RLCB),X'41' 04S0460 00765000 * IOSERR=OFF; /* INDICATE PERMANENT... @G36XREB*/ 00766000 * IOSEX=ON; /* ...ERROR @G36XREB*/ 00767000 OI IOSEX(IOSBPTR),B'00000100' 04S0462 00768000 NI IOSERR(IOSBPTR),B'11011111' 04S0462 00769000 * RPARM=IOSBPTR; /* IOSB ADDRESS @G36XREB*/ 00770000 LR RPARM,IOSBPTR 04S0463 00771000 * SVC(15); /* ISSUE ERROR EXCP TO RETURN TO 00772000 * CHANNEL END APPENDAGE @G36XREB*/ 00773000 SVC 15 04S0464 00774000 * SVC(3); /* EXIT SVC @G36XREB*/ 00775000 SVC 3 04S0465 00776000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00777000 B CE0001@ 04S0466 00778000 * END CPET2; /* END OF SUBCASE */ 00779000 * 04S0468 00780000 * /***************************************************************/ 00781000 * /* */ 00782000 * /* GPROCESS.PROCCASE.CPET3: SETS UP PERMANENT ERROR TYPE 3 */ 00783000 * /* PROCESSING-EXIT TO IGE0025C FOR MESSAGE IEA000I AND OBR */ 00784000 * /* RECORDING. */ 00785000 * /* */ 00786000 * /***************************************************************/ 00787000 * 04S0468 00788000 *CPET3: 04S0468 00789000 * DO; /* SUBCASE PERMANENT ERROR TYPE 3 00790000 * PROCESSING */ 00791000 CPET3 DS 0H 04S0469 00792000 * CALL INTF025C; /* SETUP PARAMETERS FOR IGE0025C 00793000 * INVOCATION */ 00794000 LA @15,INTF025C 04S0469 00795000 BALR @14,@15 04S0469 00796000 * IOSERR=OFF; /* INDICATE PERMANENT... @G36XREB*/ 00797000 * IOSEX=ON; /* ...ERROR @G36XREB*/ 00798000 OI IOSEX(IOSBPTR),B'00000100' 04S0471 00799000 NI IOSERR(IOSBPTR),B'11011111' 04S0471 00800000 * RPARM=IOSBPTR; /* IOSB ADDRESS @G36XREB*/ 00801000 LR RPARM,IOSBPTR 04S0472 00802000 * REG13=XCTL025C; /* SYSTEM MSG WRITER ID @G36XREB*/ 00803000 LA REG13,253 04S0473 00804000 * REG14=CVTXTLER; /* SYSTEM XCTL ROUTINE @G36XREB*/ 00805000 L @07,CVTPTR 04S0474 00806000 L REG14,CVTXTLER(,@07) 04S0474 00807000 * GEN(BR REG14); /* XCTL TO MESSAGE WRITER 04S0475 00808000 * @G36XREB*/ 00809000 BR REG14 00810000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00811000 B CE0001@ 04S0476 00812000 * END CPET3; /* END OF SUBCASE */ 00813000 * 04S0478 00814000 * /***************************************************************/ 00815000 * /* */ 00816000 * /* GPROCESS.PROCCASE.CGRETRY: SETS UP GOOD RETRY */ 00817000 * /* PROCESSING-EXIT TO IGG019TH VIA ERRROR EXCP WITH ERROR */ 00818000 * /* CLEARED--OR EXIT TO IGE0904I FOR MDR PROCESSING WITH ERROR */ 00819000 * /* CLEARED. */ 00820000 * /* */ 00821000 * /***************************************************************/ 00822000 * 04S0478 00823000 *CGRETRY: 04S0478 00824000 * DO; /* SUBCASE GOOD RETRY PROCESSING */ 00825000 CGRETRY DS 0H 04S0479 00826000 * LCBINCAM=ZERO; /* RESET RETRY COUNTER */ 00827000 SLR @07,@07 04S0479 00828000 STH @07,LCBINCAM(,RLCB) 04S0479 00829000 * LCBSTART=LCBSTSAV; /* RESTORE ORIGINAL CP START 00830000 * ADDRESS */ 00831000 MVC LCBSTART(3,RLCB),LCBSTSAV(RLCB) 04S0480 00832000 * IOSERR=RESET; /* RESET ERP IN CONTROL @G36XREB*/ 00833000 * IOSEX=RESET; /* RESET EXCEPTIONAL CONDITION 00834000 * @G36XREB*/ 00835000 NI IOSERR(IOSBPTR),B'11011011' 04S0482 00836000 * RPARM=IOSBPTR; /* IOSB ADDRESS @G36XREB*/ 00837000 LR RPARM,IOSBPTR 04S0483 00838000 * IF LCBOBRCH^=ZERO /* IF THERE ARE PIUS ON THE OBR 00839000 * QUEUE */ 00840000 * THEN 04S0484 00841000 C @07,LCBOBRCH(,RLCB) 04S0484 00842000 BE @RF00484 04S0484 00843000 * DO; /* THEN SETUP PROCESSING OF THEM */ 00844000 * REG13=XCTL904I; /* SETUP XCTL TO IGE0904I */ 00845000 L REG13,@CF03328 04S0486 00846000 * REG14=CVTXTLER; /* SYSTEM XCTL ROUTINE @G36XREB*/ 00847000 L @07,CVTPTR 04S0487 00848000 L REG14,CVTXTLER(,@07) 04S0487 00849000 * GEN(BR REG14); /* XCTL TO IGE0904I @G36XREB*/ 00850000 BR REG14 00851000 * END; 04S0489 00852000 * ELSE 04S0490 00853000 * DO; /* @G36XREB*/ 00854000 B @RC00484 04S0490 00855000 @RF00484 DS 0H 04S0491 00856000 * SVC(15); /* ERROR EXCP(RETURNS TO CHANNEL 00857000 * END WITH ERROR CLEARED) 04S0491 00858000 * @G36XREB*/ 00859000 SVC 15 04S0491 00860000 * SVC(3); /* EXIT SVC @G36XREB*/ 00861000 SVC 3 04S0492 00862000 * END; /* @G36XREB*/ 00863000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00864000 B CE0001@ 04S0494 00865000 * END CGRETRY; /* END OF SUBCASE */ 00866000 * 04S0496 00867000 * /***************************************************************/ 00868000 * /* */ 00869000 * /* GPROCESS.PROCCASE.CMDREXIT: SETS UP MDR EXIT PROCESSING-EXIT*/ 00870000 * /* TO IGE0904I FOR MDR PROCESSING. */ 00871000 * /* */ 00872000 * /***************************************************************/ 00873000 * 04S0496 00874000 *CMDREXIT: 04S0496 00875000 * DO; /* SUBCASE MDR EXIT PROCESSING */ 00876000 CMDREXIT DS 0H 04S0497 00877000 * IOSEX=RESET; /* SETUP GOOD RETURN TO IGG019TH 00878000 * @G36XREB*/ 00879000 NI IOSEX(IOSBPTR),B'11111011' 04S0497 00880000 * REG13=XCTL904I; /* SETUP XCTL TO IGE0904I */ 00881000 L REG13,@CF03328 04S0498 00882000 * RPARM=IOSBPTR; /* IOSB ADDRESS @G36XREB*/ 00883000 LR RPARM,IOSBPTR 04S0499 00884000 * REG14=CVTXTLER; /* SYSTEM XCTL ROUTINE @G36XREB*/ 00885000 L @07,CVTPTR 04S0500 00886000 L REG14,CVTXTLER(,@07) 04S0500 00887000 * GEN(BR REG14); /* XCTL TO IGE0904I @G36XREB*/ 00888000 BR REG14 00889000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00890000 B CE0001@ 04S0502 00891000 * END CMDREXIT; /* END OF SUBCASE */ 00892000 *CE0001@: 03S0504 00893000 * END; /* END OF CASE */ 00894000 * 03S0505 00895000 * /*****************************************************************/ 00896000 * /* */ 00897000 * /* GPROCESS.INTF025C: A SUBROUTINE WHICH SETS UP A PERMANENT */ 00898000 * /* ERROR EXIT TO IGE0025C FOR MESSAGE IEA000I AND OBR RECORDING */ 00899000 * /* FOR SUBCASES CRETRY AND CPET3. */ 00900000 * /* */ 00901000 * /*****************************************************************/ 00902000 * 03S0505 00903000 *INTF025C: 03S0505 00904000 * PROC OPTIONS(ENTREG,NOPARMREG,RETREG,NOSAVE,NOSAVEAREA);/* 03S0505 00905000 * PROCEDURE TO SETUP PARAMETERS 00906000 * FOR EXIT TO IGE0025C FOR 03S0505 00907000 * MESSAGE IEA000I AND OBR 03S0505 00908000 * RECORDING */ 00909000 @EL00001 DS 0H 03S0505 00910000 @EF00001 DS 0H 03S0505 00911000 @ER00001 BR @14 03S0505 00912000 INTF025C DS 0H 03S0506 00913000 * RFY 03S0506 00914000 * DSTINDX RSTD; /* DEVICE STATISTICS TABLE INDEX 00915000 * @ZM47653*/ 00916000 * LCBUNADD=ADDR(UCBNAME); /* USED BY IEDQNX FOR MESSAGE 00917000 * @ZM47653*/ 00918000 L @07,UCBPTR(,IOSBPTR) 03S0507 00919000 LA @00,UCBNAME(,@07) 03S0507 00920000 STCM @00,7,LCBUNADD(RLCB) 03S0507 00921000 * LCBUASZE=LENGTH(UCBNAME); /* USED BY IEDQNX @ZM47653*/ 00922000 MVI LCBUASZE(RLCB),X'03' 03S0508 00923000 * LCBINCAM=ZERO; /* RESET RETRY COUNTER */ 00924000 SLR @00,@00 03S0509 00925000 STH @00,LCBINCAM(,RLCB) 03S0509 00926000 * LCBSENS0=LCBSNSV; /* RESTORE ORIGINAL SENSE DATA */ 00927000 MVC LCBSENS0(1,RLCB),LCBSNSV(RLCB) 03S0510 00928000 * LCBCSW=LCBCSWSV; /* RESTORE ORIGINAL CSW */ 00929000 MVC LCBCSW(7,RLCB),LCBCSWSV(RLCB) 03S0511 00930000 * LCBSTART=LCBSTSAV; /* RESTORE ORIGINAL CP START 00931000 * ADDRESS */ 00932000 MVC LCBSTART(3,RLCB),LCBSTSAV(RLCB) 03S0512 00933000 * LCBECBCC=LCBECB41; /* SET TCAM PERMANENT ERROR SO 00934000 * THAT IGG019TH WILL DETECT IT 00935000 * @OY20613*/ 00936000 MVI LCBECBCC(RLCB),X'41' 03S0513 00937000 * DSTPTR=CVTSTB; /* DEVICE STATISTICS TABLE 03S0514 00938000 * ADDRESS @G36XREB*/ 00939000 L @15,CVTPTR 03S0514 00940000 L DSTPTR,CVTSTB(,@15) 03S0514 00941000 * DSTINDX=UCBETI; /* DEVICE STAT TABLE INDEX 03S0515 00942000 * @G36XREB*/ 00943000 L @07,UCBEXTPT(,@07) 03S0515 00944000 SLR DSTINDX,DSTINDX 03S0515 00945000 IC DSTINDX,UCBETI(,@07) 03S0515 00946000 * DO WHILE(UCBPTRFIXED15);/* FIND DEVICE STAT TABLE ENTRY 00947000 * FOR THIS UCB @G36XREB*/ 00948000 B @DE00516 03S0516 00949000 @DL00516 DS 0H 03S0517 00950000 * DSTPTR=DSTPTR+2; /* INCREMENT POINTER @G36XREB*/ 00951000 AL DSTPTR,@CF00065 03S0517 00952000 * DSTINDX=DSTINDX+256; /* INCREMENT ENTRY INDEX @G36XREB*/ 00953000 AL DSTINDX,@CF01326 03S0518 00954000 * END; /* @G36XREB*/ 00955000 @DE00516 L @07,UCBPTR(,IOSBPTR) 03S0519 00956000 CH @07,FIXED15(,DSTPTR) 03S0519 00957000 BL @DL00516 03S0519 00958000 * DSTPTR=DSTPTR+DSTINDX*10; /* MULTIPLY TO GET ENTRY ADDRESS 00959000 * @G36XREB*/ 00960000 LR @07,DSTINDX 03S0520 00961000 MH @07,@CH03317 03S0520 00962000 ALR DSTPTR,@07 03S0520 00963000 * EWTCSIO=DSTPTR->FIXED15; /* SIO COUNTERS FOR OBR @G36XREB*/ 00964000 L @07,EWAPTR(,IOSBPTR) 03S0521 00965000 LH @00,FIXED15(,DSTPTR) 03S0521 00966000 STH @00,EWTCSIO(,@07) 03S0521 00967000 * EWTCSNL=IOSSNS; /* SENSE INFO FOR OBR @G36XREB*/ 00968000 MVC EWTCSNL(1,@07),IOSSNS(IOSBPTR) 03S0522 00969000 * EWTCCSW=IOSCSW; /* CSW TO OBR @G36XREB*/ 00970000 MVC EWTCCSW(7,@07),IOSCSW(IOSBPTR) 03S0523 00971000 * EWTCCCW=LCBCSWCA->CCW; /* INTERRUPTED CCW @G36XREB*/ 00972000 L @15,LCBCSWCA-1(,RLCB) 03S0524 00973000 MVC EWTCCCW(8,@07),CCW(@15) 03S0524 00974000 * EWADDISP=ADDR(EWTCSIO); /* DATA ADDR @G36XREB*/ 00975000 LA @00,EWTCSIO(,@07) 03S0525 00976000 STCM @00,7,EWADDISP(@07) 03S0525 00977000 * EWADCNT='1C'X; /* DATA SIZE TO OBR @G36XREB*/ 00978000 MVI EWADCNT(@07),X'1C' 03S0526 00979000 * IOSLOG=ON; /* WRITE OBR RECORD @G36XREB*/ 00980000 * IOSMSG=ON; /* WRITE I/O ERROR MESSAGE 03S0528 00981000 * @G36XREB*/ 00982000 OI IOSLOG(IOSBPTR),B'00000101' 03S0528 00983000 * RFY 03S0529 00984000 * DSTINDX UNRSTD; /* @ZM47653*/ 00985000 * END INTF025C; 03S0530 00986000 @EL00002 DS 0H 03S0530 00987000 @EF00002 DS 0H 03S0530 00988000 @ER00002 BR @14 03S0530 00989000 * END IGE0004I 01S0531 00990000 * 01S0531 00991000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00992000 */*%INCLUDE SYSLIB (TAVTD ) */ 00993000 */*%INCLUDE SYSLIB (TCCWD ) */ 00994000 */*%INCLUDE SYSLIB (CVT ) */ 00995000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00996000 */*%INCLUDE SYSLIB (IHADCB ) */ 00997000 */*%INCLUDE SYSLIB (TDEBD ) */ 00998000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00999000 */*%INCLUDE SYSLIB (EWAMAP ) */ 01000000 */*%INCLUDE SYSLIB (TLCBD ) */ 01001000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01002000 */*%INCLUDE SYSLIB (TRQED ) */ 01003000 */*%INCLUDE SYSLIB (TTCXD ) */ 01004000 */*%INCLUDE SYSLIB (TTRMD ) */ 01005000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 01006000 */*%INCLUDE SYSUT5 (RFY ) */ 01007000 */*%INCLUDE SYSUT5 (DCL ) */ 01008000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 01009000 */*%INCLUDE SYSUT5 (GPROCESS) */ 01010000 */*%INCLUDE SYSUT5 (GETTTE ) */ 01011000 */*%INCLUDE SYSUT5 (CONDTEST) */ 01012000 */*%INCLUDE SYSUT5 (CONVRV ) */ 01013000 */*%INCLUDE SYSUT5 (INITPROC) */ 01014000 */*%INCLUDE SYSUT5 (CONDSIO3) */ 01015000 */*%INCLUDE SYSUT5 (CONDOTHR) */ 01016000 */*%INCLUDE SYSUT5 (PROCCASE) */ 01017000 */*%INCLUDE SYSUT5 (CRETRY ) */ 01018000 */*%INCLUDE SYSUT5 (CPET1 ) */ 01019000 */*%INCLUDE SYSUT5 (CPET2 ) */ 01020000 */*%INCLUDE SYSUT5 (CPET3 ) */ 01021000 */*%INCLUDE SYSUT5 (CGRETRY ) */ 01022000 */*%INCLUDE SYSUT5 (CMDREXIT) */ 01023000 */*%INCLUDE SYSUT5 (INTF025C) */ 01024000 * 01S0531 01025000 * ; 01S0531 01026000 @DATA DS 0H 01027000 @CH03317 DC H'10' 01028000 @DATD DSECT 01029000 DS 0F 01030000 IGE0004I CSECT 01031000 DS 0F 01032000 @CF00065 DC F'2' 01033000 @CF00074 DC F'3' 01034000 @CF00045 DC F'8' 01035000 @CF00035 DC F'18' 01036000 @CF01326 DC F'256' 01037000 @CF03328 DC F'9049' 01038000 @CF03394 DC F'-8' 01039000 @CF03392 DC XL4'0000FFFF' 01040000 @DATD DSECT 01041000 DS 0D 01042000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01043000 @ENDDATD EQU * 01044000 IGE0004I CSECT 01045000 DS 0F 01046000 @SIZDATD DC AL1(0) 01047000 DC AL3(@ENDDATD-@DATD) 01048000 DS 0D 01049000 MSG064L DS CL49 01050000 ORG MSG064L 01051000 M064LENL DC AL2(49) 01052000 M064FLGL DC AL2(0) 01053000 M064TXTL DC CL45'IED064I LINE XXX CONTROL UNIT NOT OPERATIONAL' 01054000 ORG MSG064L+49 01055000 DS CL3 01056000 CP0001@ DC AL4(CRETRY) 01057000 DC AL4(CPET1) 01058000 DC AL4(CPET2) 01059000 DC AL4(CPET3) 01060000 DC AL4(CGRETRY) 01061000 DC AL4(CMDREXIT) 01062000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01063000 @01 EQU 01 01064000 @02 EQU 02 01065000 @03 EQU 03 01066000 @04 EQU 04 01067000 @05 EQU 05 01068000 @06 EQU 06 01069000 @07 EQU 07 01070000 @08 EQU 08 01071000 @09 EQU 09 01072000 @10 EQU 10 01073000 @11 EQU 11 01074000 @12 EQU 12 01075000 @13 EQU 13 01076000 @14 EQU 14 01077000 @15 EQU 15 01078000 IEDQAPTR EQU @01 01079000 DCBPTR EQU @02 01080000 IOSBPTR EQU @06 01081000 IEDQLPTR EQU @01 01082000 LCBXPTR EQU @05 01083000 RTRM EQU @08 01084000 RAVT EQU @13 01085000 RLCB EQU @04 01086000 RCCW EQU @11 01087000 REG00 EQU @00 01088000 REG01 EQU @01 01089000 RPARM EQU @01 01090000 RPROC EQU @02 01091000 DSTPTR EQU @02 01092000 RTCX EQU @03 01093000 DSTINDX EQU @05 01094000 RINT EQU @09 01095000 REG10 EQU @10 01096000 RBASE EQU @12 01097000 REG13 EQU @13 01098000 REG14 EQU @14 01099000 REG15 EQU @15 01100000 IEDQTPTR EQU @01 01101000 REG02 EQU @02 01102000 REG03 EQU @03 01103000 REG04 EQU @04 01104000 REG05 EQU @05 01105000 REG06 EQU @06 01106000 REG07 EQU @07 01107000 REG08 EQU @08 01108000 REG09 EQU @09 01109000 REG11 EQU @11 01110000 REG12 EQU @12 01111000 UCBDCPTR EQU @01 01112000 CVTPTR EQU 16 01113000 PSA EQU 0 01114000 FLCRNPSW EQU PSA 01115000 FLCROPSW EQU PSA+8 01116000 FLCICCW2 EQU PSA+16 01117000 PSAEEPSW EQU PSA+132 01118000 PSAESPSW EQU PSA+136 01119000 FLCSVILC EQU PSAESPSW+1 01120000 PSAEPPSW EQU PSA+140 01121000 FLCPIILC EQU PSAEPPSW+1 01122000 FLCPICOD EQU PSAEPPSW+2 01123000 PSAPICOD EQU FLCPICOD+1 01124000 FLCTEA EQU PSAEPPSW+4 01125000 FLCPER EQU PSA+152 01126000 FLCMCLA EQU PSA+168 01127000 FLCIOEL EQU FLCMCLA+4 01128000 FLCIOA EQU FLCMCLA+16 01129000 FLCFSA EQU FLCMCLA+80 01130000 PSASUPER EQU PSA+552 01131000 PSASUP1 EQU PSASUPER 01132000 PSASUP2 EQU PSASUPER+1 01133000 PSASUP3 EQU PSASUPER+2 01134000 PSASUP4 EQU PSASUPER+3 01135000 PSACLHT EQU PSA+640 01136000 PSALKSA EQU PSA+696 01137000 PSAHLHI EQU PSA+760 01138000 PSALITA EQU PSA+764 01139000 PSADSSFL EQU PSA+836 01140000 PSADSSF1 EQU PSADSSFL 01141000 PSADSSF3 EQU PSADSSFL+2 01142000 PSADSSF4 EQU PSADSSFL+3 01143000 PSARSVT EQU PSA+896 01144000 IEDQAVTD EQU 0 01145000 AVTSAVEX EQU IEDQAVTD+288 01146000 AVTREADD EQU IEDQAVTD+380 01147000 AVTBUFSW EQU IEDQAVTD+384 01148000 @NM00004 EQU IEDQAVTD+388 01149000 AVTCKFLG EQU @NM00004 01150000 AVTBASE EQU IEDQAVTD+412 01151000 AVTPKF EQU AVTBASE 01152000 AVTRNMPT EQU IEDQAVTD+424 01153000 AVTOSECB EQU IEDQAVTD+492 01154000 AVTECB1 EQU AVTOSECB 01155000 AVTHG02 EQU IEDQAVTD+528 01156000 AVTDISP EQU IEDQAVTD+552 01157000 AVTHD EQU IEDQAVTD+556 01158000 AVTSCOPT EQU AVTHD 01159000 AVTSAVTP EQU IEDQAVTD+612 01160000 AVTSAVTF EQU AVTSAVTP 01161000 AVTIOT EQU IEDQAVTD+640 01162000 AVTCKPEL EQU IEDQAVTD+652 01163000 AVTCKRMV EQU AVTCKPEL 01164000 AVTCKELF EQU IEDQAVTD+680 01165000 AVTCKBYT EQU IEDQAVTD+691 01166000 AVTHG01 EQU IEDQAVTD+692 01167000 AVTCKLNK EQU IEDQAVTD+696 01168000 AVTCRELE EQU IEDQAVTD+708 01169000 AVTCCELE EQU AVTCRELE 01170000 AVTCLRHI EQU IEDQAVTD+716 01171000 AVTADBUF EQU IEDQAVTD+720 01172000 AVTSYSER EQU IEDQAVTD+728 01173000 AVTBFRFG EQU IEDQAVTD+784 01174000 AVTCKPQB EQU IEDQAVTD+804 01175000 AVTCKPTB EQU AVTCKPQB 01176000 AVTCKPEC EQU AVTCKPQB+4 01177000 AVTCKPCC EQU AVTCKPEC 01178000 AVTOPCQB EQU IEDQAVTD+816 01179000 AVTOPCOB EQU AVTOPCQB 01180000 AVTOPCEC EQU AVTOPCQB+4 01181000 AVTOPCCC EQU AVTOPCEC 01182000 AVTOLTQB EQU IEDQAVTD+828 01183000 AVTCWFL1 EQU IEDQAVTD+924 01184000 AVTCWFL2 EQU IEDQAVTD+925 01185000 AVTSUBT EQU IEDQAVTD+948 01186000 AVTIOTR EQU IEDQAVTD+949 01187000 AVTBIT1 EQU IEDQAVTD+1050 01188000 AVTBIT2 EQU IEDQAVTD+1051 01189000 AVTBIT3 EQU IEDQAVTD+1052 01190000 AVTBIT4 EQU IEDQAVTD+1136 01191000 @NM00086 EQU IEDQAVTD+1232 01192000 IEDNSVTD EQU 0 01193000 SAVTDIAG EQU IEDNSVTD 01194000 SAVTDIAF EQU SAVTDIAG 01195000 SAVTLUSQ EQU IEDNSVTD+88 01196000 SAVTTCPU EQU IEDNSVTD+238 01197000 SAVTZELM EQU IEDNSVTD+270 01198000 SAVTRDRV EQU IEDNSVTD+284 01199000 SAVTCKQB EQU IEDNSVTD+300 01200000 SAVTCKTB EQU SAVTCKQB 01201000 SAVTCKEC EQU SAVTCKQB+4 01202000 SAVTCKCC EQU SAVTCKEC 01203000 SAVTNETF EQU IEDNSVTD+324 01204000 SAVTCDRV EQU IEDNSVTD+332 01205000 IEDQCCW EQU 0 01206000 CCW EQU IEDQCCW 01207000 CCWOPCDE EQU CCW 01208000 CCWADDR EQU CCW+1 01209000 CCWFLAGS EQU CCW+4 01210000 CCWCD EQU CCWFLAGS 01211000 CCWCC EQU CCWFLAGS 01212000 CVTMAP EQU 0 01213000 CVTXTLER EQU CVTMAP+44 01214000 CVTDAR EQU CVTMAP+72 01215000 CVTFLGS1 EQU CVTDAR 01216000 CVTSTB EQU CVTMAP+112 01217000 CVTDCB EQU CVTMAP+116 01218000 CVTIOQET EQU CVTMAP+120 01219000 CVTIERLC EQU CVTMAP+144 01220000 CVTHEAD EQU CVTMAP+160 01221000 CVTSV76C EQU CVTHEAD 01222000 CVTOPTA EQU CVTMAP+182 01223000 CVTOPTB EQU CVTMAP+183 01224000 CVTGTF EQU CVTMAP+236 01225000 CVTGTFST EQU CVTGTF 01226000 CVTGTFS EQU CVTGTFST 01227000 CVTSTATE EQU CVTGTFST 01228000 CVTTMODE EQU CVTGTFST 01229000 CVTFORM EQU CVTGTFST 01230000 CVTAQAVT EQU CVTMAP+240 01231000 CVTTCMFG EQU CVTAQAVT 01232000 CVTVOLM2 EQU CVTMAP+244 01233000 CVTTATA EQU CVTVOLM2 01234000 CVTTSKS EQU CVTTATA 01235000 CVTVOLF2 EQU CVTTSKS 01236000 CVTTAT EQU CVTTATA+1 01237000 CVTATER EQU CVTMAP+248 01238000 CVTEXT1 EQU CVTMAP+252 01239000 CVTPURG EQU CVTMAP+260 01240000 CVTQMSG EQU CVTMAP+268 01241000 CVTDMSR EQU CVTMAP+272 01242000 CVTRSV37 EQU CVTDMSR 01243000 CVTDMSRF EQU CVTRSV37 01244000 CVTPTRV EQU CVTMAP+288 01245000 CVTERPV EQU CVTMAP+316 01246000 CVTINTLA EQU CVTMAP+320 01247000 CVTAPF EQU CVTMAP+324 01248000 CVTEXT2 EQU CVTMAP+328 01249000 CVTHJES EQU CVTMAP+332 01250000 CVTPGSIA EQU CVTMAP+348 01251000 CVTA1F1 EQU CVTMAP+356 01252000 CVTSYSK EQU CVTMAP+357 01253000 CVTVOLM1 EQU CVTMAP+380 01254000 CVTVOLF1 EQU CVTVOLM1 01255000 CVTATMCT EQU CVTMAP+388 01256000 CVTXTNT1 EQU 0 01257000 CVTXTNT2 EQU 0 01258000 CVTDSSV EQU CVTXTNT2 01259000 CVTFLGBT EQU CVTXTNT2+5 01260000 CVTQID EQU CVTXTNT2+24 01261000 CVTRV400 EQU CVTXTNT2+52 01262000 CVTRV409 EQU CVTXTNT2+53 01263000 CVTATCVT EQU CVTXTNT2+64 01264000 CVTRV429 EQU CVTXTNT2+84 01265000 CVTRV438 EQU CVTXTNT2+85 01266000 CVTRV457 EQU CVTXTNT2+112 01267000 CVTRV466 EQU CVTXTNT2+113 01268000 CVTFIX EQU 0 01269000 CVTRELNO EQU CVTFIX+252 01270000 IHADCB EQU 0 01271000 IHADCS1A EQU 0 01272000 DCBBCKUP EQU IHADCS1A+8 01273000 IHADCS2K EQU 0 01274000 DCBDUMPD EQU IHADCS2K 01275000 DCBTRSTA EQU IHADCS2K+5 01276000 DCBDSORG EQU IHADCS2K+6 01277000 DCBDSRG2 EQU DCBDSORG+1 01278000 DCBRNCKD EQU IHADCS2K+12 01279000 DCBEXLST EQU IHADCS2K+16 01280000 DCBEIOBX EQU DCBEXLST 01281000 IHADCS24 EQU 0 01282000 DCBOFLGS EQU IHADCS24+8 01283000 DCBOFLWR EQU DCBOFLGS 01284000 DCBIFLG EQU IHADCS24+9 01285000 DCBIBPCT EQU DCBIFLG 01286000 DCBMACR EQU IHADCS24+10 01287000 DCBMACR1 EQU DCBMACR 01288000 DCBMRFE EQU DCBMACR1 01289000 DCBMRGET EQU DCBMRFE 01290000 DCBMRAPG EQU DCBMACR1 01291000 DCBMRRD EQU DCBMRAPG 01292000 DCBMRCI EQU DCBMACR1 01293000 DCBMRMVG EQU DCBMRCI 01294000 DCBMRLCG EQU DCBMACR1 01295000 DCBMRABC EQU DCBMACR1 01296000 DCBMRPT1 EQU DCBMRABC 01297000 DCBMRSBG EQU DCBMRPT1 01298000 DCBMRCRL EQU DCBMACR1 01299000 DCBMRCHK EQU DCBMRCRL 01300000 DCBMRRDX EQU DCBMRCHK 01301000 DCBMRDMG EQU DCBMACR1 01302000 DCBMACR2 EQU DCBMACR+1 01303000 DCBMRPUT EQU DCBMACR2 01304000 DCBMRWRT EQU DCBMACR2 01305000 DCBMRMVP EQU DCBMACR2 01306000 DCBMR5WD EQU DCBMACR2 01307000 DCBMRLDM EQU DCBMR5WD 01308000 DCBMRLCP EQU DCBMRLDM 01309000 DCBMR4WD EQU DCBMACR2 01310000 DCBMRPT2 EQU DCBMR4WD 01311000 DCBMRTMD EQU DCBMRPT2 01312000 DCBMR3WD EQU DCBMACR2 01313000 DCBMRCTL EQU DCBMR3WD 01314000 DCBMRSTK EQU DCBMRCTL 01315000 DCBMR1WD EQU DCBMACR2 01316000 DCBMRSWA EQU DCBMR1WD 01317000 DCBMRDMD EQU DCBMRSWA 01318000 IHADCS25 EQU 0 01319000 DCBMACRF EQU IHADCS25+2 01320000 DCBMACF1 EQU DCBMACRF 01321000 DCBMFFE EQU DCBMACF1 01322000 DCBMFGET EQU DCBMFFE 01323000 DCBMFAPG EQU DCBMACF1 01324000 DCBMFRD EQU DCBMFAPG 01325000 DCBMFCI EQU DCBMACF1 01326000 DCBMFMVG EQU DCBMFCI 01327000 DCBMFLCG EQU DCBMACF1 01328000 DCBMFABC EQU DCBMACF1 01329000 DCBMFPT1 EQU DCBMFABC 01330000 DCBMFSBG EQU DCBMFPT1 01331000 DCBMFCRL EQU DCBMACF1 01332000 DCBMFCHK EQU DCBMFCRL 01333000 DCBMFDMG EQU DCBMACF1 01334000 DCBMACF2 EQU DCBMACRF+1 01335000 DCBMFPUT EQU DCBMACF2 01336000 DCBMFWRT EQU DCBMACF2 01337000 DCBMFMVP EQU DCBMACF2 01338000 DCBMF5WD EQU DCBMACF2 01339000 DCBMFLDM EQU DCBMF5WD 01340000 DCBMFLCP EQU DCBMFLDM 01341000 DCBMF4WD EQU DCBMACF2 01342000 DCBMFPT2 EQU DCBMF4WD 01343000 DCBMFTMD EQU DCBMFPT2 01344000 DCBMF3WD EQU DCBMACF2 01345000 DCBMFCTL EQU DCBMF3WD 01346000 DCBMFSTK EQU DCBMFCTL 01347000 DCBMF1WD EQU DCBMACF2 01348000 DCBMFSWA EQU DCBMF1WD 01349000 DCBMFDMD EQU DCBMFSWA 01350000 DCBDEBAD EQU IHADCS25+4 01351000 DCBIFLGS EQU DCBDEBAD 01352000 DCBIFPCT EQU DCBIFLGS 01353000 IHADCS27 EQU 0 01354000 DCBGET EQU IHADCS27 01355000 DCBPUT EQU DCBGET 01356000 DCBGETA EQU DCBPUT+1 01357000 IHADCS43 EQU 0 01358000 DCBSCTAB EQU IHADCS43 01359000 IEDQDEB EQU 0 01360000 DEBPRF EQU IEDQDEB 01361000 DEBAPVT EQU DEBPRF 01362000 DEBSIOA EQU DEBAPVT+4 01363000 DEBNMEXT EQU IEDQDEB+52 01364000 DEBUCBS EQU IEDQDEB+68 01365000 IOSB EQU 0 01366000 IOSFLA EQU IOSB 01367000 IOSACHN EQU IOSFLA 01368000 IOSERR EQU IOSFLA 01369000 IOSEX EQU IOSFLA 01370000 IOSFLB EQU IOSB+1 01371000 IOSMSG EQU IOSFLB 01372000 IOSLOG EQU IOSFLB 01373000 IOSFLC EQU IOSB+2 01374000 IOSDVALT EQU IOSFLC 01375000 IOSPKEY EQU IOSB+12 01376000 IOSCOD EQU IOSB+13 01377000 IOSOPT EQU IOSB+14 01378000 IOSOPT2 EQU IOSB+15 01379000 IOSUCB EQU IOSB+16 01380000 @NM00123 EQU IOSB+20 01381000 IOSCC EQU @NM00123 01382000 IOSCSW EQU @NM00123+1 01383000 IOSCSWCA EQU IOSCSW 01384000 IOSTATUS EQU IOSCSW+3 01385000 IOSUSE EQU IOSB+32 01386000 IOSSNS EQU IOSB+42 01387000 IOSIPIB EQU IOSB+44 01388000 IOSERP EQU IOSB+52 01389000 IOSRST EQU IOSB+72 01390000 IOSVST EQU IOSB+76 01391000 IOSDSID EQU IOSB+80 01392000 IOSPATH EQU IOSB+86 01393000 IOSCHN EQU IOSPATH 01394000 IOSCKEY EQU IOSB+89 01395000 IOSEEKA EQU IOSB+100 01396000 IOSCCHH EQU IOSEEKA+3 01397000 IOSSKHH EQU IOSCCHH+2 01398000 EWA EQU 0 01399000 EWAHDR EQU EWA 01400000 EWAFLAGS EQU EWA+4 01401000 EWAFLG1 EQU EWAFLAGS 01402000 EWASCCD EQU EWAFLG1 01403000 EWASCC3 EQU EWASCCD 01404000 EWAFLG2 EQU EWAFLAGS+1 01405000 EWAFLG3 EQU EWAFLAGS+2 01406000 EWASNSCT EQU EWAFLAGS+3 01407000 EWACNTRS EQU EWA+10 01408000 EWAERPIB EQU EWA+16 01409000 EWARGFG1 EQU EWAERPIB+4 01410000 EWARGFG2 EQU EWAERPIB+5 01411000 EWAXCSW1 EQU EWAERPIB+6 01412000 EWAXCSW2 EQU EWAERPIB+7 01413000 EWADCNT EQU EWA+28 01414000 EWADDISP EQU EWA+29 01415000 EWAIERP EQU EWA+32 01416000 IEDQLCB EQU 0 01417000 LCBRCB EQU IEDQLCB 01418000 LCBTSOB EQU IEDQLCB+19 01419000 LCBCHAIN EQU IEDQLCB+20 01420000 LCBSCRNN EQU LCBCHAIN 01421000 LCBTETEN EQU LCBCHAIN 01422000 LCBINSRC EQU IEDQLCB+21 01423000 LCBLKMDE EQU LCBINSRC+2 01424000 LCBNTXT EQU IEDQLCB+24 01425000 LCBSTAT4 EQU LCBNTXT 01426000 LCBPHASE EQU LCBSTAT4 01427000 LCBSCBDA EQU IEDQLCB+25 01428000 LCBMHA EQU IEDQLCB+29 01429000 LCBFLAG1 EQU IEDQLCB+32 01430000 LCBIOBSN EQU IEDQLCB+33 01431000 LCBFLAG2 EQU LCBIOBSN 01432000 LCBSNS EQU LCBIOBSN+1 01433000 LCBSENS0 EQU LCBSNS 01434000 LCBCMDRJ EQU LCBSENS0 01435000 LCBINTRQ EQU LCBSENS0 01436000 LCBBUSCK EQU LCBSENS0 01437000 LCBEQUCK EQU LCBSENS0 01438000 LCBDATCK EQU LCBSENS0 01439000 LCBOVRUN EQU LCBSENS0 01440000 LCBLOSDT EQU LCBSENS0 01441000 LCBNOTIN EQU LCBLOSDT 01442000 LCBTMOUT EQU LCBSENS0 01443000 LCBECBCC EQU LCBIOBSN+3 01444000 LCBFLAG3 EQU LCBIOBSN+7 01445000 LCBRLAD EQU LCBFLAG3 01446000 LCBCSW EQU LCBIOBSN+8 01447000 LCBCSWCA EQU LCBCSW 01448000 LCBCSWST EQU LCBCSW+3 01449000 LCBCSWUS EQU LCBCSWST 01450000 LCBUSUC EQU LCBCSWUS 01451000 LCBCSWCS EQU LCBCSWST+1 01452000 LCBCSPCI EQU LCBCSWCS 01453000 LCBCSIL EQU LCBCSWCS 01454000 LCBCSPGC EQU LCBCSWCS 01455000 LCBCSPTC EQU LCBCSWCS 01456000 LCBCSCDC EQU LCBCSWCS 01457000 LCBCSCCC EQU LCBCSWCS 01458000 LCBCSICC EQU LCBCSWCS 01459000 LCBCSCHC EQU LCBCSWCS 01460000 LCBSIOCC EQU LCBIOBSN+15 01461000 LCBSIOC1 EQU LCBSIOCC 01462000 LCBSIOC2 EQU LCBSIOCC 01463000 LCBSTART EQU LCBIOBSN+16 01464000 LCBDCBPT EQU IEDQLCB+52 01465000 LCBRCQCB EQU IEDQLCB+56 01466000 LCBRESTR EQU LCBRCQCB 01467000 @NM00147 EQU IEDQLCB+60 01468000 LCBINCAM EQU @NM00147 01469000 LCBERRCT EQU IEDQLCB+62 01470000 LCBLSPCI EQU IEDQLCB+65 01471000 LCBRCBFR EQU LCBLSPCI 01472000 LCBSTATE EQU IEDQLCB+70 01473000 LCBSTAT1 EQU LCBSTATE 01474000 LCBSENDN EQU LCBSTAT1 01475000 LCBSTAT2 EQU LCBSTATE+1 01476000 LCBBEOTN EQU LCBSTAT2 01477000 LCBSYNC EQU LCBSTAT2 01478000 LCBDIAL EQU LCBSTAT2 01479000 LCBTSTSW EQU IEDQLCB+72 01480000 LCBERB EQU IEDQLCB+76 01481000 LCBERBST EQU IEDQLCB+84 01482000 LCBDLNKN EQU LCBERBST 01483000 LCBERBCT EQU IEDQLCB+88 01484000 LCBRBCT2 EQU LCBERBCT+1 01485000 LCBTTCIN EQU IEDQLCB+90 01486000 LCBMSGFM EQU IEDQLCB+92 01487000 LCBOBRCH EQU IEDQLCB+96 01488000 LCBERMSK EQU LCBOBRCH 01489000 LCBNXMOD EQU LCBERMSK 01490000 LCBSTAT7 EQU LCBNXMOD 01491000 LCBINVPT EQU LCBOBRCH+1 01492000 LCBBFRW EQU LCBINVPT 01493000 LCBTPCD EQU IEDQLCB+100 01494000 LCBSTAT5 EQU LCBTPCD 01495000 LCBSTAT6 EQU LCBTPCD+4 01496000 LCBRSPSV EQU LCBTPCD+8 01497000 LCBSAVSN EQU IEDQLCB+112 01498000 LCBSNSV EQU LCBSAVSN 01499000 LCBCSWSV EQU LCBSAVSN+1 01500000 LCBERCCW EQU IEDQLCB+120 01501000 LCBCPA EQU IEDQLCB+144 01502000 LCBCCW2 EQU LCBCPA+8 01503000 LCBCCW3 EQU LCBCPA+16 01504000 LCBCCW4 EQU LCBCPA+24 01505000 LCBCCW5 EQU LCBCPA+32 01506000 LCBATTEL EQU LCBCCW5 01507000 LCBQEBPL EQU LCBATTEL 01508000 LCBCCW7 EQU LCBCPA+48 01509000 IEDQLCBX EQU 0 01510000 LCBXCON EQU IEDQLCBX 01511000 LCBXFLAG EQU LCBXCON 01512000 LCBXDCT EQU LCBXCON+1 01513000 LCBXRADR EQU LCBXCON+4 01514000 IEDRQE EQU 0 01515000 RQEUCB EQU IEDRQE+2 01516000 RQEIOB EQU IEDRQE+5 01517000 RRQE EQU 0 01518000 IEDQTCXD EQU 0 01519000 TCXAVT EQU IEDQTCXD 01520000 TCXATTEN EQU IEDQTCXD+4 01521000 TCXFLAG1 EQU IEDQTCXD+34 01522000 TCXCC3TS EQU IEDQTCXD+35 01523000 TCXBUFA EQU IEDQTCXD+80 01524000 TCXDSAVE EQU IEDQTCXD+104 01525000 TCXERPPM EQU IEDQTCXD+128 01526000 TCXESAVE EQU IEDQTCXD+132 01527000 TCXQE8 EQU IEDQTCXD+216 01528000 IEDTRM EQU 0 01529000 IEDNTRM EQU IEDTRM 01530000 TRMINDEX EQU IEDNTRM 01531000 TRMCOHTG EQU IEDNTRM+2 01532000 TRMBYTE6 EQU TRMCOHTG 01533000 TRMCDF0 EQU TRMBYTE6 01534000 TRMBYTE5 EQU TRMCOHTG+1 01535000 TRMBYTE4 EQU IEDNTRM+4 01536000 TRMBYTE3 EQU IEDNTRM+5 01537000 TRMBYTE2 EQU IEDNTRM+6 01538000 TRMINPG EQU TRMBYTE2 01539000 TRMBYTE1 EQU IEDNTRM+7 01540000 TRMSCPRQ EQU TRMBYTE1 01541000 TRMBYTE0 EQU IEDNTRM+10 01542000 TRMNOWCD EQU TRMBYTE0 01543000 TRMSIBPT EQU IEDNTRM+11 01544000 TRMLTRAC EQU TRMSIBPT 01545000 TRMRLMCT EQU IEDNTRM+14 01546000 TRMLGBST EQU TRMRLMCT 01547000 IEDQTRM EQU IEDTRM+18 01548000 TRMSTATE EQU IEDQTRM 01549000 TRMLOG EQU TRMSTATE 01550000 TRMDESTQ EQU IEDQTRM+1 01551000 TRMRSTRT EQU TRMDESTQ+2 01552000 TRMINSEQ EQU IEDQTRM+4 01553000 TLISTCNT EQU TRMINSEQ 01554000 TRMSESCT EQU TLISTCNT 01555000 TRMOUTSQ EQU IEDQTRM+6 01556000 TLISTEN EQU TRMOUTSQ 01557000 TRMDSORG EQU TLISTEN 01558000 TRMPLIM EQU TLISTEN+1 01559000 TRMALTD EQU IEDQTRM+8 01560000 TRMPRILK EQU TRMALTD 01561000 TRMDEVFL EQU IEDQTRM+10 01562000 TRMADDC EQU TRMDEVFL 01563000 TRMNCPI EQU TRMDEVFL+1 01564000 TRMSTAT EQU IEDQTRM+12 01565000 TRMSIO EQU TRMSTAT 01566000 TRMOWNER EQU TRMSIO 01567000 UCB EQU 0 01568000 UCBOB EQU 0 01569000 UCBJBNR EQU UCBOB 01570000 UCBFL5 EQU UCBOB+1 01571000 UCBAF EQU UCBFL5 01572000 UCBSTAT EQU UCBOB+3 01573000 UCBCHAN EQU UCBOB+4 01574000 UCBSFLS EQU UCBOB+6 01575000 UCBFLA EQU UCBSFLS 01576000 UCBFL1 EQU UCBFLA 01577000 UCBBSY EQU UCBFL1 01578000 UCBNRY EQU UCBFL1 01579000 UCBPST EQU UCBFL1 01580000 UCBCUB EQU UCBFL1 01581000 UCBFLB EQU UCBSFLS+1 01582000 UCBCHM EQU UCBOB+8 01583000 UCBCHM1 EQU UCBCHM 01584000 UCBPTH0 EQU UCBCHM1 01585000 UCBPTH1 EQU UCBCHM1 01586000 UCBWGT EQU UCBOB+12 01587000 UCBNAME EQU UCBOB+13 01588000 UCBTYP EQU UCBOB+16 01589000 UCBTBYT1 EQU UCBTYP 01590000 UCB1FEA5 EQU UCBTBYT1 01591000 UCB1FEA6 EQU UCBTBYT1 01592000 UCBTBYT2 EQU UCBTYP+1 01593000 UCB2OPT2 EQU UCBTBYT2 01594000 UCBDUDN1 EQU UCB2OPT2 01595000 UCB2OPT3 EQU UCBTBYT2 01596000 UCBDUDN2 EQU UCB2OPT3 01597000 UCB2OPT4 EQU UCBTBYT2 01598000 UCBRWTAU EQU UCB2OPT4 01599000 UCB2OPT6 EQU UCBTBYT2 01600000 UCB2OPT7 EQU UCBTBYT2 01601000 UCBTBYT3 EQU UCBTYP+2 01602000 UCBDVCLS EQU UCBTBYT3 01603000 UCBTBYT4 EQU UCBTYP+3 01604000 UCBEXTPT EQU UCBOB+20 01605000 UCBFLC EQU UCBEXTPT 01606000 UCBDEV EQU UCBOB+24 01607000 UCBCMEXT EQU 0 01608000 UCBETI EQU UCBCMEXT 01609000 UCBATI EQU UCBCMEXT+3 01610000 @NM00234 EQU UCBATI 01611000 UCBFLP1 EQU UCBCMEXT+5 01612000 UCBMT EQU 0 01613000 UCBOCR EQU 0 01614000 UCB3540X EQU 0 01615000 UCBDKBYT EQU UCB3540X+6 01616000 UCB3800X EQU 0 01617000 UCBOPTNS EQU UCB3800X 01618000 UCBACTIV EQU UCB3800X+3 01619000 UCBMDRBF EQU UCB3800X+36 01620000 UCBUCS EQU 0 01621000 UCBUCSOP EQU UCBUCS+4 01622000 UCBFCBOP EQU UCBUCS+5 01623000 FIXED15 EQU 0 01624000 IGG019Q0 EQU 0 01625000 IEDQTNT EQU 0 01626000 CONVRV EQU 0 01627000 SIOAPNG EQU 0 01628000 CL0001@ EQU 0 01629000 DEBSUBR EQU 0 01630000 DSTSGBEG EQU 0 01631000 UCBBGN EQU 0 01632000 CVTS01 EQU CVTPGSIA 01633000 CVTLPDIA EQU CVTS01+12 01634000 CVTDIRST EQU CVTLPDIA 01635000 CVTSLIDA EQU CVTS01+24 01636000 CVTCTLFG EQU CVTS01+50 01637000 CVTRV210 EQU CVTS01+424 01638000 CVTRV219 EQU CVTS01+425 01639000 CVTRV228 EQU CVTS01+426 01640000 CVTRV237 EQU CVTS01+427 01641000 CVTMFRTR EQU CVTS01+452 01642000 CVTRV262 EQU CVTS01+468 01643000 CVTRV271 EQU CVTS01+469 01644000 CVTRV280 EQU CVTS01+470 01645000 CVTRV289 EQU CVTS01+471 01646000 CVTGSDA EQU CVTS01+600 01647000 IEDQDPTR EQU IOSDSID 01648000 DEBUCB EQU DEBUCBS 01649000 DEBDVMOD EQU DEBUCB 01650000 DEBUCBAD EQU DEBUCB+1 01651000 IOSATTSC EQU IOSIPIB 01652000 IOSWTOWA EQU IOSIPIB 01653000 IOSPCISC EQU IOSIPIB 01654000 EWAPTR EQU IOSERP 01655000 EWADDIOS EQU EWAIERP 01656000 LCBRSPIN EQU LCBIOBSN 01657000 LCBRHSV EQU LCBRSPIN+2 01658000 LCBLUSNS EQU LCBRSPIN+5 01659000 LCBSCPRS EQU LCBRSPIN+9 01660000 LCBCSWU1 EQU LCBSCPRS+2 01661000 LCBRSPFG EQU LCBRSPIN+15 01662000 LCBCOREQ EQU LCBTPCD 01663000 @NM00168 EQU LCBCPA+40 01664000 LCBQNX EQU LCBERCCW 01665000 LCBQNXMN EQU LCBQNX 01666000 LCBNX064 EQU LCBQNXMN 01667000 LCBNX142 EQU LCBQNXMN 01668000 LCBNX162 EQU LCBQNXMN 01669000 LCBSTSAV EQU LCBQNX+1 01670000 LCBUASZE EQU LCBQNX+20 01671000 LCBUNADD EQU LCBQNX+21 01672000 LCBCANCL EQU LCBSAVSN 01673000 LCBCANFG EQU LCBCANCL 01674000 FLC EQU PSA 01675000 PSARSVTE EQU PSARSVT 01676000 TCXPTR EQU CVTAQAVT 01677000 TRMDIALQ EQU TRMPLIM 01678000 @NM00213 EQU TRMSTATE 01679000 TRMCDFD0 EQU TRMBYTE5 01680000 TRMPRE1 EQU TRMBYTE4 01681000 TRMNCP1 EQU TRMBYTE4 01682000 TRMLU1 EQU TRMBYTE4 01683000 TRMLINK1 EQU TRMBYTE4 01684000 TRMDCONS EQU TRMLINK1 01685000 TRMPRE EQU TRMBYTE3 01686000 TRMNCP EQU TRMBYTE3 01687000 TRMIPLDM EQU TRMNCP 01688000 TRMPU EQU TRMBYTE3 01689000 TRMLU EQU TRMBYTE3 01690000 TRMCDMGR EQU TRMBYTE3 01691000 TRMLINK EQU TRMBYTE3 01692000 UCBPTR EQU IOSUCB 01693000 UCBOBS01 EQU UCBDEV 01694000 UCBSTAB EQU UCBOBS01+10 01695000 UCBBSVL EQU UCBSTAB 01696000 UCBPRSRS EQU UCBSTAB 01697000 UCBDMCT EQU UCBOBS01+11 01698000 UCBFL4 EQU UCBOBS01+13 01699000 UCBOBS02 EQU UCBDEV 01700000 UCBTFL1 EQU UCBOBS02+19 01701000 UCBXTN EQU UCBOBS02+20 01702000 UCBVOPT EQU UCBXTN 01703000 UCBOBS03 EQU UCBDEV 01704000 UCBXTADR EQU UCBOBS03 01705000 UCBOBS04 EQU UCBDEV 01706000 UCBBTA EQU UCBOBS04+12 01707000 UCBOBS06 EQU UCBDEV 01708000 UCBAOF EQU UCBOBS06 01709000 UCBAOF1 EQU UCBAOF 01710000 UCBAOF2 EQU UCBAOF+1 01711000 @NM00233 EQU UCBOBS06+3 01712000 UCBIRB EQU UCBOBS06+4 01713000 UCBGRAF EQU UCBIRB 01714000 UCBLDNCA EQU UCBOBS06+8 01715000 UCBRDYQ EQU UCBLDNCA 01716000 UCBIRLN EQU UCBRDYQ 01717000 UCBLDNCB EQU UCBRDYQ+1 01718000 UCBCTLNK EQU UCBOBS06+12 01719000 UCBOBS07 EQU UCBDEV 01720000 UCBOBS08 EQU UCBDEV 01721000 UCBCTCAD EQU UCBOBS08 01722000 UCBCTCF1 EQU UCBOBS08+4 01723000 UCBOBS09 EQU UCBDEV 01724000 MSG064 EQU EWAIERP 01725000 M064TXT EQU MSG064+4 01726000 M064CUA EQU M064TXT+13 01727000 ETW EQU EWAIERP 01728000 EWTCSIO EQU ETW+4 01729000 EWTCFLG EQU ETW+10 01730000 EWTCSNL EQU ETW+20 01731000 EWTCCSW EQU ETW+25 01732000 EWTCCCW EQU ETW+32 01733000 TICCHK EQU CCWOPCDE 01734000 NOTTIC1 EQU TICCHK 01735000 NOTTIC2 EQU TICCHK 01736000 NOTTIC3 EQU TICCHK 01737000 OPCDESAV EQU LCBRESTR 01738000 DIOSUCB EQU IOSUCB 01739000 DIOSUCBP EQU DIOSUCB+2 01740000 TRMOPT EQU IEDQTRM+20 01741000 TRMPOOLP EQU TRMINSEQ 01742000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01743000 @NM00237 EQU DIOSUCB 01744000 @NM00236 EQU TICCHK 01745000 EWTCSAV2 EQU ETW+48 01746000 EWTCSAV1 EQU ETW+44 01747000 EWTCBUFF EQU ETW+40 01748000 EWTCRSV2 EQU ETW+24 01749000 EWTCRSV1 EQU ETW+22 01750000 EWTCSNF EQU ETW+21 01751000 EWTCTRM EQU ETW+12 01752000 EWTCGRA EQU ETW+11 01753000 @NM00235 EQU EWTCFLG 01754000 EWTCSEL EQU EWTCFLG 01755000 EWTCEOD EQU EWTCFLG 01756000 EWTCOVF EQU EWTCFLG 01757000 EWTCTEM EQU EWTCFLG 01758000 EWTCTPF EQU ETW+9 01759000 EWTCTPL EQU ETW+8 01760000 EWTCMSK EQU ETW+7 01761000 EWTCTMP EQU ETW+6 01762000 EWTCTID EQU ETW+2 01763000 EWTCSNS EQU ETW 01764000 M064FLG EQU MSG064+2 01765000 M064LEN EQU MSG064 01766000 UCBRV066 EQU UCBOBS09+4 01767000 UCBIOSBA EQU UCBOBS09 01768000 UCBRV042 EQU UCBOBS08+5 01769000 UCBRV082 EQU UCBCTCF1 01770000 UCBRV081 EQU UCBCTCF1 01771000 UCBRV080 EQU UCBCTCF1 01772000 UCBRV079 EQU UCBCTCF1 01773000 UCBRV078 EQU UCBCTCF1 01774000 UCBRV077 EQU UCBCTCF1 01775000 UCBRV076 EQU UCBCTCF1 01776000 UCBCTC80 EQU UCBCTCF1 01777000 UCBCTCAL EQU UCBCTCAD 01778000 UCBICNCB EQU UCBOBS07+4 01779000 UCBRV040 EQU UCBOBS07 01780000 UCBCTLNA EQU UCBCTLNK+1 01781000 UCBRLN EQU UCBCTLNK 01782000 UCBRDYQA EQU UCBLDNCB 01783000 UCBINRLN EQU UCBIRLN 01784000 UCBIRBA EQU UCBIRB+1 01785000 UCBRV039 EQU UCBGRAF 01786000 UCBDWNR EQU UCBGRAF 01787000 UCBRPND EQU UCBGRAF 01788000 UCBUPM EQU UCBGRAF 01789000 UCBBTAM EQU UCBGRAF 01790000 UCBDRNO EQU UCBGRAF 01791000 UCBDRO EQU UCBGRAF 01792000 UCBOIP EQU UCBGRAF 01793000 UCBATRCD EQU @NM00233 01794000 UCBSKPFG EQU @NM00233 01795000 UCBRIPND EQU @NM00233 01796000 UCBRTIAC EQU @NM00233 01797000 UCBRSV79 EQU @NM00233 01798000 UCBRSV78 EQU @NM00233 01799000 UCBRSV77 EQU @NM00233 01800000 UCBOLTEP EQU @NM00233 01801000 UCBATNCT EQU UCBOBS06+2 01802000 UCBRSV76 EQU UCBAOF2 01803000 UCBRSV75 EQU UCBAOF2 01804000 UCBRSV74 EQU UCBAOF2 01805000 UCBRSV73 EQU UCBAOF2 01806000 UCBRSV72 EQU UCBAOF2 01807000 UCBRSV71 EQU UCBAOF2 01808000 UCBRSV70 EQU UCBAOF2 01809000 UCBRSV69 EQU UCBAOF2 01810000 UCBRSV68 EQU UCBAOF1 01811000 UCBRSV67 EQU UCBAOF1 01812000 UCBRSV66 EQU UCBAOF1 01813000 UCBRSV65 EQU UCBAOF1 01814000 UCBRSV64 EQU UCBAOF1 01815000 UCBOFNL EQU UCBAOF1 01816000 UCBOFSP EQU UCBAOF1 01817000 UCBOFMCR EQU UCBAOF1 01818000 UCBBTB EQU UCBBTA+1 01819000 UCBDI EQU UCBBTA 01820000 UCBSNS EQU UCBOBS04+8 01821000 UCBTEB EQU UCBOBS04+4 01822000 UCBGCB EQU UCBOBS04+3 01823000 UCBOPEN EQU UCBOBS04+2 01824000 UCBSTART EQU UCBOBS04 01825000 UCBXTNB EQU UCBXTN+1 01826000 UCBRSV22 EQU UCBVOPT 01827000 UCBRSV21 EQU UCBVOPT 01828000 UCBRSV20 EQU UCBVOPT 01829000 UCBESVE EQU UCBVOPT 01830000 UCBERPC EQU UCBVOPT 01831000 UCBESVC EQU UCBVOPT 01832000 UCBEVA EQU UCBVOPT 01833000 UCBESV EQU UCBVOPT 01834000 UCBRV009 EQU UCBTFL1 01835000 UCBRV008 EQU UCBTFL1 01836000 UCBRV007 EQU UCBTFL1 01837000 UCBRV006 EQU UCBTFL1 01838000 UCBRV005 EQU UCBTFL1 01839000 UCBDQDSP EQU UCBTFL1 01840000 UCBNSLTP EQU UCBTFL1 01841000 UCBNLTP EQU UCBTFL1 01842000 UCBRES1B EQU UCBOBS02+18 01843000 UCBFSER EQU UCBOBS02+12 01844000 @NM00232 EQU UCBOBS02+4 01845000 UCBFSEQ EQU UCBOBS02+2 01846000 UCBFSCT EQU UCBOBS02 01847000 UCBNEXP EQU UCBOBS01+20 01848000 UCBBASE EQU UCBOBS01+16 01849000 UCBRES1A EQU UCBOBS01+15 01850000 UCBUSER EQU UCBOBS01+14 01851000 UCBFL47 EQU UCBFL4 01852000 UCBFL46 EQU UCBFL4 01853000 UCBFL45 EQU UCBFL4 01854000 UCBRV065 EQU UCBFL4 01855000 UCBDSS EQU UCBFL4 01856000 UCBRESVP EQU UCBFL4 01857000 UCBWDAV EQU UCBFL4 01858000 UCBDAVV EQU UCBFL4 01859000 UCBSQC EQU UCBOBS01+12 01860000 UCBDATP EQU UCBOBS01+12 01861000 UCBDMC EQU UCBDMCT 01862000 UCBMOUNT EQU UCBDMCT 01863000 UCBBNUL EQU UCBSTAB 01864000 UCBSHAR EQU UCBSTAB 01865000 UCBBSTR EQU UCBSTAB 01866000 UCBBPUB EQU UCBSTAB 01867000 UCBBPRV EQU UCBSTAB 01868000 UCBBALB EQU UCBPRSRS 01869000 UCBPGFL EQU UCBSTAB 01870000 UCBDVSHR EQU UCBBSVL 01871000 UCBVOLI EQU UCBOBS01+4 01872000 UCBVTOC EQU UCBOBS01 01873000 TRMLDISC EQU TRMLINK 01874000 @NM00230 EQU TRMLINK 01875000 TRMLALOC EQU TRMLINK 01876000 TRMLSTAT EQU TRMLINK 01877000 TRMLINT EQU TRMLINK 01878000 TRMEPMOD EQU TRMLINK 01879000 TRMCDLOG EQU TRMCDMGR 01880000 @NM00229 EQU TRMCDMGR 01881000 @NM00228 EQU TRMCDMGR 01882000 @NM00227 EQU TRMCDMGR 01883000 @NM00226 EQU TRMCDMGR 01884000 @NM00225 EQU TRMCDMGR 01885000 TRMBKDUP EQU TRMCDMGR 01886000 TRMLULOG EQU TRMLU 01887000 @NM00224 EQU TRMLU 01888000 @NM00223 EQU TRMLU 01889000 @NM00222 EQU TRMLU 01890000 TRMTDIFF EQU TRMLU 01891000 @NM00221 EQU TRMLU 01892000 @NM00220 EQU TRMLU 01893000 TRMAUTO EQU TRMLU 01894000 TRMPCONT EQU TRMPU 01895000 TRMPDOCQ EQU TRMPU 01896000 TRMPULOC EQU TRMPU 01897000 TRMPDNAS EQU TRMPU 01898000 TRMPALOC EQU TRMPU 01899000 TRMNCONT EQU TRMNCP 01900000 TRMQUCKN EQU TRMNCP 01901000 TRMSLOWN EQU TRMNCP 01902000 TRMSYGEN EQU TRMNCP 01903000 TRMNCPCL EQU TRMNCP 01904000 TRMINOUT EQU TRMPRE 01905000 TRMRDOUT EQU TRMPRE 01906000 TRMNLOUT EQU TRMPRE 01907000 TRMWROUT EQU TRMPRE 01908000 TRMASNXI EQU TRMPRE 01909000 TRMSTMM EQU TRMPRE 01910000 TRMCMODE EQU TRMPRE 01911000 TRMSTPND EQU TRMPRE 01912000 TRMNCPLK EQU TRMLINK1 01913000 @NM00219 EQU TRMLINK1 01914000 TRMDCONN EQU TRMDCONS 01915000 TRMDCOP EQU TRMDCONS 01916000 TRMPMARY EQU TRMLU1 01917000 @NM00218 EQU TRMLU1 01918000 @NM00217 EQU TRMLU1 01919000 TRMCDSRQ EQU TRMLU1 01920000 TRMLSCVP EQU TRMLU1 01921000 @NM00216 EQU TRMLU1 01922000 @NM00215 EQU TRMNCP1 01923000 TRMANS EQU TRMNCP1 01924000 TRMLINOP EQU TRMNCP1 01925000 TRMINOP EQU TRMNCP1 01926000 TRMLYNCH EQU TRMPRE1 01927000 TRMSPOUT EQU TRMPRE1 01928000 TRMERLCK EQU TRMPRE1 01929000 TRMQNPL EQU TRMPRE1 01930000 TRMSPACT EQU TRMPRE1 01931000 TRMOCNI EQU TRMPRE1 01932000 TRMSESSN EQU TRMPRE1 01933000 TRMCONT EQU TRMPRE1 01934000 TRMINERR EQU TRMCDFD0 01935000 TRMLUTM EQU TRMCDFD0 01936000 TRMLUIT EQU TRMCDFD0 01937000 TRMLUREQ EQU TRMCDFD0 01938000 TRMCDPRE EQU TRMCDFD0 01939000 TRMWASCD EQU TRMCDFD0 01940000 TRMSRPFG EQU TRMCDFD0 01941000 TRMSESRQ EQU TRMCDFD0 01942000 @NM00214 EQU @NM00213 01943000 TRMENTRY EQU @NM00213 01944000 TRMSRPTR EQU TRMDIALQ 01945000 PSARSAV EQU PSARSVTE+60 01946000 PSARSTK EQU PSARSVTE+56 01947000 PSAESAV3 EQU PSARSVTE+52 01948000 PSAESTK3 EQU PSARSVTE+48 01949000 PSAESAV2 EQU PSARSVTE+44 01950000 PSAESTK2 EQU PSARSVTE+40 01951000 PSAESAV1 EQU PSARSVTE+36 01952000 PSAESTK1 EQU PSARSVTE+32 01953000 PSAPSAV EQU PSARSVTE+28 01954000 PSAPSTK EQU PSARSVTE+24 01955000 PSAMSAV EQU PSARSVTE+20 01956000 PSAMSTK EQU PSARSVTE+16 01957000 PSASSAV EQU PSARSVTE+12 01958000 PSASSTK EQU PSARSVTE+8 01959000 PSANSTK EQU PSARSVTE+4 01960000 PSACSTK EQU PSARSVTE 01961000 @NM00175 EQU LCBCANCL+3 01962000 LCBCANTH EQU LCBCANCL+1 01963000 @NM00174 EQU LCBCANFG 01964000 LCBCANCD EQU LCBCANFG 01965000 @NM00173 EQU LCBCANFG 01966000 LCBCANEB EQU LCBCANFG 01967000 LCBCANXT EQU LCBCANFG 01968000 LCBDSTEA EQU LCBQNX+16 01969000 @NM00172 EQU LCBQNX+8 01970000 LCBIOSBS EQU LCBQNX+5 01971000 @NM00171 EQU LCBQNX+4 01972000 @NM00170 EQU LCBQNXMN 01973000 LCBNX509 EQU LCBQNXMN 01974000 LCBSIBPT EQU @NM00168+8 01975000 LCBSUSPT EQU @NM00168+4 01976000 LCBNCPPT EQU @NM00168+1 01977000 @NM00169 EQU @NM00168 01978000 LCBWRSCH EQU LCBCOREQ+8 01979000 LCBCQLNK EQU LCBCOREQ+4 01980000 LCBCQELE EQU LCBCOREQ 01981000 LCBPAKCH EQU LCBRSPIN+16 01982000 @NM00167 EQU LCBRSPFG 01983000 LCBIMRSP EQU LCBRSPFG 01984000 LCBPRSPO EQU LCBRSPFG 01985000 LCBRSRH EQU LCBRSPFG 01986000 LCBEXPI EQU LCBRSPFG 01987000 @NM00166 EQU LCBRSPIN+12 01988000 LCBUSUE1 EQU LCBCSWU1 01989000 @NM00165 EQU LCBCSWU1 01990000 @NM00164 EQU LCBSCPRS+1 01991000 LCBDFCMD EQU LCBSCPRS 01992000 LCBUSER EQU LCBLUSNS+2 01993000 LCBSMIN EQU LCBLUSNS+1 01994000 LCBSMAJ EQU LCBLUSNS 01995000 LCBPACRS EQU LCBRHSV 01996000 @NM00163 EQU LCBRHSV 01997000 LCBSNS0 EQU LCBRSPIN+1 01998000 @NM00162 EQU LCBRSPIN 01999000 EWAEND EQU EWADDIOS+71 02000000 EWASCSW EQU EWADDIOS+64 02001000 EWASNS EQU EWADDIOS 02002000 IOSPCIWA EQU IOSPCISC+44 02003000 IOSPCIRS EQU IOSPCISC+8 02004000 @NM00128 EQU IOSPCISC+4 02005000 @NM00127 EQU IOSPCISC 02006000 IOSWRNDR EQU IOSWTOWA+4 02007000 IOSWTOPT EQU IOSWTOWA+3 02008000 IOSWTOCP EQU IOSWTOWA+2 02009000 IOSWTOCH EQU IOSWTOWA 02010000 IOSATTWA EQU IOSATTSC+40 02011000 @NM00126 EQU IOSATTSC+24 02012000 IOSATTSN EQU IOSATTSC 02013000 CVTRV628 EQU CVTS01+728 02014000 CVTRV627 EQU CVTS01+724 02015000 CVTRV626 EQU CVTS01+720 02016000 CVTRV625 EQU CVTS01+716 02017000 CVTRV624 EQU CVTS01+712 02018000 CVTRV623 EQU CVTS01+708 02019000 CVTRV622 EQU CVTS01+704 02020000 CVTRV621 EQU CVTS01+700 02021000 CVTIHASU EQU CVTS01+696 02022000 CVTRV619 EQU CVTS01+692 02023000 CVTRV618 EQU CVTS01+688 02024000 CVTRV617 EQU CVTS01+684 02025000 CVTRV616 EQU CVTS01+680 02026000 CVTRV615 EQU CVTS01+676 02027000 CVTRV614 EQU CVTS01+672 02028000 CVTRV613 EQU CVTS01+668 02029000 CVTTCASP EQU CVTS01+664 02030000 CVT0PT03 EQU CVTS01+660 02031000 CVT0PT0E EQU CVTS01+656 02032000 CVTRV609 EQU CVTS01+652 02033000 CVTCGK EQU CVTS01+648 02034000 CVTRAC EQU CVTS01+644 02035000 CVTHSM EQU CVTS01+640 02036000 CVTRV605 EQU CVTS01+636 02037000 CVTRV604 EQU CVTS01+632 02038000 CVTEFF02 EQU CVTS01+628 02039000 CVTCBBR EQU CVTS01+624 02040000 CVTSSCR EQU CVTS01+620 02041000 CVTEVENT EQU CVTS01+616 02042000 CVTCRCA EQU CVTS01+612 02043000 CVTTPIO EQU CVTS01+608 02044000 CVTADV EQU CVTS01+604 02045000 CVTGSDAB EQU CVTGSDA 02046000 CVTQV3 EQU CVTS01+596 02047000 CVTQV2 EQU CVTS01+592 02048000 CVTQV1 EQU CVTS01+588 02049000 CVTRPT EQU CVTS01+584 02050000 CVTSSRB EQU CVTS01+580 02051000 CVTCSDRL EQU CVTS01+576 02052000 CVTEXP1 EQU CVTS01+572 02053000 CVTRMPMT EQU CVTS01+568 02054000 CVTRMPTT EQU CVTS01+564 02055000 CVTVPSA EQU CVTS01+560 02056000 CVTVSTOP EQU CVTS01+556 02057000 CVTGTFR8 EQU CVTS01+552 02058000 CVTQUIT EQU CVTS01+548 02059000 CVTVACR EQU CVTS01+544 02060000 CVTWTCB EQU CVTS01+540 02061000 CVTSTPRS EQU CVTS01+536 02062000 CVT0PT02 EQU CVTS01+532 02063000 CVTDARCM EQU CVTS01+528 02064000 CVTIRECM EQU CVTS01+524 02065000 CVTJRECM EQU CVTS01+520 02066000 CVTVEMS0 EQU CVTS01+516 02067000 CVTSPFRR EQU CVTS01+512 02068000 CVTRLSTG EQU CVTS01+508 02069000 CVT0TC0A EQU CVTS01+504 02070000 CVTGMBR EQU CVTS01+500 02071000 CVTLFRM EQU CVTS01+496 02072000 CVTRMBR EQU CVTS01+492 02073000 CVTVIOP EQU CVTS01+488 02074000 CVTRV307 EQU CVTS01+486 02075000 CVTRV306 EQU CVTS01+484 02076000 CVTRV305 EQU CVTS01+482 02077000 CVTRV304 EQU CVTS01+480 02078000 CVTRV303 EQU CVTS01+478 02079000 CVTRV302 EQU CVTS01+476 02080000 CVTTRCA EQU CVTS01+472 02081000 CVTRV297 EQU CVTRV289 02082000 CVTRV296 EQU CVTRV289 02083000 CVTRV295 EQU CVTRV289 02084000 CVTRV294 EQU CVTRV289 02085000 CVTRV293 EQU CVTRV289 02086000 CVTRV292 EQU CVTRV289 02087000 CVTRV291 EQU CVTRV289 02088000 CVTRV290 EQU CVTRV289 02089000 CVTRV288 EQU CVTRV280 02090000 CVTRV287 EQU CVTRV280 02091000 CVTRV286 EQU CVTRV280 02092000 CVTRV285 EQU CVTRV280 02093000 CVTRV284 EQU CVTRV280 02094000 CVTRV283 EQU CVTRV280 02095000 CVTRV282 EQU CVTRV280 02096000 CVTRV281 EQU CVTRV280 02097000 CVTRV279 EQU CVTRV271 02098000 CVTRV278 EQU CVTRV271 02099000 CVTRV277 EQU CVTRV271 02100000 CVTRV276 EQU CVTRV271 02101000 CVTRV275 EQU CVTRV271 02102000 CVTRV274 EQU CVTRV271 02103000 CVTRV273 EQU CVTRV271 02104000 CVTRV272 EQU CVTRV271 02105000 CVTRV270 EQU CVTRV262 02106000 CVTRV269 EQU CVTRV262 02107000 CVTRV268 EQU CVTRV262 02108000 CVTRV267 EQU CVTRV262 02109000 CVTRV266 EQU CVTRV262 02110000 CVTRV265 EQU CVTRV262 02111000 CVTRV264 EQU CVTRV262 02112000 CVTRV263 EQU CVTRV262 02113000 CVTVFP EQU CVTS01+464 02114000 CVTVSI EQU CVTS01+460 02115000 CVTVPSIB EQU CVTS01+456 02116000 CVTMFACT EQU CVTMFRTR 02117000 CVTMFCTL EQU CVTS01+448 02118000 CVTPVBP EQU CVTS01+444 02119000 CVTPWI EQU CVTS01+440 02120000 CVTRV254 EQU CVTS01+438 02121000 CVTRV253 EQU CVTS01+436 02122000 CVTRV252 EQU CVTS01+434 02123000 CVTRV251 EQU CVTS01+433 02124000 CVTRV250 EQU CVTS01+432 02125000 CVTRV249 EQU CVTS01+431 02126000 CVTRV248 EQU CVTS01+430 02127000 CVTRV247 EQU CVTS01+429 02128000 CVTRV246 EQU CVTS01+428 02129000 CVTRV245 EQU CVTRV237 02130000 CVTRV244 EQU CVTRV237 02131000 CVTRV243 EQU CVTRV237 02132000 CVTRV242 EQU CVTRV237 02133000 CVTRV241 EQU CVTRV237 02134000 CVTRV240 EQU CVTRV237 02135000 CVTRV239 EQU CVTRV237 02136000 CVTRV238 EQU CVTRV237 02137000 CVTRV236 EQU CVTRV228 02138000 CVTRV235 EQU CVTRV228 02139000 CVTRV234 EQU CVTRV228 02140000 CVTRV233 EQU CVTRV228 02141000 CVTRV232 EQU CVTRV228 02142000 CVTRV231 EQU CVTRV228 02143000 CVTRV230 EQU CVTRV228 02144000 CVTRV229 EQU CVTRV228 02145000 CVTRV227 EQU CVTRV219 02146000 CVTRV226 EQU CVTRV219 02147000 CVTRV225 EQU CVTRV219 02148000 CVTRV224 EQU CVTRV219 02149000 CVTRV223 EQU CVTRV219 02150000 CVTRV222 EQU CVTRV219 02151000 CVTRV221 EQU CVTRV219 02152000 CVTRV220 EQU CVTRV219 02153000 CVTRV218 EQU CVTRV210 02154000 CVTRV217 EQU CVTRV210 02155000 CVTRV216 EQU CVTRV210 02156000 CVTRV215 EQU CVTRV210 02157000 CVTRV214 EQU CVTRV210 02158000 CVTRV213 EQU CVTRV210 02159000 CVTRV212 EQU CVTRV210 02160000 CVTRV211 EQU CVTRV210 02161000 CVTLCCAT EQU CVTS01+420 02162000 CVTPCCAT EQU CVTS01+416 02163000 CVTIPCRP EQU CVTS01+412 02164000 CVTIPCRI EQU CVTS01+408 02165000 CVTIPCDS EQU CVTS01+404 02166000 CVTAIDVT EQU CVTS01+400 02167000 CVTSSAP EQU CVTS01+396 02168000 CVTEHCIR EQU CVTS01+392 02169000 CVTEHDEF EQU CVTS01+388 02170000 CVTDAIR EQU CVTS01+384 02171000 CVTPERFM EQU CVTS01+380 02172000 CVT044R2 EQU CVTS01+376 02173000 CVTFETCH EQU CVTS01+372 02174000 CVTRSTWD EQU CVTS01+368 02175000 CVTSPOST EQU CVTS01+364 02176000 CVTIOBP EQU CVTS01+360 02177000 CVTASMVT EQU CVTS01+356 02178000 CVTRECRQ EQU CVTS01+352 02179000 CVTWSAC EQU CVTS01+348 02180000 CVTRV149 EQU CVTS01+344 02181000 CVTWSAL EQU CVTS01+340 02182000 CVTSPSA EQU CVTS01+336 02183000 CVTGLMN EQU CVTS01+332 02184000 CVTVEAC0 EQU CVTS01+328 02185000 CVT062R1 EQU CVTS01+324 02186000 CVTRPOST EQU CVTS01+320 02187000 CVTDQIQE EQU CVTS01+316 02188000 CVTCSD EQU CVTS01+312 02189000 CVTLKRMA EQU CVTS01+308 02190000 CVTRSPIE EQU CVTS01+304 02191000 CVTRENQ EQU CVTS01+300 02192000 CVTLQCB EQU CVTS01+296 02193000 CVTFQCB EQU CVTS01+292 02194000 CVTQCS01 EQU CVTS01+288 02195000 CVTAPFT EQU CVTS01+284 02196000 CVTPARRL EQU CVTS01+280 02197000 CVTVWAIT EQU CVTS01+276 02198000 CVTGSPL EQU CVTS01+272 02199000 CVTLSMQ EQU CVTS01+268 02200000 CVTGSMQ EQU CVTS01+264 02201000 CVTEXPRO EQU CVTS01+260 02202000 CVTOPCTP EQU CVTS01+256 02203000 CVTSIC EQU CVTS01+252 02204000 CVTTPIOS EQU CVTS01+248 02205000 CVTRTMS EQU CVTS01+244 02206000 CVTSDBF EQU CVTS01+240 02207000 CVTSCBP EQU CVTS01+236 02208000 CVTSDMP EQU CVTS01+232 02209000 CVTSV60 EQU CVTS01+228 02210000 CVTRTMCT EQU CVTS01+224 02211000 CVTASCBL EQU CVTS01+220 02212000 CVTASCBH EQU CVTS01+216 02213000 CVTGDA EQU CVTS01+212 02214000 CVTASVT EQU CVTS01+208 02215000 CVTVVMDI EQU CVTS01+204 02216000 CVTAQTOP EQU CVTS01+200 02217000 CVTIOSCS EQU CVTS01+196 02218000 CVTSDRM EQU CVTS01+192 02219000 CVTOPTE EQU CVTS01+188 02220000 CVTSTXU EQU CVTS01+184 02221000 CVTQUIS EQU CVTS01+180 02222000 CVTPARS EQU CVTS01+176 02223000 CVTS1EE EQU CVTS01+172 02224000 CVTFRAS EQU CVTS01+168 02225000 CVTQSAS EQU CVTS01+164 02226000 CVTCRAS EQU CVTS01+160 02227000 CVTCRMN EQU CVTS01+156 02228000 CVTDELCP EQU CVTS01+152 02229000 CVTFRECL EQU CVTS01+148 02230000 CVTGETCL EQU CVTS01+144 02231000 CVTBLDCP EQU CVTS01+140 02232000 CVTAUTHL EQU CVTS01+136 02233000 CVTSCAN EQU CVTS01+132 02234000 CVTRV144 EQU CVTS01+130 02235000 CVTMAXMP EQU CVTS01+128 02236000 CVTSTCK EQU CVTS01+124 02237000 CVTRV139 EQU CVTS01+123 02238000 CVTDSSAC EQU CVTS01+122 02239000 CVTRV513 EQU CVTS01+121 02240000 CVTIOSPL EQU CVTS01+120 02241000 CVTPTGT EQU CVTS01+116 02242000 CVTCSPIE EQU CVTS01+112 02243000 CVTSMFEX EQU CVTS01+108 02244000 CVTOLT0A EQU CVTS01+104 02245000 CVTSRBRT EQU CVTS01+100 02246000 CVTPUTL EQU CVTS01+96 02247000 CVTASCRL EQU CVTS01+92 02248000 CVTASCRF EQU CVTS01+88 02249000 CVTRV326 EQU CVTS01+84 02250000 CVTRV325 EQU CVTS01+80 02251000 CVTRV324 EQU CVTS01+76 02252000 CVT0VL01 EQU CVTS01+72 02253000 CVTSHRVM EQU CVTS01+68 02254000 CVTRV332 EQU CVTS01+64 02255000 CVTTAS EQU CVTS01+60 02256000 CVTRSCN EQU CVTS01+56 02257000 CVTTRAC2 EQU CVTS01+54 02258000 CVTTRACE EQU CVTS01+52 02259000 CVTAPG EQU CVTS01+51 02260000 CVTSDTRC EQU CVTCTLFG 02261000 CVTGTRCE EQU CVTCTLFG 02262000 CVTNOMP EQU CVTCTLFG 02263000 CVTRSV79 EQU CVTCTLFG 02264000 CVTDSTAT EQU CVTCTLFG 02265000 CVTRSV78 EQU CVTCTLFG 02266000 CVTRV333 EQU CVTCTLFG 02267000 CVTRV323 EQU CVTCTLFG 02268000 CVTSPVLK EQU CVTS01+49 02269000 CVTRSV77 EQU CVTS01+48 02270000 CVTRV331 EQU CVTS01+44 02271000 CVTRV330 EQU CVTS01+40 02272000 CVTRV329 EQU CVTS01+36 02273000 CVTRV328 EQU CVTS01+32 02274000 CVTRV322 EQU CVTS01+28 02275000 CVTSLID EQU CVTSLIDA+1 02276000 CVTSYLK EQU CVTSLIDA 02277000 CVTRV321 EQU CVTS01+20 02278000 CVTRV320 EQU CVTS01+16 02279000 CVTLPDIR EQU CVTLPDIA+1 02280000 CVTRSV69 EQU CVTDIRST 02281000 CVTRSV68 EQU CVTDIRST 02282000 CVTRSV67 EQU CVTDIRST 02283000 CVTRSV66 EQU CVTDIRST 02284000 CVTRSV65 EQU CVTDIRST 02285000 CVTRSV64 EQU CVTDIRST 02286000 CVTRSV63 EQU CVTDIRST 02287000 CVTDICOM EQU CVTDIRST 02288000 CVTPVTP EQU CVTS01+8 02289000 CVTLPDSR EQU CVTS01+4 02290000 CVTGETL EQU CVTS01 02291000 UCBERADR EQU UCBUCS+12 02292000 UCBFCBID EQU UCBUCS+8 02293000 UCBERCNT EQU UCBUCS+7 02294000 UCBRSV51 EQU UCBUCS+6 02295000 UCBFCBPE EQU UCBFCBOP 02296000 UCBRSV49 EQU UCBFCBOP 02297000 UCBRSV48 EQU UCBFCBOP 02298000 UCBRSV47 EQU UCBFCBOP 02299000 UCBRSV46 EQU UCBFCBOP 02300000 UCBRSV45 EQU UCBFCBOP 02301000 UCBRSV44 EQU UCBFCBOP 02302000 UCBFCBO1 EQU UCBFCBOP 02303000 UCBUCSPE EQU UCBUCSOP 02304000 UCBRSV43 EQU UCBUCSOP 02305000 UCBRSV42 EQU UCBUCSOP 02306000 UCBRSV41 EQU UCBUCSOP 02307000 UCBRSV40 EQU UCBUCSOP 02308000 UCBRSV39 EQU UCBUCSOP 02309000 UCBUCSO2 EQU UCBUCSOP 02310000 UCBUCSO1 EQU UCBUCSOP 02311000 UCBUCSID EQU UCBUCS 02312000 UCBMDRBA EQU UCBMDRBF+1 02313000 UCBRV075 EQU UCBMDRBF 02314000 UCBRV074 EQU UCB3800X+32 02315000 UCBIMAGE EQU UCB3800X+28 02316000 UCBFCBNM EQU UCB3800X+24 02317000 UCBCHAR4 EQU UCB3800X+20 02318000 UCBCHAR3 EQU UCB3800X+16 02319000 UCBCHAR2 EQU UCB3800X+12 02320000 UCBCHAR1 EQU UCB3800X+8 02321000 UCBCGMID EQU UCB3800X+4 02322000 UCBBRSTA EQU UCBACTIV 02323000 UCBRV063 EQU UCBACTIV 02324000 UCBRV062 EQU UCBACTIV 02325000 UCBRV061 EQU UCBACTIV 02326000 UCBRV060 EQU UCBACTIV 02327000 UCBRV059 EQU UCBACTIV 02328000 UCBRV058 EQU UCBACTIV 02329000 UCBRV057 EQU UCBACTIV 02330000 UCBRV050 EQU UCB3800X+2 02331000 UCBCGMNO EQU UCB3800X+1 02332000 UCBRV083 EQU UCBOPTNS 02333000 UCBBRSTR EQU UCBOPTNS 02334000 UCBRV056 EQU UCBOPTNS 02335000 UCBRV055 EQU UCBOPTNS 02336000 UCBRV054 EQU UCBOPTNS 02337000 UCBRV053 EQU UCBOPTNS 02338000 UCBRV052 EQU UCBOPTNS 02339000 UCBRV051 EQU UCBOPTNS 02340000 UCBRV073 EQU UCB3540X+7 02341000 UCBRV072 EQU UCBDKBYT 02342000 UCBRV071 EQU UCBDKBYT 02343000 UCBRV070 EQU UCBDKBYT 02344000 UCBRV069 EQU UCBDKBYT 02345000 UCBRV068 EQU UCBDKBYT 02346000 UCBRV067 EQU UCBDKBYT 02347000 UCBVLVER EQU UCBDKBYT 02348000 UCBDKAMX EQU UCBDKBYT 02349000 UCBVLSER EQU UCB3540X 02350000 UCBRDATA EQU UCBOCR+4 02351000 UCBFRID EQU UCBOCR 02352000 UCBCLN EQU UCBMT+14 02353000 UCBERG EQU UCBMT+12 02354000 UCBMS EQU UCBMT+11 02355000 UCBNB EQU UCBMT+10 02356000 UCBPW EQU UCBMT+9 02357000 UCBPR EQU UCBMT+8 02358000 UCBSIO EQU UCBMT+6 02359000 UCBTW EQU UCBMT+5 02360000 UCBTR EQU UCBMT+4 02361000 UCBTWT EQU UCBMT+3 02362000 UCBTRT EQU UCBMT+2 02363000 UCBCTD EQU UCBMT 02364000 UCBWTOID EQU UCBCMEXT+17 02365000 UCBRV043 EQU UCBCMEXT+16 02366000 UCBASID EQU UCBCMEXT+14 02367000 UCBMFCNT EQU UCBCMEXT+12 02368000 UCBPMSK EQU UCBCMEXT+10 02369000 UCBCCWOF EQU UCBCMEXT+8 02370000 UCBRV041 EQU UCBCMEXT+6 02371000 UCBRV036 EQU UCBFLP1 02372000 UCBRV035 EQU UCBFLP1 02373000 UCBERLOG EQU UCBFLP1 02374000 UCBRV033 EQU UCBFLP1 02375000 UCBINHIO EQU UCBFLP1 02376000 UCBNSWAP EQU UCBFLP1 02377000 UCBSHRUP EQU UCBFLP1 02378000 UCBNSRCH EQU UCBFLP1 02379000 UCBSNSCT EQU UCBCMEXT+4 02380000 UCBHPDV EQU @NM00234 02381000 UCBHALI EQU @NM00234 02382000 UCBRSV09 EQU @NM00234 02383000 UCBRSV08 EQU @NM00234 02384000 UCBRSV07 EQU @NM00234 02385000 UCBRSV06 EQU @NM00234 02386000 UCBRSV05 EQU @NM00234 02387000 UCBRSV04 EQU @NM00234 02388000 UCBDTI EQU UCBCMEXT+2 02389000 UCBSTI EQU UCBCMEXT+1 02390000 UCBEXTP EQU UCBEXTPT+1 02391000 UCBDDRSW EQU UCBFLC 02392000 UCBTICBT EQU UCBFLC 02393000 UCBIVRR EQU UCBFLC 02394000 UCBIVRS EQU UCBFLC 02395000 UCBITF EQU UCBFLC 02396000 UCBUDE EQU UCBFLC 02397000 UCBWAA EQU UCBFLC 02398000 UCBATTP EQU UCBFLC 02399000 UCBUNTYP EQU UCBTBYT4 02400000 UCBRSV11 EQU UCBDVCLS 02401000 UCBRSV10 EQU UCBDVCLS 02402000 UCB3CHAR EQU UCBDVCLS 02403000 UCB3UREC EQU UCBDVCLS 02404000 UCB3DISP EQU UCBDVCLS 02405000 UCB3DACC EQU UCBDVCLS 02406000 UCB3COMM EQU UCBDVCLS 02407000 UCB3TAPE EQU UCBDVCLS 02408000 UCBDVPWR EQU UCB2OPT7 02409000 UCBVLPWR EQU UCB2OPT6 02410000 UCB2OPT5 EQU UCBTBYT2 02411000 UCBRVDEV EQU UCBRWTAU 02412000 UCBRPS EQU UCBDUDN2 02413000 UCBRR EQU UCBDUDN1 02414000 UCB2OPT1 EQU UCBTBYT2 02415000 UCB2OPT0 EQU UCBTBYT2 02416000 UCB1FEA7 EQU UCBTBYT1 02417000 UCBD6250 EQU UCB1FEA6 02418000 UCBD1600 EQU UCB1FEA5 02419000 UCB1FEA4 EQU UCBTBYT1 02420000 UCB1FEA3 EQU UCBTBYT1 02421000 UCB1FEA2 EQU UCBTBYT1 02422000 UCB1FEA1 EQU UCBTBYT1 02423000 UCB1FEA0 EQU UCBTBYT1 02424000 UCBRV029 EQU UCBWGT 02425000 UCBVHRSN EQU UCBWGT 02426000 UCBVORSN EQU UCBWGT 02427000 UCBMTPXP EQU UCBWGT 02428000 UCBREW EQU UCBWGT 02429000 UCBPUB EQU UCBWGT 02430000 UCBOUT EQU UCBWGT 02431000 UCBIN EQU UCBWGT 02432000 UCBCPU EQU UCBOB+11 02433000 UCBLCI EQU UCBOB+10 02434000 UCBCNT EQU UCBOB+9 02435000 UCBRV017 EQU UCBCHM1 02436000 UCBRV016 EQU UCBCHM1 02437000 UCBRV015 EQU UCBCHM1 02438000 UCBRV014 EQU UCBCHM1 02439000 UCBSPB EQU UCBPTH1 02440000 UCBPPB EQU UCBPTH1 02441000 UCBSPA EQU UCBPTH0 02442000 UCBPPA EQU UCBPTH0 02443000 UCBSIGP EQU UCBFLB 02444000 UCBVALPH EQU UCBFLB 02445000 UCBCRHSN EQU UCBFLB 02446000 UCBCRHRV EQU UCBFLB 02447000 UCBRESVH EQU UCBFLB 02448000 UCBSPST EQU UCBFLB 02449000 UCBASNS EQU UCBFLB 02450000 UCBIORST EQU UCBFLB 02451000 UCBQISCE EQU UCBFL1 02452000 UCBACTV EQU UCBFL1 02453000 UCBSAP EQU UCBFL1 02454000 UCBNOTRC EQU UCBCUB 02455000 UCBPSNS EQU UCBFL1 02456000 UCBUSING EQU UCBPST 02457000 UCBNOTRD EQU UCBNRY 02458000 UCBBUSYD EQU UCBBSY 02459000 UCBUA EQU UCBCHAN+1 02460000 UCBCHA EQU UCBCHAN 02461000 UCBDADI EQU UCBSTAT 02462000 UCBSYSR EQU UCBSTAT 02463000 UCBPRES EQU UCBSTAT 02464000 UCBALOC EQU UCBSTAT 02465000 UCBUNLD EQU UCBSTAT 02466000 UCBRESV EQU UCBSTAT 02467000 UCBCHGS EQU UCBSTAT 02468000 UCBONLI EQU UCBSTAT 02469000 UCBID EQU UCBOB+2 02470000 UCBALTPH EQU UCBFL5 02471000 UCBALTCU EQU UCBFL5 02472000 UCBNALOC EQU UCBFL5 02473000 UCBENVRD EQU UCBFL5 02474000 UCBVSDR EQU UCBFL5 02475000 UCBSASK EQU UCBFL5 02476000 UCBAMV EQU UCBAF 02477000 UCBDCC EQU UCBFL5 02478000 UCBMONT EQU UCBJBNR 02479000 UCBRV011 EQU UCBJBNR 02480000 UCBMMSGP EQU UCBJBNR 02481000 UCBOLDSM EQU UCBJBNR 02482000 UCBRV003 EQU UCBJBNR 02483000 UCBDUC EQU UCBJBNR 02484000 UCBJES3 EQU UCBJBNR 02485000 UCBVRDEV EQU UCBJBNR 02486000 UCBCMSEG EQU UCBOB 02487000 UCBPFXND EQU UCB+512 02488000 UCBIOQ EQU UCB+508 02489000 UCBLOCK EQU UCB+504 02490000 UCBPXST EQU UCB+504 02491000 @NM00231 EQU UCB 02492000 TRMOPTBL EQU IEDQTRM+18 02493000 TRMOPNO EQU IEDQTRM+17 02494000 TRMCHCIN EQU IEDQTRM+16 02495000 TRMSENSE EQU TRMSTAT+3 02496000 TRMTEMPR EQU TRMSTAT+2 02497000 TRMNADDR EQU TRMOWNER 02498000 @NM00212 EQU TRMDEVFL+1 02499000 TRMTPIN EQU TRMDEVFL+1 02500000 @NM00211 EQU TRMNCPI 02501000 TRMRNTRM EQU TRMDEVFL+1 02502000 @NM00210 EQU TRMDEVFL+1 02503000 TRMLMD EQU TRMDEVFL+1 02504000 TRMCONC EQU TRMDEVFL+1 02505000 TRMTSOB EQU TRMDEVFL 02506000 TRMBFDY EQU TRMDEVFL 02507000 TRMTBLK EQU TRMDEVFL 02508000 TRMSBLK EQU TRMDEVFL 02509000 TRMBLKS EQU TRMDEVFL 02510000 TRMSCV EQU TRMADDC 02511000 TRMDDIG EQU TRMDEVFL 02512000 TRMBUFS EQU TRMDEVFL 02513000 TRMSTEAL EQU TRMPRILK 02514000 TRMLGB EQU TRMDSORG 02515000 TRMUTERM EQU TRMSESCT 02516000 TRMVERIF EQU TRMRSTRT 02517000 @NM00209 EQU TRMRSTRT 02518000 @NM00208 EQU TRMDESTQ 02519000 TRMSCNYN EQU TRMSTATE 02520000 TRMOPTFN EQU TRMSTATE 02521000 TRMHELDN EQU TRMSTATE 02522000 TRMACPTN EQU TRMSTATE 02523000 TRMPREF EQU TRMSTATE 02524000 TRMPROC EQU TRMLOG 02525000 TRMLIST EQU TRMLOG 02526000 TRMLINE EQU TRMSTATE 02527000 TRMSUBST EQU IEDNTRM+16 02528000 TRMTYPE EQU IEDNTRM+15 02529000 TRMPRIME EQU TRMLGBST 02530000 TRMOWNR EQU TRMLTRAC+1 02531000 TRMGPCNT EQU TRMLTRAC 02532000 TRMBUFRD EQU TRMBYTE0 02533000 TRMSNA EQU TRMBYTE0 02534000 TRMGP EQU TRMBYTE0 02535000 TRMDIAL EQU TRMBYTE0 02536000 TRMACDC EQU TRMNOWCD 02537000 TRMOUTPT EQU TRMBYTE0 02538000 TRMINPUT EQU TRMBYTE0 02539000 TRMUDEF EQU TRMBYTE0 02540000 TRMCOHRT EQU IEDNTRM+8 02541000 TRMSTOTE EQU TRMBYTE1 02542000 TRMCKPRN EQU TRMBYTE1 02543000 TRMTSATN EQU TRMBYTE1 02544000 TRMTRACE EQU TRMBYTE1 02545000 TRMSWBCK EQU TRMBYTE1 02546000 TRMAUTOC EQU TRMBYTE1 02547000 TRMINPTP EQU TRMBYTE1 02548000 TRMWTNEG EQU TRMSCPRQ 02549000 TRMWRBRK EQU TRMBYTE2 02550000 TRMNOSND EQU TRMBYTE2 02551000 TRMPREP EQU TRMBYTE2 02552000 TRMGPACT EQU TRMBYTE2 02553000 TRMANDL EQU TRMBYTE2 02554000 TRMCLOSN EQU TRMINPG 02555000 TRMREMB EQU TRMBYTE2 02556000 TRMRSACT EQU TRMBYTE2 02557000 @NM00207 EQU TRMCDF0 02558000 TRMPURGE EQU TRMCDF0 02559000 TRMCDST EQU TRMINDEX 02560000 TCXEND EQU IEDQTCXD+224 02561000 TCXNCPIO EQU IEDQTCXD+220 02562000 TCXACTE8 EQU TCXQE8 02563000 TCXABEPL EQU IEDQTCXD+212 02564000 TCXSRBS EQU IEDQTCXD+208 02565000 TCXSIOSB EQU IEDQTCXD+204 02566000 TCXERPSV EQU IEDQTCXD+116 02567000 TCXSATTN EQU IEDQTCXD+112 02568000 @NM00206 EQU TCXDSAVE+4 02569000 @NM00205 EQU TCXDSAVE 02570000 TCXPLCB EQU IEDQTCXD+100 02571000 TCXBITS EQU IEDQTCXD+98 02572000 TCXSCBSZ EQU IEDQTCXD+97 02573000 TCXBIT1 EQU IEDQTCXD+96 02574000 TCXCOMPT EQU IEDQTCXD+92 02575000 TCXAVAIL EQU IEDQTCXD+88 02576000 TCXBUFL EQU IEDQTCXD+84 02577000 TCXTOTE EQU TCXBUFA 02578000 TCXCKPM EQU IEDQTCXD+79 02579000 TCXNCKPR EQU IEDQTCXD+78 02580000 TCXSZAIB EQU IEDQTCXD+76 02581000 TCXAIBC EQU IEDQTCXD+72 02582000 TCXPEBC EQU IEDQTCXD+68 02583000 TCXPEWAC EQU IEDQTCXD+64 02584000 TCXQRQ EQU IEDQTCXD+60 02585000 TCXOCQ EQU IEDQTCXD+56 02586000 TCXPNTQ EQU IEDQTCXD+52 02587000 TCXPUTQ EQU IEDQTCXD+48 02588000 TCXGETQ EQU IEDQTCXD+44 02589000 TCXTSI EQU IEDQTCXD+40 02590000 TCXRPT EQU IEDQTCXD+36 02591000 TCXAPDMP EQU TCXFLAG1 02592000 TCXAPPL EQU TCXFLAG1 02593000 TCXRTM EQU TCXFLAG1 02594000 TCXMCPCD EQU TCXFLAG1 02595000 TCXAUTH EQU TCXFLAG1 02596000 TCXASID EQU IEDQTCXD+32 02597000 TCXASCB EQU IEDQTCXD+28 02598000 TCXREADY EQU IEDQTCXD+24 02599000 TCXPASWD EQU IEDQTCXD+16 02600000 TCXDISP EQU IEDQTCXD+12 02601000 TCXTCB EQU IEDQTCXD+8 02602000 TCXATTLN EQU TCXATTEN 02603000 RQEHDR EQU IEDRQE+16 02604000 RQETCBAD EQU IEDRQE+13 02605000 RQEKEY EQU IEDRQE+12 02606000 RQEDEB EQU IEDRQE+9 02607000 RQEPR EQU IEDRQE+8 02608000 RQETCB EQU IEDRQE+4 02609000 RQELNK EQU IEDRQE 02610000 LCBERADR EQU LCBXRADR+1 02611000 LCBPCIRC EQU LCBXRADR 02612000 LCBDCT3 EQU LCBXDCT+2 02613000 LCBDCT2 EQU LCBXDCT+1 02614000 LCBDCT1 EQU LCBXDCT 02615000 @NM00180 EQU LCBXFLAG 02616000 LCBERPND EQU LCBXFLAG 02617000 LCBSRCPF EQU LCBXFLAG 02618000 LCBGPCTV EQU LCBXFLAG 02619000 @NM00179 EQU LCBXFLAG 02620000 @NM00178 EQU LCBXFLAG 02621000 @NM00177 EQU LCBXFLAG 02622000 @NM00176 EQU LCBXFLAG 02623000 LCBCCW10 EQU LCBCPA+72 02624000 LCBCCW9 EQU LCBCPA+64 02625000 LCBCCW8 EQU LCBCPA+56 02626000 LCBCCW6 EQU LCBCPA+40 02627000 LCBCP EQU LCBQEBPL+4 02628000 LCBIOSB EQU LCBQEBPL+1 02629000 LCBSIO EQU LCBQEBPL 02630000 LCBCCW1 EQU LCBCPA 02631000 @NM00161 EQU LCBERCCW+16 02632000 LCBATL05 EQU LCBERCCW+8 02633000 @NM00160 EQU LCBERCCW 02634000 LCBBFSNS EQU LCBRSPSV 02635000 LCBWAITC EQU LCBTPCD+5 02636000 LCBINPAK EQU LCBSTAT6 02637000 LCBMHBID EQU LCBSTAT6 02638000 @NM00159 EQU LCBSTAT6 02639000 LCBHDRPD EQU LCBSTAT6 02640000 LCBCHN EQU LCBSTAT6 02641000 LCBBFRSV EQU LCBTPCD+1 02642000 @NM00158 EQU LCBSTAT5 02643000 LCBSUSFG EQU LCBSTAT5 02644000 LCBLUS EQU LCBSTAT5 02645000 LCBLUNIT EQU LCBSTAT5 02646000 LCBPERM EQU LCBSTAT5 02647000 LCBNXCMD EQU LCBBFRW 02648000 @NM00157 EQU LCBSTAT7 02649000 LCBCDFD0 EQU LCBSTAT7 02650000 LCBSCBA EQU IEDQLCB+93 02651000 LCBOLT EQU LCBMSGFM 02652000 LCBEOT EQU LCBMSGFM 02653000 LCBENQ EQU LCBMSGFM 02654000 LCBTTD EQU LCBMSGFM 02655000 LCBRSTRT EQU LCBMSGFM 02656000 LCBVSTRT EQU LCBMSGFM 02657000 LCBACKI EQU LCBMSGFM 02658000 LCBNAK EQU LCBMSGFM 02659000 @NM00156 EQU LCBRBCT2 02660000 LCBDCNT EQU LCBRBCT2 02661000 LCBRBCT1 EQU LCBERBCT 02662000 LCBERBCH EQU IEDQLCB+85 02663000 LCBCOMPL EQU LCBDLNKN 02664000 LCBPRCPG EQU LCBERBST 02665000 LCBERROR EQU LCBERBST 02666000 LCBLOGDV EQU LCBERBST 02667000 LCBINQ EQU LCBERBST 02668000 LCBRDERR EQU LCBERBST 02669000 LCBEOMSG EQU LCBERBST 02670000 LCBMSG EQU LCBERBST 02671000 LCBERBLK EQU IEDQLCB+81 02672000 LCBERBPY EQU IEDQLCB+80 02673000 LCBERBQB EQU LCBERB+1 02674000 LCBERBKY EQU LCBERB 02675000 LCBRECAD EQU IEDQLCB+73 02676000 @NM00155 EQU LCBTSTSW 02677000 @NM00154 EQU LCBTSTSW 02678000 @NM00153 EQU LCBTSTSW 02679000 @NM00152 EQU LCBTSTSW 02680000 @NM00151 EQU LCBTSTSW 02681000 @NM00150 EQU LCBTSTSW 02682000 @NM00149 EQU LCBTSTSW 02683000 LCBCONCT EQU LCBTSTSW 02684000 LCBRESP EQU LCBSTAT2 02685000 LCBBFRAV EQU LCBDIAL 02686000 LCBATTN EQU LCBSYNC 02687000 LCBNEGRP EQU LCBSTAT2 02688000 LCBSNDPR EQU LCBSTAT2 02689000 LCBCONNN EQU LCBBEOTN 02690000 LCBMSGNN EQU LCBSTAT2 02691000 LCBTRACE EQU LCBSTAT2 02692000 LCBRECVN EQU LCBSTAT1 02693000 LCBFREEN EQU LCBSTAT1 02694000 LCBCONT EQU LCBSTAT1 02695000 LCBINITN EQU LCBSTAT1 02696000 LCBOCNI EQU LCBSTAT1 02697000 LCBOCWTN EQU LCBSTAT1 02698000 LCBRCLLN EQU LCBSTAT1 02699000 LCBRECOF EQU IEDQLCB+68 02700000 LCBRDBFR EQU LCBRCBFR 02701000 LCBUCBX EQU IEDQLCB+64 02702000 LCBTTBIN EQU LCBERRCT 02703000 LCBINTBF EQU LCBINCAM+1 02704000 @NM00148 EQU LCBINCAM 02705000 LCBGETMN EQU LCBINCAM 02706000 @NM00146 EQU LCBRESTR+1 02707000 LCBCMDSV EQU LCBRESTR 02708000 LCBPCILK EQU LCBDCBPT 02709000 LCBAP4OL EQU LCBSIOCC 02710000 LCBAP3OL EQU LCBSIOCC 02711000 LCBAP2OL EQU LCBSIOCC 02712000 LCBAP1OL EQU LCBSIOCC 02713000 @NM00145 EQU LCBSIOCC 02714000 LCBCSWRC EQU LCBCSW+5 02715000 LCBUSUE EQU LCBCSWUS 02716000 LCBUSDE EQU LCBCSWUS 02717000 LCBUSCE EQU LCBCSWUS 02718000 LCBUSBSY EQU LCBCSWUS 02719000 LCBUSCUE EQU LCBCSWUS 02720000 LCBUSSM EQU LCBCSWUS 02721000 LCBUSAT EQU LCBCSWUS 02722000 LCBOBR EQU LCBFLAG3 02723000 LCBOBRRD EQU LCBFLAG3 02724000 LCBIOMSG EQU LCBFLAG3 02725000 LCBSOHC EQU LCBFLAG3 02726000 LCBSOHR EQU LCBFLAG3 02727000 @NM00144 EQU LCBFLAG3 02728000 LCBECBPT EQU LCBIOBSN+4 02729000 LCBSENS1 EQU LCBSNS+1 02730000 LCBABORT EQU LCBTMOUT 02731000 @NM00143 EQU LCBFLAG1 02732000 LCBUNREL EQU LCBFLAG1 02733000 LCBEXCPN EQU LCBFLAG1 02734000 @NM00142 EQU LCBFLAG1 02735000 LCBERPIN EQU LCBFLAG1 02736000 @NM00141 EQU LCBFLAG1 02737000 LCBFSBFR EQU LCBMHA 02738000 LCBISZE EQU IEDQLCB+28 02739000 LCBLNENT EQU LCBSCBDA+1 02740000 @NM00140 EQU LCBSCBDA 02741000 LCBCPGMH EQU LCBSTAT4 02742000 LCBREAL EQU LCBPHASE 02743000 @NM00139 EQU LCBSTAT4 02744000 LCBACTRQ EQU LCBSTAT4 02745000 LCBIPLRQ EQU LCBSTAT4 02746000 LCBDACRQ EQU LCBSTAT4 02747000 LCBDMPRQ EQU LCBSTAT4 02748000 @NM00138 EQU LCBLKMDE 02749000 LCBLOCKI EQU LCBLKMDE 02750000 LCBLOCKR EQU LCBLKMDE 02751000 LCBHMFLG EQU LCBLKMDE 02752000 LCBBDFLG EQU LCBLKMDE 02753000 LCBLKDST EQU LCBINSRC 02754000 LCBABRTN EQU LCBCHAIN 02755000 LCBCTLMD EQU LCBTETEN 02756000 LCBBFRSZ EQU LCBCHAIN 02757000 LCBUREQN EQU LCBCHAIN 02758000 LCBNORTY EQU LCBCHAIN 02759000 LCBERMSG EQU LCBCHAIN 02760000 LCBEXCP EQU LCBCHAIN 02761000 LCBINVRQ EQU LCBSCRNN 02762000 LCB2741N EQU LCBTSOB 02763000 LCBINHBN EQU LCBTSOB 02764000 LCBCIRCD EQU LCBTSOB 02765000 LCBPREP EQU LCBTSOB 02766000 LCBSOPL EQU LCBTSOB 02767000 LCBSATRD EQU LCBTSOB 02768000 LCBTSBUF EQU LCBTSOB 02769000 LCBWRBRK EQU LCBTSOB 02770000 LCBTDL EQU IEDQLCB+18 02771000 LCBEOLTD EQU IEDQLCB+16 02772000 LCBRSLNK EQU IEDQLCB+13 02773000 LCBRSPRI EQU IEDQLCB+12 02774000 LCBSTCBA EQU IEDQLCB+9 02775000 LCBRSKEY EQU IEDQLCB+8 02776000 LCBLINK EQU LCBRCB+5 02777000 LCBPRI EQU LCBRCB+4 02778000 LCBQCBA EQU LCBRCB+1 02779000 LCBKEY EQU LCBRCB 02780000 EWACPU EQU EWA+27 02781000 @NM00137 EQU EWA+26 02782000 EWACHA EQU EWA+24 02783000 EWACSEQ EQU EWAXCSW2 02784000 EWACDIN EQU EWAXCSW2 02785000 @NM00136 EQU EWAXCSW2 02786000 EWACTEC EQU EWAXCSW2 02787000 EWACDAV EQU EWAXCSW1 02788000 EWACCHV EQU EWAXCSW1 02789000 EWACCMD EQU EWAXCSW1 02790000 EWACUNS EQU EWAXCSW1 02791000 EWACSQV EQU EWAXCSW1 02792000 @NM00135 EQU EWAXCSW1 02793000 EWACITF EQU EWAXCSW1 02794000 @NM00134 EQU EWARGFG2 02795000 EWACCUE EQU EWARGFG2 02796000 EWACSTG EQU EWARGFG2 02797000 EWACSCU EQU EWARGFG2 02798000 EWACCHA EQU EWARGFG2 02799000 EWACCPU EQU EWARGFG2 02800000 EWANORTY EQU EWARGFG1 02801000 EWACCNT EQU EWARGFG1 02802000 EWACSNS EQU EWARGFG1 02803000 @NM00133 EQU EWARGFG1 02804000 EWACHIO EQU EWARGFG1 02805000 EWACTIO EQU EWARGFG1 02806000 EWACINT EQU EWARGFG1 02807000 EWACSIO EQU EWARGFG1 02808000 EWAUCB EQU EWAERPIB+1 02809000 @NM00132 EQU EWAERPIB 02810000 EWASTUP EQU EWA+14 02811000 EWACNTR4 EQU EWACNTRS+3 02812000 EWACNTR3 EQU EWACNTRS+2 02813000 EWACNTR2 EQU EWACNTRS+1 02814000 EWACNTR1 EQU EWACNTRS 02815000 EWASSTAT EQU EWA+8 02816000 EWASCTMX EQU EWASNSCT 02817000 @NM00131 EQU EWASNSCT 02818000 EWAJAM EQU EWAFLG3 02819000 @NM00130 EQU EWAFLG2 02820000 EWADIR EQU EWAFLG2 02821000 EWACOVF EQU EWAFLG2 02822000 EWAWTEMP EQU EWAFLG2 02823000 EWAMDR EQU EWAFLG2 02824000 EWABDSNS EQU EWAFLG1 02825000 EWADDMSG EQU EWAFLG1 02826000 EWASCC1 EQU EWASCC3 02827000 EWASCC2 EQU EWASCC3 02828000 @NM00129 EQU EWAFLG1 02829000 EWASLIS EQU EWAFLG1 02830000 EWAEXT EQU EWAHDR 02831000 IOSEND EQU IOSB+108 02832000 IOSSKR EQU IOSEEKA+7 02833000 IOSSKH2 EQU IOSSKHH+1 02834000 IOSSKH1 EQU IOSSKHH 02835000 IOSSKCC EQU IOSCCHH 02836000 IOSSKBB EQU IOSEEKA+1 02837000 IOSSKM EQU IOSEEKA 02838000 IOSEEK EQU IOSB+92 02839000 IOSMDM EQU IOSB+91 02840000 IOSMDB EQU IOSB+90 02841000 IOSCKEY7 EQU IOSCKEY 02842000 IOSCKEY6 EQU IOSCKEY 02843000 IOSCKEY5 EQU IOSCKEY 02844000 IOSCKEY4 EQU IOSCKEY 02845000 @NM00125 EQU IOSCKEY 02846000 IOSFMSK EQU IOSB+88 02847000 IOSCUDEV EQU IOSPATH+1 02848000 @NM00124 EQU IOSCHN 02849000 IOSPATH3 EQU IOSCHN 02850000 IOSPATH2 EQU IOSCHN 02851000 IOSEXP EQU IOSCHN 02852000 IOSGDP EQU IOSCHN 02853000 IOSAFF EQU IOSB+85 02854000 IOSRSS1B EQU IOSB+84 02855000 IOSDIE EQU IOSB+68 02856000 IOSABN EQU IOSB+64 02857000 IOSNRM EQU IOSB+60 02858000 IOSPCI EQU IOSB+56 02859000 IOSPCHN EQU IOSB+48 02860000 IOSAPMSK EQU IOSB+40 02861000 IOSRES4A EQU IOSB+36 02862000 IOSSRB EQU IOSB+28 02863000 IOSCSWRC EQU IOSCSW+5 02864000 IOSTSB EQU IOSTATUS+1 02865000 IOSTSA EQU IOSTATUS 02866000 IOSOPT2X EQU IOSOPT2 02867000 IOSIGP EQU IOSOPT2 02868000 IOSHTP EQU IOSOPT2 02869000 IOSRELSE EQU IOSOPT 02870000 IOSAPR EQU IOSOPT 02871000 IOSTSLL EQU IOSOPT 02872000 IOSNERP EQU IOSOPT 02873000 IOSPSLL EQU IOSOPT 02874000 IOSQISCE EQU IOSOPT 02875000 IOSDEP EQU IOSOPT 02876000 IOSBYP EQU IOSOPT 02877000 IOSPKY7 EQU IOSPKEY 02878000 IOSPGDPX EQU IOSPKEY 02879000 IOSIDR EQU IOSPKEY 02880000 IOSLCL EQU IOSPKEY 02881000 @NM00122 EQU IOSPKEY 02882000 IOSPGAD EQU IOSB+8 02883000 IOSASID EQU IOSB+6 02884000 IOSPRLVL EQU IOSB+5 02885000 IOSDVRID EQU IOSB+4 02886000 IOSPROC EQU IOSB+3 02887000 IOSFLC7 EQU IOSFLC 02888000 IOSCTCNR EQU IOSFLC 02889000 IOSRWAIT EQU IOSFLC 02890000 IOSTP EQU IOSFLC 02891000 IOSCC3WE EQU IOSFLC 02892000 IOSVERIF EQU IOSDVALT 02893000 IOSDVMNT EQU IOSFLC 02894000 IOSBDCST EQU IOSFLB 02895000 IOSFLB4 EQU IOSFLB 02896000 IOSFLB3 EQU IOSFLB 02897000 IOSNOTRS EQU IOSFLB 02898000 IOSSDR EQU IOSFLB 02899000 IOSDIESE EQU IOSFLB 02900000 IOSIOSB EQU IOSFLA 02901000 IOSDOM EQU IOSFLA 02902000 IOSSMDB EQU IOSFLA 02903000 IOSSMDA EQU IOSFLA 02904000 IOSCCHN EQU IOSACHN 02905000 IOSDCHN EQU IOSACHN 02906000 DEBAPPAD EQU IEDQDEB+65 02907000 DEBEXSCL EQU IEDQDEB+64 02908000 DEBDCBAD EQU IEDQDEB+61 02909000 DEBPROTG EQU IEDQDEB+60 02910000 DEBECBAD EQU IEDQDEB+57 02911000 DEBPRIOR EQU IEDQDEB+56 02912000 DEBUSRPG EQU IEDQDEB+53 02913000 DEBSYSPG EQU IEDQDEB+49 02914000 DEBOPATB EQU IEDQDEB+48 02915000 DEBIRBAD EQU IEDQDEB+45 02916000 DEBOFLGS EQU IEDQDEB+44 02917000 DEBDEBAD EQU IEDQDEB+41 02918000 DEBAMLNG EQU IEDQDEB+40 02919000 DEBTCBAD EQU IEDQDEB+37 02920000 DEBNMSUB EQU IEDQDEB+36 02921000 @NM00121 EQU DEBPRF+33 02922000 DEBLNGTH EQU DEBPRF+32 02923000 DEBDCBMK EQU DEBPRF+28 02924000 DEBDSCBA EQU DEBPRF+21 02925000 DEBWKARA EQU DEBPRF+20 02926000 DEBXCEA EQU DEBAPVT+16 02927000 DEBCEA EQU DEBAPVT+12 02928000 DEBPCIA EQU DEBAPVT+8 02929000 DEBEOEA EQU DEBAPVT 02930000 DCBBUFSI EQU IHADCS43+6 02931000 DCBUNTCT EQU IHADCS43+5 02932000 DCBILCT EQU IHADCS43+4 02933000 DCBSCTAD EQU DCBSCTAB+1 02934000 @NM00120 EQU DCBSCTAB 02935000 DCBPUTA EQU DCBGETA 02936000 @NM00119 EQU DCBPUT 02937000 DCBDEBA EQU DCBDEBAD+1 02938000 @NM00118 EQU DCBIFLGS 02939000 DCBIFIOE EQU DCBIFLGS 02940000 DCBCH12 EQU DCBIFPCT 02941000 DCBCH9 EQU DCBIFPCT 02942000 DCBIFEC EQU DCBIFLGS 02943000 DCBMFSTI EQU DCBMFDMD 02944000 DCBMFAWR EQU DCBMFSTK 02945000 DCBMFUIP EQU DCBMFTMD 02946000 DCBMFIDW EQU DCBMFLCP 02947000 DCBMFWRK EQU DCBMFMVP 02948000 DCBMFRDQ EQU DCBMFWRT 02949000 DCBMFGTQ EQU DCBMFPUT 02950000 DCBMFSTL EQU DCBMACF2 02951000 DCBMFCK EQU DCBMFDMG 02952000 DCBMFRDX EQU DCBMFCHK 02953000 DCBMFDBF EQU DCBMFSBG 02954000 DCBMFRDI EQU DCBMFLCG 02955000 DCBMFRDK EQU DCBMFMVG 02956000 DCBMFWRQ EQU DCBMFRD 02957000 DCBMFPTQ EQU DCBMFGET 02958000 DCBMFECP EQU DCBMACF1 02959000 DCBTIOT EQU IHADCS25 02960000 DCBMRSTI EQU DCBMRDMD 02961000 DCBMRAWR EQU DCBMRSTK 02962000 DCBMRUIP EQU DCBMRTMD 02963000 DCBMRIDW EQU DCBMRLCP 02964000 DCBMRWRK EQU DCBMRMVP 02965000 DCBMRRDQ EQU DCBMRWRT 02966000 DCBMRGTQ EQU DCBMRPUT 02967000 DCBMRSTL EQU DCBMACR2 02968000 DCBMRCK EQU DCBMRDMG 02969000 DCBPGFXA EQU DCBMRRDX 02970000 DCBMRDBF EQU DCBMRSBG 02971000 DCBMRRDI EQU DCBMRLCG 02972000 DCBMRRDK EQU DCBMRMVG 02973000 DCBMRWRQ EQU DCBMRRD 02974000 DCBMRPTQ EQU DCBMRGET 02975000 DCBMRECP EQU DCBMACR1 02976000 @NM00117 EQU DCBIFLG 02977000 DCBIBIOE EQU DCBIFLG 02978000 DCBICH12 EQU DCBIBPCT 02979000 DCBICH9 EQU DCBIBPCT 02980000 DCBIBEC EQU DCBIFLG 02981000 DCBOFIOF EQU DCBOFLGS 02982000 DCBOFUEX EQU DCBOFLGS 02983000 DCBOFTM EQU DCBOFLGS 02984000 DCBOFPPC EQU DCBOFLGS 02985000 DCBOFOPN EQU DCBOFLGS 02986000 DCBOFEOV EQU DCBOFLGS 02987000 DCBOFLRB EQU DCBOFLGS 02988000 DCBOFIOD EQU DCBOFLWR 02989000 DCBDDNAM EQU IHADCS24 02990000 DCBEXLSA EQU DCBEXLST+1 02991000 DCBRNCKA EQU DCBRNCKD+1 02992000 @NM00116 EQU DCBRNCKD 02993000 DCBIOBAD EQU IHADCS2K+8 02994000 DCBDSGTR EQU DCBDSRG2 02995000 @NM00115 EQU DCBDSRG2 02996000 DCBDSRG1 EQU DCBDSORG 02997000 DCBCHNGL EQU DCBTRSTA 02998000 DCBNIDLE EQU DCBTRSTA 02999000 DCBBAKUP EQU DCBTRSTA 03000000 DCBIPLED EQU DCBTRSTA 03001000 DCBRSTRT EQU DCBTRSTA 03002000 DCBINITL EQU DCBTRSTA 03003000 DCBAUTOD EQU DCBTRSTA 03004000 DCBAUTOI EQU DCBTRSTA 03005000 @NM00114 EQU IHADCS2K+4 03006000 DCBDUMPA EQU DCBDUMPD+1 03007000 DCBUNITN EQU DCBDUMPD 03008000 DCBBCKUA EQU DCBBCKUP+1 03009000 @NM00113 EQU DCBBCKUP 03010000 DCBIPLTX EQU IHADCS1A 03011000 @NM00112 EQU IHADCB 03012000 CVTLEVL EQU CVTRELNO+2 03013000 CVTNUMB EQU CVTRELNO 03014000 CVTMDL EQU CVTFIX+250 03015000 @NM00111 EQU CVTFIX+248 03016000 @NM00110 EQU CVTFIX 03017000 CVTRV482 EQU CVTXTNT2+128 03018000 CVTRV481 EQU CVTXTNT2+124 03019000 CVTRV480 EQU CVTXTNT2+120 03020000 CVTRV479 EQU CVTXTNT2+118 03021000 CVTRV478 EQU CVTXTNT2+117 03022000 CVTRV477 EQU CVTXTNT2+116 03023000 CVTRV476 EQU CVTXTNT2+115 03024000 CVTRV475 EQU CVTXTNT2+114 03025000 CVTRV474 EQU CVTRV466 03026000 CVTRV473 EQU CVTRV466 03027000 CVTRV472 EQU CVTRV466 03028000 CVTRV471 EQU CVTRV466 03029000 CVTRV470 EQU CVTRV466 03030000 CVTRV469 EQU CVTRV466 03031000 CVTRV468 EQU CVTRV466 03032000 CVTRV467 EQU CVTRV466 03033000 CVTRV465 EQU CVTRV457 03034000 CVTRV464 EQU CVTRV457 03035000 CVTRV463 EQU CVTRV457 03036000 CVTRV462 EQU CVTRV457 03037000 CVTRV461 EQU CVTRV457 03038000 CVTRV460 EQU CVTRV457 03039000 CVTRV459 EQU CVTRV457 03040000 CVTRV458 EQU CVTRV457 03041000 CVTRV456 EQU CVTXTNT2+108 03042000 CVTRV455 EQU CVTXTNT2+104 03043000 CVTRV454 EQU CVTXTNT2+100 03044000 CVTRV453 EQU CVTXTNT2+96 03045000 CVTRV452 EQU CVTXTNT2+94 03046000 CVTRV451 EQU CVTXTNT2+92 03047000 CVTRV450 EQU CVTXTNT2+90 03048000 CVTRV449 EQU CVTXTNT2+88 03049000 CVTRV448 EQU CVTXTNT2+87 03050000 CVTRV447 EQU CVTXTNT2+86 03051000 CVTRV446 EQU CVTRV438 03052000 CVTRV445 EQU CVTRV438 03053000 CVTRV444 EQU CVTRV438 03054000 CVTRV443 EQU CVTRV438 03055000 CVTRV442 EQU CVTRV438 03056000 CVTRV441 EQU CVTRV438 03057000 CVTRV440 EQU CVTRV438 03058000 CVTRV439 EQU CVTRV438 03059000 CVTRV437 EQU CVTRV429 03060000 CVTRV436 EQU CVTRV429 03061000 CVTRV435 EQU CVTRV429 03062000 CVTRV434 EQU CVTRV429 03063000 CVTRV433 EQU CVTRV429 03064000 CVTRV432 EQU CVTRV429 03065000 CVTRV431 EQU CVTRV429 03066000 CVTRV430 EQU CVTRV429 03067000 CVTRV428 EQU CVTXTNT2+80 03068000 CVTRV427 EQU CVTXTNT2+76 03069000 CVTRV426 EQU CVTXTNT2+72 03070000 CVTRV425 EQU CVTXTNT2+68 03071000 CVTATACT EQU CVTATCVT 03072000 CVTRV423 EQU CVTXTNT2+62 03073000 CVTRV422 EQU CVTXTNT2+60 03074000 CVTRV421 EQU CVTXTNT2+58 03075000 CVTRV420 EQU CVTXTNT2+56 03076000 CVTRV419 EQU CVTXTNT2+55 03077000 CVTRV418 EQU CVTXTNT2+54 03078000 CVTRV417 EQU CVTRV409 03079000 CVTRV416 EQU CVTRV409 03080000 CVTRV415 EQU CVTRV409 03081000 CVTRV414 EQU CVTRV409 03082000 CVTRV413 EQU CVTRV409 03083000 CVTRV412 EQU CVTRV409 03084000 CVTRV411 EQU CVTRV409 03085000 CVTRV410 EQU CVTRV409 03086000 CVTRV408 EQU CVTRV400 03087000 CVTRV407 EQU CVTRV400 03088000 CVTRV406 EQU CVTRV400 03089000 CVTRV405 EQU CVTRV400 03090000 CVTRV404 EQU CVTRV400 03091000 CVTRV403 EQU CVTRV400 03092000 CVTRV402 EQU CVTRV400 03093000 CVTRV401 EQU CVTRV400 03094000 CVTICB EQU CVTXTNT2+48 03095000 CVTSKTA EQU CVTXTNT2+44 03096000 CVTCCVT EQU CVTXTNT2+40 03097000 CVTRSV98 EQU CVTXTNT2+36 03098000 CVTRSV97 EQU CVTXTNT2+34 03099000 CVTRSV96 EQU CVTXTNT2+32 03100000 CVTOLTEP EQU CVTXTNT2+28 03101000 CVTQIDA EQU CVTQID+1 03102000 CVTRSV95 EQU CVTQID 03103000 CVTRSV94 EQU CVTXTNT2+20 03104000 CVTRSV93 EQU CVTXTNT2+16 03105000 CVTRSV92 EQU CVTXTNT2+12 03106000 CVTDEBVR EQU CVTXTNT2+8 03107000 CVTRSV91 EQU CVTXTNT2+6 03108000 CVTRSV9H EQU CVTFLGBT 03109000 CVTRSV9G EQU CVTFLGBT 03110000 CVTRSV9F EQU CVTFLGBT 03111000 CVTRSV9E EQU CVTFLGBT 03112000 CVTRSV9D EQU CVTFLGBT 03113000 CVTRSV9C EQU CVTFLGBT 03114000 CVTVME EQU CVTFLGBT 03115000 CVTNPE EQU CVTFLGBT 03116000 CVTNUCLS EQU CVTXTNT2+4 03117000 CVTDSSVA EQU CVTDSSV+1 03118000 CVTRSV89 EQU CVTDSSV 03119000 CVTRSV88 EQU CVTXTNT1+8 03120000 CVTRSV87 EQU CVTXTNT1+4 03121000 CVTFACHN EQU CVTXTNT1 03122000 CVTRV488 EQU CVTMAP+412 03123000 CVTRV487 EQU CVTMAP+408 03124000 CVTRV486 EQU CVTMAP+404 03125000 CVTRV485 EQU CVTMAP+400 03126000 CVTACTAP EQU CVTMAP+396 03127000 CVTAUTH EQU CVTMAP+392 03128000 CVTATMCA EQU CVTATMCT+1 03129000 CVTATMST EQU CVTATMCT 03130000 CVTRSV61 EQU CVTMAP+384 03131000 CVTVOLT1 EQU CVTVOLM1+1 03132000 CVTVOLI1 EQU CVTVOLF1 03133000 CVTSTOA EQU CVTMAP+376 03134000 CVTRSV58 EQU CVTMAP+374 03135000 CVTRSV57 EQU CVTMAP+372 03136000 CVTDDCE EQU CVTMAP+368 03137000 CVTPNWFR EQU CVTMAP+364 03138000 CVTSMF EQU CVTMAP+360 03139000 CVTSULK EQU CVTMAP+358 03140000 CVTSLKO EQU CVTSYSK 03141000 CVTSLKP EQU CVTSYSK 03142000 CVTSLKQ EQU CVTSYSK 03143000 CVTSLKR EQU CVTSYSK 03144000 CVTRSV56 EQU CVTSYSK 03145000 CVTRSV55 EQU CVTSYSK 03146000 CVTRSV54 EQU CVTSYSK 03147000 CVTRSV53 EQU CVTSYSK 03148000 CVTRSV52 EQU CVTA1F1 03149000 CVTRSV51 EQU CVTA1F1 03150000 CVTRSV50 EQU CVTA1F1 03151000 CVTRSV49 EQU CVTA1F1 03152000 CVTRSV48 EQU CVTA1F1 03153000 CVTRSV47 EQU CVTA1F1 03154000 CVTSRSW EQU CVTA1F1 03155000 CVTPFSW EQU CVTA1F1 03156000 CVTPCVT EQU CVTMAP+352 03157000 CVTRSV46 EQU CVTMAP+344 03158000 CVTRSV45 EQU CVTMAP+340 03159000 CVTRSV44 EQU CVTMAP+338 03160000 CVTRSV43 EQU CVTMAP+336 03161000 CVTHJESA EQU CVTHJES+1 03162000 CVTRSV42 EQU CVTHJES 03163000 CVTEXT2A EQU CVTEXT2+1 03164000 CVTRSV41 EQU CVTEXT2 03165000 CVTAPFA EQU CVTAPF+1 03166000 CVTRSV40 EQU CVTAPF 03167000 CVTRV518 EQU CVTINTLA 03168000 CVTRV517 EQU CVTERPV 03169000 CVTEORM EQU CVTMAP+312 03170000 CVTMCHPR EQU CVTMAP+308 03171000 CVTTZ EQU CVTMAP+304 03172000 CVTJEPS EQU CVTMAP+300 03173000 CVTJESCT EQU CVTMAP+296 03174000 CVTMODE EQU CVTMAP+292 03175000 CVTREAL EQU CVTMAP+284 03176000 CVTRSV39 EQU CVTMAP+280 03177000 CVTRSV38 EQU CVTMAP+276 03178000 CVTDMSRA EQU CVTDMSR+1 03179000 CVTRV634 EQU CVTDMSRF 03180000 CVTRV633 EQU CVTDMSRF 03181000 CVTRV632 EQU CVTDMSRF 03182000 CVTRV631 EQU CVTDMSRF 03183000 CVTRV630 EQU CVTDMSRF 03184000 CVTRV629 EQU CVTDMSRF 03185000 CVTUDUMP EQU CVTDMSRF 03186000 CVTSDUMP EQU CVTDMSRF 03187000 CVTQMSGA EQU CVTQMSG+1 03188000 CVTRSV36 EQU CVTQMSG 03189000 CVTAMFF EQU CVTMAP+264 03190000 CVTPURGA EQU CVTPURG+1 03191000 CVTRSV35 EQU CVTPURG 03192000 CVTCBSP EQU CVTMAP+256 03193000 CVTATERA EQU CVTATER+1 03194000 CVTSYST EQU CVTATER 03195000 CVTVOLT2 EQU CVTTAT 03196000 CVTVOLI2 EQU CVTVOLF2 03197000 CVTAQAVB EQU CVTAQAVT+1 03198000 CVTRSV34 EQU CVTTCMFG 03199000 CVTRSV33 EQU CVTTCMFG 03200000 CVTRSV32 EQU CVTTCMFG 03201000 CVTRSV31 EQU CVTTCMFG 03202000 CVTRSV30 EQU CVTTCMFG 03203000 CVTRSV29 EQU CVTTCMFG 03204000 CVTRSV28 EQU CVTTCMFG 03205000 CVTTCRDY EQU CVTTCMFG 03206000 CVTGTFA EQU CVTGTF+1 03207000 CVTRSV27 EQU CVTGTFST 03208000 CVTRNIO EQU CVTGTFST 03209000 CVTUSR EQU CVTGTFST 03210000 CVTRV318 EQU CVTFORM 03211000 CVTRV317 EQU CVTTMODE 03212000 CVTRV316 EQU CVTSTATE 03213000 CVTRV315 EQU CVTGTFS 03214000 CVTGTFAV EQU CVTGTFS 03215000 CVT0SCR1 EQU CVTMAP+232 03216000 CVTRV515 EQU CVTMAP+228 03217000 CVTRMS EQU CVTMAP+224 03218000 CVTPATCH EQU CVTMAP+220 03219000 CVTTSCE EQU CVTMAP+216 03220000 CVTLNKSC EQU CVTMAP+214 03221000 CVTQABST EQU CVTMAP+212 03222000 CVTMDLDS EQU CVTMAP+208 03223000 CVTUSER EQU CVTMAP+204 03224000 CVTABEND EQU CVTMAP+200 03225000 CVTSMCA EQU CVTMAP+196 03226000 CVTRSV18 EQU CVTMAP+192 03227000 CVTQLPAQ EQU CVTMAP+188 03228000 CVTQCDSR EQU CVTMAP+184 03229000 CVTRSV17 EQU CVTOPTB 03230000 CVTRSV16 EQU CVTOPTB 03231000 CVTFP EQU CVTOPTB 03232000 CVTAPTHR EQU CVTOPTB 03233000 CVTNLOG EQU CVTOPTB 03234000 CVTTOD EQU CVTOPTB 03235000 CVTCTIMS EQU CVTOPTB 03236000 CVTPROT EQU CVTOPTB 03237000 CVTXPFP EQU CVTOPTA 03238000 CVTASCII EQU CVTOPTA 03239000 CVTRSV13 EQU CVTOPTA 03240000 CVTRSV12 EQU CVTOPTA 03241000 CVTNIP EQU CVTOPTA 03242000 CVTDDR EQU CVTOPTA 03243000 CVTAPR EQU CVTOPTA 03244000 CVTCCH EQU CVTOPTA 03245000 CVTSNCTR EQU CVTMAP+180 03246000 CVTQMWR EQU CVTMAP+176 03247000 CVTQOCR EQU CVTMAP+172 03248000 CVT1EF00 EQU CVTMAP+168 03249000 CVTMZ00 EQU CVTMAP+164 03250000 CVTSV76Q EQU CVTSV76C 03251000 CVTRSV11 EQU CVTMAP+156 03252000 CVT0PT01 EQU CVTMAP+152 03253000 CVTMSER EQU CVTMAP+148 03254000 CVTRV516 EQU CVTIERLC 03255000 CVTILCH EQU CVTMAP+140 03256000 CVT0DS EQU CVTMAP+136 03257000 CVTFBOSV EQU CVTMAP+132 03258000 CVTNUCB EQU CVTMAP+128 03259000 CVTIXAVL EQU CVTMAP+124 03260000 CVTSV76M EQU CVTIOQET 03261000 CVTDCBA EQU CVTMAP+117 03262000 CVTMVS2 EQU CVTDCB 03263000 CVT6DAT EQU CVTDCB 03264000 CVT4MPS EQU CVTDCB 03265000 CVTRSV09 EQU CVTDCB 03266000 CVT4MS1 EQU CVTDCB 03267000 CVT2SPS EQU CVTDCB 03268000 CVT1SSS EQU CVTDCB 03269000 CVTRSV08 EQU CVTDCB 03270000 CVTQTD00 EQU CVTMAP+108 03271000 CVTQTE00 EQU CVTMAP+104 03272000 CVTCUCB EQU CVTMAP+100 03273000 CVTSJQ EQU CVTMAP+96 03274000 CVTPBLDL EQU CVTMAP+92 03275000 CVTTPC EQU CVTMAP+88 03276000 CVTSVDCB EQU CVTMAP+84 03277000 CVTBRET EQU CVTMAP+82 03278000 CVTEXIT EQU CVTMAP+80 03279000 CVT0FN00 EQU CVTMAP+76 03280000 CVTDARA EQU CVTDAR+1 03281000 CVTRSV07 EQU CVTFLGS1 03282000 CVTRSV06 EQU CVTFLGS1 03283000 CVTRSV05 EQU CVTFLGS1 03284000 CVTRSV04 EQU CVTFLGS1 03285000 CVTRSV03 EQU CVTFLGS1 03286000 CVTRSV02 EQU CVTFLGS1 03287000 CVTRSV01 EQU CVTFLGS1 03288000 CVTDMPLK EQU CVTFLGS1 03289000 CVTXITP EQU CVTMAP+68 03290000 CVTZDTAB EQU CVTMAP+64 03291000 CVTMSLT EQU CVTMAP+60 03292000 CVTDATE EQU CVTMAP+56 03293000 CVTBTERM EQU CVTMAP+52 03294000 CVTSYSAD EQU CVTMAP+48 03295000 CVTILK2 EQU CVTMAP+40 03296000 CVTILK1 EQU CVTMAP+36 03297000 CVTPRLTV EQU CVTMAP+32 03298000 CVTPCNVT EQU CVTMAP+28 03299000 CVT0VL00 EQU CVTMAP+24 03300000 CVTXAPG EQU CVTMAP+20 03301000 CVTBUF EQU CVTMAP+16 03302000 CVTJOB EQU CVTMAP+12 03303000 CVTLINK EQU CVTMAP+8 03304000 CVT0EF00 EQU CVTMAP+4 03305000 CVTTCBP EQU CVTMAP 03306000 CVT EQU CVTMAP 03307000 CCWCOUNT EQU CCW+6 03308000 CCWRSV EQU CCW+5 03309000 @NM00109 EQU CCWFLAGS 03310000 CCWIDA EQU CCWFLAGS 03311000 CCWPCI EQU CCWFLAGS 03312000 CCWSKIP EQU CCWFLAGS 03313000 CCWSLI EQU CCWFLAGS 03314000 SAVTLLCB EQU IEDNSVTD+380 03315000 SAVTSCF0 EQU IEDNSVTD+376 03316000 SAVTLSNY EQU IEDNSVTD+372 03317000 SAVTLSZP EQU IEDNSVTD+368 03318000 SAVTOMSU EQU IEDNSVTD+364 03319000 SAVTGTSB EQU IEDNSVTD+360 03320000 SAVTHIBL EQU IEDNSVTD+356 03321000 SAVTHISY EQU IEDNSVTD+352 03322000 SAVTNAX2 EQU IEDNSVTD+348 03323000 SAVTCDRU EQU IEDNSVTD+344 03324000 SAVTPOLC EQU IEDNSVTD+342 03325000 SAVTPOLM EQU IEDNSVTD+340 03326000 SAVTPOLR EQU IEDNSVTD+336 03327000 SAVTCDRN EQU SAVTCDRV 03328000 SAVTPOLL EQU IEDNSVTD+328 03329000 SAVTPOLN EQU IEDNSVTD+326 03330000 @NM00108 EQU IEDNSVTD+325 03331000 @NM00107 EQU SAVTNETF 03332000 SAVTSDIS EQU SAVTNETF 03333000 SAVTROUT EQU SAVTNETF 03334000 SAVTNETW EQU SAVTNETF 03335000 SAVTDIAL EQU IEDNSVTD+320 03336000 SAVTRQUT EQU IEDNSVTD+316 03337000 SAVTBITN EQU IEDNSVTD+312 03338000 @NM00106 EQU SAVTCKQB+8 03339000 @NM00105 EQU SAVTCKEC+1 03340000 @NM00104 EQU SAVTCKCC 03341000 SAVTCKPO EQU SAVTCKCC 03342000 SAVTCKWA EQU SAVTCKCC 03343000 SAVTCKCH EQU SAVTCKTB+1 03344000 SAVTCKVT EQU SAVTCKTB 03345000 @NM00103 EQU IEDNSVTD+297 03346000 SAVTRDFG EQU SAVTRDRV+12 03347000 @NM00102 EQU SAVTRDRV+5 03348000 SAVTRDPY EQU SAVTRDRV+4 03349000 SAVTRDQB EQU SAVTRDRV+1 03350000 SAVTRDKY EQU SAVTRDRV 03351000 SAVTNID EQU IEDNSVTD+280 03352000 SAVTDVAS EQU IEDNSVTD+276 03353000 SAVTPLSZ EQU IEDNSVTD+274 03354000 @NM00101 EQU IEDNSVTD+273 03355000 SAVTSUBL EQU IEDNSVTD+272 03356000 @NM00100 EQU SAVTZELM+1 03357000 SAVTSUBM EQU SAVTZELM 03358000 SAVTMHDX EQU IEDNSVTD+268 03359000 SAVTNAT1 EQU IEDNSVTD+266 03360000 SAVTSH20 EQU IEDNSVTD+264 03361000 SAVTLCBS EQU IEDNSVTD+260 03362000 SAVTRNMP EQU IEDNSVTD+256 03363000 SAVTTNTX EQU IEDNSVTD+252 03364000 SAVTNAX EQU IEDNSVTD+248 03365000 SAVTSUBV EQU IEDNSVTD+247 03366000 SAVTSUBA EQU IEDNSVTD+246 03367000 SAVTSIBC EQU IEDNSVTD+244 03368000 SAVTBSM EQU IEDNSVTD+240 03369000 SAVTSCPT EQU SAVTTCPU 03370000 SAVTRQTG EQU IEDNSVTD+236 03371000 SAVTRQCH EQU IEDNSVTD+232 03372000 SAVTMAND EQU IEDNSVTD+228 03373000 SAVTSPLN EQU IEDNSVTD+224 03374000 SAVTNADL EQU IEDNSVTD+222 03375000 SAVTNATL EQU IEDNSVTD+220 03376000 SAVTMHTB EQU IEDNSVTD+216 03377000 SAVTSSMH EQU IEDNSVTD+212 03378000 SAVTQRS EQU IEDNSVTD+208 03379000 SAVTRQIN EQU IEDNSVTD+204 03380000 SAVTDFCO EQU IEDNSVTD+200 03381000 SAVTSAO EQU IEDNSVTD+196 03382000 SAVTSARI EQU IEDNSVTD+192 03383000 SAVTSAC EQU IEDNSVTD+188 03384000 SAVTSAI EQU IEDNSVTD+184 03385000 SAVTCSCI EQU IEDNSVTD+180 03386000 SAVTSSRP EQU IEDNSVTD+176 03387000 SAVTSSRQ EQU IEDNSVTD+172 03388000 SAVTSCLU EQU IEDNSVTD+168 03389000 SAVTXTRQ EQU IEDNSVTD+164 03390000 SAVTMVBF EQU IEDNSVTD+160 03391000 @NM00099 EQU IEDNSVTD+148 03392000 SAVTIPCQ EQU IEDNSVTD+144 03393000 @NM00098 EQU IEDNSVTD+136 03394000 SAVTXFMI EQU IEDNSVTD+132 03395000 @NM00097 EQU IEDNSVTD+124 03396000 SAVTXFMO EQU IEDNSVTD+120 03397000 @NM00096 EQU IEDNSVTD+116 03398000 SAVTSSSR EQU IEDNSVTD+112 03399000 SAVTSCPQ EQU IEDNSVTD+108 03400000 SAVTSLCB EQU IEDNSVTD+104 03401000 SAVTLUSR EQU IEDNSVTD+100 03402000 @NM00095 EQU SAVTLUSQ+8 03403000 SAVTLUSP EQU SAVTLUSQ+4 03404000 SAVTLUSB EQU SAVTLUSQ 03405000 @NM00094 EQU IEDNSVTD+84 03406000 SAVTSAT EQU IEDNSVTD+80 03407000 SAVTNAT EQU IEDNSVTD+76 03408000 SAVTCLUP EQU IEDNSVTD+72 03409000 SAVTPIUT EQU IEDNSVTD+68 03410000 SAVTRNTA EQU IEDNSVTD+64 03411000 SAVTDNIR EQU IEDNSVTD+60 03412000 SAVTCNIR EQU IEDNSVTD+56 03413000 SAVTFLDH EQU IEDNSVTD+52 03414000 SAVTSRTN EQU IEDNSVTD+48 03415000 SAVTSREQ EQU IEDNSVTD+44 03416000 SAVTFAIL EQU IEDNSVTD+42 03417000 SAVTSUSE EQU IEDNSVTD+40 03418000 SAVTSIB EQU IEDNSVTD+36 03419000 SAVTPRTN EQU IEDNSVTD+32 03420000 @NM00093 EQU IEDNSVTD+28 03421000 SAVTWH20 EQU IEDNSVTD+26 03422000 SAVTPWT EQU IEDNSVTD+24 03423000 SAVTPRTQ EQU IEDNSVTD+20 03424000 SAVTPREQ EQU IEDNSVTD+16 03425000 SAVTPH20 EQU IEDNSVTD+14 03426000 SAVTPUSE EQU IEDNSVTD+12 03427000 SAVTPLCB EQU IEDNSVTD+8 03428000 SAVTPOOL EQU IEDNSVTD+4 03429000 SAVTPRMT EQU SAVTDIAF 03430000 SAVTVIRT EQU SAVTDIAF 03431000 AVTSITS EQU IEDQAVTD+1264 03432000 AVTMSUHI EQU IEDQAVTD+1260 03433000 AVTSITU EQU IEDQAVTD+1256 03434000 AVTSITP EQU IEDQAVTD+1252 03435000 AVTPADDR EQU IEDQAVTD+1248 03436000 @NM00092 EQU IEDQAVTD+1246 03437000 AVTCPBNO EQU IEDQAVTD+1244 03438000 AVTHRESS EQU IEDQAVTD+1243 03439000 @NM00091 EQU IEDQAVTD+1242 03440000 @NM00090 EQU IEDQAVTD+1241 03441000 @NM00089 EQU IEDQAVTD+1240 03442000 @NM00088 EQU IEDQAVTD+1237 03443000 @NM00087 EQU IEDQAVTD+1236 03444000 AVTHRESE EQU @NM00086 03445000 AVTRADDR EQU IEDQAVTD+1228 03446000 AVTNADDR EQU IEDQAVTD+1224 03447000 AVTHRESN EQU IEDQAVTD+1220 03448000 AVTVOLRN EQU IEDQAVTD+1216 03449000 AVTTOTNN EQU IEDQAVTD+1212 03450000 AVTTRCYN EQU IEDQAVTD+1208 03451000 AVTRCTRN EQU IEDQAVTD+1204 03452000 AVTNOVON EQU IEDQAVTD+1200 03453000 AVTADEBN EQU IEDQAVTD+1196 03454000 AVTVOLRR EQU IEDQAVTD+1192 03455000 AVTTOTNR EQU IEDQAVTD+1188 03456000 AVTTRCYR EQU IEDQAVTD+1184 03457000 AVTRCTRR EQU IEDQAVTD+1180 03458000 AVTNOVOR EQU IEDQAVTD+1176 03459000 AVTADEBR EQU IEDQAVTD+1172 03460000 AVTLODPT EQU IEDQAVTD+1168 03461000 AVTIOBN EQU IEDQAVTD+1164 03462000 AVTIOBR EQU IEDQAVTD+1160 03463000 AVTCPBPT EQU IEDQAVTD+1156 03464000 AVTFCPB EQU IEDQAVTD+1152 03465000 @NM00085 EQU IEDQAVTD+1148 03466000 AVTINCPQ EQU IEDQAVTD+1144 03467000 @NM00084 EQU IEDQAVTD+1140 03468000 @NM00083 EQU IEDQAVTD+1137 03469000 @NM00082 EQU AVTBIT4 03470000 @NM00081 EQU AVTBIT4 03471000 @NM00080 EQU AVTBIT4 03472000 @NM00079 EQU AVTBIT4 03473000 @NM00078 EQU AVTBIT4 03474000 @NM00077 EQU AVTBIT4 03475000 @NM00076 EQU AVTBIT4 03476000 AVTRUFTN EQU AVTBIT4 03477000 @NM00075 EQU IEDQAVTD+1132 03478000 AVTNOBFQ EQU IEDQAVTD+1128 03479000 @NM00074 EQU IEDQAVTD+1124 03480000 AVTDKENQ EQU IEDQAVTD+1120 03481000 @NM00073 EQU IEDQAVTD+1116 03482000 AVTDKAPQ EQU IEDQAVTD+1112 03483000 AVTCOPY EQU IEDQAVTD+1108 03484000 AVTIA EQU IEDQAVTD+1104 03485000 AVTFL EQU IEDQAVTD+1100 03486000 @NM00072 EQU IEDQAVTD+1096 03487000 AVTNCPBQ EQU IEDQAVTD+1092 03488000 AVTTOTNC EQU IEDQAVTD+1088 03489000 AVTCMAX EQU IEDQAVTD+1084 03490000 AVTCMIN EQU IEDQAVTD+1080 03491000 AVTHM02 EQU IEDQAVTD+1076 03492000 AVTOPCIN EQU IEDQAVTD+1074 03493000 AVTDCTLN EQU IEDQAVTD+1072 03494000 AVTOPMSK EQU IEDQAVTD+1068 03495000 AVTDDFT EQU IEDQAVTD+1064 03496000 AVTSTEAL EQU IEDQAVTD+1060 03497000 AVTOPTN EQU IEDQAVTD+1056 03498000 AVTDSKCT EQU IEDQAVTD+1054 03499000 AVTCKRST EQU IEDQAVTD+1053 03500000 AVTSTAN EQU AVTBIT3 03501000 AVTSTACN EQU AVTBIT3 03502000 AVTSTAIN EQU AVTBIT3 03503000 AVTSTAYN EQU AVTBIT3 03504000 AVTOLTBN EQU AVTBIT3 03505000 AVTTSAB EQU AVTBIT3 03506000 AVTRFULN EQU AVTBIT3 03507000 AVTRECVN EQU AVTBIT3 03508000 @NM00071 EQU AVTBIT2 03509000 @NM00070 EQU AVTBIT2 03510000 AVTOPEIN EQU AVTBIT2 03511000 AVTSTRTN EQU AVTBIT2 03512000 AVTTOPOL EQU AVTBIT2 03513000 AVTCOPYN EQU AVTBIT2 03514000 AVTREUSN EQU AVTBIT2 03515000 AVTEXTSC EQU AVTBIT2 03516000 AVTDISKN EQU AVTBIT1 03517000 AVTQUCKN EQU AVTBIT1 03518000 AVTCLOSN EQU AVTBIT1 03519000 AVTREADN EQU AVTBIT1 03520000 AVTDLAYN EQU AVTBIT1 03521000 AVTAQTAN EQU AVTBIT1 03522000 AVTTSON EQU AVTBIT1 03523000 AVTAPLKN EQU AVTBIT1 03524000 AVTDUMBR EQU IEDQAVTD+1048 03525000 AVTDLQX EQU IEDQAVTD+1046 03526000 AVTINTLV EQU IEDQAVTD+1044 03527000 AVTSMCNT EQU IEDQAVTD+1042 03528000 AVTAVFCT EQU IEDQAVTD+1040 03529000 AVTOPCON EQU IEDQAVTD+1038 03530000 AVTOPCNT EQU IEDQAVTD+1036 03531000 AVTLNCNT EQU IEDQAVTD+1034 03532000 AVTKEYLE EQU IEDQAVTD+1032 03533000 AVTHA16 EQU IEDQAVTD+1030 03534000 AVTHA7 EQU IEDQAVTD+1028 03535000 AVTHA4 EQU IEDQAVTD+1026 03536000 AVTHA3 EQU IEDQAVTD+1024 03537000 AVTHA2 EQU IEDQAVTD+1022 03538000 AVTGETMS EQU IEDQAVTD+1021 03539000 @NM00069 EQU IEDQAVTD+1020 03540000 AVTGETMD EQU IEDQAVTD+1016 03541000 AVTGETMN EQU IEDQAVTD+1012 03542000 AVTCWTOT EQU IEDQAVTD+1008 03543000 AVTCWINT EQU IEDQAVTD+956 03544000 AVTDTRAP EQU IEDQAVTD+952 03545000 @NM00068 EQU IEDQAVTD+950 03546000 @NM00067 EQU AVTIOTR 03547000 AVTIOTRH EQU AVTIOTR 03548000 AVTIOTRE EQU AVTIOTR 03549000 @NM00066 EQU AVTSUBT 03550000 AVTSUBPT EQU AVTSUBT 03551000 AVTSUBON EQU AVTSUBT 03552000 AVTAFE30 EQU IEDQAVTD+944 03553000 AVTAFE20 EQU IEDQAVTD+940 03554000 AVTAFE10 EQU IEDQAVTD+936 03555000 AVTCWEC2 EQU IEDQAVTD+932 03556000 AVTCWPM2 EQU IEDQAVTD+928 03557000 AVTCWTS2 EQU IEDQAVTD+927 03558000 AVTCWTS1 EQU IEDQAVTD+926 03559000 AVTCWCLD EQU AVTCWFL2 03560000 AVTCWRAP EQU AVTCWFL2 03561000 @NM00065 EQU AVTCWFL2 03562000 @NM00064 EQU AVTCWFL2 03563000 @NM00063 EQU AVTCWFL2 03564000 @NM00062 EQU AVTCWFL2 03565000 @NM00061 EQU AVTCWFL2 03566000 AVTCWACT EQU AVTCWFL2 03567000 @NM00060 EQU AVTCWFL1 03568000 @NM00059 EQU AVTCWFL1 03569000 @NM00058 EQU AVTCWFL1 03570000 @NM00057 EQU AVTCWFL1 03571000 @NM00056 EQU AVTCWFL1 03572000 @NM00055 EQU AVTCWFL1 03573000 @NM00054 EQU AVTCWFL1 03574000 AVTCOMWN EQU AVTCWFL1 03575000 AVTCWEC1 EQU IEDQAVTD+920 03576000 AVTCWPM1 EQU IEDQAVTD+916 03577000 AVTCAREA EQU IEDQAVTD+912 03578000 AVTFZERO EQU IEDQAVTD+908 03579000 AVTCADDR EQU IEDQAVTD+904 03580000 AVTCOREC EQU IEDQAVTD+900 03581000 @NM00053 EQU IEDQAVTD+892 03582000 AVTCPBCB EQU IEDQAVTD+888 03583000 @NM00052 EQU IEDQAVTD+880 03584000 AVTDSIOB EQU IEDQAVTD+876 03585000 @NM00051 EQU IEDQAVTD+868 03586000 AVTCPRMB EQU IEDQAVTD+864 03587000 @NM00050 EQU IEDQAVTD+856 03588000 AVTCLOSB EQU IEDQAVTD+852 03589000 @NM00049 EQU IEDQAVTD+844 03590000 AVTACTIB EQU IEDQAVTD+840 03591000 @NM00048 EQU IEDQAVTD+836 03592000 AVTOLTEB EQU IEDQAVTD+832 03593000 AVTOLTCH EQU AVTOLTQB+1 03594000 AVTOLTVT EQU AVTOLTQB 03595000 @NM00047 EQU AVTOPCQB+8 03596000 @NM00046 EQU AVTOPCEC+1 03597000 @NM00045 EQU AVTOPCCC 03598000 AVTOPCPO EQU AVTOPCCC 03599000 AVTOPCWA EQU AVTOPCCC 03600000 AVTOPCCH EQU AVTOPCOB+1 03601000 AVTOPCVT EQU AVTOPCOB 03602000 @NM00044 EQU AVTCKPQB+9 03603000 AVTCKPTS EQU AVTCKPQB+8 03604000 @NM00043 EQU AVTCKPEC+1 03605000 @NM00042 EQU AVTCKPCC 03606000 AVTCKPPO EQU AVTCKPCC 03607000 AVTCKPWA EQU AVTCKPCC 03608000 AVTCKPCH EQU AVTCKPTB+1 03609000 AVTCKPVT EQU AVTCKPTB 03610000 @NM00041 EQU IEDQAVTD+796 03611000 AVTBFRTB EQU IEDQAVTD+792 03612000 @NM00040 EQU IEDQAVTD+788 03613000 AVTSELCH EQU IEDQAVTD+785 03614000 AVTBFRTN EQU AVTBFRFG 03615000 AVTBFREB EQU IEDQAVTD+780 03616000 AVTTIMQ EQU IEDQAVTD+776 03617000 @NM00039 EQU IEDQAVTD+772 03618000 AVTIMQPS EQU IEDQAVTD+768 03619000 AVTINOUT EQU IEDQAVTD+766 03620000 AVTREFTM EQU IEDQAVTD+764 03621000 @NM00038 EQU IEDQAVTD+752 03622000 AVTDELYB EQU IEDQAVTD+748 03623000 AVTOCQPT EQU IEDQAVTD+744 03624000 AVTTSOPT EQU IEDQAVTD+740 03625000 AVTSUPPT EQU IEDQAVTD+736 03626000 AVTCBQCB EQU IEDQAVTD+732 03627000 AVTMSGS EQU IEDQAVTD+729 03628000 @NM00037 EQU AVTSYSER 03629000 @NM00036 EQU AVTSYSER 03630000 @NM00035 EQU AVTSYSER 03631000 @NM00034 EQU AVTSYSER 03632000 @NM00033 EQU AVTSYSER 03633000 @NM00032 EQU AVTSYSER 03634000 AVTCMAXN EQU AVTSYSER 03635000 AVTCMINN EQU AVTSYSER 03636000 AVT2260L EQU IEDQAVTD+724 03637000 AVTABEPL EQU AVTADBUF 03638000 AVTHFF EQU AVTCLRHI+2 03639000 @NM00031 EQU AVTCLRHI 03640000 AVTCCLNK EQU AVTCRELE+5 03641000 AVTCCPRI EQU AVTCRELE+4 03642000 AVTCCQCB EQU AVTCCELE+1 03643000 AVTCCKEY EQU AVTCCELE 03644000 AVTDELAD EQU IEDQAVTD+704 03645000 AVTDELEM EQU IEDQAVTD+700 03646000 AVTBSX EQU AVTCKLNK 03647000 AVTOPETR EQU AVTHG01 03648000 @NM00030 EQU AVTCKBYT 03649000 AVTCKONQ EQU AVTCKBYT 03650000 @NM00029 EQU AVTCKBYT 03651000 @NM00028 EQU AVTCKBYT 03652000 @NM00027 EQU AVTCKBYT 03653000 @NM00026 EQU AVTCKBYT 03654000 @NM00025 EQU AVTCKBYT 03655000 @NM00024 EQU AVTCKBYT 03656000 AVTOPERT EQU IEDQAVTD+690 03657000 AVTOPXCL EQU IEDQAVTD+688 03658000 AVTOPERL EQU IEDQAVTD+687 03659000 @NM00023 EQU IEDQAVTD+686 03660000 AVTCKTIM EQU IEDQAVTD+684 03661000 AVTCKELV EQU IEDQAVTD+682 03662000 AVTCPRCD EQU IEDQAVTD+681 03663000 AVTWARMN EQU AVTCKELF 03664000 AVTCRTLN EQU AVTCKELF 03665000 AVTCPIPN EQU AVTCKELF 03666000 AVTCCLCN EQU AVTCKELF 03667000 AVTCINCN EQU AVTCKELF 03668000 @NM00022 EQU AVTCKELF 03669000 AVTCMCPN EQU AVTCKELF 03670000 AVTNQBCK EQU AVTCKELF 03671000 AVTCKQAD EQU IEDQAVTD+677 03672000 AVTSCBSZ EQU IEDQAVTD+676 03673000 @NM00021 EQU IEDQAVTD+672 03674000 AVTCKELE EQU IEDQAVTD+668 03675000 @NM00020 EQU AVTCKPEL+8 03676000 AVTCKRLK EQU AVTCKPEL+5 03677000 AVTCKRPR EQU AVTCKPEL+4 03678000 AVTCKRMQ EQU AVTCKRMV+1 03679000 AVTCKRKY EQU AVTCKRMV 03680000 AVTHK EQU IEDQAVTD+648 03681000 AVTHI EQU IEDQAVTD+644 03682000 AVTNX EQU IEDQAVTD+636 03683000 AVTTONE EQU IEDQAVTD+632 03684000 AVTA3TL EQU IEDQAVTD+628 03685000 AVTDMECB EQU IEDQAVTD+624 03686000 AVTABEND EQU IEDQAVTD+618 03687000 AVTPLCBN EQU IEDQAVTD+616 03688000 @NM00019 EQU AVTSAVTP+1 03689000 @NM00018 EQU AVTSAVTF 03690000 AVTSNA EQU AVTSAVTF 03691000 AVTONSNA EQU AVTSAVTF 03692000 AVTVTMCP EQU AVTSAVTF 03693000 @NM00017 EQU IEDQAVTD+608 03694000 AVTCMBSS EQU IEDQAVTD+604 03695000 AVTRCV EQU IEDQAVTD+600 03696000 AVTSEND EQU IEDQAVTD+596 03697000 AVTCSCH EQU IEDQAVTD+592 03698000 AVTQ1 EQU IEDQAVTD+588 03699000 AVTE7 EQU IEDQAVTD+584 03700000 AVTHB EQU IEDQAVTD+580 03701000 AVTR1 EQU IEDQAVTD+576 03702000 AVTBZ EQU IEDQAVTD+572 03703000 AVTEZ EQU IEDQAVTD+568 03704000 AVTEC EQU IEDQAVTD+564 03705000 AVTEW EQU IEDQAVTD+560 03706000 AVTNDIAL EQU AVTSCOPT 03707000 AVTN2741 EQU AVTSCOPT 03708000 AVTCONCO EQU AVTSCOPT 03709000 AVTCONC EQU AVTSCOPT 03710000 AVTCMBUF EQU AVTSCOPT 03711000 AVTAPDMP EQU AVTSCOPT 03712000 @NM00016 EQU AVTSCOPT 03713000 AVTHA EQU AVTDISP 03714000 AVTEA EQU IEDQAVTD+548 03715000 AVTAX EQU IEDQAVTD+544 03716000 AVTA3 EQU IEDQAVTD+540 03717000 AVTGD EQU IEDQAVTD+536 03718000 AVTAL EQU IEDQAVTD+532 03719000 AVTOLTST EQU AVTHG02 03720000 AVTE8 EQU IEDQAVTD+524 03721000 AVTUI EQU IEDQAVTD+520 03722000 AVTCOMPT EQU IEDQAVTD+516 03723000 AVTCRSRF EQU IEDQAVTD+512 03724000 @NM00015 EQU IEDQAVTD+508 03725000 AVTKA02 EQU IEDQAVTD+504 03726000 AVTOPTPT EQU IEDQAVTD+500 03727000 AVTPCBPT EQU IEDQAVTD+496 03728000 @NM00014 EQU AVTECB1 03729000 AVTCOMP EQU AVTECB1 03730000 @NM00013 EQU AVTECB1 03731000 AVTOPECA EQU IEDQAVTD+488 03732000 AVTOLECA EQU IEDQAVTD+484 03733000 AVTCKECA EQU IEDQAVTD+480 03734000 AVTCWECA EQU IEDQAVTD+476 03735000 AVTCWTCB EQU IEDQAVTD+472 03736000 AVTOLTCB EQU IEDQAVTD+468 03737000 AVTOCTCB EQU IEDQAVTD+464 03738000 AVTCKTCB EQU IEDQAVTD+460 03739000 AVTAS EQU IEDQAVTD+456 03740000 AVTNOLBF EQU IEDQAVTD+454 03741000 AVTNCKPR EQU IEDQAVTD+453 03742000 AVTCIB EQU IEDQAVTD+452 03743000 AVTSPLPT EQU IEDQAVTD+448 03744000 AVTMVBFR EQU IEDQAVTD+444 03745000 AVTSBTA EQU IEDQAVTD+440 03746000 AVTRARTN EQU IEDQAVTD+436 03747000 AVTBSCAN EQU IEDQAVTD+432 03748000 AVTRDYA EQU IEDQAVTD+428 03749000 AVTDISTR EQU IEDQAVTD+420 03750000 AVTPARM3 EQU IEDQAVTD+416 03751000 @NM00012 EQU AVTPKF 03752000 @NM00011 EQU AVTPKF 03753000 @NM00010 EQU AVTPKF 03754000 AVTFTCHF EQU AVTPKF 03755000 @NM00009 EQU AVTPKF 03756000 @NM00008 EQU AVTPKF 03757000 @NM00007 EQU AVTPKF 03758000 @NM00006 EQU AVTPKF 03759000 AVTPARM EQU IEDQAVTD+408 03760000 AVTEXS2A EQU IEDQAVTD+402 03761000 AVTEXA2S EQU IEDQAVTD+396 03762000 AVTOCGET EQU IEDQAVTD+392 03763000 AVTCKAVT EQU @NM00004+1 03764000 @NM00005 EQU AVTCKFLG 03765000 AVTCKHLT EQU AVTCKFLG 03766000 AVTCKREQ EQU AVTCKFLG 03767000 AVTCKENV EQU AVTCKFLG 03768000 AVTCKNAC EQU AVTCKFLG 03769000 AVTCKTAC EQU AVTCKFLG 03770000 AVTBUENT EQU IEDQAVTD+386 03771000 @NM00003 EQU IEDQAVTD+385 03772000 AVTFULLT EQU AVTBUFSW 03773000 AVTUNCON EQU AVTBUFSW 03774000 @NM00002 EQU AVTBUFSW 03775000 AVTBUFTR EQU AVTREADD 03776000 AVTREADY EQU IEDQAVTD+376 03777000 AVTRACE EQU IEDQAVTD+372 03778000 AVTTCB EQU IEDQAVTD+368 03779000 AVTPASWD EQU IEDQAVTD+360 03780000 AVTCTLCH EQU IEDQAVTD+352 03781000 AVTDOUBL EQU IEDQAVTD+344 03782000 AVTDOUBX EQU IEDQAVTD+336 03783000 AVTDPARM EQU IEDQAVTD+332 03784000 AVTCSTCS EQU IEDQAVTD+328 03785000 AVTDLQ EQU AVTSAVEX+32 03786000 @NM00001 EQU AVTSAVEX 03787000 AVTSAVE4 EQU IEDQAVTD+216 03788000 AVTSAVE3 EQU IEDQAVTD+144 03789000 AVTSAVE2 EQU IEDQAVTD+72 03790000 AVTSAVE1 EQU IEDQAVTD 03791000 @NM00204 EQU PSA+3668 03792000 PSASTAK EQU PSA+3072 03793000 @NM00203 EQU PSA+1048 03794000 PSAUSEND EQU PSA+1048 03795000 PSARV062 EQU PSA+1044 03796000 PSACDAL EQU PSA+1040 03797000 PSAWTCOD EQU PSA+1036 03798000 PSAATCVT EQU PSA+1032 03799000 PSAPCPSW EQU PSA+1024 03800000 PSAPIR2 EQU PSA+1020 03801000 PSARV059 EQU PSA+1018 03802000 PSASVC13 EQU PSA+1016 03803000 PSALSFCC EQU PSA+1012 03804000 PSASFACC EQU PSA+1008 03805000 PSASTOP EQU PSA+992 03806000 PSASTART EQU PSA+976 03807000 PSARSPSW EQU PSA+968 03808000 PSASRPSW EQU PSA+960 03809000 PSARV045 EQU PSA+892 03810000 PSARV044 EQU PSA+888 03811000 PSARV043 EQU PSA+884 03812000 PSARV042 EQU PSA+880 03813000 PSARV041 EQU PSA+876 03814000 PSARV040 EQU PSA+872 03815000 PSARV025 EQU PSA+868 03816000 PSADSSED EQU PSA+868 03817000 PSADSSPR EQU PSA+864 03818000 PSADSSFW EQU PSA+860 03819000 PSADSS14 EQU PSA+856 03820000 PSADSSPP EQU PSA+848 03821000 PSADSSRP EQU PSA+840 03822000 PSADSS05 EQU PSADSSF4 03823000 PSADSS10 EQU PSADSSF4 03824000 PSADSSVE EQU PSADSSF4 03825000 PSADSSDE EQU PSADSSF4 03826000 PSADSSC0 EQU PSADSSF4 03827000 PSADSSIE EQU PSADSSF4 03828000 PSADSS12 EQU PSADSSF4 03829000 PSADSSRC EQU PSADSSF4 03830000 PSARV057 EQU PSADSSF3 03831000 PSARV056 EQU PSADSSF3 03832000 PSARV055 EQU PSADSSF3 03833000 PSADSSMC EQU PSADSSF3 03834000 PSADSSRW EQU PSADSSF3 03835000 PSADSSNM EQU PSADSSF3 03836000 PSADSSES EQU PSADSSF3 03837000 PSADSSGP EQU PSADSSF3 03838000 PSADSSF2 EQU PSADSSFL+1 03839000 PSADSSPI EQU PSADSSF1 03840000 PSADSSOI EQU PSADSSF1 03841000 PSADSSSP EQU PSADSSF1 03842000 PSADSSTP EQU PSADSSF1 03843000 PSADSSDW EQU PSADSSF1 03844000 PSADSSDD EQU PSADSSF1 03845000 PSADSSDM EQU PSADSSF1 03846000 PSADSSMV EQU PSADSSF1 03847000 PSADSSTS EQU PSA+816 03848000 PSADSSWK EQU PSA+812 03849000 PSADSSR3 EQU PSA+808 03850000 PSADSSR2 EQU PSA+804 03851000 PSADSSRS EQU PSA+800 03852000 PSASTOR EQU PSA+796 03853000 PSACPUSA EQU PSA+794 03854000 PSAVSTAP EQU PSA+792 03855000 PSAWKVAP EQU PSA+788 03856000 PSAWKRAP EQU PSA+784 03857000 PSAMCHIC EQU PSA+783 03858000 PSARV061 EQU PSA+782 03859000 PSASYMSK EQU PSA+781 03860000 PSAMCHFL EQU PSA+780 03861000 PSACR0 EQU PSA+776 03862000 PSAPSWSV EQU PSA+768 03863000 PSACLHS EQU PSAHLHI 03864000 PSALKR15 EQU PSALKSA+60 03865000 PSALKR14 EQU PSALKSA+56 03866000 PSALKR13 EQU PSALKSA+52 03867000 PSALKR12 EQU PSALKSA+48 03868000 PSALKR11 EQU PSALKSA+44 03869000 PSALKR10 EQU PSALKSA+40 03870000 PSALKR9 EQU PSALKSA+36 03871000 PSALKR8 EQU PSALKSA+32 03872000 PSALKR7 EQU PSALKSA+28 03873000 PSALKR6 EQU PSALKSA+24 03874000 PSALKR5 EQU PSALKSA+20 03875000 PSALKR4 EQU PSALKSA+16 03876000 PSALKR3 EQU PSALKSA+12 03877000 PSALKR2 EQU PSALKSA+8 03878000 PSALKR1 EQU PSALKSA+4 03879000 PSALKR0 EQU PSALKSA 03880000 PSARV023 EQU PSACLHT+52 03881000 PSALOCAL EQU PSACLHT+48 03882000 PSACMSL EQU PSACLHT+44 03883000 PSAOPTL EQU PSACLHT+40 03884000 PSATPACL EQU PSACLHT+36 03885000 PSATPDNL EQU PSACLHT+32 03886000 PSATPNCL EQU PSACLHT+28 03887000 PSAIOSLL EQU PSACLHT+24 03888000 PSAIOSUL EQU PSACLHT+20 03889000 PSAIOSCL EQU PSACLHT+16 03890000 PSAIOSSL EQU PSACLHT+12 03891000 PSASALCL EQU PSACLHT+8 03892000 PSAASML EQU PSACLHT+4 03893000 PSADISPL EQU PSACLHT 03894000 PSASRSA EQU PSA+636 03895000 PSARV050 EQU PSA+634 03896000 PSADSSGO EQU PSA+633 03897000 PSARECUR EQU PSA+632 03898000 PSAHLHIS EQU PSA+628 03899000 PSAIPCSA EQU PSA+624 03900000 @NM00202 EQU PSA+621 03901000 PSAIPCDM EQU PSA+620 03902000 PSAIPCD EQU PSA+616 03903000 @NM00201 EQU PSA+613 03904000 PSAIPCRM EQU PSA+612 03905000 PSAIPCR EQU PSA+608 03906000 PSAMCHEX EQU PSA+600 03907000 PSAMPSW EQU PSA+592 03908000 PSAEXPS2 EQU PSA+584 03909000 PSAEXPS1 EQU PSA+576 03910000 PSAPIREG EQU PSA+572 03911000 PSARSREG EQU PSA+568 03912000 PSAGPREG EQU PSA+556 03913000 PSARV022 EQU PSASUP4 03914000 PSARV021 EQU PSASUP4 03915000 PSARV020 EQU PSASUP4 03916000 PSARV019 EQU PSASUP4 03917000 PSARV018 EQU PSASUP4 03918000 PSARV017 EQU PSASUP4 03919000 PSARV016 EQU PSASUP4 03920000 PSARV015 EQU PSASUP4 03921000 PSARV014 EQU PSASUP3 03922000 PSARV013 EQU PSASUP3 03923000 PSARV012 EQU PSASUP3 03924000 PSAESTA EQU PSASUP3 03925000 PSASPR EQU PSASUP3 03926000 PSAPSREG EQU PSASUP3 03927000 PSAPI2 EQU PSASUP3 03928000 PSAIOSUP EQU PSASUP3 03929000 PSALCR EQU PSASUP2 03930000 PSARTM EQU PSASUP2 03931000 PSAACR EQU PSASUP2 03932000 PSAIPCE2 EQU PSASUP2 03933000 PSAIPCES EQU PSASUP2 03934000 PSAIPCEC EQU PSASUP2 03935000 PSAGTF EQU PSASUP2 03936000 PSAIPCRI EQU PSASUP2 03937000 PSATYPE6 EQU PSASUP1 03938000 PSATCTL EQU PSASUP1 03939000 PSADISP EQU PSASUP1 03940000 PSALOCK EQU PSASUP1 03941000 PSAPI EQU PSASUP1 03942000 PSAEXT EQU PSASUP1 03943000 PSASVC EQU PSASUP1 03944000 PSAIO EQU PSASUP1 03945000 PSAAOLD EQU PSA+548 03946000 PSAANEW EQU PSA+544 03947000 PSATOLD EQU PSA+540 03948000 PSATNEW EQU PSA+536 03949000 PSALCCAR EQU PSA+532 03950000 PSALCCAV EQU PSA+528 03951000 PSAPCCAR EQU PSA+524 03952000 PSAPCCAV EQU PSA+520 03953000 PSACPULA EQU PSA+518 03954000 PSACPUPA EQU PSA+516 03955000 PSAPSA EQU PSA+512 03956000 FLCHDEND EQU PSA+512 03957000 FLCCRSAV EQU FLCMCLA+280 03958000 FLCGRSAV EQU FLCMCLA+216 03959000 FLCFPSAV EQU FLCMCLA+184 03960000 FLCFLA EQU FLCMCLA+88 03961000 FLCRGNCD EQU FLCMCLA+84 03962000 FLCFSAA EQU FLCFSA+1 03963000 @NM00200 EQU FLCFSA 03964000 @NM00199 EQU FLCMCLA+72 03965000 FLCMCIC EQU FLCMCLA+64 03966000 @NM00198 EQU FLCMCLA+20 03967000 FLCIOAA EQU FLCIOA+1 03968000 @NM00197 EQU FLCIOA 03969000 @NM00196 EQU FLCMCLA+15 03970000 @NM00195 EQU FLCMCLA+14 03971000 @NM00194 EQU FLCMCLA+12 03972000 FLCLCL EQU FLCMCLA+8 03973000 FLCIOELA EQU FLCIOEL+1 03974000 @NM00193 EQU FLCIOEL 03975000 FLCCHNID EQU FLCMCLA 03976000 @NM00192 EQU PSA+160 03977000 FLCMTRCD EQU PSA+157 03978000 @NM00191 EQU PSA+156 03979000 FLCPERA EQU FLCPER+1 03980000 @NM00190 EQU FLCPER 03981000 @NM00189 EQU PSA+151 03982000 FLCPERCD EQU PSA+150 03983000 FLCMCNUM EQU PSA+149 03984000 @NM00188 EQU PSA+148 03985000 FLCTEAA EQU FLCTEA+1 03986000 @NM00187 EQU FLCTEA 03987000 PSAPIPC EQU PSAPICOD 03988000 PSAPIMC EQU PSAPICOD 03989000 PSAPIPER EQU PSAPICOD 03990000 PSARV049 EQU FLCPICOD 03991000 FLCPILCB EQU FLCPIILC 03992000 @NM00186 EQU FLCPIILC 03993000 @NM00185 EQU PSAEPPSW 03994000 FLCSVCN EQU PSAESPSW+2 03995000 FLCSILCB EQU FLCSVILC 03996000 @NM00184 EQU FLCSVILC 03997000 @NM00183 EQU PSAESPSW 03998000 FLCEICOD EQU PSAEEPSW+2 03999000 PSASPAD EQU PSAEEPSW 04000000 @NM00182 EQU PSA+128 04001000 FLCINPSW EQU PSA+120 04002000 FLCMNPSW EQU PSA+112 04003000 FLCPNPSW EQU PSA+104 04004000 FLCSNPSW EQU PSA+96 04005000 FLCENPSW EQU PSA+88 04006000 FLCTRACE EQU PSA+84 04007000 FLCTIMER EQU PSA+80 04008000 FLCCVT2 EQU PSA+76 04009000 FLCCAW EQU PSA+72 04010000 FLCCSW EQU PSA+64 04011000 FLCIOPSW EQU PSA+56 04012000 FLCMOPSW EQU PSA+48 04013000 FLCPOPSW EQU PSA+40 04014000 FLCSOPSW EQU PSA+32 04015000 FLCEOPSW EQU PSA+24 04016000 @NM00181 EQU FLCICCW2+4 04017000 FLCCVT EQU FLCICCW2 04018000 FLCICCW1 EQU FLCROPSW 04019000 FLCIPPSW EQU FLCRNPSW 04020000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04021000 @RF00337 EQU @RC00327 04022000 @RC00335 EQU @RC00327 04023000 @RC00331 EQU @RC00327 04024000 @RC00373 EQU @RC00369 04025000 @RC00403 EQU @RC00386 04026000 @RC00401 EQU @RC00386 04027000 @RC00390 EQU @RC00386 04028000 @RC00388 EQU @RC00386 04029000 @PB00002 EQU @EL00001 04030000 @RC00397 EQU @RC00390 04031000 @RC00392 EQU @RC00390 04032000 CE0001@ EQU @PB00002 04033000 @RC00418 EQU CE0001@ 04034000 @RC00484 EQU CE0001@ 04035000 @ENDDATA EQU * 04036000 END IGE0004I,(C'PLS1421',0701,78129) 04037000