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