003C TITLE 'IGE0003C - 3838 ERROR RECOVERY PROCEDURE. *00001000 ' 00002000 * /* DO OWN PROLOG. */ 00003000 IGE0003C CSECT 00004000 USING IGE0003C,CODEBASE ADDRESSIBILITY FOR CODE. 00005000 * CODEBASE=R15P; /* ADDRESS OF PROGRAM. */ 00006000 LR CODEBASE,R15P 01S0175 00007000 * RFY 01S0176 00008000 * R15P UNRSTD; 01S0176 00009000 * APIOPTR=R1P; /* ADDRESS OF APIO AND IOSB. */ 00010000 LR APIOPTR,R1P 01S0177 00011000 * RFY 01S0178 00012000 * IOSB BASED(APIOPTR); 01S0178 00013000 * EWAPTR=IOSERP; /* ADDRESS OF ERP WORKAREA. */ 00014000 L EWAPTR,IOSERP(,APIOPTR) 01S0179 00015000 * RFY 01S0180 00016000 * APSN BASED(ADDR(EWAIERP)); 01S0180 00017000 * IOSERR=ON; /* ERP IN CONTROL. */ 00018000 * IOSEX=ON; /* EXCEPTIONAL CONDITION. */ 00019000 OI IOSERR(APIOPTR),B'00100100' 01S0182 00020000 * IOSSDR=OFF; /* RESET INDICATORS IN THE IOSB */ 00021000 * IOSMSG=OFF; /* WHICH MIGHT BE LEFT ON FROM */ 00022000 * IOSBDCST=OFF; /* PREVIOUS ENTRIES. */ 00023000 * IOSLOG=OFF; /* MORE OF SAME. */ 00024000 NI IOSSDR(APIOPTR),B'10111000' 01S0186 00025000 * RFY 01S0187 00026000 * (R0P, 01S0187 00027000 * R2P, 01S0187 00028000 * R15P) RSTD; /* NEED THESE REGS. */ 00029000 * IF KEYSAVED=ON THEN /* IF THE KEY WAS CHANGED IN THE 00030000 * IOSB THEN IT NEEDS TO BE 01S0188 00031000 * RESTORD */ 00032000 TM KEYSAVED(EWAPTR),B'00010000' 01S0188 00033000 BNO @RF00188 01S0188 00034000 * DO; /* RESTORE THE KEY. */ 00035000 * KEYSAVED=OFF; /* INDICATE THAT THE KEY IS 01S0190 00036000 * RESTORD */ 00037000 NI KEYSAVED(EWAPTR),B'11101111' 01S0190 00038000 * IOSCKEY=SAVEKEY; /* RESTORE THE KEY. */ 00039000 MVC IOSCKEY(1,APIOPTR),SAVEKEY(EWAPTR) 01S0191 00040000 * END; /* END OF KEY RESTORE. */ 00041000 * GEN SETS(R0P)(L R0P,@SIZDATD);/* SIZE REQUIRED FOR DYNAMIC 00042000 * AREA */ 00043000 @RF00188 DS 0H 01S0193 00044000 L R0P,@SIZDATD 00045000 * SPSIZE=R0P; /* SET SIZE FOR POSTERITY- 01S0194 00046000 * FREEMAIN */ 00047000 ST R0P,SPSIZE(,EWAPTR) 01S0194 00048000 * DSP=230; /* TRY THIS SUBPOOL FIRST. */ 00049000 MVI DSP(EWAPTR),X'E6' 01S0195 00050000 * R2P=DSIZE; /* SET R2 FOR THE GETMAIN. */ 00051000 L R2P,DSIZE-1(,EWAPTR) 01S0196 00052000 LA R2P,0(,R2P) 01S0196 00053000 * GEN SETS(R0P,R1P,R15P) /* CONTITIONAL GETMAIN. */ 00054000 * (GETMAIN RC,LV=(2),SP=230); 01S0197 00055000 GETMAIN RC,LV=(2),SP=230 00056000 * IF R15P^=0 THEN /* IF STORAGE NOT AVAILABLE 01S0198 00057000 * THERE, TRY AGAIN IN CSA. */ 00058000 LTR R15P,R15P 01S0198 00059000 BZ @RF00198 01S0198 00060000 * DO; 01S0199 00061000 * DSP=241; /* SUBPOOL FOR CSA. */ 00062000 MVI DSP(EWAPTR),X'F1' 01S0200 00063000 * R0P=SPSIZE; /* SET R0 FOR THE GETMAIN. */ 00064000 L R0P,SPSIZE(,EWAPTR) 01S0201 00065000 * GEN SETS(R1P)(GETMAIN R,LV=(0));/* IF CAN'T GET IT HERE THEN 00066000 * ERP WILL ABEND. TOO BAD. */ 00067000 GETMAIN R,LV=(0) 00068000 * END; 01S0203 00069000 * RFY 01S0204 00070000 * (R0P, 01S0204 00071000 * R2P, 01S0204 00072000 * R15P) UNRSTD; 01S0204 00073000 @RF00198 DS 0H 01S0205 00074000 * DYNPTR=R1P; /* IF GOT HERE R1 HAS ADDRESS OF 00075000 * STORAGE. */ 00076000 ST R1P,DYNPTR(,EWAPTR) 01S0205 00077000 * DATABASE=R1P; /* SET THE DYNAMIC AREA PTR. */ 00078000 LR DATABASE,R1P 01S0206 00079000 * GEN(USING @DATD,DATABASE ADDRESSIBILITY FOR DATA.); 01S0207 00080000 USING @DATD,DATABASE ADDRESSIBILITY FOR DATA. 00081000 * RFY 01S0208 00082000 * R1P UNRSTD; 01S0208 00083000 * STM(R3P,R12P,SAVE312); /* SAVE REGS FOR RETRY. */ 00084000 STM R3P,R12P,SAVE312 01S0209 00085000 * ESIND=0; /* CLEAR THE ESATE INDICATOR 00086000 * FIELD. */ 00087000 SLR @11,@11 01S0210 00088000 ST @11,ESIND 01S0210 00089000 * PARMPTR=ADDR(ESIND); /* REGS FOR THE ESTAE RETRY 01S0211 00090000 * ROUTINE */ 00091000 LA @11,ESIND 01S0211 00092000 ST @11,PARMPTR(,EWAPTR) 01S0211 00093000 * RFY 01S0212 00094000 * R2P RSTD; 01S0212 00095000 * R2P=ADDR(PARMPTR); /* SET ADDRESS OF THE PARMLIST. */ 00096000 LA R2P,PARMPTR(,EWAPTR) 01S0213 00097000 * GEN REFS(DESTAE,XESTAE,PARMPTR) FLOWS(RECOVER); 01S0214 00098000 MVC DESTAE,XESTAE MOVE IN THE SKELETON. 00099000 ESTAE RECOVER,CT,PARAM=(R2P),MF=(E,DESTAE) 00100000 * RFY 01S0215 00101000 * R2P UNRSTD; /* COMMENT FOR THE STANDARDS. */ 00102000 * DO; 02S0216 00103000 * IF IOSCOD=IOSFINTC THEN /* TEST FOR INTERCEPT CONDITION. */ 00104000 CLI IOSCOD(APIOPTR),X'7E' 02S0217 00105000 BNE @RF00217 02S0217 00106000 * DO; /* IT'S AN INTERCEPT ERROR */ 00107000 * IOSCOD='7F'X; /* WE WANT TO TELL IOS TO RETRY. */ 00108000 MVI IOSCOD(APIOPTR),X'7F' 02S0219 00109000 * GO TO LOGRTRY; /* LET THE CALLER FAIL IN HIS OWN 00110000 * RIGHT. */ 00111000 B LOGRTRY 02S0220 00112000 * END; 02S0221 00113000 * END; 02S0222 00114000 @RF00217 DS 0H 02S0223 00115000 * RETRY=NO; /* ASSUME THAT RETRY CAN'T BE 00116000 * DONE, */ 00117000 * RESTART=YES; /* * BUT THAT RESTART CAN. */ 00118000 OI RESTART(EWAPTR),B'00001000' 01S0224 00119000 NI RETRY(EWAPTR),B'11111101' 01S0224 00120000 * IF IOSDVRID=IOSVPSID /* FOR VPSS SAVE THE CSW FOR THE */ 00121000 * &PREV=OFF THEN /* USER UNLESS ALREADY DONE. */ 00122000 CLI IOSDVRID(APIOPTR),X'0B' 01S0225 00123000 BNE @RF00225 01S0225 00124000 TM PREV(EWAPTR),B'10000000' 01S0225 00125000 BNZ @RF00225 01S0225 00126000 * DO; 01S0226 00127000 * MVC(SAVEVCSW(1:8),MYCSW); /* INCLUDE THE SIO CODE. */ 00128000 MVC SAVEVCSW(8,EWAPTR),MYCSW(APIOPTR) 01S0227 00129000 * APIOVCSW=ADDR(IOSCC); /* ADDRESS OF THE VIRTUAL CSW. */ 00130000 LA @11,IOSCC(,APIOPTR) 01S0228 00131000 ST @11,APIOVCSW(,APIOPTR) 01S0228 00132000 * END; 01S0229 00133000 * DO; 02S0230 00134000 * 02S0230 00135000 @RF00225 DS 0H 02S0231 00136000 * /***************************************************************/ 00137000 * /* */ 00138000 * /* THIS CODE EXAMINES THE CHAINING INDICATORS IN THE IOSB TO */ 00139000 * /* DETERMINE IF THE CHANNEL PROGRAM MAY BE RESTARTED OR */ 00140000 * /* RETRIED. RESTART MEANS THAT OPERATION BEGINS WITH THE FAILED*/ 00141000 * /* CCW. RETRY MEANS THAT CHANNEL PROGRAM IS STARTED AT THE */ 00142000 * /* BEGINNING. IN GENERAL, ALL CHANNEL PROGRAMS ARE RESTARTABLE */ 00143000 * /* UNLESS DATA CHAINING IS INVOLVED, WHICH SHOULD OCCUR */ 00144000 * /* INFREQUENTLY. RETRY IS POSSIBLE ONLY IF THE INPUT AND OUTPUT*/ 00145000 * /* AREAS DON'T OVERLAP. @ZA25369*/ 00146000 * /* FOR EXCP CALLERS, NEITHER RESTART NOR RETRY IS @ZA25369*/ 00147000 * /* ATTEMPTED. THE ONLY EXPECTED USER OF EXCP IS THE VPSS */ 00148000 * /* MONITOR AND IT DOES NOT WANT ANY RECOVERY PERFORMED. */ 00149000 * /* @ZA25369*/ 00150000 * /* @ZA25369*/ 00151000 * /* */ 00152000 * /***************************************************************/ 00153000 * 02S0231 00154000 * IF IOSCSWCA-8=IOSVST THEN /* IF FAILURE WAS ON FIRST CCW, */ 00155000 L @11,IOSCSWCA-1(,APIOPTR) 02S0231 00156000 LA @11,0(,@11) 02S0231 00157000 SL @11,@CF00059 02S0231 00158000 C @11,IOSVST(,APIOPTR) 02S0231 00159000 BNE @RF00231 02S0231 00160000 * DO; /* ASSUME THAT THE CHANNEL 02S0232 00161000 * PROGRAM */ 00162000 * RETRY=YES; /* MAY BE RETRIED, */ 00163000 * RESTART=NO; /* BUT NOT RESTARTED (WHICH 02S0234 00164000 * INVOLVES THE RESTART CCW, 00165000 * ETC). */ 00166000 OI RETRY(EWAPTR),B'00000010' 02S0234 00167000 NI RESTART(EWAPTR),B'11110111' 02S0234 00168000 * END; /* END OF FISRT CCW CHECK. */ 00169000 * ELSE /* SEE IF OTHER CONDITIONS AFFECT*/ 00170000 * DO; /* RETRY AND RESTART. */ 00171000 B @RC00231 02S0236 00172000 @RF00231 DS 0H 02S0237 00173000 * IF IOSDVRID=IOSVPSID /* IF THE DRIVER IS VPSS, */ 00174000 * &APIOEXCL=OFF THEN /* * AND THE PORT IS SHARED. */ 00175000 CLI IOSDVRID(APIOPTR),X'0B' 02S0237 00176000 BNE @RF00237 02S0237 00177000 TM APIOEXCL(APIOPTR),B'10000000' 02S0237 00178000 BNZ @RF00237 02S0237 00179000 * IF IOSACHN='00'B THEN /* IF NO CHAINING, THEN MAY 02S0238 00180000 * RETRY. */ 00181000 TM IOSACHN(APIOPTR),B'11000000' 02S0238 00182000 BNZ @RF00238 02S0238 00183000 * RETRY=YES; 02S0239 00184000 OI RETRY(EWAPTR),B'00000010' 02S0239 00185000 * ELSE 02S0240 00186000 * IF IOSDCHN=ON& /* IF ONLY DATA CHAINING, */ 00187000 * IOSCCHN=OFF THEN /* * MAY RETRY, BUT NOT RESTART. */ 00188000 B @RC00238 02S0240 00189000 @RF00238 TM IOSDCHN(APIOPTR),B'10000000' 02S0240 00190000 BNO @RF00240 02S0240 00191000 TM IOSCCHN(APIOPTR),B'01000000' 02S0240 00192000 BNZ @RF00240 02S0240 00193000 * DO; 02S0241 00194000 * RETRY=YES; 02S0242 00195000 * RESTART=NO; 02S0243 00196000 OI RETRY(EWAPTR),B'00000010' 02S0243 00197000 NI RESTART(EWAPTR),B'11110111' 02S0243 00198000 * END; 02S0244 00199000 * ELSE 02S0245 00200000 * DO; 03S0245 00201000 * 03S0245 00202000 B @RC00240 03S0245 00203000 @RF00240 DS 0H 03S0246 00204000 * /***************************************************/ 00205000 * /* */ 00206000 * /* DATA CHAINING PRECLUDES A RESTART OF THE CHANNEL*/ 00207000 * /* PROGRAM, BUT A RETRY MIGHT BE IN ORDER. RESTART */ 00208000 * /* IS OUT BECAUSE WE MIGHT BEGIN OVER IN THE */ 00209000 * /* 'MIDDLE' OF AN I/O THAT HAS BEEN SPLIT INTO TWO */ 00210000 * /* PHYSICAL I/O OPERATIONS. BUT IF NO DATA HAS BEEN*/ 00211000 * /* OVERLAID BY ANY BY ANY READ OPERATIONS, WE CAN */ 00212000 * /* RETRY THE WHOLE OPERATION. */ 00213000 * /* */ 00214000 * /***************************************************/ 00215000 * 03S0246 00216000 * IF IOSCSWCAADDR(CCW3) THEN/* IF NOT ONE OF OURS 00221000 * THEN CHECK FOR OVERLAP. */ 00222000 L @11,IOSCSWCA-1(,APIOPTR) 03S0246 00223000 LA @11,0(,@11) 03S0246 00224000 LA @09,CCW2(,EWAPTR) 03S0246 00225000 CR @11,@09 03S0246 00226000 BL @RT00246 03S0246 00227000 LA @09,CCW3(,EWAPTR) 03S0246 00228000 CR @11,@09 03S0246 00229000 BNH @RF00246 03S0246 00230000 @RT00246 DS 0H 03S0247 00231000 * IF APIOOLAP=0 /* THIS FIELD CONTAINS THE OFFSET 00232000 * TO THE FIRST CCW THAT OVERLAYS 00233000 * DATA THAT ANOTHER CCW WILL 00234000 * USE. IF IT IS ZERO THERE IS NO 00235000 * OVERLAP SO MAY RETRY. */ 00236000 * |APIOOLAP>= /* ELSE MUST SEE IF OVERLAP 03S0247 00237000 * OCCURRED. */ 00238000 * (IOSCSWCA-IOSVST)/* THIS VALUE IS THE OFFSET 00239000 * TO THE CCW THAT FAILED. */ 00240000 * THEN /* IF CCW IN SAFE AREA. */ 00241000 LH @11,APIOOLAP(,APIOPTR) 03S0247 00242000 LTR @11,@11 03S0247 00243000 BZ @RT00247 03S0247 00244000 L @09,IOSCSWCA-1(,APIOPTR) 03S0247 00245000 LA @09,0(,@09) 03S0247 00246000 SL @09,IOSVST(,APIOPTR) 03S0247 00247000 CR @11,@09 03S0247 00248000 BL @RF00247 03S0247 00249000 @RT00247 DS 0H 03S0248 00250000 * RETRY=YES; /* SET RETRY = OK. */ 00251000 OI RETRY(EWAPTR),B'00000010' 03S0248 00252000 * IF IOSDCHN=ON /* IF DATA CHAINING IS ON, THEN 00253000 * IT MIGHT STILL BE POSSIBLE TO 00254000 * RESTART BUT ONLY IF THE CCW 00255000 * THAT FAILED WAS NOT DATA 03S0249 00256000 * CHAINED TO. */ 00257000 * &(IOSCSWCAADDR(CCW3))/* THE RESTART CCWS 03S0249 00260000 * THEMSELVES. */ 00261000 * &IOSCSWCA-16>=IOSVST/* ENSURE THAT WE DON'T GO 00262000 * TOO FAR. */ 00263000 * &(IOSCSWCA-16)->CCWDC=ON/* FINALLY, IS THE CCW 00264000 * DATA */ 00265000 * THEN /* CHAINED TO? */ 00266000 @RF00247 DS 0H 03S0249 00267000 @RF00246 TM IOSDCHN(APIOPTR),B'10000000' 03S0249 00268000 BNO @RF00249 03S0249 00269000 L @11,IOSCSWCA-1(,APIOPTR) 03S0249 00270000 LA @11,0(,@11) 03S0249 00271000 LA @09,CCW2(,EWAPTR) 03S0249 00272000 CR @11,@09 03S0249 00273000 BL @GL00006 03S0249 00274000 LA @09,CCW3(,EWAPTR) 03S0249 00275000 CR @11,@09 03S0249 00276000 BNH @RF00249 03S0249 00277000 @GL00006 L @11,IOSCSWCA-1(,APIOPTR) 03S0249 00278000 LA @11,0(,@11) 03S0249 00279000 SL @11,@CF00040 03S0249 00280000 C @11,IOSVST(,APIOPTR) 03S0249 00281000 BL @RF00249 03S0249 00282000 TM CCWDC(@11),B'10000000' 03S0249 00283000 BNO @RF00249 03S0249 00284000 * RESTART=NO; /* RESTART IS JUST NOT POSSIBLE. */ 00285000 NI RESTART(EWAPTR),B'11110111' 03S0250 00286000 * END; 03S0251 00287000 * ELSE 02S0252 00288000 * IF IOSDCHN=YES THEN /* DOESNT MAKE ANY DIFFERENCE WHO*/ 00289000 B @RC00237 02S0252 00290000 @RF00237 TM IOSDCHN(APIOPTR),B'10000000' 02S0252 00291000 BNO @RF00252 02S0252 00292000 * RESTART=NO; /* YOU ARE, IF DATA CHN, NO 02S0253 00293000 * RESTRT. */ 00294000 NI RESTART(EWAPTR),B'11110111' 02S0253 00295000 * END; /* END OF RETRY/RESTART CHECK. */ 00296000 @RF00252 DS 0H 02S0254 00297000 @RC00237 DS 0H 02S0255 00298000 * IF IOSDVRID^=IOSVPSID THEN /* CHECK FOR EXCP USER. @ZA25369*/ 00299000 @RC00231 CLI IOSDVRID(APIOPTR),X'0B' 02S0255 00300000 BE @RF00255 02S0255 00301000 * DO; /* RESET FLAGS. @ZA25369*/ 00302000 * RETRY=NO; /* NO RETRY IS ALLOWED. @ZA25369*/ 00303000 * RESTART=NO; /* NO RESTART IS ALLOWED. 02S0258 00304000 * @ZA25369*/ 00305000 NI RETRY(EWAPTR),B'11110101' 02S0258 00306000 * END; /* END OF PROCESS EXCP USER. 00307000 * @ZA25369*/ 00308000 * END; 02S0260 00309000 @RF00255 DS 0H 02S0261 00310000 * RFY 01S0261 00311000 * (R0P, 01S0261 00312000 * R1P, 01S0261 00313000 * R9P, 01S0261 00314000 * R11P, 01S0261 00315000 * R12P, 01S0261 00316000 * R14P, 01S0261 00317000 * R15P) RSTD; /* USED BY INTERPRETER. */ 00318000 * R1P=ADDR(IOSB); /* ADDRESS OF IOSB. */ 00319000 LR R1P,APIOPTR 01S0262 00320000 * R15P=CVTXITP; /* ADDR OF INTERPRETER ROUTINE. */ 00321000 L @03,CVTPTR 01S0263 00322000 L R15P,CVTXITP(,@03) 01S0263 00323000 * GEN REFS(R15P) SETS(R14P) FLOWS(CHANERR,LOGMSG,UNITCK,ALLCLEAR) 00324000 * NOSEQFLOW; 01S0264 00325000 * THIS CODE INVOKES THE ERP BIT ANALYZER TO DETERMINE WHAT TO DO. 00326000 T1 BALR R14P,R15P CALL ERROR INTERPRETER ROUTINE. 00327000 DC X'1D',AL1(TCCC-T1-2) CHAN CONTROL CK 00328000 DC X'1E',AL1(TCCC-T1-4) INTERFACE CONTROL CK 00329000 DC X'1C',AL1(TCCC-T1-6) CHAN DATA CK 00330000 DC X'10',AL1(TUNUSED-T1-8) ATTN (UNUSED) 00331000 DC X'17',AL1(TUNUSED-T1-10) UNIT EXC (UNUSED) 00332000 DC X'16',AL1(TUNIT-T1-12) UNIT CK 00333000 DC X'1F',AL1(TUSER-T1-14) CHAIN CK 00334000 DC X'1A',AL1(TUSER-T1-16) PROG CK 00335000 DC X'1B',AL1(TUSER-T1-18) PROTECT CK 00336000 DC X'19',AL1(TILEN-T1-20) INCORRECT LENGTH 00337000 DC X'2F',AL1(TGOOD-T1-22) NO ERROR THIS ENTRY TO ERP. 00338000 TCCC B CHANERR 00339000 TUNUSED B LOGMSG 00340000 TUNIT B UNITCK 00341000 TUSER B PROGERR 00342000 TGOOD B ALLCLEAR 00343000 TILEN B ILLEN GO TO ILLEGAL LENGTH ROUTINE. 00344000 * RFY 01S0265 00345000 * (R0P, 01S0265 00346000 * R1P, 01S0265 00347000 * R9P, 01S0265 00348000 * R11P, 01S0265 00349000 * R12P, 01S0265 00350000 * R14P, 01S0265 00351000 * R15P) UNRSTD; 01S0265 00352000 *CHANERR: 01S0266 00353000 * ; /* ERROR WAS CCC, CDC, OR ICC. */ 00354000 CHANERR DS 0H 01S0267 00355000 * DO; 02S0267 00356000 * 02S0267 00357000 * /***************************************************************/ 00358000 * /* */ 00359000 * /* PROCESS CCC, CDC AND ICC. */ 00360000 * /* */ 00361000 * /***************************************************************/ 00362000 * 02S0268 00363000 * RESTART=NO; /* RESTART IS NOT POSSIBLE EXCEPT 00364000 * * FOR UNIT CHECKS. */ 00365000 NI RESTART(EWAPTR),B'11110111' 02S0268 00366000 * IF IOSCOD=IOSMIHC THEN /* IF MISSING INTERRUPT THE CSW * 00367000 * IS MADE UP BY MIH AND SO IS * 00368000 * NOT VALID. */ 00369000 CLI IOSCOD(APIOPTR),X'74' 02S0269 00370000 BNE @RF00269 02S0269 00371000 * IF RETRY=YES /* CHECK TO SEE IF RETRY OK. */ 00372000 * &PREV=OFF THEN /* BUT ONLY IF NOT TRIED BEFORE. */ 00373000 TM RETRY(EWAPTR),B'00000010' 02S0270 00374000 BNO @RF00270 02S0270 00375000 TM PREV(EWAPTR),B'10000000' 02S0270 00376000 BNZ @RF00270 02S0270 00377000 * DO; /* PROCESS RETRY REQUEST. */ 00378000 * PREV=YES; /* INDICATE THAT IT TRIED ONCE. */ 00379000 OI PREV(EWAPTR),B'10000000' 02S0272 00380000 * GO TO DOITOVER; /* GO TRY AGAIN. */ 00381000 B DOITOVER 02S0273 00382000 * END; /* END OF RETRY PROCESS. */ 00383000 * ELSE /* IT CAN'T BE RETRIED. */ 00384000 * GO TO LOGMSG; /* SO IT IS A PERM ERROR. */ 00385000 * IF EWANORTY=ON THEN /* IF CCH SAYS NO, THEN FORGET 00386000 * IT. */ 00387000 @RF00269 TM EWANORTY(EWAPTR),B'00000001' 02S0276 00388000 BO @RT00276 02S0276 00389000 * GO TO LOGMSG; 02S0277 00390000 * IF PREV=YES THEN /* IF BEEN HERE BEFORE, GIVE UP. */ 00391000 TM PREV(EWAPTR),B'10000000' 02S0278 00392000 BO @RT00278 02S0278 00393000 * GOTO LOGMSG; 02S0279 00394000 * ELSE 02S0280 00395000 * DO; 02S0280 00396000 * PREV=YES; /* SET HERE NOW. */ 00397000 OI PREV(EWAPTR),B'10000000' 02S0281 00398000 * GOTO DOITOVER; 02S0282 00399000 B DOITOVER 02S0282 00400000 * END; 02S0283 00401000 * END; 02S0284 00402000 *UNITCK: 01S0285 00403000 * ; /* ERROR WAS UNIT CHECK. */ 00404000 UNITCK DS 0H 01S0286 00405000 * DO; 02S0286 00406000 * IF((IOSCSWCA-8)->CCWOPCD /* CHECH THE CCW COMMAND @ZA25442*/ 00407000 * ^='02'X) THEN /* CODE FOR A WRITE. @ZA25442*/ 00408000 L @11,IOSCSWCA-1(,APIOPTR) 02S0287 00409000 AL @11,@CF03261 02S0287 00410000 CLI CCWOPCD(@11),X'02' 02S0287 00411000 BE @RF00287 02S0287 00412000 * EWAWTEMP=ON; /* IF NOT READ,THEN INDICATE TO 00413000 * STATISTICS UPDATE THAT IT IS A 00414000 * WRITE. @ZA25442*/ 00415000 OI EWAWTEMP(EWAPTR),B'01000000' 02S0288 00416000 * IF EWABDSNS=OFF THEN /* IF SENSE OK, */ 00417000 @RF00287 TM EWABDSNS(EWAPTR),B'00000001' 02S0289 00418000 BNZ @RF00289 02S0289 00419000 * DO; 02S0290 00420000 * EWASTUP=EWASTUP|APSN(1:2);/* OR IN SENSE FOR STATISTICS. */ 00421000 LA @11,32 02S0291 00422000 ALR @11,EWAPTR 02S0291 00423000 OC EWASTUP(2,EWAPTR),APSN(@11) 02S0291 00424000 * EWASTUP=EWASTUP&'7F00'X; /* TURN OFF NON ESSENSIAL BITS. */ 00425000 NC EWASTUP(2,EWAPTR),@CB03043 02S0292 00426000 * IF APSNRQUR=ON THEN /* IF 3838 SAYS THAT THE ERROR IS 00427000 * UNRELATED TO THE CURRENT 02S0293 00428000 * REQUEST THEN WE CAN ALWAYS 00429000 * RETRY THE CHANNEL PROGRAM. */ 00430000 TM APSNRQUR(@11),B'01000000' 02S0293 00431000 BO @RT00293 02S0293 00432000 * GO TO LOGRTRY; /* GO LOG AND RETRY. */ 00433000 * IF APSNRQRS=OFF THEN /* CAN BOX TOLERATE 02S0295 00434000 * RESTART,1=YES. */ 00435000 TM APSNRQRS(@11),B'10000000' 02S0295 00436000 BNZ @RF00295 02S0295 00437000 * IF IOSDVRID=IOSVPSID /* IF VPSS IS DRIVER, AND IT IS */ 00438000 * &APSNFMT=APSNFUSR THEN/* * A USER ERROR, THEN GET 00439000 * REGS */ 00440000 CLI IOSDVRID(APIOPTR),X'0B' 02S0296 00441000 BNE @RF00296 02S0296 00442000 CLI APSNFMT(@11),2 02S0296 00443000 BNE @RF00296 02S0296 00444000 * DO; 02S0297 00445000 * MVC(APIOSNSE(1:32),APSN);/* SAVE SENSE FOR DRIVER. */ 00446000 MVC APIOSNSE(32,APIOPTR),APSN(@11) 02S0298 00447000 * APIOVSNS=ON; /* SET VALID SENSE DATA 02S0299 00448000 * INDICATOR. */ 00449000 OI APIOVSNS(APIOPTR),B'01000000' 02S0299 00450000 * IF APIODUMP=ON& /* IF THE USER WANTS A DUMP, AND */ 00451000 * APIODEB->DEBIRBAD->APDXNDMP/* MAX NOT EXCEEDED, */ 00452000 * APCTNDMP THEN 02S0300 00453000 TM APIODUMP(APIOPTR),B'00001000' 02S0300 00454000 BNO @RF00300 02S0300 00455000 L @11,APIODEB(,APIOPTR) 02S0300 00456000 L @11,DEBIRBAD(,@11) 02S0300 00457000 LH @09,APDXNDMP(,@11) 02S0300 00458000 L @01,APIOAPUB(,APIOPTR) 02S0300 00459000 L @01,APUBAPCT(,@01) 02S0300 00460000 CH @09,APCTNDMP(,@01) 02S0300 00461000 BNL @RF00300 02S0300 00462000 * DO; /* SET ABOUT GIVING HIM ONE. */ 00463000 * 02S0301 00464000 * /*************************************************/ 00465000 * /* */ 00466000 * /* INCREMENT THE DUMP COUNT. */ 00467000 * /* */ 00468000 * /*************************************************/ 00469000 * 02S0302 00470000 * APIODEB->DEBIRBAD->APDXNDMP=APIODEB->DEBIRBAD-> 00471000 * APDXNDMP+1; 02S0302 00472000 AL @09,@CF00033 02S0302 00473000 STH @09,APDXNDMP(,@11) 02S0302 00474000 * DUMPREQ=ON; /* INDICATE A DUMP IS REQUIRED. */ 00475000 OI DUMPREQ(EWAPTR),B'00100000' 02S0303 00476000 * END; /* END OF GIVE DUMP. */ 00477000 * PREVUNIT=ON; /* INDICATE ORIGINAL ENTRY IS FOR 00478000 * A UNIT CHECK. */ 00479000 @RF00300 DS 0H 02S0306 00480000 * PREV=ON; /* INDICATE BEEN HERE. */ 00481000 OI PREVUNIT(EWAPTR),B'11000000' 02S0306 00482000 * SAVEKEY=IOSCKEY; /* SAVE THE KEY OF THE CALLER. */ 00483000 MVC SAVEKEY(1,EWAPTR),IOSCKEY(APIOPTR) 02S0307 00484000 * IOSCKEY='50'X; /* SET TO THE KEY OF THE APIO. */ 00485000 MVI IOSCKEY(APIOPTR),X'50' 02S0308 00486000 * KEYSAVED=ON; /* INIDCATE THAT THE KEY IS 02S0309 00487000 * SAVED.*/ 00488000 OI KEYSAVED(EWAPTR),B'00010000' 02S0309 00489000 * CCW1=CNTLRDRG; /* BUILD CCW CHAIN TO READ THE */ 00490000 MVC CCW1(8,EWAPTR),CNTLRDRG 02S0310 00491000 * CCW2=READREGS; /* REGS AND DISABLE THE PORT SO */ 00492000 MVC CCW2(8,EWAPTR),READREGS 02S0311 00493000 * RFY 02S0312 00494000 * R2P RSTD; /* THE USER DUMP CAN OCCUR. */ 00495000 * R2P=ADDR(REGS); 02S0313 00496000 LA R2P,REGS(,APIOPTR) 02S0313 00497000 * GEN SETS(R2P)(LRA R2P,0(,R2P)); 02S0314 00498000 LRA R2P,0(,R2P) 00499000 * CCW2ADDR=R2P; 02S0315 00500000 STCM R2P,7,CCW2ADDR(EWAPTR) 02S0315 00501000 * CCW3=NOP; /* NOP CAUSES THE CE AND DE TO 00502000 * OCCUR TOGETHER. */ 00503000 MVC CCW3(8,EWAPTR),NOP 02S0316 00504000 *EXIT1: 02S0317 00505000 * ; /* THIS EXIT IS USED TO EXECUTE 00506000 * CCWS CONSTRUTED BY THE ERP. */ 00507000 EXIT1 DS 0H 02S0318 00508000 * R2P=ADDR(CCW1); 02S0318 00509000 LA R2P,CCW1(,EWAPTR) 02S0318 00510000 * GEN REFS(R2P)(LRA R2P,0(,R2P)); 02S0319 00511000 LRA R2P,0(,R2P) 00512000 * IOSRST=R2P; /* SET RESTART ADDRESS. */ 00513000 ST R2P,IOSRST(,APIOPTR) 02S0320 00514000 * GEN; 02S0321 00515000 ESTAE 0 CANCEL THE ESTAE. 00516000 * RFY 02S0322 00517000 * (R1P, 02S0322 00518000 * R0P) RSTD; 02S0322 00519000 * R1P=DYNPTR; /* ADDRESS OF THE DYNAMIC 02S0323 00520000 * STORAGE. */ 00521000 L R1P,DYNPTR(,EWAPTR) 02S0323 00522000 * R0P=SPSIZE; /* SUBPOOL AND SIZE. */ 00523000 L R0P,SPSIZE(,EWAPTR) 02S0324 00524000 * GEN REFS(R1P,R0P); 02S0325 00525000 FREEMAIN R,LV=(0),A=(1) FREE THE STORAGE. 00526000 * RFY 02S0326 00527000 * (R1P, 02S0326 00528000 * R0P) UNRSTD; 02S0326 00529000 * RFY 02S0327 00530000 * R1P RSTD; 02S0327 00531000 * R1P=ADDR(IOSB); /* ADDRESS OF THE IOSB. */ 00532000 LR R1P,APIOPTR 02S0328 00533000 * SVC(15); /* RE ISSUE THE CCW CHAIN. */ 00534000 SVC 15 02S0329 00535000 * SVC(3); /* EXIT. */ 00536000 SVC 3 02S0330 00537000 * RFY 02S0331 00538000 * R1P UNRSTD; 02S0331 00539000 * END; 02S0332 00540000 * ELSE 02S0333 00541000 * IF PREVUNIT=ON THEN /* BEEN HERE BEFORE? IF SO THE 00542000 * REGS NOT VALID BECAUSE THE 00543000 * READ OF THE REGS FAILED. RETRY 00544000 * OF REGS READ WOULD GO HERE */ 00545000 B @RC00296 02S0333 00546000 @RF00296 TM PREVUNIT(EWAPTR),B'01000000' 02S0333 00547000 BNO @RF00333 02S0333 00548000 * DO; 02S0334 00549000 * MVC(MYSENSE,APIOSNSE);/* RESTORE THE SENSE DATA. */ 00550000 MVC MYSENSE+32(32,EWAPTR),APIOSNSE(APIOPTR) 02S0335 00551000 * MVC(MYCSW(1:8),SAVEVCSW);/* RESTORE THE CSW. */ 00552000 MVC MYCSW(8,APIOPTR),SAVEVCSW(EWAPTR) 02S0336 00553000 * GO TO PROGERR; /* GO TO THE USER PROGRAM ERROR 00554000 * EXIT. */ 00555000 B PROGERR 02S0337 00556000 * END; 02S0338 00557000 * ELSE /* IT IS NOT A RECURSIVE ERROR. */ 00558000 * DO; /* PROCESS NON-RECURSIVE ERRORS. */ 00559000 @RF00333 DS 0H 02S0340 00560000 * IF IOSDVRID=IOSVPSID/* SEE IF VPSS IS CALLER. */ 00561000 * &(PREV=OFF /* SAVE SENSE UNLESS ALREADY 00562000 * DONE. */ 00563000 * |PREVLEN=ON) THEN/* IF PRELEN ON THEN SENSE NOT 00564000 * SAVED BEFORE. @ZA25369*/ 00565000 CLI IOSDVRID(APIOPTR),X'0B' 02S0340 00566000 BNE @RF00340 02S0340 00567000 TM PREVLEN(EWAPTR),B'00000100' 02S0340 00568000 BNZ @RT00340 02S0340 00569000 TM PREV(EWAPTR),B'10000000' 02S0340 00570000 BO @RF00340 02S0340 00571000 @RT00340 DS 0H 02S0341 00572000 * DO; /* PRESENT SENSE TO USER. */ 00573000 * MVC(APIOSNSE(1:32),APSN);/* MOVE IN SENSE DATA.*/ 00574000 MVC APIOSNSE(32,APIOPTR),APSN+32(EWAPTR) 02S0342 00575000 * APIOVSNS=ON; /* INDICATE SENSE IS VALID. */ 00576000 OI APIOVSNS(APIOPTR),B'01000000' 02S0343 00577000 * END; /* END OF GIVE USER THE SENSE. */ 00578000 * IF RETRY=YES THEN /* IF RETRY OK, BOX APPROVAL IS 00579000 * NOT NEEDED. */ 00580000 @RF00340 TM RETRY(EWAPTR),B'00000010' 02S0345 00581000 BNO @RF00345 02S0345 00582000 * IF IOSDVRID=IOSVPSID/* SEE IF VPSS IS CALLER. */ 00583000 * &APIOEXCL=ON/* SEE IF USER IS EXCLUSIVE */ 00584000 * &APSNFMT=APSNFNIN THEN/* SEE IF BOX IS 02S0346 00585000 * REIPLED. */ 00586000 CLI IOSDVRID(APIOPTR),X'0B' 02S0346 00587000 BNE @RF00346 02S0346 00588000 TM APIOEXCL(APIOPTR),B'10000000' 02S0346 00589000 BNO @RF00346 02S0346 00590000 CLI APSNFMT+32(EWAPTR),4 02S0346 00591000 BE @RT00346 02S0346 00592000 * GOTO LOGMSG; /* IF ALL THAT IS TRUE THEN THE 00593000 * USER MUST BE ABORTED. */ 00594000 * ELSE /* OTHERWISE HE MAY BE RESTARTED.*/ 00595000 * IF APSNFMT=APSNFNIN/* CHECK TO SEE IF THIS IS A 00596000 * FORMAT 4 SENSE ERROR. IF SO WE 00597000 * CAN RETRY THE CHANNEL PROGRAM 00598000 * UNLESS THE 3838 BECAME 02S0348 00599000 * UNINITIALIZED DUE TO A MACHINE 00600000 * CHECK. */ 00601000 * &APSNCCPX=OFF THEN/* IF THIS IS ON THE 3838 00602000 * HAS JUST BEEN RE-IPLED SO 00603000 * RETRYING WILL PROBABLY SOLVE 00604000 * THE PROBLEM. IF OFF, A MACHINE 00605000 * CHECK OCCURRED. */ 00606000 @RF00346 LA @11,32 02S0348 00607000 ALR @11,EWAPTR 02S0348 00608000 CLI APSNFMT(@11),4 02S0348 00609000 BNE @RF00348 02S0348 00610000 TM APSNCCPX(@11),B'00001000' 02S0348 00611000 BZ @RT00348 02S0348 00612000 * GO TO LOGMSG;/* IT IS A PERMANENT ERROR. */ 00613000 * ELSE /* IT IS POTENTIALLY RETRYABLE. */ 00614000 * DO; /* SET UP THE RETRY ENVIRONMENT. */ 00615000 @RF00348 DS 0H 02S0351 00616000 * RESTART=OFF;/* WE CAN ONLY GET TO THIS CODE 00617000 * IF THE 3838 INDICATED THAT 00618000 * RESTART IS NOT POSSIBLE. 02S0351 00619000 * THEREFORE ELIMINATE THAT 02S0351 00620000 * POSSIBILITY. */ 00621000 NI RESTART(EWAPTR),B'11110111' 02S0351 00622000 * GO TO AGAIN;/* THIS EXIT WILL ATTEMPT TO 00623000 * RETRY THE CHANNEL PROGRAM 00624000 * UNLESS SOME OTHER 02S0352 00625000 * CONSIDERATION PREVENTS IT. */ 00626000 B AGAIN 02S0352 00627000 * END; /* END OF RETRY ENVIRONMENT 02S0353 00628000 * SETUP. */ 00629000 * ELSE /* IF RETRY NOT ALLOWED, THEN */ 00630000 * GO TO LOGMSG; /* IT IS A NON-RECOVERABLE ERROR, 00631000 * SO WE WANT TO LOG THE ERROR 00632000 * ETC. */ 00633000 * END; /* END OF NON RECURSIVE ERRORS. */ 00634000 * ELSE 02S0356 00635000 * 02S0356 00636000 * /*********************************************************/ 00637000 * /* */ 00638000 * /* PROCESS A RE-EXECUTABLE ERROR. */ 00639000 * /* */ 00640000 * /*********************************************************/ 00641000 * 02S0356 00642000 * DO; 03S0356 00643000 B @RC00295 03S0356 00644000 @RF00295 DS 0H 03S0357 00645000 * IF IOSDVRID=IOSVPSID /* FOR VPSS USERS SAVE SENSE IN 00646000 * APIO. */ 00647000 * &PREV=OFF THEN /* (UNLESS WE ALREADY DID IT) */ 00648000 CLI IOSDVRID(APIOPTR),X'0B' 03S0357 00649000 BNE @RF00357 03S0357 00650000 TM PREV(EWAPTR),B'10000000' 03S0357 00651000 BNZ @RF00357 03S0357 00652000 * DO; /* PUT THE SENSE DATA IN THE 00653000 * APIO. */ 00654000 * MVC(APIOSNSE(1:32),APSN);/* SAVE THE SENSE FOR THE 00655000 * DRIVER. */ 00656000 MVC APIOSNSE(32,APIOPTR),APSN+32(EWAPTR) 03S0359 00657000 * APIOVSNS=ON; /* INDICATE VALID SENSE. */ 00658000 OI APIOVSNS(APIOPTR),B'01000000' 03S0360 00659000 * END; /* END OF PUT SENSE DATA. */ 00660000 * RFY 03S0362 00661000 * (R0P, 03S0362 00662000 * R1P, 03S0362 00663000 * R9P, 03S0362 00664000 * R11P, 03S0362 00665000 * R12P, 03S0362 00666000 * R14P, 03S0362 00667000 * R15P) RSTD; /* USED BY INTERPRETER. */ 00668000 @RF00357 DS 0H 03S0363 00669000 * R1P=ADDR(IOSB); /* ADDRESS OF IOSB. */ 00670000 LR R1P,APIOPTR 03S0363 00671000 * R15P=CVTXITP; /* ADDR OF INTERPRETER ROUTINE. */ 00672000 L @03,CVTPTR 03S0364 00673000 L R15P,CVTXITP(,@03) 03S0364 00674000 * GEN REFS(R15P) SETS(R14P) FLOWS(LOGMSG,IRMSG,AGAIN) 00675000 * NOSEQFLOW; 03S0365 00676000 * THIS CODE ANALYSES THE SENSE DATA. 00677000 U1 BALR R14P,R15P CALL ERP INTERPRETER ROUTINE. 00678000 DC X'03',AL1(URT-U1-2) EQUIPMENT CHECK 00679000 DC X'02',AL1(URT-U1-4) BUS OUT CHECK 00680000 DC X'04',AL1(URT-U1-6) DATA CHECK 00681000 DC X'00',AL1(UCR-U1-8) COMMAND REJECT 00682000 DC X'01',AL1(UIR-U1-10) INTERVENTION REQUIRED 00683000 DC X'0A',AL1(UBD-U1-12) DATA DEPENDENT 00684000 DC X'2F',AL1(UXX-U1-14) ANY OTHER. 00685000 UCR B ERRMSG 00686000 UIR B IRMSG 00687000 URT B AGAIN 00688000 UBD B LOGMSG 00689000 UXX B LOGMSG 00690000 * RFY 03S0366 00691000 * (R0P, 03S0366 00692000 * R1P, 03S0366 00693000 * R9P, 03S0366 00694000 * R11P, 03S0366 00695000 * R12P, 03S0366 00696000 * R14P, 03S0366 00697000 * R15P) UNRSTD; 03S0366 00698000 * END; 03S0367 00699000 * END; 02S0368 00700000 * ELSE 02S0369 00701000 * 02S0369 00702000 * /*************************************************************/ 00703000 * /* */ 00704000 * /* SENSE DATA IS NO GOOD, SO THERE IS NO CHOICE BUT TO ASSUME*/ 00705000 * /* THAT THE ERROR IS PERMANENT. */ 00706000 * /* */ 00707000 * /*************************************************************/ 00708000 * 02S0369 00709000 * GOTO LOGMSG; 02S0369 00710000 * END; 02S0370 00711000 @RC00289 DS 0H 02S0371 00712000 *ILLEN: 01S0371 00713000 * ; /* PROCESS ILLEGAL LENGTH ERROR. */ 00714000 ILLEN DS 0H 01S0372 00715000 * DO; /* THIS SECTION OF CODE HANDLES 00716000 * THE CLEARING OF THE COMMAND 00717000 * REGISTER IN THE 3838 AFTER AN 00718000 * INCORRECT LENGTH PROBLEM. */ 00719000 * PREVLEN=YES; /* INDICATE THAT RETURN IS FROM A 00720000 * LENGTH CLEAR OPERATION. */ 00721000 * PREV=YES; /* INDICATE BEEN HERE BEFORE. */ 00722000 OI PREVLEN(EWAPTR),B'10000100' 02S0374 00723000 * CCW1=CLR3838; /* THE CLEAR STATUS CCW. */ 00724000 MVC CCW1(8,EWAPTR),CLR3838 02S0375 00725000 * CCW2=NOP; /* FORCE CE, DE TOGETHER. */ 00726000 MVC CCW2(8,EWAPTR),NOP 02S0376 00727000 * GO TO EXIT1; /* GO EXECUTE MY CCWS. */ 00728000 B EXIT1 02S0377 00729000 * END; /* END OF INCORRECT LENGTH 02S0378 00730000 * PROCESS. */ 00731000 *ALLCLEAR: /* CHECK TO SEE IF THIS IS A 00732000 * RETURN FROM GETTING THE REGS 00733000 * FOR THE USER. IF SO, THEN 00734000 * INDICATE THAT THE REGS ARE 00735000 * VALID IN THE APIO. */ 00736000 * ; 01S0379 00737000 ALLCLEAR DS 0H 01S0380 00738000 * IF PREVLEN=YES THEN /* SEE IF THIS IS A RETURN FROM 00739000 * CLEARING THE BOX. */ 00740000 TM PREVLEN(EWAPTR),B'00000100' 01S0380 00741000 BNO @RF00380 01S0380 00742000 * DO; /* PROCESS RETURN */ 00743000 * EWACHA=UCBCHAN; /* REQUIRED FOR THE MESSAGE 01S0382 00744000 * IEA000I. @ZA25442*/ 00745000 L @11,UCBPTR(,APIOPTR) 01S0382 00746000 MVC EWACHA(2,EWAPTR),UCBCHAN(@11) 01S0382 00747000 * MVC(MYCSW,SAVEVCSW); /* RESTORE THE ORIGINAL ERROR. */ 00748000 MVC MYCSW(8,APIOPTR),SAVEVCSW(EWAPTR) 01S0383 00749000 * IF(IOSCSWCA-8)->CCWOPCD /* IF A PROCESS COMMAND FAILED */ 00750000 * ='0F'X THEN /* SPECIAL ACTION IS REQUIRED. */ 00751000 L @11,IOSCSWCA-1(,APIOPTR) 01S0384 00752000 AL @11,@CF03261 01S0384 00753000 CLI CCWOPCD(@11),X'0F' 01S0384 00754000 BNE @RF00384 01S0384 00755000 * DO; /* TREAT THE INCORRECT LEN AS IF 00756000 * IT NEVER HAPPENED BECAUSE THE 00757000 * PROCESS HIT THAT SMALL WINDOW 00758000 * WHILE THE 3838 WAS CLEARING 00759000 * ITSELF. */ 00760000 * RETRY=YES; /* START AT BEGINING. */ 00761000 * RESTART=NO; /* CANNOT PICK UP IN THE MIDDLE. */ 00762000 * PREVLEN=NO; /* PRETEND INCORRECT LEN WENT 00763000 * AWAY */ 00764000 * PREV=NO; /* PRETEND FIRST ENTRY TO ERP. */ 00765000 OI RETRY(EWAPTR),B'00000010' 01S0389 00766000 NI RESTART(EWAPTR),B'01110011' 01S0389 00767000 * GO TO DOITOVER; /* GO REEXECUTE THE CHANNEL PROG.*/ 00768000 B DOITOVER 01S0390 00769000 * END; /* END OF SPECIAL ACTION. */ 00770000 * ELSE /* NOT PROCESS CMD THEN ABORT 00771000 * USER. */ 00772000 * GO TO PROGERR; /* GO COMPLAIN ABOUT USER. */ 00773000 * END; /* END OF RETURN PROCESSING. */ 00774000 * IF PREVUNIT=ON THEN /* IS THIS RETURN FROM UNIT CHECK*/ 00775000 @RF00380 TM PREVUNIT(EWAPTR),B'01000000' 01S0394 00776000 BNO @RF00394 01S0394 00777000 * DO; 01S0395 00778000 * APIOVINX=ON; /* SET REGS ARE VALID. */ 00779000 OI APIOVINX(APIOPTR),B'00100000' 01S0396 00780000 * MYSENSE=APIOSNSE; /* RESTORE ORIGINAL SENSE. */ 00781000 MVC MYSENSE+32(32,EWAPTR),APIOSNSE(APIOPTR) 01S0397 00782000 * MVC(MYCSW(1:8),SAVEVCSW); /* RESTORE ORIGINAL CSW. */ 00783000 MVC MYCSW(8,APIOPTR),SAVEVCSW(EWAPTR) 01S0398 00784000 * GO TO PROGERR; /* EXIT STAGE LEFT. */ 00785000 B PROGERR 01S0399 00786000 * END; 01S0400 00787000 * ELSE 01S0401 00788000 * GOTO OK; /* IF NO, JUST EXIT BECAUSE ERROR 00789000 * HAS CLEARED UP. */ 00790000 *OK: 01S0402 00791000 * ; /* THIS EXIT IS USED AFTER AN 00792000 * ERROR HAS BEEN CORRECTED. */ 00793000 OK DS 0H 01S0403 00794000 * APIOVSNS=OFF; /* ERROR IS CORRECTED. NON-SENSE. 00795000 * @ZA25369*/ 00796000 NI APIOVSNS(APIOPTR),B'10111111' 01S0403 00797000 * IOSTATUS=''X; /* CLEAR THE CSW STATUS. */ 00798000 XC IOSTATUS(2,APIOPTR),IOSTATUS(APIOPTR) 01S0404 00799000 * IOSEX=OFF; /* INDICATE ERROR CORRECTED. */ 00800000 * IOSERR=OFF; 01S0406 00801000 NI IOSEX(APIOPTR),B'11011011' 01S0406 00802000 * IOSQISCE=OFF; /* RESET IOSB QUIESCE FLAG. */ 00803000 NI IOSQISCE(APIOPTR),B'11011111' 01S0407 00804000 * EWACNTRS=''X; /* CLEAR CNTRS AND FLAGS. */ 00805000 XC EWACNTRS(4,EWAPTR),EWACNTRS(EWAPTR) 01S0408 00806000 *STATCHK: 01S0409 00807000 * ; /* THIS UPDATES THE STATISTICS 00808000 * TABLES IF THAT IS REQUIRED. */ 00809000 STATCHK DS 0H 01S0410 00810000 * IF EWASTUP='0000'X THEN /* IS STAT UPDATE NEEDED? */ 00811000 CLC EWASTUP(2,EWAPTR),@CB03058 01S0410 00812000 BNE @RF00410 01S0410 00813000 * DO; /* NO UPDATE IS REQUIRED. */ 00814000 */* RESET THE QUIESCE BIT IN THE UCB. */ 00815000 * 01S0412 00816000 * CALL RESETQB; 01S0412 00817000 BAL @14,RESETQB 01S0412 00818000 * RFY 01S0413 00819000 * R1P RSTD; 01S0413 00820000 * R1P=ADDR(IOSB); /* IF NO, JUST EXIT */ 00821000 LR R1P,APIOPTR 01S0414 00822000 * SVC(15); 01S0415 00823000 SVC 15 01S0415 00824000 * SVC(3); 01S0416 00825000 SVC 3 01S0416 00826000 * RFY 01S0417 00827000 * R1P UNRSTD; 01S0417 00828000 * END; 01S0418 00829000 * 01S0418 00830000 * /*****************************************************************/ 00831000 * /* */ 00832000 * /* UPDATE THE STATISTICS TABLE. */ 00833000 * /* */ 00834000 * /*****************************************************************/ 00835000 * 01S0419 00836000 *XCTLSTAT: 01S0419 00837000 * ; /* IF YES, GO TO IT. */ 00838000 @RF00410 DS 0H 01S0419 00839000 XCTLSTAT DS 0H 01S0420 00840000 * RFY 01S0420 00841000 * (R1P, 01S0420 00842000 * R13P, 01S0420 00843000 * R14P) RSTD; 01S0420 00844000 * 01S0420 00845000 */* RESET THE QUIESCE BIT IN THE UCB. */ 00846000 * 01S0421 00847000 * CALL RESETQB; 01S0421 00848000 BAL @14,RESETQB 01S0421 00849000 * RFY 01S0422 00850000 * (R1P, 01S0422 00851000 * R13P, 01S0422 00852000 * R14P) RSTD; 01S0422 00853000 * R13P=254; 01S0423 00854000 LA R13P,254 01S0423 00855000 * R14P=CVTXTLER; 01S0424 00856000 L @11,CVTPTR 01S0424 00857000 L R14P,CVTXTLER(,@11) 01S0424 00858000 * R1P=ADDR(IOSB); 01S0425 00859000 LR R1P,APIOPTR 01S0425 00860000 * GEN REFS(R14P)( BR R14P) 01S0426 00861000 * NOSEQFLOW EXIT; 01S0426 00862000 BR R14P 00863000 * RFY 01S0427 00864000 * (R1P, 01S0427 00865000 * R13P, 01S0427 00866000 * R14P) UNRSTD; 01S0427 00867000 *IRMSG: 01S0428 00868000 * ; /* THIS EXIT IS USED WHEN 01S0428 00869000 * INTERVENTION REQUIRED OCCURS. 00870000 * WITH THE 3838, NO OPERATOR 00871000 * ACTION WOULD BE BENIFICAL SO 00872000 * ONLY THE REGULAR ERROR MESSAGE 00873000 * IS ISSUED. IF EVER ANY OTHER 00874000 * ACTION SHOULD PROVE USEFUL, 00875000 * THE CODE WOULD BE INSERTED 00876000 * HERE. */ 00877000 IRMSG DS 0H 01S0429 00878000 *LOGMSG: 01S0429 00879000 * ; /* THIS EXIT IS USED IF WHEN 00880000 * LOGGING OF THE ERROR IS 01S0429 00881000 * DESIRED. */ 00882000 LOGMSG DS 0H 01S0430 00883000 * IOSLOG=ON; /* INDICATE LOGGING IS REQUIRED. */ 00884000 OI IOSLOG(APIOPTR),B'00000001' 01S0430 00885000 *NOLOG: 01S0431 00886000 * ; /* THIS EXIT IS USED IF NO 01S0431 00887000 * LOGGING IS DESIRED BUT AN 00888000 * ERROR MESSAGE IS USEFUL. */ 00889000 NOLOG DS 0H 01S0432 00890000 *ERRMSG: 01S0432 00891000 * ; /* SAME USE AS NOLOG. */ 00892000 ERRMSG DS 0H 01S0433 00893000 * IOSMSG=ON; /* ERROR MESSAGE IS REQUIRED. */ 00894000 OI IOSMSG(APIOPTR),B'00000100' 01S0433 00895000 * IOSERR=OFF; /* ERP GIVES UP. */ 00896000 NI IOSERR(APIOPTR),B'11011111' 01S0434 00897000 * IOSQISCE=OFF; /* RESET IOSB QUIESCE FLAG. */ 00898000 NI IOSQISCE(APIOPTR),B'11011111' 01S0435 00899000 * RFY 01S0436 00900000 * R1P RSTD; 01S0436 00901000 * R1P=0; /* INDICATE PERMINENT ERRORS. */ 00902000 SLR R1P,R1P 01S0437 00903000 * CALL ERRCTR; /* UPDATE THE PERMANENT ERROR 00904000 * CTRS. */ 00905000 BAL @14,ERRCTR 01S0438 00906000 * RFY 01S0439 00907000 * R1P UNRSTD; 01S0439 00908000 * 01S0439 00909000 */* RESET THE QUIESCE BIT IN THE UCB. */ 00910000 * 01S0440 00911000 * CALL RESETQB; 01S0440 00912000 BAL @14,RESETQB 01S0440 00913000 * RFY 01S0441 00914000 * (R1P, 01S0441 00915000 * R13P, 01S0441 00916000 * R14P) RSTD; 01S0441 00917000 * R1P=ADDR(IOSB); /* EXIT TO THE WTO ROUTINE. */ 00918000 LR R1P,APIOPTR 01S0442 00919000 * R13P=253; 01S0443 00920000 LA R13P,253 01S0443 00921000 * R14P=CVTXTLER; 01S0444 00922000 L @11,CVTPTR 01S0444 00923000 L R14P,CVTXTLER(,@11) 01S0444 00924000 * GEN REFS(R14P)(BR R14P) 01S0445 00925000 * NOSEQFLOW EXIT; 01S0445 00926000 BR R14P 00927000 *DOITOVER: 01S0446 00928000 * ; /* RETRY THE CHANNEL PROGRAM, IF 00929000 * * POSSIBLE. */ 00930000 DOITOVER DS 0H 01S0447 00931000 * IF RESTART=YES THEN 01S0447 00932000 TM RESTART(EWAPTR),B'00001000' 01S0447 00933000 BNO @RF00447 01S0447 00934000 * DO; 01S0448 00935000 * 01S0448 00936000 * /*************************************************************/ 00937000 * /* */ 00938000 * /* DETERMINE IF ERROR OCCURRED IN THE RESTART CCWS. IF SO */ 00939000 * /* THEN JUST START THE THING OVER AGAIN. */ 00940000 * /* */ 00941000 * /*************************************************************/ 00942000 * 01S0449 00943000 * IF IOSCSWCAADDR(CCW3) THEN/* THE CSW ADDR IS 8 LRGER THAN 00949000 * THE REAL CCW ADDRESS. */ 00950000 L @15,IOSCSWCA-1(,APIOPTR) 01S0449 00951000 LA @15,0(,@15) 01S0449 00952000 LA @11,CCW2(,EWAPTR) 01S0449 00953000 CR @15,@11 01S0449 00954000 BL @RT00449 01S0449 00955000 LA @11,CCW3(,EWAPTR) 01S0449 00956000 CR @15,@11 01S0449 00957000 BNH @RF00449 01S0449 00958000 @RT00449 DS 0H 01S0450 00959000 * DO; /* BUILD THE RESTART CCWS. */ 00960000 * CCW1=CCWRST; /* IF RESTART POSSIBLE, SET UP */ 00961000 MVC CCW1(8,EWAPTR),CCWRST 01S0451 00962000 * CCW2=TIC; /* CONTROL AND TIC CCWS. */ 00963000 MVC CCW2(8,EWAPTR),TIC 01S0452 00964000 * RFY 01S0453 00965000 * R2P RSTD; 01S0453 00966000 * R2P=IOSCSWCA-8; 01S0454 00967000 L R2P,IOSCSWCA-1(,APIOPTR) 01S0454 00968000 LA R2P,0(,R2P) 01S0454 00969000 SL R2P,@CF00059 01S0454 00970000 * GEN SETS(R2P)(LRA R2P,0(,R2P)); 01S0455 00971000 LRA R2P,0(,R2P) 00972000 * CCW2ADDR=R2P; 01S0456 00973000 STCM R2P,7,CCW2ADDR(EWAPTR) 01S0456 00974000 * END; /* END OF RESTART BUILD. */ 00975000 * R2P=ADDR(CCW1); 01S0458 00976000 @RF00449 LA R2P,CCW1(,EWAPTR) 01S0458 00977000 * END; 01S0459 00978000 * ELSE 01S0460 00979000 * IF RETRY=YES THEN /* IF RETRY POSSIBLE, START OVER.*/ 00980000 B @RC00447 01S0460 00981000 @RF00447 TM RETRY(EWAPTR),B'00000010' 01S0460 00982000 BNO @RF00460 01S0460 00983000 * R2P=IOSVST; 01S0461 00984000 L R2P,IOSVST(,APIOPTR) 01S0461 00985000 * ELSE 01S0462 00986000 * GOTO LOGMSG; 01S0462 00987000 * GEN SETS(R2P)(LRA R2P,0(,R2P)); 01S0463 00988000 @RC00447 DS 0H 01S0463 00989000 LRA R2P,0(,R2P) 00990000 * IOSRST=R2P; 01S0464 00991000 ST R2P,IOSRST(,APIOPTR) 01S0464 00992000 * RFY 01S0465 00993000 * R2P UNRSTD; 01S0465 00994000 * RFY 01S0466 00995000 * R1P RSTD; 01S0466 00996000 * R1P=1; /* INDICATE TEMPORARY ERRORS. */ 00997000 LA R1P,1 01S0467 00998000 * CALL ERRCTR; /* UPDATE TEMPORARY ERROR 01S0468 00999000 * COUNTERS. */ 01000000 BAL @14,ERRCTR 01S0468 01001000 * GEN; 01S0469 01002000 ESTAE 0 CANCEL THE ESTAE. 01003000 * RFY 01S0470 01004000 * R0P RSTD; 01S0470 01005000 * R1P=DYNPTR; /* ADDRESS OF THE DYNAMIC 01S0471 01006000 * STORAGE. */ 01007000 L R1P,DYNPTR(,EWAPTR) 01S0471 01008000 * R0P=SPSIZE; /* SUBPOOL AND SIZE. */ 01009000 L R0P,SPSIZE(,EWAPTR) 01S0472 01010000 * GEN REFS(R1P,R0P); 01S0473 01011000 FREEMAIN R,LV=(0),A=(1) FREE THE STORAGE. 01012000 * RFY 01S0474 01013000 * R0P UNRSTD; 01S0474 01014000 * R1P=ADDR(IOSB); /* EXIT TO IOS TO START THE CP. */ 01015000 LR R1P,APIOPTR 01S0475 01016000 * SVC(15); 01S0476 01017000 SVC 15 01S0476 01018000 * SVC(3); 01S0477 01019000 SVC 3 01S0477 01020000 * RFY 01S0478 01021000 * R1P UNRSTD; 01S0478 01022000 * 01S0479 01023000 */* THIS EXIT MAY BE USED ONLY AFTER A UNIT CHECK. */ 01024000 * 01S0479 01025000 *AGAIN: /* THIS EXIT IS USED TO DETERMINE 01026000 * WHERE TO BEGIN REEXECUTION OF 01027000 * THE CHANNEL PROGRAM, IF INDEED 01028000 * REEXECUTION IS POSSIBLE. */ 01029000 * IF APSNRQRS=OFF THEN /* IF THE 3838 THINKS THAT 01S0479 01030000 * RESTART IS NOT POSSIBLE, DON'T 01031000 * ARGUE. */ 01032000 AGAIN TM APSNRQRS+32(EWAPTR),B'10000000' 01S0479 01033000 BNZ @RF00479 01S0479 01034000 * RESTART=NO; 01S0480 01035000 NI RESTART(EWAPTR),B'11110111' 01S0480 01036000 * IF RETRY=NO& /* IF NEITHER RETRY OR RESTART IS 01037000 * POSSIBLE, THEN SURRENDER. */ 01038000 * RESTART=NO THEN 01S0481 01039000 @RF00479 TM RETRY(EWAPTR),B'00001010' 01S0481 01040000 BZ @RT00481 01S0481 01041000 * GOTO LOGMSG; 01S0482 01042000 * EWACNTR2=EWACNTR2+1; 01S0483 01043000 @RF00481 LA @15,1 01S0483 01044000 SLR @11,@11 01S0483 01045000 IC @11,EWACNTR2(,EWAPTR) 01S0483 01046000 ALR @15,@11 01S0483 01047000 STC @15,EWACNTR2(,EWAPTR) 01S0483 01048000 * IF EWACNTR2<10 THEN /* IF WE HAVE NOT ALREADY RETRIED 01049000 * OR RESTARTED A REASONABLE 01050000 * NUMBER OF TIMES, THEN GO TRY 01051000 * AGAIN. */ 01052000 CLI EWACNTR2(EWAPTR),10 01S0484 01053000 BL @RT00484 01S0484 01054000 * GOTO DOITOVER; 01S0485 01055000 * ELSE /* IF WE HAVE, GIVE UP. */ 01056000 * GOTO LOGMSG; 01S0486 01057000 B LOGMSG 01S0486 01058000 *LOGRTRY: /* THIS EXIT IS USED TO LOG THE 01059000 * ERROR AND WRITE A MESSAGE TO 01060000 * THE OPERATOR, BUT THEN RETRY 01061000 * THE CHANNEL PROGRAM. IT IS 01062000 * USED AFTER AN INTERCEPT OR FOR 01063000 * AN UNRELATED ERROR, WHERE WE 01064000 * WISH TO RECORD THE ERROR BUT 01065000 * HAVE THE CURRENT THEN EXECUTE. 01066000 * THE PERMANENT ERROR MESSAGE IS 01067000 * WRITTEN. */ 01068000 * IOSLOG=ON; /* INDICATE THAT LOGGING IS 01S0487 01069000 * REQUIRED. */ 01070000 LOGRTRY DS 0H 01S0488 01071000 * IOSMSG=ON; /* INDICATE THAT THE MSG IS 01S0488 01072000 * NEEDED. */ 01073000 OI IOSLOG(APIOPTR),B'00000101' 01S0488 01074000 * IOSEX=OFF; /* IT IS NOT A PERMANENT ERROR 01075000 * BECAUSE TO THIS USER AT LEAST 01076000 * IT IS NOT EVEN AN ERROR 01S0489 01077000 * BECAUSE IT IS UNRELATED TO ANY 01078000 * THING HE IS TRYING TO DO. */ 01079000 NI IOSEX(APIOPTR),B'11111011' 01S0489 01080000 * RFY 01S0490 01081000 * R2P RSTD; /* USED TO COMPUTE THE REAL 01S0490 01082000 * ADDRESS. */ 01083000 * R2P=IOSVST; /* ADDRESS OF THE CHANNEL 01S0491 01084000 * PROGRAM. */ 01085000 L R2P,IOSVST(,APIOPTR) 01S0491 01086000 * GEN SETS(R2P)(LRA R2P,0(,R2P));/* COMPUTE REAL ADDRESS. */ 01087000 LRA R2P,0(,R2P) 01088000 * IOSRST=R2P; /* STORE RESTART THE RESTART 01089000 * ADDRESS. */ 01090000 ST R2P,IOSRST(,APIOPTR) 01S0493 01091000 * RFY 01S0494 01092000 * R2P UNRSTD; /* DON'T NEED IT ANY MORE. */ 01093000 * RFY 01S0495 01094000 * R1P RSTD; 01S0495 01095000 * R1P=0; /* INDICATE PERMANENT ERRORS. */ 01096000 SLR R1P,R1P 01S0496 01097000 * CALL ERRCTR; /* UPDATE THE PERMANENT ERROR 01098000 * COUNTERS , TREATING PM ERRORS 01099000 * AS PERMANENT. */ 01100000 BAL @14,ERRCTR 01S0497 01101000 * GEN; 01S0498 01102000 ESTAE 0 CANCEL THE ESTAE. 01103000 * RFY 01S0499 01104000 * (R1P, 01S0499 01105000 * R0P) RSTD; 01S0499 01106000 * R1P=DYNPTR; /* ADDRESS OF THE DYNAMIC 01S0500 01107000 * STORAGE. */ 01108000 L R1P,DYNPTR(,EWAPTR) 01S0500 01109000 * R0P=SPSIZE; /* SUBPOOL AND SIZE. */ 01110000 L R0P,SPSIZE(,EWAPTR) 01S0501 01111000 * GEN REFS(R1P,R0P); 01S0502 01112000 FREEMAIN R,LV=(0),A=(1) FREE THE STORAGE. 01113000 * RFY 01S0503 01114000 * (R1P, 01S0503 01115000 * R0P) UNRSTD; 01S0503 01116000 * R1P=ADDR(IOSB); /* IOS REQUIRES THE IOSB ADDR IN 01117000 * R1. */ 01118000 LR R1P,APIOPTR 01S0504 01119000 * R13P=253; /* CODE FOR THE WTO ROUTINE. */ 01120000 LA R13P,253 01S0505 01121000 * R14P=CVTXTLER; /* ADDR OF THE RESIDENT XCTL 01122000 * ROUTINE. */ 01123000 L @11,CVTPTR 01S0506 01124000 L R14P,CVTXTLER(,@11) 01S0506 01125000 * GEN REFS(R14P)(BR R14P) 01S0507 01126000 * NOSEQFLOW EXIT; /* GO TO IGE0025C. */ 01127000 BR R14P 01128000 * RFY 01S0508 01129000 * R1P UNRSTD; 01S0508 01130000 *PROGERR: 01S0509 01131000 * ; /* THIS EXIT IS USED FOR A USER 01132000 * PROGRAMMING ERROR. */ 01133000 PROGERR DS 0H 01S0510 01134000 * IOSMSG=ON; /* ERROR MESSAGE IS REQUIRED. */ 01135000 OI IOSMSG(APIOPTR),B'00000100' 01S0510 01136000 * IOSERR=OFF; /* ERP GIVES UP. */ 01137000 NI IOSERR(APIOPTR),B'11011111' 01S0511 01138000 * IOSQISCE=OFF; /* RESET IOSB QUIESCE FLAG. */ 01139000 NI IOSQISCE(APIOPTR),B'11011111' 01S0512 01140000 * IF DUMPREQ=OFF THEN /* IF A DUMP IS NOT SCHEDULED 01141000 * THEN THE QUIESCE BIT MUST BE 01142000 * RESET SO OTHER I/O MAY BE 01143000 * EXECUTED. */ 01144000 TM DUMPREQ(EWAPTR),B'00100000' 01S0513 01145000 BNZ @RF00513 01S0513 01146000 * DO; 01S0514 01147000 * 01S0514 01148000 * /*************************************************************/ 01149000 * /* */ 01150000 * /* RESET THE QUIESCE BIT IN THE UCB. */ 01151000 * /* */ 01152000 * /*************************************************************/ 01153000 * 01S0515 01154000 * CALL RESETQB; 01S0515 01155000 BAL @14,RESETQB 01S0515 01156000 * END; 01S0516 01157000 * ELSE /* NOW WE MUST TELL THE VPSS 01158000 * MONITOR TO DO A PORT DUMP FOR 01159000 * THE USER. */ 01160000 * DO; 01S0517 01161000 B @RC00513 01S0517 01162000 @RF00513 DS 0H 01S0518 01163000 * APUBPDMP=ON; /* INDICATE USER DUMP REQUIRED. */ 01164000 L @09,APIOAPUB(,APIOPTR) 01S0518 01165000 L @15,APUBPDMP(,@09) 01S0518 01166000 @GL00017 LR @11,@15 01S0518 01167000 O @11,@CF03270 01S0518 01168000 CS @15,@11,APUBPDMP(@09) 01S0518 01169000 BNE @GL00017 01S0518 01170000 * APIODMPT=ON; /* INDICATE DUMP TAKEN. */ 01171000 OI APIODMPT(APIOPTR),B'00000100' 01S0519 01172000 * APUBJBNM= /* GIVE DUMP THE JOBNAME. */ 01173000 * APIODEB->DEBIRBAD->APDXAPDS->APDSJBNM; 01S0520 01174000 L @15,APIOAPUB(,APIOPTR) 01S0520 01175000 L @11,APIODEB(,APIOPTR) 01S0520 01176000 L @11,DEBIRBAD(,@11) 01S0520 01177000 L @11,APDXAPDS(,@11) 01S0520 01178000 MVC APUBJBNM(8,@15),APDSJBNM(@11) 01S0520 01179000 * APCTPTR=APUBAPCT; /* GET POINTER TO THE APCT. */ 01180000 L APCTPTR,APUBAPCT(,@15) 01S0521 01181000 * RFY 01S0522 01182000 * R13P RSTD; /* NEED THIS REG. */ 01183000 * R13P=ADDR(SAVE16); /* ADDRESS OF A SAVE AREA. */ 01184000 LA R13P,SAVE16 01S0523 01185000 * DO; /* IGTYPOST 01S0524 01186000 * ECB(APCTEIPL)ASCBLOC(APCTASCB)*/ 01187000 * RFY 01S0525 01188000 * (GPR00P, 01S0525 01189000 * GPR01P, 01S0525 01190000 * GPR14F, 01S0525 01191000 * GPR15F) RSTD; /* REGISTERS USED */ 01192000 * GPR15F=APCTEIPL; /* CURRENT ECB CONTENTS */ 01193000 L GPR15F,APCTEIPL(,APCTPTR) 01S0526 01194000 *LTR0013X: 01S0527 01195000 * IF GPR15F<0 THEN /* IF ECB ALREADY */ 01196000 LTR0013X LTR GPR15F,GPR15F 01S0527 01197000 BNM @RF00527 01S0527 01198000 * DO; /* WAITED UPON, MUST ISSUE POST */ 01199000 * GPR01P=ADDR(APCTEIPL);/* ADDRESS OF ECB TO POST */ 01200000 LA GPR01P,APCTEIPL(,APCTPTR) 01S0529 01201000 * GPR00P=APCTASCB; /* ADDR OF ASCB FOR MEMORY TO BE 01202000 * POSTED */ 01203000 L GPR00P,APCTASCB(,APCTPTR) 01S0530 01204000 * CALL APCVZUBB; /* ISSUE CROSS-MEMORY POST */ 01205000 L @15,APCTZUBB(,APCTPTR) 01S0531 01206000 BALR @14,@15 01S0531 01207000 * END; /* ECB POSTED */ 01208000 * ELSE /* ECB NOT YET POSTED */ 01209000 * DO; /* SO TRY 'COMPARE-AND-SWAP' POST*/ 01210000 B @RC00527 01S0533 01211000 @RF00527 DS 0H 01S0534 01212000 * GPR14F='40000000'X; /* POST CODE */ 01213000 L GPR14F,@CF03082 01S0534 01214000 * CS(GPR15F,GPR14F,APCTEIPL);/* POST THE ECB */ 01215000 CS GPR15F,@14,APCTEIPL(APCTPTR) 01S0535 01216000 * BC(7,LTR0013X); /* RETRY IF 'CS' FAILED */ 01217000 BC 7,LTR0013X 01S0536 01218000 * END; /* ECB POSTED VIA 'CS' */ 01219000 * RFY 01S0538 01220000 * (GPR00P, 01S0538 01221000 * GPR01P, 01S0538 01222000 * GPR14F, 01S0538 01223000 * GPR15F) UNRSTD; /* DONE WITH REGS */ 01224000 @RC00527 DS 0H 01S0539 01225000 * END; /* POST LOGIC COMPLETE */ 01226000 * RFY 01S0540 01227000 * R13P UNRSTD; /* DROP THIS REG. */ 01228000 * GEN; 01S0541 01229000 ESTAE 0 CANCEL THE ESTAE. 01230000 * RFY 01S0542 01231000 * (R1P, 01S0542 01232000 * R0P) RSTD; 01S0542 01233000 * R1P=DYNPTR; /* ADDRESS OF THE DYNAMIC 01S0543 01234000 * STORAGE. */ 01235000 L R1P,DYNPTR(,EWAPTR) 01S0543 01236000 * R0P=SPSIZE; /* SUBPOOL AND SIZE. */ 01237000 L R0P,SPSIZE(,EWAPTR) 01S0544 01238000 * GEN REFS(R1P,R0P); 01S0545 01239000 FREEMAIN R,LV=(0),A=(1) FREE THE STORAGE. 01240000 * RFY 01S0546 01241000 * (R1P, 01S0546 01242000 * R0P) UNRSTD; 01S0546 01243000 * END; 01S0547 01244000 * RFY 01S0548 01245000 * (R1P, 01S0548 01246000 * R13P, 01S0548 01247000 * R14P) RSTD; 01S0548 01248000 @RC00513 DS 0H 01S0549 01249000 * R1P=ADDR(IOSB); /* EXIT TO THE WTO ROUTINE. */ 01250000 LR R1P,APIOPTR 01S0549 01251000 * R13P=253; 01S0550 01252000 LA R13P,253 01S0550 01253000 * R14P=CVTXTLER; 01S0551 01254000 L @11,CVTPTR 01S0551 01255000 L R14P,CVTXTLER(,@11) 01S0551 01256000 * GEN REFS(R14P)(BR R14P) 01S0552 01257000 * NOSEQFLOW EXIT; 01S0552 01258000 BR R14P 01259000 * RFY 01S0553 01260000 * (R1P, 01S0553 01261000 * R13P, 01S0553 01262000 * R14P) UNRSTD; 01S0553 01263000 * 01S0554 01264000 * /*****************************************************************/ 01265000 * /* */ 01266000 * /* THIS PROCEDURE IS USED TO UPDATE ERROR COUNTERS AND TAKE */ 01267000 * /* APPROPRIATE ACTION. IF A THRESHOLD IS REACHED: FOR TEMPORARY */ 01268000 * /* ERRORS, THE OPERATOR IS NOTIFIED BY MESSAGE IGT300I. FOR */ 01269000 * /* PERMANENT ERRORS, THE MESSAGE IS WRITTEN AND THE 3838 IS */ 01270000 * /* DUMPED FOLLOWED BY A RE-IPL, OR THE PORT IS DISABLED DEPENDING*/ 01271000 * /* ON WHETHER THE ERROR IS SUB-CHANNEL RELATED OR BOX RELATED. */ 01272000 * /* BULK STORAGE PARITY ERRORS AND PHYSICAL I/O ERRORS ARE */ 01273000 * /* CONSIDERED SUBCHANNEL ERRORS. USER ERRORS (FORMAT 2 SENSE DATA*/ 01274000 * /* ) ARE NOT COUNTED. ALL OTHER ERRORS ARE CONSIDERED BOX, OR */ 01275000 * /* CONTROLLER, ERRORS. */ 01276000 * /* */ 01277000 * /*****************************************************************/ 01278000 * 01S0554 01279000 *ERRCTR: 01S0554 01280000 * PROC OPTIONS(DONTSAVE,NOSAVEAREA); 01S0554 01281000 ERRCTR DS 0H 01S0555 01282000 * DCL 01S0555 01283000 * 1 EBCERR STATIC LOCAL, /* EBCDIC ERROR FIELDS */ 01284000 * 2 TOTAL CHAR(2) INIT('TE'), /* TOTAL ERRORS. */ 01285000 * 2 BULK CHAR(2) INIT('BS'), /* BULK STORE. */ 01286000 * 2 TIME CHAR(2) INIT('TO'), /* TIME OUT. */ 01287000 * 2 IO CHAR(2) INIT('IO'), /* I/O. */ 01288000 * 2 CONT CHAR(2) INIT('CP'); /* CONTROLLER. */ 01289000 * DCL 01S0556 01290000 * 1 ERRORS BASED(CTRPTR), /* ERROR COUNTERS. */ 01291000 * 2 TOTC FIXED(15), /* TOTAL NUMBER OF ERRORS. */ 01292000 * 2 IOC FIXED(15), /* I/O COUNT OF ERRORS */ 01293000 * 2 CNTLRC FIXED(15), /* COUNT OF CONTROLLER ERRORS. */ 01294000 * 2 PTOC FIXED(15), /* COUNT OF PERMANENT TIMEOUTS. */ 01295000 * 2 BSC FIXED(15); /* COUNT OF BULK STORAGE ERRORS. */ 01296000 * DCL 01S0557 01297000 * 1 THRSHLDS BASED(THRSPTR), /* ERROR THRESHOLDS. */ 01298000 * 2 TOTT FIXED(15), /* THRESHOLD FOR TOTAL ERRORS. */ 01299000 * 2 IOT FIXED(15), /* I/O ERRORS THRESHOLD. */ 01300000 * 2 CNTLRT FIXED(15), /* CONTROLLER ERRORS THRSHOLD. */ 01301000 * 2 PTOT FIXED(15), /* TIME OUT THRESHOLD. */ 01302000 * 2 BST FIXED(15); /* BULK STORAGE THRESHOLD. */ 01303000 * DCL 01S0558 01304000 * (CTRPTR, /* POINTER PROPER ERROR COUNTS. */ 01305000 * THRSPTR) PTR(31); /* POINTER TO PROPER THRESHOLD. */ 01306000 * DCL 01S0559 01307000 * GOBACK PTR(31); /* SAVE RETURN REG. */ 01308000 * RFY 01S0560 01309000 * R1P RSTD; /* CONTAINS PERM/TEMP CODE. */ 01310000 * 01S0560 01311000 * /*****************************************************************/ 01312000 * /* */ 01313000 * /* R1P = 0 FOR PERMANENT ERRORS. R1P = 1 FOR TEMPORARY ERRORS. */ 01314000 * /* */ 01315000 * /*****************************************************************/ 01316000 * 01S0561 01317000 * GOBACK=R14P; /* SAVE RETURN. */ 01318000 LR GOBACK,R14P 01S0561 01319000 * IF IOSDVRID=IOSVPSID THEN /* SEE IF VPSS IS THE DRIVER. */ 01320000 CLI IOSDVRID(APIOPTR),X'0B' 01S0562 01321000 BNE @RF00562 01S0562 01322000 * DO; 01S0563 01323000 * APCTPTR=APUBAPCT; /* POINTER TO THE APCT. */ 01324000 L @09,APIOAPUB(,APIOPTR) 01S0564 01325000 L APCTPTR,APUBAPCT(,@09) 01S0564 01326000 * RFY 01S0565 01327000 * R13P RSTD; 01S0565 01328000 * R13P=ADDR(SAVE16); /* SAVE AREA FOR CROSS MEMORY 01329000 * POST. */ 01330000 LA R13P,SAVE16 01S0566 01331000 * DO; /* DETERMINE TYPE OF ERROR AND 01332000 * UPDATE COUNTERS IF REQUIRED. 01333000 * SET RETURN CODE IN CTRPTR: 0 = 01334000 * NO THRESHOLD REACHED. ^0 = 01335000 * ADDRESS OF THRESHOLD CROSSED ( 01336000 * = # OF ERRORS), TAKE ACTION. */ 01337000 * IF R1P=0 THEN /* 0 = PERMANENT ERROR, 1 = TEMP.*/ 01338000 LTR R1P,R1P 02S0568 01339000 BNZ @RF00568 02S0568 01340000 * DO; 02S0569 01341000 * CTRPTR=ADDR(APUBERR0);/* ADDRESS OF PERM ERROR 02S0570 01342000 * COUNTERS. */ 01343000 L @15,APIOAPUB(,APIOPTR) 02S0570 01344000 LA CTRPTR,APUBERR0(,@15) 02S0570 01345000 * THRSPTR=ADDR(APCTERT0);/* ADDRESS OF PERM THRESHOLDS. */ 01346000 LA THRSPTR,APCTERT0(,APCTPTR) 02S0571 01347000 * END; 02S0572 01348000 * ELSE /* R1P = 1. */ 01349000 * DO; 02S0573 01350000 B @RC00568 02S0573 01351000 @RF00568 DS 0H 02S0574 01352000 * CTRPTR=ADDR(APUBERRA);/* ADDRESS OF TEMP ERROR 02S0574 01353000 * COUNTERS. */ 01354000 L CTRPTR,APIOAPUB(,APIOPTR) 02S0574 01355000 LA CTRPTR,APUBERRA(,CTRPTR) 02S0574 01356000 * THRSPTR=ADDR(APCTERTA);/* ADDRESS OF TEMP THRESHOLDS. */ 01357000 LA THRSPTR,APCTERTA(,APCTPTR) 02S0575 01358000 * END; 02S0576 01359000 * TOTC=TOTC+1; /* INCREMENT TOTAL ERRORS COUNT. */ 01360000 @RC00568 LA @03,1 02S0577 01361000 AH @03,TOTC(,CTRPTR) 02S0577 01362000 STH @03,TOTC(,CTRPTR) 02S0577 01363000 * IF TOTC>=TOTT THEN /* SEE IF THRESHOLD REACHED. */ 01364000 CH @03,TOTT(,THRSPTR) 02S0578 01365000 BL @RF00578 02S0578 01366000 * DO; /* PROCESS TOTAL ERRORS 02S0579 01367000 * VIOLATION. */ 01368000 * TOTC=0; /* ZERO THE COUNTER. */ 01369000 SLR @03,@03 02S0580 01370000 STH @03,TOTC(,CTRPTR) 02S0580 01371000 * CTRPTR=ADDR(TOTT); /* NUMBER OF ERRORS ENCOUNTERED. */ 01372000 LR CTRPTR,THRSPTR 02S0581 01373000 * THRSPTR=ADDR(TOTAL); /* ADDRESS OF ERROR TYPE. */ 01374000 LA THRSPTR,TOTAL 02S0582 01375000 * END; /* END OF TOTAL ERRORS. */ 01376000 * ELSE /* CHECK SPECIFIC THRESHOLDS. */ 01377000 * DO; /* PROCESS SPECIFIC ERROR TYPES. */ 01378000 B @RC00578 02S0584 01379000 @RF00578 DS 0H 02S0585 01380000 * IF IOSCOD=IOSMIHC THEN/* CHECK FOR A MISSING INTERRUPT, 01381000 * WHICH IS EQUIVALENT TO A 02S0585 01382000 * TIMEOUT */ 01383000 CLI IOSCOD(APIOPTR),X'74' 02S0585 01384000 BNE @RF00585 02S0585 01385000 * DO; /* UPDATE THE TIMEOUT COUNTERS. */ 01386000 * PTOC=PTOC+1; /* INCREMENT THE COUNTER. */ 01387000 LA @03,1 03S0587 01388000 AH @03,PTOC(,CTRPTR) 03S0587 01389000 STH @03,PTOC(,CTRPTR) 03S0587 01390000 * IF PTOCI256C(1:2)/* SEE IF ERROR IS BULK STORE */ 01653000 * =BULK|THRSPTR->I256C(1:2)/* OR AN IO ERROR */ 01654000 * =IO THEN 01S0660 01655000 CLC I256C(2,THRSPTR),BULK 01S0660 01656000 BE @RT00660 01S0660 01657000 CLC I256C(2,THRSPTR),IO 01S0660 01658000 BNE @RF00660 01S0660 01659000 @RT00660 DS 0H 01S0661 01660000 * DO; /* EITHER OF THESE IS PORT 01S0661 01661000 * RELATED. */ 01662000 * IF APUBBERR=OFF THEN/* IF DISABLE NOT PENDING THEN */ 01663000 L @03,APIOAPUB(,APIOPTR) 01S0662 01664000 TM APUBBERR(@03),B'00010000' 01S0662 01665000 BNZ @RF00662 01S0662 01666000 * DO; /* FORCE ONE. */ 01667000 * APUBIERR=ON; /* PORT IS NOT TO BE USED FOR IO 01668000 * IF THERE IS AN ALTERNATE. */ 01669000 L @00,APUBIERR-1(,@03) 01S0664 01670000 @GL00022 LR @15,@00 01S0664 01671000 O @15,@CF03273 01S0664 01672000 CS @00,@15,APUBIERR-1(@03) 01S0664 01673000 BNE @GL00022 01S0664 01674000 * APUBBERR=ON; /* DISABLE IS DUE TO EXCESSIVE 01675000 * ERRS */ 01676000 * APUBDSBP=ON; /* SO MONITOR WILL CAUSE DISABLE.*/ 01677000 L @15,APIOAPUB(,APIOPTR) 01S0666 01678000 L @03,APUBBERR-1(,@15) 01S0666 01679000 @GL00023 LR @00,@03 01S0666 01680000 O @00,@CF03276 01S0666 01681000 CS @03,@00,APUBBERR-1(@15) 01S0666 01682000 BNE @GL00023 01S0666 01683000 * DO; /* IGTYPOST 01S0667 01684000 * ECB(APCTEULD)ASCBLOC(APCTASCB)*/ 01685000 * RFY 01S0668 01686000 * (GPR00P, 01S0668 01687000 * GPR01P, 01S0668 01688000 * GPR14F, 01S0668 01689000 * GPR15F) RSTD;/* REGISTERS USED */ 01690000 * GPR15F=APCTEULD;/* CURRENT ECB CONTENTS */ 01691000 L GPR15F,APCTEULD(,APCTPTR) 01S0669 01692000 *LTR0015X: 01S0670 01693000 * IF GPR15F<0 THEN/* IF ECB ALREADY */ 01694000 LTR0015X LTR GPR15F,GPR15F 01S0670 01695000 BNM @RF00670 01S0670 01696000 * DO; /* WAITED UPON, MUST ISSUE POST */ 01697000 * GPR01P=ADDR(APCTEULD);/* ADDRESS OF ECB 01698000 * TO POST */ 01699000 LA GPR01P,APCTEULD(,APCTPTR) 01S0672 01700000 * GPR00P=APCTASCB;/* ADDR OF ASCB FOR 01S0673 01701000 * MEMORY TO BE POSTED */ 01702000 L GPR00P,APCTASCB(,APCTPTR) 01S0673 01703000 * CALL APCVZUBB;/* ISSUE CROSS-MEMORY POST */ 01704000 L @15,APCTZUBB(,APCTPTR) 01S0674 01705000 BALR @14,@15 01S0674 01706000 * END; /* ECB POSTED */ 01707000 * ELSE /* ECB NOT YET POSTED */ 01708000 * DO; /* SO TRY 'COMPARE-AND-SWAP' POST*/ 01709000 B @RC00670 01S0676 01710000 @RF00670 DS 0H 01S0677 01711000 * GPR14F='40000000'X;/* POST CODE */ 01712000 L GPR14F,@CF03082 01S0677 01713000 * CS(GPR15F,GPR14F,APCTEULD);/* POST THE 01714000 * ECB */ 01715000 CS GPR15F,@14,APCTEULD(APCTPTR) 01S0678 01716000 * BC(7,LTR0015X);/* RETRY IF 'CS' FAILED */ 01717000 BC 7,LTR0015X 01S0679 01718000 * END; /* ECB POSTED VIA 'CS' */ 01719000 * RFY 01S0681 01720000 * (GPR00P, 01S0681 01721000 * GPR01P, 01S0681 01722000 * GPR14F, 01S0681 01723000 * GPR15F) UNRSTD;/* DONE WITH REGS */ 01724000 @RC00670 DS 0H 01S0682 01725000 * END; /* POST LOGIC COMPLETE */ 01726000 * END; /* END OF DISABLE PENDING. */ 01727000 * END; 01S0684 01728000 * ELSE 01S0685 01729000 * DO; /* NEED A FORCE DUMP AND RE-IPL. */ 01730000 B @RC00660 01S0685 01731000 @RF00660 DS 0H 01S0686 01732000 * IF APUBIIPL=OFF THEN/* UNLESS REIPL IS PENDING, */ 01733000 L @03,APIOAPUB(,APIOPTR) 01S0686 01734000 TM APUBIIPL(@03),B'01000000' 01S0686 01735000 BNZ @RF00686 01S0686 01736000 * DO; /* FORCE ONE. */ 01737000 * IOSQISCE=OFF; /* RESETTING THIS BIT WILL FORCE 01738000 * THE REQUESTOR TO BE REQUEUED 01739000 * UNTIL THE REIPL TAKES PLACE. */ 01740000 NI IOSQISCE(APIOPTR),B'11011111' 01S0688 01741000 * APUBFDMP=ON; /* INDICATE FORCE DUMP. */ 01742000 L @00,APUBFDMP(,@03) 01S0689 01743000 @GL00024 LR @15,@00 01S0689 01744000 O @15,@CF03279 01S0689 01745000 CS @00,@15,APUBFDMP(@03) 01S0689 01746000 BNE @GL00024 01S0689 01747000 * APUBIIPL=ON; /* WARN I/O DRIVER OF PENDING 01748000 * IPL. */ 01749000 L @15,APIOAPUB(,APIOPTR) 01S0690 01750000 L @03,APUBIIPL-1(,@15) 01S0690 01751000 @GL00025 LR @00,@03 01S0690 01752000 O @00,@CF03282 01S0690 01753000 CS @03,@00,APUBIIPL-1(@15) 01S0690 01754000 BNE @GL00025 01S0690 01755000 * DO; /* IGTYPOST 01S0691 01756000 * ECB(APCTEIPL)ASCBLOC(APCTASCB)*/ 01757000 * RFY 01S0692 01758000 * (GPR00P, 01S0692 01759000 * GPR01P, 01S0692 01760000 * GPR14F, 01S0692 01761000 * GPR15F) RSTD;/* REGISTERS USED */ 01762000 * GPR15F=APCTEIPL;/* CURRENT ECB CONTENTS */ 01763000 L GPR15F,APCTEIPL(,APCTPTR) 01S0693 01764000 *LTR0017X: 01S0694 01765000 * IF GPR15F<0 THEN/* IF ECB ALREADY */ 01766000 LTR0017X LTR GPR15F,GPR15F 01S0694 01767000 BNM @RF00694 01S0694 01768000 * DO; /* WAITED UPON, MUST ISSUE POST */ 01769000 * GPR01P=ADDR(APCTEIPL);/* ADDRESS OF ECB 01770000 * TO POST */ 01771000 LA GPR01P,APCTEIPL(,APCTPTR) 01S0696 01772000 * GPR00P=APCTASCB;/* ADDR OF ASCB FOR 01S0697 01773000 * MEMORY TO BE POSTED */ 01774000 L GPR00P,APCTASCB(,APCTPTR) 01S0697 01775000 * CALL APCVZUBB;/* ISSUE CROSS-MEMORY POST */ 01776000 L @15,APCTZUBB(,APCTPTR) 01S0698 01777000 BALR @14,@15 01S0698 01778000 * END; /* ECB POSTED */ 01779000 * ELSE /* ECB NOT YET POSTED */ 01780000 * DO; /* SO TRY 'COMPARE-AND-SWAP' POST*/ 01781000 B @RC00694 01S0700 01782000 @RF00694 DS 0H 01S0701 01783000 * GPR14F='40000000'X;/* POST CODE */ 01784000 L GPR14F,@CF03082 01S0701 01785000 * CS(GPR15F,GPR14F,APCTEIPL);/* POST THE 01786000 * ECB */ 01787000 CS GPR15F,@14,APCTEIPL(APCTPTR) 01S0702 01788000 * BC(7,LTR0017X);/* RETRY IF 'CS' FAILED */ 01789000 BC 7,LTR0017X 01S0703 01790000 * END; /* ECB POSTED VIA 'CS' */ 01791000 * RFY 01S0705 01792000 * (GPR00P, 01S0705 01793000 * GPR01P, 01S0705 01794000 * GPR14F, 01S0705 01795000 * GPR15F) UNRSTD;/* DONE WITH REGS */ 01796000 @RC00694 DS 0H 01S0706 01797000 * END; /* POST LOGIC COMPLETE */ 01798000 * END; /* END OF REIPL. */ 01799000 * END; 01S0708 01800000 @RF00686 DS 0H 01S0709 01801000 * CALL WRT300I('P'); /* OUTPUT ERROR MESSAGE. */ 01802000 @RC00660 LA @01,@AL00709 01S0709 01803000 BAL @14,WRT300I 01S0709 01804000 * END; 01S0710 01805000 * RFY 01S0711 01806000 * R13P UNRSTD; 01S0711 01807000 @RC00657 DS 0H 01S0711 01808000 @RF00656 DS 0H 01S0712 01809000 * END; 01S0712 01810000 * R14P=GOBACK; /* RESTORE THE RETURN ADDRESS. */ 01811000 @RF00562 LR R14P,GOBACK 01S0713 01812000 * RETURN; /* RETURN TO CALLER. */ 01813000 @EL00002 DS 0H 01S0714 01814000 @EF00002 DS 0H 01S0714 01815000 @ER00002 BR @14 01S0714 01816000 * RFY 01S0715 01817000 * R1P UNRSTD; 01S0715 01818000 * 01S0716 01819000 * /*****************************************************************/ 01820000 * /* */ 01821000 * /* THIS PROCEDURE GENERATES ERROR MESSAGE IGT300I WHEN AN ERROR */ 01822000 * /* COUNT REACHES A THRESHOLD LIMIT. INPUT IS : 1. THE INPUT PARM */ 01823000 * /* IS P OR T FOR TYPE OF ERROR. 2. CTRPTR POINTS TO THE THRESHOLD*/ 01824000 * /* VIOLATED. 3. THRSPTR POINTS TO 2 CHARS FOR FAILING COMPONENT. */ 01825000 * /* */ 01826000 * /*****************************************************************/ 01827000 * 01S0716 01828000 *WRT300I: 01S0716 01829000 * PROC(INCHAR) OPTIONS(DONTSAVE,NOSAVEAREA); 01S0716 01830000 WRT300I MVC @PC00003(4),0(@01) 01S0716 01831000 * DCL 01S0717 01832000 * MSG300S CHAR(*) GEND STATIC LOCAL;/* MSG SKELETON. */ 01833000 * GEN DATA DEFS(MSG300S); 01S0718 01834000 * DCL 01S0719 01835000 * 1 MSG300 BDY(WORD), /* IGT300I BUILD AREA. */ 01836000 * 2 MSGLEN PTR(15), /* LENGTH */ 01837000 * 2 MSGFLS BIT(16), /* FLAGS */ 01838000 * 2 MSGNUM CHAR(9), /* MSG ID */ 01839000 * 2 MSGSS CHAR(4), /* SYBSYSTEM */ 01840000 * 2 MSGSP1 CHAR(2), /* SPACING */ 01841000 * 2 MSGUNT CHAR(3), /* UNIT */ 01842000 * 2 MSGSP2 CHAR(1), /* SPACING */ 01843000 * 2 MSGERR CHAR(2), /* COMPONENT */ 01844000 * 2 MSGSP3 CHAR(1), /* SPACEING */ 01845000 * 2 MSGTYP CHAR(1), /* PERM/TEMP. */ 01846000 * 2 MSGSP4 CHAR(1), /* SPACING */ 01847000 * 2 MSGCNT CHAR(5), /* COUNT */ 01848000 * 2 MSGRT CHAR(4); /* ROUTECODES. */ 01849000 * DCL 01S0720 01850000 * MSGRET PTR(31); /* RETURN SAVE. */ 01851000 * DCL 01S0721 01852000 * I PTR(31); /* COUNTER */ 01853000 * DCL 01S0722 01854000 * INCHAR CHAR(1); /* INDICATES TEMP OR PERM. */ 01855000 * DCL 01S0723 01856000 * TCOUNT CHAR(5); /* UNPACK AREA. */ 01857000 * DCL 01S0724 01858000 * PACKED CHAR(3); /* CONVERT AREA. */ 01859000 * MSGRET=R14P; /* SAVE RETURN ADDRESS. */ 01860000 LR MSGRET,R14P 01S0725 01861000 * MVC(MSG300,MSG300S(1:LENGTH(MSG300)));/* MOVE IN THE SKELETON. */ 01862000 MVC MSG300(37),MSG300S 01S0726 01863000 * MSGSS=APCTSSID; /* SUBSYS ID. */ 01864000 MVC MSGSS(4),APCTSSID(APCTPTR) 01S0727 01865000 * MSGTYP=INCHAR; /* TYPE OF ERROR (TEMP/PERM). */ 01866000 L @15,@PC00003 01S0728 01867000 MVC MSGTYP(1),INCHAR(@15) 01S0728 01868000 * MSGUNT=UCBNAME; /* FAILING UNIT. */ 01869000 L @01,UCBPTR(,APIOPTR) 01S0729 01870000 MVC MSGUNT(3),UCBNAME(@01) 01S0729 01871000 * MSGERR=THRSPTR->I256C(1:2); /* FAILING COMPONENT. */ 01872000 MVC MSGERR(2),I256C(THRSPTR) 01S0730 01873000 * CVD(CTRPTR->I015F,PACKED); /* CONVERT COUNT TO DECIMAL. */ 01874000 LH @09,I015F(,CTRPTR) 01S0731 01875000 CVD @09,@TS00001 01S0731 01876000 MVC PACKED(3),@TS00001+5 01S0731 01877000 * UNPK(TCOUNT,PACKED); /* UNPACK RESULT. */ 01878000 UNPK TCOUNT(5),PACKED(3) 01S0732 01879000 * TCOUNT(5)=TCOUNT(5)|'F0'X; /* GET RID OF SIGN. */ 01880000 OI TCOUNT+4,X'F0' 01S0733 01881000 * DO I=1 TO 5 /* FIND FIRST NON-ZERO NUMBER. */ 01882000 * WHILE TCOUNT(I)='0'; 01S0734 01883000 LA I,1 01S0734 01884000 @DL00734 LA @09,TCOUNT-1(I) 01S0734 01885000 CLI 0(@09),C'0' 01S0734 01886000 BNE @DC00734 01S0734 01887000 * END; 01S0735 01888000 AL I,@CF00033 01S0735 01889000 C I,@CF01950 01S0735 01890000 BNH @DL00734 01S0735 01891000 @DC00734 DS 0H 01S0736 01892000 * MSGCNT(1:6-I)=TCOUNT(I:5); /* ELIMINATE LEADING ZEROS. */ 01893000 LA @09,6 01S0736 01894000 SLR @09,I 01S0736 01895000 BCTR @09,0 01S0736 01896000 LA @01,TCOUNT-1(I) 01S0736 01897000 EX @09,@SM03285 01S0736 01898000 * GEN REFS(MSGCNT); 01S0737 01899000 * /* WRITE THE MESSAGE. */ 01900000 SR R0P,R0P 01901000 WTO MF=(E,MSG300) 01902000 * R14P=MSGRET; /* RESTORE THE RETURN ADDRESS. */ 01903000 LR R14P,MSGRET 01S0738 01904000 * RETURN; /* RETURN TO CALLER. */ 01905000 @EL00003 DS 0H 01S0739 01906000 @EF00003 DS 0H 01S0739 01907000 @ER00003 BR @14 01S0739 01908000 * END; /* END OF WRT300 PROC. */ 01909000 * END; /* END OF ERRCTR PROC. */ 01910000 * 01S0742 01911000 */* THIS PROC IS RESPONSIBLE FOR RESETTING THE QUIESCE BIT AND 01S0742 01912000 * SIMULATING AN INTERRUPT SO THAT NEW CHANNEL PROGRAMS MAY BE 01913000 * STARTED ON THE AFFECTED SUBCHANNEL. IT USES THE IOSGEN MACRO 01914000 * FOR BOTH PURPOSES. IT ALSO CANCELS THE ESTAE AND FREES THE 01S0742 01915000 * DYNAMIC WORK AREA. */ 01916000 * 01S0742 01917000 *RESETQB: 01S0742 01918000 * PROC OPTIONS(DONTSAVE,NOSAVEAREA);/* ENTRY TO THE ROUTINE. */ 01919000 * 01S0742 01920000 RESETQB DS 0H 01S0743 01921000 * /*****************************************************************/ 01922000 * /* */ 01923000 * /* LOCAL DCLS. */ 01924000 * /* */ 01925000 * /*****************************************************************/ 01926000 * 01S0743 01927000 * DCL 01S0743 01928000 * RSQBSAVE PTR(31); /* SAVE RETURN. */ 01929000 * RSQBSAVE=R14P; /* WHERE TO GO BACK TO. */ 01930000 LR RSQBSAVE,R14P 01S0744 01931000 */* RESET THE QUIESCE BIT IN THE UCB. */ 01932000 * 01S0745 01933000 * RFY 01S0745 01934000 * (R1P, 01S0745 01935000 * R13P, 01S0745 01936000 * R14P) RSTD; 01S0745 01937000 * R13P=ADDR(SAVE16(1)); /* 64 BYTE SAVE AREA */ 01938000 LA R13P,SAVE16 01S0746 01939000 * R1P=IOSUCB; 01S0747 01940000 L R1P,IOSUCB(,APIOPTR) 01S0747 01941000 * GEN REFS(UCBFLA,UCBFLB,UCBFLC,CVTPTR,CVTIXAVL,IOCGENA,UCBOB, 01942000 * UCBCCWOF,UCB3TAPE,CVTMAP,IOCOM,UCBCMEXT,UCBEXTPT) 01S0748 01943000 * (IOSGEN UCBFLG,UCB=(R1P),VAR=OFF,TABLE=UCBQISCE ); 01S0748 01944000 IOSGEN UCBFLG,UCB=(R1P),VAR=OFF,TABLE=UCBQISCE 01945000 * R1P=R1P->UCBCHAN; /* GET DEVICE ADDRESS FOR SIMINT.*/ 01946000 LH @15,UCBCHAN(,R1P) 01S0749 01947000 N @15,@CF03287 01S0749 01948000 LR R1P,@15 01S0749 01949000 * GEN REFS(CVTPTR,CVTIXAVL,CVTMAP,IOCGENA,IOCOM)/* GEN INTERRUPT. */ 01950000 * (IOSINTRP UCB=R1P,VAR=2,BRANCH=YES); 01S0750 01951000 IOSINTRP UCB=R1P,VAR=2,BRANCH=YES 01952000 * RFY 01S0751 01953000 * (R1P, 01S0751 01954000 * R13P, 01S0751 01955000 * R14P) UNRSTD; 01S0751 01956000 * GEN; 01S0752 01957000 ESTAE 0 CANCEL THE ESTAE. 01958000 * RFY 01S0753 01959000 * (R1P, 01S0753 01960000 * R0P) RSTD; 01S0753 01961000 * R1P=DYNPTR; /* ADDRESS OF THE DYNAMIC 01S0754 01962000 * STORAGE. */ 01963000 L R1P,DYNPTR(,EWAPTR) 01S0754 01964000 * R0P=SPSIZE; /* SUBPOOL AND SIZE. */ 01965000 L R0P,SPSIZE(,EWAPTR) 01S0755 01966000 * GEN REFS(R1P,R0P); 01S0756 01967000 FREEMAIN R,LV=(0),A=(1) FREE THE STORAGE. 01968000 * RFY 01S0757 01969000 * (R1P, 01S0757 01970000 * R0P) UNRSTD; 01S0757 01971000 * R14P=RSQBSAVE; /* RESTORE THE RETURN ADDRESS. */ 01972000 LR R14P,RSQBSAVE 01S0758 01973000 *ENDRSTQB: 01S0759 01974000 * RETURN; 01S0759 01975000 @EL00004 DS 0H 01S0759 01976000 @EF00004 DS 0H 01S0759 01977000 @ER00004 BR @14 01S0759 01978000 * END; 01S0760 01979000 B @EL00004 01S0760 01980000 * 01S0761 01981000 * /*****************************************************************/ 01982000 * /* */ 01983000 * /* THIS IS THE ROUTINE THAT GETS CONTROL FROM THE ESATE WHEN THE */ 01984000 * /* ERP ABENDS. BASICALLY IT ATTEMPTS TO RECOVER BY TREATING THE */ 01985000 * /* I/O ERROR AS PERMANEN, SPECIFYING THE LOGMSG EXIT AS THE RETRY*/ 01986000 * /* ROUTINE. IF NO SDWA IS AVAILABLE IT JUST GIVES UP. IF THE */ 01987000 * /* ABEND IS RECURSIVE IT ALSO GIVES UP WITH A DUMP. */ 01988000 * /* */ 01989000 * /*****************************************************************/ 01990000 * 01S0761 01991000 *RECOVER: 01S0761 01992000 * PROC OPTIONS(NOSAVEAREA,DONTSAVE,PARMREG); 01S0761 01993000 RECOVER DS 0H 01S0762 01994000 * GEN NOFLOWS EXIT; 01S0762 01995000 USING *,R15P ESTABLISH ADDRESSABILITY. 01996000 C R0P,F12 SEE IF SDWA IS PRESENT 01997000 * R0P = 12 IF NO SDWA. 01998000 BNE GOODSDWA BRANCH IF GOT ONE. 01999000 SR R15P,R15P SPECIFY NO RETRY. 02000000 BR R14P RETURN TO CALLER. 02001000 * 02002000 * PROCESS NORMAL ENTRY. 02003000 * 02004000 GOODSDWA DS 0H SDWA IS PRESENT AND VALID. 02005000 SAVE (14,12) SAVE THE REGS. 02006000 L R2P,SDWAPARM-SDWA(,R1P) GET THE PARMLIST. 02007000 * THE PARMLIST IS A POINTER TO THE REGS TO BE USED. 02008000 L R2P,0(,R2P) GET POINTER TO THE REGS 02009000 LM R3P,R12P,4(R2P) RESTORE THE REGS FOR LOGMSG. 02010000 TM 0(R2P),X'80' SEE IF THIS IS A RECURSIVE ENTRY. 02011000 BO RECURSE IF ZERO THEN NOT. 02012000 OI 0(R2P),X'80' SET THE RECURSIVE BIT ON. 02013000 DROP R15P NOT NEEDED ANY MORE. 02014000 STM R3P,R12P,SDWASR03-SDWA(R1P) PREPARE FOR EXIT. 02015000 SETRP WKAREA=(1),DUMP=NO,RC=4,RETADDR=LOGMSG,RETREGS=YES, X02016000 FRESDWA=YES,RECORD=YES 02017000 LM R14P,R12P,12(R13P) RESTORE THE REGS. 02018000 BR R14P RETURN TO CALLER. 02019000 RECURSE DS 0H RECOVERY HAS BEEN ATTEMPTED ONCE. 02020000 SETRP WKAREA=(1),DUMP=NO,RC=0,RECORD=YES **GIVE UP NOW. 02021000 LM R14P,R12P,12(R13P) RESTORE THE REGS. 02022000 BR R14P RETURN TO CALLER. 02023000 F12 DC F'12' CONSTANT OF 12 02024000 * END; 01S0763 02025000 @EL00005 DS 0H 01S0763 02026000 @EF00005 DS 0H 01S0763 02027000 @ER00005 BR @14 01S0763 02028000 * /* IGTXEPLG */ 02029000 * 01S0764 02030000 * /*****************************************************************/ 02031000 * /* */ 02032000 * /* SYSTEM DECLARES */ 02033000 * /* */ 02034000 * /*****************************************************************/ 02035000 * 01S0764 02036000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 02037000 * GPR14F FIXED(31) REG(14), 01S0764 02038000 * GPR15F FIXED(31) REG(15), 01S0764 02039000 * GPR00P PTR(31) REG(0), 01S0764 02040000 * GPR01P PTR(31) REG(1); 01S0764 02041000 * DECLARE /* COMMON VARIABLES */ 02042000 * I256C CHAR(256) BASED, 01S0765 02043000 * I031F FIXED(31) BASED, 01S0765 02044000 * I031P PTR(31) BASED, 01S0765 02045000 * I015F FIXED(15) BASED, 01S0765 02046000 * I015P PTR(15) BASED, 01S0765 02047000 * I008P PTR(8) BASED, 01S0765 02048000 * I001C CHAR(1) BASED; 01S0765 02049000 * 01S0766 02050000 * /*****************************************************************/ 02051000 * /* */ 02052000 * /* MODULE PATCH AREA */ 02053000 * /* */ 02054000 * /*****************************************************************/ 02055000 * 01S0766 02056000 * DCL 01S0766 02057000 * APPATCH CHAR(*) INT STATIC LOCAL GEND; 01S0766 02058000 * GENERATE DATA DEFS(APPATCH); 01S0767 02059000 * 01S0768 02060000 * /*****************************************************************/ 02061000 * /* */ 02062000 * /* GENERAL REGISTER DECLARES */ 02063000 * /* */ 02064000 * /*****************************************************************/ 02065000 * 01S0768 02066000 * DCL 01S0768 02067000 * R0F FIXED(31) REG(0), 01S0768 02068000 * R0P PTR(24) REG(0), 01S0768 02069000 * R0RSTD PTR(31) REG(0), 01S0768 02070000 * R1F FIXED(31) REG(1), 01S0768 02071000 * R1P PTR(24) REG(1), 01S0768 02072000 * R1RSTD PTR(31) REG(1), 01S0768 02073000 * R2F FIXED(31) REG(2), 01S0768 02074000 * R2P PTR(24) REG(2), 01S0768 02075000 * R2RSTD PTR(31) REG(2), 01S0768 02076000 * R3F FIXED(31) REG(3), 01S0768 02077000 * R3P PTR(24) REG(3), 01S0768 02078000 * R3RSTD PTR(31) REG(3), 01S0768 02079000 * R4F FIXED(31) REG(4), 01S0768 02080000 * R4P PTR(24) REG(4), 01S0768 02081000 * R4RSTD PTR(31) REG(4), 01S0768 02082000 * R5F FIXED(31) REG(5), 01S0768 02083000 * R5P PTR(24) REG(5), 01S0768 02084000 * R5RSTD PTR(31) REG(5), 01S0768 02085000 * R6F FIXED(31) REG(6), 01S0768 02086000 * R6P PTR(24) REG(6), 01S0768 02087000 * R6RSTD PTR(31) REG(6), 01S0768 02088000 * R7F FIXED(31) REG(7), 01S0768 02089000 * R7P PTR(24) REG(7), 01S0768 02090000 * R7RSTD PTR(31) REG(7), 01S0768 02091000 * R8F FIXED(31) REG(8), 01S0768 02092000 * R8P PTR(24) REG(8), 01S0768 02093000 * R8RSTD PTR(31) REG(8), 01S0768 02094000 * R9F FIXED(31) REG(9), 01S0768 02095000 * R9P PTR(24) REG(9), 01S0768 02096000 * R9RSTD PTR(31) REG(9), 01S0768 02097000 * R10F FIXED(31) REG(10), 01S0768 02098000 * R10P PTR(24) REG(10), 01S0768 02099000 * R10RSTD PTR(31) REG(10), 01S0768 02100000 * R11F FIXED(31) REG(11), 01S0768 02101000 * R11P PTR(24) REG(11), 01S0768 02102000 * R11RSTD PTR(31) REG(11), 01S0768 02103000 * R12F FIXED(31) REG(12), 01S0768 02104000 * R12P PTR(24) REG(12), 01S0768 02105000 * R12RSTD PTR(31) REG(12), 01S0768 02106000 * R13F FIXED(31) REG(13), 01S0768 02107000 * R13P PTR(24) REG(13), 01S0768 02108000 * R13RSTD PTR(31) REG(13), 01S0768 02109000 * R14F FIXED(31) REG(14), 01S0768 02110000 * R14P PTR(24) REG(14), 01S0768 02111000 * R14RSTD PTR(31) REG(14), 01S0768 02112000 * R15F FIXED(31) REG(15), 01S0768 02113000 * R15P PTR(24) REG(15), 01S0768 02114000 * R15RSTD PTR(31) REG(15), 01S0768 02115000 * 01S0768 02116000 * /***************************************************************/ 02117000 * /* */ 02118000 * /* VPSS CONTROL BLOCK POINTER DECLARES */ 02119000 * /* */ 02120000 * /***************************************************************/ 02121000 * 01S0768 02122000 * APSMPTR PTR(24) REG(01), /* STORAGE MANAGEMENT BLOCK 01S0768 02123000 * (SUGGESTED POINTER) */ 02124000 * APSCPTR PTR(24) REG(01), /* STORAGE MANAGEMENT CONTROL 02125000 * WORD (SUGGESTED POINTER) */ 02126000 * APINPTR PTR(24) REG(01), /* USER'S INPUT PARAMETER LIST 02127000 * (SUGGESTED POINTER) */ 02128000 */* */ 02129000 * 01S0768 02130000 * APDATA PTR(24) REG(06), /* ADDRESS OF DYNAMIC DATA 01S0768 02131000 * WORKAREA (DATAREG) */ 02132000 * APCODE PTR(24) REG(07), /* PROGRAM CODE BASE REGISTER 02133000 * (CODEREG) */ 02134000 * APDEBPTR PTR(24) REG(08), /* VPSS DEB (SUGGESTED POINTER) */ 02135000 * APNPPTR PTR(24) REG(08), /* SUBSYSTEM INITIALIZATION 01S0768 02136000 * WORKAREA BLOCK (ONLY USED BY 02137000 * SUBSYSTEM INITIALIZATION) */ 02138000 * APRLPTR PTR(24) REG(08), /* VPSS ACB REQUEST LIST 01S0768 02139000 * (SUGGESTED POINTER) */ 02140000 * APCIPTR PTR(24) REG(08), /* 3838 CONTROL TABLE (SUGGESTED 02141000 * POINTER) */ 02142000 * APCWPTR PTR(24) REG(08), /* CALL INTERFACE WORKAREA 01S0768 02143000 * (SUGGESTED POINTER) */ 02144000 * APERPTR PTR(24) REG(08), /* ERP/IO APPENDAGE WORKAREA 02145000 * (SUGGESTED POINTER) */ 02146000 * APACBPTR PTR(24) REG(09), /* VPSS ACB (SUGGESTED POINTER) */ 02147000 * APCQPTR PTR(24) REG(09), /* COMMAND QUEUE ELEMENT 01S0768 02148000 * (SUGGESTED POINTER) */ 02149000 * APOTPTR PTR(24) REG(09), /* OPTION TABLE (SUGGESTED 01S0768 02150000 * POINTER) */ 02151000 * APIOPTR PTR(24) REG(10), /* I/O ELEMENT (SUGGESTED 01S0768 02152000 * POINTER) */ 02153000 * APEXLPTR PTR(24) REG(10), /* VPSS EXLST (SUGGESTED POINTER)*/ 02154000 * APUBPTR PTR(24) REG(10), /* UNIT BLOCK (SUGGESTED POINTER)*/ 02155000 * APAXPTR PTR(24) REG(10), /* VPSS ACB EXTENSION (SUGGESTED 02156000 * POINTER) */ 02157000 * APCPPTR PTR(24) REG(10), /* VPSS CALL PROCESSING 01S0768 02158000 * INDICATORS (SUGGESTED POINTER)*/ 02159000 * APOCPTR PTR(24) REG(10), /* VPSS OPEN/CLOSE SUBSYSTEM 02160000 * WORKAREA (REQUIRED POINTER) */ 02161000 * APATPTR PTR(24) REG(11), /* VPSS ACB TABLE (SUGGESTED 02162000 * POINTER) */ 02163000 * APLBPTR PTR(24) REG(11), /* LABEL RESOLUTION TABLE 01S0768 02164000 * (SUGGESTED POINTER) */ 02165000 * APUTPTR PTR(24) REG(11), /* USER TABLE (SUGGESTED POINTER)*/ 02166000 * APDSPTR PTR(24) REG(11), /* VPSS DATASET ENTRY (SUGGESTED 02167000 * POINTER) */ 02168000 * APXLPTR PTR(24) REG(11), /* TRANSLATION TABLE (SUGGESTED 02169000 * POINTER) */ 02170000 * APDXPTR PTR(24) REG(11), /* VPSS DEB EXTENSION (SUGGESTED 02171000 * POINTER) */ 02172000 * APCTPTR PTR(24) REG(12) RSTD, /* CONTROL TABLE (REQUIRED 01S0768 02173000 * POINTER) */ 02174000 * APSVPTR PTR(24) REG(13) RSTD, /* OS/VPSS SAVEAREA/WORKAREA 02175000 * (REQUIRED POINTER) */ 02176000 * APRETURN PTR(24) REG(14), /* RETURN ADDRESS FOR SUBROUTINE 02177000 * LINKAGE */ 02178000 * APENTRY PTR(24) REG(15), /* SUBROUTINE ENTRY POINT LINKAGE*/ 02179000 * APRCODE PTR(24) REG(15); /* CONTAINS SUBROUTINE RETURN 02180000 * CODE */ 02181000 * 01S0769 02182000 * /*****************************************************************/ 02183000 * /* */ 02184000 * /* USER REGISTER DECLARES */ 02185000 * /* */ 02186000 * /*****************************************************************/ 02187000 * 01S0769 02188000 * END 01S0769 02189000 * 01S0769 02190000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02191000 */*%INCLUDE SYSLIB (CVT ) */ 02192000 */*%INCLUDE SYSLIB (EWAMAP ) */ 02193000 */*%INCLUDE SYSLIB (IECDIOCM) */ 02194000 */*%INCLUDE SYSLIB (IECDIOSB) */ 02195000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 02196000 */*%INCLUDE SYSLIB (IEZDEB ) */ 02197000 */*%INCLUDE SYSLIB (IGTXAPCT) */ 02198000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 02199000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 02200000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 02201000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 02202000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 02203000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 02204000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 02205000 */*%INCLUDE SYSLIB (IGTXAPCV) */ 02206000 */*%INCLUDE SYSLIB (IGTXAPDS) */ 02207000 */*%INCLUDE SYSLIB (IGTXAPDX) */ 02208000 */*%INCLUDE SYSLIB (IGTXAPIO) */ 02209000 */*%INCLUDE SYSLIB (IGTXAPSN) */ 02210000 */*%INCLUDE SYSLIB (IGTXAPUB) */ 02211000 */*%INCLUDE SYSLIB (IHAPSA ) */ 02212000 */*%INCLUDE SYSUT5 (INTRCEPT) */ 02213000 */*%INCLUDE SYSUT5 (CHKCHAIN) */ 02214000 */*%INCLUDE SYSUT5 (ERP11 ) */ 02215000 */*%INCLUDE SYSUT5 (ERP12 ) */ 02216000 */*%INCLUDE SYSUT5 (UNITCK ) */ 02217000 */*%INCLUDE SYSUT5 (ERP13 ) */ 02218000 */*%INCLUDE SYSUT5 (BADLEN ) */ 02219000 */*%INCLUDE SYSUT5 (ANALERR ) */ 02220000 */*%INCLUDE SYSUT5 (TOERR ) */ 02221000 */*%INCLUDE SYSUT5 (CHANERR ) */ 02222000 */*%INCLUDE SYSUT5 (CNTLRERR) */ 02223000 */*%INCLUDE SYSUT5 (CNTLRERR) */ 02224000 */*%INCLUDE SYSUT5 (CNTLRERR) */ 02225000 */*%INCLUDE SYSUT5 (BSERR ) */ 02226000 * 01S0769 02227000 * ; 01S0769 02228000 @DATA DS 0H 02229000 @SM03285 MVC MSGCNT(0),0(@01) 02230000 DS 0F 02231000 @AL00658 DC A(@CC03115) LIST WITH 1 ARGUMENT(S) 02232000 @AL00709 DC A(@CC03121) LIST WITH 1 ARGUMENT(S) 02233000 @DATD DSECT 02234000 DS 0F 02235000 @PC00003 DS 1F 02236000 IGE0003C CSECT 02237000 DS 0F 02238000 @CF00033 DC F'1' 02239000 @CF01950 DC F'5' 02240000 @CF00059 DC F'8' 02241000 @CF00040 DC F'16' 02242000 @CF03261 DC F'-8' 02243000 @CF03082 DC XL4'40000000' 02244000 @CF03287 DC XL4'0000FFFF' 02245000 @CF03270 DC BL4'00100000000000000000000000000000' 02246000 @CF03273 DC BL4'00000000100000000000000000000000' 02247000 @CF03276 DC BL4'00000000000110000000000000000000' 02248000 @CF03279 DC BL4'01000000000000000000000000000000' 02249000 @CF03282 DC BL4'00000000010000000000000000000000' 02250000 @DATD DSECT 02251000 DS 0D 02252000 DS 0D 02253000 @TS00001 DS CL8 02254000 ESTAELST DS CL44 02255000 ORG ESTAELST 02256000 ESIND DS AL4 02257000 ORG ESIND 02258000 ESRECUR DS BL1 02259000 @NM00011 EQU ESIND+0 02260000 ORG ESTAELST+4 02261000 SAVE312 DS CL40 02262000 ORG ESTAELST+44 02263000 MSG300 DS CL37 02264000 ORG MSG300 02265000 MSGLEN DS AL2 02266000 MSGFLS DS BL2 02267000 MSGNUM DS CL9 02268000 MSGSS DS CL4 02269000 MSGSP1 DS CL2 02270000 MSGUNT DS CL3 02271000 MSGSP2 DS CL1 02272000 MSGERR DS CL2 02273000 MSGSP3 DS CL1 02274000 MSGTYP DS CL1 02275000 MSGSP4 DS CL1 02276000 MSGCNT DS CL5 02277000 MSGRT DS CL4 02278000 ORG MSG300+37 02279000 TCOUNT DS CL5 02280000 PACKED DS CL3 02281000 DS CL3 02282000 SAVE16 DS 20A 02283000 IGE0003C CSECT 02284000 DS 0F 02285000 @SIZDATD DC AL1(0) 02286000 DC AL3(@ENDDATD-@DATD) 02287000 DS 0D 02288000 @CC03115 DC C'T' 02289000 @CC03121 DC C'P' 02290000 @CB03043 DC X'7F00' 02291000 @CB03058 DC X'0000' 02292000 CNTLRDRG DC X'6B0000006000006B' 02293000 READREGS DC X'020000006000003C' 02294000 CCWRST DC X'0B0000006000000B' 02295000 TIC DC X'0800000060000001' 02296000 NOP DC X'0300000020000003' 02297000 CLR3838 DC X'1B0000006000001B' 02298000 EBCERR DS CL10 02299000 ORG EBCERR 02300000 TOTAL DC CL2'TE' 02301000 BULK DC CL2'BS' 02302000 TIME DC CL2'TO' 02303000 IO DC CL2'IO' 02304000 CONT DC CL2'CP' 02305000 ORG EBCERR+10 02306000 @DATD DSECT 02307000 QESTAE ESTAE *-*,PARAM=*-*,PURGE=NONE,ASYNCH=YES,TERM=YES,MF=L 02308000 DESTAE EQU QESTAE,*-QESTAE,C'C' 02309000 IGE0003C CSECT 02310000 ZESTAE ESTAE RECOVER,PARAM=*-*,PURGE=NONE,ASYNCH=YES,TERM=YES,MF=L 02311000 XESTAE EQU ZESTAE,*-ZESTAE,C'C' 02312000 @DATD DSECT 02313000 IHASDWA DSECT=YES DEFINE THE SDWA CONTROL BLOCK. 02314000 IGE0003C CSECT GET BACK TO OUR CSECT. 02315000 IGE0003C CSECT 02316000 MSG300X WTO 'IGT300I SSSS: UUU,EE,R,N ',MF=L,ROUTCDE=2,DESC=4 02317000 MSG300S EQU MSG300X,*-MSG300X,C'C' 02318000 IGE0003C CSECT 02319000 * /* GENERATE PATCH 02320000 IGTXZAP , GENERATE PATCH AREA 02321000 @DATD DSECT 02322000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02323000 @ENDDATD EQU * 02324000 IGE0003C CSECT 02325000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02326000 @01 EQU 01 02327000 @02 EQU 02 02328000 @03 EQU 03 02329000 @04 EQU 04 02330000 @05 EQU 05 02331000 @06 EQU 06 02332000 @07 EQU 07 02333000 @08 EQU 08 02334000 @09 EQU 09 02335000 @10 EQU 10 02336000 @11 EQU 11 02337000 @12 EQU 12 02338000 @13 EQU 13 02339000 @14 EQU 14 02340000 @15 EQU 15 02341000 RSQBSAVE EQU @02 02342000 I EQU @02 02343000 MSGRET EQU @03 02344000 GOBACK EQU @11 02345000 THRSPTR EQU @09 02346000 CTRPTR EQU @02 02347000 IOCOMPTR EQU @00 02348000 IOSBPTR EQU @00 02349000 DEBPTR EQU @00 02350000 DEBDAPTR EQU @00 02351000 DEBEXPTR EQU @00 02352000 DEBSBPTR EQU @00 02353000 CODEBASE EQU @07 02354000 DATABASE EQU @06 02355000 EWAPTR EQU @08 02356000 APCTPTR EQU @12 02357000 APIOPTR EQU @10 02358000 R1P EQU @01 02359000 R15P EQU @15 02360000 R0P EQU @00 02361000 R2P EQU @02 02362000 R3P EQU @03 02363000 R12P EQU @12 02364000 R9P EQU @09 02365000 R11P EQU @11 02366000 R14P EQU @14 02367000 R13P EQU @13 02368000 GPR00P EQU @00 02369000 GPR01P EQU @01 02370000 GPR14F EQU @14 02371000 GPR15F EQU @15 02372000 APSVPTR EQU @13 02373000 APACBPTR EQU @09 02374000 APATPTR EQU @11 02375000 APAXPTR EQU @10 02376000 APCIPTR EQU @08 02377000 APCODE EQU @07 02378000 APCPPTR EQU @10 02379000 APCQPTR EQU @09 02380000 APCWPTR EQU @08 02381000 APDATA EQU @06 02382000 APDEBPTR EQU @08 02383000 APDSPTR EQU @11 02384000 APDXPTR EQU @11 02385000 APENTRY EQU @15 02386000 APERPTR EQU @08 02387000 APEXLPTR EQU @10 02388000 APINPTR EQU @01 02389000 APLBPTR EQU @11 02390000 APNPPTR EQU @08 02391000 APOCPTR EQU @10 02392000 APOTPTR EQU @09 02393000 APRCODE EQU @15 02394000 APRETURN EQU @14 02395000 APRLPTR EQU @08 02396000 APSCPTR EQU @01 02397000 APSMPTR EQU @01 02398000 APUBPTR EQU @10 02399000 APUTPTR EQU @11 02400000 APXLPTR EQU @11 02401000 R0F EQU @00 02402000 R0RSTD EQU @00 02403000 R1F EQU @01 02404000 R1RSTD EQU @01 02405000 R10F EQU @10 02406000 R10P EQU @10 02407000 R10RSTD EQU @10 02408000 R11F EQU @11 02409000 R11RSTD EQU @11 02410000 R12F EQU @12 02411000 R12RSTD EQU @12 02412000 R13F EQU @13 02413000 R13RSTD EQU @13 02414000 R14F EQU @14 02415000 R14RSTD EQU @14 02416000 R15F EQU @15 02417000 R15RSTD EQU @15 02418000 R2F EQU @02 02419000 R2RSTD EQU @02 02420000 R3F EQU @03 02421000 R3RSTD EQU @03 02422000 R4F EQU @04 02423000 R4P EQU @04 02424000 R4RSTD EQU @04 02425000 R5F EQU @05 02426000 R5P EQU @05 02427000 R5RSTD EQU @05 02428000 R6F EQU @06 02429000 R6P EQU @06 02430000 R6RSTD EQU @06 02431000 R7F EQU @07 02432000 R7P EQU @07 02433000 R7RSTD EQU @07 02434000 R8F EQU @08 02435000 R8P EQU @08 02436000 R8RSTD EQU @08 02437000 R9F EQU @09 02438000 R9RSTD EQU @09 02439000 CVTPTR EQU 16 02440000 PSA EQU 0 02441000 FLCRNPSW EQU PSA 02442000 FLCROPSW EQU PSA+8 02443000 FLCICCW2 EQU PSA+16 02444000 PSAEEPSW EQU PSA+132 02445000 PSAESPSW EQU PSA+136 02446000 FLCSVILC EQU PSAESPSW+1 02447000 PSAEPPSW EQU PSA+140 02448000 FLCPIILC EQU PSAEPPSW+1 02449000 FLCPICOD EQU PSAEPPSW+2 02450000 PSAPICOD EQU FLCPICOD+1 02451000 FLCTEA EQU PSAEPPSW+4 02452000 FLCPER EQU PSA+152 02453000 FLCMCLA EQU PSA+168 02454000 FLCIOEL EQU FLCMCLA+4 02455000 FLCIOA EQU FLCMCLA+16 02456000 FLCFSA EQU FLCMCLA+80 02457000 PSASUPER EQU PSA+552 02458000 PSASUP1 EQU PSASUPER 02459000 PSASUP2 EQU PSASUPER+1 02460000 PSASUP3 EQU PSASUPER+2 02461000 PSASUP4 EQU PSASUPER+3 02462000 PSACLHT EQU PSA+640 02463000 PSALKSA EQU PSA+696 02464000 PSAHLHI EQU PSA+760 02465000 PSADSSFL EQU PSA+836 02466000 PSADSSF1 EQU PSADSSFL 02467000 PSADSSF3 EQU PSADSSFL+2 02468000 PSADSSF4 EQU PSADSSFL+3 02469000 PSARSVT EQU PSA+896 02470000 APSN EQU 0 02471000 APSNSTND EQU APSN 02472000 APSNBOP EQU APSNSTND 02473000 APSNDTCK EQU APSNSTND 02474000 APSNRQST EQU APSN+1 02475000 APSNRQRS EQU APSNRQST 02476000 APSNRQUR EQU APSNRQST 02477000 APSNCMPN EQU APSN+2 02478000 APSNCCPX EQU APSNCMPN 02479000 APSNFMT EQU APSN+3 02480000 APSNCIOP EQU APSN+4 02481000 APSNFMTD EQU APSN+8 02482000 CCW EQU 0 02483000 CCWOPCD EQU CCW 02484000 CCWFLAGS EQU CCW+4 02485000 CCWDC EQU CCWFLAGS 02486000 CVTMAP EQU 0 02487000 CVTXTLER EQU CVTMAP+44 02488000 CVTXITP EQU CVTMAP+68 02489000 CVTDAR EQU CVTMAP+72 02490000 CVTFLGS1 EQU CVTDAR 02491000 CVTDCB EQU CVTMAP+116 02492000 CVTIOQET EQU CVTMAP+120 02493000 CVTIXAVL EQU CVTMAP+124 02494000 CVTIERLC EQU CVTMAP+144 02495000 CVTHEAD EQU CVTMAP+160 02496000 CVTSV76C EQU CVTHEAD 02497000 CVTOPTA EQU CVTMAP+182 02498000 CVTOPTB EQU CVTMAP+183 02499000 CVTGTF EQU CVTMAP+236 02500000 CVTGTFST EQU CVTGTF 02501000 CVTGTFS EQU CVTGTFST 02502000 CVTSTATE EQU CVTGTFST 02503000 CVTTMODE EQU CVTGTFST 02504000 CVTFORM EQU CVTGTFST 02505000 CVTAQAVT EQU CVTMAP+240 02506000 CVTTCMFG EQU CVTAQAVT 02507000 CVTVOLM2 EQU CVTMAP+244 02508000 CVTTATA EQU CVTVOLM2 02509000 CVTTSKS EQU CVTTATA 02510000 CVTVOLF2 EQU CVTTSKS 02511000 CVTTAT EQU CVTTATA+1 02512000 CVTATER EQU CVTMAP+248 02513000 CVTEXT1 EQU CVTMAP+252 02514000 CVTPURG EQU CVTMAP+260 02515000 CVTQMSG EQU CVTMAP+268 02516000 CVTDMSR EQU CVTMAP+272 02517000 CVTRSV37 EQU CVTDMSR 02518000 CVTDMSRF EQU CVTRSV37 02519000 CVTERPV EQU CVTMAP+316 02520000 CVTINTLA EQU CVTMAP+320 02521000 CVTAPF EQU CVTMAP+324 02522000 CVTEXT2 EQU CVTMAP+328 02523000 CVTHJES EQU CVTMAP+332 02524000 CVTPGSIA EQU CVTMAP+348 02525000 CVTA1F1 EQU CVTMAP+356 02526000 CVTSYSK EQU CVTMAP+357 02527000 CVTVOLM1 EQU CVTMAP+380 02528000 CVTVOLF1 EQU CVTVOLM1 02529000 CVTATMCT EQU CVTMAP+388 02530000 CVTXTNT1 EQU 0 02531000 CVTXTNT2 EQU 0 02532000 CVTDSSV EQU CVTXTNT2 02533000 CVTFLGBT EQU CVTXTNT2+5 02534000 CVTQID EQU CVTXTNT2+24 02535000 CVTRV400 EQU CVTXTNT2+52 02536000 CVTRV409 EQU CVTXTNT2+53 02537000 CVTATCVT EQU CVTXTNT2+64 02538000 CVTRV429 EQU CVTXTNT2+84 02539000 CVTRV438 EQU CVTXTNT2+85 02540000 CVTRV457 EQU CVTXTNT2+112 02541000 CVTRV466 EQU CVTXTNT2+113 02542000 CVTFIX EQU 0 02543000 CVTRELNO EQU CVTFIX+252 02544000 EWA EQU 0 02545000 EWAHDR EQU EWA 02546000 EWAFLAGS EQU EWA+4 02547000 EWAFLG1 EQU EWAFLAGS 02548000 EWASCCD EQU EWAFLG1 02549000 EWASCC3 EQU EWASCCD 02550000 EWABDSNS EQU EWAFLG1 02551000 EWAFLG2 EQU EWAFLAGS+1 02552000 EWAWTEMP EQU EWAFLG2 02553000 EWAFLG3 EQU EWAFLAGS+2 02554000 EWASNSCT EQU EWAFLAGS+3 02555000 EWACNTRS EQU EWA+10 02556000 EWACNTR1 EQU EWACNTRS 02557000 EWACNTR2 EQU EWACNTRS+1 02558000 EWASTUP EQU EWA+14 02559000 EWAERPIB EQU EWA+16 02560000 EWARGFG1 EQU EWAERPIB+4 02561000 EWANORTY EQU EWARGFG1 02562000 EWARGFG2 EQU EWAERPIB+5 02563000 EWAXCSW1 EQU EWAERPIB+6 02564000 EWAXCSW2 EQU EWAERPIB+7 02565000 EWACHA EQU EWA+24 02566000 EWAIERP EQU EWA+32 02567000 IOCOM EQU 0 02568000 IOCGENA EQU IOCOM+84 02569000 IOSB EQU 0 02570000 IOSFLA EQU IOSB 02571000 IOSACHN EQU IOSFLA 02572000 IOSDCHN EQU IOSACHN 02573000 IOSCCHN EQU IOSACHN 02574000 IOSERR EQU IOSFLA 02575000 IOSEX EQU IOSFLA 02576000 IOSFLB EQU IOSB+1 02577000 IOSSDR EQU IOSFLB 02578000 IOSMSG EQU IOSFLB 02579000 IOSBDCST EQU IOSFLB 02580000 IOSLOG EQU IOSFLB 02581000 IOSFLC EQU IOSB+2 02582000 IOSDVALT EQU IOSFLC 02583000 IOSDVRID EQU IOSB+4 02584000 IOSPKEY EQU IOSB+12 02585000 IOSCOD EQU IOSB+13 02586000 IOSOPT EQU IOSB+14 02587000 IOSQISCE EQU IOSOPT 02588000 IOSOPT2 EQU IOSB+15 02589000 IOSUCB EQU IOSB+16 02590000 @NM00024 EQU IOSB+20 02591000 IOSCC EQU @NM00024 02592000 IOSCSW EQU @NM00024+1 02593000 IOSCSWCA EQU IOSCSW 02594000 IOSTATUS EQU IOSCSW+3 02595000 IOSIPIB EQU IOSB+44 02596000 IOSERP EQU IOSB+52 02597000 IOSRST EQU IOSB+72 02598000 IOSVST EQU IOSB+76 02599000 IOSPATH EQU IOSB+86 02600000 IOSCHN EQU IOSPATH 02601000 IOSCKEY EQU IOSB+89 02602000 IOSEEK EQU IOSB+100 02603000 IOSEEKA EQU IOSEEK 02604000 IOSCCHH EQU IOSEEKA+3 02605000 IOSSKHH EQU IOSCCHH+2 02606000 UCB EQU 0 02607000 UCBOB EQU 0 02608000 UCBJBNR EQU UCBOB 02609000 UCBFL5 EQU UCBOB+1 02610000 UCBAF EQU UCBFL5 02611000 UCBSTAT EQU UCBOB+3 02612000 UCBCHAN EQU UCBOB+4 02613000 UCBSFLS EQU UCBOB+6 02614000 UCBFLA EQU UCBSFLS 02615000 UCBFL1 EQU UCBFLA 02616000 UCBBSY EQU UCBFL1 02617000 UCBNRY EQU UCBFL1 02618000 UCBPST EQU UCBFL1 02619000 UCBCUB EQU UCBFL1 02620000 UCBFLB EQU UCBSFLS+1 02621000 UCBCHM EQU UCBOB+8 02622000 UCBCHM1 EQU UCBCHM 02623000 UCBPTH0 EQU UCBCHM1 02624000 UCBPTH1 EQU UCBCHM1 02625000 UCBWGT EQU UCBOB+12 02626000 UCBNAME EQU UCBOB+13 02627000 UCBTYP EQU UCBOB+16 02628000 UCBTBYT1 EQU UCBTYP 02629000 UCB1FEA5 EQU UCBTBYT1 02630000 UCB1FEA6 EQU UCBTBYT1 02631000 UCBTBYT2 EQU UCBTYP+1 02632000 UCB2OPT2 EQU UCBTBYT2 02633000 UCBDUDN1 EQU UCB2OPT2 02634000 UCB2OPT3 EQU UCBTBYT2 02635000 UCBDUDN2 EQU UCB2OPT3 02636000 UCB2OPT4 EQU UCBTBYT2 02637000 UCBRWTAU EQU UCB2OPT4 02638000 UCB2OPT6 EQU UCBTBYT2 02639000 UCB2OPT7 EQU UCBTBYT2 02640000 UCBTBYT3 EQU UCBTYP+2 02641000 UCBDVCLS EQU UCBTBYT3 02642000 UCB3TAPE EQU UCBDVCLS 02643000 UCBTBYT4 EQU UCBTYP+3 02644000 UCBEXTPT EQU UCBOB+20 02645000 UCBFLC EQU UCBEXTPT 02646000 UCBDEV EQU UCBOB+24 02647000 UCBCMEXT EQU 0 02648000 UCBATI EQU UCBCMEXT+3 02649000 @NM00033 EQU UCBATI 02650000 UCBFLP1 EQU UCBCMEXT+5 02651000 UCBCCWOF EQU UCBCMEXT+8 02652000 UCBMT EQU 0 02653000 UCBOCR EQU 0 02654000 UCB3540X EQU 0 02655000 UCBDKBYT EQU UCB3540X+6 02656000 UCB3800X EQU 0 02657000 UCBOPTNS EQU UCB3800X 02658000 UCBACTIV EQU UCB3800X+3 02659000 UCBMDRBF EQU UCB3800X+36 02660000 UCBUCS EQU 0 02661000 UCBUCSOP EQU UCBUCS+4 02662000 UCBFCBOP EQU UCBUCS+5 02663000 DEBBASIC EQU 0 02664000 DEBTCBAD EQU DEBBASIC 02665000 DEBDEBAD EQU DEBBASIC+4 02666000 DEBIRBAD EQU DEBBASIC+8 02667000 DEBOFLGS EQU DEBIRBAD 02668000 DEBOPATB EQU DEBBASIC+12 02669000 DEBFLGS1 EQU DEBBASIC+14 02670000 DEBUSRPG EQU DEBBASIC+16 02671000 DEBRRQ EQU DEBBASIC+20 02672000 DEBECBAD EQU DEBRRQ 02673000 DEBDCBAD EQU DEBBASIC+24 02674000 DEBPROTG EQU DEBDCBAD 02675000 DEBAPPAD EQU DEBBASIC+28 02676000 DEBBASND EQU DEBBASIC+32 02677000 DEBDASD EQU 0 02678000 DEBUCBAD EQU DEBDASD 02679000 DEBACSMD EQU 0 02680000 DEBVOLSQ EQU DEBACSMD 02681000 DEBVOLBT EQU DEBVOLSQ 02682000 DEBDSNM EQU DEBACSMD+4 02683000 DEBUTSAA EQU DEBDSNM 02684000 DEBACS01 EQU 0 02685000 DEBDSNAM EQU DEBACS01 02686000 DEBACS02 EQU 0 02687000 DEBDBLK EQU DEBACS02 02688000 DEBACS03 EQU 0 02689000 DEBACS04 EQU 0 02690000 DEBTBFRA EQU DEBACS04 02691000 DEBTCCWA EQU DEBACS04+4 02692000 DEBACS05 EQU 0 02693000 DEBFUCBA EQU DEBACS05 02694000 DEBLUCBA EQU DEBACS05+4 02695000 DEBACS06 EQU 0 02696000 DEBACS07 EQU 0 02697000 DEBACS08 EQU 0 02698000 DEBSUBNM EQU 0 02699000 DEB EQU 0 02700000 DEBAVT EQU DEB 02701000 DEBEOEA EQU DEBAVT 02702000 DEBEOEAB EQU DEBEOEA 02703000 DEBSIOA EQU DEBAVT+4 02704000 DEBSIOAB EQU DEBSIOA 02705000 DEBPCIA EQU DEBAVT+8 02706000 DEBPCIAB EQU DEBPCIA 02707000 DEBCEA EQU DEBAVT+12 02708000 DEBCEAB EQU DEBCEA 02709000 DEBXCEA EQU DEBAVT+16 02710000 DEBXCEAB EQU DEBXCEA 02711000 DEBPREFX EQU DEB+20 02712000 DEBXTNP EQU DEBPREFX+8 02713000 DEBXTN EQU 0 02714000 DEBXFLG1 EQU DEBXTN+2 02715000 APCT EQU 0 02716000 APCTENQM EQU APCT+12 02717000 APCTSSID EQU APCTENQM+4 02718000 APCTSMIN EQU APCT+32 02719000 APCTSMAD EQU APCT+36 02720000 APCTZ@@@ EQU APCT+40 02721000 APCTU@@@ EQU APCT+440 02722000 APCTBR14 EQU APCT+840 02723000 APCTERRS EQU APCT+876 02724000 APCTERT0 EQU APCTERRS+2 02725000 APCTERTA EQU APCTERRS+12 02726000 APCTASCB EQU APCT+920 02727000 @NM00049 EQU APCT+936 02728000 APCTSTAT EQU @NM00049 02729000 APCTPRSW EQU @NM00049+1 02730000 APCTAPCQ EQU APCT+944 02731000 APCTCQAQ EQU APCT+952 02732000 APCTEULD EQU APCT+972 02733000 APCTEIPL EQU APCT+1000 02734000 APCTZ@@1 EQU APCT+1120 02735000 APCTNDMP EQU APCT+1530 02736000 APCVZUBB EQU 0 02737000 APDS EQU 0 02738000 APDSTD EQU APDS+16 02739000 APDSFLGS EQU APDS+64 02740000 APDSFLG0 EQU APDSFLGS 02741000 APDSFLG1 EQU APDSFLGS+1 02742000 APDSJBNM EQU APDS+84 02743000 APDX EQU 0 02744000 APDXAPDS EQU APDX+12 02745000 APDX252A EQU APDX+28 02746000 APDXDXL EQU APDX+32 02747000 APDXNDMP EQU APDX+48 02748000 APDXSWS EQU APDX+130 02749000 APDXSW0 EQU APDXSWS 02750000 APDXSW1 EQU APDXSWS+1 02751000 APIO EQU 0 02752000 APIOIOCB EQU APIO 02753000 APIOAPUB EQU APIO+204 02754000 APIOVCSW EQU APIO+208 02755000 APIODEB EQU APIO+216 02756000 APIOOLAP EQU APIO+244 02757000 APIOFLGS EQU APIO+248 02758000 APIOFLGA EQU APIOFLGS 02759000 APIOFLG0 EQU APIOFLGA 02760000 APIOFLG2 EQU APIOFLGA+2 02761000 APIOEXCL EQU APIOFLG2 02762000 APIOVSNS EQU APIOFLG2 02763000 APIOVINX EQU APIOFLG2 02764000 APIODUMP EQU APIOFLG2 02765000 APIODMPT EQU APIOFLG2 02766000 APIOFLG3 EQU APIOFLGA+3 02767000 APIOFLGB EQU APIOFLGS+4 02768000 APIOFLG7 EQU APIOFLGB+3 02769000 APIOSNSE EQU APIO+256 02770000 APIOINDX EQU APIO+288 02771000 APIOSAVE EQU APIOINDX 02772000 APIOTR EQU APIO+360 02773000 APIOGMSZ EQU APIO+376 02774000 APIONBR EQU APIO+384 02775000 APUB EQU 0 02776000 APUBAPCT EQU APUB+20 02777000 APUBERRS EQU APUB+52 02778000 APUBERR0 EQU APUBERRS+2 02779000 APUBERRA EQU APUBERRS+12 02780000 APUBALFG EQU APUB+80 02781000 APUBALF0 EQU APUBALFG 02782000 APUBALF1 EQU APUBALFG+1 02783000 APUBBERR EQU APUBALF1 02784000 APUBDSBP EQU APUBALF1 02785000 APUBALF2 EQU APUBALFG+2 02786000 APUBALF3 EQU APUBALFG+3 02787000 APUBSTAT EQU APUB+84 02788000 APUBFDMP EQU APUBSTAT 02789000 APUBPDMP EQU APUBSTAT 02790000 APUBIOFG EQU APUB+88 02791000 APUBIOF0 EQU APUBIOFG 02792000 APUBIOF1 EQU APUBIOFG+1 02793000 APUBIERR EQU APUBIOF1 02794000 APUBIIPL EQU APUBIOF1 02795000 APUBIOF2 EQU APUBIOFG+2 02796000 APUBIOF3 EQU APUBIOFG+3 02797000 APUBDCB EQU APUB+96 02798000 APUBJBNM EQU APUB+104 02799000 ERRORS EQU 0 02800000 TOTC EQU ERRORS 02801000 IOC EQU ERRORS+2 02802000 CNTLRC EQU ERRORS+4 02803000 PTOC EQU ERRORS+6 02804000 BSC EQU ERRORS+8 02805000 THRSHLDS EQU 0 02806000 TOTT EQU THRSHLDS 02807000 IOT EQU THRSHLDS+2 02808000 CNTLRT EQU THRSHLDS+4 02809000 PTOT EQU THRSHLDS+6 02810000 BST EQU THRSHLDS+8 02811000 I256C EQU 0 02812000 I015F EQU 0 02813000 APCVZDAL EQU 0 02814000 APCVZDAP EQU 0 02815000 APCVZDBK EQU 0 02816000 APCVZDDA EQU 0 02817000 APCVZDDQ EQU 0 02818000 APCVZDEQ EQU 0 02819000 APCVZDID EQU 0 02820000 APCVZDIO EQU 0 02821000 APCVZDIP EQU 0 02822000 APCVZDMD EQU 0 02823000 APCVZDMM EQU 0 02824000 APCVZDQR EQU 0 02825000 APCVZDRI EQU 0 02826000 APCVZDUA EQU 0 02827000 APCVZDUL EQU 0 02828000 APCVZDWI EQU 0 02829000 APCVZDWT EQU 0 02830000 APCVZDX1 EQU 0 02831000 APCVZDX2 EQU 0 02832000 APCVZDX3 EQU 0 02833000 APCVZDX4 EQU 0 02834000 APCVZD10 EQU 0 02835000 APCVZD20 EQU 0 02836000 APCVZD4E EQU 0 02837000 APCVZD40 EQU 0 02838000 APCVZD41 EQU 0 02839000 APCVZD42 EQU 0 02840000 APCVZD43 EQU 0 02841000 APCVZD44 EQU 0 02842000 APCVZD45 EQU 0 02843000 APCVZD46 EQU 0 02844000 APCVZD47 EQU 0 02845000 APCVZD48 EQU 0 02846000 APCVZD49 EQU 0 02847000 APCVZD60 EQU 0 02848000 APCVZD80 EQU 0 02849000 APCVZD81 EQU 0 02850000 APCVZD82 EQU 0 02851000 APCVZD83 EQU 0 02852000 APCVZJAA EQU 0 02853000 APCVZJAD EQU 0 02854000 APCVZJAG EQU 0 02855000 APCVZJAJ EQU 0 02856000 APCVZJAM EQU 0 02857000 APCVZJAP EQU 0 02858000 APCVZJAX EQU 0 02859000 APCVZJAY EQU 0 02860000 APCVZJBA EQU 0 02861000 APCVZJBD EQU 0 02862000 APCVZJBG EQU 0 02863000 APCVZJBJ EQU 0 02864000 APCVZJBM EQU 0 02865000 APCVZJDA EQU 0 02866000 APCVZJDD EQU 0 02867000 APCVZJDG EQU 0 02868000 APCVZJDJ EQU 0 02869000 APCVZJDM EQU 0 02870000 APCVZJHC EQU 0 02871000 APCVZJHE EQU 0 02872000 APCVZJHF EQU 0 02873000 APCVZJHO EQU 0 02874000 APCVZJHQ EQU 0 02875000 APCVZJHR EQU 0 02876000 APCVZJHT EQU 0 02877000 APCVZJHW EQU 0 02878000 APCVZJH0 EQU 0 02879000 APCVZJH6 EQU 0 02880000 APCVZJI0 EQU 0 02881000 APCVZJI3 EQU 0 02882000 APCVZJJ0 EQU 0 02883000 APCVZKAA EQU 0 02884000 APCVZKBA EQU 0 02885000 APCVZKBB EQU 0 02886000 APCVZKBC EQU 0 02887000 APCVZKBD EQU 0 02888000 APCVZKBE EQU 0 02889000 APCVZKBF EQU 0 02890000 APCVZKCA EQU 0 02891000 APCVZKDA EQU 0 02892000 APCVZKGA EQU 0 02893000 APCVZKGB EQU 0 02894000 APCVZKGC EQU 0 02895000 APCVZKGD EQU 0 02896000 APCVZLCA EQU 0 02897000 APCVZLCB EQU 0 02898000 APCVZMBA EQU 0 02899000 APCVZMBD EQU 0 02900000 APCVZMBG EQU 0 02901000 APCVZMBH EQU 0 02902000 APCVZMBK EQU 0 02903000 APCVZMBM EQU 0 02904000 APCVZMIB EQU 0 02905000 APCVZMIC EQU 0 02906000 APCVZMIF EQU 0 02907000 APCVZMJB EQU 0 02908000 APCVZMJC EQU 0 02909000 APCVZMJH EQU 0 02910000 APCVZMJI EQU 0 02911000 APCVZMMA EQU 0 02912000 APCVZUAA EQU 0 02913000 APCVZUAB EQU 0 02914000 APCVZUAC EQU 0 02915000 APCVZUAD EQU 0 02916000 APCVZUAE EQU 0 02917000 APCVZUAF EQU 0 02918000 APCVZUAG EQU 0 02919000 APCVZUFA EQU 0 02920000 APCVZUHA EQU 0 02921000 APCVZUHB EQU 0 02922000 APCVZUJA EQU 0 02923000 APCVZUKA EQU 0 02924000 APCV1CMD EQU 0 02925000 APCV1JAA EQU 0 02926000 APCV1JBJ EQU 0 02927000 APCV1JHC EQU 0 02928000 APCV1JHL EQU 0 02929000 APCV1JHT EQU 0 02930000 APCV1MAB EQU 0 02931000 APCV1MBD EQU 0 02932000 APCV2JHC EQU 0 02933000 APCV2JHL EQU 0 02934000 APCV2MBD EQU 0 02935000 I001C EQU 0 02936000 I008P EQU 0 02937000 I015P EQU 0 02938000 I031F EQU 0 02939000 I031P EQU 0 02940000 UCBBGN EQU 0 02941000 INCHAR EQU 0 02942000 CSW EQU IOSTATUS 02943000 CSWUCK EQU CSW 02944000 CSWCDC EQU CSW+1 02945000 CSWCCC EQU CSW+1 02946000 CSWICC EQU CSW+1 02947000 @NM00001 EQU EWACNTR1 02948000 PREV EQU @NM00001 02949000 PREVUNIT EQU @NM00001 02950000 DUMPREQ EQU @NM00001 02951000 KEYSAVED EQU @NM00001 02952000 RESTART EQU @NM00001 02953000 PREVLEN EQU @NM00001 02954000 RETRY EQU @NM00001 02955000 REGS EQU APIOINDX 02956000 MYCSW EQU IOSCC 02957000 MYSENSE EQU APSN 02958000 UCBPTR EQU IOSUCB 02959000 EWAFAREA EQU EWAIERP+32 02960000 CCWS EQU EWAFAREA 02961000 CCW1 EQU CCWS 02962000 CCW2 EQU CCWS+8 02963000 CCW2ADDR EQU CCW2+1 02964000 CCW3 EQU CCWS+16 02965000 SAVEVCSW EQU EWAFAREA+24 02966000 DYNPTR EQU EWAFAREA+32 02967000 SPSIZE EQU EWAFAREA+36 02968000 DSP EQU SPSIZE 02969000 DSIZE EQU SPSIZE+1 02970000 PARMPTR EQU EWAFAREA+52 02971000 SAVEKEY EQU EWAFAREA+56 02972000 CVTS01 EQU CVTPGSIA 02973000 CVTLPDIA EQU CVTS01+12 02974000 CVTDIRST EQU CVTLPDIA 02975000 CVTSLIDA EQU CVTS01+24 02976000 CVTCTLFG EQU CVTS01+50 02977000 CVTRV210 EQU CVTS01+424 02978000 CVTRV219 EQU CVTS01+425 02979000 CVTRV228 EQU CVTS01+426 02980000 CVTRV237 EQU CVTS01+427 02981000 CVTMFRTR EQU CVTS01+452 02982000 CVTRV262 EQU CVTS01+468 02983000 CVTRV271 EQU CVTS01+469 02984000 CVTRV280 EQU CVTS01+470 02985000 CVTRV289 EQU CVTS01+471 02986000 CVTGSDA EQU CVTS01+600 02987000 EWADDIOS EQU EWAIERP 02988000 IOSATTSC EQU IOSIPIB 02989000 IOSWTOWA EQU IOSIPIB 02990000 IOSPCISC EQU IOSIPIB 02991000 UCBOBS01 EQU UCBDEV 02992000 UCBSTAB EQU UCBOBS01+10 02993000 UCBBSVL EQU UCBSTAB 02994000 UCBPRSRS EQU UCBSTAB 02995000 UCBDMCT EQU UCBOBS01+11 02996000 UCBFL4 EQU UCBOBS01+13 02997000 UCBOBS02 EQU UCBDEV 02998000 UCBTFL1 EQU UCBOBS02+19 02999000 UCBXTN EQU UCBOBS02+20 03000000 UCBVOPT EQU UCBXTN 03001000 UCBOBS03 EQU UCBDEV 03002000 UCBXTADR EQU UCBOBS03 03003000 UCBOBS04 EQU UCBDEV 03004000 UCBBTA EQU UCBOBS04+12 03005000 UCBOBS06 EQU UCBDEV 03006000 UCBAOF EQU UCBOBS06 03007000 UCBAOF1 EQU UCBAOF 03008000 UCBAOF2 EQU UCBAOF+1 03009000 @NM00032 EQU UCBOBS06+3 03010000 UCBIRB EQU UCBOBS06+4 03011000 UCBGRAF EQU UCBIRB 03012000 UCBLDNCA EQU UCBOBS06+8 03013000 UCBRDYQ EQU UCBLDNCA 03014000 UCBIRLN EQU UCBRDYQ 03015000 UCBLDNCB EQU UCBRDYQ+1 03016000 UCBCTLNK EQU UCBOBS06+12 03017000 UCBOBS07 EQU UCBDEV 03018000 UCBOBS08 EQU UCBDEV 03019000 UCBCTCAD EQU UCBOBS08 03020000 UCBCTCF1 EQU UCBOBS08+4 03021000 UCBOBS09 EQU UCBDEV 03022000 DEBBAS02 EQU DEBBASND 03023000 DEBDDS1 EQU DEBBAS02 03024000 DEBSUCBA EQU DEBDDS1 03025000 DEBDEVED EQU DEBDDS1+4 03026000 DEBRDCB EQU DEBDDS1+4 03027000 DEBPDCB EQU DEBDDS1+8 03028000 DEBWDCB EQU DEBDDS1+12 03029000 DEBACS09 EQU DEBDEVED 03030000 DEBASC09 EQU DEBACS09 03031000 DEBEAMFG EQU DEBASC09+3 03032000 DEBDSID EQU DEBASC09+4 03033000 DEBEOD EQU DEBASC09+12 03034000 DEBBOE EQU DEBEOD 03035000 DEBEODRV EQU DEBBOE 03036000 DEBEODTT EQU DEBBOE+1 03037000 DEBEOD0 EQU DEBBOE+2 03038000 DEBEODSS EQU DEBBOE+3 03039000 DEBBAS01 EQU DEBBASND 03040000 DEBISAM EQU DEBBAS01 03041000 DEBFIEAD EQU DEBISAM 03042000 DEBFPEAD EQU DEBISAM+4 03043000 DEBFOEAD EQU DEBISAM+8 03044000 DEBEXPT EQU DEBISAM+12 03045000 DEBRPSID EQU DEBEXPT 03046000 APCTZ EQU APCTZ@@@ 03047000 APCTZUAA EQU APCTZ 03048000 APCTZUAB EQU APCTZ+4 03049000 APCTZUAC EQU APCTZ+8 03050000 APCTZUAD EQU APCTZ+12 03051000 APCTZUAE EQU APCTZ+16 03052000 APCTZUBB EQU APCTZ+24 03053000 APCTZD10 EQU APCTZ+28 03054000 APCTZD20 EQU APCTZ+32 03055000 APCTZD40 EQU APCTZ+36 03056000 APCTZD41 EQU APCTZ+40 03057000 APCTZD42 EQU APCTZ+44 03058000 APCTZD43 EQU APCTZ+48 03059000 APCTZD44 EQU APCTZ+52 03060000 APCTZD45 EQU APCTZ+56 03061000 APCTZD46 EQU APCTZ+60 03062000 APCTZD47 EQU APCTZ+64 03063000 APCTZD48 EQU APCTZ+68 03064000 APCTZD49 EQU APCTZ+72 03065000 APCTZD60 EQU APCTZ+76 03066000 APCTZD80 EQU APCTZ+80 03067000 APCTZD4E EQU APCTZ+84 03068000 APCTZMBA EQU APCTZ+88 03069000 APCTZMBD EQU APCTZ+92 03070000 APCTZMBG EQU APCTZ+96 03071000 APCTZDX1 EQU APCTZ+104 03072000 APCTZDX2 EQU APCTZ+108 03073000 APCTZDX3 EQU APCTZ+112 03074000 APCTZDX4 EQU APCTZ+116 03075000 APCTZMBH EQU APCTZ+120 03076000 APCTZMBK EQU APCTZ+124 03077000 APCTZMBM EQU APCTZ+128 03078000 APCTZMJB EQU APCTZ+132 03079000 APCTZMJC EQU APCTZ+136 03080000 APCTZMJH EQU APCTZ+140 03081000 APCTZMMA EQU APCTZ+144 03082000 APCTZDMD EQU APCTZ+148 03083000 APCTZD81 EQU APCTZ+152 03084000 APCTZDID EQU APCTZ+156 03085000 APCTZDRI EQU APCTZ+160 03086000 APCTZMJI EQU APCTZ+164 03087000 APCTZDWT EQU APCTZ+168 03088000 APCTZDMM EQU APCTZ+172 03089000 APCTZDAL EQU APCTZ+176 03090000 APCTZDBK EQU APCTZ+180 03091000 APCTZDIP EQU APCTZ+184 03092000 APCTZDDA EQU APCTZ+188 03093000 APCTZDUL EQU APCTZ+192 03094000 APCTZDEQ EQU APCTZ+196 03095000 APCTZDDQ EQU APCTZ+200 03096000 APCTZDUA EQU APCTZ+204 03097000 APCTZUAF EQU APCTZ+208 03098000 APCTZUAG EQU APCTZ+212 03099000 APCTZDIO EQU APCTZ+216 03100000 APCTZUHA EQU APCTZ+220 03101000 APCTZUHB EQU APCTZ+224 03102000 APCTZJAA EQU APCTZ+232 03103000 APCTZJAD EQU APCTZ+236 03104000 APCTZJAG EQU APCTZ+240 03105000 APCTZJAJ EQU APCTZ+244 03106000 APCTZJAM EQU APCTZ+248 03107000 APCTZJAP EQU APCTZ+252 03108000 APCTZJAY EQU APCTZ+256 03109000 APCTZUFA EQU APCTZ+260 03110000 APCTZUJA EQU APCTZ+264 03111000 APCTZDAP EQU APCTZ+268 03112000 APCTZKAA EQU APCTZ+272 03113000 APCTZD82 EQU APCTZ+276 03114000 APCTZMIB EQU APCTZ+280 03115000 APCTZMIC EQU APCTZ+284 03116000 APCTZD83 EQU APCTZ+288 03117000 APCTZMIF EQU APCTZ+296 03118000 APCTZJH0 EQU APCTZ+300 03119000 APCTZJI0 EQU APCTZ+304 03120000 APCTZJI3 EQU APCTZ+308 03121000 APCTZJJ0 EQU APCTZ+312 03122000 APCTZJBA EQU APCTZ+316 03123000 APCTZJBD EQU APCTZ+320 03124000 APCTZJBG EQU APCTZ+324 03125000 APCTZJBJ EQU APCTZ+328 03126000 APCTZJBM EQU APCTZ+332 03127000 APCTZKCA EQU APCTZ+340 03128000 APCTZKDA EQU APCTZ+344 03129000 APCTZJDA EQU APCTZ+356 03130000 APCTZJDJ EQU APCTZ+360 03131000 APCTZJH6 EQU APCTZ+364 03132000 APCTZJHO EQU APCTZ+368 03133000 APCTZJHF EQU APCTZ+372 03134000 APCTZJHE EQU APCTZ+376 03135000 APCTZDQR EQU APCTZ+380 03136000 APCTZJHR EQU APCTZ+384 03137000 APCTZJHT EQU APCTZ+388 03138000 APCTZJHW EQU APCTZ+392 03139000 APCTZ1 EQU APCTZ@@1 03140000 APCTZKBA EQU APCTZ1 03141000 APCTZKBC EQU APCTZ1+4 03142000 APCTZKBB EQU APCTZ1+8 03143000 APCTZJHC EQU APCTZ1+20 03144000 APCTZJHQ EQU APCTZ1+24 03145000 APCTZKBD EQU APCTZ1+28 03146000 APCTZKBE EQU APCTZ1+40 03147000 APCTZUKA EQU APCTZ1+56 03148000 APCTZKBF EQU APCTZ1+60 03149000 APCTZJDD EQU APCTZ1+64 03150000 APCTZJDG EQU APCTZ1+68 03151000 APCTZJDM EQU APCTZ1+72 03152000 APCTZLCA EQU APCTZ1+76 03153000 APCTZLCB EQU APCTZ1+80 03154000 APCTZDWI EQU APCTZ1+84 03155000 APCTZJAX EQU APCTZ1+88 03156000 APCTZKGA EQU APCTZ1+92 03157000 APCTZKGB EQU APCTZ1+96 03158000 APCTZKGC EQU APCTZ1+100 03159000 APCTZKGD EQU APCTZ1+104 03160000 APCTU EQU APCTU@@@ 03161000 APCT1MAB EQU APCTU 03162000 APCT1MBD EQU APCTU+4 03163000 APCT2MBD EQU APCTU+8 03164000 APCT1CMD EQU APCTU+12 03165000 APCT1JAA EQU APCTU+20 03166000 APCT1JHC EQU APCTU+24 03167000 APCT2JHC EQU APCTU+28 03168000 APCT1JHT EQU APCTU+32 03169000 APCT1JHL EQU APCTU+36 03170000 APCT2JHL EQU APCTU+40 03171000 APCT1JBJ EQU APCTU+44 03172000 @NM00102 EQU APIOIOCB 03173000 @NM00103 EQU APIOIOCB 03174000 APSNFMT0 EQU APSNFMTD 03175000 APSNPRTY EQU APSNFMT0 03176000 APSNPBS EQU APSNPRTY 03177000 APSNADCK EQU APSNFMT0+1 03178000 APSNCPST EQU APSNFMT0+2 03179000 APSNAEST EQU APSNFMT0+3 03180000 APSNXCPS EQU APSNFMT0+4 03181000 APSNXCP0 EQU APSNXCPS 03182000 APSNXCP1 EQU APSNXCPS+1 03183000 APSNFMT1 EQU APSNFMTD 03184000 APSNPMES EQU APSNFMT1+2 03185000 APSNFMT2 EQU APSNFMTD 03186000 APSNDDST EQU APSNFMT2 03187000 APSNDDS0 EQU APSNDDST 03188000 APSNDDS1 EQU APSNDDST+1 03189000 APSNAECK EQU APSNFMT2+2 03190000 APSNAEC0 EQU APSNAECK 03191000 APSNAEC1 EQU APSNAECK+1 03192000 APSNFMT4 EQU APSNFMTD 03193000 APSN4IOS EQU APSNFMT4+1 03194000 APSN4IO0 EQU APSN4IOS 03195000 APSN4IO1 EQU APSN4IOS+1 03196000 APSN4IO2 EQU APSN4IOS+2 03197000 APSN4CPC EQU APSNFMT4+4 03198000 APSN4CMC EQU APSNFMT4+6 03199000 APSN4CM0 EQU APSN4CMC 03200000 APSN4CM1 EQU APSN4CMC+1 03201000 PSARSVTE EQU PSARSVT 03202000 FLC EQU PSA 03203000 AGO .@UNREFD START UNREFERENCED COMPONENTS 03204000 PSARSAV EQU PSARSVTE+60 03205000 PSARSTK EQU PSARSVTE+56 03206000 PSAESAV3 EQU PSARSVTE+52 03207000 PSAESTK3 EQU PSARSVTE+48 03208000 PSAESAV2 EQU PSARSVTE+44 03209000 PSAESTK2 EQU PSARSVTE+40 03210000 PSAESAV1 EQU PSARSVTE+36 03211000 PSAESTK1 EQU PSARSVTE+32 03212000 PSAPSAV EQU PSARSVTE+28 03213000 PSAPSTK EQU PSARSVTE+24 03214000 PSAMSAV EQU PSARSVTE+20 03215000 PSAMSTK EQU PSARSVTE+16 03216000 PSASSAV EQU PSARSVTE+12 03217000 PSASSTK EQU PSARSVTE+8 03218000 PSANSTK EQU PSARSVTE+4 03219000 PSACSTK EQU PSARSVTE 03220000 APSN4CIC EQU APSNFMT4+14 03221000 @NM00115 EQU APSNFMT4+12 03222000 APSN4CAR EQU APSNFMT4+10 03223000 APSN4CDA EQU APSNFMT4+8 03224000 @NM00114 EQU APSN4CM1 03225000 APSN4EBT EQU APSN4CM1 03226000 APSN4IAD EQU APSN4CM1 03227000 APSN4IAI EQU APSN4CM1 03228000 @NM00113 EQU APSN4CM1 03229000 APSN4SPD EQU APSN4CM1 03230000 APSN4SPI EQU APSN4CM1 03231000 APSN4CSP EQU APSN4CM0 03232000 APSN4BPW EQU APSN4CM0 03233000 APSN4BPR EQU APSN4CM0 03234000 @NM00112 EQU APSN4CM0 03235000 APSN4CMS EQU APSNFMT4+5 03236000 @NM00111 EQU APSN4CPC 03237000 APSN4IVI EQU APSN4CPC 03238000 APSN4IVA EQU APSN4CPC 03239000 APSN4DVZ EQU APSN4CPC 03240000 APSN4EQC EQU APSN4CPC 03241000 APSN4IMB EQU APSN4CPC 03242000 @NM00110 EQU APSN4CPC 03243000 APSN4ONL EQU APSN4IO2 03244000 APSN4STN EQU APSN4IO2 03245000 APSN4ACK EQU APSN4IO2 03246000 APSN4DCK EQU APSN4IO2 03247000 APSN4STP EQU APSN4IO2 03248000 APSN4SO EQU APSN4IO2 03249000 APSN4BOP EQU APSN4IO2 03250000 APSN4CR EQU APSN4IO2 03251000 APSN4IDC EQU APSN4IO1 03252000 APSN4SR EQU APSN4IO1 03253000 APSN4DI EQU APSN4IO1 03254000 APSN4CSY EQU APSN4IO1 03255000 APSN4CPR EQU APSN4IO1 03256000 APSN4SNS EQU APSN4IO1 03257000 APSN4WRT EQU APSN4IO1 03258000 APSN4RD EQU APSN4IO1 03259000 APSN4BSY EQU APSN4IO0 03260000 APSN4SM EQU APSN4IO0 03261000 APSN4UC EQU APSN4IO0 03262000 APSN4CE EQU APSN4IO0 03263000 APSN4IDS EQU APSN4IO0 03264000 @NM00109 EQU APSN4IO0 03265000 APSN4SID EQU APSNFMT4 03266000 APSNBRCT EQU APSNFMT2+4 03267000 APSNAC15 EQU APSNAEC1 03268000 APSNAC14 EQU APSNAEC1 03269000 APSNAC13 EQU APSNAEC1 03270000 APSNAC12 EQU APSNAEC1 03271000 APSNAC11 EQU APSNAEC1 03272000 APSNAC10 EQU APSNAEC1 03273000 APSNAC09 EQU APSNAEC1 03274000 APSNAC08 EQU APSNAEC1 03275000 APSNAC07 EQU APSNAEC0 03276000 APSNAC06 EQU APSNAEC0 03277000 APSNAC05 EQU APSNAEC0 03278000 APSNAC04 EQU APSNAEC0 03279000 APSNAC03 EQU APSNAEC0 03280000 @NM00108 EQU APSNAEC0 03281000 APSNASTP EQU APSNDDS1 03282000 APSNCNVT EQU APSNDDS1 03283000 APSNBSLM EQU APSNDDS1 03284000 APSNXDVZ EQU APSNDDS1 03285000 APSNXOVF EQU APSNDDS1 03286000 APSNXBR EQU APSNDDS0 03287000 APSNIBR EQU APSNDDS0 03288000 APSNICPM EQU APSNDDS0 03289000 APSNICOP EQU APSNDDS0 03290000 APSNCILM EQU APSNDDS0 03291000 APSNCIOV EQU APSNDDS0 03292000 APSNIOLN EQU APSNDDS0 03293000 APSNIOLM EQU APSNDDS0 03294000 APSNPMDT EQU APSNPMES 03295000 APSNPMBS EQU APSNPMES 03296000 APSNPMAE EQU APSNPMES 03297000 APSNPMCP EQU APSNPMES 03298000 APSNPMEC EQU APSNFMT1+1 03299000 APSNPMXC EQU APSNFMT1 03300000 APSNIOCW EQU APSNFMT0+12 03301000 APSNCPAR EQU APSNFMT0+10 03302000 APSNCPIC EQU APSNFMT0+8 03303000 APSNPGNR EQU APSNFMT0+6 03304000 @NM00107 EQU APSNXCP1 03305000 APSNXIBS EQU APSNXCP1 03306000 APSNXSIE EQU APSNXCP1 03307000 APSNXIRA EQU APSNXCP1 03308000 APSNXAFC EQU APSNXCP0 03309000 APSNXAEI EQU APSNXCP0 03310000 APSNXTCB EQU APSNXCP0 03311000 APSNXDTI EQU APSNXCP0 03312000 APSNXIOC EQU APSNXCP0 03313000 APSNXIOI EQU APSNXCP0 03314000 APSNXCDZ EQU APSNXCP0 03315000 APSNXINS EQU APSNXCP0 03316000 APSNWSC EQU APSNAEST 03317000 APSNAINS EQU APSNAEST 03318000 APSNEDBO EQU APSNCPST 03319000 APSNEDBR EQU APSNCPST 03320000 APSNEDBT EQU APSNCPST 03321000 APSNCINS EQU APSNCPST 03322000 APSNACPP EQU APSNADCK 03323000 APSNABS EQU APSNADCK 03324000 APSNPAWC EQU APSNPRTY 03325000 APSNPAEW EQU APSNPRTY 03326000 APSNPCPC EQU APSNPRTY 03327000 APSNPCPP EQU APSNPRTY 03328000 APIOIOB EQU @NM00103+160 03329000 @NM00104 EQU @NM00103 03330000 APIOSRB EQU @NM00102+128 03331000 APIOIOSB EQU @NM00102 03332000 @NM00081 EQU APCTU+48 03333000 APCT1MBM EQU APCTU+16 03334000 @NM00080 EQU APCTZ1+108 03335000 @NM00079 EQU APCTZ1+52 03336000 @NM00078 EQU APCTZ1+48 03337000 @NM00077 EQU APCTZ1+44 03338000 @NM00076 EQU APCTZ1+36 03339000 @NM00075 EQU APCTZ1+32 03340000 @NM00074 EQU APCTZ1+16 03341000 @NM00073 EQU APCTZ1+12 03342000 @NM00072 EQU APCTZ+396 03343000 @NM00071 EQU APCTZ+352 03344000 @NM00070 EQU APCTZ+348 03345000 @NM00069 EQU APCTZ+336 03346000 @NM00068 EQU APCTZ+292 03347000 APCTZJFA EQU APCTZ+228 03348000 APCTZMBR EQU APCTZ+100 03349000 @NM00067 EQU APCTZ+20 03350000 DEBEXPTA EQU DEBEXPT+1 03351000 DEBRSV12 EQU DEBRPSID 03352000 DEBRSV11 EQU DEBRPSID 03353000 DEBRSV10 EQU DEBRPSID 03354000 DEBRSV09 EQU DEBRPSID 03355000 DEBRPSAP EQU DEBRPSID 03356000 DEBRPSO EQU DEBRPSID 03357000 DEBRPSI EQU DEBRPSID 03358000 DEBRPSP EQU DEBRPSID 03359000 DEBFOEB EQU DEBFOEAD+1 03360000 DEBNOEE EQU DEBFOEAD 03361000 DEBFPEB EQU DEBFPEAD+1 03362000 DEBNPEE EQU DEBFPEAD 03363000 DEBFIEB EQU DEBFIEAD+1 03364000 DEBNIEE EQU DEBFIEAD 03365000 DEBBOESS EQU DEBEODSS 03366000 DEBBOE0 EQU DEBEOD0 03367000 DEBBOETT EQU DEBEODTT 03368000 DEBBOERV EQU DEBEODRV 03369000 DEBRV008 EQU DEBDSID+7 03370000 DEBWTPTI EQU DEBDSID+6 03371000 DEBEXDTE EQU DEBDSID 03372000 DEBRV007 EQU DEBEAMFG 03373000 DEBRV006 EQU DEBEAMFG 03374000 DEBRV005 EQU DEBEAMFG 03375000 DEBRV004 EQU DEBEAMFG 03376000 DEBSECVL EQU DEBEAMFG 03377000 DEBVAMSG EQU DEBEAMFG 03378000 DEBDSOPN EQU DEBEAMFG 03379000 DEBMULTI EQU DEBEAMFG 03380000 DEBVSEQU EQU DEBASC09+2 03381000 DEBDSSQL EQU DEBASC09+1 03382000 DEBVOLAC EQU DEBASC09 03383000 DEBWDCBA EQU DEBWDCB+1 03384000 DEBRSV08 EQU DEBWDCB 03385000 DEBPDCBA EQU DEBPDCB+1 03386000 DEBRSV07 EQU DEBPDCB 03387000 DEBRDCBA EQU DEBRDCB+1 03388000 DEBRSV06 EQU DEBRDCB 03389000 DEBSUCBB EQU DEBSUCBA+1 03390000 DEBSDVM EQU DEBSUCBA 03391000 UCBRV066 EQU UCBOBS09+4 03392000 UCBIOSBA EQU UCBOBS09 03393000 UCBRV042 EQU UCBOBS08+5 03394000 UCBRV082 EQU UCBCTCF1 03395000 UCBRV081 EQU UCBCTCF1 03396000 UCBRV080 EQU UCBCTCF1 03397000 UCBRV079 EQU UCBCTCF1 03398000 UCBRV078 EQU UCBCTCF1 03399000 UCBRV077 EQU UCBCTCF1 03400000 UCBRV076 EQU UCBCTCF1 03401000 UCBCTC80 EQU UCBCTCF1 03402000 UCBCTCAL EQU UCBCTCAD 03403000 UCBICNCB EQU UCBOBS07+4 03404000 UCBRV040 EQU UCBOBS07 03405000 UCBCTLNA EQU UCBCTLNK+1 03406000 UCBRLN EQU UCBCTLNK 03407000 UCBRDYQA EQU UCBLDNCB 03408000 UCBINRLN EQU UCBIRLN 03409000 UCBIRBA EQU UCBIRB+1 03410000 UCBRV039 EQU UCBGRAF 03411000 UCBDWNR EQU UCBGRAF 03412000 UCBRPND EQU UCBGRAF 03413000 UCBUPM EQU UCBGRAF 03414000 UCBBTAM EQU UCBGRAF 03415000 UCBDRNO EQU UCBGRAF 03416000 UCBDRO EQU UCBGRAF 03417000 UCBOIP EQU UCBGRAF 03418000 UCBATRCD EQU @NM00032 03419000 UCBSKPFG EQU @NM00032 03420000 UCBRIPND EQU @NM00032 03421000 UCBRTIAC EQU @NM00032 03422000 UCBRSV79 EQU @NM00032 03423000 UCBRSV78 EQU @NM00032 03424000 UCBRSV77 EQU @NM00032 03425000 UCBOLTEP EQU @NM00032 03426000 UCBATNCT EQU UCBOBS06+2 03427000 UCBRSV76 EQU UCBAOF2 03428000 UCBRSV75 EQU UCBAOF2 03429000 UCBRSV74 EQU UCBAOF2 03430000 UCBRSV73 EQU UCBAOF2 03431000 UCBRSV72 EQU UCBAOF2 03432000 UCBRSV71 EQU UCBAOF2 03433000 UCBRSV70 EQU UCBAOF2 03434000 UCBRSV69 EQU UCBAOF2 03435000 UCBRSV68 EQU UCBAOF1 03436000 UCBRSV67 EQU UCBAOF1 03437000 UCBRSV66 EQU UCBAOF1 03438000 UCBRSV65 EQU UCBAOF1 03439000 UCBRSV64 EQU UCBAOF1 03440000 UCBOFNL EQU UCBAOF1 03441000 UCBOFSP EQU UCBAOF1 03442000 UCBOFMCR EQU UCBAOF1 03443000 UCBBTB EQU UCBBTA+1 03444000 UCBDI EQU UCBBTA 03445000 UCBSNS EQU UCBOBS04+8 03446000 UCBTEB EQU UCBOBS04+4 03447000 UCBGCB EQU UCBOBS04+3 03448000 UCBOPEN EQU UCBOBS04+2 03449000 UCBSTART EQU UCBOBS04 03450000 UCBXTNB EQU UCBXTN+1 03451000 UCBRSV22 EQU UCBVOPT 03452000 UCBRSV21 EQU UCBVOPT 03453000 UCBRSV20 EQU UCBVOPT 03454000 UCBESVE EQU UCBVOPT 03455000 UCBERPC EQU UCBVOPT 03456000 UCBESVC EQU UCBVOPT 03457000 UCBEVA EQU UCBVOPT 03458000 UCBESV EQU UCBVOPT 03459000 UCBRV009 EQU UCBTFL1 03460000 UCBRV008 EQU UCBTFL1 03461000 UCBRV007 EQU UCBTFL1 03462000 UCBRV006 EQU UCBTFL1 03463000 UCBRV005 EQU UCBTFL1 03464000 UCBDQDSP EQU UCBTFL1 03465000 UCBNSLTP EQU UCBTFL1 03466000 UCBNLTP EQU UCBTFL1 03467000 UCBRES1B EQU UCBOBS02+18 03468000 UCBFSER EQU UCBOBS02+12 03469000 @NM00031 EQU UCBOBS02+4 03470000 UCBFSEQ EQU UCBOBS02+2 03471000 UCBFSCT EQU UCBOBS02 03472000 UCBNEXP EQU UCBOBS01+20 03473000 UCBBASE EQU UCBOBS01+16 03474000 UCBRES1A EQU UCBOBS01+15 03475000 UCBUSER EQU UCBOBS01+14 03476000 UCBFL47 EQU UCBFL4 03477000 UCBMAT EQU UCBFL4 03478000 UCBHOLD EQU UCBFL4 03479000 UCBATTN EQU UCBFL4 03480000 UCBDSS EQU UCBFL4 03481000 UCBRESVP EQU UCBFL4 03482000 UCBWDAV EQU UCBFL4 03483000 UCBDAVV EQU UCBFL4 03484000 UCBSQC EQU UCBOBS01+12 03485000 UCBDATP EQU UCBOBS01+12 03486000 UCBDMC EQU UCBDMCT 03487000 UCBMOUNT EQU UCBDMCT 03488000 UCBBNUL EQU UCBSTAB 03489000 UCBSHAR EQU UCBSTAB 03490000 UCBBSTR EQU UCBSTAB 03491000 UCBBPUB EQU UCBSTAB 03492000 UCBBPRV EQU UCBSTAB 03493000 UCBBALB EQU UCBPRSRS 03494000 UCBPGFL EQU UCBSTAB 03495000 UCBDVSHR EQU UCBBSVL 03496000 UCBVOLI EQU UCBOBS01+4 03497000 UCBVTOC EQU UCBOBS01 03498000 IOSPCIWA EQU IOSPCISC+44 03499000 IOSPCIRS EQU IOSPCISC+8 03500000 @NM00029 EQU IOSPCISC+4 03501000 @NM00028 EQU IOSPCISC 03502000 IOSWRNDR EQU IOSWTOWA+4 03503000 IOSWTOPT EQU IOSWTOWA+3 03504000 IOSWTOCP EQU IOSWTOWA+2 03505000 IOSWTOCH EQU IOSWTOWA 03506000 IOSATTWA EQU IOSATTSC+40 03507000 @NM00027 EQU IOSATTSC+24 03508000 IOSATTSN EQU IOSATTSC 03509000 EWAEND EQU EWADDIOS+74 03510000 EWA2CHA EQU EWADDIOS+72 03511000 EWA2CPU EQU EWADDIOS+71 03512000 EWASCSW EQU EWADDIOS+64 03513000 EWASNS EQU EWADDIOS 03514000 CVTRV628 EQU CVTS01+728 03515000 CVTRV627 EQU CVTS01+724 03516000 CVTRV626 EQU CVTS01+720 03517000 CVTRV625 EQU CVTS01+716 03518000 CVTRV624 EQU CVTS01+712 03519000 CVTRV623 EQU CVTS01+708 03520000 CVTRV622 EQU CVTS01+704 03521000 CVTRV621 EQU CVTS01+700 03522000 CVTIHASU EQU CVTS01+696 03523000 CVTSUSP EQU CVTS01+692 03524000 CVTT6SVC EQU CVTS01+688 03525000 CVTCDAL EQU CVTS01+684 03526000 CVTTCTL EQU CVTS01+680 03527000 CVTRSUME EQU CVTS01+676 03528000 CVTJTERM EQU CVTS01+672 03529000 CVTASMRM EQU CVTS01+668 03530000 CVTTCASP EQU CVTS01+664 03531000 CVT0PT03 EQU CVTS01+660 03532000 CVT0PT0E EQU CVTS01+656 03533000 CVTRV609 EQU CVTS01+652 03534000 CVTCGK EQU CVTS01+648 03535000 CVTRAC EQU CVTS01+644 03536000 CVTRV606 EQU CVTS01+640 03537000 CVTRV605 EQU CVTS01+636 03538000 CVTRV604 EQU CVTS01+632 03539000 CVTEFF02 EQU CVTS01+628 03540000 CVTCBBR EQU CVTS01+624 03541000 CVTSSCR EQU CVTS01+620 03542000 CVTEVENT EQU CVTS01+616 03543000 CVTCRCA EQU CVTS01+612 03544000 CVTTPIO EQU CVTS01+608 03545000 CVTADV EQU CVTS01+604 03546000 CVTGSDAB EQU CVTGSDA 03547000 CVTQV3 EQU CVTS01+596 03548000 CVTQV2 EQU CVTS01+592 03549000 CVTQV1 EQU CVTS01+588 03550000 CVTRPT EQU CVTS01+584 03551000 CVTSSRB EQU CVTS01+580 03552000 CVTCSDRL EQU CVTS01+576 03553000 CVTEXP1 EQU CVTS01+572 03554000 CVTRMPMT EQU CVTS01+568 03555000 CVTRMPTT EQU CVTS01+564 03556000 CVTVPSA EQU CVTS01+560 03557000 CVTVSTOP EQU CVTS01+556 03558000 CVTGTFR8 EQU CVTS01+552 03559000 CVTQUIT EQU CVTS01+548 03560000 CVTVACR EQU CVTS01+544 03561000 CVTWTCB EQU CVTS01+540 03562000 CVTSTPRS EQU CVTS01+536 03563000 CVT0PT02 EQU CVTS01+532 03564000 CVTDARCM EQU CVTS01+528 03565000 CVTIRECM EQU CVTS01+524 03566000 CVTJRECM EQU CVTS01+520 03567000 CVTVEMS0 EQU CVTS01+516 03568000 CVTSPFRR EQU CVTS01+512 03569000 CVTRLSTG EQU CVTS01+508 03570000 CVT0TC0A EQU CVTS01+504 03571000 CVTGMBR EQU CVTS01+500 03572000 CVTLFRM EQU CVTS01+496 03573000 CVTRMBR EQU CVTS01+492 03574000 CVTVIOP EQU CVTS01+488 03575000 CVTRV307 EQU CVTS01+486 03576000 CVTRV306 EQU CVTS01+484 03577000 CVTRV305 EQU CVTS01+482 03578000 CVTRV304 EQU CVTS01+480 03579000 CVTRV303 EQU CVTS01+478 03580000 CVTRV302 EQU CVTS01+476 03581000 CVTTRCA EQU CVTS01+472 03582000 CVTRV297 EQU CVTRV289 03583000 CVTRV296 EQU CVTRV289 03584000 CVTRV295 EQU CVTRV289 03585000 CVTRV294 EQU CVTRV289 03586000 CVTRV293 EQU CVTRV289 03587000 CVTRV292 EQU CVTRV289 03588000 CVTRV291 EQU CVTRV289 03589000 CVTRV290 EQU CVTRV289 03590000 CVTRV288 EQU CVTRV280 03591000 CVTRV287 EQU CVTRV280 03592000 CVTRV286 EQU CVTRV280 03593000 CVTRV285 EQU CVTRV280 03594000 CVTRV284 EQU CVTRV280 03595000 CVTRV283 EQU CVTRV280 03596000 CVTRV282 EQU CVTRV280 03597000 CVTRV281 EQU CVTRV280 03598000 CVTRV279 EQU CVTRV271 03599000 CVTRV278 EQU CVTRV271 03600000 CVTRV277 EQU CVTRV271 03601000 CVTRV276 EQU CVTRV271 03602000 CVTRV275 EQU CVTRV271 03603000 CVTRV274 EQU CVTRV271 03604000 CVTRV273 EQU CVTRV271 03605000 CVTRV272 EQU CVTRV271 03606000 CVTRV270 EQU CVTRV262 03607000 CVTRV269 EQU CVTRV262 03608000 CVTRV268 EQU CVTRV262 03609000 CVTRV267 EQU CVTRV262 03610000 CVTRV266 EQU CVTRV262 03611000 CVTRV265 EQU CVTRV262 03612000 CVTRV264 EQU CVTRV262 03613000 CVTRV263 EQU CVTRV262 03614000 CVTVFP EQU CVTS01+464 03615000 CVTVSI EQU CVTS01+460 03616000 CVTVPSIB EQU CVTS01+456 03617000 CVTMFACT EQU CVTMFRTR 03618000 CVTMFCTL EQU CVTS01+448 03619000 CVTPVBP EQU CVTS01+444 03620000 CVTPWI EQU CVTS01+440 03621000 CVTRV254 EQU CVTS01+438 03622000 CVTRV253 EQU CVTS01+436 03623000 CVTRV252 EQU CVTS01+434 03624000 CVTRV251 EQU CVTS01+433 03625000 CVTRV250 EQU CVTS01+432 03626000 CVTRV249 EQU CVTS01+431 03627000 CVTRV248 EQU CVTS01+430 03628000 CVTRV247 EQU CVTS01+429 03629000 CVTRV246 EQU CVTS01+428 03630000 CVTRV245 EQU CVTRV237 03631000 CVTRV244 EQU CVTRV237 03632000 CVTRV243 EQU CVTRV237 03633000 CVTRV242 EQU CVTRV237 03634000 CVTRV241 EQU CVTRV237 03635000 CVTRV240 EQU CVTRV237 03636000 CVTRV239 EQU CVTRV237 03637000 CVTRV238 EQU CVTRV237 03638000 CVTRV236 EQU CVTRV228 03639000 CVTRV235 EQU CVTRV228 03640000 CVTRV234 EQU CVTRV228 03641000 CVTRV233 EQU CVTRV228 03642000 CVTRV232 EQU CVTRV228 03643000 CVTRV231 EQU CVTRV228 03644000 CVTRV230 EQU CVTRV228 03645000 CVTRV229 EQU CVTRV228 03646000 CVTRV227 EQU CVTRV219 03647000 CVTRV226 EQU CVTRV219 03648000 CVTRV225 EQU CVTRV219 03649000 CVTRV224 EQU CVTRV219 03650000 CVTRV223 EQU CVTRV219 03651000 CVTRV222 EQU CVTRV219 03652000 CVTRV221 EQU CVTRV219 03653000 CVTRV220 EQU CVTRV219 03654000 CVTRV218 EQU CVTRV210 03655000 CVTRV217 EQU CVTRV210 03656000 CVTRV216 EQU CVTRV210 03657000 CVTRV215 EQU CVTRV210 03658000 CVTRV214 EQU CVTRV210 03659000 CVTRV213 EQU CVTRV210 03660000 CVTRV212 EQU CVTRV210 03661000 CVTRV211 EQU CVTRV210 03662000 CVTLCCAT EQU CVTS01+420 03663000 CVTPCCAT EQU CVTS01+416 03664000 CVTIPCRP EQU CVTS01+412 03665000 CVTIPCRI EQU CVTS01+408 03666000 CVTIPCDS EQU CVTS01+404 03667000 CVTAIDVT EQU CVTS01+400 03668000 CVTSSAP EQU CVTS01+396 03669000 CVTEHCIR EQU CVTS01+392 03670000 CVTEHDEF EQU CVTS01+388 03671000 CVTDAIR EQU CVTS01+384 03672000 CVTPERFM EQU CVTS01+380 03673000 CVT044R2 EQU CVTS01+376 03674000 CVTFETCH EQU CVTS01+372 03675000 CVTRSTWD EQU CVTS01+368 03676000 CVTSPOST EQU CVTS01+364 03677000 CVTIOBP EQU CVTS01+360 03678000 CVTASMVT EQU CVTS01+356 03679000 CVTRECRQ EQU CVTS01+352 03680000 CVTWSAC EQU CVTS01+348 03681000 CVTRV149 EQU CVTS01+344 03682000 CVTWSAL EQU CVTS01+340 03683000 CVTSPSA EQU CVTS01+336 03684000 CVTGLMN EQU CVTS01+332 03685000 CVTVEAC0 EQU CVTS01+328 03686000 CVT062R1 EQU CVTS01+324 03687000 CVTRPOST EQU CVTS01+320 03688000 CVTDQIQE EQU CVTS01+316 03689000 CVTCSD EQU CVTS01+312 03690000 CVTLKRMA EQU CVTS01+308 03691000 CVTRSPIE EQU CVTS01+304 03692000 CVTRENQ EQU CVTS01+300 03693000 CVTLQCB EQU CVTS01+296 03694000 CVTFQCB EQU CVTS01+292 03695000 CVTQCS01 EQU CVTS01+288 03696000 CVTAPFT EQU CVTS01+284 03697000 CVTPARRL EQU CVTS01+280 03698000 CVTVWAIT EQU CVTS01+276 03699000 CVTGSPL EQU CVTS01+272 03700000 CVTLSMQ EQU CVTS01+268 03701000 CVTGSMQ EQU CVTS01+264 03702000 CVTEXPRO EQU CVTS01+260 03703000 CVTOPCTP EQU CVTS01+256 03704000 CVTSIC EQU CVTS01+252 03705000 CVTTPIOS EQU CVTS01+248 03706000 CVTRTMS EQU CVTS01+244 03707000 CVTSDBF EQU CVTS01+240 03708000 CVTSCBP EQU CVTS01+236 03709000 CVTSDMP EQU CVTS01+232 03710000 CVTSV60 EQU CVTS01+228 03711000 CVTRTMCT EQU CVTS01+224 03712000 CVTASCBL EQU CVTS01+220 03713000 CVTASCBH EQU CVTS01+216 03714000 CVTGDA EQU CVTS01+212 03715000 CVTASVT EQU CVTS01+208 03716000 CVTVVMDI EQU CVTS01+204 03717000 CVTAQTOP EQU CVTS01+200 03718000 CVTIOSCS EQU CVTS01+196 03719000 CVTSDRM EQU CVTS01+192 03720000 CVTOPTE EQU CVTS01+188 03721000 CVTSTXU EQU CVTS01+184 03722000 CVTQUIS EQU CVTS01+180 03723000 CVTPARS EQU CVTS01+176 03724000 CVTS1EE EQU CVTS01+172 03725000 CVTFRAS EQU CVTS01+168 03726000 CVTQSAS EQU CVTS01+164 03727000 CVTCRAS EQU CVTS01+160 03728000 CVTCRMN EQU CVTS01+156 03729000 CVTDELCP EQU CVTS01+152 03730000 CVTFRECL EQU CVTS01+148 03731000 CVTGETCL EQU CVTS01+144 03732000 CVTBLDCP EQU CVTS01+140 03733000 CVTAUTHL EQU CVTS01+136 03734000 CVTSCAN EQU CVTS01+132 03735000 CVTRV144 EQU CVTS01+130 03736000 CVTMAXMP EQU CVTS01+128 03737000 CVTSTCK EQU CVTS01+124 03738000 CVTRV139 EQU CVTS01+123 03739000 CVTDSSAC EQU CVTS01+122 03740000 CVTRV513 EQU CVTS01+121 03741000 CVTIOSPL EQU CVTS01+120 03742000 CVTPTGT EQU CVTS01+116 03743000 CVTCSPIE EQU CVTS01+112 03744000 CVTSMFEX EQU CVTS01+108 03745000 CVTOLT0A EQU CVTS01+104 03746000 CVTSRBRT EQU CVTS01+100 03747000 CVTPUTL EQU CVTS01+96 03748000 CVTASCRL EQU CVTS01+92 03749000 CVTASCRF EQU CVTS01+88 03750000 CVTRV326 EQU CVTS01+84 03751000 CVTRV325 EQU CVTS01+80 03752000 CVTRV324 EQU CVTS01+76 03753000 CVT0VL01 EQU CVTS01+72 03754000 CVTSHRVM EQU CVTS01+68 03755000 CVTRV332 EQU CVTS01+64 03756000 CVTTAS EQU CVTS01+60 03757000 CVTRSCN EQU CVTS01+56 03758000 CVTTRAC2 EQU CVTS01+54 03759000 CVTTRACE EQU CVTS01+52 03760000 CVTAPG EQU CVTS01+51 03761000 CVTSDTRC EQU CVTCTLFG 03762000 CVTGTRCE EQU CVTCTLFG 03763000 CVTNOMP EQU CVTCTLFG 03764000 CVTRSV79 EQU CVTCTLFG 03765000 CVTDSTAT EQU CVTCTLFG 03766000 CVTRSV78 EQU CVTCTLFG 03767000 CVTRV333 EQU CVTCTLFG 03768000 CVTRV323 EQU CVTCTLFG 03769000 CVTSPVLK EQU CVTS01+49 03770000 CVTRSV77 EQU CVTS01+48 03771000 CVTRV331 EQU CVTS01+44 03772000 CVTRV330 EQU CVTS01+40 03773000 CVTRV329 EQU CVTS01+36 03774000 CVTRV328 EQU CVTS01+32 03775000 CVTRV322 EQU CVTS01+28 03776000 CVTSLID EQU CVTSLIDA+1 03777000 CVTSYLK EQU CVTSLIDA 03778000 CVTRV321 EQU CVTS01+20 03779000 CVTRV320 EQU CVTS01+16 03780000 CVTLPDIR EQU CVTLPDIA+1 03781000 CVTRSV69 EQU CVTDIRST 03782000 CVTRSV68 EQU CVTDIRST 03783000 CVTRSV67 EQU CVTDIRST 03784000 CVTRSV66 EQU CVTDIRST 03785000 CVTRSV65 EQU CVTDIRST 03786000 CVTRSV64 EQU CVTDIRST 03787000 CVTRSV63 EQU CVTDIRST 03788000 CVTDICOM EQU CVTDIRST 03789000 CVTPVTP EQU CVTS01+8 03790000 CVTLPDSR EQU CVTS01+4 03791000 CVTGETL EQU CVTS01 03792000 DYNEND EQU EWAFAREA+60 03793000 @NM00010 EQU EWAFAREA+57 03794000 @NM00009 EQU EWAFAREA+40 03795000 @NM00008 EQU CCW3+4 03796000 CCW3ADDR EQU CCW3+1 03797000 @NM00007 EQU CCW3 03798000 @NM00006 EQU CCW2+4 03799000 @NM00005 EQU CCW2 03800000 @NM00004 EQU CCW1+4 03801000 CCW1ADDR EQU CCW1+1 03802000 @NM00003 EQU CCW1 03803000 CSWCCK EQU CSW+1 03804000 CSWPCK EQU CSW+1 03805000 CSWPC EQU CSW+1 03806000 CSWIL EQU CSW+1 03807000 CSWPCI EQU CSW+1 03808000 CSWUEX EQU CSW 03809000 CSWDVE EQU CSW 03810000 CSWCHE EQU CSW 03811000 CSWBSY EQU CSW 03812000 CSWCUE EQU CSW 03813000 CSWSMD EQU CSW 03814000 CSWATN EQU CSW 03815000 @NM00130 EQU APUB+120 03816000 @NM00129 EQU APUB+112 03817000 APUBSIZE EQU APUB+102 03818000 APUBRSVD EQU APUB+100 03819000 APUBASCB EQU APUBDCB 03820000 @NM00128 EQU APUBIOFG+4 03821000 @NM00127 EQU APUBIOF3 03822000 APUBISHR EQU APUBIOF3 03823000 APUBIRIP EQU APUBIOF3 03824000 @NM00126 EQU APUBIOF2 03825000 APUBIEXC EQU APUBIOF2 03826000 @NM00125 EQU APUBIOF1 03827000 @NM00124 EQU APUBIOF0 03828000 APUBICNL EQU APUBIOF0 03829000 APUBINRG EQU APUBIOF0 03830000 APUBIDAB EQU APUBIOF0 03831000 APUBIDWN EQU APUBIOF0 03832000 @NM00123 EQU APUB+85 03833000 @NM00122 EQU APUBSTAT 03834000 APUBQISC EQU APUBSTAT 03835000 APUBRIPL EQU APUBSTAT 03836000 @NM00121 EQU APUBALF3 03837000 APUBSCAL EQU APUBALF3 03838000 APUBSCAV EQU APUBALF3 03839000 APUBBIST EQU APUBALF3 03840000 APUBBTST EQU APUBALF3 03841000 @NM00120 EQU APUBALF2 03842000 APUBBIER EQU APUBALF2 03843000 APUBBOPT EQU APUBALF2 03844000 APUBBREQ EQU APUBALF2 03845000 APUBBYT1 EQU APUBALF2 03846000 @NM00119 EQU APUBALF1 03847000 APUBUNLP EQU APUBALF1 03848000 APUBUNLD EQU APUBALF1 03849000 APUBDSBL EQU APUBALF1 03850000 APUBZRGN EQU APUBALF1 03851000 @NM00118 EQU APUBALF0 03852000 APUBOWN EQU APUBALF0 03853000 APUBSBCH EQU APUBALF0 03854000 APUBCPU EQU APUB+78 03855000 APUBINIT EQU APUB+76 03856000 APUBIPL EQU APUB+74 03857000 APUBERRJ EQU APUBERRS+20 03858000 APUBERRD EQU APUBERRS+18 03859000 APUBERRC EQU APUBERRS+16 03860000 APUBERRB EQU APUBERRS+14 03861000 APUBERR9 EQU APUBERRS+10 03862000 APUBERR3 EQU APUBERRS+8 03863000 APUBERR2 EQU APUBERRS+6 03864000 APUBERR1 EQU APUBERRS+4 03865000 @NM00117 EQU APUBERRS 03866000 @NM00116 EQU APUB+50 03867000 APUBRGN EQU APUB+48 03868000 APUBERRT EQU APUB+44 03869000 APUBMSTP EQU APUB+40 03870000 APUBUBAP EQU APUB+36 03871000 APUBAPDS EQU APUB+32 03872000 APUBUCB EQU APUB+28 03873000 APUBIOCT EQU APUB+24 03874000 APUBUSER EQU APUB+16 03875000 APUBNXIO EQU APUB+12 03876000 APUBMSTR EQU APUB+8 03877000 APUBAPUB EQU APUB+4 03878000 APUBID EQU APUB 03879000 @NM00101 EQU APIO+424 03880000 @NM00100 EQU APIO+400 03881000 APIOTMEE EQU APIO+396 03882000 APIOTMES EQU APIO+392 03883000 APIOXTME EQU APIO+388 03884000 APIONBRI EQU APIONBR+2 03885000 APIONBRX EQU APIONBR 03886000 APIOAPCT EQU APIO+380 03887000 APIOGMS1 EQU APIOGMSZ+2 03888000 @NM00099 EQU APIOGMSZ+1 03889000 APIOGMSP EQU APIOGMSZ 03890000 APIOGMAD EQU APIO+372 03891000 APIOCISZ EQU APIO+370 03892000 APIOSIZE EQU APIO+368 03893000 APIORB EQU APIOTR+4 03894000 APIOTCB EQU APIOTR 03895000 APIOECB EQU APIO+356 03896000 APIOTERM EQU APIO+352 03897000 APIOASCB EQU APIO+348 03898000 APIOTCSW EQU APIOSAVE 03899000 APIOACTV EQU APIOFLG7 03900000 APIOFLG6 EQU APIOFLGB+2 03901000 APIOFLG5 EQU APIOFLGB+1 03902000 APIOFLG4 EQU APIOFLGB 03903000 @NM00098 EQU APIOFLG3 03904000 APIOPGFS EQU APIOFLG3 03905000 APIOPGIP EQU APIOFLG3 03906000 APIORSME EQU APIOFLG3 03907000 APIORET EQU APIOFLG3 03908000 APIONPST EQU APIOFLG3 03909000 APIOIOCT EQU APIOFLG3 03910000 @NM00097 EQU APIOFLG2 03911000 APIOCSWT EQU APIOFLG2 03912000 APIOFLG1 EQU APIOFLGA+1 03913000 @NM00096 EQU APIOFLG0 03914000 APIOSU50 EQU APIOFLG0 03915000 APIOSYNC EQU APIOFLG0 03916000 APIOFXED EQU APIOFLG0 03917000 @NM00095 EQU APIO+246 03918000 APIOIOAP EQU APIO+240 03919000 APIORGN EQU APIO+236 03920000 APIOPGFL EQU APIO+232 03921000 APIOPGFX EQU APIO+228 03922000 APIOAPCI EQU APIO+224 03923000 APIOCCW EQU APIO+220 03924000 APIOAPXL EQU APIO+212 03925000 APIOAPIO EQU APIO+200 03926000 APIOUSER EQU APIO+196 03927000 APIOID EQU APIO+192 03928000 APDXAPIO EQU APDX+136 03929000 @NM00094 EQU APDX+136 03930000 @NM00093 EQU APDX+133 03931000 @NM00092 EQU APDX+132 03932000 @NM00091 EQU APDXSW1 03933000 @NM00090 EQU APDXSW0 03934000 APDXSSMF EQU APDXSW0 03935000 APDXSEOT EQU APDXSW0 03936000 APDXSOPN EQU APDXSW0 03937000 APDXIOCT EQU APDX+128 03938000 @NM00089 EQU APDX+52 03939000 @NM00088 EQU APDX+50 03940000 APDXDEB EQU APDX+44 03941000 APDXAPOC EQU APDX+40 03942000 APDXDXA EQU APDX+36 03943000 APDXSIZE EQU APDXDXL+2 03944000 @NM00087 EQU APDXDXL 03945000 APDXAPMF EQU APDX252A 03946000 APDX252L EQU APDX+24 03947000 APDX000A EQU APDX+20 03948000 APDX000L EQU APDX+16 03949000 APDXAPCT EQU APDX+8 03950000 APDXUSER EQU APDX+4 03951000 APDXID EQU APDX 03952000 @NM00086 EQU APDS+144 03953000 @NM00085 EQU APDS+100 03954000 APDSAPEP EQU APDS+96 03955000 @NM00084 EQU APDS+94 03956000 APDSSIZE EQU APDS+92 03957000 APDSITCB EQU APDS+80 03958000 APDSMSK EQU APDS+72 03959000 @NM00083 EQU APDS+69 03960000 APDSIOFS EQU APDS+68 03961000 APDSDUMP EQU APDS+67 03962000 APDSPGFX EQU APDS+66 03963000 @NM00082 EQU APDSFLG1 03964000 APDSFRST EQU APDSFLG1 03965000 APDSSLPS EQU APDSFLG0 03966000 APDSLSR EQU APDSFLG0 03967000 APDSIER EQU APDSFLG0 03968000 APDSARS EQU APDSFLG0 03969000 APDSVPER EQU APDSFLG0 03970000 APDSVLER EQU APDSFLG0 03971000 APDSTPGM EQU APDSFLG0 03972000 APDSOWN EQU APDSFLG0 03973000 APDSDSAP EQU APDS+60 03974000 APDSREG EQU APDS+56 03975000 APDSASCB EQU APDS+52 03976000 APDSAPUB EQU APDS+48 03977000 APDSPERR EQU APDS+40 03978000 APDSLERR EQU APDS+32 03979000 APDSDDNM EQU APDS+24 03980000 APDSDEB EQU APDSTD+4 03981000 APDSTCB EQU APDSTD 03982000 APDSAPCT EQU APDS+12 03983000 APDSUSER EQU APDS+8 03984000 APDSAPDS EQU APDS+4 03985000 APDSID EQU APDS 03986000 @NM00066 EQU APCT+1556 03987000 APCTSVCT EQU APCT+1552 03988000 APCTDAVT EQU APCT+1548 03989000 APCTLOGL EQU APCT+1544 03990000 @NM00065 EQU APCT+1540 03991000 APCTDMPU EQU APCT+1536 03992000 APCTDMPM EQU APCT+1532 03993000 APCTASID EQU APCT+1528 03994000 APCTLGPG EQU APCT+1526 03995000 APCTLGLN EQU APCT+1524 03996000 APCTAPVU EQU APCT+1520 03997000 APCTABR EQU APCT+1116 03998000 APCTACTR EQU APCT+1112 03999000 APCTLOGD EQU APCT+1108 04000000 APCTDCLD EQU APCT+1104 04001000 APCTIOAP EQU APCT+1100 04002000 @NM00064 EQU APCT+1080 04003000 @NM00063 EQU APCT+1078 04004000 APCTKCAX EQU APCT+1076 04005000 APCTABND EQU APCT+1072 04006000 @NM00062 EQU APCT+1068 04007000 APCTAPIO EQU APCT+1064 04008000 APCTCSCT EQU APCT+1060 04009000 APCTSTDF EQU APCT+1056 04010000 APCTSTMX EQU APCT+1052 04011000 APCTRGMX EQU APCT+1048 04012000 APCTSIZE EQU APCT+1046 04013000 APCTCTUB EQU APCT+1045 04014000 APCTMFID EQU APCT+1044 04015000 APCTMFSZ EQU APCT+1040 04016000 APCTCRTN EQU APCT+1036 04017000 APCTAPCP EQU APCT+1032 04018000 APCTAMNA EQU APCT+1028 04019000 APCTEMNA EQU APCT+1024 04020000 APCTAALP EQU APCT+1020 04021000 APCTEALP EQU APCT+1016 04022000 @NM00061 EQU APCT+1012 04023000 @NM00060 EQU APCT+1008 04024000 @NM00059 EQU APCT+1004 04025000 @NM00058 EQU APCT+996 04026000 @NM00057 EQU APCT+992 04027000 @NM00056 EQU APCT+988 04028000 @NM00055 EQU APCT+984 04029000 @NM00054 EQU APCT+980 04030000 APCTECPW EQU APCT+976 04031000 APCTECPT EQU APCT+968 04032000 APCTEALC EQU APCT+964 04033000 APCTECBL EQU APCT+960 04034000 APCTECIT EQU APCT+956 04035000 APCTCQAF EQU APCTCQAQ 04036000 APCTCQL EQU APCTAPCQ+4 04037000 APCTCQF EQU APCTAPCQ 04038000 APCTCQLK EQU APCT+940 04039000 @NM00053 EQU @NM00049+2 04040000 @NM00052 EQU APCTPRSW 04041000 APCTAPST EQU APCTPRSW 04042000 @NM00051 EQU APCTPRSW 04043000 @NM00050 EQU APCTSTAT 04044000 APCTWARM EQU APCTSTAT 04045000 APCTTERM EQU APCTSTAT 04046000 APCTHALT EQU APCTSTAT 04047000 APCTQSCE EQU APCTSTAT 04048000 APCTSTRT EQU APCTSTAT 04049000 APCTACT EQU APCTSTAT 04050000 APCTVUNX EQU APCT+935 04051000 APCTSOUT EQU APCT+934 04052000 APCTDAID EQU APCT+933 04053000 APCTSV34 EQU APCT+932 04054000 APCTMJOB EQU APCT+928 04055000 APCTTCB EQU APCT+924 04056000 APCTDCNW EQU APCT+918 04057000 APCTDCNR EQU APCT+916 04058000 @NM00048 EQU APCT+912 04059000 @NM00047 EQU APCT+908 04060000 @NM00046 EQU APCT+904 04061000 @NM00045 EQU APCT+900 04062000 @NM00044 EQU APCTERRS+22 04063000 APCTERTJ EQU APCTERRS+20 04064000 APCTERTD EQU APCTERRS+18 04065000 APCTERTC EQU APCTERRS+16 04066000 APCTERTB EQU APCTERRS+14 04067000 APCTERT9 EQU APCTERRS+10 04068000 APCTERT3 EQU APCTERRS+8 04069000 APCTERT2 EQU APCTERRS+6 04070000 APCTERT1 EQU APCTERRS+4 04071000 APCTERTT EQU APCTERRS 04072000 APCTDSAP EQU APCT+872 04073000 APCTISUB EQU APCT+868 04074000 APCTUBAP EQU APCT+864 04075000 APCTAPDS EQU APCT+860 04076000 APCTUBIC EQU APCT+856 04077000 APCTUBIS EQU APCT+852 04078000 APCTAPUB EQU APCT+848 04079000 APCTUBLK EQU APCT+844 04080000 APCTBR1A EQU APCTBR14+2 04081000 @NM00043 EQU APCTBR14 04082000 APCTSMSZ EQU APCTSMAD+2 04083000 @NM00042 EQU APCTSMAD+1 04084000 @NM00041 EQU APCTSMAD 04085000 APCTSMIS EQU APCTSMIN+2 04086000 @NM00040 EQU APCTSMIN+1 04087000 APCTSMSP EQU APCTSMIN 04088000 @NM00039 EQU APCT+30 04089000 APCTLINE EQU APCT+28 04090000 APCTLBSZ EQU APCT+24 04091000 APCTREG EQU APCT+20 04092000 @NM00038 EQU APCTENQM 04093000 APCTSSVT EQU APCT+8 04094000 APCTUSER EQU APCT+4 04095000 APCTID EQU APCT 04096000 DEBXSAMB EQU DEBXTN+28 04097000 DEBXOPNJ EQU DEBXTN+24 04098000 DEBXXARG EQU DEBXTN+20 04099000 DEBXMCF2 EQU DEBXTN+19 04100000 DEBXMCF1 EQU DEBXTN+18 04101000 DEBXDSO2 EQU DEBXTN+17 04102000 DEBXDSO1 EQU DEBXTN+16 04103000 DEBXDBPR EQU DEBXTN+12 04104000 DEBXDCBM EQU DEBXTN+8 04105000 DEBXDSAB EQU DEBXTN+4 04106000 DEBXRV48 EQU DEBXTN+3 04107000 DEBXRV47 EQU DEBXFLG1 04108000 DEBXRV46 EQU DEBXFLG1 04109000 DEBXRV45 EQU DEBXFLG1 04110000 DEBXRV44 EQU DEBXFLG1 04111000 DEBXRV43 EQU DEBXFLG1 04112000 DEBXDSSI EQU DEBXFLG1 04113000 DEBXTSKC EQU DEBXFLG1 04114000 DEBXCDCB EQU DEBXFLG1 04115000 DEBXLNGH EQU DEBXTN 04116000 DEBTBLOF EQU DEBPREFX+14 04117000 DEBAMTYP EQU DEBPREFX+13 04118000 DEBLNGTH EQU DEBPREFX+12 04119000 DEBDCBMK EQU DEBXTNP 04120000 DEBDSCBA EQU DEBPREFX+1 04121000 DEBWKARA EQU DEBPREFX 04122000 DEBXCEAD EQU DEBXCEA+1 04123000 DEBXCENP EQU DEBXCEAB 04124000 DEBRSV35 EQU DEBXCEAB 04125000 DEBRSV34 EQU DEBXCEAB 04126000 DEBRSV33 EQU DEBXCEAB 04127000 DEBRSV32 EQU DEBXCEAB 04128000 DEBCEAD EQU DEBCEA+1 04129000 DEBCENP EQU DEBCEAB 04130000 DEBRSV31 EQU DEBCEAB 04131000 DEBRSV30 EQU DEBCEAB 04132000 DEBRSV29 EQU DEBCEAB 04133000 DEBRSV28 EQU DEBCEAB 04134000 DEBPCIAD EQU DEBPCIA+1 04135000 DEBPCINP EQU DEBPCIAB 04136000 DEBRSV27 EQU DEBPCIAB 04137000 DEBRSV26 EQU DEBPCIAB 04138000 DEBRSV25 EQU DEBPCIAB 04139000 DEBRSV24 EQU DEBPCIAB 04140000 DEBSIOAD EQU DEBSIOA+1 04141000 DEBSIONP EQU DEBSIOAB 04142000 DEBFIX EQU DEBSIOAB 04143000 DEBIOVR EQU DEBSIOAB 04144000 DEBSIOX EQU DEBSIOAB 04145000 DEBPGFX EQU DEBSIOAB 04146000 DEBEOEAD EQU DEBEOEA+1 04147000 DEBEOENP EQU DEBEOEAB 04148000 DEBRSV22 EQU DEBEOEAB 04149000 DEBRSV21 EQU DEBEOEAB 04150000 DEBRSV20 EQU DEBEOEAB 04151000 DEBESMVR EQU DEBEOEAB 04152000 DEBSUBID EQU DEBSUBNM 04153000 DEBSIOA2 EQU DEBACS08+24 04154000 DEBRPSIO EQU DEBACS08+20 04155000 DEBFREED EQU DEBACS08+16 04156000 @NM00037 EQU DEBACS08+12 04157000 @NM00036 EQU DEBACS08+8 04158000 DEBDISAD EQU DEBACS08+4 04159000 @NM00035 EQU DEBACS08 04160000 DEBRPSST EQU DEBACS07+64 04161000 DEBARECK EQU DEBACS07+60 04162000 DEBAREWT EQU DEBACS07+56 04163000 DEBACHK EQU DEBACS07+52 04164000 DEBAWRIT EQU DEBACS07+48 04165000 DEBASETL EQU DEBACS07+44 04166000 DEBAREAD EQU DEBACS07+40 04167000 DEBCRECK EQU DEBACS07+36 04168000 DEBCREWT EQU DEBACS07+32 04169000 DEBCCHK EQU DEBACS07+28 04170000 DEBCWRIT EQU DEBACS07+24 04171000 DEBCSETL EQU DEBACS07+20 04172000 DEBCREAD EQU DEBACS07+16 04173000 DEBWKPT5 EQU DEBACS07+12 04174000 DEBWKPT4 EQU DEBACS07+8 04175000 DEBGET EQU DEBACS07+4 04176000 @NM00034 EQU DEBACS07 04177000 DEBPUT EQU DEBACS06+4 04178000 DEBDCBFA EQU DEBACS06 04179000 DEBLUCBB EQU DEBLUCBA+1 04180000 DEBRSV18 EQU DEBLUCBA 04181000 DEBFUCBB EQU DEBFUCBA+1 04182000 DEBRSV17 EQU DEBFUCBA 04183000 DEBTCCWB EQU DEBTCCWA+1 04184000 DEBRSV16 EQU DEBTCCWA 04185000 DEBTBFRB EQU DEBTBFRA+1 04186000 DEBRSV15 EQU DEBTBFRA 04187000 DEBDBPEF EQU DEBACS03+8 04188000 DEBDBPP EQU DEBACS03+4 04189000 DEBDTPP EQU DEBACS03 04190000 DEBDBPE EQU DEBDBLK+1 04191000 DEBDBPT EQU DEBDBLK 04192000 DEBEXTNM EQU DEBDSNAM 04193000 DEBLRECL EQU DEBACSMD+14 04194000 DEBBLKSI EQU DEBACSMD+12 04195000 DEBRSV14 EQU DEBDSNM+4 04196000 DEBUTSAB EQU DEBUTSAA+1 04197000 DEBRSV13 EQU DEBUTSAA 04198000 DEBVOLNM EQU DEBACSMD+2 04199000 DEBVLSEQ EQU DEBVOLSQ+1 04200000 DEBRSV42 EQU DEBVOLBT 04201000 DEBRSV41 EQU DEBVOLBT 04202000 DEBRSV40 EQU DEBVOLBT 04203000 DEBRSV39 EQU DEBVOLBT 04204000 DEBRSV38 EQU DEBVOLBT 04205000 DEBRSV37 EQU DEBVOLBT 04206000 DEBRSV36 EQU DEBVOLBT 04207000 DEBEXFUL EQU DEBVOLBT 04208000 DEBNMTRK EQU DEBDASD+14 04209000 DEBENDHH EQU DEBDASD+12 04210000 DEBENDCC EQU DEBDASD+10 04211000 DEBSTRHH EQU DEBDASD+8 04212000 DEBSTRCC EQU DEBDASD+6 04213000 DEBBINUM EQU DEBDASD+4 04214000 DEBUCBA EQU DEBUCBAD+1 04215000 DEBDVMOD EQU DEBUCBAD 04216000 DEBAPPB EQU DEBAPPAD+1 04217000 DEBEXSCL EQU DEBAPPAD 04218000 DEBDCBB EQU DEBDCBAD+1 04219000 DEBDEBID EQU DEBPROTG 04220000 DEBECBB EQU DEBECBAD+1 04221000 DEBPRIOR EQU DEBECBAD 04222000 DEBUSRPB EQU DEBUSRPG+1 04223000 DEBNMEXT EQU DEBUSRPG 04224000 DEBRSV05 EQU DEBBASIC+15 04225000 DEBXTNIN EQU DEBFLGS1 04226000 DEBAPFIN EQU DEBFLGS1 04227000 DEBF1CEV EQU DEBFLGS1 04228000 DEBCINDI EQU DEBFLGS1 04229000 DEBRSV02 EQU DEBFLGS1 04230000 DEBRSIOA EQU DEBFLGS1 04231000 DEBEOFDF EQU DEBFLGS1 04232000 DEBPWCKD EQU DEBFLGS1 04233000 DEBQSCNT EQU DEBBASIC+13 04234000 DEBACCS EQU DEBOPATB 04235000 DEBPOSIT EQU DEBOPATB 04236000 DEBZERO EQU DEBOPATB 04237000 DEBABEND EQU DEBOPATB 04238000 DEBIRBB EQU DEBIRBAD+1 04239000 DEBRERR EQU DEBOFLGS 04240000 DEBLABEL EQU DEBOFLGS 04241000 DEBSPLIT EQU DEBOFLGS 04242000 DEBDCB EQU DEBOFLGS 04243000 DEBRLSE EQU DEBOFLGS 04244000 DEBEOF EQU DEBOFLGS 04245000 DEBDISP EQU DEBOFLGS 04246000 DEBDEBB EQU DEBDEBAD+1 04247000 DEBAMLNG EQU DEBDEBAD 04248000 DEBTCBB EQU DEBTCBAD+1 04249000 DEBNMSUB EQU DEBTCBAD 04250000 UCBERADR EQU UCBUCS+12 04251000 UCBFCBID EQU UCBUCS+8 04252000 UCBERCNT EQU UCBUCS+7 04253000 UCBRSV51 EQU UCBUCS+6 04254000 UCBRSV50 EQU UCBFCBOP 04255000 UCBRSV49 EQU UCBFCBOP 04256000 UCBRSV48 EQU UCBFCBOP 04257000 UCBRSV47 EQU UCBFCBOP 04258000 UCBRSV46 EQU UCBFCBOP 04259000 UCBRSV45 EQU UCBFCBOP 04260000 UCBRSV44 EQU UCBFCBOP 04261000 UCBFCBO1 EQU UCBFCBOP 04262000 UCBUCSPE EQU UCBUCSOP 04263000 UCBRSV43 EQU UCBUCSOP 04264000 UCBRSV42 EQU UCBUCSOP 04265000 UCBRSV41 EQU UCBUCSOP 04266000 UCBRSV40 EQU UCBUCSOP 04267000 UCBRSV39 EQU UCBUCSOP 04268000 UCBUCSO2 EQU UCBUCSOP 04269000 UCBUCSO1 EQU UCBUCSOP 04270000 UCBUCSID EQU UCBUCS 04271000 UCBMDRBA EQU UCBMDRBF+1 04272000 UCBRV075 EQU UCBMDRBF 04273000 UCBRV074 EQU UCB3800X+32 04274000 UCBIMAGE EQU UCB3800X+28 04275000 UCBFCBNM EQU UCB3800X+24 04276000 UCBCHAR4 EQU UCB3800X+20 04277000 UCBCHAR3 EQU UCB3800X+16 04278000 UCBCHAR2 EQU UCB3800X+12 04279000 UCBCHAR1 EQU UCB3800X+8 04280000 UCBCGMID EQU UCB3800X+4 04281000 UCBBRSTA EQU UCBACTIV 04282000 UCBRV063 EQU UCBACTIV 04283000 UCBRV062 EQU UCBACTIV 04284000 UCBRV061 EQU UCBACTIV 04285000 UCBRV060 EQU UCBACTIV 04286000 UCBRV059 EQU UCBACTIV 04287000 UCBRV058 EQU UCBACTIV 04288000 UCBRV057 EQU UCBACTIV 04289000 UCBRV050 EQU UCB3800X+2 04290000 UCBCGMNO EQU UCB3800X+1 04291000 UCBRV083 EQU UCBOPTNS 04292000 UCBBRSTR EQU UCBOPTNS 04293000 UCBRV056 EQU UCBOPTNS 04294000 UCBRV055 EQU UCBOPTNS 04295000 UCBRV054 EQU UCBOPTNS 04296000 UCBRV053 EQU UCBOPTNS 04297000 UCBRV052 EQU UCBOPTNS 04298000 UCBRV051 EQU UCBOPTNS 04299000 UCBRV073 EQU UCB3540X+7 04300000 UCBRV072 EQU UCBDKBYT 04301000 UCBRV071 EQU UCBDKBYT 04302000 UCBRV070 EQU UCBDKBYT 04303000 UCBRV069 EQU UCBDKBYT 04304000 UCBRV068 EQU UCBDKBYT 04305000 UCBRV067 EQU UCBDKBYT 04306000 UCBVLVER EQU UCBDKBYT 04307000 UCBDKAMX EQU UCBDKBYT 04308000 UCBVLSER EQU UCB3540X 04309000 UCBRDATA EQU UCBOCR+4 04310000 UCBFRID EQU UCBOCR 04311000 UCBCLN EQU UCBMT+14 04312000 UCBERG EQU UCBMT+12 04313000 UCBMS EQU UCBMT+11 04314000 UCBNB EQU UCBMT+10 04315000 UCBPW EQU UCBMT+9 04316000 UCBPR EQU UCBMT+8 04317000 UCBSIO EQU UCBMT+6 04318000 UCBTW EQU UCBMT+5 04319000 UCBTR EQU UCBMT+4 04320000 UCBTWT EQU UCBMT+3 04321000 UCBTRT EQU UCBMT+2 04322000 UCBCTD EQU UCBMT 04323000 UCBWTOID EQU UCBCMEXT+17 04324000 UCBMIHTI EQU UCBCMEXT+16 04325000 UCBASID EQU UCBCMEXT+14 04326000 UCBMFCNT EQU UCBCMEXT+12 04327000 UCBPMSK EQU UCBCMEXT+10 04328000 UCBRV041 EQU UCBCMEXT+6 04329000 UCBRV036 EQU UCBFLP1 04330000 UCBRV035 EQU UCBFLP1 04331000 UCBERLOG EQU UCBFLP1 04332000 UCBRV033 EQU UCBFLP1 04333000 UCBINHIO EQU UCBFLP1 04334000 UCBNSWAP EQU UCBFLP1 04335000 UCBSHRUP EQU UCBFLP1 04336000 UCBNSRCH EQU UCBFLP1 04337000 UCBSNSCT EQU UCBCMEXT+4 04338000 UCBHPDV EQU @NM00033 04339000 UCBHALI EQU @NM00033 04340000 UCBRSV09 EQU @NM00033 04341000 UCBRSV08 EQU @NM00033 04342000 UCBRSV07 EQU @NM00033 04343000 UCBRSV06 EQU @NM00033 04344000 UCBRSV05 EQU @NM00033 04345000 UCBRSV04 EQU @NM00033 04346000 UCBDTI EQU UCBCMEXT+2 04347000 UCBSTI EQU UCBCMEXT+1 04348000 UCBETI EQU UCBCMEXT 04349000 UCBEXTP EQU UCBEXTPT+1 04350000 UCBDDRSW EQU UCBFLC 04351000 UCBTICBT EQU UCBFLC 04352000 UCBIVRR EQU UCBFLC 04353000 UCBIVRS EQU UCBFLC 04354000 UCBITF EQU UCBFLC 04355000 UCBUDE EQU UCBFLC 04356000 UCBWAA EQU UCBFLC 04357000 UCBATTP EQU UCBFLC 04358000 UCBUNTYP EQU UCBTBYT4 04359000 UCBRSV11 EQU UCBDVCLS 04360000 UCBRSV10 EQU UCBDVCLS 04361000 UCB3CHAR EQU UCBDVCLS 04362000 UCB3UREC EQU UCBDVCLS 04363000 UCB3DISP EQU UCBDVCLS 04364000 UCB3DACC EQU UCBDVCLS 04365000 UCB3COMM EQU UCBDVCLS 04366000 UCBDVPWR EQU UCB2OPT7 04367000 UCBVLPWR EQU UCB2OPT6 04368000 UCB2OPT5 EQU UCBTBYT2 04369000 UCBRVDEV EQU UCBRWTAU 04370000 UCBRPS EQU UCBDUDN2 04371000 UCBRR EQU UCBDUDN1 04372000 UCB2OPT1 EQU UCBTBYT2 04373000 UCB2OPT0 EQU UCBTBYT2 04374000 UCB1FEA7 EQU UCBTBYT1 04375000 UCBD6250 EQU UCB1FEA6 04376000 UCBD1600 EQU UCB1FEA5 04377000 UCB1FEA4 EQU UCBTBYT1 04378000 UCB1FEA3 EQU UCBTBYT1 04379000 UCB1FEA2 EQU UCBTBYT1 04380000 UCB1FEA1 EQU UCBTBYT1 04381000 UCB1FEA0 EQU UCBTBYT1 04382000 UCBRV029 EQU UCBWGT 04383000 UCBVHRSN EQU UCBWGT 04384000 UCBVORSN EQU UCBWGT 04385000 UCBMTPXP EQU UCBWGT 04386000 UCBREW EQU UCBWGT 04387000 UCBPUB EQU UCBWGT 04388000 UCBOUT EQU UCBWGT 04389000 UCBIN EQU UCBWGT 04390000 UCBCPU EQU UCBOB+11 04391000 UCBLCI EQU UCBOB+10 04392000 UCBCNT EQU UCBOB+9 04393000 UCBRV017 EQU UCBCHM1 04394000 UCBRV016 EQU UCBCHM1 04395000 UCBRV015 EQU UCBCHM1 04396000 UCBRV014 EQU UCBCHM1 04397000 UCBSPB EQU UCBPTH1 04398000 UCBPPB EQU UCBPTH1 04399000 UCBSPA EQU UCBPTH0 04400000 UCBPPA EQU UCBPTH0 04401000 UCBSIGP EQU UCBFLB 04402000 UCBVALPH EQU UCBFLB 04403000 UCBCRHSN EQU UCBFLB 04404000 UCBCRHRV EQU UCBFLB 04405000 UCBRESVH EQU UCBFLB 04406000 UCBSPST EQU UCBFLB 04407000 UCBASNS EQU UCBFLB 04408000 UCBIORST EQU UCBFLB 04409000 UCBQISCE EQU UCBFL1 04410000 UCBACTV EQU UCBFL1 04411000 UCBSAP EQU UCBFL1 04412000 UCBNOTRC EQU UCBCUB 04413000 UCBPSNS EQU UCBFL1 04414000 UCBUSING EQU UCBPST 04415000 UCBNOTRD EQU UCBNRY 04416000 UCBBUSYD EQU UCBBSY 04417000 UCBUA EQU UCBCHAN+1 04418000 UCBCHA EQU UCBCHAN 04419000 UCBDADI EQU UCBSTAT 04420000 UCBSYSR EQU UCBSTAT 04421000 UCBPRES EQU UCBSTAT 04422000 UCBALOC EQU UCBSTAT 04423000 UCBUNLD EQU UCBSTAT 04424000 UCBRESV EQU UCBSTAT 04425000 UCBCHGS EQU UCBSTAT 04426000 UCBONLI EQU UCBSTAT 04427000 UCBID EQU UCBOB+2 04428000 UCBALTPH EQU UCBFL5 04429000 UCBALTCU EQU UCBFL5 04430000 UCBNALOC EQU UCBFL5 04431000 UCBENVRD EQU UCBFL5 04432000 UCBVSDR EQU UCBFL5 04433000 UCBSASK EQU UCBFL5 04434000 UCBAMV EQU UCBAF 04435000 UCBDCC EQU UCBFL5 04436000 UCBMONT EQU UCBJBNR 04437000 UCBRV011 EQU UCBJBNR 04438000 UCBMMSGP EQU UCBJBNR 04439000 UCBOLDSM EQU UCBJBNR 04440000 UCBRV003 EQU UCBJBNR 04441000 UCBDUC EQU UCBJBNR 04442000 UCBJES3 EQU UCBJBNR 04443000 UCBVRDEV EQU UCBJBNR 04444000 UCBCMSEG EQU UCBOB 04445000 UCBPFXND EQU UCB+512 04446000 UCBIOQ EQU UCB+508 04447000 UCBLOCK EQU UCB+504 04448000 UCBPXST EQU UCB+504 04449000 @NM00030 EQU UCB 04450000 IOSEND EQU IOSB+108 04451000 IOSSKR EQU IOSEEK+8 04452000 IOSSKH2 EQU IOSSKHH+1 04453000 IOSSKH1 EQU IOSSKHH 04454000 IOSSKCC EQU IOSCCHH 04455000 IOSSKBB EQU IOSEEKA+1 04456000 IOSSKM EQU IOSEEKA 04457000 IOSRES6 EQU IOSB+96 04458000 IOSRES5 EQU IOSB+92 04459000 IOSMDM EQU IOSB+91 04460000 IOSMDB EQU IOSB+90 04461000 IOSCKEY7 EQU IOSCKEY 04462000 IOSCKEY6 EQU IOSCKEY 04463000 IOSCKEY5 EQU IOSCKEY 04464000 IOSCKEY4 EQU IOSCKEY 04465000 @NM00026 EQU IOSCKEY 04466000 IOSFMSK EQU IOSB+88 04467000 IOSCUDEV EQU IOSPATH+1 04468000 @NM00025 EQU IOSCHN 04469000 IOSPATH3 EQU IOSCHN 04470000 IOSPATH2 EQU IOSCHN 04471000 IOSEXP EQU IOSCHN 04472000 IOSGDP EQU IOSCHN 04473000 IOSAFF EQU IOSB+85 04474000 IOSRSS1B EQU IOSB+84 04475000 IOSDSID EQU IOSB+80 04476000 IOSDIE EQU IOSB+68 04477000 IOSABN EQU IOSB+64 04478000 IOSNRM EQU IOSB+60 04479000 IOSPCI EQU IOSB+56 04480000 IOSPCHN EQU IOSB+48 04481000 IOSSNS EQU IOSB+42 04482000 IOSAPMSK EQU IOSB+40 04483000 IOSRES4A EQU IOSB+36 04484000 IOSUSE EQU IOSB+32 04485000 IOSSRB EQU IOSB+28 04486000 IOSCSWRC EQU IOSCSW+5 04487000 IOSTSB EQU IOSTATUS+1 04488000 IOSTSA EQU IOSTATUS 04489000 IOSOPT2X EQU IOSOPT2 04490000 IOSIGP EQU IOSOPT2 04491000 IOSHTP EQU IOSOPT2 04492000 IOSRELSE EQU IOSOPT 04493000 IOSAPR EQU IOSOPT 04494000 IOSTSLL EQU IOSOPT 04495000 IOSNERP EQU IOSOPT 04496000 IOSPSLL EQU IOSOPT 04497000 IOSDEP EQU IOSOPT 04498000 IOSBYP EQU IOSOPT 04499000 IOSPKY7 EQU IOSPKEY 04500000 IOSPGDPX EQU IOSPKEY 04501000 IOSIDR EQU IOSPKEY 04502000 IOSLCL EQU IOSPKEY 04503000 @NM00023 EQU IOSPKEY 04504000 IOSPGAD EQU IOSB+8 04505000 IOSASID EQU IOSB+6 04506000 IOSPRLVL EQU IOSB+5 04507000 IOSPROC EQU IOSB+3 04508000 IOSFLC7 EQU IOSFLC 04509000 IOSCTCNR EQU IOSFLC 04510000 IOSRWAIT EQU IOSFLC 04511000 IOSTP EQU IOSFLC 04512000 IOSCC3WE EQU IOSFLC 04513000 IOSVERIF EQU IOSDVALT 04514000 IOSDVMNT EQU IOSFLC 04515000 IOSFLB4 EQU IOSFLB 04516000 IOSFLB3 EQU IOSFLB 04517000 IOSNOTRS EQU IOSFLB 04518000 IOSDIESE EQU IOSFLB 04519000 IOSIOSB EQU IOSFLA 04520000 IOSDOM EQU IOSFLA 04521000 IOSSMDB EQU IOSFLA 04522000 IOSSMDA EQU IOSFLA 04523000 IOCOEND EQU IOCOM+128 04524000 IOCPATCH EQU IOCOM+124 04525000 IOCUCBBM EQU IOCOM+120 04526000 IOCQCNT EQU IOCOM+116 04527000 IOCIOSDQ EQU IOCOM+112 04528000 IOCIOSEQ EQU IOCOM+108 04529000 IOCSVCF EQU IOCOM+104 04530000 IOCTCCW EQU IOCOM+100 04531000 IOCRSVTB EQU IOCOM+96 04532000 IOCMFCNT EQU IOCOM+92 04533000 IOCMFHK EQU IOCOM+88 04534000 IOCCCH EQU IOCOM+80 04535000 IOCASYNQ EQU IOCOM+76 04536000 IOCLCHTB EQU IOCOM+72 04537000 IOCATTBL EQU IOCOM+68 04538000 IOCOMEX EQU IOCOM+64 04539000 IOCSYNCH EQU IOCOM+56 04540000 IOCCATLK EQU IOCOM+48 04541000 IOCPRGID EQU IOCOM+44 04542000 IOCIOSCP EQU IOCOM+40 04543000 IOCORMGT EQU IOCOM+36 04544000 IOCVOID EQU IOCOM+32 04545000 IOCSTIO EQU IOCOM+28 04546000 IOCSCOMP EQU IOCOM+24 04547000 IOCHD160 EQU IOCOM+20 04548000 IOCINT EQU IOCOM+16 04549000 IOCCTBL EQU IOCOM+12 04550000 IOCHIO EQU IOCOM+8 04551000 IOCPST EQU IOCOM+4 04552000 IOCPGCT EQU IOCOM+2 04553000 IOCVOICT EQU IOCOM 04554000 EWADDISP EQU EWA+29 04555000 EWADCNT EQU EWA+28 04556000 EWACPU EQU EWA+27 04557000 @NM00022 EQU EWA+26 04558000 EWACSEQ EQU EWAXCSW2 04559000 EWACDIN EQU EWAXCSW2 04560000 @NM00021 EQU EWAXCSW2 04561000 EWACTEC EQU EWAXCSW2 04562000 EWACDAV EQU EWAXCSW1 04563000 EWACCHV EQU EWAXCSW1 04564000 EWACCMD EQU EWAXCSW1 04565000 EWACUNS EQU EWAXCSW1 04566000 EWACSQV EQU EWAXCSW1 04567000 @NM00020 EQU EWAXCSW1 04568000 EWACITF EQU EWAXCSW1 04569000 @NM00019 EQU EWARGFG2 04570000 EWACCUE EQU EWARGFG2 04571000 EWACSTG EQU EWARGFG2 04572000 EWACSCU EQU EWARGFG2 04573000 EWACCHA EQU EWARGFG2 04574000 EWACCPU EQU EWARGFG2 04575000 EWACCNT EQU EWARGFG1 04576000 EWACSNS EQU EWARGFG1 04577000 @NM00018 EQU EWARGFG1 04578000 EWACHIO EQU EWARGFG1 04579000 EWACTIO EQU EWARGFG1 04580000 EWACINT EQU EWARGFG1 04581000 EWACSIO EQU EWARGFG1 04582000 EWAUCB EQU EWAERPIB+1 04583000 @NM00017 EQU EWAERPIB 04584000 EWACNTR4 EQU EWACNTRS+3 04585000 EWACNTR3 EQU EWACNTRS+2 04586000 EWASSTAT EQU EWA+8 04587000 EWASCTMX EQU EWASNSCT 04588000 @NM00016 EQU EWASNSCT 04589000 EWAJAM EQU EWAFLG3 04590000 @NM00015 EQU EWAFLG2 04591000 EWADIR EQU EWAFLG2 04592000 EWACOVF EQU EWAFLG2 04593000 EWAMDR EQU EWAFLG2 04594000 EWADDMSG EQU EWAFLG1 04595000 EWASCC1 EQU EWASCC3 04596000 EWASCC2 EQU EWASCC3 04597000 @NM00014 EQU EWAFLG1 04598000 EWA2SNS EQU EWAFLG1 04599000 EWASLIS EQU EWAFLG1 04600000 EWAEXT EQU EWAHDR 04601000 CVTLEVL EQU CVTRELNO+2 04602000 CVTNUMB EQU CVTRELNO 04603000 CVTMDL EQU CVTFIX+250 04604000 @NM00013 EQU CVTFIX+248 04605000 @NM00012 EQU CVTFIX 04606000 CVTRV482 EQU CVTXTNT2+128 04607000 CVTRV481 EQU CVTXTNT2+124 04608000 CVTRV480 EQU CVTXTNT2+120 04609000 CVTRV479 EQU CVTXTNT2+118 04610000 CVTRV478 EQU CVTXTNT2+117 04611000 CVTRV477 EQU CVTXTNT2+116 04612000 CVTRV476 EQU CVTXTNT2+115 04613000 CVTRV475 EQU CVTXTNT2+114 04614000 CVTRV474 EQU CVTRV466 04615000 CVTRV473 EQU CVTRV466 04616000 CVTRV472 EQU CVTRV466 04617000 CVTRV471 EQU CVTRV466 04618000 CVTRV470 EQU CVTRV466 04619000 CVTRV469 EQU CVTRV466 04620000 CVTRV468 EQU CVTRV466 04621000 CVTRV467 EQU CVTRV466 04622000 CVTRV465 EQU CVTRV457 04623000 CVTRV464 EQU CVTRV457 04624000 CVTRV463 EQU CVTRV457 04625000 CVTRV462 EQU CVTRV457 04626000 CVTRV461 EQU CVTRV457 04627000 CVTRV460 EQU CVTRV457 04628000 CVTRV459 EQU CVTRV457 04629000 CVTRV458 EQU CVTRV457 04630000 CVTRV456 EQU CVTXTNT2+108 04631000 CVTRV455 EQU CVTXTNT2+104 04632000 CVTRV454 EQU CVTXTNT2+100 04633000 CVTRV453 EQU CVTXTNT2+96 04634000 CVTRV452 EQU CVTXTNT2+94 04635000 CVTRV451 EQU CVTXTNT2+92 04636000 CVTRV450 EQU CVTXTNT2+90 04637000 CVTRV449 EQU CVTXTNT2+88 04638000 CVTRV448 EQU CVTXTNT2+87 04639000 CVTRV447 EQU CVTXTNT2+86 04640000 CVTRV446 EQU CVTRV438 04641000 CVTRV445 EQU CVTRV438 04642000 CVTRV444 EQU CVTRV438 04643000 CVTRV443 EQU CVTRV438 04644000 CVTRV442 EQU CVTRV438 04645000 CVTRV441 EQU CVTRV438 04646000 CVTRV440 EQU CVTRV438 04647000 CVTRV439 EQU CVTRV438 04648000 CVTRV437 EQU CVTRV429 04649000 CVTRV436 EQU CVTRV429 04650000 CVTRV435 EQU CVTRV429 04651000 CVTRV434 EQU CVTRV429 04652000 CVTRV433 EQU CVTRV429 04653000 CVTRV432 EQU CVTRV429 04654000 CVTRV431 EQU CVTRV429 04655000 CVTRV430 EQU CVTRV429 04656000 CVTRV428 EQU CVTXTNT2+80 04657000 CVTRV427 EQU CVTXTNT2+76 04658000 CVTRV426 EQU CVTXTNT2+72 04659000 CVTRV425 EQU CVTXTNT2+68 04660000 CVTATACT EQU CVTATCVT 04661000 CVTRV423 EQU CVTXTNT2+62 04662000 CVTRV422 EQU CVTXTNT2+60 04663000 CVTRV421 EQU CVTXTNT2+58 04664000 CVTRV420 EQU CVTXTNT2+56 04665000 CVTRV419 EQU CVTXTNT2+55 04666000 CVTRV418 EQU CVTXTNT2+54 04667000 CVTRV417 EQU CVTRV409 04668000 CVTRV416 EQU CVTRV409 04669000 CVTRV415 EQU CVTRV409 04670000 CVTRV414 EQU CVTRV409 04671000 CVTRV413 EQU CVTRV409 04672000 CVTRV412 EQU CVTRV409 04673000 CVTRV411 EQU CVTRV409 04674000 CVTRV410 EQU CVTRV409 04675000 CVTRV408 EQU CVTRV400 04676000 CVTRV407 EQU CVTRV400 04677000 CVTRV406 EQU CVTRV400 04678000 CVTRV405 EQU CVTRV400 04679000 CVTRV404 EQU CVTRV400 04680000 CVTRV403 EQU CVTRV400 04681000 CVTRV402 EQU CVTRV400 04682000 CVTRV401 EQU CVTRV400 04683000 CVTICB EQU CVTXTNT2+48 04684000 CVTSKTA EQU CVTXTNT2+44 04685000 CVTRSV99 EQU CVTXTNT2+40 04686000 CVTRSV98 EQU CVTXTNT2+36 04687000 CVTRSV97 EQU CVTXTNT2+34 04688000 CVTRSV96 EQU CVTXTNT2+32 04689000 CVTOLTEP EQU CVTXTNT2+28 04690000 CVTQIDA EQU CVTQID+1 04691000 CVTRSV95 EQU CVTQID 04692000 CVTRSV94 EQU CVTXTNT2+20 04693000 CVTRSV93 EQU CVTXTNT2+16 04694000 CVTRSV92 EQU CVTXTNT2+12 04695000 CVTDEBVR EQU CVTXTNT2+8 04696000 CVTRSV91 EQU CVTXTNT2+6 04697000 CVTRSV9H EQU CVTFLGBT 04698000 CVTRSV9G EQU CVTFLGBT 04699000 CVTRSV9F EQU CVTFLGBT 04700000 CVTRSV9E EQU CVTFLGBT 04701000 CVTRSV9D EQU CVTFLGBT 04702000 CVTRSV9C EQU CVTFLGBT 04703000 CVTVME EQU CVTFLGBT 04704000 CVTNPE EQU CVTFLGBT 04705000 CVTNUCLS EQU CVTXTNT2+4 04706000 CVTDSSVA EQU CVTDSSV+1 04707000 CVTRSV89 EQU CVTDSSV 04708000 CVTRSV88 EQU CVTXTNT1+8 04709000 CVTRSV87 EQU CVTXTNT1+4 04710000 CVTFACHN EQU CVTXTNT1 04711000 CVTRV488 EQU CVTMAP+412 04712000 CVTRV487 EQU CVTMAP+408 04713000 CVTRV486 EQU CVTMAP+404 04714000 CVTRV485 EQU CVTMAP+400 04715000 CVTACTAP EQU CVTMAP+396 04716000 CVTAUTH EQU CVTMAP+392 04717000 CVTATMCA EQU CVTATMCT+1 04718000 CVTATMST EQU CVTATMCT 04719000 CVTRSV61 EQU CVTMAP+384 04720000 CVTVOLT1 EQU CVTVOLM1+1 04721000 CVTVOLI1 EQU CVTVOLF1 04722000 CVTSTOA EQU CVTMAP+376 04723000 CVTRSV58 EQU CVTMAP+374 04724000 CVTRSV57 EQU CVTMAP+372 04725000 CVTDDCE EQU CVTMAP+368 04726000 CVTPNWFR EQU CVTMAP+364 04727000 CVTSMF EQU CVTMAP+360 04728000 CVTSULK EQU CVTMAP+358 04729000 CVTSLKO EQU CVTSYSK 04730000 CVTSLKP EQU CVTSYSK 04731000 CVTSLKQ EQU CVTSYSK 04732000 CVTSLKR EQU CVTSYSK 04733000 CVTRSV56 EQU CVTSYSK 04734000 CVTRSV55 EQU CVTSYSK 04735000 CVTRSV54 EQU CVTSYSK 04736000 CVTRSV53 EQU CVTSYSK 04737000 CVTRSV52 EQU CVTA1F1 04738000 CVTRSV51 EQU CVTA1F1 04739000 CVTRSV50 EQU CVTA1F1 04740000 CVTRSV49 EQU CVTA1F1 04741000 CVTRSV48 EQU CVTA1F1 04742000 CVTRSV47 EQU CVTA1F1 04743000 CVTSRSW EQU CVTA1F1 04744000 CVTPFSW EQU CVTA1F1 04745000 CVTPCVT EQU CVTMAP+352 04746000 CVTRSV46 EQU CVTMAP+344 04747000 CVTRSV45 EQU CVTMAP+340 04748000 CVTRSV44 EQU CVTMAP+338 04749000 CVTRSV43 EQU CVTMAP+336 04750000 CVTHJESA EQU CVTHJES+1 04751000 CVTRSV42 EQU CVTHJES 04752000 CVTEXT2A EQU CVTEXT2+1 04753000 CVTRSV41 EQU CVTEXT2 04754000 CVTAPFA EQU CVTAPF+1 04755000 CVTRSV40 EQU CVTAPF 04756000 CVTRV518 EQU CVTINTLA 04757000 CVTRV517 EQU CVTERPV 04758000 CVTEORM EQU CVTMAP+312 04759000 CVTMCHPR EQU CVTMAP+308 04760000 CVTTZ EQU CVTMAP+304 04761000 CVTJEPS EQU CVTMAP+300 04762000 CVTJESCT EQU CVTMAP+296 04763000 CVTMODE EQU CVTMAP+292 04764000 CVTPTRV EQU CVTMAP+288 04765000 CVTREAL EQU CVTMAP+284 04766000 CVTRSV39 EQU CVTMAP+280 04767000 CVTRSV38 EQU CVTMAP+276 04768000 CVTDMSRA EQU CVTDMSR+1 04769000 CVTRV634 EQU CVTDMSRF 04770000 CVTRV633 EQU CVTDMSRF 04771000 CVTRV632 EQU CVTDMSRF 04772000 CVTRV631 EQU CVTDMSRF 04773000 CVTRV630 EQU CVTDMSRF 04774000 CVTRV629 EQU CVTDMSRF 04775000 CVTUDUMP EQU CVTDMSRF 04776000 CVTSDUMP EQU CVTDMSRF 04777000 CVTQMSGA EQU CVTQMSG+1 04778000 CVTRSV36 EQU CVTQMSG 04779000 CVTAMFF EQU CVTMAP+264 04780000 CVTPURGA EQU CVTPURG+1 04781000 CVTRSV35 EQU CVTPURG 04782000 CVTCBSP EQU CVTMAP+256 04783000 CVTATERA EQU CVTATER+1 04784000 CVTSYST EQU CVTATER 04785000 CVTVOLT2 EQU CVTTAT 04786000 CVTVOLI2 EQU CVTVOLF2 04787000 CVTAQAVB EQU CVTAQAVT+1 04788000 CVTRSV34 EQU CVTTCMFG 04789000 CVTRSV33 EQU CVTTCMFG 04790000 CVTRSV32 EQU CVTTCMFG 04791000 CVTRSV31 EQU CVTTCMFG 04792000 CVTRSV30 EQU CVTTCMFG 04793000 CVTRSV29 EQU CVTTCMFG 04794000 CVTLDEV EQU CVTTCMFG 04795000 CVTTCRDY EQU CVTTCMFG 04796000 CVTGTFA EQU CVTGTF+1 04797000 CVTRSV27 EQU CVTGTFST 04798000 CVTRNIO EQU CVTGTFST 04799000 CVTUSR EQU CVTGTFST 04800000 CVTRV318 EQU CVTFORM 04801000 CVTRV317 EQU CVTTMODE 04802000 CVTRV316 EQU CVTSTATE 04803000 CVTRV315 EQU CVTGTFS 04804000 CVTGTFAV EQU CVTGTFS 04805000 CVT0SCR1 EQU CVTMAP+232 04806000 CVTRV515 EQU CVTMAP+228 04807000 CVTRMS EQU CVTMAP+224 04808000 CVTPATCH EQU CVTMAP+220 04809000 CVTTSCE EQU CVTMAP+216 04810000 CVTLNKSC EQU CVTMAP+214 04811000 CVTQABST EQU CVTMAP+212 04812000 CVTMDLDS EQU CVTMAP+208 04813000 CVTUSER EQU CVTMAP+204 04814000 CVTABEND EQU CVTMAP+200 04815000 CVTSMCA EQU CVTMAP+196 04816000 CVTRSV18 EQU CVTMAP+192 04817000 CVTQLPAQ EQU CVTMAP+188 04818000 CVTQCDSR EQU CVTMAP+184 04819000 CVTRSV17 EQU CVTOPTB 04820000 CVTRSV16 EQU CVTOPTB 04821000 CVTFP EQU CVTOPTB 04822000 CVTAPTHR EQU CVTOPTB 04823000 CVTNLOG EQU CVTOPTB 04824000 CVTTOD EQU CVTOPTB 04825000 CVTCTIMS EQU CVTOPTB 04826000 CVTPROT EQU CVTOPTB 04827000 CVTXPFP EQU CVTOPTA 04828000 CVTASCII EQU CVTOPTA 04829000 CVTRSV13 EQU CVTOPTA 04830000 CVTRSV12 EQU CVTOPTA 04831000 CVTNIP EQU CVTOPTA 04832000 CVTDDR EQU CVTOPTA 04833000 CVTAPR EQU CVTOPTA 04834000 CVTCCH EQU CVTOPTA 04835000 CVTSNCTR EQU CVTMAP+180 04836000 CVTQMWR EQU CVTMAP+176 04837000 CVTQOCR EQU CVTMAP+172 04838000 CVT1EF00 EQU CVTMAP+168 04839000 CVTMZ00 EQU CVTMAP+164 04840000 CVTSV76Q EQU CVTSV76C 04841000 CVTRSV11 EQU CVTMAP+156 04842000 CVT0PT01 EQU CVTMAP+152 04843000 CVTMSER EQU CVTMAP+148 04844000 CVTRV516 EQU CVTIERLC 04845000 CVTILCH EQU CVTMAP+140 04846000 CVT0DS EQU CVTMAP+136 04847000 CVTFBOSV EQU CVTMAP+132 04848000 CVTNUCB EQU CVTMAP+128 04849000 CVTSV76M EQU CVTIOQET 04850000 CVTDCBA EQU CVTMAP+117 04851000 CVTMVS2 EQU CVTDCB 04852000 CVT6DAT EQU CVTDCB 04853000 CVT4MPS EQU CVTDCB 04854000 CVTRSV09 EQU CVTDCB 04855000 CVT4MS1 EQU CVTDCB 04856000 CVT2SPS EQU CVTDCB 04857000 CVT1SSS EQU CVTDCB 04858000 CVTRSV08 EQU CVTDCB 04859000 CVTSTB EQU CVTMAP+112 04860000 CVTQTD00 EQU CVTMAP+108 04861000 CVTQTE00 EQU CVTMAP+104 04862000 CVTCUCB EQU CVTMAP+100 04863000 CVTSJQ EQU CVTMAP+96 04864000 CVTPBLDL EQU CVTMAP+92 04865000 CVTTPC EQU CVTMAP+88 04866000 CVTSVDCB EQU CVTMAP+84 04867000 CVTBRET EQU CVTMAP+82 04868000 CVTEXIT EQU CVTMAP+80 04869000 CVT0FN00 EQU CVTMAP+76 04870000 CVTDARA EQU CVTDAR+1 04871000 CVTRSV07 EQU CVTFLGS1 04872000 CVTRSV06 EQU CVTFLGS1 04873000 CVTRSV05 EQU CVTFLGS1 04874000 CVTRSV04 EQU CVTFLGS1 04875000 CVTRSV03 EQU CVTFLGS1 04876000 CVTRSV02 EQU CVTFLGS1 04877000 CVTRSV01 EQU CVTFLGS1 04878000 CVTDMPLK EQU CVTFLGS1 04879000 CVTZDTAB EQU CVTMAP+64 04880000 CVTMSLT EQU CVTMAP+60 04881000 CVTDATE EQU CVTMAP+56 04882000 CVTBTERM EQU CVTMAP+52 04883000 CVTSYSAD EQU CVTMAP+48 04884000 CVTILK2 EQU CVTMAP+40 04885000 CVTILK1 EQU CVTMAP+36 04886000 CVTPRLTV EQU CVTMAP+32 04887000 CVTPCNVT EQU CVTMAP+28 04888000 CVT0VL00 EQU CVTMAP+24 04889000 CVTXAPG EQU CVTMAP+20 04890000 CVTBUF EQU CVTMAP+16 04891000 CVTJOB EQU CVTMAP+12 04892000 CVTLINK EQU CVTMAP+8 04893000 CVT0EF00 EQU CVTMAP+4 04894000 CVTTCBP EQU CVTMAP 04895000 CVT EQU CVTMAP 04896000 CCWCOUNT EQU CCW+5 04897000 @NM00002 EQU CCWFLAGS 04898000 CCWIDA EQU CCWFLAGS 04899000 CCWPCI EQU CCWFLAGS 04900000 CCWSKP EQU CCWFLAGS 04901000 CCWSLI EQU CCWFLAGS 04902000 CCWCC EQU CCWFLAGS 04903000 CCWADDR EQU CCW+1 04904000 APSNCIDS EQU APSN+6 04905000 APSNCIO1 EQU APSNCIOP+1 04906000 APSNCIO0 EQU APSNCIOP 04907000 @NM00106 EQU APSNCMPN 04908000 APSNCPM EQU APSNCMPN 04909000 APSNCDTC EQU APSNCMPN 04910000 APSNCAE EQU APSNCMPN 04911000 APSNCIO EQU APSNCMPN 04912000 APSNCCP EQU APSNCMPN 04913000 @NM00105 EQU APSNRQST 04914000 APSNINPW EQU APSNRQST 04915000 APSNRQDE EQU APSNRQST 04916000 APSNPRIO EQU APSNSTND 04917000 APSNINIT EQU APSNSTND 04918000 APSNOVRN EQU APSNSTND 04919000 APSNEQCK EQU APSNSTND 04920000 APSNINTV EQU APSNSTND 04921000 APSNCMD EQU APSNSTND 04922000 @NM00154 EQU PSA+3668 04923000 PSASTAK EQU PSA+3072 04924000 @NM00153 EQU PSA+1048 04925000 PSAUSEND EQU PSA+1048 04926000 PSARV062 EQU PSA+1044 04927000 PSACDAL EQU PSA+1040 04928000 PSAWTCOD EQU PSA+1036 04929000 PSAATCVT EQU PSA+1032 04930000 PSAPCPSW EQU PSA+1024 04931000 PSAPIR2 EQU PSA+1020 04932000 PSARV059 EQU PSA+1018 04933000 PSASVC13 EQU PSA+1016 04934000 PSALSFCC EQU PSA+1012 04935000 PSASFACC EQU PSA+1008 04936000 PSASTOP EQU PSA+992 04937000 PSASTART EQU PSA+976 04938000 PSARSPSW EQU PSA+968 04939000 PSASRPSW EQU PSA+960 04940000 PSARV045 EQU PSA+892 04941000 PSARV044 EQU PSA+888 04942000 PSARV043 EQU PSA+884 04943000 PSARV042 EQU PSA+880 04944000 PSARV041 EQU PSA+876 04945000 PSARV040 EQU PSA+872 04946000 PSARV025 EQU PSA+868 04947000 PSADSSED EQU PSA+868 04948000 PSADSSPR EQU PSA+864 04949000 PSADSSFW EQU PSA+860 04950000 PSADSS14 EQU PSA+856 04951000 PSADSSPP EQU PSA+848 04952000 PSADSSRP EQU PSA+840 04953000 PSADSS05 EQU PSADSSF4 04954000 PSADSS10 EQU PSADSSF4 04955000 PSADSSVE EQU PSADSSF4 04956000 PSADSSDE EQU PSADSSF4 04957000 PSADSSC0 EQU PSADSSF4 04958000 PSADSSIE EQU PSADSSF4 04959000 PSADSS12 EQU PSADSSF4 04960000 PSADSSRC EQU PSADSSF4 04961000 PSARV057 EQU PSADSSF3 04962000 PSARV056 EQU PSADSSF3 04963000 PSARV055 EQU PSADSSF3 04964000 PSADSSMC EQU PSADSSF3 04965000 PSADSSRW EQU PSADSSF3 04966000 PSADSSNM EQU PSADSSF3 04967000 PSADSSES EQU PSADSSF3 04968000 PSADSSGP EQU PSADSSF3 04969000 PSADSSF2 EQU PSADSSFL+1 04970000 PSADSSPI EQU PSADSSF1 04971000 PSADSSOI EQU PSADSSF1 04972000 PSADSSSP EQU PSADSSF1 04973000 PSADSSTP EQU PSADSSF1 04974000 PSADSSDW EQU PSADSSF1 04975000 PSADSSDD EQU PSADSSF1 04976000 PSADSSDM EQU PSADSSF1 04977000 PSADSSMV EQU PSADSSF1 04978000 PSADSSTS EQU PSA+816 04979000 PSADSSWK EQU PSA+812 04980000 PSADSSR3 EQU PSA+808 04981000 PSADSSR2 EQU PSA+804 04982000 PSADSSRS EQU PSA+800 04983000 PSASTOR EQU PSA+796 04984000 PSACPUSA EQU PSA+794 04985000 PSAVSTAP EQU PSA+792 04986000 PSAWKVAP EQU PSA+788 04987000 PSAWKRAP EQU PSA+784 04988000 PSAMCHIC EQU PSA+783 04989000 PSARV061 EQU PSA+782 04990000 PSASYMSK EQU PSA+781 04991000 PSAMCHFL EQU PSA+780 04992000 PSACR0 EQU PSA+776 04993000 PSAPSWSV EQU PSA+768 04994000 PSALITA EQU PSA+764 04995000 PSACLHS EQU PSAHLHI 04996000 PSALKR15 EQU PSALKSA+60 04997000 PSALKR14 EQU PSALKSA+56 04998000 PSALKR13 EQU PSALKSA+52 04999000 PSALKR12 EQU PSALKSA+48 05000000 PSALKR11 EQU PSALKSA+44 05001000 PSALKR10 EQU PSALKSA+40 05002000 PSALKR9 EQU PSALKSA+36 05003000 PSALKR8 EQU PSALKSA+32 05004000 PSALKR7 EQU PSALKSA+28 05005000 PSALKR6 EQU PSALKSA+24 05006000 PSALKR5 EQU PSALKSA+20 05007000 PSALKR4 EQU PSALKSA+16 05008000 PSALKR3 EQU PSALKSA+12 05009000 PSALKR2 EQU PSALKSA+8 05010000 PSALKR1 EQU PSALKSA+4 05011000 PSALKR0 EQU PSALKSA 05012000 PSARV023 EQU PSACLHT+52 05013000 PSALOCAL EQU PSACLHT+48 05014000 PSACMSL EQU PSACLHT+44 05015000 PSAOPTL EQU PSACLHT+40 05016000 PSATPACL EQU PSACLHT+36 05017000 PSATPDNL EQU PSACLHT+32 05018000 PSATPNCL EQU PSACLHT+28 05019000 PSAIOSLL EQU PSACLHT+24 05020000 PSAIOSUL EQU PSACLHT+20 05021000 PSAIOSCL EQU PSACLHT+16 05022000 PSAIOSSL EQU PSACLHT+12 05023000 PSASALCL EQU PSACLHT+8 05024000 PSAASML EQU PSACLHT+4 05025000 PSADISPL EQU PSACLHT 05026000 PSASRSA EQU PSA+636 05027000 PSARV050 EQU PSA+634 05028000 PSADSSGO EQU PSA+633 05029000 PSARECUR EQU PSA+632 05030000 PSAHLHIS EQU PSA+628 05031000 PSAIPCSA EQU PSA+624 05032000 @NM00152 EQU PSA+621 05033000 PSAIPCDM EQU PSA+620 05034000 PSAIPCD EQU PSA+616 05035000 @NM00151 EQU PSA+613 05036000 PSAIPCRM EQU PSA+612 05037000 PSAIPCR EQU PSA+608 05038000 PSAMCHEX EQU PSA+600 05039000 PSAMPSW EQU PSA+592 05040000 PSAEXPS2 EQU PSA+584 05041000 PSAEXPS1 EQU PSA+576 05042000 PSAPIREG EQU PSA+572 05043000 PSARSREG EQU PSA+568 05044000 PSAGPREG EQU PSA+556 05045000 PSARV022 EQU PSASUP4 05046000 PSARV021 EQU PSASUP4 05047000 PSARV020 EQU PSASUP4 05048000 PSARV019 EQU PSASUP4 05049000 PSARV018 EQU PSASUP4 05050000 PSARV017 EQU PSASUP4 05051000 PSARV016 EQU PSASUP4 05052000 PSARV015 EQU PSASUP4 05053000 PSARV014 EQU PSASUP3 05054000 PSARV013 EQU PSASUP3 05055000 PSARV012 EQU PSASUP3 05056000 PSAESTA EQU PSASUP3 05057000 PSASPR EQU PSASUP3 05058000 PSAPSREG EQU PSASUP3 05059000 PSAPI2 EQU PSASUP3 05060000 PSAIOSUP EQU PSASUP3 05061000 PSALCR EQU PSASUP2 05062000 PSARTM EQU PSASUP2 05063000 PSAACR EQU PSASUP2 05064000 PSAIPCE2 EQU PSASUP2 05065000 PSAIPCES EQU PSASUP2 05066000 PSAIPCEC EQU PSASUP2 05067000 PSAGTF EQU PSASUP2 05068000 PSAIPCRI EQU PSASUP2 05069000 PSATYPE6 EQU PSASUP1 05070000 PSATCTL EQU PSASUP1 05071000 PSADISP EQU PSASUP1 05072000 PSALOCK EQU PSASUP1 05073000 PSAPI EQU PSASUP1 05074000 PSAEXT EQU PSASUP1 05075000 PSASVC EQU PSASUP1 05076000 PSAIO EQU PSASUP1 05077000 PSAAOLD EQU PSA+548 05078000 PSAANEW EQU PSA+544 05079000 PSATOLD EQU PSA+540 05080000 PSATNEW EQU PSA+536 05081000 PSALCCAR EQU PSA+532 05082000 PSALCCAV EQU PSA+528 05083000 PSAPCCAR EQU PSA+524 05084000 PSAPCCAV EQU PSA+520 05085000 PSACPULA EQU PSA+518 05086000 PSACPUPA EQU PSA+516 05087000 PSAPSA EQU PSA+512 05088000 FLCHDEND EQU PSA+512 05089000 FLCCRSAV EQU FLCMCLA+280 05090000 FLCGRSAV EQU FLCMCLA+216 05091000 FLCFPSAV EQU FLCMCLA+184 05092000 FLCFLA EQU FLCMCLA+88 05093000 FLCRGNCD EQU FLCMCLA+84 05094000 FLCFSAA EQU FLCFSA+1 05095000 @NM00150 EQU FLCFSA 05096000 @NM00149 EQU FLCMCLA+72 05097000 FLCMCIC EQU FLCMCLA+64 05098000 @NM00148 EQU FLCMCLA+20 05099000 FLCIOAA EQU FLCIOA+1 05100000 @NM00147 EQU FLCIOA 05101000 @NM00146 EQU FLCMCLA+15 05102000 @NM00145 EQU FLCMCLA+14 05103000 @NM00144 EQU FLCMCLA+12 05104000 FLCLCL EQU FLCMCLA+8 05105000 FLCIOELA EQU FLCIOEL+1 05106000 @NM00143 EQU FLCIOEL 05107000 FLCCHNID EQU FLCMCLA 05108000 @NM00142 EQU PSA+160 05109000 FLCMTRCD EQU PSA+157 05110000 @NM00141 EQU PSA+156 05111000 FLCPERA EQU FLCPER+1 05112000 @NM00140 EQU FLCPER 05113000 @NM00139 EQU PSA+151 05114000 FLCPERCD EQU PSA+150 05115000 FLCMCNUM EQU PSA+149 05116000 @NM00138 EQU PSA+148 05117000 FLCTEAA EQU FLCTEA+1 05118000 @NM00137 EQU FLCTEA 05119000 PSAPIPC EQU PSAPICOD 05120000 PSAPIMC EQU PSAPICOD 05121000 PSAPIPER EQU PSAPICOD 05122000 PSARV049 EQU FLCPICOD 05123000 FLCPILCB EQU FLCPIILC 05124000 @NM00136 EQU FLCPIILC 05125000 @NM00135 EQU PSAEPPSW 05126000 FLCSVCN EQU PSAESPSW+2 05127000 FLCSILCB EQU FLCSVILC 05128000 @NM00134 EQU FLCSVILC 05129000 @NM00133 EQU PSAESPSW 05130000 FLCEICOD EQU PSAEEPSW+2 05131000 PSASPAD EQU PSAEEPSW 05132000 @NM00132 EQU PSA+128 05133000 FLCINPSW EQU PSA+120 05134000 FLCMNPSW EQU PSA+112 05135000 FLCPNPSW EQU PSA+104 05136000 FLCSNPSW EQU PSA+96 05137000 FLCENPSW EQU PSA+88 05138000 FLCTRACE EQU PSA+84 05139000 FLCTIMER EQU PSA+80 05140000 FLCCVT2 EQU PSA+76 05141000 FLCCAW EQU PSA+72 05142000 FLCCSW EQU PSA+64 05143000 FLCIOPSW EQU PSA+56 05144000 FLCMOPSW EQU PSA+48 05145000 FLCPOPSW EQU PSA+40 05146000 FLCSOPSW EQU PSA+32 05147000 FLCEOPSW EQU PSA+24 05148000 @NM00131 EQU FLCICCW2+4 05149000 FLCCVT EQU FLCICCW2 05150000 FLCICCW1 EQU FLCROPSW 05151000 FLCIPPSW EQU FLCRNPSW 05152000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 05153000 @RC00240 EQU @RC00237 05154000 @RC00238 EQU @RC00237 05155000 @RF00249 EQU @RC00237 05156000 @RF00270 EQU LOGMSG 05157000 @RT00276 EQU LOGMSG 05158000 @RT00278 EQU LOGMSG 05159000 @RT00293 EQU LOGRTRY 05160000 @RT00346 EQU LOGMSG 05161000 @RT00348 EQU LOGMSG 05162000 @RF00345 EQU LOGMSG 05163000 @RC00295 EQU @RC00289 05164000 @RF00289 EQU LOGMSG 05165000 @RF00384 EQU PROGERR 05166000 @RF00394 EQU OK 05167000 @RF00460 EQU LOGMSG 05168000 @RT00481 EQU LOGMSG 05169000 @RT00484 EQU DOITOVER 05170000 @RF00484 EQU LOGMSG 05171000 @RC00588 EQU @RC00585 05172000 @RC00599 EQU @RC00596 05173000 @RC00612 EQU @RC00609 05174000 @RC00621 EQU @RC00620 05175000 @RC00634 EQU @RC00620 05176000 @RC00645 EQU @RC00642 05177000 @RF00662 EQU @RC00660 05178000 ENDRSTQB EQU @EL00004 05179000 @RC00296 EQU @RC00295 05180000 @RC00624 EQU @RC00621 05181000 @ENDDATA EQU * 05182000 END IGE0003C,(C'PLS0913',0701,77231) 05183000