TITLE 'IEAVEMCR- MEMORY CREATE *00001000 ' 00002000 IEAVEMCR CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEAVEMCR 76.063' 0001 00008000 DROP @15 00009000 @PROLOG BALR @10,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@10 0001 00012000 LR @12,@01 0001 00013000 L @00,@SIZDATD 0001 00014000 GETMAIN R,LV=(0) 00015000 LR @09,@01 0001 00016000 USING @DATD,@09 0001 00017000 LR @01,@12 0001 00018000 ST @13,@SA00001+4 0001 00019000 LR @13,@09 0001 00020000 * RTNADDR=RTNREG; /* SAVE REGISTER 14 ACROSS 0085 00021000 * ROUTINE */ 00022000 LR RTNADDR,RTNREG 0085 00023000 * RESPECIFY 0086 00024000 * (RTNREG) UNRSTD; 0086 00025000 * ESTAEPRM=''B; /* CLEAR ESTAE PARM AREA */ 00026000 XC ESTAEPRM(20),ESTAEPRM 0087 00027000 * BASEPTR=REG10; /* SAVE BASE REGISTER */ 00028000 ST REG10,BASEPTR 0088 00029000 * DATABASE=REG9; /* SAVE DATA REGISTER */ 00030000 ST REG9,DATABASE 0089 00031000 * ADDRSRB=0; /* CLEAR SRB PTR */ 00032000 SLR @12,@12 0090 00033000 ST @12,ADDRSRB 0090 00034000 * ASID=ASIDPARM; /* PICK UP ASID PARAMETER */ 00035000 LH @12,ASIDPARM(,PARAMREG) 0091 00036000 STH @12,ASID 0091 00037000 * RESPECIFY 0092 00038000 * (PARAMREG) UNRSTD; 0092 00039000 * 0092 00040000 */* */ 00041000 */* FIND ASCB ADDRESS */ 00042000 */* */ 00043000 * 0093 00044000 * ASCBPTR=ASVTENTY(ASID); /* ADDRESS OF ASCB IN ENTRY IN 0093 00045000 * ASVT */ 00046000 SLA @12,2 0093 00047000 L @11,CVTPTR 0093 00048000 L @11,ASVTPTR(,@11) 0093 00049000 L ASCBPTR,ASVTENTY-4(@12,@11) 0093 00050000 * 0094 00051000 */* */ 00052000 */* SET UP ESTAE ENVIRONMENT */ 00053000 */* */ 00054000 * 0094 00055000 * RESPECIFY 0094 00056000 * (ESTAPTR, 0094 00057000 * WRKRG1) RSTD; 0094 00058000 * WRKRG1=ADDR(ESTAEPRM); /* ADDRESS OF PARAMETER AREA */ 00059000 LA WRKRG1,ESTAEPRM 0095 00060000 * ESTAPTR=ADDR(PRMLST); /* USE GOTTEN CORE FOR LIST FOR 00061000 * EXECUTE FORM OF ESTAE MACRO */ 00062000 LA ESTAPTR,PRMLST 0096 00063000 * ESTA=ESTAELST; /* MOVE LIST FORM OF MACRO TO 0097 00064000 * GOTTEN CORE */ 00065000 MVC ESTA(16,ESTAPTR),ESTAELST 0097 00066000 * GENERATE REFS(ESTAPTR,WRKRG1); 0098 00067000 * /* ISSUE ESTAE MACRO */ 00068000 ESTAE PARAM=(WRKRG1),MF=(E,(ESTAPTR)), *00069000 RELATED=(MCRESTAE,IEAVEMCR) 00070000 * RESPECIFY 0099 00071000 * (WRKRG1, 0099 00072000 * ESTAPTR) UNRSTD; 0099 00073000 * 0100 00074000 */* */ 00075000 */* CALL ADDRESS SPACE CREATION */ 00076000 */* */ 00077000 * 0100 00078000 * RESPECIFY 0100 00079000 * (EPREG, 0100 00080000 * PARAMREG, 0100 00081000 * RTNREG) RSTD; 0100 00082000 * EPREG=CVTCRAS; /* GET ADDRESS OF IEAVGCAS */ 00083000 L @12,CVTPTR 0101 00084000 L EPREG,CVTCRAS(,@12) 0101 00085000 * PARAMREG=ASCBPTR; /* SET UP ASCB ADDRESS */ 00086000 * 0102 00087000 LR PARAMREG,ASCBPTR 0102 00088000 * /*****************************************************************/ 00089000 * /* */ 00090000 * /* BALR TO IEAVGCS */ 00091000 * /* */ 00092000 * /*****************************************************************/ 00093000 * 0103 00094000 * GENERATE REFS(RTNREG,EPREG); 0103 00095000 * /* GOTO IEAVGCS */ 00096000 BALR RTNREG,EPREG 00097000 * IF RTNCODE^=0 /* ADDRESS SPACE CREATION 0104 00098000 * SUCCESSFUL? */ 00099000 * THEN 0104 00100000 LTR RTNCODE,RTNCODE 0104 00101000 BZ @RF00104 0104 00102000 * DO; /* NO, ERROR CONDITION */ 00103000 * RESPECIFY 0106 00104000 * (EPREG, 0106 00105000 * RTNREG, 0106 00106000 * PARAMREG) UNRSTD; 0106 00107000 * CALL ERREXIT; /* GO TO ERROR HANDLING ROUTINE */ 00108000 L @15,ERRPTR 0107 00109000 BALR @14,@15 0107 00110000 * GOTO EXIT; /* EXIT FROM ROUTINE */ 00111000 B EXIT 0108 00112000 * END; 0109 00113000 * 0110 00114000 */* */ 00115000 */* ENQUEUE ASCB ON ASCB READY QUEUE */ 00116000 */* */ 00117000 * 0110 00118000 * RESPECIFY 0110 00119000 * (EPREG, 0110 00120000 * RTNREG, 0110 00121000 * PARAMREG) RSTD; 0110 00122000 @RF00104 DS 0H 0111 00123000 * PARAMREG=ASCBPTR; /* SET REG1 = @ ASCB TO BE 0111 00124000 * ENQUEUED */ 00125000 LR PARAMREG,ASCBPTR 0111 00126000 * GENERATE REFS(CVTVEAC0,CVT); 0112 00127000 ASCBCHAP ADD ENQUEUE ASCB ON ASCB READY QUEUE 00128000 * RESPECIFY 0113 00129000 * (RTNREG, 0113 00130000 * PARAMREG, 0113 00131000 * EPREG) UNRSTD; 0113 00132000 * 0114 00133000 */* */ 00134000 */* INITIALIZE SRB FOR IEAVEMIN */ 00135000 */* */ 00136000 * 0114 00137000 * RESPECIFY 0114 00138000 * (LENREG, 0114 00139000 * ADDRREG, 0114 00140000 * RTNCODE) RSTD; 0114 00141000 * LENREG=LENSRB; /* LENGTH OF AREA FOR GETMAIN */ 00142000 LA LENREG,64 0115 00143000 * GENERATE; 0116 00144000 * /* GET CORE FOR SRB */ 00145000 GETMAIN RC,LV=(LENREG),SP=245, *00146000 RELATED=(SP245-72,IEAVEMIN) 00147000 * IF RTNCODE^=0 /* GETMAIN SUCCESSFUL? */ 00148000 * THEN 0117 00149000 LTR RTNCODE,RTNCODE 0117 00150000 BZ @RF00117 0117 00151000 * DO; /* NO, ERROR CONDITION */ 00152000 * RESPECIFY 0119 00153000 * (LENREG, 0119 00154000 * ADDRREG, 0119 00155000 * RTNCODE) UNRSTD; 0119 00156000 * CALL ERREXIT; /* GO TO ERROR HANDLING ROUTINE */ 00157000 L @15,ERRPTR 0120 00158000 BALR @14,@15 0120 00159000 * GOTO EXIT; /* EXIT FROM ROUTINE */ 00160000 B EXIT 0121 00161000 * END; 0122 00162000 * RESPECIFY 0123 00163000 * (SRBPTR, 0123 00164000 * MASCB, 0123 00165000 * COREADDR) RSTD; 0123 00166000 @RF00117 DS 0H 0124 00167000 * ADDRSRB=COREADDR; /* SAVE ADDRESS OF SRB */ 00168000 ST COREADDR,ADDRSRB 0124 00169000 * SRBPTR=COREADDR; /* INITIALIZE SRBPTR */ 00170000 LR SRBPTR,COREADDR 0125 00171000 * RESPECIFY 0126 00172000 * (COREADDR) UNRSTD; 0126 00173000 * LSTPTR=SRBPTR+LENGTH(SRBSECT); /* INITIALIZE PARM LIST PTR */ 00174000 LA LSTPTR,44 0127 00175000 ALR LSTPTR,SRBPTR 0127 00176000 * SRBSECT=''B; /* ZERO OUT GOTTEN CORE */ 00177000 XC SRBSECT(44,SRBPTR),SRBSECT(SRBPTR) 0128 00178000 * SRBID=IDSRB; /* INITIALIZE ID FIELD */ 00179000 MVC SRBID(4,SRBPTR),@CC02175 0129 00180000 * SRBASCB=ASCBPTR; /* SET UP ASCB ADDRESS */ 00181000 ST ASCBPTR,SRBASCB(,SRBPTR) 0130 00182000 * SRBPRIOR=NONQLVL; /* SCHEDULE AT NONQUIESCEABLE 0131 00183000 * LEVEL */ 00184000 MVI SRBPRIOR(SRBPTR),X'04' 0131 00185000 * SRBEP=ADDR(IEAVEMIN); /* SET UP EP TO IEAVEMIN */ 00186000 L @12,@CV02171 0132 00187000 ST @12,SRBEP(,SRBPTR) 0132 00188000 * SRBPARM=LSTPTR; /* SET UP ADDR OF PARAMETER LIST */ 00189000 ST LSTPTR,SRBPARM(,SRBPTR) 0133 00190000 * TCBPTR=PSATOLD; /* GET MASTER'S TCB PTR */ 00191000 L TCBPTR,PSATOLD 0134 00192000 * NASCB=ASCBPTR; /* GET UP ASCB PTR */ 00193000 ST ASCBPTR,NASCB(,LSTPTR) 0135 00194000 * MTIOT=TCBTIO; /* SET UP MASTER'S TIOT PTR */ 00195000 MVC MTIOT(4,LSTPTR),TCBTIO(TCBPTR) 0136 00196000 * MJSCB=TCBJSCBB; /* SET UP MASTER'S JSCB PTR */ 00197000 SLR @12,@12 0137 00198000 ICM @12,7,TCBJSCBB(TCBPTR) 0137 00199000 ST @12,MJSCB(,LSTPTR) 0137 00200000 * MASCB=PSAAOLD; /* GET ADDRESS OF MASTER'S ASCB */ 00201000 L MASCB,PSAAOLD 0138 00202000 * MSTASCB=MASCB; /* SET UP MASTER'S ASCB PTR */ 00203000 ST MASCB,MSTASCB(,LSTPTR) 0139 00204000 * SRBPASID=MASCB->ASCBASID; /* SET UP MASTER'S ASID */ 00205000 MVC SRBPASID(2,SRBPTR),ASCBASID(MASCB) 0140 00206000 * SRBPTCB=TCBPTR; /* SET UP MASTER'S TCB PTR */ 00207000 ST TCBPTR,SRBPTCB(,SRBPTR) 0141 00208000 * RESPECIFY 0142 00209000 * (MASCB) UNRSTD; 0142 00210000 * 0143 00211000 */* */ 00212000 */* SCHEDULE SRB & WAIT FOR COMPLETION */ 00213000 */* */ 00214000 * 0143 00215000 * ASCBMECB=0; /* ZERO ECB */ 00216000 SLR @12,@12 0143 00217000 ST @12,ASCBMECB(,ASCBPTR) 0143 00218000 * ECBLIST=ADDR(ASCBMECB); /* SET UP ADDR OF ECB */ 00219000 LA @12,ASCBMECB(,ASCBPTR) 0144 00220000 ST @12,ECBLIST 0144 00221000 * LASTBIT='1'B; /* INDICATE LAST ENTRY */ 00222000 OI LASTBIT,B'10000000' 0145 00223000 * GENERATE REFS(CVTPTR,SRBPTR,CVTGSMQ,SRBFLNK,SRBSECT,ASCBMECB); 0146 00224000 SCHEDULE SRB=(SRBPTR),SCOPE=GLOBAL 00225000 WAIT ECBLIST=ECBLIST, WAIT FOR COMPLETION OF SRB *00226000 RELATED=(ASCBMECB,IEAVEMIN) 00227000 * 0147 00228000 */* */ 00229000 */* TEST FOR SUCCESS OF IEAVEMIN */ 00230000 */* */ 00231000 * 0147 00232000 * IF COMCODE^=0 /* IF NOT SUCCESSFUL, ERROR */ 00233000 * THEN 0147 00234000 ICM @12,7,COMCODE(ASCBPTR) 0147 00235000 BZ @RF00147 0147 00236000 * DO; /* ERROR CONDITION */ 00237000 * CALL ERREXIT; /* GO TO ERROR HANDLING ROUTINE */ 00238000 L @15,ERRPTR 0149 00239000 BALR @14,@15 0149 00240000 * END; 0150 00241000 * RESPECIFY 0151 00242000 * (ADDRREG, 0151 00243000 * LENREG) RSTD; 0151 00244000 @RF00147 DS 0H 0152 00245000 * ADDRREG=ADDRSRB; /* ADDRESS OF SRB */ 00246000 L ADDRREG,ADDRSRB 0152 00247000 * LENREG=LENSRB; /* LENGTH OF SRB AND PARAMETER 0153 00248000 * AREA */ 00249000 LA LENREG,64 0153 00250000 * GENERATE; 0154 00251000 * /* FREE SRB */ 00252000 FREEMAIN RU,A=(ADDRREG),LV=(LENREG),SP=245 @ZA04782 00253000 * RESPECIFY 0155 00254000 * (ADDRREG, 0155 00255000 * LENREG) UNRSTD; 0155 00256000 * ADDRSRB=0; /* INDICATE FREEMAIN DONE */ 00257000 SLR @12,@12 0156 00258000 ST @12,ADDRSRB 0156 00259000 */* READY TO EXIT */ 00260000 * 0157 00261000 *EXIT: 0157 00262000 * ; 0157 00263000 EXIT DS 0H 0158 00264000 * GENERATE; 0158 00265000 * /* CANCEL ESTAE */ 00266000 ESTAE 0,RELATED=(MCRESTAE,IEAVEMCR) CANCEL ESTAE 00267000 * RESPECIFY 0159 00268000 * (RTNREG) RSTD; 0159 00269000 * RTNREG=RTNADDR; /* RESTORE REGISTER 14 */ 00270000 LR RTNREG,RTNADDR 0160 00271000 * RETURN; /* EXIT */ 00272000 @EL00001 L @13,4(,@13) 0161 00273000 @EF00001 L @00,@SIZDATD 0161 00274000 LR @01,@09 0161 00275000 FREEMAIN R,LV=(0),A=(1) 00276000 @ER00001 BR @14 0161 00277000 * 0162 00278000 */* */ 00279000 */* MEMORY CREATE ERROR ROUTINE */ 00280000 */* */ 00281000 * 0162 00282000 *MCRERRTN: 0162 00283000 * PROC; /* ERROR HANDLING ROUTINE */ 00284000 MCRERRTN STM @14,@12,@SA00002 0162 00285000 * CSCBPTR=ASCBCSCB; /* SET UP ADDRESSABILITY FOR CSCB*/ 00286000 L CSCBPTR,ASCBCSCB(,ASCBPTR) 0163 00287000 * IF ASCBTSB^=0 /* IF LOGON CMD, ISSUE TPUT */ 00288000 * THEN 0164 00289000 ICM @15,15,ASCBTSB(ASCBPTR) 0164 00290000 BZ @RF00164 0164 00291000 * DO; /* SET UP PARAMETERS FOR TPUT */ 00292000 * RESPECIFY 0166 00293000 * (LENREG, 0166 00294000 * CNSLID, 0166 00295000 * MSGREG) RSTD; 0166 00296000 * MSGREG=ADDR(MSG1); /* ADDRESS OF MSG TEXT IN REG 1 */ 00297000 LA MSGREG,MSG1 0167 00298000 * LENMSG=LENGTH(MSG1); /* LENGTH OF MSG */ 00299000 MVC LENMSG(2),@CH02123 0168 00300000 * ASIDBYTE=ASID; /* ASID IN HIGH ORDER BYTE OF 0169 00301000 * REG0 */ 00302000 MVC ASIDBYTE(2),ASID 0169 00303000 * LENREG=R0PARM; /* MOVE TO REGISTER 0 */ 00304000 L LENREG,R0PARM 0170 00305000 * GENERATE REFS(LENREG,MSGREG); 0171 00306000 * /* ISSUE TPUT */ 00307000 TPUT (MSGREG),(LENREG),R TPUT ERROR MESSAGE 00308000 * MSGREG=ADDR(MSG2); /* ISSUE ERROR MSG TO CONSOLE 0172 00309000 * ALSO */ 00310000 LA MSGREG,MSG2 0172 00311000 * CNSLID=CHUCMP; /* PUT CONSOLE ID IN REG 0 */ 00312000 SLR CNSLID,CNSLID 0173 00313000 IC CNSLID,CHUCMP(,CSCBPTR) 0173 00314000 * GENERATE REFS(MSGREG); 0174 00315000 * /* WTO LOGON MESSAGE */ 00316000 WTO MF=(E,(MSGREG)) LOGON ERROR MESSAGE 00317000 * END; 0175 00318000 * ELSE /* MOUNT OR START COMMAND */ 00319000 * DO; /* DETERMINE IF START OR LOGON 0176 00320000 * CMD */ 00321000 B @RC00164 0176 00322000 @RF00164 DS 0H 0177 00323000 * CNSLID=CHUCMP; /* PUT CONSOLE ID IN REG 0 */ 00324000 SLR CNSLID,CNSLID 0177 00325000 IC CNSLID,CHUCMP(,CSCBPTR) 0177 00326000 * IF CHVCD=START /* START COMMAND - ISSUE MSG */ 00327000 * THEN 0178 00328000 CLI CHVCD(CSCBPTR),4 0178 00329000 BNE @RF00178 0178 00330000 * DO; /* ISSUE MESSAGE */ 00331000 * MSGREG=ADDR(MSG4); /* ADDRESS OF START ERROR MSG */ 00332000 LA MSGREG,MSG4 0180 00333000 * GENERATE REFS(MSGREG); 0181 00334000 * /* ISSUE WTO */ 00335000 WTO MF=(E,(MSGREG)) START ERROR MESSAGE 00336000 * END; 0182 00337000 * ELSE /* MOUNT COMMAND */ 00338000 * DO; /* MOUNT COMMAND- ISSUE MSG */ 00339000 B @RC00178 0183 00340000 @RF00178 DS 0H 0184 00341000 * MSGREG=ADDR(MSG3); /* ADDR OF MOUNT ERROR MSG */ 00342000 LA MSGREG,MSG3 0184 00343000 * GENERATE REFS(MSGREG); 0185 00344000 * /* ISSUE WTO */ 00345000 WTO MF=(E,(MSGREG)) MOUNT ERROR MESSAGE 00346000 * END; 0186 00347000 * END; 0187 00348000 @RC00178 DS 0H 0188 00349000 * RESPECIFY 0188 00350000 * (LENREG, 0188 00351000 * CNSLID, 0188 00352000 * MSGREG) UNRSTD; 0188 00353000 @RC00164 DS 0H 0189 00354000 * RESPECIFY 0189 00355000 * (WRKRG1, 0189 00356000 * SAVEPTR, 0189 00357000 * REG11, 0189 00358000 * REG12, 0189 00359000 * RTNREG) RSTD; 0189 00360000 * WRKRG1=SAVEPTR; /* SAVE REG 13 ACROSS SETLOCK */ 00361000 LR WRKRG1,SAVEPTR 0190 00362000 * GENERATE REFS(PSALITA); 0191 00363000 * /* OBTAIN LOCAL LOCK */ 00364000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, *00365000 RELATED=(LOCAL,IEAVEMCR) 00366000 * RESPECIFY 0192 00367000 * (ASIDREG) RSTD; 0192 00368000 * ASXBPTR=PSAAOLD->ASCBASXB; /* GET ADDRESS OF MASTER'S ASXB */ 00369000 L @15,PSAAOLD 0193 00370000 L ASXBPTR,ASCBASXB(,@15) 0193 00371000 * SAVEPTR=ADDR(ASXBFLSA); /* SET UP REGISTER SAVE AREA */ 00372000 LA SAVEPTR,ASXBFLSA(,ASXBPTR) 0194 00373000 * ASIDREG=ASID; /* SET UP PARAMETER FOR RTM */ 00374000 LH ASIDREG,ASID 0195 00375000 * GENERATE REFS(CVTBTERM,CVTMAP); 0196 00376000 * /* TERMINATE NEW MEMORY */ 00377000 CALLRTM TYPE=MEMTERM,ASID=(ASIDREG),COMPCOD=X'076' 00378000 * GENERATE REFS(PSALITA); 0197 00379000 * /* FREE GLOBAL DISP LOCK */ 00380000 SETLOCK RELEASE,TYPE=LOCAL, *00381000 RELATED=(LOCAL,IEAVEMCR) 00382000 * SAVEPTR=WRKRG1; /* RESTORE SAVE AREA PTR */ 00383000 LR SAVEPTR,WRKRG1 0198 00384000 * RESPECIFY 0199 00385000 * (ASIDREG, 0199 00386000 * SAVEPTR, 0199 00387000 * WRKRG1, 0199 00388000 * RTNREG, 0199 00389000 * REG11, 0199 00390000 * REG12) UNRSTD; 0199 00391000 * RETURN; /* RETURN TO CALLER */ 00392000 @EL00002 DS 0H 0200 00393000 @EF00002 DS 0H 0200 00394000 @ER00002 LM @14,@12,@SA00002 0200 00395000 BR @14 0200 00396000 * END MCRERRTN; /* END MCRERRTN */ 00397000 * 0202 00398000 */* */ 00399000 */* MEMORY CREATE ESTAE ROUTINE */ 00400000 */* */ 00401000 * 0202 00402000 *MCRESTAE: 0202 00403000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* ESTAE EXIT ROUTINE */ 00404000 MCRESTAE DS 0H 0203 00405000 * DCL 0203 00406000 * MODNAME CHAR(8) CONSTANT('IEAVEMCR');/* MODULE NAME */ 00407000 * DCL 0204 00408000 * EXITNAME CHAR(8) CONSTANT('MCRESTAE');/* EXIT ROUTINE NAME */ 00409000 * DCL 0205 00410000 * SDWAPTR PTR(31) REG(4) RSTD; /* POINTER TO SDWA */ 00411000 * RESPECIFY 0206 00412000 * (RTNREG, 0206 00413000 * PARAMREG) RSTD; 0206 00414000 * DO; /* ENTESTAE (REG9,REG10)SAVEAREA( 00415000 * ESTAESA)ERREXIT(NORTCA) */ 00416000 * 0207 00417000 * /***************************************************************/ 00418000 * /* */ 00419000 * /* ENTRY CODE FOR ESTAE ROUTINE. IF RTCA ALLOCATED THEN RESTORE*/ 00420000 * /* CODE AND DATA REGS FROM START OF USERS PARM LIST, AND */ 00421000 * /* ESTABLISH ADDR TO ESTAE SAVE AREA IF REQUIRED. IF NO RTCA */ 00422000 * /* AVAILABLE THEN BRANCH TO ERROR CODE AFTER ESTABLISHING */ 00423000 * /* ADDRESSABILITY */ 00424000 * /* */ 00425000 * /***************************************************************/ 00426000 * 0208 00427000 * GEN(USING *,GPR15P); 0208 00428000 USING *,GPR15P 00429000 * GEN(CH GPR00F,*+26); /* CHECK IF RTCA ALLOC FAILED */ 00430000 CH GPR00F,*+26 00431000 * GEN(BNE *+24); /* NO,SAVE RTM REGS */ 00432000 BNE *+24 00433000 * GEN(DROP GPR15P); /* DROP LOCAL ADDR */ 00434000 DROP GPR15P 00435000 * GEN(LR GPR15P,GPR02P); /* PTR TO USER PARM LIST */ 00436000 LR GPR15P,GPR02P 00437000 * GEN(L REG9,00(GPR15P)); 0213 00438000 L REG9,00(GPR15P) 00439000 * GEN(L REG10,04(GPR15P)); 0214 00440000 L REG10,04(GPR15P) 00441000 * GEN(LA GPR13P,ESTAESA); /* SET PTR TO ESTAE SA */ 00442000 LA GPR13P,ESTAESA 00443000 * GEN(B NORTCA); /* BRANCH TO ERROR EXIT */ 00444000 B NORTCA 00445000 * GEN(DC H'12'); /* NO RTCA AVAIL RC */ 00446000 DC H'12' 00447000 * GEN(STM GPR14P,GPR12F,12(GPR13P));/* GOOD R13, SAVE RTM'S 0218 00448000 * REGS */ 00449000 STM GPR14P,GPR12F,12(GPR13P) 00450000 * GEN(L GPR15P,0(GPR01P)); /* PTR TO USER PARM LIST */ 00451000 L GPR15P,0(GPR01P) 00452000 * GEN(L REG9,00(GPR15P)); 0220 00453000 L REG9,00(GPR15P) 00454000 * GEN(L REG10,04(GPR15P)); 0221 00455000 L REG10,04(GPR15P) 00456000 * GEN(ST GPR13P,ESTAESA+4); /* SET PTR TO RTM SA */ 00457000 ST GPR13P,ESTAESA+4 00458000 * GEN(LA GPR13P,ESTAESA); /* SET PTR TO ESTAE SA */ 00459000 LA GPR13P,ESTAESA 00460000 * END; /* ENTESTAE (REG9,REG10)SAVEAREA( 00461000 * ESTAESA)ERREXIT(NORTCA) */ 00462000 * SDWAPTR=PARAMREG; /* SET UP ADDRESSABILITY FOR SDWA*/ 00463000 LR SDWAPTR,PARAMREG 0225 00464000 * GOTO RECOV; /* START RECOVERY PROCESSING */ 00465000 B RECOV 0226 00466000 *NORTCA: 0227 00467000 * ; /* NO SDWA GOTTEN */ 00468000 NORTCA DS 0H 0228 00469000 * NOSDWAF=BITON; /* SET INDICATOR FOR NO SDWA */ 00470000 OI NOSDWAF,B'10000000' 0228 00471000 * RECRTN=RTNREG; /* SAVE RETURN ADDRESS */ 00472000 ST RTNREG,RECRTN 0229 00473000 * RESPECIFY 0230 00474000 * (RTNREG, 0230 00475000 * PARAMREG) UNRSTD; 0230 00476000 *RECOV: 0231 00477000 * ; /* START OF RECOVERY CODE */ 00478000 RECOV DS 0H 0232 00479000 * RESPECIFY 0232 00480000 * (PARAMREG) RSTD; 0232 00481000 * PARAMREG=ADDR(SDUMPLST); /* SET UP SDUMP PARM AREA */ 00482000 LA PARAMREG,SDUMPLST 0233 00483000 * GENERATE REFS(PARAMREG); 0234 00484000 SDUMP MF=(E,(PARAMREG)) 00485000 * RESPECIFY 0235 00486000 * (PARAMREG) UNRSTD; 0235 00487000 * CALL ERREXIT; /* ISSUE ERROR MSGS & CALL RTM */ 00488000 L @15,ERRPTR 0236 00489000 BALR @14,@15 0236 00490000 * IF ADDRSRB^=0 THEN 0237 00491000 L @12,ADDRSRB 0237 00492000 LTR @12,@12 0237 00493000 BZ @RF00237 0237 00494000 * DO; /* SRB GOTTEN? */ 00495000 * RESPECIFY 0239 00496000 * (ADDRREG, 0239 00497000 * LENREG) RSTD; 0239 00498000 * ADDRREG=ADDRSRB; /* GET ADDRESS OF SRB */ 00499000 LR ADDRREG,@12 0240 00500000 * LENREG=LENSRB; /* SET UP LENGTH OF SRB */ 00501000 LA LENREG,64 0241 00502000 * GENERATE; 0242 00503000 * /* FREE SRB */ 00504000 FREEMAIN RU,LV=(LENREG),A=(ADDRREG),SP=245 @ZA04782 00505000 * RESPECIFY 0243 00506000 * (ADDRREG, 0243 00507000 * LENREG) UNRSTD; 0243 00508000 * END; 0244 00509000 * IF NOSDWAF=BITOFF THEN 0245 00510000 @RF00237 TM NOSDWAF,B'10000000' 0245 00511000 BNZ @RF00245 0245 00512000 * DO; /* IF SDWA GOTTEN ISSUE SETRP */ 00513000 * SDWAMODN=MODNAME; /* INITIALIZE MODULE NAME */ 00514000 MVC SDWAMODN(8,SDWAPTR),@CC02193 0247 00515000 * SDWACSCT=MODNAME; /* INITIALIZE CSECT NAME IN SDWA */ 00516000 MVC SDWACSCT(8,SDWAPTR),@CC02193 0248 00517000 * SDWAREXN=EXITNAME; /* INITIALIZE RECOVERY NAME */ 00518000 MVC SDWAREXN(8,SDWAPTR),@CC02195 0249 00519000 * RESPECIFY 0250 00520000 * SAVEPTR RSTD; 0250 00521000 * SAVEPTR=ESTAESA(2); /* RESTORE REGISTER 13 */ 00522000 L SAVEPTR,ESTAESA+4 0251 00523000 * DO; /* SETRP RC(0)REGS(14,12)DUMP(NO) 00524000 * RECORD(YES)WKAREA(SDWAPTR) */ 00525000 * RESPECIFY 0253 00526000 * (GPR00P, 0253 00527000 * GPR01P, 0253 00528000 * GPR14P, 0253 00529000 * GPR15P) RSTD; 0253 00530000 * GPR01P=SDWAPTR; 0254 00531000 LR GPR01P,SDWAPTR 0254 00532000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00533000 MVI SDWARCDE(GPR01P),X'00' 0255 00534000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00535000 OI SDWARCRD(GPR01P),B'10000000' 0256 00536000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 00537000 NI SDWAREQ(GPR01P),B'01111111' 0257 00538000 * GEN(RETURN (14,12)); 0258 00539000 RETURN (14,12) 00540000 * RESPECIFY 0259 00541000 * (GPR00P, 0259 00542000 * GPR01P, 0259 00543000 * GPR14P, 0259 00544000 * GPR15P) UNRSTD; 0259 00545000 * END; 0260 00546000 * END; 0261 00547000 * RESPECIFY 0262 00548000 * (RTNREG, 0262 00549000 * RTNCODE) RSTD; 0262 00550000 @RF00245 DS 0H 0263 00551000 * RTNCODE=0; /* INDICATE CONTINUE WITH 0263 00552000 * TERMINATION */ 00553000 SLR RTNCODE,RTNCODE 0263 00554000 * RTNREG=RECRTN; /* SET R14 TO RETURN ADDRESS */ 00555000 L RTNREG,RECRTN 0264 00556000 * RETURN; /* RETURN TO RTM */ 00557000 @EL00003 DS 0H 0265 00558000 @EF00003 DS 0H 0265 00559000 @ER00003 BR @14 0265 00560000 * END MCRESTAE; /* END OF ESTAE ROUTINE */ 00561000 * DCL 0267 00562000 * PATCHLOC FIXED(31) STATIC; 0267 00563000 * GEN DATA DEFS(PATCHLOC); 0268 00564000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00565000 * GPR00F FIXED(31) REG(0), 0269 00566000 * GPR12F FIXED(31) REG(12), 0269 00567000 * GPR00P PTR(31) REG(0), 0269 00568000 * GPR01P PTR(31) REG(1), 0269 00569000 * GPR02P PTR(31) REG(2), 0269 00570000 * GPR13P PTR(31) REG(13), 0269 00571000 * GPR14P PTR(31) REG(14), 0269 00572000 * GPR15P PTR(31) REG(15); 0269 00573000 * DECLARE /* COMMON VARIABLES */ 00574000 * I256C CHAR(256) BASED, 0270 00575000 * I031F FIXED(31) BASED, 0270 00576000 * I031P PTR(31) BASED, 0270 00577000 * I015F FIXED(15) BASED, 0270 00578000 * I015P PTR(15) BASED, 0270 00579000 * I008P PTR(8) BASED, 0270 00580000 * I001C CHAR(1) BASED; 0270 00581000 * END IEAVEMCR /* END MEMORY CREATE */ 00582000 * 0271 00583000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00584000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00585000 */*%INCLUDE SYSLIB (IHAASXB ) */ 00586000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 00587000 */*%INCLUDE SYSLIB (CVT ) */ 00588000 */*%INCLUDE SYSLIB (IHASRB ) */ 00589000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00590000 */*%INCLUDE SYSLIB (IKJTCB ) */ 00591000 */*%INCLUDE SYSLIB (IEECHAIN) */ 00592000 */*%INCLUDE SYSLIB (IHAASVT ) */ 00593000 */*%INCLUDE SYSLIB (IHAESTA ) */ 00594000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00595000 * 0271 00596000 * ; 0271 00597000 B @EL00001 0271 00598000 @DATA DS 0H 00599000 @CH02123 DC H'49' 00600000 @DATD DSECT 00601000 DS 0F 00602000 @SA00001 DS 18F 00603000 @SA00002 DS 15F 00604000 IEAVEMCR CSECT 00605000 DS 0F 00606000 @DATD DSECT 00607000 DS 0D 00608000 ENTYADDR DS A 00609000 R0PARM DS FL4 00610000 ORG R0PARM 00611000 ASIDBYTE DS FL2 00612000 LENMSG DS FL2 00613000 ORG R0PARM+4 00614000 ECBLIST DS AL4 00615000 ORG ECBLIST 00616000 LASTBIT DS BL1 00617000 ORG ECBLIST+4 00618000 WSALPTR DS A 00619000 ASID DS H 00620000 DS CL2 00621000 PRMLST DS CL16 00622000 ESTAEPRM DS CL20 00623000 ORG ESTAEPRM 00624000 DATABASE DS AL4 00625000 BASEPTR DS AL4 00626000 ADDRSRB DS AL4 00627000 RECRTN DS AL4 00628000 RECFLAGS DS BL4 00629000 ORG RECFLAGS 00630000 NOSDWAF DS BL1 00631000 @NM00091 EQU RECFLAGS+0 00632000 ORG ESTAEPRM+20 00633000 ESTAESA DS 18A 00634000 IEAVEMCR CSECT 00635000 DS 0F 00636000 @SIZDATD DC AL1(0) 00637000 DC AL3(@ENDDATD-@DATD) 00638000 @CV02171 DC V(IEAVEMIN) 00639000 DS 0D 00640000 ERRPTR DC AL4(MCRERRTN) 00641000 @CC02193 DC C'IEAVEMCR' 00642000 @CC02195 DC C'MCRESTAE' 00643000 @CC02175 DC C'SRB ' 00644000 MSG1 DC CL49'IEA890I LOGON FAILED- MEMORY COULD NOT BE CREATED' 00645000 IEAVEMCR CSECT 00646000 * /* WTO MESSAGES */ 00647000 MSG2 WTO 'IEA890I LOGON FAILED- MEMORY COULD NOT BE CREATED', *00648000 MCSFLAG=(REG0,RESP),DESC=5,MF=L 00649000 MSG3 WTO 'IEA890I MOUNT FAILED- MEMORY COULD NOT BE CREATED', *00650000 MCSFLAG=(REG0,RESP),DESC=5,MF=L 00651000 MSG4 WTO 'IEA890I START FAILED- MEMORY COULD NOT BE CREATED', *00652000 MCSFLAG=(REG0,RESP),DESC=5,MF=L 00653000 IEAVEMCR CSECT 00654000 ESTAELST ESTAE MCRESTAE,CT,RECORD=YES,MF=L 00655000 IEAVEMCR CSECT 00656000 SDUMPLST SDUMP SDATA=(ALLPSA,NUC,SQA,LPA,TRT),MF=L, *00657000 HDR='IEAVEMCR- MEMORY CREATE ABNORMAL TERMINATION' 00658000 IEAVEMCR CSECT 00659000 DS 0H 00660000 PATCHLOC DC ((@DATA-@PSTART)/20)X'00' 00661000 @DATD DSECT 00662000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00663000 @ENDDATD EQU * 00664000 IEAVEMCR CSECT 00665000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00666000 @01 EQU 01 00667000 @02 EQU 02 00668000 @03 EQU 03 00669000 @04 EQU 04 00670000 @05 EQU 05 00671000 @06 EQU 06 00672000 @07 EQU 07 00673000 @08 EQU 08 00674000 @09 EQU 09 00675000 @10 EQU 10 00676000 @11 EQU 11 00677000 @12 EQU 12 00678000 @13 EQU 13 00679000 @14 EQU 14 00680000 @15 EQU 15 00681000 RTNADDR EQU @06 00682000 LSTPTR EQU @03 00683000 CSCBPTR EQU @04 00684000 TCBPTR EQU @05 00685000 ASXBPTR EQU @05 00686000 ASCBPTR EQU @08 00687000 SRBPTR EQU @02 00688000 ESTAPTR EQU @01 00689000 SDWAPTR EQU @04 00690000 WRKRG1 EQU @04 00691000 LENREG EQU @00 00692000 CNSLID EQU @00 00693000 MSGREG EQU @01 00694000 PARAMREG EQU @01 00695000 COREADDR EQU @01 00696000 ADDRREG EQU @01 00697000 MASCB EQU @04 00698000 ASIDREG EQU @06 00699000 REG9 EQU @09 00700000 REG10 EQU @10 00701000 REG11 EQU @11 00702000 REG12 EQU @12 00703000 SAVEPTR EQU @13 00704000 RTNREG EQU @14 00705000 EPREG EQU @15 00706000 RTNCODE EQU @15 00707000 GPR00P EQU @00 00708000 GPR01P EQU @01 00709000 GPR14P EQU @14 00710000 GPR15P EQU @15 00711000 GPR00F EQU @00 00712000 GPR02P EQU @02 00713000 GPR12F EQU @12 00714000 GPR13P EQU @13 00715000 MASXB EQU @05 00716000 REG13 EQU @13 00717000 REG14 EQU @14 00718000 WRKRG2 EQU @05 00719000 CVTPTR EQU 16 00720000 PSA EQU 0 00721000 FLCRNPSW EQU PSA 00722000 FLCROPSW EQU PSA+8 00723000 FLCICCW2 EQU PSA+16 00724000 PSAEEPSW EQU PSA+132 00725000 PSAESPSW EQU PSA+136 00726000 FLCSVILC EQU PSAESPSW+1 00727000 PSAEPPSW EQU PSA+140 00728000 FLCPIILC EQU PSAEPPSW+1 00729000 FLCPICOD EQU PSAEPPSW+2 00730000 PSAPICOD EQU FLCPICOD+1 00731000 FLCTEA EQU PSAEPPSW+4 00732000 FLCPER EQU PSA+152 00733000 FLCMCLA EQU PSA+168 00734000 FLCIOEL EQU FLCMCLA+4 00735000 FLCIOA EQU FLCMCLA+16 00736000 FLCFSA EQU FLCMCLA+80 00737000 PSATOLD EQU PSA+540 00738000 PSAAOLD EQU PSA+548 00739000 PSASUPER EQU PSA+552 00740000 PSASUP1 EQU PSASUPER 00741000 PSASUP2 EQU PSASUPER+1 00742000 PSASUP3 EQU PSASUPER+2 00743000 PSASUP4 EQU PSASUPER+3 00744000 PSACLHT EQU PSA+640 00745000 PSALKSA EQU PSA+696 00746000 PSAHLHI EQU PSA+760 00747000 PSALITA EQU PSA+764 00748000 PSADSSFL EQU PSA+836 00749000 PSADSSF1 EQU PSADSSFL 00750000 PSADSSF3 EQU PSADSSFL+2 00751000 PSADSSF4 EQU PSADSSFL+3 00752000 PSARSVT EQU PSA+896 00753000 ASCB EQU 0 00754000 ASCBASID EQU ASCB+36 00755000 ASCBCSCB EQU ASCB+56 00756000 ASCBTSB EQU ASCB+60 00757000 ASCBFW1 EQU ASCB+100 00758000 ASCBRCTF EQU ASCBFW1+2 00759000 ASCBFLG1 EQU ASCBFW1+3 00760000 ASCBASXB EQU ASCB+108 00761000 ASCBDSP1 EQU ASCB+114 00762000 ASCBFLG2 EQU ASCB+115 00763000 ASCBLKGP EQU ASCB+128 00764000 ASCBMECB EQU ASCB+140 00765000 ASXB EQU 0 00766000 ASXBFLSA EQU ASXB+36 00767000 ASXBSPSA EQU ASXB+112 00768000 ASXBAEQ EQU ASXB+168 00769000 ASXBSECR EQU ASXB+199 00770000 ASCBSFLG EQU ASXBSECR 00771000 ASXBCASW EQU ASXB+216 00772000 ASXBCRB1 EQU ASXBCASW 00773000 WSAL EQU 0 00774000 CVTMAP EQU 0 00775000 CVT EQU CVTMAP 00776000 CVTBTERM EQU CVTMAP+52 00777000 CVTDAR EQU CVTMAP+72 00778000 CVTFLGS1 EQU CVTDAR 00779000 CVTDCB EQU CVTMAP+116 00780000 CVTIERLC EQU CVTMAP+144 00781000 CVTOPTA EQU CVTMAP+182 00782000 CVTOPTB EQU CVTMAP+183 00783000 CVTGTF EQU CVTMAP+236 00784000 CVTGTFST EQU CVTGTF 00785000 CVTGTFS EQU CVTGTFST 00786000 CVTSTATE EQU CVTGTFST 00787000 CVTTMODE EQU CVTGTFST 00788000 CVTFORM EQU CVTGTFST 00789000 CVTAQAVT EQU CVTMAP+240 00790000 CVTTCMFG EQU CVTAQAVT 00791000 CVTVOLM2 EQU CVTMAP+244 00792000 CVTTATA EQU CVTVOLM2 00793000 CVTTSKS EQU CVTTATA 00794000 CVTVOLF2 EQU CVTTSKS 00795000 CVTTAT EQU CVTTATA+1 00796000 CVTATER EQU CVTMAP+248 00797000 CVTEXT1 EQU CVTMAP+252 00798000 CVTPURG EQU CVTMAP+260 00799000 CVTQMSG EQU CVTMAP+268 00800000 CVTDMSR EQU CVTMAP+272 00801000 CVTRSV37 EQU CVTDMSR 00802000 CVTDMSRF EQU CVTRSV37 00803000 CVTERPV EQU CVTMAP+316 00804000 CVTINTLA EQU CVTMAP+320 00805000 CVTAPF EQU CVTMAP+324 00806000 CVTEXT2 EQU CVTMAP+328 00807000 CVTHJES EQU CVTMAP+332 00808000 CVTPGSIA EQU CVTMAP+348 00809000 CVTA1F1 EQU CVTMAP+356 00810000 CVTSYSK EQU CVTMAP+357 00811000 CVTVOLM1 EQU CVTMAP+380 00812000 CVTVOLF1 EQU CVTVOLM1 00813000 CVTATMCT EQU CVTMAP+388 00814000 CVTXTNT1 EQU 0 00815000 CVTXTNT2 EQU 0 00816000 CVTDSSV EQU CVTXTNT2 00817000 CVTFLGBT EQU CVTXTNT2+5 00818000 CVTQID EQU CVTXTNT2+24 00819000 CVTRV400 EQU CVTXTNT2+52 00820000 CVTRV409 EQU CVTXTNT2+53 00821000 CVTATCVT EQU CVTXTNT2+64 00822000 CVTRV429 EQU CVTXTNT2+84 00823000 CVTRV438 EQU CVTXTNT2+85 00824000 CVTRV457 EQU CVTXTNT2+112 00825000 CVTRV466 EQU CVTXTNT2+113 00826000 CVTFIX EQU 0 00827000 CVTRELNO EQU CVTFIX+252 00828000 SRBSECT EQU 0 00829000 SRB EQU SRBSECT 00830000 SRBID EQU SRB 00831000 SRBFLNK EQU SRB+4 00832000 SRBASCB EQU SRB+8 00833000 SRBFLC EQU SRB+12 00834000 SRBPASID EQU SRBFLC+2 00835000 SRBPTCB EQU SRBFLC+4 00836000 SRBEP EQU SRB+20 00837000 SRBPARM EQU SRB+28 00838000 SRBPRIOR EQU SRB+37 00839000 TCBFIX EQU 0 00840000 TCBFRS EQU TCBFIX 00841000 TCB EQU 0 00842000 TCBPIE EQU TCB+4 00843000 TCBPMASK EQU TCBPIE 00844000 TCBTIO EQU TCB+12 00845000 TCBCMP EQU TCB+16 00846000 TCBCMPF EQU TCBCMP 00847000 TCBCPP EQU TCBCMPF 00848000 TCBSTCC EQU TCBCMPF 00849000 TCBCDBL EQU TCBCMPF 00850000 TCBCWTO EQU TCBCMPF 00851000 TCBCIND EQU TCBCMPF 00852000 TCBCMSG EQU TCBCMPF 00853000 TCBTRN EQU TCB+20 00854000 TCBABF EQU TCBTRN 00855000 TCBMSS EQU TCB+24 00856000 TCBPKF EQU TCB+28 00857000 TCBFLGS EQU TCB+29 00858000 TCBFLGS1 EQU TCBFLGS 00859000 TCBFLGS2 EQU TCBFLGS+1 00860000 TCBFLGS3 EQU TCBFLGS+2 00861000 TCBFLGS4 EQU TCBFLGS+3 00862000 TCBFLGS5 EQU TCBFLGS+4 00863000 TCBABWF EQU TCBFLGS5 00864000 TCBJPQ EQU TCB+44 00865000 TCBPURGE EQU TCBJPQ 00866000 TCBGRS EQU TCB+48 00867000 TCBFSA EQU TCB+112 00868000 TCBTME EQU TCB+120 00869000 TCBJSTCB EQU TCB+124 00870000 TCBTSFLG EQU TCB+148 00871000 TCBTSTSK EQU TCBTSFLG 00872000 TCBSTAB EQU TCB+160 00873000 TCBNSTAE EQU TCBSTAB 00874000 TCBTCT EQU TCB+164 00875000 TCBTCTGF EQU TCBTCT 00876000 TCBSCNDY EQU TCB+172 00877000 TCBNDSP EQU TCBSCNDY 00878000 TCBNDSP1 EQU TCBNDSP+1 00879000 TCBNDSP2 EQU TCBNDSP+2 00880000 TCBNDSP3 EQU TCBNDSP+3 00881000 TCBJSCB EQU TCB+180 00882000 TCBRECDE EQU TCBJSCB 00883000 TCBJSCBB EQU TCBJSCB+1 00884000 TCBEXT1 EQU TCB+196 00885000 TCBBITS EQU TCB+200 00886000 TCBNDSP4 EQU TCBBITS 00887000 TCBNDSP5 EQU TCBBITS+1 00888000 TCBFLGS6 EQU TCBBITS+2 00889000 TCBFLGS7 EQU TCBBITS+3 00890000 TCBDAR EQU TCB+204 00891000 TCBDARC EQU TCBDAR 00892000 TCBEXT2 EQU TCB+208 00893000 TCBFOE EQU TCB+244 00894000 TCBESTAE EQU TCB+264 00895000 TCBESTRM EQU TCBESTAE+1 00896000 TCBFBYT1 EQU TCB+276 00897000 TCBFBYT2 EQU TCB+277 00898000 TCBRV124 EQU TCB+278 00899000 TCBRV133 EQU TCB+279 00900000 TCBXTNT2 EQU 0 00901000 TCBGTF EQU TCBXTNT2 00902000 TCBTFLG EQU TCBGTF 00903000 TCBRV146 EQU TCBXTNT2+28 00904000 TCBRV155 EQU TCBXTNT2+29 00905000 TCBRV164 EQU TCBXTNT2+30 00906000 TCBRV173 EQU TCBXTNT2+31 00907000 CHAIN EQU 0 00908000 CHFLG EQU CHAIN+4 00909000 CHVCD EQU CHFLG 00910000 CHSTS EQU CHFLG+2 00911000 CHACT EQU CHFLG+3 00912000 CHKEY EQU CHAIN+8 00913000 CHPARM EQU CHKEY 00914000 CHPKE EQU CHAIN+28 00915000 CHUCMP EQU CHAIN+29 00916000 CHTJID EQU CHAIN+30 00917000 CHPROCSN EQU CHAIN+32 00918000 CHACT1 EQU CHPROCSN+3 00919000 CHASM EQU CHAIN+40 00920000 CHCIBP EQU CHASM+4 00921000 CHRGNSZ EQU CHASM+8 00922000 CHSTEP EQU CHASM+24 00923000 CHSWT EQU CHSTEP 00924000 CHSHORT EQU CHASM+32 00925000 ASVT EQU 0 00926000 ASVTFRST EQU ASVT+524 00927000 ASVTENTY EQU ASVT+528 00928000 ESTA EQU 0 00929000 ESTAEXT EQU ESTA 00930000 ESTAFLG1 EQU ESTAEXT 00931000 ESTAIO EQU ESTAFLG1 00932000 ESTAFGRS EQU ESTA+12 00933000 ESTAFLG2 EQU ESTAFGRS 00934000 SDWA EQU 0 00935000 SDWAFIOB EQU SDWA+4 00936000 SDWAABCC EQU SDWAFIOB 00937000 SDWACMPF EQU SDWAABCC 00938000 SDWAREQ EQU SDWACMPF 00939000 SDWACTL1 EQU SDWA+8 00940000 SDWACMKA EQU SDWACTL1 00941000 SDWAMWPA EQU SDWACTL1+1 00942000 SDWAPMKA EQU SDWACTL1+4 00943000 SDWACTL2 EQU SDWA+16 00944000 SDWACMKP EQU SDWACTL2 00945000 SDWAMWPP EQU SDWACTL2+1 00946000 SDWAPMKP EQU SDWACTL2+4 00947000 SDWAGRSV EQU SDWA+24 00948000 SDWANAME EQU SDWA+88 00949000 SDWAEC1 EQU SDWA+104 00950000 SDWAEMK1 EQU SDWAEC1 00951000 SDWAMWP1 EQU SDWAEC1+1 00952000 SDWAINT1 EQU SDWAEC1+2 00953000 SDWANXT1 EQU SDWAEC1+4 00954000 SDWAAEC1 EQU SDWA+112 00955000 SDWAILC1 EQU SDWAAEC1+1 00956000 SDWAINC1 EQU SDWAAEC1+2 00957000 SDWAICD1 EQU SDWAINC1+1 00958000 SDWAEC2 EQU SDWA+120 00959000 SDWAEMK2 EQU SDWAEC2 00960000 SDWAMWP2 EQU SDWAEC2+1 00961000 SDWAINT2 EQU SDWAEC2+2 00962000 SDWANXT2 EQU SDWAEC2+4 00963000 SDWAAEC2 EQU SDWA+128 00964000 SDWAILC2 EQU SDWAAEC2+1 00965000 SDWAINC2 EQU SDWAAEC2+2 00966000 SDWAICD2 EQU SDWAINC2+1 00967000 SDWASRSV EQU SDWA+136 00968000 SDWAIDNT EQU SDWA+200 00969000 SDWAMCH EQU SDWA+204 00970000 SDWASTCK EQU SDWAMCH 00971000 SDWAMCHI EQU SDWAMCH+8 00972000 SDWAMCHS EQU SDWAMCHI 00973000 SDWAMCHD EQU SDWAMCHI+1 00974000 SDWARSR1 EQU SDWAMCH+12 00975000 SDWARSR2 EQU SDWAMCH+13 00976000 SDWAFLGS EQU SDWA+232 00977000 SDWAERRA EQU SDWAFLGS 00978000 SDWAERRB EQU SDWAFLGS+1 00979000 SDWAERRC EQU SDWAFLGS+2 00980000 SDWAERRD EQU SDWAFLGS+3 00981000 SDWAIOFS EQU SDWA+238 00982000 SDWACPUA EQU SDWA+248 00983000 SDWAPARQ EQU SDWA+252 00984000 SDWARCDE EQU SDWAPARQ 00985000 SDWAACF2 EQU SDWAPARQ+1 00986000 SDWARCRD EQU SDWAACF2 00987000 SDWAACF3 EQU SDWAPARQ+2 00988000 SDWAACF4 EQU SDWAPARQ+3 00989000 SDWALKWA EQU SDWA+256 00990000 SDWALKWS EQU SDWALKWA 00991000 SDWARECP EQU SDWA+292 00992000 SDWAMODN EQU SDWARECP 00993000 SDWACSCT EQU SDWARECP+8 00994000 SDWAREXN EQU SDWARECP+16 00995000 SDWASNPA EQU SDWA+320 00996000 SDWADUMP EQU SDWASNPA 00997000 SDWADPFS EQU SDWADUMP+1 00998000 SDWADDAT EQU SDWASNPA+4 00999000 SDWASDAT EQU SDWADDAT 01000000 SDWAPDAT EQU SDWADDAT+2 01001000 SDWADPSA EQU SDWA+328 01002000 SDWADPSL EQU SDWADPSA 01003000 SDWARA EQU SDWA+400 01004000 SDWADPVA EQU SDWARA+2 01005000 ASIDPARM EQU 0 01006000 ERREXIT EQU 0 01007000 PARMLIST EQU 0 01008000 NASCB EQU PARMLIST 01009000 MTIOT EQU PARMLIST+4 01010000 MJSCB EQU PARMLIST+8 01011000 MSTASCB EQU PARMLIST+12 01012000 ENTY EQU 0 01013000 I001C EQU 0 01014000 I008P EQU 0 01015000 I015F EQU 0 01016000 I015P EQU 0 01017000 I031F EQU 0 01018000 I031P EQU 0 01019000 I256C EQU 0 01020000 CVTS01 EQU CVTPGSIA 01021000 CVTLPDIA EQU CVTS01+12 01022000 CVTDIRST EQU CVTLPDIA 01023000 CVTSLIDA EQU CVTS01+24 01024000 CVTCTLFG EQU CVTS01+50 01025000 CVTCRAS EQU CVTS01+160 01026000 CVTASVT EQU CVTS01+208 01027000 CVTGSMQ EQU CVTS01+264 01028000 CVTVEAC0 EQU CVTS01+328 01029000 CVTRV210 EQU CVTS01+424 01030000 CVTRV219 EQU CVTS01+425 01031000 CVTRV228 EQU CVTS01+426 01032000 CVTRV237 EQU CVTS01+427 01033000 CVTMFRTR EQU CVTS01+452 01034000 CVTRV262 EQU CVTS01+468 01035000 CVTRV271 EQU CVTS01+469 01036000 CVTRV280 EQU CVTS01+470 01037000 CVTRV289 EQU CVTS01+471 01038000 CVTGSDA EQU CVTS01+600 01039000 PSARSVTE EQU PSARSVT 01040000 CHAINS01 EQU CHASM 01041000 CHTYPE EQU CHAINS01+124 01042000 CHTRSTAT EQU CHAINS01+125 01043000 CHCSYSO EQU CHAINS01+134 01044000 ASVTPTR EQU CVTASVT 01045000 ECB EQU ASCBMECB 01046000 COMCODE EQU ECB+1 01047000 FLC EQU PSA 01048000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01049000 @NM00092 EQU ECB 01050000 CHLAST EQU CHAINS01+136 01051000 CHSPA EQU CHAINS01+135 01052000 CHUSERID EQU CHCSYSO 01053000 CHJB EQU CHCSYSO 01054000 CHDUMP EQU CHCSYSO 01055000 CHQUE EQU CHCSYSO 01056000 CHHOLD EQU CHCSYSO 01057000 CHOUT EQU CHCSYSO 01058000 CHINN EQU CHCSYSO 01059000 CHALL EQU CHCSYSO 01060000 CHINC EQU CHAINS01+132 01061000 CHPEND EQU CHAINS01+128 01062000 CHARID EQU CHAINS01+127 01063000 CHCNID EQU CHAINS01+126 01064000 @NM00036 EQU CHTRSTAT 01065000 CHTSL EQU CHTRSTAT 01066000 CHTS EQU CHTRSTAT 01067000 CHINITL EQU CHTRSTAT 01068000 CHINIT EQU CHTRSTAT 01069000 CHJOBSL EQU CHTRSTAT 01070000 CHJOBS EQU CHTRSTAT 01071000 CHDEF EQU CHTYPE 01072000 CHHIAR EQU CHTYPE 01073000 CHARSV29 EQU CHTYPE 01074000 CHARSV28 EQU CHTYPE 01075000 CHARSV27 EQU CHTYPE 01076000 CHARSV26 EQU CHTYPE 01077000 CHARSV25 EQU CHTYPE 01078000 CHDSTAT EQU CHTYPE 01079000 CHBUF EQU CHAINS01 01080000 PSARSAV EQU PSARSVTE+60 01081000 PSARSTK EQU PSARSVTE+56 01082000 PSAESAV3 EQU PSARSVTE+52 01083000 PSAESTK3 EQU PSARSVTE+48 01084000 PSAESAV2 EQU PSARSVTE+44 01085000 PSAESTK2 EQU PSARSVTE+40 01086000 PSAESAV1 EQU PSARSVTE+36 01087000 PSAESTK1 EQU PSARSVTE+32 01088000 PSAPSAV EQU PSARSVTE+28 01089000 PSAPSTK EQU PSARSVTE+24 01090000 PSAMSAV EQU PSARSVTE+20 01091000 PSAMSTK EQU PSARSVTE+16 01092000 PSASSAV EQU PSARSVTE+12 01093000 PSASSTK EQU PSARSVTE+8 01094000 PSANSTK EQU PSARSVTE+4 01095000 PSACSTK EQU PSARSVTE 01096000 CVTRV628 EQU CVTS01+728 01097000 CVTRV627 EQU CVTS01+724 01098000 CVTRV626 EQU CVTS01+720 01099000 CVTRV625 EQU CVTS01+716 01100000 CVTRV624 EQU CVTS01+712 01101000 CVTRV623 EQU CVTS01+708 01102000 CVTRV622 EQU CVTS01+704 01103000 CVTRV621 EQU CVTS01+700 01104000 CVTIHASU EQU CVTS01+696 01105000 CVTRV619 EQU CVTS01+692 01106000 CVTRV618 EQU CVTS01+688 01107000 CVTRV617 EQU CVTS01+684 01108000 CVTRV616 EQU CVTS01+680 01109000 CVTRV615 EQU CVTS01+676 01110000 CVTRV614 EQU CVTS01+672 01111000 CVTRV613 EQU CVTS01+668 01112000 CVTTCASP EQU CVTS01+664 01113000 CVT0PT03 EQU CVTS01+660 01114000 CVT0PT0E EQU CVTS01+656 01115000 CVTRV609 EQU CVTS01+652 01116000 CVTCGK EQU CVTS01+648 01117000 CVTRAC EQU CVTS01+644 01118000 CVTRV606 EQU CVTS01+640 01119000 CVTRV605 EQU CVTS01+636 01120000 CVTRV604 EQU CVTS01+632 01121000 CVTEFF02 EQU CVTS01+628 01122000 CVTCBBR EQU CVTS01+624 01123000 CVTSSCR EQU CVTS01+620 01124000 CVTEVENT EQU CVTS01+616 01125000 CVTCRCA EQU CVTS01+612 01126000 CVTTPIO EQU CVTS01+608 01127000 CVTADV EQU CVTS01+604 01128000 CVTGSDAB EQU CVTGSDA 01129000 CVTQV3 EQU CVTS01+596 01130000 CVTQV2 EQU CVTS01+592 01131000 CVTQV1 EQU CVTS01+588 01132000 CVTRPT EQU CVTS01+584 01133000 CVTSSRB EQU CVTS01+580 01134000 CVTCSDRL EQU CVTS01+576 01135000 CVTEXP1 EQU CVTS01+572 01136000 CVTRMPMT EQU CVTS01+568 01137000 CVTRMPTT EQU CVTS01+564 01138000 CVTVPSA EQU CVTS01+560 01139000 CVTVSTOP EQU CVTS01+556 01140000 CVTGTFR8 EQU CVTS01+552 01141000 CVTQUIT EQU CVTS01+548 01142000 CVTVACR EQU CVTS01+544 01143000 CVTWTCB EQU CVTS01+540 01144000 CVTSTPRS EQU CVTS01+536 01145000 CVT0PT02 EQU CVTS01+532 01146000 CVTDARCM EQU CVTS01+528 01147000 CVTIRECM EQU CVTS01+524 01148000 CVTJRECM EQU CVTS01+520 01149000 CVTVEMS0 EQU CVTS01+516 01150000 CVTSPFRR EQU CVTS01+512 01151000 CVTRLSTG EQU CVTS01+508 01152000 CVT0TC0A EQU CVTS01+504 01153000 CVTGMBR EQU CVTS01+500 01154000 CVTLFRM EQU CVTS01+496 01155000 CVTRMBR EQU CVTS01+492 01156000 CVTVIOP EQU CVTS01+488 01157000 CVTRV307 EQU CVTS01+486 01158000 CVTRV306 EQU CVTS01+484 01159000 CVTRV305 EQU CVTS01+482 01160000 CVTRV304 EQU CVTS01+480 01161000 CVTRV303 EQU CVTS01+478 01162000 CVTRV302 EQU CVTS01+476 01163000 CVTTRCA EQU CVTS01+472 01164000 CVTRV297 EQU CVTRV289 01165000 CVTRV296 EQU CVTRV289 01166000 CVTRV295 EQU CVTRV289 01167000 CVTRV294 EQU CVTRV289 01168000 CVTRV293 EQU CVTRV289 01169000 CVTRV292 EQU CVTRV289 01170000 CVTRV291 EQU CVTRV289 01171000 CVTRV290 EQU CVTRV289 01172000 CVTRV288 EQU CVTRV280 01173000 CVTRV287 EQU CVTRV280 01174000 CVTRV286 EQU CVTRV280 01175000 CVTRV285 EQU CVTRV280 01176000 CVTRV284 EQU CVTRV280 01177000 CVTRV283 EQU CVTRV280 01178000 CVTRV282 EQU CVTRV280 01179000 CVTRV281 EQU CVTRV280 01180000 CVTRV279 EQU CVTRV271 01181000 CVTRV278 EQU CVTRV271 01182000 CVTRV277 EQU CVTRV271 01183000 CVTRV276 EQU CVTRV271 01184000 CVTRV275 EQU CVTRV271 01185000 CVTRV274 EQU CVTRV271 01186000 CVTRV273 EQU CVTRV271 01187000 CVTRV272 EQU CVTRV271 01188000 CVTRV270 EQU CVTRV262 01189000 CVTRV269 EQU CVTRV262 01190000 CVTRV268 EQU CVTRV262 01191000 CVTRV267 EQU CVTRV262 01192000 CVTRV266 EQU CVTRV262 01193000 CVTRV265 EQU CVTRV262 01194000 CVTRV264 EQU CVTRV262 01195000 CVTRV263 EQU CVTRV262 01196000 CVTVFP EQU CVTS01+464 01197000 CVTVSI EQU CVTS01+460 01198000 CVTVPSIB EQU CVTS01+456 01199000 CVTMFACT EQU CVTMFRTR 01200000 CVTMFCTL EQU CVTS01+448 01201000 CVTPVBP EQU CVTS01+444 01202000 CVTPWI EQU CVTS01+440 01203000 CVTRV254 EQU CVTS01+438 01204000 CVTRV253 EQU CVTS01+436 01205000 CVTRV252 EQU CVTS01+434 01206000 CVTRV251 EQU CVTS01+433 01207000 CVTRV250 EQU CVTS01+432 01208000 CVTRV249 EQU CVTS01+431 01209000 CVTRV248 EQU CVTS01+430 01210000 CVTRV247 EQU CVTS01+429 01211000 CVTRV246 EQU CVTS01+428 01212000 CVTRV245 EQU CVTRV237 01213000 CVTRV244 EQU CVTRV237 01214000 CVTRV243 EQU CVTRV237 01215000 CVTRV242 EQU CVTRV237 01216000 CVTRV241 EQU CVTRV237 01217000 CVTRV240 EQU CVTRV237 01218000 CVTRV239 EQU CVTRV237 01219000 CVTRV238 EQU CVTRV237 01220000 CVTRV236 EQU CVTRV228 01221000 CVTRV235 EQU CVTRV228 01222000 CVTRV234 EQU CVTRV228 01223000 CVTRV233 EQU CVTRV228 01224000 CVTRV232 EQU CVTRV228 01225000 CVTRV231 EQU CVTRV228 01226000 CVTRV230 EQU CVTRV228 01227000 CVTRV229 EQU CVTRV228 01228000 CVTRV227 EQU CVTRV219 01229000 CVTRV226 EQU CVTRV219 01230000 CVTRV225 EQU CVTRV219 01231000 CVTRV224 EQU CVTRV219 01232000 CVTRV223 EQU CVTRV219 01233000 CVTRV222 EQU CVTRV219 01234000 CVTRV221 EQU CVTRV219 01235000 CVTRV220 EQU CVTRV219 01236000 CVTRV218 EQU CVTRV210 01237000 CVTRV217 EQU CVTRV210 01238000 CVTRV216 EQU CVTRV210 01239000 CVTRV215 EQU CVTRV210 01240000 CVTRV214 EQU CVTRV210 01241000 CVTRV213 EQU CVTRV210 01242000 CVTRV212 EQU CVTRV210 01243000 CVTRV211 EQU CVTRV210 01244000 CVTLCCAT EQU CVTS01+420 01245000 CVTPCCAT EQU CVTS01+416 01246000 CVTIPCRP EQU CVTS01+412 01247000 CVTIPCRI EQU CVTS01+408 01248000 CVTIPCDS EQU CVTS01+404 01249000 CVTAIDVT EQU CVTS01+400 01250000 CVTSSAP EQU CVTS01+396 01251000 CVTEHCIR EQU CVTS01+392 01252000 CVTEHDEF EQU CVTS01+388 01253000 CVTDAIR EQU CVTS01+384 01254000 CVTPERFM EQU CVTS01+380 01255000 CVT044R2 EQU CVTS01+376 01256000 CVTFETCH EQU CVTS01+372 01257000 CVTRSTWD EQU CVTS01+368 01258000 CVTSPOST EQU CVTS01+364 01259000 CVTIOBP EQU CVTS01+360 01260000 CVTASMVT EQU CVTS01+356 01261000 CVTRECRQ EQU CVTS01+352 01262000 CVTWSAC EQU CVTS01+348 01263000 CVTRV149 EQU CVTS01+344 01264000 CVTWSAL EQU CVTS01+340 01265000 CVTSPSA EQU CVTS01+336 01266000 CVTGLMN EQU CVTS01+332 01267000 CVT062R1 EQU CVTS01+324 01268000 CVTRPOST EQU CVTS01+320 01269000 CVTDQIQE EQU CVTS01+316 01270000 CVTCSD EQU CVTS01+312 01271000 CVTLKRMA EQU CVTS01+308 01272000 CVTRSPIE EQU CVTS01+304 01273000 CVTRENQ EQU CVTS01+300 01274000 CVTLQCB EQU CVTS01+296 01275000 CVTFQCB EQU CVTS01+292 01276000 CVTQCS01 EQU CVTS01+288 01277000 CVTAPFT EQU CVTS01+284 01278000 CVTPARRL EQU CVTS01+280 01279000 CVTVWAIT EQU CVTS01+276 01280000 CVTGSPL EQU CVTS01+272 01281000 CVTLSMQ EQU CVTS01+268 01282000 CVTEXPRO EQU CVTS01+260 01283000 CVTOPCTP EQU CVTS01+256 01284000 CVTSIC EQU CVTS01+252 01285000 CVTTPIOS EQU CVTS01+248 01286000 CVTRTMS EQU CVTS01+244 01287000 CVTSDBF EQU CVTS01+240 01288000 CVTSCBP EQU CVTS01+236 01289000 CVTSDMP EQU CVTS01+232 01290000 CVTSV60 EQU CVTS01+228 01291000 CVTRTMCT EQU CVTS01+224 01292000 CVTASCBL EQU CVTS01+220 01293000 CVTASCBH EQU CVTS01+216 01294000 CVTGDA EQU CVTS01+212 01295000 CVTVVMDI EQU CVTS01+204 01296000 CVTAQTOP EQU CVTS01+200 01297000 CVTIOSCS EQU CVTS01+196 01298000 CVTSDRM EQU CVTS01+192 01299000 CVTOPTE EQU CVTS01+188 01300000 CVTSTXU EQU CVTS01+184 01301000 CVTQUIS EQU CVTS01+180 01302000 CVTPARS EQU CVTS01+176 01303000 CVTS1EE EQU CVTS01+172 01304000 CVTFRAS EQU CVTS01+168 01305000 CVTQSAS EQU CVTS01+164 01306000 CVTCRMN EQU CVTS01+156 01307000 CVTDELCP EQU CVTS01+152 01308000 CVTFRECL EQU CVTS01+148 01309000 CVTGETCL EQU CVTS01+144 01310000 CVTBLDCP EQU CVTS01+140 01311000 CVTAUTHL EQU CVTS01+136 01312000 CVTSCAN EQU CVTS01+132 01313000 CVTRV144 EQU CVTS01+130 01314000 CVTMAXMP EQU CVTS01+128 01315000 CVTSTCK EQU CVTS01+124 01316000 CVTRV139 EQU CVTS01+123 01317000 CVTDSSAC EQU CVTS01+122 01318000 CVTRV513 EQU CVTS01+121 01319000 CVTIOSPL EQU CVTS01+120 01320000 CVTPTGT EQU CVTS01+116 01321000 CVTCSPIE EQU CVTS01+112 01322000 CVTSMFEX EQU CVTS01+108 01323000 CVTOLT0A EQU CVTS01+104 01324000 CVTSRBRT EQU CVTS01+100 01325000 CVTPUTL EQU CVTS01+96 01326000 CVTASCRL EQU CVTS01+92 01327000 CVTASCRF EQU CVTS01+88 01328000 CVTRV326 EQU CVTS01+84 01329000 CVTRV325 EQU CVTS01+80 01330000 CVTRV324 EQU CVTS01+76 01331000 CVT0VL01 EQU CVTS01+72 01332000 CVTSHRVM EQU CVTS01+68 01333000 CVTRV332 EQU CVTS01+64 01334000 CVTTAS EQU CVTS01+60 01335000 CVTRSCN EQU CVTS01+56 01336000 CVTTRAC2 EQU CVTS01+54 01337000 CVTTRACE EQU CVTS01+52 01338000 CVTAPG EQU CVTS01+51 01339000 CVTSDTRC EQU CVTCTLFG 01340000 CVTGTRCE EQU CVTCTLFG 01341000 CVTNOMP EQU CVTCTLFG 01342000 CVTRSV79 EQU CVTCTLFG 01343000 CVTDSTAT EQU CVTCTLFG 01344000 CVTRSV78 EQU CVTCTLFG 01345000 CVTRV333 EQU CVTCTLFG 01346000 CVTRV323 EQU CVTCTLFG 01347000 CVTSPVLK EQU CVTS01+49 01348000 CVTRSV77 EQU CVTS01+48 01349000 CVTRV331 EQU CVTS01+44 01350000 CVTRV330 EQU CVTS01+40 01351000 CVTRV329 EQU CVTS01+36 01352000 CVTRV328 EQU CVTS01+32 01353000 CVTRV322 EQU CVTS01+28 01354000 CVTSLID EQU CVTSLIDA+1 01355000 CVTSYLK EQU CVTSLIDA 01356000 CVTRV321 EQU CVTS01+20 01357000 CVTRV320 EQU CVTS01+16 01358000 CVTLPDIR EQU CVTLPDIA+1 01359000 CVTRSV69 EQU CVTDIRST 01360000 CVTRSV68 EQU CVTDIRST 01361000 CVTRSV67 EQU CVTDIRST 01362000 CVTRSV66 EQU CVTDIRST 01363000 CVTRSV65 EQU CVTDIRST 01364000 CVTRSV64 EQU CVTDIRST 01365000 CVTRSV63 EQU CVTDIRST 01366000 CVTDICOM EQU CVTDIRST 01367000 CVTPVTP EQU CVTS01+8 01368000 CVTLPDSR EQU CVTS01+4 01369000 CVTGETL EQU CVTS01 01370000 @NM00090 EQU SDWA+512 01371000 SDWAVRA EQU SDWARA+4 01372000 SDWAURAL EQU SDWARA+3 01373000 @NM00089 EQU SDWADPVA 01374000 SDWAEBC EQU SDWADPVA 01375000 SDWAHEX EQU SDWADPVA 01376000 SDWAVRAL EQU SDWARA 01377000 @NM00088 EQU SDWA+396 01378000 SDWACOMP EQU SDWA+392 01379000 SDWARCPL EQU SDWA+364 01380000 @NM00087 EQU SDWADPSA+32 01381000 SDWATO4 EQU SDWADPSL+28 01382000 SDWAFRM4 EQU SDWADPSL+24 01383000 SDWATO3 EQU SDWADPSL+20 01384000 SDWAFRM3 EQU SDWADPSL+16 01385000 SDWATO2 EQU SDWADPSL+12 01386000 SDWAFRM2 EQU SDWADPSL+8 01387000 SDWATO1 EQU SDWADPSL+4 01388000 SDWAFRM1 EQU SDWADPSL 01389000 @NM00086 EQU SDWADDAT+3 01390000 @NM00085 EQU SDWAPDAT 01391000 SDWAUSPL EQU SDWAPDAT 01392000 SDWADPSW EQU SDWAPDAT 01393000 SDWATJPA EQU SDWAPDAT 01394000 SDWATLPA EQU SDWAPDAT 01395000 SDWADREG EQU SDWAPDAT 01396000 SDWADSAH EQU SDWAPDAT 01397000 SDWADSAS EQU SDWAPDAT 01398000 @NM00084 EQU SDWADDAT+1 01399000 @NM00083 EQU SDWASDAT 01400000 SDWAQQS EQU SDWASDAT 01401000 SDWACBS EQU SDWASDAT 01402000 SDWAGTF EQU SDWASDAT 01403000 SDWASWA EQU SDWASDAT 01404000 SDWALSQA EQU SDWASDAT 01405000 SDWASQA EQU SDWASDAT 01406000 SDWANUC EQU SDWASDAT 01407000 @NM00082 EQU SDWADUMP+2 01408000 @NM00081 EQU SDWADPFS 01409000 SDWASLST EQU SDWADPFS 01410000 @NM00080 EQU SDWADPFS 01411000 SDWADLST EQU SDWADPFS 01412000 SDWADPT EQU SDWADPFS 01413000 SDWADPID EQU SDWADUMP 01414000 SDWADPLA EQU SDWA+316 01415000 @NM00079 EQU SDWA+290 01416000 SDWAASID EQU SDWA+288 01417000 SDWATALW EQU SDWALKWS+28 01418000 SDWATDLW EQU SDWALKWS+24 01419000 SDWATNLW EQU SDWALKWS+20 01420000 SDWAAPLW EQU SDWALKWS+16 01421000 SDWAIPLW EQU SDWALKWS+12 01422000 SDWAILLW EQU SDWALKWS+8 01423000 SDWAIULW EQU SDWALKWS+4 01424000 SDWAICLW EQU SDWALKWS 01425000 SDWAFLLK EQU SDWAACF4 01426000 SDWACMS EQU SDWAACF4 01427000 SDWAOPTM EQU SDWAACF4 01428000 SDWATADB EQU SDWAACF4 01429000 SDWATDNB EQU SDWAACF4 01430000 SDWATNCB EQU SDWAACF4 01431000 SDWAILCH EQU SDWAACF4 01432000 SDWAIUCB EQU SDWAACF4 01433000 SDWAICAT EQU SDWAACF3 01434000 SDWAIPRG EQU SDWAACF3 01435000 SDWASALL EQU SDWAACF3 01436000 SDWAASMP EQU SDWAACF3 01437000 SDWADISP EQU SDWAACF3 01438000 @NM00078 EQU SDWAACF3 01439000 @NM00077 EQU SDWAACF2 01440000 SDWAFREE EQU SDWAACF2 01441000 SDWAUPRG EQU SDWAACF2 01442000 @NM00076 EQU SDWAACF2 01443000 SDWASPIN EQU SDWAACF2 01444000 @NM00075 EQU SDWAACF2 01445000 SDWALCPU EQU SDWACPUA+2 01446000 @NM00074 EQU SDWACPUA 01447000 SDWARECA EQU SDWA+244 01448000 SDWARTYA EQU SDWA+240 01449000 @NM00073 EQU SDWA+239 01450000 @NM00072 EQU SDWAIOFS 01451000 SDWANIOP EQU SDWAIOFS 01452000 SDWANOIO EQU SDWAIOFS 01453000 SDWAIOHT EQU SDWAIOFS 01454000 SDWAIOQR EQU SDWAIOFS 01455000 SDWAFMID EQU SDWA+236 01456000 @NM00071 EQU SDWAERRD 01457000 SDWAMCIV EQU SDWAERRD 01458000 SDWARPIV EQU SDWAERRD 01459000 SDWAMABD EQU SDWAERRD 01460000 SDWACTS EQU SDWAERRD 01461000 SDWASTAE EQU SDWAERRD 01462000 SDWANRBE EQU SDWAERRD 01463000 SDWACLUP EQU SDWAERRD 01464000 @NM00070 EQU SDWAERRC 01465000 SDWAEAS EQU SDWAERRC 01466000 SDWAPERC EQU SDWAERRC 01467000 SDWAIRB EQU SDWAERRC 01468000 SDWASTAI EQU SDWAERRC 01469000 SDWASTAF EQU SDWAERRC 01470000 SDWASRBM EQU SDWAERRB 01471000 SDWALDIS EQU SDWAERRB 01472000 SDWAENRB EQU SDWAERRB 01473000 SDWATYP1 EQU SDWAERRB 01474000 @NM00069 EQU SDWAERRB 01475000 SDWAPGIO EQU SDWAERRA 01476000 SDWATEXC EQU SDWAERRA 01477000 SDWASVCE EQU SDWAERRA 01478000 SDWAABTM EQU SDWAERRA 01479000 SDWASVCD EQU SDWAERRA 01480000 SDWARKEY EQU SDWAERRA 01481000 SDWAPCHK EQU SDWAERRA 01482000 SDWAMCHK EQU SDWAERRA 01483000 SDWATIME EQU SDWAMCH+20 01484000 SDWARFSA EQU SDWAMCH+16 01485000 @NM00068 EQU SDWAMCH+14 01486000 SDWAVEQR EQU SDWARSR2 01487000 SDWAPGFX EQU SDWARSR2 01488000 SDWAFLSQ EQU SDWARSR2 01489000 SDWAFSQA EQU SDWARSR2 01490000 SDWANUCL EQU SDWARSR2 01491000 SDWASPER EQU SDWARSR2 01492000 SDWAINTC EQU SDWARSR2 01493000 SDWAOFLN EQU SDWARSR2 01494000 SDWACHNG EQU SDWARSR1 01495000 SDWAMSER EQU SDWARSR1 01496000 @NM00067 EQU SDWARSR1 01497000 SDWACPID EQU SDWAMCH+10 01498000 SDWATERR EQU SDWAMCHD 01499000 SDWAFPRX EQU SDWAMCHD 01500000 SDWAINSF EQU SDWAMCHD 01501000 SDWAACR EQU SDWAMCHD 01502000 SDWASCK EQU SDWAMCHD 01503000 SDWAPSWU EQU SDWAMCHD 01504000 SDWAREGU EQU SDWAMCHD 01505000 SDWASKYF EQU SDWAMCHD 01506000 @NM00066 EQU SDWAMCHS 01507000 SDWARSRF EQU SDWAMCHS 01508000 SDWARSRC EQU SDWAMCHS 01509000 SDWAINVP EQU SDWAMCHS 01510000 SDWATSVL EQU SDWAMCHS 01511000 SDWARCDF EQU SDWAMCHS 01512000 SDWASRVL EQU SDWAMCHS 01513000 SDWASCKE EQU SDWASTCK+4 01514000 SDWASCKB EQU SDWASTCK 01515000 SDWALNTH EQU SDWAIDNT+1 01516000 SDWASPID EQU SDWAIDNT 01517000 SDWASR15 EQU SDWASRSV+60 01518000 SDWASR14 EQU SDWASRSV+56 01519000 SDWASR13 EQU SDWASRSV+52 01520000 SDWASR12 EQU SDWASRSV+48 01521000 SDWASR11 EQU SDWASRSV+44 01522000 SDWASR10 EQU SDWASRSV+40 01523000 SDWASR09 EQU SDWASRSV+36 01524000 SDWASR08 EQU SDWASRSV+32 01525000 SDWASR07 EQU SDWASRSV+28 01526000 SDWASR06 EQU SDWASRSV+24 01527000 SDWASR05 EQU SDWASRSV+20 01528000 SDWASR04 EQU SDWASRSV+16 01529000 SDWASR03 EQU SDWASRSV+12 01530000 SDWASR02 EQU SDWASRSV+8 01531000 SDWASR01 EQU SDWASRSV+4 01532000 SDWASR00 EQU SDWASRSV 01533000 SDWATRN2 EQU SDWAAEC2+4 01534000 SDWAIPC2 EQU SDWAICD2 01535000 SDWAIMC2 EQU SDWAICD2 01536000 SDWAIPR2 EQU SDWAICD2 01537000 @NM00065 EQU SDWAINC2 01538000 @NM00064 EQU SDWAILC2 01539000 SDWAIL2 EQU SDWAILC2 01540000 @NM00063 EQU SDWAILC2 01541000 @NM00062 EQU SDWAAEC2 01542000 SDWAADD2 EQU SDWANXT2+1 01543000 @NM00061 EQU SDWANXT2 01544000 @NM00060 EQU SDWAEC2+3 01545000 SDWASGN2 EQU SDWAINT2 01546000 SDWAEXP2 EQU SDWAINT2 01547000 SDWADEC2 EQU SDWAINT2 01548000 SDWAFPO2 EQU SDWAINT2 01549000 SDWACC2 EQU SDWAINT2 01550000 @NM00059 EQU SDWAINT2 01551000 SDWAPGM2 EQU SDWAMWP2 01552000 SDWAWAT2 EQU SDWAMWP2 01553000 SDWAMCK2 EQU SDWAMWP2 01554000 SDWAECT2 EQU SDWAMWP2 01555000 SDWAKEY2 EQU SDWAMWP2 01556000 SDWAEXT2 EQU SDWAEMK2 01557000 SDWAIO2 EQU SDWAEMK2 01558000 SDWATRM2 EQU SDWAEMK2 01559000 @NM00058 EQU SDWAEMK2 01560000 SDWAPER2 EQU SDWAEMK2 01561000 @NM00057 EQU SDWAEMK2 01562000 SDWATRAN EQU SDWAAEC1+4 01563000 SDWAIPC1 EQU SDWAICD1 01564000 SDWAIMC1 EQU SDWAICD1 01565000 SDWAIPR1 EQU SDWAICD1 01566000 @NM00056 EQU SDWAINC1 01567000 @NM00055 EQU SDWAILC1 01568000 SDWAIL1 EQU SDWAILC1 01569000 @NM00054 EQU SDWAILC1 01570000 @NM00053 EQU SDWAAEC1 01571000 SDWAADD1 EQU SDWANXT1+1 01572000 @NM00052 EQU SDWANXT1 01573000 @NM00051 EQU SDWAEC1+3 01574000 SDWASGN1 EQU SDWAINT1 01575000 SDWAEXP1 EQU SDWAINT1 01576000 SDWADEC1 EQU SDWAINT1 01577000 SDWAFPO1 EQU SDWAINT1 01578000 SDWACC1 EQU SDWAINT1 01579000 @NM00050 EQU SDWAINT1 01580000 SDWAPGM1 EQU SDWAMWP1 01581000 SDWAWAT1 EQU SDWAMWP1 01582000 SDWAMCK1 EQU SDWAMWP1 01583000 SDWAECT1 EQU SDWAMWP1 01584000 SDWAKEY1 EQU SDWAMWP1 01585000 SDWAEXT1 EQU SDWAEMK1 01586000 SDWAIO1 EQU SDWAEMK1 01587000 SDWATRM1 EQU SDWAEMK1 01588000 @NM00049 EQU SDWAEMK1 01589000 SDWAPER1 EQU SDWAEMK1 01590000 @NM00048 EQU SDWAEMK1 01591000 SDWAIOBR EQU SDWA+100 01592000 SDWAEPA EQU SDWA+96 01593000 @NM00047 EQU SDWANAME+4 01594000 SDWARBAD EQU SDWANAME 01595000 SDWAGR15 EQU SDWAGRSV+60 01596000 SDWAGR14 EQU SDWAGRSV+56 01597000 SDWAGR13 EQU SDWAGRSV+52 01598000 SDWAGR12 EQU SDWAGRSV+48 01599000 SDWAGR11 EQU SDWAGRSV+44 01600000 SDWAGR10 EQU SDWAGRSV+40 01601000 SDWAGR09 EQU SDWAGRSV+36 01602000 SDWAGR08 EQU SDWAGRSV+32 01603000 SDWAGR07 EQU SDWAGRSV+28 01604000 SDWAGR06 EQU SDWAGRSV+24 01605000 SDWAGR05 EQU SDWAGRSV+20 01606000 SDWAGR04 EQU SDWAGRSV+16 01607000 SDWAGR03 EQU SDWAGRSV+12 01608000 SDWAGR02 EQU SDWAGRSV+8 01609000 SDWAGR01 EQU SDWAGRSV+4 01610000 SDWAGR00 EQU SDWAGRSV 01611000 SDWANXTP EQU SDWACTL2+5 01612000 SDWASGP EQU SDWAPMKP 01613000 SDWAEUP EQU SDWAPMKP 01614000 SDWADOP EQU SDWAPMKP 01615000 SDWAFPP EQU SDWAPMKP 01616000 SDWACCP EQU SDWAPMKP 01617000 SDWAILP EQU SDWAPMKP 01618000 SDWAINTP EQU SDWACTL2+2 01619000 SDWASPVP EQU SDWAMWPP 01620000 SDWAWATP EQU SDWAMWPP 01621000 SDWAMCKP EQU SDWAMWPP 01622000 @NM00046 EQU SDWAMWPP 01623000 SDWAKEYP EQU SDWAMWPP 01624000 SDWAEXTP EQU SDWACMKP 01625000 SDWAIOP EQU SDWACMKP 01626000 SDWANXTA EQU SDWACTL1+5 01627000 SDWASGA EQU SDWAPMKA 01628000 SDWAEUA EQU SDWAPMKA 01629000 SDWADOA EQU SDWAPMKA 01630000 SDWAFPA EQU SDWAPMKA 01631000 SDWACCA EQU SDWAPMKA 01632000 SDWAILA EQU SDWAPMKA 01633000 SDWAINTA EQU SDWACTL1+2 01634000 SDWASPVA EQU SDWAMWPA 01635000 SDWAWATA EQU SDWAMWPA 01636000 SDWAMCKA EQU SDWAMWPA 01637000 @NM00045 EQU SDWAMWPA 01638000 SDWAKEYA EQU SDWAMWPA 01639000 SDWAEXTA EQU SDWACMKA 01640000 SDWAIOA EQU SDWACMKA 01641000 SDWACMPC EQU SDWAABCC+1 01642000 @NM00044 EQU SDWACMPF 01643000 SDWASTCC EQU SDWACMPF 01644000 @NM00043 EQU SDWACMPF 01645000 SDWASTEP EQU SDWACMPF 01646000 SDWAPARM EQU SDWA 01647000 ESTARSVI EQU ESTAFGRS+1 01648000 @NM00042 EQU ESTAFLG2 01649000 ESTABRNT EQU ESTAFLG2 01650000 @NM00041 EQU ESTAFLG2 01651000 ESTAEREC EQU ESTAFLG2 01652000 ESTATERM EQU ESTAFLG2 01653000 @NM00040 EQU ESTAFLG2 01654000 ESTAOWNR EQU ESTA+8 01655000 ESTAPARM EQU ESTA+4 01656000 ESTAEXIT EQU ESTAEXT+1 01657000 ESTAHALT EQU ESTAIO 01658000 ESTANOIO EQU ESTAIO 01659000 ESTASYNC EQU ESTAFLG1 01660000 @NM00039 EQU ESTAFLG1 01661000 ESTAESTA EQU ESTAFLG1 01662000 @NM00038 EQU ESTAFLG1 01663000 ESTASTAR EQU ESTAFLG1 01664000 ESTASTAI EQU ESTAFLG1 01665000 ASVTEND EQU ASVT+528 01666000 ASVTAVAL EQU ASVTENTY 01667000 ASVTAVAI EQU ASVTFRST 01668000 ASVTRS00 EQU ASVT+520 01669000 ASVTMAXU EQU ASVT+516 01670000 ASVTASVT EQU ASVT+512 01671000 ASVTBEGN EQU ASVT+512 01672000 @NM00037 EQU ASVT 01673000 CHARSV16 EQU CHSHORT+100 01674000 CHARSV15 EQU CHSHORT+96 01675000 CHJSCBVS EQU CHSHORT+92 01676000 CHUSCVS EQU CHSHORT+88 01677000 @NM00035 EQU CHSHORT+84 01678000 @NM00034 EQU CHSHORT+80 01679000 CHSQA EQU CHSHORT+44 01680000 CHQPA EQU CHSHORT+8 01681000 CHJCL EQU CHSHORT+4 01682000 CHSPC EQU CHSHORT 01683000 CHSPB EQU CHSTEP+4 01684000 CHTCB EQU CHSTEP+1 01685000 CHARSV23 EQU CHSWT 01686000 CHARSV22 EQU CHSWT 01687000 CHARSV21 EQU CHSWT 01688000 CHAC EQU CHSWT 01689000 CHPSF EQU CHSWT 01690000 CHPSD EQU CHSWT 01691000 CHJCT EQU CHSWT 01692000 CHARSV20 EQU CHSWT 01693000 CHCECB EQU CHASM+20 01694000 CHECB EQU CHASM+16 01695000 CHRGNAD EQU CHASM+12 01696000 CHARSV18 EQU CHRGNSZ+1 01697000 CHRPRTY EQU CHRGNSZ 01698000 @NM00033 EQU CHCIBP 01699000 CHEND EQU CHCIBP 01700000 CHECBP EQU CHASM 01701000 CHDER EQU CHPROCSN+4 01702000 CHARSV10 EQU CHACT1 01703000 CHARSV09 EQU CHACT1 01704000 CHARSV08 EQU CHACT1 01705000 CHARSV07 EQU CHACT1 01706000 CHARSV06 EQU CHACT1 01707000 CHARSV05 EQU CHACT1 01708000 CHARSV04 EQU CHACT1 01709000 CHRDWTR EQU CHACT1 01710000 CHARSV30 EQU CHPROCSN+2 01711000 CHQID EQU CHPROCSN 01712000 CHASID EQU CHTJID 01713000 CHTRKID EQU CHPKE 01714000 CHCIBCTR EQU CHAIN+27 01715000 CHUNIT EQU CHAIN+24 01716000 CHCLS EQU CHAIN+16 01717000 CHPCOI EQU CHPARM 01718000 CHIFY EQU CHACT 01719000 CHAIFX EQU CHACT 01720000 CHCLD EQU CHACT 01721000 CHCL EQU CHACT 01722000 CHDSI EQU CHACT 01723000 CHDISC EQU CHACT 01724000 CHTERM EQU CHACT 01725000 CHSWAP EQU CHACT 01726000 CHABTERM EQU CHSTS 01727000 CHFC EQU CHSTS 01728000 CHDL EQU CHSTS 01729000 CHAD EQU CHSTS 01730000 CHQSPC EQU CHSTS 01731000 CHSOUT EQU CHSTS 01732000 CHSYS EQU CHSTS 01733000 CHAP EQU CHSTS 01734000 CHSZE EQU CHFLG+1 01735000 CHPTR EQU CHAIN 01736000 @NM00032 EQU TCBXTNT2+32 01737000 TCBRV181 EQU TCBRV173 01738000 TCBRV180 EQU TCBRV173 01739000 TCBRV179 EQU TCBRV173 01740000 TCBRV178 EQU TCBRV173 01741000 TCBRV177 EQU TCBRV173 01742000 TCBRV176 EQU TCBRV173 01743000 TCBRV175 EQU TCBRV173 01744000 TCBRV174 EQU TCBRV173 01745000 TCBRV172 EQU TCBRV164 01746000 TCBRV171 EQU TCBRV164 01747000 TCBRV170 EQU TCBRV164 01748000 TCBRV169 EQU TCBRV164 01749000 TCBRV168 EQU TCBRV164 01750000 TCBRV167 EQU TCBRV164 01751000 TCBRV166 EQU TCBRV164 01752000 TCBRV165 EQU TCBRV164 01753000 TCBRV163 EQU TCBRV155 01754000 TCBRV162 EQU TCBRV155 01755000 TCBRV161 EQU TCBRV155 01756000 TCBRV160 EQU TCBRV155 01757000 TCBRV159 EQU TCBRV155 01758000 TCBRV158 EQU TCBRV155 01759000 TCBRV157 EQU TCBRV155 01760000 TCBRV156 EQU TCBRV155 01761000 TCBRV154 EQU TCBRV146 01762000 TCBRV153 EQU TCBRV146 01763000 TCBRV152 EQU TCBRV146 01764000 TCBRV151 EQU TCBRV146 01765000 TCBRV150 EQU TCBRV146 01766000 TCBRV149 EQU TCBRV146 01767000 TCBRV148 EQU TCBRV146 01768000 TCBRV147 EQU TCBRV146 01769000 TCBRV145 EQU TCBXTNT2+26 01770000 TCBRV144 EQU TCBXTNT2+24 01771000 TCBRV143 EQU TCBXTNT2+20 01772000 TCBRV142 EQU TCBXTNT2+16 01773000 TCBRSV49 EQU TCBXTNT2+12 01774000 TCBEVENT EQU TCBXTNT2+8 01775000 TCBRCMP EQU TCBXTNT2+5 01776000 TCBRSVAB EQU TCBXTNT2+4 01777000 TCBGTFA EQU TCBGTF+1 01778000 TCBRSV47 EQU TCBTFLG 01779000 TCBRSV46 EQU TCBTFLG 01780000 TCBRSV45 EQU TCBTFLG 01781000 TCBRSV44 EQU TCBTFLG 01782000 TCBRSV43 EQU TCBTFLG 01783000 TCBDSPIT EQU TCBTFLG 01784000 TCBERRTN EQU TCBTFLG 01785000 TCBASYNC EQU TCBTFLG 01786000 @NM00031 EQU TCB+296 01787000 TCBSVCA2 EQU TCB+292 01788000 TCBSWASA EQU TCB+288 01789000 TCBDBTB EQU TCB+284 01790000 TCBRPT EQU TCB+280 01791000 TCBRV141 EQU TCBRV133 01792000 TCBRV140 EQU TCBRV133 01793000 TCBRV139 EQU TCBRV133 01794000 TCBRV138 EQU TCBRV133 01795000 TCBRV137 EQU TCBRV133 01796000 TCBRV136 EQU TCBRV133 01797000 TCBRV135 EQU TCBRV133 01798000 TCBRV134 EQU TCBRV133 01799000 TCBRV132 EQU TCBRV124 01800000 TCBRV131 EQU TCBRV124 01801000 TCBRV130 EQU TCBRV124 01802000 TCBRV129 EQU TCBRV124 01803000 TCBRV128 EQU TCBRV124 01804000 TCBRV127 EQU TCBRV124 01805000 TCBRV126 EQU TCBRV124 01806000 TCBRV125 EQU TCBRV124 01807000 TCBRV123 EQU TCBFBYT2 01808000 TCBRV122 EQU TCBFBYT2 01809000 TCBECBNV EQU TCBFBYT2 01810000 TCBSSSYN EQU TCBFBYT2 01811000 TCBFPRAP EQU TCBFBYT2 01812000 TCBFDW EQU TCBFBYT2 01813000 TCBFMW EQU TCBFBYT2 01814000 TCBCNCB EQU TCBFBYT2 01815000 TCBLLH EQU TCBFBYT1 01816000 TCBRV113 EQU TCBFBYT1 01817000 TCBEOT EQU TCBFBYT1 01818000 TCBRTM2 EQU TCBFBYT1 01819000 TCBPGNLY EQU TCBFBYT1 01820000 TCBNDIOS EQU TCBFBYT1 01821000 TCBACTIV EQU TCBFBYT1 01822000 TCBEOTFM EQU TCBFBYT1 01823000 TCBAFFN EQU TCB+274 01824000 TCBCCPVI EQU TCB+272 01825000 TCBUKYSP EQU TCB+268 01826000 TCBMODE EQU TCBESTAE+3 01827000 TCBERTYP EQU TCBESTAE+2 01828000 TCBRV314 EQU TCBESTRM 01829000 TCBRV313 EQU TCBESTRM 01830000 TCBRV312 EQU TCBESTRM 01831000 TCBRV311 EQU TCBESTRM 01832000 TCBRV310 EQU TCBESTRM 01833000 TCBRV309 EQU TCBESTRM 01834000 TCBRV308 EQU TCBESTRM 01835000 TCBETERM EQU TCBESTRM 01836000 TCBSCBKY EQU TCBESTAE 01837000 TCBRTM12 EQU TCB+260 01838000 TCBTCBID EQU TCB+256 01839000 TCBRSV96 EQU TCB+252 01840000 TCBSWA EQU TCB+248 01841000 TCBFOEA EQU TCBFOE+1 01842000 TCBRSV42 EQU TCBFOE 01843000 TCBRV306 EQU TCB+240 01844000 TCBRSV41 EQU TCB+239 01845000 TCBTID EQU TCB+238 01846000 TCBRSVAA EQU TCB+237 01847000 TCBABCUR EQU TCB+236 01848000 TCBTMSAV EQU TCB+232 01849000 TCBIOTIM EQU TCB+228 01850000 TCBRTWA EQU TCB+224 01851000 TCBBACK EQU TCB+220 01852000 TCBTIRB EQU TCB+216 01853000 TCBAECB EQU TCB+212 01854000 TCBEXT2A EQU TCBEXT2+1 01855000 TCBRSV39 EQU TCBEXT2 01856000 TCBSTMCT EQU TCB+207 01857000 TCBSYSCT EQU TCB+206 01858000 TCBRSV37 EQU TCB+205 01859000 TCBEXSVC EQU TCBDAR 01860000 TCBDARMS EQU TCBDAR 01861000 TCBDARWT EQU TCBDAR 01862000 TCBDARO EQU TCBDAR 01863000 TCBDARMC EQU TCBDARC 01864000 TCBDARD EQU TCBDAR 01865000 TCBDARS EQU TCBDAR 01866000 TCBDARP EQU TCBDAR 01867000 TCBGTOFM EQU TCBFLGS7 01868000 TCBADMP EQU TCBFLGS7 01869000 TCBRSTSK EQU TCBFLGS7 01870000 TCBSVCS EQU TCBFLGS7 01871000 TCBSTACK EQU TCBFLGS7 01872000 TCBRSV34 EQU TCBFLGS7 01873000 TCBRSV33 EQU TCBFLGS7 01874000 TCBGPECB EQU TCBFLGS7 01875000 TCBNTJS EQU TCBFLGS6 01876000 TCBAPG EQU TCBFLGS6 01877000 TCBMIGR EQU TCBFLGS6 01878000 TCBRV303 EQU TCBFLGS6 01879000 TCBSPVLK EQU TCBFLGS6 01880000 TCBCPU EQU TCBFLGS6 01881000 TCBPIE17 EQU TCBFLGS6 01882000 TCBRV EQU TCBFLGS6 01883000 TCBRSV79 EQU TCBNDSP5 01884000 TCBRSV78 EQU TCBNDSP5 01885000 TCBRSV77 EQU TCBNDSP5 01886000 TCBRSV76 EQU TCBNDSP5 01887000 TCBRSV75 EQU TCBNDSP5 01888000 TCBRSV74 EQU TCBNDSP5 01889000 TCBRSV95 EQU TCBNDSP5 01890000 TCBRSV94 EQU TCBNDSP5 01891000 TCBRSV93 EQU TCBNDSP4 01892000 TCBRSV92 EQU TCBNDSP4 01893000 TCBRSV91 EQU TCBNDSP4 01894000 TCBRSV90 EQU TCBNDSP4 01895000 TCBRSV89 EQU TCBNDSP4 01896000 TCBRSV88 EQU TCBNDSP4 01897000 TCBRSV87 EQU TCBNDSP4 01898000 TCBRSV86 EQU TCBNDSP4 01899000 TCBEXT1A EQU TCBEXT1+1 01900000 TCBRSV32 EQU TCBEXT1 01901000 TCBEXCPD EQU TCB+192 01902000 TCBIOBRC EQU TCB+188 01903000 TCBDDWTC EQU TCB+186 01904000 TCBDDEXC EQU TCB+184 01905000 @NM00030 EQU TCBRECDE 01906000 TCBREC EQU TCBRECDE 01907000 TCBMDIDS EQU TCB+176 01908000 TCBNDINT EQU TCBNDSP3 01909000 TCBRSV27 EQU TCBNDSP3 01910000 TCBRSV26 EQU TCBNDSP3 01911000 TCBRSV25 EQU TCBNDSP3 01912000 TCBRSV24 EQU TCBNDSP3 01913000 TCBSRBND EQU TCBNDSP3 01914000 TCBRV302 EQU TCBNDSP3 01915000 TCBLJSND EQU TCBNDSP3 01916000 TCBABE EQU TCBNDSP2 01917000 TCBDSS EQU TCBNDSP2 01918000 TCBOWAIT EQU TCBNDSP2 01919000 TCBIWAIT EQU TCBNDSP2 01920000 TCBNDTS EQU TCBNDSP2 01921000 TCBNDSVC EQU TCBNDSP2 01922000 TCBSTPP EQU TCBNDSP2 01923000 TCBABD EQU TCBNDSP2 01924000 TCBRSV22 EQU TCBNDSP1 01925000 TCBPIEND EQU TCBNDSP1 01926000 TCBTPSP EQU TCBNDSP1 01927000 TCBDDRND EQU TCBNDSP1 01928000 TCBRSPND EQU TCBNDSP1 01929000 TCBRSTND EQU TCBNDSP1 01930000 TCBDARPN EQU TCBNDSP1 01931000 TCBDARTN EQU TCBNDSP1 01932000 TCBNDSP0 EQU TCBNDSP 01933000 TCBUSER EQU TCB+168 01934000 TCBTCTB EQU TCBTCT+1 01935000 TCBRSV9C EQU TCBTCTGF 01936000 TCBRSV9B EQU TCBTCTGF 01937000 TCBRSV9A EQU TCBTCTGF 01938000 TCBRSV99 EQU TCBTCTGF 01939000 TCBRSV98 EQU TCBTCTGF 01940000 TCBRSV97 EQU TCBTCTGF 01941000 TCBRSV20 EQU TCBTCTGF 01942000 TCBSMFGF EQU TCBTCTGF 01943000 TCBSTABB EQU TCBSTAB+1 01944000 TCBSTCUR EQU TCBNSTAE 01945000 TCBRV301 EQU TCBNSTAE 01946000 TCBSYNCH EQU TCBNSTAE 01947000 TCBHALT EQU TCBNSTAE 01948000 TCBPPSUP EQU TCBNSTAE 01949000 TCB33E EQU TCBNSTAE 01950000 TCBQUIES EQU TCBNSTAE 01951000 TCBSTABE EQU TCBNSTAE 01952000 TCBAQE EQU TCB+156 01953000 TCBPQE EQU TCB+152 01954000 TCBTSDP EQU TCB+151 01955000 TCBTSLP EQU TCB+150 01956000 TCBSTPCT EQU TCB+149 01957000 TCBCPUBN EQU TCBTSFLG 01958000 TCBDYDSP EQU TCBTSFLG 01959000 TCBRSV18 EQU TCBTSFLG 01960000 TCBRSV17 EQU TCBTSFLG 01961000 TCBTIOTG EQU TCBTSFLG 01962000 TCBATT EQU TCBTSFLG 01963000 TCBSTPPR EQU TCBTSFLG 01964000 TCBRV300 EQU TCBTSTSK 01965000 TCBECB EQU TCB+144 01966000 TCBIQE EQU TCB+140 01967000 TCBLTC EQU TCB+136 01968000 TCBOTC EQU TCB+132 01969000 TCBNTC EQU TCB+128 01970000 TCBJSTCA EQU TCBJSTCB+1 01971000 TCBRSV16 EQU TCBJSTCB 01972000 TCBTQET EQU TCBTME 01973000 TCBTCB EQU TCB+116 01974000 TCBFSAB EQU TCBFSA+1 01975000 TCBQEL EQU TCBFSA 01976000 TCBGRS15 EQU TCBGRS+60 01977000 TCBGRS14 EQU TCBGRS+56 01978000 TCBGRS13 EQU TCBGRS+52 01979000 TCBGRS12 EQU TCBGRS+48 01980000 TCBGRS11 EQU TCBGRS+44 01981000 TCBGRS10 EQU TCBGRS+40 01982000 TCBGRS9 EQU TCBGRS+36 01983000 TCBGRS8 EQU TCBGRS+32 01984000 TCBGRS7 EQU TCBGRS+28 01985000 TCBGRS6 EQU TCBGRS+24 01986000 TCBGRS5 EQU TCBGRS+20 01987000 TCBGRS4 EQU TCBGRS+16 01988000 TCBGRS3 EQU TCBGRS+12 01989000 TCBGRS2 EQU TCBGRS+8 01990000 TCBGRS1 EQU TCBGRS+4 01991000 TCBGRS0 EQU TCBGRS 01992000 TCBJPQB EQU TCBJPQ+1 01993000 TCBRSV15 EQU TCBPURGE 01994000 TCBRSV14 EQU TCBPURGE 01995000 TCBRSV13 EQU TCBPURGE 01996000 TCBRSV12 EQU TCBPURGE 01997000 TCBRSV11 EQU TCBPURGE 01998000 TCBRSV10 EQU TCBPURGE 01999000 TCBRSV09 EQU TCBPURGE 02000000 TCBJPQF EQU TCBPURGE 02001000 TCBJLB EQU TCB+40 02002000 TCBLLS EQU TCB+36 02003000 TCBDSP EQU TCB+35 02004000 TCBLMP EQU TCB+34 02005000 TCBPNDSP EQU TCBFLGS5 02006000 TCBFCD1 EQU TCBFLGS5 02007000 TCBSTP EQU TCBFLGS5 02008000 TCBSYS EQU TCBFLGS5 02009000 TCBANDSP EQU TCBFLGS5 02010000 TCBPAGE EQU TCBFLGS5 02011000 TCBUXNDF EQU TCBABWF 02012000 TCBFC EQU TCBFLGS5 02013000 TCBONDSP EQU TCBFLGS4 02014000 TCBMPCND EQU TCBFLGS4 02015000 TCBMPCVQ EQU TCBFLGS4 02016000 TCBUXNDV EQU TCBFLGS4 02017000 TCBHNDSP EQU TCBFLGS4 02018000 TCBRQENA EQU TCBFLGS4 02019000 TCBSER EQU TCBFLGS4 02020000 TCBNDUMP EQU TCBFLGS4 02021000 TCBDWSTA EQU TCBFLGS3 02022000 TCBRSV08 EQU TCBFLGS3 02023000 TCBRSV07 EQU TCBFLGS3 02024000 TCBRSV06 EQU TCBFLGS3 02025000 TCBABGM EQU TCBFLGS3 02026000 TCBABTRM EQU TCBFLGS3 02027000 TCBADINP EQU TCBFLGS3 02028000 TCBFSM EQU TCBFLGS3 02029000 TCBFTS EQU TCBFLGS2 02030000 TCBFETXR EQU TCBFLGS2 02031000 TCBFDSOP EQU TCBFLGS2 02032000 TCBFJMC EQU TCBFLGS2 02033000 TCBFSMC EQU TCBFLGS2 02034000 TCBFABOP EQU TCBFLGS2 02035000 TCBFSTI EQU TCBFLGS2 02036000 TCBFOINP EQU TCBFLGS2 02037000 TCBFX EQU TCBFLGS1 02038000 TCBFS EQU TCBFLGS1 02039000 TCBFT EQU TCBFLGS1 02040000 TCBPDUMP EQU TCBFLGS1 02041000 TCBNONPR EQU TCBFLGS1 02042000 TCBFERA EQU TCBFLGS1 02043000 TCBFE EQU TCBFLGS1 02044000 TCBFA EQU TCBFLGS1 02045000 TCBZERO EQU TCBPKF 02046000 TCBFLAG EQU TCBPKF 02047000 TCBMSSB EQU TCBMSS+1 02048000 TCBRSV03 EQU TCBMSS 02049000 TCBTRNB EQU TCBTRN+1 02050000 TCBRSV02 EQU TCBABF 02051000 TCBOLTEP EQU TCBABF 02052000 TCBTCP EQU TCBABF 02053000 TCBTCPP EQU TCBABF 02054000 TCBRSV01 EQU TCBABF 02055000 TCBGRPH EQU TCBABF 02056000 TCBNOCHK EQU TCBABF 02057000 TCBMOD91 EQU TCBABF 02058000 TCBCMPC EQU TCBCMP+1 02059000 TCBRV318 EQU TCBCMSG 02060000 TCBRV317 EQU TCBCIND 02061000 TCBRV316 EQU TCBCWTO 02062000 TCBCASID EQU TCBCDBL 02063000 TCBNOCC EQU TCBSTCC 02064000 TCBDMPO EQU TCBCPP 02065000 TCBCSTEP EQU TCBCMPF 02066000 TCBCREQ EQU TCBCMPF 02067000 TCBDEB EQU TCB+8 02068000 TCBPIEA EQU TCBPIE+1 02069000 TCBPM EQU TCBPMASK 02070000 @NM00029 EQU TCBPMASK 02071000 TCBRBP EQU TCB 02072000 TCBFRS6 EQU TCBFRS+24 02073000 TCBFRS4 EQU TCBFRS+16 02074000 TCBFRS2 EQU TCBFRS+8 02075000 TCBFRS0 EQU TCBFRS 02076000 @NM00004 EQU SRB+40 02077000 @NM00003 EQU SRB+38 02078000 SRBPKF EQU SRB+36 02079000 SRBSAVE EQU SRB+32 02080000 SRBRMTR EQU SRB+24 02081000 SRBCPAFF EQU SRBFLC 02082000 CVTLEVL EQU CVTRELNO+2 02083000 CVTNUMB EQU CVTRELNO 02084000 CVTMDL EQU CVTFIX+250 02085000 @NM00002 EQU CVTFIX+248 02086000 @NM00001 EQU CVTFIX 02087000 CVTRV482 EQU CVTXTNT2+128 02088000 CVTRV481 EQU CVTXTNT2+124 02089000 CVTRV480 EQU CVTXTNT2+120 02090000 CVTRV479 EQU CVTXTNT2+118 02091000 CVTRV478 EQU CVTXTNT2+117 02092000 CVTRV477 EQU CVTXTNT2+116 02093000 CVTRV476 EQU CVTXTNT2+115 02094000 CVTRV475 EQU CVTXTNT2+114 02095000 CVTRV474 EQU CVTRV466 02096000 CVTRV473 EQU CVTRV466 02097000 CVTRV472 EQU CVTRV466 02098000 CVTRV471 EQU CVTRV466 02099000 CVTRV470 EQU CVTRV466 02100000 CVTRV469 EQU CVTRV466 02101000 CVTRV468 EQU CVTRV466 02102000 CVTRV467 EQU CVTRV466 02103000 CVTRV465 EQU CVTRV457 02104000 CVTRV464 EQU CVTRV457 02105000 CVTRV463 EQU CVTRV457 02106000 CVTRV462 EQU CVTRV457 02107000 CVTRV461 EQU CVTRV457 02108000 CVTRV460 EQU CVTRV457 02109000 CVTRV459 EQU CVTRV457 02110000 CVTRV458 EQU CVTRV457 02111000 CVTRV456 EQU CVTXTNT2+108 02112000 CVTRV455 EQU CVTXTNT2+104 02113000 CVTRV454 EQU CVTXTNT2+100 02114000 CVTRV453 EQU CVTXTNT2+96 02115000 CVTRV452 EQU CVTXTNT2+94 02116000 CVTRV451 EQU CVTXTNT2+92 02117000 CVTRV450 EQU CVTXTNT2+90 02118000 CVTRV449 EQU CVTXTNT2+88 02119000 CVTRV448 EQU CVTXTNT2+87 02120000 CVTRV447 EQU CVTXTNT2+86 02121000 CVTRV446 EQU CVTRV438 02122000 CVTRV445 EQU CVTRV438 02123000 CVTRV444 EQU CVTRV438 02124000 CVTRV443 EQU CVTRV438 02125000 CVTRV442 EQU CVTRV438 02126000 CVTRV441 EQU CVTRV438 02127000 CVTRV440 EQU CVTRV438 02128000 CVTRV439 EQU CVTRV438 02129000 CVTRV437 EQU CVTRV429 02130000 CVTRV436 EQU CVTRV429 02131000 CVTRV435 EQU CVTRV429 02132000 CVTRV434 EQU CVTRV429 02133000 CVTRV433 EQU CVTRV429 02134000 CVTRV432 EQU CVTRV429 02135000 CVTRV431 EQU CVTRV429 02136000 CVTRV430 EQU CVTRV429 02137000 CVTRV428 EQU CVTXTNT2+80 02138000 CVTRV427 EQU CVTXTNT2+76 02139000 CVTRV426 EQU CVTXTNT2+72 02140000 CVTRV425 EQU CVTXTNT2+68 02141000 CVTATACT EQU CVTATCVT 02142000 CVTRV423 EQU CVTXTNT2+62 02143000 CVTRV422 EQU CVTXTNT2+60 02144000 CVTRV421 EQU CVTXTNT2+58 02145000 CVTRV420 EQU CVTXTNT2+56 02146000 CVTRV419 EQU CVTXTNT2+55 02147000 CVTRV418 EQU CVTXTNT2+54 02148000 CVTRV417 EQU CVTRV409 02149000 CVTRV416 EQU CVTRV409 02150000 CVTRV415 EQU CVTRV409 02151000 CVTRV414 EQU CVTRV409 02152000 CVTRV413 EQU CVTRV409 02153000 CVTRV412 EQU CVTRV409 02154000 CVTRV411 EQU CVTRV409 02155000 CVTRV410 EQU CVTRV409 02156000 CVTRV408 EQU CVTRV400 02157000 CVTRV407 EQU CVTRV400 02158000 CVTRV406 EQU CVTRV400 02159000 CVTRV405 EQU CVTRV400 02160000 CVTRV404 EQU CVTRV400 02161000 CVTRV403 EQU CVTRV400 02162000 CVTRV402 EQU CVTRV400 02163000 CVTRV401 EQU CVTRV400 02164000 CVTICB EQU CVTXTNT2+48 02165000 CVTSKTA EQU CVTXTNT2+44 02166000 CVTRSV99 EQU CVTXTNT2+40 02167000 CVTRSV98 EQU CVTXTNT2+36 02168000 CVTRSV97 EQU CVTXTNT2+34 02169000 CVTRSV96 EQU CVTXTNT2+32 02170000 CVTOLTEP EQU CVTXTNT2+28 02171000 CVTQIDA EQU CVTQID+1 02172000 CVTRSV95 EQU CVTQID 02173000 CVTRSV94 EQU CVTXTNT2+20 02174000 CVTRSV93 EQU CVTXTNT2+16 02175000 CVTRSV92 EQU CVTXTNT2+12 02176000 CVTDEBVR EQU CVTXTNT2+8 02177000 CVTRSV91 EQU CVTXTNT2+6 02178000 CVTRSV9H EQU CVTFLGBT 02179000 CVTRSV9G EQU CVTFLGBT 02180000 CVTRSV9F EQU CVTFLGBT 02181000 CVTRSV9E EQU CVTFLGBT 02182000 CVTRSV9D EQU CVTFLGBT 02183000 CVTRSV9C EQU CVTFLGBT 02184000 CVTVME EQU CVTFLGBT 02185000 CVTNPE EQU CVTFLGBT 02186000 CVTNUCLS EQU CVTXTNT2+4 02187000 CVTDSSVA EQU CVTDSSV+1 02188000 CVTRSV89 EQU CVTDSSV 02189000 CVTRSV88 EQU CVTXTNT1+8 02190000 CVTRSV87 EQU CVTXTNT1+4 02191000 CVTFACHN EQU CVTXTNT1 02192000 CVTRV488 EQU CVTMAP+412 02193000 CVTRV487 EQU CVTMAP+408 02194000 CVTRV486 EQU CVTMAP+404 02195000 CVTRV485 EQU CVTMAP+400 02196000 CVTACTAP EQU CVTMAP+396 02197000 CVTAUTH EQU CVTMAP+392 02198000 CVTATMCA EQU CVTATMCT+1 02199000 CVTATMST EQU CVTATMCT 02200000 CVTRSV61 EQU CVTMAP+384 02201000 CVTVOLT1 EQU CVTVOLM1+1 02202000 CVTVOLI1 EQU CVTVOLF1 02203000 CVTSTOA EQU CVTMAP+376 02204000 CVTRSV58 EQU CVTMAP+374 02205000 CVTRSV57 EQU CVTMAP+372 02206000 CVTDDCE EQU CVTMAP+368 02207000 CVTPNWFR EQU CVTMAP+364 02208000 CVTSMF EQU CVTMAP+360 02209000 CVTSULK EQU CVTMAP+358 02210000 CVTSLKO EQU CVTSYSK 02211000 CVTSLKP EQU CVTSYSK 02212000 CVTSLKQ EQU CVTSYSK 02213000 CVTSLKR EQU CVTSYSK 02214000 CVTRSV56 EQU CVTSYSK 02215000 CVTRSV55 EQU CVTSYSK 02216000 CVTRSV54 EQU CVTSYSK 02217000 CVTRSV53 EQU CVTSYSK 02218000 CVTRSV52 EQU CVTA1F1 02219000 CVTRSV51 EQU CVTA1F1 02220000 CVTRSV50 EQU CVTA1F1 02221000 CVTRSV49 EQU CVTA1F1 02222000 CVTRSV48 EQU CVTA1F1 02223000 CVTRSV47 EQU CVTA1F1 02224000 CVTSRSW EQU CVTA1F1 02225000 CVTPFSW EQU CVTA1F1 02226000 CVTPCVT EQU CVTMAP+352 02227000 CVTRSV46 EQU CVTMAP+344 02228000 CVTRSV45 EQU CVTMAP+340 02229000 CVTRSV44 EQU CVTMAP+338 02230000 CVTRSV43 EQU CVTMAP+336 02231000 CVTHJESA EQU CVTHJES+1 02232000 CVTRSV42 EQU CVTHJES 02233000 CVTEXT2A EQU CVTEXT2+1 02234000 CVTRSV41 EQU CVTEXT2 02235000 CVTAPFA EQU CVTAPF+1 02236000 CVTRSV40 EQU CVTAPF 02237000 CVTRV518 EQU CVTINTLA 02238000 CVTRV517 EQU CVTERPV 02239000 CVTEORM EQU CVTMAP+312 02240000 CVTMCHPR EQU CVTMAP+308 02241000 CVTTZ EQU CVTMAP+304 02242000 CVTJEPS EQU CVTMAP+300 02243000 CVTJESCT EQU CVTMAP+296 02244000 CVTMODE EQU CVTMAP+292 02245000 CVTPTRV EQU CVTMAP+288 02246000 CVTREAL EQU CVTMAP+284 02247000 CVTRSV39 EQU CVTMAP+280 02248000 CVTRSV38 EQU CVTMAP+276 02249000 CVTDMSRA EQU CVTDMSR+1 02250000 CVTRV634 EQU CVTDMSRF 02251000 CVTRV633 EQU CVTDMSRF 02252000 CVTRV632 EQU CVTDMSRF 02253000 CVTRV631 EQU CVTDMSRF 02254000 CVTRV630 EQU CVTDMSRF 02255000 CVTRV629 EQU CVTDMSRF 02256000 CVTUDUMP EQU CVTDMSRF 02257000 CVTSDUMP EQU CVTDMSRF 02258000 CVTQMSGA EQU CVTQMSG+1 02259000 CVTRSV36 EQU CVTQMSG 02260000 CVTAMFF EQU CVTMAP+264 02261000 CVTPURGA EQU CVTPURG+1 02262000 CVTRSV35 EQU CVTPURG 02263000 CVTCBSP EQU CVTMAP+256 02264000 CVTATERA EQU CVTATER+1 02265000 CVTSYST EQU CVTATER 02266000 CVTVOLT2 EQU CVTTAT 02267000 CVTVOLI2 EQU CVTVOLF2 02268000 CVTAQAVB EQU CVTAQAVT+1 02269000 CVTRSV34 EQU CVTTCMFG 02270000 CVTRSV33 EQU CVTTCMFG 02271000 CVTRSV32 EQU CVTTCMFG 02272000 CVTRSV31 EQU CVTTCMFG 02273000 CVTRSV30 EQU CVTTCMFG 02274000 CVTRSV29 EQU CVTTCMFG 02275000 CVTRSV28 EQU CVTTCMFG 02276000 CVTTCRDY EQU CVTTCMFG 02277000 CVTGTFA EQU CVTGTF+1 02278000 CVTRSV27 EQU CVTGTFST 02279000 CVTRNIO EQU CVTGTFST 02280000 CVTUSR EQU CVTGTFST 02281000 CVTRV318 EQU CVTFORM 02282000 CVTRV317 EQU CVTTMODE 02283000 CVTRV316 EQU CVTSTATE 02284000 CVTRV315 EQU CVTGTFS 02285000 CVTGTFAV EQU CVTGTFS 02286000 CVT0SCR1 EQU CVTMAP+232 02287000 CVTRV515 EQU CVTMAP+228 02288000 CVTRMS EQU CVTMAP+224 02289000 CVTPATCH EQU CVTMAP+220 02290000 CVTTSCE EQU CVTMAP+216 02291000 CVTLNKSC EQU CVTMAP+214 02292000 CVTQABST EQU CVTMAP+212 02293000 CVTMDLDS EQU CVTMAP+208 02294000 CVTUSER EQU CVTMAP+204 02295000 CVTABEND EQU CVTMAP+200 02296000 CVTSMCA EQU CVTMAP+196 02297000 CVTRSV18 EQU CVTMAP+192 02298000 CVTQLPAQ EQU CVTMAP+188 02299000 CVTQCDSR EQU CVTMAP+184 02300000 CVTRSV17 EQU CVTOPTB 02301000 CVTRSV16 EQU CVTOPTB 02302000 CVTFP EQU CVTOPTB 02303000 CVTAPTHR EQU CVTOPTB 02304000 CVTNLOG EQU CVTOPTB 02305000 CVTTOD EQU CVTOPTB 02306000 CVTCTIMS EQU CVTOPTB 02307000 CVTPROT EQU CVTOPTB 02308000 CVTXPFP EQU CVTOPTA 02309000 CVTASCII EQU CVTOPTA 02310000 CVTRSV13 EQU CVTOPTA 02311000 CVTRSV12 EQU CVTOPTA 02312000 CVTNIP EQU CVTOPTA 02313000 CVTDDR EQU CVTOPTA 02314000 CVTAPR EQU CVTOPTA 02315000 CVTCCH EQU CVTOPTA 02316000 CVTSNCTR EQU CVTMAP+180 02317000 CVTQMWR EQU CVTMAP+176 02318000 CVTQOCR EQU CVTMAP+172 02319000 CVT1EF00 EQU CVTMAP+168 02320000 CVTMZ00 EQU CVTMAP+164 02321000 CVTHEAD EQU CVTMAP+160 02322000 CVTRSV11 EQU CVTMAP+156 02323000 CVT0PT01 EQU CVTMAP+152 02324000 CVTMSER EQU CVTMAP+148 02325000 CVTRV516 EQU CVTIERLC 02326000 CVTILCH EQU CVTMAP+140 02327000 CVT0DS EQU CVTMAP+136 02328000 CVTFBOSV EQU CVTMAP+132 02329000 CVTNUCB EQU CVTMAP+128 02330000 CVTIXAVL EQU CVTMAP+124 02331000 CVTIOQET EQU CVTMAP+120 02332000 CVTDCBA EQU CVTMAP+117 02333000 CVTMVS2 EQU CVTDCB 02334000 CVT6DAT EQU CVTDCB 02335000 CVT4MPS EQU CVTDCB 02336000 CVTRSV09 EQU CVTDCB 02337000 CVT4MS1 EQU CVTDCB 02338000 CVT2SPS EQU CVTDCB 02339000 CVT1SSS EQU CVTDCB 02340000 CVTRSV08 EQU CVTDCB 02341000 CVTSTB EQU CVTMAP+112 02342000 CVTQTD00 EQU CVTMAP+108 02343000 CVTQTE00 EQU CVTMAP+104 02344000 CVTCUCB EQU CVTMAP+100 02345000 CVTSJQ EQU CVTMAP+96 02346000 CVTPBLDL EQU CVTMAP+92 02347000 CVTTPC EQU CVTMAP+88 02348000 CVTSVDCB EQU CVTMAP+84 02349000 CVTBRET EQU CVTMAP+82 02350000 CVTEXIT EQU CVTMAP+80 02351000 CVT0FN00 EQU CVTMAP+76 02352000 CVTDARA EQU CVTDAR+1 02353000 CVTRSV07 EQU CVTFLGS1 02354000 CVTRSV06 EQU CVTFLGS1 02355000 CVTRSV05 EQU CVTFLGS1 02356000 CVTRSV04 EQU CVTFLGS1 02357000 CVTRSV03 EQU CVTFLGS1 02358000 CVTRSV02 EQU CVTFLGS1 02359000 CVTRSV01 EQU CVTFLGS1 02360000 CVTDMPLK EQU CVTFLGS1 02361000 CVTXITP EQU CVTMAP+68 02362000 CVTZDTAB EQU CVTMAP+64 02363000 CVTMSLT EQU CVTMAP+60 02364000 CVTDATE EQU CVTMAP+56 02365000 CVTSYSAD EQU CVTMAP+48 02366000 CVTXTLER EQU CVTMAP+44 02367000 CVTILK2 EQU CVTMAP+40 02368000 CVTILK1 EQU CVTMAP+36 02369000 CVTPRLTV EQU CVTMAP+32 02370000 CVTPCNVT EQU CVTMAP+28 02371000 CVT0VL00 EQU CVTMAP+24 02372000 CVTXAPG EQU CVTMAP+20 02373000 CVTBUF EQU CVTMAP+16 02374000 CVTJOB EQU CVTMAP+12 02375000 CVTLINK EQU CVTMAP+8 02376000 CVT0EF00 EQU CVTMAP+4 02377000 CVTTCBP EQU CVTMAP 02378000 WSALACHP EQU WSAL+56 02379000 WSALRSM EQU WSAL+52 02380000 WSALEVNT EQU WSAL+48 02381000 WSALSTAE EQU WSAL+44 02382000 WSALSTAT EQU WSAL+40 02383000 WSALWAIT EQU WSAL+36 02384000 WSALPOST EQU WSAL+32 02385000 WSALEXIT EQU WSAL+28 02386000 WSALS2EE EQU WSAL+24 02387000 WSALCIRB EQU WSAL+20 02388000 WSALABTM EQU WSAL+16 02389000 WSALSDMP EQU WSAL+12 02390000 WSALRTM2 EQU WSAL+8 02391000 WSALVALC EQU WSAL+4 02392000 WSALCWSA EQU WSAL 02393000 ASXBEND EQU ASXB+232 02394000 ASXBRV25 EQU ASXB+228 02395000 ASXBRV24 EQU ASXB+224 02396000 ASXBPT0E EQU ASXB+220 02397000 ASXBCRB4 EQU ASXBCASW+3 02398000 ASXBCRB3 EQU ASXBCASW+2 02399000 ASXBCRB2 EQU ASXBCASW+1 02400000 ASXBCR06 EQU ASXBCRB1 02401000 ASXBCR05 EQU ASXBCRB1 02402000 ASXBCR04 EQU ASXBCRB1 02403000 ASXBCR03 EQU ASXBCRB1 02404000 ASXBCR02 EQU ASXBCRB1 02405000 ASXBCR01 EQU ASXBCRB1 02406000 ASXBTFD EQU ASXBCRB1 02407000 ASXBPIP EQU ASXBCRB1 02408000 ASXBCTDC EQU ASXB+212 02409000 ASXBTDCB EQU ASXB+208 02410000 ASXBRV19 EQU ASXB+204 02411000 ASXBSENV EQU ASXBSECR+1 02412000 ASXBRV34 EQU ASCBSFLG 02413000 ASXBRV33 EQU ASCBSFLG 02414000 ASXBRV32 EQU ASCBSFLG 02415000 ASXBRV31 EQU ASCBSFLG 02416000 ASXBRV30 EQU ASCBSFLG 02417000 ASXBRV29 EQU ASCBSFLG 02418000 ASXBRV28 EQU ASCBSFLG 02419000 ASXBRV27 EQU ASCBSFLG 02420000 ASXBUSER EQU ASXB+192 02421000 ASXBLSRB EQU ASXBAEQ+20 02422000 ASXBFSRB EQU ASXBAEQ+16 02423000 ASXBLRQE EQU ASXBAEQ+12 02424000 ASXBFRQE EQU ASXBAEQ+8 02425000 ASXBLIQE EQU ASXBAEQ+4 02426000 ASXBFIQE EQU ASXBAEQ 02427000 ASXBETSK EQU ASXB+164 02428000 ASXBSIRB EQU ASXB+160 02429000 ASXBPSWD EQU ASXB+152 02430000 ASXBPRG EQU ASXB+136 02431000 ASXBRV26 EQU ASXB+132 02432000 ASXBOUSB EQU ASXB+128 02433000 ASXBDDR EQU ASXB+124 02434000 ASXBRCTD EQU ASXB+120 02435000 ASXBRSMD EQU ASXB+116 02436000 ASXBFRWA EQU ASXB+108 02437000 ASXBIHSA EQU ASXB+32 02438000 ASXBRV15 EQU ASXB+28 02439000 ASXBRV14 EQU ASXB+24 02440000 ASXBLWA EQU ASXB+20 02441000 ASXBMPST EQU ASXB+16 02442000 ASXBRS00 EQU ASXB+14 02443000 ASXBTCBS EQU ASXB+12 02444000 ASXBLTCB EQU ASXB+8 02445000 ASXBFTCB EQU ASXB+4 02446000 ASXBASXB EQU ASXB 02447000 ASXBEGIN EQU ASXB 02448000 ASCBEND EQU ASCB+208 02449000 ASCBSRBT EQU ASCB+200 02450000 ASCBSWTL EQU ASCB+196 02451000 ASCBRS14 EQU ASCB+195 02452000 ASCBSMCT EQU ASCB+194 02453000 ASCBRS12 EQU ASCB+192 02454000 ASCBPCTT EQU ASCB+188 02455000 ASCBVGTT EQU ASCB+184 02456000 ASCBLGCB EQU ASCB+180 02457000 ASCBJBNS EQU ASCB+176 02458000 ASCBJBNI EQU ASCB+172 02459000 ASCBMCC EQU ASCB+168 02460000 ASCBRTWA EQU ASCB+164 02461000 ASCBIQEA EQU ASCB+160 02462000 ASCBXMPQ EQU ASCB+156 02463000 ASCBRS01 EQU ASCB+154 02464000 ASCBFMCT EQU ASCB+152 02465000 ASCBOUXB EQU ASCB+148 02466000 ASCBOUCB EQU ASCB+144 02467000 ASCBQECB EQU ASCB+136 02468000 ASCBLSQH EQU ASCBLKGP+4 02469000 ASCBLOCK EQU ASCBLKGP 02470000 ASCBTCBS EQU ASCB+124 02471000 ASCBNVSC EQU ASCB+122 02472000 ASCBVSC EQU ASCB+120 02473000 ASCBSRBS EQU ASCB+118 02474000 ASCBSSRB EQU ASCB+116 02475000 ASCBRV06 EQU ASCBFLG2 02476000 ASCBRV05 EQU ASCBFLG2 02477000 ASCBRV04 EQU ASCBFLG2 02478000 ASCBSNQS EQU ASCBFLG2 02479000 ASCBS2S EQU ASCBFLG2 02480000 ASCBCEXT EQU ASCBFLG2 02481000 ASCBPXMT EQU ASCBFLG2 02482000 ASCBXMPT EQU ASCBFLG2 02483000 ASCBRF07 EQU ASCBDSP1 02484000 ASCBRF06 EQU ASCBDSP1 02485000 ASCBRF05 EQU ASCBDSP1 02486000 ASCBRF04 EQU ASCBDSP1 02487000 ASCBRF03 EQU ASCBDSP1 02488000 ASCBRF02 EQU ASCBDSP1 02489000 ASCBFAIL EQU ASCBDSP1 02490000 ASCBNOQ EQU ASCBDSP1 02491000 ASCBSWCT EQU ASCB+112 02492000 ASCBTMCH EQU ASCB+104 02493000 ASCBNSWP EQU ASCBFLG1 02494000 ASCBTYP1 EQU ASCBFLG1 02495000 ASCBSTND EQU ASCBFLG1 02496000 ASCBABNT EQU ASCBFLG1 02497000 ASCBTERM EQU ASCBFLG1 02498000 ASCBS3S EQU ASCBFLG1 02499000 ASCBCMSH EQU ASCBFLG1 02500000 ASCBTOFF EQU ASCBFLG1 02501000 ASCBRF01 EQU ASCBRCTF 02502000 ASCBTMLW EQU ASCBRCTF 02503000 ASCBOUT EQU ASCBRCTF 02504000 ASCBWAIT EQU ASCBRCTF 02505000 ASCBRV08 EQU ASCBRCTF 02506000 ASCBFQU EQU ASCBRCTF 02507000 ASCBFRS EQU ASCBRCTF 02508000 ASCBTMNO EQU ASCBRCTF 02509000 ASCBAFFN EQU ASCBFW1 02510000 ASCBDUMP EQU ASCB+96 02511000 ASCBQSVC EQU ASCB+92 02512000 ASCBUBET EQU ASCB+88 02513000 ASCBECB EQU ASCB+84 02514000 ASCBJSTL EQU ASCB+80 02515000 ASCBEWST EQU ASCB+72 02516000 ASCBEJST EQU ASCB+64 02517000 ASCBRSM EQU ASCB+52 02518000 ASCBLDA EQU ASCB+48 02519000 ASCBSTOR EQU ASCB+44 02520000 ASCBDP EQU ASCB+43 02521000 ASCBRV07 EQU ASCB+42 02522000 ASCBIOSM EQU ASCB+40 02523000 ASCBSEQN EQU ASCB+38 02524000 ASCBCPUS EQU ASCB+32 02525000 ASCBSPL EQU ASCB+28 02526000 ASCBIOSP EQU ASCB+24 02527000 ASCBRV10 EQU ASCB+20 02528000 ASCBRV12 EQU ASCB+16 02529000 ASCBCMSF EQU ASCB+12 02530000 ASCBBWDP EQU ASCB+8 02531000 ASCBFWDP EQU ASCB+4 02532000 ASCBASCB EQU ASCB 02533000 ASCBEGIN EQU ASCB 02534000 @NM00028 EQU PSA+3668 02535000 PSASTAK EQU PSA+3072 02536000 @NM00027 EQU PSA+1048 02537000 PSAUSEND EQU PSA+1048 02538000 PSARV062 EQU PSA+1044 02539000 PSACDAL EQU PSA+1040 02540000 PSAWTCOD EQU PSA+1036 02541000 PSAATCVT EQU PSA+1032 02542000 PSAPCPSW EQU PSA+1024 02543000 PSAPIR2 EQU PSA+1020 02544000 PSARV059 EQU PSA+1018 02545000 PSASVC13 EQU PSA+1016 02546000 PSALSFCC EQU PSA+1012 02547000 PSASFACC EQU PSA+1008 02548000 PSASTOP EQU PSA+992 02549000 PSASTART EQU PSA+976 02550000 PSARSPSW EQU PSA+968 02551000 PSASRPSW EQU PSA+960 02552000 PSARV045 EQU PSA+892 02553000 PSARV044 EQU PSA+888 02554000 PSARV043 EQU PSA+884 02555000 PSARV042 EQU PSA+880 02556000 PSARV041 EQU PSA+876 02557000 PSARV040 EQU PSA+872 02558000 PSARV025 EQU PSA+868 02559000 PSADSSED EQU PSA+868 02560000 PSADSSPR EQU PSA+864 02561000 PSADSSFW EQU PSA+860 02562000 PSADSS14 EQU PSA+856 02563000 PSADSSPP EQU PSA+848 02564000 PSADSSRP EQU PSA+840 02565000 PSADSS05 EQU PSADSSF4 02566000 PSADSS10 EQU PSADSSF4 02567000 PSADSSVE EQU PSADSSF4 02568000 PSADSSDE EQU PSADSSF4 02569000 PSADSSC0 EQU PSADSSF4 02570000 PSADSSIE EQU PSADSSF4 02571000 PSADSS12 EQU PSADSSF4 02572000 PSADSSRC EQU PSADSSF4 02573000 PSARV057 EQU PSADSSF3 02574000 PSARV056 EQU PSADSSF3 02575000 PSARV055 EQU PSADSSF3 02576000 PSADSSMC EQU PSADSSF3 02577000 PSADSSRW EQU PSADSSF3 02578000 PSADSSNM EQU PSADSSF3 02579000 PSADSSES EQU PSADSSF3 02580000 PSADSSGP EQU PSADSSF3 02581000 PSADSSF2 EQU PSADSSFL+1 02582000 PSADSSPI EQU PSADSSF1 02583000 PSADSSOI EQU PSADSSF1 02584000 PSADSSSP EQU PSADSSF1 02585000 PSADSSTP EQU PSADSSF1 02586000 PSADSSDW EQU PSADSSF1 02587000 PSADSSDD EQU PSADSSF1 02588000 PSADSSDM EQU PSADSSF1 02589000 PSADSSMV EQU PSADSSF1 02590000 PSADSSTS EQU PSA+816 02591000 PSADSSWK EQU PSA+812 02592000 PSADSSR3 EQU PSA+808 02593000 PSADSSR2 EQU PSA+804 02594000 PSADSSRS EQU PSA+800 02595000 PSASTOR EQU PSA+796 02596000 PSACPUSA EQU PSA+794 02597000 PSAVSTAP EQU PSA+792 02598000 PSAWKVAP EQU PSA+788 02599000 PSAWKRAP EQU PSA+784 02600000 PSAMCHIC EQU PSA+783 02601000 PSARV061 EQU PSA+782 02602000 PSASYMSK EQU PSA+781 02603000 PSAMCHFL EQU PSA+780 02604000 PSACR0 EQU PSA+776 02605000 PSAPSWSV EQU PSA+768 02606000 PSACLHS EQU PSAHLHI 02607000 PSALKR15 EQU PSALKSA+60 02608000 PSALKR14 EQU PSALKSA+56 02609000 PSALKR13 EQU PSALKSA+52 02610000 PSALKR12 EQU PSALKSA+48 02611000 PSALKR11 EQU PSALKSA+44 02612000 PSALKR10 EQU PSALKSA+40 02613000 PSALKR9 EQU PSALKSA+36 02614000 PSALKR8 EQU PSALKSA+32 02615000 PSALKR7 EQU PSALKSA+28 02616000 PSALKR6 EQU PSALKSA+24 02617000 PSALKR5 EQU PSALKSA+20 02618000 PSALKR4 EQU PSALKSA+16 02619000 PSALKR3 EQU PSALKSA+12 02620000 PSALKR2 EQU PSALKSA+8 02621000 PSALKR1 EQU PSALKSA+4 02622000 PSALKR0 EQU PSALKSA 02623000 PSARV023 EQU PSACLHT+52 02624000 PSALOCAL EQU PSACLHT+48 02625000 PSACMSL EQU PSACLHT+44 02626000 PSAOPTL EQU PSACLHT+40 02627000 PSATPACL EQU PSACLHT+36 02628000 PSATPDNL EQU PSACLHT+32 02629000 PSATPNCL EQU PSACLHT+28 02630000 PSAIOSLL EQU PSACLHT+24 02631000 PSAIOSUL EQU PSACLHT+20 02632000 PSAIOSCL EQU PSACLHT+16 02633000 PSAIOSSL EQU PSACLHT+12 02634000 PSASALCL EQU PSACLHT+8 02635000 PSAASML EQU PSACLHT+4 02636000 PSADISPL EQU PSACLHT 02637000 PSASRSA EQU PSA+636 02638000 PSARV050 EQU PSA+634 02639000 PSADSSGO EQU PSA+633 02640000 PSARECUR EQU PSA+632 02641000 PSAHLHIS EQU PSA+628 02642000 PSAIPCSA EQU PSA+624 02643000 @NM00026 EQU PSA+621 02644000 PSAIPCDM EQU PSA+620 02645000 PSAIPCD EQU PSA+616 02646000 @NM00025 EQU PSA+613 02647000 PSAIPCRM EQU PSA+612 02648000 PSAIPCR EQU PSA+608 02649000 PSAMCHEX EQU PSA+600 02650000 PSAMPSW EQU PSA+592 02651000 PSAEXPS2 EQU PSA+584 02652000 PSAEXPS1 EQU PSA+576 02653000 PSAPIREG EQU PSA+572 02654000 PSARSREG EQU PSA+568 02655000 PSAGPREG EQU PSA+556 02656000 PSARV022 EQU PSASUP4 02657000 PSARV021 EQU PSASUP4 02658000 PSARV020 EQU PSASUP4 02659000 PSARV019 EQU PSASUP4 02660000 PSARV018 EQU PSASUP4 02661000 PSARV017 EQU PSASUP4 02662000 PSARV016 EQU PSASUP4 02663000 PSARV015 EQU PSASUP4 02664000 PSARV014 EQU PSASUP3 02665000 PSARV013 EQU PSASUP3 02666000 PSARV012 EQU PSASUP3 02667000 PSAESTA EQU PSASUP3 02668000 PSASPR EQU PSASUP3 02669000 PSAPSREG EQU PSASUP3 02670000 PSAPI2 EQU PSASUP3 02671000 PSAIOSUP EQU PSASUP3 02672000 PSALCR EQU PSASUP2 02673000 PSARTM EQU PSASUP2 02674000 PSAACR EQU PSASUP2 02675000 PSAIPCE2 EQU PSASUP2 02676000 PSAIPCES EQU PSASUP2 02677000 PSAIPCEC EQU PSASUP2 02678000 PSAGTF EQU PSASUP2 02679000 PSAIPCRI EQU PSASUP2 02680000 PSATYPE6 EQU PSASUP1 02681000 PSATCTL EQU PSASUP1 02682000 PSADISP EQU PSASUP1 02683000 PSALOCK EQU PSASUP1 02684000 PSAPI EQU PSASUP1 02685000 PSAEXT EQU PSASUP1 02686000 PSASVC EQU PSASUP1 02687000 PSAIO EQU PSASUP1 02688000 PSAANEW EQU PSA+544 02689000 PSATNEW EQU PSA+536 02690000 PSALCCAR EQU PSA+532 02691000 PSALCCAV EQU PSA+528 02692000 PSAPCCAR EQU PSA+524 02693000 PSAPCCAV EQU PSA+520 02694000 PSACPULA EQU PSA+518 02695000 PSACPUPA EQU PSA+516 02696000 PSAPSA EQU PSA+512 02697000 FLCHDEND EQU PSA+512 02698000 FLCCRSAV EQU FLCMCLA+280 02699000 FLCGRSAV EQU FLCMCLA+216 02700000 FLCFPSAV EQU FLCMCLA+184 02701000 FLCFLA EQU FLCMCLA+88 02702000 FLCRGNCD EQU FLCMCLA+84 02703000 FLCFSAA EQU FLCFSA+1 02704000 @NM00024 EQU FLCFSA 02705000 @NM00023 EQU FLCMCLA+72 02706000 FLCMCIC EQU FLCMCLA+64 02707000 @NM00022 EQU FLCMCLA+20 02708000 FLCIOAA EQU FLCIOA+1 02709000 @NM00021 EQU FLCIOA 02710000 @NM00020 EQU FLCMCLA+15 02711000 @NM00019 EQU FLCMCLA+14 02712000 @NM00018 EQU FLCMCLA+12 02713000 FLCLCL EQU FLCMCLA+8 02714000 FLCIOELA EQU FLCIOEL+1 02715000 @NM00017 EQU FLCIOEL 02716000 FLCCHNID EQU FLCMCLA 02717000 @NM00016 EQU PSA+160 02718000 FLCMTRCD EQU PSA+157 02719000 @NM00015 EQU PSA+156 02720000 FLCPERA EQU FLCPER+1 02721000 @NM00014 EQU FLCPER 02722000 @NM00013 EQU PSA+151 02723000 FLCPERCD EQU PSA+150 02724000 FLCMCNUM EQU PSA+149 02725000 @NM00012 EQU PSA+148 02726000 FLCTEAA EQU FLCTEA+1 02727000 @NM00011 EQU FLCTEA 02728000 PSAPIPC EQU PSAPICOD 02729000 PSAPIMC EQU PSAPICOD 02730000 PSAPIPER EQU PSAPICOD 02731000 PSARV049 EQU FLCPICOD 02732000 FLCPILCB EQU FLCPIILC 02733000 @NM00010 EQU FLCPIILC 02734000 @NM00009 EQU PSAEPPSW 02735000 FLCSVCN EQU PSAESPSW+2 02736000 FLCSILCB EQU FLCSVILC 02737000 @NM00008 EQU FLCSVILC 02738000 @NM00007 EQU PSAESPSW 02739000 FLCEICOD EQU PSAEEPSW+2 02740000 PSASPAD EQU PSAEEPSW 02741000 @NM00006 EQU PSA+128 02742000 FLCINPSW EQU PSA+120 02743000 FLCMNPSW EQU PSA+112 02744000 FLCPNPSW EQU PSA+104 02745000 FLCSNPSW EQU PSA+96 02746000 FLCENPSW EQU PSA+88 02747000 FLCTRACE EQU PSA+84 02748000 FLCTIMER EQU PSA+80 02749000 FLCCVT2 EQU PSA+76 02750000 FLCCAW EQU PSA+72 02751000 FLCCSW EQU PSA+64 02752000 FLCIOPSW EQU PSA+56 02753000 FLCMOPSW EQU PSA+48 02754000 FLCPOPSW EQU PSA+40 02755000 FLCSOPSW EQU PSA+32 02756000 FLCEOPSW EQU PSA+24 02757000 @NM00005 EQU FLCICCW2+4 02758000 FLCCVT EQU FLCICCW2 02759000 FLCICCW1 EQU FLCROPSW 02760000 FLCIPPSW EQU FLCRNPSW 02761000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02762000 @ENDDATA EQU * 02763000 END IEAVEMCR,(C'PLS1247',0701,76063) 02764000