TITLE 'IGE0001G, SENECA ERROR RECOVERY PROCEDURE *00001000 ' 00002000 ER3890 CSECT , 0001 00003000 @PROLOG BALR @06,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@06 0001 00006000 * 0106 00007000 * /*****************************************************************/ 00008000 * /* */ 00009000 * /* INITIALIZE IOB FLAGS */ 00010000 * /* */ 00011000 * /*****************************************************************/ 00012000 * 0107 00013000 * UCBPTR=IOSUCB; /* INIT PTR YM2316 */ 00014000 L UCBPTR,IOSUCB(,IOSBPTR) 0107 00015000 * EWAPTR=IOSERP; /* PTR FOR WORK AREA Y02990 */ 00016000 L EWAPTR,IOSERP(,IOSBPTR) 0108 00017000 * IOSERR='1'B; /* IOSB ERROR FLAG ON Y02990 */ 00018000 * IOSEX='1'B; /* SET IOSB EXCEPTION Y02990 */ 00019000 OI IOSERR(IOSBPTR),B'00100100' 0110 00020000 * CVTREG=CVTPTR; /* INITIALIZE CVT REGISTER */ 00021000 L CVTREG,CVTPTR 0111 00022000 * IF IOSACHN='11'B /* TEST FOR MIX CHAIN Y02990 */ 00023000 * THEN /* YES, RECOVERY NOT POSSIBLE */ 00024000 TM IOSACHN(IOSBPTR),B'11000000' 0112 00025000 BO @RT00112 0112 00026000 * GO TO EXIT22; /* PERMANENT ERROR- NO LOGOUT */ 00027000 * ELSE /* NO - CONTINUE */ 00028000 * CCWREG=IOSCSWCA-EIGHT; /* BACKUP ONE CCW Y02990 */ 00029000 L CCWREG,IOSCSWCA-1(,IOSBPTR) 0114 00030000 LA CCWREG,0(,CCWREG) 0114 00031000 SL CCWREG,@CF00183 0114 00032000 * IF IOSCCHN='0'B /* TEST OF CMND CHAIN Y02990 */ 00033000 * THEN /* NO - MUST BE DATA OR NONE */ 00034000 TM IOSCCHN(IOSBPTR),B'01000000' 0115 00035000 BZ @RT00115 0115 00036000 * GO TO STATUS; /* CHECK STATUS BYTE */ 00037000 * RFY 0117 00038000 * WKREG RSTD; /* Y02990 */ 00039000 * WKREG=CCWREG; /* Y02990 */ 00040000 LR WKREG,CCWREG 0118 00041000 * GEN(LRA WKREG,0(WKREG)); /* POINT TO REAL ADDR Y02990 */ 00042000 LRA WKREG,0(WKREG) 00043000 * IF IOSENT='0'B /* PREVIOUS ENTRY? Y02990 */ 00044000 * THEN /* NO -FIRST TIME THROUGH */ 00045000 TM IOSENT(EWAPTR),B'00000100' 0120 00046000 BNZ @RF00120 0120 00047000 * DO; 0121 00048000 * IOSENT='1'B; /* SET ENTRY BIT Y02990 */ 00049000 OI IOSENT(EWAPTR),B'00000100' 0122 00050000 * GO TO RSTART; /* SET RESTART ADDRESS */ 00051000 B RSTART 0123 00052000 * END; 0124 00053000 * IF WKREG=IOSRST /* ERROR ON RESTART? Y02990 */ 00054000 * THEN /* YES - FLAGS ALREADY SET */ 00055000 @RF00120 C WKREG,IOSRST(,IOSBPTR) 0125 00056000 BE @RT00125 0125 00057000 * GO TO STATUS; /* CHECK STATUS BYTE */ 00058000 * ELSE /* NO - RESET ERROR COUNTS */ 00059000 * DO; 0127 00060000 * IOSFL3='00'B; /* RESET ERROR COUNTERY02990 */ 00061000 MVI IOSFL3(EWAPTR),B'00000000' 0128 00062000 * IOSFL4='00'B; /* RESET ERROR COUNTERY02990 */ 00063000 MVI IOSFL4(EWAPTR),B'00000000' 0129 00064000 * END; 0130 00065000 *RSTART: 0131 00066000 * IOSRST=WKREG; /* SET RESTART ADDR Y02990 */ 00067000 RSTART ST WKREG,IOSRST(,IOSBPTR) 0131 00068000 * RFY 0132 00069000 * WKREG UNRSTD; /* Y02990 */ 00070000 * 0132 00071000 * /*****************************************************************/ 00072000 * /* */ 00073000 * /* TEST STATUS INFORMATION */ 00074000 * /* */ 00075000 * /*****************************************************************/ 00076000 * 0133 00077000 *STATUS: 0133 00078000 * ERRLNK=BASEREG; /* SAVE BASEREG Y02990 */ 00079000 STATUS LR ERRLNK,BASEREG 0133 00080000 * CALL XLTE; /* XFER CONTROL TO INTERPRETER */ 00081000 L @12,CVTPTR 0134 00082000 L @15,CVTXITP(,@12) 0134 00083000 BALR @14,@15 0134 00084000 *STATBY: 0135 00085000 * GENERATE; 0135 00086000 * 0135 00087000 STATBY DS 0H 0135 00088000 * /* INTEROGATE STATUS */ 00089000 * THE FOLLOWING BYTES INDICATE THE ORDER IN WHICH THE STATUS BITS 00090000 * ARE TO BE TESTED FOLLOWED BY AN INDEX FALUE USED BY THE 00091000 * INTERPRETER TO RETURN TO THIS ROUTINE. 00092000 SPACE 00093000 DC X'1D' CHANNEL CONTROL CHECK 00094000 DC AL1(ERR2+4-STATBY) 00095000 DC X'1E' INTERFACE CONTROL CHECK 00096000 DC AL1(ERR2+8-STATBY-2) 00097000 DC X'1C' CHANNEL DATA CHECK 00098000 DC AL1(ERR2-STATBY-4) 00099000 DC X'10' ATTENTION - SHOULD NOT OCCUR 00100000 DC AL1(ERR1-STATBY-6) 00101000 DC X'12' CU END - SHOULD NOT OCCUR 00102000 DC AL1(ERR1-STATBY-8) 00103000 DC X'1F' CHAINING CHECK 00104000 DC AL1(ERR2+12-STATBY-10) YM2501 00105000 DC X'16' UNIT CHECK 00106000 DC AL1(ERR3-STATBY-12) 00107000 DC X'1A' PROGRAM CHECK 00108000 DC AL1(ERR1+4-STATBY-14) 00109000 DC X'1B' PROTECTION CHECK 00110000 DC AL1(ERR1+4-STATBY-16) 00111000 DC X'19' INCORRECT LENGTH 00112000 DC AL1(ERR2+16-STATBY-18) YM2501 00113000 DC X'17' UNIT EXCEPTION 00114000 DC AL1(ERR4+4-STATBY-20) 00115000 DC X'2F' END OF TEST 00116000 DC AL1(ERR4-STATBY-22) 00117000 * /*****************************************************************/ 00118000 * /* */ 00119000 * /* TEST SENSE BYTE */ 00120000 * /* */ 00121000 * /*****************************************************************/ 00122000 * 0136 00123000 *SENSE: 0136 00124000 * ERRLNK=BASEREG; /* SAVE BASEREG Y02990 */ 00125000 SENSE LR ERRLNK,BASEREG 0136 00126000 * CALL XLTE; /* XFER CONTROL TO INTERPRETER */ 00127000 L @12,CVTPTR 0137 00128000 L @15,CVTXITP(,@12) 0137 00129000 BALR @14,@15 0137 00130000 *SNSBYT: 0138 00131000 * GENERATE; 0138 00132000 * 0138 00133000 SNSBYT DS 0H 0138 00134000 * /* INTEROGATE SENSE */ 00135000 * THE FOLLOWING BYTES INDICATE THE ORDER IN WHICH THE SENSE BITS 00136000 * ARE TO BE TESTED FOLLOWED BY AN INDEX VALUE USED BY THE 00137000 * INTERPRETER TO RETURN TO THIS ROUTINE. 00138000 SPACE 00139000 DC X'05' OVERRUN - SHOULD NOT OCCUR 00140000 DC AL1(ERR6-SNSBYT) 00141000 DC X'03' EQUIPMENT CHECK 00142000 DC AL1(ERR6+4-SNSBYT-2) 00143000 DC X'02' BUSOUT CHECK 00144000 DC AL1(ERR6+8-SNSBYT-4) 00145000 DC X'04' DATA CHECK 00146000 DC AL1(ERR6+12-SNSBYT-6) 00147000 DC X'00' COMMAND REJECT 00148000 DC AL1(ERR6+16-SNSBYT-8) 00149000 DC X'01' INTERVENTION REQUIRED 00150000 DC AL1(ERR6+20-SNSBYT-10) 00151000 DC X'07' RUNNING 00152000 DC AL1(ERR6+20-SNSBYT-12) 00153000 DC X'06' NOT INITIALIZED 00154000 DC AL1(ERR6+20-SNSBYT-14) 00155000 DC X'2F' END OF TEST 00156000 DC AL1(ERR1+8-SNSBYT-16) 00157000 SPACE 00158000 * /*****************************************************************/ 00159000 * /* ERROR DIRECTORY *1 00160000 * /*****************************************************************/ 00161000 SPACE 00162000 ERR1 BC 15,EXIT12 PERMANENT ERROR - LOGOUT 00163000 BC 15,EXIT22 PERMANENT ERROR - NO LOGOUT 00164000 BC 15,ERR075 RETRY THE COMMAND 00165000 ERR2 BC 15,ERR002 CONTROL UNIT INOPERATIVE 00166000 BC 15,ERR001 CHANNEL INOPERATIVE - CCC 00167000 BC 15,ERR011 CHANNEL INOPERATIVE - ICC 00168000 BC 15,ERR004 CHAINING CHECK 00169000 BC 15,ERR006 INCORRECT LENGTH 00170000 ERR3 BC 15,ERR005 DO BASIC SENSE & CONTINUE 00171000 ERR4 BC 15,EXIT01 NORMAL CONDITION 00172000 BC 15,EXIT01A UNIT EXCEPTION 00173000 ERR6 BC 15,ERR015 UNIT CHECK - OVERRUN 00174000 BC 15,ERR025 UNIT CHECK - EQUIPMENT CHK 00175000 BC 15,ERR035 UNIT CHECK - BUSOUT CHK 00176000 BC 15,ERR045 UNIT CHECK - DATA CHK 00177000 BC 15,ERR055 UNIT CHECK - COMMAND REJECT 00178000 BC 15,ERR065 UNIT CHECK-IRV,NI,OR R 00179000 * /*****************************************************************/ 00180000 * /* */ 00181000 * /* CHANNEL ERROR */ 00182000 * /* */ 00183000 * /*****************************************************************/ 00184000 * 0139 00185000 *ERR001: 0139 00186000 * IF IOSCCC='1'B /* PREVIOUS CCC? Y02990 */ 00187000 * THEN /* YES - PERMANENT ERROR */ 00188000 ERR001 TM IOSCCC(EWAPTR),B'00100000' 0139 00189000 BNO @RF00139 0139 00190000 * EWACNTR3=ONE; /* IND ERROR ON RETRY Y02990 */ 00191000 MVI EWACNTR3(EWAPTR),X'01' 0140 00192000 * ELSE /* NO - SET CCC ERROR IND. */ 00193000 * IOSCCC='1'B; /* SET ERROR CTR TO 1 Y02990 */ 00194000 B @RC00139 0141 00195000 @RF00139 OI IOSCCC(EWAPTR),B'00100000' 0141 00196000 * GO TO ERR021; /* GET ERPIB */ 00197000 B ERR021 0142 00198000 *ERR011: 0143 00199000 * IF IOSICC='1'B /* PREVIOUS ICC? Y02990 */ 00200000 * THEN /* YES - PERMANENT ERROR */ 00201000 ERR011 TM IOSICC(EWAPTR),B'00010000' 0143 00202000 BNO @RF00143 0143 00203000 * EWACNTR3=ONE; /* IND ERROR ON RETRY Y02990 */ 00204000 MVI EWACNTR3(EWAPTR),X'01' 0144 00205000 * ELSE /* NO - SET ICC ERR IND */ 00206000 * IOSICC='1'B; /* SET ETTOR CTR TO 1 Y02990 */ 00207000 B @RC00143 0145 00208000 @RF00143 OI IOSICC(EWAPTR),B'00010000' 0145 00209000 *ERR021: 0146 00210000 * IF IOSCOD='7E'X /* TEST FOR INTERCEPT Y02990 */ 00211000 * THEN /* YES - PERMANENT ERROR */ 00212000 @RC00143 DS 0H 0146 00213000 ERR021 CLI IOSCOD(IOSBPTR),X'7E' 0146 00214000 BE @RT00146 0146 00215000 * GO TO ERR051; /* CLEAR ERPIB AND EXIT */ 00216000 * IF EWACNTR3=ONE /* YES PERMANENT ERR Y02990 */ 00217000 * THEN /* YES - PERMANENT ERROR */ 00218000 CLI EWACNTR3(EWAPTR),1 0148 00219000 BE @RT00148 0148 00220000 * GO TO ERR051; /* CLEAR ERPIB AND EXIT */ 00221000 * IF IBSEQ='000'B /* TEST FOR SEQ CODE ZERO */ 00222000 * THEN /* YES - PERMANENT ERROR */ 00223000 TM IBSEQ(EWAPTR),B'00000111' 0150 00224000 BZ @RT00150 0150 00225000 * GO TO ERR051; /* CLEAR ERPIB AND EXIT */ 00226000 * IF IBSEQ='110'B /* TEST FOR SEQ CODE SIX */ 00227000 * THEN /* YES - PERMANENT ERROR */ 00228000 TM IBSEQ(EWAPTR),B'00000110' 0152 00229000 BNO @RF00152 0152 00230000 TM IBSEQ(EWAPTR),B'00000001' 0152 00231000 BZ @RT00152 0152 00232000 * GO TO ERR051; /* CLEAR ERPIB AND EXIT */ 00233000 * IF IBFL3='0'B /* TEST FOR VALID CCW */ 00234000 * THEN /* NO - PERMANENT ERROR */ 00235000 @RF00152 TM IBFL3(EWAPTR),B'00000100' 0154 00236000 BZ @RT00154 0154 00237000 * GO TO ERR051; /* CLEAR ERPIB AND EXIT */ 00238000 * ELSE /* YES - REISSUE COMMAND */ 00239000 * DO; 0156 00240000 * ERPIB=ZERO; /* ZERO OUT ERPIB */ 00241000 MVC ERPIB(8,EWAPTR),ZERO 0157 00242000 * GO TO EXIT24; /* RETRY */ 00243000 B EXIT24 0158 00244000 * END; 0159 00245000 *ERR051: 0160 00246000 * ERPIB=ZERO; /* ZERO ERPIB */ 00247000 ERR051 MVC ERPIB(8,EWAPTR),ZERO 0160 00248000 * GO TO EXIT12; /* LOGOUT, MSG FLAG & EXIT */ 00249000 * 0161 00250000 B EXIT12 0161 00251000 * /*****************************************************************/ 00252000 * /* */ 00253000 * /* CHANNEL DATA CHECK */ 00254000 * /* */ 00255000 * /*****************************************************************/ 00256000 * 0162 00257000 *ERR002: 0162 00258000 * IF IOSCOD='7E'X /* TEST FOR INTERCEPT Y02990 */ 00259000 * THEN /* YES - PERMANENT ERROR */ 00260000 ERR002 CLI IOSCOD(IOSBPTR),X'7E' 0162 00261000 BE @RT00162 0162 00262000 * GO TO EXIT12; /* LOGOUT, SET MSG & EXIT */ 00263000 * IF IOSCDC='1'B /* COMMAND RETRIED? Y02990 */ 00264000 * THEN /* YES - PERMANENT ERROR */ 00265000 TM IOSCDC(EWAPTR),B'00001000' 0164 00266000 BO @RT00164 0164 00267000 * GO TO EXIT12; /* SET MSGFLAG,LOG & EXIT */ 00268000 * ELSE /* NO: */ 00269000 * IOSCDC='1'B; /* SET ERROR CTR Y02990 */ 00270000 OI IOSCDC(EWAPTR),B'00001000' 0166 00271000 * GO TO EXIT24; /* RETRY */ 00272000 * 0167 00273000 B EXIT24 0167 00274000 * /*****************************************************************/ 00275000 * /* */ 00276000 * /* CHAINING CHECK */ 00277000 * /* */ 00278000 * /*****************************************************************/ 00279000 * 0168 00280000 *ERR004: 0168 00281000 * IF IOSCOD='7E'X /* TEST FOR INTERCEPT Y02990 */ 00282000 * THEN /* YES - PERMANENT */ 00283000 ERR004 CLI IOSCOD(IOSBPTR),X'7E' 0168 00284000 BE @RT00168 0168 00285000 * GO TO EXIT12; /* LOGOUT, SET MSGFLAG, EXIT */ 00286000 * IF IOSCNC='1'B /* COMMAND RETRIED? Y02990 */ 00287000 * THEN /* YES - PERMANENT ERROR */ 00288000 TM IOSCNC(EWAPTR),B'00000010' 0170 00289000 BO @RT00170 0170 00290000 * GO TO EXIT12; /* SET MSG FLAG,LOGOUT & EXIT */ 00291000 * ELSE /* NO: */ 00292000 * IOSCNC='1'B; /* SET ERROR CTR Y02990 */ 00293000 OI IOSCNC(EWAPTR),B'00000010' 0172 00294000 * GO TO EXIT24; /* RETRY */ 00295000 * 0173 00296000 B EXIT24 0173 00297000 * /*****************************************************************/ 00298000 * /* */ 00299000 * /* UNIT CHECK */ 00300000 * /* */ 00301000 * /*****************************************************************/ 00302000 * 0174 00303000 *ERR005: 0174 00304000 * IF IOSCOD='7E'X /* TEST FOR INTERCEPT Y02990 */ 00305000 * THEN /* YES - PERMANENT ERROR */ 00306000 ERR005 CLI IOSCOD(IOSBPTR),X'7E' 0174 00307000 BE @RT00174 0174 00308000 * GO TO EXIT12; /* LOGOUT, SET MSG & EXIT */ 00309000 * ELSE /* NO: */ 00310000 * GO TO SENSE; /* EXAMINE SENSE BYTE */ 00311000 B SENSE 0176 00312000 *ERR015: 0177 00313000 * IF IOSOVR='1'B /* COMMAND RETRIED? Y02990 */ 00314000 * THEN /* YES - PERMANENT ERROR */ 00315000 ERR015 TM IOSOVR(EWAPTR),B'10000000' 0177 00316000 BO @RT00177 0177 00317000 * GO TO EXIT12; /* SET MSGFLAG,LOGOUT & EXIT */ 00318000 * ELSE /* NO: */ 00319000 * IOSOVR='1'B; /* SET ERROR COUNTER Y02990 */ 00320000 OI IOSOVR(EWAPTR),B'10000000' 0179 00321000 * GO TO EXIT04; /* KEEP STATISTICS & RETRY */ 00322000 B EXIT04 0180 00323000 *ERR025: 0181 00324000 * IF IOSEQP='1'B /* COMMAND RETRIED? Y02990 */ 00325000 * THEN /* YES - PERMANENT ERROR */ 00326000 ERR025 TM IOSEQP(EWAPTR),B'00001000' 0181 00327000 BO @RT00181 0181 00328000 * GO TO EXIT12; /* SET MSG FLAG,LOGOUT & EXIT */ 00329000 * ELSE /* NO: */ 00330000 * IOSEQP='1'B; /* SET ERROR COUNTER Y02990 */ 00331000 OI IOSEQP(EWAPTR),B'00001000' 0183 00332000 * GO TO EXIT04; /* KEEP STATISTICS & RETRY */ 00333000 B EXIT04 0184 00334000 *ERR035: 0185 00335000 * IF IOSBUS='1'B /* COMMAND RETRIED? Y02990 */ 00336000 * THEN /* YES - PERMANENT ERROR */ 00337000 ERR035 TM IOSBUS(EWAPTR),B'00010000' 0185 00338000 BO @RT00185 0185 00339000 * GO TO EXIT12; /* SET MSG FLAG,LOGOUT & EXIT */ 00340000 * ELSE /* NO: */ 00341000 * IOSBUS='1'B; /* SET ERROR COUNTER Y02990 */ 00342000 OI IOSBUS(EWAPTR),B'00010000' 0187 00343000 * GO TO EXIT04; /* KEEP STATISTICS & RETRY */ 00344000 B EXIT04 0188 00345000 *ERR045: 0189 00346000 * IF IOSDCK='1'B /* COMMAND RETRIED? Y02990 */ 00347000 * THEN /* YES - PERMANENT ERROR */ 00348000 ERR045 TM IOSDCK(EWAPTR),B'00100000' 0189 00349000 BO @RT00189 0189 00350000 * GO TO EXIT12; /* SET MSG FLAG,LOGOUT & EXIT */ 00351000 * ELSE /* NO: */ 00352000 * IOSDCK='1'B; /* SET ERROR COUNTER Y02990 */ 00353000 OI IOSDCK(EWAPTR),B'00100000' 0191 00354000 * GO TO EXIT04; /* KEEP STATISTICS & RETRY */ 00355000 B EXIT04 0192 00356000 *ERR055: 0193 00357000 * IF IOSREJ='1'B /* COMMAND RETRIED? Y02990 */ 00358000 * THEN /* YES - PERMANENT ERROR */ 00359000 ERR055 TM IOSREJ(EWAPTR),B'01000000' 0193 00360000 BO @RT00193 0193 00361000 * GO TO EXIT12; /* SET MSGFLAG,LOGOUT & EXIT */ 00362000 * ELSE /* NO: */ 00363000 * IOSREJ='1'B; /* SET ERROR COUNTER Y02990 */ 00364000 OI IOSREJ(EWAPTR),B'01000000' 0195 00365000 * GO TO EXIT04; /* KEEP STATISTICS & RETRY */ 00366000 B EXIT04 0196 00367000 *ERR065: 0197 00368000 * IF ILCSTAT='1'B THEN /* IF ILC ALSO OCCURRED */ 00369000 ERR065 TM ILCSTAT(IOSBPTR),B'01000000' 0197 00370000 BO @RT00197 0197 00371000 * GOTO ERR006; /* HANDLE BEFORE UC */ 00372000 * IF PRGSTAT='1'B|PRTSTAT='1'B THEN/* IF PRG OR PROT.CHK */ 00373000 TM PRGSTAT(IOSBPTR),B'00110000' 0199 00374000 BNZ @RT00199 0199 00375000 * GOTO EXIT22; /* HANDLE BEFORE U C */ 00376000 * IF IOSS0B1^='1'B THEN /* IRV @YM00646*/ 00377000 TM IOSS0B1(IOSBPTR),B'01000000' 0201 00378000 BO @RF00201 0201 00379000 * DO; /* NO @YM00646*/ 00380000 * IF IOSS0B7='1'B THEN /* RUNNING @YM00646*/ 00381000 TM IOSS0B7(IOSBPTR),B'00000001' 0203 00382000 BO @RT00203 0203 00383000 * GOTO EXIT01; /* YES @YM00646*/ 00384000 * END; /* @YM00646*/ 00385000 * IF UNITEXP='1'B THEN /* UNIT EXCEPTION @YM00626*/ 00386000 @RF00201 TM UNITEXP(IOSBPTR),B'00000001' 0206 00387000 BNO @RF00206 0206 00388000 * IF IOSEXCP='1'B /* EXCP ID @YM00626*/ 00389000 * THEN /* @YM00626*/ 00390000 TM IOSEXCP(IOSBPTR),B'00000010' 0207 00391000 BNO @RF00207 0207 00392000 * DO; /* YES IOB EXISTS @YM00626*/ 00393000 * ERREG1=RQEPRT; /* @ZA29842*/ 00394000 L @15,IOSUSE(,IOSBPTR) 0209 00395000 SLR ERREG1,ERREG1 0209 00396000 IC ERREG1,RQEPRT(,@15) 0209 00397000 * GEN(MODESET KEYADDR=(2)); /* @ZA34114*/ 00398000 MODESET KEYADDR=(2) 00399000 * MRFLG='1'B; /* INDICATE SCI PAUSE @YM00626*/ 00400000 L @15,IOSUSE(,IOSBPTR) 0211 00401000 L @15,RQEDEB(,@15) 0211 00402000 L @15,DEBDCBAD(,@15) 0211 00403000 OI MRFLG(@15),B'00000001' 0211 00404000 * GEN(MODESET EXTKEY=ZERO); /* @ZA34114*/ 00405000 MODESET EXTKEY=ZERO 00406000 * IOSCOD='7F'X; /* NORMAL END OF COMPLETION */ 00407000 MVI IOSCOD(IOSBPTR),X'7F' 0213 00408000 * END; /* @YM00626*/ 00409000 * ELSE 0215 00410000 * ; /* @YM00626*/ 00411000 @RF00207 DS 0H 0216 00412000 * ELSE 0216 00413000 * ; /* NOT UNIT EXP @YM00626*/ 00414000 @RF00206 DS 0H 0217 00415000 * IF IOSS0B1^='1'B&IOSS0B6='1'B THEN/* NON-INITIALIZED @ZA00778*/ 00416000 TM IOSS0B6(IOSBPTR),B'00000010' 0217 00417000 BNO @RF00217 0217 00418000 TM IOSS0B1(IOSBPTR),B'01000000' 0217 00419000 BZ @RT00217 0217 00420000 * GOTO EXIT01; /* AND NOT IRV @ZA00778*/ 00421000 * XCTLPTR=ADDR(EWCSAVES); /* SAVE FOR IOSGEN Y02990 */ 00422000 @RF00217 LA XCTLPTR,EWCSAVES(,EWAPTR) 0219 00423000 * GEN(IOSGEN UCBFLG,UCB=(8),VAR=ON,TABLE=UCBNRY,REG=COND)/* Y02990 */ 00424000 * REFS(UCBFLC,CVTPTR,CVTIXAVL,IOCGENA,UCBBGN);/* Y02990 */ 00425000 IOSGEN UCBFLG,UCB=(8),VAR=ON,TABLE=UCBNRY,REG=COND 00426000 * IOSCOD='7F'X; /* NORMATL COMPLETION Y02990 */ 00427000 MVI IOSCOD(IOSBPTR),X'7F' 0221 00428000 * IF SIOCC3=NOTOPER /* SIO CC=3 @ZA04493*/ 00429000 * THEN /* YES, GO ISSUE 'NO @ZA04493*/ 00430000 TM SIOCC3(IOSBPTR),B'00110000' 0222 00431000 BO @RT00222 0222 00432000 * GOTO EXIT30; /* PATHS AVAILABLE' MSG @ZA04493*/ 00433000 * GOTO EXIT01; /* CLEAR INDICATORS */ 00434000 B EXIT01 0224 00435000 *ERR075: 0225 00436000 * IF UNITEXP='1'B THEN /* UNIT EXCEPTION? @YM00626*/ 00437000 ERR075 TM UNITEXP(IOSBPTR),B'00000001' 0225 00438000 BNO @RF00225 0225 00439000 * DO; /* @YM00626*/ 00440000 * IOSCOD='7F'X; /* NORMAL END OF COMPLETION */ 00441000 MVI IOSCOD(IOSBPTR),X'7F' 0227 00442000 * GOTO EXIT01A; /* GO INDICATE SCI PAUSE */ 00443000 B EXIT01A 0228 00444000 * END; /* @YM00626*/ 00445000 * IF IOSUC='1'B THEN /* FIRST TIME? @YM00626*/ 00446000 @RF00225 TM IOSUC(EWAPTR),B'00000100' 0230 00447000 BO @RT00230 0230 00448000 * GO TO EXIT12; /* NO,PERMANENT ERROR @YM00626*/ 00449000 * ELSE 0232 00450000 * IOSUC='1'B; /* SET ERROR CTR @YM00626*/ 00451000 OI IOSUC(EWAPTR),B'00000100' 0232 00452000 * GO TO EXIT24; /* GO RETRY @YM00626*/ 00453000 * 0233 00454000 B EXIT24 0233 00455000 * /*****************************************************************/ 00456000 * /* */ 00457000 * /* INCORRECT LENGTH */ 00458000 * /* */ 00459000 * /*****************************************************************/ 00460000 * 0234 00461000 *ERR006: 0234 00462000 * IF IOSICL='1'B /* COMMAND RETRIED? Y02990 */ 00463000 * THEN /* YES - PERMANENT ERROR */ 00464000 ERR006 TM IOSICL(EWAPTR),B'00000001' 0234 00465000 BO @RT00234 0234 00466000 * GO TO EXIT12; /* SET MSG FLAG,LOGOUT & EXIT */ 00467000 * ELSE /* NO: */ 00468000 * IOSICL='1'B; /* SET ERROR COUNTER Y02990 */ 00469000 OI IOSICL(EWAPTR),B'00000001' 0236 00470000 * GO TO EXIT24; /* RETRY */ 00471000 * 0237 00472000 B EXIT24 0237 00473000 * /*****************************************************************/ 00474000 * /* */ 00475000 * /* ERROR CORRECTED */ 00476000 * /* */ 00477000 * /*****************************************************************/ 00478000 * 0238 00479000 *EXIT01A: 0238 00480000 * IF IOSEXCP='1'B /* ID EXCP Y02990 */ 00481000 * THEN /* YES IOB EXISTS Y02990 */ 00482000 EXIT01A TM IOSEXCP(IOSBPTR),B'00000010' 0238 00483000 BNO @RF00238 0238 00484000 * DO; /* @ZA29842*/ 00485000 * ERREG1=RQEPRT; /* @ZA29842*/ 00486000 L @15,IOSUSE(,IOSBPTR) 0240 00487000 SLR ERREG1,ERREG1 0240 00488000 IC ERREG1,RQEPRT(,@15) 0240 00489000 * GEN(MODESET KEYADDR=(2)); /* @ZA34114*/ 00490000 MODESET KEYADDR=(2) 00491000 * MRFLG='1'B; /* SET MRFLG ON IN DCBY02990 */ 00492000 L @15,IOSUSE(,IOSBPTR) 0242 00493000 L @15,RQEDEB(,@15) 0242 00494000 L @15,DEBDCBAD(,@15) 0242 00495000 OI MRFLG(@15),B'00000001' 0242 00496000 * GEN(MODESET EXTKEY=ZERO); /* @ZA34114*/ 00497000 MODESET EXTKEY=ZERO 00498000 * END; /* @ZA29842*/ 00499000 * ELSE 0245 00500000 * ; /* Y02990 */ 00501000 @RF00238 DS 0H 0246 00502000 *EXIT01: 0246 00503000 * IOSTATUS='0000'X; /* CLEAR STATUS BYTES Y02990 */ 00504000 EXIT01 MVC IOSTATUS(2,IOSBPTR),@CB01553 0246 00505000 * IOSFLG1='000000'B; /* CLEAR IOSFLA Y02990 */ 00506000 NI IOSFLG1(IOSBPTR),B'11000000' 0247 00507000 * IOSFLC='00'X; /* CLEAR IOSB FLAG3 Y02990 */ 00508000 MVI IOSFLC(IOSBPTR),X'00' 0248 00509000 * IOSFL4='00'X; /* CLEAR IOSB FLAG 4 Y02990 */ 00510000 MVI IOSFL4(EWAPTR),X'00' 0249 00511000 * EWACNTR3='00'X; /* CLEAR ERR CTR FIELDY02990 */ 00512000 MVI EWACNTR3(EWAPTR),X'00' 0250 00513000 * GO TO EXIT13; /* XFER CNTL TO STAT UPD RTN */ 00514000 * 0251 00515000 B EXIT13 0251 00516000 * /*****************************************************************/ 00517000 * /* */ 00518000 * /* KEEP STATISTICS AND RETRY */ 00519000 * /* */ 00520000 * /*****************************************************************/ 00521000 * 0252 00522000 *EXIT04: 0252 00523000 * EWASTUP=EWASTUP|IOSSNS; /* OR SENSE BYTES Y02990 */ 00524000 EXIT04 OC EWASTUP(2,EWAPTR),IOSSNS(IOSBPTR) 0252 00525000 *EXIT24: 0253 00526000 * IF COMCODE='53'X THEN /* LOAD CCW */ 00527000 EXIT24 CLI COMCODE(CCWREG),X'53' 0253 00528000 BNE @RF00253 0253 00529000 * IF UCSTAT^='1'B THEN /* & NOT UC STATUS */ 00530000 TM UCSTAT(IOSBPTR),B'00000010' 0254 00531000 BNO @RT00254 0254 00532000 * GOTO EXIT22; /* DO NOT RETRY */ 00533000 * ELSE 0256 00534000 * ; /* NULL ELSE */ 00535000 * ELSE 0257 00536000 * ; /* NULL ELSE */ 00537000 @RF00253 DS 0H 0258 00538000 * IOSERR='1'B; /* SET IOSB ERROR FLAGY02990 */ 00539000 OI IOSERR(IOSBPTR),B'00100000' 0258 00540000 * GENERATE; 0259 00541000 * 0259 00542000 * /* RETURN TO IOS */ 00543000 SVC 15 ERROR EXCP 00544000 SVC 3 RETURN 00545000 * /*****************************************************************/ 00546000 * /* */ 00547000 * /* PERMANENT ERROR */ 00548000 * /* */ 00549000 * /*****************************************************************/ 00550000 * 0260 00551000 *EXIT12: 0260 00552000 * IOSLOG='1'B; /* SET LOGOUT FLAG Y02990 */ 00553000 EXIT12 OI IOSLOG(IOSBPTR),B'00000001' 0260 00554000 * EWAMDR='0'B; /* SET OBR FLAG Y02990 */ 00555000 NI EWAMDR(EWAPTR),B'01111111' 0261 00556000 *EXIT22: 0262 00557000 * IOSEX='1'B; /* I/O EXCEPTION FLAG ON Y02990 */ 00558000 EXIT22 OI IOSEX(IOSBPTR),B'00000100' 0262 00559000 * IOSMSG='1'B; /* SET MSG TYPE FLAG Y02990 */ 00560000 OI IOSMSG(IOSBPTR),B'00000100' 0263 00561000 *EXIT30: 0264 00562000 * IOSERR='0'B; /* ERP NOT IN CONTROL @ZA04493*/ 00563000 EXIT30 NI IOSERR(IOSBPTR),B'11011111' 0264 00564000 * XCTLPTR=WTORTN; /* GET LOAD NAME OF WTO RTN */ 00565000 L XCTLPTR,WTORTN-1 0265 00566000 LA XCTLPTR,0(,XCTLPTR) 0265 00567000 * XCTLREG=CVTXTLER; /* GET ADDR OF XCTL ROUTINE */ 00568000 L @12,CVTPTR 0266 00569000 L @12,CVTXTLER(,@12) 0266 00570000 LR XCTLREG,@12 0266 00571000 * GO TO XCTL; /* XFER CONTROL TO WTO OR OBR */ 00572000 * 0267 00573000 BR @12 0267 00574000 * /*****************************************************************/ 00575000 * /* */ 00576000 * /* STATISTICS UPDATE ROUTINE */ 00577000 * /* */ 00578000 * /*****************************************************************/ 00579000 * 0268 00580000 *EXIT13: 0268 00581000 * XCTLPTR=STUPDT; /* GET LOAD NAME OF UPDAT RTN */ 00582000 EXIT13 L XCTLPTR,STUPDT-1 0268 00583000 LA XCTLPTR,0(,XCTLPTR) 0268 00584000 * XCTLREG=CVTXTLER; /* GET ADDR OF XCTL ROUTINE */ 00585000 L @12,CVTPTR 0269 00586000 L @12,CVTXTLER(,@12) 0269 00587000 LR XCTLREG,@12 0269 00588000 * GO TO XCTL; /* XFER CONTROL TO STAT UPDT */ 00589000 BR @12 0270 00590000 * END ER3890 0271 00591000 * 0271 00592000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00593000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00594000 */*%INCLUDE SYSLIB (EWAMAP ) */ 00595000 */*%INCLUDE SYSLIB (IECDIOCM) */ 00596000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00597000 */*%INCLUDE SYSLIB (CVT ) */ 00598000 * 0271 00599000 * ; 0271 00600000 @DATA DS 0H 00601000 DS 0F 00602000 DS 0F 00603000 @CF00183 DC XL4'08' 00604000 DS 0D 00605000 IOCOMPTR DS A 00606000 DS CL1 00607000 WTORTN DC AL3(253) 00608000 DS CL1 00609000 STUPDT DC AL3(254) 00610000 @CB01553 DC X'0000' 00611000 ZERO DS CL8 00612000 ORG ZERO 00613000 Z1 DC 8X'00' 00614000 ORG ZERO+8 00615000 MTAREA DS CL50 00616000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00617000 @01 EQU 01 00618000 @02 EQU 02 00619000 @03 EQU 03 00620000 @04 EQU 04 00621000 @05 EQU 05 00622000 @06 EQU 06 00623000 @07 EQU 07 00624000 @08 EQU 08 00625000 @09 EQU 09 00626000 @10 EQU 10 00627000 @11 EQU 11 00628000 @12 EQU 12 00629000 @13 EQU 13 00630000 @14 EQU 14 00631000 @15 EQU 15 00632000 IOSBPTR EQU @01 00633000 ERREG1 EQU @02 00634000 CVTREG EQU @04 00635000 CCWREG EQU @05 00636000 BASEREG EQU @06 00637000 ERPBRG EQU @07 00638000 UCBPTR EQU @08 00639000 ERRLNK EQU @09 00640000 EWAPTR EQU @10 00641000 WKREG EQU @11 00642000 XCTLPTR EQU @13 00643000 XCTLREG EQU @14 00644000 CVTPTR EQU 16 00645000 IOSB EQU 0 00646000 IOSFLA EQU IOSB 00647000 IOSACHN EQU IOSFLA 00648000 IOSCCHN EQU IOSACHN 00649000 IOSERR EQU IOSFLA 00650000 IOSEX EQU IOSFLA 00651000 IOSFLB EQU IOSB+1 00652000 IOSMSG EQU IOSFLB 00653000 IOSLOG EQU IOSFLB 00654000 IOSFLC EQU IOSB+2 00655000 IOSDVALT EQU IOSFLC 00656000 IOSDVRID EQU IOSB+4 00657000 IOSPKEY EQU IOSB+12 00658000 IOSCOD EQU IOSB+13 00659000 IOSOPT EQU IOSB+14 00660000 IOSOPT2 EQU IOSB+15 00661000 IOSUCB EQU IOSB+16 00662000 @NM00002 EQU IOSB+20 00663000 IOSCC EQU @NM00002 00664000 IOSCSW EQU @NM00002+1 00665000 IOSCSWCA EQU IOSCSW 00666000 IOSTATUS EQU IOSCSW+3 00667000 IOSTSA EQU IOSTATUS 00668000 IOSUSE EQU IOSB+32 00669000 IOSSNS EQU IOSB+42 00670000 IOSIPIB EQU IOSB+44 00671000 IOSERP EQU IOSB+52 00672000 IOSRST EQU IOSB+72 00673000 IOSPATH EQU IOSB+86 00674000 IOSCHN EQU IOSPATH 00675000 IOSCKEY EQU IOSB+89 00676000 IOSEEKA EQU IOSB+100 00677000 IOSCCHH EQU IOSEEKA+3 00678000 IOSSKHH EQU IOSCCHH+2 00679000 EWA EQU 0 00680000 EWAHDR EQU EWA 00681000 EWAFLAGS EQU EWA+4 00682000 EWAFLG1 EQU EWAFLAGS 00683000 EWASCCD EQU EWAFLG1 00684000 EWASCC3 EQU EWASCCD 00685000 EWAFLG2 EQU EWAFLAGS+1 00686000 EWAMDR EQU EWAFLG2 00687000 EWAFLG3 EQU EWAFLAGS+2 00688000 EWASNSCT EQU EWAFLAGS+3 00689000 EWACNTRS EQU EWA+10 00690000 EWACNTR1 EQU EWACNTRS 00691000 EWACNTR3 EQU EWACNTRS+2 00692000 EWASTUP EQU EWA+14 00693000 EWAERPIB EQU EWA+16 00694000 EWARGFG1 EQU EWAERPIB+4 00695000 EWARGFG2 EQU EWAERPIB+5 00696000 EWAXCSW1 EQU EWAERPIB+6 00697000 EWAXCSW2 EQU EWAERPIB+7 00698000 EWAIERP EQU EWA+32 00699000 IOCOM EQU 0 00700000 IOCGENA EQU IOCOM+84 00701000 UCB EQU 0 00702000 UCBOB EQU 0 00703000 UCBJBNR EQU UCBOB 00704000 UCBFL5 EQU UCBOB+1 00705000 UCBAF EQU UCBFL5 00706000 UCBSTAT EQU UCBOB+3 00707000 UCBCHAN EQU UCBOB+4 00708000 UCBSFLS EQU UCBOB+6 00709000 UCBFLA EQU UCBSFLS 00710000 UCBFL1 EQU UCBFLA 00711000 UCBBSY EQU UCBFL1 00712000 UCBNRY EQU UCBFL1 00713000 UCBPST EQU UCBFL1 00714000 UCBCUB EQU UCBFL1 00715000 UCBFLB EQU UCBSFLS+1 00716000 UCBCHM EQU UCBOB+8 00717000 UCBCHM1 EQU UCBCHM 00718000 UCBPTH0 EQU UCBCHM1 00719000 UCBPTH1 EQU UCBCHM1 00720000 UCBWGT EQU UCBOB+12 00721000 UCBTYP EQU UCBOB+16 00722000 UCBTBYT1 EQU UCBTYP 00723000 UCB1FEA5 EQU UCBTBYT1 00724000 UCB1FEA6 EQU UCBTBYT1 00725000 UCBTBYT2 EQU UCBTYP+1 00726000 UCB2OPT2 EQU UCBTBYT2 00727000 UCBDUDN1 EQU UCB2OPT2 00728000 UCB2OPT3 EQU UCBTBYT2 00729000 UCBDUDN2 EQU UCB2OPT3 00730000 UCB2OPT4 EQU UCBTBYT2 00731000 UCBRWTAU EQU UCB2OPT4 00732000 UCB2OPT6 EQU UCBTBYT2 00733000 UCB2OPT7 EQU UCBTBYT2 00734000 UCBTBYT3 EQU UCBTYP+2 00735000 UCBDVCLS EQU UCBTBYT3 00736000 UCBTBYT4 EQU UCBTYP+3 00737000 UCBEXTPT EQU UCBOB+20 00738000 UCBFLC EQU UCBEXTPT 00739000 UCBDEV EQU UCBOB+24 00740000 UCBCMEXT EQU 0 00741000 UCBATI EQU UCBCMEXT+3 00742000 @NM00032 EQU UCBATI 00743000 UCBFLP1 EQU UCBCMEXT+5 00744000 UCBMT EQU 0 00745000 UCBOCR EQU 0 00746000 UCB3540X EQU 0 00747000 UCBDKBYT EQU UCB3540X+6 00748000 UCBUCS EQU 0 00749000 UCBUCSOP EQU UCBUCS+4 00750000 UCBFCBOP EQU UCBUCS+5 00751000 UCBBGN EQU 0 00752000 CVTMAP EQU 0 00753000 CVTXTLER EQU CVTMAP+44 00754000 CVTXITP EQU CVTMAP+68 00755000 CVTDAR EQU CVTMAP+72 00756000 CVTFLGS1 EQU CVTDAR 00757000 CVTDCB EQU CVTMAP+116 00758000 CVTDCBA EQU CVTMAP+117 00759000 CVTIXAVL EQU CVTMAP+124 00760000 CVTIERLC EQU CVTMAP+144 00761000 CVTOPTA EQU CVTMAP+182 00762000 CVTOPTB EQU CVTMAP+183 00763000 CVTGTF EQU CVTMAP+236 00764000 CVTGTFST EQU CVTGTF 00765000 CVTGTFS EQU CVTGTFST 00766000 CVTSTATE EQU CVTGTFST 00767000 CVTTMODE EQU CVTGTFST 00768000 CVTFORM EQU CVTGTFST 00769000 CVTAQAVT EQU CVTMAP+240 00770000 CVTTCMFG EQU CVTAQAVT 00771000 CVTVOLM2 EQU CVTMAP+244 00772000 CVTTATA EQU CVTVOLM2 00773000 CVTTSKS EQU CVTTATA 00774000 CVTVOLF2 EQU CVTTSKS 00775000 CVTTAT EQU CVTTATA+1 00776000 CVTATER EQU CVTMAP+248 00777000 CVTEXT1 EQU CVTMAP+252 00778000 CVTPURG EQU CVTMAP+260 00779000 CVTQMSG EQU CVTMAP+268 00780000 CVTDMSR EQU CVTMAP+272 00781000 CVTERPV EQU CVTMAP+316 00782000 CVTINTLA EQU CVTMAP+320 00783000 CVTAPF EQU CVTMAP+324 00784000 CVTEXT2 EQU CVTMAP+328 00785000 CVTHJES EQU CVTMAP+332 00786000 CVTPGSIA EQU CVTMAP+348 00787000 CVTA1F1 EQU CVTMAP+356 00788000 CVTSYSK EQU CVTMAP+357 00789000 CVTVOLM1 EQU CVTMAP+380 00790000 CVTVOLF1 EQU CVTVOLM1 00791000 CVTATMCT EQU CVTMAP+388 00792000 CVTXTNT1 EQU 0 00793000 CVTXTNT2 EQU 0 00794000 CVTDSSV EQU CVTXTNT2 00795000 CVTFLGBT EQU CVTXTNT2+5 00796000 CVTQID EQU CVTXTNT2+24 00797000 CVTRV400 EQU CVTXTNT2+52 00798000 CVTRV409 EQU CVTXTNT2+53 00799000 CVTATCVT EQU CVTXTNT2+64 00800000 CVTRV429 EQU CVTXTNT2+84 00801000 CVTRV438 EQU CVTXTNT2+85 00802000 CVTRV457 EQU CVTXTNT2+112 00803000 CVTRV466 EQU CVTXTNT2+113 00804000 CVTFIX EQU 0 00805000 CVTRELNO EQU CVTFIX+252 00806000 XCTL EQU 0 00807000 XLTE EQU 0 00808000 CCW EQU 0 00809000 COMCODE EQU CCW 00810000 RQE EQU 0 00811000 RQEDEB EQU RQE+8 00812000 RQEPRT EQU RQE+36 00813000 DEB EQU 0 00814000 DEBDCBAD EQU DEB+24 00815000 DCB EQU 0 00816000 DCBMRFLG EQU DCB+16 00817000 MRFLG EQU DCBMRFLG 00818000 LOGREC EQU 0 00819000 LGRCPTR EQU LOGREC+1 00820000 PARMTAB EQU 0 00821000 WRKPTR EQU 0 00822000 IOSATTSC EQU IOSIPIB 00823000 IOSWTOWA EQU IOSIPIB 00824000 IOSPCISC EQU IOSIPIB 00825000 EWADDIOS EQU EWAIERP 00826000 IOBSTABY EQU IOSTATUS 00827000 UCSTAT EQU IOBSTABY 00828000 ILCSTAT EQU IOBSTABY+1 00829000 PRGSTAT EQU IOBSTABY+1 00830000 PRTSTAT EQU IOBSTABY+1 00831000 IOSFL1 EQU IOSFLA 00832000 IOSFLG1 EQU IOSFL1 00833000 IOSFL3 EQU EWAFLG3 00834000 IOSCCC EQU IOSFL3 00835000 IOSICC EQU IOSFL3 00836000 IOSCDC EQU IOSFL3 00837000 IOSENT EQU IOSFL3 00838000 IOSCNC EQU IOSFL3 00839000 IOSICL EQU IOSFL3 00840000 IOSFL4 EQU EWACNTR1 00841000 IOSOVR EQU IOSFL4 00842000 IOSREJ EQU IOSFL4 00843000 IOSDCK EQU IOSFL4 00844000 IOSBUS EQU IOSFL4 00845000 IOSEQP EQU IOSFL4 00846000 IOSUC EQU IOSFL4 00847000 ERPIB EQU EWAERPIB 00848000 IBERRS EQU ERPIB+5 00849000 IBFLG1 EQU ERPIB+6 00850000 IBFL3 EQU IBFLG1 00851000 IBFLG2 EQU ERPIB+7 00852000 IBSEQ EQU IBFLG2 00853000 UCBOBS01 EQU UCBDEV 00854000 UCBSTAB EQU UCBOBS01+10 00855000 UCBBSVL EQU UCBSTAB 00856000 UCBPRSRS EQU UCBSTAB 00857000 UCBDMCT EQU UCBOBS01+11 00858000 UCBFL4 EQU UCBOBS01+13 00859000 UCBOBS02 EQU UCBDEV 00860000 UCBTFL1 EQU UCBOBS02+19 00861000 UCBXTN EQU UCBOBS02+20 00862000 UCBVOPT EQU UCBXTN 00863000 UCBOBS03 EQU UCBDEV 00864000 UCBXTADR EQU UCBOBS03 00865000 UCBOBS04 EQU UCBDEV 00866000 UCBBTA EQU UCBOBS04+12 00867000 UCBOBS06 EQU UCBDEV 00868000 UCBAOF EQU UCBOBS06 00869000 UCBAOF1 EQU UCBAOF 00870000 UCBAOF2 EQU UCBAOF+1 00871000 @NM00031 EQU UCBOBS06+3 00872000 UCBIRB EQU UCBOBS06+4 00873000 UCBGRAF EQU UCBIRB 00874000 UCBLDNCA EQU UCBOBS06+8 00875000 UCBRDYQ EQU UCBLDNCA 00876000 UCBIRLN EQU UCBRDYQ 00877000 UCBLDNCB EQU UCBRDYQ+1 00878000 UCBCTLNK EQU UCBOBS06+12 00879000 UCBOBS07 EQU UCBDEV 00880000 UCBOBS08 EQU UCBDEV 00881000 UCBOBS09 EQU UCBDEV 00882000 CVTS01 EQU CVTPGSIA 00883000 CVTLPDIA EQU CVTS01+12 00884000 CVTDIRST EQU CVTLPDIA 00885000 CVTSLIDA EQU CVTS01+24 00886000 CVTCTLFG EQU CVTS01+50 00887000 CVTRV210 EQU CVTS01+424 00888000 CVTRV219 EQU CVTS01+425 00889000 CVTRV228 EQU CVTS01+426 00890000 CVTRV237 EQU CVTS01+427 00891000 CVTMFRTR EQU CVTS01+452 00892000 CVTRV262 EQU CVTS01+468 00893000 CVTRV271 EQU CVTS01+469 00894000 CVTRV280 EQU CVTS01+470 00895000 CVTRV289 EQU CVTS01+471 00896000 CVTGSDA EQU CVTS01+600 00897000 IOSSENS EQU IOSSNS 00898000 IOSS0B1 EQU IOSSENS 00899000 IOSS0B6 EQU IOSSENS 00900000 IOSS0B7 EQU IOSSENS 00901000 DEVSTAT EQU IOSTSA 00902000 UNITEXP EQU DEVSTAT 00903000 SIOCC EQU IOSCC 00904000 SIOCC3 EQU SIOCC 00905000 IOSDVR EQU IOSDVRID 00906000 IOSEXCP EQU IOSDVR 00907000 EWC EQU EWAIERP 00908000 EWCSAVES EQU EWC+8 00909000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00910000 EWCSNS EQU EWC 00911000 @NM00046 EQU IOSDVR 00912000 @NM00045 EQU IOSDVR 00913000 @NM00044 EQU SIOCC 00914000 @NM00043 EQU SIOCC 00915000 @NM00042 EQU DEVSTAT 00916000 @NM00036 EQU IOSSENS 00917000 @NM00035 EQU IOSSENS 00918000 CVTRV628 EQU CVTS01+728 00919000 CVTRV627 EQU CVTS01+724 00920000 CVTRV626 EQU CVTS01+720 00921000 CVTRV625 EQU CVTS01+716 00922000 CVTRV624 EQU CVTS01+712 00923000 CVTRV623 EQU CVTS01+708 00924000 CVTRV622 EQU CVTS01+704 00925000 CVTRV621 EQU CVTS01+700 00926000 CVTRV620 EQU CVTS01+696 00927000 CVTRV619 EQU CVTS01+692 00928000 CVTRV618 EQU CVTS01+688 00929000 CVTRV617 EQU CVTS01+684 00930000 CVTRV616 EQU CVTS01+680 00931000 CVTRV615 EQU CVTS01+676 00932000 CVTRV614 EQU CVTS01+672 00933000 CVTRV613 EQU CVTS01+668 00934000 CVTRV612 EQU CVTS01+664 00935000 CVTRV611 EQU CVTS01+660 00936000 CVTRV610 EQU CVTS01+656 00937000 CVTRV609 EQU CVTS01+652 00938000 CVTRV608 EQU CVTS01+648 00939000 CVTRV607 EQU CVTS01+644 00940000 CVTRV606 EQU CVTS01+640 00941000 CVTRV605 EQU CVTS01+636 00942000 CVTRV604 EQU CVTS01+632 00943000 CVTEFF02 EQU CVTS01+628 00944000 CVTCBBR EQU CVTS01+624 00945000 CVTSSCR EQU CVTS01+620 00946000 CVTEVENT EQU CVTS01+616 00947000 CVTCRCA EQU CVTS01+612 00948000 CVTTPIO EQU CVTS01+608 00949000 CVTADV EQU CVTS01+604 00950000 CVTGSDAB EQU CVTGSDA 00951000 CVTQV3 EQU CVTS01+596 00952000 CVTQV2 EQU CVTS01+592 00953000 CVTQV1 EQU CVTS01+588 00954000 CVTRPT EQU CVTS01+584 00955000 CVTSSRB EQU CVTS01+580 00956000 CVTCSDRL EQU CVTS01+576 00957000 CVTEXP1 EQU CVTS01+572 00958000 CVTRMPMT EQU CVTS01+568 00959000 CVTRMPTT EQU CVTS01+564 00960000 CVTVPSA EQU CVTS01+560 00961000 CVTVSTOP EQU CVTS01+556 00962000 CVTGTFR8 EQU CVTS01+552 00963000 CVTQUIT EQU CVTS01+548 00964000 CVTVACR EQU CVTS01+544 00965000 CVTWTCB EQU CVTS01+540 00966000 CVTSTPRS EQU CVTS01+536 00967000 CVT0PT02 EQU CVTS01+532 00968000 CVTDARCM EQU CVTS01+528 00969000 CVTIRECM EQU CVTS01+524 00970000 CVTJRECM EQU CVTS01+520 00971000 CVTVEMS0 EQU CVTS01+516 00972000 CVTSPFRR EQU CVTS01+512 00973000 CVTRLSTG EQU CVTS01+508 00974000 CVT0TC0A EQU CVTS01+504 00975000 CVTGMBR EQU CVTS01+500 00976000 CVTLFRM EQU CVTS01+496 00977000 CVTRMBR EQU CVTS01+492 00978000 CVTVIOP EQU CVTS01+488 00979000 CVTRV307 EQU CVTS01+486 00980000 CVTRV306 EQU CVTS01+484 00981000 CVTRV305 EQU CVTS01+482 00982000 CVTRV304 EQU CVTS01+480 00983000 CVTRV303 EQU CVTS01+478 00984000 CVTRV302 EQU CVTS01+476 00985000 CVTTRCA EQU CVTS01+472 00986000 CVTRV297 EQU CVTRV289 00987000 CVTRV296 EQU CVTRV289 00988000 CVTRV295 EQU CVTRV289 00989000 CVTRV294 EQU CVTRV289 00990000 CVTRV293 EQU CVTRV289 00991000 CVTRV292 EQU CVTRV289 00992000 CVTRV291 EQU CVTRV289 00993000 CVTRV290 EQU CVTRV289 00994000 CVTRV288 EQU CVTRV280 00995000 CVTRV287 EQU CVTRV280 00996000 CVTRV286 EQU CVTRV280 00997000 CVTRV285 EQU CVTRV280 00998000 CVTRV284 EQU CVTRV280 00999000 CVTRV283 EQU CVTRV280 01000000 CVTRV282 EQU CVTRV280 01001000 CVTRV281 EQU CVTRV280 01002000 CVTRV279 EQU CVTRV271 01003000 CVTRV278 EQU CVTRV271 01004000 CVTRV277 EQU CVTRV271 01005000 CVTRV276 EQU CVTRV271 01006000 CVTRV275 EQU CVTRV271 01007000 CVTRV274 EQU CVTRV271 01008000 CVTRV273 EQU CVTRV271 01009000 CVTRV272 EQU CVTRV271 01010000 CVTRV270 EQU CVTRV262 01011000 CVTRV269 EQU CVTRV262 01012000 CVTRV268 EQU CVTRV262 01013000 CVTRV267 EQU CVTRV262 01014000 CVTRV266 EQU CVTRV262 01015000 CVTRV265 EQU CVTRV262 01016000 CVTRV264 EQU CVTRV262 01017000 CVTRV263 EQU CVTRV262 01018000 CVTVFP EQU CVTS01+464 01019000 CVTVSI EQU CVTS01+460 01020000 CVTVPSIB EQU CVTS01+456 01021000 CVTMFACT EQU CVTMFRTR 01022000 CVTMFCTL EQU CVTS01+448 01023000 CVTPVBP EQU CVTS01+444 01024000 CVTPWI EQU CVTS01+440 01025000 CVTRV254 EQU CVTS01+438 01026000 CVTRV253 EQU CVTS01+436 01027000 CVTRV252 EQU CVTS01+434 01028000 CVTRV251 EQU CVTS01+433 01029000 CVTRV250 EQU CVTS01+432 01030000 CVTRV249 EQU CVTS01+431 01031000 CVTRV248 EQU CVTS01+430 01032000 CVTRV247 EQU CVTS01+429 01033000 CVTRV246 EQU CVTS01+428 01034000 CVTRV245 EQU CVTRV237 01035000 CVTRV244 EQU CVTRV237 01036000 CVTRV243 EQU CVTRV237 01037000 CVTRV242 EQU CVTRV237 01038000 CVTRV241 EQU CVTRV237 01039000 CVTRV240 EQU CVTRV237 01040000 CVTRV239 EQU CVTRV237 01041000 CVTRV238 EQU CVTRV237 01042000 CVTRV236 EQU CVTRV228 01043000 CVTRV235 EQU CVTRV228 01044000 CVTRV234 EQU CVTRV228 01045000 CVTRV233 EQU CVTRV228 01046000 CVTRV232 EQU CVTRV228 01047000 CVTRV231 EQU CVTRV228 01048000 CVTRV230 EQU CVTRV228 01049000 CVTRV229 EQU CVTRV228 01050000 CVTRV227 EQU CVTRV219 01051000 CVTRV226 EQU CVTRV219 01052000 CVTRV225 EQU CVTRV219 01053000 CVTRV224 EQU CVTRV219 01054000 CVTRV223 EQU CVTRV219 01055000 CVTRV222 EQU CVTRV219 01056000 CVTRV221 EQU CVTRV219 01057000 CVTRV220 EQU CVTRV219 01058000 CVTRV218 EQU CVTRV210 01059000 CVTRV217 EQU CVTRV210 01060000 CVTRV216 EQU CVTRV210 01061000 CVTRV215 EQU CVTRV210 01062000 CVTRV214 EQU CVTRV210 01063000 CVTRV213 EQU CVTRV210 01064000 CVTRV212 EQU CVTRV210 01065000 CVTRV211 EQU CVTRV210 01066000 CVTLCCAT EQU CVTS01+420 01067000 CVTPCCAT EQU CVTS01+416 01068000 CVTIPCRP EQU CVTS01+412 01069000 CVTIPCRI EQU CVTS01+408 01070000 CVTIPCDS EQU CVTS01+404 01071000 CVTAIDVT EQU CVTS01+400 01072000 CVTSSAP EQU CVTS01+396 01073000 CVTEHCIR EQU CVTS01+392 01074000 CVTEHDEF EQU CVTS01+388 01075000 CVTDAIR EQU CVTS01+384 01076000 CVTPERFM EQU CVTS01+380 01077000 CVT044R2 EQU CVTS01+376 01078000 CVTFETCH EQU CVTS01+372 01079000 CVTRSTWD EQU CVTS01+368 01080000 CVTSPOST EQU CVTS01+364 01081000 CVTIOBP EQU CVTS01+360 01082000 CVTASMVT EQU CVTS01+356 01083000 CVTRECRQ EQU CVTS01+352 01084000 CVTWSAC EQU CVTS01+348 01085000 CVTRV149 EQU CVTS01+344 01086000 CVTWSAL EQU CVTS01+340 01087000 CVTSPSA EQU CVTS01+336 01088000 CVTGLMN EQU CVTS01+332 01089000 CVTVEAC0 EQU CVTS01+328 01090000 CVT062R1 EQU CVTS01+324 01091000 CVTRPOST EQU CVTS01+320 01092000 CVTDQIQE EQU CVTS01+316 01093000 CVTCSD EQU CVTS01+312 01094000 CVTLKRMA EQU CVTS01+308 01095000 CVTRSPIE EQU CVTS01+304 01096000 CVTRENQ EQU CVTS01+300 01097000 CVTLQCB EQU CVTS01+296 01098000 CVTFQCB EQU CVTS01+292 01099000 CVTQCS01 EQU CVTS01+288 01100000 CVTAPFT EQU CVTS01+284 01101000 CVTPARRL EQU CVTS01+280 01102000 CVTVWAIT EQU CVTS01+276 01103000 CVTGSPL EQU CVTS01+272 01104000 CVTLSMQ EQU CVTS01+268 01105000 CVTGSMQ EQU CVTS01+264 01106000 CVTEXPRO EQU CVTS01+260 01107000 CVTOPCTP EQU CVTS01+256 01108000 CVTSIC EQU CVTS01+252 01109000 CVTTPIOS EQU CVTS01+248 01110000 CVTRTMS EQU CVTS01+244 01111000 CVTSDBF EQU CVTS01+240 01112000 CVTSCBP EQU CVTS01+236 01113000 CVTSDMP EQU CVTS01+232 01114000 CVTSV60 EQU CVTS01+228 01115000 CVTRTMCT EQU CVTS01+224 01116000 CVTASCBL EQU CVTS01+220 01117000 CVTASCBH EQU CVTS01+216 01118000 CVTGDA EQU CVTS01+212 01119000 CVTASVT EQU CVTS01+208 01120000 CVTVVMDI EQU CVTS01+204 01121000 CVTAQTOP EQU CVTS01+200 01122000 CVTIOSCS EQU CVTS01+196 01123000 CVTSDRM EQU CVTS01+192 01124000 CVTOPTE EQU CVTS01+188 01125000 CVTSTXU EQU CVTS01+184 01126000 CVTQUIS EQU CVTS01+180 01127000 CVTPARS EQU CVTS01+176 01128000 CVTS1EE EQU CVTS01+172 01129000 CVTFRAS EQU CVTS01+168 01130000 CVTQSAS EQU CVTS01+164 01131000 CVTCRAS EQU CVTS01+160 01132000 CVTCRMN EQU CVTS01+156 01133000 CVTDELCP EQU CVTS01+152 01134000 CVTFRECL EQU CVTS01+148 01135000 CVTGETCL EQU CVTS01+144 01136000 CVTBLDCP EQU CVTS01+140 01137000 CVTAUTHL EQU CVTS01+136 01138000 CVTSCAN EQU CVTS01+132 01139000 CVTRV144 EQU CVTS01+130 01140000 CVTMAXMP EQU CVTS01+128 01141000 CVTSTCK EQU CVTS01+124 01142000 CVTRV139 EQU CVTS01+123 01143000 CVTDSSAC EQU CVTS01+122 01144000 CVTRV513 EQU CVTS01+121 01145000 CVTIOSPL EQU CVTS01+120 01146000 CVTPTGT EQU CVTS01+116 01147000 CVTCSPIE EQU CVTS01+112 01148000 CVTSMFEX EQU CVTS01+108 01149000 CVTOLT0A EQU CVTS01+104 01150000 CVTSRBRT EQU CVTS01+100 01151000 CVTPUTL EQU CVTS01+96 01152000 CVTRV519 EQU CVTS01+92 01153000 CVTRV327 EQU CVTS01+88 01154000 CVTRV326 EQU CVTS01+84 01155000 CVTRV325 EQU CVTS01+80 01156000 CVTRV324 EQU CVTS01+76 01157000 CVT0VL01 EQU CVTS01+72 01158000 CVTSHRVM EQU CVTS01+68 01159000 CVTRV332 EQU CVTS01+64 01160000 CVTTAS EQU CVTS01+60 01161000 CVTRSCN EQU CVTS01+56 01162000 CVTTRAC2 EQU CVTS01+54 01163000 CVTTRACE EQU CVTS01+52 01164000 CVTAPG EQU CVTS01+51 01165000 CVTSDTRC EQU CVTCTLFG 01166000 CVTGTRCE EQU CVTCTLFG 01167000 CVTNOMP EQU CVTCTLFG 01168000 CVTRSV79 EQU CVTCTLFG 01169000 CVTDSTAT EQU CVTCTLFG 01170000 CVTRSV78 EQU CVTCTLFG 01171000 CVTRV333 EQU CVTCTLFG 01172000 CVTRV323 EQU CVTCTLFG 01173000 CVTSPVLK EQU CVTS01+49 01174000 CVTRSV77 EQU CVTS01+48 01175000 CVTRV331 EQU CVTS01+44 01176000 CVTRV330 EQU CVTS01+40 01177000 CVTRV329 EQU CVTS01+36 01178000 CVTRV328 EQU CVTS01+32 01179000 CVTRV322 EQU CVTS01+28 01180000 CVTSLID EQU CVTSLIDA+1 01181000 CVTSYLK EQU CVTSLIDA 01182000 CVTRV321 EQU CVTS01+20 01183000 CVTRV320 EQU CVTS01+16 01184000 CVTLPDIR EQU CVTLPDIA+1 01185000 CVTRSV69 EQU CVTDIRST 01186000 CVTRSV68 EQU CVTDIRST 01187000 CVTRSV67 EQU CVTDIRST 01188000 CVTRSV66 EQU CVTDIRST 01189000 CVTRSV65 EQU CVTDIRST 01190000 CVTRSV64 EQU CVTDIRST 01191000 CVTRSV63 EQU CVTDIRST 01192000 CVTDICOM EQU CVTDIRST 01193000 CVTPVTP EQU CVTS01+8 01194000 CVTLPDSR EQU CVTS01+4 01195000 CVTGETL EQU CVTS01 01196000 UCBRV066 EQU UCBOBS09+4 01197000 UCBIOSBA EQU UCBOBS09 01198000 UCBRV042 EQU UCBOBS08+5 01199000 UCBCTCF1 EQU UCBOBS08+4 01200000 UCBCTCAD EQU UCBOBS08 01201000 UCBICNCB EQU UCBOBS07+4 01202000 UCBRV040 EQU UCBOBS07 01203000 UCBCTLNA EQU UCBCTLNK+1 01204000 UCBRLN EQU UCBCTLNK 01205000 UCBRDYQA EQU UCBLDNCB 01206000 UCBINRLN EQU UCBIRLN 01207000 UCBIRBA EQU UCBIRB+1 01208000 UCBRV039 EQU UCBGRAF 01209000 UCBDWNR EQU UCBGRAF 01210000 UCBRPND EQU UCBGRAF 01211000 UCBUPM EQU UCBGRAF 01212000 UCBBTAM EQU UCBGRAF 01213000 UCBDRNO EQU UCBGRAF 01214000 UCBDRO EQU UCBGRAF 01215000 UCBOIP EQU UCBGRAF 01216000 UCBATRCD EQU @NM00031 01217000 UCBSKPFG EQU @NM00031 01218000 UCBRIPND EQU @NM00031 01219000 UCBRTIAC EQU @NM00031 01220000 UCBRSV79 EQU @NM00031 01221000 UCBRSV78 EQU @NM00031 01222000 UCBRSV77 EQU @NM00031 01223000 UCBOLTEP EQU @NM00031 01224000 UCBATNCT EQU UCBOBS06+2 01225000 UCBRSV76 EQU UCBAOF2 01226000 UCBRSV75 EQU UCBAOF2 01227000 UCBRSV74 EQU UCBAOF2 01228000 UCBRSV73 EQU UCBAOF2 01229000 UCBRSV72 EQU UCBAOF2 01230000 UCBRSV71 EQU UCBAOF2 01231000 UCBRSV70 EQU UCBAOF2 01232000 UCBRSV69 EQU UCBAOF2 01233000 UCBRSV68 EQU UCBAOF1 01234000 UCBRSV67 EQU UCBAOF1 01235000 UCBRSV66 EQU UCBAOF1 01236000 UCBRSV65 EQU UCBAOF1 01237000 UCBRSV64 EQU UCBAOF1 01238000 UCBOFNL EQU UCBAOF1 01239000 UCBOFSP EQU UCBAOF1 01240000 UCBOFMCR EQU UCBAOF1 01241000 UCBBTB EQU UCBBTA+1 01242000 UCBDI EQU UCBBTA 01243000 UCBSNS EQU UCBOBS04+8 01244000 UCBTEB EQU UCBOBS04+4 01245000 UCBGCB EQU UCBOBS04+3 01246000 UCBOPEN EQU UCBOBS04+2 01247000 UCBSTART EQU UCBOBS04 01248000 UCBXTNB EQU UCBXTN+1 01249000 UCBRSV22 EQU UCBVOPT 01250000 UCBRSV21 EQU UCBVOPT 01251000 UCBRSV20 EQU UCBVOPT 01252000 UCBESVE EQU UCBVOPT 01253000 UCBERPC EQU UCBVOPT 01254000 UCBESVC EQU UCBVOPT 01255000 UCBEVA EQU UCBVOPT 01256000 UCBESV EQU UCBVOPT 01257000 UCBRV009 EQU UCBTFL1 01258000 UCBRV008 EQU UCBTFL1 01259000 UCBRV007 EQU UCBTFL1 01260000 UCBRV006 EQU UCBTFL1 01261000 UCBRV005 EQU UCBTFL1 01262000 UCBRV038 EQU UCBTFL1 01263000 UCBNSLTP EQU UCBTFL1 01264000 UCBNLTP EQU UCBTFL1 01265000 UCBRES1B EQU UCBOBS02+18 01266000 UCBFSER EQU UCBOBS02+12 01267000 @NM00030 EQU UCBOBS02+4 01268000 UCBFSEQ EQU UCBOBS02+2 01269000 UCBFSCT EQU UCBOBS02 01270000 UCBNEXP EQU UCBOBS01+20 01271000 UCBBASE EQU UCBOBS01+16 01272000 UCBRES1A EQU UCBOBS01+15 01273000 UCBUSER EQU UCBOBS01+14 01274000 UCBFL47 EQU UCBFL4 01275000 UCBFL46 EQU UCBFL4 01276000 UCBFL45 EQU UCBFL4 01277000 UCBRV065 EQU UCBFL4 01278000 UCBDSS EQU UCBFL4 01279000 UCBRV028 EQU UCBFL4 01280000 UCBWDAV EQU UCBFL4 01281000 UCBDAVV EQU UCBFL4 01282000 UCBSQC EQU UCBOBS01+12 01283000 UCBDATP EQU UCBOBS01+12 01284000 UCBDMC EQU UCBDMCT 01285000 UCBMOUNT EQU UCBDMCT 01286000 UCBBNUL EQU UCBSTAB 01287000 UCBSHAR EQU UCBSTAB 01288000 UCBBSTR EQU UCBSTAB 01289000 UCBBPUB EQU UCBSTAB 01290000 UCBBPRV EQU UCBSTAB 01291000 UCBBALB EQU UCBPRSRS 01292000 UCBPGFL EQU UCBSTAB 01293000 UCBDVSHR EQU UCBBSVL 01294000 UCBVOLI EQU UCBOBS01+4 01295000 UCBVTOC EQU UCBOBS01 01296000 IBALRT EQU IBFLG2 01297000 @NM00026 EQU IBFLG2 01298000 IBTERM EQU IBFLG2 01299000 IBFL4 EQU IBFLG1 01300000 IBFL2 EQU IBFLG1 01301000 @NM00025 EQU IBFLG1 01302000 IBFL1 EQU IBFLG1 01303000 @NM00024 EQU IBERRS 01304000 IBCHRT EQU IBERRS 01305000 @NM00023 EQU IBERRS 01306000 IBERSR EQU IBERRS 01307000 IBPROG EQU ERPIB+4 01308000 IBUCB EQU ERPIB+1 01309000 @NM00022 EQU ERPIB 01310000 @NM00021 EQU IOSFL4 01311000 @NM00020 EQU IOSFL3 01312000 @NM00019 EQU IOSFL1 01313000 @NM00018 EQU IOBSTABY 01314000 @NM00017 EQU IOBSTABY 01315000 EWAEND EQU EWADDIOS+71 01316000 EWASCSW EQU EWADDIOS+64 01317000 EWASNS EQU EWADDIOS 01318000 IOSPCIWA EQU IOSPCISC+44 01319000 IOSPCIRS EQU IOSPCISC+8 01320000 @NM00007 EQU IOSPCISC+4 01321000 @NM00006 EQU IOSPCISC 01322000 IOSWRNDR EQU IOSWTOWA+4 01323000 IOSWTOPT EQU IOSWTOWA+3 01324000 IOSWTOCP EQU IOSWTOWA+2 01325000 IOSWTOCH EQU IOSWTOWA 01326000 IOSATTWA EQU IOSATTSC+40 01327000 @NM00005 EQU IOSATTSC+24 01328000 IOSATTSN EQU IOSATTSC 01329000 ERPIBAD EQU PARMTAB 01330000 @NM00041 EQU DCBMRFLG 01331000 @NM00040 EQU DCB 01332000 @NM00039 EQU DEB 01333000 @NM00038 EQU RQE+12 01334000 IOBPTR EQU RQE+4 01335000 @NM00037 EQU RQE 01336000 CVTLEVL EQU CVTRELNO+2 01337000 CVTNUMB EQU CVTRELNO 01338000 CVTMDL EQU CVTFIX+250 01339000 @NM00034 EQU CVTFIX+248 01340000 @NM00033 EQU CVTFIX 01341000 CVTRV482 EQU CVTXTNT2+128 01342000 CVTRV481 EQU CVTXTNT2+124 01343000 CVTRV480 EQU CVTXTNT2+120 01344000 CVTRV479 EQU CVTXTNT2+118 01345000 CVTRV478 EQU CVTXTNT2+117 01346000 CVTRV477 EQU CVTXTNT2+116 01347000 CVTRV476 EQU CVTXTNT2+115 01348000 CVTRV475 EQU CVTXTNT2+114 01349000 CVTRV474 EQU CVTRV466 01350000 CVTRV473 EQU CVTRV466 01351000 CVTRV472 EQU CVTRV466 01352000 CVTRV471 EQU CVTRV466 01353000 CVTRV470 EQU CVTRV466 01354000 CVTRV469 EQU CVTRV466 01355000 CVTRV468 EQU CVTRV466 01356000 CVTRV467 EQU CVTRV466 01357000 CVTRV465 EQU CVTRV457 01358000 CVTRV464 EQU CVTRV457 01359000 CVTRV463 EQU CVTRV457 01360000 CVTRV462 EQU CVTRV457 01361000 CVTRV461 EQU CVTRV457 01362000 CVTRV460 EQU CVTRV457 01363000 CVTRV459 EQU CVTRV457 01364000 CVTRV458 EQU CVTRV457 01365000 CVTRV456 EQU CVTXTNT2+108 01366000 CVTRV455 EQU CVTXTNT2+104 01367000 CVTRV454 EQU CVTXTNT2+100 01368000 CVTRV453 EQU CVTXTNT2+96 01369000 CVTRV452 EQU CVTXTNT2+94 01370000 CVTRV451 EQU CVTXTNT2+92 01371000 CVTRV450 EQU CVTXTNT2+90 01372000 CVTRV449 EQU CVTXTNT2+88 01373000 CVTRV448 EQU CVTXTNT2+87 01374000 CVTRV447 EQU CVTXTNT2+86 01375000 CVTRV446 EQU CVTRV438 01376000 CVTRV445 EQU CVTRV438 01377000 CVTRV444 EQU CVTRV438 01378000 CVTRV443 EQU CVTRV438 01379000 CVTRV442 EQU CVTRV438 01380000 CVTRV441 EQU CVTRV438 01381000 CVTRV440 EQU CVTRV438 01382000 CVTRV439 EQU CVTRV438 01383000 CVTRV437 EQU CVTRV429 01384000 CVTRV436 EQU CVTRV429 01385000 CVTRV435 EQU CVTRV429 01386000 CVTRV434 EQU CVTRV429 01387000 CVTRV433 EQU CVTRV429 01388000 CVTRV432 EQU CVTRV429 01389000 CVTRV431 EQU CVTRV429 01390000 CVTRV430 EQU CVTRV429 01391000 CVTRV428 EQU CVTXTNT2+80 01392000 CVTRV427 EQU CVTXTNT2+76 01393000 CVTRV426 EQU CVTXTNT2+72 01394000 CVTRV425 EQU CVTXTNT2+68 01395000 CVTATACT EQU CVTATCVT 01396000 CVTRV423 EQU CVTXTNT2+62 01397000 CVTRV422 EQU CVTXTNT2+60 01398000 CVTRV421 EQU CVTXTNT2+58 01399000 CVTRV420 EQU CVTXTNT2+56 01400000 CVTRV419 EQU CVTXTNT2+55 01401000 CVTRV418 EQU CVTXTNT2+54 01402000 CVTRV417 EQU CVTRV409 01403000 CVTRV416 EQU CVTRV409 01404000 CVTRV415 EQU CVTRV409 01405000 CVTRV414 EQU CVTRV409 01406000 CVTRV413 EQU CVTRV409 01407000 CVTRV412 EQU CVTRV409 01408000 CVTRV411 EQU CVTRV409 01409000 CVTRV410 EQU CVTRV409 01410000 CVTRV408 EQU CVTRV400 01411000 CVTRV407 EQU CVTRV400 01412000 CVTRV406 EQU CVTRV400 01413000 CVTRV405 EQU CVTRV400 01414000 CVTRV404 EQU CVTRV400 01415000 CVTRV403 EQU CVTRV400 01416000 CVTRV402 EQU CVTRV400 01417000 CVTRV401 EQU CVTRV400 01418000 CVTICB EQU CVTXTNT2+48 01419000 CVTSKTA EQU CVTXTNT2+44 01420000 CVTRSV99 EQU CVTXTNT2+40 01421000 CVTRSV98 EQU CVTXTNT2+36 01422000 CVTRSV97 EQU CVTXTNT2+34 01423000 CVTRSV96 EQU CVTXTNT2+32 01424000 CVTOLTEP EQU CVTXTNT2+28 01425000 CVTQIDA EQU CVTQID+1 01426000 CVTRSV95 EQU CVTQID 01427000 CVTRSV94 EQU CVTXTNT2+20 01428000 CVTRSV93 EQU CVTXTNT2+16 01429000 CVTRSV92 EQU CVTXTNT2+12 01430000 CVTDEBVR EQU CVTXTNT2+8 01431000 CVTRSV91 EQU CVTXTNT2+6 01432000 CVTRSV9H EQU CVTFLGBT 01433000 CVTRSV9G EQU CVTFLGBT 01434000 CVTRSV9F EQU CVTFLGBT 01435000 CVTRSV9E EQU CVTFLGBT 01436000 CVTRSV9D EQU CVTFLGBT 01437000 CVTRSV9C EQU CVTFLGBT 01438000 CVTVME EQU CVTFLGBT 01439000 CVTNPE EQU CVTFLGBT 01440000 CVTNUCLS EQU CVTXTNT2+4 01441000 CVTDSSVA EQU CVTDSSV+1 01442000 CVTRSV89 EQU CVTDSSV 01443000 CVTRSV88 EQU CVTXTNT1+8 01444000 CVTRSV87 EQU CVTXTNT1+4 01445000 CVTFACHN EQU CVTXTNT1 01446000 CVTRV488 EQU CVTMAP+412 01447000 CVTRV487 EQU CVTMAP+408 01448000 CVTRV486 EQU CVTMAP+404 01449000 CVTRV485 EQU CVTMAP+400 01450000 CVTACTAP EQU CVTMAP+396 01451000 CVTAUTH EQU CVTMAP+392 01452000 CVTATMCA EQU CVTATMCT+1 01453000 CVTATMST EQU CVTATMCT 01454000 CVTRSV61 EQU CVTMAP+384 01455000 CVTVOLT1 EQU CVTVOLM1+1 01456000 CVTVOLI1 EQU CVTVOLF1 01457000 CVTSTOA EQU CVTMAP+376 01458000 CVTRSV58 EQU CVTMAP+374 01459000 CVTRSV57 EQU CVTMAP+372 01460000 CVTDDCE EQU CVTMAP+368 01461000 CVTPNWFR EQU CVTMAP+364 01462000 CVTSMF EQU CVTMAP+360 01463000 CVTSULK EQU CVTMAP+358 01464000 CVTSLKO EQU CVTSYSK 01465000 CVTSLKP EQU CVTSYSK 01466000 CVTSLKQ EQU CVTSYSK 01467000 CVTSLKR EQU CVTSYSK 01468000 CVTRSV56 EQU CVTSYSK 01469000 CVTRSV55 EQU CVTSYSK 01470000 CVTRSV54 EQU CVTSYSK 01471000 CVTRSV53 EQU CVTSYSK 01472000 CVTRSV52 EQU CVTA1F1 01473000 CVTRSV51 EQU CVTA1F1 01474000 CVTRSV50 EQU CVTA1F1 01475000 CVTRSV49 EQU CVTA1F1 01476000 CVTRSV48 EQU CVTA1F1 01477000 CVTRSV47 EQU CVTA1F1 01478000 CVTSRSW EQU CVTA1F1 01479000 CVTPFSW EQU CVTA1F1 01480000 CVTPCVT EQU CVTMAP+352 01481000 CVTRSV46 EQU CVTMAP+344 01482000 CVTRSV45 EQU CVTMAP+340 01483000 CVTRSV44 EQU CVTMAP+338 01484000 CVTRSV43 EQU CVTMAP+336 01485000 CVTHJESA EQU CVTHJES+1 01486000 CVTRSV42 EQU CVTHJES 01487000 CVTEXT2A EQU CVTEXT2+1 01488000 CVTRSV41 EQU CVTEXT2 01489000 CVTAPFA EQU CVTAPF+1 01490000 CVTRSV40 EQU CVTAPF 01491000 CVTRV518 EQU CVTINTLA 01492000 CVTRV517 EQU CVTERPV 01493000 CVTEORM EQU CVTMAP+312 01494000 CVTMCHPR EQU CVTMAP+308 01495000 CVTTZ EQU CVTMAP+304 01496000 CVTJEPS EQU CVTMAP+300 01497000 CVTJESCT EQU CVTMAP+296 01498000 CVTMODE EQU CVTMAP+292 01499000 CVTPTRV EQU CVTMAP+288 01500000 CVTREAL EQU CVTMAP+284 01501000 CVTRSV39 EQU CVTMAP+280 01502000 CVTRSV38 EQU CVTMAP+276 01503000 CVTDMSRA EQU CVTDMSR+1 01504000 CVTRSV37 EQU CVTDMSR 01505000 CVTQMSGA EQU CVTQMSG+1 01506000 CVTRSV36 EQU CVTQMSG 01507000 CVTAMFF EQU CVTMAP+264 01508000 CVTPURGA EQU CVTPURG+1 01509000 CVTRSV35 EQU CVTPURG 01510000 CVTCBSP EQU CVTMAP+256 01511000 CVTATERA EQU CVTATER+1 01512000 CVTSYST EQU CVTATER 01513000 CVTVOLT2 EQU CVTTAT 01514000 CVTVOLI2 EQU CVTVOLF2 01515000 CVTAQAVB EQU CVTAQAVT+1 01516000 CVTRSV34 EQU CVTTCMFG 01517000 CVTRSV33 EQU CVTTCMFG 01518000 CVTRSV32 EQU CVTTCMFG 01519000 CVTRSV31 EQU CVTTCMFG 01520000 CVTRSV30 EQU CVTTCMFG 01521000 CVTRSV29 EQU CVTTCMFG 01522000 CVTRSV28 EQU CVTTCMFG 01523000 CVTTCRDY EQU CVTTCMFG 01524000 CVTGTFA EQU CVTGTF+1 01525000 CVTRSV27 EQU CVTGTFST 01526000 CVTRNIO EQU CVTGTFST 01527000 CVTUSR EQU CVTGTFST 01528000 CVTRV318 EQU CVTFORM 01529000 CVTRV317 EQU CVTTMODE 01530000 CVTRV316 EQU CVTSTATE 01531000 CVTRV315 EQU CVTGTFS 01532000 CVTGTFAV EQU CVTGTFS 01533000 CVT0SCR1 EQU CVTMAP+232 01534000 CVTRV515 EQU CVTMAP+228 01535000 CVTRMS EQU CVTMAP+224 01536000 CVTPATCH EQU CVTMAP+220 01537000 CVTTSCE EQU CVTMAP+216 01538000 CVTLNKSC EQU CVTMAP+214 01539000 CVTQABST EQU CVTMAP+212 01540000 CVTMDLDS EQU CVTMAP+208 01541000 CVTUSER EQU CVTMAP+204 01542000 CVTABEND EQU CVTMAP+200 01543000 CVTSMCA EQU CVTMAP+196 01544000 CVTRSV18 EQU CVTMAP+192 01545000 CVTQLPAQ EQU CVTMAP+188 01546000 CVTQCDSR EQU CVTMAP+184 01547000 CVTRSV17 EQU CVTOPTB 01548000 CVTRSV16 EQU CVTOPTB 01549000 CVTFP EQU CVTOPTB 01550000 CVTAPTHR EQU CVTOPTB 01551000 CVTNLOG EQU CVTOPTB 01552000 CVTTOD EQU CVTOPTB 01553000 CVTCTIMS EQU CVTOPTB 01554000 CVTPROT EQU CVTOPTB 01555000 CVTXPFP EQU CVTOPTA 01556000 CVTASCII EQU CVTOPTA 01557000 CVTRSV13 EQU CVTOPTA 01558000 CVTRSV12 EQU CVTOPTA 01559000 CVTNIP EQU CVTOPTA 01560000 CVTDDR EQU CVTOPTA 01561000 CVTAPR EQU CVTOPTA 01562000 CVTCCH EQU CVTOPTA 01563000 CVTSNCTR EQU CVTMAP+180 01564000 CVTQMWR EQU CVTMAP+176 01565000 CVTQOCR EQU CVTMAP+172 01566000 CVT1EF00 EQU CVTMAP+168 01567000 CVTMZ00 EQU CVTMAP+164 01568000 CVTHEAD EQU CVTMAP+160 01569000 CVTRSV11 EQU CVTMAP+156 01570000 CVT0PT01 EQU CVTMAP+152 01571000 CVTMSER EQU CVTMAP+148 01572000 CVTRV516 EQU CVTIERLC 01573000 CVTILCH EQU CVTMAP+140 01574000 CVT0DS EQU CVTMAP+136 01575000 CVTFBOSV EQU CVTMAP+132 01576000 CVTNUCB EQU CVTMAP+128 01577000 CVTIOQET EQU CVTMAP+120 01578000 CVTMVS2 EQU CVTDCB 01579000 CVT6DAT EQU CVTDCB 01580000 CVT4MPS EQU CVTDCB 01581000 CVTRSV09 EQU CVTDCB 01582000 CVT4MS1 EQU CVTDCB 01583000 CVT2SPS EQU CVTDCB 01584000 CVT1SSS EQU CVTDCB 01585000 CVTRSV08 EQU CVTDCB 01586000 CVTSTB EQU CVTMAP+112 01587000 CVTQTD00 EQU CVTMAP+108 01588000 CVTQTE00 EQU CVTMAP+104 01589000 CVTCUCB EQU CVTMAP+100 01590000 CVTSJQ EQU CVTMAP+96 01591000 CVTPBLDL EQU CVTMAP+92 01592000 CVTTPC EQU CVTMAP+88 01593000 CVTSVDCB EQU CVTMAP+84 01594000 CVTBRET EQU CVTMAP+82 01595000 CVTEXIT EQU CVTMAP+80 01596000 CVT0FN00 EQU CVTMAP+76 01597000 CVTDARA EQU CVTDAR+1 01598000 CVTRSV07 EQU CVTFLGS1 01599000 CVTRSV06 EQU CVTFLGS1 01600000 CVTRSV05 EQU CVTFLGS1 01601000 CVTRSV04 EQU CVTFLGS1 01602000 CVTRSV03 EQU CVTFLGS1 01603000 CVTRSV02 EQU CVTFLGS1 01604000 CVTRSV01 EQU CVTFLGS1 01605000 CVTDMPLK EQU CVTFLGS1 01606000 CVTZDTAB EQU CVTMAP+64 01607000 CVTMSLT EQU CVTMAP+60 01608000 CVTDATE EQU CVTMAP+56 01609000 CVTBTERM EQU CVTMAP+52 01610000 CVTSYSAD EQU CVTMAP+48 01611000 CVTILK2 EQU CVTMAP+40 01612000 CVTILK1 EQU CVTMAP+36 01613000 CVTPRLTV EQU CVTMAP+32 01614000 CVTPCNVT EQU CVTMAP+28 01615000 CVT0VL00 EQU CVTMAP+24 01616000 CVTXAPG EQU CVTMAP+20 01617000 CVTBUF EQU CVTMAP+16 01618000 CVTJOB EQU CVTMAP+12 01619000 CVTLINK EQU CVTMAP+8 01620000 CVT0EF00 EQU CVTMAP+4 01621000 CVTTCBP EQU CVTMAP 01622000 CVT EQU CVTMAP 01623000 UCBERADR EQU UCBUCS+12 01624000 UCBFCBID EQU UCBUCS+8 01625000 UCBERCNT EQU UCBUCS+7 01626000 UCBRSV51 EQU UCBUCS+6 01627000 UCBRSV50 EQU UCBFCBOP 01628000 UCBRSV49 EQU UCBFCBOP 01629000 UCBRSV48 EQU UCBFCBOP 01630000 UCBRSV47 EQU UCBFCBOP 01631000 UCBRSV46 EQU UCBFCBOP 01632000 UCBRSV45 EQU UCBFCBOP 01633000 UCBRSV44 EQU UCBFCBOP 01634000 UCBFCBO1 EQU UCBFCBOP 01635000 UCBUCSPE EQU UCBUCSOP 01636000 UCBRSV43 EQU UCBUCSOP 01637000 UCBRSV42 EQU UCBUCSOP 01638000 UCBRSV41 EQU UCBUCSOP 01639000 UCBRSV40 EQU UCBUCSOP 01640000 UCBRSV39 EQU UCBUCSOP 01641000 UCBUCSO2 EQU UCBUCSOP 01642000 UCBUCSO1 EQU UCBUCSOP 01643000 UCBUCSID EQU UCBUCS 01644000 UCBRV073 EQU UCB3540X+7 01645000 UCBRV072 EQU UCBDKBYT 01646000 UCBRV071 EQU UCBDKBYT 01647000 UCBRV070 EQU UCBDKBYT 01648000 UCBRV069 EQU UCBDKBYT 01649000 UCBRV068 EQU UCBDKBYT 01650000 UCBRV067 EQU UCBDKBYT 01651000 UCBVLVER EQU UCBDKBYT 01652000 UCBDKAMX EQU UCBDKBYT 01653000 UCBVLSER EQU UCB3540X 01654000 UCBRDATA EQU UCBOCR+4 01655000 UCBFRID EQU UCBOCR 01656000 UCBCLN EQU UCBMT+14 01657000 UCBERG EQU UCBMT+12 01658000 UCBMS EQU UCBMT+11 01659000 UCBNB EQU UCBMT+10 01660000 UCBPW EQU UCBMT+9 01661000 UCBPR EQU UCBMT+8 01662000 UCBSIO EQU UCBMT+6 01663000 UCBTW EQU UCBMT+5 01664000 UCBTR EQU UCBMT+4 01665000 UCBTWT EQU UCBMT+3 01666000 UCBTRT EQU UCBMT+2 01667000 UCBCTD EQU UCBMT 01668000 UCBWTOID EQU UCBCMEXT+17 01669000 UCBRV043 EQU UCBCMEXT+16 01670000 UCBASID EQU UCBCMEXT+14 01671000 UCBMFCNT EQU UCBCMEXT+12 01672000 UCBPMSK EQU UCBCMEXT+10 01673000 UCBCCWOF EQU UCBCMEXT+8 01674000 UCBRV041 EQU UCBCMEXT+6 01675000 UCBRV036 EQU UCBFLP1 01676000 UCBRV035 EQU UCBFLP1 01677000 UCBRV034 EQU UCBFLP1 01678000 UCBRV033 EQU UCBFLP1 01679000 UCBRV032 EQU UCBFLP1 01680000 UCBRV031 EQU UCBFLP1 01681000 UCBSHRUP EQU UCBFLP1 01682000 UCBNSRCH EQU UCBFLP1 01683000 UCBSNSCT EQU UCBCMEXT+4 01684000 UCBHPDV EQU @NM00032 01685000 UCBHALI EQU @NM00032 01686000 UCBRSV09 EQU @NM00032 01687000 UCBRSV08 EQU @NM00032 01688000 UCBRSV07 EQU @NM00032 01689000 UCBRSV06 EQU @NM00032 01690000 UCBRSV05 EQU @NM00032 01691000 UCBRSV04 EQU @NM00032 01692000 UCBDTI EQU UCBCMEXT+2 01693000 UCBSTI EQU UCBCMEXT+1 01694000 UCBETI EQU UCBCMEXT 01695000 UCBEXTP EQU UCBEXTPT+1 01696000 UCBDDRSW EQU UCBFLC 01697000 UCBTICBT EQU UCBFLC 01698000 UCBIVRR EQU UCBFLC 01699000 UCBIVRS EQU UCBFLC 01700000 UCBITF EQU UCBFLC 01701000 UCBUDE EQU UCBFLC 01702000 UCBWAA EQU UCBFLC 01703000 UCBATTP EQU UCBFLC 01704000 UCBUNTYP EQU UCBTBYT4 01705000 UCBRSV11 EQU UCBDVCLS 01706000 UCBRSV10 EQU UCBDVCLS 01707000 UCB3CHAR EQU UCBDVCLS 01708000 UCB3UREC EQU UCBDVCLS 01709000 UCB3DISP EQU UCBDVCLS 01710000 UCB3DACC EQU UCBDVCLS 01711000 UCB3COMM EQU UCBDVCLS 01712000 UCB3TAPE EQU UCBDVCLS 01713000 UCBDVPWR EQU UCB2OPT7 01714000 UCBVLPWR EQU UCB2OPT6 01715000 UCB2OPT5 EQU UCBTBYT2 01716000 UCBRVDEV EQU UCBRWTAU 01717000 UCBRPS EQU UCBDUDN2 01718000 UCBRR EQU UCBDUDN1 01719000 UCB2OPT1 EQU UCBTBYT2 01720000 UCB2OPT0 EQU UCBTBYT2 01721000 UCB1FEA7 EQU UCBTBYT1 01722000 UCBD6250 EQU UCB1FEA6 01723000 UCBD1600 EQU UCB1FEA5 01724000 UCB1FEA4 EQU UCBTBYT1 01725000 UCB1FEA3 EQU UCBTBYT1 01726000 UCB1FEA2 EQU UCBTBYT1 01727000 UCB1FEA1 EQU UCBTBYT1 01728000 UCB1FEA0 EQU UCBTBYT1 01729000 UCBNAME EQU UCBOB+13 01730000 UCBRV029 EQU UCBWGT 01731000 UCBVHRSN EQU UCBWGT 01732000 UCBVORSN EQU UCBWGT 01733000 UCBMTPXP EQU UCBWGT 01734000 UCBREW EQU UCBWGT 01735000 UCBPUB EQU UCBWGT 01736000 UCBOUT EQU UCBWGT 01737000 UCBIN EQU UCBWGT 01738000 UCBCPU EQU UCBOB+11 01739000 UCBLCI EQU UCBOB+10 01740000 UCBCNT EQU UCBOB+9 01741000 UCBRV017 EQU UCBCHM1 01742000 UCBRV016 EQU UCBCHM1 01743000 UCBRV015 EQU UCBCHM1 01744000 UCBRV014 EQU UCBCHM1 01745000 UCBSPB EQU UCBPTH1 01746000 UCBPPB EQU UCBPTH1 01747000 UCBSPA EQU UCBPTH0 01748000 UCBPPA EQU UCBPTH0 01749000 UCBFLB7 EQU UCBFLB 01750000 UCBVALPH EQU UCBFLB 01751000 UCBCRHSN EQU UCBFLB 01752000 UCBCRHRV EQU UCBFLB 01753000 UCBRESVH EQU UCBFLB 01754000 UCBSPST EQU UCBFLB 01755000 UCBASNS EQU UCBFLB 01756000 UCBIORST EQU UCBFLB 01757000 UCBQISCE EQU UCBFL1 01758000 UCBACTV EQU UCBFL1 01759000 UCBSAP EQU UCBFL1 01760000 UCBNOTRC EQU UCBCUB 01761000 UCBPSNS EQU UCBFL1 01762000 UCBUSING EQU UCBPST 01763000 UCBNOTRD EQU UCBNRY 01764000 UCBBUSYD EQU UCBBSY 01765000 UCBUA EQU UCBCHAN+1 01766000 UCBCHA EQU UCBCHAN 01767000 UCBDADI EQU UCBSTAT 01768000 UCBSYSR EQU UCBSTAT 01769000 UCBPRES EQU UCBSTAT 01770000 UCBALOC EQU UCBSTAT 01771000 UCBUNLD EQU UCBSTAT 01772000 UCBRESV EQU UCBSTAT 01773000 UCBCHGS EQU UCBSTAT 01774000 UCBONLI EQU UCBSTAT 01775000 UCBID EQU UCBOB+2 01776000 UCBALTPH EQU UCBFL5 01777000 UCBALTCU EQU UCBFL5 01778000 UCBNALOC EQU UCBFL5 01779000 UCBENVRD EQU UCBFL5 01780000 UCBVSDR EQU UCBFL5 01781000 UCBSASK EQU UCBFL5 01782000 UCBAMV EQU UCBAF 01783000 UCBDCC EQU UCBFL5 01784000 UCBMONT EQU UCBJBNR 01785000 UCBRV011 EQU UCBJBNR 01786000 UCBRSV02 EQU UCBJBNR 01787000 UCBOLDSM EQU UCBJBNR 01788000 UCBRV003 EQU UCBJBNR 01789000 UCBRV002 EQU UCBJBNR 01790000 UCBJES3 EQU UCBJBNR 01791000 UCBVRDEV EQU UCBJBNR 01792000 UCBCMSEG EQU UCBOB 01793000 UCBPFXND EQU UCB+512 01794000 UCBIOQ EQU UCB+508 01795000 UCBLOCK EQU UCB+504 01796000 UCBPXST EQU UCB+504 01797000 @NM00029 EQU UCB 01798000 IOCOEND EQU IOCOM+128 01799000 IOCPATCH EQU IOCOM+124 01800000 IOCUCBBM EQU IOCOM+120 01801000 IOCQCNT EQU IOCOM+116 01802000 IOCIOSDQ EQU IOCOM+112 01803000 IOCIOSEQ EQU IOCOM+108 01804000 IOCSVCF EQU IOCOM+104 01805000 IOCTCCW EQU IOCOM+100 01806000 IOCRSVTB EQU IOCOM+96 01807000 IOCMFCNT EQU IOCOM+92 01808000 IOCMFHK EQU IOCOM+88 01809000 IOCCCH EQU IOCOM+80 01810000 IOCASYNQ EQU IOCOM+76 01811000 IOCLCHTB EQU IOCOM+72 01812000 IOCATTBL EQU IOCOM+68 01813000 IOCOMEX EQU IOCOM+64 01814000 IOCSYNCH EQU IOCOM+56 01815000 IOCCATLK EQU IOCOM+48 01816000 IOCPRGID EQU IOCOM+44 01817000 IOCIOSCP EQU IOCOM+40 01818000 IOCORMGT EQU IOCOM+36 01819000 IOCVOID EQU IOCOM+32 01820000 IOCSTIO EQU IOCOM+28 01821000 @NM00028 EQU IOCOM+24 01822000 @NM00027 EQU IOCOM+20 01823000 IOCINT EQU IOCOM+16 01824000 IOCCTBL EQU IOCOM+12 01825000 IOCHIO EQU IOCOM+8 01826000 IOCPST EQU IOCOM+4 01827000 IOCPGCT EQU IOCOM+2 01828000 IOCVOICT EQU IOCOM 01829000 EWADDISP EQU EWA+29 01830000 EWADCNT EQU EWA+28 01831000 EWACPU EQU EWA+27 01832000 @NM00016 EQU EWA+26 01833000 EWACHA EQU EWA+24 01834000 EWACSEQ EQU EWAXCSW2 01835000 EWACDIN EQU EWAXCSW2 01836000 @NM00015 EQU EWAXCSW2 01837000 EWACTEC EQU EWAXCSW2 01838000 EWACDAV EQU EWAXCSW1 01839000 EWACCHV EQU EWAXCSW1 01840000 EWACCMD EQU EWAXCSW1 01841000 EWACUNS EQU EWAXCSW1 01842000 EWACSQV EQU EWAXCSW1 01843000 @NM00014 EQU EWAXCSW1 01844000 EWACITF EQU EWAXCSW1 01845000 @NM00013 EQU EWARGFG2 01846000 EWACCUE EQU EWARGFG2 01847000 EWACSTG EQU EWARGFG2 01848000 EWACSCU EQU EWARGFG2 01849000 EWACCHA EQU EWARGFG2 01850000 EWACCPU EQU EWARGFG2 01851000 EWANORTY EQU EWARGFG1 01852000 EWACCNT EQU EWARGFG1 01853000 EWACSNS EQU EWARGFG1 01854000 @NM00012 EQU EWARGFG1 01855000 EWACHIO EQU EWARGFG1 01856000 EWACTIO EQU EWARGFG1 01857000 EWACINT EQU EWARGFG1 01858000 EWACSIO EQU EWARGFG1 01859000 EWAUCB EQU EWAERPIB+1 01860000 @NM00011 EQU EWAERPIB 01861000 EWACNTR4 EQU EWACNTRS+3 01862000 EWACNTR2 EQU EWACNTRS+1 01863000 EWASSTAT EQU EWA+8 01864000 EWASCTMX EQU EWASNSCT 01865000 @NM00010 EQU EWASNSCT 01866000 @NM00009 EQU EWAFLG2 01867000 EWADIR EQU EWAFLG2 01868000 EWACOVF EQU EWAFLG2 01869000 EWAWTEMP EQU EWAFLG2 01870000 EWABDSNS EQU EWAFLG1 01871000 EWADDMSG EQU EWAFLG1 01872000 EWASCC1 EQU EWASCC3 01873000 EWASCC2 EQU EWASCC3 01874000 @NM00008 EQU EWAFLG1 01875000 EWASLIS EQU EWAFLG1 01876000 EWAEXT EQU EWAHDR 01877000 IOSEND EQU IOSB+108 01878000 IOSSKR EQU IOSEEKA+7 01879000 IOSSKH2 EQU IOSSKHH+1 01880000 IOSSKH1 EQU IOSSKHH 01881000 IOSSKCC EQU IOSCCHH 01882000 IOSSKBB EQU IOSEEKA+1 01883000 IOSSKM EQU IOSEEKA 01884000 IOSEEK EQU IOSB+92 01885000 IOSMDM EQU IOSB+91 01886000 IOSMDB EQU IOSB+90 01887000 IOSCKEY7 EQU IOSCKEY 01888000 IOSCKEY6 EQU IOSCKEY 01889000 IOSCKEY5 EQU IOSCKEY 01890000 IOSCKEY4 EQU IOSCKEY 01891000 @NM00004 EQU IOSCKEY 01892000 IOSFMSK EQU IOSB+88 01893000 IOSCUDEV EQU IOSPATH+1 01894000 @NM00003 EQU IOSCHN 01895000 IOSPATH3 EQU IOSCHN 01896000 IOSPATH2 EQU IOSCHN 01897000 IOSEXP EQU IOSCHN 01898000 IOSGDP EQU IOSCHN 01899000 IOSAFF EQU IOSB+85 01900000 IOSRSS1B EQU IOSB+84 01901000 IOSDSID EQU IOSB+80 01902000 IOSVST EQU IOSB+76 01903000 IOSDIE EQU IOSB+68 01904000 IOSABN EQU IOSB+64 01905000 IOSNRM EQU IOSB+60 01906000 IOSPCI EQU IOSB+56 01907000 IOSPCHN EQU IOSB+48 01908000 IOSAPMSK EQU IOSB+40 01909000 IOSRES4A EQU IOSB+36 01910000 IOSSRB EQU IOSB+28 01911000 IOSCSWRC EQU IOSCSW+5 01912000 IOSTSB EQU IOSTATUS+1 01913000 IOSOPT2X EQU IOSOPT2 01914000 IOSHTP EQU IOSOPT2 01915000 IOSRELSE EQU IOSOPT 01916000 IOSAPR EQU IOSOPT 01917000 IOSTSLL EQU IOSOPT 01918000 IOSNERP EQU IOSOPT 01919000 IOSPSLL EQU IOSOPT 01920000 IOSQISCE EQU IOSOPT 01921000 IOSDEP EQU IOSOPT 01922000 IOSBYP EQU IOSOPT 01923000 IOSPKY7 EQU IOSPKEY 01924000 IOSPGDPX EQU IOSPKEY 01925000 IOSIDR EQU IOSPKEY 01926000 IOSLCL EQU IOSPKEY 01927000 @NM00001 EQU IOSPKEY 01928000 IOSPGAD EQU IOSB+8 01929000 IOSASID EQU IOSB+6 01930000 IOSPRLVL EQU IOSB+5 01931000 IOSPROC EQU IOSB+3 01932000 IOSFLC7 EQU IOSFLC 01933000 IOSFLC6 EQU IOSFLC 01934000 IOSGLC5 EQU IOSFLC 01935000 IOSFLC4 EQU IOSFLC 01936000 IOSTP EQU IOSFLC 01937000 IOSCC3WE EQU IOSFLC 01938000 IOSVERIF EQU IOSDVALT 01939000 IOSDVMNT EQU IOSFLC 01940000 IOSBDCST EQU IOSFLB 01941000 IOSFLB4 EQU IOSFLB 01942000 IOSFLB3 EQU IOSFLB 01943000 IOSFLB2 EQU IOSFLB 01944000 IOSFLB1 EQU IOSFLB 01945000 IOSDIESE EQU IOSFLB 01946000 IOSIOSB EQU IOSFLA 01947000 IOSDOM EQU IOSFLA 01948000 IOSSMDB EQU IOSFLA 01949000 IOSSMDA EQU IOSFLA 01950000 IOSDCHN EQU IOSACHN 01951000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01952000 @RT00112 EQU EXIT22 01953000 @RT00115 EQU STATUS 01954000 @RT00125 EQU STATUS 01955000 @RC00139 EQU ERR021 01956000 @RT00146 EQU ERR051 01957000 @RT00148 EQU ERR051 01958000 @RT00150 EQU ERR051 01959000 @RT00152 EQU ERR051 01960000 @RT00154 EQU ERR051 01961000 @RT00162 EQU EXIT12 01962000 @RT00164 EQU EXIT12 01963000 @RT00168 EQU EXIT12 01964000 @RT00170 EQU EXIT12 01965000 @RT00174 EQU EXIT12 01966000 @RF00174 EQU SENSE 01967000 @RT00177 EQU EXIT12 01968000 @RT00181 EQU EXIT12 01969000 @RT00185 EQU EXIT12 01970000 @RT00189 EQU EXIT12 01971000 @RT00193 EQU EXIT12 01972000 @RT00197 EQU ERR006 01973000 @RT00199 EQU EXIT22 01974000 @RT00203 EQU EXIT01 01975000 @RT00217 EQU EXIT01 01976000 @RT00222 EQU EXIT30 01977000 @RT00230 EQU EXIT12 01978000 @RT00234 EQU EXIT12 01979000 @RT00254 EQU EXIT22 01980000 @ENDDATA EQU * 01981000 END ER3890,(C'PLS1456',0701,78209) 01982000