TITLE 'AHLTXSYS: A GTF MINIMAL BUILD ROUTINE *00001000 ' 00002000 AHLTXSYS CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'AHLTXSYS 77.253' 0001 00008000 DROP @15 00009000 @PROLOG BALR @11,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@11 0001 00012000 * /* (MDC364) @G50EP9A*/ 00013000 EJECT 00014000 B @PB00002 0115 00015000 AHLPRECM DS 0H 0116 00016000 USING AHLTXSYS,@11 NEW ADDRESSABILITY 00017000 SETFRR A,FRRAD=(RTCAREG),WRKREGS=(7,9),PARMAD=(R9PARM) 00018000 * SVR14NRM=RTNSAVE; /* SAVE RETURN ADDR TO MCIH */ 00019000 ST RTNSAVE,SVR14NRM(,R9PARM) 0117 00020000 * GENERATE REFS(FLCPOPSW,AHLPSCM2); 0118 00021000 TM FLCPOPSW+1,X'81' PK 0-7 + SUPER STATE 00022000 BNZ AHLPSCM2 EXIT 00023000 * MCATRAIL=ZERO; /* ZERO FLAG FIELD */ 00024000 MVC MCATRAIL(8,AWSAPTR),ZERO 0119 00025000 * PREASCB=PSAAOLD; /* GATHER ASCB ADDR */ 00026000 L @12,PSAAOLD 0120 00027000 ST @12,PREASCB(,AWSAPTR) 0120 00028000 * PRECPUID=PSACPUSA; /* GATHER CPUID @YM03489*/ 00029000 LH @12,PSACPUSA 0121 00030000 STH @12,PRECPUID(,AWSAPTR) 0121 00031000 * RETURN; 0122 00032000 @EL00002 DS 0H 0122 00033000 @EF00002 DS 0H 0122 00034000 @ER00002 BR @14 0122 00035000 * END; 0123 00036000 @PB00002 DS 0H 0123 00037000 * GEN(EJECT); 0124 00038000 EJECT 00039000 *AHLPSTCM: 0125 00040000 * MCATRL4='00'X; /* CLEAR ANY DEBUG BITS */ 00041000 AHLPSTCM MVI MCATRL4(AWSAPTR),X'00' 0125 00042000 * IF OPTTRC=ON /* TRC? */ 00043000 * THEN 0126 00044000 TM OPTTRC(PCTPTR),B'00001000' 0126 00045000 BO @RT00126 0126 00046000 * GOTO AHLPSCM1; /* YES, TRACE GTF */ 00047000 * IF PREASCB=GTFASCB /* NO; IS THIS GTF? */ 00048000 * THEN 0128 00049000 CLC PREASCB(4,AWSAPTR),GTFASCB(PCTPTR) 0128 00050000 BE @RT00128 0128 00051000 * GO TO AHLPSCM2; /* YES, DONT TRACE */ 00052000 *AHLPSCM1: 0130 00053000 * 0130 00054000 * /*****************************************************************/ 00055000 * /* */ 00056000 * /* ISSUE STACK MACRO TO CAUSE TRC ENTRY TO BE MOVED TO GTF */ 00057000 * /* BUFFERS */ 00058000 * /* */ 00059000 * /*****************************************************************/ 00060000 * 0130 00061000 * DO; /* AHLSTACK 0130 00062000 * DLENGTH(RECLEN)AID(255)FID(03)*/ 00063000 * 0130 00064000 AHLPSCM1 DS 0H 0131 00065000 * /***************************************************************/ 00066000 * /* */ 00067000 * /* THE FOLLOWING CODE IS GENERATED BY THE AHLSTACK MACRO. THIS */ 00068000 * /* CODE BUILDS THE GTF RECORD PREFIX AND THEN CALLS AHLSBLOK TO*/ 00069000 * /* STACK THE RECORD. */ 00070000 * /* */ 00071000 * /***************************************************************/ 00072000 * 0131 00073000 * DCL 0131 00074000 * 1 AHLGREC INT BASED(AHLRECPR) BDY(WORD),/* MAPPING FOR RECORD 00075000 * PREFIX */ 00076000 * 2 AHLGLGTH PTR(16), /* LENGTH OF RECORD PLUS PREFIX */ 00077000 * 2 AHLGRES PTR(16), /* FOR COMPATIBILITY TO QSAM */ 00078000 * 2 AHLGAID PTR(8), /* APPLICATION ID */ 00079000 * 2 AHLGFID PTR(8), /* FORMAT APPENDAGE ID */ 00080000 * 2 AHLGTST CHAR(8), /* TIMESTAMP IF SPECIFIED */ 00081000 * 3 AHLGEIDS PTR(16) BDY(BYTE),/* RECORD EVENT IDENTIFIER IF 00082000 * NO TIMESTAMP */ 00083000 * 2 AHLGEIDL PTR(16); /* RECORD EVENT IDENTIFIER WITH 00084000 * TIMESTAMP */ 00085000 * DCL 0132 00086000 * AHLRECPR PTR(31) REG(1), /* USED AS POINTER TO RECORD 0132 00087000 * PREFIX AREA */ 00088000 * AHLSBREG PTR(31) REG(14), /* USED TO HOLD A STABLE COPY OF 00089000 * THE SBLOKRTN FIELD IN THE 0132 00090000 * GTFPCT */ 00091000 * AHLRETCD PTR(31) REG(15); /* USED TO PASS RETURN CODE TO 0132 00092000 * INVOKER */ 00093000 * DCL 0133 00094000 * AHLSBLOK ENTRY OPTIONS(NOEXIT,SEQFLOW,REFS(MCAWSA),SETS( 0133 00095000 * AHLRETCD),NOFLOWS) BASED(AHLSBREG) VALRG(0);/* ENTRY FOR 00096000 * AHLSBLOK */ 00097000 * RFY 0134 00098000 * (AHLRECPR, 0134 00099000 * AHLSBREG, 0134 00100000 * AHLRETCD) RSTD; 0134 00101000 * IF OPTTIME='1'B THEN /* CHECK FOR TIMESTAMP REQUESTED */ 00102000 TM OPTTIME(PCTPTR),B'00000001' 0135 00103000 BNO @RF00135 0135 00104000 * DO; /* YES, TIMESTAMP */ 00105000 * AHLRECPR=ADDR(MCARECPR); /* SETUP ADDRESSIBILITY TO PREFIX 00106000 * FOR PREFIX WITH TIMESTAMP */ 00107000 LA AHLRECPR,MCARECPR(,AWSAPTR) 0137 00108000 * AHLGLGTH=RECLEN+16; /* SET LENGTH TO INCLUDE *** 0138 00109000 * DLENGTH *** PLUS TIMESTAMP 0138 00110000 * PREFIX */ 00111000 LA @12,16 0138 00112000 ALR @12,RECLEN 0138 00113000 STH @12,AHLGLGTH(,AHLRECPR) 0138 00114000 * GEN(STCK AHLGTST(AHLRECPR) PUT TOD CLOCK VALUE INTO PREFIX ) 00115000 * SETS(AHLGTST) NOEXIT SEQFLOW NOFLOWS; 0139 00116000 STCK AHLGTST(AHLRECPR) PUT TOD CLOCK VALUE INTO PREFIX 00117000 * AHLGEIDL=MCAMCR->MCREID; /* *** EID *** NOT SPECIFIED PUT 00118000 * DEFAULT INTO PREFIX */ 00119000 L @12,MCAMCR(,AWSAPTR) 0140 00120000 LH @12,MCREID(,@12) 0140 00121000 N @12,@CF03376 0140 00122000 STH @12,AHLGEIDL(,AHLRECPR) 0140 00123000 * END; 0141 00124000 * ELSE /* NO TIMESTAMP TO BE DONE, BUILD 00125000 * SHORT PREFIX */ 00126000 * DO; 0142 00127000 B @RC00135 0142 00128000 @RF00135 DS 0H 0143 00129000 * AHLRECPR=ADDR(MCARECPR)+8;/* SETUP ADDRESSIBILITY TO FOR 0143 00130000 * SHORT PREFIX WITHOUT TIMESTAMP*/ 00131000 LA @12,8 0143 00132000 LA AHLRECPR,MCARECPR(,AWSAPTR) 0143 00133000 ALR AHLRECPR,@12 0143 00134000 * AHLGLGTH=RECLEN+8; /* PUT TOTAL RECORD LENGTH INTO 00135000 * PREFIX *** DLENGTH *** PLUS 0144 00136000 * PREFIX LENGTH */ 00137000 ALR @12,RECLEN 0144 00138000 STH @12,AHLGLGTH(,AHLRECPR) 0144 00139000 * AHLGEIDS=MCAMCR->MCREID; /* *** EID *** NOT SPECIFIED PUT 00140000 * DEFAULT INTO PREFIX */ 00141000 L @12,MCAMCR(,AWSAPTR) 0145 00142000 LH @12,MCREID(,@12) 0145 00143000 N @12,@CF03376 0145 00144000 STH @12,AHLGEIDS(,AHLRECPR) 0145 00145000 * END; 0146 00146000 * AHLGRES=0; /* ZERO OUT FOR QSAM 0147 00147000 * COMPATIBILITY */ 00148000 @RC00135 SLR @12,@12 0147 00149000 STH @12,AHLGRES(,AHLRECPR) 0147 00150000 * AHLGAID=255; /* PUT *** AID *** INTO PREFIX */ 00151000 MVI AHLGAID(AHLRECPR),X'FF' 0148 00152000 * AHLGFID=03; /* PUT *** FID *** INTO PREFIX */ 00153000 MVI AHLGFID(AHLRECPR),X'03' 0149 00154000 * AHLRETCD=4; /* SET DEFAULT RETURN CODE */ 00155000 LA AHLRETCD,4 0150 00156000 * AHLSBREG=SBLOKRTN; /* GET A STABLE COPY OF AHLSBLOK 00157000 * ADDR */ 00158000 L AHLSBREG,SBLOKRTN(,PCTPTR) 0151 00159000 * IF AHLSBREG^=0 THEN /* CHECK TO SEE IF AHLSBLOK IS 0152 00160000 * AVAILABLE */ 00161000 CR AHLSBREG,@12 0152 00162000 BE @RF00152 0152 00163000 * CALL AHLSBLOK; /* YES, SO CALL AHLSBLOK TO BLOCK 00164000 * RECORD */ 00165000 LR @15,AHLSBREG 0153 00166000 BALR @14,@15 0153 00167000 * RFY 0154 00168000 * (AHLRECPR, 0154 00169000 * AHLSBREG, 0154 00170000 * AHLRETCD) UNRSTD; 0154 00171000 @RF00152 DS 0H 0155 00172000 * END; 0155 00173000 *AHLPSCM2: 0156 00174000 * ; 0156 00175000 AHLPSCM2 DS 0H 0157 00176000 * GEN(SETFRR D,WRKREGS=(7,9)); 0157 00177000 SETFRR D,WRKREGS=(7,9) 00178000 * GO TO RTNSAVE; /* RESTORE RETURN ADDR AND RETURN 00179000 * TO MCIH */ 00180000 BR RTNSAVE 0158 00181000 * GEN(EJECT); 0159 00182000 * 0159 00183000 EJECT 00184000 * /*****************************************************************/ 00185000 * /* */ 00186000 * /* GATHER DATA AND BUILD DSP RECORD */ 00187000 * /* */ 00188000 * /*****************************************************************/ 00189000 * 0160 00190000 *AHLDSP: 0160 00191000 * ; 0160 00192000 AHLDSP DS 0H 0161 00193000 * GENERATE; 0161 00194000 USING *,EPREG 00195000 L BASEREG,BASEADDR 00196000 DROP EPREG 00197000 * RTNSAVE=RTNADDR; /* SAVE RETURN ADDRESS */ 00198000 LR RTNSAVE,RTNADDR 0162 00199000 * RTCAREG=ADDR(FRRDSP); /* ERROR ROUTINE ADDR */ 00200000 LA RTCAREG,FRRDSP 0163 00201000 * CALL AHLPRECM; /* COMMON INITIALIZER */ 00202000 BAL @14,AHLPRECM 0164 00203000 * MCADSP=ON; /* INDICATE DSP RTN */ 00204000 OI MCADSP(AWSAPTR),B'00001000' 0165 00205000 * DSPPSW=PSAPSWSV; /* GATHER PSW */ 00206000 MVC DSPPSW(8,AWSAPTR),PSAPSWSV 0166 00207000 * DSPTCB=PSATOLD; /* GATHER CURRENT TCB */ 00208000 L @12,PSATOLD 0167 00209000 STCM @12,15,DSPTCB(AWSAPTR) 0167 00210000 * RECLEN=LENGTH(DSPREC); 0168 00211000 LA RECLEN,30 0168 00212000 * MCADREGS=ON; /* DEBUG FLAG */ 00213000 OI MCADREGS(AWSAPTR),B'00000100' 0169 00214000 * IF MCREID=IMDMDSP2 THEN /* LSR ? */ 00215000 L @08,MCAMCR(,AWSAPTR) 0170 00216000 CLC MCREID(2,@08),@CH01764 0170 00217000 BNE @RF00170 0170 00218000 * DO; 0171 00219000 * IF PSATOLD=0 THEN 0172 00220000 LTR @12,@12 0172 00221000 BNZ @RF00172 0172 00222000 * DSPTCB=NOTAPP; /* NO TCB WITH LSR ? */ 00223000 MVC DSPTCB(4,AWSAPTR),@CC03132 0173 00224000 * RFY 0174 00225000 * ASCB BASED(PSAAOLD); 0174 00226000 @RF00172 DS 0H 0175 00227000 * DSPR0R1=IHSAGPRS(1:8); /* GET REGS 0 AND 1 */ 00228000 L @12,PSAAOLD 0175 00229000 L @12,ASXBPTR(,@12) 0175 00230000 L @12,ASXBIHSA(,@12) 0175 00231000 MVC DSPR0R1(8,AWSAPTR),IHSAGPRS(@12) 0175 00232000 * DSPR15=IHSAGPRS(61:64); /* GET REG 15 */ 00233000 MVC DSPR15(4,AWSAPTR),IHSAGPRS+60(@12) 0176 00234000 * RFY 0177 00235000 * ASCB BASED(ASCBPTR); 0177 00236000 * END; 0178 00237000 * ELSE 0179 00238000 * DO; 0179 00239000 B @RC00170 0179 00240000 @RF00170 DS 0H 0180 00241000 * DSPR0R1=TCBGRS(1:8); /* GATHER R0 , R1 */ 00242000 L @12,TCBPTR 0180 00243000 MVC DSPR0R1(8,AWSAPTR),TCBGRS(@12) 0180 00244000 * DSPR15=TCBGRS15; /* GATHER R15 */ 00245000 MVC DSPR15(4,AWSAPTR),TCBGRS15(@12) 0181 00246000 * END; 0182 00247000 * GOTO AHLPSTCM; /* GOTO EXIT */ 00248000 * 0183 00249000 B AHLPSTCM 0183 00250000 * /*****************************************************************/ 00251000 * /* */ 00252000 * /* GATHER DATA AND BUILD SRB RECORD */ 00253000 * /* */ 00254000 * /*****************************************************************/ 00255000 * 0184 00256000 *AHLSRB: 0184 00257000 * ; 0184 00258000 AHLSRB DS 0H 0185 00259000 * GENERATE; 0185 00260000 USING *,EPREG 00261000 L BASEREG,BASEADDR 00262000 DROP EPREG 00263000 * RTNSAVE=RTNADDR; /* SAVE RETURN ADDRESS */ 00264000 LR RTNSAVE,RTNADDR 0186 00265000 * RTCAREG=ADDR(FRRDSP); /* ERROR ROUTINE ADDR */ 00266000 LA RTCAREG,FRRDSP 0187 00267000 * CALL AHLPRECM; /* COMMON INITIALIZER */ 00268000 BAL @14,AHLPRECM 0188 00269000 * MCASRB=ON; /* TURN ON DEBUG BITS */ 00270000 OI MCASRB(AWSAPTR),B'00000100' 0189 00271000 * SRBPSW=PSAPSWSV; /* GATHER PSW DATA */ 00272000 MVC SRBPSW(8,AWSAPTR),PSAPSWSV 0190 00273000 * RECLEN=LENGTH(SRBREC); 0191 00274000 LA RECLEN,27 0191 00275000 * IF EVREG0=0 /* SUSPENDED SRB */ 00276000 * THEN 0192 00277000 L @12,LCCAPTR 0192 00278000 L @08,EVREG0(,@12) 0192 00279000 LTR @08,@08 0192 00280000 BNZ @RF00192 0192 00281000 * DO; 0193 00282000 * SRBSRB=NOTAPP; /* N/A IN SRB FIELD */ 00283000 MVC SRBSRB(4,AWSAPTR),@CC03132 0194 00284000 * SRBTYPE='S'; /* S FOR SUSPENDED SRB */ 00285000 MVI SRBTYPE(AWSAPTR),C'S' 0195 00286000 * MCADREGS=ON; /* DEBUG FLAG */ 00287000 OI MCADREGS(AWSAPTR),B'00000100' 0196 00288000 * SRBR15=DSPREG15; /* MOVE REG 15 */ 00289000 L @12,LCCACPUS(,@12) 0197 00290000 L @12,WSACEDS0(,@12) 0197 00291000 MVC SRBR15(4,AWSAPTR),DSPREG15(@12) 0197 00292000 * SRBR1=DSPREG1; /* MOVE REG 1 */ 00293000 MVC SRBR1(4,AWSAPTR),DSPREG1(@12) 0198 00294000 * END; 0199 00295000 * ELSE 0200 00296000 * DO; 0200 00297000 B @RC00192 0200 00298000 @RF00192 DS 0H 0201 00299000 * SRBR15=EVREG15; /* MOVE REGS */ 00300000 L @12,LCCAPTR 0201 00301000 MVC SRBR15(4,AWSAPTR),EVREG15(@12) 0201 00302000 * SRBR01=EVREG01; /* MOVE REGS */ 00303000 MVC SRBR01(8,AWSAPTR),EVREG01(@12) 0202 00304000 * IF LCCAGSRB=ON THEN 0203 00305000 TM LCCAGSRB(@12),B'01000000' 0203 00306000 BNO @RF00203 0203 00307000 * SRBTYPE='G'; /* G FOR GLOBAL SRB */ 00308000 MVI SRBTYPE(AWSAPTR),C'G' 0204 00309000 * ELSE 0205 00310000 * SRBTYPE='L'; /* L FOR LOCAL SRB */ 00311000 B @RC00203 0205 00312000 @RF00203 MVI SRBTYPE(AWSAPTR),C'L' 0205 00313000 * END; 0206 00314000 * GOTO AHLPSTCM; /* GOTO EXIT RTN */ 00315000 B AHLPSTCM 0207 00316000 * GEN(EJECT); 0208 00317000 * 0208 00318000 EJECT 00319000 * /*****************************************************************/ 00320000 * /* */ 00321000 * /* GATHER DATA AND BUILD SRM TRACE RECORD */ 00322000 * /* */ 00323000 * /*****************************************************************/ 00324000 * 0209 00325000 *AHLSRM: 0209 00326000 * ; 0209 00327000 AHLSRM DS 0H 0210 00328000 * GENERATE; 0210 00329000 USING *,EPREG 00330000 L BASEREG,BASEADDR 00331000 DROP EPREG 00332000 * RTNSAVE=RTNADDR; /* SAVE RETURN ADDRESS */ 00333000 LR RTNSAVE,RTNADDR 0211 00334000 * RTCAREG=ADDR(FRRSRM); /* ERROR ROUTINE ADDR */ 00335000 LA RTCAREG,FRRSRM 0212 00336000 * RECLEN=LENGTH(SRMREC); 0213 00337000 LA RECLEN,18 0213 00338000 * IF MCRBRENT=ON THEN 0214 00339000 L @12,MCAMCR(,AWSAPTR) 0214 00340000 TM MCRBRENT(@12),B'00010000' 0214 00341000 BNO @RF00214 0214 00342000 * DO; /* PROCESS BRANCH HOOK */ 00343000 * GEN; 0216 00344000 SETFRR A,FRRAD=(RTCAREG),WRKREGS=(7,9),PARMAD=(R9PARM) 00345000 * SVR14NRM=RTNSAVE; /* SAVE NORMAL RETURN */ 00346000 ST RTNSAVE,SVR14NRM(,R9PARM) 0217 00347000 * MCATRAIL=SRMON; /* CLEAR MCATRAIL AND SET FLAG */ 00348000 XC MCATRAIL+4(4,AWSAPTR),MCATRAIL+4(AWSAPTR) 0218 00349000 MVC MCATRAIL(4,AWSAPTR),@CB03128 0218 00350000 * PREASCB=PSAAOLD; /* GATHER ASCB ADDR */ 00351000 L @12,PSAAOLD 0219 00352000 ST @12,PREASCB(,AWSAPTR) 0219 00353000 * PRECPUID=PSACPUSA; /* GET CPU ID @YM03489*/ 00354000 LH @12,PSACPUSA 0220 00355000 STH @12,PRECPUID(,AWSAPTR) 0220 00356000 * SRMR15=BRREG11; /* GATHER RC SAVED IN R11 FOR BR 00357000 * HOOK */ 00358000 L @12,MCAMCR(,AWSAPTR) 0221 00359000 MVC SRMR15(4,AWSAPTR),BRREG11(@12) 0221 00360000 * SRMR0R1=BRREG01; /* GATHER R0 AND R1 */ 00361000 MVC SRMR0R1(8,AWSAPTR),BRREG01(@12) 0222 00362000 * END; 0223 00363000 * ELSE 0224 00364000 * DO; /* NORMAL HOOK */ 00365000 B @RC00214 0224 00366000 @RF00214 DS 0H 0225 00367000 * CALL AHLPRECM; /* COMMON INITIALIZER */ 00368000 BAL @14,AHLPRECM 0225 00369000 * MCASRM=ON; /* INDICATE SRM RTN */ 00370000 OI MCASRM(AWSAPTR),B'01000000' 0226 00371000 * SRMR15=EVREG15; /* GATHER R15 */ 00372000 L @12,LCCAPTR 0227 00373000 MVC SRMR15(4,AWSAPTR),EVREG15(@12) 0227 00374000 * SRMR0R1=EVREG01; /* GATHER R0 AND R1 */ 00375000 MVC SRMR0R1(8,AWSAPTR),EVREG01(@12) 0228 00376000 * END; 0229 00377000 * IF ASIDXT=0 /* CURRENT ASCB IS RIGHT ONE */ 00378000 * THEN 0230 00379000 @RC00214 LH @12,ASIDXT(,AWSAPTR) 0230 00380000 LTR @12,@12 0230 00381000 BNZ @RF00230 0230 00382000 * DO; 0231 00383000 * RFY 0232 00384000 * ASCB BASED(PSAAOLD); /* @YM07403*/ 00385000 * ASIDXT=ASCBASID; /* GATHER ASID @YM07403*/ 00386000 L @12,PSAAOLD 0233 00387000 LH @12,ASCBASID(,@12) 0233 00388000 N @12,@CF03376 0233 00389000 STH @12,ASIDXT(,AWSAPTR) 0233 00390000 * GOTO AHLPSTCM; /* EXIT @YM07403*/ 00391000 B AHLPSTCM 0234 00392000 * END; 0235 00393000 * MCAMASCB=ON; /* INDICATE ASCB PROCESSING */ 00394000 @RF00230 OI MCAMASCB(AWSAPTR),B'00100000' 0236 00395000 * SRMASCB=ASVTENTY(ASIDX); /* GATHER ASCB @ */ 00396000 LH @12,ASIDX(,AWSAPTR) 0237 00397000 N @12,@CF03376 0237 00398000 SLA @12,2 0237 00399000 L @08,CVTPTR 0237 00400000 L @08,ASVTPTR(,@08) 0237 00401000 L @12,ASVTENTY-4(@12,@08) 0237 00402000 ST @12,SRMASCB(,AWSAPTR) 0237 00403000 * GOTO AHLPSTCM; /* GOTO EXIT CODE */ 00404000 B AHLPSTCM 0238 00405000 * GEN(EJECT); 0239 00406000 * 0239 00407000 EJECT 00408000 * /*****************************************************************/ 00409000 * /* */ 00410000 * /* GATHER DATA AND BUILD RNIO RECORD */ 00411000 * /* */ 00412000 * /*****************************************************************/ 00413000 * 0240 00414000 *AHLRNIO: 0240 00415000 * ; 0240 00416000 AHLRNIO DS 0H 0241 00417000 * GENERATE; 0241 00418000 USING *,EPREG 00419000 L BASEREG,BASEADDR 00420000 DROP EPREG 00421000 * RTNSAVE=RTNADDR; /* SAVE RETURN ADDRESS */ 00422000 LR RTNSAVE,RTNADDR 0242 00423000 * RTCAREG=ADDR(FRRRNIO); /* GET ERROR ROUTINE ADDR */ 00424000 LA RTCAREG,FRRRNIO 0243 00425000 * GENERATE; 0244 00426000 SETFRR A,FRRAD=(RTCAREG),WRKREGS=(7,9),PARMAD=(R9PARM) 00427000 * SVR14NRM=RTNSAVE; /* SAVE RETURN ADDR TO MCIH */ 00428000 ST RTNSAVE,SVR14NRM(,R9PARM) 0245 00429000 * GENERATE; 0246 00430000 TM FLCPOPSW+1,X'01' SUPER STATE 00431000 BNZ AHLPSCM2 EXIT 00432000 * MCATRAIL=RNIOMASK; /* ZERO FLAGS AND SET RNIO */ 00433000 MVC MCATRAIL(8,AWSAPTR),RNIOMASK 0247 00434000 * PRECPUID=PSACPUSA; /* GATHER CPUID @YM03489*/ 00435000 LH @12,PSACPUSA 0248 00436000 STH @12,PRECPUID(,AWSAPTR) 0248 00437000 * RECLEN=LENGTH(RNIOREC); 0249 00438000 LA RECLEN,30 0249 00439000 * MCAMASCB=ON; /* DEBUG FLAG */ 00440000 OI MCAMASCB(AWSAPTR),B'00100000' 0250 00441000 * RFY 0251 00442000 * WORKREG RESTRICTED; 0251 00443000 * WORKREG=RNIOASID; /* GET ASID INDEX */ 00444000 L @12,LCCAPTR 0252 00445000 L @12,EVREG2(,@12) 0252 00446000 LH WORKREG,RNIOASID(,@12) 0252 00447000 N WORKREG,@CF03376 0252 00448000 * PREASCB=ASVTENTY(WORKREG); /* GATHER ASCB ADDR */ 00449000 LR @12,WORKREG 0253 00450000 SLA @12,2 0253 00451000 L @08,CVTPTR 0253 00452000 L @08,ASVTPTR(,@08) 0253 00453000 L @12,ASVTENTY-4(@12,@08) 0253 00454000 ST @12,PREASCB(,AWSAPTR) 0253 00455000 * RFY 0254 00456000 * WORKREG UNRSTD; 0254 00457000 *RCOV2: 0255 00458000 * MCAMBTU=ON; /* INDICATE BTU PROCESSING */ 00459000 RCOV2 OI MCAMBTU(AWSAPTR),B'00000100' 0255 00460000 * RNIOR0=EVREG0; /* GATHER LENGTH OF BTU @Z40KI3O*/ 00461000 L @12,LCCAPTR 0256 00462000 L @08,EVREG0(,@12) 0256 00463000 STCM @08,15,RNIOR0(AWSAPTR) 0256 00464000 * RNIOBTU=BTU; /* GATHER BTU DATA @VS40023*/ 00465000 L @12,EVREG1(,@12) 0257 00466000 MVC RNIOBTU(20,AWSAPTR),BTU(@12) 0257 00467000 * IF EVREG0>=20 THEN /* CHECK LENGTH COUNT @Z40KI3O*/ 00468000 C @08,@CF03137 0258 00469000 BNL @RT00258 0258 00470000 * GO TO HIT; /* DCF GE TEN, THEN EXIT @Y30AI3O*/ 00471000 * ELSE /* LESS THAN TEN @Y30AI3O*/ 00472000 * RFY 0260 00473000 * (WORKREG, 0260 00474000 * R6WORK) RSTD; /* @Y30AI3O*/ 00475000 * DO WORKREG=EVREG0 TO 19 BY 1; /* LOOP THRU BTU FIELD @Z40KI3O*/ 00476000 LR WORKREG,@08 0261 00477000 B @DE00261 0261 00478000 @DL00261 DS 0H 0262 00479000 * R6WORK=WORKREG+ADDR(RNIOBTU); /* PICK UP RNIOBTU ADDR @Z40KI3O*/ 00480000 LA R6WORK,RNIOBTU(,AWSAPTR) 0262 00481000 ALR R6WORK,WORKREG 0262 00482000 * GEN; 0263 00483000 * /*@Y30AI3O*/ 00484000 MVI 0(R6WORK),X'40' /* BLANKOUT EXTRA BYTES @Y30AI3O*/ 00485000 * END; /* @Y30AI3O*/ 00486000 AL WORKREG,@CF00046 0264 00487000 @DE00261 C WORKREG,@CF03322 0264 00488000 BNH @DL00261 0264 00489000 * RFY 0265 00490000 * (WORKREG, 0265 00491000 * R6WORK) UNRSTD; /* @Y30AI3O*/ 00492000 *HIT: 0266 00493000 * GO TO AHLPSTCM; /* EXIT @Y30AI3O*/ 00494000 B AHLPSTCM 0266 00495000 * GEN(EJECT); 0267 00496000 * 0267 00497000 EJECT 00498000 * /*****************************************************************/ 00499000 * /* */ 00500000 * /* AHLTXSYS ERROR ROUTINE */ 00501000 * /* */ 00502000 * /*****************************************************************/ 00503000 * 0268 00504000 *AHLERPRE: 0268 00505000 * PROC OPTIONS(DONTSAVE,NOSAVEAREA); 0268 00506000 B @PB00003 0268 00507000 AHLERPRE DS 0H 0269 00508000 * RFY 0269 00509000 * R0 RSTD; 0269 00510000 * RFY 0270 00511000 * RTNADDR RSTD; 0270 00512000 * RFY 0271 00513000 * MCQE BASED(R0); 0271 00514000 * RFY 0272 00515000 * MCRWSA BASED(WSACGTF); 0272 00516000 * AWSAPTR=MCRMCA; /* GET ADDR OF MCAWSA AT ERROR 0273 00517000 * FROM MCRWSA */ 00518000 L @15,LCCAPTR 0273 00519000 L @15,LCCACPUS(,@15) 0273 00520000 L @15,WSACGTF(,@15) 0273 00521000 L AWSAPTR,MCRMCA(,@15) 0273 00522000 * RFY 0274 00523000 * MCRWSA BASED(MCAMCR); 0274 00524000 * MCAERROR=ON; /* FLAG ERROR RECOVERY IN CONTROL*/ 00525000 OI MCAERROR(AWSAPTR),B'00000100' 0275 00526000 * WTOLIST=WTONAMES; /* INIT WTO LIST */ 00527000 MVC WTOLIST(16,AWSAPTR),WTONAMES 0276 00528000 * WTOFUNC=TRAILSAV; /* SPECIFIC FUNCTION */ 00529000 MVC WTOFUNC(4,AWSAPTR),TRAILSAV(R9PARM) 0277 00530000 * R0=MCRREG0; /* MCQE AT TIME OF ERROR */ 00531000 L @15,MCAMCR(,AWSAPTR) 0278 00532000 L R0,MCRREG0(,@15) 0278 00533000 * PCTPTR=MCQEAT; /* PCT AT TIME OF ERROR */ 00534000 LR @15,R0 0279 00535000 L PCTPTR,MCQEAT(,@15) 0279 00536000 * DO; /* SETRP RECPARM(RECID) */ 00537000 * RESPECIFY 0281 00538000 * (GPR00P, 0281 00539000 * GPR01P, 0281 00540000 * GPR14P, 0281 00541000 * GPR15P) RSTD; 0281 00542000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00543000 MVI SDWARCDE(GPR01P),X'00' 0282 00544000 * GPR15P=ADDR(RECID); /* ACCESS RECORD PARAMETER LIST */ 00545000 LA GPR15P,RECID 0283 00546000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD PARAMETERS */ 00547000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0284 00548000 * RESPECIFY 0285 00549000 * (GPR00P, 0285 00550000 * GPR01P, 0285 00551000 * GPR14P, 0285 00552000 * GPR15P) UNRSTD; 0285 00553000 * END; 0286 00554000 * IF SDWAMCHK=ON THEN /* A MACHINE CHECK OCCURRED */ 00555000 TM SDWAMCHK(SDWAPTR),B'10000000' 0287 00556000 BNO @RF00287 0287 00557000 * IF SDWAINSF=ON& /* INSTRUCTION FAILURE */ 00558000 * SDWAREGU=OFF& /* REGISTERS IN SDWA ARE VALID */ 00559000 * SDWAPSWU=OFF THEN /* PSW IS VALID TOO */ 00560000 TM SDWAINSF(SDWAPTR),B'00000100' 0288 00561000 BNO @RF00288 0288 00562000 TM SDWAREGU(SDWAPTR),B'01100000' 0288 00563000 BNZ @RF00288 0288 00564000 * DO; /* RETRY MAY BE ATTEMPTED */ 00565000 * DO; /* SETRP 0290 00566000 * RETADDR(MCHKRTY)RC(SDWARETY) */ 00567000 * RESPECIFY 0291 00568000 * (GPR00P, 0291 00569000 * GPR01P, 0291 00570000 * GPR14P, 0291 00571000 * GPR15P) RSTD; 0291 00572000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 00573000 MVI SDWARCDE(GPR01P),X'04' 0292 00574000 * GPR01P->SDWARTYA=ADDR(MCHKRTY);/* SAVE RETRY ADDRESS */ 00575000 L @12,SDWANXT1(,SDWAPTR) 0293 00576000 ST @12,SDWARTYA(,GPR01P) 0293 00577000 * RESPECIFY 0294 00578000 * (GPR00P, 0294 00579000 * GPR01P, 0294 00580000 * GPR14P, 0294 00581000 * GPR15P) UNRSTD; 0294 00582000 * END; 0295 00583000 * END; 0296 00584000 * ELSE 0297 00585000 * DO; /* RETRY NOT POSSIBLE */ 00586000 B @RC00288 0297 00587000 @RF00288 DS 0H 0298 00588000 * SDWASAV=SDWAPTR; /* SAVE R1 ACR0SS CALLS */ 00589000 ST SDWAPTR,SDWASAV(,AWSAPTR) 0298 00590000 * MCQESAV=R0; /* SAVE R0 ACROSS CALLS */ 00591000 ST R0,MCQESAV(,AWSAPTR) 0299 00592000 * R0=ADDR(DMPLIST); /* PARMS FOR DUMP */ 00593000 LA R0,DMPLIST 0300 00594000 * CALL DMPMOD; /* TAKE A DUMP */ 00595000 L @15,PCTDMPMD(,PCTPTR) 0301 00596000 BALR @14,@15 0301 00597000 * WTOUN=R15RC; /* SET TO BLANKS OR UN */ 00598000 STH R15RC,WTOUN(,AWSAPTR) 0302 00599000 * R1PARM=ADDR(WTOLIST); 0303 00600000 LA R1PARM,WTOLIST(,AWSAPTR) 0303 00601000 * CALL AHLWTO; 0304 00602000 L @15,PCTWTOMD(,PCTPTR) 0304 00603000 BALR @14,@15 0304 00604000 * SDWAPTR=SDWASAV; /* RESTORE PTR */ 00605000 L SDWAPTR,SDWASAV(,AWSAPTR) 0305 00606000 * R0=MCQESAV; /* RESTORE R0 */ 00607000 L R0,MCQESAV(,AWSAPTR) 0306 00608000 * DO; /* SETRP RC(SDWACWT) */ 00609000 * RESPECIFY 0308 00610000 * (GPR00P, 0308 00611000 * GPR01P, 0308 00612000 * GPR14P, 0308 00613000 * GPR15P) RSTD; 0308 00614000 * GPR01P->SDWARCDE=SDWACWT;/* SAVE RC VALUE */ 00615000 MVI SDWARCDE(GPR01P),X'00' 0309 00616000 * RESPECIFY 0310 00617000 * (GPR00P, 0310 00618000 * GPR01P, 0310 00619000 * GPR14P, 0310 00620000 * GPR15P) UNRSTD; 0310 00621000 * END; 0311 00622000 * END; 0312 00623000 * ELSE /* CHECK IF THIS ROUTINE WAS 0313 00624000 * PERCOLATED TO */ 00625000 * IF SDWAPERC=ON THEN /* YES, PERCOLATED TO */ 00626000 B @RC00287 0313 00627000 @RF00287 TM SDWAPERC(SDWAPTR),B'00010000' 0313 00628000 BNO @RF00313 0313 00629000 * IF SDWAEAS=ON THEN /* PREVIOUS FRR WAS SUCCESSFUL */ 00630000 TM SDWAEAS(SDWAPTR),B'00001000' 0314 00631000 BNO @RF00314 0314 00632000 * DO; /* SO CONTINUE PERCOLATION */ 00633000 * DO; /* SETRP RC(SDWACWT) */ 00634000 * RESPECIFY 0317 00635000 * (GPR00P, 0317 00636000 * GPR01P, 0317 00637000 * GPR14P, 0317 00638000 * GPR15P) RSTD; 0317 00639000 * GPR01P->SDWARCDE=SDWACWT;/* SAVE RC VALUE */ 00640000 MVI SDWARCDE(GPR01P),X'00' 0318 00641000 * RESPECIFY 0319 00642000 * (GPR00P, 0319 00643000 * GPR01P, 0319 00644000 * GPR14P, 0319 00645000 * GPR15P) UNRSTD; 0319 00646000 * END; 0320 00647000 * END; 0321 00648000 * ELSE 0322 00649000 * DO; /* PREVIOUS FRR HAD A PROBLEM */ 00650000 B @RC00314 0322 00651000 @RF00314 DS 0H 0323 00652000 * DO; /* SETRP RC(SDWACWT) */ 00653000 * RESPECIFY 0324 00654000 * (GPR00P, 0324 00655000 * GPR01P, 0324 00656000 * GPR14P, 0324 00657000 * GPR15P) RSTD; 0324 00658000 * GPR01P->SDWARCDE=SDWACWT;/* SAVE RC VALUE */ 00659000 MVI SDWARCDE(GPR01P),X'00' 0325 00660000 * RESPECIFY 0326 00661000 * (GPR00P, 0326 00662000 * GPR01P, 0326 00663000 * GPR14P, 0326 00664000 * GPR15P) UNRSTD; 0326 00665000 * END; 0327 00666000 * MCQESAV=R0; /* SAVE R0 */ 00667000 ST R0,MCQESAV(,AWSAPTR) 0328 00668000 * R0=ADDR(DMPLIST); /* PARMS FOR DUMP */ 00669000 LA R0,DMPLIST 0329 00670000 * CALL DMPMOD; /* TAKE A DUMP */ 00671000 L @15,PCTDMPMD(,PCTPTR) 0330 00672000 BALR @14,@15 0330 00673000 * R0=MCQESAV; /* RESTORE R0 */ 00674000 L R0,MCQESAV(,AWSAPTR) 0331 00675000 * END; 0332 00676000 * ELSE 0333 00677000 * 0333 00678000 * /*************************************************************/ 00679000 * /* */ 00680000 * /* CHECK FOR DEBUG MODE AND PROHIBIT RETRY FLAGS */ 00681000 * /* */ 00682000 * /*************************************************************/ 00683000 * 0333 00684000 * IF GTFDEBUG=ON| /* IMMEDIATE DUMP REQUESTED */ 00685000 * SDWACLUP=ON THEN /* NO RETRY ALLOWED */ 00686000 B @RC00313 0333 00687000 @RF00313 TM GTFDEBUG(PCTPTR),B'01000000' 0333 00688000 BO @RT00333 0333 00689000 TM SDWACLUP(SDWAPTR),B'10000000' 0333 00690000 BNO @RF00333 0333 00691000 @RT00333 DS 0H 0334 00692000 * DO; 0334 00693000 * SDWASAV=SDWAPTR; /* SAVE R1 ACR0SS CALLS */ 00694000 ST SDWAPTR,SDWASAV(,AWSAPTR) 0335 00695000 * MCQESAV=R0; /* SAVE R0 ACROSS CALLS */ 00696000 ST R0,MCQESAV(,AWSAPTR) 0336 00697000 * R0=ADDR(DMPLIST); /* PARMS FOR DUMP */ 00698000 LA R0,DMPLIST 0337 00699000 * CALL DMPMOD; /* TAKE A DUMP */ 00700000 L @15,PCTDMPMD(,PCTPTR) 0338 00701000 BALR @14,@15 0338 00702000 * WTOUN=R15RC; /* SET TO BLANKS OR UN */ 00703000 STH R15RC,WTOUN(,AWSAPTR) 0339 00704000 * R1PARM=ADDR(WTOLIST); 0340 00705000 LA R1PARM,WTOLIST(,AWSAPTR) 0340 00706000 * CALL AHLWTO; 0341 00707000 L @15,PCTWTOMD(,PCTPTR) 0341 00708000 BALR @14,@15 0341 00709000 * SDWAPTR=SDWASAV; /* RESTORE PTR */ 00710000 L SDWAPTR,SDWASAV(,AWSAPTR) 0342 00711000 * R0=MCQESAV; /* RESTORE R0 */ 00712000 L R0,MCQESAV(,AWSAPTR) 0343 00713000 * DO; /* SETRP RC(SDWACWT) */ 00714000 * RESPECIFY 0345 00715000 * (GPR00P, 0345 00716000 * GPR01P, 0345 00717000 * GPR14P, 0345 00718000 * GPR15P) RSTD; 0345 00719000 * GPR01P->SDWARCDE=SDWACWT;/* SAVE RC VALUE */ 00720000 MVI SDWARCDE(GPR01P),X'00' 0346 00721000 * RESPECIFY 0347 00722000 * (GPR00P, 0347 00723000 * GPR01P, 0347 00724000 * GPR14P, 0347 00725000 * GPR15P) UNRSTD; 0347 00726000 * END; /* CONTINUE TERMINATION */ 00727000 * END; 0349 00728000 * ELSE 0350 00729000 * RETURN; /* RETURN TO CALLER */ 00730000 */* RETURN TO RTM. SDWA IS SET UP FOR RETURN */ 00731000 * 0351 00732000 * RTNADDR=SVR14FRR; /* SET UP RETURN TO RTM */ 00733000 @RC00313 DS 0H 0351 00734000 @RC00287 L RTNADDR,SVR14FRR(,R9PARM) 0351 00735000 * BC(15,RTNADDR); /* RETURN */ 00736000 BCR 15,RTNADDR 0352 00737000 * END AHLERPRE; 0353 00738000 @EL00003 DS 0H 0353 00739000 @EF00003 DS 0H 0353 00740000 @ER00003 BR @14 0353 00741000 @PB00003 DS 0H 0353 00742000 * GEN(EJECT); 0354 00743000 * 0354 00744000 EJECT 00745000 * /*****************************************************************/ 00746000 * /* */ 00747000 * /* FRR FOR DSP, LSR, AND SRB ERRORS */ 00748000 * /* */ 00749000 * /*****************************************************************/ 00750000 * 0355 00751000 *FRRDSP: 0355 00752000 * ; 0355 00753000 FRRDSP DS 0H 0356 00754000 * GENERATE; 0356 00755000 USING FRRDSP,EPREG 00756000 L BASEREG,BASEADDR PICK UP OLD BASE ADDR 00757000 DROP EPREG 00758000 * RFY 0357 00759000 * (SDWAPTR, 0357 00760000 * RTNADDR) RSTD; 0357 00761000 * R9PARM=SDWAPARM; /* PTR TO USER PARM AREA */ 00762000 L R9PARM,SDWAPARM(,SDWAPTR) 0358 00763000 * SVR14FRR=RTNADDR; /* SAVE RETURN ADDR TO RTM */ 00764000 ST RTNADDR,SVR14FRR(,R9PARM) 0359 00765000 * RFY 0360 00766000 * RTNADDR UNRSTD; 0360 00767000 * TRAILSAV='DSP '; /* FLAG FUNCTION */ 00768000 MVC TRAILSAV(4,R9PARM),@CC03338 0361 00769000 * CALL AHLERPRE; /* CALL COMMON INITIALIZER */ 00770000 BAL @14,AHLERPRE 0362 00771000 * IF MCREID=IMDMDSP1 THEN /* SRB? */ 00772000 L @12,MCAMCR(,AWSAPTR) 0363 00773000 CLC MCREID(2,@12),@CH01762 0363 00774000 BNE @RF00363 0363 00775000 * RECLEN=LENGTH(SRBREC); /* LENGTH OF RECORD FOR STACK */ 00776000 LA RECLEN,27 0364 00777000 * ELSE 0365 00778000 * RECLEN=LENGTH(DSPREC); /* LENGTH OF RECORD FOR STACK */ 00779000 B @RC00363 0365 00780000 @RF00363 LA RECLEN,30 0365 00781000 * IF MCADREGS=ON THEN /* ERROR GATHERING REGS */ 00782000 @RC00363 TM MCADREGS(AWSAPTR),B'00000100' 0366 00783000 BNO @RF00366 0366 00784000 * IF MCREID=IMDMDSP1 THEN /* SRB? */ 00785000 L @12,MCAMCR(,AWSAPTR) 0367 00786000 CLC MCREID(2,@12),@CH01762 0367 00787000 BNE @RF00367 0367 00788000 * DO; /* YES */ 00789000 * SRBR15=ERRIND; /* **** IN REG15 */ 00790000 MVC SRBR15(4,AWSAPTR),@CC03143 0369 00791000 * SRBR01=ERRIND; /* **** IN REG0 AND REG1 */ 00792000 MVC SRBR01(8,AWSAPTR),@CC03143 0370 00793000 * GO TO RETRYP; /* RETRY TO PSTCM; */ 00794000 B RETRYP 0371 00795000 * END; 0372 00796000 * ELSE 0373 00797000 * DO; 0373 00798000 @RF00367 DS 0H 0374 00799000 * DSPR15=ERRIND; /* **** IN REG15 */ 00800000 MVC DSPR15(4,AWSAPTR),@CC03143 0374 00801000 * DSPR0R1=ERRIND; /* **** IN REG0 AND REG1 */ 00802000 MVC DSPR0R1(8,AWSAPTR),@CC03143 0375 00803000 * GO TO RETRYP; /* RETRY TO PSTCM; */ 00804000 B RETRYP 0376 00805000 * END; 0377 00806000 * 0377 00807000 * /*****************************************************************/ 00808000 * /* */ 00809000 * /* DISABLE FUNCTION AND TAKE DUMP IF NECESSARY */ 00810000 * /* */ 00811000 * /*****************************************************************/ 00812000 * 0378 00813000 *DSPCHK: 0378 00814000 * IF PCTDSP=ON THEN 0378 00815000 @RF00366 DS 0H 0378 00816000 DSPCHK TM PCTDSP(PCTPTR),B'00001000' 0378 00817000 BNO @RF00378 0378 00818000 * DO; /* FUNCTION NOT YET DISABLED */ 00819000 * RFY 0380 00820000 * (R10WORK, 0380 00821000 * R8FRRWRK) RSTD; 0380 00822000 * R10WORK=PCTCATF; /* GET CURRENT PICTURE OF FLAGS */ 00823000 L R10WORK,PCTCATF(,PCTPTR) 0381 00824000 * R8FRRWRK=R10WORK&DSPOFF; /* FLAGS WITH THIS FUNCTION OFF */ 00825000 LR R8FRRWRK,R10WORK 0382 00826000 N R8FRRWRK,@CF03122 0382 00827000 * CS(R10WORK,R8FRRWRK,PCTCATF);/* SET FLAGS TO THIS FUNCTION 0383 00828000 * OFF */ 00829000 CS R10WORK,@08,PCTCATF(PCTPTR) 0383 00830000 * BC(4,DSPCHK); /* SOMEONE ELSE BEAT US TO FLAGS. 00831000 * CHECK AGAIN */ 00832000 BC 4,DSPCHK 0384 00833000 * SDWASAV=SDWAPTR; /* SAVE R1 ACR0SS CALLS */ 00834000 ST SDWAPTR,SDWASAV(,AWSAPTR) 0385 00835000 * MCQESAV=R0; /* SAVE R0 ACROSS CALLS */ 00836000 ST R0,MCQESAV(,AWSAPTR) 0386 00837000 * R0=ADDR(DMPLIST); /* PARMS FOR DUMP */ 00838000 LA R0,DMPLIST 0387 00839000 * CALL DMPMOD; /* TAKE A DUMP */ 00840000 L @15,PCTDMPMD(,PCTPTR) 0388 00841000 BALR @14,@15 0388 00842000 * WTOUN=R15RC; /* SET TO BLANKS OR UN */ 00843000 STH R15RC,WTOUN(,AWSAPTR) 0389 00844000 * R1PARM=ADDR(WTOLIST); 0390 00845000 LA R1PARM,WTOLIST(,AWSAPTR) 0390 00846000 * CALL AHLWTO; 0391 00847000 L @15,PCTWTOMD(,PCTPTR) 0391 00848000 BALR @14,@15 0391 00849000 * R0=MCQESAV; /* RESTORE R0 */ 00850000 * 0392 00851000 L R0,MCQESAV(,AWSAPTR) 0392 00852000 * /*************************************************************/ 00853000 * /* */ 00854000 * /* ISSUE SETEVENT TO DISABLE THIS FUNCTION */ 00855000 * /* */ 00856000 * /*************************************************************/ 00857000 * 0393 00858000 * DO; /* SETEVENT NAME('GTF ')MCQE(MCQE 00859000 * )ACTION(DISABLE)EIDAD(DSPEIDS) 00860000 * MF(E,MCAWTO,COMPLETE)EIDNO(4) */ 00861000 * 0393 00862000 * /***********************************************************/ 00863000 * /* */ 00864000 * /* THE FOLLOWING SECTION OF CODE IS GENERATED BY THE */ 00865000 * /* SETEVENT MACRO. THIS CODE WILL BE EITHER AN INITIALIZED */ 00866000 * /* PARAMETER LIST, OR IF IT IS THE RESULT OF STANDARD OR */ 00867000 * /* EXECUTE FORM IT WILL FILL in the list, GENERATE ALL */ 00868000 * /* LINKAGES AND CALL THE PROPER sERVICE, EITHER AHLSETEV OR*/ 00869000 * /* AHLSETD */ 00870000 * /* */ 00871000 * /***********************************************************/ 00872000 * 0394 00873000 * DCL 0394 00874000 * AHLPPTR REG(1) PTR(31) RSTD;/* PARAMETER LIST ADDRESS */ 00875000 * DCL 0395 00876000 * AHLSETEV ENTRY OPTIONS(EXIT,SEQFLOW) BASED(MCHSETE) VALRG(0 00877000 * ); /* ENTRY FOR ADD ACTIVAT,FREE */ 00878000 * DCL 0396 00879000 * AHLSETD ENTRY OPTIONS(EXIT,SEQFLOW) BASED(MCHSETD) VALRG(0) 00880000 * ; /* ENTRY FOR DISABLE AND CHANGE */ 00881000 * DCL 0397 00882000 * 1 SEPL BASED(AHLPPTR) BDY(WORD),/* DSECT PARAMETER LIST */ 00883000 * 2 SEFG PTR(8), /* ACTION GLAGS */ 00884000 * 2 * PTR(8), 0397 00885000 * 2 SEEN PTR(8), /* EID COUNT */ 00886000 * 2 SECN PTR(8), /* CLASS COUNT */ 00887000 * 2 SENM CHAR(8), /* APPLICATION NMAE */ 00888000 * 2 SEEL PTR(31), /* ADDRESS OF LIST OF EIDS */ 00889000 * 2 SECL PTR(31), /* ADDRESS OF LIST OF CLASSES */ 00890000 * 2 SEMC PTR(31); /* MCQE ADDRESS */ 00891000 * AHLPPTR=ADDR(MCAWTO); /* SET UP PLIST PTR */ 00892000 LA AHLPPTR,MCAWTO(,AWSAPTR) 0398 00893000 * SEPL=SEPL&&SEPL; /* INIT PLIST TO ZERO */ 00894000 XC SEPL(24,AHLPPTR),SEPL(AHLPPTR) 0399 00895000 * SEMC=ADDR(MCQE); /* SET UP MCQE ADDRESS */ 00896000 ST R0,SEMC(,AHLPPTR) 0400 00897000 * SENM='GTF '; /* MOVE NAME INTO PLIST */ 00898000 MVC SENM(8,AHLPPTR),@CC03355 0401 00899000 * SEFG=32; /* MOVE FLAGS INTO PLIST */ 00900000 MVI SEFG(AHLPPTR),X'20' 0402 00901000 * SEEN=4; /* SET TO VALUE SPECIFIED */ 00902000 MVI SEEN(AHLPPTR),X'04' 0403 00903000 * SEEL=ADDR(DSPEIDS); /* SET TO VALUE SPECIFIED */ 00904000 LA @12,DSPEIDS 0404 00905000 ST @12,SEEL(,AHLPPTR) 0404 00906000 * IF SEFG=32|SEFG=8 THEN /* CHECK FOR DISABLE OR * CHANGE */ 00907000 CLI SEFG(AHLPPTR),32 0405 00908000 BE @RT00405 0405 00909000 CLI SEFG(AHLPPTR),8 0405 00910000 BNE @RF00405 0405 00911000 @RT00405 DS 0H 0406 00912000 * CALL AHLSETD; /* YES */ 00913000 L @12,CVTPTR 0406 00914000 L @12,CVTGTFA-1(,@12) 0406 00915000 L @15,MCHSETD(,@12) 0406 00916000 BALR @14,@15 0406 00917000 * ELSE /* NO */ 00918000 * CALL AHLSETEV; 0407 00919000 B @RC00405 0407 00920000 @RF00405 L @12,CVTPTR 0407 00921000 L @12,CVTGTFA-1(,@12) 0407 00922000 L @15,MCHSETE(,@12) 0407 00923000 BALR @14,@15 0407 00924000 * END; 0408 00925000 @RC00405 DS 0H 0409 00926000 * SDWAPTR=SDWASAV; /* RESTORE SDWA ADDR */ 00927000 L SDWAPTR,SDWASAV(,AWSAPTR) 0409 00928000 * END; 0410 00929000 * 0410 00930000 * /*****************************************************************/ 00931000 * /* */ 00932000 * /* COMMON FRR EXIT ROUTINE FOR NONRECOVERABLR FRRS */ 00933000 * /* */ 00934000 * /*****************************************************************/ 00935000 * 0411 00936000 *FRRGEN: 0411 00937000 * ERRSLOT=CATERIND; /* PLACE 'EEEE' IN RECORD */ 00938000 @RF00378 DS 0H 0411 00939000 FRRGEN MVC ERRSLOT(2,AWSAPTR),@CB03141 0411 00940000 * SDWASAV=SDWAPTR; /* SAVE SDWA PTR */ 00941000 ST SDWAPTR,SDWASAV(,AWSAPTR) 0412 00942000 * DO; /* AHLSTACK 0413 00943000 * DLENGTH(RECLEN)AID(255)FID(03)*/ 00944000 * 0413 00945000 * /***************************************************************/ 00946000 * /* */ 00947000 * /* THE FOLLOWING CODE IS GENERATED BY THE AHLSTACK MACRO. THIS */ 00948000 * /* CODE BUILDS THE GTF RECORD PREFIX AND THEN CALLS AHLSBLOK TO*/ 00949000 * /* STACK THE RECORD. */ 00950000 * /* */ 00951000 * /***************************************************************/ 00952000 * 0414 00953000 * RFY 0414 00954000 * (AHLRECPR, 0414 00955000 * AHLSBREG, 0414 00956000 * AHLRETCD) RSTD; 0414 00957000 * IF OPTTIME='1'B THEN /* CHECK FOR TIMESTAMP REQUESTED */ 00958000 TM OPTTIME(PCTPTR),B'00000001' 0415 00959000 BNO @RF00415 0415 00960000 * DO; /* YES, TIMESTAMP */ 00961000 * AHLRECPR=ADDR(MCARECPR); /* SETUP ADDRESSIBILITY TO PREFIX 00962000 * FOR PREFIX WITH TIMESTAMP */ 00963000 LA AHLRECPR,MCARECPR(,AWSAPTR) 0417 00964000 * AHLGLGTH=RECLEN+16; /* SET LENGTH TO INCLUDE *** 0418 00965000 * DLENGTH *** PLUS TIMESTAMP 0418 00966000 * PREFIX */ 00967000 LA @12,16 0418 00968000 ALR @12,RECLEN 0418 00969000 STH @12,AHLGLGTH(,AHLRECPR) 0418 00970000 * GEN(STCK AHLGTST(AHLRECPR) PUT TOD CLOCK VALUE INTO PREFIX ) 00971000 * SETS(AHLGTST) NOEXIT SEQFLOW NOFLOWS; 0419 00972000 STCK AHLGTST(AHLRECPR) PUT TOD CLOCK VALUE INTO PREFIX 00973000 * AHLGEIDL=MCAMCR->MCREID; /* *** EID *** NOT SPECIFIED PUT 00974000 * DEFAULT INTO PREFIX */ 00975000 L @12,MCAMCR(,AWSAPTR) 0420 00976000 LH @12,MCREID(,@12) 0420 00977000 N @12,@CF03376 0420 00978000 STH @12,AHLGEIDL(,AHLRECPR) 0420 00979000 * END; 0421 00980000 * ELSE /* NO TIMESTAMP TO BE DONE, BUILD 00981000 * SHORT PREFIX */ 00982000 * DO; 0422 00983000 B @RC00415 0422 00984000 @RF00415 DS 0H 0423 00985000 * AHLRECPR=ADDR(MCARECPR)+8;/* SETUP ADDRESSIBILITY TO FOR 0423 00986000 * SHORT PREFIX WITHOUT TIMESTAMP*/ 00987000 LA @12,8 0423 00988000 LA AHLRECPR,MCARECPR(,AWSAPTR) 0423 00989000 ALR AHLRECPR,@12 0423 00990000 * AHLGLGTH=RECLEN+8; /* PUT TOTAL RECORD LENGTH INTO 00991000 * PREFIX *** DLENGTH *** PLUS 0424 00992000 * PREFIX LENGTH */ 00993000 ALR @12,RECLEN 0424 00994000 STH @12,AHLGLGTH(,AHLRECPR) 0424 00995000 * AHLGEIDS=MCAMCR->MCREID; /* *** EID *** NOT SPECIFIED PUT 00996000 * DEFAULT INTO PREFIX */ 00997000 L @12,MCAMCR(,AWSAPTR) 0425 00998000 LH @12,MCREID(,@12) 0425 00999000 N @12,@CF03376 0425 01000000 STH @12,AHLGEIDS(,AHLRECPR) 0425 01001000 * END; 0426 01002000 * AHLGRES=0; /* ZERO OUT FOR QSAM 0427 01003000 * COMPATIBILITY */ 01004000 @RC00415 SLR @12,@12 0427 01005000 STH @12,AHLGRES(,AHLRECPR) 0427 01006000 * AHLGAID=255; /* PUT *** AID *** INTO PREFIX */ 01007000 MVI AHLGAID(AHLRECPR),X'FF' 0428 01008000 * AHLGFID=03; /* PUT *** FID *** INTO PREFIX */ 01009000 MVI AHLGFID(AHLRECPR),X'03' 0429 01010000 * AHLRETCD=4; /* SET DEFAULT RETURN CODE */ 01011000 LA AHLRETCD,4 0430 01012000 * AHLSBREG=SBLOKRTN; /* GET A STABLE COPY OF AHLSBLOK 01013000 * ADDR */ 01014000 L AHLSBREG,SBLOKRTN(,PCTPTR) 0431 01015000 * IF AHLSBREG^=0 THEN /* CHECK TO SEE IF AHLSBLOK IS 0432 01016000 * AVAILABLE */ 01017000 CR AHLSBREG,@12 0432 01018000 BE @RF00432 0432 01019000 * CALL AHLSBLOK; /* YES, SO CALL AHLSBLOK TO BLOCK 01020000 * RECORD */ 01021000 LR @15,AHLSBREG 0433 01022000 BALR @14,@15 0433 01023000 * RFY 0434 01024000 * (AHLRECPR, 0434 01025000 * AHLSBREG, 0434 01026000 * AHLRETCD) UNRSTD; 0434 01027000 @RF00432 DS 0H 0435 01028000 * END; 0435 01029000 * SDWAPTR=SDWASAV; /* RESTORE SDWA PTR */ 01030000 L SDWAPTR,SDWASAV(,AWSAPTR) 0436 01031000 * IF PCTCATF=0 THEN /* ALL FUNCTION ARE DISABLED */ 01032000 L @12,PCTCATF(,PCTPTR) 0437 01033000 LTR @12,@12 0437 01034000 BNZ @RF00437 0437 01035000 * DO; /* SETRP RC(SDWACWT) */ 01036000 * RESPECIFY 0439 01037000 * (GPR00P, 0439 01038000 * GPR01P, 0439 01039000 * GPR14P, 0439 01040000 * GPR15P) RSTD; 0439 01041000 * GPR01P->SDWARCDE=SDWACWT; /* SAVE RC VALUE */ 01042000 MVI SDWARCDE(GPR01P),X'00' 0440 01043000 * RESPECIFY 0441 01044000 * (GPR00P, 0441 01045000 * GPR01P, 0441 01046000 * GPR14P, 0441 01047000 * GPR15P) UNRSTD; 0441 01048000 * END; /* TERMINATE */ 01049000 * ELSE 0443 01050000 * DO; /* STILL SOME FUNCTIONS RUNNING */ 01051000 B @RC00437 0443 01052000 @RF00437 DS 0H 0444 01053000 * DO; /* SETRP 0444 01054000 * RETADDR(SVR14RTN)RC(SDWARETY) */ 01055000 * RESPECIFY 0445 01056000 * (GPR00P, 0445 01057000 * GPR01P, 0445 01058000 * GPR14P, 0445 01059000 * GPR15P) RSTD; 0445 01060000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 01061000 MVI SDWARCDE(GPR01P),X'04' 0446 01062000 * GPR01P->SDWARTYA=ADDR(SVR14RTN);/* SAVE RETRY ADDRESS */ 01063000 L @12,SVR14NRM(,R9PARM) 0447 01064000 ST @12,SDWARTYA(,GPR01P) 0447 01065000 * RESPECIFY 0448 01066000 * (GPR00P, 0448 01067000 * GPR01P, 0448 01068000 * GPR14P, 0448 01069000 * GPR15P) UNRSTD; 0448 01070000 * END; /* RETRY TO MCIH */ 01071000 * RTNADDR=SVR14FRR; /* GET RTM RETURN ADDR */ 01072000 L RTNADDR,SVR14FRR(,R9PARM) 0450 01073000 * GEN(SETFRR D,WRKREGS=(R9PARM,R10WORK)); 0451 01074000 SETFRR D,WRKREGS=(R9PARM,R10WORK) 01075000 * BC(15,RTNADDR); /* RETURN */ 01076000 BCR 15,RTNADDR 0452 01077000 * END; 0453 01078000 * RTNADDR=SVR14FRR; /* GET RTM RETURN ADDR */ 01079000 @RC00437 L RTNADDR,SVR14FRR(,R9PARM) 0454 01080000 * BC(15,RTNADDR); /* RETURN */ 01081000 BCR 15,RTNADDR 0455 01082000 * GEN(EJECT); 0456 01083000 * 0456 01084000 EJECT 01085000 * /*****************************************************************/ 01086000 * /* */ 01087000 * /* FRR FOR RNIO ERRORS */ 01088000 * /* */ 01089000 * /*****************************************************************/ 01090000 * 0457 01091000 *FRRRNIO: 0457 01092000 * ; 0457 01093000 FRRRNIO DS 0H 0458 01094000 * GENERATE; 0458 01095000 USING FRRRNIO,EPREG 01096000 L BASEREG,BASEADDR PICK UP OLD BASE ADDR 01097000 DROP EPREG 01098000 * RFY 0459 01099000 * (SDWAPTR, 0459 01100000 * RTNADDR) RSTD; 0459 01101000 * R9PARM=SDWAPARM; /* PTR TO USER PARM AREA */ 01102000 L R9PARM,SDWAPARM(,SDWAPTR) 0460 01103000 * SVR14FRR=RTNADDR; /* SAVE RETURN ADDR TO RTM */ 01104000 ST RTNADDR,SVR14FRR(,R9PARM) 0461 01105000 * RFY 0462 01106000 * RTNADDR UNRSTD; 0462 01107000 * TRAILSAV='RNIO'; /* FLAG FUNCTION */ 01108000 MVC TRAILSAV(4,R9PARM),@CC03359 0463 01109000 * CALL AHLERPRE; /* CALL COMMON INITIALIZER */ 01110000 BAL @14,AHLERPRE 0464 01111000 * IF MCAMBTU=ON THEN /* ERROR GATHERING BTU */ 01112000 TM MCAMBTU(AWSAPTR),B'00000100' 0465 01113000 BNO @RF00465 0465 01114000 * DO; 0466 01115000 * RNIOBTU=ERRIND; /* **** IN BTU FIELD */ 01116000 MVC RNIOBTU(20,AWSAPTR),@CC03143 0467 01117000 *RETRYP: 0468 01118000 * DO; /* SETRP 0468 01119000 * RETADDR(AHLPSTCM)RC(SDWARETY) */ 01120000 RETRYP DS 0H 0469 01121000 * RESPECIFY 0469 01122000 * (GPR00P, 0469 01123000 * GPR01P, 0469 01124000 * GPR14P, 0469 01125000 * GPR15P) RSTD; 0469 01126000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 01127000 MVI SDWARCDE(GPR01P),X'04' 0470 01128000 * GPR01P->SDWARTYA=ADDR(AHLPSTCM);/* SAVE RETRY ADDRESS */ 01129000 LA @12,AHLPSTCM 0471 01130000 ST @12,SDWARTYA(,GPR01P) 0471 01131000 * RESPECIFY 0472 01132000 * (GPR00P, 0472 01133000 * GPR01P, 0472 01134000 * GPR14P, 0472 01135000 * GPR15P) UNRSTD; 0472 01136000 * END; /* RETRY TO PSTCOM */ 01137000 */* RETURN TO RTM. SDWA IS SET UP FOR RETURN */ 01138000 * 0474 01139000 * RTNADDR=SVR14FRR; /* SET UP RETURN TO RTM */ 01140000 L RTNADDR,SVR14FRR(,R9PARM) 0474 01141000 * BC(15,RTNADDR); /* RETURN */ 01142000 BCR 15,RTNADDR 0475 01143000 * END; 0476 01144000 * IF MCAMASCB=ON THEN 0477 01145000 @RF00465 TM MCAMASCB(AWSAPTR),B'00100000' 0477 01146000 BNO @RF00477 0477 01147000 * DO; /* ASCB ERROR? */ 01148000 * RNIOASCB=ERRIND; /* **** IN ASCB */ 01149000 MVC RNIOASCB(4,AWSAPTR),@CC03143 0479 01150000 * DO; /* SETRP 0480 01151000 * RETADDR(RCOV2)RC(SDWARETY) */ 01152000 * RESPECIFY 0481 01153000 * (GPR00P, 0481 01154000 * GPR01P, 0481 01155000 * GPR14P, 0481 01156000 * GPR15P) RSTD; 0481 01157000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 01158000 MVI SDWARCDE(GPR01P),X'04' 0482 01159000 * GPR01P->SDWARTYA=ADDR(RCOV2);/* SAVE RETRY ADDRESS */ 01160000 LA @12,RCOV2 0483 01161000 ST @12,SDWARTYA(,GPR01P) 0483 01162000 * RESPECIFY 0484 01163000 * (GPR00P, 0484 01164000 * GPR01P, 0484 01165000 * GPR14P, 0484 01166000 * GPR15P) UNRSTD; 0484 01167000 * END; /* RETRY TO RCOV2 */ 01168000 */* RETURN TO RTM. SDWA IS SET UP FOR RETURN */ 01169000 * 0486 01170000 * RTNADDR=SVR14FRR; /* SET UP RETURN TO RTM */ 01171000 L RTNADDR,SVR14FRR(,R9PARM) 0486 01172000 * BC(15,RTNADDR); /* RETURN */ 01173000 BCR 15,RTNADDR 0487 01174000 * END; 0488 01175000 * 0488 01176000 * /*****************************************************************/ 01177000 * /* */ 01178000 * /* DISABLE FUNCTION AND TAKE DUMP IF NECESSARY */ 01179000 * /* */ 01180000 * /*****************************************************************/ 01181000 * 0489 01182000 *RNIOCHK: 0489 01183000 * IF PCTRNIO=ON THEN 0489 01184000 @RF00477 DS 0H 0489 01185000 RNIOCHK TM PCTRNIO(PCTPTR),B'10000000' 0489 01186000 BNO @RF00489 0489 01187000 * DO; /* FUNCTION NOT YET DISABLED */ 01188000 * RFY 0491 01189000 * (R10WORK, 0491 01190000 * R8FRRWRK) RSTD; 0491 01191000 * R10WORK=PCTCATF; /* GET CURRENT PICTURE OF FLAGS */ 01192000 L R10WORK,PCTCATF(,PCTPTR) 0492 01193000 * R8FRRWRK=R10WORK&RNIOOFF; /* FLAGS WITH THIS FUNCTION OFF */ 01194000 LR R8FRRWRK,R10WORK 0493 01195000 N R8FRRWRK,@CF03124 0493 01196000 * CS(R10WORK,R8FRRWRK,PCTCATF);/* SET FLAGS TO THIS FUNCTION 0494 01197000 * OFF */ 01198000 CS R10WORK,@08,PCTCATF(PCTPTR) 0494 01199000 * BC(4,RNIOCHK); /* SOMEONE ELSE BEAT US TO FLAGS. 01200000 * CHECK AGAIN */ 01201000 BC 4,RNIOCHK 0495 01202000 * SDWASAV=SDWAPTR; /* SAVE R1 ACR0SS CALLS */ 01203000 ST SDWAPTR,SDWASAV(,AWSAPTR) 0496 01204000 * MCQESAV=R0; /* SAVE R0 ACROSS CALLS */ 01205000 ST R0,MCQESAV(,AWSAPTR) 0497 01206000 * R0=ADDR(DMPLIST); /* PARMS FOR DUMP */ 01207000 LA R0,DMPLIST 0498 01208000 * CALL DMPMOD; /* TAKE A DUMP */ 01209000 L @15,PCTDMPMD(,PCTPTR) 0499 01210000 BALR @14,@15 0499 01211000 * WTOUN=R15RC; /* SET TO BLANKS OR UN */ 01212000 STH R15RC,WTOUN(,AWSAPTR) 0500 01213000 * R1PARM=ADDR(WTOLIST); 0501 01214000 LA R1PARM,WTOLIST(,AWSAPTR) 0501 01215000 * CALL AHLWTO; 0502 01216000 L @15,PCTWTOMD(,PCTPTR) 0502 01217000 BALR @14,@15 0502 01218000 * R0=MCQESAV; /* RESTORE R0 */ 01219000 * 0503 01220000 L R0,MCQESAV(,AWSAPTR) 0503 01221000 * /*************************************************************/ 01222000 * /* */ 01223000 * /* ISSUE SETEVENT TO DISABLE THIS FUNCTION */ 01224000 * /* */ 01225000 * /*************************************************************/ 01226000 * 0504 01227000 * DO; /* SETEVENT NAME('GTF ')MCQE(MCQE 01228000 * )ACTION(DISABLE)EIDAD(RNIOEIDS 01229000 * )MF(E,MCAWTO,COMPLETE)EIDNO(2)*/ 01230000 * 0504 01231000 * /***********************************************************/ 01232000 * /* */ 01233000 * /* THE FOLLOWING SECTION OF CODE IS GENERATED BY THE */ 01234000 * /* SETEVENT MACRO. THIS CODE WILL BE EITHER AN INITIALIZED */ 01235000 * /* PARAMETER LIST, OR IF IT IS THE RESULT OF STANDARD OR */ 01236000 * /* EXECUTE FORM IT WILL FILL in the list, GENERATE ALL */ 01237000 * /* LINKAGES AND CALL THE PROPER sERVICE, EITHER AHLSETEV OR*/ 01238000 * /* AHLSETD */ 01239000 * /* */ 01240000 * /***********************************************************/ 01241000 * 0505 01242000 * AHLPPTR=ADDR(MCAWTO); /* SET UP PLIST PTR */ 01243000 LA AHLPPTR,MCAWTO(,AWSAPTR) 0505 01244000 * SEPL=SEPL&&SEPL; /* INIT PLIST TO ZERO */ 01245000 XC SEPL(24,AHLPPTR),SEPL(AHLPPTR) 0506 01246000 * SEMC=ADDR(MCQE); /* SET UP MCQE ADDRESS */ 01247000 ST R0,SEMC(,AHLPPTR) 0507 01248000 * SENM='GTF '; /* MOVE NAME INTO PLIST */ 01249000 MVC SENM(8,AHLPPTR),@CC03355 0508 01250000 * SEFG=32; /* MOVE FLAGS INTO PLIST */ 01251000 MVI SEFG(AHLPPTR),X'20' 0509 01252000 * SEEN=2; /* SET TO VALUE SPECIFIED */ 01253000 MVI SEEN(AHLPPTR),X'02' 0510 01254000 * SEEL=ADDR(RNIOEIDS); /* SET TO VALUE SPECIFIED */ 01255000 LA @12,RNIOEIDS 0511 01256000 ST @12,SEEL(,AHLPPTR) 0511 01257000 * IF SEFG=32|SEFG=8 THEN /* CHECK FOR DISABLE OR * CHANGE */ 01258000 CLI SEFG(AHLPPTR),32 0512 01259000 BE @RT00512 0512 01260000 CLI SEFG(AHLPPTR),8 0512 01261000 BNE @RF00512 0512 01262000 @RT00512 DS 0H 0513 01263000 * CALL AHLSETD; /* YES */ 01264000 L @12,CVTPTR 0513 01265000 L @12,CVTGTFA-1(,@12) 0513 01266000 L @15,MCHSETD(,@12) 0513 01267000 BALR @14,@15 0513 01268000 * ELSE /* NO */ 01269000 * CALL AHLSETEV; 0514 01270000 B @RC00512 0514 01271000 @RF00512 L @12,CVTPTR 0514 01272000 L @12,CVTGTFA-1(,@12) 0514 01273000 L @15,MCHSETE(,@12) 0514 01274000 BALR @14,@15 0514 01275000 * END; 0515 01276000 @RC00512 DS 0H 0516 01277000 * SDWAPTR=SDWASAV; /* RESTORE SDWA ADDR */ 01278000 L SDWAPTR,SDWASAV(,AWSAPTR) 0516 01279000 * END; 0517 01280000 * RECLEN=LENGTH(RNIOREC); /* LENGTH OF RECORD FOR STACK */ 01281000 @RF00489 LA RECLEN,30 0518 01282000 * GO TO FRRGEN; /* COMMON EXIT ROUTINE */ 01283000 B FRRGEN 0519 01284000 * GEN(EJECT); 0520 01285000 * 0520 01286000 EJECT 01287000 * /*****************************************************************/ 01288000 * /* */ 01289000 * /* FRR FOR SRM ERRORS */ 01290000 * /* */ 01291000 * /*****************************************************************/ 01292000 * 0521 01293000 *FRRSRM: 0521 01294000 * ; 0521 01295000 FRRSRM DS 0H 0522 01296000 * GENERATE; 0522 01297000 USING FRRSRM,EPREG 01298000 L BASEREG,BASEADDR PICK UP OLD BASE ADDR 01299000 DROP EPREG 01300000 * RFY 0523 01301000 * (SDWAPTR, 0523 01302000 * RTNADDR) RSTD; 0523 01303000 * R9PARM=SDWAPARM; /* PTR TO USER PARM AREA */ 01304000 L R9PARM,SDWAPARM(,SDWAPTR) 0524 01305000 * SVR14FRR=RTNADDR; /* SAVE RETURN ADDR TO RTM */ 01306000 ST RTNADDR,SVR14FRR(,R9PARM) 0525 01307000 * RFY 0526 01308000 * RTNADDR UNRSTD; 0526 01309000 * TRAILSAV='SRM '; /* FLAG FUNCTION */ 01310000 MVC TRAILSAV(4,R9PARM),@CC03364 0527 01311000 * CALL AHLERPRE; /* CALL COMMON INITIALIZER */ 01312000 BAL @14,AHLERPRE 0528 01313000 * IF MCAMASCB=ON THEN /* ERROR GATHERING ASCB */ 01314000 TM MCAMASCB(AWSAPTR),B'00100000' 0529 01315000 BNO @RF00529 0529 01316000 * DO; 0530 01317000 * SRMASCB=ERRIND; /* **** IN ASCB FIELD */ 01318000 MVC SRMASCB(4,AWSAPTR),@CC03143 0531 01319000 * GO TO RETRYP; /* RETRY TO PSTCOM */ 01320000 B RETRYP 0532 01321000 * END; 0533 01322000 * 0533 01323000 * /*****************************************************************/ 01324000 * /* */ 01325000 * /* DISABLE FUNCTION AND TAKE DUMP IF NECESSARY */ 01326000 * /* */ 01327000 * /*****************************************************************/ 01328000 * 0534 01329000 *SRMCHK: 0534 01330000 * IF PCTSRM=ON THEN 0534 01331000 @RF00529 DS 0H 0534 01332000 SRMCHK TM PCTSRM(PCTPTR),B'01000000' 0534 01333000 BNO @RF00534 0534 01334000 * DO; /* FUNCTION NOT YET DISABLED */ 01335000 * RFY 0536 01336000 * (R10WORK, 0536 01337000 * R8FRRWRK) RSTD; 0536 01338000 * R10WORK=PCTCATF; /* GET CURRENT PICTURE OF FLAGS */ 01339000 L R10WORK,PCTCATF(,PCTPTR) 0537 01340000 * R8FRRWRK=R10WORK&SRMOFF; /* FLAGS WITH THIS FUNCTION OFF */ 01341000 LR R8FRRWRK,R10WORK 0538 01342000 N R8FRRWRK,@CF03126 0538 01343000 * CS(R10WORK,R8FRRWRK,PCTCATF);/* SET FLAGS TO THIS FUNCTION 0539 01344000 * OFF */ 01345000 CS R10WORK,@08,PCTCATF(PCTPTR) 0539 01346000 * BC(4,SRMCHK); /* SOMEONE ELSE BEAT US TO FLAGS. 01347000 * CHECK AGAIN */ 01348000 BC 4,SRMCHK 0540 01349000 * SDWASAV=SDWAPTR; /* SAVE R1 ACR0SS CALLS */ 01350000 ST SDWAPTR,SDWASAV(,AWSAPTR) 0541 01351000 * MCQESAV=R0; /* SAVE R0 ACROSS CALLS */ 01352000 ST R0,MCQESAV(,AWSAPTR) 0542 01353000 * R0=ADDR(DMPLIST); /* PARMS FOR DUMP */ 01354000 LA R0,DMPLIST 0543 01355000 * CALL DMPMOD; /* TAKE A DUMP */ 01356000 L @15,PCTDMPMD(,PCTPTR) 0544 01357000 BALR @14,@15 0544 01358000 * WTOUN=R15RC; /* SET TO BLANKS OR UN */ 01359000 STH R15RC,WTOUN(,AWSAPTR) 0545 01360000 * R1PARM=ADDR(WTOLIST); 0546 01361000 LA R1PARM,WTOLIST(,AWSAPTR) 0546 01362000 * CALL AHLWTO; 0547 01363000 L @15,PCTWTOMD(,PCTPTR) 0547 01364000 BALR @14,@15 0547 01365000 * R0=MCQESAV; /* RESTORE R0 */ 01366000 * 0548 01367000 L R0,MCQESAV(,AWSAPTR) 0548 01368000 * /*************************************************************/ 01369000 * /* */ 01370000 * /* ISSUE SETEVENT TO DISABLE THIS FUNCTION */ 01371000 * /* */ 01372000 * /*************************************************************/ 01373000 * 0549 01374000 * DO; /* SETEVENT NAME('GTF ')MCQE(MCQE 01375000 * )ACTION(DISABLE)EIDAD(SRMEID)M 01376000 * F(E,MCAWTO,COMPLETE)EIDNO(1) */ 01377000 * 0549 01378000 * /***********************************************************/ 01379000 * /* */ 01380000 * /* THE FOLLOWING SECTION OF CODE IS GENERATED BY THE */ 01381000 * /* SETEVENT MACRO. THIS CODE WILL BE EITHER AN INITIALIZED */ 01382000 * /* PARAMETER LIST, OR IF IT IS THE RESULT OF STANDARD OR */ 01383000 * /* EXECUTE FORM IT WILL FILL in the list, GENERATE ALL */ 01384000 * /* LINKAGES AND CALL THE PROPER sERVICE, EITHER AHLSETEV OR*/ 01385000 * /* AHLSETD */ 01386000 * /* */ 01387000 * /***********************************************************/ 01388000 * 0550 01389000 * AHLPPTR=ADDR(MCAWTO); /* SET UP PLIST PTR */ 01390000 LA AHLPPTR,MCAWTO(,AWSAPTR) 0550 01391000 * SEPL=SEPL&&SEPL; /* INIT PLIST TO ZERO */ 01392000 XC SEPL(24,AHLPPTR),SEPL(AHLPPTR) 0551 01393000 * SEMC=ADDR(MCQE); /* SET UP MCQE ADDRESS */ 01394000 ST R0,SEMC(,AHLPPTR) 0552 01395000 * SENM='GTF '; /* MOVE NAME INTO PLIST */ 01396000 MVC SENM(8,AHLPPTR),@CC03355 0553 01397000 * SEFG=32; /* MOVE FLAGS INTO PLIST */ 01398000 MVI SEFG(AHLPPTR),X'20' 0554 01399000 * SEEN=1; /* SET TO VALUE SPECIFIED */ 01400000 MVI SEEN(AHLPPTR),X'01' 0555 01401000 * SEEL=ADDR(SRMEID); /* SET TO VALUE SPECIFIED */ 01402000 LA @12,SRMEID 0556 01403000 ST @12,SEEL(,AHLPPTR) 0556 01404000 * IF SEFG=32|SEFG=8 THEN /* CHECK FOR DISABLE OR * CHANGE */ 01405000 CLI SEFG(AHLPPTR),32 0557 01406000 BE @RT00557 0557 01407000 CLI SEFG(AHLPPTR),8 0557 01408000 BNE @RF00557 0557 01409000 @RT00557 DS 0H 0558 01410000 * CALL AHLSETD; /* YES */ 01411000 L @12,CVTPTR 0558 01412000 L @12,CVTGTFA-1(,@12) 0558 01413000 L @15,MCHSETD(,@12) 0558 01414000 BALR @14,@15 0558 01415000 * ELSE /* NO */ 01416000 * CALL AHLSETEV; 0559 01417000 B @RC00557 0559 01418000 @RF00557 L @12,CVTPTR 0559 01419000 L @12,CVTGTFA-1(,@12) 0559 01420000 L @15,MCHSETE(,@12) 0559 01421000 BALR @14,@15 0559 01422000 * END; 0560 01423000 @RC00557 DS 0H 0561 01424000 * SDWAPTR=SDWASAV; /* RESTORE SDWA ADDR */ 01425000 L SDWAPTR,SDWASAV(,AWSAPTR) 0561 01426000 * END; 0562 01427000 * RECLEN=LENGTH(SRMREC); /* LENGTH OF RECORD FOR STACK */ 01428000 @RF00534 LA RECLEN,18 0563 01429000 * GO TO FRRGEN; /* COMMON EXIT ROUTINE */ 01430000 B FRRGEN 0564 01431000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01432000 * GPR00P PTR(31) REG(0), 0565 01433000 * GPR01P PTR(31) REG(1), 0565 01434000 * GPR14P PTR(31) REG(14), 0565 01435000 * GPR15P PTR(31) REG(15); 0565 01436000 * DECLARE /* COMMON VARIABLES */ 01437000 * I256C CHAR(256) BASED, 0566 01438000 * I031F FIXED(31) BASED, 0566 01439000 * I031P PTR(31) BASED, 0566 01440000 * I015F FIXED(15) BASED, 0566 01441000 * I015P PTR(15) BASED, 0566 01442000 * I008P PTR(8) BASED, 0566 01443000 * I001C CHAR(1) BASED; 0566 01444000 *AHLTEND: 0567 01445000 * END AHLTXSYS 0567 01446000 * 0567 01447000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01448000 */*%INCLUDE SYSLIB (IHAASVT ) */ 01449000 */*%INCLUDE SYSLIB (IHASRB ) */ 01450000 */*%INCLUDE SYSLIB (IHALCCA ) */ 01451000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01452000 */*%INCLUDE SYSLIB (MCHEAD ) */ 01453000 */*%INCLUDE SYSLIB (IHAPCCA ) */ 01454000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01455000 */*%INCLUDE SYSLIB (IHAASXB ) */ 01456000 */*%INCLUDE SYSLIB (IKJTCB ) */ 01457000 */*%INCLUDE SYSLIB (IHAIHSA ) */ 01458000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 01459000 */*%INCLUDE SYSLIB (MCQE ) */ 01460000 */*%INCLUDE SYSLIB (IMDMEDIT) */ 01461000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01462000 */*%INCLUDE SYSLIB (IHASDWA ) */ 01463000 */*%INCLUDE SYSLIB (GTFPCT ) */ 01464000 */*%INCLUDE SYSLIB (MCAWSA ) */ 01465000 */*%INCLUDE SYSLIB (MCRWSA ) */ 01466000 */*%INCLUDE SYSLIB (CVT ) */ 01467000 * 0567 01468000 * ; 0567 01469000 AHLTEND DS 0H 0567 01470000 @DATA DS 0H 01471000 @CH01762 DC XL2'0001' 01472000 @CH01764 DC XL2'0002' 01473000 @DATD DSECT 01474000 DS 0F 01475000 AHLTXSYS CSECT 01476000 DS 0F 01477000 @CF00046 DC F'1' 01478000 @CF03322 DC F'19' 01479000 @CF03137 DC F'20' 01480000 @CF03122 DC XL4'F7FFFFFF' 01481000 @CF03124 DC XL4'FF7FFFFF' 01482000 @CF03126 DC XL4'FFBFFFFF' 01483000 @CF03376 DC XL4'0000FFFF' 01484000 @DATD DSECT 01485000 DS 0D 01486000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01487000 @ENDDATD EQU * 01488000 AHLTXSYS CSECT 01489000 DS 0F 01490000 @SIZDATD DC AL1(0) 01491000 DC AL3(@ENDDATD-@DATD) 01492000 DS 0D 01493000 BASEADDR DC AL4(AHLTXSYS) 01494000 @CC03143 DC C'********************' 01495000 @CC03355 DC C'GTF ' 01496000 @CC03132 DC C'N/A ' 01497000 @CC03338 DC C'DSP ' 01498000 @CC03359 DC C'RNIO' 01499000 @CC03364 DC C'SRM ' 01500000 @CB03128 DC X'00400000' 01501000 @CB03141 DC X'EEEE' 01502000 ZERO DC X'0000000000000000' 01503000 UNAVAL DC CL20'U/A U/A U/A ' 01504000 RNIOMASK DC X'0080000000000000' 01505000 RECID DC CL24'AHLTXSYSAHLTXSYSAHLTXSYS' 01506000 WTONAMES DC CL16'XSYS TRAC ' 01507000 DMPHDR DS CL28 01508000 ORG DMPHDR 01509000 @NM00109 DC AL1(27) 01510000 @NM00110 DC CL27'DUMP OF GTF MODULE AHLTXSYS' 01511000 ORG DMPHDR+28 01512000 DS CL2 01513000 DMPLIST DS CL12 01514000 ORG DMPLIST 01515000 HDRPTR DC AL4(DMPHDR) 01516000 XSYSSTRT DC AL4(AHLTXSYS) 01517000 XSYSEND DC AL4(AHLTEND) 01518000 ORG XSYSEND 01519000 EOL DC X'80' 01520000 ORG DMPLIST+12 01521000 EIDLIST DS CL42 01522000 ORG EIDLIST 01523000 DSPEIDS DS CL6 01524000 ORG DSPEIDS+0 01525000 @NM00117 DC X'0001' 01526000 @NM00118 DS CL4 01527000 ORG DSPEIDS+6 01528000 ORG DSPEIDS+6 01529000 DC X'0002' 01530000 ORG DSPEIDS+12 01531000 ORG DSPEIDS+12 01532000 DC X'0003' 01533000 ORG DSPEIDS+18 01534000 ORG DSPEIDS+18 01535000 DC X'0004' 01536000 ORG EIDLIST+24 01537000 RNIOEIDS DS CL6 01538000 ORG RNIOEIDS+0 01539000 @NM00119 DC X'8100' 01540000 @NM00120 DS CL4 01541000 ORG RNIOEIDS+6 01542000 ORG RNIOEIDS+6 01543000 DC X'8200' 01544000 ORG EIDLIST+36 01545000 SRMEID DC X'4001' 01546000 @NM00121 DS CL4 01547000 ORG EIDLIST+42 01548000 XSYSPTCH DC 100X'00' 01549000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01550000 @01 EQU 01 01551000 @02 EQU 02 01552000 @03 EQU 03 01553000 @04 EQU 04 01554000 @05 EQU 05 01555000 @06 EQU 06 01556000 @07 EQU 07 01557000 @08 EQU 08 01558000 @09 EQU 09 01559000 @10 EQU 10 01560000 @11 EQU 11 01561000 @12 EQU 12 01562000 @13 EQU 13 01563000 @14 EQU 14 01564000 @15 EQU 15 01565000 SRBPTR EQU @00 01566000 SDWAPTR EQU @01 01567000 PCTPTR EQU @02 01568000 AWSAPTR EQU @03 01569000 R9PARM EQU @09 01570000 R8FRRWRK EQU @08 01571000 R10WORK EQU @10 01572000 R1PARM EQU @01 01573000 RTNADDR EQU @14 01574000 RTNSAVE EQU @10 01575000 BASEREG EQU @11 01576000 RTCAREG EQU @04 01577000 R15RC EQU @15 01578000 R0 EQU @00 01579000 WORKREG EQU @07 01580000 R6WORK EQU @06 01581000 RECLEN EQU @05 01582000 AHLRECPR EQU @01 01583000 AHLSBREG EQU @14 01584000 AHLRETCD EQU @15 01585000 GPR00P EQU @00 01586000 GPR01P EQU @01 01587000 GPR14P EQU @14 01588000 GPR15P EQU @15 01589000 AHLPPTR EQU @01 01590000 EPREG EQU @15 01591000 R10MOVE EQU @10 01592000 R11MOVE EQU @11 01593000 R14 EQU @14 01594000 R4MOVE EQU @04 01595000 R5MOVE EQU @05 01596000 ENTRY XSYSPTCH 01597000 ENTRY AHLDSP 01598000 ENTRY AHLSRB 01599000 ENTRY AHLSRM 01600000 ENTRY AHLRNIO 01601000 PSA EQU 0 01602000 FLCRNPSW EQU PSA 01603000 FLCROPSW EQU PSA+8 01604000 FLCICCW2 EQU PSA+16 01605000 FLCPOPSW EQU PSA+40 01606000 PSAEEPSW EQU PSA+132 01607000 PSAESPSW EQU PSA+136 01608000 FLCSVILC EQU PSAESPSW+1 01609000 PSAEPPSW EQU PSA+140 01610000 FLCPIILC EQU PSAEPPSW+1 01611000 FLCPICOD EQU PSAEPPSW+2 01612000 PSAPICOD EQU FLCPICOD+1 01613000 FLCTEA EQU PSAEPPSW+4 01614000 FLCPER EQU PSA+152 01615000 FLCMCLA EQU PSA+168 01616000 FLCCHNID EQU FLCMCLA 01617000 FLCCHTM EQU FLCCHNID 01618000 FLCIOEL EQU FLCMCLA+4 01619000 FLCIOA EQU FLCMCLA+16 01620000 PSAMEDC EQU FLCMCLA+76 01621000 FLCFSA EQU FLCMCLA+80 01622000 PSALCCAV EQU PSA+528 01623000 PSATOLD EQU PSA+540 01624000 PSAAOLD EQU PSA+548 01625000 PSASUPER EQU PSA+552 01626000 PSASUP1 EQU PSASUPER 01627000 PSASUP2 EQU PSASUPER+1 01628000 PSASUP3 EQU PSASUPER+2 01629000 PSASUP4 EQU PSASUPER+3 01630000 PSACLHT EQU PSA+640 01631000 PSAHLHI EQU PSA+760 01632000 PSACLHS EQU PSAHLHI 01633000 PSACLHS3 EQU PSACLHS+2 01634000 PSACLHS4 EQU PSACLHS+3 01635000 PSACPUSA EQU PSA+794 01636000 PSADSSFL EQU PSA+836 01637000 PSADSSF1 EQU PSADSSFL 01638000 PSADSSF3 EQU PSADSSFL+2 01639000 PSADSSF4 EQU PSADSSFL+3 01640000 PSARSVT EQU PSA+896 01641000 PSATRACE EQU PSA+1018 01642000 PSAPSWSV EQU PSA+1128 01643000 PSAMODEW EQU PSA+1180 01644000 PSAMODE EQU PSAMODEW+3 01645000 PSALKSA EQU PSA+1280 01646000 PSACR0SV EQU PSA+1420 01647000 PSAPCCR0 EQU PSA+1424 01648000 PSARCR0 EQU PSA+1428 01649000 PSAEPTAB EQU PSA+2816 01650000 PSAWTENT EQU PSA+2896 01651000 CVTPTR EQU 16 01652000 ASVT EQU 0 01653000 ASVTFRST EQU ASVT+524 01654000 ASVTENTY EQU ASVT+528 01655000 SRBSECT EQU 0 01656000 SRB EQU SRBSECT 01657000 SRBFLC EQU SRB+12 01658000 SRBPRIOR EQU SRB+37 01659000 SRBFLGS EQU SRBPRIOR 01660000 LCCA EQU 0 01661000 LCCAPGR2 EQU LCCA+72 01662000 LCCASCR0 EQU LCCA+512 01663000 LCCAMCR0 EQU LCCA+516 01664000 LCCAIHRC EQU LCCA+520 01665000 LCCAIHR1 EQU LCCAIHRC 01666000 LCCAIHR2 EQU LCCAIHRC+1 01667000 LCCAIHR3 EQU LCCAIHRC+2 01668000 LCCAIHR4 EQU LCCAIHRC+3 01669000 LCCASPIN EQU LCCA+524 01670000 LCCASPN1 EQU LCCASPIN 01671000 LCCASPN2 EQU LCCASPIN+1 01672000 LCCASPN3 EQU LCCASPIN+2 01673000 LCCASPN4 EQU LCCASPIN+3 01674000 LCCACPUS EQU LCCA+536 01675000 LCCADSF1 EQU LCCA+540 01676000 LCCADSF2 EQU LCCA+541 01677000 LCCAGSRB EQU LCCADSF2 01678000 LCCASPSA EQU LCCA+544 01679000 LCCACRFL EQU LCCA+692 01680000 LCCACREX EQU LCCA+693 01681000 LCCALKFG EQU LCCA+694 01682000 LCCASRBF EQU LCCA+720 01683000 ASCB EQU 0 01684000 ASCBSUPC EQU ASCB+16 01685000 ASCBASID EQU ASCB+36 01686000 ASCBRSM EQU ASCB+52 01687000 ASCBRSMF EQU ASCBRSM 01688000 ASCBFW1 EQU ASCB+100 01689000 ASCBRCTF EQU ASCBFW1+2 01690000 ASCBFLG1 EQU ASCBFW1+3 01691000 ASCBASXB EQU ASCB+108 01692000 ASCBFW2 EQU ASCB+112 01693000 ASCBDSP1 EQU ASCBFW2+2 01694000 ASCBFLG2 EQU ASCBFW2+3 01695000 ASCBSCNT EQU ASCB+116 01696000 ASCBLKGP EQU ASCB+128 01697000 ASCBSRQ EQU ASCB+180 01698000 ASCBSRQ1 EQU ASCBSRQ 01699000 ASCBSRQ2 EQU ASCBSRQ+1 01700000 ASCBSRQ3 EQU ASCBSRQ+2 01701000 ASCBSRQ4 EQU ASCBSRQ+3 01702000 ASCBLSRB EQU ASCB+208 01703000 ASCBLSMQ EQU ASCBLSRB 01704000 ASCBTCBG EQU ASCB+216 01705000 ASCBSRDP EQU ASCB+228 01706000 MCHEAD EQU 0 01707000 MCHFLGS EQU MCHEAD+24 01708000 MCHFLG1 EQU MCHFLGS 01709000 MCHSETE EQU MCHEAD+28 01710000 MCHSETD EQU MCHEAD+32 01711000 PCCA EQU 0 01712000 PCCATMST EQU PCCA+128 01713000 PCCATMFL EQU PCCATMST 01714000 PCCATODE EQU PCCATMST+1 01715000 PCCACCE EQU PCCATMST+2 01716000 PCCAINTE EQU PCCATMST+3 01717000 PCCAEMSB EQU PCCA+136 01718000 PCCAEMSI EQU PCCAEMSB 01719000 PCCARISP EQU PCCAEMSI 01720000 PCCAEMS2 EQU PCCAEMSI+1 01721000 PCCAEMS3 EQU PCCAEMSI+2 01722000 PCCARMSB EQU PCCAEMSI+3 01723000 PCCACHAN EQU PCCA+224 01724000 PCCAWERP EQU PCCA+280 01725000 PCCACHPF EQU PCCAWERP+4 01726000 PCCACHBL EQU PCCAWERP+5 01727000 PCCACHVA EQU PCCAWERP+6 01728000 PCCACHTS EQU PCCAWERP+7 01729000 PCCACHS1 EQU PCCA+288 01730000 PCCACHS2 EQU PCCA+289 01731000 PCCACHRB EQU PCCA+290 01732000 PCCACHF1 EQU PCCA+308 01733000 PCCACHF2 EQU PCCA+309 01734000 PCCACHF3 EQU PCCA+310 01735000 PCCACHF4 EQU PCCA+311 01736000 PCCAATTR EQU PCCA+376 01737000 ASXB EQU 0 01738000 ASXBIHSA EQU ASXB+32 01739000 ASXBAEQ EQU ASXB+168 01740000 ASXBSECR EQU ASXB+199 01741000 ASCBSFLG EQU ASXBSECR 01742000 ASXBCASW EQU ASXB+216 01743000 ASXBCRB1 EQU ASXBCASW 01744000 TCBFIX EQU 0 01745000 TCBFRS EQU TCBFIX 01746000 TCB EQU 0 01747000 TCBPIE EQU TCB+4 01748000 TCBPMASK EQU TCBPIE 01749000 TCBCMP EQU TCB+16 01750000 TCBCMPF EQU TCBCMP 01751000 TCBCPP EQU TCBCMPF 01752000 TCBSTCC EQU TCBCMPF 01753000 TCBCDBL EQU TCBCMPF 01754000 TCBCWTO EQU TCBCMPF 01755000 TCBCIND EQU TCBCMPF 01756000 TCBCMSG EQU TCBCMPF 01757000 TCBTRN EQU TCB+20 01758000 TCBABF EQU TCBTRN 01759000 TCBMSS EQU TCB+24 01760000 TCBPKF EQU TCB+28 01761000 TCBFLGS EQU TCB+29 01762000 TCBFLGS1 EQU TCBFLGS 01763000 TCBFLGS2 EQU TCBFLGS+1 01764000 TCBFLGS3 EQU TCBFLGS+2 01765000 TCBFLGS4 EQU TCBFLGS+3 01766000 TCBFLGS5 EQU TCBFLGS+4 01767000 TCBABWF EQU TCBFLGS5 01768000 TCBJPQ EQU TCB+44 01769000 TCBPURGE EQU TCBJPQ 01770000 TCBGRS EQU TCB+48 01771000 TCBGRS15 EQU TCBGRS+60 01772000 TCBFSA EQU TCB+112 01773000 TCBTME EQU TCB+120 01774000 TCBJSTCB EQU TCB+124 01775000 TCBTSFLG EQU TCB+148 01776000 TCBTSTSK EQU TCBTSFLG 01777000 TCBSTAB EQU TCB+160 01778000 TCBNSTAE EQU TCBSTAB 01779000 TCBTCT EQU TCB+164 01780000 TCBTCTGF EQU TCBTCT 01781000 TCBSCNDY EQU TCB+172 01782000 TCBNDSP EQU TCBSCNDY 01783000 TCBNDSP1 EQU TCBNDSP+1 01784000 TCBNDSP2 EQU TCBNDSP+2 01785000 TCBNDSP3 EQU TCBNDSP+3 01786000 TCBJSCB EQU TCB+180 01787000 TCBRECDE EQU TCBJSCB 01788000 TCBEXT1 EQU TCB+196 01789000 TCBBITS EQU TCB+200 01790000 TCBNDSP4 EQU TCBBITS 01791000 TCBNDSP5 EQU TCBBITS+1 01792000 TCBFLGS6 EQU TCBBITS+2 01793000 TCBFLGS7 EQU TCBBITS+3 01794000 TCBDAR EQU TCB+204 01795000 TCBDARC EQU TCBDAR 01796000 TCBEXT2 EQU TCB+208 01797000 TCBXSCT EQU TCB+240 01798000 TCBXSCT1 EQU TCBXSCT 01799000 TCBFOE EQU TCB+244 01800000 TCBESTAE EQU TCB+264 01801000 TCBESTRM EQU TCBESTAE+1 01802000 TCBFBYT1 EQU TCB+276 01803000 TCBFBYT2 EQU TCB+277 01804000 TCBRV124 EQU TCB+278 01805000 TCBRV133 EQU TCB+279 01806000 TCBXTNT2 EQU 0 01807000 TCBGTF EQU TCBXTNT2 01808000 TCBTFLG EQU TCBGTF 01809000 TCBRV146 EQU TCBXTNT2+28 01810000 TCBRV155 EQU TCBXTNT2+29 01811000 TCBRV164 EQU TCBXTNT2+30 01812000 TCBRV173 EQU TCBXTNT2+31 01813000 IHSA EQU 0 01814000 IHSAFPRS EQU IHSA+24 01815000 IHSAGPRS EQU IHSA+56 01816000 WSAG EQU 0 01817000 WSAC EQU 0 01818000 WSACGTF EQU WSAC+4 01819000 WSACEDS0 EQU WSAC+28 01820000 MCQE EQU 0 01821000 MCQEASCB EQU MCQE+16 01822000 MCQEAT EQU MCQE+32 01823000 MCQEFLGS EQU MCQE+41 01824000 FRRS EQU 0 01825000 FRRSHEAD EQU FRRS 01826000 FRRSCURR EQU FRRSHEAD+12 01827000 FRRSENTR EQU 0 01828000 FRRSFLGS EQU FRRSENTR+4 01829000 FRRSFLG1 EQU FRRSFLGS 01830000 SDWA EQU 0 01831000 SDWAPARM EQU SDWA 01832000 SDWAFIOB EQU SDWA+4 01833000 SDWAABCC EQU SDWAFIOB 01834000 SDWACMPF EQU SDWAABCC 01835000 SDWACTL1 EQU SDWA+8 01836000 SDWACMKA EQU SDWACTL1 01837000 SDWAMWPA EQU SDWACTL1+1 01838000 SDWAPMKA EQU SDWACTL1+4 01839000 SDWACTL2 EQU SDWA+16 01840000 SDWACMKP EQU SDWACTL2 01841000 SDWAMWPP EQU SDWACTL2+1 01842000 SDWAPMKP EQU SDWACTL2+4 01843000 SDWAGRSV EQU SDWA+24 01844000 SDWANAME EQU SDWA+88 01845000 SDWAEC1 EQU SDWA+104 01846000 SDWAEMK1 EQU SDWAEC1 01847000 SDWAMWP1 EQU SDWAEC1+1 01848000 SDWAINT1 EQU SDWAEC1+2 01849000 SDWANXT1 EQU SDWAEC1+4 01850000 SDWAAEC1 EQU SDWA+112 01851000 SDWAILC1 EQU SDWAAEC1+1 01852000 SDWAINC1 EQU SDWAAEC1+2 01853000 SDWAICD1 EQU SDWAINC1+1 01854000 SDWAEC2 EQU SDWA+120 01855000 SDWAEMK2 EQU SDWAEC2 01856000 SDWAMWP2 EQU SDWAEC2+1 01857000 SDWAINT2 EQU SDWAEC2+2 01858000 SDWANXT2 EQU SDWAEC2+4 01859000 SDWAAEC2 EQU SDWA+128 01860000 SDWAILC2 EQU SDWAAEC2+1 01861000 SDWAINC2 EQU SDWAAEC2+2 01862000 SDWAICD2 EQU SDWAINC2+1 01863000 SDWASRSV EQU SDWA+136 01864000 SDWAIDNT EQU SDWA+200 01865000 SDWAMCH EQU SDWA+204 01866000 SDWASTCK EQU SDWAMCH 01867000 SDWAMCHI EQU SDWAMCH+8 01868000 SDWAMCHS EQU SDWAMCHI 01869000 SDWAMCHD EQU SDWAMCHI+1 01870000 SDWAREGU EQU SDWAMCHD 01871000 SDWAPSWU EQU SDWAMCHD 01872000 SDWAINSF EQU SDWAMCHD 01873000 SDWARSR1 EQU SDWAMCH+12 01874000 SDWARSR2 EQU SDWAMCH+13 01875000 SDWAFLGS EQU SDWA+232 01876000 SDWAERRA EQU SDWAFLGS 01877000 SDWAMCHK EQU SDWAERRA 01878000 SDWAERRB EQU SDWAFLGS+1 01879000 SDWAERRC EQU SDWAFLGS+2 01880000 SDWAPERC EQU SDWAERRC 01881000 SDWAEAS EQU SDWAERRC 01882000 SDWAERRD EQU SDWAFLGS+3 01883000 SDWACLUP EQU SDWAERRD 01884000 SDWAIOFS EQU SDWA+238 01885000 SDWARTYA EQU SDWA+240 01886000 SDWACPUA EQU SDWA+248 01887000 SDWAPARQ EQU SDWA+252 01888000 SDWARCDE EQU SDWAPARQ 01889000 SDWAACF2 EQU SDWAPARQ+1 01890000 SDWAACF3 EQU SDWAPARQ+2 01891000 SDWAACF4 EQU SDWAPARQ+3 01892000 SDWALKWA EQU SDWA+256 01893000 SDWALKWS EQU SDWALKWA 01894000 SDWARECP EQU SDWA+292 01895000 SDWASNPA EQU SDWA+320 01896000 SDWADUMP EQU SDWASNPA 01897000 SDWADPFS EQU SDWADUMP+1 01898000 SDWADDAT EQU SDWASNPA+4 01899000 SDWASDAT EQU SDWADDAT 01900000 SDWAPDAT EQU SDWADDAT+2 01901000 SDWADPSA EQU SDWA+328 01902000 SDWADPSL EQU SDWADPSA 01903000 SDWARA EQU SDWA+400 01904000 SDWADPVA EQU SDWARA+2 01905000 GTFPCT EQU 0 01906000 GTFSTAT EQU GTFPCT+8 01907000 GTFDEBUG EQU GTFSTAT 01908000 GTFOPTS EQU GTFPCT+12 01909000 GTFOPTS1 EQU GTFOPTS 01910000 OPTTRC EQU GTFOPTS1 01911000 GTFOPTS2 EQU GTFOPTS+1 01912000 GTFOPTS3 EQU GTFOPTS+2 01913000 GTFOPTS4 EQU GTFOPTS+3 01914000 OPTTIME EQU GTFOPTS4 01915000 PCTCATF EQU GTFPCT+16 01916000 PCTDSP EQU PCTCATF 01917000 PCTRNIO EQU PCTCATF+1 01918000 PCTSRM EQU PCTCATF+1 01919000 NEXTBLOK EQU GTFPCT+180 01920000 SBLOKRTN EQU GTFPCT+188 01921000 WRTRCOM EQU GTFPCT+204 01922000 TRMWRIT EQU GTFPCT+212 01923000 WRTRERR EQU GTFPCT+216 01924000 GTFSSRB EQU GTFPCT+220 01925000 QLOCKWRD EQU GTFPCT+236 01926000 QLOCKECB EQU GTFPCT+240 01927000 AUDITFLG EQU GTFPCT+296 01928000 GTFASCB EQU GTFPCT+300 01929000 PCTDMPMD EQU GTFPCT+308 01930000 PCTWTOMD EQU GTFPCT+312 01931000 MCAWSA EQU 0 01932000 MCATRAIL EQU MCAWSA+256 01933000 MCATRL1 EQU MCATRAIL 01934000 MCADSP EQU MCATRL1 01935000 MCASRB EQU MCATRL1 01936000 MCATRL2 EQU MCATRAIL+1 01937000 MCASRM EQU MCATRL2 01938000 MCAERROR EQU MCATRL2 01939000 MCATRL3 EQU MCATRAIL+2 01940000 MCATRL4 EQU MCATRAIL+3 01941000 MCAMASCB EQU MCATRL4 01942000 MCAMBTU EQU MCATRL4 01943000 MCATRL5 EQU MCATRAIL+4 01944000 MCADREGS EQU MCATRL5 01945000 MCATRL6 EQU MCATRAIL+5 01946000 MCATRL7 EQU MCATRAIL+6 01947000 MCATRL8 EQU MCATRAIL+7 01948000 MCAMCR EQU MCAWSA+264 01949000 MCARECPR EQU MCAWSA+268 01950000 MCAREC EQU MCAWSA+284 01951000 MCAWORK EQU MCAWSA+584 01952000 MCRWSA EQU 0 01953000 MCRMCIH EQU MCRWSA 01954000 MCROUTSA EQU MCRWSA+64 01955000 MCRMCA EQU MCRWSA+128 01956000 MCRWSAF EQU MCRWSA+132 01957000 MCRBRENT EQU MCRWSAF 01958000 MCREID EQU MCRWSA+134 01959000 CVTMAP EQU 0 01960000 CVTDAR EQU CVTMAP+72 01961000 CVTFLGS1 EQU CVTDAR 01962000 CVTDCB EQU CVTMAP+116 01963000 CVTIOQET EQU CVTMAP+120 01964000 CVTIERLC EQU CVTMAP+144 01965000 CVTHEAD EQU CVTMAP+160 01966000 CVTSV76C EQU CVTHEAD 01967000 CVTOPTA EQU CVTMAP+182 01968000 CVTOPTB EQU CVTMAP+183 01969000 CVTGTF EQU CVTMAP+236 01970000 CVTGTFST EQU CVTGTF 01971000 CVTGTFS EQU CVTGTFST 01972000 CVTSTATE EQU CVTGTFST 01973000 CVTTMODE EQU CVTGTFST 01974000 CVTFORM EQU CVTGTFST 01975000 CVTGTFA EQU CVTGTF+1 01976000 CVTAQAVT EQU CVTMAP+240 01977000 CVTTCMFG EQU CVTAQAVT 01978000 CVTVOLM2 EQU CVTMAP+244 01979000 CVTTATA EQU CVTVOLM2 01980000 CVTTSKS EQU CVTTATA 01981000 CVTVOLF2 EQU CVTTSKS 01982000 CVTTAT EQU CVTTATA+1 01983000 CVTATER EQU CVTMAP+248 01984000 CVTEXT1 EQU CVTMAP+252 01985000 CVTPURG EQU CVTMAP+260 01986000 CVTQMSG EQU CVTMAP+268 01987000 CVTDMSR EQU CVTMAP+272 01988000 CVTRSV37 EQU CVTDMSR 01989000 CVTDMSRF EQU CVTRSV37 01990000 CVTERPV EQU CVTMAP+316 01991000 CVTINTLA EQU CVTMAP+320 01992000 CVTAPF EQU CVTMAP+324 01993000 CVTEXT2 EQU CVTMAP+328 01994000 CVTHJES EQU CVTMAP+332 01995000 CVTPGSIA EQU CVTMAP+348 01996000 CVTA1F1 EQU CVTMAP+356 01997000 CVTSYSK EQU CVTMAP+357 01998000 CVTVOLM1 EQU CVTMAP+380 01999000 CVTVOLF1 EQU CVTVOLM1 02000000 CVTXTNT1 EQU 0 02001000 CVTXTNT2 EQU 0 02002000 CVTDSSV EQU CVTXTNT2 02003000 CVTFLGBT EQU CVTXTNT2+5 02004000 CVTQID EQU CVTXTNT2+24 02005000 CVTRV400 EQU CVTXTNT2+52 02006000 CVTRV409 EQU CVTXTNT2+53 02007000 CVTATCVT EQU CVTXTNT2+64 02008000 CVTRV429 EQU CVTXTNT2+84 02009000 CVTRV438 EQU CVTXTNT2+85 02010000 CVTRV457 EQU CVTXTNT2+112 02011000 CVTRV466 EQU CVTXTNT2+113 02012000 CVTFIX EQU 0 02013000 CVTRELNO EQU CVTFIX+252 02014000 RNIOASID EQU 0 02015000 BTU EQU 0 02016000 MCHKRTY EQU 0 02017000 DMPMOD EQU 0 02018000 AHLWTO EQU 0 02019000 SVR14RTN EQU 0 02020000 DSPREGS EQU 0 02021000 DSPREG1 EQU DSPREGS+4 02022000 DSPREG15 EQU DSPREGS+60 02023000 FRRPARM EQU 0 02024000 TRAILSAV EQU FRRPARM+4 02025000 SVR14NRM EQU FRRPARM+8 02026000 SVR14FRR EQU FRRPARM+12 02027000 AHLGREC EQU 0 02028000 AHLGLGTH EQU AHLGREC 02029000 AHLGRES EQU AHLGREC+2 02030000 AHLGAID EQU AHLGREC+4 02031000 AHLGFID EQU AHLGREC+5 02032000 AHLGTST EQU AHLGREC+6 02033000 AHLGEIDS EQU AHLGTST 02034000 AHLGEIDL EQU AHLGREC+14 02035000 AHLSBLOK EQU 0 02036000 I256C EQU 0 02037000 AHLSETEV EQU 0 02038000 AHLSETD EQU 0 02039000 SEPL EQU 0 02040000 SEFG EQU SEPL 02041000 SEEN EQU SEPL+2 02042000 SENM EQU SEPL+4 02043000 SEEL EQU SEPL+12 02044000 SEMC EQU SEPL+20 02045000 I001C EQU 0 02046000 I008P EQU 0 02047000 I015F EQU 0 02048000 I015P EQU 0 02049000 I031F EQU 0 02050000 I031P EQU 0 02051000 CVTS01 EQU CVTPGSIA 02052000 CVTLPDIA EQU CVTS01+12 02053000 CVTDIRST EQU CVTLPDIA 02054000 CVTSLIDA EQU CVTS01+24 02055000 CVTCTLFG EQU CVTS01+50 02056000 CVTASVT EQU CVTS01+208 02057000 CVTSDBF EQU CVTS01+240 02058000 CVTSPSA EQU CVTS01+336 02059000 CVTPCCAT EQU CVTS01+416 02060000 CVTRV210 EQU CVTS01+424 02061000 CVTRV219 EQU CVTS01+425 02062000 CVTRV228 EQU CVTS01+426 02063000 CVTRV237 EQU CVTS01+427 02064000 CVTMFRTR EQU CVTS01+452 02065000 CVTRV262 EQU CVTS01+468 02066000 CVTRV271 EQU CVTS01+469 02067000 CVTRV280 EQU CVTS01+470 02068000 CVTRV289 EQU CVTS01+471 02069000 CVTGSDA EQU CVTS01+600 02070000 CVTLSCH EQU CVTS01+632 02071000 ASVTPTR EQU CVTASVT 02072000 LCCAPTR EQU PSALCCAV 02073000 ASCBPTR EQU MCQEASCB 02074000 PCCAPTR EQU CVTPCCAT 02075000 PSARSVTE EQU PSARSVT 02076000 PSACSTK EQU PSARSVTE 02077000 ASXBPTR EQU ASCBASXB 02078000 TCBPTR EQU PSATOLD 02079000 FRRSPTR EQU PSACSTK 02080000 FRREPTR EQU FRRSCURR 02081000 EVREGS EQU LCCAPGR2 02082000 EVREG01 EQU EVREGS 02083000 EVREG0 EQU EVREG01 02084000 EVREG1 EQU EVREG01+4 02085000 EVREG2 EQU EVREGS+8 02086000 EVREG15 EQU EVREGS+60 02087000 WORKAREA EQU MCAWORK 02088000 MCQESAV EQU WORKAREA 02089000 SDWASAV EQU WORKAREA+4 02090000 MCAWTO EQU WORKAREA+8 02091000 WTOLIST EQU MCAWTO 02092000 WTOFUNC EQU WTOLIST+4 02093000 WTOUN EQU WTOLIST+14 02094000 ERRSLOT EQU MCAREC 02095000 MCRREGS EQU MCROUTSA 02096000 MCRREG0 EQU MCRREGS 02097000 BRREGS EQU MCRMCIH 02098000 BRREG01 EQU BRREGS 02099000 BRREG11 EQU BRREGS+44 02100000 DSPREC EQU MCAREC 02101000 DSPPSW EQU DSPREC+6 02102000 DSPTCB EQU DSPREC+14 02103000 DSPR15 EQU DSPREC+18 02104000 DSPR0R1 EQU DSPREC+22 02105000 SRBREC EQU MCAREC 02106000 SRBPSW EQU SRBREC+6 02107000 SRBR15 EQU SRBREC+14 02108000 SRBR01 EQU SRBREC+18 02109000 SRBSRB EQU SRBR01 02110000 SRBR1 EQU SRBR01+4 02111000 SRBTYPE EQU SRBREC+26 02112000 RNIOREC EQU MCAREC 02113000 RNIOASCB EQU RNIOREC 02114000 RNIOBTU EQU RNIOREC+6 02115000 RNIOR0 EQU RNIOREC+26 02116000 SRMREC EQU MCAREC 02117000 SRMASCB EQU SRMREC 02118000 SRMR15 EQU SRMREC+6 02119000 SRMR0R1 EQU SRMREC+10 02120000 ASIDX EQU SRMR0R1 02121000 ASIDXT EQU ASIDX 02122000 PRECM EQU MCAREC 02123000 PREASCB EQU PRECM 02124000 PRECPUID EQU PRECM+4 02125000 FLC EQU PSA 02126000 SDMPBIT EQU CVTSDBF 02127000 * START UNREFERENCED COMPONENTS 02128000 SRMCPUID EQU SRMREC+4 02129000 RNIOCPU EQU RNIOREC+4 02130000 @NM00123 EQU SRBREC 02131000 @NM00122 EQU DSPREC 02132000 @NM00116 EQU BRREGS+8 02133000 MCRREG1 EQU MCRREGS+4 02134000 WTOMODE EQU WTOLIST+8 02135000 WTOMOD EQU WTOLIST 02136000 @NM00113 EQU EVREGS+48 02137000 EVREG11 EQU EVREGS+44 02138000 @NM00112 EQU EVREGS+28 02139000 EVREG6 EQU EVREGS+24 02140000 @NM00111 EQU EVREGS+12 02141000 PSARSAV EQU PSARSVTE+60 02142000 PSARSTK EQU PSARSVTE+56 02143000 PSAESAV3 EQU PSARSVTE+52 02144000 PSAESTK3 EQU PSARSVTE+48 02145000 PSAESAV2 EQU PSARSVTE+44 02146000 PSAESTK2 EQU PSARSVTE+40 02147000 PSAESAV1 EQU PSARSVTE+36 02148000 PSAESTK1 EQU PSARSVTE+32 02149000 PSAPSAV EQU PSARSVTE+28 02150000 PSAPSTK EQU PSARSVTE+24 02151000 PSAMSAV EQU PSARSVTE+20 02152000 PSAMSTK EQU PSARSVTE+16 02153000 PSASSAV EQU PSARSVTE+12 02154000 PSASSTK EQU PSARSVTE+8 02155000 PSANSTK EQU PSARSVTE+4 02156000 CVTRV628 EQU CVTS01+728 02157000 CVTRV627 EQU CVTS01+724 02158000 CVTRV626 EQU CVTS01+720 02159000 CVTRV625 EQU CVTS01+716 02160000 CVTRV624 EQU CVTS01+712 02161000 CVTRV623 EQU CVTS01+708 02162000 CVTRV622 EQU CVTS01+704 02163000 CVTRV621 EQU CVTS01+700 02164000 CVTIHASU EQU CVTS01+696 02165000 CVTSUSP EQU CVTS01+692 02166000 CVTT6SVC EQU CVTS01+688 02167000 CVTCDAL EQU CVTS01+684 02168000 CVTTCTL EQU CVTS01+680 02169000 CVTRSUME EQU CVTS01+676 02170000 CVTJTERM EQU CVTS01+672 02171000 CVTASMRM EQU CVTS01+668 02172000 CVTTCASP EQU CVTS01+664 02173000 CVT0PT03 EQU CVTS01+660 02174000 CVT0PT0E EQU CVTS01+656 02175000 CVTSRM EQU CVTS01+652 02176000 CVTCGK EQU CVTS01+648 02177000 CVTRAC EQU CVTS01+644 02178000 CVTRV606 EQU CVTS01+640 02179000 CVTCDEQ EQU CVTS01+636 02180000 CVTEFF02 EQU CVTS01+628 02181000 CVTCBBR EQU CVTS01+624 02182000 CVTSSCR EQU CVTS01+620 02183000 CVTEVENT EQU CVTS01+616 02184000 CVTCRCA EQU CVTS01+612 02185000 CVTTPIO EQU CVTS01+608 02186000 CVTADV EQU CVTS01+604 02187000 CVTGSDAB EQU CVTGSDA 02188000 CVTQV3 EQU CVTS01+596 02189000 CVTQV2 EQU CVTS01+592 02190000 CVTQV1 EQU CVTS01+588 02191000 CVTRPT EQU CVTS01+584 02192000 CVTSSRB EQU CVTS01+580 02193000 CVTCSDRL EQU CVTS01+576 02194000 CVTEXP1 EQU CVTS01+572 02195000 CVTRMPMT EQU CVTS01+568 02196000 CVTRMPTT EQU CVTS01+564 02197000 CVTVPSA EQU CVTS01+560 02198000 CVTVSTOP EQU CVTS01+556 02199000 CVTGTFR8 EQU CVTS01+552 02200000 CVTQUIT EQU CVTS01+548 02201000 CVTVACR EQU CVTS01+544 02202000 CVTWTCB EQU CVTS01+540 02203000 CVTSTPRS EQU CVTS01+536 02204000 CVT0PT02 EQU CVTS01+532 02205000 CVTDARCM EQU CVTS01+528 02206000 CVTIRECM EQU CVTS01+524 02207000 CVTJRECM EQU CVTS01+520 02208000 CVTVEMS0 EQU CVTS01+516 02209000 CVTSPFRR EQU CVTS01+512 02210000 CVTRLSTG EQU CVTS01+508 02211000 CVT0TC0A EQU CVTS01+504 02212000 CVTGMBR EQU CVTS01+500 02213000 CVTLFRM EQU CVTS01+496 02214000 CVTRMBR EQU CVTS01+492 02215000 CVTVIOP EQU CVTS01+488 02216000 CVTRV307 EQU CVTS01+486 02217000 CVTRV306 EQU CVTS01+484 02218000 CVTRV305 EQU CVTS01+482 02219000 CVTRV304 EQU CVTS01+480 02220000 CVTRV303 EQU CVTS01+478 02221000 CVTRV302 EQU CVTS01+476 02222000 CVTTRCA EQU CVTS01+472 02223000 CVTRV297 EQU CVTRV289 02224000 CVTRV296 EQU CVTRV289 02225000 CVTRV295 EQU CVTRV289 02226000 CVTRV294 EQU CVTRV289 02227000 CVTRV293 EQU CVTRV289 02228000 CVTRV292 EQU CVTRV289 02229000 CVTRV291 EQU CVTRV289 02230000 CVTRV290 EQU CVTRV289 02231000 CVTRV288 EQU CVTRV280 02232000 CVTRV287 EQU CVTRV280 02233000 CVTRV286 EQU CVTRV280 02234000 CVTRV285 EQU CVTRV280 02235000 CVTRV284 EQU CVTRV280 02236000 CVTRV283 EQU CVTRV280 02237000 CVTRV282 EQU CVTRV280 02238000 CVTRV281 EQU CVTRV280 02239000 CVTRV279 EQU CVTRV271 02240000 CVTRV278 EQU CVTRV271 02241000 CVTRV277 EQU CVTRV271 02242000 CVTRV276 EQU CVTRV271 02243000 CVTRV275 EQU CVTRV271 02244000 CVTRV274 EQU CVTRV271 02245000 CVTRV273 EQU CVTRV271 02246000 CVTRV272 EQU CVTRV271 02247000 CVTRV270 EQU CVTRV262 02248000 CVTRV269 EQU CVTRV262 02249000 CVTRV268 EQU CVTRV262 02250000 CVTRV267 EQU CVTRV262 02251000 CVTRV266 EQU CVTRV262 02252000 CVTRV265 EQU CVTRV262 02253000 CVTRV264 EQU CVTRV262 02254000 CVTRV263 EQU CVTRV262 02255000 CVTVFP EQU CVTS01+464 02256000 CVTVSI EQU CVTS01+460 02257000 CVTVPSIB EQU CVTS01+456 02258000 CVTMFACT EQU CVTMFRTR 02259000 CVTMFCTL EQU CVTS01+448 02260000 CVTPVBP EQU CVTS01+444 02261000 CVTPWI EQU CVTS01+440 02262000 CVTRV254 EQU CVTS01+438 02263000 CVTRV253 EQU CVTS01+436 02264000 CVTRV252 EQU CVTS01+434 02265000 CVTRV251 EQU CVTS01+433 02266000 CVTRV250 EQU CVTS01+432 02267000 CVTRV249 EQU CVTS01+431 02268000 CVTRV248 EQU CVTS01+430 02269000 CVTRV247 EQU CVTS01+429 02270000 CVTRV246 EQU CVTS01+428 02271000 CVTRV245 EQU CVTRV237 02272000 CVTRV244 EQU CVTRV237 02273000 CVTRV243 EQU CVTRV237 02274000 CVTRV242 EQU CVTRV237 02275000 CVTRV241 EQU CVTRV237 02276000 CVTRV240 EQU CVTRV237 02277000 CVTRV239 EQU CVTRV237 02278000 CVTRV238 EQU CVTRV237 02279000 CVTRV236 EQU CVTRV228 02280000 CVTRV235 EQU CVTRV228 02281000 CVTRV234 EQU CVTRV228 02282000 CVTRV233 EQU CVTRV228 02283000 CVTRV232 EQU CVTRV228 02284000 CVTRV231 EQU CVTRV228 02285000 CVTRV230 EQU CVTRV228 02286000 CVTRV229 EQU CVTRV228 02287000 CVTRV227 EQU CVTRV219 02288000 CVTRV226 EQU CVTRV219 02289000 CVTRV225 EQU CVTRV219 02290000 CVTRV224 EQU CVTRV219 02291000 CVTRV223 EQU CVTRV219 02292000 CVTRV222 EQU CVTRV219 02293000 CVTRV221 EQU CVTRV219 02294000 CVTRV220 EQU CVTRV219 02295000 CVTRV218 EQU CVTRV210 02296000 CVTRV217 EQU CVTRV210 02297000 CVTRV216 EQU CVTRV210 02298000 CVTRV215 EQU CVTRV210 02299000 CVTRV214 EQU CVTRV210 02300000 CVTRV213 EQU CVTRV210 02301000 CVTRV212 EQU CVTRV210 02302000 CVTRV211 EQU CVTRV210 02303000 CVTLCCAT EQU CVTS01+420 02304000 CVTIPCRP EQU CVTS01+412 02305000 CVTIPCRI EQU CVTS01+408 02306000 CVTIPCDS EQU CVTS01+404 02307000 CVTAIDVT EQU CVTS01+400 02308000 CVTSSAP EQU CVTS01+396 02309000 CVTEHCIR EQU CVTS01+392 02310000 CVTEHDEF EQU CVTS01+388 02311000 CVTDAIR EQU CVTS01+384 02312000 CVTPERFM EQU CVTS01+380 02313000 CVT044R2 EQU CVTS01+376 02314000 CVTFETCH EQU CVTS01+372 02315000 CVTRSTWD EQU CVTS01+368 02316000 CVTSPOST EQU CVTS01+364 02317000 CVTIOBP EQU CVTS01+360 02318000 CVTASMVT EQU CVTS01+356 02319000 CVTRECRQ EQU CVTS01+352 02320000 CVTWSAC EQU CVTS01+348 02321000 CVTRV149 EQU CVTS01+344 02322000 CVTWSAL EQU CVTS01+340 02323000 CVTGLMN EQU CVTS01+332 02324000 CVTVEAC0 EQU CVTS01+328 02325000 CVT062R1 EQU CVTS01+324 02326000 CVTRPOST EQU CVTS01+320 02327000 CVTDQIQE EQU CVTS01+316 02328000 CVTCSD EQU CVTS01+312 02329000 CVTLKRMA EQU CVTS01+308 02330000 CVTRSPIE EQU CVTS01+304 02331000 CVTRENQ EQU CVTS01+300 02332000 CVTLQCB EQU CVTS01+296 02333000 CVTFQCB EQU CVTS01+292 02334000 CVTQCS01 EQU CVTS01+288 02335000 CVTAPFT EQU CVTS01+284 02336000 CVTPARRL EQU CVTS01+280 02337000 CVTVWAIT EQU CVTS01+276 02338000 CVTGSPL EQU CVTS01+272 02339000 CVTLSMQ EQU CVTS01+268 02340000 CVTGSMQ EQU CVTS01+264 02341000 CVTEXPRO EQU CVTS01+260 02342000 CVTOPCTP EQU CVTS01+256 02343000 CVTSIC EQU CVTS01+252 02344000 CVTTPIOS EQU CVTS01+248 02345000 CVTRTMS EQU CVTS01+244 02346000 CVTSCBP EQU CVTS01+236 02347000 CVTSDMP EQU CVTS01+232 02348000 CVTSV60 EQU CVTS01+228 02349000 CVTRTMCT EQU CVTS01+224 02350000 CVTASCBL EQU CVTS01+220 02351000 CVTASCBH EQU CVTS01+216 02352000 CVTGDA EQU CVTS01+212 02353000 CVTVVMDI EQU CVTS01+204 02354000 CVTAQTOP EQU CVTS01+200 02355000 CVTIOSCS EQU CVTS01+196 02356000 CVTSDRM EQU CVTS01+192 02357000 CVTOPTE EQU CVTS01+188 02358000 CVTSTXU EQU CVTS01+184 02359000 CVTQUIS EQU CVTS01+180 02360000 CVTPARS EQU CVTS01+176 02361000 CVTS1EE EQU CVTS01+172 02362000 CVTFRAS EQU CVTS01+168 02363000 CVTQSAS EQU CVTS01+164 02364000 CVTCRAS EQU CVTS01+160 02365000 CVTCRMN EQU CVTS01+156 02366000 CVTDELCP EQU CVTS01+152 02367000 CVTFRECL EQU CVTS01+148 02368000 CVTGETCL EQU CVTS01+144 02369000 CVTBLDCP EQU CVTS01+140 02370000 CVTAUTHL EQU CVTS01+136 02371000 CVTSCAN EQU CVTS01+132 02372000 CVTRV144 EQU CVTS01+130 02373000 CVTMAXMP EQU CVTS01+128 02374000 CVTSTCK EQU CVTS01+124 02375000 CVTRV139 EQU CVTS01+123 02376000 CVTDSSAC EQU CVTS01+122 02377000 CVTRV513 EQU CVTS01+121 02378000 CVTIOSPL EQU CVTS01+120 02379000 CVTPTGT EQU CVTS01+116 02380000 CVTCSPIE EQU CVTS01+112 02381000 CVTSMFEX EQU CVTS01+108 02382000 CVTOLT0A EQU CVTS01+104 02383000 CVTSRBRT EQU CVTS01+100 02384000 CVTPUTL EQU CVTS01+96 02385000 CVTASCRL EQU CVTS01+92 02386000 CVTASCRF EQU CVTS01+88 02387000 CVTRV326 EQU CVTS01+84 02388000 CVTRV325 EQU CVTS01+80 02389000 CVTRV324 EQU CVTS01+76 02390000 CVT0VL01 EQU CVTS01+72 02391000 CVTSHRVM EQU CVTS01+68 02392000 CVTRV332 EQU CVTS01+64 02393000 CVTTAS EQU CVTS01+60 02394000 CVTRSCN EQU CVTS01+56 02395000 CVTTRAC2 EQU CVTS01+54 02396000 CVTTRACE EQU CVTS01+52 02397000 CVTAPG EQU CVTS01+51 02398000 CVTSDTRC EQU CVTCTLFG 02399000 CVTGTRCE EQU CVTCTLFG 02400000 CVTNOMP EQU CVTCTLFG 02401000 CVTRSV79 EQU CVTCTLFG 02402000 CVTDSTAT EQU CVTCTLFG 02403000 CVTRSV78 EQU CVTCTLFG 02404000 CVTRV333 EQU CVTCTLFG 02405000 CVTIOQ EQU CVTCTLFG 02406000 CVTSPVLK EQU CVTS01+49 02407000 CVTRSV77 EQU CVTS01+48 02408000 CVTRV331 EQU CVTS01+44 02409000 CVTRV330 EQU CVTS01+40 02410000 CVTRV329 EQU CVTS01+36 02411000 CVTRV328 EQU CVTS01+32 02412000 CVTRV322 EQU CVTS01+28 02413000 CVTSLID EQU CVTSLIDA+1 02414000 CVTSYLK EQU CVTSLIDA 02415000 CVTRV321 EQU CVTS01+20 02416000 CVTRV320 EQU CVTS01+16 02417000 CVTLPDIR EQU CVTLPDIA+1 02418000 CVTRSV69 EQU CVTDIRST 02419000 CVTRSV68 EQU CVTDIRST 02420000 CVTRSV67 EQU CVTDIRST 02421000 CVTRSV66 EQU CVTDIRST 02422000 CVTRSV65 EQU CVTDIRST 02423000 CVTRSV64 EQU CVTDIRST 02424000 CVTRSV63 EQU CVTDIRST 02425000 CVTDICOM EQU CVTDIRST 02426000 CVTPVTP EQU CVTS01+8 02427000 CVTLPDSR EQU CVTS01+4 02428000 CVTGETL EQU CVTS01 02429000 SECL EQU SEPL+16 02430000 SECN EQU SEPL+3 02431000 @NM00124 EQU SEPL+1 02432000 SVR14CAL EQU FRRPARM+16 02433000 @NM00115 EQU FRRPARM+2 02434000 RECURCTR EQU FRRPARM 02435000 @NM00114 EQU DSPREGS+8 02436000 DSPREG0 EQU DSPREGS 02437000 CVTLEVL EQU CVTRELNO+2 02438000 CVTNUMB EQU CVTRELNO 02439000 CVTMDL EQU CVTFIX+250 02440000 @NM00108 EQU CVTFIX+248 02441000 @NM00107 EQU CVTFIX 02442000 CVTRV482 EQU CVTXTNT2+128 02443000 CVTRV481 EQU CVTXTNT2+124 02444000 CVTRV480 EQU CVTXTNT2+120 02445000 CVTRV479 EQU CVTXTNT2+118 02446000 CVTRV478 EQU CVTXTNT2+117 02447000 CVTRV477 EQU CVTXTNT2+116 02448000 CVTRV476 EQU CVTXTNT2+115 02449000 CVTRV475 EQU CVTXTNT2+114 02450000 CVTRV474 EQU CVTRV466 02451000 CVTRV473 EQU CVTRV466 02452000 CVTRV472 EQU CVTRV466 02453000 CVTRV471 EQU CVTRV466 02454000 CVTRV470 EQU CVTRV466 02455000 CVTRV469 EQU CVTRV466 02456000 CVTRV468 EQU CVTRV466 02457000 CVTRV467 EQU CVTRV466 02458000 CVTRV465 EQU CVTRV457 02459000 CVTRV464 EQU CVTRV457 02460000 CVTRV463 EQU CVTRV457 02461000 CVTRV462 EQU CVTRV457 02462000 CVTRV461 EQU CVTRV457 02463000 CVTRV460 EQU CVTRV457 02464000 CVTRV459 EQU CVTRV457 02465000 CVTRV458 EQU CVTRV457 02466000 CVTRV456 EQU CVTXTNT2+108 02467000 CVTRV455 EQU CVTXTNT2+104 02468000 CVTRV454 EQU CVTXTNT2+100 02469000 CVTRV453 EQU CVTXTNT2+96 02470000 CVTRV452 EQU CVTXTNT2+94 02471000 CVTRV451 EQU CVTXTNT2+92 02472000 CVTRV450 EQU CVTXTNT2+90 02473000 CVTRV449 EQU CVTXTNT2+88 02474000 CVTRV448 EQU CVTXTNT2+87 02475000 CVTRV447 EQU CVTXTNT2+86 02476000 CVTRV446 EQU CVTRV438 02477000 CVTRV445 EQU CVTRV438 02478000 CVTRV444 EQU CVTRV438 02479000 CVTRV443 EQU CVTRV438 02480000 CVTRV442 EQU CVTRV438 02481000 CVTRV441 EQU CVTRV438 02482000 CVTRV440 EQU CVTRV438 02483000 CVTRV439 EQU CVTRV438 02484000 CVTRV437 EQU CVTRV429 02485000 CVTRV436 EQU CVTRV429 02486000 CVTRV435 EQU CVTRV429 02487000 CVTRV434 EQU CVTRV429 02488000 CVTRV433 EQU CVTRV429 02489000 CVTRV432 EQU CVTRV429 02490000 CVTRV431 EQU CVTRV429 02491000 CVTRV430 EQU CVTRV429 02492000 CVTRV428 EQU CVTXTNT2+80 02493000 CVTRV427 EQU CVTXTNT2+76 02494000 CVTRV426 EQU CVTXTNT2+72 02495000 CVTRV425 EQU CVTXTNT2+68 02496000 CVTATACT EQU CVTATCVT 02497000 CVTRV423 EQU CVTXTNT2+62 02498000 CVTRV422 EQU CVTXTNT2+60 02499000 CVTRV421 EQU CVTXTNT2+58 02500000 CVTRV420 EQU CVTXTNT2+56 02501000 CVTRV419 EQU CVTXTNT2+55 02502000 CVTRV418 EQU CVTXTNT2+54 02503000 CVTRV417 EQU CVTRV409 02504000 CVTRV416 EQU CVTRV409 02505000 CVTRV415 EQU CVTRV409 02506000 CVTRV414 EQU CVTRV409 02507000 CVTRV413 EQU CVTRV409 02508000 CVTRV412 EQU CVTRV409 02509000 CVTRV411 EQU CVTRV409 02510000 CVTRV410 EQU CVTRV409 02511000 CVTRV408 EQU CVTRV400 02512000 CVTRV407 EQU CVTRV400 02513000 CVTRV406 EQU CVTRV400 02514000 CVTRV405 EQU CVTRV400 02515000 CVTRV404 EQU CVTRV400 02516000 CVTRV403 EQU CVTRV400 02517000 CVTRV402 EQU CVTRV400 02518000 CVTRV401 EQU CVTRV400 02519000 CVTICB EQU CVTXTNT2+48 02520000 CVTSKTA EQU CVTXTNT2+44 02521000 CVTCCVT EQU CVTXTNT2+40 02522000 CVTRSV98 EQU CVTXTNT2+36 02523000 CVTRSV97 EQU CVTXTNT2+34 02524000 CVTRSV96 EQU CVTXTNT2+32 02525000 CVTOLTEP EQU CVTXTNT2+28 02526000 CVTQIDA EQU CVTQID+1 02527000 CVTRSV95 EQU CVTQID 02528000 CVTRSV94 EQU CVTXTNT2+20 02529000 CVTRSV93 EQU CVTXTNT2+16 02530000 CVTRSV92 EQU CVTXTNT2+12 02531000 CVTDEBVR EQU CVTXTNT2+8 02532000 CVTRSV91 EQU CVTXTNT2+6 02533000 CVTRSV9H EQU CVTFLGBT 02534000 CVTRSV9G EQU CVTFLGBT 02535000 CVTRSV9F EQU CVTFLGBT 02536000 CVTRSV9E EQU CVTFLGBT 02537000 CVTRSV9D EQU CVTFLGBT 02538000 CVTBAH EQU CVTFLGBT 02539000 CVTVME EQU CVTFLGBT 02540000 CVTNPE EQU CVTFLGBT 02541000 CVTNUCLS EQU CVTXTNT2+4 02542000 CVTDSSVA EQU CVTDSSV+1 02543000 CVTRSV89 EQU CVTDSSV 02544000 CVTRSV88 EQU CVTXTNT1+8 02545000 CVTRSV87 EQU CVTXTNT1+4 02546000 CVTFACHN EQU CVTXTNT1 02547000 CVTRV488 EQU CVTMAP+412 02548000 CVTRV487 EQU CVTMAP+408 02549000 CVTRV486 EQU CVTMAP+404 02550000 CVTRV485 EQU CVTMAP+400 02551000 CVTACTAP EQU CVTMAP+396 02552000 CVTAUTH EQU CVTMAP+392 02553000 CVTRV490 EQU CVTMAP+388 02554000 CVTSU EQU CVTMAP+384 02555000 CVTVOLT1 EQU CVTVOLM1+1 02556000 CVTVOLI1 EQU CVTVOLF1 02557000 CVTSTOA EQU CVTMAP+376 02558000 CVTRSV58 EQU CVTMAP+374 02559000 CVTRSV57 EQU CVTMAP+372 02560000 CVTDDCE EQU CVTMAP+368 02561000 CVTPNWFR EQU CVTMAP+364 02562000 CVTSMF EQU CVTMAP+360 02563000 CVTSULK EQU CVTMAP+358 02564000 CVTSLKO EQU CVTSYSK 02565000 CVTSLKP EQU CVTSYSK 02566000 CVTSLKQ EQU CVTSYSK 02567000 CVTSLKR EQU CVTSYSK 02568000 CVTRSV56 EQU CVTSYSK 02569000 CVTRSV55 EQU CVTSYSK 02570000 CVTRSV54 EQU CVTSYSK 02571000 CVTRSV53 EQU CVTSYSK 02572000 CVTRSV52 EQU CVTA1F1 02573000 CVTRSV51 EQU CVTA1F1 02574000 CVTRSV50 EQU CVTA1F1 02575000 CVTRSV49 EQU CVTA1F1 02576000 CVTRSV48 EQU CVTA1F1 02577000 CVTRSV47 EQU CVTA1F1 02578000 CVTSRSW EQU CVTA1F1 02579000 CVTPFSW EQU CVTA1F1 02580000 CVTPCVT EQU CVTMAP+352 02581000 CVTRSV46 EQU CVTMAP+344 02582000 CVTRSV45 EQU CVTMAP+340 02583000 CVTRSV44 EQU CVTMAP+338 02584000 CVTRSV43 EQU CVTMAP+336 02585000 CVTHJESA EQU CVTHJES+1 02586000 CVTRSV42 EQU CVTHJES 02587000 CVTEXT2A EQU CVTEXT2+1 02588000 CVTRSV41 EQU CVTEXT2 02589000 CVTAPFA EQU CVTAPF+1 02590000 CVTRSV40 EQU CVTAPF 02591000 CVTRV518 EQU CVTINTLA 02592000 CVTRV517 EQU CVTERPV 02593000 CVTEORM EQU CVTMAP+312 02594000 CVTMCHPR EQU CVTMAP+308 02595000 CVTTZ EQU CVTMAP+304 02596000 CVTJEPS EQU CVTMAP+300 02597000 CVTJESCT EQU CVTMAP+296 02598000 CVTMODE EQU CVTMAP+292 02599000 CVTPTRV EQU CVTMAP+288 02600000 CVTREAL EQU CVTMAP+284 02601000 CVTRSV39 EQU CVTMAP+280 02602000 CVTRSV38 EQU CVTMAP+276 02603000 CVTDMSRA EQU CVTDMSR+1 02604000 CVTRV634 EQU CVTDMSRF 02605000 CVTRV633 EQU CVTDMSRF 02606000 CVTRV632 EQU CVTDMSRF 02607000 CVTRV631 EQU CVTDMSRF 02608000 CVTRV630 EQU CVTDMSRF 02609000 CVTRV629 EQU CVTDMSRF 02610000 CVTUDUMP EQU CVTDMSRF 02611000 CVTSDUMP EQU CVTDMSRF 02612000 CVTQMSGA EQU CVTQMSG+1 02613000 CVTRSV36 EQU CVTQMSG 02614000 CVTAMFF EQU CVTMAP+264 02615000 CVTPURGA EQU CVTPURG+1 02616000 CVTRSV35 EQU CVTPURG 02617000 CVTCBSP EQU CVTMAP+256 02618000 CVTATERA EQU CVTATER+1 02619000 CVTSYST EQU CVTATER 02620000 CVTVOLT2 EQU CVTTAT 02621000 CVTVOLI2 EQU CVTVOLF2 02622000 CVTAQAVB EQU CVTAQAVT+1 02623000 CVTRSV34 EQU CVTTCMFG 02624000 CVTRSV33 EQU CVTTCMFG 02625000 CVTRSV32 EQU CVTTCMFG 02626000 CVTRSV31 EQU CVTTCMFG 02627000 CVTRSV30 EQU CVTTCMFG 02628000 CVTRSV29 EQU CVTTCMFG 02629000 CVTLDEV EQU CVTTCMFG 02630000 CVTTCRDY EQU CVTTCMFG 02631000 CVTRSV27 EQU CVTGTFST 02632000 CVTRNIO EQU CVTGTFST 02633000 CVTUSR EQU CVTGTFST 02634000 CVTRV318 EQU CVTFORM 02635000 CVTRV317 EQU CVTTMODE 02636000 CVTRV316 EQU CVTSTATE 02637000 CVTRV315 EQU CVTGTFS 02638000 CVTGTFAV EQU CVTGTFS 02639000 CVT0SCR1 EQU CVTMAP+232 02640000 CVTRV515 EQU CVTMAP+228 02641000 CVTRMS EQU CVTMAP+224 02642000 CVTPATCH EQU CVTMAP+220 02643000 CVTTSCE EQU CVTMAP+216 02644000 CVTLNKSC EQU CVTMAP+214 02645000 CVTQABST EQU CVTMAP+212 02646000 CVTMDLDS EQU CVTMAP+208 02647000 CVTUSER EQU CVTMAP+204 02648000 CVTABEND EQU CVTMAP+200 02649000 CVTSMCA EQU CVTMAP+196 02650000 CVTRSV18 EQU CVTMAP+192 02651000 CVTQLPAQ EQU CVTMAP+188 02652000 CVTQCDSR EQU CVTMAP+184 02653000 CVTVS1B EQU CVTOPTB 02654000 CVTVS1A EQU CVTOPTB 02655000 CVTFP EQU CVTOPTB 02656000 CVTAPTHR EQU CVTOPTB 02657000 CVTNLOG EQU CVTOPTB 02658000 CVTTOD EQU CVTOPTB 02659000 CVTCTIMS EQU CVTOPTB 02660000 CVTPROT EQU CVTOPTB 02661000 CVTXPFP EQU CVTOPTA 02662000 CVTASCII EQU CVTOPTA 02663000 CVTRSV13 EQU CVTOPTA 02664000 CVTPRON EQU CVTOPTA 02665000 CVTNIP EQU CVTOPTA 02666000 CVTDDR EQU CVTOPTA 02667000 CVTAPR EQU CVTOPTA 02668000 CVTCCH EQU CVTOPTA 02669000 CVTSNCTR EQU CVTMAP+180 02670000 CVTQMWR EQU CVTMAP+176 02671000 CVTQOCR EQU CVTMAP+172 02672000 CVT1EF00 EQU CVTMAP+168 02673000 CVTMZ00 EQU CVTMAP+164 02674000 CVTSV76Q EQU CVTSV76C 02675000 CVTRSV11 EQU CVTMAP+156 02676000 CVT0PT01 EQU CVTMAP+152 02677000 CVTMSER EQU CVTMAP+148 02678000 CVTRV516 EQU CVTIERLC 02679000 CVTILCH EQU CVTMAP+140 02680000 CVT0DS EQU CVTMAP+136 02681000 CVTFBOSV EQU CVTMAP+132 02682000 CVTNUCB EQU CVTMAP+128 02683000 CVTIXAVL EQU CVTMAP+124 02684000 CVTSV76M EQU CVTIOQET 02685000 CVTDCBA EQU CVTMAP+117 02686000 CVTMVS2 EQU CVTDCB 02687000 CVT6DAT EQU CVTDCB 02688000 CVT4MPS EQU CVTDCB 02689000 CVTRSV09 EQU CVTDCB 02690000 CVT4MS1 EQU CVTDCB 02691000 CVT2SPS EQU CVTDCB 02692000 CVT1SSS EQU CVTDCB 02693000 CVTRSV08 EQU CVTDCB 02694000 CVTSTB EQU CVTMAP+112 02695000 CVTQTD00 EQU CVTMAP+108 02696000 CVTQTE00 EQU CVTMAP+104 02697000 CVTCUCB EQU CVTMAP+100 02698000 CVTSJQ EQU CVTMAP+96 02699000 CVTPBLDL EQU CVTMAP+92 02700000 CVTTPC EQU CVTMAP+88 02701000 CVTSVDCB EQU CVTMAP+84 02702000 CVTBRET EQU CVTMAP+82 02703000 CVTEXIT EQU CVTMAP+80 02704000 CVT0FN00 EQU CVTMAP+76 02705000 CVTDARA EQU CVTDAR+1 02706000 CVTRSV07 EQU CVTFLGS1 02707000 CVTRSV06 EQU CVTFLGS1 02708000 CVTRSV05 EQU CVTFLGS1 02709000 CVTRSV04 EQU CVTFLGS1 02710000 CVTRSV03 EQU CVTFLGS1 02711000 CVTRSV02 EQU CVTFLGS1 02712000 CVTRSV01 EQU CVTFLGS1 02713000 CVTDMPLK EQU CVTFLGS1 02714000 CVTXITP EQU CVTMAP+68 02715000 CVTZDTAB EQU CVTMAP+64 02716000 CVTMSLT EQU CVTMAP+60 02717000 CVTDATE EQU CVTMAP+56 02718000 CVTBTERM EQU CVTMAP+52 02719000 CVTSYSAD EQU CVTMAP+48 02720000 CVTXTLER EQU CVTMAP+44 02721000 CVTILK2 EQU CVTMAP+40 02722000 CVTILK1 EQU CVTMAP+36 02723000 CVTPRLTV EQU CVTMAP+32 02724000 CVTPCNVT EQU CVTMAP+28 02725000 CVT0VL00 EQU CVTMAP+24 02726000 CVTXAPG EQU CVTMAP+20 02727000 CVTBUF EQU CVTMAP+16 02728000 CVTJOB EQU CVTMAP+12 02729000 CVTLINK EQU CVTMAP+8 02730000 CVT0EF00 EQU CVTMAP+4 02731000 CVTTCBP EQU CVTMAP 02732000 CVT EQU CVTMAP 02733000 MCRRESV EQU MCRWSAF 02734000 MCERROR EQU MCRWSAF 02735000 MCINFGBR EQU MCRWSAF 02736000 MCINCTL EQU MCRWSAF 02737000 MCASWORK EQU MCAWSA+644 02738000 @NM00106 EQU MCATRL8 02739000 @NM00105 EQU MCATRL8 02740000 @NM00104 EQU MCATRL8 02741000 @NM00103 EQU MCATRL8 02742000 MCAFRECT EQU MCATRL7 02743000 MCAFRECC EQU MCATRL7 02744000 MCAFRESP EQU MCATRL7 02745000 MCAFREXJ EQU MCATRL7 02746000 MCAFRSBR EQU MCATRL6 02747000 MCAFRDMJ EQU MCATRL6 02748000 MCAFRDPC EQU MCATRL6 02749000 MCAFRPIC EQU MCATRL6 02750000 MCAFRPIJ EQU MCATRL6 02751000 @NM00102 EQU MCATRL5 02752000 MCAFRRB EQU MCATRL5 02753000 MCAFRRJ EQU MCATRL5 02754000 MCAFRRA EQU MCATRL5 02755000 MCAFRERT EQU MCATRL5 02756000 MCAFREPC EQU MCATRL5 02757000 MCAMJOBN EQU MCATRL4 02758000 MCAMSDWA EQU MCATRL4 02759000 MCAMIOSB EQU MCATRL4 02760000 MCAMTCB EQU MCATRL4 02761000 MCAMUCB EQU MCATRL4 02762000 MCAMEXT EQU MCATRL4 02763000 MCAFRFRT EQU MCATRL3 02764000 MCAFRFA EQU MCATRL3 02765000 MCAFRSJ EQU MCATRL3 02766000 MCAFRSA EQU MCATRL3 02767000 MCAPIF EQU MCATRL3 02768000 MCASIOF EQU MCATRL3 02769000 MCAIOF EQU MCATRL3 02770000 MCASVCF EQU MCATRL3 02771000 MCATDIR EQU MCATRL2 02772000 MCALSR EQU MCATRL2 02773000 MCAUIO EQU MCATRL2 02774000 MCASTA EQU MCATRL2 02775000 MCAFRR EQU MCATRL2 02776000 MCARNIO EQU MCATRL2 02777000 MCAUSR EQU MCATRL1 02778000 MCAPI EQU MCATRL1 02779000 MCASIO EQU MCATRL1 02780000 MCAIO EQU MCATRL1 02781000 MCAEXT EQU MCATRL1 02782000 MCASVC EQU MCATRL1 02783000 MCAMSG EQU MCAWSA+192 02784000 MCASETEV EQU MCAWSA+128 02785000 MCAFWORK EQU MCAWSA+112 02786000 MCASFEOB EQU MCAWSA+56 02787000 MCASBLOK EQU MCAWSA 02788000 TRANSMAX EQU GTFPCT+304 02789000 @NM00101 EQU AUDITFLG+3 02790000 AFSLEBLD EQU AUDITFLG+3 02791000 WSERFG06 EQU AUDITFLG+3 02792000 WSERFG05 EQU AUDITFLG+3 02793000 WSERFG04 EQU AUDITFLG+3 02794000 WSERFG03 EQU AUDITFLG+3 02795000 WSERFG02 EQU AUDITFLG+2 02796000 WSERFLAG EQU AUDITFLG+2 02797000 TERMFLAG EQU AUDITFLG+2 02798000 AFXWRIT EQU AUDITFLG+2 02799000 AFQLWAIT EQU AUDITFLG+2 02800000 AFSLEGET EQU AUDITFLG+2 02801000 AFBUFGET EQU AUDITFLG+2 02802000 AFFEOB EQU AUDITFLG+2 02803000 AFBLKFIX EQU AUDITFLG+1 02804000 AFEQFIX EQU AUDITFLG+1 02805000 AFPGRLSE EQU AUDITFLG+1 02806000 AFWRAP EQU AUDITFLG+1 02807000 AFBUFOFF EQU AUDITFLG+1 02808000 AFLDFX EQU AUDITFLG+1 02809000 AFCLOSE EQU AUDITFLG+1 02810000 AFOPEN EQU AUDITFLG+1 02811000 AFGMBLOK EQU AUDITFLG 02812000 AFGMSRB EQU AUDITFLG 02813000 AFWAIT EQU AUDITFLG 02814000 AFTERM EQU AUDITFLG 02815000 AFINIT EQU AUDITFLG 02816000 AFWWRIT EQU AUDITFLG 02817000 AFCWRIT EQU AUDITFLG 02818000 AFIWRIT EQU AUDITFLG 02819000 EQSHORT EQU GTFPCT+292 02820000 SLEMAX EQU GTFPCT+288 02821000 SLECNT EQU GTFPCT+284 02822000 RQPURGE EQU GTFPCT+280 02823000 RQTOTAL EQU GTFPCT+276 02824000 WRTDLST EQU GTFPCT+272 02825000 NUMOFBUF EQU GTFPCT+268 02826000 SBUFDISA EQU GTFPCT+264 02827000 SLESUSED EQU GTFPCT+260 02828000 EQMIN EQU GTFPCT+256 02829000 EQLENGTH EQU GTFPCT+252 02830000 WQMAX EQU GTFPCT+248 02831000 WQLENGTH EQU GTFPCT+244 02832000 QLECBP EQU QLOCKECB 02833000 @NM00100 EQU QLOCKECB 02834000 @NM00099 EQU QLOCKWRD+3 02835000 SCHEDBUF EQU QLOCKWRD+2 02836000 POSTWRIT EQU QLOCKWRD+1 02837000 QLOCK EQU QLOCKWRD 02838000 WRITERDD EQU GTFPCT+228 02839000 GTFLOSTR EQU GTFPCT+224 02840000 SRBAVAIL EQU GTFSSRB 02841000 WRTRERRP EQU WRTRERR 02842000 @NM00098 EQU WRTRERR 02843000 TRMWRITP EQU TRMWRIT 02844000 @NM00097 EQU TRMWRIT 02845000 GTFCMECB EQU GTFPCT+208 02846000 WRTRCOMP EQU WRTRCOM 02847000 @NM00096 EQU WRTRCOM 02848000 TRANSCNT EQU GTFPCT+200 02849000 AHLRDPLQ EQU GTFPCT+196 02850000 SFEOBRTN EQU GTFPCT+192 02851000 CURRBLOK EQU GTFPCT+184 02852000 GBCDS EQU NEXTBLOK 02853000 WSMODEND EQU GTFPCT+176 02854000 WSMODBEG EQU GTFPCT+172 02855000 BCBPAGE EQU GTFPCT+156 02856000 SLEPAGE EQU GTFPCT+152 02857000 SAVECNT EQU GTFPCT+148 02858000 SLQHEAD EQU GTFPCT+144 02859000 HQLENGTH EQU GTFPCT+140 02860000 QTAIL EQU GTFPCT+136 02861000 HQHEAD EQU GTFPCT+132 02862000 WQHEAD EQU GTFPCT+128 02863000 RQHEAD EQU GTFPCT+124 02864000 EQHEAD EQU GTFPCT+120 02865000 WPOSTSRB EQU GTFPCT+116 02866000 WTSKTCBA EQU GTFPCT+112 02867000 WRTRTCBA EQU GTFPCT+108 02868000 TRMWTASK EQU GTFPCT+104 02869000 WTSKATTH EQU GTFPCT+100 02870000 WTSKINIT EQU GTFPCT+96 02871000 WTASKECB EQU GTFPCT+92 02872000 WMTABPTR EQU GTFPCT+88 02873000 ATTCHECB EQU GTFPCT+84 02874000 AHLECB EQU GTFPCT+80 02875000 STOPECBA EQU GTFPCT+76 02876000 ECBADRLT EQU GTFPCT+72 02877000 FIXLEN EQU GTFPCT+68 02878000 FIXPTR EQU GTFPCT+64 02879000 INITPTR EQU GTFPCT+60 02880000 MCQEPTR EQU GTFPCT+56 02881000 GTFEIDL EQU GTFPCT+52 02882000 GTFPIBL EQU GTFPCT+48 02883000 GTFPIFT EQU GTFPCT+44 02884000 GTFSVCBL EQU GTFPCT+40 02885000 GTFSVCFT EQU GTFPCT+36 02886000 GTFIOBL EQU GTFPCT+32 02887000 GTFIOFT EQU GTFPCT+28 02888000 GTFSIOBL EQU GTFPCT+24 02889000 GTFSIOFT EQU GTFPCT+20 02890000 @NM00095 EQU PCTCATF+1 02891000 PCTPIF EQU PCTCATF+1 02892000 PCTSIOF EQU PCTCATF+1 02893000 PCTIOF EQU PCTCATF+1 02894000 PCTSVCF EQU PCTCATF+1 02895000 PCTRR EQU PCTCATF+1 02896000 PCTUSR EQU PCTCATF 02897000 PCTPI EQU PCTCATF 02898000 @NM00094 EQU PCTCATF 02899000 PCTSIO EQU PCTCATF 02900000 PCTIO EQU PCTCATF 02901000 PCTEXT EQU PCTCATF 02902000 PCTSVC EQU PCTCATF 02903000 OPTRES3 EQU GTFOPTS4 02904000 OPTIOSIO EQU GTFOPTS3 02905000 OPTRES2 EQU GTFOPTS3 02906000 OPTRR EQU GTFOPTS3 02907000 OPTSRM EQU GTFOPTS3 02908000 OPTRNIO EQU GTFOPTS3 02909000 OPTEXT EQU GTFOPTS3 02910000 OPTIOP EQU GTFOPTS2 02911000 OPTIO EQU GTFOPTS2 02912000 OPTPIP EQU GTFOPTS2 02913000 OPTPI EQU GTFOPTS2 02914000 OPTSIOP EQU GTFOPTS2 02915000 OPTSIO EQU GTFOPTS2 02916000 OPTSVCP EQU GTFOPTS2 02917000 OPTSVC EQU GTFOPTS2 02918000 OPTPCI EQU GTFOPTS1 02919000 OPTRES1 EQU GTFOPTS1 02920000 OPTDSP EQU GTFOPTS1 02921000 OPTUSR EQU GTFOPTS1 02922000 OPTSYS EQU GTFOPTS1 02923000 OPTSYSP EQU GTFOPTS1 02924000 OPTSYSM EQU GTFOPTS1 02925000 GTFRESV EQU GTFSTAT 02926000 GTFMODE EQU GTFSTAT 02927000 GTFPCTID EQU GTFPCT 02928000 @NM00093 EQU SDWA+512 02929000 SDWAVRA EQU SDWARA+4 02930000 SDWAURAL EQU SDWARA+3 02931000 @NM00092 EQU SDWADPVA 02932000 SDWAEBC EQU SDWADPVA 02933000 SDWAHEX EQU SDWADPVA 02934000 SDWAVRAL EQU SDWARA 02935000 SDWAERTM EQU SDWA+396 02936000 SDWACOMP EQU SDWA+392 02937000 SDWARCPL EQU SDWA+364 02938000 @NM00091 EQU SDWADPSA+32 02939000 SDWATO4 EQU SDWADPSL+28 02940000 SDWAFRM4 EQU SDWADPSL+24 02941000 SDWATO3 EQU SDWADPSL+20 02942000 SDWAFRM3 EQU SDWADPSL+16 02943000 SDWATO2 EQU SDWADPSL+12 02944000 SDWAFRM2 EQU SDWADPSL+8 02945000 SDWATO1 EQU SDWADPSL+4 02946000 SDWAFRM1 EQU SDWADPSL 02947000 @NM00090 EQU SDWADDAT+3 02948000 @NM00089 EQU SDWAPDAT 02949000 SDWAUSPL EQU SDWAPDAT 02950000 SDWADPSW EQU SDWAPDAT 02951000 SDWATJPA EQU SDWAPDAT 02952000 SDWATLPA EQU SDWAPDAT 02953000 SDWADREG EQU SDWAPDAT 02954000 SDWADSAH EQU SDWAPDAT 02955000 SDWADSAS EQU SDWAPDAT 02956000 @NM00088 EQU SDWADDAT+1 02957000 @NM00087 EQU SDWASDAT 02958000 SDWAQQS EQU SDWASDAT 02959000 SDWACBS EQU SDWASDAT 02960000 SDWAGTF EQU SDWASDAT 02961000 SDWASWA EQU SDWASDAT 02962000 SDWALSQA EQU SDWASDAT 02963000 SDWASQA EQU SDWASDAT 02964000 SDWANUC EQU SDWASDAT 02965000 @NM00086 EQU SDWADUMP+2 02966000 @NM00085 EQU SDWADPFS 02967000 SDWASLST EQU SDWADPFS 02968000 @NM00084 EQU SDWADPFS 02969000 SDWADLST EQU SDWADPFS 02970000 SDWADPT EQU SDWADPFS 02971000 SDWADPID EQU SDWADUMP 02972000 SDWADPLA EQU SDWA+316 02973000 SDWAREXN EQU SDWARECP+16 02974000 SDWACSCT EQU SDWARECP+8 02975000 SDWAMODN EQU SDWARECP 02976000 SDWASEQ# EQU SDWA+290 02977000 SDWAASID EQU SDWA+288 02978000 SDWATALW EQU SDWALKWS+28 02979000 SDWATDLW EQU SDWALKWS+24 02980000 SDWATNLW EQU SDWALKWS+20 02981000 SDWAAPLW EQU SDWALKWS+16 02982000 SDWAIPLW EQU SDWALKWS+12 02983000 SDWAILLW EQU SDWALKWS+8 02984000 SDWAIULW EQU SDWALKWS+4 02985000 SDWAICLW EQU SDWALKWS 02986000 SDWAFLLK EQU SDWAACF4 02987000 SDWACMS EQU SDWAACF4 02988000 SDWAOPTM EQU SDWAACF4 02989000 SDWATADB EQU SDWAACF4 02990000 SDWATDNB EQU SDWAACF4 02991000 SDWATNCB EQU SDWAACF4 02992000 SDWAILCH EQU SDWAACF4 02993000 SDWAIUCB EQU SDWAACF4 02994000 SDWAICAT EQU SDWAACF3 02995000 SDWAIPRG EQU SDWAACF3 02996000 SDWASALL EQU SDWAACF3 02997000 SDWAASMP EQU SDWAACF3 02998000 SDWADISP EQU SDWAACF3 02999000 @NM00083 EQU SDWAACF3 03000000 @NM00082 EQU SDWAACF2 03001000 SDWAFREE EQU SDWAACF2 03002000 SDWAUPRG EQU SDWAACF2 03003000 @NM00081 EQU SDWAACF2 03004000 SDWASPIN EQU SDWAACF2 03005000 @NM00080 EQU SDWAACF2 03006000 SDWARCRD EQU SDWAACF2 03007000 SDWALCPU EQU SDWACPUA+2 03008000 @NM00079 EQU SDWACPUA 03009000 SDWARECA EQU SDWA+244 03010000 SDWACPUI EQU SDWA+239 03011000 @NM00078 EQU SDWAIOFS 03012000 SDWANIOP EQU SDWAIOFS 03013000 SDWANOIO EQU SDWAIOFS 03014000 SDWAIOHT EQU SDWAIOFS 03015000 SDWAIOQR EQU SDWAIOFS 03016000 SDWAFMID EQU SDWA+236 03017000 SDWAERFL EQU SDWAERRD 03018000 SDWAMCIV EQU SDWAERRD 03019000 SDWARPIV EQU SDWAERRD 03020000 SDWAMABD EQU SDWAERRD 03021000 SDWACTS EQU SDWAERRD 03022000 SDWASTAE EQU SDWAERRD 03023000 SDWANRBE EQU SDWAERRD 03024000 @NM00077 EQU SDWAERRC 03025000 SDWAIRB EQU SDWAERRC 03026000 SDWASTAI EQU SDWAERRC 03027000 SDWASTAF EQU SDWAERRC 03028000 SDWASRBM EQU SDWAERRB 03029000 SDWALDIS EQU SDWAERRB 03030000 SDWAENRB EQU SDWAERRB 03031000 SDWATYP1 EQU SDWAERRB 03032000 @NM00076 EQU SDWAERRB 03033000 SDWAPGIO EQU SDWAERRA 03034000 SDWATEXC EQU SDWAERRA 03035000 SDWASVCE EQU SDWAERRA 03036000 SDWAABTM EQU SDWAERRA 03037000 SDWASVCD EQU SDWAERRA 03038000 SDWARKEY EQU SDWAERRA 03039000 SDWAPCHK EQU SDWAERRA 03040000 SDWATIME EQU SDWAMCH+20 03041000 SDWARFSA EQU SDWAMCH+16 03042000 @NM00075 EQU SDWAMCH+14 03043000 SDWAVEQR EQU SDWARSR2 03044000 SDWAPGFX EQU SDWARSR2 03045000 SDWAFLSQ EQU SDWARSR2 03046000 SDWAFSQA EQU SDWARSR2 03047000 SDWANUCL EQU SDWARSR2 03048000 SDWASPER EQU SDWARSR2 03049000 SDWAINTC EQU SDWARSR2 03050000 SDWAOFLN EQU SDWARSR2 03051000 SDWACHNG EQU SDWARSR1 03052000 SDWAMSER EQU SDWARSR1 03053000 @NM00074 EQU SDWARSR1 03054000 SDWACPID EQU SDWAMCH+10 03055000 SDWATERR EQU SDWAMCHD 03056000 SDWAFPRX EQU SDWAMCHD 03057000 SDWAACR EQU SDWAMCHD 03058000 SDWASCK EQU SDWAMCHD 03059000 SDWASKYF EQU SDWAMCHD 03060000 @NM00073 EQU SDWAMCHS 03061000 SDWARSRF EQU SDWAMCHS 03062000 SDWARSRC EQU SDWAMCHS 03063000 SDWAINVP EQU SDWAMCHS 03064000 SDWATSVL EQU SDWAMCHS 03065000 SDWARCDF EQU SDWAMCHS 03066000 SDWASRVL EQU SDWAMCHS 03067000 SDWASCKE EQU SDWASTCK+4 03068000 SDWASCKB EQU SDWASTCK 03069000 SDWALNTH EQU SDWAIDNT+1 03070000 SDWASPID EQU SDWAIDNT 03071000 SDWASR15 EQU SDWASRSV+60 03072000 SDWASR14 EQU SDWASRSV+56 03073000 SDWASR13 EQU SDWASRSV+52 03074000 SDWASR12 EQU SDWASRSV+48 03075000 SDWASR11 EQU SDWASRSV+44 03076000 SDWASR10 EQU SDWASRSV+40 03077000 SDWASR09 EQU SDWASRSV+36 03078000 SDWASR08 EQU SDWASRSV+32 03079000 SDWASR07 EQU SDWASRSV+28 03080000 SDWASR06 EQU SDWASRSV+24 03081000 SDWASR05 EQU SDWASRSV+20 03082000 SDWASR04 EQU SDWASRSV+16 03083000 SDWASR03 EQU SDWASRSV+12 03084000 SDWASR02 EQU SDWASRSV+8 03085000 SDWASR01 EQU SDWASRSV+4 03086000 SDWASR00 EQU SDWASRSV 03087000 SDWATRN2 EQU SDWAAEC2+4 03088000 SDWAIPC2 EQU SDWAICD2 03089000 SDWAIMC2 EQU SDWAICD2 03090000 SDWAIPR2 EQU SDWAICD2 03091000 @NM00072 EQU SDWAINC2 03092000 @NM00071 EQU SDWAILC2 03093000 SDWAIL2 EQU SDWAILC2 03094000 @NM00070 EQU SDWAILC2 03095000 @NM00069 EQU SDWAAEC2 03096000 SDWAADD2 EQU SDWANXT2+1 03097000 @NM00068 EQU SDWANXT2 03098000 @NM00067 EQU SDWAEC2+3 03099000 SDWASGN2 EQU SDWAINT2 03100000 SDWAEXP2 EQU SDWAINT2 03101000 SDWADEC2 EQU SDWAINT2 03102000 SDWAFPO2 EQU SDWAINT2 03103000 SDWACC2 EQU SDWAINT2 03104000 @NM00066 EQU SDWAINT2 03105000 SDWAPGM2 EQU SDWAMWP2 03106000 SDWAWAT2 EQU SDWAMWP2 03107000 SDWAMCK2 EQU SDWAMWP2 03108000 SDWAECT2 EQU SDWAMWP2 03109000 SDWAKEY2 EQU SDWAMWP2 03110000 SDWAEXT2 EQU SDWAEMK2 03111000 SDWAIO2 EQU SDWAEMK2 03112000 SDWATRM2 EQU SDWAEMK2 03113000 @NM00065 EQU SDWAEMK2 03114000 SDWAPER2 EQU SDWAEMK2 03115000 @NM00064 EQU SDWAEMK2 03116000 SDWATRAN EQU SDWAAEC1+4 03117000 SDWAIPC1 EQU SDWAICD1 03118000 SDWAIMC1 EQU SDWAICD1 03119000 SDWAIPR1 EQU SDWAICD1 03120000 @NM00063 EQU SDWAINC1 03121000 @NM00062 EQU SDWAILC1 03122000 SDWAIL1 EQU SDWAILC1 03123000 @NM00061 EQU SDWAILC1 03124000 @NM00060 EQU SDWAAEC1 03125000 SDWAADD1 EQU SDWANXT1+1 03126000 @NM00059 EQU SDWANXT1 03127000 @NM00058 EQU SDWAEC1+3 03128000 SDWASGN1 EQU SDWAINT1 03129000 SDWAEXP1 EQU SDWAINT1 03130000 SDWADEC1 EQU SDWAINT1 03131000 SDWAFPO1 EQU SDWAINT1 03132000 SDWACC1 EQU SDWAINT1 03133000 @NM00057 EQU SDWAINT1 03134000 SDWAPGM1 EQU SDWAMWP1 03135000 SDWAWAT1 EQU SDWAMWP1 03136000 SDWAMCK1 EQU SDWAMWP1 03137000 SDWAECT1 EQU SDWAMWP1 03138000 SDWAKEY1 EQU SDWAMWP1 03139000 SDWAEXT1 EQU SDWAEMK1 03140000 SDWAIO1 EQU SDWAEMK1 03141000 SDWATRM1 EQU SDWAEMK1 03142000 @NM00056 EQU SDWAEMK1 03143000 SDWAPER1 EQU SDWAEMK1 03144000 @NM00055 EQU SDWAEMK1 03145000 SDWAIOBR EQU SDWA+100 03146000 SDWAEPA EQU SDWA+96 03147000 @NM00054 EQU SDWANAME+4 03148000 SDWARBAD EQU SDWANAME 03149000 SDWAGR15 EQU SDWAGRSV+60 03150000 SDWAGR14 EQU SDWAGRSV+56 03151000 SDWAGR13 EQU SDWAGRSV+52 03152000 SDWAGR12 EQU SDWAGRSV+48 03153000 SDWAGR11 EQU SDWAGRSV+44 03154000 SDWAGR10 EQU SDWAGRSV+40 03155000 SDWAGR09 EQU SDWAGRSV+36 03156000 SDWAGR08 EQU SDWAGRSV+32 03157000 SDWAGR07 EQU SDWAGRSV+28 03158000 SDWAGR06 EQU SDWAGRSV+24 03159000 SDWAGR05 EQU SDWAGRSV+20 03160000 SDWAGR04 EQU SDWAGRSV+16 03161000 SDWAGR03 EQU SDWAGRSV+12 03162000 SDWAGR02 EQU SDWAGRSV+8 03163000 SDWAGR01 EQU SDWAGRSV+4 03164000 SDWAGR00 EQU SDWAGRSV 03165000 SDWANXTP EQU SDWACTL2+5 03166000 SDWASGP EQU SDWAPMKP 03167000 SDWAEUP EQU SDWAPMKP 03168000 SDWADOP EQU SDWAPMKP 03169000 SDWAFPP EQU SDWAPMKP 03170000 SDWACCP EQU SDWAPMKP 03171000 SDWAILP EQU SDWAPMKP 03172000 SDWAINTP EQU SDWACTL2+2 03173000 SDWASPVP EQU SDWAMWPP 03174000 SDWAWATP EQU SDWAMWPP 03175000 SDWAMCKP EQU SDWAMWPP 03176000 @NM00053 EQU SDWAMWPP 03177000 SDWAKEYP EQU SDWAMWPP 03178000 SDWAEXTP EQU SDWACMKP 03179000 SDWAIOP EQU SDWACMKP 03180000 SDWANXTA EQU SDWACTL1+5 03181000 SDWASGA EQU SDWAPMKA 03182000 SDWAEUA EQU SDWAPMKA 03183000 SDWADOA EQU SDWAPMKA 03184000 SDWAFPA EQU SDWAPMKA 03185000 SDWACCA EQU SDWAPMKA 03186000 SDWAILA EQU SDWAPMKA 03187000 SDWAINTA EQU SDWACTL1+2 03188000 SDWASPVA EQU SDWAMWPA 03189000 SDWAWATA EQU SDWAMWPA 03190000 SDWAMCKA EQU SDWAMWPA 03191000 @NM00052 EQU SDWAMWPA 03192000 SDWAKEYA EQU SDWAMWPA 03193000 SDWAEXTA EQU SDWACMKA 03194000 SDWAIOA EQU SDWACMKA 03195000 SDWACMPC EQU SDWAABCC+1 03196000 @NM00051 EQU SDWACMPF 03197000 SDWASTCC EQU SDWACMPF 03198000 @NM00050 EQU SDWACMPF 03199000 SDWASTEP EQU SDWACMPF 03200000 SDWAREQ EQU SDWACMPF 03201000 FRRSPARM EQU FRRSENTR+8 03202000 @NM00049 EQU FRRSFLGS+1 03203000 @NM00048 EQU FRRSFLG1 03204000 FRRSNEST EQU FRRSFLG1 03205000 FRRSRCUR EQU FRRSFLG1 03206000 FRRSFRRA EQU FRRSENTR 03207000 FRRSENTS EQU FRRS+84 03208000 FRRSRTMW EQU FRRS+16 03209000 FRRSELEN EQU FRRSHEAD+8 03210000 FRRSLAST EQU FRRSHEAD+4 03211000 FRRSEMP EQU FRRSHEAD 03212000 MCQESRB EQU MCQE+44 03213000 @NM00047 EQU MCQE+42 03214000 @NM00046 EQU MCQEFLGS 03215000 MCQEACT EQU MCQEFLGS 03216000 MCQESCHE EQU MCQE+40 03217000 MCQETECB EQU MCQE+36 03218000 MCQEMCCL EQU MCQE+28 03219000 MCQEMCEE EQU MCQE+24 03220000 MCQEMCQE EQU MCQE+20 03221000 MCQENAME EQU MCQE+8 03222000 MCQEIDEN EQU MCQE 03223000 WSACRSM EQU WSAC+64 03224000 WSACASMS EQU WSAC+60 03225000 WSACASMD EQU WSAC+56 03226000 WSACCCH EQU WSAC+52 03227000 WSACRRSA EQU WSAC+48 03228000 WSACREST EQU WSAC+44 03229000 WSACRSTI EQU WSAC+40 03230000 WSACABTM EQU WSAC+36 03231000 WSACMF1 EQU WSAC+32 03232000 WSACIOS EQU WSAC+24 03233000 WSACRTMK EQU WSAC+20 03234000 WSACACR EQU WSAC+16 03235000 WSACTIME EQU WSAC+12 03236000 WSACOPTM EQU WSAC+8 03237000 WSACCWSA EQU WSAC 03238000 WSAGSCHE EQU WSAG+40 03239000 WSAGREST EQU WSAG+36 03240000 WSAGNQDQ EQU WSAG+32 03241000 WSAGMEMT EQU WSAG+28 03242000 WSAGOPTM EQU WSAG+24 03243000 WSAGSTAT EQU WSAG+20 03244000 WSAGEMS0 EQU WSAG+16 03245000 WSAGSSRS EQU WSAG+12 03246000 WSAGRSM EQU WSAG+8 03247000 WSAGGMFM EQU WSAG+4 03248000 WSAGPGIO EQU WSAG 03249000 @NM00045 EQU IHSA+720 03250000 IHSAFRRS EQU IHSA+132 03251000 IHSAFRRL EQU IHSA+128 03252000 IHSARESV EQU IHSA+120 03253000 IHSAFPR6 EQU IHSAFPRS+24 03254000 IHSAFPR4 EQU IHSAFPRS+16 03255000 IHSAFPR2 EQU IHSAFPRS+8 03256000 IHSAFPR0 EQU IHSAFPRS 03257000 IHSACPSW EQU IHSA+16 03258000 IHSAOTCB EQU IHSA+12 03259000 IHSANTCB EQU IHSA+8 03260000 IHSACPUT EQU IHSA 03261000 @NM00044 EQU TCBXTNT2+32 03262000 TCBRV181 EQU TCBRV173 03263000 TCBRV180 EQU TCBRV173 03264000 TCBRV179 EQU TCBRV173 03265000 TCBRV178 EQU TCBRV173 03266000 TCBRV177 EQU TCBRV173 03267000 TCBRV176 EQU TCBRV173 03268000 TCBRV175 EQU TCBRV173 03269000 TCBRV174 EQU TCBRV173 03270000 TCBRV172 EQU TCBRV164 03271000 TCBRV171 EQU TCBRV164 03272000 TCBRV170 EQU TCBRV164 03273000 TCBRV169 EQU TCBRV164 03274000 TCBRV168 EQU TCBRV164 03275000 TCBRV167 EQU TCBRV164 03276000 TCBRV166 EQU TCBRV164 03277000 TCBRV165 EQU TCBRV164 03278000 TCBRV163 EQU TCBRV155 03279000 TCBRV162 EQU TCBRV155 03280000 TCBRV161 EQU TCBRV155 03281000 TCBRV160 EQU TCBRV155 03282000 TCBRV159 EQU TCBRV155 03283000 TCBRV158 EQU TCBRV155 03284000 TCBRV157 EQU TCBRV155 03285000 TCBRV156 EQU TCBRV155 03286000 TCBRV154 EQU TCBRV146 03287000 TCBRV153 EQU TCBRV146 03288000 TCBRV152 EQU TCBRV146 03289000 TCBRV151 EQU TCBRV146 03290000 TCBRV150 EQU TCBRV146 03291000 TCBRV149 EQU TCBRV146 03292000 TCBRV148 EQU TCBRV146 03293000 TCBRV147 EQU TCBRV146 03294000 TCBRV145 EQU TCBXTNT2+26 03295000 TCBRV144 EQU TCBXTNT2+24 03296000 TCBRV143 EQU TCBXTNT2+20 03297000 TCBTQE EQU TCBXTNT2+16 03298000 TCBRSV49 EQU TCBXTNT2+12 03299000 TCBEVENT EQU TCBXTNT2+8 03300000 TCBRCMP EQU TCBXTNT2+5 03301000 TCBRSVAB EQU TCBXTNT2+4 03302000 TCBGTFA EQU TCBGTF+1 03303000 TCBRSV47 EQU TCBTFLG 03304000 TCBRSV46 EQU TCBTFLG 03305000 TCBRSV45 EQU TCBTFLG 03306000 TCBRSV44 EQU TCBTFLG 03307000 TCBRSV43 EQU TCBTFLG 03308000 TCBDSPIT EQU TCBTFLG 03309000 TCBERRTN EQU TCBTFLG 03310000 TCBASYNC EQU TCBTFLG 03311000 @NM00043 EQU TCB+296 03312000 TCBSVCA2 EQU TCB+292 03313000 TCBSWASA EQU TCB+288 03314000 TCBDBTB EQU TCB+284 03315000 TCBRPT EQU TCB+280 03316000 TCBRV141 EQU TCBRV133 03317000 TCBRV140 EQU TCBRV133 03318000 TCBRV139 EQU TCBRV133 03319000 TCBRV138 EQU TCBRV133 03320000 TCBRV137 EQU TCBRV133 03321000 TCBRV136 EQU TCBRV133 03322000 TCBRV135 EQU TCBRV133 03323000 TCBRV134 EQU TCBRV133 03324000 TCBRV132 EQU TCBRV124 03325000 TCBRV131 EQU TCBRV124 03326000 TCBRV130 EQU TCBRV124 03327000 TCBRV129 EQU TCBRV124 03328000 TCBRV128 EQU TCBRV124 03329000 TCBRV127 EQU TCBRV124 03330000 TCBRV126 EQU TCBRV124 03331000 TCBRV125 EQU TCBRV124 03332000 TCBRV123 EQU TCBFBYT2 03333000 TCBRV122 EQU TCBFBYT2 03334000 TCBECBNV EQU TCBFBYT2 03335000 TCBSSSYN EQU TCBFBYT2 03336000 TCBFPRAP EQU TCBFBYT2 03337000 TCBFDW EQU TCBFBYT2 03338000 TCBFMW EQU TCBFBYT2 03339000 TCBCNCB EQU TCBFBYT2 03340000 TCBLLH EQU TCBFBYT1 03341000 TCBRV113 EQU TCBFBYT1 03342000 TCBEOT EQU TCBFBYT1 03343000 TCBRTM2 EQU TCBFBYT1 03344000 TCBPGNLY EQU TCBFBYT1 03345000 TCBNDIOS EQU TCBFBYT1 03346000 TCBRV327 EQU TCBFBYT1 03347000 TCBEOTFM EQU TCBFBYT1 03348000 TCBAFFN EQU TCB+274 03349000 TCBSEQNO EQU TCB+272 03350000 TCBUKYSP EQU TCB+268 03351000 TCBMODE EQU TCBESTAE+3 03352000 TCBERTYP EQU TCBESTAE+2 03353000 TCBRV314 EQU TCBESTRM 03354000 TCBRV313 EQU TCBESTRM 03355000 TCBRV312 EQU TCBESTRM 03356000 TCBRV311 EQU TCBESTRM 03357000 TCBRV310 EQU TCBESTRM 03358000 TCBRV309 EQU TCBESTRM 03359000 TCBRV308 EQU TCBESTRM 03360000 TCBETERM EQU TCBESTRM 03361000 TCBSCBKY EQU TCBESTAE 03362000 TCBRTM12 EQU TCB+260 03363000 TCBTCBID EQU TCB+256 03364000 TCBSTAWA EQU TCB+252 03365000 TCBSWA EQU TCB+248 03366000 TCBFOEA EQU TCBFOE+1 03367000 TCBRSV42 EQU TCBFOE 03368000 TCBCCPVI EQU TCBXSCT+2 03369000 TCBRV325 EQU TCBXSCT+1 03370000 TCBRV324 EQU TCBXSCT1 03371000 TCBRV323 EQU TCBXSCT1 03372000 TCBRV322 EQU TCBXSCT1 03373000 TCBRV321 EQU TCBXSCT1 03374000 TCBRV320 EQU TCBXSCT1 03375000 TCBLLREQ EQU TCBXSCT1 03376000 TCBS3A EQU TCBXSCT1 03377000 TCBACTIV EQU TCBXSCT1 03378000 TCBRSV41 EQU TCB+239 03379000 TCBTID EQU TCB+238 03380000 TCBRSVAA EQU TCB+237 03381000 TCBABCUR EQU TCB+236 03382000 TCBTMSAV EQU TCB+232 03383000 TCBIOTIM EQU TCB+228 03384000 TCBRTWA EQU TCB+224 03385000 TCBBACK EQU TCB+220 03386000 TCBTIRB EQU TCB+216 03387000 TCBAECB EQU TCB+212 03388000 TCBEXT2A EQU TCBEXT2+1 03389000 TCBRSV39 EQU TCBEXT2 03390000 TCBSTMCT EQU TCB+207 03391000 TCBSYSCT EQU TCB+206 03392000 TCBRSV37 EQU TCB+205 03393000 TCBEXSVC EQU TCBDAR 03394000 TCBDARMS EQU TCBDAR 03395000 TCBDARWT EQU TCBDAR 03396000 TCBDARO EQU TCBDAR 03397000 TCBDARMC EQU TCBDARC 03398000 TCBDARD EQU TCBDAR 03399000 TCBDARS EQU TCBDAR 03400000 TCBDARP EQU TCBDAR 03401000 TCBGTOFM EQU TCBFLGS7 03402000 TCBADMP EQU TCBFLGS7 03403000 TCBRSTSK EQU TCBFLGS7 03404000 TCBSVCS EQU TCBFLGS7 03405000 TCBSTACK EQU TCBFLGS7 03406000 TCBRSV34 EQU TCBFLGS7 03407000 TCBRSV33 EQU TCBFLGS7 03408000 TCBGPECB EQU TCBFLGS7 03409000 TCBNTJS EQU TCBFLGS6 03410000 TCBAPG EQU TCBFLGS6 03411000 TCBMIGR EQU TCBFLGS6 03412000 TCBRV303 EQU TCBFLGS6 03413000 TCBSPVLK EQU TCBFLGS6 03414000 TCBCPU EQU TCBFLGS6 03415000 TCBPIE17 EQU TCBFLGS6 03416000 TCBRV EQU TCBFLGS6 03417000 TCBRSV79 EQU TCBNDSP5 03418000 TCBRSV78 EQU TCBNDSP5 03419000 TCBRSV77 EQU TCBNDSP5 03420000 TCBRSV76 EQU TCBNDSP5 03421000 TCBRSV75 EQU TCBNDSP5 03422000 TCBRSV74 EQU TCBNDSP5 03423000 TCBRSV95 EQU TCBNDSP5 03424000 TCBRSV94 EQU TCBNDSP5 03425000 TCBRSV93 EQU TCBNDSP4 03426000 TCBRSV92 EQU TCBNDSP4 03427000 TCBRSV91 EQU TCBNDSP4 03428000 TCBRSV90 EQU TCBNDSP4 03429000 TCBRSV89 EQU TCBNDSP4 03430000 TCBRSV88 EQU TCBNDSP4 03431000 TCBRSV87 EQU TCBNDSP4 03432000 TCBRSV86 EQU TCBNDSP4 03433000 TCBEXT1A EQU TCBEXT1+1 03434000 TCBRSV32 EQU TCBEXT1 03435000 TCBEXCPD EQU TCB+192 03436000 TCBIOBRC EQU TCB+188 03437000 TCBDDWTC EQU TCB+186 03438000 TCBDDEXC EQU TCB+184 03439000 TCBJSCBB EQU TCBJSCB+1 03440000 @NM00042 EQU TCBRECDE 03441000 TCBREC EQU TCBRECDE 03442000 TCBMDIDS EQU TCB+176 03443000 TCBNDINT EQU TCBNDSP3 03444000 TCBRSV27 EQU TCBNDSP3 03445000 TCBRSV26 EQU TCBNDSP3 03446000 TCBRSV25 EQU TCBNDSP3 03447000 TCBRSV24 EQU TCBNDSP3 03448000 TCBSRBND EQU TCBNDSP3 03449000 TCBRV302 EQU TCBNDSP3 03450000 TCBLJSND EQU TCBNDSP3 03451000 TCBABE EQU TCBNDSP2 03452000 TCBDSS EQU TCBNDSP2 03453000 TCBOWAIT EQU TCBNDSP2 03454000 TCBIWAIT EQU TCBNDSP2 03455000 TCBNDTS EQU TCBNDSP2 03456000 TCBNDSVC EQU TCBNDSP2 03457000 TCBSTPP EQU TCBNDSP2 03458000 TCBABD EQU TCBNDSP2 03459000 TCBABTIN EQU TCBNDSP1 03460000 TCBPIEND EQU TCBNDSP1 03461000 TCBTPSP EQU TCBNDSP1 03462000 TCBDDRND EQU TCBNDSP1 03463000 TCBRSPND EQU TCBNDSP1 03464000 TCBRSTND EQU TCBNDSP1 03465000 TCBDARPN EQU TCBNDSP1 03466000 TCBDARTN EQU TCBNDSP1 03467000 TCBNDSP0 EQU TCBNDSP 03468000 TCBUSER EQU TCB+168 03469000 TCBTCTB EQU TCBTCT+1 03470000 TCBRSV9C EQU TCBTCTGF 03471000 TCBRSV9B EQU TCBTCTGF 03472000 TCBRSV9A EQU TCBTCTGF 03473000 TCBRSV99 EQU TCBTCTGF 03474000 TCBRSV98 EQU TCBTCTGF 03475000 TCBRSV97 EQU TCBTCTGF 03476000 TCBRSV20 EQU TCBTCTGF 03477000 TCBSMFGF EQU TCBTCTGF 03478000 TCBSTABB EQU TCBSTAB+1 03479000 TCBSTCUR EQU TCBNSTAE 03480000 TCBRV301 EQU TCBNSTAE 03481000 TCBSYNCH EQU TCBNSTAE 03482000 TCBHALT EQU TCBNSTAE 03483000 TCBPPSUP EQU TCBNSTAE 03484000 TCB33E EQU TCBNSTAE 03485000 TCBQUIES EQU TCBNSTAE 03486000 TCBSTABE EQU TCBNSTAE 03487000 TCBAQE EQU TCB+156 03488000 TCBPQE EQU TCB+152 03489000 TCBTSDP EQU TCB+151 03490000 TCBTSLP EQU TCB+150 03491000 TCBSTPCT EQU TCB+149 03492000 TCBCPUBN EQU TCBTSFLG 03493000 TCBDYDSP EQU TCBTSFLG 03494000 TCBRSV18 EQU TCBTSFLG 03495000 TCBRSV17 EQU TCBTSFLG 03496000 TCBTIOTG EQU TCBTSFLG 03497000 TCBATT EQU TCBTSFLG 03498000 TCBSTPPR EQU TCBTSFLG 03499000 TCBRV300 EQU TCBTSTSK 03500000 TCBECB EQU TCB+144 03501000 TCBIQE EQU TCB+140 03502000 TCBLTC EQU TCB+136 03503000 TCBOTC EQU TCB+132 03504000 TCBNTC EQU TCB+128 03505000 TCBJSTCA EQU TCBJSTCB+1 03506000 TCBRSV16 EQU TCBJSTCB 03507000 TCBTQET EQU TCBTME 03508000 TCBTCB EQU TCB+116 03509000 TCBFSAB EQU TCBFSA+1 03510000 TCBQEL EQU TCBFSA 03511000 TCBGRS14 EQU TCBGRS+56 03512000 TCBGRS13 EQU TCBGRS+52 03513000 TCBGRS12 EQU TCBGRS+48 03514000 TCBGRS11 EQU TCBGRS+44 03515000 TCBGRS10 EQU TCBGRS+40 03516000 TCBGRS9 EQU TCBGRS+36 03517000 TCBGRS8 EQU TCBGRS+32 03518000 TCBGRS7 EQU TCBGRS+28 03519000 TCBGRS6 EQU TCBGRS+24 03520000 TCBGRS5 EQU TCBGRS+20 03521000 TCBGRS4 EQU TCBGRS+16 03522000 TCBGRS3 EQU TCBGRS+12 03523000 TCBGRS2 EQU TCBGRS+8 03524000 TCBGRS1 EQU TCBGRS+4 03525000 TCBGRS0 EQU TCBGRS 03526000 TCBJPQB EQU TCBJPQ+1 03527000 TCBRSV15 EQU TCBPURGE 03528000 TCBRSV14 EQU TCBPURGE 03529000 TCBRSV13 EQU TCBPURGE 03530000 TCBRSV12 EQU TCBPURGE 03531000 TCBRSV11 EQU TCBPURGE 03532000 TCBRSV10 EQU TCBPURGE 03533000 TCBRSV09 EQU TCBPURGE 03534000 TCBJPQF EQU TCBPURGE 03535000 TCBJLB EQU TCB+40 03536000 TCBLLS EQU TCB+36 03537000 TCBDSP EQU TCB+35 03538000 TCBLMP EQU TCB+34 03539000 TCBPNDSP EQU TCBFLGS5 03540000 TCBFCD1 EQU TCBFLGS5 03541000 TCBSTP EQU TCBFLGS5 03542000 TCBSYS EQU TCBFLGS5 03543000 TCBANDSP EQU TCBFLGS5 03544000 TCBPAGE EQU TCBFLGS5 03545000 TCBUXNDF EQU TCBABWF 03546000 TCBFC EQU TCBFLGS5 03547000 TCBONDSP EQU TCBFLGS4 03548000 TCBRV328 EQU TCBFLGS4 03549000 TCBRBWF EQU TCBFLGS4 03550000 TCBUXNDV EQU TCBFLGS4 03551000 TCBHNDSP EQU TCBFLGS4 03552000 TCBRQENA EQU TCBFLGS4 03553000 TCBSER EQU TCBFLGS4 03554000 TCBNDUMP EQU TCBFLGS4 03555000 TCBDWSTA EQU TCBFLGS3 03556000 TCBRSV08 EQU TCBFLGS3 03557000 TCBRSV07 EQU TCBFLGS3 03558000 TCBRSV06 EQU TCBFLGS3 03559000 TCBABGM EQU TCBFLGS3 03560000 TCBABTRM EQU TCBFLGS3 03561000 TCBADINP EQU TCBFLGS3 03562000 TCBFSM EQU TCBFLGS3 03563000 TCBFTS EQU TCBFLGS2 03564000 TCBFETXR EQU TCBFLGS2 03565000 TCBFDSOP EQU TCBFLGS2 03566000 TCBFJMC EQU TCBFLGS2 03567000 TCBFSMC EQU TCBFLGS2 03568000 TCBFABOP EQU TCBFLGS2 03569000 TCBFSTI EQU TCBFLGS2 03570000 TCBFOINP EQU TCBFLGS2 03571000 TCBFX EQU TCBFLGS1 03572000 TCBFS EQU TCBFLGS1 03573000 TCBFT EQU TCBFLGS1 03574000 TCBPDUMP EQU TCBFLGS1 03575000 TCBNONPR EQU TCBFLGS1 03576000 TCBFERA EQU TCBFLGS1 03577000 TCBFE EQU TCBFLGS1 03578000 TCBFA EQU TCBFLGS1 03579000 TCBZERO EQU TCBPKF 03580000 TCBFLAG EQU TCBPKF 03581000 TCBMSSB EQU TCBMSS+1 03582000 TCBRSV03 EQU TCBMSS 03583000 TCBTRNB EQU TCBTRN+1 03584000 TCBRSV02 EQU TCBABF 03585000 TCBOLTEP EQU TCBABF 03586000 TCBTCP EQU TCBABF 03587000 TCBTCPP EQU TCBABF 03588000 TCBRSV01 EQU TCBABF 03589000 TCBGRPH EQU TCBABF 03590000 TCBNOCHK EQU TCBABF 03591000 TCBMOD91 EQU TCBABF 03592000 TCBCMPC EQU TCBCMP+1 03593000 TCBRV318 EQU TCBCMSG 03594000 TCBRV317 EQU TCBCIND 03595000 TCBRV316 EQU TCBCWTO 03596000 TCBCASID EQU TCBCDBL 03597000 TCBNOCC EQU TCBSTCC 03598000 TCBDMPO EQU TCBCPP 03599000 TCBCSTEP EQU TCBCMPF 03600000 TCBCREQ EQU TCBCMPF 03601000 TCBTIO EQU TCB+12 03602000 TCBDEB EQU TCB+8 03603000 TCBPIEA EQU TCBPIE+1 03604000 TCBPM EQU TCBPMASK 03605000 @NM00041 EQU TCBPMASK 03606000 TCBRBP EQU TCB 03607000 TCBFRS6 EQU TCBFRS+24 03608000 TCBFRS4 EQU TCBFRS+16 03609000 TCBFRS2 EQU TCBFRS+8 03610000 TCBFRS0 EQU TCBFRS 03611000 ASXBEND EQU ASXB+232 03612000 ASXBRV25 EQU ASXB+228 03613000 ASXBRV24 EQU ASXB+224 03614000 ASXBPT0E EQU ASXB+220 03615000 ASXBCRB4 EQU ASXBCASW+3 03616000 ASXBCRB3 EQU ASXBCASW+2 03617000 ASXBCRB2 EQU ASXBCASW+1 03618000 ASXBCR06 EQU ASXBCRB1 03619000 ASXBCR05 EQU ASXBCRB1 03620000 ASXBCR04 EQU ASXBCRB1 03621000 ASXBCR03 EQU ASXBCRB1 03622000 ASXBCR02 EQU ASXBCRB1 03623000 ASXBCR01 EQU ASXBCRB1 03624000 ASXBTFD EQU ASXBCRB1 03625000 ASXBPIP EQU ASXBCRB1 03626000 ASXBCTDC EQU ASXB+212 03627000 ASXBTDCB EQU ASXB+208 03628000 ASXBRV19 EQU ASXB+204 03629000 ASXBSENV EQU ASXBSECR+1 03630000 ASXBRV34 EQU ASCBSFLG 03631000 ASXBRV33 EQU ASCBSFLG 03632000 ASXBRV32 EQU ASCBSFLG 03633000 ASXBRV31 EQU ASCBSFLG 03634000 ASXBRV30 EQU ASCBSFLG 03635000 ASXBRV29 EQU ASCBSFLG 03636000 ASXBRV28 EQU ASCBSFLG 03637000 ASXBRV27 EQU ASCBSFLG 03638000 ASXBUSER EQU ASXB+192 03639000 ASXBLSRB EQU ASXBAEQ+20 03640000 ASXBFSRB EQU ASXBAEQ+16 03641000 ASXBLRQE EQU ASXBAEQ+12 03642000 ASXBFRQE EQU ASXBAEQ+8 03643000 ASXBLIQE EQU ASXBAEQ+4 03644000 ASXBFIQE EQU ASXBAEQ 03645000 ASXBETSK EQU ASXB+164 03646000 ASXBSIRB EQU ASXB+160 03647000 ASXBPSWD EQU ASXB+152 03648000 ASXBPRG EQU ASXB+136 03649000 ASXBRV26 EQU ASXB+132 03650000 ASXBOUSB EQU ASXB+128 03651000 ASXBDDR EQU ASXB+124 03652000 ASXBRCTD EQU ASXB+120 03653000 ASXBRSMD EQU ASXB+116 03654000 ASXBSPSA EQU ASXB+112 03655000 ASXBFRWA EQU ASXB+108 03656000 ASXBFLSA EQU ASXB+36 03657000 ASXBRV15 EQU ASXB+28 03658000 ASXBRV14 EQU ASXB+24 03659000 ASXBLWA EQU ASXB+20 03660000 ASXBMPST EQU ASXB+16 03661000 ASXBRS00 EQU ASXB+14 03662000 ASXBTCBS EQU ASXB+12 03663000 ASXBLTCB EQU ASXB+8 03664000 ASXBFTCB EQU ASXB+4 03665000 ASXBASXB EQU ASXB 03666000 ASXBEGIN EQU ASXB 03667000 @NM00008 EQU PCCA+512 03668000 PCCACAT EQU PCCA+384 03669000 PCCARV36 EQU PCCA+380 03670000 PCCARV35 EQU PCCA+378 03671000 PCCARV01 EQU PCCA+377 03672000 PCCAR105 EQU PCCAATTR 03673000 PCCAR104 EQU PCCAATTR 03674000 PCCAR103 EQU PCCAATTR 03675000 PCCAR102 EQU PCCAATTR 03676000 PCCAR101 EQU PCCAATTR 03677000 PCCAR100 EQU PCCAATTR 03678000 PCCAIO EQU PCCAATTR 03679000 PCCACPUM EQU PCCAATTR 03680000 PCCARV63 EQU PCCA+372 03681000 PCCARV62 EQU PCCA+368 03682000 PCCARV61 EQU PCCA+364 03683000 PCCARV60 EQU PCCA+360 03684000 PCCARV59 EQU PCCA+356 03685000 PCCARV58 EQU PCCA+352 03686000 PCCARV57 EQU PCCA+348 03687000 PCCARV56 EQU PCCA+344 03688000 PCCARV55 EQU PCCA+340 03689000 PCCARV54 EQU PCCA+336 03690000 PCCALOGA EQU PCCA+332 03691000 PCCACHID EQU PCCA+324 03692000 PCCACHSV EQU PCCA+312 03693000 PCCARV79 EQU PCCACHF4 03694000 PCCARV78 EQU PCCACHF4 03695000 PCCARV77 EQU PCCACHF4 03696000 PCCARV76 EQU PCCACHF4 03697000 PCCARV75 EQU PCCACHF4 03698000 PCCARV74 EQU PCCACHF4 03699000 PCCARV73 EQU PCCACHF4 03700000 PCCARV72 EQU PCCACHF4 03701000 PCCARV71 EQU PCCACHF3 03702000 PCCARV70 EQU PCCACHF3 03703000 PCCARV69 EQU PCCACHF3 03704000 PCCARV68 EQU PCCACHF3 03705000 PCCARV67 EQU PCCACHF3 03706000 PCCARV66 EQU PCCACHF3 03707000 PCCASLCK EQU PCCACHF3 03708000 PCCAISRB EQU PCCACHF3 03709000 PCCACF28 EQU PCCACHF2 03710000 PCCACF27 EQU PCCACHF2 03711000 PCCACF26 EQU PCCACHF2 03712000 PCCACF25 EQU PCCACHF2 03713000 PCCACF24 EQU PCCACHF2 03714000 PCCACF23 EQU PCCACHF2 03715000 PCCACF22 EQU PCCACHF2 03716000 PCCACF21 EQU PCCACHF2 03717000 PCCACF18 EQU PCCACHF1 03718000 PCCACF17 EQU PCCACHF1 03719000 PCCACF16 EQU PCCACHF1 03720000 PCCACF15 EQU PCCACHF1 03721000 PCCACF14 EQU PCCACHF1 03722000 PCCACF13 EQU PCCACHF1 03723000 PCCACF12 EQU PCCACHF1 03724000 PCCACF11 EQU PCCACHF1 03725000 PCCARV05 EQU PCCA+307 03726000 PCCACHPB EQU PCCA+306 03727000 PCCALGP2 EQU PCCA+305 03728000 PCCALGP1 EQU PCCA+304 03729000 PCCACELL EQU PCCA+302 03730000 PCCALOGL EQU PCCA+300 03731000 PCCACHW2 EQU PCCA+296 03732000 PCCACHW1 EQU PCCA+292 03733000 PCCAIOSI EQU PCCA+291 03734000 PCCACNRB EQU PCCACHRB 03735000 PCCACCVB EQU PCCACHRB 03736000 PCCACSNB EQU PCCACHRB 03737000 PCCARV52 EQU PCCACHRB 03738000 PCCACHIB EQU PCCACHRB 03739000 PCCACTIB EQU PCCACHRB 03740000 PCCACINB EQU PCCACHRB 03741000 PCCACSIB EQU PCCACHRB 03742000 PCCARV51 EQU PCCACHS2 03743000 PCCARV50 EQU PCCACHS2 03744000 PCCACCRA EQU PCCACHS2 03745000 PCCACURC EQU PCCACHS2 03746000 PCCACNLG EQU PCCACHS2 03747000 PCCACMOD EQU PCCACHS2 03748000 PCCACALT EQU PCCACHS2 03749000 PCCACIOR EQU PCCACHS2 03750000 PCCARV47 EQU PCCACHS1 03751000 PCCACUCB EQU PCCACHS1 03752000 PCCACIBC EQU PCCACHS1 03753000 PCCACAND EQU PCCACHS1 03754000 PCCACNLS EQU PCCACHS1 03755000 PCCACFRR EQU PCCACHS1 03756000 PCCACNRE EQU PCCACHS1 03757000 PCCACCMP EQU PCCACHS1 03758000 PCCACSEQ EQU PCCACHTS 03759000 PCCACDIN EQU PCCACHTS 03760000 PCCARV44 EQU PCCACHTS 03761000 PCCARV43 EQU PCCACHTS 03762000 PCCACTEC EQU PCCACHTS 03763000 PCCACDAV EQU PCCACHVA 03764000 PCCACCHV EQU PCCACHVA 03765000 PCCACCMD EQU PCCACHVA 03766000 PCCACUNS EQU PCCACHVA 03767000 PCCACSQV EQU PCCACHVA 03768000 PCCARV42 EQU PCCACHVA 03769000 PCCARV41 EQU PCCACHVA 03770000 PCCACITF EQU PCCACHVA 03771000 PCCARV40 EQU PCCACHBL 03772000 PCCARV39 EQU PCCACHBL 03773000 PCCARV38 EQU PCCACHBL 03774000 PCCACCUE EQU PCCACHBL 03775000 PCCACSTG EQU PCCACHBL 03776000 PCCACSCU EQU PCCACHBL 03777000 PCCACCHA EQU PCCACHBL 03778000 PCCACCPU EQU PCCACHBL 03779000 PCCACNOR EQU PCCACHPF 03780000 PCCACCNT EQU PCCACHPF 03781000 PCCACSNS EQU PCCACHPF 03782000 PCCARV37 EQU PCCACHPF 03783000 PCCACHIO EQU PCCACHPF 03784000 PCCACTIO EQU PCCACHPF 03785000 PCCACINT EQU PCCACHPF 03786000 PCCACSIO EQU PCCACHPF 03787000 PCCACHUB EQU PCCAWERP 03788000 PCCAR106 EQU PCCA+228 03789000 PCCAR113 EQU PCCA+226 03790000 PCCASRBL EQU PCCA+225 03791000 PCCAR112 EQU PCCACHAN 03792000 PCCAR111 EQU PCCACHAN 03793000 PCCAR110 EQU PCCACHAN 03794000 PCCAR109 EQU PCCACHAN 03795000 PCCAR108 EQU PCCACHAN 03796000 PCCAR107 EQU PCCACHAN 03797000 PCCAEXDM EQU PCCACHAN 03798000 PCCAIRST EQU PCCACHAN 03799000 PCCASRB EQU PCCA+180 03800000 PCCACCHM EQU PCCA+176 03801000 PCCAELBA EQU PCCA+172 03802000 PCCAELAD EQU PCCA+168 03803000 PCCALRBR EQU PCCA+164 03804000 PCCALRBV EQU PCCA+160 03805000 PCCAPWAR EQU PCCA+156 03806000 PCCAPWAV EQU PCCA+152 03807000 PCCAEMSA EQU PCCAEMSB+12 03808000 PCCAEMSE EQU PCCAEMSB+8 03809000 PCCAEMSP EQU PCCAEMSB+4 03810000 PCCARMS EQU PCCARMSB 03811000 PCCARV34 EQU PCCARMSB 03812000 PCCARV33 EQU PCCARMSB 03813000 PCCARV32 EQU PCCARMSB 03814000 PCCARV31 EQU PCCARMSB 03815000 PCCARV30 EQU PCCARMSB 03816000 PCCARV29 EQU PCCARMSB 03817000 PCCARV28 EQU PCCARMSB 03818000 PCCARV27 EQU PCCAEMS3 03819000 PCCARV26 EQU PCCAEMS3 03820000 PCCARV25 EQU PCCAEMS3 03821000 PCCARV24 EQU PCCAEMS3 03822000 PCCARV23 EQU PCCAEMS3 03823000 PCCARV22 EQU PCCAEMS3 03824000 PCCARV21 EQU PCCAEMS3 03825000 PCCARV20 EQU PCCAEMS3 03826000 PCCARV19 EQU PCCAEMS2 03827000 PCCARV18 EQU PCCAEMS2 03828000 PCCARV17 EQU PCCAEMS2 03829000 PCCARV16 EQU PCCAEMS2 03830000 PCCARV15 EQU PCCAEMS2 03831000 PCCARV14 EQU PCCAEMS2 03832000 PCCARV13 EQU PCCAEMS2 03833000 PCCARV12 EQU PCCAEMS2 03834000 PCCARV11 EQU PCCARISP 03835000 PCCARV10 EQU PCCARISP 03836000 PCCARV09 EQU PCCARISP 03837000 PCCARV08 EQU PCCARISP 03838000 PCCARV07 EQU PCCARISP 03839000 PCCARV06 EQU PCCARISP 03840000 PCCASERL EQU PCCARISP 03841000 PCCAPARL EQU PCCARISP 03842000 PCCARPB EQU PCCA+132 03843000 PCCACTIN EQU PCCAINTE 03844000 PCCANFIN EQU PCCAINTE 03845000 PCCANUIN EQU PCCAINTE 03846000 PCCACTCC EQU PCCACCE 03847000 PCCANFCC EQU PCCACCE 03848000 PCCANUCC EQU PCCACCE 03849000 PCCACTTD EQU PCCATODE 03850000 PCCANFTD EQU PCCATODE 03851000 PCCANUTD EQU PCCATODE 03852000 PCCARV04 EQU PCCATMFL 03853000 PCCARV03 EQU PCCATMFL 03854000 PCCARV02 EQU PCCATMFL 03855000 PCCAMINT EQU PCCATMFL 03856000 PCCAMCC EQU PCCATMFL 03857000 PCCAVKIL EQU PCCATMFL 03858000 PCCASYNC EQU PCCATMFL 03859000 PCCAINIT EQU PCCATMFL 03860000 PCCARV9E EQU PCCA+124 03861000 PCCARV9D EQU PCCA+120 03862000 PCCARV9C EQU PCCA+116 03863000 PCCARV9B EQU PCCA+112 03864000 PCCARV9A EQU PCCA+108 03865000 PCCARV99 EQU PCCA+104 03866000 PCCARV98 EQU PCCA+100 03867000 PCCARV97 EQU PCCA+96 03868000 PCCARV96 EQU PCCA+92 03869000 PCCARV95 EQU PCCA+88 03870000 PCCARV94 EQU PCCA+84 03871000 PCCARV93 EQU PCCA+80 03872000 PCCARV92 EQU PCCA+76 03873000 PCCARV91 EQU PCCA+72 03874000 PCCARV90 EQU PCCA+68 03875000 PCCARV89 EQU PCCA+64 03876000 PCCARV88 EQU PCCA+60 03877000 PCCARV87 EQU PCCA+56 03878000 PCCARV86 EQU PCCA+52 03879000 PCCARV85 EQU PCCA+48 03880000 PCCARV84 EQU PCCA+44 03881000 PCCARV83 EQU PCCA+40 03882000 PCCARV82 EQU PCCA+36 03883000 PCCARV81 EQU PCCA+32 03884000 PCCAPSAR EQU PCCA+28 03885000 PCCAPSAV EQU PCCA+24 03886000 PCCATQEP EQU PCCA+20 03887000 PCCACAFM EQU PCCA+18 03888000 PCCACPUA EQU PCCA+16 03889000 PCCACPID EQU PCCA+4 03890000 PCCAPCCA EQU PCCA 03891000 MCHEADTR EQU MCHEAD+48 03892000 MCHEADRD EQU MCHEAD+44 03893000 MCHFRRAD EQU MCHEAD+40 03894000 MCHMCER EQU MCHEAD+36 03895000 @NM00007 EQU MCHFLGS+1 03896000 @NM00006 EQU MCHFLG1 03897000 MCHTERM EQU MCHFLG1 03898000 MCHACT EQU MCHFLG1 03899000 MCHDIS EQU MCHEAD+20 03900000 MCHCTL EQU MCHEAD+16 03901000 MCHCNT EQU MCHEAD+12 03902000 MCHCUR EQU MCHEAD+8 03903000 MCHIDEN EQU MCHEAD 03904000 ASCBEND EQU ASCB+240 03905000 ASCBRV50 EQU ASCB+236 03906000 ASCBRV49 EQU ASCB+232 03907000 ASCBIODP EQU ASCBSRDP+3 03908000 ASCBNTSG EQU ASCBSRDP+2 03909000 ASCBTNDP EQU ASCBSRDP+1 03910000 ASCBNDP EQU ASCBSRDP 03911000 ASCBWPRB EQU ASCB+224 03912000 ASCBTCBL EQU ASCBTCBG+4 03913000 ASCBTCBS EQU ASCBTCBG 03914000 ASCBLSPL EQU ASCBLSRB+4 03915000 ASCBURR EQU ASCBLSMQ 03916000 ASCBSRBT EQU ASCB+200 03917000 ASCBSWTL EQU ASCB+196 03918000 ASCBRS14 EQU ASCB+195 03919000 ASCBSMCT EQU ASCB+194 03920000 ASCBSSRB EQU ASCB+192 03921000 ASCBPCTT EQU ASCB+188 03922000 ASCBVGTT EQU ASCB+184 03923000 ASCBPURD EQU ASCBSRQ4 03924000 ASCBSTAT EQU ASCBSRQ4 03925000 ASCBCHAP EQU ASCBSRQ4 03926000 ASCBRTM1 EQU ASCBSRQ4 03927000 ASCBRTM2 EQU ASCBSRQ4 03928000 ASCBATTA EQU ASCBSRQ4 03929000 ASCBDETA EQU ASCBSRQ4 03930000 ASCBDSG1 EQU ASCBSRQ4 03931000 ASCBCBVE EQU ASCBSRQ3 03932000 ASCBMINI EQU ASCBSRQ3 03933000 ASCBMTER EQU ASCBSRQ3 03934000 ASCBEXEF EQU ASCBSRQ3 03935000 ASCBACHA EQU ASCBSRQ3 03936000 ASCBTCBV EQU ASCBSRQ3 03937000 ASCBREST EQU ASCBSRQ3 03938000 ASCBDSG2 EQU ASCBSRQ3 03939000 ASCBQVER EQU ASCBSRQ2 03940000 ASCBSRM1 EQU ASCBSRQ2 03941000 ASCBRV25 EQU ASCBSRQ2 03942000 ASCBRV24 EQU ASCBSRQ2 03943000 ASCBRV23 EQU ASCBSRQ2 03944000 ASCBRV22 EQU ASCBSRQ2 03945000 ASCBRV21 EQU ASCBSRQ2 03946000 ASCBDSG3 EQU ASCBSRQ2 03947000 ASCBRV19 EQU ASCBSRQ1 03948000 ASCBRV18 EQU ASCBSRQ1 03949000 ASCBRV17 EQU ASCBSRQ1 03950000 ASCBRV16 EQU ASCBSRQ1 03951000 ASCBRV15 EQU ASCBSRQ1 03952000 ASCBRV14 EQU ASCBSRQ1 03953000 ASCBDFLT EQU ASCBSRQ1 03954000 ASCBDSG4 EQU ASCBSRQ1 03955000 ASCBJBNS EQU ASCB+176 03956000 ASCBJBNI EQU ASCB+172 03957000 ASCBMCC EQU ASCB+168 03958000 ASCBRTWA EQU ASCB+164 03959000 ASCBIQEA EQU ASCB+160 03960000 ASCBXMPQ EQU ASCB+156 03961000 ASCBRS01 EQU ASCB+154 03962000 ASCBFMCT EQU ASCB+152 03963000 ASCBOUXB EQU ASCB+148 03964000 ASCBOUCB EQU ASCB+144 03965000 ASCBMECB EQU ASCB+140 03966000 ASCBQECB EQU ASCB+136 03967000 ASCBLSQH EQU ASCBLKGP+4 03968000 ASCBLOCK EQU ASCBLKGP 03969000 ASCBRCTP EQU ASCB+124 03970000 ASCBNVSC EQU ASCB+122 03971000 ASCBVSC EQU ASCB+120 03972000 ASCBSRBS EQU ASCBSCNT+2 03973000 ASCBRV48 EQU ASCBSCNT 03974000 ASCBRV06 EQU ASCBFLG2 03975000 ASCBRV05 EQU ASCBFLG2 03976000 ASCBRV04 EQU ASCBFLG2 03977000 ASCBRV47 EQU ASCBFLG2 03978000 ASCBS2S EQU ASCBFLG2 03979000 ASCBCEXT EQU ASCBFLG2 03980000 ASCBPXMT EQU ASCBFLG2 03981000 ASCBXMPT EQU ASCBFLG2 03982000 ASCBRF07 EQU ASCBDSP1 03983000 ASCBRF06 EQU ASCBDSP1 03984000 ASCBRF05 EQU ASCBDSP1 03985000 ASCBSTND EQU ASCBDSP1 03986000 ASCBSSSS EQU ASCBDSP1 03987000 ASCBSNQS EQU ASCBDSP1 03988000 ASCBFAIL EQU ASCBDSP1 03989000 ASCBSSND EQU ASCBDSP1 03990000 ASCBSWCT EQU ASCBFW2 03991000 ASCBTMCH EQU ASCB+104 03992000 ASCBNSWP EQU ASCBFLG1 03993000 ASCBTYP1 EQU ASCBFLG1 03994000 ASCBRV46 EQU ASCBFLG1 03995000 ASCBABNT EQU ASCBFLG1 03996000 ASCBTERM EQU ASCBFLG1 03997000 ASCBS3S EQU ASCBFLG1 03998000 ASCBRV45 EQU ASCBFLG1 03999000 ASCBTOFF EQU ASCBFLG1 04000000 ASCBRF01 EQU ASCBRCTF 04001000 ASCBTMLW EQU ASCBRCTF 04002000 ASCBOUT EQU ASCBRCTF 04003000 ASCBWAIT EQU ASCBRCTF 04004000 ASCBRV08 EQU ASCBRCTF 04005000 ASCBFQU EQU ASCBRCTF 04006000 ASCBFRS EQU ASCBRCTF 04007000 ASCBTMNO EQU ASCBRCTF 04008000 ASCBAFFN EQU ASCBFW1 04009000 ASCBDUMP EQU ASCB+96 04010000 ASCBTLCH EQU ASCB+92 04011000 ASCBUBET EQU ASCB+88 04012000 ASCBECB EQU ASCB+84 04013000 ASCBJSTL EQU ASCB+80 04014000 ASCBEWST EQU ASCB+72 04015000 ASCBEJST EQU ASCB+64 04016000 ASCBTSB EQU ASCB+60 04017000 ASCBCSCB EQU ASCB+56 04018000 ASCBRSMA EQU ASCBRSM+1 04019000 ASCBRV54 EQU ASCBRSMF 04020000 ASCBRV53 EQU ASCBRSMF 04021000 ASCBRV52 EQU ASCBRSMF 04022000 ASCBRV51 EQU ASCBRSMF 04023000 ASCBVEQR EQU ASCBRSMF 04024000 ASCBN2LP EQU ASCBRSMF 04025000 ASCB1LPU EQU ASCBRSMF 04026000 ASCB2LPU EQU ASCBRSMF 04027000 ASCBLDA EQU ASCB+48 04028000 ASCBSTOR EQU ASCB+44 04029000 ASCBDP EQU ASCB+43 04030000 ASCBHLHI EQU ASCB+42 04031000 ASCBIOSM EQU ASCB+40 04032000 ASCBSEQN EQU ASCB+38 04033000 ASCBCPUS EQU ASCB+32 04034000 ASCBTNEW EQU ASCB+28 04035000 ASCBIOSP EQU ASCB+24 04036000 ASCBSYNC EQU ASCBSUPC+4 04037000 ASCBSVRB EQU ASCBSUPC 04038000 ASCBCMSF EQU ASCB+12 04039000 ASCBBWDP EQU ASCB+8 04040000 ASCBFWDP EQU ASCB+4 04041000 ASCBASCB EQU ASCB 04042000 ASCBEGIN EQU ASCB 04043000 LCCAR125 EQU LCCA+964 04044000 LCCAR124 EQU LCCA+960 04045000 LCCASGPR EQU LCCA+896 04046000 LCCADRT2 EQU LCCA+888 04047000 LCCADRT1 EQU LCCA+880 04048000 LCCAFSSJ EQU LCCA+876 04049000 LCCAESS2 EQU LCCA+872 04050000 LCCASPLJ EQU LCCA+868 04051000 LCCASMQJ EQU LCCA+864 04052000 LCCAIRT EQU LCCA+736 04053000 LCCAASID EQU LCCA+732 04054000 LCCARV89 EQU LCCA+728 04055000 LCCAPGTA EQU LCCASRBF+2 04056000 LCCASAFN EQU LCCASRBF 04057000 LCCAECSA EQU LCCA+716 04058000 LCCAICR0 EQU LCCA+712 04059000 LCCALWTM EQU LCCA+704 04060000 LCCARV78 EQU LCCA+700 04061000 LCCAPINV EQU LCCA+696 04062000 LCCARV88 EQU LCCA+695 04063000 LCCARV87 EQU LCCALKFG 04064000 LCCARV86 EQU LCCALKFG 04065000 LCCARV85 EQU LCCALKFG 04066000 LCCARV84 EQU LCCALKFG 04067000 LCCALKRD EQU LCCALKFG 04068000 LCCALKAQ EQU LCCALKFG 04069000 LCCALKSA EQU LCCALKFG 04070000 LCCALKDP EQU LCCALKFG 04071000 LCCACRST EQU LCCACREX 04072000 LCCACRDP EQU LCCACREX 04073000 LCCACRLM EQU LCCACREX 04074000 LCCACRIN EQU LCCACREX 04075000 LCCACRRT EQU LCCACREX 04076000 LCCACRLE EQU LCCACREX 04077000 LCCACRRM EQU LCCACREX 04078000 LCCACREF EQU LCCACREX 04079000 LCCAVARY EQU LCCACRFL 04080000 LCCARV73 EQU LCCACRFL 04081000 LCCARV72 EQU LCCACRFL 04082000 LCCARV71 EQU LCCACRFL 04083000 LCCARV70 EQU LCCACRFL 04084000 LCCARV69 EQU LCCACRFL 04085000 LCCACLMS EQU LCCACRFL 04086000 LCCACRTM EQU LCCACRFL 04087000 LCCALCR0 EQU LCCA+688 04088000 LCCACRLC EQU LCCA+684 04089000 LCCARCPU EQU LCCA+680 04090000 LCCADCPU EQU LCCA+676 04091000 LCCASRBJ EQU LCCA+672 04092000 LCCADSSR EQU LCCA+668 04093000 LCCADSSC EQU LCCA+660 04094000 LCCADSS3 EQU LCCA+648 04095000 LCCADSS2 EQU LCCA+636 04096000 LCCADSS1 EQU LCCA+624 04097000 LCCAWTIM EQU LCCA+616 04098000 LCCAITOD EQU LCCA+608 04099000 LCCADTOD EQU LCCA+600 04100000 LCCASTOD EQU LCCA+592 04101000 LCCARIR5 EQU LCCASPSA+44 04102000 LCCARIR4 EQU LCCASPSA+40 04103000 LCCARIR3 EQU LCCASPSA+36 04104000 LCCARIR2 EQU LCCASPSA+32 04105000 LCCARPR5 EQU LCCASPSA+28 04106000 LCCARPR4 EQU LCCASPSA+24 04107000 LCCARPR3 EQU LCCASPSA+20 04108000 LCCARPR2 EQU LCCASPSA+16 04109000 LCCADSR5 EQU LCCASPSA+12 04110000 LCCADSR4 EQU LCCASPSA+8 04111000 LCCADSR3 EQU LCCASPSA+4 04112000 LCCADSR2 EQU LCCASPSA 04113000 LCCARV68 EQU LCCA+543 04114000 LCCAPSMK EQU LCCA+542 04115000 LCCARV67 EQU LCCADSF2 04116000 LCCARV66 EQU LCCADSF2 04117000 LCCARV65 EQU LCCADSF2 04118000 LCCARV64 EQU LCCADSF2 04119000 LCCADSRW EQU LCCADSF2 04120000 LCCADSPL EQU LCCADSF2 04121000 LCCASRBM EQU LCCADSF2 04122000 LCCARV61 EQU LCCADSF1 04123000 LCCARV60 EQU LCCADSF1 04124000 LCCARV59 EQU LCCADSF1 04125000 LCCARV58 EQU LCCADSF1 04126000 LCCATIMR EQU LCCADSF1 04127000 LCCADSS EQU LCCADSF1 04128000 LCCAVCPU EQU LCCADSF1 04129000 LCCAACR EQU LCCADSF1 04130000 LCCAASCP EQU LCCA+532 04131000 LCCAESSA EQU LCCA+528 04132000 LCCARV55 EQU LCCASPN4 04133000 LCCARV54 EQU LCCASPN4 04134000 LCCARV53 EQU LCCASPN4 04135000 LCCARV52 EQU LCCASPN4 04136000 LCCARV51 EQU LCCASPN4 04137000 LCCARV50 EQU LCCASPN4 04138000 LCCARV49 EQU LCCASPN4 04139000 LCCARV48 EQU LCCASPN4 04140000 LCCARV47 EQU LCCASPN3 04141000 LCCARV46 EQU LCCASPN3 04142000 LCCARV45 EQU LCCASPN3 04143000 LCCARV44 EQU LCCASPN3 04144000 LCCARV43 EQU LCCASPN3 04145000 LCCARV42 EQU LCCASPN3 04146000 LCCARV41 EQU LCCASPN3 04147000 LCCARV40 EQU LCCASPN3 04148000 LCCARV39 EQU LCCASPN2 04149000 LCCARV38 EQU LCCASPN2 04150000 LCCARV37 EQU LCCASPN2 04151000 LCCARV36 EQU LCCASPN2 04152000 LCCARV35 EQU LCCASPN2 04153000 LCCARV34 EQU LCCASPN2 04154000 LCCARV33 EQU LCCASPN2 04155000 LCCARV32 EQU LCCASPN2 04156000 LCCARV31 EQU LCCASPN1 04157000 LCCAINT EQU LCCASPN1 04158000 LCCAMFIO EQU LCCASPN1 04159000 LCCARSTR EQU LCCASPN1 04160000 LCCATSPN EQU LCCASPN1 04161000 LCCALOCK EQU LCCASPN1 04162000 LCCASIGP EQU LCCASPN1 04163000 LCCAPTLB EQU LCCASPN1 04164000 LCCARV27 EQU LCCAIHR4 04165000 LCCARV26 EQU LCCAIHR4 04166000 LCCARV25 EQU LCCAIHR4 04167000 LCCARV24 EQU LCCAIHR4 04168000 LCCARV23 EQU LCCAIHR4 04169000 LCCARV22 EQU LCCAIHR4 04170000 LCCARV21 EQU LCCAIHR4 04171000 LCCARV20 EQU LCCAIHR4 04172000 LCCARV19 EQU LCCAIHR3 04173000 LCCARV18 EQU LCCAIHR3 04174000 LCCARV17 EQU LCCAIHR3 04175000 LCCARV16 EQU LCCAIHR3 04176000 LCCARV15 EQU LCCAIHR3 04177000 LCCARV14 EQU LCCAIHR3 04178000 LCCARV13 EQU LCCAIHR3 04179000 LCCARV12 EQU LCCAIHR3 04180000 LCCARV11 EQU LCCAIHR2 04181000 LCCARV10 EQU LCCAIHR2 04182000 LCCARV09 EQU LCCAIHR2 04183000 LCCARV08 EQU LCCAIHR2 04184000 LCCARV07 EQU LCCAIHR2 04185000 LCCARV06 EQU LCCAIHR2 04186000 LCCARV05 EQU LCCAIHR2 04187000 LCCARV04 EQU LCCAIHR2 04188000 LCCARV03 EQU LCCAIHR1 04189000 LCCARV02 EQU LCCAIHR1 04190000 LCCARV01 EQU LCCAIHR1 04191000 LCCAPPIE EQU LCCAIHR1 04192000 LCCAPSG1 EQU LCCAIHR1 04193000 LCCAPDAT EQU LCCAIHR1 04194000 LCCAXRC2 EQU LCCAIHR1 04195000 LCCAXRC1 EQU LCCAIHR1 04196000 LCCAMPEN EQU LCCAMCR0 04197000 @NM00005 EQU LCCAMCR0 04198000 LCCASPEN EQU LCCASCR0 04199000 @NM00004 EQU LCCASCR0 04200000 LCCAR165 EQU LCCA+508 04201000 LCCAR164 EQU LCCA+504 04202000 LCCAR163 EQU LCCA+500 04203000 LCCAR162 EQU LCCA+496 04204000 LCCAR161 EQU LCCA+492 04205000 LCCAR160 EQU LCCA+488 04206000 LCCAR159 EQU LCCA+484 04207000 LCCAR158 EQU LCCA+480 04208000 LCCAR157 EQU LCCA+476 04209000 LCCAR156 EQU LCCA+472 04210000 LCCAR155 EQU LCCA+468 04211000 LCCAR154 EQU LCCA+464 04212000 LCCAR153 EQU LCCA+460 04213000 LCCAR152 EQU LCCA+456 04214000 LCCAR151 EQU LCCA+452 04215000 LCCAR150 EQU LCCA+448 04216000 LCCAR133 EQU LCCA+444 04217000 LCCAR132 EQU LCCA+440 04218000 LCCAR131 EQU LCCA+436 04219000 LCCAR130 EQU LCCA+432 04220000 LCCAR129 EQU LCCA+428 04221000 LCCAR128 EQU LCCA+424 04222000 LCCAR127 EQU LCCA+420 04223000 LCCAR126 EQU LCCA+416 04224000 LCCARSGR EQU LCCA+352 04225000 LCCAXGR3 EQU LCCA+288 04226000 LCCAXGR2 EQU LCCA+224 04227000 LCCAR149 EQU LCCA+220 04228000 LCCAR148 EQU LCCA+216 04229000 LCCAR147 EQU LCCA+212 04230000 LCCAR146 EQU LCCA+208 04231000 LCCAR145 EQU LCCA+204 04232000 LCCAR144 EQU LCCA+200 04233000 LCCAR143 EQU LCCA+196 04234000 LCCAR142 EQU LCCA+192 04235000 LCCAR141 EQU LCCA+188 04236000 LCCAR140 EQU LCCA+184 04237000 LCCAR139 EQU LCCA+180 04238000 LCCAR138 EQU LCCA+176 04239000 LCCAR137 EQU LCCA+172 04240000 LCCAR136 EQU LCCA+168 04241000 LCCAR135 EQU LCCA+164 04242000 LCCAR134 EQU LCCA+160 04243000 LCCACR0 EQU LCCA+156 04244000 LCCAMCR1 EQU LCCA+152 04245000 LCCAPVAD EQU LCCA+148 04246000 LCCAPINT EQU LCCA+144 04247000 LCCAPPSW EQU LCCA+136 04248000 LCCAPGR1 EQU LCCA+8 04249000 LCCARV77 EQU LCCA+6 04250000 LCCACPUA EQU LCCA+4 04251000 LCCALCCA EQU LCCA 04252000 SRBFRRA EQU SRB+40 04253000 @NM00003 EQU SRB+39 04254000 SRBHLHI EQU SRB+38 04255000 @NM00002 EQU SRBFLGS 04256000 SRBPNONQ EQU SRBFLGS 04257000 SRBSUSP EQU SRBFLGS 04258000 SRBFRRCL EQU SRBFLGS 04259000 SRBFRREQ EQU SRBFLGS 04260000 SRBLLHLD EQU SRBFLGS 04261000 SRBLLREQ EQU SRBFLGS 04262000 SRBPKF EQU SRB+36 04263000 SRBSAVE EQU SRB+32 04264000 SRBPARM EQU SRB+28 04265000 SRBRMTR EQU SRB+24 04266000 SRBEP EQU SRB+20 04267000 SRBPTCB EQU SRBFLC+4 04268000 SRBPASID EQU SRBFLC+2 04269000 SRBCPAFF EQU SRBFLC 04270000 SRBASCB EQU SRB+8 04271000 SRBFLNK EQU SRB+4 04272000 SRBID EQU SRB 04273000 ASVTEND EQU ASVT+528 04274000 ASVTAVAL EQU ASVTENTY 04275000 ASVTAVAI EQU ASVTFRST 04276000 ASVTRS00 EQU ASVT+520 04277000 ASVTMAXU EQU ASVT+516 04278000 ASVTASVT EQU ASVT+512 04279000 ASVTBEGN EQU ASVT+512 04280000 @NM00001 EQU ASVT 04281000 @NM00040 EQU PSA+3668 04282000 PSASTAK EQU PSA+3072 04283000 @NM00039 EQU PSA+2928 04284000 PSASTMP EQU PSAWTENT+28 04285000 PSAWTTCB EQU PSAWTENT+24 04286000 PSATASID EQU PSAWTENT+22 04287000 PSATWCPU EQU PSAWTENT+20 04288000 PSAWTR1 EQU PSAWTENT+16 04289000 PSAWTR0 EQU PSAWTENT+12 04290000 PSAWTR15 EQU PSAWTENT+8 04291000 PSAWTPSW EQU PSAWTENT 04292000 PSASVT EQU PSA+2892 04293000 PSALSCH2 EQU PSA+2888 04294000 PSALSCH1 EQU PSA+2884 04295000 PSAIOSLH EQU PSA+2880 04296000 PSAIOEPF EQU PSAEPTAB+60 04297000 PSAIOEPE EQU PSAEPTAB+56 04298000 PSAIOEPD EQU PSAEPTAB+52 04299000 PSAIOEPC EQU PSAEPTAB+48 04300000 PSAIOEPB EQU PSAEPTAB+44 04301000 PSAIOEPA EQU PSAEPTAB+40 04302000 PSAIOEP9 EQU PSAEPTAB+36 04303000 PSAIOEP8 EQU PSAEPTAB+32 04304000 PSAIOEP7 EQU PSAEPTAB+28 04305000 PSAIOEP6 EQU PSAEPTAB+24 04306000 PSAIOEP5 EQU PSAEPTAB+20 04307000 PSAIOEP4 EQU PSAEPTAB+16 04308000 PSAIOSRC EQU PSAEPTAB+12 04309000 PSAIOEP3 EQU PSAEPTAB+8 04310000 PSAIOEP2 EQU PSAEPTAB+4 04311000 PSAIOEP1 EQU PSAEPTAB 04312000 @NM00038 EQU PSA+1432 04313000 PSAUSEND EQU PSA+1432 04314000 PSARPEN EQU PSARCR0 04315000 @NM00037 EQU PSARCR0 04316000 PSAPCPEN EQU PSAPCCR0 04317000 @NM00036 EQU PSAPCCR0 04318000 PSACR0EN EQU PSACR0SV 04319000 @NM00035 EQU PSACR0SV 04320000 PSARV090 EQU PSA+1418 04321000 PSACR0CB EQU PSA+1417 04322000 PSARV092 EQU PSA+1416 04323000 PSARSMGR EQU PSA+1352 04324000 PSARSMSW EQU PSA+1344 04325000 PSALKR15 EQU PSALKSA+60 04326000 PSALKR14 EQU PSALKSA+56 04327000 PSALKR13 EQU PSALKSA+52 04328000 PSALKR12 EQU PSALKSA+48 04329000 PSALKR11 EQU PSALKSA+44 04330000 PSALKR10 EQU PSALKSA+40 04331000 PSALKR9 EQU PSALKSA+36 04332000 PSALKR8 EQU PSALKSA+32 04333000 PSALKR7 EQU PSALKSA+28 04334000 PSALKR6 EQU PSALKSA+24 04335000 PSALKR5 EQU PSALKSA+20 04336000 PSALKR4 EQU PSALKSA+16 04337000 PSALKR3 EQU PSALKSA+12 04338000 PSALKR2 EQU PSALKSA+8 04339000 PSALKR1 EQU PSALKSA+4 04340000 PSALKR0 EQU PSALKSA 04341000 PSASLSA EQU PSA+1208 04342000 PSALCR10 EQU PSA+1204 04343000 PSALCR9 EQU PSA+1200 04344000 PSALCR8 EQU PSA+1196 04345000 PSALCR7 EQU PSA+1192 04346000 PSALCR6 EQU PSA+1188 04347000 PSASTNSM EQU PSA+1187 04348000 PSAMODES EQU PSA+1186 04349000 PSARV072 EQU PSA+1184 04350000 @NM00034 EQU PSAMODE 04351000 PSAPSRBM EQU PSAMODE 04352000 @NM00033 EQU PSAMODE 04353000 @NM00032 EQU PSAMODEW 04354000 PSARV071 EQU PSA+1176 04355000 PSASCRG2 EQU PSA+1172 04356000 PSASCRG1 EQU PSA+1168 04357000 PSAFPSVS EQU PSA+1160 04358000 PSAFPSVE EQU PSA+1152 04359000 PSAFPSAV EQU PSA+1144 04360000 PSACPUT EQU PSA+1136 04361000 PSAGSAV EQU PSA+1064 04362000 PSASMPSW EQU PSA+1056 04363000 PSASCPSW EQU PSA+1048 04364000 PSARV062 EQU PSA+1044 04365000 PSACDAL EQU PSA+1040 04366000 PSAWTCOD EQU PSA+1036 04367000 PSAATCVT EQU PSA+1032 04368000 PSAPCPSW EQU PSA+1024 04369000 PSAPIR2 EQU PSA+1020 04370000 PSARV070 EQU PSA+1019 04371000 PSATROFF EQU PSATRACE 04372000 PSARV069 EQU PSATRACE 04373000 PSARV068 EQU PSATRACE 04374000 PSARV067 EQU PSATRACE 04375000 PSARV066 EQU PSATRACE 04376000 PSARV065 EQU PSATRACE 04377000 PSARV064 EQU PSATRACE 04378000 PSARV063 EQU PSATRACE 04379000 PSASVC13 EQU PSA+1016 04380000 PSALSFCC EQU PSA+1012 04381000 PSASFACC EQU PSA+1008 04382000 PSASTOP EQU PSA+992 04383000 PSASTART EQU PSA+976 04384000 PSARSPSW EQU PSA+968 04385000 PSASRPSW EQU PSA+960 04386000 PSARV045 EQU PSA+892 04387000 PSARV044 EQU PSA+888 04388000 PSARV043 EQU PSA+884 04389000 PSARV042 EQU PSA+880 04390000 PSARV041 EQU PSA+876 04391000 PSARV040 EQU PSA+872 04392000 PSARV025 EQU PSA+868 04393000 PSADSSED EQU PSA+868 04394000 PSADSSPR EQU PSA+864 04395000 PSADSSFW EQU PSA+860 04396000 PSADSS14 EQU PSA+856 04397000 PSADSSPP EQU PSA+848 04398000 PSADSSRP EQU PSA+840 04399000 PSADSS05 EQU PSADSSF4 04400000 PSADSS10 EQU PSADSSF4 04401000 PSADSSVE EQU PSADSSF4 04402000 PSADSSDE EQU PSADSSF4 04403000 PSADSSC0 EQU PSADSSF4 04404000 PSADSSIE EQU PSADSSF4 04405000 PSADSS12 EQU PSADSSF4 04406000 PSADSSRC EQU PSADSSF4 04407000 PSARV057 EQU PSADSSF3 04408000 PSARV056 EQU PSADSSF3 04409000 PSARV055 EQU PSADSSF3 04410000 PSADSSMC EQU PSADSSF3 04411000 PSADSSRW EQU PSADSSF3 04412000 PSADSSNM EQU PSADSSF3 04413000 PSADSSES EQU PSADSSF3 04414000 PSADSSGP EQU PSADSSF3 04415000 PSADSSF2 EQU PSADSSFL+1 04416000 PSADSSPI EQU PSADSSF1 04417000 PSADSSOI EQU PSADSSF1 04418000 PSADSSSP EQU PSADSSF1 04419000 PSADSSTP EQU PSADSSF1 04420000 PSADSSDW EQU PSADSSF1 04421000 PSADSSDD EQU PSADSSF1 04422000 PSADSSDM EQU PSADSSF1 04423000 PSADSSMV EQU PSADSSF1 04424000 PSADSSTS EQU PSA+816 04425000 PSADSSWK EQU PSA+812 04426000 PSADSSR3 EQU PSA+808 04427000 PSADSSR2 EQU PSA+804 04428000 PSADSSRS EQU PSA+800 04429000 PSASTOR EQU PSA+796 04430000 PSAVSTAP EQU PSA+792 04431000 PSAWKVAP EQU PSA+788 04432000 PSAWKRAP EQU PSA+784 04433000 PSAMCHIC EQU PSA+783 04434000 PSAACTCD EQU PSA+782 04435000 PSASYMSK EQU PSA+781 04436000 PSAMCHFL EQU PSA+780 04437000 PSACR0 EQU PSA+776 04438000 PSASVPSW EQU PSA+768 04439000 PSALITA EQU PSA+764 04440000 PSALCLLI EQU PSACLHS4 04441000 PSACMSLI EQU PSACLHS4 04442000 PSASRMLI EQU PSACLHS4 04443000 PSATPALI EQU PSACLHS4 04444000 PSATPDLI EQU PSACLHS4 04445000 PSATPNLI EQU PSACLHS4 04446000 PSAIOLLI EQU PSACLHS4 04447000 PSAIOULI EQU PSACLHS4 04448000 PSAIOCLI EQU PSACLHS3 04449000 PSAIOSLI EQU PSACLHS3 04450000 PSASALLI EQU PSACLHS3 04451000 PSAASMLI EQU PSACLHS3 04452000 PSADSPLI EQU PSACLHS3 04453000 PSARV075 EQU PSACLHS3 04454000 PSARV074 EQU PSACLHS3 04455000 PSARV073 EQU PSACLHS3 04456000 PSACLHS2 EQU PSACLHS+1 04457000 PSACLHS1 EQU PSACLHS 04458000 PSALCPUA EQU PSA+756 04459000 PSACMSLK EQU PSA+752 04460000 PSARV089 EQU PSA+748 04461000 PSARV088 EQU PSA+744 04462000 PSARV087 EQU PSA+740 04463000 PSARV086 EQU PSA+736 04464000 PSARV085 EQU PSA+732 04465000 PSARV084 EQU PSA+728 04466000 PSARV083 EQU PSA+724 04467000 PSARV082 EQU PSA+720 04468000 PSARV081 EQU PSA+716 04469000 PSARV080 EQU PSA+712 04470000 PSARV079 EQU PSA+708 04471000 PSARV078 EQU PSA+704 04472000 PSARV077 EQU PSA+700 04473000 PSARV076 EQU PSA+696 04474000 PSARLOCK EQU PSACLHT+52 04475000 PSALOCAL EQU PSACLHT+48 04476000 PSACMSL EQU PSACLHT+44 04477000 PSAOPTL EQU PSACLHT+40 04478000 PSATPACL EQU PSACLHT+36 04479000 PSATPDNL EQU PSACLHT+32 04480000 PSATPNCL EQU PSACLHT+28 04481000 PSAIOSLL EQU PSACLHT+24 04482000 PSAIOSUL EQU PSACLHT+20 04483000 PSAIOSCL EQU PSACLHT+16 04484000 PSAIOSSL EQU PSACLHT+12 04485000 PSASALCL EQU PSACLHT+8 04486000 PSAASML EQU PSACLHT+4 04487000 PSADISPL EQU PSACLHT 04488000 PSASRSA EQU PSA+636 04489000 PSARV050 EQU PSA+634 04490000 PSADSSGO EQU PSA+633 04491000 PSARECUR EQU PSA+632 04492000 PSAHLHIS EQU PSA+628 04493000 PSAIPCSA EQU PSA+624 04494000 @NM00031 EQU PSA+621 04495000 PSAIPCDM EQU PSA+620 04496000 PSAIPCD EQU PSA+616 04497000 @NM00030 EQU PSA+613 04498000 PSAIPCRM EQU PSA+612 04499000 PSAIPCR EQU PSA+608 04500000 PSAMCHEX EQU PSA+600 04501000 PSAMPSW EQU PSA+592 04502000 PSAEXPS2 EQU PSA+584 04503000 PSAEXPS1 EQU PSA+576 04504000 PSAPIREG EQU PSA+572 04505000 PSARSREG EQU PSA+568 04506000 PSAGPREG EQU PSA+556 04507000 PSARV022 EQU PSASUP4 04508000 PSARV021 EQU PSASUP4 04509000 PSARV020 EQU PSASUP4 04510000 PSARV019 EQU PSASUP4 04511000 PSARV018 EQU PSASUP4 04512000 PSARV017 EQU PSASUP4 04513000 PSARV016 EQU PSASUP4 04514000 PSARV015 EQU PSASUP4 04515000 PSARV014 EQU PSASUP3 04516000 PSARV013 EQU PSASUP3 04517000 PSARSM EQU PSASUP3 04518000 PSAESTA EQU PSASUP3 04519000 PSASPR EQU PSASUP3 04520000 PSAPSREG EQU PSASUP3 04521000 PSAPI2 EQU PSASUP3 04522000 PSAIOSUP EQU PSASUP3 04523000 PSALCR EQU PSASUP2 04524000 PSARTM EQU PSASUP2 04525000 PSAACR EQU PSASUP2 04526000 PSAIPCE2 EQU PSASUP2 04527000 PSAIPCES EQU PSASUP2 04528000 PSAIPCEC EQU PSASUP2 04529000 PSAGTF EQU PSASUP2 04530000 PSAIPCRI EQU PSASUP2 04531000 PSATYPE6 EQU PSASUP1 04532000 PSATCTL EQU PSASUP1 04533000 PSADISP EQU PSASUP1 04534000 PSALOCK EQU PSASUP1 04535000 PSAPI EQU PSASUP1 04536000 PSAEXT EQU PSASUP1 04537000 PSASVC EQU PSASUP1 04538000 PSAIO EQU PSASUP1 04539000 PSAANEW EQU PSA+544 04540000 PSATNEW EQU PSA+536 04541000 PSALCCAR EQU PSA+532 04542000 PSAPCCAR EQU PSA+524 04543000 PSAPCCAV EQU PSA+520 04544000 PSACPULA EQU PSA+518 04545000 PSACPUPA EQU PSA+516 04546000 PSAPSA EQU PSA+512 04547000 FLCHDEND EQU PSA+512 04548000 FLCCRSAV EQU FLCMCLA+280 04549000 FLCGRSAV EQU FLCMCLA+216 04550000 FLCFPSAV EQU FLCMCLA+184 04551000 FLCFLA EQU FLCMCLA+88 04552000 FLCRGNCD EQU FLCMCLA+84 04553000 FLCFSAA EQU FLCFSA+1 04554000 @NM00029 EQU FLCFSA 04555000 @NM00028 EQU FLCMCLA+77 04556000 PSAMDISC EQU PSAMEDC 04557000 PSAMINTR EQU PSAMEDC 04558000 PSAMINST EQU PSAMEDC 04559000 PSAMCCF EQU PSAMEDC 04560000 PSAMCNOP EQU PSAMEDC 04561000 PSAMEXSR EQU PSAMEDC 04562000 PSAMCOPR EQU PSAMEDC 04563000 @NM00027 EQU PSAMEDC 04564000 @NM00026 EQU FLCMCLA+72 04565000 FLCMCIC EQU FLCMCLA+64 04566000 @NM00025 EQU FLCMCLA+20 04567000 FLCIOAA EQU FLCIOA+1 04568000 @NM00024 EQU FLCIOA 04569000 @NM00023 EQU FLCMCLA+15 04570000 @NM00022 EQU FLCMCLA+14 04571000 @NM00021 EQU FLCMCLA+12 04572000 FLCLCL EQU FLCMCLA+8 04573000 FLCIOELA EQU FLCIOEL+1 04574000 @NM00020 EQU FLCIOEL 04575000 FLCCHIL EQU FLCCHNID+2 04576000 FLCCHMOD EQU FLCCHTM 04577000 FLCCHTYP EQU FLCCHTM 04578000 PSAMPL EQU PSA+164 04579000 @NM00019 EQU PSA+160 04580000 FLCMTRCD EQU PSA+157 04581000 @NM00018 EQU PSA+156 04582000 FLCPERA EQU FLCPER+1 04583000 @NM00017 EQU FLCPER 04584000 @NM00016 EQU PSA+151 04585000 FLCPERCD EQU PSA+150 04586000 FLCMCNUM EQU PSA+149 04587000 @NM00015 EQU PSA+148 04588000 FLCTEAA EQU FLCTEA+1 04589000 @NM00014 EQU FLCTEA 04590000 PSAPIPC EQU PSAPICOD 04591000 PSAPIMC EQU PSAPICOD 04592000 PSAPIPER EQU PSAPICOD 04593000 PSARV049 EQU FLCPICOD 04594000 FLCPILCB EQU FLCPIILC 04595000 @NM00013 EQU FLCPIILC 04596000 @NM00012 EQU PSAEPPSW 04597000 FLCSVCN EQU PSAESPSW+2 04598000 FLCSILCB EQU FLCSVILC 04599000 @NM00011 EQU FLCSVILC 04600000 @NM00010 EQU PSAESPSW 04601000 FLCEICOD EQU PSAEEPSW+2 04602000 PSASPAD EQU PSAEEPSW 04603000 @NM00009 EQU PSA+128 04604000 FLCINPSW EQU PSA+120 04605000 FLCMNPSW EQU PSA+112 04606000 FLCPNPSW EQU PSA+104 04607000 FLCSNPSW EQU PSA+96 04608000 FLCENPSW EQU PSA+88 04609000 FLCTRACE EQU PSA+84 04610000 FLCTIMER EQU PSA+80 04611000 FLCCVT2 EQU PSA+76 04612000 FLCCAW EQU PSA+72 04613000 FLCCSW EQU PSA+64 04614000 FLCIOPSW EQU PSA+56 04615000 FLCMOPSW EQU PSA+48 04616000 FLCSOPSW EQU PSA+32 04617000 FLCEOPSW EQU PSA+24 04618000 PSAPSAVA EQU FLCICCW2+4 04619000 FLCCVT EQU FLCICCW2 04620000 FLCICCW1 EQU FLCROPSW 04621000 FLCIPPSW EQU FLCRNPSW 04622000 * END UNREFERENCED COMPONENTS 04623000 @RT00126 EQU AHLPSCM1 04624000 @RT00128 EQU AHLPSCM2 04625000 @RC00170 EQU AHLPSTCM 04626000 @RC00192 EQU AHLPSTCM 04627000 @RC00203 EQU AHLPSTCM 04628000 HIT EQU AHLPSTCM 04629000 @RC00288 EQU @RC00287 04630000 @RC00314 EQU @RC00313 04631000 @RF00333 EQU @EL00003 04632000 @RT00258 EQU HIT 04633000 @ENDDATA EQU * 04634000 END AHLTXSYS,(C'PLS0100',0701,77253) 04635000