TITLE 'IEAVTSSE-SUMMARY DUMP PROCESSOR FOR SVC ENTRY TO SDUMP' 00001000 IEAVTSSE CSECT , 0001 00002000 @MAINENT DS 0H 0001 00003000 USING *,@15 0001 00004000 B @PROLOG 0001 00005000 DC AL1(16) 0001 00006000 DC C'IEAVTSSE 78.208' 0001 00007000 DROP @15 00008000 @PROLOG STM @14,@12,12(@13) 0001 00009000 BALR @09,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@09 0001 00012000 * WORKAREA */ 00013000 * SVCDMPNM=MODNAME; /* IDENTIFY THIS MODULE FOR 0118 00014000 * RECOVERY TRACKING */ 00015000 MVC SVCDMPNM(8,SDWKPTR),@CC02998 0118 00016000 * SMWKPTR=RTCTSDSW; /* GET ADDR OF SUMDUMP WORKAREA */ 00017000 L @12,CVTPTR 0119 00018000 L @08,CVTRTMCT(,@12) 0119 00019000 L SMWKPTR,RTCTSDSW(,@08) 0119 00020000 * RFY 0120 00021000 * SMWK BASED(SMWKPTR); /* R6 POINTS TO SUMDUMP WORKAREA */ 00022000 * RFY 0121 00023000 * SMDLR BASED(ADDR(SMWKHEAD)); /* WILL BUILD EACH SUMMARY DUMP 00024000 * RECORD HEADER IN THE SMWKHEAD 00025000 * STORAGE AREA, THEN THE OUTPUTP 00026000 * INTERNAL PROCEDURE WILL COPY 00027000 * IT TO THE OUTPUT BUFFER FOR 0121 00028000 * SVC DUMPS */ 00029000 * SMWKHEAD=SMWKHEAD&&SMWKHEAD; /* INITIALIZE SUMMARY DUMP RECORD 00030000 * HEADER TO ZEROS */ 00031000 XC SMWKHEAD(20,SMWKPTR),SMWKHEAD(SMWKPTR) 0122 00032000 * WORKSWS=WORKSWS&&WORKSWS; /* INITIALIZE INTERNAL SWITCHES 00033000 * (CONTAINED IN SMWK) TO ZEROS */ 00034000 XC WORKSWS(1,SMWKPTR),WORKSWS(SMWKPTR) 0123 00035000 * SAVECSA=SAREG; /* SAVE CALLER'S SAVE AREA ADDR 00036000 * BECAUSE WILL CHANGE SAREG NEXT*/ 00037000 ST SAREG,SAVECSA(,SMWKPTR) 0124 00038000 * SAREG=ADDR(SDWRGSV2); /* PROVIDE SAVE AREA FOR SETLOCK 00039000 * AND IEAVTSDP @ZA27227*/ 00040000 LA SAREG,SDWRGSV2(,SDWKPTR) 0125 00041000 * 0126 00042000 * /*****************************************************************/ 00043000 * /* */ 00044000 * /* INITIALIZE THE 4104 BYTE OUTPUT BUFFER FOR SVC DUMPS */ 00045000 * /* */ 00046000 * /*****************************************************************/ 00047000 * 0126 00048000 */* ***************************************************************** 00049000 * * * 00050000 * * THE AMDPRDMP DATA RECORD HEADER, MAPPED BY * 00051000 * * AMDDATA MACRO (PRDINPUT), IS AT THE BEGINNING * 00052000 * * OF THE BUFFER: * 00053000 * * * 00054000 * * (NOTE -- THE BUFFER IS AT THE END OF THE * 00055000 * * SDWORK CONTROL BLOCK, AT LABEL SDBUFFER.) * 00056000 * * * 00057000 * * +1 +2 * 00058000 * * SDSMBUFF -> +0 |---------------------------------------| * 00059000 * * | PRDKEY1 | PRDKEY2 | PRDASID | * 00060000 * * +4 |---------------------------------------| * 00061000 * * | PSEUDOAD | * 00062000 * * +8 |---------------------------------------| * 00063000 * * (THE VARIABLE LENGTH PRDDATA IS NEXT) * 00064000 * * * 00065000 * * AFTER INITIALIZATION: * 00066000 * * +0 0000FFFA * 00067000 * * +4 00080000 (WILL INCREASE BY '1000'X AFTER * 00068000 * * EACH BUFFER IS WRITTEN... ) * 00069000 * * 00081000 * 00070000 * * 00082000 ETC. * 00071000 * * * 00072000 * *****************************************************************/ 00073000 * 0126 00074000 * PRDKEY1=0; /* INIT DUMP RECORD HEADER */ 00075000 L @08,PRDINPTR(,SDWKPTR) 0126 00076000 MVI PRDKEY1(@08),X'00' 0126 00077000 * PRDKEY2=0; /* INIT DUMP RECORD HEADER */ 00078000 MVI PRDKEY2(@08),X'00' 0127 00079000 * PRDASID=SMDPASID; /* USE THE SUMMARY DUMP PSEUDO 0128 00080000 * ASID OF 'FFFA'X TO PUT THE 0128 00081000 * DATA INTO THE DUMP IN A FORMAT 00082000 * COMPATIBLE WITH THE REST OF 0128 00083000 * THE DUMP, BUT UNIQUELY 0128 00084000 * IDENTIFIED */ 00085000 MVC PRDASID(2,@08),@CB02319 0128 00086000 * IF SMWKPSSE=ZERO THEN /* IF THIS IS THE FIRST ADDRESS 00087000 * SPACE IN THE SUMDUMP @ZM45052*/ 00088000 L @02,SMWKPSSE(,SMWKPTR) 0129 00089000 LTR @02,@02 0129 00090000 BNZ @RF00129 0129 00091000 * PSEUDOAD=PASTRT; /* BEGIN THE PSEUDO ADDRESSES FOR 00092000 * THE PSEUDO ADDRESS SPACE THAT 00093000 * WILL CONTAIN THE SUMMARY DUMP 00094000 * DATA AT THE START OF THE 0130 00095000 * PRIVATE AREA FOR DUMMY ASID OF 00096000 * 'FFFA', SO THAT AMDPRDMP WILL 00097000 * NOT CONFUSE IT WITH COMMON 0130 00098000 * STORAGE AND SO AMDPRDMP CAN 0130 00099000 * RETRIEVE DATA BY 'PSEUDOAD' 0130 00100000 * REQUESTED BY THE SUMDUMP 0130 00101000 * FORMATTER */ 00102000 L @12,GDAPTR(,@12) 0130 00103000 L @12,PASTRT(,@12) 0130 00104000 ST @12,PSEUDOAD(,@08) 0130 00105000 * ELSE /* IF THIS IS CONTINUED SUMDUMP */ 00106000 * DO; /* @ZM45052*/ 00107000 B @RC00129 0131 00108000 @RF00129 DS 0H 0132 00109000 * IF(SMWKPSSE+LENGTH(PRDDATA))<=(PASTRT+PASIZE) THEN/* IF HAVE 00110000 * ROOM LEFT IN THE PSEUDO 0132 00111000 * ADDRESS SPACE @ZM45052*/ 00112000 L @12,SMWKPSSE(,SMWKPTR) 0132 00113000 L @08,@CF01017 0132 00114000 ALR @08,@12 0132 00115000 L @02,CVTPTR 0132 00116000 L @02,GDAPTR(,@02) 0132 00117000 L @15,PASTRT(,@02) 0132 00118000 AL @15,PASIZE(,@02) 0132 00119000 CR @08,@15 0132 00120000 BH @RF00132 0132 00121000 * PSEUDOAD=SMWKPSSE; /* INDICATE NEXT PAGE IN PSEUDO 00122000 * ADDRESS SPACE @ZM45052*/ 00123000 L @08,PRDINPTR(,SDWKPTR) 0133 00124000 ST @12,PSEUDOAD(,@08) 0133 00125000 * ELSE /* ELSE, IF NO ROOM LEFT,@ZM45052*/ 00126000 * ENDSW=ON; /* TERMINATE THE SUMDUMP @ZM45052*/ 00127000 B @RC00132 0134 00128000 @RF00132 OI ENDSW(SMWKPTR),B'00001000' 0134 00129000 * END; /* @ZM45052*/ 00130000 @RC00132 DS 0H 0136 00131000 * BUFFPTR=ADDR(PRDDATA); /* INITIALIZE POINTER FOR NEXT 0136 00132000 * FREE AREA IN OUTPUT BUFFER TO 00133000 * ADDRESS OF THE BUFFER, MINUS 00134000 * THE AMDPRDMP DATA RECORD 0136 00135000 * HEADER */ 00136000 @RC00129 L @12,PRDINPTR(,SDWKPTR) 0136 00137000 LA @12,PRDDATA(,@12) 0136 00138000 ST @12,BUFFPTR(,SMWKPTR) 0136 00139000 * ENDBUFF=ADDR(PRDDATA)+LENGTH(PRDDATA)-ONE;/* SAVE ADDRESS OF END 00140000 * OF OUTPUT BUFFER */ 00141000 SL @12,@CF03164 0137 00142000 ST @12,ENDBUFF(,SMWKPTR) 0137 00143000 * 0138 00144000 * /*****************************************************************/ 00145000 * /* */ 00146000 * /* INITIALIZATION FOR ERROR RECOVERY */ 00147000 * /* */ 00148000 * /*****************************************************************/ 00149000 * 0138 00150000 * SAVECRTY=ERRRETRY; /* SAVE CALLER'S RETRY ADDRESS 0138 00151000 * BECAUSE THIS MODULE WILL BE 0138 00152000 * UPDATING IT */ 00153000 L @12,ERRRETRY(,ERR6WPTR) 0138 00154000 ST @12,SAVECRTY(,SMWKPTR) 0138 00155000 * ERRBASE1=BASEREG; /* PUT THE BASE REG IN THE ERROR 00156000 * RTN PARMLIST TO BE RESTORED IF 00157000 * THERE IS A RETRY (THIS 0139 00158000 * STATEMENT MUST IMMEDIATELY 0139 00159000 * PRECEDE THE FIRST SETTING OF 00160000 * ERRRETRY) */ 00161000 ST BASEREG,ERRBASE1(,ERR6WPTR) 0139 00162000 * ERRBASE2=SMWKPTR; /* RESTORE REG 6 FOR RECOVERY 0140 00163000 * @ZA29445*/ 00164000 ST SMWKPTR,ERRBASE2(,ERR6WPTR) 0140 00165000 * 0141 00166000 * /*****************************************************************/ 00167000 * /* */ 00168000 * /* PROCESS EACH PART OF THE SUMMARY SVC DUMP... */ 00169000 * /* */ 00170000 * /*****************************************************************/ 00171000 * 0141 00172000 * ERRRETRY=ADDR(SSERTY10); /* GET FIRST RETRY LOCATION ADDR */ 00173000 * 0141 00174000 LA @12,SSERTY10 0141 00175000 ST @12,ERRRETRY(,ERR6WPTR) 0141 00176000 * /*****************************************************************/ 00177000 * /* */ 00178000 * /* CREATE HEADER CONTAINING ASID, JOBNAME, AND STEPNAME */ 00179000 * /* */ 00180000 * /*****************************************************************/ 00181000 * 0142 00182000 * IF ENDSW=OFF THEN /* IF NO ERROR FOUND SO FAR 0142 00183000 * @ZA19201*/ 00184000 TM ENDSW(SMWKPTR),B'00001000' 0142 00185000 BNZ @RF00142 0142 00186000 * CALL ASIDP; /* CREATE HEADER RECORD -NOTE- 0143 00187000 * WILL ONLY DUMP THIS RECORD IF 00188000 * OTHER OUTPUT RECORDS ARE 0143 00189000 * CREATED FOR THIS ADDR SPACE 0143 00190000 * @ZA19201*/ 00191000 BAL @14,ASIDP 0143 00192000 *SSERTY10: /* WILL RETRY HERE IF ASIDP 0144 00193000 * ABENDS @ZA19201*/ 00194000 * ERRRETRY=ADDR(SSERTY20); /* GET NEXT RETRY LOCATION 0144 00195000 * ADDRESS @ZA19201*/ 00196000 @RF00142 DS 0H 0144 00197000 SSERTY10 LA @12,SSERTY20 0144 00198000 ST @12,ERRRETRY(,ERR6WPTR) 0144 00199000 * ERRNORCD=ON; /* INDICATE NO LOGREC RECORDING 00200000 * IS NEEDED (WILL BE REFERENCING 00201000 * SUMLIST AND RTM2WA REGISTER 0145 00202000 * STORAGE AREAS) */ 00203000 OI ERRNORCD(ERR6WPTR),B'00000010' 0145 00204000 * NORCDSW=ON; /* TELL CHECKP TO RESET ERRNORCD 00205000 * ON IF ABENDED @ZA19201*/ 00206000 * 0146 00207000 OI NORCDSW(SMWKPTR),B'00000100' 0146 00208000 * /*****************************************************************/ 00209000 * /* */ 00210000 * /* DUMP AREAS SPECIFIED WITH SUMLIST KEYWORD */ 00211000 * /* */ 00212000 * /*****************************************************************/ 00213000 * 0147 00214000 * IF SDUNEW=ON& /* IF THIS IS A SU 33 PARMLIST */ 00215000 * SDUSULST=ON& /* AND SUMLIST KWD WAS ON MACRO */ 00216000 * ENDSW=OFF THEN /* AND NO ERROR FOUND SO FAR */ 00217000 L @12,CVTPTR 0147 00218000 L @12,CVTRTMCT(,@12) 0147 00219000 L @12,SDUMPPTR(,@12) 0147 00220000 TM SDUNEW(@12),B'00101000' 0147 00221000 BNO @RF00147 0147 00222000 TM ENDSW(SMWKPTR),B'00001000' 0147 00223000 BNZ @RF00147 0147 00224000 * CALL SUMLISTP; /* DUMP THE SPECIFIED STORAGE 0148 00225000 * RANGES */ 00226000 BAL @14,SUMLISTP 0148 00227000 *SSERTY20: /* WILL RETRY HERE IF SUMLISTP 0149 00228000 * ABENDS @ZA19201*/ 00229000 * ERRRETRY=ADDR(SSERTY30); /* GET NEXT RETRY LOCATION ADDR */ 00230000 @RF00147 DS 0H 0149 00231000 SSERTY20 LA @12,SSERTY30 0149 00232000 ST @12,ERRRETRY(,ERR6WPTR) 0149 00233000 * ERRNORCD=ON; /* INDICATE NO LOGREC RECORDING 00234000 * IS NEEDED (MUST RESET BIT 0150 00235000 * BECAUSE A BAD SUMLIST PARMLIST 00236000 * COULD CAUSE AN ABEND AND 0150 00237000 * SDUMP'S ESTAE TURNS THE BIT 0150 00238000 * OFF WHEN IT IS ENTERED FOR AN 00239000 * ABEND) @ZM45191*/ 00240000 OI ERRNORCD(ERR6WPTR),B'00000010' 0150 00241000 * 0151 00242000 * /*****************************************************************/ 00243000 * /* */ 00244000 * /* DUMP RTM2WA'S, ANY SAVED TRACE TABLE, AND AREAS POINTED TO BY */ 00245000 * /* PSW AND REGISTERS AT TIME OF ERROR */ 00246000 * /* */ 00247000 * /*****************************************************************/ 00248000 * 0151 00249000 * IF ENDSW=OFF THEN /* IF CAN STILL WRITE TO DUMP 0151 00250000 * DATA SET */ 00251000 TM ENDSW(SMWKPTR),B'00001000' 0151 00252000 BNZ @RF00151 0151 00253000 * CALL RTM2P; /* USE INTERNAL PROC TO DUMP 0152 00254000 * RTM2WA'S AND ASSOCIATED AREAS */ 00255000 BAL @14,RTM2P 0152 00256000 *SSERTY30: /* RETRY HERE IF RTM2P ABENDS */ 00257000 * ERRRETRY=ADDR(SSERTY40); /* GET NEXT RETRY LOCATION ADDR */ 00258000 @RF00151 DS 0H 0153 00259000 SSERTY30 LA @12,SSERTY40 0153 00260000 ST @12,ERRRETRY(,ERR6WPTR) 0153 00261000 * NORCDSW=OFF; /* TELL CHECKP NOT TO RESET 0154 00262000 * ERRNORCD ON IF HAVE ABEND 0154 00263000 * @ZA19201*/ 00264000 NI NORCDSW(SMWKPTR),B'11111011' 0154 00265000 * ERRNORCD=OFF; /* INDICATE LOGREC RECORDING IS 00266000 * NEEDED IF ABEND (DONE 0155 00267000 * REFERENCING SUMLIST AND RTM2WA 00268000 * REGISTER STORAGE AREAS) */ 00269000 * 0155 00270000 NI ERRNORCD(ERR6WPTR),B'11111101' 0155 00271000 * /*****************************************************************/ 00272000 * /* */ 00273000 * /* DUMP THE SUPERVISOR TRACE TABLE */ 00274000 * /* */ 00275000 * /*****************************************************************/ 00276000 * 0156 00277000 * IF CVTGTFAV=OFF /* IF GTF TRACE IS NOT ACTIVE */ 00278000 * &TRRTM2SW=OFF /* AND NO SAVED TRACE TABLE WAS 00279000 * FOUND FOR AN RTM2WA */ 00280000 * &SMWKPSSE=ZERO /* AND THIS IS THE FIRST ADDRESS 00281000 * SPACE IN THE SUMDUMP */ 00282000 * &ENDSW=OFF THEN /* AND CAN STILL WRITE TO DUMP 0156 00283000 * DATA SET */ 00284000 L @12,CVTPTR 0156 00285000 TM CVTGTFAV(@12),B'10000000' 0156 00286000 BNZ @RF00156 0156 00287000 TM TRRTM2SW(SMWKPTR),B'00010000' 0156 00288000 BNZ @RF00156 0156 00289000 L @12,SMWKPSSE(,SMWKPTR) 0156 00290000 LTR @12,@12 0156 00291000 BNZ @RF00156 0156 00292000 TM ENDSW(SMWKPTR),B'00001000' 0156 00293000 BNZ @RF00156 0156 00294000 * CALL TRACEP; /* USE INTERNAL PROC TO DUMP 0157 00295000 * TRACE DATA (IF HAD TRT OPTION)*/ 00296000 BAL @14,TRACEP 0157 00297000 *SSERTY40: /* RETRY HERE IF TRACEP ABENDS */ 00298000 * ERRRETRY=ADDR(RTYEND); /* RETRY TO END OF IEAVTSSE */ 00299000 @RF00156 DS 0H 0158 00300000 SSERTY40 LA @12,RTYEND 0158 00301000 ST @12,ERRRETRY(,ERR6WPTR) 0158 00302000 * 0159 00303000 * /*****************************************************************/ 00304000 * /* */ 00305000 * /* CLEAN UP AND RETURN TO CALLER... */ 00306000 * /* */ 00307000 * /*****************************************************************/ 00308000 * 0159 00309000 * IF ENDSW=OFF THEN /* IF CAN STILL WRITE TO DUMP 0159 00310000 * DATA SET */ 00311000 TM ENDSW(SMWKPTR),B'00001000' 0159 00312000 BNZ @RF00159 0159 00313000 * DO; 0160 00314000 * CALL CLEANUPP; /* EITHER WRITE 'END OF SUMMARY 00315000 * DUMP' RECORD OR WRITE NULL 0161 00316000 * RECORD FOR REST OF SUMMARY 0161 00317000 * DUMP, IF OTHER ASIDS WILL BE 00318000 * DUMPED @ZA19201*/ 00319000 BAL @14,CLEANUPP 0161 00320000 * END; /* END OF IF ENDSW = OFF */ 00321000 *RTYEND: /* RETRY HERE IF CLEAN-UP LOGIC 00322000 * ABENDS */ 00323000 * ERRRETRY=SAVECRTY; /* RESTORE CALLER'S RETRY ADDRESS*/ 00324000 @RF00159 DS 0H 0163 00325000 RTYEND L @12,SAVECRTY(,SMWKPTR) 0163 00326000 ST @12,ERRRETRY(,ERR6WPTR) 0163 00327000 * SAREG=SAVECSA; /* RESTORE SAVE AREA POINTER TO 00328000 * ITS VALUE ON ENTRY */ 00329000 L SAREG,SAVECSA(,SMWKPTR) 0164 00330000 * RETURN; /* RETURN TO CALLER (IEAVTSDT OR 00331000 * IEAVAD00) */ 00332000 @EL00001 DS 0H 0165 00333000 @EF00001 DS 0H 0165 00334000 @ER00001 LM @14,@12,12(@13) 0165 00335000 BR @14 0165 00336000 * RFY 0166 00337000 * (R14, 0166 00338000 * RETNREG) RSTD; /* RESERVE REGISTER 14 FOR RETURN 00339000 * ADDRESS, SO WON'T DEFAULT TO A 00340000 * WORK REGISTER IN INTERNAL 0166 00341000 * PROCEDURES */ 00342000 * 0167 00343000 */********************************************************************/ 00344000 */* */ 00345000 */*INTERNAL PROCEDURE NAME- */ 00346000 */* ASIDP */ 00347000 */* */ 00348000 */*FUNCTION- */ 00349000 */* DUMP ASID,JOBNAME,AND STEPNAME INFORMATION */ 00350000 */* */ 00351000 */*CALLERS- */ 00352000 */* THE MAINLINE CODE IN THIS MODULE */ 00353000 */* */ 00354000 */********************************************************************/ 00355000 * 0167 00356000 *ASIDP: 0167 00357000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0167 00358000 * 0167 00359000 ASIDP DS 0H 0168 00360000 */*A-20800933-20826533 @ZA19201*/ 00361000 * 0168 00362000 * ASIDS=RETNREG; /* SAVE RETURN ADDRESS BECAUSE 0168 00363000 * LATER CALL WILL DESTROY IT */ 00364000 ST RETNREG,ASIDS(,SMWKPTR) 0168 00365000 * SMDLRID=SMDASIDR; /* USE RECORD ID FOR ASID INFO */ 00366000 LA @15,656 0169 00367000 ALR @15,SMWKPTR 0169 00368000 MVC SMDLRID(2,@15),@CH02414 0169 00369000 * SMDLRLEN=LENGTH(SSEASIDD); /* GET LENGTH OF DATA FOR RECORD */ 00370000 MVC SMDLRLEN(4,@15),@CF02367 0170 00371000 * SMDLRADR=ADDR(SSEASIDD); /* WILL CREATE LOCAL COPY OF ASID 00372000 * RECORD DATA */ 00373000 LA @12,SSEASIDD(,SMWKPTR) 0171 00374000 ST @12,SMDLRADR(,@15) 0171 00375000 * SSEASIDA=ASCBASID; /* PUT ASID FROM ASCB INTO DATA 00376000 * AREA */ 00377000 L @15,ASCBPTR 0172 00378000 LH @12,ASCBASID(,@15) 0172 00379000 N @12,@CF03175 0172 00380000 STH @12,SSEASIDA(,SMWKPTR) 0172 00381000 * TCBPTR=ASXBLTCB; /* POINT TO LAST TCB IN THIS 0173 00382000 * ADDRESS SPACE (WANT MOST 0173 00383000 * RECENTLY CREATED TIOT INFO) */ 00384000 L @15,ASXBPTR(,@15) 0173 00385000 L @15,ASXBLTCB(,@15) 0173 00386000 ST @15,TCBPTR(,SMWKPTR) 0173 00387000 * SSEASIDJ=TIOCNJOB; /* PUT JOBNAME FROM TIOT INTO 0174 00388000 * DATA AREA */ 00389000 L @15,TIOTPTR(,@15) 0174 00390000 MVC SSEASIDJ(8,SMWKPTR),TIOCNJOB(@15) 0174 00391000 * SSEASIDS=TIOCSTEP; /* PUT PROCSTEPNAME/STEPNAME FROM 00392000 * TIOT INTO DATA AREA */ 00393000 MVC SSEASIDS(16,SMWKPTR),TIOCSTEP(@15) 0175 00394000 * CALL OUTPUTP; /* PUT THIS RECORD INTO THE 0176 00395000 * OUTPUT BUFFER */ 00396000 BAL @14,OUTPUTP 0176 00397000 * RETNREG=ASIDS; /* RESTORE RETURN ADDRESS */ 00398000 L RETNREG,ASIDS(,SMWKPTR) 0177 00399000 * END ASIDP; 0178 00400000 @EL00002 DS 0H 0178 00401000 @EF00002 DS 0H 0178 00402000 @ER00002 BR @14 0178 00403000 * 0179 00404000 */********************************************************************/ 00405000 */* */ 00406000 */*INTERNAL PROCEDURE NAME- */ 00407000 */* SUMLISTP */ 00408000 */* */ 00409000 */*FUNCTION- */ 00410000 */* DUMP AREAS SPECIFIED WITH SUMLIST KEYWORD */ 00411000 */* */ 00412000 */*CALLERS- */ 00413000 */* THE MAINLINE CODE IN THIS MODULE */ 00414000 */* */ 00415000 */********************************************************************/ 00416000 * 0179 00417000 *SUMLISTP: 0179 00418000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0179 00419000 SUMLISTP DS 0H 0180 00420000 * SUMLISTS=RETNREG; /* SAVE RETURN ADDRESS BECAUSE 0180 00421000 * LATER CALL WILL DESTROY IT */ 00422000 ST RETNREG,SUMLISTS(,SMWKPTR) 0180 00423000 * RFY 0181 00424000 * STORLIST BASED(WORKREGB); /* MAP SUMDUMP STORAGE LIST */ 00425000 * SMDLRID=SMDLIST; /* INITIALIZE HEADER FOR SUMLIST*/ 00426000 MVC SMDLRID+656(2,SMWKPTR),@CH02330 0182 00427000 * WORKREGB=SDUSUMLP; /* GET ADDRESS OF SUMDUMP STORAGE 00428000 * LIST (SUMLIST) */ 00429000 L @15,CVTPTR 0183 00430000 L @15,CVTRTMCT(,@15) 0183 00431000 L @15,SDUMPPTR(,@15) 0183 00432000 L WORKREGB,SDUSUMLP(,@15) 0183 00433000 * SMWKIDX1=ONE; /* INITIALIZE LOOP COUNTER TO ONE*/ 00434000 MVC SMWKIDX1(2,SMWKPTR),@CH00076 0184 00435000 * ERRRETRY=ADDR(SSERTYBP); /* GET NEXT RETRY ADDR (SPECIAL 00436000 * RETRY FOR BAD PARMLIST) */ 00437000 * 0185 00438000 LA @15,SSERTYBP 0185 00439000 ST @15,ERRRETRY(,ERR6WPTR) 0185 00440000 * /*****************************************************************/ 00441000 * /* */ 00442000 * /* LOOP TO PROCESS ALL STORAGE RANGES SPECIFIED FOR SUMLIST -- */ 00443000 * /* VALIDITY CHECK EACH ADDRESS AND COPY VALID RANGES TO THE */ 00444000 * /* BUFFER */ 00445000 * /* */ 00446000 * /*****************************************************************/ 00447000 * 0186 00448000 * DO WHILE(LASTSW=OFF); 0186 00449000 B @DE00186 0186 00450000 @DL00186 DS 0H 0187 00451000 * WORKREGA=ADDR(STORLIST(SMWKIDX1));/* GET VIRTUAL ADDRESS OF 0187 00452000 * RANGE */ 00453000 LH @15,SMWKIDX1(,SMWKPTR) 0187 00454000 SLA @15,3 0187 00455000 LR WORKREGA,WORKREGB 0187 00456000 AL WORKREGA,@CF03176 0187 00457000 LA WORKREGA,STORLIST(@15,WORKREGA) 0187 00458000 * IF WORKREGB^=ZERO& /* CONTINUE IF SUMLIST ISN'T AT 00459000 * LOCATION 0 AND */ 00460000 * BEGHOBIT(SMWKIDX1)=OFF& /* CONTINUE IF FIRST ADDRESS IN 00461000 * PAIR DOES NOT INDICATE END OF 00462000 * SUMLIST AND */ 00463000 * BEGADDR(SMWKIDX1)<= /* IF RANGE BEGINNING ADDRESS IS 00464000 * LESS THAN OR EQUAL TO */ 00465000 * (ENDADDR(SMWKIDX1)&HIGHBIT0) THEN/* END ADDRESS */ 00466000 SLR @12,@12 0188 00467000 CR WORKREGB,@12 0188 00468000 BE @RF00188 0188 00469000 ALR @15,WORKREGB 0188 00470000 AL @15,@CF03176 0188 00471000 TM BEGHOBIT(@15),B'10000000' 0188 00472000 BNZ @RF00188 0188 00473000 LH @15,SMWKIDX1(,SMWKPTR) 0188 00474000 SLA @15,3 0188 00475000 LR @08,WORKREGB 0188 00476000 AL @08,@CF03176 0188 00477000 L @08,BEGADDR(@15,@08) 0188 00478000 AL @15,@CF03177 0188 00479000 L @15,ENDADDR-4(@15,WORKREGB) 0188 00480000 N @15,@CF03000 0188 00481000 CR @08,@15 0188 00482000 BH @RF00188 0188 00483000 * DO; /* RANGE VALID--TRY TO MOVE IT */ 00484000 * SMDLRADR=BEGADDR(SMWKIDX1);/* BEGINNING ADDRESS IN HEADER */ 00485000 ST @08,SMDLRADR+656(,SMWKPTR) 0190 00486000 * IF ENDSW=OFF /* IF BUFFER NOT FULL */ 00487000 * &(SMWKPSSE=ZERO /* AND IF SYSTEM STORAGE HASN'T 00488000 * BEEN DUMPED YET */ 00489000 * |(SMDLRADR>=PASTRT&SMDLRADR<(PASTRT+PASIZE)))/* OR IF 00490000 * THIS IS STORAGE IN THE PRIVATE 00491000 * AREA */ 00492000 * THEN 0191 00493000 TM ENDSW(SMWKPTR),B'00001000' 0191 00494000 BNZ @RF00191 0191 00495000 C @12,SMWKPSSE(,SMWKPTR) 0191 00496000 BE @RT00191 0191 00497000 L @15,CVTPTR 0191 00498000 L @15,GDAPTR(,@15) 0191 00499000 L @12,PASTRT(,@15) 0191 00500000 CR @08,@12 0191 00501000 BL @RF00191 0191 00502000 AL @12,PASIZE(,@15) 0191 00503000 CR @08,@12 0191 00504000 BNL @RF00191 0191 00505000 @RT00191 DS 0H 0192 00506000 * DO; /* BUILD HEADER FOR THIS RANGE */ 00507000 * IF BEGADDR(SMWKIDX1)=(ENDADDR(SMWKIDX1)&HIGHBIT0)/* IF 00508000 * MINIMUM RANGE SPECIFIED */ 00509000 * THEN 0193 00510000 LH @15,SMWKIDX1(,SMWKPTR) 0193 00511000 SLA @15,3 0193 00512000 LR @12,WORKREGB 0193 00513000 AL @12,@CF03177 0193 00514000 L @12,ENDADDR-4(@15,@12) 0193 00515000 N @12,@CF03000 0193 00516000 AL @15,@CF03176 0193 00517000 C @12,BEGADDR(@15,WORKREGB) 0193 00518000 BNE @RF00193 0193 00519000 * SMWKSVLN=LENDFLT; /* DEFAULT THE RANGE LENGTH */ 00520000 MVC SMWKSVLN(4,SMWKPTR),@CF00052 0194 00521000 * ELSE 0195 00522000 * SMWKSVLN=(ENDADDR(SMWKIDX1)&HIGHBIT0)-BEGADDR(SMWKIDX1) 00523000 * +ONE; /* CALCULATE LENGTH OF THIS RANGE*/ 00524000 * 0195 00525000 B @RC00193 0195 00526000 @RF00193 LH @15,SMWKIDX1(,SMWKPTR) 0195 00527000 SLA @15,3 0195 00528000 LR @12,WORKREGB 0195 00529000 AL @12,@CF03177 0195 00530000 L @12,ENDADDR-4(@15,@12) 0195 00531000 N @12,@CF03000 0195 00532000 AL @15,@CF03176 0195 00533000 SL @12,BEGADDR(@15,WORKREGB) 0195 00534000 AL @12,@CF00076 0195 00535000 ST @12,SMWKSVLN(,SMWKPTR) 0195 00536000 * /*******************************************************/ 00537000 * /* */ 00538000 * /* COPY THIS RANGE TO THE OUTPUT BUFFER */ 00539000 * /* */ 00540000 * /*******************************************************/ 00541000 * 0196 00542000 * DO WHILE(SMWKSVLN>ZERO);/* LOOP TO SUPPORT SUMLIST 0196 00543000 * RANGES GREATER THAN 64K (A 0196 00544000 * SEGMENT) IN SIZE */ 00545000 @RC00193 B @DE00196 0196 00546000 @DL00196 DS 0H 0197 00547000 * IF SMWKSVLN>MAXLEN /* IF LENGTH GREATER THAN SEGMENT*/ 00548000 * THEN 0197 00549000 L @15,@CF02991 0197 00550000 C @15,SMWKSVLN(,SMWKPTR) 0197 00551000 BNL @RF00197 0197 00552000 * SMDLRLEN=MAXLEN; /* MAKE LENGTH MAXIMUM FOR NOW */ 00553000 ST @15,SMDLRLEN+656(,SMWKPTR) 0198 00554000 * ELSE 0199 00555000 * SMDLRLEN=SMWKSVLN;/* IF LENGTH NOT TOO BIG USE REAL 00556000 * LENGTH */ 00557000 B @RC00197 0199 00558000 @RF00197 L @15,SMWKSVLN(,SMWKPTR) 0199 00559000 ST @15,SMDLRLEN+656(,SMWKPTR) 0199 00560000 * RFY 0200 00561000 * R15 RSTD; 0200 00562000 @RC00197 DS 0H 0201 00563000 * CALL CHECKP; /* MAKE SURE THE USER-SUPPLIED 0201 00564000 * ADDRESS IS VALID BEFORE 0201 00565000 * PUTTING THIS SUMDUMP RECORD IN 00566000 * THE OUTPUT BUFFER */ 00567000 BAL @14,CHECKP 0201 00568000 * IF R15=ZERO THEN /* IF RANGE CAN BE ACCESSED */ 00569000 LTR R15,R15 0202 00570000 BNZ @RF00202 0202 00571000 * CALL OUTPUTP; /* PUT THE SUMLIST RANGE IN THE 00572000 * DUMP */ 00573000 BAL @14,OUTPUTP 0203 00574000 * RFY 0204 00575000 * R15 UNRSTD; 0204 00576000 @RF00202 DS 0H 0205 00577000 * SMWKSVLN=SMWKSVLN-SMDLRLEN;/* FIND LEFT-OVER LENGTH */ 00578000 LA @15,656 0205 00579000 ALR @15,SMWKPTR 0205 00580000 L @12,SMDLRLEN(,@15) 0205 00581000 L @08,SMWKSVLN(,SMWKPTR) 0205 00582000 SLR @08,@12 0205 00583000 ST @08,SMWKSVLN(,SMWKPTR) 0205 00584000 * SMDLRADR=SMDLRADR-SMDLRLEN;/* POINT TO NEXT PART OF 00585000 * THIS SUMLIST RANGE @ZA19201*/ 00586000 LCR @12,@12 0206 00587000 AL @12,SMDLRADR(,@15) 0206 00588000 ST @12,SMDLRADR(,@15) 0206 00589000 * END; /* END OF LOOP FOR MULTIPLE 0207 00590000 * SEGMENTS */ 00591000 @DE00196 L @15,SMWKSVLN(,SMWKPTR) 0207 00592000 LTR @15,@15 0207 00593000 BP @DL00196 0207 00594000 * END; /* END OF BUILD HEADER FOR THIS 00595000 * RANGE */ 00596000 * IF LASTADDR(SMWKIDX1)=ON THEN/* IF PROCESSING LAST RANGE */ 00597000 @RF00191 LH @15,SMWKIDX1(,SMWKPTR) 0209 00598000 SLA @15,3 0209 00599000 ALR @15,WORKREGB 0209 00600000 AL @15,@CF03177 0209 00601000 TM LASTADDR-4(@15),B'10000000' 0209 00602000 BNO @RF00209 0209 00603000 * LASTSW=ON; /* END RANGE LOOP */ 00604000 OI LASTSW(SMWKPTR),B'10000000' 0210 00605000 * ELSE 0211 00606000 * SMWKIDX1=SMWKIDX1+ONE; /* UPDATE INDEX AND CONTINUE LOOP*/ 00607000 B @RC00209 0211 00608000 @RF00209 LA @15,1 0211 00609000 AH @15,SMWKIDX1(,SMWKPTR) 0211 00610000 STH @15,SMWKIDX1(,SMWKPTR) 0211 00611000 * END; /* END RANGE VALID--TRY TO MOVE 00612000 * IT */ 00613000 * 0213 00614000 * /***************************************************************/ 00615000 * /* */ 00616000 * /* PARMLIST IS INVALID--PUT OUT ERROR HEADER AND END THE LOOP */ 00617000 * /* */ 00618000 * /***************************************************************/ 00619000 * 0213 00620000 * ELSE 0213 00621000 *SSERTYBP: /* LABEL BRANCHED TO IF SUMLISTP 00622000 * ABENDS (BAD SUMLIST PARMLIST) */ 00623000 * DO; 0213 00624000 B @RC00188 0213 00625000 @RF00188 DS 0H 0213 00626000 SSERTYBP DS 0H 0214 00627000 * ERRRETRY=ADDR(SSERTY10); /* GET NEXT RETRY LOCATION 0214 00628000 * ADDRESS */ 00629000 LA @15,SSERTY10 0214 00630000 ST @15,ERRRETRY(,ERR6WPTR) 0214 00631000 * SMDLRLEN=ZERO; /* GIVE ZERO TOTAL LENGTH */ 00632000 SLR @15,@15 0215 00633000 LA @12,656 0215 00634000 ALR @12,SMWKPTR 0215 00635000 ST @15,SMDLRLEN(,@12) 0215 00636000 * SMDLRADR=ZERO; /* GIVE ZERO AREA ADDRESS */ 00637000 ST @15,SMDLRADR(,@12) 0216 00638000 * SMDLRMSG=SMDLSTER; /* INDICATE SUMDUMP LIST IN ERROR*/ 00639000 MVI SMDLRMSG(@12),X'01' 0217 00640000 * CALL OUTPUTP; /* PUT ERROR RECORD IN BUFFER */ 00641000 BAL @14,OUTPUTP 0218 00642000 * LASTSW=ON; /* END PROCESS ALL RANGE LOOP */ 00643000 OI LASTSW(SMWKPTR),B'10000000' 0219 00644000 * END; /* END OF RANGE IS INVALID */ 00645000 * END; /* END OF PROCESS ALL STORAGE 0221 00646000 * RANGES */ 00647000 @RC00188 DS 0H 0221 00648000 @DE00186 TM LASTSW(SMWKPTR),B'10000000' 0221 00649000 BZ @DL00186 0221 00650000 * RFY 0222 00651000 * STORLIST BASED; 0222 00652000 * RETNREG=SUMLISTS; /* RESTORE CALLER'S RETURN 0223 00653000 * ADDRESS BEFORE RETURN */ 00654000 L RETNREG,SUMLISTS(,SMWKPTR) 0223 00655000 * END SUMLISTP; 0224 00656000 @EL00003 DS 0H 0224 00657000 @EF00003 DS 0H 0224 00658000 @ER00003 BR @14 0224 00659000 * 0225 00660000 */********************************************************************/ 00661000 */* */ 00662000 */*INTERNAL PROCEDURE NAME- */ 00663000 */* RTM2P */ 00664000 */* */ 00665000 */*FUNCTION- */ 00666000 */* DUMP THE RTM2WA AND STORAGE POINTED TO BY FAILURE */ 00667000 */* REGISTERS SAVED IN RTM2WA */ 00668000 */* */ 00669000 */*CALLERS- */ 00670000 */* THE MAINLINE CODE IN THIS MODULE */ 00671000 */* */ 00672000 */********************************************************************/ 00673000 * 0225 00674000 *RTM2P: 0225 00675000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0225 00676000 RTM2P DS 0H 0226 00677000 * RTM2S=RETNREG; /* SAVE RETURN ADDRESS BECAUSE 0226 00678000 * LATER CALL WILL DESTROY IT */ 00679000 ST RETNREG,RTM2S(,SMWKPTR) 0226 00680000 * TCBPTR=ASXBFTCB; /* GET FIRST TCB ON TCB QUEUE FOR 00681000 * THIS ADDRESS SPACE */ 00682000 * 0227 00683000 L @15,ASCBPTR 0227 00684000 L @15,ASXBPTR(,@15) 0227 00685000 L @15,ASXBFTCB(,@15) 0227 00686000 ST @15,TCBPTR(,SMWKPTR) 0227 00687000 * /*****************************************************************/ 00688000 * /* */ 00689000 * /* LOOP TO PROCESS EACH TCB ON THE TCBTCB QUEUE IN THIS ADDRESS */ 00690000 * /* SPACE */ 00691000 * /* */ 00692000 * /*****************************************************************/ 00693000 * 0228 00694000 * DO WHILE TCBPTR^=0; 0228 00695000 B @DE00228 0228 00696000 @DL00228 DS 0H 0229 00697000 * RTM2PTR=TCBRTWA; /* ADDRESS OF FIRST RTM2WA ON 0229 00698000 * QUEUE IS IN THE TCB */ 00699000 L @15,TCBPTR(,SMWKPTR) 0229 00700000 L @15,TCBRTWA(,@15) 0229 00701000 ST @15,RTM2PTR(,SMWKPTR) 0229 00702000 * IF RTM2PTR^=ZERO THEN /* IF CURRENT TCB HAS AT LEAST 0230 00703000 * ONE RTM2WA */ 00704000 SLR @12,@12 0230 00705000 CR @15,@12 0230 00706000 BE @RF00230 0230 00707000 * DO; 0231 00708000 * 0231 00709000 * /***********************************************************/ 00710000 * /* */ 00711000 * /* LOOP TO PROCESS EACH RTM2WA (AND ASSOCIATED STORAGE) ON */ 00712000 * /* THE RTM2PREV QUEUE OFF A FAILURE'S TCB */ 00713000 * /* */ 00714000 * /***********************************************************/ 00715000 * 0232 00716000 * DURTM2SW=ON; /* INDICATE AT LEAST ONE RTM2WA 00717000 * EXISTS (AND WILL BE DUMPED) 0232 00718000 * @ZA19201*/ 00719000 OI DURTM2SW(SMWKPTR),B'00100000' 0232 00720000 * SMWKREGN=ZERO; /* INITIALIZE COUNTER TO INDICATE 00721000 * NO PSWS OR REGISTERS SAVED 0233 00722000 * FROM RTM2WA'S */ 00723000 STH @12,SMWKREGN(,SMWKPTR) 0233 00724000 * DO RTM2INDX=ONE TO LOOPMAX WHILE(RTM2PTR^=ZERO);/* CONTINUE 00725000 * LOOPING UNTIL RUN OUT OF 0234 00726000 * RTM2WA'S ON RTM2PREV QUEUE. 0234 00727000 * ALSO END THE LOOP IF REACH 0234 00728000 * MAXIMUM NUMBER OF RTM2WA'S TO 00729000 * PUT IN DUMP. (HAVE A MAXIMUM 00730000 * TO AVOID AN INFINITE LOOP IF A 00731000 * RTM2PREV POINTER IS BAD.) */ 00732000 * 0234 00733000 LA @15,1 0234 00734000 STC @15,RTM2INDX(,SMWKPTR) 0234 00735000 @DL00234 L @15,RTM2PTR(,SMWKPTR) 0234 00736000 LTR @15,@15 0234 00737000 BZ @DC00234 0234 00738000 * /*********************************************************/ 00739000 * /* */ 00740000 * /* PUT EACH RTM2WA IN THE SUMMARY DUMP */ 00741000 * /* */ 00742000 * /*********************************************************/ 00743000 * 0235 00744000 * SMDLRID=SMDRTM2A; /* INITIALIZE RECORD ID */ 00745000 LA @12,656 0235 00746000 ALR @12,SMWKPTR 0235 00747000 MVC SMDLRID(2,@12),@CH02410 0235 00748000 * SMDLRLEN=LENGTH(RTM2WA);/* INITIALIZE TOTAL LENGTH OF 0236 00749000 * RECORD */ 00750000 MVC SMDLRLEN(4,@12),@CF03166 0236 00751000 * SMDLRADR=ADDR(RTM2WA); /* SAVE VIRTUAL ADDRESS OF RTM2WA*/ 00752000 ST @15,SMDLRADR(,@12) 0237 00753000 * CALL OUTPUTP; /* PUT THIS RECORD IN THE DUMP. 00754000 * NOTE--DON'T CHECK FOR VALID 0238 00755000 * 'RTM2' PREFIX ON THE CONTROL 00756000 * BLOCK BECAUSE WANT BAD INFO 0238 00757000 * DUMPED IN CASE IT IS NEEDED TO 00758000 * SOLVE THE PROBLEM. */ 00759000 * 0238 00760000 BAL @14,OUTPUTP 0238 00761000 * /*********************************************************/ 00762000 * /* */ 00763000 * /* DUMP STORAGE AREA POINTED TO BY THE PSW FROM TIME OF */ 00764000 * /* ERROR (RTM2NXT1 FIELD IN THIS RTM2WA) */ 00765000 * /* */ 00766000 * /*********************************************************/ 00767000 * 0239 00768000 * SMDLRID=SMDPSWS; /* PUT PSW VALUE ID IN HDR 0239 00769000 * @ZA19201*/ 00770000 LA @15,656 0239 00771000 ALR @15,SMWKPTR 0239 00772000 MVC SMDLRID(2,@15),@CH02335 0239 00773000 * SMDLRLEN=RTM2ILC1+MAXINSTR;/* PUT AREA LENGTH IN HEADER */ 00774000 L @12,RTM2PTR(,SMWKPTR) 0240 00775000 SLR @08,@08 0240 00776000 IC @08,RTM2ILC1(,@12) 0240 00777000 LA @02,6 0240 00778000 ALR @02,@08 0240 00779000 ST @02,SMDLRLEN(,@15) 0240 00780000 * SMDLRADR=RTM2NXT1-RTM2ILC1;/* DUMP INSTRUCTION BEFORE 0241 00781000 * ADDRESS FROM EC PSW AT TIME OF 00782000 * ERROR AND INSTRUCTION AT ADDR 00783000 * FROM PSW */ 00784000 LCR @08,@08 0241 00785000 AL @08,RTM2NXT1(,@12) 0241 00786000 ST @08,SMDLRADR(,@15) 0241 00787000 * RFY 0242 00788000 * R15 RSTD; /* NOTE-PUT OUT SHORT COPY OF PSW 00789000 * AREA HERE IN CASE THE 2K PSW 00790000 * AREA (DUMPED LATER) CAN'T BE 00791000 * DUMPED. ALSO WANT A PSW AREA 00792000 * IMMEDIATELY FOLLOWING THE 0242 00793000 * RTM2WA FOR FASTER LOOKUP. */ 00794000 * CALL CHECKP; /* CHECK DATA ADDRESS BEFORE 0243 00795000 * PUTTING RECORD IN OUTPUT 0243 00796000 * BUFFER */ 00797000 BAL @14,CHECKP 0243 00798000 * IF R15=ZERO THEN /* IF ADDRESS IS GOOD */ 00799000 LTR R15,R15 0244 00800000 BNZ @RF00244 0244 00801000 * CALL OUTPUTP; /* COPY THIS AREA TO BUFFER */ 00802000 BAL @14,OUTPUTP 0245 00803000 * ELSE /* IF COULDN'T ACCESS THE ADDRESS*/ 00804000 * DO; 0246 00805000 B @RC00244 0246 00806000 @RF00244 DS 0H 0247 00807000 * SMDLRLEN=RTM2ILC1; /* PUT JUST PSW INSTR LENGTH IN 00808000 * HDR */ 00809000 LA @12,656 0247 00810000 ALR @12,SMWKPTR 0247 00811000 L @08,RTM2PTR(,SMWKPTR) 0247 00812000 SLR @02,@02 0247 00813000 IC @02,RTM2ILC1(,@08) 0247 00814000 ST @02,SMDLRLEN(,@12) 0247 00815000 * IF SMDLRLEN=ZERO THEN 0248 00816000 LTR @02,@02 0248 00817000 BNZ @RF00248 0248 00818000 * SMDLRLEN=MAXINSTR;/* IF HAVE ZERO INSTRUCTION 0249 00819000 * LENGTH, DEFAULT TO MAXIMUM 0249 00820000 * INSTR LENGTH @ZA19201*/ 00821000 MVC SMDLRLEN(4,@12),@CF01075 0249 00822000 * SMDLRADR=RTM2NXT1; /* PUT JUST PSW INSTR ADDR IN HDR*/ 00823000 @RF00248 L @12,RTM2PTR(,SMWKPTR) 0250 00824000 L @12,RTM2NXT1(,@12) 0250 00825000 ST @12,SMDLRADR+656(,SMWKPTR) 0250 00826000 * CALL CHECKP; /* CHECK THIS ADDRESS AND LENGTH */ 00827000 BAL @14,CHECKP 0251 00828000 * IF R15^=ZERO THEN /* IF THIS ADDRESS IS BAD 0252 00829000 * @ZA19201*/ 00830000 LTR R15,R15 0252 00831000 BZ @RF00252 0252 00832000 * BADADRSW=ON; /* TELL OUTPUTP @ZA19201*/ 00833000 OI BADADRSW(SMWKPTR),B'00000010' 0253 00834000 * CALL OUTPUTP; /* COPY THIS RECORD TO THE BUFFER 00835000 * @ZA19201*/ 00836000 @RF00252 BAL @14,OUTPUTP 0254 00837000 * END; 0255 00838000 * RFY 0256 00839000 * R15 UNRSTD; /* @ZA19201*/ 00840000 @RC00244 DS 0H 0257 00841000 * 0257 00842000 * /*********************************************************/ 00843000 * /* */ 00844000 * /* PUT ANY SAVED TRACE TABLE (POINTED TO FROM RTM2WA) IN */ 00845000 * /* THE SUMMARY DUMP */ 00846000 * /* */ 00847000 * /*********************************************************/ 00848000 * 0257 00849000 * IF RTM2TRTB^=ZERO&RTM2TRLN^=ZERO THEN 0257 00850000 SLR @15,@15 0257 00851000 L @12,RTM2PTR(,SMWKPTR) 0257 00852000 L @08,RTM2TRTB(,@12) 0257 00853000 CR @08,@15 0257 00854000 BE @RF00257 0257 00855000 L @12,RTM2TRLN(,@12) 0257 00856000 CR @12,@15 0257 00857000 BE @RF00257 0257 00858000 * DO; /* @ZA19201*/ 00859000 * TRRTM2SW=ON; /* WON'T DUMP SYSTEM TRACE TABLE */ 00860000 OI TRRTM2SW(SMWKPTR),B'00010000' 0259 00861000 * SMDLRID=SMDR2TRT; /* PUT TRACE TABLE ID IN HEADER */ 00862000 LA @15,656 0260 00863000 ALR @15,SMWKPTR 0260 00864000 MVC SMDLRID(2,@15),@CH02327 0260 00865000 * SMDLRLEN=RTM2TRLN; /* PUT LENGTH OF TRACE TABLE IN 00866000 * HEADER @ZA19201*/ 00867000 ST @12,SMDLRLEN(,@15) 0261 00868000 * SMDLRADR=RTM2TRTB; /* OBTAIN TRACE TABLE START ADDR 00869000 * @ZA19201*/ 00870000 ST @08,SMDLRADR(,@15) 0262 00871000 * CALL OUTPUTP; /* COPY TRACE TABLE TO THE BUFFER*/ 00872000 BAL @14,OUTPUTP 0263 00873000 * END; 0264 00874000 * 0264 00875000 * /*********************************************************/ 00876000 * /* */ 00877000 * /* SAVE ADDRESSES OF UNIQUE AREAS POINTED TO BY PSW AND */ 00878000 * /* REGISTERS IN RTM2WA */ 00879000 * /* */ 00880000 * /*********************************************************/ 00881000 * 0265 00882000 * IF SMWKREGN=LOLIM THEN/* IF NOT LOW STORAGE 0299 01047000 * ADDR (PSW SAVED VALUES COULD 01048000 * BE < 2K) */ 01049000 @RC00296 LA @15,2048 0299 01050000 LH @12,SMWKIDX1(,SMWKPTR) 0299 01051000 SLA @12,2 0299 01052000 L @12,SMWKSREG-4(@12,SMWKPTR) 0299 01053000 CR @12,@15 0299 01054000 BL @RF00299 0299 01055000 * DO; 0300 01056000 * SMDLRADR=SMWKSREG(SMWKIDX1)-LOLIM;/* DUMP SAVED VALUE 01057000 * MINUS 2K */ 01058000 SLR @12,@15 0301 01059000 ST @12,SMDLRADR+656(,SMWKPTR) 0301 01060000 * RFY 0302 01061000 * R15 RSTD; 0302 01062000 * CALL CHECKP; /* CHECK DATA ADDRESS BEFORE 0303 01063000 * PUTTING RECORD IN OUTPUT 0303 01064000 * BUFFER */ 01065000 BAL @14,CHECKP 0303 01066000 * IF R15=ZERO THEN /* IF ADDRESS IS GOOD */ 01067000 LTR R15,R15 0304 01068000 BNZ @RF00304 0304 01069000 * CALL OUTPUTP; /* COPY THIS AREA TO BUFFER */ 01070000 BAL @14,OUTPUTP 0305 01071000 * ELSE /* IF ADDRESS IS BAD */ 01072000 * DO; 0306 01073000 B @RC00304 0306 01074000 @RF00304 DS 0H 0307 01075000 * SMDLRLEN=SHORTLN;/* USE SHORTER LENGTH */ 01076000 MVC SMDLRLEN+656(4,SMWKPTR),@CF02984 0307 01077000 * CALL CHECKP; /* CHECK AGAIN */ 01078000 BAL @14,CHECKP 0308 01079000 * IF R15^=ZERO THEN/* IF THE ADDRESS RANGE IS STILL 01080000 * BAD */ 01081000 LTR R15,R15 0309 01082000 BZ @RF00309 0309 01083000 * DO; /* @ZA19201*/ 01084000 * BADADRSW=ON;/* TELL OUTPUTP CAN'T DUMP THE 0311 01085000 * ADDRESS RANGE @ZA19201*/ 01086000 OI BADADRSW(SMWKPTR),B'00000010' 0311 01087000 * SMDLRLEN=HALFPAGE;/* GIVE DESIRED LENGTH 0312 01088000 * @ZA19201*/ 01089000 MVC SMDLRLEN+656(4,SMWKPTR),@CF02986 0312 01090000 * END; /* @ZA19201*/ 01091000 * CALL OUTPUTP; /* COPY RECORD TO BUFFER */ 01092000 @RF00309 BAL @14,OUTPUTP 0314 01093000 * SMDLRLEN=HALFPAGE;/* RESET TO DEFAULT LENGTH */ 01094000 MVC SMDLRLEN+656(4,SMWKPTR),@CF02986 0315 01095000 * END; 0316 01096000 * RFY 0317 01097000 * R15 UNRSTD; 0317 01098000 @RC00304 DS 0H 0318 01099000 * END; 0318 01100000 * SMDLRADR=SMWKSREG(SMWKIDX1);/* DUMP STARTING AT THE SAVED 01101000 * PSW OR REGISTER VALUE */ 01102000 @RF00299 LH @15,SMWKIDX1(,SMWKPTR) 0319 01103000 SLA @15,2 0319 01104000 L @15,SMWKSREG-4(@15,SMWKPTR) 0319 01105000 ST @15,SMDLRADR+656(,SMWKPTR) 0319 01106000 * RFY 0320 01107000 * R15 RSTD; 0320 01108000 * CALL CHECKP; /* CHECK DATA ADDRESS BEFORE 0321 01109000 * PUTTING RECORD IN OUTPUT 0321 01110000 * BUFFER */ 01111000 BAL @14,CHECKP 0321 01112000 * IF R15=ZERO THEN /* IF ADDRESS IS GOOD */ 01113000 LTR R15,R15 0322 01114000 BNZ @RF00322 0322 01115000 * CALL OUTPUTP; /* COPY THIS AREA TO BUFFER */ 01116000 BAL @14,OUTPUTP 0323 01117000 * ELSE /* IF ADDRESS IS BAD */ 01118000 * DO; 0324 01119000 B @RC00322 0324 01120000 @RF00322 DS 0H 0325 01121000 * SMDLRLEN=SHORTLN; /* USE SHORTER LENGTH */ 01122000 MVC SMDLRLEN+656(4,SMWKPTR),@CF02984 0325 01123000 * CALL CHECKP; /* CHECK AGAIN */ 01124000 BAL @14,CHECKP 0326 01125000 * IF R15^=ZERO THEN /* IF THE ADDRESS RANGE IS STILL 01126000 * BAD */ 01127000 LTR R15,R15 0327 01128000 BZ @RF00327 0327 01129000 * DO; /* @ZA19201*/ 01130000 * BADADRSW=ON; /* TELL OUTPUTP CAN'T DUMP THE 0329 01131000 * ADDRESS RANGE @ZA19201*/ 01132000 OI BADADRSW(SMWKPTR),B'00000010' 0329 01133000 * SMDLRLEN=HALFPAGE;/* GIVE DESIRED LENGTH @ZA19201*/ 01134000 MVC SMDLRLEN+656(4,SMWKPTR),@CF02986 0330 01135000 * END; /* @ZA19201*/ 01136000 * CALL OUTPUTP; /* COPY RECORD TO BUFFER */ 01137000 @RF00327 BAL @14,OUTPUTP 0332 01138000 * SMDLRLEN=HALFPAGE; /* RESET TO DEFAULT LENGTH */ 01139000 MVC SMDLRLEN+656(4,SMWKPTR),@CF02986 0333 01140000 * END; 0334 01141000 * RFY 0335 01142000 * R15 UNRSTD; 0335 01143000 @RC00322 DS 0H 0336 01144000 * END; /* END OF DO LOOP TO DUMP PSW AND 01145000 * REGISTER AREAS */ 01146000 LA @15,1 0336 01147000 AH @15,SMWKIDX1(,SMWKPTR) 0336 01148000 @DE00295 STH @15,SMWKIDX1(,SMWKPTR) 0336 01149000 CH @15,SMWKREGN(,SMWKPTR) 0336 01150000 BNH @DL00295 0336 01151000 @DC00295 DS 0H 0337 01152000 * END; /* END OF IF TCB HAS AT LEAST ONE 01153000 * RTM2WA */ 01154000 * 0337 01155000 * /***************************************************************/ 01156000 * /* */ 01157000 * /* END OF PROCESSING RTM2WA'S FOR THIS TCB - GET ADDRESS OF */ 01158000 * /* NEXT TCB IN THE ADDRESS SPACE */ 01159000 * /* */ 01160000 * /***************************************************************/ 01161000 * 0338 01162000 * TCBPTR=TCBTCB; /* GET ADDRESS OF NEXT TCB */ 01163000 @RF00230 L @15,TCBPTR(,SMWKPTR) 0338 01164000 L @15,TCBTCB(,@15) 0338 01165000 ST @15,TCBPTR(,SMWKPTR) 0338 01166000 * END; /* END OF DO WHILE TCBPTR^=0 */ 01167000 @DE00228 L @15,TCBPTR(,SMWKPTR) 0339 01168000 LTR @15,@15 0339 01169000 BNZ @DL00228 0339 01170000 * RFY 0340 01171000 * REGARRAY BASED; 0340 01172000 * RETNREG=RTM2S; /* RESTORE CALLER'S RETURN 0341 01173000 * ADDRESS BEFORE RETURN */ 01174000 L RETNREG,RTM2S(,SMWKPTR) 0341 01175000 * END RTM2P; 0342 01176000 @EL00004 DS 0H 0342 01177000 @EF00004 DS 0H 0342 01178000 @ER00004 BR @14 0342 01179000 * 0343 01180000 */********************************************************************/ 01181000 */* */ 01182000 */*INTERNAL PROCEDURE NAME- */ 01183000 */* TRACEP */ 01184000 */* */ 01185000 */*FUNCTION- */ 01186000 */* DUMP THE SUPERVISOR TRACE TABLE */ 01187000 */* */ 01188000 */*CALLERS- */ 01189000 */* THE MAINLINE CODE IN THIS MODULE */ 01190000 */* */ 01191000 */********************************************************************/ 01192000 * 0343 01193000 *TRACEP: 0343 01194000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0343 01195000 TRACEP DS 0H 0344 01196000 * TRACES=RETNREG; /* SAVE RETURN ADDRESS BECAUSE 0344 01197000 * CALL WILL DESTROY IT */ 01198000 ST RETNREG,TRACES(,SMWKPTR) 0344 01199000 * IF CVTSDTRC=ON THEN /* IF SDUMP STOPPED (ACTIVE) 0345 01200000 * SUPERVISOR TRACE TABLE 0345 01201000 * @ZA19201*/ 01202000 L @15,CVTPTR 0345 01203000 TM CVTSDTRC(@15),B'00000001' 0345 01204000 BNO @RF00345 0345 01205000 * DO; /* (DON'T TEST RTCTASTR BECAUSE 01206000 * DUMP TRACE TABLE EVEN WHEN TRT 01207000 * OPTION NOT REQUESTED) @ZA19201*/ 01208000 * SMDLRID=SMDTRT; /* PUT TRACE TABLE ID IN HEADER */ 01209000 LA @15,656 0347 01210000 ALR @15,SMWKPTR 0347 01211000 MVC SMDLRID(2,@15),@CH00052 0347 01212000 * SMDLRLEN=(TRTEND+LENGTH(TRTENTY)-FLCTRACE);/* PUT LENGTH OF 01213000 * TRACE TABLE IN HEADER */ 01214000 L @12,FLCTRACE 0348 01215000 LA @08,32 0348 01216000 AL @08,TRTEND(,@12) 0348 01217000 SLR @08,@12 0348 01218000 ST @08,SMDLRLEN(,@15) 0348 01219000 * SMDLRADR=FLCTRACE; /* OBTAIN TRACE TABLE START 0349 01220000 * ADDRESS */ 01221000 ST @12,SMDLRADR(,@15) 0349 01222000 * CALL OUTPUTP; /* COPY TRACE TABLE TO THE BUFFER*/ 01223000 BAL @14,OUTPUTP 0350 01224000 * END; /* END OF IF SDUMP STOPPED 0351 01225000 * (ACTIVE) SUPV. TRACE TABLE 0351 01226000 * @ZA19201*/ 01227000 * RETNREG=TRACES; /* RESTORE CALLER'S RETURN 0352 01228000 * ADDRESS BEFORE RETURN */ 01229000 @RF00345 L RETNREG,TRACES(,SMWKPTR) 0352 01230000 * END TRACEP; 0353 01231000 @EL00005 DS 0H 0353 01232000 @EF00005 DS 0H 0353 01233000 @ER00005 BR @14 0353 01234000 * 0354 01235000 */********************************************************************/ 01236000 */* */ 01237000 */*INTERNAL PROCEDURE NAME- */ 01238000 */* CLEANUPP */ 01239000 */* */ 01240000 */*FUNCTION- */ 01241000 */* EITHER WRITE END OF SUMMARY DUMP RECORD OR WRITE NULL */ 01242000 */* RECORD FOR REST OF SUMMARY DUMP(IF OTHER ASIDS WILL BE */ 01243000 */* DUMPED) */ 01244000 */* */ 01245000 */*CALLERS- */ 01246000 */* THE MAINLINE CODE IN THIS MODULE */ 01247000 */* */ 01248000 */********************************************************************/ 01249000 * 0354 01250000 *CLEANUPP: 0354 01251000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0354 01252000 * 0354 01253000 CLEANUPP DS 0H 0355 01254000 */*A-30700533-30726133 @ZA19201*/ 01255000 * 0355 01256000 * CLEANUPS=RETNREG; /* SAVE RETURN ADDRESS BECAUSE 0355 01257000 * LATER CALLS WILL DESTROY IT */ 01258000 * 0355 01259000 ST RETNREG,CLEANUPS(,SMWKPTR) 0355 01260000 * /*****************************************************************/ 01261000 * /* */ 01262000 * /* DON'T CREATE ASID HEADER IF NO OTHER SUMDUMP DATA EXISTS FOR */ 01263000 * /* THIS ADDRESS SPACE AND THIS IS A MULTIPLE ADDRESS SPACE DUMP */ 01264000 * /* (DON'T WANT TO CREATE UNNECESSARY 4K SDUMP OUTPUT RECORD) */ 01265000 * /* */ 01266000 * /*****************************************************************/ 01267000 * 0356 01268000 * IF SMDLRID=SMDASIDR /* IF LAST RECORD ID WAS FOR ASID 01269000 * HDR */ 01270000 * &RTCTSDNA>1 THEN /* AND HAVE MULTIPLE ADDR SPACE 01271000 * DUMP */ 01272000 CLC SMDLRID+656(2,SMWKPTR),@CH02414 0356 01273000 BNE @RF00356 0356 01274000 L @15,CVTPTR 0356 01275000 L @15,CVTRTMCT(,@15) 0356 01276000 CLI RTCTSDNA(@15),1 0356 01277000 BNH @RF00356 0356 01278000 * BUFFPTR=ADDR(PRDDATA); /* RESET BUFFER POINTER TO 0357 01279000 * BEGINNING OF BUFFER. 0357 01280000 * NOTE--DON'T WANT ASID HDR FOR 01281000 * LAST ASID IN MULTIPLE ADDR 0357 01282000 * SPACE DUMP, EVEN THOUGH 0357 01283000 * WOULDN'T CREATE EXTRA SDUMP 0357 01284000 * RECORD, BECAUSE DON'T PROVIDE 01285000 * THIS OUTPUT FOR EARLIER ASIDS 01286000 * IN THE DUMP */ 01287000 * 0357 01288000 L @15,PRDINPTR(,SDWKPTR) 0357 01289000 LA @15,PRDDATA(,@15) 0357 01290000 ST @15,BUFFPTR(,SMWKPTR) 0357 01291000 * /*****************************************************************/ 01292000 * /* */ 01293000 * /* IF HAD OTHER DATA, OR IF THIS IS A SINGLE ADDRESS SPACE DUMP, */ 01294000 * /* CREATE MESSAGE 'NO RTM2 WORK AREAS EXIST FOR THIS ASID' IF */ 01295000 * /* NEEDED */ 01296000 * /* */ 01297000 * /*****************************************************************/ 01298000 * 0358 01299000 * ELSE 0358 01300000 * IF DURTM2SW=OFF THEN /* IF DIDN'T DUMP ANY RTM2WA 0358 01301000 * @ZA19201*/ 01302000 B @RC00356 0358 01303000 @RF00356 TM DURTM2SW(SMWKPTR),B'00100000' 0358 01304000 BNZ @RF00358 0358 01305000 * DO; /* @ZA19201*/ 01306000 * SMDLRID=SMDNULL; /* PUT OUT EMPTY RECORD SO ANY 0360 01307000 * PREVIOUS RECORD IN THE BUFFER 01308000 * IS PROCESSED BEFORE THE 0360 01309000 * FOLLOWING MSG @ZA19201*/ 01310000 LA @15,656 0360 01311000 ALR @15,SMWKPTR 0360 01312000 MVC SMDLRID(2,@15),@CH02412 0360 01313000 * SMDLRLEN=ZERO; /* NO DATA @ZA19201*/ 01314000 SLR @12,@12 0361 01315000 ST @12,SMDLRLEN(,@15) 0361 01316000 * SMDLRADR=ZERO; /* NO DATA ADDRESS @ZA19201*/ 01317000 ST @12,SMDLRADR(,@15) 0362 01318000 * SMDLRMSG=SMDNORT2; /* WANT MESSAGE 'NO RTM2 WORK 0363 01319000 * AREAS EXIST FOR THIS ASID' 0363 01320000 * @ZA19201*/ 01321000 MVI SMDLRMSG(@15),X'02' 0363 01322000 * CALL OUTPUTP; /* PUT THIS RECORD IN OUTPUT 0364 01323000 * BUFFER @ZA19201*/ 01324000 BAL @14,OUTPUTP 0364 01325000 * END; /* @ZA19201*/ 01326000 * 0365 01327000 * /*****************************************************************/ 01328000 * /* */ 01329000 * /* COUNT NUMBER OF ADDRESS SPACES LEFT TO DUMP */ 01330000 * /* */ 01331000 * /*****************************************************************/ 01332000 * 0366 01333000 * WORKREGA=ZERO; /* INITIALIZE COUNTER OF NUMBER 01334000 * OF ADDRESS SPACES LEFT TO DUMP*/ 01335000 @RF00358 DS 0H 0366 01336000 @RC00356 SLR WORKREGA,WORKREGA 0366 01337000 * DO WORKREGB=1 TO RTCTSDNA; /* LOOP THROUGH TABLE FOR ASIDS 01338000 * REQUESTED ON SDUMP MACRO */ 01339000 LA WORKREGB,1 0367 01340000 B @DE00367 0367 01341000 @DL00367 DS 0H 0368 01342000 * IF RTCTSDDO(WORKREGB)=OFF THEN/* IF A DUMP WAS NOT ATTEMPTED 0368 01343000 * FOR THIS ASID */ 01344000 LR @15,WORKREGB 0368 01345000 SLA @15,2 0368 01346000 L @12,CVTPTR 0368 01347000 L @12,CVTRTMCT(,@12) 0368 01348000 ALR @12,@15 0368 01349000 TM RTCTSDDO-4(@12),B'00000001' 0368 01350000 BNZ @RF00368 0368 01351000 * WORKREGA=WORKREGA+ONE; /* UPDATE COUNTER */ 01352000 AL WORKREGA,@CF00076 0369 01353000 * END; /* END OF DO LOOP THROUGH ASID 0370 01354000 * TABLE */ 01355000 * 0370 01356000 @RF00368 AL WORKREGB,@CF00076 0370 01357000 @DE00367 L @15,CVTPTR 0370 01358000 L @15,CVTRTMCT(,@15) 0370 01359000 SLR @12,@12 0370 01360000 IC @12,RTCTSDNA(,@15) 0370 01361000 CR WORKREGB,@12 0370 01362000 BNH @DL00367 0370 01363000 * /*****************************************************************/ 01364000 * /* */ 01365000 * /* IF ONLY ONE ASID (THIS ONE) REMAINS TO HAVE A DUMP TAKEN, PUT */ 01366000 * /* AN 'END OF SUMMARY DUMP' RECORD IN THE DUMP */ 01367000 * /* */ 01368000 * /*****************************************************************/ 01369000 * 0371 01370000 * IF WORKREGA<=ONE THEN 0371 01371000 C WORKREGA,@CF00076 0371 01372000 BH @RF00371 0371 01373000 * DO; 0372 01374000 * SMDLRID=SMDEOD; /* RECORD ID IS 'END OF SUMMARY 01375000 * DUMP RECORD' */ 01376000 LA @15,656 0373 01377000 ALR @15,SMWKPTR 0373 01378000 MVC SMDLRID(2,@15),@CH02416 0373 01379000 * SMDLRLEN=ZERO; 0374 01380000 SLR @12,@12 0374 01381000 ST @12,SMDLRLEN(,@15) 0374 01382000 * SMDLRADR=ZERO; 0375 01383000 ST @12,SMDLRADR(,@15) 0375 01384000 * CALL OUTPUTP; /* PUT THIS RECORD IN THE DUMP */ 01385000 BAL @14,OUTPUTP 0376 01386000 * END; /* END OF IF ONLY ONE ASID 0377 01387000 * REMAINS */ 01388000 * 0377 01389000 * /*****************************************************************/ 01390000 * /* */ 01391000 * /* IF WILL DUMP MORE ASIDS (AND HAVE SOME DATA IN THE BUFFER), */ 01392000 * /* PUT A NULL RECORD IN THE REST OF THE BUFFER TO FORCE WRITING */ 01393000 * /* OF THE BUFFER BY OUTPUTP (THE AMDPRDMP SERVICE AID'S SUMDUMP */ 01394000 * /* FORMATTER WILL SKIP NULL RECORDS) */ 01395000 * /* */ 01396000 * /*****************************************************************/ 01397000 * 0378 01398000 * ELSE 0378 01399000 * DO; 0378 01400000 B @RC00371 0378 01401000 @RF00371 DS 0H 0379 01402000 * IF BUFFPTR^=ADDR(PRDDATA) THEN/* IF HAVE A BUFFER PARTLY FULL 01403000 * OF DATA */ 01404000 L @15,BUFFPTR(,SMWKPTR) 0379 01405000 L @12,PRDINPTR(,SDWKPTR) 0379 01406000 LA @12,PRDDATA(,@12) 0379 01407000 CR @15,@12 0379 01408000 BE @RF00379 0379 01409000 * DO; /* CREATE NULL RECORD */ 01410000 * SMDLRID=SMDNULL; /* RECORD ID IS FOR EMPTY RECORD */ 01411000 LA @12,656 0381 01412000 ALR @12,SMWKPTR 0381 01413000 MVC SMDLRID(2,@12),@CH02412 0381 01414000 * SMDLRLEN=ENDBUFF-BUFFPTR;/* GET REMAINING AREA */ 01415000 LCR @15,@15 0382 01416000 AL @15,ENDBUFF(,SMWKPTR) 0382 01417000 ST @15,SMDLRLEN(,@12) 0382 01418000 * IF SMDLRLEN>=LENGTH(SMDLRHDR) THEN/* IF RECORD HEADER 0383 01419000 * WILL FIT IN BUFFER */ 01420000 LA @08,20 0383 01421000 CR @15,@08 0383 01422000 BL @RF00383 0383 01423000 * SMDLRLEN=SMDLRLEN-LENGTH(SMDLRHDR);/* ALLOW ROOM FOR 0384 01424000 * HEADER IN BUFFER */ 01425000 SLR @15,@08 0384 01426000 ST @15,SMDLRLEN(,@12) 0384 01427000 * ELSE /* IF MUST CONTINUE HEADER INTO 01428000 * NEXT BUFFER */ 01429000 * SMDLRLEN=SMDLRLEN+LENGTH(PRDDATA)-LENGTH(SMDLRHDR);/* 01430000 * INCLUDE DATA LENGTH FOR NEXT 01431000 * BUFFER */ 01432000 B @RC00383 0385 01433000 @RF00383 LA @15,656 0385 01434000 ALR @15,SMWKPTR 0385 01435000 L @12,SMDLRLEN(,@15) 0385 01436000 SL @12,@CF03167 0385 01437000 ST @12,SMDLRLEN(,@15) 0385 01438000 * SMDLRADR=ZERO; 0386 01439000 @RC00383 SLR @15,@15 0386 01440000 ST @15,SMDLRADR+656(,SMWKPTR) 0386 01441000 * CALL OUTPUTP; /* PUT THIS RECORD IN THE DUMP */ 01442000 BAL @14,OUTPUTP 0387 01443000 * END; /* END OF IF HAVE BUFFER PART 0388 01444000 * FULL */ 01445000 * SMWKPSSE=PSEUDOAD; /* SAVE PSEUDO ADDRESS FOR NEXT 01446000 * PART OF ENABLED SUMMARY DUMP 01447000 * @ZM45052*/ 01448000 @RF00379 L @15,PRDINPTR(,SDWKPTR) 0389 01449000 L @15,PSEUDOAD(,@15) 0389 01450000 ST @15,SMWKPSSE(,SMWKPTR) 0389 01451000 * END; /* END OF IF WILL DUMP MORE ASIDS*/ 01452000 * RETNREG=CLEANUPS; /* RESTORE RETURN ADDRESS */ 01453000 @RC00371 L RETNREG,CLEANUPS(,SMWKPTR) 0391 01454000 * END CLEANUPP; 0392 01455000 @EL00006 DS 0H 0392 01456000 @EF00006 DS 0H 0392 01457000 @ER00006 BR @14 0392 01458000 * 0393 01459000 */********************************************************************/ 01460000 */* */ 01461000 */*INTERNAL PROCEDURE NAME- */ 01462000 */* CHECKP */ 01463000 */* */ 01464000 */*FUNCTION- */ 01465000 */* REFERENCE THE FIRST AND LAST BYTES OF THE AREA */ 01466000 */* SPECIFIED WITH THE INPUT ADDRESS AND LENGTH TO ENSURE */ 01467000 */* THAT THE AREA IS ADDRESSABLE */ 01468000 */* */ 01469000 */*INPUT- */ 01470000 */* SMDLRLEN--NON-ZERO LENGTH OF STORAGE AREA */ 01471000 */* */ 01472000 */*INPUT- */ 01473000 */* SMDLRADR--ADDRESS OF STORAGE AREA */ 01474000 */* */ 01475000 */*OUTPUT- */ 01476000 */* R15=0 IF THE AREA IS ADDRESSABLE */ 01477000 */* */ 01478000 */*OUTPUT- */ 01479000 */* R15=4 IF THE AREA IS NOT ADDRESSABLE */ 01480000 */* */ 01481000 */*CALLERS- */ 01482000 */* THE SUMLISTP AND RTM2P INTERNAL PROCEDURES */ 01483000 */* */ 01484000 */********************************************************************/ 01485000 * 0393 01486000 *CHECKP: 0393 01487000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0393 01488000 CHECKP DS 0H 0394 01489000 * RFY 0394 01490000 * RETNREG RSTD; /* DON'T WANT PLS2 TO USE RETURN 01491000 * REGISTER (R14) FOR WORK 0394 01492000 * REGISTER */ 01493000 * SAVEREGA=WORKREGA; /* SAVE CALLER'S WORKREGA VALUE 01494000 * BECAUSE CHECKP WILL USE IT */ 01495000 ST WORKREGA,SAVEREGA(,SMWKPTR) 0395 01496000 * SAVEREGB=WORKREGB; /* SAVE CALLER'S WORKREGB VALUE */ 01497000 * 0396 01498000 ST WORKREGB,SAVEREGB(,SMWKPTR) 0396 01499000 * /*****************************************************************/ 01500000 * /* */ 01501000 * /* FIRST USE LRA INSTRUCTION TO SEE IF ADDRESSING THE AREA WOULD */ 01502000 * /* CAUSE A SEGMENT EXCEPTION */ 01503000 * /* */ 01504000 * /*****************************************************************/ 01505000 * 0397 01506000 * WORKREGB=SMDLRADR+SMDLRLEN-ONE; /* GET ADDRESS OF LAST BYTE OF 0397 01507000 * AREA TO BE CHECKED */ 01508000 LA @15,656 0397 01509000 ALR @15,SMWKPTR 0397 01510000 L WORKREGB,SMDLRADR(,@15) 0397 01511000 AL WORKREGB,SMDLRLEN(,@15) 0397 01512000 BCTR WORKREGB,0 0397 01513000 * GEN(LRA WORKREGA,0(WORKREGB)) 0398 01514000 * SETS(WORKREGA) REFS(WORKREGB); /* CHECK VALIDITY OF ADDRESS */ 01515000 LRA WORKREGA,0(WORKREGB) 01516000 * BC(LRACC1,SSERTYBA); /* BRANCH TO ERROR ROUTINE IF BAD 01517000 * SEGMENT ADDRESS */ 01518000 BC 4,SSERTYBA 0399 01519000 * WORKREGB=SMDLRADR; /* GET ADDRESS OF FIRST BYTE OF 01520000 * AREA TO BE CHECKED */ 01521000 L WORKREGB,SMDLRADR+656(,SMWKPTR) 0400 01522000 * GEN(LRA WORKREGA,0(WORKREGB)) 0401 01523000 * SETS(WORKREGA) REFS(WORKREGB); /* CHECK VALIDITY OF ADDRESS */ 01524000 LRA WORKREGA,0(WORKREGB) 01525000 * BC(LRACC1,SSERTYBA); /* BRANCH TO ERROR ROUTINE IF BAD 01526000 * SEGMENT ADDRESS */ 01527000 * 0402 01528000 BC 4,SSERTYBA 0402 01529000 * /*****************************************************************/ 01530000 * /* */ 01531000 * /* IF NO SEGMENT EXCEPTION, REFERENCE THE AREA TO CHECK FOR PAGE */ 01532000 * /* EXCEPTION */ 01533000 * /* */ 01534000 * /*****************************************************************/ 01535000 * 0403 01536000 * ERRFRR='1'B; /* INDICATE FRR IS ACTIVE 0403 01537000 * @ZA27227*/ 01538000 OI ERRFRR(ERR6WPTR),B'10000000' 0403 01539000 * RFY 0404 01540000 * R14SAVE RSTD; /* RESTRICT REG FROM PLS @ZA27227*/ 01541000 * R14SAVE=RETNREG; /* SAVE REG 14 ACROSS SETLOCK 0405 01542000 * @ZA27227*/ 01543000 LR R14SAVE,RETNREG 0405 01544000 * GEN REFS(ADDRFRR,PSALITA,PSACSTK,PSA,FRRSCURR,FRRSLAST,PSALSFCC, 01545000 * FRRS,FRRSFRRA,FRRSENTR,FRRSPARM); 0406 01546000 * /*GET RECOVERY FRR @ZA27227*/ 01547000 GETLOCKM SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND,REGS=SAVE, X01548000 RELATED=(SVCDUMP,IEAVTSSE(TSSEFREE)) @ZA27227 01549000 SETFRR A,FRRAD=ADDRFRR, X01550000 PARMAD=(R3),WRKREGS=(R10,R11) @ZA27227 01551000 * RETNREG=R14SAVE; /* RESTORE REG 14 @ZA27227*/ 01552000 LR RETNREG,R14SAVE 0407 01553000 * RFY 0408 01554000 * R14SAVE UNRSTD; /* ALLOW PLS TO USE REG @ZA27227*/ 01555000 * ERRWORK=ERRORWK; /* FILL FRR 6 WDS CURR STATUS 0409 01556000 * @ZA27227*/ 01557000 MVC ERRWORK(24,ERR6WPTR),ERRORWK(SDWKPTR) 0409 01558000 * ERRLLOCK='1'B; /* INDICATE LOCAL LOCK IS HELD 0410 01559000 * @ZA27227*/ 01560000 OI ERRLLOCK(ERR6WPTR),B'00000010' 0410 01561000 * ERRRETRY=ADDR(SSERTYBA); /* SET RETRY ADDRESS FOR 0411 01562000 * ADDRESSING ERROR */ 01563000 LA @15,SSERTYBA 0411 01564000 ST @15,ERRRETRY(,ERR6WPTR) 0411 01565000 * RFY 0412 01566000 * R15 RSTD; /* @ZA19201*/ 01567000 * R15=SMDLRADR->DATAAREA; /* USE R15 AS A WORK REGISTER TO 01568000 * CHECK THAT THE FIRST BYTE OF 01569000 * THE AREA CAN BE ADDRESSED 0413 01570000 * @ZA19201*/ 01571000 LA @12,656 0413 01572000 ALR @12,SMWKPTR 0413 01573000 L @08,SMDLRADR(,@12) 0413 01574000 SLR R15,R15 0413 01575000 IC R15,DATAAREA(,@08) 0413 01576000 * R15=(SMDLRADR+SMDLRLEN-ONE)->DATAAREA;/* CHECK THAT THE LAST BYTE 01577000 * OF THE AREA CAN BE ADDRESSED 01578000 * @ZA19201*/ 01579000 AL @08,SMDLRLEN(,@12) 0414 01580000 BCTR @08,0 0414 01581000 SLR R15,R15 0414 01582000 IC R15,DATAAREA(,@08) 0414 01583000 * R15=ZERO; /* SET GOOD RETURN CODE IF NO 0415 01584000 * ADDRESSING PROBLEM WAS FOUND */ 01585000 SLR R15,R15 0415 01586000 *CHECKEND: /* CLEANUP FOR CHECKP INTERNAL 0416 01587000 * PROC */ 01588000 * RFY 0416 01589000 * (R14SAVE, 0416 01590000 * R15SAVE) RSTD; /* RESTRICT REGS FROM PLS 0416 01591000 * @ZA27227*/ 01592000 CHECKEND DS 0H 0417 01593000 * R14SAVE=RETNREG; /* SAVE R14 ACROSS MACRO @ZA27227*/ 01594000 LR R14SAVE,RETNREG 0417 01595000 * R15SAVE=R15; /* SAVE R15 ACROSS MACRO @ZA27227*/ 01596000 LR R15SAVE,R15 0418 01597000 * GEN REFS(PSACSTK,PSALITA,PSA,FRRS,FRRSCURR,FRRSEMP,FRRSELEN); 0419 01598000 SETFRR D,WRKREGS=(R10,R11) @ZA27227 01599000 TSSEFREE SETLOCK RELEASE,TYPE=LOCAL,REGS=SAVE, X01600000 RELATED=(SVCDUMP,IEAVTSSE(GETLOCKM)) @ZA27227 01601000 * RETNREG=R14SAVE; /* RESTORE REG 14 @ZA27227*/ 01602000 LR RETNREG,R14SAVE 0420 01603000 * RFY 0421 01604000 * R14SAVE UNRSTD; /* ALLOW PLS TO USE REG @ZA27227*/ 01605000 * R3=ADDR(ERRORWK); /* ESTAE WORKAREA ADDRESSABILITY 01606000 * @ZA27227*/ 01607000 LA R3,ERRORWK(,SDWKPTR) 0422 01608000 * ERRFRR='0'B; /* BACK TO THE ESTAE METHOD 0423 01609000 * @ZA27227*/ 01610000 NI ERRFRR(ERR6WPTR),B'01111111' 0423 01611000 * WORKREGA=SAVEREGA; /* RESTORE SAVED WORK REGISTER */ 01612000 L WORKREGA,SAVEREGA(,SMWKPTR) 0424 01613000 * WORKREGB=SAVEREGB; /* RESTORE SAVED WORK REGISTER */ 01614000 L WORKREGB,SAVEREGB(,SMWKPTR) 0425 01615000 * R15=R15SAVE; /* RESTORE REG 15 @ZA27227*/ 01616000 LR R15,R15SAVE 0426 01617000 * RFY 0427 01618000 * R15SAVE UNRSTD; /* RETURN REG TO PLS @ZA27227*/ 01619000 * RETURN; /* RETURN TO CALLER - RETURN CODE 01620000 * IS ALREADY IN R15 */ 01621000 * 0428 01622000 @EL00007 DS 0H 0428 01623000 @EF00007 DS 0H 0428 01624000 @ER00007 BR @14 0428 01625000 * /*****************************************************************/ 01626000 * /* */ 01627000 * /* THE FOLLOWING ERROR ROUTINE IS ENTERED FOR A BAD ADDRESS. IT */ 01628000 * /* IS EITHER BRANCHED TO (AFTER AN LRA INSTRUCTION) OR RETRIED TO*/ 01629000 * /* (AFTER AN 0C4 ABEND WHEN TRIED TO REFERENCE THE DATA AREA). */ 01630000 * /* */ 01631000 * /*****************************************************************/ 01632000 * 0429 01633000 *SSERTYBA: 0429 01634000 * R15=BADADDR; /* SET RETURN CODE FOR BAD 0429 01635000 * ADDRESS OF AREA */ 01636000 SSERTYBA LA R15,4 0429 01637000 * IF NORCDSW=ON THEN /* IF NO RECORDING IS WANTED 0430 01638000 * @ZA19201*/ 01639000 TM NORCDSW(SMWKPTR),B'00000100' 0430 01640000 BNO @RF00430 0430 01641000 * ERRNORCD=ON; /* INDICATE NO LOGREC RECORDING 01642000 * IS NEEDED (MUST RESET BIT 0431 01643000 * BECAUSE SDUMP'S ESTAE TURNS 0431 01644000 * THE BIT OFF WHEN IT IS ENTERED 01645000 * FOR AN ABEND) @ZM45191*/ 01646000 OI ERRNORCD(ERR6WPTR),B'00000010' 0431 01647000 * GO TO CHECKEND; /* USE COMMON CLEANUP CODE FOR 0432 01648000 * THIS INTERNAL PROC */ 01649000 B CHECKEND 0432 01650000 * RFY 0433 01651000 * R15 UNRSTD; 0433 01652000 * RFY 0434 01653000 * RETNREG UNRSTD; 0434 01654000 * END CHECKP; 0435 01655000 * 0436 01656000 */********************************************************************/ 01657000 */* */ 01658000 */*INTERNAL PROCEDURE NAME- */ 01659000 */* OUTPUTP */ 01660000 */* */ 01661000 */*FUNCTION- */ 01662000 */* COPY DUMP RECORDS TO THE OUTPUT BUFFER AND CALLWRITEP */ 01663000 */* WHEN THE BUFFER IS FULL OR THE END OF SUMMARY DUMP */ 01664000 */* RECORD IS WRITTEN */ 01665000 */* */ 01666000 */*INPUT- */ 01667000 */* THE SMDLRID,SMDLRLEN,AND SMDLRADR FIELDS IN SMWKHEAD */ 01668000 */* MUST BE INITIALIZED BY THE CALLER.THE SMDLRMSG FIELD */ 01669000 */* CAN BE INITIALIZED BY THE CALLER.ALSO THE BADADRSW BIT */ 01670000 */* CAN BE SET BY THE CALLER TO INDICATE THAT SPECIAL */ 01671000 */* RECORD HEADERS ARE NEEDED.THE SMDLRPL FIELD MUST BE */ 01672000 */* ZERO. */ 01673000 */* */ 01674000 */*OUTPUT- */ 01675000 */* THE SMDLR HEADER AND ANY DATA IS COPIED TO THE OUTPUT */ 01676000 */* BUFFER AND THE BUFFER IS WRITTEN IF IT WAS FULL OR IF */ 01677000 */* AN END OF SUMMARY DUMP RECORD ID IS IN SMWKHEAD.THE */ 01678000 */* SMDLRPL AND SMDLRMSG FIELDS IN SMWKHEAD ARE RESET TO */ 01679000 */* ZEROS AND THE SMDLRID,SMDLRLEN,AND SMDLRADR FIELDS */ 01680000 */* CONTAIN THE INPUT VALUES. */ 01681000 */* */ 01682000 */*CALLERS- */ 01683000 */* THE ASIDP,SUMLISTP,RTM2P,TRACEP,AND CLEANUPP INTERNAL */ 01684000 */* PROCEDURES */ 01685000 */* */ 01686000 */********************************************************************/ 01687000 * 0436 01688000 *OUTPUTP: 0436 01689000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0436 01690000 OUTPUTP DS 0H 0437 01691000 * 0437 01692000 */* ***************************************************************** 01693000 * * SUMMARY OF INPUT AND OUTPUT FOR OUTPUTP INTERNAL PROC: * 01694000 * ***************************************************************** 01695000 * * * 01696000 * * SMWKHEAD CONTAINS THE SMDLRHDR INFORMATION THAT IS * 01697000 * * THE INPUT TO THIS INTERNAL PROCEDURE. (SMDLRPL IS NOT * 01698000 * * INPUT -- IT IS SET IN THIS INTERNAL PROCEDURE.) * 01699000 * * * 01700000 * * +2 * 01701000 * * SMWKHEAD = +0 |---------------------------------------- * 01702000 * * | SMDLRID | (RSVD) | * 01703000 * * +4 |---------------------------------------| * 01704000 * * | SMDLRLEN | * 01705000 * * +8 |---------------------------------------- * 01706000 * * | SMDLRADR | 0437 01707000 * * +C |---------------------------------------- * 01708000 * * | SMDLRPL | * 01709000 * * +10 |---------------------------------------| * 01710000 * * | SMDLRMSG | (RSVD) | * 01711000 * * |---------------------------------------| * 01712000 * * @ZA25122* 01713000 * * * 01714000 * * THE SMDLRHDR AND ANY DATA POINTED TO BY SMDLRADR WILL BE * 01715000 * * COPIED INTO THE 4104 BYTE OUTPUT BUFFER USED BY SVC DUMP: * 01716000 * * * 01717000 * * +1 +2 * 01718000 * * SDSMBUFF -> +0 ----------------------------------------- * 01719000 * * | PRDKEY1 | PRDKEY2 | PRDASID | * 01720000 * * +4 |---------------------------------------| * 01721000 * * | PSEUDOAD | * 01722000 * * +8 |---------------------------------------| * 01723000 * * | . | * 01724000 * * | . | * 01725000 * * | . | * 01726000 * * BUFFPTR -> +? |---------------------------------------| * 01727000 * * | SMDLRHDR (20 BYTES -- SEE SMWKHEAD) | * 01728000 * * +?+C |---------------------------------------| * 01729000 * * | SMDLRDAT (VARIABLE LENGTH) | * 01730000 * * ----------------------------------------- * 01731000 * * * 01732000 * * * 01733000 * * EXAMPLE: +0 0000FFFA * 01734000 * * +8 00080000 (THE WRITEP INTERNAL PROC WILL * 01735000 * * INCREASE THIS BY '1000'X AFTER * 01736000 * * EACH BUFFER IS WRITTEN... ) * 01737000 * * 00081000...00082000... ETC. * 01738000 * * * 01739000 * * +? 00043238 (SMDLRID = 4 AND SMDLRLEN = 3238)* 01740000 * * +?+8 00FCF940 (SMDLRADR = 'FCF940'X) * 01741000 * * +?+10 32380000 (SMDLPL = SMDLRLEN AND REST = 0) * 01742000 * * +?+14 00FCFE20 (VARIABLE LENGTH SMDLRDAT * 01743000 * * 00FCF960 FOLLOWS... THIS IS THE SYSTEM * 01744000 * * . TRACE TABLE * 01745000 * * . * 01746000 * * . * 01747000 * *****************************************************************/ 01748000 * 0437 01749000 * 0437 01750000 * /*****************************************************************/ 01751000 * /* */ 01752000 * /* FIRST, COPY SUMMARY DUMP RECORD HEADER INTO OUTPUT BUFFER */ 01753000 * /* */ 01754000 * /*****************************************************************/ 01755000 * 0437 01756000 * IF ENDSW=OFF THEN /* IF NO TERMINATING ERROR WAS 0437 01757000 * FOUND WHILE DOING PRIOR WRITE 01758000 * TO THE DUMP DATA SET */ 01759000 TM ENDSW(SMWKPTR),B'00001000' 0437 01760000 BNZ @RF00437 0437 01761000 * DO; 0438 01762000 * OUTPUTS=RETNREG; /* SAVE RETURN ADDRESS BECAUSE 0439 01763000 * LATER CALL WILL DESTROY IT */ 01764000 ST RETNREG,OUTPUTS(,SMWKPTR) 0439 01765000 * SAVELRLN=SMDLRLEN; /* SAVE LOGICAL RECORD LENGTH 0440 01766000 * BECAUSE SET ZERO LENGTH IF 0440 01767000 * CAN'T ACCESS DATA @ZA19201*/ 01768000 LA @15,656 0440 01769000 ALR @15,SMWKPTR 0440 01770000 L @12,SMDLRLEN(,@15) 0440 01771000 ST @12,SAVELRLN(,SMWKPTR) 0440 01772000 * SAVERADR=SMDLRADR; /* SAVE LOGICAL RECORD ADDRESS 0441 01773000 * BECAUSE SET ZERO ADDRESS IF 0441 01774000 * CAN'T ACCESS DATA @ZA19201*/ 01775000 L @08,SMDLRADR(,@15) 0441 01776000 ST @08,SAVERADR(,SMWKPTR) 0441 01777000 * IF BADADRSW=OFF& /* IF HAVE DATA TO BE COPIED 0442 01778000 * @ZA19201*/ 01779000 * SMDLRLEN>ZERO THEN /* UPDATE RECORD HEADER BEFORE 0442 01780000 * COPY HEADER TO BUFFER */ 01781000 TM BADADRSW(SMWKPTR),B'00000010' 0442 01782000 BNZ @RF00442 0442 01783000 LTR @12,@12 0442 01784000 BNP @RF00442 0442 01785000 * DO; 0443 01786000 * SMDLRLEN=(SMDLRLEN+THREE)&FULLWORD;/* ROUND TOTAL DATA 0444 01787000 * LENGTH TO A FULL WORD BOUNDARY*/ 01788000 AL @12,@CF02980 0444 01789000 N @12,@CF02993 0444 01790000 ST @12,SMDLRLEN(,@15) 0444 01791000 * RFY 0445 01792000 * R15 RSTD; /* @ZA19201*/ 01793000 * CALL CHECKP; /* TRY TO ACCESS SMDLRADR 0446 01794000 * @ZA19201*/ 01795000 BAL @14,CHECKP 0446 01796000 * IF R15^=ZERO THEN /* IF ACCESS FAILED @ZA19201*/ 01797000 LTR R15,R15 0447 01798000 BZ @RF00447 0447 01799000 * BADADRSW=ON; /* WILL PUT OUT ONLY HEADER 0448 01800000 * @ZA19201*/ 01801000 OI BADADRSW(SMWKPTR),B'00000010' 0448 01802000 * ELSE /* IF DATA CAN BE ACCESSED 0449 01803000 * @ZA19201*/ 01804000 * SMDLRPL=SMDLRLEN; /* SET PARTIAL RECORD LENGTH = 0449 01805000 * TOTAL RECORD LENGTH @ZA19201*/ 01806000 B @RC00447 0449 01807000 @RF00447 LA @12,656 0449 01808000 ALR @12,SMWKPTR 0449 01809000 L @08,SMDLRLEN(,@12) 0449 01810000 ST @08,SMDLRPL(,@12) 0449 01811000 * RFY 0450 01812000 * R15 UNRSTD; /* @ZA19201*/ 01813000 @RC00447 DS 0H 0451 01814000 * END; /* END OF IF BADADRSW OFF 0451 01815000 * @ZA19201*/ 01816000 * 0452 01817000 */* ***************************************************************** 01818000 * * * 01819000 * * IF COULDN'T ACCESS AN ADDRESS, CREATE TWO SPECIAL SMDLR * 01820000 * * HEADER RECORDS TO FORCE AMDPRDMP'S SUMDUMP FORMATTER TO * 01821000 * * ISSUE THE FOLLOWING MESSAGE: * 01822000 * * * 01823000 * * ++ SUMMARY DUMP RECORD DATA FROM TO * 01824000 * * UNAVAILABLE * 01825000 * * * 01826000 * ***************************************************************** 01827000 * * * 01828000 * * THE TWO SPECIAL HEADER RECORDS CONTAIN THE FOLLOWING FIELDS * 01829000 * * (BUT NOT IN THIS ORDER): * 01830000 * * * 01831000 * * SMDLRADR SMDLRLEN SMDLRPL * 01832000 * * ------------------------------------- * 01833000 * * | NNNN | LL | 0000 | FIRST RECORD * 01834000 * * ------------------------------------- * 01835000 * * | NNNN + LL | 0000 | 0000 | SECOND RECORD * 01836000 * * ------------------------------------- * 01837000 * * * 01838000 * * NOTE- THE FIRST RECORD TELLS THE SUMDUMP FORMATTER THAT * 01839000 * * DATA IS MISSING AT THE BEGINNING OF THE ADDRESS * 01840000 * * RANGE (BECAUSE THE PARTIAL LENGTH IS ZERO) AND THE * 01841000 * * SECOND RECORD TELLS THAT DATA IS MISSING IN THE REST * 01842000 * * OF THE ADDRESS RANGE (BECAUSE PARTIAL LENGTH=ZERO * 01843000 * * AND THE ADDRESS IS OUTSIDE THE FIRST RECORD'S RANGE). * 01844000 * * * 01845000 * *****************************************************************/ 01846000 * 0452 01847000 * IF BADADRSW=ON THEN /* IF DATA CAN'T BE ACCESSED 0452 01848000 * @ZA19201*/ 01849000 @RF00442 TM BADADRSW(SMWKPTR),B'00000010' 0452 01850000 BNO @RF00452 0452 01851000 * DO; /* @ZA19201*/ 01852000 * IF SMDLRLEN>ZERO THEN /* IF HAVE DATA LENGTH @ZA19201*/ 01853000 L @15,SMDLRLEN+656(,SMWKPTR) 0454 01854000 LTR @15,@15 0454 01855000 BNP @RF00454 0454 01856000 * DO; /* @ZA19201*/ 01857000 * CALL HEADERP; /* COPY HEADER, CONTAINING 0456 01858000 * SMDLRLEN= ORIGINAL LENGTH AND 01859000 * SMDLRPL=ZERO, TO OUTPUT BUFFER 01860000 * @ZA19201*/ 01861000 BAL @14,HEADERP 0456 01862000 * SMDLRADR=SMDLRADR+SMDLRLEN;/* GIVE ADDRESS PAST END 01863000 * OF ORIGINAL REQUEST, TO TELL 01864000 * SUMDUMP FORMATTER TO ISSUE MSG 01865000 * @ZA19201*/ 01866000 LA @15,656 0457 01867000 ALR @15,SMWKPTR 0457 01868000 L @12,SMDLRADR(,@15) 0457 01869000 AL @12,SMDLRLEN(,@15) 0457 01870000 ST @12,SMDLRADR(,@15) 0457 01871000 * SMDLRLEN=ZERO; /* SET TOTAL LENGTH TO ZERO TO 0458 01872000 * INDICATE CONTINUATION @ZA19201*/ 01873000 SLR @12,@12 0458 01874000 ST @12,SMDLRLEN(,@15) 0458 01875000 * BUFFPTR=ENDRCD+ONE; /* POINT TO NEXT FREE AREA IN THE 01876000 * OUTPUT BUFFER @ZA19201*/ 01877000 LA @15,1 0459 01878000 AL @15,ENDRCD(,SMWKPTR) 0459 01879000 ST @15,BUFFPTR(,SMWKPTR) 0459 01880000 * END; /* END OF IF HAVE DATA LEN 0460 01881000 * @ZA19201*/ 01882000 * BADADRSW=OFF; /* DONE WITH SPECIAL LOGIC 0461 01883000 * @ZA19201*/ 01884000 @RF00454 NI BADADRSW(SMWKPTR),B'11111101' 0461 01885000 * END; /* END OF IF BADADRSW ON @ZA19201*/ 01886000 * CALL HEADERP; /* COPY THIS RECORD HEADER TO 0463 01887000 * OUTPUT BUFFER @ZA19201*/ 01888000 @RF00452 BAL @14,HEADERP 0463 01889000 * 0464 01890000 * /*************************************************************/ 01891000 * /* */ 01892000 * /* PROCESSING FOR RECORDS WITH DATA */ 01893000 * /* */ 01894000 * /*************************************************************/ 01895000 * 0464 01896000 * IF SMDLRLEN>ZERO THEN /* IF RECORD HAS DATA TO BE MOVED*/ 01897000 LA @15,656 0464 01898000 ALR @15,SMWKPTR 0464 01899000 L @12,SMDLRLEN(,@15) 0464 01900000 LTR @12,@12 0464 01901000 BNP @RF00464 0464 01902000 * DO; /* MAKE SURE HAVE ROOM IN BUFFER 01903000 * FOR DATA--IF NO ROOM, JUST PUT 01904000 * PART OF DATA IN THE BUFFER */ 01905000 * SAVEREGA=WORKREGA; /* SAVE WORKREGA BECAUSE MOVELP 01906000 * WILL USE IT */ 01907000 ST WORKREGA,SAVEREGA(,SMWKPTR) 0466 01908000 * SAVEREGB=WORKREGB; /* SAVE WORKREGB BECAUSE MOVELP 01909000 * WILL USE IT */ 01910000 ST WORKREGB,SAVEREGB(,SMWKPTR) 0467 01911000 * ENDRCD=BUFFPTR+SAVEHDRL+SMDLRLEN-ONE;/* CALCULATE ADDRESS 01912000 * OF END OF RECORD IN OUTPUT 0468 01913000 * BUFFER */ 01914000 L @08,BUFFPTR(,SMWKPTR) 0468 01915000 AL @08,SAVEHDRL(,SMWKPTR) 0468 01916000 ALR @08,@12 0468 01917000 BCTR @08,0 0468 01918000 ST @08,ENDRCD(,SMWKPTR) 0468 01919000 * IF ENDRCD<=ENDBUFF THEN /* IF ALL OF THE RECORD DATA WILL 01920000 * FIT IN BUFFER */ 01921000 C @08,ENDBUFF(,SMWKPTR) 0469 01922000 BH @RF00469 0469 01923000 * DO; 0470 01924000 * 0470 01925000 * /*****************************************************/ 01926000 * /* */ 01927000 * /* COPY RECORD DATA TO OUTPUT BUFFER */ 01928000 * /* */ 01929000 * /*****************************************************/ 01930000 * 0471 01931000 * WORKREGA=SMDLRADR; /* SET FROM ADDR FOR MOVE = DATA 01932000 * ADDR */ 01933000 L WORKREGA,SMDLRADR(,@15) 0471 01934000 * WORKREGB=SMDLRLEN; /* SET FROM LENGTH FOR MOVE = 0472 01935000 * TOTAL LENGTH OF RECORD DATA */ 01936000 LR WORKREGB,@12 0472 01937000 * CALL MOVELP; /* COPY RECORD DATA INTO OUTPUT 01938000 * BUFFER (USE MVCL BECAUSE DATA 01939000 * CAN BE LONGER THAN 256 BYTES) */ 01940000 BAL @14,MOVELP 0473 01941000 * END; /* END OF IF ALL RECORD DATA WILL 01942000 * FIT */ 01943000 * 0474 01944000 * /*********************************************************/ 01945000 * /* */ 01946000 * /* PROCESSING FOR RECORDS WITH TOO MUCH DATA TO FIT IN */ 01947000 * /* THE BUFFER */ 01948000 * /* */ 01949000 * /*********************************************************/ 01950000 * 0475 01951000 * ELSE /* IF ALL OF THE RECORD DATA 0475 01952000 * WON'T FIT */ 01953000 * DO; 0475 01954000 B @RC00469 0475 01955000 @RF00469 DS 0H 0476 01956000 * WORKREGA=SMDLRADR; /* GET ADDRESS OF THE RECORD DATA*/ 01957000 LA @15,656 0476 01958000 ALR @15,SMWKPTR 0476 01959000 L WORKREGA,SMDLRADR(,@15) 0476 01960000 * SAVEREML=SMDLRLEN; /* SAVE AMOUNT OF DATA LEFT TO BE 01961000 * MOVED */ 01962000 L @15,SMDLRLEN(,@15) 0477 01963000 ST @15,SAVEREML(,SMWKPTR) 0477 01964000 * DO UNTIL(SAVEREML=ZERO);/* COPY DATA TO BUFFER AND 0478 01965000 * WRITE THE BUFFER UNTIL ALL 0478 01966000 * DATA IS PROCESSED */ 01967000 * 0478 01968000 @DL00478 DS 0H 0479 01969000 * /***************************************************/ 01970000 * /* */ 01971000 * /* COPY THIS PART OF DATA TO OUTPUT BUFFER */ 01972000 * /* */ 01973000 * /***************************************************/ 01974000 * 0479 01975000 * WORKREGB=ENDBUFF-(BUFFPTR+SAVEHDRL)+ONE;/* 0479 01976000 * CALCULATE HOW MUCH DATA WILL 01977000 * FIT IN THE BUFFER @ZM44931*/ 01978000 L WORKREGB,BUFFPTR(,SMWKPTR) 0479 01979000 AL WORKREGB,SAVEHDRL(,SMWKPTR) 0479 01980000 LCR WORKREGB,WORKREGB 0479 01981000 AL WORKREGB,ENDBUFF(,SMWKPTR) 0479 01982000 AL WORKREGB,@CF00076 0479 01983000 * IF WORKREGB>ZERO THEN/* IF HAVE ROOM FOR SOME DATA 01984000 * IN THE BUFFER */ 01985000 LTR WORKREGB,WORKREGB 0480 01986000 BNP @RF00480 0480 01987000 * DO; 0481 01988000 * SAVEREML=SAVEREML-WORKREGB;/* CALCULATE HOW 0482 01989000 * MUCH DATA IS LEFT TO MOVE */ 01990000 L @15,SAVEREML(,SMWKPTR) 0482 01991000 SLR @15,WORKREGB 0482 01992000 ST @15,SAVEREML(,SMWKPTR) 0482 01993000 * CALL MOVELP; /* COPY RECORD DATA INTO OUTPUT 01994000 * BUFFER. (USE MVCL BECAUSE DATA 01995000 * CAN BE LONGER THAN 256 BYTES.) 01996000 * NOTE-- WORKREGA'S FROM ADDR IS 01997000 * UPDATED BY THE MVCL. */ 01998000 BAL @14,MOVELP 0483 01999000 * END; /* END OF IF HAVE ROOM FOR SOME 02000000 * DATA */ 02001000 * CALL WRITEP; /* WRITE BUFFER TO DUMP DATA SET */ 02002000 @RF00480 BAL @14,WRITEP 0485 02003000 * ENDRCD=BUFFPTR+SAVEREML-ONE;/* CALCULATE ADDRESS OF 02004000 * END OF RECORD IN EMPTIED 0486 02005000 * OUTPUT BUFFER */ 02006000 L @15,SAVEREML(,SMWKPTR) 0486 02007000 L @12,BUFFPTR(,SMWKPTR) 0486 02008000 ALR @12,@15 0486 02009000 BCTR @12,0 0486 02010000 ST @12,ENDRCD(,SMWKPTR) 0486 02011000 * SAVEHDRL=ZERO; /* DON'T COUNT HEADER LENGTH 0487 02012000 * AFTER EMPTY FIRST BUFFER */ 02013000 * 0487 02014000 SLR @08,@08 0487 02015000 ST @08,SAVEHDRL(,SMWKPTR) 0487 02016000 * /***************************************************/ 02017000 * /* */ 02018000 * /* COPY LAST PART OF DATA TO OUTPUT BUFFER */ 02019000 * /* */ 02020000 * /***************************************************/ 02021000 * 0488 02022000 * IF ENDRCD<=ENDBUFF THEN/* IF ALL OF THE REMAINING 02023000 * DATA WILL FIT IN BUFFER */ 02024000 C @12,ENDBUFF(,SMWKPTR) 0488 02025000 BH @RF00488 0488 02026000 * DO; 0489 02027000 * WORKREGB=SAVEREML;/* SET FROM LENGTH FOR MOVE = 02028000 * REMAINING LENGTH */ 02029000 LR WORKREGB,@15 0490 02030000 * CALL MOVELP; /* COPY RECORD DATA INTO OUTPUT 02031000 * BUFFER (USE MVCL BECAUSE DATA 02032000 * CAN BE LONGER THAN 256 BYTES) */ 02033000 BAL @14,MOVELP 0491 02034000 * SAVEREML=ZERO;/* INDICATE END OF 'DO UNTIL' 0492 02035000 * LOOP TO PROCESS DATA FOR 0492 02036000 * RECORD */ 02037000 SLR @15,@15 0492 02038000 ST @15,SAVEREML(,SMWKPTR) 0492 02039000 * END; /* END OF IF ALL REMAINING DATA 02040000 * FITS */ 02041000 * END; /* END OF 'DO UNTIL' LOOP TO 0494 02042000 * PROCESS RECORD DATA */ 02043000 @RF00488 DS 0H 0494 02044000 @DE00478 L @15,SAVEREML(,SMWKPTR) 0494 02045000 LTR @15,@15 0494 02046000 BNZ @DL00478 0494 02047000 * END; /* END OF ELSE (RECORDS WITH TOO 02048000 * MUCH DATA TO FIT IN THE 0495 02049000 * BUFFER) */ 02050000 * WORKREGA=SAVEREGA; /* RESTORE SAVED WORKREGA VALUE */ 02051000 @RC00469 L WORKREGA,SAVEREGA(,SMWKPTR) 0496 02052000 * WORKREGB=SAVEREGB; /* RESTORE SAVED WORKREGB VALUE */ 02053000 L WORKREGB,SAVEREGB(,SMWKPTR) 0497 02054000 * END; /* END OF IF SMDLRLEN > ZERO 0498 02055000 * (RECORD WITH DATA) */ 02056000 * 0498 02057000 * /*************************************************************/ 02058000 * /* */ 02059000 * /* WRITE THE OUTPUT BUFFER IF AT END OF SUMMARY DUMP OR IF NO*/ 02060000 * /* MORE RECORDS WILL FIT IN BUFFER */ 02061000 * /* */ 02062000 * /*************************************************************/ 02063000 * 0499 02064000 * IF SMDLRID=SMDEOD| /* IF HEADER FOR END OF SUMDUMP */ 02065000 * ENDBUFF=ENDRCD THEN /* OR IF NOT ENOUGH ROOM FOR 0499 02066000 * ANOTHER RECORD IN THE BUFFER */ 02067000 @RF00464 CLC SMDLRID+656(2,SMWKPTR),@CH02416 0499 02068000 BE @RT00499 0499 02069000 CLC ENDBUFF(4,SMWKPTR),ENDRCD(SMWKPTR) 0499 02070000 BNE @RF00499 0499 02071000 @RT00499 DS 0H 0500 02072000 * CALL WRITEP; /* WRITE THE BUFFER TO THE DUMP 02073000 * DATA SET */ 02074000 BAL @14,WRITEP 0500 02075000 * ELSE /* IF HAVE ROOM FOR ANOTHER 0501 02076000 * RECORD */ 02077000 * BUFFPTR=ENDRCD+ONE; /* POINT TO THE NEXT FREE AREA IN 02078000 * THE OUTPUT BUFFER */ 02079000 B @RC00499 0501 02080000 @RF00499 LA @15,1 0501 02081000 AL @15,ENDRCD(,SMWKPTR) 0501 02082000 ST @15,BUFFPTR(,SMWKPTR) 0501 02083000 * SMDLRPL=ZERO; /* PUT ZEROS IN THE NON-REUSED 0502 02084000 * FIELDS OF THE SUMMARY DUMP 0502 02085000 * HEADER FOR THE NEXT RECORD */ 02086000 @RC00499 LA @15,656 0502 02087000 ALR @15,SMWKPTR 0502 02088000 SLR @12,@12 0502 02089000 ST @12,SMDLRPL(,@15) 0502 02090000 * SMDLRMSG=ZERO; 0503 02091000 MVI SMDLRMSG(@15),X'00' 0503 02092000 * SMDLRLEN=SAVELRLN; /* RESTORE LOGICAL RECORD LENGTH 02093000 * @ZA19201*/ 02094000 L @12,SAVELRLN(,SMWKPTR) 0504 02095000 ST @12,SMDLRLEN(,@15) 0504 02096000 * SMDLRADR=SAVERADR; /* RESTORE LOGICAL RECORD ADDRESS 02097000 * @ZA19201*/ 02098000 L @12,SAVERADR(,SMWKPTR) 0505 02099000 ST @12,SMDLRADR(,@15) 0505 02100000 * RETNREG=OUTPUTS; /* RESTORE CALLER'S RETURN 0506 02101000 * ADDRESS BEFORE RETURN */ 02102000 L RETNREG,OUTPUTS(,SMWKPTR) 0506 02103000 * END; /* END OF IF ENDSW = OFF */ 02104000 * END OUTPUTP; 0508 02105000 @EL00008 DS 0H 0508 02106000 @EF00008 DS 0H 0508 02107000 @ER00008 BR @14 0508 02108000 * 0509 02109000 */********************************************************************/ 02110000 */* */ 02111000 */*INTERNAL PROCEDURE NAME- */ 02112000 */* HEADERP */ 02113000 */* */ 02114000 */*FUNCTION- */ 02115000 */* COPY RECORD HEADER TO THE OUTPUT BUFFER */ 02116000 */* */ 02117000 */*INPUT- */ 02118000 */* SMWKHEAD CONTAINING RECORD HEADER TO BE COPIED */ 02119000 */* */ 02120000 */*OUTPUT- */ 02121000 */* RECORD HEADER COPIED TO BUFFAREA AND SAVEHDRL,ENDRCD */ 02122000 */* VALUES SET FOR LATER USE BY CALLER */ 02123000 */* */ 02124000 */*CALLERS- */ 02125000 */* THE OUTPUTP INTERNAL PROCEDURE */ 02126000 */* */ 02127000 */********************************************************************/ 02128000 * 0509 02129000 *HEADERP: 0509 02130000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0509 02131000 * 0509 02132000 HEADERP DS 0H 0510 02133000 */*A-40062133-40091233 @ZA19201*/ 02134000 * 0510 02135000 * HEADERS=RETNREG; /* SAVE CALLER'S RETURN ADDRESS 02136000 * BECAUSE LATER CALL WILL 0510 02137000 * DESTROY IT */ 02138000 ST RETNREG,HEADERS(,SMWKPTR) 0510 02139000 * ENDRCD=BUFFPTR+LENGTH(SMDLRHDR)-ONE;/* GET AMOUNT OF SPACE NEEDED 02140000 * FOR THIS PART OF THE RECORD IN 02141000 * THE BUFFER */ 02142000 L @15,BUFFPTR(,SMWKPTR) 0511 02143000 LR @12,@15 0511 02144000 SL @12,@CF03168 0511 02145000 ST @12,ENDRCD(,SMWKPTR) 0511 02146000 * IF ENDRCD<=ENDBUFF THEN /* IF RECORD HEADER WILL ALL FIT 02147000 * IN THE BUFFER */ 02148000 C @12,ENDBUFF(,SMWKPTR) 0512 02149000 BH @RF00512 0512 02150000 * DO; 0513 02151000 * BUFFAREA(1:LENGTH(SMDLRHDR))=SMDLRHDR(1:LENGTH(SMDLRHDR)); 0514 02152000 MVC BUFFAREA(20,@15),SMDLRHDR+656(SMWKPTR) 0514 02153000 * SAVEHDRL=LENGTH(SMDLRHDR); /* SAVE HEADER LENGTH FOR USE IN 02154000 * DATA COPYING LOGIC */ 02155000 MVC SAVEHDRL(4,SMWKPTR),@CF01906 0515 02156000 * END; 0516 02157000 * ELSE /* IF HEADER WON'T ALL FIT IN 0517 02158000 * BUFFER */ 02159000 * DO; /* PROCESS IT IN PIECES */ 02160000 B @RC00512 0517 02161000 @RF00512 DS 0H 0518 02162000 * SAVEHDRL=ENDRCD-ENDBUFF; /* CALCULATE WHAT PART OF THE 0518 02163000 * HEADER WILL NOT FIT IN BUFFER */ 02164000 L @15,ENDRCD(,SMWKPTR) 0518 02165000 SL @15,ENDBUFF(,SMWKPTR) 0518 02166000 ST @15,SAVEHDRL(,SMWKPTR) 0518 02167000 * TEMPSAVE=LENGTH(SMDLRHDR)-SAVEHDRL;/* CALCULATE HOW MUCH OF 02168000 * THE HEADER TO COPY INTO THIS 02169000 * BUFFER */ 02170000 LCR @15,@15 0519 02171000 AL @15,@CF01906 0519 02172000 ST @15,TEMPSAVE(,SMWKPTR) 0519 02173000 * BUFFAREA(1:TEMPSAVE)=SMDLRHDR(1:TEMPSAVE);/* COPY FIRST PART 02174000 * OF HEADER TO THE BUFFER */ 02175000 L @12,BUFFPTR(,SMWKPTR) 0520 02176000 BCTR @15,0 0520 02177000 EX @15,@SM03185 0520 02178000 * CALL WRITEP; /* WRITE BUFFER, WHICH ENDS WITH 02179000 * A PARTIAL RECORD HEADER, TO 0521 02180000 * DUMP DATA SET. (WRITEP UPDATES 02181000 * BUFFPTR.) */ 02182000 BAL @14,WRITEP 0521 02183000 * BUFFAREA(1:SAVEHDRL)=SMDLRHDR(TEMPSAVE+1:LENGTH(SMDLRHDR));/* 02184000 * COPY REMAINING PART OF HEADER 02185000 * TO THE EMPTIED BUFFER */ 02186000 L @15,BUFFPTR(,SMWKPTR) 0522 02187000 L @12,SAVEHDRL(,SMWKPTR) 0522 02188000 LR @08,@12 0522 02189000 BCTR @08,0 0522 02190000 L @02,TEMPSAVE(,SMWKPTR) 0522 02191000 ALR @02,SMWKPTR 0522 02192000 EX @08,@SM03187 0522 02193000 * ENDRCD=BUFFPTR+SAVEHDRL-ONE;/* OUTPUTP WILL USE THIS VALUE 0523 02194000 * FOR UPDATING BUFFPTR IF RECORD 02195000 * HAS NO DATA @ZA19201*/ 02196000 ALR @15,@12 0523 02197000 BCTR @15,0 0523 02198000 ST @15,ENDRCD(,SMWKPTR) 0523 02199000 * END; /* END OF ELSE TO PROCESS HEADER */ 02200000 * RETNREG=HEADERS; /* RESTORE CALLER'S RETURN 0525 02201000 * ADDRESS BEFORE RETURN */ 02202000 @RC00512 L RETNREG,HEADERS(,SMWKPTR) 0525 02203000 * END HEADERP; 0526 02204000 @EL00009 DS 0H 0526 02205000 @EF00009 DS 0H 0526 02206000 @ER00009 BR @14 0526 02207000 * 0527 02208000 */********************************************************************/ 02209000 */* */ 02210000 */*INTERNAL PROCEDURE NAME- */ 02211000 */* MOVELP */ 02212000 */* */ 02213000 */*FUNCTION- */ 02214000 */* COPY DATA TO THE OUTPUT BUFFER.DATA LENGTH CAN BE */ 02215000 */* ALMOST 4K,SO MVCL IS NEEDED. */ 02216000 */* */ 02217000 */*INPUT- */ 02218000 */* WORKREGA=FROM ADDR */ 02219000 */* */ 02220000 */*INPUT- */ 02221000 */* WORKREGB=FROM LENGTH */ 02222000 */* */ 02223000 */*OUTPUT- */ 02224000 */* DATA COPIED TO BUFFAREA */ 02225000 */* */ 02226000 */*CALLERS- */ 02227000 */* THE OUTPUTP INTERNAL PROCEDURE */ 02228000 */* */ 02229000 */********************************************************************/ 02230000 * 0527 02231000 *MOVELP: 0527 02232000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0527 02233000 MOVELP DS 0H 0528 02234000 * RFY 0528 02235000 * (TOADDR, 0528 02236000 * TOLEN, 0528 02237000 * RETNREG) RSTD; /* RESTRICT THE WORK REGISTERS 0528 02238000 * AND THE RETURN REGISTER */ 02239000 * TOADDR=BUFFPTR+SAVEHDRL; /* WILL MOVE INTO DATA AREA OF 0529 02240000 * CURRENT SUMMARY DUMP RECORD IN 02241000 * OUTPUT BUFFER */ 02242000 L TOADDR,BUFFPTR(,SMWKPTR) 0529 02243000 AL TOADDR,SAVEHDRL(,SMWKPTR) 0529 02244000 * TOLEN=WORKREGB; /* TO LENGTH OF DATA=FROM LENGTH 02245000 * OF DATA */ 02246000 LR TOLEN,WORKREGB 0530 02247000 * 0531 02248000 */********************************************************************/ 02249000 */* */ 02250000 */* THE MOVE LONG INSTRUCTION WILL USE THE FOLLOWING REGISTERS: */ 02251000 */* TOADDR = EVEN REGISTER WITH ADDRESS TO MOVE DATA TO */ 02252000 */* TOLEN = FOLLOWING ODD REGISTER WITH LENGTH FOR MOVE TO 'TOADDR' */ 02253000 */* WORKREGA = EVEN REGISTER WITH ADDRESS TO MOVE DATA FROM */ 02254000 */* WORKREGB = FOLLOWING ODD REGISTER WITH LENGTH FOR MOVE FROM */ 02255000 */* ADDRESS IN WORKREGA */ 02256000 */* (DON'T USE PADDING CHARACTER BECAUSE LENGTHS ARE EQUAL) */ 02257000 */* */ 02258000 */* NOTES: */ 02259000 */* - THE MVCL CHANGES THE CONTENTS OF ALL FOUR REGISTERS: */ 02260000 */* WORKREGA = WORKREGA + TOLEN */ 02261000 */* WORKREGB = WORKREGB - TOLEN = ZERO */ 02262000 */* TOADDR = TOADDR + TOLEN */ 02263000 */* TOLEN = TOLEN - TOLEN = ZERO */ 02264000 */* - THE MOVE CAN CAUSE A PROGRAM CHECK (0C4 ABEND) IF THE FROM */ 02265000 */* ADDRESS IS INVALID. IN THAT CASE EXECUTION WILL RESUME */ 02266000 */* AT THE RETRY ADDRESS (ERRRETRY). */ 02267000 */* */ 02268000 */********************************************************************/ 02269000 * 0531 02270000 * MVCL(TOADDR,WORKREGA); /* DO THE MOVE LONG */ 02271000 MVCL TOADDR,WORKREGA 0531 02272000 * RFY 0532 02273000 * (TOADDR, 0532 02274000 * TOLEN, 0532 02275000 * RETNREG) UNRSTD; 0532 02276000 * END MOVELP; 0533 02277000 @EL00010 DS 0H 0533 02278000 @EF00010 DS 0H 0533 02279000 @ER00010 BR @14 0533 02280000 * 0534 02281000 */********************************************************************/ 02282000 */* */ 02283000 */*INTERNAL PROCEDURE NAME- */ 02284000 */* WRITEP */ 02285000 */* */ 02286000 */*FUNCTION- */ 02287000 */* INVOKE IEAVTSDP,THE SVC DUMP OUTPUT WRITER,TO WRITE */ 02288000 */* FROM THE SVC DUMP OUTPUT BUFFER TO THE DUMP DATA SET */ 02289000 */* */ 02290000 */*INPUT- */ 02291000 */* BUFFER TO BE WRITTEN(POINTED TO BY SDSMBUFF) */ 02292000 */* */ 02293000 */*OUTPUT- */ 02294000 */* THE OUTPUT BUFFER IS WRITTEN TO THE DUMP DATA SET AND */ 02295000 */* BUFFPTR IS UPDATED TO POINT TO THE BEGINNING OF THE */ 02296000 */* OUTPUT BUFFER.ENDSW IS SET ON IF FOUND TERMINATING */ 02297000 */* ERROR. */ 02298000 */* */ 02299000 */*CALLERS- */ 02300000 */* THE OUTPUTP INTERNAL PROCEDURE */ 02301000 */* */ 02302000 */********************************************************************/ 02303000 * 0534 02304000 *WRITEP: 0534 02305000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0534 02306000 WRITEP DS 0H 0535 02307000 * IF ENDSW=OFF THEN /* IF NO TERMINATING ERROR WAS 0535 02308000 * FOUND WHILE DOING PRIOR WRITE 02309000 * TO THE DUMP DATA SET */ 02310000 TM ENDSW(SMWKPTR),B'00001000' 0535 02311000 BNZ @RF00535 0535 02312000 * DO; 0536 02313000 * WRITES=RETNREG; /* SAVE RETURN ADDRESS BECAUSE 0537 02314000 * LATER CALL WILL DESTROY IT */ 02315000 ST RETNREG,WRITES(,SMWKPTR) 0537 02316000 * SAVERTY=ERRRETRY; /* SAVE RETRY ADDR ACROSS CALL TO 02317000 * IEAVTSDP */ 02318000 * 0538 02319000 L @15,ERRRETRY(,ERR6WPTR) 0538 02320000 ST @15,SAVERTY(,SMWKPTR) 0538 02321000 * /*************************************************************/ 02322000 * /* */ 02323000 * /* WRITE THIS 4104 BYTE BUFFER OF SUMMARY DUMP RECORD(S) INTO*/ 02324000 * /* THE DUMP DATA SET */ 02325000 * /* */ 02326000 * /*************************************************************/ 02327000 * 0539 02328000 * CALL IEAVTSDP; /* IEAVTSDP USES SDSMBUFF POINTER 02329000 * IN SDWORK FOR ADDRESS OF 0539 02330000 * OUTPUT BUFFER TO DUMP. IF THE 02331000 * DUMP DATA SET IS FILLED BY 0539 02332000 * THIS WRITE, OR IF AN 0539 02333000 * UNRECOVERABLE I/O ERROR 0539 02334000 * OCCURS, ERRENDMP AND SDRETCOD 02335000 * WILL BE SET BY IEAVTSDP. */ 02336000 * 0539 02337000 L @15,@CV03096 0539 02338000 BALR @14,@15 0539 02339000 * /*************************************************************/ 02340000 * /* */ 02341000 * /* IT IS NECESSARY TO REESTABLISH MODULE DEPENDENT */ 02342000 * /* INFORMATION HERE BECAUSE IEAVTSDP USES THE SAME ERROR */ 02343000 * /* RECOVERY ROUTINES AND PARMLISTS AS IEAVTSSE */ 02344000 * /* */ 02345000 * /*************************************************************/ 02346000 * 0540 02347000 * SVCDMPNM=MODNAME; /* IDENTIFY THIS MODULE AS IN 0540 02348000 * CONTROL */ 02349000 MVC SVCDMPNM(8,SDWKPTR),@CC02998 0540 02350000 * ERRBASE1=BASEREG; /* PUT THE BASE REG IN THE ERROR 02351000 * ROUTINE PARMLIST TO BE 0541 02352000 * RESTORED IF THERE IS A RETRY */ 02353000 ST BASEREG,ERRBASE1(,ERR6WPTR) 0541 02354000 * ERRRETRY=SAVERTY; /* AND THEN RESET THE RETRY ADDR */ 02355000 L @15,SAVERTY(,SMWKPTR) 0542 02356000 ST @15,ERRRETRY(,ERR6WPTR) 0542 02357000 * 0543 02358000 * /*************************************************************/ 02359000 * /* */ 02360000 * /* UPDATE BUFFER POINTERS */ 02361000 * /* */ 02362000 * /*************************************************************/ 02363000 * 0543 02364000 * BUFFPTR=ADDR(PRDDATA); /* RESET POINTER FOR NEXT FREE 0543 02365000 * AREA IN OUTPUT BUFFER TO 0543 02366000 * BEGINNING OF THE BUFFER, MINUS 02367000 * THE AMDPRDMP DATA RECORD 0543 02368000 * HEADER */ 02369000 L @15,PRDINPTR(,SDWKPTR) 0543 02370000 LA @12,PRDDATA(,@15) 0543 02371000 ST @12,BUFFPTR(,SMWKPTR) 0543 02372000 * PSEUDOAD=PSEUDOAD+PAGESIZE; /* INCREMENT THE PSEUDO ADDR FOR 02373000 * THE NEXT PAGE OF DATA */ 02374000 * 0544 02375000 L @12,@CF01017 0544 02376000 AL @12,PSEUDOAD(,@15) 0544 02377000 ST @12,PSEUDOAD(,@15) 0544 02378000 * /*************************************************************/ 02379000 * /* */ 02380000 * /* CHECK FOR ERRORS THAT WILL TERMINATE THE SUMMARY DUMP */ 02381000 * /* */ 02382000 * /*************************************************************/ 02383000 * 0545 02384000 * IF PSEUDOAD>=PASTRT+PASIZE THEN/* IF HAVE FILLED THE ENTIRE 02385000 * (PSEUDO) PRIVATE AREA WITH 0545 02386000 * SUMMARY DUMP DATA */ 02387000 L @15,CVTPTR 0545 02388000 L @15,GDAPTR(,@15) 0545 02389000 L @08,PASTRT(,@15) 0545 02390000 AL @08,PASIZE(,@15) 0545 02391000 CR @12,@08 0545 02392000 BL @RF00545 0545 02393000 * ENDSW=ON; /* TERMINATE THE SUMMARY DUMP 0546 02394000 * (BUT CONTINUE WITH REMAINDER 02395000 * OF THE SVC DUMP) */ 02396000 OI ENDSW(SMWKPTR),B'00001000' 0546 02397000 * IF ERRENDMP=ON THEN /* IF IEAVTSDP FILLED THE DUMP 0547 02398000 * DATA SET OR HAD AN 0547 02399000 * UNRECOVERABLE I/O ERROR */ 02400000 @RF00545 TM ERRENDMP(ERR6WPTR),B'01000000' 0547 02401000 BNO @RF00547 0547 02402000 * ENDSW=ON; /* TERMINATE THE SUMMARY DUMP */ 02403000 OI ENDSW(SMWKPTR),B'00001000' 0548 02404000 * RETNREG=WRITES; /* RESTORE CALLER'S RETURN 0549 02405000 * ADDRESS BEFORE RETURN */ 02406000 @RF00547 L RETNREG,WRITES(,SMWKPTR) 0549 02407000 * END; /* END OF IF ENDSW = OFF */ 02408000 * END WRITEP; 0551 02409000 @EL00011 DS 0H 0551 02410000 @EF00011 DS 0H 0551 02411000 @ER00011 BR @14 0551 02412000 * END IEAVTSSE 0552 02413000 * 0552 02414000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02415000 */*%INCLUDE SYSLIB (IHAASCB ) */ 02416000 */*%INCLUDE SYSLIB (IHAASXB ) */ 02417000 */*%INCLUDE SYSLIB (CVT ) */ 02418000 */*%INCLUDE SYSLIB (IHASDERR) */ 02419000 */*%INCLUDE SYSLIB (IHAGDA ) */ 02420000 */*%INCLUDE SYSLIB (AMDDATA ) */ 02421000 */*%INCLUDE SYSLIB (IHAPSA ) */ 02422000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 02423000 */*%INCLUDE SYSLIB (IHARTCT ) */ 02424000 */*%INCLUDE SYSLIB (IHARTM2A) */ 02425000 */*%INCLUDE SYSLIB (IHASNP ) */ 02426000 */*%INCLUDE SYSLIB (IHARMPL ) */ 02427000 */*%INCLUDE SYSLIB (IHASDRSB) */ 02428000 */*%INCLUDE SYSLIB (IHASDUMP) */ 02429000 */*%INCLUDE SYSLIB (IHASDWRK) */ 02430000 */*%INCLUDE SYSLIB (IHASMDLR) */ 02431000 */*%INCLUDE SYSLIB (IHASMWK ) */ 02432000 */*%INCLUDE SYSLIB (IKJTCB ) */ 02433000 */*%INCLUDE SYSLIB (IEFTIOT1) */ 02434000 * 0552 02435000 * ; 0552 02436000 @DATA DS 0H 02437000 @CH02330 DC H'46' 02438000 @CH00998 DC H'48' 02439000 @CH02335 DC H'49' 02440000 @CH02416 DC H'53' 02441000 @CH02410 DC H'57' 02442000 @CH02327 DC H'58' 02443000 @CH02412 DC H'59' 02444000 @CH02414 DC H'60' 02445000 @SM03185 MVC BUFFAREA(0,@12),SMDLRHDR+656(SMWKPTR) 02446000 @SM03187 MVC BUFFAREA(0,@15),SMDLRHDR+656(@02) 02447000 @DATD DSECT 02448000 DS 0F 02449000 IEAVTSSE CSECT 02450000 DS 0F 02451000 @CF00076 DC F'1' 02452000 @CH00076 EQU @CF00076+2 02453000 @CF00052 DC F'4' 02454000 @CH00052 EQU @CF00052+2 02455000 @CF01075 DC F'6' 02456000 @CF00064 DC F'16' 02457000 @CH00064 EQU @CF00064+2 02458000 @CF01906 DC F'20' 02459000 @CF02365 DC F'25' 02460000 @CF02367 DC F'26' 02461000 @CF00091 DC F'32' 02462000 @CF02984 DC F'300' 02463000 @CF03166 DC F'972' 02464000 @CF02986 DC F'2048' 02465000 @CF01017 DC F'4096' 02466000 @CF02991 DC F'65536' 02467000 @CF03164 DC F'-4095' 02468000 @CF03167 DC F'-4076' 02469000 @CF03168 DC F'-19' 02470000 @CF03176 DC F'-8' 02471000 @CF03177 DC F'-4' 02472000 @CF03183 DC F'-3' 02473000 @CF02993 DC XL4'FFFFFFFC' 02474000 @CF03000 DC XL4'7FFFFFFF' 02475000 @CF03175 DC XL4'0000FFFF' 02476000 @CF02980 DC XL4'0003' 02477000 @DATD DSECT 02478000 DS 0D 02479000 @ENDDATD EQU * 02480000 IEAVTSSE CSECT 02481000 NOPR ((@ENDDATD-@DATD)*16) 02482000 DS 0F 02483000 @SIZDATD DC AL1(0) 02484000 DC AL3(@ENDDATD-@DATD) 02485000 @CV03095 DC V(SDFRRRTN) 02486000 @CV03096 DC V(IEAVTSDP) 02487000 DS 0D 02488000 SMWKLEN DC AL4(980) 02489000 ADDRFRR DC VL4(SDFRRRTN) 02490000 @CC02998 DC C'IEAVTSSE' 02491000 @CB02319 DC X'FFFA' 02492000 PATCHLOC DS CL256 02493000 ORG PATCHLOC 02494000 @NM00130 DC CL256'***PATCH AREA FOR MODULE IEAVTSSE. LENGTH IS 256 C02495000 BYTES.***' 02496000 ORG PATCHLOC+256 02497000 SMDWSAG DC AL2(6) 02498000 DC AL2(7) 02499000 DC AL2(8) 02500000 DC AL2(9) 02501000 DC AL2(10) 02502000 DC AL2(11) 02503000 DC AL2(12) 02504000 DC AL2(13) 02505000 DC AL2(14) 02506000 DC AL2(15) 02507000 DC AL2(16) 02508000 SMDWSAC DC AL2(17) 02509000 DC AL2(18) 02510000 DC AL2(19) 02511000 DC AL2(20) 02512000 DC AL2(21) 02513000 DC AL2(22) 02514000 DC AL2(23) 02515000 DC AL2(24) 02516000 DC AL2(25) 02517000 DC AL2(26) 02518000 DC AL2(27) 02519000 DC AL2(28) 02520000 DC AL2(29) 02521000 DC AL2(30) 02522000 DC AL2(54) 02523000 DC AL2(55) 02524000 SMDWSAL DC AL2(31) 02525000 DC AL2(32) 02526000 DC AL2(33) 02527000 DC AL2(34) 02528000 DC AL2(35) 02529000 DC AL2(36) 02530000 DC AL2(37) 02531000 DC AL2(38) 02532000 DC AL2(39) 02533000 DC AL2(40) 02534000 DC AL2(41) 02535000 DC AL2(42) 02536000 DC AL2(43) 02537000 DC AL2(44) 02538000 DC AL2(45) 02539000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02540000 @01 EQU 01 02541000 @02 EQU 02 02542000 @03 EQU 03 02543000 @04 EQU 04 02544000 @05 EQU 05 02545000 @06 EQU 06 02546000 @07 EQU 07 02547000 @08 EQU 08 02548000 @09 EQU 09 02549000 @10 EQU 10 02550000 @11 EQU 11 02551000 @12 EQU 12 02552000 @13 EQU 13 02553000 @14 EQU 14 02554000 @15 EQU 15 02555000 BASEREG EQU @09 02556000 ERR6WPTR EQU @03 02557000 R3 EQU @03 02558000 R14 EQU @14 02559000 R15 EQU @15 02560000 R14SAVE EQU @02 02561000 TOADDR EQU @04 02562000 TOLEN EQU @05 02563000 SMWKPTR EQU @06 02564000 SDWKPTR EQU @07 02565000 R15SAVE EQU @08 02566000 WORKREGA EQU @10 02567000 WORKREGB EQU @11 02568000 SAREG EQU @13 02569000 RETNREG EQU @14 02570000 R10 EQU @10 02571000 R11 EQU @11 02572000 R13 EQU @13 02573000 R2 EQU @02 02574000 R4 EQU @04 02575000 R5 EQU @05 02576000 R6 EQU @06 02577000 R7 EQU @07 02578000 R8 EQU @08 02579000 R9 EQU @09 02580000 PSA EQU 0 02581000 FLCRNPSW EQU PSA 02582000 FLCROPSW EQU PSA+8 02583000 FLCICCW2 EQU PSA+16 02584000 FLCCVT EQU FLCICCW2 02585000 FLCTRACE EQU PSA+84 02586000 PSAEEPSW EQU PSA+132 02587000 PSAESPSW EQU PSA+136 02588000 FLCSVILC EQU PSAESPSW+1 02589000 PSAEPPSW EQU PSA+140 02590000 FLCPIILC EQU PSAEPPSW+1 02591000 FLCPICOD EQU PSAEPPSW+2 02592000 PSAPICOD EQU FLCPICOD+1 02593000 FLCTEA EQU PSAEPPSW+4 02594000 FLCPER EQU PSA+152 02595000 FLCMCLA EQU PSA+168 02596000 FLCIOEL EQU FLCMCLA+4 02597000 FLCIOA EQU FLCMCLA+16 02598000 FLCFSA EQU FLCMCLA+80 02599000 PSAAOLD EQU PSA+548 02600000 PSASUPER EQU PSA+552 02601000 PSASUP1 EQU PSASUPER 02602000 PSASUP2 EQU PSASUPER+1 02603000 PSASUP3 EQU PSASUPER+2 02604000 PSASUP4 EQU PSASUPER+3 02605000 PSACLHT EQU PSA+640 02606000 PSALKSA EQU PSA+696 02607000 PSAHLHI EQU PSA+760 02608000 PSALITA EQU PSA+764 02609000 PSADSSFL EQU PSA+836 02610000 PSADSSF1 EQU PSADSSFL 02611000 PSADSSF3 EQU PSADSSFL+2 02612000 PSADSSF4 EQU PSADSSFL+3 02613000 PSARSVT EQU PSA+896 02614000 PSALSFCC EQU PSA+1012 02615000 ASCB EQU 0 02616000 ASCBSUPC EQU ASCB+16 02617000 ASCBASID EQU ASCB+36 02618000 ASCBRSM EQU ASCB+52 02619000 ASCBRSMF EQU ASCBRSM 02620000 ASCBFW1 EQU ASCB+100 02621000 ASCBRCTF EQU ASCBFW1+2 02622000 ASCBFLG1 EQU ASCBFW1+3 02623000 ASCBASXB EQU ASCB+108 02624000 ASCBDSP1 EQU ASCB+114 02625000 ASCBFLG2 EQU ASCB+115 02626000 ASCBLKGP EQU ASCB+128 02627000 ASCBSRQ EQU ASCB+180 02628000 ASCBSRQ1 EQU ASCBSRQ 02629000 ASCBSRQ2 EQU ASCBSRQ+1 02630000 ASCBSRQ3 EQU ASCBSRQ+2 02631000 ASCBSRQ4 EQU ASCBSRQ+3 02632000 ASXB EQU 0 02633000 ASXBFTCB EQU ASXB+4 02634000 ASXBLTCB EQU ASXB+8 02635000 ASXBAEQ EQU ASXB+168 02636000 ASXBSECR EQU ASXB+199 02637000 ASCBSFLG EQU ASXBSECR 02638000 ASXBCASW EQU ASXB+216 02639000 ASXBCRB1 EQU ASXBCASW 02640000 CVTMAP EQU 0 02641000 CVTDAR EQU CVTMAP+72 02642000 CVTFLGS1 EQU CVTDAR 02643000 CVTDCB EQU CVTMAP+116 02644000 CVTIOQET EQU CVTMAP+120 02645000 CVTIERLC EQU CVTMAP+144 02646000 CVTHEAD EQU CVTMAP+160 02647000 CVTSV76C EQU CVTHEAD 02648000 CVTOPTA EQU CVTMAP+182 02649000 CVTOPTB EQU CVTMAP+183 02650000 CVTGTF EQU CVTMAP+236 02651000 CVTGTFST EQU CVTGTF 02652000 CVTGTFS EQU CVTGTFST 02653000 CVTGTFAV EQU CVTGTFS 02654000 CVTSTATE EQU CVTGTFST 02655000 CVTTMODE EQU CVTGTFST 02656000 CVTFORM EQU CVTGTFST 02657000 CVTAQAVT EQU CVTMAP+240 02658000 CVTTCMFG EQU CVTAQAVT 02659000 CVTVOLM2 EQU CVTMAP+244 02660000 CVTTATA EQU CVTVOLM2 02661000 CVTTSKS EQU CVTTATA 02662000 CVTVOLF2 EQU CVTTSKS 02663000 CVTTAT EQU CVTTATA+1 02664000 CVTATER EQU CVTMAP+248 02665000 CVTEXT1 EQU CVTMAP+252 02666000 CVTPURG EQU CVTMAP+260 02667000 CVTQMSG EQU CVTMAP+268 02668000 CVTDMSR EQU CVTMAP+272 02669000 CVTRSV37 EQU CVTDMSR 02670000 CVTDMSRF EQU CVTRSV37 02671000 CVTERPV EQU CVTMAP+316 02672000 CVTINTLA EQU CVTMAP+320 02673000 CVTAPF EQU CVTMAP+324 02674000 CVTEXT2 EQU CVTMAP+328 02675000 CVTHJES EQU CVTMAP+332 02676000 CVTPGSIA EQU CVTMAP+348 02677000 CVTA1F1 EQU CVTMAP+356 02678000 CVTSYSK EQU CVTMAP+357 02679000 CVTVOLM1 EQU CVTMAP+380 02680000 CVTVOLF1 EQU CVTVOLM1 02681000 CVTXTNT1 EQU 0 02682000 CVTXTNT2 EQU 0 02683000 CVTDSSV EQU CVTXTNT2 02684000 CVTFLGBT EQU CVTXTNT2+5 02685000 CVTQID EQU CVTXTNT2+24 02686000 CVTRV400 EQU CVTXTNT2+52 02687000 CVTRV409 EQU CVTXTNT2+53 02688000 CVTATCVT EQU CVTXTNT2+64 02689000 CVTRV429 EQU CVTXTNT2+84 02690000 CVTRV438 EQU CVTXTNT2+85 02691000 CVTRV457 EQU CVTXTNT2+112 02692000 CVTRV466 EQU CVTXTNT2+113 02693000 CVTFIX EQU 0 02694000 CVTRELNO EQU CVTFIX+252 02695000 ERRWORK EQU 0 02696000 ERRFLGS1 EQU ERRWORK 02697000 ERRFRR EQU ERRFLGS1 02698000 ERRLLOCK EQU ERRFLGS1 02699000 ERRFLGS2 EQU ERRWORK+1 02700000 ERRENDMP EQU ERRFLGS2 02701000 ERRNORCD EQU ERRFLGS2 02702000 ERRADDR EQU ERRWORK+4 02703000 ERRRETRY EQU ERRADDR 02704000 ERRBASE1 EQU ERRWORK+12 02705000 ERRFLAG3 EQU ERRWORK+16 02706000 ERRBASE2 EQU ERRWORK+20 02707000 GDA EQU 0 02708000 GVSMFLAG EQU GDA 02709000 GDAFLAGS EQU GVSMFLAG 02710000 PASTRT EQU GDA+16 02711000 PASIZE EQU GDA+20 02712000 VRPOSTQ EQU GDA+32 02713000 VRWAITQ EQU GDA+40 02714000 PRDINPUT EQU 0 02715000 PRDHDRID EQU PRDINPUT 02716000 PRDASID EQU PRDINPUT+2 02717000 PRDREGS EQU PRDINPUT+120 02718000 PRDFPR EQU PRDREGS 02719000 FRRS EQU 0 02720000 FRRSHEAD EQU FRRS 02721000 FRRSEMP EQU FRRSHEAD 02722000 FRRSLAST EQU FRRSHEAD+4 02723000 FRRSELEN EQU FRRSHEAD+8 02724000 FRRSCURR EQU FRRSHEAD+12 02725000 FRRSPTR EQU 0 02726000 FRRSENTR EQU 0 02727000 FRRSFRRA EQU FRRSENTR 02728000 FRRSFLGS EQU FRRSENTR+4 02729000 FRRSFLG1 EQU FRRSFLGS 02730000 FRRSPARM EQU FRRSENTR+8 02731000 FRREPTR EQU 0 02732000 RTCT EQU 0 02733000 RTCTPLIB EQU RTCT+4 02734000 RTCTSAP EQU RTCTPLIB 02735000 RTCTSAP1 EQU RTCTSAP 02736000 RTCTSAP2 EQU RTCTSAP+1 02737000 RTCTSAP3 EQU RTCTSAP+2 02738000 RTCTSUP EQU RTCTPLIB+4 02739000 RTCTSUP1 EQU RTCTSUP 02740000 RTCTSUP2 EQU RTCTSUP+1 02741000 RTCTSUP3 EQU RTCTSUP+2 02742000 RTCTSYD EQU RTCTPLIB+8 02743000 RTCTSY01 EQU RTCTSYD 02744000 RTCTSDDS EQU RTCT+36 02745000 RTCTFLG EQU RTCTSDDS+3 02746000 RTCTSDPL EQU RTCT+156 02747000 RTCTRFLG EQU RTCT+176 02748000 RTCTSDSW EQU RTCT+180 02749000 RTCTERID EQU RTCT+224 02750000 RTCTOPT EQU RTCT+236 02751000 RTCTASO EQU RTCT+252 02752000 RTCTASO1 EQU RTCTASO 02753000 RTCTASO2 EQU RTCTASO+1 02754000 RTCTSDI EQU RTCT+254 02755000 RTCTSDNA EQU RTCTSDI 02756000 RTCTSDF EQU RTCT+264 02757000 RTCTSDF1 EQU RTCTSDF 02758000 RTCTSDF2 EQU RTCTSDF+1 02759000 RTCTR2D2 EQU RTCTSDF+2 02760000 RTCTC3PO EQU RTCTSDF+3 02761000 RTCTSDF3 EQU RTCT+268 02762000 RTCTSDF4 EQU RTCTSDF3+2 02763000 RTCTSDDO EQU RTCTSDF4 02764000 RTCTMOPT EQU 0 02765000 RTCTMSAO EQU RTCTMOPT 02766000 RTCTSASD EQU RTCTMSAO 02767000 RTCTSAO1 EQU RTCTSASD 02768000 RTCTSAO2 EQU RTCTSASD+1 02769000 RTCTSAPD EQU RTCTMSAO+2 02770000 RTCTSAO3 EQU RTCTSAPD 02771000 RTCTSAO4 EQU RTCTSAPD+1 02772000 RTCTSAMG EQU RTCTSAO4 02773000 RTCTMSUO EQU RTCTMOPT+4 02774000 RTCTSUSD EQU RTCTMSUO 02775000 RTCTSUO1 EQU RTCTSUSD 02776000 RTCTSUO2 EQU RTCTSUSD+1 02777000 RTCTSUPD EQU RTCTMSUO+2 02778000 RTCTSUO3 EQU RTCTSUPD 02779000 RTCTSUO4 EQU RTCTSUPD+1 02780000 RTCTSUMG EQU RTCTSUO4 02781000 RTCTMSYO EQU RTCTMOPT+8 02782000 RTCTSD01 EQU RTCTMSYO 02783000 RTCTSD04 EQU RTCTMSYO+3 02784000 RTCTSMMG EQU RTCTSD04 02785000 RTCTMSDO EQU RTCTMOPT+12 02786000 RTCTSDOD EQU RTCTMSDO 02787000 RTCTSDO1 EQU RTCTSDOD 02788000 RTCTSDO2 EQU RTCTSDOD+1 02789000 RTCTSDO3 EQU RTCTMSDO+2 02790000 RTCTSDO4 EQU RTCTMSDO+3 02791000 RTCTSDMG EQU RTCTSDO4 02792000 SNPPARMS EQU 0 02793000 SNPFLAG EQU SNPPARMS+1 02794000 SNPSDATA EQU SNPPARMS+4 02795000 SNPSDAT0 EQU SNPSDATA 02796000 SNPSDAT1 EQU SNPSDATA+1 02797000 SNPPDATA EQU SNPPARMS+6 02798000 RMPL EQU 0 02799000 RMPLFLG1 EQU RMPL 02800000 RTM2WA EQU 0 02801000 RTM2DESC EQU RTM2WA 02802000 RTM2RT2D EQU RTM2DESC+8 02803000 RTM2CODE EQU RTM2WA+28 02804000 RTM2CCF EQU RTM2CODE 02805000 RTM2PGCY EQU RTM2WA+60 02806000 RTM2TRRY EQU RTM2PGCY 02807000 RTM2EEDR EQU RTM2TRRY 02808000 RTM2EREG EQU RTM2EEDR 02809000 RTM2APSW EQU RTM2EEDR+64 02810000 RTM2EPSW EQU RTM2APSW 02811000 RTM2EMK1 EQU RTM2EPSW 02812000 RTM2MWP1 EQU RTM2EPSW+1 02813000 RTM2INT1 EQU RTM2EPSW+2 02814000 RTM2NXT1 EQU RTM2EPSW+4 02815000 RTM2AEC1 EQU RTM2APSW+8 02816000 RTM2ILC1 EQU RTM2AEC1+1 02817000 RTM2INC1 EQU RTM2AEC1+2 02818000 RTM2ICD1 EQU RTM2INC1+1 02819000 RTM2EEDH EQU RTM2TRRY+92 02820000 RTM2STCK EQU RTM2EEDH 02821000 RTM2MCHI EQU RTM2EEDH+8 02822000 RTM2MCHS EQU RTM2MCHI 02823000 RTM2MCHD EQU RTM2MCHI+1 02824000 RTM2RSR1 EQU RTM2EEDH+12 02825000 RTM2RSR2 EQU RTM2EEDH+13 02826000 RTM2FLGS EQU RTM2TRRY+120 02827000 RTM2ERRA EQU RTM2FLGS 02828000 RTM2ERRB EQU RTM2FLGS+1 02829000 RTM2ERRC EQU RTM2FLGS+2 02830000 RTM2ERRD EQU RTM2FLGS+3 02831000 RTM2CVER EQU RTM2WA+186 02832000 RTM2TRRC EQU RTM2CVER 02833000 RTM2IOFS EQU RTM2TRRC 02834000 RTM2IOBP EQU RTM2TRRC+2 02835000 RTM2SCBS EQU RTM2TRRC+14 02836000 RTM2RTCD EQU RTM2TRRC+26 02837000 RTM2SPLL EQU RTM2RTCD+4 02838000 RTM2PARQ EQU RTM2TRRC+46 02839000 RTM2CTL1 EQU RTM2CVER+50 02840000 RTM2CMKA EQU RTM2CTL1 02841000 RTM2MWPA EQU RTM2CTL1+1 02842000 RTM2PMKA EQU RTM2CTL1+4 02843000 RTM2CTL2 EQU RTM2CVER+58 02844000 RTM2CMKP EQU RTM2CTL2 02845000 RTM2MWPP EQU RTM2CTL2+1 02846000 RTM2PMKP EQU RTM2CTL2+4 02847000 RTM2SNAP EQU RTM2CVER+66 02848000 RTM2SPRM EQU RTM2SNAP+4 02849000 RTM2DPSL EQU RTM2SNAP+24 02850000 RTM2FRM1 EQU RTM2DPSL 02851000 RTM2TO1 EQU RTM2DPSL+4 02852000 RTM2FRM2 EQU RTM2DPSL+8 02853000 RTM2TO2 EQU RTM2DPSL+12 02854000 RTM2FRM3 EQU RTM2DPSL+16 02855000 RTM2TO3 EQU RTM2DPSL+20 02856000 RTM2FRM4 EQU RTM2DPSL+24 02857000 RTM2TO4 EQU RTM2DPSL+28 02858000 RTM2SECB EQU RTM2CVER+138 02859000 RTM2ECBA EQU RTM2SECB 02860000 RTM2PREV EQU RTM2CVER+178 02861000 RTM2SFRG EQU RTM2CVER+186 02862000 RTM2SCTL EQU RTM2CVER+259 02863000 RTM2CCTL EQU RTM2SCTL 02864000 RTM2ABDR EQU RTM2SCTL+4 02865000 RTM2ABID EQU RTM2ABDR 02866000 RTM2ABND EQU RTM2ABDR+1 02867000 RTM2RCTL EQU RTM2SCTL+6 02868000 RTM2INTF EQU RTM2CVER+266 02869000 RTM2CTLR EQU RTM2INTF 02870000 RTM2TSKT EQU RTM2INTF+2 02871000 RTM2ABDP EQU RTM2INTF+4 02872000 RTM2ASIR EQU RTM2INTF+5 02873000 RTM2FLX EQU RTM2INTF+6 02874000 RTM2FLX1 EQU RTM2FLX 02875000 RTM2FLX2 EQU RTM2FLX+1 02876000 RTM2RECL EQU RTM2CVER+274 02877000 RTM2DCTL EQU RTM2RECL+12 02878000 RTM2ECTL EQU RTM2RECL+13 02879000 RTM2TRYR EQU RTM2RECL+16 02880000 RTM2TRF1 EQU RTM2TRYR 02881000 RTM2TRF2 EQU RTM2TRYR+2 02882000 RTM2RECH EQU RTM2CVER+294 02883000 RTM2RRG EQU RTM2CVER+314 02884000 RTM2CRG EQU RTM2CVER+378 02885000 RTM2RMIN EQU RTM2WA+708 02886000 RTM2RMPL EQU RTM2RMIN+4 02887000 RTM2RMWA EQU RTM2RMIN+28 02888000 RTM2ERID EQU RTM2WA+872 02889000 RTM2ENSN EQU RTM2WA+884 02890000 RTM2SNLN EQU RTM2ENSN 02891000 RTM2TRLN EQU RTM2SNLN 02892000 RTM2TRTB EQU RTM2ENSN+4 02893000 RTM2RYRG EQU RTM2WA+904 02894000 STORAGE EQU 0 02895000 STORFRM EQU STORAGE 02896000 STORTO EQU STORAGE+4 02897000 SMWKRSCB EQU 0 02898000 SMWKFLGA EQU SMWKRSCB 02899000 SMWKRSFM EQU SMWKRSCB+16 02900000 SDUMP EQU 0 02901000 SDUFLAG0 EQU SDUMP 02902000 SDUFLAG1 EQU SDUMP+1 02903000 SDUNEW EQU SDUFLAG1 02904000 SDUSULST EQU SDUFLAG1 02905000 SDUSDAT1 EQU SDUMP+2 02906000 SDUSDAT2 EQU SDUMP+3 02907000 SDUMASID EQU SDUMP+20 02908000 SDUSUMLP EQU SDUMP+28 02909000 SDWORK EQU 0 02910000 SDCNTRL EQU SDWORK 02911000 SVCDOPTS EQU SDCNTRL+100 02912000 SVCDOPT1 EQU SVCDOPTS 02913000 SVCDOPT2 EQU SVCDOPTS+1 02914000 FLAGSONE EQU SDCNTRL+102 02915000 ERRORWK EQU SDCNTRL+104 02916000 SVCDMPNM EQU SDCNTRL+128 02917000 SDWRGSV2 EQU SDCNTRL+288 02918000 CVRT11 EQU SDCNTRL+368 02919000 CVRT1 EQU CVRT11+4 02920000 CVRT2 EQU SDCNTRL+376 02921000 SDCVRT4 EQU CVRT2+2 02922000 SVCNAME EQU SDCNTRL+392 02923000 SVCNM1T5 EQU SVCNAME 02924000 SVCNM6T8 EQU SVCNAME+5 02925000 SVCNM7T8 EQU SVCNM6T8+1 02926000 CCWCHAIN EQU SDCNTRL+400 02927000 CCW1 EQU CCWCHAIN 02928000 FLAGS1 EQU CCW1+4 02929000 CCW2 EQU CCWCHAIN+8 02930000 FLAGS2 EQU CCW2+4 02931000 CCW3 EQU CCWCHAIN+16 02932000 FLAGS3 EQU CCW3+4 02933000 SDSMBUFF EQU SDCNTRL+424 02934000 SDOUTBUF EQU SDWORK+432 02935000 RCDCCHH EQU SDOUTBUF 02936000 SMDLR EQU 0 02937000 SMDLRHDR EQU SMDLR 02938000 SMDLRID EQU SMDLRHDR 02939000 SMDLRLEN EQU SMDLRHDR+4 02940000 SMDLRADR EQU SMDLRHDR+8 02941000 SMDLRPL EQU SMDLRHDR+12 02942000 SMDLRMSG EQU SMDLRHDR+16 02943000 SMWK EQU 0 02944000 SMWKFLGS EQU SMWK+4 02945000 SMWKFLG1 EQU SMWKFLGS 02946000 SMWKSAVE EQU SMWK+8 02947000 SMWKSAV1 EQU SMWK+80 02948000 SMWKPSW EQU SMWK+168 02949000 SMWKHEAD EQU SMWK+656 02950000 SMWKREGS EQU SMWK+676 02951000 SMWKSREG EQU SMWKREGS 02952000 SMWKIDX1 EQU SMWK+804 02953000 SMWKIDX2 EQU SMWK+806 02954000 SMWKREGN EQU SMWK+808 02955000 SMWKSVLN EQU SMWK+820 02956000 SMWKPSSE EQU SMWK+960 02957000 TCBFIX EQU 0 02958000 TCBFRS EQU TCBFIX 02959000 TCB EQU 0 02960000 TCBPIE EQU TCB+4 02961000 TCBPMASK EQU TCBPIE 02962000 TCBTIO EQU TCB+12 02963000 TCBCMP EQU TCB+16 02964000 TCBCMPF EQU TCBCMP 02965000 TCBCPP EQU TCBCMPF 02966000 TCBSTCC EQU TCBCMPF 02967000 TCBCDBL EQU TCBCMPF 02968000 TCBCWTO EQU TCBCMPF 02969000 TCBCIND EQU TCBCMPF 02970000 TCBCMSG EQU TCBCMPF 02971000 TCBTRN EQU TCB+20 02972000 TCBABF EQU TCBTRN 02973000 TCBMSS EQU TCB+24 02974000 TCBPKF EQU TCB+28 02975000 TCBFLGS EQU TCB+29 02976000 TCBFLGS1 EQU TCBFLGS 02977000 TCBFLGS2 EQU TCBFLGS+1 02978000 TCBFLGS3 EQU TCBFLGS+2 02979000 TCBFLGS4 EQU TCBFLGS+3 02980000 TCBFLGS5 EQU TCBFLGS+4 02981000 TCBABWF EQU TCBFLGS5 02982000 TCBJPQ EQU TCB+44 02983000 TCBPURGE EQU TCBJPQ 02984000 TCBGRS EQU TCB+48 02985000 TCBFSA EQU TCB+112 02986000 TCBTCB EQU TCB+116 02987000 TCBTME EQU TCB+120 02988000 TCBJSTCB EQU TCB+124 02989000 TCBTSFLG EQU TCB+148 02990000 TCBTSTSK EQU TCBTSFLG 02991000 TCBSTAB EQU TCB+160 02992000 TCBNSTAE EQU TCBSTAB 02993000 TCBTCT EQU TCB+164 02994000 TCBTCTGF EQU TCBTCT 02995000 TCBSCNDY EQU TCB+172 02996000 TCBNDSP EQU TCBSCNDY 02997000 TCBNDSP1 EQU TCBNDSP+1 02998000 TCBNDSP2 EQU TCBNDSP+2 02999000 TCBNDSP3 EQU TCBNDSP+3 03000000 TCBJSCB EQU TCB+180 03001000 TCBRECDE EQU TCBJSCB 03002000 TCBEXT1 EQU TCB+196 03003000 TCBBITS EQU TCB+200 03004000 TCBNDSP4 EQU TCBBITS 03005000 TCBNDSP5 EQU TCBBITS+1 03006000 TCBFLGS6 EQU TCBBITS+2 03007000 TCBFLGS7 EQU TCBBITS+3 03008000 TCBDAR EQU TCB+204 03009000 TCBDARC EQU TCBDAR 03010000 TCBEXT2 EQU TCB+208 03011000 TCBRTWA EQU TCB+224 03012000 TCBXSCT EQU TCB+240 03013000 TCBXSCT1 EQU TCBXSCT 03014000 TCBFOE EQU TCB+244 03015000 TCBESTAE EQU TCB+264 03016000 TCBESTRM EQU TCBESTAE+1 03017000 TCBFBYT1 EQU TCB+276 03018000 TCBFBYT2 EQU TCB+277 03019000 TCBRV124 EQU TCB+278 03020000 TCBRV133 EQU TCB+279 03021000 TCBXTNT2 EQU 0 03022000 TCBGTF EQU TCBXTNT2 03023000 TCBTFLG EQU TCBGTF 03024000 TCBRV146 EQU TCBXTNT2+28 03025000 TCBRV155 EQU TCBXTNT2+29 03026000 TCBRV164 EQU TCBXTNT2+30 03027000 TCBRV173 EQU TCBXTNT2+31 03028000 TIOT1 EQU 0 03029000 TIOCNJOB EQU TIOT1 03030000 TIOCSTEP EQU TIOT1+8 03031000 BUFFAREA EQU 0 03032000 TRTPTRS EQU 0 03033000 TRTCURR EQU TRTPTRS 03034000 TRTEND EQU TRTPTRS+8 03035000 TRTENTY EQU 0 03036000 REGARRAY EQU 0 03037000 @NM00128 EQU REGARRAY 03038000 REGVALUE EQU @NM00128+1 03039000 STORLIST EQU 0 03040000 BEGADDR EQU STORLIST 03041000 BEGHOBIT EQU BEGADDR 03042000 ENDADDR EQU STORLIST+4 03043000 LASTADDR EQU ENDADDR 03044000 DATAAREA EQU 0 03045000 ASCBPTR EQU PSAAOLD 03046000 ASXBPTR EQU ASCBASXB 03047000 CVTPTR EQU FLCCVT 03048000 CVTS01 EQU CVTPGSIA 03049000 CVTLPDIA EQU CVTS01+12 03050000 CVTDIRST EQU CVTLPDIA 03051000 CVTSLIDA EQU CVTS01+24 03052000 CVTCTLFG EQU CVTS01+50 03053000 CVTSDTRC EQU CVTCTLFG 03054000 CVTGDA EQU CVTS01+212 03055000 CVTRTMCT EQU CVTS01+224 03056000 CVTRV210 EQU CVTS01+424 03057000 CVTRV219 EQU CVTS01+425 03058000 CVTRV228 EQU CVTS01+426 03059000 CVTRV237 EQU CVTS01+427 03060000 CVTMFRTR EQU CVTS01+452 03061000 CVTRV262 EQU CVTS01+468 03062000 CVTRV271 EQU CVTS01+469 03063000 CVTRV280 EQU CVTS01+470 03064000 CVTRV289 EQU CVTS01+471 03065000 CVTGSDA EQU CVTS01+600 03066000 GDAPTR EQU CVTGDA 03067000 PRDINPTR EQU SDSMBUFF 03068000 SDUMPPTR EQU RTCTSDPL 03069000 TIOTPTR EQU TCBTIO 03070000 PRDFLC EQU PRDFPR 03071000 @NM00010 EQU PRDHDRID 03072000 PRDKEY1 EQU @NM00010 03073000 PRDKEY2 EQU @NM00010+1 03074000 PRDADDR EQU @NM00010+4 03075000 PRDDATA EQU @NM00010+8 03076000 @NM00012 EQU PRDHDRID 03077000 PRDFLAGS EQU @NM00012+2 03078000 PSARSVTE EQU PSARSVT 03079000 PSACSTK EQU PSARSVTE 03080000 TIOENTRY EQU TIOT1+24 03081000 TIOESTTA EQU TIOENTRY+1 03082000 TIOERLOC EQU TIOENTRY+2 03083000 TIOELINK EQU TIOERLOC+1 03084000 TIOESYOT EQU TIOELINK 03085000 TIOESTTC EQU TIOENTRY+15 03086000 TIOESTTB EQU TIOENTRY+16 03087000 POOLSTAR EQU TIOENTRY+20 03088000 TIOEDEVE EQU TIOESTTB 03089000 TIOSTTB EQU TIOEDEVE 03090000 PSEUDOAD EQU PRDADDR 03091000 SSEWORK EQU SMWKSAVE 03092000 SAVECRTY EQU SSEWORK 03093000 SAVERTY EQU SSEWORK+4 03094000 TEMPSAVE EQU SSEWORK+8 03095000 SAVEHDRL EQU SSEWORK+12 03096000 SAVEREML EQU SSEWORK+16 03097000 SAVEREGA EQU SSEWORK+20 03098000 SAVEREGB EQU SSEWORK+24 03099000 BUFFPTR EQU SSEWORK+28 03100000 ENDBUFF EQU SSEWORK+32 03101000 ENDRCD EQU SSEWORK+36 03102000 SAVECSA EQU SSEWORK+40 03103000 RTM2PTR EQU SSEWORK+44 03104000 TCBPTR EQU SSEWORK+48 03105000 SAVERADR EQU SSEWORK+52 03106000 SAVELRLN EQU SSEWORK+56 03107000 SSEWORK2 EQU SMWKSAV1 03108000 ASIDS EQU SSEWORK2 03109000 SUMLISTS EQU SSEWORK2+4 03110000 RTM2S EQU SSEWORK2+8 03111000 TRACES EQU SSEWORK2+12 03112000 CLEANUPS EQU SSEWORK2+16 03113000 OUTPUTS EQU SSEWORK2+20 03114000 HEADERS EQU SSEWORK2+24 03115000 WRITES EQU SSEWORK2+28 03116000 SSEASIDD EQU SSEWORK2+32 03117000 SSEASIDA EQU SSEASIDD 03118000 SSEASIDJ EQU SSEASIDD+2 03119000 SSEASIDS EQU SSEASIDD+10 03120000 RTM2INDX EQU SSEWORK2+58 03121000 WORKSWS EQU SSEWORK2+59 03122000 WORKSWS1 EQU WORKSWS 03123000 LASTSW EQU WORKSWS1 03124000 DUPREGSW EQU WORKSWS1 03125000 DURTM2SW EQU WORKSWS1 03126000 TRRTM2SW EQU WORKSWS1 03127000 ENDSW EQU WORKSWS1 03128000 NORCDSW EQU WORKSWS1 03129000 BADADRSW EQU WORKSWS1 03130000 FLC EQU PSA 03131000 AGO .@UNREFD START UNREFERENCED COMPONENTS 03132000 @NM00126 EQU WORKSWS1 03133000 SSEASIDT EQU SSEASIDS+8 03134000 SSEASIDP EQU SSEASIDS 03135000 @NM00125 EQU SSEWORK+60 03136000 TIOUCBP EQU TIOEDEVE+1 03137000 TIOVERF EQU TIOSTTB 03138000 TIOUNLD EQU TIOSTTB 03139000 TIOMNTD EQU TIOSTTB 03140000 TIOSETU EQU TIOSTTB 03141000 TIOVLSR EQU TIOSTTB 03142000 TIOPVIO EQU TIOSTTB 03143000 TIOREQD EQU TIOSTTB 03144000 TIOUSED EQU TIOSTTB 03145000 TIOTFEND EQU POOLSTAR+16 03146000 TIOPSLOT EQU POOLSTAR+13 03147000 TIOPSTTB EQU POOLSTAR+12 03148000 TIOPPOOL EQU POOLSTAR+4 03149000 TIOPNSRT EQU POOLSTAR+3 03150000 @NM00124 EQU POOLSTAR+2 03151000 TIOPNSLT EQU POOLSTAR+1 03152000 @NM00123 EQU POOLSTAR 03153000 TIOEFSRT EQU TIOENTRY+17 03154000 TIOSVERF EQU TIOESTTB 03155000 TIOSUNLD EQU TIOESTTB 03156000 TIOSMNTD EQU TIOESTTB 03157000 TIOSSETU EQU TIOESTTB 03158000 TIOSVLSR EQU TIOESTTB 03159000 TIOSPVIO EQU TIOESTTB 03160000 TIOSREQD EQU TIOESTTB 03161000 TIOSUSED EQU TIOESTTB 03162000 TIOSBALS EQU TIOESTTC 03163000 TIOSBALP EQU TIOESTTC 03164000 TIOSVOLS EQU TIOESTTC 03165000 TIOSVOLP EQU TIOESTTC 03166000 TIOSAFFS EQU TIOESTTC 03167000 TIOSAFFP EQU TIOESTTC 03168000 TIOSDEFR EQU TIOESTTC 03169000 TIOSDKCR EQU TIOESTTC 03170000 TIOEJFCB EQU TIOENTRY+12 03171000 TIOEDDNM EQU TIOENTRY+4 03172000 TIOTREM EQU TIOELINK 03173000 TIOESSDS EQU TIOESYOT 03174000 TIOESYIN EQU TIOELINK 03175000 TIOEQNAM EQU TIOELINK 03176000 TIOEDYNM EQU TIOELINK 03177000 TIOTTERM EQU TIOELINK 03178000 TIOTRV01 EQU TIOELINK 03179000 TIOSYOUT EQU TIOELINK 03180000 TIOEWTCT EQU TIOERLOC 03181000 TIOSDSP2 EQU TIOESTTA 03182000 TIOSDSP1 EQU TIOESTTA 03183000 TIOSLABL EQU TIOESTTA 03184000 TIOSDADS EQU TIOESTTA 03185000 TIOSJBLB EQU TIOESTTA 03186000 TIOSPLTS EQU TIOESTTA 03187000 TIOSPLTP EQU TIOESTTA 03188000 TIOSLTYP EQU TIOESTTA 03189000 TIOELNGH EQU TIOENTRY 03190000 PSARSAV EQU PSARSVTE+60 03191000 PSARSTK EQU PSARSVTE+56 03192000 PSAESAV3 EQU PSARSVTE+52 03193000 PSAESTK3 EQU PSARSVTE+48 03194000 PSAESAV2 EQU PSARSVTE+44 03195000 PSAESTK2 EQU PSARSVTE+40 03196000 PSAESAV1 EQU PSARSVTE+36 03197000 PSAESTK1 EQU PSARSVTE+32 03198000 PSAPSAV EQU PSARSVTE+28 03199000 PSAPSTK EQU PSARSVTE+24 03200000 PSAMSAV EQU PSARSVTE+20 03201000 PSAMSTK EQU PSARSVTE+16 03202000 PSASSAV EQU PSARSVTE+12 03203000 PSASSTK EQU PSARSVTE+8 03204000 PSANSTK EQU PSARSVTE+4 03205000 @NM00018 EQU @NM00012+8 03206000 PRDCPUAD EQU @NM00012+6 03207000 @NM00017 EQU @NM00012+4 03208000 @NM00016 EQU @NM00012+3 03209000 @NM00015 EQU PRDFLAGS 03210000 PRDGPRVL EQU PRDFLAGS 03211000 PRDSSINV EQU PRDFLAGS 03212000 PRDUNIPR EQU PRDFLAGS 03213000 @NM00014 EQU @NM00012+1 03214000 @NM00013 EQU @NM00012 03215000 @NM00011 EQU @NM00010+2 03216000 @NM00009 EQU PRDFLC+12 03217000 PRDCAW EQU PRDFLC+8 03218000 PRDCSW EQU PRDFLC 03219000 CVTRV628 EQU CVTS01+728 03220000 CVTRV627 EQU CVTS01+724 03221000 CVTRV626 EQU CVTS01+720 03222000 CVTRV625 EQU CVTS01+716 03223000 CVTRV624 EQU CVTS01+712 03224000 CVTRV623 EQU CVTS01+708 03225000 CVTRV622 EQU CVTS01+704 03226000 CVTRV621 EQU CVTS01+700 03227000 CVTIHASU EQU CVTS01+696 03228000 CVTSUSP EQU CVTS01+692 03229000 CVTT6SVC EQU CVTS01+688 03230000 CVTCDAL EQU CVTS01+684 03231000 CVTTCTL EQU CVTS01+680 03232000 CVTRSUME EQU CVTS01+676 03233000 CVTJTERM EQU CVTS01+672 03234000 CVTASMRM EQU CVTS01+668 03235000 CVTTCASP EQU CVTS01+664 03236000 CVT0PT03 EQU CVTS01+660 03237000 CVT0PT0E EQU CVTS01+656 03238000 CVTRV609 EQU CVTS01+652 03239000 CVTCGK EQU CVTS01+648 03240000 CVTRAC EQU CVTS01+644 03241000 CVTHSM EQU CVTS01+640 03242000 CVTRV605 EQU CVTS01+636 03243000 CVTRV604 EQU CVTS01+632 03244000 CVTEFF02 EQU CVTS01+628 03245000 CVTCBBR EQU CVTS01+624 03246000 CVTSSCR EQU CVTS01+620 03247000 CVTEVENT EQU CVTS01+616 03248000 CVTCRCA EQU CVTS01+612 03249000 CVTTPIO EQU CVTS01+608 03250000 CVTADV EQU CVTS01+604 03251000 CVTGSDAB EQU CVTGSDA 03252000 CVTQV3 EQU CVTS01+596 03253000 CVTQV2 EQU CVTS01+592 03254000 CVTQV1 EQU CVTS01+588 03255000 CVTRPT EQU CVTS01+584 03256000 CVTSSRB EQU CVTS01+580 03257000 CVTCSDRL EQU CVTS01+576 03258000 CVTEXP1 EQU CVTS01+572 03259000 CVTRMPMT EQU CVTS01+568 03260000 CVTRMPTT EQU CVTS01+564 03261000 CVTVPSA EQU CVTS01+560 03262000 CVTVSTOP EQU CVTS01+556 03263000 CVTGTFR8 EQU CVTS01+552 03264000 CVTQUIT EQU CVTS01+548 03265000 CVTVACR EQU CVTS01+544 03266000 CVTWTCB EQU CVTS01+540 03267000 CVTSTPRS EQU CVTS01+536 03268000 CVT0PT02 EQU CVTS01+532 03269000 CVTDARCM EQU CVTS01+528 03270000 CVTIRECM EQU CVTS01+524 03271000 CVTJRECM EQU CVTS01+520 03272000 CVTVEMS0 EQU CVTS01+516 03273000 CVTSPFRR EQU CVTS01+512 03274000 CVTRLSTG EQU CVTS01+508 03275000 CVT0TC0A EQU CVTS01+504 03276000 CVTGMBR EQU CVTS01+500 03277000 CVTLFRM EQU CVTS01+496 03278000 CVTRMBR EQU CVTS01+492 03279000 CVTVIOP EQU CVTS01+488 03280000 CVTRV307 EQU CVTS01+486 03281000 CVTRV306 EQU CVTS01+484 03282000 CVTRV305 EQU CVTS01+482 03283000 CVTRV304 EQU CVTS01+480 03284000 CVTRV303 EQU CVTS01+478 03285000 CVTRV302 EQU CVTS01+476 03286000 CVTTRCA EQU CVTS01+472 03287000 CVTRV297 EQU CVTRV289 03288000 CVTRV296 EQU CVTRV289 03289000 CVTRV295 EQU CVTRV289 03290000 CVTRV294 EQU CVTRV289 03291000 CVTRV293 EQU CVTRV289 03292000 CVTRV292 EQU CVTRV289 03293000 CVTRV291 EQU CVTRV289 03294000 CVTRV290 EQU CVTRV289 03295000 CVTRV288 EQU CVTRV280 03296000 CVTRV287 EQU CVTRV280 03297000 CVTRV286 EQU CVTRV280 03298000 CVTRV285 EQU CVTRV280 03299000 CVTRV284 EQU CVTRV280 03300000 CVTRV283 EQU CVTRV280 03301000 CVTRV282 EQU CVTRV280 03302000 CVTRV281 EQU CVTRV280 03303000 CVTRV279 EQU CVTRV271 03304000 CVTRV278 EQU CVTRV271 03305000 CVTRV277 EQU CVTRV271 03306000 CVTRV276 EQU CVTRV271 03307000 CVTRV275 EQU CVTRV271 03308000 CVTRV274 EQU CVTRV271 03309000 CVTRV273 EQU CVTRV271 03310000 CVTRV272 EQU CVTRV271 03311000 CVTRV270 EQU CVTRV262 03312000 CVTRV269 EQU CVTRV262 03313000 CVTRV268 EQU CVTRV262 03314000 CVTRV267 EQU CVTRV262 03315000 CVTRV266 EQU CVTRV262 03316000 CVTRV265 EQU CVTRV262 03317000 CVTRV264 EQU CVTRV262 03318000 CVTRV263 EQU CVTRV262 03319000 CVTVFP EQU CVTS01+464 03320000 CVTVSI EQU CVTS01+460 03321000 CVTVPSIB EQU CVTS01+456 03322000 CVTMFACT EQU CVTMFRTR 03323000 CVTMFCTL EQU CVTS01+448 03324000 CVTPVBP EQU CVTS01+444 03325000 CVTPWI EQU CVTS01+440 03326000 CVTRV254 EQU CVTS01+438 03327000 CVTRV253 EQU CVTS01+436 03328000 CVTRV252 EQU CVTS01+434 03329000 CVTRV251 EQU CVTS01+433 03330000 CVTRV250 EQU CVTS01+432 03331000 CVTRV249 EQU CVTS01+431 03332000 CVTRV248 EQU CVTS01+430 03333000 CVTRV247 EQU CVTS01+429 03334000 CVTRV246 EQU CVTS01+428 03335000 CVTRV245 EQU CVTRV237 03336000 CVTRV244 EQU CVTRV237 03337000 CVTRV243 EQU CVTRV237 03338000 CVTRV242 EQU CVTRV237 03339000 CVTRV241 EQU CVTRV237 03340000 CVTRV240 EQU CVTRV237 03341000 CVTRV239 EQU CVTRV237 03342000 CVTRV238 EQU CVTRV237 03343000 CVTRV236 EQU CVTRV228 03344000 CVTRV235 EQU CVTRV228 03345000 CVTRV234 EQU CVTRV228 03346000 CVTRV233 EQU CVTRV228 03347000 CVTRV232 EQU CVTRV228 03348000 CVTRV231 EQU CVTRV228 03349000 CVTRV230 EQU CVTRV228 03350000 CVTRV229 EQU CVTRV228 03351000 CVTRV227 EQU CVTRV219 03352000 CVTRV226 EQU CVTRV219 03353000 CVTRV225 EQU CVTRV219 03354000 CVTRV224 EQU CVTRV219 03355000 CVTRV223 EQU CVTRV219 03356000 CVTRV222 EQU CVTRV219 03357000 CVTRV221 EQU CVTRV219 03358000 CVTRV220 EQU CVTRV219 03359000 CVTRV218 EQU CVTRV210 03360000 CVTRV217 EQU CVTRV210 03361000 CVTRV216 EQU CVTRV210 03362000 CVTRV215 EQU CVTRV210 03363000 CVTRV214 EQU CVTRV210 03364000 CVTRV213 EQU CVTRV210 03365000 CVTRV212 EQU CVTRV210 03366000 CVTRV211 EQU CVTRV210 03367000 CVTLCCAT EQU CVTS01+420 03368000 CVTPCCAT EQU CVTS01+416 03369000 CVTIPCRP EQU CVTS01+412 03370000 CVTIPCRI EQU CVTS01+408 03371000 CVTIPCDS EQU CVTS01+404 03372000 CVTAIDVT EQU CVTS01+400 03373000 CVTSSAP EQU CVTS01+396 03374000 CVTEHCIR EQU CVTS01+392 03375000 CVTEHDEF EQU CVTS01+388 03376000 CVTDAIR EQU CVTS01+384 03377000 CVTPERFM EQU CVTS01+380 03378000 CVT044R2 EQU CVTS01+376 03379000 CVTFETCH EQU CVTS01+372 03380000 CVTRSTWD EQU CVTS01+368 03381000 CVTSPOST EQU CVTS01+364 03382000 CVTIOBP EQU CVTS01+360 03383000 CVTASMVT EQU CVTS01+356 03384000 CVTRECRQ EQU CVTS01+352 03385000 CVTWSAC EQU CVTS01+348 03386000 CVTRV149 EQU CVTS01+344 03387000 CVTWSAL EQU CVTS01+340 03388000 CVTSPSA EQU CVTS01+336 03389000 CVTGLMN EQU CVTS01+332 03390000 CVTVEAC0 EQU CVTS01+328 03391000 CVT062R1 EQU CVTS01+324 03392000 CVTRPOST EQU CVTS01+320 03393000 CVTDQIQE EQU CVTS01+316 03394000 CVTCSD EQU CVTS01+312 03395000 CVTLKRMA EQU CVTS01+308 03396000 CVTRSPIE EQU CVTS01+304 03397000 CVTRENQ EQU CVTS01+300 03398000 CVTLQCB EQU CVTS01+296 03399000 CVTFQCB EQU CVTS01+292 03400000 CVTQCS01 EQU CVTS01+288 03401000 CVTAPFT EQU CVTS01+284 03402000 CVTPARRL EQU CVTS01+280 03403000 CVTVWAIT EQU CVTS01+276 03404000 CVTGSPL EQU CVTS01+272 03405000 CVTLSMQ EQU CVTS01+268 03406000 CVTGSMQ EQU CVTS01+264 03407000 CVTEXPRO EQU CVTS01+260 03408000 CVTOPCTP EQU CVTS01+256 03409000 CVTSIC EQU CVTS01+252 03410000 CVTTPIOS EQU CVTS01+248 03411000 CVTRTMS EQU CVTS01+244 03412000 CVTSDBF EQU CVTS01+240 03413000 CVTSCBP EQU CVTS01+236 03414000 CVTSDMP EQU CVTS01+232 03415000 CVTSV60 EQU CVTS01+228 03416000 CVTASCBL EQU CVTS01+220 03417000 CVTASCBH EQU CVTS01+216 03418000 CVTASVT EQU CVTS01+208 03419000 CVTVVMDI EQU CVTS01+204 03420000 CVTAQTOP EQU CVTS01+200 03421000 CVTIOSCS EQU CVTS01+196 03422000 CVTSDRM EQU CVTS01+192 03423000 CVTOPTE EQU CVTS01+188 03424000 CVTSTXU EQU CVTS01+184 03425000 CVTQUIS EQU CVTS01+180 03426000 CVTPARS EQU CVTS01+176 03427000 CVTS1EE EQU CVTS01+172 03428000 CVTFRAS EQU CVTS01+168 03429000 CVTQSAS EQU CVTS01+164 03430000 CVTCRAS EQU CVTS01+160 03431000 CVTCRMN EQU CVTS01+156 03432000 CVTDELCP EQU CVTS01+152 03433000 CVTFRECL EQU CVTS01+148 03434000 CVTGETCL EQU CVTS01+144 03435000 CVTBLDCP EQU CVTS01+140 03436000 CVTAUTHL EQU CVTS01+136 03437000 CVTSCAN EQU CVTS01+132 03438000 CVTRV144 EQU CVTS01+130 03439000 CVTMAXMP EQU CVTS01+128 03440000 CVTSTCK EQU CVTS01+124 03441000 CVTRV139 EQU CVTS01+123 03442000 CVTDSSAC EQU CVTS01+122 03443000 CVTRV513 EQU CVTS01+121 03444000 CVTIOSPL EQU CVTS01+120 03445000 CVTPTGT EQU CVTS01+116 03446000 CVTCSPIE EQU CVTS01+112 03447000 CVTSMFEX EQU CVTS01+108 03448000 CVTOLT0A EQU CVTS01+104 03449000 CVTSRBRT EQU CVTS01+100 03450000 CVTPUTL EQU CVTS01+96 03451000 CVTASCRL EQU CVTS01+92 03452000 CVTASCRF EQU CVTS01+88 03453000 CVTRV326 EQU CVTS01+84 03454000 CVTRV325 EQU CVTS01+80 03455000 CVTRV324 EQU CVTS01+76 03456000 CVT0VL01 EQU CVTS01+72 03457000 CVTSHRVM EQU CVTS01+68 03458000 CVTRV332 EQU CVTS01+64 03459000 CVTTAS EQU CVTS01+60 03460000 CVTRSCN EQU CVTS01+56 03461000 CVTTRAC2 EQU CVTS01+54 03462000 CVTTRACE EQU CVTS01+52 03463000 CVTAPG EQU CVTS01+51 03464000 CVTGTRCE EQU CVTCTLFG 03465000 CVTNOMP EQU CVTCTLFG 03466000 CVTRSV79 EQU CVTCTLFG 03467000 CVTDSTAT EQU CVTCTLFG 03468000 CVTRSV78 EQU CVTCTLFG 03469000 CVTRV333 EQU CVTCTLFG 03470000 CVTRV323 EQU CVTCTLFG 03471000 CVTSPVLK EQU CVTS01+49 03472000 CVTRSV77 EQU CVTS01+48 03473000 CVTRV331 EQU CVTS01+44 03474000 CVTRV330 EQU CVTS01+40 03475000 CVTRV329 EQU CVTS01+36 03476000 CVTRV328 EQU CVTS01+32 03477000 CVTRV322 EQU CVTS01+28 03478000 CVTSLID EQU CVTSLIDA+1 03479000 CVTSYLK EQU CVTSLIDA 03480000 CVTRV321 EQU CVTS01+20 03481000 CVTRV320 EQU CVTS01+16 03482000 CVTLPDIR EQU CVTLPDIA+1 03483000 CVTRSV69 EQU CVTDIRST 03484000 CVTRSV68 EQU CVTDIRST 03485000 CVTRSV67 EQU CVTDIRST 03486000 CVTRSV66 EQU CVTDIRST 03487000 CVTRSV65 EQU CVTDIRST 03488000 CVTRSV64 EQU CVTDIRST 03489000 CVTRSV63 EQU CVTDIRST 03490000 CVTDICOM EQU CVTDIRST 03491000 CVTPVTP EQU CVTS01+8 03492000 CVTLPDSR EQU CVTS01+4 03493000 CVTGETL EQU CVTS01 03494000 @NM00129 EQU @NM00128 03495000 @NM00127 EQU TRTENTY 03496000 TRTBEG EQU TRTPTRS+4 03497000 @NM00122 EQU TCBXTNT2+32 03498000 TCBRV181 EQU TCBRV173 03499000 TCBRV180 EQU TCBRV173 03500000 TCBRV179 EQU TCBRV173 03501000 TCBRV178 EQU TCBRV173 03502000 TCBRV177 EQU TCBRV173 03503000 TCBRV176 EQU TCBRV173 03504000 TCBRV175 EQU TCBRV173 03505000 TCBRV174 EQU TCBRV173 03506000 TCBRV172 EQU TCBRV164 03507000 TCBRV171 EQU TCBRV164 03508000 TCBRV170 EQU TCBRV164 03509000 TCBRV169 EQU TCBRV164 03510000 TCBRV168 EQU TCBRV164 03511000 TCBRV167 EQU TCBRV164 03512000 TCBRV166 EQU TCBRV164 03513000 TCBRV165 EQU TCBRV164 03514000 TCBRV163 EQU TCBRV155 03515000 TCBRV162 EQU TCBRV155 03516000 TCBRV161 EQU TCBRV155 03517000 TCBRV160 EQU TCBRV155 03518000 TCBRV159 EQU TCBRV155 03519000 TCBRV158 EQU TCBRV155 03520000 TCBRV157 EQU TCBRV155 03521000 TCBRV156 EQU TCBRV155 03522000 TCBRV154 EQU TCBRV146 03523000 TCBRV153 EQU TCBRV146 03524000 TCBRV152 EQU TCBRV146 03525000 TCBRV151 EQU TCBRV146 03526000 TCBRV150 EQU TCBRV146 03527000 TCBRV149 EQU TCBRV146 03528000 TCBRV148 EQU TCBRV146 03529000 TCBRV147 EQU TCBRV146 03530000 TCBRV145 EQU TCBXTNT2+26 03531000 TCBRV144 EQU TCBXTNT2+24 03532000 TCBRV143 EQU TCBXTNT2+20 03533000 TCBRV142 EQU TCBXTNT2+16 03534000 TCBRSV49 EQU TCBXTNT2+12 03535000 TCBEVENT EQU TCBXTNT2+8 03536000 TCBRCMP EQU TCBXTNT2+5 03537000 TCBRSVAB EQU TCBXTNT2+4 03538000 TCBGTFA EQU TCBGTF+1 03539000 TCBRSV47 EQU TCBTFLG 03540000 TCBRSV46 EQU TCBTFLG 03541000 TCBRSV45 EQU TCBTFLG 03542000 TCBRSV44 EQU TCBTFLG 03543000 TCBRSV43 EQU TCBTFLG 03544000 TCBDSPIT EQU TCBTFLG 03545000 TCBERRTN EQU TCBTFLG 03546000 TCBASYNC EQU TCBTFLG 03547000 @NM00121 EQU TCB+296 03548000 TCBSVCA2 EQU TCB+292 03549000 TCBSWASA EQU TCB+288 03550000 TCBDBTB EQU TCB+284 03551000 TCBRPT EQU TCB+280 03552000 TCBRV141 EQU TCBRV133 03553000 TCBRV140 EQU TCBRV133 03554000 TCBRV139 EQU TCBRV133 03555000 TCBRV138 EQU TCBRV133 03556000 TCBRV137 EQU TCBRV133 03557000 TCBRV136 EQU TCBRV133 03558000 TCBRV135 EQU TCBRV133 03559000 TCBRV134 EQU TCBRV133 03560000 TCBRV132 EQU TCBRV124 03561000 TCBRV131 EQU TCBRV124 03562000 TCBRV130 EQU TCBRV124 03563000 TCBRV129 EQU TCBRV124 03564000 TCBRV128 EQU TCBRV124 03565000 TCBRV127 EQU TCBRV124 03566000 TCBRV126 EQU TCBRV124 03567000 TCBRV125 EQU TCBRV124 03568000 TCBRV123 EQU TCBFBYT2 03569000 TCBRV122 EQU TCBFBYT2 03570000 TCBECBNV EQU TCBFBYT2 03571000 TCBSSSYN EQU TCBFBYT2 03572000 TCBFPRAP EQU TCBFBYT2 03573000 TCBFDW EQU TCBFBYT2 03574000 TCBFMW EQU TCBFBYT2 03575000 TCBCNCB EQU TCBFBYT2 03576000 TCBLLH EQU TCBFBYT1 03577000 TCBRV113 EQU TCBFBYT1 03578000 TCBEOT EQU TCBFBYT1 03579000 TCBRTM2 EQU TCBFBYT1 03580000 TCBPGNLY EQU TCBFBYT1 03581000 TCBNDIOS EQU TCBFBYT1 03582000 TCBRV327 EQU TCBFBYT1 03583000 TCBEOTFM EQU TCBFBYT1 03584000 TCBAFFN EQU TCB+274 03585000 TCBRV326 EQU TCB+272 03586000 TCBUKYSP EQU TCB+268 03587000 TCBMODE EQU TCBESTAE+3 03588000 TCBERTYP EQU TCBESTAE+2 03589000 TCBRV314 EQU TCBESTRM 03590000 TCBRV313 EQU TCBESTRM 03591000 TCBRV312 EQU TCBESTRM 03592000 TCBRV311 EQU TCBESTRM 03593000 TCBRV310 EQU TCBESTRM 03594000 TCBRV309 EQU TCBESTRM 03595000 TCBRV308 EQU TCBESTRM 03596000 TCBETERM EQU TCBESTRM 03597000 TCBSCBKY EQU TCBESTAE 03598000 TCBRTM12 EQU TCB+260 03599000 TCBTCBID EQU TCB+256 03600000 TCBSTAWA EQU TCB+252 03601000 TCBSWA EQU TCB+248 03602000 TCBFOEA EQU TCBFOE+1 03603000 TCBRSV42 EQU TCBFOE 03604000 TCBCCPVI EQU TCBXSCT+2 03605000 TCBRV325 EQU TCBXSCT+1 03606000 TCBRV324 EQU TCBXSCT1 03607000 TCBRV323 EQU TCBXSCT1 03608000 TCBRV322 EQU TCBXSCT1 03609000 TCBRV321 EQU TCBXSCT1 03610000 TCBRV320 EQU TCBXSCT1 03611000 TCBRV319 EQU TCBXSCT1 03612000 TCBS3A EQU TCBXSCT1 03613000 TCBACTIV EQU TCBXSCT1 03614000 TCBRSV41 EQU TCB+239 03615000 TCBTID EQU TCB+238 03616000 TCBRSVAA EQU TCB+237 03617000 TCBABCUR EQU TCB+236 03618000 TCBTMSAV EQU TCB+232 03619000 TCBIOTIM EQU TCB+228 03620000 TCBBACK EQU TCB+220 03621000 TCBTIRB EQU TCB+216 03622000 TCBAECB EQU TCB+212 03623000 TCBEXT2A EQU TCBEXT2+1 03624000 TCBRSV39 EQU TCBEXT2 03625000 TCBSTMCT EQU TCB+207 03626000 TCBSYSCT EQU TCB+206 03627000 TCBRSV37 EQU TCB+205 03628000 TCBEXSVC EQU TCBDAR 03629000 TCBDARMS EQU TCBDAR 03630000 TCBDARWT EQU TCBDAR 03631000 TCBDARO EQU TCBDAR 03632000 TCBDARMC EQU TCBDARC 03633000 TCBDARD EQU TCBDAR 03634000 TCBDARS EQU TCBDAR 03635000 TCBDARP EQU TCBDAR 03636000 TCBGTOFM EQU TCBFLGS7 03637000 TCBADMP EQU TCBFLGS7 03638000 TCBRSTSK EQU TCBFLGS7 03639000 TCBSVCS EQU TCBFLGS7 03640000 TCBSTACK EQU TCBFLGS7 03641000 TCBRSV34 EQU TCBFLGS7 03642000 TCBRSV33 EQU TCBFLGS7 03643000 TCBGPECB EQU TCBFLGS7 03644000 TCBNTJS EQU TCBFLGS6 03645000 TCBAPG EQU TCBFLGS6 03646000 TCBMIGR EQU TCBFLGS6 03647000 TCBRV303 EQU TCBFLGS6 03648000 TCBSPVLK EQU TCBFLGS6 03649000 TCBCPU EQU TCBFLGS6 03650000 TCBPIE17 EQU TCBFLGS6 03651000 TCBRV EQU TCBFLGS6 03652000 TCBRSV79 EQU TCBNDSP5 03653000 TCBRSV78 EQU TCBNDSP5 03654000 TCBRSV77 EQU TCBNDSP5 03655000 TCBRSV76 EQU TCBNDSP5 03656000 TCBRSV75 EQU TCBNDSP5 03657000 TCBRSV74 EQU TCBNDSP5 03658000 TCBRSV95 EQU TCBNDSP5 03659000 TCBRSV94 EQU TCBNDSP5 03660000 TCBRSV93 EQU TCBNDSP4 03661000 TCBRSV92 EQU TCBNDSP4 03662000 TCBRSV91 EQU TCBNDSP4 03663000 TCBRSV90 EQU TCBNDSP4 03664000 TCBRSV89 EQU TCBNDSP4 03665000 TCBRSV88 EQU TCBNDSP4 03666000 TCBRSV87 EQU TCBNDSP4 03667000 TCBRSV86 EQU TCBNDSP4 03668000 TCBEXT1A EQU TCBEXT1+1 03669000 TCBRSV32 EQU TCBEXT1 03670000 TCBEXCPD EQU TCB+192 03671000 TCBIOBRC EQU TCB+188 03672000 TCBDDWTC EQU TCB+186 03673000 TCBDDEXC EQU TCB+184 03674000 TCBJSCBB EQU TCBJSCB+1 03675000 @NM00120 EQU TCBRECDE 03676000 TCBREC EQU TCBRECDE 03677000 TCBMDIDS EQU TCB+176 03678000 TCBNDINT EQU TCBNDSP3 03679000 TCBRSV27 EQU TCBNDSP3 03680000 TCBRSV26 EQU TCBNDSP3 03681000 TCBRSV25 EQU TCBNDSP3 03682000 TCBRSV24 EQU TCBNDSP3 03683000 TCBSRBND EQU TCBNDSP3 03684000 TCBRV302 EQU TCBNDSP3 03685000 TCBLJSND EQU TCBNDSP3 03686000 TCBABE EQU TCBNDSP2 03687000 TCBDSS EQU TCBNDSP2 03688000 TCBOWAIT EQU TCBNDSP2 03689000 TCBIWAIT EQU TCBNDSP2 03690000 TCBNDTS EQU TCBNDSP2 03691000 TCBNDSVC EQU TCBNDSP2 03692000 TCBSTPP EQU TCBNDSP2 03693000 TCBABD EQU TCBNDSP2 03694000 TCBRSV22 EQU TCBNDSP1 03695000 TCBPIEND EQU TCBNDSP1 03696000 TCBTPSP EQU TCBNDSP1 03697000 TCBDDRND EQU TCBNDSP1 03698000 TCBRSPND EQU TCBNDSP1 03699000 TCBRSTND EQU TCBNDSP1 03700000 TCBDARPN EQU TCBNDSP1 03701000 TCBDARTN EQU TCBNDSP1 03702000 TCBNDSP0 EQU TCBNDSP 03703000 TCBUSER EQU TCB+168 03704000 TCBTCTB EQU TCBTCT+1 03705000 TCBRSV9C EQU TCBTCTGF 03706000 TCBRSV9B EQU TCBTCTGF 03707000 TCBRSV9A EQU TCBTCTGF 03708000 TCBRSV99 EQU TCBTCTGF 03709000 TCBRSV98 EQU TCBTCTGF 03710000 TCBRSV97 EQU TCBTCTGF 03711000 TCBRSV20 EQU TCBTCTGF 03712000 TCBSMFGF EQU TCBTCTGF 03713000 TCBSTABB EQU TCBSTAB+1 03714000 TCBSTCUR EQU TCBNSTAE 03715000 TCBRV301 EQU TCBNSTAE 03716000 TCBSYNCH EQU TCBNSTAE 03717000 TCBHALT EQU TCBNSTAE 03718000 TCBPPSUP EQU TCBNSTAE 03719000 TCB33E EQU TCBNSTAE 03720000 TCBQUIES EQU TCBNSTAE 03721000 TCBSTABE EQU TCBNSTAE 03722000 TCBAQE EQU TCB+156 03723000 TCBPQE EQU TCB+152 03724000 TCBTSDP EQU TCB+151 03725000 TCBTSLP EQU TCB+150 03726000 TCBSTPCT EQU TCB+149 03727000 TCBCPUBN EQU TCBTSFLG 03728000 TCBDYDSP EQU TCBTSFLG 03729000 TCBRSV18 EQU TCBTSFLG 03730000 TCBRSV17 EQU TCBTSFLG 03731000 TCBTIOTG EQU TCBTSFLG 03732000 TCBATT EQU TCBTSFLG 03733000 TCBSTPPR EQU TCBTSFLG 03734000 TCBRV300 EQU TCBTSTSK 03735000 TCBECB EQU TCB+144 03736000 TCBIQE EQU TCB+140 03737000 TCBLTC EQU TCB+136 03738000 TCBOTC EQU TCB+132 03739000 TCBNTC EQU TCB+128 03740000 TCBJSTCA EQU TCBJSTCB+1 03741000 TCBRSV16 EQU TCBJSTCB 03742000 TCBTQET EQU TCBTME 03743000 TCBFSAB EQU TCBFSA+1 03744000 TCBQEL EQU TCBFSA 03745000 TCBGRS15 EQU TCBGRS+60 03746000 TCBGRS14 EQU TCBGRS+56 03747000 TCBGRS13 EQU TCBGRS+52 03748000 TCBGRS12 EQU TCBGRS+48 03749000 TCBGRS11 EQU TCBGRS+44 03750000 TCBGRS10 EQU TCBGRS+40 03751000 TCBGRS9 EQU TCBGRS+36 03752000 TCBGRS8 EQU TCBGRS+32 03753000 TCBGRS7 EQU TCBGRS+28 03754000 TCBGRS6 EQU TCBGRS+24 03755000 TCBGRS5 EQU TCBGRS+20 03756000 TCBGRS4 EQU TCBGRS+16 03757000 TCBGRS3 EQU TCBGRS+12 03758000 TCBGRS2 EQU TCBGRS+8 03759000 TCBGRS1 EQU TCBGRS+4 03760000 TCBGRS0 EQU TCBGRS 03761000 TCBJPQB EQU TCBJPQ+1 03762000 TCBRSV15 EQU TCBPURGE 03763000 TCBRSV14 EQU TCBPURGE 03764000 TCBRSV13 EQU TCBPURGE 03765000 TCBRSV12 EQU TCBPURGE 03766000 TCBRSV11 EQU TCBPURGE 03767000 TCBRSV10 EQU TCBPURGE 03768000 TCBRSV09 EQU TCBPURGE 03769000 TCBJPQF EQU TCBPURGE 03770000 TCBJLB EQU TCB+40 03771000 TCBLLS EQU TCB+36 03772000 TCBDSP EQU TCB+35 03773000 TCBLMP EQU TCB+34 03774000 TCBPNDSP EQU TCBFLGS5 03775000 TCBFCD1 EQU TCBFLGS5 03776000 TCBSTP EQU TCBFLGS5 03777000 TCBSYS EQU TCBFLGS5 03778000 TCBANDSP EQU TCBFLGS5 03779000 TCBPAGE EQU TCBFLGS5 03780000 TCBUXNDF EQU TCBABWF 03781000 TCBFC EQU TCBFLGS5 03782000 TCBONDSP EQU TCBFLGS4 03783000 TCBMPCND EQU TCBFLGS4 03784000 TCBMPCVQ EQU TCBFLGS4 03785000 TCBUXNDV EQU TCBFLGS4 03786000 TCBHNDSP EQU TCBFLGS4 03787000 TCBRQENA EQU TCBFLGS4 03788000 TCBSER EQU TCBFLGS4 03789000 TCBNDUMP EQU TCBFLGS4 03790000 TCBDWSTA EQU TCBFLGS3 03791000 TCBRSV08 EQU TCBFLGS3 03792000 TCBRSV07 EQU TCBFLGS3 03793000 TCBRSV06 EQU TCBFLGS3 03794000 TCBABGM EQU TCBFLGS3 03795000 TCBABTRM EQU TCBFLGS3 03796000 TCBADINP EQU TCBFLGS3 03797000 TCBFSM EQU TCBFLGS3 03798000 TCBFTS EQU TCBFLGS2 03799000 TCBFETXR EQU TCBFLGS2 03800000 TCBFDSOP EQU TCBFLGS2 03801000 TCBFJMC EQU TCBFLGS2 03802000 TCBFSMC EQU TCBFLGS2 03803000 TCBFABOP EQU TCBFLGS2 03804000 TCBFSTI EQU TCBFLGS2 03805000 TCBFOINP EQU TCBFLGS2 03806000 TCBFX EQU TCBFLGS1 03807000 TCBFS EQU TCBFLGS1 03808000 TCBFT EQU TCBFLGS1 03809000 TCBPDUMP EQU TCBFLGS1 03810000 TCBNONPR EQU TCBFLGS1 03811000 TCBFERA EQU TCBFLGS1 03812000 TCBFE EQU TCBFLGS1 03813000 TCBFA EQU TCBFLGS1 03814000 TCBZERO EQU TCBPKF 03815000 TCBFLAG EQU TCBPKF 03816000 TCBMSSB EQU TCBMSS+1 03817000 TCBRSV03 EQU TCBMSS 03818000 TCBTRNB EQU TCBTRN+1 03819000 TCBRSV02 EQU TCBABF 03820000 TCBOLTEP EQU TCBABF 03821000 TCBTCP EQU TCBABF 03822000 TCBTCPP EQU TCBABF 03823000 TCBRSV01 EQU TCBABF 03824000 TCBGRPH EQU TCBABF 03825000 TCBNOCHK EQU TCBABF 03826000 TCBMOD91 EQU TCBABF 03827000 TCBCMPC EQU TCBCMP+1 03828000 TCBRV318 EQU TCBCMSG 03829000 TCBRV317 EQU TCBCIND 03830000 TCBRV316 EQU TCBCWTO 03831000 TCBCASID EQU TCBCDBL 03832000 TCBNOCC EQU TCBSTCC 03833000 TCBDMPO EQU TCBCPP 03834000 TCBCSTEP EQU TCBCMPF 03835000 TCBCREQ EQU TCBCMPF 03836000 TCBDEB EQU TCB+8 03837000 TCBPIEA EQU TCBPIE+1 03838000 TCBPM EQU TCBPMASK 03839000 @NM00119 EQU TCBPMASK 03840000 TCBRBP EQU TCB 03841000 TCBFRS6 EQU TCBFRS+24 03842000 TCBFRS4 EQU TCBFRS+16 03843000 TCBFRS2 EQU TCBFRS+8 03844000 TCBFRS0 EQU TCBFRS 03845000 @NM00118 EQU SMWK+978 03846000 SMWKNSTB EQU SMWK+976 03847000 SMWKNFFD EQU SMWK+974 03848000 SMWKNTDQ EQU SMWK+972 03849000 SMWKNTDI EQU SMWK+970 03850000 SMWKNFUS EQU SMWK+968 03851000 SMWKNFAQ EQU SMWK+966 03852000 SMWKNFRQ EQU SMWK+964 03853000 SMWKTQE EQU SMWK+832 03854000 @NM00117 EQU SMWK+828 03855000 SMWKTQEA EQU SMWK+824 03856000 SMWKNDIE EQU SMWK+818 03857000 SMWKNFRE EQU SMWK+816 03858000 SMWKNFRI EQU SMWK+814 03859000 SMWKALEN EQU SMWK+812 03860000 SMWKSCBF EQU SMWK+810 03861000 SMWKSMVL EQU SMWK+652 03862000 SMWKSMMV EQU SMWK+648 03863000 SMWKSMBF EQU SMWK+644 03864000 SMWKSMLS EQU SMWK+640 03865000 SMWKSMRG EQU SMWK+636 03866000 SMWKSMDT EQU SMWK+632 03867000 SMWKSDMP EQU SMWK+628 03868000 SMWKSMLK EQU SMWK+624 03869000 @NM00116 EQU SMWK+622 03870000 SMWKFRUS EQU SMWK+620 03871000 SMWKRSIX EQU SMWK+618 03872000 SMWKNFAV EQU SMWK+616 03873000 SMWKRFAD EQU SMWK+612 03874000 SMWKRSM EQU SMWK+196 03875000 SMWKCPUS EQU SMWK+192 03876000 SMWKPEND EQU SMWK+188 03877000 SMWKSAVA EQU SMWK+184 03878000 SMWKENDA EQU SMWK+180 03879000 SMWKVADR EQU SMWK+176 03880000 SMWKPSWA EQU SMWKPSW+4 03881000 @NM00115 EQU SMWKPSW+2 03882000 SMWKPSWK EQU SMWKPSW+1 03883000 SMWKPSWS EQU SMWKPSW 03884000 SMWKPFXE EQU SMWK+164 03885000 SMWKPFXB EQU SMWK+160 03886000 SMWKSSDE EQU SMWK+156 03887000 SMWKENTY EQU SMWK+152 03888000 SMWKFLG4 EQU SMWKFLGS+3 03889000 SMWKFLG3 EQU SMWKFLGS+2 03890000 SMWKFLG2 EQU SMWKFLGS+1 03891000 @NM00114 EQU SMWKFLG1 03892000 @NM00113 EQU SMWKFLG1 03893000 SMWKSTBK EQU SMWKFLG1 03894000 SMWKSLCL EQU SMWKFLG1 03895000 SMWKRSNM EQU SMWKFLG1 03896000 SMWKRBFL EQU SMWKFLG1 03897000 SMWKRBUF EQU SMWKFLG1 03898000 SMWKSLCK EQU SMWKFLG1 03899000 SMWKNAME EQU SMWK 03900000 SMDLRDAT EQU SMDLR+20 03901000 @NM00112 EQU SMDLRHDR+17 03902000 @NM00111 EQU SMDLRHDR+2 03903000 SDBUFFER EQU SDWORK+440 03904000 DATALEN EQU SDOUTBUF+6 03905000 KEYLEN EQU SDOUTBUF+5 03906000 RECORDNO EQU SDOUTBUF+4 03907000 RCDHH EQU RCDCCHH+2 03908000 RCDCC EQU RCDCCHH 03909000 SDSMDECB EQU SDCNTRL+428 03910000 BYTECNT3 EQU CCW3+6 03911000 @NM00110 EQU CCW3+5 03912000 PCI3 EQU FLAGS3 03913000 SKIP3 EQU FLAGS3 03914000 SLI3 EQU FLAGS3 03915000 CC3 EQU FLAGS3 03916000 CD3 EQU FLAGS3 03917000 DATAADR3 EQU CCW3+1 03918000 CMDCODE3 EQU CCW3 03919000 BYTECNT2 EQU CCW2+6 03920000 @NM00109 EQU CCW2+5 03921000 PCI2 EQU FLAGS2 03922000 SKIP2 EQU FLAGS2 03923000 SLI2 EQU FLAGS2 03924000 CC2 EQU FLAGS2 03925000 CD2 EQU FLAGS2 03926000 DATAADR2 EQU CCW2+1 03927000 CMDCODE2 EQU CCW2 03928000 BYTECNT1 EQU CCW1+6 03929000 @NM00108 EQU CCW1+5 03930000 PCI1 EQU FLAGS1 03931000 SKIP1 EQU FLAGS1 03932000 SLI1 EQU FLAGS1 03933000 CMDC1 EQU FLAGS1 03934000 CD1 EQU FLAGS1 03935000 DATAADR1 EQU CCW1+1 03936000 CMDCODE1 EQU CCW1 03937000 SVCNM8 EQU SVCNM7T8+1 03938000 SVCNM7 EQU SVCNM7T8 03939000 SVCNM6 EQU SVCNM6T8 03940000 SVCNM1T4 EQU SVCNM1T5 03941000 @NM00107 EQU SDCNTRL+388 03942000 SVC994ID EQU SDCNTRL+384 03943000 CVRT2SGN EQU SDCVRT4+5 03944000 @NM00106 EQU SDCVRT4 03945000 @NM00105 EQU CVRT2 03946000 SDCVRT1 EQU CVRT1+2 03947000 @NM00104 EQU CVRT1 03948000 @NM00103 EQU CVRT11 03949000 CHCNT EQU SDCNTRL+366 03950000 TIMCNT EQU SDCNTRL+364 03951000 DSTINDEX EQU SDCNTRL+360 03952000 SDWRGSV1 EQU SDCNTRL+216 03953000 SDRETCOD EQU SDCNTRL+212 03954000 ADDADRWD EQU SDCNTRL+208 03955000 ADDADRWC EQU SDCNTRL+204 03956000 ADDADRWB EQU SDCNTRL+200 03957000 ADDADRWA EQU SDCNTRL+196 03958000 USEEND EQU SDCNTRL+192 03959000 USESTART EQU SDCNTRL+188 03960000 SPQEADDR EQU SDCNTRL+184 03961000 USERRETA EQU SDCNTRL+180 03962000 PGFRRETA EQU SDCNTRL+176 03963000 SPQERETA EQU SDCNTRL+172 03964000 @NM00102 EQU SDCNTRL+171 03965000 SDWKEY EQU SDCNTRL+170 03966000 AFFNSAV EQU SDCNTRL+168 03967000 FREERETA EQU SDCNTRL+164 03968000 LPDERETA EQU SDCNTRL+160 03969000 CDERETA EQU SDCNTRL+156 03970000 DISPRETA EQU SDCNTRL+152 03971000 SDIORETA EQU SDCNTRL+148 03972000 SVCDLPST EQU SDCNTRL+136 03973000 FLAGSTWO EQU SDCNTRL+103 03974000 SDWPAGOT EQU FLAGSONE 03975000 FLGFLAST EQU FLAGSONE 03976000 FLGTAPEE EQU FLAGSONE 03977000 FLGRTFUL EQU FLAGSONE 03978000 SVCDNSQA EQU SVCDOPT2 03979000 SVCDNAPA EQU SVCDOPT2 03980000 SVCDNSMD EQU SVCDOPT2 03981000 SVCDSMDP EQU SVCDOPT2 03982000 SVCDSWA EQU SVCDOPT2 03983000 SVCDCSA EQU SVCDOPT2 03984000 SVCDTRT EQU SVCDOPT1 03985000 SVCDLPA EQU SVCDOPT1 03986000 SVCDRGN EQU SVCDOPT1 03987000 SVCDLSQA EQU SVCDOPT1 03988000 SVCDSQA EQU SVCDOPT1 03989000 SVCDNUC EQU SVCDOPT1 03990000 SVCDPSA EQU SVCDOPT1 03991000 SVCDAPSA EQU SVCDOPT1 03992000 SDWSDPL EQU SDCNTRL+96 03993000 SDSRBBAS EQU SDCNTRL+92 03994000 SDSRBADR EQU SDCNTRL+88 03995000 SVCDSRBA EQU SDCNTRL+84 03996000 ENDADRNT EQU SDCNTRL+80 03997000 RANGEPTR EQU SDCNTRL+76 03998000 GLOBADDR EQU SDCNTRL+72 03999000 LOCALADR EQU SDCNTRL+68 04000000 NUCADDR EQU SDCNTRL+64 04001000 DACHARAD EQU SDCNTRL+60 04002000 LSTESTAE EQU SDCNTRL+44 04003000 SDIOB EQU SDCNTRL+4 04004000 SDECB EQU SDCNTRL 04005000 SDUSYSMC EQU SDUMP+36 04006000 SDUSYSMS EQU SDUMP+32 04007000 SDUASIDP EQU SDUMP+24 04008000 SDUTASID EQU SDUMASID+2 04009000 SDUCASID EQU SDUMASID 04010000 SDUECBAD EQU SDUMP+16 04011000 SDUHDRAD EQU SDUMP+12 04012000 SDUSTORA EQU SDUMP+8 04013000 SDUDCBAD EQU SDUMP+4 04014000 @NM00101 EQU SDUSDAT2 04015000 SDUNASQA EQU SDUSDAT2 04016000 SDUNAPSA EQU SDUSDAT2 04017000 SDUNSMDP EQU SDUSDAT2 04018000 SDUSMDMP EQU SDUSDAT2 04019000 SDUSWA EQU SDUSDAT2 04020000 SDUCSA EQU SDUSDAT2 04021000 SDUTRT EQU SDUSDAT1 04022000 SDULPA EQU SDUSDAT1 04023000 SDURGN EQU SDUSDAT1 04024000 SDULSQA EQU SDUSDAT1 04025000 SDUSQA EQU SDUSDAT1 04026000 SDUNUC EQU SDUSDAT1 04027000 SDUPSA EQU SDUSDAT1 04028000 SDUALPSA EQU SDUSDAT1 04029000 @NM00100 EQU SDUFLAG1 04030000 SDUSLIP EQU SDUFLAG1 04031000 SDUASLST EQU SDUFLAG1 04032000 SDUABEND EQU SDUFLAG1 04033000 DUMPTYPE EQU SDUFLAG1 04034000 SDUBRANH EQU SDUFLAG0 04035000 SDUQUIET EQU SDUFLAG0 04036000 SDUASID EQU SDUFLAG0 04037000 SDUECB EQU SDUFLAG0 04038000 SDUHDR EQU SDUFLAG0 04039000 SDUSTOR EQU SDUFLAG0 04040000 SDUBUF EQU SDUFLAG0 04041000 SDUDCB EQU SDUFLAG0 04042000 SMWKFRMA EQU SMWKRSFM 04043000 SMWKPRSR EQU SMWKRSCB+12 04044000 SMWKTSDS EQU SMWKRSCB+8 04045000 SMWKFRPT EQU SMWKRSCB+4 04046000 SMWKFRHD EQU SMWKRSCB+2 04047000 SMWKFLGB EQU SMWKRSCB+1 04048000 @NM00099 EQU SMWKFLGA 04049000 SMWKEVRY EQU SMWKFLGA 04050000 STORBTO EQU STORTO 04051000 STORB EQU STORFRM 04052000 RTM2TECB EQU RTM2RYRG+64 04053000 RTM2RYRS EQU RTM2RYRG 04054000 RTM2TRLS EQU RTM2ENSN+16 04055000 RTM2TRFS EQU RTM2ENSN+12 04056000 RTM2TRCU EQU RTM2ENSN+8 04057000 @NM00098 EQU RTM2WA+882 04058000 RTM2ERTM EQU RTM2ERID+6 04059000 RTM2ERAS EQU RTM2ERID+4 04060000 RTM2CPUI EQU RTM2ERID+2 04061000 RTM2SEQ# EQU RTM2ERID 04062000 RTM2RMSA EQU RTM2RMIN+92 04063000 RTM2RMWS EQU RTM2RMWA 04064000 RTM2RMPS EQU RTM2RMIN 04065000 RTM2TRSA EQU RTM2CVER+450 04066000 RTM2CREG EQU RTM2CRG 04067000 RTM2RREG EQU RTM2RRG 04068000 RTM2RBRG EQU RTM2CVER+313 04069000 RTM2WARG EQU RTM2CVER+312 04070000 @NM00097 EQU RTM2CVER+310 04071000 RTM2CTRA EQU RTM2RECH+12 04072000 RTM2STRA EQU RTM2RECH+8 04073000 RTM2SKRA EQU RTM2RECH+4 04074000 RTM2TRRA EQU RTM2RECH 04075000 @NM00096 EQU RTM2TRYR+3 04076000 @NM00095 EQU RTM2TRF2 04077000 RTM2GMR EQU RTM2TRF2 04078000 RTM2PPR EQU RTM2TRF2 04079000 RTM2IOR EQU RTM2TRF2 04080000 RTM2AS3R EQU RTM2TRF1+1 04081000 RTM2AS2R EQU RTM2TRF1+1 04082000 RTM2AS1R EQU RTM2TRF1+1 04083000 RTM2XFLG EQU RTM2TRF1+1 04084000 RTM2XABD EQU RTM2TRF1+1 04085000 RTM2XIP EQU RTM2TRF1+1 04086000 RTM2RTYS EQU RTM2TRF1+1 04087000 RTM2RCD EQU RTM2TRF1+1 04088000 RTM2FMS EQU RTM2TRF1 04089000 RTM2VLDY EQU RTM2TRF1 04090000 RTM2HOOK EQU RTM2TRF1 04091000 RTM2PPS EQU RTM2TRF1 04092000 RTM2GMS EQU RTM2TRF1 04093000 RTM2IORS EQU RTM2TRF1 04094000 RTM2IOHS EQU RTM2TRF1 04095000 RTM2IOQS EQU RTM2TRF1 04096000 RTM2TMER EQU RTM2RECL+14 04097000 RTM2EQMN EQU RTM2ECTL 04098000 RTM2EDEQ EQU RTM2ECTL 04099000 RTM2EFRM EQU RTM2ECTL 04100000 RTM2ECLS EQU RTM2ECTL 04101000 RTM2ESNP EQU RTM2ECTL 04102000 RTM2EOPN EQU RTM2ECTL 04103000 RTM2EGET EQU RTM2ECTL 04104000 RTM2EENQ EQU RTM2ECTL 04105000 RTM2DFTK EQU RTM2DCTL 04106000 RTM2DDEQ EQU RTM2DCTL 04107000 RTM2DFRM EQU RTM2DCTL 04108000 RTM2DCLS EQU RTM2DCTL 04109000 RTM2DSNP EQU RTM2DCTL 04110000 RTM2DOPN EQU RTM2DCTL 04111000 RTM2DGET EQU RTM2DCTL 04112000 RTM2DENQ EQU RTM2DCTL 04113000 RTM2SCTX EQU RTM2RECL+8 04114000 RTM2SCTR EQU RTM2RECL+4 04115000 RTM2SCTC EQU RTM2RECL 04116000 @NM00094 EQU RTM2FLX2 04117000 RTM2CERX EQU RTM2FLX2 04118000 RTM2RCRX EQU RTM2FLX2 04119000 RTM2RTRX EQU RTM2FLX1 04120000 RTM2LTX EQU RTM2FLX1 04121000 RTM2PRX EQU RTM2FLX1 04122000 RTM2CVX EQU RTM2FLX1 04123000 RTM2DWX EQU RTM2FLX1 04124000 RTM2ABX EQU RTM2FLX1 04125000 RTM2EOTX EQU RTM2FLX1 04126000 RTM2MTX EQU RTM2FLX1 04127000 @NM00093 EQU RTM2ASIR 04128000 RTM2UPRG EQU RTM2ASIR 04129000 RTM2TRME EQU RTM2ASIR 04130000 @NM00092 EQU RTM2ABDP 04131000 RTM2SMDP EQU RTM2ABDP 04132000 RTM2DMP1 EQU RTM2ABDP 04133000 RTM2MEMT EQU RTM2INTF+3 04134000 @NM00091 EQU RTM2TSKT 04135000 RTM2PURG EQU RTM2TSKT 04136000 @NM00090 EQU RTM2INTF+1 04137000 @NM00089 EQU RTM2CTLR 04138000 RTM2WRAP EQU RTM2CTLR 04139000 RTM2TMEM EQU RTM2CTLR 04140000 RTM2RETR EQU RTM2CTLR 04141000 RTM2RECR EQU RTM2CTLR 04142000 @NM00088 EQU RTM2RCTL 04143000 RTM2JPAQ EQU RTM2RCTL 04144000 RTM2LPAQ EQU RTM2RCTL 04145000 RTM2BFTL EQU RTM2RCTL 04146000 RTM2TRSW EQU RTM2RCTL 04147000 RTM2WANA EQU RTM2RCTL 04148000 RTM2WAIN EQU RTM2RCTL 04149000 RTM2STA2 EQU RTM2RCTL 04150000 RTM2STAT EQU RTM2ABND 04151000 RTM2NDMP EQU RTM2ABND 04152000 @NM00087 EQU RTM2ABID 04153000 RTM2OERR EQU RTM2ABID 04154000 RTM2SAV2 EQU RTM2ABID 04155000 RTM2SAVE EQU RTM2ABID 04156000 RTM2REG EQU RTM2ABID 04157000 RTM2PSW EQU RTM2ABID 04158000 RTM2ENQ EQU RTM2ABID 04159000 RTM2CB EQU RTM2ABID 04160000 RTM2MCTL EQU RTM2SCTL+3 04161000 RTM2TCTL EQU RTM2SCTL+2 04162000 @NM00086 EQU RTM2CCTL+1 04163000 RTM2PPIO EQU RTM2CCTL+1 04164000 RTM2INPG EQU RTM2CCTL+1 04165000 RTM2NODP EQU RTM2CCTL+1 04166000 RTM2RGEB EQU RTM2CCTL+1 04167000 RTM2DEND EQU RTM2CCTL+1 04168000 RTM2RSCN EQU RTM2CCTL+1 04169000 RTM2CONT EQU RTM2CCTL 04170000 RTM2SLIP EQU RTM2CCTL 04171000 RTM2HEED EQU RTM2CCTL 04172000 RTM2REED EQU RTM2CCTL 04173000 RTM2ISPC EQU RTM2CCTL 04174000 RTM2SQS EQU RTM2CCTL 04175000 RTM2CNCL EQU RTM2CCTL 04176000 RTM2STPT EQU RTM2CCTL 04177000 RTM2PKEY EQU RTM2CVER+258 04178000 RTM2SFSA EQU RTM2SFRG 04179000 RTM2PRWA EQU RTM2CVER+182 04180000 RTM2SPWA EQU RTM2CVER+174 04181000 RTM2DCBA EQU RTM2CVER+170 04182000 RTM2ECBS EQU RTM2SECB+16 04183000 RTM2LECB EQU RTM2ECBA 04184000 RTM2DTCB EQU RTM2SNAP+68 04185000 RTM2SNCC EQU RTM2SNAP+64 04186000 RTM2DD EQU RTM2SNAP+56 04187000 RTM2LTO4 EQU RTM2TO4 04188000 RTM2LFR4 EQU RTM2FRM4 04189000 RTM2LTO3 EQU RTM2TO3 04190000 RTM2LFR3 EQU RTM2FRM3 04191000 RTM2LTO2 EQU RTM2TO2 04192000 RTM2LFR2 EQU RTM2FRM2 04193000 RTM2LTO1 EQU RTM2TO1 04194000 RTM2LFR1 EQU RTM2FRM1 04195000 RTM2DPLA EQU RTM2SNAP 04196000 RTM2NXTP EQU RTM2CTL2+5 04197000 RTM2SGP EQU RTM2PMKP 04198000 RTM2EUP EQU RTM2PMKP 04199000 RTM2DOP EQU RTM2PMKP 04200000 RTM2FPP EQU RTM2PMKP 04201000 RTM2CCP EQU RTM2PMKP 04202000 RTM2ILP EQU RTM2PMKP 04203000 RTM2INTP EQU RTM2CTL2+2 04204000 RTM2SPVP EQU RTM2MWPP 04205000 RTM2WATP EQU RTM2MWPP 04206000 RTM2MCKP EQU RTM2MWPP 04207000 @NM00085 EQU RTM2MWPP 04208000 RTM2KEYP EQU RTM2MWPP 04209000 RTM2EXTP EQU RTM2CMKP 04210000 RTM2IOP EQU RTM2CMKP 04211000 RTM2NXTA EQU RTM2CTL1+5 04212000 RTM2SGA EQU RTM2PMKA 04213000 RTM2EUA EQU RTM2PMKA 04214000 RTM2DOA EQU RTM2PMKA 04215000 RTM2FPA EQU RTM2PMKA 04216000 RTM2CCA EQU RTM2PMKA 04217000 RTM2ILA EQU RTM2PMKA 04218000 RTM2INTA EQU RTM2CTL1+2 04219000 RTM2SPVA EQU RTM2MWPA 04220000 RTM2WATA EQU RTM2MWPA 04221000 RTM2MCKA EQU RTM2MWPA 04222000 @NM00084 EQU RTM2MWPA 04223000 RTM2KEYA EQU RTM2MWPA 04224000 RTM2EXTA EQU RTM2CMKA 04225000 RTM2IOA EQU RTM2CMKA 04226000 @NM00083 EQU RTM2PARQ+1 04227000 RTM2RCDE EQU RTM2PARQ 04228000 RTM2RYRB EQU RTM2TRRC+42 04229000 RTM2RTYA EQU RTM2TRRC+38 04230000 RTM2COMP EQU RTM2TRRC+34 04231000 RTM2SIZE EQU RTM2SPLL+1 04232000 RTM2SUBP EQU RTM2SPLL 04233000 RTM2RTCA EQU RTM2RTCD 04234000 RTM2SCBO EQU RTM2SCBS+8 04235000 RTM2SCBN EQU RTM2SCBS+4 04236000 RTM2SCBC EQU RTM2SCBS 04237000 RTM2STAR EQU RTM2TRRC+10 04238000 RTM2RBST EQU RTM2TRRC+6 04239000 RTM2FIOB EQU RTM2IOBP+1 04240000 @NM00082 EQU RTM2IOBP 04241000 @NM00081 EQU RTM2TRRC+1 04242000 @NM00080 EQU RTM2IOFS 04243000 RTM2NIOP EQU RTM2IOFS 04244000 RTM2NOIO EQU RTM2IOFS 04245000 RTM2IOHT EQU RTM2IOFS 04246000 RTM2IOQR EQU RTM2IOFS 04247000 RTM2FMID EQU RTM2TRRY+124 04248000 RTM2ERFL EQU RTM2ERRD 04249000 RTM2MCIV EQU RTM2ERRD 04250000 RTM2RPIV EQU RTM2ERRD 04251000 RTM2MABD EQU RTM2ERRD 04252000 RTM2CTS EQU RTM2ERRD 04253000 RTM2STAE EQU RTM2ERRD 04254000 RTM2NRBE EQU RTM2ERRD 04255000 RTM2CLUP EQU RTM2ERRD 04256000 @NM00079 EQU RTM2ERRC 04257000 RTM2EAS EQU RTM2ERRC 04258000 RTM2PERC EQU RTM2ERRC 04259000 RTM2IRB EQU RTM2ERRC 04260000 RTM2STAI EQU RTM2ERRC 04261000 RTM2STAF EQU RTM2ERRC 04262000 RTM2SRBM EQU RTM2ERRB 04263000 RTM2LDIS EQU RTM2ERRB 04264000 RTM2ENRB EQU RTM2ERRB 04265000 RTM2TYP1 EQU RTM2ERRB 04266000 @NM00078 EQU RTM2ERRB 04267000 RTM2PGIO EQU RTM2ERRA 04268000 RTM2TEXC EQU RTM2ERRA 04269000 RTM2SVCE EQU RTM2ERRA 04270000 RTM2ABTM EQU RTM2ERRA 04271000 RTM2SVCD EQU RTM2ERRA 04272000 RTM2RKEY EQU RTM2ERRA 04273000 RTM2PCHK EQU RTM2ERRA 04274000 RTM2MCHK EQU RTM2ERRA 04275000 RTM2TIME EQU RTM2EEDH+20 04276000 RTM2RFSA EQU RTM2EEDH+16 04277000 @NM00077 EQU RTM2EEDH+14 04278000 RTM2VEQR EQU RTM2RSR2 04279000 RTM2PGFX EQU RTM2RSR2 04280000 RTM2FLSQ EQU RTM2RSR2 04281000 RTM2FSQA EQU RTM2RSR2 04282000 RTM2NUCL EQU RTM2RSR2 04283000 RTM2SPER EQU RTM2RSR2 04284000 RTM2INTC EQU RTM2RSR2 04285000 RTM2OFLN EQU RTM2RSR2 04286000 RTM2CHNG EQU RTM2RSR1 04287000 RTM2MSER EQU RTM2RSR1 04288000 @NM00076 EQU RTM2RSR1 04289000 RTM2CPID EQU RTM2EEDH+10 04290000 RTM2TERR EQU RTM2MCHD 04291000 RTM2SOFT EQU RTM2MCHD 04292000 RTM2INSF EQU RTM2MCHD 04293000 RTM2ACR EQU RTM2MCHD 04294000 RTM2SCK EQU RTM2MCHD 04295000 RTM2PSWU EQU RTM2MCHD 04296000 RTM2REGU EQU RTM2MCHD 04297000 RTM2SKYF EQU RTM2MCHD 04298000 @NM00075 EQU RTM2MCHS 04299000 RTM2RSRF EQU RTM2MCHS 04300000 RTM2RSRC EQU RTM2MCHS 04301000 RTM2INVP EQU RTM2MCHS 04302000 RTM2TSVL EQU RTM2MCHS 04303000 RTM2RCDF EQU RTM2MCHS 04304000 RTM2SRVL EQU RTM2MCHS 04305000 RTM2SCKE EQU RTM2STCK+4 04306000 RTM2SCKB EQU RTM2STCK 04307000 RTM2ABEP EQU RTM2TRRY+88 04308000 RTM2ABNM EQU RTM2TRRY+80 04309000 RTM2TRAN EQU RTM2AEC1+4 04310000 RTM2IPC1 EQU RTM2ICD1 04311000 RTM2IMC1 EQU RTM2ICD1 04312000 RTM2IPR1 EQU RTM2ICD1 04313000 @NM00074 EQU RTM2INC1 04314000 @NM00073 EQU RTM2ILC1 04315000 RTM2IL1 EQU RTM2ILC1 04316000 @NM00072 EQU RTM2ILC1 04317000 @NM00071 EQU RTM2AEC1 04318000 RTM2ADD1 EQU RTM2NXT1+1 04319000 @NM00070 EQU RTM2NXT1 04320000 @NM00069 EQU RTM2EPSW+3 04321000 RTM2SGN1 EQU RTM2INT1 04322000 RTM2EXP1 EQU RTM2INT1 04323000 RTM2DEC1 EQU RTM2INT1 04324000 RTM2FPO1 EQU RTM2INT1 04325000 RTM2CC1 EQU RTM2INT1 04326000 @NM00068 EQU RTM2INT1 04327000 RTM2PGM1 EQU RTM2MWP1 04328000 RTM2WAT1 EQU RTM2MWP1 04329000 RTM2MCK1 EQU RTM2MWP1 04330000 RTM2ECT1 EQU RTM2MWP1 04331000 RTM2KEY1 EQU RTM2MWP1 04332000 RTM2EXT1 EQU RTM2EMK1 04333000 RTM2AIO1 EQU RTM2EMK1 04334000 RTM2TRM1 EQU RTM2EMK1 04335000 RTM2EAM1 EQU RTM2EMK1 04336000 @NM00067 EQU RTM2EMK1 04337000 RTM2PER1 EQU RTM2EMK1 04338000 @NM00066 EQU RTM2EMK1 04339000 RTM2ER15 EQU RTM2EREG+60 04340000 RTM2ER14 EQU RTM2EREG+56 04341000 RTM2ER13 EQU RTM2EREG+52 04342000 RTM2ER12 EQU RTM2EREG+48 04343000 RTM2ER11 EQU RTM2EREG+44 04344000 RTM2ER10 EQU RTM2EREG+40 04345000 RTM2ER9 EQU RTM2EREG+36 04346000 RTM2ER8 EQU RTM2EREG+32 04347000 RTM2ER7 EQU RTM2EREG+28 04348000 RTM2ER6 EQU RTM2EREG+24 04349000 RTM2ER5 EQU RTM2EREG+20 04350000 RTM2ER4 EQU RTM2EREG+16 04351000 RTM2ER3 EQU RTM2EREG+12 04352000 RTM2ER2 EQU RTM2EREG+8 04353000 RTM2ER1 EQU RTM2EREG+4 04354000 RTM2ER0 EQU RTM2EREG 04355000 RTM2CT EQU RTM2WA+56 04356000 RTM2VRBT EQU RTM2WA+52 04357000 RTM2TCBT EQU RTM2WA+48 04358000 RTM2SFWA EQU RTM2WA+32 04359000 RTM2CC EQU RTM2CODE+1 04360000 @NM00065 EQU RTM2CCF 04361000 RTM2EOT EQU RTM2CCF 04362000 RTM2EOM EQU RTM2CCF 04363000 RTM2R0DP EQU RTM2CCF 04364000 RTM2STEP EQU RTM2CCF 04365000 RTM2DREQ EQU RTM2CCF 04366000 RTM2ASC EQU RTM2WA+24 04367000 RTM2VRBC EQU RTM2WA+20 04368000 RTM2TCBC EQU RTM2WA+16 04369000 RTM2CVT EQU RTM2WA+12 04370000 RTM2LGTH EQU RTM2RT2D+1 04371000 RTM2SPID EQU RTM2RT2D 04372000 RTM2ADDR EQU RTM2DESC+4 04373000 RTM2ID EQU RTM2DESC 04374000 RMPLDCBL EQU RMPL+20 04375000 RMPLRMWA EQU RMPL+16 04376000 RMPLRBPA EQU RMPL+12 04377000 RMPLTCBA EQU RMPL+8 04378000 RMPLASCB EQU RMPL+4 04379000 RMPLASID EQU RMPL+2 04380000 RMPLFLG2 EQU RMPL+1 04381000 @NM00064 EQU RMPLFLG1 04382000 RMPLWT1M EQU RMPLFLG1 04383000 RMPLJST EQU RMPLFLG1 04384000 RMPLRCOV EQU RMPLFLG1 04385000 RMPLIPUF EQU RMPLFLG1 04386000 RMPLRBPP EQU RMPLFLG1 04387000 RMPLTERM EQU RMPLFLG1 04388000 RMPLTYPE EQU RMPLFLG1 04389000 SNPHDRA EQU SNPPARMS+20 04390000 SNPSTOR EQU SNPPARMS+16 04391000 SNPTCBA EQU SNPPARMS+12 04392000 SNPDCB EQU SNPPARMS+8 04393000 @NM00063 EQU SNPPARMS+7 04394000 @NM00062 EQU SNPPDATA 04395000 SNPSPLS EQU SNPPDATA 04396000 SNPPSW EQU SNPPDATA 04397000 SNPJPA EQU SNPPDATA 04398000 SNPLPA EQU SNPPDATA 04399000 SNPREGS EQU SNPPDATA 04400000 SNPSAVE2 EQU SNPPDATA 04401000 SNPSAVE EQU SNPPDATA 04402000 @NM00061 EQU SNPSDAT1 04403000 SNPERR EQU SNPSDAT1 04404000 SNPIO EQU SNPSDAT1 04405000 SNPDM EQU SNPSDAT0 04406000 SNPQCB EQU SNPSDAT0 04407000 SNPCB EQU SNPSDAT0 04408000 SNPTRT EQU SNPSDAT0 04409000 SNPSWA EQU SNPSDAT0 04410000 SNPLSQA EQU SNPSDAT0 04411000 SNPSQA EQU SNPSDAT0 04412000 SNPNUC EQU SNPSDAT0 04413000 @NM00060 EQU SNPPARMS+2 04414000 SNPHDR EQU SNPFLAG 04415000 SNPSLIST EQU SNPFLAG 04416000 SNPTCB EQU SNPFLAG 04417000 SNPID EQU SNPFLAG 04418000 SNPABEND EQU SNPFLAG 04419000 SNPVS2EN EQU SNPFLAG 04420000 SNPVS2 EQU SNPFLAG 04421000 SNPSNAP EQU SNPFLAG 04422000 SNPIDENT EQU SNPPARMS 04423000 RTCTISVC EQU RTCTSDO4 04424000 RTCTSDOV EQU RTCTSDMG 04425000 @NM00059 EQU RTCTSDO4 04426000 @NM00058 EQU RTCTSDO3 04427000 RTCTSDPH EQU RTCTSDO3 04428000 RTCTSDPG EQU RTCTSDO3 04429000 @NM00057 EQU RTCTSDO2 04430000 RTCTSDPD EQU RTCTSDO2 04431000 RTCTSDPC EQU RTCTSDO2 04432000 RTCTSDPB EQU RTCTSDO2 04433000 RTCTSDPA EQU RTCTSDO2 04434000 RTCTSDP9 EQU RTCTSDO2 04435000 RTCTSDP8 EQU RTCTSDO2 04436000 RTCTSDP7 EQU RTCTSDO1 04437000 RTCTSDP6 EQU RTCTSDO1 04438000 RTCTSDP5 EQU RTCTSDO1 04439000 RTCTSDP4 EQU RTCTSDO1 04440000 RTCTSDP3 EQU RTCTSDO1 04441000 RTCTSDP2 EQU RTCTSDO1 04442000 RTCTSDP1 EQU RTCTSDO1 04443000 RTCTSDP0 EQU RTCTSDO1 04444000 RTCTISYM EQU RTCTSD04 04445000 RTCTSMOV EQU RTCTSMMG 04446000 @NM00056 EQU RTCTSD04 04447000 RTCTSD03 EQU RTCTMSYO+2 04448000 RTCTSD02 EQU RTCTMSYO+1 04449000 RTCTSDS7 EQU RTCTSD01 04450000 RTCTSDS6 EQU RTCTSD01 04451000 RTCTSDS5 EQU RTCTSD01 04452000 RTCTSDS4 EQU RTCTSD01 04453000 RTCTSDS3 EQU RTCTSD01 04454000 RTCTSDS2 EQU RTCTSD01 04455000 RTCTSDS1 EQU RTCTSD01 04456000 RTCTSDS0 EQU RTCTSD01 04457000 RTCTISYU EQU RTCTSUO4 04458000 RTCTSUOV EQU RTCTSUMG 04459000 @NM00055 EQU RTCTSUO4 04460000 RTCTSYDF EQU RTCTSUO3 04461000 RTCTSYDE EQU RTCTSUO3 04462000 RTCTSYDD EQU RTCTSUO3 04463000 RTCTSYDC EQU RTCTSUO3 04464000 RTCTSYDB EQU RTCTSUO3 04465000 RTCTSYDA EQU RTCTSUO3 04466000 RTCTSYD9 EQU RTCTSUO3 04467000 RTCTSYD8 EQU RTCTSUO3 04468000 @NM00054 EQU RTCTSUO2 04469000 RTCTSYDH EQU RTCTSUO2 04470000 RTCTSYDG EQU RTCTSUO2 04471000 RTCTSYD7 EQU RTCTSUO1 04472000 RTCTSYD6 EQU RTCTSUO1 04473000 RTCTSYD5 EQU RTCTSUO1 04474000 RTCTSYD4 EQU RTCTSUO1 04475000 RTCTSYD3 EQU RTCTSUO1 04476000 RTCTSYD2 EQU RTCTSUO1 04477000 RTCTSYD1 EQU RTCTSUO1 04478000 RTCTSYD0 EQU RTCTSUO1 04479000 RTCTISAB EQU RTCTSAO4 04480000 RTCTSAOV EQU RTCTSAMG 04481000 @NM00053 EQU RTCTSAO4 04482000 RTCTSADF EQU RTCTSAO3 04483000 RTCTSADE EQU RTCTSAO3 04484000 RTCTSADD EQU RTCTSAO3 04485000 RTCTSADC EQU RTCTSAO3 04486000 RTCTSADB EQU RTCTSAO3 04487000 RTCTSADA EQU RTCTSAO3 04488000 RTCTSAD9 EQU RTCTSAO3 04489000 RTCTSAD8 EQU RTCTSAO3 04490000 @NM00052 EQU RTCTSAO2 04491000 RTCTSADH EQU RTCTSAO2 04492000 RTCTSADG EQU RTCTSAO2 04493000 RTCTSAD7 EQU RTCTSAO1 04494000 RTCTSAD6 EQU RTCTSAO1 04495000 RTCTSAD5 EQU RTCTSAO1 04496000 RTCTSAD4 EQU RTCTSAO1 04497000 RTCTSAD3 EQU RTCTSAO1 04498000 RTCTSAD2 EQU RTCTSAO1 04499000 RTCTSAD1 EQU RTCTSAO1 04500000 RTCTSAD0 EQU RTCTSAO1 04501000 RTCTZZZ5 EQU RTCT+340 04502000 RTCTZZZ4 EQU RTCT+336 04503000 RTCTMRMQ EQU RTCT+332 04504000 RTCTSDF5 EQU RTCTSDF3+3 04505000 RTCTSDEN EQU RTCTSDF4 04506000 RTCTSDEQ EQU RTCTSDF4 04507000 RTCTSDTR EQU RTCTSDF4 04508000 RTCTSDRM EQU RTCTSDF4 04509000 RTCTSDAN EQU RTCTSDF4 04510000 RTCTSDNC EQU RTCTSDF4 04511000 RTCTSDSS EQU RTCTSDF4 04512000 RTCTSDAS EQU RTCTSDF3 04513000 @NM00051 EQU RTCTC3PO 04514000 @NM00050 EQU RTCTR2D2 04515000 RTCTSDFX EQU RTCTSDF2 04516000 RTCTSDRW EQU RTCTSDF2 04517000 RTCTSDSL EQU RTCTSDF2 04518000 RTCTSDWF EQU RTCTSDF2 04519000 RTCTSDLA EQU RTCTSDF2 04520000 RTCTSDDI EQU RTCTSDF2 04521000 RTCTSDTQ EQU RTCTSDF2 04522000 RTCTSDMR EQU RTCTSDF2 04523000 RTCTSDSC EQU RTCTSDF1 04524000 RTCTSDRS EQU RTCTSDF1 04525000 RTCTSDSD EQU RTCTSDF1 04526000 RTCTSDEP EQU RTCTSDF1 04527000 RTCTSDMA EQU RTCTSDF1 04528000 RTCTSDSH EQU RTCTSDF1 04529000 RTCTSDND EQU RTCTSDF1 04530000 RTCTSDNO EQU RTCTSDF1 04531000 RTCTZZZ2 EQU RTCT+257 04532000 RTCTSDPR EQU RTCTSDI+2 04533000 RTCTINDX EQU RTCTSDI+1 04534000 @NM00049 EQU RTCTASO2 04535000 RTCTASNQ EQU RTCTASO2 04536000 RTCTASNA EQU RTCTASO2 04537000 RTCTASNS EQU RTCTASO2 04538000 RTCTASSU EQU RTCTASO2 04539000 RTCTASSW EQU RTCTASO2 04540000 RTCTASCS EQU RTCTASO2 04541000 RTCTASTR EQU RTCTASO1 04542000 RTCTASLP EQU RTCTASO1 04543000 RTCTASRG EQU RTCTASO1 04544000 RTCTASLS EQU RTCTASO1 04545000 RTCTASSQ EQU RTCTASO1 04546000 RTCTASNU EQU RTCTASO1 04547000 RTCTASPS EQU RTCTASO1 04548000 RTCTASAL EQU RTCTASO1 04549000 RTCTSDO EQU RTCTOPT+12 04550000 RTCTSYO EQU RTCTOPT+8 04551000 RTCTSUO EQU RTCTOPT+4 04552000 RTCTSAO EQU RTCTOPT 04553000 RTCTXXX2 EQU RTCT+234 04554000 RTCTETIM EQU RTCTERID+6 04555000 RTCTEASD EQU RTCTERID+4 04556000 RTCTECPU EQU RTCTERID+2 04557000 RTCTESEQ EQU RTCTERID 04558000 RTCTSDWK EQU RTCT+220 04559000 RTCTTDCB EQU RTCT+184 04560000 RTCTSEQ# EQU RTCT+178 04561000 RTCTXXX1 EQU RTCT+177 04562000 @NM00048 EQU RTCTRFLG 04563000 RTCTRSTF EQU RTCTRFLG 04564000 RTCTRPER EQU RTCTRFLG 04565000 RTCTRTER EQU RTCTRFLG 04566000 RTCTTEST EQU RTCT+172 04567000 RTCTMSRB EQU RTCT+168 04568000 RTCTMLCK EQU RTCT+164 04569000 RTCTFMT EQU RTCT+160 04570000 RTCTSDIP EQU RTCTSDPL 04571000 RTCTDEV EQU RTCTSDDS+8 04572000 RTCTDCB EQU RTCTSDDS+4 04573000 @NM00047 EQU RTCTFLG 04574000 RTCTDETP EQU RTCTFLG 04575000 RTCTDSUS EQU RTCTFLG 04576000 RTCTDSST EQU RTCTFLG 04577000 RTCTDSNM EQU RTCTSDDS 04578000 RTCTRCB EQU RTCT+32 04579000 RTCTRECB EQU RTCT+28 04580000 RTCTFASB EQU RTCT+24 04581000 RTCTMECB EQU RTCT+20 04582000 RTCTSDID EQU RTCT+18 04583000 RTCTYYY1 EQU RTCT+16 04584000 RTCTSY04 EQU RTCTSYD+3 04585000 RTCTSY03 EQU RTCTSYD+2 04586000 RTCTSY02 EQU RTCTSYD+1 04587000 RTCTSYM7 EQU RTCTSY01 04588000 RTCTSYM6 EQU RTCTSY01 04589000 RTCTSYM5 EQU RTCTSY01 04590000 RTCTSYM4 EQU RTCTSY01 04591000 RTCTSYM3 EQU RTCTSY01 04592000 RTCTSYM2 EQU RTCTSY01 04593000 RTCTSYM1 EQU RTCTSY01 04594000 RTCTSYM0 EQU RTCTSY01 04595000 RTCTSUP4 EQU RTCTSUP+3 04596000 RTCTSUDF EQU RTCTSUP3 04597000 RTCTSUDE EQU RTCTSUP3 04598000 RTCTSUDD EQU RTCTSUP3 04599000 RTCTSUDC EQU RTCTSUP3 04600000 RTCTSUDB EQU RTCTSUP3 04601000 RTCTSUDA EQU RTCTSUP3 04602000 RTCTSUD9 EQU RTCTSUP3 04603000 RTCTSUD8 EQU RTCTSUP3 04604000 @NM00046 EQU RTCTSUP2 04605000 RTCTSUDH EQU RTCTSUP2 04606000 RTCTSUDG EQU RTCTSUP2 04607000 RTCTSUD7 EQU RTCTSUP1 04608000 RTCTSUD6 EQU RTCTSUP1 04609000 RTCTSUD5 EQU RTCTSUP1 04610000 RTCTSUD4 EQU RTCTSUP1 04611000 RTCTSUD3 EQU RTCTSUP1 04612000 RTCTSUD2 EQU RTCTSUP1 04613000 RTCTSUD1 EQU RTCTSUP1 04614000 RTCTSUD0 EQU RTCTSUP1 04615000 RTCTSAP4 EQU RTCTSAP+3 04616000 RTCTSABF EQU RTCTSAP3 04617000 RTCTSABE EQU RTCTSAP3 04618000 RTCTSABD EQU RTCTSAP3 04619000 RTCTSABC EQU RTCTSAP3 04620000 RTCTSABB EQU RTCTSAP3 04621000 RTCTSABA EQU RTCTSAP3 04622000 RTCTSAB9 EQU RTCTSAP3 04623000 RTCTSAB8 EQU RTCTSAP3 04624000 @NM00045 EQU RTCTSAP2 04625000 RTCTSABH EQU RTCTSAP2 04626000 RTCTSABG EQU RTCTSAP2 04627000 RTCTSAB7 EQU RTCTSAP1 04628000 RTCTSAB6 EQU RTCTSAP1 04629000 RTCTSAB5 EQU RTCTSAP1 04630000 RTCTSAB4 EQU RTCTSAP1 04631000 RTCTSAB3 EQU RTCTSAP1 04632000 RTCTSAB2 EQU RTCTSAP1 04633000 RTCTSAB1 EQU RTCTSAP1 04634000 RTCTSAB0 EQU RTCTSAP1 04635000 RTCTNAME EQU RTCT 04636000 @NM00044 EQU FRRSFLGS+1 04637000 @NM00043 EQU FRRSFLG1 04638000 FRRSNEST EQU FRRSFLG1 04639000 FRRSRCUR EQU FRRSFLG1 04640000 FRRSENTS EQU FRRS+84 04641000 FRRSRTMW EQU FRRS+16 04642000 @NM00008 EQU PRDINPUT+382 04643000 @NM00007 EQU PRDINPUT+334 04644000 PRDERRID EQU PRDINPUT+324 04645000 @NM00006 EQU PRDINPUT+292 04646000 PRDCVT EQU PRDINPUT+288 04647000 PRDPSW EQU PRDREGS+160 04648000 PRDCR EQU PRDREGS+96 04649000 PRDGPR EQU PRDREGS+32 04650000 PRDTITLE EQU PRDINPUT+20 04651000 PRDTODVL EQU PRDINPUT+12 04652000 PRDMODNM EQU PRDINPUT+4 04653000 PRDRECID EQU PRDINPUT+1 04654000 GBLCELCT EQU GDA+60 04655000 GLBLCELL EQU GDA+56 04656000 CSASPQEP EQU GDA+52 04657000 PFSTCPAB EQU GDA+48 04658000 VRWLEL EQU VRWAITQ+4 04659000 VRWFEL EQU VRWAITQ 04660000 VRPLEL EQU VRPOSTQ+4 04661000 VRPFEL EQU VRPOSTQ 04662000 SQASPLFT EQU GDA+28 04663000 SQASPQEP EQU GDA+24 04664000 VRPQEP EQU GDA+12 04665000 CSAPQEP EQU GDA+8 04666000 VRDREG EQU GDA+4 04667000 RESV EQU GVSMFLAG+1 04668000 @NM00005 EQU GDAFLAGS 04669000 WAITQUE EQU GDAFLAGS 04670000 SQATHRS2 EQU GDAFLAGS 04671000 SQATHRS1 EQU GDAFLAGS 04672000 GDAFLAG2 EQU GDAFLAGS 04673000 NIPFOURK EQU GDAFLAGS 04674000 GDAFLAG1 EQU GDAFLAGS 04675000 @NM00004 EQU ERRWORK+18 04676000 ERRSAVE EQU ERRWORK+17 04677000 @NM00003 EQU ERRFLAG3 04678000 ERRSRBSD EQU ERRFLAG3 04679000 ERRDLOCK EQU ERRFLAG3 04680000 ERRTRMNT EQU ERRFLAG3 04681000 ERRCSDT EQU ERRFLAG3 04682000 ERRSDENQ EQU ERRFLAG3 04683000 ERRENDSW EQU ERRFLAG3 04684000 ERRNOTRM EQU ERRFLAG3 04685000 ERRWKADR EQU ERRWORK+8 04686000 ERRRUBSW EQU ERRWORK+2 04687000 ERRCDOUT EQU ERRFLGS2 04688000 ERRCUDMP EQU ERRFLGS2 04689000 ERRCMSLK EQU ERRFLGS2 04690000 ERRWKFIX EQU ERRFLGS2 04691000 ERRSDFIX EQU ERRFLGS2 04692000 ERRINIO EQU ERRFLGS2 04693000 ERRSLOCK EQU ERRFLGS1 04694000 ERRGTFGO EQU ERRFLGS1 04695000 ERRTCBND EQU ERRFLGS1 04696000 ERRBFBIT EQU ERRFLGS1 04697000 ERRSDBIT EQU ERRFLGS1 04698000 ERRESTAE EQU ERRFLGS1 04699000 CVTLEVL EQU CVTRELNO+2 04700000 CVTNUMB EQU CVTRELNO 04701000 CVTMDL EQU CVTFIX+250 04702000 @NM00002 EQU CVTFIX+248 04703000 @NM00001 EQU CVTFIX 04704000 CVTRV482 EQU CVTXTNT2+128 04705000 CVTRV481 EQU CVTXTNT2+124 04706000 CVTRV480 EQU CVTXTNT2+120 04707000 CVTRV479 EQU CVTXTNT2+118 04708000 CVTRV478 EQU CVTXTNT2+117 04709000 CVTRV477 EQU CVTXTNT2+116 04710000 CVTRV476 EQU CVTXTNT2+115 04711000 CVTRV475 EQU CVTXTNT2+114 04712000 CVTRV474 EQU CVTRV466 04713000 CVTRV473 EQU CVTRV466 04714000 CVTRV472 EQU CVTRV466 04715000 CVTRV471 EQU CVTRV466 04716000 CVTRV470 EQU CVTRV466 04717000 CVTRV469 EQU CVTRV466 04718000 CVTRV468 EQU CVTRV466 04719000 CVTRV467 EQU CVTRV466 04720000 CVTRV465 EQU CVTRV457 04721000 CVTRV464 EQU CVTRV457 04722000 CVTRV463 EQU CVTRV457 04723000 CVTRV462 EQU CVTRV457 04724000 CVTRV461 EQU CVTRV457 04725000 CVTRV460 EQU CVTRV457 04726000 CVTRV459 EQU CVTRV457 04727000 CVTRV458 EQU CVTRV457 04728000 CVTRV456 EQU CVTXTNT2+108 04729000 CVTRV455 EQU CVTXTNT2+104 04730000 CVTRV454 EQU CVTXTNT2+100 04731000 CVTRV453 EQU CVTXTNT2+96 04732000 CVTRV452 EQU CVTXTNT2+94 04733000 CVTRV451 EQU CVTXTNT2+92 04734000 CVTRV450 EQU CVTXTNT2+90 04735000 CVTRV449 EQU CVTXTNT2+88 04736000 CVTRV448 EQU CVTXTNT2+87 04737000 CVTRV447 EQU CVTXTNT2+86 04738000 CVTRV446 EQU CVTRV438 04739000 CVTRV445 EQU CVTRV438 04740000 CVTRV444 EQU CVTRV438 04741000 CVTRV443 EQU CVTRV438 04742000 CVTRV442 EQU CVTRV438 04743000 CVTRV441 EQU CVTRV438 04744000 CVTRV440 EQU CVTRV438 04745000 CVTRV439 EQU CVTRV438 04746000 CVTRV437 EQU CVTRV429 04747000 CVTRV436 EQU CVTRV429 04748000 CVTRV435 EQU CVTRV429 04749000 CVTRV434 EQU CVTRV429 04750000 CVTRV433 EQU CVTRV429 04751000 CVTRV432 EQU CVTRV429 04752000 CVTRV431 EQU CVTRV429 04753000 CVTRV430 EQU CVTRV429 04754000 CVTRV428 EQU CVTXTNT2+80 04755000 CVTRV427 EQU CVTXTNT2+76 04756000 CVTRV426 EQU CVTXTNT2+72 04757000 CVTRV425 EQU CVTXTNT2+68 04758000 CVTATACT EQU CVTATCVT 04759000 CVTRV423 EQU CVTXTNT2+62 04760000 CVTRV422 EQU CVTXTNT2+60 04761000 CVTRV421 EQU CVTXTNT2+58 04762000 CVTRV420 EQU CVTXTNT2+56 04763000 CVTRV419 EQU CVTXTNT2+55 04764000 CVTRV418 EQU CVTXTNT2+54 04765000 CVTRV417 EQU CVTRV409 04766000 CVTRV416 EQU CVTRV409 04767000 CVTRV415 EQU CVTRV409 04768000 CVTRV414 EQU CVTRV409 04769000 CVTRV413 EQU CVTRV409 04770000 CVTRV412 EQU CVTRV409 04771000 CVTRV411 EQU CVTRV409 04772000 CVTRV410 EQU CVTRV409 04773000 CVTRV408 EQU CVTRV400 04774000 CVTRV407 EQU CVTRV400 04775000 CVTRV406 EQU CVTRV400 04776000 CVTRV405 EQU CVTRV400 04777000 CVTRV404 EQU CVTRV400 04778000 CVTRV403 EQU CVTRV400 04779000 CVTRV402 EQU CVTRV400 04780000 CVTRV401 EQU CVTRV400 04781000 CVTICB EQU CVTXTNT2+48 04782000 CVTSKTA EQU CVTXTNT2+44 04783000 CVTCCVT EQU CVTXTNT2+40 04784000 CVTRSV98 EQU CVTXTNT2+36 04785000 CVTRSV97 EQU CVTXTNT2+34 04786000 CVTRSV96 EQU CVTXTNT2+32 04787000 CVTOLTEP EQU CVTXTNT2+28 04788000 CVTQIDA EQU CVTQID+1 04789000 CVTRSV95 EQU CVTQID 04790000 CVTRSV94 EQU CVTXTNT2+20 04791000 CVTRSV93 EQU CVTXTNT2+16 04792000 CVTRSV92 EQU CVTXTNT2+12 04793000 CVTDEBVR EQU CVTXTNT2+8 04794000 CVTRSV91 EQU CVTXTNT2+6 04795000 CVTRSV9H EQU CVTFLGBT 04796000 CVTRSV9G EQU CVTFLGBT 04797000 CVTRSV9F EQU CVTFLGBT 04798000 CVTRSV9E EQU CVTFLGBT 04799000 CVTRSV9D EQU CVTFLGBT 04800000 CVTBAH EQU CVTFLGBT 04801000 CVTVME EQU CVTFLGBT 04802000 CVTNPE EQU CVTFLGBT 04803000 CVTNUCLS EQU CVTXTNT2+4 04804000 CVTDSSVA EQU CVTDSSV+1 04805000 CVTRSV89 EQU CVTDSSV 04806000 CVTRSV88 EQU CVTXTNT1+8 04807000 CVTRSV87 EQU CVTXTNT1+4 04808000 CVTFACHN EQU CVTXTNT1 04809000 CVTRV488 EQU CVTMAP+412 04810000 CVTRV487 EQU CVTMAP+408 04811000 CVTRV486 EQU CVTMAP+404 04812000 CVTRV485 EQU CVTMAP+400 04813000 CVTACTAP EQU CVTMAP+396 04814000 CVTAUTH EQU CVTMAP+392 04815000 CVTRV490 EQU CVTMAP+388 04816000 CVTSU EQU CVTMAP+384 04817000 CVTVOLT1 EQU CVTVOLM1+1 04818000 CVTVOLI1 EQU CVTVOLF1 04819000 CVTSTOA EQU CVTMAP+376 04820000 CVTRSV58 EQU CVTMAP+374 04821000 CVTRSV57 EQU CVTMAP+372 04822000 CVTDDCE EQU CVTMAP+368 04823000 CVTPNWFR EQU CVTMAP+364 04824000 CVTSMF EQU CVTMAP+360 04825000 CVTSULK EQU CVTMAP+358 04826000 CVTSLKO EQU CVTSYSK 04827000 CVTSLKP EQU CVTSYSK 04828000 CVTSLKQ EQU CVTSYSK 04829000 CVTSLKR EQU CVTSYSK 04830000 CVTRSV56 EQU CVTSYSK 04831000 CVTRSV55 EQU CVTSYSK 04832000 CVTRSV54 EQU CVTSYSK 04833000 CVTRSV53 EQU CVTSYSK 04834000 CVTRSV52 EQU CVTA1F1 04835000 CVTRSV51 EQU CVTA1F1 04836000 CVTRSV50 EQU CVTA1F1 04837000 CVTRSV49 EQU CVTA1F1 04838000 CVTRSV48 EQU CVTA1F1 04839000 CVTRSV47 EQU CVTA1F1 04840000 CVTSRSW EQU CVTA1F1 04841000 CVTPFSW EQU CVTA1F1 04842000 CVTPCVT EQU CVTMAP+352 04843000 CVTRSV46 EQU CVTMAP+344 04844000 CVTRSV45 EQU CVTMAP+340 04845000 CVTRSV44 EQU CVTMAP+338 04846000 CVTRSV43 EQU CVTMAP+336 04847000 CVTHJESA EQU CVTHJES+1 04848000 CVTRSV42 EQU CVTHJES 04849000 CVTEXT2A EQU CVTEXT2+1 04850000 CVTRSV41 EQU CVTEXT2 04851000 CVTAPFA EQU CVTAPF+1 04852000 CVTRSV40 EQU CVTAPF 04853000 CVTRV518 EQU CVTINTLA 04854000 CVTRV517 EQU CVTERPV 04855000 CVTEORM EQU CVTMAP+312 04856000 CVTMCHPR EQU CVTMAP+308 04857000 CVTTZ EQU CVTMAP+304 04858000 CVTJEPS EQU CVTMAP+300 04859000 CVTJESCT EQU CVTMAP+296 04860000 CVTMODE EQU CVTMAP+292 04861000 CVTPTRV EQU CVTMAP+288 04862000 CVTREAL EQU CVTMAP+284 04863000 CVTRSV39 EQU CVTMAP+280 04864000 CVTRSV38 EQU CVTMAP+276 04865000 CVTDMSRA EQU CVTDMSR+1 04866000 CVTRV634 EQU CVTDMSRF 04867000 CVTRV633 EQU CVTDMSRF 04868000 CVTRV632 EQU CVTDMSRF 04869000 CVTRV631 EQU CVTDMSRF 04870000 CVTRV630 EQU CVTDMSRF 04871000 CVTRV629 EQU CVTDMSRF 04872000 CVTUDUMP EQU CVTDMSRF 04873000 CVTSDUMP EQU CVTDMSRF 04874000 CVTQMSGA EQU CVTQMSG+1 04875000 CVTRSV36 EQU CVTQMSG 04876000 CVTAMFF EQU CVTMAP+264 04877000 CVTPURGA EQU CVTPURG+1 04878000 CVTRSV35 EQU CVTPURG 04879000 CVTCBSP EQU CVTMAP+256 04880000 CVTATERA EQU CVTATER+1 04881000 CVTSYST EQU CVTATER 04882000 CVTVOLT2 EQU CVTTAT 04883000 CVTVOLI2 EQU CVTVOLF2 04884000 CVTAQAVB EQU CVTAQAVT+1 04885000 CVTRSV34 EQU CVTTCMFG 04886000 CVTRSV33 EQU CVTTCMFG 04887000 CVTRSV32 EQU CVTTCMFG 04888000 CVTRSV31 EQU CVTTCMFG 04889000 CVTRSV30 EQU CVTTCMFG 04890000 CVTRSV29 EQU CVTTCMFG 04891000 CVTLDEV EQU CVTTCMFG 04892000 CVTTCRDY EQU CVTTCMFG 04893000 CVTGTFA EQU CVTGTF+1 04894000 CVTRSV27 EQU CVTGTFST 04895000 CVTRNIO EQU CVTGTFST 04896000 CVTUSR EQU CVTGTFST 04897000 CVTRV318 EQU CVTFORM 04898000 CVTRV317 EQU CVTTMODE 04899000 CVTRV316 EQU CVTSTATE 04900000 CVTRV315 EQU CVTGTFS 04901000 CVT0SCR1 EQU CVTMAP+232 04902000 CVTRV515 EQU CVTMAP+228 04903000 CVTRMS EQU CVTMAP+224 04904000 CVTPATCH EQU CVTMAP+220 04905000 CVTTSCE EQU CVTMAP+216 04906000 CVTLNKSC EQU CVTMAP+214 04907000 CVTQABST EQU CVTMAP+212 04908000 CVTMDLDS EQU CVTMAP+208 04909000 CVTUSER EQU CVTMAP+204 04910000 CVTABEND EQU CVTMAP+200 04911000 CVTSMCA EQU CVTMAP+196 04912000 CVTRSV18 EQU CVTMAP+192 04913000 CVTQLPAQ EQU CVTMAP+188 04914000 CVTQCDSR EQU CVTMAP+184 04915000 CVTVS1B EQU CVTOPTB 04916000 CVTVS1A EQU CVTOPTB 04917000 CVTFP EQU CVTOPTB 04918000 CVTAPTHR EQU CVTOPTB 04919000 CVTNLOG EQU CVTOPTB 04920000 CVTTOD EQU CVTOPTB 04921000 CVTCTIMS EQU CVTOPTB 04922000 CVTPROT EQU CVTOPTB 04923000 CVTXPFP EQU CVTOPTA 04924000 CVTASCII EQU CVTOPTA 04925000 CVTRSV13 EQU CVTOPTA 04926000 CVTRSV12 EQU CVTOPTA 04927000 CVTNIP EQU CVTOPTA 04928000 CVTDDR EQU CVTOPTA 04929000 CVTAPR EQU CVTOPTA 04930000 CVTCCH EQU CVTOPTA 04931000 CVTSNCTR EQU CVTMAP+180 04932000 CVTQMWR EQU CVTMAP+176 04933000 CVTQOCR EQU CVTMAP+172 04934000 CVT1EF00 EQU CVTMAP+168 04935000 CVTMZ00 EQU CVTMAP+164 04936000 CVTSV76Q EQU CVTSV76C 04937000 CVTRSV11 EQU CVTMAP+156 04938000 CVT0PT01 EQU CVTMAP+152 04939000 CVTMSER EQU CVTMAP+148 04940000 CVTRV516 EQU CVTIERLC 04941000 CVTILCH EQU CVTMAP+140 04942000 CVT0DS EQU CVTMAP+136 04943000 CVTFBOSV EQU CVTMAP+132 04944000 CVTNUCB EQU CVTMAP+128 04945000 CVTIXAVL EQU CVTMAP+124 04946000 CVTSV76M EQU CVTIOQET 04947000 CVTDCBA EQU CVTMAP+117 04948000 CVTMVS2 EQU CVTDCB 04949000 CVT6DAT EQU CVTDCB 04950000 CVT4MPS EQU CVTDCB 04951000 CVTRSV09 EQU CVTDCB 04952000 CVT4MS1 EQU CVTDCB 04953000 CVT2SPS EQU CVTDCB 04954000 CVT1SSS EQU CVTDCB 04955000 CVTRSV08 EQU CVTDCB 04956000 CVTSTB EQU CVTMAP+112 04957000 CVTQTD00 EQU CVTMAP+108 04958000 CVTQTE00 EQU CVTMAP+104 04959000 CVTCUCB EQU CVTMAP+100 04960000 CVTSJQ EQU CVTMAP+96 04961000 CVTPBLDL EQU CVTMAP+92 04962000 CVTTPC EQU CVTMAP+88 04963000 CVTSVDCB EQU CVTMAP+84 04964000 CVTBRET EQU CVTMAP+82 04965000 CVTEXIT EQU CVTMAP+80 04966000 CVT0FN00 EQU CVTMAP+76 04967000 CVTDARA EQU CVTDAR+1 04968000 CVTRSV07 EQU CVTFLGS1 04969000 CVTRSV06 EQU CVTFLGS1 04970000 CVTRSV05 EQU CVTFLGS1 04971000 CVTRSV04 EQU CVTFLGS1 04972000 CVTRSV03 EQU CVTFLGS1 04973000 CVTRSV02 EQU CVTFLGS1 04974000 CVTRSV01 EQU CVTFLGS1 04975000 CVTDMPLK EQU CVTFLGS1 04976000 CVTXITP EQU CVTMAP+68 04977000 CVTZDTAB EQU CVTMAP+64 04978000 CVTMSLT EQU CVTMAP+60 04979000 CVTDATE EQU CVTMAP+56 04980000 CVTBTERM EQU CVTMAP+52 04981000 CVTSYSAD EQU CVTMAP+48 04982000 CVTXTLER EQU CVTMAP+44 04983000 CVTILK2 EQU CVTMAP+40 04984000 CVTILK1 EQU CVTMAP+36 04985000 CVTPRLTV EQU CVTMAP+32 04986000 CVTPCNVT EQU CVTMAP+28 04987000 CVT0VL00 EQU CVTMAP+24 04988000 CVTXAPG EQU CVTMAP+20 04989000 CVTBUF EQU CVTMAP+16 04990000 CVTJOB EQU CVTMAP+12 04991000 CVTLINK EQU CVTMAP+8 04992000 CVT0EF00 EQU CVTMAP+4 04993000 CVTTCBP EQU CVTMAP 04994000 CVT EQU CVTMAP 04995000 ASXBEND EQU ASXB+232 04996000 ASXBRV25 EQU ASXB+228 04997000 ASXBRV24 EQU ASXB+224 04998000 ASXBPT0E EQU ASXB+220 04999000 ASXBCRB4 EQU ASXBCASW+3 05000000 ASXBCRB3 EQU ASXBCASW+2 05001000 ASXBCRB2 EQU ASXBCASW+1 05002000 ASXBCR06 EQU ASXBCRB1 05003000 ASXBCR05 EQU ASXBCRB1 05004000 ASXBCR04 EQU ASXBCRB1 05005000 ASXBCR03 EQU ASXBCRB1 05006000 ASXBCR02 EQU ASXBCRB1 05007000 ASXBCR01 EQU ASXBCRB1 05008000 ASXBTFD EQU ASXBCRB1 05009000 ASXBPIP EQU ASXBCRB1 05010000 ASXBCTDC EQU ASXB+212 05011000 ASXBTDCB EQU ASXB+208 05012000 ASXBRV19 EQU ASXB+204 05013000 ASXBSENV EQU ASXBSECR+1 05014000 ASXBRV34 EQU ASCBSFLG 05015000 ASXBRV33 EQU ASCBSFLG 05016000 ASXBRV32 EQU ASCBSFLG 05017000 ASXBRV31 EQU ASCBSFLG 05018000 ASXBRV30 EQU ASCBSFLG 05019000 ASXBRV29 EQU ASCBSFLG 05020000 ASXBRV28 EQU ASCBSFLG 05021000 ASXBRV27 EQU ASCBSFLG 05022000 ASXBUSER EQU ASXB+192 05023000 ASXBLSRB EQU ASXBAEQ+20 05024000 ASXBFSRB EQU ASXBAEQ+16 05025000 ASXBLRQE EQU ASXBAEQ+12 05026000 ASXBFRQE EQU ASXBAEQ+8 05027000 ASXBLIQE EQU ASXBAEQ+4 05028000 ASXBFIQE EQU ASXBAEQ 05029000 ASXBETSK EQU ASXB+164 05030000 ASXBSIRB EQU ASXB+160 05031000 ASXBPSWD EQU ASXB+152 05032000 ASXBPRG EQU ASXB+136 05033000 ASXBRV26 EQU ASXB+132 05034000 ASXBOUSB EQU ASXB+128 05035000 ASXBDDR EQU ASXB+124 05036000 ASXBRCTD EQU ASXB+120 05037000 ASXBRSMD EQU ASXB+116 05038000 ASXBSPSA EQU ASXB+112 05039000 ASXBFRWA EQU ASXB+108 05040000 ASXBFLSA EQU ASXB+36 05041000 ASXBIHSA EQU ASXB+32 05042000 ASXBRV15 EQU ASXB+28 05043000 ASXBRV14 EQU ASXB+24 05044000 ASXBLWA EQU ASXB+20 05045000 ASXBMPST EQU ASXB+16 05046000 ASXBRS00 EQU ASXB+14 05047000 ASXBTCBS EQU ASXB+12 05048000 ASXBASXB EQU ASXB 05049000 ASXBEGIN EQU ASXB 05050000 ASCBEND EQU ASCB+208 05051000 ASCBSRBT EQU ASCB+200 05052000 ASCBSWTL EQU ASCB+196 05053000 ASCBRS14 EQU ASCB+195 05054000 ASCBSMCT EQU ASCB+194 05055000 ASCBRS12 EQU ASCB+192 05056000 ASCBPCTT EQU ASCB+188 05057000 ASCBVGTT EQU ASCB+184 05058000 ASCBRV43 EQU ASCBSRQ4 05059000 ASCBRV42 EQU ASCBSRQ4 05060000 ASCBRV41 EQU ASCBSRQ4 05061000 ASCBRV40 EQU ASCBSRQ4 05062000 ASCBRV39 EQU ASCBSRQ4 05063000 ASCBRV38 EQU ASCBSRQ4 05064000 ASCBRV37 EQU ASCBSRQ4 05065000 ASCBRV36 EQU ASCBSRQ4 05066000 ASCBRV35 EQU ASCBSRQ3 05067000 ASCBRV34 EQU ASCBSRQ3 05068000 ASCBRV33 EQU ASCBSRQ3 05069000 ASCBRV32 EQU ASCBSRQ3 05070000 ASCBRV31 EQU ASCBSRQ3 05071000 ASCBRV30 EQU ASCBSRQ3 05072000 ASCBRV29 EQU ASCBSRQ3 05073000 ASCBRV28 EQU ASCBSRQ3 05074000 ASCBRV27 EQU ASCBSRQ2 05075000 ASCBRV26 EQU ASCBSRQ2 05076000 ASCBRV25 EQU ASCBSRQ2 05077000 ASCBRV24 EQU ASCBSRQ2 05078000 ASCBRV23 EQU ASCBSRQ2 05079000 ASCBRV22 EQU ASCBSRQ2 05080000 ASCBRV21 EQU ASCBSRQ2 05081000 ASCBRV20 EQU ASCBSRQ2 05082000 ASCBRV19 EQU ASCBSRQ1 05083000 ASCBRV18 EQU ASCBSRQ1 05084000 ASCBRV17 EQU ASCBSRQ1 05085000 ASCBRV16 EQU ASCBSRQ1 05086000 ASCBRV15 EQU ASCBSRQ1 05087000 ASCBRV14 EQU ASCBSRQ1 05088000 ASCBRV13 EQU ASCBSRQ1 05089000 ASCBSTA EQU ASCBSRQ1 05090000 ASCBJBNS EQU ASCB+176 05091000 ASCBJBNI EQU ASCB+172 05092000 ASCBMCC EQU ASCB+168 05093000 ASCBRTWA EQU ASCB+164 05094000 ASCBIQEA EQU ASCB+160 05095000 ASCBXMPQ EQU ASCB+156 05096000 ASCBRS01 EQU ASCB+154 05097000 ASCBFMCT EQU ASCB+152 05098000 ASCBOUXB EQU ASCB+148 05099000 ASCBOUCB EQU ASCB+144 05100000 ASCBMECB EQU ASCB+140 05101000 ASCBQECB EQU ASCB+136 05102000 ASCBLSQH EQU ASCBLKGP+4 05103000 ASCBLOCK EQU ASCBLKGP 05104000 ASCBTCBS EQU ASCB+124 05105000 ASCBNVSC EQU ASCB+122 05106000 ASCBVSC EQU ASCB+120 05107000 ASCBSRBS EQU ASCB+118 05108000 ASCBSSRB EQU ASCB+116 05109000 ASCBRV06 EQU ASCBFLG2 05110000 ASCBRV05 EQU ASCBFLG2 05111000 ASCBRV04 EQU ASCBFLG2 05112000 ASCBSNQS EQU ASCBFLG2 05113000 ASCBS2S EQU ASCBFLG2 05114000 ASCBCEXT EQU ASCBFLG2 05115000 ASCBPXMT EQU ASCBFLG2 05116000 ASCBXMPT EQU ASCBFLG2 05117000 ASCBRF07 EQU ASCBDSP1 05118000 ASCBRF06 EQU ASCBDSP1 05119000 ASCBRF05 EQU ASCBDSP1 05120000 ASCBRF04 EQU ASCBDSP1 05121000 ASCBRF03 EQU ASCBDSP1 05122000 ASCBRF02 EQU ASCBDSP1 05123000 ASCBFAIL EQU ASCBDSP1 05124000 ASCBNOQ EQU ASCBDSP1 05125000 ASCBSWCT EQU ASCB+112 05126000 ASCBTMCH EQU ASCB+104 05127000 ASCBNSWP EQU ASCBFLG1 05128000 ASCBTYP1 EQU ASCBFLG1 05129000 ASCBSTND EQU ASCBFLG1 05130000 ASCBABNT EQU ASCBFLG1 05131000 ASCBTERM EQU ASCBFLG1 05132000 ASCBS3S EQU ASCBFLG1 05133000 ASCBCMSH EQU ASCBFLG1 05134000 ASCBTOFF EQU ASCBFLG1 05135000 ASCBRF01 EQU ASCBRCTF 05136000 ASCBTMLW EQU ASCBRCTF 05137000 ASCBOUT EQU ASCBRCTF 05138000 ASCBWAIT EQU ASCBRCTF 05139000 ASCBRV08 EQU ASCBRCTF 05140000 ASCBFQU EQU ASCBRCTF 05141000 ASCBFRS EQU ASCBRCTF 05142000 ASCBTMNO EQU ASCBRCTF 05143000 ASCBAFFN EQU ASCBFW1 05144000 ASCBDUMP EQU ASCB+96 05145000 ASCBRV44 EQU ASCB+92 05146000 ASCBUBET EQU ASCB+88 05147000 ASCBECB EQU ASCB+84 05148000 ASCBJSTL EQU ASCB+80 05149000 ASCBEWST EQU ASCB+72 05150000 ASCBEJST EQU ASCB+64 05151000 ASCBTSB EQU ASCB+60 05152000 ASCBCSCB EQU ASCB+56 05153000 ASCBRSMA EQU ASCBRSM+1 05154000 ASCBRV54 EQU ASCBRSMF 05155000 ASCBRV53 EQU ASCBRSMF 05156000 ASCBRV52 EQU ASCBRSMF 05157000 ASCBRV51 EQU ASCBRSMF 05158000 ASCBVEQR EQU ASCBRSMF 05159000 ASCBN2LP EQU ASCBRSMF 05160000 ASCB1LPU EQU ASCBRSMF 05161000 ASCB2LPU EQU ASCBRSMF 05162000 ASCBLDA EQU ASCB+48 05163000 ASCBSTOR EQU ASCB+44 05164000 ASCBDP EQU ASCB+43 05165000 ASCBRV07 EQU ASCB+42 05166000 ASCBIOSM EQU ASCB+40 05167000 ASCBSEQN EQU ASCB+38 05168000 ASCBCPUS EQU ASCB+32 05169000 ASCBSPL EQU ASCB+28 05170000 ASCBIOSP EQU ASCB+24 05171000 ASCBSYNC EQU ASCBSUPC+4 05172000 ASCBSVRB EQU ASCBSUPC 05173000 ASCBCMSF EQU ASCB+12 05174000 ASCBBWDP EQU ASCB+8 05175000 ASCBFWDP EQU ASCB+4 05176000 ASCBASCB EQU ASCB 05177000 ASCBEGIN EQU ASCB 05178000 @NM00042 EQU PSA+3668 05179000 PSASTAK EQU PSA+3072 05180000 @NM00041 EQU PSA+1048 05181000 PSAUSEND EQU PSA+1048 05182000 PSARV062 EQU PSA+1044 05183000 PSACDAL EQU PSA+1040 05184000 PSAWTCOD EQU PSA+1036 05185000 PSAATCVT EQU PSA+1032 05186000 PSAPCPSW EQU PSA+1024 05187000 PSAPIR2 EQU PSA+1020 05188000 PSARV059 EQU PSA+1018 05189000 PSASVC13 EQU PSA+1016 05190000 PSASFACC EQU PSA+1008 05191000 PSASTOP EQU PSA+992 05192000 PSASTART EQU PSA+976 05193000 PSARSPSW EQU PSA+968 05194000 PSASRPSW EQU PSA+960 05195000 PSARV045 EQU PSA+892 05196000 PSARV044 EQU PSA+888 05197000 PSARV043 EQU PSA+884 05198000 PSARV042 EQU PSA+880 05199000 PSARV041 EQU PSA+876 05200000 PSARV040 EQU PSA+872 05201000 PSARV025 EQU PSA+868 05202000 PSADSSED EQU PSA+868 05203000 PSADSSPR EQU PSA+864 05204000 PSADSSFW EQU PSA+860 05205000 PSADSS14 EQU PSA+856 05206000 PSADSSPP EQU PSA+848 05207000 PSADSSRP EQU PSA+840 05208000 PSADSS05 EQU PSADSSF4 05209000 PSADSS10 EQU PSADSSF4 05210000 PSADSSVE EQU PSADSSF4 05211000 PSADSSDE EQU PSADSSF4 05212000 PSADSSC0 EQU PSADSSF4 05213000 PSADSSIE EQU PSADSSF4 05214000 PSADSS12 EQU PSADSSF4 05215000 PSADSSRC EQU PSADSSF4 05216000 PSARV057 EQU PSADSSF3 05217000 PSARV056 EQU PSADSSF3 05218000 PSARV055 EQU PSADSSF3 05219000 PSADSSMC EQU PSADSSF3 05220000 PSADSSRW EQU PSADSSF3 05221000 PSADSSNM EQU PSADSSF3 05222000 PSADSSES EQU PSADSSF3 05223000 PSADSSGP EQU PSADSSF3 05224000 PSADSSF2 EQU PSADSSFL+1 05225000 PSADSSPI EQU PSADSSF1 05226000 PSADSSOI EQU PSADSSF1 05227000 PSADSSSP EQU PSADSSF1 05228000 PSADSSTP EQU PSADSSF1 05229000 PSADSSDW EQU PSADSSF1 05230000 PSADSSDD EQU PSADSSF1 05231000 PSADSSDM EQU PSADSSF1 05232000 PSADSSMV EQU PSADSSF1 05233000 PSADSSTS EQU PSA+816 05234000 PSADSSWK EQU PSA+812 05235000 PSADSSR3 EQU PSA+808 05236000 PSADSSR2 EQU PSA+804 05237000 PSADSSRS EQU PSA+800 05238000 PSASTOR EQU PSA+796 05239000 PSACPUSA EQU PSA+794 05240000 PSAVSTAP EQU PSA+792 05241000 PSAWKVAP EQU PSA+788 05242000 PSAWKRAP EQU PSA+784 05243000 PSAMCHIC EQU PSA+783 05244000 PSARV061 EQU PSA+782 05245000 PSASYMSK EQU PSA+781 05246000 PSAMCHFL EQU PSA+780 05247000 PSACR0 EQU PSA+776 05248000 PSAPSWSV EQU PSA+768 05249000 PSACLHS EQU PSAHLHI 05250000 PSALKR15 EQU PSALKSA+60 05251000 PSALKR14 EQU PSALKSA+56 05252000 PSALKR13 EQU PSALKSA+52 05253000 PSALKR12 EQU PSALKSA+48 05254000 PSALKR11 EQU PSALKSA+44 05255000 PSALKR10 EQU PSALKSA+40 05256000 PSALKR9 EQU PSALKSA+36 05257000 PSALKR8 EQU PSALKSA+32 05258000 PSALKR7 EQU PSALKSA+28 05259000 PSALKR6 EQU PSALKSA+24 05260000 PSALKR5 EQU PSALKSA+20 05261000 PSALKR4 EQU PSALKSA+16 05262000 PSALKR3 EQU PSALKSA+12 05263000 PSALKR2 EQU PSALKSA+8 05264000 PSALKR1 EQU PSALKSA+4 05265000 PSALKR0 EQU PSALKSA 05266000 PSARV023 EQU PSACLHT+52 05267000 PSALOCAL EQU PSACLHT+48 05268000 PSACMSL EQU PSACLHT+44 05269000 PSAOPTL EQU PSACLHT+40 05270000 PSATPACL EQU PSACLHT+36 05271000 PSATPDNL EQU PSACLHT+32 05272000 PSATPNCL EQU PSACLHT+28 05273000 PSAIOSLL EQU PSACLHT+24 05274000 PSAIOSUL EQU PSACLHT+20 05275000 PSAIOSCL EQU PSACLHT+16 05276000 PSAIOSSL EQU PSACLHT+12 05277000 PSASALCL EQU PSACLHT+8 05278000 PSAASML EQU PSACLHT+4 05279000 PSADISPL EQU PSACLHT 05280000 PSASRSA EQU PSA+636 05281000 PSARV050 EQU PSA+634 05282000 PSADSSGO EQU PSA+633 05283000 PSARECUR EQU PSA+632 05284000 PSAHLHIS EQU PSA+628 05285000 PSAIPCSA EQU PSA+624 05286000 @NM00040 EQU PSA+621 05287000 PSAIPCDM EQU PSA+620 05288000 PSAIPCD EQU PSA+616 05289000 @NM00039 EQU PSA+613 05290000 PSAIPCRM EQU PSA+612 05291000 PSAIPCR EQU PSA+608 05292000 PSAMCHEX EQU PSA+600 05293000 PSAMPSW EQU PSA+592 05294000 PSAEXPS2 EQU PSA+584 05295000 PSAEXPS1 EQU PSA+576 05296000 PSAPIREG EQU PSA+572 05297000 PSARSREG EQU PSA+568 05298000 PSAGPREG EQU PSA+556 05299000 PSARV022 EQU PSASUP4 05300000 PSARV021 EQU PSASUP4 05301000 PSARV020 EQU PSASUP4 05302000 PSARV019 EQU PSASUP4 05303000 PSARV018 EQU PSASUP4 05304000 PSARV017 EQU PSASUP4 05305000 PSARV016 EQU PSASUP4 05306000 PSARV015 EQU PSASUP4 05307000 PSARV014 EQU PSASUP3 05308000 PSAULCMS EQU PSASUP3 05309000 PSARV012 EQU PSASUP3 05310000 PSAESTA EQU PSASUP3 05311000 PSASPR EQU PSASUP3 05312000 PSAPSREG EQU PSASUP3 05313000 PSAPI2 EQU PSASUP3 05314000 PSAIOSUP EQU PSASUP3 05315000 PSALCR EQU PSASUP2 05316000 PSARTM EQU PSASUP2 05317000 PSAACR EQU PSASUP2 05318000 PSAIPCE2 EQU PSASUP2 05319000 PSAIPCES EQU PSASUP2 05320000 PSAIPCEC EQU PSASUP2 05321000 PSAGTF EQU PSASUP2 05322000 PSAIPCRI EQU PSASUP2 05323000 PSATYPE6 EQU PSASUP1 05324000 PSATCTL EQU PSASUP1 05325000 PSADISP EQU PSASUP1 05326000 PSALOCK EQU PSASUP1 05327000 PSAPI EQU PSASUP1 05328000 PSAEXT EQU PSASUP1 05329000 PSASVC EQU PSASUP1 05330000 PSAIO EQU PSASUP1 05331000 PSAANEW EQU PSA+544 05332000 PSATOLD EQU PSA+540 05333000 PSATNEW EQU PSA+536 05334000 PSALCCAR EQU PSA+532 05335000 PSALCCAV EQU PSA+528 05336000 PSAPCCAR EQU PSA+524 05337000 PSAPCCAV EQU PSA+520 05338000 PSACPULA EQU PSA+518 05339000 PSACPUPA EQU PSA+516 05340000 PSAPSA EQU PSA+512 05341000 FLCHDEND EQU PSA+512 05342000 FLCCRSAV EQU FLCMCLA+280 05343000 FLCGRSAV EQU FLCMCLA+216 05344000 FLCFPSAV EQU FLCMCLA+184 05345000 FLCFLA EQU FLCMCLA+88 05346000 FLCRGNCD EQU FLCMCLA+84 05347000 FLCFSAA EQU FLCFSA+1 05348000 @NM00038 EQU FLCFSA 05349000 @NM00037 EQU FLCMCLA+72 05350000 FLCMCIC EQU FLCMCLA+64 05351000 @NM00036 EQU FLCMCLA+20 05352000 FLCIOAA EQU FLCIOA+1 05353000 @NM00035 EQU FLCIOA 05354000 @NM00034 EQU FLCMCLA+15 05355000 @NM00033 EQU FLCMCLA+14 05356000 @NM00032 EQU FLCMCLA+12 05357000 FLCLCL EQU FLCMCLA+8 05358000 FLCIOELA EQU FLCIOEL+1 05359000 @NM00031 EQU FLCIOEL 05360000 FLCCHNID EQU FLCMCLA 05361000 @NM00030 EQU PSA+160 05362000 FLCMTRCD EQU PSA+157 05363000 @NM00029 EQU PSA+156 05364000 FLCPERA EQU FLCPER+1 05365000 @NM00028 EQU FLCPER 05366000 @NM00027 EQU PSA+151 05367000 FLCPERCD EQU PSA+150 05368000 FLCMCNUM EQU PSA+149 05369000 @NM00026 EQU PSA+148 05370000 FLCTEAA EQU FLCTEA+1 05371000 @NM00025 EQU FLCTEA 05372000 PSAPIPC EQU PSAPICOD 05373000 PSAPIMC EQU PSAPICOD 05374000 PSAPIPER EQU PSAPICOD 05375000 PSARV049 EQU FLCPICOD 05376000 FLCPILCB EQU FLCPIILC 05377000 @NM00024 EQU FLCPIILC 05378000 @NM00023 EQU PSAEPPSW 05379000 FLCSVCN EQU PSAESPSW+2 05380000 FLCSILCB EQU FLCSVILC 05381000 @NM00022 EQU FLCSVILC 05382000 @NM00021 EQU PSAESPSW 05383000 FLCEICOD EQU PSAEEPSW+2 05384000 PSASPAD EQU PSAEEPSW 05385000 @NM00020 EQU PSA+128 05386000 FLCINPSW EQU PSA+120 05387000 FLCMNPSW EQU PSA+112 05388000 FLCPNPSW EQU PSA+104 05389000 FLCSNPSW EQU PSA+96 05390000 FLCENPSW EQU PSA+88 05391000 FLCTIMER EQU PSA+80 05392000 FLCCVT2 EQU PSA+76 05393000 FLCCAW EQU PSA+72 05394000 FLCCSW EQU PSA+64 05395000 FLCIOPSW EQU PSA+56 05396000 FLCMOPSW EQU PSA+48 05397000 FLCPOPSW EQU PSA+40 05398000 FLCSOPSW EQU PSA+32 05399000 FLCEOPSW EQU PSA+24 05400000 @NM00019 EQU FLCICCW2+4 05401000 FLCICCW1 EQU FLCROPSW 05402000 FLCIPPSW EQU FLCRNPSW 05403000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 05404000 @RC00209 EQU @RC00188 05405000 @RF00430 EQU CHECKEND 05406000 @RF00437 EQU @EL00008 05407000 @RF00535 EQU @EL00011 05408000 @ENDDATA EQU * 05409000 END IEAVTSSE,(C'PLS1206',0800,78208) 05410000