TITLE 'IEAVEMRQ- MEMORY REQUEST *00001000 ' 00002000 IEAVEMRQ CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEAVEMRQ 75.324' 0001 00008000 DROP @15 00009000 @PROLOG ST @14,12(,@13) 0001 00010000 STM @00,@12,20(@13) 0001 00011000 BALR @09,0 0001 00012000 @PSTART DS 0H 0001 00013000 USING @PSTART,@09 0001 00014000 L @00,@SIZDATD 0001 00015000 GETMAIN R,LV=(0) 00016000 LR @10,@01 0001 00017000 USING @DATD,@10 0001 00018000 LM @00,@01,20(@13) 0001 00019000 * PRMPTR=ADDR(ESTPARM); /* INITIALIZE PTR TO ESTAE PARM */ 00020000 LA @12,ESTPARM 0105 00021000 ST @12,PRMPTR 0105 00022000 * ASVTPTR=CVTASVT; /* SET UP ASVT ADDRESS */ 00023000 L @11,CVTPTR 0106 00024000 L ASVTPTR,CVTASVT(,@11) 0106 00025000 * CSCBPTR=ADDRCSCB; /* PICK UP CSCB PTR */ 00026000 MVC CSCBPTR(4),ADDRCSCB(PARMRG) 0107 00027000 * RESPECIFY 0108 00028000 * (PARMRG) UNRSTD; 0108 00029000 * 0109 00030000 */* */ 00031000 */* SET UP ESTAE ENVIRONMENT */ 00032000 */* */ 00033000 * 0109 00034000 * ESTAPRM=''B; /* INITIALIZE PARM AREA TO 0 */ 00035000 XC ESTAPRM(28,@12),ESTAPRM(@12) 0109 00036000 * CODESAV=REG9; /* SAVE CODE REGISTER */ 00037000 ST REG9,CODESAV(,@12) 0110 00038000 * DATASAV=REG10; /* SAVE DATA REGISTER */ 00039000 ST REG10,DATASAV(,@12) 0111 00040000 * SAVADDR=SAVPTR; /* SAVE SAVE AREA ADDRESS IN 0112 00041000 * ESTAE PARAMETER AREA */ 00042000 ST SAVPTR,SAVADDR(,@12) 0112 00043000 * RESPECIFY 0113 00044000 * (ESTAPTR) RSTD; 0113 00045000 * ESTAPTR=ADDR(PRMLST); /* SET UP ADDRESS OF PARM AREA */ 00046000 LA ESTAPTR,PRMLST 0114 00047000 * ESTA=ESTAELST; /* MOVE LIST FORM OF MACRO TO 0115 00048000 * GOTTEN CORE */ 00049000 MVC ESTA(16,ESTAPTR),ESTAELST 0115 00050000 * RESPECIFY 0116 00051000 * WRKRG1 RSTD; 0116 00052000 * WRKRG1=ADDR(ESTAPRM); /* ADDRESS OF PARM AREA */ 00053000 LR WRKRG1,@12 0117 00054000 * GENERATE REFS(ESTAPTR,WRKRG1); 0118 00055000 * /* ISSUE ESTAE MACRO */ 00056000 ESTAE PARAM=(WRKRG1),MF=(E,(ESTAPTR)), *00057000 RELATED=(MRQESTAE,IEAVEMRQ) 00058000 * RESPECIFY 0119 00059000 * (ESTAPTR, 0119 00060000 * WRKRG1) UNRSTD; 0119 00061000 * 0120 00062000 */* */ 00063000 */* GET CORE FOR ASCB AND SPL */ 00064000 */* */ 00065000 */* ASCB AND LSPL MUST BE CONTIGUOUS AS OF PTM VS06241 @YM06241*/ 00066000 */* LSPL ADDRESS MUST BE ADDRESS OF ASCB + LENGTH(ASCB) @YM06241*/ 00067000 */* */ 00068000 * 0120 00069000 * RESPECIFY 0120 00070000 * (LENREG, 0120 00071000 * ADDRREG, 0120 00072000 * RTNCDERG) RSTD; 0120 00073000 * LENREG=LENGTH(ASCB)+LENGTH(LSPL)+LENGTH(ASCRLIST); 0121 00074000 * 0121 00075000 LA LENREG,232 0121 00076000 * /*****************************************************************/ 00077000 * /* */ 00078000 * /* LENGTH FOR GETMAIN @ZA04120*/ 00079000 * /* */ 00080000 * /*****************************************************************/ 00081000 * 0122 00082000 * LENASCB=LENREG; /* SAVE LENGTH IN PARM AREA */ 00083000 L @14,PRMPTR 0122 00084000 STH LENREG,LENASCB(,@14) 0122 00085000 * GENERATE; 0123 00086000 GETMAIN RC,LV=(LENREG),SP=245, *00087000 RELATED=(SP245-216,IEAVEMDL,IEAVEMRQ) 00088000 * /* GET CORE FOR ASCB AND SPL FROM 00089000 * SQA - SUBPOOL 245 */ 00090000 * IF RTNCDERG=RTNCDE4 THEN /* ERROR EXIT IF GETMAIN FAILED */ 00091000 CH RTNCDERG,@CH00042 0124 00092000 BNE @RF00124 0124 00093000 * DO; /* EXIT */ 00094000 * GENERATE; 0126 00095000 * /* CANCEL ESTAE */ 00096000 ESTAE 0,RELATED=(MRQESTAE,IEAVEMRQ) 00097000 * /* SET RETURN CODE TO 8 */ 00098000 * RETURN CODE(RTNCDE8); /* RETURN TO CALLER */ 00099000 L @00,@SIZDATD 0127 00100000 LR @01,@10 0127 00101000 FREEMAIN R,LV=(0),A=(1) 00102000 LA @15,8 0127 00103000 L @14,12(,@13) 0127 00104000 LM @00,@12,20(@13) 0127 00105000 BR @14 0127 00106000 * END; 0128 00107000 * RESPECIFY 0129 00108000 * (LENREG, 0129 00109000 * RTNCDERG) UNRSTD; 0129 00110000 @RF00124 DS 0H 0130 00111000 * 0130 00112000 */* */ 00113000 */* INITIALIZE ASCB & SPL */ 00114000 */* */ 00115000 * 0130 00116000 * ADDRASCB=ADDRREG; /* INDICATE GETMAIN DONE */ 00117000 L @12,PRMPTR 0130 00118000 ST ADDRREG,ADDRASCB(,@12) 0130 00119000 * ASCBPTR=ADDRREG; /* SET UP ADDRESS OF ASCB */ 00120000 ST ADDRREG,ASCBPTR 0131 00121000 * LSPLPTR=ADDRREG+LENGTH(ASCB); /* CALCULATE ADDR OF SPL */ 00122000 LA @12,208 0132 00123000 ALR @12,ADDRREG 0132 00124000 ST @12,LSPLPTR 0132 00125000 * RESPECIFY 0133 00126000 * (ADDRREG) UNRSTD; 0133 00127000 * ASCB=''B; /* ZERO OUT ASCB */ 00128000 L @11,ASCBPTR 0134 00129000 XC ASCB(208,@11),ASCB(@11) 0134 00130000 * ASCBASCB=IDASCB; /* INITIALIZE ACRONYM - ASCB- */ 00131000 MVC ASCBASCB(4,@11),@CC01654 0135 00132000 * ASCBSSRB=STOPSRB; /* INDICATE STATUS STOP SRBS */ 00133000 LA @15,1 0136 00134000 STH @15,ASCBSSRB(,@11) 0136 00135000 * ASCBCSCB=CSCBPTR; /* INITIALIZE CSCB ADDRESS */ 00136000 MVC ASCBCSCB(4,@11),CSCBPTR 0137 00137000 * ASCBSPL=LSPLPTR; /* INITIALIZE SPL ADDRESS */ 00138000 ST @12,ASCBSPL(,@11) 0138 00139000 * ASCBAFFN=AFFNBITS; /* INITIALIZE CPU AFFINITY */ 00140000 MVC ASCBAFFN(2,@11),@CB01660 0139 00141000 * ASCBNOQ=BITON; /* ASCB NOT ON READY QUEUE */ 00142000 OI ASCBNOQ(@11),B'10000000' 0140 00143000 * ASCBTOFF=BITON; /* INDICATE NO JOB STEP TIMING */ 00144000 OI ASCBTOFF(@11),B'10000000' 0141 00145000 * ASCBDP=252; /* DISPATCHING PRIORITY @ZA07475*/ 00146000 MVI ASCBDP(@11),X'FC' 0142 00147000 * LSPL=''B; /* ZERO OUT LSPL */ 00148000 XC LSPL(16,@12),LSPL(@12) 0143 00149000 * 0144 00150000 */* */ 00151000 */* SET UP LOCKED ENVIRONMENT */ 00152000 */* */ 00153000 */* MEMORY REQUEST MUST BE FIXED WHILE HOLDING THE GLOBAL DISPATCHER */ 00154000 */* LOCK PAGE FAULTS CANNOT BE HANDLED. THEREFORE, THE PAGE IS */ 00155000 */* FIXED, THE LOCK IS OBTAINED, AND AN FRR IS ESTABLISHED WHILE */ 00156000 */* HOLDING THE LOCK */ 00157000 */* */ 00158000 * 0144 00159000 * RESPECIFY 0144 00160000 * (ECBRG, 0144 00161000 * RTNCDERG, 0144 00162000 * WRKRG1, 0144 00163000 * WRKRG2) RSTD; 0144 00164000 * ECBRG=ADDR(ASCBMECB); /* ADDRESS OF ECB TO BE POSTED */ 00165000 LA @14,ASCBMECB(,@11) 0145 00166000 LR ECBRG,@14 0145 00167000 * ECBLIST=ADDR(ASCBMECB); /* SET UP ECB ADDRESS */ 00168000 ST @14,ECBLIST 0146 00169000 * LASTBIT=BITON; /* INDICATE LAST IN LIST */ 00170000 OI LASTBIT,B'10000000' 0147 00171000 * WRKRG1=ADDR(IEAVEMRQ); /* BEGINNING OF AREA TO BE FIXED */ 00172000 L WRKRG1,@CA00028 0148 00173000 * WRKRG2=1+ADDR(@ENDDATA); /* ADDR OF END OF RTN */ 00174000 LA @14,1 0149 00175000 LA WRKRG2,@ENDDATA 0149 00176000 ALR WRKRG2,@14 0149 00177000 * GENERATE REFS(ECBRG,WRKRG1,WRKRG2); 0150 00178000 * /* FIX MODULE */ 00179000 * FIX ENTIRE MODULE- IEAVEMRQ 00180000 PGFIX R,A=(WRKRG1),EA=(WRKRG2),ECB=(ECBRG),LONG=N, *00181000 RELATED=(IEAVEMRQ-@ENDDATA,IEAVEMRQ) 00182000 * IF RTNCDERG=RTNCDE8 /* PGFIX INDICATE WAIT ? */ 00183000 * THEN 0151 00184000 CH RTNCDERG,@CH00069 0151 00185000 BNE @RF00151 0151 00186000 * DO; /* YES, ISSUE WAIT */ 00187000 * GENERATE REFS(ECBLIST); 0153 00188000 * /* LIST FORM OF WAIT MACRO */ 00189000 WAIT ECBLIST=ECBLIST, WAIT UNTIL PAGE IS FIXED *00190000 RELATED=(ASCBMECB,PGFIX) 00191000 * END; 0154 00192000 * ASCBMECB=0; /* CLEAR ECB */ 00193000 @RF00151 L @14,ASCBPTR 0155 00194000 SLR @12,@12 0155 00195000 ST @12,ASCBMECB(,@14) 0155 00196000 * WRKRG1=ADDR(@DATD); /* GET ADDRESS OF DATA AREA */ 00197000 LA @12,@DATD 0156 00198000 LR WRKRG1,@12 0156 00199000 * WRKRG2=ADDR(@DATD)+@SIZDATD; /* ENDING ADDRESS OF DATA 0157 00200000 * @YM02231*/ 00201000 AL @12,@SIZDATD 0157 00202000 LR WRKRG2,@12 0157 00203000 * ECBRG=ADDR(ASCBMECB); /* ADDRESS OF ECB TO BE POSTED */ 00204000 LA ECBRG,ASCBMECB(,@14) 0158 00205000 * GENERATE REFS(ECBRG,WRKRG1,WRKRG2); 0159 00206000 * /* FIX DATA AREA */ 00207000 PGFIX R,A=(WRKRG1),EA=(WRKRG2),ECB=(ECBRG),LONG=N, *00208000 RELATED=(@DATD,IEAVEMRQ) 00209000 * IF RTNCDERG=RTNCDE8 /* PGFIX INDICATE WAIT ? */ 00210000 * THEN 0160 00211000 CH RTNCDERG,@CH00069 0160 00212000 BNE @RF00160 0160 00213000 * DO; /* YES, ISSUE WAIT */ 00214000 * GENERATE REFS(ECBLIST); 0162 00215000 * /* LIST FORM OF WAIT MACRO */ 00216000 WAIT ECBLIST=ECBLIST, WAIT UNTIL PAGE IS FIXED *00217000 RELATED=(ASCBMECB,PGFIX) 00218000 * END; 0163 00219000 * RTNFIXED=BITON; /* INDICATE ROUTINE FIXED */ 00220000 @RF00160 L @14,PRMPTR 0164 00221000 OI RTNFIXED(@14),B'01000000' 0164 00222000 * RESPECIFY 0165 00223000 * (REGFRR, 0165 00224000 * EXITADDR, 0165 00225000 * REG11, 0165 00226000 * REG12, 0165 00227000 * REG14) RSTD; 0165 00228000 * EXITADDR=ADDR(MRQFRR); /* ADDRESS OF FRR ROUTINE */ 00229000 * 0166 00230000 LA EXITADDR,MRQFRR 0166 00231000 * /*****************************************************************/ 00232000 * /* */ 00233000 * /* GET GLOBAL DISPATCHER LOCK AND ESTABLISH FRR */ 00234000 * /* */ 00235000 * /*****************************************************************/ 00236000 * 0167 00237000 * GENERATE REFS(PSALITA,PSACSTK,WRKRG1,WRKRG2,FRRS,FRRSCURR,PSALSFCC, 00238000 * FRRSLAST,FRRSELEN,FRRSPARM,EXITADDR,FRRSFRRA,REGFRR); 0167 00239000 * OBTAIN GLOBAL DISPATCHER LOCK 00240000 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, *00241000 RELATED=(DISPATCHER,IEAVEMRQ) 00242000 * ESTABLISH FRR WHILE HOLDING LOCK 00243000 SETFRR A,FRRAD=(EXITADDR),PARMAD=(REGFRR), *00244000 WRKREGS=(WRKRG1,WRKRG2),RELATED=(MRQFRR,IEAVEMRQ) 00245000 * RESPECIFY 0168 00246000 * (RTNCDERG, 0168 00247000 * ECBRG, 0168 00248000 * WRKRG2, 0168 00249000 * EXITADDR, 0168 00250000 * REG11, 0168 00251000 * REG12, 0168 00252000 * REG14) UNRSTD; 0168 00253000 * ADDRESTA=ADDR(ESTAPRM); /* INITIALIZE ADDR OF ESTAE PARM */ 00254000 L @12,PRMPTR 0169 00255000 ST @12,ADDRESTA(,REGFRR) 0169 00256000 * SAVPTR=SAVADDR; /* RESTORE SAVE AREA ADDRESS */ 00257000 L SAVPTR,SAVADDR(,@12) 0170 00258000 * ASCBMECB=0; /* CLEAR ECB */ 00259000 L @12,ASCBPTR 0171 00260000 SLR @11,@11 0171 00261000 ST @11,ASCBMECB(,@12) 0171 00262000 * 0172 00263000 */* */ 00264000 */* ASSIGN AN ASID */ 00265000 */* */ 00266000 * 0172 00267000 * IF ASVTFRST=NOASIDS THEN /* IF NO AVAILABLE ENTRIES, THEN */ 00268000 CLC ASVTFRST(4,ASVTPTR),NOASIDS 0172 00269000 BNE @RF00172 0172 00270000 * DO; /* RELEASE LOCK, SET A RETURN 0173 00271000 * CODE OF 4 AND RETURN */ 00272000 */* ERROR EXIT FOR CASE WHEN ASID NOT ASSIGNED, PAGE FIXED, 0174 00273000 * LOCK HELD AND ASCB GOTTEN */ 00274000 * 0174 00275000 *ERREXIT1: 0174 00276000 * ; 0174 00277000 ERREXIT1 DS 0H 0175 00278000 * RESPECIFY 0175 00279000 * (WRKRG1, 0175 00280000 * WRKRG2, 0175 00281000 * REG11, 0175 00282000 * REG12, 0175 00283000 * REG14) RSTD; 0175 00284000 * GENERATE REFS(PSALITA,PSACSTK,WRKRG1,WRKRG2,FRRS,FRRSCURR, 0176 00285000 * FRRSEMP,FRRSELEN); 0176 00286000 * DELETE FRR 00287000 SETFRR D,WRKREGS=(WRKRG1,WRKRG2),RELATED=(MRQFRR,IEAVEMRQ) 00288000 * RELEASE DISPATCHER LOCK 00289000 SETLOCK RELEASE,TYPE=DISP,RELATED=(DISPATCHER,IEAVEMRQ) 00290000 * RESPECIFY 0177 00291000 * (REG11, 0177 00292000 * REG12, 0177 00293000 * REG14) UNRSTD; 0177 00294000 * WRKRG1=ADDR(IEAVEMRQ); /* BEGINNING OF AREA TO BE FIXED */ 00295000 L WRKRG1,@CA00028 0178 00296000 * WRKRG2=1+ADDR(@ENDDATA); /* ADDR OF END OF RTN */ 00297000 LA WRKRG2,@ENDDATA 0179 00298000 AH WRKRG2,@CH00048 0179 00299000 * GENERATE REFS(WRKRG1,WRKRG2); 0180 00300000 * RELEASE PAGE FIX 00301000 PGFREE R,A=(WRKRG1),EA=(WRKRG2), *00302000 RELATED=(IEAVEMRQ-@ENDDATA,IEAVEMRQ) 00303000 * WRKRG1=ADDR(@DATD); /* GET ADDRESS OF DATA AREA */ 00304000 LA @12,@DATD 0181 00305000 LR WRKRG1,@12 0181 00306000 * WRKRG2=ADDR(@DATD)+@SIZDATD;/* ENDING ADDRESS OF DATA 0182 00307000 * @YM02231*/ 00308000 AL @12,@SIZDATD 0182 00309000 LR WRKRG2,@12 0182 00310000 * GENERATE REFS(WRKRG1,WRKRG2); 0183 00311000 * /* UNFIX DATA AREA */ 00312000 PGFREE R,A=(WRKRG1),EA=(WRKRG2), *00313000 RELATED=(@DATD,IEAVEMRQ) 00314000 * RESPECIFY 0184 00315000 * (WRKRG1, 0184 00316000 * WRKRG2) UNRSTD; 0184 00317000 * RTNFIXED=BITOFF; /* INDICATE RTN NO LONGER FIXED */ 00318000 L @12,PRMPTR 0185 00319000 NI RTNFIXED(@12),B'10111111' 0185 00320000 * RESPECIFY 0186 00321000 * (LENREG, 0186 00322000 * ADDRREG, 0186 00323000 * RTNCDERG) RSTD; 0186 00324000 * LSPL=''B; /* ZERO LSPL BEFORE FREEING */ 00325000 L @14,LSPLPTR 0187 00326000 XC LSPL(16,@14),LSPL(@14) 0187 00327000 * ASCB=''B; /* ZERO ASCB BEFORE FREEING */ 00328000 L @14,ASCBPTR 0188 00329000 XC ASCB(208,@14),ASCB(@14) 0188 00330000 * LENREG=LENASCB; /* LENGTH OF GOTTEN CORE */ 00331000 LH LENREG,LENASCB(,@12) 0189 00332000 * ADDRREG=ASCBPTR; /* BEGINING ADDRESS OF GOTTEN 0190 00333000 * CORE */ 00334000 LR ADDRREG,@14 0190 00335000 * GENERATE REFS(ADDRREG); 0191 00336000 * /* FREE ASCB & LSPL */ 00337000 * FREE ASCB & SPL 00338000 FREEMAIN RC,LV=(LENREG),A=(ADDRREG),SP=245, *00339000 RELATED=(SP245-216,IEAVEMRQ) 00340000 * ADDRASCB=0; /* INDICATE FREEMIAN DONE */ 00341000 L @14,PRMPTR 0192 00342000 SLR @12,@12 0192 00343000 ST @12,ADDRASCB(,@14) 0192 00344000 * GENERATE; 0193 00345000 * /* CANCEL ESTAE */ 00346000 ESTAE 0,RELATED=(MRQESTAE,IEAVEMRQ) CANCEL ESTAE 00347000 * RESPECIFY 0194 00348000 * (LENREG, 0194 00349000 * ADDRREG, 0194 00350000 * RTNCDERG) UNRSTD; 0194 00351000 * SAVPTR=SAVADDR; /* RESTORE SAVE AREA ADDRESS SET 00352000 * RETURN CODE EQ 8 */ 00353000 L @11,PRMPTR 0195 00354000 L SAVPTR,SAVADDR(,@11) 0195 00355000 * RETURN CODE(RTNCDE8); /* RETURN TO CALLER */ 00356000 L @00,@SIZDATD 0196 00357000 LR @01,@10 0196 00358000 FREEMAIN R,LV=(0),A=(1) 00359000 LA @15,8 0196 00360000 L @14,12(,@13) 0196 00361000 LM @00,@12,20(@13) 0196 00362000 BR @14 0196 00363000 * END; 0197 00364000 * 0197 00365000 */* */ 00366000 */* ASID'S AVAILABLE */ 00367000 */* */ 00368000 * 0198 00369000 *ASSIGNID: /* RETRY ADDRESS FROM FRR 0198 00370000 * @ZA04120*/ 00371000 * ENTYADDR=ASVTFRST; /* SAVE ADDRESS OF ENTRY TO BE 0198 00372000 * ASSIGNED */ 00373000 @RF00172 DS 0H 0198 00374000 ASSIGNID L @12,ASVTFRST(,ASVTPTR) 0198 00375000 L @11,PRMPTR 0198 00376000 ST @12,ENTYADDR(,@11) 0198 00377000 */* CHECK TO SEE IF ASVTFRST CONTAINS A VALID ADDRESS */ 00378000 * 0199 00379000 * IF ASVTAVAI=BITOFF| /* AVAILABLE BIT ON? */ 00380000 * 0199 00381000 * /*****************************************************************/ 00382000 * /* */ 00383000 * /* ENTRY ADDRESS WITHIN RANGE OF ASVT? */ 00384000 * /* */ 00385000 * /*****************************************************************/ 00386000 * 0199 00387000 * (ENTYADDR&'7FFFFFFF'X)ADDR(ASVTENTY(ASVTMAXU)) THEN 0199 00389000 TM ASVTAVAI(ASVTPTR),B'10000000' 0199 00390000 BZ @RT00199 0199 00391000 N @12,@CF01745 0199 00392000 LA @11,ASVTENTY(,ASVTPTR) 0199 00393000 CR @12,@11 0199 00394000 BL @RT00199 0199 00395000 L @11,ASVTMAXU(,ASVTPTR) 0199 00396000 SLA @11,2 0199 00397000 LA @11,ASVTENTY-4(@11,ASVTPTR) 0199 00398000 CR @12,@11 0199 00399000 BNH @RF00199 0199 00400000 @RT00199 DS 0H 0200 00401000 * DO; /* ERROR IN ASVTFRST */ 00402000 * GOTO ERREXIT1; /* NO, CONTINUE WITH ERROR EXIT */ 00403000 B ERREXIT1 0201 00404000 * END; 0202 00405000 * 0203 00406000 */* */ 00407000 */* READY TO ASSIGN ASID */ 00408000 */* */ 00409000 * 0203 00410000 * ASVTFRST=AVLENTRY; /* FIRST AVAILABLE ENTRY HAS BEEN 00411000 * DELETED FROM CHAIN */ 00412000 @RF00199 L @12,PRMPTR 0203 00413000 L @12,ENTYADDR(,@12) 0203 00414000 MVC ASVTFRST(4,ASVTPTR),AVLENTRY(@12) 0203 00415000 * BALTASVT=BITON; /* INDICATE ASVT BEEN ALTERED */ 00416000 OI BALTASVT(REGFRR),B'01000000' 0204 00417000 * ASGNBIT=BITOFF; /* HIGH ORDER BIT 0 INDICATES 0205 00418000 * ASID ASSIGNED */ 00419000 NI ASGNBIT(@12),B'01111111' 0205 00420000 * ASID=(ENTYADDR-ADDR(ASVTFRST))/4;/* CALCULATE ASID */ 00421000 LA @11,ASVTFRST(,ASVTPTR) 0206 00422000 LR @00,@12 0206 00423000 SLR @00,@11 0206 00424000 SRDA @00,32 0206 00425000 D @00,@CF00042 0206 00426000 STH @01,ASID 0206 00427000 * ASCBASID=ASID; /* INITIALIZE ASID IN ASCB */ 00428000 L @12,ASCBPTR 0207 00429000 STH @01,ASCBASID(,@12) 0207 00430000 * CHASID=ASID; /* PUT ASID IN CSCB */ 00431000 L @11,CSCBPTR 0208 00432000 STH @01,CHASID(,@11) 0208 00433000 * RFY 0209 00434000 * (WRKRG1, 0209 00435000 * WRKRG2) RSTD; 0209 00436000 * WRKRG1=CVTASCRL; /* LAST ASCR ELT @ZA04120*/ 00437000 L @11,CVTPTR 0210 00438000 L WRKRG1,CVTASCRL(,@11) 0210 00439000 * WRKRG2=ASCBPTR+LENGTH(ASCB)+LENGTH(LSPL);/* CALCULATE THIS ASCR 00440000 * ADDRESS @ZA04120*/ 00441000 AH @12,@CH01785 0211 00442000 LR WRKRG2,@12 0211 00443000 * WRKRG2->ASCRFWDP=NULL; /* ZERO FORWARD PTR @ZA04120*/ 00444000 SLR @12,@12 0212 00445000 ST @12,ASCRFWDP(,WRKRG2) 0212 00446000 * WRKRG2->ASCRBWDP=WRKRG1; /* BKWD PTR=LAST ELT @ZA04120*/ 00447000 ST WRKRG1,ASCRBWDP(,WRKRG2) 0213 00448000 * IF WRKRG1^=NULL THEN 0214 00449000 CR WRKRG1,@12 0214 00450000 BE @RF00214 0214 00451000 * WRKRG1->ASCRFWDP=WRKRG2; /* CHAIN NEW ELT @ZA04120*/ 00452000 ST WRKRG2,ASCRFWDP(,WRKRG1) 0215 00453000 * ELSE 0216 00454000 * CVTASCRF=WRKRG2; /* QUEUE WAS EMPTY @ZA04120*/ 00455000 B @RC00214 0216 00456000 @RF00214 L @12,CVTPTR 0216 00457000 ST WRKRG2,CVTASCRF(,@12) 0216 00458000 * CVTASCRL=WRKRG2; /* ADJUST TRAILER @ZA04120*/ 00459000 @RC00214 L @12,CVTPTR 0217 00460000 ST WRKRG2,CVTASCRL(,@12) 0217 00461000 * AVLENTRY=ASCBPTR; /* PUT ADDRESS OF ASCB IN ENTRY 00462000 * BEING ASSIGNED */ 00463000 L @12,PRMPTR 0218 00464000 L @11,ENTYADDR(,@12) 0218 00465000 MVC AVLENTRY(4,@11),ASCBPTR 0218 00466000 * ASSIGN=BITON; /* INDICATE ASSIGNING OF ASID 0219 00467000 * COMPLETE */ 00468000 OI ASSIGN(@12),B'00010000' 0219 00469000 * RFY 0220 00470000 * (WRKRG1, 0220 00471000 * WRKRG2) UNRSTD; 0220 00472000 * 0221 00473000 */* */ 00474000 */* NOTIFY SYSTEM RESOURCES MANAGER */ 00475000 */* */ 00476000 * 0221 00477000 * /* RELEASE LOCK FIRST */ 00478000 * RESPECIFY 0221 00479000 * (WRKRG1, 0221 00480000 * WRKRG2, 0221 00481000 * REG11, 0221 00482000 * REG12, 0221 00483000 * REG14) RSTD; 0221 00484000 * GENERATE REFS(PSALITA,PSACSTK,WRKRG1,WRKRG2,FRRS,FRRSCURR,FRRSEMP, 00485000 * FRRSELEN); 0222 00486000 * DELETE FRR 00487000 SETFRR D,WRKREGS=(WRKRG1,WRKRG2),RELATED=(MRQFRR,IEAVEMRQ) 00488000 * RELEASE DISPATCHER LOCK 00489000 SETLOCK RELEASE,TYPE=DISP,RELATED=(DISPATCHER,IEAVEMRQ) 00490000 * RESPECIFY 0223 00491000 * (WRKRG1, 0223 00492000 * WRKRG2, 0223 00493000 * REG11, 0223 00494000 * REG12, 0223 00495000 * REG14, 0223 00496000 * REGFRR) UNRSTD; 0223 00497000 * SAVPTR=SAVADDR; /* RESTORE SAVE AREA ADDRESS */ 00498000 L @11,PRMPTR 0224 00499000 L SAVPTR,SAVADDR(,@11) 0224 00500000 * RESPECIFY 0225 00501000 * (CMDIND) RSTD; 0225 00502000 * IF CHVCD=START THEN /* REG1,HAS COMMAND INDICATOR */ 00503000 L @12,CSCBPTR 0226 00504000 CLI CHVCD(@12),4 0226 00505000 BNE @RF00226 0226 00506000 * CMDIND=STARTIND; /* X'01' INDICATES START CMD */ 00507000 LA CMDIND,1 0227 00508000 * ELSE 0228 00509000 * IF CHVCD=LOGON THEN 0228 00510000 B @RC00226 0228 00511000 @RF00226 L @12,CSCBPTR 0228 00512000 CLI CHVCD(@12),152 0228 00513000 BNE @RF00228 0228 00514000 * CMDIND=LOGONIND; /* X'02' INDICATES LOGIN CMD */ 00515000 LA CMDIND,2 0229 00516000 * ELSE 0230 00517000 * CMDIND=MOUNTIND; /* X'03' INDICATES MOUNT CMD */ 00518000 B @RC00228 0230 00519000 @RF00228 LA CMDIND,3 0230 00520000 * GENERATE REFS(ASID); 0231 00521000 @RC00228 DS 0H 0231 00522000 @RC00226 DS 0H 0231 00523000 * /* CALL THE SRM */ 00524000 SYSEVENT MEMCREAT,ASIDL=ASID 00525000 * IF OPTRC<0 THEN /* IF NOGO FROM SRM, THEN */ 00526000 LTR OPTRC,OPTRC 0232 00527000 BNM @RF00232 0232 00528000 * DO; 0233 00529000 * RESPECIFY 0234 00530000 * (CMDIND) UNRSTD; 0234 00531000 * 0234 00532000 */* ERROR EXIT FOR CASE WHEN ASID ASSIGNED, PAGE FIXED, 0235 00533000 * LOCK NOT HELD, AND ASCB GOTTEN */ 00534000 * 0235 00535000 *SETLOCK3: 0235 00536000 * ; /* PREPARE TO UNASSIGN ASID */ 00537000 SETLOCK3 DS 0H 0236 00538000 * RESPECIFY 0236 00539000 * (WRKRG1, 0236 00540000 * WRKRG2, 0236 00541000 * REG11, 0236 00542000 * REG12, 0236 00543000 * REG14, 0236 00544000 * EXITADDR, 0236 00545000 * REGFRR) RSTD; 0236 00546000 * EXITADDR=ADDR(MRQFRR); /* ADDRESS OF FRR ROUTINE */ 00547000 LA EXITADDR,MRQFRR 0237 00548000 * GENERATE REFS(PSALITA,PSACSTK,WRKRG1,WRKRG2,FRRS,FRRSCURR, 0238 00549000 * FRRSEMP,FRRSELEN,FRRSLAST,FRRSENTR,FRRSFRRA,PSALSFCC, 0238 00550000 * FRRSPARM); 0238 00551000 * NOTE: PAGE STILL FIXED 00552000 * OBTAIN DISPATCHER LOCK 00553000 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, *00554000 RELATED=(DISPATCHER,IEAVEMRQ) 00555000 * ESTABLISH FRR 00556000 SETFRR A,FRRAD=(EXITADDR),PARMAD=(REGFRR), *00557000 WRKREGS=(WRKRG1,WRKRG2),RELATED=(MRQFRR,IEAVEMRQ) 00558000 * RESPECIFY 0239 00559000 * (WRKRG2, 0239 00560000 * REG11, 0239 00561000 * REG12, 0239 00562000 * REG14, 0239 00563000 * EXITADDR) UNRSTD; 0239 00564000 * ADDRESTA=ADDR(ESTAPRM); /* INITIALIZE ADDR OF ESTAE PARM */ 00565000 L @12,PRMPTR 0240 00566000 ST @12,ADDRESTA(,REGFRR) 0240 00567000 * BFRR2=BITON; /* INDICATE SECOND TIME FRR USED */ 00568000 OI BFRR2(REGFRR),B'10000000' 0241 00569000 * SAVPTR=SAVADDR; /* RESTORE SAVE AREA ADDRESS */ 00570000 L SAVPTR,SAVADDR(,@12) 0242 00571000 * 0243 00572000 */* */ 00573000 */* UNASSIGN AN ASID */ 00574000 */* */ 00575000 * 0243 00576000 * RFY 0243 00577000 * (WRKRG1, 0243 00578000 * WRKRG2) RSTD; 0243 00579000 * AVLENTRY=ASVTFRST; /* ENTRY POINT TO NEXT AVAIL */ 00580000 L @12,ENTYADDR(,@12) 0244 00581000 MVC AVLENTRY(4,@12),ASVTFRST(ASVTPTR) 0244 00582000 * ASGNBIT=BITOFF; /* FLAG ENTRY ASSIGNED @ZA04120*/ 00583000 NI ASGNBIT(@12),B'01111111' 0245 00584000 * WRKRG2=ASCBPTR+LENGTH(ASCB)+LENGTH(LSPL);/* GET ASCR ELEMENT 00585000 * ADDR @ZA04120*/ 00586000 LA WRKRG2,224 0246 00587000 AL WRKRG2,ASCBPTR 0246 00588000 * WRKRG1=WRKRG2->ASCRFWDP; /* NEXT ELT ON QUEUE @ZA04120*/ 00589000 L WRKRG1,ASCRFWDP(,WRKRG2) 0247 00590000 * WRKRG2=WRKRG2->ASCRBWDP; /* PREVIOUS ELT ON QUEUE @ZA04120*/ 00591000 L WRKRG2,ASCRBWDP(,WRKRG2) 0248 00592000 * IF WRKRG1^=NULL /* CHECK IF ELT NOT LAST @ZA04120*/ 00593000 * THEN 0249 00594000 LTR WRKRG1,WRKRG1 0249 00595000 BZ @RF00249 0249 00596000 * WRKRG1->ASCRBWDP=WRKRG2; /* RECHAIN PREV. TO NEXT @ZA04120*/ 00597000 ST WRKRG2,ASCRBWDP(,WRKRG1) 0250 00598000 * ELSE 0251 00599000 * CVTASCRL=WRKRG2; /* ELSE FIX TRAILER @ZA04120*/ 00600000 B @RC00249 0251 00601000 @RF00249 L @12,CVTPTR 0251 00602000 ST WRKRG2,CVTASCRL(,@12) 0251 00603000 * IF WRKRG2^=NULL /* CHECK IF ELT NOT FIRST@ZA04120*/ 00604000 * THEN 0252 00605000 @RC00249 LTR WRKRG2,WRKRG2 0252 00606000 BZ @RF00252 0252 00607000 * WRKRG2->ASCRFWDP=WRKRG1; /* RECHAIN NEXT TO PREV. @ZA04120*/ 00608000 ST WRKRG1,ASCRFWDP(,WRKRG2) 0253 00609000 * ELSE 0254 00610000 * CVTASCRF=WRKRG1; /* ELSE FIX HEADER @ZA04120*/ 00611000 B @RC00252 0254 00612000 @RF00252 L @12,CVTPTR 0254 00613000 ST WRKRG1,CVTASCRF(,@12) 0254 00614000 * ASVTFRST=ENTYADDR; /* MAKE ENTRY FIRST AVAILABLE */ 00615000 @RC00252 L @12,PRMPTR 0255 00616000 L @11,ENTYADDR(,@12) 0255 00617000 ST @11,ASVTFRST(,ASVTPTR) 0255 00618000 * ASVTAVAI=BITON; /* SET AVAILABLE FLAG ON@ZA04120 */ 00619000 OI ASVTAVAI(ASVTPTR),B'10000000' 0256 00620000 * ASGNBIT=BITON; /* ENTRY IS AVAILABLE @ZA04120*/ 00621000 OI ASGNBIT(@11),B'10000000' 0257 00622000 * ASSIGN=BITOFF; /* INDICATE ASID NO LONGER 0258 00623000 * ASSIGNED */ 00624000 NI ASSIGN(@12),B'11101111' 0258 00625000 * RESPECIFY 0259 00626000 * (REG11, 0259 00627000 * REG12, 0259 00628000 * REG14) RSTD; 0259 00629000 * GENERATE REFS(PSALITA,PSACSTK,WRKRG1,WRKRG2,FRRS,FRRSCURR, 0260 00630000 * FRRSEMP,FRRSELEN); 0260 00631000 * DELETE FRR 00632000 SETFRR D,WRKREGS=(WRKRG1,WRKRG2),RELATED=(EXITRTN,IEAVEMRQ) 00633000 * RELEASE DISPATCHER LOCK 00634000 SETLOCK RELEASE,TYPE=DISP, *00635000 RELATED=(DISPATCHER,IEAVEMRQ) 00636000 * RESPECIFY 0261 00637000 * (REG11, 0261 00638000 * REG12, 0261 00639000 * REG14, 0261 00640000 * REGFRR) UNRSTD; 0261 00641000 * WRKRG1=ADDR(IEAVEMRQ); /* BEGINNING OF AREA TO BE FIXED */ 00642000 L WRKRG1,@CA00028 0262 00643000 * WRKRG2=1+ADDR(@ENDDATA); /* ADDR OF END OF RTN */ 00644000 LA WRKRG2,@ENDDATA 0263 00645000 AH WRKRG2,@CH00048 0263 00646000 * GENERATE REFS(WRKRG1,WRKRG2); 0264 00647000 PGFREE R,A=(WRKRG1),EA=(WRKRG2), UNFIX PAGE *00648000 RELATED=(IEAVEMRQ-@ENDDATA,IEAVEMRQ) 00649000 * WRKRG1=ADDR(@DATD); /* GET ADDRESS OF DATA AREA */ 00650000 LA @12,@DATD 0265 00651000 LR WRKRG1,@12 0265 00652000 * WRKRG2=ADDR(@DATD)+@SIZDATD;/* ENDING ADDRESS OF DATA 0266 00653000 * @YM02231*/ 00654000 AL @12,@SIZDATD 0266 00655000 LR WRKRG2,@12 0266 00656000 * GENERATE REFS(WRKRG1,WRKRG2); 0267 00657000 * /* UNFIX DATA AREA PAGES */ 00658000 PGFREE R,A=(WRKRG1),EA=(WRKRG2), *00659000 RELATED=(@DATD,IEAVEMRQ) 00660000 * RESPECIFY 0268 00661000 * (WRKRG1, 0268 00662000 * WRKRG2) UNRSTD; 0268 00663000 * RTNFIXED=BITOFF; /* INDICATE RTN NO LONGER FIXED */ 00664000 L @12,PRMPTR 0269 00665000 NI RTNFIXED(@12),B'10111111' 0269 00666000 * 0270 00667000 */* */ 00668000 */* ERROR EXIT TO FREE ASCB */ 00669000 */* */ 00670000 * 0270 00671000 *FREE3: 0270 00672000 * ; 0270 00673000 FREE3 DS 0H 0271 00674000 * SAVPTR=SAVADDR; /* RESTORE SAVE AREA ADDRESS */ 00675000 L @11,PRMPTR 0271 00676000 L SAVPTR,SAVADDR(,@11) 0271 00677000 * RESPECIFY 0272 00678000 * (LENREG, 0272 00679000 * ADDRREG, 0272 00680000 * RTNCDERG, 0272 00681000 * WRKRG1) RSTD; 0272 00682000 * ADDRREG=ASCBPTR; /* BEGINING ADDRESS OF GOTTEN 0273 00683000 * CORE */ 00684000 L @14,ASCBPTR 0273 00685000 LR ADDRREG,@14 0273 00686000 * LSPL=''B; /* ZERO LSPL BEFORE FREEING */ 00687000 L @12,LSPLPTR 0274 00688000 XC LSPL(16,@12),LSPL(@12) 0274 00689000 * ASCB=''B; /* ZERO ASCB BEFORE FREEING */ 00690000 XC ASCB(208,@14),ASCB(@14) 0275 00691000 * WRKRG1=ADDRREG+LENGTH(ASCB)+LENGTH(LSPL);/* GET ASCR ADDRESS 00692000 * @ZA04120*/ 00693000 LA WRKRG1,224 0276 00694000 ALR WRKRG1,ADDRREG 0276 00695000 * WRKRG1->ASCRLIST=''B; /* ZERO ASCR BEFORE FREEING 0277 00696000 * @ZA04120*/ 00697000 XC ASCRLIST(8,WRKRG1),ASCRLIST(WRKRG1) 0277 00698000 * LENREG=LENASCB; /* LENGTH OF GOTTEN CORE */ 00699000 LH LENREG,LENASCB(,@11) 0278 00700000 * GENERATE REFS(ADDRREG); 0279 00701000 * FREE ASCB & SPL 00702000 FREEMAIN RC,LV=(LENREG),A=(ADDRREG),SP=245, *00703000 RELATED=(SP245-216,IEAVEMRQ) 00704000 * ADDRASCB=0; /* INDICATE FREEMAIN DONE */ 00705000 L @14,PRMPTR 0280 00706000 SLR @12,@12 0280 00707000 ST @12,ADDRASCB(,@14) 0280 00708000 * 0281 00709000 */* ERROR EXIT TO CANCEL ESTAE & EXIT WITH RETURN CODE */ 00710000 * 0281 00711000 *ESTAE3: 0281 00712000 * ; 0281 00713000 ESTAE3 DS 0H 0282 00714000 * GENERATE; 0282 00715000 ESTAE 0,RELATED=(MRQESTAE,IEAVEMRQ) CANCEL ESTAE 00716000 * RESPECIFY 0283 00717000 * (LENREG, 0283 00718000 * ADDRREG, 0283 00719000 * RTNCDERG, 0283 00720000 * WRKRG1) UNRSTD; 0283 00721000 * IF RECURSOR=BITON THEN /* IF PREVIOUS ABEND HAS OCCURRED*/ 00722000 L @12,PRMPTR 0284 00723000 TM RECURSOR(@12),B'10000000' 0284 00724000 BNO @RF00284 0284 00725000 * RETURN CODE(RTNCDE12); /* RETURN CODE 12-UNEXPECTED 0285 00726000 * ABEND SET RETURN CODE = 4 */ 00727000 L @00,@SIZDATD 0285 00728000 LR @01,@10 0285 00729000 FREEMAIN R,LV=(0),A=(1) 00730000 LA @15,12 0285 00731000 L @14,12(,@13) 0285 00732000 LM @00,@12,20(@13) 0285 00733000 BR @14 0285 00734000 * RETURN CODE(RTNCDE4); /* RETURN TO CALLER */ 00735000 @RF00284 L @00,@SIZDATD 0286 00736000 LR @01,@10 0286 00737000 FREEMAIN R,LV=(0),A=(1) 00738000 LA @15,4 0286 00739000 L @14,12(,@13) 0286 00740000 LM @00,@12,20(@13) 0286 00741000 BR @14 0286 00742000 * END; 0287 00743000 * 0288 00744000 */* */ 00745000 */* TERMINATE MEMORY REQUEST */ 00746000 */* */ 00747000 * 0288 00748000 * OPTIMZR=BITON; /* INDICATE SRM NOTIFIED */ 00749000 @RF00232 L @12,PRMPTR 0288 00750000 OI OPTIMZR(@12),B'00100000' 0288 00751000 * RESPECIFY 0289 00752000 * (WRKRG1, 0289 00753000 * WRKRG2) RSTD; 0289 00754000 * WRKRG1=ADDR(IEAVEMRQ); /* BEGINNING OF AREA TO BE FIXED */ 00755000 L WRKRG1,@CA00028 0290 00756000 * WRKRG2=1+ADDR(@ENDDATA); /* ADDR OF END OF RTN */ 00757000 LA WRKRG2,@ENDDATA 0291 00758000 AH WRKRG2,@CH00048 0291 00759000 * GENERATE REFS(WRKRG1,WRKRG2); 0292 00760000 * /* UNFIX MODULE */ 00761000 * RELEASE PAGE FIX 00762000 PGFREE R,A=(WRKRG1),EA=(WRKRG2), *00763000 RELATED=(IEAVEMRQ-@ENDDATA,IEAVEMRQ) 00764000 * WRKRG1=ADDR(@DATD); /* GET ADDRESS OF DATA AREA */ 00765000 LA @12,@DATD 0293 00766000 LR WRKRG1,@12 0293 00767000 * WRKRG2=ADDR(@DATD)+@SIZDATD; /* ENDING ADDRESS OF DATA 0294 00768000 * @YM02231*/ 00769000 AL @12,@SIZDATD 0294 00770000 LR WRKRG2,@12 0294 00771000 * GENERATE REFS(WRKRG1,WRKRG2); 0295 00772000 * /* UNFIX DATA AREA */ 00773000 PGFREE R,A=(WRKRG1),EA=(WRKRG2), *00774000 RELATED=(@DATD,IEAVEMRQ) 00775000 * RTNFIXED=BITOFF; /* INDICATE RTN NO LONGER FIXED */ 00776000 L @12,PRMPTR 0296 00777000 NI RTNFIXED(@12),B'10111111' 0296 00778000 * GENERATE; 0297 00779000 * /* CANCEL ESTAE */ 00780000 ESTAE 0,RELATED=(MRQESTAE,IEAVEMRQ) CANCEL ESTAE 00781000 * RESPECIFY 0298 00782000 * (WRKRG1, 0298 00783000 * WRKRG2) UNRSTD; 0298 00784000 * REG0SLOT=ASID; /* PUT ASID IN REG 0 SET RETURN 00785000 * CODE = 0 */ 00786000 LH @12,ASID 0299 00787000 ST @12,REG0SLOT+20(,SAVPTR) 0299 00788000 * RETURN CODE(RTNCDE0); /* RETURN TO CALLER */ 00789000 L @00,@SIZDATD 0300 00790000 LR @01,@10 0300 00791000 FREEMAIN R,LV=(0),A=(1) 00792000 SLR @15,@15 0300 00793000 L @14,12(,@13) 0300 00794000 LM @00,@12,20(@13) 0300 00795000 BR @14 0300 00796000 * 0301 00797000 */* */ 00798000 */* MEMORY REQUEST ESTAE ROUTINE */ 00799000 */* */ 00800000 * 0301 00801000 *MRQESTAE: 0301 00802000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* ESTAE EXIT ROUTINE */ 00803000 MRQESTAE DS 0H 0302 00804000 * DCL 0302 00805000 * RETRYRG REG(0) PTR(31); /* RETRY ADDRESS IF NO SDWA GIVEN*/ 00806000 * RESPECIFY 0303 00807000 * (ADDRREG, 0303 00808000 * RTNREG) RSTD; 0303 00809000 * DO; /* ENTESTAE (REG9,REG10)SAVEAREA( 00810000 * ESTAESA)ERREXIT(NOSDWA) */ 00811000 * 0304 00812000 * /***************************************************************/ 00813000 * /* */ 00814000 * /* ENTRY CODE FOR ESTAE ROUTINE. IF RTCA ALLOCATED THEN RESTORE*/ 00815000 * /* CODE AND DATA REGS FROM START OF USERS PARM LIST, AND */ 00816000 * /* ESTABLISH ADDR TO ESTAE SAVE AREA IF REQUIRED. IF NO RTCA */ 00817000 * /* AVAILABLE THEN BRANCH TO ERROR CODE AFTER ESTABLISHING */ 00818000 * /* ADDRESSABILITY */ 00819000 * /* */ 00820000 * /***************************************************************/ 00821000 * 0305 00822000 * GEN(USING *,GPR15P); 0305 00823000 USING *,GPR15P 00824000 * GEN(CH GPR00F,*+26); /* CHECK IF RTCA ALLOC FAILED */ 00825000 CH GPR00F,*+26 00826000 * GEN(BNE *+24); /* NO,SAVE RTM REGS */ 00827000 BNE *+24 00828000 * GEN(DROP GPR15P); /* DROP LOCAL ADDR */ 00829000 DROP GPR15P 00830000 * GEN(LR GPR15P,GPR02P); /* PTR TO USER PARM LIST */ 00831000 LR GPR15P,GPR02P 00832000 * GEN(L REG9,00(GPR15P)); 0310 00833000 L REG9,00(GPR15P) 00834000 * GEN(L REG10,04(GPR15P)); 0311 00835000 L REG10,04(GPR15P) 00836000 * GEN(LA GPR13P,ESTAESA); /* SET PTR TO ESTAE SA */ 00837000 LA GPR13P,ESTAESA 00838000 * GEN(B NOSDWA); /* BRANCH TO ERROR EXIT */ 00839000 B NOSDWA 00840000 * GEN(DC H'12'); /* NO RTCA AVAIL RC */ 00841000 DC H'12' 00842000 * GEN(STM GPR14P,GPR12F,12(GPR13P));/* GOOD R13, SAVE RTM'S 0315 00843000 * REGS */ 00844000 STM GPR14P,GPR12F,12(GPR13P) 00845000 * GEN(L GPR15P,0(GPR01P)); /* PTR TO USER PARM LIST */ 00846000 L GPR15P,0(GPR01P) 00847000 * GEN(L REG9,00(GPR15P)); 0317 00848000 L REG9,00(GPR15P) 00849000 * GEN(L REG10,04(GPR15P)); 0318 00850000 L REG10,04(GPR15P) 00851000 * GEN(ST GPR13P,ESTAESA+4); /* SET PTR TO RTM SA */ 00852000 ST GPR13P,ESTAESA+4 00853000 * GEN(LA GPR13P,ESTAESA); /* SET PTR TO ESTAE SA */ 00854000 LA GPR13P,ESTAESA 00855000 * END; /* ENTESTAE (REG9,REG10)SAVEAREA( 00856000 * ESTAESA)ERREXIT(NOSDWA) */ 00857000 * RESPECIFY 0322 00858000 * SDWAPTR RSTD; 0322 00859000 * SDWAPTR=ADDRREG; /* SET UP SDWA ADDRESS */ 00860000 LR SDWAPTR,ADDRREG 0323 00861000 * RESPECIFY 0324 00862000 * (ADDRREG, 0324 00863000 * RTNREG) UNRSTD; 0324 00864000 * SDWAMODN=MODNAME; /* MODULE NAME */ 00865000 MVC SDWAMODN(8,SDWAPTR),@CC01663 0325 00866000 * SDWACSCT=MODNAME; /* CSECT NAME */ 00867000 MVC SDWACSCT(8,SDWAPTR),@CC01663 0326 00868000 * SDWAREXN=RECNAME2; /* RECOVERY ROUTINE NAME */ 00869000 MVC SDWAREXN(8,SDWAPTR),@CC01667 0327 00870000 * SDWASR09=REG9; /* SET UP REG 9 FOR RESTORE AT 0328 00871000 * RETRY */ 00872000 ST REG9,SDWASR09(,SDWAPTR) 0328 00873000 * SDWASR10=REG10; /* SET UP REG 10 FOR RESTORE AT 00874000 * RETRY */ 00875000 ST REG10,SDWASR10(,SDWAPTR) 0329 00876000 * GO TO RECOV; /* START RECOVERY PROCESS */ 00877000 B RECOV 0330 00878000 *NOSDWA: 0331 00879000 * ; /* NO SDWA SUPPLIED */ 00880000 NOSDWA DS 0H 0332 00881000 * NOWKAREA=BITON; /* INDICATE NO SDWA GIVEN */ 00882000 L @12,PRMPTR 0332 00883000 OI NOWKAREA(@12),B'00000010' 0332 00884000 * RESPECIFY 0333 00885000 * (RTNREG) RSTD; 0333 00886000 * RTNADDR=RTNREG; /* SAVE RETURN ADDRESS */ 00887000 ST RTNREG,RTNADDR(,@12) 0334 00888000 * RESPECIFY 0335 00889000 * (RTNREG) UNRSTD; 0335 00890000 *RECOV: 0336 00891000 * ; /* START OF RECOVERY CODE */ 00892000 RECOV DS 0H 0337 00893000 * IF RECURSOR=BITON /* IF RECURSIVE ABEND, */ 00894000 * THEN 0337 00895000 L @12,PRMPTR 0337 00896000 TM RECURSOR(@12),B'10000000' 0337 00897000 BNO @RF00337 0337 00898000 * IF NOWKAREA=BITOFF /* SDWA SUPPLIED */ 00899000 * THEN 0338 00900000 TM NOWKAREA(@12),B'00000010' 0338 00901000 BNZ @RF00338 0338 00902000 * DO; /* CONTINUE WITH TERMINATION */ 00903000 * SAVPTR=ESTAESA(2); /* RESTORE REGISTER 13 */ 00904000 L SAVPTR,ESTAESA+4 0340 00905000 * DO; /* SETRP RC(0)RECORD(YES)WKAREA(S 00906000 * DWAPTR)DUMP(NO)REGS(14,12) */ 00907000 * RESPECIFY 0342 00908000 * (GPR00P, 0342 00909000 * GPR01P, 0342 00910000 * GPR14P, 0342 00911000 * GPR15P) RSTD; 0342 00912000 * GPR01P=SDWAPTR; 0343 00913000 LR GPR01P,SDWAPTR 0343 00914000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00915000 MVI SDWARCDE(GPR01P),X'00' 0344 00916000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00917000 OI SDWARCRD(GPR01P),B'10000000' 0345 00918000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 00919000 NI SDWAREQ(GPR01P),B'01111111' 0346 00920000 * GEN(RETURN (14,12)); 0347 00921000 RETURN (14,12) 00922000 * RESPECIFY 0348 00923000 * (GPR00P, 0348 00924000 * GPR01P, 0348 00925000 * GPR14P, 0348 00926000 * GPR15P) UNRSTD; 0348 00927000 * END; 0349 00928000 * END; 0350 00929000 * ELSE 0351 00930000 * DO; /* NO SDWA SUPPLIED */ 00931000 B @RC00338 0351 00932000 @RF00338 DS 0H 0352 00933000 * RESPECIFY 0352 00934000 * (RTNREG) RSTD; 0352 00935000 * RTNREG=RTNADDR; /* RESTORE RETURN ADDRESS */ 00936000 L @12,PRMPTR 0353 00937000 L RTNREG,RTNADDR(,@12) 0353 00938000 * RETURN CODE(RTNCDE0); /* INDICATE CONTINUE WITH 0354 00939000 * TERMINATION */ 00940000 SLR @15,@15 0354 00941000 @EL00002 DS 0H 0354 00942000 @EF00002 DS 0H 0354 00943000 @ER00002 BR @14 0354 00944000 * RESPECIFY 0355 00945000 * (RTNREG) UNRSTD; 0355 00946000 * END; 0356 00947000 * RECURSOR=BITON; /* SET RECURSIVE INDICATOR */ 00948000 @RC00338 DS 0H 0357 00949000 @RF00337 L @12,PRMPTR 0357 00950000 OI RECURSOR(@12),B'10000000' 0357 00951000 * IF PERCFRR=BITOFF /* IF SDUMP NOT ALREADY TAKEN */ 00952000 * THEN 0358 00953000 TM PERCFRR(@12),B'00001000' 0358 00954000 BNZ @RF00358 0358 00955000 * DO; /* THEN ISSUE SDUMP MACRO */ 00956000 * RESPECIFY 0360 00957000 * (PARMRG) RSTD; 0360 00958000 * PARMRG=ADDR(SDUMPLT1); /* SET UP ADDRESS OF SDUMP PARM 00959000 * AREA */ 00960000 LA PARMRG,SDUMPLT1 0361 00961000 * GENERATE REFS(PARMRG); 0362 00962000 SDUMP MF=(E,(PARMRG)) 00963000 * RESPECIFY 0363 00964000 * (PARMRG) UNRSTD; 0363 00965000 * END; 0364 00966000 * IF OPTIMZR=BITON THEN /* BEEN TO SRM ? */ 00967000 @RF00358 L @12,PRMPTR 0365 00968000 TM OPTIMZR(@12),B'00100000' 0365 00969000 BNO @RF00365 0365 00970000 * DO; 0366 00971000 * 0366 00972000 */* */ 00973000 */* NOTIFY SYSTEM RESOURCES MANAGER */ 00974000 */* */ 00975000 * 0367 00976000 * ASCBMECB=''B; /* CLEAR ECB AREA */ 00977000 L @12,ASCBPTR 0367 00978000 XC ASCBMECB(4,@12),ASCBMECB(@12) 0367 00979000 * RESPECIFY 0368 00980000 * (OPTRC) RSTD; 0368 00981000 * GENERATE REFS(ASID); 0369 00982000 * /* CALL THE SRM */ 00983000 SYSEVENT MEMDEL,ASIDL=ASID 00984000 * IF OPTRC=RTNCDE4 THEN /* IF WAIT FROM SRM, THEN */ 00985000 CH OPTRC,@CH00042 0370 00986000 BNE @RF00370 0370 00987000 * DO; 0371 00988000 * RESPECIFY 0372 00989000 * (OPTRC) UNRSTD; 0372 00990000 * ECBLIST=ADDR(ASCBMECB); /* SET UP ECB ADDRESS */ 00991000 L @12,ASCBPTR 0373 00992000 LA @12,ASCBMECB(,@12) 0373 00993000 ST @12,ECBLIST 0373 00994000 * LASTBIT=BITON; /* INDICATE LAST IN LIST */ 00995000 OI LASTBIT,B'10000000' 0374 00996000 * GENERATE; 0375 00997000 * /* ISSUE LIST FORM OF WAIT */ 00998000 WAIT ECBLIST=ECBLIST,RELATED=(ASCBMECB,SRM) 00999000 * END; 0376 01000000 *TESTFIX: 0377 01001000 * ; /* DETERMINE IF ROUTINE FIXED */ 01002000 @RF00370 DS 0H 0377 01003000 TESTFIX DS 0H 0378 01004000 * IF RTNFIXED=BITOFF THEN /* IF ROUTINE NOT FIXED, */ 01005000 L @12,PRMPTR 0378 01006000 TM RTNFIXED(@12),B'01000000' 0378 01007000 BNZ @RF00378 0378 01008000 * DO; /* THEN FIX MODULE & DATA AREA */ 01009000 * RESPECIFY 0380 01010000 * (ECBRG, 0380 01011000 * RTNCDERG, 0380 01012000 * WRKRG1, 0380 01013000 * WRKRG2) RSTD; 0380 01014000 * ECBRG=ADDR(ASCBMECB); /* SET UP ECB ADDRESS FOR PGFIX */ 01015000 L @14,ASCBPTR 0381 01016000 LA ECBRG,ASCBMECB(,@14) 0381 01017000 * ASCBMECB=''B; /* CLEAR OUT ASCBMECB */ 01018000 XC ASCBMECB(4,@14),ASCBMECB(@14) 0382 01019000 * WRKRG1=ADDR(IEAVEMRQ); /* BEGINNING OF AREA TO BE FIXED */ 01020000 L WRKRG1,@CA00028 0383 01021000 * WRKRG2=1+ADDR(@ENDDATA);/* ADDR OF END OF RTN */ 01022000 LA WRKRG2,@ENDDATA 0384 01023000 AH WRKRG2,@CH00048 0384 01024000 * GENERATE REFS(ECBLIST,WRKRG1,WRKRG2,ECBRG); 0385 01025000 * /* FIX MODULE */ 01026000 * FIX ROUTINE 01027000 PGFIX R,A=(WRKRG1),EA=(WRKRG2),ECB=(ECBRG),LONG=N, *01028000 RELATED=(MRQFIXP-MRQTERM,IEAVEMRQ) 01029000 * IF RTNCDERG=RTNCDE8 /* PGFIX INDICATE WAIT ? */ 01030000 * THEN 0386 01031000 CH RTNCDERG,@CH00069 0386 01032000 BNE @RF00386 0386 01033000 * DO; /* YES, ISSUE WAIT */ 01034000 * GENERATE REFS(ECBLIST); 0388 01035000 * /* LIST FORM OF WAIT MACRO */ 01036000 WAIT ECBLIST=ECBLIST, WAIT UNTIL PAGE IS FIXED *01037000 RELATED=(ASCBMECB,PGFIX) 01038000 * END; 0389 01039000 * ASCBMECB=0; /* CLEAR ECB */ 01040000 @RF00386 L @14,ASCBPTR 0390 01041000 SLR @12,@12 0390 01042000 ST @12,ASCBMECB(,@14) 0390 01043000 * WRKRG1=ADDR(@DATD); /* GET ADDRESS OF DATA AREA */ 01044000 LA @12,@DATD 0391 01045000 LR WRKRG1,@12 0391 01046000 * WRKRG2=ADDR(@DATD)+@SIZDATD;/* ENDING ADDRESS OF DATA 0392 01047000 * @YM02231*/ 01048000 AL @12,@SIZDATD 0392 01049000 LR WRKRG2,@12 0392 01050000 * ECBRG=ADDR(ASCBMECB); /* ADDRESS OF ECB TO BE POSTED */ 01051000 LA ECBRG,ASCBMECB(,@14) 0393 01052000 * GENERATE REFS(ECBRG,WRKRG1,WRKRG2); 0394 01053000 * /* FIX DATA AREA */ 01054000 PGFIX R,A=(WRKRG1),EA=(WRKRG2),ECB=(ECBRG),LONG=N, *01055000 RELATED=(@DATD,IEAVEMRQ) 01056000 * IF RTNCDERG=RTNCDE8 /* PGFIX INDICATE WAIT ? */ 01057000 * THEN 0395 01058000 CH RTNCDERG,@CH00069 0395 01059000 BNE @RF00395 0395 01060000 * DO; /* YES, ISSUE WAIT */ 01061000 * GENERATE REFS(ECBLIST); 0397 01062000 * /* LIST FORM OF WAIT MACRO */ 01063000 WAIT ECBLIST=ECBLIST, WAIT UNTIL PAGE IS FIXED *01064000 RELATED=(ASCBMECB,PGFIX) 01065000 * END; 0398 01066000 * RESPECIFY 0399 01067000 * (ECBRG, 0399 01068000 * RTNCDERG, 0399 01069000 * WRKRG1, 0399 01070000 * WRKRG2) UNRSTD; 0399 01071000 @RF00395 DS 0H 0400 01072000 * RTNFIXED=BITON; /* INDICATE ROUTINE FIXED */ 01073000 L @12,PRMPTR 0400 01074000 OI RTNFIXED(@12),B'01000000' 0400 01075000 * END; 0401 01076000 * IF NOWKAREA=BITOFF /* SDWA SUPPLIED */ 01077000 * THEN 0402 01078000 @RF00378 L @12,PRMPTR 0402 01079000 TM NOWKAREA(@12),B'00000010' 0402 01080000 BNZ @RF00402 0402 01081000 * DO; 0403 01082000 * SAVPTR=ESTAESA(2); /* RESTORE REGISTER 13 */ 01083000 L SAVPTR,ESTAESA+4 0404 01084000 * DO; /* SETRP RC(4)RETADDR(SETLOCK3)RE 01085000 * TREGS(YES)DUMP(NO)FRESDWA(YES) 01086000 * RECORD(YES)REGS(14,12)WKAREA(S 01087000 * DWAPTR) */ 01088000 * RESPECIFY 0406 01089000 * (GPR00P, 0406 01090000 * GPR01P, 0406 01091000 * GPR14P, 0406 01092000 * GPR15P) RSTD; 0406 01093000 * GPR01P=SDWAPTR; 0407 01094000 LR GPR01P,SDWAPTR 0407 01095000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 01096000 MVI SDWARCDE(GPR01P),X'04' 0408 01097000 * GPR01P->SDWARTYA=ADDR(SETLOCK3);/* SAVE RETRY ADDRESS */ 01098000 LA @12,SETLOCK3 0409 01099000 ST @12,SDWARTYA(,GPR01P) 0409 01100000 * GPR01P->SDWAFREE='1'B;/* SET FLAG TO FREE SDWA */ 01101000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD INDICATOR */ 01102000 OI SDWAFREE(GPR01P),B'10000100' 0411 01103000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 01104000 NI SDWAREQ(GPR01P),B'01111111' 0412 01105000 * GPR01P->SDWAUPRG='1'B;/* TURN ON RETREGS INDICATOR */ 01106000 OI SDWAUPRG(GPR01P),B'00001000' 0413 01107000 * GEN(RETURN (14,12)); 0414 01108000 RETURN (14,12) 01109000 * RESPECIFY 0415 01110000 * (GPR00P, 0415 01111000 * GPR01P, 0415 01112000 * GPR14P, 0415 01113000 * GPR15P) UNRSTD; 0415 01114000 * END; 0416 01115000 * END; 0417 01116000 * ELSE 0418 01117000 * DO; /* NO SDWA SUPPLIED */ 01118000 B @RC00402 0418 01119000 @RF00402 DS 0H 0419 01120000 * RESPECIFY 0419 01121000 * (RETRYRG, 0419 01122000 * RTNREG) RSTD; 0419 01123000 * RETRYRG=ADDR(SETLOCK3); /* INDICATE RETRY AT SETLOCK3 */ 01124000 LA RETRYRG,SETLOCK3 0420 01125000 * RTNREG=RTNADDR; /* RESTORE RETURN ADDRESS */ 01126000 L @12,PRMPTR 0421 01127000 L RTNREG,RTNADDR(,@12) 0421 01128000 * RETURN CODE(RTNCDE4); /* INDICATE RETRY AT SPECIFIED 0422 01129000 * ADDR */ 01130000 LA @15,4 0422 01131000 BR @14 0422 01132000 * RESPECIFY 0423 01133000 * (RETRYRG, 0423 01134000 * RTNREG) UNRSTD; 0423 01135000 * END; 0424 01136000 * END; 0425 01137000 @RC00402 DS 0H 0426 01138000 * 0426 01139000 */* HAVE NOT BEEN TO SYSTEM RESOURCES MANAGER */ 01140000 * 0426 01141000 * IF ASSIGN=BITON /* IF ASID HAS BEEN ASSIGNED */ 01142000 * THEN 0426 01143000 @RF00365 L @12,PRMPTR 0426 01144000 TM ASSIGN(@12),B'00010000' 0426 01145000 BO @RT00426 0426 01146000 * GOTO TESTFIX; /* THEN UNASSIGN ASID AND FREE 0427 01147000 * ASCB */ 01148000 * IF RTNFIXED=BITON THEN /* ASID NOT ASSIGNED, IF RTN 0428 01149000 * FIXED */ 01150000 TM RTNFIXED(@12),B'01000000' 0428 01151000 BNO @RF00428 0428 01152000 * DO; /* THEN UNFIX PAGES */ 01153000 * RESPECIFY 0430 01154000 * (WRKRG1, 0430 01155000 * WRKRG2) RSTD; 0430 01156000 * WRKRG1=ADDR(IEAVEMRQ); /* BEGINNING OF AREA TO BE FIXED */ 01157000 L WRKRG1,@CA00028 0431 01158000 * WRKRG2=1+ADDR(@ENDDATA); /* ADDR OF END OF RTN */ 01159000 LA WRKRG2,@ENDDATA 0432 01160000 AH WRKRG2,@CH00048 0432 01161000 * GENERATE REFS(WRKRG1,WRKRG2); 0433 01162000 * /* UNFIX MODULE */ 01163000 * RELEASE PAGE FIX 01164000 PGFREE R,A=(WRKRG1),EA=(WRKRG2), *01165000 RELATED=(MRQFIXP-MRQTERM,IEAVEMRQ) 01166000 * WRKRG1=ADDR(@DATD); /* GET ADDRESS OF DATA AREA */ 01167000 LA @12,@DATD 0434 01168000 LR WRKRG1,@12 0434 01169000 * WRKRG2=ADDR(@DATD)+@SIZDATD;/* ENDING ADDRESS OF DATA 0435 01170000 * @YM02231*/ 01171000 AL @12,@SIZDATD 0435 01172000 LR WRKRG2,@12 0435 01173000 * GENERATE REFS(WRKRG1,WRKRG2); 0436 01174000 * /* UNFIX DATA AREA */ 01175000 PGFREE R,A=(WRKRG1),EA=(WRKRG2), *01176000 RELATED=(@DATD,IEAVEMRQ) 01177000 * RESPECIFY 0437 01178000 * (WRKRG1, 0437 01179000 * WRKRG2) UNRSTD; 0437 01180000 * RTNFIXED=BITOFF; /* INDICATE RTN NO LONGER FIXED */ 01181000 L @12,PRMPTR 0438 01182000 NI RTNFIXED(@12),B'10111111' 0438 01183000 * END; 0439 01184000 * IF ADDRASCB=0 THEN /* IF ASCB NOT GOTTEN */ 01185000 @RF00428 L @12,PRMPTR 0440 01186000 ICM @11,15,ADDRASCB(@12) 0440 01187000 BNZ @RF00440 0440 01188000 * DO; /* THEN READY TO EXIT */ 01189000 * IF NOWKAREA=BITOFF /* SDWA SUPPLIED */ 01190000 * THEN 0442 01191000 TM NOWKAREA(@12),B'00000010' 0442 01192000 BNZ @RF00442 0442 01193000 * DO; /* ISSUE SETRP */ 01194000 * SAVPTR=ESTAESA(2); /* RESTORE REGISTER 13 */ 01195000 L SAVPTR,ESTAESA+4 0444 01196000 * DO; /* SETRP RC(4)RETADDR(ESTAE3)RETR 01197000 * EGS(YES)RECORD(YES)REGS(14,12) 01198000 * WKAREA(SDWAPTR)FRESDWA(YES)DUM 01199000 * P(NO) */ 01200000 * RESPECIFY 0446 01201000 * (GPR00P, 0446 01202000 * GPR01P, 0446 01203000 * GPR14P, 0446 01204000 * GPR15P) RSTD; 0446 01205000 * GPR01P=SDWAPTR; 0447 01206000 LR GPR01P,SDWAPTR 0447 01207000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 01208000 MVI SDWARCDE(GPR01P),X'04' 0448 01209000 * GPR01P->SDWARTYA=ADDR(ESTAE3);/* SAVE RETRY ADDRESS */ 01210000 LA @12,ESTAE3 0449 01211000 ST @12,SDWARTYA(,GPR01P) 0449 01212000 * GPR01P->SDWAFREE='1'B;/* SET FLAG TO FREE SDWA */ 01213000 * GPR01P->SDWARCRD='1'B;/* TURN ON RECORD INDICATOR */ 01214000 OI SDWAFREE(GPR01P),B'10000100' 0451 01215000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 01216000 NI SDWAREQ(GPR01P),B'01111111' 0452 01217000 * GPR01P->SDWAUPRG='1'B;/* TURN ON RETREGS INDICATOR */ 01218000 OI SDWAUPRG(GPR01P),B'00001000' 0453 01219000 * GEN(RETURN (14,12)); 0454 01220000 RETURN (14,12) 01221000 * RESPECIFY 0455 01222000 * (GPR00P, 0455 01223000 * GPR01P, 0455 01224000 * GPR14P, 0455 01225000 * GPR15P) UNRSTD; 0455 01226000 * END; 0456 01227000 * END; 0457 01228000 * ELSE 0458 01229000 * DO; /* NO SDWA SUPPLIED */ 01230000 B @RC00442 0458 01231000 @RF00442 DS 0H 0459 01232000 * RESPECIFY 0459 01233000 * (RETRYRG, 0459 01234000 * RTNREG) RSTD; 0459 01235000 * RETRYRG=ADDR(ESTAE3); /* INDICATE RETRY AT ESTAE3 */ 01236000 LA RETRYRG,ESTAE3 0460 01237000 * RTNREG=RTNADDR; /* RESTORE RETURN ADDRESS */ 01238000 L @12,PRMPTR 0461 01239000 L RTNREG,RTNADDR(,@12) 0461 01240000 * RETURN CODE(RTNCDE4); /* INDICATE RETRY AT SPECIFIED 0462 01241000 * ADDR */ 01242000 LA @15,4 0462 01243000 BR @14 0462 01244000 * RESPECIFY 0463 01245000 * (RETRYRG, 0463 01246000 * RTNREG) UNRSTD; 0463 01247000 * END; 0464 01248000 * END; 0465 01249000 @RC00442 DS 0H 0466 01250000 * 0466 01251000 */* ASCB MUST BE FREED, RETRY AT FREEMAIN */ 01252000 * 0466 01253000 * IF NOWKAREA=BITOFF /* SDWA SUPPLIED */ 01254000 * THEN 0466 01255000 @RF00440 L @12,PRMPTR 0466 01256000 TM NOWKAREA(@12),B'00000010' 0466 01257000 BNZ @RF00466 0466 01258000 * DO; /* ISSUE SETRP */ 01259000 * SAVPTR=ESTAESA(2); /* RESTORE REGISTER 13 */ 01260000 L SAVPTR,ESTAESA+4 0468 01261000 * DO; /* SETRP RC(4)RETADDR(FREE3)RETRE 01262000 * GS(YES)RECORD(YES)REGS(14,12)W 01263000 * KAREA(SDWAPTR)FRESDWA(YES)DUMP 01264000 * (NO) */ 01265000 * RESPECIFY 0470 01266000 * (GPR00P, 0470 01267000 * GPR01P, 0470 01268000 * GPR14P, 0470 01269000 * GPR15P) RSTD; 0470 01270000 * GPR01P=SDWAPTR; 0471 01271000 LR GPR01P,SDWAPTR 0471 01272000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 01273000 MVI SDWARCDE(GPR01P),X'04' 0472 01274000 * GPR01P->SDWARTYA=ADDR(FREE3);/* SAVE RETRY ADDRESS */ 01275000 LA @12,FREE3 0473 01276000 ST @12,SDWARTYA(,GPR01P) 0473 01277000 * GPR01P->SDWAFREE='1'B; /* SET FLAG TO FREE SDWA */ 01278000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 01279000 OI SDWAFREE(GPR01P),B'10000100' 0475 01280000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 01281000 NI SDWAREQ(GPR01P),B'01111111' 0476 01282000 * GPR01P->SDWAUPRG='1'B; /* TURN ON RETREGS INDICATOR */ 01283000 OI SDWAUPRG(GPR01P),B'00001000' 0477 01284000 * GEN(RETURN (14,12)); 0478 01285000 RETURN (14,12) 01286000 * RESPECIFY 0479 01287000 * (GPR00P, 0479 01288000 * GPR01P, 0479 01289000 * GPR14P, 0479 01290000 * GPR15P) UNRSTD; 0479 01291000 * END; 0480 01292000 * END; 0481 01293000 * ELSE 0482 01294000 * DO; /* NO SDWA SUPPLIED */ 01295000 B @RC00466 0482 01296000 @RF00466 DS 0H 0483 01297000 * RESPECIFY 0483 01298000 * (RETRYRG, 0483 01299000 * RTNREG) RSTD; 0483 01300000 * RETRYRG=ADDR(FREE3); /* INDICATE RETRY AT FREE3 */ 01301000 LA RETRYRG,FREE3 0484 01302000 * RTNREG=RTNADDR; /* RESTORE RETURN ADDRESS */ 01303000 L @12,PRMPTR 0485 01304000 L RTNREG,RTNADDR(,@12) 0485 01305000 * RETURN CODE(RTNCDE4); /* INDICATE RETRY AT SPECIFIED 0486 01306000 * ADDR */ 01307000 LA @15,4 0486 01308000 BR @14 0486 01309000 * RESPECIFY 0487 01310000 * (RETRYRG, 0487 01311000 * RTNREG) UNRSTD; 0487 01312000 * END; 0488 01313000 * END MRQESTAE; /* END OF ESTAE RECOVERY ROUTINE */ 01314000 B @EL00002 0489 01315000 * 0490 01316000 */* */ 01317000 */* FUNCTIONAL RECOVERY ROUTINE */ 01318000 */* */ 01319000 * 0490 01320000 *MRQFRR: 0490 01321000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* FUNCTIONAL RECOVERY RTN */ 01322000 MRQFRR DS 0H 0491 01323000 * GENERATE REFS(REG9); 0491 01324000 BALR REG9,0 ESTABLISH ADDRESSABILITY @ZA06214 01325000 USING *,REG9 BASE REGISTER NINE @ZA06214 01326000 * RESPECIFY 0492 01327000 * (RTNREG, 0492 01328000 * RTNSAVE) RSTD; /* RESERVE RETURN REG */ 01329000 * RTNSAVE=RTNREG; /* SAVE RETURN ADDR @ZA06214*/ 01330000 LR RTNSAVE,RTNREG 0493 01331000 * RFY 0494 01332000 * RTNREG UNRSTD; 0494 01333000 * RESPECIFY 0495 01334000 * (SDWAPTR, 0495 01335000 * REG0, 0495 01336000 * SAVPTR) RSTD; 0495 01337000 * RESPECIFY 0496 01338000 * ADDRREG RSTD; 0496 01339000 * RESPECIFY 0497 01340000 * PARMFRR BASED(SDWAPARM); 0497 01341000 * SDWAPTR=ADDRREG; /* SET UP POINTER TO SDWA */ 01342000 LR SDWAPTR,ADDRREG 0498 01343000 * RESPECIFY 0499 01344000 * (PARMRG, 0499 01345000 * ASIDRG) RSTD; 0499 01346000 * ASIDRG=PSAAOLD->ASCBASID; /* SET UP CURRENT ASID */ 01347000 L @12,PSAAOLD 0500 01348000 SLR ASIDRG,ASIDRG 0500 01349000 ICM ASIDRG,3,ASCBASID(@12) 0500 01350000 * PARMRG=ADDR(SDUMPLT2); /* SET UP SDUMP PARAMETER */ 01351000 LA PARMRG,SDUMPLT2 0501 01352000 * SAVPTR=REG0; /* SAVE AREA FOR SDUMP @ZA06215*/ 01353000 LR SAVPTR,REG0 0502 01354000 * GENERATE REFS(PARMRG,CVTSDMP); 0503 01355000 SDUMP MF=(E,(PARMRG)),BRANCH=YES,ASID=(ASIDRG) 01356000 * RESPECIFY 0504 01357000 * (PARMRG, 0504 01358000 * ASIDRG, 0504 01359000 * RTNREG, 0504 01360000 * SAVPTR) UNRSTD; 0504 01361000 * SDWAMODN=MODNAME; /* INITIALIZE MODULE NAME */ 01362000 MVC SDWAMODN(8,SDWAPTR),@CC01663 0505 01363000 * SDWACSCT=MODNAME; /* INITIALIZE CSECT NAME */ 01364000 MVC SDWACSCT(8,SDWAPTR),@CC01663 0506 01365000 * SDWAREXN=RECNAME; /* INITIALIZE RECOVERY NAME */ 01366000 MVC SDWAREXN(8,SDWAPTR),@CC01665 0507 01367000 * IF SDWACLUP=BITOFF&RETRY=ZERO&BFRR2=BITOFF/* CHECK IF IT IS SAFE 01368000 * TO RETRY @ZA06216*/ 01369000 * THEN 0508 01370000 TM SDWACLUP(SDWAPTR),B'10000000' 0508 01371000 BNZ @RF00508 0508 01372000 ICM @12,3,RETRY(SDWAPTR) 0508 01373000 BNZ @RF00508 0508 01374000 L @12,SDWAPARM(,SDWAPTR) 0508 01375000 TM BFRR2(@12),B'10000000' 0508 01376000 BNZ @RF00508 0508 01377000 * DO; /* RETRY AT ASSIGN ASID @ZA06216*/ 01378000 * RETREG=RTRYADDR; /* GET RETRY ADDRESS @ZA06216*/ 01379000 L RETREG,RTRYADDR 0510 01380000 * BFRR2=BITON; /* SET RECURSION FLAG @ZA06216*/ 01381000 OI BFRR2(@12),B'10000000' 0511 01382000 * DO; /* SETRP RC(4)RECORD(YES)DUMP(NO) 01383000 * RETADDR(RETREG->ADDRESS)WKAREA 01384000 * (SDWAPTR) */ 01385000 * RESPECIFY 0513 01386000 * (GPR00P, 0513 01387000 * GPR01P, 0513 01388000 * GPR14P, 0513 01389000 * GPR15P) RSTD; 0513 01390000 * GPR01P=SDWAPTR; 0514 01391000 LR GPR01P,SDWAPTR 0514 01392000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 01393000 MVI SDWARCDE(GPR01P),X'04' 0515 01394000 * GPR01P->SDWARTYA=ADDR(RETREG->ADDRESS);/* SAVE RETRY 0516 01395000 * ADDRESS */ 01396000 ST RETREG,SDWARTYA(,GPR01P) 0516 01397000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 01398000 OI SDWARCRD(GPR01P),B'10000000' 0517 01399000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 01400000 NI SDWAREQ(GPR01P),B'01111111' 0518 01401000 * RESPECIFY 0519 01402000 * (GPR00P, 0519 01403000 * GPR01P, 0519 01404000 * GPR14P, 0519 01405000 * GPR15P) UNRSTD; 0519 01406000 * END; 0520 01407000 * END; 0521 01408000 * ELSE /* DON'T RETRY -- PERCOLATE 0522 01409000 * @ZA06216*/ 01410000 * DO; /* SETRP RC(0)RECORD(YES)DUMP(NO) 01411000 * FRELOCK(DISP)WKAREA(SDWAPTR) */ 01412000 B @RC00508 0522 01413000 @RF00508 DS 0H 0523 01414000 * RESPECIFY 0523 01415000 * (GPR00P, 0523 01416000 * GPR01P, 0523 01417000 * GPR14P, 0523 01418000 * GPR15P) RSTD; 0523 01419000 * GPR01P=SDWAPTR; 0524 01420000 LR GPR01P,SDWAPTR 0524 01421000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 01422000 MVI SDWARCDE(GPR01P),X'00' 0525 01423000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 01424000 OI SDWARCRD(GPR01P),B'10000000' 0526 01425000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 01426000 NI SDWAREQ(GPR01P),B'01111111' 0527 01427000 * GPR01P->SDWAACF3=GPR01P->SDWAACF3|'00010000'B;/* INITIALIZE 01428000 * LOCK FLAGS */ 01429000 OI SDWAACF3(GPR01P),B'00010000' 0528 01430000 * RESPECIFY 0529 01431000 * (GPR00P, 0529 01432000 * GPR01P, 0529 01433000 * GPR14P, 0529 01434000 * GPR15P) UNRSTD; 0529 01435000 * END; 0530 01436000 * RESPECIFY 0531 01437000 * (RTNREG, 0531 01438000 * RTNSAVE) RSTD; 0531 01439000 @RC00508 DS 0H 0532 01440000 * RTNREG=RTNSAVE; /* RESTORE RETURN ADDRESS */ 01441000 LR RTNREG,RTNSAVE 0532 01442000 * RETURN; /* RETURN, RETRY AT ASSIGN ASID 01443000 * @ZA06216*/ 01444000 @EL00003 DS 0H 0533 01445000 @EF00003 DS 0H 0533 01446000 @ER00003 BR @14 0533 01447000 * RESPECIFY 0534 01448000 * (RTNREG, 0534 01449000 * RTNSAVE) UNRSTD; 0534 01450000 * END MRQFRR; /* END OF FRR */ 01451000 * DCL 0536 01452000 * PATCHLOC FIXED(31) STATIC; 0536 01453000 * GEN DATA DEFS(PATCHLOC); 0537 01454000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01455000 * GPR00F FIXED(31) REG(0), 0538 01456000 * GPR12F FIXED(31) REG(12), 0538 01457000 * GPR00P PTR(31) REG(0), 0538 01458000 * GPR01P PTR(31) REG(1), 0538 01459000 * GPR02P PTR(31) REG(2), 0538 01460000 * GPR13P PTR(31) REG(13), 0538 01461000 * GPR14P PTR(31) REG(14), 0538 01462000 * GPR15P PTR(31) REG(15); 0538 01463000 * DECLARE /* COMMON VARIABLES */ 01464000 * I256C CHAR(256) BASED, 0539 01465000 * I031F FIXED(31) BASED, 0539 01466000 * I031P PTR(31) BASED, 0539 01467000 * I015F FIXED(15) BASED, 0539 01468000 * I015P PTR(15) BASED, 0539 01469000 * I008P PTR(8) BASED, 0539 01470000 * I001C CHAR(1) BASED; 0539 01471000 * END IEAVEMRQ /* END OF MEMORY REQUEST */ 01472000 * 0540 01473000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01474000 */*%INCLUDE SYSLIB (IHAASVT ) */ 01475000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01476000 */*%INCLUDE SYSLIB (IHASPL ) */ 01477000 */*%INCLUDE SYSLIB (IEECHAIN) */ 01478000 */*%INCLUDE SYSLIB (CVT ) */ 01479000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01480000 */*%INCLUDE SYSLIB (IHAESTA ) */ 01481000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01482000 */*%INCLUDE SYSLIB (IHASDWA ) */ 01483000 * 0540 01484000 * ; 0540 01485000 @EL00001 DS 0H 0540 01486000 @EF00001 L @00,@SIZDATD 0540 01487000 LR @01,@10 0540 01488000 FREEMAIN R,LV=(0),A=(1) 01489000 @ER00001 L @14,12(,@13) 0540 01490000 LM @00,@12,20(@13) 0540 01491000 BR @14 0540 01492000 @DATA DS 0H 01493000 @CH00048 DC H'1' 01494000 @CH00069 DC H'8' 01495000 @CH01785 DC H'224' 01496000 @DATD DSECT 01497000 DS 0F 01498000 IEAVEMRQ CSECT 01499000 DS 0F 01500000 @CF00042 DC F'4' 01501000 @CH00042 EQU @CF00042+2 01502000 @CF01745 DC XL4'7FFFFFFF' 01503000 @DATD DSECT 01504000 DS 0D 01505000 ASCBPTR DS A 01506000 GSPLPTR DS A 01507000 LSPLPTR DS A 01508000 CSCBPTR DS A 01509000 FRRSPTR DS A 01510000 FRREPTR DS A 01511000 PRMPTR DS A 01512000 ECBLIST DS AL4 01513000 ORG ECBLIST 01514000 LASTBIT DS BL1 01515000 ORG ECBLIST+4 01516000 ASID DS H 01517000 DS CL2 01518000 ESTPARM DS CL28 01519000 PRMLST DS CL16 01520000 ESTAESA DS 18A 01521000 IEAVEMRQ CSECT 01522000 DS 0F 01523000 @SIZDATD DC AL1(0) 01524000 DC AL3(@ENDDATD-@DATD) 01525000 @CA00028 DC A(IEAVEMRQ) 01526000 DS 0D 01527000 RTRYADDR DC AL4(ASSIGNID) 01528000 @CC01663 DC C'IEAVEMRQ' 01529000 @CC01665 DC C'MRQFRR ' 01530000 @CC01667 DC C'MRQESTAE' 01531000 @CC01654 DC C'ASCB' 01532000 @CB01660 DC X'FFFF' 01533000 DS CL2 01534000 EMPTY DC X'80000000' 01535000 IEAVEMRQ CSECT 01536000 * /* LIST FORM OF ESTAE */ 01537000 ESTAELST ESTAE MRQESTAE,CT,RECORD=YES,MF=L 01538000 IEAVEMRQ CSECT 01539000 * /* LIST FORM OF SDUMP*/ 01540000 SDUMPLT1 SDUMP SDATA=(ALLPSA,NUC,SQA,LPA,TRT),MF=L, *01541000 HDR='IEAVEMRQ UNEXPECTED ABEND' 01542000 SDUMPLT2 SDUMP SDATA=(ALLPSA,NUC,SQA,LPA,TRT),MF=L, *01543000 HDR='IEAVEMRQ UNEXPECTED ABEND WITH DISPATCHER LOCK' 01544000 IEAVEMRQ CSECT 01545000 DS 0H 01546000 PATCHLOC DC ((@DATA-@PSTART)/20)X'00' 01547000 @DATD DSECT 01548000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01549000 @ENDDATD EQU * 01550000 IEAVEMRQ CSECT 01551000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01552000 @01 EQU 01 01553000 @02 EQU 02 01554000 @03 EQU 03 01555000 @04 EQU 04 01556000 @05 EQU 05 01557000 @06 EQU 06 01558000 @07 EQU 07 01559000 @08 EQU 08 01560000 @09 EQU 09 01561000 @10 EQU 10 01562000 @11 EQU 11 01563000 @12 EQU 12 01564000 @13 EQU 13 01565000 @14 EQU 14 01566000 @15 EQU 15 01567000 ASVTPTR EQU @08 01568000 ESTAPTR EQU @01 01569000 SDWAPTR EQU @04 01570000 LENREG EQU @00 01571000 REG0 EQU @00 01572000 PARMRG EQU @01 01573000 OPTRC EQU @01 01574000 ADDRREG EQU @01 01575000 CMDIND EQU @01 01576000 EXITADDR EQU @02 01577000 WRKRG1 EQU @03 01578000 RETREG EQU @03 01579000 REGFRR EQU @04 01580000 ECBRG EQU @06 01581000 WRKRG2 EQU @07 01582000 ASIDRG EQU @07 01583000 RTNSAVE EQU @08 01584000 REG9 EQU @09 01585000 REG10 EQU @10 01586000 REG11 EQU @11 01587000 REG12 EQU @12 01588000 SAVPTR EQU @13 01589000 REG14 EQU @14 01590000 RTNREG EQU @14 01591000 RTNCDERG EQU @15 01592000 RETRYRG EQU @00 01593000 GPR00P EQU @00 01594000 GPR01P EQU @01 01595000 GPR14P EQU @14 01596000 GPR15P EQU @15 01597000 ASIDREG EQU @00 01598000 GPR00F EQU @00 01599000 GPR02P EQU @02 01600000 GPR12F EQU @12 01601000 GPR13P EQU @13 01602000 REG15 EQU @15 01603000 CVTPTR EQU 16 01604000 PSA EQU 0 01605000 FLCRNPSW EQU PSA 01606000 FLCROPSW EQU PSA+8 01607000 FLCICCW2 EQU PSA+16 01608000 PSAEEPSW EQU PSA+132 01609000 PSAESPSW EQU PSA+136 01610000 FLCSVILC EQU PSAESPSW+1 01611000 PSAEPPSW EQU PSA+140 01612000 FLCPIILC EQU PSAEPPSW+1 01613000 FLCPICOD EQU PSAEPPSW+2 01614000 PSAPICOD EQU FLCPICOD+1 01615000 FLCTEA EQU PSAEPPSW+4 01616000 FLCPER EQU PSA+152 01617000 FLCMCLA EQU PSA+168 01618000 FLCIOEL EQU FLCMCLA+4 01619000 FLCIOA EQU FLCMCLA+16 01620000 FLCFSA EQU FLCMCLA+80 01621000 PSAAOLD EQU PSA+548 01622000 PSASUPER EQU PSA+552 01623000 PSASUP1 EQU PSASUPER 01624000 PSASUP2 EQU PSASUPER+1 01625000 PSASUP3 EQU PSASUPER+2 01626000 PSASUP4 EQU PSASUPER+3 01627000 PSACLHT EQU PSA+640 01628000 PSALKSA EQU PSA+696 01629000 PSAHLHI EQU PSA+760 01630000 PSALITA EQU PSA+764 01631000 PSADSSFL EQU PSA+836 01632000 PSADSSF1 EQU PSADSSFL 01633000 PSADSSF3 EQU PSADSSFL+2 01634000 PSADSSF4 EQU PSADSSFL+3 01635000 PSARSVT EQU PSA+896 01636000 PSALSFCC EQU PSA+1012 01637000 ASVT EQU 0 01638000 ASVTMAXU EQU ASVT+516 01639000 ASVTFRST EQU ASVT+524 01640000 ASVTAVAI EQU ASVTFRST 01641000 ASVTENTY EQU ASVT+528 01642000 ASCB EQU 0 01643000 ASCBASCB EQU ASCB 01644000 ASCBSPL EQU ASCB+28 01645000 ASCBASID EQU ASCB+36 01646000 ASCBDP EQU ASCB+43 01647000 ASCBCSCB EQU ASCB+56 01648000 ASCBFW1 EQU ASCB+100 01649000 ASCBAFFN EQU ASCBFW1 01650000 ASCBRCTF EQU ASCBFW1+2 01651000 ASCBFLG1 EQU ASCBFW1+3 01652000 ASCBTOFF EQU ASCBFLG1 01653000 ASCBDSP1 EQU ASCB+114 01654000 ASCBNOQ EQU ASCBDSP1 01655000 ASCBFLG2 EQU ASCB+115 01656000 ASCBSSRB EQU ASCB+116 01657000 ASCBMECB EQU ASCB+140 01658000 SPLENTRY EQU 0 01659000 GSPL EQU 0 01660000 GSPLNQ EQU GSPL 01661000 GSPLSYS EQU GSPL+8 01662000 LSPL EQU 0 01663000 LSPLNQ EQU LSPL 01664000 LSPLSYS EQU LSPL+8 01665000 CHAIN EQU 0 01666000 CHFLG EQU CHAIN+4 01667000 CHVCD EQU CHFLG 01668000 CHSTS EQU CHFLG+2 01669000 CHACT EQU CHFLG+3 01670000 CHKEY EQU CHAIN+8 01671000 CHPKE EQU CHAIN+28 01672000 CHTJID EQU CHAIN+30 01673000 CHASID EQU CHTJID 01674000 CHPROCSN EQU CHAIN+32 01675000 CHACT1 EQU CHPROCSN+3 01676000 CHASM EQU CHAIN+40 01677000 CHCIBP EQU CHASM+4 01678000 CHRGNSZ EQU CHASM+8 01679000 CHSTEP EQU CHASM+24 01680000 CHSWT EQU CHSTEP 01681000 CHSHORT EQU CHASM+32 01682000 CVTMAP EQU 0 01683000 CVTDAR EQU CVTMAP+72 01684000 CVTFLGS1 EQU CVTDAR 01685000 CVTDCB EQU CVTMAP+116 01686000 CVTIERLC EQU CVTMAP+144 01687000 CVTOPTA EQU CVTMAP+182 01688000 CVTOPTB EQU CVTMAP+183 01689000 CVTGTF EQU CVTMAP+236 01690000 CVTGTFST EQU CVTGTF 01691000 CVTGTFS EQU CVTGTFST 01692000 CVTSTATE EQU CVTGTFST 01693000 CVTTMODE EQU CVTGTFST 01694000 CVTFORM EQU CVTGTFST 01695000 CVTAQAVT EQU CVTMAP+240 01696000 CVTTCMFG EQU CVTAQAVT 01697000 CVTVOLM2 EQU CVTMAP+244 01698000 CVTTATA EQU CVTVOLM2 01699000 CVTTSKS EQU CVTTATA 01700000 CVTVOLF2 EQU CVTTSKS 01701000 CVTTAT EQU CVTTATA+1 01702000 CVTATER EQU CVTMAP+248 01703000 CVTEXT1 EQU CVTMAP+252 01704000 CVTPURG EQU CVTMAP+260 01705000 CVTQMSG EQU CVTMAP+268 01706000 CVTDMSR EQU CVTMAP+272 01707000 CVTERPV EQU CVTMAP+316 01708000 CVTINTLA EQU CVTMAP+320 01709000 CVTAPF EQU CVTMAP+324 01710000 CVTEXT2 EQU CVTMAP+328 01711000 CVTHJES EQU CVTMAP+332 01712000 CVTPGSIA EQU CVTMAP+348 01713000 CVTA1F1 EQU CVTMAP+356 01714000 CVTSYSK EQU CVTMAP+357 01715000 CVTVOLM1 EQU CVTMAP+380 01716000 CVTVOLF1 EQU CVTVOLM1 01717000 CVTATMCT EQU CVTMAP+388 01718000 CVTXTNT1 EQU 0 01719000 CVTXTNT2 EQU 0 01720000 CVTDSSV EQU CVTXTNT2 01721000 CVTFLGBT EQU CVTXTNT2+5 01722000 CVTQID EQU CVTXTNT2+24 01723000 CVTRV400 EQU CVTXTNT2+52 01724000 CVTRV409 EQU CVTXTNT2+53 01725000 CVTATCVT EQU CVTXTNT2+64 01726000 CVTRV429 EQU CVTXTNT2+84 01727000 CVTRV438 EQU CVTXTNT2+85 01728000 CVTRV457 EQU CVTXTNT2+112 01729000 CVTRV466 EQU CVTXTNT2+113 01730000 CVTFIX EQU 0 01731000 CVTRELNO EQU CVTFIX+252 01732000 ESTA EQU 0 01733000 ESTAEXT EQU ESTA 01734000 ESTAFLG1 EQU ESTAEXT 01735000 ESTAIO EQU ESTAFLG1 01736000 ESTAFGRS EQU ESTA+12 01737000 ESTAFLG2 EQU ESTAFGRS 01738000 FRRS EQU 0 01739000 FRRSHEAD EQU FRRS 01740000 FRRSEMP EQU FRRSHEAD 01741000 FRRSLAST EQU FRRSHEAD+4 01742000 FRRSELEN EQU FRRSHEAD+8 01743000 FRRSCURR EQU FRRSHEAD+12 01744000 FRRSENTR EQU 0 01745000 FRRSFRRA EQU FRRSENTR 01746000 FRRSFLGS EQU FRRSENTR+4 01747000 FRRSFLG1 EQU FRRSFLGS 01748000 FRRSPARM EQU FRRSENTR+8 01749000 SDWA EQU 0 01750000 SDWAPARM EQU SDWA 01751000 SDWAFIOB EQU SDWA+4 01752000 SDWAABCC EQU SDWAFIOB 01753000 SDWACMPF EQU SDWAABCC 01754000 SDWAREQ EQU SDWACMPF 01755000 SDWACTL1 EQU SDWA+8 01756000 SDWACMKA EQU SDWACTL1 01757000 SDWAMWPA EQU SDWACTL1+1 01758000 SDWAPMKA EQU SDWACTL1+4 01759000 SDWACTL2 EQU SDWA+16 01760000 SDWACMKP EQU SDWACTL2 01761000 SDWAMWPP EQU SDWACTL2+1 01762000 SDWAPMKP EQU SDWACTL2+4 01763000 SDWAGRSV EQU SDWA+24 01764000 SDWANAME EQU SDWA+88 01765000 SDWAEC1 EQU SDWA+104 01766000 SDWAEMK1 EQU SDWAEC1 01767000 SDWAMWP1 EQU SDWAEC1+1 01768000 SDWAINT1 EQU SDWAEC1+2 01769000 SDWANXT1 EQU SDWAEC1+4 01770000 SDWAAEC1 EQU SDWA+112 01771000 SDWAILC1 EQU SDWAAEC1+1 01772000 SDWAINC1 EQU SDWAAEC1+2 01773000 SDWAICD1 EQU SDWAINC1+1 01774000 SDWAEC2 EQU SDWA+120 01775000 SDWAEMK2 EQU SDWAEC2 01776000 SDWAMWP2 EQU SDWAEC2+1 01777000 SDWAINT2 EQU SDWAEC2+2 01778000 SDWANXT2 EQU SDWAEC2+4 01779000 SDWAAEC2 EQU SDWA+128 01780000 SDWAILC2 EQU SDWAAEC2+1 01781000 SDWAINC2 EQU SDWAAEC2+2 01782000 SDWAICD2 EQU SDWAINC2+1 01783000 SDWASRSV EQU SDWA+136 01784000 SDWASR09 EQU SDWASRSV+36 01785000 SDWASR10 EQU SDWASRSV+40 01786000 SDWAIDNT EQU SDWA+200 01787000 SDWAMCH EQU SDWA+204 01788000 SDWASTCK EQU SDWAMCH 01789000 SDWAMCHI EQU SDWAMCH+8 01790000 SDWAMCHS EQU SDWAMCHI 01791000 SDWAMCHD EQU SDWAMCHI+1 01792000 SDWARSR1 EQU SDWAMCH+12 01793000 SDWARSR2 EQU SDWAMCH+13 01794000 SDWAFLGS EQU SDWA+232 01795000 SDWAERRA EQU SDWAFLGS 01796000 SDWAERRB EQU SDWAFLGS+1 01797000 SDWAERRC EQU SDWAFLGS+2 01798000 SDWAERRD EQU SDWAFLGS+3 01799000 SDWACLUP EQU SDWAERRD 01800000 SDWAFMID EQU SDWA+236 01801000 SDWAIOFS EQU SDWA+238 01802000 SDWARTYA EQU SDWA+240 01803000 SDWACPUA EQU SDWA+248 01804000 SDWAPARQ EQU SDWA+252 01805000 SDWARCDE EQU SDWAPARQ 01806000 SDWAACF2 EQU SDWAPARQ+1 01807000 SDWARCRD EQU SDWAACF2 01808000 SDWAUPRG EQU SDWAACF2 01809000 SDWAFREE EQU SDWAACF2 01810000 SDWAACF3 EQU SDWAPARQ+2 01811000 SDWAACF4 EQU SDWAPARQ+3 01812000 SDWALKWA EQU SDWA+256 01813000 SDWALKWS EQU SDWALKWA 01814000 SDWARECP EQU SDWA+292 01815000 SDWAMODN EQU SDWARECP 01816000 SDWACSCT EQU SDWARECP+8 01817000 SDWAREXN EQU SDWARECP+16 01818000 SDWASNPA EQU SDWA+320 01819000 SDWADUMP EQU SDWASNPA 01820000 SDWADPFS EQU SDWADUMP+1 01821000 SDWADDAT EQU SDWASNPA+4 01822000 SDWASDAT EQU SDWADDAT 01823000 SDWAPDAT EQU SDWADDAT+2 01824000 SDWADPSA EQU SDWA+328 01825000 SDWADPSL EQU SDWADPSA 01826000 SDWARA EQU SDWA+400 01827000 SDWADPVA EQU SDWARA+2 01828000 PARMLIST EQU 0 01829000 ADDRCSCB EQU PARMLIST 01830000 ESTAPRM EQU 0 01831000 CODESAV EQU ESTAPRM 01832000 DATASAV EQU ESTAPRM+4 01833000 ADDRASCB EQU ESTAPRM+8 01834000 ENTYADDR EQU ESTAPRM+12 01835000 LENASCB EQU ESTAPRM+16 01836000 TRACER EQU ESTAPRM+18 01837000 RECURSOR EQU TRACER 01838000 RTNFIXED EQU TRACER 01839000 OPTIMZR EQU TRACER 01840000 ASSIGN EQU TRACER 01841000 PERCFRR EQU TRACER 01842000 NOWKAREA EQU TRACER 01843000 RTNADDR EQU ESTAPRM+20 01844000 SAVADDR EQU ESTAPRM+24 01845000 PARMFRR EQU 0 01846000 ADDRESTA EQU PARMFRR 01847000 FLGSFRR EQU PARMFRR+4 01848000 BFRR2 EQU FLGSFRR 01849000 BALTASVT EQU FLGSFRR 01850000 AVLENTRY EQU 0 01851000 ASGNBIT EQU AVLENTRY 01852000 REG0SLOT EQU 0 01853000 ADDRESS EQU 0 01854000 ASCRLIST EQU 0 01855000 ASCRFWDP EQU ASCRLIST 01856000 ASCRBWDP EQU ASCRLIST+4 01857000 I001C EQU 0 01858000 I008P EQU 0 01859000 I015F EQU 0 01860000 I015P EQU 0 01861000 I031F EQU 0 01862000 I031P EQU 0 01863000 I256C EQU 0 01864000 CHAINS01 EQU CHASM 01865000 CHTYPE EQU CHAINS01+124 01866000 CHTRSTAT EQU CHAINS01+125 01867000 CHCSYSO EQU CHAINS01+134 01868000 CVTS01 EQU CVTPGSIA 01869000 CVTLPDIA EQU CVTS01+12 01870000 CVTDIRST EQU CVTLPDIA 01871000 CVTSLIDA EQU CVTS01+24 01872000 CVTCTLFG EQU CVTS01+50 01873000 CVTRV327 EQU CVTS01+88 01874000 CVTRV519 EQU CVTS01+92 01875000 CVTASVT EQU CVTS01+208 01876000 CVTSDMP EQU CVTS01+232 01877000 CVTRV210 EQU CVTS01+424 01878000 CVTRV219 EQU CVTS01+425 01879000 CVTRV228 EQU CVTS01+426 01880000 CVTRV237 EQU CVTS01+427 01881000 CVTMFRTR EQU CVTS01+452 01882000 CVTRV262 EQU CVTS01+468 01883000 CVTRV271 EQU CVTS01+469 01884000 CVTRV280 EQU CVTS01+470 01885000 CVTRV289 EQU CVTS01+471 01886000 CVTGSDA EQU CVTS01+600 01887000 PSARSVTE EQU PSARSVT 01888000 PSACSTK EQU PSARSVTE 01889000 NOASIDS EQU EMPTY 01890000 RETRY EQU SDWAFMID 01891000 CVTASCRF EQU CVTRV327 01892000 CVTASCRL EQU CVTRV519 01893000 FLC EQU PSA 01894000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01895000 PSARSAV EQU PSARSVTE+60 01896000 PSARSTK EQU PSARSVTE+56 01897000 PSAESAV3 EQU PSARSVTE+52 01898000 PSAESTK3 EQU PSARSVTE+48 01899000 PSAESAV2 EQU PSARSVTE+44 01900000 PSAESTK2 EQU PSARSVTE+40 01901000 PSAESAV1 EQU PSARSVTE+36 01902000 PSAESTK1 EQU PSARSVTE+32 01903000 PSAPSAV EQU PSARSVTE+28 01904000 PSAPSTK EQU PSARSVTE+24 01905000 PSAMSAV EQU PSARSVTE+20 01906000 PSAMSTK EQU PSARSVTE+16 01907000 PSASSAV EQU PSARSVTE+12 01908000 PSASSTK EQU PSARSVTE+8 01909000 PSANSTK EQU PSARSVTE+4 01910000 CVTRV628 EQU CVTS01+728 01911000 CVTRV627 EQU CVTS01+724 01912000 CVTRV626 EQU CVTS01+720 01913000 CVTRV625 EQU CVTS01+716 01914000 CVTRV624 EQU CVTS01+712 01915000 CVTRV623 EQU CVTS01+708 01916000 CVTRV622 EQU CVTS01+704 01917000 CVTRV621 EQU CVTS01+700 01918000 CVTRV620 EQU CVTS01+696 01919000 CVTRV619 EQU CVTS01+692 01920000 CVTRV618 EQU CVTS01+688 01921000 CVTRV617 EQU CVTS01+684 01922000 CVTRV616 EQU CVTS01+680 01923000 CVTRV615 EQU CVTS01+676 01924000 CVTRV614 EQU CVTS01+672 01925000 CVTRV613 EQU CVTS01+668 01926000 CVTRV612 EQU CVTS01+664 01927000 CVTRV611 EQU CVTS01+660 01928000 CVTRV610 EQU CVTS01+656 01929000 CVTRV609 EQU CVTS01+652 01930000 CVTRV608 EQU CVTS01+648 01931000 CVTRV607 EQU CVTS01+644 01932000 CVTRV606 EQU CVTS01+640 01933000 CVTRV605 EQU CVTS01+636 01934000 CVTRV604 EQU CVTS01+632 01935000 CVTEFF02 EQU CVTS01+628 01936000 CVTCBBR EQU CVTS01+624 01937000 CVTSSCR EQU CVTS01+620 01938000 CVTEVENT EQU CVTS01+616 01939000 CVTCRCA EQU CVTS01+612 01940000 CVTTPIO EQU CVTS01+608 01941000 CVTADV EQU CVTS01+604 01942000 CVTGSDAB EQU CVTGSDA 01943000 CVTQV3 EQU CVTS01+596 01944000 CVTQV2 EQU CVTS01+592 01945000 CVTQV1 EQU CVTS01+588 01946000 CVTRPT EQU CVTS01+584 01947000 CVTSSRB EQU CVTS01+580 01948000 CVTCSDRL EQU CVTS01+576 01949000 CVTEXP1 EQU CVTS01+572 01950000 CVTRMPMT EQU CVTS01+568 01951000 CVTRMPTT EQU CVTS01+564 01952000 CVTVPSA EQU CVTS01+560 01953000 CVTVSTOP EQU CVTS01+556 01954000 CVTGTFR8 EQU CVTS01+552 01955000 CVTQUIT EQU CVTS01+548 01956000 CVTVACR EQU CVTS01+544 01957000 CVTWTCB EQU CVTS01+540 01958000 CVTSTPRS EQU CVTS01+536 01959000 CVT0PT02 EQU CVTS01+532 01960000 CVTDARCM EQU CVTS01+528 01961000 CVTIRECM EQU CVTS01+524 01962000 CVTJRECM EQU CVTS01+520 01963000 CVTVEMS0 EQU CVTS01+516 01964000 CVTSPFRR EQU CVTS01+512 01965000 CVTRLSTG EQU CVTS01+508 01966000 CVT0TC0A EQU CVTS01+504 01967000 CVTGMBR EQU CVTS01+500 01968000 CVTLFRM EQU CVTS01+496 01969000 CVTRMBR EQU CVTS01+492 01970000 CVTVIOP EQU CVTS01+488 01971000 CVTRV307 EQU CVTS01+486 01972000 CVTRV306 EQU CVTS01+484 01973000 CVTRV305 EQU CVTS01+482 01974000 CVTRV304 EQU CVTS01+480 01975000 CVTRV303 EQU CVTS01+478 01976000 CVTRV302 EQU CVTS01+476 01977000 CVTTRCA EQU CVTS01+472 01978000 CVTRV297 EQU CVTRV289 01979000 CVTRV296 EQU CVTRV289 01980000 CVTRV295 EQU CVTRV289 01981000 CVTRV294 EQU CVTRV289 01982000 CVTRV293 EQU CVTRV289 01983000 CVTRV292 EQU CVTRV289 01984000 CVTRV291 EQU CVTRV289 01985000 CVTRV290 EQU CVTRV289 01986000 CVTRV288 EQU CVTRV280 01987000 CVTRV287 EQU CVTRV280 01988000 CVTRV286 EQU CVTRV280 01989000 CVTRV285 EQU CVTRV280 01990000 CVTRV284 EQU CVTRV280 01991000 CVTRV283 EQU CVTRV280 01992000 CVTRV282 EQU CVTRV280 01993000 CVTRV281 EQU CVTRV280 01994000 CVTRV279 EQU CVTRV271 01995000 CVTRV278 EQU CVTRV271 01996000 CVTRV277 EQU CVTRV271 01997000 CVTRV276 EQU CVTRV271 01998000 CVTRV275 EQU CVTRV271 01999000 CVTRV274 EQU CVTRV271 02000000 CVTRV273 EQU CVTRV271 02001000 CVTRV272 EQU CVTRV271 02002000 CVTRV270 EQU CVTRV262 02003000 CVTRV269 EQU CVTRV262 02004000 CVTRV268 EQU CVTRV262 02005000 CVTRV267 EQU CVTRV262 02006000 CVTRV266 EQU CVTRV262 02007000 CVTRV265 EQU CVTRV262 02008000 CVTRV264 EQU CVTRV262 02009000 CVTRV263 EQU CVTRV262 02010000 CVTVFP EQU CVTS01+464 02011000 CVTVSI EQU CVTS01+460 02012000 CVTVPSIB EQU CVTS01+456 02013000 CVTMFACT EQU CVTMFRTR 02014000 CVTMFCTL EQU CVTS01+448 02015000 CVTPVBP EQU CVTS01+444 02016000 CVTPWI EQU CVTS01+440 02017000 CVTRV254 EQU CVTS01+438 02018000 CVTRV253 EQU CVTS01+436 02019000 CVTRV252 EQU CVTS01+434 02020000 CVTRV251 EQU CVTS01+433 02021000 CVTRV250 EQU CVTS01+432 02022000 CVTRV249 EQU CVTS01+431 02023000 CVTRV248 EQU CVTS01+430 02024000 CVTRV247 EQU CVTS01+429 02025000 CVTRV246 EQU CVTS01+428 02026000 CVTRV245 EQU CVTRV237 02027000 CVTRV244 EQU CVTRV237 02028000 CVTRV243 EQU CVTRV237 02029000 CVTRV242 EQU CVTRV237 02030000 CVTRV241 EQU CVTRV237 02031000 CVTRV240 EQU CVTRV237 02032000 CVTRV239 EQU CVTRV237 02033000 CVTRV238 EQU CVTRV237 02034000 CVTRV236 EQU CVTRV228 02035000 CVTRV235 EQU CVTRV228 02036000 CVTRV234 EQU CVTRV228 02037000 CVTRV233 EQU CVTRV228 02038000 CVTRV232 EQU CVTRV228 02039000 CVTRV231 EQU CVTRV228 02040000 CVTRV230 EQU CVTRV228 02041000 CVTRV229 EQU CVTRV228 02042000 CVTRV227 EQU CVTRV219 02043000 CVTRV226 EQU CVTRV219 02044000 CVTRV225 EQU CVTRV219 02045000 CVTRV224 EQU CVTRV219 02046000 CVTRV223 EQU CVTRV219 02047000 CVTRV222 EQU CVTRV219 02048000 CVTRV221 EQU CVTRV219 02049000 CVTRV220 EQU CVTRV219 02050000 CVTRV218 EQU CVTRV210 02051000 CVTRV217 EQU CVTRV210 02052000 CVTRV216 EQU CVTRV210 02053000 CVTRV215 EQU CVTRV210 02054000 CVTRV214 EQU CVTRV210 02055000 CVTRV213 EQU CVTRV210 02056000 CVTRV212 EQU CVTRV210 02057000 CVTRV211 EQU CVTRV210 02058000 CVTLCCAT EQU CVTS01+420 02059000 CVTPCCAT EQU CVTS01+416 02060000 CVTIPCRP EQU CVTS01+412 02061000 CVTIPCRI EQU CVTS01+408 02062000 CVTIPCDS EQU CVTS01+404 02063000 CVTAIDVT EQU CVTS01+400 02064000 CVTSSAP EQU CVTS01+396 02065000 CVTEHCIR EQU CVTS01+392 02066000 CVTEHDEF EQU CVTS01+388 02067000 CVTDAIR EQU CVTS01+384 02068000 CVTPERFM EQU CVTS01+380 02069000 CVT044R2 EQU CVTS01+376 02070000 CVTFETCH EQU CVTS01+372 02071000 CVTRSTWD EQU CVTS01+368 02072000 CVTSPOST EQU CVTS01+364 02073000 CVTIOBP EQU CVTS01+360 02074000 CVTASMVT EQU CVTS01+356 02075000 CVTRECRQ EQU CVTS01+352 02076000 CVTWSAC EQU CVTS01+348 02077000 CVTRV149 EQU CVTS01+344 02078000 CVTWSAL EQU CVTS01+340 02079000 CVTSPSA EQU CVTS01+336 02080000 CVTGLMN EQU CVTS01+332 02081000 CVTVEAC0 EQU CVTS01+328 02082000 CVT062R1 EQU CVTS01+324 02083000 CVTRPOST EQU CVTS01+320 02084000 CVTDQIQE EQU CVTS01+316 02085000 CVTCSD EQU CVTS01+312 02086000 CVTLKRMA EQU CVTS01+308 02087000 CVTRSPIE EQU CVTS01+304 02088000 CVTRENQ EQU CVTS01+300 02089000 CVTLQCB EQU CVTS01+296 02090000 CVTFQCB EQU CVTS01+292 02091000 CVTQCS01 EQU CVTS01+288 02092000 CVTAPFT EQU CVTS01+284 02093000 CVTPARRL EQU CVTS01+280 02094000 CVTVWAIT EQU CVTS01+276 02095000 CVTGSPL EQU CVTS01+272 02096000 CVTLSMQ EQU CVTS01+268 02097000 CVTGSMQ EQU CVTS01+264 02098000 CVTEXPRO EQU CVTS01+260 02099000 CVTOPCTP EQU CVTS01+256 02100000 CVTSIC EQU CVTS01+252 02101000 CVTTPIOS EQU CVTS01+248 02102000 CVTRTMS EQU CVTS01+244 02103000 CVTSDBF EQU CVTS01+240 02104000 CVTSCBP EQU CVTS01+236 02105000 CVTSV60 EQU CVTS01+228 02106000 CVTRTMCT EQU CVTS01+224 02107000 CVTASCBL EQU CVTS01+220 02108000 CVTASCBH EQU CVTS01+216 02109000 CVTGDA EQU CVTS01+212 02110000 CVTVVMDI EQU CVTS01+204 02111000 CVTAQTOP EQU CVTS01+200 02112000 CVTIOSCS EQU CVTS01+196 02113000 CVTSDRM EQU CVTS01+192 02114000 CVTOPTE EQU CVTS01+188 02115000 CVTSTXU EQU CVTS01+184 02116000 CVTQUIS EQU CVTS01+180 02117000 CVTPARS EQU CVTS01+176 02118000 CVTS1EE EQU CVTS01+172 02119000 CVTFRAS EQU CVTS01+168 02120000 CVTQSAS EQU CVTS01+164 02121000 CVTCRAS EQU CVTS01+160 02122000 CVTCRMN EQU CVTS01+156 02123000 CVTDELCP EQU CVTS01+152 02124000 CVTFRECL EQU CVTS01+148 02125000 CVTGETCL EQU CVTS01+144 02126000 CVTBLDCP EQU CVTS01+140 02127000 CVTAUTHL EQU CVTS01+136 02128000 CVTSCAN EQU CVTS01+132 02129000 CVTRV144 EQU CVTS01+130 02130000 CVTMAXMP EQU CVTS01+128 02131000 CVTSTCK EQU CVTS01+124 02132000 CVTRV139 EQU CVTS01+123 02133000 CVTDSSAC EQU CVTS01+122 02134000 CVTRV513 EQU CVTS01+121 02135000 CVTIOSPL EQU CVTS01+120 02136000 CVTPTGT EQU CVTS01+116 02137000 CVTCSPIE EQU CVTS01+112 02138000 CVTSMFEX EQU CVTS01+108 02139000 CVTOLT0A EQU CVTS01+104 02140000 CVTSRBRT EQU CVTS01+100 02141000 CVTPUTL EQU CVTS01+96 02142000 CVTRV326 EQU CVTS01+84 02143000 CVTRV325 EQU CVTS01+80 02144000 CVTRV324 EQU CVTS01+76 02145000 CVT0VL01 EQU CVTS01+72 02146000 CVTSHRVM EQU CVTS01+68 02147000 CVTRV332 EQU CVTS01+64 02148000 CVTTAS EQU CVTS01+60 02149000 CVTRSCN EQU CVTS01+56 02150000 CVTTRAC2 EQU CVTS01+54 02151000 CVTTRACE EQU CVTS01+52 02152000 CVTAPG EQU CVTS01+51 02153000 CVTSDTRC EQU CVTCTLFG 02154000 CVTGTRCE EQU CVTCTLFG 02155000 CVTNOMP EQU CVTCTLFG 02156000 CVTRSV79 EQU CVTCTLFG 02157000 CVTDSTAT EQU CVTCTLFG 02158000 CVTRSV78 EQU CVTCTLFG 02159000 CVTRV333 EQU CVTCTLFG 02160000 CVTRV323 EQU CVTCTLFG 02161000 CVTSPVLK EQU CVTS01+49 02162000 CVTRSV77 EQU CVTS01+48 02163000 CVTRV331 EQU CVTS01+44 02164000 CVTRV330 EQU CVTS01+40 02165000 CVTRV329 EQU CVTS01+36 02166000 CVTRV328 EQU CVTS01+32 02167000 CVTRV322 EQU CVTS01+28 02168000 CVTSLID EQU CVTSLIDA+1 02169000 CVTSYLK EQU CVTSLIDA 02170000 CVTRV321 EQU CVTS01+20 02171000 CVTRV320 EQU CVTS01+16 02172000 CVTLPDIR EQU CVTLPDIA+1 02173000 CVTRSV69 EQU CVTDIRST 02174000 CVTRSV68 EQU CVTDIRST 02175000 CVTRSV67 EQU CVTDIRST 02176000 CVTRSV66 EQU CVTDIRST 02177000 CVTRSV65 EQU CVTDIRST 02178000 CVTRSV64 EQU CVTDIRST 02179000 CVTRSV63 EQU CVTDIRST 02180000 CVTDICOM EQU CVTDIRST 02181000 CVTPVTP EQU CVTS01+8 02182000 CVTLPDSR EQU CVTS01+4 02183000 CVTGETL EQU CVTS01 02184000 CHLAST EQU CHAINS01+136 02185000 CHSPA EQU CHAINS01+135 02186000 CHUSERID EQU CHCSYSO 02187000 CHJB EQU CHCSYSO 02188000 CHDUMP EQU CHCSYSO 02189000 CHQUE EQU CHCSYSO 02190000 CHHOLD EQU CHCSYSO 02191000 CHOUT EQU CHCSYSO 02192000 CHINN EQU CHCSYSO 02193000 CHALL EQU CHCSYSO 02194000 CHINC EQU CHAINS01+132 02195000 CHPEND EQU CHAINS01+128 02196000 CHARID EQU CHAINS01+127 02197000 CHCNID EQU CHAINS01+126 02198000 @NM00005 EQU CHTRSTAT 02199000 CHTSL EQU CHTRSTAT 02200000 CHTS EQU CHTRSTAT 02201000 CHINITL EQU CHTRSTAT 02202000 CHINIT EQU CHTRSTAT 02203000 CHJOBSL EQU CHTRSTAT 02204000 CHJOBS EQU CHTRSTAT 02205000 CHDEF EQU CHTYPE 02206000 CHHIAR EQU CHTYPE 02207000 CHARSV29 EQU CHTYPE 02208000 CHARSV28 EQU CHTYPE 02209000 CHARSV27 EQU CHTYPE 02210000 CHARSV26 EQU CHTYPE 02211000 CHARSV25 EQU CHTYPE 02212000 CHDSTAT EQU CHTYPE 02213000 CHBUF EQU CHAINS01 02214000 @NM00088 EQU FLGSFRR 02215000 @NM00087 EQU ESTAPRM+19 02216000 RECASVT EQU TRACER 02217000 @NM00086 EQU SDWA+512 02218000 SDWAVRA EQU SDWARA+4 02219000 SDWAURAL EQU SDWARA+3 02220000 @NM00085 EQU SDWADPVA 02221000 SDWAEBC EQU SDWADPVA 02222000 SDWAHEX EQU SDWADPVA 02223000 SDWAVRAL EQU SDWARA 02224000 @NM00084 EQU SDWA+396 02225000 SDWACOMP EQU SDWA+392 02226000 SDWARCPL EQU SDWA+364 02227000 @NM00083 EQU SDWADPSA+32 02228000 SDWATO4 EQU SDWADPSL+28 02229000 SDWAFRM4 EQU SDWADPSL+24 02230000 SDWATO3 EQU SDWADPSL+20 02231000 SDWAFRM3 EQU SDWADPSL+16 02232000 SDWATO2 EQU SDWADPSL+12 02233000 SDWAFRM2 EQU SDWADPSL+8 02234000 SDWATO1 EQU SDWADPSL+4 02235000 SDWAFRM1 EQU SDWADPSL 02236000 @NM00082 EQU SDWADDAT+3 02237000 @NM00081 EQU SDWAPDAT 02238000 SDWAUSPL EQU SDWAPDAT 02239000 SDWADPSW EQU SDWAPDAT 02240000 SDWATJPA EQU SDWAPDAT 02241000 SDWATLPA EQU SDWAPDAT 02242000 SDWADREG EQU SDWAPDAT 02243000 SDWADSAH EQU SDWAPDAT 02244000 SDWADSAS EQU SDWAPDAT 02245000 @NM00080 EQU SDWADDAT+1 02246000 @NM00079 EQU SDWASDAT 02247000 SDWAQQS EQU SDWASDAT 02248000 SDWACBS EQU SDWASDAT 02249000 SDWAGTF EQU SDWASDAT 02250000 SDWASWA EQU SDWASDAT 02251000 SDWALSQA EQU SDWASDAT 02252000 SDWASQA EQU SDWASDAT 02253000 SDWANUC EQU SDWASDAT 02254000 @NM00078 EQU SDWADUMP+2 02255000 @NM00077 EQU SDWADPFS 02256000 SDWASLST EQU SDWADPFS 02257000 @NM00076 EQU SDWADPFS 02258000 SDWADLST EQU SDWADPFS 02259000 SDWADPT EQU SDWADPFS 02260000 SDWADPID EQU SDWADUMP 02261000 SDWADPLA EQU SDWA+316 02262000 @NM00075 EQU SDWA+290 02263000 SDWAASID EQU SDWA+288 02264000 SDWATALW EQU SDWALKWS+28 02265000 SDWATDLW EQU SDWALKWS+24 02266000 SDWATNLW EQU SDWALKWS+20 02267000 SDWAAPLW EQU SDWALKWS+16 02268000 SDWAIPLW EQU SDWALKWS+12 02269000 SDWAILLW EQU SDWALKWS+8 02270000 SDWAIULW EQU SDWALKWS+4 02271000 SDWAICLW EQU SDWALKWS 02272000 SDWAFLLK EQU SDWAACF4 02273000 SDWACMS EQU SDWAACF4 02274000 SDWAOPTM EQU SDWAACF4 02275000 SDWATADB EQU SDWAACF4 02276000 SDWATDNB EQU SDWAACF4 02277000 SDWATNCB EQU SDWAACF4 02278000 SDWAILCH EQU SDWAACF4 02279000 SDWAIUCB EQU SDWAACF4 02280000 SDWAICAT EQU SDWAACF3 02281000 SDWAIPRG EQU SDWAACF3 02282000 SDWASALL EQU SDWAACF3 02283000 SDWAASMP EQU SDWAACF3 02284000 SDWADISP EQU SDWAACF3 02285000 @NM00074 EQU SDWAACF3 02286000 @NM00073 EQU SDWAACF2 02287000 @NM00072 EQU SDWAACF2 02288000 SDWASPIN EQU SDWAACF2 02289000 @NM00071 EQU SDWAACF2 02290000 SDWALCPU EQU SDWACPUA+2 02291000 @NM00070 EQU SDWACPUA 02292000 SDWARECA EQU SDWA+244 02293000 @NM00069 EQU SDWA+239 02294000 @NM00068 EQU SDWAIOFS 02295000 SDWANIOP EQU SDWAIOFS 02296000 SDWANOIO EQU SDWAIOFS 02297000 SDWAIOHT EQU SDWAIOFS 02298000 SDWAIOQR EQU SDWAIOFS 02299000 @NM00067 EQU SDWAERRD 02300000 SDWAMCIV EQU SDWAERRD 02301000 SDWARPIV EQU SDWAERRD 02302000 SDWAMABD EQU SDWAERRD 02303000 SDWACTS EQU SDWAERRD 02304000 SDWASTAE EQU SDWAERRD 02305000 SDWANRBE EQU SDWAERRD 02306000 @NM00066 EQU SDWAERRC 02307000 SDWAEAS EQU SDWAERRC 02308000 SDWAPERC EQU SDWAERRC 02309000 SDWAIRB EQU SDWAERRC 02310000 SDWASTAI EQU SDWAERRC 02311000 SDWASTAF EQU SDWAERRC 02312000 SDWASRBM EQU SDWAERRB 02313000 SDWALDIS EQU SDWAERRB 02314000 SDWAENRB EQU SDWAERRB 02315000 SDWATYP1 EQU SDWAERRB 02316000 @NM00065 EQU SDWAERRB 02317000 SDWAPGIO EQU SDWAERRA 02318000 SDWATEXC EQU SDWAERRA 02319000 SDWASVCE EQU SDWAERRA 02320000 SDWAABTM EQU SDWAERRA 02321000 SDWASVCD EQU SDWAERRA 02322000 SDWARKEY EQU SDWAERRA 02323000 SDWAPCHK EQU SDWAERRA 02324000 SDWAMCHK EQU SDWAERRA 02325000 SDWATIME EQU SDWAMCH+20 02326000 SDWARFSA EQU SDWAMCH+16 02327000 @NM00064 EQU SDWAMCH+14 02328000 SDWAVEQR EQU SDWARSR2 02329000 SDWAPGFX EQU SDWARSR2 02330000 SDWAFLSQ EQU SDWARSR2 02331000 SDWAFSQA EQU SDWARSR2 02332000 SDWANUCL EQU SDWARSR2 02333000 SDWASPER EQU SDWARSR2 02334000 SDWAINTC EQU SDWARSR2 02335000 SDWAOFLN EQU SDWARSR2 02336000 SDWACHNG EQU SDWARSR1 02337000 SDWAMSER EQU SDWARSR1 02338000 @NM00063 EQU SDWARSR1 02339000 SDWACPID EQU SDWAMCH+10 02340000 SDWATERR EQU SDWAMCHD 02341000 SDWAFPRX EQU SDWAMCHD 02342000 SDWAINSF EQU SDWAMCHD 02343000 SDWAACR EQU SDWAMCHD 02344000 SDWASCK EQU SDWAMCHD 02345000 SDWAPSWU EQU SDWAMCHD 02346000 SDWAREGU EQU SDWAMCHD 02347000 SDWASKYF EQU SDWAMCHD 02348000 @NM00062 EQU SDWAMCHS 02349000 SDWARSRF EQU SDWAMCHS 02350000 SDWARSRC EQU SDWAMCHS 02351000 SDWAINVP EQU SDWAMCHS 02352000 SDWATSVL EQU SDWAMCHS 02353000 SDWARCDF EQU SDWAMCHS 02354000 SDWASRVL EQU SDWAMCHS 02355000 SDWASCKE EQU SDWASTCK+4 02356000 SDWASCKB EQU SDWASTCK 02357000 SDWALNTH EQU SDWAIDNT+1 02358000 SDWASPID EQU SDWAIDNT 02359000 SDWASR15 EQU SDWASRSV+60 02360000 SDWASR14 EQU SDWASRSV+56 02361000 SDWASR13 EQU SDWASRSV+52 02362000 SDWASR12 EQU SDWASRSV+48 02363000 SDWASR11 EQU SDWASRSV+44 02364000 SDWASR08 EQU SDWASRSV+32 02365000 SDWASR07 EQU SDWASRSV+28 02366000 SDWASR06 EQU SDWASRSV+24 02367000 SDWASR05 EQU SDWASRSV+20 02368000 SDWASR04 EQU SDWASRSV+16 02369000 SDWASR03 EQU SDWASRSV+12 02370000 SDWASR02 EQU SDWASRSV+8 02371000 SDWASR01 EQU SDWASRSV+4 02372000 SDWASR00 EQU SDWASRSV 02373000 SDWATRN2 EQU SDWAAEC2+4 02374000 SDWAIPC2 EQU SDWAICD2 02375000 SDWAIMC2 EQU SDWAICD2 02376000 SDWAIPR2 EQU SDWAICD2 02377000 @NM00061 EQU SDWAINC2 02378000 @NM00060 EQU SDWAILC2 02379000 SDWAIL2 EQU SDWAILC2 02380000 @NM00059 EQU SDWAILC2 02381000 @NM00058 EQU SDWAAEC2 02382000 SDWAADD2 EQU SDWANXT2+1 02383000 @NM00057 EQU SDWANXT2 02384000 @NM00056 EQU SDWAEC2+3 02385000 SDWASGN2 EQU SDWAINT2 02386000 SDWAEXP2 EQU SDWAINT2 02387000 SDWADEC2 EQU SDWAINT2 02388000 SDWAFPO2 EQU SDWAINT2 02389000 SDWACC2 EQU SDWAINT2 02390000 @NM00055 EQU SDWAINT2 02391000 SDWAPGM2 EQU SDWAMWP2 02392000 SDWAWAT2 EQU SDWAMWP2 02393000 SDWAMCK2 EQU SDWAMWP2 02394000 SDWAECT2 EQU SDWAMWP2 02395000 SDWAKEY2 EQU SDWAMWP2 02396000 SDWAEXT2 EQU SDWAEMK2 02397000 SDWAIO2 EQU SDWAEMK2 02398000 SDWATRM2 EQU SDWAEMK2 02399000 @NM00054 EQU SDWAEMK2 02400000 SDWAPER2 EQU SDWAEMK2 02401000 @NM00053 EQU SDWAEMK2 02402000 SDWATRAN EQU SDWAAEC1+4 02403000 SDWAIPC1 EQU SDWAICD1 02404000 SDWAIMC1 EQU SDWAICD1 02405000 SDWAIPR1 EQU SDWAICD1 02406000 @NM00052 EQU SDWAINC1 02407000 @NM00051 EQU SDWAILC1 02408000 SDWAIL1 EQU SDWAILC1 02409000 @NM00050 EQU SDWAILC1 02410000 @NM00049 EQU SDWAAEC1 02411000 SDWAADD1 EQU SDWANXT1+1 02412000 @NM00048 EQU SDWANXT1 02413000 @NM00047 EQU SDWAEC1+3 02414000 SDWASGN1 EQU SDWAINT1 02415000 SDWAEXP1 EQU SDWAINT1 02416000 SDWADEC1 EQU SDWAINT1 02417000 SDWAFPO1 EQU SDWAINT1 02418000 SDWACC1 EQU SDWAINT1 02419000 @NM00046 EQU SDWAINT1 02420000 SDWAPGM1 EQU SDWAMWP1 02421000 SDWAWAT1 EQU SDWAMWP1 02422000 SDWAMCK1 EQU SDWAMWP1 02423000 SDWAECT1 EQU SDWAMWP1 02424000 SDWAKEY1 EQU SDWAMWP1 02425000 SDWAEXT1 EQU SDWAEMK1 02426000 SDWAIO1 EQU SDWAEMK1 02427000 SDWATRM1 EQU SDWAEMK1 02428000 @NM00045 EQU SDWAEMK1 02429000 SDWAPER1 EQU SDWAEMK1 02430000 @NM00044 EQU SDWAEMK1 02431000 SDWAIOBR EQU SDWA+100 02432000 SDWAEPA EQU SDWA+96 02433000 @NM00043 EQU SDWANAME+4 02434000 SDWARBAD EQU SDWANAME 02435000 SDWAGR15 EQU SDWAGRSV+60 02436000 SDWAGR14 EQU SDWAGRSV+56 02437000 SDWAGR13 EQU SDWAGRSV+52 02438000 SDWAGR12 EQU SDWAGRSV+48 02439000 SDWAGR11 EQU SDWAGRSV+44 02440000 SDWAGR10 EQU SDWAGRSV+40 02441000 SDWAGR09 EQU SDWAGRSV+36 02442000 SDWAGR08 EQU SDWAGRSV+32 02443000 SDWAGR07 EQU SDWAGRSV+28 02444000 SDWAGR06 EQU SDWAGRSV+24 02445000 SDWAGR05 EQU SDWAGRSV+20 02446000 SDWAGR04 EQU SDWAGRSV+16 02447000 SDWAGR03 EQU SDWAGRSV+12 02448000 SDWAGR02 EQU SDWAGRSV+8 02449000 SDWAGR01 EQU SDWAGRSV+4 02450000 SDWAGR00 EQU SDWAGRSV 02451000 SDWANXTP EQU SDWACTL2+5 02452000 SDWASGP EQU SDWAPMKP 02453000 SDWAEUP EQU SDWAPMKP 02454000 SDWADOP EQU SDWAPMKP 02455000 SDWAFPP EQU SDWAPMKP 02456000 SDWACCP EQU SDWAPMKP 02457000 SDWAILP EQU SDWAPMKP 02458000 SDWAINTP EQU SDWACTL2+2 02459000 SDWASPVP EQU SDWAMWPP 02460000 SDWAWATP EQU SDWAMWPP 02461000 SDWAMCKP EQU SDWAMWPP 02462000 @NM00042 EQU SDWAMWPP 02463000 SDWAKEYP EQU SDWAMWPP 02464000 SDWAEXTP EQU SDWACMKP 02465000 SDWAIOP EQU SDWACMKP 02466000 SDWANXTA EQU SDWACTL1+5 02467000 SDWASGA EQU SDWAPMKA 02468000 SDWAEUA EQU SDWAPMKA 02469000 SDWADOA EQU SDWAPMKA 02470000 SDWAFPA EQU SDWAPMKA 02471000 SDWACCA EQU SDWAPMKA 02472000 SDWAILA EQU SDWAPMKA 02473000 SDWAINTA EQU SDWACTL1+2 02474000 SDWASPVA EQU SDWAMWPA 02475000 SDWAWATA EQU SDWAMWPA 02476000 SDWAMCKA EQU SDWAMWPA 02477000 @NM00041 EQU SDWAMWPA 02478000 SDWAKEYA EQU SDWAMWPA 02479000 SDWAEXTA EQU SDWACMKA 02480000 SDWAIOA EQU SDWACMKA 02481000 SDWACMPC EQU SDWAABCC+1 02482000 @NM00040 EQU SDWACMPF 02483000 SDWASTCC EQU SDWACMPF 02484000 @NM00039 EQU SDWACMPF 02485000 SDWASTEP EQU SDWACMPF 02486000 @NM00038 EQU FRRSFLGS+1 02487000 @NM00037 EQU FRRSFLG1 02488000 FRRSNEST EQU FRRSFLG1 02489000 FRRSRCUR EQU FRRSFLG1 02490000 FRRSENTS EQU FRRS+84 02491000 FRRSRTMW EQU FRRS+16 02492000 ESTARSVI EQU ESTAFGRS+1 02493000 @NM00036 EQU ESTAFLG2 02494000 ESTABRNT EQU ESTAFLG2 02495000 @NM00035 EQU ESTAFLG2 02496000 ESTAEREC EQU ESTAFLG2 02497000 ESTATERM EQU ESTAFLG2 02498000 @NM00034 EQU ESTAFLG2 02499000 ESTAOWNR EQU ESTA+8 02500000 ESTAPARM EQU ESTA+4 02501000 ESTAEXIT EQU ESTAEXT+1 02502000 ESTAHALT EQU ESTAIO 02503000 ESTANOIO EQU ESTAIO 02504000 ESTASYNC EQU ESTAFLG1 02505000 @NM00033 EQU ESTAFLG1 02506000 ESTAESTA EQU ESTAFLG1 02507000 @NM00032 EQU ESTAFLG1 02508000 ESTASTAR EQU ESTAFLG1 02509000 ESTASTAI EQU ESTAFLG1 02510000 CVTLEVL EQU CVTRELNO+2 02511000 CVTNUMB EQU CVTRELNO 02512000 CVTMDL EQU CVTFIX+250 02513000 @NM00007 EQU CVTFIX+248 02514000 @NM00006 EQU CVTFIX 02515000 CVTRV482 EQU CVTXTNT2+128 02516000 CVTRV481 EQU CVTXTNT2+124 02517000 CVTRV480 EQU CVTXTNT2+120 02518000 CVTRV479 EQU CVTXTNT2+118 02519000 CVTRV478 EQU CVTXTNT2+117 02520000 CVTRV477 EQU CVTXTNT2+116 02521000 CVTRV476 EQU CVTXTNT2+115 02522000 CVTRV475 EQU CVTXTNT2+114 02523000 CVTRV474 EQU CVTRV466 02524000 CVTRV473 EQU CVTRV466 02525000 CVTRV472 EQU CVTRV466 02526000 CVTRV471 EQU CVTRV466 02527000 CVTRV470 EQU CVTRV466 02528000 CVTRV469 EQU CVTRV466 02529000 CVTRV468 EQU CVTRV466 02530000 CVTRV467 EQU CVTRV466 02531000 CVTRV465 EQU CVTRV457 02532000 CVTRV464 EQU CVTRV457 02533000 CVTRV463 EQU CVTRV457 02534000 CVTRV462 EQU CVTRV457 02535000 CVTRV461 EQU CVTRV457 02536000 CVTRV460 EQU CVTRV457 02537000 CVTRV459 EQU CVTRV457 02538000 CVTRV458 EQU CVTRV457 02539000 CVTRV456 EQU CVTXTNT2+108 02540000 CVTRV455 EQU CVTXTNT2+104 02541000 CVTRV454 EQU CVTXTNT2+100 02542000 CVTRV453 EQU CVTXTNT2+96 02543000 CVTRV452 EQU CVTXTNT2+94 02544000 CVTRV451 EQU CVTXTNT2+92 02545000 CVTRV450 EQU CVTXTNT2+90 02546000 CVTRV449 EQU CVTXTNT2+88 02547000 CVTRV448 EQU CVTXTNT2+87 02548000 CVTRV447 EQU CVTXTNT2+86 02549000 CVTRV446 EQU CVTRV438 02550000 CVTRV445 EQU CVTRV438 02551000 CVTRV444 EQU CVTRV438 02552000 CVTRV443 EQU CVTRV438 02553000 CVTRV442 EQU CVTRV438 02554000 CVTRV441 EQU CVTRV438 02555000 CVTRV440 EQU CVTRV438 02556000 CVTRV439 EQU CVTRV438 02557000 CVTRV437 EQU CVTRV429 02558000 CVTRV436 EQU CVTRV429 02559000 CVTRV435 EQU CVTRV429 02560000 CVTRV434 EQU CVTRV429 02561000 CVTRV433 EQU CVTRV429 02562000 CVTRV432 EQU CVTRV429 02563000 CVTRV431 EQU CVTRV429 02564000 CVTRV430 EQU CVTRV429 02565000 CVTRV428 EQU CVTXTNT2+80 02566000 CVTRV427 EQU CVTXTNT2+76 02567000 CVTRV426 EQU CVTXTNT2+72 02568000 CVTRV425 EQU CVTXTNT2+68 02569000 CVTATACT EQU CVTATCVT 02570000 CVTRV423 EQU CVTXTNT2+62 02571000 CVTRV422 EQU CVTXTNT2+60 02572000 CVTRV421 EQU CVTXTNT2+58 02573000 CVTRV420 EQU CVTXTNT2+56 02574000 CVTRV419 EQU CVTXTNT2+55 02575000 CVTRV418 EQU CVTXTNT2+54 02576000 CVTRV417 EQU CVTRV409 02577000 CVTRV416 EQU CVTRV409 02578000 CVTRV415 EQU CVTRV409 02579000 CVTRV414 EQU CVTRV409 02580000 CVTRV413 EQU CVTRV409 02581000 CVTRV412 EQU CVTRV409 02582000 CVTRV411 EQU CVTRV409 02583000 CVTRV410 EQU CVTRV409 02584000 CVTRV408 EQU CVTRV400 02585000 CVTRV407 EQU CVTRV400 02586000 CVTRV406 EQU CVTRV400 02587000 CVTRV405 EQU CVTRV400 02588000 CVTRV404 EQU CVTRV400 02589000 CVTRV403 EQU CVTRV400 02590000 CVTRV402 EQU CVTRV400 02591000 CVTRV401 EQU CVTRV400 02592000 CVTICB EQU CVTXTNT2+48 02593000 CVTSKTA EQU CVTXTNT2+44 02594000 CVTRSV99 EQU CVTXTNT2+40 02595000 CVTRSV98 EQU CVTXTNT2+36 02596000 CVTRSV97 EQU CVTXTNT2+34 02597000 CVTRSV96 EQU CVTXTNT2+32 02598000 CVTOLTEP EQU CVTXTNT2+28 02599000 CVTQIDA EQU CVTQID+1 02600000 CVTRSV95 EQU CVTQID 02601000 CVTRSV94 EQU CVTXTNT2+20 02602000 CVTRSV93 EQU CVTXTNT2+16 02603000 CVTRSV92 EQU CVTXTNT2+12 02604000 CVTDEBVR EQU CVTXTNT2+8 02605000 CVTRSV91 EQU CVTXTNT2+6 02606000 CVTRSV9H EQU CVTFLGBT 02607000 CVTRSV9G EQU CVTFLGBT 02608000 CVTRSV9F EQU CVTFLGBT 02609000 CVTRSV9E EQU CVTFLGBT 02610000 CVTRSV9D EQU CVTFLGBT 02611000 CVTRSV9C EQU CVTFLGBT 02612000 CVTVME EQU CVTFLGBT 02613000 CVTNPE EQU CVTFLGBT 02614000 CVTNUCLS EQU CVTXTNT2+4 02615000 CVTDSSVA EQU CVTDSSV+1 02616000 CVTRSV89 EQU CVTDSSV 02617000 CVTRSV88 EQU CVTXTNT1+8 02618000 CVTRSV87 EQU CVTXTNT1+4 02619000 CVTFACHN EQU CVTXTNT1 02620000 CVTRV488 EQU CVTMAP+412 02621000 CVTRV487 EQU CVTMAP+408 02622000 CVTRV486 EQU CVTMAP+404 02623000 CVTRV485 EQU CVTMAP+400 02624000 CVTACTAP EQU CVTMAP+396 02625000 CVTAUTH EQU CVTMAP+392 02626000 CVTATMCA EQU CVTATMCT+1 02627000 CVTATMST EQU CVTATMCT 02628000 CVTRSV61 EQU CVTMAP+384 02629000 CVTVOLT1 EQU CVTVOLM1+1 02630000 CVTVOLI1 EQU CVTVOLF1 02631000 CVTSTOA EQU CVTMAP+376 02632000 CVTRSV58 EQU CVTMAP+374 02633000 CVTRSV57 EQU CVTMAP+372 02634000 CVTDDCE EQU CVTMAP+368 02635000 CVTPNWFR EQU CVTMAP+364 02636000 CVTSMF EQU CVTMAP+360 02637000 CVTSULK EQU CVTMAP+358 02638000 CVTSLKO EQU CVTSYSK 02639000 CVTSLKP EQU CVTSYSK 02640000 CVTSLKQ EQU CVTSYSK 02641000 CVTSLKR EQU CVTSYSK 02642000 CVTRSV56 EQU CVTSYSK 02643000 CVTRSV55 EQU CVTSYSK 02644000 CVTRSV54 EQU CVTSYSK 02645000 CVTRSV53 EQU CVTSYSK 02646000 CVTRSV52 EQU CVTA1F1 02647000 CVTRSV51 EQU CVTA1F1 02648000 CVTRSV50 EQU CVTA1F1 02649000 CVTRSV49 EQU CVTA1F1 02650000 CVTRSV48 EQU CVTA1F1 02651000 CVTRSV47 EQU CVTA1F1 02652000 CVTSRSW EQU CVTA1F1 02653000 CVTPFSW EQU CVTA1F1 02654000 CVTPCVT EQU CVTMAP+352 02655000 CVTRSV46 EQU CVTMAP+344 02656000 CVTRSV45 EQU CVTMAP+340 02657000 CVTRSV44 EQU CVTMAP+338 02658000 CVTRSV43 EQU CVTMAP+336 02659000 CVTHJESA EQU CVTHJES+1 02660000 CVTRSV42 EQU CVTHJES 02661000 CVTEXT2A EQU CVTEXT2+1 02662000 CVTRSV41 EQU CVTEXT2 02663000 CVTAPFA EQU CVTAPF+1 02664000 CVTRSV40 EQU CVTAPF 02665000 CVTRV518 EQU CVTINTLA 02666000 CVTRV517 EQU CVTERPV 02667000 CVTEORM EQU CVTMAP+312 02668000 CVTMCHPR EQU CVTMAP+308 02669000 CVTTZ EQU CVTMAP+304 02670000 CVTJEPS EQU CVTMAP+300 02671000 CVTJESCT EQU CVTMAP+296 02672000 CVTMODE EQU CVTMAP+292 02673000 CVTPTRV EQU CVTMAP+288 02674000 CVTREAL EQU CVTMAP+284 02675000 CVTRSV39 EQU CVTMAP+280 02676000 CVTRSV38 EQU CVTMAP+276 02677000 CVTDMSRA EQU CVTDMSR+1 02678000 CVTRSV37 EQU CVTDMSR 02679000 CVTQMSGA EQU CVTQMSG+1 02680000 CVTRSV36 EQU CVTQMSG 02681000 CVTAMFF EQU CVTMAP+264 02682000 CVTPURGA EQU CVTPURG+1 02683000 CVTRSV35 EQU CVTPURG 02684000 CVTCBSP EQU CVTMAP+256 02685000 CVTATERA EQU CVTATER+1 02686000 CVTSYST EQU CVTATER 02687000 CVTVOLT2 EQU CVTTAT 02688000 CVTVOLI2 EQU CVTVOLF2 02689000 CVTAQAVB EQU CVTAQAVT+1 02690000 CVTRSV34 EQU CVTTCMFG 02691000 CVTRSV33 EQU CVTTCMFG 02692000 CVTRSV32 EQU CVTTCMFG 02693000 CVTRSV31 EQU CVTTCMFG 02694000 CVTRSV30 EQU CVTTCMFG 02695000 CVTRSV29 EQU CVTTCMFG 02696000 CVTRSV28 EQU CVTTCMFG 02697000 CVTTCRDY EQU CVTTCMFG 02698000 CVTGTFA EQU CVTGTF+1 02699000 CVTRSV27 EQU CVTGTFST 02700000 CVTRNIO EQU CVTGTFST 02701000 CVTUSR EQU CVTGTFST 02702000 CVTRV318 EQU CVTFORM 02703000 CVTRV317 EQU CVTTMODE 02704000 CVTRV316 EQU CVTSTATE 02705000 CVTRV315 EQU CVTGTFS 02706000 CVTGTFAV EQU CVTGTFS 02707000 CVT0SCR1 EQU CVTMAP+232 02708000 CVTRV515 EQU CVTMAP+228 02709000 CVTRMS EQU CVTMAP+224 02710000 CVTPATCH EQU CVTMAP+220 02711000 CVTTSCE EQU CVTMAP+216 02712000 CVTLNKSC EQU CVTMAP+214 02713000 CVTQABST EQU CVTMAP+212 02714000 CVTMDLDS EQU CVTMAP+208 02715000 CVTUSER EQU CVTMAP+204 02716000 CVTABEND EQU CVTMAP+200 02717000 CVTSMCA EQU CVTMAP+196 02718000 CVTRSV18 EQU CVTMAP+192 02719000 CVTQLPAQ EQU CVTMAP+188 02720000 CVTQCDSR EQU CVTMAP+184 02721000 CVTRSV17 EQU CVTOPTB 02722000 CVTRSV16 EQU CVTOPTB 02723000 CVTFP EQU CVTOPTB 02724000 CVTAPTHR EQU CVTOPTB 02725000 CVTNLOG EQU CVTOPTB 02726000 CVTTOD EQU CVTOPTB 02727000 CVTCTIMS EQU CVTOPTB 02728000 CVTPROT EQU CVTOPTB 02729000 CVTXPFP EQU CVTOPTA 02730000 CVTASCII EQU CVTOPTA 02731000 CVTRSV13 EQU CVTOPTA 02732000 CVTRSV12 EQU CVTOPTA 02733000 CVTNIP EQU CVTOPTA 02734000 CVTDDR EQU CVTOPTA 02735000 CVTAPR EQU CVTOPTA 02736000 CVTCCH EQU CVTOPTA 02737000 CVTSNCTR EQU CVTMAP+180 02738000 CVTQMWR EQU CVTMAP+176 02739000 CVTQOCR EQU CVTMAP+172 02740000 CVT1EF00 EQU CVTMAP+168 02741000 CVTMZ00 EQU CVTMAP+164 02742000 CVTHEAD EQU CVTMAP+160 02743000 CVTRSV11 EQU CVTMAP+156 02744000 CVT0PT01 EQU CVTMAP+152 02745000 CVTMSER EQU CVTMAP+148 02746000 CVTRV516 EQU CVTIERLC 02747000 CVTILCH EQU CVTMAP+140 02748000 CVT0DS EQU CVTMAP+136 02749000 CVTFBOSV EQU CVTMAP+132 02750000 CVTNUCB EQU CVTMAP+128 02751000 CVTIXAVL EQU CVTMAP+124 02752000 CVTIOQET EQU CVTMAP+120 02753000 CVTDCBA EQU CVTMAP+117 02754000 CVTMVS2 EQU CVTDCB 02755000 CVT6DAT EQU CVTDCB 02756000 CVT4MPS EQU CVTDCB 02757000 CVTRSV09 EQU CVTDCB 02758000 CVT4MS1 EQU CVTDCB 02759000 CVT2SPS EQU CVTDCB 02760000 CVT1SSS EQU CVTDCB 02761000 CVTRSV08 EQU CVTDCB 02762000 CVTSTB EQU CVTMAP+112 02763000 CVTQTD00 EQU CVTMAP+108 02764000 CVTQTE00 EQU CVTMAP+104 02765000 CVTCUCB EQU CVTMAP+100 02766000 CVTSJQ EQU CVTMAP+96 02767000 CVTPBLDL EQU CVTMAP+92 02768000 CVTTPC EQU CVTMAP+88 02769000 CVTSVDCB EQU CVTMAP+84 02770000 CVTBRET EQU CVTMAP+82 02771000 CVTEXIT EQU CVTMAP+80 02772000 CVT0FN00 EQU CVTMAP+76 02773000 CVTDARA EQU CVTDAR+1 02774000 CVTRSV07 EQU CVTFLGS1 02775000 CVTRSV06 EQU CVTFLGS1 02776000 CVTRSV05 EQU CVTFLGS1 02777000 CVTRSV04 EQU CVTFLGS1 02778000 CVTRSV03 EQU CVTFLGS1 02779000 CVTRSV02 EQU CVTFLGS1 02780000 CVTRSV01 EQU CVTFLGS1 02781000 CVTDMPLK EQU CVTFLGS1 02782000 CVTXITP EQU CVTMAP+68 02783000 CVTZDTAB EQU CVTMAP+64 02784000 CVTMSLT EQU CVTMAP+60 02785000 CVTDATE EQU CVTMAP+56 02786000 CVTBTERM EQU CVTMAP+52 02787000 CVTSYSAD EQU CVTMAP+48 02788000 CVTXTLER EQU CVTMAP+44 02789000 CVTILK2 EQU CVTMAP+40 02790000 CVTILK1 EQU CVTMAP+36 02791000 CVTPRLTV EQU CVTMAP+32 02792000 CVTPCNVT EQU CVTMAP+28 02793000 CVT0VL00 EQU CVTMAP+24 02794000 CVTXAPG EQU CVTMAP+20 02795000 CVTBUF EQU CVTMAP+16 02796000 CVTJOB EQU CVTMAP+12 02797000 CVTLINK EQU CVTMAP+8 02798000 CVT0EF00 EQU CVTMAP+4 02799000 CVTTCBP EQU CVTMAP 02800000 CVT EQU CVTMAP 02801000 CHARSV16 EQU CHSHORT+100 02802000 CHARSV15 EQU CHSHORT+96 02803000 CHJSCBVS EQU CHSHORT+92 02804000 CHUSCVS EQU CHSHORT+88 02805000 @NM00004 EQU CHSHORT+84 02806000 @NM00003 EQU CHSHORT+80 02807000 CHSQA EQU CHSHORT+44 02808000 CHQPA EQU CHSHORT+8 02809000 CHJCL EQU CHSHORT+4 02810000 CHSPC EQU CHSHORT 02811000 CHSPB EQU CHSTEP+4 02812000 CHTCB EQU CHSTEP+1 02813000 CHARSV23 EQU CHSWT 02814000 CHARSV22 EQU CHSWT 02815000 CHARSV21 EQU CHSWT 02816000 CHAC EQU CHSWT 02817000 CHPSF EQU CHSWT 02818000 CHPSD EQU CHSWT 02819000 CHJCT EQU CHSWT 02820000 CHARSV20 EQU CHSWT 02821000 CHCECB EQU CHASM+20 02822000 CHECB EQU CHASM+16 02823000 CHRGNAD EQU CHASM+12 02824000 CHARSV18 EQU CHRGNSZ+1 02825000 CHRPRTY EQU CHRGNSZ 02826000 @NM00002 EQU CHCIBP 02827000 CHEND EQU CHCIBP 02828000 CHECBP EQU CHASM 02829000 CHDER EQU CHPROCSN+4 02830000 CHARSV10 EQU CHACT1 02831000 CHARSV09 EQU CHACT1 02832000 CHARSV08 EQU CHACT1 02833000 CHARSV07 EQU CHACT1 02834000 CHARSV06 EQU CHACT1 02835000 CHARSV05 EQU CHACT1 02836000 CHARSV04 EQU CHACT1 02837000 CHRDWTR EQU CHACT1 02838000 CHARSV30 EQU CHPROCSN+2 02839000 CHQID EQU CHPROCSN 02840000 CHUCMP EQU CHAIN+29 02841000 CHTRKID EQU CHPKE 02842000 CHCIBCTR EQU CHAIN+27 02843000 CHUNIT EQU CHAIN+24 02844000 CHCLS EQU CHAIN+16 02845000 CHPARM EQU CHKEY 02846000 CHIFY EQU CHACT 02847000 CHAIFX EQU CHACT 02848000 CHCLD EQU CHACT 02849000 CHCL EQU CHACT 02850000 CHDSI EQU CHACT 02851000 CHDISC EQU CHACT 02852000 CHTERM EQU CHACT 02853000 CHSWAP EQU CHACT 02854000 CHABTERM EQU CHSTS 02855000 CHFC EQU CHSTS 02856000 CHDL EQU CHSTS 02857000 CHAD EQU CHSTS 02858000 CHQSPC EQU CHSTS 02859000 CHSOUT EQU CHSTS 02860000 CHSYS EQU CHSTS 02861000 CHAP EQU CHSTS 02862000 CHSZE EQU CHFLG+1 02863000 CHPTR EQU CHAIN 02864000 LSPLEND EQU LSPL+16 02865000 LSPLSYSL EQU LSPLSYS+4 02866000 LSPLSYSF EQU LSPLSYS 02867000 LSPLNQL EQU LSPLNQ+4 02868000 LSPLNQF EQU LSPLNQ 02869000 GSPLEND EQU GSPL+16 02870000 GSPLSYSL EQU GSPLSYS+4 02871000 GSPLSYSF EQU GSPLSYS 02872000 GSPLNQL EQU GSPLNQ+4 02873000 GSPLNQF EQU GSPLNQ 02874000 SPLLSRB EQU SPLENTRY+4 02875000 SPLFSRB EQU SPLENTRY 02876000 ASCBEND EQU ASCB+208 02877000 ASCBSRBT EQU ASCB+200 02878000 ASCBSWTL EQU ASCB+196 02879000 ASCBRS14 EQU ASCB+195 02880000 ASCBSMCT EQU ASCB+194 02881000 ASCBRS12 EQU ASCB+192 02882000 ASCBPCTT EQU ASCB+188 02883000 ASCBVGTT EQU ASCB+184 02884000 ASCBLGCB EQU ASCB+180 02885000 ASCBJBNS EQU ASCB+176 02886000 ASCBJBNI EQU ASCB+172 02887000 ASCBMCC EQU ASCB+168 02888000 ASCBRTWA EQU ASCB+164 02889000 ASCBIQEA EQU ASCB+160 02890000 ASCBXMPQ EQU ASCB+156 02891000 ASCBRS01 EQU ASCB+154 02892000 ASCBFMCT EQU ASCB+152 02893000 ASCBOUXB EQU ASCB+148 02894000 ASCBOUCB EQU ASCB+144 02895000 ASCBQECB EQU ASCB+136 02896000 ASCBCMSB EQU ASCB+132 02897000 ASCBCMSF EQU ASCB+128 02898000 ASCBTCBS EQU ASCB+124 02899000 ASCBNVSC EQU ASCB+122 02900000 ASCBVSC EQU ASCB+120 02901000 ASCBSRBS EQU ASCB+118 02902000 ASCBRV06 EQU ASCBFLG2 02903000 ASCBRV05 EQU ASCBFLG2 02904000 ASCBRV04 EQU ASCBFLG2 02905000 ASCBSNQS EQU ASCBFLG2 02906000 ASCBS2S EQU ASCBFLG2 02907000 ASCBCEXT EQU ASCBFLG2 02908000 ASCBPXMT EQU ASCBFLG2 02909000 ASCBXMPT EQU ASCBFLG2 02910000 ASCBRF07 EQU ASCBDSP1 02911000 ASCBRF06 EQU ASCBDSP1 02912000 ASCBRF05 EQU ASCBDSP1 02913000 ASCBRF04 EQU ASCBDSP1 02914000 ASCBRF03 EQU ASCBDSP1 02915000 ASCBRF02 EQU ASCBDSP1 02916000 ASCBFAIL EQU ASCBDSP1 02917000 ASCBSWCT EQU ASCB+112 02918000 ASCBASXB EQU ASCB+108 02919000 ASCBTMCH EQU ASCB+104 02920000 ASCBNSWP EQU ASCBFLG1 02921000 ASCBTYP1 EQU ASCBFLG1 02922000 ASCBSTND EQU ASCBFLG1 02923000 ASCBABNT EQU ASCBFLG1 02924000 ASCBTERM EQU ASCBFLG1 02925000 ASCBS3S EQU ASCBFLG1 02926000 ASCBCMSH EQU ASCBFLG1 02927000 ASCBRF01 EQU ASCBRCTF 02928000 ASCBTMLW EQU ASCBRCTF 02929000 ASCBOUT EQU ASCBRCTF 02930000 ASCBWAIT EQU ASCBRCTF 02931000 ASCBRV08 EQU ASCBRCTF 02932000 ASCBFQU EQU ASCBRCTF 02933000 ASCBFRS EQU ASCBRCTF 02934000 ASCBTMNO EQU ASCBRCTF 02935000 ASCBDUMP EQU ASCB+96 02936000 ASCBQSVC EQU ASCB+92 02937000 ASCBUBET EQU ASCB+88 02938000 ASCBECB EQU ASCB+84 02939000 ASCBJSTL EQU ASCB+80 02940000 ASCBEWST EQU ASCB+72 02941000 ASCBEJST EQU ASCB+64 02942000 ASCBTSB EQU ASCB+60 02943000 ASCBRSM EQU ASCB+52 02944000 ASCBLDA EQU ASCB+48 02945000 ASCBSTOR EQU ASCB+44 02946000 ASCBRV07 EQU ASCB+42 02947000 ASCBIOSM EQU ASCB+40 02948000 ASCBSEQN EQU ASCB+38 02949000 ASCBCPUS EQU ASCB+32 02950000 ASCBLSLQ EQU ASCB+24 02951000 ASCBFSLQ EQU ASCB+20 02952000 ASCBIOSP EQU ASCB+16 02953000 ASCBLOCK EQU ASCB+12 02954000 ASCBBWDP EQU ASCB+8 02955000 ASCBFWDP EQU ASCB+4 02956000 ASCBEGIN EQU ASCB 02957000 ASVTEND EQU ASVT+528 02958000 ASVTAVAL EQU ASVTENTY 02959000 ASVTRS00 EQU ASVT+520 02960000 ASVTASVT EQU ASVT+512 02961000 ASVTBEGN EQU ASVT+512 02962000 @NM00001 EQU ASVT 02963000 @NM00031 EQU PSA+3668 02964000 PSASTAK EQU PSA+3072 02965000 @NM00030 EQU PSA+1040 02966000 PSAUSEND EQU PSA+1040 02967000 PSARV062 EQU PSA+1036 02968000 PSAATCVT EQU PSA+1032 02969000 PSAPCPSW EQU PSA+1024 02970000 PSAPIR2 EQU PSA+1020 02971000 PSARV059 EQU PSA+1018 02972000 PSASVC13 EQU PSA+1016 02973000 PSASFACC EQU PSA+1008 02974000 PSASTOP EQU PSA+992 02975000 PSASTART EQU PSA+976 02976000 PSARSPSW EQU PSA+968 02977000 PSASRPSW EQU PSA+960 02978000 PSARV045 EQU PSA+892 02979000 PSARV044 EQU PSA+888 02980000 PSARV043 EQU PSA+884 02981000 PSARV042 EQU PSA+880 02982000 PSARV041 EQU PSA+876 02983000 PSARV040 EQU PSA+872 02984000 PSARV025 EQU PSA+868 02985000 PSADSSED EQU PSA+868 02986000 PSADSSPR EQU PSA+864 02987000 PSADSSFW EQU PSA+860 02988000 PSADSS14 EQU PSA+856 02989000 PSADSSPP EQU PSA+848 02990000 PSADSSRP EQU PSA+840 02991000 PSADSS05 EQU PSADSSF4 02992000 PSADSS10 EQU PSADSSF4 02993000 PSADSSVE EQU PSADSSF4 02994000 PSADSSDE EQU PSADSSF4 02995000 PSADSSC0 EQU PSADSSF4 02996000 PSADSSIE EQU PSADSSF4 02997000 PSADSS12 EQU PSADSSF4 02998000 PSADSSRC EQU PSADSSF4 02999000 PSARV057 EQU PSADSSF3 03000000 PSARV056 EQU PSADSSF3 03001000 PSARV055 EQU PSADSSF3 03002000 PSADSSMC EQU PSADSSF3 03003000 PSADSSRW EQU PSADSSF3 03004000 PSADSSNM EQU PSADSSF3 03005000 PSADSSES EQU PSADSSF3 03006000 PSADSSGP EQU PSADSSF3 03007000 PSADSSF2 EQU PSADSSFL+1 03008000 PSADSSPI EQU PSADSSF1 03009000 PSADSSOI EQU PSADSSF1 03010000 PSADSSSP EQU PSADSSF1 03011000 PSADSSTP EQU PSADSSF1 03012000 PSADSSDW EQU PSADSSF1 03013000 PSADSSDD EQU PSADSSF1 03014000 PSADSSDM EQU PSADSSF1 03015000 PSADSSMV EQU PSADSSF1 03016000 PSADSSTS EQU PSA+816 03017000 PSADSSWK EQU PSA+812 03018000 PSADSSR3 EQU PSA+808 03019000 PSADSSR2 EQU PSA+804 03020000 PSADSSRS EQU PSA+800 03021000 PSASTOR EQU PSA+796 03022000 PSACPUSA EQU PSA+794 03023000 PSAVSTAP EQU PSA+792 03024000 PSAWKVAP EQU PSA+788 03025000 PSAWKRAP EQU PSA+784 03026000 PSAMCHIC EQU PSA+783 03027000 PSARV061 EQU PSA+782 03028000 PSASYMSK EQU PSA+781 03029000 PSAMCHFL EQU PSA+780 03030000 PSACR0 EQU PSA+776 03031000 PSAPSWSV EQU PSA+768 03032000 PSACLHS EQU PSAHLHI 03033000 PSALKR15 EQU PSALKSA+60 03034000 PSALKR14 EQU PSALKSA+56 03035000 PSALKR13 EQU PSALKSA+52 03036000 PSALKR12 EQU PSALKSA+48 03037000 PSALKR11 EQU PSALKSA+44 03038000 PSALKR10 EQU PSALKSA+40 03039000 PSALKR9 EQU PSALKSA+36 03040000 PSALKR8 EQU PSALKSA+32 03041000 PSALKR7 EQU PSALKSA+28 03042000 PSALKR6 EQU PSALKSA+24 03043000 PSALKR5 EQU PSALKSA+20 03044000 PSALKR4 EQU PSALKSA+16 03045000 PSALKR3 EQU PSALKSA+12 03046000 PSALKR2 EQU PSALKSA+8 03047000 PSALKR1 EQU PSALKSA+4 03048000 PSALKR0 EQU PSALKSA 03049000 PSARV023 EQU PSACLHT+52 03050000 PSALOCAL EQU PSACLHT+48 03051000 PSACMSL EQU PSACLHT+44 03052000 PSAOPTL EQU PSACLHT+40 03053000 PSATPACL EQU PSACLHT+36 03054000 PSATPDNL EQU PSACLHT+32 03055000 PSATPNCL EQU PSACLHT+28 03056000 PSAIOSLL EQU PSACLHT+24 03057000 PSAIOSUL EQU PSACLHT+20 03058000 PSAIOSCL EQU PSACLHT+16 03059000 PSAIOSSL EQU PSACLHT+12 03060000 PSASALCL EQU PSACLHT+8 03061000 PSAASML EQU PSACLHT+4 03062000 PSADISPL EQU PSACLHT 03063000 PSASRSA EQU PSA+636 03064000 PSARV050 EQU PSA+634 03065000 PSADSSGO EQU PSA+633 03066000 PSARECUR EQU PSA+632 03067000 PSAHLHIS EQU PSA+628 03068000 PSAIPCSA EQU PSA+624 03069000 @NM00029 EQU PSA+621 03070000 PSAIPCDM EQU PSA+620 03071000 PSAIPCD EQU PSA+616 03072000 @NM00028 EQU PSA+613 03073000 PSAIPCRM EQU PSA+612 03074000 PSAIPCR EQU PSA+608 03075000 PSAMCHEX EQU PSA+600 03076000 PSAMPSW EQU PSA+592 03077000 PSAEXPS2 EQU PSA+584 03078000 PSAEXPS1 EQU PSA+576 03079000 PSAPIREG EQU PSA+572 03080000 PSARSREG EQU PSA+568 03081000 PSAGPREG EQU PSA+556 03082000 PSARV022 EQU PSASUP4 03083000 PSARV021 EQU PSASUP4 03084000 PSARV020 EQU PSASUP4 03085000 PSARV019 EQU PSASUP4 03086000 PSARV018 EQU PSASUP4 03087000 PSARV017 EQU PSASUP4 03088000 PSARV016 EQU PSASUP4 03089000 PSARV015 EQU PSASUP4 03090000 PSARV014 EQU PSASUP3 03091000 PSARV013 EQU PSASUP3 03092000 PSARV012 EQU PSASUP3 03093000 PSARV011 EQU PSASUP3 03094000 PSARV010 EQU PSASUP3 03095000 PSAPSREG EQU PSASUP3 03096000 PSAPI2 EQU PSASUP3 03097000 PSAIOSUP EQU PSASUP3 03098000 PSALCR EQU PSASUP2 03099000 PSARTM EQU PSASUP2 03100000 PSAACR EQU PSASUP2 03101000 PSAIPCE2 EQU PSASUP2 03102000 PSAIPCES EQU PSASUP2 03103000 PSAIPCEC EQU PSASUP2 03104000 PSAGTF EQU PSASUP2 03105000 PSAIPCRI EQU PSASUP2 03106000 PSAIPCRP EQU PSASUP1 03107000 PSAIPCDR EQU PSASUP1 03108000 PSADISP EQU PSASUP1 03109000 PSALOCK EQU PSASUP1 03110000 PSAPI EQU PSASUP1 03111000 PSAEXT EQU PSASUP1 03112000 PSASVC EQU PSASUP1 03113000 PSAIO EQU PSASUP1 03114000 PSAANEW EQU PSA+544 03115000 PSATOLD EQU PSA+540 03116000 PSATNEW EQU PSA+536 03117000 PSALCCAR EQU PSA+532 03118000 PSALCCAV EQU PSA+528 03119000 PSAPCCAR EQU PSA+524 03120000 PSAPCCAV EQU PSA+520 03121000 PSACPULA EQU PSA+518 03122000 PSACPUPA EQU PSA+516 03123000 PSAPSA EQU PSA+512 03124000 FLCHDEND EQU PSA+512 03125000 FLCCRSAV EQU FLCMCLA+280 03126000 FLCGRSAV EQU FLCMCLA+216 03127000 FLCFPSAV EQU FLCMCLA+184 03128000 FLCFLA EQU FLCMCLA+88 03129000 FLCRGNCD EQU FLCMCLA+84 03130000 FLCFSAA EQU FLCFSA+1 03131000 @NM00027 EQU FLCFSA 03132000 @NM00026 EQU FLCMCLA+72 03133000 FLCMCIC EQU FLCMCLA+64 03134000 @NM00025 EQU FLCMCLA+20 03135000 FLCIOAA EQU FLCIOA+1 03136000 @NM00024 EQU FLCIOA 03137000 @NM00023 EQU FLCMCLA+15 03138000 @NM00022 EQU FLCMCLA+14 03139000 @NM00021 EQU FLCMCLA+12 03140000 FLCLCL EQU FLCMCLA+8 03141000 FLCIOELA EQU FLCIOEL+1 03142000 @NM00020 EQU FLCIOEL 03143000 FLCCHNID EQU FLCMCLA 03144000 @NM00019 EQU PSA+160 03145000 FLCMTRCD EQU PSA+157 03146000 @NM00018 EQU PSA+156 03147000 FLCPERA EQU FLCPER+1 03148000 @NM00017 EQU FLCPER 03149000 @NM00016 EQU PSA+151 03150000 FLCPERCD EQU PSA+150 03151000 FLCMCNUM EQU PSA+149 03152000 @NM00015 EQU PSA+148 03153000 FLCTEAA EQU FLCTEA+1 03154000 @NM00014 EQU FLCTEA 03155000 PSAPIPC EQU PSAPICOD 03156000 PSAPIMC EQU PSAPICOD 03157000 PSAPIPER EQU PSAPICOD 03158000 PSARV049 EQU FLCPICOD 03159000 FLCPILCB EQU FLCPIILC 03160000 @NM00013 EQU FLCPIILC 03161000 @NM00012 EQU PSAEPPSW 03162000 FLCSVCN EQU PSAESPSW+2 03163000 FLCSILCB EQU FLCSVILC 03164000 @NM00011 EQU FLCSVILC 03165000 @NM00010 EQU PSAESPSW 03166000 FLCEICOD EQU PSAEEPSW+2 03167000 PSASPAD EQU PSAEEPSW 03168000 @NM00009 EQU PSA+128 03169000 FLCINPSW EQU PSA+120 03170000 FLCMNPSW EQU PSA+112 03171000 FLCPNPSW EQU PSA+104 03172000 FLCSNPSW EQU PSA+96 03173000 FLCENPSW EQU PSA+88 03174000 FLCTRACE EQU PSA+84 03175000 FLCTIMER EQU PSA+80 03176000 FLCCVT2 EQU PSA+76 03177000 FLCCAW EQU PSA+72 03178000 FLCCSW EQU PSA+64 03179000 FLCIOPSW EQU PSA+56 03180000 FLCMOPSW EQU PSA+48 03181000 FLCPOPSW EQU PSA+40 03182000 FLCSOPSW EQU PSA+32 03183000 FLCEOPSW EQU PSA+24 03184000 @NM00008 EQU FLCICCW2+4 03185000 FLCCVT EQU FLCICCW2 03186000 FLCICCW1 EQU FLCROPSW 03187000 FLCIPPSW EQU FLCRNPSW 03188000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03189000 @RT00426 EQU TESTFIX 03190000 @RC00466 EQU @EL00002 03191000 @ENDDATA EQU * 03192000 END IEAVEMRQ,(C'PLS2128',0701,75324) 03193000