TITLE 'IGE0000G-ERROR RECOVERY PROC FOR 1403,1443,3211,3800 PR*00001000 RINTERS ' 00002000 IEC1403A CSECT 00003000 USING IEC1403A,CODEBASE ADDRESSABILITY FOR CODE 00004000 USING @DATD,DATABASE AND TEMP DATA 00005000 * CODEBASE=RF; /* BASE REGISTER FOR CODE SET */ 00006000 LR CODEBASE,RF 0142 00007000 * RFY 0143 00008000 * RF UNRSTD; 0143 00009000 * IOSBPTR=R1; /* PICKUP POINTER TO IOSB FROM 0144 00010000 * LINKAGE REGISTER */ 00011000 LR IOSBPTR,R1 0144 00012000 * EWAPTR=IOSERP; /* INITIALIZE POINTERS TO ERP 0145 00013000 * WORK AREA */ 00014000 L EWAPTR,IOSERP(,IOSBPTR) 0145 00015000 * DATABASE=ADDR(EWUWORK); /* BASE REGISTER FOR @DATD DSECT */ 00016000 LA DATABASE,EWUWORK(,EWAPTR) 0146 00017000 * RFY 0147 00018000 * R1 UNRSTD; 0147 00019000 * CVTPTR=CVTPTRXX; /* USING A LOCAL POINTER IMPROVES 00020000 * OPTIMIZATION */ 00021000 L @12,CVTPTRXX 0148 00022000 ST @12,CVTPTR 0148 00023000 * UCBPTR=IOSUCB; /* INITIALIZE PT TO UCB */ 00024000 L @12,IOSUCB(,IOSBPTR) 0149 00025000 ST @12,UCBPTR 0149 00026000 * IF IOSDVRID=IOSXCPID THEN /* TEST IF DRIVER IS EXCP */ 00027000 CLI IOSDVRID(IOSBPTR),X'02' 0150 00028000 BNE @RF00150 0150 00029000 * IOBSTPTR=RQEIOB; /* IOB POINTER (IF IT EXISTS) */ 00030000 L @12,RQEPTR(,IOSBPTR) 0151 00031000 L @12,RQEIOB(,@12) 0151 00032000 ST @12,IOBSTPTR 0151 00033000 * IF MDRFLAG=ON THEN /* TEST IF ENTRY WAS RETURN FROM 00034000 * MDR @ZA15058*/ 00035000 @RF00150 TM MDRFLAG(EWAPTR),B'00100000' 0152 00036000 BNO @RF00152 0152 00037000 * DO; 0153 00038000 * MDRFLAG=OFF; 0154 00039000 NI MDRFLAG(EWAPTR),B'11011111' 0154 00040000 * EWAMDR=OFF; 0155 00041000 NI EWAMDR(EWAPTR),B'01111111' 0155 00042000 * GOTO BUFREAD2; 0156 00043000 B BUFREAD2 0156 00044000 * END; 0157 00045000 * EWAMDR=OFF; /* CLEAR MDR FLAG @ZA28498*/ 00046000 @RF00152 NI EWAMDR(EWAPTR),B'01111111' 0158 00047000 * IOSLOG=OFF; /* CLEAR LOGGING BIT @ZA28498*/ 00048000 NI IOSLOG(IOSBPTR),B'11111110' 0159 00049000 */* CLEAR SWITCHES */ 00050000 * 0160 00051000 * IF IOSERR=OFF THEN /* TEST IF ENTERED FOR FIRST TIME 00052000 * @Z40MSWH*/ 00053000 TM IOSERR(IOSBPTR),B'00100000' 0160 00054000 BNZ @RF00160 0160 00055000 * DO; 0161 00056000 * FLAGS1=ZERO; /* CLEAR ERP SWITCHES @Z40MSWH*/ 00057000 MVI FLAGS1(EWAPTR),X'00' 0162 00058000 * FLAGS2=ZERO; /* CLEAR ERP SWITCHES @Z40MSWH*/ 00059000 MVI FLAGS2(EWAPTR),X'00' 0163 00060000 * EWACNTR4='00'X; /* CLEAR ERROR COUNT @Z40MSWH*/ 00061000 MVI EWACNTR4(EWAPTR),X'00' 0164 00062000 * END; 0165 00063000 * IOSERR=ON; /* INDICATE ERP IN CONTROL */ 00064000 @RF00160 DS 0H 0167 00065000 * IOSEX=ON; /* INDICATE I/O ERROR */ 00066000 OI IOSERR(IOSBPTR),B'00100100' 0167 00067000 * IRQFLAG=OFF; /* CLEAR INTERVENTION REQ FLAG */ 00068000 NI IRQFLAG(EWAPTR),B'10111111' 0168 00069000 * IF EWUINT=ON THEN /* HANDLE INTREQ IN COMBINATION 00070000 * WITH OTHER ERRORS */ 00071000 TM EWUINT(EWAPTR),B'01000000' 0169 00072000 BNO @RF00169 0169 00073000 * IF CSWUCK=ON THEN 0170 00074000 TM CSWUCK(IOSBPTR),B'00000010' 0170 00075000 BNO @RF00170 0170 00076000 * IRQFLAG=ON; /* @OZ04501*/ 00077000 OI IRQFLAG(EWAPTR),B'01000000' 0171 00078000 * IF IOSCCHN=ON&IOSDCHN=ON THEN /* TEST IF BOTH CMD & DATA 0172 00079000 * CHAINING */ 00080000 @RF00170 DS 0H 0172 00081000 @RF00169 TM IOSCCHN(IOSBPTR),B'11000000' 0172 00082000 BO @RT00172 0172 00083000 * GOTO MSGA; /* PERMANENT ERROR IF CMD & DATA 00084000 * CHAINED */ 00085000 * IF IOSCCHN=ON /* PICKUP VIRTUAL ADDRESS OF 0174 00086000 * FAILING CCW */ 00087000 * THEN 0174 00088000 TM IOSCCHN(IOSBPTR),B'01000000' 0174 00089000 BNO @RF00174 0174 00090000 * DO; 0175 00091000 * CCWPTR=IOSCSWCA-LENGTH(CCWMAP);/* BACK UP TO CCW CAUSING 0176 00092000 * ERROR */ 00093000 L @12,IOSCSWCA-1(,IOSBPTR) 0176 00094000 LA @12,0(,@12) 0176 00095000 SL @12,@CF00046 0176 00096000 ST @12,CCWPTR 0176 00097000 * NEXTCCW=OFF; /* @ZA05201*/ 00098000 NI NEXTCCW(EWAPTR),B'01111111' 0177 00099000 * GOTO CHKTST; /* @ZA05201*/ 00100000 B CHKTST 0178 00101000 * END; 0179 00102000 * ELSE 0180 00103000 * CCWPTR=IOSVST; /* PT TO BEGINNING OF CCW CHAIN */ 00104000 @RF00174 L @12,IOSVST(,IOSBPTR) 0180 00105000 ST @12,CCWPTR 0180 00106000 */********************************************************************/ 00107000 */* */ 00108000 */* EVALUATE ERPIB FOR CHANNEL OR INTERFACE CONTROL CHECKS */ 00109000 */* */ 00110000 */********************************************************************/ 00111000 * 0181 00112000 *CHKTST: 0181 00113000 * IF CSWCTK=OFF&CSWICK=OFF THEN /* TEST FOR CHAN AND INTERF CTL 00114000 * CK */ 00115000 CHKTST TM CSWCTK(IOSBPTR),B'00000110' 0181 00116000 BZ @RT00181 0181 00117000 * GO TO CHAINTST; /* SKIP ERPIB TESTS IF NO CHAN. 00118000 * OR INTF. CTRL CHECKS */ 00119000 * IF UCBTBYT4=DEV3800 THEN /* TEST FOR 3800 @Z40MSWH*/ 00120000 @RF00181 L @12,UCBPTR 0183 00121000 CLI UCBTBYT4(@12),X'0E' 0183 00122000 BNE @RF00183 0183 00123000 * DO; 0184 00124000 * IF EWACTEC=EWATER3 THEN /* TEST IF SYSTEM RESET @Z40MSWH*/ 00125000 TM EWACTEC(EWAPTR),B'11000000' 0185 00126000 BO @RT00185 0185 00127000 * GO TO LOG$MSG; /* YES. PERM I/O ERROR @Z40MSWH*/ 00128000 * IF CSWCTK=ON THEN /* TEST IF CHANNEL CTL CK 0187 00129000 * @Z40MSWH*/ 00130000 TM CSWCTK(IOSBPTR),B'00000100' 0187 00131000 BNO @RF00187 0187 00132000 * CHCTSW=ON; /* SET STATISTICS UPDATE BIT 0188 00133000 * @Z40MSWH*/ 00134000 OI CHCTSW(EWAPTR),B'00001000' 0188 00135000 * IF CSWICK=ON THEN /* TEST IF INTERFACE CTL CK 0189 00136000 * @Z40MSWH*/ 00137000 @RF00187 TM CSWICK(IOSBPTR),B'00000010' 0189 00138000 BNO @RF00189 0189 00139000 * ICKSW=ON; /* SET STATISTICS UPDATE BIT 0190 00140000 * @Z40MSWH*/ 00141000 OI ICKSW(EWAPTR),B'00010000' 0190 00142000 * END; 0191 00143000 * ELSE 0192 00144000 * ; /* NOT 3800 */ 00145000 @RF00183 DS 0H 0193 00146000 * IF IOSCOD=IOSFINTC /* INTERCEPT? */ 00147000 * THEN 0193 00148000 @RC00183 CLI IOSCOD(IOSBPTR),X'7E' 0193 00149000 BE @RT00193 0193 00150000 * GOTO LOG$MSG; /* YES- PERM ERROR */ 00151000 * IF EWABDSNS=OFF&EWUSUPR=ON THEN 0195 00152000 TM EWABDSNS(EWAPTR),B'00000001' 0195 00153000 BNZ @RF00195 0195 00154000 TM EWUSUPR(EWAPTR),B'00000100' 0195 00155000 BO @RT00195 0195 00156000 * GO TO RETRY5; /* IF A 3211 SUPPRESSED THE 0196 00157000 * COMMAND THEN RETRY */ 00158000 * IF EWANORTY=ON THEN /* IF CCH MARKED NO RETRY THEN 0197 00159000 * QUIT */ 00160000 @RF00195 TM EWANORTY(EWAPTR),B'00000001' 0197 00161000 BO @RT00197 0197 00162000 * GOTO LOG$MSG; /* PERM ERROR */ 00163000 * IF SIOCC1=ON THEN /* IF ERROR OCCURED ON SIO THEN 00164000 * RETRY */ 00165000 TM SIOCC1(EWAPTR),B'10000000' 0199 00166000 BO @RT00199 0199 00167000 * GO TO RETRY5; /* BR TO RETRY FIVE TIMES */ 00168000 * IF COMADVAL=OFF THEN 0201 00169000 TM COMADVAL(EWAPTR),B'00000100' 0201 00170000 BNZ @RF00201 0201 00171000 * DO; /* COMMAND ADDRESS IS INVALID */ 00172000 * CCWPTR=IOSVST; /* POINT TO ORIGINAL CP START IN 00173000 * CASE OF RETRY FOR CONSOLES */ 00174000 L @12,IOSVST(,IOSBPTR) 0203 00175000 ST @12,CCWPTR 0203 00176000 * GOTO LOG$MSG; /* PERM I/O ERROR */ 00177000 B LOG$MSG 0204 00178000 * END; 0205 00179000 * IF CCWCMD=NOP THEN /* NOP COMMANDS CAN BE RETRIED */ 00180000 @RF00201 L @12,CCWPTR 0206 00181000 CLI CCWCMD(@12),X'03' 0206 00182000 BE @RT00206 0206 00183000 * GO TO RETRY5; /* RETRY OPERATION */ 00184000 * EWACNTR2=EWAXCSW2&RTRYMASK; /* ISOLATE RETRY CODE FOR TESTING*/ 00185000 LA @11,7 0208 00186000 SLR @09,@09 0208 00187000 IC @09,EWAXCSW2(,EWAPTR) 0208 00188000 NR @11,@09 0208 00189000 STC @11,EWACNTR2(,EWAPTR) 0208 00190000 * IF EWACNTR2=1|EWACNTR2=4 THEN /* ERROR DURING DATA TRANSFER */ 00191000 CLI EWACNTR2(EWAPTR),1 0209 00192000 BE @RT00209 0209 00193000 CLI EWACNTR2(EWAPTR),4 0209 00194000 BE @RT00209 0209 00195000 * GO TO RETRY5; /* NO - RETRY OPERATION */ 00196000 * IF EWACNTR2=2&CCWCMD=WRNOSP THEN/* CODE 2 ACTION DEPENDS ON 0211 00197000 * COMMAND */ 00198000 CLI EWACNTR2(EWAPTR),2 0211 00199000 BNE @RF00211 0211 00200000 CLI CCWCMD(@12),X'01' 0211 00201000 BE @RT00211 0211 00202000 * GOTO RETRY5; /* RETRY OPERATION */ 00203000 * IF UCBTBYT4=DEV3800 THEN /* TEST FOR 3800 @Z40MSWH*/ 00204000 @RF00211 L @12,UCBPTR 0213 00205000 CLI UCBTBYT4(@12),X'0E' 0213 00206000 BNE @RF00213 0213 00207000 * DO; 0214 00208000 * IF CCWCMDTP=READCMD THEN /* TEST FOR READ COMMAND @Z40MSWH*/ 00209000 L @12,CCWPTR 0215 00210000 TM CCWCMDTP(@12),B'00000001' 0215 00211000 BZ @RT00215 0215 00212000 * GO TO RETRY5; /* YES. RETRY OPERATION @Z40MSWH*/ 00213000 * IF CSWCHE=ON THEN /* CHECK IF DATA TRANSFER DONE 0217 00214000 * @Z40MSWH*/ 00215000 TM CSWCHE(IOSBPTR),B'00001000' 0217 00216000 BNO @RF00217 0217 00217000 * DO; 0218 00218000 * NEXTCCW=ON; /* YES. START ON NEXT CCW 0219 00219000 * @Z40MSWH*/ 00220000 OI NEXTCCW(EWAPTR),B'10000000' 0219 00221000 * GO TO RETRY5; /* RETRY OPERATION @Z40MSWH*/ 00222000 B RETRY5 0220 00223000 * END; 0221 00224000 * ELSE 0222 00225000 * GOTO LOG$MSG; /* PERM I/O ERROR @Z40MSWH*/ 00226000 * END; 0223 00227000 * ELSE 0224 00228000 * GO TO LOG$MSG; /* PERM I/O MSG @Z40MSWH*/ 00229000 *CHAINTST: /* CHECK FOR CHAINING CHECK & 0225 00230000 * THEN DECIDE WHICH SET OF 0225 00231000 * INTERPERTER TABLES TO USE */ 00232000 * IF CSWCCK=ON THEN /* TEST FOR CHAINING CHECK */ 00233000 CHAINTST TM CSWCCK(IOSBPTR),B'00000001' 0225 00234000 BO @RT00225 0225 00235000 * GOTO LOG$MSG; /* CHAIN.CK. IS PERM ERROR */ 00236000 * IF UCBTBYT4=DEV3211 THEN 0227 00237000 L @12,UCBPTR 0227 00238000 CLI UCBTBYT4(@12),X'09' 0227 00239000 BE @RT00227 0227 00240000 * GO TO UC3211; /* IF 3211 USE DIFFERENT 0228 00241000 * INTERPERTER TABLES */ 00242000 * IF UCBTBYT4=DEV3800 THEN /* TEST FOR 3800 @Z40MSWH*/ 00243000 CLI UCBTBYT4(@12),X'0E' 0229 00244000 BE @RT00229 0229 00245000 * GO TO UC3800; /* CHECK IF STATUS OR UNIT CK 0230 00246000 * ERROR @Z40MSWH*/ 00247000 * IF CSWUCK=OFF THEN 0231 00248000 TM CSWUCK(IOSBPTR),B'00000010' 0231 00249000 BZ @RT00231 0231 00250000 * GOTO STATUS; /* BYPASS SENSE TESTS IF NO UNIT 00251000 * CK. */ 00252000 * IF EWABDSNS=ON THEN 0233 00253000 TM EWABDSNS(EWAPTR),B'00000001' 0233 00254000 BO @RT00233 0233 00255000 * GOTO LOG$MSG; /* IF SENSE FAILED QUIT */ 00256000 * EWASTUP(1:1)=EWASTUP(1:1)|IOSSNS(1:8)&STATMASK;/* OR SENSE DATA 00257000 * TO STATISTICS UPDATE AREA & 0235 00258000 * ZERO PROGRAMMER ERROR BITS */ 00259000 MVC @TS00001(1),IOSSNS(IOSBPTR) 0235 00260000 NI @TS00001,X'7C' 0235 00261000 OC EWASTUP(1,EWAPTR),@TS00001 0235 00262000 * IF UCBTBYT4=DEV1443 THEN 0236 00263000 CLI UCBTBYT4(@12),X'0A' 0236 00264000 BE @RT00236 0236 00265000 * GOTO NONUCS; /* BRANCH IF 1443 */ 00266000 * IF UCB2OPT0=ON THEN 0238 00267000 TM UCB2OPT0(@12),B'10000000' 0238 00268000 BO @RT00238 0238 00269000 * GOTO UCSSNS; /* BRANCH IF 1403 W/UCS */ 00270000 * IF EWUDTCK=ON|EWUBUFP=ON THEN 0240 00271000 TM EWUDTCK(EWAPTR),B'00001100' 0240 00272000 BNZ @RT00240 0240 00273000 * GOTO LOG$MSG; /* NONUCS 1403S SHOULD NOT BE 0241 00274000 * GETTING UCS ERRORS */ 00275000 *NONUCS: 0242 00276000 * RFY 0242 00277000 * (R0, 0242 00278000 * R1, 0242 00279000 * R9, 0242 00280000 * RB, 0242 00281000 * RC, 0242 00282000 * RE, 0242 00283000 * RF) RSTD; /* RESTRICT INTERPERTER LINK REGS*/ 00284000 NONUCS DS 0H 0243 00285000 * R1=IOSBPTR; 0243 00286000 LR R1,IOSBPTR 0243 00287000 * RF=CVTXITP; /* ADDRESS OF ERROR INTERPERTER */ 00288000 L @03,CVTPTR 0244 00289000 L RF,CVTXITP(,@03) 0244 00290000 * GEN REFS(RE,RF) FLOWS(LOG$MSG,INTREQ,BUSOUT,CHAN9,MSGA) NOSEQFLOW; 00291000 G1 BALR RE,RF GOTO ERROR INTERP WITH PARM ADDR IN REG 12 00292000 *NOTE:GX SYMBOLS ARE USED ONLY FOR LOCAL ADDRESSING IN INTERP CALLING 00293000 * SEQUENCE & HAVE NO MEANINGFUL NAMES 00294000 DC X'06',AL1(G2-G1-2) UNDEFINED 00295000 DC X'03',AL1(G2-G1-4) EQUIPMENT CHECK 00296000 DC X'01',AL1(G3-G1-6) INTERVENTION REQUIRED 00297000 DC X'02',AL1(G4-G1-8) BUSOUT 00298000 DC X'07',AL1(G5-G1-10) CHANNEL 9 00299000 DC X'00',AL1(G6-G1-12) COMMAND REJECT 00300000 DC X'2F',AL1(G4-G1-14) NONE 00301000 *UCSSNS: 0246 00302000 * R1=IOSBPTR; 0246 00303000 UCSSNS LR R1,IOSBPTR 0246 00304000 * RF=CVTXITP; /* ADDRESS OF ERROR INTERPERTER */ 00305000 L @03,CVTPTR 0247 00306000 L RF,CVTXITP(,@03) 0247 00307000 * GEN REFS(RE,RF) FLOWS(LOG$MSG,UCSEQCK,UCSPAR,INTREQ,BUSOUT,CHAN9, 00308000 * MSGA) NOSEQFLOW; 0248 00309000 G7 BALR RE,RF GO TO ERROR INTERP WITH PARM ADDR IN R12 00310000 DC X'06',AL1(G2-G7-2) UNDEFINED 00311000 DC X'03',AL1(GF-G7-4) EQUIPMENT CHECK 00312000 DC X'05',AL1(G8-G7-6) UCS PARITY 00313000 DC X'01',AL1(G3-G7-8) INTERVENTION REQUIRED 00314000 DC X'02',AL1(G4-G7-10) BUSOUT 00315000 DC X'07',AL1(G5-G7-12) CHANNEL 9 00316000 DC X'00',AL1(G6-G7-14) COMMAND REJECT 00317000 DC X'04',AL1(G6-G7-16) UCS DATA CHECK 00318000 DC X'2F',AL1(G4-G7-18) NONE 00319000 *UC3211: 0249 00320000 * IF CSWUCK=OFF THEN 0249 00321000 UC3211 TM CSWUCK(IOSBPTR),B'00000010' 0249 00322000 BZ @RT00249 0249 00323000 * GOTO STAT3211; /* BYPASS SENSE TESTS IF NO UNIT 00324000 * CHECK */ 00325000 * IF EWABDSNS=ON THEN 0251 00326000 TM EWABDSNS(EWAPTR),B'00000001' 0251 00327000 BO @RT00251 0251 00328000 * GOTO LOG$MSG; /* IF SENSE FAILED QUIT */ 00329000 *SNS3211: 0253 00330000 * R1=IOSBPTR; 0253 00331000 SNS3211 LR R1,IOSBPTR 0253 00332000 * RF=CVTXITP; 0254 00333000 L @03,CVTPTR 0254 00334000 L RF,CVTXITP(,@03) 0254 00335000 * GEN REFS(RE,RF) FLOWS(EQCK3211,BUSOUT,DTCK3211,BUFP3211,MSGA,RETRY5 00336000 * ,INTREQ,CHAN9,ZEROSNS) NOSEQFLOW; 0255 00337000 * 0255 00338000 GG BALR RE,RF 00339000 DC X'03',AL1(GJ-GG-2) EQUIPMENT CHECK 00340000 DC X'02',AL1(G4-GG-4) BUS OUT CHECK 00341000 DC X'04',AL1(GK-GG-6) DATA CHECK 00342000 DC X'05',AL1(GL-GG-8) BUFFER PARITY CHECK (UCS,FCB,OR PLB) 00343000 DC X'00',AL1(G6-GG-10) COMMAND REJECT 00344000 DC X'06',AL1(GM-GG-12) LOAD CHECK 00345000 DC X'01',AL1(G3-GG-14) INTERVENTION REQUIRED 00346000 DC X'07',AL1(G5-GG-16) CHANNEL 9 00347000 DC X'2F',AL1(GN-GG-18) ZERO SENSE 00348000 */* 3800 ERROR INTERPRETATION @Z40MSWH */ 00349000 * 0256 00350000 *UC3800: 0256 00351000 * IF CSWUCK=OFF THEN /* BYPASS SENSE TEST IF NO UNIT 00352000 * CK @Z40MSWH*/ 00353000 UC3800 TM CSWUCK(IOSBPTR),B'00000010' 0256 00354000 BZ @RT00256 0256 00355000 * GO TO STAT3800; /* CHECK STATUS BYTES @Z40MSWH*/ 00356000 * IF EWABDSNS=ON THEN /* CHECK IF BAD SENSE @Z40MSWH*/ 00357000 TM EWABDSNS(EWAPTR),B'00000001' 0258 00358000 BO @RT00258 0258 00359000 * GO TO LOG$MSG; /* IF SENSE FAILED QUIT @Z40MSWH*/ 00360000 *SNS3800: 0260 00361000 * 0260 00362000 */* ERROR INTERPRETER FOR SENSE @Z40MSWH */ 00363000 * 0260 00364000 * R1=IOSBPTR; /* PT TO IOSB @Z40MSWH*/ 00365000 SNS3800 LR R1,IOSBPTR 0260 00366000 * RF=CVTXITP; /* PT TO ERROR INTERPRETER 0261 00367000 * @Z40MSWH*/ 00368000 L @03,CVTPTR 0261 00369000 L RF,CVTXITP(,@03) 0261 00370000 * GEN REFS(RE,RF) FLOWS(INTV3800,EQCK3800,MSGA,BUSOUT,CHAN9) 0262 00371000 * NOSEQFLOW; 0262 00372000 GP BALR RE,RF GO TO ERROR INTRP WITH PARM ADDR IN R12 00373000 DC X'01',AL1(GT-GP-2) INTERVENTION REQUIRED 00374000 DC X'03',AL1(GR-GP-4) EQUIPMENT CHECK 00375000 DC X'04',AL1(G6-GP-6) DATA CHECK 00376000 DC X'06',AL1(G6-GP-8) LOAD CHECK 00377000 DC X'00',AL1(G6-GP-10) COMMAND REJECT 00378000 DC X'02',AL1(GU-GP-12) BUS OUT PARITY 00379000 DC X'07',AL1(G5-GP-14) CHANNEL 9 00380000 DC X'2F',AL1(G4-GP-16) ZERO SENSE 00381000 *STAT3800: 0263 00382000 * 0263 00383000 */* ERROR INTERPRETER FOR STATUS @Z40MSWH */ 00384000 * 0263 00385000 * R1=IOSBPTR; /* PT TO IOSB @Z40MSWH*/ 00386000 STAT3800 LR R1,IOSBPTR 0263 00387000 * RF=CVTXITP; /* PT TO ERROR INTERPRETER 0264 00388000 * ROUTINE @Z40MSWH*/ 00389000 L @03,CVTPTR 0264 00390000 L RF,CVTXITP(,@03) 0264 00391000 * GEN REFS(RE,RF) FLOWS(CHDT3800,MSGA,INCORLEN,UNITEXCP,ZEROSTAT) 00392000 * NOSEQFLOW; 0265 00393000 GQ BALR RE,RF GO TO ERROR INTRP WITH PARM ADDR IN R12 00394000 DC X'1C',AL1(GS-GQ-2) CHANNEL DATA CHECK 00395000 DC X'1A',AL1(G6-GQ-4) PROGRAM CHECK 00396000 DC X'1B',AL1(G6-GQ-6) PROTECT CHECK 00397000 DC X'19',AL1(GD-GQ-8) INCORRECT LENGTH 00398000 DC X'17',AL1(GC-GQ-10) CHANNEL 12 00399000 DC X'2F',AL1(GH-GQ-12) ZERO STATUS 00400000 *STAT3211: 0266 00401000 * R1=IOSBPTR; 0266 00402000 STAT3211 LR R1,IOSBPTR 0266 00403000 * RF=CVTXITP; 0267 00404000 L @03,CVTPTR 0267 00405000 L RF,CVTXITP(,@03) 0267 00406000 * GEN REFS(RE,RF) FLOWS(CHANDATA,LOG$MSGA,MSGA,INCORLEN,UNITEXCP, 00407000 * ZEROSTAT) NOSEQFLOW; 0268 00408000 GI BALR RE,RF 00409000 DC X'1C',AL1(GA-GI-2) CHANNEL DATA CHECK 00410000 DC X'10',AL1(G2-GI-4) ATTENTION 00411000 DC X'11',AL1(G2-GI-6) STATUS MODIFIER 00412000 DC X'12',AL1(G2-GI-8) CONTROL UNIT END 00413000 DC X'1A',AL1(G6-GI-10) PROGRAM CHECK 00414000 DC X'1B',AL1(G6-GI-12) PROTECTION CHECK 00415000 DC X'19',AL1(GD-GI-14) INCORRECT LENGTH 00416000 DC X'17',AL1(GC-GI-16) UNIT EXCEPTION (CHANNEL 12) 00417000 DC X'2F',AL1(GH-GI-18) ZERO STATUS 00418000 *STATUS: 0269 00419000 * R1=IOSBPTR; 0269 00420000 STATUS LR R1,IOSBPTR 0269 00421000 * RF=CVTXITP; 0270 00422000 L @03,CVTPTR 0270 00423000 L RF,CVTXITP(,@03) 0270 00424000 * GEN REFS(RE,RF) FLOWS(CHANDATA,PROGERR,UNITEXCP,INCORLEN,ZEROSTAT) 00425000 * NOSEQFLOW; 0271 00426000 G9 BALR RE,RF 00427000 DC X'1C',AL1(GA-G9-2) CHANNEL DATA CHECK 00428000 DC X'1A',AL1(GB-G9-4) PROGRAM CHECK 00429000 DC X'1B',AL1(GB-G9-6) PROTECTION CHECK 00430000 DC X'17',AL1(GC-G9-8) UNIT EXECPTION (CHANNEL 12) 00431000 DC X'19',AL1(GD-G9-10) INCORRECT LENGTH 00432000 DC X'2F',AL1(GH-G9-12) ZERO STATUS 00433000 G2 B LOG$MSG 00434000 G3 B INTREQ 00435000 G4 B BUSOUT 00436000 G5 B CHAN9 00437000 G6 B MSGA 00438000 G8 B UCSPAR 00439000 GA B CHANDATA 00440000 GB B PROGERR 00441000 GC B UNITEXCP 00442000 GD B INCORLEN 00443000 GE B OK 00444000 GF B UCSEQCK 00445000 GH B ZEROSTAT 00446000 GJ B EQCK3211 00447000 GK B DTCK3211 00448000 GL B BUFP3211 00449000 GM B RETRY5 00450000 GN B ZEROSNS 00451000 GR B EQCK3800 3800 EQUIPMENT CK 00452000 GS B CHDT3800 3800 CHANNEL DATA CK 00453000 GT B INTV3800 3800 INTV REQ 00454000 GU B BOP3800 3800 BUS OUT PARITY 00455000 * RFY 0272 00456000 * (R9, 0272 00457000 * R1, 0272 00458000 * R0, 0272 00459000 * RB, 0272 00460000 * RC, 0272 00461000 * RF, 0272 00462000 * RE) UNRSTD; 0272 00463000 * 0272 00464000 * /*****************************************************************/ 00465000 * /* */ 00466000 * /* HANDLE INTERVENTION REQUIRED */ 00467000 * /* */ 00468000 * /*****************************************************************/ 00469000 * 0273 00470000 *INTREQ: 0273 00471000 * IF UCBSYSR=ON THEN /* CHECK IF CONSOLE @ZA03912*/ 00472000 INTREQ L @12,UCBPTR 0273 00473000 TM UCBSYSR(@12),B'00000010' 0273 00474000 BNO @RF00273 0273 00475000 * IOSBDCST=ON; /* REQUEST BROADCAST WTO */ 00476000 OI IOSBDCST(IOSBPTR),B'00000010' 0274 00477000 * IOSCOD=IOSNRMC; /* CLEAR POSSIBLE INTERCEPT 0275 00478000 * INDICATION */ 00479000 @RF00273 MVI IOSCOD(IOSBPTR),X'7F' 0275 00480000 * IRQFLAG=ON; /* REQUEST INTERVENTION REQUIRED 00481000 * MESSAGE */ 00482000 OI IRQFLAG(EWAPTR),B'01000000' 0276 00483000 * IF CSWDVE=ON THEN 0277 00484000 TM CSWDVE(IOSBPTR),B'00000100' 0277 00485000 BNO @RF00277 0277 00486000 * NEXTCCW=ON; /* IF DEVICE END IS PRESENT DO 0278 00487000 * NOT REISSUE FAILING CCW */ 00488000 OI NEXTCCW(EWAPTR),B'10000000' 0278 00489000 * IF EWUPQ=ON THEN 0279 00490000 @RF00277 TM EWUPQ(EWAPTR),B'00100000' 0279 00491000 BNO @RF00279 0279 00492000 * IOSLOG=ON; /* PRINT QUALITY CHECKS ARE 0280 00493000 * LOGGED */ 00494000 OI IOSLOG(IOSBPTR),B'00000001' 0280 00495000 * IF EWUCH9=ON THEN 0281 00496000 @RF00279 TM EWUCH9(EWAPTR),B'00000001' 0281 00497000 BO @RT00281 0281 00498000 * GOTO CHAN9; /* IF CH9 ALSO-PROCESS AS CH9 */ 00499000 * GO TO RETRY; 0283 00500000 * 0283 00501000 B RETRY 0283 00502000 * /*****************************************************************/ 00503000 * /* */ 00504000 * /* PROCESS BUS OUT CHECK */ 00505000 * /* */ 00506000 * /*****************************************************************/ 00507000 * 0284 00508000 *BUSOUT: 0284 00509000 * IF CSWCHE=ON THEN 0284 00510000 BUSOUT TM CSWCHE(IOSBPTR),B'00001000' 0284 00511000 BO @RT00284 0284 00512000 * GOTO LOG$MSG; /* BUSOUT WITH CHANNEL END 0285 00513000 * INDICATES AN ERROR WHILE 0285 00514000 * TRANSFERING DATA. QUIT. */ 00515000 * ELSE 0286 00516000 * GOTO RETRY5; /* BUSOUT WITHOUT CHANNEL END 0286 00517000 * INDICATES AN ERROR WHILE 0286 00518000 * TRANSFERING THE COMMAND. THIS 00519000 * CAN BE RETRIED. */ 00520000 * 0286 00521000 B RETRY5 0286 00522000 * /*****************************************************************/ 00523000 * /* */ 00524000 * /* PROCESS PROGRAMMING ERRORS (NO MESSAGE OR LOG) */ 00525000 * /* */ 00526000 * /*****************************************************************/ 00527000 * 0287 00528000 *PROGERR: 0287 00529000 * IOSERR=OFF; /* CLEAR ERP IN CONTROL */ 00530000 PROGERR NI IOSERR(IOSBPTR),B'11011111' 0287 00531000 * RFY 0288 00532000 * R1 RSTD; 0288 00533000 * R1=IOSBPTR; 0289 00534000 LR R1,IOSBPTR 0289 00535000 * SVC(EREXCP); /* AND EXIT WITHOUT MESSAGE OR 0290 00536000 * LOG */ 00537000 SVC 15 0290 00538000 * SVC(EXITSVC); 0291 00539000 SVC 3 0291 00540000 * RFY 0292 00541000 * R1 UNRSTD; 0292 00542000 * 0292 00543000 * /*****************************************************************/ 00544000 * /* */ 00545000 * /* PROCESS CHANNEL DATA CHECK */ 00546000 * /* */ 00547000 * /*****************************************************************/ 00548000 * 0293 00549000 *CHANDATA: 0293 00550000 * CDCUP=ON; /* TURN ON BIT FOR STATISTICS 0293 00551000 * UPDATE */ 00552000 CHANDATA OI CDCUP(EWAPTR),B'00000001' 0293 00553000 * CSWCDK=OFF; /* CLEAR STATUS BIT IN CSW */ 00554000 NI CSWCDK(IOSBPTR),B'11110111' 0294 00555000 * GOTO RETRY5; 0295 00556000 * 0295 00557000 B RETRY5 0295 00558000 * /*****************************************************************/ 00559000 * /* */ 00560000 * /* OK IS THE EXIT USED AFTER CORRECTING THE ERROR. THIS IS */ 00561000 * /* USUALLY THE FINAL EXIT FROM THE ERP AFTER CE DE AT THE END OF */ 00562000 * /* THE CHANNEL PROGRAM. HOWEVER IT IS ALSO TAKEN WHEN UEX OR IL */ 00563000 * /* IS DETECTED AFTER RECOVERING FROM A PREVIOUS ERROR IN ORDER TO*/ 00564000 * /* ALLOW THE USERS CE APPENDAGE TO SEE THE UEX OR IL. */ 00565000 * /* */ 00566000 * /*****************************************************************/ 00567000 * 0296 00568000 *OK: 0296 00569000 * IOSERR=OFF; /* INDICATE ERROR CORRECTED */ 00570000 OK DS 0H 0297 00571000 * IOSEX=OFF; 0297 00572000 NI IOSERR(IOSBPTR),B'11011011' 0297 00573000 * IF CSWUEX=OFF THEN /* IF NOT UNIT EXCEPTION @ZA11602*/ 00574000 TM CSWUEX(IOSBPTR),B'00000001' 0298 00575000 BNZ @RF00298 0298 00576000 * CSWSTBYT=CEDE; /* CLEAR STATUS TO NORMAL 0299 00577000 * @Z40MSWH*/ 00578000 MVC CSWSTBYT(2,IOSBPTR),@CB03111 0299 00579000 * IF BOPARSW=ON THEN /* CK FOR TEMP BUS OUT PARITY 0300 00580000 * ERROR @Z40MSWH*/ 00581000 @RF00298 TM BOPARSW(EWAPTR),B'00000001' 0300 00582000 BNO @RF00300 0300 00583000 * DO; 0301 00584000 * IOSLOG=ON; /* OBR RECORDING @Z40MSWH*/ 00585000 OI IOSLOG(IOSBPTR),B'00000001' 0302 00586000 * EWACNTRS='00000000'X; /* CLEAR ERROR COUNTS AND FLAGS 00587000 * @Z40MSWH*/ 00588000 MVC EWACNTRS(4,EWAPTR),@CB03204 0303 00589000 * EWUBUSO=ON; /* INDICATE BUS OUT PARITY ERROR 00590000 * IN SENSE @Z40MSWH*/ 00591000 OI EWUBUSO(EWAPTR),B'00100000' 0304 00592000 * RFY 0305 00593000 * (RD, 0305 00594000 * R1, 0305 00595000 * RE) RSTD; 0305 00596000 * RD=ERPMDR; /* CODE FOR OBR ROUTINE @Z40MSWH*/ 00597000 LA RD,256 0306 00598000 * RE=CVTXTLER; /* ADDR OF ERP XCTL ROUTINE 0307 00599000 * @Z40MSWH*/ 00600000 L @12,CVTPTR 0307 00601000 L RE,CVTXTLER(,@12) 0307 00602000 * R1=IOSBPTR; /* PT TO IOSB @Z40MSWH*/ 00603000 LR R1,IOSBPTR 0308 00604000 * GEN REFS(RE)(BR RE); /* PASS CTL TO OBR RECORDER 0309 00605000 * @Z40MSWH*/ 00606000 BR RE 00607000 * RFY 0310 00608000 * (RD, 0310 00609000 * R1, 0310 00610000 * RE) UNRSTD; 0310 00611000 * END; 0311 00612000 * EWACNTRS='00000000'X; /* CLEAR ERROR COUNTS & FLAGS */ 00613000 @RF00300 MVC EWACNTRS(4,EWAPTR),@CB03204 0312 00614000 *STATOR15: /* DETERMINE IF THE STATISTICS 0313 00615000 * TABLE NEEDS UPDATING */ 00616000 * ENTFLAG=OFF; /* TURN OFF ENTRY FLAG @Z40MSWH*/ 00617000 STATOR15 NI ENTFLAG(EWAPTR),B'01111111' 0313 00618000 * IF EWASTUP='0000'X THEN 0314 00619000 CLC EWASTUP(2,EWAPTR),@CB03207 0314 00620000 BNE @RF00314 0314 00621000 * DO; /* BYPASS STATISTICS UPDATE */ 00622000 * RFY 0316 00623000 * R1 RSTD; 0316 00624000 * R1=IOSBPTR; 0317 00625000 LR R1,IOSBPTR 0317 00626000 * SVC(EREXCP); 0318 00627000 SVC 15 0318 00628000 * SVC(EXITSVC); 0319 00629000 SVC 3 0319 00630000 * RFY 0320 00631000 * R1 UNRSTD; 0320 00632000 * END; 0321 00633000 *XCTLSTAT: 0322 00634000 * RFY 0322 00635000 * (RD, 0322 00636000 * R1, 0322 00637000 * RE) RSTD; 0322 00638000 @RF00314 DS 0H 0322 00639000 XCTLSTAT DS 0H 0323 00640000 * RD=STATUP; /* REG 13 = CODE FOR STAT MODULE */ 00641000 LA RD,254 0323 00642000 * RE=CVTXTLER; /* REG 14= ADDR OF ERP XCTL 0324 00643000 * ROUTINE */ 00644000 L @12,CVTPTR 0324 00645000 L RE,CVTXTLER(,@12) 0324 00646000 * R1=IOSBPTR; 0325 00647000 LR R1,IOSBPTR 0325 00648000 * GEN REFS(RE)(BR RE); 0326 00649000 BR RE 00650000 * RFY 0327 00651000 * (RD, 0327 00652000 * R1, 0327 00653000 * RE) UNRSTD; 0327 00654000 * 0327 00655000 * /*****************************************************************/ 00656000 * /* */ 00657000 * /* PROCESS CHANNEL 9 */ 00658000 * /* */ 00659000 * /*****************************************************************/ 00660000 * 0328 00661000 *CHAN9: 0328 00662000 * IF IOSDVRID=IOSXCPID /* IF EXCP SET CH9 BIT IN DCB */ 00663000 * THEN 0328 00664000 CHAN9 CLI IOSDVRID(IOSBPTR),X'02' 0328 00665000 BNE @RF00328 0328 00666000 * DO; 0329 00667000 * 0329 00668000 */* ASSUME USER KEY BEFORE ADDRESSING THE DCB VIA THE IOB @ZA29894 */ 00669000 * 0330 00670000 * RFY 0330 00671000 * (R1, 0330 00672000 * RB) RSTD; 0330 00673000 * R1=IOSCKEY; /* LOAD PROT. KEY @ZA33231*/ 00674000 SLR R1,R1 0331 00675000 IC R1,IOSCKEY(,IOSBPTR) 0331 00676000 * GEN(SPKA 0(1)); /* SET USER KEY @ZA29894*/ 00677000 SPKA 0(1) 00678000 * DCBCH9=ON; /* SET CHANNEL NINE FLAG @ZA29894*/ 00679000 L @12,IOBSTPTR 0333 00680000 L @12,DCBPTR(,@12) 0333 00681000 OI DCBCH9+40(@12),B'00100000' 0333 00682000 * RFY 0334 00683000 * (R1, 0334 00684000 * RB) UNRSTD; 0334 00685000 * GEN(MODESET EXTKEY=ZERO); /* RESUME ERP KEY @ZA29894*/ 00686000 MODESET EXTKEY=ZERO 00687000 * END; 0336 00688000 *RESUME: 0337 00689000 * IF IOSCOD=IOSFINTC THEN 0337 00690000 @RF00328 DS 0H 0337 00691000 RESUME CLI IOSCOD(IOSBPTR),X'7E' 0337 00692000 BNE @RF00337 0337 00693000 * DO; 0338 00694000 * CCWPTR=IOSVST; 0339 00695000 L @12,IOSVST(,IOSBPTR) 0339 00696000 ST @12,CCWPTR 0339 00697000 * NEXTCCW=OFF; 0340 00698000 NI NEXTCCW(EWAPTR),B'01111111' 0340 00699000 * IOSCOD=IOSNRMC; 0341 00700000 MVI IOSCOD(IOSBPTR),X'7F' 0341 00701000 * END; 0342 00702000 * ELSE 0343 00703000 * IF CSWDVE=ON /* TEST IF CCW EXECUTED @ZA06694*/ 00704000 * THEN 0343 00705000 B @RC00337 0343 00706000 @RF00337 TM CSWDVE(IOSBPTR),B'00000100' 0343 00707000 BNO @RF00343 0343 00708000 * NEXTCCW=ON; 0344 00709000 OI NEXTCCW(EWAPTR),B'10000000' 0344 00710000 * IF CSWUCK=OFF THEN 0345 00711000 @RF00343 DS 0H 0345 00712000 @RC00337 TM CSWUCK(IOSBPTR),B'00000010' 0345 00713000 BZ @RT00345 0345 00714000 * GO TO RETRY; /* TEST FOR MULTIPLE SENSE */ 00715000 * IF EWUCREJ=ON THEN 0347 00716000 TM EWUCREJ(EWAPTR),B'10000000' 0347 00717000 BO @RT00347 0347 00718000 * GOTO MSGA; /* TEST FOR CMD REJ */ 00719000 * GOTO RETRY; /* RESTART CHANNEL PROGRAM */ 00720000 * 0349 00721000 B RETRY 0349 00722000 * /*****************************************************************/ 00723000 * /* */ 00724000 * /* PROCESS INCORRECT LENGTH */ 00725000 * /* */ 00726000 * /*****************************************************************/ 00727000 * 0350 00728000 *INCORLEN: 0350 00729000 * IF ENTFLAG=ON THEN 0350 00730000 INCORLEN TM ENTFLAG(EWAPTR),B'10000000' 0350 00731000 BO @RT00350 0350 00732000 * GOTO OK; /* IF NOT 1ST ENTRY GIVE NORMAL 00733000 * END APPENDAGE A CHANCE TO 0351 00734000 * CLEAR IT */ 00735000 *CLRERR: 0352 00736000 * IOSERR=OFF; 0352 00737000 CLRERR NI IOSERR(IOSBPTR),B'11011111' 0352 00738000 * GOTO STATOR15; 0353 00739000 * 0353 00740000 B STATOR15 0353 00741000 * /*****************************************************************/ 00742000 * /* */ 00743000 * /* PROCESS UNIT EXCEPTION (CHANNEL 12) */ 00744000 * /* */ 00745000 * /*****************************************************************/ 00746000 * 0354 00747000 *UNITEXCP: 0354 00748000 * IF ENTFLAG=ON THEN 0354 00749000 UNITEXCP TM ENTFLAG(EWAPTR),B'10000000' 0354 00750000 BNO @RF00354 0354 00751000 * DO; /* IF NOT 1ST ENTRY GIVE NORMAL 00752000 * END APPENDAGE A CHANCE TO 0355 00753000 * CLEAR IT */ 00754000 * GOTO OK; 0356 00755000 B OK 0356 00756000 * END; 0357 00757000 * IF IOSDVRID=IOSXCPID THEN 0358 00758000 @RF00354 CLI IOSDVRID(IOSBPTR),X'02' 0358 00759000 BNE @RF00358 0358 00760000 * DO; 0359 00761000 * 0359 00762000 */* ASSUME USER KEY BEFORE UPDATING DCB VIA THE IOB */ 00763000 * 0360 00764000 * RFY 0360 00765000 * (R1, 0360 00766000 * RB) RSTD; 0360 00767000 * R1=IOSCKEY; /* GET PROT. KEY @ZA33231*/ 00768000 SLR R1,R1 0361 00769000 IC R1,IOSCKEY(,IOSBPTR) 0361 00770000 * GEN(SPKA 0(1)); /* ASSUME USER KEY @ZA29894*/ 00771000 SPKA 0(1) 00772000 * DCBCH12=ON; /* TURN ON DCB FLAG FOR EXCP ONLY*/ 00773000 L @12,IOBSTPTR 0363 00774000 L @12,DCBPTR(,@12) 0363 00775000 OI DCBCH12+40(@12),B'00010000' 0363 00776000 * RFY 0364 00777000 * (R1, 0364 00778000 * RB) UNRSTD; 0364 00779000 * GEN(MODESET EXTKEY=ZERO); /* RETURN TO KEY ZERO @ZA29894*/ 00780000 MODESET EXTKEY=ZERO 00781000 * END; 0366 00782000 * GOTO RESUME; /* GO TO ADJUST CCWPTR & RESTART */ 00783000 * 0367 00784000 B RESUME 0367 00785000 * /*****************************************************************/ 00786000 * /* */ 00787000 * /* PROCESS UCS PARITY ERRORS & EQUIPMENT CHECKS (1403) */ 00788000 * /* */ 00789000 * /*****************************************************************/ 00790000 * 0368 00791000 *UCSPAR: 0368 00792000 * IF CCWCMD=UCSLDF|CCWCMD=UCSLDNF THEN 0368 00793000 UCSPAR L @12,CCWPTR 0368 00794000 CLI CCWCMD(@12),X'F3' 0368 00795000 BE @RT00368 0368 00796000 CLI CCWCMD(@12),X'FB' 0368 00797000 BE @RT00368 0368 00798000 * GO TO RETRY5; /* JUST RETRY UCS LOAD COMMANDS */ 00799000 *UCSEQCK: 0370 00800000 * UCBUCSID=' '; /* CLEAR IMAGE NAME IN UCSB TO 0370 00801000 * FORCE RELOAD ON NEXT OPEN */ 00802000 UCSEQCK L @12,UCBPTR 0370 00803000 L @12,UCBXTADR(,@12) 0370 00804000 MVI UCBUCSID+1(@12),C' ' 0370 00805000 MVC UCBUCSID+2(2,@12),UCBUCSID+1(@12) 0370 00806000 MVI UCBUCSID(@12),C' ' 0370 00807000 * GOTO LOG$MSG; 0371 00808000 * 0371 00809000 B LOG$MSG 0371 00810000 * /*****************************************************************/ 00811000 * /* */ 00812000 * /* WRITE TO OPERATOR & LOG */ 00813000 * /* */ 00814000 * /*****************************************************************/ 00815000 * 0372 00816000 *LOG$MSG: 0372 00817000 * IF UCBSYSR=ON THEN 0372 00818000 LOG$MSG L @12,UCBPTR 0372 00819000 TM UCBSYSR(@12),B'00000010' 0372 00820000 BNO @RF00372 0372 00821000 * DO; 0373 00822000 * IOSCOD=IOSNRMC; 0374 00823000 MVI IOSCOD(IOSBPTR),X'7F' 0374 00824000 * GO TO RETRY5; /* ALWAYS TRY CONSOLES 5 TIMES */ 00825000 B RETRY5 0375 00826000 * END; 0376 00827000 *LOG$MSGA: 0377 00828000 * CHDTSW=OFF; /* TURN OFF CHANNEL DATA CK STAT 00829000 * SW @Z40MSWH*/ 00830000 @RF00372 DS 0H 0377 00831000 LOG$MSGA DS 0H 0378 00832000 * CHCTSW=OFF; /* TURN OFF CHANNEL CTL CK STAT 00833000 * SW @Z40MSWH*/ 00834000 * ICKSW=OFF; /* TURN OFF INTERFACE CTL CK STAT 00835000 * SW @Z40MSWH*/ 00836000 NI CHDTSW(EWAPTR),B'11100011' 0379 00837000 * IOSLOG=ON; /* LOG NEEDED */ 00838000 OI IOSLOG(IOSBPTR),B'00000001' 0380 00839000 *MSGA: 0381 00840000 * IOSMSG=ON; /* PERM I/O ERROR MSG NEEDED */ 00841000 MSGA OI IOSMSG(IOSBPTR),B'00000100' 0381 00842000 * IOSERR=OFF; /* TURN OFF ERP IN CTL SW */ 00843000 NI IOSERR(IOSBPTR),B'11011111' 0382 00844000 * ENTFLAG=OFF; /* TURN OFF ERP ENTERED SW */ 00845000 NI ENTFLAG(EWAPTR),B'01111111' 0383 00846000 * IF BUFFLAG=ON THEN /* BUFFER READ OR RELOAD FAILED. 00847000 * RESTORE ORIGINAL ERROR BEFORE 00848000 * XCTLING TO WTO */ 00849000 TM BUFFLAG(EWAPTR),B'00010000' 0384 00850000 BNO @RF00384 0384 00851000 * DO; 0385 00852000 * IOSCKEY=RSTCKEY; /* RESTORE PROTECT KEY */ 00853000 MVC IOSCKEY(1,IOSBPTR),RSTCKEY 0386 00854000 * EWUMAP(1:6)=RSTSNS; /* RESTORE SENSE BYTES */ 00855000 MVC EWUMAP(6,EWAPTR),RSTSNS 0387 00856000 * IOSSNS=RSTSNS(1:2); /* RESTORE SENSE BYTES TO IOSB */ 00857000 MVC IOSSNS(2,IOSBPTR),RSTSNS 0388 00858000 * IOSCSW=RSTCSW; /* RESTORE CSW */ 00859000 MVC IOSCSW(7,IOSBPTR),RSTCSW 0389 00860000 * END; 0390 00861000 *WTOXCTL: /* UNIQUE LINKAGE TO ERP WTO 0391 00862000 * MODULE */ 00863000 * RFY 0391 00864000 * (RD, 0391 00865000 * R1, 0391 00866000 * RE) RSTD; 0391 00867000 @RF00384 DS 0H 0391 00868000 WTOXCTL DS 0H 0392 00869000 * RD=ERPWTO; /* REG 13 = CODE FOR WTO MODULE */ 00870000 LA RD,253 0392 00871000 * RE=CVTXTLER; /* REG 14 = ADDR OF ERP XCTL 0393 00872000 * ROUTINE */ 00873000 L @12,CVTPTR 0393 00874000 L RE,CVTXTLER(,@12) 0393 00875000 * R1=IOSBPTR; 0394 00876000 LR R1,IOSBPTR 0394 00877000 * GEN REFS(RE)(BR RE); 0395 00878000 BR RE 00879000 * RFY 0396 00880000 * (RD, 0396 00881000 * R1, 0396 00882000 * RE) UNRSTD; 0396 00883000 *RETRY5: /* THIS WILL CAUSE AN ERROR TO BE 00884000 * RETRIED UP TO 5 TIMES */ 00885000 * EWACNTR4=EWACNTR4+1; 0397 00886000 RETRY5 LA @12,1 0397 00887000 SLR @11,@11 0397 00888000 IC @11,EWACNTR4(,EWAPTR) 0397 00889000 ALR @12,@11 0397 00890000 STC @12,EWACNTR4(,EWAPTR) 0397 00891000 * IF EWACNTR4>=CONRTRY THEN 0398 00892000 CLI EWACNTR4(EWAPTR),5 0398 00893000 BNL @RT00398 0398 00894000 * GOTO LOG$MSGA; 0399 00895000 * 0399 00896000 * /*****************************************************************/ 00897000 * /* */ 00898000 * /* COMMON RETRY PATH WILL INCREMENT AND TEST COUNTERS , DETERMINE*/ 00899000 * /* PROPER CCW TO RESTART ON, & EITHER EXIT VIA SVC15 SVC3 OR, IF */ 00900000 * /* AN INTERVENTION REQUIRED MESSAGE IS NEEDED, XCTL TO WTO */ 00901000 * /* */ 00902000 * /*****************************************************************/ 00903000 * 0400 00904000 *RETRY: 0400 00905000 * ENTFLAG=ON; /* INDICATE THAT ERP HAS BEEN 0400 00906000 * ENTERED */ 00907000 RETRY OI ENTFLAG(EWAPTR),B'10000000' 0400 00908000 * IF IOSCOD=IOSFINTC /* IF COMPLETION CODE IS STILL 0401 00909000 * INTERCEPT THEN PERMANENT ERROR*/ 00910000 * THEN 0401 00911000 CLI IOSCOD(IOSBPTR),X'7E' 0401 00912000 BE @RT00401 0401 00913000 * GOTO LOG$MSG; 0402 00914000 * IF CCWPTR<=0 THEN 0403 00915000 L @12,CCWPTR 0403 00916000 LTR @12,@12 0403 00917000 BNP @RT00403 0403 00918000 * GO TO TESTIRQ; 0404 00919000 * IF NEXTCCW=ON /* CHECK WHERE TO RESTART */ 00920000 * THEN 0405 00921000 TM NEXTCCW(EWAPTR),B'10000000' 0405 00922000 BNO @RF00405 0405 00923000 * DO; 0406 00924000 * IF CCWCC=OFF THEN /* CCW COMMAND CHAINING @Z40MSWH*/ 00925000 TM CCWCC(@12),B'01000000' 0407 00926000 BNZ @RF00407 0407 00927000 * DO; 0408 00928000 * CSWUCK=OFF; /* NO- CCW CHAIN COMPLETED 0409 00929000 * @Z40MSWH*/ 00930000 * CSWUEX=OFF; /* UNIT EXCEPTION OFF @ZA18326*/ 00931000 NI CSWUCK(IOSBPTR),B'11111100' 0410 00932000 * GOTO OK; /* ASKED TO RESTART PAST END SO 00933000 * CP WAS ENDED */ 00934000 B OK 0411 00935000 * END; 0412 00936000 * CCWPTR=CCWPTR+8; /* MOVE POINTER TO NEXT CCW */ 00937000 @RF00407 LA @12,8 0413 00938000 AL @12,CCWPTR 0413 00939000 ST @12,CCWPTR 0413 00940000 * IF CCWRDWT=NOTRDWT THEN /* TEST FOR A TIC @Z40MSWH*/ 00941000 TM CCWRDWT(@12),B'00000111' 0414 00942000 BNZ @RF00414 0414 00943000 * DO; 0415 00944000 * IOSRST=CCWADDR; /* GET REAL ADDRESS OF NEXT CCW */ 00945000 L @12,CCWADDR-1(,@12) 0416 00946000 LA @12,0(,@12) 0416 00947000 ST @12,IOSRST(,IOSBPTR) 0416 00948000 * GOTO TESTIRQ; /* BYPASS V TO R CONVERSION */ 00949000 B TESTIRQ 0417 00950000 * END; 0418 00951000 * END; 0419 00952000 @RF00414 DS 0H 0420 00953000 * IF CCWPTR^=IOSVST /* CHECK IF REAL START STILL GOOD*/ 00954000 * THEN 0420 00955000 @RF00405 L @12,CCWPTR 0420 00956000 C @12,IOSVST(,IOSBPTR) 0420 00957000 BE @RF00420 0420 00958000 * DO; /* COMPUTE NEW REAL START ADDRESS*/ 00959000 * RFY 0422 00960000 * R3 RSTD; 0422 00961000 * R3=CCWPTR; /* FOR COMVERTING TO REAL ADDR */ 00962000 LR R3,@12 0423 00963000 * GEN REFS(R3,R3)(LRA R3,0(R3)); 0424 00964000 LRA R3,0(R3) 00965000 * IOSRST=R3; /* SET REAL ADDR FOR RESTART */ 00966000 ST R3,IOSRST(,IOSBPTR) 0425 00967000 * RFY 0426 00968000 * R3 UNRSTD; 0426 00969000 * END; 0427 00970000 *TESTIRQ: /* IF INTERVENTION IS REQUIRED 0428 00971000 * BRANCH TO PUT OUT MESSAGE */ 00972000 * IF IRQFLAG=ON THEN /* REAL INTERVENTION REQUIRED 0428 00973000 * @ZA15058*/ 00974000 @RF00420 DS 0H 0428 00975000 TESTIRQ TM IRQFLAG(EWAPTR),B'01000000' 0428 00976000 BO @RT00428 0428 00977000 * GOTO WTOXCTL; 0429 00978000 * 0429 00979000 */* IF PSEUDO INTERVENTION REQ. AND NOT A REAL INTERVENTION REQ., 0430 00980000 * THEN ISSUE MESSAGE (IF REAL, MESSAGE ALREADY ISSUED)@ZA15058 */ 00981000 * 0430 00982000 * IF PSEUDOIR=ON&EWUINT=OFF THEN 0430 00983000 TM PSEUDOIR(EWAPTR),B'00100000' 0430 00984000 BNO @RF00430 0430 00985000 TM EWUINT(EWAPTR),B'01000000' 0430 00986000 BNZ @RF00430 0430 00987000 * DO; 0431 00988000 * PSEUDOIR=OFF; 0432 00989000 NI PSEUDOIR(EWAPTR),B'11011111' 0432 00990000 * GOTO WTOXCTL; 0433 00991000 B WTOXCTL 0433 00992000 * END; 0434 00993000 * ELSE 0435 00994000 * ; 0435 00995000 @RF00430 DS 0H 0436 00996000 * RFY 0436 00997000 * R1 RSTD; 0436 00998000 * R1=IOSBPTR; 0437 00999000 LR R1,IOSBPTR 0437 01000000 * SVC(EREXCP); /* OTHERWISE RETRY WITH SVC15 0438 01001000 * SVC3 */ 01002000 SVC 15 0438 01003000 * SVC(EXITSVC); 0439 01004000 SVC 3 0439 01005000 * RFY 0440 01006000 * R1 UNRSTD; 0440 01007000 *ZEROSTAT: 0441 01008000 * 0441 01009000 */* NORMAL RETURN AFTER RESTART @Z40MSWH */ 01010000 * 0441 01011000 * IF CHDTSW=ON THEN /* TEST CHANNEL DATA CK STAT SW 01012000 * @Z40MSWH*/ 01013000 ZEROSTAT TM CHDTSW(EWAPTR),B'00000100' 0441 01014000 BNO @RF00441 0441 01015000 * CHDTSTAT=ON; /* TURN ON CHAN DATA CK STAT INDR 01016000 * @Z40MSWH*/ 01017000 OI CHDTSTAT(EWAPTR),B'01000000' 0442 01018000 * IF ICKSW=ON THEN /* TEST INTERFACE CTL CK STAT SW 01019000 * @Z40MSWH*/ 01020000 @RF00441 TM ICKSW(EWAPTR),B'00010000' 0443 01021000 BNO @RF00443 0443 01022000 * INTCSTAT=ON; /* TURN ON INTERFACE CTL CK STAT 01023000 * INDR @Z40MSWH*/ 01024000 OI INTCSTAT(EWAPTR),B'00010000' 0444 01025000 * IF CHCTSW=ON THEN /* TEST CHANNEL CONTROL CK STAT 01026000 * SW @Z40MSWH*/ 01027000 @RF00443 TM CHCTSW(EWAPTR),B'00001000' 0445 01028000 BNO @RF00445 0445 01029000 * CHCSTAT=ON; /* TURN ON CHANNEL CTL CK STAT 0446 01030000 * INDR @Z40MSWH*/ 01031000 OI CHCSTAT(EWAPTR),B'00100000' 0446 01032000 * CHDTSW=OFF; /* CLEAR CHANNEL DATA CK STAT SW 01033000 * @Z40MSWH*/ 01034000 @RF00445 DS 0H 0448 01035000 * ICKSW=OFF; /* CLEAR INTERFACE CTL CK STAT SW 01036000 * @Z40MSWH*/ 01037000 * CHCTSW=OFF; /* CLEAR CHANNEL CTL CK STAT SW 01038000 * @Z40MSWH*/ 01039000 NI CHDTSW(EWAPTR),B'11100011' 0449 01040000 * IF BUFFLAG=ON /* ERP INITIATED I/O */ 01041000 * THEN 0450 01042000 TM BUFFLAG(EWAPTR),B'00010000' 0450 01043000 BO @RT00450 0450 01044000 * GOTO BUFREAD3; /* IF SO PROCESS DATA READ */ 01045000 * ELSE 0452 01046000 * DO; 0452 01047000 * IOSLOG=OFF; /* TURN OFF LOG BIT @ZA19714*/ 01048000 NI IOSLOG(IOSBPTR),B'11111110' 0453 01049000 * EWAMDR=OFF; /* TURN OFF MDR RECORD BIT 0454 01050000 * @ZA19714*/ 01051000 NI EWAMDR(EWAPTR),B'01111111' 0454 01052000 * GOTO OK; /* IF NOT RECOVERY WAS SUCCESSFUL 01053000 * AND THE CHANNEL PROGRAM HAS 0455 01054000 * COME TO ITS NORMAL END */ 01055000 B OK 0455 01056000 * END; 0456 01057000 *ZEROSNS: 0457 01058000 * IF EWUSUPR=ON /* IF FIRST SENSE BYTE WAS ALL 0457 01059000 * ZERO RETRY ONLY IF 3211 0457 01060000 * SUPPRESSED THE COMMAND */ 01061000 * THEN 0457 01062000 ZEROSNS TM EWUSUPR(EWAPTR),B'00000100' 0457 01063000 BO @RT00457 0457 01064000 * GO TO RETRY5; 0458 01065000 * ELSE 0459 01066000 * GOTO LOG$MSG; 0459 01067000 * 0459 01068000 B LOG$MSG 0459 01069000 * /*****************************************************************/ 01070000 * /* */ 01071000 * /* PROCESS 3211 EQUIPMENT CHECKS */ 01072000 * /* */ 01073000 * /*****************************************************************/ 01074000 * 0460 01075000 *EQCK3211: 0460 01076000 * IF EWUMECMO^=ON THEN /* @ZA05625*/ 01077000 EQCK3211 TM EWUMECMO(EWAPTR),B'00000010' 0460 01078000 BNO @RT00460 0460 01079000 * GOTO LNPOSCK; /* @ZA05625*/ 01080000 * IF IOSCOD=IOSFINTC THEN /* @ZA05625*/ 01081000 CLI IOSCOD(IOSBPTR),X'7E' 0462 01082000 BE @RT00462 0462 01083000 * GOTO LOG$MSG; /* @ZA05625*/ 01084000 * ELSE 0464 01085000 * ; /* @ZA05625*/ 01086000 * DO; 0465 01087000 * PLBFLAG=ON; /* REQUEST READ OF PLB AND UCSB */ 01088000 OI PLBFLAG(EWAPTR),B'00001000' 0466 01089000 * CKRFLAG=ON; /* @ZA02179*/ 01090000 OI CKRFLAG(EWAPTR),B'01000000' 0467 01091000 * UCSBFLAG=ON; 0468 01092000 OI UCSBFLAG(EWAPTR),B'00000100' 0468 01093000 * GOTO BUFREAD1; 0469 01094000 B BUFREAD1 0469 01095000 * END; 0470 01096000 *LNPOSCK: /* @ZA05625*/ 01097000 * IF EWULNPOS=ON|EWUPQ=ON THEN 0471 01098000 * 0471 01099000 LNPOSCK TM EWULNPOS(EWAPTR),B'00110000' 0471 01100000 BZ @RF00471 0471 01101000 * /***************************************************************/ 01102000 * /* */ 01103000 * /* SIMULATE INTERVENTION REQUIRED TO LET OPERATOR LOOK AT */ 01104000 * /* RESULT. THEN HE CAN LET JOB CONTINUE OR HIT CANCEL KEY. */ 01105000 * /* */ 01106000 * /***************************************************************/ 01107000 * 0472 01108000 * DO; 0472 01109000 * IF CSWDVE=ON THEN 0473 01110000 TM CSWDVE(IOSBPTR),B'00000100' 0473 01111000 BNO @RF00473 0473 01112000 * DO; /* IF DE THEN ADD 8 TO THE CCWPTR 01113000 * @ZA09367*/ 01114000 * NEXTCCW=ON; 0475 01115000 OI NEXTCCW(EWAPTR),B'10000000' 0475 01116000 * IF IOSCOD=IOSFINTC THEN /* IF INTERCEPT @ZA32165*/ 01117000 CLI IOSCOD(IOSBPTR),X'7E' 0476 01118000 BNE @RF00476 0476 01119000 * DO; 0477 01120000 * IOSCOD=IOSNRMC; /* SET COMP.CODE TO NORMAL 0478 01121000 * @ZA32165*/ 01122000 MVI IOSCOD(IOSBPTR),X'7F' 0478 01123000 * NEXTCCW=OFF; /* START AT TOP OF C.P. @ZA32165*/ 01124000 NI NEXTCCW(EWAPTR),B'01111111' 0479 01125000 * CCWPTR=IOSVST; /* GET START CCW @ZA32165*/ 01126000 L @12,IOSVST(,IOSBPTR) 0480 01127000 ST @12,CCWPTR 0480 01128000 * END; 0481 01129000 * ELSE 0482 01130000 * ; 0482 01131000 @RF00476 DS 0H 0483 01132000 * END; 0483 01133000 * PSEUDOIR=ON; /* @ZA15058*/ 01134000 @RF00473 OI PSEUDOIR(EWAPTR),B'00100000' 0484 01135000 * IOSLOG=ON; /* @ZA18247*/ 01136000 OI IOSLOG(IOSBPTR),B'00000001' 0485 01137000 * GO TO RETRY; 0486 01138000 B RETRY 0486 01139000 * END; 0487 01140000 * IF EWUPCK=ON THEN 0488 01141000 * 0488 01142000 @RF00471 TM EWUPCK(EWAPTR),B'01000000' 0488 01143000 BNO @RF00488 0488 01144000 * /***************************************************************/ 01145000 * /* */ 01146000 * /* TURN ON PSEUDO INTERVENTION REQ FOR PRINT CHECK ZA02179 */ 01147000 * /* */ 01148000 * /***************************************************************/ 01149000 * 0489 01150000 * DO; 0489 01151000 * PSEUDOIR=ON; /* @ZA15058*/ 01152000 OI PSEUDOIR(EWAPTR),B'00100000' 0490 01153000 * IF CSWDVE=ON THEN 0491 01154000 * 0491 01155000 TM CSWDVE(IOSBPTR),B'00000100' 0491 01156000 BNO @RF00491 0491 01157000 * /***********************************************************/ 01158000 * /* */ 01159000 * /* IF DE THEN ADD 8 TO THE CCWPTR ZA15058 */ 01160000 * /* */ 01161000 * /***********************************************************/ 01162000 * 0492 01163000 * NEXTCCW=ON; 0492 01164000 OI NEXTCCW(EWAPTR),B'10000000' 0492 01165000 * ELSE 0493 01166000 * ; 0493 01167000 @RF00491 DS 0H 0494 01168000 * END; /* @ZA15058*/ 01169000 * IF EWUCRTRY=ON|EWUPCK=ON THEN 0495 01170000 @RF00488 TM EWUCRTRY(EWAPTR),B'11000000' 0495 01171000 BZ @RF00495 0495 01172000 * DO; 0496 01173000 * PLBFLAG=ON; 0497 01174000 OI PLBFLAG(EWAPTR),B'00001000' 0497 01175000 * CKRFLAG=ON; 0498 01176000 OI CKRFLAG(EWAPTR),B'01000000' 0498 01177000 * GOTO BUFREAD1; 0499 01178000 B BUFREAD1 0499 01179000 * END; 0500 01180000 * IF CSWDVE=ON THEN 0501 01181000 * 0501 01182000 @RF00495 TM CSWDVE(IOSBPTR),B'00000100' 0501 01183000 BNO @RF00501 0501 01184000 * /***************************************************************/ 01185000 * /* */ 01186000 * /* IF DE THEN ADD 8 TO THE CCWPTR @ZA09367*/ 01187000 * /* */ 01188000 * /***************************************************************/ 01189000 * 0502 01190000 * NEXTCCW=ON; 0502 01191000 OI NEXTCCW(EWAPTR),B'10000000' 0502 01192000 * ELSE 0503 01193000 * ; 0503 01194000 @RF00501 DS 0H 0504 01195000 * IOSLOG=ON; /* TO RECORD SOFT ERRORS */ 01196000 OI IOSLOG(IOSBPTR),B'00000001' 0504 01197000 * GOTO RETRY; 0505 01198000 * 0505 01199000 B RETRY 0505 01200000 * /*****************************************************************/ 01201000 * /* */ 01202000 * /* PROCESS 3211 DATA CHECKS */ 01203000 * /* */ 01204000 * /*****************************************************************/ 01205000 * 0506 01206000 *DTCK3211: 0506 01207000 * IF EWULNPOS=ON THEN /* DATA CHECK & LINE POSITION 0506 01208000 * REQUIRE FCB RECORDING */ 01209000 DTCK3211 TM EWULNPOS(EWAPTR),B'00010000' 0506 01210000 BNO @RF00506 0506 01211000 * DO; 0507 01212000 * FCBFLAG=ON; /* READ FCB */ 01213000 OI FCBFLAG(EWAPTR),B'00000010' 0508 01214000 * PSEUDOIR=ON; /* ISSUE MSG AFTER BUF.READ 0509 01215000 * OZ25629 */ 01216000 OI PSEUDOIR(EWAPTR),B'00100000' 0509 01217000 * GOTO BUFREAD1; 0510 01218000 B BUFREAD1 0510 01219000 * END; 0511 01220000 * IF EWUPCK=ON THEN 0512 01221000 @RF00506 TM EWUPCK(EWAPTR),B'01000000' 0512 01222000 BNO @RF00512 0512 01223000 * DO; 0513 01224000 * PLBFLAG=ON; 0514 01225000 OI PLBFLAG(EWAPTR),B'00001000' 0514 01226000 * CKRFLAG=ON; /* @ZA02179*/ 01227000 OI CKRFLAG(EWAPTR),B'01000000' 0515 01228000 * UCSBFLAG=ON; 0516 01229000 OI UCSBFLAG(EWAPTR),B'00000100' 0516 01230000 * GOTO BUFREAD1; 0517 01231000 B BUFREAD1 0517 01232000 * END; 0518 01233000 * GOTO LOG$MSG; 0519 01234000 * 0519 01235000 B LOG$MSG 0519 01236000 * /*****************************************************************/ 01237000 * /* */ 01238000 * /* PROCESS BUFFER PARITY ERRORS FOR 3211S */ 01239000 * /* */ 01240000 * /*****************************************************************/ 01241000 * 0520 01242000 *BUFP3211: 0520 01243000 * IF EWUFCBP='1'B THEN /* FCB PARITY ERROR @ZA25081*/ 01244000 BUFP3211 TM EWUFCBP(EWAPTR),B'00100000' 0520 01245000 BNO @RF00520 0520 01246000 * UCBFCBP=ON; /* SET FCB PARITY FLAG IN UCB 0521 01247000 * @ZA25081*/ 01248000 L @12,UCBPTR 0521 01249000 L @12,UCBXTADR(,@12) 0521 01250000 OI UCBFCBP+5(@12),B'00000001' 0521 01251000 * ELSE 0522 01252000 * ; /* @ZA25081*/ 01253000 @RF00520 DS 0H 0523 01254000 * LOADFLAG=ON; /* REQUEST BUFFER RELOADING */ 01255000 OI LOADFLAG(EWAPTR),B'00000001' 0523 01256000 * IF EWULNPOS=ON THEN 0524 01257000 TM EWULNPOS(EWAPTR),B'00010000' 0524 01258000 BNO @RF00524 0524 01259000 * DO; 0525 01260000 * FCBFLAG=ON; 0526 01261000 OI FCBFLAG(EWAPTR),B'00000010' 0526 01262000 * GO TO BUFREAD1; 0527 01263000 B BUFREAD1 0527 01264000 * END; 0528 01265000 * IF EWUCRTRY=ON THEN 0529 01266000 @RF00524 TM EWUCRTRY(EWAPTR),B'10000000' 0529 01267000 BNO @RF00529 0529 01268000 * DO; 0530 01269000 * UCSBFLAG=ON; 0531 01270000 OI UCSBFLAG(EWAPTR),B'00000100' 0531 01271000 * GOTO BUFREAD1; 0532 01272000 B BUFREAD1 0532 01273000 * END; 0533 01274000 * IF CCWCMD^=UCSLDNF&CCWCMD^=FCBLD&(CCWCMD&'03'X)^='02'X THEN 0534 01275000 @RF00529 L @12,CCWPTR 0534 01276000 CLI CCWCMD(@12),X'FB' 0534 01277000 BE @RF00534 0534 01278000 CLI CCWCMD(@12),X'63' 0534 01279000 BE @RF00534 0534 01280000 MVC @TS00001(1),CCWCMD(@12) 0534 01281000 NI @TS00001,X'03' 0534 01282000 CLI @TS00001,X'02' 0534 01283000 BNE @RT00534 0534 01284000 * GOTO LOG$MSG; 0535 01285000 * IF BUFFLAG=ON THEN 0536 01286000 @RF00534 TM BUFFLAG(EWAPTR),B'00010000' 0536 01287000 BO @RT00536 0536 01288000 * GOTO RETRY5; 0537 01289000 * EWUCRTRY=ON; 0538 01290000 OI EWUCRTRY(EWAPTR),B'10000000' 0538 01291000 * UCSBFLAG=ON; 0539 01292000 OI UCSBFLAG(EWAPTR),B'00000100' 0539 01293000 * GOTO BUFREAD1; 0540 01294000 * 0540 01295000 B BUFREAD1 0540 01296000 * /*****************************************************************/ 01297000 * /* */ 01298000 * /* PREPARE TO READ BUFFFERS FOR DEVICE DEPENDENT OBR RECORDS */ 01299000 * /* */ 01300000 * /*****************************************************************/ 01301000 * 0541 01302000 *BUFREAD1: /* INITIAL ENTRY-SAVES INFO & 0541 01303000 * GETS WORK AREA */ 01304000 * RSTCKEY=IOSCKEY; /* SET CHANNEL PROGRAM KEY TO 0541 01305000 * ZERO TO ALLOW READING AND 0541 01306000 * WRITING INTO UCB WORK AREA */ 01307000 BUFREAD1 MVC RSTCKEY(1),IOSCKEY(IOSBPTR) 0541 01308000 * IOSCKEY=ZERO; 0542 01309000 MVI IOSCKEY(IOSBPTR),X'00' 0542 01310000 * RSTADDR=CCWPTR; /* SAVE RESTART ADDRESS */ 01311000 L @12,CCWPTR 0543 01312000 ST @12,RSTADDR 0543 01313000 * RSTSNS=EWUMAP(1:6); /* SAVE MAX POSSIBLE SENSE DATA */ 01314000 MVC RSTSNS(6),EWUMAP(EWAPTR) 0544 01315000 * RSTCSW=IOSCSW; /* SAVE CHANNEL STATUS WORD */ 01316000 MVC RSTCSW(7),IOSCSW(IOSBPTR) 0545 01317000 * IF UCBERADR=0 /* VERIFY THAT WORKAREA EXISTS */ 01318000 * THEN 0546 01319000 L @12,UCBPTR 0546 01320000 L @11,UCBXTADR(,@12) 0546 01321000 L @11,UCBERADR(,@11) 0546 01322000 LTR @11,@11 0546 01323000 BZ @RT00546 0546 01324000 * GOTO LOG$MSG; /* QUIT IF IT DOESNT */ 01325000 * OBRPTR=UCBERADR; /* INITIALIZE CONSTANT PARTS OF 01326000 * MDR RECORD */ 01327000 ST @11,OBRPTR 0548 01328000 * DVDPOBR(1:28)='00'X; 0549 01329000 XC DVDPOBR+1(27,@11),DVDPOBR+1(@11) 0549 01330000 MVI DVDPOBR(@11),X'00' 0549 01331000 * OBRID=MDR3211; 0550 01332000 MVI OBRID(@11),X'04' 0550 01333000 * OBRCHA=UCBCHA; 0551 01334000 IC @09,UCBCHA(,@12) 0551 01335000 STC @09,OBRCHA(,@11) 0551 01336000 * OBRUA=UCBUA; /* @ZA05624*/ 01337000 IC @09,UCBUA(,@12) 0552 01338000 STC @09,OBRUA(,@11) 0552 01339000 *BUFREAD2: /* REENTERED HERE AFTER MDR 0553 01340000 * PROCESSING TO SEE IF ANOTHER 01341000 * MDR RECORD OR A BUFFER LOAD IS 01342000 * NEEDED */ 01343000 * IF UCBERADR=0 /* @ZA03666*/ 01344000 * THEN /* @ZA03666*/ 01345000 BUFREAD2 L @12,UCBPTR 0553 01346000 L @12,UCBXTADR(,@12) 0553 01347000 L @11,UCBERADR(,@12) 0553 01348000 LTR @11,@11 0553 01349000 BZ @RT00553 0553 01350000 * GOTO LOG$MSG; /* @ZA03666*/ 01351000 * OBRPTR=UCBERADR; /* GET ADDRESS OF WORKAREA FROM 01352000 * UCB */ 01353000 ST @11,OBRPTR 0555 01354000 * DVDPOBR(4:5)='00'X; /* @ZA05625*/ 01355000 MVI DVDPOBR+4(@11),X'00' 0556 01356000 MVI DVDPOBR+3(@11),X'00' 0556 01357000 * OBRID=MDR3211; /* @ZA07937*/ 01358000 MVI OBRID(@11),X'04' 0557 01359000 * IF FCBFLAG=ON THEN 0558 01360000 TM FCBFLAG(EWAPTR),B'00000010' 0558 01361000 BNO @RF00558 0558 01362000 * DO; /* READ & RECORD FORMAT CONTROL 01363000 * BUFFER */ 01364000 * FCBFLAG=OFF; 0560 01365000 NI FCBFLAG(EWAPTR),B'11111101' 0560 01366000 * OBRSIZE=FCBRLEN; /* LENGTH OF OBR RECORD */ 01367000 MVC OBRSIZE(2,@11),@CH03001 0561 01368000 * OBRFLAG=FCBRFLAG; /* THIS IS AN FCB RECORD */ 01369000 MVI OBRFLAG(@11),X'02' 0562 01370000 * OBRFCBID=UCBFCBID; /* NAME OF IMAGE THAT SHOULD BE 01371000 * LOADED */ 01372000 MVC OBRFCBID(4,@11),UCBFCBID(@12) 0563 01373000 * RFY 0564 01374000 * CCWMAP BASED(ADDR(ERPCCW1)); 0564 01375000 * RFY 0565 01376000 * R3 RSTD; 0565 01377000 * CCWCMD=FCBREAD; /* BUILD READ FCB CCW */ 01378000 LA @12,ERPCCW1 0566 01379000 MVI CCWCMD(@12),X'12' 0566 01380000 * R3=ADDR(OBRFCBA); /* ADDRESS FOR CCW @ZA00643*/ 01381000 LA R3,OBRFCBA(,@11) 0567 01382000 * GEN REFS(R3)(LRA R3,0(R3));/* GET REAL ADDRESS FOR CCW 0568 01383000 * @ZA00643*/ 01384000 LRA R3,0(R3) 01385000 * CCWADDR=R3; 0569 01386000 LA @12,ERPCCW1 0569 01387000 STCM R3,7,CCWADDR(@12) 0569 01388000 * CCWFLAG=TWENTY; /* TURN ON SLI BIT OZ25629 */ 01389000 MVI CCWFLAG(@12),X'20' 0570 01390000 * CCWCOUNT=FCBSIZE; /* SIZE OF FCB */ 01391000 MVC CCWCOUNT(2,@12),@CH02998 0571 01392000 * GOTO READ; 0572 01393000 B READ 0572 01394000 * END; 0573 01395000 * IF UCSBFLAG=ON THEN 0574 01396000 @RF00558 TM UCSBFLAG(EWAPTR),B'00000100' 0574 01397000 BNO @RF00574 0574 01398000 * DO; /* READ AND RECORD UNIVERCAL 0575 01399000 * CHARACTER SET BUFFER */ 01400000 * UCSBFLAG=OFF; 0576 01401000 NI UCSBFLAG(EWAPTR),B'11111011' 0576 01402000 * OBRSIZE=UCSBRLEN; /* LENGTH OF OBR RECORD */ 01403000 L @12,OBRPTR 0577 01404000 MVC OBRSIZE(2,@12),@CH02971 0577 01405000 * OBRFLAG=UCSRFLAG; /* THIS IS A UCSB RECORD */ 01406000 MVI OBRFLAG(@12),X'01' 0578 01407000 * OBRUCSID=UCBUCSID; /* NAME OF IMAGE THAT SHOULD BE 01408000 * LOADED */ 01409000 L @11,UCBPTR 0579 01410000 L @11,UCBXTADR(,@11) 0579 01411000 MVC OBRUCSID(4,@12),UCBUCSID(@11) 0579 01412000 * CCWCMD=UCSBREAD; /* BUILD A READ UCSB CCW */ 01413000 LA @11,ERPCCW1 0580 01414000 MVI CCWCMD(@11),X'0A' 0580 01415000 * R3=ADDR(OBRUCSA); /* ADDRESS FOR CCW @ZA00643*/ 01416000 LA R3,OBRUCSA(,@12) 0581 01417000 * GEN REFS(R3)(LRA R3,0(R3));/* GET REAL ADDRESS FOR CCW 0582 01418000 * @ZA00643*/ 01419000 LRA R3,0(R3) 01420000 * CCWADDR=R3; 0583 01421000 LA @12,ERPCCW1 0583 01422000 STCM R3,7,CCWADDR(@12) 0583 01423000 * CCWFLAG=ZERO; 0584 01424000 MVI CCWFLAG(@12),X'00' 0584 01425000 * CCWCOUNT=UCSBSIZE; 0585 01426000 MVC CCWCOUNT(2,@12),@CH00715 0585 01427000 * GOTO READ; 0586 01428000 B READ 0586 01429000 * END; 0587 01430000 * IF PLBFLAG=ON THEN 0588 01431000 @RF00574 TM PLBFLAG(EWAPTR),B'00001000' 0588 01432000 BNO @RF00588 0588 01433000 * DO; /* READ & RECORD PLB CHECK BYTES 01434000 * AND 1ST 10 DATA BYTES IN ERROR*/ 01435000 * PLBFLAG=OFF; 0590 01436000 NI PLBFLAG(EWAPTR),B'11110111' 0590 01437000 * OBRSIZE=PLBRLEN; /* SIZE OF OBR RECORD */ 01438000 L @12,OBRPTR 0591 01439000 MVC OBRSIZE(2,@12),@CH03004 0591 01440000 * OBRFLAG=PLBRFLAG; 0592 01441000 MVI OBRFLAG(@12),X'03' 0592 01442000 * CCWCMD=PLBREAD; /* BUILD 1ST CCW TO READ PLB DATA*/ 01443000 LA @11,ERPCCW1 0593 01444000 MVI CCWCMD(@11),X'02' 0593 01445000 * R3=ADDR(OBRPLBA); /* ADDRESS FOR CCW @ZA00643*/ 01446000 LA R3,OBRPLBA(,@12) 0594 01447000 * GEN REFS(R3)(LRA R3,0(R3));/* @ZA00643*/ 01448000 LRA R3,0(R3) 01449000 * CCWADDR=R3; 0596 01450000 LA @12,ERPCCW1 0596 01451000 STCM R3,7,CCWADDR(@12) 0596 01452000 * CCWFLAG=ZERO; 0597 01453000 MVI CCWFLAG(@12),X'00' 0597 01454000 * CCWSLI=ON; /* ALLOW FOR 132 0R 150 BYTE PLB 01455000 * BUFFER */ 01456000 OI CCWSLI(@12),B'00100000' 0598 01457000 * CCWCOUNT=PLBSIZE; /* MAXIMUM PLB SIZE */ 01458000 MVC CCWCOUNT(2,@12),@CH02988 0599 01459000 * GOTO READ; /* @ZA02179*/ 01460000 B READ 0600 01461000 * END; 0601 01462000 *READCK: /* @ZA07937*/ 01463000 * IF CKRFLAG=ON THEN 0602 01464000 @RF00588 DS 0H 0602 01465000 READCK TM CKRFLAG(EWAPTR),B'01000000' 0602 01466000 BNO @RF00602 0602 01467000 * DO; /* READ PLB CHECK BYTES AND 1ST 01468000 * 10 DATA BYTES IN ERROR */ 01469000 * CKRFLAG=OFF; /* @ZA02179*/ 01470000 NI CKRFLAG(EWAPTR),B'10111111' 0604 01471000 * RFY 0605 01472000 * CCWMAP BASED(ADDR(ERPCCW1)); 0605 01473000 * CCWCMD=CKREAD; 0606 01474000 LA @12,ERPCCW1 0606 01475000 MVI CCWCMD(@12),X'06' 0606 01476000 * R3=ADDR(OBRCKRA); /* ADDRESS FOR CCW @ZA00643*/ 01477000 L R3,OBRPTR 0607 01478000 LA R3,OBRCKRA(,R3) 0607 01479000 * GEN REFS(R3)(LRA R3,0(R3));/* @ZA00643*/ 01480000 LRA R3,0(R3) 01481000 * CCWADDR=R3; /* USE REAL ADDR @ZA00643*/ 01482000 LA @12,ERPCCW1 0609 01483000 STCM R3,7,CCWADDR(@12) 0609 01484000 * CCWFLAG=ZERO; 0610 01485000 MVI CCWFLAG(@12),X'00' 0610 01486000 * CCWSLI=ON; /* ALLOW FOR 132 0R 150 BYTE PLB 01487000 * BUFFER */ 01488000 OI CCWSLI(@12),B'00100000' 0611 01489000 * CCWCOUNT=PLBSIZE; /* MAXIMUM PLB SIZE */ 01490000 MVC CCWCOUNT(2,@12),@CH02988 0612 01491000 * GOTO READ; 0613 01492000 B READ 0613 01493000 * END; 0614 01494000 * RFY 0615 01495000 * R3 UNRSTD; 0615 01496000 @RF00602 DS 0H 0616 01497000 * IF PSEUDOIR=ON THEN /* IF PSEUDO THAN RESTORE AND 0616 01498000 * ISSUE INTERVENTION REQUIRED 0616 01499000 * MESSAGE @ZA15058*/ 01500000 TM PSEUDOIR(EWAPTR),B'00100000' 0616 01501000 BNO @RF00616 0616 01502000 * DO; 0617 01503000 * EWUMAP(1:6)=RSTSNS; /* RESTORE USERS ENVIRONMENT 0618 01504000 * @ZA15058*/ 01505000 MVC EWUMAP(6,EWAPTR),RSTSNS 0618 01506000 * IOSCKEY=RSTCKEY; 0619 01507000 MVC IOSCKEY(1,IOSBPTR),RSTCKEY 0619 01508000 * IOSSNS=RSTSNS(1:2); 0620 01509000 MVC IOSSNS(2,IOSBPTR),RSTSNS 0620 01510000 * CCWPTR=RSTADDR; 0621 01511000 L @12,RSTADDR 0621 01512000 ST @12,CCWPTR 0621 01513000 * BUFFLAG=OFF; 0622 01514000 NI BUFFLAG(EWAPTR),B'11101111' 0622 01515000 * IOSCSW=RSTCSW; 0623 01516000 MVC IOSCSW(7,IOSBPTR),RSTCSW 0623 01517000 * IOSLOG=ON; 0624 01518000 OI IOSLOG(IOSBPTR),B'00000001' 0624 01519000 * MDRFLAG=OFF; 0625 01520000 NI MDRFLAG(EWAPTR),B'11011111' 0625 01521000 * GOTO RETRY; 0626 01522000 B RETRY 0626 01523000 * END; 0627 01524000 * ELSE 0628 01525000 * ; 0628 01526000 @RF00616 DS 0H 0629 01527000 * IF LOADFLAG=OFF THEN 0629 01528000 TM LOADFLAG(EWAPTR),B'00000001' 0629 01529000 BZ @RT00629 0629 01530000 * GOTO LOG$MSG; /* IF LOADFLAG IS OFF A BUFFER 0630 01531000 * RELOAD IS NOT REQUIRED & THE 01532000 * ORIGINAL ERROR IS PERMANENT 0630 01533000 * OTHERWISE GET SETUP TO RELOAD 01534000 * EITHER THE UCSB OR FCB */ 01535000 * RFY 0631 01536000 * (R0, 0631 01537000 * R1, 0631 01538000 * R3, 0631 01539000 * RF) RSTD; 0631 01540000 * ESTCODE=CODEBASE; 0632 01541000 ST CODEBASE,ESTCODE 0632 01542000 * ESTDATA=DATABASE; 0633 01543000 ST DATABASE,ESTDATA 0633 01544000 * R1=ADDR(ESTLIST); 0634 01545000 LA R1,ESTLIST 0634 01546000 * GEN REFS(ESTAE,ESTPARM)(ESTAE PARAM=ESTPARM,TERM=YES,MF=(E,(1))); 01547000 ESTAE PARAM=ESTPARM,TERM=YES,MF=(E,(1)) 01548000 * RF=0; /* ZERO RETURN CODE REGISTER */ 01549000 SLR RF,RF 0636 01550000 * R1=0; /* INDICATE REQUEST IS FOR OPEN 01551000 * @ZA17967*/ 01552000 SLR R1,R1 0637 01553000 * SVC(IMGLIB); /* OPEN SYS1.IMAGELIB. @DCB 0638 01554000 * RETURNED IN REG 1 */ 01555000 SVC 105 0638 01556000 * IF RF^=0 THEN /* CHECK THE RETURN CODE */ 01557000 LTR RF,RF 0639 01558000 BNZ @RT00639 0639 01559000 * GOTO LOG$MSG; /* IF OPEN FAILED WE CAN'T RELOAD*/ 01560000 * IF EWUFCBP=ON /* DO WE NEED TO RELOAD THE FCB 01561000 * OR UCSB ? */ 01562000 * THEN 0641 01563000 TM EWUFCBP(EWAPTR),B'00100000' 0641 01564000 BNO @RF00641 0641 01565000 * DO; /* BUILD FCBIMAGE NAME */ 01566000 * LOADNAME(1:4)='FCB2'; 0643 01567000 MVC LOADNAME(4),@CC03249 0643 01568000 * LOADNAME(5:8)=UCBFCBID; 0644 01569000 L @14,UCBPTR 0644 01570000 L @14,UCBXTADR(,@14) 0644 01571000 MVC LOADNAME+4(4),UCBFCBID(@14) 0644 01572000 * END; 0645 01573000 * ELSE 0646 01574000 * DO; /* BUILD UCSB IMAGE NAME */ 01575000 B @RC00641 0646 01576000 @RF00641 DS 0H 0647 01577000 * LOADNAME(1:4)='UCS2'; 0647 01578000 MVC LOADNAME(4),@CC03250 0647 01579000 * LOADNAME(5:8)=UCBUCSID; 0648 01580000 L @14,UCBPTR 0648 01581000 L @14,UCBXTADR(,@14) 0648 01582000 MVC LOADNAME+4(4),UCBUCSID(@14) 0648 01583000 * END; 0649 01584000 * DO; /* LOAD DCB(R1->I031F) 0650 01585000 * EP(LOADNAME) ERRET(LOG$MSGA) */ 01586000 @RC00641 DS 0H 0651 01587000 * RESPECIFY 0651 01588000 * (GPR00P, 0651 01589000 * GPR01P, 0651 01590000 * GPR15F) RESTRICTED; 0651 01591000 * GPR00P=ADDR(LOADNAME); /* LOAD ENTRY POINT NAME ADDRESS */ 01592000 LA GPR00P,LOADNAME 0652 01593000 * GPR01P=ADDR(R1->I031F); /* LOAD DCB ADDRESS */ 01594000 * GPR01P=GPR01P|'80000000'X; /* ERROR RETURN LABEL SPECIFIED */ 01595000 O GPR01P,@CF03255 0654 01596000 * SVC(8); /* ISSUE LOAD SVC */ 01597000 SVC 8 0655 01598000 * IF GPR15F^=0 THEN /* LOAD WAS UNSUCCESSFUL */ 01599000 LTR GPR15F,GPR15F 0656 01600000 BNZ @RT00656 0656 01601000 * GOTO LOG$MSGA; /* BRANCH TO ERROR LOCATION */ 01602000 * RESPECIFY 0658 01603000 * (GPR00P, 0658 01604000 * GPR01P, 0658 01605000 * GPR15F) UNRESTRICTED; 0658 01606000 * END; /* LOAD DCB(R1->I031F) 0659 01607000 * EP(LOADNAME) ERRET(LOG$MSGA) */ 01608000 * RF=R0; /* PICKUP START OF RECORD */ 01609000 LR RF,R0 0660 01610000 * RF=RF+(RF+1)->PTR8+2; /* MOVE POINTER TO START OF IMAGE 01611000 * @ZA25409*/ 01612000 LR @14,RF 0661 01613000 SLR @12,@12 0661 01614000 IC @12,PTR8+1(,RF) 0661 01615000 ALR @14,@12 0661 01616000 AL @14,@CF00061 0661 01617000 LR RF,@14 0661 01618000 * RFY 0662 01619000 * CCWMAP BASED(ADDR(ERPCCW1)); 0662 01620000 * IF LOADNAME(1:1)='F' THEN 0663 01621000 CLI LOADNAME,C'F' 0663 01622000 BNE @RF00663 0663 01623000 * DO; 0664 01624000 * GEN; 0665 01625000 LR RF,R0 /* PICKUP START OF RECORD @ZA26389*/ 01626000 SLR @11,@11 /* SUBTRACT REG. @ZA26389*/ 01627000 IC @11,1(RF) /* GET LENGTH OF FCB @ZA26389*/ 01628000 LA RC,2 /* GET DISP TO START @ZA26389*/ 01629000 ALR RF,RC /* GET START OF IMAGE @ZA26389*/ 01630000 L @14,OBRPTR /* POINTER TO WK AREA @ZA26389*/ 01631000 STH @11,CCWCOUNT(@14) STORE COUNT IN CCW @ZA26389*/ 01632000 BCTR @11,0 /* SUBTRACT R11 BY ONE @ZA26389*/ 01633000 EX @11,MVFCB /* MOVE IMAGE TO WK AREA @ZA26389*/ 01634000 B FCBCCW /* BR AROUND MVC @ZA26389*/ 01635000 MVFCB MVC FCB(0,@14),FCB(RF) @ZA26389*/ 01636000 *FCBCCW: 0666 01637000 * CCWCMD=FCBLD; 0666 01638000 FCBCCW LA @14,ERPCCW1 0666 01639000 MVI CCWCMD(@14),X'63' 0666 01640000 * END; 0667 01641000 * ELSE 0668 01642000 * DO; 0668 01643000 B @RC00663 0668 01644000 @RF00663 DS 0H 0669 01645000 * OBRPTR->UCS1=RF->UCS1; 0669 01646000 L @14,OBRPTR 0669 01647000 MVC UCS1(256,@14),UCS1(RF) 0669 01648000 * OBRPTR->UCS2=RF->UCS2; 0670 01649000 MVC UCS2(256,@14),UCS2(RF) 0670 01650000 * CCWCMD=UCSLDNF; 0671 01651000 LA @14,ERPCCW1 0671 01652000 MVI CCWCMD(@14),X'FB' 0671 01653000 * CCWCOUNT=UCSBSIZE; 0672 01654000 MVC CCWCOUNT(2,@14),@CH00715 0672 01655000 * END; 0673 01656000 * CCWFLAG=TWENTY; 0674 01657000 @RC00663 LA @14,ERPCCW1 0674 01658000 MVI CCWFLAG(@14),X'20' 0674 01659000 * GEN REFS(R1,OBRPTR)(L R1,OBRPTR);/* @ZA03666*/ 01660000 L R1,OBRPTR 01661000 * GEN(LRA R1,0(R1)); /* @ZA06102*/ 01662000 LRA R1,0(R1) 01663000 * CCWADDR=R1; 0677 01664000 LA @14,ERPCCW1 0677 01665000 STCM R1,7,CCWADDR(@14) 0677 01666000 * DO; /* DELETE EP(LOADNAME) RTCD(RF) */ 01667000 * RESPECIFY 0679 01668000 * (GPR00P, 0679 01669000 * GPR15F) RESTRICTED; 0679 01670000 * GPR00P=ADDR(LOADNAME); /* ->ENTRY NAME */ 01671000 LA GPR00P,LOADNAME 0680 01672000 * SVC(9); /* DELETE SVC */ 01673000 SVC 9 0681 01674000 * RF=GPR15F; /* SAVE RETURN CODE */ 01675000 * RESPECIFY 0683 01676000 * (GPR00P, 0683 01677000 * GPR15F) UNRESTRICTED; 0683 01678000 * END; /* DELETE EP(LOADNAME) RTCD(RF) */ 01679000 * LOADNAME=' '; 0685 01680000 MVI LOADNAME+1,C' ' 0685 01681000 MVC LOADNAME+2(6),LOADNAME+1 0685 01682000 MVI LOADNAME,C' ' 0685 01683000 *READ: 0686 01684000 * BUFFLAG=ON; /* SET INDICATOR THAT ERP IS 0686 01685000 * DOING ITS OWN IO */ 01686000 READ OI BUFFLAG(EWAPTR),B'00010000' 0686 01687000 * GEN REFS(R3,ERPCCW1)(LRA R3,ERPCCW1); 0687 01688000 LRA R3,ERPCCW1 01689000 * IOSRST=R3; 0688 01690000 ST R3,IOSRST(,IOSBPTR) 0688 01691000 * IF IRQFLAG=ON /* CHECK FOR INTERVENTION 0689 01692000 * REQUIRED MESSAGE NEEDED BEFORE 01693000 * RETRYING */ 01694000 * THEN 0689 01695000 TM IRQFLAG(EWAPTR),B'01000000' 0689 01696000 BO @RT00689 0689 01697000 * GOTO WTOXCTL; 0690 01698000 * R1=IOSBPTR; 0691 01699000 LR R1,IOSBPTR 0691 01700000 * SVC(EREXCP); 0692 01701000 SVC 15 0692 01702000 * SVC(EXITSVC); 0693 01703000 SVC 3 0693 01704000 * RFY 0694 01705000 * CCWMAP BASED(CCWPTR); 0694 01706000 * RFY 0695 01707000 * (R0, 0695 01708000 * R1, 0695 01709000 * R3, 0695 01710000 * RF) UNRSTD; 0695 01711000 *BUFREAD3: 0696 01712000 * 0696 01713000 * /*****************************************************************/ 01714000 * /* */ 01715000 * /* CONTROL RETURNS HERE AFTER SUCCESSFULLY COMPLETEING AN ERP */ 01716000 * /* INITIATED I/O OPERATION */ 01717000 * /* */ 01718000 * /*****************************************************************/ 01719000 * 0696 01720000 * IF CCWCMDTP=WRITECMD /* IF IT IS A WRITE COMMAND WEVE 01721000 * RELOADED A BUFFER & MUST 0696 01722000 * RESTORE THE ORIGINAL INTERRUPT 01723000 * INFORMATION & EITHER RETRY OR 01724000 * SET A PERMANENT ERROR */ 01725000 * THEN 0696 01726000 BUFREAD3 L @12,CCWPTR 0696 01727000 TM CCWCMDTP(@12),B'00000001' 0696 01728000 BNO @RF00696 0696 01729000 * DO; 0697 01730000 * EWUMAP(1:6)=RSTSNS; /* RESTORE SENSE TO ERP WORK AREA*/ 01731000 MVC EWUMAP(6,EWAPTR),RSTSNS 0698 01732000 * IOSCKEY=RSTCKEY; /* RESTORE CHANNEL PGM KEY */ 01733000 MVC IOSCKEY(1,IOSBPTR),RSTCKEY 0699 01734000 * IOSSNS=RSTSNS(1:2); /* RESTORE SENSE TO IOSB */ 01735000 MVC IOSSNS(2,IOSBPTR),RSTSNS 0700 01736000 * CCWPTR=RSTADDR; /* RESTORE RESTART CCW POINTER */ 01737000 L @12,RSTADDR 0701 01738000 ST @12,CCWPTR 0701 01739000 * BUFFLAG=OFF; /* CLEAR ERP READING FLAG FOR 0702 01740000 * NORMAL PROCESSING THRU LOG$MSG*/ 01741000 NI BUFFLAG(EWAPTR),B'11101111' 0702 01742000 * IOSCSW=RSTCSW; /* RESTORE CSW IN IOSB */ 01743000 MVC IOSCSW(7,IOSBPTR),RSTCSW 0703 01744000 * IF EWUCRTRY=ON /* DECIDE ON RETRY OR ERROR */ 01745000 * THEN 0704 01746000 TM EWUCRTRY(EWAPTR),B'10000000' 0704 01747000 BO @RT00704 0704 01748000 * GOTO RETRY5; 0705 01749000 * ELSE 0706 01750000 * GOTO LOG$MSG; 0706 01751000 B LOG$MSG 0706 01752000 * END; 0707 01753000 * 0707 01754000 * /*****************************************************************/ 01755000 * /* */ 01756000 * /* THE CCW COMMAND WASNT A WRITE SO WEVE JUST READ A BUFFER INTO */ 01757000 * /* THE MDR WORK AREA. FINISH FORMATTING IT & XCTL TO MDR */ 01758000 * /* */ 01759000 * /*****************************************************************/ 01760000 * 0708 01761000 * IF CCWCMD=PLBREAD THEN /* @ZA07937*/ 01762000 @RF00696 L @12,CCWPTR 0708 01763000 CLI CCWCMD(@12),X'02' 0708 01764000 BE @RT00708 0708 01765000 * GOTO READCK; 0709 01766000 * IF CCWCMD=CKREAD THEN 0710 01767000 CLI CCWCMD(@12),X'06' 0710 01768000 BNE @RF00710 0710 01769000 * DO; /* ADDITIONAL FORMATTING IS 0711 01770000 * NEEDED FOR PLB RECORDS TO FIND 01771000 * THE 1ST 10 BAD COLUMNS. OTHERS 01772000 * ARE COMPLETE */ 01773000 * J=1; 0712 01774000 LA @12,1 0712 01775000 LR J,@12 0712 01776000 * DO I=1 TO PLBSIZE WHILE J<=10; 0713 01777000 LR I,@12 0713 01778000 @DL00713 C J,@CF02990 0713 01779000 BH @DC00713 0713 01780000 * IF OBRCKRA(I)^=FOUR THEN /* ZA15058 */ 01781000 L @12,OBRPTR 0714 01782000 LR @11,@12 0714 01783000 ALR @11,I 0714 01784000 CLI OBRCKRA-1(@11),X'04' 0714 01785000 BE @RF00714 0714 01786000 * DO; 0715 01787000 * OBR1ST10(J)=OBRPLBA(I); 0716 01788000 LR @11,@12 0716 01789000 ALR @11,J 0716 01790000 ALR @12,I 0716 01791000 MVC OBR1ST10-1(1,@11),OBRPLBA-1(@12) 0716 01792000 * J=J+1; 0717 01793000 AL J,@CF00052 0717 01794000 * END; 0718 01795000 * END; 0719 01796000 @RF00714 AL I,@CF00052 0719 01797000 C I,@CF02988 0719 01798000 BNH @DL00713 0719 01799000 @DC00713 DS 0H 0720 01800000 * END; 0720 01801000 *MDRXCTL: /* SETUP TO REGAIN CONTROL AFTER 01802000 * SVC F SVC 3 BY MDR */ 01803000 * IF UCBTBYT4=DEV3800 THEN /* TEST FOR 3800 @Z40MSWH*/ 01804000 @RF00710 DS 0H 0721 01805000 MDRXCTL L @12,UCBPTR 0721 01806000 CLI UCBTBYT4(@12),X'0E' 0721 01807000 BNE @RF00721 0721 01808000 * DO; 0722 01809000 * IOSRST=RSTADDR; /* RESTORE CCW ADDR FOR RESTART 01810000 * @Z40MSWH*/ 01811000 L @12,RSTADDR 0723 01812000 ST @12,IOSRST(,IOSBPTR) 0723 01813000 * IOSCKEY=RSTCKEY; /* RESTORE PROTECT KEY @Z40MSWH*/ 01814000 MVC IOSCKEY(1,IOSBPTR),RSTCKEY 0724 01815000 * BUFFLAG=OFF; /* TURN OFF BUFFER READ FLAG 0725 01816000 * @Z40MSWH*/ 01817000 NI BUFFLAG(EWAPTR),B'11101111' 0725 01818000 * GO TO WTMDR; /* CONTINUE @Z40MSWH*/ 01819000 B WTMDR 0726 01820000 * END; 0727 01821000 * ELSE 0728 01822000 * ; 0728 01823000 @RF00721 DS 0H 0729 01824000 * OBRRTN=MYID; /* RETURN ID OF 'G' @ZA15058*/ 01825000 L @12,OBRPTR 0729 01826000 MVC OBRRTN(2,@12),@CH00076 0729 01827000 * MDRFLAG=ON; /* INTERNAL MDR FLAG @ZA15058*/ 01828000 OI MDRFLAG(EWAPTR),B'00100000' 0730 01829000 *WTMDR: 0731 01830000 * IOSLOG=ON; /* REQUIRED FOR WRITING MDR 0731 01831000 * RECORD @Z40MSWH*/ 01832000 WTMDR OI IOSLOG(IOSBPTR),B'00000001' 0731 01833000 * EWAMDR=ON; /* INDICATE THAT REQUEST IS FOR 01834000 * MDR @Z40MSWH*/ 01835000 OI EWAMDR(EWAPTR),B'10000000' 0732 01836000 * RFY 0733 01837000 * (RD, 0733 01838000 * RE, 0733 01839000 * R1) RSTD; 0733 01840000 * RD=ERPMDR; /* ENTRY CODE FOR MDR RECORDER */ 01841000 LA RD,256 0734 01842000 * RE=CVTXTLER; /* ENTRY POINT OF ERP XCTL 0735 01843000 * ROUTINE */ 01844000 L @12,CVTPTR 0735 01845000 L RE,CVTXTLER(,@12) 0735 01846000 * R1=IOSBPTR; /* PT TO IOSB */ 01847000 LR R1,IOSBPTR 0736 01848000 * GEN REFS(RE)(BR RE); /* BRANCH TO ERP XCTL ROUTINE */ 01849000 BR RE 01850000 * RFY 0738 01851000 * (RD, 0738 01852000 * RE, 0738 01853000 * R1) UNRSTD; 0738 01854000 * 0738 01855000 */* 3800 EQUIPMENT CK */ 01856000 * 0739 01857000 *EQCK3800: 0739 01858000 * IF EWUELGFL=ON THEN /* ERROR LOG FULL CONDITION 0739 01859000 * @Z40MSWH*/ 01860000 EQCK3800 TM EWUELGFL(EWAPTR),B'00100000' 0739 01861000 BO @RT00739 0739 01862000 * GO TO RD3800LG; /* YES - BR TO READ ERROR LOG 0740 01863000 * @Z40MSWH*/ 01864000 * IF EWUCANCL=ON THEN /* CANCEL KEY CONDITION @Z40MSWH*/ 01865000 TM EWUCANCL(EWAPTR),B'00010000' 0741 01866000 BO @RT00741 0741 01867000 * GO TO MSGA; /* YES - PERM ERROR @Z40MSWH*/ 01868000 * GO TO INTVLOG; /* HARDWARE OR PERMANENT ERROR 0743 01869000 * EQUIP CK @Z40MSWH*/ 01870000 B INTVLOG 0743 01871000 */* 3800 INTERVENTION REQUIRED @Z40MSWH */ 01872000 * 0744 01873000 *INTV3800: 0744 01874000 * IF EWUSN4=EWUCFSCK THEN /* CFS MISFOLD CK X'32' @Z40MSWH*/ 01875000 INTV3800 CLI EWUSN4(EWAPTR),X'32' 0744 01876000 BNE @RF00744 0744 01877000 * DO; 0745 01878000 * CFSSTAT=ON; /* YES - SET ON STAT BIT @Z40MSWH*/ 01879000 OI CFSSTAT(EWAPTR),B'00000100' 0746 01880000 * IOSSDR=ON; /* STAT ONLY. NO OBR @Z40MSWH*/ 01881000 OI IOSSDR(IOSBPTR),B'01000000' 0747 01882000 * GO TO INTVLOG; /* CONTINUE */ 01883000 B INTVLOG 0748 01884000 * END; 0749 01885000 * IF EWUSN4=EWUBSS THEN /* BTSS CK X'40' @Z40MSWH*/ 01886000 @RF00744 CLI EWUSN4(EWAPTR),X'40' 0750 01887000 BNE @RF00750 0750 01888000 * DO; 0751 01889000 * BSSSTAT=ON; /* YES - SET ON STAT BIT @Z40MSWH*/ 01890000 OI BSSSTAT(EWAPTR),B'00000010' 0752 01891000 * IOSSDR=ON; /* STAT ONLY. NO OBR @Z40MSWH*/ 01892000 OI IOSSDR(IOSBPTR),B'01000000' 0753 01893000 * GO TO INTVLOG; /* CONTINUE */ 01894000 B INTVLOG 0754 01895000 * END; 0755 01896000 * IF EWUSN4=EWUNOBSS THEN /* NO BURST X'41' @Z40MSWH*/ 01897000 @RF00750 CLI EWUSN4(EWAPTR),X'41' 0756 01898000 BNE @RF00756 0756 01899000 * DO; 0757 01900000 * NOBSSTAT=ON; /* YES - SET ON STAT BIT @Z40MSWH*/ 01901000 OI NOBSSTAT(EWAPTR),B'00000001' 0758 01902000 * IOSSDR=ON; /* STAT ONLY. NO OBR @Z40MSWH*/ 01903000 OI IOSSDR(IOSBPTR),B'01000000' 0759 01904000 * GO TO INTVLOG; /* CONTINUE */ 01905000 B INTVLOG 0760 01906000 * END; 0761 01907000 * IF EWUSN4=EWUSJAM THEN /* BTS JAM X'42' @ZM4334*/ 01908000 @RF00756 CLI EWUSN4(EWAPTR),X'42' 0762 01909000 BNE @RF00762 0762 01910000 * DO; 0763 01911000 * SJAMSTAT=ON; /* YES - SET ON STAT BIT @ZM4334*/ 01912000 OI SJAMSTAT(EWAPTR),B'10000000' 0764 01913000 * IOSSDR=ON; /* STAT ONLY. NO OBR @ZM4334*/ 01914000 OI IOSSDR(IOSBPTR),B'01000000' 0765 01915000 * GO TO INTVLOG; /* CONTINUE @ZM4334*/ 01916000 B INTVLOG 0766 01917000 * END; 0767 01918000 * TEMPWKA=EWUSN4&INTVMASK; /* CK IF OBR LOGGING REQUIRED 0768 01919000 * @Z40MSWH*/ 01920000 @RF00762 MVC TEMPWKA(1),EWUSN4(EWAPTR) 0768 01921000 NI TEMPWKA,X'F0' 0768 01922000 * IF TEMPWKA=ZERO THEN /* TEST FOR INTV REQ REQUIRING 0769 01923000 * OBR @Z40MSWH*/ 01924000 CLI TEMPWKA,X'00' 0769 01925000 BE @RT00769 0769 01926000 * GO TO INTVCONT; /* CONTINUE @Z40MSWH*/ 01927000 *INTVLOG: 0771 01928000 * IOSLOG=ON; /* LOGGING REQUIRED @Z40MSWH*/ 01929000 INTVLOG OI IOSLOG(IOSBPTR),B'00000001' 0771 01930000 *INTVCONT: 0772 01931000 * RFY 0772 01932000 * (RD, 0772 01933000 * RE, 0772 01934000 * R1) RSTD; 0772 01935000 INTVCONT DS 0H 0773 01936000 * IF EWUSYRST=ON THEN /* PAPER JAM CONDITION @Z40MSWH*/ 01937000 TM EWUSYRST(EWAPTR),B'00001000' 0773 01938000 BNO @RF00773 0773 01939000 * DO; 0774 01940000 * IOSERR=OFF; /* ERP GIVING UP CONTROL @Z40MSWH*/ 01941000 NI IOSERR(IOSBPTR),B'11011111' 0775 01942000 * IF EWAJAM=ON THEN /* JES BEING USED @Z40MSWH*/ 01943000 TM EWAJAM(EWAPTR),B'10000000' 0776 01944000 BNO @RF00776 0776 01945000 * DO; /* YES- BYPASS INTERV REQ MSG 0777 01946000 * @Z40MSWH*/ 01947000 * RD=STATUP; /* ID FOR STAT ROUTINE @Z40MSWH*/ 01948000 LA RD,254 0778 01949000 * RE=CVTXTLER; /* ENTRY PT OF ERP XCTL ROUTINE 01950000 * @Z40MSWH*/ 01951000 L @12,CVTPTR 0779 01952000 L RE,CVTXTLER(,@12) 0779 01953000 * R1=IOSBPTR; /* PT TO IOSB @Z40MSWH*/ 01954000 LR R1,IOSBPTR 0780 01955000 * GEN REFS(RE)(BR RE); 0781 01956000 BR RE 01957000 * END; 0782 01958000 * GO TO WTOXCTL; /* BR TO PUT OUT INTERV REQ MSG 01959000 * @Z40MSWH*/ 01960000 B WTOXCTL 0783 01961000 * END; 0784 01962000 * RFY 0785 01963000 * (RD, 0785 01964000 * RE, 0785 01965000 * R1) UNRSTD; 0785 01966000 @RF00773 DS 0H 0786 01967000 * IOSCOD=IOSNRMC; /* SET NORMAL COMPL CODE FOR 0786 01968000 * RETRY @Z40MSWH*/ 01969000 MVI IOSCOD(IOSBPTR),X'7F' 0786 01970000 * IRQFLAG=ON; /* FLAG FOR INTERV REQ MSG 0787 01971000 * @Z40MSWH*/ 01972000 OI IRQFLAG(EWAPTR),B'01000000' 0787 01973000 * GO TO RETRY; /* RETRY OPERATION @Z40MSWH*/ 01974000 B RETRY 0788 01975000 */* READ 3800 ERROR LOG @Z40MSWH */ 01976000 * 0789 01977000 *RD3800LG: 0789 01978000 * IF CCWPTR<=0 /* CHECK IF INTERCEPT @Z40MSWH*/ 01979000 * THEN 0789 01980000 RD3800LG L @12,CCWPTR 0789 01981000 LTR @12,@12 0789 01982000 BP @RF00789 0789 01983000 * RSTADDR=IOSRST; /* YES.START AT BEGINNING OF 0790 01984000 * CHAIN @Z40MSWH*/ 01985000 L @12,IOSRST(,IOSBPTR) 0790 01986000 ST @12,RSTADDR 0790 01987000 * ELSE 0791 01988000 * DO; /* SAVE RESTART ADDR @Z40MSWH*/ 01989000 B @RC00789 0791 01990000 @RF00789 DS 0H 0792 01991000 * RFY 0792 01992000 * R3 RSTD; 0792 01993000 * R3=CCWPTR; /* FOR CONVERTING TO REAL ADDR 0793 01994000 * @Z40MSWH*/ 01995000 L R3,CCWPTR 0793 01996000 * GEN REFS(R3,R3)(LRA R3,0(R3)); 0794 01997000 LRA R3,0(R3) 01998000 * RSTADDR=R3; /* SAVE REAL ADDR FOR RESTART 0795 01999000 * @Z40MSWH*/ 02000000 ST R3,RSTADDR 0795 02001000 * RFY 0796 02002000 * R3 UNRSTD; 0796 02003000 * END; 0797 02004000 * IF UCBMDRBF=0 THEN /* DOES MDR BUFFER EXIST @Z40MSWH*/ 02005000 @RC00789 L @12,UCBPTR 0798 02006000 L @12,UCBXTADR(,@12) 0798 02007000 L @11,UCBMDRBF(,@12) 0798 02008000 LTR @11,@11 0798 02009000 BZ @RT00798 0798 02010000 * GO TO LOG$MSG; /* NO- PERM I/O ERROR @Z40MSWH*/ 02011000 * RSTCKEY=IOSCKEY; /* SAVE PROTECT KEY @Z40MSWH*/ 02012000 MVC RSTCKEY(1),IOSCKEY(IOSBPTR) 0800 02013000 * IOSCKEY=ZERO; /* SET PROTECT KEY TO ZERO 0801 02014000 * @Z40MSWH*/ 02015000 MVI IOSCKEY(IOSBPTR),X'00' 0801 02016000 * OBRPTR=UCBMDRBF; /* SET BASE FOR BUILDING MDR 0802 02017000 * HEADER @Z40MSWH*/ 02018000 ST @11,OBRPTR 0802 02019000 * MDRHDR=MDRHDR&&MDRHDR; /* CLEAR MDR HEADER TO ZERO 0803 02020000 * @Z40MSWH*/ 02021000 XC MDRHDR(28,@11),MDRHDR(@11) 0803 02022000 * OBRSIZE=ERRLGLEN; /* LENGTH OF ERROR LOG @Z40MSWH*/ 02023000 MVC OBRSIZE(2,@11),@CH03117 0804 02024000 * OBRID=ERRLGID; /* ID OF 3800 FOR MDR ROUTINE 0805 02025000 * @Z40MSWH*/ 02026000 MVI OBRID(@11),X'0C' 0805 02027000 * OBRCHA=EWACHA(1)&CHANMSK; /* CHANNEL ADDR @Z40MSWH*/ 02028000 MVC OBRCHA(1,@11),EWACHA(EWAPTR) 0806 02029000 NI OBRCHA(@11),X'0F' 0806 02030000 * OBRUA=EWACHA(2); /* UNIT ADDR @Z40MSWH*/ 02031000 IC @09,EWACHA+1(,EWAPTR) 0807 02032000 STC @09,OBRUA(,@11) 0807 02033000 * OBRCNT=UCBERCNT; /* ERROR CNT TO RELATE OBR & MDR 02034000 * @ZA28804*/ 02035000 IC @09,UCBERCNT(,@12) 0808 02036000 STC @09,OBRCNT(,@11) 0808 02037000 * RFY 0809 02038000 * (RC, 0809 02039000 * R3) RSTD; 0809 02040000 * RC=UCBMDRBF; /* FOR CONVERTING TO REAL ADDR 0810 02041000 * @Z40MSWH*/ 02042000 LR RC,@11 0810 02043000 * GEN REFS(OBRFCBA,R3)(LRA R3,OBRFCBA(12)); 0811 02044000 LRA R3,OBRFCBA(12) 02045000 * RFY 0812 02046000 * CCWMAP BASED(ADDR(ERPCCW1)); 0812 02047000 * CCWCMD=ELGREAD; /* ERROR LOG READ COMMAND 0813 02048000 * @Z40MSWH*/ 02049000 LA @11,ERPCCW1 0813 02050000 MVI CCWCMD(@11),X'24' 0813 02051000 * CCWADDR=R3; /* REAL ADDR OF MDR BUFFER LOC 0814 02052000 * @Z40MSWH*/ 02053000 STCM R3,7,CCWADDR(@11) 0814 02054000 * CCWFLAG=ZERO; /* NO CCW FLAGS @Z40MSWH*/ 02055000 MVI CCWFLAG(@11),X'00' 0815 02056000 * RFY 0816 02057000 * (R3, 0816 02058000 * RC) UNRSTD; 0816 02059000 * CCWCOUNT=ERRLGSZ; /* COUNT FOR ERROR LOG @Z40MSWH*/ 02060000 MVC CCWCOUNT(2,@11),@CH03120 0817 02061000 * GO TO READ; /* BR TO READ ERROR LOG @Z40MSWH*/ 02062000 B READ 0818 02063000 * RFY 0819 02064000 * CCWMAP BASED(CCWPTR); 0819 02065000 * 0819 02066000 */* 3800 BUS OUT PARITY ERROR @Z40MSWH */ 02067000 * 0820 02068000 *BOP3800: 0820 02069000 * BOPARSW=ON; /* SET BUS OUT PARITY ERROR TEMP 02070000 * SW @Z40MSWH*/ 02071000 BOP3800 OI BOPARSW(EWAPTR),B'00000001' 0820 02072000 * GO TO RETRY5; /* RETRY UP TO 5 TIMES @Z40MSWH*/ 02073000 B RETRY5 0821 02074000 */* 3800 CHANNEL DATA CK @Z40MSWH */ 02075000 * 0822 02076000 *CHDT3800: 0822 02077000 * IF CCWCMDTP=READCMD THEN /* TEST IF COMMAND IS READ 0822 02078000 * @Z40MSWH*/ 02079000 CHDT3800 L @12,CCWPTR 0822 02080000 TM CCWCMDTP(@12),B'00000001' 0822 02081000 BNZ @RF00822 0822 02082000 * DO; 0823 02083000 * CHDTSW=ON; /* YES - SET CHANNEL DATA CK STAT 02084000 * SW @Z40MSWH*/ 02085000 OI CHDTSW(EWAPTR),B'00000100' 0824 02086000 * GO TO RETRY5; /* RETRY OPERATION @Z40MSWH*/ 02087000 B RETRY5 0825 02088000 * END; 0826 02089000 * GO TO LOG$MSG; /* PERM I/O ERROR @Z40MSWH*/ 02090000 * 0827 02091000 B LOG$MSG 0827 02092000 * /*****************************************************************/ 02093000 * /* */ 02094000 * /* PATCH AREA. NOTE THIS PTF IS FOR BASE AND SU10. */ 02095000 * /* */ 02096000 * /*****************************************************************/ 02097000 * 0828 02098000 * DCL 0828 02099000 * PATCH CHAR(100) BDY(WORD) INIT('IGE0000G 08/08/78 UZ19323'); 0828 02100000 * GEN(DS 0F); /* BDY ALIGNMENT FOR ESTLIST 0829 02101000 * @ZA01481*/ 02102000 DS 0F 02103000 *ESTLIST: 0830 02104000 * GEN; 0830 02105000 * 0830 02106000 ESTLIST DS 0H 0830 02107000 ESTAE ESTAE,TERM=YES,MF=L 02108000 * /*****************************************************************/ 02109000 * /* */ 02110000 * /* ESTAE EXIT ROUTINE */ 02111000 * /* */ 02112000 * /*****************************************************************/ 02113000 * 0831 02114000 *ESTAE: 0831 02115000 * 0831 02116000 */* */ 02117000 * 0831 02118000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0831 02119000 ESTAE DS 0H 0832 02120000 * DO; /* ENTESTAE (CODEBASE,DATABASE)ER 02121000 * REXIT(ESTAE1) */ 02122000 * 0832 02123000 * /***************************************************************/ 02124000 * /* */ 02125000 * /* ENTRY CODE FOR ESTAE ROUTINE. IF RTCA ALLOCATED THEN RESTORE*/ 02126000 * /* CODE AND DATA REGS FROM START OF USERS PARM LIST, AND */ 02127000 * /* ESTABLISH ADDR TO ESTAE SAVE AREA IF REQUIRED. IF NO RTCA */ 02128000 * /* AVAILABLE THEN BRANCH TO ERROR CODE AFTER ESTABLISHING */ 02129000 * /* ADDRESSABILITY */ 02130000 * /* */ 02131000 * /***************************************************************/ 02132000 * 0833 02133000 * GEN(USING *,GPR15P); 0833 02134000 USING *,GPR15P 02135000 * GEN(CH GPR00F,*+22); /* CHECK IF RTCA ALLOC FAILED */ 02136000 CH GPR00F,*+22 02137000 * GEN(BNE *+20); /* NO,SAVE RTM REGS */ 02138000 BNE *+20 02139000 * GEN(DROP GPR15P); /* DROP LOCAL ADDR */ 02140000 DROP GPR15P 02141000 * GEN(LR GPR15P,GPR02P); /* PTR TO USER PARM LIST */ 02142000 LR GPR15P,GPR02P 02143000 * GEN(L CODEBASE,00(GPR15P)); 0838 02144000 L CODEBASE,00(GPR15P) 02145000 * GEN(L DATABASE,04(GPR15P)); 0839 02146000 L DATABASE,04(GPR15P) 02147000 * GEN(B ESTAE1); /* BRANCH TO ERROR EXIT */ 02148000 B ESTAE1 02149000 * GEN(DC H'12'); /* NO RTCA AVAIL RC */ 02150000 DC H'12' 02151000 * GEN(STM GPR14P,GPR12F,12(GPR13P));/* GOOD R13, SAVE RTM'S 0842 02152000 * REGS */ 02153000 STM GPR14P,GPR12F,12(GPR13P) 02154000 * GEN(L GPR15P,0(GPR01P)); /* PTR TO USER PARM LIST */ 02155000 L GPR15P,0(GPR01P) 02156000 * GEN(L CODEBASE,00(GPR15P)); 0844 02157000 L CODEBASE,00(GPR15P) 02158000 * GEN(L DATABASE,04(GPR15P)); 0845 02159000 L DATABASE,04(GPR15P) 02160000 * END; /* ENTESTAE (CODEBASE,DATABASE)ER 02161000 * REXIT(ESTAE1) */ 02162000 * DO; /* SETRP RC(0) */ 02163000 * RESPECIFY 0848 02164000 * (GPR00P, 0848 02165000 * GPR01P, 0848 02166000 * GPR14P, 0848 02167000 * GPR15P) RSTD; 0848 02168000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 02169000 MVI SDWARCDE(GPR01P),X'00' 0849 02170000 * RESPECIFY 0850 02171000 * (GPR00P, 0850 02172000 * GPR01P, 0850 02173000 * GPR14P, 0850 02174000 * GPR15P) UNRSTD; 0850 02175000 * END; /* @ZA18259*/ 02176000 *ESTAE1: 0852 02177000 * IF LOADNAME^=' ' THEN 0852 02178000 ESTAE1 CLC LOADNAME(8),@CC03294 0852 02179000 BE @RF00852 0852 02180000 * DO; /* DELETE EP(LOADNAME) */ 02181000 * RESPECIFY 0854 02182000 * (GPR00P) RESTRICTED; 0854 02183000 * GPR00P=ADDR(LOADNAME); /* ->ENTRY NAME */ 02184000 LA GPR00P,LOADNAME 0855 02185000 * SVC(9); /* DELETE SVC */ 02186000 SVC 9 0856 02187000 * RESPECIFY 0857 02188000 * (GPR00P) UNRESTRICTED; 0857 02189000 * END; /* DELETE EP(LOADNAME) */ 02190000 * END ESTAE; 0859 02191000 @EL00002 DS 0H 0859 02192000 @EF00002 DS 0H 0859 02193000 @ER00002 BR @14 0859 02194000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 02195000 * GPR00F FIXED(31) REG(0), 0860 02196000 * GPR12F FIXED(31) REG(12), 0860 02197000 * GPR15F FIXED(31) REG(15), 0860 02198000 * GPR00P PTR(31) REG(0), 0860 02199000 * GPR01P PTR(31) REG(1), 0860 02200000 * GPR02P PTR(31) REG(2), 0860 02201000 * GPR13P PTR(31) REG(13), 0860 02202000 * GPR14P PTR(31) REG(14), 0860 02203000 * GPR15P PTR(31) REG(15); 0860 02204000 * DECLARE /* COMMON VARIABLES */ 02205000 * I256C CHAR(256) BASED, 0861 02206000 * I031F FIXED(31) BASED, 0861 02207000 * I031P PTR(31) BASED, 0861 02208000 * I015F FIXED(15) BASED, 0861 02209000 * I015P PTR(15) BASED, 0861 02210000 * I008P PTR(8) BASED, 0861 02211000 * I001C CHAR(1) BASED; 0861 02212000 * 0862 02213000 */*IEC1403A: CHART */ 02214000 */* HEADER */ 02215000 */* ERROR RECOVERY PROCEDURE FOR 1403, 1443, & 3211 PRINTERS */ 02216000 */*IEC1403A: E IEC1403A IGE0000G */ 02217000 */* D (YES,BUFREAD2,NO,) IS THE MDR FLAG ON ? */ 02218000 */* P INDICATE ERP IN CONTROL */ 02219000 */* P RESET INTERNAL RESTART CONTROLS */ 02220000 */* D (NO,%DD,YES,) INTERVENTION REQ */ 02221000 */* D (NO,%DD,YES,) UNIT CHECK */ 02222000 */* P IRQFLAG=ON */ 02223000 */*%DD: D (YES,MSGA,NO,) MIXED CHANNEL PROGRAM */ 02224000 */* P CCWPTR = ADDRESS OF FAILING CCW */ 02225000 */*CHKTST: D (NO,CHAINTST,YES,) CHANNEL OR INTERFACE CTRL CK */ 02226000 */* D (YES,RETRY5,NO,) GOOD SENSE & COMMAND SUPRESS? */ 02227000 */* D (NO,,YES,LOG$MSG) INTERCEPT */ 02228000 */* D (NO,,YES,LOG$MSG) UNCONDITIONAL NO RETRY */ 02229000 */* D (NO,,YES,RETRY5) CSW STORED ON SIO ? */ 02230000 */* D (YES,,NO,LOG$MSG) CMND ADDRESS VALID */ 02231000 */* D (NO,,YES,RETRY5) FAILED ON NOP ? */ 02232000 */* D (0,LOG$MSG,1,RETRY5,2,,3,LOG$MSG,4,RETRY5, */ 02233000 */* 5,LOG$MSG,6,LOG$MSG,7,LOG$MSG) RETRY CODE */ 02234000 */* D (0OR1,RETRY5,ELSE,LOG$MSG) CCW COMMAND CODE */ 02235000 */*CHAINTST: D (NO,,YES,LOG$MSG) CHAINING CHECK */ 02236000 */* D (3211,UC3211,OTHR,) TEST DEVICE TYPE IN UCB */ 02237000 */* D (NO,STATUS,YES,) UNIT CHECK */ 02238000 */* D (NO,LOG$MSG,YES,) SENSE DATA VALID ? */ 02239000 */* P OR SENSE INFO INTO EWA MASKING UNWANTED BITS */ 02240000 */* D (NO,,YES,NONUCS) 1443 ? */ 02241000 */* D (NO,,YES,UCSSNS) UCS ? */ 02242000 */* D (YES,LOG$MSG,NO,NONUCS) SENSE BITS 4 OR 5 */ 02243000 */*NONUCS: S (UNDF,LOG$MSG,EQCK,LOG$MSG,INT,INTREQ,BUSO,BUSOUT,*/ 02244000 */* CH9,CHAN9,CREJ,MSGA,ELSE,BUSOUT) IECXITP: */ 02245000 */* ERROR INTERPERTER FOR SENSE */ 02246000 */*STATUS: S (CDK,CHANDATA,PC,PROGERR,PCK,PROGERR, */ 02247000 */* UEX,UNITEXCP,IL,INCORLEN,ELSE,ZEROSTAT) */ 02248000 */* IECXITP: ERROR INTERPERTER FOR STATUS */ 02249000 */*UCSSNS: S (UNDF,LOG$MSG,EQCK,UCSEQCK,UCSP,UCSPAR, */ 02250000 */* INT,INTREQ,BUSO,BUSOUT,CH9,CHAN9, */ 02251000 */* CREJ,MSGA,DTCK,MSGA,ELSE,BUSOUT) */ 02252000 */* IECXITP: ERROR INTERPERTER FOR SENSE */ 02253000 */*UC3211: D (NO,STAT3211,YES,) UNIT CHECK ? */ 02254000 */* D (NO,LOG$MSG,YES,) SENSE DATA VALID ? */ 02255000 */* P OR SENSE DATA INTO EWA MASKING UNWANTED BITS */ 02256000 */*SNS3211: S (EQCK,EQCK3211,BUSO,BUSOUT,DTCK,DTCK3211, */ 02257000 */* BUFP,BUFP3211,CREJ,MSGA,LDCK,RETRY5, */ 02258000 */* IREQ,INTREQ,CH9,CHAN9,ELSE,ZEROSNS) */ 02259000 */* IECXITP: ERROR INTERPERTER FOR SENSE */ 02260000 */*STAT3211: S (CDK,CHANDATA,ATN,LOG$MSG,SMD,LOG$MSGA, */ 02261000 */* CUE,LOG$MSGA,PC,MSGA,PCK,MSGA, */ 02262000 */* IL,INCORLEN,UXP,UNITEXCP,ELSE,ZEROSTAT) */ 02263000 */* IECXITP: ERROR INTERPRETER FOR STATUS */ 02264000 */* P INDICATE BROADCAST WTO */ 02265000 */*%NBDCST: P INDICATE INTREQ FOR RETRY */ 02266000 */* D (NO,%CC,YES,) DEVICE END ? */ 02267000 */* P SET NEXTCCW */ 02268000 */*%CC: D (YES,%A,NO,) PRINT QUALITY CHECK? */ 02269000 */*%B: D (YES,CHAN9,NO,RETRYINT) CHANNEL 9 TOO ? */ 02270000 */*%A: P (,%B) SET LOGOUT FLAG IN IOSB */ 02271000 */*BUSOUT: D (NO,RETRY5,YES,LOG$MSG) CHANNEL END */ 02272000 */*PROGERR: P RESET IOSERR */ 02273000 */* I ERROR EXCP SVC 15 */ 02274000 */* R EXIT SVC 3 */ 02275000 */*CHANDATA: P INDICATE CHANNEL DATA CHECK IN EWA */ 02276000 */* P (,RETRY5) REQUEST RESTART */ 02277000 */*CHAN9: P SET CHANNEL 9 FLAG IN DCB */ 02278000 */*RESUME: D (NO,%AA,YES,) INTERCEPT ? */ 02279000 */* P IOSVST TO CCWPTR */ 02280000 */* P (,%BB) RESET NEXTCCW */ 02281000 */*%AA: D (NO,%BB,YES,) DEVICE END ? */ 02282000 */* P SET NEXTCCW */ 02283000 */*%BB: D (NO,RETRYINT,YES,) UNIT CHECK ? */ 02284000 */* D (NO,RETRYINT,YES,MSGA) COMMAND REJECT */ 02285000 */*INCORLEN: D (YES,OK,NO,) PREVIOUS ERROR */ 02286000 */*CLRERR: P (,STATOR15) CLEAR IOSERR */ 02287000 */*UNITEXCP: D (YES,%E,NO,) ENTRY FLAG ON ? */ 02288000 */* P (,RESUME) SET CHANNEL 12 ON IN DCB EXCP ONLY */ 02289000 */*%E: P SET ENTRY FLAG OFF */ 02290000 */*OK: P CLEAR IOSERR & IOSEX */ 02291000 */* P CLEAR FLAGS & COUNTS */ 02292000 */* D (YES,%D,NO,) DOES AN MDR WORK AREA EXIST ? */ 02293000 */*STATOR15: D (YES,XCTLSTAT,NO,) STAT UPDATE NEEDED */ 02294000 */* I ERROR EXCP SVC 15 */ 02295000 */* R EXIT SVC 3 */ 02296000 */*%D: P (,STATOR15) FREE MDR WORK AREA */ 02297000 */*LOG$MSG: D (YES,RETRY5,NO,) IS THIS A CONSOLE ? */ 02298000 */*LOG$MSGA: P REQUEST LOGREC RECORDING */ 02299000 */*MSGA: P REQUEST PERMANENT I/O ERROR MESSAGE */ 02300000 */* D (ON,,OFF,WTOXCTL) TEST BUFFLAG */ 02301000 */* P RESTORE ORIGINAL ERROR */ 02302000 */* P FREE RESOURCES */ 02303000 */*WTOXCTL: R XCTL TO WTO ROUTINE */ 02304000 */*RETRYINT: D (YES,,NO,RETRY) INTERCEPT ? */ 02305000 */* P (,TESTIRQ) CHANGE 7E TO 7F */ 02306000 */*RETRY5: D (YES,LOG$MSGA,NO,) TRIED 5 TIMES ? */ 02307000 */* P ADD 1 TO ERROR COUNTER */ 02308000 */*RETRY: P SET ERP ENTERED FLAG */ 02309000 */* D (YES,LOG$MSG,NO,) INTERCEPT ? */ 02310000 */* D (YES,,NO,%I) NEXTCCW FLAG ON? */ 02311000 */* D (YES,%I,NO,) COMMAND CHAINING? */ 02312000 */* P (,OK) RESET UC & UEX STATUS */ 02313000 */*%I: P CCWPTR = CCWPTR + 8 */ 02314000 */* D (YES,,NO,%K) IS THIS CCW A TIC ? */ 02315000 */* P (,TESTIRQ)CCWPTR = OBJECT OF TIC */ 02316000 */*%K: P COMPUTE NEW REAL ADDRESS FOR IOSRST */ 02317000 */*TESTIRQ: D (YES,WTOXCTL,NO,) IRQFLAG ON ? */ 02318000 */* D (YES,WTOXCTL,NO,) PSEUDO INT WITHOUT REAL ? */ 02319000 */* I ERROR EXCP SVC 15 */ 02320000 */* R EXIT VIA SVC 3 */ 02321000 */*UCSPAR: D (YES,RETRY5,NO,) ERROR LOADING BUFFER ? */ 02322000 */*UCSEQCK: P (,LOG$MSG) CLEAR IMAGE NAME IN UCB */ 02323000 */*XCTLSTAT: R XCTL TO STATISTICS UPDATE MODULE */ 02324000 */*ZEROSTAT: D (YES,BUFREAD3,NO,OK) BUFFLAG ON ? */ 02325000 */*ZEROSNS: D (ON,RETRY5,OFF,LOG$MSG) DID 3211 SUPRESS THE CMD */ 02326000 */*BUFREAD3: D (YES,%C,NO,) WRITE COMMAND ? */ 02327000 */* D (YES,READCK,NO,) PLB READ COMMAND? */ 02328000 */* D (YES,,NO,MDRXCTL) CHECK READ COMMAND ? */ 02329000 */* P FORMAT RECORD */ 02330000 */*MDRXCTL: P SET MDR FLAG */ 02331000 */* P SET OBRRTN ID TO '7'TO REGAIN CONTROL */ 02332000 */* R XCTL TO MDR */ 02333000 */*%C: P RESTORE ORIGINAL ERROR */ 02334000 */* D (YES,RETRY5,NO,LOG$MSG) COMMAND RETRY INDICATED ? */ 02335000 */*BUFREAD1: P SAVE INFO ON ORIGINAL ERROR */ 02336000 */* P SET CHANNEL PROTECT KEY TO ZERO */ 02337000 */*BUFREAD2: P CLEAR MDR FLAG */ 02338000 */* D (YES,%M,NO,) FCB FLAG SET ? */ 02339000 */* D (YES,%N,NO,) UCSB FLAG SET ? */ 02340000 */* D (YES,%O,NO,) PLB FLAG SET ? */ 02341000 */*READCK: D (YES,%KK,NO,) CKR FLAG SET ? */ 02342000 */* D (YES,,NO,%LL) PSEUDO IRQ ? */ 02343000 */* P (,RETRY) RESTORE ORIGINAL USER */ 02344000 */*%LL: D (NO,LOG$MSG,YES,) LOAD FLAG SET ? */ 02345000 */* P ESTABLISH ESTAE */ 02346000 */* P LOAD, COPY, & DELETE IMAGE */ 02347000 */* P (,READ) SETUP BUFFER LOAD CHANNEL PROGRAM */ 02348000 */*%M: P CLEAR FCB FLAG */ 02349000 */* P (,READ) SETUP FCB READ COMMAND */ 02350000 */*%N: P CLEAR UCSB FLAG */ 02351000 */* P (,READ) SETUP FOR UCSB READ COMMAND */ 02352000 */*%KK: P CLEAR CKR FLAG */ 02353000 */* P (,READ) SETUP FOR CKR COMMAND */ 02354000 */*%O: P CLEAR PLB FLAG */ 02355000 */* P SETUP CHECK READ COMMAND */ 02356000 */*READ: P TURN ON BUFFLAG */ 02357000 */* D (YES,WTOXCTL,NO,) INTERVENTION REQUIRED? */ 02358000 */* I ERROR EXCP SVC 15 */ 02359000 */* R EXIT VIA SVC 3 */ 02360000 */*DTCK3211: D (YES,%Q,NO,) LINE POSITION CHECK ? */ 02361000 */* D (YES,,NO,LOG$MSG) PRINT CHECK ? */ 02362000 */* P (,BUFREAD1) REQUEST PLB, UCSB, & CKR READ */ 02363000 */*%Q: P (,BUFREAD1) REQUEST FCB READ */ 02364000 */*EQCK3211: D (NO,LNPOSCK,YES,) MECHANICAL MOTION */ 02365000 */* D (YES,LOG$MSG,NO,) INTERCEPT */ 02366000 */* P REQUEST PLB READ */ 02367000 */* P REQUEST CK READ */ 02368000 */* P (,BUFREAD1) REQUEST UCSB READ */ 02369000 */*LNPOSCK: D (NO,%EE,YES,) LINE POSITION OR PRINT QUALITY */ 02370000 */* D (NO,%FF,YES,) DEVICE END ? */ 02371000 */* P SET NEXTCCW */ 02372000 */*%FF: P (,RETRY) TURN ON PSEUDO IRQ FLAG */ 02373000 */*%EE: D (NO,%GG,YES,) PRINT CHECK ? */ 02374000 */*%HH: P TURN ON PSEUDO IRQ FLAG */ 02375000 */* D (NO,%GG,YES,) DEVICE END? */ 02376000 */* P SET NEXTCCW */ 02377000 */*%GG: D (NO,%II,YES,) COMMAND RETRY OR PRINT CHECK */ 02378000 */* P REQUEST PLB READ */ 02379000 */* P (,BUFREAD1) REQUEST CK READ */ 02380000 */*%II: D (NO,%JJ,YES,) DEVICE END */ 02381000 */* P SET NEXTCCW */ 02382000 */*%JJ: P SET IOSLOG */ 02383000 */* P (,RETRY) SETUP TO LOG SOFT ERRORS */ 02384000 */*BUFP3211: D (YES,%V,NO,) LINE POSITION CHECK ? */ 02385000 */* D (YES,%W,NO,) COMMAND RETRY ON IN SENSE ? */ 02386000 */* D (NO,LOG$MSG,YES,) READ OR WRITE BUFFER COMMAND ? */ 02387000 */* D (YES,RETRY5,NO,) ERP READING BUFFERS ? */ 02388000 */* P SIMULATE COMMAND RETRY */ 02389000 */* P (,BUFREAD1) REQUEST USCB READ */ 02390000 */*%V: P (,BUFREAD1) REQUEST FCB READ */ 02391000 */*%W: P (,BUFREAD1) REQUEST USCB READ */ 02392000 */*IEC1403A: END */ 02393000 * 0862 02394000 * END IEC1403A 0862 02395000 * 0862 02396000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02397000 */*%INCLUDE SYSLIB (IECDRQE ) */ 02398000 */*%INCLUDE SYSLIB (IKJTCB ) */ 02399000 */*%INCLUDE SYSLIB (IECDIOSB) */ 02400000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 02401000 */*%INCLUDE SYSLIB (IHADCBDF) */ 02402000 */*%INCLUDE SYSLIB (IHADCB ) */ 02403000 */*%INCLUDE SYSLIB (IEZIOB ) */ 02404000 */*%INCLUDE SYSLIB (CVT ) */ 02405000 */*%INCLUDE SYSLIB (IHASDWA ) */ 02406000 */*%INCLUDE SYSLIB (EWAMAP ) */ 02407000 */*%INCLUDE SYSLIB (EWUMAP ) */ 02408000 * 0862 02409000 * ; 0862 02410000 @DATA DS 0H 02411000 @CH00076 DC H'7' 02412000 @CH03120 DC H'136' 02413000 @CH03117 DC H'164' 02414000 @CH02998 DC H'180' 02415000 @CH03004 DC H'188' 02416000 @CH03001 DC H'212' 02417000 @CH00715 DC H'512' 02418000 @CH02971 DC H'544' 02419000 @DATD DSECT 02420000 DS 0F 02421000 IEC1403A CSECT 02422000 DS 0F 02423000 @CF00052 DC F'1' 02424000 @CF00061 DC F'2' 02425000 @CF00046 DC F'8' 02426000 @CF02990 DC F'10' 02427000 @CF02988 DC F'150' 02428000 @CH02988 EQU @CF02988+2 02429000 @CF03255 DC XL4'80000000' 02430000 @DATD DSECT 02431000 DS 0D 02432000 UCBPTR DS A 02433000 IOBPRPTR DS A 02434000 IOBSTPTR DS A 02435000 CVTPTR DS A 02436000 SDWAPTR DS A 02437000 CCWPTR DS A 02438000 OBRPTR DS A 02439000 RSTADDR DS A 02440000 @TS00001 DS CL1 02441000 RSTSNS DS CL6 02442000 RSTCSW DS CL7 02443000 RSTCKEY DS BL1 02444000 DS CL1 02445000 ERPCCWS DS CL16 02446000 ORG ERPCCWS 02447000 ERPCCW1 DS CL8 02448000 ERPCCW2 DS CL8 02449000 ORG ERPCCW2 02450000 TEMPWKA DS BL1 02451000 ORG ERPCCWS+16 02452000 LOADNAME DS CL8 02453000 ESTPARM DS CL8 02454000 ORG ESTPARM 02455000 ESTCODE DS AL4 02456000 ESTDATA DS AL4 02457000 ORG ESTPARM+8 02458000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02459000 @ENDDATD EQU * 02460000 IEC1403A CSECT 02461000 NOPR ((@ENDDATD-@DATD)/105*16) 02462000 DS 0F 02463000 @SIZDATD DC AL1(0) 02464000 DC AL3(@ENDDATD-@DATD) 02465000 DS 0D 02466000 @CC03294 DC C' ' 02467000 @CC03249 DC C'FCB2' 02468000 @CC03250 DC C'UCS2' 02469000 @CB03204 DC X'00000000' 02470000 @CB03111 DC X'0C00' 02471000 @CB03207 EQU @CB03204 02472000 DS CL2 02473000 PATCH DC CL100'IGE0000G 08/08/78 UZ19323' 02474000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02475000 @01 EQU 01 02476000 @02 EQU 02 02477000 @03 EQU 03 02478000 @04 EQU 04 02479000 @05 EQU 05 02480000 @06 EQU 06 02481000 @07 EQU 07 02482000 @08 EQU 08 02483000 @09 EQU 09 02484000 @10 EQU 10 02485000 @11 EQU 11 02486000 @12 EQU 12 02487000 @13 EQU 13 02488000 @14 EQU 14 02489000 @15 EQU 15 02490000 J EQU @02 02491000 I EQU @03 02492000 IOSBPTR EQU @07 02493000 EWAPTR EQU @06 02494000 R0 EQU @00 02495000 R1 EQU @01 02496000 R3 EQU @03 02497000 DATABASE EQU @08 02498000 R9 EQU @09 02499000 CODEBASE EQU @10 02500000 RB EQU @11 02501000 RC EQU @12 02502000 RD EQU @13 02503000 RE EQU @14 02504000 RF EQU @15 02505000 GPR00P EQU @00 02506000 GPR01P EQU @01 02507000 GPR15F EQU @15 02508000 GPR14P EQU @14 02509000 GPR15P EQU @15 02510000 GPR00F EQU @00 02511000 GPR02P EQU @02 02512000 GPR12F EQU @12 02513000 GPR13P EQU @13 02514000 R2 EQU @02 02515000 CVTPTRXX EQU 16 02516000 RQE EQU 0 02517000 RQEIOB EQU RQE+4 02518000 RQETCB EQU RQE+12 02519000 RQEPRT EQU RQE+36 02520000 RQETYPE EQU RQE+37 02521000 RQETYP3 EQU RQETYPE 02522000 RQEFLAG EQU RQE+38 02523000 RQEFLAG3 EQU RQE+39 02524000 TCBFIX EQU 0 02525000 TCBFRS EQU TCBFIX 02526000 TCB EQU 0 02527000 TCBPIE EQU TCB+4 02528000 TCBPMASK EQU TCBPIE 02529000 TCBCMP EQU TCB+16 02530000 TCBCMPF EQU TCBCMP 02531000 TCBCPP EQU TCBCMPF 02532000 TCBSTCC EQU TCBCMPF 02533000 TCBCDBL EQU TCBCMPF 02534000 TCBCWTO EQU TCBCMPF 02535000 TCBCIND EQU TCBCMPF 02536000 TCBCMSG EQU TCBCMPF 02537000 TCBTRN EQU TCB+20 02538000 TCBABF EQU TCBTRN 02539000 TCBMSS EQU TCB+24 02540000 TCBPKF EQU TCB+28 02541000 TCBFLGS EQU TCB+29 02542000 TCBFLGS1 EQU TCBFLGS 02543000 TCBFLGS2 EQU TCBFLGS+1 02544000 TCBFLGS3 EQU TCBFLGS+2 02545000 TCBFLGS4 EQU TCBFLGS+3 02546000 TCBFLGS5 EQU TCBFLGS+4 02547000 TCBABWF EQU TCBFLGS5 02548000 TCBJPQ EQU TCB+44 02549000 TCBPURGE EQU TCBJPQ 02550000 TCBGRS EQU TCB+48 02551000 TCBFSA EQU TCB+112 02552000 TCBTME EQU TCB+120 02553000 TCBJSTCB EQU TCB+124 02554000 TCBTSFLG EQU TCB+148 02555000 TCBTSTSK EQU TCBTSFLG 02556000 TCBSTAB EQU TCB+160 02557000 TCBNSTAE EQU TCBSTAB 02558000 TCBTCT EQU TCB+164 02559000 TCBTCTGF EQU TCBTCT 02560000 TCBSCNDY EQU TCB+172 02561000 TCBNDSP EQU TCBSCNDY 02562000 TCBNDSP1 EQU TCBNDSP+1 02563000 TCBNDSP2 EQU TCBNDSP+2 02564000 TCBNDSP3 EQU TCBNDSP+3 02565000 TCBJSCB EQU TCB+180 02566000 TCBRECDE EQU TCBJSCB 02567000 TCBEXT1 EQU TCB+196 02568000 TCBBITS EQU TCB+200 02569000 TCBNDSP4 EQU TCBBITS 02570000 TCBNDSP5 EQU TCBBITS+1 02571000 TCBFLGS6 EQU TCBBITS+2 02572000 TCBFLGS7 EQU TCBBITS+3 02573000 TCBDAR EQU TCB+204 02574000 TCBDARC EQU TCBDAR 02575000 TCBEXT2 EQU TCB+208 02576000 TCBFOE EQU TCB+244 02577000 TCBESTAE EQU TCB+264 02578000 TCBESTRM EQU TCBESTAE+1 02579000 TCBFBYT1 EQU TCB+276 02580000 TCBFBYT2 EQU TCB+277 02581000 TCBRV124 EQU TCB+278 02582000 TCBRV133 EQU TCB+279 02583000 TCBXTNT2 EQU 0 02584000 TCBGTF EQU TCBXTNT2 02585000 TCBTFLG EQU TCBGTF 02586000 TCBRV146 EQU TCBXTNT2+28 02587000 TCBRV155 EQU TCBXTNT2+29 02588000 TCBRV164 EQU TCBXTNT2+30 02589000 TCBRV173 EQU TCBXTNT2+31 02590000 IOSB EQU 0 02591000 IOSFLA EQU IOSB 02592000 IOSACHN EQU IOSFLA 02593000 IOSDCHN EQU IOSACHN 02594000 IOSCCHN EQU IOSACHN 02595000 IOSERR EQU IOSFLA 02596000 IOSEX EQU IOSFLA 02597000 IOSFLB EQU IOSB+1 02598000 IOSSDR EQU IOSFLB 02599000 IOSMSG EQU IOSFLB 02600000 IOSBDCST EQU IOSFLB 02601000 IOSLOG EQU IOSFLB 02602000 IOSFLC EQU IOSB+2 02603000 IOSDVALT EQU IOSFLC 02604000 IOSDVRID EQU IOSB+4 02605000 IOSPKEY EQU IOSB+12 02606000 IOSCOD EQU IOSB+13 02607000 IOSOPT EQU IOSB+14 02608000 IOSOPT2 EQU IOSB+15 02609000 IOSUCB EQU IOSB+16 02610000 @NM00008 EQU IOSB+20 02611000 IOSCSW EQU @NM00008+1 02612000 IOSCSWCA EQU IOSCSW 02613000 IOSTATUS EQU IOSCSW+3 02614000 IOSUSE EQU IOSB+32 02615000 IOSSNS EQU IOSB+42 02616000 IOSIPIB EQU IOSB+44 02617000 IOSERP EQU IOSB+52 02618000 IOSRST EQU IOSB+72 02619000 IOSVST EQU IOSB+76 02620000 IOSPATH EQU IOSB+86 02621000 IOSCHN EQU IOSPATH 02622000 IOSCKEY EQU IOSB+89 02623000 IOSEEKA EQU IOSB+100 02624000 IOSCCHH EQU IOSEEKA+3 02625000 IOSSKHH EQU IOSCCHH+2 02626000 UCB EQU 0 02627000 UCBOB EQU 0 02628000 UCBJBNR EQU UCBOB 02629000 UCBFL5 EQU UCBOB+1 02630000 UCBAF EQU UCBFL5 02631000 UCBSTAT EQU UCBOB+3 02632000 UCBSYSR EQU UCBSTAT 02633000 UCBCHAN EQU UCBOB+4 02634000 UCBCHA EQU UCBCHAN 02635000 UCBUA EQU UCBCHAN+1 02636000 UCBSFLS EQU UCBOB+6 02637000 UCBFLA EQU UCBSFLS 02638000 UCBFL1 EQU UCBFLA 02639000 UCBBSY EQU UCBFL1 02640000 UCBNRY EQU UCBFL1 02641000 UCBPST EQU UCBFL1 02642000 UCBCUB EQU UCBFL1 02643000 UCBFLB EQU UCBSFLS+1 02644000 UCBCHM EQU UCBOB+8 02645000 UCBCHM1 EQU UCBCHM 02646000 UCBPTH0 EQU UCBCHM1 02647000 UCBPTH1 EQU UCBCHM1 02648000 UCBWGT EQU UCBOB+12 02649000 UCBTYP EQU UCBOB+16 02650000 UCBTBYT1 EQU UCBTYP 02651000 UCB1FEA5 EQU UCBTBYT1 02652000 UCB1FEA6 EQU UCBTBYT1 02653000 UCBTBYT2 EQU UCBTYP+1 02654000 UCB2OPT0 EQU UCBTBYT2 02655000 UCB2OPT2 EQU UCBTBYT2 02656000 UCBDUDN1 EQU UCB2OPT2 02657000 UCB2OPT3 EQU UCBTBYT2 02658000 UCBDUDN2 EQU UCB2OPT3 02659000 UCB2OPT4 EQU UCBTBYT2 02660000 UCBRWTAU EQU UCB2OPT4 02661000 UCB2OPT6 EQU UCBTBYT2 02662000 UCB2OPT7 EQU UCBTBYT2 02663000 UCBTBYT3 EQU UCBTYP+2 02664000 UCBDVCLS EQU UCBTBYT3 02665000 UCBTBYT4 EQU UCBTYP+3 02666000 UCBEXTPT EQU UCBOB+20 02667000 UCBFLC EQU UCBEXTPT 02668000 UCBDEV EQU UCBOB+24 02669000 UCBCMEXT EQU 0 02670000 UCBATI EQU UCBCMEXT+3 02671000 @NM00017 EQU UCBATI 02672000 UCBFLP1 EQU UCBCMEXT+5 02673000 UCBMT EQU 0 02674000 UCBOCR EQU 0 02675000 UCB3540X EQU 0 02676000 UCBDKBYT EQU UCB3540X+6 02677000 UCB3800X EQU 0 02678000 UCBOPTNS EQU UCB3800X 02679000 UCBACTIV EQU UCB3800X+3 02680000 UCBMDRBF EQU UCB3800X+36 02681000 UCBUCS EQU 0 02682000 UCBUCSID EQU UCBUCS 02683000 UCBUCSOP EQU UCBUCS+4 02684000 UCBFCBOP EQU UCBUCS+5 02685000 UCBERCNT EQU UCBUCS+7 02686000 UCBFCBID EQU UCBUCS+8 02687000 UCBERADR EQU UCBUCS+12 02688000 IHADCB EQU 0 02689000 IHADCS04 EQU 0 02690000 DCBPRBYT EQU IHADCS04+3 02691000 IHADCS11 EQU 0 02692000 DCBRELB EQU IHADCS11 02693000 DCBREL EQU DCBRELB+1 02694000 DCBBUFCB EQU IHADCS11+4 02695000 DCBDSORG EQU IHADCS11+10 02696000 DCBDSRG1 EQU DCBDSORG 02697000 DCBDSRG2 EQU DCBDSORG+1 02698000 DCBIOBAD EQU IHADCS11+12 02699000 DCBODEB EQU DCBIOBAD 02700000 DCBLNP EQU DCBODEB 02701000 DCBQSLM EQU DCBLNP 02702000 DCBIOBAA EQU DCBODEB+1 02703000 IHADCS50 EQU 0 02704000 DCBSVCXL EQU IHADCS50 02705000 DCBEODAD EQU IHADCS50+4 02706000 DCBBFALN EQU DCBEODAD 02707000 DCBHIARC EQU DCBBFALN 02708000 DCBBFTEK EQU DCBHIARC 02709000 DCBBFT EQU DCBBFTEK 02710000 DCBEXLST EQU IHADCS50+8 02711000 DCBRECFM EQU DCBEXLST 02712000 DCBRECLA EQU DCBRECFM 02713000 IHADCS24 EQU 0 02714000 DCBOFLGS EQU IHADCS24+8 02715000 DCBOFLWR EQU DCBOFLGS 02716000 DCBIFLG EQU IHADCS24+9 02717000 DCBIBPCT EQU DCBIFLG 02718000 DCBMACR EQU IHADCS24+10 02719000 DCBMACR1 EQU DCBMACR 02720000 DCBMRFE EQU DCBMACR1 02721000 DCBMRGET EQU DCBMRFE 02722000 DCBMRAPG EQU DCBMACR1 02723000 DCBMRRD EQU DCBMRAPG 02724000 DCBMRCI EQU DCBMACR1 02725000 DCBMRMVG EQU DCBMRCI 02726000 DCBMRLCG EQU DCBMACR1 02727000 DCBMRABC EQU DCBMACR1 02728000 DCBMRPT1 EQU DCBMRABC 02729000 DCBMRSBG EQU DCBMRPT1 02730000 DCBMRCRL EQU DCBMACR1 02731000 DCBMRCHK EQU DCBMRCRL 02732000 DCBMRRDX EQU DCBMRCHK 02733000 DCBMRDMG EQU DCBMACR1 02734000 DCBMACR2 EQU DCBMACR+1 02735000 DCBMRPUT EQU DCBMACR2 02736000 DCBMRWRT EQU DCBMACR2 02737000 DCBMRMVP EQU DCBMACR2 02738000 DCBMR5WD EQU DCBMACR2 02739000 DCBMRLDM EQU DCBMR5WD 02740000 DCBMRLCP EQU DCBMRLDM 02741000 DCBMR4WD EQU DCBMACR2 02742000 DCBMRPT2 EQU DCBMR4WD 02743000 DCBMRTMD EQU DCBMRPT2 02744000 DCBMR3WD EQU DCBMACR2 02745000 DCBMRCTL EQU DCBMR3WD 02746000 DCBMRSTK EQU DCBMRCTL 02747000 DCBMR1WD EQU DCBMACR2 02748000 DCBMRSWA EQU DCBMR1WD 02749000 DCBMRDMD EQU DCBMRSWA 02750000 IHADCS25 EQU 0 02751000 DCBMACRF EQU IHADCS25+2 02752000 DCBMACF1 EQU DCBMACRF 02753000 DCBMFFE EQU DCBMACF1 02754000 DCBMFGET EQU DCBMFFE 02755000 DCBMFAPG EQU DCBMACF1 02756000 DCBMFRD EQU DCBMFAPG 02757000 DCBMFCI EQU DCBMACF1 02758000 DCBMFMVG EQU DCBMFCI 02759000 DCBMFLCG EQU DCBMACF1 02760000 DCBMFABC EQU DCBMACF1 02761000 DCBMFPT1 EQU DCBMFABC 02762000 DCBMFSBG EQU DCBMFPT1 02763000 DCBMFCRL EQU DCBMACF1 02764000 DCBMFCHK EQU DCBMFCRL 02765000 DCBMFDMG EQU DCBMACF1 02766000 DCBMACF2 EQU DCBMACRF+1 02767000 DCBMFPUT EQU DCBMACF2 02768000 DCBMFWRT EQU DCBMACF2 02769000 DCBMFMVP EQU DCBMACF2 02770000 DCBMF5WD EQU DCBMACF2 02771000 DCBMFLDM EQU DCBMF5WD 02772000 DCBMFLCP EQU DCBMFLDM 02773000 DCBMF4WD EQU DCBMACF2 02774000 DCBMFPT2 EQU DCBMF4WD 02775000 DCBMFTMD EQU DCBMFPT2 02776000 DCBMF3WD EQU DCBMACF2 02777000 DCBMFCTL EQU DCBMF3WD 02778000 DCBMFSTK EQU DCBMFCTL 02779000 DCBMF1WD EQU DCBMACF2 02780000 DCBMFSWA EQU DCBMF1WD 02781000 DCBMFDMD EQU DCBMFSWA 02782000 DCBDEBAD EQU IHADCS25+4 02783000 DCBIFLGS EQU DCBDEBAD 02784000 DCBIFPCT EQU DCBIFLGS 02785000 DCBCH9 EQU DCBIFPCT 02786000 DCBCH12 EQU DCBIFPCT 02787000 IHADCS26 EQU 0 02788000 DCBWRITE EQU IHADCS26 02789000 DCBREAD EQU DCBWRITE 02790000 DCBWRITA EQU DCBREAD+1 02791000 IHADCS27 EQU 0 02792000 DCBGET EQU IHADCS27 02793000 DCBPUT EQU DCBGET 02794000 DCBGETA EQU DCBPUT+1 02795000 IHADCS36 EQU 0 02796000 DCBGERR EQU IHADCS36 02797000 DCBPERR EQU DCBGERR 02798000 DCBCHECK EQU DCBPERR 02799000 DCBOPTCD EQU DCBCHECK 02800000 DCBOPTH EQU DCBOPTCD 02801000 DCBOPTO EQU DCBOPTH 02802000 DCBOPTZ EQU DCBOPTCD 02803000 DCBGERRA EQU DCBCHECK+1 02804000 DCBPERRA EQU DCBGERRA 02805000 DCBSYNAD EQU IHADCS36+4 02806000 DCBCIND1 EQU IHADCS36+8 02807000 DCBCIND2 EQU IHADCS36+9 02808000 DCBIOBA EQU IHADCS36+16 02809000 DCBCICB EQU DCBIOBA 02810000 IHADCS52 EQU 0 02811000 DCBDIRCT EQU IHADCS52 02812000 DCBQSWS EQU DCBDIRCT 02813000 DCBUSASI EQU DCBQSWS 02814000 DCBQADFS EQU DCBUSASI 02815000 DCBBUFOF EQU DCBDIRCT+1 02816000 IHADCS37 EQU 0 02817000 DCBFLAG1 EQU IHADCS37 02818000 IHADCS38 EQU 0 02819000 DCBEOBR EQU IHADCS38 02820000 DCBPOINT EQU IHADCS38+12 02821000 DCBCNTRL EQU DCBPOINT 02822000 IHADCS40 EQU 0 02823000 DCBEOBAD EQU IHADCS40 02824000 DCBCCCW EQU IHADCS40+4 02825000 DCBRECAD EQU DCBCCCW 02826000 DCBRECBT EQU DCBRECAD 02827000 DCBRCREL EQU DCBRECBT 02828000 @NM00042 EQU IHADCS40+12 02829000 DCBEROPT EQU @NM00042 02830000 IOBPREFX EQU 0 02831000 IOBCFLG1 EQU IOBPREFX 02832000 IOBSTDRD EQU 0 02833000 IOBFLAG1 EQU IOBSTDRD 02834000 IOBCYCCK EQU IOBFLAG1 02835000 IOBRSTRT EQU IOBFLAG1 02836000 IOBFLAG2 EQU IOBSTDRD+1 02837000 IOBPURGE EQU IOBFLAG2 02838000 IOBRDHA0 EQU IOBFLAG2 02839000 IOBSENS0 EQU IOBSTDRD+2 02840000 IOBS0B7 EQU IOBSENS0 02841000 IOBSENS1 EQU IOBSTDRD+3 02842000 IOBECBPT EQU IOBSTDRD+4 02843000 IOBFLAG3 EQU IOBSTDRD+8 02844000 IOBFL3 EQU IOBFLAG3 02845000 IOBCNC EQU IOBFL3 02846000 IOBICL EQU IOBFL3 02847000 IOBCSW EQU IOBSTDRD+9 02848000 IOBIOCSW EQU IOBCSW 02849000 IOBSTBYT EQU IOBIOCSW+3 02850000 IOBUSTAT EQU IOBSTBYT 02851000 IOBCSTAT EQU IOBSTBYT+1 02852000 IOBSTART EQU IOBSTDRD+16 02853000 IOBDCBPT EQU IOBSTDRD+20 02854000 IOBFLAG4 EQU IOBDCBPT 02855000 IOBRESTR EQU IOBSTDRD+24 02856000 IOBINCAM EQU IOBSTDRD+28 02857000 IOBBTAMF EQU IOBINCAM 02858000 CVTMAP EQU 0 02859000 CVTXTLER EQU CVTMAP+44 02860000 CVTXITP EQU CVTMAP+68 02861000 CVTDAR EQU CVTMAP+72 02862000 CVTFLGS1 EQU CVTDAR 02863000 CVTDCB EQU CVTMAP+116 02864000 CVTIOQET EQU CVTMAP+120 02865000 CVTIERLC EQU CVTMAP+144 02866000 CVTHEAD EQU CVTMAP+160 02867000 CVTSV76C EQU CVTHEAD 02868000 CVTOPTA EQU CVTMAP+182 02869000 CVTOPTB EQU CVTMAP+183 02870000 CVTGTF EQU CVTMAP+236 02871000 CVTGTFST EQU CVTGTF 02872000 CVTGTFS EQU CVTGTFST 02873000 CVTSTATE EQU CVTGTFST 02874000 CVTTMODE EQU CVTGTFST 02875000 CVTFORM EQU CVTGTFST 02876000 CVTAQAVT EQU CVTMAP+240 02877000 CVTTCMFG EQU CVTAQAVT 02878000 CVTVOLM2 EQU CVTMAP+244 02879000 CVTTATA EQU CVTVOLM2 02880000 CVTTSKS EQU CVTTATA 02881000 CVTVOLF2 EQU CVTTSKS 02882000 CVTTAT EQU CVTTATA+1 02883000 CVTATER EQU CVTMAP+248 02884000 CVTEXT1 EQU CVTMAP+252 02885000 CVTPURG EQU CVTMAP+260 02886000 CVTQMSG EQU CVTMAP+268 02887000 CVTDMSR EQU CVTMAP+272 02888000 CVTRSV37 EQU CVTDMSR 02889000 CVTDMSRF EQU CVTRSV37 02890000 CVTERPV EQU CVTMAP+316 02891000 CVTINTLA EQU CVTMAP+320 02892000 CVTAPF EQU CVTMAP+324 02893000 CVTEXT2 EQU CVTMAP+328 02894000 CVTHJES EQU CVTMAP+332 02895000 CVTPGSIA EQU CVTMAP+348 02896000 CVTA1F1 EQU CVTMAP+356 02897000 CVTSYSK EQU CVTMAP+357 02898000 CVTVOLM1 EQU CVTMAP+380 02899000 CVTVOLF1 EQU CVTVOLM1 02900000 CVTATMCT EQU CVTMAP+388 02901000 CVTXTNT1 EQU 0 02902000 CVTXTNT2 EQU 0 02903000 CVTDSSV EQU CVTXTNT2 02904000 CVTFLGBT EQU CVTXTNT2+5 02905000 CVTQID EQU CVTXTNT2+24 02906000 CVTRV400 EQU CVTXTNT2+52 02907000 CVTRV409 EQU CVTXTNT2+53 02908000 CVTATCVT EQU CVTXTNT2+64 02909000 CVTRV429 EQU CVTXTNT2+84 02910000 CVTRV438 EQU CVTXTNT2+85 02911000 CVTRV457 EQU CVTXTNT2+112 02912000 CVTRV466 EQU CVTXTNT2+113 02913000 CVTFIX EQU 0 02914000 CVTRELNO EQU CVTFIX+252 02915000 SDWA EQU 0 02916000 SDWAFIOB EQU SDWA+4 02917000 SDWAABCC EQU SDWAFIOB 02918000 SDWACMPF EQU SDWAABCC 02919000 SDWACTL1 EQU SDWA+8 02920000 SDWACMKA EQU SDWACTL1 02921000 SDWAMWPA EQU SDWACTL1+1 02922000 SDWAPMKA EQU SDWACTL1+4 02923000 SDWACTL2 EQU SDWA+16 02924000 SDWACMKP EQU SDWACTL2 02925000 SDWAMWPP EQU SDWACTL2+1 02926000 SDWAPMKP EQU SDWACTL2+4 02927000 SDWAGRSV EQU SDWA+24 02928000 SDWANAME EQU SDWA+88 02929000 SDWAEC1 EQU SDWA+104 02930000 SDWAEMK1 EQU SDWAEC1 02931000 SDWAMWP1 EQU SDWAEC1+1 02932000 SDWAINT1 EQU SDWAEC1+2 02933000 SDWANXT1 EQU SDWAEC1+4 02934000 SDWAAEC1 EQU SDWA+112 02935000 SDWAILC1 EQU SDWAAEC1+1 02936000 SDWAINC1 EQU SDWAAEC1+2 02937000 SDWAICD1 EQU SDWAINC1+1 02938000 SDWAEC2 EQU SDWA+120 02939000 SDWAEMK2 EQU SDWAEC2 02940000 SDWAMWP2 EQU SDWAEC2+1 02941000 SDWAINT2 EQU SDWAEC2+2 02942000 SDWANXT2 EQU SDWAEC2+4 02943000 SDWAAEC2 EQU SDWA+128 02944000 SDWAILC2 EQU SDWAAEC2+1 02945000 SDWAINC2 EQU SDWAAEC2+2 02946000 SDWAICD2 EQU SDWAINC2+1 02947000 SDWASRSV EQU SDWA+136 02948000 SDWAIDNT EQU SDWA+200 02949000 SDWAMCH EQU SDWA+204 02950000 SDWASTCK EQU SDWAMCH 02951000 SDWAMCHI EQU SDWAMCH+8 02952000 SDWAMCHS EQU SDWAMCHI 02953000 SDWAMCHD EQU SDWAMCHI+1 02954000 SDWARSR1 EQU SDWAMCH+12 02955000 SDWARSR2 EQU SDWAMCH+13 02956000 SDWAFLGS EQU SDWA+232 02957000 SDWAERRA EQU SDWAFLGS 02958000 SDWAERRB EQU SDWAFLGS+1 02959000 SDWAERRC EQU SDWAFLGS+2 02960000 SDWAERRD EQU SDWAFLGS+3 02961000 SDWAIOFS EQU SDWA+238 02962000 SDWACPUA EQU SDWA+248 02963000 SDWAPARQ EQU SDWA+252 02964000 SDWARCDE EQU SDWAPARQ 02965000 SDWAACF2 EQU SDWAPARQ+1 02966000 SDWAACF3 EQU SDWAPARQ+2 02967000 SDWAACF4 EQU SDWAPARQ+3 02968000 SDWALKWA EQU SDWA+256 02969000 SDWALKWS EQU SDWALKWA 02970000 SDWARECP EQU SDWA+292 02971000 SDWASNPA EQU SDWA+320 02972000 SDWADUMP EQU SDWASNPA 02973000 SDWADPFS EQU SDWADUMP+1 02974000 SDWADDAT EQU SDWASNPA+4 02975000 SDWASDAT EQU SDWADDAT 02976000 SDWAPDAT EQU SDWADDAT+2 02977000 SDWADPSA EQU SDWA+328 02978000 SDWADPSL EQU SDWADPSA 02979000 SDWARA EQU SDWA+400 02980000 SDWADPVA EQU SDWARA+2 02981000 EWA EQU 0 02982000 EWAHDR EQU EWA 02983000 EWAFLAGS EQU EWA+4 02984000 EWAFLG1 EQU EWAFLAGS 02985000 EWASCCD EQU EWAFLG1 02986000 EWASCC3 EQU EWASCCD 02987000 EWABDSNS EQU EWAFLG1 02988000 EWAFLG2 EQU EWAFLAGS+1 02989000 EWAMDR EQU EWAFLG2 02990000 EWAFLG3 EQU EWAFLAGS+2 02991000 EWAJAM EQU EWAFLG3 02992000 EWASNSCT EQU EWAFLAGS+3 02993000 EWACNTRS EQU EWA+10 02994000 EWACNTR1 EQU EWACNTRS 02995000 EWACNTR2 EQU EWACNTRS+1 02996000 EWACNTR3 EQU EWACNTRS+2 02997000 EWACNTR4 EQU EWACNTRS+3 02998000 EWASTUP EQU EWA+14 02999000 EWAERPIB EQU EWA+16 03000000 EWARGFG1 EQU EWAERPIB+4 03001000 EWANORTY EQU EWARGFG1 03002000 EWARGFG2 EQU EWAERPIB+5 03003000 EWAXCSW1 EQU EWAERPIB+6 03004000 EWAXCSW2 EQU EWAERPIB+7 03005000 EWACTEC EQU EWAXCSW2 03006000 EWACHA EQU EWA+24 03007000 EWAIERP EQU EWA+32 03008000 CCWMAP EQU 0 03009000 CCWCMD EQU CCWMAP 03010000 CCWRDWT EQU CCWCMD 03011000 CCWCMDTP EQU CCWRDWT 03012000 CCWADDR EQU CCWMAP+1 03013000 CCWFLAG EQU CCWMAP+4 03014000 CCWCC EQU CCWFLAG 03015000 CCWSLI EQU CCWFLAG 03016000 CCWCOUNT EQU CCWMAP+6 03017000 DVDPOBR EQU 0 03018000 OBRSIZE EQU DVDPOBR 03019000 OBRRTN EQU DVDPOBR+3 03020000 OBRID EQU DVDPOBR+5 03021000 OBRCHA EQU DVDPOBR+24 03022000 OBRUA EQU DVDPOBR+25 03023000 OBRCNT EQU DVDPOBR+26 03024000 OBRFLAG EQU DVDPOBR+27 03025000 OBRDATA EQU DVDPOBR+28 03026000 @NM00115 EQU 0 03027000 UCS1 EQU @NM00115 03028000 UCS2 EQU @NM00115+256 03029000 PTR8 EQU 0 03030000 EXTFCB EQU 0 03031000 UCBFCBP EQU EXTFCB 03032000 I031F EQU 0 03033000 FCB EQU 0 03034000 I001C EQU 0 03035000 I008P EQU 0 03036000 I015F EQU 0 03037000 I015P EQU 0 03038000 I031P EQU 0 03039000 I256C EQU 0 03040000 UCBBGN EQU 0 03041000 UCS EQU 0 03042000 RQEPTR EQU IOSUSE 03043000 TCBPTR EQU RQETCB 03044000 IOSATTSC EQU IOSIPIB 03045000 IOSWTOWA EQU IOSIPIB 03046000 IOSPCISC EQU IOSIPIB 03047000 UCBOBS01 EQU UCBDEV 03048000 UCBSTAB EQU UCBOBS01+10 03049000 UCBBSVL EQU UCBSTAB 03050000 UCBPRSRS EQU UCBSTAB 03051000 UCBDMCT EQU UCBOBS01+11 03052000 UCBFL4 EQU UCBOBS01+13 03053000 UCBOBS02 EQU UCBDEV 03054000 UCBTFL1 EQU UCBOBS02+19 03055000 UCBXTN EQU UCBOBS02+20 03056000 UCBVOPT EQU UCBXTN 03057000 UCBOBS03 EQU UCBDEV 03058000 UCBXTADR EQU UCBOBS03 03059000 UCBOBS04 EQU UCBDEV 03060000 UCBBTA EQU UCBOBS04+12 03061000 UCBOBS06 EQU UCBDEV 03062000 UCBAOF EQU UCBOBS06 03063000 UCBAOF1 EQU UCBAOF 03064000 UCBAOF2 EQU UCBAOF+1 03065000 @NM00016 EQU UCBOBS06+3 03066000 UCBIRB EQU UCBOBS06+4 03067000 UCBGRAF EQU UCBIRB 03068000 UCBLDNCA EQU UCBOBS06+8 03069000 UCBRDYQ EQU UCBLDNCA 03070000 UCBIRLN EQU UCBRDYQ 03071000 UCBLDNCB EQU UCBRDYQ+1 03072000 UCBCTLNK EQU UCBOBS06+12 03073000 UCBOBS07 EQU UCBDEV 03074000 UCBOBS08 EQU UCBDEV 03075000 UCBCTCAD EQU UCBOBS08 03076000 UCBCTCF1 EQU UCBOBS08+4 03077000 UCBOBS09 EQU UCBDEV 03078000 DCBPTR EQU IOBDCBPT 03079000 IOBORG01 EQU IOBPREFX+8 03080000 IOBNIOBA EQU IOBORG01 03081000 IOBNFLG1 EQU IOBNIOBA 03082000 IOBPRTOV EQU IOBNFLG1 03083000 IOBORG02 EQU IOBPREFX+8 03084000 IOBDQADA EQU IOBORG02 03085000 IOBDEQIN EQU IOBDQADA 03086000 IOBORG03 EQU IOBPREFX+12 03087000 IOBORG04 EQU IOBINCAM 03088000 IOBORG12 EQU IOBINCAM 03089000 IOBFL4 EQU IOBORG12 03090000 IOBEXTEN EQU IOBSTDRD+32 03091000 IOBSEEK EQU IOBEXTEN 03092000 IOBBB EQU IOBSEEK+1 03093000 IOBCC EQU IOBSEEK+3 03094000 IOBHH EQU IOBSEEK+5 03095000 IOBORG05 EQU IOBEXTEN 03096000 IOBORG06 EQU IOBEXTEN 03097000 IOBNXTPT EQU IOBORG06+4 03098000 IOBSTATA EQU IOBNXTPT 03099000 IOBORG07 EQU IOBEXTEN+8 03100000 W1IEXTEN EQU IOBORG07 03101000 IOBORG08 EQU IOBEXTEN+8 03102000 IOBINDCT EQU IOBORG08+4 03103000 IOBUNSQR EQU IOBORG08+5 03104000 IOBFCHAD EQU IOBORG08+8 03105000 IOBORG09 EQU IOBEXTEN+8 03106000 IOBDPLAD EQU IOBORG09+4 03107000 IOBDTYPE EQU IOBORG09+8 03108000 IOBDTYP2 EQU IOBORG09+9 03109000 IOBDSTAT EQU IOBORG09+10 03110000 IOBSTAT1 EQU IOBDSTAT 03111000 IOBORG10 EQU IOBEXTEN+8 03112000 IOBSEEK2 EQU IOBORG10 03113000 IOBORG11 EQU IOBEXTEN 03114000 IOBERCT EQU IOBORG11 03115000 IOBUCBXV EQU IOBERCT 03116000 IOBNAME EQU IOBORG11+4 03117000 IOBORG13 EQU IOBEXTEN 03118000 IOBSKADR EQU IOBORG13 03119000 CVTS01 EQU CVTPGSIA 03120000 CVTLPDIA EQU CVTS01+12 03121000 CVTDIRST EQU CVTLPDIA 03122000 CVTSLIDA EQU CVTS01+24 03123000 CVTCTLFG EQU CVTS01+50 03124000 CVTRV210 EQU CVTS01+424 03125000 CVTRV219 EQU CVTS01+425 03126000 CVTRV228 EQU CVTS01+426 03127000 CVTRV237 EQU CVTS01+427 03128000 CVTMFRTR EQU CVTS01+452 03129000 CVTRV262 EQU CVTS01+468 03130000 CVTRV271 EQU CVTS01+469 03131000 CVTRV280 EQU CVTS01+470 03132000 CVTRV289 EQU CVTS01+471 03133000 CVTGSDA EQU CVTS01+600 03134000 EWADDIOS EQU EWAIERP 03135000 EWUMAP EQU EWAIERP 03136000 EWUSN0 EQU EWUMAP 03137000 EWUCREJ EQU EWUSN0 03138000 EWUINT EQU EWUSN0 03139000 EWUBUSO EQU EWUSN0 03140000 EWUDTCK EQU EWUSN0 03141000 EWUBUFP EQU EWUSN0 03142000 EWULDCK EQU EWUSN0 03143000 EWUUSEQ EQU EWULDCK 03144000 EWUCH9 EQU EWUSN0 03145000 EWUSN1 EQU EWUMAP+1 03146000 EWUCRTRY EQU EWUSN1 03147000 EWUPERM EQU EWUCRTRY 03148000 EWUIVCMD EQU EWUPERM 03149000 EWUNORDY EQU EWUIVCMD 03150000 EWUCMD EQU EWUNORDY 03151000 EWUHARD EQU EWUCMD 03152000 EWUUNPRT EQU EWUHARD 03153000 EWUPCK EQU EWUSN1 03154000 EWUARTRY EQU EWUPCK 03155000 EWUOPCK EQU EWUARTRY 03156000 EWUDATA EQU EWUOPCK 03157000 EWUPRM EQU EWUDATA 03158000 EWUPQ EQU EWUSN1 03159000 EWUMOT EQU EWUPQ 03160000 EWUTONFL EQU EWUMOT 03161000 EWUELGFL EQU EWUTONFL 03162000 EWUNOTRT EQU EWUELGFL 03163000 EWULNPOS EQU EWUSN1 03164000 EWUIRTRY EQU EWULNPOS 03165000 EWUNOTNE EQU EWUIRTRY 03166000 EWUCANCL EQU EWUNOTNE 03167000 EWUCHCOD EQU EWUCANCL 03168000 EWUFORM EQU EWUSN1 03169000 EWUDEVRQ EQU EWUFORM 03170000 EWUMLTCH EQU EWUDEVRQ 03171000 EWUSUPR EQU EWUSN1 03172000 EWUEOFRM EQU EWUSUPR 03173000 EWUMECMO EQU EWUSN1 03174000 EWUOUTFL EQU EWUMECMO 03175000 EWUSN2 EQU EWUMAP+2 03176000 EWUUCSBP EQU EWUSN2 03177000 EWUHLDL EQU EWUUCSBP 03178000 EWUPLBP EQU EWUSN2 03179000 EWUXFRCK EQU EWUPLBP 03180000 EWUFCBP EQU EWUSN2 03181000 EWUFUSCK EQU EWUFCBP 03182000 EWUCFS EQU EWUSN2 03183000 EWUPRCCK EQU EWUSN2 03184000 EWUSN3 EQU EWUMAP+3 03185000 EWUSYRST EQU EWUSN3 03186000 EWUSN4 EQU EWUMAP+4 03187000 EWUBKUP EQU EWUMAP+20 03188000 EWUWORK EQU EWUMAP+24 03189000 @NM00112 EQU OBRDATA 03190000 OBRCKRA EQU @NM00112 03191000 OBR1ST10 EQU @NM00112+150 03192000 OBRPLBA EQU @NM00112+160 03193000 @NM00113 EQU OBRDATA 03194000 OBRUCSA EQU @NM00113 03195000 OBRUCSID EQU @NM00113+512 03196000 @NM00114 EQU OBRDATA 03197000 OBRFCBA EQU @NM00114 03198000 OBRFCBID EQU @NM00114+180 03199000 MDRHDR EQU OBRSIZE 03200000 CSWSTBYT EQU IOSTATUS 03201000 CSWCHE EQU CSWSTBYT 03202000 CSWDVE EQU CSWSTBYT 03203000 CSWUCK EQU CSWSTBYT 03204000 CSWUEX EQU CSWSTBYT 03205000 CSWCDK EQU CSWSTBYT+1 03206000 CSWCTK EQU CSWSTBYT+1 03207000 CSWICK EQU CSWSTBYT+1 03208000 CSWCCK EQU CSWSTBYT+1 03209000 FLAGS1 EQU EWACNTR3 03210000 ENTFLAG EQU FLAGS1 03211000 IRQFLAG EQU FLAGS1 03212000 MDRFLAG EQU FLAGS1 03213000 BUFFLAG EQU FLAGS1 03214000 PLBFLAG EQU FLAGS1 03215000 UCSBFLAG EQU FLAGS1 03216000 FCBFLAG EQU FLAGS1 03217000 LOADFLAG EQU FLAGS1 03218000 FLAGS2 EQU EWACNTR1 03219000 NEXTCCW EQU FLAGS2 03220000 CKRFLAG EQU FLAGS2 03221000 PSEUDOIR EQU FLAGS2 03222000 ICKSW EQU FLAGS2 03223000 CHCTSW EQU FLAGS2 03224000 CHDTSW EQU FLAGS2 03225000 BOPARSW EQU FLAGS2 03226000 @NM00116 EQU EWARGFG1 03227000 SIOCC1 EQU @NM00116 03228000 @NM00118 EQU EWAXCSW1 03229000 COMADVAL EQU @NM00118 03230000 @NM00121 EQU EWASTUP 03231000 CHDTSTAT EQU @NM00121 03232000 CHCSTAT EQU @NM00121 03233000 INTCSTAT EQU @NM00121 03234000 CFSSTAT EQU @NM00121 03235000 BSSSTAT EQU @NM00121 03236000 NOBSSTAT EQU @NM00121 03237000 SJAMSTAT EQU @NM00121+1 03238000 CDCUP EQU @NM00121+1 03239000 AGO .@UNREFD START UNREFERENCED COMPONENTS 03240000 @NM00124 EQU @NM00121+1 03241000 @NM00123 EQU @NM00121 03242000 @NM00122 EQU @NM00121 03243000 @NM00120 EQU @NM00118 03244000 @NM00119 EQU @NM00118 03245000 @NM00117 EQU @NM00116 03246000 MDRSW EQU FLAGS2 03247000 CSWPCK EQU CSWSTBYT+1 03248000 CSWPC EQU CSWSTBYT+1 03249000 CSWIL EQU CSWSTBYT+1 03250000 CSWPCI EQU CSWSTBYT+1 03251000 CSWBSY EQU CSWSTBYT 03252000 CSWCUE EQU CSWSTBYT 03253000 CSWSMD EQU CSWSTBYT 03254000 CSWATN EQU CSWSTBYT 03255000 EWUSN23 EQU EWUMAP+23 03256000 EWUSN22 EQU EWUMAP+22 03257000 EWUSN21 EQU EWUBKUP+1 03258000 EWUSN20 EQU EWUBKUP 03259000 EWUSN19 EQU EWUMAP+19 03260000 EWUSN18 EQU EWUMAP+18 03261000 EWUSN17 EQU EWUMAP+17 03262000 EWUSN16 EQU EWUMAP+16 03263000 EWUSN15 EQU EWUMAP+15 03264000 EWUSN14 EQU EWUMAP+14 03265000 EWUSN13 EQU EWUMAP+13 03266000 EWUSN12 EQU EWUMAP+12 03267000 EWUSN11 EQU EWUMAP+11 03268000 EWUSN10 EQU EWUMAP+10 03269000 EWUSN9 EQU EWUMAP+9 03270000 EWUSN8 EQU EWUMAP+8 03271000 EWUSN7 EQU EWUMAP+7 03272000 EWUSN6 EQU EWUMAP+6 03273000 EWUSN5 EQU EWUMAP+5 03274000 EWUPCADV EQU EWUSN3 03275000 EWUTHRED EQU EWUSN3 03276000 EWUBLKDC EQU EWUSN3 03277000 EWUPGEPT EQU EWUSN3 03278000 EWUPRRDY EQU EWUSN3 03279000 EWULINOV EQU EWUSN2 03280000 @NM00105 EQU EWUSN2 03281000 EWUWCPAR EQU EWUSN2 03282000 EWUBDGRM EQU EWUPRCCK 03283000 EWUBDFOV EQU EWUCFS 03284000 EWUBDCPY EQU EWUFUSCK 03285000 EWUWCG00 EQU EWUXFRCK 03286000 EWUBDWCG EQU EWUHLDL 03287000 EWUBADTC EQU EWUOUTFL 03288000 EWUNOWCG EQU EWUEOFRM 03289000 EWUFCBLN EQU EWUMLTCH 03290000 EWUBADCC EQU EWUCHCOD 03291000 EWUHLFER EQU EWUNOTRT 03292000 EWUERLPI EQU EWUPRM 03293000 EWUINVLN EQU EWUUNPRT 03294000 EWUPEK EQU EWUCH9 03295000 EWUABFR EQU EWUUSEQ 03296000 EWUOVRN EQU EWUBUFP 03297000 EWUEQCK EQU EWUSN0 03298000 EWAEND EQU EWADDIOS+71 03299000 EWASCSW EQU EWADDIOS+64 03300000 EWASNS EQU EWADDIOS 03301000 CVTRV628 EQU CVTS01+728 03302000 CVTRV627 EQU CVTS01+724 03303000 CVTRV626 EQU CVTS01+720 03304000 CVTRV625 EQU CVTS01+716 03305000 CVTRV624 EQU CVTS01+712 03306000 CVTRV623 EQU CVTS01+708 03307000 CVTRV622 EQU CVTS01+704 03308000 CVTRV621 EQU CVTS01+700 03309000 CVTIHASU EQU CVTS01+696 03310000 CVTRV619 EQU CVTS01+692 03311000 CVTRV618 EQU CVTS01+688 03312000 CVTRV617 EQU CVTS01+684 03313000 CVTRV616 EQU CVTS01+680 03314000 CVTRV615 EQU CVTS01+676 03315000 CVTRV614 EQU CVTS01+672 03316000 CVTRV613 EQU CVTS01+668 03317000 CVTTCASP EQU CVTS01+664 03318000 CVT0PT03 EQU CVTS01+660 03319000 CVT0PT0E EQU CVTS01+656 03320000 CVTRV609 EQU CVTS01+652 03321000 CVTCGK EQU CVTS01+648 03322000 CVTRAC EQU CVTS01+644 03323000 CVTHSM EQU CVTS01+640 03324000 CVTRV605 EQU CVTS01+636 03325000 CVTRV604 EQU CVTS01+632 03326000 CVTEFF02 EQU CVTS01+628 03327000 CVTCBBR EQU CVTS01+624 03328000 CVTSSCR EQU CVTS01+620 03329000 CVTEVENT EQU CVTS01+616 03330000 CVTCRCA EQU CVTS01+612 03331000 CVTTPIO EQU CVTS01+608 03332000 CVTADV EQU CVTS01+604 03333000 CVTGSDAB EQU CVTGSDA 03334000 CVTQV3 EQU CVTS01+596 03335000 CVTQV2 EQU CVTS01+592 03336000 CVTQV1 EQU CVTS01+588 03337000 CVTRPT EQU CVTS01+584 03338000 CVTSSRB EQU CVTS01+580 03339000 CVTCSDRL EQU CVTS01+576 03340000 CVTEXP1 EQU CVTS01+572 03341000 CVTRMPMT EQU CVTS01+568 03342000 CVTRMPTT EQU CVTS01+564 03343000 CVTVPSA EQU CVTS01+560 03344000 CVTVSTOP EQU CVTS01+556 03345000 CVTGTFR8 EQU CVTS01+552 03346000 CVTQUIT EQU CVTS01+548 03347000 CVTVACR EQU CVTS01+544 03348000 CVTWTCB EQU CVTS01+540 03349000 CVTSTPRS EQU CVTS01+536 03350000 CVT0PT02 EQU CVTS01+532 03351000 CVTDARCM EQU CVTS01+528 03352000 CVTIRECM EQU CVTS01+524 03353000 CVTJRECM EQU CVTS01+520 03354000 CVTVEMS0 EQU CVTS01+516 03355000 CVTSPFRR EQU CVTS01+512 03356000 CVTRLSTG EQU CVTS01+508 03357000 CVT0TC0A EQU CVTS01+504 03358000 CVTGMBR EQU CVTS01+500 03359000 CVTLFRM EQU CVTS01+496 03360000 CVTRMBR EQU CVTS01+492 03361000 CVTVIOP EQU CVTS01+488 03362000 CVTRV307 EQU CVTS01+486 03363000 CVTRV306 EQU CVTS01+484 03364000 CVTRV305 EQU CVTS01+482 03365000 CVTRV304 EQU CVTS01+480 03366000 CVTRV303 EQU CVTS01+478 03367000 CVTRV302 EQU CVTS01+476 03368000 CVTTRCA EQU CVTS01+472 03369000 CVTRV297 EQU CVTRV289 03370000 CVTRV296 EQU CVTRV289 03371000 CVTRV295 EQU CVTRV289 03372000 CVTRV294 EQU CVTRV289 03373000 CVTRV293 EQU CVTRV289 03374000 CVTRV292 EQU CVTRV289 03375000 CVTRV291 EQU CVTRV289 03376000 CVTRV290 EQU CVTRV289 03377000 CVTRV288 EQU CVTRV280 03378000 CVTRV287 EQU CVTRV280 03379000 CVTRV286 EQU CVTRV280 03380000 CVTRV285 EQU CVTRV280 03381000 CVTRV284 EQU CVTRV280 03382000 CVTRV283 EQU CVTRV280 03383000 CVTRV282 EQU CVTRV280 03384000 CVTRV281 EQU CVTRV280 03385000 CVTRV279 EQU CVTRV271 03386000 CVTRV278 EQU CVTRV271 03387000 CVTRV277 EQU CVTRV271 03388000 CVTRV276 EQU CVTRV271 03389000 CVTRV275 EQU CVTRV271 03390000 CVTRV274 EQU CVTRV271 03391000 CVTRV273 EQU CVTRV271 03392000 CVTRV272 EQU CVTRV271 03393000 CVTRV270 EQU CVTRV262 03394000 CVTRV269 EQU CVTRV262 03395000 CVTRV268 EQU CVTRV262 03396000 CVTRV267 EQU CVTRV262 03397000 CVTRV266 EQU CVTRV262 03398000 CVTRV265 EQU CVTRV262 03399000 CVTRV264 EQU CVTRV262 03400000 CVTRV263 EQU CVTRV262 03401000 CVTVFP EQU CVTS01+464 03402000 CVTVSI EQU CVTS01+460 03403000 CVTVPSIB EQU CVTS01+456 03404000 CVTMFACT EQU CVTMFRTR 03405000 CVTMFCTL EQU CVTS01+448 03406000 CVTPVBP EQU CVTS01+444 03407000 CVTPWI EQU CVTS01+440 03408000 CVTRV254 EQU CVTS01+438 03409000 CVTRV253 EQU CVTS01+436 03410000 CVTRV252 EQU CVTS01+434 03411000 CVTRV251 EQU CVTS01+433 03412000 CVTRV250 EQU CVTS01+432 03413000 CVTRV249 EQU CVTS01+431 03414000 CVTRV248 EQU CVTS01+430 03415000 CVTRV247 EQU CVTS01+429 03416000 CVTRV246 EQU CVTS01+428 03417000 CVTRV245 EQU CVTRV237 03418000 CVTRV244 EQU CVTRV237 03419000 CVTRV243 EQU CVTRV237 03420000 CVTRV242 EQU CVTRV237 03421000 CVTRV241 EQU CVTRV237 03422000 CVTRV240 EQU CVTRV237 03423000 CVTRV239 EQU CVTRV237 03424000 CVTRV238 EQU CVTRV237 03425000 CVTRV236 EQU CVTRV228 03426000 CVTRV235 EQU CVTRV228 03427000 CVTRV234 EQU CVTRV228 03428000 CVTRV233 EQU CVTRV228 03429000 CVTRV232 EQU CVTRV228 03430000 CVTRV231 EQU CVTRV228 03431000 CVTRV230 EQU CVTRV228 03432000 CVTRV229 EQU CVTRV228 03433000 CVTRV227 EQU CVTRV219 03434000 CVTRV226 EQU CVTRV219 03435000 CVTRV225 EQU CVTRV219 03436000 CVTRV224 EQU CVTRV219 03437000 CVTRV223 EQU CVTRV219 03438000 CVTRV222 EQU CVTRV219 03439000 CVTRV221 EQU CVTRV219 03440000 CVTRV220 EQU CVTRV219 03441000 CVTRV218 EQU CVTRV210 03442000 CVTRV217 EQU CVTRV210 03443000 CVTRV216 EQU CVTRV210 03444000 CVTRV215 EQU CVTRV210 03445000 CVTRV214 EQU CVTRV210 03446000 CVTRV213 EQU CVTRV210 03447000 CVTRV212 EQU CVTRV210 03448000 CVTRV211 EQU CVTRV210 03449000 CVTLCCAT EQU CVTS01+420 03450000 CVTPCCAT EQU CVTS01+416 03451000 CVTIPCRP EQU CVTS01+412 03452000 CVTIPCRI EQU CVTS01+408 03453000 CVTIPCDS EQU CVTS01+404 03454000 CVTAIDVT EQU CVTS01+400 03455000 CVTSSAP EQU CVTS01+396 03456000 CVTEHCIR EQU CVTS01+392 03457000 CVTEHDEF EQU CVTS01+388 03458000 CVTDAIR EQU CVTS01+384 03459000 CVTPERFM EQU CVTS01+380 03460000 CVT044R2 EQU CVTS01+376 03461000 CVTFETCH EQU CVTS01+372 03462000 CVTRSTWD EQU CVTS01+368 03463000 CVTSPOST EQU CVTS01+364 03464000 CVTIOBP EQU CVTS01+360 03465000 CVTASMVT EQU CVTS01+356 03466000 CVTRECRQ EQU CVTS01+352 03467000 CVTWSAC EQU CVTS01+348 03468000 CVTRV149 EQU CVTS01+344 03469000 CVTWSAL EQU CVTS01+340 03470000 CVTSPSA EQU CVTS01+336 03471000 CVTGLMN EQU CVTS01+332 03472000 CVTVEAC0 EQU CVTS01+328 03473000 CVT062R1 EQU CVTS01+324 03474000 CVTRPOST EQU CVTS01+320 03475000 CVTDQIQE EQU CVTS01+316 03476000 CVTCSD EQU CVTS01+312 03477000 CVTLKRMA EQU CVTS01+308 03478000 CVTRSPIE EQU CVTS01+304 03479000 CVTRENQ EQU CVTS01+300 03480000 CVTLQCB EQU CVTS01+296 03481000 CVTFQCB EQU CVTS01+292 03482000 CVTQCS01 EQU CVTS01+288 03483000 CVTAPFT EQU CVTS01+284 03484000 CVTPARRL EQU CVTS01+280 03485000 CVTVWAIT EQU CVTS01+276 03486000 CVTGSPL EQU CVTS01+272 03487000 CVTLSMQ EQU CVTS01+268 03488000 CVTGSMQ EQU CVTS01+264 03489000 CVTEXPRO EQU CVTS01+260 03490000 CVTOPCTP EQU CVTS01+256 03491000 CVTSIC EQU CVTS01+252 03492000 CVTTPIOS EQU CVTS01+248 03493000 CVTRTMS EQU CVTS01+244 03494000 CVTSDBF EQU CVTS01+240 03495000 CVTSCBP EQU CVTS01+236 03496000 CVTSDMP EQU CVTS01+232 03497000 CVTSV60 EQU CVTS01+228 03498000 CVTRTMCT EQU CVTS01+224 03499000 CVTASCBL EQU CVTS01+220 03500000 CVTASCBH EQU CVTS01+216 03501000 CVTGDA EQU CVTS01+212 03502000 CVTASVT EQU CVTS01+208 03503000 CVTVVMDI EQU CVTS01+204 03504000 CVTAQTOP EQU CVTS01+200 03505000 CVTIOSCS EQU CVTS01+196 03506000 CVTSDRM EQU CVTS01+192 03507000 CVTOPTE EQU CVTS01+188 03508000 CVTSTXU EQU CVTS01+184 03509000 CVTQUIS EQU CVTS01+180 03510000 CVTPARS EQU CVTS01+176 03511000 CVTS1EE EQU CVTS01+172 03512000 CVTFRAS EQU CVTS01+168 03513000 CVTQSAS EQU CVTS01+164 03514000 CVTCRAS EQU CVTS01+160 03515000 CVTCRMN EQU CVTS01+156 03516000 CVTDELCP EQU CVTS01+152 03517000 CVTFRECL EQU CVTS01+148 03518000 CVTGETCL EQU CVTS01+144 03519000 CVTBLDCP EQU CVTS01+140 03520000 CVTAUTHL EQU CVTS01+136 03521000 CVTSCAN EQU CVTS01+132 03522000 CVTRV144 EQU CVTS01+130 03523000 CVTMAXMP EQU CVTS01+128 03524000 CVTSTCK EQU CVTS01+124 03525000 CVTRV139 EQU CVTS01+123 03526000 CVTDSSAC EQU CVTS01+122 03527000 CVTRV513 EQU CVTS01+121 03528000 CVTIOSPL EQU CVTS01+120 03529000 CVTPTGT EQU CVTS01+116 03530000 CVTCSPIE EQU CVTS01+112 03531000 CVTSMFEX EQU CVTS01+108 03532000 CVTOLT0A EQU CVTS01+104 03533000 CVTSRBRT EQU CVTS01+100 03534000 CVTPUTL EQU CVTS01+96 03535000 CVTASCRL EQU CVTS01+92 03536000 CVTASCRF EQU CVTS01+88 03537000 CVTRV326 EQU CVTS01+84 03538000 CVTRV325 EQU CVTS01+80 03539000 CVTRV324 EQU CVTS01+76 03540000 CVT0VL01 EQU CVTS01+72 03541000 CVTSHRVM EQU CVTS01+68 03542000 CVTRV332 EQU CVTS01+64 03543000 CVTTAS EQU CVTS01+60 03544000 CVTRSCN EQU CVTS01+56 03545000 CVTTRAC2 EQU CVTS01+54 03546000 CVTTRACE EQU CVTS01+52 03547000 CVTAPG EQU CVTS01+51 03548000 CVTSDTRC EQU CVTCTLFG 03549000 CVTGTRCE EQU CVTCTLFG 03550000 CVTNOMP EQU CVTCTLFG 03551000 CVTRSV79 EQU CVTCTLFG 03552000 CVTDSTAT EQU CVTCTLFG 03553000 CVTRSV78 EQU CVTCTLFG 03554000 CVTRV333 EQU CVTCTLFG 03555000 CVTRV323 EQU CVTCTLFG 03556000 CVTSPVLK EQU CVTS01+49 03557000 CVTRSV77 EQU CVTS01+48 03558000 CVTRV331 EQU CVTS01+44 03559000 CVTRV330 EQU CVTS01+40 03560000 CVTRV329 EQU CVTS01+36 03561000 CVTRV328 EQU CVTS01+32 03562000 CVTRV322 EQU CVTS01+28 03563000 CVTSLID EQU CVTSLIDA+1 03564000 CVTSYLK EQU CVTSLIDA 03565000 CVTRV321 EQU CVTS01+20 03566000 CVTRV320 EQU CVTS01+16 03567000 CVTLPDIR EQU CVTLPDIA+1 03568000 CVTRSV69 EQU CVTDIRST 03569000 CVTRSV68 EQU CVTDIRST 03570000 CVTRSV67 EQU CVTDIRST 03571000 CVTRSV66 EQU CVTDIRST 03572000 CVTRSV65 EQU CVTDIRST 03573000 CVTRSV64 EQU CVTDIRST 03574000 CVTRSV63 EQU CVTDIRST 03575000 CVTDICOM EQU CVTDIRST 03576000 CVTPVTP EQU CVTS01+8 03577000 CVTLPDSR EQU CVTS01+4 03578000 CVTGETL EQU CVTS01 03579000 IOBSKSS EQU IOBSKADR+3 03580000 IOBSK0 EQU IOBSKADR+2 03581000 IOBSKTT EQU IOBSKADR+1 03582000 IOBSKRV EQU IOBSKADR 03583000 IOBCSWSV EQU IOBORG11+17 03584000 IOBSENSV EQU IOBORG11+16 03585000 IOBRCD EQU IOBORG11+12 03586000 IOBMDREC EQU IOBORG11+8 03587000 IOBNAMEA EQU IOBNAME+1 03588000 IOBNAMSZ EQU IOBNAME 03589000 IOBERCTA EQU IOBERCT+1 03590000 IOBRTYPE EQU IOBUCBXV 03591000 IOBRDCHP EQU IOBORG10+20 03592000 IOBNEXTA EQU IOBORG10+16 03593000 IOBREADA EQU IOBORG10+12 03594000 IOBBUFC EQU IOBORG10+8 03595000 IOBSK2R EQU IOBSEEK2+7 03596000 IOBSK2HH EQU IOBSEEK2+5 03597000 IOBSK2CC EQU IOBSEEK2+3 03598000 IOBSK2BB EQU IOBSEEK2+1 03599000 IOBSK2M EQU IOBSEEK2 03600000 IOBCHNPR EQU IOBORG09+40 03601000 IOBDNCRF EQU IOBORG09+32 03602000 IOBRSV35 EQU IOBORG09+24 03603000 IOBDQPTR EQU IOBORG09+20 03604000 IOBRSV34 EQU IOBORG09+18 03605000 IOBDBYTN EQU IOBORG09+16 03606000 IOBDCPND EQU IOBORG09+12 03607000 IOBSTAT2 EQU IOBDSTAT+1 03608000 IOBSIORT EQU IOBSTAT1 03609000 IOBADDVU EQU IOBSTAT1 03610000 IOBBUFF EQU IOBSTAT1 03611000 IOBENQUE EQU IOBSTAT1 03612000 IOBPASS2 EQU IOBSTAT1 03613000 IOBSYNCH EQU IOBSTAT1 03614000 IOBNEWVL EQU IOBSTAT1 03615000 IOBABNRM EQU IOBSTAT1 03616000 IOBRELEX EQU IOBDTYP2 03617000 IOBADDTY EQU IOBDTYP2 03618000 IOBTYPE EQU IOBDTYP2 03619000 IOBRQUST EQU IOBDTYP2 03620000 IOBSUFFX EQU IOBDTYP2 03621000 IOBSBLKL EQU IOBDTYP2 03622000 IOBSKEY EQU IOBDTYP2 03623000 IOBRELBL EQU IOBDTYPE 03624000 IOBRDEXC EQU IOBDTYPE 03625000 IOBDYNBF EQU IOBDTYPE 03626000 IOBACTAD EQU IOBDTYPE 03627000 IOBFDBCK EQU IOBDTYPE 03628000 IOBEXTSC EQU IOBDTYPE 03629000 IOBOVFLO EQU IOBDTYPE 03630000 IOBVERFY EQU IOBDTYPE 03631000 IOBDPLB EQU IOBDPLAD+1 03632000 IOBDAYLI EQU IOBDPLAD 03633000 IOBDIOBS EQU IOBORG09+2 03634000 IOBDBYTR EQU IOBORG09 03635000 IOBBCHAD EQU IOBORG08+12 03636000 IOBFCHNB EQU IOBFCHAD+1 03637000 IOBCOUNT EQU IOBFCHAD 03638000 IOBASYN EQU IOBORG08+7 03639000 IOBAPP EQU IOBORG08+6 03640000 IOBRSV32 EQU IOBUNSQR 03641000 IOBRSV31 EQU IOBUNSQR 03642000 IOBRSV30 EQU IOBUNSQR 03643000 IOBKNRWR EQU IOBUNSQR 03644000 IOBKNWR EQU IOBUNSQR 03645000 IOBNTAV2 EQU IOBUNSQR 03646000 IOBNTAV1 EQU IOBUNSQR 03647000 IOBCPBSY EQU IOBUNSQR 03648000 IOBCHNNL EQU IOBINDCT 03649000 IOBRSV29 EQU IOBINDCT 03650000 IOBRSV28 EQU IOBINDCT 03651000 IOBRSV27 EQU IOBINDCT 03652000 IOBKEYAD EQU IOBINDCT 03653000 IOBOVPTR EQU IOBINDCT 03654000 IOBUNSCH EQU IOBINDCT 03655000 IOBDEQCP EQU IOBINDCT 03656000 IOBCCWAD EQU IOBORG08 03657000 W1OEXTEN EQU W1IEXTEN 03658000 IOBCCW EQU IOBORG06+8 03659000 IOBNXTPB EQU IOBNXTPT+1 03660000 IOBRSV26 EQU IOBSTATA 03661000 IOBRSV25 EQU IOBSTATA 03662000 IOBRSV24 EQU IOBSTATA 03663000 IOBRSV23 EQU IOBSTATA 03664000 IOBRSV22 EQU IOBSTATA 03665000 IOBRSV21 EQU IOBSTATA 03666000 IOBRSV20 EQU IOBSTATA 03667000 IOBAVLFL EQU IOBSTATA 03668000 IOBRSV37 EQU IOBORG06+1 03669000 IOBUCBXG EQU IOBORG06 03670000 IOBCPA EQU IOBORG05+32 03671000 IOBERINF EQU IOBORG05+16 03672000 IOBERCCW EQU IOBORG05+8 03673000 IOBSNDPT EQU IOBORG05+7 03674000 IOBRCVPT EQU IOBORG05+6 03675000 IOBWORK EQU IOBORG05+1 03676000 IOBUCBX EQU IOBORG05 03677000 IOBR EQU IOBSEEK+7 03678000 IOBHH2 EQU IOBHH+1 03679000 IOBHH1 EQU IOBHH 03680000 IOBCC2 EQU IOBCC+1 03681000 IOBCC1 EQU IOBCC 03682000 IOBBB2 EQU IOBBB+1 03683000 IOBBB1 EQU IOBBB 03684000 IOBM EQU IOBSEEK 03685000 IOBRSV46 EQU IOBFL4 03686000 IOBRSV47 EQU IOBFL4 03687000 IOBENT EQU IOBFL4 03688000 IOBEQP EQU IOBFL4 03689000 IOBBUS EQU IOBFL4 03690000 IOBDCK EQU IOBFL4 03691000 IOBREJ EQU IOBFL4 03692000 IOBOVR EQU IOBFL4 03693000 IOBCRILC EQU IOBORG04+1 03694000 IOBCRDCC EQU IOBORG04 03695000 IOBGQECB EQU IOBORG03 03696000 IOBSWAP EQU IOBORG02+4 03697000 IOBDQADB EQU IOBDQADA+1 03698000 IOBRSV13 EQU IOBDEQIN 03699000 IOBRSV12 EQU IOBDEQIN 03700000 IOBRSV11 EQU IOBDEQIN 03701000 IOBRSV10 EQU IOBDEQIN 03702000 IOBRSV09 EQU IOBDEQIN 03703000 IOBRSV08 EQU IOBDEQIN 03704000 IOBRSV07 EQU IOBDEQIN 03705000 IOBDEQ EQU IOBDEQIN 03706000 IOBNECB EQU IOBORG01+4 03707000 IOBNIOBB EQU IOBNIOBA+1 03708000 IOBFIRST EQU IOBNFLG1 03709000 IOBUPERR EQU IOBNFLG1 03710000 IOBSPAN EQU IOBNFLG1 03711000 IOBBKSPC EQU IOBNFLG1 03712000 IOBUPDAT EQU IOBNFLG1 03713000 IOBREAD EQU IOBNFLG1 03714000 IOBWRITE EQU IOBNFLG1 03715000 IOBSEGMT EQU IOBPRTOV 03716000 UCBRV066 EQU UCBOBS09+4 03717000 UCBIOSBA EQU UCBOBS09 03718000 UCBRV042 EQU UCBOBS08+5 03719000 UCBRV082 EQU UCBCTCF1 03720000 UCBRV081 EQU UCBCTCF1 03721000 UCBRV080 EQU UCBCTCF1 03722000 UCBRV079 EQU UCBCTCF1 03723000 UCBRV078 EQU UCBCTCF1 03724000 UCBRV077 EQU UCBCTCF1 03725000 UCBRV076 EQU UCBCTCF1 03726000 UCBCTC80 EQU UCBCTCF1 03727000 UCBCTCAL EQU UCBCTCAD 03728000 UCBICNCB EQU UCBOBS07+4 03729000 UCBRV040 EQU UCBOBS07 03730000 UCBCTLNA EQU UCBCTLNK+1 03731000 UCBRLN EQU UCBCTLNK 03732000 UCBRDYQA EQU UCBLDNCB 03733000 UCBINRLN EQU UCBIRLN 03734000 UCBIRBA EQU UCBIRB+1 03735000 UCBRV039 EQU UCBGRAF 03736000 UCBDWNR EQU UCBGRAF 03737000 UCBRPND EQU UCBGRAF 03738000 UCBUPM EQU UCBGRAF 03739000 UCBBTAM EQU UCBGRAF 03740000 UCBDRNO EQU UCBGRAF 03741000 UCBDRO EQU UCBGRAF 03742000 UCBOIP EQU UCBGRAF 03743000 UCBATRCD EQU @NM00016 03744000 UCBSKPFG EQU @NM00016 03745000 UCBRIPND EQU @NM00016 03746000 UCBRTIAC EQU @NM00016 03747000 UCBRSV79 EQU @NM00016 03748000 UCBRSV78 EQU @NM00016 03749000 UCBRSV77 EQU @NM00016 03750000 UCBOLTEP EQU @NM00016 03751000 UCBATNCT EQU UCBOBS06+2 03752000 UCBRSV76 EQU UCBAOF2 03753000 UCBRSV75 EQU UCBAOF2 03754000 UCBRSV74 EQU UCBAOF2 03755000 UCBRSV73 EQU UCBAOF2 03756000 UCBRSV72 EQU UCBAOF2 03757000 UCBRSV71 EQU UCBAOF2 03758000 UCBRSV70 EQU UCBAOF2 03759000 UCBRSV69 EQU UCBAOF2 03760000 UCBRSV68 EQU UCBAOF1 03761000 UCBRSV67 EQU UCBAOF1 03762000 UCBRSV66 EQU UCBAOF1 03763000 UCBRSV65 EQU UCBAOF1 03764000 UCBRSV64 EQU UCBAOF1 03765000 UCBOFNL EQU UCBAOF1 03766000 UCBOFSP EQU UCBAOF1 03767000 UCBOFMCR EQU UCBAOF1 03768000 UCBBTB EQU UCBBTA+1 03769000 UCBDI EQU UCBBTA 03770000 UCBSNS EQU UCBOBS04+8 03771000 UCBTEB EQU UCBOBS04+4 03772000 UCBGCB EQU UCBOBS04+3 03773000 UCBOPEN EQU UCBOBS04+2 03774000 UCBSTART EQU UCBOBS04 03775000 UCBXTNB EQU UCBXTN+1 03776000 UCBRSV22 EQU UCBVOPT 03777000 UCBRSV21 EQU UCBVOPT 03778000 UCBRSV20 EQU UCBVOPT 03779000 UCBESVE EQU UCBVOPT 03780000 UCBERPC EQU UCBVOPT 03781000 UCBESVC EQU UCBVOPT 03782000 UCBEVA EQU UCBVOPT 03783000 UCBESV EQU UCBVOPT 03784000 UCBRV009 EQU UCBTFL1 03785000 UCBRV008 EQU UCBTFL1 03786000 UCBRV007 EQU UCBTFL1 03787000 UCBRV006 EQU UCBTFL1 03788000 UCBRV005 EQU UCBTFL1 03789000 UCBDQDSP EQU UCBTFL1 03790000 UCBNSLTP EQU UCBTFL1 03791000 UCBNLTP EQU UCBTFL1 03792000 UCBRES1B EQU UCBOBS02+18 03793000 UCBFSER EQU UCBOBS02+12 03794000 @NM00015 EQU UCBOBS02+4 03795000 UCBFSEQ EQU UCBOBS02+2 03796000 UCBFSCT EQU UCBOBS02 03797000 UCBNEXP EQU UCBOBS01+20 03798000 UCBBASE EQU UCBOBS01+16 03799000 UCBRES1A EQU UCBOBS01+15 03800000 UCBUSER EQU UCBOBS01+14 03801000 UCBFL47 EQU UCBFL4 03802000 UCBFL46 EQU UCBFL4 03803000 UCBFL45 EQU UCBFL4 03804000 UCBRV065 EQU UCBFL4 03805000 UCBDSS EQU UCBFL4 03806000 UCBRESVP EQU UCBFL4 03807000 UCBWDAV EQU UCBFL4 03808000 UCBDAVV EQU UCBFL4 03809000 UCBSQC EQU UCBOBS01+12 03810000 UCBDATP EQU UCBOBS01+12 03811000 UCBDMC EQU UCBDMCT 03812000 UCBMOUNT EQU UCBDMCT 03813000 UCBBNUL EQU UCBSTAB 03814000 UCBSHAR EQU UCBSTAB 03815000 UCBBSTR EQU UCBSTAB 03816000 UCBBPUB EQU UCBSTAB 03817000 UCBBPRV EQU UCBSTAB 03818000 UCBBALB EQU UCBPRSRS 03819000 UCBPGFL EQU UCBSTAB 03820000 UCBDVSHR EQU UCBBSVL 03821000 UCBVOLI EQU UCBOBS01+4 03822000 UCBVTOC EQU UCBOBS01 03823000 IOSPCIWA EQU IOSPCISC+44 03824000 IOSPCIRS EQU IOSPCISC+8 03825000 @NM00013 EQU IOSPCISC+4 03826000 @NM00012 EQU IOSPCISC 03827000 IOSWRNDR EQU IOSWTOWA+4 03828000 IOSWTOPT EQU IOSWTOWA+3 03829000 IOSWTOCP EQU IOSWTOWA+2 03830000 IOSWTOCH EQU IOSWTOWA 03831000 IOSATTWA EQU IOSATTSC+40 03832000 @NM00011 EQU IOSATTSC+24 03833000 IOSATTSN EQU IOSATTSC 03834000 @NM00125 EQU EXTFCB 03835000 @NM00111 EQU DVDPOBR+6 03836000 @NM00110 EQU DVDPOBR+2 03837000 @NM00109 EQU CCWMAP+5 03838000 @NM00108 EQU CCWFLAG 03839000 CCWIDA EQU CCWFLAG 03840000 CCWPCI EQU CCWFLAG 03841000 CCWSKP EQU CCWFLAG 03842000 CCWCD EQU CCWFLAG 03843000 @NM00107 EQU CCWRDWT 03844000 @NM00106 EQU CCWCMD 03845000 EWADDISP EQU EWA+29 03846000 EWADCNT EQU EWA+28 03847000 EWACPU EQU EWA+27 03848000 @NM00104 EQU EWA+26 03849000 EWACSEQ EQU EWAXCSW2 03850000 EWACDIN EQU EWAXCSW2 03851000 @NM00103 EQU EWAXCSW2 03852000 EWACDAV EQU EWAXCSW1 03853000 EWACCHV EQU EWAXCSW1 03854000 EWACCMD EQU EWAXCSW1 03855000 EWACUNS EQU EWAXCSW1 03856000 EWACSQV EQU EWAXCSW1 03857000 @NM00102 EQU EWAXCSW1 03858000 EWACITF EQU EWAXCSW1 03859000 @NM00101 EQU EWARGFG2 03860000 EWACCUE EQU EWARGFG2 03861000 EWACSTG EQU EWARGFG2 03862000 EWACSCU EQU EWARGFG2 03863000 EWACCHA EQU EWARGFG2 03864000 EWACCPU EQU EWARGFG2 03865000 EWACCNT EQU EWARGFG1 03866000 EWACSNS EQU EWARGFG1 03867000 @NM00100 EQU EWARGFG1 03868000 EWACHIO EQU EWARGFG1 03869000 EWACTIO EQU EWARGFG1 03870000 EWACINT EQU EWARGFG1 03871000 EWACSIO EQU EWARGFG1 03872000 EWAUCB EQU EWAERPIB+1 03873000 @NM00099 EQU EWAERPIB 03874000 EWASSTAT EQU EWA+8 03875000 EWASCTMX EQU EWASNSCT 03876000 @NM00098 EQU EWASNSCT 03877000 @NM00097 EQU EWAFLG2 03878000 EWADIR EQU EWAFLG2 03879000 EWACOVF EQU EWAFLG2 03880000 EWAWTEMP EQU EWAFLG2 03881000 EWADDMSG EQU EWAFLG1 03882000 EWASCC1 EQU EWASCC3 03883000 EWASCC2 EQU EWASCC3 03884000 @NM00096 EQU EWAFLG1 03885000 EWASLIS EQU EWAFLG1 03886000 EWAEXT EQU EWAHDR 03887000 @NM00095 EQU SDWA+512 03888000 SDWAVRA EQU SDWARA+4 03889000 SDWAURAL EQU SDWARA+3 03890000 @NM00094 EQU SDWADPVA 03891000 SDWAEBC EQU SDWADPVA 03892000 SDWAHEX EQU SDWADPVA 03893000 SDWAVRAL EQU SDWARA 03894000 @NM00093 EQU SDWA+396 03895000 SDWACOMP EQU SDWA+392 03896000 SDWARCPL EQU SDWA+364 03897000 @NM00092 EQU SDWADPSA+32 03898000 SDWATO4 EQU SDWADPSL+28 03899000 SDWAFRM4 EQU SDWADPSL+24 03900000 SDWATO3 EQU SDWADPSL+20 03901000 SDWAFRM3 EQU SDWADPSL+16 03902000 SDWATO2 EQU SDWADPSL+12 03903000 SDWAFRM2 EQU SDWADPSL+8 03904000 SDWATO1 EQU SDWADPSL+4 03905000 SDWAFRM1 EQU SDWADPSL 03906000 @NM00091 EQU SDWADDAT+3 03907000 @NM00090 EQU SDWAPDAT 03908000 SDWAUSPL EQU SDWAPDAT 03909000 SDWADPSW EQU SDWAPDAT 03910000 SDWATJPA EQU SDWAPDAT 03911000 SDWATLPA EQU SDWAPDAT 03912000 SDWADREG EQU SDWAPDAT 03913000 SDWADSAH EQU SDWAPDAT 03914000 SDWADSAS EQU SDWAPDAT 03915000 @NM00089 EQU SDWADDAT+1 03916000 @NM00088 EQU SDWASDAT 03917000 SDWAQQS EQU SDWASDAT 03918000 SDWACBS EQU SDWASDAT 03919000 SDWAGTF EQU SDWASDAT 03920000 SDWASWA EQU SDWASDAT 03921000 SDWALSQA EQU SDWASDAT 03922000 SDWASQA EQU SDWASDAT 03923000 SDWANUC EQU SDWASDAT 03924000 @NM00087 EQU SDWADUMP+2 03925000 @NM00086 EQU SDWADPFS 03926000 SDWASLST EQU SDWADPFS 03927000 @NM00085 EQU SDWADPFS 03928000 SDWADLST EQU SDWADPFS 03929000 SDWADPT EQU SDWADPFS 03930000 SDWADPID EQU SDWADUMP 03931000 SDWADPLA EQU SDWA+316 03932000 SDWAREXN EQU SDWARECP+16 03933000 SDWACSCT EQU SDWARECP+8 03934000 SDWAMODN EQU SDWARECP 03935000 @NM00084 EQU SDWALKWA+32 03936000 SDWATALW EQU SDWALKWS+28 03937000 SDWATDLW EQU SDWALKWS+24 03938000 SDWATNLW EQU SDWALKWS+20 03939000 SDWAAPLW EQU SDWALKWS+16 03940000 SDWAIPLW EQU SDWALKWS+12 03941000 SDWAILLW EQU SDWALKWS+8 03942000 SDWAIULW EQU SDWALKWS+4 03943000 SDWAICLW EQU SDWALKWS 03944000 SDWAFLLK EQU SDWAACF4 03945000 SDWACMS EQU SDWAACF4 03946000 SDWAOPTM EQU SDWAACF4 03947000 SDWATADB EQU SDWAACF4 03948000 SDWATDNB EQU SDWAACF4 03949000 SDWATNCB EQU SDWAACF4 03950000 SDWAILCH EQU SDWAACF4 03951000 SDWAIUCB EQU SDWAACF4 03952000 SDWAICAT EQU SDWAACF3 03953000 SDWAIPRG EQU SDWAACF3 03954000 SDWASALL EQU SDWAACF3 03955000 SDWAASMP EQU SDWAACF3 03956000 SDWADISP EQU SDWAACF3 03957000 @NM00083 EQU SDWAACF3 03958000 @NM00082 EQU SDWAACF2 03959000 SDWAFREE EQU SDWAACF2 03960000 SDWAUPRG EQU SDWAACF2 03961000 @NM00081 EQU SDWAACF2 03962000 SDWASPIN EQU SDWAACF2 03963000 @NM00080 EQU SDWAACF2 03964000 SDWARCRD EQU SDWAACF2 03965000 SDWALCPU EQU SDWACPUA+2 03966000 @NM00079 EQU SDWACPUA 03967000 SDWARECA EQU SDWA+244 03968000 SDWARTYA EQU SDWA+240 03969000 @NM00078 EQU SDWA+239 03970000 @NM00077 EQU SDWAIOFS 03971000 SDWANIOP EQU SDWAIOFS 03972000 SDWANOIO EQU SDWAIOFS 03973000 SDWAIOHT EQU SDWAIOFS 03974000 SDWAIOQR EQU SDWAIOFS 03975000 SDWAFMID EQU SDWA+236 03976000 @NM00076 EQU SDWAERRD 03977000 SDWAMCIV EQU SDWAERRD 03978000 SDWARPIV EQU SDWAERRD 03979000 SDWAMABD EQU SDWAERRD 03980000 SDWACTS EQU SDWAERRD 03981000 SDWASTAE EQU SDWAERRD 03982000 SDWANRBE EQU SDWAERRD 03983000 SDWACLUP EQU SDWAERRD 03984000 @NM00075 EQU SDWAERRC 03985000 SDWAEAS EQU SDWAERRC 03986000 SDWAPERC EQU SDWAERRC 03987000 SDWAIRB EQU SDWAERRC 03988000 SDWASTAI EQU SDWAERRC 03989000 SDWASTAF EQU SDWAERRC 03990000 SDWASRBM EQU SDWAERRB 03991000 SDWALDIS EQU SDWAERRB 03992000 SDWAENRB EQU SDWAERRB 03993000 SDWATYP1 EQU SDWAERRB 03994000 @NM00074 EQU SDWAERRB 03995000 SDWAPGIO EQU SDWAERRA 03996000 SDWATEXC EQU SDWAERRA 03997000 SDWASVCE EQU SDWAERRA 03998000 SDWAABTM EQU SDWAERRA 03999000 SDWASVCD EQU SDWAERRA 04000000 SDWARKEY EQU SDWAERRA 04001000 SDWAPCHK EQU SDWAERRA 04002000 SDWAMCHK EQU SDWAERRA 04003000 SDWATIME EQU SDWAMCH+20 04004000 SDWARFSA EQU SDWAMCH+16 04005000 @NM00073 EQU SDWAMCH+14 04006000 SDWAVEQR EQU SDWARSR2 04007000 SDWAPGFX EQU SDWARSR2 04008000 SDWAFLSQ EQU SDWARSR2 04009000 SDWAFSQA EQU SDWARSR2 04010000 SDWANUCL EQU SDWARSR2 04011000 SDWASPER EQU SDWARSR2 04012000 SDWAINTC EQU SDWARSR2 04013000 SDWAOFLN EQU SDWARSR2 04014000 SDWACHNG EQU SDWARSR1 04015000 SDWAMSER EQU SDWARSR1 04016000 @NM00072 EQU SDWARSR1 04017000 SDWACPID EQU SDWAMCH+10 04018000 SDWATERR EQU SDWAMCHD 04019000 SDWAFPRX EQU SDWAMCHD 04020000 SDWAINSF EQU SDWAMCHD 04021000 SDWAACR EQU SDWAMCHD 04022000 SDWASCK EQU SDWAMCHD 04023000 SDWAPSWU EQU SDWAMCHD 04024000 SDWAREGU EQU SDWAMCHD 04025000 SDWASKYF EQU SDWAMCHD 04026000 @NM00071 EQU SDWAMCHS 04027000 SDWARSRF EQU SDWAMCHS 04028000 SDWARSRC EQU SDWAMCHS 04029000 SDWAINVP EQU SDWAMCHS 04030000 SDWATSVL EQU SDWAMCHS 04031000 SDWARCDF EQU SDWAMCHS 04032000 SDWASRVL EQU SDWAMCHS 04033000 SDWASCKE EQU SDWASTCK+4 04034000 SDWASCKB EQU SDWASTCK 04035000 SDWALNTH EQU SDWAIDNT+1 04036000 SDWASPID EQU SDWAIDNT 04037000 SDWASR15 EQU SDWASRSV+60 04038000 SDWASR14 EQU SDWASRSV+56 04039000 SDWASR13 EQU SDWASRSV+52 04040000 SDWASR12 EQU SDWASRSV+48 04041000 SDWASR11 EQU SDWASRSV+44 04042000 SDWASR10 EQU SDWASRSV+40 04043000 SDWASR09 EQU SDWASRSV+36 04044000 SDWASR08 EQU SDWASRSV+32 04045000 SDWASR07 EQU SDWASRSV+28 04046000 SDWASR06 EQU SDWASRSV+24 04047000 SDWASR05 EQU SDWASRSV+20 04048000 SDWASR04 EQU SDWASRSV+16 04049000 SDWASR03 EQU SDWASRSV+12 04050000 SDWASR02 EQU SDWASRSV+8 04051000 SDWASR01 EQU SDWASRSV+4 04052000 SDWASR00 EQU SDWASRSV 04053000 SDWATRN2 EQU SDWAAEC2+4 04054000 SDWAIPC2 EQU SDWAICD2 04055000 SDWAIMC2 EQU SDWAICD2 04056000 SDWAIPR2 EQU SDWAICD2 04057000 @NM00070 EQU SDWAINC2 04058000 @NM00069 EQU SDWAILC2 04059000 SDWAIL2 EQU SDWAILC2 04060000 @NM00068 EQU SDWAILC2 04061000 @NM00067 EQU SDWAAEC2 04062000 SDWAADD2 EQU SDWANXT2+1 04063000 @NM00066 EQU SDWANXT2 04064000 @NM00065 EQU SDWAEC2+3 04065000 SDWASGN2 EQU SDWAINT2 04066000 SDWAEXP2 EQU SDWAINT2 04067000 SDWADEC2 EQU SDWAINT2 04068000 SDWAFPO2 EQU SDWAINT2 04069000 SDWACC2 EQU SDWAINT2 04070000 @NM00064 EQU SDWAINT2 04071000 SDWAPGM2 EQU SDWAMWP2 04072000 SDWAWAT2 EQU SDWAMWP2 04073000 SDWAMCK2 EQU SDWAMWP2 04074000 SDWAECT2 EQU SDWAMWP2 04075000 SDWAKEY2 EQU SDWAMWP2 04076000 SDWAEXT2 EQU SDWAEMK2 04077000 SDWAIO2 EQU SDWAEMK2 04078000 SDWATRM2 EQU SDWAEMK2 04079000 @NM00063 EQU SDWAEMK2 04080000 SDWAPER2 EQU SDWAEMK2 04081000 @NM00062 EQU SDWAEMK2 04082000 SDWATRAN EQU SDWAAEC1+4 04083000 SDWAIPC1 EQU SDWAICD1 04084000 SDWAIMC1 EQU SDWAICD1 04085000 SDWAIPR1 EQU SDWAICD1 04086000 @NM00061 EQU SDWAINC1 04087000 @NM00060 EQU SDWAILC1 04088000 SDWAIL1 EQU SDWAILC1 04089000 @NM00059 EQU SDWAILC1 04090000 @NM00058 EQU SDWAAEC1 04091000 SDWAADD1 EQU SDWANXT1+1 04092000 @NM00057 EQU SDWANXT1 04093000 @NM00056 EQU SDWAEC1+3 04094000 SDWASGN1 EQU SDWAINT1 04095000 SDWAEXP1 EQU SDWAINT1 04096000 SDWADEC1 EQU SDWAINT1 04097000 SDWAFPO1 EQU SDWAINT1 04098000 SDWACC1 EQU SDWAINT1 04099000 @NM00055 EQU SDWAINT1 04100000 SDWAPGM1 EQU SDWAMWP1 04101000 SDWAWAT1 EQU SDWAMWP1 04102000 SDWAMCK1 EQU SDWAMWP1 04103000 SDWAECT1 EQU SDWAMWP1 04104000 SDWAKEY1 EQU SDWAMWP1 04105000 SDWAEXT1 EQU SDWAEMK1 04106000 SDWAIO1 EQU SDWAEMK1 04107000 SDWATRM1 EQU SDWAEMK1 04108000 @NM00054 EQU SDWAEMK1 04109000 SDWAPER1 EQU SDWAEMK1 04110000 @NM00053 EQU SDWAEMK1 04111000 SDWAIOBR EQU SDWA+100 04112000 SDWAEPA EQU SDWA+96 04113000 @NM00052 EQU SDWANAME+4 04114000 SDWARBAD EQU SDWANAME 04115000 SDWAGR15 EQU SDWAGRSV+60 04116000 SDWAGR14 EQU SDWAGRSV+56 04117000 SDWAGR13 EQU SDWAGRSV+52 04118000 SDWAGR12 EQU SDWAGRSV+48 04119000 SDWAGR11 EQU SDWAGRSV+44 04120000 SDWAGR10 EQU SDWAGRSV+40 04121000 SDWAGR09 EQU SDWAGRSV+36 04122000 SDWAGR08 EQU SDWAGRSV+32 04123000 SDWAGR07 EQU SDWAGRSV+28 04124000 SDWAGR06 EQU SDWAGRSV+24 04125000 SDWAGR05 EQU SDWAGRSV+20 04126000 SDWAGR04 EQU SDWAGRSV+16 04127000 SDWAGR03 EQU SDWAGRSV+12 04128000 SDWAGR02 EQU SDWAGRSV+8 04129000 SDWAGR01 EQU SDWAGRSV+4 04130000 SDWAGR00 EQU SDWAGRSV 04131000 SDWANXTP EQU SDWACTL2+5 04132000 SDWASGP EQU SDWAPMKP 04133000 SDWAEUP EQU SDWAPMKP 04134000 SDWADOP EQU SDWAPMKP 04135000 SDWAFPP EQU SDWAPMKP 04136000 SDWACCP EQU SDWAPMKP 04137000 SDWAILP EQU SDWAPMKP 04138000 SDWAINTP EQU SDWACTL2+2 04139000 SDWASPVP EQU SDWAMWPP 04140000 SDWAWATP EQU SDWAMWPP 04141000 SDWAMCKP EQU SDWAMWPP 04142000 @NM00051 EQU SDWAMWPP 04143000 SDWAKEYP EQU SDWAMWPP 04144000 SDWAEXTP EQU SDWACMKP 04145000 SDWAIOP EQU SDWACMKP 04146000 SDWANXTA EQU SDWACTL1+5 04147000 SDWASGA EQU SDWAPMKA 04148000 SDWAEUA EQU SDWAPMKA 04149000 SDWADOA EQU SDWAPMKA 04150000 SDWAFPA EQU SDWAPMKA 04151000 SDWACCA EQU SDWAPMKA 04152000 SDWAILA EQU SDWAPMKA 04153000 SDWAINTA EQU SDWACTL1+2 04154000 SDWASPVA EQU SDWAMWPA 04155000 SDWAWATA EQU SDWAMWPA 04156000 SDWAMCKA EQU SDWAMWPA 04157000 @NM00050 EQU SDWAMWPA 04158000 SDWAKEYA EQU SDWAMWPA 04159000 SDWAEXTA EQU SDWACMKA 04160000 SDWAIOA EQU SDWACMKA 04161000 SDWACMPC EQU SDWAABCC+1 04162000 @NM00049 EQU SDWACMPF 04163000 SDWASTCC EQU SDWACMPF 04164000 @NM00048 EQU SDWACMPF 04165000 SDWASTEP EQU SDWACMPF 04166000 SDWAREQ EQU SDWACMPF 04167000 SDWAPARM EQU SDWA 04168000 CVTLEVL EQU CVTRELNO+2 04169000 CVTNUMB EQU CVTRELNO 04170000 CVTMDL EQU CVTFIX+250 04171000 @NM00047 EQU CVTFIX+248 04172000 @NM00046 EQU CVTFIX 04173000 CVTRV482 EQU CVTXTNT2+128 04174000 CVTRV481 EQU CVTXTNT2+124 04175000 CVTRV480 EQU CVTXTNT2+120 04176000 CVTRV479 EQU CVTXTNT2+118 04177000 CVTRV478 EQU CVTXTNT2+117 04178000 CVTRV477 EQU CVTXTNT2+116 04179000 CVTRV476 EQU CVTXTNT2+115 04180000 CVTRV475 EQU CVTXTNT2+114 04181000 CVTRV474 EQU CVTRV466 04182000 CVTRV473 EQU CVTRV466 04183000 CVTRV472 EQU CVTRV466 04184000 CVTRV471 EQU CVTRV466 04185000 CVTRV470 EQU CVTRV466 04186000 CVTRV469 EQU CVTRV466 04187000 CVTRV468 EQU CVTRV466 04188000 CVTRV467 EQU CVTRV466 04189000 CVTRV465 EQU CVTRV457 04190000 CVTRV464 EQU CVTRV457 04191000 CVTRV463 EQU CVTRV457 04192000 CVTRV462 EQU CVTRV457 04193000 CVTRV461 EQU CVTRV457 04194000 CVTRV460 EQU CVTRV457 04195000 CVTRV459 EQU CVTRV457 04196000 CVTRV458 EQU CVTRV457 04197000 CVTRV456 EQU CVTXTNT2+108 04198000 CVTRV455 EQU CVTXTNT2+104 04199000 CVTRV454 EQU CVTXTNT2+100 04200000 CVTRV453 EQU CVTXTNT2+96 04201000 CVTRV452 EQU CVTXTNT2+94 04202000 CVTRV451 EQU CVTXTNT2+92 04203000 CVTRV450 EQU CVTXTNT2+90 04204000 CVTRV449 EQU CVTXTNT2+88 04205000 CVTRV448 EQU CVTXTNT2+87 04206000 CVTRV447 EQU CVTXTNT2+86 04207000 CVTRV446 EQU CVTRV438 04208000 CVTRV445 EQU CVTRV438 04209000 CVTRV444 EQU CVTRV438 04210000 CVTRV443 EQU CVTRV438 04211000 CVTRV442 EQU CVTRV438 04212000 CVTRV441 EQU CVTRV438 04213000 CVTRV440 EQU CVTRV438 04214000 CVTRV439 EQU CVTRV438 04215000 CVTRV437 EQU CVTRV429 04216000 CVTRV436 EQU CVTRV429 04217000 CVTRV435 EQU CVTRV429 04218000 CVTRV434 EQU CVTRV429 04219000 CVTRV433 EQU CVTRV429 04220000 CVTRV432 EQU CVTRV429 04221000 CVTRV431 EQU CVTRV429 04222000 CVTRV430 EQU CVTRV429 04223000 CVTRV428 EQU CVTXTNT2+80 04224000 CVTRV427 EQU CVTXTNT2+76 04225000 CVTRV426 EQU CVTXTNT2+72 04226000 CVTRV425 EQU CVTXTNT2+68 04227000 CVTATACT EQU CVTATCVT 04228000 CVTRV423 EQU CVTXTNT2+62 04229000 CVTRV422 EQU CVTXTNT2+60 04230000 CVTRV421 EQU CVTXTNT2+58 04231000 CVTRV420 EQU CVTXTNT2+56 04232000 CVTRV419 EQU CVTXTNT2+55 04233000 CVTRV418 EQU CVTXTNT2+54 04234000 CVTRV417 EQU CVTRV409 04235000 CVTRV416 EQU CVTRV409 04236000 CVTRV415 EQU CVTRV409 04237000 CVTRV414 EQU CVTRV409 04238000 CVTRV413 EQU CVTRV409 04239000 CVTRV412 EQU CVTRV409 04240000 CVTRV411 EQU CVTRV409 04241000 CVTRV410 EQU CVTRV409 04242000 CVTRV408 EQU CVTRV400 04243000 CVTRV407 EQU CVTRV400 04244000 CVTRV406 EQU CVTRV400 04245000 CVTRV405 EQU CVTRV400 04246000 CVTRV404 EQU CVTRV400 04247000 CVTRV403 EQU CVTRV400 04248000 CVTRV402 EQU CVTRV400 04249000 CVTRV401 EQU CVTRV400 04250000 CVTICB EQU CVTXTNT2+48 04251000 CVTSKTA EQU CVTXTNT2+44 04252000 CVTCCVT EQU CVTXTNT2+40 04253000 CVTRSV98 EQU CVTXTNT2+36 04254000 CVTRSV97 EQU CVTXTNT2+34 04255000 CVTRSV96 EQU CVTXTNT2+32 04256000 CVTOLTEP EQU CVTXTNT2+28 04257000 CVTQIDA EQU CVTQID+1 04258000 CVTRSV95 EQU CVTQID 04259000 CVTRSV94 EQU CVTXTNT2+20 04260000 CVTRSV93 EQU CVTXTNT2+16 04261000 CVTRSV92 EQU CVTXTNT2+12 04262000 CVTDEBVR EQU CVTXTNT2+8 04263000 CVTRSV91 EQU CVTXTNT2+6 04264000 CVTRSV9H EQU CVTFLGBT 04265000 CVTRSV9G EQU CVTFLGBT 04266000 CVTRSV9F EQU CVTFLGBT 04267000 CVTRSV9E EQU CVTFLGBT 04268000 CVTRSV9D EQU CVTFLGBT 04269000 CVTRSV9C EQU CVTFLGBT 04270000 CVTVME EQU CVTFLGBT 04271000 CVTNPE EQU CVTFLGBT 04272000 CVTNUCLS EQU CVTXTNT2+4 04273000 CVTDSSVA EQU CVTDSSV+1 04274000 CVTRSV89 EQU CVTDSSV 04275000 CVTRSV88 EQU CVTXTNT1+8 04276000 CVTRSV87 EQU CVTXTNT1+4 04277000 CVTFACHN EQU CVTXTNT1 04278000 CVTRV488 EQU CVTMAP+412 04279000 CVTRV487 EQU CVTMAP+408 04280000 CVTRV486 EQU CVTMAP+404 04281000 CVTRV485 EQU CVTMAP+400 04282000 CVTACTAP EQU CVTMAP+396 04283000 CVTAUTH EQU CVTMAP+392 04284000 CVTATMCA EQU CVTATMCT+1 04285000 CVTATMST EQU CVTATMCT 04286000 CVTRSV61 EQU CVTMAP+384 04287000 CVTVOLT1 EQU CVTVOLM1+1 04288000 CVTVOLI1 EQU CVTVOLF1 04289000 CVTSTOA EQU CVTMAP+376 04290000 CVTRSV58 EQU CVTMAP+374 04291000 CVTRSV57 EQU CVTMAP+372 04292000 CVTDDCE EQU CVTMAP+368 04293000 CVTPNWFR EQU CVTMAP+364 04294000 CVTSMF EQU CVTMAP+360 04295000 CVTSULK EQU CVTMAP+358 04296000 CVTSLKO EQU CVTSYSK 04297000 CVTSLKP EQU CVTSYSK 04298000 CVTSLKQ EQU CVTSYSK 04299000 CVTSLKR EQU CVTSYSK 04300000 CVTRSV56 EQU CVTSYSK 04301000 CVTRSV55 EQU CVTSYSK 04302000 CVTRSV54 EQU CVTSYSK 04303000 CVTRSV53 EQU CVTSYSK 04304000 CVTRSV52 EQU CVTA1F1 04305000 CVTRSV51 EQU CVTA1F1 04306000 CVTRSV50 EQU CVTA1F1 04307000 CVTRSV49 EQU CVTA1F1 04308000 CVTRSV48 EQU CVTA1F1 04309000 CVTRSV47 EQU CVTA1F1 04310000 CVTSRSW EQU CVTA1F1 04311000 CVTPFSW EQU CVTA1F1 04312000 CVTPCVT EQU CVTMAP+352 04313000 CVTRSV46 EQU CVTMAP+344 04314000 CVTRSV45 EQU CVTMAP+340 04315000 CVTRSV44 EQU CVTMAP+338 04316000 CVTRSV43 EQU CVTMAP+336 04317000 CVTHJESA EQU CVTHJES+1 04318000 CVTRSV42 EQU CVTHJES 04319000 CVTEXT2A EQU CVTEXT2+1 04320000 CVTRSV41 EQU CVTEXT2 04321000 CVTAPFA EQU CVTAPF+1 04322000 CVTRSV40 EQU CVTAPF 04323000 CVTRV518 EQU CVTINTLA 04324000 CVTRV517 EQU CVTERPV 04325000 CVTEORM EQU CVTMAP+312 04326000 CVTMCHPR EQU CVTMAP+308 04327000 CVTTZ EQU CVTMAP+304 04328000 CVTJEPS EQU CVTMAP+300 04329000 CVTJESCT EQU CVTMAP+296 04330000 CVTMODE EQU CVTMAP+292 04331000 CVTPTRV EQU CVTMAP+288 04332000 CVTREAL EQU CVTMAP+284 04333000 CVTRSV39 EQU CVTMAP+280 04334000 CVTRSV38 EQU CVTMAP+276 04335000 CVTDMSRA EQU CVTDMSR+1 04336000 CVTRV634 EQU CVTDMSRF 04337000 CVTRV633 EQU CVTDMSRF 04338000 CVTRV632 EQU CVTDMSRF 04339000 CVTRV631 EQU CVTDMSRF 04340000 CVTRV630 EQU CVTDMSRF 04341000 CVTRV629 EQU CVTDMSRF 04342000 CVTUDUMP EQU CVTDMSRF 04343000 CVTSDUMP EQU CVTDMSRF 04344000 CVTQMSGA EQU CVTQMSG+1 04345000 CVTRSV36 EQU CVTQMSG 04346000 CVTAMFF EQU CVTMAP+264 04347000 CVTPURGA EQU CVTPURG+1 04348000 CVTRSV35 EQU CVTPURG 04349000 CVTCBSP EQU CVTMAP+256 04350000 CVTATERA EQU CVTATER+1 04351000 CVTSYST EQU CVTATER 04352000 CVTVOLT2 EQU CVTTAT 04353000 CVTVOLI2 EQU CVTVOLF2 04354000 CVTAQAVB EQU CVTAQAVT+1 04355000 CVTRSV34 EQU CVTTCMFG 04356000 CVTRSV33 EQU CVTTCMFG 04357000 CVTRSV32 EQU CVTTCMFG 04358000 CVTRSV31 EQU CVTTCMFG 04359000 CVTRSV30 EQU CVTTCMFG 04360000 CVTRSV29 EQU CVTTCMFG 04361000 CVTRSV28 EQU CVTTCMFG 04362000 CVTTCRDY EQU CVTTCMFG 04363000 CVTGTFA EQU CVTGTF+1 04364000 CVTRSV27 EQU CVTGTFST 04365000 CVTRNIO EQU CVTGTFST 04366000 CVTUSR EQU CVTGTFST 04367000 CVTRV318 EQU CVTFORM 04368000 CVTRV317 EQU CVTTMODE 04369000 CVTRV316 EQU CVTSTATE 04370000 CVTRV315 EQU CVTGTFS 04371000 CVTGTFAV EQU CVTGTFS 04372000 CVT0SCR1 EQU CVTMAP+232 04373000 CVTRV515 EQU CVTMAP+228 04374000 CVTRMS EQU CVTMAP+224 04375000 CVTPATCH EQU CVTMAP+220 04376000 CVTTSCE EQU CVTMAP+216 04377000 CVTLNKSC EQU CVTMAP+214 04378000 CVTQABST EQU CVTMAP+212 04379000 CVTMDLDS EQU CVTMAP+208 04380000 CVTUSER EQU CVTMAP+204 04381000 CVTABEND EQU CVTMAP+200 04382000 CVTSMCA EQU CVTMAP+196 04383000 CVTRSV18 EQU CVTMAP+192 04384000 CVTQLPAQ EQU CVTMAP+188 04385000 CVTQCDSR EQU CVTMAP+184 04386000 CVTRSV17 EQU CVTOPTB 04387000 CVTRSV16 EQU CVTOPTB 04388000 CVTFP EQU CVTOPTB 04389000 CVTAPTHR EQU CVTOPTB 04390000 CVTNLOG EQU CVTOPTB 04391000 CVTTOD EQU CVTOPTB 04392000 CVTCTIMS EQU CVTOPTB 04393000 CVTPROT EQU CVTOPTB 04394000 CVTXPFP EQU CVTOPTA 04395000 CVTASCII EQU CVTOPTA 04396000 CVTRSV13 EQU CVTOPTA 04397000 CVTRSV12 EQU CVTOPTA 04398000 CVTNIP EQU CVTOPTA 04399000 CVTDDR EQU CVTOPTA 04400000 CVTAPR EQU CVTOPTA 04401000 CVTCCH EQU CVTOPTA 04402000 CVTSNCTR EQU CVTMAP+180 04403000 CVTQMWR EQU CVTMAP+176 04404000 CVTQOCR EQU CVTMAP+172 04405000 CVT1EF00 EQU CVTMAP+168 04406000 CVTMZ00 EQU CVTMAP+164 04407000 CVTSV76Q EQU CVTSV76C 04408000 CVTRSV11 EQU CVTMAP+156 04409000 CVT0PT01 EQU CVTMAP+152 04410000 CVTMSER EQU CVTMAP+148 04411000 CVTRV516 EQU CVTIERLC 04412000 CVTILCH EQU CVTMAP+140 04413000 CVT0DS EQU CVTMAP+136 04414000 CVTFBOSV EQU CVTMAP+132 04415000 CVTNUCB EQU CVTMAP+128 04416000 CVTIXAVL EQU CVTMAP+124 04417000 CVTSV76M EQU CVTIOQET 04418000 CVTDCBA EQU CVTMAP+117 04419000 CVTMVS2 EQU CVTDCB 04420000 CVT6DAT EQU CVTDCB 04421000 CVT4MPS EQU CVTDCB 04422000 CVTRSV09 EQU CVTDCB 04423000 CVT4MS1 EQU CVTDCB 04424000 CVT2SPS EQU CVTDCB 04425000 CVT1SSS EQU CVTDCB 04426000 CVTRSV08 EQU CVTDCB 04427000 CVTSTB EQU CVTMAP+112 04428000 CVTQTD00 EQU CVTMAP+108 04429000 CVTQTE00 EQU CVTMAP+104 04430000 CVTCUCB EQU CVTMAP+100 04431000 CVTSJQ EQU CVTMAP+96 04432000 CVTPBLDL EQU CVTMAP+92 04433000 CVTTPC EQU CVTMAP+88 04434000 CVTSVDCB EQU CVTMAP+84 04435000 CVTBRET EQU CVTMAP+82 04436000 CVTEXIT EQU CVTMAP+80 04437000 CVT0FN00 EQU CVTMAP+76 04438000 CVTDARA EQU CVTDAR+1 04439000 CVTRSV07 EQU CVTFLGS1 04440000 CVTRSV06 EQU CVTFLGS1 04441000 CVTRSV05 EQU CVTFLGS1 04442000 CVTRSV04 EQU CVTFLGS1 04443000 CVTRSV03 EQU CVTFLGS1 04444000 CVTRSV02 EQU CVTFLGS1 04445000 CVTRSV01 EQU CVTFLGS1 04446000 CVTDMPLK EQU CVTFLGS1 04447000 CVTZDTAB EQU CVTMAP+64 04448000 CVTMSLT EQU CVTMAP+60 04449000 CVTDATE EQU CVTMAP+56 04450000 CVTBTERM EQU CVTMAP+52 04451000 CVTSYSAD EQU CVTMAP+48 04452000 CVTILK2 EQU CVTMAP+40 04453000 CVTILK1 EQU CVTMAP+36 04454000 CVTPRLTV EQU CVTMAP+32 04455000 CVTPCNVT EQU CVTMAP+28 04456000 CVT0VL00 EQU CVTMAP+24 04457000 CVTXAPG EQU CVTMAP+20 04458000 CVTBUF EQU CVTMAP+16 04459000 CVTJOB EQU CVTMAP+12 04460000 CVTLINK EQU CVTMAP+8 04461000 CVT0EF00 EQU CVTMAP+4 04462000 CVTTCBP EQU CVTMAP 04463000 CVT EQU CVTMAP 04464000 IOBERRCT EQU IOBSTDRD+30 04465000 IOBRSV19 EQU IOBINCAM+1 04466000 IOBOLTST EQU IOBBTAMF 04467000 IOBRFTMG EQU IOBBTAMF 04468000 IOBRSV17 EQU IOBBTAMF 04469000 IOBRSV16 EQU IOBBTAMF 04470000 IOBRSV15 EQU IOBBTAMF 04471000 IOBRSV14 EQU IOBBTAMF 04472000 IOBINUSE EQU IOBBTAMF 04473000 IOBPRMER EQU IOBBTAMF 04474000 IOBRSTRB EQU IOBRESTR+1 04475000 IOBREPOS EQU IOBRESTR 04476000 IOBDCBPB EQU IOBDCBPT+1 04477000 IOBRSV44 EQU IOBFLAG4 04478000 IOBJES3I EQU IOBFLAG4 04479000 IOBRSV42 EQU IOBFLAG4 04480000 IOBRSV41 EQU IOBFLAG4 04481000 IOBRSV40 EQU IOBFLAG4 04482000 IOBPMERR EQU IOBFLAG4 04483000 IOBCC3WE EQU IOBFLAG4 04484000 IOBGDPOL EQU IOBFLAG4 04485000 IOBSTRTB EQU IOBSTART+1 04486000 IOBSIOCC EQU IOBSTART 04487000 IOBCSB7 EQU IOBCSTAT 04488000 IOBCSB6 EQU IOBCSTAT 04489000 IOBCSB5 EQU IOBCSTAT 04490000 IOBCSB4 EQU IOBCSTAT 04491000 IOBCSB3 EQU IOBCSTAT 04492000 IOBCSB2 EQU IOBCSTAT 04493000 IOBCSB1 EQU IOBCSTAT 04494000 IOBCSB0 EQU IOBCSTAT 04495000 IOBUSB7 EQU IOBUSTAT 04496000 IOBUSB6 EQU IOBUSTAT 04497000 IOBUSB5 EQU IOBUSTAT 04498000 IOBUSB4 EQU IOBUSTAT 04499000 IOBUSB3 EQU IOBUSTAT 04500000 IOBUSB2 EQU IOBUSTAT 04501000 IOBUSB1 EQU IOBUSTAT 04502000 IOBUSB0 EQU IOBUSTAT 04503000 IOBCMDA EQU IOBIOCSW 04504000 IOBLOG EQU IOBFL3 04505000 IOBJAM EQU IOBICL 04506000 IOBMSG EQU IOBFL3 04507000 IOBSDR EQU IOBCNC 04508000 IOBACU EQU IOBFL3 04509000 IOBCDC EQU IOBFL3 04510000 IOBICC EQU IOBFL3 04511000 IOBCCC EQU IOBFL3 04512000 IOBECBPB EQU IOBECBPT+1 04513000 IOBECBCC EQU IOBECBPT 04514000 IOBS1B7 EQU IOBSENS1 04515000 IOBS1B6 EQU IOBSENS1 04516000 IOBS1B5 EQU IOBSENS1 04517000 IOBS1B4 EQU IOBSENS1 04518000 IOBS1B3 EQU IOBSENS1 04519000 IOBS1B2 EQU IOBSENS1 04520000 IOBS1B1 EQU IOBSENS1 04521000 IOBS1B0 EQU IOBSENS1 04522000 IOBSNSC9 EQU IOBS0B7 04523000 IOBS0B6 EQU IOBSENS0 04524000 IOBS0B5 EQU IOBSENS0 04525000 IOBS0B4 EQU IOBSENS0 04526000 IOBS0B3 EQU IOBSENS0 04527000 IOBS0B2 EQU IOBSENS0 04528000 IOBS0B1 EQU IOBSENS0 04529000 IOBS0B0 EQU IOBSENS0 04530000 IOBPNCH EQU IOBFLAG2 04531000 IOBSTATO EQU IOBFLAG2 04532000 IOBSKUPD EQU IOBFLAG2 04533000 IOBALTTR EQU IOBFLAG2 04534000 IOBRRT2 EQU IOBRDHA0 04535000 IOBRRT3 EQU IOBPURGE 04536000 IOBSENSE EQU IOBFLAG2 04537000 IOBHALT EQU IOBFLAG2 04538000 IOBSPSVC EQU IOBRSTRT 04539000 IOBUNREL EQU IOBFLAG1 04540000 IOBIOERR EQU IOBFLAG1 04541000 IOBFCREX EQU IOBCYCCK 04542000 IOBRPSTN EQU IOBFLAG1 04543000 IOBERRTN EQU IOBFLAG1 04544000 IOBCMDCH EQU IOBFLAG1 04545000 IOBDATCH EQU IOBFLAG1 04546000 IOBCNOPA EQU IOBPREFX+12 04547000 IOBCICB EQU IOBPREFX+8 04548000 IOBCECB EQU IOBPREFX+4 04549000 IOBCONOP EQU IOBPREFX+3 04550000 IOBCINOP EQU IOBPREFX+2 04551000 IOBRSV05 EQU IOBPREFX+1 04552000 IOBPCI EQU IOBCFLG1 04553000 IOBRSTCH EQU IOBCFLG1 04554000 IOBABAPP EQU IOBCFLG1 04555000 IOBPTST EQU IOBCFLG1 04556000 IOBRSV04 EQU IOBCFLG1 04557000 IOBRSV03 EQU IOBCFLG1 04558000 IOBRSV02 EQU IOBCFLG1 04559000 IOBRSV01 EQU IOBCFLG1 04560000 DCBEOB EQU IHADCS40+20 04561000 DCBPRECL EQU IHADCS40+18 04562000 @NM00045 EQU IHADCS40+16 04563000 @NM00044 EQU @NM00042+1 04564000 @NM00043 EQU DCBEROPT 04565000 DCBERABE EQU DCBEROPT 04566000 DCBERSKP EQU DCBEROPT 04567000 DCBERACC EQU DCBEROPT 04568000 @NM00041 EQU IHADCS40+10 04569000 @NM00040 EQU IHADCS40+9 04570000 @NM00039 EQU IHADCS40+8 04571000 DCBRECA EQU DCBRECAD+1 04572000 @NM00038 EQU DCBRECBT 04573000 DCBRCFGT EQU DCBRCREL 04574000 DCBRCTRU EQU DCBRCREL 04575000 DCBLCCW EQU DCBEOBAD 04576000 DCBNOTE EQU DCBCNTRL 04577000 DCBLRECL EQU IHADCS38+10 04578000 @NM00037 EQU IHADCS38+8 04579000 DCBEOBW EQU IHADCS38+4 04580000 DCBEOBRA EQU DCBEOBR+1 04581000 DCBNCP EQU DCBEOBR 04582000 @NM00036 EQU DCBFLAG1 04583000 DCBSTFLS EQU DCBFLAG1 04584000 DCBSTQCK EQU DCBFLAG1 04585000 DCBDIRCQ EQU DCBBUFOF 04586000 DCBQSTRU EQU DCBUSASI 04587000 @NM00035 EQU DCBUSASI 04588000 DCBQADF3 EQU DCBQADFS 04589000 DCBQADF2 EQU DCBQADFS 04590000 DCBQADF1 EQU DCBQADFS 04591000 DCBBLBP EQU DCBUSASI 04592000 @NM00034 EQU DCBUSASI 04593000 DCBCICBA EQU DCBCICB+1 04594000 @NM00033 EQU DCBCICB 04595000 DCBOFFSW EQU IHADCS36+15 04596000 DCBOFFSR EQU IHADCS36+14 04597000 DCBWCPL EQU IHADCS36+13 04598000 DCBWCPO EQU IHADCS36+12 04599000 DCBBLKSI EQU IHADCS36+10 04600000 DCBCNQSM EQU DCBCIND2 04601000 DCBCNFEO EQU DCBCIND2 04602000 DCBCNCHS EQU DCBCIND2 04603000 DCBCNBFP EQU DCBCIND2 04604000 DCBCNIOE EQU DCBCIND2 04605000 DCBCNCLO EQU DCBCIND2 04606000 DCBCNWRO EQU DCBCIND2 04607000 DCBCNSTO EQU DCBCIND2 04608000 DCBCNEXB EQU DCBCIND1 04609000 @NM00032 EQU DCBCIND1 04610000 DCBCNBRM EQU DCBCIND1 04611000 @NM00031 EQU DCBCIND1 04612000 DCBCNEVA EQU DCBCIND1 04613000 DCBCNEVB EQU DCBCIND1 04614000 DCBCNSRD EQU DCBCIND1 04615000 DCBCNTOV EQU DCBCIND1 04616000 DCBSYNA EQU DCBSYNAD+1 04617000 DCBIOBL EQU DCBSYNAD 04618000 DCBCHCKA EQU DCBPERRA 04619000 DCBOPTJ EQU DCBOPTCD 04620000 DCBOPTT EQU DCBOPTCD 04621000 DCBSRCHD EQU DCBOPTZ 04622000 DCBOPTQ EQU DCBOPTCD 04623000 DCBBCKPT EQU DCBOPTO 04624000 DCBOPTC EQU DCBOPTCD 04625000 DCBOPTU EQU DCBOPTCD 04626000 DCBOPTW EQU DCBOPTCD 04627000 DCBPUTA EQU DCBGETA 04628000 @NM00030 EQU DCBPUT 04629000 DCBREADA EQU DCBWRITA 04630000 @NM00029 EQU DCBREAD 04631000 DCBDEBA EQU DCBDEBAD+1 04632000 @NM00028 EQU DCBIFLGS 04633000 DCBIFIOE EQU DCBIFLGS 04634000 DCBIFEC EQU DCBIFLGS 04635000 DCBMFSTI EQU DCBMFDMD 04636000 DCBMFAWR EQU DCBMFSTK 04637000 DCBMFUIP EQU DCBMFTMD 04638000 DCBMFIDW EQU DCBMFLCP 04639000 DCBMFWRK EQU DCBMFMVP 04640000 DCBMFRDQ EQU DCBMFWRT 04641000 DCBMFGTQ EQU DCBMFPUT 04642000 DCBMFSTL EQU DCBMACF2 04643000 DCBMFCK EQU DCBMFDMG 04644000 DCBMFRDX EQU DCBMFCHK 04645000 DCBMFDBF EQU DCBMFSBG 04646000 DCBMFRDI EQU DCBMFLCG 04647000 DCBMFRDK EQU DCBMFMVG 04648000 DCBMFWRQ EQU DCBMFRD 04649000 DCBMFPTQ EQU DCBMFGET 04650000 DCBMFECP EQU DCBMACF1 04651000 DCBTIOT EQU IHADCS25 04652000 DCBMRSTI EQU DCBMRDMD 04653000 DCBMRAWR EQU DCBMRSTK 04654000 DCBMRUIP EQU DCBMRTMD 04655000 DCBMRIDW EQU DCBMRLCP 04656000 DCBMRWRK EQU DCBMRMVP 04657000 DCBMRRDQ EQU DCBMRWRT 04658000 DCBMRGTQ EQU DCBMRPUT 04659000 DCBMRSTL EQU DCBMACR2 04660000 DCBMRCK EQU DCBMRDMG 04661000 DCBPGFXA EQU DCBMRRDX 04662000 DCBMRDBF EQU DCBMRSBG 04663000 DCBMRRDI EQU DCBMRLCG 04664000 DCBMRRDK EQU DCBMRMVG 04665000 DCBMRWRQ EQU DCBMRRD 04666000 DCBMRPTQ EQU DCBMRGET 04667000 DCBMRECP EQU DCBMACR1 04668000 @NM00027 EQU DCBIFLG 04669000 DCBIBIOE EQU DCBIFLG 04670000 DCBICH12 EQU DCBIBPCT 04671000 DCBICH9 EQU DCBIBPCT 04672000 DCBIBEC EQU DCBIFLG 04673000 DCBOFIOF EQU DCBOFLGS 04674000 DCBOFUEX EQU DCBOFLGS 04675000 DCBOFTM EQU DCBOFLGS 04676000 DCBOFPPC EQU DCBOFLGS 04677000 DCBOFOPN EQU DCBOFLGS 04678000 DCBOFEOV EQU DCBOFLGS 04679000 DCBOFLRB EQU DCBOFLGS 04680000 DCBOFIOD EQU DCBOFLWR 04681000 DCBDDNAM EQU IHADCS24 04682000 DCBEXLSA EQU DCBEXLST+1 04683000 DCBRECKL EQU DCBRECFM 04684000 DCBRECCC EQU DCBRECFM 04685000 DCBRECSB EQU DCBRECFM 04686000 DCBRECBR EQU DCBRECFM 04687000 DCBRECTO EQU DCBRECLA 04688000 DCBRECL EQU DCBRECLA 04689000 DCBEODA EQU DCBEODAD+1 04690000 DCBBFA EQU DCBBFTEK 04691000 DCBH0 EQU DCBBFTEK 04692000 DCBBFTKD EQU DCBBFTEK 04693000 DCBBFTE EQU DCBBFT 04694000 DCBBFTKR EQU DCBBFT 04695000 DCBBFTS EQU DCBBFT 04696000 DCBH1 EQU DCBBFTEK 04697000 DCBSVCXA EQU DCBSVCXL+1 04698000 @NM00026 EQU DCBSVCXL 04699000 DCBODEBA EQU DCBIOBAA 04700000 @NM00025 EQU DCBQSLM 04701000 DCBUPDBT EQU DCBQSLM 04702000 DCBUPDCM EQU DCBQSLM 04703000 DCB1DVDS EQU DCBQSLM 04704000 @NM00024 EQU DCBDSRG2 04705000 DCBDSGTR EQU DCBDSRG2 04706000 DCBACBM EQU DCBDSRG2 04707000 @NM00023 EQU DCBDSRG2 04708000 DCBDSGTQ EQU DCBDSRG2 04709000 DCBDSGTX EQU DCBDSRG2 04710000 DCBDSGGS EQU DCBDSRG2 04711000 DCBDSGU EQU DCBDSRG1 04712000 DCBDSGPO EQU DCBDSRG1 04713000 @NM00022 EQU DCBDSRG1 04714000 @NM00021 EQU DCBDSRG1 04715000 DCBDSGCX EQU DCBDSRG1 04716000 DCBDSGDA EQU DCBDSRG1 04717000 DCBDSGPS EQU DCBDSRG1 04718000 DCBDSGIS EQU DCBDSRG1 04719000 DCBBUFL EQU IHADCS11+8 04720000 DCBBUFCA EQU DCBBUFCB+1 04721000 DCBBUFNO EQU DCBBUFCB 04722000 DCBDEVT EQU DCBREL 04723000 DCBKEYLE EQU DCBRELB 04724000 DCBTRCID EQU DCBPRBYT 04725000 @NM00020 EQU DCBPRBYT 04726000 DCBPRTOV EQU IHADCS04+2 04727000 @NM00019 EQU IHADCS04+1 04728000 DCBPRTSP EQU IHADCS04 04729000 @NM00018 EQU IHADCB 04730000 UCBRSV51 EQU UCBUCS+6 04731000 UCBFCBPE EQU UCBFCBOP 04732000 UCBRSV49 EQU UCBFCBOP 04733000 UCBRSV48 EQU UCBFCBOP 04734000 UCBRSV47 EQU UCBFCBOP 04735000 UCBRSV46 EQU UCBFCBOP 04736000 UCBRSV45 EQU UCBFCBOP 04737000 UCBRSV44 EQU UCBFCBOP 04738000 UCBFCBO1 EQU UCBFCBOP 04739000 UCBUCSPE EQU UCBUCSOP 04740000 UCBRSV43 EQU UCBUCSOP 04741000 UCBRSV42 EQU UCBUCSOP 04742000 UCBRSV41 EQU UCBUCSOP 04743000 UCBRSV40 EQU UCBUCSOP 04744000 UCBRSV39 EQU UCBUCSOP 04745000 UCBUCSO2 EQU UCBUCSOP 04746000 UCBUCSO1 EQU UCBUCSOP 04747000 UCBMDRBA EQU UCBMDRBF+1 04748000 UCBRV075 EQU UCBMDRBF 04749000 UCBRV074 EQU UCB3800X+32 04750000 UCBIMAGE EQU UCB3800X+28 04751000 UCBFCBNM EQU UCB3800X+24 04752000 UCBCHAR4 EQU UCB3800X+20 04753000 UCBCHAR3 EQU UCB3800X+16 04754000 UCBCHAR2 EQU UCB3800X+12 04755000 UCBCHAR1 EQU UCB3800X+8 04756000 UCBCGMID EQU UCB3800X+4 04757000 UCBBRSTA EQU UCBACTIV 04758000 UCBRV063 EQU UCBACTIV 04759000 UCBRV062 EQU UCBACTIV 04760000 UCBRV061 EQU UCBACTIV 04761000 UCBRV060 EQU UCBACTIV 04762000 UCBRV059 EQU UCBACTIV 04763000 UCBRV058 EQU UCBACTIV 04764000 UCBRV057 EQU UCBACTIV 04765000 UCBRV050 EQU UCB3800X+2 04766000 UCBCGMNO EQU UCB3800X+1 04767000 UCBRV083 EQU UCBOPTNS 04768000 UCBBRSTR EQU UCBOPTNS 04769000 UCBRV056 EQU UCBOPTNS 04770000 UCBRV055 EQU UCBOPTNS 04771000 UCBRV054 EQU UCBOPTNS 04772000 UCBRV053 EQU UCBOPTNS 04773000 UCBRV052 EQU UCBOPTNS 04774000 UCBRV051 EQU UCBOPTNS 04775000 UCBRV073 EQU UCB3540X+7 04776000 UCBRV072 EQU UCBDKBYT 04777000 UCBRV071 EQU UCBDKBYT 04778000 UCBRV070 EQU UCBDKBYT 04779000 UCBRV069 EQU UCBDKBYT 04780000 UCBRV068 EQU UCBDKBYT 04781000 UCBRV067 EQU UCBDKBYT 04782000 UCBVLVER EQU UCBDKBYT 04783000 UCBDKAMX EQU UCBDKBYT 04784000 UCBVLSER EQU UCB3540X 04785000 UCBRDATA EQU UCBOCR+4 04786000 UCBFRID EQU UCBOCR 04787000 UCBCLN EQU UCBMT+14 04788000 UCBERG EQU UCBMT+12 04789000 UCBMS EQU UCBMT+11 04790000 UCBNB EQU UCBMT+10 04791000 UCBPW EQU UCBMT+9 04792000 UCBPR EQU UCBMT+8 04793000 UCBSIO EQU UCBMT+6 04794000 UCBTW EQU UCBMT+5 04795000 UCBTR EQU UCBMT+4 04796000 UCBTWT EQU UCBMT+3 04797000 UCBTRT EQU UCBMT+2 04798000 UCBCTD EQU UCBMT 04799000 UCBWTOID EQU UCBCMEXT+17 04800000 UCBRV043 EQU UCBCMEXT+16 04801000 UCBASID EQU UCBCMEXT+14 04802000 UCBMFCNT EQU UCBCMEXT+12 04803000 UCBPMSK EQU UCBCMEXT+10 04804000 UCBCCWOF EQU UCBCMEXT+8 04805000 UCBRV041 EQU UCBCMEXT+6 04806000 UCBRV036 EQU UCBFLP1 04807000 UCBRV035 EQU UCBFLP1 04808000 UCBERLOG EQU UCBFLP1 04809000 UCBRV033 EQU UCBFLP1 04810000 UCBINHIO EQU UCBFLP1 04811000 UCBNSWAP EQU UCBFLP1 04812000 UCBSHRUP EQU UCBFLP1 04813000 UCBNSRCH EQU UCBFLP1 04814000 UCBSNSCT EQU UCBCMEXT+4 04815000 UCBHPDV EQU @NM00017 04816000 UCBHALI EQU @NM00017 04817000 UCBRSV09 EQU @NM00017 04818000 UCBRSV08 EQU @NM00017 04819000 UCBRSV07 EQU @NM00017 04820000 UCBRSV06 EQU @NM00017 04821000 UCBRSV05 EQU @NM00017 04822000 UCBRSV04 EQU @NM00017 04823000 UCBDTI EQU UCBCMEXT+2 04824000 UCBSTI EQU UCBCMEXT+1 04825000 UCBETI EQU UCBCMEXT 04826000 UCBEXTP EQU UCBEXTPT+1 04827000 UCBDDRSW EQU UCBFLC 04828000 UCBTICBT EQU UCBFLC 04829000 UCBIVRR EQU UCBFLC 04830000 UCBIVRS EQU UCBFLC 04831000 UCBITF EQU UCBFLC 04832000 UCBUDE EQU UCBFLC 04833000 UCBWAA EQU UCBFLC 04834000 UCBATTP EQU UCBFLC 04835000 UCBUNTYP EQU UCBTBYT4 04836000 UCBRSV11 EQU UCBDVCLS 04837000 UCBRSV10 EQU UCBDVCLS 04838000 UCB3CHAR EQU UCBDVCLS 04839000 UCB3UREC EQU UCBDVCLS 04840000 UCB3DISP EQU UCBDVCLS 04841000 UCB3DACC EQU UCBDVCLS 04842000 UCB3COMM EQU UCBDVCLS 04843000 UCB3TAPE EQU UCBDVCLS 04844000 UCBDVPWR EQU UCB2OPT7 04845000 UCBVLPWR EQU UCB2OPT6 04846000 UCB2OPT5 EQU UCBTBYT2 04847000 UCBRVDEV EQU UCBRWTAU 04848000 UCBRPS EQU UCBDUDN2 04849000 UCBRR EQU UCBDUDN1 04850000 UCB2OPT1 EQU UCBTBYT2 04851000 UCB1FEA7 EQU UCBTBYT1 04852000 UCBD6250 EQU UCB1FEA6 04853000 UCBD1600 EQU UCB1FEA5 04854000 UCB1FEA4 EQU UCBTBYT1 04855000 UCB1FEA3 EQU UCBTBYT1 04856000 UCB1FEA2 EQU UCBTBYT1 04857000 UCB1FEA1 EQU UCBTBYT1 04858000 UCB1FEA0 EQU UCBTBYT1 04859000 UCBNAME EQU UCBOB+13 04860000 UCBRV029 EQU UCBWGT 04861000 UCBVHRSN EQU UCBWGT 04862000 UCBVORSN EQU UCBWGT 04863000 UCBMTPXP EQU UCBWGT 04864000 UCBREW EQU UCBWGT 04865000 UCBPUB EQU UCBWGT 04866000 UCBOUT EQU UCBWGT 04867000 UCBIN EQU UCBWGT 04868000 UCBCPU EQU UCBOB+11 04869000 UCBLCI EQU UCBOB+10 04870000 UCBCNT EQU UCBOB+9 04871000 UCBRV017 EQU UCBCHM1 04872000 UCBRV016 EQU UCBCHM1 04873000 UCBRV015 EQU UCBCHM1 04874000 UCBRV014 EQU UCBCHM1 04875000 UCBSPB EQU UCBPTH1 04876000 UCBPPB EQU UCBPTH1 04877000 UCBSPA EQU UCBPTH0 04878000 UCBPPA EQU UCBPTH0 04879000 UCBSIGP EQU UCBFLB 04880000 UCBVALPH EQU UCBFLB 04881000 UCBCRHSN EQU UCBFLB 04882000 UCBCRHRV EQU UCBFLB 04883000 UCBRESVH EQU UCBFLB 04884000 UCBSPST EQU UCBFLB 04885000 UCBASNS EQU UCBFLB 04886000 UCBIORST EQU UCBFLB 04887000 UCBQISCE EQU UCBFL1 04888000 UCBACTV EQU UCBFL1 04889000 UCBSAP EQU UCBFL1 04890000 UCBNOTRC EQU UCBCUB 04891000 UCBPSNS EQU UCBFL1 04892000 UCBUSING EQU UCBPST 04893000 UCBNOTRD EQU UCBNRY 04894000 UCBBUSYD EQU UCBBSY 04895000 UCBDADI EQU UCBSTAT 04896000 UCBPRES EQU UCBSTAT 04897000 UCBALOC EQU UCBSTAT 04898000 UCBUNLD EQU UCBSTAT 04899000 UCBRESV EQU UCBSTAT 04900000 UCBCHGS EQU UCBSTAT 04901000 UCBONLI EQU UCBSTAT 04902000 UCBID EQU UCBOB+2 04903000 UCBALTPH EQU UCBFL5 04904000 UCBALTCU EQU UCBFL5 04905000 UCBNALOC EQU UCBFL5 04906000 UCBENVRD EQU UCBFL5 04907000 UCBVSDR EQU UCBFL5 04908000 UCBSASK EQU UCBFL5 04909000 UCBAMV EQU UCBAF 04910000 UCBDCC EQU UCBFL5 04911000 UCBMONT EQU UCBJBNR 04912000 UCBRV011 EQU UCBJBNR 04913000 UCBMMSGP EQU UCBJBNR 04914000 UCBOLDSM EQU UCBJBNR 04915000 UCBRV003 EQU UCBJBNR 04916000 UCBDUC EQU UCBJBNR 04917000 UCBJES3 EQU UCBJBNR 04918000 UCBVRDEV EQU UCBJBNR 04919000 UCBCMSEG EQU UCBOB 04920000 UCBPFXND EQU UCB+512 04921000 UCBIOQ EQU UCB+508 04922000 UCBLOCK EQU UCB+504 04923000 UCBPXST EQU UCB+504 04924000 @NM00014 EQU UCB 04925000 IOSEND EQU IOSB+108 04926000 IOSSKR EQU IOSEEKA+7 04927000 IOSSKH2 EQU IOSSKHH+1 04928000 IOSSKH1 EQU IOSSKHH 04929000 IOSSKCC EQU IOSCCHH 04930000 IOSSKBB EQU IOSEEKA+1 04931000 IOSSKM EQU IOSEEKA 04932000 IOSEEK EQU IOSB+92 04933000 IOSMDM EQU IOSB+91 04934000 IOSMDB EQU IOSB+90 04935000 IOSCKEY7 EQU IOSCKEY 04936000 IOSCKEY6 EQU IOSCKEY 04937000 IOSCKEY5 EQU IOSCKEY 04938000 IOSCKEY4 EQU IOSCKEY 04939000 @NM00010 EQU IOSCKEY 04940000 IOSFMSK EQU IOSB+88 04941000 IOSCUDEV EQU IOSPATH+1 04942000 @NM00009 EQU IOSCHN 04943000 IOSPATH3 EQU IOSCHN 04944000 IOSPATH2 EQU IOSCHN 04945000 IOSEXP EQU IOSCHN 04946000 IOSGDP EQU IOSCHN 04947000 IOSAFF EQU IOSB+85 04948000 IOSRSS1B EQU IOSB+84 04949000 IOSDSID EQU IOSB+80 04950000 IOSDIE EQU IOSB+68 04951000 IOSABN EQU IOSB+64 04952000 IOSNRM EQU IOSB+60 04953000 IOSPCI EQU IOSB+56 04954000 IOSPCHN EQU IOSB+48 04955000 IOSAPMSK EQU IOSB+40 04956000 IOSRES4A EQU IOSB+36 04957000 IOSSRB EQU IOSB+28 04958000 IOSCSWRC EQU IOSCSW+5 04959000 IOSTSB EQU IOSTATUS+1 04960000 IOSTSA EQU IOSTATUS 04961000 IOSCC EQU @NM00008 04962000 IOSOPT2X EQU IOSOPT2 04963000 IOSIGP EQU IOSOPT2 04964000 IOSHTP EQU IOSOPT2 04965000 IOSRELSE EQU IOSOPT 04966000 IOSAPR EQU IOSOPT 04967000 IOSTSLL EQU IOSOPT 04968000 IOSNERP EQU IOSOPT 04969000 IOSPSLL EQU IOSOPT 04970000 IOSQISCE EQU IOSOPT 04971000 IOSDEP EQU IOSOPT 04972000 IOSBYP EQU IOSOPT 04973000 IOSPKY7 EQU IOSPKEY 04974000 IOSPGDPX EQU IOSPKEY 04975000 IOSIDR EQU IOSPKEY 04976000 IOSLCL EQU IOSPKEY 04977000 @NM00007 EQU IOSPKEY 04978000 IOSPGAD EQU IOSB+8 04979000 IOSASID EQU IOSB+6 04980000 IOSPRLVL EQU IOSB+5 04981000 IOSPROC EQU IOSB+3 04982000 IOSFLC7 EQU IOSFLC 04983000 IOSCTCNR EQU IOSFLC 04984000 IOSRWAIT EQU IOSFLC 04985000 IOSTP EQU IOSFLC 04986000 IOSCC3WE EQU IOSFLC 04987000 IOSVERIF EQU IOSDVALT 04988000 IOSDVMNT EQU IOSFLC 04989000 IOSFLB4 EQU IOSFLB 04990000 IOSFLB3 EQU IOSFLB 04991000 IOSNOTRS EQU IOSFLB 04992000 IOSDIESE EQU IOSFLB 04993000 IOSIOSB EQU IOSFLA 04994000 IOSDOM EQU IOSFLA 04995000 IOSSMDB EQU IOSFLA 04996000 IOSSMDA EQU IOSFLA 04997000 @NM00006 EQU TCBXTNT2+32 04998000 TCBRV181 EQU TCBRV173 04999000 TCBRV180 EQU TCBRV173 05000000 TCBRV179 EQU TCBRV173 05001000 TCBRV178 EQU TCBRV173 05002000 TCBRV177 EQU TCBRV173 05003000 TCBRV176 EQU TCBRV173 05004000 TCBRV175 EQU TCBRV173 05005000 TCBRV174 EQU TCBRV173 05006000 TCBRV172 EQU TCBRV164 05007000 TCBRV171 EQU TCBRV164 05008000 TCBRV170 EQU TCBRV164 05009000 TCBRV169 EQU TCBRV164 05010000 TCBRV168 EQU TCBRV164 05011000 TCBRV167 EQU TCBRV164 05012000 TCBRV166 EQU TCBRV164 05013000 TCBRV165 EQU TCBRV164 05014000 TCBRV163 EQU TCBRV155 05015000 TCBRV162 EQU TCBRV155 05016000 TCBRV161 EQU TCBRV155 05017000 TCBRV160 EQU TCBRV155 05018000 TCBRV159 EQU TCBRV155 05019000 TCBRV158 EQU TCBRV155 05020000 TCBRV157 EQU TCBRV155 05021000 TCBRV156 EQU TCBRV155 05022000 TCBRV154 EQU TCBRV146 05023000 TCBRV153 EQU TCBRV146 05024000 TCBRV152 EQU TCBRV146 05025000 TCBRV151 EQU TCBRV146 05026000 TCBRV150 EQU TCBRV146 05027000 TCBRV149 EQU TCBRV146 05028000 TCBRV148 EQU TCBRV146 05029000 TCBRV147 EQU TCBRV146 05030000 TCBRV145 EQU TCBXTNT2+26 05031000 TCBRV144 EQU TCBXTNT2+24 05032000 TCBCAUF EQU TCBXTNT2+20 05033000 TCBRV142 EQU TCBXTNT2+16 05034000 TCBRSV49 EQU TCBXTNT2+12 05035000 TCBEVENT EQU TCBXTNT2+8 05036000 TCBRCMP EQU TCBXTNT2+5 05037000 TCBRSVAB EQU TCBXTNT2+4 05038000 TCBGTFA EQU TCBGTF+1 05039000 TCBRSV47 EQU TCBTFLG 05040000 TCBRSV46 EQU TCBTFLG 05041000 TCBRSV45 EQU TCBTFLG 05042000 TCBRSV44 EQU TCBTFLG 05043000 TCBRSV43 EQU TCBTFLG 05044000 TCBDSPIT EQU TCBTFLG 05045000 TCBERRTN EQU TCBTFLG 05046000 TCBASYNC EQU TCBTFLG 05047000 @NM00005 EQU TCB+296 05048000 TCBSVCA2 EQU TCB+292 05049000 TCBSWASA EQU TCB+288 05050000 TCBDBTB EQU TCB+284 05051000 TCBRPT EQU TCB+280 05052000 TCBRV141 EQU TCBRV133 05053000 TCBRV140 EQU TCBRV133 05054000 TCBRV139 EQU TCBRV133 05055000 TCBRV138 EQU TCBRV133 05056000 TCBRV137 EQU TCBRV133 05057000 TCBRV136 EQU TCBRV133 05058000 TCBRV135 EQU TCBRV133 05059000 TCBRV134 EQU TCBRV133 05060000 TCBRV132 EQU TCBRV124 05061000 TCBRV131 EQU TCBRV124 05062000 TCBRV130 EQU TCBRV124 05063000 TCBRV129 EQU TCBRV124 05064000 TCBRV128 EQU TCBRV124 05065000 TCBRV127 EQU TCBRV124 05066000 TCBRV126 EQU TCBRV124 05067000 TCBRV125 EQU TCBRV124 05068000 TCBRV123 EQU TCBFBYT2 05069000 TCBRV122 EQU TCBFBYT2 05070000 TCBECBNV EQU TCBFBYT2 05071000 TCBSSSYN EQU TCBFBYT2 05072000 TCBFPRAP EQU TCBFBYT2 05073000 TCBFDW EQU TCBFBYT2 05074000 TCBFMW EQU TCBFBYT2 05075000 TCBCNCB EQU TCBFBYT2 05076000 TCBLLH EQU TCBFBYT1 05077000 TCBRV113 EQU TCBFBYT1 05078000 TCBEOT EQU TCBFBYT1 05079000 TCBRTM2 EQU TCBFBYT1 05080000 TCBPGNLY EQU TCBFBYT1 05081000 TCBNDIOS EQU TCBFBYT1 05082000 TCBACTIV EQU TCBFBYT1 05083000 TCBEOTFM EQU TCBFBYT1 05084000 TCBAFFN EQU TCB+274 05085000 TCBCCPVI EQU TCB+272 05086000 TCBUKYSP EQU TCB+268 05087000 TCBMODE EQU TCBESTAE+3 05088000 TCBERTYP EQU TCBESTAE+2 05089000 TCBRV314 EQU TCBESTRM 05090000 TCBRV313 EQU TCBESTRM 05091000 TCBRV312 EQU TCBESTRM 05092000 TCBRV311 EQU TCBESTRM 05093000 TCBRV310 EQU TCBESTRM 05094000 TCBRV309 EQU TCBESTRM 05095000 TCBRV308 EQU TCBESTRM 05096000 TCBETERM EQU TCBESTRM 05097000 TCBSCBKY EQU TCBESTAE 05098000 TCBRTM12 EQU TCB+260 05099000 TCBTCBID EQU TCB+256 05100000 TCBRSV96 EQU TCB+252 05101000 TCBSWA EQU TCB+248 05102000 TCBFOEA EQU TCBFOE+1 05103000 TCBRSV42 EQU TCBFOE 05104000 TCBRV306 EQU TCB+240 05105000 TCBRSV41 EQU TCB+239 05106000 TCBTID EQU TCB+238 05107000 TCBRSVAA EQU TCB+237 05108000 TCBABCUR EQU TCB+236 05109000 TCBTMSAV EQU TCB+232 05110000 TCBIOTIM EQU TCB+228 05111000 TCBRTWA EQU TCB+224 05112000 TCBBACK EQU TCB+220 05113000 TCBTIRB EQU TCB+216 05114000 TCBAECB EQU TCB+212 05115000 TCBEXT2A EQU TCBEXT2+1 05116000 TCBRSV39 EQU TCBEXT2 05117000 TCBSTMCT EQU TCB+207 05118000 TCBSYSCT EQU TCB+206 05119000 TCBRSV37 EQU TCB+205 05120000 TCBEXSVC EQU TCBDAR 05121000 TCBDARMS EQU TCBDAR 05122000 TCBDARWT EQU TCBDAR 05123000 TCBDARO EQU TCBDAR 05124000 TCBDARMC EQU TCBDARC 05125000 TCBDARD EQU TCBDAR 05126000 TCBDARS EQU TCBDAR 05127000 TCBDARP EQU TCBDAR 05128000 TCBGTOFM EQU TCBFLGS7 05129000 TCBADMP EQU TCBFLGS7 05130000 TCBRSTSK EQU TCBFLGS7 05131000 TCBSVCS EQU TCBFLGS7 05132000 TCBSTACK EQU TCBFLGS7 05133000 TCBRSV34 EQU TCBFLGS7 05134000 TCBRSV33 EQU TCBFLGS7 05135000 TCBGPECB EQU TCBFLGS7 05136000 TCBNTJS EQU TCBFLGS6 05137000 TCBAPG EQU TCBFLGS6 05138000 TCBMIGR EQU TCBFLGS6 05139000 TCBRV303 EQU TCBFLGS6 05140000 TCBSPVLK EQU TCBFLGS6 05141000 TCBCPU EQU TCBFLGS6 05142000 TCBPIE17 EQU TCBFLGS6 05143000 TCBRV EQU TCBFLGS6 05144000 TCBRSV79 EQU TCBNDSP5 05145000 TCBRSV78 EQU TCBNDSP5 05146000 TCBRSV77 EQU TCBNDSP5 05147000 TCBRSV76 EQU TCBNDSP5 05148000 TCBRSV75 EQU TCBNDSP5 05149000 TCBRSV74 EQU TCBNDSP5 05150000 TCBRSV95 EQU TCBNDSP5 05151000 TCBRSV94 EQU TCBNDSP5 05152000 TCBRSV93 EQU TCBNDSP4 05153000 TCBRSV92 EQU TCBNDSP4 05154000 TCBRSV91 EQU TCBNDSP4 05155000 TCBRSV90 EQU TCBNDSP4 05156000 TCBRSV89 EQU TCBNDSP4 05157000 TCBRSV88 EQU TCBNDSP4 05158000 TCBRSV87 EQU TCBNDSP4 05159000 TCBRSV86 EQU TCBNDSP4 05160000 TCBEXT1A EQU TCBEXT1+1 05161000 TCBRSV32 EQU TCBEXT1 05162000 TCBEXCPD EQU TCB+192 05163000 TCBIOBRC EQU TCB+188 05164000 TCBDDWTC EQU TCB+186 05165000 TCBDDEXC EQU TCB+184 05166000 TCBJSCBB EQU TCBJSCB+1 05167000 @NM00004 EQU TCBRECDE 05168000 TCBREC EQU TCBRECDE 05169000 TCBMDIDS EQU TCB+176 05170000 TCBNDINT EQU TCBNDSP3 05171000 TCBRSV27 EQU TCBNDSP3 05172000 TCBRSV26 EQU TCBNDSP3 05173000 TCBRSV25 EQU TCBNDSP3 05174000 TCBRSV24 EQU TCBNDSP3 05175000 TCBSRBND EQU TCBNDSP3 05176000 TCBRV302 EQU TCBNDSP3 05177000 TCBLJSND EQU TCBNDSP3 05178000 TCBABE EQU TCBNDSP2 05179000 TCBDSS EQU TCBNDSP2 05180000 TCBOWAIT EQU TCBNDSP2 05181000 TCBIWAIT EQU TCBNDSP2 05182000 TCBNDTS EQU TCBNDSP2 05183000 TCBNDSVC EQU TCBNDSP2 05184000 TCBSTPP EQU TCBNDSP2 05185000 TCBABD EQU TCBNDSP2 05186000 TCBRSV22 EQU TCBNDSP1 05187000 TCBPIEND EQU TCBNDSP1 05188000 TCBTPSP EQU TCBNDSP1 05189000 TCBDDRND EQU TCBNDSP1 05190000 TCBRSPND EQU TCBNDSP1 05191000 TCBRSTND EQU TCBNDSP1 05192000 TCBDARPN EQU TCBNDSP1 05193000 TCBDARTN EQU TCBNDSP1 05194000 TCBNDSP0 EQU TCBNDSP 05195000 TCBUSER EQU TCB+168 05196000 TCBTCTB EQU TCBTCT+1 05197000 TCBRSV9C EQU TCBTCTGF 05198000 TCBRSV9B EQU TCBTCTGF 05199000 TCBRSV9A EQU TCBTCTGF 05200000 TCBRSV99 EQU TCBTCTGF 05201000 TCBRSV98 EQU TCBTCTGF 05202000 TCBRSV97 EQU TCBTCTGF 05203000 TCBRSV20 EQU TCBTCTGF 05204000 TCBSMFGF EQU TCBTCTGF 05205000 TCBSTABB EQU TCBSTAB+1 05206000 TCBSTCUR EQU TCBNSTAE 05207000 TCBRV301 EQU TCBNSTAE 05208000 TCBSYNCH EQU TCBNSTAE 05209000 TCBHALT EQU TCBNSTAE 05210000 TCBPPSUP EQU TCBNSTAE 05211000 TCB33E EQU TCBNSTAE 05212000 TCBQUIES EQU TCBNSTAE 05213000 TCBSTABE EQU TCBNSTAE 05214000 TCBAQE EQU TCB+156 05215000 TCBPQE EQU TCB+152 05216000 TCBTSDP EQU TCB+151 05217000 TCBTSLP EQU TCB+150 05218000 TCBSTPCT EQU TCB+149 05219000 TCBCPUBN EQU TCBTSFLG 05220000 TCBDYDSP EQU TCBTSFLG 05221000 TCBRSV18 EQU TCBTSFLG 05222000 TCBRSV17 EQU TCBTSFLG 05223000 TCBTIOTG EQU TCBTSFLG 05224000 TCBATT EQU TCBTSFLG 05225000 TCBSTPPR EQU TCBTSFLG 05226000 TCBRV300 EQU TCBTSTSK 05227000 TCBECB EQU TCB+144 05228000 TCBIQE EQU TCB+140 05229000 TCBLTC EQU TCB+136 05230000 TCBOTC EQU TCB+132 05231000 TCBNTC EQU TCB+128 05232000 TCBJSTCA EQU TCBJSTCB+1 05233000 TCBRSV16 EQU TCBJSTCB 05234000 TCBTQET EQU TCBTME 05235000 TCBTCB EQU TCB+116 05236000 TCBFSAB EQU TCBFSA+1 05237000 TCBQEL EQU TCBFSA 05238000 TCBGRS15 EQU TCBGRS+60 05239000 TCBGRS14 EQU TCBGRS+56 05240000 TCBGRS13 EQU TCBGRS+52 05241000 TCBGRS12 EQU TCBGRS+48 05242000 TCBGRS11 EQU TCBGRS+44 05243000 TCBGRS10 EQU TCBGRS+40 05244000 TCBGRS9 EQU TCBGRS+36 05245000 TCBGRS8 EQU TCBGRS+32 05246000 TCBGRS7 EQU TCBGRS+28 05247000 TCBGRS6 EQU TCBGRS+24 05248000 TCBGRS5 EQU TCBGRS+20 05249000 TCBGRS4 EQU TCBGRS+16 05250000 TCBGRS3 EQU TCBGRS+12 05251000 TCBGRS2 EQU TCBGRS+8 05252000 TCBGRS1 EQU TCBGRS+4 05253000 TCBGRS0 EQU TCBGRS 05254000 TCBJPQB EQU TCBJPQ+1 05255000 TCBRSV15 EQU TCBPURGE 05256000 TCBRSV14 EQU TCBPURGE 05257000 TCBRSV13 EQU TCBPURGE 05258000 TCBRSV12 EQU TCBPURGE 05259000 TCBRSV11 EQU TCBPURGE 05260000 TCBRSV10 EQU TCBPURGE 05261000 TCBRSV09 EQU TCBPURGE 05262000 TCBJPQF EQU TCBPURGE 05263000 TCBJLB EQU TCB+40 05264000 TCBLLS EQU TCB+36 05265000 TCBDSP EQU TCB+35 05266000 TCBLMP EQU TCB+34 05267000 TCBPNDSP EQU TCBFLGS5 05268000 TCBFCD1 EQU TCBFLGS5 05269000 TCBSTP EQU TCBFLGS5 05270000 TCBSYS EQU TCBFLGS5 05271000 TCBANDSP EQU TCBFLGS5 05272000 TCBPAGE EQU TCBFLGS5 05273000 TCBUXNDF EQU TCBABWF 05274000 TCBFC EQU TCBFLGS5 05275000 TCBONDSP EQU TCBFLGS4 05276000 TCBMPCND EQU TCBFLGS4 05277000 TCBMPCVQ EQU TCBFLGS4 05278000 TCBUXNDV EQU TCBFLGS4 05279000 TCBHNDSP EQU TCBFLGS4 05280000 TCBRQENA EQU TCBFLGS4 05281000 TCBSER EQU TCBFLGS4 05282000 TCBNDUMP EQU TCBFLGS4 05283000 TCBDWSTA EQU TCBFLGS3 05284000 TCBRSV08 EQU TCBFLGS3 05285000 TCBRSV07 EQU TCBFLGS3 05286000 TCBRSV06 EQU TCBFLGS3 05287000 TCBABGM EQU TCBFLGS3 05288000 TCBABTRM EQU TCBFLGS3 05289000 TCBADINP EQU TCBFLGS3 05290000 TCBFSM EQU TCBFLGS3 05291000 TCBFTS EQU TCBFLGS2 05292000 TCBFETXR EQU TCBFLGS2 05293000 TCBFDSOP EQU TCBFLGS2 05294000 TCBFJMC EQU TCBFLGS2 05295000 TCBFSMC EQU TCBFLGS2 05296000 TCBFABOP EQU TCBFLGS2 05297000 TCBFSTI EQU TCBFLGS2 05298000 TCBFOINP EQU TCBFLGS2 05299000 TCBFX EQU TCBFLGS1 05300000 TCBFS EQU TCBFLGS1 05301000 TCBFT EQU TCBFLGS1 05302000 TCBPDUMP EQU TCBFLGS1 05303000 TCBNONPR EQU TCBFLGS1 05304000 TCBFERA EQU TCBFLGS1 05305000 TCBFE EQU TCBFLGS1 05306000 TCBFA EQU TCBFLGS1 05307000 TCBZERO EQU TCBPKF 05308000 TCBFLAG EQU TCBPKF 05309000 TCBMSSB EQU TCBMSS+1 05310000 TCBRSV03 EQU TCBMSS 05311000 TCBTRNB EQU TCBTRN+1 05312000 TCBRSV02 EQU TCBABF 05313000 TCBOLTEP EQU TCBABF 05314000 TCBTCP EQU TCBABF 05315000 TCBTCPP EQU TCBABF 05316000 TCBRSV01 EQU TCBABF 05317000 TCBGRPH EQU TCBABF 05318000 TCBNOCHK EQU TCBABF 05319000 TCBMOD91 EQU TCBABF 05320000 TCBCMPC EQU TCBCMP+1 05321000 TCBRV318 EQU TCBCMSG 05322000 TCBRV317 EQU TCBCIND 05323000 TCBRV316 EQU TCBCWTO 05324000 TCBCASID EQU TCBCDBL 05325000 TCBNOCC EQU TCBSTCC 05326000 TCBDMPO EQU TCBCPP 05327000 TCBCSTEP EQU TCBCMPF 05328000 TCBCREQ EQU TCBCMPF 05329000 TCBTIO EQU TCB+12 05330000 TCBDEB EQU TCB+8 05331000 TCBPIEA EQU TCBPIE+1 05332000 TCBPM EQU TCBPMASK 05333000 @NM00003 EQU TCBPMASK 05334000 TCBRBP EQU TCB 05335000 TCBFRS6 EQU TCBFRS+24 05336000 TCBFRS4 EQU TCBFRS+16 05337000 TCBFRS2 EQU TCBFRS+8 05338000 TCBFRS0 EQU TCBFRS 05339000 RQEEND EQU RQE+40 05340000 @NM00002 EQU RQEFLAG3 05341000 RQEINIOS EQU RQEFLAG3 05342000 RQECHEAC EQU RQEFLAG 05343000 RQEPURGE EQU RQEFLAG 05344000 RQESRBS EQU RQEFLAG 05345000 RQESTBL EQU RQEFLAG 05346000 RQEFIXST EQU RQEFLAG 05347000 RQENOFRE EQU RQEFLAG 05348000 RQENOPST EQU RQEFLAG 05349000 RQERETRY EQU RQEFLAG 05350000 RQETYP1 EQU RQETYP3 05351000 RQETYP2 EQU RQETYP3 05352000 RQEDIE EQU RQETYPE 05353000 RQEEOEE EQU RQETYPE 05354000 RQEVAM EQU RQETYPE 05355000 RQE1TO1 EQU RQETYPE 05356000 RQEVIRT EQU RQETYPE 05357000 RQE114 EQU RQETYPE 05358000 RQESMFRQ EQU RQEPRT 05359000 @NM00001 EQU RQEPRT 05360000 RQEPKEY EQU RQEPRT 05361000 RQEIPIB EQU RQE+32 05362000 RQESRB EQU RQE+28 05363000 RQERRQ EQU RQE+24 05364000 RQENRQE EQU RQE+20 05365000 RQETCCW EQU RQE+16 05366000 RQEDEB EQU RQE+8 05367000 RQEUCB EQU RQE 05368000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 05369000 @RT00172 EQU MSGA 05370000 @RT00181 EQU CHAINTST 05371000 @RT00185 EQU LOG$MSG 05372000 @RF00189 EQU @RC00183 05373000 @RT00193 EQU LOG$MSG 05374000 @RT00195 EQU RETRY5 05375000 @RT00197 EQU LOG$MSG 05376000 @RT00199 EQU RETRY5 05377000 @RT00206 EQU RETRY5 05378000 @RT00209 EQU RETRY5 05379000 @RT00211 EQU RETRY5 05380000 @RT00215 EQU RETRY5 05381000 @RF00217 EQU LOG$MSG 05382000 @RF00213 EQU LOG$MSG 05383000 @RT00225 EQU LOG$MSG 05384000 @RT00227 EQU UC3211 05385000 @RT00229 EQU UC3800 05386000 @RT00231 EQU STATUS 05387000 @RT00233 EQU LOG$MSG 05388000 @RT00236 EQU NONUCS 05389000 @RT00238 EQU UCSSNS 05390000 @RT00240 EQU LOG$MSG 05391000 @RT00249 EQU STAT3211 05392000 @RT00251 EQU LOG$MSG 05393000 @RT00256 EQU STAT3800 05394000 @RT00258 EQU LOG$MSG 05395000 @RT00281 EQU CHAN9 05396000 @RT00284 EQU LOG$MSG 05397000 @RF00284 EQU RETRY5 05398000 @RT00345 EQU RETRY 05399000 @RT00347 EQU MSGA 05400000 @RT00350 EQU OK 05401000 @RF00358 EQU RESUME 05402000 @RT00368 EQU RETRY5 05403000 @RT00398 EQU LOG$MSGA 05404000 @RT00401 EQU LOG$MSG 05405000 @RT00403 EQU TESTIRQ 05406000 @RT00428 EQU WTOXCTL 05407000 @RT00450 EQU BUFREAD3 05408000 @RT00457 EQU RETRY5 05409000 @RF00457 EQU LOG$MSG 05410000 @RT00460 EQU LNPOSCK 05411000 @RT00462 EQU LOG$MSG 05412000 @RF00512 EQU LOG$MSG 05413000 @RT00534 EQU LOG$MSG 05414000 @RT00536 EQU RETRY5 05415000 @RT00546 EQU LOG$MSG 05416000 @RT00553 EQU LOG$MSG 05417000 @RT00629 EQU LOG$MSG 05418000 @RT00639 EQU LOG$MSG 05419000 @RT00656 EQU LOG$MSGA 05420000 @RT00689 EQU WTOXCTL 05421000 @RT00704 EQU RETRY5 05422000 @RF00704 EQU LOG$MSG 05423000 @RT00708 EQU READCK 05424000 @RT00739 EQU RD3800LG 05425000 @RT00741 EQU MSGA 05426000 @RT00769 EQU INTVCONT 05427000 @RF00776 EQU WTOXCTL 05428000 @RT00798 EQU LOG$MSG 05429000 @RF00822 EQU LOG$MSG 05430000 @RF00852 EQU @EL00002 05431000 @ENDDATA EQU * 05432000 END IEC1403A,(C'PLS1644',0701,78220) 05433000