TITLE 'IEAVTSDT - SVC DUMP TASK *00001000 ' 00002000 IEAVTSDT CSECT , 0001 00003000 @MAINENT BALR @15,0 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEAVTSDT 77.285' 0001 00008000 DROP @15 00009000 @PROLOG BALR @09,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@09 0001 00012000 * R10=R1; /* SAVE ADDR OF PASSED ECB, IF IN 00013000 * MASTER ADDRESS SPACE */ 00014000 LR R10,R1 0076 00015000 * IF ASCBASID=MASTASID THEN /* IF IN THE MASTER ADDR SPACE */ 00016000 L @12,ASCBPTR 0077 00017000 CLC ASCBASID(2,@12),@CH00067 0077 00018000 BNE @RF00077 0077 00019000 * DO; 0078 00020000 * GEN(POST (R10),0); /* POST ATTACHOR */ 00021000 POST (R10),0 00022000 * END; 0080 00023000 * RFY 0081 00024000 * R7 RSTD; /* @ZM45196*/ 00025000 @RF00077 DS 0H 0082 00026000 * RFY 0082 00027000 * SDWORK BASED(R7); /* MAP SDUMP WORK AREA @ZM45196*/ 00028000 * R7=RTCTSDWK; /* GET WORK AREA ADDRESS @ZM45196*/ 00029000 L @12,CVTPTR 0083 00030000 L @12,CVTRTMCT(,@12) 0083 00031000 L R7,RTCTSDWK(,@12) 0083 00032000 * RFY 0084 00033000 * R3 RSTD; /* RESTRICT ERROR WORK AREA 0084 00034000 * POINTER @ZM45196*/ 00035000 * R3=ADDR(ERRORWK); /* GET ADDRESS ESTAE WORK AREA 0085 00036000 * @ZM45196*/ 00037000 LA R3,ERRORWK(,R7) 0085 00038000 * GEN(ESTAE DTESTAE1,PARAM=@PSTART,RECORD=YES,TERM=YES);/* @ZM45621*/ 00039000 ESTAE DTESTAE1,PARAM=@PSTART,RECORD=YES,TERM=YES 00040000 * ERRRETRY=ADDR(RECRSME); /* GET FIRST RETRY ADDRESS 0087 00041000 * @ZM45196*/ 00042000 LA @12,RECRSME 0087 00043000 ST @12,ERRRETRY(,R3) 0087 00044000 * ASCBDUMP=PSATOLD; /* TCB ADDRESS CAN BE REFERENCED 00045000 * FROM OTHER ADDRESS SPACES */ 00046000 L @12,PSATOLD 0088 00047000 L @08,ASCBPTR 0088 00048000 ST @12,ASCBDUMP(,@08) 0088 00049000 * RFY 0089 00050000 * (R10, 0089 00051000 * R11) UNRSTD; 0089 00052000 * DO WHILE(ASCBDUMP^=NULL); /* SERVICE SCHEDULE DUMP REQUESTS 00053000 * AS LONG AS DUMP TASK ACTIVE */ 00054000 B @DE00090 0090 00055000 @DL00090 DS 0H 0091 00056000 *RECRSME: 0091 00057000 * ; /* RETRY LOC FOR ERROR EXIT 0091 00058000 * @G33VPHD*/ 00059000 * 0091 00060000 RECRSME DS 0H 0092 00061000 * /***************************************************************/ 00062000 * /* */ 00063000 * /* OBTAIN LOCAL LOCK AND SUSPEND UNTIL NEXT RESUME @G33VPHD*/ 00064000 * /* */ 00065000 * /***************************************************************/ 00066000 * 0092 00067000 * GEN REFS(PSALITA,FLC,FLCCVT,CVT,CVTSUSP); 0092 00068000 * /*GET LOCK @G33VPHD*/ 00069000 SETLOCK SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, X00070000 RELATED=(SVCDUMP,IEAVTSDT(FREELOCK)) @G33VPHD 00071000 SUSPEND RB=CURRENT SUSPEND DUMP TASK PROCESS @G33VPHD 00072000 FREELOCK SETLOCK RELEASE,TYPE=LOCAL, X00073000 RELATED=(SVCDUMP,IEAVTSDT(GETLOCK)) @G33VPHD 00074000 CALLDISP BRANCH=NO @G33VPHD 00075000 *DUMPREQ: 0093 00076000 * ; /* ENTRY FOR A DUMP REQUEST 0093 00077000 * @G33VPHD*/ 00078000 DUMPREQ DS 0H 0094 00079000 */* ******************************************************************/ 00080000 */* THIS SEGMENT WILL HANDLE A SCHEDULED DUMP REQUEST. AN ESTAE */ 00081000 */* EXIT WILL BE ESTABLISHED TO PROTECT THE DUMP TASK WHILE IT */ 00082000 */* HANDLES THE REQUEST. AN ENQ WILL BE PERFORMED ON THE SDUMP */ 00083000 */* RESOURCE. WHEN CONTROL RETURNS, THE AREAS REQUESTED THAT */ 00084000 */* PERTAIN TO THIS ADDRESS SPACE WILL BE DUMPED USING THE SVC */ 00085000 */* DUMP MODULES. AT THE COMPLETION OF THE DUMP THE CALLERS */ 00086000 */* ECB WILL BE POSTED IF ON IS SUPPLIED. A DEQ IS PERFORMED */ 00087000 */* FROM THE SDUMP RESOURCE. */ 00088000 */* */ 00089000 */* INPUT: RTCTSDPL CONTAINS ADDRESS OF CALLERS SDUMP PARAMETER */ 00090000 */* LIST. */ 00091000 */* */ 00092000 */* OUTPUT: SVC DUMP OF THE REQUESTED AREAS */ 00093000 */* */ 00094000 */* INCLUDED BY: TOP SEGMENT */ 00095000 */* ******************************************************************/ 00096000 * 0094 00097000 * /***************************************************************/ 00098000 * /* */ 00099000 * /* ENQ ON SDUMP RESOURCE SO THAT ONLY ONE ADDRESS SPACE OF A */ 00100000 * /* MULTIPLE ADDRESS SPACE DUMP WILL RUN AT ONE TIME @G33VPHD*/ 00101000 * /* */ 00102000 * /***************************************************************/ 00103000 * 0094 00104000 * R1=ADDR(ENQLIST); /* GET ADDRESS OF ENQ LIST FORM 00105000 * @G33VPHD*/ 00106000 LA R1,ENQLIST 0094 00107000 * GEN; 0095 00108000 * /*ENQ ON SDUMP RESOURCE @G33VPHD*/ 00109000 ENQ1 ENQ MF=(E,(R1)) @G33VPHD 00110000 * ERRRETRY=ADDR(RECEND); /* GET NEXT RETRY LOCATION 0096 00111000 * ADDRESS @G33VPHD*/ 00112000 LA @12,RECEND 0096 00113000 ST @12,ERRRETRY(,R3) 0096 00114000 * ERRSDENQ='1'B; /* INDICATE ENQD ON SDUMP 0097 00115000 * RESOURCE @G33VPHD*/ 00116000 OI ERRSDENQ(R3),B'00100000' 0097 00117000 * PSATOLD->TCBEXSVC='1'B; /* SVC DUMP ACTIVE THIS TCB 0098 00118000 * @ZM45196*/ 00119000 L @12,PSATOLD 0098 00120000 OI TCBEXSVC(@12),B'00000001' 0098 00121000 * ERRCUDMP='1'B; /* INDICATE A DUMP CAN BE TAKEN 00122000 * @ZM45196*/ 00123000 OI ERRCUDMP(R3),B'00000100' 0099 00124000 * ERRSDBIT='1'B; /* INDICATE SDUMP LOCKED @ZM45196*/ 00125000 * ERRBFBIT='1'B; /* INDICATE SDUMP BUFFER LOCKED 00126000 * @ZM45196*/ 00127000 * 0101 00128000 OI ERRSDBIT(R3),B'00110000' 0101 00129000 * /***************************************************************/ 00130000 * /* */ 00131000 * /* INITIALIZE POINTERS AND SET UP ESTAE EXIT @G33VPHD*/ 00132000 * /* */ 00133000 * /***************************************************************/ 00134000 * 0102 00135000 * IF ERRTRMNT='0'B THEN /* IF NO TERMINATING ERRORS SO 0102 00136000 * FAR @ZM44940*/ 00137000 TM ERRTRMNT(R3),B'00001000' 0102 00138000 BNZ @RF00102 0102 00139000 * DO; /* ATTEMPT DUMP OF THIS ADDRESS 00140000 * SPACE @ZM44940*/ 00141000 * LSTESTAE=ESTAELST; /* MOVE LST FORM ESTAE @G33VPHD*/ 00142000 MVC LSTESTAE(16,R7),ESTAELST 0104 00143000 * ERRBASE1=R9; /* SAVE BASE REGISTER CONTENTS 0105 00144000 * @G33VPHD*/ 00145000 ST R9,ERRBASE1(,R3) 0105 00146000 * ERRWKADR=R7; /* SAVE WORK AREA ADDRESS 0106 00147000 * @G33VPHD*/ 00148000 ST R7,ERRWKADR(,R3) 0106 00149000 * SVCDMPNM=CSECTNAM; /* SAVE CSECT NAME FOR RECOVERY 00150000 * @G33VPHD*/ 00151000 MVC SVCDMPNM(8,R7),@CC03098 0107 00152000 * RFY 0108 00153000 * (R10, 0108 00154000 * R11, 0108 00155000 * R4) RSTD; /* @G33VPHD*/ 00156000 * R10=ADDR(ERRORWK); /* ADDR ESTAE ERROR WORK AREA 0109 00157000 * @G33VPHD*/ 00158000 LA R10,ERRORWK(,R7) 0109 00159000 * R11=ADDR(SDWRGSV1); /* ADDR SVC DUMP SAVE AREA 0110 00160000 * @ZM44940*/ 00161000 LA R11,SDWRGSV1(,R7) 0110 00162000 * R4=SDESTAAD; /* GET SDUMP ESTAE ADDRESS FROM 00163000 * VAD00 @G33VPHD*/ 00164000 L R4,SDESTAAD 0111 00165000 * RTCTINDX=0; /* INITIALIZE INDEX FOR RECOVERY 00166000 * TEST @ZM45192*/ 00167000 L @12,CVTPTR 0112 00168000 L @12,CVTRTMCT(,@12) 0112 00169000 MVI RTCTINDX(@12),X'00' 0112 00170000 * R1=ADDR(LSTESTAE); /* ADDR OF LIST FORM OF MACRO 0113 00171000 * @G33VPHD*/ 00172000 LA R1,LSTESTAE(,R7) 0113 00173000 * GEN REFS(CVTMAP,CVTSV60); 0114 00174000 * /* @G33VPHD*/ 00175000 ESTAE (R4),TERM=YES,RECORD=YES,BRANCH=YES, X00176000 PARAM=(R10),SVEAREA=(R11),MF=(E,(R1)) @G33VPHD 00177000 * ERRESTAE='1'B; /* INDICATE ESTAE IS ACTIVE 0115 00178000 * @ZM44940*/ 00179000 OI ERRESTAE(R3),B'01000000' 0115 00180000 * RFY 0116 00181000 * (R10, 0116 00182000 * R11, 0116 00183000 * R4) UNRSTD; /* @G33VPHD*/ 00184000 * 0116 00185000 * /***********************************************************/ 00186000 * /* */ 00187000 * /* THIS LOOP SEARCHES THE RTCT ARRAY TO FIND THE @G33VPHD*/ 00188000 * /* ENTRY FOR THIS ADDRESS SPACE @G33VPHD*/ 00189000 * /* */ 00190000 * /***********************************************************/ 00191000 * 0117 00192000 * IF RTCTSDMA='1'B& /* IF THIS IS THE MASTER DUMP 0117 00193000 * TASK @ZM44937*/ 00194000 * ASCBASID=MASTASID THEN/* AND FOR MULTI ASID DUMP 0117 00195000 * @ZM44937*/ 00196000 L @12,CVTPTR 0117 00197000 L @12,CVTRTMCT(,@12) 0117 00198000 TM RTCTSDMA(@12),B'00010000' 0117 00199000 BNO @RF00117 0117 00200000 L @08,ASCBPTR 0117 00201000 CLC ASCBASID(2,@08),@CH00067 0117 00202000 BNE @RF00117 0117 00203000 * RTCTINDX=MAXENTRY; /* USE ENTRY 16 FOR THIS ASID 0118 00204000 * ONLY @ZM44937*/ 00205000 MVI RTCTINDX(@12),X'10' 0118 00206000 * ELSE 0119 00207000 * DO; /* NOT GLOBAL AREA DUMP TASK FIND 00208000 * CURRENT ENTRY @ZM44937*/ 00209000 B @RC00117 0119 00210000 @RF00117 DS 0H 0120 00211000 * DO RTCTINDX=ONE TO MAXENTRY WHILE(RTCTSDAS(RTCTINDX)^= 00212000 * ASCBASID); 0120 00213000 LA @12,1 0120 00214000 L @08,CVTPTR 0120 00215000 L @08,CVTRTMCT(,@08) 0120 00216000 STC @12,RTCTINDX(,@08) 0120 00217000 @DL00120 L @12,CVTPTR 0120 00218000 L @12,CVTRTMCT(,@12) 0120 00219000 SLR @08,@08 0120 00220000 IC @08,RTCTINDX(,@12) 0120 00221000 SLA @08,2 0120 00222000 ALR @12,@08 0120 00223000 L @08,ASCBPTR 0120 00224000 CLC RTCTSDAS-4(2,@12),ASCBASID(@08) 0120 00225000 BE @DC00120 0120 00226000 * END; /* END OF SEARCH @G33VPHD*/ 00227000 L @08,CVTPTR 0121 00228000 L @08,CVTRTMCT(,@08) 0121 00229000 LA @12,1 0121 00230000 SLR @06,@06 0121 00231000 IC @06,RTCTINDX(,@08) 0121 00232000 ALR @12,@06 0121 00233000 L @08,CVTPTR 0121 00234000 L @08,CVTRTMCT(,@08) 0121 00235000 STC @12,RTCTINDX(,@08) 0121 00236000 C @12,@CF00127 0121 00237000 BNH @DL00120 0121 00238000 @DC00120 DS 0H 0122 00239000 * IF RTCTINDX>MAXENTRY THEN/* IF ASID ENTRY NOT FOUND 0122 00240000 * @G33VPHD*/ 00241000 L @12,CVTPTR 0122 00242000 L @12,CVTRTMCT(,@12) 0122 00243000 CLI RTCTINDX(@12),16 0122 00244000 BNH @RF00122 0122 00245000 * GEN(ABEND X'C0D',,,SYSTEM);/* BAD DUMP TASK RESUME 0123 00246000 * @G33VPHD*/ 00247000 ABEND X'C0D',,,SYSTEM 00248000 * END; /* END NOT GLOBAL DUMP TASK FIND 00249000 * CURRENT ENTRY LOOP @ZM44937*/ 00250000 @RF00122 DS 0H 0125 00251000 * ERRSAVE=RTCTINDX; /* SAVE RTCT ARRAY INDEX @G33VPHD*/ 00252000 @RC00117 L @12,CVTPTR 0125 00253000 L @12,CVTRTMCT(,@12) 0125 00254000 MVC ERRSAVE(1,R3),RTCTINDX(@12) 0125 00255000 * 0126 00256000 * /***********************************************************/ 00257000 * /* */ 00258000 * /* THIS SECTION CHECKS TO SEE THAT THE RESUMPTION OF THE */ 00259000 * /* DUMP TASK IS VALID AND THE DUMP OF THIS ADDRESS SPACE */ 00260000 * /* CAN PROCEED. IF THE RESUMPTION IS VALID THE SVC DUMP */ 00261000 * /* SERVICE ROUTINES ARE CALLED TO PERFORM THE DUMP @G33VPHD*/ 00262000 * /* */ 00263000 * /***********************************************************/ 00264000 * 0126 00265000 * IF RTCTSDPL^=NULL& /* IF SVC DUMP IS LOCKED AND 0126 00266000 * @G33VPHD*/ 00267000 * RTCTSDSH='1'B& /* THIS IS SCHEDULE DUMP AND 0126 00268000 * @G33VPHD*/ 00269000 * RTCTSDEP='0'B& /* CALLERS ECB NOT POSTED 0126 00270000 * @G33VPHD*/ 00271000 * RTCTSDSS(RTCTINDX)='1'B&/* THE SRB WAS SCHEDULED 0126 00272000 * @G33VPHD*/ 00273000 * RTCTSDNC(RTCTINDX)='1'B&/* NON-DISP SRB GOT CONTROL 0126 00274000 * @G33VPHD*/ 00275000 * RTCTSDAN(RTCTINDX)='1'B&/* ADDR SPACE SET NONDISP 0126 00276000 * @G33VPHD*/ 00277000 * RTCTSDRM(RTCTINDX)='1'B&/* DUMP TASK WAS RESUMED 0126 00278000 * @G33VPHD*/ 00279000 * RTCTSDTR(RTCTINDX)='0'B&/* DUMP TASK NOT RUNNING 0126 00280000 * @G33VPHD*/ 00281000 * RTCTSDEN(RTCTINDX)='0'B&/* SVC DUMP NOT ENTERED 0126 00282000 * @G33VPHD*/ 00283000 * RTCTSDDO(RTCTINDX)='0'B THEN/* DUMP NOT COMPLETE ASID 00284000 * @G33VPHD*/ 00285000 SLR @08,@08 0126 00286000 L @06,RTCTSDPL(,@12) 0126 00287000 CR @06,@08 0126 00288000 BE @RF00126 0126 00289000 TM RTCTSDSH(@12),B'00100000' 0126 00290000 BNO @RF00126 0126 00291000 TM RTCTSDEP(@12),B'00001000' 0126 00292000 BNZ @RF00126 0126 00293000 SLR @02,@02 0126 00294000 IC @02,RTCTINDX(,@12) 0126 00295000 SLA @02,2 0126 00296000 ALR @02,@12 0126 00297000 TM RTCTSDSS-4(@02),B'11110000' 0126 00298000 BNO @RF00126 0126 00299000 TM RTCTSDTR-4(@02),B'00001011' 0126 00300000 BNZ @RF00126 0126 00301000 * DO; /* VALID DUMP TASK RESUME 0127 00302000 * @G33VPHD*/ 00303000 * IF ERRENDMP='0'B THEN /* IF NO PREVIOUS ERRORS OK 0128 00304000 * @ZM44943*/ 00305000 TM ERRENDMP(R3),B'01000000' 0128 00306000 BNZ @RF00128 0128 00307000 * DO; /* NO ERRORS SO CONTINUE @ZM44943*/ 00308000 * RTCTSDTR(RTCTINDX)='1'B;/* DUMP TASK RUNNING 0130 00309000 * @G33VPHD*/ 00310000 * RTCTSDEQ(RTCTINDX)='1'B;/* DUMP TASK ENQUED 0131 00311000 * @G33VPHD*/ 00312000 * RFY 0132 00313000 * SDUMP BASED(RTCTSDPL);/* MAP CALLERS PARAMETER 0132 00314000 * LIST @G33VPHD*/ 00315000 * RTCTSDEN(RTCTINDX)='1'B;/* INDICATE SVC DUMP 0133 00316000 * ENTERED @G33VPHD*/ 00317000 L @02,CVTPTR 0133 00318000 L @02,CVTRTMCT(,@02) 0133 00319000 SLR @15,@15 0133 00320000 IC @15,RTCTINDX(,@02) 0133 00321000 SLA @15,2 0133 00322000 ALR @15,@12 0133 00323000 OI RTCTSDTR-4(@15),B'00001110' 0133 00324000 * RTCTSDID=ASCBASID;/* GET CURRENT ASID FOR IEAVTSDR 00325000 * @G33VPHD*/ 00326000 L @02,ASCBPTR 0134 00327000 LH @02,ASCBASID(,@02) 0134 00328000 N @02,@CF03250 0134 00329000 STH @02,RTCTSDID(,@12) 0134 00330000 * SVCDOPTS=RTCTASO; /* GET EFFECTIVE DUMP OPTIONS 0135 00331000 * @G33VPHD*/ 00332000 MVC SVCDOPTS(2,R7),RTCTASO(@12) 0135 00333000 * R13=ADDR(SDWRGSV1);/* GET SAVE AREA ADDRESS 0136 00334000 * @G33VPHD*/ 00335000 LA R13,SDWRGSV1(,R7) 0136 00336000 * SDWSDPL=RTCTSDPL; /* GET PARAMETER LIST ADDRESS 0137 00337000 * @G33VPHD*/ 00338000 * 0137 00339000 ST @06,SDWSDPL(,R7) 0137 00340000 * /***************************************************/ 00341000 * /* */ 00342000 * /* THIS SECTION INITIALIZES KEY WORK AREA FIELDS */ 00343000 * /* AND THE DUMP DATA SET IF THIS IS THE FIRST OR */ 00344000 * /* ONLY ADDRESS SPACE TO BE DUMPED @G33VPHD*/ 00345000 * /* */ 00346000 * /***************************************************/ 00347000 * 0138 00348000 * IF RTCTSDSL='0'B THEN/* IF DUMP DATA SET NOT 0138 00349000 * @G33VPHD*/ 00350000 TM RTCTSDSL(@12),B'00000100' 0138 00351000 BNZ @RF00138 0138 00352000 * DO; /* SELECTED,SELECT & INITIALIZE 00353000 * @G33VPHD*/ 00354000 * SDRETCOD=RTCTSDPR;/* GET CURRENT RETURN CODE 0140 00355000 * @ZM45074*/ 00356000 SLR @02,@02 0140 00357000 IC @02,RTCTSDPR(,@12) 0140 00358000 ST @02,SDRETCOD(,R7) 0140 00359000 * FLAGSONE=NULLCHAR;/* CLEAR WORK AREA FLAG BYTE 00360000 * @G33VPHD*/ 00361000 MVI FLAGSONE(R7),X'00' 0141 00362000 * FLAGSTWO=NULLCHAR;/* CLEAR WORK AREA FLAG BYTE 00363000 * @G33VPHD*/ 00364000 MVI FLAGSTWO(R7),X'00' 0142 00365000 * SMWKPSSE=NULL;/* ZERO POINTER FIELD FOR SUMDUMP 00366000 * @ZA19201*/ 00367000 L @12,RTCTSDSW(,@12) 0143 00368000 ST @08,SMWKPSSE(,@12) 0143 00369000 * ERRRETRY=ADDR(DTLOC01);/* NEXT RETRY LOCATION 00370000 * ADDRESS @ZM45053*/ 00371000 LA @12,DTLOC01 0144 00372000 ST @12,ERRRETRY(,R3) 0144 00373000 * IF SVCDTRT='1'B|/* IF TRACE REQUESTED OR 0145 00374000 * ENABLED @ZA19201*/ 00375000 * (SDUBRANH='0'B&SVCDNSMD='0'B) THEN/* 0145 00376000 * SUMMARY DUMP IS REQUESTED 0145 00377000 * @ZA19210*/ 00378000 TM SVCDTRT(R7),B'00000001' 0145 00379000 BO @RT00145 0145 00380000 TM SDUBRANH(@06),B'00000001' 0145 00381000 BNZ @RF00145 0145 00382000 TM SVCDNSMD(R7),B'00010000' 0145 00383000 BNZ @RF00145 0145 00384000 @RT00145 DS 0H 0146 00385000 * DO; /* SUPERVISOR TRT OR GTF ACTIVE */ 00386000 * IF CVTTRACE(2)='FA'X THEN/* IF SUPERVISOR 00387000 * TRT ACTIVE, @ZA08114*/ 00388000 L @12,CVTPTR 0147 00389000 CLI CVTTRACE+1(@12),X'FA' 0147 00390000 BNE @RF00147 0147 00391000 * DO; /* STOP IT */ 00392000 * RFY 0149 00393000 * (R10, 0149 00394000 * R11) RSTD; 0149 00395000 * CVTSDTRC='1'B;/* INDICATE SVC DUMP 0150 00396000 * STOPPED SUPERVISOR TRACE TABLE*/ 00397000 OI CVTSDTRC(@12),B'00000001' 0150 00398000 * R10=TRTACTVE; 0151 00399000 L R10,@CF03117 0151 00400000 * R11=TRTSTOP; 0152 00401000 L R11,@CF03119 0152 00402000 * CS(R10,R11,TRTCVTWD);/* IF TRACE TAB 0153 00403000 * ACTIVE, STOP IT */ 00404000 L @12,CVTPTR 0153 00405000 CS R10,@11,TRTCVTWD(@12) 0153 00406000 * RFY 0154 00407000 * (R10, 0154 00408000 * R11) UNRSTD; 0154 00409000 * CURRSTOP='1'B;/* INDICATE ON WHICH 0155 00410000 * ENTRY THE TRT WAS STOPPED */ 00411000 L @12,FLCTRACE 0155 00412000 L @12,TRTCURR(,@12) 0155 00413000 OI CURRSTOP(@12),B'10000000' 0155 00414000 * END; 0156 00415000 * ELSE 0157 00416000 * ; 0157 00417000 @RF00147 DS 0H 0158 00418000 * IF CVTGTFAV='1'B&/* IF GTF ACTIVE, @ZA19201*/ 00419000 * SVCDTRT='1'B THEN/* AND TRACE REQUESTED 00420000 * RESERVE TRACE @ZA19201*/ 00421000 L @12,CVTPTR 0158 00422000 TM CVTGTFAV(@12),B'10000000' 0158 00423000 BNO @RF00158 0158 00424000 TM SVCDTRT(R7),B'00000001' 0158 00425000 BNO @RF00158 0158 00426000 * DO; /* BUFFERS FOR DUMP */ 00427000 * GEN(HOOK EID=IEASVCD); 0160 00428000 HOOK EID=IEASVCD 00429000 * ERRGTFGO='1'B;/* INDICATE WE WENT TO 0161 00430000 * GTF */ 00431000 OI ERRGTFGO(R3),B'00000100' 0161 00432000 * END; 0162 00433000 * ELSE 0163 00434000 * ; 0163 00435000 @RF00158 DS 0H 0164 00436000 * END; 0164 00437000 * ELSE 0165 00438000 * ; 0165 00439000 @RF00145 DS 0H 0166 00440000 * ERRCSDT='1'B; /* INDICATE SDT CALLED SDH 0166 00441000 * @G33VPHD*/ 00442000 OI ERRCSDT(R3),B'00010000' 0166 00443000 * CALL IEAVTSDH;/* CHOOSE AND INITIALIZE DUMP 0167 00444000 * DATA SET @G33VPHD*/ 00445000 L @15,@CV03126 0167 00446000 BALR @14,@15 0167 00447000 * ERRBASE1=R9; /* RESTORE RECOVERY BASE REGISTER 00448000 * @G33VPHD*/ 00449000 ST R9,ERRBASE1(,R3) 0168 00450000 * SVCDMPNM=CSECTNAM;/* GET CSECT NAME FOR 0169 00451000 * RECOVERY @G33VPHD*/ 00452000 MVC SVCDMPNM(8,R7),@CC03098 0169 00453000 * RTCTINDX=ERRSAVE;/* RESTORE SAVED INDEX 0170 00454000 * @G33VPHD*/ 00455000 L @12,CVTPTR 0170 00456000 L @12,CVTRTMCT(,@12) 0170 00457000 MVC RTCTINDX(1,@12),ERRSAVE(R3) 0170 00458000 * END; /* @G33VPHD*/ 00459000 * RFY 0172 00460000 * SDUMP BASED(RTCTSDPL);/* MAP SDUMP PARAMETER LIST 00461000 * @ZM45051*/ 00462000 @RF00138 DS 0H 0173 00463000 * 0173 00464000 */* ******************************************************************/ 00465000 */* THIS SEGMENT HANDLES DUMP TASK SVC DUMP PROCESSING */ 00466000 */* IN ALL ADDRESS SPACES. IF THERE ARE DISABLED SUMMARY */ 00467000 */* DUMP RECORDS TO WRITE MODULE IEAVTSDW IS CALLED TO WRITE */ 00468000 */* THE RECORDS AND FREE THE REAL STORAGE BUFFER. IF AN ENABLED */ 00469000 */* SUMMARY DUMP IS REQUESTED, MODULE IEAVTSSE IS CALLED TO */ 00470000 */* DUMP THE ENABLED SUMMARY DUMP ON THE DUMP DATA SET. IF GLOBAL */ 00471000 */* STORAGE AREAS ARE REQUESTED MODULE IEAVTSDG IS CALLED. */ 00472000 */* WHEN CONTROL RETURNS FORM IEAVTSDG THE EFFECTIVE */ 00473000 */* GLOBAL STORAGE OPTIONS ARE ZEROED SO THAT THE GLOBAL */ 00474000 */* AREAS ARE ONLY DUMPED ONCE. IF LOCAL STORAGE AREAS ARE */ 00475000 */* REQUESTED MODULE IEAVTSDL IS CALLED. IF NO LOCAL STORAGE */ 00476000 */* AREAS ARE REQUESTED AND THIS IS A MULTIPLE ADDRESS SPACE DUMP */ 00477000 */* THE DUMPS IN ALL OTHER REQUESTED ADDRESS SPACES ARE */ 00478000 */* MARKED COMPLETE. */ 00479000 */* */ 00480000 */* INPUT: EFFECTIVE DUMP OPTION */ 00481000 */* */ 00482000 */* OUTPUT: DUMP TAKEN OF REQUESTED AREAS */ 00483000 */* */ 00484000 */* INCLUDED BY: DTREQ @G33VPHD*/ 00485000 */* */ 00486000 */* ******************************************************************/ 00487000 * 0173 00488000 *DTLOC01: 0173 00489000 * ERRRETRY=ADDR(DTLOC10);/* GET NEXT RETRY LOCALTION 00490000 * ADDRESS @ZA19201*/ 00491000 * 0173 00492000 DTLOC01 LA @12,DTLOC10 0173 00493000 ST @12,ERRRETRY(,R3) 0173 00494000 * /***************************************************/ 00495000 * /* */ 00496000 * /* CALL THE SUMMARY DUMP WRITER TO MOVE THE SUMMARY*/ 00497000 * /* DUMP RECORDS TO THE DUMP DATA SET AND FREE THE */ 00498000 * /* REAL STORAGE BUFFER @ZM44936*/ 00499000 * /* */ 00500000 * /***************************************************/ 00501000 * 0174 00502000 * RFY 0174 00503000 * SMWKRSCB BASED(ADDR(SMWKRSM));/* MAP RSM PART OF 00504000 * SMWK @ZM45045*/ 00505000 * IF SMWKFRHD>0 THEN/* IF SUMMARY DUMP RECORDS HELD 00506000 * @ZM45045*/ 00507000 L @12,CVTPTR 0175 00508000 L @12,CVTRTMCT(,@12) 0175 00509000 L @12,RTCTSDSW(,@12) 0175 00510000 CLC SMWKFRHD+196(2,@12),@CH00034 0175 00511000 BNH @RF00175 0175 00512000 * DO; /* PROCESS SUMMARY DUMP RECORDS 00513000 * @ZM44936*/ 00514000 * CALL IEAVTSDW;/* CALL SUMMARY DUMP WRITER 0177 00515000 * @ZM44936*/ 00516000 L @15,@CV03130 0177 00517000 BALR @14,@15 0177 00518000 * ERRBASE1=R9; /* RESTORE BASE REGISTER FOR 0178 00519000 * RECOVERY @ZM44936*/ 00520000 ST R9,ERRBASE1(,R3) 0178 00521000 * SVCDMPNM=CSECTNAM;/* RESTORE CSECT NAME FOR 0179 00522000 * RECOVERY @ZM44936*/ 00523000 MVC SVCDMPNM(8,R7),@CC03098 0179 00524000 * IF RTCTSDND='1'B&/* IF SVC DUMP SET SYSTEM 0180 00525000 * NONDISP @ZM45207*/ 00526000 * ((RTCTSDPG='0'B&SDUQUIET='0'B)|/* AND 0180 00527000 * QUIESCE NOT REQUESTED @ZM45207*/ 00528000 * RTCTSDPH='1'B) THEN/* OR QUIESCE=NO WAS 0180 00529000 * REQUESTED @ZM45207*/ 00530000 L @12,CVTPTR 0180 00531000 L @12,CVTRTMCT(,@12) 0180 00532000 TM RTCTSDND(@12),B'01000000' 0180 00533000 BNO @RF00180 0180 00534000 TM RTCTSDPG+236(@12),B'10000000' 0180 00535000 BNZ @GL00008 0180 00536000 L @12,RTCTSDPL(,@12) 0180 00537000 TM SDUQUIET(@12),B'00000010' 0180 00538000 BZ @RT00180 0180 00539000 @GL00008 L @12,CVTPTR 0180 00540000 L @12,CVTRTMCT(,@12) 0180 00541000 TM RTCTSDPH+236(@12),B'01000000' 0180 00542000 BNO @RF00180 0180 00543000 @RT00180 DS 0H 0181 00544000 * DO; /* SET SYSTEM DISPATCHABLE AGAIN 00545000 * @ZM45207*/ 00546000 * RFY 0182 00547000 * R0 RSTD;/* @ZM45207*/ 00548000 * R0=SYSDISP;/* GET SYSTEM DISPATCHABILITY 0183 00549000 * FLAG @ZM45207*/ 00550000 LA R0,9 0183 00551000 * R1=NULL|HIGHBIT1;/* INDICATE RESET FUNCTION 00552000 * @ZM45207*/ 00553000 L R1,@CF03229 0184 00554000 * R13=SDISPFLG;/* GET SVC DUMP 0185 00555000 * DISPATCHABILITY FLAG @ZM45207*/ 00556000 L R13,@CF03093 0185 00557000 * CALL STATUS;/* SET THE SYSTEM DISPATCHABLE 00558000 * @ZM45207*/ 00559000 L @12,CVTPTR 0186 00560000 L @12,SCVTSPTR(,@12) 0186 00561000 L @15,SCVTSTAT(,@12) 0186 00562000 BALR @14,@15 0186 00563000 * RTCTSDND='0'B;/* INDICATE SYSTEM IS NOW 0187 00564000 * DISPATCHABLE @ZM45207*/ 00565000 L @12,CVTPTR 0187 00566000 L @12,CVTRTMCT(,@12) 0187 00567000 NI RTCTSDND(@12),B'10111111' 0187 00568000 * RFY 0188 00569000 * R0 UNRSTD;/* @ZM45207*/ 00570000 * IF ASCBASID^=MASTASID THEN/* IF NOT IN 0189 00571000 * MASTER @ZM45207*/ 00572000 L @12,ASCBPTR 0189 00573000 CLC ASCBASID(2,@12),@CH00067 0189 00574000 BE @RF00189 0189 00575000 * DO; /* TELL SRM ITS OK TO SWAP THIS 00576000 * ASID @ZM45207*/ 00577000 * R13=ADDR(SDWRGSV2);/* GET SAVE AREA FOR 00578000 * SRM @ZM45207*/ 00579000 LA R13,SDWRGSV2(,R7) 0191 00580000 * GEN REFS(CVT,CVTOPTE) 0192 00581000 * (SYSEVENT OKSWAP,ENTRY=BRANCH);/* 00582000 * INDICATE OKSWAP TO SRM 0192 00583000 * @ZM45207*/ 00584000 SYSEVENT OKSWAP,ENTRY=BRANCH 00585000 * R13=ADDR(SDWRGSV1);/* RESTORE SAVE AREA 00586000 * ADDRESS @ZM45207*/ 00587000 LA R13,SDWRGSV1(,R7) 0193 00588000 * END; /* END OF NOT RUNNING IN MASTER 00589000 * ASID @ZM45207*/ 00590000 * END; /* END OF SET SYSTEM DISPATCHABLE 00591000 * AGAIN @ZM45207*/ 00592000 @RF00189 DS 0H 0196 00593000 * IF RTCTSDTQ=ON THEN/* IF SUMDUMP TQE ON TIMER 00594000 * QUE @ZM45059*/ 00595000 @RF00180 L @12,CVTPTR 0196 00596000 L @12,CVTRTMCT(,@12) 0196 00597000 TM RTCTSDTQ(@12),B'01000000' 0196 00598000 BNO @RF00196 0196 00599000 * DO; /* OBTAIN DISPATCHER LOCK AND 0197 00600000 * DEQUE TQE @ZM45059*/ 00601000 * GEN REFS(PSALITA); 0198 00602000 * /*OBTAIN DISPATCHER LOCK @ZM45059*/ 00603000 GETLOCKP SETLOCK OBTAIN,MODE=UNCOND,TYPE=DISP, X00604000 RELATED=(SVCDUMP,IEAVTSDT(FRELOCKP)) 00605000 * ERRFRR=ON;/* INDICATE FRR CONTROL ACTIVE 0199 00606000 * @ZM45059*/ 00607000 OI ERRFRR(R3),B'10000000' 0199 00608000 * RFY 0200 00609000 * (R10, 0200 00610000 * R11) RSTD;/* SAVE REGISTERS @ZM45059*/ 00611000 * GEN SETS(R10,R11,R3) REFS(ADDRFRR,PSACSTK, 00612000 * FRRS,FRRSCURR,FRRSLAST,PSALSFCC,PSA, 0201 00613000 * FRRSFRRA,FRRSENTR,FRRSPARM); 0201 00614000 * /*SET UP FRR RECOVERY EXIT @ZM45059*/ 00615000 SETFRR A,FRRAD=ADDRFRR,WRKREGS=(R10,R11),PARMAD=(R3) 00616000 * RFY 0202 00617000 * (R10, 0202 00618000 * R11) UNRSTD;/* FREE REGISTERS @ZM45059*/ 00619000 * ERRWORK=ERRORWK;/* COPY ESTAE WORK AREA TO 00620000 * FRR WORK AREA @ZM45059*/ 00621000 MVC ERRWORK(24,R3),ERRORWK(R7) 0203 00622000 * ERRDLOCK=ON;/* INDICATE DISPATCHER LOCK 0204 00623000 * HELD @ZM45059*/ 00624000 OI ERRDLOCK(R3),B'00000100' 0204 00625000 * R1=SMWKTQEA;/* GET TQE ADDRESS FOR TQEDEQ 00626000 * @ZM45059*/ 00627000 L @12,CVTPTR 0205 00628000 L @08,CVTRTMCT(,@12) 0205 00629000 L @08,RTCTSDSW(,@08) 0205 00630000 L R1,SMWKTQEA(,@08) 0205 00631000 * RFY 0206 00632000 * RETREG2 RSTD;/* RESTRICT RETURN REGISTER 00633000 * @ZM45059*/ 00634000 * RETREG2=ADDR(SDTRETRN);/* OBTAIN RETURN 0207 00635000 * ADDRESS @ZM45059*/ 00636000 LA RETREG2,SDTRETRN 0207 00637000 * CALL TQEDEQ;/* TAKE SUMMARY DUMP TQE OFF 0208 00638000 * TIMER TQE QUEUE @ZM45059*/ 00639000 L @15,CVTQTD00(,@12) 0208 00640000 BALR @14,@15 0208 00641000 *SDTRETRN: 0209 00642000 * RTCTSDTQ=OFF;/* INDICATE SUMDUMP TQE NOT ON 00643000 * TIMER TQE QUE @ZM45059*/ 00644000 SDTRETRN L @12,CVTPTR 0209 00645000 L @12,CVTRTMCT(,@12) 0209 00646000 NI RTCTSDTQ(@12),B'10111111' 0209 00647000 * RFY 0210 00648000 * RETREG2 UNRSTD;/* FREE RETURN REGISTER 0210 00649000 * @ZM45059*/ 00650000 * GEN REFS(PSALITA); 0211 00651000 * /*FREE DISPATCHER LOCK @ZM45059*/ 00652000 FRELOCKP SETLOCK RELEASE,TYPE=DISP, X00653000 RELATED=(SVCDUMP,IEAVTSDT(GETLOCKP)) 00654000 * ERRDLOCK=OFF;/* INDICATE DISPATCHER LOCK NO 00655000 * LONGER HELD @ZM45059*/ 00656000 NI ERRDLOCK(R3),B'11111011' 0212 00657000 * R3=ADDR(ERRORWK);/* GET ADDRESS OF ERROR 0213 00658000 * WORK AREA WHICH IS PART OF THE 00659000 * SDUMP WORK AREA @ZM45059*/ 00660000 LA R3,ERRORWK(,R7) 0213 00661000 * RFY 0214 00662000 * (R10, 0214 00663000 * R11) RSTD;/* SAVE REGISTERS @ZM45059*/ 00664000 * GEN SETS(R10,R11) REFS(PSACSTK,FRRS,PSA, 0215 00665000 * FRRSCURR,FRRSEMP,FRRSELEN) CODE 0215 00666000 * (SETFRR D,WRKREGS=(R10,R11));/* DELETE 00667000 * FRR EXIT @ZM45059*/ 00668000 SETFRR D,WRKREGS=(R10,R11) 00669000 * RFY 0216 00670000 * (R10, 0216 00671000 * R11) UNRSTD;/* FREE REGISTERS @ZM45059*/ 00672000 * ERRFRR=OFF;/* INDICATE FRR EXIT NOT 0217 00673000 * AVAILABLE @ZM45059*/ 00674000 NI ERRFRR(R3),B'01111111' 0217 00675000 * R13=ADDR(SDWRGSV1);/* RESTORE SAVE AREA 0218 00676000 * ADDRESS @ZM45059*/ 00677000 LA R13,SDWRGSV1(,R7) 0218 00678000 * END; /* END OF DEQ SUMDUMP TQE FROM 0219 00679000 * TIMER QUEUE @ZM45059*/ 00680000 * END; /* END PROCESS SUMMARY DUMP 0220 00681000 * RECORDS @ZM44936*/ 00682000 @RF00196 DS 0H 0221 00683000 * 0221 00684000 * /***************************************************/ 00685000 * /* */ 00686000 * /* DUMP ANY REQUESTED GLOBAL STORAGE AREAS @ZM44936*/ 00687000 * /* */ 00688000 * /***************************************************/ 00689000 * 0221 00690000 *DTLOC10: 0221 00691000 * ERRRETRY=ADDR(DTLOC15);/* GET NEXT RETRY LOCATION 00692000 * ADDRESS @G33VPHD*/ 00693000 @RF00175 DS 0H 0221 00694000 DTLOC10 LA @12,DTLOC15 0221 00695000 ST @12,ERRRETRY(,R3) 0221 00696000 * IF SVCDNUC='1'B| /* IF NUCLEUS REQUEST AREA 0222 00697000 * @G33VPHD*/ 00698000 * SVCDNSQA='0'B|/* OR SQA REQUESTED AREA @G33VPHD*/ 00699000 * SVCDCSA='1'B| /* OR CSA REQUESTED AREA @G33VPHD*/ 00700000 * SVCDNAPA='0'B|/* OR ALLPSA REQUESTED AREA 0222 00701000 * @G33VPHD*/ 00702000 * SVCDPSA='1'B| /* OR PSA A REQUESTED AREA 0222 00703000 * @G33VPHD*/ 00704000 * (CVTGTFAV='0'B&SVCDTRT='1'B)|/* OR SUPVR TRT A 00705000 * REQUESTED AREA @ZM45208*/ 00706000 * (SDUSTOR='1'B&RTCTSDSL='0'B)|/* OR STORAGE IS 00707000 * REQUESTED AREA @ZM45051*/ 00708000 * RTCTSDSL='0'B THEN/* OR THIS IS FIRST ENTRY OF 00709000 * DUMP @ZM45050*/ 00710000 TM SVCDNUC(R7),B'00100000' 0222 00711000 BO @RT00222 0222 00712000 TM SVCDCSA(R7),B'10000000' 0222 00713000 BNZ @RT00222 0222 00714000 TM SVCDNSQA(R7),B'00001100' 0222 00715000 BNO @RT00222 0222 00716000 TM SVCDPSA(R7),B'01000000' 0222 00717000 BO @RT00222 0222 00718000 L @12,CVTPTR 0222 00719000 TM CVTGTFAV(@12),B'10000000' 0222 00720000 BNZ @GL00011 0222 00721000 TM SVCDTRT(R7),B'00000001' 0222 00722000 BO @RT00222 0222 00723000 @GL00011 L @12,CVTPTR 0222 00724000 L @12,CVTRTMCT(,@12) 0222 00725000 L @08,RTCTSDPL(,@12) 0222 00726000 TM SDUSTOR(@08),B'00100000' 0222 00727000 BNO @GL00010 0222 00728000 TM RTCTSDSL(@12),B'00000100' 0222 00729000 BZ @RT00222 0222 00730000 @GL00010 L @12,CVTPTR 0222 00731000 L @12,CVTRTMCT(,@12) 0222 00732000 TM RTCTSDSL(@12),B'00000100' 0222 00733000 BNZ @RF00222 0222 00734000 @RT00222 DS 0H 0223 00735000 * DO; /* PERFORM GLOBAL AREA REQ 0223 00736000 * @G33VPHD*/ 00737000 * CALL IEAVTSDG;/* DUMP GLOBAL STORAGE AREAS 0224 00738000 * @G33VPHD*/ 00739000 L @15,@CV03128 0224 00740000 BALR @14,@15 0224 00741000 * ERRBASE1=R9; /* RESTORE BASE REGISTER FOR 0225 00742000 * RECOVERY @G33VPHD*/ 00743000 ST R9,ERRBASE1(,R3) 0225 00744000 * SVCDMPNM=CSECTNAM;/* RESTORE CSECT NAME FOR 0226 00745000 * RECOVERY @G33VPHD*/ 00746000 MVC SVCDMPNM(8,R7),@CC03098 0226 00747000 * IF CVTGTFAV='0'B THEN/* IF GTF NOT ACTIVE ZERO 00748000 * TRT REQ BIT @ZM45053*/ 00749000 L @12,CVTPTR 0227 00750000 TM CVTGTFAV(@12),B'10000000' 0227 00751000 BNZ @RF00227 0227 00752000 * SVCDOPT1=SVCDOPT1&GLOBOFF1;/* ZERO GLOBAL REQ 00753000 * BITS @ZM45053*/ 00754000 NI SVCDOPT1(R7),X'0E' 0228 00755000 * ELSE 0229 00756000 * SVCDOPT1=SVCDOPT1&GLOBOFF3;/* GTF ACTIVE DONT 00757000 * ZERO TRT REQUEST BIT @ZM45053*/ 00758000 B @RC00227 0229 00759000 @RF00227 NI SVCDOPT1(R7),X'0F' 0229 00760000 * SVCDOPT2=SVCDOPT2&GLOBOFF2;/* ZERO GLOBAL REQ 00761000 * BITS @G33VPHD*/ 00762000 @RC00227 NI SVCDOPT2(R7),X'7F' 0230 00763000 * SVCDOPT2=SVCDOPT2|GLOBON2;/* TURN ON NO GLOBAL 00764000 * BITS @G33VPHD*/ 00765000 OI SVCDOPT2(R7),X'0C' 0231 00766000 * RTCTASO=SVCDOPTS;/* SAVE CHANGED OPTIONS FOR 0232 00767000 * NEXT ADDRESS SPACE @G33VPHD*/ 00768000 L @12,CVTPTR 0232 00769000 L @12,CVTRTMCT(,@12) 0232 00770000 MVC RTCTASO(2,@12),SVCDOPTS(R7) 0232 00771000 * END; /* @G33VPHD*/ 00772000 *DTLOC15: 0234 00773000 * ERRRETRY=ADDR(RECEND);/* GET NEXT RETRY LOCATION 0234 00774000 * ADDRESS @G33VPHD*/ 00775000 * 0234 00776000 @RF00222 DS 0H 0234 00777000 DTLOC15 LA @12,RECEND 0234 00778000 ST @12,ERRRETRY(,R3) 0234 00779000 * /***************************************************/ 00780000 * /* */ 00781000 * /* DUMP REQUESTED LOCAL STORAGE AREAS @G33VPHD*/ 00782000 * /* */ 00783000 * /***************************************************/ 00784000 * 0235 00785000 * IF SVCDRGN='1'B| /* RGN A REQUESTED AREA OR 0235 00786000 * @G33VPHD*/ 00787000 * SVCDLSQA='1'B|/* LSQA A REQUESTED AREA OR 0235 00788000 * @G33VPHD*/ 00789000 * SVCDSWA='1'B| /* SWA A REQUESTED AREA OR 0235 00790000 * @G33VPHD*/ 00791000 * SVCDLPA='1'B| /* LPA A REQUESTED AREA OR 0235 00792000 * @G33VPHD*/ 00793000 * SDUSTOR='1'B| /* STORAGE LIST WAS SPECIFIED OR 00794000 * @ZA19201*/ 00795000 * (SDUBRANH='0'B&/* THIS IS NOT A BRANCH ENTRY 0235 00796000 * AND @ZA19201*/ 00797000 * SVCDNSMD='0'B) THEN/* AND NOSUMDUMP NOT 0235 00798000 * SPECIFIED @ZA19201*/ 00799000 TM SVCDRGN(R7),B'00001100' 0235 00800000 BNZ @RT00235 0235 00801000 TM SVCDSWA(R7),B'01000000' 0235 00802000 BO @RT00235 0235 00803000 TM SVCDLPA(R7),B'00000010' 0235 00804000 BO @RT00235 0235 00805000 L @12,CVTPTR 0235 00806000 L @12,CVTRTMCT(,@12) 0235 00807000 L @12,RTCTSDPL(,@12) 0235 00808000 TM SDUSTOR(@12),B'00100000' 0235 00809000 BO @RT00235 0235 00810000 TM SDUBRANH(@12),B'00000001' 0235 00811000 BNZ @RF00235 0235 00812000 TM SVCDNSMD(R7),B'00010000' 0235 00813000 BNZ @RF00235 0235 00814000 @RT00235 DS 0H 0236 00815000 * DO; /* LOCAL AREA REQUESTED @G33VPHD*/ 00816000 * 0236 00817000 * /***********************************************/ 00818000 * /* */ 00819000 * /* FOR MULTIPLE ADDRESS SPACE DUMPS SCHEDULE */ 00820000 * /* SRBS IN ALL OTHER REQUESTED ADDRESS SPACES */ 00821000 * /* @G33VPHD*/ 00822000 * /* */ 00823000 * /***********************************************/ 00824000 * 0237 00825000 * IF RTCTSDMA='1'B&/* IF MULTIPLE ADDR SPACE 0237 00826000 * @G33VPHD*/ 00827000 * ASCBASID=MASTASID THEN/* AND THIS IS MASTER 00828000 * @ZM44936*/ 00829000 L @12,CVTPTR 0237 00830000 L @12,CVTRTMCT(,@12) 0237 00831000 TM RTCTSDMA(@12),B'00010000' 0237 00832000 BNO @RF00237 0237 00833000 L @12,ASCBPTR 0237 00834000 CLC ASCBASID(2,@12),@CH00067 0237 00835000 BNE @RF00237 0237 00836000 * DO; /* SCHEDULE REST OF SRBS @G33VPHD*/ 00837000 */* ******************************************************************/ 00838000 */* THIS SEGMENT SCHEDULES GLOBAL SRBS IN THE ADDRESS SPACES */ 00839000 */* REMAINING OF A MULTIPLE ADDRESS SPACE DUMP. IF ONE */ 00840000 */* OF THE REMAINING ADDRESS SPACES IS MASTER, MODULE */ 00841000 */* IEAVTSDL IS CALLED TO DUMP THE REQUESTED LOCAL AREAS */ 00842000 */* OF THE MASTER ADDRESS SPACE */ 00843000 */* */ 00844000 */* INPUT: ASIDLIST,SDUMP PARAMETER LIST,SRBS */ 00845000 */* */ 00846000 */* OUTPUT: SRBS SCHEDULE */ 00847000 */* */ 00848000 */* INCLUDED BY: DTLOCAL @G33VPHD*/ 00849000 */* ******************************************************************/ 00850000 * 0239 00851000 * RFY 0239 00852000 * R10 RSTD;/* @G33VPHD*/ 00853000 * RFY 0240 00854000 * SRBSECT BASED(R1);/* @G33VPHD*/ 00855000 * ERRSRBSD='1'B;/* INDICATE SRBS NOW BEING 0241 00856000 * SCHEDULED @ZM45208*/ 00857000 OI ERRSRBSD(R3),B'00000010' 0241 00858000 * DO RTCTINDX=ONE TO RTCTSDNA;/* DUMP ALL 0242 00859000 * REQUESTED ASIDS @G33VPHD*/ 00860000 LA @12,1 0242 00861000 B @DE00242 0242 00862000 @DL00242 DS 0H 0243 00863000 * R1=ADDR(SVCDSRB(RTCTINDX));/* ADDRESS SRB 00864000 * @G33VPHD*/ 00865000 L @12,CVTPTR 0243 00866000 L @11,CVTRTMCT(,@12) 0243 00867000 SLR @08,@08 0243 00868000 IC @08,RTCTINDX(,@11) 0243 00869000 LR @06,@08 0243 00870000 MH @06,@CH00115 0243 00871000 L R1,SVCDSRBA(,R7) 0243 00872000 AL R1,@CF03257 0243 00873000 LA R1,SVCDSRB(@06,R1) 0243 00874000 * R10=RTCTSDAS(RTCTINDX);/* GET REQUESTED 00875000 * ASID @GEEVPHD*/ 00876000 SLA @08,2 0244 00877000 ALR @08,@11 0244 00878000 SLR R10,R10 0244 00879000 ICM R10,3,RTCTSDAS-4(@08) 0244 00880000 * IF ASVTAVAL(R10)='1'B THEN/* IF ASID NOT 00881000 * ASSIGNED @G33VPHD*/ 00882000 LR @08,R10 0245 00883000 SLA @08,2 0245 00884000 L @12,ASVTPTR(,@12) 0245 00885000 ALR @12,@08 0245 00886000 TM ASVTAVAL-4(@12),B'10000000' 0245 00887000 BNO @RF00245 0245 00888000 * DO; /* TERMINATE THIS ASID DUMP 0246 00889000 * @G33VPHD*/ 00890000 * RTCTSDDO(RTCTINDX)='1'B;/* INDICATE 00891000 * DUMP COMPLETE @G33VPHD*/ 00892000 L @12,CVTPTR 0247 00893000 L @12,CVTRTMCT(,@12) 0247 00894000 SLR @08,@08 0247 00895000 IC @08,RTCTINDX(,@12) 0247 00896000 SLA @08,2 0247 00897000 ALR @11,@08 0247 00898000 OI RTCTSDDO-4(@11),B'00000001' 0247 00899000 * SDRETCOD=PARTDUMP;/* GIVE PERMANENT 00900000 * RETCODE @G33VPHD*/ 00901000 MVC SDRETCOD(4,R7),@CF00044 0248 00902000 * END; /* END TERMINATE THIS ASID 0249 00903000 * @G33VPHD*/ 00904000 * ELSE 0250 00905000 * DO; /* ASID ASSIGNED INSPECT IT 0250 00906000 * @G33VPHD*/ 00907000 B @RC00245 0250 00908000 @RF00245 DS 0H 0251 00909000 * RFY 0251 00910000 * ASCB BASED(ASVTENTY(R10));/* 0251 00911000 * @G33VPHD*/ 00912000 * IF ASCBDUMP=NULL|/* IF DUMP TASK NOT 00913000 * ACTIVE @G33VPHD*/ 00914000 * ASCBFAIL=ON|/* OR ADDR SPACE 0252 00915000 * NONDISP OR @G33VPHD*/ 00916000 * ASCBABNT=ON|/* ADDR SPACE TERM 0252 00917000 * ABNORMAL @G33VPHD*/ 00918000 * ASCBTERM=ON THEN/* OR ADDR SPACE 00919000 * ENDING @G33VPHD*/ 00920000 LR @12,R10 0252 00921000 SLA @12,2 0252 00922000 L @11,CVTPTR 0252 00923000 L @11,ASVTPTR(,@11) 0252 00924000 L @12,ASVTENTY-4(@12,@11) 0252 00925000 L @11,ASCBDUMP(,@12) 0252 00926000 LTR @11,@11 0252 00927000 BZ @RT00252 0252 00928000 TM ASCBFAIL(@12),B'01000000' 0252 00929000 BO @RT00252 0252 00930000 TM ASCBABNT(@12),B'00011000' 0252 00931000 BZ @RF00252 0252 00932000 @RT00252 DS 0H 0253 00933000 * DO;/* TERMINATE THIS ASID DUMP 0253 00934000 * @G33VPHD*/ 00935000 * RTCTSDDO(RTCTINDX)='1'B;/* 0254 00936000 * INDICATE DUMP COMPLETE 0254 00937000 * @G33VPHD*/ 00938000 L @12,CVTPTR 0254 00939000 L @12,CVTRTMCT(,@12) 0254 00940000 SLR @11,@11 0254 00941000 IC @11,RTCTINDX(,@12) 0254 00942000 SLA @11,2 0254 00943000 ALR @12,@11 0254 00944000 OI RTCTSDDO-4(@12),B'00000001' 0254 00945000 * SDRETCOD=PARTDUMP;/* GIVE 0255 00946000 * PERMANENT RETCODE @G33VPHD*/ 00947000 MVC SDRETCOD(4,R7),@CF00044 0255 00948000 * END;/* END TERMINATE THIS ASID 0256 00949000 * @G33VPHD*/ 00950000 * ELSE 0257 00951000 * DO;/* DUMP THIS ADDRESS SPACE 0257 00952000 * @G33VPHD*/ 00953000 B @RC00252 0257 00954000 @RF00252 DS 0H 0258 00955000 * IF RTCTSDAS(RTCTINDX)=MASTASID/* 00956000 * IF MASTER REQD @G33VPHD*/ 00957000 * THEN 0258 00958000 L @12,CVTPTR 0258 00959000 L @12,CVTRTMCT(,@12) 0258 00960000 SLR @11,@11 0258 00961000 IC @11,RTCTINDX(,@12) 0258 00962000 SLA @11,2 0258 00963000 ALR @12,@11 0258 00964000 CLC RTCTSDAS-4(2,@12),@CH00067 0258 00965000 BNE @RF00258 0258 00966000 * DO;/* DONT SCHEDULE SRB @G33VPHD*/ 00967000 * CALL IEAVTSDL;/* DUMP MASTER 0260 00968000 * LOCAL AREAS @G33VPHD*/ 00969000 L @15,@CV03129 0260 00970000 BALR @14,@15 0260 00971000 * ERRBASE1=R9;/* RESTORE BASE 0261 00972000 * REGISTER FOR RECOVERY @G33VPHD*/ 00973000 ST R9,ERRBASE1(,R3) 0261 00974000 * SVCDMPNM=CSECTNAM;/* RESTORE 0262 00975000 * CSECT NAME FOR RECOVERY 0262 00976000 * @G33VPHD*/ 00977000 * 0262 00978000 MVC SVCDMPNM(8,R7),@CC03098 0262 00979000 * /*******************************/ 00980000 * /* */ 00981000 * /* CALL ENABLED SUMMARY DUMP TO*/ 00982000 * /* WRITE A SUMMARY DUMP */ 00983000 * /* @ZA19201*/ 00984000 * /* ON THE DUMP DATA SET IF THIS*/ 00985000 * /* IS EXECUTING IN THE @ZA19201*/ 00986000 * /* CALLERS ADDRESS SPACE AND */ 00987000 * /* BRANCH=YES WAS NOT @ZA19201*/ 00988000 * /* REQUESTED @ZA19201*/ 00989000 * /* */ 00990000 * /*******************************/ 00991000 * 0263 00992000 * IF SDUBRANH='0'B&/* IF 0263 00993000 * BRANCH=YES WAS NOT REQUESTED 00994000 * @ZA19201*/ 00995000 * SVCDNSMD='0'B&/* AND 0263 00996000 * SUMMARY DUMP IS REQUESTED 0263 00997000 * @ZA19201*/ 00998000 * ERRENDMP='0'B THEN/* AND NO 00999000 * BAD ERRORS SO FAR @ZA19201*/ 01000000 L @12,CVTPTR 0263 01001000 L @12,CVTRTMCT(,@12) 0263 01002000 L @12,RTCTSDPL(,@12) 0263 01003000 TM SDUBRANH(@12),B'00000001' 0263 01004000 BNZ @RF00263 0263 01005000 TM SVCDNSMD(R7),B'00010000' 0263 01006000 BNZ @RF00263 0263 01007000 TM ERRENDMP(R3),B'01000000' 0263 01008000 BNZ @RF00263 0263 01009000 * DO;/* INVOKE ENABLED SUMMARY 01010000 * DUMP @ZA19201*/ 01011000 * CALL IEAVTSSE;/* CALL THE 0265 01012000 * ENABLED SUMMARY DUMP PROCESSOR 01013000 * @ZA19201*/ 01014000 L @15,@CV03133 0265 01015000 BALR @14,@15 0265 01016000 * ERRBASE1=R9;/* RESTORE SAVED 01017000 * BASE REGISTER @ZA19201*/ 01018000 ST R9,ERRBASE1(,R3) 0266 01019000 * SVCDMPNM=CSECTNAM;/* RESTORE 01020000 * CSECT NAME FOR RECOVERY 0267 01021000 * @ZA19201*/ 01022000 MVC SVCDMPNM(8,R7),@CC03098 0267 01023000 * END;/* END OF INVOKE ENABLED 01024000 * SUMMARY DUMP @ZA19201*/ 01025000 * RTCTSDDO(RTCTINDX)='1'B;/* 0269 01026000 * INDICATE DUMP IS COMPLETE IN 01027000 * THIS ASID @G33VPHD*/ 01028000 @RF00263 L @12,CVTPTR 0269 01029000 L @12,CVTRTMCT(,@12) 0269 01030000 SLR @11,@11 0269 01031000 IC @11,RTCTINDX(,@12) 0269 01032000 SLA @11,2 0269 01033000 ALR @12,@11 0269 01034000 OI RTCTSDDO-4(@12),B'00000001' 0269 01035000 * END;/* END MASTER REQUESTED 0270 01036000 * @GEEVPHD*/ 01037000 * ELSE 0271 01038000 * DO;/* NOT MASTER ASID REQUEST 0271 01039000 * @G33VPHD*/ 01040000 B @RC00258 0271 01041000 @RF00258 DS 0H 0272 01042000 * SRBID=SRBACRON;/* INITIALIZE 0272 01043000 * SRB ID FIELD @G33VPHD*/ 01044000 MVC SRBID(4,R1),@CC03102 0272 01045000 * SRBPASID=R10;/* INITIALIZE ASID 01046000 * FIELD @G33VPHD*/ 01047000 STH R10,SRBPASID(,R1) 0273 01048000 * SRBPTCB=ASCBDUMP;/* OBTAIN DUMP 01049000 * TASK TCB ADDRESS FOR THIS 0274 01050000 * ADDRESS SPACE @G33VPHD*/ 01051000 LR @12,R10 0274 01052000 SLA @12,2 0274 01053000 L @11,CVTPTR 0274 01054000 L @08,ASVTPTR(,@11) 0274 01055000 L @12,ASVTENTY-4(@12,@08) 0274 01056000 L @08,ASCBDUMP(,@12) 0274 01057000 ST @08,SRBPTCB(,R1) 0274 01058000 * SRBASCB=ASVTENTY(R10);/* PUT 0275 01059000 * ASCB ADDR IN SRB @G33VPHD*/ 01060000 ST @12,SRBASCB(,R1) 0275 01061000 * SRBEP=SDSRBADR;/* GET SRB ADDR 01062000 * FROM WORK AREA @G33VPHD*/ 01063000 L @12,SDSRBADR(,R7) 0276 01064000 ST @12,SRBEP(,R1) 0276 01065000 * SRBPARM=SDSRBBAS;/* GET BASE 0277 01066000 * REG FROM WORK AREA @G33VPHD*/ 01067000 L @12,SDSRBBAS(,R7) 0277 01068000 ST @12,SRBPARM(,R1) 0277 01069000 * SRBRMTR=ADDR(CVTBRET);/* NO 0278 01070000 * RESOURE MANAGER @G33VPHD*/ 01071000 LA @12,CVTBRET(,@11) 0278 01072000 ST @12,SRBRMTR(,R1) 0278 01073000 * RTCTSDSS(RTCTINDX)=ON;/* SRB 0279 01074000 * SCHEDULED THIS ASID @G33VPHD*/ 01075000 * 0279 01076000 L @12,CVTRTMCT(,@11) 0279 01077000 SLR @11,@11 0279 01078000 IC @11,RTCTINDX(,@12) 0279 01079000 SLA @11,2 0279 01080000 ALR @12,@11 0279 01081000 OI RTCTSDSS-4(@12),B'10000000' 0279 01082000 * /*******************************/ 01083000 * /* */ 01084000 * /* SCHEDULE GLOBAL SRB TO */ 01085000 * /* RESUME DUMP TASK @G33VPHD*/ 01086000 * /* */ 01087000 * /*******************************/ 01088000 * 0280 01089000 * GEN REFS(CVTMAP,CVTGSMQ,SRBSECT, 01090000 * SRBFLNK); 0280 01091000 * /* @G33VPHD*/ 01092000 SCHEDULE SRB=(1),SCOPE=GLOBAL RESUME DUMP TASK @G33VPHD 01093000 * END;/* END OF NOT MASTER ASID 0281 01094000 * REQUEST @G33VPHD*/ 01095000 * END;/* END OF SCHEDULE DUMP THIS 0282 01096000 * ADDR SPACE @G33VPHD*/ 01097000 @RC00258 DS 0H 0283 01098000 * RFY 0283 01099000 * ASCB BASED(PSAAOLD);/* @G33VPHD*/ 01100000 @RC00252 DS 0H 0284 01101000 * END; /* END ASID ASSIGNED INSPECT IT 01102000 * @G33VPHD*/ 01103000 * END; /* END DUMP ALL REQ ASIDS 0285 01104000 * @G33VPHD*/ 01105000 @RC00245 L @11,CVTPTR 0285 01106000 L @11,CVTRTMCT(,@11) 0285 01107000 LA @12,1 0285 01108000 SLR @08,@08 0285 01109000 IC @08,RTCTINDX(,@11) 0285 01110000 ALR @12,@08 0285 01111000 @DE00242 L @11,CVTPTR 0285 01112000 L @11,CVTRTMCT(,@11) 0285 01113000 STC @12,RTCTINDX(,@11) 0285 01114000 L @11,CVTPTR 0285 01115000 L @11,CVTRTMCT(,@11) 0285 01116000 SLR @08,@08 0285 01117000 IC @08,RTCTSDNA(,@11) 0285 01118000 CR @12,@08 0285 01119000 BNH @DL00242 0285 01120000 * ERRSRBSD='0'B;/* INDICATE SRBS NOT BEING 0286 01121000 * SCHEDULED @ZM45208*/ 01122000 NI ERRSRBSD(R3),B'11111101' 0286 01123000 * RTCTINDX=ERRSAVE;/* RESTORE THIS ADDRESS 0287 01124000 * SPACE INDEX @G33VPHD*/ 01125000 L @12,CVTPTR 0287 01126000 L @12,CVTRTMCT(,@12) 0287 01127000 MVC RTCTINDX(1,@12),ERRSAVE(R3) 0287 01128000 * RFY 0288 01129000 * R10 UNRSTD;/* @G33VPHD*/ 01130000 * RTCTSDMA='0'B;/* TURN OFF MULTIPLE ASID 0289 01131000 * DUMPS SINCE ALL ASIDS ARE NOW 01132000 * SCHEDULED @ZM44936*/ 01133000 NI RTCTSDMA(@12),B'11101111' 0289 01134000 * END; /* @G33VPHD*/ 01135000 * ELSE /* ONE ADDR SPACE REQUEST 0291 01136000 * @G33VPHD*/ 01137000 * DO; /* @G33VPHD*/ 01138000 B @RC00237 0291 01139000 @RF00237 DS 0H 0292 01140000 * CALL IEAVTSDL;/* DUMP REQUESTED LOCAL AREAS 01141000 * @G33VPHD*/ 01142000 L @15,@CV03129 0292 01143000 BALR @14,@15 0292 01144000 * ERRBASE1=R9;/* RESTORE BASE REGISTER FOR 0293 01145000 * RECOVERY @G33VPHD*/ 01146000 ST R9,ERRBASE1(,R3) 0293 01147000 * SVCDMPNM=CSECTNAM;/* RESTORE CSECT NAME FOR 01148000 * RECOVERY @G33VPHD*/ 01149000 * 0294 01150000 MVC SVCDMPNM(8,R7),@CC03098 0294 01151000 * /*******************************************/ 01152000 * /* */ 01153000 * /* CALL ENABLED SUMMARY DUMP TO WRITE A */ 01154000 * /* SUMMARY DUMP @ZA19201*/ 01155000 * /* ON THE DUMP DATA SET IF THIS IS */ 01156000 * /* EXECUTING IN THE @ZA19201*/ 01157000 * /* CALLERS ADDRESS SPACE AND BRANCH=YES WAS*/ 01158000 * /* NOT @ZA19201*/ 01159000 * /* REQUESTED @ZA19201*/ 01160000 * /* */ 01161000 * /*******************************************/ 01162000 * 0295 01163000 * IF SDUBRANH='0'B&/* IF BRANCH=YES WAS NOT 01164000 * REQUESTED @ZA19201*/ 01165000 * SVCDNSMD='0'B&/* AND SUMMARY DUMP IS 0295 01166000 * REQUESTED @ZA19201*/ 01167000 * ERRENDMP='0'B THEN/* AND NO BAD ERRORS 01168000 * SO FAR @ZA19201*/ 01169000 L @12,CVTPTR 0295 01170000 L @12,CVTRTMCT(,@12) 0295 01171000 L @12,RTCTSDPL(,@12) 0295 01172000 TM SDUBRANH(@12),B'00000001' 0295 01173000 BNZ @RF00295 0295 01174000 TM SVCDNSMD(R7),B'00010000' 0295 01175000 BNZ @RF00295 0295 01176000 TM ERRENDMP(R3),B'01000000' 0295 01177000 BNZ @RF00295 0295 01178000 * DO; /* INVOKE ENABLED SUMMARY DUMP 0296 01179000 * @ZA19201*/ 01180000 * CALL IEAVTSSE;/* CALL THE ENABLED 0297 01181000 * SUMMARY DUMP PROCESSOR 0297 01182000 * @ZA19201*/ 01183000 L @15,@CV03133 0297 01184000 BALR @14,@15 0297 01185000 * ERRBASE1=R9;/* RESTORE SAVED BASE 0298 01186000 * REGISTER @ZA19201*/ 01187000 ST R9,ERRBASE1(,R3) 0298 01188000 * SVCDMPNM=CSECTNAM;/* RESTORE CSECT NAME 01189000 * FOR RECOVERY @ZA19201*/ 01190000 MVC SVCDMPNM(8,R7),@CC03098 0299 01191000 * END; /* END OF INVOKE ENABLED SUMMARY 01192000 * DUMP @ZA19201*/ 01193000 * END; /* END OF LOCAL AREA DUMP 0301 01194000 * @G33VPHD*/ 01195000 * END; /* END OF LOCAL AREAS REQUESTED 01196000 * @G33VPHD*/ 01197000 * ELSE 0303 01198000 * DO; /* NO LOCAL AREAS REQUESTED SO 0303 01199000 * SEE IF DUMP COMPLETE @G33VPHD*/ 01200000 B @RC00235 0303 01201000 @RF00235 DS 0H 0304 01202000 * IF RTCTSDMA='1'B&/* IF A MULTIPLE ASID DUMP 0304 01203000 * @ZM44936*/ 01204000 * ASCBASID=MASTASID THEN/* AND RUNNING IN 0304 01205000 * MASTER @ZM44936*/ 01206000 L @12,CVTPTR 0304 01207000 L @12,CVTRTMCT(,@12) 0304 01208000 TM RTCTSDMA(@12),B'00010000' 0304 01209000 BNO @RF00304 0304 01210000 L @12,PSAAOLD 0304 01211000 CLC ASCBASID(2,@12),@CH00067 0304 01212000 BNE @RF00304 0304 01213000 * DO; /* MARK ALL REQUESTED ASID DUMPS 01214000 * COMPLETE @ZM44936*/ 01215000 * 0305 01216000 * /*******************************************/ 01217000 * /* */ 01218000 * /* THIS SECTION MARKS ALL REQUESTED ADDRESS*/ 01219000 * /* SPACE @ZM44936*/ 01220000 * /* DUMPS COMPLETE CAUSING SDC TO TERMINATE */ 01221000 * /* THE DUMP @ZM44936*/ 01222000 * /* */ 01223000 * /*******************************************/ 01224000 * 0306 01225000 * DO RTCTINDX=ONE TO MAXENTRY;/* SEARCH ALL 01226000 * ENTRIES @ZM44936*/ 01227000 LA @12,1 0306 01228000 L @08,CVTPTR 0306 01229000 L @08,CVTRTMCT(,@08) 0306 01230000 STC @12,RTCTINDX(,@08) 0306 01231000 @DL00306 DS 0H 0307 01232000 * IF RTCTSDAS(RTCTINDX)^=NULL/* IF THIS 0307 01233000 * ADDRESS SPACE IS A REQUESTED 01234000 * ADDRESS SPACE @ZM44936*/ 01235000 * THEN 0307 01236000 L @12,CVTPTR 0307 01237000 L @12,CVTRTMCT(,@12) 0307 01238000 SLR @08,@08 0307 01239000 IC @08,RTCTINDX(,@12) 0307 01240000 SLA @08,2 0307 01241000 ALR @08,@12 0307 01242000 SLR @06,@06 0307 01243000 ICM @06,3,RTCTSDAS-4(@08) 0307 01244000 LTR @06,@06 0307 01245000 BZ @RF00307 0307 01246000 * RTCTSDDO(RTCTINDX)='1'B;/* MARK DUMP 0308 01247000 * DONE @ZM44936*/ 01248000 L @08,CVTPTR 0308 01249000 L @08,CVTRTMCT(,@08) 0308 01250000 SLR @06,@06 0308 01251000 IC @06,RTCTINDX(,@08) 0308 01252000 SLA @06,2 0308 01253000 ALR @12,@06 0308 01254000 OI RTCTSDDO-4(@12),B'00000001' 0308 01255000 * END; /* END OF SEARCH ALL TABLE 0309 01256000 * ENTRIES @ZM44936*/ 01257000 @RF00307 L @08,CVTPTR 0309 01258000 L @08,CVTRTMCT(,@08) 0309 01259000 LA @12,1 0309 01260000 SLR @06,@06 0309 01261000 IC @06,RTCTINDX(,@08) 0309 01262000 ALR @12,@06 0309 01263000 L @08,CVTPTR 0309 01264000 L @08,CVTRTMCT(,@08) 0309 01265000 STC @12,RTCTINDX(,@08) 0309 01266000 C @12,@CF00127 0309 01267000 BNH @DL00306 0309 01268000 * RTCTINDX=ERRSAVE;/* RESTORE SAVED INDEX 0310 01269000 * @ZM44936*/ 01270000 L @12,CVTPTR 0310 01271000 L @12,CVTRTMCT(,@12) 0310 01272000 MVC RTCTINDX(1,@12),ERRSAVE(R3) 0310 01273000 * END; /* END OF MARK ALL REQUESTED 0311 01274000 * ASIDS DONE@ZM44936 */ 01275000 * END; /* END OF NO LOCAL AREAS 0312 01276000 * REQUESTED @ZM44936*/ 01277000 @RF00304 DS 0H 0313 01278000 * END; /* END NO ERRORS HAVE OCCURRED SO 01279000 * FAR CONTINUE @ZM44953*/ 01280000 * 0313 01281000 @RC00235 DS 0H 0314 01282000 * /*******************************************************/ 01283000 * /* */ 01284000 * /* NOW DONE DUMP PROCESSING FOR THIS ADDR SPACE SEE */ 01285000 * /* @G33VPHD*/ 01286000 * /* IF ANY OTHER ADDR SPACE DUMPS ACTIVE, IF NOT POST */ 01287000 * /* @G33VPHD*/ 01288000 * /* USER AND QUIT @G33VPHD*/ 01289000 * /* */ 01290000 * /*******************************************************/ 01291000 * 0314 01292000 *RECEND: /* @G33VPHD*/ 01293000 * ERRRETRY=ADDR(RECRSME);/* GET NEXT RETRY LOCATION 0314 01294000 * ADDRESS @G33VPHD*/ 01295000 @RF00128 DS 0H 0314 01296000 RECEND LA @12,RECRSME 0314 01297000 ST @12,ERRRETRY(,R3) 0314 01298000 * IF RTCTINDX=0 THEN /* IF RTCTINDX NOT INITIALIZED 0315 01299000 * @ZM45192*/ 01300000 L @12,CVTPTR 0315 01301000 L @12,CVTRTMCT(,@12) 0315 01302000 CLI RTCTINDX(@12),0 0315 01303000 BNE @RF00315 0315 01304000 * DO; /* INITIALIZE TABLE INDEX 0316 01305000 * @ZM45192*/ 01306000 * 0316 01307000 * /***************************************************/ 01308000 * /* */ 01309000 * /* THIS LOOP SEARCHES THE RTCT ARRAY TO FIND THE */ 01310000 * /* @G33VPHD*/ 01311000 * /* ENTRY FOR THIS ADDRESS SPACE @G33VPHD*/ 01312000 * /* */ 01313000 * /***************************************************/ 01314000 * 0317 01315000 * IF RTCTSDMA='1'B& /* IF THIS IS THE MASTER DUMP 0317 01316000 * TASK @ZM44937*/ 01317000 * ASCBASID=MASTASID THEN/* AND FOR MULTI ASID 0317 01318000 * DUMP @ZM44937*/ 01319000 TM RTCTSDMA(@12),B'00010000' 0317 01320000 BNO @RF00317 0317 01321000 L @08,PSAAOLD 0317 01322000 CLC ASCBASID(2,@08),@CH00067 0317 01323000 BNE @RF00317 0317 01324000 * RTCTINDX=MAXENTRY;/* USE ENTRY 16 FOR THIS ASID 01325000 * ONLY @ZM44937*/ 01326000 MVI RTCTINDX(@12),X'10' 0318 01327000 * ELSE 0319 01328000 * DO; /* NOT GLOBAL DUMP TASK FIND 0319 01329000 * CURRENT ENTRY @ZM44937*/ 01330000 B @RC00317 0319 01331000 @RF00317 DS 0H 0320 01332000 * DO RTCTINDX=ONE TO MAXENTRY WHILE(RTCTSDAS( 0320 01333000 * RTCTINDX)^=ASCBASID); 0320 01334000 LA @12,1 0320 01335000 L @08,CVTPTR 0320 01336000 L @08,CVTRTMCT(,@08) 0320 01337000 STC @12,RTCTINDX(,@08) 0320 01338000 @DL00320 L @12,CVTPTR 0320 01339000 L @12,CVTRTMCT(,@12) 0320 01340000 SLR @08,@08 0320 01341000 IC @08,RTCTINDX(,@12) 0320 01342000 SLA @08,2 0320 01343000 ALR @12,@08 0320 01344000 L @08,PSAAOLD 0320 01345000 CLC RTCTSDAS-4(2,@12),ASCBASID(@08) 0320 01346000 BE @DC00320 0320 01347000 * END; /* END OF SEARCH @G33VPHD*/ 01348000 L @08,CVTPTR 0321 01349000 L @08,CVTRTMCT(,@08) 0321 01350000 LA @12,1 0321 01351000 SLR @06,@06 0321 01352000 IC @06,RTCTINDX(,@08) 0321 01353000 ALR @12,@06 0321 01354000 L @08,CVTPTR 0321 01355000 L @08,CVTRTMCT(,@08) 0321 01356000 STC @12,RTCTINDX(,@08) 0321 01357000 C @12,@CF00127 0321 01358000 BNH @DL00320 0321 01359000 @DC00320 DS 0H 0322 01360000 * IF RTCTINDX>MAXENTRY THEN/* IF ASID ENTRY NOT 01361000 * FOUND @G33VPHD*/ 01362000 L @12,CVTPTR 0322 01363000 L @12,CVTRTMCT(,@12) 0322 01364000 CLI RTCTINDX(@12),16 0322 01365000 BNH @RF00322 0322 01366000 * GEN(ABEND X'C0D',,,SYSTEM);/* BAD DUMP TASK 01367000 * RESUME @G33VPHD*/ 01368000 ABEND X'C0D',,,SYSTEM 01369000 * END; /* END FIND CURRENT TABLE ENTRY 01370000 * @ZM45192*/ 01371000 @RF00322 DS 0H 0325 01372000 * ERRSAVE=RTCTINDX; /* SAVE CURRENT INDEX FOR CLEANUP 01373000 * @ZM45196*/ 01374000 @RC00317 L @12,CVTPTR 0325 01375000 L @12,CVTRTMCT(,@12) 0325 01376000 MVC ERRSAVE(1,R3),RTCTINDX(@12) 0325 01377000 * END; /* END OF INITIALIZE TABLE INDEX 01378000 * @ZM45192*/ 01379000 * RTCTSDDO(RTCTINDX)='1'B;/* IND DUMP COMPLETE THIS 0327 01380000 * ADDRESS SPACE @G33VPHD*/ 01381000 @RF00315 DS 0H 0328 01382000 * RTCTSDEN(RTCTINDX)='0'B;/* INDICATE DUMP NO LONGER 0328 01383000 * ENTERED @ZM44940*/ 01384000 L @12,CVTPTR 0328 01385000 L @12,CVTRTMCT(,@12) 0328 01386000 SLR @08,@08 0328 01387000 IC @08,RTCTINDX(,@12) 0328 01388000 SLA @08,2 0328 01389000 ALR @12,@08 0328 01390000 OI RTCTSDDO-4(@12),B'00000001' 0328 01391000 NI RTCTSDEN-4(@12),B'11111101' 0328 01392000 * PSATOLD->TCBEXSVC='0'B;/* INDICATE SVC DUMP NOT ACTIVE 01393000 * THIS ADDRESS SPACE @ZM44940*/ 01394000 * 0329 01395000 L @12,PSATOLD 0329 01396000 NI TCBEXSVC(@12),B'11111110' 0329 01397000 * /*******************************************************/ 01398000 * /* */ 01399000 * /* THIS LOOP CHECKS IF ANY OTHER DUMP TASKS ARE ACTIVE */ 01400000 * /* @G33VPHD*/ 01401000 * /* */ 01402000 * /*******************************************************/ 01403000 * 0330 01404000 * DO RTCTINDX=ONE TO RTCTSDNA WHILE(RTCTSDDO(RTCTINDX)='1'B 01405000 * |RTCTSDSS(RTCTINDX)='0'B);/* SEARCH ALL TABLE 0330 01406000 * ENTRIES @ZM45192*/ 01407000 LA @12,1 0330 01408000 B @DE00330 0330 01409000 @DL00330 L @12,CVTPTR 0330 01410000 L @12,CVTRTMCT(,@12) 0330 01411000 SLR @08,@08 0330 01412000 IC @08,RTCTINDX(,@12) 0330 01413000 SLA @08,2 0330 01414000 ALR @12,@08 0330 01415000 TM RTCTSDDO-4(@12),B'00000001' 0330 01416000 BNZ @DB00330 0330 01417000 TM RTCTSDSS-4(@12),B'10000000' 0330 01418000 BO @DC00330 0330 01419000 @DB00330 DS 0H 0331 01420000 * END; /* END OF ACTIVE DUMP SEARCH LOOP 01421000 * @G33VPHD*/ 01422000 * 0331 01423000 L @08,CVTPTR 0331 01424000 L @08,CVTRTMCT(,@08) 0331 01425000 LA @12,1 0331 01426000 SLR @06,@06 0331 01427000 IC @06,RTCTINDX(,@08) 0331 01428000 ALR @12,@06 0331 01429000 @DE00330 L @08,CVTPTR 0331 01430000 L @08,CVTRTMCT(,@08) 0331 01431000 STC @12,RTCTINDX(,@08) 0331 01432000 L @08,CVTPTR 0331 01433000 L @08,CVTRTMCT(,@08) 0331 01434000 SLR @06,@06 0331 01435000 IC @06,RTCTSDNA(,@08) 0331 01436000 CR @12,@06 0331 01437000 BNH @DL00330 0331 01438000 @DC00330 DS 0H 0332 01439000 * /*******************************************************/ 01440000 * /* */ 01441000 * /* THIS SECTION PERFORMS RESOURCE CLEAN UP PROCESSING. */ 01442000 * /* IF NO OTHER ADDRESS SPACES ARE ACTIVE, THE USERS ECB*/ 01443000 * /* IS POSTED AND ALL SVC DUMP RESOURCES ARE CLEANED UP.*/ 01444000 * /* IF OTHER DUMP TASKS ARE ACTIVE, THE ADDRESS SPACE */ 01445000 * /* TASKS AND THE SYSTEM ARE SET DISPATCHABLE AND THE */ 01446000 * /* TRACE TABLE IS STARTED. A DEQ IS PERFORMED FROM THE */ 01447000 * /* SDUMP RESOURCE. */ 01448000 * /* */ 01449000 * /*******************************************************/ 01450000 * 0332 01451000 * IF RTCTINDX>RTCTSDNA THEN/* IF NO OTHER ADDRESS SPACES 01452000 * ARE ACTIVE @G33VPHD*/ 01453000 L @12,CVTPTR 0332 01454000 L @08,CVTRTMCT(,@12) 0332 01455000 CLC RTCTINDX(1,@08),RTCTSDNA(@08) 0332 01456000 BNH @RF00332 0332 01457000 * DO; /* PERFORM TOTAL CLEAN UP 0333 01458000 * @G33VPHD*/ 01459000 * 0333 01460000 * /***************************************************/ 01461000 * /* */ 01462000 * /* DUMP GTF RECORDS IF TRACE REQUESTED AND GTF */ 01463000 * /* ACTIVE @ZM45053*/ 01464000 * /* */ 01465000 * /***************************************************/ 01466000 * 0334 01467000 * IF ERRENDMP='0'B& /* IF NO ERRORS SO FAR @ZM45053*/ 01468000 * SVCDTRT='1'B& /* AND TRT IS REQUESTED @ZM45053*/ 01469000 * CVTGTFAV='1'B&/* AND GTF IS ACTIVE @ZM45053*/ 01470000 * ERRGTFGO='1'B THEN/* AND HOOK MACRO ISSUED 0334 01471000 * @ZM45053*/ 01472000 TM ERRENDMP(R3),B'01000000' 0334 01473000 BNZ @RF00334 0334 01474000 TM SVCDTRT(R7),B'00000001' 0334 01475000 BNO @RF00334 0334 01476000 TM CVTGTFAV(@12),B'10000000' 0334 01477000 BNO @RF00334 0334 01478000 TM ERRGTFGO(R3),B'00000100' 0334 01479000 BNO @RF00334 0334 01480000 * DO; /* DUMP REQUESTED GTF DATA 0335 01481000 * @ZM45053*/ 01482000 * CALL IEAVTSDF;/* DUMP REQUESTED GTF DATA 0336 01483000 * @ZM45053*/ 01484000 L @15,@CV03131 0336 01485000 BALR @14,@15 0336 01486000 * ERRBASE1=R9; /* RESTORE BASE REGISTER FOR 0337 01487000 * RECOVERY @ZM45053*/ 01488000 ST R9,ERRBASE1(,R3) 0337 01489000 * SVCDMPNM=CSECTNAM;/* RESTORE CSECT NAME FOR 0338 01490000 * RECOVERY @ZM45053*/ 01491000 MVC SVCDMPNM(8,R7),@CC03098 0338 01492000 * END; /* END OF DUMP REQUESTED GTF DATA 01493000 * @ZM45053*/ 01494000 * RTCTSDSL='1'B; /* DUMP DATA SET INITIALIZED AND 01495000 * DEFAULT AREAS ARE DUMPED 0340 01496000 * @ZA19201*/ 01497000 @RF00334 L @12,CVTPTR 0340 01498000 L @12,CVTRTMCT(,@12) 0340 01499000 OI RTCTSDSL(@12),B'00000100' 0340 01500000 * CALL IEAVTSDC; /* CLEAN UP AND NOTIFY OPERATOR 01501000 * @G33VPHD*/ 01502000 L @15,@CV03127 0341 01503000 BALR @14,@15 0341 01504000 * ERRBASE1=R9; /* RESTORE BAS REGISTER FOR 0342 01505000 * RECOVERY @G33VPHD*/ 01506000 ST R9,ERRBASE1(,R3) 0342 01507000 * SVCDMPNM=CSECTNAM;/* RESTORE CSECT NAME FOR 0343 01508000 * RECOVERY @G33VPHD*/ 01509000 MVC SVCDMPNM(8,R7),@CC03098 0343 01510000 * IF ERRLLOCK='1'B THEN/* IF LOCAL LOCK IS HELD 0344 01511000 * @G33VPHD*/ 01512000 TM ERRLLOCK(R3),B'00000010' 0344 01513000 BNO @RF00344 0344 01514000 * DO; /* RELEASE THE LOCAL LOCK 0345 01515000 * @G33VPHD*/ 01516000 * GEN REFS(PSALITA); 0346 01517000 * /*RELEASE THE LOCAL LOCK @G33VPHD*/ 01518000 FRELOCKC SETLOCK RELEASE,TYPE=LOCAL, X01519000 RELATED=(SVCDUMP,IEAVTSDT(GETLOCKC)) 01520000 * ERRLLOCK='0'B;/* LOCAL LOCK NOT HELD @G33VPHD*/ 01521000 NI ERRLLOCK(R3),B'11111101' 0347 01522000 * END; /* END OF OBTAIN THE LOCAL LOCK 01523000 * @G33VPHD*/ 01524000 * IF SDUECB='1'B THEN/* IF ECB WAS SUPPLIED @G33VPHD*/ 01525000 @RF00344 L @12,CVTPTR 0349 01526000 L @12,CVTRTMCT(,@12) 0349 01527000 L @12,RTCTSDPL(,@12) 0349 01528000 TM SDUECB(@12),B'00001000' 0349 01529000 BNO @RF00349 0349 01530000 * DO; /* POST USER SUPPLIED ECB 0350 01531000 * @G33VPHD*/ 01532000 * CALL DTXMPOST;/* POST IT WITH RETURN CODE 0351 01533000 * @G33VPHD*/ 01534000 BAL @14,DTXMPOST 0351 01535000 * R3=ADDR(ERRORWK);/* RESTORE WORK AREA ADDRESS 01536000 * @G33VPHD*/ 01537000 LA R3,ERRORWK(,R7) 0352 01538000 * END; /* END POST USER SUPPLIED ECB 0353 01539000 * @G33VPHD*/ 01540000 * RTCTSDI=RTCTSDI&&RTCTSDI;/* CLEAR FLAGS @G33VPHD*/ 01541000 @RF00349 L @12,CVTPTR 0354 01542000 L @12,CVTRTMCT(,@12) 0354 01543000 XC RTCTSDI(3,@12),RTCTSDI(@12) 0354 01544000 * RTCTSDF=RTCTSDF&&RTCTSDF;/* CLEAR FLAGS @G33VPHD*/ 01545000 XC RTCTSDF(2,@12),RTCTSDF(@12) 0355 01546000 * DO RTCTINDX=ONE TO MAXENTRY;/* CLEAR WHOLE ARAY 0356 01547000 * @G33VPHD*/ 01548000 LA @12,1 0356 01549000 L @08,CVTPTR 0356 01550000 L @08,CVTRTMCT(,@08) 0356 01551000 STC @12,RTCTINDX(,@08) 0356 01552000 @DL00356 DS 0H 0357 01553000 * RTCTSDF3(RTCTINDX)=NULL;/* CLEAR THESE FLAGS 0357 01554000 * @G33VPHD*/ 01555000 L @12,CVTPTR 0357 01556000 L @12,CVTRTMCT(,@12) 0357 01557000 SLR @08,@08 0357 01558000 IC @08,RTCTINDX(,@12) 0357 01559000 SLA @08,2 0357 01560000 SLR @06,@06 0357 01561000 ALR @12,@08 0357 01562000 STCM @06,15,RTCTSDF3-4(@12) 0357 01563000 * END; /* END OF CLEAR WHOLE ARRAY 0358 01564000 * @G33VPHD*/ 01565000 L @08,CVTPTR 0358 01566000 L @08,CVTRTMCT(,@08) 0358 01567000 LA @12,1 0358 01568000 SLR @06,@06 0358 01569000 IC @06,RTCTINDX(,@08) 0358 01570000 ALR @12,@06 0358 01571000 L @08,CVTPTR 0358 01572000 L @08,CVTRTMCT(,@08) 0358 01573000 STC @12,RTCTINDX(,@08) 0358 01574000 C @12,@CF00127 0358 01575000 BNH @DL00356 0358 01576000 * ERRORWK=''B; /* ZERO SDUMP WORK AREA ERROR 0359 01577000 * AREA @ZM44953*/ 01578000 XC ERRORWK(24,R7),ERRORWK(R7) 0359 01579000 * RTCTSDID=NULL; /* SVC DUMP NOT ACTIVE @G33VPHD*/ 01580000 SLR @12,@12 0360 01581000 L @08,CVTPTR 0360 01582000 L @06,CVTRTMCT(,@08) 0360 01583000 STH @12,RTCTSDID(,@06) 0360 01584000 * RTCTSDPL=NULL; /* SVC DUMP UNLOCKED @G33VPHD*/ 01585000 ST @12,RTCTSDPL(,@06) 0361 01586000 * CVTSDBF=CVTSDBF&HIGHBIT0;/* 4K SQA BUFFER UNLOCKED */ 01587000 L @12,CVTSDBF(,@08) 0362 01588000 N @12,@CF03085 0362 01589000 ST @12,CVTSDBF(,@08) 0362 01590000 * END; /* END NO OTHER ADDR SPACES 0363 01591000 * @G33VPHD*/ 01592000 * 0363 01593000 * /*******************************************************/ 01594000 * /* */ 01595000 * /* OTHER ADDRESS SPACE DUMPS ACTIVE SO DO ONLY PARTIAL */ 01596000 * /* CLEAN UP @G33VPHD*/ 01597000 * /* */ 01598000 * /*******************************************************/ 01599000 * 0364 01600000 * ELSE 0364 01601000 * DO; /* PERFORM PARTIAL CLEAN UP 0364 01602000 * @G33VPHD*/ 01603000 B @RC00332 0364 01604000 @RF00332 DS 0H 0365 01605000 * IF ERRLLOCK='0'B THEN/* IF LOCAL LOCK NOT HELD 0365 01606000 * @G33VPHD*/ 01607000 TM ERRLLOCK(R3),B'00000010' 0365 01608000 BNZ @RF00365 0365 01609000 * DO; /* OBTAIN THE LOCAL LOCK @G33VPHD*/ 01610000 * GEN REFS(PSALITA); 0367 01611000 * /*OBTAIN LOCAL LOCK @G33VPHD*/ 01612000 GETLOCKC SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, X01613000 RELATED=(SVCDUMP,IEAVTSDT(FRELOCKD)) 01614000 * ERRLLOCK='1'B;/* INDICATE LOCAL LOCK HELD 0368 01615000 * @G33VPHD*/ 01616000 OI ERRLLOCK(R3),B'00000010' 0368 01617000 * END; /* END OF OBTAIN THE LOCAL LOCK 01618000 * @G33VPHD*/ 01619000 * R13=ADDR(SDWRGSV1);/* RESTORE SAVE AREA ADDRESS 0370 01620000 * @G33VPHD*/ 01621000 @RF00365 LA R13,SDWRGSV1(,R7) 0370 01622000 * CALL IEAVTSDE; /* INVOKE CODE TO DO PARTIAL 0371 01623000 * CLEANUP @G33VPHD*/ 01624000 L @15,@CV03132 0371 01625000 BALR @14,@15 0371 01626000 * ERRBASE1=R9; /* RESTORE BAS REGISTER FOR 0372 01627000 * RECOVERY @G33VPHD*/ 01628000 ST R9,ERRBASE1(,R3) 0372 01629000 * SVCDMPNM=CSECTNAM;/* RESTORE CSECT NAME FOR 0373 01630000 * RECOVERY @G33VPHD*/ 01631000 MVC SVCDMPNM(8,R7),@CC03098 0373 01632000 * RTCTSDSL='1'B; /* DUMP DATA SET INITIALIZED AND 01633000 * DEFAULT AREAS ARE DUMPED 0374 01634000 * @ZA19201*/ 01635000 L @12,CVTPTR 0374 01636000 L @12,CVTRTMCT(,@12) 0374 01637000 OI RTCTSDSL(@12),B'00000100' 0374 01638000 * GEN REFS(PSALITA); 0375 01639000 * /*RELEASE THE LOCAL LOCK @G33VPHD*/ 01640000 FRELOCKD SETLOCK RELEASE,TYPE=LOCAL, X01641000 RELATED=(SVCDUMP,IEAVTSDT(GETLOCKC)) 01642000 * ERRLLOCK='0'B; /* INDICATE LOCAL LOCK NOT HELD 01643000 * @G33VPHD*/ 01644000 NI ERRLLOCK(R3),B'11111101' 0376 01645000 * END; /* END OF PERFORM PARTIAL CLEAN 01646000 * UP @G33VPHD*/ 01647000 * RTCTINDX=ERRSAVE; /* RESTORE INDEX THIS ADDRESS 0378 01648000 * SPACE @G33VPHD*/ 01649000 @RC00332 L @12,CVTPTR 0378 01650000 L @12,CVTRTMCT(,@12) 0378 01651000 MVC RTCTINDX(1,@12),ERRSAVE(R3) 0378 01652000 * R13=ADDR(SDWRGSV1); /* GET SAVE AREA FOR ESTAE 0379 01653000 * @ZM44940*/ 01654000 LA R13,SDWRGSV1(,R7) 0379 01655000 * GEN(ESTAE 0,BRANCH=YES,SVEAREA=(R13));/* DELETE ESTAE 01656000 * @ZM44940*/ 01657000 ESTAE 0,BRANCH=YES,SVEAREA=(R13) 01658000 * ERRESTAE='0'B; /* INDICATE ESTAE NO LONGER 0381 01659000 * ACTIVE @ZM44940*/ 01660000 NI ERRESTAE(R3),B'10111111' 0381 01661000 * END; /* END VALID RESUME OF THE DUMP 01662000 * TASK @G33VPHD*/ 01663000 * ELSE 0383 01664000 * GEN(ABEND X'C0D',,,SYSTEM);/* INVALID RESUME OF DUMP TASK 01665000 * @ZM44940*/ 01666000 B @RC00126 0383 01667000 @RF00126 DS 0H 0383 01668000 ABEND X'C0D',,,SYSTEM 01669000 * END; /* END NOT TERMINATING SVC DUMP 01670000 * ERROR @ZM44940*/ 01671000 @RC00126 DS 0H 0385 01672000 * R1=ADDR(DEQLIST); /* GET LIST FORM OF DEQ @G33VPHD*/ 01673000 @RF00102 LA R1,DEQLIST 0385 01674000 * GEN; 0386 01675000 * /* @G33VPHD*/ 01676000 DEQ1 DEQ MF=(E,(R1)) DEQ FROM THE SDUMP RESOURCE 01677000 * ERRSDENQ='0'B; /* INDICATE NOT ENQD ON SDUMP NOW 01678000 * @ZM44940*/ 01679000 NI ERRSDENQ(R3),B'11011111' 0387 01680000 * END; /* END OF SERVICE SCHEDULE DUMP 01681000 * REQUESTS @G33VPHD*/ 01682000 @DE00090 L @12,ASCBPTR 0388 01683000 L @12,ASCBDUMP(,@12) 0388 01684000 LTR @12,@12 0388 01685000 BNZ @DL00090 0388 01686000 * RFY 0389 01687000 * R14 RSTD; 0389 01688000 * R14=ADDR(CVTEXIT); /* RETURN TO DISPATCHER */ 01689000 L R14,CVTPTR 0390 01690000 LA R14,CVTEXIT(,R14) 0390 01691000 * RETURN; 0391 01692000 @EL00001 DS 0H 0391 01693000 @EF00001 DS 0H 0391 01694000 @ER00001 BR @14 0391 01695000 * 0392 01696000 */* ******************************************************************/ 01697000 */* THIS SEGMENT CONTAINS THE DTESTAE1 ERROR EXIT. THIS EXIT */ 01698000 */* WILL GET CONTROL IF: THE ADDRESS SPACE TERMINATES, THE DUMP */ 01699000 */* TASK IS INVALIDLY RESUMED OR DTESTAE2 ERROR EXIT PERCOLATES. */ 01700000 */* IF THE DUMP TASK HAS SUCCESSFULLY INITIALIZED AND RETRY IS */ 01701000 */* ALLOWED, THIS EXIT WILL RETRY TO 'RECRSME:', ELSE IT WILL */ 01702000 */* PERCOLATE. RECORDING WILL ALWAYS BE REQUESTED. */ 01703000 */* */ 01704000 */* INPUT: REGISTER 1 CONTAINS ADDRESS OF SDWA */ 01705000 */* */ 01706000 */* OUTPUT: RETRY OR PERCOLATE */ 01707000 */* ******************************************************************/ 01708000 * 0392 01709000 *DTESTAE1: 0392 01710000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0392 01711000 * 0392 01712000 DTESTAE1 DS 0H 0393 01713000 * /*****************************************************************/ 01714000 * /* */ 01715000 * /* NO RESTORE REGS SPECIFIED */ 01716000 * /* */ 01717000 * /*****************************************************************/ 01718000 * 0393 01719000 * DO; /* ENTESTAE 0393 01720000 * ERREXIT(ESTA1PEC)PARMREG(R9) */ 01721000 * 0393 01722000 * /***************************************************************/ 01723000 * /* */ 01724000 * /* ENTRY CODE FOR ESTAE ROUTINE. IF RTCA ALLOCATED THEN RESTORE*/ 01725000 * /* CODE AND DATA REGS FROM START OF USERS PARM LIST, AND */ 01726000 * /* ESTABLISH ADDR TO ESTAE SAVE AREA IF REQUIRED. IF NO RTCA */ 01727000 * /* AVAILABLE THEN BRANCH TO ERROR CODE AFTER ESTABLISHING */ 01728000 * /* ADDRESSABILITY */ 01729000 * /* */ 01730000 * /***************************************************************/ 01731000 * 0394 01732000 * GEN(USING *,GPR15P); 0394 01733000 USING *,GPR15P 01734000 * GEN(CH GPR00F,*+14); /* CHECK IF RTCA ALLOC FAILED */ 01735000 CH GPR00F,*+14 01736000 * GEN(BNE *+12); /* NO,SAVE RTM REGS */ 01737000 BNE *+12 01738000 * GEN(DROP GPR15P); /* DROP LOCAL ADDR */ 01739000 DROP GPR15P 01740000 * GEN(LR R9,GPR02P); /* PTR TO USER PARM LIST */ 01741000 LR R9,GPR02P 01742000 * GEN(B ESTA1PEC); /* BRANCH TO ERROR EXIT */ 01743000 B ESTA1PEC 01744000 * GEN(DC H'12'); /* NO RTCA AVAIL RC */ 01745000 DC H'12' 01746000 * GEN(STM GPR14P,GPR12F,12(GPR13P));/* GOOD R13, SAVE RTM'S 0401 01747000 * REGS */ 01748000 STM GPR14P,GPR12F,12(GPR13P) 01749000 * GEN(L R9,0(GPR01P)); /* PTR TO USER PARM LIST */ 01750000 L R9,0(GPR01P) 01751000 * END; /* ENTESTAE 0403 01752000 * ERREXIT(ESTA1PEC)PARMREG(R9) 01753000 * CHECK FOR SDWA */ 01754000 * RFY 0404 01755000 * SDWA BASED(R1); 0404 01756000 * SDWAREQ='0'B; /* DONT DUMP */ 01757000 NI SDWAREQ(R1),B'01111111' 0405 01758000 * SDWAUPRG='1'B; /* IND REGS TO BE PRIMED ON RTY */ 01759000 OI SDWAUPRG(R1),B'00001000' 0406 01760000 * SDWASR09=R9; /* PRIME BASEREG ON RETRY */ 01761000 ST R9,SDWASR09(,R1) 0407 01762000 * SDWARTYA=R14; /* SAVE RTM RETURN ADDRESS 0408 01763000 * @ZM45208*/ 01764000 ST R14,SDWARTYA(,R1) 0408 01765000 * IF SDWAPERC='1'B| /* IF DTESTAE2 PERCD | @YM02791*/ 01766000 * SDWACMPC=DETACHED THEN /* ADDR SPACE ENDING @YM02791*/ 01767000 TM SDWAPERC(R1),B'00010000' 0409 01768000 BO @RT00409 0409 01769000 CLC SDWACMPC(3,R1),@CB03071 0409 01770000 BNE @RF00409 0409 01771000 @RT00409 DS 0H 0410 01772000 * SDWARCRD='0'B; /* DONT RECORD @YM02791*/ 01773000 NI SDWARCRD(R1),B'01111111' 0410 01774000 * ELSE 0411 01775000 * SDWARCRD='1'B; /* RECORD ERROR @YM02791*/ 01776000 B @RC00409 0411 01777000 @RF00409 OI SDWARCRD(R1),B'10000000' 0411 01778000 * SDWAFREE='1'B; /* INDICATE FREE SDWA */ 01779000 @RC00409 OI SDWAFREE(R1),B'00000100' 0412 01780000 * SDWAMODN=LMODNAME; /* LOAD MODULE NAME */ 01781000 MVC SDWAMODN(8,R1),@CC03096 0413 01782000 * SDWACSCT=CSECTNAM; /* CSECT NAME */ 01783000 MVC SDWACSCT(8,R1),@CC03098 0414 01784000 * SDWAREXN=ESTA1NAM; /* DTESTAE1 NAME */ 01785000 * 0415 01786000 MVC SDWAREXN(8,R1),@CC03100 0415 01787000 * /*****************************************************************/ 01788000 * /* */ 01789000 * /* THIS SECTION SETS UP TO RETRY IF RETRY IS ALLOWED @ZM45196*/ 01790000 * /* */ 01791000 * /*****************************************************************/ 01792000 * 0416 01793000 * IF SDWACLUP='0'B& /* IF RETRY IS ALLOWED AND */ 01794000 * ASCBDUMP^=NULL THEN /* DUMP TASK HAS INITIALIZED */ 01795000 TM SDWACLUP(R1),B'10000000' 0416 01796000 BNZ @RF00416 0416 01797000 L @15,PSAAOLD 0416 01798000 L @12,ASCBDUMP(,@15) 0416 01799000 LTR @12,@12 0416 01800000 BZ @RF00416 0416 01801000 * DO; /* SET UP TO RETRY @ZM45196*/ 01802000 * 0417 01803000 * /*************************************************************/ 01804000 * /* */ 01805000 * /* SET THE TASKS OF THE ADDRESS SPACE DISPATCHABLE */ 01806000 * /* */ 01807000 * /*************************************************************/ 01808000 * 0418 01809000 * RFY 0418 01810000 * (R10, 0418 01811000 * R0) RSTD; /* SAVE STATUS CODE REG @ZM45621*/ 01812000 * R10=R1; /* SAVE SDWA PTR AROUND USE 0419 01813000 * @ZM45621*/ 01814000 LR R10,R1 0419 01815000 * R0=TCBSDISP; /* GET DISPATCHABILITY CODE 0420 01816000 * @ZM45196*/ 01817000 LA R0,10 0420 01818000 * R1=ASXBFTCB; /* GET TOP TCB IN ADDRESS SPACE 01819000 * @ZM45196*/ 01820000 L @15,ASXBPTR(,@15) 0421 01821000 L R1,ASXBFTCB(,@15) 0421 01822000 * R1=R1->TCBLTC; /* GET NEXT TCB IN CHAIN @ZM45196*/ 01823000 L R1,TCBLTC(,R1) 0422 01824000 * R13=SDISPFLG; /* GET SVC DUMP DISPATCHABILITY 01825000 * FLAG @ZM45196*/ 01826000 L R13,@CF03093 0423 01827000 * DO WHILE(R1^=NULL); /* SET ALL LOWER LEVEL TCBS 0424 01828000 * DISPATCHABLE @ZM45196*/ 01829000 B @DE00424 0424 01830000 @DL00424 DS 0H 0425 01831000 * R1=R1|HIGHBIT1; /* SET RESET FUNCTION @ZM45196*/ 01832000 O R1,@CF03087 0425 01833000 * IF R1^=ASCBDUMP&R1->TCBTID^='FD'X&R1->TCBTID^='F9'X THEN/* 01834000 * NOT DUMP TASK COMM TASK OR DSS 01835000 * SET DISPATCHABLE @ZM45196*/ 01836000 L @15,PSAAOLD 0426 01837000 C R1,ASCBDUMP(,@15) 0426 01838000 BE @RF00426 0426 01839000 CLI TCBTID(R1),X'FD' 0426 01840000 BE @RF00426 0426 01841000 CLI TCBTID(R1),X'F9' 0426 01842000 BE @RF00426 0426 01843000 * CALL STATUS; /* SET THIS TCB DISPATCHABLE 0427 01844000 * @ZM45196*/ 01845000 L @12,CVTPTR 0427 01846000 L @12,SCVTSPTR(,@12) 0427 01847000 L @15,SCVTSTAT(,@12) 0427 01848000 BALR @14,@15 0427 01849000 * ELSE 0428 01850000 * ; /* SKIP DUMP TASK, DSS, OR COMM 01851000 * TASK @ZM45196*/ 01852000 @RF00426 DS 0H 0429 01853000 * R1=R1->TCBNTC; /* GET NEXT TCB IN CHAIN @ZM45196*/ 01854000 L R1,TCBNTC(,R1) 0429 01855000 * END; /* END OF SET ALL TCBS 0430 01856000 * DISPATCHABLE @ZM45196*/ 01857000 @DE00424 LTR R1,R1 0430 01858000 BNZ @DL00424 0430 01859000 * R1=R10; /* RESTORE SDWA POINTER @ZM45621*/ 01860000 LR R1,R10 0431 01861000 * RFY 0432 01862000 * (R10, 0432 01863000 * R0) UNRSTD; /* @ZM45196*/ 01864000 * R14=SDWARTYA; /* RESTORE SAVED RTM RETURN 0433 01865000 * ADDRESS @ZM45208*/ 01866000 L R14,SDWARTYA(,R1) 0433 01867000 * SDWARTYA=ADDR(RECRSME); /* SET UP RETRY ADDRESS @ZM45208*/ 01868000 LA @15,RECRSME 0434 01869000 ST @15,SDWARTYA(,R1) 0434 01870000 * SDWARCDE=SDWARETY; /* INDICATE RETRY IN SDWA 0435 01871000 * @ZM45196*/ 01872000 MVI SDWARCDE(R1),X'04' 0435 01873000 * END; /* END OF SET UP TO RETRY 0436 01874000 * @ZM45196*/ 01875000 * ELSE /* PERCOLATE */ 01876000 * DO; 0437 01877000 B @RC00416 0437 01878000 @RF00416 DS 0H 0438 01879000 * SDWARCDE=SDWACWT; /* IND CONTINUE WITH TERMINATON */ 01880000 MVI SDWARCDE(R1),X'00' 0438 01881000 * RFY 0439 01882000 * SDWA BASED; 0439 01883000 *ESTA1PEC: 0440 01884000 * ; /* ENTRY POINT IF NO SDWA EXIST */ 01885000 ESTA1PEC DS 0H 0441 01886000 * IF ASCBDUMP^=NULL THEN /* IF INITIALIZED, CLEANUP */ 01887000 SLR @15,@15 0441 01888000 L @12,PSAAOLD 0441 01889000 C @15,ASCBDUMP(,@12) 0441 01890000 BE @RF00441 0441 01891000 * ASCBDUMP=NULL; /* DUMP TASK NOT ACTIVE */ 01892000 ST @15,ASCBDUMP(,@12) 0442 01893000 * RFY 0443 01894000 * R15 RSTD; 0443 01895000 @RF00441 DS 0H 0444 01896000 * R15=NULL; /* IND PERCOLATE IF NO SDWA */ 01897000 SLR R15,R15 0444 01898000 * RFY 0445 01899000 * R15 UNRSTD; 0445 01900000 * END; 0446 01901000 * END DTESTAE1; 0447 01902000 @EL00002 DS 0H 0447 01903000 @EF00002 DS 0H 0447 01904000 @ER00002 BR @14 0447 01905000 * 0448 01906000 */* ******************************************************************/ 01907000 */* THIS SEGMENT WILL POST THE CALLERS SUPPLIED ECB WITH THE */ 01908000 */* RETURN CODE FROM SVC DUMP. */ 01909000 */* */ 01910000 */* INPUT: SDUMP PARM LIST, SVC DUMP RETURN CODE IN RETCODE */ 01911000 */* */ 01912000 */* OUTPUT: IF SUPPLIED CALLERS ECB WILL BE POSTED */ 01913000 */* */ 01914000 */* CALLED BY: DTREG, DTESTAE2 */ 01915000 */* ******************************************************************/ 01916000 * 0448 01917000 *DTXMPOST: 0448 01918000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0448 01919000 DTXMPOST DS 0H 0449 01920000 * RFY 0449 01921000 * (R14, 0449 01922000 * R15) RSTD; 0449 01923000 * RFY 0450 01924000 * SDUMP BASED(RTCTSDPL); /* ADDR OF PARM LST-RTMCT */ 01925000 * SDUECB='0'B; /* INDICATE ECB POSTED */ 01926000 L @12,CVTPTR 0451 01927000 L @08,CVTRTMCT(,@12) 0451 01928000 L @08,RTCTSDPL(,@08) 0451 01929000 NI SDUECB(@08),B'11110111' 0451 01930000 * RFY 0452 01931000 * R2 RSTD; 0452 01932000 * IF ASVTAVAL(SDUCASID)='0'B& /* IF CALLER STILL ACTIVE AND */ 01933000 * SDUECBAD^=NULL THEN /* ECB ADDRESS IS NOT ZERO */ 01934000 LH @06,SDUCASID(,@08) 0453 01935000 N @06,@CF03250 0453 01936000 SLA @06,2 0453 01937000 L @12,ASVTPTR(,@12) 0453 01938000 ALR @12,@06 0453 01939000 TM ASVTAVAL-4(@12),B'10000000' 0453 01940000 BNZ @RF00453 0453 01941000 L @12,SDUECBAD(,@08) 0453 01942000 LTR @12,@12 0453 01943000 BZ @RF00453 0453 01944000 * DO; 0454 01945000 *DTXMP03: 0455 01946000 * ; /* LABEL-RESET PLS HISTORY */ 01947000 DTXMP03 DS 0H 0456 01948000 * R2=ASVTENTY(SDUCASID); /* CALLERS ASCB ADDRESS */ 01949000 L @12,CVTPTR 0456 01950000 L @08,CVTRTMCT(,@12) 0456 01951000 L @08,RTCTSDPL(,@08) 0456 01952000 LH @08,SDUCASID(,@08) 0456 01953000 N @08,@CF03250 0456 01954000 SLA @08,2 0456 01955000 L @12,ASVTPTR(,@12) 0456 01956000 L R2,ASVTENTY-4(@08,@12) 0456 01957000 *DTXMP04: 0457 01958000 * ; /* LABEL-RESET PLS HISTORY */ 01959000 DTXMP04 DS 0H 0458 01960000 * LFPOST=POSTLIST; /* PARM LIST TO WORKAREA */ 01961000 L @12,CVTPTR 0458 01962000 L @12,CVTSDBF(,@12) 0458 01963000 MVC LFPOST(12,@12),POSTLIST 0458 01964000 *DTXMP05: 0459 01965000 * ; /* LABEL-RESET PLS HISTORY */ 01966000 DTXMP05 DS 0H 0460 01967000 * RFY 0460 01968000 * (R0, 0460 01969000 * R10, 0460 01970000 * R3) RSTD; 0460 01971000 * R0=SDRETCOD; /* COMP CODE IS SVC DUMP RETURN 01972000 * CODE @ZM45074*/ 01973000 L R0,SDRETCOD(,R7) 0461 01974000 * RFY 0462 01975000 * R15 UNRSTD; 0462 01976000 * R10=SDUECBAD; /* CALLERS ECB ADDRESS */ 01977000 L @15,CVTPTR 0463 01978000 L @12,CVTRTMCT(,@15) 0463 01979000 L @12,RTCTSDPL(,@12) 0463 01980000 L R10,SDUECBAD(,@12) 0463 01981000 * R3=ADDR(CVTBRET); /* POST ERR EXIT IS BR 14 */ 01982000 LA R3,CVTBRET(,@15) 0464 01983000 * R1=ADDR(LFPOST); /* ADDR OF LIST FOR EXEC */ 01984000 L R1,CVTSDBF(,@15) 0465 01985000 * GEN(POST (R10),(R0),ASCB=(R2),ERRET=(R3),MF=(E,(1))); 0466 01986000 POST (R10),(R0),ASCB=(R2),ERRET=(R3),MF=(E,(1)) 01987000 * RFY 0467 01988000 * (R2, 0467 01989000 * R0, 0467 01990000 * R10, 0467 01991000 * R3) UNRSTD; 0467 01992000 * RTCTSDEP='1'B; /* IND CALLERS ECB POSTED */ 01993000 L @15,CVTPTR 0468 01994000 L @15,CVTRTMCT(,@15) 0468 01995000 OI RTCTSDEP(@15),B'00001000' 0468 01996000 * END; 0469 01997000 * RFY 0470 01998000 * SDUMP BASED; 0470 01999000 * END DTXMPOST; 0471 02000000 @EL00003 DS 0H 0471 02001000 @EF00003 DS 0H 0471 02002000 @ER00003 BR @14 0471 02003000 * DCL 0472 02004000 * PATCHLOC FIXED(31) STATIC; 0472 02005000 * GEN DATA DEFS(PATCHLOC); 0473 02006000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 02007000 * GPR00F FIXED(31) REG(0), 0474 02008000 * GPR12F FIXED(31) REG(12), 0474 02009000 * GPR01P PTR(31) REG(1), 0474 02010000 * GPR02P PTR(31) REG(2), 0474 02011000 * GPR13P PTR(31) REG(13), 0474 02012000 * GPR14P PTR(31) REG(14), 0474 02013000 * GPR15P PTR(31) REG(15); 0474 02014000 * DECLARE /* COMMON VARIABLES */ 02015000 * I256C CHAR(256) BASED, 0475 02016000 * I031F FIXED(31) BASED, 0475 02017000 * I031P PTR(31) BASED, 0475 02018000 * I015F FIXED(15) BASED, 0475 02019000 * I015P PTR(15) BASED, 0475 02020000 * I008P PTR(8) BASED, 0475 02021000 * I001C CHAR(1) BASED; 0475 02022000 * END IEAVTSDT 0476 02023000 * 0476 02024000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02025000 */*%INCLUDE SYSLIB (SDTSPEC ) */ 02026000 */*%INCLUDE SYSLIB (SDTDCL ) */ 02027000 */*%INCLUDE SYSLIB (IHAPSA ) */ 02028000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 02029000 */*%INCLUDE SYSLIB (CVT ) */ 02030000 */*%INCLUDE SYSLIB (IKJTCB ) */ 02031000 */*%INCLUDE SYSLIB (IHARTCT ) */ 02032000 */*%INCLUDE SYSLIB (IHASDUMP) */ 02033000 */*%INCLUDE SYSLIB (IHAASCB ) */ 02034000 */*%INCLUDE SYSLIB (IHAASXB ) */ 02035000 */*%INCLUDE SYSLIB (IHALCCA ) */ 02036000 */*%INCLUDE SYSLIB (IHASDWA ) */ 02037000 */*%INCLUDE SYSLIB (IHAASVT ) */ 02038000 */*%INCLUDE SYSLIB (IHASCVT ) */ 02039000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 02040000 */*%INCLUDE SYSLIB (IHAESTA ) */ 02041000 */*%INCLUDE SYSLIB (IHAECB ) */ 02042000 */*%INCLUDE SYSLIB (IHASDWRK) */ 02043000 */*%INCLUDE SYSLIB (IHASMDLR) */ 02044000 */*%INCLUDE SYSLIB (IHASDRSB) */ 02045000 */*%INCLUDE SYSLIB (IHASMWK ) */ 02046000 */*%INCLUDE SYSLIB (IHASRB ) */ 02047000 */*%INCLUDE SYSLIB (IHASDERR) */ 02048000 */*%INCLUDE SYSLIB (DTINIT ) */ 02049000 */*%INCLUDE SYSLIB (DTREQ ) */ 02050000 */*%INCLUDE SYSLIB (SDTTRACE) */ 02051000 */*%INCLUDE SYSLIB (DTLOCAL ) */ 02052000 */*%INCLUDE SYSLIB (DTSCHSRB) */ 02053000 */*%INCLUDE SYSLIB (DTESTAE1) */ 02054000 */*%INCLUDE SYSLIB (DTXMPOST) */ 02055000 * 0476 02056000 * ; 0476 02057000 B @EL00001 0476 02058000 @DATA DS 0H 02059000 @CH00034 DC H'0' 02060000 @CH00067 DC H'1' 02061000 @CH00115 DC H'44' 02062000 @DATD DSECT 02063000 DS 0F 02064000 IEAVTSDT CSECT 02065000 DS 0F 02066000 @CF00044 DC F'4' 02067000 @CF00127 DC F'16' 02068000 @CF03229 DC F'-2147483648' 02069000 @CF03257 DC F'-44' 02070000 @CF03085 DC XL4'7FFFFFFF' 02071000 @CF03087 DC XL4'80000000' 02072000 @CF03093 DC XL4'00002000' 02073000 @CF03117 DC XL4'07FA07FB' 02074000 @CF03119 DC XL4'070A07FB' 02075000 @CF03250 DC XL4'0000FFFF' 02076000 @DATD DSECT 02077000 DS 0D 02078000 IEAVTSDT CSECT 02079000 NOPR ((@ENDDATD-@DATD)*16) 02080000 DS 0F 02081000 @SIZDATD DC AL1(0) 02082000 DC AL3(@ENDDATD-@DATD) 02083000 @CV03125 DC V(SDFRRRTN) 02084000 @CV03126 DC V(IEAVTSDH) 02085000 @CV03127 DC V(IEAVTSDC) 02086000 @CV03128 DC V(IEAVTSDG) 02087000 @CV03129 DC V(IEAVTSDL) 02088000 @CV03130 DC V(IEAVTSDW) 02089000 @CV03131 DC V(IEAVTSDF) 02090000 @CV03132 DC V(IEAVTSDE) 02091000 @CV03133 DC V(IEAVTSSE) 02092000 @CV03134 DC V(SDESTAEX) 02093000 DS 0D 02094000 SMWKLEN DC AL4(980) 02095000 ADDRFRR DC VL4(SDFRRRTN) 02096000 SDESTAAD DC VL4(SDESTAEX) 02097000 @CC03096 DC C'IGC0005A' 02098000 @CC03098 DC C'IEAVTSDT' 02099000 @CC03100 DC C'DTESTAE1' 02100000 @CC03102 DC C'SRB ' 02101000 @CB03071 DC X'33E000' 02102000 QNAMEA DC CL8'SDUMPQNM' 02103000 RNAMEA DC CL8'SDUMPRNM' 02104000 DS CL1 02105000 SMDWSAG DC AL2(6) 02106000 DC AL2(7) 02107000 DC AL2(8) 02108000 DC AL2(9) 02109000 DC AL2(10) 02110000 DC AL2(11) 02111000 DC AL2(12) 02112000 DC AL2(13) 02113000 DC AL2(14) 02114000 DC AL2(15) 02115000 DC AL2(16) 02116000 SMDWSAC DC AL2(17) 02117000 DC AL2(18) 02118000 DC AL2(19) 02119000 DC AL2(20) 02120000 DC AL2(21) 02121000 DC AL2(22) 02122000 DC AL2(23) 02123000 DC AL2(24) 02124000 DC AL2(25) 02125000 DC AL2(26) 02126000 DC AL2(27) 02127000 DC AL2(28) 02128000 DC AL2(29) 02129000 DC AL2(30) 02130000 DC AL2(54) 02131000 DC AL2(55) 02132000 SMDWSAL DC AL2(31) 02133000 DC AL2(32) 02134000 DC AL2(33) 02135000 DC AL2(34) 02136000 DC AL2(35) 02137000 DC AL2(36) 02138000 DC AL2(37) 02139000 DC AL2(38) 02140000 DC AL2(39) 02141000 DC AL2(40) 02142000 DC AL2(41) 02143000 DC AL2(42) 02144000 DC AL2(43) 02145000 DC AL2(44) 02146000 DC AL2(45) 02147000 IEAVTSDT CSECT 02148000 ESTAELST ESTAE ESTAEXIT,MF=L LIST FORM OF ESTAE 02149000 ENQLIST ENQ (QNAMEA,RNAMEA,E,8,SYSTEM),RELATED=(DEQ1,IEAVTSDT),MF=L 02150000 DEQLIST DEQ (QNAMEA,RNAMEA,8,SYSTEM),RELATED=(ENQ1,IEAVTSDT),MF=L 02151000 POSTLIST POST ,MF=L LIST FORM OF POST 02152000 IEAVTSDT CSECT 02153000 DS 0H 02154000 PATCHLOC DC ((@DATA-@PSTART)/20)X'00' 02155000 @DATD DSECT 02156000 @ENDDATD EQU * 02157000 IEAVTSDT CSECT 02158000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02159000 @01 EQU 01 02160000 @02 EQU 02 02161000 @03 EQU 03 02162000 @04 EQU 04 02163000 @05 EQU 05 02164000 @06 EQU 06 02165000 @07 EQU 07 02166000 @08 EQU 08 02167000 @09 EQU 09 02168000 @10 EQU 10 02169000 @11 EQU 11 02170000 @12 EQU 12 02171000 @13 EQU 13 02172000 @14 EQU 14 02173000 @15 EQU 15 02174000 R3 EQU @03 02175000 R0 EQU @00 02176000 R1 EQU @01 02177000 R2 EQU @02 02178000 RETREG2 EQU @02 02179000 R4 EQU @04 02180000 R7 EQU @07 02181000 R9 EQU @09 02182000 R10 EQU @10 02183000 R11 EQU @11 02184000 R13 EQU @13 02185000 R14 EQU @14 02186000 R15 EQU @15 02187000 GPR00F EQU @00 02188000 GPR01P EQU @01 02189000 GPR02P EQU @02 02190000 GPR12F EQU @12 02191000 GPR13P EQU @13 02192000 GPR14P EQU @14 02193000 GPR15P EQU @15 02194000 R12 EQU @12 02195000 R5 EQU @05 02196000 R6 EQU @06 02197000 R8 EQU @08 02198000 PSA EQU 0 02199000 FLCRNPSW EQU PSA 02200000 FLCROPSW EQU PSA+8 02201000 FLCICCW2 EQU PSA+16 02202000 FLCCVT EQU FLCICCW2 02203000 FLCTRACE EQU PSA+84 02204000 PSAEEPSW EQU PSA+132 02205000 PSAESPSW EQU PSA+136 02206000 FLCSVILC EQU PSAESPSW+1 02207000 PSAEPPSW EQU PSA+140 02208000 FLCPIILC EQU PSAEPPSW+1 02209000 FLCPICOD EQU PSAEPPSW+2 02210000 PSAPICOD EQU FLCPICOD+1 02211000 FLCTEA EQU PSAEPPSW+4 02212000 FLCPER EQU PSA+152 02213000 FLCMCLA EQU PSA+168 02214000 FLCIOEL EQU FLCMCLA+4 02215000 FLCIOA EQU FLCMCLA+16 02216000 FLCFSA EQU FLCMCLA+80 02217000 PSALCCAV EQU PSA+528 02218000 PSATOLD EQU PSA+540 02219000 PSAAOLD EQU PSA+548 02220000 PSASUPER EQU PSA+552 02221000 PSASUP1 EQU PSASUPER 02222000 PSASUP2 EQU PSASUPER+1 02223000 PSASUP3 EQU PSASUPER+2 02224000 PSASUP4 EQU PSASUPER+3 02225000 PSACLHT EQU PSA+640 02226000 PSALKSA EQU PSA+696 02227000 PSAHLHI EQU PSA+760 02228000 PSALITA EQU PSA+764 02229000 PSADSSFL EQU PSA+836 02230000 PSADSSF1 EQU PSADSSFL 02231000 PSADSSF3 EQU PSADSSFL+2 02232000 PSADSSF4 EQU PSADSSFL+3 02233000 PSARSVT EQU PSA+896 02234000 PSALSFCC EQU PSA+1012 02235000 FRRS EQU 0 02236000 FRRSHEAD EQU FRRS 02237000 FRRSEMP EQU FRRSHEAD 02238000 FRRSLAST EQU FRRSHEAD+4 02239000 FRRSELEN EQU FRRSHEAD+8 02240000 FRRSCURR EQU FRRSHEAD+12 02241000 FRRSPTR EQU 0 02242000 FRRSENTR EQU 0 02243000 FRRSFRRA EQU FRRSENTR 02244000 FRRSFLGS EQU FRRSENTR+4 02245000 FRRSFLG1 EQU FRRSFLGS 02246000 FRRSPARM EQU FRRSENTR+8 02247000 FRREPTR EQU 0 02248000 CVTMAP EQU 0 02249000 CVT EQU CVTMAP 02250000 CVTDAR EQU CVTMAP+72 02251000 CVTFLGS1 EQU CVTDAR 02252000 CVTEXIT EQU CVTMAP+80 02253000 CVTBRET EQU CVTMAP+82 02254000 CVTQTD00 EQU CVTMAP+108 02255000 CVTDCB EQU CVTMAP+116 02256000 CVTIOQET EQU CVTMAP+120 02257000 CVTIERLC EQU CVTMAP+144 02258000 CVTHEAD EQU CVTMAP+160 02259000 CVTSV76C EQU CVTHEAD 02260000 CVTOPTA EQU CVTMAP+182 02261000 CVTOPTB EQU CVTMAP+183 02262000 CVTABEND EQU CVTMAP+200 02263000 CVTGTF EQU CVTMAP+236 02264000 CVTGTFST EQU CVTGTF 02265000 CVTGTFS EQU CVTGTFST 02266000 CVTGTFAV EQU CVTGTFS 02267000 CVTSTATE EQU CVTGTFST 02268000 CVTTMODE EQU CVTGTFST 02269000 CVTFORM EQU CVTGTFST 02270000 CVTAQAVT EQU CVTMAP+240 02271000 CVTTCMFG EQU CVTAQAVT 02272000 CVTVOLM2 EQU CVTMAP+244 02273000 CVTTATA EQU CVTVOLM2 02274000 CVTTSKS EQU CVTTATA 02275000 CVTVOLF2 EQU CVTTSKS 02276000 CVTTAT EQU CVTTATA+1 02277000 CVTATER EQU CVTMAP+248 02278000 CVTEXT1 EQU CVTMAP+252 02279000 CVTPURG EQU CVTMAP+260 02280000 CVTQMSG EQU CVTMAP+268 02281000 CVTDMSR EQU CVTMAP+272 02282000 CVTRSV37 EQU CVTDMSR 02283000 CVTDMSRF EQU CVTRSV37 02284000 CVTERPV EQU CVTMAP+316 02285000 CVTINTLA EQU CVTMAP+320 02286000 CVTAPF EQU CVTMAP+324 02287000 CVTEXT2 EQU CVTMAP+328 02288000 CVTHJES EQU CVTMAP+332 02289000 CVTPGSIA EQU CVTMAP+348 02290000 CVTA1F1 EQU CVTMAP+356 02291000 CVTSYSK EQU CVTMAP+357 02292000 CVTVOLM1 EQU CVTMAP+380 02293000 CVTVOLF1 EQU CVTVOLM1 02294000 CVTXTNT1 EQU 0 02295000 CVTXTNT2 EQU 0 02296000 CVTDSSV EQU CVTXTNT2 02297000 CVTFLGBT EQU CVTXTNT2+5 02298000 CVTQID EQU CVTXTNT2+24 02299000 CVTRV400 EQU CVTXTNT2+52 02300000 CVTRV409 EQU CVTXTNT2+53 02301000 CVTATCVT EQU CVTXTNT2+64 02302000 CVTRV429 EQU CVTXTNT2+84 02303000 CVTRV438 EQU CVTXTNT2+85 02304000 CVTRV457 EQU CVTXTNT2+112 02305000 CVTRV466 EQU CVTXTNT2+113 02306000 CVTFIX EQU 0 02307000 CVTRELNO EQU CVTFIX+252 02308000 TCBFIX EQU 0 02309000 TCBFRS EQU TCBFIX 02310000 TCBPTR EQU 0 02311000 TCB EQU 0 02312000 TCBPIE EQU TCB+4 02313000 TCBPMASK EQU TCBPIE 02314000 TCBCMP EQU TCB+16 02315000 TCBCMPF EQU TCBCMP 02316000 TCBCPP EQU TCBCMPF 02317000 TCBSTCC EQU TCBCMPF 02318000 TCBCDBL EQU TCBCMPF 02319000 TCBCWTO EQU TCBCMPF 02320000 TCBCIND EQU TCBCMPF 02321000 TCBCMSG EQU TCBCMPF 02322000 TCBTRN EQU TCB+20 02323000 TCBABF EQU TCBTRN 02324000 TCBMSS EQU TCB+24 02325000 TCBPKF EQU TCB+28 02326000 TCBFLGS EQU TCB+29 02327000 TCBFLGS1 EQU TCBFLGS 02328000 TCBFLGS2 EQU TCBFLGS+1 02329000 TCBFLGS3 EQU TCBFLGS+2 02330000 TCBFLGS4 EQU TCBFLGS+3 02331000 TCBFLGS5 EQU TCBFLGS+4 02332000 TCBABWF EQU TCBFLGS5 02333000 TCBJPQ EQU TCB+44 02334000 TCBPURGE EQU TCBJPQ 02335000 TCBGRS EQU TCB+48 02336000 TCBFSA EQU TCB+112 02337000 TCBTME EQU TCB+120 02338000 TCBJSTCB EQU TCB+124 02339000 TCBNTC EQU TCB+128 02340000 TCBLTC EQU TCB+136 02341000 TCBTSFLG EQU TCB+148 02342000 TCBTSTSK EQU TCBTSFLG 02343000 TCBSTAB EQU TCB+160 02344000 TCBNSTAE EQU TCBSTAB 02345000 TCBTCT EQU TCB+164 02346000 TCBTCTGF EQU TCBTCT 02347000 TCBSCNDY EQU TCB+172 02348000 TCBNDSP EQU TCBSCNDY 02349000 TCBNDSP1 EQU TCBNDSP+1 02350000 TCBNDSP2 EQU TCBNDSP+2 02351000 TCBNDSP3 EQU TCBNDSP+3 02352000 TCBJSCB EQU TCB+180 02353000 TCBRECDE EQU TCBJSCB 02354000 TCBEXT1 EQU TCB+196 02355000 TCBBITS EQU TCB+200 02356000 TCBNDSP4 EQU TCBBITS 02357000 TCBNDSP5 EQU TCBBITS+1 02358000 TCBFLGS6 EQU TCBBITS+2 02359000 TCBFLGS7 EQU TCBBITS+3 02360000 TCBDAR EQU TCB+204 02361000 TCBDARC EQU TCBDAR 02362000 TCBEXSVC EQU TCBDAR 02363000 TCBEXT2 EQU TCB+208 02364000 TCBTID EQU TCB+238 02365000 TCBXSCT EQU TCB+240 02366000 TCBXSCT1 EQU TCBXSCT 02367000 TCBFOE EQU TCB+244 02368000 TCBESTAE EQU TCB+264 02369000 TCBESTRM EQU TCBESTAE+1 02370000 TCBFBYT1 EQU TCB+276 02371000 TCBFBYT2 EQU TCB+277 02372000 TCBRV124 EQU TCB+278 02373000 TCBRV133 EQU TCB+279 02374000 TCBXTNT2 EQU 0 02375000 TCBGTF EQU TCBXTNT2 02376000 TCBTFLG EQU TCBGTF 02377000 TCBRV146 EQU TCBXTNT2+28 02378000 TCBRV155 EQU TCBXTNT2+29 02379000 TCBRV164 EQU TCBXTNT2+30 02380000 TCBRV173 EQU TCBXTNT2+31 02381000 RTCT EQU 0 02382000 RTCTPLIB EQU RTCT+4 02383000 RTCTSAP EQU RTCTPLIB 02384000 RTCTSAP1 EQU RTCTSAP 02385000 RTCTSAP2 EQU RTCTSAP+1 02386000 RTCTSAP3 EQU RTCTSAP+2 02387000 RTCTSUP EQU RTCTPLIB+4 02388000 RTCTSUP1 EQU RTCTSUP 02389000 RTCTSUP2 EQU RTCTSUP+1 02390000 RTCTSUP3 EQU RTCTSUP+2 02391000 RTCTSYD EQU RTCTPLIB+8 02392000 RTCTSY01 EQU RTCTSYD 02393000 RTCTSDID EQU RTCT+18 02394000 RTCTSDDS EQU RTCT+36 02395000 RTCTFLG EQU RTCTSDDS+3 02396000 RTCTSDPL EQU RTCT+156 02397000 RTCTRFLG EQU RTCT+176 02398000 RTCTSDSW EQU RTCT+180 02399000 RTCTSDWK EQU RTCT+220 02400000 RTCTERID EQU RTCT+224 02401000 RTCTOPT EQU RTCT+236 02402000 RTCTASO EQU RTCT+252 02403000 RTCTASO1 EQU RTCTASO 02404000 RTCTASO2 EQU RTCTASO+1 02405000 RTCTSDI EQU RTCT+254 02406000 RTCTSDNA EQU RTCTSDI 02407000 RTCTINDX EQU RTCTSDI+1 02408000 RTCTSDPR EQU RTCTSDI+2 02409000 RTCTSDF EQU RTCT+264 02410000 RTCTSDF1 EQU RTCTSDF 02411000 RTCTSDND EQU RTCTSDF1 02412000 RTCTSDSH EQU RTCTSDF1 02413000 RTCTSDMA EQU RTCTSDF1 02414000 RTCTSDEP EQU RTCTSDF1 02415000 RTCTSDF2 EQU RTCTSDF+1 02416000 RTCTSDTQ EQU RTCTSDF2 02417000 RTCTSDSL EQU RTCTSDF2 02418000 RTCTSDF3 EQU RTCT+268 02419000 RTCTSDAS EQU RTCTSDF3 02420000 RTCTSDF4 EQU RTCTSDF3+2 02421000 RTCTSDSS EQU RTCTSDF4 02422000 RTCTSDNC EQU RTCTSDF4 02423000 RTCTSDAN EQU RTCTSDF4 02424000 RTCTSDRM EQU RTCTSDF4 02425000 RTCTSDTR EQU RTCTSDF4 02426000 RTCTSDEQ EQU RTCTSDF4 02427000 RTCTSDEN EQU RTCTSDF4 02428000 RTCTSDDO EQU RTCTSDF4 02429000 RTCTMOPT EQU 0 02430000 RTCTMSAO EQU RTCTMOPT 02431000 RTCTSASD EQU RTCTMSAO 02432000 RTCTSAO1 EQU RTCTSASD 02433000 RTCTSAO2 EQU RTCTSASD+1 02434000 RTCTSAPD EQU RTCTMSAO+2 02435000 RTCTSAO3 EQU RTCTSAPD 02436000 RTCTSAO4 EQU RTCTSAPD+1 02437000 RTCTSAMG EQU RTCTSAO4 02438000 RTCTMSUO EQU RTCTMOPT+4 02439000 RTCTSUSD EQU RTCTMSUO 02440000 RTCTSUO1 EQU RTCTSUSD 02441000 RTCTSUO2 EQU RTCTSUSD+1 02442000 RTCTSUPD EQU RTCTMSUO+2 02443000 RTCTSUO3 EQU RTCTSUPD 02444000 RTCTSUO4 EQU RTCTSUPD+1 02445000 RTCTSUMG EQU RTCTSUO4 02446000 RTCTMSYO EQU RTCTMOPT+8 02447000 RTCTSD01 EQU RTCTMSYO 02448000 RTCTSD04 EQU RTCTMSYO+3 02449000 RTCTSMMG EQU RTCTSD04 02450000 RTCTMSDO EQU RTCTMOPT+12 02451000 RTCTSDOD EQU RTCTMSDO 02452000 RTCTSDO1 EQU RTCTSDOD 02453000 RTCTSDO2 EQU RTCTSDOD+1 02454000 RTCTSDO3 EQU RTCTMSDO+2 02455000 RTCTSDPG EQU RTCTSDO3 02456000 RTCTSDPH EQU RTCTSDO3 02457000 RTCTSDO4 EQU RTCTMSDO+3 02458000 RTCTSDMG EQU RTCTSDO4 02459000 SDUMP EQU 0 02460000 SDUFLAG0 EQU SDUMP 02461000 SDUSTOR EQU SDUFLAG0 02462000 SDUECB EQU SDUFLAG0 02463000 SDUQUIET EQU SDUFLAG0 02464000 SDUBRANH EQU SDUFLAG0 02465000 SDUFLAG1 EQU SDUMP+1 02466000 SDUSDAT1 EQU SDUMP+2 02467000 SDUSDAT2 EQU SDUMP+3 02468000 SDUHDRAD EQU SDUMP+12 02469000 SDUECBAD EQU SDUMP+16 02470000 SDUMASID EQU SDUMP+20 02471000 SDUCASID EQU SDUMASID 02472000 SDUMPPTR EQU 0 02473000 ASCB EQU 0 02474000 ASCBSUPC EQU ASCB+16 02475000 ASCBASID EQU ASCB+36 02476000 ASCBRSM EQU ASCB+52 02477000 ASCBRSMF EQU ASCBRSM 02478000 ASCBDUMP EQU ASCB+96 02479000 ASCBFW1 EQU ASCB+100 02480000 ASCBRCTF EQU ASCBFW1+2 02481000 ASCBFLG1 EQU ASCBFW1+3 02482000 ASCBTERM EQU ASCBFLG1 02483000 ASCBABNT EQU ASCBFLG1 02484000 ASCBASXB EQU ASCB+108 02485000 ASCBDSP1 EQU ASCB+114 02486000 ASCBFAIL EQU ASCBDSP1 02487000 ASCBFLG2 EQU ASCB+115 02488000 ASCBLKGP EQU ASCB+128 02489000 ASCBSRQ EQU ASCB+180 02490000 ASCBSRQ1 EQU ASCBSRQ 02491000 ASCBSRQ2 EQU ASCBSRQ+1 02492000 ASCBSRQ3 EQU ASCBSRQ+2 02493000 ASCBSRQ4 EQU ASCBSRQ+3 02494000 ASXB EQU 0 02495000 ASXBFTCB EQU ASXB+4 02496000 ASXBSPSA EQU ASXB+112 02497000 ASXBAEQ EQU ASXB+168 02498000 ASXBSECR EQU ASXB+199 02499000 ASCBSFLG EQU ASXBSECR 02500000 ASXBCASW EQU ASXB+216 02501000 ASXBCRB1 EQU ASXBCASW 02502000 LCCA EQU 0 02503000 LCCAIHRC EQU LCCA+520 02504000 LCCAIHR1 EQU LCCAIHRC 02505000 LCCAIHR2 EQU LCCAIHRC+1 02506000 LCCAIHR3 EQU LCCAIHRC+2 02507000 LCCAIHR4 EQU LCCAIHRC+3 02508000 LCCASPIN EQU LCCA+524 02509000 LCCASPN1 EQU LCCASPIN 02510000 LCCASPN2 EQU LCCASPIN+1 02511000 LCCASPN3 EQU LCCASPIN+2 02512000 LCCASPN4 EQU LCCASPIN+3 02513000 LCCACPUS EQU LCCA+536 02514000 LCCADSF1 EQU LCCA+540 02515000 LCCADSF2 EQU LCCA+541 02516000 LCCASPSA EQU LCCA+544 02517000 LCCACRFL EQU LCCA+692 02518000 LCCACREX EQU LCCA+693 02519000 LCCALKFG EQU LCCA+694 02520000 LCCASRBF EQU LCCA+720 02521000 SDWA EQU 0 02522000 SDWAFIOB EQU SDWA+4 02523000 SDWAABCC EQU SDWAFIOB 02524000 SDWACMPF EQU SDWAABCC 02525000 SDWAREQ EQU SDWACMPF 02526000 SDWACMPC EQU SDWAABCC+1 02527000 SDWACTL1 EQU SDWA+8 02528000 SDWACMKA EQU SDWACTL1 02529000 SDWAMWPA EQU SDWACTL1+1 02530000 SDWAPMKA EQU SDWACTL1+4 02531000 SDWACTL2 EQU SDWA+16 02532000 SDWACMKP EQU SDWACTL2 02533000 SDWAMWPP EQU SDWACTL2+1 02534000 SDWAPMKP EQU SDWACTL2+4 02535000 SDWAGRSV EQU SDWA+24 02536000 SDWANAME EQU SDWA+88 02537000 SDWAEC1 EQU SDWA+104 02538000 SDWAEMK1 EQU SDWAEC1 02539000 SDWAMWP1 EQU SDWAEC1+1 02540000 SDWAINT1 EQU SDWAEC1+2 02541000 SDWANXT1 EQU SDWAEC1+4 02542000 SDWAAEC1 EQU SDWA+112 02543000 SDWAILC1 EQU SDWAAEC1+1 02544000 SDWAINC1 EQU SDWAAEC1+2 02545000 SDWAICD1 EQU SDWAINC1+1 02546000 SDWAEC2 EQU SDWA+120 02547000 SDWAEMK2 EQU SDWAEC2 02548000 SDWAMWP2 EQU SDWAEC2+1 02549000 SDWAINT2 EQU SDWAEC2+2 02550000 SDWANXT2 EQU SDWAEC2+4 02551000 SDWAAEC2 EQU SDWA+128 02552000 SDWAILC2 EQU SDWAAEC2+1 02553000 SDWAINC2 EQU SDWAAEC2+2 02554000 SDWAICD2 EQU SDWAINC2+1 02555000 SDWASRSV EQU SDWA+136 02556000 SDWASR09 EQU SDWASRSV+36 02557000 SDWAIDNT EQU SDWA+200 02558000 SDWAMCH EQU SDWA+204 02559000 SDWASTCK EQU SDWAMCH 02560000 SDWAMCHI EQU SDWAMCH+8 02561000 SDWAMCHS EQU SDWAMCHI 02562000 SDWAMCHD EQU SDWAMCHI+1 02563000 SDWARSR1 EQU SDWAMCH+12 02564000 SDWARSR2 EQU SDWAMCH+13 02565000 SDWAFLGS EQU SDWA+232 02566000 SDWAERRA EQU SDWAFLGS 02567000 SDWAERRB EQU SDWAFLGS+1 02568000 SDWAERRC EQU SDWAFLGS+2 02569000 SDWAPERC EQU SDWAERRC 02570000 SDWAERRD EQU SDWAFLGS+3 02571000 SDWACLUP EQU SDWAERRD 02572000 SDWAIOFS EQU SDWA+238 02573000 SDWARTYA EQU SDWA+240 02574000 SDWACPUA EQU SDWA+248 02575000 SDWAPARQ EQU SDWA+252 02576000 SDWARCDE EQU SDWAPARQ 02577000 SDWAACF2 EQU SDWAPARQ+1 02578000 SDWARCRD EQU SDWAACF2 02579000 SDWAUPRG EQU SDWAACF2 02580000 SDWAFREE EQU SDWAACF2 02581000 SDWAACF3 EQU SDWAPARQ+2 02582000 SDWAACF4 EQU SDWAPARQ+3 02583000 SDWALKWA EQU SDWA+256 02584000 SDWALKWS EQU SDWALKWA 02585000 SDWARECP EQU SDWA+292 02586000 SDWAMODN EQU SDWARECP 02587000 SDWACSCT EQU SDWARECP+8 02588000 SDWAREXN EQU SDWARECP+16 02589000 SDWASNPA EQU SDWA+320 02590000 SDWADUMP EQU SDWASNPA 02591000 SDWADPFS EQU SDWADUMP+1 02592000 SDWADDAT EQU SDWASNPA+4 02593000 SDWASDAT EQU SDWADDAT 02594000 SDWASDA0 EQU SDWASDAT 02595000 SDWASDA1 EQU SDWASDAT+1 02596000 SDWAPDAT EQU SDWADDAT+2 02597000 SDWADPSA EQU SDWA+328 02598000 SDWADPSL EQU SDWADPSA 02599000 SDWARA EQU SDWA+400 02600000 SDWADPVA EQU SDWARA+2 02601000 SDWAPTR EQU 0 02602000 ASVT EQU 0 02603000 ASVTFRST EQU ASVT+524 02604000 ASVTENTY EQU ASVT+528 02605000 ASVTAVAL EQU ASVTENTY 02606000 SCVTSECT EQU 0 02607000 SCVTSTAT EQU SCVTSECT+148 02608000 WSAL EQU 0 02609000 WSAG EQU 0 02610000 WSAC EQU 0 02611000 ESTA EQU 0 02612000 ESTAEXT EQU ESTA 02613000 ESTAFLG1 EQU ESTAEXT 02614000 ESTAIO EQU ESTAFLG1 02615000 ESTAEXIT EQU ESTAEXT+1 02616000 ESTAFGRS EQU ESTA+12 02617000 ESTAFLG2 EQU ESTAFGRS 02618000 ESTAPTR EQU 0 02619000 ECB EQU 0 02620000 ECBRB EQU ECB 02621000 ECBEVTB EQU ECBRB 02622000 ECBEXTB EQU ECBEVTB 02623000 ECBCC EQU ECBEXTB 02624000 ECBCCCNT EQU ECBEXTB+1 02625000 ECBRBA EQU ECBCCCNT 02626000 ECBEVTBA EQU ECBRBA 02627000 ECBEXTBA EQU ECBEVTBA 02628000 ECBBYTE3 EQU ECBEXTBA+2 02629000 ECBEXTND EQU ECBBYTE3 02630000 ECBPTR EQU 0 02631000 SDWORK EQU 0 02632000 SDCNTRL EQU SDWORK 02633000 LSTESTAE EQU SDCNTRL+44 02634000 SVCDSRBA EQU SDCNTRL+84 02635000 SDSRBADR EQU SDCNTRL+88 02636000 SDSRBBAS EQU SDCNTRL+92 02637000 SDWSDPL EQU SDCNTRL+96 02638000 SVCDOPTS EQU SDCNTRL+100 02639000 SVCDOPT1 EQU SVCDOPTS 02640000 SVCDPSA EQU SVCDOPT1 02641000 SVCDNUC EQU SVCDOPT1 02642000 SVCDLSQA EQU SVCDOPT1 02643000 SVCDRGN EQU SVCDOPT1 02644000 SVCDLPA EQU SVCDOPT1 02645000 SVCDTRT EQU SVCDOPT1 02646000 SVCDOPT2 EQU SVCDOPTS+1 02647000 SVCDCSA EQU SVCDOPT2 02648000 SVCDSWA EQU SVCDOPT2 02649000 SVCDNSMD EQU SVCDOPT2 02650000 SVCDNAPA EQU SVCDOPT2 02651000 SVCDNSQA EQU SVCDOPT2 02652000 FLAGSONE EQU SDCNTRL+102 02653000 FLAGSTWO EQU SDCNTRL+103 02654000 ERRORWK EQU SDCNTRL+104 02655000 SVCDMPNM EQU SDCNTRL+128 02656000 SDRETCOD EQU SDCNTRL+212 02657000 SDWRGSV1 EQU SDCNTRL+216 02658000 SDWRGSV2 EQU SDCNTRL+288 02659000 CVRT11 EQU SDCNTRL+368 02660000 CVRT1 EQU CVRT11+4 02661000 CVRT2 EQU SDCNTRL+376 02662000 SDCVRT4 EQU CVRT2+2 02663000 SVCNAME EQU SDCNTRL+392 02664000 SVCNM1T5 EQU SVCNAME 02665000 SVCNM6T8 EQU SVCNAME+5 02666000 SVCNM7T8 EQU SVCNM6T8+1 02667000 CCWCHAIN EQU SDCNTRL+400 02668000 CCW1 EQU CCWCHAIN 02669000 FLAGS1 EQU CCW1+4 02670000 CCW2 EQU CCWCHAIN+8 02671000 FLAGS2 EQU CCW2+4 02672000 CCW3 EQU CCWCHAIN+16 02673000 FLAGS3 EQU CCW3+4 02674000 SDOUTBUF EQU SDWORK+432 02675000 RCDCCHH EQU SDOUTBUF 02676000 SMDLR EQU 0 02677000 SMDLRHDR EQU SMDLR 02678000 SMWKRSCB EQU 0 02679000 SMWKFLGA EQU SMWKRSCB 02680000 SMWKFRHD EQU SMWKRSCB+2 02681000 SMWKRSFM EQU SMWKRSCB+16 02682000 SMWK EQU 0 02683000 SMWKFLGS EQU SMWK+4 02684000 SMWKFLG1 EQU SMWKFLGS 02685000 SMWKPSW EQU SMWK+168 02686000 SMWKRSM EQU SMWK+196 02687000 SMWKREGS EQU SMWK+676 02688000 SMWKTQEA EQU SMWK+824 02689000 SMWKPSSE EQU SMWK+960 02690000 SRBSECT EQU 0 02691000 SRB EQU SRBSECT 02692000 SRBID EQU SRB 02693000 SRBFLNK EQU SRB+4 02694000 SRBASCB EQU SRB+8 02695000 SRBFLC EQU SRB+12 02696000 SRBPASID EQU SRBFLC+2 02697000 SRBPTCB EQU SRBFLC+4 02698000 SRBEP EQU SRB+20 02699000 SRBRMTR EQU SRB+24 02700000 SRBPARM EQU SRB+28 02701000 SRBPTR EQU 0 02702000 ERRWORK EQU 0 02703000 ERRFLGS1 EQU ERRWORK 02704000 ERRFRR EQU ERRFLGS1 02705000 ERRESTAE EQU ERRFLGS1 02706000 ERRSDBIT EQU ERRFLGS1 02707000 ERRBFBIT EQU ERRFLGS1 02708000 ERRGTFGO EQU ERRFLGS1 02709000 ERRLLOCK EQU ERRFLGS1 02710000 ERRFLGS2 EQU ERRWORK+1 02711000 ERRENDMP EQU ERRFLGS2 02712000 ERRCUDMP EQU ERRFLGS2 02713000 ERRADDR EQU ERRWORK+4 02714000 ERRRETRY EQU ERRADDR 02715000 ERRWKADR EQU ERRWORK+8 02716000 ERRBASE1 EQU ERRWORK+12 02717000 ERRFLAG3 EQU ERRWORK+16 02718000 ERRSDENQ EQU ERRFLAG3 02719000 ERRCSDT EQU ERRFLAG3 02720000 ERRTRMNT EQU ERRFLAG3 02721000 ERRDLOCK EQU ERRFLAG3 02722000 ERRSRBSD EQU ERRFLAG3 02723000 ERRSAVE EQU ERRWORK+17 02724000 TQEDEQ EQU 0 02725000 STATUS EQU 0 02726000 DTWORK EQU 0 02727000 LFPOST EQU DTWORK 02728000 TRTPTRS EQU 0 02729000 TRTCURR EQU TRTPTRS 02730000 TRTENTY EQU 0 02731000 @NM00153 EQU TRTENTY+20 02732000 CURRSTOP EQU @NM00153 02733000 USERDATA EQU 0 02734000 SVCDSRB EQU 0 02735000 I001C EQU 0 02736000 I008P EQU 0 02737000 I015F EQU 0 02738000 I015P EQU 0 02739000 I031F EQU 0 02740000 I031P EQU 0 02741000 I256C EQU 0 02742000 PRDINPTR EQU 0 02743000 UCBPTR EQU 0 02744000 FLC EQU PSA 02745000 PSARSVTE EQU PSARSVT 02746000 PSACSTK EQU PSARSVTE 02747000 CVTPTR EQU FLCCVT 02748000 CVTS01 EQU CVTPGSIA 02749000 CVTLPDIA EQU CVTS01+12 02750000 CVTDIRST EQU CVTLPDIA 02751000 CVTSLIDA EQU CVTS01+24 02752000 CVTCTLFG EQU CVTS01+50 02753000 CVTSDTRC EQU CVTCTLFG 02754000 CVTTRACE EQU CVTS01+52 02755000 CVTOPTE EQU CVTS01+188 02756000 CVTASVT EQU CVTS01+208 02757000 CVTRTMCT EQU CVTS01+224 02758000 CVTSV60 EQU CVTS01+228 02759000 CVTSDBF EQU CVTS01+240 02760000 CVTGSMQ EQU CVTS01+264 02761000 CVTSPSA EQU CVTS01+336 02762000 CVTRV210 EQU CVTS01+424 02763000 CVTRV219 EQU CVTS01+425 02764000 CVTRV228 EQU CVTS01+426 02765000 CVTRV237 EQU CVTS01+427 02766000 CVTMFRTR EQU CVTS01+452 02767000 CVTRV262 EQU CVTS01+468 02768000 CVTRV271 EQU CVTS01+469 02769000 CVTRV280 EQU CVTS01+470 02770000 CVTRV289 EQU CVTS01+471 02771000 CVTGSDA EQU CVTS01+600 02772000 CVTSUSP EQU CVTS01+692 02773000 ASCBPTR EQU PSAAOLD 02774000 ASXBPTR EQU ASCBASXB 02775000 LCCAPTR EQU PSALCCAV 02776000 ASVTPTR EQU CVTASVT 02777000 SCVTSPTR EQU CVTABEND 02778000 TRTCVTWD EQU CVTTRACE 02779000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02780000 CVTRV628 EQU CVTS01+728 02781000 CVTRV627 EQU CVTS01+724 02782000 CVTRV626 EQU CVTS01+720 02783000 CVTRV625 EQU CVTS01+716 02784000 CVTRV624 EQU CVTS01+712 02785000 CVTRV623 EQU CVTS01+708 02786000 CVTRV622 EQU CVTS01+704 02787000 CVTRV621 EQU CVTS01+700 02788000 CVTIHASU EQU CVTS01+696 02789000 CVTT6SVC EQU CVTS01+688 02790000 CVTCDAL EQU CVTS01+684 02791000 CVTTCTL EQU CVTS01+680 02792000 CVTRSUME EQU CVTS01+676 02793000 CVTJTERM EQU CVTS01+672 02794000 CVTASMRM EQU CVTS01+668 02795000 CVTTCASP EQU CVTS01+664 02796000 CVT0PT03 EQU CVTS01+660 02797000 CVT0PT0E EQU CVTS01+656 02798000 CVTRV609 EQU CVTS01+652 02799000 CVTCGK EQU CVTS01+648 02800000 CVTRAC EQU CVTS01+644 02801000 CVTRV606 EQU CVTS01+640 02802000 CVTRV605 EQU CVTS01+636 02803000 CVTRV604 EQU CVTS01+632 02804000 CVTEFF02 EQU CVTS01+628 02805000 CVTCBBR EQU CVTS01+624 02806000 CVTSSCR EQU CVTS01+620 02807000 CVTEVENT EQU CVTS01+616 02808000 CVTCRCA EQU CVTS01+612 02809000 CVTTPIO EQU CVTS01+608 02810000 CVTADV EQU CVTS01+604 02811000 CVTGSDAB EQU CVTGSDA 02812000 CVTQV3 EQU CVTS01+596 02813000 CVTQV2 EQU CVTS01+592 02814000 CVTQV1 EQU CVTS01+588 02815000 CVTRPT EQU CVTS01+584 02816000 CVTSSRB EQU CVTS01+580 02817000 CVTCSDRL EQU CVTS01+576 02818000 CVTEXP1 EQU CVTS01+572 02819000 CVTRMPMT EQU CVTS01+568 02820000 CVTRMPTT EQU CVTS01+564 02821000 CVTVPSA EQU CVTS01+560 02822000 CVTVSTOP EQU CVTS01+556 02823000 CVTGTFR8 EQU CVTS01+552 02824000 CVTQUIT EQU CVTS01+548 02825000 CVTVACR EQU CVTS01+544 02826000 CVTWTCB EQU CVTS01+540 02827000 CVTSTPRS EQU CVTS01+536 02828000 CVT0PT02 EQU CVTS01+532 02829000 CVTDARCM EQU CVTS01+528 02830000 CVTIRECM EQU CVTS01+524 02831000 CVTJRECM EQU CVTS01+520 02832000 CVTVEMS0 EQU CVTS01+516 02833000 CVTSPFRR EQU CVTS01+512 02834000 CVTRLSTG EQU CVTS01+508 02835000 CVT0TC0A EQU CVTS01+504 02836000 CVTGMBR EQU CVTS01+500 02837000 CVTLFRM EQU CVTS01+496 02838000 CVTRMBR EQU CVTS01+492 02839000 CVTVIOP EQU CVTS01+488 02840000 CVTRV307 EQU CVTS01+486 02841000 CVTRV306 EQU CVTS01+484 02842000 CVTRV305 EQU CVTS01+482 02843000 CVTRV304 EQU CVTS01+480 02844000 CVTRV303 EQU CVTS01+478 02845000 CVTRV302 EQU CVTS01+476 02846000 CVTTRCA EQU CVTS01+472 02847000 CVTRV297 EQU CVTRV289 02848000 CVTRV296 EQU CVTRV289 02849000 CVTRV295 EQU CVTRV289 02850000 CVTRV294 EQU CVTRV289 02851000 CVTRV293 EQU CVTRV289 02852000 CVTRV292 EQU CVTRV289 02853000 CVTRV291 EQU CVTRV289 02854000 CVTRV290 EQU CVTRV289 02855000 CVTRV288 EQU CVTRV280 02856000 CVTRV287 EQU CVTRV280 02857000 CVTRV286 EQU CVTRV280 02858000 CVTRV285 EQU CVTRV280 02859000 CVTRV284 EQU CVTRV280 02860000 CVTRV283 EQU CVTRV280 02861000 CVTRV282 EQU CVTRV280 02862000 CVTRV281 EQU CVTRV280 02863000 CVTRV279 EQU CVTRV271 02864000 CVTRV278 EQU CVTRV271 02865000 CVTRV277 EQU CVTRV271 02866000 CVTRV276 EQU CVTRV271 02867000 CVTRV275 EQU CVTRV271 02868000 CVTRV274 EQU CVTRV271 02869000 CVTRV273 EQU CVTRV271 02870000 CVTRV272 EQU CVTRV271 02871000 CVTRV270 EQU CVTRV262 02872000 CVTRV269 EQU CVTRV262 02873000 CVTRV268 EQU CVTRV262 02874000 CVTRV267 EQU CVTRV262 02875000 CVTRV266 EQU CVTRV262 02876000 CVTRV265 EQU CVTRV262 02877000 CVTRV264 EQU CVTRV262 02878000 CVTRV263 EQU CVTRV262 02879000 CVTVFP EQU CVTS01+464 02880000 CVTVSI EQU CVTS01+460 02881000 CVTVPSIB EQU CVTS01+456 02882000 CVTMFACT EQU CVTMFRTR 02883000 CVTMFCTL EQU CVTS01+448 02884000 CVTPVBP EQU CVTS01+444 02885000 CVTPWI EQU CVTS01+440 02886000 CVTRV254 EQU CVTS01+438 02887000 CVTRV253 EQU CVTS01+436 02888000 CVTRV252 EQU CVTS01+434 02889000 CVTRV251 EQU CVTS01+433 02890000 CVTRV250 EQU CVTS01+432 02891000 CVTRV249 EQU CVTS01+431 02892000 CVTRV248 EQU CVTS01+430 02893000 CVTRV247 EQU CVTS01+429 02894000 CVTRV246 EQU CVTS01+428 02895000 CVTRV245 EQU CVTRV237 02896000 CVTRV244 EQU CVTRV237 02897000 CVTRV243 EQU CVTRV237 02898000 CVTRV242 EQU CVTRV237 02899000 CVTRV241 EQU CVTRV237 02900000 CVTRV240 EQU CVTRV237 02901000 CVTRV239 EQU CVTRV237 02902000 CVTRV238 EQU CVTRV237 02903000 CVTRV236 EQU CVTRV228 02904000 CVTRV235 EQU CVTRV228 02905000 CVTRV234 EQU CVTRV228 02906000 CVTRV233 EQU CVTRV228 02907000 CVTRV232 EQU CVTRV228 02908000 CVTRV231 EQU CVTRV228 02909000 CVTRV230 EQU CVTRV228 02910000 CVTRV229 EQU CVTRV228 02911000 CVTRV227 EQU CVTRV219 02912000 CVTRV226 EQU CVTRV219 02913000 CVTRV225 EQU CVTRV219 02914000 CVTRV224 EQU CVTRV219 02915000 CVTRV223 EQU CVTRV219 02916000 CVTRV222 EQU CVTRV219 02917000 CVTRV221 EQU CVTRV219 02918000 CVTRV220 EQU CVTRV219 02919000 CVTRV218 EQU CVTRV210 02920000 CVTRV217 EQU CVTRV210 02921000 CVTRV216 EQU CVTRV210 02922000 CVTRV215 EQU CVTRV210 02923000 CVTRV214 EQU CVTRV210 02924000 CVTRV213 EQU CVTRV210 02925000 CVTRV212 EQU CVTRV210 02926000 CVTRV211 EQU CVTRV210 02927000 CVTLCCAT EQU CVTS01+420 02928000 CVTPCCAT EQU CVTS01+416 02929000 CVTIPCRP EQU CVTS01+412 02930000 CVTIPCRI EQU CVTS01+408 02931000 CVTIPCDS EQU CVTS01+404 02932000 CVTAIDVT EQU CVTS01+400 02933000 CVTSSAP EQU CVTS01+396 02934000 CVTEHCIR EQU CVTS01+392 02935000 CVTEHDEF EQU CVTS01+388 02936000 CVTDAIR EQU CVTS01+384 02937000 CVTPERFM EQU CVTS01+380 02938000 CVT044R2 EQU CVTS01+376 02939000 CVTFETCH EQU CVTS01+372 02940000 CVTRSTWD EQU CVTS01+368 02941000 CVTSPOST EQU CVTS01+364 02942000 CVTIOBP EQU CVTS01+360 02943000 CVTASMVT EQU CVTS01+356 02944000 CVTRECRQ EQU CVTS01+352 02945000 CVTWSAC EQU CVTS01+348 02946000 CVTRV149 EQU CVTS01+344 02947000 CVTWSAL EQU CVTS01+340 02948000 CVTGLMN EQU CVTS01+332 02949000 CVTVEAC0 EQU CVTS01+328 02950000 CVT062R1 EQU CVTS01+324 02951000 CVTRPOST EQU CVTS01+320 02952000 CVTDQIQE EQU CVTS01+316 02953000 CVTCSD EQU CVTS01+312 02954000 CVTLKRMA EQU CVTS01+308 02955000 CVTRSPIE EQU CVTS01+304 02956000 CVTRENQ EQU CVTS01+300 02957000 CVTLQCB EQU CVTS01+296 02958000 CVTFQCB EQU CVTS01+292 02959000 CVTQCS01 EQU CVTS01+288 02960000 CVTAPFT EQU CVTS01+284 02961000 CVTPARRL EQU CVTS01+280 02962000 CVTVWAIT EQU CVTS01+276 02963000 CVTGSPL EQU CVTS01+272 02964000 CVTLSMQ EQU CVTS01+268 02965000 CVTEXPRO EQU CVTS01+260 02966000 CVTOPCTP EQU CVTS01+256 02967000 CVTSIC EQU CVTS01+252 02968000 CVTTPIOS EQU CVTS01+248 02969000 CVTRTMS EQU CVTS01+244 02970000 CVTSCBP EQU CVTS01+236 02971000 CVTSDMP EQU CVTS01+232 02972000 CVTASCBL EQU CVTS01+220 02973000 CVTASCBH EQU CVTS01+216 02974000 CVTGDA EQU CVTS01+212 02975000 CVTVVMDI EQU CVTS01+204 02976000 CVTAQTOP EQU CVTS01+200 02977000 CVTIOSCS EQU CVTS01+196 02978000 CVTSDRM EQU CVTS01+192 02979000 CVTSTXU EQU CVTS01+184 02980000 CVTQUIS EQU CVTS01+180 02981000 CVTPARS EQU CVTS01+176 02982000 CVTS1EE EQU CVTS01+172 02983000 CVTFRAS EQU CVTS01+168 02984000 CVTQSAS EQU CVTS01+164 02985000 CVTCRAS EQU CVTS01+160 02986000 CVTCRMN EQU CVTS01+156 02987000 CVTDELCP EQU CVTS01+152 02988000 CVTFRECL EQU CVTS01+148 02989000 CVTGETCL EQU CVTS01+144 02990000 CVTBLDCP EQU CVTS01+140 02991000 CVTAUTHL EQU CVTS01+136 02992000 CVTSCAN EQU CVTS01+132 02993000 CVTRV144 EQU CVTS01+130 02994000 CVTMAXMP EQU CVTS01+128 02995000 CVTSTCK EQU CVTS01+124 02996000 CVTRV139 EQU CVTS01+123 02997000 CVTDSSAC EQU CVTS01+122 02998000 CVTRV513 EQU CVTS01+121 02999000 CVTIOSPL EQU CVTS01+120 03000000 CVTPTGT EQU CVTS01+116 03001000 CVTCSPIE EQU CVTS01+112 03002000 CVTSMFEX EQU CVTS01+108 03003000 CVTOLT0A EQU CVTS01+104 03004000 CVTSRBRT EQU CVTS01+100 03005000 CVTPUTL EQU CVTS01+96 03006000 CVTASCRL EQU CVTS01+92 03007000 CVTASCRF EQU CVTS01+88 03008000 CVTRV326 EQU CVTS01+84 03009000 CVTRV325 EQU CVTS01+80 03010000 CVTRV324 EQU CVTS01+76 03011000 CVT0VL01 EQU CVTS01+72 03012000 CVTSHRVM EQU CVTS01+68 03013000 CVTRV332 EQU CVTS01+64 03014000 CVTTAS EQU CVTS01+60 03015000 CVTRSCN EQU CVTS01+56 03016000 CVTTRAC2 EQU CVTS01+54 03017000 CVTAPG EQU CVTS01+51 03018000 CVTGTRCE EQU CVTCTLFG 03019000 CVTNOMP EQU CVTCTLFG 03020000 CVTRSV79 EQU CVTCTLFG 03021000 CVTDSTAT EQU CVTCTLFG 03022000 CVTRSV78 EQU CVTCTLFG 03023000 CVTRV333 EQU CVTCTLFG 03024000 CVTRV323 EQU CVTCTLFG 03025000 CVTSPVLK EQU CVTS01+49 03026000 CVTRSV77 EQU CVTS01+48 03027000 CVTRV331 EQU CVTS01+44 03028000 CVTRV330 EQU CVTS01+40 03029000 CVTRV329 EQU CVTS01+36 03030000 CVTRV328 EQU CVTS01+32 03031000 CVTRV322 EQU CVTS01+28 03032000 CVTSLID EQU CVTSLIDA+1 03033000 CVTSYLK EQU CVTSLIDA 03034000 CVTRV321 EQU CVTS01+20 03035000 CVTRV320 EQU CVTS01+16 03036000 CVTLPDIR EQU CVTLPDIA+1 03037000 CVTRSV69 EQU CVTDIRST 03038000 CVTRSV68 EQU CVTDIRST 03039000 CVTRSV67 EQU CVTDIRST 03040000 CVTRSV66 EQU CVTDIRST 03041000 CVTRSV65 EQU CVTDIRST 03042000 CVTRSV64 EQU CVTDIRST 03043000 CVTRSV63 EQU CVTDIRST 03044000 CVTDICOM EQU CVTDIRST 03045000 CVTPVTP EQU CVTS01+8 03046000 CVTLPDSR EQU CVTS01+4 03047000 CVTGETL EQU CVTS01 03048000 PSARSAV EQU PSARSVTE+60 03049000 PSARSTK EQU PSARSVTE+56 03050000 PSAESAV3 EQU PSARSVTE+52 03051000 PSAESTK3 EQU PSARSVTE+48 03052000 PSAESAV2 EQU PSARSVTE+44 03053000 PSAESTK2 EQU PSARSVTE+40 03054000 PSAESAV1 EQU PSARSVTE+36 03055000 PSAESTK1 EQU PSARSVTE+32 03056000 PSAPSAV EQU PSARSVTE+28 03057000 PSAPSTK EQU PSARSVTE+24 03058000 PSAMSAV EQU PSARSVTE+20 03059000 PSAMSTK EQU PSARSVTE+16 03060000 PSASSAV EQU PSARSVTE+12 03061000 PSASSTK EQU PSARSVTE+8 03062000 PSANSTK EQU PSARSVTE+4 03063000 SDUSERDA EQU USERDATA+1 03064000 SDUHDRLN EQU USERDATA 03065000 @NM00152 EQU TRTENTY 03066000 TRTEND EQU TRTPTRS+8 03067000 TRTBEG EQU TRTPTRS+4 03068000 @NM00151 EQU DTWORK+16 03069000 ESTA2RET EQU DTWORK+12 03070000 ERRBASE2 EQU ERRWORK+20 03071000 @NM00150 EQU ERRWORK+18 03072000 @NM00149 EQU ERRFLAG3 03073000 ERRENDSW EQU ERRFLAG3 03074000 ERRNOTRM EQU ERRFLAG3 03075000 ERRRUBSW EQU ERRWORK+2 03076000 ERRCDOUT EQU ERRFLGS2 03077000 ERRNORCD EQU ERRFLGS2 03078000 ERRCMSLK EQU ERRFLGS2 03079000 ERRWKFIX EQU ERRFLGS2 03080000 ERRSDFIX EQU ERRFLGS2 03081000 ERRINIO EQU ERRFLGS2 03082000 ERRSLOCK EQU ERRFLGS1 03083000 ERRTCBND EQU ERRFLGS1 03084000 @NM00148 EQU SRB+40 03085000 @NM00147 EQU SRB+38 03086000 SRBPRIOR EQU SRB+37 03087000 SRBPKF EQU SRB+36 03088000 SRBSAVE EQU SRB+32 03089000 SRBCPAFF EQU SRBFLC 03090000 @NM00146 EQU SMWK+978 03091000 SMWKNSTB EQU SMWK+976 03092000 SMWKNFFD EQU SMWK+974 03093000 SMWKNTDQ EQU SMWK+972 03094000 SMWKNTDI EQU SMWK+970 03095000 SMWKNFUS EQU SMWK+968 03096000 SMWKNFAQ EQU SMWK+966 03097000 SMWKNFRQ EQU SMWK+964 03098000 SMWKTQE EQU SMWK+832 03099000 @NM00145 EQU SMWK+828 03100000 SMWKSVLN EQU SMWK+820 03101000 SMWKNDIE EQU SMWK+818 03102000 SMWKNFRE EQU SMWK+816 03103000 SMWKNFRI EQU SMWK+814 03104000 SMWKALEN EQU SMWK+812 03105000 SMWKSCBF EQU SMWK+810 03106000 SMWKREGN EQU SMWK+808 03107000 SMWKIDX2 EQU SMWK+806 03108000 SMWKIDX1 EQU SMWK+804 03109000 SMWKSREG EQU SMWKREGS 03110000 SMWKHEAD EQU SMWK+656 03111000 SMWKSMVL EQU SMWK+652 03112000 SMWKSMMV EQU SMWK+648 03113000 SMWKSMBF EQU SMWK+644 03114000 SMWKSMLS EQU SMWK+640 03115000 SMWKSMRG EQU SMWK+636 03116000 SMWKSMDT EQU SMWK+632 03117000 SMWKSDMP EQU SMWK+628 03118000 SMWKSMLK EQU SMWK+624 03119000 @NM00144 EQU SMWK+622 03120000 SMWKFRUS EQU SMWK+620 03121000 SMWKRSIX EQU SMWK+618 03122000 SMWKNFAV EQU SMWK+616 03123000 SMWKRFAD EQU SMWK+612 03124000 SMWKCPUS EQU SMWK+192 03125000 SMWKPEND EQU SMWK+188 03126000 SMWKSAVA EQU SMWK+184 03127000 SMWKENDA EQU SMWK+180 03128000 SMWKVADR EQU SMWK+176 03129000 SMWKPSWA EQU SMWKPSW+4 03130000 @NM00143 EQU SMWKPSW+2 03131000 SMWKPSWK EQU SMWKPSW+1 03132000 SMWKPSWS EQU SMWKPSW 03133000 SMWKPFXE EQU SMWK+164 03134000 SMWKPFXB EQU SMWK+160 03135000 SMWKSSDE EQU SMWK+156 03136000 SMWKENTY EQU SMWK+152 03137000 SMWKSAV1 EQU SMWK+80 03138000 SMWKSAVE EQU SMWK+8 03139000 SMWKFLG4 EQU SMWKFLGS+3 03140000 SMWKFLG3 EQU SMWKFLGS+2 03141000 SMWKFLG2 EQU SMWKFLGS+1 03142000 @NM00142 EQU SMWKFLG1 03143000 @NM00141 EQU SMWKFLG1 03144000 SMWKSTBK EQU SMWKFLG1 03145000 SMWKSLCL EQU SMWKFLG1 03146000 SMWKRSNM EQU SMWKFLG1 03147000 SMWKRBFL EQU SMWKFLG1 03148000 SMWKRBUF EQU SMWKFLG1 03149000 SMWKSLCK EQU SMWKFLG1 03150000 SMWKNAME EQU SMWK 03151000 SMWKFRMA EQU SMWKRSFM 03152000 SMWKPRSR EQU SMWKRSCB+12 03153000 SMWKTSDS EQU SMWKRSCB+8 03154000 SMWKFRPT EQU SMWKRSCB+4 03155000 SMWKFLGB EQU SMWKRSCB+1 03156000 @NM00140 EQU SMWKFLGA 03157000 SMWKEVRY EQU SMWKFLGA 03158000 SMDLRDAT EQU SMDLR+20 03159000 @NM00139 EQU SMDLRHDR+17 03160000 SMDLRMSG EQU SMDLRHDR+16 03161000 SMDLRPL EQU SMDLRHDR+12 03162000 SMDLRADR EQU SMDLRHDR+8 03163000 SMDLRLEN EQU SMDLRHDR+4 03164000 @NM00138 EQU SMDLRHDR+2 03165000 SMDLRID EQU SMDLRHDR 03166000 SDBUFFER EQU SDWORK+440 03167000 DATALEN EQU SDOUTBUF+6 03168000 KEYLEN EQU SDOUTBUF+5 03169000 RECORDNO EQU SDOUTBUF+4 03170000 RCDHH EQU RCDCCHH+2 03171000 RCDCC EQU RCDCCHH 03172000 SDSMDECB EQU SDCNTRL+428 03173000 SDSMBUFF EQU SDCNTRL+424 03174000 BYTECNT3 EQU CCW3+6 03175000 @NM00137 EQU CCW3+5 03176000 PCI3 EQU FLAGS3 03177000 SKIP3 EQU FLAGS3 03178000 SLI3 EQU FLAGS3 03179000 CC3 EQU FLAGS3 03180000 CD3 EQU FLAGS3 03181000 DATAADR3 EQU CCW3+1 03182000 CMDCODE3 EQU CCW3 03183000 BYTECNT2 EQU CCW2+6 03184000 @NM00136 EQU CCW2+5 03185000 PCI2 EQU FLAGS2 03186000 SKIP2 EQU FLAGS2 03187000 SLI2 EQU FLAGS2 03188000 CC2 EQU FLAGS2 03189000 CD2 EQU FLAGS2 03190000 DATAADR2 EQU CCW2+1 03191000 CMDCODE2 EQU CCW2 03192000 BYTECNT1 EQU CCW1+6 03193000 @NM00135 EQU CCW1+5 03194000 PCI1 EQU FLAGS1 03195000 SKIP1 EQU FLAGS1 03196000 SLI1 EQU FLAGS1 03197000 CMDC1 EQU FLAGS1 03198000 CD1 EQU FLAGS1 03199000 DATAADR1 EQU CCW1+1 03200000 CMDCODE1 EQU CCW1 03201000 SVCNM8 EQU SVCNM7T8+1 03202000 SVCNM7 EQU SVCNM7T8 03203000 SVCNM6 EQU SVCNM6T8 03204000 SVCNM1T4 EQU SVCNM1T5 03205000 @NM00134 EQU SDCNTRL+388 03206000 SVC994ID EQU SDCNTRL+384 03207000 CVRT2SGN EQU SDCVRT4+5 03208000 @NM00133 EQU SDCVRT4 03209000 @NM00132 EQU CVRT2 03210000 SDCVRT1 EQU CVRT1+2 03211000 @NM00131 EQU CVRT1 03212000 @NM00130 EQU CVRT11 03213000 CHCNT EQU SDCNTRL+366 03214000 TIMCNT EQU SDCNTRL+364 03215000 DSTINDEX EQU SDCNTRL+360 03216000 ADDADRWD EQU SDCNTRL+208 03217000 ADDADRWC EQU SDCNTRL+204 03218000 ADDADRWB EQU SDCNTRL+200 03219000 ADDADRWA EQU SDCNTRL+196 03220000 USEEND EQU SDCNTRL+192 03221000 USESTART EQU SDCNTRL+188 03222000 SPQEADDR EQU SDCNTRL+184 03223000 USERRETA EQU SDCNTRL+180 03224000 PGFRRETA EQU SDCNTRL+176 03225000 SPQERETA EQU SDCNTRL+172 03226000 @NM00129 EQU SDCNTRL+171 03227000 SDWKEY EQU SDCNTRL+170 03228000 AFFNSAV EQU SDCNTRL+168 03229000 FREERETA EQU SDCNTRL+164 03230000 LPDERETA EQU SDCNTRL+160 03231000 CDERETA EQU SDCNTRL+156 03232000 DISPRETA EQU SDCNTRL+152 03233000 SDIORETA EQU SDCNTRL+148 03234000 SVCDLPST EQU SDCNTRL+136 03235000 SDWPAGOT EQU FLAGSONE 03236000 FLGFLAST EQU FLAGSONE 03237000 FLGTAPEE EQU FLAGSONE 03238000 FLGRTFUL EQU FLAGSONE 03239000 SVCDSMDP EQU SVCDOPT2 03240000 SVCDSQA EQU SVCDOPT1 03241000 SVCDAPSA EQU SVCDOPT1 03242000 ENDADRNT EQU SDCNTRL+80 03243000 RANGEPTR EQU SDCNTRL+76 03244000 GLOBADDR EQU SDCNTRL+72 03245000 LOCALADR EQU SDCNTRL+68 03246000 NUCADDR EQU SDCNTRL+64 03247000 DACHARAD EQU SDCNTRL+60 03248000 SDIOB EQU SDCNTRL+4 03249000 SDECB EQU SDCNTRL 03250000 ECBEVNT EQU ECBEXTND 03251000 @NM00128 EQU ECBEXTND 03252000 @NM00127 EQU ECBBYTE3 03253000 @NM00126 EQU ECBEXTBA 03254000 @NM00125 EQU ECBCC 03255000 ECBPOSTB EQU ECBCC 03256000 ECBWAITB EQU ECBCC 03257000 ESTARSVI EQU ESTAFGRS+1 03258000 @NM00124 EQU ESTAFLG2 03259000 ESTABRNT EQU ESTAFLG2 03260000 @NM00123 EQU ESTAFLG2 03261000 ESTAEREC EQU ESTAFLG2 03262000 ESTATERM EQU ESTAFLG2 03263000 @NM00122 EQU ESTAFLG2 03264000 ESTAOWNR EQU ESTA+8 03265000 ESTAPARM EQU ESTA+4 03266000 ESTAHALT EQU ESTAIO 03267000 ESTANOIO EQU ESTAIO 03268000 ESTASYNC EQU ESTAFLG1 03269000 @NM00121 EQU ESTAFLG1 03270000 ESTAESTA EQU ESTAFLG1 03271000 @NM00120 EQU ESTAFLG1 03272000 ESTASTAR EQU ESTAFLG1 03273000 ESTASTAI EQU ESTAFLG1 03274000 WSACASMS EQU WSAC+60 03275000 WSACASMD EQU WSAC+56 03276000 WSACCCH EQU WSAC+52 03277000 WSACRRSA EQU WSAC+48 03278000 WSACREST EQU WSAC+44 03279000 WSACRSTI EQU WSAC+40 03280000 WSACABTM EQU WSAC+36 03281000 WSACMF1 EQU WSAC+32 03282000 WSACEDS0 EQU WSAC+28 03283000 WSACIOS EQU WSAC+24 03284000 WSACRTMK EQU WSAC+20 03285000 WSACACR EQU WSAC+16 03286000 WSACTIME EQU WSAC+12 03287000 WSACOPTM EQU WSAC+8 03288000 WSACGTF EQU WSAC+4 03289000 WSACCWSA EQU WSAC 03290000 WSAGSCHE EQU WSAG+40 03291000 WSAGREST EQU WSAG+36 03292000 WSAGNQDQ EQU WSAG+32 03293000 WSAGMEMT EQU WSAG+28 03294000 WSAGOPTM EQU WSAG+24 03295000 WSAGSTAT EQU WSAG+20 03296000 WSAGEMS0 EQU WSAG+16 03297000 WSAGSSRS EQU WSAG+12 03298000 WSAGRSM EQU WSAG+8 03299000 WSAGGMFM EQU WSAG+4 03300000 WSAGPGIO EQU WSAG 03301000 WSALACHP EQU WSAL+56 03302000 WSALRSM EQU WSAL+52 03303000 WSALEVNT EQU WSAL+48 03304000 WSALSTAE EQU WSAL+44 03305000 WSALSTAT EQU WSAL+40 03306000 WSALWAIT EQU WSAL+36 03307000 WSALPOST EQU WSAL+32 03308000 WSALEXIT EQU WSAL+28 03309000 WSALS2EE EQU WSAL+24 03310000 WSALCIRB EQU WSAL+20 03311000 WSALABTM EQU WSAL+16 03312000 WSALSDMP EQU WSAL+12 03313000 WSALRTM2 EQU WSAL+8 03314000 WSALVALC EQU WSAL+4 03315000 WSALCWSA EQU WSAL 03316000 @NM00119 EQU SCVTSECT+180 03317000 @NM00118 EQU SCVTSECT+176 03318000 SCVTPIQE EQU SCVTSECT+172 03319000 @NM00117 EQU SCVTSECT+168 03320000 SCVTPTRM EQU SCVTSECT+164 03321000 @NM00116 EQU SCVTSECT+160 03322000 @NM00115 EQU SCVTSECT+156 03323000 SCVTQCBR EQU SCVTSECT+152 03324000 @NM00114 EQU SCVTSECT+144 03325000 SCVTTQE EQU SCVTSECT+140 03326000 @NM00113 EQU SCVTSECT+136 03327000 SCVTSVCT EQU SCVTSECT+132 03328000 @NM00112 EQU SCVTSECT+128 03329000 @NM00111 EQU SCVTSECT+124 03330000 SCVTRXLQ EQU SCVTSECT+120 03331000 @NM00110 EQU SCVTSECT+116 03332000 SCVTCTCB EQU SCVTSECT+112 03333000 @NM00109 EQU SCVTSECT+108 03334000 @NM00108 EQU SCVTSECT+104 03335000 @NM00107 EQU SCVTSECT+100 03336000 @NM00106 EQU SCVTSECT+96 03337000 SCVTCOMM EQU SCVTSECT+92 03338000 @NM00105 EQU SCVTSECT+88 03339000 @NM00104 EQU SCVTSECT+84 03340000 @NM00103 EQU SCVTSECT+80 03341000 @NM00102 EQU SCVTSECT+76 03342000 @NM00101 EQU SCVTSECT+72 03343000 SCVTGMBR EQU SCVTSECT+68 03344000 SCVTRPTR EQU SCVTSECT+64 03345000 SCVTHSKP EQU SCVTSECT+60 03346000 @NM00100 EQU SCVTSECT+56 03347000 @NM00099 EQU SCVTSECT+52 03348000 SCVTLFRM EQU SCVTSECT+48 03349000 SCVTCDCL EQU SCVTSECT+44 03350000 @NM00098 EQU SCVTSECT+40 03351000 SCVTRACE EQU SCVTSECT+36 03352000 @NM00097 EQU SCVTSECT+32 03353000 SCVTRMBR EQU SCVTSECT+28 03354000 @NM00096 EQU SCVTSECT+24 03355000 @NM00095 EQU SCVTSECT+20 03356000 @NM00094 EQU SCVTSECT+16 03357000 @NM00093 EQU SCVTSECT+14 03358000 SCVTBR14 EQU SCVTSECT+12 03359000 SCVTSPET EQU SCVTSECT+8 03360000 SCVTPGWR EQU SCVTSECT+4 03361000 SCVTPGTM EQU SCVTSECT 03362000 ASVTEND EQU ASVT+528 03363000 ASVTAVAI EQU ASVTFRST 03364000 ASVTRS00 EQU ASVT+520 03365000 ASVTMAXU EQU ASVT+516 03366000 ASVTASVT EQU ASVT+512 03367000 ASVTBEGN EQU ASVT+512 03368000 @NM00092 EQU ASVT 03369000 @NM00091 EQU SDWA+512 03370000 SDWAVRA EQU SDWARA+4 03371000 SDWAURAL EQU SDWARA+3 03372000 @NM00090 EQU SDWADPVA 03373000 SDWAEBC EQU SDWADPVA 03374000 SDWAHEX EQU SDWADPVA 03375000 SDWAVRAL EQU SDWARA 03376000 SDWAERTM EQU SDWA+396 03377000 SDWACOMP EQU SDWA+392 03378000 SDWARCPL EQU SDWA+364 03379000 @NM00089 EQU SDWADPSA+32 03380000 SDWATO4 EQU SDWADPSL+28 03381000 SDWAFRM4 EQU SDWADPSL+24 03382000 SDWATO3 EQU SDWADPSL+20 03383000 SDWAFRM3 EQU SDWADPSL+16 03384000 SDWATO2 EQU SDWADPSL+12 03385000 SDWAFRM2 EQU SDWADPSL+8 03386000 SDWATO1 EQU SDWADPSL+4 03387000 SDWAFRM1 EQU SDWADPSL 03388000 @NM00088 EQU SDWADDAT+3 03389000 @NM00087 EQU SDWAPDAT 03390000 SDWAUSPL EQU SDWAPDAT 03391000 SDWADPSW EQU SDWAPDAT 03392000 SDWATJPA EQU SDWAPDAT 03393000 SDWATLPA EQU SDWAPDAT 03394000 SDWADREG EQU SDWAPDAT 03395000 SDWADSAH EQU SDWAPDAT 03396000 SDWADSAS EQU SDWAPDAT 03397000 @NM00086 EQU SDWASDA1 03398000 SDWAERR EQU SDWASDA1 03399000 SDWAIO EQU SDWASDA1 03400000 SDWADM EQU SDWASDA0 03401000 SDWAQQS EQU SDWASDA0 03402000 SDWACBS EQU SDWASDA0 03403000 SDWAGTF EQU SDWASDA0 03404000 SDWASWA EQU SDWASDA0 03405000 SDWALSQA EQU SDWASDA0 03406000 SDWASQA EQU SDWASDA0 03407000 SDWANUC EQU SDWASDA0 03408000 @NM00085 EQU SDWADUMP+2 03409000 @NM00084 EQU SDWADPFS 03410000 SDWASLST EQU SDWADPFS 03411000 @NM00083 EQU SDWADPFS 03412000 SDWAENSN EQU SDWADPFS 03413000 SDWADLST EQU SDWADPFS 03414000 SDWADPT EQU SDWADPFS 03415000 SDWADPID EQU SDWADUMP 03416000 SDWADPLA EQU SDWA+316 03417000 SDWASEQ# EQU SDWA+290 03418000 SDWAASID EQU SDWA+288 03419000 SDWATALW EQU SDWALKWS+28 03420000 SDWATDLW EQU SDWALKWS+24 03421000 SDWATNLW EQU SDWALKWS+20 03422000 SDWAAPLW EQU SDWALKWS+16 03423000 SDWAIPLW EQU SDWALKWS+12 03424000 SDWAILLW EQU SDWALKWS+8 03425000 SDWAIULW EQU SDWALKWS+4 03426000 SDWAICLW EQU SDWALKWS 03427000 SDWAFLLK EQU SDWAACF4 03428000 SDWACMS EQU SDWAACF4 03429000 SDWAOPTM EQU SDWAACF4 03430000 SDWATADB EQU SDWAACF4 03431000 SDWATDNB EQU SDWAACF4 03432000 SDWATNCB EQU SDWAACF4 03433000 SDWAILCH EQU SDWAACF4 03434000 SDWAIUCB EQU SDWAACF4 03435000 SDWAICAT EQU SDWAACF3 03436000 SDWAIPRG EQU SDWAACF3 03437000 SDWASALL EQU SDWAACF3 03438000 SDWAASMP EQU SDWAACF3 03439000 SDWADISP EQU SDWAACF3 03440000 @NM00082 EQU SDWAACF3 03441000 @NM00081 EQU SDWAACF2 03442000 @NM00080 EQU SDWAACF2 03443000 SDWASPIN EQU SDWAACF2 03444000 @NM00079 EQU SDWAACF2 03445000 SDWALCPU EQU SDWACPUA+2 03446000 @NM00078 EQU SDWACPUA 03447000 SDWARECA EQU SDWA+244 03448000 SDWACPUI EQU SDWA+239 03449000 @NM00077 EQU SDWAIOFS 03450000 SDWANIOP EQU SDWAIOFS 03451000 SDWANOIO EQU SDWAIOFS 03452000 SDWAIOHT EQU SDWAIOFS 03453000 SDWAIOQR EQU SDWAIOFS 03454000 SDWAFMID EQU SDWA+236 03455000 SDWAERFL EQU SDWAERRD 03456000 SDWAMCIV EQU SDWAERRD 03457000 SDWARPIV EQU SDWAERRD 03458000 SDWAMABD EQU SDWAERRD 03459000 SDWACTS EQU SDWAERRD 03460000 SDWASTAE EQU SDWAERRD 03461000 SDWANRBE EQU SDWAERRD 03462000 @NM00076 EQU SDWAERRC 03463000 SDWAEAS EQU SDWAERRC 03464000 SDWAIRB EQU SDWAERRC 03465000 SDWASTAI EQU SDWAERRC 03466000 SDWASTAF EQU SDWAERRC 03467000 SDWASRBM EQU SDWAERRB 03468000 SDWALDIS EQU SDWAERRB 03469000 SDWAENRB EQU SDWAERRB 03470000 SDWATYP1 EQU SDWAERRB 03471000 @NM00075 EQU SDWAERRB 03472000 SDWAPGIO EQU SDWAERRA 03473000 SDWATEXC EQU SDWAERRA 03474000 SDWASVCE EQU SDWAERRA 03475000 SDWAABTM EQU SDWAERRA 03476000 SDWASVCD EQU SDWAERRA 03477000 SDWARKEY EQU SDWAERRA 03478000 SDWAPCHK EQU SDWAERRA 03479000 SDWAMCHK EQU SDWAERRA 03480000 SDWATIME EQU SDWAMCH+20 03481000 SDWARFSA EQU SDWAMCH+16 03482000 @NM00074 EQU SDWAMCH+14 03483000 SDWAVEQR EQU SDWARSR2 03484000 SDWAPGFX EQU SDWARSR2 03485000 SDWAFLSQ EQU SDWARSR2 03486000 SDWAFSQA EQU SDWARSR2 03487000 SDWANUCL EQU SDWARSR2 03488000 SDWASPER EQU SDWARSR2 03489000 SDWAINTC EQU SDWARSR2 03490000 SDWAOFLN EQU SDWARSR2 03491000 SDWACHNG EQU SDWARSR1 03492000 SDWAMSER EQU SDWARSR1 03493000 @NM00073 EQU SDWARSR1 03494000 SDWACPID EQU SDWAMCH+10 03495000 SDWATERR EQU SDWAMCHD 03496000 SDWAFPRX EQU SDWAMCHD 03497000 SDWAINSF EQU SDWAMCHD 03498000 SDWAACR EQU SDWAMCHD 03499000 SDWASCK EQU SDWAMCHD 03500000 SDWAPSWU EQU SDWAMCHD 03501000 SDWAREGU EQU SDWAMCHD 03502000 SDWASKYF EQU SDWAMCHD 03503000 @NM00072 EQU SDWAMCHS 03504000 SDWARSRF EQU SDWAMCHS 03505000 SDWARSRC EQU SDWAMCHS 03506000 SDWAINVP EQU SDWAMCHS 03507000 SDWATSVL EQU SDWAMCHS 03508000 SDWARCDF EQU SDWAMCHS 03509000 SDWASRVL EQU SDWAMCHS 03510000 SDWASCKE EQU SDWASTCK+4 03511000 SDWASCKB EQU SDWASTCK 03512000 SDWALNTH EQU SDWAIDNT+1 03513000 SDWASPID EQU SDWAIDNT 03514000 SDWASR15 EQU SDWASRSV+60 03515000 SDWASR14 EQU SDWASRSV+56 03516000 SDWASR13 EQU SDWASRSV+52 03517000 SDWASR12 EQU SDWASRSV+48 03518000 SDWASR11 EQU SDWASRSV+44 03519000 SDWASR10 EQU SDWASRSV+40 03520000 SDWASR08 EQU SDWASRSV+32 03521000 SDWASR07 EQU SDWASRSV+28 03522000 SDWASR06 EQU SDWASRSV+24 03523000 SDWASR05 EQU SDWASRSV+20 03524000 SDWASR04 EQU SDWASRSV+16 03525000 SDWASR03 EQU SDWASRSV+12 03526000 SDWASR02 EQU SDWASRSV+8 03527000 SDWASR01 EQU SDWASRSV+4 03528000 SDWASR00 EQU SDWASRSV 03529000 SDWATRN2 EQU SDWAAEC2+4 03530000 SDWAIPC2 EQU SDWAICD2 03531000 SDWAIMC2 EQU SDWAICD2 03532000 SDWAIPR2 EQU SDWAICD2 03533000 @NM00071 EQU SDWAINC2 03534000 @NM00070 EQU SDWAILC2 03535000 SDWAIL2 EQU SDWAILC2 03536000 @NM00069 EQU SDWAILC2 03537000 @NM00068 EQU SDWAAEC2 03538000 SDWAADD2 EQU SDWANXT2+1 03539000 @NM00067 EQU SDWANXT2 03540000 @NM00066 EQU SDWAEC2+3 03541000 SDWASGN2 EQU SDWAINT2 03542000 SDWAEXP2 EQU SDWAINT2 03543000 SDWADEC2 EQU SDWAINT2 03544000 SDWAFPO2 EQU SDWAINT2 03545000 SDWACC2 EQU SDWAINT2 03546000 @NM00065 EQU SDWAINT2 03547000 SDWAPGM2 EQU SDWAMWP2 03548000 SDWAWAT2 EQU SDWAMWP2 03549000 SDWAMCK2 EQU SDWAMWP2 03550000 SDWAECT2 EQU SDWAMWP2 03551000 SDWAKEY2 EQU SDWAMWP2 03552000 SDWAEXT2 EQU SDWAEMK2 03553000 SDWAIO2 EQU SDWAEMK2 03554000 SDWATRM2 EQU SDWAEMK2 03555000 @NM00064 EQU SDWAEMK2 03556000 SDWAPER2 EQU SDWAEMK2 03557000 @NM00063 EQU SDWAEMK2 03558000 SDWATRAN EQU SDWAAEC1+4 03559000 SDWAIPC1 EQU SDWAICD1 03560000 SDWAIMC1 EQU SDWAICD1 03561000 SDWAIPR1 EQU SDWAICD1 03562000 @NM00062 EQU SDWAINC1 03563000 @NM00061 EQU SDWAILC1 03564000 SDWAIL1 EQU SDWAILC1 03565000 @NM00060 EQU SDWAILC1 03566000 @NM00059 EQU SDWAAEC1 03567000 SDWAADD1 EQU SDWANXT1+1 03568000 @NM00058 EQU SDWANXT1 03569000 @NM00057 EQU SDWAEC1+3 03570000 SDWASGN1 EQU SDWAINT1 03571000 SDWAEXP1 EQU SDWAINT1 03572000 SDWADEC1 EQU SDWAINT1 03573000 SDWAFPO1 EQU SDWAINT1 03574000 SDWACC1 EQU SDWAINT1 03575000 @NM00056 EQU SDWAINT1 03576000 SDWAPGM1 EQU SDWAMWP1 03577000 SDWAWAT1 EQU SDWAMWP1 03578000 SDWAMCK1 EQU SDWAMWP1 03579000 SDWAECT1 EQU SDWAMWP1 03580000 SDWAKEY1 EQU SDWAMWP1 03581000 SDWAEXT1 EQU SDWAEMK1 03582000 SDWAIO1 EQU SDWAEMK1 03583000 SDWATRM1 EQU SDWAEMK1 03584000 @NM00055 EQU SDWAEMK1 03585000 SDWAPER1 EQU SDWAEMK1 03586000 @NM00054 EQU SDWAEMK1 03587000 SDWAIOBR EQU SDWA+100 03588000 SDWAEPA EQU SDWA+96 03589000 @NM00053 EQU SDWANAME+4 03590000 SDWARBAD EQU SDWANAME 03591000 SDWAGR15 EQU SDWAGRSV+60 03592000 SDWAGR14 EQU SDWAGRSV+56 03593000 SDWAGR13 EQU SDWAGRSV+52 03594000 SDWAGR12 EQU SDWAGRSV+48 03595000 SDWAGR11 EQU SDWAGRSV+44 03596000 SDWAGR10 EQU SDWAGRSV+40 03597000 SDWAGR09 EQU SDWAGRSV+36 03598000 SDWAGR08 EQU SDWAGRSV+32 03599000 SDWAGR07 EQU SDWAGRSV+28 03600000 SDWAGR06 EQU SDWAGRSV+24 03601000 SDWAGR05 EQU SDWAGRSV+20 03602000 SDWAGR04 EQU SDWAGRSV+16 03603000 SDWAGR03 EQU SDWAGRSV+12 03604000 SDWAGR02 EQU SDWAGRSV+8 03605000 SDWAGR01 EQU SDWAGRSV+4 03606000 SDWAGR00 EQU SDWAGRSV 03607000 SDWANXTP EQU SDWACTL2+5 03608000 SDWASGP EQU SDWAPMKP 03609000 SDWAEUP EQU SDWAPMKP 03610000 SDWADOP EQU SDWAPMKP 03611000 SDWAFPP EQU SDWAPMKP 03612000 SDWACCP EQU SDWAPMKP 03613000 SDWAILP EQU SDWAPMKP 03614000 SDWAINTP EQU SDWACTL2+2 03615000 SDWASPVP EQU SDWAMWPP 03616000 SDWAWATP EQU SDWAMWPP 03617000 SDWAMCKP EQU SDWAMWPP 03618000 @NM00052 EQU SDWAMWPP 03619000 SDWAKEYP EQU SDWAMWPP 03620000 SDWAEXTP EQU SDWACMKP 03621000 SDWAIOP EQU SDWACMKP 03622000 SDWANXTA EQU SDWACTL1+5 03623000 SDWASGA EQU SDWAPMKA 03624000 SDWAEUA EQU SDWAPMKA 03625000 SDWADOA EQU SDWAPMKA 03626000 SDWAFPA EQU SDWAPMKA 03627000 SDWACCA EQU SDWAPMKA 03628000 SDWAILA EQU SDWAPMKA 03629000 SDWAINTA EQU SDWACTL1+2 03630000 SDWASPVA EQU SDWAMWPA 03631000 SDWAWATA EQU SDWAMWPA 03632000 SDWAMCKA EQU SDWAMWPA 03633000 @NM00051 EQU SDWAMWPA 03634000 SDWAKEYA EQU SDWAMWPA 03635000 SDWAEXTA EQU SDWACMKA 03636000 SDWAIOA EQU SDWACMKA 03637000 @NM00050 EQU SDWACMPF 03638000 SDWASTCC EQU SDWACMPF 03639000 @NM00049 EQU SDWACMPF 03640000 SDWASTEP EQU SDWACMPF 03641000 SDWAPARM EQU SDWA 03642000 LCCAR125 EQU LCCA+964 03643000 LCCAR124 EQU LCCA+960 03644000 LCCASGPR EQU LCCA+896 03645000 LCCADRT2 EQU LCCA+888 03646000 LCCADRT1 EQU LCCA+880 03647000 LCCAR103 EQU LCCA+876 03648000 LCCAESS2 EQU LCCA+872 03649000 LCCASPLJ EQU LCCA+868 03650000 LCCASMQJ EQU LCCA+864 03651000 LCCAIRT EQU LCCA+736 03652000 LCCAASID EQU LCCA+732 03653000 LCCARV89 EQU LCCA+728 03654000 LCCAPGTA EQU LCCASRBF+2 03655000 LCCASAFN EQU LCCASRBF 03656000 LCCAECSA EQU LCCA+716 03657000 LCCAICR0 EQU LCCA+712 03658000 LCCALWTM EQU LCCA+704 03659000 LCCARV78 EQU LCCA+700 03660000 LCCAPINV EQU LCCA+696 03661000 LCCARV88 EQU LCCA+695 03662000 LCCARV87 EQU LCCALKFG 03663000 LCCARV86 EQU LCCALKFG 03664000 LCCARV85 EQU LCCALKFG 03665000 LCCARV84 EQU LCCALKFG 03666000 LCCALKRD EQU LCCALKFG 03667000 LCCALKAQ EQU LCCALKFG 03668000 LCCALKSA EQU LCCALKFG 03669000 LCCALKDP EQU LCCALKFG 03670000 LCCACRST EQU LCCACREX 03671000 LCCACRDP EQU LCCACREX 03672000 LCCACRLM EQU LCCACREX 03673000 LCCACRIN EQU LCCACREX 03674000 LCCACRRT EQU LCCACREX 03675000 LCCACRLE EQU LCCACREX 03676000 LCCACRRM EQU LCCACREX 03677000 LCCACREF EQU LCCACREX 03678000 LCCAVARY EQU LCCACRFL 03679000 LCCARV73 EQU LCCACRFL 03680000 LCCARV72 EQU LCCACRFL 03681000 LCCARV71 EQU LCCACRFL 03682000 LCCARV70 EQU LCCACRFL 03683000 LCCARV69 EQU LCCACRFL 03684000 LCCACLMS EQU LCCACRFL 03685000 LCCACRTM EQU LCCACRFL 03686000 LCCALCR0 EQU LCCA+688 03687000 LCCACRLC EQU LCCA+684 03688000 LCCARCPU EQU LCCA+680 03689000 LCCADCPU EQU LCCA+676 03690000 LCCASRBJ EQU LCCA+672 03691000 LCCADSSR EQU LCCA+668 03692000 LCCADSSC EQU LCCA+660 03693000 LCCADSS3 EQU LCCA+648 03694000 LCCADSS2 EQU LCCA+636 03695000 LCCADSS1 EQU LCCA+624 03696000 LCCAWTIM EQU LCCA+616 03697000 LCCAITOD EQU LCCA+608 03698000 LCCADTOD EQU LCCA+600 03699000 LCCASTOD EQU LCCA+592 03700000 LCCARIR5 EQU LCCASPSA+44 03701000 LCCARIR4 EQU LCCASPSA+40 03702000 LCCARIR3 EQU LCCASPSA+36 03703000 LCCARIR2 EQU LCCASPSA+32 03704000 LCCARPR5 EQU LCCASPSA+28 03705000 LCCARPR4 EQU LCCASPSA+24 03706000 LCCARPR3 EQU LCCASPSA+20 03707000 LCCARPR2 EQU LCCASPSA+16 03708000 LCCADSR5 EQU LCCASPSA+12 03709000 LCCADSR4 EQU LCCASPSA+8 03710000 LCCADSR3 EQU LCCASPSA+4 03711000 LCCADSR2 EQU LCCASPSA 03712000 LCCARV68 EQU LCCA+543 03713000 LCCAPSMK EQU LCCA+542 03714000 LCCARV67 EQU LCCADSF2 03715000 LCCARV66 EQU LCCADSF2 03716000 LCCARV65 EQU LCCADSF2 03717000 LCCARV64 EQU LCCADSF2 03718000 LCCADSRW EQU LCCADSF2 03719000 LCCADSPL EQU LCCADSF2 03720000 LCCAGSRB EQU LCCADSF2 03721000 LCCASRBM EQU LCCADSF2 03722000 LCCARV61 EQU LCCADSF1 03723000 LCCARV60 EQU LCCADSF1 03724000 LCCARV59 EQU LCCADSF1 03725000 LCCARV58 EQU LCCADSF1 03726000 LCCATIMR EQU LCCADSF1 03727000 LCCADSS EQU LCCADSF1 03728000 LCCAVCPU EQU LCCADSF1 03729000 LCCAACR EQU LCCADSF1 03730000 LCCAASCP EQU LCCA+532 03731000 LCCAESSA EQU LCCA+528 03732000 LCCARV55 EQU LCCASPN4 03733000 LCCARV54 EQU LCCASPN4 03734000 LCCARV53 EQU LCCASPN4 03735000 LCCARV52 EQU LCCASPN4 03736000 LCCARV51 EQU LCCASPN4 03737000 LCCARV50 EQU LCCASPN4 03738000 LCCARV49 EQU LCCASPN4 03739000 LCCARV48 EQU LCCASPN4 03740000 LCCARV47 EQU LCCASPN3 03741000 LCCARV46 EQU LCCASPN3 03742000 LCCARV45 EQU LCCASPN3 03743000 LCCARV44 EQU LCCASPN3 03744000 LCCARV43 EQU LCCASPN3 03745000 LCCARV42 EQU LCCASPN3 03746000 LCCARV41 EQU LCCASPN3 03747000 LCCARV40 EQU LCCASPN3 03748000 LCCARV39 EQU LCCASPN2 03749000 LCCARV38 EQU LCCASPN2 03750000 LCCARV37 EQU LCCASPN2 03751000 LCCARV36 EQU LCCASPN2 03752000 LCCARV35 EQU LCCASPN2 03753000 LCCARV34 EQU LCCASPN2 03754000 LCCARV33 EQU LCCASPN2 03755000 LCCARV32 EQU LCCASPN2 03756000 LCCARV31 EQU LCCASPN1 03757000 LCCARV30 EQU LCCASPN1 03758000 LCCAMFIO EQU LCCASPN1 03759000 LCCARSTR EQU LCCASPN1 03760000 LCCATSPN EQU LCCASPN1 03761000 LCCALOCK EQU LCCASPN1 03762000 LCCASIGP EQU LCCASPN1 03763000 LCCAPTLB EQU LCCASPN1 03764000 LCCARV27 EQU LCCAIHR4 03765000 LCCARV26 EQU LCCAIHR4 03766000 LCCARV25 EQU LCCAIHR4 03767000 LCCARV24 EQU LCCAIHR4 03768000 LCCARV23 EQU LCCAIHR4 03769000 LCCARV22 EQU LCCAIHR4 03770000 LCCARV21 EQU LCCAIHR4 03771000 LCCARV20 EQU LCCAIHR4 03772000 LCCARV19 EQU LCCAIHR3 03773000 LCCARV18 EQU LCCAIHR3 03774000 LCCARV17 EQU LCCAIHR3 03775000 LCCARV16 EQU LCCAIHR3 03776000 LCCARV15 EQU LCCAIHR3 03777000 LCCARV14 EQU LCCAIHR3 03778000 LCCARV13 EQU LCCAIHR3 03779000 LCCARV12 EQU LCCAIHR3 03780000 LCCARV11 EQU LCCAIHR2 03781000 LCCARV10 EQU LCCAIHR2 03782000 LCCARV09 EQU LCCAIHR2 03783000 LCCARV08 EQU LCCAIHR2 03784000 LCCARV07 EQU LCCAIHR2 03785000 LCCARV06 EQU LCCAIHR2 03786000 LCCARV05 EQU LCCAIHR2 03787000 LCCARV04 EQU LCCAIHR2 03788000 LCCARV03 EQU LCCAIHR1 03789000 LCCARV02 EQU LCCAIHR1 03790000 LCCARV01 EQU LCCAIHR1 03791000 LCCAPPIE EQU LCCAIHR1 03792000 LCCAPSG1 EQU LCCAIHR1 03793000 LCCAPDAT EQU LCCAIHR1 03794000 LCCAXRC2 EQU LCCAIHR1 03795000 LCCAXRC1 EQU LCCAIHR1 03796000 LCCAIOPS EQU LCCA+512 03797000 LCCAGPGR EQU LCCA+448 03798000 LCCAR133 EQU LCCA+444 03799000 LCCAR132 EQU LCCA+440 03800000 LCCAR131 EQU LCCA+436 03801000 LCCAR130 EQU LCCA+432 03802000 LCCAR129 EQU LCCA+428 03803000 LCCAR128 EQU LCCA+424 03804000 LCCAR127 EQU LCCA+420 03805000 LCCAR126 EQU LCCA+416 03806000 LCCARSGR EQU LCCA+352 03807000 LCCAXGR3 EQU LCCA+288 03808000 LCCAXGR2 EQU LCCA+224 03809000 LCCAXGR1 EQU LCCA+160 03810000 LCCACR0 EQU LCCA+156 03811000 LCCAMCR1 EQU LCCA+152 03812000 LCCAPVAD EQU LCCA+148 03813000 LCCAPINT EQU LCCA+144 03814000 LCCAPPSW EQU LCCA+136 03815000 LCCAPGR2 EQU LCCA+72 03816000 LCCAPGR1 EQU LCCA+8 03817000 LCCARV77 EQU LCCA+6 03818000 LCCACPUA EQU LCCA+4 03819000 LCCALCCA EQU LCCA 03820000 ASXBEND EQU ASXB+232 03821000 ASXBRV25 EQU ASXB+228 03822000 ASXBRV24 EQU ASXB+224 03823000 ASXBPT0E EQU ASXB+220 03824000 ASXBCRB4 EQU ASXBCASW+3 03825000 ASXBCRB3 EQU ASXBCASW+2 03826000 ASXBCRB2 EQU ASXBCASW+1 03827000 ASXBCR06 EQU ASXBCRB1 03828000 ASXBCR05 EQU ASXBCRB1 03829000 ASXBCR04 EQU ASXBCRB1 03830000 ASXBCR03 EQU ASXBCRB1 03831000 ASXBCR02 EQU ASXBCRB1 03832000 ASXBCR01 EQU ASXBCRB1 03833000 ASXBTFD EQU ASXBCRB1 03834000 ASXBPIP EQU ASXBCRB1 03835000 ASXBCTDC EQU ASXB+212 03836000 ASXBTDCB EQU ASXB+208 03837000 ASXBRV19 EQU ASXB+204 03838000 ASXBSENV EQU ASXBSECR+1 03839000 ASXBRV34 EQU ASCBSFLG 03840000 ASXBRV33 EQU ASCBSFLG 03841000 ASXBRV32 EQU ASCBSFLG 03842000 ASXBRV31 EQU ASCBSFLG 03843000 ASXBRV30 EQU ASCBSFLG 03844000 ASXBRV29 EQU ASCBSFLG 03845000 ASXBRV28 EQU ASCBSFLG 03846000 ASXBRV27 EQU ASCBSFLG 03847000 ASXBUSER EQU ASXB+192 03848000 ASXBLSRB EQU ASXBAEQ+20 03849000 ASXBFSRB EQU ASXBAEQ+16 03850000 ASXBLRQE EQU ASXBAEQ+12 03851000 ASXBFRQE EQU ASXBAEQ+8 03852000 ASXBLIQE EQU ASXBAEQ+4 03853000 ASXBFIQE EQU ASXBAEQ 03854000 ASXBETSK EQU ASXB+164 03855000 ASXBSIRB EQU ASXB+160 03856000 ASXBPSWD EQU ASXB+152 03857000 ASXBPRG EQU ASXB+136 03858000 ASXBRV26 EQU ASXB+132 03859000 ASXBOUSB EQU ASXB+128 03860000 ASXBDDR EQU ASXB+124 03861000 ASXBRCTD EQU ASXB+120 03862000 ASXBRSMD EQU ASXB+116 03863000 ASXBFRWA EQU ASXB+108 03864000 ASXBFLSA EQU ASXB+36 03865000 ASXBIHSA EQU ASXB+32 03866000 ASXBRV15 EQU ASXB+28 03867000 ASXBRV14 EQU ASXB+24 03868000 ASXBLWA EQU ASXB+20 03869000 ASXBMPST EQU ASXB+16 03870000 ASXBRS00 EQU ASXB+14 03871000 ASXBTCBS EQU ASXB+12 03872000 ASXBLTCB EQU ASXB+8 03873000 ASXBASXB EQU ASXB 03874000 ASXBEGIN EQU ASXB 03875000 ASCBEND EQU ASCB+208 03876000 ASCBSRBT EQU ASCB+200 03877000 ASCBSWTL EQU ASCB+196 03878000 ASCBRS14 EQU ASCB+195 03879000 ASCBSMCT EQU ASCB+194 03880000 ASCBRS12 EQU ASCB+192 03881000 ASCBPCTT EQU ASCB+188 03882000 ASCBVGTT EQU ASCB+184 03883000 ASCBRV43 EQU ASCBSRQ4 03884000 ASCBRV42 EQU ASCBSRQ4 03885000 ASCBRV41 EQU ASCBSRQ4 03886000 ASCBRV40 EQU ASCBSRQ4 03887000 ASCBRV39 EQU ASCBSRQ4 03888000 ASCBRV38 EQU ASCBSRQ4 03889000 ASCBRV37 EQU ASCBSRQ4 03890000 ASCBRV36 EQU ASCBSRQ4 03891000 ASCBRV35 EQU ASCBSRQ3 03892000 ASCBRV34 EQU ASCBSRQ3 03893000 ASCBRV33 EQU ASCBSRQ3 03894000 ASCBRV32 EQU ASCBSRQ3 03895000 ASCBRV31 EQU ASCBSRQ3 03896000 ASCBRV30 EQU ASCBSRQ3 03897000 ASCBRV29 EQU ASCBSRQ3 03898000 ASCBRV28 EQU ASCBSRQ3 03899000 ASCBRV27 EQU ASCBSRQ2 03900000 ASCBRV26 EQU ASCBSRQ2 03901000 ASCBRV25 EQU ASCBSRQ2 03902000 ASCBRV24 EQU ASCBSRQ2 03903000 ASCBRV23 EQU ASCBSRQ2 03904000 ASCBRV22 EQU ASCBSRQ2 03905000 ASCBRV21 EQU ASCBSRQ2 03906000 ASCBRV20 EQU ASCBSRQ2 03907000 ASCBRV19 EQU ASCBSRQ1 03908000 ASCBRV18 EQU ASCBSRQ1 03909000 ASCBRV17 EQU ASCBSRQ1 03910000 ASCBRV16 EQU ASCBSRQ1 03911000 ASCBRV15 EQU ASCBSRQ1 03912000 ASCBRV14 EQU ASCBSRQ1 03913000 ASCBRV13 EQU ASCBSRQ1 03914000 ASCBSTA EQU ASCBSRQ1 03915000 ASCBJBNS EQU ASCB+176 03916000 ASCBJBNI EQU ASCB+172 03917000 ASCBMCC EQU ASCB+168 03918000 ASCBRTWA EQU ASCB+164 03919000 ASCBIQEA EQU ASCB+160 03920000 ASCBXMPQ EQU ASCB+156 03921000 ASCBRS01 EQU ASCB+154 03922000 ASCBFMCT EQU ASCB+152 03923000 ASCBOUXB EQU ASCB+148 03924000 ASCBOUCB EQU ASCB+144 03925000 ASCBMECB EQU ASCB+140 03926000 ASCBQECB EQU ASCB+136 03927000 ASCBLSQH EQU ASCBLKGP+4 03928000 ASCBLOCK EQU ASCBLKGP 03929000 ASCBTCBS EQU ASCB+124 03930000 ASCBNVSC EQU ASCB+122 03931000 ASCBVSC EQU ASCB+120 03932000 ASCBSRBS EQU ASCB+118 03933000 ASCBSSRB EQU ASCB+116 03934000 ASCBRV06 EQU ASCBFLG2 03935000 ASCBRV05 EQU ASCBFLG2 03936000 ASCBRV04 EQU ASCBFLG2 03937000 ASCBSNQS EQU ASCBFLG2 03938000 ASCBS2S EQU ASCBFLG2 03939000 ASCBCEXT EQU ASCBFLG2 03940000 ASCBPXMT EQU ASCBFLG2 03941000 ASCBXMPT EQU ASCBFLG2 03942000 ASCBRF07 EQU ASCBDSP1 03943000 ASCBRF06 EQU ASCBDSP1 03944000 ASCBRF05 EQU ASCBDSP1 03945000 ASCBRF04 EQU ASCBDSP1 03946000 ASCBRF03 EQU ASCBDSP1 03947000 ASCBRF02 EQU ASCBDSP1 03948000 ASCBNOQ EQU ASCBDSP1 03949000 ASCBSWCT EQU ASCB+112 03950000 ASCBTMCH EQU ASCB+104 03951000 ASCBNSWP EQU ASCBFLG1 03952000 ASCBTYP1 EQU ASCBFLG1 03953000 ASCBSTND EQU ASCBFLG1 03954000 ASCBS3S EQU ASCBFLG1 03955000 ASCBCMSH EQU ASCBFLG1 03956000 ASCBTOFF EQU ASCBFLG1 03957000 ASCBRF01 EQU ASCBRCTF 03958000 ASCBTMLW EQU ASCBRCTF 03959000 ASCBOUT EQU ASCBRCTF 03960000 ASCBWAIT EQU ASCBRCTF 03961000 ASCBRV08 EQU ASCBRCTF 03962000 ASCBFQU EQU ASCBRCTF 03963000 ASCBFRS EQU ASCBRCTF 03964000 ASCBTMNO EQU ASCBRCTF 03965000 ASCBAFFN EQU ASCBFW1 03966000 ASCBRV44 EQU ASCB+92 03967000 ASCBUBET EQU ASCB+88 03968000 ASCBECB EQU ASCB+84 03969000 ASCBJSTL EQU ASCB+80 03970000 ASCBEWST EQU ASCB+72 03971000 ASCBEJST EQU ASCB+64 03972000 ASCBTSB EQU ASCB+60 03973000 ASCBCSCB EQU ASCB+56 03974000 ASCBRSMA EQU ASCBRSM+1 03975000 ASCBRV54 EQU ASCBRSMF 03976000 ASCBRV53 EQU ASCBRSMF 03977000 ASCBRV52 EQU ASCBRSMF 03978000 ASCBRV51 EQU ASCBRSMF 03979000 ASCBVEQR EQU ASCBRSMF 03980000 ASCBN2LP EQU ASCBRSMF 03981000 ASCB1LPU EQU ASCBRSMF 03982000 ASCB2LPU EQU ASCBRSMF 03983000 ASCBLDA EQU ASCB+48 03984000 ASCBSTOR EQU ASCB+44 03985000 ASCBDP EQU ASCB+43 03986000 ASCBRV07 EQU ASCB+42 03987000 ASCBIOSM EQU ASCB+40 03988000 ASCBSEQN EQU ASCB+38 03989000 ASCBCPUS EQU ASCB+32 03990000 ASCBSPL EQU ASCB+28 03991000 ASCBIOSP EQU ASCB+24 03992000 ASCBSYNC EQU ASCBSUPC+4 03993000 ASCBSVRB EQU ASCBSUPC 03994000 ASCBCMSF EQU ASCB+12 03995000 ASCBBWDP EQU ASCB+8 03996000 ASCBFWDP EQU ASCB+4 03997000 ASCBASCB EQU ASCB 03998000 ASCBEGIN EQU ASCB 03999000 SDUSYSMC EQU SDUMP+36 04000000 SDUSYSMS EQU SDUMP+32 04001000 SDUSUMLP EQU SDUMP+28 04002000 SDUASIDP EQU SDUMP+24 04003000 SDUTASID EQU SDUMASID+2 04004000 SDUSTORA EQU SDUMP+8 04005000 SDUDCBAD EQU SDUMP+4 04006000 @NM00048 EQU SDUSDAT2 04007000 SDUNASQA EQU SDUSDAT2 04008000 SDUNAPSA EQU SDUSDAT2 04009000 SDUNSMDP EQU SDUSDAT2 04010000 SDUSMDMP EQU SDUSDAT2 04011000 SDUSWA EQU SDUSDAT2 04012000 SDUCSA EQU SDUSDAT2 04013000 SDUTRT EQU SDUSDAT1 04014000 SDULPA EQU SDUSDAT1 04015000 SDURGN EQU SDUSDAT1 04016000 SDULSQA EQU SDUSDAT1 04017000 SDUSQA EQU SDUSDAT1 04018000 SDUNUC EQU SDUSDAT1 04019000 SDUPSA EQU SDUSDAT1 04020000 SDUALPSA EQU SDUSDAT1 04021000 @NM00047 EQU SDUFLAG1 04022000 SDUSLIP EQU SDUFLAG1 04023000 SDUSULST EQU SDUFLAG1 04024000 SDUASLST EQU SDUFLAG1 04025000 SDUNEW EQU SDUFLAG1 04026000 SDUABEND EQU SDUFLAG1 04027000 DUMPTYPE EQU SDUFLAG1 04028000 SDUASID EQU SDUFLAG0 04029000 SDUHDR EQU SDUFLAG0 04030000 SDUBUF EQU SDUFLAG0 04031000 SDUDCB EQU SDUFLAG0 04032000 RTCTISVC EQU RTCTSDO4 04033000 RTCTSDOV EQU RTCTSDMG 04034000 @NM00046 EQU RTCTSDO4 04035000 @NM00045 EQU RTCTSDO3 04036000 @NM00044 EQU RTCTSDO2 04037000 RTCTSDPD EQU RTCTSDO2 04038000 RTCTSDPC EQU RTCTSDO2 04039000 RTCTSDPB EQU RTCTSDO2 04040000 RTCTSDPA EQU RTCTSDO2 04041000 RTCTSDP9 EQU RTCTSDO2 04042000 RTCTSDP8 EQU RTCTSDO2 04043000 RTCTSDP7 EQU RTCTSDO1 04044000 RTCTSDP6 EQU RTCTSDO1 04045000 RTCTSDP5 EQU RTCTSDO1 04046000 RTCTSDP4 EQU RTCTSDO1 04047000 RTCTSDP3 EQU RTCTSDO1 04048000 RTCTSDP2 EQU RTCTSDO1 04049000 RTCTSDP1 EQU RTCTSDO1 04050000 RTCTSDP0 EQU RTCTSDO1 04051000 RTCTISYM EQU RTCTSD04 04052000 RTCTSMOV EQU RTCTSMMG 04053000 @NM00043 EQU RTCTSD04 04054000 RTCTSD03 EQU RTCTMSYO+2 04055000 RTCTSD02 EQU RTCTMSYO+1 04056000 RTCTSDS7 EQU RTCTSD01 04057000 RTCTSDS6 EQU RTCTSD01 04058000 RTCTSDS5 EQU RTCTSD01 04059000 RTCTSDS4 EQU RTCTSD01 04060000 RTCTSDS3 EQU RTCTSD01 04061000 RTCTSDS2 EQU RTCTSD01 04062000 RTCTSDS1 EQU RTCTSD01 04063000 RTCTSDS0 EQU RTCTSD01 04064000 RTCTISYU EQU RTCTSUO4 04065000 RTCTSUOV EQU RTCTSUMG 04066000 @NM00042 EQU RTCTSUO4 04067000 RTCTSYDF EQU RTCTSUO3 04068000 RTCTSYDE EQU RTCTSUO3 04069000 RTCTSYDD EQU RTCTSUO3 04070000 RTCTSYDC EQU RTCTSUO3 04071000 RTCTSYDB EQU RTCTSUO3 04072000 RTCTSYDA EQU RTCTSUO3 04073000 RTCTSYD9 EQU RTCTSUO3 04074000 RTCTSYD8 EQU RTCTSUO3 04075000 @NM00041 EQU RTCTSUO2 04076000 RTCTSYDH EQU RTCTSUO2 04077000 RTCTSYDG EQU RTCTSUO2 04078000 RTCTSYD7 EQU RTCTSUO1 04079000 RTCTSYD6 EQU RTCTSUO1 04080000 RTCTSYD5 EQU RTCTSUO1 04081000 RTCTSYD4 EQU RTCTSUO1 04082000 RTCTSYD3 EQU RTCTSUO1 04083000 RTCTSYD2 EQU RTCTSUO1 04084000 RTCTSYD1 EQU RTCTSUO1 04085000 RTCTSYD0 EQU RTCTSUO1 04086000 RTCTISAB EQU RTCTSAO4 04087000 RTCTSAOV EQU RTCTSAMG 04088000 @NM00040 EQU RTCTSAO4 04089000 RTCTSADF EQU RTCTSAO3 04090000 RTCTSADE EQU RTCTSAO3 04091000 RTCTSADD EQU RTCTSAO3 04092000 RTCTSADC EQU RTCTSAO3 04093000 RTCTSADB EQU RTCTSAO3 04094000 RTCTSADA EQU RTCTSAO3 04095000 RTCTSAD9 EQU RTCTSAO3 04096000 RTCTSAD8 EQU RTCTSAO3 04097000 @NM00039 EQU RTCTSAO2 04098000 RTCTSADH EQU RTCTSAO2 04099000 RTCTSADG EQU RTCTSAO2 04100000 RTCTSAD7 EQU RTCTSAO1 04101000 RTCTSAD6 EQU RTCTSAO1 04102000 RTCTSAD5 EQU RTCTSAO1 04103000 RTCTSAD4 EQU RTCTSAO1 04104000 RTCTSAD3 EQU RTCTSAO1 04105000 RTCTSAD2 EQU RTCTSAO1 04106000 RTCTSAD1 EQU RTCTSAO1 04107000 RTCTSAD0 EQU RTCTSAO1 04108000 RTCTZZZ5 EQU RTCT+340 04109000 RTCTZZZ4 EQU RTCT+336 04110000 RTCTMRMQ EQU RTCT+332 04111000 RTCTSDF5 EQU RTCTSDF3+3 04112000 RTCTZZZ3 EQU RTCT+266 04113000 @NM00038 EQU RTCTSDF2 04114000 RTCTSDRW EQU RTCTSDF2 04115000 RTCTSDWF EQU RTCTSDF2 04116000 RTCTSDLA EQU RTCTSDF2 04117000 RTCTSDDI EQU RTCTSDF2 04118000 RTCTSDMR EQU RTCTSDF2 04119000 RTCTSDSC EQU RTCTSDF1 04120000 RTCTSDRS EQU RTCTSDF1 04121000 RTCTSDSD EQU RTCTSDF1 04122000 RTCTSDNO EQU RTCTSDF1 04123000 RTCTZZZ2 EQU RTCT+257 04124000 @NM00037 EQU RTCTASO2 04125000 RTCTASNQ EQU RTCTASO2 04126000 RTCTASNA EQU RTCTASO2 04127000 RTCTASNS EQU RTCTASO2 04128000 RTCTASSU EQU RTCTASO2 04129000 RTCTASSW EQU RTCTASO2 04130000 RTCTASCS EQU RTCTASO2 04131000 RTCTASTR EQU RTCTASO1 04132000 RTCTASLP EQU RTCTASO1 04133000 RTCTASRG EQU RTCTASO1 04134000 RTCTASLS EQU RTCTASO1 04135000 RTCTASSQ EQU RTCTASO1 04136000 RTCTASNU EQU RTCTASO1 04137000 RTCTASPS EQU RTCTASO1 04138000 RTCTASAL EQU RTCTASO1 04139000 RTCTSDO EQU RTCTOPT+12 04140000 RTCTSYO EQU RTCTOPT+8 04141000 RTCTSUO EQU RTCTOPT+4 04142000 RTCTSAO EQU RTCTOPT 04143000 RTCTXXX2 EQU RTCT+234 04144000 RTCTETIM EQU RTCTERID+6 04145000 RTCTEASD EQU RTCTERID+4 04146000 RTCTECPU EQU RTCTERID+2 04147000 RTCTESEQ EQU RTCTERID 04148000 RTCTTDCB EQU RTCT+184 04149000 RTCTSEQ# EQU RTCT+178 04150000 RTCTXXX1 EQU RTCT+177 04151000 @NM00036 EQU RTCTRFLG 04152000 RTCTRSTF EQU RTCTRFLG 04153000 RTCTRPER EQU RTCTRFLG 04154000 RTCTRTER EQU RTCTRFLG 04155000 RTCTTEST EQU RTCT+172 04156000 RTCTMSRB EQU RTCT+168 04157000 RTCTMLCK EQU RTCT+164 04158000 RTCTFMT EQU RTCT+160 04159000 RTCTSDIP EQU RTCTSDPL 04160000 RTCTDEV EQU RTCTSDDS+8 04161000 RTCTDCB EQU RTCTSDDS+4 04162000 @NM00035 EQU RTCTFLG 04163000 RTCTDETP EQU RTCTFLG 04164000 RTCTDSUS EQU RTCTFLG 04165000 RTCTDSST EQU RTCTFLG 04166000 RTCTDSNM EQU RTCTSDDS 04167000 RTCTRCB EQU RTCT+32 04168000 RTCTRECB EQU RTCT+28 04169000 RTCTFASB EQU RTCT+24 04170000 RTCTMECB EQU RTCT+20 04171000 RTCTYYY1 EQU RTCT+16 04172000 RTCTSY04 EQU RTCTSYD+3 04173000 RTCTSY03 EQU RTCTSYD+2 04174000 RTCTSY02 EQU RTCTSYD+1 04175000 RTCTSYM7 EQU RTCTSY01 04176000 RTCTSYM6 EQU RTCTSY01 04177000 RTCTSYM5 EQU RTCTSY01 04178000 RTCTSYM4 EQU RTCTSY01 04179000 RTCTSYM3 EQU RTCTSY01 04180000 RTCTSYM2 EQU RTCTSY01 04181000 RTCTSYM1 EQU RTCTSY01 04182000 RTCTSYM0 EQU RTCTSY01 04183000 RTCTSUP4 EQU RTCTSUP+3 04184000 RTCTSUDF EQU RTCTSUP3 04185000 RTCTSUDE EQU RTCTSUP3 04186000 RTCTSUDD EQU RTCTSUP3 04187000 RTCTSUDC EQU RTCTSUP3 04188000 RTCTSUDB EQU RTCTSUP3 04189000 RTCTSUDA EQU RTCTSUP3 04190000 RTCTSUD9 EQU RTCTSUP3 04191000 RTCTSUD8 EQU RTCTSUP3 04192000 @NM00034 EQU RTCTSUP2 04193000 RTCTSUDH EQU RTCTSUP2 04194000 RTCTSUDG EQU RTCTSUP2 04195000 RTCTSUD7 EQU RTCTSUP1 04196000 RTCTSUD6 EQU RTCTSUP1 04197000 RTCTSUD5 EQU RTCTSUP1 04198000 RTCTSUD4 EQU RTCTSUP1 04199000 RTCTSUD3 EQU RTCTSUP1 04200000 RTCTSUD2 EQU RTCTSUP1 04201000 RTCTSUD1 EQU RTCTSUP1 04202000 RTCTSUD0 EQU RTCTSUP1 04203000 RTCTSAP4 EQU RTCTSAP+3 04204000 RTCTSABF EQU RTCTSAP3 04205000 RTCTSABE EQU RTCTSAP3 04206000 RTCTSABD EQU RTCTSAP3 04207000 RTCTSABC EQU RTCTSAP3 04208000 RTCTSABB EQU RTCTSAP3 04209000 RTCTSABA EQU RTCTSAP3 04210000 RTCTSAB9 EQU RTCTSAP3 04211000 RTCTSAB8 EQU RTCTSAP3 04212000 @NM00033 EQU RTCTSAP2 04213000 RTCTSABH EQU RTCTSAP2 04214000 RTCTSABG EQU RTCTSAP2 04215000 RTCTSAB7 EQU RTCTSAP1 04216000 RTCTSAB6 EQU RTCTSAP1 04217000 RTCTSAB5 EQU RTCTSAP1 04218000 RTCTSAB4 EQU RTCTSAP1 04219000 RTCTSAB3 EQU RTCTSAP1 04220000 RTCTSAB2 EQU RTCTSAP1 04221000 RTCTSAB1 EQU RTCTSAP1 04222000 RTCTSAB0 EQU RTCTSAP1 04223000 RTCTNAME EQU RTCT 04224000 @NM00032 EQU TCBXTNT2+32 04225000 TCBRV181 EQU TCBRV173 04226000 TCBRV180 EQU TCBRV173 04227000 TCBRV179 EQU TCBRV173 04228000 TCBRV178 EQU TCBRV173 04229000 TCBRV177 EQU TCBRV173 04230000 TCBRV176 EQU TCBRV173 04231000 TCBRV175 EQU TCBRV173 04232000 TCBRV174 EQU TCBRV173 04233000 TCBRV172 EQU TCBRV164 04234000 TCBRV171 EQU TCBRV164 04235000 TCBRV170 EQU TCBRV164 04236000 TCBRV169 EQU TCBRV164 04237000 TCBRV168 EQU TCBRV164 04238000 TCBRV167 EQU TCBRV164 04239000 TCBRV166 EQU TCBRV164 04240000 TCBRV165 EQU TCBRV164 04241000 TCBRV163 EQU TCBRV155 04242000 TCBRV162 EQU TCBRV155 04243000 TCBRV161 EQU TCBRV155 04244000 TCBRV160 EQU TCBRV155 04245000 TCBRV159 EQU TCBRV155 04246000 TCBRV158 EQU TCBRV155 04247000 TCBRV157 EQU TCBRV155 04248000 TCBRV156 EQU TCBRV155 04249000 TCBRV154 EQU TCBRV146 04250000 TCBRV153 EQU TCBRV146 04251000 TCBRV152 EQU TCBRV146 04252000 TCBRV151 EQU TCBRV146 04253000 TCBRV150 EQU TCBRV146 04254000 TCBRV149 EQU TCBRV146 04255000 TCBRV148 EQU TCBRV146 04256000 TCBRV147 EQU TCBRV146 04257000 TCBRV145 EQU TCBXTNT2+26 04258000 TCBRV144 EQU TCBXTNT2+24 04259000 TCBRV143 EQU TCBXTNT2+20 04260000 TCBRV142 EQU TCBXTNT2+16 04261000 TCBRSV49 EQU TCBXTNT2+12 04262000 TCBEVENT EQU TCBXTNT2+8 04263000 TCBRCMP EQU TCBXTNT2+5 04264000 TCBRSVAB EQU TCBXTNT2+4 04265000 TCBGTFA EQU TCBGTF+1 04266000 TCBRSV47 EQU TCBTFLG 04267000 TCBRSV46 EQU TCBTFLG 04268000 TCBRSV45 EQU TCBTFLG 04269000 TCBRSV44 EQU TCBTFLG 04270000 TCBRSV43 EQU TCBTFLG 04271000 TCBDSPIT EQU TCBTFLG 04272000 TCBERRTN EQU TCBTFLG 04273000 TCBASYNC EQU TCBTFLG 04274000 @NM00031 EQU TCB+296 04275000 TCBSVCA2 EQU TCB+292 04276000 TCBSWASA EQU TCB+288 04277000 TCBDBTB EQU TCB+284 04278000 TCBRPT EQU TCB+280 04279000 TCBRV141 EQU TCBRV133 04280000 TCBRV140 EQU TCBRV133 04281000 TCBRV139 EQU TCBRV133 04282000 TCBRV138 EQU TCBRV133 04283000 TCBRV137 EQU TCBRV133 04284000 TCBRV136 EQU TCBRV133 04285000 TCBRV135 EQU TCBRV133 04286000 TCBRV134 EQU TCBRV133 04287000 TCBRV132 EQU TCBRV124 04288000 TCBRV131 EQU TCBRV124 04289000 TCBRV130 EQU TCBRV124 04290000 TCBRV129 EQU TCBRV124 04291000 TCBRV128 EQU TCBRV124 04292000 TCBRV127 EQU TCBRV124 04293000 TCBRV126 EQU TCBRV124 04294000 TCBRV125 EQU TCBRV124 04295000 TCBRV123 EQU TCBFBYT2 04296000 TCBRV122 EQU TCBFBYT2 04297000 TCBECBNV EQU TCBFBYT2 04298000 TCBSSSYN EQU TCBFBYT2 04299000 TCBFPRAP EQU TCBFBYT2 04300000 TCBFDW EQU TCBFBYT2 04301000 TCBFMW EQU TCBFBYT2 04302000 TCBCNCB EQU TCBFBYT2 04303000 TCBLLH EQU TCBFBYT1 04304000 TCBRV113 EQU TCBFBYT1 04305000 TCBEOT EQU TCBFBYT1 04306000 TCBRTM2 EQU TCBFBYT1 04307000 TCBPGNLY EQU TCBFBYT1 04308000 TCBNDIOS EQU TCBFBYT1 04309000 TCBRV327 EQU TCBFBYT1 04310000 TCBEOTFM EQU TCBFBYT1 04311000 TCBAFFN EQU TCB+274 04312000 TCBRV326 EQU TCB+272 04313000 TCBUKYSP EQU TCB+268 04314000 TCBMODE EQU TCBESTAE+3 04315000 TCBERTYP EQU TCBESTAE+2 04316000 TCBRV314 EQU TCBESTRM 04317000 TCBRV313 EQU TCBESTRM 04318000 TCBRV312 EQU TCBESTRM 04319000 TCBRV311 EQU TCBESTRM 04320000 TCBRV310 EQU TCBESTRM 04321000 TCBRV309 EQU TCBESTRM 04322000 TCBRV308 EQU TCBESTRM 04323000 TCBETERM EQU TCBESTRM 04324000 TCBSCBKY EQU TCBESTAE 04325000 TCBRTM12 EQU TCB+260 04326000 TCBTCBID EQU TCB+256 04327000 TCBSTAWA EQU TCB+252 04328000 TCBSWA EQU TCB+248 04329000 TCBFOEA EQU TCBFOE+1 04330000 TCBRSV42 EQU TCBFOE 04331000 TCBCCPVI EQU TCBXSCT+2 04332000 TCBRV325 EQU TCBXSCT+1 04333000 TCBRV324 EQU TCBXSCT1 04334000 TCBRV323 EQU TCBXSCT1 04335000 TCBRV322 EQU TCBXSCT1 04336000 TCBRV321 EQU TCBXSCT1 04337000 TCBRV320 EQU TCBXSCT1 04338000 TCBRV319 EQU TCBXSCT1 04339000 TCBS3A EQU TCBXSCT1 04340000 TCBACTIV EQU TCBXSCT1 04341000 TCBRSV41 EQU TCB+239 04342000 TCBRSVAA EQU TCB+237 04343000 TCBABCUR EQU TCB+236 04344000 TCBTMSAV EQU TCB+232 04345000 TCBIOTIM EQU TCB+228 04346000 TCBRTWA EQU TCB+224 04347000 TCBBACK EQU TCB+220 04348000 TCBTIRB EQU TCB+216 04349000 TCBAECB EQU TCB+212 04350000 TCBEXT2A EQU TCBEXT2+1 04351000 TCBRSV39 EQU TCBEXT2 04352000 TCBSTMCT EQU TCB+207 04353000 TCBSYSCT EQU TCB+206 04354000 TCBRSV37 EQU TCB+205 04355000 TCBDARMS EQU TCBDAR 04356000 TCBDARWT EQU TCBDAR 04357000 TCBDARO EQU TCBDAR 04358000 TCBDARMC EQU TCBDARC 04359000 TCBDARD EQU TCBDAR 04360000 TCBDARS EQU TCBDAR 04361000 TCBDARP EQU TCBDAR 04362000 TCBGTOFM EQU TCBFLGS7 04363000 TCBADMP EQU TCBFLGS7 04364000 TCBRSTSK EQU TCBFLGS7 04365000 TCBSVCS EQU TCBFLGS7 04366000 TCBSTACK EQU TCBFLGS7 04367000 TCBRSV34 EQU TCBFLGS7 04368000 TCBRSV33 EQU TCBFLGS7 04369000 TCBGPECB EQU TCBFLGS7 04370000 TCBNTJS EQU TCBFLGS6 04371000 TCBAPG EQU TCBFLGS6 04372000 TCBMIGR EQU TCBFLGS6 04373000 TCBRV303 EQU TCBFLGS6 04374000 TCBSPVLK EQU TCBFLGS6 04375000 TCBCPU EQU TCBFLGS6 04376000 TCBPIE17 EQU TCBFLGS6 04377000 TCBRV EQU TCBFLGS6 04378000 TCBRSV79 EQU TCBNDSP5 04379000 TCBRSV78 EQU TCBNDSP5 04380000 TCBRSV77 EQU TCBNDSP5 04381000 TCBRSV76 EQU TCBNDSP5 04382000 TCBRSV75 EQU TCBNDSP5 04383000 TCBRSV74 EQU TCBNDSP5 04384000 TCBRSV95 EQU TCBNDSP5 04385000 TCBRSV94 EQU TCBNDSP5 04386000 TCBRSV93 EQU TCBNDSP4 04387000 TCBRSV92 EQU TCBNDSP4 04388000 TCBRSV91 EQU TCBNDSP4 04389000 TCBRSV90 EQU TCBNDSP4 04390000 TCBRSV89 EQU TCBNDSP4 04391000 TCBRSV88 EQU TCBNDSP4 04392000 TCBRSV87 EQU TCBNDSP4 04393000 TCBRSV86 EQU TCBNDSP4 04394000 TCBEXT1A EQU TCBEXT1+1 04395000 TCBRSV32 EQU TCBEXT1 04396000 TCBEXCPD EQU TCB+192 04397000 TCBIOBRC EQU TCB+188 04398000 TCBDDWTC EQU TCB+186 04399000 TCBDDEXC EQU TCB+184 04400000 TCBJSCBB EQU TCBJSCB+1 04401000 @NM00030 EQU TCBRECDE 04402000 TCBREC EQU TCBRECDE 04403000 TCBMDIDS EQU TCB+176 04404000 TCBNDINT EQU TCBNDSP3 04405000 TCBRSV27 EQU TCBNDSP3 04406000 TCBRSV26 EQU TCBNDSP3 04407000 TCBRSV25 EQU TCBNDSP3 04408000 TCBRSV24 EQU TCBNDSP3 04409000 TCBSRBND EQU TCBNDSP3 04410000 TCBRV302 EQU TCBNDSP3 04411000 TCBLJSND EQU TCBNDSP3 04412000 TCBABE EQU TCBNDSP2 04413000 TCBDSS EQU TCBNDSP2 04414000 TCBOWAIT EQU TCBNDSP2 04415000 TCBIWAIT EQU TCBNDSP2 04416000 TCBNDTS EQU TCBNDSP2 04417000 TCBNDSVC EQU TCBNDSP2 04418000 TCBSTPP EQU TCBNDSP2 04419000 TCBABD EQU TCBNDSP2 04420000 TCBRSV22 EQU TCBNDSP1 04421000 TCBPIEND EQU TCBNDSP1 04422000 TCBTPSP EQU TCBNDSP1 04423000 TCBDDRND EQU TCBNDSP1 04424000 TCBRSPND EQU TCBNDSP1 04425000 TCBRSTND EQU TCBNDSP1 04426000 TCBDARPN EQU TCBNDSP1 04427000 TCBDARTN EQU TCBNDSP1 04428000 TCBNDSP0 EQU TCBNDSP 04429000 TCBUSER EQU TCB+168 04430000 TCBTCTB EQU TCBTCT+1 04431000 TCBRSV9C EQU TCBTCTGF 04432000 TCBRSV9B EQU TCBTCTGF 04433000 TCBRSV9A EQU TCBTCTGF 04434000 TCBRSV99 EQU TCBTCTGF 04435000 TCBRSV98 EQU TCBTCTGF 04436000 TCBRSV97 EQU TCBTCTGF 04437000 TCBRSV20 EQU TCBTCTGF 04438000 TCBSMFGF EQU TCBTCTGF 04439000 TCBSTABB EQU TCBSTAB+1 04440000 TCBSTCUR EQU TCBNSTAE 04441000 TCBRV301 EQU TCBNSTAE 04442000 TCBSYNCH EQU TCBNSTAE 04443000 TCBHALT EQU TCBNSTAE 04444000 TCBPPSUP EQU TCBNSTAE 04445000 TCB33E EQU TCBNSTAE 04446000 TCBQUIES EQU TCBNSTAE 04447000 TCBSTABE EQU TCBNSTAE 04448000 TCBAQE EQU TCB+156 04449000 TCBPQE EQU TCB+152 04450000 TCBTSDP EQU TCB+151 04451000 TCBTSLP EQU TCB+150 04452000 TCBSTPCT EQU TCB+149 04453000 TCBCPUBN EQU TCBTSFLG 04454000 TCBDYDSP EQU TCBTSFLG 04455000 TCBRSV18 EQU TCBTSFLG 04456000 TCBRSV17 EQU TCBTSFLG 04457000 TCBTIOTG EQU TCBTSFLG 04458000 TCBATT EQU TCBTSFLG 04459000 TCBSTPPR EQU TCBTSFLG 04460000 TCBRV300 EQU TCBTSTSK 04461000 TCBECB EQU TCB+144 04462000 TCBIQE EQU TCB+140 04463000 TCBOTC EQU TCB+132 04464000 TCBJSTCA EQU TCBJSTCB+1 04465000 TCBRSV16 EQU TCBJSTCB 04466000 TCBTQET EQU TCBTME 04467000 TCBTCB EQU TCB+116 04468000 TCBFSAB EQU TCBFSA+1 04469000 TCBQEL EQU TCBFSA 04470000 TCBGRS15 EQU TCBGRS+60 04471000 TCBGRS14 EQU TCBGRS+56 04472000 TCBGRS13 EQU TCBGRS+52 04473000 TCBGRS12 EQU TCBGRS+48 04474000 TCBGRS11 EQU TCBGRS+44 04475000 TCBGRS10 EQU TCBGRS+40 04476000 TCBGRS9 EQU TCBGRS+36 04477000 TCBGRS8 EQU TCBGRS+32 04478000 TCBGRS7 EQU TCBGRS+28 04479000 TCBGRS6 EQU TCBGRS+24 04480000 TCBGRS5 EQU TCBGRS+20 04481000 TCBGRS4 EQU TCBGRS+16 04482000 TCBGRS3 EQU TCBGRS+12 04483000 TCBGRS2 EQU TCBGRS+8 04484000 TCBGRS1 EQU TCBGRS+4 04485000 TCBGRS0 EQU TCBGRS 04486000 TCBJPQB EQU TCBJPQ+1 04487000 TCBRSV15 EQU TCBPURGE 04488000 TCBRSV14 EQU TCBPURGE 04489000 TCBRSV13 EQU TCBPURGE 04490000 TCBRSV12 EQU TCBPURGE 04491000 TCBRSV11 EQU TCBPURGE 04492000 TCBRSV10 EQU TCBPURGE 04493000 TCBRSV09 EQU TCBPURGE 04494000 TCBJPQF EQU TCBPURGE 04495000 TCBJLB EQU TCB+40 04496000 TCBLLS EQU TCB+36 04497000 TCBDSP EQU TCB+35 04498000 TCBLMP EQU TCB+34 04499000 TCBPNDSP EQU TCBFLGS5 04500000 TCBFCD1 EQU TCBFLGS5 04501000 TCBSTP EQU TCBFLGS5 04502000 TCBSYS EQU TCBFLGS5 04503000 TCBANDSP EQU TCBFLGS5 04504000 TCBPAGE EQU TCBFLGS5 04505000 TCBUXNDF EQU TCBABWF 04506000 TCBFC EQU TCBFLGS5 04507000 TCBONDSP EQU TCBFLGS4 04508000 TCBMPCND EQU TCBFLGS4 04509000 TCBMPCVQ EQU TCBFLGS4 04510000 TCBUXNDV EQU TCBFLGS4 04511000 TCBHNDSP EQU TCBFLGS4 04512000 TCBRQENA EQU TCBFLGS4 04513000 TCBSER EQU TCBFLGS4 04514000 TCBNDUMP EQU TCBFLGS4 04515000 TCBDWSTA EQU TCBFLGS3 04516000 TCBRSV08 EQU TCBFLGS3 04517000 TCBRSV07 EQU TCBFLGS3 04518000 TCBRSV06 EQU TCBFLGS3 04519000 TCBABGM EQU TCBFLGS3 04520000 TCBABTRM EQU TCBFLGS3 04521000 TCBADINP EQU TCBFLGS3 04522000 TCBFSM EQU TCBFLGS3 04523000 TCBFTS EQU TCBFLGS2 04524000 TCBFETXR EQU TCBFLGS2 04525000 TCBFDSOP EQU TCBFLGS2 04526000 TCBFJMC EQU TCBFLGS2 04527000 TCBFSMC EQU TCBFLGS2 04528000 TCBFABOP EQU TCBFLGS2 04529000 TCBFSTI EQU TCBFLGS2 04530000 TCBFOINP EQU TCBFLGS2 04531000 TCBFX EQU TCBFLGS1 04532000 TCBFS EQU TCBFLGS1 04533000 TCBFT EQU TCBFLGS1 04534000 TCBPDUMP EQU TCBFLGS1 04535000 TCBNONPR EQU TCBFLGS1 04536000 TCBFERA EQU TCBFLGS1 04537000 TCBFE EQU TCBFLGS1 04538000 TCBFA EQU TCBFLGS1 04539000 TCBZERO EQU TCBPKF 04540000 TCBFLAG EQU TCBPKF 04541000 TCBMSSB EQU TCBMSS+1 04542000 TCBRSV03 EQU TCBMSS 04543000 TCBTRNB EQU TCBTRN+1 04544000 TCBRSV02 EQU TCBABF 04545000 TCBOLTEP EQU TCBABF 04546000 TCBTCP EQU TCBABF 04547000 TCBTCPP EQU TCBABF 04548000 TCBRSV01 EQU TCBABF 04549000 TCBGRPH EQU TCBABF 04550000 TCBNOCHK EQU TCBABF 04551000 TCBMOD91 EQU TCBABF 04552000 TCBCMPC EQU TCBCMP+1 04553000 TCBRV318 EQU TCBCMSG 04554000 TCBRV317 EQU TCBCIND 04555000 TCBRV316 EQU TCBCWTO 04556000 TCBCASID EQU TCBCDBL 04557000 TCBNOCC EQU TCBSTCC 04558000 TCBDMPO EQU TCBCPP 04559000 TCBCSTEP EQU TCBCMPF 04560000 TCBCREQ EQU TCBCMPF 04561000 TCBTIO EQU TCB+12 04562000 TCBDEB EQU TCB+8 04563000 TCBPIEA EQU TCBPIE+1 04564000 TCBPM EQU TCBPMASK 04565000 @NM00029 EQU TCBPMASK 04566000 TCBRBP EQU TCB 04567000 TCBFRS6 EQU TCBFRS+24 04568000 TCBFRS4 EQU TCBFRS+16 04569000 TCBFRS2 EQU TCBFRS+8 04570000 TCBFRS0 EQU TCBFRS 04571000 CVTLEVL EQU CVTRELNO+2 04572000 CVTNUMB EQU CVTRELNO 04573000 CVTMDL EQU CVTFIX+250 04574000 @NM00028 EQU CVTFIX+248 04575000 @NM00027 EQU CVTFIX 04576000 CVTRV482 EQU CVTXTNT2+128 04577000 CVTRV481 EQU CVTXTNT2+124 04578000 CVTRV480 EQU CVTXTNT2+120 04579000 CVTRV479 EQU CVTXTNT2+118 04580000 CVTRV478 EQU CVTXTNT2+117 04581000 CVTRV477 EQU CVTXTNT2+116 04582000 CVTRV476 EQU CVTXTNT2+115 04583000 CVTRV475 EQU CVTXTNT2+114 04584000 CVTRV474 EQU CVTRV466 04585000 CVTRV473 EQU CVTRV466 04586000 CVTRV472 EQU CVTRV466 04587000 CVTRV471 EQU CVTRV466 04588000 CVTRV470 EQU CVTRV466 04589000 CVTRV469 EQU CVTRV466 04590000 CVTRV468 EQU CVTRV466 04591000 CVTRV467 EQU CVTRV466 04592000 CVTRV465 EQU CVTRV457 04593000 CVTRV464 EQU CVTRV457 04594000 CVTRV463 EQU CVTRV457 04595000 CVTRV462 EQU CVTRV457 04596000 CVTRV461 EQU CVTRV457 04597000 CVTRV460 EQU CVTRV457 04598000 CVTRV459 EQU CVTRV457 04599000 CVTRV458 EQU CVTRV457 04600000 CVTRV456 EQU CVTXTNT2+108 04601000 CVTRV455 EQU CVTXTNT2+104 04602000 CVTRV454 EQU CVTXTNT2+100 04603000 CVTRV453 EQU CVTXTNT2+96 04604000 CVTRV452 EQU CVTXTNT2+94 04605000 CVTRV451 EQU CVTXTNT2+92 04606000 CVTRV450 EQU CVTXTNT2+90 04607000 CVTRV449 EQU CVTXTNT2+88 04608000 CVTRV448 EQU CVTXTNT2+87 04609000 CVTRV447 EQU CVTXTNT2+86 04610000 CVTRV446 EQU CVTRV438 04611000 CVTRV445 EQU CVTRV438 04612000 CVTRV444 EQU CVTRV438 04613000 CVTRV443 EQU CVTRV438 04614000 CVTRV442 EQU CVTRV438 04615000 CVTRV441 EQU CVTRV438 04616000 CVTRV440 EQU CVTRV438 04617000 CVTRV439 EQU CVTRV438 04618000 CVTRV437 EQU CVTRV429 04619000 CVTRV436 EQU CVTRV429 04620000 CVTRV435 EQU CVTRV429 04621000 CVTRV434 EQU CVTRV429 04622000 CVTRV433 EQU CVTRV429 04623000 CVTRV432 EQU CVTRV429 04624000 CVTRV431 EQU CVTRV429 04625000 CVTRV430 EQU CVTRV429 04626000 CVTRV428 EQU CVTXTNT2+80 04627000 CVTRV427 EQU CVTXTNT2+76 04628000 CVTRV426 EQU CVTXTNT2+72 04629000 CVTRV425 EQU CVTXTNT2+68 04630000 CVTATACT EQU CVTATCVT 04631000 CVTRV423 EQU CVTXTNT2+62 04632000 CVTRV422 EQU CVTXTNT2+60 04633000 CVTRV421 EQU CVTXTNT2+58 04634000 CVTRV420 EQU CVTXTNT2+56 04635000 CVTRV419 EQU CVTXTNT2+55 04636000 CVTRV418 EQU CVTXTNT2+54 04637000 CVTRV417 EQU CVTRV409 04638000 CVTRV416 EQU CVTRV409 04639000 CVTRV415 EQU CVTRV409 04640000 CVTRV414 EQU CVTRV409 04641000 CVTRV413 EQU CVTRV409 04642000 CVTRV412 EQU CVTRV409 04643000 CVTRV411 EQU CVTRV409 04644000 CVTRV410 EQU CVTRV409 04645000 CVTRV408 EQU CVTRV400 04646000 CVTRV407 EQU CVTRV400 04647000 CVTRV406 EQU CVTRV400 04648000 CVTRV405 EQU CVTRV400 04649000 CVTRV404 EQU CVTRV400 04650000 CVTRV403 EQU CVTRV400 04651000 CVTRV402 EQU CVTRV400 04652000 CVTRV401 EQU CVTRV400 04653000 CVTICB EQU CVTXTNT2+48 04654000 CVTSKTA EQU CVTXTNT2+44 04655000 CVTRSV99 EQU CVTXTNT2+40 04656000 CVTRSV98 EQU CVTXTNT2+36 04657000 CVTRSV97 EQU CVTXTNT2+34 04658000 CVTRSV96 EQU CVTXTNT2+32 04659000 CVTOLTEP EQU CVTXTNT2+28 04660000 CVTQIDA EQU CVTQID+1 04661000 CVTRSV95 EQU CVTQID 04662000 CVTRSV94 EQU CVTXTNT2+20 04663000 CVTRSV93 EQU CVTXTNT2+16 04664000 CVTRSV92 EQU CVTXTNT2+12 04665000 CVTDEBVR EQU CVTXTNT2+8 04666000 CVTRSV91 EQU CVTXTNT2+6 04667000 CVTRSV9H EQU CVTFLGBT 04668000 CVTRSV9G EQU CVTFLGBT 04669000 CVTRSV9F EQU CVTFLGBT 04670000 CVTRSV9E EQU CVTFLGBT 04671000 CVTRSV9D EQU CVTFLGBT 04672000 CVTBAH EQU CVTFLGBT 04673000 CVTVME EQU CVTFLGBT 04674000 CVTNPE EQU CVTFLGBT 04675000 CVTNUCLS EQU CVTXTNT2+4 04676000 CVTDSSVA EQU CVTDSSV+1 04677000 CVTRSV89 EQU CVTDSSV 04678000 CVTRSV88 EQU CVTXTNT1+8 04679000 CVTRSV87 EQU CVTXTNT1+4 04680000 CVTFACHN EQU CVTXTNT1 04681000 CVTRV488 EQU CVTMAP+412 04682000 CVTRV487 EQU CVTMAP+408 04683000 CVTRV486 EQU CVTMAP+404 04684000 CVTRV485 EQU CVTMAP+400 04685000 CVTACTAP EQU CVTMAP+396 04686000 CVTAUTH EQU CVTMAP+392 04687000 CVTRV490 EQU CVTMAP+388 04688000 CVTSU EQU CVTMAP+384 04689000 CVTVOLT1 EQU CVTVOLM1+1 04690000 CVTVOLI1 EQU CVTVOLF1 04691000 CVTSTOA EQU CVTMAP+376 04692000 CVTRSV58 EQU CVTMAP+374 04693000 CVTRSV57 EQU CVTMAP+372 04694000 CVTDDCE EQU CVTMAP+368 04695000 CVTPNWFR EQU CVTMAP+364 04696000 CVTSMF EQU CVTMAP+360 04697000 CVTSULK EQU CVTMAP+358 04698000 CVTSLKO EQU CVTSYSK 04699000 CVTSLKP EQU CVTSYSK 04700000 CVTSLKQ EQU CVTSYSK 04701000 CVTSLKR EQU CVTSYSK 04702000 CVTRSV56 EQU CVTSYSK 04703000 CVTRSV55 EQU CVTSYSK 04704000 CVTRSV54 EQU CVTSYSK 04705000 CVTRSV53 EQU CVTSYSK 04706000 CVTRSV52 EQU CVTA1F1 04707000 CVTRSV51 EQU CVTA1F1 04708000 CVTRSV50 EQU CVTA1F1 04709000 CVTRSV49 EQU CVTA1F1 04710000 CVTRSV48 EQU CVTA1F1 04711000 CVTRSV47 EQU CVTA1F1 04712000 CVTSRSW EQU CVTA1F1 04713000 CVTPFSW EQU CVTA1F1 04714000 CVTPCVT EQU CVTMAP+352 04715000 CVTRSV46 EQU CVTMAP+344 04716000 CVTRSV45 EQU CVTMAP+340 04717000 CVTRSV44 EQU CVTMAP+338 04718000 CVTRSV43 EQU CVTMAP+336 04719000 CVTHJESA EQU CVTHJES+1 04720000 CVTRSV42 EQU CVTHJES 04721000 CVTEXT2A EQU CVTEXT2+1 04722000 CVTRSV41 EQU CVTEXT2 04723000 CVTAPFA EQU CVTAPF+1 04724000 CVTRSV40 EQU CVTAPF 04725000 CVTRV518 EQU CVTINTLA 04726000 CVTRV517 EQU CVTERPV 04727000 CVTEORM EQU CVTMAP+312 04728000 CVTMCHPR EQU CVTMAP+308 04729000 CVTTZ EQU CVTMAP+304 04730000 CVTJEPS EQU CVTMAP+300 04731000 CVTJESCT EQU CVTMAP+296 04732000 CVTMODE EQU CVTMAP+292 04733000 CVTPTRV EQU CVTMAP+288 04734000 CVTREAL EQU CVTMAP+284 04735000 CVTRSV39 EQU CVTMAP+280 04736000 CVTRSV38 EQU CVTMAP+276 04737000 CVTDMSRA EQU CVTDMSR+1 04738000 CVTRV634 EQU CVTDMSRF 04739000 CVTRV633 EQU CVTDMSRF 04740000 CVTRV632 EQU CVTDMSRF 04741000 CVTRV631 EQU CVTDMSRF 04742000 CVTRV630 EQU CVTDMSRF 04743000 CVTRV629 EQU CVTDMSRF 04744000 CVTUDUMP EQU CVTDMSRF 04745000 CVTSDUMP EQU CVTDMSRF 04746000 CVTQMSGA EQU CVTQMSG+1 04747000 CVTRSV36 EQU CVTQMSG 04748000 CVTAMFF EQU CVTMAP+264 04749000 CVTPURGA EQU CVTPURG+1 04750000 CVTRSV35 EQU CVTPURG 04751000 CVTCBSP EQU CVTMAP+256 04752000 CVTATERA EQU CVTATER+1 04753000 CVTSYST EQU CVTATER 04754000 CVTVOLT2 EQU CVTTAT 04755000 CVTVOLI2 EQU CVTVOLF2 04756000 CVTAQAVB EQU CVTAQAVT+1 04757000 CVTRSV34 EQU CVTTCMFG 04758000 CVTRSV33 EQU CVTTCMFG 04759000 CVTRSV32 EQU CVTTCMFG 04760000 CVTRSV31 EQU CVTTCMFG 04761000 CVTRSV30 EQU CVTTCMFG 04762000 CVTRSV29 EQU CVTTCMFG 04763000 CVTLDEV EQU CVTTCMFG 04764000 CVTTCRDY EQU CVTTCMFG 04765000 CVTGTFA EQU CVTGTF+1 04766000 CVTRSV27 EQU CVTGTFST 04767000 CVTRNIO EQU CVTGTFST 04768000 CVTUSR EQU CVTGTFST 04769000 CVTRV318 EQU CVTFORM 04770000 CVTRV317 EQU CVTTMODE 04771000 CVTRV316 EQU CVTSTATE 04772000 CVTRV315 EQU CVTGTFS 04773000 CVT0SCR1 EQU CVTMAP+232 04774000 CVTRV515 EQU CVTMAP+228 04775000 CVTRMS EQU CVTMAP+224 04776000 CVTPATCH EQU CVTMAP+220 04777000 CVTTSCE EQU CVTMAP+216 04778000 CVTLNKSC EQU CVTMAP+214 04779000 CVTQABST EQU CVTMAP+212 04780000 CVTMDLDS EQU CVTMAP+208 04781000 CVTUSER EQU CVTMAP+204 04782000 CVTSMCA EQU CVTMAP+196 04783000 CVTRSV18 EQU CVTMAP+192 04784000 CVTQLPAQ EQU CVTMAP+188 04785000 CVTQCDSR EQU CVTMAP+184 04786000 CVTVS1B EQU CVTOPTB 04787000 CVTVS1A EQU CVTOPTB 04788000 CVTFP EQU CVTOPTB 04789000 CVTAPTHR EQU CVTOPTB 04790000 CVTNLOG EQU CVTOPTB 04791000 CVTTOD EQU CVTOPTB 04792000 CVTCTIMS EQU CVTOPTB 04793000 CVTPROT EQU CVTOPTB 04794000 CVTXPFP EQU CVTOPTA 04795000 CVTASCII EQU CVTOPTA 04796000 CVTRSV13 EQU CVTOPTA 04797000 CVTRSV12 EQU CVTOPTA 04798000 CVTNIP EQU CVTOPTA 04799000 CVTDDR EQU CVTOPTA 04800000 CVTAPR EQU CVTOPTA 04801000 CVTCCH EQU CVTOPTA 04802000 CVTSNCTR EQU CVTMAP+180 04803000 CVTQMWR EQU CVTMAP+176 04804000 CVTQOCR EQU CVTMAP+172 04805000 CVT1EF00 EQU CVTMAP+168 04806000 CVTMZ00 EQU CVTMAP+164 04807000 CVTSV76Q EQU CVTSV76C 04808000 CVTRSV11 EQU CVTMAP+156 04809000 CVT0PT01 EQU CVTMAP+152 04810000 CVTMSER EQU CVTMAP+148 04811000 CVTRV516 EQU CVTIERLC 04812000 CVTILCH EQU CVTMAP+140 04813000 CVT0DS EQU CVTMAP+136 04814000 CVTFBOSV EQU CVTMAP+132 04815000 CVTNUCB EQU CVTMAP+128 04816000 CVTIXAVL EQU CVTMAP+124 04817000 CVTSV76M EQU CVTIOQET 04818000 CVTDCBA EQU CVTMAP+117 04819000 CVTMVS2 EQU CVTDCB 04820000 CVT6DAT EQU CVTDCB 04821000 CVT4MPS EQU CVTDCB 04822000 CVTRSV09 EQU CVTDCB 04823000 CVT4MS1 EQU CVTDCB 04824000 CVT2SPS EQU CVTDCB 04825000 CVT1SSS EQU CVTDCB 04826000 CVTRSV08 EQU CVTDCB 04827000 CVTSTB EQU CVTMAP+112 04828000 CVTQTE00 EQU CVTMAP+104 04829000 CVTCUCB EQU CVTMAP+100 04830000 CVTSJQ EQU CVTMAP+96 04831000 CVTPBLDL EQU CVTMAP+92 04832000 CVTTPC EQU CVTMAP+88 04833000 CVTSVDCB EQU CVTMAP+84 04834000 CVT0FN00 EQU CVTMAP+76 04835000 CVTDARA EQU CVTDAR+1 04836000 CVTRSV07 EQU CVTFLGS1 04837000 CVTRSV06 EQU CVTFLGS1 04838000 CVTRSV05 EQU CVTFLGS1 04839000 CVTRSV04 EQU CVTFLGS1 04840000 CVTRSV03 EQU CVTFLGS1 04841000 CVTRSV02 EQU CVTFLGS1 04842000 CVTRSV01 EQU CVTFLGS1 04843000 CVTDMPLK EQU CVTFLGS1 04844000 CVTXITP EQU CVTMAP+68 04845000 CVTZDTAB EQU CVTMAP+64 04846000 CVTMSLT EQU CVTMAP+60 04847000 CVTDATE EQU CVTMAP+56 04848000 CVTBTERM EQU CVTMAP+52 04849000 CVTSYSAD EQU CVTMAP+48 04850000 CVTXTLER EQU CVTMAP+44 04851000 CVTILK2 EQU CVTMAP+40 04852000 CVTILK1 EQU CVTMAP+36 04853000 CVTPRLTV EQU CVTMAP+32 04854000 CVTPCNVT EQU CVTMAP+28 04855000 CVT0VL00 EQU CVTMAP+24 04856000 CVTXAPG EQU CVTMAP+20 04857000 CVTBUF EQU CVTMAP+16 04858000 CVTJOB EQU CVTMAP+12 04859000 CVTLINK EQU CVTMAP+8 04860000 CVT0EF00 EQU CVTMAP+4 04861000 CVTTCBP EQU CVTMAP 04862000 @NM00026 EQU FRRSFLGS+1 04863000 @NM00025 EQU FRRSFLG1 04864000 FRRSNEST EQU FRRSFLG1 04865000 FRRSRCUR EQU FRRSFLG1 04866000 FRRSENTS EQU FRRS+84 04867000 FRRSRTMW EQU FRRS+16 04868000 @NM00024 EQU PSA+3668 04869000 PSASTAK EQU PSA+3072 04870000 @NM00023 EQU PSA+1048 04871000 PSAUSEND EQU PSA+1048 04872000 PSARV062 EQU PSA+1044 04873000 PSACDAL EQU PSA+1040 04874000 PSAWTCOD EQU PSA+1036 04875000 PSAATCVT EQU PSA+1032 04876000 PSAPCPSW EQU PSA+1024 04877000 PSAPIR2 EQU PSA+1020 04878000 PSARV059 EQU PSA+1018 04879000 PSASVC13 EQU PSA+1016 04880000 PSASFACC EQU PSA+1008 04881000 PSASTOP EQU PSA+992 04882000 PSASTART EQU PSA+976 04883000 PSARSPSW EQU PSA+968 04884000 PSASRPSW EQU PSA+960 04885000 PSARV045 EQU PSA+892 04886000 PSARV044 EQU PSA+888 04887000 PSARV043 EQU PSA+884 04888000 PSARV042 EQU PSA+880 04889000 PSARV041 EQU PSA+876 04890000 PSARV040 EQU PSA+872 04891000 PSARV025 EQU PSA+868 04892000 PSADSSED EQU PSA+868 04893000 PSADSSPR EQU PSA+864 04894000 PSADSSFW EQU PSA+860 04895000 PSADSS14 EQU PSA+856 04896000 PSADSSPP EQU PSA+848 04897000 PSADSSRP EQU PSA+840 04898000 PSADSS05 EQU PSADSSF4 04899000 PSADSS10 EQU PSADSSF4 04900000 PSADSSVE EQU PSADSSF4 04901000 PSADSSDE EQU PSADSSF4 04902000 PSADSSC0 EQU PSADSSF4 04903000 PSADSSIE EQU PSADSSF4 04904000 PSADSS12 EQU PSADSSF4 04905000 PSADSSRC EQU PSADSSF4 04906000 PSARV057 EQU PSADSSF3 04907000 PSARV056 EQU PSADSSF3 04908000 PSARV055 EQU PSADSSF3 04909000 PSADSSMC EQU PSADSSF3 04910000 PSADSSRW EQU PSADSSF3 04911000 PSADSSNM EQU PSADSSF3 04912000 PSADSSES EQU PSADSSF3 04913000 PSADSSGP EQU PSADSSF3 04914000 PSADSSF2 EQU PSADSSFL+1 04915000 PSADSSPI EQU PSADSSF1 04916000 PSADSSOI EQU PSADSSF1 04917000 PSADSSSP EQU PSADSSF1 04918000 PSADSSTP EQU PSADSSF1 04919000 PSADSSDW EQU PSADSSF1 04920000 PSADSSDD EQU PSADSSF1 04921000 PSADSSDM EQU PSADSSF1 04922000 PSADSSMV EQU PSADSSF1 04923000 PSADSSTS EQU PSA+816 04924000 PSADSSWK EQU PSA+812 04925000 PSADSSR3 EQU PSA+808 04926000 PSADSSR2 EQU PSA+804 04927000 PSADSSRS EQU PSA+800 04928000 PSASTOR EQU PSA+796 04929000 PSACPUSA EQU PSA+794 04930000 PSAVSTAP EQU PSA+792 04931000 PSAWKVAP EQU PSA+788 04932000 PSAWKRAP EQU PSA+784 04933000 PSAMCHIC EQU PSA+783 04934000 PSARV061 EQU PSA+782 04935000 PSASYMSK EQU PSA+781 04936000 PSAMCHFL EQU PSA+780 04937000 PSACR0 EQU PSA+776 04938000 PSAPSWSV EQU PSA+768 04939000 PSACLHS EQU PSAHLHI 04940000 PSALKR15 EQU PSALKSA+60 04941000 PSALKR14 EQU PSALKSA+56 04942000 PSALKR13 EQU PSALKSA+52 04943000 PSALKR12 EQU PSALKSA+48 04944000 PSALKR11 EQU PSALKSA+44 04945000 PSALKR10 EQU PSALKSA+40 04946000 PSALKR9 EQU PSALKSA+36 04947000 PSALKR8 EQU PSALKSA+32 04948000 PSALKR7 EQU PSALKSA+28 04949000 PSALKR6 EQU PSALKSA+24 04950000 PSALKR5 EQU PSALKSA+20 04951000 PSALKR4 EQU PSALKSA+16 04952000 PSALKR3 EQU PSALKSA+12 04953000 PSALKR2 EQU PSALKSA+8 04954000 PSALKR1 EQU PSALKSA+4 04955000 PSALKR0 EQU PSALKSA 04956000 PSARV023 EQU PSACLHT+52 04957000 PSALOCAL EQU PSACLHT+48 04958000 PSACMSL EQU PSACLHT+44 04959000 PSAOPTL EQU PSACLHT+40 04960000 PSATPACL EQU PSACLHT+36 04961000 PSATPDNL EQU PSACLHT+32 04962000 PSATPNCL EQU PSACLHT+28 04963000 PSAIOSLL EQU PSACLHT+24 04964000 PSAIOSUL EQU PSACLHT+20 04965000 PSAIOSCL EQU PSACLHT+16 04966000 PSAIOSSL EQU PSACLHT+12 04967000 PSASALCL EQU PSACLHT+8 04968000 PSAASML EQU PSACLHT+4 04969000 PSADISPL EQU PSACLHT 04970000 PSASRSA EQU PSA+636 04971000 PSARV050 EQU PSA+634 04972000 PSADSSGO EQU PSA+633 04973000 PSARECUR EQU PSA+632 04974000 PSAHLHIS EQU PSA+628 04975000 PSAIPCSA EQU PSA+624 04976000 @NM00022 EQU PSA+621 04977000 PSAIPCDM EQU PSA+620 04978000 PSAIPCD EQU PSA+616 04979000 @NM00021 EQU PSA+613 04980000 PSAIPCRM EQU PSA+612 04981000 PSAIPCR EQU PSA+608 04982000 PSAMCHEX EQU PSA+600 04983000 PSAMPSW EQU PSA+592 04984000 PSAEXPS2 EQU PSA+584 04985000 PSAEXPS1 EQU PSA+576 04986000 PSAPIREG EQU PSA+572 04987000 PSARSREG EQU PSA+568 04988000 PSAGPREG EQU PSA+556 04989000 PSARV022 EQU PSASUP4 04990000 PSARV021 EQU PSASUP4 04991000 PSARV020 EQU PSASUP4 04992000 PSARV019 EQU PSASUP4 04993000 PSARV018 EQU PSASUP4 04994000 PSARV017 EQU PSASUP4 04995000 PSARV016 EQU PSASUP4 04996000 PSARV015 EQU PSASUP4 04997000 PSARV014 EQU PSASUP3 04998000 PSARV013 EQU PSASUP3 04999000 PSARV012 EQU PSASUP3 05000000 PSAESTA EQU PSASUP3 05001000 PSASPR EQU PSASUP3 05002000 PSAPSREG EQU PSASUP3 05003000 PSAPI2 EQU PSASUP3 05004000 PSAIOSUP EQU PSASUP3 05005000 PSALCR EQU PSASUP2 05006000 PSARTM EQU PSASUP2 05007000 PSAACR EQU PSASUP2 05008000 PSAIPCE2 EQU PSASUP2 05009000 PSAIPCES EQU PSASUP2 05010000 PSAIPCEC EQU PSASUP2 05011000 PSAGTF EQU PSASUP2 05012000 PSAIPCRI EQU PSASUP2 05013000 PSATYPE6 EQU PSASUP1 05014000 PSATCTL EQU PSASUP1 05015000 PSADISP EQU PSASUP1 05016000 PSALOCK EQU PSASUP1 05017000 PSAPI EQU PSASUP1 05018000 PSAEXT EQU PSASUP1 05019000 PSASVC EQU PSASUP1 05020000 PSAIO EQU PSASUP1 05021000 PSAANEW EQU PSA+544 05022000 PSATNEW EQU PSA+536 05023000 PSALCCAR EQU PSA+532 05024000 PSAPCCAR EQU PSA+524 05025000 PSAPCCAV EQU PSA+520 05026000 PSACPULA EQU PSA+518 05027000 PSACPUPA EQU PSA+516 05028000 PSAPSA EQU PSA+512 05029000 FLCHDEND EQU PSA+512 05030000 FLCCRSAV EQU FLCMCLA+280 05031000 FLCGRSAV EQU FLCMCLA+216 05032000 FLCFPSAV EQU FLCMCLA+184 05033000 FLCFLA EQU FLCMCLA+88 05034000 FLCRGNCD EQU FLCMCLA+84 05035000 FLCFSAA EQU FLCFSA+1 05036000 @NM00020 EQU FLCFSA 05037000 @NM00019 EQU FLCMCLA+72 05038000 FLCMCIC EQU FLCMCLA+64 05039000 @NM00018 EQU FLCMCLA+20 05040000 FLCIOAA EQU FLCIOA+1 05041000 @NM00017 EQU FLCIOA 05042000 @NM00016 EQU FLCMCLA+15 05043000 @NM00015 EQU FLCMCLA+14 05044000 @NM00014 EQU FLCMCLA+12 05045000 FLCLCL EQU FLCMCLA+8 05046000 FLCIOELA EQU FLCIOEL+1 05047000 @NM00013 EQU FLCIOEL 05048000 FLCCHNID EQU FLCMCLA 05049000 @NM00012 EQU PSA+160 05050000 FLCMTRCD EQU PSA+157 05051000 @NM00011 EQU PSA+156 05052000 FLCPERA EQU FLCPER+1 05053000 @NM00010 EQU FLCPER 05054000 @NM00009 EQU PSA+151 05055000 FLCPERCD EQU PSA+150 05056000 FLCMCNUM EQU PSA+149 05057000 @NM00008 EQU PSA+148 05058000 FLCTEAA EQU FLCTEA+1 05059000 @NM00007 EQU FLCTEA 05060000 PSAPIPC EQU PSAPICOD 05061000 PSAPIMC EQU PSAPICOD 05062000 PSAPIPER EQU PSAPICOD 05063000 PSARV049 EQU FLCPICOD 05064000 FLCPILCB EQU FLCPIILC 05065000 @NM00006 EQU FLCPIILC 05066000 @NM00005 EQU PSAEPPSW 05067000 FLCSVCN EQU PSAESPSW+2 05068000 FLCSILCB EQU FLCSVILC 05069000 @NM00004 EQU FLCSVILC 05070000 @NM00003 EQU PSAESPSW 05071000 FLCEICOD EQU PSAEEPSW+2 05072000 PSASPAD EQU PSAEEPSW 05073000 @NM00002 EQU PSA+128 05074000 FLCINPSW EQU PSA+120 05075000 FLCMNPSW EQU PSA+112 05076000 FLCPNPSW EQU PSA+104 05077000 FLCSNPSW EQU PSA+96 05078000 FLCENPSW EQU PSA+88 05079000 FLCTIMER EQU PSA+80 05080000 FLCCVT2 EQU PSA+76 05081000 FLCCAW EQU PSA+72 05082000 FLCCSW EQU PSA+64 05083000 FLCIOPSW EQU PSA+56 05084000 FLCMOPSW EQU PSA+48 05085000 FLCPOPSW EQU PSA+40 05086000 FLCSOPSW EQU PSA+32 05087000 FLCEOPSW EQU PSA+24 05088000 @NM00001 EQU FLCICCW2+4 05089000 FLCICCW1 EQU FLCROPSW 05090000 FLCIPPSW EQU FLCRNPSW 05091000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 05092000 @RC00237 EQU @RC00235 05093000 @RF00295 EQU @RC00235 05094000 @RC00416 EQU @EL00002 05095000 @RF00453 EQU @EL00003 05096000 @ENDDATA EQU * 05097000 END IEAVTSDT,(C'PLS1123',0701,77285) 05098000