TITLE ' /* IGX00014 SVC MFDATA MAINLINE *00001000 ' 00002000 IGX00014 CSECT , 0001 00003000 @MAINENT BALR @15,0 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IGX00014 74.340' 0001 00008000 DROP @15 00009000 @PROLOG BALR @10,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@10 0001 00012000 L @00,@SIZDATD 0001 00013000 GETMAIN R,LV=(0) 00014000 LR @09,@01 0001 00015000 USING @DATD,@09 0001 00016000 ST @13,@SA00001+4 0001 00017000 LR @13,@09 0001 00018000 RBPRFXLN EQU 64 00019000 RBPRFLNA EQU 32 00020000 PRBLEN EQU 136 00021000 SIRBLEN EQU 200 00022000 TIRBLEN EQU 136 00023000 IRBLEN EQU 128 00024000 SVRBLEN EQU 200 00025000 * 0047 00026000 */* FUNCTIONAL CODE */ 00027000 * 0048 00028000 * /*****************************************************************/ 00029000 * /* */ 00030000 * /* SAVE GPR INPUT PARAMETERS */ 00031000 * /* */ 00032000 * /*****************************************************************/ 00033000 * 0048 00034000 * CVTPTR=GPR03P; 0048 00035000 ST GPR03P,CVTPTR 0048 00036000 * TCBPTR=GPR04P; 0049 00037000 ST GPR04P,TCBPTR 0049 00038000 * RBSECPTR=GPR05P; 0050 00039000 LR RBSECPTR,GPR05P 0050 00040000 * RFY 0051 00041000 * (GPR03P, 0051 00042000 * GPR04P, 0051 00043000 * GPR05P) UNRSTD; 0051 00044000 * 0051 00045000 * /*****************************************************************/ 00046000 * /* */ 00047000 * /* MACDATE Y-2 73018 */ 00048000 * /* */ 00049000 * /*****************************************************************/ 00050000 * 0052 00051000 * RESPECIFY 0052 00052000 * (GPR00P, 0052 00053000 * GPR01P, 0052 00054000 * GPR14P, 0052 00055000 * GPR15P) RESTRICTED; 0052 00056000 * DARETURN=GPR14P; /* SAVE RETURN ADDRESS */ 00057000 * 0053 00058000 ST GPR14P,DARETURN 0053 00059000 * /*****************************************************************/ 00060000 * /* */ 00061000 * /* MACDATE Y-2 73018 */ 00062000 * /* */ 00063000 * /*****************************************************************/ 00064000 * 0054 00065000 * RESPECIFY 0054 00066000 * (GPR00P, 0054 00067000 * GPR01P, 0054 00068000 * GPR14P, 0054 00069000 * GPR15P) UNRESTRICTED; 0054 00070000 * 0054 00071000 * /*****************************************************************/ 00072000 * /* */ 00073000 * /* AUTOMATIC STORAGE INITIALIZATION */ 00074000 * /* */ 00075000 * /*****************************************************************/ 00076000 * 0055 00077000 * DAENQAPL=DAENQSPL; /* ENQ MACRO LIST */ 00078000 MVC DAENQAPL(16),DAENQSPL 0055 00079000 * SMF70PTR=ADDR(DASMFHDR); /* SMF COMMON HEADERS POINTER */ 00080000 * 0056 00081000 LA SMF70PTR,DASMFHDR 0056 00082000 * /*****************************************************************/ 00083000 * /* */ 00084000 * /* IF MFSTART MAINLINE (IGX00013) HAS NOT INITIALIZED MF/1 OR IF */ 00085000 * /* THE CALLING TASK DOES NOT HOLD THE MF/1 ENQ, DO NOT PROVIDE */ 00086000 * /* ANY MEASUREMENTS. */ 00087000 * /* */ 00088000 * /*****************************************************************/ 00089000 * 0057 00090000 * IF CVTMFCTL=0 THEN /* IF MF/1 NOT INITIALIZED, DO */ 00091000 L @11,CVTPTR 0057 00092000 L @11,CVTMFCTL(,@11) 0057 00093000 LTR @11,@11 0057 00094000 BNZ @RF00057 0057 00095000 * DO; 0058 00096000 * 0058 00097000 * /*************************************************************/ 00098000 * /* */ 00099000 * /* MACDATE Y-2 73018 */ 00100000 * /* */ 00101000 * /*************************************************************/ 00102000 * 0059 00103000 * RESPECIFY 0059 00104000 * (GPR00P, 0059 00105000 * GPR01P, 0059 00106000 * GPR14P, 0059 00107000 * GPR15P) RESTRICTED; 0059 00108000 * GPR14P=DARETURN; /* RESTORE RETURN ADDRESS */ 00109000 * 0060 00110000 L @12,DARETURN 0060 00111000 LR GPR14P,@12 0060 00112000 * /*************************************************************/ 00113000 * /* */ 00114000 * /* MACDATE Y-2 73018 */ 00115000 * /* */ 00116000 * /*************************************************************/ 00117000 * 0061 00118000 * RESPECIFY 0061 00119000 * (GPR00P, 0061 00120000 * GPR01P, 0061 00121000 * GPR14P, 0061 00122000 * GPR15P) UNRESTRICTED; 0061 00123000 * RETURN CODE(CNOTINIT); /* RETURN WITH CODE */ 00124000 L @13,4(,@13) 0062 00125000 L @00,@SIZDATD 0062 00126000 LR @01,@09 0062 00127000 FREEMAIN R,LV=(0),A=(1) 00128000 LA @15,4 0062 00129000 BR @14 0062 00130000 * END; 0063 00131000 * 0063 00132000 * /*****************************************************************/ 00133000 * /* */ 00134000 * /* MACDATE Y-2 73018 */ 00135000 * /* */ 00136000 * /*****************************************************************/ 00137000 * 0064 00138000 * RESPECIFY 0064 00139000 * (GPR00P, 0064 00140000 * GPR01P, 0064 00141000 * GPR14P, 0064 00142000 * GPR15P) RESTRICTED; 0064 00143000 @RF00057 DS 0H 0065 00144000 * GEN REFS(DAENQAPL); 0065 00145000 ENQ MF=(E,DAENQAPL) TEST MF/1 ENQ NAME SYSZRBMF 00146000 * .ACTIVE 00147000 * IF GPR15P=0| /* IF RESOURCE IS AVAILABLE OR */ 00148000 * GPR15P->DAENQRET^=8 THEN /* RESOURCE IS NOT HELD */ 00149000 LTR GPR15P,GPR15P 0066 00150000 BZ @RT00066 0066 00151000 CLI DAENQRET(GPR15P),8 0066 00152000 BE @RF00066 0066 00153000 @RT00066 DS 0H 0067 00154000 * DO; 0067 00155000 * GPR14P=DARETURN; /* RESTORE RETURN ADDRESS */ 00156000 * 0068 00157000 L GPR14P,DARETURN 0068 00158000 * /*************************************************************/ 00159000 * /* */ 00160000 * /* MACDATE Y-2 73018 */ 00161000 * /* */ 00162000 * /*************************************************************/ 00163000 * 0069 00164000 * RESPECIFY 0069 00165000 * (GPR00P, 0069 00166000 * GPR01P, 0069 00167000 * GPR14P, 0069 00168000 * GPR15P) UNRESTRICTED; 0069 00169000 * RETURN CODE(CNOTINIT); /* RETURN WITH CODE */ 00170000 L @13,4(,@13) 0070 00171000 L @00,@SIZDATD 0070 00172000 LR @01,@09 0070 00173000 FREEMAIN R,LV=(0),A=(1) 00174000 LA @15,4 0070 00175000 BR @14 0070 00176000 * END; 0071 00177000 * 0071 00178000 * /*****************************************************************/ 00179000 * /* */ 00180000 * /* GET MAIN STORAGE FOR MVT (MEASUREMENT VECTOR TABLE) FOR */ 00181000 * /* INTERVAL DATA. (LOCAL, TCB KEY). MACDATE Y-2 73018 */ 00182000 * /* */ 00183000 * /*****************************************************************/ 00184000 * 0072 00185000 * RESPECIFY 0072 00186000 * (GPR00P, 0072 00187000 * GPR01P, 0072 00188000 * GPR14P, 0072 00189000 * GPR15P) RESTRICTED; 0072 00190000 @RF00066 DS 0H 0073 00191000 * GPR00P=STSCMVSG; /* SUBPOOL AND LENGTH OF DTMVT */ 00192000 L @11,CVTPTR 0073 00193000 L @11,CVTMFCTL(,@11) 0073 00194000 L @11,STGSSCT(,@11) 0073 00195000 L GPR00P,STSCMVSG(,@11) 0073 00196000 * GEN(GETMAIN R,LV=(0)); 0074 00197000 GETMAIN R,LV=(0) 00198000 * GPR01P->DASPLEN=STSCMVSG; /* SET SP&LENGTH FOR FREEMAIN ING*/ 00199000 L @11,CVTPTR 0075 00200000 L @11,CVTMFCTL(,@11) 0075 00201000 L @11,STGSSCT(,@11) 0075 00202000 L @08,STSCMVSG(,@11) 0075 00203000 ST @08,DASPLEN(,GPR01P) 0075 00204000 * STSCMVAD=GPR01P+CSPLENPR; /* SAVE DTMVT ADDRESS */ 00205000 * 0076 00206000 LA @08,4 0076 00207000 ALR @08,GPR01P 0076 00208000 ST @08,STSCMVAD(,@11) 0076 00209000 * /*****************************************************************/ 00210000 * /* */ 00211000 * /* MACDATE Y-2 73018 */ 00212000 * /* */ 00213000 * /*****************************************************************/ 00214000 * 0077 00215000 * RESPECIFY 0077 00216000 * (GPR00P, 0077 00217000 * GPR01P, 0077 00218000 * GPR14P, 0077 00219000 * GPR15P) UNRESTRICTED; 0077 00220000 * 0077 00221000 * /*****************************************************************/ 00222000 * /* */ 00223000 * /* INITIALIZE DTMVT */ 00224000 * /* */ 00225000 * /*****************************************************************/ 00226000 * 0078 00227000 * DTMVNUM=STMVNUM; /* NUMBER OF MEASUREMENT OPTIONS */ 00228000 L @11,STSCMVT(,@11) 0078 00229000 L @11,STMVNUM(,@11) 0078 00230000 ST @11,DTMVNUM(,@08) 0078 00231000 * DO I=1 TO DTMVNUM; /* ZERO MEASUREMENT DATA POINTERS*/ 00232000 LA I,1 0079 00233000 B @DE00079 0079 00234000 @DL00079 DS 0H 0080 00235000 * DTMVADD(I)=CNULLADR; /* SET DATA ADDR TO NULL VALUE */ 00236000 LR @11,I 0080 00237000 SLA @11,2 0080 00238000 L @08,CVTPTR 0080 00239000 L @08,CVTMFCTL(,@08) 0080 00240000 L @08,STGSSCT(,@08) 0080 00241000 L @08,STSCMVAD(,@08) 0080 00242000 SLR @03,@03 0080 00243000 ST @03,DTMVADD-4(@11,@08) 0080 00244000 * END; 0081 00245000 * 0081 00246000 AL I,@CF00063 0081 00247000 @DE00079 L @11,CVTPTR 0081 00248000 L @11,CVTMFCTL(,@11) 0081 00249000 L @11,STGSSCT(,@11) 0081 00250000 L @11,STSCMVAD(,@11) 0081 00251000 C I,DTMVNUM(,@11) 0081 00252000 BNH @DL00079 0081 00253000 * /*****************************************************************/ 00254000 * /* */ 00255000 * /* CREATE SMF RECORD HEADER & MF/1 COMMON CONTROL DATA USED BY */ 00256000 * /* ALL INTERVAL MG (MEASUREMENT GATHERING) ROUTINES. */ 00257000 * /* */ 00258000 * /*****************************************************************/ 00259000 * 0082 00260000 * SMFRCD70=SMFRCD70&&SMFRCD70; /* ZERO HEADER */ 00261000 XC SMFRCD70(48,SMF70PTR),SMFRCD70(SMF70PTR) 0082 00262000 * SMF70FLG='02'X; /* IDENTIFY OS/VS 2, AS BY SMFWTM*/ 00263000 MVI SMF70FLG(SMF70PTR),X'02' 0083 00264000 * SMF70SID=SMCASID; /* SYSTEM ID, AS BY SMFWTM MACRO.*/ 00265000 L @11,CVTPTR 0084 00266000 L @08,CVTSMCA(,@11) 0084 00267000 MVC SMF70SID(4,SMF70PTR),SMCASID(@08) 0084 00268000 * SMF70SIZ=LENGTH(SMFRCD70)- /* COMMON CONTROL DATA SIZE IS 0085 00269000 * THE SMF HEADER + CONTROL AREA */ 00270000 * (ADDR(SMF70SIZ)-ADDR(SMFRCD70));/* MINUS SIZE OF SMF HDR */ 00271000 LA @08,30 0085 00272000 STH @08,SMF70SIZ(,SMF70PTR) 0085 00273000 * SMF70MFV=STSCMF1V; /* MF/1 VERSION NUMBER */ 00274000 L @08,CVTMFCTL(,@11) 0086 00275000 L @08,STGSSCT(,@08) 0086 00276000 MVC SMF70MFV(2,SMF70PTR),STSCMF1V(@08) 0086 00277000 * SMF70RLS=CVTRELNO; /* OPER SYST RELEASE&LEVEL (NNLL)*/ 00278000 AL @11,@CF01623 0087 00279000 MVC SMF70RLS(4,SMF70PTR),CVTRELNO-252(@11) 0087 00280000 * CVD(STCOCYCV,SMF70CYC); /* CYCLE LENGTH IS FROM STCOA. */ 00281000 L @11,STSCCOA(,@08) 0088 00282000 LH @11,STCOCYCV(,@11) 0088 00283000 CVD @11,@TS00001 0088 00284000 MVC SMF70CYC(2,SMF70PTR),@TS00001+6 0088 00285000 * SMF70CYC='000F'X|SMF70CYC; /* PACKED TIME , SIGN X'F'. */ 00286000 * 0089 00287000 OC SMF70CYC(2,SMF70PTR),@CB01613 0089 00288000 * /*****************************************************************/ 00289000 * /* */ 00290000 * /* CALL ALL INTERVAL MG PROLOGUES. FIRST, SET BIT PARAMETERS. */ 00291000 * /* */ 00292000 * /*****************************************************************/ 00293000 * 0090 00294000 * IF STSCINIT='1'B THEN /* IF INITIAL CALL TO MG ROUTINE */ 00295000 TM STSCINIT(@08),B'00000010' 0090 00296000 BNO @RF00090 0090 00297000 * DAINIT='1'B; 0091 00298000 OI DAINIT,B'10000000' 0091 00299000 * ELSE 0092 00300000 * DAINIT='0'B; 0092 00301000 B @RC00090 0092 00302000 @RF00090 NI DAINIT,B'01111111' 0092 00303000 * IF STCOTCEV='1'B THEN /* IF SMF RECORD OPTION IS ON */ 00304000 @RC00090 L @12,CVTPTR 0093 00305000 L @12,CVTMFCTL(,@12) 0093 00306000 L @12,STGSSCT(,@12) 0093 00307000 L @12,STSCCOA(,@12) 0093 00308000 TM STCOTCEV(@12),B'00000001' 0093 00309000 BNO @RF00093 0093 00310000 * DATCEV='1'B; 0094 00311000 OI DATCEV,B'10000000' 0094 00312000 * ELSE 0095 00313000 * DATCEV='0'B; 0095 00314000 B @RC00093 0095 00315000 @RF00093 NI DATCEV,B'01111111' 0095 00316000 * DO I=1 TO STMVNUM; 0096 00317000 @RC00093 LA I,1 0096 00318000 B @DE00096 0096 00319000 @DL00096 DS 0H 0097 00320000 * IF STMVADD(I)->STSMOPT^=CNULLOPT THEN/* IF MEAS. IS ACTIVE */ 00321000 LR @12,I 0097 00322000 SLA @12,2 0097 00323000 L @11,CVTPTR 0097 00324000 L @11,CVTMFCTL(,@11) 0097 00325000 L @11,STGSSCT(,@11) 0097 00326000 L @08,STSCMVT(,@11) 0097 00327000 L @03,STMVADD-4(@12,@08) 0097 00328000 L @15,STSMOPT(,@03) 0097 00329000 LTR @15,@15 0097 00330000 BZ @RF00097 0097 00331000 * CALL STMVADD(I)->STSMINTP->IRBMFDXP(STMVADD(I)/* SMA PTR FOR 00332000 * THIS OPTION */ 00333000 * ,DTMVADD(I) /* (OUTPUT)PTR TO SMF RECORD */ 00334000 * ,DAINIT /* INITIAL CALL FLAG */ 00335000 * ,DATCEV /* TRACE OPTION VALUE FLAG */ 00336000 * ,DASMFHDR /* SMF HEADERS IMAGE */ 00337000 * ,TCBPTR /* TCB ADDRESS OF SVC ISSUER */ 00338000 * ,STSCTIME /* INTERVAL START TIME, 0HHMMSSF.*/ 00339000 * ,STSCDATE /* INTERVAL START DATE 00YYDDDF. */ 00340000 * ,DAINTLEN /* INTERVAL LENGTH, MMSSTTTF. */ 00341000 * ); 0098 00342000 LA @08,STMVADD-4(@12,@08) 0098 00343000 ST @08,@AL00001 0098 00344000 L @08,STSCMVAD(,@11) 0098 00345000 LA @12,DTMVADD-4(@12,@08) 0098 00346000 ST @12,@AL00001+4 0098 00347000 LA @12,DAINIT 0098 00348000 ST @12,@AL00001+8 0098 00349000 LA @12,DATCEV 0098 00350000 ST @12,@AL00001+12 0098 00351000 LA @12,DASMFHDR 0098 00352000 ST @12,@AL00001+16 0098 00353000 LA @12,TCBPTR 0098 00354000 ST @12,@AL00001+20 0098 00355000 LA @12,STSCTIME(,@11) 0098 00356000 ST @12,@AL00001+24 0098 00357000 LA @12,STSCDATE(,@11) 0098 00358000 ST @12,@AL00001+28 0098 00359000 LA @12,DAINTLEN 0098 00360000 ST @12,@AL00001+32 0098 00361000 L @15,STSMINTP(,@03) 0098 00362000 LA @01,@AL00001 0098 00363000 BALR @14,@15 0098 00364000 * END; 0099 00365000 * 0099 00366000 @RF00097 AL I,@CF00063 0099 00367000 @DE00096 L @12,CVTPTR 0099 00368000 L @12,CVTMFCTL(,@12) 0099 00369000 L @12,STGSSCT(,@12) 0099 00370000 L @12,STSCMVT(,@12) 0099 00371000 C I,STMVNUM(,@12) 0099 00372000 BNH @DL00096 0099 00373000 * /*****************************************************************/ 00374000 * /* */ 00375000 * /* FIX CODE AND DATA REFERENCED BY DISABLED CODE BELOW AND THE */ 00376000 * /* DISABLED INTERVAL MG MOVE DATA CODE: CODE BELOW, LOCAL DATA, */ 00377000 * /* AUTO DATA (INCLUDING SAVE AREA), STSMA TABLES. OUTPUT AREA */ 00378000 * /* DTMVADD(I) IS NOT FIX'ED, IT MUST NOT BE OUTPUT BY INTERVAL MG*/ 00379000 * /* MOVE DATA CODE. FIX CODE AND LOCAL DATA */ 00380000 * /* */ 00381000 * /*****************************************************************/ 00382000 * 0100 00383000 * DAPGFECB=CLEARECB; /* CLEAR ECB FOR USE */ 00384000 * 0100 00385000 SLR @12,@12 0100 00386000 ST @12,DAPGFECB 0100 00387000 * /*****************************************************************/ 00388000 * /* */ 00389000 * /* MACDATE Y-2 73018 */ 00390000 * /* */ 00391000 * /*****************************************************************/ 00392000 * 0101 00393000 * RESPECIFY 0101 00394000 * (GPR00P, 0101 00395000 * GPR01P, 0101 00396000 * GPR14P, 0101 00397000 * GPR15P) RESTRICTED; 0101 00398000 * GEN SETS(DAPGFECB); 0102 00399000 * 0102 00400000 LA @01,@PSTART START ADDRESS OF CODE 00401000 LA @15,@ENDDATA END ADDRESS+1 00402000 LA @00,DAPGFECB ECB ADDRESS 00403000 PGFIX R,A=(@01),EA=(@15),ECB=(@00),LONG=N 00404000 WAIT ECB=DAPGFECB 00405000 * /*****************************************************************/ 00406000 * /* */ 00407000 * /* FIX AUTOMATIC DATA */ 00408000 * /* */ 00409000 * /*****************************************************************/ 00410000 * 0103 00411000 * DAPGFECB=CLEARECB; /* CLEAR ECB FOR USE */ 00412000 SLR @12,@12 0103 00413000 ST @12,DAPGFECB 0103 00414000 * GEN SETS(DAPGFECB); 0104 00415000 * 0104 00416000 LA @01,@DATD START ADDRESS 00417000 LA @15,@ENDDATD END ADDRESS+1 00418000 LA @00,DAPGFECB ECB ADDRESS 00419000 PGFIX R,A=(@01),EA=(@15),ECB=(@00),LONG=N 00420000 WAIT ECB=DAPGFECB 00421000 * /*****************************************************************/ 00422000 * /* */ 00423000 * /* FIX STSMA (SUPERVISOR MEASUREMENT AREA) FOR ALL OPTIONS, WHICH*/ 00424000 * /* SET THE RE-ENTRY ADDRESS (STSMENTR) DURING MOVE DATA CODE. */ 00425000 * /* STSMA'S ARE ESTABLISHED BY IGX00013 (MFSTART MAINLINE) IN */ 00426000 * /* ASCENDING ORDER. */ 00427000 * /* */ 00428000 * /*****************************************************************/ 00429000 * 0105 00430000 * DAPGFECB=CLEARECB; /* CLEAR ECB FOR USE */ 00431000 SLR @12,@12 0105 00432000 ST @12,DAPGFECB 0105 00433000 * GPR01P=STMVADD(1); /* FIRST STSMA OF CONTIGUOUS AREA*/ 00434000 L @12,CVTPTR 0106 00435000 L @12,CVTMFCTL(,@12) 0106 00436000 L @12,STGSSCT(,@12) 0106 00437000 L @12,STSCMVT(,@12) 0106 00438000 L GPR01P,STMVADD(,@12) 0106 00439000 * GPR15P=STMVADD(STMVNUM)+LENGTH(STSMA);/* END OF STSMA'S */ 00440000 L @11,STMVNUM(,@12) 0107 00441000 SLA @11,2 0107 00442000 LA GPR15P,56 0107 00443000 AL GPR15P,STMVADD-4(@11,@12) 0107 00444000 * GEN SETS(DAPGFECB); 0108 00445000 * 0108 00446000 LA @00,DAPGFECB ECB ADDRESS 00447000 PGFIX R,A=(@01),EA=(@15),ECB=(@00),LONG=N 00448000 WAIT ECB=DAPGFECB 00449000 * /*****************************************************************/ 00450000 * /* */ 00451000 * /* MACDATE Y-2 73018 */ 00452000 * /* */ 00453000 * /*****************************************************************/ 00454000 * 0109 00455000 * RESPECIFY 0109 00456000 * (GPR00P, 0109 00457000 * GPR01P, 0109 00458000 * GPR14P, 0109 00459000 * GPR15P) UNRESTRICTED; 0109 00460000 * 0109 00461000 * /*****************************************************************/ 00462000 * /* */ 00463000 * /* TIME STAMP MEASUREMENTS, USING THE FOLLOWING LOGIC SEQUENCE. */ 00464000 * /* WHILE ENABLED, STORE CLOCK. IF THIS CPU CLOCK IS BAD, USE TIME*/ 00465000 * /* MACRO. IF ALL CPU CLOCKS ARE BAD, MF/1 IS ABENDED. DISABLE, */ 00466000 * /* STORE CLOCK. IF THIS CPU CLOCK IS BAD, USE LAST VALUE OBTAINED*/ 00467000 * /* WHILE ENABLED. */ 00468000 * /* */ 00469000 * /*****************************************************************/ 00470000 * 0110 00471000 * DADATEFG=CLEAR; /* FLAG THAT DATE HAS NOT BEEN 0110 00472000 * FORCED TO BE CORRECT AT LOCAL 00473000 * MIDNIGHT VALUE OF TOD CLOCK. */ 00474000 NI DADATEFG,B'01111111' 0110 00475000 *DA0005: /* GET END OF INTERVAL DATE AND 00476000 * TIME. */ 00477000 * 0111 00478000 * /*****************************************************************/ 00479000 * /* */ 00480000 * /* MACDATE Y-2 73018 */ 00481000 * /* */ 00482000 * /*****************************************************************/ 00483000 * 0111 00484000 * RESPECIFY 0111 00485000 * (GPR00P, 0111 00486000 * GPR01P, 0111 00487000 * GPR14P, 0111 00488000 * GPR15P) RESTRICTED; 0111 00489000 DA0005 DS 0H 0112 00490000 * GEN SETS(DAENGTOC); 0112 00491000 * 0112 00492000 STCK DAENGTOC GET GMT TIME OF CENTURY 00493000 BZ DA0010 BRANCH IF VALUE IS GOOD 00494000 TIME STCK,DAENGTOC STCK BAD, SO USE MACRO TO GET 00495000 * OTHER CPU CLOCK OR TO ABEND 00496000 DA0010 DS 0H STCK WAS GOOD OR TIME MACRO OK 00497000 * /*****************************************************************/ 00498000 * /* */ 00499000 * /* MACDATE Y-2 73018 */ 00500000 * /* */ 00501000 * /*****************************************************************/ 00502000 * 0113 00503000 * RESPECIFY 0113 00504000 * (GPR00P, 0113 00505000 * GPR01P, 0113 00506000 * GPR14P, 0113 00507000 * GPR15P) UNRESTRICTED; 0113 00508000 * 0113 00509000 * /*****************************************************************/ 00510000 * /* */ 00511000 * /* GET LOCAL LOCK BEFORE DISABLED SYSEVENT, SO MF/1 IS NOT */ 00512000 * /* SWAPPED OUT DURING SYSEVENT PROCESSING. */ 00513000 * /* */ 00514000 * /*****************************************************************/ 00515000 * 0114 00516000 * RFY 0114 00517000 * (GPR11P, 0114 00518000 * GPR12P, 0114 00519000 * GPR13P, 0114 00520000 * GPR14P) RSTD; 0114 00521000 * RFY 0115 00522000 * (GPR00P) RSTD; 0115 00523000 * GEN; 0116 00524000 LR @00,@13 SAVE REGISTER 13 IN 0 00525000 DA0050 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, X00526000 RELATED=(LOCAL,IGX00014(DA0190,DA0300)) GET LOCAL LOCK 00527000 LR @13,@00 RESTORE REGISTER 13 00528000 * RFY 0117 00529000 * (GPR00P) UNRSTD; 0117 00530000 * RFY 0118 00531000 * (GPR11P, 0118 00532000 * GPR12P, 0118 00533000 * GPR13P, 0118 00534000 * GPR14P) UNRSTD; 0118 00535000 * 0118 00536000 * /*****************************************************************/ 00537000 * /* */ 00538000 * /* DISABLE PHYSICALLY */ 00539000 * /* */ 00540000 * /*****************************************************************/ 00541000 * 0119 00542000 * RFY 0119 00543000 * (GPR11P, 0119 00544000 * GPR12P, 0119 00545000 * GPR13P, 0119 00546000 * GPR14P) RSTD; 0119 00547000 * RFY 0120 00548000 * (GPR00P) RSTD; 0120 00549000 * GEN; 0121 00550000 LR @00,@13 SAVE REGISTER 13 IN REGISTER 00 00551000 DA0100 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, X00552000 RELATED=(DISP,IGX00014(DA0110)) GET DISP LOCK; 00553000 LR @13,@00 RESTORE REGISTER 13 00554000 * RFY 0122 00555000 * (GPR00P) UNRSTD; 0122 00556000 * RFY 0123 00557000 * (GPR11P, 0123 00558000 * GPR12P, 0123 00559000 * GPR13P, 0123 00560000 * GPR14P) UNRSTD; 0123 00561000 * DACVTTZ=CVTTZ; /* GET TIME DIFFERENCE FROM GMT. */ 00562000 L @12,CVTPTR 0124 00563000 L DACVTTZ,CVTTZ(,@12) 0124 00564000 * DACVTDAT=CVTDATE; /* GET CVT DATE, 0YYDDDF. */ 00565000 MVC DACVTDAT(4),CVTDATE(@12) 0125 00566000 * RFY 0126 00567000 * (GPR00P, 0126 00568000 * GPR11P, 0126 00569000 * GPR12P, 0126 00570000 * GPR13P, 0126 00571000 * GPR14P) RSTD; 0126 00572000 * GEN; 0127 00573000 LR @00,@13 SAVE REGISTER 13 IN REGISTER 00 00574000 DA0110 SETLOCK RELEASE,TYPE=DISP,DISABLED, X00575000 RELATED=(DISP,IGX00014(DA0100)) RELEASE IT, DISABLED. 00576000 LR @13,@00 RESTORE REGISTER 13 00577000 * RFY 0128 00578000 * (GPR00P, 0128 00579000 * GPR11P, 0128 00580000 * GPR12P, 0128 00581000 * GPR13P, 0128 00582000 * GPR14P) UNRSTD; 0128 00583000 * GEN REFS(DA0160) SETS(DADSGTOC); 0129 00584000 STCK DADSGTOC GET GMT TIME OF CENTURY 00585000 BZ DA0160 BRANCH IF VALUE GOOD 00586000 * DADSGTOC=DAENGTOC; /* USE GOOD VALUE OBTAINED WHILE 00587000 * ENABLED. */ 00588000 MVC DADSGTOC(8),DAENGTOC 0130 00589000 *DA0160: 0131 00590000 * ; /* BEST TIME TO USE AS TIMESTAMP */ 00591000 * 0131 00592000 DA0160 DS 0H 0132 00593000 * /*****************************************************************/ 00594000 * /* */ 00595000 * /* CREATE LOCAL TIME OF DAY OF END OF LAST INTERVAL. */ 00596000 * /* */ 00597000 * /*****************************************************************/ 00598000 * 0132 00599000 * DADSLTOC(1:4)=DADSGTOC(1:4)+DACVTTZ;/* LOCAL TIME IS GMT+TIME 0132 00600000 * ZONE CHANGE, FOR LEFT WORD */ 00601000 ICM @12,15,DADSGTOC 0132 00602000 ALR @12,DACVTTZ 0132 00603000 STCM @12,15,DADSLTOC 0132 00604000 * DADSLTOC(5:8)=DADSGTOC(5:8); /* RIGHT WORD IS THE SAME. */ 00605000 * 0133 00606000 MVC DADSLTOC+4(4),DADSGTOC+4 0133 00607000 * /*****************************************************************/ 00608000 * /* */ 00609000 * /* DIVIDE LEFT WORD OF CLOCK BY CONSTANT TO GET DAYS IN CENTURY. */ 00610000 * /* LEFT WORD IS MICROSECONDS/2**20. DAYS= (LEFT-WORD*2**20)/ */ 00611000 * /* (1000000*60*60*24). THIS REDUCES TO (2**7)/((5**8)*(3**3)) */ 00612000 * /* MACDATE Y-2 73018 */ 00613000 * /* */ 00614000 * /*****************************************************************/ 00615000 * 0134 00616000 * RESPECIFY 0134 00617000 * (GPR00P, 0134 00618000 * GPR01P, 0134 00619000 * GPR14P, 0134 00620000 * GPR15P) RESTRICTED; 0134 00621000 * GPR14P=CNULLVL; /* CLEAR FOR DIVISION */ 00622000 SLR GPR14P,GPR14P 0135 00623000 * GEN REFS(DAYSFACT); 0136 00624000 L GPR15P,DADSLTOC GET HIGH ORDER CLOCK WORD 00625000 SLDL GPR14P,8 MAKE ROOM FOR HIGH BYTE OF RIGHT 00626000 * WORD. 00627000 IC GPR15P,DADSLTOC+4 GET BYTE 00628000 SRDL GPR14P,1 8-1 IS MULTIPLYING BY 2**7 00629000 D GPR14P,DAYSFACT DAYS IN GPR15P, REMAINDER IN 00630000 * 2**7 RIGHT-TOD UNITS, IN GPR14P 00631000 * GPR00P=GPR14P; /* SAVE REMAINDER. */ 00632000 * 0137 00633000 LR GPR00P,GPR14P 0137 00634000 * /*****************************************************************/ 00635000 * /* */ 00636000 * /* REMAINDER OF DAY APPENDED TO BITS NOT USED IN DIVISION IS TOD */ 00637000 * /* FORMAT TIMES 2**7 FOR TIME OF DAY. */ 00638000 * /* */ 00639000 * /*****************************************************************/ 00640000 * 0138 00641000 * GEN SETS(DATEMPTM); 0138 00642000 * 0138 00643000 L GPR01P,DADSLTOC+4 GET LOW ORDER WORD OF CLOCK 00644000 SLL GPR01P,7 POSITION FOR ORIGINAL * 2**7 00645000 SRDL GPR00P,7 DIVIDE BY 2**7,= TOD CLOCK UNITS 00646000 STM GPR00P,GPR01P,DATEMPTM SAVE TIME OF DAY OF END OF LAST 00647000 * INTERVAL 00648000 * /*****************************************************************/ 00649000 * /* */ 00650000 * /* MACDATE Y-2 73018 */ 00651000 * /* */ 00652000 * /*****************************************************************/ 00653000 * 0139 00654000 * RESPECIFY 0139 00655000 * (GPR00P, 0139 00656000 * GPR01P, 0139 00657000 * GPR14P, 0139 00658000 * GPR15P) UNRESTRICTED; 0139 00659000 * 0139 00660000 * /*****************************************************************/ 00661000 * /* */ 00662000 * /* CALCULATE INTERVAL DURATION FROM GMT VALUES AND SAVE IT IN */ 00663000 * /* FORMAT MMSSTTTF. */ 00664000 * /* */ 00665000 * /*****************************************************************/ 00666000 * 0140 00667000 * DASTRTME=STSCGMT; /* GMT TIME OF LAST INTERVAL 0140 00668000 * START. */ 00669000 * 0140 00670000 L @12,CVTPTR 0140 00671000 L @12,CVTMFCTL(,@12) 0140 00672000 L @12,STGSSCT(,@12) 0140 00673000 MVC DASTRTME(8),STSCGMT(@12) 0140 00674000 * /*****************************************************************/ 00675000 * /* */ 00676000 * /* CALCULATE INTERVAL DURATION IN THOUSANDTHS OF SECONDS. MACDATE*/ 00677000 * /* Y-2 73018 */ 00678000 * /* */ 00679000 * /*****************************************************************/ 00680000 * 0141 00681000 * RESPECIFY 0141 00682000 * (GPR00P, 0141 00683000 * GPR01P, 0141 00684000 * GPR14P, 0141 00685000 * GPR15P) RESTRICTED; 0141 00686000 * GEN SETS(DABINWRK) REFS(DADSGTOC,DASTRTME); 0142 00687000 * 0142 00688000 DALAB4 LM GPR00P,GPR01P,DADSGTOC GET CURRENT TIME OF CENTURY. 00689000 SL GPR01P,DASTRTME+4 SUBTRACT LOW ORDER WORD OF LAST 00690000 * START TIME FROM LOW ORDER WORD 00691000 * OF CURRENT TIME 00692000 BC 3,DALAB5 BRANCH ON NO BORROW 00693000 SL GPR00P,DAONE CORRECT FOR BORROW FROM HIGH ORDER 00694000 * WORD. 00695000 DALAB5 SL GPR00P,DASTRTME SUBTRACT HIGH ORDER WORD OF START 00696000 * OF LAST INTERVAL FROM HIGH ORDER 00697000 * WORD OF CURRENT TIME. 00698000 SRDL GPR00P,12 SHIFT INTERVAL DURATION TO GET 00699000 * MICROSECONDS. 00700000 D GPR00P,DA1000 GPR00P CONTAINS THE INTERVAL 00701000 * DURATION IN THOUSANDTHS OF 00702000 * SECONDS 00703000 ST GPR01P,DABINWRK STORE FOR PL/S 00704000 * /*****************************************************************/ 00705000 * /* */ 00706000 * /* MACDATE Y-2 73018 */ 00707000 * /* */ 00708000 * /*****************************************************************/ 00709000 * 0143 00710000 * RESPECIFY 0143 00711000 * (GPR00P, 0143 00712000 * GPR01P, 0143 00713000 * GPR14P, 0143 00714000 * GPR15P) UNRESTRICTED; 0143 00715000 * 0143 00716000 * /*****************************************************************/ 00717000 * /* */ 00718000 * /* CONVERT TO FORM MMSSTTTF INTERVAL LENGTH IS TO BE IN FORM */ 00719000 * /* MMSSTTT, MIN SEC THOUSANDTHS */ 00720000 * /* */ 00721000 * /*****************************************************************/ 00722000 * 0144 00723000 * DABINWRK=DABINWRK/CMSECMIN*100000/* MINUTES MM00000 */ 00724000 * +DABINWRK//CMSECMIN; /* + THOUSANDTHS SECONDS 00TTTTT */ 00725000 * 0144 00726000 L @12,DABINWRK 0144 00727000 L @11,@CF01603 0144 00728000 LR @00,@12 0144 00729000 SRDA @00,32 0144 00730000 DR @00,@11 0144 00731000 M @00,@CF01618 0144 00732000 LR @02,@12 0144 00733000 SRDA @02,32 0144 00734000 DR @02,@11 0144 00735000 ALR @01,@02 0144 00736000 ST @01,DABINWRK 0144 00737000 * /*****************************************************************/ 00738000 * /* */ 00739000 * /* CONVERT BINARY MMTTTTT TO PACKED MMSSTTTF FOR SMF RECORD */ 00740000 * /* */ 00741000 * /*****************************************************************/ 00742000 * 0145 00743000 * CVD(DABINWRK,DAINTLEN); 0145 00744000 CVD @01,@TS00001 0145 00745000 MVC DAINTLEN(4),@TS00001+4 0145 00746000 * DAINTLEN(LENGTH(DAINTLEN))=DAINTLEN(LENGTH(DAINTLEN))|'0F'X; 0146 00747000 * 0146 00748000 OI DAINTLEN+3,X'0F' 0146 00749000 * /*****************************************************************/ 00750000 * /* */ 00751000 * /* NOW CONVERT END TIME OF INTERVAL AND PLACE INTO TEMPORARY */ 00752000 * /* STORAGE IN FORM 0HHMMSSF MACDATE Y-2 73018 */ 00753000 * /* */ 00754000 * /*****************************************************************/ 00755000 * 0147 00756000 * RESPECIFY 0147 00757000 * (GPR00P, 0147 00758000 * GPR01P, 0147 00759000 * GPR14P, 0147 00760000 * GPR15P) RESTRICTED; 0147 00761000 * GEN REFS(DATEMPTM) SETS(DAWRKTME); 0148 00762000 * 0148 00763000 LM GPR00P,GPR01P,DATEMPTM GET TIME OF END OF LAST INTERVAL 00764000 SRDL GPR00P,12 IN MICROSECONDS 00765000 D GPR00P,DAMILLON IN SECONDS 00766000 ST GPR01P,DAWRKTME NEXT INTERVAL START TIME IN SECONDS 00767000 * /*****************************************************************/ 00768000 * /* */ 00769000 * /* MACDATE Y-2 73018 */ 00770000 * /* */ 00771000 * /*****************************************************************/ 00772000 * 0149 00773000 * RESPECIFY 0149 00774000 * (GPR00P, 0149 00775000 * GPR01P, 0149 00776000 * GPR14P, 0149 00777000 * GPR15P) UNRESTRICTED; 0149 00778000 * IF DAWRKTMESTSMOPT^=CNULLOPT THEN/* IF MEAS. IS ACTIVE */ 00878000 LR @12,I 0162 00879000 SLA @12,2 0162 00880000 L @11,CVTPTR 0162 00881000 L @11,CVTMFCTL(,@11) 0162 00882000 L @11,STGSSCT(,@11) 0162 00883000 L @11,STSCMVT(,@11) 0162 00884000 L @12,STMVADD-4(@12,@11) 0162 00885000 L @11,STSMOPT(,@12) 0162 00886000 LTR @11,@11 0162 00887000 BZ @RF00162 0162 00888000 * CALL STMVADD(I)->STSMENTR-> /* USE RE-ENTRY ADDRESSES STORED 00889000 * BY MG PROLOGUES */ 00890000 * IRBMFDXP(STMVADD(I)->STSMSAVE); 0163 00891000 LA @11,STSMSAVE(,@12) 0163 00892000 ST @11,@AL00001 0163 00893000 L @15,STSMENTR(,@12) 0163 00894000 LA @01,@AL00001 0163 00895000 BALR @14,@15 0163 00896000 * END; 0164 00897000 * 0164 00898000 @RF00162 AL I,@CF00063 0164 00899000 @DE00161 L @12,CVTPTR 0164 00900000 L @12,CVTMFCTL(,@12) 0164 00901000 L @12,STGSSCT(,@12) 0164 00902000 L @12,STSCMVT(,@12) 0164 00903000 C I,STMVNUM(,@12) 0164 00904000 BNH @DL00161 0164 00905000 * /*****************************************************************/ 00906000 * /* */ 00907000 * /* ENABLE */ 00908000 * /* */ 00909000 * /*****************************************************************/ 00910000 * 0165 00911000 * RFY 0165 00912000 * (GPR11P, 0165 00913000 * GPR12P, 0165 00914000 * GPR13P, 0165 00915000 * GPR14P) RSTD; 0165 00916000 * RFY 0166 00917000 * (GPR00P) RSTD; 0166 00918000 * GEN; 0167 00919000 LR @00,@13 SAVE REGISTER 13 IN REGISTER 00 00920000 DA0200 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, X00921000 RELATED=(DISP,IGX00014(DA0210)) 00922000 DA0210 SETLOCK RELEASE,TYPE=DISP, X00923000 RELATED=(DISP,IGX00014(DA0200)) 00924000 LR @13,@00 RESTORE REGISTER 13 00925000 * RFY 0168 00926000 * (GPR00P) UNRSTD; 0168 00927000 * RFY 0169 00928000 * (GPR11P, 0169 00929000 * GPR12P, 0169 00930000 * GPR13P, 0169 00931000 * GPR14P) UNRSTD; 0169 00932000 * 0169 00933000 * /*****************************************************************/ 00934000 * /* */ 00935000 * /* RELEASE LOCAL LOCK. */ 00936000 * /* */ 00937000 * /*****************************************************************/ 00938000 * 0170 00939000 * RFY 0170 00940000 * (GPR11P, 0170 00941000 * GPR12P, 0170 00942000 * GPR13P, 0170 00943000 * GPR14P) RSTD; 0170 00944000 * RFY 0171 00945000 * (GPR00P) RSTD; 0171 00946000 * GEN; 0172 00947000 LR @00,@13 SAVE REGISTER 13 IN 0 00948000 DA0300 SETLOCK RELEASE,TYPE=LOCAL, X00949000 RELATED=(LOCAL,IRBMFDWP(DA0050)) RELEASE LOCAL LOCK 00950000 LR @13,@00 RESTORE REGISTER 13 00951000 * RFY 0173 00952000 * (GPR00P) UNRSTD; 0173 00953000 * RFY 0174 00954000 * (GPR11P, 0174 00955000 * GPR12P, 0174 00956000 * GPR13P, 0174 00957000 * GPR14P) UNRSTD; 0174 00958000 * 0174 00959000 * /*****************************************************************/ 00960000 * /* */ 00961000 * /* PAGE FREE ALL FIXED AREAS MACDATE Y-2 73018 */ 00962000 * /* */ 00963000 * /*****************************************************************/ 00964000 * 0175 00965000 * RESPECIFY 0175 00966000 * (GPR00P, 0175 00967000 * GPR01P, 0175 00968000 * GPR14P, 0175 00969000 * GPR15P) RESTRICTED; 0175 00970000 * GPR01P=STMVADD(1); /* FIRST STSMA OF CONTIGUOUS AREA*/ 00971000 L @12,CVTPTR 0176 00972000 L @12,CVTMFCTL(,@12) 0176 00973000 L @12,STGSSCT(,@12) 0176 00974000 L @12,STSCMVT(,@12) 0176 00975000 L GPR01P,STMVADD(,@12) 0176 00976000 * GPR15P=STMVADD(STMVNUM)+LENGTH(STSMA);/* END OF STSMA S */ 00977000 L @11,STMVNUM(,@12) 0177 00978000 SLA @11,2 0177 00979000 LA GPR15P,56 0177 00980000 AL GPR15P,STMVADD-4(@11,@12) 0177 00981000 * GEN; 0178 00982000 * 0178 00983000 PGFREE R,A=(GPR01P),EA=(GPR15P) PAGE FREE STSMA S 00984000 LA @01,@PSTART START ADDRESS OF CODE 00985000 LA @15,@ENDDATA END ADDRESS+1 00986000 PGFREE R,A=(GPR01P),EA=(GPR15P) 00987000 LA @01,@DATD START ADDRESS 00988000 LA @15,@ENDDATD END ADDRESS+1 00989000 PGFREE R,A=(GPR01P),EA=(GPR15P) 00990000 * /*****************************************************************/ 00991000 * /* */ 00992000 * /* MACDATE Y-2 73018 */ 00993000 * /* */ 00994000 * /*****************************************************************/ 00995000 * 0179 00996000 * RESPECIFY 0179 00997000 * (GPR00P, 0179 00998000 * GPR01P, 0179 00999000 * GPR14P, 0179 01000000 * GPR15P) UNRESTRICTED; 0179 01001000 * 0179 01002000 * /*****************************************************************/ 01003000 * /* */ 01004000 * /* CALL INTERVAL MG EPILOGUES */ 01005000 * /* */ 01006000 * /*****************************************************************/ 01007000 * 0180 01008000 * DO I=1 TO STMVNUM; 0180 01009000 LA I,1 0180 01010000 B @DE00180 0180 01011000 @DL00180 DS 0H 0181 01012000 * IF STMVADD(I)->STSMOPT^=CNULLOPT THEN/* IF MEAS. IS ACTIVE */ 01013000 LR @12,I 0181 01014000 SLA @12,2 0181 01015000 L @11,CVTPTR 0181 01016000 L @11,CVTMFCTL(,@11) 0181 01017000 L @11,STGSSCT(,@11) 0181 01018000 L @11,STSCMVT(,@11) 0181 01019000 L @12,STMVADD-4(@12,@11) 0181 01020000 L @11,STSMOPT(,@12) 0181 01021000 LTR @11,@11 0181 01022000 BZ @RF00181 0181 01023000 * CALL STMVADD(I)->STSMENTR-> /* USE RE-ENTRY ADDRESSES STORED 01024000 * BY MG MOVE DATA */ 01025000 * IRBMFDXP(STMVADD(I)->STSMSAVE); 0182 01026000 LA @11,STSMSAVE(,@12) 0182 01027000 ST @11,@AL00001 0182 01028000 L @15,STSMENTR(,@12) 0182 01029000 LA @01,@AL00001 0182 01030000 BALR @14,@15 0182 01031000 * END; 0183 01032000 * 0183 01033000 @RF00181 AL I,@CF00063 0183 01034000 @DE00180 L @12,CVTPTR 0183 01035000 L @12,CVTMFCTL(,@12) 0183 01036000 L @12,STGSSCT(,@12) 0183 01037000 L @12,STSCMVT(,@12) 0183 01038000 C I,STMVNUM(,@12) 0183 01039000 BNH @DL00180 0183 01040000 * /*****************************************************************/ 01041000 * /* */ 01042000 * /* SET TIMES AND DATE OF START OF NEXT INTERVAL. */ 01043000 * /* */ 01044000 * /*****************************************************************/ 01045000 * 0184 01046000 * STSCDATE=DACVTDAT; /* NEW DATE OF LAST INTERVAL */ 01047000 L @12,CVTPTR 0184 01048000 L @12,CVTMFCTL(,@12) 0184 01049000 L @12,STGSSCT(,@12) 0184 01050000 MVC STSCDATE(4,@12),DACVTDAT 0184 01051000 * STSCGMT=DADSGTOC; /* SET NEW INTERVAL GMT START 0185 01052000 * TIME. */ 01053000 MVC STSCGMT(8,@12),DADSGTOC 0185 01054000 * STSCTIME=DAINTSRT; /* SET NEW LOCAL TIME OF DAY. */ 01055000 * 0186 01056000 MVC STSCTIME(4,@12),DAINTSRT 0186 01057000 * /*****************************************************************/ 01058000 * /* */ 01059000 * /* RETURN DTMVT (INTERVAL DATA LIST ADDRESS) IN REGISTER 1 AND */ 01060000 * /* RETURN CODE IN REGISTER 15. MACDATE Y-2 73018 */ 01061000 * /* */ 01062000 * /*****************************************************************/ 01063000 * 0187 01064000 * RESPECIFY 0187 01065000 * (GPR00P, 0187 01066000 * GPR01P, 0187 01067000 * GPR14P, 0187 01068000 * GPR15P) RESTRICTED; 0187 01069000 * GPR01P=STSCMVAD; /* DTMVT ADDRESS OF INTERVAL DATA*/ 01070000 L GPR01P,STSCMVAD(,@12) 0188 01071000 * GPR14P=DARETURN; /* RESTORE RETURN REGISTER */ 01072000 * 0189 01073000 L GPR14P,DARETURN 0189 01074000 * /*****************************************************************/ 01075000 * /* */ 01076000 * /* MACDATE Y-2 73018 */ 01077000 * /* */ 01078000 * /*****************************************************************/ 01079000 * 0190 01080000 * RESPECIFY 0190 01081000 * (GPR00P, 0190 01082000 * GPR01P, 0190 01083000 * GPR14P, 0190 01084000 * GPR15P) UNRESTRICTED; 0190 01085000 * 0190 01086000 * /*****************************************************************/ 01087000 * /* */ 01088000 * /* GENERATE RETURN CODE TO PUT DTMVT ADDRESS IN REG 1. */ 01089000 * /* */ 01090000 * /*****************************************************************/ 01091000 * 0191 01092000 * GEN; 0191 01093000 LR @02,@01 SAVE DTMVT ADDRESS FOR OUTPUT 01094000 L @13,4(,@13) 01095000 L @00,@SIZDATD 01096000 LA @01,@DATD 01097000 FREEMAIN R,LV=(0),A=(1) FREE AUTOMATIC DATA 01098000 LR @01,@02 PUT DTMVT ADDR IN OUTPUT REG 01099000 SR @15,@15 0 MEANS DTMVT ADDRESS IS IN REG1 01100000 BR @14 RETURN. 01101000 * END IGX00014 0192 01102000 * 0192 01103000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01104000 */*%INCLUDE SYSLIB (CVT ) */ 01105000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01106000 */*%INCLUDE SYSLIB (IHARB ) */ 01107000 */*%INCLUDE SYSLIB (IKJRB ) */ 01108000 */*%INCLUDE SYSLIB (IFASMFR ) */ 01109000 */*%INCLUDE SYSLIB (IEESMCA ) */ 01110000 * 0192 01111000 * ; 0192 01112000 @EL00001 L @13,4(,@13) 0192 01113000 @EF00001 L @00,@SIZDATD 0192 01114000 LR @01,@09 0192 01115000 FREEMAIN R,LV=(0),A=(1) 01116000 @ER00001 BR @14 0192 01117000 @DATA DS 0H 01118000 @CH01578 DC H'100' 01119000 @CH01620 DC H'10000' 01120000 @DATD DSECT 01121000 DS 0F 01122000 @SA00001 DS 18F 01123000 @AL00001 DS 9A 01124000 IGX00014 CSECT 01125000 DS 0F 01126000 @CF00063 DC F'1' 01127000 @CF01607 DC F'60' 01128000 @CF01603 DC F'60000' 01129000 @CF01618 DC F'100000' 01130000 @CF01623 DC F'-4' 01131000 @DATD DSECT 01132000 DS 0D 01133000 CVTPTR DS A 01134000 DABINWRK DS F 01135000 DAWRKTME DS F 01136000 DAPGFECB DS F 01137000 DARETURN DS F 01138000 TCBPTR DS A 01139000 DS 0D 01140000 @TS00001 DS CL8 01141000 DAENQAPL DS CL16 01142000 DACVTDAT DS CL4 01143000 DADATEFG DS BL1 01144000 DAINTLEN DS CL4 01145000 DAINTSRT DS CL4 01146000 DS CL3 01147000 DATEMPTM DS CL8 01148000 DASTRTME DS CL8 01149000 DADSGTOC DS CL8 01150000 DADSLTOC DS CL8 01151000 DAENGTOC DS CL8 01152000 DAINIT DS BL1 01153000 DASMFHDR DS CL48 01154000 DATCEV DS BL1 01155000 IGX00014 CSECT 01156000 DS 0F 01157000 @SIZDATD DC AL1(0) 01158000 DC AL3(@ENDDATD-@DATD) 01159000 DS 0D 01160000 DAONE DC A(1) 01161000 DAMILLON DC A(1000000) 01162000 DA1000 DC A(1000) 01163000 @CB01613 DC X'000F' 01164000 DAQNAME DC CL8'SYSZRBMF' 01165000 DARNAME DC CL6'ACTIVE' 01166000 DAPATCH DS CL100 01167000 IGX00014 CSECT 01168000 DAENQSPL ENQ (DAQNAME,DARNAME,E,,SYSTEM),RET=TEST,MF=L 01169000 IGX00014 CSECT 01170000 DAYSFACT DC A(5*5*5*5*5*5*5*5*3*3*3) DAYS DIVISION FACTOR 01171000 IGX00014 CSECT 01172000 DAYS4YRS DC A(365*4+1) DAYS IN 4 YEARS 01173000 @DATD DSECT 01174000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01175000 @ENDDATD EQU * 01176000 IGX00014 CSECT 01177000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01178000 @01 EQU 01 01179000 @02 EQU 02 01180000 @03 EQU 03 01181000 @04 EQU 04 01182000 @05 EQU 05 01183000 @06 EQU 06 01184000 @07 EQU 07 01185000 @08 EQU 08 01186000 @09 EQU 09 01187000 @10 EQU 10 01188000 @11 EQU 11 01189000 @12 EQU 12 01190000 @13 EQU 13 01191000 @14 EQU 14 01192000 @15 EQU 15 01193000 I EQU @02 01194000 DACVTTZ EQU @03 01195000 SMF70PTR EQU @12 01196000 RBSECPTR EQU @02 01197000 GPR03P EQU @03 01198000 GPR04P EQU @04 01199000 GPR05P EQU @05 01200000 GPR00P EQU @00 01201000 GPR01P EQU @01 01202000 GPR14P EQU @14 01203000 GPR15P EQU @15 01204000 GPR11P EQU @11 01205000 GPR12P EQU @12 01206000 GPR13P EQU @13 01207000 GPR00F EQU @00 01208000 GPR01F EQU @01 01209000 GPR14F EQU @14 01210000 GPR15F EQU @15 01211000 PSA EQU 0 01212000 FLCRNPSW EQU PSA 01213000 FLCROPSW EQU PSA+8 01214000 FLCICCW2 EQU PSA+16 01215000 PSAEEPSW EQU PSA+132 01216000 PSAESPSW EQU PSA+136 01217000 FLCSVILC EQU PSAESPSW+1 01218000 PSAEPPSW EQU PSA+140 01219000 FLCPIILC EQU PSAEPPSW+1 01220000 FLCPICOD EQU PSAEPPSW+2 01221000 PSAPICOD EQU FLCPICOD+1 01222000 FLCTEA EQU PSAEPPSW+4 01223000 FLCPER EQU PSA+152 01224000 FLCMCLA EQU PSA+168 01225000 FLCIOEL EQU FLCMCLA+4 01226000 FLCIOA EQU FLCMCLA+16 01227000 FLCFSA EQU FLCMCLA+80 01228000 PSASUPER EQU PSA+552 01229000 PSASUP1 EQU PSASUPER 01230000 PSASUP2 EQU PSASUPER+1 01231000 PSASUP3 EQU PSASUPER+2 01232000 PSASUP4 EQU PSASUPER+3 01233000 PSACLHT EQU PSA+640 01234000 PSALKSA EQU PSA+696 01235000 PSAHLHI EQU PSA+760 01236000 PSADSSFL EQU PSA+836 01237000 PSADSSF1 EQU PSADSSFL 01238000 PSADSSF3 EQU PSADSSFL+2 01239000 PSADSSF4 EQU PSADSSFL+3 01240000 PSARSVT EQU PSA+896 01241000 CVTMAP EQU 0 01242000 CVTDATE EQU CVTMAP+56 01243000 CVTDAR EQU CVTMAP+72 01244000 CVTFLGS1 EQU CVTDAR 01245000 CVTDCB EQU CVTMAP+116 01246000 CVTIERLC EQU CVTMAP+144 01247000 CVTOPTA EQU CVTMAP+182 01248000 CVTOPTB EQU CVTMAP+183 01249000 CVTSMCA EQU CVTMAP+196 01250000 CVTGTF EQU CVTMAP+236 01251000 CVTGTFST EQU CVTGTF 01252000 CVTGTFS EQU CVTGTFST 01253000 CVTSTATE EQU CVTGTFST 01254000 CVTTMODE EQU CVTGTFST 01255000 CVTFORM EQU CVTGTFST 01256000 CVTAQAVT EQU CVTMAP+240 01257000 CVTTCMFG EQU CVTAQAVT 01258000 CVTVOLM2 EQU CVTMAP+244 01259000 CVTTATA EQU CVTVOLM2 01260000 CVTTSKS EQU CVTTATA 01261000 CVTVOLF2 EQU CVTTSKS 01262000 CVTTAT EQU CVTTATA+1 01263000 CVTATER EQU CVTMAP+248 01264000 CVTEXT1 EQU CVTMAP+252 01265000 CVTPURG EQU CVTMAP+260 01266000 CVTQMSG EQU CVTMAP+268 01267000 CVTDMSR EQU CVTMAP+272 01268000 CVTTZ EQU CVTMAP+304 01269000 CVTERPV EQU CVTMAP+316 01270000 CVTINTLA EQU CVTMAP+320 01271000 CVTAPF EQU CVTMAP+324 01272000 CVTEXT2 EQU CVTMAP+328 01273000 CVTHJES EQU CVTMAP+332 01274000 CVTPGSIA EQU CVTMAP+348 01275000 CVTA1F1 EQU CVTMAP+356 01276000 CVTSYSK EQU CVTMAP+357 01277000 CVTVOLM1 EQU CVTMAP+380 01278000 CVTVOLF1 EQU CVTVOLM1 01279000 CVTATMCT EQU CVTMAP+388 01280000 CVTXTNT1 EQU 0 01281000 CVTXTNT2 EQU 0 01282000 CVTDSSV EQU CVTXTNT2 01283000 CVTFLGBT EQU CVTXTNT2+5 01284000 CVTQID EQU CVTXTNT2+24 01285000 CVTRV400 EQU CVTXTNT2+52 01286000 CVTRV409 EQU CVTXTNT2+53 01287000 CVTATCVT EQU CVTXTNT2+64 01288000 CVTRV429 EQU CVTXTNT2+84 01289000 CVTRV438 EQU CVTXTNT2+85 01290000 CVTRV457 EQU CVTXTNT2+112 01291000 CVTRV466 EQU CVTXTNT2+113 01292000 CVTFIX EQU 0 01293000 CVTRELNO EQU CVTFIX+252 01294000 RBPRFX EQU 0 01295000 RBBASIC EQU 0 01296000 RBEXRTNM EQU RBBASIC 01297000 RBTMFLD EQU RBEXRTNM 01298000 RBSTAB EQU RBBASIC+10 01299000 XSTAB EQU RBSTAB 01300000 RBSTAB1 EQU XSTAB 01301000 XSTAB1 EQU RBSTAB1 01302000 RBFTCKPT EQU XSTAB1 01303000 RBSTAB2 EQU XSTAB+1 01304000 XSTAB2 EQU RBSTAB2 01305000 RBTCBNXT EQU XSTAB2 01306000 RBFACTV EQU XSTAB2 01307000 RBFDYN EQU XSTAB2 01308000 RBECBWT EQU XSTAB2 01309000 RBOPSW EQU RBBASIC+16 01310000 RBLINK EQU RBBASIC+28 01311000 XRBLNK EQU RBLINK 01312000 RBWCF EQU XRBLNK 01313000 RBLINKB EQU XRBLNK+1 01314000 RBGRSAVE EQU RBBASIC+32 01315000 XRBREG EQU RBGRSAVE 01316000 RBGRS0 EQU XRBREG 01317000 RBGRS1 EQU XRBREG+4 01318000 RBGRS2 EQU XRBREG+8 01319000 RBGRS3 EQU XRBREG+12 01320000 RBGRS4 EQU XRBREG+16 01321000 RBGRS5 EQU XRBREG+20 01322000 RBGRS6 EQU XRBREG+24 01323000 RBGRS7 EQU XRBREG+28 01324000 RBGRS8 EQU XRBREG+32 01325000 RBGRS9 EQU XRBREG+36 01326000 RBGRS10 EQU XRBREG+40 01327000 RBGRS11 EQU XRBREG+44 01328000 RBGRS12 EQU XRBREG+48 01329000 RBGRS13 EQU XRBREG+52 01330000 RBGRS14 EQU XRBREG+56 01331000 RBGRS15 EQU XRBREG+60 01332000 XRBESA EQU RBBASIC+96 01333000 RBPREFIX EQU 0 01334000 RBRSV019 EQU RBPREFIX+14 01335000 RBRSV028 EQU RBPREFIX+15 01336000 RBRSV041 EQU RBPREFIX+27 01337000 RBRSV054 EQU RBPREFIX+39 01338000 RBRTOPSW EQU RBPREFIX+40 01339000 RBRTPSW2 EQU RBRTOPSW+8 01340000 RBRTICIL EQU RBRTPSW2 01341000 RBFLAGS1 EQU RBPREFIX+56 01342000 RBINTCDA EQU RBPREFIX+61 01343000 RBSECT EQU 0 01344000 RBPPSAV EQU RBSECT 01345000 @NM00036 EQU RBSECT+10 01346000 @NM00037 EQU @NM00036 01347000 RBTRSVRB EQU @NM00037 01348000 @NM00039 EQU @NM00036+1 01349000 RBETXR EQU @NM00039 01350000 RBEP EQU RBSECT+12 01351000 RBPGMQ EQU RBSECT+24 01352000 @NM00046 EQU RBSECT+28 01353000 IRBEND EQU RBSECT+96 01354000 @NM00050 EQU RBSECT+96 01355000 RBRSV138 EQU @NM00050+7 01356000 RBRSV150 EQU RBSECT+167 01357000 STGST EQU 0 01358000 STGSSCT EQU STGST+4 01359000 SMFRCD70 EQU 0 01360000 SMF70FLG EQU SMFRCD70+4 01361000 SMF70SID EQU SMFRCD70+14 01362000 SMF70SIZ EQU SMFRCD70+18 01363000 SMF70CYC EQU SMFRCD70+32 01364000 SMF70MFV EQU SMFRCD70+40 01365000 SMF70RLS EQU SMFRCD70+44 01366000 SMF70A EQU 0 01367000 SMF70SCC EQU SMF70A 01368000 SMF70B EQU 0 01369000 SMF70CNF EQU SMF70B+11 01370000 SMCABASE EQU 0 01371000 SMCAOPT EQU SMCABASE 01372000 SMCAMISC EQU SMCABASE+1 01373000 SMCABUF EQU SMCABASE+12 01374000 SMCASID EQU SMCABASE+16 01375000 SMCAPSTA EQU SMCABASE+30 01376000 SMCAPLBL EQU SMCABASE+34 01377000 SMCASTA EQU SMCABASE+46 01378000 SMCAALBL EQU SMCABASE+50 01379000 SMCAENTY EQU SMCABASE+80 01380000 SMCAENDI EQU SMCAENTY 01381000 SMCAFOPT EQU SMCABASE+82 01382000 SMCASWA EQU SMCABASE+104 01383000 SMCAASCB EQU SMCABASE+120 01384000 STCOA EQU 0 01385000 STCOTCE EQU STCOA 01386000 STCOTCEF EQU STCOTCE 01387000 STCOTCEL EQU STCOTCE+3 01388000 STCOTCEV EQU STCOTCEL 01389000 STCOCYC EQU STCOA+4 01390000 STCOCYCF EQU STCOCYC 01391000 STCOCYCV EQU STCOCYC+2 01392000 STCOOUT EQU STCOA+8 01393000 STCOOUTF EQU STCOOUT 01394000 STCOINT EQU STCOA+12 01395000 STCOINTF EQU STCOINT 01396000 STCOREP EQU STCOA+16 01397000 STCOREPF EQU STCOREP 01398000 STCOREPL EQU STCOREP+3 01399000 STCOSTP EQU STCOA+20 01400000 STCOSTPF EQU STCOSTP 01401000 STCOOPI EQU STCOA+24 01402000 STCOOPIF EQU STCOOPI 01403000 STCOOPIL EQU STCOOPI+3 01404000 STCOMEM EQU STCOA+28 01405000 STCOMEMF EQU STCOMEM 01406000 DTMVT EQU 0 01407000 DTMVNUM EQU DTMVT 01408000 DTMVOPT EQU DTMVT+4 01409000 STMVT EQU 0 01410000 STMVNUM EQU STMVT 01411000 STMVOPT EQU STMVT+4 01412000 STSCT EQU 0 01413000 STSCMVT EQU STSCT+4 01414000 STSCCOA EQU STSCT+8 01415000 STSCMF1V EQU STSCT+12 01416000 STSCFLAG EQU STSCT+14 01417000 STSCINIT EQU STSCFLAG+1 01418000 STSCDATE EQU STSCT+16 01419000 STSCTIME EQU STSCT+20 01420000 STSCGMT EQU STSCT+24 01421000 STSCMVSG EQU STSCT+32 01422000 STSCMVAD EQU STSCT+36 01423000 STSMA EQU 0 01424000 STSMOPT EQU STSMA 01425000 STSMOFLG EQU STSMOPT+3 01426000 STSMINTP EQU STSMA+20 01427000 STSMSAVE EQU STSMA+24 01428000 STSMENTR EQU STSMA+28 01429000 STSMIGMC EQU STSMA+36 01430000 DAENQRET EQU 3 01431000 DASPLEN EQU 0 01432000 IRBMFDXP EQU 0 01433000 IKEBC EQU 0 01434000 IKEBF15 EQU 0 01435000 IKEBF31 EQU 0 01436000 IKEBP15 EQU 0 01437000 IKEBP31 EQU 0 01438000 IKEBP8 EQU 0 01439000 CVTS01 EQU CVTPGSIA 01440000 CVTLPDIA EQU CVTS01+12 01441000 CVTDIRST EQU CVTLPDIA 01442000 CVTSLIDA EQU CVTS01+24 01443000 CVTCTLFG EQU CVTS01+50 01444000 CVTRV210 EQU CVTS01+424 01445000 CVTRV219 EQU CVTS01+425 01446000 CVTRV228 EQU CVTS01+426 01447000 CVTRV237 EQU CVTS01+427 01448000 CVTMFCTL EQU CVTS01+448 01449000 CVTMFRTR EQU CVTS01+452 01450000 CVTRV262 EQU CVTS01+468 01451000 CVTRV271 EQU CVTS01+469 01452000 CVTRV280 EQU CVTS01+470 01453000 CVTRV289 EQU CVTS01+471 01454000 CVTGSDA EQU CVTS01+600 01455000 PSARSVTE EQU PSARSVT 01456000 RBSECS03 EQU RBEP 01457000 RBCDE EQU RBSECS03 01458000 RBCDFLGS EQU RBCDE 01459000 RBSECS05 EQU RBPGMQ 01460000 RBSQE EQU RBSECS05 01461000 RBSECS06 EQU RBPGMQ 01462000 RBIQE EQU RBSECS06 01463000 RBSECS07 EQU RBPGMQ 01464000 RBIQE2 EQU RBSECS07 01465000 RBSECS08 EQU IRBEND 01466000 RBSECS09 EQU IRBEND 01467000 STCOOPTN EQU STCOA 01468000 DTMVADD EQU DTMVOPT 01469000 STMVADD EQU STMVOPT 01470000 STSMB EQU STSMOPT 01471000 @NM00070 EQU STSMB+3 01472000 STSMDEVF EQU @NM00070 01473000 STSMC EQU STSMOPT 01474000 @NM00072 EQU STSMC+3 01475000 FLC EQU PSA 01476000 * START UNREFERENCED COMPONENTS 01477000 STSMWKLD EQU @NM00072 01478000 @NM00073 EQU @NM00072 01479000 @NM00071 EQU STSMC 01480000 STSMCRDR EQU STSMDEVF 01481000 STSMUNIT EQU STSMDEVF 01482000 STSMGRAP EQU STSMDEVF 01483000 STSMDA EQU STSMDEVF 01484000 STSMTP EQU STSMDEVF 01485000 STSMTAPE EQU STSMDEVF 01486000 @NM00069 EQU STSMB 01487000 STCOCTRL EQU STCOOPTN 01488000 RBRSV161 EQU RBSECS09+64 01489000 RBSIRBWA EQU RBSECS09 01490000 RBIQEWRK EQU RBSECS08+4 01491000 RBNEXAV EQU RBSECS08 01492000 RBIQEA EQU RBIQE2 01493000 RBIQE1 EQU RBIQE+1 01494000 RBUSE EQU RBIQE 01495000 RBSQEA EQU RBSQE+1 01496000 @NM00051 EQU RBSQE 01497000 RBCDE1 EQU RBCDE+1 01498000 RBCDLOAD EQU RBCDFLGS 01499000 RBCDXCTL EQU RBCDFLGS 01500000 RBCDSYNC EQU RBCDFLGS 01501000 RBCDNODE EQU RBCDFLGS 01502000 RBRSV010 EQU RBCDFLGS 01503000 RBCDATCH EQU RBCDFLGS 01504000 RBRSV009 EQU RBCDFLGS 01505000 RBNOCELL EQU RBCDFLGS 01506000 PSARSAV EQU PSARSVTE+60 01507000 PSARSTK EQU PSARSVTE+56 01508000 PSAESAV3 EQU PSARSVTE+52 01509000 PSAESTK3 EQU PSARSVTE+48 01510000 PSAESAV2 EQU PSARSVTE+44 01511000 PSAESTK2 EQU PSARSVTE+40 01512000 PSAESAV1 EQU PSARSVTE+36 01513000 PSAESTK1 EQU PSARSVTE+32 01514000 PSAPSAV EQU PSARSVTE+28 01515000 PSAPSTK EQU PSARSVTE+24 01516000 PSAMSAV EQU PSARSVTE+20 01517000 PSAMSTK EQU PSARSVTE+16 01518000 PSASSAV EQU PSARSVTE+12 01519000 PSASSTK EQU PSARSVTE+8 01520000 PSANSTK EQU PSARSVTE+4 01521000 PSACSTK EQU PSARSVTE 01522000 CVTRV628 EQU CVTS01+728 01523000 CVTRV627 EQU CVTS01+724 01524000 CVTRV626 EQU CVTS01+720 01525000 CVTRV625 EQU CVTS01+716 01526000 CVTRV624 EQU CVTS01+712 01527000 CVTRV623 EQU CVTS01+708 01528000 CVTRV622 EQU CVTS01+704 01529000 CVTRV621 EQU CVTS01+700 01530000 CVTRV620 EQU CVTS01+696 01531000 CVTRV619 EQU CVTS01+692 01532000 CVTRV618 EQU CVTS01+688 01533000 CVTRV617 EQU CVTS01+684 01534000 CVTRV616 EQU CVTS01+680 01535000 CVTRV615 EQU CVTS01+676 01536000 CVTRV614 EQU CVTS01+672 01537000 CVTRV613 EQU CVTS01+668 01538000 CVTRV612 EQU CVTS01+664 01539000 CVTRV611 EQU CVTS01+660 01540000 CVTRV610 EQU CVTS01+656 01541000 CVTRV609 EQU CVTS01+652 01542000 CVTRV608 EQU CVTS01+648 01543000 CVTRV607 EQU CVTS01+644 01544000 CVTRV606 EQU CVTS01+640 01545000 CVTRV605 EQU CVTS01+636 01546000 CVTRV604 EQU CVTS01+632 01547000 CVTEFF02 EQU CVTS01+628 01548000 CVTCBBR EQU CVTS01+624 01549000 CVTSSCR EQU CVTS01+620 01550000 CVTEVENT EQU CVTS01+616 01551000 CVTCRCA EQU CVTS01+612 01552000 CVTTPIO EQU CVTS01+608 01553000 CVTADV EQU CVTS01+604 01554000 CVTGSDAB EQU CVTGSDA 01555000 CVTQV3 EQU CVTS01+596 01556000 CVTQV2 EQU CVTS01+592 01557000 CVTQV1 EQU CVTS01+588 01558000 CVTRPT EQU CVTS01+584 01559000 CVTSSRB EQU CVTS01+580 01560000 CVTCSDRL EQU CVTS01+576 01561000 CVTEXP1 EQU CVTS01+572 01562000 CVTRMPMT EQU CVTS01+568 01563000 CVTRMPTT EQU CVTS01+564 01564000 CVTVPSA EQU CVTS01+560 01565000 CVTVSTOP EQU CVTS01+556 01566000 CVTGTFR8 EQU CVTS01+552 01567000 CVTQUIT EQU CVTS01+548 01568000 CVTVACR EQU CVTS01+544 01569000 CVTWTCB EQU CVTS01+540 01570000 CVTSTPRS EQU CVTS01+536 01571000 CVT0PT02 EQU CVTS01+532 01572000 CVTDARCM EQU CVTS01+528 01573000 CVTIRECM EQU CVTS01+524 01574000 CVTJRECM EQU CVTS01+520 01575000 CVTVEMS0 EQU CVTS01+516 01576000 CVTSPFRR EQU CVTS01+512 01577000 CVTRLSTG EQU CVTS01+508 01578000 CVT0TC0A EQU CVTS01+504 01579000 CVTGMBR EQU CVTS01+500 01580000 CVTLFRM EQU CVTS01+496 01581000 CVTRMBR EQU CVTS01+492 01582000 CVTVIOP EQU CVTS01+488 01583000 CVTRV307 EQU CVTS01+486 01584000 CVTRV306 EQU CVTS01+484 01585000 CVTRV305 EQU CVTS01+482 01586000 CVTRV304 EQU CVTS01+480 01587000 CVTRV303 EQU CVTS01+478 01588000 CVTRV302 EQU CVTS01+476 01589000 CVTRV301 EQU CVTS01+475 01590000 CVTRV300 EQU CVTS01+474 01591000 CVTRV299 EQU CVTS01+473 01592000 CVTRV298 EQU CVTS01+472 01593000 CVTRV297 EQU CVTRV289 01594000 CVTRV296 EQU CVTRV289 01595000 CVTRV295 EQU CVTRV289 01596000 CVTRV294 EQU CVTRV289 01597000 CVTRV293 EQU CVTRV289 01598000 CVTRV292 EQU CVTRV289 01599000 CVTRV291 EQU CVTRV289 01600000 CVTRV290 EQU CVTRV289 01601000 CVTRV288 EQU CVTRV280 01602000 CVTRV287 EQU CVTRV280 01603000 CVTRV286 EQU CVTRV280 01604000 CVTRV285 EQU CVTRV280 01605000 CVTRV284 EQU CVTRV280 01606000 CVTRV283 EQU CVTRV280 01607000 CVTRV282 EQU CVTRV280 01608000 CVTRV281 EQU CVTRV280 01609000 CVTRV279 EQU CVTRV271 01610000 CVTRV278 EQU CVTRV271 01611000 CVTRV277 EQU CVTRV271 01612000 CVTRV276 EQU CVTRV271 01613000 CVTRV275 EQU CVTRV271 01614000 CVTRV274 EQU CVTRV271 01615000 CVTRV273 EQU CVTRV271 01616000 CVTRV272 EQU CVTRV271 01617000 CVTRV270 EQU CVTRV262 01618000 CVTRV269 EQU CVTRV262 01619000 CVTRV268 EQU CVTRV262 01620000 CVTRV267 EQU CVTRV262 01621000 CVTRV266 EQU CVTRV262 01622000 CVTRV265 EQU CVTRV262 01623000 CVTRV264 EQU CVTRV262 01624000 CVTRV263 EQU CVTRV262 01625000 CVTVFP EQU CVTS01+464 01626000 CVTVSI EQU CVTS01+460 01627000 CVTVPSIB EQU CVTS01+456 01628000 CVTMFACT EQU CVTMFRTR 01629000 CVTPVBP EQU CVTS01+444 01630000 CVTPWI EQU CVTS01+440 01631000 CVTRV254 EQU CVTS01+438 01632000 CVTRV253 EQU CVTS01+436 01633000 CVTRV252 EQU CVTS01+434 01634000 CVTRV251 EQU CVTS01+433 01635000 CVTRV250 EQU CVTS01+432 01636000 CVTRV249 EQU CVTS01+431 01637000 CVTRV248 EQU CVTS01+430 01638000 CVTRV247 EQU CVTS01+429 01639000 CVTRV246 EQU CVTS01+428 01640000 CVTRV245 EQU CVTRV237 01641000 CVTRV244 EQU CVTRV237 01642000 CVTRV243 EQU CVTRV237 01643000 CVTRV242 EQU CVTRV237 01644000 CVTRV241 EQU CVTRV237 01645000 CVTRV240 EQU CVTRV237 01646000 CVTRV239 EQU CVTRV237 01647000 CVTRV238 EQU CVTRV237 01648000 CVTRV236 EQU CVTRV228 01649000 CVTRV235 EQU CVTRV228 01650000 CVTRV234 EQU CVTRV228 01651000 CVTRV233 EQU CVTRV228 01652000 CVTRV232 EQU CVTRV228 01653000 CVTRV231 EQU CVTRV228 01654000 CVTRV230 EQU CVTRV228 01655000 CVTRV229 EQU CVTRV228 01656000 CVTRV227 EQU CVTRV219 01657000 CVTRV226 EQU CVTRV219 01658000 CVTRV225 EQU CVTRV219 01659000 CVTRV224 EQU CVTRV219 01660000 CVTRV223 EQU CVTRV219 01661000 CVTRV222 EQU CVTRV219 01662000 CVTRV221 EQU CVTRV219 01663000 CVTRV220 EQU CVTRV219 01664000 CVTRV218 EQU CVTRV210 01665000 CVTRV217 EQU CVTRV210 01666000 CVTRV216 EQU CVTRV210 01667000 CVTRV215 EQU CVTRV210 01668000 CVTRV214 EQU CVTRV210 01669000 CVTRV213 EQU CVTRV210 01670000 CVTRV212 EQU CVTRV210 01671000 CVTRV211 EQU CVTRV210 01672000 CVTLCCAT EQU CVTS01+420 01673000 CVTPCCAT EQU CVTS01+416 01674000 CVTIPCRP EQU CVTS01+412 01675000 CVTIPCRI EQU CVTS01+408 01676000 CVTIPCDS EQU CVTS01+404 01677000 CVTAIDVT EQU CVTS01+400 01678000 CVTSSAP EQU CVTS01+396 01679000 CVTEHCIR EQU CVTS01+392 01680000 CVTEHDEF EQU CVTS01+388 01681000 CVTDAIR EQU CVTS01+384 01682000 CVTPERFM EQU CVTS01+380 01683000 CVT044R2 EQU CVTS01+376 01684000 CVTFETCH EQU CVTS01+372 01685000 CVTRSTWD EQU CVTS01+368 01686000 CVTSPOST EQU CVTS01+364 01687000 CVTIOBP EQU CVTS01+360 01688000 CVTASMVT EQU CVTS01+356 01689000 CVTRECRQ EQU CVTS01+352 01690000 CVTWSAC EQU CVTS01+348 01691000 CVTRV149 EQU CVTS01+344 01692000 CVTWSAL EQU CVTS01+340 01693000 CVTSPSA EQU CVTS01+336 01694000 CVTGLMN EQU CVTS01+332 01695000 CVTVEAC0 EQU CVTS01+328 01696000 CVT062R1 EQU CVTS01+324 01697000 CVTRPOST EQU CVTS01+320 01698000 CVTDQIQE EQU CVTS01+316 01699000 CVTCSD EQU CVTS01+312 01700000 CVTLKRMA EQU CVTS01+308 01701000 CVTRSPIE EQU CVTS01+304 01702000 CVTRENQ EQU CVTS01+300 01703000 CVTLQCB EQU CVTS01+296 01704000 CVTFQCB EQU CVTS01+292 01705000 CVTQCS01 EQU CVTS01+288 01706000 CVTAPFT EQU CVTS01+284 01707000 CVTPARRL EQU CVTS01+280 01708000 CVTVWAIT EQU CVTS01+276 01709000 CVTGSPL EQU CVTS01+272 01710000 CVTLSMQ EQU CVTS01+268 01711000 CVTGSMQ EQU CVTS01+264 01712000 CVTEXPRO EQU CVTS01+260 01713000 CVTOPCTP EQU CVTS01+256 01714000 CVTSIC EQU CVTS01+252 01715000 CVTTPIOS EQU CVTS01+248 01716000 CVTRTMS EQU CVTS01+244 01717000 CVTSDBF EQU CVTS01+240 01718000 CVTSCBP EQU CVTS01+236 01719000 CVTSDMP EQU CVTS01+232 01720000 CVTSV60 EQU CVTS01+228 01721000 CVTRTMCT EQU CVTS01+224 01722000 CVTASCBL EQU CVTS01+220 01723000 CVTASCBH EQU CVTS01+216 01724000 CVTGDA EQU CVTS01+212 01725000 CVTASVT EQU CVTS01+208 01726000 CVTVVMDI EQU CVTS01+204 01727000 CVTAQTOP EQU CVTS01+200 01728000 CVTIOSCS EQU CVTS01+196 01729000 CVTSDRM EQU CVTS01+192 01730000 CVTOPTE EQU CVTS01+188 01731000 CVTSTXU EQU CVTS01+184 01732000 CVTQUIS EQU CVTS01+180 01733000 CVTPARS EQU CVTS01+176 01734000 CVTS1EE EQU CVTS01+172 01735000 CVTFRAS EQU CVTS01+168 01736000 CVTQSAS EQU CVTS01+164 01737000 CVTCRAS EQU CVTS01+160 01738000 CVTCRMN EQU CVTS01+156 01739000 CVTDELCP EQU CVTS01+152 01740000 CVTFRECL EQU CVTS01+148 01741000 CVTGETCL EQU CVTS01+144 01742000 CVTBLDCP EQU CVTS01+140 01743000 CVTAUTHL EQU CVTS01+136 01744000 CVTSCAN EQU CVTS01+132 01745000 CVTRV144 EQU CVTS01+130 01746000 CVTMAXMP EQU CVTS01+128 01747000 CVTSTCK EQU CVTS01+124 01748000 CVTRV139 EQU CVTS01+123 01749000 CVTDSSAC EQU CVTS01+122 01750000 CVTRV513 EQU CVTS01+121 01751000 CVTIOSPL EQU CVTS01+120 01752000 CVTPTGT EQU CVTS01+116 01753000 CVTCSPIE EQU CVTS01+112 01754000 CVTSMFEX EQU CVTS01+108 01755000 CVTOLT0A EQU CVTS01+104 01756000 CVTSRBRT EQU CVTS01+100 01757000 CVTPUTL EQU CVTS01+96 01758000 CVTRV519 EQU CVTS01+92 01759000 CVTRV327 EQU CVTS01+88 01760000 CVTRV326 EQU CVTS01+84 01761000 CVTRV325 EQU CVTS01+80 01762000 CVTRV324 EQU CVTS01+76 01763000 CVT0VL01 EQU CVTS01+72 01764000 CVTSHRVM EQU CVTS01+68 01765000 CVTRV332 EQU CVTS01+64 01766000 CVTTAS EQU CVTS01+60 01767000 CVTRSCN EQU CVTS01+56 01768000 CVTTRAC2 EQU CVTS01+54 01769000 CVTTRACE EQU CVTS01+52 01770000 CVTAPG EQU CVTS01+51 01771000 CVTSDTRC EQU CVTCTLFG 01772000 CVTGTRCE EQU CVTCTLFG 01773000 CVTNOMP EQU CVTCTLFG 01774000 CVTRSV79 EQU CVTCTLFG 01775000 CVTDSTAT EQU CVTCTLFG 01776000 CVTRSV78 EQU CVTCTLFG 01777000 CVTRV333 EQU CVTCTLFG 01778000 CVTRV323 EQU CVTCTLFG 01779000 CVTSPVLK EQU CVTS01+49 01780000 CVTRSV77 EQU CVTS01+48 01781000 CVTRV331 EQU CVTS01+44 01782000 CVTRV330 EQU CVTS01+40 01783000 CVTRV329 EQU CVTS01+36 01784000 CVTRV328 EQU CVTS01+32 01785000 CVTRV322 EQU CVTS01+28 01786000 CVTSLID EQU CVTSLIDA+1 01787000 CVTSYLK EQU CVTSLIDA 01788000 CVTRV321 EQU CVTS01+20 01789000 CVTRV320 EQU CVTS01+16 01790000 CVTLPDIR EQU CVTLPDIA+1 01791000 CVTRSV69 EQU CVTDIRST 01792000 CVTRSV68 EQU CVTDIRST 01793000 CVTRSV67 EQU CVTDIRST 01794000 CVTRSV66 EQU CVTDIRST 01795000 CVTRSV65 EQU CVTDIRST 01796000 CVTRSV64 EQU CVTDIRST 01797000 CVTRSV63 EQU CVTDIRST 01798000 CVTDICOM EQU CVTDIRST 01799000 CVTPVTP EQU CVTS01+8 01800000 CVTLPDSR EQU CVTS01+4 01801000 CVTGETL EQU CVTS01 01802000 STSMRSV1 EQU STSMA+53 01803000 STSMSSP EQU STSMA+52 01804000 STSMLCOM EQU STSMA+48 01805000 STSMRVT EQU STSMA+44 01806000 STSMIADD EQU STSMA+40 01807000 STSMILEN EQU STSMIGMC+1 01808000 STSMISP EQU STSMIGMC 01809000 STSMEDAD EQU STSMA+32 01810000 STSMTERM EQU STSMA+12 01811000 STSMINIT EQU STSMA+4 01812000 STSMSTA EQU STSMOFLG 01813000 @NM00068 EQU STSMOFLG 01814000 @NM00067 EQU STSMOPT 01815000 STSCGSRG EQU STSCT+48 01816000 STSCMSRG EQU STSCT+44 01817000 STSCLSRG EQU STSCT+40 01818000 STSCMVLE EQU STSCMVSG+1 01819000 STSCMVSP EQU STSCMVSG 01820000 STSCMENQ EQU STSCFLAG+1 01821000 @NM00066 EQU STSCFLAG 01822000 STSCNAME EQU STSCT 01823000 STMVDEV EQU STMVOPT+16 01824000 STMVCHA EQU STMVOPT+12 01825000 STMVWKL EQU STMVOPT+8 01826000 STMVPAG EQU STMVOPT+4 01827000 STMVCPU EQU STMVOPT 01828000 DTMVDEV EQU DTMVOPT+16 01829000 DTMVCHA EQU DTMVOPT+12 01830000 DTMVWKL EQU DTMVOPT+8 01831000 DTMVPAG EQU DTMVOPT+4 01832000 DTMVCPU EQU DTMVOPT 01833000 STCOMEMV EQU STCOMEM+2 01834000 @NM00065 EQU STCOMEM+1 01835000 STCOMEMC EQU STCOMEMF 01836000 STCOOPIV EQU STCOOPIL 01837000 @NM00064 EQU STCOOPIL 01838000 @NM00063 EQU STCOOPI+1 01839000 STCOOPIC EQU STCOOPIF 01840000 STCOSTPV EQU STCOSTP+2 01841000 @NM00062 EQU STCOSTP+1 01842000 STCOSTPU EQU STCOSTPF 01843000 STCOSTPS EQU STCOSTPF 01844000 STCOSTPC EQU STCOSTPF 01845000 STCOREPV EQU STCOREPL 01846000 @NM00061 EQU STCOREPL 01847000 @NM00060 EQU STCOREP+1 01848000 STCOREPC EQU STCOREPF 01849000 STCOINTV EQU STCOINT+2 01850000 @NM00059 EQU STCOINT+1 01851000 STCOINTC EQU STCOINTF 01852000 STCOOUTV EQU STCOOUT+3 01853000 @NM00058 EQU STCOOUT+1 01854000 STCOOUTC EQU STCOOUTF 01855000 @NM00057 EQU STCOCYC+1 01856000 STCOCYCC EQU STCOCYCF 01857000 @NM00056 EQU STCOTCEL 01858000 @NM00055 EQU STCOTCE+1 01859000 STCOTCEC EQU STCOTCEF 01860000 SMCASTCB EQU SMCABASE+176 01861000 SMCAWTCB EQU SMCABASE+172 01862000 SMCAU83 EQU SMCABASE+168 01863000 SMCAPGM EQU SMCABASE+164 01864000 SMCARGNM EQU SMCABASE+160 01865000 SMCASPOT EQU SMCABASE+156 01866000 SMCASPIN EQU SMCABASE+152 01867000 SMCARGNS EQU SMCABASE+148 01868000 SMCAPGRL EQU SMCABASE+144 01869000 SMCAPGOT EQU SMCABASE+140 01870000 SMCAPGIN EQU SMCABASE+136 01871000 SMCATEXP EQU SMCABASE+132 01872000 SMCARS22 EQU SMCABASE+128 01873000 SMCARS21 EQU SMCABASE+124 01874000 SMCATJID EQU SMCAASCB+2 01875000 SMCAPOST EQU SMCAASCB 01876000 SMCADSCT EQU SMCABASE+116 01877000 SMCADSTM EQU SMCABASE+108 01878000 SMCASWD EQU SMCABASE+107 01879000 SMCASWC EQU SMCABASE+106 01880000 SMCASWB EQU SMCABASE+105 01881000 SMCADSSW EQU SMCASWA 01882000 SMCADSSP EQU SMCASWA 01883000 SMCAZEOD EQU SMCASWA 01884000 SMCANAVL EQU SMCASWA 01885000 SMCANADA EQU SMCASWA 01886000 SMCAOPFL EQU SMCASWA 01887000 SMCADSTR EQU SMCASWA 01888000 SMCASWAR EQU SMCASWA 01889000 SMCAXNAM EQU SMCABASE+96 01890000 @NM00054 EQU SMCABASE+92 01891000 SMCAXCTL EQU SMCABASE+88 01892000 SMCAWRTP EQU SMCABASE+84 01893000 SMCAENAL EQU SMCABASE+83 01894000 SMCAFGN EQU SMCAFOPT 01895000 SMCAFTDS EQU SMCAFOPT 01896000 SMCAFR01 EQU SMCAFOPT 01897000 SMCAFVOL EQU SMCAFOPT 01898000 SMCAFDSA EQU SMCAFOPT 01899000 SMCAFEXT EQU SMCAFOPT 01900000 SMCAFOP2 EQU SMCAFOPT 01901000 SMCAFOP1 EQU SMCAFOPT 01902000 SMCAENOP EQU SMCAENTY+1 01903000 SMCADSNF EQU SMCAENDI 01904000 SMCARS20 EQU SMCAENDI 01905000 SMCARS19 EQU SMCAENDI 01906000 SMCARS18 EQU SMCAENDI 01907000 SMCARS17 EQU SMCAENDI 01908000 SMCARS16 EQU SMCAENDI 01909000 SMCARS15 EQU SMCAENDI 01910000 SMCARS14 EQU SMCAENDI 01911000 SMCAWAIT EQU SMCABASE+72 01912000 SMCASGFT EQU SMCABASE+68 01913000 SMCASGWR EQU SMCABASE+64 01914000 SMCABECB EQU SMCABASE+60 01915000 SMCAWECB EQU SMCABASE+56 01916000 SMCAADCB EQU SMCABASE+52 01917000 SMCAYORX EQU SMCABASE+51 01918000 SMCAANL EQU SMCAALBL 01919000 SMCAASL EQU SMCAALBL 01920000 SMCAANSL EQU SMCAALBL 01921000 SMCARS13 EQU SMCAALBL 01922000 SMCARS12 EQU SMCAALBL 01923000 SMCARS11 EQU SMCAALBL 01924000 SMCARS10 EQU SMCAALBL 01925000 SMCARS09 EQU SMCAALBL 01926000 SMCAADAR EQU SMCABASE+47 01927000 SMCAAVOL EQU SMCASTA 01928000 SMCAAUNT EQU SMCASTA 01929000 SMCARS08 EQU SMCASTA 01930000 SMCAAMOD EQU SMCASTA 01931000 SMCAAMTY EQU SMCASTA 01932000 SMCAADA EQU SMCASTA 01933000 SMCAATAP EQU SMCASTA 01934000 SMCAANAV EQU SMCASTA 01935000 SMCAADEV EQU SMCABASE+40 01936000 SMCAPDCB EQU SMCABASE+36 01937000 SMCAXORY EQU SMCABASE+35 01938000 SMCAPNL EQU SMCAPLBL 01939000 SMCAPSL EQU SMCAPLBL 01940000 SMCAPNSL EQU SMCAPLBL 01941000 SMCARS07 EQU SMCAPLBL 01942000 SMCARS06 EQU SMCAPLBL 01943000 SMCARS05 EQU SMCAPLBL 01944000 SMCARS04 EQU SMCAPLBL 01945000 SMCARS03 EQU SMCAPLBL 01946000 SMCAPDAR EQU SMCABASE+31 01947000 SMCAPVOL EQU SMCAPSTA 01948000 SMCAPUNT EQU SMCAPSTA 01949000 SMCARS02 EQU SMCAPSTA 01950000 SMCAMOD EQU SMCAPSTA 01951000 SMCAPMTY EQU SMCAPSTA 01952000 SMCAPDA EQU SMCAPSTA 01953000 SMCAPTAP EQU SMCAPSTA 01954000 SMCAPNAV EQU SMCAPSTA 01955000 SMCAPDEV EQU SMCABASE+24 01956000 SMCABUFP EQU SMCABASE+20 01957000 SMCABSIZ EQU SMCABUF 01958000 SMCAJWT EQU SMCABASE+8 01959000 SMCATIOT EQU SMCABASE+4 01960000 SMCATOFF EQU SMCABASE+2 01961000 SMCADUMP EQU SMCAMISC 01962000 SMCABSW EQU SMCAMISC 01963000 SMCADBSY EQU SMCAMISC 01964000 SMCAPSDP EQU SMCAMISC 01965000 SMCAFIRT EQU SMCAMISC 01966000 SMCAOPI EQU SMCAMISC 01967000 SMCAMAN EQU SMCAMISC 01968000 SMCAUSER EQU SMCAMISC 01969000 SMCAFGND EQU SMCAOPT 01970000 SMCATDS EQU SMCAOPT 01971000 SMCARS01 EQU SMCAOPT 01972000 SMCAVOL EQU SMCAOPT 01973000 SMCADSA EQU SMCAOPT 01974000 SMCAEXT EQU SMCAOPT 01975000 SMCAOPT2 EQU SMCAOPT 01976000 SMCAOPT1 EQU SMCAOPT 01977000 SMF70SER EQU SMF70B+13 01978000 SMF70RV4 EQU SMF70B+12 01979000 SMF70STA EQU SMF70CNF 01980000 SMF70VAC EQU SMF70CNF 01981000 @NM00053 EQU SMF70CNF 01982000 SMF70RV3 EQU SMF70B+10 01983000 SMF70CID EQU SMF70B+8 01984000 SMF70WAT EQU SMF70B 01985000 SMF70RV2 EQU SMF70A+6 01986000 SMF70SCD EQU SMF70A+4 01987000 SMF70CPU EQU SMF70A+2 01988000 SMF70RV1 EQU SMFRCD70+42 01989000 SMF70SAM EQU SMFRCD70+36 01990000 SMF70SUB EQU SMFRCD70+34 01991000 SMF70INT EQU SMFRCD70+28 01992000 SMF70DAT EQU SMFRCD70+24 01993000 SMF70IST EQU SMFRCD70+20 01994000 SMF70DTE EQU SMFRCD70+10 01995000 SMF70TME EQU SMFRCD70+6 01996000 SMF70RTY EQU SMFRCD70+5 01997000 SMF70SEG EQU SMFRCD70+2 01998000 SMF70LEN EQU SMFRCD70 01999000 STGSCYC EQU STGST+20 02000000 STGSMMV EQU STGST+16 02001000 @NM00052 EQU STGST+14 02002000 STGSASID EQU STGST+12 02003000 STGSTCB EQU STGST+8 02004000 STGSNAME EQU STGST 02005000 SIRBEND EQU RBSECT+168 02006000 SVRBEND EQU RBSECT+168 02007000 RBRSV158 EQU RBRSV150 02008000 RBRSV157 EQU RBRSV150 02009000 RBRSV156 EQU RBRSV150 02010000 RBRSV155 EQU RBRSV150 02011000 RBRSV154 EQU RBRSV150 02012000 RBRSV153 EQU RBRSV150 02013000 RBRSV152 EQU RBRSV150 02014000 RBRSV151 EQU RBRSV150 02015000 RBRSV149 EQU RBSECT+166 02016000 RBRSV148 EQU RBSECT+164 02017000 RBSCBB EQU RBSECT+144 02018000 TIRBEND EQU @NM00050+8 02019000 PRBEND EQU @NM00050+8 02020000 RBRSV146 EQU RBRSV138 02021000 RBRSV145 EQU RBRSV138 02022000 RBRSV144 EQU RBRSV138 02023000 RBRSV143 EQU RBRSV138 02024000 RBRSV142 EQU RBRSV138 02025000 RBRSV141 EQU RBRSV138 02026000 RBRSV140 EQU RBRSV138 02027000 RBRSV139 EQU RBRSV138 02028000 RBRSV137 EQU @NM00050+6 02029000 RBRSV136 EQU @NM00050+4 02030000 RBRSV135 EQU @NM00050 02031000 @NM00049 EQU RBSECT+32 02032000 @NM00048 EQU @NM00046+1 02033000 @NM00047 EQU @NM00046 02034000 RBPGMQ1 EQU RBPGMQ+1 02035000 @NM00045 EQU RBPGMQ 02036000 @NM00044 EQU RBSECT+16 02037000 @NM00043 EQU @NM00039 02038000 @NM00042 EQU @NM00039 02039000 RBIQETP EQU @NM00039 02040000 RBUSIQE EQU RBETXR 02041000 RBATTN EQU @NM00039 02042000 @NM00041 EQU @NM00039 02043000 @NM00040 EQU @NM00039 02044000 RBPMSVRB EQU @NM00037 02045000 RBATNXIT EQU @NM00037 02046000 @NM00038 EQU @NM00037 02047000 RBWAITP EQU @NM00037 02048000 RBFNSVRB EQU RBTRSVRB 02049000 RBFTP EQU @NM00037 02050000 RBSIZE EQU RBSECT+8 02051000 RBABOPSW EQU RBSECT+4 02052000 RBPPSAV1 EQU RBPPSAV+1 02053000 @NM00035 EQU RBPPSAV 02054000 RBPRFXND EQU RBPREFIX+64 02055000 RBINTCOD EQU RBINTCDA+1 02056000 RBINLNTH EQU RBINTCDA 02057000 RBWCSA EQU RBPREFIX+60 02058000 RBRSV004 EQU RBPREFIX+57 02059000 RBSSSYN EQU RBFLAGS1 02060000 RBSCB EQU RBFLAGS1 02061000 RBLONGWT EQU RBFLAGS1 02062000 RBASIR EQU RBFLAGS1 02063000 RBRSV159 EQU RBFLAGS1 02064000 RBABEND EQU RBFLAGS1 02065000 RBXWAIT EQU RBFLAGS1 02066000 RBSLOCK EQU RBFLAGS1 02067000 RBRTRAN EQU RBRTPSW2+4 02068000 RBRTINCD EQU RBRTICIL+2 02069000 RBRTILC EQU RBRTICIL+1 02070000 RBRSV160 EQU RBRTICIL 02071000 RBRTPSW1 EQU RBRTOPSW 02072000 RBRSV062 EQU RBRSV054 02073000 RBRSV061 EQU RBRSV054 02074000 RBRSV060 EQU RBRSV054 02075000 RBRSV059 EQU RBRSV054 02076000 RBRSV058 EQU RBRSV054 02077000 RBRSV057 EQU RBRSV054 02078000 RBRSV056 EQU RBRSV054 02079000 RBRSV055 EQU RBRSV054 02080000 RBRSV053 EQU RBPREFIX+38 02081000 RBRSV052 EQU RBPREFIX+36 02082000 RBRSV051 EQU RBPREFIX+32 02083000 RBPRFXST EQU RBPREFIX+32 02084000 RBRSV050 EQU RBPREFIX+28 02085000 RBRSV049 EQU RBRSV041 02086000 RBRSV048 EQU RBRSV041 02087000 RBRSV047 EQU RBRSV041 02088000 RBRSV046 EQU RBRSV041 02089000 RBRSV045 EQU RBRSV041 02090000 RBRSV044 EQU RBRSV041 02091000 RBRSV043 EQU RBRSV041 02092000 RBRSV042 EQU RBRSV041 02093000 RBRSV040 EQU RBPREFIX+26 02094000 RBRSV039 EQU RBPREFIX+24 02095000 RBRSV038 EQU RBPREFIX+20 02096000 RBRSV037 EQU RBPREFIX+16 02097000 RBRSV036 EQU RBRSV028 02098000 RBRSV035 EQU RBRSV028 02099000 RBRSV034 EQU RBRSV028 02100000 RBRSV033 EQU RBRSV028 02101000 RBRSV032 EQU RBRSV028 02102000 RBRSV031 EQU RBRSV028 02103000 RBRSV030 EQU RBRSV028 02104000 RBRSV029 EQU RBRSV028 02105000 RBRSV027 EQU RBRSV019 02106000 RBRSV026 EQU RBRSV019 02107000 RBRSV025 EQU RBRSV019 02108000 RBRSV024 EQU RBRSV019 02109000 RBRSV023 EQU RBRSV019 02110000 RBRSV022 EQU RBRSV019 02111000 RBRSV021 EQU RBRSV019 02112000 RBRSV020 EQU RBRSV019 02113000 RBRSV018 EQU RBPREFIX+13 02114000 RBRSV017 EQU RBPREFIX+12 02115000 RBSRV016 EQU RBPREFIX+11 02116000 RBRSV015 EQU RBPREFIX+10 02117000 RBRSV014 EQU RBPREFIX+8 02118000 RBRSV013 EQU RBPREFIX+4 02119000 RBRSV012 EQU RBPREFIX 02120000 RBEXSAVE EQU XRBESA 02121000 XRBREG15 EQU RBGRS15 02122000 XRBREG14 EQU RBGRS14 02123000 XRBREG13 EQU RBGRS13 02124000 XRBREG12 EQU RBGRS12 02125000 XRBREG11 EQU RBGRS11 02126000 XRBREG10 EQU RBGRS10 02127000 XRBREG9 EQU RBGRS9 02128000 XRBREG8 EQU RBGRS8 02129000 XRBREG7 EQU RBGRS7 02130000 XRBREG6 EQU RBGRS6 02131000 XRBREG5 EQU RBGRS5 02132000 XRBREG4 EQU RBGRS4 02133000 XRBREG3 EQU RBGRS3 02134000 XRBREG2 EQU RBGRS2 02135000 XRBREG1 EQU RBGRS1 02136000 XRBREG0 EQU RBGRS0 02137000 XRBLNKA EQU RBLINKB 02138000 XRBWT EQU RBWCF 02139000 @NM00034 EQU RBBASIC+24 02140000 XRBPSW EQU RBOPSW 02141000 @NM00033 EQU RBBASIC+12 02142000 XRBWAIT EQU RBECBWT 02143000 XRBFRRB EQU RBFDYN 02144000 @NM00032 EQU XSTAB2 02145000 XRBACTV EQU RBFACTV 02146000 XRBTCBP EQU RBTCBNXT 02147000 @NM00031 EQU XSTAB1 02148000 XRBCKPT EQU RBFTCKPT 02149000 @NM00030 EQU XSTAB1 02150000 @NM00029 EQU RBBASIC+8 02151000 @NM00028 EQU RBEXRTNM+1 02152000 RBTMIND3 EQU RBTMFLD 02153000 RBTMIND2 EQU RBTMFLD 02154000 RBTMCMP EQU RBTMFLD 02155000 RBWLIM EQU RBTMFLD 02156000 RBRSV005 EQU RBTMFLD 02157000 RBTMTOD EQU RBTMFLD 02158000 RBTMQUE EQU RBTMFLD 02159000 @NM00027 EQU RBPRFX 02160000 CVTLEVL EQU CVTRELNO+2 02161000 CVTNUMB EQU CVTRELNO 02162000 CVTMDL EQU CVTFIX+250 02163000 @NM00002 EQU CVTFIX+248 02164000 @NM00001 EQU CVTFIX 02165000 CVTRV482 EQU CVTXTNT2+128 02166000 CVTRV481 EQU CVTXTNT2+124 02167000 CVTRV480 EQU CVTXTNT2+120 02168000 CVTRV479 EQU CVTXTNT2+118 02169000 CVTRV478 EQU CVTXTNT2+117 02170000 CVTRV477 EQU CVTXTNT2+116 02171000 CVTRV476 EQU CVTXTNT2+115 02172000 CVTRV475 EQU CVTXTNT2+114 02173000 CVTRV474 EQU CVTRV466 02174000 CVTRV473 EQU CVTRV466 02175000 CVTRV472 EQU CVTRV466 02176000 CVTRV471 EQU CVTRV466 02177000 CVTRV470 EQU CVTRV466 02178000 CVTRV469 EQU CVTRV466 02179000 CVTRV468 EQU CVTRV466 02180000 CVTRV467 EQU CVTRV466 02181000 CVTRV465 EQU CVTRV457 02182000 CVTRV464 EQU CVTRV457 02183000 CVTRV463 EQU CVTRV457 02184000 CVTRV462 EQU CVTRV457 02185000 CVTRV461 EQU CVTRV457 02186000 CVTRV460 EQU CVTRV457 02187000 CVTRV459 EQU CVTRV457 02188000 CVTRV458 EQU CVTRV457 02189000 CVTRV456 EQU CVTXTNT2+108 02190000 CVTRV455 EQU CVTXTNT2+104 02191000 CVTRV454 EQU CVTXTNT2+100 02192000 CVTRV453 EQU CVTXTNT2+96 02193000 CVTRV452 EQU CVTXTNT2+94 02194000 CVTRV451 EQU CVTXTNT2+92 02195000 CVTRV450 EQU CVTXTNT2+90 02196000 CVTRV449 EQU CVTXTNT2+88 02197000 CVTRV448 EQU CVTXTNT2+87 02198000 CVTRV447 EQU CVTXTNT2+86 02199000 CVTRV446 EQU CVTRV438 02200000 CVTRV445 EQU CVTRV438 02201000 CVTRV444 EQU CVTRV438 02202000 CVTRV443 EQU CVTRV438 02203000 CVTRV442 EQU CVTRV438 02204000 CVTRV441 EQU CVTRV438 02205000 CVTRV440 EQU CVTRV438 02206000 CVTRV439 EQU CVTRV438 02207000 CVTRV437 EQU CVTRV429 02208000 CVTRV436 EQU CVTRV429 02209000 CVTRV435 EQU CVTRV429 02210000 CVTRV434 EQU CVTRV429 02211000 CVTRV433 EQU CVTRV429 02212000 CVTRV432 EQU CVTRV429 02213000 CVTRV431 EQU CVTRV429 02214000 CVTRV430 EQU CVTRV429 02215000 CVTRV428 EQU CVTXTNT2+80 02216000 CVTRV427 EQU CVTXTNT2+76 02217000 CVTRV426 EQU CVTXTNT2+72 02218000 CVTRV425 EQU CVTXTNT2+68 02219000 CVTATACT EQU CVTATCVT 02220000 CVTRV423 EQU CVTXTNT2+62 02221000 CVTRV422 EQU CVTXTNT2+60 02222000 CVTRV421 EQU CVTXTNT2+58 02223000 CVTRV420 EQU CVTXTNT2+56 02224000 CVTRV419 EQU CVTXTNT2+55 02225000 CVTRV418 EQU CVTXTNT2+54 02226000 CVTRV417 EQU CVTRV409 02227000 CVTRV416 EQU CVTRV409 02228000 CVTRV415 EQU CVTRV409 02229000 CVTRV414 EQU CVTRV409 02230000 CVTRV413 EQU CVTRV409 02231000 CVTRV412 EQU CVTRV409 02232000 CVTRV411 EQU CVTRV409 02233000 CVTRV410 EQU CVTRV409 02234000 CVTRV408 EQU CVTRV400 02235000 CVTRV407 EQU CVTRV400 02236000 CVTRV406 EQU CVTRV400 02237000 CVTRV405 EQU CVTRV400 02238000 CVTRV404 EQU CVTRV400 02239000 CVTRV403 EQU CVTRV400 02240000 CVTRV402 EQU CVTRV400 02241000 CVTRV401 EQU CVTRV400 02242000 CVTICB EQU CVTXTNT2+48 02243000 CVTSKTA EQU CVTXTNT2+44 02244000 CVTRSV99 EQU CVTXTNT2+40 02245000 CVTRSV98 EQU CVTXTNT2+36 02246000 CVTRSV97 EQU CVTXTNT2+34 02247000 CVTRSV96 EQU CVTXTNT2+32 02248000 CVTOLTEP EQU CVTXTNT2+28 02249000 CVTQIDA EQU CVTQID+1 02250000 CVTRSV95 EQU CVTQID 02251000 CVTRSV94 EQU CVTXTNT2+20 02252000 CVTRSV93 EQU CVTXTNT2+16 02253000 CVTRSV92 EQU CVTXTNT2+12 02254000 CVTDEBVR EQU CVTXTNT2+8 02255000 CVTRSV91 EQU CVTXTNT2+6 02256000 CVTRSV9H EQU CVTFLGBT 02257000 CVTRSV9G EQU CVTFLGBT 02258000 CVTRSV9F EQU CVTFLGBT 02259000 CVTRSV9E EQU CVTFLGBT 02260000 CVTRSV9D EQU CVTFLGBT 02261000 CVTRSV9C EQU CVTFLGBT 02262000 CVTVME EQU CVTFLGBT 02263000 CVTNPE EQU CVTFLGBT 02264000 CVTNUCLS EQU CVTXTNT2+4 02265000 CVTDSSVA EQU CVTDSSV+1 02266000 CVTRSV89 EQU CVTDSSV 02267000 CVTRSV88 EQU CVTXTNT1+8 02268000 CVTRSV87 EQU CVTXTNT1+4 02269000 CVTFACHN EQU CVTXTNT1 02270000 CVTRV488 EQU CVTMAP+412 02271000 CVTRV487 EQU CVTMAP+408 02272000 CVTRV486 EQU CVTMAP+404 02273000 CVTRV485 EQU CVTMAP+400 02274000 CVTACTAP EQU CVTMAP+396 02275000 CVTAUTH EQU CVTMAP+392 02276000 CVTATMCA EQU CVTATMCT+1 02277000 CVTATMST EQU CVTATMCT 02278000 CVTRSV61 EQU CVTMAP+384 02279000 CVTVOLT1 EQU CVTVOLM1+1 02280000 CVTVOLI1 EQU CVTVOLF1 02281000 CVTSTOA EQU CVTMAP+376 02282000 CVTRSV58 EQU CVTMAP+374 02283000 CVTRSV57 EQU CVTMAP+372 02284000 CVTDDCE EQU CVTMAP+368 02285000 CVTPNWFR EQU CVTMAP+364 02286000 CVTSMF EQU CVTMAP+360 02287000 CVTSULK EQU CVTMAP+358 02288000 CVTSLKO EQU CVTSYSK 02289000 CVTSLKP EQU CVTSYSK 02290000 CVTSLKQ EQU CVTSYSK 02291000 CVTSLKR EQU CVTSYSK 02292000 CVTRSV56 EQU CVTSYSK 02293000 CVTRSV55 EQU CVTSYSK 02294000 CVTRSV54 EQU CVTSYSK 02295000 CVTRSV53 EQU CVTSYSK 02296000 CVTRSV52 EQU CVTA1F1 02297000 CVTRSV51 EQU CVTA1F1 02298000 CVTRSV50 EQU CVTA1F1 02299000 CVTRSV49 EQU CVTA1F1 02300000 CVTRSV48 EQU CVTA1F1 02301000 CVTRSV47 EQU CVTA1F1 02302000 CVTSRSW EQU CVTA1F1 02303000 CVTPFSW EQU CVTA1F1 02304000 CVTPCVT EQU CVTMAP+352 02305000 CVTRSV46 EQU CVTMAP+344 02306000 CVTRSV45 EQU CVTMAP+340 02307000 CVTRSV44 EQU CVTMAP+338 02308000 CVTRSV43 EQU CVTMAP+336 02309000 CVTHJESA EQU CVTHJES+1 02310000 CVTRSV42 EQU CVTHJES 02311000 CVTEXT2A EQU CVTEXT2+1 02312000 CVTRSV41 EQU CVTEXT2 02313000 CVTAPFA EQU CVTAPF+1 02314000 CVTRSV40 EQU CVTAPF 02315000 CVTRV518 EQU CVTINTLA 02316000 CVTRV517 EQU CVTERPV 02317000 CVTEORM EQU CVTMAP+312 02318000 CVTMCHPR EQU CVTMAP+308 02319000 CVTJEPS EQU CVTMAP+300 02320000 CVTJESCT EQU CVTMAP+296 02321000 CVTMODE EQU CVTMAP+292 02322000 CVTPTRV EQU CVTMAP+288 02323000 CVTREAL EQU CVTMAP+284 02324000 CVTRSV39 EQU CVTMAP+280 02325000 CVTRSV38 EQU CVTMAP+276 02326000 CVTDMSRA EQU CVTDMSR+1 02327000 CVTRSV37 EQU CVTDMSR 02328000 CVTQMSGA EQU CVTQMSG+1 02329000 CVTRSV36 EQU CVTQMSG 02330000 CVTAMFF EQU CVTMAP+264 02331000 CVTPURGA EQU CVTPURG+1 02332000 CVTRSV35 EQU CVTPURG 02333000 CVTCBSP EQU CVTMAP+256 02334000 CVTATERA EQU CVTATER+1 02335000 CVTSYST EQU CVTATER 02336000 CVTVOLT2 EQU CVTTAT 02337000 CVTVOLI2 EQU CVTVOLF2 02338000 CVTAQAVB EQU CVTAQAVT+1 02339000 CVTRSV34 EQU CVTTCMFG 02340000 CVTRSV33 EQU CVTTCMFG 02341000 CVTRSV32 EQU CVTTCMFG 02342000 CVTRSV31 EQU CVTTCMFG 02343000 CVTRSV30 EQU CVTTCMFG 02344000 CVTRSV29 EQU CVTTCMFG 02345000 CVTRSV28 EQU CVTTCMFG 02346000 CVTTCRDY EQU CVTTCMFG 02347000 CVTGTFA EQU CVTGTF+1 02348000 CVTRSV27 EQU CVTGTFST 02349000 CVTRNIO EQU CVTGTFST 02350000 CVTUSR EQU CVTGTFST 02351000 CVTRV318 EQU CVTFORM 02352000 CVTRV317 EQU CVTTMODE 02353000 CVTRV316 EQU CVTSTATE 02354000 CVTRV315 EQU CVTGTFS 02355000 CVTGTFAV EQU CVTGTFS 02356000 CVT0SCR1 EQU CVTMAP+232 02357000 CVTRV515 EQU CVTMAP+228 02358000 CVTRMS EQU CVTMAP+224 02359000 CVTPATCH EQU CVTMAP+220 02360000 CVTTSCE EQU CVTMAP+216 02361000 CVTLNKSC EQU CVTMAP+214 02362000 CVTQABST EQU CVTMAP+212 02363000 CVTMDLDS EQU CVTMAP+208 02364000 CVTUSER EQU CVTMAP+204 02365000 CVTABEND EQU CVTMAP+200 02366000 CVTRSV18 EQU CVTMAP+192 02367000 CVTQLPAQ EQU CVTMAP+188 02368000 CVTQCDSR EQU CVTMAP+184 02369000 CVTRSV17 EQU CVTOPTB 02370000 CVTRSV16 EQU CVTOPTB 02371000 CVTFP EQU CVTOPTB 02372000 CVTAPTHR EQU CVTOPTB 02373000 CVTNLOG EQU CVTOPTB 02374000 CVTTOD EQU CVTOPTB 02375000 CVTCTIMS EQU CVTOPTB 02376000 CVTPROT EQU CVTOPTB 02377000 CVTXPFP EQU CVTOPTA 02378000 CVTASCII EQU CVTOPTA 02379000 CVTRSV13 EQU CVTOPTA 02380000 CVTRSV12 EQU CVTOPTA 02381000 CVTNIP EQU CVTOPTA 02382000 CVTDDR EQU CVTOPTA 02383000 CVTAPR EQU CVTOPTA 02384000 CVTCCH EQU CVTOPTA 02385000 CVTSNCTR EQU CVTMAP+180 02386000 CVTQMWR EQU CVTMAP+176 02387000 CVTQOCR EQU CVTMAP+172 02388000 CVT1EF00 EQU CVTMAP+168 02389000 CVTMZ00 EQU CVTMAP+164 02390000 CVTHEAD EQU CVTMAP+160 02391000 CVTRSV11 EQU CVTMAP+156 02392000 CVT0PT01 EQU CVTMAP+152 02393000 CVTMSER EQU CVTMAP+148 02394000 CVTRV516 EQU CVTIERLC 02395000 CVTILCH EQU CVTMAP+140 02396000 CVT0DS EQU CVTMAP+136 02397000 CVTFBOSV EQU CVTMAP+132 02398000 CVTNUCB EQU CVTMAP+128 02399000 CVTIXAVL EQU CVTMAP+124 02400000 CVTIOQET EQU CVTMAP+120 02401000 CVTDCBA EQU CVTMAP+117 02402000 CVTMVS2 EQU CVTDCB 02403000 CVT6DAT EQU CVTDCB 02404000 CVT4MPS EQU CVTDCB 02405000 CVTRSV09 EQU CVTDCB 02406000 CVT4MS1 EQU CVTDCB 02407000 CVT2SPS EQU CVTDCB 02408000 CVT1SSS EQU CVTDCB 02409000 CVTRSV08 EQU CVTDCB 02410000 CVTSTB EQU CVTMAP+112 02411000 CVTQTD00 EQU CVTMAP+108 02412000 CVTQTE00 EQU CVTMAP+104 02413000 CVTCUCB EQU CVTMAP+100 02414000 CVTSJQ EQU CVTMAP+96 02415000 CVTPBLDL EQU CVTMAP+92 02416000 CVTTPC EQU CVTMAP+88 02417000 CVTSVDCB EQU CVTMAP+84 02418000 CVTBRET EQU CVTMAP+82 02419000 CVTEXIT EQU CVTMAP+80 02420000 CVT0FN00 EQU CVTMAP+76 02421000 CVTDARA EQU CVTDAR+1 02422000 CVTRSV07 EQU CVTFLGS1 02423000 CVTRSV06 EQU CVTFLGS1 02424000 CVTRSV05 EQU CVTFLGS1 02425000 CVTRSV04 EQU CVTFLGS1 02426000 CVTRSV03 EQU CVTFLGS1 02427000 CVTRSV02 EQU CVTFLGS1 02428000 CVTRSV01 EQU CVTFLGS1 02429000 CVTDMPLK EQU CVTFLGS1 02430000 CVTXITP EQU CVTMAP+68 02431000 CVTZDTAB EQU CVTMAP+64 02432000 CVTMSLT EQU CVTMAP+60 02433000 CVTBTERM EQU CVTMAP+52 02434000 CVTSYSAD EQU CVTMAP+48 02435000 CVTXTLER EQU CVTMAP+44 02436000 CVTILK2 EQU CVTMAP+40 02437000 CVTILK1 EQU CVTMAP+36 02438000 CVTPRLTV EQU CVTMAP+32 02439000 CVTPCNVT EQU CVTMAP+28 02440000 CVT0VL00 EQU CVTMAP+24 02441000 CVTXAPG EQU CVTMAP+20 02442000 CVTBUF EQU CVTMAP+16 02443000 CVTJOB EQU CVTMAP+12 02444000 CVTLINK EQU CVTMAP+8 02445000 CVT0EF00 EQU CVTMAP+4 02446000 CVTTCBP EQU CVTMAP 02447000 CVT EQU CVTMAP 02448000 @NM00026 EQU PSA+3412 02449000 PSASTAK EQU PSA+3072 02450000 @NM00025 EQU PSA+1040 02451000 PSAUSEND EQU PSA+1040 02452000 PSARV062 EQU PSA+1036 02453000 PSAATCVT EQU PSA+1032 02454000 PSAPCPSW EQU PSA+1024 02455000 PSAPIR2 EQU PSA+1020 02456000 PSARV059 EQU PSA+1018 02457000 PSASVC13 EQU PSA+1016 02458000 PSALSFCC EQU PSA+1012 02459000 PSASFACC EQU PSA+1008 02460000 PSASTOP EQU PSA+992 02461000 PSASTART EQU PSA+976 02462000 PSARSPSW EQU PSA+968 02463000 PSASRPSW EQU PSA+960 02464000 PSARV045 EQU PSA+892 02465000 PSARV044 EQU PSA+888 02466000 PSARV043 EQU PSA+884 02467000 PSARV042 EQU PSA+880 02468000 PSARV041 EQU PSA+876 02469000 PSARV040 EQU PSA+872 02470000 PSARV025 EQU PSA+868 02471000 PSADSSED EQU PSA+868 02472000 PSADSSPR EQU PSA+864 02473000 PSADSSFW EQU PSA+860 02474000 PSADSS14 EQU PSA+856 02475000 PSADSSPP EQU PSA+848 02476000 PSADSSRP EQU PSA+840 02477000 PSADSS05 EQU PSADSSF4 02478000 PSADSS10 EQU PSADSSF4 02479000 PSADSSVE EQU PSADSSF4 02480000 PSADSSDE EQU PSADSSF4 02481000 PSADSSC0 EQU PSADSSF4 02482000 PSADSSIE EQU PSADSSF4 02483000 PSADSS12 EQU PSADSSF4 02484000 PSADSSRC EQU PSADSSF4 02485000 PSARV057 EQU PSADSSF3 02486000 PSARV056 EQU PSADSSF3 02487000 PSARV055 EQU PSADSSF3 02488000 PSADSSMC EQU PSADSSF3 02489000 PSADSSRW EQU PSADSSF3 02490000 PSADSSNM EQU PSADSSF3 02491000 PSADSSES EQU PSADSSF3 02492000 PSADSSGP EQU PSADSSF3 02493000 PSADSSF2 EQU PSADSSFL+1 02494000 PSADSSPI EQU PSADSSF1 02495000 PSADSSOI EQU PSADSSF1 02496000 PSADSSSP EQU PSADSSF1 02497000 PSADSSTP EQU PSADSSF1 02498000 PSADSSDW EQU PSADSSF1 02499000 PSADSSDD EQU PSADSSF1 02500000 PSADSSDM EQU PSADSSF1 02501000 PSADSSMV EQU PSADSSF1 02502000 PSADSSTS EQU PSA+816 02503000 PSADSSWK EQU PSA+812 02504000 PSADSSR3 EQU PSA+808 02505000 PSADSSR2 EQU PSA+804 02506000 PSADSSRS EQU PSA+800 02507000 PSASTOR EQU PSA+796 02508000 PSACPUSA EQU PSA+794 02509000 PSAVSTAP EQU PSA+792 02510000 PSAWKVAP EQU PSA+788 02511000 PSAWKRAP EQU PSA+784 02512000 PSAMCHIC EQU PSA+783 02513000 PSARV061 EQU PSA+782 02514000 PSASYMSK EQU PSA+781 02515000 PSAMCHFL EQU PSA+780 02516000 PSACR0 EQU PSA+776 02517000 PSAPSWSV EQU PSA+768 02518000 PSALITA EQU PSA+764 02519000 PSACLHS EQU PSAHLHI 02520000 PSALKR15 EQU PSALKSA+60 02521000 PSALKR14 EQU PSALKSA+56 02522000 PSALKR13 EQU PSALKSA+52 02523000 PSALKR12 EQU PSALKSA+48 02524000 PSALKR11 EQU PSALKSA+44 02525000 PSALKR10 EQU PSALKSA+40 02526000 PSALKR9 EQU PSALKSA+36 02527000 PSALKR8 EQU PSALKSA+32 02528000 PSALKR7 EQU PSALKSA+28 02529000 PSALKR6 EQU PSALKSA+24 02530000 PSALKR5 EQU PSALKSA+20 02531000 PSALKR4 EQU PSALKSA+16 02532000 PSALKR3 EQU PSALKSA+12 02533000 PSALKR2 EQU PSALKSA+8 02534000 PSALKR1 EQU PSALKSA+4 02535000 PSALKR0 EQU PSALKSA 02536000 PSARV023 EQU PSACLHT+52 02537000 PSALOCAL EQU PSACLHT+48 02538000 PSACMSL EQU PSACLHT+44 02539000 PSAOPTL EQU PSACLHT+40 02540000 PSATPACL EQU PSACLHT+36 02541000 PSATPDNL EQU PSACLHT+32 02542000 PSATPNCL EQU PSACLHT+28 02543000 PSAIOSLL EQU PSACLHT+24 02544000 PSAIOSUL EQU PSACLHT+20 02545000 PSAIOSCL EQU PSACLHT+16 02546000 PSAIOSSL EQU PSACLHT+12 02547000 PSASALCL EQU PSACLHT+8 02548000 PSAASML EQU PSACLHT+4 02549000 PSADISPL EQU PSACLHT 02550000 PSASRSA EQU PSA+636 02551000 PSARV050 EQU PSA+634 02552000 PSADSSGO EQU PSA+633 02553000 PSARECUR EQU PSA+632 02554000 PSAHLHIS EQU PSA+628 02555000 PSAIPCSA EQU PSA+624 02556000 @NM00024 EQU PSA+621 02557000 PSAIPCDM EQU PSA+620 02558000 PSAIPCD EQU PSA+616 02559000 @NM00023 EQU PSA+613 02560000 PSAIPCRM EQU PSA+612 02561000 PSAIPCR EQU PSA+608 02562000 PSAMCHEX EQU PSA+600 02563000 PSAMPSW EQU PSA+592 02564000 PSAEXPS2 EQU PSA+584 02565000 PSAEXPS1 EQU PSA+576 02566000 PSAPIREG EQU PSA+572 02567000 PSARSREG EQU PSA+568 02568000 PSAGPREG EQU PSA+556 02569000 PSARV022 EQU PSASUP4 02570000 PSARV021 EQU PSASUP4 02571000 PSARV020 EQU PSASUP4 02572000 PSARV019 EQU PSASUP4 02573000 PSARV018 EQU PSASUP4 02574000 PSARV017 EQU PSASUP4 02575000 PSARV016 EQU PSASUP4 02576000 PSARV015 EQU PSASUP4 02577000 PSARV014 EQU PSASUP3 02578000 PSARV013 EQU PSASUP3 02579000 PSARV012 EQU PSASUP3 02580000 PSARV011 EQU PSASUP3 02581000 PSARV010 EQU PSASUP3 02582000 PSAPSREG EQU PSASUP3 02583000 PSAPI2 EQU PSASUP3 02584000 PSAIOSUP EQU PSASUP3 02585000 PSALCR EQU PSASUP2 02586000 PSARTM EQU PSASUP2 02587000 PSAACR EQU PSASUP2 02588000 PSAIPCE2 EQU PSASUP2 02589000 PSAIPCES EQU PSASUP2 02590000 PSAIPCEC EQU PSASUP2 02591000 PSAGTF EQU PSASUP2 02592000 PSAIPCRI EQU PSASUP2 02593000 PSAIPCRP EQU PSASUP1 02594000 PSAIPCDR EQU PSASUP1 02595000 PSADISP EQU PSASUP1 02596000 PSALOCK EQU PSASUP1 02597000 PSAPI EQU PSASUP1 02598000 PSAEXT EQU PSASUP1 02599000 PSASVC EQU PSASUP1 02600000 PSAIO EQU PSASUP1 02601000 PSAAOLD EQU PSA+548 02602000 PSAANEW EQU PSA+544 02603000 PSATOLD EQU PSA+540 02604000 PSATNEW EQU PSA+536 02605000 PSALCCAR EQU PSA+532 02606000 PSALCCAV EQU PSA+528 02607000 PSAPCCAR EQU PSA+524 02608000 PSAPCCAV EQU PSA+520 02609000 PSACPULA EQU PSA+518 02610000 PSACPUPA EQU PSA+516 02611000 PSAPSA EQU PSA+512 02612000 FLCHDEND EQU PSA+512 02613000 FLCCRSAV EQU FLCMCLA+280 02614000 FLCGRSAV EQU FLCMCLA+216 02615000 FLCFPSAV EQU FLCMCLA+184 02616000 FLCFLA EQU FLCMCLA+88 02617000 FLCRGNCD EQU FLCMCLA+84 02618000 FLCFSAA EQU FLCFSA+1 02619000 @NM00022 EQU FLCFSA 02620000 @NM00021 EQU FLCMCLA+72 02621000 FLCMCIC EQU FLCMCLA+64 02622000 @NM00020 EQU FLCMCLA+20 02623000 FLCIOAA EQU FLCIOA+1 02624000 @NM00019 EQU FLCIOA 02625000 @NM00018 EQU FLCMCLA+15 02626000 @NM00017 EQU FLCMCLA+14 02627000 @NM00016 EQU FLCMCLA+12 02628000 FLCLCL EQU FLCMCLA+8 02629000 FLCIOELA EQU FLCIOEL+1 02630000 @NM00015 EQU FLCIOEL 02631000 FLCCHNID EQU FLCMCLA 02632000 @NM00014 EQU PSA+160 02633000 FLCMTRCD EQU PSA+157 02634000 @NM00013 EQU PSA+156 02635000 FLCPERA EQU FLCPER+1 02636000 @NM00012 EQU FLCPER 02637000 @NM00011 EQU PSA+151 02638000 FLCPERCD EQU PSA+150 02639000 FLCMCNUM EQU PSA+149 02640000 @NM00010 EQU PSA+148 02641000 FLCTEAA EQU FLCTEA+1 02642000 @NM00009 EQU FLCTEA 02643000 PSAPIPC EQU PSAPICOD 02644000 PSAPIMC EQU PSAPICOD 02645000 PSAPIPER EQU PSAPICOD 02646000 PSARV049 EQU FLCPICOD 02647000 FLCPILCB EQU FLCPIILC 02648000 @NM00008 EQU FLCPIILC 02649000 @NM00007 EQU PSAEPPSW 02650000 FLCSVCN EQU PSAESPSW+2 02651000 FLCSILCB EQU FLCSVILC 02652000 @NM00006 EQU FLCSVILC 02653000 @NM00005 EQU PSAESPSW 02654000 FLCEICOD EQU PSAEEPSW+2 02655000 PSASPAD EQU PSAEEPSW 02656000 @NM00004 EQU PSA+128 02657000 FLCINPSW EQU PSA+120 02658000 FLCMNPSW EQU PSA+112 02659000 FLCPNPSW EQU PSA+104 02660000 FLCSNPSW EQU PSA+96 02661000 FLCENPSW EQU PSA+88 02662000 FLCTRACE EQU PSA+84 02663000 FLCTIMER EQU PSA+80 02664000 FLCCVT2 EQU PSA+76 02665000 FLCCAW EQU PSA+72 02666000 FLCCSW EQU PSA+64 02667000 FLCIOPSW EQU PSA+56 02668000 FLCMOPSW EQU PSA+48 02669000 FLCPOPSW EQU PSA+40 02670000 FLCSOPSW EQU PSA+32 02671000 FLCEOPSW EQU PSA+24 02672000 @NM00003 EQU FLCICCW2+4 02673000 FLCCVT EQU FLCICCW2 02674000 FLCICCW1 EQU FLCROPSW 02675000 FLCIPPSW EQU FLCRNPSW 02676000 * END UNREFERENCED COMPONENTS 02677000 @ENDDATA EQU * 02678000 END IGX00014,(C'PLS0417',0700,74340) 02679000