TITLE 'IEAVRCV: RSM FUNCTIONAL RECOVERY ROUTINE *00001000 ' 00002000 IEAVRCV CSECT 00003000 USING *,15 00004000 MODID BR=NO 00005000 IEAVRCV2 DS 0H 00006000 ENTRY IEAVRCV2 00007000 BALR BASEREG,0 ESTABLISH ADDRESSABILITY 00008000 USING *,BASEREG 00009000 * SDWAPTR=PARMREG; /* BASE FOR THE SDWA */ 00010000 LR SDWAPTR,PARMREG 0087 00011000 * RCAPTR=SDWAPARM; /* BASE FOR THE CURRENT RCA */ 00012000 L RCAPTR,SDWAPARM(,SDWAPTR) 0088 00013000 * RSET13=R0; /* SAVE @ OF WORK AREA */ 00014000 LR RSET13,R0 0089 00015000 * S14=RRETURN; /* SAVE RETURN @ */ 00016000 ST RRETURN,S14(,RSET13) 0090 00017000 * GENERATE; 0091 00018000 * /*ESTABLISH RECOVERY*/ 00019000 SETFRR A,FRRAD=FRRADD,PARMAD=(NEWRCA),WRKREGS=(WORKA,WORKB) 00020000 * OLDRCA=RCAPTR; /* OLD RCA PTR IN NEW RCA */ 00021000 ST RCAPTR,OLDRCA(,NEWRCA) 0092 00022000 * IF CVTPVTP^=PVTADDR THEN /* IS PVT PTR CLOBBERED? */ 00023000 L @12,PVTADDR 0093 00024000 L @08,CVTPTR 0093 00025000 L @06,CVTPVTP(,@08) 0093 00026000 CR @06,@12 0093 00027000 BE @RF00093 0093 00028000 * DO; 0094 00029000 * PVTCLOBR=CVTPVTP; /* COPY BAD VALUE IN RCRDING AREA*/ 00030000 ST @06,PVTCLOBR(,SDWAPTR) 0095 00031000 * CVTPVTP=PVTADDR; /* REFRESH THE PVT PTR */ 00032000 ST @12,CVTPVTP(,@08) 0096 00033000 * END; 0097 00034000 * 0097 00035000 * /*****************************************************************/ 00036000 * /* */ 00037000 * /* CHECK NOW TO SEE IF ERROR OCCURRED WHILE IN TRAS MODE. IF YES,*/ 00038000 * /* THEN MUST TRAS BACK EXCEPT IN CASE OF 0FC ABEND. IN THIS CASE */ 00039000 * /* RTM HAS ALREADY TRASSED BACK. @ZA16816*/ 00040000 * /* */ 00041000 * /*****************************************************************/ 00042000 * 0098 00043000 * IF PVTTASID^=0 THEN /* IF PVTTASID NOT ZERO @ZA16816*/ 00044000 @RF00093 L @12,CVTPTR 0098 00045000 L @12,PVTPTR(,@12) 0098 00046000 LH @12,PVTTASID(,@12) 0098 00047000 N @12,@CF02408 0098 00048000 LTR @12,@12 0098 00049000 BZ @RF00098 0098 00050000 * DO; /* WERE IN TRAS MODE @ZA16816*/ 00051000 * IF SDWACMPC=FC THEN /* IF 0FC ABEND @ZA16816*/ 00052000 CLC SDWACMPC(3,SDWAPTR),FC 0100 00053000 BNE @RF00100 0100 00054000 * DO; /* THEN @ZA16816*/ 00055000 * WORKA=PVTTASID; /* MEMTERM TO ADDR SPACE @ZA16816*/ 00056000 LR WORKA,@12 0102 00057000 * GENERATE CODE; 0103 00058000 CALLRTM TYPE=MEMTERM,COMPCOD=X'0FC',ASID=(WORKA) 00059000 * PVTTASID=0; /* CLEAR TRAS INDICATOR @ZA16816*/ 00060000 L @12,CVTPTR 0104 00061000 L @12,PVTPTR(,@12) 0104 00062000 SLR @08,@08 0104 00063000 STH @08,PVTTASID(,@12) 0104 00064000 * END; /* @ZA16816*/ 00065000 * ELSE /* IF NOT 0FC ABEND @ZA16816*/ 00066000 * DO; /* THEN @ZA16816*/ 00067000 B @RC00100 0106 00068000 @RF00100 DS 0H 0107 00069000 * WORKA=PSAAOLD; /* TRAS BACK TO CURRENT @ZA16816*/ 00070000 L WORKA,PSAAOLD 0107 00071000 * GENERATE CODE REFS(ASCBSTOR); 0108 00072000 LCTL 1,1,ASCBSTOR(WORKA) 00073000 * PVTTASID=0; /* CLEAR TRAS INDICATOR @ZA16816*/ 00074000 L @12,CVTPTR 0109 00075000 L @12,PVTPTR(,@12) 0109 00076000 SLR @08,@08 0109 00077000 STH @08,PVTTASID(,@12) 0109 00078000 * END; /* @ZA16816*/ 00079000 * END; /* @ZA16816*/ 00080000 @RC00100 DS 0H 0112 00081000 * IF SDWAPERC='0'B|SDWAEAS='0'B THEN/* IF PERCOLATION AND RECOVERY 00082000 * ALREADY DONE, DO NOT RECORD */ 00083000 @RF00098 TM SDWAPERC(SDWAPTR),B'00011000' 0112 00084000 BO @RF00112 0112 00085000 * SDWARCRD='1'B; /* INDICATE TO RECORD */ 00086000 OI SDWARCRD(SDWAPTR),B'10000000' 0113 00087000 * SDWAREXN='IEAVRCV'; /* FRR ROUTINE NAME */ 00088000 @RF00112 MVI SDWAREXN+7(SDWAPTR),C' ' 0114 00089000 MVC SDWAREXN(7,SDWAPTR),@CC02364 0114 00090000 * SDWAMODN(1:4)='IEAV'; /* BUILD MODULE NAME */ 00091000 MVC SDWAMODN(4,SDWAPTR),@CC02365 0115 00092000 * SDWAMODN(5:8)=TABLE(RCACSECT); /* MODULE IN CONTROL AT TIME OF 00093000 * ERROR */ 00094000 SLR @12,@12 0116 00095000 IC @12,RCACSECT(,RCAPTR) 0116 00096000 SLA @12,2 0116 00097000 LA @08,TABLE-4(@12) 0116 00098000 MVC SDWAMODN+4(4,SDWAPTR),0(@08) 0116 00099000 * SDWACSCT=SDWAMODN; /* CSECT IN CONTROL */ 00100000 * 0117 00101000 MVC SDWACSCT(8,SDWAPTR),SDWAMODN(SDWAPTR) 0117 00102000 * /*****************************************************************/ 00103000 * /* */ 00104000 * /* ALTER CSECT NAMES IN SDWACSCT FIELD IF NECESSARY */ 00105000 * /* */ 00106000 * /*****************************************************************/ 00107000 * 0118 00108000 * IF RCAVEQRI='1'B THEN /* IF ITS THE V=R INTERCEPT RTN */ 00109000 TM RCAVEQRI(RCAPTR),B'00000010' 0118 00110000 BNO @RF00118 0118 00111000 * SDWACSCT(5:8)='EQR '; /* SET THE IEAVEQR ID */ 00112000 MVC SDWACSCT+4(4,SDWAPTR),@CC02320 0119 00113000 * ELSE /* ELSE, */ 00114000 * IF RCARCFI='1'B THEN /* IF ITS RECONFIGURATION 0120 00115000 * INTERCEPT */ 00116000 B @RC00118 0120 00117000 @RF00118 TM RCARCFI(RCAPTR),B'00000100' 0120 00118000 BNO @RF00120 0120 00119000 * SDWACSCT(5:8)='RCF '; /* SET THE IEAVRCF ID */ 00120000 MVC SDWACSCT+4(4,SDWAPTR),@CC02331 0121 00121000 * ELSE 0122 00122000 * ; /* ELSE, */ 00123000 @RF00120 DS 0H 0123 00124000 * IF RCAINV='1'B THEN /* IF ITS PAGE INVALIDATION */ 00125000 @RC00118 TM RCAINV(RCAPTR),B'00000001' 0123 00126000 BNO @RF00123 0123 00127000 * SDWACSCT(5:8)='INV '; /* SET IT TO IEAVINV */ 00128000 MVC SDWACSCT+4(4,SDWAPTR),@CC02366 0124 00129000 * ELSE /* ELSE, */ 00130000 * IF RCAPCB='1'B THEN /* IF ITS THE PCB MANAGER */ 00131000 B @RC00123 0125 00132000 @RF00123 TM RCAPCB(RCAPTR),B'00010000' 0125 00133000 BNO @RF00125 0125 00134000 * SDWACSCT(5:8)='PCB '; /* SET IEAVPCB */ 00135000 MVC SDWACSCT+4(4,SDWAPTR),@CC02367 0126 00136000 * ELSE /* ELSE, */ 00137000 * IF RCAPFTE='1'B THEN /* IF ITS PFTE ENQ-DEQ */ 00138000 B @RC00125 0127 00139000 @RF00125 TM RCAPFTE(RCAPTR),B'00001000' 0127 00140000 BNO @RF00127 0127 00141000 * SDWACSCT(5:8)='PFTE'; /* SET NAME TO IEAVPFTE */ 00142000 MVC SDWACSCT+4(4,SDWAPTR),@CC02368 0128 00143000 * ELSE /* ELSE, */ 00144000 * IF RCAOPBR='1'B THEN /* FOR IEAVOPBR */ 00145000 B @RC00127 0129 00146000 @RF00127 TM RCAOPBR(RCAPTR),B'00001000' 0129 00147000 BNO @RF00129 0129 00148000 * SDWACSCT(5:8)='OPBR'; /* SET ID FOR IEAVOPBR ENTRY IN 00149000 * IEAVPIOP @Z40WPYD*/ 00150000 MVC SDWACSCT+4(4,SDWAPTR),@CC02369 0130 00151000 * ELSE 0131 00152000 * IF RCAPIOP='1'B THEN /* FOR IEAVPIOP @Z40WPYD*/ 00153000 B @RC00129 0131 00154000 @RF00129 TM RCAPIOP(RCAPTR),B'00000001' 0131 00155000 BNO @RF00131 0131 00156000 * DO; 0132 00157000 * SDWACSCT(5:8)='PIOP';/* SET ID FOR IEAVPIOP ENTRY 0133 00158000 * @Z40WPYD*/ 00159000 MVC SDWACSCT+4(4,SDWAPTR),@CC02334 0133 00160000 * ERPCBAIA=RCAPARM1->PCB;/* COPY THE ERROR PCB INTO THE 00161000 * SDWA VARIABLE LENGTH FIELD, 0134 00162000 * (SDWAVRA) @Z40WPYD*/ 00163000 L @12,RCAPARM1(,RCAPTR) 0134 00164000 MVC ERPCBAIA(64,SDWAPTR),PCB(@12) 0134 00165000 * END; 0135 00166000 * ELSE 0136 00167000 * IF RCAPRSS='1'B THEN /* IF IT IS THE RSB FRAME STEAL 00168000 * ROUTINE */ 00169000 B @RC00131 0136 00170000 @RF00131 TM RCAPRSS(RCAPTR),B'00001000' 0136 00171000 BNO @RF00136 0136 00172000 * SDWACSCT(5:8)='PRSB';/* SET ID FOR MODULE IEAVPRSB 0137 00173000 * @G33VPOD*/ 00174000 MVC SDWACSCT+4(4,SDWAPTR),@CC02317 0137 00175000 * ELSE 0138 00176000 * ; /* NO MORE NAMES TO CHECK */ 00177000 @RF00136 DS 0H 0139 00178000 * SDWAHEX='1'B; /* DATA TO BE DUMPED IN HEX */ 00179000 @RC00131 DS 0H 0139 00180000 @RC00129 DS 0H 0139 00181000 @RC00127 DS 0H 0139 00182000 @RC00125 DS 0H 0139 00183000 @RC00123 OI SDWAHEX(SDWAPTR),B'10000000' 0139 00184000 * SDWAURAL=LENGTH(USERECRD); /* LENGTH OF VARIABLE AREA */ 00185000 MVI SDWAURAL(SDWAPTR),X'62' 0140 00186000 * RCACOPY=RCA; /* COPY OF RCA IN RCRD AREA */ 00187000 MVC RCACOPY(24,SDWAPTR),RCA(RCAPTR) 0141 00188000 * SDWAUPRG='1'B; /* REGS FOR RETRY IN SDWASRSV */ 00189000 OI SDWAUPRG(SDWAPTR),B'00001000' 0142 00190000 * IF RCAABEND='1'B THEN /* DID RSM ROUTINE SAY ABEND? */ 00191000 TM RCAABEND(RCAPTR),B'00100000' 0143 00192000 BNO @RF00143 0143 00193000 * SDWARCRD='0'B; /* IF SO, DONT RECORD */ 00194000 NI SDWARCRD(SDWAPTR),B'01111111' 0144 00195000 * ELSE /* RSM ROUTINE DID NOT SAY ABEND */ 00196000 * DO; 0145 00197000 * 0145 00198000 B @RC00143 0145 00199000 @RF00143 DS 0H 0146 00200000 * /*************************************************************/ 00201000 * /* */ 00202000 * /* IF THE ENTRY TO IEAVRCV WAS CAUSED BY AN RSM-ISSUED 'C0D' */ 00203000 * /* ABEND, ISSUE SDUMP AND RETRY AT THE NEXT SEQUENTIAL */ 00204000 * /* INSTRUCTION */ 00205000 * /* */ 00206000 * /*************************************************************/ 00207000 * 0146 00208000 * IF SDWACMPC=COD&SDWAPERC='0'B THEN 0146 00209000 CLC SDWACMPC(3,SDWAPTR),COD 0146 00210000 BNE @RF00146 0146 00211000 TM SDWAPERC(SDWAPTR),B'00010000' 0146 00212000 BNZ @RF00146 0146 00213000 * DO; 0147 00214000 * SDWARTYA=SDWANXT1; /* RETRY AT NSI */ 00215000 L @12,SDWANXT1(,SDWAPTR) 0148 00216000 ST @12,SDWARTYA(,SDWAPTR) 0148 00217000 * SDWARCDE=SDWARETY; /* INDICATE TO RETRY */ 00218000 MVI SDWARCDE(SDWAPTR),X'04' 0149 00219000 * RCARCRD=0; 0150 00220000 MVI RCARCRD(RCAPTR),X'00' 0150 00221000 * IF PVTDUMP='1'B THEN /* DID RSM REQUEST DUMP? */ 00222000 L @12,CVTPTR 0151 00223000 L @12,PVTPTR(,@12) 0151 00224000 TM PVTDUMP(@12),B'00000001' 0151 00225000 BO @RT00151 0151 00226000 * GOTO DUMPCALL; /* YES,GO TO SCHEDULE DUMP */ 00227000 * ELSE /* IF NO DUMP NEEDED */ 00228000 * GOTO EXITING; /* GO TO EXIT PROCESSING */ 00229000 B EXITING 0153 00230000 * END; 0154 00231000 * ELSE /* IF NOT A 'C0D' ABEND */ 00232000 * DO; 0155 00233000 * 0155 00234000 @RF00146 DS 0H 0156 00235000 * /*********************************************************/ 00236000 * /* */ 00237000 * /* IF OPERATOR DID NOT HIT RESTART KEY, CHECK FOR */ 00238000 * /* POSSIBILITY OF A RETRY. */ 00239000 * /* */ 00240000 * /*********************************************************/ 00241000 * 0156 00242000 * IF SDWARKEY='0'B THEN 0156 00243000 * 0156 00244000 TM SDWARKEY(SDWAPTR),B'00100000' 0156 00245000 BNZ @RF00156 0156 00246000 * /*******************************************************/ 00247000 * /* */ 00248000 * /* IF AN INTERCEPT ROUTINE WAS IN CONTROL, PUT VRBN IN */ 00249000 * /* REG 1 AND RETRY AT THE ADDRESS IN REG 14 */ 00250000 * /* */ 00251000 * /*******************************************************/ 00252000 * 0157 00253000 * IF RCAVEQRI='1'B|RCARCFI='1'B THEN 0157 00254000 TM RCAVEQRI(RCAPTR),B'00000010' 0157 00255000 BO @RT00157 0157 00256000 TM RCARCFI(RCAPTR),B'00000100' 0157 00257000 BNO @RF00157 0157 00258000 @RT00157 DS 0H 0158 00259000 * DO; 0158 00260000 * SDWASRSV=PVTWSA3(1:64);/* RESTORE REGS FOR PFTE 0159 00261000 * RETURN */ 00262000 L @12,CVTPTR 0159 00263000 L @12,PVTPTR(,@12) 0159 00264000 MVC SDWASRSV(64,SDWAPTR),PVTWSA3(@12) 0159 00265000 * SDWARTYA=SDWASR14;/* RETRY ADDRESS */ 00266000 L @12,SDWASR14(,SDWAPTR) 0160 00267000 ST @12,SDWARTYA(,SDWAPTR) 0160 00268000 * SDWARCDE=SDWARETY;/* RETRY RETURN CODE */ 00269000 MVI SDWARCDE(SDWAPTR),X'04' 0161 00270000 * RCAVEQRI='0'B; /* ZERO FOOTPRINT */ 00271000 NI RCAVEQRI(RCAPTR),B'11111101' 0162 00272000 * RCARCFI='0'B; /* ZERO FOOTPRINT */ 00273000 NI RCARCFI(RCAPTR),B'11111011' 0163 00274000 * GOTO DUMPCALL; /* TAKE DUMP */ 00275000 B DUMPCALL 0164 00276000 * END; 0165 00277000 * ELSE /* IF NOT AN INTERCEPT ROUTINE */ 00278000 * IF RCAPIX='1'B THEN /* WAS PIX PROCESSING? */ 00279000 @RF00157 TM RCAPIX(RCAPTR),B'10000000' 0166 00280000 BNO @RF00166 0166 00281000 * DO; 0167 00282000 * 0167 00283000 * /*************************************************/ 00284000 * /* */ 00285000 * /* IF THE FRR WAS ENTERED DUE TO ERRORS IN PAGE */ 00286000 * /* FAULT PROCESSING (NON-'C0D') RETRY AT THE */ 00287000 * /* ROUTINE PIXRETRY IN MODULE IEAVRCV */ 00288000 * /* */ 00289000 * /*************************************************/ 00290000 * 0168 00291000 * SDWASR01=RCAPARM1;/* SET UP REG1 WITH PARM */ 00292000 L @12,RCAPARM1(,RCAPTR) 0168 00293000 ST @12,SDWASR01(,SDWAPTR) 0168 00294000 * RCAPARM1=0; /* ZERO PARM FOR RETRY */ 00295000 SLR @12,@12 0169 00296000 ST @12,RCAPARM1(,RCAPTR) 0169 00297000 * SDWARTYA=ADDR(PIXRETRY);/* RETRY ROUTINE @ */ 00298000 LA @12,PIXRETRY 0170 00299000 ST @12,SDWARTYA(,SDWAPTR) 0170 00300000 * SDWASR02=RCAPTR;/* SAVE RCA PTR FOR PIXRETRY */ 00301000 ST RCAPTR,SDWASR02(,SDWAPTR) 0171 00302000 * SDWARCDE=SDWARETY;/* INDICATE RETRY */ 00303000 MVI SDWARCDE(SDWAPTR),X'04' 0172 00304000 * GOTO DUMPCALL; /* TAKE SDUMP */ 00305000 B DUMPCALL 0173 00306000 * END; 0174 00307000 * ELSE /* NOT PAGE FAULT PROCESSING */ 00308000 * IF RCASIRT='1'B|RCASWIN='1'B THEN/* CHECK FOR 0175 00309000 * SWAP-IN OR SWAP-IN ROOT EXIT 00310000 * IN ERROR @Z40WPYD*/ 00311000 @RF00166 TM RCASIRT(RCAPTR),B'00100000' 0175 00312000 BO @RT00175 0175 00313000 TM RCASWIN(RCAPTR),B'01000000' 0175 00314000 BNO @RF00175 0175 00315000 @RT00175 DS 0H 0176 00316000 * DO; /* YES,EITHER SWAP-IN OR SWIN 0176 00317000 * ROOT EXIT IN ERROR @Z40WPYD*/ 00318000 * RSMHDPTR=PVTWSA7(69:72);/* GET RSM HEADER PTR 00319000 * @Z40WPYD*/ 00320000 L @12,CVTPTR 0177 00321000 L @12,PVTPTR(,@12) 0177 00322000 ICM RSMHDPTR,15,PVTWSA7+68(@12) 0177 00323000 * RSMFAIL='1'B; /* INDICATE LSQA IS UNAVAILABLE 00324000 * @Z40WPYD*/ 00325000 * 0178 00326000 OI RSMFAIL(RSMHDPTR),B'00000010' 0178 00327000 * /***********************************************/ 00328000 * /* */ 00329000 * /* IF SWAP ROOT EXIT ROUTINE IN CONTROL AT TIME*/ 00330000 * /* OF ERROR, MEMTERM THE MEMORY IN TROUBLE AND */ 00331000 * /* RETRY */ 00332000 * /* */ 00333000 * /***********************************************/ 00334000 * 0179 00335000 * IF RCASIRT='1'B THEN/* CHECK SWAP-IN ROOT EXIT 00336000 * FLAG */ 00337000 TM RCASIRT(RCAPTR),B'00100000' 0179 00338000 BNO @RF00179 0179 00339000 * DO; 0180 00340000 * RASID=PVTWSA7(65:68);/* ASID TO 0181 00341000 * MEMTERM--THE SAVE AREA TO USE 00342000 * IS THE ONE PASSED BY RTM */ 00343000 ICM RASID,15,PVTWSA7+64(@12) 0181 00344000 * RSET5=RCAPTR;/* SAVE REG ACROSS CALLRTM */ 00345000 LR RSET5,RCAPTR 0182 00346000 * GENERATE; 0183 00347000 CALLRTM TYPE=MEMTERM,COMPCOD=X'028',ASID=(RASID) 00348000 * RCAPTR=RSET5;/* RESTORE REG */ 00349000 LR RCAPTR,RSET5 0184 00350000 * SDWASRSV=PVTWSA7(1:64);/* SET REGISTERS FOR 00351000 * RETRY */ 00352000 L @12,CVTPTR 0185 00353000 L @12,PVTPTR(,@12) 0185 00354000 MVC SDWASRSV(64,SDWAPTR),PVTWSA7(@12) 0185 00355000 * SDWARTYA=SDWASR14;/* RETRY @ FROM SAVED REG 00356000 * 14 */ 00357000 L @12,SDWASR14(,SDWAPTR) 0186 00358000 ST @12,SDWARTYA(,SDWAPTR) 0186 00359000 * SDWARCDE=SDWARETY;/* RETRY RETURN CODE */ 00360000 MVI SDWARCDE(SDWAPTR),X'04' 0187 00361000 * RCASIRT='0'B;/* TURN OFF FOOTPRINT */ 00362000 NI RCASIRT(RCAPTR),B'11011111' 0188 00363000 * GOTO DUMPCALL;/* TAKE DUMP */ 00364000 B DUMPCALL 0189 00365000 * END; 0190 00366000 * ELSE 0191 00367000 * IF RCASWIN='1'B THEN/* SWAP-IN IN CONTROL? */ 00368000 * 0191 00369000 @RF00179 TM RCASWIN(RCAPTR),B'01000000' 0191 00370000 BNO @RF00191 0191 00371000 * /*******************************************/ 00372000 * /* */ 00373000 * /* IF THE ERROR OCCURRED DURING SWAP-IN */ 00374000 * /* PROCESSING, MEMTERM THE MEMORY AND RETRY*/ 00375000 * /* AT THE ADDRESS IN CVTSRBRT - ACTUAL */ 00376000 * /* RETRY IS WITHIN RSM (AT PIXRETRY) TO */ 00377000 * /* FREE LOCKS GOTTEN BY RSM AND TO DELETE */ 00378000 * /* THE FRR BEFORE BRANCHING TO CVTSRBRT. */ 00379000 * /* */ 00380000 * /*******************************************/ 00381000 * 0192 00382000 *MEMTRM: 0192 00383000 * DO; 0192 00384000 MEMTRM DS 0H 0193 00385000 * RASID=RCAPARM1->ASCBASID;/* GET THE ASID 00386000 * TO MEMTERM @Z40WPYD*/ 00387000 L @12,RCAPARM1(,RCAPTR) 0193 00388000 LH RASID,ASCBASID(,@12) 0193 00389000 N RASID,@CF02408 0193 00390000 * RSET5=RCAPTR;/* SAVE REG ACROSS CALLRTM */ 00391000 LR RSET5,RCAPTR 0194 00392000 * GENERATE; 0195 00393000 * /* MEMTERM THE MEMORY IN TROUBLE*/ 00394000 CALLRTM TYPE=MEMTERM,COMPCOD=X'028',ASID=(RASID) 00395000 * RCAPTR=RSET5;/* RESTORE REG */ 00396000 LR RCAPTR,RSET5 0196 00397000 * SDWARTYA=ADDR(PIXRETRY);/* RETRY ADDRESS */ 00398000 LA @12,PIXRETRY 0197 00399000 ST @12,SDWARTYA(,SDWAPTR) 0197 00400000 * SDWASR02=RCAPTR;/* SAVE RCA PTR FOR 0198 00401000 * PIXRETRY */ 00402000 ST RCAPTR,SDWASR02(,SDWAPTR) 0198 00403000 * SDWARCDE=SDWARETY;/* INDICATE RETRY */ 00404000 MVI SDWARCDE(SDWAPTR),X'04' 0199 00405000 * GOTO DUMPCALL;/* GO TAKE DUMP */ 00406000 B DUMPCALL 0200 00407000 * END; 0201 00408000 * END; /* END OF RECOVERY FOR SWIN OR 0202 00409000 * SWIN ROOT EXIT @Z40WPYD*/ 00410000 * ELSE /* NOT A SWAP-IN NOR SWIN ROOT 0203 00411000 * EXIT @Z40WPYD*/ 00412000 * IF RCASWPP='1'B THEN 0203 00413000 * 0203 00414000 B @RC00175 0203 00415000 @RF00175 TM RCASWPP(RCAPTR),B'00000100' 0203 00416000 BNO @RF00203 0203 00417000 * /***********************************************/ 00418000 * /* */ 00419000 * /* IF SWPP WAS IN CONTROL AT THE TIME OF THE */ 00420000 * /* ERROR, THEN IF THE SALLOC IS HELD, FREE AND */ 00421000 * /* RETRY INTO SWPP IF THERE IS A NON-ZERO RETRY*/ 00422000 * /* ADDRESS. IF THE RETRY ADDRESS IS ZERO, THEN */ 00423000 * /* MEMTERM THE MEMORY @Z40WPYD. */ 00424000 * /* */ 00425000 * /***********************************************/ 00426000 * 0204 00427000 * DO; 0204 00428000 * IF RCASAL='1'B THEN/* IF THE SALLOC LOCK IS 00429000 * HELD RELEASE IT @Z40WPYD*/ 00430000 TM RCASAL(RCAPTR),B'10000000' 0205 00431000 BNO @RF00205 0205 00432000 * DO; 0206 00433000 * WORKA=RSET13;/* SAVE REG ACROSS SETLOCK */ 00434000 LR WORKA,RSET13 0207 00435000 * GENERATE; 0208 00436000 FRESAL SETLOCK RELEASE,TYPE=SALLOC,RELATED=(RSM,IEAVSWIN(SWINPOST)) 00437000 * RSET13=WORKA;/* RESTORE REG */ 00438000 LR RSET13,WORKA 0209 00439000 * RCASAL='0'B;/* RSM RELEASED SALLOC LOCK 00440000 * @Z40WPYD*/ 00441000 NI RCASAL(RCAPTR),B'01111111' 0210 00442000 * END; 0211 00443000 * IF RCARETAD^=0 THEN/* IS THERE A RETRY 0212 00444000 * ADDRESS @Z40WPYD*/ 00445000 @RF00205 SLR @12,@12 0212 00446000 L @08,RCARETAD(,RCAPTR) 0212 00447000 CR @08,@12 0212 00448000 BE @RF00212 0212 00449000 * DO; /* YES, THERE IS A RETRY ADDRESS 00450000 * @Z40WPYD*/ 00451000 * SDWASR00=RCAPARM0;/* RESTORE PARM */ 00452000 L @06,RCAPARM0(,RCAPTR) 0214 00453000 ST @06,SDWASR00(,SDWAPTR) 0214 00454000 * SDWASR01=RCAPARM1;/* RESTORE PARM */ 00455000 L @06,RCAPARM1(,RCAPTR) 0215 00456000 ST @06,SDWASR01(,SDWAPTR) 0215 00457000 * SDWARTYA=RCARETAD;/* RETRY ADDRESS */ 00458000 ST @08,SDWARTYA(,SDWAPTR) 0216 00459000 * SDWARCDE=SDWARETY;/* RETRY RETURN CODE */ 00460000 MVI SDWARCDE(SDWAPTR),X'04' 0217 00461000 * RCARETAD=0;/* ZERO RETRY @ TO PREVENT 0218 00462000 * RECURSION */ 00463000 ST @12,RCARETAD(,RCAPTR) 0218 00464000 * GOTO DUMPCALL;/* TAKE DUMP */ 00465000 B DUMPCALL 0219 00466000 * END; 0220 00467000 * ELSE /* ZERO RETRY ADDRESS */ 00468000 * SDWARCDE=SDWACWT;/* INDICATE PERCOLATION 0221 00469000 * @Z40WPYD*/ 00470000 @RF00212 MVI SDWARCDE(SDWAPTR),X'00' 0221 00471000 * GOTO LLREL; /* IF SWPP CANNOT HANDLE RETRY, 00472000 * CONTINUE WITH TERMINATION 0222 00473000 * @Z40WPYD*/ 00474000 B LLREL 0222 00475000 * END; 0223 00476000 * ELSE /* NOT SWAP OUT EITHER */ 00477000 * 0224 00478000 * /***********************************************/ 00479000 * /* */ 00480000 * /* IF INVALIDATE MASTER ROUTINE ENCOUNTERED AN */ 00481000 * /* ERROR, DUPLICATE PTLB AND PAGE INVALIDATE */ 00482000 * /* FUNCTIONS */ 00483000 * /* */ 00484000 * /***********************************************/ 00485000 * 0224 00486000 * IF RCAINV='1'B THEN/* WAS INVALIDATE MASTER IN 00487000 * CONTROL? */ 00488000 @RF00203 TM RCAINV(RCAPTR),B'00000001' 0224 00489000 BNO @RF00224 0224 00490000 * DO; 0225 00491000 * IF SDWAPERC^='1'B THEN/* IF NOT A 0226 00492000 * PERCOLATION CASE */ 00493000 TM SDWAPERC(SDWAPTR),B'00010000' 0226 00494000 BO @RF00226 0226 00495000 * IF SLAVSPIN='1'B THEN/* IF SLAVSPIN ON, 00496000 * SIGP WAS ISSUED */ 00497000 L @12,CVTPTR 0227 00498000 L @12,PVTPTR(,@12) 0227 00499000 TM SLAVSPIN(@12),B'10000000' 0227 00500000 BNO @RF00227 0227 00501000 * DO; /* IF SO, DUPLICATE 0228 00502000 * PROCESSING--IF SECOND ERROR 0228 00503000 * OCCURS, PERCOLATION IS DESIRED*/ 00504000 * IF PTEPTR^=0 THEN/* CHECK FOR PTLB 0229 00505000 * ONLY */ 00506000 L @12,PTEPTR(,SDWAPTR) 0229 00507000 LTR @12,@12 0229 00508000 BZ @RF00229 0229 00509000 * PGTPVM='1'B;/* SET INVALID BIT */ 00510000 OI PGTPVM(@12),B'00001000' 0230 00511000 * PVTPTLB=GO;/* RESET GO INDICATOR AND 00512000 * FRR RECURSE BIT IF IT HAD BEEN 00513000 * SET ON */ 00514000 @RF00229 L @12,CVTPTR 0231 00515000 L @12,PVTPTR(,@12) 0231 00516000 MVI PVTPTLB(@12),X'80' 0231 00517000 * GENERATE; 0232 00518000 PTLB PURGE BUFFERS 00519000 * SDWASRSV=PVTWSA14;/* RESTORE INV'S 0233 00520000 * CALLER'S REGS */ 00521000 L @12,CVTPTR 0233 00522000 L @12,PVTPTR(,@12) 0233 00523000 MVC SDWASRSV(64,SDWAPTR),PVTWSA14(@12) 0233 00524000 * SDWARTYA=SDWASR14;/* INV'S RETURN 0234 00525000 * POINT */ 00526000 L @12,SDWASR14(,SDWAPTR) 0234 00527000 ST @12,SDWARTYA(,SDWAPTR) 0234 00528000 * SDWARCDE=SDWARETY;/* INDICATE RETRY */ 00529000 MVI SDWARCDE(SDWAPTR),X'04' 0235 00530000 * RCAINV='0'B;/* RESET INV FLAG */ 00531000 NI RCAINV(RCAPTR),B'11111110' 0236 00532000 * GOTO DUMPCALL;/* TAKE DUMP */ 00533000 B DUMPCALL 0237 00534000 * END; 0238 00535000 * ELSE /* IF SIGP NOT ALREADY ISSUED */ 00536000 * IF RECURSE='0'B THEN/* IF THIS IS NOT A 00537000 * RECURSION ENTRY */ 00538000 @RF00227 L @12,CVTPTR 0239 00539000 L @12,PVTPTR(,@12) 0239 00540000 TM RECURSE(@12),B'00001000' 0239 00541000 BNZ @RF00239 0239 00542000 * DO; 0240 00543000 * PVTPTLB=GO;/* RESET GO INDICATOR */ 00544000 MVI PVTPTLB(@12),X'80' 0241 00545000 * RECURSE='1'B;/* TURN ON RECURSION 00546000 * BIT FOR RETRY */ 00547000 OI RECURSE(@12),B'00001000' 0242 00548000 * SDWASRSV=PVTWSA14;/* RESTORE REGS */ 00549000 MVC SDWASRSV(64,SDWAPTR),PVTWSA14(@12) 0243 00550000 * SDWARTYA=ADDR(INVRETRY);/* RETRY 0244 00551000 * ADDRESS IN IEAVINV */ 00552000 L @12,@CV02285 0244 00553000 ST @12,SDWARTYA(,SDWAPTR) 0244 00554000 * SDWARCDE=SDWARETY;/* INDICATE RETRY*/ 00555000 MVI SDWARCDE(SDWAPTR),X'04' 0245 00556000 * GOTO DUMPCALL;/* GO DUMP AND RETRY */ 00557000 B DUMPCALL 0246 00558000 * END; 0247 00559000 * ELSE 0248 00560000 * ; /* FOR RECURSION, PERCOLATE */ 00561000 @RF00239 DS 0H 0249 00562000 * ELSE 0249 00563000 * ; /* FOR PERCOLATION, CONTINUE WITH 00564000 * TERMINATION */ 00565000 @RF00226 DS 0H 0250 00566000 * SDWARCDE=SDWACWT;/* CONTINUE WITH 0250 00567000 * TERMINATION */ 00568000 MVI SDWARCDE(SDWAPTR),X'00' 0250 00569000 * PVTPTLB=GO;/* RESET GO INDICATOR */ 00570000 L @12,CVTPTR 0251 00571000 L @12,PVTPTR(,@12) 0251 00572000 MVI PVTPTLB(@12),X'80' 0251 00573000 * GOTO LLREL;/* FREE RSM OBTAINED LOCKS */ 00574000 B LLREL 0252 00575000 * END; 0253 00576000 * ELSE /* NOT INVALIDATE */ 00577000 * IF RCARETAD^=0 THEN/* CHECK FOR ANOTHER 0254 00578000 * RETRIABLE CASE */ 00579000 @RF00224 SLR @12,@12 0254 00580000 L @08,RCARETAD(,RCAPTR) 0254 00581000 CR @08,@12 0254 00582000 BE @RF00254 0254 00583000 * DO; 0255 00584000 * 0255 00585000 * /*****************************************/ 00586000 * /* */ 00587000 * /* GENERAL RETRY--IF RCARETAD DOES NOT */ 00588000 * /* EQUAL ZERO, RETRY AT THIS ADDRESS TO */ 00589000 * /* ALLOW ROUTINE TO ATTEMPT OWN RECOVERY */ 00590000 * /* */ 00591000 * /*****************************************/ 00592000 * 0256 00593000 * SDWASR01=RCAPARM1;/* MOVE PARMS FROM RCA */ 00594000 L @06,RCAPARM1(,RCAPTR) 0256 00595000 ST @06,SDWASR01(,SDWAPTR) 0256 00596000 * SDWASR00=RCAPARM0;/* TO SDWA */ 00597000 L @06,RCAPARM0(,RCAPTR) 0257 00598000 ST @06,SDWASR00(,SDWAPTR) 0257 00599000 * SDWASR03=CVTPVTP;/* PVT PTR FOR RETRY 0258 00600000 * ROUTINE */ 00601000 L @06,CVTPTR 0258 00602000 L @06,CVTPVTP(,@06) 0258 00603000 ST @06,SDWASR03(,SDWAPTR) 0258 00604000 * SDWARTYA=RCARETAD;/* RETRY ADDRESS */ 00605000 ST @08,SDWARTYA(,SDWAPTR) 0259 00606000 * SDWARCDE=SDWARETY;/* RETRY RETURN CODE */ 00607000 MVI SDWARCDE(SDWAPTR),X'04' 0260 00608000 * RCARETAD=0;/* ZERO PRESENT ADDRESS IN RCA*/ 00609000 ST @12,RCARETAD(,RCAPTR) 0261 00610000 * GOTO DUMPCALL;/* TAKE DUMP */ 00611000 B DUMPCALL 0262 00612000 * END; 0263 00613000 * ELSE 0264 00614000 * 0264 00615000 * /*******************************************/ 00616000 * /* */ 00617000 * /* IF PSI PROGRAM CHECKED ON BAD INPUT */ 00618000 * /* PARAMETERS, CHANGE ABEND CODE TO X'171' */ 00619000 * /* AND CONTINUE TO TERMINATE PSI'S CALLER */ 00620000 * /* */ 00621000 * /*******************************************/ 00622000 * 0264 00623000 * IF SDWAPCHK='1'B&RCAPSIER='1'B THEN/* IF A 00624000 * PGM CHECK OCCURRED WHILE PSI 00625000 * WAS PROCESSING CALLER'S PARMS,*/ 00626000 @RF00254 TM SDWAPCHK(SDWAPTR),B'01000000' 0264 00627000 BNO @RF00264 0264 00628000 TM RCAPSIER(RCAPTR),B'00010000' 0264 00629000 BNO @RF00264 0264 00630000 * DO; 0265 00631000 * SDWACMPC=ABEND171;/* CHANGE ABEND CODE 00632000 * TO X'171' */ 00633000 MVC SDWACMPC(3,SDWAPTR),ABEND171 0266 00634000 * SDWAGR15=RC16;/* SET UP REGS AT TIME OF 00635000 * ABEND TO CONTAIN MEANINGFUL 0267 00636000 * INFO FOR DUMP */ 00637000 MVC SDWAGR15(4,SDWAPTR),@CF00052 0267 00638000 * SDWAGR11=CIWINVSL; 0268 00639000 L @12,CVTPTR 0268 00640000 L @12,PVTPTR(,@12) 0268 00641000 L @12,CIWAPTR(,@12) 0268 00642000 L @08,CIWINVSL(,@12) 0268 00643000 ST @08,SDWAGR11(,SDWAPTR) 0268 00644000 * SDWAGR12=CIWECB; 0269 00645000 L @08,CIWECB(,@12) 0269 00646000 ST @08,SDWAGR12(,SDWAPTR) 0269 00647000 * SDWAGR13=CIWSTRT; 0270 00648000 L @08,CIWSTRT(,@12) 0270 00649000 ST @08,SDWAGR13(,SDWAPTR) 0270 00650000 * SDWAGR14=CIWEND1; 0271 00651000 L @12,CIWEND1(,@12) 0271 00652000 ST @12,SDWAGR14(,SDWAPTR) 0271 00653000 * SDWARCDE=SDWACWT; 0272 00654000 MVI SDWARCDE(SDWAPTR),X'00' 0272 00655000 * GOTO LLREL;/* GO FREE LOCKS AND DUMP */ 00656000 B LLREL 0273 00657000 * END; 0274 00658000 * ELSE /* @ZA11386*/ 00659000 * 0275 00660000 * /*****************************************/ 00661000 * /* */ 00662000 * /* CHECK FOR FIX/LOAD ROOT EXIT IN */ 00663000 * /* CONTROL IN SRB MODE, AND A TCB ADDRESS*/ 00664000 * /* SPECIFIED. IF SO, TERMINATE THE TASK */ 00665000 * /* WITH AN 028 ABEND. */ 00666000 * /* */ 00667000 * /*****************************************/ 00668000 * 0275 00669000 * IF RCAFXL='1'B&SDWASRBM='1'B&PCBRTCBA^=0 00670000 * THEN /* @ZA11386*/ 00671000 @RF00264 TM RCAFXL(RCAPTR),B'01000000' 0275 00672000 BNO @RF00275 0275 00673000 TM SDWASRBM(SDWAPTR),B'00000001' 0275 00674000 BNO @RF00275 0275 00675000 L @12,CVTPTR 0275 00676000 L @12,PVTPTR(,@12) 0275 00677000 L @12,PCBRPTR(,@12) 0275 00678000 L @08,PCBRTCBA-1(,@12) 0275 00679000 LA @08,0(,@08) 0275 00680000 LTR @08,@08 0275 00681000 BZ @RF00275 0275 00682000 * DO; /* TERMINATE THE TASK @ZA11386*/ 00683000 * RASID=PCBRASCB->ASCBASID;/* ASID FOR 00684000 * ABTERM INTF @ZA11386*/ 00685000 L @12,PCBRASCB(,@12) 0277 00686000 LH RASID,ASCBASID(,@12) 0277 00687000 N RASID,@CF02408 0277 00688000 * WORKA=PCBRTCBA;/* TCB ADDR FOR ABTERM 00689000 * INTF @ZA11386*/ 00690000 LR WORKA,@08 0278 00691000 * RSET5=RCAPTR;/* SAVE RCA ADDR ACROSS 00692000 * ABTERM @ZA11386*/ 00693000 LR RSET5,RCAPTR 0279 00694000 * GENERATE; 0280 00695000 * /* @ZA11386*/ 00696000 CALLRTM TYPE=ABTERM,COMPCOD=X'028',ASID=(RASID),TCB=(WORKA), **00697000 STEP=NO,DUMP=NO @ZA11386 00698000 * RCAPTR=RSET5;/* RESTORE RCA POINTER 00699000 * @ZA11386*/ 00700000 LR RCAPTR,RSET5 0281 00701000 * END; /* TERMINATE THE TASK @ZA11386*/ 00702000 * ELSE 0283 00703000 * ; /* NO MORE RETRIES */ 00704000 @RF00275 DS 0H 0284 00705000 * ELSE 0284 00706000 * ; /* NOW HANDLE NON-RETRYS */ 00707000 * 0284 00708000 @RF00156 DS 0H 0285 00709000 * /*********************************************************/ 00710000 * /* */ 00711000 * /* IF RETRY IS NOT POSSIBLE RECORD, TAKE DUMP, CONTINUE */ 00712000 * /* WITH TERMINATION */ 00713000 * /* */ 00714000 * /*********************************************************/ 00715000 * 0285 00716000 * COMPCD1=SDWACMPC; /* RECORD COMPLETION CODE */ 00717000 @RC00156 MVC COMPCD1(3,SDWAPTR),SDWACMPC(SDWAPTR) 0285 00718000 * SDWACMPC=PAGERROR; /* CHANGE CODE TO '028' */ 00719000 MVC SDWACMPC(3,SDWAPTR),PAGERROR 0286 00720000 * COMPCD2=PAGERROR; /* RECORD CHANGED CODE */ 00721000 MVC COMPCD2(3,SDWAPTR),PAGERROR 0287 00722000 * SDWAEAS='1'B; /* INDICATE RECOVERY HANDLED */ 00723000 OI SDWAEAS(SDWAPTR),B'00001000' 0288 00724000 * END; 0289 00725000 * END; 0290 00726000 * SDWARCDE=SDWACWT; /* INDICATE CONTINUE WITH 0291 00727000 * TERMINATION */ 00728000 @RC00143 MVI SDWARCDE(SDWAPTR),X'00' 0291 00729000 *LLREL: 0292 00730000 * IF RCALL='1'B THEN /* IF RSM OBTAINED LOCAL LOCK, */ 00731000 LLREL TM RCALL(RCAPTR),B'01000000' 0292 00732000 BNO @RF00292 0292 00733000 * SDWAFLLK='1'B; /* TELL RTM TO FREE IT */ 00734000 OI SDWAFLLK(SDWAPTR),B'00000001' 0293 00735000 * IF RCASAL='1'B THEN /* IF RSM OBTAINED SALLOC LOCK, */ 00736000 @RF00292 TM RCASAL(RCAPTR),B'10000000' 0294 00737000 BNO @RF00294 0294 00738000 * SDWASALL='1'B; /* TELL RTM TO FREE IT */ 00739000 OI SDWASALL(SDWAPTR),B'00000100' 0295 00740000 * IF RCADISP='1'B THEN /* IF RSM OBTAINED DISP LOCK 0296 00741000 * @ZA28519*/ 00742000 @RF00294 TM RCADISP(RCAPTR),B'00000010' 0296 00743000 BNO @RF00296 0296 00744000 * SDWADISP='1'B; /* TELL RTM TO FREE IT @ZA28519*/ 00745000 * 0297 00746000 OI SDWADISP(SDWAPTR),B'00010000' 0297 00747000 * /*****************************************************************/ 00748000 * /* */ 00749000 * /* DO NOT DUMP IF ABEND PURPOSELY ISSUED, OR IF PSI PROGRAM */ 00750000 * /* CHECKED ON BAD PARMS. */ 00751000 * /* */ 00752000 * /*****************************************************************/ 00753000 * 0298 00754000 * IF RCAABEND='1'B|RCAPSIER='1'B THEN 0298 00755000 @RF00296 TM RCAABEND(RCAPTR),B'00110000' 0298 00756000 BNZ @RT00298 0298 00757000 * GOTO EXITING; /* EXIT PROCESSING */ 00758000 * 0299 00759000 * /*****************************************************************/ 00760000 * /* */ 00761000 * /* SET UP TO SCHEDULE DUMP OF SQA,PVT,PFT. IF IEAVRCV IS RUNNING */ 00762000 * /* IN THE FAILING MEMORY, DUMP LSQA ALSO */ 00763000 * /* */ 00764000 * /*****************************************************************/ 00765000 * 0300 00766000 *DUMPCALL: 0300 00767000 * ; /* @G33VPOD*/ 00768000 DUMPCALL DS 0H 0301 00769000 * IF RCAPRSB='0'B&RCAPRSR='0'B&RCAPRSS='0'B THEN 0301 00770000 TM RCAPRSB(RCAPTR),B'00111000' 0301 00771000 BNZ @RF00301 0301 00772000 * DO; /* IF NEITHER OF THE ENTRY POINTS 00773000 * IN IEAVPRSB WAS IN ERROR, A 0302 00774000 * SDUMP MAY BE SCHEDULED 0302 00775000 * @G33VPOD*/ 00776000 * RASID=0; /* INDICATE SCHEDULE DUMP TO 0303 00777000 * CURRENT A.S. */ 00778000 SLR RASID,RASID 0303 00779000 * PVTND=CVTPVTP+LENGTH(PVT)-1;/* END OF PVT @Z40WPYD*/ 00780000 L @12,CVTPTR 0304 00781000 L @08,CVTPVTP(,@12) 0304 00782000 SL @08,@CF02403 0304 00783000 ST @08,PVTND 0304 00784000 * PFTBEGIN=PVTPFTP; /* START OF PFT */ 00785000 L @12,PVTPTR(,@12) 0305 00786000 L @08,PVTPFTP(,@12) 0305 00787000 ST @08,PFTBEGIN 0305 00788000 * PFTEND=PVTPFTP+PVTLPFN+LENGTH(PFTE);/* END OF PFT */ 00789000 LH @12,PVTLPFN(,@12) 0306 00790000 N @12,@CF02408 0306 00791000 ALR @08,@12 0306 00792000 AL @08,@CF00052 0306 00793000 ST @08,PFTEND 0306 00794000 * END1='80'X; /* END OF STORAGE LIST */ 00795000 MVI END1,X'80' 0307 00796000 * IF SDWAFMID=0 THEN /* RUNNING IN FAILING MEMORY? */ 00797000 LH @12,SDWAFMID(,SDWAPTR) 0308 00798000 N @12,@CF02408 0308 00799000 LTR @12,@12 0308 00800000 BNZ @RF00308 0308 00801000 * DO; /* SAVE AREA IS WORKAREA PASSED 00802000 * BY RTM */ 00803000 * GENERATE; 0310 00804000 SDUMP SDATA=(LSQA,SQA),LIST=DUMPARMS,ASID=(RASID), **00805000 HDR='ERROR IN REAL STORAGE MANAGER',BRANCH=YES @ZA11386 00806000 * END; 0311 00807000 * ELSE /* DO NOT DUMP LSQA */ 00808000 * DO; 0312 00809000 B @RC00308 0312 00810000 @RF00308 DS 0H 0313 00811000 * GENERATE; 0313 00812000 SDUMP SDATA=(SQA),LIST=DUMPARMS,ASID=(RASID), **00813000 HDR='ERROR IN REAL STORAGE MANAGER',BRANCH=YES @ZA11386 00814000 * END; 0314 00815000 * END; 0315 00816000 @RC00308 DS 0H 0316 00817000 *EXITING: /* COMPLETE CLEAN-UP */ 00818000 * GENERATE; 0316 00819000 @RF00301 DS 0H 0316 00820000 EXITING DS 0H 0316 00821000 * /*DELETE FRR COVERAGE FOR IEAVRCV*/ 00822000 SETFRR D,WRKREGS=(WORKA,WORKB) 00823000 * PARMREG=SDWAPTR; /* SDWA PTR IN REG1 FOR RTM */ 00824000 LR PARMREG,SDWAPTR 0317 00825000 * RRETURN=S14; /* RESTORE RETURN @ */ 00826000 L RRETURN,S14(,RSET13) 0318 00827000 * GOTO RRETURN; /* RETURN TO RTM */ 00828000 BR RRETURN 0319 00829000 * 0320 00830000 * /*****************************************************************/ 00831000 * /* */ 00832000 * /* THIS IS THE RECOVERY FOR ERRORS ENCOUNTERED WHILE TRYING TO */ 00833000 * /* PTLB ON OTHER THAN MASTER CPU DURING PAGE INVALIDATE */ 00834000 * /* PROCESSING. THIS ROUTINE WILL BE CALLED BE SUPER FRR FOR ALL */ 00835000 * /* EXTERNAL CALLS RECOVERY. */ 00836000 * /* */ 00837000 * /*****************************************************************/ 00838000 * 0320 00839000 *INVSRTRY: 0320 00840000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0320 00841000 INVSRTRY DS 0H 0321 00842000 * GENERATE; 0321 00843000 ENTRY INVSRTRY 00844000 BALR BASEREG,0 EST. ADDRESSABILITY 00845000 USING *,BASEREG 00846000 * RESPECIFY 0322 00847000 * (RRETREG, 0322 00848000 * SUPER) RSTD; /* SAVE FOR SUPER */ 00849000 * LCCAPTR=PSALCCAV; /* BASE FOR LCCA */ 00850000 L LCCAPTR,PSALCCAV 0323 00851000 * IF LCCAPTLB='1'B THEN /* IF SLAVE WAS IN CONTROL AT 0324 00852000 * TIME OF ERROR, RESET SPIN BITS 00853000 * AND PTLB */ 00854000 TM LCCAPTLB(LCCAPTR),B'10000000' 0324 00855000 BNO @RF00324 0324 00856000 * DO; 0325 00857000 * LCCAPTLB='0'B; /* RESET SLAVE'S SPIN BIT */ 00858000 NI LCCAPTLB(LCCAPTR),B'01111111' 0326 00859000 * SLAVSPIN='0'B; /* RESET SLAVSPIN INDICATOR */ 00860000 L @14,CVTPTR 0327 00861000 L @14,PVTPTR(,@14) 0327 00862000 NI SLAVSPIN(@14),B'01111111' 0327 00863000 * GENERATE; 0328 00864000 PTLB PURGE BUFFERS 00865000 * END; 0329 00866000 * GOTO SUPER; /* RETURN TO EXTERNAL FLIH 0330 00867000 * RECOVERY */ 00868000 @RF00324 BR SUPER 0330 00869000 * RESPECIFY 0331 00870000 * (SUPER, 0331 00871000 * RRETREG) UNRSTD; 0331 00872000 * END INVSRTRY; 0332 00873000 * 0333 00874000 * /*****************************************************************/ 00875000 * /* */ 00876000 * /* THIS IS THE RETRY ROUTINE FOR ERRORS ENCOUNTERED DURING PAGE */ 00877000 * /* FAULT PROCESSING. IT ISSUES RESET IF NECESSARY, AND RETURNS TO*/ 00878000 * /* THE PCFLIH. IT INCLUDES THE HANDLING OF FREEING LOCKS AND */ 00879000 * /* DELETING THE RSM FRR FOR THE CASES OF SWIN WHERE RESUMED */ 00880000 * /* PROCESSING AT CVTSRBRT IS DESIRED . */ 00881000 * /* */ 00882000 * /*****************************************************************/ 00883000 * 0333 00884000 *PIXRETRY: 0333 00885000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0333 00886000 PIXRETRY DS 0H 0334 00887000 * GENERATE; 0334 00888000 BALR BASEREG,0 SET UP ADDRESSABILITY 00889000 USING *,BASEREG 00890000 * IF RCAPIX^='1'B THEN /* IF NOT PIX ENTRY, THEN JUST 0335 00891000 * CLEAN UP LOCKS GOTTEN BY RSM 00892000 * AND RETRY AT CVTSRBRT */ 00893000 TM RCAPIX(RCAPTR),B'10000000' 0335 00894000 BO @RF00335 0335 00895000 * DO; 0336 00896000 * IF RCALL='1'B THEN /* RSM GOT LOCAL LOCK? */ 00897000 TM RCALL(RCAPTR),B'01000000' 0337 00898000 BNO @RF00337 0337 00899000 * DO; 0338 00900000 * RCALL='0'B; 0339 00901000 NI RCALL(RCAPTR),B'10111111' 0339 00902000 * GENERATE; 0340 00903000 SETLOCK RELEASE,TYPE=LOCAL,RELATED=(LOCAL,IEAVSWIN(SWING**00904000 ET)) 00905000 * END; 0341 00906000 * GOTO ENDPIX; /* CHECK FOR RSM GOT SALLOC */ 00907000 B ENDPIX 0342 00908000 * END; 0343 00909000 * IF RTRYPARM=0 THEN /* IF NO PCB EXISTS, */ 00910000 @RF00335 LTR RTRYPARM,RTRYPARM 0344 00911000 BNZ @RF00344 0344 00912000 * RRETREG=RC12; /* R.C. TO PCFLIH = 12 */ 00913000 LA RRETREG,12 0345 00914000 * ELSE /* IF A PCB EXITS, */ 00915000 * DO; /* TRY TO SAVE THE TASK */ 00916000 * 0346 00917000 B @RC00344 0346 00918000 @RF00344 DS 0H 0347 00919000 * /*************************************************************/ 00920000 * /* */ 00921000 * /* IF A RESET IS TO BE DONE AND GFA WAS CALLED BEFORE THE */ 00922000 * /* ERROR, THEN GO TO RESET ROUTINE */ 00923000 * /* */ 00924000 * /*************************************************************/ 00925000 * 0347 00926000 * IF PCBRESET='1'B THEN /* TASK RESET? */ 00927000 TM PCBRESET(PCBPTR),B'00010000' 0347 00928000 BNO @RF00347 0347 00929000 * IF RCAGFA='1'B THEN /* GFA IN CONTROL? */ 00930000 TM RCAGFA(RCAPTR),B'00000010' 0348 00931000 BNO @RF00348 0348 00932000 * DO; 0349 00933000 * IF PCBSRBMD='1'B THEN /* SRB MODE? */ 00934000 TM PCBSRBMD(PCBPTR),B'00100000' 0350 00935000 BNO @RF00350 0350 00936000 * DO; /* IF YES, */ 00937000 * RSET4=PCBSRB; /* PUT SRB ADDRESS IN REGISTER 4 */ 00938000 L RSET4,PCBSRB(,PCBPTR) 0352 00939000 * RSET5=0; /* ZERO REGISTER 5 */ 00940000 SLR RSET5,RSET5 0353 00941000 * END; 0354 00942000 * ELSE /* TCB MODE */ 00943000 * DO; 0355 00944000 B @RC00350 0355 00945000 @RF00350 DS 0H 0356 00946000 * RSET4=PCBRTPA; /* SET TCB ADDRESS */ 00947000 L RSET4,PCBRTPA-1(,PCBPTR) 0356 00948000 LA RSET4,0(,RSET4) 0356 00949000 * RSET5=PCBSRB; /* SET RB ADDRESS */ 00950000 L RSET5,PCBSRB(,PCBPTR) 0357 00951000 * END; 0358 00952000 * RTRYPARM=0; /* SET PARM TO ZERO FOR RECURSION 00953000 * POSSIBILITY */ 00954000 @RC00350 SLR RTRYPARM,RTRYPARM 0359 00955000 * RSET6=PAGERROR; /* COMP CODE TO RESET */ 00956000 SLR RSET6,RSET6 0360 00957000 ICM RSET6,7,PAGERROR 0360 00958000 * RSET13=ADDR(PVTSAVE); /* SAVE AREA TO RESET */ 00959000 L @08,CVTPTR 0361 00960000 L @08,PVTPTR(,@08) 0361 00961000 LA RSET13,PVTSAVE(,@08) 0361 00962000 * CALL IEAVRSET; /* RESET ROUTINE */ 00963000 L @15,PVTPRSET(,@08) 0362 00964000 BALR @14,@15 0362 00965000 * END; 0363 00966000 * RRETREG=0; /* R.C. TO PCFLIH = 0 */ 00967000 @RF00348 DS 0H 0364 00968000 @RF00347 SLR RRETREG,RRETREG 0364 00969000 * END; /* TASK HAS BEEN SUSPENDED */ 00970000 *ENDPIX: 0366 00971000 * IF RCASAL='1'B THEN /* IF RSM GOT SALLOC LOCK, */ 00972000 @RC00344 DS 0H 0366 00973000 ENDPIX TM RCASAL(RCAPTR),B'10000000' 0366 00974000 BNO @RF00366 0366 00975000 * DO; 0367 00976000 * RCASAL='0'B; /* ZERO FLAG TO PREVENT POSSIBLE 00977000 * RECURSION */ 00978000 NI RCASAL(RCAPTR),B'01111111' 0368 00979000 * GENERATE; 0369 00980000 * /* RELEASE SALLOC*/ 00981000 SETLOCK RELEASE,TYPE=SALLOC,RELATED=(SALLOC,IEAVPIX(GETLOCK)) 00982000 * END; 0370 00983000 * IF RCAPIX='1'B THEN /* RETURN @ FOR PIX ENTRY */ 00984000 @RF00366 TM RCAPIX(RCAPTR),B'10000000' 0371 00985000 BNO @RF00371 0371 00986000 * RRETURN=ADDR(IEAVEPXR); /* RETURN @ IN PC FLIH */ 00987000 L RRETURN,@CV02282 0372 00988000 * ELSE /* RETURN @ FOR SWIN */ 00989000 * RRETURN=CVTSRBRT; 0373 00990000 B @RC00371 0373 00991000 @RF00371 L @12,CVTPTR 0373 00992000 L RRETURN,CVTSRBRT(,@12) 0373 00993000 * GENERATE; 0374 00994000 @RC00371 DS 0H 0374 00995000 * /*DELETE FRR COVERAGE*/ 00996000 SETFRR D,WRKREGS=(WORKA,WORKB) 00997000 * GOTO RRETURN; /* RETURN TO PC FLIH */ 00998000 BR RRETURN 0375 00999000 * END PIXRETRY; 0376 01000000 * 0377 01001000 */********************************************************************/ 01002000 */* THIS IS THE FUNCTIONAL RECOVERY ROUTINE FOR */ 01003000 */* MODULE IEAVRCV, THE RSM GENERAL FRR. */ 01004000 */********************************************************************/ 01005000 * 0377 01006000 *IEAVRCV3: 0377 01007000 * PROC OPTIONS(NOSAVEAREA,DONTSAVE); 0377 01008000 IEAVRCV3 DS 0H 0378 01009000 * GENERATE; 0378 01010000 BALR BASEREG,0 ESTABLISH ADDRESSABILITY 01011000 USING *,BASEREG 01012000 * SDWAPTR=PARMREG; /* BASE FOR SDWA */ 01013000 LR SDWAPTR,PARMREG 0379 01014000 * NEWRCA=SDWAPARM; /* BASE FOR CURRENT RCA */ 01015000 L NEWRCA,SDWAPARM(,SDWAPTR) 0380 01016000 * RCAPTR=OLDRCA; /* POINT TO OLD RCA */ 01017000 L RCAPTR,OLDRCA(,NEWRCA) 0381 01018000 * RSET13=R0; /* WORK AREA PASSED TO FRR BY RTM*/ 01019000 LR RSET13,R0 0382 01020000 * IF RCALL='1'B THEN /* IF RSM GOT LOCAL LOCK, */ 01021000 TM RCALL(RCAPTR),B'01000000' 0383 01022000 BNO @RF00383 0383 01023000 * SDWAFLLK='1'B; /* TELL RTM TO FREE IT */ 01024000 OI SDWAFLLK(SDWAPTR),B'00000001' 0384 01025000 * IF RCASAL='1'B THEN /* IF RSM GOT SALLOC LOCK, */ 01026000 @RF00383 TM RCASAL(RCAPTR),B'10000000' 0385 01027000 BNO @RF00385 0385 01028000 * SDWASALL='1'B; /* TELL RTM TO FREE IT */ 01029000 OI SDWASALL(SDWAPTR),B'00000100' 0386 01030000 * IF RCADISP='1'B THEN /* IF RSM OBTAINED DISP LOCK 0387 01031000 * @ZA28519*/ 01032000 @RF00385 TM RCADISP(RCAPTR),B'00000010' 0387 01033000 BNO @RF00387 0387 01034000 * SDWADISP='1'B; /* TELL TRM TO FREE IT @ZA28519*/ 01035000 OI SDWADISP(SDWAPTR),B'00010000' 0388 01036000 * SDWARCRD='1'B; /* INDICATE RECORDING */ 01037000 @RF00387 OI SDWARCRD(SDWAPTR),B'10000000' 0389 01038000 * SDWARCDE=SDWACWT; /* CONTINUE WITH TERMINATION */ 01039000 MVI SDWARCDE(SDWAPTR),X'00' 0390 01040000 * SDWACSCT='IEAVRCV'; /* MODULE AT TIME OF ERROR */ 01041000 MVI SDWACSCT+7(SDWAPTR),C' ' 0391 01042000 MVC SDWACSCT(7,SDWAPTR),@CC02364 0391 01043000 * SDWAMODN=SDWACSCT; /* CSECT AT TIME OF ERROR */ 01044000 MVC SDWAMODN(8,SDWAPTR),SDWACSCT(SDWAPTR) 0392 01045000 * SDWAREXN='IEAVRCV2'; /* FRR ROUTINE NAME */ 01046000 MVC SDWAREXN(8,SDWAPTR),@CC02391 0393 01047000 * RASID=0; /* SCHEDULE DUMP TO CURRENT A.S. */ 01048000 SLR RASID,RASID 0394 01049000 * PVTND=CVTPVTP+LENGTH(PVT)-1; /* END OF PVT @Z40WPYD*/ 01050000 L @12,CVTPTR 0395 01051000 L @08,CVTPVTP(,@12) 0395 01052000 SL @08,@CF02403 0395 01053000 ST @08,PVTND 0395 01054000 * PFTBEGIN=PVTPFTP; /* START OF PFT */ 01055000 L @12,PVTPTR(,@12) 0396 01056000 L @08,PVTPFTP(,@12) 0396 01057000 ST @08,PFTBEGIN 0396 01058000 * PFTEND=PVTPFTP+PVTLPFN+LENGTH(PFTE);/* END OF PFT */ 01059000 LH @12,PVTLPFN(,@12) 0397 01060000 N @12,@CF02408 0397 01061000 ALR @08,@12 0397 01062000 AL @08,@CF00052 0397 01063000 ST @08,PFTEND 0397 01064000 * END1='80'X; /* END OF STORAGE LIST */ 01065000 MVI END1,X'80' 0398 01066000 * WORKA=RRETURN; /* SAVE RETURN ADDRESS OVER SDUMP 01067000 * @ZA03619*/ 01068000 LR WORKA,RRETURN 0399 01069000 * GENERATE; 0400 01070000 SDUMP SDATA=(SQA),LIST=DUMPARMS,ASID=(RASID),BRANCH=YES, **01071000 HDR='ERROR IN REAL STORAGE MANAGER FRR' @ZA11386 01072000 * RRETURN=WORKA; /* RESTORE RETURN ADDRESS 0401 01073000 * @ZA03619*/ 01074000 LR RRETURN,WORKA 0401 01075000 *RCV2RET: 0402 01076000 * GOTO RRETURN; /* RETURN TO RTM */ 01077000 RCV2RET BR RRETURN 0402 01078000 * END IEAVRCV3; 0403 01079000 * DECLARE /* COMMON VARIABLES */ 01080000 * I256C CHAR(256) BASED, 0404 01081000 * I031F FIXED(31) BASED, 0404 01082000 * I031P PTR(31) BASED, 0404 01083000 * I015F FIXED(15) BASED, 0404 01084000 * I015P PTR(15) BASED, 0404 01085000 * I008P PTR(8) BASED, 0404 01086000 * I001C CHAR(1) BASED; 0404 01087000 * END IEAVRCV 0405 01088000 * 0405 01089000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01090000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01091000 */*%INCLUDE SYSLIB (IHASDWA ) */ 01092000 */*%INCLUDE SYSLIB (IHARCA ) */ 01093000 */*%INCLUDE SYSLIB (IHAPVT ) */ 01094000 */*%INCLUDE SYSLIB (IHARSMHD) */ 01095000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01096000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01097000 */*%INCLUDE SYSLIB (IHAPCB ) */ 01098000 */*%INCLUDE SYSLIB (IHAPCBR ) */ 01099000 */*%INCLUDE SYSLIB (IHAPFTE ) */ 01100000 */*%INCLUDE SYSLIB (IEACIWA ) */ 01101000 */*%INCLUDE SYSLIB (IHAPGTE ) */ 01102000 */*%INCLUDE SYSLIB (IHALCCA ) */ 01103000 */*%INCLUDE SYSLIB (CVT ) */ 01104000 * 0405 01105000 * ; 0405 01106000 @DATA DS 0H 01107000 DS 0F 01108000 DS 0F 01109000 @CF00052 DC F'16' 01110000 @CF02403 DC F'-1943' 01111000 @CF02408 DC XL4'0000FFFF' 01112000 @CV02279 DC V(CSECPVT) 01113000 @CV02282 DC V(IEAVEPXR) 01114000 @CV02285 DC V(INVRETRY) 01115000 DS 0D 01116000 FRREPTR DS A 01117000 FRRADD DC AL4(IEAVRCV3) 01118000 PVTADDR DC VL4(CSECPVT) 01119000 @CC02391 DC C'IEAVRCV2' 01120000 @CC02364 EQU @CC02391 01121000 @CC02317 DC C'PRSB' 01122000 @CC02320 DC C'EQR ' 01123000 @CC02331 DC C'RCF ' 01124000 @CC02334 DC C'PIOP' 01125000 @CC02365 EQU @CC02391 01126000 @CC02366 DC C'INV ' 01127000 @CC02367 DC C'PCB ' 01128000 @CC02368 DC C'PFTE' 01129000 @CC02369 DC C'OPBR' 01130000 PAGERROR DC B'000000101000000000000000' 01131000 COD DC B'110000001101000000000000' 01132000 FC DC B'000011111100000000000000' 01133000 ABEND171 DC B'000101110001000000000000' 01134000 DUMPARMS DS CL16 01135000 ORG DUMPARMS 01136000 PVTBEGIN DC VL4(CSECPVT) 01137000 PVTND DS AL4 01138000 PFTBEGIN DC A(0) 01139000 PFTEND DC A(1) 01140000 ORG PFTEND 01141000 END1 DS FL1 01142000 END2 DS AL3 01143000 ORG DUMPARMS+16 01144000 TABLE DC CL4' ' 01145000 DC CL4'PRSB' 01146000 DC CL4'PIOI' 01147000 DC CL4'SQA ' 01148000 DC CL4'EQR ' 01149000 DC CL4'PSI ' 01150000 DC CL4'RELS' 01151000 DC CL4'ITAS' 01152000 DC CL4'DLAS' 01153000 DC CL4'CSEG' 01154000 DC CL4'DSEG' 01155000 DC CL4'REP1' 01156000 DC CL4'PIX ' 01157000 DC CL4'GFA ' 01158000 DC CL4'RFR ' 01159000 DC CL4'RCF ' 01160000 DC CL4'TERM' 01161000 DC CL4'SWPC' 01162000 DC CL4'PIOP' 01163000 DC CL4'IOCP' 01164000 DC CL4'FREE' 01165000 DC CL4'FXLD' 01166000 DC CL4'OUT ' 01167000 DC CL4'AMSI' 01168000 DC CL4'SWIN' 01169000 DC CL4'SOUT' 01170000 IEAVRCV CSECT 01171000 SNAP3 SNAP SDATA=ALL,PDATA=(PSW,REGS),MF=L 01172000 IEAVRCV CSECT 01173000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01174000 @01 EQU 01 01175000 @02 EQU 02 01176000 @03 EQU 03 01177000 @04 EQU 04 01178000 @05 EQU 05 01179000 @06 EQU 06 01180000 @07 EQU 07 01181000 @08 EQU 08 01182000 @09 EQU 09 01183000 @10 EQU 10 01184000 @11 EQU 11 01185000 @12 EQU 12 01186000 @13 EQU 13 01187000 @14 EQU 14 01188000 @15 EQU 15 01189000 RSMHDPTR EQU @05 01190000 SDWAPTR EQU @07 01191000 RCAPTR EQU @02 01192000 PCBPTR EQU @01 01193000 PFTEPTR EQU @04 01194000 LCCAPTR EQU @07 01195000 R0 EQU @00 01196000 PARMREG EQU @01 01197000 RTRYPARM EQU @01 01198000 WORKA EQU @03 01199000 WORKB EQU @04 01200000 RASID EQU @04 01201000 RSET4 EQU @04 01202000 RSET5 EQU @05 01203000 RSET6 EQU @06 01204000 NEWRCA EQU @06 01205000 BASEREG EQU @09 01206000 SUPER EQU @11 01207000 RSET13 EQU @13 01208000 RRETURN EQU @14 01209000 RRETREG EQU @15 01210000 PSA EQU 0 01211000 FLCRNPSW EQU PSA 01212000 FLCROPSW EQU PSA+8 01213000 FLCICCW2 EQU PSA+16 01214000 PSAEEPSW EQU PSA+132 01215000 PSAESPSW EQU PSA+136 01216000 FLCSVILC EQU PSAESPSW+1 01217000 PSAEPPSW EQU PSA+140 01218000 FLCPIILC EQU PSAEPPSW+1 01219000 FLCPICOD EQU PSAEPPSW+2 01220000 PSAPICOD EQU FLCPICOD+1 01221000 FLCTEA EQU PSAEPPSW+4 01222000 FLCPER EQU PSA+152 01223000 FLCMCLA EQU PSA+168 01224000 FLCIOEL EQU FLCMCLA+4 01225000 FLCIOA EQU FLCMCLA+16 01226000 FLCFSA EQU FLCMCLA+80 01227000 PSALCCAV EQU PSA+528 01228000 PSAAOLD EQU PSA+548 01229000 PSASUPER EQU PSA+552 01230000 PSASUP1 EQU PSASUPER 01231000 PSASUP2 EQU PSASUPER+1 01232000 PSASUP3 EQU PSASUPER+2 01233000 PSASUP4 EQU PSASUPER+3 01234000 PSACLHT EQU PSA+640 01235000 PSALKSA EQU PSA+696 01236000 PSAHLHI EQU PSA+760 01237000 PSADSSFL EQU PSA+836 01238000 PSADSSF1 EQU PSADSSFL 01239000 PSADSSF3 EQU PSADSSFL+2 01240000 PSADSSF4 EQU PSADSSFL+3 01241000 PSARSVT EQU PSA+896 01242000 CVTPTR EQU 16 01243000 ASCB EQU 0 01244000 ASCBSUPC EQU ASCB+16 01245000 ASCBASID EQU ASCB+36 01246000 ASCBSTOR EQU ASCB+44 01247000 ASCBRSM EQU ASCB+52 01248000 ASCBRSMF EQU ASCBRSM 01249000 ASCBFW1 EQU ASCB+100 01250000 ASCBRCTF EQU ASCBFW1+2 01251000 ASCBFLG1 EQU ASCBFW1+3 01252000 ASCBDSP1 EQU ASCB+114 01253000 ASCBFLG2 EQU ASCB+115 01254000 ASCBLKGP EQU ASCB+128 01255000 ASCBSRQ EQU ASCB+180 01256000 ASCBSRQ1 EQU ASCBSRQ 01257000 ASCBSRQ2 EQU ASCBSRQ+1 01258000 ASCBSRQ3 EQU ASCBSRQ+2 01259000 ASCBSRQ4 EQU ASCBSRQ+3 01260000 SDWA EQU 0 01261000 SDWAPARM EQU SDWA 01262000 SDWAFIOB EQU SDWA+4 01263000 SDWAABCC EQU SDWAFIOB 01264000 SDWACMPF EQU SDWAABCC 01265000 SDWACMPC EQU SDWAABCC+1 01266000 SDWACTL1 EQU SDWA+8 01267000 SDWACMKA EQU SDWACTL1 01268000 SDWAMWPA EQU SDWACTL1+1 01269000 SDWAPMKA EQU SDWACTL1+4 01270000 SDWACTL2 EQU SDWA+16 01271000 SDWACMKP EQU SDWACTL2 01272000 SDWAMWPP EQU SDWACTL2+1 01273000 SDWAPMKP EQU SDWACTL2+4 01274000 SDWAGRSV EQU SDWA+24 01275000 SDWAGR11 EQU SDWAGRSV+44 01276000 SDWAGR12 EQU SDWAGRSV+48 01277000 SDWAGR13 EQU SDWAGRSV+52 01278000 SDWAGR14 EQU SDWAGRSV+56 01279000 SDWAGR15 EQU SDWAGRSV+60 01280000 SDWANAME EQU SDWA+88 01281000 SDWAEC1 EQU SDWA+104 01282000 SDWAEMK1 EQU SDWAEC1 01283000 SDWAMWP1 EQU SDWAEC1+1 01284000 SDWAINT1 EQU SDWAEC1+2 01285000 SDWANXT1 EQU SDWAEC1+4 01286000 SDWAAEC1 EQU SDWA+112 01287000 SDWAILC1 EQU SDWAAEC1+1 01288000 SDWAINC1 EQU SDWAAEC1+2 01289000 SDWAICD1 EQU SDWAINC1+1 01290000 SDWAEC2 EQU SDWA+120 01291000 SDWAEMK2 EQU SDWAEC2 01292000 SDWAMWP2 EQU SDWAEC2+1 01293000 SDWAINT2 EQU SDWAEC2+2 01294000 SDWANXT2 EQU SDWAEC2+4 01295000 SDWAAEC2 EQU SDWA+128 01296000 SDWAILC2 EQU SDWAAEC2+1 01297000 SDWAINC2 EQU SDWAAEC2+2 01298000 SDWAICD2 EQU SDWAINC2+1 01299000 SDWASRSV EQU SDWA+136 01300000 SDWASR00 EQU SDWASRSV 01301000 SDWASR01 EQU SDWASRSV+4 01302000 SDWASR02 EQU SDWASRSV+8 01303000 SDWASR03 EQU SDWASRSV+12 01304000 SDWASR05 EQU SDWASRSV+20 01305000 SDWASR14 EQU SDWASRSV+56 01306000 SDWAIDNT EQU SDWA+200 01307000 SDWAMCH EQU SDWA+204 01308000 SDWASTCK EQU SDWAMCH 01309000 SDWAMCHI EQU SDWAMCH+8 01310000 SDWAMCHS EQU SDWAMCHI 01311000 SDWAMCHD EQU SDWAMCHI+1 01312000 SDWARSR1 EQU SDWAMCH+12 01313000 SDWARSR2 EQU SDWAMCH+13 01314000 SDWAFLGS EQU SDWA+232 01315000 SDWAERRA EQU SDWAFLGS 01316000 SDWAPCHK EQU SDWAERRA 01317000 SDWARKEY EQU SDWAERRA 01318000 SDWAERRB EQU SDWAFLGS+1 01319000 SDWASRBM EQU SDWAERRB 01320000 SDWAERRC EQU SDWAFLGS+2 01321000 SDWAPERC EQU SDWAERRC 01322000 SDWAEAS EQU SDWAERRC 01323000 SDWAERRD EQU SDWAFLGS+3 01324000 SDWAFMID EQU SDWA+236 01325000 SDWAIOFS EQU SDWA+238 01326000 SDWARTYA EQU SDWA+240 01327000 SDWACPUA EQU SDWA+248 01328000 SDWAPARQ EQU SDWA+252 01329000 SDWARCDE EQU SDWAPARQ 01330000 SDWAACF2 EQU SDWAPARQ+1 01331000 SDWARCRD EQU SDWAACF2 01332000 SDWAUPRG EQU SDWAACF2 01333000 SDWAACF3 EQU SDWAPARQ+2 01334000 SDWADISP EQU SDWAACF3 01335000 SDWASALL EQU SDWAACF3 01336000 SDWAACF4 EQU SDWAPARQ+3 01337000 SDWAFLLK EQU SDWAACF4 01338000 SDWALKWA EQU SDWA+256 01339000 SDWALKWS EQU SDWALKWA 01340000 SDWARECP EQU SDWA+292 01341000 SDWAMODN EQU SDWARECP 01342000 SDWACSCT EQU SDWARECP+8 01343000 SDWAREXN EQU SDWARECP+16 01344000 SDWASNPA EQU SDWA+320 01345000 SDWADUMP EQU SDWASNPA 01346000 SDWADPFS EQU SDWADUMP+1 01347000 SDWADDAT EQU SDWASNPA+4 01348000 SDWASDAT EQU SDWADDAT 01349000 SDWASDA0 EQU SDWASDAT 01350000 SDWASDA1 EQU SDWASDAT+1 01351000 SDWAPDAT EQU SDWADDAT+2 01352000 SDWADPSA EQU SDWA+328 01353000 SDWADPSL EQU SDWADPSA 01354000 SDWARA EQU SDWA+400 01355000 SDWADPVA EQU SDWARA+2 01356000 SDWAHEX EQU SDWADPVA 01357000 SDWAURAL EQU SDWARA+3 01358000 SDWAVRA EQU SDWARA+4 01359000 RCA EQU 0 01360000 RCAPARM0 EQU RCA 01361000 RCAPARM1 EQU RCA+4 01362000 RCANAME7 EQU RCA+8 01363000 RCAPRSB EQU RCANAME7 01364000 RCAPRSR EQU RCANAME7 01365000 RCAPRSS EQU RCANAME7 01366000 RCACSECT EQU RCA+9 01367000 RCAFLAGS EQU RCA+10 01368000 RCASAL EQU RCAFLAGS 01369000 RCALL EQU RCAFLAGS 01370000 RCAABEND EQU RCAFLAGS 01371000 RCAPSIER EQU RCAFLAGS 01372000 RCADISP EQU RCAFLAGS 01373000 RCARCRD EQU RCA+11 01374000 RCANAMES EQU RCA+12 01375000 RCANAME1 EQU RCANAMES 01376000 RCAGFA EQU RCANAME1 01377000 RCAINV EQU RCANAME1 01378000 RCANAME2 EQU RCANAMES+1 01379000 RCAPCB EQU RCANAME2 01380000 RCAPFTE EQU RCANAME2 01381000 RCASWPP EQU RCANAME2 01382000 RCAPIOP EQU RCANAME2 01383000 RCANAME3 EQU RCANAMES+2 01384000 RCAPIX EQU RCANAME3 01385000 RCARCFI EQU RCANAME3 01386000 RCANAME4 EQU RCANAMES+3 01387000 RCASWIN EQU RCANAME4 01388000 RCAVEQRI EQU RCANAME4 01389000 RCANAME5 EQU RCANAMES+4 01390000 RCASIRT EQU RCANAME5 01391000 RCAOPBR EQU RCANAME5 01392000 RCANAME6 EQU RCANAMES+5 01393000 RCAFXL EQU RCANAME6 01394000 RCARETAD EQU RCA+20 01395000 PVT EQU 0 01396000 PVTFLAG1 EQU PVT 01397000 PVTDUMP EQU PVTFLAG1 01398000 PVTFLAG2 EQU PVT+1 01399000 PVTSSPIN EQU PVT+11 01400000 PVTPFTP EQU PVT+12 01401000 PVTLPFN EQU PVT+18 01402000 PVTPTLB EQU PVT+31 01403000 PVTPCIWA EQU PVT+64 01404000 PVTPRSET EQU PVT+244 01405000 PVTQS EQU PVT+304 01406000 PVTWSAX EQU PVT+344 01407000 PVTWSA3 EQU PVTWSAX+144 01408000 PVTWSA7 EQU PVTWSAX+432 01409000 PVTWSA14 EQU PVTWSAX+968 01410000 PVTSAVE EQU PVTWSAX+1328 01411000 PVTPCBQS EQU PVT+1852 01412000 PVTTASID EQU PVT+1942 01413000 RSMHD EQU 0 01414000 RSMFLG1 EQU RSMHD+12 01415000 RSMFAIL EQU RSMFLG1 01416000 RSMQS EQU RSMHD+20 01417000 RSMLFQ EQU RSMQS 01418000 RSMLSQA EQU RSMQS+4 01419000 RSMLIOQ EQU RSMQS+8 01420000 FRRS EQU 0 01421000 FRRSHEAD EQU FRRS 01422000 FRRSENTR EQU 0 01423000 FRRSFLGS EQU FRRSENTR+4 01424000 FRRSFLG1 EQU FRRSFLGS 01425000 PCB EQU 0 01426000 PCBFQP EQU PCB 01427000 PCBBQP EQU PCB+4 01428000 PCBRTP EQU PCB+8 01429000 PCBFL1 EQU PCBRTP 01430000 PCBSRBMD EQU PCBFL1 01431000 PCBRTPA EQU PCBRTP+1 01432000 PCBRLP EQU PCB+12 01433000 PCBXPT EQU PCB+16 01434000 PCBFL2 EQU PCBXPT 01435000 PCBRESET EQU PCBFL2 01436000 PCBPGT EQU PCB+20 01437000 PCBFL3 EQU PCBPGT 01438000 PCBBLOCK EQU PCB+28 01439000 PCBSRB EQU PCBBLOCK 01440000 PCBRB EQU PCBSRB 01441000 PCBR EQU 0 01442000 PCBRTCB EQU PCBR 01443000 PCBRFLAG EQU PCBRTCB 01444000 PCBRTCBA EQU PCBRTCB+1 01445000 PCBRASCB EQU PCBR+12 01446000 PFTE EQU 0 01447000 PFTPGID EQU PFTE 01448000 PFTQPTRS EQU PFTE+4 01449000 PFTFLAGS EQU PFTE+12 01450000 PFTFLAG1 EQU PFTFLAGS 01451000 PFTFLAG2 EQU PFTFLAGS+1 01452000 CIWA EQU 0 01453000 CIWFLG1 EQU CIWA 01454000 CIWOPFL1 EQU CIWA+2 01455000 CIWOPFL2 EQU CIWA+3 01456000 CIWINVSL EQU CIWA+8 01457000 CIWVSL EQU CIWA+16 01458000 CIWSTRT EQU CIWVSL 01459000 CIWIFLG1 EQU CIWSTRT 01460000 CIWEND1 EQU CIWVSL+4 01461000 CIWIFLG2 EQU CIWEND1 01462000 CIWECB EQU CIWA+28 01463000 PGTPTE EQU 0 01464000 PGTRSA EQU PGTPTE 01465000 PGTBITS EQU PGTRSA+1 01466000 PGTPVM EQU PGTBITS 01467000 LCCA EQU 0 01468000 LCCAIHRC EQU LCCA+520 01469000 LCCAIHR1 EQU LCCAIHRC 01470000 LCCAIHR2 EQU LCCAIHRC+1 01471000 LCCAIHR3 EQU LCCAIHRC+2 01472000 LCCAIHR4 EQU LCCAIHRC+3 01473000 LCCASPIN EQU LCCA+524 01474000 LCCASPN1 EQU LCCASPIN 01475000 LCCAPTLB EQU LCCASPN1 01476000 LCCASPN2 EQU LCCASPIN+1 01477000 LCCASPN3 EQU LCCASPIN+2 01478000 LCCASPN4 EQU LCCASPIN+3 01479000 LCCADSF1 EQU LCCA+540 01480000 LCCADSF2 EQU LCCA+541 01481000 LCCASPSA EQU LCCA+544 01482000 LCCACRFL EQU LCCA+692 01483000 LCCACREX EQU LCCA+693 01484000 LCCALKFG EQU LCCA+694 01485000 LCCASRBF EQU LCCA+720 01486000 CVTMAP EQU 0 01487000 CVTDAR EQU CVTMAP+72 01488000 CVTFLGS1 EQU CVTDAR 01489000 CVTDCB EQU CVTMAP+116 01490000 CVTIOQET EQU CVTMAP+120 01491000 CVTIERLC EQU CVTMAP+144 01492000 CVTHEAD EQU CVTMAP+160 01493000 CVTSV76C EQU CVTHEAD 01494000 CVTOPTA EQU CVTMAP+182 01495000 CVTOPTB EQU CVTMAP+183 01496000 CVTGTF EQU CVTMAP+236 01497000 CVTGTFST EQU CVTGTF 01498000 CVTGTFS EQU CVTGTFST 01499000 CVTSTATE EQU CVTGTFST 01500000 CVTTMODE EQU CVTGTFST 01501000 CVTFORM EQU CVTGTFST 01502000 CVTAQAVT EQU CVTMAP+240 01503000 CVTTCMFG EQU CVTAQAVT 01504000 CVTVOLM2 EQU CVTMAP+244 01505000 CVTTATA EQU CVTVOLM2 01506000 CVTTSKS EQU CVTTATA 01507000 CVTVOLF2 EQU CVTTSKS 01508000 CVTTAT EQU CVTTATA+1 01509000 CVTATER EQU CVTMAP+248 01510000 CVTEXT1 EQU CVTMAP+252 01511000 CVTPURG EQU CVTMAP+260 01512000 CVTQMSG EQU CVTMAP+268 01513000 CVTDMSR EQU CVTMAP+272 01514000 CVTRSV37 EQU CVTDMSR 01515000 CVTDMSRF EQU CVTRSV37 01516000 CVTERPV EQU CVTMAP+316 01517000 CVTINTLA EQU CVTMAP+320 01518000 CVTAPF EQU CVTMAP+324 01519000 CVTEXT2 EQU CVTMAP+328 01520000 CVTHJES EQU CVTMAP+332 01521000 CVTPGSIA EQU CVTMAP+348 01522000 CVTA1F1 EQU CVTMAP+356 01523000 CVTSYSK EQU CVTMAP+357 01524000 CVTVOLM1 EQU CVTMAP+380 01525000 CVTVOLF1 EQU CVTVOLM1 01526000 CVTXTNT1 EQU 0 01527000 CVTXTNT2 EQU 0 01528000 CVTDSSV EQU CVTXTNT2 01529000 CVTFLGBT EQU CVTXTNT2+5 01530000 CVTQID EQU CVTXTNT2+24 01531000 CVTRV400 EQU CVTXTNT2+52 01532000 CVTRV409 EQU CVTXTNT2+53 01533000 CVTATCVT EQU CVTXTNT2+64 01534000 CVTRV429 EQU CVTXTNT2+84 01535000 CVTRV438 EQU CVTXTNT2+85 01536000 CVTRV457 EQU CVTXTNT2+112 01537000 CVTRV466 EQU CVTXTNT2+113 01538000 CVTFIX EQU 0 01539000 CVTRELNO EQU CVTFIX+252 01540000 IEAVRSET EQU 0 01541000 FRRRCA EQU 0 01542000 OLDRCA EQU FRRRCA 01543000 WORK EQU 0 01544000 S14 EQU WORK+72 01545000 I001C EQU 0 01546000 I008P EQU 0 01547000 I015F EQU 0 01548000 I015P EQU 0 01549000 I031F EQU 0 01550000 I031P EQU 0 01551000 I256C EQU 0 01552000 PGTEND EQU 0 01553000 ASCBPTR EQU RCAPARM1 01554000 CVTS01 EQU CVTPGSIA 01555000 CVTPVTP EQU CVTS01+8 01556000 CVTLPDIA EQU CVTS01+12 01557000 CVTDIRST EQU CVTLPDIA 01558000 CVTSLIDA EQU CVTS01+24 01559000 CVTCTLFG EQU CVTS01+50 01560000 CVTSRBRT EQU CVTS01+100 01561000 CVTRV210 EQU CVTS01+424 01562000 CVTRV219 EQU CVTS01+425 01563000 CVTRV228 EQU CVTS01+426 01564000 CVTRV237 EQU CVTS01+427 01565000 CVTMFRTR EQU CVTS01+452 01566000 CVTRV262 EQU CVTS01+468 01567000 CVTRV271 EQU CVTS01+469 01568000 CVTRV280 EQU CVTS01+470 01569000 CVTRV289 EQU CVTS01+471 01570000 CVTGSDA EQU CVTS01+600 01571000 PVTPTR EQU CVTPVTP 01572000 PSARSVTE EQU PSARSVT 01573000 PSACSTK EQU PSARSVTE 01574000 FRRSPTR EQU PSACSTK 01575000 CIWAPTR EQU PVTPCIWA 01576000 PTEPTR EQU SDWASR05 01577000 PVTPTLB2 EQU PVTPTLB 01578000 RECURSE EQU PVTPTLB2 01579000 PVTSPIN2 EQU PVTSSPIN 01580000 SLAVSPIN EQU PVTSPIN2 01581000 FXLDRTSV EQU PVTWSA7 01582000 PCBRPTR EQU FXLDRTSV+4 01583000 USERECRD EQU SDWAVRA 01584000 RCACOPY EQU USERECRD 01585000 PVTCLOBR EQU USERECRD+24 01586000 COMPCD1 EQU USERECRD+28 01587000 COMPCD2 EQU USERECRD+31 01588000 ERPCBAIA EQU USERECRD+34 01589000 FLC EQU PSA 01590000 * START UNREFERENCED COMPONENTS 01591000 @NM00101 EQU FXLDRTSV+8 01592000 @NM00100 EQU FXLDRTSV 01593000 @NM00099 EQU PVTSPIN2 01594000 @NM00098 EQU PVTPTLB2 01595000 GONOGO EQU PVTPTLB2 01596000 PSARSAV EQU PSARSVTE+60 01597000 PSARSTK EQU PSARSVTE+56 01598000 PSAESAV3 EQU PSARSVTE+52 01599000 PSAESTK3 EQU PSARSVTE+48 01600000 PSAESAV2 EQU PSARSVTE+44 01601000 PSAESTK2 EQU PSARSVTE+40 01602000 PSAESAV1 EQU PSARSVTE+36 01603000 PSAESTK1 EQU PSARSVTE+32 01604000 PSAPSAV EQU PSARSVTE+28 01605000 PSAPSTK EQU PSARSVTE+24 01606000 PSAMSAV EQU PSARSVTE+20 01607000 PSAMSTK EQU PSARSVTE+16 01608000 PSASSAV EQU PSARSVTE+12 01609000 PSASSTK EQU PSARSVTE+8 01610000 PSANSTK EQU PSARSVTE+4 01611000 CVTRV628 EQU CVTS01+728 01612000 CVTRV627 EQU CVTS01+724 01613000 CVTRV626 EQU CVTS01+720 01614000 CVTRV625 EQU CVTS01+716 01615000 CVTRV624 EQU CVTS01+712 01616000 CVTRV623 EQU CVTS01+708 01617000 CVTRV622 EQU CVTS01+704 01618000 CVTRV621 EQU CVTS01+700 01619000 CVTIHASU EQU CVTS01+696 01620000 CVTSUSP EQU CVTS01+692 01621000 CVTT6SVC EQU CVTS01+688 01622000 CVTCDAL EQU CVTS01+684 01623000 CVTTCTL EQU CVTS01+680 01624000 CVTRSUME EQU CVTS01+676 01625000 CVTJTERM EQU CVTS01+672 01626000 CVTASMRM EQU CVTS01+668 01627000 CVTTCASP EQU CVTS01+664 01628000 CVT0PT03 EQU CVTS01+660 01629000 CVT0PT0E EQU CVTS01+656 01630000 CVTRV609 EQU CVTS01+652 01631000 CVTCGK EQU CVTS01+648 01632000 CVTRAC EQU CVTS01+644 01633000 CVTHSM EQU CVTS01+640 01634000 CVTRV605 EQU CVTS01+636 01635000 CVTRV604 EQU CVTS01+632 01636000 CVTEFF02 EQU CVTS01+628 01637000 CVTCBBR EQU CVTS01+624 01638000 CVTSSCR EQU CVTS01+620 01639000 CVTEVENT EQU CVTS01+616 01640000 CVTCRCA EQU CVTS01+612 01641000 CVTTPIO EQU CVTS01+608 01642000 CVTADV EQU CVTS01+604 01643000 CVTGSDAB EQU CVTGSDA 01644000 CVTQV3 EQU CVTS01+596 01645000 CVTQV2 EQU CVTS01+592 01646000 CVTQV1 EQU CVTS01+588 01647000 CVTRPT EQU CVTS01+584 01648000 CVTSSRB EQU CVTS01+580 01649000 CVTCSDRL EQU CVTS01+576 01650000 CVTEXP1 EQU CVTS01+572 01651000 CVTRMPMT EQU CVTS01+568 01652000 CVTRMPTT EQU CVTS01+564 01653000 CVTVPSA EQU CVTS01+560 01654000 CVTVSTOP EQU CVTS01+556 01655000 CVTGTFR8 EQU CVTS01+552 01656000 CVTQUIT EQU CVTS01+548 01657000 CVTVACR EQU CVTS01+544 01658000 CVTWTCB EQU CVTS01+540 01659000 CVTSTPRS EQU CVTS01+536 01660000 CVT0PT02 EQU CVTS01+532 01661000 CVTDARCM EQU CVTS01+528 01662000 CVTIRECM EQU CVTS01+524 01663000 CVTJRECM EQU CVTS01+520 01664000 CVTVEMS0 EQU CVTS01+516 01665000 CVTSPFRR EQU CVTS01+512 01666000 CVTRLSTG EQU CVTS01+508 01667000 CVT0TC0A EQU CVTS01+504 01668000 CVTGMBR EQU CVTS01+500 01669000 CVTLFRM EQU CVTS01+496 01670000 CVTRMBR EQU CVTS01+492 01671000 CVTVIOP EQU CVTS01+488 01672000 CVTRV307 EQU CVTS01+486 01673000 CVTRV306 EQU CVTS01+484 01674000 CVTRV305 EQU CVTS01+482 01675000 CVTRV304 EQU CVTS01+480 01676000 CVTRV303 EQU CVTS01+478 01677000 CVTRV302 EQU CVTS01+476 01678000 CVTTRCA EQU CVTS01+472 01679000 CVTRV297 EQU CVTRV289 01680000 CVTRV296 EQU CVTRV289 01681000 CVTRV295 EQU CVTRV289 01682000 CVTRV294 EQU CVTRV289 01683000 CVTRV293 EQU CVTRV289 01684000 CVTRV292 EQU CVTRV289 01685000 CVTRV291 EQU CVTRV289 01686000 CVTRV290 EQU CVTRV289 01687000 CVTRV288 EQU CVTRV280 01688000 CVTRV287 EQU CVTRV280 01689000 CVTRV286 EQU CVTRV280 01690000 CVTRV285 EQU CVTRV280 01691000 CVTRV284 EQU CVTRV280 01692000 CVTRV283 EQU CVTRV280 01693000 CVTRV282 EQU CVTRV280 01694000 CVTRV281 EQU CVTRV280 01695000 CVTRV279 EQU CVTRV271 01696000 CVTRV278 EQU CVTRV271 01697000 CVTRV277 EQU CVTRV271 01698000 CVTRV276 EQU CVTRV271 01699000 CVTRV275 EQU CVTRV271 01700000 CVTRV274 EQU CVTRV271 01701000 CVTRV273 EQU CVTRV271 01702000 CVTRV272 EQU CVTRV271 01703000 CVTRV270 EQU CVTRV262 01704000 CVTRV269 EQU CVTRV262 01705000 CVTRV268 EQU CVTRV262 01706000 CVTRV267 EQU CVTRV262 01707000 CVTRV266 EQU CVTRV262 01708000 CVTRV265 EQU CVTRV262 01709000 CVTRV264 EQU CVTRV262 01710000 CVTRV263 EQU CVTRV262 01711000 CVTVFP EQU CVTS01+464 01712000 CVTVSI EQU CVTS01+460 01713000 CVTVPSIB EQU CVTS01+456 01714000 CVTMFACT EQU CVTMFRTR 01715000 CVTMFCTL EQU CVTS01+448 01716000 CVTPVBP EQU CVTS01+444 01717000 CVTPWI EQU CVTS01+440 01718000 CVTRV254 EQU CVTS01+438 01719000 CVTRV253 EQU CVTS01+436 01720000 CVTRV252 EQU CVTS01+434 01721000 CVTRV251 EQU CVTS01+433 01722000 CVTRV250 EQU CVTS01+432 01723000 CVTRV249 EQU CVTS01+431 01724000 CVTRV248 EQU CVTS01+430 01725000 CVTRV247 EQU CVTS01+429 01726000 CVTRV246 EQU CVTS01+428 01727000 CVTRV245 EQU CVTRV237 01728000 CVTRV244 EQU CVTRV237 01729000 CVTRV243 EQU CVTRV237 01730000 CVTRV242 EQU CVTRV237 01731000 CVTRV241 EQU CVTRV237 01732000 CVTRV240 EQU CVTRV237 01733000 CVTRV239 EQU CVTRV237 01734000 CVTRV238 EQU CVTRV237 01735000 CVTRV236 EQU CVTRV228 01736000 CVTRV235 EQU CVTRV228 01737000 CVTRV234 EQU CVTRV228 01738000 CVTRV233 EQU CVTRV228 01739000 CVTRV232 EQU CVTRV228 01740000 CVTRV231 EQU CVTRV228 01741000 CVTRV230 EQU CVTRV228 01742000 CVTRV229 EQU CVTRV228 01743000 CVTRV227 EQU CVTRV219 01744000 CVTRV226 EQU CVTRV219 01745000 CVTRV225 EQU CVTRV219 01746000 CVTRV224 EQU CVTRV219 01747000 CVTRV223 EQU CVTRV219 01748000 CVTRV222 EQU CVTRV219 01749000 CVTRV221 EQU CVTRV219 01750000 CVTRV220 EQU CVTRV219 01751000 CVTRV218 EQU CVTRV210 01752000 CVTRV217 EQU CVTRV210 01753000 CVTRV216 EQU CVTRV210 01754000 CVTRV215 EQU CVTRV210 01755000 CVTRV214 EQU CVTRV210 01756000 CVTRV213 EQU CVTRV210 01757000 CVTRV212 EQU CVTRV210 01758000 CVTRV211 EQU CVTRV210 01759000 CVTLCCAT EQU CVTS01+420 01760000 CVTPCCAT EQU CVTS01+416 01761000 CVTIPCRP EQU CVTS01+412 01762000 CVTIPCRI EQU CVTS01+408 01763000 CVTIPCDS EQU CVTS01+404 01764000 CVTAIDVT EQU CVTS01+400 01765000 CVTSSAP EQU CVTS01+396 01766000 CVTEHCIR EQU CVTS01+392 01767000 CVTEHDEF EQU CVTS01+388 01768000 CVTDAIR EQU CVTS01+384 01769000 CVTPERFM EQU CVTS01+380 01770000 CVT044R2 EQU CVTS01+376 01771000 CVTFETCH EQU CVTS01+372 01772000 CVTRSTWD EQU CVTS01+368 01773000 CVTSPOST EQU CVTS01+364 01774000 CVTIOBP EQU CVTS01+360 01775000 CVTASMVT EQU CVTS01+356 01776000 CVTRECRQ EQU CVTS01+352 01777000 CVTWSAC EQU CVTS01+348 01778000 CVTRV149 EQU CVTS01+344 01779000 CVTWSAL EQU CVTS01+340 01780000 CVTSPSA EQU CVTS01+336 01781000 CVTGLMN EQU CVTS01+332 01782000 CVTVEAC0 EQU CVTS01+328 01783000 CVT062R1 EQU CVTS01+324 01784000 CVTRPOST EQU CVTS01+320 01785000 CVTDQIQE EQU CVTS01+316 01786000 CVTCSD EQU CVTS01+312 01787000 CVTLKRMA EQU CVTS01+308 01788000 CVTRSPIE EQU CVTS01+304 01789000 CVTRENQ EQU CVTS01+300 01790000 CVTLQCB EQU CVTS01+296 01791000 CVTFQCB EQU CVTS01+292 01792000 CVTQCS01 EQU CVTS01+288 01793000 CVTAPFT EQU CVTS01+284 01794000 CVTPARRL EQU CVTS01+280 01795000 CVTVWAIT EQU CVTS01+276 01796000 CVTGSPL EQU CVTS01+272 01797000 CVTLSMQ EQU CVTS01+268 01798000 CVTGSMQ EQU CVTS01+264 01799000 CVTEXPRO EQU CVTS01+260 01800000 CVTOPCTP EQU CVTS01+256 01801000 CVTSIC EQU CVTS01+252 01802000 CVTTPIOS EQU CVTS01+248 01803000 CVTRTMS EQU CVTS01+244 01804000 CVTSDBF EQU CVTS01+240 01805000 CVTSCBP EQU CVTS01+236 01806000 CVTSDMP EQU CVTS01+232 01807000 CVTSV60 EQU CVTS01+228 01808000 CVTRTMCT EQU CVTS01+224 01809000 CVTASCBL EQU CVTS01+220 01810000 CVTASCBH EQU CVTS01+216 01811000 CVTGDA EQU CVTS01+212 01812000 CVTASVT EQU CVTS01+208 01813000 CVTVVMDI EQU CVTS01+204 01814000 CVTAQTOP EQU CVTS01+200 01815000 CVTIOSCS EQU CVTS01+196 01816000 CVTSDRM EQU CVTS01+192 01817000 CVTOPTE EQU CVTS01+188 01818000 CVTSTXU EQU CVTS01+184 01819000 CVTQUIS EQU CVTS01+180 01820000 CVTPARS EQU CVTS01+176 01821000 CVTS1EE EQU CVTS01+172 01822000 CVTFRAS EQU CVTS01+168 01823000 CVTQSAS EQU CVTS01+164 01824000 CVTCRAS EQU CVTS01+160 01825000 CVTCRMN EQU CVTS01+156 01826000 CVTDELCP EQU CVTS01+152 01827000 CVTFRECL EQU CVTS01+148 01828000 CVTGETCL EQU CVTS01+144 01829000 CVTBLDCP EQU CVTS01+140 01830000 CVTAUTHL EQU CVTS01+136 01831000 CVTSCAN EQU CVTS01+132 01832000 CVTRV144 EQU CVTS01+130 01833000 CVTMAXMP EQU CVTS01+128 01834000 CVTSTCK EQU CVTS01+124 01835000 CVTRV139 EQU CVTS01+123 01836000 CVTDSSAC EQU CVTS01+122 01837000 CVTRV513 EQU CVTS01+121 01838000 CVTIOSPL EQU CVTS01+120 01839000 CVTPTGT EQU CVTS01+116 01840000 CVTCSPIE EQU CVTS01+112 01841000 CVTSMFEX EQU CVTS01+108 01842000 CVTOLT0A EQU CVTS01+104 01843000 CVTPUTL EQU CVTS01+96 01844000 CVTASCRL EQU CVTS01+92 01845000 CVTASCRF EQU CVTS01+88 01846000 CVTRV326 EQU CVTS01+84 01847000 CVTRV325 EQU CVTS01+80 01848000 CVTRV324 EQU CVTS01+76 01849000 CVT0VL01 EQU CVTS01+72 01850000 CVTSHRVM EQU CVTS01+68 01851000 CVTRV332 EQU CVTS01+64 01852000 CVTTAS EQU CVTS01+60 01853000 CVTRSCN EQU CVTS01+56 01854000 CVTTRAC2 EQU CVTS01+54 01855000 CVTTRACE EQU CVTS01+52 01856000 CVTAPG EQU CVTS01+51 01857000 CVTSDTRC EQU CVTCTLFG 01858000 CVTGTRCE EQU CVTCTLFG 01859000 CVTNOMP EQU CVTCTLFG 01860000 CVTRSV79 EQU CVTCTLFG 01861000 CVTDSTAT EQU CVTCTLFG 01862000 CVTRSV78 EQU CVTCTLFG 01863000 CVTRV333 EQU CVTCTLFG 01864000 CVTRV323 EQU CVTCTLFG 01865000 CVTSPVLK EQU CVTS01+49 01866000 CVTRSV77 EQU CVTS01+48 01867000 CVTRV331 EQU CVTS01+44 01868000 CVTRV330 EQU CVTS01+40 01869000 CVTRV329 EQU CVTS01+36 01870000 CVTRV328 EQU CVTS01+32 01871000 CVTRV322 EQU CVTS01+28 01872000 CVTSLID EQU CVTSLIDA+1 01873000 CVTSYLK EQU CVTSLIDA 01874000 CVTRV321 EQU CVTS01+20 01875000 CVTRV320 EQU CVTS01+16 01876000 CVTLPDIR EQU CVTLPDIA+1 01877000 CVTRSV69 EQU CVTDIRST 01878000 CVTRSV68 EQU CVTDIRST 01879000 CVTRSV67 EQU CVTDIRST 01880000 CVTRSV66 EQU CVTDIRST 01881000 CVTRSV65 EQU CVTDIRST 01882000 CVTRSV64 EQU CVTDIRST 01883000 CVTRSV63 EQU CVTDIRST 01884000 CVTDICOM EQU CVTDIRST 01885000 CVTLPDSR EQU CVTS01+4 01886000 CVTGETL EQU CVTS01 01887000 SAVE EQU WORK 01888000 CVTLEVL EQU CVTRELNO+2 01889000 CVTNUMB EQU CVTRELNO 01890000 CVTMDL EQU CVTFIX+250 01891000 @NM00097 EQU CVTFIX+248 01892000 @NM00096 EQU CVTFIX 01893000 CVTRV482 EQU CVTXTNT2+128 01894000 CVTRV481 EQU CVTXTNT2+124 01895000 CVTRV480 EQU CVTXTNT2+120 01896000 CVTRV479 EQU CVTXTNT2+118 01897000 CVTRV478 EQU CVTXTNT2+117 01898000 CVTRV477 EQU CVTXTNT2+116 01899000 CVTRV476 EQU CVTXTNT2+115 01900000 CVTRV475 EQU CVTXTNT2+114 01901000 CVTRV474 EQU CVTRV466 01902000 CVTRV473 EQU CVTRV466 01903000 CVTRV472 EQU CVTRV466 01904000 CVTRV471 EQU CVTRV466 01905000 CVTRV470 EQU CVTRV466 01906000 CVTRV469 EQU CVTRV466 01907000 CVTRV468 EQU CVTRV466 01908000 CVTRV467 EQU CVTRV466 01909000 CVTRV465 EQU CVTRV457 01910000 CVTRV464 EQU CVTRV457 01911000 CVTRV463 EQU CVTRV457 01912000 CVTRV462 EQU CVTRV457 01913000 CVTRV461 EQU CVTRV457 01914000 CVTRV460 EQU CVTRV457 01915000 CVTRV459 EQU CVTRV457 01916000 CVTRV458 EQU CVTRV457 01917000 CVTRV456 EQU CVTXTNT2+108 01918000 CVTRV455 EQU CVTXTNT2+104 01919000 CVTRV454 EQU CVTXTNT2+100 01920000 CVTRV453 EQU CVTXTNT2+96 01921000 CVTRV452 EQU CVTXTNT2+94 01922000 CVTRV451 EQU CVTXTNT2+92 01923000 CVTRV450 EQU CVTXTNT2+90 01924000 CVTRV449 EQU CVTXTNT2+88 01925000 CVTRV448 EQU CVTXTNT2+87 01926000 CVTRV447 EQU CVTXTNT2+86 01927000 CVTRV446 EQU CVTRV438 01928000 CVTRV445 EQU CVTRV438 01929000 CVTRV444 EQU CVTRV438 01930000 CVTRV443 EQU CVTRV438 01931000 CVTRV442 EQU CVTRV438 01932000 CVTRV441 EQU CVTRV438 01933000 CVTRV440 EQU CVTRV438 01934000 CVTRV439 EQU CVTRV438 01935000 CVTRV437 EQU CVTRV429 01936000 CVTRV436 EQU CVTRV429 01937000 CVTRV435 EQU CVTRV429 01938000 CVTRV434 EQU CVTRV429 01939000 CVTRV433 EQU CVTRV429 01940000 CVTRV432 EQU CVTRV429 01941000 CVTRV431 EQU CVTRV429 01942000 CVTRV430 EQU CVTRV429 01943000 CVTRV428 EQU CVTXTNT2+80 01944000 CVTRV427 EQU CVTXTNT2+76 01945000 CVTRV426 EQU CVTXTNT2+72 01946000 CVTRV425 EQU CVTXTNT2+68 01947000 CVTATACT EQU CVTATCVT 01948000 CVTRV423 EQU CVTXTNT2+62 01949000 CVTRV422 EQU CVTXTNT2+60 01950000 CVTRV421 EQU CVTXTNT2+58 01951000 CVTRV420 EQU CVTXTNT2+56 01952000 CVTRV419 EQU CVTXTNT2+55 01953000 CVTRV418 EQU CVTXTNT2+54 01954000 CVTRV417 EQU CVTRV409 01955000 CVTRV416 EQU CVTRV409 01956000 CVTRV415 EQU CVTRV409 01957000 CVTRV414 EQU CVTRV409 01958000 CVTRV413 EQU CVTRV409 01959000 CVTRV412 EQU CVTRV409 01960000 CVTRV411 EQU CVTRV409 01961000 CVTRV410 EQU CVTRV409 01962000 CVTRV408 EQU CVTRV400 01963000 CVTRV407 EQU CVTRV400 01964000 CVTRV406 EQU CVTRV400 01965000 CVTRV405 EQU CVTRV400 01966000 CVTRV404 EQU CVTRV400 01967000 CVTRV403 EQU CVTRV400 01968000 CVTRV402 EQU CVTRV400 01969000 CVTRV401 EQU CVTRV400 01970000 CVTICB EQU CVTXTNT2+48 01971000 CVTSKTA EQU CVTXTNT2+44 01972000 CVTCCVT EQU CVTXTNT2+40 01973000 CVTRSV98 EQU CVTXTNT2+36 01974000 CVTRSV97 EQU CVTXTNT2+34 01975000 CVTRSV96 EQU CVTXTNT2+32 01976000 CVTOLTEP EQU CVTXTNT2+28 01977000 CVTQIDA EQU CVTQID+1 01978000 CVTRSV95 EQU CVTQID 01979000 CVTRSV94 EQU CVTXTNT2+20 01980000 CVTRSV93 EQU CVTXTNT2+16 01981000 CVTRSV92 EQU CVTXTNT2+12 01982000 CVTDEBVR EQU CVTXTNT2+8 01983000 CVTRSV91 EQU CVTXTNT2+6 01984000 CVTRSV9H EQU CVTFLGBT 01985000 CVTRSV9G EQU CVTFLGBT 01986000 CVTRSV9F EQU CVTFLGBT 01987000 CVTRSV9E EQU CVTFLGBT 01988000 CVTRSV9D EQU CVTFLGBT 01989000 CVTBAH EQU CVTFLGBT 01990000 CVTVME EQU CVTFLGBT 01991000 CVTNPE EQU CVTFLGBT 01992000 CVTNUCLS EQU CVTXTNT2+4 01993000 CVTDSSVA EQU CVTDSSV+1 01994000 CVTRSV89 EQU CVTDSSV 01995000 CVTRSV88 EQU CVTXTNT1+8 01996000 CVTRSV87 EQU CVTXTNT1+4 01997000 CVTFACHN EQU CVTXTNT1 01998000 CVTRV488 EQU CVTMAP+412 01999000 CVTRV487 EQU CVTMAP+408 02000000 CVTRV486 EQU CVTMAP+404 02001000 CVTRV485 EQU CVTMAP+400 02002000 CVTACTAP EQU CVTMAP+396 02003000 CVTAUTH EQU CVTMAP+392 02004000 CVTRV490 EQU CVTMAP+388 02005000 CVTSU EQU CVTMAP+384 02006000 CVTVOLT1 EQU CVTVOLM1+1 02007000 CVTVOLI1 EQU CVTVOLF1 02008000 CVTSTOA EQU CVTMAP+376 02009000 CVTRSV58 EQU CVTMAP+374 02010000 CVTRSV57 EQU CVTMAP+372 02011000 CVTDDCE EQU CVTMAP+368 02012000 CVTPNWFR EQU CVTMAP+364 02013000 CVTSMF EQU CVTMAP+360 02014000 CVTSULK EQU CVTMAP+358 02015000 CVTSLKO EQU CVTSYSK 02016000 CVTSLKP EQU CVTSYSK 02017000 CVTSLKQ EQU CVTSYSK 02018000 CVTSLKR EQU CVTSYSK 02019000 CVTRSV56 EQU CVTSYSK 02020000 CVTRSV55 EQU CVTSYSK 02021000 CVTRSV54 EQU CVTSYSK 02022000 CVTRSV53 EQU CVTSYSK 02023000 CVTRSV52 EQU CVTA1F1 02024000 CVTRSV51 EQU CVTA1F1 02025000 CVTRSV50 EQU CVTA1F1 02026000 CVTRSV49 EQU CVTA1F1 02027000 CVTRSV48 EQU CVTA1F1 02028000 CVTRSV47 EQU CVTA1F1 02029000 CVTSRSW EQU CVTA1F1 02030000 CVTPFSW EQU CVTA1F1 02031000 CVTPCVT EQU CVTMAP+352 02032000 CVTRSV46 EQU CVTMAP+344 02033000 CVTRSV45 EQU CVTMAP+340 02034000 CVTRSV44 EQU CVTMAP+338 02035000 CVTRSV43 EQU CVTMAP+336 02036000 CVTHJESA EQU CVTHJES+1 02037000 CVTRSV42 EQU CVTHJES 02038000 CVTEXT2A EQU CVTEXT2+1 02039000 CVTRSV41 EQU CVTEXT2 02040000 CVTAPFA EQU CVTAPF+1 02041000 CVTRSV40 EQU CVTAPF 02042000 CVTRV518 EQU CVTINTLA 02043000 CVTRV517 EQU CVTERPV 02044000 CVTEORM EQU CVTMAP+312 02045000 CVTMCHPR EQU CVTMAP+308 02046000 CVTTZ EQU CVTMAP+304 02047000 CVTJEPS EQU CVTMAP+300 02048000 CVTJESCT EQU CVTMAP+296 02049000 CVTMODE EQU CVTMAP+292 02050000 CVTPTRV EQU CVTMAP+288 02051000 CVTREAL EQU CVTMAP+284 02052000 CVTRSV39 EQU CVTMAP+280 02053000 CVTRSV38 EQU CVTMAP+276 02054000 CVTDMSRA EQU CVTDMSR+1 02055000 CVTRV634 EQU CVTDMSRF 02056000 CVTRV633 EQU CVTDMSRF 02057000 CVTRV632 EQU CVTDMSRF 02058000 CVTRV631 EQU CVTDMSRF 02059000 CVTRV630 EQU CVTDMSRF 02060000 CVTRV629 EQU CVTDMSRF 02061000 CVTUDUMP EQU CVTDMSRF 02062000 CVTSDUMP EQU CVTDMSRF 02063000 CVTQMSGA EQU CVTQMSG+1 02064000 CVTRSV36 EQU CVTQMSG 02065000 CVTAMFF EQU CVTMAP+264 02066000 CVTPURGA EQU CVTPURG+1 02067000 CVTRSV35 EQU CVTPURG 02068000 CVTCBSP EQU CVTMAP+256 02069000 CVTATERA EQU CVTATER+1 02070000 CVTSYST EQU CVTATER 02071000 CVTVOLT2 EQU CVTTAT 02072000 CVTVOLI2 EQU CVTVOLF2 02073000 CVTAQAVB EQU CVTAQAVT+1 02074000 CVTRSV34 EQU CVTTCMFG 02075000 CVTRSV33 EQU CVTTCMFG 02076000 CVTRSV32 EQU CVTTCMFG 02077000 CVTRSV31 EQU CVTTCMFG 02078000 CVTRSV30 EQU CVTTCMFG 02079000 CVTRSV29 EQU CVTTCMFG 02080000 CVTLDEV EQU CVTTCMFG 02081000 CVTTCRDY EQU CVTTCMFG 02082000 CVTGTFA EQU CVTGTF+1 02083000 CVTRSV27 EQU CVTGTFST 02084000 CVTRNIO EQU CVTGTFST 02085000 CVTUSR EQU CVTGTFST 02086000 CVTRV318 EQU CVTFORM 02087000 CVTRV317 EQU CVTTMODE 02088000 CVTRV316 EQU CVTSTATE 02089000 CVTRV315 EQU CVTGTFS 02090000 CVTGTFAV EQU CVTGTFS 02091000 CVT0SCR1 EQU CVTMAP+232 02092000 CVTRV515 EQU CVTMAP+228 02093000 CVTRMS EQU CVTMAP+224 02094000 CVTPATCH EQU CVTMAP+220 02095000 CVTTSCE EQU CVTMAP+216 02096000 CVTLNKSC EQU CVTMAP+214 02097000 CVTQABST EQU CVTMAP+212 02098000 CVTMDLDS EQU CVTMAP+208 02099000 CVTUSER EQU CVTMAP+204 02100000 CVTABEND EQU CVTMAP+200 02101000 CVTSMCA EQU CVTMAP+196 02102000 CVTRSV18 EQU CVTMAP+192 02103000 CVTQLPAQ EQU CVTMAP+188 02104000 CVTQCDSR EQU CVTMAP+184 02105000 CVTVS1B EQU CVTOPTB 02106000 CVTVS1A EQU CVTOPTB 02107000 CVTFP EQU CVTOPTB 02108000 CVTAPTHR EQU CVTOPTB 02109000 CVTNLOG EQU CVTOPTB 02110000 CVTTOD EQU CVTOPTB 02111000 CVTCTIMS EQU CVTOPTB 02112000 CVTPROT EQU CVTOPTB 02113000 CVTXPFP EQU CVTOPTA 02114000 CVTASCII EQU CVTOPTA 02115000 CVTRSV13 EQU CVTOPTA 02116000 CVTRSV12 EQU CVTOPTA 02117000 CVTNIP EQU CVTOPTA 02118000 CVTDDR EQU CVTOPTA 02119000 CVTAPR EQU CVTOPTA 02120000 CVTCCH EQU CVTOPTA 02121000 CVTSNCTR EQU CVTMAP+180 02122000 CVTQMWR EQU CVTMAP+176 02123000 CVTQOCR EQU CVTMAP+172 02124000 CVT1EF00 EQU CVTMAP+168 02125000 CVTMZ00 EQU CVTMAP+164 02126000 CVTSV76Q EQU CVTSV76C 02127000 CVTRSV11 EQU CVTMAP+156 02128000 CVT0PT01 EQU CVTMAP+152 02129000 CVTMSER EQU CVTMAP+148 02130000 CVTRV516 EQU CVTIERLC 02131000 CVTILCH EQU CVTMAP+140 02132000 CVT0DS EQU CVTMAP+136 02133000 CVTFBOSV EQU CVTMAP+132 02134000 CVTNUCB EQU CVTMAP+128 02135000 CVTIXAVL EQU CVTMAP+124 02136000 CVTSV76M EQU CVTIOQET 02137000 CVTDCBA EQU CVTMAP+117 02138000 CVTMVS2 EQU CVTDCB 02139000 CVT6DAT EQU CVTDCB 02140000 CVT4MPS EQU CVTDCB 02141000 CVTRSV09 EQU CVTDCB 02142000 CVT4MS1 EQU CVTDCB 02143000 CVT2SPS EQU CVTDCB 02144000 CVT1SSS EQU CVTDCB 02145000 CVTRSV08 EQU CVTDCB 02146000 CVTSTB EQU CVTMAP+112 02147000 CVTQTD00 EQU CVTMAP+108 02148000 CVTQTE00 EQU CVTMAP+104 02149000 CVTCUCB EQU CVTMAP+100 02150000 CVTSJQ EQU CVTMAP+96 02151000 CVTPBLDL EQU CVTMAP+92 02152000 CVTTPC EQU CVTMAP+88 02153000 CVTSVDCB EQU CVTMAP+84 02154000 CVTBRET EQU CVTMAP+82 02155000 CVTEXIT EQU CVTMAP+80 02156000 CVT0FN00 EQU CVTMAP+76 02157000 CVTDARA EQU CVTDAR+1 02158000 CVTRSV07 EQU CVTFLGS1 02159000 CVTRSV06 EQU CVTFLGS1 02160000 CVTRSV05 EQU CVTFLGS1 02161000 CVTRSV04 EQU CVTFLGS1 02162000 CVTRSV03 EQU CVTFLGS1 02163000 CVTRSV02 EQU CVTFLGS1 02164000 CVTRSV01 EQU CVTFLGS1 02165000 CVTDMPLK EQU CVTFLGS1 02166000 CVTXITP EQU CVTMAP+68 02167000 CVTZDTAB EQU CVTMAP+64 02168000 CVTMSLT EQU CVTMAP+60 02169000 CVTDATE EQU CVTMAP+56 02170000 CVTBTERM EQU CVTMAP+52 02171000 CVTSYSAD EQU CVTMAP+48 02172000 CVTXTLER EQU CVTMAP+44 02173000 CVTILK2 EQU CVTMAP+40 02174000 CVTILK1 EQU CVTMAP+36 02175000 CVTPRLTV EQU CVTMAP+32 02176000 CVTPCNVT EQU CVTMAP+28 02177000 CVT0VL00 EQU CVTMAP+24 02178000 CVTXAPG EQU CVTMAP+20 02179000 CVTBUF EQU CVTMAP+16 02180000 CVTJOB EQU CVTMAP+12 02181000 CVTLINK EQU CVTMAP+8 02182000 CVT0EF00 EQU CVTMAP+4 02183000 CVTTCBP EQU CVTMAP 02184000 CVT EQU CVTMAP 02185000 LCCAR125 EQU LCCA+964 02186000 LCCAR124 EQU LCCA+960 02187000 LCCASGPR EQU LCCA+896 02188000 LCCADRT2 EQU LCCA+888 02189000 LCCADRT1 EQU LCCA+880 02190000 LCCAR103 EQU LCCA+876 02191000 LCCAESS2 EQU LCCA+872 02192000 LCCASPLJ EQU LCCA+868 02193000 LCCASMQJ EQU LCCA+864 02194000 LCCAIRT EQU LCCA+736 02195000 LCCAASID EQU LCCA+732 02196000 LCCARV89 EQU LCCA+728 02197000 LCCAPGTA EQU LCCASRBF+2 02198000 LCCASAFN EQU LCCASRBF 02199000 LCCAECSA EQU LCCA+716 02200000 LCCAICR0 EQU LCCA+712 02201000 LCCALWTM EQU LCCA+704 02202000 LCCARV78 EQU LCCA+700 02203000 LCCAPINV EQU LCCA+696 02204000 LCCARV88 EQU LCCA+695 02205000 LCCARV87 EQU LCCALKFG 02206000 LCCARV86 EQU LCCALKFG 02207000 LCCARV85 EQU LCCALKFG 02208000 LCCARV84 EQU LCCALKFG 02209000 LCCALKRD EQU LCCALKFG 02210000 LCCALKAQ EQU LCCALKFG 02211000 LCCALKSA EQU LCCALKFG 02212000 LCCALKDP EQU LCCALKFG 02213000 LCCACRST EQU LCCACREX 02214000 LCCACRDP EQU LCCACREX 02215000 LCCACRLM EQU LCCACREX 02216000 LCCACRIN EQU LCCACREX 02217000 LCCACRRT EQU LCCACREX 02218000 LCCACRLE EQU LCCACREX 02219000 LCCACRRM EQU LCCACREX 02220000 LCCACREF EQU LCCACREX 02221000 LCCAVARY EQU LCCACRFL 02222000 LCCARV73 EQU LCCACRFL 02223000 LCCARV72 EQU LCCACRFL 02224000 LCCARV71 EQU LCCACRFL 02225000 LCCARV70 EQU LCCACRFL 02226000 LCCARV69 EQU LCCACRFL 02227000 LCCACLMS EQU LCCACRFL 02228000 LCCACRTM EQU LCCACRFL 02229000 LCCALCR0 EQU LCCA+688 02230000 LCCACRLC EQU LCCA+684 02231000 LCCARCPU EQU LCCA+680 02232000 LCCADCPU EQU LCCA+676 02233000 LCCASRBJ EQU LCCA+672 02234000 LCCADSSR EQU LCCA+668 02235000 LCCADSSC EQU LCCA+660 02236000 LCCADSS3 EQU LCCA+648 02237000 LCCADSS2 EQU LCCA+636 02238000 LCCADSS1 EQU LCCA+624 02239000 LCCAWTIM EQU LCCA+616 02240000 LCCAITOD EQU LCCA+608 02241000 LCCADTOD EQU LCCA+600 02242000 LCCASTOD EQU LCCA+592 02243000 LCCARIR5 EQU LCCASPSA+44 02244000 LCCARIR4 EQU LCCASPSA+40 02245000 LCCARIR3 EQU LCCASPSA+36 02246000 LCCARIR2 EQU LCCASPSA+32 02247000 LCCARPR5 EQU LCCASPSA+28 02248000 LCCARPR4 EQU LCCASPSA+24 02249000 LCCARPR3 EQU LCCASPSA+20 02250000 LCCARPR2 EQU LCCASPSA+16 02251000 LCCADSR5 EQU LCCASPSA+12 02252000 LCCADSR4 EQU LCCASPSA+8 02253000 LCCADSR3 EQU LCCASPSA+4 02254000 LCCADSR2 EQU LCCASPSA 02255000 LCCARV68 EQU LCCA+543 02256000 LCCAPSMK EQU LCCA+542 02257000 LCCARV67 EQU LCCADSF2 02258000 LCCARV66 EQU LCCADSF2 02259000 LCCARV65 EQU LCCADSF2 02260000 LCCARV64 EQU LCCADSF2 02261000 LCCADSRW EQU LCCADSF2 02262000 LCCADSPL EQU LCCADSF2 02263000 LCCAGSRB EQU LCCADSF2 02264000 LCCASRBM EQU LCCADSF2 02265000 LCCARV61 EQU LCCADSF1 02266000 LCCARV60 EQU LCCADSF1 02267000 LCCARV59 EQU LCCADSF1 02268000 LCCARV58 EQU LCCADSF1 02269000 LCCATIMR EQU LCCADSF1 02270000 LCCADSS EQU LCCADSF1 02271000 LCCAVCPU EQU LCCADSF1 02272000 LCCAACR EQU LCCADSF1 02273000 LCCACPUS EQU LCCA+536 02274000 LCCAASCP EQU LCCA+532 02275000 LCCAESSA EQU LCCA+528 02276000 LCCARV55 EQU LCCASPN4 02277000 LCCARV54 EQU LCCASPN4 02278000 LCCARV53 EQU LCCASPN4 02279000 LCCARV52 EQU LCCASPN4 02280000 LCCARV51 EQU LCCASPN4 02281000 LCCARV50 EQU LCCASPN4 02282000 LCCARV49 EQU LCCASPN4 02283000 LCCARV48 EQU LCCASPN4 02284000 LCCARV47 EQU LCCASPN3 02285000 LCCARV46 EQU LCCASPN3 02286000 LCCARV45 EQU LCCASPN3 02287000 LCCARV44 EQU LCCASPN3 02288000 LCCARV43 EQU LCCASPN3 02289000 LCCARV42 EQU LCCASPN3 02290000 LCCARV41 EQU LCCASPN3 02291000 LCCARV40 EQU LCCASPN3 02292000 LCCARV39 EQU LCCASPN2 02293000 LCCARV38 EQU LCCASPN2 02294000 LCCARV37 EQU LCCASPN2 02295000 LCCARV36 EQU LCCASPN2 02296000 LCCARV35 EQU LCCASPN2 02297000 LCCARV34 EQU LCCASPN2 02298000 LCCARV33 EQU LCCASPN2 02299000 LCCARV32 EQU LCCASPN2 02300000 LCCARV31 EQU LCCASPN1 02301000 LCCARV30 EQU LCCASPN1 02302000 LCCAMFIO EQU LCCASPN1 02303000 LCCARSTR EQU LCCASPN1 02304000 LCCATSPN EQU LCCASPN1 02305000 LCCALOCK EQU LCCASPN1 02306000 LCCASIGP EQU LCCASPN1 02307000 LCCARV27 EQU LCCAIHR4 02308000 LCCARV26 EQU LCCAIHR4 02309000 LCCARV25 EQU LCCAIHR4 02310000 LCCARV24 EQU LCCAIHR4 02311000 LCCARV23 EQU LCCAIHR4 02312000 LCCARV22 EQU LCCAIHR4 02313000 LCCARV21 EQU LCCAIHR4 02314000 LCCARV20 EQU LCCAIHR4 02315000 LCCARV19 EQU LCCAIHR3 02316000 LCCARV18 EQU LCCAIHR3 02317000 LCCARV17 EQU LCCAIHR3 02318000 LCCARV16 EQU LCCAIHR3 02319000 LCCARV15 EQU LCCAIHR3 02320000 LCCARV14 EQU LCCAIHR3 02321000 LCCARV13 EQU LCCAIHR3 02322000 LCCARV12 EQU LCCAIHR3 02323000 LCCARV11 EQU LCCAIHR2 02324000 LCCARV10 EQU LCCAIHR2 02325000 LCCARV09 EQU LCCAIHR2 02326000 LCCARV08 EQU LCCAIHR2 02327000 LCCARV07 EQU LCCAIHR2 02328000 LCCARV06 EQU LCCAIHR2 02329000 LCCARV05 EQU LCCAIHR2 02330000 LCCARV04 EQU LCCAIHR2 02331000 LCCARV03 EQU LCCAIHR1 02332000 LCCARV02 EQU LCCAIHR1 02333000 LCCARV01 EQU LCCAIHR1 02334000 LCCAPPIE EQU LCCAIHR1 02335000 LCCAPSG1 EQU LCCAIHR1 02336000 LCCAPDAT EQU LCCAIHR1 02337000 LCCAXRC2 EQU LCCAIHR1 02338000 LCCAXRC1 EQU LCCAIHR1 02339000 LCCAIOPS EQU LCCA+512 02340000 LCCAGPGR EQU LCCA+448 02341000 LCCAR133 EQU LCCA+444 02342000 LCCAR132 EQU LCCA+440 02343000 LCCAR131 EQU LCCA+436 02344000 LCCAR130 EQU LCCA+432 02345000 LCCAR129 EQU LCCA+428 02346000 LCCAR128 EQU LCCA+424 02347000 LCCAR127 EQU LCCA+420 02348000 LCCAR126 EQU LCCA+416 02349000 LCCARSGR EQU LCCA+352 02350000 LCCAXGR3 EQU LCCA+288 02351000 LCCAXGR2 EQU LCCA+224 02352000 LCCAXGR1 EQU LCCA+160 02353000 LCCACR0 EQU LCCA+156 02354000 LCCAMCR1 EQU LCCA+152 02355000 LCCAPVAD EQU LCCA+148 02356000 LCCAPINT EQU LCCA+144 02357000 LCCAPPSW EQU LCCA+136 02358000 LCCAPGR2 EQU LCCA+72 02359000 LCCAPGR1 EQU LCCA+8 02360000 LCCARV77 EQU LCCA+6 02361000 LCCACPUA EQU LCCA+4 02362000 LCCALCCA EQU LCCA 02363000 PGTPAM EQU PGTBITS 02364000 @NM00095 EQU PGTBITS 02365000 @NM00094 EQU PGTBITS 02366000 @NM00093 EQU PGTBITS 02367000 @NM00092 EQU PGTBITS 02368000 @NM00091 EQU PGTBITS 02369000 @NM00090 EQU PGTBITS 02370000 PGTREAL EQU PGTRSA 02371000 CIWWRK5 EQU CIWA+60 02372000 CIWWRK4 EQU CIWA+56 02373000 CIWWRK3 EQU CIWA+52 02374000 CIWWRK2 EQU CIWA+48 02375000 CIWWRK1 EQU CIWA+44 02376000 CIWRETRN EQU CIWA+40 02377000 CIWLSTPG EQU CIWA+36 02378000 CIWCURPG EQU CIWA+32 02379000 CIWTCB EQU CIWA+24 02380000 CIWEND1A EQU CIWEND1+1 02381000 @NM00089 EQU CIWIFLG2 02382000 CIWIKPRL EQU CIWIFLG2 02383000 CIWIOUT EQU CIWIFLG2 02384000 @NM00088 EQU CIWIFLG2 02385000 CIWIERR EQU CIWIFLG2 02386000 CIWIRAO EQU CIWIFLG2 02387000 CIWINULL EQU CIWIFLG2 02388000 CIWILAST EQU CIWIFLG2 02389000 CIWSTRTA EQU CIWSTRT+1 02390000 @NM00087 EQU CIWIFLG1 02391000 CIWILONG EQU CIWIFLG1 02392000 @NM00086 EQU CIWIFLG1 02393000 CIWIRLS EQU CIWIFLG1 02394000 CIWILOAD EQU CIWIFLG1 02395000 CIWIFREE EQU CIWIFLG1 02396000 CIWIFIX EQU CIWIFLG1 02397000 CIWICONT EQU CIWIFLG1 02398000 CIWCUVSL EQU CIWA+12 02399000 @NM00085 EQU CIWA+7 02400000 CIWKEY EQU CIWA+6 02401000 CIWSAVRC EQU CIWA+5 02402000 CIWRETC EQU CIWA+4 02403000 CIWEXTRS EQU CIWOPFL2 02404000 CIWKEPRL EQU CIWOPFL2 02405000 CIWPGOUT EQU CIWOPFL2 02406000 @NM00084 EQU CIWOPFL2 02407000 CIWERR EQU CIWOPFL2 02408000 CIWRAO EQU CIWOPFL2 02409000 CIWNULL EQU CIWOPFL2 02410000 CIWLAST EQU CIWOPFL2 02411000 @NM00083 EQU CIWOPFL1 02412000 CIWLONG EQU CIWOPFL1 02413000 @NM00082 EQU CIWOPFL1 02414000 CIWRLS EQU CIWOPFL1 02415000 CIWLOAD EQU CIWOPFL1 02416000 CIWFREE EQU CIWOPFL1 02417000 CIWFIX EQU CIWOPFL1 02418000 CIWCONT EQU CIWOPFL1 02419000 CIWFLG2 EQU CIWA+1 02420000 CIWNOPST EQU CIWFLG1 02421000 CIWFIXC EQU CIWFLG1 02422000 CIWOUTKR EQU CIWFLG1 02423000 CIWBRIN EQU CIWFLG1 02424000 CIWBREX EQU CIWFLG1 02425000 @NM00081 EQU CIWFLG1 02426000 CIWSVC3 EQU CIWFLG1 02427000 CIWSVC2 EQU CIWFLG1 02428000 PFTUIC EQU PFTE+15 02429000 PFTQNDX EQU PFTE+14 02430000 @NM00080 EQU PFTFLAG2 02431000 @NM00079 EQU PFTFLAG2 02432000 PFTPREF EQU PFTFLAG2 02433000 PFTSTEAL EQU PFTFLAG2 02434000 PFTIRRG EQU PFTFLAG2 02435000 PFTVR EQU PFTFLAG2 02436000 PFTOFFLN EQU PFTFLAG2 02437000 PFTDFRLS EQU PFTFLAG2 02438000 PFTOFINT EQU PFTFLAG1 02439000 PFTVRALC EQU PFTFLAG1 02440000 PFTBADPG EQU PFTFLAG1 02441000 PFTPCBSI EQU PFTFLAG1 02442000 PFTVRPLT EQU PFTFLAG1 02443000 PFTLSQA EQU PFTFLAG1 02444000 PFTVRINT EQU PFTFLAG1 02445000 PFTONAVQ EQU PFTFLAG1 02446000 PFTRSV1 EQU PFTE+10 02447000 PFTFXCT EQU PFTE+8 02448000 PFTBQPTR EQU PFTQPTRS+2 02449000 PFTFQPTR EQU PFTQPTRS 02450000 PFTVBN EQU PFTPGID+2 02451000 PFTASID EQU PFTPGID 02452000 PCBRWRKB EQU PCBR+60 02453000 PCBRWRKA EQU PCBR+56 02454000 PCBRWRK9 EQU PCBR+52 02455000 PCBRWRK8 EQU PCBR+48 02456000 PCBRWRK7 EQU PCBR+44 02457000 PCBRWRK6 EQU PCBR+40 02458000 PCBRWRK5 EQU PCBR+36 02459000 PCBRWRK4 EQU PCBR+32 02460000 PCBRWRK3 EQU PCBR+28 02461000 PCBRWRK2 EQU PCBR+24 02462000 PCBRWRK1 EQU PCBR+20 02463000 PCBRRSV1 EQU PCBR+18 02464000 PCBRCNT EQU PCBR+16 02465000 PCBRECB EQU PCBR+8 02466000 PCBRGOTO EQU PCBR+4 02467000 PCBRPOF EQU PCBRFLAG 02468000 PCBRFECB EQU PCBRFLAG 02469000 PCBRLOAD EQU PCBRFLAG 02470000 PCBRFAIL EQU PCBRFLAG 02471000 PCBRFPCB EQU PCBRFLAG 02472000 PCBRPB EQU PCBRFLAG 02473000 PCBRETRY EQU PCBRFLAG 02474000 PCBRINT EQU PCBRFLAG 02475000 PCBEND EQU PCB+64 02476000 PCBAIA EQU PCB+36 02477000 PCBASCB EQU PCB+32 02478000 PCBSPCTE EQU PCBRB 02479000 PCBVBN EQU PCB+26 02480000 PCBRBN EQU PCB+24 02481000 PCBPGTA EQU PCBPGT+1 02482000 PCBSWPS2 EQU PCBFL3 02483000 @NM00078 EQU PCBFL3 02484000 PCBNOREC EQU PCBFL3 02485000 PCBDFRLS EQU PCBFL3 02486000 PCBSWPLS EQU PCBFL3 02487000 PCBSWPS1 EQU PCBFL3 02488000 PCBSWPIN EQU PCBFL3 02489000 PCBSWPOT EQU PCBFL3 02490000 PCBXPTA EQU PCBXPT+1 02491000 @NM00077 EQU PCBFL2 02492000 @NM00076 EQU PCBFL2 02493000 PCBVIO EQU PCBFL2 02494000 PCBSUPRS EQU PCBFL2 02495000 PCBIOERR EQU PCBFL2 02496000 PCBGFAD EQU PCBFL2 02497000 PCBFREAL EQU PCBFL2 02498000 PCBRLPA EQU PCBRLP+1 02499000 PCBFXC EQU PCBRLP 02500000 PCBIOCMP EQU PCBFL1 02501000 PCBIOI EQU PCBFL1 02502000 PCBROOT EQU PCBFL1 02503000 PCBLFR EQU PCBFL1 02504000 PCBLLHLD EQU PCBFL1 02505000 PCBPEX EQU PCBFL1 02506000 @NM00075 EQU PCBFL1 02507000 PCBBQPA EQU PCBBQP 02508000 PCBFQPA EQU PCBFQP+1 02509000 PCBCQN EQU PCBFQP 02510000 FRRSPARM EQU FRRSENTR+8 02511000 @NM00074 EQU FRRSFLGS+1 02512000 @NM00073 EQU FRRSFLG1 02513000 FRRSNEST EQU FRRSFLG1 02514000 FRRSRCUR EQU FRRSFLG1 02515000 FRRSFRRA EQU FRRSENTR 02516000 FRRSENTS EQU FRRS+84 02517000 FRRSRTMW EQU FRRS+16 02518000 FRRSCURR EQU FRRSHEAD+12 02519000 FRRSELEN EQU FRRSHEAD+8 02520000 FRRSLAST EQU FRRSHEAD+4 02521000 FRRSEMP EQU FRRSHEAD 02522000 RSMASMHD EQU RSMHD+40 02523000 RSMFOEQ EQU RSMHD+36 02524000 RSMLIOQL EQU RSMLIOQ+4 02525000 RSMLIOQF EQU RSMLIOQ 02526000 RSMLSQAL EQU RSMLSQA+2 02527000 RSMLSQAF EQU RSMLSQA 02528000 RSMLFQL EQU RSMLFQ+2 02529000 RSMLFQF EQU RSMLFQ 02530000 RSMRSV2 EQU RSMHD+16 02531000 RSMCNTFX EQU RSMHD+14 02532000 RSMRSV1 EQU RSMHD+13 02533000 @NM00048 EQU RSMFLG1 02534000 RSMGFADD EQU RSMFLG1 02535000 RSMCPNC EQU RSMFLG1 02536000 RSMCPNU EQU RSMFLG1 02537000 RSMGFAD EQU RSMFLG1 02538000 RSMIOCPC EQU RSMFLG1 02539000 RSMIOCPU EQU RSMFLG1 02540000 RSMASCB EQU RSMHD+8 02541000 RSMSPCT EQU RSMHD+4 02542000 RSMVSTO EQU RSMHD 02543000 PVTEND EQU PVT+1944 02544000 PVTXXXXX EQU PVT+1940 02545000 PVTMVCLC EQU PVT+1936 02546000 PVTVCONS EQU PVT+1896 02547000 PVTPRSB EQU PVT+1892 02548000 PVTCIOQL EQU PVTPCBQS+36 02549000 PVTCIOQF EQU PVTPCBQS+32 02550000 PVTGFADL EQU PVTPCBQS+28 02551000 PVTGFADF EQU PVTPCBQS+24 02552000 PVTFPCBL EQU PVTPCBQS+20 02553000 PVTFPCBF EQU PVTPCBQS+16 02554000 PVTPCBQR EQU PVTPCBQS 02555000 PVTLPAFX EQU PVT+1850 02556000 PVTLSQAF EQU PVT+1848 02557000 PVTLPAR EQU PVT+1844 02558000 PVTLPAI EQU PVT+1840 02559000 PVTLPAFC EQU PVT+1838 02560000 PVTCHUIC EQU PVT+1836 02561000 PVTCOMFX EQU PVT+1834 02562000 PVTSQAFX EQU PVT+1832 02563000 PVTCNTFX EQU PVT+1830 02564000 PVTDEFFX EQU PVT+1828 02565000 PVTFIXOK EQU PVT+1826 02566000 PVTPEROK EQU PVT+1824 02567000 PVTMAXFX EQU PVT+1822 02568000 PVTPERFX EQU PVT+1820 02569000 PVTRSRB EQU PVT+1776 02570000 PVTRESV5 EQU PVT+1773 02571000 PVTSRBS EQU PVT+1772 02572000 PVTSSRB EQU PVT+1768 02573000 PVTACA EQU PVTWSAX+1400 02574000 PVTWSA18 EQU PVTWSAX+1256 02575000 PVTWSA17 EQU PVTWSAX+1184 02576000 PVTWSA16 EQU PVTWSAX+1112 02577000 PVTWSA15 EQU PVTWSAX+1040 02578000 PVTWSA13 EQU PVTWSAX+896 02579000 PVTWSA12 EQU PVTWSAX+824 02580000 PVTWSA11 EQU PVTWSAX+752 02581000 PVTWSA10 EQU PVTWSAX+672 02582000 PVTWSA9 EQU PVTWSAX+592 02583000 PVTWSA8 EQU PVTWSAX+504 02584000 PVTWSA6 EQU PVTWSAX+360 02585000 PVTWSA5 EQU PVTWSAX+288 02586000 PVTWSA4 EQU PVTWSAX+216 02587000 PVTWSA2 EQU PVTWSAX+72 02588000 PVTWSA1 EQU PVTWSAX 02589000 PVTPFTQR EQU PVTQS+20 02590000 PVTRSBQL EQU PVTQS+18 02591000 PVTRSBQF EQU PVTQS+16 02592000 PVTSQAQL EQU PVTQS+14 02593000 PVTSQAQF EQU PVTQS+12 02594000 PVTCFQL EQU PVTQS+10 02595000 PVTCFQF EQU PVTQS+8 02596000 PVTRSRVL EQU PVTQS+6 02597000 PVTRSRVF EQU PVTQS+4 02598000 PVTAFQL EQU PVTQS+2 02599000 PVTAFQF EQU PVTQS 02600000 PVTSPFR EQU PVT+302 02601000 PVTCFMCT EQU PVT+300 02602000 PVTSPREC EQU PVT+296 02603000 PVTCAREC EQU PVT+292 02604000 PVTCAOUT EQU PVT+288 02605000 PVTCAIN EQU PVT+284 02606000 PVTNSWPS EQU PVT+280 02607000 PVTNPREC EQU PVT+276 02608000 PVTSPOUT EQU PVT+272 02609000 PVTSPIN EQU PVT+268 02610000 PVTVAMR EQU PVT+264 02611000 PVTVAMO EQU PVT+260 02612000 PVTVAMI EQU PVT+256 02613000 PVTNPOUT EQU PVT+252 02614000 PVTNPIN EQU PVT+248 02615000 PVTFRSLT EQU PVT+240 02616000 PVTPAGIO EQU PVT+236 02617000 PVTSWPIO EQU PVT+232 02618000 PVTPSWPP EQU PVT+228 02619000 PVTPPREF EQU PVT+224 02620000 PVTPOPBR EQU PVT+220 02621000 PVTPRELF EQU PVT+216 02622000 PVTPRELV EQU PVT+212 02623000 PVTPFREE EQU PVT+208 02624000 PVTPRELS EQU PVT+204 02625000 PVTPOUT EQU PVT+200 02626000 PVTPFXLD EQU PVT+196 02627000 PVTPITAS EQU PVT+192 02628000 PVTPSRBP EQU PVT+188 02629000 PVTPDSEG EQU PVT+184 02630000 PVTPCSGB EQU PVT+180 02631000 PVTPCSEG EQU PVT+176 02632000 PVTPINV EQU PVT+172 02633000 PVTPSWPC EQU PVT+168 02634000 PVTPSOUT EQU PVT+164 02635000 PVTPSWIN EQU PVT+160 02636000 PVTPRCV EQU PVT+156 02637000 PVTPRCFI EQU PVT+152 02638000 PVTPRCF EQU PVT+148 02639000 PVTPVRC EQU PVT+144 02640000 PVTPVRIN EQU PVT+140 02641000 PVTPVRLS EQU PVT+136 02642000 PVTPVEQR EQU PVT+132 02643000 PVTPPIOI EQU PVT+128 02644000 PVTPVRPO EQU PVT+124 02645000 PVTPRFR EQU PVT+120 02646000 PVTPFP2 EQU PVT+116 02647000 PVTPFP EQU PVT+112 02648000 PVTPFTE EQU PVT+108 02649000 PVTPCB EQU PVT+104 02650000 PVTREP2 EQU PVT+100 02651000 PVTPIOCP EQU PVT+96 02652000 PVTPIOP EQU PVT+92 02653000 PVTPGFAD EQU PVT+88 02654000 PVTPGFA EQU PVT+84 02655000 PVTPSQA EQU PVT+80 02656000 PVTPSINT EQU PVT+76 02657000 PVTPSIB EQU PVT+72 02658000 PVTSRBID EQU PVT+68 02659000 PVTHQSA EQU PVT+62 02660000 PVTLQSA EQU PVT+60 02661000 PVTOROOT EQU PVT+56 02662000 PVTPRCA EQU PVT+52 02663000 PVTREUS EQU PVT+48 02664000 PVTSQNPC EQU PVT+47 02665000 PVTSQVRC EQU PVT+46 02666000 PVTRSUS EQU PVT+44 02667000 PVTVROOT EQU PVT+40 02668000 PVTPCBLO EQU PVT+38 02669000 PVTPCBCT EQU PVT+36 02670000 PVTDFRS EQU PVT+34 02671000 PVTRSQA EQU PVT+32 02672000 PVTPCBNO EQU PVT+30 02673000 PVTSRBNO EQU PVT+29 02674000 PVTSQDC EQU PVT+28 02675000 PVTLCSA EQU PVT+26 02676000 PVTLPRIV EQU PVT+24 02677000 PVTLVR EQU PVT+22 02678000 PVTFVR EQU PVT+20 02679000 PVTFPFN EQU PVT+16 02680000 PVTPCBS EQU PVT+10 02681000 PVTPOOL EQU PVT+8 02682000 PVTAFCOK EQU PVT+6 02683000 PVTAFCLO EQU PVT+4 02684000 PVTAFC EQU PVT+2 02685000 @NM00047 EQU PVTFLAG2 02686000 PVTRSMGM EQU PVTFLAG2 02687000 PVTSIT EQU PVTFLAG1 02688000 PVTLSI EQU PVTFLAG1 02689000 PVTAPREF EQU PVTFLAG1 02690000 PVTPCBLT EQU PVTFLAG1 02691000 PVTSRBIU EQU PVTFLAG1 02692000 PVTBGMS EQU PVTFLAG1 02693000 PVTPMSG EQU PVTFLAG1 02694000 RCATASID EQU RCA+18 02695000 RCAREP1 EQU RCANAME6 02696000 RCAPSIF EQU RCANAME6 02697000 RCAPSIX EQU RCANAME6 02698000 RCAVEQRP EQU RCANAME6 02699000 RCARCFC EQU RCANAME6 02700000 RCACSGB EQU RCANAME6 02701000 RCAPS113 EQU RCANAME6 02702000 RCAFREE EQU RCANAME5 02703000 RCARFR2 EQU RCANAME5 02704000 RCACPBR EQU RCANAME5 02705000 RCASORT EQU RCANAME5 02706000 RCARELV EQU RCANAME5 02707000 RCARELF EQU RCANAME5 02708000 RCAGFAD EQU RCANAME4 02709000 RCAVEQRF EQU RCANAME4 02710000 RCAVEQRC EQU RCANAME4 02711000 RCATERM EQU RCANAME4 02712000 RCASQA EQU RCANAME4 02713000 RCASOUT EQU RCANAME4 02714000 RCARFR EQU RCANAME3 02715000 RCARELS EQU RCANAME3 02716000 RCARCF EQU RCANAME3 02717000 RCAPSII EQU RCANAME3 02718000 RCAPSIB EQU RCANAME3 02719000 RCAPS112 EQU RCANAME3 02720000 RCASWPC EQU RCANAME2 02721000 RCAOUT EQU RCANAME2 02722000 RCAITAS EQU RCANAME2 02723000 RCAIOCP EQU RCANAME2 02724000 RCAFXLD EQU RCANAME1 02725000 RCAVEQR EQU RCANAME1 02726000 RCADSEG EQU RCANAME1 02727000 RCADLAS EQU RCANAME1 02728000 RCACSEG EQU RCANAME1 02729000 RCAVAMSI EQU RCANAME1 02730000 @NM00046 EQU RCAFLAGS 02731000 @NM00045 EQU RCAFLAGS 02732000 RCAQS EQU RCAFLAGS 02733000 @NM00044 EQU RCANAME7 02734000 RCAPSIY EQU RCANAME7 02735000 RCAPIOI EQU RCANAME7 02736000 @NM00043 EQU SDWA+512 02737000 @NM00042 EQU SDWADPVA 02738000 SDWAEBC EQU SDWADPVA 02739000 SDWAVRAL EQU SDWARA 02740000 SDWAERTM EQU SDWA+396 02741000 SDWACOMP EQU SDWA+392 02742000 SDWARCPL EQU SDWA+364 02743000 @NM00041 EQU SDWADPSA+32 02744000 SDWATO4 EQU SDWADPSL+28 02745000 SDWAFRM4 EQU SDWADPSL+24 02746000 SDWATO3 EQU SDWADPSL+20 02747000 SDWAFRM3 EQU SDWADPSL+16 02748000 SDWATO2 EQU SDWADPSL+12 02749000 SDWAFRM2 EQU SDWADPSL+8 02750000 SDWATO1 EQU SDWADPSL+4 02751000 SDWAFRM1 EQU SDWADPSL 02752000 @NM00040 EQU SDWADDAT+3 02753000 @NM00039 EQU SDWAPDAT 02754000 SDWAUSPL EQU SDWAPDAT 02755000 SDWADPSW EQU SDWAPDAT 02756000 SDWATJPA EQU SDWAPDAT 02757000 SDWATLPA EQU SDWAPDAT 02758000 SDWADREG EQU SDWAPDAT 02759000 SDWADSAH EQU SDWAPDAT 02760000 SDWADSAS EQU SDWAPDAT 02761000 @NM00038 EQU SDWASDA1 02762000 SDWAERR EQU SDWASDA1 02763000 SDWAIO EQU SDWASDA1 02764000 SDWADM EQU SDWASDA0 02765000 SDWAQQS EQU SDWASDA0 02766000 SDWACBS EQU SDWASDA0 02767000 SDWAGTF EQU SDWASDA0 02768000 SDWASWA EQU SDWASDA0 02769000 SDWALSQA EQU SDWASDA0 02770000 SDWASQA EQU SDWASDA0 02771000 SDWANUC EQU SDWASDA0 02772000 @NM00037 EQU SDWADUMP+2 02773000 @NM00036 EQU SDWADPFS 02774000 SDWASLST EQU SDWADPFS 02775000 @NM00035 EQU SDWADPFS 02776000 SDWAENSN EQU SDWADPFS 02777000 SDWADLST EQU SDWADPFS 02778000 SDWADPT EQU SDWADPFS 02779000 SDWADPID EQU SDWADUMP 02780000 SDWADPLA EQU SDWA+316 02781000 SDWASEQ# EQU SDWA+290 02782000 SDWAASID EQU SDWA+288 02783000 SDWATALW EQU SDWALKWS+28 02784000 SDWATDLW EQU SDWALKWS+24 02785000 SDWATNLW EQU SDWALKWS+20 02786000 SDWAAPLW EQU SDWALKWS+16 02787000 SDWAIPLW EQU SDWALKWS+12 02788000 SDWAILLW EQU SDWALKWS+8 02789000 SDWAIULW EQU SDWALKWS+4 02790000 SDWAICLW EQU SDWALKWS 02791000 SDWACMS EQU SDWAACF4 02792000 SDWAOPTM EQU SDWAACF4 02793000 SDWATADB EQU SDWAACF4 02794000 SDWATDNB EQU SDWAACF4 02795000 SDWATNCB EQU SDWAACF4 02796000 SDWAILCH EQU SDWAACF4 02797000 SDWAIUCB EQU SDWAACF4 02798000 SDWAICAT EQU SDWAACF3 02799000 SDWAIPRG EQU SDWAACF3 02800000 SDWAASMP EQU SDWAACF3 02801000 @NM00034 EQU SDWAACF3 02802000 @NM00033 EQU SDWAACF2 02803000 SDWAFREE EQU SDWAACF2 02804000 @NM00032 EQU SDWAACF2 02805000 SDWASPIN EQU SDWAACF2 02806000 @NM00031 EQU SDWAACF2 02807000 SDWALCPU EQU SDWACPUA+2 02808000 @NM00030 EQU SDWACPUA 02809000 SDWARECA EQU SDWA+244 02810000 SDWACPUI EQU SDWA+239 02811000 @NM00029 EQU SDWAIOFS 02812000 SDWANIOP EQU SDWAIOFS 02813000 SDWANOIO EQU SDWAIOFS 02814000 SDWAIOHT EQU SDWAIOFS 02815000 SDWAIOQR EQU SDWAIOFS 02816000 SDWAERFL EQU SDWAERRD 02817000 SDWAMCIV EQU SDWAERRD 02818000 SDWARPIV EQU SDWAERRD 02819000 SDWAMABD EQU SDWAERRD 02820000 SDWACTS EQU SDWAERRD 02821000 SDWASTAE EQU SDWAERRD 02822000 SDWANRBE EQU SDWAERRD 02823000 SDWACLUP EQU SDWAERRD 02824000 @NM00028 EQU SDWAERRC 02825000 SDWAIRB EQU SDWAERRC 02826000 SDWASTAI EQU SDWAERRC 02827000 SDWASTAF EQU SDWAERRC 02828000 SDWALDIS EQU SDWAERRB 02829000 SDWAENRB EQU SDWAERRB 02830000 SDWATYP1 EQU SDWAERRB 02831000 @NM00027 EQU SDWAERRB 02832000 SDWAPGIO EQU SDWAERRA 02833000 SDWATEXC EQU SDWAERRA 02834000 SDWASVCE EQU SDWAERRA 02835000 SDWAABTM EQU SDWAERRA 02836000 SDWASVCD EQU SDWAERRA 02837000 SDWAMCHK EQU SDWAERRA 02838000 SDWATIME EQU SDWAMCH+20 02839000 SDWARFSA EQU SDWAMCH+16 02840000 @NM00026 EQU SDWAMCH+14 02841000 SDWAVEQR EQU SDWARSR2 02842000 SDWAPGFX EQU SDWARSR2 02843000 SDWAFLSQ EQU SDWARSR2 02844000 SDWAFSQA EQU SDWARSR2 02845000 SDWANUCL EQU SDWARSR2 02846000 SDWASPER EQU SDWARSR2 02847000 SDWAINTC EQU SDWARSR2 02848000 SDWAOFLN EQU SDWARSR2 02849000 SDWACHNG EQU SDWARSR1 02850000 SDWAMSER EQU SDWARSR1 02851000 @NM00025 EQU SDWARSR1 02852000 SDWACPID EQU SDWAMCH+10 02853000 SDWATERR EQU SDWAMCHD 02854000 SDWAFPRX EQU SDWAMCHD 02855000 SDWAINSF EQU SDWAMCHD 02856000 SDWAACR EQU SDWAMCHD 02857000 SDWASCK EQU SDWAMCHD 02858000 SDWAPSWU EQU SDWAMCHD 02859000 SDWAREGU EQU SDWAMCHD 02860000 SDWASKYF EQU SDWAMCHD 02861000 @NM00024 EQU SDWAMCHS 02862000 SDWARSRF EQU SDWAMCHS 02863000 SDWARSRC EQU SDWAMCHS 02864000 SDWAINVP EQU SDWAMCHS 02865000 SDWATSVL EQU SDWAMCHS 02866000 SDWARCDF EQU SDWAMCHS 02867000 SDWASRVL EQU SDWAMCHS 02868000 SDWASCKE EQU SDWASTCK+4 02869000 SDWASCKB EQU SDWASTCK 02870000 SDWALNTH EQU SDWAIDNT+1 02871000 SDWASPID EQU SDWAIDNT 02872000 SDWASR15 EQU SDWASRSV+60 02873000 SDWASR13 EQU SDWASRSV+52 02874000 SDWASR12 EQU SDWASRSV+48 02875000 SDWASR11 EQU SDWASRSV+44 02876000 SDWASR10 EQU SDWASRSV+40 02877000 SDWASR09 EQU SDWASRSV+36 02878000 SDWASR08 EQU SDWASRSV+32 02879000 SDWASR07 EQU SDWASRSV+28 02880000 SDWASR06 EQU SDWASRSV+24 02881000 SDWASR04 EQU SDWASRSV+16 02882000 SDWATRN2 EQU SDWAAEC2+4 02883000 SDWAIPC2 EQU SDWAICD2 02884000 SDWAIMC2 EQU SDWAICD2 02885000 SDWAIPR2 EQU SDWAICD2 02886000 @NM00023 EQU SDWAINC2 02887000 @NM00022 EQU SDWAILC2 02888000 SDWAIL2 EQU SDWAILC2 02889000 @NM00021 EQU SDWAILC2 02890000 @NM00020 EQU SDWAAEC2 02891000 SDWAADD2 EQU SDWANXT2+1 02892000 @NM00019 EQU SDWANXT2 02893000 @NM00018 EQU SDWAEC2+3 02894000 SDWASGN2 EQU SDWAINT2 02895000 SDWAEXP2 EQU SDWAINT2 02896000 SDWADEC2 EQU SDWAINT2 02897000 SDWAFPO2 EQU SDWAINT2 02898000 SDWACC2 EQU SDWAINT2 02899000 @NM00017 EQU SDWAINT2 02900000 SDWAPGM2 EQU SDWAMWP2 02901000 SDWAWAT2 EQU SDWAMWP2 02902000 SDWAMCK2 EQU SDWAMWP2 02903000 SDWAECT2 EQU SDWAMWP2 02904000 SDWAKEY2 EQU SDWAMWP2 02905000 SDWAEXT2 EQU SDWAEMK2 02906000 SDWAIO2 EQU SDWAEMK2 02907000 SDWATRM2 EQU SDWAEMK2 02908000 @NM00016 EQU SDWAEMK2 02909000 SDWAPER2 EQU SDWAEMK2 02910000 @NM00015 EQU SDWAEMK2 02911000 SDWATRAN EQU SDWAAEC1+4 02912000 SDWAIPC1 EQU SDWAICD1 02913000 SDWAIMC1 EQU SDWAICD1 02914000 SDWAIPR1 EQU SDWAICD1 02915000 @NM00014 EQU SDWAINC1 02916000 @NM00013 EQU SDWAILC1 02917000 SDWAIL1 EQU SDWAILC1 02918000 @NM00012 EQU SDWAILC1 02919000 @NM00011 EQU SDWAAEC1 02920000 SDWAADD1 EQU SDWANXT1+1 02921000 @NM00010 EQU SDWANXT1 02922000 @NM00009 EQU SDWAEC1+3 02923000 SDWASGN1 EQU SDWAINT1 02924000 SDWAEXP1 EQU SDWAINT1 02925000 SDWADEC1 EQU SDWAINT1 02926000 SDWAFPO1 EQU SDWAINT1 02927000 SDWACC1 EQU SDWAINT1 02928000 @NM00008 EQU SDWAINT1 02929000 SDWAPGM1 EQU SDWAMWP1 02930000 SDWAWAT1 EQU SDWAMWP1 02931000 SDWAMCK1 EQU SDWAMWP1 02932000 SDWAECT1 EQU SDWAMWP1 02933000 SDWAKEY1 EQU SDWAMWP1 02934000 SDWAEXT1 EQU SDWAEMK1 02935000 SDWAIO1 EQU SDWAEMK1 02936000 SDWATRM1 EQU SDWAEMK1 02937000 @NM00007 EQU SDWAEMK1 02938000 SDWAPER1 EQU SDWAEMK1 02939000 @NM00006 EQU SDWAEMK1 02940000 SDWAIOBR EQU SDWA+100 02941000 SDWAEPA EQU SDWA+96 02942000 @NM00005 EQU SDWANAME+4 02943000 SDWARBAD EQU SDWANAME 02944000 SDWAGR10 EQU SDWAGRSV+40 02945000 SDWAGR09 EQU SDWAGRSV+36 02946000 SDWAGR08 EQU SDWAGRSV+32 02947000 SDWAGR07 EQU SDWAGRSV+28 02948000 SDWAGR06 EQU SDWAGRSV+24 02949000 SDWAGR05 EQU SDWAGRSV+20 02950000 SDWAGR04 EQU SDWAGRSV+16 02951000 SDWAGR03 EQU SDWAGRSV+12 02952000 SDWAGR02 EQU SDWAGRSV+8 02953000 SDWAGR01 EQU SDWAGRSV+4 02954000 SDWAGR00 EQU SDWAGRSV 02955000 SDWANXTP EQU SDWACTL2+5 02956000 SDWASGP EQU SDWAPMKP 02957000 SDWAEUP EQU SDWAPMKP 02958000 SDWADOP EQU SDWAPMKP 02959000 SDWAFPP EQU SDWAPMKP 02960000 SDWACCP EQU SDWAPMKP 02961000 SDWAILP EQU SDWAPMKP 02962000 SDWAINTP EQU SDWACTL2+2 02963000 SDWASPVP EQU SDWAMWPP 02964000 SDWAWATP EQU SDWAMWPP 02965000 SDWAMCKP EQU SDWAMWPP 02966000 @NM00004 EQU SDWAMWPP 02967000 SDWAKEYP EQU SDWAMWPP 02968000 SDWAEXTP EQU SDWACMKP 02969000 SDWAIOP EQU SDWACMKP 02970000 SDWANXTA EQU SDWACTL1+5 02971000 SDWASGA EQU SDWAPMKA 02972000 SDWAEUA EQU SDWAPMKA 02973000 SDWADOA EQU SDWAPMKA 02974000 SDWAFPA EQU SDWAPMKA 02975000 SDWACCA EQU SDWAPMKA 02976000 SDWAILA EQU SDWAPMKA 02977000 SDWAINTA EQU SDWACTL1+2 02978000 SDWASPVA EQU SDWAMWPA 02979000 SDWAWATA EQU SDWAMWPA 02980000 SDWAMCKA EQU SDWAMWPA 02981000 @NM00003 EQU SDWAMWPA 02982000 SDWAKEYA EQU SDWAMWPA 02983000 SDWAEXTA EQU SDWACMKA 02984000 SDWAIOA EQU SDWACMKA 02985000 @NM00002 EQU SDWACMPF 02986000 SDWASTCC EQU SDWACMPF 02987000 @NM00001 EQU SDWACMPF 02988000 SDWASTEP EQU SDWACMPF 02989000 SDWAREQ EQU SDWACMPF 02990000 ASCBEND EQU ASCB+208 02991000 ASCBSRBT EQU ASCB+200 02992000 ASCBSWTL EQU ASCB+196 02993000 ASCBRS14 EQU ASCB+195 02994000 ASCBSMCT EQU ASCB+194 02995000 ASCBRS12 EQU ASCB+192 02996000 ASCBPCTT EQU ASCB+188 02997000 ASCBVGTT EQU ASCB+184 02998000 ASCBRV43 EQU ASCBSRQ4 02999000 ASCBRV42 EQU ASCBSRQ4 03000000 ASCBRV41 EQU ASCBSRQ4 03001000 ASCBRV40 EQU ASCBSRQ4 03002000 ASCBRV39 EQU ASCBSRQ4 03003000 ASCBRV38 EQU ASCBSRQ4 03004000 ASCBRV37 EQU ASCBSRQ4 03005000 ASCBRV36 EQU ASCBSRQ4 03006000 ASCBRV35 EQU ASCBSRQ3 03007000 ASCBRV34 EQU ASCBSRQ3 03008000 ASCBRV33 EQU ASCBSRQ3 03009000 ASCBRV32 EQU ASCBSRQ3 03010000 ASCBRV31 EQU ASCBSRQ3 03011000 ASCBRV30 EQU ASCBSRQ3 03012000 ASCBRV29 EQU ASCBSRQ3 03013000 ASCBRV28 EQU ASCBSRQ3 03014000 ASCBRV27 EQU ASCBSRQ2 03015000 ASCBRV26 EQU ASCBSRQ2 03016000 ASCBRV25 EQU ASCBSRQ2 03017000 ASCBRV24 EQU ASCBSRQ2 03018000 ASCBRV23 EQU ASCBSRQ2 03019000 ASCBRV22 EQU ASCBSRQ2 03020000 ASCBRV21 EQU ASCBSRQ2 03021000 ASCBRV20 EQU ASCBSRQ2 03022000 ASCBRV19 EQU ASCBSRQ1 03023000 ASCBRV18 EQU ASCBSRQ1 03024000 ASCBRV17 EQU ASCBSRQ1 03025000 ASCBRV16 EQU ASCBSRQ1 03026000 ASCBRV15 EQU ASCBSRQ1 03027000 ASCBRV14 EQU ASCBSRQ1 03028000 ASCBRV13 EQU ASCBSRQ1 03029000 ASCBSTA EQU ASCBSRQ1 03030000 ASCBJBNS EQU ASCB+176 03031000 ASCBJBNI EQU ASCB+172 03032000 ASCBMCC EQU ASCB+168 03033000 ASCBRTWA EQU ASCB+164 03034000 ASCBIQEA EQU ASCB+160 03035000 ASCBXMPQ EQU ASCB+156 03036000 ASCBRS01 EQU ASCB+154 03037000 ASCBFMCT EQU ASCB+152 03038000 ASCBOUXB EQU ASCB+148 03039000 ASCBOUCB EQU ASCB+144 03040000 ASCBMECB EQU ASCB+140 03041000 ASCBQECB EQU ASCB+136 03042000 ASCBLSQH EQU ASCBLKGP+4 03043000 ASCBLOCK EQU ASCBLKGP 03044000 ASCBTCBS EQU ASCB+124 03045000 ASCBNVSC EQU ASCB+122 03046000 ASCBVSC EQU ASCB+120 03047000 ASCBSRBS EQU ASCB+118 03048000 ASCBSSRB EQU ASCB+116 03049000 ASCBRV06 EQU ASCBFLG2 03050000 ASCBRV05 EQU ASCBFLG2 03051000 ASCBRV04 EQU ASCBFLG2 03052000 ASCBSNQS EQU ASCBFLG2 03053000 ASCBS2S EQU ASCBFLG2 03054000 ASCBCEXT EQU ASCBFLG2 03055000 ASCBPXMT EQU ASCBFLG2 03056000 ASCBXMPT EQU ASCBFLG2 03057000 ASCBRF07 EQU ASCBDSP1 03058000 ASCBRF06 EQU ASCBDSP1 03059000 ASCBRF05 EQU ASCBDSP1 03060000 ASCBRF04 EQU ASCBDSP1 03061000 ASCBRF03 EQU ASCBDSP1 03062000 ASCBRF02 EQU ASCBDSP1 03063000 ASCBFAIL EQU ASCBDSP1 03064000 ASCBNOQ EQU ASCBDSP1 03065000 ASCBSWCT EQU ASCB+112 03066000 ASCBASXB EQU ASCB+108 03067000 ASCBTMCH EQU ASCB+104 03068000 ASCBNSWP EQU ASCBFLG1 03069000 ASCBTYP1 EQU ASCBFLG1 03070000 ASCBSTND EQU ASCBFLG1 03071000 ASCBABNT EQU ASCBFLG1 03072000 ASCBTERM EQU ASCBFLG1 03073000 ASCBS3S EQU ASCBFLG1 03074000 ASCBCMSH EQU ASCBFLG1 03075000 ASCBTOFF EQU ASCBFLG1 03076000 ASCBRF01 EQU ASCBRCTF 03077000 ASCBTMLW EQU ASCBRCTF 03078000 ASCBOUT EQU ASCBRCTF 03079000 ASCBWAIT EQU ASCBRCTF 03080000 ASCBRV08 EQU ASCBRCTF 03081000 ASCBFQU EQU ASCBRCTF 03082000 ASCBFRS EQU ASCBRCTF 03083000 ASCBTMNO EQU ASCBRCTF 03084000 ASCBAFFN EQU ASCBFW1 03085000 ASCBDUMP EQU ASCB+96 03086000 ASCBRV44 EQU ASCB+92 03087000 ASCBUBET EQU ASCB+88 03088000 ASCBECB EQU ASCB+84 03089000 ASCBJSTL EQU ASCB+80 03090000 ASCBEWST EQU ASCB+72 03091000 ASCBEJST EQU ASCB+64 03092000 ASCBTSB EQU ASCB+60 03093000 ASCBCSCB EQU ASCB+56 03094000 ASCBRSMA EQU ASCBRSM+1 03095000 ASCBRV54 EQU ASCBRSMF 03096000 ASCBRV53 EQU ASCBRSMF 03097000 ASCBRV52 EQU ASCBRSMF 03098000 ASCBRV51 EQU ASCBRSMF 03099000 ASCBVEQR EQU ASCBRSMF 03100000 ASCBN2LP EQU ASCBRSMF 03101000 ASCB1LPU EQU ASCBRSMF 03102000 ASCB2LPU EQU ASCBRSMF 03103000 ASCBLDA EQU ASCB+48 03104000 ASCBDP EQU ASCB+43 03105000 ASCBRV07 EQU ASCB+42 03106000 ASCBIOSM EQU ASCB+40 03107000 ASCBSEQN EQU ASCB+38 03108000 ASCBCPUS EQU ASCB+32 03109000 ASCBSPL EQU ASCB+28 03110000 ASCBIOSP EQU ASCB+24 03111000 ASCBSYNC EQU ASCBSUPC+4 03112000 ASCBSVRB EQU ASCBSUPC 03113000 ASCBCMSF EQU ASCB+12 03114000 ASCBBWDP EQU ASCB+8 03115000 ASCBFWDP EQU ASCB+4 03116000 ASCBASCB EQU ASCB 03117000 ASCBEGIN EQU ASCB 03118000 @NM00072 EQU PSA+3668 03119000 PSASTAK EQU PSA+3072 03120000 @NM00071 EQU PSA+1048 03121000 PSAUSEND EQU PSA+1048 03122000 PSARV062 EQU PSA+1044 03123000 PSACDAL EQU PSA+1040 03124000 PSAWTCOD EQU PSA+1036 03125000 PSAATCVT EQU PSA+1032 03126000 PSAPCPSW EQU PSA+1024 03127000 PSAPIR2 EQU PSA+1020 03128000 PSARV059 EQU PSA+1018 03129000 PSASVC13 EQU PSA+1016 03130000 PSALSFCC EQU PSA+1012 03131000 PSASFACC EQU PSA+1008 03132000 PSASTOP EQU PSA+992 03133000 PSASTART EQU PSA+976 03134000 PSARSPSW EQU PSA+968 03135000 PSASRPSW EQU PSA+960 03136000 PSARV045 EQU PSA+892 03137000 PSARV044 EQU PSA+888 03138000 PSARV043 EQU PSA+884 03139000 PSARV042 EQU PSA+880 03140000 PSARV041 EQU PSA+876 03141000 PSARV040 EQU PSA+872 03142000 PSARV025 EQU PSA+868 03143000 PSADSSED EQU PSA+868 03144000 PSADSSPR EQU PSA+864 03145000 PSADSSFW EQU PSA+860 03146000 PSADSS14 EQU PSA+856 03147000 PSADSSPP EQU PSA+848 03148000 PSADSSRP EQU PSA+840 03149000 PSADSS05 EQU PSADSSF4 03150000 PSADSS10 EQU PSADSSF4 03151000 PSADSSVE EQU PSADSSF4 03152000 PSADSSDE EQU PSADSSF4 03153000 PSADSSC0 EQU PSADSSF4 03154000 PSADSSIE EQU PSADSSF4 03155000 PSADSS12 EQU PSADSSF4 03156000 PSADSSRC EQU PSADSSF4 03157000 PSARV057 EQU PSADSSF3 03158000 PSARV056 EQU PSADSSF3 03159000 PSARV055 EQU PSADSSF3 03160000 PSADSSMC EQU PSADSSF3 03161000 PSADSSRW EQU PSADSSF3 03162000 PSADSSNM EQU PSADSSF3 03163000 PSADSSES EQU PSADSSF3 03164000 PSADSSGP EQU PSADSSF3 03165000 PSADSSF2 EQU PSADSSFL+1 03166000 PSADSSPI EQU PSADSSF1 03167000 PSADSSOI EQU PSADSSF1 03168000 PSADSSSP EQU PSADSSF1 03169000 PSADSSTP EQU PSADSSF1 03170000 PSADSSDW EQU PSADSSF1 03171000 PSADSSDD EQU PSADSSF1 03172000 PSADSSDM EQU PSADSSF1 03173000 PSADSSMV EQU PSADSSF1 03174000 PSADSSTS EQU PSA+816 03175000 PSADSSWK EQU PSA+812 03176000 PSADSSR3 EQU PSA+808 03177000 PSADSSR2 EQU PSA+804 03178000 PSADSSRS EQU PSA+800 03179000 PSASTOR EQU PSA+796 03180000 PSACPUSA EQU PSA+794 03181000 PSAVSTAP EQU PSA+792 03182000 PSAWKVAP EQU PSA+788 03183000 PSAWKRAP EQU PSA+784 03184000 PSAMCHIC EQU PSA+783 03185000 PSARV061 EQU PSA+782 03186000 PSASYMSK EQU PSA+781 03187000 PSAMCHFL EQU PSA+780 03188000 PSACR0 EQU PSA+776 03189000 PSAPSWSV EQU PSA+768 03190000 PSALITA EQU PSA+764 03191000 PSACLHS EQU PSAHLHI 03192000 PSALKR15 EQU PSALKSA+60 03193000 PSALKR14 EQU PSALKSA+56 03194000 PSALKR13 EQU PSALKSA+52 03195000 PSALKR12 EQU PSALKSA+48 03196000 PSALKR11 EQU PSALKSA+44 03197000 PSALKR10 EQU PSALKSA+40 03198000 PSALKR9 EQU PSALKSA+36 03199000 PSALKR8 EQU PSALKSA+32 03200000 PSALKR7 EQU PSALKSA+28 03201000 PSALKR6 EQU PSALKSA+24 03202000 PSALKR5 EQU PSALKSA+20 03203000 PSALKR4 EQU PSALKSA+16 03204000 PSALKR3 EQU PSALKSA+12 03205000 PSALKR2 EQU PSALKSA+8 03206000 PSALKR1 EQU PSALKSA+4 03207000 PSALKR0 EQU PSALKSA 03208000 PSARV023 EQU PSACLHT+52 03209000 PSALOCAL EQU PSACLHT+48 03210000 PSACMSL EQU PSACLHT+44 03211000 PSAOPTL EQU PSACLHT+40 03212000 PSATPACL EQU PSACLHT+36 03213000 PSATPDNL EQU PSACLHT+32 03214000 PSATPNCL EQU PSACLHT+28 03215000 PSAIOSLL EQU PSACLHT+24 03216000 PSAIOSUL EQU PSACLHT+20 03217000 PSAIOSCL EQU PSACLHT+16 03218000 PSAIOSSL EQU PSACLHT+12 03219000 PSASALCL EQU PSACLHT+8 03220000 PSAASML EQU PSACLHT+4 03221000 PSADISPL EQU PSACLHT 03222000 PSASRSA EQU PSA+636 03223000 PSARV050 EQU PSA+634 03224000 PSADSSGO EQU PSA+633 03225000 PSARECUR EQU PSA+632 03226000 PSAHLHIS EQU PSA+628 03227000 PSAIPCSA EQU PSA+624 03228000 @NM00070 EQU PSA+621 03229000 PSAIPCDM EQU PSA+620 03230000 PSAIPCD EQU PSA+616 03231000 @NM00069 EQU PSA+613 03232000 PSAIPCRM EQU PSA+612 03233000 PSAIPCR EQU PSA+608 03234000 PSAMCHEX EQU PSA+600 03235000 PSAMPSW EQU PSA+592 03236000 PSAEXPS2 EQU PSA+584 03237000 PSAEXPS1 EQU PSA+576 03238000 PSAPIREG EQU PSA+572 03239000 PSARSREG EQU PSA+568 03240000 PSAGPREG EQU PSA+556 03241000 PSARV022 EQU PSASUP4 03242000 PSARV021 EQU PSASUP4 03243000 PSARV020 EQU PSASUP4 03244000 PSARV019 EQU PSASUP4 03245000 PSARV018 EQU PSASUP4 03246000 PSARV017 EQU PSASUP4 03247000 PSARV016 EQU PSASUP4 03248000 PSARV015 EQU PSASUP4 03249000 PSARV014 EQU PSASUP3 03250000 PSAULCMS EQU PSASUP3 03251000 PSARV012 EQU PSASUP3 03252000 PSAESTA EQU PSASUP3 03253000 PSASPR EQU PSASUP3 03254000 PSAPSREG EQU PSASUP3 03255000 PSAPI2 EQU PSASUP3 03256000 PSAIOSUP EQU PSASUP3 03257000 PSALCR EQU PSASUP2 03258000 PSARTM EQU PSASUP2 03259000 PSAACR EQU PSASUP2 03260000 PSAIPCE2 EQU PSASUP2 03261000 PSAIPCES EQU PSASUP2 03262000 PSAIPCEC EQU PSASUP2 03263000 PSAGTF EQU PSASUP2 03264000 PSAIPCRI EQU PSASUP2 03265000 PSATYPE6 EQU PSASUP1 03266000 PSATCTL EQU PSASUP1 03267000 PSADISP EQU PSASUP1 03268000 PSALOCK EQU PSASUP1 03269000 PSAPI EQU PSASUP1 03270000 PSAEXT EQU PSASUP1 03271000 PSASVC EQU PSASUP1 03272000 PSAIO EQU PSASUP1 03273000 PSAANEW EQU PSA+544 03274000 PSATOLD EQU PSA+540 03275000 PSATNEW EQU PSA+536 03276000 PSALCCAR EQU PSA+532 03277000 PSAPCCAR EQU PSA+524 03278000 PSAPCCAV EQU PSA+520 03279000 PSACPULA EQU PSA+518 03280000 PSACPUPA EQU PSA+516 03281000 PSAPSA EQU PSA+512 03282000 FLCHDEND EQU PSA+512 03283000 FLCCRSAV EQU FLCMCLA+280 03284000 FLCGRSAV EQU FLCMCLA+216 03285000 FLCFPSAV EQU FLCMCLA+184 03286000 FLCFLA EQU FLCMCLA+88 03287000 FLCRGNCD EQU FLCMCLA+84 03288000 FLCFSAA EQU FLCFSA+1 03289000 @NM00068 EQU FLCFSA 03290000 @NM00067 EQU FLCMCLA+72 03291000 FLCMCIC EQU FLCMCLA+64 03292000 @NM00066 EQU FLCMCLA+20 03293000 FLCIOAA EQU FLCIOA+1 03294000 @NM00065 EQU FLCIOA 03295000 @NM00064 EQU FLCMCLA+15 03296000 @NM00063 EQU FLCMCLA+14 03297000 @NM00062 EQU FLCMCLA+12 03298000 FLCLCL EQU FLCMCLA+8 03299000 FLCIOELA EQU FLCIOEL+1 03300000 @NM00061 EQU FLCIOEL 03301000 FLCCHNID EQU FLCMCLA 03302000 @NM00060 EQU PSA+160 03303000 FLCMTRCD EQU PSA+157 03304000 @NM00059 EQU PSA+156 03305000 FLCPERA EQU FLCPER+1 03306000 @NM00058 EQU FLCPER 03307000 @NM00057 EQU PSA+151 03308000 FLCPERCD EQU PSA+150 03309000 FLCMCNUM EQU PSA+149 03310000 @NM00056 EQU PSA+148 03311000 FLCTEAA EQU FLCTEA+1 03312000 @NM00055 EQU FLCTEA 03313000 PSAPIPC EQU PSAPICOD 03314000 PSAPIMC EQU PSAPICOD 03315000 PSAPIPER EQU PSAPICOD 03316000 PSARV049 EQU FLCPICOD 03317000 FLCPILCB EQU FLCPIILC 03318000 @NM00054 EQU FLCPIILC 03319000 @NM00053 EQU PSAEPPSW 03320000 FLCSVCN EQU PSAESPSW+2 03321000 FLCSILCB EQU FLCSVILC 03322000 @NM00052 EQU FLCSVILC 03323000 @NM00051 EQU PSAESPSW 03324000 FLCEICOD EQU PSAEEPSW+2 03325000 PSASPAD EQU PSAEEPSW 03326000 @NM00050 EQU PSA+128 03327000 FLCINPSW EQU PSA+120 03328000 FLCMNPSW EQU PSA+112 03329000 FLCPNPSW EQU PSA+104 03330000 FLCSNPSW EQU PSA+96 03331000 FLCENPSW EQU PSA+88 03332000 FLCTRACE EQU PSA+84 03333000 FLCTIMER EQU PSA+80 03334000 FLCCVT2 EQU PSA+76 03335000 FLCCAW EQU PSA+72 03336000 FLCCSW EQU PSA+64 03337000 FLCIOPSW EQU PSA+56 03338000 FLCMOPSW EQU PSA+48 03339000 FLCPOPSW EQU PSA+40 03340000 FLCSOPSW EQU PSA+32 03341000 FLCEOPSW EQU PSA+24 03342000 @NM00049 EQU FLCICCW2+4 03343000 FLCCVT EQU FLCICCW2 03344000 FLCICCW1 EQU FLCROPSW 03345000 FLCIPPSW EQU FLCRNPSW 03346000 * END UNREFERENCED COMPONENTS 03347000 @RT00151 EQU DUMPCALL 03348000 @RF00151 EQU EXITING 03349000 @RC00175 EQU @RC00156 03350000 @RT00298 EQU EXITING 03351000 @RF00337 EQU ENDPIX 03352000 @RF00191 EQU @RC00175 03353000 @ENDDATA EQU * 03354000 END IEAVRCV,(C'PLS2024',0701,78164) 03355000