TITLE 'AHLTFOR FGBR FOR VS2/R2 *00001000 ' 00002000 AHLTFOR CSECT , 01S0001 00003000 @MAINENT DS 0H 01S0001 00004000 USING *,@15 01S0001 00005000 B @PROLOG 01S0001 00006000 DC AL1(16) 01S0001 00007000 DC C'AHLTFOR 77.252' 01S0001 00008000 DROP @15 00009000 @PROLOG DS 0H 01S0002 00010000 * /* (MDC364) @G50EP9A*/ 00011000 AHLTSRM DS 0H 01S0058 00012000 USING AHLTSRM,R15ENTRY SETUP TEMP BASE 00013000 L R12BASE,TFORBASE GET BASE ADDRESS UPON ENTRY 00014000 USING AHLTFOR,R12BASE TELL ASSEMBLER ABOUT OUR BASE 00015000 DROP R15ENTRY TELL ASSEM TO QUIT USING R15 00016000 * DO; 02S0059 00017000 * 02S0059 00018000 * /***************************************************************/ 00019000 * /* */ 00020000 * /* THIS CODE GATHERS THE PERTINENT DATA ON A HOOK FROM THE */ 00021000 * /* SYSTEMS RESOURCE MANAGER */ 00022000 * /* */ 00023000 * /***************************************************************/ 00024000 * 02S0060 00025000 * ; 02S0060 00026000 * 02S0060 00027000 * /***************************************************************/ 00028000 * /* */ 00029000 * /* HOUSEKEEPING - SET THE SRM MCATRAIL BIT ON, DO A SETFRR TO */ 00030000 * /* SET UP ERROR RECOVERY, SAVE REG 14 FOR THE RETURN ADDRESS */ 00031000 * /* AND TEST FOR THE HOOK BEING ISSUED FROM SUPERVISOR STATE AND*/ 00032000 * /* KEY ZERO */ 00033000 * /* */ 00034000 * /***************************************************************/ 00035000 * 02S0061 00036000 * RFY 02S0061 00037000 * (R8FRRAD, 02S0061 00038000 * R10WORK, 02S0061 00039000 * R14) RSTD; 02S0061 00040000 * MCATRAIL=SRMON; /* ZERO OUT TRAIL AND TURN ON BIT 00041000 * TO INDICATE SRM GATHERING IN 00042000 * CONTROL */ 00043000 MVC MCATRAIL(8,AWSAPTR),@CB02541 02S0062 00044000 * R8FRRAD=ADDR(AHLTFORE); /* GET ADDRESS OF THE RECOVERY 00045000 * ROUTINE */ 00046000 LA R8FRRAD,AHLTFORE 02S0063 00047000 * GEN REFS(AHLTFORE) SETS(R9PARM,R10WORK) NOEXIT SEQFLOW NOFLOWS; 00048000 SETFRR A,FRRAD=(R8FRRAD),PARMAD=(R9PARM), *00049000 WRKREGS=(R9PARM,R10WORK) 00050000 * SVR14NRM=R14; /* SAVE RETURN ADDRESS */ 00051000 ST R14,SVR14NRM(,R9PARM) 02S0065 00052000 * RFY 02S0066 00053000 * (R8FRRAD, 02S0066 00054000 * R14) UNRSTD; 02S0066 00055000 * 02S0066 00056000 * /***************************************************************/ 00057000 * /* */ 00058000 * /* BUILD THE SRM RECORD */ 00059000 * /* */ 00060000 * /***************************************************************/ 00061000 * 02S0067 00062000 * ; 02S0067 00063000 * 02S0067 00064000 * /***************************************************************/ 00065000 * /* */ 00066000 * /* TEST FOR HOOK ACTUALLY FROM SRM AND THEN DETERMINE WHETHER */ 00067000 * /* BRANCH ENTRY OR MONITOR CALL. GET THE REGISTERS FROM THE */ 00068000 * /* LCCA IF BRANCH ENTRY PICK UP REGS 0,1 AND 11 IF MC HOOK PICK*/ 00069000 * /* UP REG 0,1 AND 15 */ 00070000 * /* */ 00071000 * /***************************************************************/ 00072000 * 02S0068 00073000 * RFY 02S0068 00074000 * LCCAPTR RSTD; 02S0068 00075000 * LCCAPTR=PSALCCAV; /* GET ADDR OF LCCA */ 00076000 L LCCAPTR,PSALCCAV 02S0069 00077000 * IF MCRBRENT=ON THEN /* CHECK FOR THE BRANCH ENTRY 00078000 * HOOK */ 00079000 L @08,MCAMCR(,AWSAPTR) 02S0070 00080000 TM MCRBRENT(@08),B'00010000' 02S0070 00081000 BNO @RF00070 02S0070 00082000 * DO; 02S0071 00083000 * SRMREG11=MCRREGB; /* GET REG 11 AS IT WAS AT 02S0072 00084000 * INTERRUPT */ 00085000 MVC SRMREG11(4,AWSAPTR),MCRREGB(@08) 02S0072 00086000 * SRMR0R1=MCRR0R1; /* DITTO REG 0 AND REG 1 AS WITH 00087000 * REG 11 */ 00088000 MVC SRMR0R1(8,AWSAPTR),MCRR0R1(@08) 02S0073 00089000 * END; 02S0074 00090000 * ELSE 02S0075 00091000 * DO; 02S0075 00092000 B @RC00070 02S0075 00093000 @RF00070 DS 0H 02S0076 00094000 * GEN REFS(KEYCMWP) NOEXIT FLOWS(COMUEXIT) SEQFLOW; 02S0076 00095000 TM KEYCMWP,X'F1' TEST FOR SUPER STATE AND KEY ZERO 00096000 BNZ COMUEXIT IF NOT BRANCH OUT OF THIS ROUTINE 00097000 * SRMREG15=REGFLCCA; /* GET REG 15 AS IT WAS AT 02S0077 00098000 * INTERRUPT */ 00099000 MVC SRMREG15(4,AWSAPTR),REGFLCCA(LCCAPTR) 02S0077 00100000 * SRMR0R1=R0R1LCCA; /* DITTO REG 0 AND REG 1 AS WITH 00101000 * REG 15 */ 00102000 MVC SRMR0R1(8,AWSAPTR),R0R1LCCA(LCCAPTR) 02S0078 00103000 * END; 02S0079 00104000 * 02S0080 00105000 * /***************************************************************/ 00106000 * /* */ 00107000 * /* GET THE ASID FROM REG 0 IN LCCA OR FROM MCRWSA IF A BRANCH */ 00108000 * /* ENTRY AND USE IT TO GET THE ASCB ADDRESS */ 00109000 * /* */ 00110000 * /***************************************************************/ 00111000 * 02S0080 00112000 * R10WORK=SRMREG0; /* REG 0 IN RECORD WILL HAVE ASID 00113000 * INDEPENDENT OF WHICH TYPE OF 00114000 * ENTRY */ 00115000 @RC00070 ICM R10WORK,15,SRMREG0(AWSAPTR) 02S0080 00116000 * RFY 02S0081 00117000 * LCCAPTR UNRSTD; 02S0081 00118000 * GEN SETS(R10WORK) NOEXIT SEQFLOW(SRL R10WORK,16);/* SHIFT R0 TO 00119000 * GET ASID IN LOW ORDER */ 00120000 SRL R10WORK,16 00121000 * RFY 02S0083 00122000 * ASCBPTR RSTD; 02S0083 00123000 * IF R10WORK=0 THEN 02S0084 00124000 LTR R10WORK,R10WORK 02S0084 00125000 BNZ @RF00084 02S0084 00126000 * DO; 02S0085 00127000 * ASCBPTR=PSAAOLD; /* ZERO INDICATES CURRENT ASCB */ 00128000 L ASCBPTR,PSAAOLD 02S0086 00129000 * SRMREG0(1:2)=ASCBASID; /* GET ASID FROM CURRENT ASCB 00130000 * @YM07403*/ 00131000 MVC SRMREG0(2,AWSAPTR),ASCBASID(ASCBPTR) 02S0087 00132000 * END; 02S0088 00133000 * ELSE 02S0089 00134000 * DO; 02S0089 00135000 B @RC00084 02S0089 00136000 @RF00084 DS 0H 02S0090 00137000 * MCATRL3=FRSA; /* SET ERROR ROUTINE ADDR */ 00138000 MVI MCATRL3(AWSAPTR),X'08' 02S0090 00139000 * ASCBPTR=ASVTENTY(R10WORK);/* USE ASID TO ACCESS ASVT AND 00140000 * GET ASCB */ 00141000 LR @11,R10WORK 02S0091 00142000 SLA @11,2 02S0091 00143000 L @08,CVTPTR 02S0091 00144000 L @08,ASVTPTR(,@08) 02S0091 00145000 L ASCBPTR,ASVTENTY-4(@11,@08) 02S0091 00146000 * RFY 02S0092 00147000 * R10WORK UNRSTD; 02S0092 00148000 * END; 02S0093 00149000 * 02S0093 00150000 * /***************************************************************/ 00151000 * /* */ 00152000 * /* CHECK TO SEE IF THIS HOOK IS RELATED TO GTF AND END IF IT IS*/ 00153000 * /* */ 00154000 * /***************************************************************/ 00155000 * 02S0094 00156000 * IF ASCBPTR=GTFASCB THEN /* CHECK TO SEE IF INTERRUPT FROM 00157000 * GTF */ 00158000 @RC00084 C ASCBPTR,GTFASCB(,PCTPTR) 02S0094 00159000 BNE @RF00094 02S0094 00160000 * IF OPTTRC=OFF THEN /* CHECK TO SEE IF TRACING GTF */ 00161000 TM OPTTRC(PCTPTR),B'00001000' 02S0095 00162000 BZ @RT00095 02S0095 00163000 * GO TO COMUEXIT; /* NO, SO GO TO END */ 00164000 * SRMASCB=ASCBPTR; /* HOOK IS NOT RELATED TO GTF OR 00165000 * WE ARE GATHERING GTF SO PUT IT 00166000 * IN THE RECORD */ 00167000 * 02S0097 00168000 @RF00094 ST ASCBPTR,SRMASCB(,AWSAPTR) 02S0097 00169000 * /***************************************************************/ 00170000 * /* */ 00171000 * /* PICK UP THE JOBNAME */ 00172000 * /* */ 00173000 * /***************************************************************/ 00174000 * 02S0098 00175000 * MCATRL3=FRSJ; 02S0098 00176000 MVI MCATRL3(AWSAPTR),X'04' 02S0098 00177000 * RFY 02S0099 00178000 * R10WORK RSTD; 02S0099 00179000 * R10WORK=ASCBJBNI; /* GET FIRST JOBNAME POINTER */ 00180000 L R10WORK,ASCBJBNI(,ASCBPTR) 02S0100 00181000 * IF R10WORK=0 THEN /* CHECK FOR NO ADDRESS */ 00182000 SLR @11,@11 02S0101 00183000 CR R10WORK,@11 02S0101 00184000 BNE @RF00101 02S0101 00185000 * DO; 02S0102 00186000 * R10WORK=ASCBJBNS; /* GET SECOND POINTER */ 00187000 L R10WORK,ASCBJBNS(,ASCBPTR) 02S0103 00188000 * IF R10WORK=0 THEN /* CHECK FOR GOOD ADDRESS */ 00189000 CR R10WORK,@11 02S0104 00190000 BE @RT00104 02S0104 00191000 * GO TO SNOJBNM; /* GO TO SET N/A */ 00192000 * END; 02S0106 00193000 * IF JBNMTEST^=0 THEN /* CHECK FOR VALID JOBNAME */ 00194000 @RF00101 L @11,JBNMTEST(,R10WORK) 02S0107 00195000 LTR @11,@11 02S0107 00196000 BZ @RF00107 02S0107 00197000 * SRMJBNM=JOBNAME; /* GOOD, SO GET IT */ 00198000 MVC SRMJBNM(8,AWSAPTR),JOBNAME(R10WORK) 02S0108 00199000 * ELSE 02S0109 00200000 *SNOJBNM: 02S0109 00201000 * SRMJBNM=NOTAPP; /* IT IS NO GOOD SO SET TO N/A */ 00202000 B @RC00107 02S0109 00203000 @RF00107 DS 0H 02S0109 00204000 SNOJBNM MVC SRMJBNM(8,AWSAPTR),@CC02504 02S0109 00205000 * RFY 02S0110 00206000 * (ASCBPTR, 02S0110 00207000 * R10WORK) UNRSTD; 02S0110 00208000 @RC00107 DS 0H 02S0111 00209000 * 02S0111 00210000 * /***************************************************************/ 00211000 * /* */ 00212000 * /* SETUP TO GO TO EXIT ROUTINE TO STACK THE SRM RECORD */ 00213000 * /* */ 00214000 * /***************************************************************/ 00215000 * 02S0111 00216000 *AHLSSTAK: 02S0111 00217000 * MCATRL3=UNRECOV; /* SET TO CATASTROPHIC ERROR IND */ 00218000 AHLSSTAK MVI MCATRL3(AWSAPTR),X'00' 02S0111 00219000 * SRMCPUID=PSACPUSA; /* GET CPUID FROM PSA @YM03489*/ 00220000 LH @08,PSACPUSA 02S0112 00221000 STH @08,SRMCPUID(,AWSAPTR) 02S0112 00222000 * RFY 02S0113 00223000 * R10WORK RSTD; 02S0113 00224000 * R10WORK=LENGTH(SRMREC); /* PUT THE LENGTH OF THE RECORD 00225000 * IN REG 10 */ 00226000 LA R10WORK,26 02S0114 00227000 * GO TO COMEXIT; /* BRANCH TO THE COMMON EXIT 00228000 * ROUTINE */ 00229000 B COMEXIT 02S0115 00230000 * END; 02S0116 00231000 *AHLTFRR: 01S0117 00232000 * GEN SETS(R12BASE) NOEXIT NOFLOWS SEQFLOW; 01S0117 00233000 AHLTFRR DS 0H 01S0117 00234000 USING AHLTFRR,R15ENTRY SETUP TEMP BASE 00235000 L R12BASE,TFORBASE GET BASE ADDRESS UPON ENTRY 00236000 USING AHLTFOR,R12BASE TELL ASSEMBLER ABOUT OUR BASE 00237000 DROP R15ENTRY TELL ASSEM TO QUIT USING R15 00238000 * DO; 02S0118 00239000 * 02S0118 00240000 * /***************************************************************/ 00241000 * /* */ 00242000 * /* THIS SECTION GATHERS THE INFORMATION PERTINENT TO THE RETURN*/ 00243000 * /* FROM A FUNCTIONAL RECOVERY ROUTINE (FRR) TO RTM */ 00244000 * /* */ 00245000 * /***************************************************************/ 00246000 * 02S0119 00247000 * ; 02S0119 00248000 * 02S0119 00249000 * /***************************************************************/ 00250000 * /* */ 00251000 * /* HOUSEKEEPING - SET THE FRR MCATRAIL BIT ON, DO A SETFRR TO */ 00252000 * /* SET UP ERROR RECOVERY AND SAVE REG 14 FOR THE RETURN */ 00253000 * /* ADDRESS. THE TEST FOR SUPERVISOR STATE AND KEY ZERO IS NOT */ 00254000 * /* NECCESSARY BECAUSE THE FRR HOOK IS BRANCH ENTRY AND IS */ 00255000 * /* CHECKED BY THE AHLMCIH MODULE */ 00256000 * /* */ 00257000 * /***************************************************************/ 00258000 * 02S0120 00259000 * RFY 02S0120 00260000 * (R8FRRAD, 02S0120 00261000 * R10WORK, 02S0120 00262000 * R14) RSTD; 02S0120 00263000 * MCATRAIL=FRRON; /* ZERO OUT AUDIT TRAIL AND 02S0121 00264000 * INDICATE FRR GATHERING IN 00265000 * CONTROL */ 00266000 MVC MCATRAIL(8,AWSAPTR),@CB02544 02S0121 00267000 * R8FRRAD=ADDR(AHLTFORE); /* GET ADDRESS OF THE RECOVERY 00268000 * ROUTINE */ 00269000 LA R8FRRAD,AHLTFORE 02S0122 00270000 * GEN REFS(AHLTFORE) SETS(R9PARM,R10WORK) NOEXIT SEQFLOW NOFLOWS; 00271000 SETFRR A,FRRAD=(R8FRRAD),PARMAD=(R9PARM),WRKREGS=(R9PARM,R10WORK) 00272000 * SVR14NRM=R14; /* SAVE RETURN ADDRESS */ 00273000 ST R14,SVR14NRM(,R9PARM) 02S0124 00274000 * RFY 02S0125 00275000 * (R8FRRAD, 02S0125 00276000 * R14) UNRSTD; 02S0125 00277000 * IF MCRBRENT=OFF THEN /* CHECK TO SEE IF VALID FRR 00278000 * BRANCH ENTRY */ 00279000 L @11,MCAMCR(,AWSAPTR) 02S0126 00280000 TM MCRBRENT(@11),B'00010000' 02S0126 00281000 BZ @RT00126 02S0126 00282000 * GO TO COMUEXIT; /* IS NOT SO LEAVE WITHOUT 02S0127 00283000 * GATHERING */ 00284000 * 02S0128 00285000 * /***************************************************************/ 00286000 * /* */ 00287000 * /* BUILD THE FRR RECORD */ 00288000 * /* */ 00289000 * /***************************************************************/ 00290000 * 02S0128 00291000 * ; 02S0128 00292000 * 02S0128 00293000 * /***************************************************************/ 00294000 * /* */ 00295000 * /* GET THE POINTER TO THE SDWA - GET THE ASID TO USE TO GET THE*/ 00296000 * /* ASCB ADDRESS */ 00297000 * /* */ 00298000 * /***************************************************************/ 00299000 * 02S0129 00300000 * FRRCPUID=PSACPUSA; /* GET THE CPUID @YM03489*/ 00301000 LH @08,PSACPUSA 02S0129 00302000 STH @08,FRRCPUID(,AWSAPTR) 02S0129 00303000 * SDWAPTR=MCRREG1; /* GET PTR TO RTCA */ 00304000 L SDWAPTR,MCRREG1(,@11) 02S0130 00305000 * MCATRL3=FRFA; /* SET AUDIT TRAIL IN CASE OF 00306000 * ERROR */ 00307000 MVI MCATRL3(AWSAPTR),X'02' 02S0131 00308000 * R10WORK=SDWAFMID; /* GET ASID OF ERROR ASCB */ 00309000 LH R10WORK,SDWAFMID(,SDWAPTR) 02S0132 00310000 N R10WORK,@CF02696 02S0132 00311000 * RFY 02S0133 00312000 * ASCBPTR RSTD; 02S0133 00313000 * IF R10WORK=0 THEN /* CK TO SEE IF CURRENT ASCB */ 00314000 LTR R10WORK,R10WORK 02S0134 00315000 BNZ @RF00134 02S0134 00316000 * DO; 02S0135 00317000 * MCATRL3=0; /* RESET RECOV FLAG TO INDICATE 00318000 * UNRECOV AREA */ 00319000 MVI MCATRL3(AWSAPTR),X'00' 02S0136 00320000 * ASCBPTR=PSAAOLD; /* YES SO GET CURRENT */ 00321000 L ASCBPTR,PSAAOLD 02S0137 00322000 * END; 02S0138 00323000 * ELSE 02S0139 00324000 * ASCBPTR=ASVTENTY(R10WORK); /* NO, SO GET FROM ASVT USING 00325000 * ASID AS INDEX */ 00326000 B @RC00134 02S0139 00327000 @RF00134 LR @11,R10WORK 02S0139 00328000 SLA @11,2 02S0139 00329000 L @08,CVTPTR 02S0139 00330000 L @08,ASVTPTR(,@08) 02S0139 00331000 L ASCBPTR,ASVTENTY-4(@11,@08) 02S0139 00332000 * RFY 02S0140 00333000 * R10WORK UNRSTD; 02S0140 00334000 @RC00134 DS 0H 02S0141 00335000 * FRRASCB=ASCBPTR; /* PUT ASCB ADDRESS INTO RECORD */ 00336000 * 02S0141 00337000 ST ASCBPTR,FRRASCB(,AWSAPTR) 02S0141 00338000 * /***************************************************************/ 00339000 * /* */ 00340000 * /* PICK UP THE JOBNAME */ 00341000 * /* */ 00342000 * /***************************************************************/ 00343000 * 02S0142 00344000 * MCATRL5=FRFJ; 02S0142 00345000 MVI MCATRL5(AWSAPTR),X'02' 02S0142 00346000 * RFY 02S0143 00347000 * R10WORK RSTD; 02S0143 00348000 * R10WORK=ASCBJBNI; /* GET FIRST JOBNAME POINTER */ 00349000 L R10WORK,ASCBJBNI(,ASCBPTR) 02S0144 00350000 * IF R10WORK=0 THEN /* CHECK FOR NO ADDRESS */ 00351000 SLR @11,@11 02S0145 00352000 CR R10WORK,@11 02S0145 00353000 BNE @RF00145 02S0145 00354000 * DO; 02S0146 00355000 * R10WORK=ASCBJBNS; /* GET SECOND POINTER */ 00356000 L R10WORK,ASCBJBNS(,ASCBPTR) 02S0147 00357000 * IF R10WORK=0 THEN /* CHECK FOR GOOD ADDRESS */ 00358000 CR R10WORK,@11 02S0148 00359000 BE @RT00148 02S0148 00360000 * GO TO FNOJBNM; /* GO TO SET N/A */ 00361000 * END; 02S0150 00362000 * IF JBNMTEST^=0 THEN /* CHECK FOR VALID JOBNAME */ 00363000 @RF00145 L @11,JBNMTEST(,R10WORK) 02S0151 00364000 LTR @11,@11 02S0151 00365000 BZ @RF00151 02S0151 00366000 * FRRJBNM=JOBNAME; /* GOOD, SO GET IT */ 00367000 MVC FRRJBNM(8,AWSAPTR),JOBNAME(R10WORK) 02S0152 00368000 * ELSE 02S0153 00369000 *FNOJBNM: 02S0153 00370000 * FRRJBNM=NOTAPP; /* IT IS NO GOOD SO SET TO N/A */ 00371000 B @RC00151 02S0153 00372000 @RF00151 DS 0H 02S0153 00373000 FNOJBNM MVC FRRJBNM(8,AWSAPTR),@CC02504 02S0153 00374000 * RFY 02S0154 00375000 * (ASCBPTR, 02S0154 00376000 * R10WORK) UNRSTD; 02S0154 00377000 @RC00151 DS 0H 02S0155 00378000 * 02S0155 00379000 * /***************************************************************/ 00380000 * /* */ 00381000 * /* PICK UP THE REST OF THE FIELDS FROM THE RTCA */ 00382000 * /* */ 00383000 * /***************************************************************/ 00384000 * 02S0155 00385000 *AHLFNAME: 02S0155 00386000 * MCATRL3=FRFRT; 02S0155 00387000 AHLFNAME MVI MCATRL3(AWSAPTR),X'01' 02S0155 00388000 * IF REXNTEST=0 THEN /* CHECK WHETHER FRR NAME IS 00389000 * VALID */ 00390000 L @08,REXNTEST(,SDWAPTR) 02S0156 00391000 LTR @08,@08 02S0156 00392000 BNZ @RF00156 02S0156 00393000 * FRRNAME=UNAV; /* NO, SO SET TO UNAVAIL */ 00394000 MVC FRRNAME(8,AWSAPTR),@CC02506 02S0157 00395000 * ELSE 02S0158 00396000 * FRRNAME=SDWAREXN; /* YES, SO GET FROM RTCA */ 00397000 B @RC00156 02S0158 00398000 @RF00156 MVC FRRNAME(8,AWSAPTR),SDWAREXN(SDWAPTR) 02S0158 00399000 * FRRPSW=SDWAEC1; 02S0159 00400000 @RC00156 MVC FRRPSW(8,AWSAPTR),SDWAEC1(SDWAPTR) 02S0159 00401000 * FRRCC=SDWAABCC; /* GET COMPLETION CODE */ 00402000 MVC FRRCC(4,AWSAPTR),SDWAABCC(SDWAPTR) 02S0160 00403000 * FRREFLGS=SDWAFLGS; /* GET ERROR TYPE FLAGS */ 00404000 MVC FRREFLGS(4,AWSAPTR),SDWAFLGS(SDWAPTR) 02S0161 00405000 * FRRFMCHD=SDWAMCHD; /* GET MACHINE CHECK FLAGS */ 00406000 MVC FRRFMCHD(1,AWSAPTR),SDWAMCHD(SDWAPTR) 02S0162 00407000 * FRRFACF2=SDWAACF2; /* GET ACTION REQUESTED FLAGS */ 00408000 MVC FRRFACF2(1,AWSAPTR),SDWAACF2(SDWAPTR) 02S0163 00409000 * FRRFRCDE=SDWARCDE; /* GET RETURN CODE FROM RTCA */ 00410000 MVC FRRFRCDE(1,AWSAPTR),SDWARCDE(SDWAPTR) 02S0164 00411000 * IF SDWARCDE=RETRY THEN /* CK FOR RETRY SO CAN GET RETRY 00412000 * ADDR */ 00413000 CLI SDWARCDE(SDWAPTR),4 02S0165 00414000 BNE @RF00165 02S0165 00415000 * FRRRTRY=SDWARTYA; /* GET RETRY ADDR */ 00416000 MVC FRRRTRY(4,AWSAPTR),SDWARTYA(SDWAPTR) 02S0166 00417000 * ELSE 02S0167 00418000 * FRRRTRY=NOTAPP; /* NOT RETRY SO SET ADDR TO N/A */ 00419000 B @RC00165 02S0167 00420000 @RF00165 MVC FRRRTRY(4,AWSAPTR),@CC02504 02S0167 00421000 * 02S0168 00422000 * /***************************************************************/ 00423000 * /* */ 00424000 * /* SETUP TO BRANCH TO THE EXIT ROUTINE AND STACK THE FRR RECORD*/ 00425000 * /* */ 00426000 * /***************************************************************/ 00427000 * 02S0168 00428000 *AHLFSTAK: 02S0168 00429000 * MCATRL3=UNRECOV; /* SET ERROR ROUTINE TO INDICATE 00430000 * CAT ERR I* F OCCURS */ 00431000 @RC00165 DS 0H 02S0168 00432000 AHLFSTAK MVI MCATRL3(AWSAPTR),X'00' 02S0168 00433000 * RFY 02S0169 00434000 * R10WORK RSTD; 02S0169 00435000 * R10WORK=LENGTH(FRRREC); /* PUT THE LENGTH OF THE RECORD 00436000 * IN REG 10 */ 00437000 LA R10WORK,46 02S0170 00438000 * GO TO COMEXIT; /* BRANCH TO THE COMMON EXIT 00439000 * ROUTINE */ 00440000 B COMEXIT 02S0171 00441000 * END; 02S0172 00442000 *AHLTSTAE: 01S0173 00443000 * GEN SETS(R12BASE) NOEXIT NOFLOWS SEQFLOW; 01S0173 00444000 AHLTSTAE DS 0H 01S0173 00445000 USING AHLTSTAE,R15ENTRY SETUP TEMP BASE 00446000 L R12BASE,TFORBASE GET BASE ADDRESS UPON ENTRY 00447000 USING AHLTFOR,R12BASE TELL ASSEMBLER ABOUT OUR BASE 00448000 DROP R15ENTRY TELL ASSEM TO QUIT USING R15 00449000 * DO; 02S0174 00450000 * 02S0174 00451000 * /***************************************************************/ 00452000 * /* */ 00453000 * /* THIS SECTION GATHERS THE INFORMATION PERTINENT TO THE RETURN*/ 00454000 * /* FROM AN ESTAE OR A STAE ERROR EXIT TO RTM */ 00455000 * /* */ 00456000 * /***************************************************************/ 00457000 * 02S0175 00458000 * ; 02S0175 00459000 * 02S0175 00460000 * /***************************************************************/ 00461000 * /* */ 00462000 * /* HOUSEKEEPING - SET STA MCATRAIL BIT ON, DO A SETFRR TO SET */ 00463000 * /* UP ERROR RECOVERY, SAVE REG 14 FOR THE RETURN ADDRESS, AND */ 00464000 * /* TEST FOR THE HOOK BEING ISSUED FROM SUPERVISOR STATE, KEY */ 00465000 * /* ZERO */ 00466000 * /* */ 00467000 * /***************************************************************/ 00468000 * 02S0176 00469000 * RFY 02S0176 00470000 * (R8FRRAD, 02S0176 00471000 * R10WORK, 02S0176 00472000 * R14) RSTD; 02S0176 00473000 * MCATRAIL=STAON; /* ZERO OUT TRAIL INDICATE STAE 00474000 * GATHERING IN CONTROL */ 00475000 MVC MCATRAIL(8,AWSAPTR),@CB02550 02S0177 00476000 * R8FRRAD=ADDR(AHLTFORE); /* GET ADDRESS OF THE RECOVERY 00477000 * ROUTINE */ 00478000 LA R8FRRAD,AHLTFORE 02S0178 00479000 * GEN REFS(AHLTFORE) SETS(R9PARM,R10WORK) NOEXIT SEQFLOW NOFLOWS; 00480000 SETFRR A,FRRAD=(R8FRRAD),PARMAD=(R9PARM),WRKREGS=(R9PARM,R10WORK) 00481000 * SVR14NRM=R14; /* SAVE RETURN ADDRESS */ 00482000 ST R14,SVR14NRM(,R9PARM) 02S0180 00483000 * RFY 02S0181 00484000 * (R8FRRAD, 02S0181 00485000 * R10WORK, 02S0181 00486000 * R14) UNRSTD; 02S0181 00487000 * GEN REFS(KEYCMWP) NOEXIT SEQFLOW FLOWS(COMUEXIT); 02S0182 00488000 TM KEYCMWP,X'F1' 00489000 BNZ COMUEXIT 00490000 * RFY 02S0183 00491000 * LCCAPTR RSTD; 02S0183 00492000 * 02S0184 00493000 * /***************************************************************/ 00494000 * /* */ 00495000 * /* BUILD THE E/STAE RECORD GET THE ASCB ADDRESS AND CHECK TO */ 00496000 * /* SEE IF IT IS GTF RELATED. IF SO ARE WE TRACING GTF RELATED */ 00497000 * /* HOOKS? */ 00498000 * /* */ 00499000 * /***************************************************************/ 00500000 * 02S0184 00501000 * LCCAPTR=PSALCCAV; 02S0184 00502000 L LCCAPTR,PSALCCAV 02S0184 00503000 * RFY 02S0185 00504000 * ASCBPTR RSTD; 02S0185 00505000 * ASCBPTR=PSAAOLD; 02S0186 00506000 L ASCBPTR,PSAAOLD 02S0186 00507000 * STAASCB=ASCBPTR; /* PUT ASCB ADDR IN RECORD */ 00508000 ST ASCBPTR,STAASCB(,AWSAPTR) 02S0187 00509000 * IF STAASCB=GTFASCB THEN /* CHECK TO SEE IF INTERRUPT FROM 00510000 * GTF */ 00511000 L @10,STAASCB(,AWSAPTR) 02S0188 00512000 CL @10,GTFASCB(,PCTPTR) 02S0188 00513000 BNE @RF00188 02S0188 00514000 * IF OPTTRC=OFF THEN /* CHECK TO SEE IF TRACING GTF */ 00515000 TM OPTTRC(PCTPTR),B'00001000' 02S0189 00516000 BZ @RT00189 02S0189 00517000 * GO TO COMUEXIT; /* NO SO END */ 00518000 * 02S0190 00519000 * /***************************************************************/ 00520000 * /* */ 00521000 * /* PICK UP THE JOBNAME */ 00522000 * /* */ 00523000 * /***************************************************************/ 00524000 * 02S0191 00525000 * MCATRL5=FREJ; 02S0191 00526000 @RF00188 MVI MCATRL5(AWSAPTR),X'01' 02S0191 00527000 * RFY 02S0192 00528000 * R10WORK RSTD; 02S0192 00529000 * R10WORK=ASCBJBNI; /* GET FIRST JOBNAME POINTER */ 00530000 L R10WORK,ASCBJBNI(,ASCBPTR) 02S0193 00531000 * IF R10WORK=0 THEN /* CHECK FOR NO ADDRESS */ 00532000 SLR @08,@08 02S0194 00533000 CR R10WORK,@08 02S0194 00534000 BNE @RF00194 02S0194 00535000 * DO; 02S0195 00536000 * R10WORK=ASCBJBNS; /* GET SECOND POINTER */ 00537000 L R10WORK,ASCBJBNS(,ASCBPTR) 02S0196 00538000 * IF R10WORK=0 THEN /* CHECK FOR GOOD ADDRESS */ 00539000 CR R10WORK,@08 02S0197 00540000 BE @RT00197 02S0197 00541000 * GO TO ENOJBNM; /* GO TO SET N/A */ 00542000 * END; 02S0199 00543000 * IF JBNMTEST^=0 THEN /* CHECK FOR VALID JOBNAME */ 00544000 @RF00194 L @08,JBNMTEST(,R10WORK) 02S0200 00545000 LTR @08,@08 02S0200 00546000 BZ @RF00200 02S0200 00547000 * STAJBNM=JOBNAME; /* GOOD, SO GET IT */ 00548000 MVC STAJBNM(8,AWSAPTR),JOBNAME(R10WORK) 02S0201 00549000 * ELSE 02S0202 00550000 *ENOJBNM: 02S0202 00551000 * STAJBNM=NOTAPP; /* IT IS NO GOOD SO SET TO N/A */ 00552000 B @RC00200 02S0202 00553000 @RF00200 DS 0H 02S0202 00554000 ENOJBNM MVC STAJBNM(8,AWSAPTR),@CC02504 02S0202 00555000 * RFY 02S0203 00556000 * (ASCBPTR, 02S0203 00557000 * R10WORK) UNRSTD; 02S0203 00558000 @RC00200 DS 0H 02S0204 00559000 * MCATRL5=0; /* RESET TRAIL TO CATASTROPHIC 00560000 * ERROR INDICATOR */ 00561000 MVI MCATRL5(AWSAPTR),X'00' 02S0204 00562000 * 02S0205 00563000 * /***************************************************************/ 00564000 * /* */ 00565000 * /* GATHER THE CPUID, REG 15 AND REG 1 */ 00566000 * /* */ 00567000 * /***************************************************************/ 00568000 * 02S0205 00569000 *AHLECPID: 02S0205 00570000 * STACPUID=PSACPUSA; /* @YM03489*/ 00571000 AHLECPID LH @10,PSACPUSA 02S0205 00572000 STH @10,STACPUID(,AWSAPTR) 02S0205 00573000 * STAR15=REGFLCCA; /* GET REGISTERS FROM LCCA */ 00574000 MVC STAR15(4,AWSAPTR),REGFLCCA(LCCAPTR) 02S0206 00575000 * SDWAPTR=REG1LCCA; /* GET POINTER TO RTCA FROM REG 00576000 * SAVE AREA */ 00577000 L SDWAPTR,REG1LCCA(,LCCAPTR) 02S0207 00578000 * STARTCA=SDWAPTR; /* PUT SDWA ADDRESS INTO RECORD */ 00579000 * 02S0208 00580000 STCM SDWAPTR,15,STARTCA(AWSAPTR) 02S0208 00581000 * /***************************************************************/ 00582000 * /* */ 00583000 * /* CHECK THE SDWA POINTER TO SEE IF IT IS FOR STAE, ESTAE OR NO*/ 00584000 * /* RTCA */ 00585000 * /* */ 00586000 * /***************************************************************/ 00587000 * 02S0209 00588000 * IF SDWATEST>0 THEN /* CHECK FOR AN ESTAE EXIT 02S0209 00589000 * ROUTINE */ 00590000 SLR @10,@10 02S0209 00591000 CR SDWATEST,@10 02S0209 00592000 BNH @RF00209 02S0209 00593000 * DO; 03S0210 00594000 * 03S0210 00595000 * /***********************************************************/ 00596000 * /* */ 00597000 * /* GATHER THE REST OF THE RECORD FOR A NORMAL ESTAE */ 00598000 * /* */ 00599000 * /***********************************************************/ 00600000 * 03S0211 00601000 * MCATRL5=FRERT; /* SET AUDIT TRAIL */ 00602000 MVI MCATRL5(AWSAPTR),X'40' 03S0211 00603000 * IF REXNTEST=0 THEN /* CHECK FOR VALID FRRNAME */ 00604000 C @10,REXNTEST(,SDWAPTR) 03S0212 00605000 BNE @RF00212 03S0212 00606000 * STANAME=UNAV; /* NO, SO INDICATE U/A */ 00607000 MVC STANAME(8,AWSAPTR),@CC02506 03S0213 00608000 * ELSE /* IS GOOD SO PICK IT UP */ 00609000 * STANAME=SDWAREXN; 03S0214 00610000 B @RC00212 03S0214 00611000 @RF00212 MVC STANAME(8,AWSAPTR),SDWAREXN(SDWAPTR) 03S0214 00612000 * STAEFLGS=SDWAFLGS; /* ERROR TYPE FLAGS */ 00613000 @RC00212 MVC STAEFLGS(4,AWSAPTR),SDWAFLGS(SDWAPTR) 03S0215 00614000 * STAFMCHD=SDWAMCHD; /* MACHINE CHECK FLAGS */ 00615000 MVC STAFMCHD(1,AWSAPTR),SDWAMCHD(SDWAPTR) 03S0216 00616000 * STAFACF2=SDWAACF2; /* ACTION REQUESTED FLAGS */ 00617000 MVC STAFACF2(1,AWSAPTR),SDWAACF2(SDWAPTR) 03S0217 00618000 * STAFRCDE=SDWARCDE; /* RETURN CODE */ 00619000 MVC STAFRCDE(1,AWSAPTR),SDWARCDE(SDWAPTR) 03S0218 00620000 * IF STAFRCDE=RETRY THEN /* CHECK FOR RETRY AS RETURN CODE*/ 00621000 CLI STAFRCDE(AWSAPTR),4 03S0219 00622000 BNE @RF00219 03S0219 00623000 * STARTRY=SDWARTYA; /* IS GOOD SO GET ADDRESS OF 00624000 * RETRY ROUTINE */ 00625000 MVC STARTRY(4,AWSAPTR),SDWARTYA(SDWAPTR) 03S0220 00626000 * ELSE /* NO GOOD SO PUT IN N/A */ 00627000 * STARTRY=NOTAPP; 03S0221 00628000 B @RC00219 03S0221 00629000 @RF00219 MVC STARTRY(4,AWSAPTR),@CC02504 03S0221 00630000 * STAPSW=SDWAEC1; 03S0222 00631000 @RC00219 MVC STAPSW(8,AWSAPTR),SDWAEC1(SDWAPTR) 03S0222 00632000 * STACC=SDWAABCC; /* GET COMPLETION CODE */ 00633000 MVC STACC(4,AWSAPTR),SDWAABCC(SDWAPTR) 03S0223 00634000 *AHLESTAK: 03S0224 00635000 * MCATRL5=UNRECOV; /* INDICATE CATAS ERROR AREA */ 00636000 AHLESTAK MVI MCATRL5(AWSAPTR),X'00' 03S0224 00637000 * END; 03S0225 00638000 * ELSE /* IT IS NOT ESTAE */ 00639000 * IF SDWATEST<0 THEN /* CHECK FOR STAE */ 00640000 B @RC00209 02S0226 00641000 @RF00209 LTR SDWATEST,SDWATEST 02S0226 00642000 BNM @RF00226 02S0226 00643000 * DO; 03S0227 00644000 * 03S0227 00645000 * /*********************************************************/ 00646000 * /* */ 00647000 * /* GATHER THE REST OF THE RECORD FOR A NORMAL STAE */ 00648000 * /* */ 00649000 * /*********************************************************/ 00650000 * 03S0228 00651000 * MCATRL5=FREPC; /* INDICATE AUDIT TRAIL */ 00652000 MVI MCATRL5(AWSAPTR),X'80' 03S0228 00653000 * GEN(LPR SDWAPTR,SDWAPTR);/* COMPLEMENT RTCA ADDRESS TO 00654000 * MAKE POSITIVE */ 00655000 LPR SDWAPTR,SDWAPTR 00656000 * STAPSW=SDWAEC1; 03S0230 00657000 MVC STAPSW(8,AWSAPTR),SDWAEC1(SDWAPTR) 03S0230 00658000 * STACC=SDWAABCC; /* PICK UP COMPLETION CODE */ 00659000 MVC STACC(4,AWSAPTR),SDWAABCC(SDWAPTR) 03S0231 00660000 *AHLNSTAK: 03S0232 00661000 * MCATRL5=UNRECOV; /* INDICATE CATAS ERROR AREA */ 00662000 AHLNSTAK MVI MCATRL5(AWSAPTR),X'00' 03S0232 00663000 * IF STAFRCDE^=RETRY THEN /* CHECK FOR RETURN CODE =4 */ 00664000 CLI STAFRCDE(AWSAPTR),4 03S0233 00665000 BE @RF00233 03S0233 00666000 * STARTRY=NOTAPP; /* NOT FOUR SO SET TO N/A */ 00667000 MVC STARTRY(4,AWSAPTR),@CC02504 03S0234 00668000 * ELSE 03S0235 00669000 * STARTRY=REG0LCCA; /* IS FOUR SO GET RETRY ADDRESS 00670000 * FROM LCCA */ 00671000 B @RC00233 03S0235 00672000 @RF00233 MVC STARTRY(4,AWSAPTR),REG0LCCA(LCCAPTR) 03S0235 00673000 * STANAME=NOTAPP; 03S0236 00674000 @RC00233 MVC STANAME(8,AWSAPTR),@CC02504 03S0236 00675000 * STAEFLGS=NOTAPP; 03S0237 00676000 MVC STAEFLGS(4,AWSAPTR),@CC02504 03S0237 00677000 * STAMFLGS(1:3)=NOTAPP; 03S0238 00678000 MVC STAMFLGS(3,AWSAPTR),@CC02504 03S0238 00679000 * END; 03S0239 00680000 * ELSE /* NEITHER STAE NOR ESTAE SO INFO 00681000 * IS IN REGS AND NO RTCA EXISTS */ 00682000 * DO; 02S0240 00683000 * 02S0240 00684000 B @RC00226 02S0240 00685000 @RF00226 DS 0H 02S0241 00686000 * /*********************************************************/ 00687000 * /* */ 00688000 * /* SET ALL FIELDS EXCEPT REGS TO U/A DUE TO THE */ 00689000 * /* UNAVAILIBILITY OF AN SDWA (RTCA) AND ALSO PICK UP */ 00690000 * /* RETRY ADDRESS FROM LCCA */ 00691000 * /* */ 00692000 * /*********************************************************/ 00693000 * 02S0241 00694000 * STARTRY=REG0LCCA; 02S0241 00695000 MVC STARTRY(4,AWSAPTR),REG0LCCA(LCCAPTR) 02S0241 00696000 * STANAME=UNAV; 02S0242 00697000 MVC STANAME(8,AWSAPTR),@CC02506 02S0242 00698000 * STAPSW=UNAV; 02S0243 00699000 MVC STAPSW(8,AWSAPTR),@CC02506 02S0243 00700000 * STACC=UNAV; 02S0244 00701000 MVC STACC(4,AWSAPTR),@CC02506 02S0244 00702000 * STAEFLGS=UNAV; 02S0245 00703000 MVC STAEFLGS(4,AWSAPTR),@CC02506 02S0245 00704000 * STAMFLGS(1:3)=UNAV; 02S0246 00705000 MVC STAMFLGS(3,AWSAPTR),@CC02506 02S0246 00706000 * RFY 02S0247 00707000 * LCCAPTR UNRSTD; 02S0247 00708000 * END; 02S0248 00709000 * 02S0249 00710000 * /***************************************************************/ 00711000 * /* */ 00712000 * /* SETUP TO BRANCH TO EXIT ROUTINE AND STACK THE E/STAE RECORD */ 00713000 * /* */ 00714000 * /***************************************************************/ 00715000 * 02S0249 00716000 * RFY 02S0249 00717000 * R10WORK RSTD; 02S0249 00718000 @RC00226 DS 0H 02S0249 00719000 @RC00209 DS 0H 02S0250 00720000 * R10WORK=LENGTH(STAREC); /* PUT LENGTH OF THE RECORD IN 00721000 * REG 10 */ 00722000 LA R10WORK,50 02S0250 00723000 * GO TO COMEXIT; /* BRANCH TO THE COMMON EXIT 00724000 * ROUTINE */ 00725000 B COMEXIT 02S0251 00726000 * END; 02S0252 00727000 *AHLTRNIO: 01S0253 00728000 * GEN SETS(R12BASE) NOEXIT NOFLOWS SEQFLOW; 01S0253 00729000 AHLTRNIO DS 0H 01S0253 00730000 USING AHLTRNIO,R15ENTRY SETUP TEMP BASE 00731000 L R12BASE,TFORBASE GET BASE ADDRESS UPON ENTRY 00732000 USING AHLTFOR,R12BASE TELL ASSEMBLER ABOUT OUR BASE 00733000 DROP R15ENTRY TELL ASSEM TO QUIT USING R15 00734000 * DO; 02S0254 00735000 * 02S0254 00736000 * /***************************************************************/ 00737000 * /* */ 00738000 * /* THIS SECTION GATHERS THE INFORMATION PERTINENT TO A REQUEST */ 00739000 * /* TO THE VIRTUAL TELECOMMUNICATIONS ACCESS METHOD (VTAM) FOR */ 00740000 * /* INPUT OR OUTPUT TO A REMOTE DEVICE */ 00741000 * /* */ 00742000 * /***************************************************************/ 00743000 * 02S0255 00744000 * ; 02S0255 00745000 * 02S0255 00746000 * /***************************************************************/ 00747000 * /* */ 00748000 * /* HOUSEKEEPING - SET THE RNIO MCATRAIL BIT ON, DO A SETFRR TO */ 00749000 * /* SET UP ERROR RECOVERY AND SAVE REG 14 FOR THE RETURN */ 00750000 * /* ADDRESS. THE TEST FOR SUPERVISOR STATE IS DONE BUT KEY ZERO */ 00751000 * /* IS NOT CHECKED SINCE THE VTAM MODULE DOES NOT REQUIRE KEY */ 00752000 * /* ZERO */ 00753000 * /* */ 00754000 * /***************************************************************/ 00755000 * 02S0256 00756000 * RFY 02S0256 00757000 * (R8FRRAD, 02S0256 00758000 * R10WORK, 02S0256 00759000 * R14) RSTD; 02S0256 00760000 * MCATRAIL=RNIOON; /* ZERO OUT TRAIL AND INDICATE 00761000 * RNIO IN CONTROL */ 00762000 MVC MCATRAIL(8,AWSAPTR),@CB02547 02S0257 00763000 * R8FRRAD=ADDR(AHLTFORE); /* GET ADDRESS OF THE RECOVERY 00764000 * ROUTINE */ 00765000 LA R8FRRAD,AHLTFORE 02S0258 00766000 * GEN REFS(AHLTFORE) SETS(R9PARM,R10WORK) NOEXIT SEQFLOW NOFLOWS; 00767000 SETFRR A,FRRAD=(R8FRRAD),PARMAD=(R9PARM),WRKREGS=(R9PARM,R10WORK) 00768000 * SVR14NRM=R14; /* SAVE RETURN ADDRESS */ 00769000 ST R14,SVR14NRM(,R9PARM) 02S0260 00770000 * RFY 02S0261 00771000 * (R8FRRAD, 02S0261 00772000 * R14) UNRSTD; 02S0261 00773000 * GEN; 02S0262 00774000 TM KEYCMWP,X'01' TEST FOR SUPER STATE 00775000 BNZ COMUEXIT IF NOT BRANCH OUT OF THIS ROUTINE 00776000 * 02S0263 00777000 * /***************************************************************/ 00778000 * /* */ 00779000 * /* BUILD THE RNIO RECORD */ 00780000 * /* */ 00781000 * /***************************************************************/ 00782000 * 02S0263 00783000 * RFY 02S0263 00784000 * LCCAPTR RSTD; 02S0263 00785000 * LCCAPTR=PSALCCAV; 02S0264 00786000 L LCCAPTR,PSALCCAV 02S0264 00787000 * R10WORK=RNIOASID; /* GET ASID AND TEST FOR ERROR 00788000 * ACCESSING LCCA */ 00789000 L @08,REG2LCCA(,LCCAPTR) 02S0265 00790000 LH R10WORK,RNIOASID(,@08) 02S0265 00791000 N R10WORK,@CF02696 02S0265 00792000 * MCATRL5=FRRA; /* SET AUDIT TRAIL */ 00793000 MVI MCATRL5(AWSAPTR),X'20' 02S0266 00794000 * RFY 02S0267 00795000 * ASCBPTR RSTD; 02S0267 00796000 * 02S0267 00797000 * /***************************************************************/ 00798000 * /* */ 00799000 * /* PICK UP ASCB ADDRESS */ 00800000 * /* */ 00801000 * /***************************************************************/ 00802000 * 02S0268 00803000 * ASCBPTR=ASVTENTY(R10WORK); 02S0268 00804000 LR @08,R10WORK 02S0268 00805000 SLA @08,2 02S0268 00806000 L @15,CVTPTR 02S0268 00807000 L @15,ASVTPTR(,@15) 02S0268 00808000 L ASCBPTR,ASVTENTY-4(@08,@15) 02S0268 00809000 * RFY 02S0269 00810000 * R10WORK UNRSTD; 02S0269 00811000 * 02S0269 00812000 * /***************************************************************/ 00813000 * /* */ 00814000 * /* CK ASCB ADDR TO SEE IF IT IS GTFS AND IF IT IS CK TO SEE IF */ 00815000 * /* WE ARE TRACING GTF RELATED HOOKS */ 00816000 * /* */ 00817000 * /***************************************************************/ 00818000 * 02S0270 00819000 * IF ASCBPTR=GTFASCB THEN /* CHECK FOR GTF RELATED EVENT */ 00820000 C ASCBPTR,GTFASCB(,PCTPTR) 02S0270 00821000 BNE @RF00270 02S0270 00822000 * IF OPTTRC=OFF THEN /* CHECK TO SEE IF TRACING GTF */ 00823000 TM OPTTRC(PCTPTR),B'00001000' 02S0271 00824000 BZ @RT00271 02S0271 00825000 * GO TO COMUEXIT; 02S0272 00826000 * RNIOASCB=ASCBPTR; 02S0273 00827000 * 02S0273 00828000 @RF00270 ST ASCBPTR,RNIOASCB(,AWSAPTR) 02S0273 00829000 * /***************************************************************/ 00830000 * /* */ 00831000 * /* PICK UP THE JOBNAME */ 00832000 * /* */ 00833000 * /***************************************************************/ 00834000 * 02S0274 00835000 * MCATRL5=FRRJ; /* SET AUDIT TRAIL */ 00836000 MVI MCATRL5(AWSAPTR),X'10' 02S0274 00837000 * RFY 02S0275 00838000 * R10WORK RSTD; 02S0275 00839000 * R10WORK=ASCBJBNI; 02S0276 00840000 L R10WORK,ASCBJBNI(,ASCBPTR) 02S0276 00841000 * IF R10WORK=0 THEN /* CHECK FOR NO ADDRESS */ 00842000 SLR @08,@08 02S0277 00843000 CR R10WORK,@08 02S0277 00844000 BNE @RF00277 02S0277 00845000 * DO; 02S0278 00846000 * R10WORK=ASCBJBNS; /* GET SECOND POINTER */ 00847000 L R10WORK,ASCBJBNS(,ASCBPTR) 02S0279 00848000 * IF R10WORK=0 THEN /* CHECK FOR GOOD ADDRESS */ 00849000 CR R10WORK,@08 02S0280 00850000 BE @RT00280 02S0280 00851000 * GO TO RNOJBNM; /* GO TO SET N/A */ 00852000 * END; 02S0282 00853000 * IF JBNMTEST^=0 THEN /* CHECK FOR VALID JOBNAME */ 00854000 @RF00277 L @08,JBNMTEST(,R10WORK) 02S0283 00855000 LTR @08,@08 02S0283 00856000 BZ @RF00283 02S0283 00857000 * RNIOJBNM=JOBNAME; /* GOOD, SO GET IT */ 00858000 MVC RNIOJBNM(8,AWSAPTR),JOBNAME(R10WORK) 02S0284 00859000 * ELSE 02S0285 00860000 *RNOJBNM: 02S0285 00861000 * RNIOJBNM=NOTAPP; /* IT IS NO GOOD SO SET TO N/A */ 00862000 B @RC00283 02S0285 00863000 @RF00283 DS 0H 02S0285 00864000 RNOJBNM MVC RNIOJBNM(8,AWSAPTR),@CC02504 02S0285 00865000 * RFY 02S0286 00866000 * (ASCBPTR, 02S0286 00867000 * R10WORK) UNRSTD; 02S0286 00868000 @RC00283 DS 0H 02S0287 00869000 *AHLRBTU: 02S0287 00870000 * MCATRL5=FRRB; 02S0287 00871000 AHLRBTU MVI MCATRL5(AWSAPTR),X'08' 02S0287 00872000 * RNIOR0=REG0LCCA; /* GATHER BTU LENGTH @Z40KI3O*/ 00873000 L @10,REG0LCCA(,LCCAPTR) 02S0288 00874000 STCM @10,15,RNIOR0(AWSAPTR) 02S0288 00875000 * RNIOBTU=BTU; /* GET BTU @Z40KI3O*/ 00876000 L @08,REG1LCCA(,LCCAPTR) 02S0289 00877000 MVC RNIOBTU(20,AWSAPTR),BTU(@08) 02S0289 00878000 * IF REG0LCCA>=20 THEN /* CHECK LENGTH COUNT @Z40KI3O*/ 00879000 CL @10,@CF02497 02S0290 00880000 BNL @RT00290 02S0290 00881000 * GO TO AHLHALT; /* DCF GE TEN, THEN EXIT @Y30AI3O*/ 00882000 * ELSE /* LESS THAN TEN @Y30AI3O*/ 00883000 * RFY 02S0292 00884000 * (R10WORK, 02S0292 00885000 * R6WORK) RSTD; /* @Y30AI3O*/ 00886000 * DO R10WORK=REG0LCCA TO 19 BY 1;/* LOOP THRU BTU FIELD @Z40KI3O*/ 00887000 L @08,REG0LCCA(,LCCAPTR) 02S0293 00888000 LR R10WORK,@08 02S0293 00889000 B @DE00293 02S0293 00890000 @DL00293 DS 0H 02S0294 00891000 * R6WORK=R10WORK+ADDR(RNIOBTU);/* PICK UP ADDR @Z40KI3O*/ 00892000 LA R6WORK,RNIOBTU(,AWSAPTR) 02S0294 00893000 ALR R6WORK,R10WORK 02S0294 00894000 * GEN; 02S0295 00895000 * /*@Y30AI3O*/ 00896000 MVI 0(R6WORK),X'40' /* BLANKOUT EXTRA BYTES @Y30AI3O*/ 00897000 * END; /* @Y30AI3O*/ 00898000 AL R10WORK,@CF00060 02S0296 00899000 @DE00293 C R10WORK,@CF02603 02S0296 00900000 BNH @DL00293 02S0296 00901000 * RFY 02S0297 00902000 * (R10WORK, 02S0297 00903000 * R6WORK) UNRSTD; /* RELEASE WORK REGS @Y30AI3O*/ 00904000 *AHLHALT: 02S0298 00905000 * RFY 02S0298 00906000 * LCCAPTR UNRSTD; /* @Y30AI3O*/ 00907000 AHLHALT DS 0H 02S0299 00908000 * 02S0299 00909000 * /***************************************************************/ 00910000 * /* */ 00911000 * /* BRANCH TO THE EXIT ROUTINE AND STACK THE RNIO RECORD */ 00912000 * /* */ 00913000 * /***************************************************************/ 00914000 * 02S0299 00915000 *AHLRSTAK: 02S0299 00916000 * MCATRL5=UNRECOV; /* INDICATE CATAS ERROR AREA */ 00917000 AHLRSTAK MVI MCATRL5(AWSAPTR),X'00' 02S0299 00918000 * RNIOCPID=PSACPUSA; /* GET CPUID @YMO3489*/ 00919000 LH @08,PSACPUSA 02S0300 00920000 STH @08,RNIOCPID(,AWSAPTR) 02S0300 00921000 * RFY 02S0301 00922000 * R10WORK RSTD; 02S0301 00923000 * R10WORK=LENGTH(RNIOREC); /* PUT LENGTH OF REOCRD IN REG 10*/ 00924000 LA R10WORK,38 02S0302 00925000 * GO TO COMEXIT; /* BRANCH TO COMMON EXIT ROUTINE */ 00926000 B COMEXIT 02S0303 00927000 * END; 02S0304 00928000 * DO; 02S0305 00929000 *COMEXIT: 02S0306 00930000 * DO; /* AHLSTACK DLENGTH(R10WORK)AID(A 00931000 * IDC)FID(FIDC) */ 00932000 * 02S0306 00933000 COMEXIT DS 0H 02S0307 00934000 * /*************************************************************/ 00935000 * /* */ 00936000 * /* THE FOLLOWING CODE IS GENERATED BY THE AHLSTACK MACRO. */ 00937000 * /* THIS CODE BUILDS THE GTF RECORD PREFIX AND THEN CALLS */ 00938000 * /* AHLSBLOK TO STACK THE RECORD. */ 00939000 * /* */ 00940000 * /*************************************************************/ 00941000 * 02S0307 00942000 * DCL 02S0307 00943000 * 1 AHLGREC INT BASED(AHLRECPR) BDY(WORD),/* MAPPING FOR 00944000 * RECORD PREFIX */ 00945000 * 2 AHLGLGTH PTR(16), /* LENGTH OF RECORD PLUS PREFIX */ 00946000 * 2 AHLGRES PTR(16), /* FOR COMPATIBILITY TO QSAM */ 00947000 * 2 AHLGAID PTR(8), /* APPLICATION ID */ 00948000 * 2 AHLGFID PTR(8), /* FORMAT APPENDAGE ID */ 00949000 * 2 AHLGTST CHAR(8), /* TIMESTAMP IF SPECIFIED */ 00950000 * 3 AHLGEIDS PTR(16) BDY(BYTE),/* RECORD EVENT IDENTIFIER 00951000 * IF NO TIMESTAMP */ 00952000 * 2 AHLGEIDL PTR(16); /* RECORD EVENT IDENTIFIER WITH 00953000 * TIMESTAMP */ 00954000 * DCL 02S0308 00955000 * AHLRECPR PTR(31) REG(1), /* USED AS POINTER TO RECORD 00956000 * PREFIX AREA */ 00957000 * AHLSBREG PTR(31) REG(14), /* USED TO HOLD A STABLE COPY OF 00958000 * THE SBLOKRTN FIELD IN THE 00959000 * GTFPCT */ 00960000 * AHLRETCD PTR(31) REG(15); /* USED TO PASS RETURN CODE TO 00961000 * INVOKER */ 00962000 * DCL 02S0309 00963000 * AHLSBLOK ENTRY OPTIONS(NOEXIT,SEQFLOW,REFS(MCAWSA),SETS( 00964000 * AHLRETCD),NOFLOWS) BASED(AHLSBREG) VALRG(0);/* ENTRY 00965000 * FOR AHLSBLOK */ 00966000 * RFY 02S0310 00967000 * (AHLRECPR, 02S0310 00968000 * AHLSBREG, 02S0310 00969000 * AHLRETCD) RSTD; 02S0310 00970000 * IF OPTTIME='1'B THEN /* CHECK FOR TIMESTAMP REQUESTED */ 00971000 TM OPTTIME(PCTPTR),B'00000001' 02S0311 00972000 BNO @RF00311 02S0311 00973000 * DO; /* YES, TIMESTAMP */ 00974000 * AHLRECPR=ADDR(MCARECPR);/* SETUP ADDRESSIBILITY TO PREFIX 00975000 * FOR PREFIX WITH TIMESTAMP */ 00976000 LA AHLRECPR,MCARECPR(,AWSAPTR) 02S0313 00977000 * AHLGLGTH=R10WORK+16; /* SET LENGTH TO INCLUDE *** 00978000 * DLENGTH *** PLUS TIMESTAMP 00979000 * PREFIX */ 00980000 LA @11,16 02S0314 00981000 ALR @11,R10WORK 02S0314 00982000 STH @11,AHLGLGTH(,AHLRECPR) 02S0314 00983000 * GEN 02S0315 00984000 *(STCK AHLGTST(AHLRECPR) PUT TOD CLOCK VALUE INTO PREFIX ) 02S0315 00985000 * SETS(AHLGTST) NOEXIT SEQFLOW NOFLOWS; 02S0315 00986000 STCK AHLGTST(AHLRECPR) PUT TOD CLOCK VALUE INTO PREFIX 00987000 * AHLGEIDL=MCAMCR->MCREID;/* *** EID *** NOT SPECIFIED PUT 00988000 * DEFAULT INTO PREFIX */ 00989000 L @11,MCAMCR(,AWSAPTR) 02S0316 00990000 LH @11,MCREID(,@11) 02S0316 00991000 N @11,@CF02696 02S0316 00992000 STH @11,AHLGEIDL(,AHLRECPR) 02S0316 00993000 * END; 02S0317 00994000 * ELSE /* NO TIMESTAMP TO BE DONE, BUILD 00995000 * SHORT PREFIX */ 00996000 * DO; 02S0318 00997000 B @RC00311 02S0318 00998000 @RF00311 DS 0H 02S0319 00999000 * AHLRECPR=ADDR(MCARECPR)+8;/* SETUP ADDRESSIBILITY TO FOR 01000000 * SHORT PREFIX WITHOUT TIMESTAMP*/ 01001000 LA @11,8 02S0319 01002000 LA AHLRECPR,MCARECPR(,AWSAPTR) 02S0319 01003000 ALR AHLRECPR,@11 02S0319 01004000 * AHLGLGTH=R10WORK+8; /* PUT TOTAL RECORD LENGTH INTO 01005000 * PREFIX *** DLENGTH *** PLUS 01006000 * PREFIX LENGTH */ 01007000 ALR @11,R10WORK 02S0320 01008000 STH @11,AHLGLGTH(,AHLRECPR) 02S0320 01009000 * AHLGEIDS=MCAMCR->MCREID;/* *** EID *** NOT SPECIFIED PUT 01010000 * DEFAULT INTO PREFIX */ 01011000 L @11,MCAMCR(,AWSAPTR) 02S0321 01012000 LH @11,MCREID(,@11) 02S0321 01013000 N @11,@CF02696 02S0321 01014000 STH @11,AHLGEIDS(,AHLRECPR) 02S0321 01015000 * END; 02S0322 01016000 * AHLGRES=0; /* ZERO OUT FOR QSAM 02S0323 01017000 * COMPATIBILITY */ 01018000 @RC00311 SLR @11,@11 02S0323 01019000 STH @11,AHLGRES(,AHLRECPR) 02S0323 01020000 * AHLGAID=AIDC; /* PUT *** AID *** INTO PREFIX */ 01021000 MVI AHLGAID(AHLRECPR),X'FF' 02S0324 01022000 * AHLGFID=FIDC; /* PUT *** FID *** INTO PREFIX */ 01023000 MVI AHLGFID(AHLRECPR),X'04' 02S0325 01024000 * AHLRETCD=4; /* SET DEFAULT RETURN CODE */ 01025000 LA AHLRETCD,4 02S0326 01026000 * AHLSBREG=SBLOKRTN; /* GET A STABLE COPY OF AHLSBLOK 01027000 * ADDR */ 01028000 L AHLSBREG,SBLOKRTN(,PCTPTR) 02S0327 01029000 * IF AHLSBREG^=0 THEN /* CHECK TO SEE IF AHLSBLOK IS 01030000 * AVAILABLE */ 01031000 CR AHLSBREG,@11 02S0328 01032000 BE @RF00328 02S0328 01033000 * CALL AHLSBLOK; /* YES, SO CALL AHLSBLOK TO BLOCK 01034000 * RECORD */ 01035000 LR @15,AHLSBREG 02S0329 01036000 BALR @14,@15 02S0329 01037000 * RFY 02S0330 01038000 * (AHLRECPR, 02S0330 01039000 * AHLSBREG, 02S0330 01040000 * AHLRETCD) UNRSTD; 02S0330 01041000 @RF00328 DS 0H 02S0331 01042000 * END; 02S0331 01043000 * 02S0332 01044000 * /***************************************************************/ 01045000 * /* */ 01046000 * /* THE RECORD IS STACKED SO RESET MCATRAIL, RESTORE REG 14, */ 01047000 * /* DELETE THE FRR AND RETURN */ 01048000 * /* */ 01049000 * /***************************************************************/ 01050000 * 02S0332 01051000 * RFY 02S0332 01052000 * (R10WORK, 02S0332 01053000 * R14) RSTD; 02S0332 01054000 *COMUEXIT: 02S0333 01055000 * R14=SVR14NRM; /* RESTORE REG 14 TO ORIGINAL 01056000 * RETURN ADDRESS */ 01057000 COMUEXIT L R14,SVR14NRM(,R9PARM) 02S0333 01058000 * GEN SETS(R9PARM,R10WORK) NOEXIT SEQFLOW NOFLOWS; 02S0334 01059000 SETFRR D,WRKREGS=(R9PARM,R10WORK) 01060000 * GEN SETS(R14) EXIT(BR R14 RETURN TO CALLER); 02S0335 01061000 BR R14 RETURN TO CALLER 01062000 * RFY 02S0336 01063000 * (R10WORK, 02S0336 01064000 * R14) UNRSTD; 02S0336 01065000 * END; 02S0337 01066000 *AHLTFORE: 01S0338 01067000 * GEN SETS(R12BASE) NOEXIT NOFLOWS SEQFLOW; 01S0338 01068000 AHLTFORE DS 0H 01S0338 01069000 USING AHLTFORE,R15ENTRY SETUP TEMP BASE 01070000 L R12BASE,TFORBASE GET BASE ADDRESS UPON ENTRY 01071000 USING AHLTFOR,R12BASE TELL ASSEMBLER ABOUT OUR BASE 01072000 DROP R15ENTRY TELL ASSEM TO QUIT USING R15 01073000 * DO; 02S0339 01074000 * 02S0339 01075000 * /***************************************************************/ 01076000 * /* */ 01077000 * /* THIS IS THE FRR FOR AHLTFORE. IF AN ERROR OCCURRS DURING THE*/ 01078000 * /* EXECUTION OF THE MODULE THIS ROUTINE GAINS CONTROL CERTAIN */ 01079000 * /* ERROR CONDITIONS ARE CHECKED AND APPRORIATE ACTION IS TAKEN */ 01080000 * /* DEPENDING ON THE ERROR */ 01081000 * /* */ 01082000 * /***************************************************************/ 01083000 * 02S0340 01084000 * ; 02S0340 01085000 * 02S0340 01086000 * /***************************************************************/ 01087000 * /* */ 01088000 * /* GET THE FRR PARAMETER FIELD FROM THE SDWA, SAVE REG 14 FOR */ 01089000 * /* RETURN TO RTM, RE-ESTABLISH ADDRESSIBILITY TO THE */ 01090000 * /* MCAWSA,SAVE THE MCATRAIL BITS AT THE TIME OF ERROR, TURN ON */ 01091000 * /* THE ERROR BIT, AND RE-ESTABLISH ADDRESSIBILITY TO THE GTFPCT*/ 01092000 * /* AND THE MCQE */ 01093000 * /* */ 01094000 * /***************************************************************/ 01095000 * 02S0341 01096000 * RFY 02S0341 01097000 * MCRWSA BASED(WSACGTF); 02S0341 01098000 * RFY 02S0342 01099000 * (LCCAPTR, 02S0342 01100000 * R14) RSTD; 02S0342 01101000 * R9PARM=SDWAPARM; /* PICK UP ADDRESS OF FRR PARM 01102000 * FIELD */ 01103000 L R9PARM,SDWAPARM(,SDWAPTR) 02S0343 01104000 * SVR14FRR=R14; /* SAVE RETURN ADDRESS TO RTM */ 01105000 ST R14,SVR14FRR(,R9PARM) 02S0344 01106000 * LCCAPTR=PSALCCAV; /* PICK UP POINTER TO THE LCCA 01107000 * FROM THE PSA */ 01108000 L LCCAPTR,PSALCCAV 02S0345 01109000 * AWSAPTR=MCRMCA; /* GET ADDRESS OF MCAWSA AT ERROR 01110000 * FROM MCRWSA */ 01111000 L @15,LCCACPUS(,LCCAPTR) 02S0346 01112000 L @15,WSACGTF(,@15) 02S0346 01113000 L AWSAPTR,MCRMCA(,@15) 02S0346 01114000 * RFY 02S0347 01115000 * (LCCAPTR, 02S0347 01116000 * R14) UNRSTD; 02S0347 01117000 * RFY 02S0348 01118000 * MCRWSA BASED(MCAMCR); 02S0348 01119000 * TRAILSAV=MCATRAIL; /* SAVE TRAIL BITS FOR C&S LOGIC 01120000 * LATER */ 01121000 MVC TRAILSAV(4,R9PARM),MCATRAIL(AWSAPTR) 02S0349 01122000 * MCAERROR=ON; /* INDICATE ERROR ROUTINE IN 01123000 * CONTROL */ 01124000 OI MCAERROR(AWSAPTR),B'00000100' 02S0350 01125000 * R0=MCRREG0; /* GET ADDR OF MCQE AT TIME OF 01126000 * ERROR FROM MCRWSA */ 01127000 L @08,MCAMCR(,AWSAPTR) 02S0351 01128000 L R0,MCRREG0(,@08) 02S0351 01129000 * PCTPTR=MCQEAT; /* GET ADDR OF PCT AT TIME OF 01130000 * ERROR FROM SDWA */ 01131000 LR @08,R0 02S0352 01132000 L PCTPTR,MCQEAT(,@08) 02S0352 01133000 * 02S0353 01134000 * /***************************************************************/ 01135000 * /* */ 01136000 * /* DETERMINE WHAT THE ERROR WAS */ 01137000 * /* */ 01138000 * /***************************************************************/ 01139000 * 02S0353 01140000 * ; 02S0353 01141000 * 02S0353 01142000 * /***************************************************************/ 01143000 * /* */ 01144000 * /* THE FIRST CHECK IS FOR A MACHINE CHECK. IF THE ERROR IS A */ 01145000 * /* MACHINE CHECK THEN WE NEED TO DETERMINE IF IT IS A */ 01146000 * /* RECOVERABLE ERROR BY CHECKING FOR AN INSTRUCTION FAILURE AND*/ 01147000 * /* TO SEE IF THE REGISTERS AND PSW ARE VALID. IF THESE */ 01148000 * /* CONDITIONS EXIST THEN WE WILL RETRY TO THE ADDRESS IN THE */ 01149000 * /* PSW AT ERROR THAT IS CONTAINED AT SDWAEC1 IN THE RTCS. */ 01150000 * /* OTHERWISE WE WILL DISABLE THE ROUTINE AND RETURN TO AHLMCIH */ 01151000 * /* */ 01152000 * /***************************************************************/ 01153000 * 02S0354 01154000 * IF SDWAMCHK=ON THEN /* CHECK FOR MACHINE CHECK ERROR */ 01155000 TM SDWAMCHK(SDWAPTR),B'10000000' 02S0354 01156000 BNO @RF00354 02S0354 01157000 * DO; 02S0355 01158000 * IF SDWAINSF=ON&SDWAREGU=OFF&SDWAPSWU=OFF THEN/* CHECK FOR 01159000 * RETRY CONDITIONS */ 01160000 TM SDWAINSF(SDWAPTR),B'00000100' 02S0356 01161000 BNO @RF00356 02S0356 01162000 TM SDWAREGU(SDWAPTR),B'01100000' 02S0356 01163000 BNZ @RF00356 02S0356 01164000 * DO; 02S0357 01165000 * DO; /* SETRP 02S0358 01166000 * RETADDR(ACRADDR)RC(SDWARETY) */ 01167000 * RESPECIFY 02S0359 01168000 * (GPR00P, 02S0359 01169000 * GPR01P, 02S0359 01170000 * GPR14P, 02S0359 01171000 * GPR15P) RSTD; 02S0359 01172000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 01173000 MVI SDWARCDE(GPR01P),X'04' 02S0360 01174000 * GPR01P->SDWARTYA=ADDR(ACRADDR);/* SAVE RETRY ADDRESS */ 01175000 L @08,SDWANXT1(,SDWAPTR) 02S0361 01176000 ST @08,SDWARTYA(,GPR01P) 02S0361 01177000 * RESPECIFY 02S0362 01178000 * (GPR00P, 02S0362 01179000 * GPR01P, 02S0362 01180000 * GPR14P, 02S0362 01181000 * GPR15P) UNRSTD; 02S0362 01182000 * END; 02S0363 01183000 * MCAERROR=OFF; /* RESET ERROR ROUTINE IN CONTROL 01184000 * INDICATOR */ 01185000 NI MCAERROR(AWSAPTR),B'11111011' 02S0364 01186000 * END; 02S0365 01187000 * ELSE 02S0366 01188000 * DO; 02S0366 01189000 B @RC00356 02S0366 01190000 @RF00356 DS 0H 02S0367 01191000 * DO; /* SETRP RC(SDWACWT) */ 01192000 * RESPECIFY 02S0368 01193000 * (GPR00P, 02S0368 01194000 * GPR01P, 02S0368 01195000 * GPR14P, 02S0368 01196000 * GPR15P) RSTD; 02S0368 01197000 * GPR01P->SDWARCDE=SDWACWT;/* SAVE RC VALUE */ 01198000 MVI SDWARCDE(GPR01P),X'00' 02S0369 01199000 * RESPECIFY 02S0370 01200000 * (GPR00P, 02S0370 01201000 * GPR01P, 02S0370 01202000 * GPR14P, 02S0370 01203000 * GPR15P) UNRSTD; 02S0370 01204000 * END; 02S0371 01205000 * END; 02S0372 01206000 * END; 02S0373 01207000 * ELSE /* IT IS NOT MACH CHECK ERROR SO 01208000 * CHECK THE REST */ 01209000 * 02S0374 01210000 * /*************************************************************/ 01211000 * /* */ 01212000 * /* CHECK TO SEE IF THE ROUTINE WAS PERCOLATED TO */ 01213000 * /* */ 01214000 * /*************************************************************/ 01215000 * 02S0374 01216000 * IF SDWAPERC=ON THEN /* CHECK TO SEE IF WE WERE 02S0374 01217000 * PERCOLATED TO */ 01218000 B @RC00354 02S0374 01219000 @RF00354 TM SDWAPERC(SDWAPTR),B'00010000' 02S0374 01220000 BNO @RF00374 02S0374 01221000 * DO; 02S0375 01222000 * DO; /* SETRP RC(SDWACWT) */ 01223000 * RESPECIFY 02S0377 01224000 * (GPR00P, 02S0377 01225000 * GPR01P, 02S0377 01226000 * GPR14P, 02S0377 01227000 * GPR15P) RSTD; 02S0377 01228000 * GPR01P->SDWARCDE=SDWACWT;/* SAVE RC VALUE */ 01229000 MVI SDWARCDE(GPR01P),X'00' 02S0378 01230000 * RESPECIFY 02S0379 01231000 * (GPR00P, 02S0379 01232000 * GPR01P, 02S0379 01233000 * GPR14P, 02S0379 01234000 * GPR15P) UNRSTD; 02S0379 01235000 * END; 02S0380 01236000 * IF SDWAEAS=OFF THEN /* CHECK TO SEE IF THE PREVIOUS 01237000 * EXIT TOOK A DUMP @YM01897*/ 01238000 TM SDWAEAS(SDWAPTR),B'00001000' 02S0381 01239000 BNZ @RF00381 02S0381 01240000 * DO; /* NO SO TAKE ONE */ 01241000 * R0=ADDR(DMPLIST); /* LOAD PLIST FOR DUMP MODULE */ 01242000 LA R0,DMPLIST 02S0383 01243000 * CALL AHLDMPMD; /* CALL THE DUMPING ROUTINE */ 01244000 L @15,PCTDMPMD(,PCTPTR) 02S0384 01245000 BALR @14,@15 02S0384 01246000 * END; 02S0385 01247000 * END; 02S0386 01248000 * ELSE 02S0387 01249000 * 02S0387 01250000 * /***********************************************************/ 01251000 * /* */ 01252000 * /* CHECK FOR DEBUG MODE ON OR OFF AND TO SEE IF WE WERE */ 01253000 * /* ENTERED ONLY FOR CLEANUP */ 01254000 * /* */ 01255000 * /***********************************************************/ 01256000 * 02S0387 01257000 * IF GTFDEBUG=ON|SDWACLUP=ON THEN/* CHECK TO SEE IF USER WANT 01258000 * TERMINATION AND DUMP OR IF WE 01259000 * WERE ENTERED ONLY FOR CLEANUP */ 01260000 B @RC00374 02S0387 01261000 @RF00374 TM GTFDEBUG(PCTPTR),B'01000000' 02S0387 01262000 BO @RT00387 02S0387 01263000 TM SDWACLUP(SDWAPTR),B'10000000' 02S0387 01264000 BNO @RF00387 02S0387 01265000 @RT00387 DS 0H 02S0388 01266000 * DO; 02S0388 01267000 * CALL DMPMOD; /* CALL TO DO SDUMP */ 01268000 BAL @14,DMPMOD 02S0389 01269000 * DO; /* SETRP RC(SDWACWT) */ 01270000 * RESPECIFY 02S0391 01271000 * (GPR00P, 02S0391 01272000 * GPR01P, 02S0391 01273000 * GPR14P, 02S0391 01274000 * GPR15P) RSTD; 02S0391 01275000 * GPR01P->SDWARCDE=SDWACWT;/* SAVE RC VALUE */ 01276000 MVI SDWARCDE(GPR01P),X'00' 02S0392 01277000 * RESPECIFY 02S0393 01278000 * (GPR00P, 02S0393 01279000 * GPR01P, 02S0393 01280000 * GPR14P, 02S0393 01281000 * GPR15P) UNRSTD; 02S0393 01282000 * END; 02S0394 01283000 * END; 02S0395 01284000 * ELSE /* NOT DEBUG MODE SO CHECK MORE */ 01285000 * 02S0396 01286000 * /*********************************************************/ 01287000 * /* */ 01288000 * /* CHECK FOR AN UNRECOVERABLE ERROR */ 01289000 * /* */ 01290000 * /*********************************************************/ 01291000 * 02S0396 01292000 * IF MCATRL3=UNRECOV&MCATRL5=UNRECOV THEN 02S0396 01293000 B @RC00387 02S0396 01294000 @RF00387 CLI MCATRL3(AWSAPTR),0 02S0396 01295000 BNE @RF00396 02S0396 01296000 CLI MCATRL5(AWSAPTR),0 02S0396 01297000 BNE @RF00396 02S0396 01298000 *UNRECERR: /* CHECK FOR UNRECOVERABLE ERROR */ 01299000 * CALL CATERR; /* GET CATAS ERROR ROUTINE */ 01300000 UNRECERR BAL @14,CATERR 02S0397 01301000 * ELSE /* CHECK FOR RECURSION ERROR */ 01302000 * 02S0398 01303000 * /*******************************************************/ 01304000 * /* */ 01305000 * /* CHECK FOR TOO MANY ENTRIES INTO THE FRR */ 01306000 * /* */ 01307000 * /*******************************************************/ 01308000 * 02S0398 01309000 * DO; 02S0398 01310000 B @RC00396 02S0398 01311000 @RF00396 DS 0H 02S0399 01312000 * RECURCTR=RECURCTR+1;/* UPDATE RECURSION COUNT */ 01313000 LA @08,1 02S0399 01314000 LH @04,RECURCTR(,R9PARM) 02S0399 01315000 N @04,@CF02696 02S0399 01316000 ALR @08,@04 02S0399 01317000 STH @08,RECURCTR(,R9PARM) 02S0399 01318000 * IF RECURCTR>=RECURLMT THEN/* CHECK FOR TOO MANY 02S0400 01319000 * RECURSIONS */ 01320000 C @08,@CF01055 02S0400 01321000 BL @RF00400 02S0400 01322000 * CALL CATERR; /* GET CATAS ERROR ROUTINE */ 01323000 BAL @14,CATERR 02S0401 01324000 * ELSE /* RECOVERABLE ERROR SO PROCESS 01325000 * IT AS SUCH */ 01326000 * DO; 03S0402 01327000 B @RC00400 03S0402 01328000 @RF00400 DS 0H 03S0403 01329000 * RFY 03S0403 01330000 * R14 RSTD; 03S0403 01331000 * 03S0403 01332000 * /*************************************************/ 01333000 * /* */ 01334000 * /* THE FOLLOWING ROUTINES GET CONTROL WHEN */ 01335000 * /* RECOVERABLE ERRORS OCCUR IN THE SECTIONS OF */ 01336000 * /* CODE TO WHICH THEY RELATE. THE ROUTINES PUT */ 01337000 * /* ASTERISKS INTO THE FIELDS WHICH WERE BEING */ 01338000 * /* GATHERED WHEN THE ERROR OCCURED. THE COMMENTS */ 01339000 * /* CONTAIN THE FIELDS BEING GATHERED WHEN THE */ 01340000 * /* ERROR OCCURRED. AFTER THE FIELDS ARE FILLED */ 01341000 * /* THE RETRY ADDRESS IS SET TO THE SECTION OF */ 01342000 * /* CODE THAT GATHERS THE NEXT FIELD AND A RETURN */ 01343000 * /* IS MADE */ 01344000 * /* */ 01345000 * /*************************************************/ 01346000 * 03S0404 01347000 * IF MCASRM=ON THEN/* CHECK FOR SRM GATHERING */ 01348000 TM MCASRM(AWSAPTR),B'01000000' 03S0404 01349000 BNO @RF00404 03S0404 01350000 * DO; 03S0405 01351000 * IF MCATRL3=FRSA THEN/* CHECK FOR ASCB 03S0406 01352000 * GATHERING */ 01353000 CLI MCATRL3(AWSAPTR),8 03S0406 01354000 BNE @RF00406 03S0406 01355000 * SRMASCB=ERRIND;/* SRM ASCB ADDRESS */ 01356000 MVC SRMASCB(4,AWSAPTR),@CC02508 03S0407 01357000 * ELSE /* NOT ASCB */ 01358000 * IF MCATRL3^=FRSJ THEN/* IF NOT JOBNAME THEN 01359000 * IS ERROR */ 01360000 B @RC00406 03S0408 01361000 @RF00406 CLI MCATRL3(AWSAPTR),4 03S0408 01362000 BNE @RT00408 03S0408 01363000 * GO TO UNRECERR; 03S0409 01364000 * SRMJBNM=ERRIND;/* SRM JOBNAME */ 01365000 @RC00406 MVC SRMJBNM(8,AWSAPTR),@CC02508 03S0410 01366000 * DO; /* SETRP 03S0411 01367000 * RETADDR(AHLSSTAK)RC(SDWARETY) */ 01368000 * RESPECIFY 03S0412 01369000 * (GPR00P, 03S0412 01370000 * GPR01P, 03S0412 01371000 * GPR14P, 03S0412 01372000 * GPR15P) RSTD; 03S0412 01373000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO 01374000 * SDWA */ 01375000 MVI SDWARCDE(GPR01P),X'04' 03S0413 01376000 * GPR01P->SDWARTYA=ADDR(AHLSSTAK);/* SAVE 01377000 * RETRY ADDRESS */ 01378000 LA @08,AHLSSTAK 03S0414 01379000 ST @08,SDWARTYA(,GPR01P) 03S0414 01380000 * RESPECIFY 03S0415 01381000 * (GPR00P, 03S0415 01382000 * GPR01P, 03S0415 01383000 * GPR14P, 03S0415 01384000 * GPR15P) UNRSTD; 03S0415 01385000 * END; 03S0416 01386000 * MCAERROR=OFF; 03S0417 01387000 NI MCAERROR(AWSAPTR),B'11111011' 03S0417 01388000 * R14=SVR14FRR;/* RESTORE RTM RETURN ADDRESS */ 01389000 L R14,SVR14FRR(,R9PARM) 03S0418 01390000 * GEN SETS(R14) EXIT(BR R14 RETURN TO CALLER); 01391000 BR R14 RETURN TO CALLER 01392000 * END; 03S0420 01393000 * ELSE /* NOT SRM SO CHECK FARTHER */ 01394000 * IF MCAFRR=ON THEN/* CHECK FOR FRR GATHERING */ 01395000 B @RC00404 03S0421 01396000 @RF00404 TM MCAFRR(AWSAPTR),B'00100000' 03S0421 01397000 BNO @RF00421 03S0421 01398000 * IF MCATRL3=FRFRT THEN/* CHECK FOR RTCA */ 01399000 CLI MCATRL3(AWSAPTR),1 03S0422 01400000 BNE @RF00422 03S0422 01401000 * DO; 03S0423 01402000 * FRRSDWA=ERRIND;/* ANY OF THE FIELDS IN 01403000 * SDWA ON FRR */ 01404000 MVC FRRSDWA(32,AWSAPTR),@CC02508 03S0424 01405000 * DO; /* SETRP 03S0425 01406000 * RETADDR(AHLFSTAK)RC(SDWARETY) */ 01407000 * RESPECIFY 03S0426 01408000 * (GPR00P, 03S0426 01409000 * GPR01P, 03S0426 01410000 * GPR14P, 03S0426 01411000 * GPR15P) RSTD; 03S0426 01412000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC 01413000 * INTO SDWA */ 01414000 MVI SDWARCDE(GPR01P),X'04' 03S0427 01415000 * GPR01P->SDWARTYA=ADDR(AHLFSTAK);/* SAVE 01416000 * RETRY ADDRESS */ 01417000 LA @08,AHLFSTAK 03S0428 01418000 ST @08,SDWARTYA(,GPR01P) 03S0428 01419000 * RESPECIFY 03S0429 01420000 * (GPR00P, 03S0429 01421000 * GPR01P, 03S0429 01422000 * GPR14P, 03S0429 01423000 * GPR15P) UNRSTD; 03S0429 01424000 * END; 03S0430 01425000 * MCAERROR=OFF; 03S0431 01426000 NI MCAERROR(AWSAPTR),B'11111011' 03S0431 01427000 * R14=SVR14FRR;/* RESTORE RTM RETURN 03S0432 01428000 * ADDRESS */ 01429000 L R14,SVR14FRR(,R9PARM) 03S0432 01430000 * GEN SETS(R14) EXIT(BR R14 RETURN TO CALLER) 01431000 * ; 03S0433 01432000 BR R14 RETURN TO CALLER 01433000 * END; 03S0434 01434000 * ELSE 03S0435 01435000 * DO; 03S0435 01436000 B @RC00422 03S0435 01437000 @RF00422 DS 0H 03S0436 01438000 * IF MCATRL3=FRFA THEN/* CHECK FOR ASCB */ 01439000 CLI MCATRL3(AWSAPTR),2 03S0436 01440000 BNE @RF00436 03S0436 01441000 * FRRASCB=ERRIND;/* ASCB FIELD IN ERROR */ 01442000 MVC FRRASCB(4,AWSAPTR),@CC02508 03S0437 01443000 * ELSE 03S0438 01444000 * IF MCATRL3^=FRFJ THEN/* CK FOR JOBNAME 01445000 * IN ERROR */ 01446000 B @RC00436 03S0438 01447000 @RF00436 CLI MCATRL3(AWSAPTR),2 03S0438 01448000 BNE @RT00438 03S0438 01449000 * GO TO UNRECERR; 03S0439 01450000 * FRRJBNM=ERRIND;/* FILL IN THE JOBNAME 01451000 * WITH ASTERISKS */ 01452000 @RC00436 MVC FRRJBNM(8,AWSAPTR),@CC02508 03S0440 01453000 * DO; /* SETRP 03S0441 01454000 * RETADDR(AHLFNAME)RC(SDWARETY) */ 01455000 * RESPECIFY 03S0442 01456000 * (GPR00P, 03S0442 01457000 * GPR01P, 03S0442 01458000 * GPR14P, 03S0442 01459000 * GPR15P) RSTD; 03S0442 01460000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC 01461000 * INTO SDWA */ 01462000 MVI SDWARCDE(GPR01P),X'04' 03S0443 01463000 * GPR01P->SDWARTYA=ADDR(AHLFNAME);/* SAVE 01464000 * RETRY ADDRESS */ 01465000 LA @08,AHLFNAME 03S0444 01466000 ST @08,SDWARTYA(,GPR01P) 03S0444 01467000 * RESPECIFY 03S0445 01468000 * (GPR00P, 03S0445 01469000 * GPR01P, 03S0445 01470000 * GPR14P, 03S0445 01471000 * GPR15P) UNRSTD; 03S0445 01472000 * END; 03S0446 01473000 * MCAERROR=OFF; 03S0447 01474000 NI MCAERROR(AWSAPTR),B'11111011' 03S0447 01475000 * R14=SVR14FRR;/* RESTORE RTM RETURN 03S0448 01476000 * ADDRESS */ 01477000 L R14,SVR14FRR(,R9PARM) 03S0448 01478000 * GEN SETS(R14) EXIT(BR R14 RETURN TO CALLER) 01479000 * ; 03S0449 01480000 BR R14 RETURN TO CALLER 01481000 * END; 03S0450 01482000 * ELSE /* NOT FRR SO CHECK STAE */ 01483000 * IF MCASTA=ON THEN/* CHECK FOR STAE */ 01484000 B @RC00421 03S0451 01485000 @RF00421 TM MCASTA(AWSAPTR),B'00010000' 03S0451 01486000 BNO @RF00451 03S0451 01487000 * IF MCATRL5=FREPC THEN/* CK FOR PSW AND CC */ 01488000 CLI MCATRL5(AWSAPTR),128 03S0452 01489000 BNE @RF00452 03S0452 01490000 * DO; 03S0453 01491000 * STAPC=ERRIND;/* PSW OR COMPLETION CODE 01492000 * ON STAE */ 01493000 MVC STAPC(12,AWSAPTR),@CC02508 03S0454 01494000 * DO; /* SETRP 03S0455 01495000 * RETADDR(AHLNSTAK)RC(SDWARETY) */ 01496000 * RESPECIFY 03S0456 01497000 * (GPR00P, 03S0456 01498000 * GPR01P, 03S0456 01499000 * GPR14P, 03S0456 01500000 * GPR15P) RSTD; 03S0456 01501000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC 01502000 * INTO SDWA */ 01503000 MVI SDWARCDE(GPR01P),X'04' 03S0457 01504000 * GPR01P->SDWARTYA=ADDR(AHLNSTAK);/* 01505000 * SAVE RETRY ADDRESS */ 01506000 LA @08,AHLNSTAK 03S0458 01507000 ST @08,SDWARTYA(,GPR01P) 03S0458 01508000 * RESPECIFY 03S0459 01509000 * (GPR00P, 03S0459 01510000 * GPR01P, 03S0459 01511000 * GPR14P, 03S0459 01512000 * GPR15P) UNRSTD; 03S0459 01513000 * END; 03S0460 01514000 * MCAERROR=OFF; 03S0461 01515000 NI MCAERROR(AWSAPTR),B'11111011' 03S0461 01516000 * R14=SVR14FRR;/* RESTORE RTM RETURN 01517000 * ADDRESS */ 01518000 L R14,SVR14FRR(,R9PARM) 03S0462 01519000 * GEN SETS(R14) EXIT 03S0463 01520000 * (BR R14 RETURN TO CALLER); 03S0463 01521000 BR R14 RETURN TO CALLER 01522000 * END; 03S0464 01523000 * ELSE 03S0465 01524000 * IF MCATRL5=FRERT THEN/* CK FOR RTCA */ 01525000 B @RC00452 03S0465 01526000 @RF00452 CLI MCATRL5(AWSAPTR),64 03S0465 01527000 BNE @RF00465 03S0465 01528000 * DO; 03S0466 01529000 * STASDWA(1:32)=ERRIND;/* ANY OF THE 01530000 * FIELDS IN SDWA ON ESTAE */ 01531000 MVC STASDWA(32,AWSAPTR),@CC02508 03S0467 01532000 * DO; /* SETRP 03S0468 01533000 * RETADDR(AHLESTAK)RC(SDWARETY) */ 01534000 * RESPECIFY 03S0469 01535000 * (GPR00P, 03S0469 01536000 * GPR01P, 03S0469 01537000 * GPR14P, 03S0469 01538000 * GPR15P) RSTD; 03S0469 01539000 * GPR01P->SDWARCDE=SDWARETY;/* STORE 01540000 * RC INTO SDWA */ 01541000 MVI SDWARCDE(GPR01P),X'04' 03S0470 01542000 * GPR01P->SDWARTYA=ADDR(AHLESTAK);/* 01543000 * SAVE RETRY ADDRESS */ 01544000 LA @08,AHLESTAK 03S0471 01545000 ST @08,SDWARTYA(,GPR01P) 03S0471 01546000 * RESPECIFY 03S0472 01547000 * (GPR00P, 03S0472 01548000 * GPR01P, 03S0472 01549000 * GPR14P, 03S0472 01550000 * GPR15P) UNRSTD; 03S0472 01551000 * END; 03S0473 01552000 * MCAERROR=OFF; 03S0474 01553000 NI MCAERROR(AWSAPTR),B'11111011' 03S0474 01554000 * R14=SVR14FRR;/* RESTORE RTM RETURN 01555000 * ADDRESS */ 01556000 L R14,SVR14FRR(,R9PARM) 03S0475 01557000 * GEN SETS(R14) EXIT 03S0476 01558000 * (BR R14 RETURN TO CALLER); 03S0476 01559000 BR R14 RETURN TO CALLER 01560000 * END; 03S0477 01561000 * ELSE 03S0478 01562000 * IF MCATRL5=FREJ THEN/* CK FOR ERROR IN 01563000 * JOBNAME */ 01564000 B @RC00465 03S0478 01565000 @RF00465 CLI MCATRL5(AWSAPTR),1 03S0478 01566000 BNE @RF00478 03S0478 01567000 * DO; 03S0479 01568000 * STAJBNM=ERRIND;/* PUT IN ERROR 01569000 * INDICATOR */ 01570000 MVC STAJBNM(8,AWSAPTR),@CC02508 03S0480 01571000 * DO;/* SETRP 03S0481 01572000 * RETADDR(AHLECPID)RC(SDWARETY) */ 01573000 * RESPECIFY 03S0482 01574000 * (GPR00P, 03S0482 01575000 * GPR01P, 03S0482 01576000 * GPR14P, 03S0482 01577000 * GPR15P) RSTD; 03S0482 01578000 * GPR01P->SDWARCDE=SDWARETY;/* 01579000 * STORE RC INTO SDWA */ 01580000 MVI SDWARCDE(GPR01P),X'04' 03S0483 01581000 * GPR01P->SDWARTYA=ADDR(AHLECPID); 01582000 LA @08,AHLECPID 03S0484 01583000 ST @08,SDWARTYA(,GPR01P) 03S0484 01584000 * /* SAVE RETRY ADDRESS */ 01585000 * RESPECIFY 03S0485 01586000 * (GPR00P, 03S0485 01587000 * GPR01P, 03S0485 01588000 * GPR14P, 03S0485 01589000 * GPR15P) UNRSTD; 03S0485 01590000 * END; 03S0486 01591000 * MCAERROR=OFF; 03S0487 01592000 NI MCAERROR(AWSAPTR),B'11111011' 03S0487 01593000 * R14=SVR14FRR;/* RESTORE RTM RETURN 01594000 * ADDRESS */ 01595000 L R14,SVR14FRR(,R9PARM) 03S0488 01596000 * GEN SETS(R14) EXIT 03S0489 01597000 * (BR R14 RETURN TO CALLER); 01598000 BR R14 RETURN TO CALLER 01599000 * END; 03S0490 01600000 * ELSE 03S0491 01601000 * GO TO UNRECERR; 03S0491 01602000 * ELSE /* NOT STAE SO TRY RNIO */ 01603000 * IF MCARNIO=ON THEN 03S0492 01604000 B @RC00451 03S0492 01605000 @RF00451 TM MCARNIO(AWSAPTR),B'10000000' 03S0492 01606000 BNO @RF00492 03S0492 01607000 * IF MCATRL5=FRRB THEN/* CK FOR BTU */ 01608000 CLI MCATRL5(AWSAPTR),8 03S0493 01609000 BNE @RF00493 03S0493 01610000 * DO; 03S0494 01611000 * RNIOBTU=ERRIND;/* RNIO BTU FIELD */ 01612000 MVC RNIOBTU(20,AWSAPTR),@CC02508 03S0495 01613000 * DO; /* SETRP 03S0496 01614000 * RETADDR(AHLRSTAK)RC(SDWARETY) */ 01615000 * RESPECIFY 03S0497 01616000 * (GPR00P, 03S0497 01617000 * GPR01P, 03S0497 01618000 * GPR14P, 03S0497 01619000 * GPR15P) RSTD; 03S0497 01620000 * GPR01P->SDWARCDE=SDWARETY;/* STORE 01621000 * RC INTO SDWA */ 01622000 MVI SDWARCDE(GPR01P),X'04' 03S0498 01623000 * GPR01P->SDWARTYA=ADDR(AHLRSTAK);/* 01624000 * SAVE RETRY ADDRESS */ 01625000 LA @08,AHLRSTAK 03S0499 01626000 ST @08,SDWARTYA(,GPR01P) 03S0499 01627000 * RESPECIFY 03S0500 01628000 * (GPR00P, 03S0500 01629000 * GPR01P, 03S0500 01630000 * GPR14P, 03S0500 01631000 * GPR15P) UNRSTD; 03S0500 01632000 * END; 03S0501 01633000 * MCAERROR=OFF; 03S0502 01634000 NI MCAERROR(AWSAPTR),B'11111011' 03S0502 01635000 * R14=SVR14FRR;/* RESTORE RTM RETURN 01636000 * ADDRESS */ 01637000 L R14,SVR14FRR(,R9PARM) 03S0503 01638000 * GEN SETS(R14) EXIT 03S0504 01639000 * (BR R14 RETURN TO CALLER); 03S0504 01640000 BR R14 RETURN TO CALLER 01641000 * END; 03S0505 01642000 * ELSE 03S0506 01643000 * DO; 03S0506 01644000 B @RC00493 03S0506 01645000 @RF00493 DS 0H 03S0507 01646000 * IF MCATRL5=FRRA THEN 03S0507 01647000 CLI MCATRL5(AWSAPTR),32 03S0507 01648000 BNE @RF00507 03S0507 01649000 * RNIOASCB=ERRIND;/* RNIO ASCB 03S0508 01650000 * ADDRESS */ 01651000 MVC RNIOASCB(4,AWSAPTR),@CC02508 03S0508 01652000 * ELSE 03S0509 01653000 * IF MCATRL5^=FRRJ THEN 03S0509 01654000 B @RC00507 03S0509 01655000 @RF00507 CLI MCATRL5(AWSAPTR),16 03S0509 01656000 BNE @RT00509 03S0509 01657000 * GO TO UNRECERR; 03S0510 01658000 * RNIOJBNM=ERRIND;/* RNIO JOBNAME */ 01659000 @RC00507 MVC RNIOJBNM(8,AWSAPTR),@CC02508 03S0511 01660000 * DO; /* SETRP 03S0512 01661000 * RETADDR(AHLRBTU)RC(SDWARETY) */ 01662000 * RESPECIFY 03S0513 01663000 * (GPR00P, 03S0513 01664000 * GPR01P, 03S0513 01665000 * GPR14P, 03S0513 01666000 * GPR15P) RSTD; 03S0513 01667000 * GPR01P->SDWARCDE=SDWARETY;/* STORE 01668000 * RC INTO SDWA */ 01669000 MVI SDWARCDE(GPR01P),X'04' 03S0514 01670000 * GPR01P->SDWARTYA=ADDR(AHLRBTU);/* 01671000 * SAVE RETRY ADDRESS */ 01672000 LA @08,AHLRBTU 03S0515 01673000 ST @08,SDWARTYA(,GPR01P) 03S0515 01674000 * RESPECIFY 03S0516 01675000 * (GPR00P, 03S0516 01676000 * GPR01P, 03S0516 01677000 * GPR14P, 03S0516 01678000 * GPR15P) UNRSTD; 03S0516 01679000 * END; 03S0517 01680000 * MCAERROR=OFF; 03S0518 01681000 NI MCAERROR(AWSAPTR),B'11111011' 03S0518 01682000 * R14=SVR14FRR;/* RESTORE RTM RETURN 01683000 * ADDRESS */ 01684000 L R14,SVR14FRR(,R9PARM) 03S0519 01685000 * GEN SETS(R14) EXIT 03S0520 01686000 * (BR R14 RETURN TO CALLER); 03S0520 01687000 BR R14 RETURN TO CALLER 01688000 * END; 03S0521 01689000 * ELSE 03S0522 01690000 * GO TO UNRECERR; 03S0522 01691000 * RFY 03S0523 01692000 * R14 UNRSTD; 03S0523 01693000 @RC00492 DS 0H 03S0523 01694000 @RC00451 DS 0H 03S0523 01695000 @RC00421 DS 0H 03S0523 01696000 @RC00404 DS 0H 03S0524 01697000 * END; 03S0524 01698000 * END; 02S0525 01699000 @RC00400 DS 0H 02S0526 01700000 * RFY 02S0526 01701000 * R14 RSTD; 02S0526 01702000 @RC00396 DS 0H 02S0526 01703000 @RC00387 DS 0H 02S0526 01704000 @RC00374 DS 0H 02S0526 01705000 @RC00354 DS 0H 02S0527 01706000 * R14=SVR14FRR; /* RESTORE RTM RETURN ADDRESS */ 01707000 L R14,SVR14FRR(,R9PARM) 02S0527 01708000 * GEN SETS(R14) EXIT(BR R14 RETURN TO CALLER); 02S0528 01709000 BR R14 RETURN TO CALLER 01710000 * RFY 02S0529 01711000 * R14 UNRSTD; 02S0529 01712000 * END; 02S0530 01713000 *DMPMOD: 02S0531 01714000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0531 01715000 * 02S0531 01716000 DMPMOD DS 0H 02S0532 01717000 * /*****************************************************************/ 01718000 * /* */ 01719000 * /* THIS ROUTINE IS CALLED WHEN THE AHLTFOR FRR ROUTINE IS GOING */ 01720000 * /* TO TERMINATE TRACING ON THE ENTIRE MODULE OR ON ONE EVENT. */ 01721000 * /* THIS ROUTINE ISSUES AND SDUMP TO DUMP THE SDWA, MCRWSA AND */ 01722000 * /* MCAWSA PLUS THE MODULE ITSELF AND THEN ISSUES A TERMINATION */ 01723000 * /* MESSAGE FOR THE EVENT BEING TERMINATED OR FOR THE EVENT */ 01724000 * /* CAUSING THE ENTIRE MODULE TO BE TERMINATED (DEBUG = YES). */ 01725000 * /* */ 01726000 * /*****************************************************************/ 01727000 * 02S0532 01728000 * RETSAV2=R14; /* SAVE RETURN ADDRESS */ 01729000 ST R14,RETSAV2(,AWSAPTR) 02S0532 01730000 * MCQESAV=R0; /* SAVE MCQE POINTER SINCE SDUMP 01731000 * WILL DESTROY IT */ 01732000 ST R0,MCQESAV(,AWSAPTR) 02S0533 01733000 * SDWASAV=SDWAPTR; /* SAVE THE SDWA POINTER SINCE 01734000 * REG 1 IS USED FOR THE WTO 01735000 * PLIST */ 01736000 ST SDWAPTR,SDWASAV(,AWSAPTR) 02S0534 01737000 * LSTADR=ADDR(@ENDDATA); /* LOAD IN THE ENDING ADDRESS */ 01738000 LA @08,@ENDDATA 02S0535 01739000 STCM @08,7,LSTADR 02S0535 01740000 * R0=ADDR(DMPLIST); /* LOAD PLIST FOR DUMP MODULE */ 01741000 LA R0,DMPLIST 02S0536 01742000 * CALL AHLDMPMD; /* CALL THE DUMPING ROUTINE */ 01743000 L @15,PCTDMPMD(,PCTPTR) 02S0537 01744000 BALR @14,@15 02S0537 01745000 * WTOPARM=WTOCONS; /* MOVE THE CONSTANTS INTO THE 01746000 * WTO PLIST */ 01747000 MVC WTOPARM(16,AWSAPTR),@CC02430 02S0538 01748000 * WTODIND=R15RC; /* MOVE IN THE SDUMP INDICATOR 01749000 * RETRUNDE BY AHLDMPMD */ 01750000 STH R15RC,WTODIND(,AWSAPTR) 02S0539 01751000 * IF MCREID=IRASRM THEN /* DETERMINE WHICH HOOK SO WE CAN 01752000 * MOVE IN THE APPROPRIATE 02S0540 01753000 * ROUTINE NAME */ 01754000 L @08,MCAMCR(,AWSAPTR) 02S0540 01755000 CLC MCREID(2,@08),@CH02166 02S0540 01756000 BNE @RF00540 02S0540 01757000 * WTONAME=SRMNM; 02S0541 01758000 MVC WTONAME(4,AWSAPTR),@CC02437 02S0541 01759000 * ELSE 02S0542 01760000 * IF MCREID=ISPTPIO1|MCREID=ISPTPIO2 THEN/* CHECK FOR RNIO */ 01761000 B @RC00540 02S0542 01762000 @RF00540 L @08,MCAMCR(,AWSAPTR) 02S0542 01763000 CLC MCREID(2,@08),@CH02153 02S0542 01764000 BE @RT00542 02S0542 01765000 CLC MCREID(2,@08),@CH02155 02S0542 01766000 BNE @RF00542 02S0542 01767000 @RT00542 DS 0H 02S0543 01768000 * WTONAME=RNIONM; 02S0543 01769000 MVC WTONAME(4,AWSAPTR),@CC02433 02S0543 01770000 * ELSE 02S0544 01771000 * WTONAME=FRRNM; /* BY DEFAULT IT IS AN FRR HOOK */ 01772000 B @RC00542 02S0544 01773000 @RF00542 MVC WTONAME(4,AWSAPTR),@CC02435 02S0544 01774000 * PARMPTR=ADDR(WTOPARM); /* LOAD PLIST POINTER INTO 02S0545 01775000 * REGISTER */ 01776000 @RC00542 DS 0H 02S0545 01777000 @RC00540 LA PARMPTR,WTOPARM(,AWSAPTR) 02S0545 01778000 * CALL AHLWTOMD; 02S0546 01779000 L @15,PCTWTOMD(,PCTPTR) 02S0546 01780000 BALR @14,@15 02S0546 01781000 * R0=MCQESAV; /* RESTORE MCQE ADDRESS */ 01782000 L R0,MCQESAV(,AWSAPTR) 02S0547 01783000 * SDWAPTR=SDWASAV; /* RESTORE SDWA POINTER */ 01784000 L SDWAPTR,SDWASAV(,AWSAPTR) 02S0548 01785000 * R14=RETSAV2; /* RESTORE RETURN ADDRESS */ 01786000 L R14,RETSAV2(,AWSAPTR) 02S0549 01787000 * GEN EXIT(BR R14 RETURN TO CALLER); 02S0550 01788000 BR R14 RETURN TO CALLER 01789000 * RFY 02S0551 01790000 * R14 UNRSTD; 02S0551 01791000 * END DMPMOD; 02S0552 01792000 @EL00002 DS 0H 02S0552 01793000 @EF00002 DS 0H 02S0552 01794000 @ER00002 BR @14 02S0552 01795000 *CATERR: 02S0553 01796000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0553 01797000 CATERR DS 0H 02S0554 01798000 * RFY 02S0554 01799000 * R14 RSTD; 02S0554 01800000 * 02S0554 01801000 * /*****************************************************************/ 01802000 * /* */ 01803000 * /* IF AN UNRECOVERABLE ERROR IS ENCOUNTERED AND DEBUG = NO THIS */ 01804000 * /* ROUTINE WILL BE CALLED TO STACK THE ERROR RECORD, TURN OFF THE*/ 01805000 * /* ACTICE FUNCTION BIT FOR THE EVENT BEING TRACED, ISSUE THE */ 01806000 * /* SETEVENT MACRO TO DISABLE TRACING ON THE EVENT(S) BEING TRACED*/ 01807000 * /* WHEN THE ERROR OCCURRED, CALL THE DUMPING ROUTINE AND THEN */ 01808000 * /* ISSUE THE CODE THAT WILL RETURN TO MCIH WITHOUT TERMINATING */ 01809000 * /* ALL OF GTF. IF FRR OR E/STAE WAS BEING TRACED, TRACING MUST BE*/ 01810000 * /* TERMINATED FOR BOTH OF THEM SINCE THEY ARE BOTH STARTED WITH */ 01811000 * /* THE SAME TRACE OPTION KEYWORD. */ 01812000 * /* */ 01813000 * /*****************************************************************/ 01814000 * 02S0555 01815000 * RETSAV1=R14; /* SAVE RETURN ADDRESS */ 01816000 ST R14,RETSAV1(,AWSAPTR) 02S0555 01817000 * RFY 02S0556 01818000 * R14 UNRSTD; 02S0556 01819000 * ERRASCB=CATERIND; /* INDICATE CATAS ERROR IN FIRST 01820000 * OF RECORD */ 01821000 MVC ERRASCB(2,AWSAPTR),@CB02512 02S0557 01822000 * SDWASAV=SDWAPTR; /* SAVE SDWA POINTER SINCE STACK 01823000 * AND SETEVENT DESTROY IT */ 01824000 ST SDWAPTR,SDWASAV(,AWSAPTR) 02S0558 01825000 * MCQESAV=R0; /* SAVE MCQE ADDR SINCE STACK MAY 01826000 * DESTROY IT */ 01827000 ST R0,MCQESAV(,AWSAPTR) 02S0559 01828000 * DO; /* AHLSTACK DLENGTH(DEFLGTH)AID(A 01829000 * IDC)FID(FIDC) */ 01830000 * 02S0560 01831000 * /***************************************************************/ 01832000 * /* */ 01833000 * /* THE FOLLOWING CODE IS GENERATED BY THE AHLSTACK MACRO. THIS */ 01834000 * /* CODE BUILDS THE GTF RECORD PREFIX AND THEN CALLS AHLSBLOK TO*/ 01835000 * /* STACK THE RECORD. */ 01836000 * /* */ 01837000 * /***************************************************************/ 01838000 * 02S0561 01839000 * RFY 02S0561 01840000 * (AHLRECPR, 02S0561 01841000 * AHLSBREG, 02S0561 01842000 * AHLRETCD) RSTD; 02S0561 01843000 * IF OPTTIME='1'B THEN /* CHECK FOR TIMESTAMP REQUESTED */ 01844000 TM OPTTIME(PCTPTR),B'00000001' 02S0562 01845000 BNO @RF00562 02S0562 01846000 * DO; /* YES, TIMESTAMP */ 01847000 * AHLRECPR=ADDR(MCARECPR); /* SETUP ADDRESSIBILITY TO PREFIX 01848000 * FOR PREFIX WITH TIMESTAMP */ 01849000 LA AHLRECPR,MCARECPR(,AWSAPTR) 02S0564 01850000 * AHLGLGTH=DEFLGTH+16; /* SET LENGTH TO INCLUDE *** 01851000 * DLENGTH *** PLUS TIMESTAMP 01852000 * PREFIX */ 01853000 MVC AHLGLGTH(2,AHLRECPR),@CH02693 02S0565 01854000 * GEN(STCK AHLGTST(AHLRECPR) PUT TOD CLOCK VALUE INTO PREFIX ) 01855000 * SETS(AHLGTST) NOEXIT SEQFLOW NOFLOWS; 02S0566 01856000 STCK AHLGTST(AHLRECPR) PUT TOD CLOCK VALUE INTO PREFIX 01857000 * AHLGEIDL=MCAMCR->MCREID; /* *** EID *** NOT SPECIFIED PUT 01858000 * DEFAULT INTO PREFIX */ 01859000 L @08,MCAMCR(,AWSAPTR) 02S0567 01860000 LH @08,MCREID(,@08) 02S0567 01861000 N @08,@CF02696 02S0567 01862000 STH @08,AHLGEIDL(,AHLRECPR) 02S0567 01863000 * END; 02S0568 01864000 * ELSE /* NO TIMESTAMP TO BE DONE, BUILD 01865000 * SHORT PREFIX */ 01866000 * DO; 02S0569 01867000 B @RC00562 02S0569 01868000 @RF00562 DS 0H 02S0570 01869000 * AHLRECPR=ADDR(MCARECPR)+8;/* SETUP ADDRESSIBILITY TO FOR 01870000 * SHORT PREFIX WITHOUT TIMESTAMP*/ 01871000 LA AHLRECPR,MCARECPR(,AWSAPTR) 02S0570 01872000 AL AHLRECPR,@CF00058 02S0570 01873000 * AHLGLGTH=DEFLGTH+8; /* PUT TOTAL RECORD LENGTH INTO 01874000 * PREFIX *** DLENGTH *** PLUS 01875000 * PREFIX LENGTH */ 01876000 MVC AHLGLGTH(2,AHLRECPR),@CH02691 02S0571 01877000 * AHLGEIDS=MCAMCR->MCREID; /* *** EID *** NOT SPECIFIED PUT 01878000 * DEFAULT INTO PREFIX */ 01879000 L @08,MCAMCR(,AWSAPTR) 02S0572 01880000 LH @08,MCREID(,@08) 02S0572 01881000 N @08,@CF02696 02S0572 01882000 STH @08,AHLGEIDS(,AHLRECPR) 02S0572 01883000 * END; 02S0573 01884000 * AHLGRES=0; /* ZERO OUT FOR QSAM 02S0574 01885000 * COMPATIBILITY */ 01886000 @RC00562 SLR @08,@08 02S0574 01887000 STH @08,AHLGRES(,AHLRECPR) 02S0574 01888000 * AHLGAID=AIDC; /* PUT *** AID *** INTO PREFIX */ 01889000 MVI AHLGAID(AHLRECPR),X'FF' 02S0575 01890000 * AHLGFID=FIDC; /* PUT *** FID *** INTO PREFIX */ 01891000 MVI AHLGFID(AHLRECPR),X'04' 02S0576 01892000 * AHLRETCD=4; /* SET DEFAULT RETURN CODE */ 01893000 LA AHLRETCD,4 02S0577 01894000 * AHLSBREG=SBLOKRTN; /* GET A STABLE COPY OF AHLSBLOK 01895000 * ADDR */ 01896000 L AHLSBREG,SBLOKRTN(,PCTPTR) 02S0578 01897000 * IF AHLSBREG^=0 THEN /* CHECK TO SEE IF AHLSBLOK IS 01898000 * AVAILABLE */ 01899000 CR AHLSBREG,@08 02S0579 01900000 BE @RF00579 02S0579 01901000 * CALL AHLSBLOK; /* YES, SO CALL AHLSBLOK TO BLOCK 01902000 * RECORD */ 01903000 LR @15,AHLSBREG 02S0580 01904000 BALR @14,@15 02S0580 01905000 * RFY 02S0581 01906000 * (AHLRECPR, 02S0581 01907000 * AHLSBREG, 02S0581 01908000 * AHLRETCD) UNRSTD; 02S0581 01909000 @RF00579 DS 0H 02S0582 01910000 * END; 02S0582 01911000 * R0=MCQESAV; /* RESTORE MCQE ADDRESS */ 01912000 L R0,MCQESAV(,AWSAPTR) 02S0583 01913000 * SDWAPTR=SDWASAV; /* REST PTR SINCE DMPMOD WILL 01914000 * SAVE IT */ 01915000 L SDWAPTR,SDWASAV(,AWSAPTR) 02S0584 01916000 * RFY 02S0585 01917000 * (R10WORK, 02S0585 01918000 * R8FRRWRK) RSTD; 02S0585 01919000 * 02S0585 01920000 * /*****************************************************************/ 01921000 * /* */ 01922000 * /* DETERMINE WHICH FUNCTION(S) IS ACTIVE AND TURN OFF ITS */ 01923000 * /* CORRESPONDING BIT(S) IN THE GTFCATF FIELD */ 01924000 * /* */ 01925000 * /*****************************************************************/ 01926000 * 02S0586 01927000 * IF MCREID=STAEID THEN /* CHECK TO SEE IF STAE GATHER 01928000 * ROUTINE */ 01929000 L @11,MCAMCR(,AWSAPTR) 02S0586 01930000 CLC MCREID(2,@11),STAEID 02S0586 01931000 BNE @RF00586 02S0586 01932000 * TRAILSAV=RROFFBIT; /* SET TO SAME BIT AS FRR FOR C&S 01933000 * LOGIC */ 01934000 MVC TRAILSAV(4,R9PARM),@CB02522 02S0587 01935000 *CKBIT: 02S0588 01936000 * R8FRRWRK=TRAILSAV; /* GET TRAIL BIT THAT INDICATES 01937000 * GATHER ROUTINE THAT IS IN 01938000 * CONTROL */ 01939000 @RF00586 DS 0H 02S0588 01940000 CKBIT L R8FRRWRK,TRAILSAV(,R9PARM) 02S0588 01941000 * R10WORK=PCTCATF; /* GET BITS FOR CURRENT TRACT 01942000 * FUNCTIONS */ 01943000 L R10WORK,PCTCATF(,PCTPTR) 02S0589 01944000 * IF(R10WORK&R8FRRWRK)^=0 THEN /* CHECK TO SEE IF GATHER 02S0590 01945000 * FUNCTIONS CURRENT BIT IS STILL 01946000 * ON */ 01947000 LR @11,R10WORK 02S0590 01948000 NR @11,R8FRRWRK 02S0590 01949000 LTR @11,@11 02S0590 01950000 BZ @RF00590 02S0590 01951000 * DO; /* YES */ 01952000 * R8FRRWRK=R8FRRWRK&&R10WORK; /* TURN OFF CURRENT TO PREPARE 01953000 * FOR C&S */ 01954000 XR R8FRRWRK,R10WORK 02S0592 01955000 * CS(R10WORK,R8FRRWRK,PCTCATF);/* CHECK FOR SAME STATUS */ 01956000 CS R10WORK,@08,PCTCATF(PCTPTR) 02S0593 01957000 * BC(4,CKBIT); /* IF CHANGED START ALL OVER 01958000 * AGAIN */ 01959000 BC 4,CKBIT 02S0594 01960000 * CALL DMPMOD; /* CALL TO GET SDUMP */ 01961000 BAL @14,DMPMOD 02S0595 01962000 * RFY 02S0596 01963000 * (R10WORK, 02S0596 01964000 * R8FRRWRK) UNRSTD; 02S0596 01965000 * 02S0596 01966000 * /*************************************************************/ 01967000 * /* */ 01968000 * /* DISABLE THE EVENTS BEING TRACED WHEN THE ERROR OCCURRED */ 01969000 * /* */ 01970000 * /*************************************************************/ 01971000 * 02S0597 01972000 * IF(MCREID=STAEID)|(MCREID=FRREID) THEN/* CHECK EID */ 01973000 L @08,MCAMCR(,AWSAPTR) 02S0597 01974000 CLC MCREID(2,@08),STAEID 02S0597 01975000 BE @RT00597 02S0597 01976000 CLC MCREID(2,@08),FRREID 02S0597 01977000 BNE @RF00597 02S0597 01978000 @RT00597 DS 0H 02S0598 01979000 * DO; 02S0598 01980000 * DO; /* SETEVENT NAME('GTF')MCQE(MCQE) 01981000 * ACTION(DISABLE)EIDAD(FRREIDS)E 01982000 * IDNO(2) */ 01983000 * 02S0599 01984000 * /*******************************************************/ 01985000 * /* */ 01986000 * /* THE FOLLOWING SECTION OF CODE IS GENERATED BY THE */ 01987000 * /* SETEVENT MACRO. THIS CODE WILL BE EITHER AN */ 01988000 * /* INITIALIZED PARAMETER LIST, OR IF IT IS THE RESULT */ 01989000 * /* OF STANDARD OR EXECUTE FORM IT WILL FILL in the */ 01990000 * /* list, GENERATE ALL LINKAGES AND CALL THE PROPER */ 01991000 * /* sERVICE, EITHER AHLSETEV OR AHLSETD */ 01992000 * /* */ 01993000 * /*******************************************************/ 01994000 * 02S0600 01995000 * DCL 02S0600 01996000 * AHLPPTR REG(1) PTR(31) RSTD;/* PARAMETER LIST ADDRESS*/ 01997000 * DCL 02S0601 01998000 * AHLSETEV ENTRY OPTIONS(EXIT,SEQFLOW) BASED(MCHSETE) 01999000 * VALRG(0); /* ENTRY FOR ADD ACTIVAT,FREE */ 02000000 * DCL 02S0602 02001000 * AHLSETD ENTRY OPTIONS(EXIT,SEQFLOW) BASED(MCHSETD) 02002000 * VALRG(0); /* ENTRY FOR DISABLE AND CHANGE */ 02003000 * DCL 02S0603 02004000 * 1 SEPL BASED(AHLPPTR) BDY(WORD),/* DSECT PARAMETER 02005000 * LIST */ 02006000 * 2 SEFG PTR(8), /* ACTION GLAGS */ 02007000 * 2 * PTR(8), 02S0603 02008000 * 2 SEEN PTR(8), /* EID COUNT */ 02009000 * 2 SECN PTR(8), /* CLASS COUNT */ 02010000 * 2 SENM CHAR(8), /* APPLICATION NMAE */ 02011000 * 2 SEEL PTR(31), /* ADDRESS OF LIST OF EIDS */ 02012000 * 2 SECL PTR(31), /* ADDRESS OF LIST OF CLASSES */ 02013000 * 2 SEMC PTR(31); /* MCQE ADDRESS */ 02014000 * DCL 02S0604 02015000 * 1 SEPL0027 STATIC LOCAL BDY(WORD),/* ACTUAL PLIST FOR 02016000 * STANDARD INVOCATION */ 02017000 * 2 SEFG0027 PTR(8), 02S0604 02018000 * 2 * PTR(8), 02S0604 02019000 * 2 SEEN0027 PTR(8), 02S0604 02020000 * 2 SECN0027 PTR(8), 02S0604 02021000 * 2 SENM0027 CHAR(8), 02S0604 02022000 * 2 SEEL0027 PTR(31), 02S0604 02023000 * 2 SECL0027 PTR(31), 02S0604 02024000 * 2 SEMC0027 PTR(31); 02S0604 02025000 * AHLPPTR=ADDR(SEPL0027);/* INIT PLIST PTR */ 02026000 LA AHLPPTR,SEPL0027 02S0605 02027000 * SEPL=SEPL&&SEPL; /* ZERO OUT PLIST */ 02028000 XC SEPL(24,AHLPPTR),SEPL(AHLPPTR) 02S0606 02029000 * SEMC=ADDR(MCQE); /* INIT MCQE PTR */ 02030000 ST R0,SEMC(,AHLPPTR) 02S0607 02031000 * SENM='GTF'; /* MOVE IN NAME */ 02032000 MVI SENM+3(AHLPPTR),C' ' 02S0608 02033000 MVC SENM+4(4,AHLPPTR),SENM+3(AHLPPTR) 02S0608 02034000 MVC SENM(3,AHLPPTR),@CC02663 02S0608 02035000 * SEFG=32; /* MOVE IN FLAGS */ 02036000 MVI SEFG(AHLPPTR),X'20' 02S0609 02037000 * SEEL=ADDR(FRREIDS); /* SET EID LIST ADDR */ 02038000 LA @08,FRREIDS 02S0610 02039000 ST @08,SEEL(,AHLPPTR) 02S0610 02040000 * SEEN=2; /* SET TO VALUE SPECIFIED */ 02041000 MVI SEEN(AHLPPTR),X'02' 02S0611 02042000 * CALL AHLSETD; /* CALL SERVICE */ 02043000 L @08,CVTPTR 02S0612 02044000 L @08,CVTGTFA-1(,@08) 02S0612 02045000 L @15,MCHSETD(,@08) 02S0612 02046000 BALR @14,@15 02S0612 02047000 * END; 02S0613 02048000 * END; 02S0614 02049000 * ELSE 02S0615 02050000 * IF(MCREID=REID1)|(MCREID=REID2) THEN/* CHECK EID */ 02051000 B @RC00597 02S0615 02052000 @RF00597 L @08,MCAMCR(,AWSAPTR) 02S0615 02053000 CLC MCREID(2,@08),REID1 02S0615 02054000 BE @RT00615 02S0615 02055000 CLC MCREID(2,@08),REID2 02S0615 02056000 BNE @RF00615 02S0615 02057000 @RT00615 DS 0H 02S0616 02058000 * DO; 02S0616 02059000 * DO; /* SETEVENT NAME('GTF')MCQE(MCQE) 02060000 * ACTION(DISABLE)EIDAD(RNIOEIDS) 02061000 * EIDNO(2) */ 02062000 * 02S0617 02063000 * /*****************************************************/ 02064000 * /* */ 02065000 * /* THE FOLLOWING SECTION OF CODE IS GENERATED BY THE */ 02066000 * /* SETEVENT MACRO. THIS CODE WILL BE EITHER AN */ 02067000 * /* INITIALIZED PARAMETER LIST, OR IF IT IS THE RESULT*/ 02068000 * /* OF STANDARD OR EXECUTE FORM IT WILL FILL in the */ 02069000 * /* list, GENERATE ALL LINKAGES AND CALL THE PROPER */ 02070000 * /* sERVICE, EITHER AHLSETEV OR AHLSETD */ 02071000 * /* */ 02072000 * /*****************************************************/ 02073000 * 02S0618 02074000 * DCL 02S0618 02075000 * 1 SEPL0028 STATIC LOCAL BDY(WORD),/* ACTUAL PLIST 02076000 * FOR STANDARD INVOCATION */ 02077000 * 2 SEFG0028 PTR(8), 02S0618 02078000 * 2 * PTR(8), 02S0618 02079000 * 2 SEEN0028 PTR(8), 02S0618 02080000 * 2 SECN0028 PTR(8), 02S0618 02081000 * 2 SENM0028 CHAR(8), 02S0618 02082000 * 2 SEEL0028 PTR(31), 02S0618 02083000 * 2 SECL0028 PTR(31), 02S0618 02084000 * 2 SEMC0028 PTR(31); 02S0618 02085000 * AHLPPTR=ADDR(SEPL0028);/* INIT PLIST PTR */ 02086000 LA AHLPPTR,SEPL0028 02S0619 02087000 * SEPL=SEPL&&SEPL; /* ZERO OUT PLIST */ 02088000 XC SEPL(24,AHLPPTR),SEPL(AHLPPTR) 02S0620 02089000 * SEMC=ADDR(MCQE); /* INIT MCQE PTR */ 02090000 ST R0,SEMC(,AHLPPTR) 02S0621 02091000 * SENM='GTF'; /* MOVE IN NAME */ 02092000 MVI SENM+3(AHLPPTR),C' ' 02S0622 02093000 MVC SENM+4(4,AHLPPTR),SENM+3(AHLPPTR) 02S0622 02094000 MVC SENM(3,AHLPPTR),@CC02663 02S0622 02095000 * SEFG=32; /* MOVE IN FLAGS */ 02096000 MVI SEFG(AHLPPTR),X'20' 02S0623 02097000 * SEEL=ADDR(RNIOEIDS);/* SET EID LIST ADDR */ 02098000 LA @08,RNIOEIDS 02S0624 02099000 ST @08,SEEL(,AHLPPTR) 02S0624 02100000 * SEEN=2; /* SET TO VALUE SPECIFIED */ 02101000 MVI SEEN(AHLPPTR),X'02' 02S0625 02102000 * CALL AHLSETD; /* CALL SERVICE */ 02103000 L @08,CVTPTR 02S0626 02104000 L @08,CVTGTFA-1(,@08) 02S0626 02105000 L @15,MCHSETD(,@08) 02S0626 02106000 BALR @14,@15 02S0626 02107000 * END; 02S0627 02108000 * END; 02S0628 02109000 * ELSE 02S0629 02110000 * DO; /* SETEVENT NAME('GTF')MCQE(MCQE) 02111000 * ACTION(DISABLE)EIDAD(MCREID) */ 02112000 * 02S0629 02113000 B @RC00615 02S0629 02114000 @RF00615 DS 0H 02S0630 02115000 * /*******************************************************/ 02116000 * /* */ 02117000 * /* THE FOLLOWING SECTION OF CODE IS GENERATED BY THE */ 02118000 * /* SETEVENT MACRO. THIS CODE WILL BE EITHER AN */ 02119000 * /* INITIALIZED PARAMETER LIST, OR IF IT IS THE RESULT */ 02120000 * /* OF STANDARD OR EXECUTE FORM IT WILL FILL in the */ 02121000 * /* list, GENERATE ALL LINKAGES AND CALL THE PROPER */ 02122000 * /* sERVICE, EITHER AHLSETEV OR AHLSETD */ 02123000 * /* */ 02124000 * /*******************************************************/ 02125000 * 02S0630 02126000 * DCL 02S0630 02127000 * 1 SEPL0029 STATIC LOCAL BDY(WORD),/* ACTUAL PLIST FOR 02128000 * STANDARD INVOCATION */ 02129000 * 2 SEFG0029 PTR(8), 02S0630 02130000 * 2 * PTR(8), 02S0630 02131000 * 2 SEEN0029 PTR(8), 02S0630 02132000 * 2 SECN0029 PTR(8), 02S0630 02133000 * 2 SENM0029 CHAR(8), 02S0630 02134000 * 2 SEEL0029 PTR(31), 02S0630 02135000 * 2 SECL0029 PTR(31), 02S0630 02136000 * 2 SEMC0029 PTR(31); 02S0630 02137000 * AHLPPTR=ADDR(SEPL0029);/* INIT PLIST PTR */ 02138000 LA AHLPPTR,SEPL0029 02S0631 02139000 * SEPL=SEPL&&SEPL; /* ZERO OUT PLIST */ 02140000 XC SEPL(24,AHLPPTR),SEPL(AHLPPTR) 02S0632 02141000 * SEMC=ADDR(MCQE); /* INIT MCQE PTR */ 02142000 ST R0,SEMC(,AHLPPTR) 02S0633 02143000 * SENM='GTF'; /* MOVE IN NAME */ 02144000 MVI SENM+3(AHLPPTR),C' ' 02S0634 02145000 MVC SENM+4(4,AHLPPTR),SENM+3(AHLPPTR) 02S0634 02146000 MVC SENM(3,AHLPPTR),@CC02663 02S0634 02147000 * SEFG=32; /* MOVE IN FLAGS */ 02148000 MVI SEFG(AHLPPTR),X'20' 02S0635 02149000 * SEEL=ADDR(MCREID); /* SET EID LIST ADDR */ 02150000 L @08,MCAMCR(,AWSAPTR) 02S0636 02151000 LA @08,MCREID(,@08) 02S0636 02152000 ST @08,SEEL(,AHLPPTR) 02S0636 02153000 * SEEN=1; /* SET TO DEFAULT */ 02154000 MVI SEEN(AHLPPTR),X'01' 02S0637 02155000 * CALL AHLSETD; /* CALL SERVICE */ 02156000 L @08,CVTPTR 02S0638 02157000 L @08,CVTGTFA-1(,@08) 02S0638 02158000 L @15,MCHSETD(,@08) 02S0638 02159000 BALR @14,@15 02S0638 02160000 * END; 02S0639 02161000 * END; 02S0640 02162000 @RC00615 DS 0H 02S0640 02163000 @RC00597 DS 0H 02S0641 02164000 * SDWAPTR=SDWASAV; /* RESTORE SDWA POINTER */ 02165000 * 02S0641 02166000 @RF00590 L SDWAPTR,SDWASAV(,AWSAPTR) 02S0641 02167000 * /*****************************************************************/ 02168000 * /* */ 02169000 * /* IF ALL FUNCTIONS ARE DISABLED TERMINATE GTF, OTHERWISE RETURN */ 02170000 * /* TO MCIH */ 02171000 * /* */ 02172000 * /*****************************************************************/ 02173000 * 02S0642 02174000 * RFY 02S0642 02175000 * R14 RSTD; 02S0642 02176000 * IF PCTCATF=0 THEN /* CHECK TO SEE IF ALL FUNCTIONS 02177000 * DISABLED */ 02178000 L @15,PCTCATF(,PCTPTR) 02S0643 02179000 LTR @15,@15 02S0643 02180000 BNZ @RF00643 02S0643 02181000 * DO; 02S0644 02182000 * DO; /* SETRP RC(SDWACWT) */ 02183000 * RESPECIFY 02S0646 02184000 * (GPR00P, 02S0646 02185000 * GPR01P, 02S0646 02186000 * GPR14P, 02S0646 02187000 * GPR15P) RSTD; 02S0646 02188000 * GPR01P->SDWARCDE=SDWACWT; /* SAVE RC VALUE */ 02189000 MVI SDWARCDE(GPR01P),X'00' 02S0647 02190000 * RESPECIFY 02S0648 02191000 * (GPR00P, 02S0648 02192000 * GPR01P, 02S0648 02193000 * GPR14P, 02S0648 02194000 * GPR15P) UNRSTD; 02S0648 02195000 * END; 02S0649 02196000 * R14=SVR14FRR; /* RESTORE ADDRESS TO RETURN TO 02197000 * RTM */ 02198000 L R14,SVR14FRR(,R9PARM) 02S0650 02199000 * END; 02S0651 02200000 * ELSE /* STILL SOME FUNCTIONS RUNNING */ 02201000 * DO; 02S0652 02202000 B @RC00643 02S0652 02203000 @RF00643 DS 0H 02S0653 02204000 * DO; /* SETRP 02S0653 02205000 * RETADDR(MCIHRET)RC(SDWARETY) */ 02206000 * RESPECIFY 02S0654 02207000 * (GPR00P, 02S0654 02208000 * GPR01P, 02S0654 02209000 * GPR14P, 02S0654 02210000 * GPR15P) RSTD; 02S0654 02211000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 02212000 MVI SDWARCDE(GPR01P),X'04' 02S0655 02213000 * GPR01P->SDWARTYA=ADDR(MCIHRET);/* SAVE RETRY ADDRESS */ 02214000 L @08,SVR14NRM(,R9PARM) 02S0656 02215000 ST @08,SDWARTYA(,GPR01P) 02S0656 02216000 * RESPECIFY 02S0657 02217000 * (GPR00P, 02S0657 02218000 * GPR01P, 02S0657 02219000 * GPR14P, 02S0657 02220000 * GPR15P) UNRSTD; 02S0657 02221000 * END; 02S0658 02222000 * RFY 02S0659 02223000 * R10WORK RSTD; 02S0659 02224000 * R14=SVR14FRR; /* RESTORE RET ADDR RO RETURN TO 02225000 * RTM */ 02226000 L R14,SVR14FRR(,R9PARM) 02S0660 02227000 * GEN SETS(R9PARM,R10WORK) NOEXIT SEQFLOW NOFLOWS; 02S0661 02228000 SETFRR D,WRKREGS=(R9PARM,R10WORK) 02229000 * END; 02S0662 02230000 * GEN SETS(R14) EXIT(BR R14 RETURN TO CALLER); 02S0663 02231000 @RC00643 DS 0H 02S0663 02232000 BR R14 RETURN TO CALLER 02233000 * RFY 02S0664 02234000 * (R10WORK, 02S0664 02235000 * R14) UNRSTD; 02S0664 02236000 * END; 02S0665 02237000 @EL00003 DS 0H 02S0665 02238000 @EF00003 DS 0H 02S0665 02239000 @ER00003 BR @14 02S0665 02240000 @PB00003 DS 0H 02S0665 02241000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 02242000 * GPR00P PTR(31) REG(0), 01S0666 02243000 * GPR01P PTR(31) REG(1), 01S0666 02244000 * GPR14P PTR(31) REG(14), 01S0666 02245000 * GPR15P PTR(31) REG(15); 01S0666 02246000 * DECLARE /* COMMON VARIABLES */ 02247000 * I256C CHAR(256) BASED, 01S0667 02248000 * I031F FIXED(31) BASED, 01S0667 02249000 * I031P PTR(31) BASED, 01S0667 02250000 * I015F FIXED(15) BASED, 01S0667 02251000 * I015P PTR(15) BASED, 01S0667 02252000 * I008P PTR(8) BASED, 01S0667 02253000 * I001C CHAR(1) BASED; 01S0667 02254000 *AHLTFORN: 01S0668 02255000 * END AHLTFOR 01S0668 02256000 * 01S0668 02257000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02258000 */*%INCLUDE SYSUT5 (PROLOG ) */ 02259000 */*@INCLUDE SYSUT5 (FL1 ) */ 02260000 */*%INCLUDE SYSUT5 (DECLS ) */ 02261000 */*%INCLUDE SYSLIB (CVT ) */ 02262000 */*%INCLUDE SYSLIB (GTFPCT ) */ 02263000 */*%INCLUDE SYSLIB (IHAASCB ) */ 02264000 */*%INCLUDE SYSLIB (IHAASVT ) */ 02265000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 02266000 */*%INCLUDE SYSLIB (IHALCCA ) */ 02267000 */*%INCLUDE SYSLIB (IHAPSA ) */ 02268000 */*%INCLUDE SYSLIB (IHASDWA ) */ 02269000 */*%INCLUDE SYSLIB (IHASRB ) */ 02270000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 02271000 */*%INCLUDE SYSLIB (IMDMEDIT) */ 02272000 */*%INCLUDE SYSLIB (MCAWSA ) */ 02273000 */*%INCLUDE SYSLIB (MCHEAD ) */ 02274000 */*%INCLUDE SYSLIB (MCQE ) */ 02275000 */*%INCLUDE SYSLIB (MCRWSA ) */ 02276000 */*%INCLUDE SYSUT5 (SRMMOD ) */ 02277000 */*%INCLUDE SYSUT5 (FRRMOD ) */ 02278000 */*%INCLUDE SYSUT5 (STAMOD ) */ 02279000 */*%INCLUDE SYSUT5 (ESTANORM) */ 02280000 */*%INCLUDE SYSUT5 (STANORM ) */ 02281000 */*%INCLUDE SYSUT5 (RNIOMOD ) */ 02282000 */*%INCLUDE SYSUT5 (EXITMOD ) */ 02283000 */*%INCLUDE SYSUT5 (FOREMOD ) */ 02284000 */*%INCLUDE SYSUT5 (RECOVER ) */ 02285000 */*%INCLUDE SYSUT5 (DMPMOD ) */ 02286000 */*%INCLUDE SYSUT5 (CATERR ) */ 02287000 * 01S0668 02288000 * ; 01S0668 02289000 @DATA DS 0H 02290000 @CH02691 DC H'46' 02291000 @CH02693 DC H'54' 02292000 @CH02153 DC XL2'8100' 02293000 @CH02155 DC XL2'8200' 02294000 @CH02166 DC XL2'4001' 02295000 @DATD DSECT 02296000 DS 0F 02297000 AHLTFOR CSECT 02298000 DS 0F 02299000 @CF00060 DC F'1' 02300000 @CF01055 DC F'6' 02301000 @CF00058 DC F'8' 02302000 @CF02603 DC F'19' 02303000 @CF02497 DC F'20' 02304000 @CF02696 DC XL4'0000FFFF' 02305000 @DATD DSECT 02306000 DS 0D 02307000 @ENDDATD EQU * 02308000 AHLTFOR CSECT 02309000 NOPR ((@ENDDATD-@DATD)*16) 02310000 DS 0F 02311000 @SIZDATD DC AL1(0) 02312000 DC AL3(@ENDDATD-@DATD) 02313000 DS 0D 02314000 TFORBASE DC AL4(AHLTFOR) 02315000 @CC02508 DC C'************************************' 02316000 @CC02430 DC C'FOR TRAC ' 02317000 @CC02504 DC C'N/A ' 02318000 @CC02506 DC C'U/A ' 02319000 @CC02433 DC C'RNIO' 02320000 @CC02435 DC C'RR ' 02321000 @CC02437 DC C'SRM ' 02322000 @CC02663 DC C'GTF' 02323000 @CB02541 DC X'0040000000000000' 02324000 @CB02544 DC X'0020000000000000' 02325000 @CB02547 DC X'0080000000000000' 02326000 @CB02550 DC X'0010000000000000' 02327000 @CB02522 EQU @CB02544 02328000 @CB02512 DC X'EEEE' 02329000 DS CL3 02330000 DMPLIST DS CL12 02331000 ORG DMPLIST 02332000 HDRAD DC AL4(SDMPHDR) 02333000 DUMPADDS DS CL8 02334000 ORG DUMPADDS 02335000 BEGADDR DC AL4(AHLTFOR) 02336000 ENDADDR DS AL4 02337000 ORG ENDADDR 02338000 DLSTEOL DC XL1'80' 02339000 LSTADR DC AL3(@ENDDATA) 02340000 ORG DMPLIST+12 02341000 SDMPHDR DS CL27 02342000 ORG SDMPHDR 02343000 HDRLGH DC AL1(26) 02344000 HDR DC CL26'DUMP OF GTF MODULE AHLTSVC' 02345000 ORG SDMPHDR+27 02346000 DS CL1 02347000 FRREIDS DS CL12 02348000 ORG FRREIDS 02349000 FRREID DC XL2'4003' 02350000 @NM00112 DS CL4 02351000 STAEID DC XL2'4002' 02352000 @NM00113 DS CL4 02353000 ORG FRREIDS+12 02354000 RNIOEIDS DS CL12 02355000 ORG RNIOEIDS 02356000 REID1 DC XL2'8100' 02357000 @NM00114 DS CL4 02358000 REID2 DC XL2'8200' 02359000 @NM00115 DS CL4 02360000 ORG RNIOEIDS+12 02361000 RECID DC CL24'AHLTFOR AHLTFOR AHLTFORE' 02362000 SEPL0027 DS CL24 02363000 ORG SEPL0027 02364000 SEFG0027 DS AL1 02365000 @NM00119 DS AL1 02366000 SEEN0027 DS AL1 02367000 SECN0027 DS AL1 02368000 SENM0027 DS CL8 02369000 SEEL0027 DS AL4 02370000 SECL0027 DS AL4 02371000 SEMC0027 DS AL4 02372000 ORG SEPL0027+24 02373000 SEPL0028 DS CL24 02374000 ORG SEPL0028 02375000 SEFG0028 DS AL1 02376000 @NM00120 DS AL1 02377000 SEEN0028 DS AL1 02378000 SECN0028 DS AL1 02379000 SENM0028 DS CL8 02380000 SEEL0028 DS AL4 02381000 SECL0028 DS AL4 02382000 SEMC0028 DS AL4 02383000 ORG SEPL0028+24 02384000 SEPL0029 DS CL24 02385000 ORG SEPL0029 02386000 SEFG0029 DS AL1 02387000 @NM00121 DS AL1 02388000 SEEN0029 DS AL1 02389000 SECN0029 DS AL1 02390000 SENM0029 DS CL8 02391000 SEEL0029 DS AL4 02392000 SECL0029 DS AL4 02393000 SEMC0029 DS AL4 02394000 ORG SEPL0029+24 02395000 AHL4PTCH DC 250X'00' 02396000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02397000 @01 EQU 01 02398000 @02 EQU 02 02399000 @03 EQU 03 02400000 @04 EQU 04 02401000 @05 EQU 05 02402000 @06 EQU 06 02403000 @07 EQU 07 02404000 @08 EQU 08 02405000 @09 EQU 09 02406000 @10 EQU 10 02407000 @11 EQU 11 02408000 @12 EQU 12 02409000 @13 EQU 13 02410000 @14 EQU 14 02411000 @15 EQU 15 02412000 PCTPTR EQU @02 02413000 ASCBPTR EQU @04 02414000 LCCAPTR EQU @11 02415000 SDWAPTR EQU @01 02416000 AWSAPTR EQU @03 02417000 R0 EQU @00 02418000 PARMPTR EQU @01 02419000 SDWATEST EQU @01 02420000 R5RECPTR EQU @05 02421000 R5MOVE EQU @05 02422000 R6WORK EQU @06 02423000 R8FRRWRK EQU @08 02424000 R8FRRAD EQU @08 02425000 R9PARM EQU @09 02426000 R10WORK EQU @10 02427000 R12BASE EQU @12 02428000 FRREADDR EQU @13 02429000 R14 EQU @14 02430000 R15RC EQU @15 02431000 AHLRECPR EQU @01 02432000 AHLSBREG EQU @14 02433000 AHLRETCD EQU @15 02434000 GPR00P EQU @00 02435000 GPR01P EQU @01 02436000 GPR14P EQU @14 02437000 GPR15P EQU @15 02438000 AHLPPTR EQU @01 02439000 R10MOVE EQU @10 02440000 R11MOVE EQU @11 02441000 R15ENTRY EQU @15 02442000 R4MOVE EQU @04 02443000 R7BTU EQU @07 02444000 R8RNASID EQU @08 02445000 ENTRY AHL4PTCH 02446000 ENTRY AHLTSRM 02447000 ENTRY AHLTFRR 02448000 ENTRY AHLTSTAE 02449000 ENTRY AHLTRNIO 02450000 ENTRY AHLTFORE 02451000 CVTPTR EQU 16 02452000 PSA EQU 0 02453000 FLCRNPSW EQU PSA 02454000 FLCROPSW EQU PSA+8 02455000 FLCICCW2 EQU PSA+16 02456000 FLCPOPSW EQU PSA+40 02457000 PSAEEPSW EQU PSA+132 02458000 PSAESPSW EQU PSA+136 02459000 FLCSVILC EQU PSAESPSW+1 02460000 PSAEPPSW EQU PSA+140 02461000 FLCPIILC EQU PSAEPPSW+1 02462000 FLCPICOD EQU PSAEPPSW+2 02463000 PSAPICOD EQU FLCPICOD+1 02464000 FLCTEA EQU PSAEPPSW+4 02465000 FLCPER EQU PSA+152 02466000 FLCMCLA EQU PSA+168 02467000 FLCCHNID EQU FLCMCLA 02468000 FLCCHTM EQU FLCCHNID 02469000 FLCIOEL EQU FLCMCLA+4 02470000 FLCIOA EQU FLCMCLA+16 02471000 PSAMEDC EQU FLCMCLA+76 02472000 FLCFSA EQU FLCMCLA+80 02473000 PSALCCAV EQU PSA+528 02474000 PSAAOLD EQU PSA+548 02475000 PSASUPER EQU PSA+552 02476000 PSASUP1 EQU PSASUPER 02477000 PSASUP2 EQU PSASUPER+1 02478000 PSASUP3 EQU PSASUPER+2 02479000 PSASUP4 EQU PSASUPER+3 02480000 PSACLHT EQU PSA+640 02481000 PSAHLHI EQU PSA+760 02482000 PSACLHS EQU PSAHLHI 02483000 PSACLHS3 EQU PSACLHS+2 02484000 PSACLHS4 EQU PSACLHS+3 02485000 PSACPUSA EQU PSA+794 02486000 PSADSSFL EQU PSA+836 02487000 PSADSSF1 EQU PSADSSFL 02488000 PSADSSF3 EQU PSADSSFL+2 02489000 PSADSSF4 EQU PSADSSFL+3 02490000 PSARSVT EQU PSA+896 02491000 PSATRACE EQU PSA+1018 02492000 PSAMODEW EQU PSA+1180 02493000 PSAMODE EQU PSAMODEW+3 02494000 PSALKSA EQU PSA+1280 02495000 PSACR0SV EQU PSA+1420 02496000 PSAPCCR0 EQU PSA+1424 02497000 PSARCR0 EQU PSA+1428 02498000 PSAEPTAB EQU PSA+2816 02499000 PSAWTENT EQU PSA+2896 02500000 CVTMAP EQU 0 02501000 CVTDAR EQU CVTMAP+72 02502000 CVTFLGS1 EQU CVTDAR 02503000 CVTDCB EQU CVTMAP+116 02504000 CVTIOQET EQU CVTMAP+120 02505000 CVTIERLC EQU CVTMAP+144 02506000 CVTHEAD EQU CVTMAP+160 02507000 CVTSV76C EQU CVTHEAD 02508000 CVTOPTA EQU CVTMAP+182 02509000 CVTOPTB EQU CVTMAP+183 02510000 CVTGTF EQU CVTMAP+236 02511000 CVTGTFST EQU CVTGTF 02512000 CVTGTFS EQU CVTGTFST 02513000 CVTSTATE EQU CVTGTFST 02514000 CVTTMODE EQU CVTGTFST 02515000 CVTFORM EQU CVTGTFST 02516000 CVTGTFA EQU CVTGTF+1 02517000 CVTAQAVT EQU CVTMAP+240 02518000 CVTTCMFG EQU CVTAQAVT 02519000 CVTVOLM2 EQU CVTMAP+244 02520000 CVTTATA EQU CVTVOLM2 02521000 CVTTSKS EQU CVTTATA 02522000 CVTVOLF2 EQU CVTTSKS 02523000 CVTTAT EQU CVTTATA+1 02524000 CVTATER EQU CVTMAP+248 02525000 CVTEXT1 EQU CVTMAP+252 02526000 CVTPURG EQU CVTMAP+260 02527000 CVTQMSG EQU CVTMAP+268 02528000 CVTDMSR EQU CVTMAP+272 02529000 CVTRSV37 EQU CVTDMSR 02530000 CVTDMSRF EQU CVTRSV37 02531000 CVTERPV EQU CVTMAP+316 02532000 CVTINTLA EQU CVTMAP+320 02533000 CVTAPF EQU CVTMAP+324 02534000 CVTEXT2 EQU CVTMAP+328 02535000 CVTHJES EQU CVTMAP+332 02536000 CVTPGSIA EQU CVTMAP+348 02537000 CVTA1F1 EQU CVTMAP+356 02538000 CVTSYSK EQU CVTMAP+357 02539000 CVTVOLM1 EQU CVTMAP+380 02540000 CVTVOLF1 EQU CVTVOLM1 02541000 CVTXTNT1 EQU 0 02542000 CVTXTNT2 EQU 0 02543000 CVTDSSV EQU CVTXTNT2 02544000 CVTFLGBT EQU CVTXTNT2+5 02545000 CVTQID EQU CVTXTNT2+24 02546000 CVTRV400 EQU CVTXTNT2+52 02547000 CVTRV409 EQU CVTXTNT2+53 02548000 CVTATCVT EQU CVTXTNT2+64 02549000 CVTRV429 EQU CVTXTNT2+84 02550000 CVTRV438 EQU CVTXTNT2+85 02551000 CVTRV457 EQU CVTXTNT2+112 02552000 CVTRV466 EQU CVTXTNT2+113 02553000 CVTFIX EQU 0 02554000 CVTRELNO EQU CVTFIX+252 02555000 GTFPCT EQU 0 02556000 GTFSTAT EQU GTFPCT+8 02557000 GTFDEBUG EQU GTFSTAT 02558000 GTFOPTS EQU GTFPCT+12 02559000 GTFOPTS1 EQU GTFOPTS 02560000 OPTTRC EQU GTFOPTS1 02561000 GTFOPTS2 EQU GTFOPTS+1 02562000 GTFOPTS3 EQU GTFOPTS+2 02563000 GTFOPTS4 EQU GTFOPTS+3 02564000 OPTTIME EQU GTFOPTS4 02565000 PCTCATF EQU GTFPCT+16 02566000 NEXTBLOK EQU GTFPCT+180 02567000 SBLOKRTN EQU GTFPCT+188 02568000 WRTRCOM EQU GTFPCT+204 02569000 TRMWRIT EQU GTFPCT+212 02570000 WRTRERR EQU GTFPCT+216 02571000 GTFSSRB EQU GTFPCT+220 02572000 QLOCKWRD EQU GTFPCT+236 02573000 QLOCKECB EQU GTFPCT+240 02574000 AUDITFLG EQU GTFPCT+296 02575000 GTFASCB EQU GTFPCT+300 02576000 PCTDMPMD EQU GTFPCT+308 02577000 PCTWTOMD EQU GTFPCT+312 02578000 ASCB EQU 0 02579000 ASCBSUPC EQU ASCB+16 02580000 ASCBASID EQU ASCB+36 02581000 ASCBRSM EQU ASCB+52 02582000 ASCBRSMF EQU ASCBRSM 02583000 ASCBFW1 EQU ASCB+100 02584000 ASCBRCTF EQU ASCBFW1+2 02585000 ASCBFLG1 EQU ASCBFW1+3 02586000 ASCBFW2 EQU ASCB+112 02587000 ASCBDSP1 EQU ASCBFW2+2 02588000 ASCBFLG2 EQU ASCBFW2+3 02589000 ASCBSCNT EQU ASCB+116 02590000 ASCBLKGP EQU ASCB+128 02591000 ASCBJBNI EQU ASCB+172 02592000 ASCBJBNS EQU ASCB+176 02593000 ASCBSRQ EQU ASCB+180 02594000 ASCBSRQ1 EQU ASCBSRQ 02595000 ASCBSRQ2 EQU ASCBSRQ+1 02596000 ASCBSRQ3 EQU ASCBSRQ+2 02597000 ASCBSRQ4 EQU ASCBSRQ+3 02598000 ASCBLSRB EQU ASCB+208 02599000 ASCBLSMQ EQU ASCBLSRB 02600000 ASCBTCBG EQU ASCB+216 02601000 ASCBSRDP EQU ASCB+228 02602000 ASVT EQU 0 02603000 ASVTFRST EQU ASVT+524 02604000 ASVTENTY EQU ASVT+528 02605000 FRRS EQU 0 02606000 FRRSHEAD EQU FRRS 02607000 FRRSPTR EQU 0 02608000 FRRSENTR EQU 0 02609000 FRRSFLGS EQU FRRSENTR+4 02610000 FRRSFLG1 EQU FRRSFLGS 02611000 FRREPTR EQU 0 02612000 LCCA EQU 0 02613000 LCCAPGR2 EQU LCCA+72 02614000 LCCASCR0 EQU LCCA+512 02615000 LCCAMCR0 EQU LCCA+516 02616000 LCCAIHRC EQU LCCA+520 02617000 LCCAIHR1 EQU LCCAIHRC 02618000 LCCAIHR2 EQU LCCAIHRC+1 02619000 LCCAIHR3 EQU LCCAIHRC+2 02620000 LCCAIHR4 EQU LCCAIHRC+3 02621000 LCCASPIN EQU LCCA+524 02622000 LCCASPN1 EQU LCCASPIN 02623000 LCCASPN2 EQU LCCASPIN+1 02624000 LCCASPN3 EQU LCCASPIN+2 02625000 LCCASPN4 EQU LCCASPIN+3 02626000 LCCACPUS EQU LCCA+536 02627000 LCCADSF1 EQU LCCA+540 02628000 LCCADSF2 EQU LCCA+541 02629000 LCCASPSA EQU LCCA+544 02630000 LCCACRFL EQU LCCA+692 02631000 LCCACREX EQU LCCA+693 02632000 LCCALKFG EQU LCCA+694 02633000 LCCASRBF EQU LCCA+720 02634000 SDWA EQU 0 02635000 SDWAPARM EQU SDWA 02636000 SDWAFIOB EQU SDWA+4 02637000 SDWAABCC EQU SDWAFIOB 02638000 SDWACMPF EQU SDWAABCC 02639000 SDWACTL1 EQU SDWA+8 02640000 SDWACMKA EQU SDWACTL1 02641000 SDWAMWPA EQU SDWACTL1+1 02642000 SDWAPMKA EQU SDWACTL1+4 02643000 SDWACTL2 EQU SDWA+16 02644000 SDWACMKP EQU SDWACTL2 02645000 SDWAMWPP EQU SDWACTL2+1 02646000 SDWAPMKP EQU SDWACTL2+4 02647000 SDWAGRSV EQU SDWA+24 02648000 SDWANAME EQU SDWA+88 02649000 SDWAEC1 EQU SDWA+104 02650000 SDWAEMK1 EQU SDWAEC1 02651000 SDWAMWP1 EQU SDWAEC1+1 02652000 SDWAINT1 EQU SDWAEC1+2 02653000 SDWANXT1 EQU SDWAEC1+4 02654000 SDWAAEC1 EQU SDWA+112 02655000 SDWAILC1 EQU SDWAAEC1+1 02656000 SDWAINC1 EQU SDWAAEC1+2 02657000 SDWAICD1 EQU SDWAINC1+1 02658000 SDWAEC2 EQU SDWA+120 02659000 SDWAEMK2 EQU SDWAEC2 02660000 SDWAMWP2 EQU SDWAEC2+1 02661000 SDWAINT2 EQU SDWAEC2+2 02662000 SDWANXT2 EQU SDWAEC2+4 02663000 SDWAAEC2 EQU SDWA+128 02664000 SDWAILC2 EQU SDWAAEC2+1 02665000 SDWAINC2 EQU SDWAAEC2+2 02666000 SDWAICD2 EQU SDWAINC2+1 02667000 SDWASRSV EQU SDWA+136 02668000 SDWAIDNT EQU SDWA+200 02669000 SDWAMCH EQU SDWA+204 02670000 SDWASTCK EQU SDWAMCH 02671000 SDWAMCHI EQU SDWAMCH+8 02672000 SDWAMCHS EQU SDWAMCHI 02673000 SDWAMCHD EQU SDWAMCHI+1 02674000 SDWAREGU EQU SDWAMCHD 02675000 SDWAPSWU EQU SDWAMCHD 02676000 SDWAINSF EQU SDWAMCHD 02677000 SDWARSR1 EQU SDWAMCH+12 02678000 SDWARSR2 EQU SDWAMCH+13 02679000 SDWAFLGS EQU SDWA+232 02680000 SDWAERRA EQU SDWAFLGS 02681000 SDWAMCHK EQU SDWAERRA 02682000 SDWAERRB EQU SDWAFLGS+1 02683000 SDWAERRC EQU SDWAFLGS+2 02684000 SDWAPERC EQU SDWAERRC 02685000 SDWAEAS EQU SDWAERRC 02686000 SDWAERRD EQU SDWAFLGS+3 02687000 SDWACLUP EQU SDWAERRD 02688000 SDWAFMID EQU SDWA+236 02689000 SDWAIOFS EQU SDWA+238 02690000 SDWARTYA EQU SDWA+240 02691000 SDWACPUA EQU SDWA+248 02692000 SDWAPARQ EQU SDWA+252 02693000 SDWARCDE EQU SDWAPARQ 02694000 SDWAACF2 EQU SDWAPARQ+1 02695000 SDWAACF3 EQU SDWAPARQ+2 02696000 SDWAACF4 EQU SDWAPARQ+3 02697000 SDWALKWA EQU SDWA+256 02698000 SDWALKWS EQU SDWALKWA 02699000 SDWARECP EQU SDWA+292 02700000 SDWAREXN EQU SDWARECP+16 02701000 SDWASNPA EQU SDWA+320 02702000 SDWADUMP EQU SDWASNPA 02703000 SDWADPFS EQU SDWADUMP+1 02704000 SDWADDAT EQU SDWASNPA+4 02705000 SDWASDAT EQU SDWADDAT 02706000 SDWAPDAT EQU SDWADDAT+2 02707000 SDWADPSA EQU SDWA+328 02708000 SDWADPSL EQU SDWADPSA 02709000 SDWARA EQU SDWA+400 02710000 SDWADPVA EQU SDWARA+2 02711000 SRBSECT EQU 0 02712000 SRB EQU SRBSECT 02713000 SRBFLC EQU SRB+12 02714000 SRBPRIOR EQU SRB+37 02715000 SRBFLGS EQU SRBPRIOR 02716000 SRBPTR EQU 0 02717000 WSAC EQU 0 02718000 WSACGTF EQU WSAC+4 02719000 MCAWSA EQU 0 02720000 MCATRAIL EQU MCAWSA+256 02721000 MCATRL1 EQU MCATRAIL 02722000 MCATRL2 EQU MCATRAIL+1 02723000 MCARNIO EQU MCATRL2 02724000 MCASRM EQU MCATRL2 02725000 MCAFRR EQU MCATRL2 02726000 MCASTA EQU MCATRL2 02727000 MCAERROR EQU MCATRL2 02728000 MCATRL3 EQU MCATRAIL+2 02729000 MCATRL4 EQU MCATRAIL+3 02730000 MCATRL5 EQU MCATRAIL+4 02731000 MCATRL6 EQU MCATRAIL+5 02732000 MCATRL7 EQU MCATRAIL+6 02733000 MCATRL8 EQU MCATRAIL+7 02734000 MCAMCR EQU MCAWSA+264 02735000 MCARECPR EQU MCAWSA+268 02736000 MCAREC EQU MCAWSA+284 02737000 MCAWORK EQU MCAWSA+584 02738000 MCHEAD EQU 0 02739000 MCHFLGS EQU MCHEAD+24 02740000 MCHFLG1 EQU MCHFLGS 02741000 MCHSETE EQU MCHEAD+28 02742000 MCHSETD EQU MCHEAD+32 02743000 MCQE EQU 0 02744000 MCQEAT EQU MCQE+32 02745000 MCQEFLGS EQU MCQE+41 02746000 MCRWSA EQU 0 02747000 MCRMCIH EQU MCRWSA 02748000 MCROUTSA EQU MCRWSA+64 02749000 MCRMCA EQU MCRWSA+128 02750000 MCRWSAF EQU MCRWSA+132 02751000 MCRBRENT EQU MCRWSAF 02752000 MCREID EQU MCRWSA+134 02753000 FRRPARM EQU 0 02754000 RECURCTR EQU FRRPARM 02755000 TRAILSAV EQU FRRPARM+4 02756000 SVR14NRM EQU FRRPARM+8 02757000 SVR14FRR EQU FRRPARM+12 02758000 JOBNAME EQU 0 02759000 JBNMTEST EQU JOBNAME 02760000 BTU EQU 0 02761000 RNIOASID EQU 0 02762000 MCIHRET EQU 0 02763000 ACRADDR EQU 0 02764000 AHLWTOMD EQU 0 02765000 AHLDMPMD EQU 0 02766000 AHLGREC EQU 0 02767000 AHLGLGTH EQU AHLGREC 02768000 AHLGRES EQU AHLGREC+2 02769000 AHLGAID EQU AHLGREC+4 02770000 AHLGFID EQU AHLGREC+5 02771000 AHLGTST EQU AHLGREC+6 02772000 AHLGEIDS EQU AHLGTST 02773000 AHLGEIDL EQU AHLGREC+14 02774000 AHLSBLOK EQU 0 02775000 AHLSETD EQU 0 02776000 SEPL EQU 0 02777000 SEFG EQU SEPL 02778000 SEEN EQU SEPL+2 02779000 SENM EQU SEPL+4 02780000 SEEL EQU SEPL+12 02781000 SEMC EQU SEPL+20 02782000 AHLSETEV EQU 0 02783000 I001C EQU 0 02784000 I008P EQU 0 02785000 I015F EQU 0 02786000 I015P EQU 0 02787000 I031F EQU 0 02788000 I031P EQU 0 02789000 I256C EQU 0 02790000 RECOVRTN EQU 0 02791000 CVTS01 EQU CVTPGSIA 02792000 CVTLPDIA EQU CVTS01+12 02793000 CVTDIRST EQU CVTLPDIA 02794000 CVTSLIDA EQU CVTS01+24 02795000 CVTCTLFG EQU CVTS01+50 02796000 CVTASVT EQU CVTS01+208 02797000 CVTRV210 EQU CVTS01+424 02798000 CVTRV219 EQU CVTS01+425 02799000 CVTRV228 EQU CVTS01+426 02800000 CVTRV237 EQU CVTS01+427 02801000 CVTMFRTR EQU CVTS01+452 02802000 CVTRV262 EQU CVTS01+468 02803000 CVTRV271 EQU CVTS01+469 02804000 CVTRV280 EQU CVTS01+470 02805000 CVTRV289 EQU CVTS01+471 02806000 CVTGSDA EQU CVTS01+600 02807000 CVTLSCH EQU CVTS01+632 02808000 ASVTPTR EQU CVTASVT 02809000 PSARSVTE EQU PSARSVT 02810000 WORKAREA EQU MCAWORK 02811000 RETSAV1 EQU WORKAREA 02812000 RETSAV2 EQU WORKAREA+4 02813000 MCQESAV EQU WORKAREA+8 02814000 SDWASAV EQU WORKAREA+12 02815000 WTOPARM EQU WORKAREA+16 02816000 WTONAME EQU WTOPARM+4 02817000 WTODIND EQU WTOPARM+14 02818000 POPSW EQU FLCPOPSW 02819000 KEYCMWP EQU POPSW+1 02820000 REGSLCCA EQU LCCAPGR2 02821000 R0R1LCCA EQU REGSLCCA 02822000 REG0LCCA EQU R0R1LCCA 02823000 REG1LCCA EQU R0R1LCCA+4 02824000 REG2LCCA EQU REGSLCCA+8 02825000 REGFLCCA EQU REGSLCCA+60 02826000 MCRREGS1 EQU MCROUTSA 02827000 MCRREG0 EQU MCRREGS1 02828000 MCRREGS2 EQU MCRMCIH 02829000 MCRR0R1 EQU MCRREGS2 02830000 MCRREG1 EQU MCRR0R1+4 02831000 MCRREGB EQU MCRREGS2+44 02832000 SRMREC EQU MCAREC 02833000 SRMASCB EQU SRMREC 02834000 SRMCPUID EQU SRMREC+4 02835000 SRMJBNM EQU SRMREC+6 02836000 SRMREGS EQU SRMREC+14 02837000 SRMREG15 EQU SRMREGS 02838000 SRMREG11 EQU SRMREG15 02839000 SRMR0R1 EQU SRMREGS+4 02840000 SRMREG0 EQU SRMR0R1 02841000 FRRREC EQU MCAREC 02842000 FRRASCB EQU FRRREC 02843000 FRRCPUID EQU FRRREC+4 02844000 FRRJBNM EQU FRRREC+6 02845000 FRRSDWA EQU FRRREC+14 02846000 FRRNAME EQU FRRSDWA 02847000 FRRPSW EQU FRRSDWA+8 02848000 FRRCC EQU FRRSDWA+16 02849000 FRREFLGS EQU FRRSDWA+20 02850000 FRRMFLGS EQU FRRSDWA+24 02851000 FRRFMCHD EQU FRRMFLGS+1 02852000 FRRFACF2 EQU FRRMFLGS+2 02853000 FRRFRCDE EQU FRRMFLGS+3 02854000 FRRRTRY EQU FRRSDWA+28 02855000 STAREC EQU MCAREC 02856000 STAASCB EQU STAREC 02857000 STACPUID EQU STAREC+4 02858000 STAJBNM EQU STAREC+6 02859000 STASDWA EQU STAREC+14 02860000 STANAME EQU STASDWA 02861000 STAPC EQU STASDWA+8 02862000 STAPSW EQU STAPC 02863000 STACC EQU STAPC+8 02864000 STAEFLGS EQU STASDWA+20 02865000 STAR15 EQU STASDWA+24 02866000 STAMFLGS EQU STAR15 02867000 STAFMCHD EQU STAMFLGS+1 02868000 STAFACF2 EQU STAMFLGS+2 02869000 STAFRCDE EQU STAMFLGS+3 02870000 STAR0R1 EQU STASDWA+28 02871000 STARTRY EQU STAR0R1 02872000 STARTCA EQU STAR0R1+4 02873000 RNIOREC EQU MCAREC 02874000 RNIOASCB EQU RNIOREC 02875000 RNIOCPID EQU RNIOREC+4 02876000 RNIOJBNM EQU RNIOREC+6 02877000 RNIOBTU EQU RNIOREC+14 02878000 RNIOR0 EQU RNIOREC+34 02879000 ERRASCB EQU MCAREC 02880000 REXNTEST EQU SDWAREXN 02881000 FLC EQU PSA 02882000 * START UNREFERENCED COMPONENTS 02883000 @NM00117 EQU STAMFLGS 02884000 @NM00116 EQU FRRMFLGS 02885000 SRMREG1 EQU SRMR0R1+4 02886000 @NM00111 EQU MCRREGS2+8 02887000 @NM00110 EQU MCRR0R1 02888000 @NM00109 EQU REGSLCCA+48 02889000 REGBLCCA EQU REGSLCCA+44 02890000 @NM00108 EQU REGSLCCA+12 02891000 PSWADDR EQU POPSW+4 02892000 @NM00107 EQU POPSW+2 02893000 @NM00106 EQU POPSW 02894000 @NM00105 EQU WTOPARM+8 02895000 @NM00104 EQU WTOPARM 02896000 PSARSAV EQU PSARSVTE+60 02897000 PSARSTK EQU PSARSVTE+56 02898000 PSAESAV3 EQU PSARSVTE+52 02899000 PSAESTK3 EQU PSARSVTE+48 02900000 PSAESAV2 EQU PSARSVTE+44 02901000 PSAESTK2 EQU PSARSVTE+40 02902000 PSAESAV1 EQU PSARSVTE+36 02903000 PSAESTK1 EQU PSARSVTE+32 02904000 PSAPSAV EQU PSARSVTE+28 02905000 PSAPSTK EQU PSARSVTE+24 02906000 PSAMSAV EQU PSARSVTE+20 02907000 PSAMSTK EQU PSARSVTE+16 02908000 PSASSAV EQU PSARSVTE+12 02909000 PSASSTK EQU PSARSVTE+8 02910000 PSANSTK EQU PSARSVTE+4 02911000 PSACSTK EQU PSARSVTE 02912000 CVTRV628 EQU CVTS01+728 02913000 CVTRV627 EQU CVTS01+724 02914000 CVTRV626 EQU CVTS01+720 02915000 CVTRV625 EQU CVTS01+716 02916000 CVTRV624 EQU CVTS01+712 02917000 CVTRV623 EQU CVTS01+708 02918000 CVTRV622 EQU CVTS01+704 02919000 CVTRV621 EQU CVTS01+700 02920000 CVTIHASU EQU CVTS01+696 02921000 CVTSUSP EQU CVTS01+692 02922000 CVTT6SVC EQU CVTS01+688 02923000 CVTCDAL EQU CVTS01+684 02924000 CVTTCTL EQU CVTS01+680 02925000 CVTRSUME EQU CVTS01+676 02926000 CVTJTERM EQU CVTS01+672 02927000 CVTASMRM EQU CVTS01+668 02928000 CVTTCASP EQU CVTS01+664 02929000 CVT0PT03 EQU CVTS01+660 02930000 CVT0PT0E EQU CVTS01+656 02931000 CVTSRM EQU CVTS01+652 02932000 CVTCGK EQU CVTS01+648 02933000 CVTRAC EQU CVTS01+644 02934000 CVTRV606 EQU CVTS01+640 02935000 CVTCDEQ EQU CVTS01+636 02936000 CVTEFF02 EQU CVTS01+628 02937000 CVTCBBR EQU CVTS01+624 02938000 CVTSSCR EQU CVTS01+620 02939000 CVTEVENT EQU CVTS01+616 02940000 CVTCRCA EQU CVTS01+612 02941000 CVTTPIO EQU CVTS01+608 02942000 CVTADV EQU CVTS01+604 02943000 CVTGSDAB EQU CVTGSDA 02944000 CVTQV3 EQU CVTS01+596 02945000 CVTQV2 EQU CVTS01+592 02946000 CVTQV1 EQU CVTS01+588 02947000 CVTRPT EQU CVTS01+584 02948000 CVTSSRB EQU CVTS01+580 02949000 CVTCSDRL EQU CVTS01+576 02950000 CVTEXP1 EQU CVTS01+572 02951000 CVTRMPMT EQU CVTS01+568 02952000 CVTRMPTT EQU CVTS01+564 02953000 CVTVPSA EQU CVTS01+560 02954000 CVTVSTOP EQU CVTS01+556 02955000 CVTGTFR8 EQU CVTS01+552 02956000 CVTQUIT EQU CVTS01+548 02957000 CVTVACR EQU CVTS01+544 02958000 CVTWTCB EQU CVTS01+540 02959000 CVTSTPRS EQU CVTS01+536 02960000 CVT0PT02 EQU CVTS01+532 02961000 CVTDARCM EQU CVTS01+528 02962000 CVTIRECM EQU CVTS01+524 02963000 CVTJRECM EQU CVTS01+520 02964000 CVTVEMS0 EQU CVTS01+516 02965000 CVTSPFRR EQU CVTS01+512 02966000 CVTRLSTG EQU CVTS01+508 02967000 CVT0TC0A EQU CVTS01+504 02968000 CVTGMBR EQU CVTS01+500 02969000 CVTLFRM EQU CVTS01+496 02970000 CVTRMBR EQU CVTS01+492 02971000 CVTVIOP EQU CVTS01+488 02972000 CVTRV307 EQU CVTS01+486 02973000 CVTRV306 EQU CVTS01+484 02974000 CVTRV305 EQU CVTS01+482 02975000 CVTRV304 EQU CVTS01+480 02976000 CVTRV303 EQU CVTS01+478 02977000 CVTRV302 EQU CVTS01+476 02978000 CVTTRCA EQU CVTS01+472 02979000 CVTRV297 EQU CVTRV289 02980000 CVTRV296 EQU CVTRV289 02981000 CVTRV295 EQU CVTRV289 02982000 CVTRV294 EQU CVTRV289 02983000 CVTRV293 EQU CVTRV289 02984000 CVTRV292 EQU CVTRV289 02985000 CVTRV291 EQU CVTRV289 02986000 CVTRV290 EQU CVTRV289 02987000 CVTRV288 EQU CVTRV280 02988000 CVTRV287 EQU CVTRV280 02989000 CVTRV286 EQU CVTRV280 02990000 CVTRV285 EQU CVTRV280 02991000 CVTRV284 EQU CVTRV280 02992000 CVTRV283 EQU CVTRV280 02993000 CVTRV282 EQU CVTRV280 02994000 CVTRV281 EQU CVTRV280 02995000 CVTRV279 EQU CVTRV271 02996000 CVTRV278 EQU CVTRV271 02997000 CVTRV277 EQU CVTRV271 02998000 CVTRV276 EQU CVTRV271 02999000 CVTRV275 EQU CVTRV271 03000000 CVTRV274 EQU CVTRV271 03001000 CVTRV273 EQU CVTRV271 03002000 CVTRV272 EQU CVTRV271 03003000 CVTRV270 EQU CVTRV262 03004000 CVTRV269 EQU CVTRV262 03005000 CVTRV268 EQU CVTRV262 03006000 CVTRV267 EQU CVTRV262 03007000 CVTRV266 EQU CVTRV262 03008000 CVTRV265 EQU CVTRV262 03009000 CVTRV264 EQU CVTRV262 03010000 CVTRV263 EQU CVTRV262 03011000 CVTVFP EQU CVTS01+464 03012000 CVTVSI EQU CVTS01+460 03013000 CVTVPSIB EQU CVTS01+456 03014000 CVTMFACT EQU CVTMFRTR 03015000 CVTMFCTL EQU CVTS01+448 03016000 CVTPVBP EQU CVTS01+444 03017000 CVTPWI EQU CVTS01+440 03018000 CVTRV254 EQU CVTS01+438 03019000 CVTRV253 EQU CVTS01+436 03020000 CVTRV252 EQU CVTS01+434 03021000 CVTRV251 EQU CVTS01+433 03022000 CVTRV250 EQU CVTS01+432 03023000 CVTRV249 EQU CVTS01+431 03024000 CVTRV248 EQU CVTS01+430 03025000 CVTRV247 EQU CVTS01+429 03026000 CVTRV246 EQU CVTS01+428 03027000 CVTRV245 EQU CVTRV237 03028000 CVTRV244 EQU CVTRV237 03029000 CVTRV243 EQU CVTRV237 03030000 CVTRV242 EQU CVTRV237 03031000 CVTRV241 EQU CVTRV237 03032000 CVTRV240 EQU CVTRV237 03033000 CVTRV239 EQU CVTRV237 03034000 CVTRV238 EQU CVTRV237 03035000 CVTRV236 EQU CVTRV228 03036000 CVTRV235 EQU CVTRV228 03037000 CVTRV234 EQU CVTRV228 03038000 CVTRV233 EQU CVTRV228 03039000 CVTRV232 EQU CVTRV228 03040000 CVTRV231 EQU CVTRV228 03041000 CVTRV230 EQU CVTRV228 03042000 CVTRV229 EQU CVTRV228 03043000 CVTRV227 EQU CVTRV219 03044000 CVTRV226 EQU CVTRV219 03045000 CVTRV225 EQU CVTRV219 03046000 CVTRV224 EQU CVTRV219 03047000 CVTRV223 EQU CVTRV219 03048000 CVTRV222 EQU CVTRV219 03049000 CVTRV221 EQU CVTRV219 03050000 CVTRV220 EQU CVTRV219 03051000 CVTRV218 EQU CVTRV210 03052000 CVTRV217 EQU CVTRV210 03053000 CVTRV216 EQU CVTRV210 03054000 CVTRV215 EQU CVTRV210 03055000 CVTRV214 EQU CVTRV210 03056000 CVTRV213 EQU CVTRV210 03057000 CVTRV212 EQU CVTRV210 03058000 CVTRV211 EQU CVTRV210 03059000 CVTLCCAT EQU CVTS01+420 03060000 CVTPCCAT EQU CVTS01+416 03061000 CVTIPCRP EQU CVTS01+412 03062000 CVTIPCRI EQU CVTS01+408 03063000 CVTIPCDS EQU CVTS01+404 03064000 CVTAIDVT EQU CVTS01+400 03065000 CVTSSAP EQU CVTS01+396 03066000 CVTEHCIR EQU CVTS01+392 03067000 CVTEHDEF EQU CVTS01+388 03068000 CVTDAIR EQU CVTS01+384 03069000 CVTPERFM EQU CVTS01+380 03070000 CVT044R2 EQU CVTS01+376 03071000 CVTFETCH EQU CVTS01+372 03072000 CVTRSTWD EQU CVTS01+368 03073000 CVTSPOST EQU CVTS01+364 03074000 CVTIOBP EQU CVTS01+360 03075000 CVTASMVT EQU CVTS01+356 03076000 CVTRECRQ EQU CVTS01+352 03077000 CVTWSAC EQU CVTS01+348 03078000 CVTRV149 EQU CVTS01+344 03079000 CVTWSAL EQU CVTS01+340 03080000 CVTSPSA EQU CVTS01+336 03081000 CVTGLMN EQU CVTS01+332 03082000 CVTVEAC0 EQU CVTS01+328 03083000 CVT062R1 EQU CVTS01+324 03084000 CVTRPOST EQU CVTS01+320 03085000 CVTDQIQE EQU CVTS01+316 03086000 CVTCSD EQU CVTS01+312 03087000 CVTLKRMA EQU CVTS01+308 03088000 CVTRSPIE EQU CVTS01+304 03089000 CVTRENQ EQU CVTS01+300 03090000 CVTLQCB EQU CVTS01+296 03091000 CVTFQCB EQU CVTS01+292 03092000 CVTQCS01 EQU CVTS01+288 03093000 CVTAPFT EQU CVTS01+284 03094000 CVTPARRL EQU CVTS01+280 03095000 CVTVWAIT EQU CVTS01+276 03096000 CVTGSPL EQU CVTS01+272 03097000 CVTLSMQ EQU CVTS01+268 03098000 CVTGSMQ EQU CVTS01+264 03099000 CVTEXPRO EQU CVTS01+260 03100000 CVTOPCTP EQU CVTS01+256 03101000 CVTSIC EQU CVTS01+252 03102000 CVTTPIOS EQU CVTS01+248 03103000 CVTRTMS EQU CVTS01+244 03104000 CVTSDBF EQU CVTS01+240 03105000 CVTSCBP EQU CVTS01+236 03106000 CVTSDMP EQU CVTS01+232 03107000 CVTSV60 EQU CVTS01+228 03108000 CVTRTMCT EQU CVTS01+224 03109000 CVTASCBL EQU CVTS01+220 03110000 CVTASCBH EQU CVTS01+216 03111000 CVTGDA EQU CVTS01+212 03112000 CVTVVMDI EQU CVTS01+204 03113000 CVTAQTOP EQU CVTS01+200 03114000 CVTIOSCS EQU CVTS01+196 03115000 CVTSDRM EQU CVTS01+192 03116000 CVTOPTE EQU CVTS01+188 03117000 CVTSTXU EQU CVTS01+184 03118000 CVTQUIS EQU CVTS01+180 03119000 CVTPARS EQU CVTS01+176 03120000 CVTS1EE EQU CVTS01+172 03121000 CVTFRAS EQU CVTS01+168 03122000 CVTQSAS EQU CVTS01+164 03123000 CVTCRAS EQU CVTS01+160 03124000 CVTCRMN EQU CVTS01+156 03125000 CVTDELCP EQU CVTS01+152 03126000 CVTFRECL EQU CVTS01+148 03127000 CVTGETCL EQU CVTS01+144 03128000 CVTBLDCP EQU CVTS01+140 03129000 CVTAUTHL EQU CVTS01+136 03130000 CVTSCAN EQU CVTS01+132 03131000 CVTRV144 EQU CVTS01+130 03132000 CVTMAXMP EQU CVTS01+128 03133000 CVTSTCK EQU CVTS01+124 03134000 CVTRV139 EQU CVTS01+123 03135000 CVTDSSAC EQU CVTS01+122 03136000 CVTRV513 EQU CVTS01+121 03137000 CVTIOSPL EQU CVTS01+120 03138000 CVTPTGT EQU CVTS01+116 03139000 CVTCSPIE EQU CVTS01+112 03140000 CVTSMFEX EQU CVTS01+108 03141000 CVTOLT0A EQU CVTS01+104 03142000 CVTSRBRT EQU CVTS01+100 03143000 CVTPUTL EQU CVTS01+96 03144000 CVTASCRL EQU CVTS01+92 03145000 CVTASCRF EQU CVTS01+88 03146000 CVTRV326 EQU CVTS01+84 03147000 CVTRV325 EQU CVTS01+80 03148000 CVTRV324 EQU CVTS01+76 03149000 CVT0VL01 EQU CVTS01+72 03150000 CVTSHRVM EQU CVTS01+68 03151000 CVTRV332 EQU CVTS01+64 03152000 CVTTAS EQU CVTS01+60 03153000 CVTRSCN EQU CVTS01+56 03154000 CVTTRAC2 EQU CVTS01+54 03155000 CVTTRACE EQU CVTS01+52 03156000 CVTAPG EQU CVTS01+51 03157000 CVTSDTRC EQU CVTCTLFG 03158000 CVTGTRCE EQU CVTCTLFG 03159000 CVTNOMP EQU CVTCTLFG 03160000 CVTRSV79 EQU CVTCTLFG 03161000 CVTDSTAT EQU CVTCTLFG 03162000 CVTRSV78 EQU CVTCTLFG 03163000 CVTRV333 EQU CVTCTLFG 03164000 CVTIOQ EQU CVTCTLFG 03165000 CVTSPVLK EQU CVTS01+49 03166000 CVTRSV77 EQU CVTS01+48 03167000 CVTRV331 EQU CVTS01+44 03168000 CVTRV330 EQU CVTS01+40 03169000 CVTRV329 EQU CVTS01+36 03170000 CVTRV328 EQU CVTS01+32 03171000 CVTRV322 EQU CVTS01+28 03172000 CVTSLID EQU CVTSLIDA+1 03173000 CVTSYLK EQU CVTSLIDA 03174000 CVTRV321 EQU CVTS01+20 03175000 CVTRV320 EQU CVTS01+16 03176000 CVTLPDIR EQU CVTLPDIA+1 03177000 CVTRSV69 EQU CVTDIRST 03178000 CVTRSV68 EQU CVTDIRST 03179000 CVTRSV67 EQU CVTDIRST 03180000 CVTRSV66 EQU CVTDIRST 03181000 CVTRSV65 EQU CVTDIRST 03182000 CVTRSV64 EQU CVTDIRST 03183000 CVTRSV63 EQU CVTDIRST 03184000 CVTDICOM EQU CVTDIRST 03185000 CVTPVTP EQU CVTS01+8 03186000 CVTLPDSR EQU CVTS01+4 03187000 CVTGETL EQU CVTS01 03188000 SECL EQU SEPL+16 03189000 SECN EQU SEPL+3 03190000 @NM00118 EQU SEPL+1 03191000 SVR14CAL EQU FRRPARM+16 03192000 @NM00103 EQU FRRPARM+2 03193000 MCRRESV EQU MCRWSAF 03194000 MCERROR EQU MCRWSAF 03195000 MCINFGBR EQU MCRWSAF 03196000 MCINCTL EQU MCRWSAF 03197000 MCQESRB EQU MCQE+44 03198000 @NM00102 EQU MCQE+42 03199000 @NM00101 EQU MCQEFLGS 03200000 MCQEACT EQU MCQEFLGS 03201000 MCQESCHE EQU MCQE+40 03202000 MCQETECB EQU MCQE+36 03203000 MCQEMCCL EQU MCQE+28 03204000 MCQEMCEE EQU MCQE+24 03205000 MCQEMCQE EQU MCQE+20 03206000 MCQEASCB EQU MCQE+16 03207000 MCQENAME EQU MCQE+8 03208000 MCQEIDEN EQU MCQE 03209000 MCHEADTR EQU MCHEAD+48 03210000 MCHEADRD EQU MCHEAD+44 03211000 MCHFRRAD EQU MCHEAD+40 03212000 MCHMCER EQU MCHEAD+36 03213000 @NM00100 EQU MCHFLGS+1 03214000 @NM00099 EQU MCHFLG1 03215000 MCHTERM EQU MCHFLG1 03216000 MCHACT EQU MCHFLG1 03217000 MCHDIS EQU MCHEAD+20 03218000 MCHCTL EQU MCHEAD+16 03219000 MCHCNT EQU MCHEAD+12 03220000 MCHCUR EQU MCHEAD+8 03221000 MCHIDEN EQU MCHEAD 03222000 MCASWORK EQU MCAWSA+644 03223000 @NM00098 EQU MCATRL8 03224000 @NM00097 EQU MCATRL8 03225000 @NM00096 EQU MCATRL8 03226000 @NM00095 EQU MCATRL8 03227000 MCAFRECT EQU MCATRL7 03228000 MCAFRECC EQU MCATRL7 03229000 MCAFRESP EQU MCATRL7 03230000 MCAFREXJ EQU MCATRL7 03231000 MCAFRSBR EQU MCATRL6 03232000 MCAFRDMJ EQU MCATRL6 03233000 MCAFRDPC EQU MCATRL6 03234000 MCAFRPIC EQU MCATRL6 03235000 MCAFRPIJ EQU MCATRL6 03236000 @NM00094 EQU MCATRL5 03237000 MCADREGS EQU MCATRL5 03238000 MCAFRRB EQU MCATRL5 03239000 MCAFRRJ EQU MCATRL5 03240000 MCAFRRA EQU MCATRL5 03241000 MCAFRERT EQU MCATRL5 03242000 MCAFREPC EQU MCATRL5 03243000 MCAMJOBN EQU MCATRL4 03244000 MCAMSDWA EQU MCATRL4 03245000 MCAMBTU EQU MCATRL4 03246000 MCAMIOSB EQU MCATRL4 03247000 MCAMTCB EQU MCATRL4 03248000 MCAMASCB EQU MCATRL4 03249000 MCAMUCB EQU MCATRL4 03250000 MCAMEXT EQU MCATRL4 03251000 MCAFRFRT EQU MCATRL3 03252000 MCAFRFA EQU MCATRL3 03253000 MCAFRSJ EQU MCATRL3 03254000 MCAFRSA EQU MCATRL3 03255000 MCAPIF EQU MCATRL3 03256000 MCASIOF EQU MCATRL3 03257000 MCAIOF EQU MCATRL3 03258000 MCASVCF EQU MCATRL3 03259000 MCATDIR EQU MCATRL2 03260000 MCALSR EQU MCATRL2 03261000 MCAUIO EQU MCATRL2 03262000 MCAUSR EQU MCATRL1 03263000 MCAPI EQU MCATRL1 03264000 MCASRB EQU MCATRL1 03265000 MCADSP EQU MCATRL1 03266000 MCASIO EQU MCATRL1 03267000 MCAIO EQU MCATRL1 03268000 MCAEXT EQU MCATRL1 03269000 MCASVC EQU MCATRL1 03270000 MCAMSG EQU MCAWSA+192 03271000 MCASETEV EQU MCAWSA+128 03272000 MCAFWORK EQU MCAWSA+112 03273000 MCASFEOB EQU MCAWSA+56 03274000 MCASBLOK EQU MCAWSA 03275000 WSACRSM EQU WSAC+64 03276000 WSACASMS EQU WSAC+60 03277000 WSACASMD EQU WSAC+56 03278000 WSACCCH EQU WSAC+52 03279000 WSACRRSA EQU WSAC+48 03280000 WSACREST EQU WSAC+44 03281000 WSACRSTI EQU WSAC+40 03282000 WSACABTM EQU WSAC+36 03283000 WSACMF1 EQU WSAC+32 03284000 WSACEDS0 EQU WSAC+28 03285000 WSACIOS EQU WSAC+24 03286000 WSACRTMK EQU WSAC+20 03287000 WSACACR EQU WSAC+16 03288000 WSACTIME EQU WSAC+12 03289000 WSACOPTM EQU WSAC+8 03290000 WSACCWSA EQU WSAC 03291000 SRBFRRA EQU SRB+40 03292000 @NM00093 EQU SRB+39 03293000 SRBHLHI EQU SRB+38 03294000 @NM00092 EQU SRBFLGS 03295000 SRBPNONQ EQU SRBFLGS 03296000 SRBSUSP EQU SRBFLGS 03297000 SRBFRRCL EQU SRBFLGS 03298000 SRBFRREQ EQU SRBFLGS 03299000 SRBLLHLD EQU SRBFLGS 03300000 SRBLLREQ EQU SRBFLGS 03301000 SRBPKF EQU SRB+36 03302000 SRBSAVE EQU SRB+32 03303000 SRBPARM EQU SRB+28 03304000 SRBRMTR EQU SRB+24 03305000 SRBEP EQU SRB+20 03306000 SRBPTCB EQU SRBFLC+4 03307000 SRBPASID EQU SRBFLC+2 03308000 SRBCPAFF EQU SRBFLC 03309000 SRBASCB EQU SRB+8 03310000 SRBFLNK EQU SRB+4 03311000 SRBID EQU SRB 03312000 @NM00091 EQU SDWA+512 03313000 SDWAVRA EQU SDWARA+4 03314000 SDWAURAL EQU SDWARA+3 03315000 @NM00090 EQU SDWADPVA 03316000 SDWAEBC EQU SDWADPVA 03317000 SDWAHEX EQU SDWADPVA 03318000 SDWAVRAL EQU SDWARA 03319000 SDWAERTM EQU SDWA+396 03320000 SDWACOMP EQU SDWA+392 03321000 SDWARCPL EQU SDWA+364 03322000 @NM00089 EQU SDWADPSA+32 03323000 SDWATO4 EQU SDWADPSL+28 03324000 SDWAFRM4 EQU SDWADPSL+24 03325000 SDWATO3 EQU SDWADPSL+20 03326000 SDWAFRM3 EQU SDWADPSL+16 03327000 SDWATO2 EQU SDWADPSL+12 03328000 SDWAFRM2 EQU SDWADPSL+8 03329000 SDWATO1 EQU SDWADPSL+4 03330000 SDWAFRM1 EQU SDWADPSL 03331000 @NM00088 EQU SDWADDAT+3 03332000 @NM00087 EQU SDWAPDAT 03333000 SDWAUSPL EQU SDWAPDAT 03334000 SDWADPSW EQU SDWAPDAT 03335000 SDWATJPA EQU SDWAPDAT 03336000 SDWATLPA EQU SDWAPDAT 03337000 SDWADREG EQU SDWAPDAT 03338000 SDWADSAH EQU SDWAPDAT 03339000 SDWADSAS EQU SDWAPDAT 03340000 @NM00086 EQU SDWADDAT+1 03341000 @NM00085 EQU SDWASDAT 03342000 SDWAQQS EQU SDWASDAT 03343000 SDWACBS EQU SDWASDAT 03344000 SDWAGTF EQU SDWASDAT 03345000 SDWASWA EQU SDWASDAT 03346000 SDWALSQA EQU SDWASDAT 03347000 SDWASQA EQU SDWASDAT 03348000 SDWANUC EQU SDWASDAT 03349000 @NM00084 EQU SDWADUMP+2 03350000 @NM00083 EQU SDWADPFS 03351000 SDWASLST EQU SDWADPFS 03352000 @NM00082 EQU SDWADPFS 03353000 SDWADLST EQU SDWADPFS 03354000 SDWADPT EQU SDWADPFS 03355000 SDWADPID EQU SDWADUMP 03356000 SDWADPLA EQU SDWA+316 03357000 SDWACSCT EQU SDWARECP+8 03358000 SDWAMODN EQU SDWARECP 03359000 SDWASEQ# EQU SDWA+290 03360000 SDWAASID EQU SDWA+288 03361000 SDWATALW EQU SDWALKWS+28 03362000 SDWATDLW EQU SDWALKWS+24 03363000 SDWATNLW EQU SDWALKWS+20 03364000 SDWAAPLW EQU SDWALKWS+16 03365000 SDWAIPLW EQU SDWALKWS+12 03366000 SDWAILLW EQU SDWALKWS+8 03367000 SDWAIULW EQU SDWALKWS+4 03368000 SDWAICLW EQU SDWALKWS 03369000 SDWAFLLK EQU SDWAACF4 03370000 SDWACMS EQU SDWAACF4 03371000 SDWAOPTM EQU SDWAACF4 03372000 SDWATADB EQU SDWAACF4 03373000 SDWATDNB EQU SDWAACF4 03374000 SDWATNCB EQU SDWAACF4 03375000 SDWAILCH EQU SDWAACF4 03376000 SDWAIUCB EQU SDWAACF4 03377000 SDWAICAT EQU SDWAACF3 03378000 SDWAIPRG EQU SDWAACF3 03379000 SDWASALL EQU SDWAACF3 03380000 SDWAASMP EQU SDWAACF3 03381000 SDWADISP EQU SDWAACF3 03382000 @NM00081 EQU SDWAACF3 03383000 @NM00080 EQU SDWAACF2 03384000 SDWAFREE EQU SDWAACF2 03385000 SDWAUPRG EQU SDWAACF2 03386000 @NM00079 EQU SDWAACF2 03387000 SDWASPIN EQU SDWAACF2 03388000 @NM00078 EQU SDWAACF2 03389000 SDWARCRD EQU SDWAACF2 03390000 SDWALCPU EQU SDWACPUA+2 03391000 @NM00077 EQU SDWACPUA 03392000 SDWARECA EQU SDWA+244 03393000 SDWACPUI EQU SDWA+239 03394000 @NM00076 EQU SDWAIOFS 03395000 SDWANIOP EQU SDWAIOFS 03396000 SDWANOIO EQU SDWAIOFS 03397000 SDWAIOHT EQU SDWAIOFS 03398000 SDWAIOQR EQU SDWAIOFS 03399000 SDWAERFL EQU SDWAERRD 03400000 SDWAMCIV EQU SDWAERRD 03401000 SDWARPIV EQU SDWAERRD 03402000 SDWAMABD EQU SDWAERRD 03403000 SDWACTS EQU SDWAERRD 03404000 SDWASTAE EQU SDWAERRD 03405000 SDWANRBE EQU SDWAERRD 03406000 @NM00075 EQU SDWAERRC 03407000 SDWAIRB EQU SDWAERRC 03408000 SDWASTAI EQU SDWAERRC 03409000 SDWASTAF EQU SDWAERRC 03410000 SDWASRBM EQU SDWAERRB 03411000 SDWALDIS EQU SDWAERRB 03412000 SDWAENRB EQU SDWAERRB 03413000 SDWATYP1 EQU SDWAERRB 03414000 @NM00074 EQU SDWAERRB 03415000 SDWAPGIO EQU SDWAERRA 03416000 SDWATEXC EQU SDWAERRA 03417000 SDWASVCE EQU SDWAERRA 03418000 SDWAABTM EQU SDWAERRA 03419000 SDWASVCD EQU SDWAERRA 03420000 SDWARKEY EQU SDWAERRA 03421000 SDWAPCHK EQU SDWAERRA 03422000 SDWATIME EQU SDWAMCH+20 03423000 SDWARFSA EQU SDWAMCH+16 03424000 @NM00073 EQU SDWAMCH+14 03425000 SDWAVEQR EQU SDWARSR2 03426000 SDWAPGFX EQU SDWARSR2 03427000 SDWAFLSQ EQU SDWARSR2 03428000 SDWAFSQA EQU SDWARSR2 03429000 SDWANUCL EQU SDWARSR2 03430000 SDWASPER EQU SDWARSR2 03431000 SDWAINTC EQU SDWARSR2 03432000 SDWAOFLN EQU SDWARSR2 03433000 SDWACHNG EQU SDWARSR1 03434000 SDWAMSER EQU SDWARSR1 03435000 @NM00072 EQU SDWARSR1 03436000 SDWACPID EQU SDWAMCH+10 03437000 SDWATERR EQU SDWAMCHD 03438000 SDWAFPRX EQU SDWAMCHD 03439000 SDWAACR EQU SDWAMCHD 03440000 SDWASCK EQU SDWAMCHD 03441000 SDWASKYF EQU SDWAMCHD 03442000 @NM00071 EQU SDWAMCHS 03443000 SDWARSRF EQU SDWAMCHS 03444000 SDWARSRC EQU SDWAMCHS 03445000 SDWAINVP EQU SDWAMCHS 03446000 SDWATSVL EQU SDWAMCHS 03447000 SDWARCDF EQU SDWAMCHS 03448000 SDWASRVL EQU SDWAMCHS 03449000 SDWASCKE EQU SDWASTCK+4 03450000 SDWASCKB EQU SDWASTCK 03451000 SDWALNTH EQU SDWAIDNT+1 03452000 SDWASPID EQU SDWAIDNT 03453000 SDWASR15 EQU SDWASRSV+60 03454000 SDWASR14 EQU SDWASRSV+56 03455000 SDWASR13 EQU SDWASRSV+52 03456000 SDWASR12 EQU SDWASRSV+48 03457000 SDWASR11 EQU SDWASRSV+44 03458000 SDWASR10 EQU SDWASRSV+40 03459000 SDWASR09 EQU SDWASRSV+36 03460000 SDWASR08 EQU SDWASRSV+32 03461000 SDWASR07 EQU SDWASRSV+28 03462000 SDWASR06 EQU SDWASRSV+24 03463000 SDWASR05 EQU SDWASRSV+20 03464000 SDWASR04 EQU SDWASRSV+16 03465000 SDWASR03 EQU SDWASRSV+12 03466000 SDWASR02 EQU SDWASRSV+8 03467000 SDWASR01 EQU SDWASRSV+4 03468000 SDWASR00 EQU SDWASRSV 03469000 SDWATRN2 EQU SDWAAEC2+4 03470000 SDWAIPC2 EQU SDWAICD2 03471000 SDWAIMC2 EQU SDWAICD2 03472000 SDWAIPR2 EQU SDWAICD2 03473000 @NM00070 EQU SDWAINC2 03474000 @NM00069 EQU SDWAILC2 03475000 SDWAIL2 EQU SDWAILC2 03476000 @NM00068 EQU SDWAILC2 03477000 @NM00067 EQU SDWAAEC2 03478000 SDWAADD2 EQU SDWANXT2+1 03479000 @NM00066 EQU SDWANXT2 03480000 @NM00065 EQU SDWAEC2+3 03481000 SDWASGN2 EQU SDWAINT2 03482000 SDWAEXP2 EQU SDWAINT2 03483000 SDWADEC2 EQU SDWAINT2 03484000 SDWAFPO2 EQU SDWAINT2 03485000 SDWACC2 EQU SDWAINT2 03486000 @NM00064 EQU SDWAINT2 03487000 SDWAPGM2 EQU SDWAMWP2 03488000 SDWAWAT2 EQU SDWAMWP2 03489000 SDWAMCK2 EQU SDWAMWP2 03490000 SDWAECT2 EQU SDWAMWP2 03491000 SDWAKEY2 EQU SDWAMWP2 03492000 SDWAEXT2 EQU SDWAEMK2 03493000 SDWAIO2 EQU SDWAEMK2 03494000 SDWATRM2 EQU SDWAEMK2 03495000 @NM00063 EQU SDWAEMK2 03496000 SDWAPER2 EQU SDWAEMK2 03497000 @NM00062 EQU SDWAEMK2 03498000 SDWATRAN EQU SDWAAEC1+4 03499000 SDWAIPC1 EQU SDWAICD1 03500000 SDWAIMC1 EQU SDWAICD1 03501000 SDWAIPR1 EQU SDWAICD1 03502000 @NM00061 EQU SDWAINC1 03503000 @NM00060 EQU SDWAILC1 03504000 SDWAIL1 EQU SDWAILC1 03505000 @NM00059 EQU SDWAILC1 03506000 @NM00058 EQU SDWAAEC1 03507000 SDWAADD1 EQU SDWANXT1+1 03508000 @NM00057 EQU SDWANXT1 03509000 @NM00056 EQU SDWAEC1+3 03510000 SDWASGN1 EQU SDWAINT1 03511000 SDWAEXP1 EQU SDWAINT1 03512000 SDWADEC1 EQU SDWAINT1 03513000 SDWAFPO1 EQU SDWAINT1 03514000 SDWACC1 EQU SDWAINT1 03515000 @NM00055 EQU SDWAINT1 03516000 SDWAPGM1 EQU SDWAMWP1 03517000 SDWAWAT1 EQU SDWAMWP1 03518000 SDWAMCK1 EQU SDWAMWP1 03519000 SDWAECT1 EQU SDWAMWP1 03520000 SDWAKEY1 EQU SDWAMWP1 03521000 SDWAEXT1 EQU SDWAEMK1 03522000 SDWAIO1 EQU SDWAEMK1 03523000 SDWATRM1 EQU SDWAEMK1 03524000 @NM00054 EQU SDWAEMK1 03525000 SDWAPER1 EQU SDWAEMK1 03526000 @NM00053 EQU SDWAEMK1 03527000 SDWAIOBR EQU SDWA+100 03528000 SDWAEPA EQU SDWA+96 03529000 @NM00052 EQU SDWANAME+4 03530000 SDWARBAD EQU SDWANAME 03531000 SDWAGR15 EQU SDWAGRSV+60 03532000 SDWAGR14 EQU SDWAGRSV+56 03533000 SDWAGR13 EQU SDWAGRSV+52 03534000 SDWAGR12 EQU SDWAGRSV+48 03535000 SDWAGR11 EQU SDWAGRSV+44 03536000 SDWAGR10 EQU SDWAGRSV+40 03537000 SDWAGR09 EQU SDWAGRSV+36 03538000 SDWAGR08 EQU SDWAGRSV+32 03539000 SDWAGR07 EQU SDWAGRSV+28 03540000 SDWAGR06 EQU SDWAGRSV+24 03541000 SDWAGR05 EQU SDWAGRSV+20 03542000 SDWAGR04 EQU SDWAGRSV+16 03543000 SDWAGR03 EQU SDWAGRSV+12 03544000 SDWAGR02 EQU SDWAGRSV+8 03545000 SDWAGR01 EQU SDWAGRSV+4 03546000 SDWAGR00 EQU SDWAGRSV 03547000 SDWANXTP EQU SDWACTL2+5 03548000 SDWASGP EQU SDWAPMKP 03549000 SDWAEUP EQU SDWAPMKP 03550000 SDWADOP EQU SDWAPMKP 03551000 SDWAFPP EQU SDWAPMKP 03552000 SDWACCP EQU SDWAPMKP 03553000 SDWAILP EQU SDWAPMKP 03554000 SDWAINTP EQU SDWACTL2+2 03555000 SDWASPVP EQU SDWAMWPP 03556000 SDWAWATP EQU SDWAMWPP 03557000 SDWAMCKP EQU SDWAMWPP 03558000 @NM00051 EQU SDWAMWPP 03559000 SDWAKEYP EQU SDWAMWPP 03560000 SDWAEXTP EQU SDWACMKP 03561000 SDWAIOP EQU SDWACMKP 03562000 SDWANXTA EQU SDWACTL1+5 03563000 SDWASGA EQU SDWAPMKA 03564000 SDWAEUA EQU SDWAPMKA 03565000 SDWADOA EQU SDWAPMKA 03566000 SDWAFPA EQU SDWAPMKA 03567000 SDWACCA EQU SDWAPMKA 03568000 SDWAILA EQU SDWAPMKA 03569000 SDWAINTA EQU SDWACTL1+2 03570000 SDWASPVA EQU SDWAMWPA 03571000 SDWAWATA EQU SDWAMWPA 03572000 SDWAMCKA EQU SDWAMWPA 03573000 @NM00050 EQU SDWAMWPA 03574000 SDWAKEYA EQU SDWAMWPA 03575000 SDWAEXTA EQU SDWACMKA 03576000 SDWAIOA EQU SDWACMKA 03577000 SDWACMPC EQU SDWAABCC+1 03578000 @NM00049 EQU SDWACMPF 03579000 SDWASTCC EQU SDWACMPF 03580000 @NM00048 EQU SDWACMPF 03581000 SDWASTEP EQU SDWACMPF 03582000 SDWAREQ EQU SDWACMPF 03583000 LCCAR125 EQU LCCA+964 03584000 LCCAR124 EQU LCCA+960 03585000 LCCASGPR EQU LCCA+896 03586000 LCCADRT2 EQU LCCA+888 03587000 LCCADRT1 EQU LCCA+880 03588000 LCCAFSSJ EQU LCCA+876 03589000 LCCAESS2 EQU LCCA+872 03590000 LCCASPLJ EQU LCCA+868 03591000 LCCASMQJ EQU LCCA+864 03592000 LCCAIRT EQU LCCA+736 03593000 LCCAASID EQU LCCA+732 03594000 LCCARV89 EQU LCCA+728 03595000 LCCAPGTA EQU LCCASRBF+2 03596000 LCCASAFN EQU LCCASRBF 03597000 LCCAECSA EQU LCCA+716 03598000 LCCAICR0 EQU LCCA+712 03599000 LCCALWTM EQU LCCA+704 03600000 LCCARV78 EQU LCCA+700 03601000 LCCAPINV EQU LCCA+696 03602000 LCCARV88 EQU LCCA+695 03603000 LCCARV87 EQU LCCALKFG 03604000 LCCARV86 EQU LCCALKFG 03605000 LCCARV85 EQU LCCALKFG 03606000 LCCARV84 EQU LCCALKFG 03607000 LCCALKRD EQU LCCALKFG 03608000 LCCALKAQ EQU LCCALKFG 03609000 LCCALKSA EQU LCCALKFG 03610000 LCCALKDP EQU LCCALKFG 03611000 LCCACRST EQU LCCACREX 03612000 LCCACRDP EQU LCCACREX 03613000 LCCACRLM EQU LCCACREX 03614000 LCCACRIN EQU LCCACREX 03615000 LCCACRRT EQU LCCACREX 03616000 LCCACRLE EQU LCCACREX 03617000 LCCACRRM EQU LCCACREX 03618000 LCCACREF EQU LCCACREX 03619000 LCCAVARY EQU LCCACRFL 03620000 LCCARV73 EQU LCCACRFL 03621000 LCCARV72 EQU LCCACRFL 03622000 LCCARV71 EQU LCCACRFL 03623000 LCCARV70 EQU LCCACRFL 03624000 LCCARV69 EQU LCCACRFL 03625000 LCCACLMS EQU LCCACRFL 03626000 LCCACRTM EQU LCCACRFL 03627000 LCCALCR0 EQU LCCA+688 03628000 LCCACRLC EQU LCCA+684 03629000 LCCARCPU EQU LCCA+680 03630000 LCCADCPU EQU LCCA+676 03631000 LCCASRBJ EQU LCCA+672 03632000 LCCADSSR EQU LCCA+668 03633000 LCCADSSC EQU LCCA+660 03634000 LCCADSS3 EQU LCCA+648 03635000 LCCADSS2 EQU LCCA+636 03636000 LCCADSS1 EQU LCCA+624 03637000 LCCAWTIM EQU LCCA+616 03638000 LCCAITOD EQU LCCA+608 03639000 LCCADTOD EQU LCCA+600 03640000 LCCASTOD EQU LCCA+592 03641000 LCCARIR5 EQU LCCASPSA+44 03642000 LCCARIR4 EQU LCCASPSA+40 03643000 LCCARIR3 EQU LCCASPSA+36 03644000 LCCARIR2 EQU LCCASPSA+32 03645000 LCCARPR5 EQU LCCASPSA+28 03646000 LCCARPR4 EQU LCCASPSA+24 03647000 LCCARPR3 EQU LCCASPSA+20 03648000 LCCARPR2 EQU LCCASPSA+16 03649000 LCCADSR5 EQU LCCASPSA+12 03650000 LCCADSR4 EQU LCCASPSA+8 03651000 LCCADSR3 EQU LCCASPSA+4 03652000 LCCADSR2 EQU LCCASPSA 03653000 LCCARV68 EQU LCCA+543 03654000 LCCAPSMK EQU LCCA+542 03655000 LCCARV67 EQU LCCADSF2 03656000 LCCARV66 EQU LCCADSF2 03657000 LCCARV65 EQU LCCADSF2 03658000 LCCARV64 EQU LCCADSF2 03659000 LCCADSRW EQU LCCADSF2 03660000 LCCADSPL EQU LCCADSF2 03661000 LCCAGSRB EQU LCCADSF2 03662000 LCCASRBM EQU LCCADSF2 03663000 LCCARV61 EQU LCCADSF1 03664000 LCCARV60 EQU LCCADSF1 03665000 LCCARV59 EQU LCCADSF1 03666000 LCCARV58 EQU LCCADSF1 03667000 LCCATIMR EQU LCCADSF1 03668000 LCCADSS EQU LCCADSF1 03669000 LCCAVCPU EQU LCCADSF1 03670000 LCCAACR EQU LCCADSF1 03671000 LCCAASCP EQU LCCA+532 03672000 LCCAESSA EQU LCCA+528 03673000 LCCARV55 EQU LCCASPN4 03674000 LCCARV54 EQU LCCASPN4 03675000 LCCARV53 EQU LCCASPN4 03676000 LCCARV52 EQU LCCASPN4 03677000 LCCARV51 EQU LCCASPN4 03678000 LCCARV50 EQU LCCASPN4 03679000 LCCARV49 EQU LCCASPN4 03680000 LCCARV48 EQU LCCASPN4 03681000 LCCARV47 EQU LCCASPN3 03682000 LCCARV46 EQU LCCASPN3 03683000 LCCARV45 EQU LCCASPN3 03684000 LCCARV44 EQU LCCASPN3 03685000 LCCARV43 EQU LCCASPN3 03686000 LCCARV42 EQU LCCASPN3 03687000 LCCARV41 EQU LCCASPN3 03688000 LCCARV40 EQU LCCASPN3 03689000 LCCARV39 EQU LCCASPN2 03690000 LCCARV38 EQU LCCASPN2 03691000 LCCARV37 EQU LCCASPN2 03692000 LCCARV36 EQU LCCASPN2 03693000 LCCARV35 EQU LCCASPN2 03694000 LCCARV34 EQU LCCASPN2 03695000 LCCARV33 EQU LCCASPN2 03696000 LCCARV32 EQU LCCASPN2 03697000 LCCARV31 EQU LCCASPN1 03698000 LCCAINT EQU LCCASPN1 03699000 LCCAMFIO EQU LCCASPN1 03700000 LCCARSTR EQU LCCASPN1 03701000 LCCATSPN EQU LCCASPN1 03702000 LCCALOCK EQU LCCASPN1 03703000 LCCASIGP EQU LCCASPN1 03704000 LCCAPTLB EQU LCCASPN1 03705000 LCCARV27 EQU LCCAIHR4 03706000 LCCARV26 EQU LCCAIHR4 03707000 LCCARV25 EQU LCCAIHR4 03708000 LCCARV24 EQU LCCAIHR4 03709000 LCCARV23 EQU LCCAIHR4 03710000 LCCARV22 EQU LCCAIHR4 03711000 LCCARV21 EQU LCCAIHR4 03712000 LCCARV20 EQU LCCAIHR4 03713000 LCCARV19 EQU LCCAIHR3 03714000 LCCARV18 EQU LCCAIHR3 03715000 LCCARV17 EQU LCCAIHR3 03716000 LCCARV16 EQU LCCAIHR3 03717000 LCCARV15 EQU LCCAIHR3 03718000 LCCARV14 EQU LCCAIHR3 03719000 LCCARV13 EQU LCCAIHR3 03720000 LCCARV12 EQU LCCAIHR3 03721000 LCCARV11 EQU LCCAIHR2 03722000 LCCARV10 EQU LCCAIHR2 03723000 LCCARV09 EQU LCCAIHR2 03724000 LCCARV08 EQU LCCAIHR2 03725000 LCCARV07 EQU LCCAIHR2 03726000 LCCARV06 EQU LCCAIHR2 03727000 LCCARV05 EQU LCCAIHR2 03728000 LCCARV04 EQU LCCAIHR2 03729000 LCCARV03 EQU LCCAIHR1 03730000 LCCARV02 EQU LCCAIHR1 03731000 LCCARV01 EQU LCCAIHR1 03732000 LCCAPPIE EQU LCCAIHR1 03733000 LCCAPSG1 EQU LCCAIHR1 03734000 LCCAPDAT EQU LCCAIHR1 03735000 LCCAXRC2 EQU LCCAIHR1 03736000 LCCAXRC1 EQU LCCAIHR1 03737000 LCCAMPEN EQU LCCAMCR0 03738000 @NM00015 EQU LCCAMCR0 03739000 LCCASPEN EQU LCCASCR0 03740000 @NM00014 EQU LCCASCR0 03741000 LCCAR165 EQU LCCA+508 03742000 LCCAR164 EQU LCCA+504 03743000 LCCAR163 EQU LCCA+500 03744000 LCCAR162 EQU LCCA+496 03745000 LCCAR161 EQU LCCA+492 03746000 LCCAR160 EQU LCCA+488 03747000 LCCAR159 EQU LCCA+484 03748000 LCCAR158 EQU LCCA+480 03749000 LCCAR157 EQU LCCA+476 03750000 LCCAR156 EQU LCCA+472 03751000 LCCAR155 EQU LCCA+468 03752000 LCCAR154 EQU LCCA+464 03753000 LCCAR153 EQU LCCA+460 03754000 LCCAR152 EQU LCCA+456 03755000 LCCAR151 EQU LCCA+452 03756000 LCCAR150 EQU LCCA+448 03757000 LCCAR133 EQU LCCA+444 03758000 LCCAR132 EQU LCCA+440 03759000 LCCAR131 EQU LCCA+436 03760000 LCCAR130 EQU LCCA+432 03761000 LCCAR129 EQU LCCA+428 03762000 LCCAR128 EQU LCCA+424 03763000 LCCAR127 EQU LCCA+420 03764000 LCCAR126 EQU LCCA+416 03765000 LCCARSGR EQU LCCA+352 03766000 LCCAXGR3 EQU LCCA+288 03767000 LCCAXGR2 EQU LCCA+224 03768000 LCCAR149 EQU LCCA+220 03769000 LCCAR148 EQU LCCA+216 03770000 LCCAR147 EQU LCCA+212 03771000 LCCAR146 EQU LCCA+208 03772000 LCCAR145 EQU LCCA+204 03773000 LCCAR144 EQU LCCA+200 03774000 LCCAR143 EQU LCCA+196 03775000 LCCAR142 EQU LCCA+192 03776000 LCCAR141 EQU LCCA+188 03777000 LCCAR140 EQU LCCA+184 03778000 LCCAR139 EQU LCCA+180 03779000 LCCAR138 EQU LCCA+176 03780000 LCCAR137 EQU LCCA+172 03781000 LCCAR136 EQU LCCA+168 03782000 LCCAR135 EQU LCCA+164 03783000 LCCAR134 EQU LCCA+160 03784000 LCCACR0 EQU LCCA+156 03785000 LCCAMCR1 EQU LCCA+152 03786000 LCCAPVAD EQU LCCA+148 03787000 LCCAPINT EQU LCCA+144 03788000 LCCAPPSW EQU LCCA+136 03789000 LCCAPGR1 EQU LCCA+8 03790000 LCCARV77 EQU LCCA+6 03791000 LCCACPUA EQU LCCA+4 03792000 LCCALCCA EQU LCCA 03793000 FRRSPARM EQU FRRSENTR+8 03794000 @NM00013 EQU FRRSFLGS+1 03795000 @NM00012 EQU FRRSFLG1 03796000 FRRSNEST EQU FRRSFLG1 03797000 FRRSRCUR EQU FRRSFLG1 03798000 FRRSFRRA EQU FRRSENTR 03799000 FRRSENTS EQU FRRS+84 03800000 FRRSRTMW EQU FRRS+16 03801000 FRRSCURR EQU FRRSHEAD+12 03802000 FRRSELEN EQU FRRSHEAD+8 03803000 FRRSLAST EQU FRRSHEAD+4 03804000 FRRSEMP EQU FRRSHEAD 03805000 ASVTEND EQU ASVT+528 03806000 ASVTAVAL EQU ASVTENTY 03807000 ASVTAVAI EQU ASVTFRST 03808000 ASVTRS00 EQU ASVT+520 03809000 ASVTMAXU EQU ASVT+516 03810000 ASVTASVT EQU ASVT+512 03811000 ASVTBEGN EQU ASVT+512 03812000 @NM00011 EQU ASVT 03813000 ASCBEND EQU ASCB+240 03814000 ASCBRV50 EQU ASCB+236 03815000 ASCBRV49 EQU ASCB+232 03816000 ASCBIODP EQU ASCBSRDP+3 03817000 ASCBNTSG EQU ASCBSRDP+2 03818000 ASCBTNDP EQU ASCBSRDP+1 03819000 ASCBNDP EQU ASCBSRDP 03820000 ASCBWPRB EQU ASCB+224 03821000 ASCBTCBL EQU ASCBTCBG+4 03822000 ASCBTCBS EQU ASCBTCBG 03823000 ASCBLSPL EQU ASCBLSRB+4 03824000 ASCBURR EQU ASCBLSMQ 03825000 ASCBSRBT EQU ASCB+200 03826000 ASCBSWTL EQU ASCB+196 03827000 ASCBRS14 EQU ASCB+195 03828000 ASCBSMCT EQU ASCB+194 03829000 ASCBSSRB EQU ASCB+192 03830000 ASCBPCTT EQU ASCB+188 03831000 ASCBVGTT EQU ASCB+184 03832000 ASCBPURD EQU ASCBSRQ4 03833000 ASCBSTAT EQU ASCBSRQ4 03834000 ASCBCHAP EQU ASCBSRQ4 03835000 ASCBRTM1 EQU ASCBSRQ4 03836000 ASCBRTM2 EQU ASCBSRQ4 03837000 ASCBATTA EQU ASCBSRQ4 03838000 ASCBDETA EQU ASCBSRQ4 03839000 ASCBDSG1 EQU ASCBSRQ4 03840000 ASCBCBVE EQU ASCBSRQ3 03841000 ASCBMINI EQU ASCBSRQ3 03842000 ASCBMTER EQU ASCBSRQ3 03843000 ASCBEXEF EQU ASCBSRQ3 03844000 ASCBACHA EQU ASCBSRQ3 03845000 ASCBTCBV EQU ASCBSRQ3 03846000 ASCBREST EQU ASCBSRQ3 03847000 ASCBDSG2 EQU ASCBSRQ3 03848000 ASCBQVER EQU ASCBSRQ2 03849000 ASCBSRM1 EQU ASCBSRQ2 03850000 ASCBRV25 EQU ASCBSRQ2 03851000 ASCBRV24 EQU ASCBSRQ2 03852000 ASCBRV23 EQU ASCBSRQ2 03853000 ASCBRV22 EQU ASCBSRQ2 03854000 ASCBRV21 EQU ASCBSRQ2 03855000 ASCBDSG3 EQU ASCBSRQ2 03856000 ASCBRV19 EQU ASCBSRQ1 03857000 ASCBRV18 EQU ASCBSRQ1 03858000 ASCBRV17 EQU ASCBSRQ1 03859000 ASCBRV16 EQU ASCBSRQ1 03860000 ASCBRV15 EQU ASCBSRQ1 03861000 ASCBRV14 EQU ASCBSRQ1 03862000 ASCBDFLT EQU ASCBSRQ1 03863000 ASCBDSG4 EQU ASCBSRQ1 03864000 ASCBMCC EQU ASCB+168 03865000 ASCBRTWA EQU ASCB+164 03866000 ASCBIQEA EQU ASCB+160 03867000 ASCBXMPQ EQU ASCB+156 03868000 ASCBRS01 EQU ASCB+154 03869000 ASCBFMCT EQU ASCB+152 03870000 ASCBOUXB EQU ASCB+148 03871000 ASCBOUCB EQU ASCB+144 03872000 ASCBMECB EQU ASCB+140 03873000 ASCBQECB EQU ASCB+136 03874000 ASCBLSQH EQU ASCBLKGP+4 03875000 ASCBLOCK EQU ASCBLKGP 03876000 ASCBRCTP EQU ASCB+124 03877000 ASCBNVSC EQU ASCB+122 03878000 ASCBVSC EQU ASCB+120 03879000 ASCBSRBS EQU ASCBSCNT+2 03880000 ASCBRV48 EQU ASCBSCNT 03881000 ASCBRV06 EQU ASCBFLG2 03882000 ASCBRV05 EQU ASCBFLG2 03883000 ASCBRV04 EQU ASCBFLG2 03884000 ASCBRV47 EQU ASCBFLG2 03885000 ASCBS2S EQU ASCBFLG2 03886000 ASCBCEXT EQU ASCBFLG2 03887000 ASCBPXMT EQU ASCBFLG2 03888000 ASCBXMPT EQU ASCBFLG2 03889000 ASCBRF07 EQU ASCBDSP1 03890000 ASCBRF06 EQU ASCBDSP1 03891000 ASCBRF05 EQU ASCBDSP1 03892000 ASCBSTND EQU ASCBDSP1 03893000 ASCBSSSS EQU ASCBDSP1 03894000 ASCBSNQS EQU ASCBDSP1 03895000 ASCBFAIL EQU ASCBDSP1 03896000 ASCBSSND EQU ASCBDSP1 03897000 ASCBSWCT EQU ASCBFW2 03898000 ASCBASXB EQU ASCB+108 03899000 ASCBTMCH EQU ASCB+104 03900000 ASCBNSWP EQU ASCBFLG1 03901000 ASCBTYP1 EQU ASCBFLG1 03902000 ASCBRV46 EQU ASCBFLG1 03903000 ASCBABNT EQU ASCBFLG1 03904000 ASCBTERM EQU ASCBFLG1 03905000 ASCBS3S EQU ASCBFLG1 03906000 ASCBRV45 EQU ASCBFLG1 03907000 ASCBTOFF EQU ASCBFLG1 03908000 ASCBRF01 EQU ASCBRCTF 03909000 ASCBTMLW EQU ASCBRCTF 03910000 ASCBOUT EQU ASCBRCTF 03911000 ASCBWAIT EQU ASCBRCTF 03912000 ASCBRV08 EQU ASCBRCTF 03913000 ASCBFQU EQU ASCBRCTF 03914000 ASCBFRS EQU ASCBRCTF 03915000 ASCBTMNO EQU ASCBRCTF 03916000 ASCBAFFN EQU ASCBFW1 03917000 ASCBDUMP EQU ASCB+96 03918000 ASCBTLCH EQU ASCB+92 03919000 ASCBUBET EQU ASCB+88 03920000 ASCBECB EQU ASCB+84 03921000 ASCBJSTL EQU ASCB+80 03922000 ASCBEWST EQU ASCB+72 03923000 ASCBEJST EQU ASCB+64 03924000 ASCBTSB EQU ASCB+60 03925000 ASCBCSCB EQU ASCB+56 03926000 ASCBRSMA EQU ASCBRSM+1 03927000 ASCBRV54 EQU ASCBRSMF 03928000 ASCBRV53 EQU ASCBRSMF 03929000 ASCBRV52 EQU ASCBRSMF 03930000 ASCBRV51 EQU ASCBRSMF 03931000 ASCBVEQR EQU ASCBRSMF 03932000 ASCBN2LP EQU ASCBRSMF 03933000 ASCB1LPU EQU ASCBRSMF 03934000 ASCB2LPU EQU ASCBRSMF 03935000 ASCBLDA EQU ASCB+48 03936000 ASCBSTOR EQU ASCB+44 03937000 ASCBDP EQU ASCB+43 03938000 ASCBHLHI EQU ASCB+42 03939000 ASCBIOSM EQU ASCB+40 03940000 ASCBSEQN EQU ASCB+38 03941000 ASCBCPUS EQU ASCB+32 03942000 ASCBTNEW EQU ASCB+28 03943000 ASCBIOSP EQU ASCB+24 03944000 ASCBSYNC EQU ASCBSUPC+4 03945000 ASCBSVRB EQU ASCBSUPC 03946000 ASCBCMSF EQU ASCB+12 03947000 ASCBBWDP EQU ASCB+8 03948000 ASCBFWDP EQU ASCB+4 03949000 ASCBASCB EQU ASCB 03950000 ASCBEGIN EQU ASCB 03951000 TRANSMAX EQU GTFPCT+304 03952000 @NM00010 EQU AUDITFLG+3 03953000 AFSLEBLD EQU AUDITFLG+3 03954000 WSERFG06 EQU AUDITFLG+3 03955000 WSERFG05 EQU AUDITFLG+3 03956000 WSERFG04 EQU AUDITFLG+3 03957000 WSERFG03 EQU AUDITFLG+3 03958000 WSERFG02 EQU AUDITFLG+2 03959000 WSERFLAG EQU AUDITFLG+2 03960000 TERMFLAG EQU AUDITFLG+2 03961000 AFXWRIT EQU AUDITFLG+2 03962000 AFQLWAIT EQU AUDITFLG+2 03963000 AFSLEGET EQU AUDITFLG+2 03964000 AFBUFGET EQU AUDITFLG+2 03965000 AFFEOB EQU AUDITFLG+2 03966000 AFBLKFIX EQU AUDITFLG+1 03967000 AFEQFIX EQU AUDITFLG+1 03968000 AFPGRLSE EQU AUDITFLG+1 03969000 AFWRAP EQU AUDITFLG+1 03970000 AFBUFOFF EQU AUDITFLG+1 03971000 AFLDFX EQU AUDITFLG+1 03972000 AFCLOSE EQU AUDITFLG+1 03973000 AFOPEN EQU AUDITFLG+1 03974000 AFGMBLOK EQU AUDITFLG 03975000 AFGMSRB EQU AUDITFLG 03976000 AFWAIT EQU AUDITFLG 03977000 AFTERM EQU AUDITFLG 03978000 AFINIT EQU AUDITFLG 03979000 AFWWRIT EQU AUDITFLG 03980000 AFCWRIT EQU AUDITFLG 03981000 AFIWRIT EQU AUDITFLG 03982000 EQSHORT EQU GTFPCT+292 03983000 SLEMAX EQU GTFPCT+288 03984000 SLECNT EQU GTFPCT+284 03985000 RQPURGE EQU GTFPCT+280 03986000 RQTOTAL EQU GTFPCT+276 03987000 WRTDLST EQU GTFPCT+272 03988000 NUMOFBUF EQU GTFPCT+268 03989000 SBUFDISA EQU GTFPCT+264 03990000 SLESUSED EQU GTFPCT+260 03991000 EQMIN EQU GTFPCT+256 03992000 EQLENGTH EQU GTFPCT+252 03993000 WQMAX EQU GTFPCT+248 03994000 WQLENGTH EQU GTFPCT+244 03995000 QLECBP EQU QLOCKECB 03996000 @NM00009 EQU QLOCKECB 03997000 @NM00008 EQU QLOCKWRD+3 03998000 SCHEDBUF EQU QLOCKWRD+2 03999000 POSTWRIT EQU QLOCKWRD+1 04000000 QLOCK EQU QLOCKWRD 04001000 WRITERDD EQU GTFPCT+228 04002000 GTFLOSTR EQU GTFPCT+224 04003000 SRBAVAIL EQU GTFSSRB 04004000 WRTRERRP EQU WRTRERR 04005000 @NM00007 EQU WRTRERR 04006000 TRMWRITP EQU TRMWRIT 04007000 @NM00006 EQU TRMWRIT 04008000 GTFCMECB EQU GTFPCT+208 04009000 WRTRCOMP EQU WRTRCOM 04010000 @NM00005 EQU WRTRCOM 04011000 TRANSCNT EQU GTFPCT+200 04012000 AHLRDPLQ EQU GTFPCT+196 04013000 SFEOBRTN EQU GTFPCT+192 04014000 CURRBLOK EQU GTFPCT+184 04015000 GBCDS EQU NEXTBLOK 04016000 WSMODEND EQU GTFPCT+176 04017000 WSMODBEG EQU GTFPCT+172 04018000 BCBPAGE EQU GTFPCT+156 04019000 SLEPAGE EQU GTFPCT+152 04020000 SAVECNT EQU GTFPCT+148 04021000 SLQHEAD EQU GTFPCT+144 04022000 HQLENGTH EQU GTFPCT+140 04023000 QTAIL EQU GTFPCT+136 04024000 HQHEAD EQU GTFPCT+132 04025000 WQHEAD EQU GTFPCT+128 04026000 RQHEAD EQU GTFPCT+124 04027000 EQHEAD EQU GTFPCT+120 04028000 WPOSTSRB EQU GTFPCT+116 04029000 WTSKTCBA EQU GTFPCT+112 04030000 WRTRTCBA EQU GTFPCT+108 04031000 TRMWTASK EQU GTFPCT+104 04032000 WTSKATTH EQU GTFPCT+100 04033000 WTSKINIT EQU GTFPCT+96 04034000 WTASKECB EQU GTFPCT+92 04035000 WMTABPTR EQU GTFPCT+88 04036000 ATTCHECB EQU GTFPCT+84 04037000 AHLECB EQU GTFPCT+80 04038000 STOPECBA EQU GTFPCT+76 04039000 ECBADRLT EQU GTFPCT+72 04040000 FIXLEN EQU GTFPCT+68 04041000 FIXPTR EQU GTFPCT+64 04042000 INITPTR EQU GTFPCT+60 04043000 MCQEPTR EQU GTFPCT+56 04044000 GTFEIDL EQU GTFPCT+52 04045000 GTFPIBL EQU GTFPCT+48 04046000 GTFPIFT EQU GTFPCT+44 04047000 GTFSVCBL EQU GTFPCT+40 04048000 GTFSVCFT EQU GTFPCT+36 04049000 GTFIOBL EQU GTFPCT+32 04050000 GTFIOFT EQU GTFPCT+28 04051000 GTFSIOBL EQU GTFPCT+24 04052000 GTFSIOFT EQU GTFPCT+20 04053000 @NM00004 EQU PCTCATF+1 04054000 PCTPIF EQU PCTCATF+1 04055000 PCTSIOF EQU PCTCATF+1 04056000 PCTIOF EQU PCTCATF+1 04057000 PCTSVCF EQU PCTCATF+1 04058000 PCTRR EQU PCTCATF+1 04059000 PCTSRM EQU PCTCATF+1 04060000 PCTRNIO EQU PCTCATF+1 04061000 PCTUSR EQU PCTCATF 04062000 PCTPI EQU PCTCATF 04063000 @NM00003 EQU PCTCATF 04064000 PCTDSP EQU PCTCATF 04065000 PCTSIO EQU PCTCATF 04066000 PCTIO EQU PCTCATF 04067000 PCTEXT EQU PCTCATF 04068000 PCTSVC EQU PCTCATF 04069000 OPTRES3 EQU GTFOPTS4 04070000 OPTIOSIO EQU GTFOPTS3 04071000 OPTRES2 EQU GTFOPTS3 04072000 OPTRR EQU GTFOPTS3 04073000 OPTSRM EQU GTFOPTS3 04074000 OPTRNIO EQU GTFOPTS3 04075000 OPTEXT EQU GTFOPTS3 04076000 OPTIOP EQU GTFOPTS2 04077000 OPTIO EQU GTFOPTS2 04078000 OPTPIP EQU GTFOPTS2 04079000 OPTPI EQU GTFOPTS2 04080000 OPTSIOP EQU GTFOPTS2 04081000 OPTSIO EQU GTFOPTS2 04082000 OPTSVCP EQU GTFOPTS2 04083000 OPTSVC EQU GTFOPTS2 04084000 OPTPCI EQU GTFOPTS1 04085000 OPTRES1 EQU GTFOPTS1 04086000 OPTDSP EQU GTFOPTS1 04087000 OPTUSR EQU GTFOPTS1 04088000 OPTSYS EQU GTFOPTS1 04089000 OPTSYSP EQU GTFOPTS1 04090000 OPTSYSM EQU GTFOPTS1 04091000 GTFRESV EQU GTFSTAT 04092000 GTFMODE EQU GTFSTAT 04093000 GTFPCTID EQU GTFPCT 04094000 CVTLEVL EQU CVTRELNO+2 04095000 CVTNUMB EQU CVTRELNO 04096000 CVTMDL EQU CVTFIX+250 04097000 @NM00002 EQU CVTFIX+248 04098000 @NM00001 EQU CVTFIX 04099000 CVTRV482 EQU CVTXTNT2+128 04100000 CVTRV481 EQU CVTXTNT2+124 04101000 CVTRV480 EQU CVTXTNT2+120 04102000 CVTRV479 EQU CVTXTNT2+118 04103000 CVTRV478 EQU CVTXTNT2+117 04104000 CVTRV477 EQU CVTXTNT2+116 04105000 CVTRV476 EQU CVTXTNT2+115 04106000 CVTRV475 EQU CVTXTNT2+114 04107000 CVTRV474 EQU CVTRV466 04108000 CVTRV473 EQU CVTRV466 04109000 CVTRV472 EQU CVTRV466 04110000 CVTRV471 EQU CVTRV466 04111000 CVTRV470 EQU CVTRV466 04112000 CVTRV469 EQU CVTRV466 04113000 CVTRV468 EQU CVTRV466 04114000 CVTRV467 EQU CVTRV466 04115000 CVTRV465 EQU CVTRV457 04116000 CVTRV464 EQU CVTRV457 04117000 CVTRV463 EQU CVTRV457 04118000 CVTRV462 EQU CVTRV457 04119000 CVTRV461 EQU CVTRV457 04120000 CVTRV460 EQU CVTRV457 04121000 CVTRV459 EQU CVTRV457 04122000 CVTRV458 EQU CVTRV457 04123000 CVTRV456 EQU CVTXTNT2+108 04124000 CVTRV455 EQU CVTXTNT2+104 04125000 CVTRV454 EQU CVTXTNT2+100 04126000 CVTRV453 EQU CVTXTNT2+96 04127000 CVTRV452 EQU CVTXTNT2+94 04128000 CVTRV451 EQU CVTXTNT2+92 04129000 CVTRV450 EQU CVTXTNT2+90 04130000 CVTRV449 EQU CVTXTNT2+88 04131000 CVTRV448 EQU CVTXTNT2+87 04132000 CVTRV447 EQU CVTXTNT2+86 04133000 CVTRV446 EQU CVTRV438 04134000 CVTRV445 EQU CVTRV438 04135000 CVTRV444 EQU CVTRV438 04136000 CVTRV443 EQU CVTRV438 04137000 CVTRV442 EQU CVTRV438 04138000 CVTRV441 EQU CVTRV438 04139000 CVTRV440 EQU CVTRV438 04140000 CVTRV439 EQU CVTRV438 04141000 CVTRV437 EQU CVTRV429 04142000 CVTRV436 EQU CVTRV429 04143000 CVTRV435 EQU CVTRV429 04144000 CVTRV434 EQU CVTRV429 04145000 CVTRV433 EQU CVTRV429 04146000 CVTRV432 EQU CVTRV429 04147000 CVTRV431 EQU CVTRV429 04148000 CVTRV430 EQU CVTRV429 04149000 CVTRV428 EQU CVTXTNT2+80 04150000 CVTRV427 EQU CVTXTNT2+76 04151000 CVTRV426 EQU CVTXTNT2+72 04152000 CVTRV425 EQU CVTXTNT2+68 04153000 CVTATACT EQU CVTATCVT 04154000 CVTRV423 EQU CVTXTNT2+62 04155000 CVTRV422 EQU CVTXTNT2+60 04156000 CVTRV421 EQU CVTXTNT2+58 04157000 CVTRV420 EQU CVTXTNT2+56 04158000 CVTRV419 EQU CVTXTNT2+55 04159000 CVTRV418 EQU CVTXTNT2+54 04160000 CVTRV417 EQU CVTRV409 04161000 CVTRV416 EQU CVTRV409 04162000 CVTRV415 EQU CVTRV409 04163000 CVTRV414 EQU CVTRV409 04164000 CVTRV413 EQU CVTRV409 04165000 CVTRV412 EQU CVTRV409 04166000 CVTRV411 EQU CVTRV409 04167000 CVTRV410 EQU CVTRV409 04168000 CVTRV408 EQU CVTRV400 04169000 CVTRV407 EQU CVTRV400 04170000 CVTRV406 EQU CVTRV400 04171000 CVTRV405 EQU CVTRV400 04172000 CVTRV404 EQU CVTRV400 04173000 CVTRV403 EQU CVTRV400 04174000 CVTRV402 EQU CVTRV400 04175000 CVTRV401 EQU CVTRV400 04176000 CVTICB EQU CVTXTNT2+48 04177000 CVTSKTA EQU CVTXTNT2+44 04178000 CVTCCVT EQU CVTXTNT2+40 04179000 CVTRSV98 EQU CVTXTNT2+36 04180000 CVTRSV97 EQU CVTXTNT2+34 04181000 CVTRSV96 EQU CVTXTNT2+32 04182000 CVTOLTEP EQU CVTXTNT2+28 04183000 CVTQIDA EQU CVTQID+1 04184000 CVTRSV95 EQU CVTQID 04185000 CVTRSV94 EQU CVTXTNT2+20 04186000 CVTRSV93 EQU CVTXTNT2+16 04187000 CVTRSV92 EQU CVTXTNT2+12 04188000 CVTDEBVR EQU CVTXTNT2+8 04189000 CVTRSV91 EQU CVTXTNT2+6 04190000 CVTRSV9H EQU CVTFLGBT 04191000 CVTRSV9G EQU CVTFLGBT 04192000 CVTRSV9F EQU CVTFLGBT 04193000 CVTRSV9E EQU CVTFLGBT 04194000 CVTRSV9D EQU CVTFLGBT 04195000 CVTBAH EQU CVTFLGBT 04196000 CVTVME EQU CVTFLGBT 04197000 CVTNPE EQU CVTFLGBT 04198000 CVTNUCLS EQU CVTXTNT2+4 04199000 CVTDSSVA EQU CVTDSSV+1 04200000 CVTRSV89 EQU CVTDSSV 04201000 CVTRSV88 EQU CVTXTNT1+8 04202000 CVTRSV87 EQU CVTXTNT1+4 04203000 CVTFACHN EQU CVTXTNT1 04204000 CVTRV488 EQU CVTMAP+412 04205000 CVTRV487 EQU CVTMAP+408 04206000 CVTRV486 EQU CVTMAP+404 04207000 CVTRV485 EQU CVTMAP+400 04208000 CVTACTAP EQU CVTMAP+396 04209000 CVTAUTH EQU CVTMAP+392 04210000 CVTRV490 EQU CVTMAP+388 04211000 CVTSU EQU CVTMAP+384 04212000 CVTVOLT1 EQU CVTVOLM1+1 04213000 CVTVOLI1 EQU CVTVOLF1 04214000 CVTSTOA EQU CVTMAP+376 04215000 CVTRSV58 EQU CVTMAP+374 04216000 CVTRSV57 EQU CVTMAP+372 04217000 CVTDDCE EQU CVTMAP+368 04218000 CVTPNWFR EQU CVTMAP+364 04219000 CVTSMF EQU CVTMAP+360 04220000 CVTSULK EQU CVTMAP+358 04221000 CVTSLKO EQU CVTSYSK 04222000 CVTSLKP EQU CVTSYSK 04223000 CVTSLKQ EQU CVTSYSK 04224000 CVTSLKR EQU CVTSYSK 04225000 CVTRSV56 EQU CVTSYSK 04226000 CVTRSV55 EQU CVTSYSK 04227000 CVTRSV54 EQU CVTSYSK 04228000 CVTRSV53 EQU CVTSYSK 04229000 CVTRSV52 EQU CVTA1F1 04230000 CVTRSV51 EQU CVTA1F1 04231000 CVTRSV50 EQU CVTA1F1 04232000 CVTRSV49 EQU CVTA1F1 04233000 CVTRSV48 EQU CVTA1F1 04234000 CVTRSV47 EQU CVTA1F1 04235000 CVTSRSW EQU CVTA1F1 04236000 CVTPFSW EQU CVTA1F1 04237000 CVTPCVT EQU CVTMAP+352 04238000 CVTRSV46 EQU CVTMAP+344 04239000 CVTRSV45 EQU CVTMAP+340 04240000 CVTRSV44 EQU CVTMAP+338 04241000 CVTRSV43 EQU CVTMAP+336 04242000 CVTHJESA EQU CVTHJES+1 04243000 CVTRSV42 EQU CVTHJES 04244000 CVTEXT2A EQU CVTEXT2+1 04245000 CVTRSV41 EQU CVTEXT2 04246000 CVTAPFA EQU CVTAPF+1 04247000 CVTRSV40 EQU CVTAPF 04248000 CVTRV518 EQU CVTINTLA 04249000 CVTRV517 EQU CVTERPV 04250000 CVTEORM EQU CVTMAP+312 04251000 CVTMCHPR EQU CVTMAP+308 04252000 CVTTZ EQU CVTMAP+304 04253000 CVTJEPS EQU CVTMAP+300 04254000 CVTJESCT EQU CVTMAP+296 04255000 CVTMODE EQU CVTMAP+292 04256000 CVTPTRV EQU CVTMAP+288 04257000 CVTREAL EQU CVTMAP+284 04258000 CVTRSV39 EQU CVTMAP+280 04259000 CVTRSV38 EQU CVTMAP+276 04260000 CVTDMSRA EQU CVTDMSR+1 04261000 CVTRV634 EQU CVTDMSRF 04262000 CVTRV633 EQU CVTDMSRF 04263000 CVTRV632 EQU CVTDMSRF 04264000 CVTRV631 EQU CVTDMSRF 04265000 CVTRV630 EQU CVTDMSRF 04266000 CVTRV629 EQU CVTDMSRF 04267000 CVTUDUMP EQU CVTDMSRF 04268000 CVTSDUMP EQU CVTDMSRF 04269000 CVTQMSGA EQU CVTQMSG+1 04270000 CVTRSV36 EQU CVTQMSG 04271000 CVTAMFF EQU CVTMAP+264 04272000 CVTPURGA EQU CVTPURG+1 04273000 CVTRSV35 EQU CVTPURG 04274000 CVTCBSP EQU CVTMAP+256 04275000 CVTATERA EQU CVTATER+1 04276000 CVTSYST EQU CVTATER 04277000 CVTVOLT2 EQU CVTTAT 04278000 CVTVOLI2 EQU CVTVOLF2 04279000 CVTAQAVB EQU CVTAQAVT+1 04280000 CVTRSV34 EQU CVTTCMFG 04281000 CVTRSV33 EQU CVTTCMFG 04282000 CVTRSV32 EQU CVTTCMFG 04283000 CVTRSV31 EQU CVTTCMFG 04284000 CVTRSV30 EQU CVTTCMFG 04285000 CVTRSV29 EQU CVTTCMFG 04286000 CVTLDEV EQU CVTTCMFG 04287000 CVTTCRDY EQU CVTTCMFG 04288000 CVTRSV27 EQU CVTGTFST 04289000 CVTRNIO EQU CVTGTFST 04290000 CVTUSR EQU CVTGTFST 04291000 CVTRV318 EQU CVTFORM 04292000 CVTRV317 EQU CVTTMODE 04293000 CVTRV316 EQU CVTSTATE 04294000 CVTRV315 EQU CVTGTFS 04295000 CVTGTFAV EQU CVTGTFS 04296000 CVT0SCR1 EQU CVTMAP+232 04297000 CVTRV515 EQU CVTMAP+228 04298000 CVTRMS EQU CVTMAP+224 04299000 CVTPATCH EQU CVTMAP+220 04300000 CVTTSCE EQU CVTMAP+216 04301000 CVTLNKSC EQU CVTMAP+214 04302000 CVTQABST EQU CVTMAP+212 04303000 CVTMDLDS EQU CVTMAP+208 04304000 CVTUSER EQU CVTMAP+204 04305000 CVTABEND EQU CVTMAP+200 04306000 CVTSMCA EQU CVTMAP+196 04307000 CVTRSV18 EQU CVTMAP+192 04308000 CVTQLPAQ EQU CVTMAP+188 04309000 CVTQCDSR EQU CVTMAP+184 04310000 CVTVS1B EQU CVTOPTB 04311000 CVTVS1A EQU CVTOPTB 04312000 CVTFP EQU CVTOPTB 04313000 CVTAPTHR EQU CVTOPTB 04314000 CVTNLOG EQU CVTOPTB 04315000 CVTTOD EQU CVTOPTB 04316000 CVTCTIMS EQU CVTOPTB 04317000 CVTPROT EQU CVTOPTB 04318000 CVTXPFP EQU CVTOPTA 04319000 CVTASCII EQU CVTOPTA 04320000 CVTRSV13 EQU CVTOPTA 04321000 CVTPRON EQU CVTOPTA 04322000 CVTNIP EQU CVTOPTA 04323000 CVTDDR EQU CVTOPTA 04324000 CVTAPR EQU CVTOPTA 04325000 CVTCCH EQU CVTOPTA 04326000 CVTSNCTR EQU CVTMAP+180 04327000 CVTQMWR EQU CVTMAP+176 04328000 CVTQOCR EQU CVTMAP+172 04329000 CVT1EF00 EQU CVTMAP+168 04330000 CVTMZ00 EQU CVTMAP+164 04331000 CVTSV76Q EQU CVTSV76C 04332000 CVTRSV11 EQU CVTMAP+156 04333000 CVT0PT01 EQU CVTMAP+152 04334000 CVTMSER EQU CVTMAP+148 04335000 CVTRV516 EQU CVTIERLC 04336000 CVTILCH EQU CVTMAP+140 04337000 CVT0DS EQU CVTMAP+136 04338000 CVTFBOSV EQU CVTMAP+132 04339000 CVTNUCB EQU CVTMAP+128 04340000 CVTIXAVL EQU CVTMAP+124 04341000 CVTSV76M EQU CVTIOQET 04342000 CVTDCBA EQU CVTMAP+117 04343000 CVTMVS2 EQU CVTDCB 04344000 CVT6DAT EQU CVTDCB 04345000 CVT4MPS EQU CVTDCB 04346000 CVTRSV09 EQU CVTDCB 04347000 CVT4MS1 EQU CVTDCB 04348000 CVT2SPS EQU CVTDCB 04349000 CVT1SSS EQU CVTDCB 04350000 CVTRSV08 EQU CVTDCB 04351000 CVTSTB EQU CVTMAP+112 04352000 CVTQTD00 EQU CVTMAP+108 04353000 CVTQTE00 EQU CVTMAP+104 04354000 CVTCUCB EQU CVTMAP+100 04355000 CVTSJQ EQU CVTMAP+96 04356000 CVTPBLDL EQU CVTMAP+92 04357000 CVTTPC EQU CVTMAP+88 04358000 CVTSVDCB EQU CVTMAP+84 04359000 CVTBRET EQU CVTMAP+82 04360000 CVTEXIT EQU CVTMAP+80 04361000 CVT0FN00 EQU CVTMAP+76 04362000 CVTDARA EQU CVTDAR+1 04363000 CVTRSV07 EQU CVTFLGS1 04364000 CVTRSV06 EQU CVTFLGS1 04365000 CVTRSV05 EQU CVTFLGS1 04366000 CVTRSV04 EQU CVTFLGS1 04367000 CVTRSV03 EQU CVTFLGS1 04368000 CVTRSV02 EQU CVTFLGS1 04369000 CVTRSV01 EQU CVTFLGS1 04370000 CVTDMPLK EQU CVTFLGS1 04371000 CVTXITP EQU CVTMAP+68 04372000 CVTZDTAB EQU CVTMAP+64 04373000 CVTMSLT EQU CVTMAP+60 04374000 CVTDATE EQU CVTMAP+56 04375000 CVTBTERM EQU CVTMAP+52 04376000 CVTSYSAD EQU CVTMAP+48 04377000 CVTXTLER EQU CVTMAP+44 04378000 CVTILK2 EQU CVTMAP+40 04379000 CVTILK1 EQU CVTMAP+36 04380000 CVTPRLTV EQU CVTMAP+32 04381000 CVTPCNVT EQU CVTMAP+28 04382000 CVT0VL00 EQU CVTMAP+24 04383000 CVTXAPG EQU CVTMAP+20 04384000 CVTBUF EQU CVTMAP+16 04385000 CVTJOB EQU CVTMAP+12 04386000 CVTLINK EQU CVTMAP+8 04387000 CVT0EF00 EQU CVTMAP+4 04388000 CVTTCBP EQU CVTMAP 04389000 CVT EQU CVTMAP 04390000 @NM00047 EQU PSA+3668 04391000 PSASTAK EQU PSA+3072 04392000 @NM00046 EQU PSA+2928 04393000 PSASTMP EQU PSAWTENT+28 04394000 PSAWTTCB EQU PSAWTENT+24 04395000 PSATASID EQU PSAWTENT+22 04396000 PSATWCPU EQU PSAWTENT+20 04397000 PSAWTR1 EQU PSAWTENT+16 04398000 PSAWTR0 EQU PSAWTENT+12 04399000 PSAWTR15 EQU PSAWTENT+8 04400000 PSAWTPSW EQU PSAWTENT 04401000 PSASVT EQU PSA+2892 04402000 PSALSCH2 EQU PSA+2888 04403000 PSALSCH1 EQU PSA+2884 04404000 PSAIOSLH EQU PSA+2880 04405000 PSAIOEPF EQU PSAEPTAB+60 04406000 PSAIOEPE EQU PSAEPTAB+56 04407000 PSAIOEPD EQU PSAEPTAB+52 04408000 PSAIOEPC EQU PSAEPTAB+48 04409000 PSAIOEPB EQU PSAEPTAB+44 04410000 PSAIOEPA EQU PSAEPTAB+40 04411000 PSAIOEP9 EQU PSAEPTAB+36 04412000 PSAIOEP8 EQU PSAEPTAB+32 04413000 PSAIOEP7 EQU PSAEPTAB+28 04414000 PSAIOEP6 EQU PSAEPTAB+24 04415000 PSAIOEP5 EQU PSAEPTAB+20 04416000 PSAIOEP4 EQU PSAEPTAB+16 04417000 PSAIOSRC EQU PSAEPTAB+12 04418000 PSAIOEP3 EQU PSAEPTAB+8 04419000 PSAIOEP2 EQU PSAEPTAB+4 04420000 PSAIOEP1 EQU PSAEPTAB 04421000 @NM00045 EQU PSA+1432 04422000 PSAUSEND EQU PSA+1432 04423000 PSARPEN EQU PSARCR0 04424000 @NM00044 EQU PSARCR0 04425000 PSAPCPEN EQU PSAPCCR0 04426000 @NM00043 EQU PSAPCCR0 04427000 PSACR0EN EQU PSACR0SV 04428000 @NM00042 EQU PSACR0SV 04429000 PSARV090 EQU PSA+1418 04430000 PSACR0CB EQU PSA+1417 04431000 PSARV092 EQU PSA+1416 04432000 PSARSMGR EQU PSA+1352 04433000 PSARSMSW EQU PSA+1344 04434000 PSALKR15 EQU PSALKSA+60 04435000 PSALKR14 EQU PSALKSA+56 04436000 PSALKR13 EQU PSALKSA+52 04437000 PSALKR12 EQU PSALKSA+48 04438000 PSALKR11 EQU PSALKSA+44 04439000 PSALKR10 EQU PSALKSA+40 04440000 PSALKR9 EQU PSALKSA+36 04441000 PSALKR8 EQU PSALKSA+32 04442000 PSALKR7 EQU PSALKSA+28 04443000 PSALKR6 EQU PSALKSA+24 04444000 PSALKR5 EQU PSALKSA+20 04445000 PSALKR4 EQU PSALKSA+16 04446000 PSALKR3 EQU PSALKSA+12 04447000 PSALKR2 EQU PSALKSA+8 04448000 PSALKR1 EQU PSALKSA+4 04449000 PSALKR0 EQU PSALKSA 04450000 PSASLSA EQU PSA+1208 04451000 PSALCR10 EQU PSA+1204 04452000 PSALCR9 EQU PSA+1200 04453000 PSALCR8 EQU PSA+1196 04454000 PSALCR7 EQU PSA+1192 04455000 PSALCR6 EQU PSA+1188 04456000 PSASTNSM EQU PSA+1187 04457000 PSAMODES EQU PSA+1186 04458000 PSARV072 EQU PSA+1184 04459000 @NM00041 EQU PSAMODE 04460000 PSAPSRBM EQU PSAMODE 04461000 @NM00040 EQU PSAMODE 04462000 @NM00039 EQU PSAMODEW 04463000 PSARV071 EQU PSA+1176 04464000 PSASCRG2 EQU PSA+1172 04465000 PSASCRG1 EQU PSA+1168 04466000 PSAFPSVS EQU PSA+1160 04467000 PSAFPSVE EQU PSA+1152 04468000 PSAFPSAV EQU PSA+1144 04469000 PSACPUT EQU PSA+1136 04470000 PSAPSWSV EQU PSA+1128 04471000 PSAGSAV EQU PSA+1064 04472000 PSASMPSW EQU PSA+1056 04473000 PSASCPSW EQU PSA+1048 04474000 PSARV062 EQU PSA+1044 04475000 PSACDAL EQU PSA+1040 04476000 PSAWTCOD EQU PSA+1036 04477000 PSAATCVT EQU PSA+1032 04478000 PSAPCPSW EQU PSA+1024 04479000 PSAPIR2 EQU PSA+1020 04480000 PSARV070 EQU PSA+1019 04481000 PSATROFF EQU PSATRACE 04482000 PSARV069 EQU PSATRACE 04483000 PSARV068 EQU PSATRACE 04484000 PSARV067 EQU PSATRACE 04485000 PSARV066 EQU PSATRACE 04486000 PSARV065 EQU PSATRACE 04487000 PSARV064 EQU PSATRACE 04488000 PSARV063 EQU PSATRACE 04489000 PSASVC13 EQU PSA+1016 04490000 PSALSFCC EQU PSA+1012 04491000 PSASFACC EQU PSA+1008 04492000 PSASTOP EQU PSA+992 04493000 PSASTART EQU PSA+976 04494000 PSARSPSW EQU PSA+968 04495000 PSASRPSW EQU PSA+960 04496000 PSARV045 EQU PSA+892 04497000 PSARV044 EQU PSA+888 04498000 PSARV043 EQU PSA+884 04499000 PSARV042 EQU PSA+880 04500000 PSARV041 EQU PSA+876 04501000 PSARV040 EQU PSA+872 04502000 PSARV025 EQU PSA+868 04503000 PSADSSED EQU PSA+868 04504000 PSADSSPR EQU PSA+864 04505000 PSADSSFW EQU PSA+860 04506000 PSADSS14 EQU PSA+856 04507000 PSADSSPP EQU PSA+848 04508000 PSADSSRP EQU PSA+840 04509000 PSADSS05 EQU PSADSSF4 04510000 PSADSS10 EQU PSADSSF4 04511000 PSADSSVE EQU PSADSSF4 04512000 PSADSSDE EQU PSADSSF4 04513000 PSADSSC0 EQU PSADSSF4 04514000 PSADSSIE EQU PSADSSF4 04515000 PSADSS12 EQU PSADSSF4 04516000 PSADSSRC EQU PSADSSF4 04517000 PSARV057 EQU PSADSSF3 04518000 PSARV056 EQU PSADSSF3 04519000 PSARV055 EQU PSADSSF3 04520000 PSADSSMC EQU PSADSSF3 04521000 PSADSSRW EQU PSADSSF3 04522000 PSADSSNM EQU PSADSSF3 04523000 PSADSSES EQU PSADSSF3 04524000 PSADSSGP EQU PSADSSF3 04525000 PSADSSF2 EQU PSADSSFL+1 04526000 PSADSSPI EQU PSADSSF1 04527000 PSADSSOI EQU PSADSSF1 04528000 PSADSSSP EQU PSADSSF1 04529000 PSADSSTP EQU PSADSSF1 04530000 PSADSSDW EQU PSADSSF1 04531000 PSADSSDD EQU PSADSSF1 04532000 PSADSSDM EQU PSADSSF1 04533000 PSADSSMV EQU PSADSSF1 04534000 PSADSSTS EQU PSA+816 04535000 PSADSSWK EQU PSA+812 04536000 PSADSSR3 EQU PSA+808 04537000 PSADSSR2 EQU PSA+804 04538000 PSADSSRS EQU PSA+800 04539000 PSASTOR EQU PSA+796 04540000 PSAVSTAP EQU PSA+792 04541000 PSAWKVAP EQU PSA+788 04542000 PSAWKRAP EQU PSA+784 04543000 PSAMCHIC EQU PSA+783 04544000 PSAACTCD EQU PSA+782 04545000 PSASYMSK EQU PSA+781 04546000 PSAMCHFL EQU PSA+780 04547000 PSACR0 EQU PSA+776 04548000 PSASVPSW EQU PSA+768 04549000 PSALITA EQU PSA+764 04550000 PSALCLLI EQU PSACLHS4 04551000 PSACMSLI EQU PSACLHS4 04552000 PSASRMLI EQU PSACLHS4 04553000 PSATPALI EQU PSACLHS4 04554000 PSATPDLI EQU PSACLHS4 04555000 PSATPNLI EQU PSACLHS4 04556000 PSAIOLLI EQU PSACLHS4 04557000 PSAIOULI EQU PSACLHS4 04558000 PSAIOCLI EQU PSACLHS3 04559000 PSAIOSLI EQU PSACLHS3 04560000 PSASALLI EQU PSACLHS3 04561000 PSAASMLI EQU PSACLHS3 04562000 PSADSPLI EQU PSACLHS3 04563000 PSARV075 EQU PSACLHS3 04564000 PSARV074 EQU PSACLHS3 04565000 PSARV073 EQU PSACLHS3 04566000 PSACLHS2 EQU PSACLHS+1 04567000 PSACLHS1 EQU PSACLHS 04568000 PSALCPUA EQU PSA+756 04569000 PSACMSLK EQU PSA+752 04570000 PSARV089 EQU PSA+748 04571000 PSARV088 EQU PSA+744 04572000 PSARV087 EQU PSA+740 04573000 PSARV086 EQU PSA+736 04574000 PSARV085 EQU PSA+732 04575000 PSARV084 EQU PSA+728 04576000 PSARV083 EQU PSA+724 04577000 PSARV082 EQU PSA+720 04578000 PSARV081 EQU PSA+716 04579000 PSARV080 EQU PSA+712 04580000 PSARV079 EQU PSA+708 04581000 PSARV078 EQU PSA+704 04582000 PSARV077 EQU PSA+700 04583000 PSARV076 EQU PSA+696 04584000 PSARLOCK EQU PSACLHT+52 04585000 PSALOCAL EQU PSACLHT+48 04586000 PSACMSL EQU PSACLHT+44 04587000 PSAOPTL EQU PSACLHT+40 04588000 PSATPACL EQU PSACLHT+36 04589000 PSATPDNL EQU PSACLHT+32 04590000 PSATPNCL EQU PSACLHT+28 04591000 PSAIOSLL EQU PSACLHT+24 04592000 PSAIOSUL EQU PSACLHT+20 04593000 PSAIOSCL EQU PSACLHT+16 04594000 PSAIOSSL EQU PSACLHT+12 04595000 PSASALCL EQU PSACLHT+8 04596000 PSAASML EQU PSACLHT+4 04597000 PSADISPL EQU PSACLHT 04598000 PSASRSA EQU PSA+636 04599000 PSARV050 EQU PSA+634 04600000 PSADSSGO EQU PSA+633 04601000 PSARECUR EQU PSA+632 04602000 PSAHLHIS EQU PSA+628 04603000 PSAIPCSA EQU PSA+624 04604000 @NM00038 EQU PSA+621 04605000 PSAIPCDM EQU PSA+620 04606000 PSAIPCD EQU PSA+616 04607000 @NM00037 EQU PSA+613 04608000 PSAIPCRM EQU PSA+612 04609000 PSAIPCR EQU PSA+608 04610000 PSAMCHEX EQU PSA+600 04611000 PSAMPSW EQU PSA+592 04612000 PSAEXPS2 EQU PSA+584 04613000 PSAEXPS1 EQU PSA+576 04614000 PSAPIREG EQU PSA+572 04615000 PSARSREG EQU PSA+568 04616000 PSAGPREG EQU PSA+556 04617000 PSARV022 EQU PSASUP4 04618000 PSARV021 EQU PSASUP4 04619000 PSARV020 EQU PSASUP4 04620000 PSARV019 EQU PSASUP4 04621000 PSARV018 EQU PSASUP4 04622000 PSARV017 EQU PSASUP4 04623000 PSARV016 EQU PSASUP4 04624000 PSARV015 EQU PSASUP4 04625000 PSARV014 EQU PSASUP3 04626000 PSARV013 EQU PSASUP3 04627000 PSARSM EQU PSASUP3 04628000 PSAESTA EQU PSASUP3 04629000 PSASPR EQU PSASUP3 04630000 PSAPSREG EQU PSASUP3 04631000 PSAPI2 EQU PSASUP3 04632000 PSAIOSUP EQU PSASUP3 04633000 PSALCR EQU PSASUP2 04634000 PSARTM EQU PSASUP2 04635000 PSAACR EQU PSASUP2 04636000 PSAIPCE2 EQU PSASUP2 04637000 PSAIPCES EQU PSASUP2 04638000 PSAIPCEC EQU PSASUP2 04639000 PSAGTF EQU PSASUP2 04640000 PSAIPCRI EQU PSASUP2 04641000 PSATYPE6 EQU PSASUP1 04642000 PSATCTL EQU PSASUP1 04643000 PSADISP EQU PSASUP1 04644000 PSALOCK EQU PSASUP1 04645000 PSAPI EQU PSASUP1 04646000 PSAEXT EQU PSASUP1 04647000 PSASVC EQU PSASUP1 04648000 PSAIO EQU PSASUP1 04649000 PSAANEW EQU PSA+544 04650000 PSATOLD EQU PSA+540 04651000 PSATNEW EQU PSA+536 04652000 PSALCCAR EQU PSA+532 04653000 PSAPCCAR EQU PSA+524 04654000 PSAPCCAV EQU PSA+520 04655000 PSACPULA EQU PSA+518 04656000 PSACPUPA EQU PSA+516 04657000 PSAPSA EQU PSA+512 04658000 FLCHDEND EQU PSA+512 04659000 FLCCRSAV EQU FLCMCLA+280 04660000 FLCGRSAV EQU FLCMCLA+216 04661000 FLCFPSAV EQU FLCMCLA+184 04662000 FLCFLA EQU FLCMCLA+88 04663000 FLCRGNCD EQU FLCMCLA+84 04664000 FLCFSAA EQU FLCFSA+1 04665000 @NM00036 EQU FLCFSA 04666000 @NM00035 EQU FLCMCLA+77 04667000 PSAMDISC EQU PSAMEDC 04668000 PSAMINTR EQU PSAMEDC 04669000 PSAMINST EQU PSAMEDC 04670000 PSAMCCF EQU PSAMEDC 04671000 PSAMCNOP EQU PSAMEDC 04672000 PSAMEXSR EQU PSAMEDC 04673000 PSAMCOPR EQU PSAMEDC 04674000 @NM00034 EQU PSAMEDC 04675000 @NM00033 EQU FLCMCLA+72 04676000 FLCMCIC EQU FLCMCLA+64 04677000 @NM00032 EQU FLCMCLA+20 04678000 FLCIOAA EQU FLCIOA+1 04679000 @NM00031 EQU FLCIOA 04680000 @NM00030 EQU FLCMCLA+15 04681000 @NM00029 EQU FLCMCLA+14 04682000 @NM00028 EQU FLCMCLA+12 04683000 FLCLCL EQU FLCMCLA+8 04684000 FLCIOELA EQU FLCIOEL+1 04685000 @NM00027 EQU FLCIOEL 04686000 FLCCHIL EQU FLCCHNID+2 04687000 FLCCHMOD EQU FLCCHTM 04688000 FLCCHTYP EQU FLCCHTM 04689000 PSAMPL EQU PSA+164 04690000 @NM00026 EQU PSA+160 04691000 FLCMTRCD EQU PSA+157 04692000 @NM00025 EQU PSA+156 04693000 FLCPERA EQU FLCPER+1 04694000 @NM00024 EQU FLCPER 04695000 @NM00023 EQU PSA+151 04696000 FLCPERCD EQU PSA+150 04697000 FLCMCNUM EQU PSA+149 04698000 @NM00022 EQU PSA+148 04699000 FLCTEAA EQU FLCTEA+1 04700000 @NM00021 EQU FLCTEA 04701000 PSAPIPC EQU PSAPICOD 04702000 PSAPIMC EQU PSAPICOD 04703000 PSAPIPER EQU PSAPICOD 04704000 PSARV049 EQU FLCPICOD 04705000 FLCPILCB EQU FLCPIILC 04706000 @NM00020 EQU FLCPIILC 04707000 @NM00019 EQU PSAEPPSW 04708000 FLCSVCN EQU PSAESPSW+2 04709000 FLCSILCB EQU FLCSVILC 04710000 @NM00018 EQU FLCSVILC 04711000 @NM00017 EQU PSAESPSW 04712000 FLCEICOD EQU PSAEEPSW+2 04713000 PSASPAD EQU PSAEEPSW 04714000 @NM00016 EQU PSA+128 04715000 FLCINPSW EQU PSA+120 04716000 FLCMNPSW EQU PSA+112 04717000 FLCPNPSW EQU PSA+104 04718000 FLCSNPSW EQU PSA+96 04719000 FLCENPSW EQU PSA+88 04720000 FLCTRACE EQU PSA+84 04721000 FLCTIMER EQU PSA+80 04722000 FLCCVT2 EQU PSA+76 04723000 FLCCAW EQU PSA+72 04724000 FLCCSW EQU PSA+64 04725000 FLCIOPSW EQU PSA+56 04726000 FLCMOPSW EQU PSA+48 04727000 FLCSOPSW EQU PSA+32 04728000 FLCEOPSW EQU PSA+24 04729000 PSAPSAVA EQU FLCICCW2+4 04730000 FLCCVT EQU FLCICCW2 04731000 FLCICCW1 EQU FLCROPSW 04732000 FLCIPPSW EQU FLCRNPSW 04733000 * END UNREFERENCED COMPONENTS 04734000 @RT00095 EQU COMUEXIT 04735000 @RT00104 EQU SNOJBNM 04736000 @RT00126 EQU COMUEXIT 04737000 @RT00148 EQU FNOJBNM 04738000 @RT00189 EQU COMUEXIT 04739000 @RT00197 EQU ENOJBNM 04740000 @RT00271 EQU COMUEXIT 04741000 @RT00280 EQU RNOJBNM 04742000 @RT00290 EQU AHLHALT 04743000 @RC00356 EQU @RC00354 04744000 @RF00381 EQU @RC00374 04745000 @RT00408 EQU UNRECERR 04746000 @RT00438 EQU UNRECERR 04747000 @RC00422 EQU @RC00421 04748000 @RF00478 EQU UNRECERR 04749000 @RC00465 EQU @RC00451 04750000 @RC00452 EQU @RC00451 04751000 @RT00509 EQU UNRECERR 04752000 @RC00493 EQU @RC00492 04753000 @RF00492 EQU UNRECERR 04754000 @PB00002 EQU @PB00003 04755000 @ENDDATA EQU * 04756000 END AHLTFOR,(C'PLS2346',0701,77252) 04757000