TITLE 'CONVERTER ESTAE RECOVERY ROUTINE *00001000 ' 00002000 IEFNB9CR CSECT , 0001 00003000 @MAINENT BALR @15,0 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEFNB9CR 73.331' 0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 * SAVER14=REG14; /* SAVE REGISTER 14 ON ENTRY */ 00013000 LR SAVER14,REG14 0007 00014000 */* IF REGISTER 0 HAS A CODE OF 12 IN IT,THEN AN SDWA IS NOT 0008 00015000 * AVAILABLE.IN THIS CASE NO PROCESSING IS DONE BECUASE THE 0008 00016000 * ABEND,OR PROBLEM ENCOUNTERED CANNOT BE HANDLED PROPERLY */ 00017000 * 0008 00018000 * IF REG0^=TWELVE THEN 0008 00019000 SLR @15,@15 0008 00020000 IC @15,TWELVE 0008 00021000 CR REG0,@15 0008 00022000 BE @RF00008 0008 00023000 * DO; 0009 00024000 * SDWAPTR=REG1; /* SET UP PTR TO WORK AREA */ 00025000 LR SDWAPTR,REG1 0010 00026000 * EREPLPTR=SDWAPARM; /* PTR TO USER PARAMETERS */ 00027000 L EREPLPTR,SDWAPARM(,SDWAPTR) 0011 00028000 */* INITIALIZE RECORD AREA IN SDWA WITH PERTINENT INFORMATION */ 00029000 * 0012 00030000 * SDWAREXN=RTNAME; /* MOVE EXIT NAME TO SDWA */ 00031000 MVC SDWAREXN(8,SDWAPTR),RTNAME 0012 00032000 * SDWAMODN=BLANK8; /* BLANK MODULE NAME INVOLVED */ 00033000 MVC SDWAMODN(8,SDWAPTR),BLANK8 0013 00034000 * SDWACSCT=BLANK8; /* BLANK CSECT NAME INVOLVED */ 00035000 MVC SDWACSCT(8,SDWAPTR),BLANK8 0014 00036000 */* SET UP DUMP PARAMETER LIST SO A DUMP CAN BE PERFORMED AT WILL */ 00037000 * 0015 00038000 * REG0=LENDUMP; /* LENGTH OF DUMP LIST HAS ZERO 00039000 * IN HIGH ORDER BYTE THAT SERVES 00040000 * AS SUBPOOL NUMBER */ 00041000 L REG0,LENDUMP 0015 00042000 * GEN(GETMAIN R,LV=(0)); /* GET CORE FOR DUMP LIST FORM */ 00043000 GETMAIN R,LV=(0) 00044000 * DUMPLIST=REG1; /* SAVE ADDRESS OF GOTTEN CORE */ 00045000 LR DUMPLIST,REG1 0017 00046000 */* MOVE DUMP LIST FROM CSECT TO GOTTEN CORE FOR EXECUTE FORM */ 00047000 * 0018 00048000 * DUMPCORE(1:LENDUMP)=DUMPMAC(1:LENDUMP); 0018 00049000 * 0018 00050000 L @15,LENDUMP 0018 00051000 BCTR @15,0 0018 00052000 EX @15,@SM00468 0018 00053000 */* DUMP FUNCTION IS INITIALIZED AND READY FOR SDUMP ISSUANCE */ 00054000 * 0019 00055000 * 0019 00056000 */*P E R C O L A T I O N */ 00057000 * 0019 00058000 * IF SDWAPERC=ON THEN /* WAS THIS ROUTINE PERCOLATED 0019 00059000 * TO? */ 00060000 TM SDWAPERC(SDWAPTR),B'00010000' 0019 00061000 BNO @RF00019 0019 00062000 */* ISSUE SETRP MACRO FOR PERCOLATION AND RETURN */ 00063000 * 0020 00064000 * DO; /* SETRP WKAREA(SDWAPTR) DUMP(NO) 00065000 * RC(0) RECORD(NO) */ 00066000 * RESPECIFY 0021 00067000 * (GPR00P, 0021 00068000 * GPR01P, 0021 00069000 * GPR14P, 0021 00070000 * GPR15P) RSTD; 0021 00071000 * GPR01P=SDWAPTR; 0022 00072000 LR GPR01P,SDWAPTR 0022 00073000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00074000 MVI SDWARCDE(GPR01P),X'00' 0023 00075000 * GPR01P->SDWARCRD='0'B; /* TURN OFF RECORD INDICATOR */ 00076000 NI SDWARCRD(GPR01P),B'01111111' 0024 00077000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 00078000 NI SDWAREQ(GPR01P),B'01111111' 0025 00079000 * RESPECIFY 0026 00080000 * (GPR00P, 0026 00081000 * GPR01P, 0026 00082000 * GPR14P, 0026 00083000 * GPR15P) UNRSTD; 0026 00084000 * END; 0027 00085000 * ELSE 0028 00086000 * DO; /* NO,TEST FOR NEXT POSSIBILITY 00087000 * */ 00088000 B @RC00019 0028 00089000 @RF00019 DS 0H 0029 00090000 * 0029 00091000 */* R E C U R S I O N */ 00092000 * 0029 00093000 * IF EREPRCUR=ON THEN /* RECURSION WITHIN ESTAE 0029 00094000 * ENVIRONMENT? */ 00095000 TM EREPRCUR(EREPLPTR),B'10000000' 0029 00096000 BNO @RF00029 0029 00097000 */* ISSUE SETRP MACRO FOR RECURSION AND RETURN */ 00098000 * 0030 00099000 * DO; /* SETRP WKAREA(SDWAPTR) DUMP(NO) 00100000 * RC(0) RECORD(YES) */ 00101000 * RESPECIFY 0031 00102000 * (GPR00P, 0031 00103000 * GPR01P, 0031 00104000 * GPR14P, 0031 00105000 * GPR15P) RSTD; 0031 00106000 * GPR01P=SDWAPTR; 0032 00107000 LR GPR01P,SDWAPTR 0032 00108000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00109000 MVI SDWARCDE(GPR01P),X'00' 0033 00110000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD INDICATOR */ 00111000 OI SDWARCRD(GPR01P),B'10000000' 0034 00112000 * GPR01P->SDWAREQ='0'B;/* TURN OFF DUMP INDICATOR */ 00113000 NI SDWAREQ(GPR01P),B'01111111' 0035 00114000 * RESPECIFY 0036 00115000 * (GPR00P, 0036 00116000 * GPR01P, 0036 00117000 * GPR14P, 0036 00118000 * GPR15P) UNRSTD; 0036 00119000 * END; 0037 00120000 * ELSE 0038 00121000 * DO; 0038 00122000 * 0038 00123000 B @RC00029 0038 00124000 @RF00029 DS 0H 0039 00125000 */* RECURSION BIT IS TURNED ON FOR ALL OTHER CONDITIONS. 0039 00126000 * THIS WILL SIGNAL THAT THE EXIT ROUTINE WAS ENTERED 0039 00127000 * BECAUSE OF AN ABEND IN THE RECOVERY PROCESS. */ 00128000 * 0039 00129000 * EREPRCUR=ON; /* TURN ON RECURSION BIT 0039 00130000 * */ 00131000 OI EREPRCUR(EREPLPTR),B'10000000' 0039 00132000 * 0040 00133000 */*R E S T A R T I N T E R R U P T */ 00134000 * 0040 00135000 * IF SDWARKEY=ON THEN /* EXTERNAL INTERRUPT SIGNALLING 00136000 * RESTART? */ 00137000 TM SDWARKEY(SDWAPTR),B'00100000' 0040 00138000 BNO @RF00040 0040 00139000 * DO; 0041 00140000 * 0041 00141000 */* ISSUE SETRP MACRO FOR RESTART AND RETURN */ 00142000 * 0042 00143000 * DO; /* SETRP WKAREA(SDWAPTR) DUMP(NO) 00144000 * RC(0) RECORD(YES) */ 00145000 * RESPECIFY 0043 00146000 * (GPR00P, 0043 00147000 * GPR01P, 0043 00148000 * GPR14P, 0043 00149000 * GPR15P) RSTD; 0043 00150000 * GPR01P=SDWAPTR; 0044 00151000 LR GPR01P,SDWAPTR 0044 00152000 * GPR01P->SDWARCDE=0;/* SAVE RC VALUE */ 00153000 MVI SDWARCDE(GPR01P),X'00' 0045 00154000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD 0046 00155000 * INDICATOR */ 00156000 OI SDWARCRD(GPR01P),B'10000000' 0046 00157000 * GPR01P->SDWAREQ='0'B;/* TURN OFF DUMP INDICATOR*/ 00158000 NI SDWAREQ(GPR01P),B'01111111' 0047 00159000 * RESPECIFY 0048 00160000 * (GPR00P, 0048 00161000 * GPR01P, 0048 00162000 * GPR14P, 0048 00163000 * GPR15P) UNRSTD; 0048 00164000 * END; 0049 00165000 * RESPECIFY 0050 00166000 * SDWA BASED(SDWAPTR); 0050 00167000 * 0050 00168000 */* ISSUE SDUMP TO PRODUCE DUMP FOR DEBUGGING. */ 00169000 * 0051 00170000 * GEN; 0051 00171000 SDUMP HDR='RESTART INTERRUPT IN CONVERTER**IEFNB9CR**',MF=(E,,00172000 (9)) 00173000 * END; 0052 00174000 * ELSE /* NO CONTINUE */ 00175000 * DO; 0053 00176000 B @RC00040 0053 00177000 @RF00040 DS 0H 0054 00178000 * 0054 00179000 */* U N E X P E C T E D E R R O R S */ 00180000 */* THE ONLY ABENDS THAT ARE EXPECTED IN THIS ROUTINE ARE 0054 00181000 * A 0B0 AND PROGRAM CHECKS.ANY OTHER ABEND IS UNEXPECTED */ 00182000 * 0054 00183000 * IF(SDWACMPC^=ZEROB0)&(SDWAPCHK=OFF) THEN 0054 00184000 * 0054 00185000 CLC SDWACMPC(3,SDWAPTR),ZEROB0 0054 00186000 BE @RF00054 0054 00187000 TM SDWAPCHK(SDWAPTR),B'01000000' 0054 00188000 BNZ @RF00054 0054 00189000 */* THE ABEND IS UNEXPECTED,SO ISSUE SETRP AND CAUSE 0055 00190000 * ERROR MESSAGE TO BE ISSUED TO OPERATOR. */ 00191000 * 0055 00192000 * DO; /* SETRP WKAREA(SDWAPTR) DUMP(NO) 00193000 * RC(0) RECORD(YES) */ 00194000 * RESPECIFY 0056 00195000 * (GPR00P, 0056 00196000 * GPR01P, 0056 00197000 * GPR14P, 0056 00198000 * GPR15P) RSTD; 0056 00199000 * GPR01P=SDWAPTR; 0057 00200000 LR GPR01P,SDWAPTR 0057 00201000 * GPR01P->SDWARCDE=0;/* SAVE RC VALUE */ 00202000 MVI SDWARCDE(GPR01P),X'00' 0058 00203000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD 0059 00204000 * INDICATOR */ 00205000 OI SDWARCRD(GPR01P),B'10000000' 0059 00206000 * GPR01P->SDWAREQ='0'B;/* TURN OFF DUMP 0060 00207000 * INDICATOR */ 00208000 NI SDWAREQ(GPR01P),B'01111111' 0060 00209000 * RESPECIFY 0061 00210000 * (GPR00P, 0061 00211000 * GPR01P, 0061 00212000 * GPR14P, 0061 00213000 * GPR15P) UNRSTD; 0061 00214000 * END; 0062 00215000 * ELSE /* EXPECTED ABEND 0063 00216000 * */ 00217000 * 0063 00218000 */* 0 B 0 ABEND , E X P E C T E D E R R O R S */ 00219000 * 0063 00220000 * DO; 0063 00221000 B @RC00054 0063 00222000 @RF00054 DS 0H 0064 00223000 * RESPECIFY 0064 00224000 * (REG4, 0064 00225000 * COUNT, 0064 00226000 * REG6, 0064 00227000 * REG7) RSTD; 0064 00228000 * 0064 00229000 */* ISSUE SETRP MACRO FOR EXPECTED ERRORS @YM02460 */ 00230000 * 0065 00231000 * DO; /* SETRP WKAREA(SDWAPTR) DUMP(NO) 00232000 * RC(4) FRESDWA(YES) RECORD(YES) 00233000 * RETADDR(IEFNB9CT) */ 00234000 * RESPECIFY 0066 00235000 * (GPR00P, 0066 00236000 * GPR01P, 0066 00237000 * GPR14P, 0066 00238000 * GPR15P) RSTD; 0066 00239000 * GPR01P=SDWAPTR; 0067 00240000 LR GPR01P,SDWAPTR 0067 00241000 * GPR01P->SDWARCDE=4;/* STORE RC INTO SDWA */ 00242000 MVI SDWARCDE(GPR01P),X'04' 0068 00243000 * GPR01P->SDWARTYA=ADDR(IEFNB9CT);/* SAVE 0069 00244000 * RETRY ADDRESS */ 00245000 L @11,@CV00422 0069 00246000 ST @11,SDWARTYA(,GPR01P) 0069 00247000 * GPR01P->SDWAFREE='1'B;/* SET FLAG TO FREE 00248000 * SDWA */ 00249000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD 0071 00250000 * INDICATOR */ 00251000 OI SDWAFREE(GPR01P),B'10000100' 0071 00252000 * GPR01P->SDWAREQ='0'B;/* TURN OFF DUMP 0072 00253000 * INDICATOR */ 00254000 NI SDWAREQ(GPR01P),B'01111111' 0072 00255000 * RESPECIFY 0073 00256000 * (GPR00P, 0073 00257000 * GPR01P, 0073 00258000 * GPR14P, 0073 00259000 * GPR15P) UNRSTD; 0073 00260000 * END; 0074 00261000 * RESPECIFY 0075 00262000 * SDWA BASED(SDWAPTR); 0075 00263000 * 0075 00264000 */* ISSUE SDUMP FOR DEBUGGING PURPOSES */ 00265000 * 0076 00266000 * GEN 0076 00267000 *(SDUMP HDR='EXPECTED CONVERTER ABEND**IEFNB9CR**',MF=(E,(9))); 0076 00268000 SDUMP HDR='EXPECTED CONVERTER ABEND**IEFNB9CR**',MF=(E,(9)) 00269000 * END; 0077 00270000 * 0078 00271000 */* I S S U E E R R O R M S G. I E F 6 8 3 I */ 00272000 */* CORE MUST BE GOTTEN FOR THE LIST FORM OF THE WRITE TO OPERATOR 0078 00273000 * PARAMETER LIST.IT IS REQUESTED IN SUBPOOL ZERO. */ 00274000 * 0078 00275000 * REG0=WTOLEN; /* ADCON FOR LENGTH OF EXPANDED 00276000 * WTO LIST HAS ZERO IN HIGH 0078 00277000 * ORDER BYTE WHICH SERVES AS 0078 00278000 * SUBPOOL NUMBER */ 00279000 @RC00054 L REG0,WTOLEN 0078 00280000 * GEN(GETMAIN R,LV=(0));/* GET CORE FOR LIST FORM */ 00281000 GETMAIN R,LV=(0) 00282000 * REG4=REG1; /* SETUP ADDRESS TO GOTTEN CORE */ 00283000 LR REG4,REG1 0080 00284000 */* THE MESSAGE LIST DEFINED IN THE CSECT MUST BE MOVED INTO THE 0081 00285000 * GOTTEN CORE. */ 00286000 * 0081 00287000 * WTOCORE(1:WTOLEN)=WTOCSECT(1:WTOLEN); 0081 00288000 * 0081 00289000 L @15,WTOLEN 0081 00290000 BCTR @15,0 0081 00291000 EX @15,@SM00472 0081 00292000 */* THE THREE 4 BIT DIGITS OF THE COMPLETION CODE ARE PLACED INTO THE 00293000 * THREE BYTE COMPLETION CODE FIELD IN THE MESSAGE.THE 4 BIT CHARACT- 00294000 * ERS ARE TRANSLATED INTO 8 BIT PRINTABLE CHARACTERS WITHIN THE 0082 00295000 * MESSAGE ITSELF.THEN THE MESSAGE IS ISSUED. */ 00296000 * 0082 00297000 * REG7=SDWAABCC; /* ABEND CODE TO LIST */ 00298000 L REG7,SDWAABCC(,SDWAPTR) 0082 00299000 * GEN(SLL REG7,8(0)); 0083 00300000 SLL REG7,8(0) 00301000 * DO COUNT=0 TO 2;/* TRANSLATE ABEND CODE INTO MSG */ 00302000 SLR COUNT,COUNT 0084 00303000 @DL00084 DS 0H 0085 00304000 * GEN CODE REFS(COUNT,CHARSTRG); 0085 00305000 SR REG6,REG6 ZERO REG6 FOR NEXT CHARACTER. 00306000 SLDL REG6,4(0) SHIFT THE 4 BIT MEMBER OF CODE INTO REG6 00307000 IC REG6,CHARSTRG(REG6) PICK PRINTABLE CHARACTER 00308000 STC REG6,41(COUNT,REG4) INSERT INTO MESSAGE TO PRINT 00309000 * END; 0086 00310000 * 0086 00311000 AH COUNT,@CH00040 0086 00312000 CH COUNT,@CH00061 0086 00313000 BNH @DL00084 0086 00314000 */* ISSUE WRITE TO OPERATOR MESSAGE */ 00315000 * 0087 00316000 * GEN(WTO MF=(E,(4))); 0087 00317000 * 0087 00318000 WTO MF=(E,(4)) 00319000 */* FREE THE WTO LIST IN GOTTEN CORE. */ 00320000 * 0088 00321000 * REG0=WTOLEN; /* LENGTH AND SUBPOOL NUMBER */ 00322000 L REG0,WTOLEN 0088 00323000 * REG1=REG4; /* ADDRESS OF WTO LIST */ 00324000 LR REG1,REG4 0089 00325000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREE CORE */ 00326000 FREEMAIN R,LV=(0),A=(1) 00327000 * RESPECIFY 0091 00328000 * (REG4, 0091 00329000 * COUNT, 0091 00330000 * REG6, 0091 00331000 * REG7) UNRSTD; 0091 00332000 * END; 0092 00333000 * END; 0093 00334000 @RC00040 DS 0H 0094 00335000 * END; 0094 00336000 @RC00029 DS 0H 0095 00337000 * 0095 00338000 */* FREE THE DUMP LIST IN CORE */ 00339000 * 0095 00340000 * REG0=LENDUMP; /* LENGTH OF DUMP LIST WITH HIGH 00341000 * ORDER BYTE OF ZERO SERVING AS 00342000 * SUBPOOL NUMBER */ 00343000 @RC00019 L REG0,LENDUMP 0095 00344000 * REG1=DUMPLIST; /* ADDRESS OF DUMP LIST IN CORE */ 00345000 LR REG1,DUMPLIST 0096 00346000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREE THE CORE */ 00347000 FREEMAIN R,LV=(0),A=(1) 00348000 * END; 0098 00349000 * 0098 00350000 */* SET UP TO RETURN */ 00351000 * 0099 00352000 * REG14=SAVER14; /* RESTORE REG14 TO RETURN TO RTM*/ 00353000 @RF00008 LR REG14,SAVER14 0099 00354000 */* RETURN CODE OF ZERO IS ALWAYS PASSED BACK IN REGISTER 15. 0100 00355000 * UNDER NORMAL CONDITIONS RTM IGNORES REGISTER 15.IF NO SDWA 0100 00356000 * WAS PASSED REGISTER 15 WITH A ZERO SIGNALS NO RETRY. */ 00357000 * 0100 00358000 * RETURN CODE(0); 0100 00359000 SLR @15,@15 0100 00360000 @EL00001 DS 0H 0100 00361000 @EF00001 DS 0H 0100 00362000 @ER00001 BR @14 0100 00363000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00364000 * GPR00P PTR(31) REG(0), 0101 00365000 * GPR01P PTR(31) REG(1), 0101 00366000 * GPR14P PTR(31) REG(14), 0101 00367000 * GPR15P PTR(31) REG(15); 0101 00368000 * DECLARE /* COMMON VARIABLES */ 00369000 * I256C CHAR(256) BASED, 0102 00370000 * I031F FIXED(31) BASED, 0102 00371000 * I031P PTR(31) BASED, 0102 00372000 * I015F FIXED(15) BASED, 0102 00373000 * I015P PTR(15) BASED, 0102 00374000 * I008P PTR(8) BASED, 0102 00375000 * I001C CHAR(1) BASED; 0102 00376000 * END IEFNB9CR 0103 00377000 * 0103 00378000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00379000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00380000 */*%INCLUDE SYSLIB (IEFZB9RD) */ 00381000 * 0103 00382000 * ; 0103 00383000 @DATA DS 0H 00384000 @CH00040 DC H'1' 00385000 @CH00061 DC H'2' 00386000 @SM00468 MVC DUMPCORE(0,DUMPLIST),DUMPMAC 00387000 @SM00472 MVC WTOCORE(0,REG4),WTOCSECT 00388000 @DATD DSECT 00389000 DS 0F 00390000 IEFNB9CR CSECT 00391000 DS 0F 00392000 @DATD DSECT 00393000 DS 0D 00394000 IEFNB9CR CSECT 00395000 DS 0F 00396000 @SIZDATD DC AL1(0) 00397000 DC AL3(@ENDDATD-@DATD) 00398000 @CV00422 DC V(IEFNB9CT) 00399000 DS 0D 00400000 DS CL1 00401000 ZEROB0 DC XL3'0B0000' 00402000 NBCRPTCH DS CL25 00403000 ORG NBCRPTCH 00404000 @NM00052 DC 25X'00' 00405000 ORG NBCRPTCH+25 00406000 DS CL3 00407000 CHARSTRG DC CL16'0123456789ABCDEF' 00408000 TWELVE DC X'0C' 00409000 RTNAME DC CL8'IEFNB9CR' 00410000 BLANK8 DC CL8' ' 00411000 IEFNB9CR CSECT 00412000 WTOCSECT WTO 'IEF683I CONVERTER TERMINATED DUE TO S ABEND',DESC=6,RR00413000 OUTCDE=2,MF=L 00414000 WTOLEN DC A(*-WTOCSECT) 00415000 DUMPMAC SDUMP BUFFER=NO,QUIESCE=YES,SDATA=(SQA,LSQA,SWA,RGN,LPA),MF=L 00416000 LENDUMP DC A(*-DUMPMAC) 00417000 @DATD DSECT 00418000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00419000 @ENDDATD EQU * 00420000 IEFNB9CR CSECT 00421000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00422000 @01 EQU 01 00423000 @02 EQU 02 00424000 @03 EQU 03 00425000 @04 EQU 04 00426000 @05 EQU 05 00427000 @06 EQU 06 00428000 @07 EQU 07 00429000 @08 EQU 08 00430000 @09 EQU 09 00431000 @10 EQU 10 00432000 @11 EQU 11 00433000 @12 EQU 12 00434000 @13 EQU 13 00435000 @14 EQU 14 00436000 @15 EQU 15 00437000 SDWAPTR EQU @02 00438000 EREPLPTR EQU @03 00439000 REG0 EQU @00 00440000 REG1 EQU @01 00441000 REG4 EQU @04 00442000 COUNT EQU @05 00443000 REG6 EQU @06 00444000 REG7 EQU @07 00445000 SAVER14 EQU @08 00446000 DUMPLIST EQU @09 00447000 REG14 EQU @14 00448000 GPR00P EQU @00 00449000 GPR01P EQU @01 00450000 GPR14P EQU @14 00451000 GPR15P EQU @15 00452000 SDWA EQU 0 00453000 SDWAPARM EQU SDWA 00454000 SDWAFIOB EQU SDWA+4 00455000 SDWAABCC EQU SDWAFIOB 00456000 SDWACMPF EQU SDWAABCC 00457000 SDWAREQ EQU SDWACMPF 00458000 SDWACMPC EQU SDWAABCC+1 00459000 SDWACTL1 EQU SDWA+8 00460000 SDWACMKA EQU SDWACTL1 00461000 SDWAMWPA EQU SDWACTL1+1 00462000 SDWAPMKA EQU SDWACTL1+4 00463000 SDWACTL2 EQU SDWA+16 00464000 SDWACMKP EQU SDWACTL2 00465000 SDWAMWPP EQU SDWACTL2+1 00466000 SDWAPMKP EQU SDWACTL2+4 00467000 SDWAGRSV EQU SDWA+24 00468000 SDWANAME EQU SDWA+88 00469000 SDWAEC1 EQU SDWA+104 00470000 SDWAEMK1 EQU SDWAEC1 00471000 SDWAMWP1 EQU SDWAEC1+1 00472000 SDWAINT1 EQU SDWAEC1+2 00473000 SDWANXT1 EQU SDWAEC1+4 00474000 SDWAAEC1 EQU SDWA+112 00475000 SDWAILC1 EQU SDWAAEC1+1 00476000 SDWAINC1 EQU SDWAAEC1+2 00477000 SDWAICD1 EQU SDWAINC1+1 00478000 SDWAEC2 EQU SDWA+120 00479000 SDWAEMK2 EQU SDWAEC2 00480000 SDWAMWP2 EQU SDWAEC2+1 00481000 SDWAINT2 EQU SDWAEC2+2 00482000 SDWANXT2 EQU SDWAEC2+4 00483000 SDWAAEC2 EQU SDWA+128 00484000 SDWAILC2 EQU SDWAAEC2+1 00485000 SDWAINC2 EQU SDWAAEC2+2 00486000 SDWAICD2 EQU SDWAINC2+1 00487000 SDWASRSV EQU SDWA+136 00488000 SDWAIDNT EQU SDWA+200 00489000 SDWAMCH EQU SDWA+204 00490000 SDWASTCK EQU SDWAMCH 00491000 SDWAMCHI EQU SDWAMCH+8 00492000 SDWAMCHS EQU SDWAMCHI 00493000 SDWAMCHD EQU SDWAMCHI+1 00494000 SDWARSR1 EQU SDWAMCH+12 00495000 SDWARSR2 EQU SDWAMCH+13 00496000 SDWAFLGS EQU SDWA+232 00497000 SDWAERRA EQU SDWAFLGS 00498000 SDWAPCHK EQU SDWAERRA 00499000 SDWARKEY EQU SDWAERRA 00500000 SDWAERRB EQU SDWAFLGS+1 00501000 SDWAERRC EQU SDWAFLGS+2 00502000 SDWAPERC EQU SDWAERRC 00503000 SDWAERRD EQU SDWAFLGS+3 00504000 SDWAIOFS EQU SDWA+238 00505000 SDWARTYA EQU SDWA+240 00506000 SDWACPUA EQU SDWA+248 00507000 SDWAPARQ EQU SDWA+252 00508000 SDWARCDE EQU SDWAPARQ 00509000 SDWAACF2 EQU SDWAPARQ+1 00510000 SDWARCRD EQU SDWAACF2 00511000 SDWAFREE EQU SDWAACF2 00512000 SDWAACF3 EQU SDWAPARQ+2 00513000 SDWAACF4 EQU SDWAPARQ+3 00514000 SDWALKWA EQU SDWA+256 00515000 SDWALKWS EQU SDWALKWA 00516000 SDWARECP EQU SDWA+292 00517000 SDWAMODN EQU SDWARECP 00518000 SDWACSCT EQU SDWARECP+8 00519000 SDWAREXN EQU SDWARECP+16 00520000 SDWASNPA EQU SDWA+320 00521000 SDWADUMP EQU SDWASNPA 00522000 SDWADPFS EQU SDWADUMP+1 00523000 SDWADDAT EQU SDWASNPA+4 00524000 SDWASDAT EQU SDWADDAT 00525000 SDWAPDAT EQU SDWADDAT+2 00526000 SDWADPSA EQU SDWA+328 00527000 SDWADPSL EQU SDWADPSA 00528000 SDWARA EQU SDWA+400 00529000 SDWADPVA EQU SDWARA+2 00530000 EREPL EQU 0 00531000 EREPFLGS EQU EREPL+12 00532000 EREPFLG1 EQU EREPFLGS 00533000 EREPRCUR EQU EREPFLG1 00534000 WTOCORE EQU 0 00535000 DUMPCORE EQU 0 00536000 I001C EQU 0 00537000 I008P EQU 0 00538000 I015F EQU 0 00539000 I015P EQU 0 00540000 I031F EQU 0 00541000 I031P EQU 0 00542000 I256C EQU 0 00543000 * START UNREFERENCED COMPONENTS 00544000 @NM00051 EQU EREPL+16 00545000 @NM00050 EQU EREPFLGS+1 00546000 @NM00049 EQU EREPFLG1 00547000 EREPLRSV EQU EREPL+8 00548000 EREPLIWA EQU EREPL+4 00549000 EREPLCWA EQU EREPL 00550000 @NM00048 EQU SDWA+512 00551000 SDWAVRA EQU SDWARA+4 00552000 SDWAURAL EQU SDWARA+3 00553000 @NM00047 EQU SDWADPVA 00554000 SDWAEBC EQU SDWADPVA 00555000 SDWAHEX EQU SDWADPVA 00556000 SDWAVRAL EQU SDWARA 00557000 @NM00046 EQU SDWA+396 00558000 SDWACOMP EQU SDWA+392 00559000 SDWARCPL EQU SDWA+364 00560000 @NM00045 EQU SDWADPSA+32 00561000 SDWATO4 EQU SDWADPSL+28 00562000 SDWAFRM4 EQU SDWADPSL+24 00563000 SDWATO3 EQU SDWADPSL+20 00564000 SDWAFRM3 EQU SDWADPSL+16 00565000 SDWATO2 EQU SDWADPSL+12 00566000 SDWAFRM2 EQU SDWADPSL+8 00567000 SDWATO1 EQU SDWADPSL+4 00568000 SDWAFRM1 EQU SDWADPSL 00569000 @NM00044 EQU SDWADDAT+3 00570000 @NM00043 EQU SDWAPDAT 00571000 SDWAUSPL EQU SDWAPDAT 00572000 SDWADPSW EQU SDWAPDAT 00573000 SDWATJPA EQU SDWAPDAT 00574000 SDWATLPA EQU SDWAPDAT 00575000 SDWADREG EQU SDWAPDAT 00576000 SDWADSAH EQU SDWAPDAT 00577000 SDWADSAS EQU SDWAPDAT 00578000 @NM00042 EQU SDWADDAT+1 00579000 @NM00041 EQU SDWASDAT 00580000 SDWAQQS EQU SDWASDAT 00581000 SDWACBS EQU SDWASDAT 00582000 SDWAGTF EQU SDWASDAT 00583000 SDWASWA EQU SDWASDAT 00584000 SDWALSQA EQU SDWASDAT 00585000 SDWASQA EQU SDWASDAT 00586000 SDWANUC EQU SDWASDAT 00587000 @NM00040 EQU SDWADUMP+2 00588000 @NM00039 EQU SDWADPFS 00589000 SDWASLST EQU SDWADPFS 00590000 @NM00038 EQU SDWADPFS 00591000 SDWADLST EQU SDWADPFS 00592000 SDWADPT EQU SDWADPFS 00593000 SDWADPID EQU SDWADUMP 00594000 SDWADPLA EQU SDWA+316 00595000 @NM00037 EQU SDWALKWA+32 00596000 SDWATALW EQU SDWALKWS+28 00597000 SDWATDLW EQU SDWALKWS+24 00598000 SDWATNLW EQU SDWALKWS+20 00599000 SDWAAPLW EQU SDWALKWS+16 00600000 SDWAIPLW EQU SDWALKWS+12 00601000 SDWAILLW EQU SDWALKWS+8 00602000 SDWAIULW EQU SDWALKWS+4 00603000 SDWAICLW EQU SDWALKWS 00604000 SDWAFLLK EQU SDWAACF4 00605000 SDWACMS EQU SDWAACF4 00606000 SDWAOPTM EQU SDWAACF4 00607000 SDWATADB EQU SDWAACF4 00608000 SDWATDNB EQU SDWAACF4 00609000 SDWATNCB EQU SDWAACF4 00610000 SDWAILCH EQU SDWAACF4 00611000 SDWAIUCB EQU SDWAACF4 00612000 SDWAICAT EQU SDWAACF3 00613000 SDWAIPRG EQU SDWAACF3 00614000 SDWASALL EQU SDWAACF3 00615000 SDWAASMP EQU SDWAACF3 00616000 SDWADISP EQU SDWAACF3 00617000 @NM00036 EQU SDWAACF3 00618000 @NM00035 EQU SDWAACF2 00619000 SDWAUPRG EQU SDWAACF2 00620000 @NM00034 EQU SDWAACF2 00621000 SDWASPIN EQU SDWAACF2 00622000 @NM00033 EQU SDWAACF2 00623000 SDWALCPU EQU SDWACPUA+2 00624000 @NM00032 EQU SDWACPUA 00625000 SDWARECA EQU SDWA+244 00626000 @NM00031 EQU SDWA+239 00627000 @NM00030 EQU SDWAIOFS 00628000 SDWANIOP EQU SDWAIOFS 00629000 SDWANOIO EQU SDWAIOFS 00630000 SDWAIOHT EQU SDWAIOFS 00631000 SDWAIOQR EQU SDWAIOFS 00632000 SDWAFMID EQU SDWA+236 00633000 @NM00029 EQU SDWAERRD 00634000 SDWAMCIV EQU SDWAERRD 00635000 SDWARPIV EQU SDWAERRD 00636000 SDWAMABD EQU SDWAERRD 00637000 SDWACTS EQU SDWAERRD 00638000 SDWASTAE EQU SDWAERRD 00639000 SDWANRBE EQU SDWAERRD 00640000 SDWACLUP EQU SDWAERRD 00641000 @NM00028 EQU SDWAERRC 00642000 SDWAEAS EQU SDWAERRC 00643000 SDWAIRB EQU SDWAERRC 00644000 SDWASTAI EQU SDWAERRC 00645000 SDWASTAF EQU SDWAERRC 00646000 SDWASRBM EQU SDWAERRB 00647000 SDWALDIS EQU SDWAERRB 00648000 SDWAENRB EQU SDWAERRB 00649000 SDWATYP1 EQU SDWAERRB 00650000 @NM00027 EQU SDWAERRB 00651000 SDWAPGIO EQU SDWAERRA 00652000 SDWATEXC EQU SDWAERRA 00653000 SDWASVCE EQU SDWAERRA 00654000 SDWAABTM EQU SDWAERRA 00655000 SDWASVCD EQU SDWAERRA 00656000 SDWAMCHK EQU SDWAERRA 00657000 SDWATIME EQU SDWAMCH+20 00658000 SDWARFSA EQU SDWAMCH+16 00659000 @NM00026 EQU SDWAMCH+14 00660000 SDWAVEQR EQU SDWARSR2 00661000 SDWAPGFX EQU SDWARSR2 00662000 SDWAFLSQ EQU SDWARSR2 00663000 SDWAFSQA EQU SDWARSR2 00664000 SDWANUCL EQU SDWARSR2 00665000 SDWASPER EQU SDWARSR2 00666000 SDWAINTC EQU SDWARSR2 00667000 SDWAOFLN EQU SDWARSR2 00668000 SDWACHNG EQU SDWARSR1 00669000 SDWAMSER EQU SDWARSR1 00670000 @NM00025 EQU SDWARSR1 00671000 SDWACPID EQU SDWAMCH+10 00672000 SDWATERR EQU SDWAMCHD 00673000 SDWAFPRX EQU SDWAMCHD 00674000 SDWAINSF EQU SDWAMCHD 00675000 SDWAACR EQU SDWAMCHD 00676000 SDWASCK EQU SDWAMCHD 00677000 SDWAPSWU EQU SDWAMCHD 00678000 SDWAREGU EQU SDWAMCHD 00679000 SDWASKYF EQU SDWAMCHD 00680000 @NM00024 EQU SDWAMCHS 00681000 SDWARSRF EQU SDWAMCHS 00682000 SDWARSRC EQU SDWAMCHS 00683000 SDWAINVP EQU SDWAMCHS 00684000 SDWATSVL EQU SDWAMCHS 00685000 SDWARCDF EQU SDWAMCHS 00686000 SDWASRVL EQU SDWAMCHS 00687000 SDWASCKE EQU SDWASTCK+4 00688000 SDWASCKB EQU SDWASTCK 00689000 SDWALNTH EQU SDWAIDNT+1 00690000 SDWASPID EQU SDWAIDNT 00691000 SDWASR15 EQU SDWASRSV+60 00692000 SDWASR14 EQU SDWASRSV+56 00693000 SDWASR13 EQU SDWASRSV+52 00694000 SDWASR12 EQU SDWASRSV+48 00695000 SDWASR11 EQU SDWASRSV+44 00696000 SDWASR10 EQU SDWASRSV+40 00697000 SDWASR09 EQU SDWASRSV+36 00698000 SDWASR08 EQU SDWASRSV+32 00699000 SDWASR07 EQU SDWASRSV+28 00700000 SDWASR06 EQU SDWASRSV+24 00701000 SDWASR05 EQU SDWASRSV+20 00702000 SDWASR04 EQU SDWASRSV+16 00703000 SDWASR03 EQU SDWASRSV+12 00704000 SDWASR02 EQU SDWASRSV+8 00705000 SDWASR01 EQU SDWASRSV+4 00706000 SDWASR00 EQU SDWASRSV 00707000 SDWATRN2 EQU SDWAAEC2+4 00708000 SDWAIPC2 EQU SDWAICD2 00709000 SDWAIMC2 EQU SDWAICD2 00710000 SDWAIPR2 EQU SDWAICD2 00711000 @NM00023 EQU SDWAINC2 00712000 @NM00022 EQU SDWAILC2 00713000 SDWAIL2 EQU SDWAILC2 00714000 @NM00021 EQU SDWAILC2 00715000 @NM00020 EQU SDWAAEC2 00716000 SDWAADD2 EQU SDWANXT2+1 00717000 @NM00019 EQU SDWANXT2 00718000 @NM00018 EQU SDWAEC2+3 00719000 SDWASGN2 EQU SDWAINT2 00720000 SDWAEXP2 EQU SDWAINT2 00721000 SDWADEC2 EQU SDWAINT2 00722000 SDWAFPO2 EQU SDWAINT2 00723000 SDWACC2 EQU SDWAINT2 00724000 @NM00017 EQU SDWAINT2 00725000 SDWAPGM2 EQU SDWAMWP2 00726000 SDWAWAT2 EQU SDWAMWP2 00727000 SDWAMCK2 EQU SDWAMWP2 00728000 SDWAECT2 EQU SDWAMWP2 00729000 SDWAKEY2 EQU SDWAMWP2 00730000 SDWAEXT2 EQU SDWAEMK2 00731000 SDWAIO2 EQU SDWAEMK2 00732000 SDWATRM2 EQU SDWAEMK2 00733000 @NM00016 EQU SDWAEMK2 00734000 SDWAPER2 EQU SDWAEMK2 00735000 @NM00015 EQU SDWAEMK2 00736000 SDWATRAN EQU SDWAAEC1+4 00737000 SDWAIPC1 EQU SDWAICD1 00738000 SDWAIMC1 EQU SDWAICD1 00739000 SDWAIPR1 EQU SDWAICD1 00740000 @NM00014 EQU SDWAINC1 00741000 @NM00013 EQU SDWAILC1 00742000 SDWAIL1 EQU SDWAILC1 00743000 @NM00012 EQU SDWAILC1 00744000 @NM00011 EQU SDWAAEC1 00745000 SDWAADD1 EQU SDWANXT1+1 00746000 @NM00010 EQU SDWANXT1 00747000 @NM00009 EQU SDWAEC1+3 00748000 SDWASGN1 EQU SDWAINT1 00749000 SDWAEXP1 EQU SDWAINT1 00750000 SDWADEC1 EQU SDWAINT1 00751000 SDWAFPO1 EQU SDWAINT1 00752000 SDWACC1 EQU SDWAINT1 00753000 @NM00008 EQU SDWAINT1 00754000 SDWAPGM1 EQU SDWAMWP1 00755000 SDWAWAT1 EQU SDWAMWP1 00756000 SDWAMCK1 EQU SDWAMWP1 00757000 SDWAECT1 EQU SDWAMWP1 00758000 SDWAKEY1 EQU SDWAMWP1 00759000 SDWAEXT1 EQU SDWAEMK1 00760000 SDWAIO1 EQU SDWAEMK1 00761000 SDWATRM1 EQU SDWAEMK1 00762000 @NM00007 EQU SDWAEMK1 00763000 SDWAPER1 EQU SDWAEMK1 00764000 @NM00006 EQU SDWAEMK1 00765000 SDWAIOBR EQU SDWA+100 00766000 SDWAEPA EQU SDWA+96 00767000 @NM00005 EQU SDWANAME+4 00768000 SDWARBAD EQU SDWANAME 00769000 SDWAGR15 EQU SDWAGRSV+60 00770000 SDWAGR14 EQU SDWAGRSV+56 00771000 SDWAGR13 EQU SDWAGRSV+52 00772000 SDWAGR12 EQU SDWAGRSV+48 00773000 SDWAGR11 EQU SDWAGRSV+44 00774000 SDWAGR10 EQU SDWAGRSV+40 00775000 SDWAGR09 EQU SDWAGRSV+36 00776000 SDWAGR08 EQU SDWAGRSV+32 00777000 SDWAGR07 EQU SDWAGRSV+28 00778000 SDWAGR06 EQU SDWAGRSV+24 00779000 SDWAGR05 EQU SDWAGRSV+20 00780000 SDWAGR04 EQU SDWAGRSV+16 00781000 SDWAGR03 EQU SDWAGRSV+12 00782000 SDWAGR02 EQU SDWAGRSV+8 00783000 SDWAGR01 EQU SDWAGRSV+4 00784000 SDWAGR00 EQU SDWAGRSV 00785000 SDWANXTP EQU SDWACTL2+5 00786000 SDWASGP EQU SDWAPMKP 00787000 SDWAEUP EQU SDWAPMKP 00788000 SDWADOP EQU SDWAPMKP 00789000 SDWAFPP EQU SDWAPMKP 00790000 SDWACCP EQU SDWAPMKP 00791000 SDWAILP EQU SDWAPMKP 00792000 SDWAINTP EQU SDWACTL2+2 00793000 SDWASPVP EQU SDWAMWPP 00794000 SDWAWATP EQU SDWAMWPP 00795000 SDWAMCKP EQU SDWAMWPP 00796000 @NM00004 EQU SDWAMWPP 00797000 SDWAKEYP EQU SDWAMWPP 00798000 SDWAEXTP EQU SDWACMKP 00799000 SDWAIOP EQU SDWACMKP 00800000 SDWANXTA EQU SDWACTL1+5 00801000 SDWASGA EQU SDWAPMKA 00802000 SDWAEUA EQU SDWAPMKA 00803000 SDWADOA EQU SDWAPMKA 00804000 SDWAFPA EQU SDWAPMKA 00805000 SDWACCA EQU SDWAPMKA 00806000 SDWAILA EQU SDWAPMKA 00807000 SDWAINTA EQU SDWACTL1+2 00808000 SDWASPVA EQU SDWAMWPA 00809000 SDWAWATA EQU SDWAMWPA 00810000 SDWAMCKA EQU SDWAMWPA 00811000 @NM00003 EQU SDWAMWPA 00812000 SDWAKEYA EQU SDWAMWPA 00813000 SDWAEXTA EQU SDWACMKA 00814000 SDWAIOA EQU SDWACMKA 00815000 @NM00002 EQU SDWACMPF 00816000 SDWASTCC EQU SDWACMPF 00817000 @NM00001 EQU SDWACMPF 00818000 SDWASTEP EQU SDWACMPF 00819000 * END UNREFERENCED COMPONENTS 00820000 @ENDDATA EQU * 00821000 END IEFNB9CR 00822000