TITLE 'SET LOCAL TIME--MODULE IEE6503D *00001000 ' 00002000 IEE6503D CSECT , 0001 00003000 IGC6503D DS 0H 0001 00004000 ENTRY IGC6503D 00005000 @MAINENT DS 0H 0001 00006000 USING *,@15 0001 00007000 B @PROLOG 0001 00008000 DC AL2(@EP00001-@MAINENT) 00009000 DC AL1(16) 0001 00010000 DC C'IEE6503D 76.229' 0001 00011000 DROP @15 00012000 @PROLOG BALR @10,0 0001 00013000 @PSTART DS 0H 0001 00014000 USING @PSTART,@10 0001 00015000 LR @03,@15 0001 00016000 L @00,@SIZDATD 0001 00017000 GETMAIN R,LV=(0) 00018000 LR @09,@01 0001 00019000 USING @DATD,@09 0001 00020000 LR @15,@03 0001 00021000 AH @15,4(,@15) 0001 00022000 BR @15 0001 00023000 @EP00001 DS 0H 0002 00024000 * 0086 00025000 */********************************************************************/ 00026000 */* */ 00027000 */* SET CSECT CODE IN XSA FOR IEE0603D ESTAE ERROR EXIT ROUTINE. */ 00028000 */* SAVE THE CALLER'S RETURN ADDRESS AND THE ADDRESS OF THE XSA. */ 00029000 */* ESTABLISH ADDRESSABILITY FOR THE CVT. INITIALIZE THE ERROR CODE. */ 00030000 */* */ 00031000 */********************************************************************/ 00032000 * 0086 00033000 * CSECTCDE='40'X; /* INDICATE IEE6503D IN CONTROL */ 00034000 MVI CSECTCDE(XSAPTR),X'40' 0086 00035000 * SAVERET=REG14; /* SAVE RETURN ADDRESS */ 00036000 ST REG14,SAVERET 0087 00037000 * RESPECIFY 0088 00038000 * (REG0, 0088 00039000 * REG14) UNRESTRICTED; 0088 00040000 * SAVEXSA=XSAPTR; /* SAVE POINTER TO XSA */ 00041000 ST XSAPTR,SAVEXSA 0089 00042000 * LCVTPTR=CVTPTR; 0090 00043000 L LCVTPTR,CVTPTR 0090 00044000 * RESPECIFY 0091 00045000 * CVTMAP BASED(LCVTPTR); 0091 00046000 * RESPECIFY 0092 00047000 * (ERRCODE) RESTRICTED; 0092 00048000 * ERRCODE=0; 0093 00049000 SLR ERRCODE,ERRCODE 0093 00050000 * 0094 00051000 */********************************************************************/ 00052000 */* */ 00053000 */* TEST FOR SPECIFICATION OF THE RESET OR CLOCK PARAMETERS. */ 00054000 */* */ 00055000 */********************************************************************/ 00056000 * 0094 00057000 * IF RESET='1'B|CLOCK='1'B THEN 0094 00058000 * 0094 00059000 TM RESET(XSAPTR),B'00010001' 0094 00060000 BZ @RF00094 0094 00061000 */********************************************************************/ 00062000 */* */ 00063000 */* IF EITHER WAS SPECIFIED, SEE IF IT IS INITIALIZATION/VARY AND */ 00064000 */* THE CONFIGURATION IS NOT A UNI-PROCESSOR. IF THAT IS THE CASE, */ 00065000 */* HAVE THE CPU REPRESENTED BY THE FIRST TCWA ENTRY STORE ITS */ 00066000 */* CLOCK, AND MOVE THE STORED VALUE TO THE XSA. */ 00067000 */* */ 00068000 */********************************************************************/ 00069000 * 0095 00070000 * DO; 0095 00071000 * RESPECIFY 0096 00072000 * (REG0, 0096 00073000 * REG1) RESTRICTED; 0096 00074000 * IF BAIN='0'B&CSDMP='1'B THEN 0097 00075000 L @12,CVTMSER(,LCVTPTR) 0097 00076000 TM BAIN(@12),B'10000000' 0097 00077000 BNZ @RF00097 0097 00078000 L @12,CVTCSD(,LCVTPTR) 0097 00079000 TM CSDMP(@12),B'10000000' 0097 00080000 BNO @RF00097 0097 00081000 * DO; 0098 00082000 * RESPECIFY 0099 00083000 * (REG11, 0099 00084000 * REG12) RESTRICTED; 0099 00085000 * REG11=TPCTCWA; 0100 00086000 L @08,TPCPTR(,LCVTPTR) 0100 00087000 L REG11,TPCTCWA(,@08) 0100 00088000 * REG12=ADDR(DELTA3); 0101 00089000 LA REG12,DELTA3 0101 00090000 * REG1=EVAL(REG11+LENGTH(TCWA))->TCWAPCCA; 0102 00091000 LA @08,112 0102 00092000 ALR @08,REG11 0102 00093000 L REG1,TCWAPCCA(,@08) 0102 00094000 * GENERATE CODE REFS(CVTIPCRI,CVT) 0103 00095000 * (RISGNL SERIAL,CPU=(1),EP=(12),PARM=(11)); 0103 00096000 RISGNL SERIAL,CPU=(1),EP=(12),PARM=(11) 00097000 * XSAGMT=REG11->TCWACVAL; 0104 00098000 MVC XSAGMT(8,XSAPTR),TCWACVAL(REG11) 0104 00099000 * RESPECIFY 0105 00100000 * (REG11, 0105 00101000 * REG12) UNRESTRICTED; 0105 00102000 * END; 0106 00103000 * ELSE 0107 00104000 * 0107 00105000 */********************************************************************/ 00106000 */* */ 00107000 */* IF IT IS NOT IPL/VARY AND AN MP CONFIGURATION, */ 00108000 */* STORE THE TOD CLOCK TO GET THE CURRENT VALUE. IF THE RESULTING */ 00109000 */* CONDITION CODE IS NOT ZERO (IE. THE CLOCK ON THIS CPU IS IN THE */ 00110000 */* ERROR STATE OR THE STOPPED STATE), ISSUE A TIME MACRO TO GET THE */ 00111000 */* VALUE FROM ANOTHER TOD CLOCK. IF THIS ACTION ALSO FAILS, THE */ 00112000 */* NEW LOCAL TIME AND DATE CANNOT BE CALCULATED. */ 00113000 */* */ 00114000 */********************************************************************/ 00115000 * 0107 00116000 * DO; 0107 00117000 B @RC00097 0107 00118000 @RF00097 DS 0H 0108 00119000 * GENERATE CODE SETS(XSAGMT) 0108 00120000 * (STCK XSAGMT(XSAPTR) GET THE CURRENT TOD CLOCK VALUE); 00121000 STCK XSAGMT(XSAPTR) GET THE CURRENT TOD CLOCK VALUE 00122000 * BC(8,TESTRC); /* BRANCH IF THE CLOCK IS SET */ 00123000 BC 8,TESTRC 0109 00124000 */********************************************************************/ 00125000 */* */ 00126000 */* IF THE CLOCK IS NOT SET, ISSUE A TIME SVC TO GET THE CURRENT */ 00127000 */* VALUE FROM A CLOCK THAT IS SET. */ 00128000 */* */ 00129000 */********************************************************************/ 00130000 * 0110 00131000 * REG0=ADDR(XSAGMT); 0110 00132000 LR REG0,XSAPTR 0110 00133000 * GENERATE CODE SETS(XSAGMT) FLOWS(TESTRC) 0111 00134000 * (TIME STCK,(0),ERRET=TESTRC); 0111 00135000 TIME STCK,(0),ERRET=TESTRC 00136000 * END; 0112 00137000 * RESPECIFY 0113 00138000 * (REG0, 0113 00139000 * REG1) UNRESTRICTED; 0113 00140000 @RC00097 DS 0H 0114 00141000 * END; 0114 00142000 * 0115 00143000 */********************************************************************/ 00144000 */* */ 00145000 */* TEST THE VALUE OF THE ERROR CODE. IT WILL BE ZERO ONLY IF A */ 00146000 */* GOOD TOD CLOCK EXISTS IN THE CONFIGURATION (IE. THE STCK OR THE */ 00147000 */* TIME SVC WAS SUCCESSFUL). */ 00148000 */* */ 00149000 */********************************************************************/ 00150000 * 0115 00151000 *TESTRC: 0115 00152000 * IF ERRCODE=0 THEN 0115 00153000 * 0115 00154000 @RF00094 DS 0H 0115 00155000 TESTRC LTR ERRCODE,ERRCODE 0115 00156000 BNZ @RF00115 0115 00157000 */********************************************************************/ 00158000 */* */ 00159000 */* IF SUCCESSFUL, SEE IF THE RESET PARAMETER WAS SPECIFIED. */ 00160000 */* */ 00161000 */********************************************************************/ 00162000 * 0116 00163000 * DO; 0116 00164000 * RESPECIFY 0117 00165000 * (ERRCODE) UNRESTRICTED; 0117 00166000 * IF RESET='1'B THEN 0118 00167000 * 0118 00168000 TM RESET(XSAPTR),B'00010000' 0118 00169000 BNO @RF00118 0118 00170000 */********************************************************************/ 00171000 */* */ 00172000 */* IF RESET WAS SPECIFIED, USE THE TIME ZONE CONSTANT IN EFFECT */ 00173000 */* AT IPL TIME AS THE NEW TIME ZONE CONSTANT. THEN GET THE LOCAL */ 00174000 */* TIME AND DAY, IN TERMS OF SECONDS, FOR THE NEW TIME ZONE */ 00175000 */* CONSTANT. */ 00176000 */* */ 00177000 */********************************************************************/ 00178000 * 0119 00179000 * DO; 0119 00180000 * RESPECIFY 0120 00181000 * (REG12, 0120 00182000 * REG13, 0120 00183000 * REG14) RESTRICTED; 0120 00184000 * NEWTZ=TPCTZORG; 0121 00185000 L @15,TPCPTR(,LCVTPTR) 0121 00186000 L NEWTZ,TPCTZORG(,@15) 0121 00187000 * REG13=XSAGMTL+NEWTZ; /* GET NEW LOCAL CLOCK VALUE */ 00188000 LR REG13,NEWTZ 0122 00189000 AL REG13,XSAGMTL(,XSAPTR) 0122 00190000 * CALL CONVERT; /* CONVERT TO SECONDS */ 00191000 BAL @14,CONVERT 0123 00192000 * RESPECIFY 0124 00193000 * (REG14) UNRESTRICTED; 0124 00194000 * NLCLTOD=REG12; /* SAVE SECONDS ELAPSED SINCE 0125 00195000 * MIDNIGHT */ 00196000 ST REG12,NLCLTOD 0125 00197000 */********************************************************************/ 00198000 */* */ 00199000 */* CALCULATE NEW LOCAL DATE. ADD 1 TO DAYS ELAPSED SINCE THE EPOCH,*/ 00200000 */* AND SAVE THE VALUE FOR LATER USE IN CALCULATING THE NEW VALUE FOR*/ 00201000 */* THE MIDNIGHT TQE. THEN MULTIPLY THE SUM BY 4, AND CLEAR REG 12 */ 00202000 */* FOR DIVISION. */ 00203000 */* */ 00204000 */********************************************************************/ 00205000 * 0126 00206000 * REG13=REG13+1; 0126 00207000 AH REG13,@CH00118 0126 00208000 * ELDAYS=REG13; 0127 00209000 ST REG13,ELDAYS 0127 00210000 * REG13=4*REG13; 0128 00211000 SLL REG13,2 0128 00212000 * REG12=0; 0129 00213000 * 0129 00214000 SLR REG12,REG12 0129 00215000 */********************************************************************/ 00216000 */* */ 00217000 */* DIVIDE BY THE NUMBER OF DAYS IN 4 YEARS GIVING YEAR OF THE */ 00218000 */* CENTURY IN REGISTER 13. THEN DIVIDE THE REMAINDER BY 4 GIVING */ 00219000 */* DAYS ELAPSED SINCE THE BEGINNING OF THE YEAR (EXCEPT FOR 1900) */ 00220000 */* IN REGISTER 12. */ 00221000 */* */ 00222000 */********************************************************************/ 00223000 * 0130 00224000 * GENERATE CODE REFS(DAYS4YRS) SETS(REG12,REG13) 0130 00225000 * (D REG12,DAYS4YRS); 0130 00226000 D REG12,DAYS4YRS 00227000 * SRL(REG12,2); 0131 00228000 * 0131 00229000 SRL REG12,2 0131 00230000 */********************************************************************/ 00231000 */* */ 00232000 */* TEST REGISTER 13 FOR NON-ZERO INDICATING NOT THE YEAR 1900. */ 00233000 */* */ 00234000 */********************************************************************/ 00235000 * 0132 00236000 * IF REG13^=0 THEN 0132 00237000 * 0132 00238000 LTR REG13,REG13 0132 00239000 BZ @RF00132 0132 00240000 */********************************************************************/ 00241000 */* */ 00242000 */* IF IT IS NOT 1900, ADD 1 TO THE NUMBER OF DAYS ELAPSED SINCE THE */ 00243000 */* EPOCH SINCE THEY ARE NOT ONE-ORIGINED. THEN SHIFT THE YEAR VALUE*/ 00244000 */* TO ALIGN PROPERLY WITH DAYS FOR CONVERSION TO PACKED DECIMAL. */ 00245000 */* */ 00246000 */********************************************************************/ 00247000 * 0133 00248000 * DO; 0133 00249000 * REG12=REG12+1; 0134 00250000 AH REG12,@CH00118 0134 00251000 * REG13=REG13*1000; 0135 00252000 LR @15,REG13 0135 00253000 MH @15,@CH01722 0135 00254000 LR REG13,@15 0135 00255000 * END; 0136 00256000 * 0136 00257000 */********************************************************************/ 00258000 */* */ 00259000 */* CONCATENATE DAYS TO YEAR, CONVERT TO PACKED DECIMAL AND STORE */ 00260000 */* THE VALUE IN THE PKDATE. */ 00261000 */* */ 00262000 */********************************************************************/ 00263000 * 0137 00264000 * REG13=REG13+REG12; 0137 00265000 @RF00132 ALR REG13,REG12 0137 00266000 * CVD(REG13,XAV6503D); 0138 00267000 CVD REG13,XAV6503D(,XSAPTR) 0138 00268000 * XAV6503D(8)=XAV6503D(8)|'0F'X;/* MAKE SIGN HEX F */ 00269000 OI XAV6503D+7(XSAPTR),X'0F' 0139 00270000 * RESPECIFY 0140 00271000 * (REG12, 0140 00272000 * REG13) UNRESTRICTED; 0140 00273000 * END; 0141 00274000 * 0142 00275000 */********************************************************************/ 00276000 */* */ 00277000 */* IF RESET WAS NOT SPECIFIED, SEE IF THE CLOCK PARAMETER WAS */ 00278000 */* SPECIFIED. */ 00279000 */* */ 00280000 */********************************************************************/ 00281000 * 0142 00282000 * ELSE 0142 00283000 * DO; 0142 00284000 B @RC00118 0142 00285000 @RF00118 DS 0H 0143 00286000 * IF CLOCK='1'B THEN 0143 00287000 * 0143 00288000 TM CLOCK(XSAPTR),B'00000001' 0143 00289000 BNO @RF00143 0143 00290000 */********************************************************************/ 00291000 */* */ 00292000 */* IF SO, CALCULATE THE NEW TIME ZONE CONSTANT. */ 00293000 */* */ 00294000 */********************************************************************/ 00295000 * 0144 00296000 * DO; 0144 00297000 * UNPK(WORK1(1:6),PKTIME);/* UNPACK LOCAL TIME */ 00298000 UNPK WORK1(6),PKTIME(4,XSAPTR) 0145 00299000 * PACK(WORK2,WORK1(1:2));/* PACK HH */ 00300000 PACK WORK2(8),WORK1(2) 0146 00301000 * CVB(HOURS,WORK2); /* CONVERT HH TO BINARY */ 00302000 CVB HOURS,WORK2 0147 00303000 * PACK(WORK2,WORK1(3:4));/* PACK MM */ 00304000 PACK WORK2(8),WORK1+2(2) 0148 00305000 * CVB(MINUTES,WORK2); /* CONVERT MM TO BINARY */ 00306000 CVB MINUTES,WORK2 0149 00307000 * PACK(WORK2,WORK1(5:6));/* PACK SS */ 00308000 PACK WORK2(8),WORK1+4(2) 0150 00309000 * CVB(SECONDS,WORK2); /* CONVERT SS TO BINARY */ 00310000 CVB SECONDS,WORK2 0151 00311000 */********************************************************************/ 00312000 */* */ 00313000 */* CONVERT HOURS, MINUTES, AND SECONDS TO TOTAL SECONDS. */ 00314000 */* */ 00315000 */********************************************************************/ 00316000 * 0152 00317000 * NLCLTOD=SECONDS+(60*(MINUTES+(60*HOURS))); 0152 00318000 * 0152 00319000 LA @15,60 0152 00320000 LR @01,HOURS 0152 00321000 MR @00,@15 0152 00322000 ALR @01,MINUTES 0152 00323000 MR @00,@15 0152 00324000 ALR @01,SECONDS 0152 00325000 ST @01,NLCLTOD 0152 00326000 */********************************************************************/ 00327000 */* */ 00328000 */* CONVERT HIGH ORDER 32 BITS OF GMT CLOCK VALUE TO SECONDS. */ 00329000 */* */ 00330000 */********************************************************************/ 00331000 * 0153 00332000 * RESPECIFY 0153 00333000 * (REG12, 0153 00334000 * REG13, 0153 00335000 * REG14) RESTRICTED; 0153 00336000 * REG13=XSAGMTL; /* GET LEFT HALF OF GREENWICH 0154 00337000 * TIME */ 00338000 L REG13,XSAGMTL(,XSAPTR) 0154 00339000 * CALL CONVERT; /* CONVERT TO SECONDS */ 00340000 BAL @14,CONVERT 0155 00341000 * RESPECIFY 0156 00342000 * (REG14) UNRESTRICTED; 0156 00343000 * 0156 00344000 */********************************************************************/ 00345000 */* */ 00346000 */* CALCULATE THE DIFFERENCE BETWEEN THE NEW LOCAL TIME & GREENWICH */ 00347000 */* TIME. */ 00348000 */* */ 00349000 */********************************************************************/ 00350000 * 0157 00351000 * REG12=NLCLTOD-REG12; 0157 00352000 * 0157 00353000 L @15,NLCLTOD 0157 00354000 SLR @15,REG12 0157 00355000 LR REG12,@15 0157 00356000 */********************************************************************/ 00357000 */* */ 00358000 */* SEE IF THE ABSOLUTE DIFFERENCE IS GREATER THAN 12 HOURS. */ 00359000 */* */ 00360000 */********************************************************************/ 00361000 * 0158 00362000 * IF ABS(REG12)>K12HRSEC THEN 0158 00363000 * 0158 00364000 LPR @15,REG12 0158 00365000 C @15,K12HRSEC 0158 00366000 BNH @RF00158 0158 00367000 */********************************************************************/ 00368000 */* */ 00369000 */* IF IT IS GREATER THAN 12 HOURS AND THE DIFFERENCE IS NEGATIVE, */ 00370000 */* ADD 24 HOURS TO THE DIFFERENCE TO GET THE CORRECT TIME ZONE; */ 00371000 */* BUT IF THE DIFFERENCE IS POSITIVE, SUBTRACT 24 HOURS. */ 00372000 */* */ 00373000 */********************************************************************/ 00374000 * 0159 00375000 * DO; 0159 00376000 * REG13=K24HRSEC; 0160 00377000 L REG13,K24HRSEC 0160 00378000 * IF REG12<0 THEN 0161 00379000 LTR REG12,REG12 0161 00380000 BNM @RF00161 0161 00381000 * REG12=REG12+REG13; 0162 00382000 ALR REG12,REG13 0162 00383000 * ELSE 0163 00384000 * REG12=REG12-REG13; 0163 00385000 B @RC00161 0163 00386000 @RF00161 SLR REG12,REG13 0163 00387000 * END; 0164 00388000 * 0164 00389000 @RC00161 DS 0H 0165 00390000 */********************************************************************/ 00391000 */* */ 00392000 */* RECONVERT THE NEW TIME ZONE CONSTANT TO 2**20 MICROSECOND UNITS */ 00393000 */* AND SAVE IT. */ 00394000 */* */ 00395000 */********************************************************************/ 00396000 * 0165 00397000 * REG12=REG12*K15625H; 0165 00398000 @RF00158 LR @15,REG12 0165 00399000 MH @15,K15625H 0165 00400000 LR REG12,@15 0165 00401000 * SRA(REG12,14); 0166 00402000 SRA REG12,14 0166 00403000 * NEWTZ=REG12; 0167 00404000 LR NEWTZ,REG12 0167 00405000 * RESPECIFY 0168 00406000 * (REG12, 0168 00407000 * REG13) UNRESTRICTED; 0168 00408000 * END; 0169 00409000 * END; 0170 00410000 @RF00143 DS 0H 0171 00411000 * 0171 00412000 */********************************************************************/ 00413000 */* */ 00414000 */* CLEAR THE PAGE-FIXING ECB, AND SET UP THE PAGE-FIXING INTERFACE. */ 00415000 */* */ 00416000 */********************************************************************/ 00417000 * 0171 00418000 * XSAECB=0; 0171 00419000 @RC00118 SLR @15,@15 0171 00420000 ST @15,XSAECB(,XSAPTR) 0171 00421000 * RESPECIFY 0172 00422000 * (REG0, 0172 00423000 * REG1, 0172 00424000 * REG11, 0172 00425000 * REG12, 0172 00426000 * REG13, 0172 00427000 * REG14, 0172 00428000 * REG15) RESTRICTED; 0172 00429000 * REG1=ADDR(BEGLOCK); /* GET PTR TO START OF LOCKED 0173 00430000 * CODE */ 00431000 LA REG1,BEGLOCK 0173 00432000 * REG15=ADDR(ENDLOCK); /* GET PTR TO END OF LOCKED CODE */ 00433000 LA REG15,ENDLOCK 0174 00434000 * REG0=ADDR(XSAECB); /* GET ADDRESS OF ECB */ 00435000 LA REG0,XSAECB(,XSAPTR) 0175 00436000 */********************************************************************/ 00437000 */* */ 00438000 */* INVOKE THE PAGE-FIXING ROUTINE TO GET THE PAGE CONTAINING THE */ 00439000 */* WORKAREA FIXED, AND WAIT FOR THE COMPLETION OF THE OPERATION. */ 00440000 */* THEN, GET THE DISPATCHER LOCK TO SERIALIZE USE OF THE REAL TIME */ 00441000 */* TQE QUEUE. */ 00442000 */* */ 00443000 */********************************************************************/ 00444000 * 0176 00445000 * GENERATE CODE(PGFIX R,A=(1),EA=(15),ECB=(0),LONG=N); 0176 00446000 PGFIX R,A=(1),EA=(15),ECB=(0),LONG=N 00447000 * REG1=ADDR(XSAECB); /* GET ECB ADDRESS */ 00448000 LA REG1,XSAECB(,XSAPTR) 0177 00449000 * GENERATE CODE REFS(PSALITA) SETS(XSAECB); 0178 00450000 * 0178 00451000 * /* 00452000 WAIT 1,ECB=(1) WAIT FOR THE PAGE FIX 00453000 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, **00454000 RELATED=('REAL TQE QUEUE',(IEE6503D,(NOLABEL))) */ 00455000 */********************************************************************/ 00456000 */* */ 00457000 */* SET UP FRR INTERFACE AND ISSUE SETFRR TO ESTABLISH A RECOVERY */ 00458000 */* EXIT FOR THE LOCKED CODE. */ 00459000 */* */ 00460000 */********************************************************************/ 00461000 * 0179 00462000 *BEGLOCK: 0179 00463000 * REG11=TPCFRRP; /* GET EXIT ROUTINE ADDRESS */ 00464000 BEGLOCK L @03,TPCPTR(,LCVTPTR) 0179 00465000 L REG11,TPCFRRP(,@03) 0179 00466000 * GENERATE CODE REFS(REG11,PSACSTK,PSA,PSALSFCC,FRRS,FRRSLAST, 00467000 * FRRSENTR,FRRSELEN) SETS(FRRSCURR,FRRSFRRA,FRRSPARM,FRRSPTR, 00468000 * FRREPTR,REG12); 0180 00469000 * /* 00470000 SETFRR A,FRRAD=(11),PARMAD=(12),WRKREGS=(FRRSPTR,FRREPTR), **00471000 RELATED=('DISP LOCK',(IEE6503D,(NONE))) */ 00472000 * FRRPADDR=REG12; /* SAVE ADDR OF PARAMETER AREA */ 00473000 LR FRRPADDR,REG12 0181 00474000 * RESPECIFY 0182 00475000 * TFRRPARM BASED(FRRPADDR); 0182 00476000 * TFRRID=ID6503D; /* INDICATE CSECT AND FUNCTION */ 00477000 MVC TFRRID(4,FRRPADDR),ID6503D 0183 00478000 * TFRRDISP='1'B; /* INDICATE DISPATCHER LOCK */ 00479000 OI TFRRDISP(FRRPADDR),B'10000000' 0184 00480000 * RESPECIFY 0185 00481000 * (REG0, 0185 00482000 * REG1, 0185 00483000 * REG11, 0185 00484000 * REG12, 0185 00485000 * REG13, 0185 00486000 * REG14, 0185 00487000 * REG15) UNRESTRICTED; 0185 00488000 * 0186 00489000 */********************************************************************/ 00490000 */* */ 00491000 */* TEST FOR SPECIFICATION OF THE DATE PARAMETER BY ITSELF. */ 00492000 */* */ 00493000 */********************************************************************/ 00494000 * 0186 00495000 * IF CLOCK^='1'B&RESET^='1'B THEN 0186 00496000 * 0186 00497000 TM CLOCK(XSAPTR),B'00010001' 0186 00498000 BNZ @RF00186 0186 00499000 */********************************************************************/ 00500000 */* */ 00501000 */* IF DATE WAS SPECIFIED ALONE, SET THE CORRECTION FACTOR TO ZERO. */ 00502000 */* */ 00503000 */********************************************************************/ 00504000 * 0187 00505000 * CORRFACT=0; 0187 00506000 * 0187 00507000 SLR CORRFACT,CORRFACT 0187 00508000 */********************************************************************/ 00509000 */* */ 00510000 */* IF CLOCK OR RESET WAS SPECIFIED, CALCULATE THE CORRECTION FACTOR */ 00511000 */* AS THE DIFFERENCE BETWEEN THE OLD AND NEW LOCAL TIMES. */ 00512000 */* THEN PUT THE NEW TIME ZONE CONSTANT INTO THE CVT. */ 00513000 */* */ 00514000 */********************************************************************/ 00515000 * 0188 00516000 * ELSE 0188 00517000 * DO; 0188 00518000 B @RC00186 0188 00519000 @RF00186 DS 0H 0189 00520000 * RESPECIFY 0189 00521000 * (REG12, 0189 00522000 * REG13, 0189 00523000 * REG14) RESTRICTED; 0189 00524000 * REG13=XSAGMTL+CVTTZ; /* GET OLD LOCAL CLOCK VALUE */ 00525000 L REG13,XSAGMTL(,XSAPTR) 0190 00526000 AL REG13,CVTTZ(,LCVTPTR) 0190 00527000 * CALL CONVERT; /* CONVERT TO SECONDS */ 00528000 BAL @14,CONVERT 0191 00529000 * RESPECIFY 0192 00530000 * (REG13, 0192 00531000 * REG14) UNRESTRICTED; 0192 00532000 * 0192 00533000 */********************************************************************/ 00534000 */* */ 00535000 */* CONVERT CORRECTION FACTOR TO 1.048576 SECOND UNITS. */ 00536000 */* */ 00537000 */********************************************************************/ 00538000 * 0193 00539000 * REG12=(REG12-NLCLTOD)*K15625H; 0193 00540000 LR @01,REG12 0193 00541000 SL @01,NLCLTOD 0193 00542000 MH @01,K15625H 0193 00543000 LR REG12,@01 0193 00544000 * SRA(REG12,14); 0194 00545000 SRA REG12,14 0194 00546000 * CORRFACT=REG12; /* SAVE CORRECTION FACTOR */ 00547000 LR CORRFACT,REG12 0195 00548000 * CVTTZ=NEWTZ; /* STORE NEW TIME ZONE CONSTANT */ 00549000 ST NEWTZ,CVTTZ(,LCVTPTR) 0196 00550000 * RESPECIFY 0197 00551000 * (REG12) UNRESTRICTED; 0197 00552000 * 0198 00553000 */********************************************************************/ 00554000 */* */ 00555000 */* SEARCH THE QUEUE OF REAL TIME TQE'S FOR THOSE SPECIFIED WITH THE */ 00556000 */* TOD OPTION. WHEN ONE IS FOUND UPDATE THE TQEVAL FIELD TO */ 00557000 */* REFLECT THE NEW LOCAL TIME. END THE SEARCH WHEN THE DUMMY TQE */ 00558000 */* IS ENCOUNTERED. */ 00559000 */* */ 00560000 */* GET THE ADDRESS OF THE TOP REAL TIME TQE, AND INITIALIZE THE */ 00561000 */* TEMPORARY CHAIN OF TQE'S. */ 00562000 */* */ 00563000 */********************************************************************/ 00564000 * 0198 00565000 * RESPECIFY 0198 00566000 * (TQEPTR, 0198 00567000 * CHAINREG) RESTRICTED; 0198 00568000 * TQEPTR=TPCHDCCQ; 0199 00569000 L @15,TPCPTR(,LCVTPTR) 0199 00570000 L TQEPTR,TPCHDCCQ(,@15) 0199 00571000 * TFRRPHS1='1'B; /* INDICATE TQE'S BEING DEQUEUED */ 00572000 OI TFRRPHS1(FRRPADDR),B'10000000' 0200 00573000 * CHAINREG=0; 0201 00574000 SLR CHAINREG,CHAINREG 0201 00575000 * DO WHILE TQEDUM='0'B; 0202 00576000 * 0202 00577000 B @DE00202 0202 00578000 @DL00202 DS 0H 0203 00579000 */********************************************************************/ 00580000 */* */ 00581000 */* TEST FOR SPECIFICATION OF THE TOD OPTION. */ 00582000 */* */ 00583000 */********************************************************************/ 00584000 * 0203 00585000 * IF TQETOD='1'B THEN 0203 00586000 * 0203 00587000 TM TQETOD(TQEPTR),B'01000000' 0203 00588000 BNO @RF00203 0203 00589000 */********************************************************************/ 00590000 */* */ 00591000 */* IF THE TOD OPTION WAS SPECIFIED FOR THIS TQE, CALCULATE THE */ 00592000 */* OLD TIME REMAINING (IE. THE TIME REMAINING BEFORE THE TQE */ 00593000 */* EXPIRES, RELATIVE TO THE OLD LOCAL TIME). THE OLD TIME */ 00594000 */* REMAINING IS THE DIFFERENCE BETWEEN THE CURRENT TOD CLOCK */ 00595000 */* VALUE, AND TQEVAL. */ 00596000 */* */ 00597000 */********************************************************************/ 00598000 * 0204 00599000 * DO; 0204 00600000 * OLDTR=TQEVALLH-XSAGMTL; 0205 00601000 * 0205 00602000 L OLDTR,TQEVALLH(,TQEPTR) 0205 00603000 SL OLDTR,XSAGMTL(,XSAPTR) 0205 00604000 */********************************************************************/ 00605000 */* */ 00606000 */* TEST FOR ANY OLD TIME REMAINING. */ 00607000 */* */ 00608000 */********************************************************************/ 00609000 * 0206 00610000 * IF OLDTR>0 THEN 0206 00611000 * 0206 00612000 LTR OLDTR,OLDTR 0206 00613000 BNP @RF00206 0206 00614000 */********************************************************************/ 00615000 */* */ 00616000 */* IF THERE IS SOME, CALL THE ROUTINE TO DEQUEUE THE TQE. */ 00617000 */* */ 00618000 */********************************************************************/ 00619000 * 0207 00620000 * DO; 0207 00621000 * RESPECIFY 0208 00622000 * (REG15) RESTRICTED; 0208 00623000 * REG15=ADDR(DEQTQE); 0209 00624000 L REG15,CVTQTD00(,LCVTPTR) 0209 00625000 * GENERATE CODE SETS(REG2) REFS(REG15) 0210 00626000 * (BALR REG2,REG15); 0210 00627000 BALR REG2,REG15 00628000 * RESPECIFY 0211 00629000 * (REG15) UNRESTRICTED; 0211 00630000 * XSAPTR=SAVEXSA;/* RESTORE POINTER TO XSA */ 00631000 L XSAPTR,SAVEXSA 0212 00632000 */********************************************************************/ 00633000 */* */ 00634000 */* CALCULATE THE NEW TIME REMAINING (IE. THE TIME REMAINING BEFORE */ 00635000 */* THE TQE EXPIRES, RELATIVE TO THE NEW LOCAL TIME). */ 00636000 */* THE NEW TIME REMAINING IS THE SUM OF THE OLD TIME REMAINING AND */ 00637000 */* THE PREVIOUSLY CALCULATED CORRECTION FACTOR. */ 00638000 */* */ 00639000 */********************************************************************/ 00640000 * 0213 00641000 * NEWTR=OLDTR+CORRFACT; 0213 00642000 * 0213 00643000 LR NEWTR,OLDTR 0213 00644000 ALR NEWTR,CORRFACT 0213 00645000 */********************************************************************/ 00646000 */* */ 00647000 */* TEST FOR A NEW TIME REMAINING THAT IS GREATER THAN 24 HOURS. */ 00648000 */* */ 00649000 */********************************************************************/ 00650000 * 0214 00651000 * IF NEWTR>K24HRTOD THEN 0214 00652000 * 0214 00653000 L @15,K24HRTOD 0214 00654000 CR NEWTR,@15 0214 00655000 BNH @RF00214 0214 00656000 */********************************************************************/ 00657000 */* */ 00658000 */* IF IT IS GREATER, SUBTRACT 24 HOURS FROM THE NEW TIME REMAINING. */ 00659000 */* NOTE: WHEN A TQE IS ON A QUEUE, THE VALUE OF TQEVAL CAN NEVER BE */ 00660000 */* SUCH THAT MORE THAN 24 HOURS WILL PASS BEFORE IT EXPIRES. THIS */ 00661000 */* CONSTRAINT IS DICTATED BY THE TIME SVC. IN THE ALGORITHM USED */ 00662000 */* HERE, THE NEW TIME REMAINING CAN NEVER BE GREATER THAN 48 HOURS */ 00663000 */* SINCE NEITHER THE OLD TIME REMAINING, NOR THE CORRECTION FACTOR */ 00664000 */* CAN BE GREATER THAN 24 HOURS EACH. THUS SUBTRACTING 24 HOURS */ 00665000 */* FROM A NEW TIME REMAINING THAT IS GREATER THAN 24 HOURS GIVES THE*/ 00666000 */* CORRECT AMOUNT OF TIME REMAINING RELATIVE TO THE NEW LOCAL TIME. */ 00667000 */* */ 00668000 */********************************************************************/ 00669000 * 0215 00670000 * NEWTR=NEWTR-K24HRTOD; 0215 00671000 * 0215 00672000 SLR NEWTR,@15 0215 00673000 */********************************************************************/ 00674000 */* */ 00675000 */* SET THE TQEVAL EQUAL TO THE SUM OF THE CURRENT TOD CLOCK VALUE */ 00676000 */* AND THE NEW TIME REMAINING. */ 00677000 */* */ 00678000 */********************************************************************/ 00679000 * 0216 00680000 * TQEVALLH=NEWTR+XSAGMTL; 0216 00681000 * 0216 00682000 @RF00214 LR @15,NEWTR 0216 00683000 AL @15,XSAGMTL(,XSAPTR) 0216 00684000 ST @15,TQEVALLH(,TQEPTR) 0216 00685000 */********************************************************************/ 00686000 */* */ 00687000 */* PLACE THE UPDATED TQE ON THE TEMPORARY CHAIN. */ 00688000 */* NOTE: THE PURPOSE OF THIS IS TO PREVENT UPDATED TQE'S FROM */ 00689000 */* BEING MISTAKENLY UPDATED AGAIN. THIS COULD HAPPEN IF THE NEW */ 00690000 */* TQEVAL CAUSED THE TQE TO BE ENQUEUED FARTHER DOWN IN THE REAL */ 00691000 */* TIME TQE QUEUE THAN IT PREVIOUSLY HAD BEEN. */ 00692000 */* */ 00693000 */********************************************************************/ 00694000 * 0217 00695000 * TQEBLNK=CHAINREG; 0217 00696000 ST CHAINREG,TQEBLNK(,TQEPTR) 0217 00697000 * CHAINREG=TQEPTR; 0218 00698000 LR CHAINREG,TQEPTR 0218 00699000 * END; 0219 00700000 * END; 0220 00701000 * 0220 00702000 @RF00206 DS 0H 0221 00703000 */********************************************************************/ 00704000 */* */ 00705000 */* POINT TO THE NEXT TQE ON THE REAL TIME QUEUE. */ 00706000 */* */ 00707000 */********************************************************************/ 00708000 * 0221 00709000 * TQEPTR=TQEFLNK; 0221 00710000 @RF00203 L TQEPTR,TQEFLNK(,TQEPTR) 0221 00711000 * TFRRTQEP=TQEPTR; /* SAVE PTR TO NEXT TQE TO 0222 00712000 * PROCESS IN FRR PARM AREA */ 00713000 ST TQEPTR,TFRRTQEP(,FRRPADDR) 0222 00714000 * END; 0223 00715000 @DE00202 TM TQEDUM(TQEPTR),B'00010000' 0223 00716000 BZ @DL00202 0223 00717000 * 0224 00718000 */********************************************************************/ 00719000 */* */ 00720000 */* ONE BY ONE, TAKE THE UPDATED TQE'S FROM THE TEMPORARY CHAIN AND */ 00721000 */* RE-ENQUEUE THEM ON THE REAL TIME QUEUE. */ 00722000 */* */ 00723000 */********************************************************************/ 00724000 * 0224 00725000 * DO WHILE CHAINREG^=0; 0224 00726000 B @DE00224 0224 00727000 @DL00224 DS 0H 0225 00728000 * TFRRPHS2='1'B; /* INDICATE TQE'S BEING 0225 00729000 * RE-ENQUEUED */ 00730000 OI TFRRPHS2(FRRPADDR),B'01000000' 0225 00731000 */********************************************************************/ 00732000 */* */ 00733000 */* GET THE ADDRESS OF THE FIRST (NEXT) TQE ON THE CHAIN. */ 00734000 */* */ 00735000 */********************************************************************/ 00736000 * 0226 00737000 * TQEPTR=CHAINREG; 0226 00738000 LR TQEPTR,CHAINREG 0226 00739000 * TFRRTQEP=TQEPTR; /* SAVE PTR TO TQE BEING ENQUEUED 00740000 * IN FRR PARM AREA */ 00741000 ST TQEPTR,TFRRTQEP(,FRRPADDR) 0227 00742000 * CHAINREG=TQEBLNK; 0228 00743000 * 0228 00744000 L CHAINREG,TQEBLNK(,TQEPTR) 0228 00745000 */********************************************************************/ 00746000 */* BEFORE RE-ENQUEING THE TQE, TURN OFF THE TQEUSER FLAG SO THAT */ 00747000 */* THE TQE ENQUEUE ROUTINE WILL NOT TRY TO STORE THE TQE ADDRESS IN */ 00748000 */* TCB. SINCE WE ARE EXECUTING IN THE MASTER'S ADDRESS SPACE, A */ 00749000 */* REFERENCE TO A TCB NOT IN THIS ADDRESS SPACE COULD CAUSE AN 0C4 */ 00750000 */* OR A WILD STORE. THE TQEUSER FLAG WILL BE TURNED BACK ON WHEN */ 00751000 */* CONTROL IS RECEIVED BACK FROM THE TQE ENQUEUE ROUTINE. @ZA12715*/ 00752000 */********************************************************************/ 00753000 * 0229 00754000 * TQEUSER='0'B; /* @ZA12715*/ 00755000 NI TQEUSER(TQEPTR),B'10111111' 0229 00756000 */********************************************************************/ 00757000 */* */ 00758000 */* CALL THE ROUTINE TO RE-ENQUEUE THE TQE. */ 00759000 */* */ 00760000 */********************************************************************/ 00761000 * 0230 00762000 * RESPECIFY 0230 00763000 * (REG15) RESTRICTED; 0230 00764000 * REG15=ADDR(ENQTQE); 0231 00765000 L REG15,CVTQTE00(,LCVTPTR) 0231 00766000 * GENERATE CODE SETS(REG2) REFS(REG15)(BALR REG2,REG15); 00767000 BALR REG2,REG15 00768000 * RESPECIFY 0233 00769000 * (REG15) UNRESTRICTED; 0233 00770000 * TQEUSER='1'B; /* @ZA12715*/ 00771000 OI TQEUSER(TQEPTR),B'01000000' 0234 00772000 * END; 0235 00773000 * 0235 00774000 @DE00224 LTR CHAINREG,CHAINREG 0235 00775000 BNZ @DL00224 0235 00776000 */********************************************************************/ 00777000 */* */ 00778000 */* WHEN ALL TQE'S HAVE BEEN ENQUEUED, RESTORE THE POINTER TO THE XSA*/ 00779000 */* */ 00780000 */********************************************************************/ 00781000 * 0236 00782000 * XSAPTR=SAVEXSA; 0236 00783000 L XSAPTR,SAVEXSA 0236 00784000 * TFRRPHS3='1'B; /* INDICATE MIDNIGHT TQE BEING 0237 00785000 * PROCESSED */ 00786000 OI TFRRPHS3(FRRPADDR),B'00100000' 0237 00787000 * END; 0238 00788000 * 0239 00789000 */********************************************************************/ 00790000 */* */ 00791000 */* TEST FOR IPL OR VARY CPU ONLINE NOT IN PROGRESS. */ 00792000 */* */ 00793000 */********************************************************************/ 00794000 * 0239 00795000 * IF BAIN='1'B THEN 0239 00796000 * 0239 00797000 @RC00186 L @15,CVTMSER(,LCVTPTR) 0239 00798000 TM BAIN(@15),B'10000000' 0239 00799000 BNO @RF00239 0239 00800000 */********************************************************************/ 00801000 */* */ 00802000 */* IF THAT IS THE CASE, GET THE ADDRESS OF THE MIDNIGHT TQE, AND */ 00803000 */* CALL THE DEQUEUE TQE ROUTINE TO DEQUEUE THE MIDNIGHT ELEMENT. */ 00804000 */* */ 00805000 */********************************************************************/ 00806000 * 0240 00807000 * DO; 0240 00808000 * TQEPTR=ADDR(TPCMNTQE); 0241 00809000 L TQEPTR,TPCPTR(,LCVTPTR) 0241 00810000 LA TQEPTR,TPCMNTQE(,TQEPTR) 0241 00811000 * RESPECIFY 0242 00812000 * (REG15) RESTRICTED; 0242 00813000 * REG15=ADDR(DEQTQE); 0243 00814000 L REG15,CVTQTD00(,LCVTPTR) 0243 00815000 * GENERATE CODE SETS(REG2) REFS(REG15)(BALR REG2,REG15); 00816000 BALR REG2,REG15 00817000 * RESPECIFY 0245 00818000 * (REG15) UNRESTRICTED; 0245 00819000 * XSAPTR=SAVEXSA; /* RESTORE POINTER TO XSA */ 00820000 L XSAPTR,SAVEXSA 0246 00821000 */********************************************************************/ 00822000 */* */ 00823000 */* TEST FOR SPECIFICATION OF THE RESET PARAMETER, AND IF SPECIFIED, */ 00824000 */* CALCULATE THE NEW TQEVAL OF THE MIDNIGHT ELEMENT. */ 00825000 */* */ 00826000 */********************************************************************/ 00827000 * 0247 00828000 * IF RESET='1'B THEN 0247 00829000 TM RESET(XSAPTR),B'00010000' 0247 00830000 BNO @RF00247 0247 00831000 * DO; 0248 00832000 * RESPECIFY 0249 00833000 * (TMICSECL, 0249 00834000 * TMICSECR) RESTRICTED; 0249 00835000 * CVTDATE=PKDATE; /* MOVE CALCULATED DATE TO CVT */ 00836000 MVC CVTDATE(4,LCVTPTR),PKDATE(XSAPTR) 0250 00837000 * TMICSECR=ELDAYS; /* FETCH DAYS ELAPSED SINCE EPOCH 00838000 * PLUS 1 */ 00839000 L TMICSECR,ELDAYS 0251 00840000 */********************************************************************/ 00841000 */* */ 00842000 */* CONVERT DAYS TO MICROSECONDS. */ 00843000 */* */ 00844000 */********************************************************************/ 00845000 * 0252 00846000 * GENERATE CODE REFS(MINSDAY,MICSMIN) SETS(TMICSECL, 0252 00847000 * TMICSECR); 0252 00848000 * 0252 00849000 MH TMICSECR,MINSDAY CONVERT DAYS TO MINUTES 00850000 M TMICSECL,MICSMIN CONVERT MINS TO MIC SECS 00851000 SLDL TMICSECL,12 1 MIC SEC TO BIT 51 00852000 */********************************************************************/ 00853000 */* */ 00854000 */* CORRECT FOR THE TIME ZONE AND STORE INTO THE MIDNIGHT TQE. */ 00855000 */* */ 00856000 */********************************************************************/ 00857000 * 0253 00858000 * TMICSECL=TMICSECL-CVTTZ; 0253 00859000 SL TMICSECL,CVTTZ(,LCVTPTR) 0253 00860000 * STM(TMICSECL,TMICSECR,TQEVAL); 0254 00861000 STM TMICSECL,TMICSECR,TQEVAL(TQEPTR) 0254 00862000 * RESPECIFY 0255 00863000 * (TMICSECL, 0255 00864000 * TMICSECR) UNRESTRICTED; 0255 00865000 * END; 0256 00866000 * 0256 00867000 */********************************************************************/ 00868000 */* */ 00869000 */* IF RESET WAS NOT SPECIFIED, USE THE CORRECTION FACTOR TO */ 00870000 */* CALCULATE AND STORE THE NEW TQEVAL FOR THE MIDNIGHT TQE. THEN, */ 00871000 */* IF THE DATE PARAMETER WAS SPECIFIED, STORE THE DATE INTO THE CVT.*/ 00872000 */* */ 00873000 */********************************************************************/ 00874000 * 0257 00875000 * ELSE 0257 00876000 * DO; 0257 00877000 B @RC00247 0257 00878000 @RF00247 DS 0H 0258 00879000 * TQEVALLH=TQEVALLH+CORRFACT; 0258 00880000 LR @15,CORRFACT 0258 00881000 AL @15,TQEVALLH(,TQEPTR) 0258 00882000 ST @15,TQEVALLH(,TQEPTR) 0258 00883000 * IF DATE='1'B THEN 0259 00884000 TM DATE(XSAPTR),B'00000010' 0259 00885000 BNO @RF00259 0259 00886000 * CVTDATE=PKDATE; 0260 00887000 MVC CVTDATE(4,LCVTPTR),PKDATE(XSAPTR) 0260 00888000 * END; 0261 00889000 * 0261 00890000 @RF00259 DS 0H 0262 00891000 */********************************************************************/ 00892000 */* */ 00893000 */* CALL THE ENQUEUE TQE ROUTINE TO RE-ENQUEUE THE MIDNIGHT TQE. */ 00894000 */* THEN RESTORE THE POINTER TO THE EXTENDED SAVE AREA. */ 00895000 */* */ 00896000 */********************************************************************/ 00897000 * 0262 00898000 * RESPECIFY 0262 00899000 * (REG15) RESTRICTED; 0262 00900000 @RC00247 DS 0H 0263 00901000 * REG15=ADDR(ENQTQE); 0263 00902000 L REG15,CVTQTE00(,LCVTPTR) 0263 00903000 * GENERATE CODE SETS(REG2) REFS(REG15)(BALR REG2,REG15); 00904000 BALR REG2,REG15 00905000 * RESPECIFY 0265 00906000 * (REG15) UNRESTRICTED; 0265 00907000 * XSAPTR=SAVEXSA; 0266 00908000 L XSAPTR,SAVEXSA 0266 00909000 * END; 0267 00910000 * 0267 00911000 */********************************************************************/ 00912000 */* */ 00913000 */* IF IPL OR VARY CPU ONLINE IS IN PROGRESS, SEE IF THE DATE PARA- */ 00914000 */* METER WAS SPECIFIED, AND IF SO, STORE THE NEW LOCAL DATE INTO */ 00915000 */* THE CVT. */ 00916000 */* */ 00917000 */********************************************************************/ 00918000 * 0268 00919000 * ELSE 0268 00920000 * IF DATE='1'B THEN 0268 00921000 B @RC00239 0268 00922000 @RF00239 TM DATE(XSAPTR),B'00000010' 0268 00923000 BNO @RF00268 0268 00924000 * CVTDATE=PKDATE; 0269 00925000 MVC CVTDATE(4,LCVTPTR),PKDATE(XSAPTR) 0269 00926000 * 0270 00927000 */********************************************************************/ 00928000 */* */ 00929000 */* DELETE THE RECOVERY EXIT FOR THE LOCKED CODE. THEN, RELEASE */ 00930000 */* THE DISPATCHER LOCK, AND FREE THE WORKAREA PAGE. */ 00931000 */* */ 00932000 */********************************************************************/ 00933000 * 0270 00934000 * RESPECIFY 0270 00935000 * (REG0, 0270 00936000 * REG1, 0270 00937000 * REG11, 0270 00938000 * REG12, 0270 00939000 * REG13, 0270 00940000 * REG14, 0270 00941000 * REG15) RESTRICTED; 0270 00942000 @RF00268 DS 0H 0270 00943000 @RC00239 DS 0H 0271 00944000 * GENERATE CODE REFS(PSALITA,PSACSTK,PSA,FRRS,FRRSEMP,FRRSELEN) 00945000 * SETS(FRRSCURR,FRRSPTR,FRREPTR); 0271 00946000 * /* 00947000 SETFRR D,WRKREGS=(FRRSPTR,FRREPTR), **00948000 RELATED=('DISP LOCK',(IEE6503D,(NONE))) 00949000 SETLOCK RELEASE,TYPE=DISP, **00950000 RELATED=('REAL TQE QUEUE',(IEE6503D,(NOLABEL))) */ 00951000 * REG1=ADDR(BEGLOCK); /* GET PTR TO START OF LOCKED 0272 00952000 * CODE */ 00953000 LA REG1,BEGLOCK 0272 00954000 * REG15=ADDR(ENDLOCK); /* GET PTR TO END OF LOCKED CODE */ 00955000 LA REG15,ENDLOCK 0273 00956000 * GENERATE CODE(PGFREE R,A=(1),EA=(15)); 0274 00957000 PGFREE R,A=(1),EA=(15) 00958000 * END; 0275 00959000 * 0276 00960000 */********************************************************************/ 00961000 */* */ 00962000 */* IF NO GOOD TOD CLOCK WAS FOUND, GET THE ID OF THE CONSOLE FROM */ 00963000 */* WHICH THE SET COMMAND WAS ISSUED, AND TELL THE OPERATOR OF THE */ 00964000 */* FAILURE. */ 00965000 */* */ 00966000 */********************************************************************/ 00967000 * 0276 00968000 * ELSE 0276 00969000 * DO; 0276 00970000 B @RC00115 0276 00971000 @RF00115 DS 0H 0277 00972000 * REG0=CONSID; 0277 00973000 SLR REG0,REG0 0277 00974000 IC REG0,CONSID(,XSAPTR) 0277 00975000 * GENERATE CODE; 0278 00976000 * /* 00977000 WTO 'IEA899I LOCAL TIME CHANGE REJECTED-NO GOOD TOD CLOCKS', **00978000 MCSFLAG=(REG0,RESP,NOTIME),DESC=(5) */ 00979000 * END; 0279 00980000 * 0279 00981000 */********************************************************************/ 00982000 */* */ 00983000 */* RESTORE THE CALLER'S RETURN ADDRESS TO REGISTER 14. */ 00984000 */* */ 00985000 */********************************************************************/ 00986000 * 0280 00987000 * REG14=SAVERET; 0280 00988000 * 0280 00989000 @RC00115 L REG14,SAVERET 0280 00990000 */********************************************************************/ 00991000 */* */ 00992000 */* SET CSECT ID FIELD OF XSA TO 0 TO INDICATE THAT IEE6503D IS NO */ 00993000 */* LONGER IN CONTROL, AND RETURN TO IEE0603D. */ 00994000 */* */ 00995000 */********************************************************************/ 00996000 * 0281 00997000 * CSECTCDE='00'X; 0281 00998000 MVI CSECTCDE(XSAPTR),X'00' 0281 00999000 * 0282 01000000 */********************************************************************/ 01001000 */* */ 01002000 */* THIS ROUTINE RECEIVES A HIGH ORDER 32 BIT TOD CLOCK VALUE IN */ 01003000 */* REGISTER 13, AND CONVERTS IT TO DAYS ELAPSED SINCE THE EPOCH IN */ 01004000 */* REGISTER 13 AND SECONDS ELAPSED SINCE THE LAST MIDNIGHT IN */ 01005000 */* REGISTER 12. */ 01006000 */* */ 01007000 */********************************************************************/ 01008000 * 0282 01009000 *CONVERT: 0282 01010000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA,NOENTREG,NOPARMREG,RETREG); 01011000 @EL00001 DS 0H 0282 01012000 @EF00001 L @00,@SIZDATD 0282 01013000 LR @01,@09 0282 01014000 FREEMAIN R,LV=(0),A=(1) 01015000 @ER00001 BR @14 0282 01016000 CONVERT DS 0H 0283 01017000 * RESPECIFY 0283 01018000 * (REG12, 0283 01019000 * REG13) RESTRICTED; 0283 01020000 * 0283 01021000 */* D465000 */ 01022000 */********************************************************************/ 01023000 */* */ 01024000 */* CONVERT THE 32 BIT TOD CLOCK VALUE TO SECONDS. */ 01025000 */* */ 01026000 */********************************************************************/ 01027000 * 0284 01028000 * SRL(REG13,1); /* ENSURE 0 SIGN BIT @YM06850*/ 01029000 SRL REG13,1 0284 01030000 */********************************************************************/ 01031000 */* */ 01032000 */* MULTIPLY H. O. TOD CLOCK VALUE SCALED -1 BY 2**20 MICROSECONDS */ 01033000 */* SCALED +30, GIVING SECONDS SCALED +29. */ 01034000 */* */ 01035000 */********************************************************************/ 01036000 * 0285 01037000 * GENERATE CODE SETS(REG12,REG13) REFS(TCUTOSEC) 0285 01038000 * (M REG12,TCUTOSEC); /* @YM06850*/ 01039000 M REG12,TCUTOSEC 01040000 */********************************************************************/ 01041000 */* */ 01042000 */* SHIFT THE RESULT 29 BITS RIGHT TO SCALE IT 0, CLEAR REGISTER 12, */ 01043000 */* AND PLACE THE RESULT IN REGISTER 13 FOR DIVISION. */ 01044000 */* */ 01045000 */********************************************************************/ 01046000 * 0286 01047000 * SRDL(REG12,29); /* @YM06850*/ 01048000 SRDL REG12,29 0286 01049000 */********************************************************************/ 01050000 */* */ 01051000 */* DIVIDE SECONDS BY THE NUMBER OF SECONDS IN 1 DAY, GIVING DAYS */ 01052000 */* ELAPSED SINCE THE EPOCH IN REG 13, AND SECONDS ELAPSED SINCE THE */ 01053000 */* LAST MIDNIGHT IN REG 12. */ 01054000 */* */ 01055000 */********************************************************************/ 01056000 */* D475600 */ 01057000 * 0287 01058000 * GENERATE CODE REFS(K24HRSEC) SETS(REG12,REG13) 0287 01059000 * (D REG12,K24HRSEC); 0287 01060000 D REG12,K24HRSEC 01061000 * RESPECIFY 0288 01062000 * (REG12, 0288 01063000 * REG13) UNRESTRICTED; 0288 01064000 * 0288 01065000 */********************************************************************/ 01066000 */* */ 01067000 */* RETURN. */ 01068000 */* */ 01069000 */********************************************************************/ 01070000 * 0289 01071000 * END CONVERT; 0289 01072000 @EL00002 DS 0H 0289 01073000 @EF00002 DS 0H 0289 01074000 @ER00002 BR @14 0289 01075000 *DELTA3: 0290 01076000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA,ENTREG,RETREG,NOPARMREG); 0290 01077000 DELTA3 DS 0H 0291 01078000 * GENERATE CODE REFS(REG1)(STCK 0(REG1)); 0291 01079000 STCK 0(REG1) 01080000 * END DELTA3; 0292 01081000 @EL00003 DS 0H 0292 01082000 @EF00003 DS 0H 0292 01083000 @ER00003 BR @14 0292 01084000 * END IEE6503D 0293 01085000 * 0293 01086000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01087000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01088000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01089000 */*%INCLUDE SYSLIB (IHACSD ) */ 01090000 */*%INCLUDE SYSLIB (CVT ) */ 01091000 */*%INCLUDE SYSLIB (IEAVVTPC) */ 01092000 */*%INCLUDE SYSLIB (IEEBASEA) */ 01093000 */*%INCLUDE SYSLIB (IHATQE ) */ 01094000 */*%INCLUDE SYSLIB (IEEXSA ) */ 01095000 * 0293 01096000 * ; 0293 01097000 @DATA DS 0H 01098000 @CH00118 DC H'1' 01099000 @CH01722 DC H'1000' 01100000 @DATD DSECT 01101000 DS 0F 01102000 IEE6503D CSECT 01103000 DS 0F 01104000 @DATD DSECT 01105000 DS 0D 01106000 ELDAYS DS F 01107000 SAVERET DS F 01108000 SAVEXSA DS F 01109000 NLCLTOD DS F 01110000 WORK1 DS CL8 01111000 WORK2 DS CL8 01112000 IEE6503D CSECT 01113000 DS 0F 01114000 @SIZDATD DC AL1(255) 01115000 DC AL3(@ENDDATD-@DATD) 01116000 DS 0D 01117000 K24HRTOD DC F'82397' 01118000 K12HRSEC DC F'43200' 01119000 K24HRSEC DC F'86400' 01120000 DAYS4YRS DC F'1461' 01121000 MICSMIN DC F'60000000' 01122000 TCUTOSEC DC XL4'431BDE83' 01123000 K15625H DC H'15625' 01124000 MINSDAY DC H'1440' 01125000 ID6503D DC X'04802000' 01126000 PATCH65 DC CL50' ' 01127000 IEE6503D CSECT 01128000 ENDLOCK EQU * 01129000 @DATD DSECT 01130000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01131000 @ENDDATD EQU * 01132000 IEE6503D CSECT 01133000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01134000 @01 EQU 01 01135000 @02 EQU 02 01136000 @03 EQU 03 01137000 @04 EQU 04 01138000 @05 EQU 05 01139000 @06 EQU 06 01140000 @07 EQU 07 01141000 @08 EQU 08 01142000 @09 EQU 09 01143000 @10 EQU 10 01144000 @11 EQU 11 01145000 @12 EQU 12 01146000 @13 EQU 13 01147000 @14 EQU 14 01148000 @15 EQU 15 01149000 FRRPADDR EQU @08 01150000 NEWTR EQU @07 01151000 OLDTR EQU @12 01152000 CORRFACT EQU @11 01153000 NEWTZ EQU @07 01154000 SECONDS EQU @07 01155000 MINUTES EQU @04 01156000 HOURS EQU @03 01157000 LCVTPTR EQU @06 01158000 REG0 EQU @00 01159000 CHAINREG EQU @00 01160000 REG1 EQU @01 01161000 TQEPTR EQU @01 01162000 REG2 EQU @02 01163000 XSAPTR EQU @02 01164000 REG11 EQU @11 01165000 REG12 EQU @12 01166000 REG13 EQU @13 01167000 FRRSPTR EQU @13 01168000 REG14 EQU @14 01169000 FRREPTR EQU @14 01170000 REG15 EQU @15 01171000 ERRCODE EQU @15 01172000 TMICSECL EQU @12 01173000 TMICSECR EQU @13 01174000 CVTPTR EQU 16 01175000 PSA EQU 0 01176000 FLCRNPSW EQU PSA 01177000 FLCROPSW EQU PSA+8 01178000 FLCICCW2 EQU PSA+16 01179000 PSAEEPSW EQU PSA+132 01180000 PSAESPSW EQU PSA+136 01181000 FLCSVILC EQU PSAESPSW+1 01182000 PSAEPPSW EQU PSA+140 01183000 FLCPIILC EQU PSAEPPSW+1 01184000 FLCPICOD EQU PSAEPPSW+2 01185000 PSAPICOD EQU FLCPICOD+1 01186000 FLCTEA EQU PSAEPPSW+4 01187000 FLCPER EQU PSA+152 01188000 FLCMCLA EQU PSA+168 01189000 FLCIOEL EQU FLCMCLA+4 01190000 FLCIOA EQU FLCMCLA+16 01191000 FLCFSA EQU FLCMCLA+80 01192000 PSASUPER EQU PSA+552 01193000 PSASUP1 EQU PSASUPER 01194000 PSASUP2 EQU PSASUPER+1 01195000 PSASUP3 EQU PSASUPER+2 01196000 PSASUP4 EQU PSASUPER+3 01197000 PSACLHT EQU PSA+640 01198000 PSALKSA EQU PSA+696 01199000 PSAHLHI EQU PSA+760 01200000 PSALITA EQU PSA+764 01201000 PSADSSFL EQU PSA+836 01202000 PSADSSF1 EQU PSADSSFL 01203000 PSADSSF3 EQU PSADSSFL+2 01204000 PSADSSF4 EQU PSADSSFL+3 01205000 PSARSVT EQU PSA+896 01206000 PSALSFCC EQU PSA+1012 01207000 ENQTQE EQU 0 01208000 DEQTQE EQU 0 01209000 TCWA EQU 0 01210000 TCWACVAL EQU TCWA 01211000 TCWAWRK EQU TCWA+8 01212000 TCWAWRK1 EQU TCWAWRK 01213000 TCWAA1 EQU TCWAWRK1 01214000 TCWAWRK2 EQU TCWAWRK+8 01215000 TCWAA2 EQU TCWAWRK2 01216000 TCWAGFLG EQU TCWA+52 01217000 TCWARPLY EQU TCWA+56 01218000 TCWACTL EQU TCWA+104 01219000 TCENTRY EQU 0 01220000 TCWACLKE EQU TCENTRY 01221000 TCWAPCCA EQU TCENTRY+8 01222000 TCWALFLG EQU TCENTRY+15 01223000 TFRRPARM EQU 0 01224000 TFRRID EQU TFRRPARM 01225000 TFRRFOOT EQU TFRRID+1 01226000 TFRRLOCK EQU TFRRPARM+4 01227000 TFRRDISP EQU TFRRLOCK 01228000 TFRRFLGS EQU TFRRPARM+5 01229000 TFRRFLG1 EQU TFRRPARM+6 01230000 TFRRPHS1 EQU TFRRFLG1 01231000 TFRRPHS2 EQU TFRRFLG1 01232000 TFRRPHS3 EQU TFRRFLG1 01233000 TFRRFLG2 EQU TFRRPARM+7 01234000 TFRRURCD EQU TFRRPARM+8 01235000 TFRRTQEP EQU TFRRURCD+8 01236000 FRRS EQU 0 01237000 FRRSHEAD EQU FRRS 01238000 FRRSEMP EQU FRRSHEAD 01239000 FRRSLAST EQU FRRSHEAD+4 01240000 FRRSELEN EQU FRRSHEAD+8 01241000 FRRSCURR EQU FRRSHEAD+12 01242000 FRRSENTR EQU 0 01243000 FRRSFRRA EQU FRRSENTR 01244000 FRRSFLGS EQU FRRSENTR+4 01245000 FRRSFLG1 EQU FRRSFLGS 01246000 FRRSPARM EQU FRRSENTR+8 01247000 CSD EQU 0 01248000 CSDCPUAL EQU CSD+8 01249000 CSDSCWRD EQU CSD+12 01250000 CSDSCFL1 EQU CSDSCWRD 01251000 CSDSCFL2 EQU CSDSCWRD+1 01252000 CSDSCFL3 EQU CSDSCWRD+2 01253000 CSDSCFL4 EQU CSDSCWRD+3 01254000 CSDFLAGS EQU CSD+23 01255000 CSDMP EQU CSDFLAGS 01256000 CVTMAP EQU 0 01257000 CVT EQU CVTMAP 01258000 CVTDATE EQU CVTMAP+56 01259000 CVTDAR EQU CVTMAP+72 01260000 CVTFLGS1 EQU CVTDAR 01261000 CVTTPC EQU CVTMAP+88 01262000 CVTQTE00 EQU CVTMAP+104 01263000 CVTQTD00 EQU CVTMAP+108 01264000 CVTDCB EQU CVTMAP+116 01265000 CVTIERLC EQU CVTMAP+144 01266000 CVTMSER EQU CVTMAP+148 01267000 CVTOPTA EQU CVTMAP+182 01268000 CVTOPTB EQU CVTMAP+183 01269000 CVTGTF EQU CVTMAP+236 01270000 CVTGTFST EQU CVTGTF 01271000 CVTGTFS EQU CVTGTFST 01272000 CVTSTATE EQU CVTGTFST 01273000 CVTTMODE EQU CVTGTFST 01274000 CVTFORM EQU CVTGTFST 01275000 CVTAQAVT EQU CVTMAP+240 01276000 CVTTCMFG EQU CVTAQAVT 01277000 CVTVOLM2 EQU CVTMAP+244 01278000 CVTTATA EQU CVTVOLM2 01279000 CVTTSKS EQU CVTTATA 01280000 CVTVOLF2 EQU CVTTSKS 01281000 CVTTAT EQU CVTTATA+1 01282000 CVTATER EQU CVTMAP+248 01283000 CVTEXT1 EQU CVTMAP+252 01284000 CVTPURG EQU CVTMAP+260 01285000 CVTQMSG EQU CVTMAP+268 01286000 CVTDMSR EQU CVTMAP+272 01287000 CVTRSV37 EQU CVTDMSR 01288000 CVTDMSRF EQU CVTRSV37 01289000 CVTTZ EQU CVTMAP+304 01290000 CVTERPV EQU CVTMAP+316 01291000 CVTINTLA EQU CVTMAP+320 01292000 CVTAPF EQU CVTMAP+324 01293000 CVTEXT2 EQU CVTMAP+328 01294000 CVTHJES EQU CVTMAP+332 01295000 CVTPGSIA EQU CVTMAP+348 01296000 CVTA1F1 EQU CVTMAP+356 01297000 CVTSYSK EQU CVTMAP+357 01298000 CVTVOLM1 EQU CVTMAP+380 01299000 CVTVOLF1 EQU CVTVOLM1 01300000 CVTATMCT EQU CVTMAP+388 01301000 CVTXTNT1 EQU 0 01302000 CVTXTNT2 EQU 0 01303000 CVTDSSV EQU CVTXTNT2 01304000 CVTFLGBT EQU CVTXTNT2+5 01305000 CVTQID EQU CVTXTNT2+24 01306000 CVTRV400 EQU CVTXTNT2+52 01307000 CVTRV409 EQU CVTXTNT2+53 01308000 CVTATCVT EQU CVTXTNT2+64 01309000 CVTRV429 EQU CVTXTNT2+84 01310000 CVTRV438 EQU CVTXTNT2+85 01311000 CVTRV457 EQU CVTXTNT2+112 01312000 CVTRV466 EQU CVTXTNT2+113 01313000 CVTFIX EQU 0 01314000 CVTRELNO EQU CVTFIX+252 01315000 TPC EQU 0 01316000 IEATPC EQU TPC 01317000 TPCFLGS1 EQU IEATPC+4 01318000 TPCTZORG EQU IEATPC+8 01319000 TPCHDCCQ EQU IEATPC+12 01320000 TPCDMTQE EQU IEATPC+16 01321000 DFD EQU TPCDMTQE+4 01322000 TPCMNTQE EQU IEATPC+40 01323000 MNIGHT EQU TPCMNTQE+16 01324000 TPCMFTQE EQU IEATPC+64 01325000 IEATSELM EQU IEATPC+88 01326000 TPCLMTQE EQU IEATPC+112 01327000 TPCWORK EQU IEATPC+264 01328000 TPCFRRP EQU IEATPC+348 01329000 TPCTCWA EQU IEATPC+356 01330000 BASE EQU 0 01331000 @NM00090 EQU BASE+13 01332000 BALGSTAT EQU BASE+24 01333000 BALOG EQU BALGSTAT+4 01334000 BASFL EQU BASE+36 01335000 BARSW EQU BASFL 01336000 BAIN EQU BARSW 01337000 MSLOGST EQU BASE+46 01338000 BASPBYTE EQU BASE+47 01339000 BAMONITR EQU BASE+56 01340000 @NM00112 EQU BASE+104 01341000 MSLGCLOZ EQU BASE+108 01342000 MSCLOSSW EQU MSLGCLOZ 01343000 MSLGWLOG EQU BASE+112 01344000 MSWLOGSW EQU MSLGWLOG 01345000 MSLGWTR EQU BASE+116 01346000 MSWTRSW EQU MSLGWTR 01347000 MSLGSTRT EQU BASE+120 01348000 MSSTRTSW EQU MSLGSTRT 01349000 MS1BASEX EQU BASE+136 01350000 BASES01 EQU 0 01351000 MSNTAL EQU BASES01 01352000 MSSSB EQU BASES01+1 01353000 MSBTN EQU MSSSB 01354000 MSPFG EQU BASES01+2 01355000 MSECBFL EQU BASES01+3 01356000 MSTUS EQU BASES01+4 01357000 MSSSA EQU MSTUS 01358000 MSINLSW EQU MSSSA 01359000 MSREOF EQU MSSSA 01360000 MSNWP EQU MSSSA 01361000 MSFHF EQU BASES01+5 01362000 TQE EQU 0 01363000 TQEFLNK EQU TQE+4 01364000 TQEBLNK EQU TQE+8 01365000 TQEFLGS EQU TQE+14 01366000 TQETOD EQU TQEFLGS 01367000 TQEFLGS2 EQU TQE+15 01368000 TQEUSER EQU TQEFLGS2 01369000 TQEDUM EQU TQEFLGS2 01370000 TQEVAL EQU TQE+16 01371000 TQEVALLH EQU TQEVAL 01372000 TQEEXIT EQU TQE+28 01373000 XSAMAP EQU 0 01374000 XASVRB EQU XSAMAP 01375000 XSA EQU XASVRB 01376000 XAD EQU XSA+4 01377000 XAX EQU XASVRB+8 01378000 @NM00131 EQU XASVRB+16 01379000 XAE EQU @NM00131 01380000 @NM00132 EQU XASVRB+20 01381000 XAV EQU XASVRB+24 01382000 XAS EQU XASVRB+32 01383000 XAU EQU XASVRB+40 01384000 XAA EQU XASVRB+42 01385000 XASAVLOC EQU XSAMAP+48 01386000 XASAVLOX EQU XASAVLOC 01387000 XASAVSTD EQU XSAMAP+64 01388000 XASAVSTR EQU XASAVSTD 01389000 EEXSAS01 EQU 0 01390000 EEXSAS02 EQU 0 01391000 XADUSWIT EQU EEXSAS02 01392000 EEXSAS03 EQU 0 01393000 XASDS EQU EEXSAS03+2 01394000 @NM00135 EQU EEXSAS03+4 01395000 EEXSAS04 EQU 0 01396000 XAXMASK EQU EEXSAS04 01397000 EEXSAS05 EQU 0 01398000 XASOPCOD EQU EEXSAS05 01399000 XASWITCH EQU EEXSAS05+1 01400000 XALTCHG EQU XASWITCH 01401000 XACOMPMS EQU XASWITCH 01402000 XARESV EQU EEXSAS05+2 01403000 EEXSAS06 EQU 0 01404000 XAAVRANG EQU EEXSAS06 01405000 XAAVRNG2 EQU EEXSAS06+1 01406000 TPCPTR EQU CVTTPC 01407000 XSA6503D EQU XSA 01408000 XSAGMT EQU XSA6503D 01409000 XSAGMTL EQU XSAGMT 01410000 XAX6503D EQU XAX 01411000 XSAECB EQU XAX6503D 01412000 XAE6503D EQU XAE 01413000 KEYWRDID EQU XAE6503D 01414000 RESET EQU KEYWRDID 01415000 DATE EQU KEYWRDID 01416000 CLOCK EQU KEYWRDID 01417000 XAV6503D EQU XAV 01418000 PKDATE EQU XAV6503D+4 01419000 XAS6503D EQU XAS 01420000 PKTIME EQU XAS6503D+4 01421000 XAU6503D EQU XAU 01422000 CONSID EQU XAU6503D 01423000 @NM00006 EQU XASAVSTD 01424000 EXITPARM EQU @NM00006+8 01425000 REGSAVE EQU EXITPARM 01426000 R15SAVE EQU REGSAVE+24 01427000 EXITFLGS EQU R15SAVE 01428000 CSECTCDE EQU EXITFLGS 01429000 PSARSVTE EQU PSARSVT 01430000 PSACSTK EQU PSARSVTE 01431000 CVTS01 EQU CVTPGSIA 01432000 CVTLPDIA EQU CVTS01+12 01433000 CVTDIRST EQU CVTLPDIA 01434000 CVTSLIDA EQU CVTS01+24 01435000 CVTCTLFG EQU CVTS01+50 01436000 CVTCSD EQU CVTS01+312 01437000 CVTIPCRI EQU CVTS01+408 01438000 CVTRV210 EQU CVTS01+424 01439000 CVTRV219 EQU CVTS01+425 01440000 CVTRV228 EQU CVTS01+426 01441000 CVTRV237 EQU CVTS01+427 01442000 CVTMFRTR EQU CVTS01+452 01443000 CVTRV262 EQU CVTS01+468 01444000 CVTRV271 EQU CVTS01+469 01445000 CVTRV280 EQU CVTS01+470 01446000 CVTRV289 EQU CVTS01+471 01447000 CVTGSDA EQU CVTS01+600 01448000 FLC EQU PSA 01449000 TQEECB EQU TQEEXIT 01450000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01451000 CVTRV628 EQU CVTS01+728 01452000 CVTRV627 EQU CVTS01+724 01453000 CVTRV626 EQU CVTS01+720 01454000 CVTRV625 EQU CVTS01+716 01455000 CVTRV624 EQU CVTS01+712 01456000 CVTRV623 EQU CVTS01+708 01457000 CVTRV622 EQU CVTS01+704 01458000 CVTRV621 EQU CVTS01+700 01459000 CVTIHASU EQU CVTS01+696 01460000 CVTRV619 EQU CVTS01+692 01461000 CVTRV618 EQU CVTS01+688 01462000 CVTRV617 EQU CVTS01+684 01463000 CVTRV616 EQU CVTS01+680 01464000 CVTRV615 EQU CVTS01+676 01465000 CVTRV614 EQU CVTS01+672 01466000 CVTRV613 EQU CVTS01+668 01467000 CVTTCASP EQU CVTS01+664 01468000 CVT0PT03 EQU CVTS01+660 01469000 CVT0PT0E EQU CVTS01+656 01470000 CVTRV609 EQU CVTS01+652 01471000 CVTCGK EQU CVTS01+648 01472000 CVTRAC EQU CVTS01+644 01473000 CVTRV606 EQU CVTS01+640 01474000 CVTRV605 EQU CVTS01+636 01475000 CVTRV604 EQU CVTS01+632 01476000 CVTEFF02 EQU CVTS01+628 01477000 CVTCBBR EQU CVTS01+624 01478000 CVTSSCR EQU CVTS01+620 01479000 CVTEVENT EQU CVTS01+616 01480000 CVTCRCA EQU CVTS01+612 01481000 CVTTPIO EQU CVTS01+608 01482000 CVTADV EQU CVTS01+604 01483000 CVTGSDAB EQU CVTGSDA 01484000 CVTQV3 EQU CVTS01+596 01485000 CVTQV2 EQU CVTS01+592 01486000 CVTQV1 EQU CVTS01+588 01487000 CVTRPT EQU CVTS01+584 01488000 CVTSSRB EQU CVTS01+580 01489000 CVTCSDRL EQU CVTS01+576 01490000 CVTEXP1 EQU CVTS01+572 01491000 CVTRMPMT EQU CVTS01+568 01492000 CVTRMPTT EQU CVTS01+564 01493000 CVTVPSA EQU CVTS01+560 01494000 CVTVSTOP EQU CVTS01+556 01495000 CVTGTFR8 EQU CVTS01+552 01496000 CVTQUIT EQU CVTS01+548 01497000 CVTVACR EQU CVTS01+544 01498000 CVTWTCB EQU CVTS01+540 01499000 CVTSTPRS EQU CVTS01+536 01500000 CVT0PT02 EQU CVTS01+532 01501000 CVTDARCM EQU CVTS01+528 01502000 CVTIRECM EQU CVTS01+524 01503000 CVTJRECM EQU CVTS01+520 01504000 CVTVEMS0 EQU CVTS01+516 01505000 CVTSPFRR EQU CVTS01+512 01506000 CVTRLSTG EQU CVTS01+508 01507000 CVT0TC0A EQU CVTS01+504 01508000 CVTGMBR EQU CVTS01+500 01509000 CVTLFRM EQU CVTS01+496 01510000 CVTRMBR EQU CVTS01+492 01511000 CVTVIOP EQU CVTS01+488 01512000 CVTRV307 EQU CVTS01+486 01513000 CVTRV306 EQU CVTS01+484 01514000 CVTRV305 EQU CVTS01+482 01515000 CVTRV304 EQU CVTS01+480 01516000 CVTRV303 EQU CVTS01+478 01517000 CVTRV302 EQU CVTS01+476 01518000 CVTTRCA EQU CVTS01+472 01519000 CVTRV297 EQU CVTRV289 01520000 CVTRV296 EQU CVTRV289 01521000 CVTRV295 EQU CVTRV289 01522000 CVTRV294 EQU CVTRV289 01523000 CVTRV293 EQU CVTRV289 01524000 CVTRV292 EQU CVTRV289 01525000 CVTRV291 EQU CVTRV289 01526000 CVTRV290 EQU CVTRV289 01527000 CVTRV288 EQU CVTRV280 01528000 CVTRV287 EQU CVTRV280 01529000 CVTRV286 EQU CVTRV280 01530000 CVTRV285 EQU CVTRV280 01531000 CVTRV284 EQU CVTRV280 01532000 CVTRV283 EQU CVTRV280 01533000 CVTRV282 EQU CVTRV280 01534000 CVTRV281 EQU CVTRV280 01535000 CVTRV279 EQU CVTRV271 01536000 CVTRV278 EQU CVTRV271 01537000 CVTRV277 EQU CVTRV271 01538000 CVTRV276 EQU CVTRV271 01539000 CVTRV275 EQU CVTRV271 01540000 CVTRV274 EQU CVTRV271 01541000 CVTRV273 EQU CVTRV271 01542000 CVTRV272 EQU CVTRV271 01543000 CVTRV270 EQU CVTRV262 01544000 CVTRV269 EQU CVTRV262 01545000 CVTRV268 EQU CVTRV262 01546000 CVTRV267 EQU CVTRV262 01547000 CVTRV266 EQU CVTRV262 01548000 CVTRV265 EQU CVTRV262 01549000 CVTRV264 EQU CVTRV262 01550000 CVTRV263 EQU CVTRV262 01551000 CVTVFP EQU CVTS01+464 01552000 CVTVSI EQU CVTS01+460 01553000 CVTVPSIB EQU CVTS01+456 01554000 CVTMFACT EQU CVTMFRTR 01555000 CVTMFCTL EQU CVTS01+448 01556000 CVTPVBP EQU CVTS01+444 01557000 CVTPWI EQU CVTS01+440 01558000 CVTRV254 EQU CVTS01+438 01559000 CVTRV253 EQU CVTS01+436 01560000 CVTRV252 EQU CVTS01+434 01561000 CVTRV251 EQU CVTS01+433 01562000 CVTRV250 EQU CVTS01+432 01563000 CVTRV249 EQU CVTS01+431 01564000 CVTRV248 EQU CVTS01+430 01565000 CVTRV247 EQU CVTS01+429 01566000 CVTRV246 EQU CVTS01+428 01567000 CVTRV245 EQU CVTRV237 01568000 CVTRV244 EQU CVTRV237 01569000 CVTRV243 EQU CVTRV237 01570000 CVTRV242 EQU CVTRV237 01571000 CVTRV241 EQU CVTRV237 01572000 CVTRV240 EQU CVTRV237 01573000 CVTRV239 EQU CVTRV237 01574000 CVTRV238 EQU CVTRV237 01575000 CVTRV236 EQU CVTRV228 01576000 CVTRV235 EQU CVTRV228 01577000 CVTRV234 EQU CVTRV228 01578000 CVTRV233 EQU CVTRV228 01579000 CVTRV232 EQU CVTRV228 01580000 CVTRV231 EQU CVTRV228 01581000 CVTRV230 EQU CVTRV228 01582000 CVTRV229 EQU CVTRV228 01583000 CVTRV227 EQU CVTRV219 01584000 CVTRV226 EQU CVTRV219 01585000 CVTRV225 EQU CVTRV219 01586000 CVTRV224 EQU CVTRV219 01587000 CVTRV223 EQU CVTRV219 01588000 CVTRV222 EQU CVTRV219 01589000 CVTRV221 EQU CVTRV219 01590000 CVTRV220 EQU CVTRV219 01591000 CVTRV218 EQU CVTRV210 01592000 CVTRV217 EQU CVTRV210 01593000 CVTRV216 EQU CVTRV210 01594000 CVTRV215 EQU CVTRV210 01595000 CVTRV214 EQU CVTRV210 01596000 CVTRV213 EQU CVTRV210 01597000 CVTRV212 EQU CVTRV210 01598000 CVTRV211 EQU CVTRV210 01599000 CVTLCCAT EQU CVTS01+420 01600000 CVTPCCAT EQU CVTS01+416 01601000 CVTIPCRP EQU CVTS01+412 01602000 CVTIPCDS EQU CVTS01+404 01603000 CVTAIDVT EQU CVTS01+400 01604000 CVTSSAP EQU CVTS01+396 01605000 CVTEHCIR EQU CVTS01+392 01606000 CVTEHDEF EQU CVTS01+388 01607000 CVTDAIR EQU CVTS01+384 01608000 CVTPERFM EQU CVTS01+380 01609000 CVT044R2 EQU CVTS01+376 01610000 CVTFETCH EQU CVTS01+372 01611000 CVTRSTWD EQU CVTS01+368 01612000 CVTSPOST EQU CVTS01+364 01613000 CVTIOBP EQU CVTS01+360 01614000 CVTASMVT EQU CVTS01+356 01615000 CVTRECRQ EQU CVTS01+352 01616000 CVTWSAC EQU CVTS01+348 01617000 CVTRV149 EQU CVTS01+344 01618000 CVTWSAL EQU CVTS01+340 01619000 CVTSPSA EQU CVTS01+336 01620000 CVTGLMN EQU CVTS01+332 01621000 CVTVEAC0 EQU CVTS01+328 01622000 CVT062R1 EQU CVTS01+324 01623000 CVTRPOST EQU CVTS01+320 01624000 CVTDQIQE EQU CVTS01+316 01625000 CVTLKRMA EQU CVTS01+308 01626000 CVTRSPIE EQU CVTS01+304 01627000 CVTRENQ EQU CVTS01+300 01628000 CVTLQCB EQU CVTS01+296 01629000 CVTFQCB EQU CVTS01+292 01630000 CVTQCS01 EQU CVTS01+288 01631000 CVTAPFT EQU CVTS01+284 01632000 CVTPARRL EQU CVTS01+280 01633000 CVTVWAIT EQU CVTS01+276 01634000 CVTGSPL EQU CVTS01+272 01635000 CVTLSMQ EQU CVTS01+268 01636000 CVTGSMQ EQU CVTS01+264 01637000 CVTEXPRO EQU CVTS01+260 01638000 CVTOPCTP EQU CVTS01+256 01639000 CVTSIC EQU CVTS01+252 01640000 CVTTPIOS EQU CVTS01+248 01641000 CVTRTMS EQU CVTS01+244 01642000 CVTSDBF EQU CVTS01+240 01643000 CVTSCBP EQU CVTS01+236 01644000 CVTSDMP EQU CVTS01+232 01645000 CVTSV60 EQU CVTS01+228 01646000 CVTRTMCT EQU CVTS01+224 01647000 CVTASCBL EQU CVTS01+220 01648000 CVTASCBH EQU CVTS01+216 01649000 CVTGDA EQU CVTS01+212 01650000 CVTASVT EQU CVTS01+208 01651000 CVTVVMDI EQU CVTS01+204 01652000 CVTAQTOP EQU CVTS01+200 01653000 CVTIOSCS EQU CVTS01+196 01654000 CVTSDRM EQU CVTS01+192 01655000 CVTOPTE EQU CVTS01+188 01656000 CVTSTXU EQU CVTS01+184 01657000 CVTQUIS EQU CVTS01+180 01658000 CVTPARS EQU CVTS01+176 01659000 CVTS1EE EQU CVTS01+172 01660000 CVTFRAS EQU CVTS01+168 01661000 CVTQSAS EQU CVTS01+164 01662000 CVTCRAS EQU CVTS01+160 01663000 CVTCRMN EQU CVTS01+156 01664000 CVTDELCP EQU CVTS01+152 01665000 CVTFRECL EQU CVTS01+148 01666000 CVTGETCL EQU CVTS01+144 01667000 CVTBLDCP EQU CVTS01+140 01668000 CVTAUTHL EQU CVTS01+136 01669000 CVTSCAN EQU CVTS01+132 01670000 CVTRV144 EQU CVTS01+130 01671000 CVTMAXMP EQU CVTS01+128 01672000 CVTSTCK EQU CVTS01+124 01673000 CVTRV139 EQU CVTS01+123 01674000 CVTDSSAC EQU CVTS01+122 01675000 CVTRV513 EQU CVTS01+121 01676000 CVTIOSPL EQU CVTS01+120 01677000 CVTPTGT EQU CVTS01+116 01678000 CVTCSPIE EQU CVTS01+112 01679000 CVTSMFEX EQU CVTS01+108 01680000 CVTOLT0A EQU CVTS01+104 01681000 CVTSRBRT EQU CVTS01+100 01682000 CVTPUTL EQU CVTS01+96 01683000 CVTASCRL EQU CVTS01+92 01684000 CVTASCRF EQU CVTS01+88 01685000 CVTRV326 EQU CVTS01+84 01686000 CVTRV325 EQU CVTS01+80 01687000 CVTRV324 EQU CVTS01+76 01688000 CVT0VL01 EQU CVTS01+72 01689000 CVTSHRVM EQU CVTS01+68 01690000 CVTRV332 EQU CVTS01+64 01691000 CVTTAS EQU CVTS01+60 01692000 CVTRSCN EQU CVTS01+56 01693000 CVTTRAC2 EQU CVTS01+54 01694000 CVTTRACE EQU CVTS01+52 01695000 CVTAPG EQU CVTS01+51 01696000 CVTSDTRC EQU CVTCTLFG 01697000 CVTGTRCE EQU CVTCTLFG 01698000 CVTNOMP EQU CVTCTLFG 01699000 CVTRSV79 EQU CVTCTLFG 01700000 CVTDSTAT EQU CVTCTLFG 01701000 CVTRSV78 EQU CVTCTLFG 01702000 CVTRV333 EQU CVTCTLFG 01703000 CVTRV323 EQU CVTCTLFG 01704000 CVTSPVLK EQU CVTS01+49 01705000 CVTRSV77 EQU CVTS01+48 01706000 CVTRV331 EQU CVTS01+44 01707000 CVTRV330 EQU CVTS01+40 01708000 CVTRV329 EQU CVTS01+36 01709000 CVTRV328 EQU CVTS01+32 01710000 CVTRV322 EQU CVTS01+28 01711000 CVTSLID EQU CVTSLIDA+1 01712000 CVTSYLK EQU CVTSLIDA 01713000 CVTRV321 EQU CVTS01+20 01714000 CVTRV320 EQU CVTS01+16 01715000 CVTLPDIR EQU CVTLPDIA+1 01716000 CVTRSV69 EQU CVTDIRST 01717000 CVTRSV68 EQU CVTDIRST 01718000 CVTRSV67 EQU CVTDIRST 01719000 CVTRSV66 EQU CVTDIRST 01720000 CVTRSV65 EQU CVTDIRST 01721000 CVTRSV64 EQU CVTDIRST 01722000 CVTRSV63 EQU CVTDIRST 01723000 CVTDICOM EQU CVTDIRST 01724000 CVTPVTP EQU CVTS01+8 01725000 CVTLPDSR EQU CVTS01+4 01726000 CVTGETL EQU CVTS01 01727000 PSARSAV EQU PSARSVTE+60 01728000 PSARSTK EQU PSARSVTE+56 01729000 PSAESAV3 EQU PSARSVTE+52 01730000 PSAESTK3 EQU PSARSVTE+48 01731000 PSAESAV2 EQU PSARSVTE+44 01732000 PSAESTK2 EQU PSARSVTE+40 01733000 PSAESAV1 EQU PSARSVTE+36 01734000 PSAESTK1 EQU PSARSVTE+32 01735000 PSAPSAV EQU PSARSVTE+28 01736000 PSAPSTK EQU PSARSVTE+24 01737000 PSAMSAV EQU PSARSVTE+20 01738000 PSAMSTK EQU PSARSVTE+16 01739000 PSASSAV EQU PSARSVTE+12 01740000 PSASSTK EQU PSARSVTE+8 01741000 PSANSTK EQU PSARSVTE+4 01742000 @NM00007 EQU EXITFLGS+1 01743000 R14SAVE EQU REGSAVE+20 01744000 R13SAVE EQU REGSAVE+16 01745000 R12SAVE EQU REGSAVE+12 01746000 R11SAVE EQU REGSAVE+8 01747000 R10SAVE EQU REGSAVE+4 01748000 R9SAVE EQU REGSAVE 01749000 FOLDAREA EQU @NM00006 01750000 @NM00005 EQU XAS6503D 01751000 @NM00004 EQU XAV6503D 01752000 @NM00003 EQU KEYWRDID 01753000 @NM00002 EQU KEYWRDID 01754000 @NM00001 EQU XAX6503D+4 01755000 XSAGMTR EQU XSAGMT+4 01756000 XAARNG16 EQU XAAVRNG2 01757000 XAARNG15 EQU XAAVRNG2 01758000 XAARNG14 EQU XAAVRNG2 01759000 XAARNG13 EQU XAAVRNG2 01760000 XAARNG12 EQU XAAVRNG2 01761000 XAARNG11 EQU XAAVRNG2 01762000 XAARNG10 EQU XAAVRNG2 01763000 XAARNG9 EQU XAAVRNG2 01764000 XAARNG8 EQU XAAVRANG 01765000 XAARNG7 EQU XAAVRANG 01766000 XAARNG6 EQU XAAVRANG 01767000 XAARNG5 EQU XAAVRANG 01768000 XAARNG4 EQU XAAVRANG 01769000 XAARNG3 EQU XAAVRANG 01770000 XAARNG2 EQU XAAVRANG 01771000 XAARNG1 EQU XAAVRANG 01772000 XARTCODE EQU EEXSAS05+6 01773000 XACMDATH EQU EEXSAS05+4 01774000 XALTPTR EQU EEXSAS05+3 01775000 XACRT2 EQU XARESV 01776000 XACENDCK EQU XARESV 01777000 XARES1 EQU XASWITCH 01778000 XASMF44 EQU XASWITCH 01779000 XASMF42 EQU XASWITCH 01780000 XAHRDREQ EQU XASWITCH 01781000 XASTHDCP EQU XACOMPMS 01782000 XAINHDCP EQU XALTCHG 01783000 XAHRDCMD EQU XASWITCH 01784000 XAROUT EQU XASWITCH 01785000 XALTCON EQU XASOPCOD 01786000 XACMD EQU XASOPCOD 01787000 XALTCOM EQU XASOPCOD 01788000 XARESB EQU XASOPCOD 01789000 XAOFF EQU XASOPCOD 01790000 XAON EQU XASOPCOD 01791000 XARESA EQU XASOPCOD 01792000 XACON EQU XASOPCOD 01793000 XAXSACB EQU EEXSAS04+4 01794000 XAXUTME EQU EEXSAS04+2 01795000 XAXFREE EQU EEXSAS04+1 01796000 @NM00137 EQU XAXMASK 01797000 XAXTSL EQU XAXMASK 01798000 XAXTS EQU XAXMASK 01799000 @NM00136 EQU XAXMASK 01800000 XAXJOBSL EQU XAXMASK 01801000 XAXJOBS EQU XAXMASK 01802000 XASOPTR EQU @NM00135+1 01803000 XASTSAVE EQU @NM00135 01804000 XASPLS3 EQU EEXSAS03+3 01805000 XASSDS8 EQU XASDS 01806000 XASSDS7 EQU XASDS 01807000 XASSDS6 EQU XASDS 01808000 XASSDS5 EQU XASDS 01809000 XASSDS4 EQU XASDS 01810000 XASSDS3 EQU XASDS 01811000 XASSDS2 EQU XASDS 01812000 XASSDS1 EQU XASDS 01813000 XASDID EQU EEXSAS03+1 01814000 XASCID EQU EEXSAS03 01815000 XACAHOLD EQU EEXSAS02+2 01816000 XADRES1 EQU EEXSAS02+1 01817000 XAUBLANK EQU XADUSWIT 01818000 XAOUNIT EQU XADUSWIT 01819000 XAIOCOMP EQU XADUSWIT 01820000 XARES3 EQU XADUSWIT 01821000 XAUDVC EQU XADUSWIT 01822000 XARES2 EQU XADUSWIT 01823000 XAIPAREN EQU XADUSWIT 01824000 XAXPAREN EQU XADUSWIT 01825000 @NM00134 EQU EEXSAS01+44 01826000 XAT EQU EEXSAS01+20 01827000 XAF EQU EEXSAS01+12 01828000 XAI EQU EEXSAS01+4 01829000 XAH EQU EEXSAS01 01830000 XASAVSDR EQU XASAVSTR+68 01831000 XASAVSDQ EQU XASAVSTR+64 01832000 XASAVSDP EQU XASAVSTR+60 01833000 XASAVSDO EQU XASAVSTR+56 01834000 XASAVSDN EQU XASAVSTR+52 01835000 XASAVSDM EQU XASAVSTR+48 01836000 XASAVSDL EQU XASAVSTR+44 01837000 XASAVSDK EQU XASAVSTR+40 01838000 XASAVSDJ EQU XASAVSTR+36 01839000 XASAVSDI EQU XASAVSTR+32 01840000 XASAVSDH EQU XASAVSTR+28 01841000 XASAVSDG EQU XASAVSTR+24 01842000 XASAVSDF EQU XASAVSTR+20 01843000 XASAVSDE EQU XASAVSTR+16 01844000 XASAVSDD EQU XASAVSTR+12 01845000 XASAVSDC EQU XASAVSTR+8 01846000 XASAVSDB EQU XASAVSTR+4 01847000 XASAVSDA EQU XASAVSTR 01848000 XASAVLC4 EQU XASAVLOX+12 01849000 XASAVLC3 EQU XASAVLOX+8 01850000 XASAVLC2 EQU XASAVLOX+4 01851000 XASAVLC1 EQU XASAVLOX 01852000 XAK EQU XASVRB+44 01853000 @NM00133 EQU XASVRB+41 01854000 XAL EQU @NM00132+1 01855000 XAN EQU @NM00132 01856000 XAR EQU @NM00131+1 01857000 XAP EQU XSA 01858000 @NM00130 EQU TQE+88 01859000 TQESRB EQU TQE+44 01860000 TQELHPSW EQU TQE+40 01861000 TQEASCB EQU TQE+36 01862000 TQETCB EQU TQE+32 01863000 TQESADDR EQU TQE+24 01864000 TQEVALRH EQU TQEVAL+4 01865000 TQEMIDN EQU TQEFLGS2 01866000 TQEMF1 EQU TQEFLGS2 01867000 TQEOPT EQU TQEFLGS2 01868000 TQELM EQU TQEFLGS2 01869000 TQECRH EQU TQEFLGS2 01870000 TQECOMP EQU TQEFLGS2 01871000 TQETYPE EQU TQEFLGS 01872000 TQEXITSP EQU TQEFLGS 01873000 TQEINCOM EQU TQEFLGS 01874000 TQEWLIM EQU TQEFLGS 01875000 @NM00129 EQU TQEFLGS 01876000 TQEOFF EQU TQEFLGS 01877000 TQEAID EQU TQE+12 01878000 TQETQE EQU TQE 01879000 MSSPARE EQU BASES01+48 01880000 MSUCBAL EQU BASES01+44 01881000 MSUCBPR EQU BASES01+40 01882000 MSBOBECB EQU BASES01+36 01883000 MSSJQ EQU BASES01+32 01884000 MSECB EQU BASES01+28 01885000 MSPBP EQU BASES01+24 01886000 MSERM EQU BASES01+22 01887000 MSPASS EQU BASES01+14 01888000 MSVRB EQU BASES01+6 01889000 MSQHR EQU MSFHF 01890000 @NM00128 EQU MSFHF 01891000 MSPSDT EQU MSFHF 01892000 MSREPLYB EQU MSFHF 01893000 MSFAX EQU MSFHF 01894000 MSTTT EQU MSFHF 01895000 MSCSD EQU MSFHF 01896000 MSNMF EQU MSFHF 01897000 MSJNF EQU MSSSA 01898000 MSYOUT EQU MSNWP 01899000 MSNRP EQU MSSSA 01900000 MSSRDR EQU MSREOF 01901000 MSWRLOG EQU MSSSA 01902000 MSNUPSW EQU MSSSA 01903000 MSWRPEN EQU MSSSA 01904000 MSSSSIPL EQU MSINLSW 01905000 MSSUM EQU MSECBFL 01906000 MSMCR EQU MSECBFL 01907000 MSYSOUT EQU MSECBFL 01908000 MSYSIN EQU MSECBFL 01909000 MSATTN EQU MSECBFL 01910000 MSWTL EQU MSECBFL 01911000 MSWTO EQU MSECBFL 01912000 MSEXT EQU MSECBFL 01913000 MSCCS EQU MSPFG 01914000 MSBSP EQU MSPFG 01915000 MSSYT EQU MSPFG 01916000 MSSYN EQU MSPFG 01917000 MSICR EQU MSPFG 01918000 MSCMC EQU MSPFG 01919000 MSPNB EQU MSPFG 01920000 MSDATE EQU MSPFG 01921000 @NM00127 EQU MSBTN 01922000 MSTN EQU MSBTN 01923000 @NM00126 EQU MSBTN 01924000 @NM00125 EQU MSBTN 01925000 MSSO EQU MSBTN 01926000 MSROLFLG EQU MSBTN 01927000 MSCANFLG EQU MSBTN 01928000 MSCONFLG EQU MSBTN 01929000 MSPNIP EQU MSNTAL 01930000 MSQNIP EQU MSNTAL 01931000 MSCURE34 EQU MSNTAL 01932000 @NM00124 EQU MSNTAL 01933000 @NM00123 EQU MSNTAL 01934000 @NM00122 EQU MSNTAL 01935000 @NM00121 EQU MSNTAL 01936000 MSNIP EQU MSNTAL 01937000 @NM00120 EQU MS1BASEX+40 01938000 @NM00119 EQU MS1BASEX+20 01939000 @NM00118 EQU MS1BASEX 01940000 @NM00117 EQU BASE+128 01941000 MSLGJSCB EQU BASE+124 01942000 @NM00116 EQU MSSTRTSW 01943000 MSSTRTP EQU MSSTRTSW 01944000 MSSTRTW EQU MSSTRTSW 01945000 @NM00115 EQU MSWTRSW 01946000 MSWTRP EQU MSWTRSW 01947000 MSWTRW EQU MSWTRSW 01948000 @NM00114 EQU MSWLOGSW 01949000 MSWLOGP EQU MSWLOGSW 01950000 MSWLOGW EQU MSWLOGSW 01951000 @NM00113 EQU MSCLOSSW 01952000 MSCLOSP EQU MSCLOSSW 01953000 MSCLOSW EQU MSCLOSSW 01954000 MSLOGLMT EQU @NM00112+1 01955000 MSLOGCLS EQU @NM00112 01956000 BAASCB EQU BASE+100 01957000 MSSMFPRM EQU BASE+96 01958000 MSCOMMND EQU BASE+92 01959000 BASP12 EQU BASE+90 01960000 BASTCNT EQU BASE+88 01961000 BASESCT EQU BASE+86 01962000 BAJNCNT EQU BASE+84 01963000 BASUBECB EQU BASE+80 01964000 BALOGCOM EQU BASE+76 01965000 BADACNT EQU BASE+74 01966000 BATACNT EQU BASE+72 01967000 BAJBNR EQU BASE+64 01968000 BASP11 EQU BASE+62 01969000 BALCCNT EQU BASE+61 01970000 BADUMPID EQU BASE+60 01971000 BABCMAX EQU BASE+58 01972000 BAMONTR2 EQU BASE+57 01973000 @NM00111 EQU BAMONITR 01974000 BAMACTVE EQU BAMONITR 01975000 @NM00110 EQU BAMONITR 01976000 @NM00109 EQU BAMONITR 01977000 @NM00108 EQU BAMONITR 01978000 @NM00107 EQU BAMONITR 01979000 BASPACE EQU BAMONITR 01980000 BADSN EQU BAMONITR 01981000 BADSO EQU BASE+52 01982000 BALOGECB EQU BASE+48 01983000 @NM00106 EQU BASPBYTE 01984000 @NM00105 EQU BASPBYTE 01985000 @NM00104 EQU BASPBYTE 01986000 @NM00103 EQU BASPBYTE 01987000 @NM00102 EQU BASPBYTE 01988000 BAMASCH EQU BASPBYTE 01989000 BATRACE EQU BASPBYTE 01990000 BAMSSTAR EQU BASPBYTE 01991000 @NM00101 EQU MSLOGST 01992000 @NM00100 EQU MSLOGST 01993000 MSLOGSTA EQU MSLOGST 01994000 MSLOGIPL EQU MSLOGST 01995000 MSLOGDAR EQU MSLOGST 01996000 MSLOGCOM EQU MSLOGST 01997000 MSLOGTHD EQU MSLOGST 01998000 MSLOGENQ EQU MSLOGST 01999000 BAMIPAR2 EQU BASE+44 02000000 BAMINPAR EQU BASE+42 02001000 BAPKES EQU BASE+40 02002000 BAICTR EQU BASE+38 02003000 @NM00099 EQU BASE+37 02004000 BADSET EQU BARSW 02005000 BANOSET EQU BARSW 02006000 BAMIDNT EQU BARSW 02007000 BAHR EQU BARSW 02008000 BAVU EQU BARSW 02009000 BAINTSET EQU BARSW 02010000 MSTODWTO EQU BARSW 02011000 BACV EQU BASE+32 02012000 @NM00098 EQU BALOG 02013000 @NM00097 EQU BALOG 02014000 @NM00096 EQU BALOG 02015000 @NM00095 EQU BALOG 02016000 @NM00094 EQU BALOG 02017000 @NM00093 EQU BALOG 02018000 @NM00092 EQU BALOG 02019000 BALOGINT EQU BALOG 02020000 MSLOGSVC EQU BALGSTAT 02021000 BAPRC EQU BASE+20 02022000 BAQ EQU BASE+16 02023000 BAIPLCC EQU @NM00090+2 02024000 @NM00091 EQU @NM00090 02025000 BAIPL EQU BASE+12 02026000 BALAD EQU BASE+8 02027000 BATRM EQU BASE+4 02028000 BACHN EQU BASE 02029000 TPCCLA EQU IEATPC+408 02030000 TPCCKQ EQU IEATPC+404 02031000 TPCRSRB EQU IEATPC+360 02032000 TPCCRSAV EQU IEATPC+352 02033000 TPCVPTR EQU IEATPC+344 02034000 TPCMISC EQU IEATPC+272 02035000 TPCWORKR EQU TPCWORK+4 02036000 TPCWORKL EQU TPCWORK 02037000 TPCSAVE2 EQU IEATPC+200 02038000 TPCSAVE1 EQU IEATPC+136 02039000 @NM00089 EQU TPCLMTQE+16 02040000 @NM00088 EQU TPCLMTQE+15 02041000 @NM00087 EQU TPCLMTQE+14 02042000 @NM00086 EQU TPCLMTQE+12 02043000 @NM00085 EQU TPCLMTQE+8 02044000 @NM00084 EQU TPCLMTQE+4 02045000 @NM00083 EQU TPCLMTQE 02046000 @NM00082 EQU IEATSELM+16 02047000 @NM00081 EQU IEATSELM+15 02048000 @NM00080 EQU IEATSELM+14 02049000 @NM00079 EQU IEATSELM+12 02050000 @NM00078 EQU IEATSELM+8 02051000 @NM00077 EQU IEATSELM+4 02052000 @NM00076 EQU IEATSELM 02053000 @NM00075 EQU TPCMFTQE+16 02054000 @NM00074 EQU TPCMFTQE+15 02055000 @NM00073 EQU TPCMFTQE+14 02056000 @NM00072 EQU TPCMFTQE+12 02057000 @NM00071 EQU TPCMFTQE+8 02058000 @NM00070 EQU TPCMFTQE+4 02059000 @NM00069 EQU TPCMFTQE 02060000 MNIGHTRH EQU MNIGHT+4 02061000 MNIGHTLH EQU MNIGHT 02062000 @NM00068 EQU TPCMNTQE+15 02063000 @NM00067 EQU TPCMNTQE+14 02064000 @NM00066 EQU TPCMNTQE+12 02065000 @NM00065 EQU TPCMNTQE+8 02066000 @NM00064 EQU TPCMNTQE+4 02067000 @NM00063 EQU TPCMNTQE 02068000 @NM00062 EQU TPCDMTQE+16 02069000 @NM00061 EQU TPCDMTQE+15 02070000 @NM00060 EQU TPCDMTQE+14 02071000 @NM00059 EQU TPCDMTQE+12 02072000 @NM00058 EQU TPCDMTQE+8 02073000 @NM00057 EQU TPCDMTQE 02074000 TPCCC EQU IEATPC+7 02075000 @NM00056 EQU IEATPC+5 02076000 @NM00055 EQU TPCFLGS1 02077000 TPCSYNC EQU TPCFLGS1 02078000 TPCABND EQU TPCFLGS1 02079000 TPCTPCA EQU IEATPC 02080000 CVTLEVL EQU CVTRELNO+2 02081000 CVTNUMB EQU CVTRELNO 02082000 CVTMDL EQU CVTFIX+250 02083000 @NM00054 EQU CVTFIX+248 02084000 @NM00053 EQU CVTFIX 02085000 CVTRV482 EQU CVTXTNT2+128 02086000 CVTRV481 EQU CVTXTNT2+124 02087000 CVTRV480 EQU CVTXTNT2+120 02088000 CVTRV479 EQU CVTXTNT2+118 02089000 CVTRV478 EQU CVTXTNT2+117 02090000 CVTRV477 EQU CVTXTNT2+116 02091000 CVTRV476 EQU CVTXTNT2+115 02092000 CVTRV475 EQU CVTXTNT2+114 02093000 CVTRV474 EQU CVTRV466 02094000 CVTRV473 EQU CVTRV466 02095000 CVTRV472 EQU CVTRV466 02096000 CVTRV471 EQU CVTRV466 02097000 CVTRV470 EQU CVTRV466 02098000 CVTRV469 EQU CVTRV466 02099000 CVTRV468 EQU CVTRV466 02100000 CVTRV467 EQU CVTRV466 02101000 CVTRV465 EQU CVTRV457 02102000 CVTRV464 EQU CVTRV457 02103000 CVTRV463 EQU CVTRV457 02104000 CVTRV462 EQU CVTRV457 02105000 CVTRV461 EQU CVTRV457 02106000 CVTRV460 EQU CVTRV457 02107000 CVTRV459 EQU CVTRV457 02108000 CVTRV458 EQU CVTRV457 02109000 CVTRV456 EQU CVTXTNT2+108 02110000 CVTRV455 EQU CVTXTNT2+104 02111000 CVTRV454 EQU CVTXTNT2+100 02112000 CVTRV453 EQU CVTXTNT2+96 02113000 CVTRV452 EQU CVTXTNT2+94 02114000 CVTRV451 EQU CVTXTNT2+92 02115000 CVTRV450 EQU CVTXTNT2+90 02116000 CVTRV449 EQU CVTXTNT2+88 02117000 CVTRV448 EQU CVTXTNT2+87 02118000 CVTRV447 EQU CVTXTNT2+86 02119000 CVTRV446 EQU CVTRV438 02120000 CVTRV445 EQU CVTRV438 02121000 CVTRV444 EQU CVTRV438 02122000 CVTRV443 EQU CVTRV438 02123000 CVTRV442 EQU CVTRV438 02124000 CVTRV441 EQU CVTRV438 02125000 CVTRV440 EQU CVTRV438 02126000 CVTRV439 EQU CVTRV438 02127000 CVTRV437 EQU CVTRV429 02128000 CVTRV436 EQU CVTRV429 02129000 CVTRV435 EQU CVTRV429 02130000 CVTRV434 EQU CVTRV429 02131000 CVTRV433 EQU CVTRV429 02132000 CVTRV432 EQU CVTRV429 02133000 CVTRV431 EQU CVTRV429 02134000 CVTRV430 EQU CVTRV429 02135000 CVTRV428 EQU CVTXTNT2+80 02136000 CVTRV427 EQU CVTXTNT2+76 02137000 CVTRV426 EQU CVTXTNT2+72 02138000 CVTRV425 EQU CVTXTNT2+68 02139000 CVTATACT EQU CVTATCVT 02140000 CVTRV423 EQU CVTXTNT2+62 02141000 CVTRV422 EQU CVTXTNT2+60 02142000 CVTRV421 EQU CVTXTNT2+58 02143000 CVTRV420 EQU CVTXTNT2+56 02144000 CVTRV419 EQU CVTXTNT2+55 02145000 CVTRV418 EQU CVTXTNT2+54 02146000 CVTRV417 EQU CVTRV409 02147000 CVTRV416 EQU CVTRV409 02148000 CVTRV415 EQU CVTRV409 02149000 CVTRV414 EQU CVTRV409 02150000 CVTRV413 EQU CVTRV409 02151000 CVTRV412 EQU CVTRV409 02152000 CVTRV411 EQU CVTRV409 02153000 CVTRV410 EQU CVTRV409 02154000 CVTRV408 EQU CVTRV400 02155000 CVTRV407 EQU CVTRV400 02156000 CVTRV406 EQU CVTRV400 02157000 CVTRV405 EQU CVTRV400 02158000 CVTRV404 EQU CVTRV400 02159000 CVTRV403 EQU CVTRV400 02160000 CVTRV402 EQU CVTRV400 02161000 CVTRV401 EQU CVTRV400 02162000 CVTICB EQU CVTXTNT2+48 02163000 CVTSKTA EQU CVTXTNT2+44 02164000 CVTRSV99 EQU CVTXTNT2+40 02165000 CVTRSV98 EQU CVTXTNT2+36 02166000 CVTRSV97 EQU CVTXTNT2+34 02167000 CVTRSV96 EQU CVTXTNT2+32 02168000 CVTOLTEP EQU CVTXTNT2+28 02169000 CVTQIDA EQU CVTQID+1 02170000 CVTRSV95 EQU CVTQID 02171000 CVTRSV94 EQU CVTXTNT2+20 02172000 CVTRSV93 EQU CVTXTNT2+16 02173000 CVTRSV92 EQU CVTXTNT2+12 02174000 CVTDEBVR EQU CVTXTNT2+8 02175000 CVTRSV91 EQU CVTXTNT2+6 02176000 CVTRSV9H EQU CVTFLGBT 02177000 CVTRSV9G EQU CVTFLGBT 02178000 CVTRSV9F EQU CVTFLGBT 02179000 CVTRSV9E EQU CVTFLGBT 02180000 CVTRSV9D EQU CVTFLGBT 02181000 CVTRSV9C EQU CVTFLGBT 02182000 CVTVME EQU CVTFLGBT 02183000 CVTNPE EQU CVTFLGBT 02184000 CVTNUCLS EQU CVTXTNT2+4 02185000 CVTDSSVA EQU CVTDSSV+1 02186000 CVTRSV89 EQU CVTDSSV 02187000 CVTRSV88 EQU CVTXTNT1+8 02188000 CVTRSV87 EQU CVTXTNT1+4 02189000 CVTFACHN EQU CVTXTNT1 02190000 CVTRV488 EQU CVTMAP+412 02191000 CVTRV487 EQU CVTMAP+408 02192000 CVTRV486 EQU CVTMAP+404 02193000 CVTRV485 EQU CVTMAP+400 02194000 CVTACTAP EQU CVTMAP+396 02195000 CVTAUTH EQU CVTMAP+392 02196000 CVTATMCA EQU CVTATMCT+1 02197000 CVTATMST EQU CVTATMCT 02198000 CVTRSV61 EQU CVTMAP+384 02199000 CVTVOLT1 EQU CVTVOLM1+1 02200000 CVTVOLI1 EQU CVTVOLF1 02201000 CVTSTOA EQU CVTMAP+376 02202000 CVTRSV58 EQU CVTMAP+374 02203000 CVTRSV57 EQU CVTMAP+372 02204000 CVTDDCE EQU CVTMAP+368 02205000 CVTPNWFR EQU CVTMAP+364 02206000 CVTSMF EQU CVTMAP+360 02207000 CVTSULK EQU CVTMAP+358 02208000 CVTSLKO EQU CVTSYSK 02209000 CVTSLKP EQU CVTSYSK 02210000 CVTSLKQ EQU CVTSYSK 02211000 CVTSLKR EQU CVTSYSK 02212000 CVTRSV56 EQU CVTSYSK 02213000 CVTRSV55 EQU CVTSYSK 02214000 CVTRSV54 EQU CVTSYSK 02215000 CVTRSV53 EQU CVTSYSK 02216000 CVTRSV52 EQU CVTA1F1 02217000 CVTRSV51 EQU CVTA1F1 02218000 CVTRSV50 EQU CVTA1F1 02219000 CVTRSV49 EQU CVTA1F1 02220000 CVTRSV48 EQU CVTA1F1 02221000 CVTRSV47 EQU CVTA1F1 02222000 CVTSRSW EQU CVTA1F1 02223000 CVTPFSW EQU CVTA1F1 02224000 CVTPCVT EQU CVTMAP+352 02225000 CVTRSV46 EQU CVTMAP+344 02226000 CVTRSV45 EQU CVTMAP+340 02227000 CVTRSV44 EQU CVTMAP+338 02228000 CVTRSV43 EQU CVTMAP+336 02229000 CVTHJESA EQU CVTHJES+1 02230000 CVTRSV42 EQU CVTHJES 02231000 CVTEXT2A EQU CVTEXT2+1 02232000 CVTRSV41 EQU CVTEXT2 02233000 CVTAPFA EQU CVTAPF+1 02234000 CVTRSV40 EQU CVTAPF 02235000 CVTRV518 EQU CVTINTLA 02236000 CVTRV517 EQU CVTERPV 02237000 CVTEORM EQU CVTMAP+312 02238000 CVTMCHPR EQU CVTMAP+308 02239000 CVTJEPS EQU CVTMAP+300 02240000 CVTJESCT EQU CVTMAP+296 02241000 CVTMODE EQU CVTMAP+292 02242000 CVTPTRV EQU CVTMAP+288 02243000 CVTREAL EQU CVTMAP+284 02244000 CVTRSV39 EQU CVTMAP+280 02245000 CVTRSV38 EQU CVTMAP+276 02246000 CVTDMSRA EQU CVTDMSR+1 02247000 CVTRV634 EQU CVTDMSRF 02248000 CVTRV633 EQU CVTDMSRF 02249000 CVTRV632 EQU CVTDMSRF 02250000 CVTRV631 EQU CVTDMSRF 02251000 CVTRV630 EQU CVTDMSRF 02252000 CVTRV629 EQU CVTDMSRF 02253000 CVTUDUMP EQU CVTDMSRF 02254000 CVTSDUMP EQU CVTDMSRF 02255000 CVTQMSGA EQU CVTQMSG+1 02256000 CVTRSV36 EQU CVTQMSG 02257000 CVTAMFF EQU CVTMAP+264 02258000 CVTPURGA EQU CVTPURG+1 02259000 CVTRSV35 EQU CVTPURG 02260000 CVTCBSP EQU CVTMAP+256 02261000 CVTATERA EQU CVTATER+1 02262000 CVTSYST EQU CVTATER 02263000 CVTVOLT2 EQU CVTTAT 02264000 CVTVOLI2 EQU CVTVOLF2 02265000 CVTAQAVB EQU CVTAQAVT+1 02266000 CVTRSV34 EQU CVTTCMFG 02267000 CVTRSV33 EQU CVTTCMFG 02268000 CVTRSV32 EQU CVTTCMFG 02269000 CVTRSV31 EQU CVTTCMFG 02270000 CVTRSV30 EQU CVTTCMFG 02271000 CVTRSV29 EQU CVTTCMFG 02272000 CVTRSV28 EQU CVTTCMFG 02273000 CVTTCRDY EQU CVTTCMFG 02274000 CVTGTFA EQU CVTGTF+1 02275000 CVTRSV27 EQU CVTGTFST 02276000 CVTRNIO EQU CVTGTFST 02277000 CVTUSR EQU CVTGTFST 02278000 CVTRV318 EQU CVTFORM 02279000 CVTRV317 EQU CVTTMODE 02280000 CVTRV316 EQU CVTSTATE 02281000 CVTRV315 EQU CVTGTFS 02282000 CVTGTFAV EQU CVTGTFS 02283000 CVT0SCR1 EQU CVTMAP+232 02284000 CVTRV515 EQU CVTMAP+228 02285000 CVTRMS EQU CVTMAP+224 02286000 CVTPATCH EQU CVTMAP+220 02287000 CVTTSCE EQU CVTMAP+216 02288000 CVTLNKSC EQU CVTMAP+214 02289000 CVTQABST EQU CVTMAP+212 02290000 CVTMDLDS EQU CVTMAP+208 02291000 CVTUSER EQU CVTMAP+204 02292000 CVTABEND EQU CVTMAP+200 02293000 CVTSMCA EQU CVTMAP+196 02294000 CVTRSV18 EQU CVTMAP+192 02295000 CVTQLPAQ EQU CVTMAP+188 02296000 CVTQCDSR EQU CVTMAP+184 02297000 CVTRSV17 EQU CVTOPTB 02298000 CVTRSV16 EQU CVTOPTB 02299000 CVTFP EQU CVTOPTB 02300000 CVTAPTHR EQU CVTOPTB 02301000 CVTNLOG EQU CVTOPTB 02302000 CVTTOD EQU CVTOPTB 02303000 CVTCTIMS EQU CVTOPTB 02304000 CVTPROT EQU CVTOPTB 02305000 CVTXPFP EQU CVTOPTA 02306000 CVTASCII EQU CVTOPTA 02307000 CVTRSV13 EQU CVTOPTA 02308000 CVTRSV12 EQU CVTOPTA 02309000 CVTNIP EQU CVTOPTA 02310000 CVTDDR EQU CVTOPTA 02311000 CVTAPR EQU CVTOPTA 02312000 CVTCCH EQU CVTOPTA 02313000 CVTSNCTR EQU CVTMAP+180 02314000 CVTQMWR EQU CVTMAP+176 02315000 CVTQOCR EQU CVTMAP+172 02316000 CVT1EF00 EQU CVTMAP+168 02317000 CVTMZ00 EQU CVTMAP+164 02318000 CVTHEAD EQU CVTMAP+160 02319000 CVTRSV11 EQU CVTMAP+156 02320000 CVT0PT01 EQU CVTMAP+152 02321000 CVTRV516 EQU CVTIERLC 02322000 CVTILCH EQU CVTMAP+140 02323000 CVT0DS EQU CVTMAP+136 02324000 CVTFBOSV EQU CVTMAP+132 02325000 CVTNUCB EQU CVTMAP+128 02326000 CVTIXAVL EQU CVTMAP+124 02327000 CVTIOQET EQU CVTMAP+120 02328000 CVTDCBA EQU CVTMAP+117 02329000 CVTMVS2 EQU CVTDCB 02330000 CVT6DAT EQU CVTDCB 02331000 CVT4MPS EQU CVTDCB 02332000 CVTRSV09 EQU CVTDCB 02333000 CVT4MS1 EQU CVTDCB 02334000 CVT2SPS EQU CVTDCB 02335000 CVT1SSS EQU CVTDCB 02336000 CVTRSV08 EQU CVTDCB 02337000 CVTSTB EQU CVTMAP+112 02338000 CVTCUCB EQU CVTMAP+100 02339000 CVTSJQ EQU CVTMAP+96 02340000 CVTPBLDL EQU CVTMAP+92 02341000 CVTSVDCB EQU CVTMAP+84 02342000 CVTBRET EQU CVTMAP+82 02343000 CVTEXIT EQU CVTMAP+80 02344000 CVT0FN00 EQU CVTMAP+76 02345000 CVTDARA EQU CVTDAR+1 02346000 CVTRSV07 EQU CVTFLGS1 02347000 CVTRSV06 EQU CVTFLGS1 02348000 CVTRSV05 EQU CVTFLGS1 02349000 CVTRSV04 EQU CVTFLGS1 02350000 CVTRSV03 EQU CVTFLGS1 02351000 CVTRSV02 EQU CVTFLGS1 02352000 CVTRSV01 EQU CVTFLGS1 02353000 CVTDMPLK EQU CVTFLGS1 02354000 CVTXITP EQU CVTMAP+68 02355000 CVTZDTAB EQU CVTMAP+64 02356000 CVTMSLT EQU CVTMAP+60 02357000 CVTBTERM EQU CVTMAP+52 02358000 CVTSYSAD EQU CVTMAP+48 02359000 CVTXTLER EQU CVTMAP+44 02360000 CVTILK2 EQU CVTMAP+40 02361000 CVTILK1 EQU CVTMAP+36 02362000 CVTPRLTV EQU CVTMAP+32 02363000 CVTPCNVT EQU CVTMAP+28 02364000 CVT0VL00 EQU CVTMAP+24 02365000 CVTXAPG EQU CVTMAP+20 02366000 CVTBUF EQU CVTMAP+16 02367000 CVTJOB EQU CVTMAP+12 02368000 CVTLINK EQU CVTMAP+8 02369000 CVT0EF00 EQU CVTMAP+4 02370000 CVTTCBP EQU CVTMAP 02371000 @NM00052 EQU CSD+160 02372000 CSDMASK EQU CSD+128 02373000 CSDUCNT EQU CSD+124 02374000 CSDTCNT EQU CSD+120 02375000 CSDGDTOD EQU CSD+116 02376000 CSDGDINT EQU CSD+112 02377000 CSDGDCC EQU CSD+108 02378000 CSDDDRCT EQU CSD+106 02379000 CSDRV044 EQU CSD+104 02380000 CSDMAFF EQU CSD+24 02381000 CSDRV038 EQU CSDFLAGS 02382000 CSDRV037 EQU CSDFLAGS 02383000 CSDRV036 EQU CSDFLAGS 02384000 CSDRV035 EQU CSDFLAGS 02385000 CSDRV034 EQU CSDFLAGS 02386000 CSDRV033 EQU CSDFLAGS 02387000 CSDRV032 EQU CSDFLAGS 02388000 CSDACR EQU CSD+22 02389000 CSDMF1CP EQU CSD+20 02390000 CSDRV043 EQU CSD+16 02391000 CSDRV030 EQU CSDSCFL4 02392000 CSDRV029 EQU CSDSCFL4 02393000 CSDRV028 EQU CSDSCFL4 02394000 CSDRV027 EQU CSDSCFL4 02395000 CSDRV026 EQU CSDSCFL4 02396000 CSDRV025 EQU CSDSCFL4 02397000 CSDRV024 EQU CSDSCFL4 02398000 CSDRV023 EQU CSDSCFL4 02399000 CSDRV022 EQU CSDSCFL3 02400000 CSDRV021 EQU CSDSCFL3 02401000 CSDRV020 EQU CSDSCFL3 02402000 CSDRV019 EQU CSDSCFL3 02403000 CSDRV018 EQU CSDSCFL3 02404000 CSDRV017 EQU CSDSCFL3 02405000 CSDRV016 EQU CSDSCFL3 02406000 CSDRV015 EQU CSDSCFL3 02407000 CSDRV014 EQU CSDSCFL2 02408000 CSDRV013 EQU CSDSCFL2 02409000 CSDRV012 EQU CSDSCFL2 02410000 CSDRV011 EQU CSDSCFL2 02411000 CSDRV010 EQU CSDSCFL2 02412000 CSDRV009 EQU CSDSCFL2 02413000 CSDRV008 EQU CSDSCFL2 02414000 CSDRV007 EQU CSDSCFL2 02415000 CSDRV006 EQU CSDSCFL1 02416000 CSDRV005 EQU CSDSCFL1 02417000 CSDRV004 EQU CSDSCFL1 02418000 CSDRV003 EQU CSDSCFL1 02419000 CSDRV002 EQU CSDSCFL1 02420000 CSDRV001 EQU CSDSCFL1 02421000 CSDSYSND EQU CSDSCFL1 02422000 CSDRV042 EQU CSDSCFL1 02423000 CSDCPUOL EQU CSD+10 02424000 CSDSAFF EQU CSDCPUAL 02425000 CSDCHAD EQU CSD+6 02426000 CSDCPUJS EQU CSD+4 02427000 CSDCSD EQU CSD 02428000 @NM00027 EQU FRRSFLGS+1 02429000 @NM00026 EQU FRRSFLG1 02430000 FRRSNEST EQU FRRSFLG1 02431000 FRRSRCUR EQU FRRSFLG1 02432000 FRRSENTS EQU FRRS+84 02433000 FRRSRTMW EQU FRRS+16 02434000 @NM00025 EQU TFRRURCD+12 02435000 @NM00024 EQU TFRRURCD+4 02436000 @NM00023 EQU TFRRURCD 02437000 @NM00022 EQU TFRRFLG2 02438000 TFRREXEF EQU TFRRFLG2 02439000 TFRRCLKC EQU TFRRFLG2 02440000 TFRRCPUT EQU TFRRFLG2 02441000 TFRRSYNC EQU TFRRFLG2 02442000 @NM00021 EQU TFRRFLG1 02443000 @NM00020 EQU TFRRFLGS 02444000 TFRRRTQB EQU TFRRFLGS 02445000 TFRRDUMG EQU TFRRFLGS 02446000 TFRRTPCB EQU TFRRFLGS 02447000 TFRRRTQV EQU TFRRFLGS 02448000 TFRRRCDC EQU TFRRFLGS 02449000 TFRRRYES EQU TFRRFLGS 02450000 TFRRRCUR EQU TFRRFLGS 02451000 @NM00019 EQU TFRRLOCK 02452000 TFRRSALL EQU TFRRLOCK 02453000 TFRRLOCL EQU TFRRLOCK 02454000 TFRRCPUH EQU TFRRFOOT+2 02455000 TFRRCLXR EQU TFRRFOOT+2 02456000 TFRRRQCK EQU TFRRFOOT+2 02457000 TFRRAESR EQU TFRRFOOT+2 02458000 TFRRSETC EQU TFRRFOOT+2 02459000 TFRRTQED EQU TFRRFOOT+2 02460000 TFRRTQEE EQU TFRRFOOT+2 02461000 TFRRSLIH EQU TFRRFOOT+2 02462000 @NM00018 EQU TFRRFOOT+1 02463000 TFRRSETL EQU TFRRFOOT+1 02464000 TFRRHWRC EQU TFRRFOOT+1 02465000 TFRRVARY EQU TFRRFOOT+1 02466000 @NM00017 EQU TFRRFOOT 02467000 TFRRTS EQU TFRRFOOT 02468000 TFRRTODC EQU TFRRFOOT 02469000 TFRRIDDX EQU TFRRID 02470000 @NM00016 EQU TCWALFLG 02471000 TCLCC EQU TCWALFLG 02472000 @NM00015 EQU TCWALFLG 02473000 @NM00014 EQU TCENTRY+14 02474000 TCWAIADD EQU TCENTRY+12 02475000 TCWACLKR EQU TCWACLKE+4 02476000 TCWACLKL EQU TCWACLKE 02477000 TCELDAYS EQU TCWA+108 02478000 @NM00013 EQU TCWACTL+2 02479000 TCSYNCK EQU TCWACTL+2 02480000 @NM00012 EQU TCWACTL 02481000 TCSTOP EQU TCWACTL 02482000 @NM00011 EQU TCWACTL 02483000 TCWATXT EQU TCWARPLY+8 02484000 TCWASET EQU TCWARPLY+4 02485000 @NM00010 EQU TCWARPLY+2 02486000 TCWARLEN EQU TCWARPLY 02487000 TCCPUCNT EQU TCWA+54 02488000 @NM00009 EQU TCWA+53 02489000 TCGTQE EQU TCWAGFLG 02490000 TCGCVTD EQU TCWAGFLG 02491000 TCGLELD EQU TCWAGFLG 02492000 TCGNSET EQU TCWAGFLG 02493000 @NM00008 EQU TCWAGFLG 02494000 TCGZZZ EQU TCWAGFLG 02495000 TCGYYY EQU TCWAGFLG 02496000 TCGXXX EQU TCWAGFLG 02497000 TCWACVP EQU TCWA+48 02498000 TCWAPDP EQU TCWA+44 02499000 TCWAPTP EQU TCWA+40 02500000 TCWAPLD EQU TCWA+36 02501000 TCWAPLT EQU TCWA+32 02502000 TCWAPGD EQU TCWA+28 02503000 TCWAPGT EQU TCWA+24 02504000 TCWAA2R EQU TCWAA2+4 02505000 TCWAA2L EQU TCWAA2 02506000 TCWAA1R EQU TCWAA1+4 02507000 TCWAA1L EQU TCWAA1 02508000 TCWACVR EQU TCWACVAL+4 02509000 TCWACVL EQU TCWACVAL 02510000 @NM00051 EQU PSA+3668 02511000 PSASTAK EQU PSA+3072 02512000 @NM00050 EQU PSA+1048 02513000 PSAUSEND EQU PSA+1048 02514000 PSARV062 EQU PSA+1044 02515000 PSACDAL EQU PSA+1040 02516000 PSAWTCOD EQU PSA+1036 02517000 PSAATCVT EQU PSA+1032 02518000 PSAPCPSW EQU PSA+1024 02519000 PSAPIR2 EQU PSA+1020 02520000 PSARV059 EQU PSA+1018 02521000 PSASVC13 EQU PSA+1016 02522000 PSASFACC EQU PSA+1008 02523000 PSASTOP EQU PSA+992 02524000 PSASTART EQU PSA+976 02525000 PSARSPSW EQU PSA+968 02526000 PSASRPSW EQU PSA+960 02527000 PSARV045 EQU PSA+892 02528000 PSARV044 EQU PSA+888 02529000 PSARV043 EQU PSA+884 02530000 PSARV042 EQU PSA+880 02531000 PSARV041 EQU PSA+876 02532000 PSARV040 EQU PSA+872 02533000 PSARV025 EQU PSA+868 02534000 PSADSSED EQU PSA+868 02535000 PSADSSPR EQU PSA+864 02536000 PSADSSFW EQU PSA+860 02537000 PSADSS14 EQU PSA+856 02538000 PSADSSPP EQU PSA+848 02539000 PSADSSRP EQU PSA+840 02540000 PSADSS05 EQU PSADSSF4 02541000 PSADSS10 EQU PSADSSF4 02542000 PSADSSVE EQU PSADSSF4 02543000 PSADSSDE EQU PSADSSF4 02544000 PSADSSC0 EQU PSADSSF4 02545000 PSADSSIE EQU PSADSSF4 02546000 PSADSS12 EQU PSADSSF4 02547000 PSADSSRC EQU PSADSSF4 02548000 PSARV057 EQU PSADSSF3 02549000 PSARV056 EQU PSADSSF3 02550000 PSARV055 EQU PSADSSF3 02551000 PSADSSMC EQU PSADSSF3 02552000 PSADSSRW EQU PSADSSF3 02553000 PSADSSNM EQU PSADSSF3 02554000 PSADSSES EQU PSADSSF3 02555000 PSADSSGP EQU PSADSSF3 02556000 PSADSSF2 EQU PSADSSFL+1 02557000 PSADSSPI EQU PSADSSF1 02558000 PSADSSOI EQU PSADSSF1 02559000 PSADSSSP EQU PSADSSF1 02560000 PSADSSTP EQU PSADSSF1 02561000 PSADSSDW EQU PSADSSF1 02562000 PSADSSDD EQU PSADSSF1 02563000 PSADSSDM EQU PSADSSF1 02564000 PSADSSMV EQU PSADSSF1 02565000 PSADSSTS EQU PSA+816 02566000 PSADSSWK EQU PSA+812 02567000 PSADSSR3 EQU PSA+808 02568000 PSADSSR2 EQU PSA+804 02569000 PSADSSRS EQU PSA+800 02570000 PSASTOR EQU PSA+796 02571000 PSACPUSA EQU PSA+794 02572000 PSAVSTAP EQU PSA+792 02573000 PSAWKVAP EQU PSA+788 02574000 PSAWKRAP EQU PSA+784 02575000 PSAMCHIC EQU PSA+783 02576000 PSARV061 EQU PSA+782 02577000 PSASYMSK EQU PSA+781 02578000 PSAMCHFL EQU PSA+780 02579000 PSACR0 EQU PSA+776 02580000 PSAPSWSV EQU PSA+768 02581000 PSACLHS EQU PSAHLHI 02582000 PSALKR15 EQU PSALKSA+60 02583000 PSALKR14 EQU PSALKSA+56 02584000 PSALKR13 EQU PSALKSA+52 02585000 PSALKR12 EQU PSALKSA+48 02586000 PSALKR11 EQU PSALKSA+44 02587000 PSALKR10 EQU PSALKSA+40 02588000 PSALKR9 EQU PSALKSA+36 02589000 PSALKR8 EQU PSALKSA+32 02590000 PSALKR7 EQU PSALKSA+28 02591000 PSALKR6 EQU PSALKSA+24 02592000 PSALKR5 EQU PSALKSA+20 02593000 PSALKR4 EQU PSALKSA+16 02594000 PSALKR3 EQU PSALKSA+12 02595000 PSALKR2 EQU PSALKSA+8 02596000 PSALKR1 EQU PSALKSA+4 02597000 PSALKR0 EQU PSALKSA 02598000 PSARV023 EQU PSACLHT+52 02599000 PSALOCAL EQU PSACLHT+48 02600000 PSACMSL EQU PSACLHT+44 02601000 PSAOPTL EQU PSACLHT+40 02602000 PSATPACL EQU PSACLHT+36 02603000 PSATPDNL EQU PSACLHT+32 02604000 PSATPNCL EQU PSACLHT+28 02605000 PSAIOSLL EQU PSACLHT+24 02606000 PSAIOSUL EQU PSACLHT+20 02607000 PSAIOSCL EQU PSACLHT+16 02608000 PSAIOSSL EQU PSACLHT+12 02609000 PSASALCL EQU PSACLHT+8 02610000 PSAASML EQU PSACLHT+4 02611000 PSADISPL EQU PSACLHT 02612000 PSASRSA EQU PSA+636 02613000 PSARV050 EQU PSA+634 02614000 PSADSSGO EQU PSA+633 02615000 PSARECUR EQU PSA+632 02616000 PSAHLHIS EQU PSA+628 02617000 PSAIPCSA EQU PSA+624 02618000 @NM00049 EQU PSA+621 02619000 PSAIPCDM EQU PSA+620 02620000 PSAIPCD EQU PSA+616 02621000 @NM00048 EQU PSA+613 02622000 PSAIPCRM EQU PSA+612 02623000 PSAIPCR EQU PSA+608 02624000 PSAMCHEX EQU PSA+600 02625000 PSAMPSW EQU PSA+592 02626000 PSAEXPS2 EQU PSA+584 02627000 PSAEXPS1 EQU PSA+576 02628000 PSAPIREG EQU PSA+572 02629000 PSARSREG EQU PSA+568 02630000 PSAGPREG EQU PSA+556 02631000 PSARV022 EQU PSASUP4 02632000 PSARV021 EQU PSASUP4 02633000 PSARV020 EQU PSASUP4 02634000 PSARV019 EQU PSASUP4 02635000 PSARV018 EQU PSASUP4 02636000 PSARV017 EQU PSASUP4 02637000 PSARV016 EQU PSASUP4 02638000 PSARV015 EQU PSASUP4 02639000 PSARV014 EQU PSASUP3 02640000 PSARV013 EQU PSASUP3 02641000 PSARV012 EQU PSASUP3 02642000 PSAESTA EQU PSASUP3 02643000 PSASPR EQU PSASUP3 02644000 PSAPSREG EQU PSASUP3 02645000 PSAPI2 EQU PSASUP3 02646000 PSAIOSUP EQU PSASUP3 02647000 PSALCR EQU PSASUP2 02648000 PSARTM EQU PSASUP2 02649000 PSAACR EQU PSASUP2 02650000 PSAIPCE2 EQU PSASUP2 02651000 PSAIPCES EQU PSASUP2 02652000 PSAIPCEC EQU PSASUP2 02653000 PSAGTF EQU PSASUP2 02654000 PSAIPCRI EQU PSASUP2 02655000 PSATYPE6 EQU PSASUP1 02656000 PSATCTL EQU PSASUP1 02657000 PSADISP EQU PSASUP1 02658000 PSALOCK EQU PSASUP1 02659000 PSAPI EQU PSASUP1 02660000 PSAEXT EQU PSASUP1 02661000 PSASVC EQU PSASUP1 02662000 PSAIO EQU PSASUP1 02663000 PSAAOLD EQU PSA+548 02664000 PSAANEW EQU PSA+544 02665000 PSATOLD EQU PSA+540 02666000 PSATNEW EQU PSA+536 02667000 PSALCCAR EQU PSA+532 02668000 PSALCCAV EQU PSA+528 02669000 PSAPCCAR EQU PSA+524 02670000 PSAPCCAV EQU PSA+520 02671000 PSACPULA EQU PSA+518 02672000 PSACPUPA EQU PSA+516 02673000 PSAPSA EQU PSA+512 02674000 FLCHDEND EQU PSA+512 02675000 FLCCRSAV EQU FLCMCLA+280 02676000 FLCGRSAV EQU FLCMCLA+216 02677000 FLCFPSAV EQU FLCMCLA+184 02678000 FLCFLA EQU FLCMCLA+88 02679000 FLCRGNCD EQU FLCMCLA+84 02680000 FLCFSAA EQU FLCFSA+1 02681000 @NM00047 EQU FLCFSA 02682000 @NM00046 EQU FLCMCLA+72 02683000 FLCMCIC EQU FLCMCLA+64 02684000 @NM00045 EQU FLCMCLA+20 02685000 FLCIOAA EQU FLCIOA+1 02686000 @NM00044 EQU FLCIOA 02687000 @NM00043 EQU FLCMCLA+15 02688000 @NM00042 EQU FLCMCLA+14 02689000 @NM00041 EQU FLCMCLA+12 02690000 FLCLCL EQU FLCMCLA+8 02691000 FLCIOELA EQU FLCIOEL+1 02692000 @NM00040 EQU FLCIOEL 02693000 FLCCHNID EQU FLCMCLA 02694000 @NM00039 EQU PSA+160 02695000 FLCMTRCD EQU PSA+157 02696000 @NM00038 EQU PSA+156 02697000 FLCPERA EQU FLCPER+1 02698000 @NM00037 EQU FLCPER 02699000 @NM00036 EQU PSA+151 02700000 FLCPERCD EQU PSA+150 02701000 FLCMCNUM EQU PSA+149 02702000 @NM00035 EQU PSA+148 02703000 FLCTEAA EQU FLCTEA+1 02704000 @NM00034 EQU FLCTEA 02705000 PSAPIPC EQU PSAPICOD 02706000 PSAPIMC EQU PSAPICOD 02707000 PSAPIPER EQU PSAPICOD 02708000 PSARV049 EQU FLCPICOD 02709000 FLCPILCB EQU FLCPIILC 02710000 @NM00033 EQU FLCPIILC 02711000 @NM00032 EQU PSAEPPSW 02712000 FLCSVCN EQU PSAESPSW+2 02713000 FLCSILCB EQU FLCSVILC 02714000 @NM00031 EQU FLCSVILC 02715000 @NM00030 EQU PSAESPSW 02716000 FLCEICOD EQU PSAEEPSW+2 02717000 PSASPAD EQU PSAEEPSW 02718000 @NM00029 EQU PSA+128 02719000 FLCINPSW EQU PSA+120 02720000 FLCMNPSW EQU PSA+112 02721000 FLCPNPSW EQU PSA+104 02722000 FLCSNPSW EQU PSA+96 02723000 FLCENPSW EQU PSA+88 02724000 FLCTRACE EQU PSA+84 02725000 FLCTIMER EQU PSA+80 02726000 FLCCVT2 EQU PSA+76 02727000 FLCCAW EQU PSA+72 02728000 FLCCSW EQU PSA+64 02729000 FLCIOPSW EQU PSA+56 02730000 FLCMOPSW EQU PSA+48 02731000 FLCPOPSW EQU PSA+40 02732000 FLCSOPSW EQU PSA+32 02733000 FLCEOPSW EQU PSA+24 02734000 @NM00028 EQU FLCICCW2+4 02735000 FLCCVT EQU FLCICCW2 02736000 FLCICCW1 EQU FLCROPSW 02737000 FLCIPPSW EQU FLCRNPSW 02738000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02739000 @PB00003 EQU @EL00001 02740000 @PB00002 EQU @PB00003 02741000 @ENDDATA EQU * 02742000 END IEE6503D,(C'PLS1443',0701,76229) 02743000