TITLE 'IGE0101F,3886 ERROR RECOVERY PROCEDURE-2ND LOAD *00001000 ' 00002000 ER3886B CSECT , 0001 00003000 @PROLOG BALR @06,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@06 0001 00006000 * 0105 00007000 * /*****************************************************************/ 00008000 * /* */ 00009000 * /* MAIN FLOW */ 00010000 * /* */ 00011000 * /*****************************************************************/ 00012000 * 0105 00013000 * UCBPTR=IOSUCB; /* INIT POINTER TO UCB Y02870 */ 00014000 L UCBPTR,IOSUCB(,IOSBPTR) 0105 00015000 * EWAPTR=IOSERP; /* INIT POINTER TO ERP WORK 0106 00016000 * Y02870 */ 00017000 L EWAPTR,IOSERP(,IOSBPTR) 0106 00018000 * CCWREG=IOSCSWCA-CCWLEN; /* FIND FAILING CCW Y02870 */ 00019000 L CCWREG,IOSCSWCA-1(,IOSBPTR) 0107 00020000 LA CCWREG,0(,CCWREG) 0107 00021000 SL CCWREG,@CF00052 0107 00022000 */* */ 00023000 */* UNITCHCK SEGMENT-PERFORMS PRIORITY CHECK FOR SENSE BITS AND */ 00024000 */* INCLUDES SEGMENTS TO SETUP ACTION */ 00025000 */* */ 00026000 * 0108 00027000 * SDRINDEX=ZERO; /* INIT SDR INDEX TO ZERO */ 00028000 MVI SDRINDEX(EWAPTR),X'00' 0108 00029000 *STRTCHCK: /* START SENSE CHECKING */ 00030000 * IF IOBS0B5=ON| /* NOT USED SENSE ON OR */ 00031000 * IOBS0B4=ON| /* NON INIT OR */ 00032000 * IOBS0B7=ON| /* RCP ERROR */ 00033000 * IOBS0B6=ON|IOBS1B5=ON|IOBS1B3=ON|IOBS1B0=ON THEN/* YES,SETUP 00034000 * ACTION */ 00035000 STRTCHCK TM IOBS0B5(IOSBPTR),B'00001111' 0109 00036000 BNZ @RT00109 0109 00037000 TM IOBS1B5(IOSBPTR),B'10010100' 0109 00038000 BZ @RF00109 0109 00039000 @RT00109 DS 0H 0110 00040000 * DO; 0110 00041000 * IOBOBR=ON; /* OBR NEEDED */ 00042000 * IOBPMS=ON; /* PERM ERR MSG */ 00043000 OI IOBOBR(IOSBPTR),B'00000101' 0112 00044000 * IF IOBS0B6=ON& /* NONINIT */ 00045000 * IOBS0B7=BOF /* AND NOT RCP ERROR */ 00046000 * THEN /* YES,IND OBR NEEDED */ 00047000 TM IOBS0B6(IOSBPTR),B'00000010' 0113 00048000 BNO @RF00113 0113 00049000 TM IOBS0B7(IOSBPTR),B'00000001' 0113 00050000 BNZ @RF00113 0113 00051000 * IOBOBR=BOF; /* OBR NEEDED */ 00052000 NI IOBOBR(IOSBPTR),B'11111110' 0114 00053000 * ELSE 0115 00054000 * ; 0115 00055000 @RF00113 DS 0H 0116 00056000 * END; 0116 00057000 * ELSE /* NOT 1 OF FIRST SENSE BITS */ 00058000 */* */ 00059000 */* UNITCHK2 SEGMENT- PERFORMS PRIORITY CHECK FOR SENSE BITS */ 00060000 */* */ 00061000 * 0117 00062000 * DO; 0117 00063000 B @RC00109 0117 00064000 @RF00109 DS 0H 0118 00065000 * IF IOBS1B7=ON /* OBR SENSE ON */ 00066000 * THEN /* YES, */ 00067000 TM IOBS1B7(IOSBPTR),B'00000001' 0118 00068000 BNO @RF00118 0118 00069000 * IOBOBR=ON; /* IND OBR NEEDED */ 00070000 OI IOBOBR(IOSBPTR),B'00000001' 0119 00071000 * ELSE 0120 00072000 * ; 0120 00073000 @RF00118 DS 0H 0121 00074000 *EQUIPCHK: /* TEST FOR EQUIPMENT CHECK */ 00075000 * IF IOBS0B3=ON /* EQUIPMENT CHECK */ 00076000 * THEN /* YES,PROCESS EQUIP CHECK */ 00077000 EQUIPCHK TM IOBS0B3(IOSBPTR),B'00010000' 0121 00078000 BNO @RF00121 0121 00079000 */* */ 00080000 */* EQUIPCHK SEGMENT- SETS UP ACTION TO BE TAKEN FOR EQUIPMENT CHECK */ 00081000 */* */ 00082000 * 0122 00083000 * DO; 0122 00084000 * IF IOSSENS1=SNSUTCK /* UNIT CK ON SENSE CMNDY02870 */ 00085000 * THEN /* WHEN EQUIP CHK,YES, */ 00086000 CLI IOSSENS1(IOSBPTR),X'FE' 0123 00087000 BNE @RF00123 0123 00088000 * DO; /* */ 00089000 * IOBPMS=ON; /* PERM ERR MSG */ 00090000 * IOBOBR=ON; /* OBR NEEDED */ 00091000 OI IOBPMS(IOSBPTR),B'00000101' 0126 00092000 * END; /* */ 00093000 * ELSE /* NO, */ 00094000 * DO; 0128 00095000 B @RC00123 0128 00096000 @RF00123 DS 0H 0129 00097000 * IF EWCSNSB3>=SDRB1A&/* SDR TO BE UPDATEDY02870 */ 00098000 * EWCSNSB3<=SDRB1B/* Y02870 */ 00099000 * THEN /* YES,FIND JDR TAB INDX */ 00100000 CLI EWCSNSB3(EWAPTR),X'40' 0129 00101000 BL @RF00129 0129 00102000 CLI EWCSNSB3(EWAPTR),X'46' 0129 00103000 BH @RF00129 0129 00104000 * SDRINDEX=EWCSNS3-ALGN1;/* SET SDR INDEX Y02870 */ 00105000 SLR @15,@15 0130 00106000 IC @15,EWCSNS3(,EWAPTR) 0130 00107000 SL @15,@CF00098 0130 00108000 STC @15,SDRINDEX(,EWAPTR) 0130 00109000 * ELSE 0131 00110000 * ; /* NULL ELSE */ 00111000 @RF00129 DS 0H 0132 00112000 * IF IOBEQC=ON| /* RETRY ATTEMPTED */ 00113000 * IOSCOD=INTRCPT| /* INTRCPT CONDITION Y02870 */ 00114000 * ^(COMMAND=SCAN| /* NOT(SCAN OR */ 00115000 * COMMAND=LFORMAT)/* LOAD FORMAT CMMD) */ 00116000 * THEN /* YES,PERM ERR,EXIT */ 00117000 TM IOBEQC(EWAPTR),B'01000000' 0132 00118000 BO @RT00132 0132 00119000 CLI IOSCOD(IOSBPTR),X'7E' 0132 00120000 BE @RT00132 0132 00121000 CLI COMMAND(CCWREG),X'73' 0132 00122000 BE @RF00132 0132 00123000 CLI COMMAND(CCWREG),X'53' 0132 00124000 BE @RF00132 0132 00125000 @RT00132 DS 0H 0133 00126000 * IOBPMS=ON; /* PERM ERR MSG */ 00127000 OI IOBPMS(IOSBPTR),B'00000100' 0133 00128000 * ELSE /* NO, RETRY CCW */ 00129000 * IOBEQC=ON; /* SET RETRY BIT ON */ 00130000 B @RC00132 0134 00131000 @RF00132 OI IOBEQC(EWAPTR),B'01000000' 0134 00132000 * END; 0135 00133000 * END; 0136 00134000 * ELSE /* NO, CONTINUE PRIORITY CHK */ 00135000 *NONRECOV: /* TEST FOR NON RECOVERY */ 00136000 * IF IOBS1B6=ON /* NON-RECOVERY */ 00137000 * THEN /* YES,PROCESS NON-RECOVERY */ 00138000 B @RC00121 0137 00139000 @RF00121 DS 0H 0137 00140000 NONRECOV TM IOBS1B6(IOSBPTR),B'00000010' 0137 00141000 BNO @RF00137 0137 00142000 * DO; 0138 00143000 * IOBPMS=ON; /* IND PERM ERROR */ 00144000 OI IOBPMS(IOSBPTR),B'00000100' 0139 00145000 * IF EWCSNSB3=SDRB1I| /* SDR TO BE Y02870 */ 00146000 * EWCSNSB3=SDRB1J /* COUNTED Y02870 */ 00147000 * THEN /* YES FIND INDEX */ 00148000 CLI EWCSNSB3(EWAPTR),X'70' 0140 00149000 BE @RT00140 0140 00150000 CLI EWCSNSB3(EWAPTR),X'71' 0140 00151000 BNE @RF00140 0140 00152000 @RT00140 DS 0H 0141 00153000 * SDRINDEX=EWCSNS3-ALGN5;/* SET INDEX FOR NON REC 0141 00154000 * YM2516 */ 00155000 SLR @15,@15 0141 00156000 IC @15,EWCSNS3(,EWAPTR) 0141 00157000 SL @15,@CF00105 0141 00158000 STC @15,SDRINDEX(,EWAPTR) 0141 00159000 * ELSE 0142 00160000 * ; /* NULL ELSE */ 00161000 @RF00140 DS 0H 0143 00162000 * END; /* END DO */ 00163000 * ELSE /* NO,CONTINUE PRIORITY */ 00164000 *INCPSCAN: /* TEST FOR INCOMPLETE SCAN */ 00165000 * IF IOBS1B4=ON /* INCOMPLETE SCAN */ 00166000 * THEN /* YES,PROCESS INCOMPL SCAN */ 00167000 B @RC00137 0144 00168000 @RF00137 DS 0H 0144 00169000 INCPSCAN TM IOBS1B4(IOSBPTR),B'00001000' 0144 00170000 BNO @RF00144 0144 00171000 */* */ 00172000 */* INCPLSCN SEGMENT- SETS UP ACTION TO BE TAKEN FOR THE INCOMPLETE */ 00173000 */* SCAN SENSE BIT SETTING */ 00174000 */* */ 00175000 * 0145 00176000 * DO; 0145 00177000 * IF EWCSNSB3>=SDRB1C&/* SDR TO BE UPDATED Y02870 */ 00178000 * EWCSNSB3<=SDRB1D/* Y02870 */ 00179000 * THEN /* YES,FIND SDR TAB INDEX */ 00180000 CLI EWCSNSB3(EWAPTR),X'60' 0146 00181000 BL @RF00146 0146 00182000 CLI EWCSNSB3(EWAPTR),X'66' 0146 00183000 BH @RF00146 0146 00184000 * SDRINDEX=EWCSNS3-ALGN2;/* SET SDR INDEX Y02870 */ 00185000 SLR @15,@15 0147 00186000 IC @15,EWCSNS3(,EWAPTR) 0147 00187000 SL @15,@CF00100 0147 00188000 STC @15,SDRINDEX(,EWAPTR) 0147 00189000 * ELSE 0148 00190000 * ; /* NULL ELESE */ 00191000 @RF00146 DS 0H 0149 00192000 * IF IOBICS=ON| /* INCPL SCAN RETRIED OR */ 00193000 * IOSCOD=INTRCPT /* INTERCEPT Y02870 */ 00194000 * THEN /* YES,PERM ERROR-NO MSG */ 00195000 TM IOBICS(EWAPTR),B'00010000' 0149 00196000 BO @RT00149 0149 00197000 CLI IOSCOD(IOSBPTR),X'7E' 0149 00198000 BNE @RF00149 0149 00199000 @RT00149 DS 0H 0150 00200000 * IOSERR=BOF; /* NO MORE RETRY Y02870 */ 00201000 NI IOSERR(IOSBPTR),B'11011111' 0150 00202000 * ELSE /* NO, SETUP RETRY */ 00203000 * IOBICS=ON; /* TURN ON RETRY BIT */ 00204000 B @RC00149 0151 00205000 @RF00149 OI IOBICS(EWAPTR),B'00010000' 0151 00206000 * END; 0152 00207000 * ELSE /* NOT INCPL SCAN,CONTINUE */ 00208000 *MARKCHK: /* MARK CHECK TEST */ 00209000 * IF IOBS1B1=ON /* MARK CHECK */ 00210000 * THEN /* YES, */ 00211000 B @RC00144 0153 00212000 @RF00144 DS 0H 0153 00213000 MARKCHK TM IOBS1B1(IOSBPTR),B'01000000' 0153 00214000 BNO @RF00153 0153 00215000 * DO; /* */ 00216000 * IOBPMS=ON; /* IND PERM ERR MSG */ 00217000 OI IOBPMS(IOSBPTR),B'00000100' 0155 00218000 * IF EWCSNSB3>=SDRB1E&/* UPDATE TO Y02870 */ 00219000 * EWCSNSB3<=SDRB1F/* MAKE Y02870 */ 00220000 * THEN /* YES,FIND TABLE INDEX */ 00221000 CLI EWCSNSB3(EWAPTR),X'50' 0156 00222000 BL @RF00156 0156 00223000 CLI EWCSNSB3(EWAPTR),X'54' 0156 00224000 BH @RF00156 0156 00225000 * SDRINDEX=EWCSNS3-ALGN3;/* INDEX Y02870 */ 00226000 SLR @15,@15 0157 00227000 IC @15,EWCSNS3(,EWAPTR) 0157 00228000 SL @15,@CF00102 0157 00229000 STC @15,SDRINDEX(,EWAPTR) 0157 00230000 * ELSE 0158 00231000 * ; /* NULL ELSE */ 00232000 @RF00156 DS 0H 0159 00233000 * END; /* */ 00234000 * ELSE /* NO LMSTMC,CONTINUE PRIORTY */ 00235000 *INTRVREQ: /* TEST FOR INTRVTN REQ */ 00236000 * IF IOBS0B1=ON /* INTERV REQUIRED */ 00237000 * THEN /* YES,PROCESS INT REQ */ 00238000 B @RC00153 0160 00239000 @RF00153 DS 0H 0160 00240000 INTRVREQ TM IOBS0B1(IOSBPTR),B'01000000' 0160 00241000 BNO @RF00160 0160 00242000 */* */ 00243000 */* INTREQ SEGMENT- SETS UP ACTION TO BE TAKEN FOR THE INTERVENTION */ 00244000 */* REQUIRED SENSE BIT SETTING */ 00245000 */* */ 00246000 * 0161 00247000 * DO; 0161 00248000 * IOBIRM=ON; /* IND INT REQ MSG */ 00249000 OI IOBIRM(EWAPTR),B'00001000' 0162 00250000 * IF EWCSNSB3>=SDRB1G&/* IND INT REQ MSG Y02870 */ 00251000 * EWCSNSB3<=SDRB1H/* Y02870 */ 00252000 * THEN /* YES,FIND SDR TAB INDEX */ 00253000 CLI EWCSNSB3(EWAPTR),X'10' 0163 00254000 BL @RF00163 0163 00255000 CLI EWCSNSB3(EWAPTR),X'22' 0163 00256000 BH @RF00163 0163 00257000 * SDRINDEX=EWCSNS3-ALGN4;/* SET SDR INDEX Y02870 */ 00258000 SLR @15,@15 0164 00259000 IC @15,EWCSNS3(,EWAPTR) 0164 00260000 SL @15,@CF00062 0164 00261000 STC @15,SDRINDEX(,EWAPTR) 0164 00262000 * ELSE 0165 00263000 * ; /* NULL ELSE */ 00264000 @RF00163 DS 0H 0166 00265000 * IF IOSCOD=INTRCPT/* INTERCEPT Y02870 */ 00266000 * THEN /* YES,PERM ERROR */ 00267000 CLI IOSCOD(IOSBPTR),X'7E' 0166 00268000 BNE @RF00166 0166 00269000 * IOBPMS=ON; /* PERM ERROR */ 00270000 OI IOBPMS(IOSBPTR),B'00000100' 0167 00271000 * ELSE /* NO,NOT INTERCEPT ON INT RQ */ 00272000 * IF COMMAND=EJECT&/* ENDING STATUS OF EJECT */ 00273000 * STBYT1B5=ON/* COMMAND */ 00274000 * THEN /* YES,INT REQ MSG,NO RETRY */ 00275000 B @RC00166 0168 00276000 @RF00166 CLI COMMAND(CCWREG),X'63' 0168 00277000 BNE @RF00168 0168 00278000 TM STBYT1B5(IOSBPTR),B'00000100' 0168 00279000 BNO @RF00168 0168 00280000 * IF IOBRSTRT=ON/* RESTART ON-INDS COMMND CHN */ 00281000 * THEN /* YES, ALLOW RESTART */ 00282000 TM IOBRSTRT(EWAPTR),B'00000010' 0169 00283000 BNO @RF00169 0169 00284000 * IOSRST=IOSRST+CCWLEN;/* BUMP START ADDR 0170 00285000 * Y02870 */ 00286000 LA @15,8 0170 00287000 AL @15,IOSRST(,IOSBPTR) 0170 00288000 ST @15,IOSRST(,IOSBPTR) 0170 00289000 * ELSE /* NO, */ 00290000 * DO; /* DONT ALLOW RETRY */ 00291000 B @RC00169 0171 00292000 @RF00169 DS 0H 0172 00293000 * IOSERR=BOF;/* TURN OFF ERP IN CONTROL 0172 00294000 * Y02870 */ 00295000 * IOSEX=BOF;/* TURN OF PERM ERRROR Y02870 */ 00296000 NI IOSERR(IOSBPTR),B'11011011' 0173 00297000 * END; /* */ 00298000 * ELSE 0175 00299000 * ; /* NULL ELSE */ 00300000 @RF00168 DS 0H 0176 00301000 * IF IOCC3886=NOTOPER/* SIOOC IS NOT OPERATIONAL */ 00302000 * THEN /* YES,USE START ADDRESS */ 00303000 @RC00168 DS 0H 0176 00304000 @RC00166 TM IOCC3886(IOSBPTR),B'00110000' 0176 00305000 BNO @RF00176 0176 00306000 * IOBRSTRT=BOF; /* RESTART ADDR MAY BE BAD */ 00307000 NI IOBRSTRT(EWAPTR),B'11111101' 0177 00308000 * ELSE 0178 00309000 * ; /* NULL ELSE */ 00310000 @RF00176 DS 0H 0179 00311000 * END; 0179 00312000 * ELSE /* NOT INT REQ,CONTINUE PRIO */ 00313000 *BUSOUT: /* TEST FOR BUS OUT */ 00314000 * IF IOBS0B2=ON /* BUS OUT CHECK */ 00315000 * THEN /* YES,PROCESS BUSOUT */ 00316000 B @RC00160 0180 00317000 @RF00160 DS 0H 0180 00318000 BUSOUT TM IOBS0B2(IOSBPTR),B'00100000' 0180 00319000 BNO @RF00180 0180 00320000 */* */ 00321000 */* BUSOUT SEGMENT- SETS UP ACTION FOR BUSOUT SENSE INDICATION */ 00322000 */* */ 00323000 * 0181 00324000 * DO; 0181 00325000 * IOBOBR=ON; /* LOGOUT NEEDED */ 00326000 OI IOBOBR(IOSBPTR),B'00000001' 0182 00327000 * IF IOBBOC=ON /* COMMAND BEEN RETRIED */ 00328000 * THEN /* YES,INDICATE MSG, PERM ERR */ 00329000 TM IOBBOC(EWAPTR),B'00100000' 0183 00330000 BNO @RF00183 0183 00331000 * IOBPMS=ON; /* PERM ERR MSG */ 00332000 OI IOBPMS(IOSBPTR),B'00000100' 0184 00333000 * ELSE /* NO,NOT RETRIED */ 00334000 * IOBBOC=ON; /* RETRY COMMAND */ 00335000 B @RC00183 0185 00336000 @RF00183 OI IOBBOC(EWAPTR),B'00100000' 0185 00337000 * END; 0186 00338000 * ELSE /* NO,CONTINUE PRIORITY CHECK */ 00339000 *CMDRINVF: /* COMMD REJ OR INV FORMAT */ 00340000 * IF IOBS0B0=ON| /* COMMAND REJECT */ 00341000 * IOBS1B2=ON /* INVALID FORMAT */ 00342000 * THEN /* YES,PROCESS */ 00343000 B @RC00180 0187 00344000 @RF00180 DS 0H 0187 00345000 CMDRINVF TM IOBS0B0(IOSBPTR),B'10000000' 0187 00346000 BO @RT00187 0187 00347000 TM IOBS1B2(IOSBPTR),B'00100000' 0187 00348000 BNO @RF00187 0187 00349000 @RT00187 DS 0H 0188 00350000 * IOBPMS=ON; /* PERM ERR MSG */ 00351000 OI IOBPMS(IOSBPTR),B'00000100' 0188 00352000 * ELSE /* UNIT CHK AND NO SENSE */ 00353000 * DO; /* */ 00354000 B @RC00187 0189 00355000 @RF00187 DS 0H 0190 00356000 * IOBPMS=ON; /* OERM ERR MSG */ 00357000 * IOBOBR=ON; /* IND LOGOUT NEEDED */ 00358000 OI IOBPMS(IOSBPTR),B'00000101' 0191 00359000 * END; /* */ 00360000 * END; /* END OF SENSE PRIORITY */ 00361000 @RC00187 DS 0H 0193 00362000 @RC00180 DS 0H 0193 00363000 @RC00160 DS 0H 0193 00364000 @RC00153 DS 0H 0193 00365000 @RC00144 DS 0H 0193 00366000 @RC00137 DS 0H 0193 00367000 @RC00121 DS 0H 0194 00368000 * 0194 00369000 */* */ 00370000 */* EXITCODE SEGMENT- */ 00371000 */* ONE OF THE FOLLOWING EXITS MAY BE TAKEN */ 00372000 */* A) WTO MODULE FOR MSG AND POSSIBLE LOGOUT */ 00373000 */* B) OBR MODULE FOR LOGOUT AND POSSIBLE RETRY */ 00374000 */* C) IOS FOR RETRY OR ERROR CORRECTED */ 00375000 */* */ 00376000 */* SDROBRCK SEGMENT- UPDATES SDR COUNTER WHEN INDICATED AND SETS UP */ 00377000 */* OBR LOGOUT RECORD WHEN INDICATED */ 00378000 * 0194 00379000 * EWADDISP=ADDR(EWCOBR); /* POINTER TO OBR INFO Y02870 */ 00380000 @RC00109 LA @15,EWCOBR(,EWAPTR) 0194 00381000 STCM @15,7,EWADDISP(EWAPTR) 0194 00382000 * EWADCNT='08'X; /* OBR COUNT IS 8 BYTES Y02870 */ 00383000 MVI EWADCNT(EWAPTR),X'08' 0195 00384000 * IF SDRINDEX^=ZERO| /* SDR TO BE UPDATED */ 00385000 * IOBOBR=ON /* OR LOGOUT REQ */ 00386000 * THEN /* YES,LOCATE AND UPDATE CTR */ 00387000 CLI SDRINDEX(EWAPTR),0 0196 00388000 BNE @RT00196 0196 00389000 TM IOBOBR(IOSBPTR),B'00000001' 0196 00390000 BNO @RF00196 0196 00391000 @RT00196 DS 0H 0197 00392000 * DO; 0197 00393000 * 0197 00394000 */* LOCATE THE SDR TABLE */ 00395000 * 0198 00396000 * STTPTR=CVTSTB; /* GET POINTER STATISTIC TAB */ 00397000 L @15,CVTPTR 0198 00398000 L STTPTR,CVTSTB(,@15) 0198 00399000 * WK2PTR=STTPTR; /* USE REG AS INDEX THRU TAB */ 00400000 LR WK2PTR,STTPTR 0199 00401000 * WK1PTR=UCBSTI; /* GET STAT TABLE INDEX */ 00402000 L @15,UCBEXTPT(,UCBPTR) 0200 00403000 SLR WK1PTR,WK1PTR 0200 00404000 IC WK1PTR,UCBSTI(,@15) 0200 00405000 * DO WHILE(IOSUCB>STUCBPTR)& /* CORCT SECT OF TABL @Z30AE83*/ 00406000 * (WK2PTR^=SDREND); /* IS IT TABLE END @Z30AE83*/ 00407000 B @DE00201 0201 00408000 @DL00201 DS 0H 0202 00409000 * WK1PTR=WK1PTR+STIND; /* INCR INDEX + 256 */ 00410000 AL WK1PTR,@CF00063 0202 00411000 * WK2PTR=WK2PTR+CTENLEN; /* INCR ENTRY + 2 */ 00412000 AL WK2PTR,@CF00065 0203 00413000 * END; 0204 00414000 @DE00201 LH @15,STUCBPTR(,WK2PTR) 0204 00415000 N @15,@CF01566 0204 00416000 C @15,IOSUCB(,IOSBPTR) 0204 00417000 BNL @DC00201 0204 00418000 C WK2PTR,@CF00086 0204 00419000 BNE @DL00201 0204 00420000 @DC00201 DS 0H 0205 00421000 * IF WK2PTR^=SDREND /* IS UCBPTR IN TABLE? @Z30AE83*/ 00422000 * THEN /* IF IT IS @Z30AE83*/ 00423000 C WK2PTR,@CF00086 0205 00424000 BE @RF00205 0205 00425000 * DO; /* UPDATE SDR INFO @Z30AE83*/ 00426000 * WK1PTR=WK1PTR*STENLEN; /* MULT INDEX BY ENTRY LEN 10 */ 00427000 LR @15,WK1PTR 0207 00428000 MH @15,@CH00067 0207 00429000 LR WK1PTR,@15 0207 00430000 * STTPTR=STTPTR+WK1PTR; /* LOCATE DEVICES ENTRY */ 00431000 ALR STTPTR,WK1PTR 0208 00432000 * SDRAFLGS=SDR30BTS; /* INIT SDR AREA TO SHOW 30 BYTES*/ 00433000 MVI SDRAFLGS(STTPTR),X'82' 0209 00434000 * EWCOBR=EWCOBR&&EWCOBR; /* ZERO OUT OBR AREA Y02870 */ 00435000 XC EWCOBR(8,EWAPTR),EWCOBR(EWAPTR) 0210 00436000 * EWCFRID=UCBFRIDS; /* MOVE FORMAT RECORD ID YM2514 */ 00437000 MVC EWCFRID(4,EWAPTR),UCBFRIDS(UCBPTR) 0211 00438000 * END; /* @Z30AE83*/ 00439000 * ELSE 0213 00440000 * DO; 0213 00441000 B @RC00205 0213 00442000 @RF00205 DS 0H 0214 00443000 * SDRINDEX=ZERO; /* DONT DO SDR @Z30AE83*/ 00444000 MVI SDRINDEX(EWAPTR),X'00' 0214 00445000 * IOBOBR=BOF; /* DONT DO OBR @Z30AE83*/ 00446000 NI IOBOBR(IOSBPTR),B'11111110' 0215 00447000 * END; 0216 00448000 * IF SDRINDEX^=ZERO /* SDR CTR TO BE UPDATED */ 00449000 * THEN /* YES, DO UPDATE */ 00450000 @RC00205 CLI SDRINDEX(EWAPTR),0 0217 00451000 BE @RF00217 0217 00452000 * DO; /* UPDATE CTR */ 00453000 * WK1PTR=SDRINDEX//TWO; /* IS INDEX ODD */ 00454000 SLR @10,@10 0219 00455000 IC @10,SDRINDEX(,EWAPTR) 0219 00456000 SRDA @10,32 0219 00457000 D @10,@CF00065 0219 00458000 LR WK1PTR,@10 0219 00459000 * WK2PTR=SDRINDEX/TWO+WK1PTR;/* CONVERT INDEX TO TABLE 0220 00460000 * INDEX */ 00461000 SLR WK2PTR,WK2PTR 0220 00462000 IC WK2PTR,SDRINDEX(,EWAPTR) 0220 00463000 SRL WK2PTR,1 0220 00464000 ALR WK2PTR,WK1PTR 0220 00465000 * IF WK1PTR=ZERO /* RIGHT SIDE OF BYTE */ 00466000 * THEN /* YES, UPDATE COUNTER */ 00467000 LTR WK1PTR,WK1PTR 0221 00468000 BNZ @RF00221 0221 00469000 * DO; 0222 00470000 * STATELEM(WK2PTR)=STATELEM(WK2PTR)+INCR1;/* INCR CTR */ 00471000 LA @15,1 0223 00472000 SLR @12,@12 0223 00473000 IC @12,STATELEM-1(WK2PTR,STTPTR) 0223 00474000 ALR @15,@12 0223 00475000 STC @15,STATELEM-1(WK2PTR,STTPTR) 0223 00476000 * IF(STATELEM(WK2PTR)&CTRMASK)>=FIFTN/* COUNTER 0224 00477000 * OVERFLOW */ 00478000 * THEN /* YES, */ 00479000 LA @15,15 0224 00480000 SLR @12,@12 0224 00481000 IC @12,STATELEM-1(WK2PTR,STTPTR) 0224 00482000 NR @15,@12 0224 00483000 C @15,@CF00062 0224 00484000 BL @RF00224 0224 00485000 * IOBOBR=ON; /* IND OBR NEEDED */ 00486000 OI IOBOBR(IOSBPTR),B'00000001' 0225 00487000 * ELSE 0226 00488000 * ; 0226 00489000 @RF00224 DS 0H 0227 00490000 * END; 0227 00491000 * ELSE /* MUST BE LEFT SIDE OF BYTE */ 00492000 * DO; 0228 00493000 B @RC00221 0228 00494000 @RF00221 DS 0H 0229 00495000 * STATELEM(WK2PTR)=STATELEM(WK2PTR)+INCR16;/* INCR CTR */ 00496000 LA @15,16 0229 00497000 SLR @12,@12 0229 00498000 IC @12,STATELEM-1(WK2PTR,STTPTR) 0229 00499000 ALR @15,@12 0229 00500000 STC @15,STATELEM-1(WK2PTR,STTPTR) 0229 00501000 * IF STATELEM(WK2PTR)>=TFORTY/* COUNTER OVERFLOW */ 00502000 * THEN /* YES, */ 00503000 SLR @15,@15 0230 00504000 IC @15,STATELEM-1(WK2PTR,STTPTR) 0230 00505000 C @15,@CF00126 0230 00506000 BL @RF00230 0230 00507000 * IOBOBR=ON; /* IND OBR NEEDED */ 00508000 OI IOBOBR(IOSBPTR),B'00000001' 0231 00509000 * ELSE 0232 00510000 * ; 0232 00511000 @RF00230 DS 0H 0233 00512000 * END; 0233 00513000 * END; 0234 00514000 @RC00221 DS 0H 0235 00515000 * IF IOBOBR=ON& /* LOGOUT OUT NEEDED */ 00516000 * IOSCOD^=INTRCPT& /* INTERCEPT Y02870 */ 00517000 * SDRINDEX=ZERO /* NOT AN SDR UPDATE */ 00518000 * THEN /* VALID ADDRESS, YES */ 00519000 @RF00217 TM IOBOBR(IOSBPTR),B'00000001' 0235 00520000 BNO @RF00235 0235 00521000 CLI IOSCOD(IOSBPTR),X'7E' 0235 00522000 BE @RF00235 0235 00523000 CLI SDRINDEX(EWAPTR),0 0235 00524000 BNE @RF00235 0235 00525000 * DO; /* FIND DEV DEPEN DATA */ 00526000 * UCBSHOB3=UCBSHOB3&&UCBSHOB3;/* ZERO OUT UCB EXTENSION */ 00527000 XC UCBSHOB3(3,EWAPTR),UCBSHOB3(EWAPTR) 0237 00528000 * IF COMMAND=LFORMAT| /* LOAD FORMAT COMMAND OR Y02870 */ 00529000 * COMMAND=SCAN| /* SCAN COMMAND OR Y02870 */ 00530000 * COMMAND=LLMFORM| /* LD LIN MK COMMAND OR Y02870 */ 00531000 * COMMAND=LPMFORM| /* LD PAGE MK COMMAND OR Y02870 */ 00532000 * COMMAND=EJECT /* EJECT COMMAND Y02870 */ 00533000 * THEN /* YES, SET UP DATA BYTES Y02870 */ 00534000 CLI COMMAND(CCWREG),X'53' 0238 00535000 BE @RT00238 0238 00536000 CLI COMMAND(CCWREG),X'73' 0238 00537000 BE @RT00238 0238 00538000 CLI COMMAND(CCWREG),X'51' 0238 00539000 BE @RT00238 0238 00540000 CLI COMMAND(CCWREG),X'55' 0238 00541000 BE @RT00238 0238 00542000 CLI COMMAND(CCWREG),X'63' 0238 00543000 BNE @RF00238 0238 00544000 @RT00238 DS 0H 0239 00545000 */* Y02870 */ 00546000 */* OBRDATA SEGMENT- DATA IS MOVED FROM DATA AREA TO UCB EXT Y02870 */ 00547000 */* EACH REAL DATA ADDR IN CCW IS TRANSLATED TO VIRTUAL ADDR Y02870 */ 00548000 */* BEFORE DATA IS MOVED Y02870 */ 00549000 */* Y02870 */ 00550000 * 0239 00551000 * DO; /* MOVE OBR INFORMATION Y02870 */ 00552000 * EWCSAVE=IOSBPTR; /* SAVE IOSB PTR Y02870 */ 00553000 ST IOSBPTR,EWCSAVE(,EWAPTR) 0240 00554000 * IOSBPTR=DATADDR+ONE;/* SET UP REAL ADDR Y02870 */ 00555000 LA IOSBPTR,1 0241 00556000 L @15,DATADDR-1(,CCWREG) 0241 00557000 LA @15,0(,@15) 0241 00558000 ALR IOSBPTR,@15 0241 00559000 * CALL TRNRTN; /* CALL IOS TRANSLATE RTN Y02870 */ 00560000 L @12,CVTPTR 0242 00561000 L @15,CVTPTRV(,@12) 0242 00562000 BALR @14,@15 0242 00563000 * IOSBPTR=IOSBPTR-ONE;/* ADJUST VIRTUAL ADDR Y02870 */ 00564000 BCTR IOSBPTR,0 0243 00565000 * WK1PTR=IOSBPTR; /* SAVE IDA LIST POINTER Y02870 */ 00566000 LR WK1PTR,IOSBPTR 0244 00567000 * WK2PTR=IOSBPTR; /* SAVE OBRDATA ADDRESS YM2514 */ 00568000 LR WK2PTR,IOSBPTR 0245 00569000 * IOSBPTR=EWCSAVE; /* RESTORE IOSB PTR Y02870 */ 00570000 L IOSBPTR,EWCSAVE(,EWAPTR) 0246 00571000 * IF IDA=ON /* INDIRECT ADDR SPECIFIED Y02870*/ 00572000 * THEN /* YES,TRANSLATE IDA LIST Y02870 */ 00573000 TM IDA(CCWREG),B'00000100' 0247 00574000 BNO @RF00247 0247 00575000 * DO WKPTR=1 TO 2; /* TRANSLATE EACH ADDR Y02870 */ 00576000 LA WKPTR,1 0248 00577000 @DL00248 DS 0H 0249 00578000 * IOSBPTR=IDALIST(WRPTR)+ONE;/* ADJUST REAL 0249 00579000 * ADDRY02870 */ 00580000 L @15,WRPTR 0249 00581000 SLA @15,2 0249 00582000 LA IOSBPTR,1 0249 00583000 AL @15,@CF01567 0249 00584000 AL IOSBPTR,IDALIST(@15,WK1PTR) 0249 00585000 * CALL TRNRTN; /* CALL IOS TRANSLATE RTN Y02870 */ 00586000 L @12,CVTPTR 0250 00587000 L @15,CVTPTRV(,@12) 0250 00588000 BALR @14,@15 0250 00589000 * WK2PTR=IOSBPTR-ONE;/* ADJUST VTL ADDR Y02870 */ 00590000 LR WK2PTR,IOSBPTR 0251 00591000 BCTR WK2PTR,0 0251 00592000 * IF WKPTR=1 /* FIRST ADDR IN LIST Y02870 */ 00593000 * THEN /* YES COMPUTE LENGTH Y02870 */ 00594000 C WKPTR,@CF00047 0252 00595000 BNE @RF00252 0252 00596000 * DO; /* Y02870 */ 00597000 * DATALNG=ABS(WK2PTR//4096-4096);/* Y02870 */ 00598000 LR @10,WK2PTR 0254 00599000 SRDA @10,32 0254 00600000 D @10,@CF01546 0254 00601000 SL @10,@CF01546 0254 00602000 LPR @10,@10 0254 00603000 STH @10,DATALNG(,EWAPTR) 0254 00604000 * UCBSHOB3=OBRDATA(1:DATALNG);/* MOVE OBR 0255 00605000 * INFOY02870 */ 00606000 MVI UCBSHOB3+1(EWAPTR),C' ' 0255 00607000 MVI UCBSHOB3+2(EWAPTR),C' ' 0255 00608000 LH @15,DATALNG(,EWAPTR) 0255 00609000 BCTR @15,0 0255 00610000 EX @15,@SM01568 0255 00611000 * END; /* Y02870 */ 00612000 * ELSE /* Y02870 */ 00613000 * UCBSHOB3(DATALNG+1:3)=OBRDATA(1:3-DATALNG); 0257 00614000 B @RC00252 0257 00615000 @RF00252 LH @15,DATALNG(,EWAPTR) 0257 00616000 ALR @15,EWAPTR 0257 00617000 LA @12,2 0257 00618000 SH @12,DATALNG(,EWAPTR) 0257 00619000 EX @12,@SM01570 0257 00620000 * END; /* Y02870 */ 00621000 @RC00252 AL WKPTR,@CF00047 0258 00622000 C WKPTR,@CF00065 0258 00623000 BNH @DL00248 0258 00624000 * ELSE /* Y02870 */ 00625000 * UCBSHOB3=OBRDATA(1:3);/* MOVE OBR INFOY02870 */ 00626000 B @RC00247 0259 00627000 @RF00247 MVC UCBSHOB3(3,EWAPTR),OBRDATA(WK2PTR) 0259 00628000 * IF COMMAND=LFORMAT /* LOAD FORMAT COMMAND */ 00629000 * THEN /* YES, SETUP 3-BYTES */ 00630000 @RC00247 CLI COMMAND(CCWREG),X'53' 0260 00631000 BNE @RF00260 0260 00632000 * EWCDATA3=UCBSHOB3;/* DEVICE DEPENDENT DATA Y02870 */ 00633000 MVC EWCDATA3(3,EWAPTR),UCBSHOB3(EWAPTR) 0261 00634000 * ELSE 0262 00635000 * ; /* NULL ELSE */ 00636000 @RF00260 DS 0H 0263 00637000 * IF COMMAND=SCAN| /* SCAN COMMAND OR */ 00638000 * COMMAND=LLMFORM /* LD LIN MK FORMAT COMMAND */ 00639000 * THEN /* YES, SETUP 2-BYTES */ 00640000 CLI COMMAND(CCWREG),X'73' 0263 00641000 BE @RT00263 0263 00642000 CLI COMMAND(CCWREG),X'51' 0263 00643000 BNE @RF00263 0263 00644000 @RT00263 DS 0H 0264 00645000 * EWCDATA2=UCBSHOB2;/* DEVICE DEPENDENT DATA Y02870 */ 00646000 MVC EWCDATA2(2,EWAPTR),UCBSHOB2(EWAPTR) 0264 00647000 * ELSE 0265 00648000 * ; /* NULL ELSE */ 00649000 @RF00263 DS 0H 0266 00650000 * IF COMMAND=LPMFORM| /* LD PG MK FORMAT COMMAND OR */ 00651000 * COMMAND=EJECT /* EJECT COMMAND */ 00652000 * THEN /* YES, SETUP 1-BYTE */ 00653000 CLI COMMAND(CCWREG),X'55' 0266 00654000 BE @RT00266 0266 00655000 CLI COMMAND(CCWREG),X'63' 0266 00656000 BNE @RF00266 0266 00657000 @RT00266 DS 0H 0267 00658000 * EWCDATA1=UCBSHOB1;/* DEVICE DEPENDENT DATA Y02870 */ 00659000 MVC EWCDATA1(1,EWAPTR),UCBSHOB1(EWAPTR) 0267 00660000 * ELSE 0268 00661000 * ; /* NULL ELSE */ 00662000 @RF00266 DS 0H 0269 00663000 * END; /* Y02870 */ 00664000 * ELSE 0270 00665000 * ; /* NULL ELSE Y02870 */ 00666000 @RF00238 DS 0H 0271 00667000 * END; 0271 00668000 * ELSE 0272 00669000 * ; /* NULL ELSE */ 00670000 @RF00235 DS 0H 0273 00671000 * END; 0273 00672000 * ELSE 0274 00673000 * ; /* NULL ELSE */ 00674000 @RF00196 DS 0H 0275 00675000 *EXITHERE: /* CODE TO TAKE RIGHT EXIT */ 00676000 * IF IOBPMS=ON /* PERMANENT ERROR YM2514 */ 00677000 * THEN /* YM2514 */ 00678000 EXITHERE TM IOBPMS(IOSBPTR),B'00000100' 0275 00679000 BNO @RF00275 0275 00680000 * IOSERR=BOF; /* ERP NO LONGER IN CONTROL 0276 00681000 * YM2514 */ 00682000 NI IOSERR(IOSBPTR),B'11011111' 0276 00683000 * ELSE 0277 00684000 * ; /* NULL ELSE YM2514 */ 00685000 @RF00275 DS 0H 0278 00686000 * IF IOBPMS=ON| /* WTO ROUTINE NEEDED */ 00687000 * IOBIRM=ON /* */ 00688000 * THEN /* YES, */ 00689000 TM IOBPMS(IOSBPTR),B'00000100' 0278 00690000 BO @RT00278 0278 00691000 TM IOBIRM(EWAPTR),B'00001000' 0278 00692000 BNO @RF00278 0278 00693000 @RT00278 DS 0H 0279 00694000 * DO; /* */ 00695000 * XCTLPR=WTORTN; /* LOAD RTN NUMBER FOR XCTL */ 00696000 LA XCTLPR,253 0280 00697000 * XCTLRG=CVTXTLER; /* LOAD XCTL ADDR FOR XCTL */ 00698000 L @12,CVTPTR 0281 00699000 L XCTLRG,CVTXTLER(,@12) 0281 00700000 * GO TO XCTL; /* BRANCH TO XCTL ROUTINE */ 00701000 L @15,CVTPTR 0282 00702000 L @15,CVTXTLER(,@15) 0282 00703000 BR @15 0282 00704000 * END; /* */ 00705000 * ELSE 0284 00706000 * ; /* NULL ELSE */ 00707000 @RF00278 DS 0H 0285 00708000 * IF IOBOBR=ON /* NO MSG BUT OBR */ 00709000 * THEN /* YES, */ 00710000 TM IOBOBR(IOSBPTR),B'00000001' 0285 00711000 BNO @RF00285 0285 00712000 * DO; 0286 00713000 * XCTLPR=LOGOBR; /* LD OBR RTN NO FOR XCTL */ 00714000 LA XCTLPR,256 0287 00715000 * XCTLRG=CVTXTLER; /* LOAD XCTL ADDR FOR XCTL */ 00716000 L @12,CVTPTR 0288 00717000 L XCTLRG,CVTXTLER(,@12) 0288 00718000 * GO TO XCTL; /* BRANCH TO XCTL ROUTINE */ 00719000 L @15,CVTPTR 0289 00720000 L @15,CVTXTLER(,@15) 0289 00721000 BR @15 0289 00722000 * END; 0290 00723000 * ELSE 0291 00724000 * ; /* NULL ELSE */ 00725000 @RF00285 DS 0H 0292 00726000 * GENERATE; 0292 00727000 ERREXCP EQU 15 ERROR EXCP 00728000 RETURN EQU 3 RETURN 00729000 SVC ERREXCP ERROR EXCP 00730000 SVC RETURN RETURN 00731000 * END ER3886B 0293 00732000 * 0293 00733000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00734000 */*%INCLUDE SYSUT5 (TOPSEGMT) */ 00735000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 00736000 */*%INCLUDE SYSUT5 (DECLARES) */ 00737000 */*%INCLUDE SYSUT5 (DCLREG ) */ 00738000 */*%INCLUDE SYSUT5 (DCLCONST) */ 00739000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00740000 */*%INCLUDE SYSLIB (CVT ) */ 00741000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00742000 */*%INCLUDE SYSLIB (EWAMAP ) */ 00743000 */*%INCLUDE SYSUT5 (IOBUCBOL) */ 00744000 */*%INCLUDE SYSUT5 (UNITCHCK) */ 00745000 */*%INCLUDE SYSUT5 (UNITCHK2) */ 00746000 */*%INCLUDE SYSUT5 (EQUIPCHK) */ 00747000 */*%INCLUDE SYSUT5 (INCPLSCN) */ 00748000 */*%INCLUDE SYSUT5 (INTREQ ) */ 00749000 */*%INCLUDE SYSUT5 (BUSOUT ) */ 00750000 */*%INCLUDE SYSUT5 (EXITCODE) */ 00751000 */*%INCLUDE SYSUT5 (SDROBRCK) */ 00752000 */*%INCLUDE SYSUT5 (OBRDATA ) */ 00753000 * 0293 00754000 * ; 0293 00755000 @EL00001 DS 0H 0293 00756000 @EF00001 DS 0H 0293 00757000 @ER00001 BR @14 0293 00758000 @DATA DS 0H 00759000 @CH00067 DC H'10' 00760000 @SM01568 MVC UCBSHOB3(0,EWAPTR),OBRDATA(WK2PTR) 00761000 @SM01570 MVC UCBSHOB3(0,@15),OBRDATA(WK2PTR) 00762000 DS 0F 00763000 DS 0F 00764000 @CF00047 DC F'1' 00765000 @CF00065 DC F'2' 00766000 @CF00052 DC F'8' 00767000 @CF00062 DC F'15' 00768000 @CF00098 DC F'42' 00769000 @CF00102 DC F'51' 00770000 @CF00100 DC F'62' 00771000 @CF00105 DC F'92' 00772000 @CF00126 DC F'240' 00773000 @CF00063 DC F'256' 00774000 @CF01546 DC F'4096' 00775000 @CF01567 DC F'-4' 00776000 @CF01566 DC XL4'0000FFFF' 00777000 @CF00086 DC XL4'FFFF' 00778000 DS 0D 00779000 WRPTR DS F 00780000 MTAREA DS CL100 00781000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00782000 @01 EQU 01 00783000 @02 EQU 02 00784000 @03 EQU 03 00785000 @04 EQU 04 00786000 @05 EQU 05 00787000 @06 EQU 06 00788000 @07 EQU 07 00789000 @08 EQU 08 00790000 @09 EQU 09 00791000 @10 EQU 10 00792000 @11 EQU 11 00793000 @12 EQU 12 00794000 @13 EQU 13 00795000 @14 EQU 14 00796000 @15 EQU 15 00797000 IOSBPTR EQU @01 00798000 WK1PTR EQU @02 00799000 STTPTR EQU @03 00800000 WK2PTR EQU @04 00801000 CCWREG EQU @05 00802000 UCBPTR EQU @07 00803000 EWAPTR EQU @08 00804000 WKPTR EQU @09 00805000 XCTLPR EQU @13 00806000 XCTLRG EQU @14 00807000 BASREG EQU @06 00808000 CVTPTR EQU 16 00809000 UCB EQU 0 00810000 UCBOB EQU 0 00811000 UCBJBNR EQU UCBOB 00812000 UCBFL5 EQU UCBOB+1 00813000 UCBAF EQU UCBFL5 00814000 UCBSTAT EQU UCBOB+3 00815000 UCBCHAN EQU UCBOB+4 00816000 UCBSFLS EQU UCBOB+6 00817000 UCBFLA EQU UCBSFLS 00818000 UCBFL1 EQU UCBFLA 00819000 UCBBSY EQU UCBFL1 00820000 UCBNRY EQU UCBFL1 00821000 UCBPST EQU UCBFL1 00822000 UCBCUB EQU UCBFL1 00823000 UCBFLB EQU UCBSFLS+1 00824000 UCBCHM EQU UCBOB+8 00825000 UCBCHM1 EQU UCBCHM 00826000 UCBPTH0 EQU UCBCHM1 00827000 UCBPTH1 EQU UCBCHM1 00828000 UCBWGT EQU UCBOB+12 00829000 UCBTYP EQU UCBOB+16 00830000 UCBTBYT1 EQU UCBTYP 00831000 UCB1FEA5 EQU UCBTBYT1 00832000 UCB1FEA6 EQU UCBTBYT1 00833000 UCBTBYT2 EQU UCBTYP+1 00834000 UCB2OPT2 EQU UCBTBYT2 00835000 UCBDUDN1 EQU UCB2OPT2 00836000 UCB2OPT3 EQU UCBTBYT2 00837000 UCBDUDN2 EQU UCB2OPT3 00838000 UCB2OPT4 EQU UCBTBYT2 00839000 UCBRWTAU EQU UCB2OPT4 00840000 UCB2OPT6 EQU UCBTBYT2 00841000 UCB2OPT7 EQU UCBTBYT2 00842000 UCBTBYT3 EQU UCBTYP+2 00843000 UCBDVCLS EQU UCBTBYT3 00844000 UCBTBYT4 EQU UCBTYP+3 00845000 UCBEXTPT EQU UCBOB+20 00846000 UCBFLC EQU UCBEXTPT 00847000 UCBDEV EQU UCBOB+24 00848000 UCBCMEXT EQU 0 00849000 UCBSTI EQU UCBCMEXT+1 00850000 UCBATI EQU UCBCMEXT+3 00851000 @NM00004 EQU UCBATI 00852000 UCBFLP1 EQU UCBCMEXT+5 00853000 UCBMT EQU 0 00854000 UCBOCR EQU 0 00855000 UCB3540X EQU 0 00856000 UCBUCS EQU 0 00857000 UCBUCSOP EQU UCBUCS+4 00858000 UCBFCBOP EQU UCBUCS+5 00859000 CVTMAP EQU 0 00860000 CVTXTLER EQU CVTMAP+44 00861000 CVTDAR EQU CVTMAP+72 00862000 CVTFLGS1 EQU CVTDAR 00863000 CVTSTB EQU CVTMAP+112 00864000 CVTDCB EQU CVTMAP+116 00865000 CVTIERLC EQU CVTMAP+144 00866000 CVTOPTA EQU CVTMAP+182 00867000 CVTOPTB EQU CVTMAP+183 00868000 CVTGTF EQU CVTMAP+236 00869000 CVTGTFST EQU CVTGTF 00870000 CVTGTFS EQU CVTGTFST 00871000 CVTSTATE EQU CVTGTFST 00872000 CVTTMODE EQU CVTGTFST 00873000 CVTFORM EQU CVTGTFST 00874000 CVTAQAVT EQU CVTMAP+240 00875000 CVTTCMFG EQU CVTAQAVT 00876000 CVTVOLM2 EQU CVTMAP+244 00877000 CVTTATA EQU CVTVOLM2 00878000 CVTTSKS EQU CVTTATA 00879000 CVTVOLF2 EQU CVTTSKS 00880000 CVTTAT EQU CVTTATA+1 00881000 CVTATER EQU CVTMAP+248 00882000 CVTEXT1 EQU CVTMAP+252 00883000 CVTPURG EQU CVTMAP+260 00884000 CVTQMSG EQU CVTMAP+268 00885000 CVTDMSR EQU CVTMAP+272 00886000 CVTPTRV EQU CVTMAP+288 00887000 CVTERPV EQU CVTMAP+316 00888000 CVTINTLA EQU CVTMAP+320 00889000 CVTAPF EQU CVTMAP+324 00890000 CVTEXT2 EQU CVTMAP+328 00891000 CVTHJES EQU CVTMAP+332 00892000 CVTPGSIA EQU CVTMAP+348 00893000 CVTA1F1 EQU CVTMAP+356 00894000 CVTSYSK EQU CVTMAP+357 00895000 CVTVOLM1 EQU CVTMAP+380 00896000 CVTVOLF1 EQU CVTVOLM1 00897000 CVTATMCT EQU CVTMAP+388 00898000 CVTXTNT1 EQU 0 00899000 CVTXTNT2 EQU 0 00900000 CVTDSSV EQU CVTXTNT2 00901000 CVTFLGBT EQU CVTXTNT2+5 00902000 CVTQID EQU CVTXTNT2+24 00903000 CVTRV400 EQU CVTXTNT2+52 00904000 CVTRV409 EQU CVTXTNT2+53 00905000 CVTATCVT EQU CVTXTNT2+64 00906000 CVTRV429 EQU CVTXTNT2+84 00907000 CVTRV438 EQU CVTXTNT2+85 00908000 CVTRV457 EQU CVTXTNT2+112 00909000 CVTRV466 EQU CVTXTNT2+113 00910000 CVTFIX EQU 0 00911000 CVTRELNO EQU CVTFIX+252 00912000 IOSB EQU 0 00913000 IOSFLA EQU IOSB 00914000 IOSACHN EQU IOSFLA 00915000 IOSERR EQU IOSFLA 00916000 IOSEX EQU IOSFLA 00917000 IOSFLB EQU IOSB+1 00918000 IOSFLC EQU IOSB+2 00919000 IOSDVALT EQU IOSFLC 00920000 IOSPKEY EQU IOSB+12 00921000 IOSCOD EQU IOSB+13 00922000 IOSOPT EQU IOSB+14 00923000 IOSOPT2 EQU IOSB+15 00924000 IOSUCB EQU IOSB+16 00925000 @NM00008 EQU IOSB+20 00926000 IOSCC EQU @NM00008 00927000 IOSCSW EQU @NM00008+1 00928000 IOSCSWCA EQU IOSCSW 00929000 IOSTATUS EQU IOSCSW+3 00930000 IOSSNS EQU IOSB+42 00931000 IOSIPIB EQU IOSB+44 00932000 IOSERP EQU IOSB+52 00933000 IOSRST EQU IOSB+72 00934000 IOSPATH EQU IOSB+86 00935000 IOSCHN EQU IOSPATH 00936000 IOSCKEY EQU IOSB+89 00937000 IOSEEKA EQU IOSB+100 00938000 IOSCCHH EQU IOSEEKA+3 00939000 IOSSKHH EQU IOSCCHH+2 00940000 EWA EQU 0 00941000 EWAHDR EQU EWA 00942000 EWAFLAGS EQU EWA+4 00943000 EWAFLG1 EQU EWAFLAGS 00944000 EWASCCD EQU EWAFLG1 00945000 EWASCC3 EQU EWASCCD 00946000 EWAFLG2 EQU EWAFLAGS+1 00947000 EWAFLG3 EQU EWAFLAGS+2 00948000 EWASNSCT EQU EWAFLAGS+3 00949000 EWACNTRS EQU EWA+10 00950000 EWACNTR2 EQU EWACNTRS+1 00951000 EWACNTR3 EQU EWACNTRS+2 00952000 EWAERPIB EQU EWA+16 00953000 EWARGFG1 EQU EWAERPIB+4 00954000 EWARGFG2 EQU EWAERPIB+5 00955000 EWAXCSW1 EQU EWAERPIB+6 00956000 EWAXCSW2 EQU EWAERPIB+7 00957000 EWADCNT EQU EWA+28 00958000 EWADDISP EQU EWA+29 00959000 EWAIERP EQU EWA+32 00960000 STUCBPTR EQU 0 00961000 STATTAB EQU 0 00962000 SDRAFLGS EQU STATTAB 00963000 STATELEM EQU STATTAB+2 00964000 FAILCCW EQU 0 00965000 COMMAND EQU FAILCCW 00966000 DATADDR EQU FAILCCW+1 00967000 CCWFLAG EQU FAILCCW+4 00968000 IDA EQU CCWFLAG 00969000 OBRDATA EQU 0 00970000 IDALIST EQU 0 00971000 XCTL EQU 0 00972000 TRNRTN EQU 0 00973000 UCBBGN EQU 0 00974000 IOSSENS1 EQU IOSSNS+1 00975000 UCBOBS01 EQU UCBDEV 00976000 UCBSTAB EQU UCBOBS01+10 00977000 UCBBSVL EQU UCBSTAB 00978000 UCBPRSRS EQU UCBSTAB 00979000 UCBDMCT EQU UCBOBS01+11 00980000 UCBFL4 EQU UCBOBS01+13 00981000 UCBOBS02 EQU UCBDEV 00982000 UCBTFL1 EQU UCBOBS02+19 00983000 UCBXTN EQU UCBOBS02+20 00984000 UCBVOPT EQU UCBXTN 00985000 UCBOBS03 EQU UCBDEV 00986000 UCBXTADR EQU UCBOBS03 00987000 UCBOBS04 EQU UCBDEV 00988000 UCBBTA EQU UCBOBS04+12 00989000 UCBOBS06 EQU UCBDEV 00990000 UCBAOF EQU UCBOBS06 00991000 UCBAOF1 EQU UCBAOF 00992000 UCBAOF2 EQU UCBAOF+1 00993000 @NM00003 EQU UCBOBS06+3 00994000 UCBIRB EQU UCBOBS06+4 00995000 UCBGRAF EQU UCBIRB 00996000 UCBLDNCA EQU UCBOBS06+8 00997000 UCBRDYQ EQU UCBLDNCA 00998000 UCBIRLN EQU UCBRDYQ 00999000 UCBLDNCB EQU UCBRDYQ+1 01000000 UCBCTLNK EQU UCBOBS06+12 01001000 UCBOBS07 EQU UCBDEV 01002000 UCBOBS08 EQU UCBDEV 01003000 UCBOBS09 EQU UCBDEV 01004000 CVTS01 EQU CVTPGSIA 01005000 CVTLPDIA EQU CVTS01+12 01006000 CVTDIRST EQU CVTLPDIA 01007000 CVTSLIDA EQU CVTS01+24 01008000 CVTCTLFG EQU CVTS01+50 01009000 CVTRV210 EQU CVTS01+424 01010000 CVTRV219 EQU CVTS01+425 01011000 CVTRV228 EQU CVTS01+426 01012000 CVTRV237 EQU CVTS01+427 01013000 CVTMFRTR EQU CVTS01+452 01014000 CVTRV262 EQU CVTS01+468 01015000 CVTRV271 EQU CVTS01+469 01016000 CVTRV280 EQU CVTS01+470 01017000 CVTRV289 EQU CVTS01+471 01018000 CVTGSDA EQU CVTS01+600 01019000 IOSATTSC EQU IOSIPIB 01020000 IOSWTOWA EQU IOSIPIB 01021000 IOSPCISC EQU IOSIPIB 01022000 EWADDIOS EQU EWAIERP 01023000 IOBSENS EQU IOSSNS 01024000 IOBS0B0 EQU IOBSENS 01025000 IOBS0B1 EQU IOBSENS 01026000 IOBS0B2 EQU IOBSENS 01027000 IOBS0B3 EQU IOBSENS 01028000 IOBS0B4 EQU IOBSENS 01029000 IOBS0B5 EQU IOBSENS 01030000 IOBS0B6 EQU IOBSENS 01031000 IOBS0B7 EQU IOBSENS 01032000 IOBS1B0 EQU IOBSENS+1 01033000 IOBS1B1 EQU IOBSENS+1 01034000 IOBS1B2 EQU IOBSENS+1 01035000 IOBS1B3 EQU IOBSENS+1 01036000 IOBS1B4 EQU IOBSENS+1 01037000 IOBS1B5 EQU IOBSENS+1 01038000 IOBS1B6 EQU IOBSENS+1 01039000 IOBS1B7 EQU IOBSENS+1 01040000 IOBDDFLG EQU IOSFLB 01041000 IOBPMS EQU IOBDDFLG 01042000 IOBOBR EQU IOBDDFLG 01043000 IOBCSWXX EQU IOSCSW 01044000 STBYT1 EQU IOBCSWXX+3 01045000 STBYT1B5 EQU STBYT1 01046000 STBYT2 EQU IOBCSWXX+4 01047000 IOBCNT EQU EWACNTR3 01048000 IOBEQC EQU IOBCNT 01049000 IOBBOC EQU IOBCNT 01050000 IOBICS EQU IOBCNT 01051000 SIOC3886 EQU IOSCC 01052000 IOCC3886 EQU SIOC3886 01053000 EWAFLG EQU EWAFLG3 01054000 IOBIRM EQU EWAFLG 01055000 IOBRSTRT EQU EWAFLG 01056000 UCBFRIDS EQU UCBXTADR 01057000 EWC EQU EWAIERP 01058000 SYSBYTES EQU EWC 01059000 EWCSNSB3 EQU SYSBYTES+3 01060000 EWCOBR EQU EWC+8 01061000 EWCFRID EQU EWCOBR 01062000 EWCDATA EQU EWCOBR+4 01063000 EWCSAVE EQU EWC+16 01064000 DATALNG EQU EWC+20 01065000 EWCWORK EQU EWC+22 01066000 UCBSHOB3 EQU EWCWORK 01067000 UCBSHOB2 EQU UCBSHOB3 01068000 UCBSHOB1 EQU UCBSHOB3 01069000 EWCSNS3 EQU EWCSNSB3 01070000 SDRINDEX EQU EWACNTR2 01071000 EWCDATA3 EQU EWCDATA 01072000 EWCDATA2 EQU EWCDATA 01073000 EWCDATA1 EQU EWCDATA 01074000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01075000 @NM00042 EQU SYSBYTES+4 01076000 @NM00041 EQU SYSBYTES 01077000 @NM00040 EQU EWAFLG 01078000 @NM00039 EQU EWAFLG 01079000 @NM00038 EQU EWAFLG 01080000 @NM00037 EQU SIOC3886 01081000 @NM00036 EQU SIOC3886 01082000 @NM00035 EQU IOBCNT 01083000 @NM00034 EQU IOBCNT 01084000 STBYT2B7 EQU STBYT2 01085000 STBYT2B6 EQU STBYT2 01086000 STBYT2B5 EQU STBYT2 01087000 STBYT2B4 EQU STBYT2 01088000 STBYT2B3 EQU STBYT2 01089000 STBYT2B2 EQU STBYT2 01090000 STBYT2B1 EQU STBYT2 01091000 @NM00033 EQU STBYT2 01092000 STBYT1B7 EQU STBYT1 01093000 STBYT1B6 EQU STBYT1 01094000 @NM00032 EQU STBYT1 01095000 @NM00031 EQU STBYT1 01096000 STBYT1B2 EQU STBYT1 01097000 STBYT1B1 EQU STBYT1 01098000 STBYT1B0 EQU STBYT1 01099000 CMDADR EQU IOBCSWXX 01100000 @NM00030 EQU IOBDDFLG 01101000 @NM00029 EQU IOBDDFLG 01102000 @NM00028 EQU IOBDDFLG 01103000 EWAEND EQU EWADDIOS+71 01104000 EWASCSW EQU EWADDIOS+64 01105000 EWASNS EQU EWADDIOS 01106000 IOSPCIWA EQU IOSPCISC+44 01107000 IOSPCIRS EQU IOSPCISC+8 01108000 @NM00013 EQU IOSPCISC+4 01109000 @NM00012 EQU IOSPCISC 01110000 IOSWRNDR EQU IOSWTOWA+4 01111000 IOSWTOPT EQU IOSWTOWA+3 01112000 IOSWTOCP EQU IOSWTOWA+2 01113000 IOSWTOCH EQU IOSWTOWA 01114000 IOSATTWA EQU IOSATTSC+40 01115000 @NM00011 EQU IOSATTSC+24 01116000 IOSATTSN EQU IOSATTSC 01117000 CVTRV628 EQU CVTS01+728 01118000 CVTRV627 EQU CVTS01+724 01119000 CVTRV626 EQU CVTS01+720 01120000 CVTRV625 EQU CVTS01+716 01121000 CVTRV624 EQU CVTS01+712 01122000 CVTRV623 EQU CVTS01+708 01123000 CVTRV622 EQU CVTS01+704 01124000 CVTRV621 EQU CVTS01+700 01125000 CVTRV620 EQU CVTS01+696 01126000 CVTRV619 EQU CVTS01+692 01127000 CVTRV618 EQU CVTS01+688 01128000 CVTRV617 EQU CVTS01+684 01129000 CVTRV616 EQU CVTS01+680 01130000 CVTRV615 EQU CVTS01+676 01131000 CVTRV614 EQU CVTS01+672 01132000 CVTRV613 EQU CVTS01+668 01133000 CVTRV612 EQU CVTS01+664 01134000 CVTRV611 EQU CVTS01+660 01135000 CVTRV610 EQU CVTS01+656 01136000 CVTRV609 EQU CVTS01+652 01137000 CVTRV608 EQU CVTS01+648 01138000 CVTRV607 EQU CVTS01+644 01139000 CVTRV606 EQU CVTS01+640 01140000 CVTRV605 EQU CVTS01+636 01141000 CVTRV604 EQU CVTS01+632 01142000 CVTRV603 EQU CVTS01+628 01143000 CVTRV602 EQU CVTS01+624 01144000 CVTSSCR EQU CVTS01+620 01145000 CVTEVENT EQU CVTS01+616 01146000 CVTRV629 EQU CVTS01+612 01147000 CVTTPIO EQU CVTS01+608 01148000 CVTADV EQU CVTS01+604 01149000 CVTGSDAB EQU CVTGSDA 01150000 CVTQV3 EQU CVTS01+596 01151000 CVTQV2 EQU CVTS01+592 01152000 CVTQV1 EQU CVTS01+588 01153000 CVTRPT EQU CVTS01+584 01154000 CVTSSRB EQU CVTS01+580 01155000 CVTCSDRL EQU CVTS01+576 01156000 CVTEXP1 EQU CVTS01+572 01157000 CVTRMPMT EQU CVTS01+568 01158000 CVTRMPTT EQU CVTS01+564 01159000 CVTVPSA EQU CVTS01+560 01160000 CVTVSTOP EQU CVTS01+556 01161000 CVTGTFR8 EQU CVTS01+552 01162000 CVTQUIT EQU CVTS01+548 01163000 CVTVACR EQU CVTS01+544 01164000 CVTWTCB EQU CVTS01+540 01165000 CVTSTPRS EQU CVTS01+536 01166000 CVT0PT02 EQU CVTS01+532 01167000 CVTDARCM EQU CVTS01+528 01168000 CVTIRECM EQU CVTS01+524 01169000 CVTJRECM EQU CVTS01+520 01170000 CVTVEMS0 EQU CVTS01+516 01171000 CVTSPFRR EQU CVTS01+512 01172000 CVTRLSTG EQU CVTS01+508 01173000 CVT0TC0A EQU CVTS01+504 01174000 CVTGMBR EQU CVTS01+500 01175000 CVTLFRM EQU CVTS01+496 01176000 CVTRMBR EQU CVTS01+492 01177000 CVTVIOP EQU CVTS01+488 01178000 CVTRV307 EQU CVTS01+486 01179000 CVTRV306 EQU CVTS01+484 01180000 CVTRV305 EQU CVTS01+482 01181000 CVTRV304 EQU CVTS01+480 01182000 CVTRV303 EQU CVTS01+478 01183000 CVTRV302 EQU CVTS01+476 01184000 CVTRV301 EQU CVTS01+475 01185000 CVTRV300 EQU CVTS01+474 01186000 CVTRV299 EQU CVTS01+473 01187000 CVTRV298 EQU CVTS01+472 01188000 CVTRV297 EQU CVTRV289 01189000 CVTRV296 EQU CVTRV289 01190000 CVTRV295 EQU CVTRV289 01191000 CVTRV294 EQU CVTRV289 01192000 CVTRV293 EQU CVTRV289 01193000 CVTRV292 EQU CVTRV289 01194000 CVTRV291 EQU CVTRV289 01195000 CVTRV290 EQU CVTRV289 01196000 CVTRV288 EQU CVTRV280 01197000 CVTRV287 EQU CVTRV280 01198000 CVTRV286 EQU CVTRV280 01199000 CVTRV285 EQU CVTRV280 01200000 CVTRV284 EQU CVTRV280 01201000 CVTRV283 EQU CVTRV280 01202000 CVTRV282 EQU CVTRV280 01203000 CVTRV281 EQU CVTRV280 01204000 CVTRV279 EQU CVTRV271 01205000 CVTRV278 EQU CVTRV271 01206000 CVTRV277 EQU CVTRV271 01207000 CVTRV276 EQU CVTRV271 01208000 CVTRV275 EQU CVTRV271 01209000 CVTRV274 EQU CVTRV271 01210000 CVTRV273 EQU CVTRV271 01211000 CVTRV272 EQU CVTRV271 01212000 CVTRV270 EQU CVTRV262 01213000 CVTRV269 EQU CVTRV262 01214000 CVTRV268 EQU CVTRV262 01215000 CVTRV267 EQU CVTRV262 01216000 CVTRV266 EQU CVTRV262 01217000 CVTRV265 EQU CVTRV262 01218000 CVTRV264 EQU CVTRV262 01219000 CVTRV263 EQU CVTRV262 01220000 CVTVFP EQU CVTS01+464 01221000 CVTVSI EQU CVTS01+460 01222000 CVTVPSIB EQU CVTS01+456 01223000 CVTMFACT EQU CVTMFRTR 01224000 CVTMFCTL EQU CVTS01+448 01225000 CVTPVBP EQU CVTS01+444 01226000 CVTPWI EQU CVTS01+440 01227000 CVTRV254 EQU CVTS01+438 01228000 CVTRV253 EQU CVTS01+436 01229000 CVTRV252 EQU CVTS01+434 01230000 CVTRV251 EQU CVTS01+433 01231000 CVTRV250 EQU CVTS01+432 01232000 CVTRV249 EQU CVTS01+431 01233000 CVTRV248 EQU CVTS01+430 01234000 CVTRV247 EQU CVTS01+429 01235000 CVTRV246 EQU CVTS01+428 01236000 CVTRV245 EQU CVTRV237 01237000 CVTRV244 EQU CVTRV237 01238000 CVTRV243 EQU CVTRV237 01239000 CVTRV242 EQU CVTRV237 01240000 CVTRV241 EQU CVTRV237 01241000 CVTRV240 EQU CVTRV237 01242000 CVTRV239 EQU CVTRV237 01243000 CVTRV238 EQU CVTRV237 01244000 CVTRV236 EQU CVTRV228 01245000 CVTRV235 EQU CVTRV228 01246000 CVTRV234 EQU CVTRV228 01247000 CVTRV233 EQU CVTRV228 01248000 CVTRV232 EQU CVTRV228 01249000 CVTRV231 EQU CVTRV228 01250000 CVTRV230 EQU CVTRV228 01251000 CVTRV229 EQU CVTRV228 01252000 CVTRV227 EQU CVTRV219 01253000 CVTRV226 EQU CVTRV219 01254000 CVTRV225 EQU CVTRV219 01255000 CVTRV224 EQU CVTRV219 01256000 CVTRV223 EQU CVTRV219 01257000 CVTRV222 EQU CVTRV219 01258000 CVTRV221 EQU CVTRV219 01259000 CVTRV220 EQU CVTRV219 01260000 CVTRV218 EQU CVTRV210 01261000 CVTRV217 EQU CVTRV210 01262000 CVTRV216 EQU CVTRV210 01263000 CVTRV215 EQU CVTRV210 01264000 CVTRV214 EQU CVTRV210 01265000 CVTRV213 EQU CVTRV210 01266000 CVTRV212 EQU CVTRV210 01267000 CVTRV211 EQU CVTRV210 01268000 CVTLCCAT EQU CVTS01+420 01269000 CVTPCCAT EQU CVTS01+416 01270000 CVTIPCRP EQU CVTS01+412 01271000 CVTIPCRI EQU CVTS01+408 01272000 CVTIPCDS EQU CVTS01+404 01273000 CVTAIDVT EQU CVTS01+400 01274000 CVTSSAP EQU CVTS01+396 01275000 CVTEHCIR EQU CVTS01+392 01276000 CVTEHDEF EQU CVTS01+388 01277000 CVTDAIR EQU CVTS01+384 01278000 CVTPERFM EQU CVTS01+380 01279000 CVT044R2 EQU CVTS01+376 01280000 CVTFETCH EQU CVTS01+372 01281000 CVTRSTWD EQU CVTS01+368 01282000 CVTSPOST EQU CVTS01+364 01283000 CVTIOBP EQU CVTS01+360 01284000 CVTASMVT EQU CVTS01+356 01285000 CVTRECRQ EQU CVTS01+352 01286000 CVTWSAC EQU CVTS01+348 01287000 CVTRV149 EQU CVTS01+344 01288000 CVTWSAL EQU CVTS01+340 01289000 CVTSPSA EQU CVTS01+336 01290000 CVTGLMN EQU CVTS01+332 01291000 CVTVEAC0 EQU CVTS01+328 01292000 CVT062R1 EQU CVTS01+324 01293000 CVTRPOST EQU CVTS01+320 01294000 CVTDQIQE EQU CVTS01+316 01295000 CVTCSD EQU CVTS01+312 01296000 CVTLKRMA EQU CVTS01+308 01297000 CVTRSPIE EQU CVTS01+304 01298000 CVTRENQ EQU CVTS01+300 01299000 CVTLQCB EQU CVTS01+296 01300000 CVTFQCB EQU CVTS01+292 01301000 CVTQCS01 EQU CVTS01+288 01302000 CVTAPFT EQU CVTS01+284 01303000 CVTPARRL EQU CVTS01+280 01304000 CVTVWAIT EQU CVTS01+276 01305000 CVTGSPL EQU CVTS01+272 01306000 CVTLSMQ EQU CVTS01+268 01307000 CVTGSMQ EQU CVTS01+264 01308000 CVTEXPRO EQU CVTS01+260 01309000 CVTOPCTP EQU CVTS01+256 01310000 CVTSIC EQU CVTS01+252 01311000 CVTTPIOS EQU CVTS01+248 01312000 CVTRTMS EQU CVTS01+244 01313000 CVTSDBF EQU CVTS01+240 01314000 CVTSCBP EQU CVTS01+236 01315000 CVTSDMP EQU CVTS01+232 01316000 CVTSV60 EQU CVTS01+228 01317000 CVTRTMCT EQU CVTS01+224 01318000 CVTASCBL EQU CVTS01+220 01319000 CVTASCBH EQU CVTS01+216 01320000 CVTGDA EQU CVTS01+212 01321000 CVTASVT EQU CVTS01+208 01322000 CVTVVMDI EQU CVTS01+204 01323000 CVTAQTOP EQU CVTS01+200 01324000 CVTIOSCS EQU CVTS01+196 01325000 CVTSDRM EQU CVTS01+192 01326000 CVTOPTE EQU CVTS01+188 01327000 CVTSTXU EQU CVTS01+184 01328000 CVTQUIS EQU CVTS01+180 01329000 CVTPARS EQU CVTS01+176 01330000 CVTS1EE EQU CVTS01+172 01331000 CVTFRAS EQU CVTS01+168 01332000 CVTQSAS EQU CVTS01+164 01333000 CVTCRAS EQU CVTS01+160 01334000 CVTCRMN EQU CVTS01+156 01335000 CVTDELCP EQU CVTS01+152 01336000 CVTFRECL EQU CVTS01+148 01337000 CVTGETCL EQU CVTS01+144 01338000 CVTBLDCP EQU CVTS01+140 01339000 CVTAUTHL EQU CVTS01+136 01340000 CVTSCAN EQU CVTS01+132 01341000 CVTRV144 EQU CVTS01+130 01342000 CVTMAXMP EQU CVTS01+128 01343000 CVTSTCK EQU CVTS01+124 01344000 CVTRV139 EQU CVTS01+123 01345000 CVTDSSAC EQU CVTS01+122 01346000 CVTRV513 EQU CVTS01+121 01347000 CVTIOSPL EQU CVTS01+120 01348000 CVTPTGT EQU CVTS01+116 01349000 CVTCSPIE EQU CVTS01+112 01350000 CVTSMFEX EQU CVTS01+108 01351000 CVTOLT0A EQU CVTS01+104 01352000 CVTSRBRT EQU CVTS01+100 01353000 CVTPUTL EQU CVTS01+96 01354000 CVTRV519 EQU CVTS01+92 01355000 CVTRV327 EQU CVTS01+88 01356000 CVTRV326 EQU CVTS01+84 01357000 CVTRV325 EQU CVTS01+80 01358000 CVTRV324 EQU CVTS01+76 01359000 CVT0VL01 EQU CVTS01+72 01360000 CVTSHRVM EQU CVTS01+68 01361000 CVTRV332 EQU CVTS01+64 01362000 CVTTAS EQU CVTS01+60 01363000 CVTRSCN EQU CVTS01+56 01364000 CVTTRAC2 EQU CVTS01+54 01365000 CVTTRACE EQU CVTS01+52 01366000 CVTAPG EQU CVTS01+51 01367000 CVTSDTRC EQU CVTCTLFG 01368000 CVTGTRCE EQU CVTCTLFG 01369000 CVTNOMP EQU CVTCTLFG 01370000 CVTRSV79 EQU CVTCTLFG 01371000 CVTDSTAT EQU CVTCTLFG 01372000 CVTRSV78 EQU CVTCTLFG 01373000 CVTRV333 EQU CVTCTLFG 01374000 CVTRV323 EQU CVTCTLFG 01375000 CVTSPVLK EQU CVTS01+49 01376000 CVTRSV77 EQU CVTS01+48 01377000 CVTRV331 EQU CVTS01+44 01378000 CVTRV330 EQU CVTS01+40 01379000 CVTRV329 EQU CVTS01+36 01380000 CVTRV328 EQU CVTS01+32 01381000 CVTRV322 EQU CVTS01+28 01382000 CVTSLID EQU CVTSLIDA+1 01383000 CVTSYLK EQU CVTSLIDA 01384000 CVTRV321 EQU CVTS01+20 01385000 CVTRV320 EQU CVTS01+16 01386000 CVTLPDIR EQU CVTLPDIA+1 01387000 CVTRSV69 EQU CVTDIRST 01388000 CVTRSV68 EQU CVTDIRST 01389000 CVTRSV67 EQU CVTDIRST 01390000 CVTRSV66 EQU CVTDIRST 01391000 CVTRSV65 EQU CVTDIRST 01392000 CVTRSV64 EQU CVTDIRST 01393000 CVTRSV63 EQU CVTDIRST 01394000 CVTDICOM EQU CVTDIRST 01395000 CVTPVTP EQU CVTS01+8 01396000 CVTLPDSR EQU CVTS01+4 01397000 CVTGETL EQU CVTS01 01398000 UCBRV066 EQU UCBOBS09+4 01399000 UCBIOSBA EQU UCBOBS09 01400000 UCBRV042 EQU UCBOBS08+5 01401000 UCBCTCF1 EQU UCBOBS08+4 01402000 UCBCTCAD EQU UCBOBS08 01403000 UCBICNCB EQU UCBOBS07+4 01404000 UCBRV040 EQU UCBOBS07 01405000 UCBCTLNA EQU UCBCTLNK+1 01406000 UCBRLN EQU UCBCTLNK 01407000 UCBRDYQA EQU UCBLDNCB 01408000 UCBINRLN EQU UCBIRLN 01409000 UCBIRBA EQU UCBIRB+1 01410000 UCBRV039 EQU UCBGRAF 01411000 UCBDWNR EQU UCBGRAF 01412000 UCBRPND EQU UCBGRAF 01413000 UCBUPM EQU UCBGRAF 01414000 UCBBTAM EQU UCBGRAF 01415000 UCBDRNO EQU UCBGRAF 01416000 UCBDRO EQU UCBGRAF 01417000 UCBOIP EQU UCBGRAF 01418000 UCBATRCD EQU @NM00003 01419000 UCBSKPFG EQU @NM00003 01420000 UCBRIPND EQU @NM00003 01421000 UCBRTIAC EQU @NM00003 01422000 UCBRSV79 EQU @NM00003 01423000 UCBRSV78 EQU @NM00003 01424000 UCBRSV77 EQU @NM00003 01425000 UCBOLTEP EQU @NM00003 01426000 UCBATNCT EQU UCBOBS06+2 01427000 UCBRSV76 EQU UCBAOF2 01428000 UCBRSV75 EQU UCBAOF2 01429000 UCBRSV74 EQU UCBAOF2 01430000 UCBRSV73 EQU UCBAOF2 01431000 UCBRSV72 EQU UCBAOF2 01432000 UCBRSV71 EQU UCBAOF2 01433000 UCBRSV70 EQU UCBAOF2 01434000 UCBRSV69 EQU UCBAOF2 01435000 UCBRSV68 EQU UCBAOF1 01436000 UCBRSV67 EQU UCBAOF1 01437000 UCBRSV66 EQU UCBAOF1 01438000 UCBRSV65 EQU UCBAOF1 01439000 UCBRSV64 EQU UCBAOF1 01440000 UCBOFNL EQU UCBAOF1 01441000 UCBOFSP EQU UCBAOF1 01442000 UCBOFMCR EQU UCBAOF1 01443000 UCBBTB EQU UCBBTA+1 01444000 UCBDI EQU UCBBTA 01445000 UCBSNS EQU UCBOBS04+8 01446000 UCBTEB EQU UCBOBS04+4 01447000 UCBGCB EQU UCBOBS04+3 01448000 UCBOPEN EQU UCBOBS04+2 01449000 UCBSTART EQU UCBOBS04 01450000 UCBXTNB EQU UCBXTN+1 01451000 UCBRSV22 EQU UCBVOPT 01452000 UCBRSV21 EQU UCBVOPT 01453000 UCBRSV20 EQU UCBVOPT 01454000 UCBESVE EQU UCBVOPT 01455000 UCBERPC EQU UCBVOPT 01456000 UCBESVC EQU UCBVOPT 01457000 UCBEVA EQU UCBVOPT 01458000 UCBESV EQU UCBVOPT 01459000 UCBRV009 EQU UCBTFL1 01460000 UCBRV008 EQU UCBTFL1 01461000 UCBRV007 EQU UCBTFL1 01462000 UCBRV006 EQU UCBTFL1 01463000 UCBRV005 EQU UCBTFL1 01464000 UCBRV038 EQU UCBTFL1 01465000 UCBNSLTP EQU UCBTFL1 01466000 UCBNLTP EQU UCBTFL1 01467000 UCBRES1B EQU UCBOBS02+18 01468000 UCBFSER EQU UCBOBS02+12 01469000 @NM00002 EQU UCBOBS02+4 01470000 UCBFSEQ EQU UCBOBS02+2 01471000 UCBFSCT EQU UCBOBS02 01472000 UCBNEXP EQU UCBOBS01+20 01473000 UCBBASE EQU UCBOBS01+16 01474000 UCBRES1A EQU UCBOBS01+15 01475000 UCBUSER EQU UCBOBS01+14 01476000 UCBFL47 EQU UCBFL4 01477000 UCBFL46 EQU UCBFL4 01478000 UCBFL45 EQU UCBFL4 01479000 UCBRV065 EQU UCBFL4 01480000 UCBDSS EQU UCBFL4 01481000 UCBRV028 EQU UCBFL4 01482000 UCBWDAV EQU UCBFL4 01483000 UCBDAVV EQU UCBFL4 01484000 UCBSQC EQU UCBOBS01+12 01485000 UCBDATP EQU UCBOBS01+12 01486000 UCBDMC EQU UCBDMCT 01487000 UCBMOUNT EQU UCBDMCT 01488000 UCBBNUL EQU UCBSTAB 01489000 UCBSHAR EQU UCBSTAB 01490000 UCBBSTR EQU UCBSTAB 01491000 UCBBPUB EQU UCBSTAB 01492000 UCBBPRV EQU UCBSTAB 01493000 UCBBALB EQU UCBPRSRS 01494000 UCBPGFL EQU UCBSTAB 01495000 UCBDVSHR EQU UCBBSVL 01496000 UCBVOLI EQU UCBOBS01+4 01497000 UCBVTOC EQU UCBOBS01 01498000 @NM00027 EQU FAILCCW+6 01499000 @NM00026 EQU CCWFLAG 01500000 @NM00025 EQU CCWFLAG 01501000 @NM00024 EQU STATTAB+22 01502000 @NM00023 EQU STATTAB+1 01503000 EWACPU EQU EWA+27 01504000 @NM00022 EQU EWA+26 01505000 EWACHA EQU EWA+24 01506000 EWACSEQ EQU EWAXCSW2 01507000 EWACDIN EQU EWAXCSW2 01508000 @NM00021 EQU EWAXCSW2 01509000 EWACTEC EQU EWAXCSW2 01510000 EWACDAV EQU EWAXCSW1 01511000 EWACCHV EQU EWAXCSW1 01512000 EWACCMD EQU EWAXCSW1 01513000 EWACUNS EQU EWAXCSW1 01514000 EWACSQV EQU EWAXCSW1 01515000 @NM00020 EQU EWAXCSW1 01516000 EWACITF EQU EWAXCSW1 01517000 @NM00019 EQU EWARGFG2 01518000 EWACCUE EQU EWARGFG2 01519000 EWACSTG EQU EWARGFG2 01520000 EWACSCU EQU EWARGFG2 01521000 EWACCHA EQU EWARGFG2 01522000 EWACCPU EQU EWARGFG2 01523000 EWANORTY EQU EWARGFG1 01524000 EWACCNT EQU EWARGFG1 01525000 EWACSNS EQU EWARGFG1 01526000 @NM00018 EQU EWARGFG1 01527000 EWACHIO EQU EWARGFG1 01528000 EWACTIO EQU EWARGFG1 01529000 EWACINT EQU EWARGFG1 01530000 EWACSIO EQU EWARGFG1 01531000 EWAUCB EQU EWAERPIB+1 01532000 @NM00017 EQU EWAERPIB 01533000 EWASTUP EQU EWA+14 01534000 EWACNTR4 EQU EWACNTRS+3 01535000 EWACNTR1 EQU EWACNTRS 01536000 EWASSTAT EQU EWA+8 01537000 EWASCTMX EQU EWASNSCT 01538000 @NM00016 EQU EWASNSCT 01539000 @NM00015 EQU EWAFLG2 01540000 EWADIR EQU EWAFLG2 01541000 EWACOVF EQU EWAFLG2 01542000 EWAWTEMP EQU EWAFLG2 01543000 EWAMDR EQU EWAFLG2 01544000 EWABDSNS EQU EWAFLG1 01545000 EWADDMSG EQU EWAFLG1 01546000 EWASCC1 EQU EWASCC3 01547000 EWASCC2 EQU EWASCC3 01548000 @NM00014 EQU EWAFLG1 01549000 EWASLIS EQU EWAFLG1 01550000 EWAEXT EQU EWAHDR 01551000 IOSEND EQU IOSB+108 01552000 IOSSKR EQU IOSEEKA+7 01553000 IOSSKH2 EQU IOSSKHH+1 01554000 IOSSKH1 EQU IOSSKHH 01555000 IOSSKCC EQU IOSCCHH 01556000 IOSSKBB EQU IOSEEKA+1 01557000 IOSSKM EQU IOSEEKA 01558000 IOSEEK EQU IOSB+92 01559000 IOSMDM EQU IOSB+91 01560000 IOSMDB EQU IOSB+90 01561000 IOSCKEY7 EQU IOSCKEY 01562000 IOSCKEY6 EQU IOSCKEY 01563000 IOSCKEY5 EQU IOSCKEY 01564000 IOSCKEY4 EQU IOSCKEY 01565000 @NM00010 EQU IOSCKEY 01566000 IOSFMSK EQU IOSB+88 01567000 IOSCUDEV EQU IOSPATH+1 01568000 @NM00009 EQU IOSCHN 01569000 IOSPATH3 EQU IOSCHN 01570000 IOSPATH2 EQU IOSCHN 01571000 IOSEXP EQU IOSCHN 01572000 IOSGDP EQU IOSCHN 01573000 IOSAFF EQU IOSB+85 01574000 IOSRSS1B EQU IOSB+84 01575000 IOSDSID EQU IOSB+80 01576000 IOSVST EQU IOSB+76 01577000 IOSDIE EQU IOSB+68 01578000 IOSABN EQU IOSB+64 01579000 IOSNRM EQU IOSB+60 01580000 IOSPCI EQU IOSB+56 01581000 IOSPCHN EQU IOSB+48 01582000 IOSAPMSK EQU IOSB+40 01583000 IOSRES4A EQU IOSB+36 01584000 IOSUSE EQU IOSB+32 01585000 IOSSRB EQU IOSB+28 01586000 IOSCSWRC EQU IOSCSW+5 01587000 IOSTSB EQU IOSTATUS+1 01588000 IOSTSA EQU IOSTATUS 01589000 IOSOPT2X EQU IOSOPT2 01590000 IOSHTP EQU IOSOPT2 01591000 IOSRELSE EQU IOSOPT 01592000 IOSAPR EQU IOSOPT 01593000 IOSTSLL EQU IOSOPT 01594000 IOSNERP EQU IOSOPT 01595000 IOSPSLL EQU IOSOPT 01596000 IOSQISCE EQU IOSOPT 01597000 IOSDEP EQU IOSOPT 01598000 IOSBYP EQU IOSOPT 01599000 IOSPKY7 EQU IOSPKEY 01600000 IOSPGDPX EQU IOSPKEY 01601000 IOSIDR EQU IOSPKEY 01602000 IOSLCL EQU IOSPKEY 01603000 @NM00007 EQU IOSPKEY 01604000 IOSPGAD EQU IOSB+8 01605000 IOSASID EQU IOSB+6 01606000 IOSPRLVL EQU IOSB+5 01607000 IOSDVRID EQU IOSB+4 01608000 IOSPROC EQU IOSB+3 01609000 IOSFLC7 EQU IOSFLC 01610000 IOSFLC6 EQU IOSFLC 01611000 IOSGLC5 EQU IOSFLC 01612000 IOSFLC4 EQU IOSFLC 01613000 IOSFLC3 EQU IOSFLC 01614000 IOSFLC2 EQU IOSFLC 01615000 IOSVERIF EQU IOSDVALT 01616000 IOSDVMNT EQU IOSFLC 01617000 IOSLOG EQU IOSFLB 01618000 IOSBDCST EQU IOSFLB 01619000 IOSMSG EQU IOSFLB 01620000 IOSFLB4 EQU IOSFLB 01621000 IOSFLB3 EQU IOSFLB 01622000 IOSFLB2 EQU IOSFLB 01623000 IOSFLB1 EQU IOSFLB 01624000 IOSDIESE EQU IOSFLB 01625000 IOSIOSB EQU IOSFLA 01626000 IOSFLA6 EQU IOSFLA 01627000 IOSSMDB EQU IOSFLA 01628000 IOSSMDA EQU IOSFLA 01629000 IOSCCHN EQU IOSACHN 01630000 IOSDCHN EQU IOSACHN 01631000 CVTLEVL EQU CVTRELNO+2 01632000 CVTNUMB EQU CVTRELNO 01633000 CVTMDL EQU CVTFIX+250 01634000 @NM00006 EQU CVTFIX+248 01635000 @NM00005 EQU CVTFIX 01636000 CVTRV482 EQU CVTXTNT2+128 01637000 CVTRV481 EQU CVTXTNT2+124 01638000 CVTRV480 EQU CVTXTNT2+120 01639000 CVTRV479 EQU CVTXTNT2+118 01640000 CVTRV478 EQU CVTXTNT2+117 01641000 CVTRV477 EQU CVTXTNT2+116 01642000 CVTRV476 EQU CVTXTNT2+115 01643000 CVTRV475 EQU CVTXTNT2+114 01644000 CVTRV474 EQU CVTRV466 01645000 CVTRV473 EQU CVTRV466 01646000 CVTRV472 EQU CVTRV466 01647000 CVTRV471 EQU CVTRV466 01648000 CVTRV470 EQU CVTRV466 01649000 CVTRV469 EQU CVTRV466 01650000 CVTRV468 EQU CVTRV466 01651000 CVTRV467 EQU CVTRV466 01652000 CVTRV465 EQU CVTRV457 01653000 CVTRV464 EQU CVTRV457 01654000 CVTRV463 EQU CVTRV457 01655000 CVTRV462 EQU CVTRV457 01656000 CVTRV461 EQU CVTRV457 01657000 CVTRV460 EQU CVTRV457 01658000 CVTRV459 EQU CVTRV457 01659000 CVTRV458 EQU CVTRV457 01660000 CVTRV456 EQU CVTXTNT2+108 01661000 CVTRV455 EQU CVTXTNT2+104 01662000 CVTRV454 EQU CVTXTNT2+100 01663000 CVTRV453 EQU CVTXTNT2+96 01664000 CVTRV452 EQU CVTXTNT2+94 01665000 CVTRV451 EQU CVTXTNT2+92 01666000 CVTRV450 EQU CVTXTNT2+90 01667000 CVTRV449 EQU CVTXTNT2+88 01668000 CVTRV448 EQU CVTXTNT2+87 01669000 CVTRV447 EQU CVTXTNT2+86 01670000 CVTRV446 EQU CVTRV438 01671000 CVTRV445 EQU CVTRV438 01672000 CVTRV444 EQU CVTRV438 01673000 CVTRV443 EQU CVTRV438 01674000 CVTRV442 EQU CVTRV438 01675000 CVTRV441 EQU CVTRV438 01676000 CVTRV440 EQU CVTRV438 01677000 CVTRV439 EQU CVTRV438 01678000 CVTRV437 EQU CVTRV429 01679000 CVTRV436 EQU CVTRV429 01680000 CVTRV435 EQU CVTRV429 01681000 CVTRV434 EQU CVTRV429 01682000 CVTRV433 EQU CVTRV429 01683000 CVTRV432 EQU CVTRV429 01684000 CVTRV431 EQU CVTRV429 01685000 CVTRV430 EQU CVTRV429 01686000 CVTRV428 EQU CVTXTNT2+80 01687000 CVTRV427 EQU CVTXTNT2+76 01688000 CVTRV426 EQU CVTXTNT2+72 01689000 CVTRV425 EQU CVTXTNT2+68 01690000 CVTATACT EQU CVTATCVT 01691000 CVTRV423 EQU CVTXTNT2+62 01692000 CVTRV422 EQU CVTXTNT2+60 01693000 CVTRV421 EQU CVTXTNT2+58 01694000 CVTRV420 EQU CVTXTNT2+56 01695000 CVTRV419 EQU CVTXTNT2+55 01696000 CVTRV418 EQU CVTXTNT2+54 01697000 CVTRV417 EQU CVTRV409 01698000 CVTRV416 EQU CVTRV409 01699000 CVTRV415 EQU CVTRV409 01700000 CVTRV414 EQU CVTRV409 01701000 CVTRV413 EQU CVTRV409 01702000 CVTRV412 EQU CVTRV409 01703000 CVTRV411 EQU CVTRV409 01704000 CVTRV410 EQU CVTRV409 01705000 CVTRV408 EQU CVTRV400 01706000 CVTRV407 EQU CVTRV400 01707000 CVTRV406 EQU CVTRV400 01708000 CVTRV405 EQU CVTRV400 01709000 CVTRV404 EQU CVTRV400 01710000 CVTRV403 EQU CVTRV400 01711000 CVTRV402 EQU CVTRV400 01712000 CVTRV401 EQU CVTRV400 01713000 CVTICB EQU CVTXTNT2+48 01714000 CVTSKTA EQU CVTXTNT2+44 01715000 CVTRSV99 EQU CVTXTNT2+40 01716000 CVTRSV98 EQU CVTXTNT2+36 01717000 CVTRSV97 EQU CVTXTNT2+34 01718000 CVTRSV96 EQU CVTXTNT2+32 01719000 CVTOLTEP EQU CVTXTNT2+28 01720000 CVTQIDA EQU CVTQID+1 01721000 CVTRSV95 EQU CVTQID 01722000 CVTRSV94 EQU CVTXTNT2+20 01723000 CVTRSV93 EQU CVTXTNT2+16 01724000 CVTRSV92 EQU CVTXTNT2+12 01725000 CVTDEBVR EQU CVTXTNT2+8 01726000 CVTRSV91 EQU CVTXTNT2+6 01727000 CVTRSV9H EQU CVTFLGBT 01728000 CVTRSV9G EQU CVTFLGBT 01729000 CVTRSV9F EQU CVTFLGBT 01730000 CVTRSV9E EQU CVTFLGBT 01731000 CVTRSV9D EQU CVTFLGBT 01732000 CVTRSV9C EQU CVTFLGBT 01733000 CVTVME EQU CVTFLGBT 01734000 CVTNPE EQU CVTFLGBT 01735000 CVTNUCLS EQU CVTXTNT2+4 01736000 CVTDSSVA EQU CVTDSSV+1 01737000 CVTRSV89 EQU CVTDSSV 01738000 CVTRSV88 EQU CVTXTNT1+8 01739000 CVTRSV87 EQU CVTXTNT1+4 01740000 CVTFACHN EQU CVTXTNT1 01741000 CVTRV488 EQU CVTMAP+412 01742000 CVTRV487 EQU CVTMAP+408 01743000 CVTRV486 EQU CVTMAP+404 01744000 CVTRV485 EQU CVTMAP+400 01745000 CVTACTAP EQU CVTMAP+396 01746000 CVTAUTH EQU CVTMAP+392 01747000 CVTATMCA EQU CVTATMCT+1 01748000 CVTATMST EQU CVTATMCT 01749000 CVTRSV61 EQU CVTMAP+384 01750000 CVTVOLT1 EQU CVTVOLM1+1 01751000 CVTVOLI1 EQU CVTVOLF1 01752000 CVTSTOA EQU CVTMAP+376 01753000 CVTRSV58 EQU CVTMAP+374 01754000 CVTRSV57 EQU CVTMAP+372 01755000 CVTDDCE EQU CVTMAP+368 01756000 CVTPNWFR EQU CVTMAP+364 01757000 CVTSMF EQU CVTMAP+360 01758000 CVTSULK EQU CVTMAP+358 01759000 CVTSLKO EQU CVTSYSK 01760000 CVTSLKP EQU CVTSYSK 01761000 CVTSLKQ EQU CVTSYSK 01762000 CVTSLKR EQU CVTSYSK 01763000 CVTRSV56 EQU CVTSYSK 01764000 CVTRSV55 EQU CVTSYSK 01765000 CVTRSV54 EQU CVTSYSK 01766000 CVTRSV53 EQU CVTSYSK 01767000 CVTRSV52 EQU CVTA1F1 01768000 CVTRSV51 EQU CVTA1F1 01769000 CVTRSV50 EQU CVTA1F1 01770000 CVTRSV49 EQU CVTA1F1 01771000 CVTRSV48 EQU CVTA1F1 01772000 CVTRSV47 EQU CVTA1F1 01773000 CVTSRSW EQU CVTA1F1 01774000 CVTPFSW EQU CVTA1F1 01775000 CVTPCVT EQU CVTMAP+352 01776000 CVTRSV46 EQU CVTMAP+344 01777000 CVTRSV45 EQU CVTMAP+340 01778000 CVTRSV44 EQU CVTMAP+338 01779000 CVTRSV43 EQU CVTMAP+336 01780000 CVTHJESA EQU CVTHJES+1 01781000 CVTRSV42 EQU CVTHJES 01782000 CVTEXT2A EQU CVTEXT2+1 01783000 CVTRSV41 EQU CVTEXT2 01784000 CVTAPFA EQU CVTAPF+1 01785000 CVTRSV40 EQU CVTAPF 01786000 CVTRV518 EQU CVTINTLA 01787000 CVTRV517 EQU CVTERPV 01788000 CVTEORM EQU CVTMAP+312 01789000 CVTMCHPR EQU CVTMAP+308 01790000 CVTTZ EQU CVTMAP+304 01791000 CVTJEPS EQU CVTMAP+300 01792000 CVTJESCT EQU CVTMAP+296 01793000 CVTMODE EQU CVTMAP+292 01794000 CVTREAL EQU CVTMAP+284 01795000 CVTRSV39 EQU CVTMAP+280 01796000 CVTRSV38 EQU CVTMAP+276 01797000 CVTDMSRA EQU CVTDMSR+1 01798000 CVTRSV37 EQU CVTDMSR 01799000 CVTQMSGA EQU CVTQMSG+1 01800000 CVTRSV36 EQU CVTQMSG 01801000 CVTAMFF EQU CVTMAP+264 01802000 CVTPURGA EQU CVTPURG+1 01803000 CVTRSV35 EQU CVTPURG 01804000 CVTCBSP EQU CVTMAP+256 01805000 CVTATERA EQU CVTATER+1 01806000 CVTSYST EQU CVTATER 01807000 CVTVOLT2 EQU CVTTAT 01808000 CVTVOLI2 EQU CVTVOLF2 01809000 CVTAQAVB EQU CVTAQAVT+1 01810000 CVTRSV34 EQU CVTTCMFG 01811000 CVTRSV33 EQU CVTTCMFG 01812000 CVTRSV32 EQU CVTTCMFG 01813000 CVTRSV31 EQU CVTTCMFG 01814000 CVTRSV30 EQU CVTTCMFG 01815000 CVTRSV29 EQU CVTTCMFG 01816000 CVTRSV28 EQU CVTTCMFG 01817000 CVTTCRDY EQU CVTTCMFG 01818000 CVTGTFA EQU CVTGTF+1 01819000 CVTRSV27 EQU CVTGTFST 01820000 CVTRNIO EQU CVTGTFST 01821000 CVTUSR EQU CVTGTFST 01822000 CVTRV318 EQU CVTFORM 01823000 CVTRV317 EQU CVTTMODE 01824000 CVTRV316 EQU CVTSTATE 01825000 CVTRV315 EQU CVTGTFS 01826000 CVTGTFAV EQU CVTGTFS 01827000 CVT0SCR1 EQU CVTMAP+232 01828000 CVTRV515 EQU CVTMAP+228 01829000 CVTRMS EQU CVTMAP+224 01830000 CVTPATCH EQU CVTMAP+220 01831000 CVTTSCE EQU CVTMAP+216 01832000 CVTLNKSC EQU CVTMAP+214 01833000 CVTQABST EQU CVTMAP+212 01834000 CVTMDLDS EQU CVTMAP+208 01835000 CVTUSER EQU CVTMAP+204 01836000 CVTABEND EQU CVTMAP+200 01837000 CVTSMCA EQU CVTMAP+196 01838000 CVTRSV18 EQU CVTMAP+192 01839000 CVTQLPAQ EQU CVTMAP+188 01840000 CVTQCDSR EQU CVTMAP+184 01841000 CVTRSV17 EQU CVTOPTB 01842000 CVTRSV16 EQU CVTOPTB 01843000 CVTFP EQU CVTOPTB 01844000 CVTAPTHR EQU CVTOPTB 01845000 CVTNLOG EQU CVTOPTB 01846000 CVTTOD EQU CVTOPTB 01847000 CVTCTIMS EQU CVTOPTB 01848000 CVTPROT EQU CVTOPTB 01849000 CVTXPFP EQU CVTOPTA 01850000 CVTASCII EQU CVTOPTA 01851000 CVTRSV13 EQU CVTOPTA 01852000 CVTRSV12 EQU CVTOPTA 01853000 CVTNIP EQU CVTOPTA 01854000 CVTDDR EQU CVTOPTA 01855000 CVTAPR EQU CVTOPTA 01856000 CVTCCH EQU CVTOPTA 01857000 CVTSNCTR EQU CVTMAP+180 01858000 CVTQMWR EQU CVTMAP+176 01859000 CVTQOCR EQU CVTMAP+172 01860000 CVT1EF00 EQU CVTMAP+168 01861000 CVTMZ00 EQU CVTMAP+164 01862000 CVTHEAD EQU CVTMAP+160 01863000 CVTRSV11 EQU CVTMAP+156 01864000 CVT0PT01 EQU CVTMAP+152 01865000 CVTMSER EQU CVTMAP+148 01866000 CVTRV516 EQU CVTIERLC 01867000 CVTILCH EQU CVTMAP+140 01868000 CVT0DS EQU CVTMAP+136 01869000 CVTFBOSV EQU CVTMAP+132 01870000 CVTNUCB EQU CVTMAP+128 01871000 CVTIXAVL EQU CVTMAP+124 01872000 CVTIOQET EQU CVTMAP+120 01873000 CVTDCBA EQU CVTMAP+117 01874000 CVTMVS2 EQU CVTDCB 01875000 CVT6DAT EQU CVTDCB 01876000 CVT4MPS EQU CVTDCB 01877000 CVTRSV09 EQU CVTDCB 01878000 CVT4MS1 EQU CVTDCB 01879000 CVT2SPS EQU CVTDCB 01880000 CVT1SSS EQU CVTDCB 01881000 CVTRSV08 EQU CVTDCB 01882000 CVTQTD00 EQU CVTMAP+108 01883000 CVTQTE00 EQU CVTMAP+104 01884000 CVTCUCB EQU CVTMAP+100 01885000 CVTSJQ EQU CVTMAP+96 01886000 CVTPBLDL EQU CVTMAP+92 01887000 CVTTPC EQU CVTMAP+88 01888000 CVTSVDCB EQU CVTMAP+84 01889000 CVTBRET EQU CVTMAP+82 01890000 CVTEXIT EQU CVTMAP+80 01891000 CVT0FN00 EQU CVTMAP+76 01892000 CVTDARA EQU CVTDAR+1 01893000 CVTRSV07 EQU CVTFLGS1 01894000 CVTRSV06 EQU CVTFLGS1 01895000 CVTRSV05 EQU CVTFLGS1 01896000 CVTRSV04 EQU CVTFLGS1 01897000 CVTRSV03 EQU CVTFLGS1 01898000 CVTRSV02 EQU CVTFLGS1 01899000 CVTRSV01 EQU CVTFLGS1 01900000 CVTDMPLK EQU CVTFLGS1 01901000 CVTXITP EQU CVTMAP+68 01902000 CVTZDTAB EQU CVTMAP+64 01903000 CVTMSLT EQU CVTMAP+60 01904000 CVTDATE EQU CVTMAP+56 01905000 CVTBTERM EQU CVTMAP+52 01906000 CVTSYSAD EQU CVTMAP+48 01907000 CVTILK2 EQU CVTMAP+40 01908000 CVTILK1 EQU CVTMAP+36 01909000 CVTPRLTV EQU CVTMAP+32 01910000 CVTPCNVT EQU CVTMAP+28 01911000 CVT0VL00 EQU CVTMAP+24 01912000 CVTXAPG EQU CVTMAP+20 01913000 CVTBUF EQU CVTMAP+16 01914000 CVTJOB EQU CVTMAP+12 01915000 CVTLINK EQU CVTMAP+8 01916000 CVT0EF00 EQU CVTMAP+4 01917000 CVTTCBP EQU CVTMAP 01918000 CVT EQU CVTMAP 01919000 UCBERADR EQU UCBUCS+12 01920000 UCBFCBID EQU UCBUCS+8 01921000 UCBERCNT EQU UCBUCS+7 01922000 UCBRSV51 EQU UCBUCS+6 01923000 UCBRSV50 EQU UCBFCBOP 01924000 UCBRSV49 EQU UCBFCBOP 01925000 UCBRSV48 EQU UCBFCBOP 01926000 UCBRSV47 EQU UCBFCBOP 01927000 UCBRSV46 EQU UCBFCBOP 01928000 UCBRSV45 EQU UCBFCBOP 01929000 UCBRSV44 EQU UCBFCBOP 01930000 UCBFCBO1 EQU UCBFCBOP 01931000 UCBUCSPE EQU UCBUCSOP 01932000 UCBRSV43 EQU UCBUCSOP 01933000 UCBRSV42 EQU UCBUCSOP 01934000 UCBRSV41 EQU UCBUCSOP 01935000 UCBRSV40 EQU UCBUCSOP 01936000 UCBRSV39 EQU UCBUCSOP 01937000 UCBUCSO2 EQU UCBUCSOP 01938000 UCBUCSO1 EQU UCBUCSOP 01939000 UCBUCSID EQU UCBUCS 01940000 UCBRV064 EQU UCB3540X+6 01941000 UCBVLSER EQU UCB3540X 01942000 UCBRDATA EQU UCBOCR+4 01943000 UCBFRID EQU UCBOCR 01944000 UCBCLN EQU UCBMT+14 01945000 UCBERG EQU UCBMT+12 01946000 UCBMS EQU UCBMT+11 01947000 UCBNB EQU UCBMT+10 01948000 UCBPW EQU UCBMT+9 01949000 UCBPR EQU UCBMT+8 01950000 UCBSIO EQU UCBMT+6 01951000 UCBTW EQU UCBMT+5 01952000 UCBTR EQU UCBMT+4 01953000 UCBTWT EQU UCBMT+3 01954000 UCBTRT EQU UCBMT+2 01955000 UCBCTD EQU UCBMT 01956000 UCBWTOID EQU UCBCMEXT+17 01957000 UCBRV043 EQU UCBCMEXT+16 01958000 UCBASID EQU UCBCMEXT+14 01959000 UCBMFCNT EQU UCBCMEXT+12 01960000 UCBPMSK EQU UCBCMEXT+10 01961000 UCBCCWOF EQU UCBCMEXT+8 01962000 UCBRV041 EQU UCBCMEXT+6 01963000 UCBRV036 EQU UCBFLP1 01964000 UCBRV035 EQU UCBFLP1 01965000 UCBRV034 EQU UCBFLP1 01966000 UCBRV033 EQU UCBFLP1 01967000 UCBRV032 EQU UCBFLP1 01968000 UCBRV031 EQU UCBFLP1 01969000 UCBRV030 EQU UCBFLP1 01970000 UCBNSRCH EQU UCBFLP1 01971000 UCBSNSCT EQU UCBCMEXT+4 01972000 UCBHPDV EQU @NM00004 01973000 UCBHALI EQU @NM00004 01974000 UCBRSV09 EQU @NM00004 01975000 UCBRSV08 EQU @NM00004 01976000 UCBRSV07 EQU @NM00004 01977000 UCBRSV06 EQU @NM00004 01978000 UCBRSV05 EQU @NM00004 01979000 UCBRSV04 EQU @NM00004 01980000 UCBDTI EQU UCBCMEXT+2 01981000 UCBETI EQU UCBCMEXT 01982000 UCBEXTP EQU UCBEXTPT+1 01983000 UCBDDRSW EQU UCBFLC 01984000 UCBTICBT EQU UCBFLC 01985000 UCBIVRR EQU UCBFLC 01986000 UCBIVRS EQU UCBFLC 01987000 UCBITF EQU UCBFLC 01988000 UCBUDE EQU UCBFLC 01989000 UCBWAA EQU UCBFLC 01990000 UCBATTP EQU UCBFLC 01991000 UCBUNTYP EQU UCBTBYT4 01992000 UCBRSV11 EQU UCBDVCLS 01993000 UCBRSV10 EQU UCBDVCLS 01994000 UCB3CHAR EQU UCBDVCLS 01995000 UCB3UREC EQU UCBDVCLS 01996000 UCB3DISP EQU UCBDVCLS 01997000 UCB3DACC EQU UCBDVCLS 01998000 UCB3COMM EQU UCBDVCLS 01999000 UCB3TAPE EQU UCBDVCLS 02000000 UCBDVPWR EQU UCB2OPT7 02001000 UCBVLPWR EQU UCB2OPT6 02002000 UCB2OPT5 EQU UCBTBYT2 02003000 UCBRVDEV EQU UCBRWTAU 02004000 UCBRPS EQU UCBDUDN2 02005000 UCBRR EQU UCBDUDN1 02006000 UCB2OPT1 EQU UCBTBYT2 02007000 UCB2OPT0 EQU UCBTBYT2 02008000 UCB1FEA7 EQU UCBTBYT1 02009000 UCBD6250 EQU UCB1FEA6 02010000 UCBD1600 EQU UCB1FEA5 02011000 UCB1FEA4 EQU UCBTBYT1 02012000 UCB1FEA3 EQU UCBTBYT1 02013000 UCB1FEA2 EQU UCBTBYT1 02014000 UCB1FEA1 EQU UCBTBYT1 02015000 UCB1FEA0 EQU UCBTBYT1 02016000 UCBNAME EQU UCBOB+13 02017000 UCBRV029 EQU UCBWGT 02018000 UCBVHRSN EQU UCBWGT 02019000 UCBVORSN EQU UCBWGT 02020000 UCBMTPXP EQU UCBWGT 02021000 UCBREW EQU UCBWGT 02022000 UCBPUB EQU UCBWGT 02023000 UCBOUT EQU UCBWGT 02024000 UCBIN EQU UCBWGT 02025000 UCBCPU EQU UCBOB+11 02026000 UCBLCI EQU UCBOB+10 02027000 UCBCNT EQU UCBOB+9 02028000 UCBRV017 EQU UCBCHM1 02029000 UCBRV016 EQU UCBCHM1 02030000 UCBRV015 EQU UCBCHM1 02031000 UCBRV014 EQU UCBCHM1 02032000 UCBSPB EQU UCBPTH1 02033000 UCBPPB EQU UCBPTH1 02034000 UCBSPA EQU UCBPTH0 02035000 UCBPPA EQU UCBPTH0 02036000 UCBFLB7 EQU UCBFLB 02037000 UCBFLB6 EQU UCBFLB 02038000 UCBFLB5 EQU UCBFLB 02039000 UCBFLB4 EQU UCBFLB 02040000 UCBRESVH EQU UCBFLB 02041000 UCBSPST EQU UCBFLB 02042000 UCBASNS EQU UCBFLB 02043000 UCBIORST EQU UCBFLB 02044000 UCBQISCE EQU UCBFL1 02045000 UCBACTV EQU UCBFL1 02046000 UCBSAP EQU UCBFL1 02047000 UCBNOTRC EQU UCBCUB 02048000 UCBPSNS EQU UCBFL1 02049000 UCBUSING EQU UCBPST 02050000 UCBNOTRD EQU UCBNRY 02051000 UCBBUSYD EQU UCBBSY 02052000 UCBUA EQU UCBCHAN+1 02053000 UCBCHA EQU UCBCHAN 02054000 UCBDADI EQU UCBSTAT 02055000 UCBSYSR EQU UCBSTAT 02056000 UCBPRES EQU UCBSTAT 02057000 UCBALOC EQU UCBSTAT 02058000 UCBUNLD EQU UCBSTAT 02059000 UCBRESV EQU UCBSTAT 02060000 UCBCHGS EQU UCBSTAT 02061000 UCBONLI EQU UCBSTAT 02062000 UCBID EQU UCBOB+2 02063000 UCBALTPH EQU UCBFL5 02064000 UCBALTCU EQU UCBFL5 02065000 UCBNALOC EQU UCBFL5 02066000 UCBENVRD EQU UCBFL5 02067000 UCBVSDR EQU UCBFL5 02068000 UCBSASK EQU UCBFL5 02069000 UCBAMV EQU UCBAF 02070000 UCBDCC EQU UCBFL5 02071000 UCBMONT EQU UCBJBNR 02072000 UCBRV011 EQU UCBJBNR 02073000 UCBRSV02 EQU UCBJBNR 02074000 UCBOLDSM EQU UCBJBNR 02075000 UCBRV003 EQU UCBJBNR 02076000 UCBRV002 EQU UCBJBNR 02077000 UCBJES3 EQU UCBJBNR 02078000 UCBVRDEV EQU UCBJBNR 02079000 UCBCMSEG EQU UCBOB 02080000 UCBPFXND EQU UCB+512 02081000 UCBIOQ EQU UCB+508 02082000 UCBLOCK EQU UCB+504 02083000 UCBPXST EQU UCB+504 02084000 @NM00001 EQU UCB 02085000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02086000 @RC00123 EQU @RC00121 02087000 @RC00132 EQU @RC00121 02088000 @RC00149 EQU @RC00144 02089000 @RC00169 EQU @RC00168 02090000 @RC00183 EQU @RC00180 02091000 @ENDDATA EQU * 02092000 END ER3886B,(C'PLS1101',0603,74213) 02093000