TITLE 'IEAVAD0F DISPLAY STORAGE RANGES *00001000 ' 00002000 IEAVAD0F CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEAVAD0F 78.143' 0001 00008000 DROP @15 00009000 @PROLOG ST @14,12(,@13) 0001 00010000 STM @00,@12,20(@13) 0001 00011000 BALR @11,0 0001 00012000 @PSTART DS 0H 0001 00013000 USING @PSTART,@11 0001 00014000 * 0049 00015000 */* END OF TCB */ 00016000 * 0050 00017000 * 0050 00018000 */* ******************************************************************/ 00019000 */* INIALIZATION ON ENTRY */ 00020000 */* FIRST THE ADDRESSING REGISTERS ARE INIALIZED, THEN A SAVEAREA */ 00021000 */* FOR THE REGISTER SAVE AREA AND AUTOMATIC DATA AREA IS */ 00022000 */* OBTAINED FROM LSQA(SP253). THE ADDRESS OF THE AREA IS RETURNED */ 00023000 */* IN ABDGMA, AND THE ADDRESS GETMAIN PARAMETER LIST IS PASSED */ 00024000 */* IN REGISTER 1. NEXT SAVEAREAS ARE CHAINED, AND THE TEMPORARY */ 00025000 */* WORK AREAS IS CLEARED TO ZEROS. */ 00026000 */* */ 00027000 */* ******************************************************************/ 00028000 * 0050 00029000 * ABDARPTR=PARMPTR; /* SAVE PARMLIST */ 00030000 LR ABDARPTR,PARMPTR 0050 00031000 * TCBPTR=ABDTCB; /* TCBPTR FROM PARMLIST */ 00032000 L TCBPTR,ABDTCB(,ABDARPTR) 0051 00033000 * PARMPTR=ADDR(ABDASIZE); /* SAVE PARMLIST ADDRESS */ 00034000 LA PARMPTR,ABDASIZE(,ABDARPTR) 0052 00035000 * GENERATE; 0053 00036000 GETMAIN EC,LV=@ENDDATD-@DATD+72,SP=253,A=ABDGMA(ABDARPTR), X00037000 MF=(E,(1)) 00038000 * IF RETCODE^=0 THEN /* GETMAIN SUCCESSFUL @G33SPHW*/ 00039000 LTR RETCODE,RETCODE 0054 00040000 BZ @RF00054 0054 00041000 * DO; /* NO... @G33SPHW*/ 00042000 * RETCODE=8; /* SET RETURN TO 8 @G33SPHW*/ 00043000 LA RETCODE,8 0056 00044000 * RETURN; /* RETURN TO MAINLINE IEAVAD01 0057 00045000 * @G33SPHW*/ 00046000 @EL00001 DS 0H 0057 00047000 @EF00001 DS 0H 0057 00048000 @ER00001 L @14,12(,@13) 0057 00049000 LM @00,@12,20(@13) 0057 00050000 BR @14 0057 00051000 * END; /* END..GETMAIN FAILED @G33SPHW*/ 00052000 * ELSE /* GETMAIN OK @G33SPHW*/ 00053000 * DO; /* YES DO SAVEAREA INIALIZATION 00054000 * @G33SPHW*/ 00055000 @RF00054 DS 0H 0060 00056000 * PARMPTR=ABDAAREA; /* POINTER TO WORKAREA SAVEAREA 00057000 * @G33SPHW*/ 00058000 L PARMPTR,ABDAAREA(,ABDARPTR) 0060 00059000 * NEXSAPTR=PARMPTR; /* INITIALIZE NEXT SAVEAREA PTR 00060000 * IN OLD @G33SPHW*/ 00061000 ST PARMPTR,NEXSAPTR(,SAVEPTR) 0061 00062000 * PRESAPTR=SAVEPTR; /* INITIALIZE PREVIOUS SAVEAREA 00063000 * IN NEW @G33SPHW*/ 00064000 ST SAVEPTR,PRESAPTR(,PARMPTR) 0062 00065000 * SAVEPTR=PARMPTR; /* SET SAVE REGISTER TO NEW 0063 00066000 * SAVEAREA ADDRESS @G33SPHW*/ 00067000 LR SAVEPTR,PARMPTR 0063 00068000 * AUTOPTR=SAVEPTR+72; /* SETUP AUTOMATIC ADDRESSABILITY 00069000 * BEYOND SAVEAREA @G33SPHW*/ 00070000 LA AUTOPTR,72 0064 00071000 ALR AUTOPTR,SAVEPTR 0064 00072000 * GENERATE; 0065 00073000 USING @DATD,AUTOPTR /* ESTABLISH ADDRESSABILITY @G33SPHW*/ 00074000 XC 0(@ENDDATD-@DATD,AUTOPTR),0(AUTOPTR) ZERO DATA AREAS 00075000 * SAVERET=0; /* RETURN CODE ZEROED @G33SPHW*/ 00076000 SLR SAVERET,SAVERET 0066 00077000 * PARMPTR=ABDARPTR; /* PARMREG INITIALIZED TO 0067 00078000 * PARMLIST @G33SPHW*/ 00079000 LR PARMPTR,ABDARPTR 0067 00080000 * 0068 00081000 * /*************************************************************/ 00082000 * /* */ 00083000 * /* DETERMINE IF STORAGE LIST WAS REQUESTED AND STORAGE */ 00084000 * /* POINTER WAS SPECIFIED. @G33SPHW*/ 00085000 * /* */ 00086000 * /*************************************************************/ 00087000 * 0068 00088000 * IF APFSNAPP=ON& /* STORAGE LIST SPECIFIED AND 0068 00089000 * @G33SPHW*/ 00090000 * ABDSNAPP^=0 THEN /* NOT ZERO @G33SPHW*/ 00091000 TM APFSNAPP(ABDARPTR),B'00000010' 0068 00092000 BNO @RF00068 0068 00093000 L @14,ABDSNAPP(,ABDARPTR) 0068 00094000 LTR @14,@14 0068 00095000 BZ @RF00068 0068 00096000 * DO; /* PROCESS STORAGE LIST @G33SPHW*/ 00097000 * ABDLINEA(1:9)=STOREMSG; /* MOVE STORAGE HEADER TO LINE 0070 00098000 * @G33SPHW*/ 00099000 MVC ABDLINEA(9,ABDARPTR),STOREMSG 0070 00100000 * CALL IEAVAD11; /* OUTPUT HEADER @G33SPHW*/ 00101000 L @15,@CV00100 0071 00102000 BALR @14,@15 0071 00103000 * IF APFHDR=OFF| /* STORAGE HEADER ZERO @G33SPHW*/ 00104000 * APFABEND=OFF THEN /* OR CALLER IS ABEND. @G33SPHW*/ 00105000 TM APFHDR(ABDARPTR),B'00010001' 0072 00106000 BO @RF00072 0072 00107000 * HDRDONE=ON; /* STOP USER STORAGE HEADER 0073 00108000 * PROCESSING @G33SPHW*/ 00109000 OI HDRDONE,B'10000000' 0073 00110000 * ELSE 0074 00111000 * HDRDONE=OFF; /* INDICATE STORAGE HEADER ACTIVE 00112000 * @G33SPHW*/ 00113000 B @RC00072 0074 00114000 @RF00072 NI HDRDONE,B'01111111' 0074 00115000 * HDRPTR=ABDHDRAD; /* HEADER LIST @G33SPHW*/ 00116000 @RC00072 L @14,ABDHDRAD(,ABDARPTR) 0075 00117000 ST @14,HDRPTR 0075 00118000 * LISTPTR=ABDSNAPP; /* STORAGE LIST @G33SPHW*/ 00119000 L LISTPTR,ABDSNAPP(,ABDARPTR) 0076 00120000 * PARMPTR=ABDARPTR; /* PARMLIST FOR OUTPUT ROUTINE 0077 00121000 * @G33SPHW*/ 00122000 LR PARMPTR,ABDARPTR 0077 00123000 *CKHDR: 0078 00124000 * IF HDRDONE=OFF THEN /* HEADER ACTIVE @G33SPHW*/ 00125000 CKHDR TM HDRDONE,B'10000000' 0078 00126000 BNZ @RF00078 0078 00127000 * DO; /* YES @G33SPHW*/ 00128000 * 0080 00129000 * /*****************************************************/ 00130000 * /* */ 00131000 * /* THIS SECTION OF CODE DISPLAY THE STORAGE HEADERS */ 00132000 * /* SPECIFIED ON THE SNAP HEADER MACRO. HEADERS WILL */ 00133000 * /* ONLY BE DISPLAYED IF THE CALLER IS NOT ABEND. THE */ 00134000 * /* LENGTH MUST BE UNDER 100 CHRACTERS, AND IN THE KEY*/ 00135000 * /* OF THE USER. IF GREATER THAN 100 CHRACTERS A */ 00136000 * /* MESSAGE INVALID STORAGE HEADER WILL BE PRINTED TO */ 00137000 * /* THE DUMP DATASET. IF HEADER IS NOT ADDRESSABLE */ 00138000 * /* FROM THE CALLERS KEY THE SAME MESSAGE WILL APPEAR.*/ 00139000 * /* @G33SPHW*/ 00140000 * /* */ 00141000 * /*****************************************************/ 00142000 * 0080 00143000 * IF HDRPTR^=0 THEN /* HEADER ADDRESS ZERO @ZM45049*/ 00144000 L @14,HDRPTR 0080 00145000 LTR @14,@14 0080 00146000 BZ @RF00080 0080 00147000 * DO; /* NO... PROCESS @ZM45049*/ 00148000 * ABDUPRXT=ADDR(BADPARM);/* RETRY ADDRESS UPDATE 0082 00149000 * @ZM45049*/ 00150000 LA @03,BADPARM 0082 00151000 ST @03,ABDUPRXT(,ABDARPTR) 0082 00152000 * TESTWORD=HEAD; /* REFERENCE PARMLIST @ZM45049*/ 00153000 L @03,HEAD(,@14) 0083 00154000 ST @03,TESTWORD 0083 00155000 * ABDUPRXT=ADDR(BADHDR);/* RETRY ADDRESS UPDATE 0084 00156000 * @ZM45049*/ 00157000 LA @03,BADHDR 0084 00158000 ST @03,ABDUPRXT(,ABDARPTR) 0084 00159000 * IF HEADA^=0 THEN/* HEADER ADDRESS ZERO @ZM45049*/ 00160000 L @14,HEADA-1(,@14) 0085 00161000 LA @14,0(,@14) 0085 00162000 LTR @14,@14 0085 00163000 BZ @RF00085 0085 00164000 * DO; /* NO... PROCESS @ZM45049*/ 00165000 * IF HDRLEN>100 THEN/* HEADER GREATER THAN 100 00166000 * @G33SPHW*/ 00167000 CLI HDRLEN(@14),100 0087 00168000 BNH @RF00087 0087 00169000 * DO; /* YES @G33SPHW*/ 00170000 *BADHDR: 0089 00171000 * RETCODE=4;/* ERROR RC4 @G33SPHW*/ 00172000 BADHDR LA RETCODE,4 0089 00173000 * GOTO MSGISSUE;/* ISSUE ERROR MESSAGE 0090 00174000 * @VS45049*/ 00175000 B MSGISSUE 0090 00176000 *BADPARM: 0091 00177000 * RETCODE=4;/* ERROR RC=4 @VS45049*/ 00178000 BADPARM LA RETCODE,4 0091 00179000 * HDRDONE=ON;/* STOP HEADER PROCESS 0092 00180000 * @VS45049*/ 00181000 OI HDRDONE,B'10000000' 0092 00182000 * END; /* END GREATER THAN 100 @G33SPHW*/ 00183000 * ELSE /* CHECK FOR LENGTH OF @G33SPHW*/ 00184000 * DO; /* ZERO @G33SPHW*/ 00185000 B @RC00087 0094 00186000 @RF00087 DS 0H 0095 00187000 * IF HDRLEN=0 THEN/* HEADER LENGTH EQUAL 0 00188000 * @G33SPHW*/ 00189000 L @14,HDRPTR 0095 00190000 L @14,HEADA-1(,@14) 0095 00191000 CLI HDRLEN(@14),0 0095 00192000 BNE @RF00095 0095 00193000 * DO; /* YES... @G33SPHW*/ 00194000 * RETCODE=0;/* RETCODE 0 @G33SPHW*/ 00195000 SLR RETCODE,RETCODE 0097 00196000 * END; /* END HDR ZERO @G33SPHW*/ 00197000 * ELSE /* PROCESS HEADER @G33SPHW*/ 00198000 * DO; /* HEADER BETWEEN ONE-HUNDRED 0099 00199000 * CHARACTERS LONG @G33SPHW*/ 00200000 B @RC00095 0099 00201000 @RF00095 DS 0H 0100 00202000 * RFY 0100 00203000 * (TESTREG) RSTD;/* PROTECT WORK REG 00204000 * @ZA32114*/ 00205000 * DO; /* MODESET EXTKEY(TCB) 0101 00206000 * WORKREG(TESTREG) */ 00207000 * TESTREG=TCBPKF;/* GET KEY FROM TCB */ 00208000 SLR TESTREG,TESTREG 0102 00209000 IC TESTREG,TCBPKF(,TCBPTR) 0102 00210000 * SPKA(TESTREG);/* SET PSW KEY */ 00211000 SPKA 0(TESTREG) 0103 00212000 * END;/* MODESET EXTKEY(TCB) 0104 00213000 * WORKREG(TESTREG) KEY OF TCB OF 00214000 * REQUESTOR @ZA32114*/ 00215000 * STARTHDR=HEADA;/* START OF HEADER 0105 00216000 * @G33SPHW*/ 00217000 L @14,HDRPTR 0105 00218000 L @14,HEADA-1(,@14) 0105 00219000 LA @14,0(,@14) 0105 00220000 LR STARTHDR,@14 0105 00221000 * ENDHDR=STARTHDR+HDRLEN;/* GET END 0106 00222000 * ADDRESS @G33SPHW*/ 00223000 SLR @03,@03 0106 00224000 IC @03,HDRLEN(,@14) 0106 00225000 LR ENDHDR,STARTHDR 0106 00226000 ALR ENDHDR,@03 0106 00227000 * TESTREG=STARTHDR->TESTBYTE;/* FETCH 00228000 * 1ST BYTE @G33SPHW*/ 00229000 SLR TESTREG,TESTREG 0107 00230000 IC TESTREG,TESTBYTE(,STARTHDR) 0107 00231000 * TESTREG=ENDHDR->TESTBYTE;/* FETCH 0108 00232000 * LAST BYTE @G33SPHW*/ 00233000 SLR TESTREG,TESTREG 0108 00234000 IC TESTREG,TESTBYTE(,ENDHDR) 0108 00235000 * DO; /* MODESET EXTKEY(SUPR) */ 00236000 * SPKA(0);/* SET PSW KEY */ 00237000 SLR @14,@14 0110 00238000 SPKA 0(@14) 0110 00239000 * END;/* MODESET EXTKEY(SUPR) RETURN TO 00240000 * KEY 0 @G33SPHW*/ 00241000 * RFY 0112 00242000 * (TESTREG) UNRSTD;/* RELEASE WORK REG 00243000 * @ZA32114*/ 00244000 * ABDUPRXT=ADDR(BADHDR);/* RETRY TO 0113 00245000 * TERMINATE ERROR @G33SPHW*/ 00246000 LA @14,BADHDR 0113 00247000 ST @14,ABDUPRXT(,ABDARPTR) 0113 00248000 * STARTHDR=STARTHDR+1;/* POINT AT 0114 00249000 * HEADER @G33SPHW*/ 00250000 AL STARTHDR,@CF00058 0114 00251000 * ABDCC='F0'X;/* DOUBLE SPACE @ZA29976*/ 00252000 MVI ABDCC(ABDARPTR),X'F0' 0115 00253000 * ABDLINE(1:HDRLEN)=HEADER(1:HDRLEN);/* 00254000 * MOVE HEADER TO OUTPUT @G33SPHW*/ 00255000 BCTR @03,0 0116 00256000 EX @03,@SM00748 0116 00257000 * PARMPTR=ABDARPTR;/* PARMLIST IN 0117 00258000 * REGISTER @G33SPHW*/ 00259000 LR PARMPTR,ABDARPTR 0117 00260000 * CALL IEAVAD11;/* OUTPUT STORAGE 0118 00261000 * HEADER @G33SPHW*/ 00262000 L @15,@CV00100 0118 00263000 BALR @14,@15 0118 00264000 * RETCODE=0;/* RESET RETURN CODE 0119 00265000 * @G33SPHW*/ 00266000 SLR RETCODE,RETCODE 0119 00267000 * END; /* END HEADER PROCESS @G33SPHW*/ 00268000 * END; /* LENGTH NOT ZERO @G33SPHW*/ 00269000 @RC00095 DS 0H 0122 00270000 * END; /* HEADER ADDRESS ZERO @ZM45049*/ 00271000 @RC00087 DS 0H 0123 00272000 * END; /* NOT ZERO PARMLIST @G33SPHW*/ 00273000 @RF00085 DS 0H 0124 00274000 *MSGISSUE: 0124 00275000 * IF RETCODE=4 THEN /* ERROR @G33SPHW*/ 00276000 @RF00080 DS 0H 0124 00277000 MSGISSUE C RETCODE,@CF00179 0124 00278000 BNE @RF00124 0124 00279000 * DO; /* YES.. @G33SPHW*/ 00280000 * IF HDRDONE=ON THEN/* PARMLIST ERROR @ZM45049*/ 00281000 TM HDRDONE,B'10000000' 0126 00282000 BNO @RF00126 0126 00283000 * ABDLINEA(1:25)=PARMESS;/* PARMLIST MESSAGE 0127 00284000 * @ZM45049*/ 00285000 MVC ABDLINEA(25,ABDARPTR),PARMESS 0127 00286000 * ELSE /* BAD HEADER ADDRESS @ZM45049*/ 00287000 * ABDLINEA(1:24)=HDRMESS;/* ERROR IN HEADER 0128 00288000 * @G33SPHW*/ 00289000 B @RC00126 0128 00290000 @RF00126 MVC ABDLINEA(24,ABDARPTR),HDRMESS 0128 00291000 * PARMPTR=ABDARPTR;/* PARMLIST ADDRESS IN REG1 0129 00292000 * @G33SPHW*/ 00293000 @RC00126 LR PARMPTR,ABDARPTR 0129 00294000 * CALL IEAVAD11; /* OUTPUT MESSAGE @G33SPHW*/ 00295000 L @15,@CV00100 0130 00296000 BALR @14,@15 0130 00297000 * END; /* END ERROR HEADER @G33SPHW*/ 00298000 * END; /* END NO HEADER @G33SPHW*/ 00299000 @RF00124 DS 0H 0133 00300000 * 0133 00301000 * /*********************************************************/ 00302000 * /* */ 00303000 * /* THE FOLLOWING SECTION OF CODE PRINTS OUT THE AREAS OF */ 00304000 * /* CORE DESCRIBED BY THE SNAPSHOT LIST SUPPLIED BY THE */ 00305000 * /* USER, IF THE USER REQUESTED IT. EACH ENTRY IS CHECKED */ 00306000 * /* FOR INVALID PAGES BEFORE BEING PRINTED, AND IF A UPR */ 00307000 * /* OCCURS, THE SNAP LIST PROCESSING IS BYPASSED AFTER A */ 00308000 * /* MESSAGE IS PRINTED OUT. WHEN THE LIST ENTRY HAS PASSED*/ 00309000 * /* THE VALIDITY CHECK, THE ADDRESS AND LENGTH ARE PASED */ 00310000 * /* TO IEAVAD71, FORMET, AND THE CORE IS PRINTED. */ 00311000 * /* */ 00312000 * /*********************************************************/ 00313000 * 0133 00314000 * LISTPTR=LISTPTR&ROUNDWRD;/* ROUND DOWN TO WORD BOUNDARY */ 00315000 @RF00078 N LISTPTR,ROUNDWRD 0133 00316000 *UPIT: 0134 00317000 * ABDUPRXT=ADDR(BADADDR); /* SKIP THIS LIST ENTRY IF 0134 00318000 * PROGRAM CHECK @ZA05951*/ 00319000 UPIT LA @14,BADADDR 0134 00320000 ST @14,ABDUPRXT(,ABDARPTR) 0134 00321000 * RFY 0135 00322000 * TESTREG RSTD; /* @ZA32114*/ 00323000 * DO; /* MODESET EXTKEY(TCB) 0136 00324000 * WORKREG(TESTREG) */ 00325000 * TESTREG=TCBPKF; /* GET KEY FROM TCB */ 00326000 SLR TESTREG,TESTREG 0137 00327000 IC TESTREG,TCBPKF(,TCBPTR) 0137 00328000 * SPKA(TESTREG); /* SET PSW KEY */ 00329000 SPKA 0(TESTREG) 0138 00330000 * END; /* MODESET EXTKEY(TCB) 0139 00331000 * WORKREG(TESTREG) CHANGE TO 0139 00332000 * USERS KEY @ZA32114*/ 00333000 * RFY 0140 00334000 * ENDD RSTD; /* RESTRICT ENDD PTR @ZA05951*/ 00335000 * START=LISTA(1); /* PICK UP THE BLOCK ADDRESS */ 00336000 L START,LISTA-1(,LISTPTR) 0141 00337000 LA START,0(,START) 0141 00338000 * ENDD=LISTA(2); /* PICK UP THE BLOCK LENGTH IF 0142 00339000 * UPR GO TO FAILURE */ 00340000 L ENDD,LISTA+3(,LISTPTR) 0142 00341000 LA ENDD,0(,ENDD) 0142 00342000 * SAVESTRT=START; /* SAVE START ADDRESS */ 00343000 LR SAVESTRT,START 0143 00344000 * SAVELNTH=ENDD-START+1; /* SAVE LENGTH */ 00345000 LR SAVELNTH,ENDD 0144 00346000 SLR SAVELNTH,START 0144 00347000 AL SAVELNTH,@CF00058 0144 00348000 * IF SAVELNTH<=0 /* PRINT ONLY POSITIVE */ 00349000 * THEN /* LENGTHS */ 00350000 LTR SAVELNTH,SAVELNTH 0145 00351000 BNP @RT00145 0145 00352000 * GOTO BADADDR; /* GET NEXT ENTRY IN LIST AFTER 00353000 * MSG WRITTEN @ZA05951*/ 00354000 * START=START&PAGERND; /* ROUND DOWN TO PAGE BDY */ 00355000 N START,PAGERND 0147 00356000 * DO WHILE(STARTTESTBYTE;/* TRY TO FETCH FIRST BYTE 0149 00360000 * @ZA05951*/ 00361000 SLR TESTREG,TESTREG 0149 00362000 IC TESTREG,TESTBYTE(,START) 0149 00363000 * START=START+PAGESIZE; /* UPDATE PTR TO NEXT PAGE 0150 00364000 * @ZA05951*/ 00365000 AL START,PAGESIZE 0150 00366000 * END; /* END OF CHECK LOOP @ZA05951*/ 00367000 @DE00148 CR START,ENDD 0151 00368000 BL @DL00148 0151 00369000 * TESTREG=ENDD->TESTBYTE; /* CHECK LAST BYTE @ZA05951*/ 00370000 SLR TESTREG,TESTREG 0152 00371000 IC TESTREG,TESTBYTE(,ENDD) 0152 00372000 * RFY 0153 00373000 * TESTREG UNRSTD; /* @ZA05951*/ 00374000 * DO; /* MODESET EXTKEY(SUPR) */ 00375000 * SPKA(0); /* SET PSW KEY */ 00376000 SLR @14,@14 0155 00377000 SPKA 0(@14) 0155 00378000 * END; /* MODESET EXTKEY(SUPR) RETURN TO 00379000 * KEY 0 @ZA05951*/ 00380000 * ABDUPRXT=ADDR(FAILURE); /* FAIL WHOLE REQUEST IF PROG 0157 00381000 * CHECK HERE @ZA05951*/ 00382000 LA @14,FAILURE 0157 00383000 ST @14,ABDUPRXT(,ABDARPTR) 0157 00384000 *GOOD: 0158 00385000 * ABDCC='F0'X; /* CARRIAGE CONTROL CHARACTER TO 00386000 * DOUBLE SPACE @ZA29976*/ 00387000 GOOD MVI ABDCC(ABDARPTR),X'F0' 0158 00388000 * PARMPTR=ABDARPTR; /* SET UP PARAMETER REG */ 00389000 LR PARMPTR,ABDARPTR 0159 00390000 * UPRFMET=ON; /* EXPECT UPR ON FORMET */ 00391000 OI UPRFMET(ABDARPTR),B'01000000' 0160 00392000 * ABDUPRPM=ON; /* PRINT MESSAGE AND CONTINUE */ 00393000 OI ABDUPRPM(ABDARPTR),B'10000000' 0161 00394000 * ABDBLOCK=SAVESTRT; /* SET UP BLOCK ADDRESS */ 00395000 ST SAVESTRT,ABDBLOCK(,ABDARPTR) 0162 00396000 * ABDLENTH=SAVELNTH; /* SET UP LENGTH */ 00397000 ST SAVELNTH,ABDLENTH(,ABDARPTR) 0163 00398000 * CALL IEAVAD71; /* OUTPUT BLOCK OF CORE */ 00399000 L @15,@CV00101 0164 00400000 BALR @14,@15 0164 00401000 * IF RETCODE^=0 /* IF ERRED */ 00402000 * THEN /* LEAVE WITH */ 00403000 LTR RETCODE,RETCODE 0165 00404000 BNZ @RT00165 0165 00405000 * GOTO CLNUP; /* BAD CODE @G33SPHW*/ 00406000 * ELSE /* SKIP UPR PROCESSING */ 00407000 * GO TO PASSUPR; 0167 00408000 B PASSUPR 0167 00409000 *FAILURE: 0168 00410000 * ABDLINEA(1:44)=FAILMESS;/* SET UP FAILURE MESSAGE */ 00411000 FAILURE MVC ABDLINEA(44,ABDARPTR),FAILMESS 0168 00412000 * PARMPTR=ABDARPTR; /* SET UP PARAMETER REG */ 00413000 LR PARMPTR,ABDARPTR 0169 00414000 * CALL IEAVAD11; /* OUTPUT ERROR MESSAGE */ 00415000 L @15,@CV00100 0170 00416000 BALR @14,@15 0170 00417000 * IF RETCODE^=0 /* IF ERRED */ 00418000 * THEN /* LEAVE WITH */ 00419000 LTR RETCODE,RETCODE 0171 00420000 BNZ @RT00171 0171 00421000 * GOTO CLNUP; /* BAD CODE @G33SPHW*/ 00422000 *BADADDR: 0173 00423000 * RETCODE=4; /* UPR ROUTINE FOR STORAGE LIST 00424000 * @ZA05951*/ 00425000 BADADDR LA RETCODE,4 0173 00426000 *PASSUPR: 0174 00427000 * ABDUPRXT=ADDR(FAILURE); /* FAIL WHOLE REQUEST IF PROG 0174 00428000 * CHECK HERE @ZA05951*/ 00429000 PASSUPR LA @14,FAILURE 0174 00430000 ST @14,ABDUPRXT(,ABDARPTR) 0174 00431000 * IF RETCODE=4 THEN /* STORAGE OUTPUTTED OK @G33SPHW*/ 00432000 C RETCODE,@CF00179 0175 00433000 BNE @RF00175 0175 00434000 * DO; /* NO...ERROR MSG @G33SPHW*/ 00435000 * ABDLINEA(1:44)=FAILMESS;/* PUT MESSAGE IN OUTPUT 0177 00436000 * BUFFER @G33SPHW*/ 00437000 MVC ABDLINEA(44,ABDARPTR),FAILMESS 0177 00438000 * PARMPTR=ABDARPTR; /* POINT AT PARMLIST @G33SPHW*/ 00439000 LR PARMPTR,ABDARPTR 0178 00440000 * RETCODE=0; /* ZERO RETCODE @G33SPHW*/ 00441000 SLR RETCODE,RETCODE 0179 00442000 * CALL IEAVAD11; /* OUTPUT MESSAGE @G33SPHW*/ 00443000 L @15,@CV00100 0180 00444000 BALR @14,@15 0180 00445000 * END; /* END ERROR STORAGE @G33SPHW*/ 00446000 * IF LASTONE^=ON THEN /* LAST STORAGE LIST @G33SPHW*/ 00447000 @RF00175 TM LASTONE(LISTPTR),B'10000000' 0182 00448000 BO @RF00182 0182 00449000 * DO; /* YES... @G33SPHW*/ 00450000 * LISTPTR=LISTPTR+8; /* NEXT STORAGE RANGE @G33SPHW*/ 00451000 AL LISTPTR,@CF00051 0184 00452000 * IF HDRDONE=OFF THEN /* HDR ACTIVE @G33SPHW*/ 00453000 TM HDRDONE,B'10000000' 0185 00454000 BNZ @RF00185 0185 00455000 * DO; /* YES.. @G33SPHW*/ 00456000 * IF HDRLAST=OFF THEN/* LAST HEADER @G33SPHW*/ 00457000 L @14,HDRPTR 0187 00458000 TM HDRLAST(@14),B'10000000' 0187 00459000 BNZ @RF00187 0187 00460000 * DO; /* NO @G33SPHW*/ 00461000 * HDRPTR=HDRPTR+4;/* NEXT HEADER @G33SPHW*/ 00462000 AL @14,@CF00179 0189 00463000 ST @14,HDRPTR 0189 00464000 * END; /* END NOT LAST @G33SPHW*/ 00465000 * ELSE /* TURN HEADERS OFF @G33SPHW*/ 00466000 * HDRDONE=ON; /* SET HEADER SWITCH @G33SPHW*/ 00467000 B @RC00187 0191 00468000 @RF00187 OI HDRDONE,B'10000000' 0191 00469000 * END; /* HEADER NOT ACTIVE @G33SPHW*/ 00470000 * GO TO CKHDR; /* PROCESS NEXT LIST @G33SPHW*/ 00471000 B CKHDR 0193 00472000 * END; /* NO MORE STORAGE RANGES 0194 00473000 * @G33SPHW*/ 00474000 * END; /* NO STORAGE SPECIFIED @G33SPHW*/ 00475000 @RF00182 DS 0H 0196 00476000 * END; /* NO STORAGE LIST @G33SPHW*/ 00477000 @RF00068 DS 0H 0197 00478000 *CLNUP: 0197 00479000 * SAVERET=RETCODE; /* PRESERVE RETURN CODE @G33SPHW*/ 00480000 CLNUP LR SAVERET,RETCODE 0197 00481000 * PARMPTR=ADDR(ABDASIZE); /* FREEMAIN LIST REGISTER 0198 00482000 * @G33SPHW*/ 00483000 LA PARMPTR,ABDASIZE(,ABDARPTR) 0198 00484000 * ABDAAREA=SAVEPTR; /* ADDRESS TO FREE @G33SPHW*/ 00485000 ST SAVEPTR,ABDAAREA(,ABDARPTR) 0199 00486000 * SAVEPTR=SAVEPTR->PRESAPTR; /* SETUP PREVIOUS SAVEAREA 0200 00487000 * @G33SPHW*/ 00488000 L SAVEPTR,PRESAPTR(,SAVEPTR) 0200 00489000 * NEXSAPTR=0; /* CLEAR POINTER TO AREA TO BE 0201 00490000 * FREED @G33SPHW*/ 00491000 SLR @14,@14 0201 00492000 ST @14,NEXSAPTR(,SAVEPTR) 0201 00493000 * GENERATE; 0202 00494000 * /* FREE WORKAREA @G33SPHW*/ 00495000 FREEMAIN E,LV=@ENDDATD-@DATD+72,SP=253,A=ABDGMA(ABDARPTR), X00496000 MF=(E,(1)) 00497000 * RETCODE=SAVERET; /* RESTORE RETURN CODE @G33SPHW*/ 00498000 LR RETCODE,SAVERET 0203 00499000 * END IEAVAD0F /* RETURN TO IEAVAD01 @G33SPHW*/ 00500000 * 0204 00501000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00502000 */*%INCLUDE SYSLIB (HDRSPEC ) */ 00503000 */*%INCLUDE SYSLIB (HDRDECL ) */ 00504000 */*%INCLUDE SYSLIB (IHAABDA ) */ 00505000 */*%INCLUDE SYSLIB (IKJTCB ) */ 00506000 */*%INCLUDE SYSLIB (SNPHDOUT) */ 00507000 */*%INCLUDE SYSLIB (SNPSTOUT) */ 00508000 * 0204 00509000 * ; 0204 00510000 B @EL00001 0204 00511000 @DATA DS 0H 00512000 @SM00748 MVC ABDLINE(0,ABDARPTR),HEADER(STARTHDR) 00513000 @DATD DSECT 00514000 DS 0F 00515000 IEAVAD0F CSECT 00516000 DS 0F 00517000 @CF00058 DC F'1' 00518000 @CF00179 DC F'4' 00519000 @CF00051 DC F'8' 00520000 @DATD DSECT 00521000 DS 0D 00522000 HDRPTR DS A 00523000 TESTWORD DS A 00524000 HDRDONE DS BL1 00525000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00526000 @ENDDATD EQU * 00527000 IEAVAD0F CSECT 00528000 DS 0F 00529000 @SIZDATD DC AL1(0) 00530000 DC AL3(@ENDDATD-@DATD) 00531000 @CV00100 DC V(IEAVAD11) 00532000 @CV00101 DC V(IEAVAD71) 00533000 DS 0D 00534000 PAGESIZE DC XL4'00001000' 00535000 PAGERND DC XL4'FFFFF000' 00536000 ROUNDWRD DC XL4'FFFFFFFC' 00537000 FAILMESS DC CL44'0-STORAGE NOT DUMPED DUE TO BAD LIST ADDRESS' 00538000 HDRMESS DC CL24'0-INVALID STORAGE HEADER' 00539000 PARMESS DC CL25'0-INVALID HEADER PARMLIST' 00540000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00541000 @01 EQU 01 00542000 @02 EQU 02 00543000 @03 EQU 03 00544000 @04 EQU 04 00545000 @05 EQU 05 00546000 @06 EQU 06 00547000 @07 EQU 07 00548000 @08 EQU 08 00549000 @09 EQU 09 00550000 @10 EQU 10 00551000 @11 EQU 11 00552000 @12 EQU 12 00553000 @13 EQU 13 00554000 @14 EQU 14 00555000 @15 EQU 15 00556000 PARMPTR EQU @01 00557000 START EQU @01 00558000 ABDARPTR EQU @02 00559000 ENDD EQU @06 00560000 TCBPTR EQU @04 00561000 TESTREG EQU @05 00562000 SAVERET EQU @07 00563000 LISTPTR EQU @08 00564000 REG10 EQU @10 00565000 REG9 EQU @09 00566000 VALADD EQU @15 00567000 AUTOPTR EQU @12 00568000 RETCODE EQU @15 00569000 SAVEPTR EQU @13 00570000 SAVESTRT EQU @09 00571000 SAVELNTH EQU @10 00572000 ENDHDR EQU @09 00573000 STARTHDR EQU @10 00574000 R0 EQU @00 00575000 NEXSAPTR EQU 8 00576000 PRESAPTR EQU 4 00577000 TESTBYTE EQU 0 00578000 LIST EQU 0 00579000 LISTA EQU LIST+1 00580000 LISTBITS EQU 4 00581000 LASTONE EQU LISTBITS 00582000 HDRLEN EQU 0 00583000 HEADER EQU 0 00584000 HEAD EQU 0 00585000 HDRBITS EQU HEAD 00586000 HDRLAST EQU HDRBITS 00587000 HEADA EQU HEAD+1 00588000 ABDAREA EQU 0 00589000 ABDTCB EQU ABDAREA 00590000 ABDPARMS EQU ABDAREA+12 00591000 ABDFLAG EQU ABDPARMS+1 00592000 APFABEND EQU ABDFLAG 00593000 APFSNAPP EQU ABDFLAG 00594000 APFHDR EQU ABDFLAG 00595000 APFSDATA EQU ABDPARMS+4 00596000 APFSDAT1 EQU ABDPARMS+5 00597000 APFPDATA EQU ABDPARMS+6 00598000 ABDSNAPP EQU ABDPARMS+16 00599000 ABDHDRAD EQU ABDPARMS+20 00600000 ABDPTRS EQU ABDAREA+84 00601000 ABDUPRXT EQU ABDAREA+112 00602000 ABDFLAG1 EQU ABDAREA+136 00603000 ABDFLAG2 EQU ABDAREA+137 00604000 ABDRES1 EQU ABDAREA+139 00605000 ABDUPRF EQU ABDAREA+265 00606000 UPRFMET EQU ABDUPRF 00607000 ABDUPRFN EQU ABDAREA+266 00608000 ABDUPRPM EQU ABDUPRFN 00609000 ABDBLNKS EQU ABDAREA+267 00610000 ABDBLOCK EQU ABDAREA+272 00611000 ABDLENTH EQU ABDAREA+276 00612000 ABDBUFFS EQU ABDAREA+308 00613000 ABDGMA EQU ABDAREA+316 00614000 ABDAAREA EQU ABDGMA 00615000 ABDASIZE EQU ABDGMA+4 00616000 ESPARM EQU ABDAREA+340 00617000 ESTAEFLG EQU ESPARM+28 00618000 ABDLINEA EQU ABDAREA+384 00619000 ABDCC EQU ABDLINEA 00620000 ABDLINE EQU ABDLINEA+1 00621000 TCBFIX EQU 0 00622000 TCBFRS EQU TCBFIX 00623000 TCB EQU 0 00624000 TCBPIE EQU TCB+4 00625000 TCBPMASK EQU TCBPIE 00626000 TCBCMP EQU TCB+16 00627000 TCBCMPF EQU TCBCMP 00628000 TCBCPP EQU TCBCMPF 00629000 TCBSTCC EQU TCBCMPF 00630000 TCBCDBL EQU TCBCMPF 00631000 TCBCWTO EQU TCBCMPF 00632000 TCBCIND EQU TCBCMPF 00633000 TCBCMSG EQU TCBCMPF 00634000 TCBTRN EQU TCB+20 00635000 TCBABF EQU TCBTRN 00636000 TCBMSS EQU TCB+24 00637000 TCBPKF EQU TCB+28 00638000 TCBFLGS EQU TCB+29 00639000 TCBFLGS1 EQU TCBFLGS 00640000 TCBFLGS2 EQU TCBFLGS+1 00641000 TCBFLGS3 EQU TCBFLGS+2 00642000 TCBFLGS4 EQU TCBFLGS+3 00643000 TCBFLGS5 EQU TCBFLGS+4 00644000 TCBABWF EQU TCBFLGS5 00645000 TCBJPQ EQU TCB+44 00646000 TCBPURGE EQU TCBJPQ 00647000 TCBGRS EQU TCB+48 00648000 TCBFSA EQU TCB+112 00649000 TCBTME EQU TCB+120 00650000 TCBJSTCB EQU TCB+124 00651000 TCBTSFLG EQU TCB+148 00652000 TCBTSTSK EQU TCBTSFLG 00653000 TCBSTAB EQU TCB+160 00654000 TCBNSTAE EQU TCBSTAB 00655000 TCBTCT EQU TCB+164 00656000 TCBTCTGF EQU TCBTCT 00657000 TCBSCNDY EQU TCB+172 00658000 TCBNDSP EQU TCBSCNDY 00659000 TCBNDSP1 EQU TCBNDSP+1 00660000 TCBNDSP2 EQU TCBNDSP+2 00661000 TCBNDSP3 EQU TCBNDSP+3 00662000 TCBJSCB EQU TCB+180 00663000 TCBRECDE EQU TCBJSCB 00664000 TCBEXT1 EQU TCB+196 00665000 TCBBITS EQU TCB+200 00666000 TCBNDSP4 EQU TCBBITS 00667000 TCBNDSP5 EQU TCBBITS+1 00668000 TCBFLGS6 EQU TCBBITS+2 00669000 TCBFLGS7 EQU TCBBITS+3 00670000 TCBDAR EQU TCB+204 00671000 TCBDARC EQU TCBDAR 00672000 TCBEXT2 EQU TCB+208 00673000 TCBXSCT EQU TCB+240 00674000 TCBXSCT1 EQU TCBXSCT 00675000 TCBFOE EQU TCB+244 00676000 TCBESTAE EQU TCB+264 00677000 TCBESTRM EQU TCBESTAE+1 00678000 TCBFBYT1 EQU TCB+276 00679000 TCBFBYT2 EQU TCB+277 00680000 TCBRV124 EQU TCB+278 00681000 TCBRV133 EQU TCB+279 00682000 TCBXTNT2 EQU 0 00683000 TCBGTF EQU TCBXTNT2 00684000 TCBTFLG EQU TCBGTF 00685000 TCBRV146 EQU TCBXTNT2+28 00686000 TCBRV155 EQU TCBXTNT2+29 00687000 TCBRV164 EQU TCBXTNT2+30 00688000 TCBRV173 EQU TCBXTNT2+31 00689000 STOREMSG EQU FAILMESS 00690000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00691000 @NM00033 EQU TCBXTNT2+32 00692000 TCBRV181 EQU TCBRV173 00693000 TCBRV180 EQU TCBRV173 00694000 TCBRV179 EQU TCBRV173 00695000 TCBRV178 EQU TCBRV173 00696000 TCBRV177 EQU TCBRV173 00697000 TCBRV176 EQU TCBRV173 00698000 TCBRV175 EQU TCBRV173 00699000 TCBRV174 EQU TCBRV173 00700000 TCBRV172 EQU TCBRV164 00701000 TCBRV171 EQU TCBRV164 00702000 TCBRV170 EQU TCBRV164 00703000 TCBRV169 EQU TCBRV164 00704000 TCBRV168 EQU TCBRV164 00705000 TCBRV167 EQU TCBRV164 00706000 TCBRV166 EQU TCBRV164 00707000 TCBRV165 EQU TCBRV164 00708000 TCBRV163 EQU TCBRV155 00709000 TCBRV162 EQU TCBRV155 00710000 TCBRV161 EQU TCBRV155 00711000 TCBRV160 EQU TCBRV155 00712000 TCBRV159 EQU TCBRV155 00713000 TCBRV158 EQU TCBRV155 00714000 TCBRV157 EQU TCBRV155 00715000 TCBRV156 EQU TCBRV155 00716000 TCBRV154 EQU TCBRV146 00717000 TCBRV153 EQU TCBRV146 00718000 TCBRV152 EQU TCBRV146 00719000 TCBRV151 EQU TCBRV146 00720000 TCBRV150 EQU TCBRV146 00721000 TCBRV149 EQU TCBRV146 00722000 TCBRV148 EQU TCBRV146 00723000 TCBRV147 EQU TCBRV146 00724000 TCBRV145 EQU TCBXTNT2+26 00725000 TCBRV144 EQU TCBXTNT2+24 00726000 TCBRV143 EQU TCBXTNT2+20 00727000 TCBRV142 EQU TCBXTNT2+16 00728000 TCBRSV49 EQU TCBXTNT2+12 00729000 TCBEVENT EQU TCBXTNT2+8 00730000 TCBRCMP EQU TCBXTNT2+5 00731000 TCBRSVAB EQU TCBXTNT2+4 00732000 TCBGTFA EQU TCBGTF+1 00733000 TCBRSV47 EQU TCBTFLG 00734000 TCBRSV46 EQU TCBTFLG 00735000 TCBRSV45 EQU TCBTFLG 00736000 TCBRSV44 EQU TCBTFLG 00737000 TCBRSV43 EQU TCBTFLG 00738000 TCBDSPIT EQU TCBTFLG 00739000 TCBERRTN EQU TCBTFLG 00740000 TCBASYNC EQU TCBTFLG 00741000 @NM00032 EQU TCB+296 00742000 TCBSVCA2 EQU TCB+292 00743000 TCBSWASA EQU TCB+288 00744000 TCBDBTB EQU TCB+284 00745000 TCBRPT EQU TCB+280 00746000 TCBRV141 EQU TCBRV133 00747000 TCBRV140 EQU TCBRV133 00748000 TCBRV139 EQU TCBRV133 00749000 TCBRV138 EQU TCBRV133 00750000 TCBRV137 EQU TCBRV133 00751000 TCBRV136 EQU TCBRV133 00752000 TCBRV135 EQU TCBRV133 00753000 TCBRV134 EQU TCBRV133 00754000 TCBRV132 EQU TCBRV124 00755000 TCBRV131 EQU TCBRV124 00756000 TCBRV130 EQU TCBRV124 00757000 TCBRV129 EQU TCBRV124 00758000 TCBRV128 EQU TCBRV124 00759000 TCBRV127 EQU TCBRV124 00760000 TCBRV126 EQU TCBRV124 00761000 TCBRV125 EQU TCBRV124 00762000 TCBRV123 EQU TCBFBYT2 00763000 TCBRV122 EQU TCBFBYT2 00764000 TCBECBNV EQU TCBFBYT2 00765000 TCBSSSYN EQU TCBFBYT2 00766000 TCBFPRAP EQU TCBFBYT2 00767000 TCBFDW EQU TCBFBYT2 00768000 TCBFMW EQU TCBFBYT2 00769000 TCBCNCB EQU TCBFBYT2 00770000 TCBLLH EQU TCBFBYT1 00771000 TCBRV113 EQU TCBFBYT1 00772000 TCBEOT EQU TCBFBYT1 00773000 TCBRTM2 EQU TCBFBYT1 00774000 TCBPGNLY EQU TCBFBYT1 00775000 TCBNDIOS EQU TCBFBYT1 00776000 TCBRV327 EQU TCBFBYT1 00777000 TCBEOTFM EQU TCBFBYT1 00778000 TCBAFFN EQU TCB+274 00779000 TCBRV326 EQU TCB+272 00780000 TCBUKYSP EQU TCB+268 00781000 TCBMODE EQU TCBESTAE+3 00782000 TCBERTYP EQU TCBESTAE+2 00783000 TCBRV314 EQU TCBESTRM 00784000 TCBRV313 EQU TCBESTRM 00785000 TCBRV312 EQU TCBESTRM 00786000 TCBRV311 EQU TCBESTRM 00787000 TCBRV310 EQU TCBESTRM 00788000 TCBRV309 EQU TCBESTRM 00789000 TCBRV308 EQU TCBESTRM 00790000 TCBETERM EQU TCBESTRM 00791000 TCBSCBKY EQU TCBESTAE 00792000 TCBRTM12 EQU TCB+260 00793000 TCBTCBID EQU TCB+256 00794000 TCBSTAWA EQU TCB+252 00795000 TCBSWA EQU TCB+248 00796000 TCBFOEA EQU TCBFOE+1 00797000 TCBRSV42 EQU TCBFOE 00798000 TCBCCPVI EQU TCBXSCT+2 00799000 TCBRV325 EQU TCBXSCT+1 00800000 TCBRV324 EQU TCBXSCT1 00801000 TCBRV323 EQU TCBXSCT1 00802000 TCBRV322 EQU TCBXSCT1 00803000 TCBRV321 EQU TCBXSCT1 00804000 TCBRV320 EQU TCBXSCT1 00805000 TCBRV319 EQU TCBXSCT1 00806000 TCBS3A EQU TCBXSCT1 00807000 TCBACTIV EQU TCBXSCT1 00808000 TCBRSV41 EQU TCB+239 00809000 TCBTID EQU TCB+238 00810000 TCBRSVAA EQU TCB+237 00811000 TCBABCUR EQU TCB+236 00812000 TCBTMSAV EQU TCB+232 00813000 TCBIOTIM EQU TCB+228 00814000 TCBRTWA EQU TCB+224 00815000 TCBBACK EQU TCB+220 00816000 TCBTIRB EQU TCB+216 00817000 TCBAECB EQU TCB+212 00818000 TCBEXT2A EQU TCBEXT2+1 00819000 TCBRSV39 EQU TCBEXT2 00820000 TCBSTMCT EQU TCB+207 00821000 TCBSYSCT EQU TCB+206 00822000 TCBRSV37 EQU TCB+205 00823000 TCBEXSVC EQU TCBDAR 00824000 TCBDARMS EQU TCBDAR 00825000 TCBDARWT EQU TCBDAR 00826000 TCBDARO EQU TCBDAR 00827000 TCBDARMC EQU TCBDARC 00828000 TCBDARD EQU TCBDAR 00829000 TCBDARS EQU TCBDAR 00830000 TCBDARP EQU TCBDAR 00831000 TCBGTOFM EQU TCBFLGS7 00832000 TCBADMP EQU TCBFLGS7 00833000 TCBRSTSK EQU TCBFLGS7 00834000 TCBSVCS EQU TCBFLGS7 00835000 TCBSTACK EQU TCBFLGS7 00836000 TCBRSV34 EQU TCBFLGS7 00837000 TCBRSV33 EQU TCBFLGS7 00838000 TCBGPECB EQU TCBFLGS7 00839000 TCBNTJS EQU TCBFLGS6 00840000 TCBAPG EQU TCBFLGS6 00841000 TCBMIGR EQU TCBFLGS6 00842000 TCBRV303 EQU TCBFLGS6 00843000 TCBSPVLK EQU TCBFLGS6 00844000 TCBCPU EQU TCBFLGS6 00845000 TCBPIE17 EQU TCBFLGS6 00846000 TCBRV EQU TCBFLGS6 00847000 TCBRSV79 EQU TCBNDSP5 00848000 TCBRSV78 EQU TCBNDSP5 00849000 TCBRSV77 EQU TCBNDSP5 00850000 TCBRSV76 EQU TCBNDSP5 00851000 TCBRSV75 EQU TCBNDSP5 00852000 TCBRSV74 EQU TCBNDSP5 00853000 TCBRSV95 EQU TCBNDSP5 00854000 TCBRSV94 EQU TCBNDSP5 00855000 TCBRSV93 EQU TCBNDSP4 00856000 TCBRSV92 EQU TCBNDSP4 00857000 TCBRSV91 EQU TCBNDSP4 00858000 TCBRSV90 EQU TCBNDSP4 00859000 TCBRSV89 EQU TCBNDSP4 00860000 TCBRSV88 EQU TCBNDSP4 00861000 TCBRSV87 EQU TCBNDSP4 00862000 TCBRSV86 EQU TCBNDSP4 00863000 TCBEXT1A EQU TCBEXT1+1 00864000 TCBRSV32 EQU TCBEXT1 00865000 TCBEXCPD EQU TCB+192 00866000 TCBIOBRC EQU TCB+188 00867000 TCBDDWTC EQU TCB+186 00868000 TCBDDEXC EQU TCB+184 00869000 TCBJSCBB EQU TCBJSCB+1 00870000 @NM00031 EQU TCBRECDE 00871000 TCBREC EQU TCBRECDE 00872000 TCBMDIDS EQU TCB+176 00873000 TCBNDINT EQU TCBNDSP3 00874000 TCBRSV27 EQU TCBNDSP3 00875000 TCBRSV26 EQU TCBNDSP3 00876000 TCBRSV25 EQU TCBNDSP3 00877000 TCBRSV24 EQU TCBNDSP3 00878000 TCBSRBND EQU TCBNDSP3 00879000 TCBRV302 EQU TCBNDSP3 00880000 TCBLJSND EQU TCBNDSP3 00881000 TCBABE EQU TCBNDSP2 00882000 TCBDSS EQU TCBNDSP2 00883000 TCBOWAIT EQU TCBNDSP2 00884000 TCBIWAIT EQU TCBNDSP2 00885000 TCBNDTS EQU TCBNDSP2 00886000 TCBNDSVC EQU TCBNDSP2 00887000 TCBSTPP EQU TCBNDSP2 00888000 TCBABD EQU TCBNDSP2 00889000 TCBRSV22 EQU TCBNDSP1 00890000 TCBPIEND EQU TCBNDSP1 00891000 TCBTPSP EQU TCBNDSP1 00892000 TCBDDRND EQU TCBNDSP1 00893000 TCBRSPND EQU TCBNDSP1 00894000 TCBRSTND EQU TCBNDSP1 00895000 TCBDARPN EQU TCBNDSP1 00896000 TCBDARTN EQU TCBNDSP1 00897000 TCBNDSP0 EQU TCBNDSP 00898000 TCBUSER EQU TCB+168 00899000 TCBTCTB EQU TCBTCT+1 00900000 TCBRSV9C EQU TCBTCTGF 00901000 TCBRSV9B EQU TCBTCTGF 00902000 TCBRSV9A EQU TCBTCTGF 00903000 TCBRSV99 EQU TCBTCTGF 00904000 TCBRSV98 EQU TCBTCTGF 00905000 TCBRSV97 EQU TCBTCTGF 00906000 TCBRSV20 EQU TCBTCTGF 00907000 TCBSMFGF EQU TCBTCTGF 00908000 TCBSTABB EQU TCBSTAB+1 00909000 TCBSTCUR EQU TCBNSTAE 00910000 TCBRV301 EQU TCBNSTAE 00911000 TCBSYNCH EQU TCBNSTAE 00912000 TCBHALT EQU TCBNSTAE 00913000 TCBPPSUP EQU TCBNSTAE 00914000 TCB33E EQU TCBNSTAE 00915000 TCBQUIES EQU TCBNSTAE 00916000 TCBSTABE EQU TCBNSTAE 00917000 TCBAQE EQU TCB+156 00918000 TCBPQE EQU TCB+152 00919000 TCBTSDP EQU TCB+151 00920000 TCBTSLP EQU TCB+150 00921000 TCBSTPCT EQU TCB+149 00922000 TCBCPUBN EQU TCBTSFLG 00923000 TCBDYDSP EQU TCBTSFLG 00924000 TCBRSV18 EQU TCBTSFLG 00925000 TCBRSV17 EQU TCBTSFLG 00926000 TCBTIOTG EQU TCBTSFLG 00927000 TCBATT EQU TCBTSFLG 00928000 TCBSTPPR EQU TCBTSFLG 00929000 TCBRV300 EQU TCBTSTSK 00930000 TCBECB EQU TCB+144 00931000 TCBIQE EQU TCB+140 00932000 TCBLTC EQU TCB+136 00933000 TCBOTC EQU TCB+132 00934000 TCBNTC EQU TCB+128 00935000 TCBJSTCA EQU TCBJSTCB+1 00936000 TCBRSV16 EQU TCBJSTCB 00937000 TCBTQET EQU TCBTME 00938000 TCBTCB EQU TCB+116 00939000 TCBFSAB EQU TCBFSA+1 00940000 TCBQEL EQU TCBFSA 00941000 TCBGRS15 EQU TCBGRS+60 00942000 TCBGRS14 EQU TCBGRS+56 00943000 TCBGRS13 EQU TCBGRS+52 00944000 TCBGRS12 EQU TCBGRS+48 00945000 TCBGRS11 EQU TCBGRS+44 00946000 TCBGRS10 EQU TCBGRS+40 00947000 TCBGRS9 EQU TCBGRS+36 00948000 TCBGRS8 EQU TCBGRS+32 00949000 TCBGRS7 EQU TCBGRS+28 00950000 TCBGRS6 EQU TCBGRS+24 00951000 TCBGRS5 EQU TCBGRS+20 00952000 TCBGRS4 EQU TCBGRS+16 00953000 TCBGRS3 EQU TCBGRS+12 00954000 TCBGRS2 EQU TCBGRS+8 00955000 TCBGRS1 EQU TCBGRS+4 00956000 TCBGRS0 EQU TCBGRS 00957000 TCBJPQB EQU TCBJPQ+1 00958000 TCBRSV15 EQU TCBPURGE 00959000 TCBRSV14 EQU TCBPURGE 00960000 TCBRSV13 EQU TCBPURGE 00961000 TCBRSV12 EQU TCBPURGE 00962000 TCBRSV11 EQU TCBPURGE 00963000 TCBRSV10 EQU TCBPURGE 00964000 TCBRSV09 EQU TCBPURGE 00965000 TCBJPQF EQU TCBPURGE 00966000 TCBJLB EQU TCB+40 00967000 TCBLLS EQU TCB+36 00968000 TCBDSP EQU TCB+35 00969000 TCBLMP EQU TCB+34 00970000 TCBPNDSP EQU TCBFLGS5 00971000 TCBFCD1 EQU TCBFLGS5 00972000 TCBSTP EQU TCBFLGS5 00973000 TCBSYS EQU TCBFLGS5 00974000 TCBANDSP EQU TCBFLGS5 00975000 TCBPAGE EQU TCBFLGS5 00976000 TCBUXNDF EQU TCBABWF 00977000 TCBFC EQU TCBFLGS5 00978000 TCBONDSP EQU TCBFLGS4 00979000 TCBMPCND EQU TCBFLGS4 00980000 TCBMPCVQ EQU TCBFLGS4 00981000 TCBUXNDV EQU TCBFLGS4 00982000 TCBHNDSP EQU TCBFLGS4 00983000 TCBRQENA EQU TCBFLGS4 00984000 TCBSER EQU TCBFLGS4 00985000 TCBNDUMP EQU TCBFLGS4 00986000 TCBDWSTA EQU TCBFLGS3 00987000 TCBRSV08 EQU TCBFLGS3 00988000 TCBRSV07 EQU TCBFLGS3 00989000 TCBRSV06 EQU TCBFLGS3 00990000 TCBABGM EQU TCBFLGS3 00991000 TCBABTRM EQU TCBFLGS3 00992000 TCBADINP EQU TCBFLGS3 00993000 TCBFSM EQU TCBFLGS3 00994000 TCBFTS EQU TCBFLGS2 00995000 TCBFETXR EQU TCBFLGS2 00996000 TCBFDSOP EQU TCBFLGS2 00997000 TCBFJMC EQU TCBFLGS2 00998000 TCBFSMC EQU TCBFLGS2 00999000 TCBFABOP EQU TCBFLGS2 01000000 TCBFSTI EQU TCBFLGS2 01001000 TCBFOINP EQU TCBFLGS2 01002000 TCBFX EQU TCBFLGS1 01003000 TCBFS EQU TCBFLGS1 01004000 TCBFT EQU TCBFLGS1 01005000 TCBPDUMP EQU TCBFLGS1 01006000 TCBNONPR EQU TCBFLGS1 01007000 TCBFERA EQU TCBFLGS1 01008000 TCBFE EQU TCBFLGS1 01009000 TCBFA EQU TCBFLGS1 01010000 TCBZERO EQU TCBPKF 01011000 TCBFLAG EQU TCBPKF 01012000 TCBMSSB EQU TCBMSS+1 01013000 TCBRSV03 EQU TCBMSS 01014000 TCBTRNB EQU TCBTRN+1 01015000 TCBRSV02 EQU TCBABF 01016000 TCBOLTEP EQU TCBABF 01017000 TCBTCP EQU TCBABF 01018000 TCBTCPP EQU TCBABF 01019000 TCBRSV01 EQU TCBABF 01020000 TCBGRPH EQU TCBABF 01021000 TCBNOCHK EQU TCBABF 01022000 TCBMOD91 EQU TCBABF 01023000 TCBCMPC EQU TCBCMP+1 01024000 TCBRV318 EQU TCBCMSG 01025000 TCBRV317 EQU TCBCIND 01026000 TCBRV316 EQU TCBCWTO 01027000 TCBCASID EQU TCBCDBL 01028000 TCBNOCC EQU TCBSTCC 01029000 TCBDMPO EQU TCBCPP 01030000 TCBCSTEP EQU TCBCMPF 01031000 TCBCREQ EQU TCBCMPF 01032000 TCBTIO EQU TCB+12 01033000 TCBDEB EQU TCB+8 01034000 TCBPIEA EQU TCBPIE+1 01035000 TCBPM EQU TCBPMASK 01036000 @NM00030 EQU TCBPMASK 01037000 TCBRBP EQU TCB 01038000 TCBFRS6 EQU TCBFRS+24 01039000 TCBFRS4 EQU TCBFRS+16 01040000 TCBFRS2 EQU TCBFRS+8 01041000 TCBFRS0 EQU TCBFRS 01042000 ABDTRLN EQU ABDAREA+676 01043000 ABDSAVE1 EQU ABDAREA+672 01044000 ABDSAVHD EQU ABDAREA+592 01045000 ABDPADC EQU ABDAREA+589 01046000 ABDSRC2 EQU ABDAREA+382 01047000 ABDLOG EQU ABDAREA+380 01048000 ABDSRC1 EQU ABDAREA+378 01049000 ABDPHY EQU ABDAREA+376 01050000 ABDLCNT EQU ABDAREA+372 01051000 @NM00029 EQU ESPARM+29 01052000 @NM00028 EQU ESTAEFLG 01053000 EDCB EQU ESTAEFLG 01054000 ETCB EQU ESTAEFLG 01055000 ESUBSYT EQU ESTAEFLG 01056000 ERESTART EQU ESPARM+24 01057000 EMODNAME EQU ESPARM+16 01058000 EABDAREA EQU ESPARM+12 01059000 ESAUTOP EQU ESPARM+8 01060000 ESBSREG2 EQU ESPARM+4 01061000 ESBSREG EQU ESPARM 01062000 ABDRTRN EQU ABDAREA+336 01063000 ABDSVCB EQU ABDAREA+332 01064000 @NM00027 EQU ABDGMA+14 01065000 ABDCDID EQU ABDGMA+12 01066000 ABDPAREA EQU ABDGMA+8 01067000 ABDBUFSZ EQU ABDBUFFS+4 01068000 ABDBUFAD EQU ABDBUFFS 01069000 ABSLCTSV EQU ABDAREA+304 01070000 ABDSTADS EQU ABDAREA+300 01071000 ABDUPRID EQU ABDAREA+296 01072000 ABDPCAP EQU ABDAREA+295 01073000 ABDLLNGH EQU ABDAREA+294 01074000 ABDINCPL EQU ABDAREA+292 01075000 ABDFWORK EQU ABDAREA+288 01076000 ABDIDENT EQU ABDAREA+286 01077000 ABDIND EQU ABDAREA+284 01078000 ABDSIZE EQU ABDAREA+280 01079000 ABDSTAD EQU ABDAREA+268 01080000 @NM00026 EQU ABDBLNKS 01081000 @NM00025 EQU ABDBLNKS 01082000 @NM00024 EQU ABDBLNKS 01083000 @NM00023 EQU ABDBLNKS 01084000 @NM00022 EQU ABDBLNKS 01085000 @NM00021 EQU ABDBLNKS 01086000 @NM00020 EQU ABDBLNKS 01087000 ABDBLKN3 EQU ABDBLNKS 01088000 @NM00019 EQU ABDUPRFN 01089000 @NM00018 EQU ABDUPRFN 01090000 @NM00017 EQU ABDUPRFN 01091000 @NM00016 EQU ABDUPRFN 01092000 @NM00015 EQU ABDUPRFN 01093000 @NM00014 EQU ABDUPRFN 01094000 ABDUPRSL EQU ABDUPRFN 01095000 @NM00013 EQU ABDUPRF 01096000 @NM00012 EQU ABDUPRF 01097000 @NM00011 EQU ABDUPRF 01098000 @NM00010 EQU ABDUPRF 01099000 @NM00009 EQU ABDUPRF 01100000 UPRFMT20 EQU ABDUPRF 01101000 UPRFMAT EQU ABDUPRF 01102000 ABDFMTWK EQU ABDAREA+256 01103000 ABDLPTR EQU ABDAREA+252 01104000 ABDLLINE EQU ABDAREA+248 01105000 ABDBPTR EQU ABDAREA+244 01106000 ABDSSPAR EQU ABDAREA+188 01107000 ABDWORK EQU ABDAREA+140 01108000 @NM00008 EQU ABDRES1 01109000 ABDTRSV EQU ABDRES1 01110000 ABDPGHD EQU ABDRES1 01111000 ABDFMTLD EQU ABDRES1 01112000 ABDSQA EQU ABDRES1 01113000 ABDOLSQA EQU ABDRES1 01114000 ABDREGS EQU ABDRES1 01115000 ABDPSW EQU ABDRES1 01116000 ABDKEY EQU ABDAREA+138 01117000 ABDLSQA EQU ABDFLAG2 01118000 ABDSTAT EQU ABDFLAG2 01119000 ABDSWAP EQU ABDFLAG2 01120000 ABDGTFCL EQU ABDFLAG2 01121000 ABDTRNAV EQU ABDFLAG2 01122000 ABDTRBIT EQU ABDFLAG2 01123000 ABDGTF EQU ABDFLAG2 01124000 ABDSUPER EQU ABDFLAG2 01125000 ABDIDX EQU ABDFLAG1 01126000 ABDSPHD EQU ABDFLAG1 01127000 ABDSVCHD EQU ABDFLAG1 01128000 ABDSQSDM EQU ABDFLAG1 01129000 ABDLSTHD EQU ABDFLAG1 01130000 ABDQCBMN EQU ABDFLAG1 01131000 ABDQCBMJ EQU ABDFLAG1 01132000 ABDQCBHD EQU ABDFLAG1 01133000 ABDPGWK EQU ABDAREA+128 01134000 ABDWORK1 EQU ABDAREA+120 01135000 ABDRESV3 EQU ABDAREA+116 01136000 ABDCP1 EQU ABDAREA+108 01137000 ABDLP EQU ABDAREA+104 01138000 ABDFP EQU ABDAREA+100 01139000 ABDCP EQU ABDAREA+96 01140000 ABDPTRS3 EQU ABDPTRS+8 01141000 ABDPTRS2 EQU ABDPTRS+4 01142000 ABDPTRS1 EQU ABDPTRS 01143000 ABDPCTR EQU ABDAREA+82 01144000 ABDLCTR EQU ABDAREA+80 01145000 ABDIOBP EQU ABDAREA+76 01146000 ABDPTR EQU ABDAREA+72 01147000 ABDDCB EQU ABDAREA+68 01148000 ABDLEN EQU ABDAREA+66 01149000 ABDTYPE EQU ABDAREA+64 01150000 ABDECB EQU ABDAREA+60 01151000 ABDSAVE EQU ABDAREA+56 01152000 ABDDECB EQU ABDAREA+52 01153000 ABDPARA EQU ABDAREA+48 01154000 ABDTABPT EQU ABDAREA+44 01155000 ABDINXPT EQU ABDAREA+40 01156000 ABDCTR EQU ABDAREA+38 01157000 @NM00007 EQU ABDAREA+36 01158000 ABDPTCBP EQU ABDPARMS+12 01159000 ABDPDCBP EQU ABDPARMS+8 01160000 @NM00006 EQU ABDPARMS+7 01161000 @NM00005 EQU APFPDATA 01162000 APFSPALL EQU APFPDATA 01163000 APFPSW EQU APFPDATA 01164000 APFJPA EQU APFPDATA 01165000 APFLPA EQU APFPDATA 01166000 APFREGS EQU APFPDATA 01167000 APFSAVE2 EQU APFPDATA 01168000 APFSAVE EQU APFPDATA 01169000 @NM00004 EQU APFSDAT1 01170000 APFERR EQU APFSDAT1 01171000 APFIO EQU APFSDAT1 01172000 APFDM EQU APFSDATA 01173000 APFQCB EQU APFSDATA 01174000 APFSUPDA EQU APFSDATA 01175000 APFTRACE EQU APFSDATA 01176000 APFSWA EQU APFSDATA 01177000 APFLSQA EQU APFSDATA 01178000 APFSQA EQU APFSDATA 01179000 APFNUC EQU APFSDATA 01180000 @NM00003 EQU ABDPARMS+2 01181000 APFTCB EQU ABDFLAG 01182000 APFID EQU ABDFLAG 01183000 APFENVS2 EQU ABDFLAG 01184000 APFVS2 EQU ABDFLAG 01185000 APFSNAP EQU ABDFLAG 01186000 ABDPID EQU ABDPARMS 01187000 ABDCRB EQU ABDAREA+8 01188000 ABDCTCB EQU ABDAREA+4 01189000 @NM00002 EQU HDRBITS 01190000 @NM00001 EQU LIST 01191000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01192000 @RT00145 EQU BADADDR 01193000 @RT00165 EQU CLNUP 01194000 @RF00165 EQU PASSUPR 01195000 @RT00171 EQU CLNUP 01196000 @RF00185 EQU CKHDR 01197000 @RC00187 EQU CKHDR 01198000 @ENDDATA EQU * 01199000 END IEAVAD0F,(C'PLS2111',0701,78143) 01200000