TD4E TITLE 'IGTD4E - STAE EXIT ROUTINE FOR VPSS MONITOR. *00001000 ' 00002000 IGTD4E CSECT , 01S0001 00003000 @MAINENT DS 0H 01S0001 00004000 USING *,@15 01S0001 00005000 B @PROLOG 01S0001 00006000 DC AL1(16) 01S0001 00007000 DC C'IGTD4E 77.092' 01S0001 00008000 DROP @15 00009000 @PROLOG DS 0H 01S0002 00010000 USING IGTD4E,15 00011000 * IF R0P=12 THEN /* SEE IF THE SDWA WAS OBTAINED. */ 00012000 C R0P,@CF01173 01S0100 00013000 BNE @RF00100 01S0100 00014000 * DO; /* IF R0 = 12, IT WAS NOT. */ 00015000 * APCTPTR=PARMAPCT; /* LOCATE THE APCT. */ 00016000 L APCTPTR,PARMAPCT(,R2P) 01S0102 00017000 * APCTACT='0'B; /* RESET THE ACTIVE INDICATOR. */ 00018000 * APCTWARM='1'B; /* SET WARM START POSSIBLE. */ 00019000 L @11,APCTWARM(,APCTPTR) 01S0104 00020000 @GL00001 LR @10,@11 01S0104 00021000 N @10,@CB01812 01S0104 00022000 O @10,@CB01812+4 01S0104 00023000 CS @11,@10,APCTWARM(APCTPTR) 01S0104 00024000 BNE @GL00001 01S0104 00025000 * R15P=0; /* LET ABEND CONTINUE. */ 00026000 SLR R15P,R15P 01S0105 00027000 * GEN REFS(R14P)(BR R14P); /* EXIT TO CALLER. */ 00028000 BR R14P 00029000 * END; 01S0107 00030000 * ELSE /* SDWA IS PRESENT. */ 00031000 * DO; /* SO DO NORMAL PROCESSING. */ 00032000 B @RC00100 01S0108 00033000 @RF00100 DS 0H 01S0109 00034000 * STM(R14P,R12P,SAVESXXX); /* SAVE THE REGS.. */ 00035000 STM R14P,R12P,SAVESXXX(R13P) 01S0109 00036000 * RFY 01S0110 00037000 * APCODE RSTD; /* RESTRICT THE BASE REG. */ 00038000 * GEN(LR APCODE,R15P) /* LOAD THE BASE REG. */ 00039000 * SETS(APCODE) REFS(R15P); 01S0111 00040000 LR APCODE,R15P 00041000 * GEN(USING IGTD4E,APCODE); /* SUPPLY THE USING STATEMENT. */ 00042000 USING IGTD4E,APCODE 00043000 * GEN(DROP R15P); /* DON'T USE R15 ANY MORE. */ 00044000 DROP R15P 00045000 * SDWAPTR=R1P; /* POINTER TO THE STAE WORK AREA.*/ 00046000 LR SDWAPTR,R1P 01S0114 00047000 * R2P=SDWAPARM; /* POINTER TO THE PARMLIST. */ 00048000 L R2P,SDWAPARM(,SDWAPTR) 01S0115 00049000 * APCTPTR=PARMAPCT; /* POINTER TO THE APCT. */ 00050000 L APCTPTR,PARMAPCT(,R2P) 01S0116 00051000 * R0P=APSVLN; /* SIZE OF REQUIRED SAVE AREA. */ 00052000 LA R0P,80 01S0117 00053000 * GEN(A R0P,@SIZDATD) /* SIZE OF THE DYNAMIC AREA. */ 00054000 * SETS(R0P); 01S0118 00055000 A R0P,@SIZDATD 00056000 * GEN(IGTYGSV R,LV=(0),INITIAL=YES);/* GET DYNAMIC AREA. */ 00057000 IGTYGSV R,LV=(0),INITIAL=YES 00058000 * RFY 01S0120 00059000 * APDATA RSTD; /* RESTRICT THE BASE REG */ 00060000 * APDATA=R1P+APSVLN; /* DATA = ADDRESS, BUT SKIP 01S0121 00061000 * SAVEARE*/ 00062000 LA APDATA,80(,R1P) 01S0121 00063000 * GEN(USING @DATD,APDATA) /* DEFINE THE BASE REG. */ 00064000 * REFS(APDATA); /* */ 00065000 USING @DATD,APDATA 00066000 * IF PARMRTN=CODED10 THEN /* SEE IF THIS IS D10 ABENDING. */ 00067000 CLC PARMRTN(2,R2P),@CH00063 01S0123 00068000 BNE @RF00123 01S0123 00069000 * DO; 02S0124 00070000 * 02S0124 00071000 * /*********************************************************/ 00072000 * /* */ 00073000 * /* PROCESS AN ABEND BY IGTD10. */ 00074000 * /* */ 00075000 * /*********************************************************/ 00076000 * 02S0125 00077000 * CALL HALTD40; /* CAUSE IGTD40 TO QUIT, WHICH 00078000 * WILL BE SIGNIFIED ALSO BY 00079000 * IGTD20 TERMINATING. */ 00080000 BAL @14,HALTD40 02S0125 00081000 * APCTACT='0'B; /* INDICATE THAT THE MONITOR IS 00082000 * NO LONGER ACTIVE. */ 00083000 * APCTWARM='1'B; /* THE NEXT TIME UP, A WARM START 00084000 * SHOULD BE ATTEMPTED. */ 00085000 L @11,APCTWARM(,APCTPTR) 02S0127 00086000 @GL00002 LR @10,@11 02S0127 00087000 N @10,@CB01812 02S0127 00088000 O @10,@CB01812+4 02S0127 00089000 CS @11,@10,APCTWARM(APCTPTR) 02S0127 00090000 BNE @GL00002 02S0127 00091000 * DO; /* SETRP RC(0)WKAREA(SDWAPTR)DUMP 00092000 * (YES)RECORD(YES) */ 00093000 * RESPECIFY 02S0129 00094000 * (GPR00P, 02S0129 00095000 * GPR01P, 02S0129 00096000 * GPR14P, 02S0129 00097000 * GPR15P) RSTD; 02S0129 00098000 * GPR01P=SDWAPTR; 02S0130 00099000 LR GPR01P,SDWAPTR 02S0130 00100000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00101000 MVI SDWARCDE(GPR01P),X'00' 02S0131 00102000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD INDICATOR */ 00103000 OI SDWARCRD(GPR01P),B'10000000' 02S0132 00104000 * GPR01P->SDWAREQ='1'B; /* TURN ON DUMP INDICATOR */ 00105000 OI SDWAREQ(GPR01P),B'10000000' 02S0133 00106000 * RESPECIFY 02S0134 00107000 * (GPR00P, 02S0134 00108000 * GPR01P, 02S0134 00109000 * GPR14P, 02S0134 00110000 * GPR15P) UNRSTD; 02S0134 00111000 * END; /* SET RETURN PARMS. */ 00112000 * END; 02S0136 00113000 * ELSE 01S0137 00114000 * IF PARMRTN=CODED20 THEN /* SEE IF THIS IS D20 ABENDING. */ 00115000 B @RC00123 01S0137 00116000 @RF00123 CLC PARMRTN(2,R2P),@CH00065 01S0137 00117000 BNE @RF00137 01S0137 00118000 * DO; 02S0138 00119000 * 02S0138 00120000 * /*******************************************************/ 00121000 * /* */ 00122000 * /* PROCESS AN ABEND BY IGTD20. */ 00123000 * /* */ 00124000 * /*******************************************************/ 00125000 * 02S0139 00126000 * APCTEULD=0; /* CLEAR THE CROSS MEMORY ECB. */ 00127000 SLR @11,@11 02S0139 00128000 ST @11,APCTEULD(,APCTPTR) 02S0139 00129000 * GEN REFS(CVT,CVTSPOST)(SPOST);/* STOP ANY PENDING CROSS 00130000 * MEMORY POSTS FROM HAPPENING. */ 00131000 SPOST 00132000 * CALL HALTD40; /* CAUSE IGTD40 TO TERMINATE. */ 00133000 BAL @14,HALTD40 02S0141 00134000 * DO; /* SETRP RC(0)WKAREA(SDWAPTR)DUMP 00135000 * (YES)RECORD(YES) */ 00136000 * RESPECIFY 02S0143 00137000 * (GPR00P, 02S0143 00138000 * GPR01P, 02S0143 00139000 * GPR14P, 02S0143 00140000 * GPR15P) RSTD; 02S0143 00141000 * GPR01P=SDWAPTR; 02S0144 00142000 LR GPR01P,SDWAPTR 02S0144 00143000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00144000 MVI SDWARCDE(GPR01P),X'00' 02S0145 00145000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD INDICATOR */ 00146000 OI SDWARCRD(GPR01P),B'10000000' 02S0146 00147000 * GPR01P->SDWAREQ='1'B;/* TURN ON DUMP INDICATOR */ 00148000 OI SDWAREQ(GPR01P),B'10000000' 02S0147 00149000 * RESPECIFY 02S0148 00150000 * (GPR00P, 02S0148 00151000 * GPR01P, 02S0148 00152000 * GPR14P, 02S0148 00153000 * GPR15P) UNRSTD; 02S0148 00154000 * END; /* SET RETURN PARMS. */ 00155000 * END; 02S0150 00156000 * ELSE /* IT MUST BE D40. */ 00157000 * DO; 02S0151 00158000 * 02S0151 00159000 B @RC00137 02S0151 00160000 @RF00137 DS 0H 02S0152 00161000 * /*******************************************************/ 00162000 * /* */ 00163000 * /* PROCESS AN ABEND OF IGTD40. */ 00164000 * /* */ 00165000 * /*******************************************************/ 00166000 * 02S0152 00167000 * IF INUSER=ON& /* DETERMINE IF THE ABEND 02S0152 00168000 * OCCURRED IN THE USER EXITS, 00169000 * EITHER IN THE COMMAND EXIT OR 00170000 * THE REIPL EXIT . IF THIS IS 00171000 * WHERE THE ABEND OCCURRED, THE 00172000 * PHILOSOPHY IS TO GIVE THE GUY 00173000 * A DUMP, BUT NOT TAKE THE 02S0152 00174000 * MONITOR DOWN. */ 00175000 * RECURSE=OFF THEN /* IF RECURSIVE ABEND THEN QUIT. */ 00176000 TM INUSER(R2P),B'10000000' 02S0152 00177000 BNO @RF00152 02S0152 00178000 TM RECURSE(R2P),B'01000000' 02S0152 00179000 BNZ @RF00152 02S0152 00180000 * DO; 02S0153 00181000 * INUSER=OFF; /* TURN OFF THE USER INDICATOR. */ 00182000 * RECURSE=ON; /* INDICATE THAT THE NEXT ONE IS 00183000 * A BAD ONE. */ 00184000 OI RECURSE(R2P),B'01000000' 02S0155 00185000 NI INUSER(R2P),B'01111111' 02S0155 00186000 * SDWASRSV=PARMREGS;/* SET UP RETRY REGS. */ 00187000 MVC SDWASRSV(64,SDWAPTR),PARMREGS(R2P) 02S0156 00188000 * R2P=PARMRTRY; /* ADDRESS OF RETRY RTN. */ 00189000 L R2P,PARMRTRY(,R2P) 02S0157 00190000 * DO; /* SETRP RC(4)DUMP(YES)FRESDWA(YE 00191000 * S)RETADDR(R2P->LABEL)WKAREA(SD 00192000 * WAPTR) */ 00193000 * RESPECIFY 02S0159 00194000 * (GPR00P, 02S0159 00195000 * GPR01P, 02S0159 00196000 * GPR14P, 02S0159 00197000 * GPR15P) RSTD; 02S0159 00198000 * GPR01P=SDWAPTR; 02S0160 00199000 LR GPR01P,SDWAPTR 02S0160 00200000 * GPR01P->SDWARCDE=4;/* STORE RC INTO SDWA */ 00201000 MVI SDWARCDE(GPR01P),X'04' 02S0161 00202000 * GPR01P->SDWARTYA=ADDR(R2P->LABEL);/* SAVE RETRY 00203000 * ADDRESS */ 00204000 ST R2P,SDWARTYA(,GPR01P) 02S0162 00205000 * GPR01P->SDWAFREE='1'B;/* SET FLAG TO FREE SDWA */ 00206000 OI SDWAFREE(GPR01P),B'00000100' 02S0163 00207000 * GPR01P->SDWAREQ='1'B;/* TURN ON DUMP INDICATOR */ 00208000 OI SDWAREQ(GPR01P),B'10000000' 02S0164 00209000 * RESPECIFY 02S0165 00210000 * (GPR00P, 02S0165 00211000 * GPR01P, 02S0165 00212000 * GPR14P, 02S0165 00213000 * GPR15P) UNRSTD; 02S0165 00214000 * END; /* TRY TO RETRY. */ 00215000 * END; 02S0167 00216000 * ELSE 02S0168 00217000 * DO; /* SETRP RC(0)WKAREA(SDWAPTR)DUMP 00218000 * (YES)RECORD(YES) */ 00219000 B @RC00152 02S0168 00220000 @RF00152 DS 0H 02S0169 00221000 * RESPECIFY 02S0169 00222000 * (GPR00P, 02S0169 00223000 * GPR01P, 02S0169 00224000 * GPR14P, 02S0169 00225000 * GPR15P) RSTD; 02S0169 00226000 * GPR01P=SDWAPTR; 02S0170 00227000 LR GPR01P,SDWAPTR 02S0170 00228000 * GPR01P->SDWARCDE=0;/* SAVE RC VALUE */ 00229000 MVI SDWARCDE(GPR01P),X'00' 02S0171 00230000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD INDICATOR */ 00231000 OI SDWARCRD(GPR01P),B'10000000' 02S0172 00232000 * GPR01P->SDWAREQ='1'B;/* TURN ON DUMP INDICATOR */ 00233000 OI SDWAREQ(GPR01P),B'10000000' 02S0173 00234000 * RESPECIFY 02S0174 00235000 * (GPR00P, 02S0174 00236000 * GPR01P, 02S0174 00237000 * GPR14P, 02S0174 00238000 * GPR15P) UNRSTD; 02S0174 00239000 * END; /* SET RETURN PARMS. */ 00240000 * END; /* END OF D40ABEND. */ 00241000 @RC00152 DS 0H 02S0177 00242000 * R0P=APSVLN; /* SIZE OF REQUIRED SAVE AREA. */ 00243000 @RC00137 DS 0H 01S0177 00244000 @RC00123 LA R0P,80 01S0177 00245000 * R1P=APDATA-R0P; /* REAL ADDR OF GOTTEN STORAGE. */ 00246000 LR R1P,APDATA 01S0178 00247000 SLR R1P,R0P 01S0178 00248000 * GEN REFS(R13P,APDATA) SETS(R0P,R1P,APDATA); 01S0179 00249000 * /* EPILOG. */ 00250000 A R0P,@SIZDATD /* SIZE OF THE DYNAMIC AREA. */ 00251000 IGTYFSV R,LV=(0),A=(1) /* GIVE BACK THE DYNAMIC AREA. */ 00252000 * LM(R14P,R12P,SAVESXXX); /* RESTORE THE REGS. */ 00253000 LM R14P,R12P,SAVESXXX(R13P) 01S0180 00254000 * R15P=0; /* SET THE RETURN CODE. */ 00255000 SLR R15P,R15P 01S0181 00256000 * RETURN; /* GO BACK. */ 00257000 @EL00001 DS 0H 01S0182 00258000 @EF00001 DS 0H 01S0182 00259000 @ER00001 BR @14 01S0182 00260000 * END; 01S0183 00261000 * RETURN; /* RETURN TO CALLER. */ 00262000 B @EL00001 01S0184 00263000 * 01S0185 00264000 * /*****************************************************************/ 00265000 * /* */ 00266000 * /* THIS ROUTINE CAUSES TERMINATION OF IGTD40 BY SETTING THE */ 00267000 * /* MONITOR HALT INDICATOR. AS SOON AS THE EXISTING COMMANDS ARE */ 00268000 * /* PROCESSED, IGTD40 WILL TERMINATE, THEREBY CAUSING IGTD20 TO */ 00269000 * /* TERMINATE (ASSUMING THAT IGTD20 IS NOT THE ABENDING TASK). THE*/ 00270000 * /* ROUTINE THEN WAITS ON THE ECB GIVEN AS INPUT, OR ONE MINUTE, */ 00271000 * /* WHICH EVER COMES FIRST. THEN IT RETURNS TO THE CALLER. */ 00272000 * /* */ 00273000 * /*****************************************************************/ 00274000 * 01S0185 00275000 *HALTD40: 01S0185 00276000 * PROC; 01S0185 00277000 HALTD40 STM @14,@12,@SA00002 01S0185 00278000 * APCTHALT='1'B; /* TELL IGTD40 TO QUIT. */ 00279000 L @11,APCTHALT(,APCTPTR) 01S0186 00280000 @GL00003 LR @10,@11 01S0186 00281000 O @10,@CF01819 01S0186 00282000 CS @11,@10,APCTHALT(APCTPTR) 01S0186 00283000 BNE @GL00003 01S0186 00284000 * DO; /* IGTYPOST ECB(APCTECPW) */ 00285000 * RFY 01S0188 00286000 * (GPR00P, 01S0188 00287000 * GPR01P, 01S0188 00288000 * GPR14F, 01S0188 00289000 * GPR15F) RSTD; /* REGISTERS USED */ 00290000 * GPR15F=APCTECPW; /* CURRENT ECB CONTENTS */ 00291000 L GPR15F,APCTECPW(,APCTPTR) 01S0189 00292000 *LTR0017X: 01S0190 00293000 * IF GPR15F<0 THEN /* IF ECB ALREADY */ 00294000 LTR0017X LTR GPR15F,GPR15F 01S0190 00295000 BNM @RF00190 01S0190 00296000 * DO; /* WAITED UPON, MUST ISSUE POST */ 00297000 * GPR01P=ADDR(APCTECPW); /* ADDRESS OF ECB TO POST */ 00298000 LA GPR01P,APCTECPW(,APCTPTR) 01S0192 00299000 * GPR00P=0; /* POST CODE */ 00300000 SLR GPR00P,GPR00P 01S0193 00301000 * SVC(2); /* ISSUE POST */ 00302000 SVC 2 01S0194 00303000 * END; /* ECB POSTED */ 00304000 * ELSE /* ECB NOT YET POSTED */ 00305000 * DO; /* SO TRY 'COMPARE-AND-SWAP' POST*/ 00306000 B @RC00190 01S0196 00307000 @RF00190 DS 0H 01S0197 00308000 * GPR14F='40000000'X; /* POST CODE */ 00309000 L GPR14F,@CF01729 01S0197 00310000 * CS(GPR15F,GPR14F,APCTECPW);/* POST THE ECB */ 00311000 CS GPR15F,@14,APCTECPW(APCTPTR) 01S0198 00312000 * BC(7,LTR0017X); /* RETRY IF 'CS' FAILED */ 00313000 BC 7,LTR0017X 01S0199 00314000 * END; /* ECB POSTED VIA 'CS' */ 00315000 * RFY 01S0201 00316000 * (GPR00P, 01S0201 00317000 * GPR01P, 01S0201 00318000 * GPR14F, 01S0201 00319000 * GPR15F) UNRSTD; /* DONE WITH REGS */ 00320000 @RC00190 DS 0H 01S0202 00321000 * END; /* POST LOGIC COMPLETE WAKE UP 00322000 * IGTD40 IF ASLEEP. */ 00323000 * GEN REFS(ONEMIN); 01S0203 00324000 * THE REASON FOR THE STIMER IS THAT WHILE WE WANT IGTD40 TO HAVE A 00325000 * CHANCE TO END GRACEFULLY, WE ARE NOT GOING TO GIVE HIM FOREVER. 00326000 * 00327000 STIMER WAIT,BINTVL=ONEMIN TIME TO WAIT. 00328000 * RETURN; 01S0204 00329000 @EL00002 DS 0H 01S0204 00330000 @EF00002 DS 0H 01S0204 00331000 @ER00002 LM @14,@12,@SA00002 01S0204 00332000 BR @14 01S0204 00333000 * END; 01S0205 00334000 * /* IGTXEPLG */ 00335000 * 01S0206 00336000 * /*****************************************************************/ 00337000 * /* */ 00338000 * /* SYSTEM DECLARES */ 00339000 * /* */ 00340000 * /*****************************************************************/ 00341000 * 01S0206 00342000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00343000 * GPR14F FIXED(31) REG(14), 01S0206 00344000 * GPR15F FIXED(31) REG(15), 01S0206 00345000 * GPR00P PTR(31) REG(0), 01S0206 00346000 * GPR01P PTR(31) REG(1), 01S0206 00347000 * GPR14P PTR(31) REG(14), 01S0206 00348000 * GPR15P PTR(31) REG(15); 01S0206 00349000 * DECLARE /* COMMON VARIABLES */ 00350000 * I256C CHAR(256) BASED, 01S0207 00351000 * I031F FIXED(31) BASED, 01S0207 00352000 * I031P PTR(31) BASED, 01S0207 00353000 * I015F FIXED(15) BASED, 01S0207 00354000 * I015P PTR(15) BASED, 01S0207 00355000 * I008P PTR(8) BASED, 01S0207 00356000 * I001C CHAR(1) BASED; 01S0207 00357000 * 01S0208 00358000 * /*****************************************************************/ 00359000 * /* */ 00360000 * /* MODULE PATCH AREA */ 00361000 * /* */ 00362000 * /*****************************************************************/ 00363000 * 01S0208 00364000 * DCL 01S0208 00365000 * APPATCH CHAR(*) INT STATIC LOCAL GEND; 01S0208 00366000 * GENERATE DATA DEFS(APPATCH); 01S0209 00367000 * 01S0210 00368000 * /*****************************************************************/ 00369000 * /* */ 00370000 * /* GENERAL REGISTER DECLARES */ 00371000 * /* */ 00372000 * /*****************************************************************/ 00373000 * 01S0210 00374000 * DCL 01S0210 00375000 * R0F FIXED(31) REG(0), 01S0210 00376000 * R0P PTR(24) REG(0), 01S0210 00377000 * R0RSTD PTR(31) REG(0), 01S0210 00378000 * R1F FIXED(31) REG(1), 01S0210 00379000 * R1P PTR(24) REG(1), 01S0210 00380000 * R1RSTD PTR(31) REG(1), 01S0210 00381000 * R2F FIXED(31) REG(2), 01S0210 00382000 * R2P PTR(24) REG(2), 01S0210 00383000 * R2RSTD PTR(31) REG(2), 01S0210 00384000 * R3F FIXED(31) REG(3), 01S0210 00385000 * R3P PTR(24) REG(3), 01S0210 00386000 * R3RSTD PTR(31) REG(3), 01S0210 00387000 * R4F FIXED(31) REG(4), 01S0210 00388000 * R4P PTR(24) REG(4), 01S0210 00389000 * R4RSTD PTR(31) REG(4), 01S0210 00390000 * R5F FIXED(31) REG(5), 01S0210 00391000 * R5P PTR(24) REG(5), 01S0210 00392000 * R5RSTD PTR(31) REG(5), 01S0210 00393000 * R6F FIXED(31) REG(6), 01S0210 00394000 * R6P PTR(24) REG(6), 01S0210 00395000 * R6RSTD PTR(31) REG(6), 01S0210 00396000 * R7F FIXED(31) REG(7), 01S0210 00397000 * R7P PTR(24) REG(7), 01S0210 00398000 * R7RSTD PTR(31) REG(7), 01S0210 00399000 * R8F FIXED(31) REG(8), 01S0210 00400000 * R8P PTR(24) REG(8), 01S0210 00401000 * R8RSTD PTR(31) REG(8), 01S0210 00402000 * R9F FIXED(31) REG(9), 01S0210 00403000 * R9P PTR(24) REG(9), 01S0210 00404000 * R9RSTD PTR(31) REG(9), 01S0210 00405000 * R10F FIXED(31) REG(10), 01S0210 00406000 * R10P PTR(24) REG(10), 01S0210 00407000 * R10RSTD PTR(31) REG(10), 01S0210 00408000 * R11F FIXED(31) REG(11), 01S0210 00409000 * R11P PTR(24) REG(11), 01S0210 00410000 * R11RSTD PTR(31) REG(11), 01S0210 00411000 * R12F FIXED(31) REG(12), 01S0210 00412000 * R12P PTR(24) REG(12), 01S0210 00413000 * R12RSTD PTR(31) REG(12), 01S0210 00414000 * R13F FIXED(31) REG(13), 01S0210 00415000 * R13P PTR(24) REG(13), 01S0210 00416000 * R13RSTD PTR(31) REG(13), 01S0210 00417000 * R14F FIXED(31) REG(14), 01S0210 00418000 * R14P PTR(24) REG(14), 01S0210 00419000 * R14RSTD PTR(31) REG(14), 01S0210 00420000 * R15F FIXED(31) REG(15), 01S0210 00421000 * R15P PTR(24) REG(15), 01S0210 00422000 * R15RSTD PTR(31) REG(15), 01S0210 00423000 * 01S0210 00424000 * /***************************************************************/ 00425000 * /* */ 00426000 * /* VPSS CONTROL BLOCK POINTER DECLARES */ 00427000 * /* */ 00428000 * /***************************************************************/ 00429000 * 01S0210 00430000 * APSMPTR PTR(24) REG(01), /* STORAGE MANAGEMENT BLOCK 01S0210 00431000 * (SUGGESTED POINTER) */ 00432000 * APSCPTR PTR(24) REG(01), /* STORAGE MANAGEMENT CONTROL 00433000 * WORD (SUGGESTED POINTER) */ 00434000 * APINPTR PTR(24) REG(01), /* USER'S INPUT PARAMETER LIST 00435000 * (SUGGESTED POINTER) */ 00436000 */* */ 00437000 * 01S0210 00438000 * APDATA PTR(24) REG(06), /* ADDRESS OF DYNAMIC DATA 01S0210 00439000 * WORKAREA (DATAREG) */ 00440000 * APCODE PTR(24) REG(07), /* PROGRAM CODE BASE REGISTER 00441000 * (CODEREG) */ 00442000 * APDEBPTR PTR(24) REG(08), /* VPSS DEB (SUGGESTED POINTER) */ 00443000 * APNPPTR PTR(24) REG(08), /* SUBSYSTEM INITIALIZATION 01S0210 00444000 * WORKAREA BLOCK (ONLY USED BY 00445000 * SUBSYSTEM INITIALIZATION) */ 00446000 * APRLPTR PTR(24) REG(08), /* VPSS ACB REQUEST LIST 01S0210 00447000 * (SUGGESTED POINTER) */ 00448000 * APCIPTR PTR(24) REG(08), /* 3838 CONTROL TABLE (SUGGESTED 00449000 * POINTER) */ 00450000 * APCWPTR PTR(24) REG(08), /* CALL INTERFACE WORKAREA 01S0210 00451000 * (SUGGESTED POINTER) */ 00452000 * APERPTR PTR(24) REG(08), /* ERP/IO APPENDAGE WORKAREA 00453000 * (SUGGESTED POINTER) */ 00454000 * APACBPTR PTR(24) REG(09), /* VPSS ACB (SUGGESTED POINTER) */ 00455000 * APCQPTR PTR(24) REG(09), /* COMMAND QUEUE ELEMENT 01S0210 00456000 * (SUGGESTED POINTER) */ 00457000 * APOTPTR PTR(24) REG(09), /* OPTION TABLE (SUGGESTED 01S0210 00458000 * POINTER) */ 00459000 * APIOPTR PTR(24) REG(10), /* I/O ELEMENT (SUGGESTED 01S0210 00460000 * POINTER) */ 00461000 * APEXLPTR PTR(24) REG(10), /* VPSS EXLST (SUGGESTED POINTER)*/ 00462000 * APUBPTR PTR(24) REG(10), /* UNIT BLOCK (SUGGESTED POINTER)*/ 00463000 * APAXPTR PTR(24) REG(10), /* VPSS ACB EXTENSION (SUGGESTED 00464000 * POINTER) */ 00465000 * APCPPTR PTR(24) REG(10), /* VPSS CALL PROCESSING 01S0210 00466000 * INDICATORS (SUGGESTED POINTER)*/ 00467000 * APOCPTR PTR(24) REG(10), /* VPSS OPEN/CLOSE SUBSYSTEM 00468000 * WORKAREA (REQUIRED POINTER) */ 00469000 * APATPTR PTR(24) REG(11), /* VPSS ACB TABLE (SUGGESTED 00470000 * POINTER) */ 00471000 * APLBPTR PTR(24) REG(11), /* LABEL RESOLUTION TABLE 01S0210 00472000 * (SUGGESTED POINTER) */ 00473000 * APUTPTR PTR(24) REG(11), /* USER TABLE (SUGGESTED POINTER)*/ 00474000 * APDSPTR PTR(24) REG(11), /* VPSS DATASET ENTRY (SUGGESTED 00475000 * POINTER) */ 00476000 * APXLPTR PTR(24) REG(11), /* TRANSLATION TABLE (SUGGESTED 00477000 * POINTER) */ 00478000 * APDXPTR PTR(24) REG(11), /* VPSS DEB EXTENSION (SUGGESTED 00479000 * POINTER) */ 00480000 * APCTPTR PTR(24) REG(12) RSTD, /* CONTROL TABLE (REQUIRED 01S0210 00481000 * POINTER) */ 00482000 * APSVPTR PTR(24) REG(13) RSTD, /* OS/VPSS SAVEAREA/WORKAREA 00483000 * (REQUIRED POINTER) */ 00484000 * APRETURN PTR(24) REG(14), /* RETURN ADDRESS FOR SUBROUTINE 00485000 * LINKAGE */ 00486000 * APENTRY PTR(24) REG(15), /* SUBROUTINE ENTRY POINT LINKAGE*/ 00487000 * APRCODE PTR(24) REG(15); /* CONTAINS SUBROUTINE RETURN 00488000 * CODE */ 00489000 * 01S0211 00490000 * /*****************************************************************/ 00491000 * /* */ 00492000 * /* USER REGISTER DECLARES */ 00493000 * /* */ 00494000 * /*****************************************************************/ 00495000 * 01S0211 00496000 * END 01S0211 00497000 * 01S0211 00498000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00499000 */*%INCLUDE SYSLIB (CVT ) */ 00500000 */*%INCLUDE SYSLIB (IGTXAPCV) */ 00501000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00502000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00503000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00504000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00505000 */*%INCLUDE SYSLIB (IGTXSYSI) */ 00506000 */*%INCLUDE SYSLIB (IGTXAPCT) */ 00507000 */*%INCLUDE SYSLIB (IGTXAPCQ) */ 00508000 */*%INCLUDE SYSLIB (IGTXAPMM) */ 00509000 */*%INCLUDE SYSLIB (IGTXAPSV) */ 00510000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00511000 */*%INCLUDE SYSLIB (IGTXAPDS) */ 00512000 */*%INCLUDE SYSUT5 (D10ABEND) */ 00513000 */*%INCLUDE SYSUT5 (D20ABEND) */ 00514000 */*%INCLUDE SYSUT5 (D40ABEND) */ 00515000 * 01S0211 00516000 * ; 01S0211 00517000 B @EL00001 01S0211 00518000 @DATA DS 0H 00519000 @CH00063 DC H'10' 00520000 @CH00065 DC H'20' 00521000 @DATD DSECT 00522000 DS 0F 00523000 @SA00002 DS 15F 00524000 IGTD4E CSECT 00525000 DS 0F 00526000 @CF01173 DC F'12' 00527000 @CF01729 DC XL4'40000000' 00528000 @CF01819 DC BL4'00010000000000000000000000000000' 00529000 @DATD DSECT 00530000 DS 0D 00531000 IGTD4E CSECT 00532000 DS 0F 00533000 @SIZDATD DC AL1(0) 00534000 DC AL3(@ENDDATD-@DATD) 00535000 DS 0D 00536000 ONEMIN DC A(6000) 00537000 @CB01812 DC B'011111111111111111111111111111110000010000000000000000C00538000 0000000000' 00539000 @DATD DSECT 00540000 CVTPTR EQU 16 DEFINE LOCATION OF THE CVT PTR. 00541000 IGTD4E CSECT 00542000 * /* GENERATE PATCH 00543000 IGTXZAP , GENERATE PATCH AREA 00544000 @DATD DSECT 00545000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00546000 @ENDDATD EQU * 00547000 IGTD4E CSECT 00548000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00549000 @01 EQU 01 00550000 @02 EQU 02 00551000 @03 EQU 03 00552000 @04 EQU 04 00553000 @05 EQU 05 00554000 @06 EQU 06 00555000 @07 EQU 07 00556000 @08 EQU 08 00557000 @09 EQU 09 00558000 @10 EQU 10 00559000 @11 EQU 11 00560000 @12 EQU 12 00561000 @13 EQU 13 00562000 @14 EQU 14 00563000 @15 EQU 15 00564000 R13P EQU @13 00565000 R2P EQU @02 00566000 SDWAPTR EQU @03 00567000 APCTPTR EQU @12 00568000 APSVPTR EQU @13 00569000 R14P EQU @14 00570000 R15P EQU @15 00571000 R0P EQU @00 00572000 R1P EQU @01 00573000 R12P EQU @12 00574000 APCODE EQU @07 00575000 APDATA EQU @06 00576000 GPR00P EQU @00 00577000 GPR01P EQU @01 00578000 GPR14P EQU @14 00579000 GPR15P EQU @15 00580000 GPR14F EQU @14 00581000 GPR15F EQU @15 00582000 APACBPTR EQU @09 00583000 APATPTR EQU @11 00584000 APAXPTR EQU @10 00585000 APCIPTR EQU @08 00586000 APCPPTR EQU @10 00587000 APCQPTR EQU @09 00588000 APCWPTR EQU @08 00589000 APDEBPTR EQU @08 00590000 APDSPTR EQU @11 00591000 APDXPTR EQU @11 00592000 APENTRY EQU @15 00593000 APERPTR EQU @08 00594000 APEXLPTR EQU @10 00595000 APINPTR EQU @01 00596000 APIOPTR EQU @10 00597000 APLBPTR EQU @11 00598000 APNPPTR EQU @08 00599000 APOCPTR EQU @10 00600000 APOTPTR EQU @09 00601000 APRCODE EQU @15 00602000 APRETURN EQU @14 00603000 APRLPTR EQU @08 00604000 APSCPTR EQU @01 00605000 APSMPTR EQU @01 00606000 APUBPTR EQU @10 00607000 APUTPTR EQU @11 00608000 APXLPTR EQU @11 00609000 R0F EQU @00 00610000 R0RSTD EQU @00 00611000 R1F EQU @01 00612000 R1RSTD EQU @01 00613000 R10F EQU @10 00614000 R10P EQU @10 00615000 R10RSTD EQU @10 00616000 R11F EQU @11 00617000 R11P EQU @11 00618000 R11RSTD EQU @11 00619000 R12F EQU @12 00620000 R12RSTD EQU @12 00621000 R13F EQU @13 00622000 R13RSTD EQU @13 00623000 R14F EQU @14 00624000 R14RSTD EQU @14 00625000 R15F EQU @15 00626000 R15RSTD EQU @15 00627000 R2F EQU @02 00628000 R2RSTD EQU @02 00629000 R3F EQU @03 00630000 R3P EQU @03 00631000 R3RSTD EQU @03 00632000 R4F EQU @04 00633000 R4P EQU @04 00634000 R4RSTD EQU @04 00635000 R5F EQU @05 00636000 R5P EQU @05 00637000 R5RSTD EQU @05 00638000 R6F EQU @06 00639000 R6P EQU @06 00640000 R6RSTD EQU @06 00641000 R7F EQU @07 00642000 R7P EQU @07 00643000 R7RSTD EQU @07 00644000 R8F EQU @08 00645000 R8P EQU @08 00646000 R8RSTD EQU @08 00647000 R9F EQU @09 00648000 R9P EQU @09 00649000 R9RSTD EQU @09 00650000 @NM00001 EQU 0 00651000 SAVESXXX EQU @NM00001+12 00652000 PARMLIST EQU 0 00653000 PARMAPCT EQU PARMLIST 00654000 PARMRTN EQU PARMLIST+4 00655000 PARMFLGS EQU PARMLIST+6 00656000 PARMUSER EQU PARMFLGS 00657000 INUSER EQU PARMUSER 00658000 RECURSE EQU PARMFLGS 00659000 PARMREGS EQU PARMLIST+8 00660000 PARMRTRY EQU PARMLIST+72 00661000 LABEL EQU 0 00662000 CVTMAP EQU 0 00663000 CVT EQU CVTMAP 00664000 CVTDAR EQU CVTMAP+72 00665000 CVTFLGS1 EQU CVTDAR 00666000 CVTDCB EQU CVTMAP+116 00667000 CVTIERLC EQU CVTMAP+144 00668000 CVTOPTA EQU CVTMAP+182 00669000 CVTOPTB EQU CVTMAP+183 00670000 CVTGTF EQU CVTMAP+236 00671000 CVTGTFST EQU CVTGTF 00672000 CVTGTFS EQU CVTGTFST 00673000 CVTSTATE EQU CVTGTFST 00674000 CVTTMODE EQU CVTGTFST 00675000 CVTFORM EQU CVTGTFST 00676000 CVTAQAVT EQU CVTMAP+240 00677000 CVTTCMFG EQU CVTAQAVT 00678000 CVTVOLM2 EQU CVTMAP+244 00679000 CVTTATA EQU CVTVOLM2 00680000 CVTTSKS EQU CVTTATA 00681000 CVTVOLF2 EQU CVTTSKS 00682000 CVTTAT EQU CVTTATA+1 00683000 CVTATER EQU CVTMAP+248 00684000 CVTEXT1 EQU CVTMAP+252 00685000 CVTPURG EQU CVTMAP+260 00686000 CVTQMSG EQU CVTMAP+268 00687000 CVTDMSR EQU CVTMAP+272 00688000 CVTRSV37 EQU CVTDMSR 00689000 CVTDMSRF EQU CVTRSV37 00690000 CVTERPV EQU CVTMAP+316 00691000 CVTINTLA EQU CVTMAP+320 00692000 CVTAPF EQU CVTMAP+324 00693000 CVTEXT2 EQU CVTMAP+328 00694000 CVTHJES EQU CVTMAP+332 00695000 CVTPGSIA EQU CVTMAP+348 00696000 CVTA1F1 EQU CVTMAP+356 00697000 CVTSYSK EQU CVTMAP+357 00698000 CVTVOLM1 EQU CVTMAP+380 00699000 CVTVOLF1 EQU CVTVOLM1 00700000 CVTATMCT EQU CVTMAP+388 00701000 CVTXTNT1 EQU 0 00702000 CVTXTNT2 EQU 0 00703000 CVTDSSV EQU CVTXTNT2 00704000 CVTFLGBT EQU CVTXTNT2+5 00705000 CVTQID EQU CVTXTNT2+24 00706000 CVTRV400 EQU CVTXTNT2+52 00707000 CVTRV409 EQU CVTXTNT2+53 00708000 CVTATCVT EQU CVTXTNT2+64 00709000 CVTRV429 EQU CVTXTNT2+84 00710000 CVTRV438 EQU CVTXTNT2+85 00711000 CVTRV457 EQU CVTXTNT2+112 00712000 CVTRV466 EQU CVTXTNT2+113 00713000 CVTFIX EQU 0 00714000 CVTRELNO EQU CVTFIX+252 00715000 APCT EQU 0 00716000 APCTENQM EQU APCT+12 00717000 APCTSMIN EQU APCT+32 00718000 APCTSMAD EQU APCT+36 00719000 APCTZ@@@ EQU APCT+40 00720000 APCTU@@@ EQU APCT+440 00721000 APCTBR14 EQU APCT+840 00722000 APCTERRS EQU APCT+876 00723000 @NM00018 EQU APCT+936 00724000 APCTSTAT EQU @NM00018 00725000 APCTACT EQU APCTSTAT 00726000 APCTHALT EQU APCTSTAT 00727000 APCTWARM EQU APCTSTAT 00728000 APCTPRSW EQU @NM00018+1 00729000 APCTAPCQ EQU APCT+944 00730000 APCTCQAQ EQU APCT+952 00731000 APCTEULD EQU APCT+972 00732000 APCTECPW EQU APCT+976 00733000 APCTZ@@1 EQU APCT+1120 00734000 APCQ EQU 0 00735000 APCQSW EQU APCQ+24 00736000 APSV EQU 0 00737000 APSVREGS EQU APSV+12 00738000 SDWA EQU 0 00739000 SDWAPARM EQU SDWA 00740000 SDWAFIOB EQU SDWA+4 00741000 SDWAABCC EQU SDWAFIOB 00742000 SDWACMPF EQU SDWAABCC 00743000 SDWAREQ EQU SDWACMPF 00744000 SDWACTL1 EQU SDWA+8 00745000 SDWACMKA EQU SDWACTL1 00746000 SDWAMWPA EQU SDWACTL1+1 00747000 SDWAPMKA EQU SDWACTL1+4 00748000 SDWACTL2 EQU SDWA+16 00749000 SDWACMKP EQU SDWACTL2 00750000 SDWAMWPP EQU SDWACTL2+1 00751000 SDWAPMKP EQU SDWACTL2+4 00752000 SDWAGRSV EQU SDWA+24 00753000 SDWANAME EQU SDWA+88 00754000 SDWAEC1 EQU SDWA+104 00755000 SDWAEMK1 EQU SDWAEC1 00756000 SDWAMWP1 EQU SDWAEC1+1 00757000 SDWAINT1 EQU SDWAEC1+2 00758000 SDWANXT1 EQU SDWAEC1+4 00759000 SDWAAEC1 EQU SDWA+112 00760000 SDWAILC1 EQU SDWAAEC1+1 00761000 SDWAINC1 EQU SDWAAEC1+2 00762000 SDWAICD1 EQU SDWAINC1+1 00763000 SDWAEC2 EQU SDWA+120 00764000 SDWAEMK2 EQU SDWAEC2 00765000 SDWAMWP2 EQU SDWAEC2+1 00766000 SDWAINT2 EQU SDWAEC2+2 00767000 SDWANXT2 EQU SDWAEC2+4 00768000 SDWAAEC2 EQU SDWA+128 00769000 SDWAILC2 EQU SDWAAEC2+1 00770000 SDWAINC2 EQU SDWAAEC2+2 00771000 SDWAICD2 EQU SDWAINC2+1 00772000 SDWASRSV EQU SDWA+136 00773000 SDWAIDNT EQU SDWA+200 00774000 SDWAMCH EQU SDWA+204 00775000 SDWASTCK EQU SDWAMCH 00776000 SDWAMCHI EQU SDWAMCH+8 00777000 SDWAMCHS EQU SDWAMCHI 00778000 SDWAMCHD EQU SDWAMCHI+1 00779000 SDWARSR1 EQU SDWAMCH+12 00780000 SDWARSR2 EQU SDWAMCH+13 00781000 SDWAFLGS EQU SDWA+232 00782000 SDWAERRA EQU SDWAFLGS 00783000 SDWAERRB EQU SDWAFLGS+1 00784000 SDWAERRC EQU SDWAFLGS+2 00785000 SDWAERRD EQU SDWAFLGS+3 00786000 SDWAIOFS EQU SDWA+238 00787000 SDWARTYA EQU SDWA+240 00788000 SDWACPUA EQU SDWA+248 00789000 SDWAPARQ EQU SDWA+252 00790000 SDWARCDE EQU SDWAPARQ 00791000 SDWAACF2 EQU SDWAPARQ+1 00792000 SDWARCRD EQU SDWAACF2 00793000 SDWAFREE EQU SDWAACF2 00794000 SDWAACF3 EQU SDWAPARQ+2 00795000 SDWAACF4 EQU SDWAPARQ+3 00796000 SDWALKWA EQU SDWA+256 00797000 SDWALKWS EQU SDWALKWA 00798000 SDWARECP EQU SDWA+292 00799000 SDWASNPA EQU SDWA+320 00800000 SDWADUMP EQU SDWASNPA 00801000 SDWADPFS EQU SDWADUMP+1 00802000 SDWADDAT EQU SDWASNPA+4 00803000 SDWASDAT EQU SDWADDAT 00804000 SDWASDA0 EQU SDWASDAT 00805000 SDWASDA1 EQU SDWASDAT+1 00806000 SDWAPDAT EQU SDWADDAT+2 00807000 SDWADPSA EQU SDWA+328 00808000 SDWADPSL EQU SDWADPSA 00809000 SDWARA EQU SDWA+400 00810000 SDWADPVA EQU SDWARA+2 00811000 APDS EQU 0 00812000 APDSTD EQU APDS+16 00813000 APDSFLGS EQU APDS+64 00814000 APDSFLG0 EQU APDSFLGS 00815000 APDSFLG1 EQU APDSFLGS+1 00816000 APCVZDAL EQU 0 00817000 APCVZDAP EQU 0 00818000 APCVZDBK EQU 0 00819000 APCVZDDA EQU 0 00820000 APCVZDDQ EQU 0 00821000 APCVZDEQ EQU 0 00822000 APCVZDID EQU 0 00823000 APCVZDIO EQU 0 00824000 APCVZDIP EQU 0 00825000 APCVZDMD EQU 0 00826000 APCVZDMM EQU 0 00827000 APCVZDQR EQU 0 00828000 APCVZDRI EQU 0 00829000 APCVZDUA EQU 0 00830000 APCVZDUL EQU 0 00831000 APCVZDWI EQU 0 00832000 APCVZDWT EQU 0 00833000 APCVZDX1 EQU 0 00834000 APCVZDX2 EQU 0 00835000 APCVZDX3 EQU 0 00836000 APCVZDX4 EQU 0 00837000 APCVZD10 EQU 0 00838000 APCVZD20 EQU 0 00839000 APCVZD4E EQU 0 00840000 APCVZD40 EQU 0 00841000 APCVZD41 EQU 0 00842000 APCVZD42 EQU 0 00843000 APCVZD43 EQU 0 00844000 APCVZD44 EQU 0 00845000 APCVZD45 EQU 0 00846000 APCVZD46 EQU 0 00847000 APCVZD47 EQU 0 00848000 APCVZD48 EQU 0 00849000 APCVZD49 EQU 0 00850000 APCVZD60 EQU 0 00851000 APCVZD80 EQU 0 00852000 APCVZD81 EQU 0 00853000 APCVZD82 EQU 0 00854000 APCVZD83 EQU 0 00855000 APCVZJAA EQU 0 00856000 APCVZJAD EQU 0 00857000 APCVZJAG EQU 0 00858000 APCVZJAJ EQU 0 00859000 APCVZJAM EQU 0 00860000 APCVZJAP EQU 0 00861000 APCVZJAX EQU 0 00862000 APCVZJAY EQU 0 00863000 APCVZJBA EQU 0 00864000 APCVZJBD EQU 0 00865000 APCVZJBG EQU 0 00866000 APCVZJBJ EQU 0 00867000 APCVZJBM EQU 0 00868000 APCVZJDA EQU 0 00869000 APCVZJDD EQU 0 00870000 APCVZJDG EQU 0 00871000 APCVZJDJ EQU 0 00872000 APCVZJDM EQU 0 00873000 APCVZJHC EQU 0 00874000 APCVZJHE EQU 0 00875000 APCVZJHF EQU 0 00876000 APCVZJHO EQU 0 00877000 APCVZJHQ EQU 0 00878000 APCVZJHR EQU 0 00879000 APCVZJHT EQU 0 00880000 APCVZJHW EQU 0 00881000 APCVZJH0 EQU 0 00882000 APCVZJH6 EQU 0 00883000 APCVZJI0 EQU 0 00884000 APCVZJI3 EQU 0 00885000 APCVZJJ0 EQU 0 00886000 APCVZKAA EQU 0 00887000 APCVZKBA EQU 0 00888000 APCVZKBB EQU 0 00889000 APCVZKBC EQU 0 00890000 APCVZKBD EQU 0 00891000 APCVZKBE EQU 0 00892000 APCVZKBF EQU 0 00893000 APCVZKCA EQU 0 00894000 APCVZKDA EQU 0 00895000 APCVZKGA EQU 0 00896000 APCVZKGB EQU 0 00897000 APCVZKGC EQU 0 00898000 APCVZKGD EQU 0 00899000 APCVZLCA EQU 0 00900000 APCVZLCB EQU 0 00901000 APCVZMBA EQU 0 00902000 APCVZMBD EQU 0 00903000 APCVZMBG EQU 0 00904000 APCVZMBH EQU 0 00905000 APCVZMBK EQU 0 00906000 APCVZMBM EQU 0 00907000 APCVZMIB EQU 0 00908000 APCVZMIC EQU 0 00909000 APCVZMIF EQU 0 00910000 APCVZMJB EQU 0 00911000 APCVZMJC EQU 0 00912000 APCVZMJH EQU 0 00913000 APCVZMJI EQU 0 00914000 APCVZMMA EQU 0 00915000 APCVZUAA EQU 0 00916000 APCVZUAB EQU 0 00917000 APCVZUAC EQU 0 00918000 APCVZUAD EQU 0 00919000 APCVZUAE EQU 0 00920000 APCVZUAF EQU 0 00921000 APCVZUAG EQU 0 00922000 APCVZUBB EQU 0 00923000 APCVZUFA EQU 0 00924000 APCVZUHA EQU 0 00925000 APCVZUHB EQU 0 00926000 APCVZUJA EQU 0 00927000 APCVZUKA EQU 0 00928000 APCV1CMD EQU 0 00929000 APCV1JAA EQU 0 00930000 APCV1JBJ EQU 0 00931000 APCV1JHC EQU 0 00932000 APCV1JHL EQU 0 00933000 APCV1JHT EQU 0 00934000 APCV1MAB EQU 0 00935000 APCV1MBD EQU 0 00936000 APCV2JHC EQU 0 00937000 APCV2JHL EQU 0 00938000 APCV2MBD EQU 0 00939000 I001C EQU 0 00940000 I008P EQU 0 00941000 I015F EQU 0 00942000 I015P EQU 0 00943000 I031F EQU 0 00944000 I031P EQU 0 00945000 I256C EQU 0 00946000 CVTS01 EQU CVTPGSIA 00947000 CVTLPDIA EQU CVTS01+12 00948000 CVTDIRST EQU CVTLPDIA 00949000 CVTSLIDA EQU CVTS01+24 00950000 CVTCTLFG EQU CVTS01+50 00951000 CVTSPOST EQU CVTS01+364 00952000 CVTRV210 EQU CVTS01+424 00953000 CVTRV219 EQU CVTS01+425 00954000 CVTRV228 EQU CVTS01+426 00955000 CVTRV237 EQU CVTS01+427 00956000 CVTMFRTR EQU CVTS01+452 00957000 CVTRV262 EQU CVTS01+468 00958000 CVTRV271 EQU CVTS01+469 00959000 CVTRV280 EQU CVTS01+470 00960000 CVTRV289 EQU CVTS01+471 00961000 CVTGSDA EQU CVTS01+600 00962000 APCTZ EQU APCTZ@@@ 00963000 APCTZUAA EQU APCTZ 00964000 APCTZUAB EQU APCTZ+4 00965000 APCTZUAC EQU APCTZ+8 00966000 APCTZUAD EQU APCTZ+12 00967000 APCTZUAE EQU APCTZ+16 00968000 APCTZUBB EQU APCTZ+24 00969000 APCTZD10 EQU APCTZ+28 00970000 APCTZD20 EQU APCTZ+32 00971000 APCTZD40 EQU APCTZ+36 00972000 APCTZD41 EQU APCTZ+40 00973000 APCTZD42 EQU APCTZ+44 00974000 APCTZD43 EQU APCTZ+48 00975000 APCTZD44 EQU APCTZ+52 00976000 APCTZD45 EQU APCTZ+56 00977000 APCTZD46 EQU APCTZ+60 00978000 APCTZD47 EQU APCTZ+64 00979000 APCTZD48 EQU APCTZ+68 00980000 APCTZD49 EQU APCTZ+72 00981000 APCTZD60 EQU APCTZ+76 00982000 APCTZD80 EQU APCTZ+80 00983000 APCTZD4E EQU APCTZ+84 00984000 APCTZMBA EQU APCTZ+88 00985000 APCTZMBD EQU APCTZ+92 00986000 APCTZMBG EQU APCTZ+96 00987000 APCTZDX1 EQU APCTZ+104 00988000 APCTZDX2 EQU APCTZ+108 00989000 APCTZDX3 EQU APCTZ+112 00990000 APCTZDX4 EQU APCTZ+116 00991000 APCTZMBH EQU APCTZ+120 00992000 APCTZMBK EQU APCTZ+124 00993000 APCTZMBM EQU APCTZ+128 00994000 APCTZMJB EQU APCTZ+132 00995000 APCTZMJC EQU APCTZ+136 00996000 APCTZMJH EQU APCTZ+140 00997000 APCTZMMA EQU APCTZ+144 00998000 APCTZDMD EQU APCTZ+148 00999000 APCTZD81 EQU APCTZ+152 01000000 APCTZDID EQU APCTZ+156 01001000 APCTZDRI EQU APCTZ+160 01002000 APCTZMJI EQU APCTZ+164 01003000 APCTZDWT EQU APCTZ+168 01004000 APCTZDMM EQU APCTZ+172 01005000 APCTZDAL EQU APCTZ+176 01006000 APCTZDBK EQU APCTZ+180 01007000 APCTZDIP EQU APCTZ+184 01008000 APCTZDDA EQU APCTZ+188 01009000 APCTZDUL EQU APCTZ+192 01010000 APCTZDEQ EQU APCTZ+196 01011000 APCTZDDQ EQU APCTZ+200 01012000 APCTZDUA EQU APCTZ+204 01013000 APCTZUAF EQU APCTZ+208 01014000 APCTZUAG EQU APCTZ+212 01015000 APCTZDIO EQU APCTZ+216 01016000 APCTZUHA EQU APCTZ+220 01017000 APCTZUHB EQU APCTZ+224 01018000 APCTZJAA EQU APCTZ+232 01019000 APCTZJAD EQU APCTZ+236 01020000 APCTZJAG EQU APCTZ+240 01021000 APCTZJAJ EQU APCTZ+244 01022000 APCTZJAM EQU APCTZ+248 01023000 APCTZJAP EQU APCTZ+252 01024000 APCTZJAY EQU APCTZ+256 01025000 APCTZUFA EQU APCTZ+260 01026000 APCTZUJA EQU APCTZ+264 01027000 APCTZDAP EQU APCTZ+268 01028000 APCTZKAA EQU APCTZ+272 01029000 APCTZD82 EQU APCTZ+276 01030000 APCTZMIB EQU APCTZ+280 01031000 APCTZMIC EQU APCTZ+284 01032000 APCTZD83 EQU APCTZ+288 01033000 APCTZMIF EQU APCTZ+296 01034000 APCTZJH0 EQU APCTZ+300 01035000 APCTZJI0 EQU APCTZ+304 01036000 APCTZJI3 EQU APCTZ+308 01037000 APCTZJJ0 EQU APCTZ+312 01038000 APCTZJBA EQU APCTZ+316 01039000 APCTZJBD EQU APCTZ+320 01040000 APCTZJBG EQU APCTZ+324 01041000 APCTZJBJ EQU APCTZ+328 01042000 APCTZJBM EQU APCTZ+332 01043000 APCTZKCA EQU APCTZ+340 01044000 APCTZKDA EQU APCTZ+344 01045000 APCTZJDA EQU APCTZ+356 01046000 APCTZJDJ EQU APCTZ+360 01047000 APCTZJH6 EQU APCTZ+364 01048000 APCTZJHO EQU APCTZ+368 01049000 APCTZJHF EQU APCTZ+372 01050000 APCTZJHE EQU APCTZ+376 01051000 APCTZDQR EQU APCTZ+380 01052000 APCTZJHR EQU APCTZ+384 01053000 APCTZJHT EQU APCTZ+388 01054000 APCTZJHW EQU APCTZ+392 01055000 APCTZ1 EQU APCTZ@@1 01056000 APCTZKBA EQU APCTZ1 01057000 APCTZKBC EQU APCTZ1+4 01058000 APCTZKBB EQU APCTZ1+8 01059000 APCTZJHC EQU APCTZ1+20 01060000 APCTZJHQ EQU APCTZ1+24 01061000 APCTZKBD EQU APCTZ1+28 01062000 APCTZKBE EQU APCTZ1+40 01063000 APCTZUKA EQU APCTZ1+56 01064000 APCTZKBF EQU APCTZ1+60 01065000 APCTZJDD EQU APCTZ1+64 01066000 APCTZJDG EQU APCTZ1+68 01067000 APCTZJDM EQU APCTZ1+72 01068000 APCTZLCA EQU APCTZ1+76 01069000 APCTZLCB EQU APCTZ1+80 01070000 APCTZDWI EQU APCTZ1+84 01071000 APCTZJAX EQU APCTZ1+88 01072000 APCTZKGA EQU APCTZ1+92 01073000 APCTZKGB EQU APCTZ1+96 01074000 APCTZKGC EQU APCTZ1+100 01075000 APCTZKGD EQU APCTZ1+104 01076000 APCTU EQU APCTU@@@ 01077000 APCT1MAB EQU APCTU 01078000 APCT1MBD EQU APCTU+4 01079000 APCT2MBD EQU APCTU+8 01080000 APCT1CMD EQU APCTU+12 01081000 APCT1JAA EQU APCTU+20 01082000 APCT1JHC EQU APCTU+24 01083000 APCT2JHC EQU APCTU+28 01084000 APCT1JHT EQU APCTU+32 01085000 APCT1JHL EQU APCTU+36 01086000 APCT2JHL EQU APCTU+40 01087000 APCT1JBJ EQU APCTU+44 01088000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01089000 @NM00050 EQU APCTU+48 01090000 APCT1MBM EQU APCTU+16 01091000 @NM00049 EQU APCTZ1+108 01092000 @NM00048 EQU APCTZ1+52 01093000 @NM00047 EQU APCTZ1+48 01094000 @NM00046 EQU APCTZ1+44 01095000 @NM00045 EQU APCTZ1+36 01096000 @NM00044 EQU APCTZ1+32 01097000 @NM00043 EQU APCTZ1+16 01098000 @NM00042 EQU APCTZ1+12 01099000 @NM00041 EQU APCTZ+396 01100000 @NM00040 EQU APCTZ+352 01101000 @NM00039 EQU APCTZ+348 01102000 @NM00038 EQU APCTZ+336 01103000 @NM00037 EQU APCTZ+292 01104000 APCTZJFA EQU APCTZ+228 01105000 APCTZMBR EQU APCTZ+100 01106000 @NM00036 EQU APCTZ+20 01107000 CVTRV628 EQU CVTS01+728 01108000 CVTRV627 EQU CVTS01+724 01109000 CVTRV626 EQU CVTS01+720 01110000 CVTRV625 EQU CVTS01+716 01111000 CVTRV624 EQU CVTS01+712 01112000 CVTRV623 EQU CVTS01+708 01113000 CVTRV622 EQU CVTS01+704 01114000 CVTRV621 EQU CVTS01+700 01115000 CVTIHASU EQU CVTS01+696 01116000 CVTSUSP EQU CVTS01+692 01117000 CVTT6SVC EQU CVTS01+688 01118000 CVTCDAL EQU CVTS01+684 01119000 CVTTCTL EQU CVTS01+680 01120000 CVTRSUME EQU CVTS01+676 01121000 CVTJTERM EQU CVTS01+672 01122000 CVTASMRM EQU CVTS01+668 01123000 CVTTCASP EQU CVTS01+664 01124000 CVT0PT03 EQU CVTS01+660 01125000 CVT0PT0E EQU CVTS01+656 01126000 CVTRV609 EQU CVTS01+652 01127000 CVTCGK EQU CVTS01+648 01128000 CVTRAC EQU CVTS01+644 01129000 CVTRV606 EQU CVTS01+640 01130000 CVTRV605 EQU CVTS01+636 01131000 CVTRV604 EQU CVTS01+632 01132000 CVTEFF02 EQU CVTS01+628 01133000 CVTCBBR EQU CVTS01+624 01134000 CVTSSCR EQU CVTS01+620 01135000 CVTEVENT EQU CVTS01+616 01136000 CVTCRCA EQU CVTS01+612 01137000 CVTTPIO EQU CVTS01+608 01138000 CVTADV EQU CVTS01+604 01139000 CVTGSDAB EQU CVTGSDA 01140000 CVTQV3 EQU CVTS01+596 01141000 CVTQV2 EQU CVTS01+592 01142000 CVTQV1 EQU CVTS01+588 01143000 CVTRPT EQU CVTS01+584 01144000 CVTSSRB EQU CVTS01+580 01145000 CVTCSDRL EQU CVTS01+576 01146000 CVTEXP1 EQU CVTS01+572 01147000 CVTRMPMT EQU CVTS01+568 01148000 CVTRMPTT EQU CVTS01+564 01149000 CVTVPSA EQU CVTS01+560 01150000 CVTVSTOP EQU CVTS01+556 01151000 CVTGTFR8 EQU CVTS01+552 01152000 CVTQUIT EQU CVTS01+548 01153000 CVTVACR EQU CVTS01+544 01154000 CVTWTCB EQU CVTS01+540 01155000 CVTSTPRS EQU CVTS01+536 01156000 CVT0PT02 EQU CVTS01+532 01157000 CVTDARCM EQU CVTS01+528 01158000 CVTIRECM EQU CVTS01+524 01159000 CVTJRECM EQU CVTS01+520 01160000 CVTVEMS0 EQU CVTS01+516 01161000 CVTSPFRR EQU CVTS01+512 01162000 CVTRLSTG EQU CVTS01+508 01163000 CVT0TC0A EQU CVTS01+504 01164000 CVTGMBR EQU CVTS01+500 01165000 CVTLFRM EQU CVTS01+496 01166000 CVTRMBR EQU CVTS01+492 01167000 CVTVIOP EQU CVTS01+488 01168000 CVTRV307 EQU CVTS01+486 01169000 CVTRV306 EQU CVTS01+484 01170000 CVTRV305 EQU CVTS01+482 01171000 CVTRV304 EQU CVTS01+480 01172000 CVTRV303 EQU CVTS01+478 01173000 CVTRV302 EQU CVTS01+476 01174000 CVTTRCA EQU CVTS01+472 01175000 CVTRV297 EQU CVTRV289 01176000 CVTRV296 EQU CVTRV289 01177000 CVTRV295 EQU CVTRV289 01178000 CVTRV294 EQU CVTRV289 01179000 CVTRV293 EQU CVTRV289 01180000 CVTRV292 EQU CVTRV289 01181000 CVTRV291 EQU CVTRV289 01182000 CVTRV290 EQU CVTRV289 01183000 CVTRV288 EQU CVTRV280 01184000 CVTRV287 EQU CVTRV280 01185000 CVTRV286 EQU CVTRV280 01186000 CVTRV285 EQU CVTRV280 01187000 CVTRV284 EQU CVTRV280 01188000 CVTRV283 EQU CVTRV280 01189000 CVTRV282 EQU CVTRV280 01190000 CVTRV281 EQU CVTRV280 01191000 CVTRV279 EQU CVTRV271 01192000 CVTRV278 EQU CVTRV271 01193000 CVTRV277 EQU CVTRV271 01194000 CVTRV276 EQU CVTRV271 01195000 CVTRV275 EQU CVTRV271 01196000 CVTRV274 EQU CVTRV271 01197000 CVTRV273 EQU CVTRV271 01198000 CVTRV272 EQU CVTRV271 01199000 CVTRV270 EQU CVTRV262 01200000 CVTRV269 EQU CVTRV262 01201000 CVTRV268 EQU CVTRV262 01202000 CVTRV267 EQU CVTRV262 01203000 CVTRV266 EQU CVTRV262 01204000 CVTRV265 EQU CVTRV262 01205000 CVTRV264 EQU CVTRV262 01206000 CVTRV263 EQU CVTRV262 01207000 CVTVFP EQU CVTS01+464 01208000 CVTVSI EQU CVTS01+460 01209000 CVTVPSIB EQU CVTS01+456 01210000 CVTMFACT EQU CVTMFRTR 01211000 CVTMFCTL EQU CVTS01+448 01212000 CVTPVBP EQU CVTS01+444 01213000 CVTPWI EQU CVTS01+440 01214000 CVTRV254 EQU CVTS01+438 01215000 CVTRV253 EQU CVTS01+436 01216000 CVTRV252 EQU CVTS01+434 01217000 CVTRV251 EQU CVTS01+433 01218000 CVTRV250 EQU CVTS01+432 01219000 CVTRV249 EQU CVTS01+431 01220000 CVTRV248 EQU CVTS01+430 01221000 CVTRV247 EQU CVTS01+429 01222000 CVTRV246 EQU CVTS01+428 01223000 CVTRV245 EQU CVTRV237 01224000 CVTRV244 EQU CVTRV237 01225000 CVTRV243 EQU CVTRV237 01226000 CVTRV242 EQU CVTRV237 01227000 CVTRV241 EQU CVTRV237 01228000 CVTRV240 EQU CVTRV237 01229000 CVTRV239 EQU CVTRV237 01230000 CVTRV238 EQU CVTRV237 01231000 CVTRV236 EQU CVTRV228 01232000 CVTRV235 EQU CVTRV228 01233000 CVTRV234 EQU CVTRV228 01234000 CVTRV233 EQU CVTRV228 01235000 CVTRV232 EQU CVTRV228 01236000 CVTRV231 EQU CVTRV228 01237000 CVTRV230 EQU CVTRV228 01238000 CVTRV229 EQU CVTRV228 01239000 CVTRV227 EQU CVTRV219 01240000 CVTRV226 EQU CVTRV219 01241000 CVTRV225 EQU CVTRV219 01242000 CVTRV224 EQU CVTRV219 01243000 CVTRV223 EQU CVTRV219 01244000 CVTRV222 EQU CVTRV219 01245000 CVTRV221 EQU CVTRV219 01246000 CVTRV220 EQU CVTRV219 01247000 CVTRV218 EQU CVTRV210 01248000 CVTRV217 EQU CVTRV210 01249000 CVTRV216 EQU CVTRV210 01250000 CVTRV215 EQU CVTRV210 01251000 CVTRV214 EQU CVTRV210 01252000 CVTRV213 EQU CVTRV210 01253000 CVTRV212 EQU CVTRV210 01254000 CVTRV211 EQU CVTRV210 01255000 CVTLCCAT EQU CVTS01+420 01256000 CVTPCCAT EQU CVTS01+416 01257000 CVTIPCRP EQU CVTS01+412 01258000 CVTIPCRI EQU CVTS01+408 01259000 CVTIPCDS EQU CVTS01+404 01260000 CVTAIDVT EQU CVTS01+400 01261000 CVTSSAP EQU CVTS01+396 01262000 CVTEHCIR EQU CVTS01+392 01263000 CVTEHDEF EQU CVTS01+388 01264000 CVTDAIR EQU CVTS01+384 01265000 CVTPERFM EQU CVTS01+380 01266000 CVT044R2 EQU CVTS01+376 01267000 CVTFETCH EQU CVTS01+372 01268000 CVTRSTWD EQU CVTS01+368 01269000 CVTIOBP EQU CVTS01+360 01270000 CVTASMVT EQU CVTS01+356 01271000 CVTRECRQ EQU CVTS01+352 01272000 CVTWSAC EQU CVTS01+348 01273000 CVTRV149 EQU CVTS01+344 01274000 CVTWSAL EQU CVTS01+340 01275000 CVTSPSA EQU CVTS01+336 01276000 CVTGLMN EQU CVTS01+332 01277000 CVTVEAC0 EQU CVTS01+328 01278000 CVT062R1 EQU CVTS01+324 01279000 CVTRPOST EQU CVTS01+320 01280000 CVTDQIQE EQU CVTS01+316 01281000 CVTCSD EQU CVTS01+312 01282000 CVTLKRMA EQU CVTS01+308 01283000 CVTRSPIE EQU CVTS01+304 01284000 CVTRENQ EQU CVTS01+300 01285000 CVTLQCB EQU CVTS01+296 01286000 CVTFQCB EQU CVTS01+292 01287000 CVTQCS01 EQU CVTS01+288 01288000 CVTAPFT EQU CVTS01+284 01289000 CVTPARRL EQU CVTS01+280 01290000 CVTVWAIT EQU CVTS01+276 01291000 CVTGSPL EQU CVTS01+272 01292000 CVTLSMQ EQU CVTS01+268 01293000 CVTGSMQ EQU CVTS01+264 01294000 CVTEXPRO EQU CVTS01+260 01295000 CVTOPCTP EQU CVTS01+256 01296000 CVTSIC EQU CVTS01+252 01297000 CVTTPIOS EQU CVTS01+248 01298000 CVTRTMS EQU CVTS01+244 01299000 CVTSDBF EQU CVTS01+240 01300000 CVTSCBP EQU CVTS01+236 01301000 CVTSDMP EQU CVTS01+232 01302000 CVTSV60 EQU CVTS01+228 01303000 CVTRTMCT EQU CVTS01+224 01304000 CVTASCBL EQU CVTS01+220 01305000 CVTASCBH EQU CVTS01+216 01306000 CVTGDA EQU CVTS01+212 01307000 CVTASVT EQU CVTS01+208 01308000 CVTVVMDI EQU CVTS01+204 01309000 CVTAQTOP EQU CVTS01+200 01310000 CVTIOSCS EQU CVTS01+196 01311000 CVTSDRM EQU CVTS01+192 01312000 CVTOPTE EQU CVTS01+188 01313000 CVTSTXU EQU CVTS01+184 01314000 CVTQUIS EQU CVTS01+180 01315000 CVTPARS EQU CVTS01+176 01316000 CVTS1EE EQU CVTS01+172 01317000 CVTFRAS EQU CVTS01+168 01318000 CVTQSAS EQU CVTS01+164 01319000 CVTCRAS EQU CVTS01+160 01320000 CVTCRMN EQU CVTS01+156 01321000 CVTDELCP EQU CVTS01+152 01322000 CVTFRECL EQU CVTS01+148 01323000 CVTGETCL EQU CVTS01+144 01324000 CVTBLDCP EQU CVTS01+140 01325000 CVTAUTHL EQU CVTS01+136 01326000 CVTSCAN EQU CVTS01+132 01327000 CVTRV144 EQU CVTS01+130 01328000 CVTMAXMP EQU CVTS01+128 01329000 CVTSTCK EQU CVTS01+124 01330000 CVTRV139 EQU CVTS01+123 01331000 CVTDSSAC EQU CVTS01+122 01332000 CVTRV513 EQU CVTS01+121 01333000 CVTIOSPL EQU CVTS01+120 01334000 CVTPTGT EQU CVTS01+116 01335000 CVTCSPIE EQU CVTS01+112 01336000 CVTSMFEX EQU CVTS01+108 01337000 CVTOLT0A EQU CVTS01+104 01338000 CVTSRBRT EQU CVTS01+100 01339000 CVTPUTL EQU CVTS01+96 01340000 CVTASCRL EQU CVTS01+92 01341000 CVTASCRF EQU CVTS01+88 01342000 CVTRV326 EQU CVTS01+84 01343000 CVTRV325 EQU CVTS01+80 01344000 CVTRV324 EQU CVTS01+76 01345000 CVT0VL01 EQU CVTS01+72 01346000 CVTSHRVM EQU CVTS01+68 01347000 CVTRV332 EQU CVTS01+64 01348000 CVTTAS EQU CVTS01+60 01349000 CVTRSCN EQU CVTS01+56 01350000 CVTTRAC2 EQU CVTS01+54 01351000 CVTTRACE EQU CVTS01+52 01352000 CVTAPG EQU CVTS01+51 01353000 CVTSDTRC EQU CVTCTLFG 01354000 CVTGTRCE EQU CVTCTLFG 01355000 CVTNOMP EQU CVTCTLFG 01356000 CVTRSV79 EQU CVTCTLFG 01357000 CVTDSTAT EQU CVTCTLFG 01358000 CVTRSV78 EQU CVTCTLFG 01359000 CVTRV333 EQU CVTCTLFG 01360000 CVTRV323 EQU CVTCTLFG 01361000 CVTSPVLK EQU CVTS01+49 01362000 CVTRSV77 EQU CVTS01+48 01363000 CVTRV331 EQU CVTS01+44 01364000 CVTRV330 EQU CVTS01+40 01365000 CVTRV329 EQU CVTS01+36 01366000 CVTRV328 EQU CVTS01+32 01367000 CVTRV322 EQU CVTS01+28 01368000 CVTSLID EQU CVTSLIDA+1 01369000 CVTSYLK EQU CVTSLIDA 01370000 CVTRV321 EQU CVTS01+20 01371000 CVTRV320 EQU CVTS01+16 01372000 CVTLPDIR EQU CVTLPDIA+1 01373000 CVTRSV69 EQU CVTDIRST 01374000 CVTRSV68 EQU CVTDIRST 01375000 CVTRSV67 EQU CVTDIRST 01376000 CVTRSV66 EQU CVTDIRST 01377000 CVTRSV65 EQU CVTDIRST 01378000 CVTRSV64 EQU CVTDIRST 01379000 CVTRSV63 EQU CVTDIRST 01380000 CVTDICOM EQU CVTDIRST 01381000 CVTPVTP EQU CVTS01+8 01382000 CVTLPDSR EQU CVTS01+4 01383000 CVTGETL EQU CVTS01 01384000 @NM00103 EQU APDS+144 01385000 @NM00102 EQU APDS+100 01386000 APDSAPEP EQU APDS+96 01387000 @NM00101 EQU APDS+94 01388000 APDSSIZE EQU APDS+92 01389000 APDSJBNM EQU APDS+84 01390000 APDSITCB EQU APDS+80 01391000 APDSMSK EQU APDS+72 01392000 @NM00100 EQU APDS+69 01393000 APDSIOFS EQU APDS+68 01394000 APDSDUMP EQU APDS+67 01395000 APDSPGFX EQU APDS+66 01396000 @NM00099 EQU APDSFLG1 01397000 APDSFRST EQU APDSFLG1 01398000 APDSSLPS EQU APDSFLG0 01399000 APDSLSR EQU APDSFLG0 01400000 APDSIER EQU APDSFLG0 01401000 APDSARS EQU APDSFLG0 01402000 APDSVPER EQU APDSFLG0 01403000 APDSVLER EQU APDSFLG0 01404000 APDSTPGM EQU APDSFLG0 01405000 APDSOWN EQU APDSFLG0 01406000 APDSDSAP EQU APDS+60 01407000 APDSREG EQU APDS+56 01408000 APDSASCB EQU APDS+52 01409000 APDSAPUB EQU APDS+48 01410000 APDSPERR EQU APDS+40 01411000 APDSLERR EQU APDS+32 01412000 APDSDDNM EQU APDS+24 01413000 APDSDEB EQU APDSTD+4 01414000 APDSTCB EQU APDSTD 01415000 APDSAPCT EQU APDS+12 01416000 APDSUSER EQU APDS+8 01417000 APDSAPDS EQU APDS+4 01418000 APDSID EQU APDS 01419000 @NM00098 EQU SDWA+512 01420000 SDWAVRA EQU SDWARA+4 01421000 SDWAURAL EQU SDWARA+3 01422000 @NM00097 EQU SDWADPVA 01423000 SDWAEBC EQU SDWADPVA 01424000 SDWAHEX EQU SDWADPVA 01425000 SDWAVRAL EQU SDWARA 01426000 SDWAERTM EQU SDWA+396 01427000 SDWACOMP EQU SDWA+392 01428000 SDWARCPL EQU SDWA+364 01429000 @NM00096 EQU SDWADPSA+32 01430000 SDWATO4 EQU SDWADPSL+28 01431000 SDWAFRM4 EQU SDWADPSL+24 01432000 SDWATO3 EQU SDWADPSL+20 01433000 SDWAFRM3 EQU SDWADPSL+16 01434000 SDWATO2 EQU SDWADPSL+12 01435000 SDWAFRM2 EQU SDWADPSL+8 01436000 SDWATO1 EQU SDWADPSL+4 01437000 SDWAFRM1 EQU SDWADPSL 01438000 @NM00095 EQU SDWADDAT+3 01439000 @NM00094 EQU SDWAPDAT 01440000 SDWAUSPL EQU SDWAPDAT 01441000 SDWADPSW EQU SDWAPDAT 01442000 SDWATJPA EQU SDWAPDAT 01443000 SDWATLPA EQU SDWAPDAT 01444000 SDWADREG EQU SDWAPDAT 01445000 SDWADSAH EQU SDWAPDAT 01446000 SDWADSAS EQU SDWAPDAT 01447000 @NM00093 EQU SDWASDA1 01448000 SDWAERR EQU SDWASDA1 01449000 SDWAIO EQU SDWASDA1 01450000 SDWADM EQU SDWASDA0 01451000 SDWAQQS EQU SDWASDA0 01452000 SDWACBS EQU SDWASDA0 01453000 SDWAGTF EQU SDWASDA0 01454000 SDWASWA EQU SDWASDA0 01455000 SDWALSQA EQU SDWASDA0 01456000 SDWASQA EQU SDWASDA0 01457000 SDWANUC EQU SDWASDA0 01458000 @NM00092 EQU SDWADUMP+2 01459000 @NM00091 EQU SDWADPFS 01460000 SDWASLST EQU SDWADPFS 01461000 @NM00090 EQU SDWADPFS 01462000 SDWAENSN EQU SDWADPFS 01463000 SDWADLST EQU SDWADPFS 01464000 SDWADPT EQU SDWADPFS 01465000 SDWADPID EQU SDWADUMP 01466000 SDWADPLA EQU SDWA+316 01467000 SDWAREXN EQU SDWARECP+16 01468000 SDWACSCT EQU SDWARECP+8 01469000 SDWAMODN EQU SDWARECP 01470000 SDWASEQ# EQU SDWA+290 01471000 SDWAASID EQU SDWA+288 01472000 SDWATALW EQU SDWALKWS+28 01473000 SDWATDLW EQU SDWALKWS+24 01474000 SDWATNLW EQU SDWALKWS+20 01475000 SDWAAPLW EQU SDWALKWS+16 01476000 SDWAIPLW EQU SDWALKWS+12 01477000 SDWAILLW EQU SDWALKWS+8 01478000 SDWAIULW EQU SDWALKWS+4 01479000 SDWAICLW EQU SDWALKWS 01480000 SDWAFLLK EQU SDWAACF4 01481000 SDWACMS EQU SDWAACF4 01482000 SDWAOPTM EQU SDWAACF4 01483000 SDWATADB EQU SDWAACF4 01484000 SDWATDNB EQU SDWAACF4 01485000 SDWATNCB EQU SDWAACF4 01486000 SDWAILCH EQU SDWAACF4 01487000 SDWAIUCB EQU SDWAACF4 01488000 SDWAICAT EQU SDWAACF3 01489000 SDWAIPRG EQU SDWAACF3 01490000 SDWASALL EQU SDWAACF3 01491000 SDWAASMP EQU SDWAACF3 01492000 SDWADISP EQU SDWAACF3 01493000 @NM00089 EQU SDWAACF3 01494000 @NM00088 EQU SDWAACF2 01495000 SDWAUPRG EQU SDWAACF2 01496000 @NM00087 EQU SDWAACF2 01497000 SDWASPIN EQU SDWAACF2 01498000 @NM00086 EQU SDWAACF2 01499000 SDWALCPU EQU SDWACPUA+2 01500000 @NM00085 EQU SDWACPUA 01501000 SDWARECA EQU SDWA+244 01502000 SDWACPUI EQU SDWA+239 01503000 @NM00084 EQU SDWAIOFS 01504000 SDWANIOP EQU SDWAIOFS 01505000 SDWANOIO EQU SDWAIOFS 01506000 SDWAIOHT EQU SDWAIOFS 01507000 SDWAIOQR EQU SDWAIOFS 01508000 SDWAFMID EQU SDWA+236 01509000 SDWAERFL EQU SDWAERRD 01510000 SDWAMCIV EQU SDWAERRD 01511000 SDWARPIV EQU SDWAERRD 01512000 SDWAMABD EQU SDWAERRD 01513000 SDWACTS EQU SDWAERRD 01514000 SDWASTAE EQU SDWAERRD 01515000 SDWANRBE EQU SDWAERRD 01516000 SDWACLUP EQU SDWAERRD 01517000 @NM00083 EQU SDWAERRC 01518000 SDWAEAS EQU SDWAERRC 01519000 SDWAPERC EQU SDWAERRC 01520000 SDWAIRB EQU SDWAERRC 01521000 SDWASTAI EQU SDWAERRC 01522000 SDWASTAF EQU SDWAERRC 01523000 SDWASRBM EQU SDWAERRB 01524000 SDWALDIS EQU SDWAERRB 01525000 SDWAENRB EQU SDWAERRB 01526000 SDWATYP1 EQU SDWAERRB 01527000 @NM00082 EQU SDWAERRB 01528000 SDWAPGIO EQU SDWAERRA 01529000 SDWATEXC EQU SDWAERRA 01530000 SDWASVCE EQU SDWAERRA 01531000 SDWAABTM EQU SDWAERRA 01532000 SDWASVCD EQU SDWAERRA 01533000 SDWARKEY EQU SDWAERRA 01534000 SDWAPCHK EQU SDWAERRA 01535000 SDWAMCHK EQU SDWAERRA 01536000 SDWATIME EQU SDWAMCH+20 01537000 SDWARFSA EQU SDWAMCH+16 01538000 @NM00081 EQU SDWAMCH+14 01539000 SDWAVEQR EQU SDWARSR2 01540000 SDWAPGFX EQU SDWARSR2 01541000 SDWAFLSQ EQU SDWARSR2 01542000 SDWAFSQA EQU SDWARSR2 01543000 SDWANUCL EQU SDWARSR2 01544000 SDWASPER EQU SDWARSR2 01545000 SDWAINTC EQU SDWARSR2 01546000 SDWAOFLN EQU SDWARSR2 01547000 SDWACHNG EQU SDWARSR1 01548000 SDWAMSER EQU SDWARSR1 01549000 @NM00080 EQU SDWARSR1 01550000 SDWACPID EQU SDWAMCH+10 01551000 SDWATERR EQU SDWAMCHD 01552000 SDWAFPRX EQU SDWAMCHD 01553000 SDWAINSF EQU SDWAMCHD 01554000 SDWAACR EQU SDWAMCHD 01555000 SDWASCK EQU SDWAMCHD 01556000 SDWAPSWU EQU SDWAMCHD 01557000 SDWAREGU EQU SDWAMCHD 01558000 SDWASKYF EQU SDWAMCHD 01559000 @NM00079 EQU SDWAMCHS 01560000 SDWARSRF EQU SDWAMCHS 01561000 SDWARSRC EQU SDWAMCHS 01562000 SDWAINVP EQU SDWAMCHS 01563000 SDWATSVL EQU SDWAMCHS 01564000 SDWARCDF EQU SDWAMCHS 01565000 SDWASRVL EQU SDWAMCHS 01566000 SDWASCKE EQU SDWASTCK+4 01567000 SDWASCKB EQU SDWASTCK 01568000 SDWALNTH EQU SDWAIDNT+1 01569000 SDWASPID EQU SDWAIDNT 01570000 SDWASR15 EQU SDWASRSV+60 01571000 SDWASR14 EQU SDWASRSV+56 01572000 SDWASR13 EQU SDWASRSV+52 01573000 SDWASR12 EQU SDWASRSV+48 01574000 SDWASR11 EQU SDWASRSV+44 01575000 SDWASR10 EQU SDWASRSV+40 01576000 SDWASR09 EQU SDWASRSV+36 01577000 SDWASR08 EQU SDWASRSV+32 01578000 SDWASR07 EQU SDWASRSV+28 01579000 SDWASR06 EQU SDWASRSV+24 01580000 SDWASR05 EQU SDWASRSV+20 01581000 SDWASR04 EQU SDWASRSV+16 01582000 SDWASR03 EQU SDWASRSV+12 01583000 SDWASR02 EQU SDWASRSV+8 01584000 SDWASR01 EQU SDWASRSV+4 01585000 SDWASR00 EQU SDWASRSV 01586000 SDWATRN2 EQU SDWAAEC2+4 01587000 SDWAIPC2 EQU SDWAICD2 01588000 SDWAIMC2 EQU SDWAICD2 01589000 SDWAIPR2 EQU SDWAICD2 01590000 @NM00078 EQU SDWAINC2 01591000 @NM00077 EQU SDWAILC2 01592000 SDWAIL2 EQU SDWAILC2 01593000 @NM00076 EQU SDWAILC2 01594000 @NM00075 EQU SDWAAEC2 01595000 SDWAADD2 EQU SDWANXT2+1 01596000 @NM00074 EQU SDWANXT2 01597000 @NM00073 EQU SDWAEC2+3 01598000 SDWASGN2 EQU SDWAINT2 01599000 SDWAEXP2 EQU SDWAINT2 01600000 SDWADEC2 EQU SDWAINT2 01601000 SDWAFPO2 EQU SDWAINT2 01602000 SDWACC2 EQU SDWAINT2 01603000 @NM00072 EQU SDWAINT2 01604000 SDWAPGM2 EQU SDWAMWP2 01605000 SDWAWAT2 EQU SDWAMWP2 01606000 SDWAMCK2 EQU SDWAMWP2 01607000 SDWAECT2 EQU SDWAMWP2 01608000 SDWAKEY2 EQU SDWAMWP2 01609000 SDWAEXT2 EQU SDWAEMK2 01610000 SDWAIO2 EQU SDWAEMK2 01611000 SDWATRM2 EQU SDWAEMK2 01612000 @NM00071 EQU SDWAEMK2 01613000 SDWAPER2 EQU SDWAEMK2 01614000 @NM00070 EQU SDWAEMK2 01615000 SDWATRAN EQU SDWAAEC1+4 01616000 SDWAIPC1 EQU SDWAICD1 01617000 SDWAIMC1 EQU SDWAICD1 01618000 SDWAIPR1 EQU SDWAICD1 01619000 @NM00069 EQU SDWAINC1 01620000 @NM00068 EQU SDWAILC1 01621000 SDWAIL1 EQU SDWAILC1 01622000 @NM00067 EQU SDWAILC1 01623000 @NM00066 EQU SDWAAEC1 01624000 SDWAADD1 EQU SDWANXT1+1 01625000 @NM00065 EQU SDWANXT1 01626000 @NM00064 EQU SDWAEC1+3 01627000 SDWASGN1 EQU SDWAINT1 01628000 SDWAEXP1 EQU SDWAINT1 01629000 SDWADEC1 EQU SDWAINT1 01630000 SDWAFPO1 EQU SDWAINT1 01631000 SDWACC1 EQU SDWAINT1 01632000 @NM00063 EQU SDWAINT1 01633000 SDWAPGM1 EQU SDWAMWP1 01634000 SDWAWAT1 EQU SDWAMWP1 01635000 SDWAMCK1 EQU SDWAMWP1 01636000 SDWAECT1 EQU SDWAMWP1 01637000 SDWAKEY1 EQU SDWAMWP1 01638000 SDWAEXT1 EQU SDWAEMK1 01639000 SDWAIO1 EQU SDWAEMK1 01640000 SDWATRM1 EQU SDWAEMK1 01641000 @NM00062 EQU SDWAEMK1 01642000 SDWAPER1 EQU SDWAEMK1 01643000 @NM00061 EQU SDWAEMK1 01644000 SDWAIOBR EQU SDWA+100 01645000 SDWAEPA EQU SDWA+96 01646000 @NM00060 EQU SDWANAME+4 01647000 SDWARBAD EQU SDWANAME 01648000 SDWAGR15 EQU SDWAGRSV+60 01649000 SDWAGR14 EQU SDWAGRSV+56 01650000 SDWAGR13 EQU SDWAGRSV+52 01651000 SDWAGR12 EQU SDWAGRSV+48 01652000 SDWAGR11 EQU SDWAGRSV+44 01653000 SDWAGR10 EQU SDWAGRSV+40 01654000 SDWAGR09 EQU SDWAGRSV+36 01655000 SDWAGR08 EQU SDWAGRSV+32 01656000 SDWAGR07 EQU SDWAGRSV+28 01657000 SDWAGR06 EQU SDWAGRSV+24 01658000 SDWAGR05 EQU SDWAGRSV+20 01659000 SDWAGR04 EQU SDWAGRSV+16 01660000 SDWAGR03 EQU SDWAGRSV+12 01661000 SDWAGR02 EQU SDWAGRSV+8 01662000 SDWAGR01 EQU SDWAGRSV+4 01663000 SDWAGR00 EQU SDWAGRSV 01664000 SDWANXTP EQU SDWACTL2+5 01665000 SDWASGP EQU SDWAPMKP 01666000 SDWAEUP EQU SDWAPMKP 01667000 SDWADOP EQU SDWAPMKP 01668000 SDWAFPP EQU SDWAPMKP 01669000 SDWACCP EQU SDWAPMKP 01670000 SDWAILP EQU SDWAPMKP 01671000 SDWAINTP EQU SDWACTL2+2 01672000 SDWASPVP EQU SDWAMWPP 01673000 SDWAWATP EQU SDWAMWPP 01674000 SDWAMCKP EQU SDWAMWPP 01675000 @NM00059 EQU SDWAMWPP 01676000 SDWAKEYP EQU SDWAMWPP 01677000 SDWAEXTP EQU SDWACMKP 01678000 SDWAIOP EQU SDWACMKP 01679000 SDWANXTA EQU SDWACTL1+5 01680000 SDWASGA EQU SDWAPMKA 01681000 SDWAEUA EQU SDWAPMKA 01682000 SDWADOA EQU SDWAPMKA 01683000 SDWAFPA EQU SDWAPMKA 01684000 SDWACCA EQU SDWAPMKA 01685000 SDWAILA EQU SDWAPMKA 01686000 SDWAINTA EQU SDWACTL1+2 01687000 SDWASPVA EQU SDWAMWPA 01688000 SDWAWATA EQU SDWAMWPA 01689000 SDWAMCKA EQU SDWAMWPA 01690000 @NM00058 EQU SDWAMWPA 01691000 SDWAKEYA EQU SDWAMWPA 01692000 SDWAEXTA EQU SDWACMKA 01693000 SDWAIOA EQU SDWACMKA 01694000 SDWACMPC EQU SDWAABCC+1 01695000 @NM00057 EQU SDWACMPF 01696000 SDWASTCC EQU SDWACMPF 01697000 @NM00056 EQU SDWACMPF 01698000 SDWASTEP EQU SDWACMPF 01699000 APSVWORK EQU APSV+80 01700000 @NM00055 EQU APSV+80 01701000 APSVFREE EQU APSV+76 01702000 APSVAPSM EQU APSV+72 01703000 APSVRG12 EQU APSVREGS+56 01704000 APSVRG11 EQU APSVREGS+52 01705000 APSVRG10 EQU APSVREGS+48 01706000 APSVRG9 EQU APSVREGS+44 01707000 APSVRG8 EQU APSVREGS+40 01708000 APSVRG7 EQU APSVREGS+36 01709000 APSVRG6 EQU APSVREGS+32 01710000 APSVRG5 EQU APSVREGS+28 01711000 APSVRG4 EQU APSVREGS+24 01712000 APSVRG3 EQU APSVREGS+20 01713000 APSVRG2 EQU APSVREGS+16 01714000 APSVRG1 EQU APSVREGS+12 01715000 APSVRG0 EQU APSVREGS+8 01716000 APSVRG15 EQU APSVREGS+4 01717000 APSVRG14 EQU APSVREGS 01718000 APSVNEXT EQU APSV+8 01719000 APSVPREV EQU APSV+4 01720000 APSVAPSC EQU APSV 01721000 @NM00054 EQU APCQ+176 01722000 @NM00053 EQU APCQ+172 01723000 @NM00052 EQU APCQ+168 01724000 APCQCMND EQU APCQ+28 01725000 APCQTXLN EQU APCQ+26 01726000 APCQSCID EQU APCQ+25 01727000 APCQNEMG EQU APCQSW 01728000 APCQNMSG EQU APCQSW 01729000 @NM00051 EQU APCQSW 01730000 APCQPRTY EQU APCQSW 01731000 APCQINT EQU APCQSW 01732000 APCQPSTR EQU APCQ+22 01733000 APCQPLEN EQU APCQ+20 01734000 APCQCQAP EQU APCQ+16 01735000 APCQIINF EQU APCQ+12 01736000 APCQUSER EQU APCQ+8 01737000 APCQAPCQ EQU APCQ+4 01738000 APCQID EQU APCQ 01739000 @NM00035 EQU APCT+1556 01740000 APCTSVCT EQU APCT+1552 01741000 APCTDAVT EQU APCT+1548 01742000 APCTLOGL EQU APCT+1544 01743000 @NM00034 EQU APCT+1540 01744000 APCTDMPU EQU APCT+1536 01745000 APCTDMPM EQU APCT+1532 01746000 APCTNDMP EQU APCT+1530 01747000 APCTASID EQU APCT+1528 01748000 APCTLGPG EQU APCT+1526 01749000 APCTLGLN EQU APCT+1524 01750000 APCTAPVU EQU APCT+1520 01751000 APCTABR EQU APCT+1116 01752000 APCTACTR EQU APCT+1112 01753000 APCTLOGD EQU APCT+1108 01754000 APCTDCLD EQU APCT+1104 01755000 APCTIOAP EQU APCT+1100 01756000 @NM00033 EQU APCT+1080 01757000 @NM00032 EQU APCT+1078 01758000 APCTKCAX EQU APCT+1076 01759000 APCTABND EQU APCT+1072 01760000 @NM00031 EQU APCT+1068 01761000 APCTAPIO EQU APCT+1064 01762000 APCTCSCT EQU APCT+1060 01763000 APCTSTDF EQU APCT+1056 01764000 APCTSTMX EQU APCT+1052 01765000 APCTRGMX EQU APCT+1048 01766000 APCTSIZE EQU APCT+1046 01767000 APCTCTUB EQU APCT+1045 01768000 APCTMFID EQU APCT+1044 01769000 APCTMFSZ EQU APCT+1040 01770000 APCTCRTN EQU APCT+1036 01771000 APCTAPCP EQU APCT+1032 01772000 APCTAMNA EQU APCT+1028 01773000 APCTEMNA EQU APCT+1024 01774000 APCTAALP EQU APCT+1020 01775000 APCTEALP EQU APCT+1016 01776000 @NM00030 EQU APCT+1012 01777000 @NM00029 EQU APCT+1008 01778000 @NM00028 EQU APCT+1004 01779000 APCTEIPL EQU APCT+1000 01780000 @NM00027 EQU APCT+996 01781000 @NM00026 EQU APCT+992 01782000 @NM00025 EQU APCT+988 01783000 @NM00024 EQU APCT+984 01784000 @NM00023 EQU APCT+980 01785000 APCTECPT EQU APCT+968 01786000 APCTEALC EQU APCT+964 01787000 APCTECBL EQU APCT+960 01788000 APCTECIT EQU APCT+956 01789000 APCTCQAF EQU APCTCQAQ 01790000 APCTCQL EQU APCTAPCQ+4 01791000 APCTCQF EQU APCTAPCQ 01792000 APCTCQLK EQU APCT+940 01793000 @NM00022 EQU @NM00018+2 01794000 @NM00021 EQU APCTPRSW 01795000 APCTAPST EQU APCTPRSW 01796000 @NM00020 EQU APCTPRSW 01797000 @NM00019 EQU APCTSTAT 01798000 APCTTERM EQU APCTSTAT 01799000 APCTQSCE EQU APCTSTAT 01800000 APCTSTRT EQU APCTSTAT 01801000 @NM00017 EQU APCT+935 01802000 APCTSOUT EQU APCT+934 01803000 APCTDAID EQU APCT+933 01804000 APCTSV34 EQU APCT+932 01805000 APCTMJOB EQU APCT+928 01806000 APCTTCB EQU APCT+924 01807000 APCTASCB EQU APCT+920 01808000 APCTDCNW EQU APCT+918 01809000 APCTDCNR EQU APCT+916 01810000 @NM00016 EQU APCT+912 01811000 @NM00015 EQU APCT+908 01812000 @NM00014 EQU APCT+904 01813000 @NM00013 EQU APCT+900 01814000 @NM00012 EQU APCTERRS+22 01815000 APCTERTJ EQU APCTERRS+20 01816000 APCTERTD EQU APCTERRS+18 01817000 APCTERTC EQU APCTERRS+16 01818000 APCTERTB EQU APCTERRS+14 01819000 APCTERTA EQU APCTERRS+12 01820000 APCTERT9 EQU APCTERRS+10 01821000 APCTERT3 EQU APCTERRS+8 01822000 APCTERT2 EQU APCTERRS+6 01823000 APCTERT1 EQU APCTERRS+4 01824000 APCTERT0 EQU APCTERRS+2 01825000 APCTERTT EQU APCTERRS 01826000 APCTDSAP EQU APCT+872 01827000 APCTISUB EQU APCT+868 01828000 APCTUBAP EQU APCT+864 01829000 APCTAPDS EQU APCT+860 01830000 APCTUBIC EQU APCT+856 01831000 APCTUBIS EQU APCT+852 01832000 APCTAPUB EQU APCT+848 01833000 APCTUBLK EQU APCT+844 01834000 APCTBR1A EQU APCTBR14+2 01835000 @NM00011 EQU APCTBR14 01836000 APCTSMSZ EQU APCTSMAD+2 01837000 @NM00010 EQU APCTSMAD+1 01838000 @NM00009 EQU APCTSMAD 01839000 APCTSMIS EQU APCTSMIN+2 01840000 @NM00008 EQU APCTSMIN+1 01841000 APCTSMSP EQU APCTSMIN 01842000 @NM00007 EQU APCT+30 01843000 APCTLINE EQU APCT+28 01844000 APCTLBSZ EQU APCT+24 01845000 APCTREG EQU APCT+20 01846000 APCTSSID EQU APCTENQM+4 01847000 @NM00006 EQU APCTENQM 01848000 APCTSSVT EQU APCT+8 01849000 APCTUSER EQU APCT+4 01850000 APCTID EQU APCT 01851000 CVTLEVL EQU CVTRELNO+2 01852000 CVTNUMB EQU CVTRELNO 01853000 CVTMDL EQU CVTFIX+250 01854000 @NM00005 EQU CVTFIX+248 01855000 @NM00004 EQU CVTFIX 01856000 CVTRV482 EQU CVTXTNT2+128 01857000 CVTRV481 EQU CVTXTNT2+124 01858000 CVTRV480 EQU CVTXTNT2+120 01859000 CVTRV479 EQU CVTXTNT2+118 01860000 CVTRV478 EQU CVTXTNT2+117 01861000 CVTRV477 EQU CVTXTNT2+116 01862000 CVTRV476 EQU CVTXTNT2+115 01863000 CVTRV475 EQU CVTXTNT2+114 01864000 CVTRV474 EQU CVTRV466 01865000 CVTRV473 EQU CVTRV466 01866000 CVTRV472 EQU CVTRV466 01867000 CVTRV471 EQU CVTRV466 01868000 CVTRV470 EQU CVTRV466 01869000 CVTRV469 EQU CVTRV466 01870000 CVTRV468 EQU CVTRV466 01871000 CVTRV467 EQU CVTRV466 01872000 CVTRV465 EQU CVTRV457 01873000 CVTRV464 EQU CVTRV457 01874000 CVTRV463 EQU CVTRV457 01875000 CVTRV462 EQU CVTRV457 01876000 CVTRV461 EQU CVTRV457 01877000 CVTRV460 EQU CVTRV457 01878000 CVTRV459 EQU CVTRV457 01879000 CVTRV458 EQU CVTRV457 01880000 CVTRV456 EQU CVTXTNT2+108 01881000 CVTRV455 EQU CVTXTNT2+104 01882000 CVTRV454 EQU CVTXTNT2+100 01883000 CVTRV453 EQU CVTXTNT2+96 01884000 CVTRV452 EQU CVTXTNT2+94 01885000 CVTRV451 EQU CVTXTNT2+92 01886000 CVTRV450 EQU CVTXTNT2+90 01887000 CVTRV449 EQU CVTXTNT2+88 01888000 CVTRV448 EQU CVTXTNT2+87 01889000 CVTRV447 EQU CVTXTNT2+86 01890000 CVTRV446 EQU CVTRV438 01891000 CVTRV445 EQU CVTRV438 01892000 CVTRV444 EQU CVTRV438 01893000 CVTRV443 EQU CVTRV438 01894000 CVTRV442 EQU CVTRV438 01895000 CVTRV441 EQU CVTRV438 01896000 CVTRV440 EQU CVTRV438 01897000 CVTRV439 EQU CVTRV438 01898000 CVTRV437 EQU CVTRV429 01899000 CVTRV436 EQU CVTRV429 01900000 CVTRV435 EQU CVTRV429 01901000 CVTRV434 EQU CVTRV429 01902000 CVTRV433 EQU CVTRV429 01903000 CVTRV432 EQU CVTRV429 01904000 CVTRV431 EQU CVTRV429 01905000 CVTRV430 EQU CVTRV429 01906000 CVTRV428 EQU CVTXTNT2+80 01907000 CVTRV427 EQU CVTXTNT2+76 01908000 CVTRV426 EQU CVTXTNT2+72 01909000 CVTRV425 EQU CVTXTNT2+68 01910000 CVTATACT EQU CVTATCVT 01911000 CVTRV423 EQU CVTXTNT2+62 01912000 CVTRV422 EQU CVTXTNT2+60 01913000 CVTRV421 EQU CVTXTNT2+58 01914000 CVTRV420 EQU CVTXTNT2+56 01915000 CVTRV419 EQU CVTXTNT2+55 01916000 CVTRV418 EQU CVTXTNT2+54 01917000 CVTRV417 EQU CVTRV409 01918000 CVTRV416 EQU CVTRV409 01919000 CVTRV415 EQU CVTRV409 01920000 CVTRV414 EQU CVTRV409 01921000 CVTRV413 EQU CVTRV409 01922000 CVTRV412 EQU CVTRV409 01923000 CVTRV411 EQU CVTRV409 01924000 CVTRV410 EQU CVTRV409 01925000 CVTRV408 EQU CVTRV400 01926000 CVTRV407 EQU CVTRV400 01927000 CVTRV406 EQU CVTRV400 01928000 CVTRV405 EQU CVTRV400 01929000 CVTRV404 EQU CVTRV400 01930000 CVTRV403 EQU CVTRV400 01931000 CVTRV402 EQU CVTRV400 01932000 CVTRV401 EQU CVTRV400 01933000 CVTICB EQU CVTXTNT2+48 01934000 CVTSKTA EQU CVTXTNT2+44 01935000 CVTRSV99 EQU CVTXTNT2+40 01936000 CVTRSV98 EQU CVTXTNT2+36 01937000 CVTRSV97 EQU CVTXTNT2+34 01938000 CVTRSV96 EQU CVTXTNT2+32 01939000 CVTOLTEP EQU CVTXTNT2+28 01940000 CVTQIDA EQU CVTQID+1 01941000 CVTRSV95 EQU CVTQID 01942000 CVTRSV94 EQU CVTXTNT2+20 01943000 CVTRSV93 EQU CVTXTNT2+16 01944000 CVTRSV92 EQU CVTXTNT2+12 01945000 CVTDEBVR EQU CVTXTNT2+8 01946000 CVTRSV91 EQU CVTXTNT2+6 01947000 CVTRSV9H EQU CVTFLGBT 01948000 CVTRSV9G EQU CVTFLGBT 01949000 CVTRSV9F EQU CVTFLGBT 01950000 CVTRSV9E EQU CVTFLGBT 01951000 CVTRSV9D EQU CVTFLGBT 01952000 CVTRSV9C EQU CVTFLGBT 01953000 CVTVME EQU CVTFLGBT 01954000 CVTNPE EQU CVTFLGBT 01955000 CVTNUCLS EQU CVTXTNT2+4 01956000 CVTDSSVA EQU CVTDSSV+1 01957000 CVTRSV89 EQU CVTDSSV 01958000 CVTRSV88 EQU CVTXTNT1+8 01959000 CVTRSV87 EQU CVTXTNT1+4 01960000 CVTFACHN EQU CVTXTNT1 01961000 CVTRV488 EQU CVTMAP+412 01962000 CVTRV487 EQU CVTMAP+408 01963000 CVTRV486 EQU CVTMAP+404 01964000 CVTRV485 EQU CVTMAP+400 01965000 CVTACTAP EQU CVTMAP+396 01966000 CVTAUTH EQU CVTMAP+392 01967000 CVTATMCA EQU CVTATMCT+1 01968000 CVTATMST EQU CVTATMCT 01969000 CVTRSV61 EQU CVTMAP+384 01970000 CVTVOLT1 EQU CVTVOLM1+1 01971000 CVTVOLI1 EQU CVTVOLF1 01972000 CVTSTOA EQU CVTMAP+376 01973000 CVTRSV58 EQU CVTMAP+374 01974000 CVTRSV57 EQU CVTMAP+372 01975000 CVTDDCE EQU CVTMAP+368 01976000 CVTPNWFR EQU CVTMAP+364 01977000 CVTSMF EQU CVTMAP+360 01978000 CVTSULK EQU CVTMAP+358 01979000 CVTSLKO EQU CVTSYSK 01980000 CVTSLKP EQU CVTSYSK 01981000 CVTSLKQ EQU CVTSYSK 01982000 CVTSLKR EQU CVTSYSK 01983000 CVTRSV56 EQU CVTSYSK 01984000 CVTRSV55 EQU CVTSYSK 01985000 CVTRSV54 EQU CVTSYSK 01986000 CVTRSV53 EQU CVTSYSK 01987000 CVTRSV52 EQU CVTA1F1 01988000 CVTRSV51 EQU CVTA1F1 01989000 CVTRSV50 EQU CVTA1F1 01990000 CVTRSV49 EQU CVTA1F1 01991000 CVTRSV48 EQU CVTA1F1 01992000 CVTRSV47 EQU CVTA1F1 01993000 CVTSRSW EQU CVTA1F1 01994000 CVTPFSW EQU CVTA1F1 01995000 CVTPCVT EQU CVTMAP+352 01996000 CVTRSV46 EQU CVTMAP+344 01997000 CVTRSV45 EQU CVTMAP+340 01998000 CVTRSV44 EQU CVTMAP+338 01999000 CVTRSV43 EQU CVTMAP+336 02000000 CVTHJESA EQU CVTHJES+1 02001000 CVTRSV42 EQU CVTHJES 02002000 CVTEXT2A EQU CVTEXT2+1 02003000 CVTRSV41 EQU CVTEXT2 02004000 CVTAPFA EQU CVTAPF+1 02005000 CVTRSV40 EQU CVTAPF 02006000 CVTRV518 EQU CVTINTLA 02007000 CVTRV517 EQU CVTERPV 02008000 CVTEORM EQU CVTMAP+312 02009000 CVTMCHPR EQU CVTMAP+308 02010000 CVTTZ EQU CVTMAP+304 02011000 CVTJEPS EQU CVTMAP+300 02012000 CVTJESCT EQU CVTMAP+296 02013000 CVTMODE EQU CVTMAP+292 02014000 CVTPTRV EQU CVTMAP+288 02015000 CVTREAL EQU CVTMAP+284 02016000 CVTRSV39 EQU CVTMAP+280 02017000 CVTRSV38 EQU CVTMAP+276 02018000 CVTDMSRA EQU CVTDMSR+1 02019000 CVTRV634 EQU CVTDMSRF 02020000 CVTRV633 EQU CVTDMSRF 02021000 CVTRV632 EQU CVTDMSRF 02022000 CVTRV631 EQU CVTDMSRF 02023000 CVTRV630 EQU CVTDMSRF 02024000 CVTRV629 EQU CVTDMSRF 02025000 CVTUDUMP EQU CVTDMSRF 02026000 CVTSDUMP EQU CVTDMSRF 02027000 CVTQMSGA EQU CVTQMSG+1 02028000 CVTRSV36 EQU CVTQMSG 02029000 CVTAMFF EQU CVTMAP+264 02030000 CVTPURGA EQU CVTPURG+1 02031000 CVTRSV35 EQU CVTPURG 02032000 CVTCBSP EQU CVTMAP+256 02033000 CVTATERA EQU CVTATER+1 02034000 CVTSYST EQU CVTATER 02035000 CVTVOLT2 EQU CVTTAT 02036000 CVTVOLI2 EQU CVTVOLF2 02037000 CVTAQAVB EQU CVTAQAVT+1 02038000 CVTRSV34 EQU CVTTCMFG 02039000 CVTRSV33 EQU CVTTCMFG 02040000 CVTRSV32 EQU CVTTCMFG 02041000 CVTRSV31 EQU CVTTCMFG 02042000 CVTRSV30 EQU CVTTCMFG 02043000 CVTRSV29 EQU CVTTCMFG 02044000 CVTLDEV EQU CVTTCMFG 02045000 CVTTCRDY EQU CVTTCMFG 02046000 CVTGTFA EQU CVTGTF+1 02047000 CVTRSV27 EQU CVTGTFST 02048000 CVTRNIO EQU CVTGTFST 02049000 CVTUSR EQU CVTGTFST 02050000 CVTRV318 EQU CVTFORM 02051000 CVTRV317 EQU CVTTMODE 02052000 CVTRV316 EQU CVTSTATE 02053000 CVTRV315 EQU CVTGTFS 02054000 CVTGTFAV EQU CVTGTFS 02055000 CVT0SCR1 EQU CVTMAP+232 02056000 CVTRV515 EQU CVTMAP+228 02057000 CVTRMS EQU CVTMAP+224 02058000 CVTPATCH EQU CVTMAP+220 02059000 CVTTSCE EQU CVTMAP+216 02060000 CVTLNKSC EQU CVTMAP+214 02061000 CVTQABST EQU CVTMAP+212 02062000 CVTMDLDS EQU CVTMAP+208 02063000 CVTUSER EQU CVTMAP+204 02064000 CVTABEND EQU CVTMAP+200 02065000 CVTSMCA EQU CVTMAP+196 02066000 CVTRSV18 EQU CVTMAP+192 02067000 CVTQLPAQ EQU CVTMAP+188 02068000 CVTQCDSR EQU CVTMAP+184 02069000 CVTRSV17 EQU CVTOPTB 02070000 CVTRSV16 EQU CVTOPTB 02071000 CVTFP EQU CVTOPTB 02072000 CVTAPTHR EQU CVTOPTB 02073000 CVTNLOG EQU CVTOPTB 02074000 CVTTOD EQU CVTOPTB 02075000 CVTCTIMS EQU CVTOPTB 02076000 CVTPROT EQU CVTOPTB 02077000 CVTXPFP EQU CVTOPTA 02078000 CVTASCII EQU CVTOPTA 02079000 CVTRSV13 EQU CVTOPTA 02080000 CVTRSV12 EQU CVTOPTA 02081000 CVTNIP EQU CVTOPTA 02082000 CVTDDR EQU CVTOPTA 02083000 CVTAPR EQU CVTOPTA 02084000 CVTCCH EQU CVTOPTA 02085000 CVTSNCTR EQU CVTMAP+180 02086000 CVTQMWR EQU CVTMAP+176 02087000 CVTQOCR EQU CVTMAP+172 02088000 CVT1EF00 EQU CVTMAP+168 02089000 CVTMZ00 EQU CVTMAP+164 02090000 CVTHEAD EQU CVTMAP+160 02091000 CVTRSV11 EQU CVTMAP+156 02092000 CVT0PT01 EQU CVTMAP+152 02093000 CVTMSER EQU CVTMAP+148 02094000 CVTRV516 EQU CVTIERLC 02095000 CVTILCH EQU CVTMAP+140 02096000 CVT0DS EQU CVTMAP+136 02097000 CVTFBOSV EQU CVTMAP+132 02098000 CVTNUCB EQU CVTMAP+128 02099000 CVTIXAVL EQU CVTMAP+124 02100000 CVTIOQET EQU CVTMAP+120 02101000 CVTDCBA EQU CVTMAP+117 02102000 CVTMVS2 EQU CVTDCB 02103000 CVT6DAT EQU CVTDCB 02104000 CVT4MPS EQU CVTDCB 02105000 CVTRSV09 EQU CVTDCB 02106000 CVT4MS1 EQU CVTDCB 02107000 CVT2SPS EQU CVTDCB 02108000 CVT1SSS EQU CVTDCB 02109000 CVTRSV08 EQU CVTDCB 02110000 CVTSTB EQU CVTMAP+112 02111000 CVTQTD00 EQU CVTMAP+108 02112000 CVTQTE00 EQU CVTMAP+104 02113000 CVTCUCB EQU CVTMAP+100 02114000 CVTSJQ EQU CVTMAP+96 02115000 CVTPBLDL EQU CVTMAP+92 02116000 CVTTPC EQU CVTMAP+88 02117000 CVTSVDCB EQU CVTMAP+84 02118000 CVTBRET EQU CVTMAP+82 02119000 CVTEXIT EQU CVTMAP+80 02120000 CVT0FN00 EQU CVTMAP+76 02121000 CVTDARA EQU CVTDAR+1 02122000 CVTRSV07 EQU CVTFLGS1 02123000 CVTRSV06 EQU CVTFLGS1 02124000 CVTRSV05 EQU CVTFLGS1 02125000 CVTRSV04 EQU CVTFLGS1 02126000 CVTRSV03 EQU CVTFLGS1 02127000 CVTRSV02 EQU CVTFLGS1 02128000 CVTRSV01 EQU CVTFLGS1 02129000 CVTDMPLK EQU CVTFLGS1 02130000 CVTXITP EQU CVTMAP+68 02131000 CVTZDTAB EQU CVTMAP+64 02132000 CVTMSLT EQU CVTMAP+60 02133000 CVTDATE EQU CVTMAP+56 02134000 CVTBTERM EQU CVTMAP+52 02135000 CVTSYSAD EQU CVTMAP+48 02136000 CVTXTLER EQU CVTMAP+44 02137000 CVTILK2 EQU CVTMAP+40 02138000 CVTILK1 EQU CVTMAP+36 02139000 CVTPRLTV EQU CVTMAP+32 02140000 CVTPCNVT EQU CVTMAP+28 02141000 CVT0VL00 EQU CVTMAP+24 02142000 CVTXAPG EQU CVTMAP+20 02143000 CVTBUF EQU CVTMAP+16 02144000 CVTJOB EQU CVTMAP+12 02145000 CVTLINK EQU CVTMAP+8 02146000 CVT0EF00 EQU CVTMAP+4 02147000 CVTTCBP EQU CVTMAP 02148000 @NM00003 EQU PARMFLGS 02149000 SAVEXXXX EQU SAVESXXX 02150000 R13PFORW EQU @NM00001+8 02151000 R13PBACK EQU @NM00001+4 02152000 @NM00002 EQU @NM00001 02153000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02154000 @RC00100 EQU @EL00001 02155000 @ENDDATA EQU * 02156000 END IGTD4E,(C'PLS1646',0701,77092) 02157000