TITLE ' /* IGX00013 MFSTART MAINLINE *00001000 ' 00002000 IGX00013 CSECT , 0001 00003000 @MAINENT BALR @15,0 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IGX00013 74.340' 0001 00008000 DROP @15 00009000 @PROLOG BALR @10,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@10 0001 00012000 LR @12,@01 0001 00013000 L @00,@SIZDATD 0001 00014000 GETMAIN R,LV=(0) 00015000 LR @09,@01 0001 00016000 USING @DATD,@09 0001 00017000 LR @01,@12 0001 00018000 ST @13,@SA00001+4 0001 00019000 LR @13,@09 0001 00020000 MVC @PC00001(12),0(@01) 0001 00021000 RBPRFXLN EQU 64 00022000 RBPRFLNA EQU 32 00023000 PRBLEN EQU 136 00024000 SIRBLEN EQU 200 00025000 TIRBLEN EQU 136 00026000 IRBLEN EQU 128 00027000 SVRBLEN EQU 200 00028000 * STPARMS=GPR01P; /* SAVE PARAMETER LIST ADDRESS */ 00029000 LR STPARMS,GPR01P 0034 00030000 * STRETURN=GPR14P; /* SAVE RETURN ADDRESS */ 00031000 * 0035 00032000 LR STRETURN,GPR14P 0035 00033000 * /*****************************************************************/ 00034000 * /* */ 00035000 * /* MACDATE Y-2 73018 */ 00036000 * /* */ 00037000 * /*****************************************************************/ 00038000 * 0036 00039000 * RESPECIFY 0036 00040000 * (GPR00P, 0036 00041000 * GPR01P, 0036 00042000 * GPR14P, 0036 00043000 * GPR15P) UNRESTRICTED; 0036 00044000 * 0036 00045000 */* AUTOMATIC STORAGE INITIALIZATION */ 00046000 * 0037 00047000 * STESTAPL=STESTSPL; /* ESTAE MACRO LIST */ 00048000 MVC STESTAPL(16),STESTSPL 0037 00049000 */* FUNCTIONAL CODE */ 00050000 * 0038 00051000 * /*****************************************************************/ 00052000 * /* */ 00053000 * /* ESTABLISH ESTAE ROUTINE MACDATE Y-2 73018 */ 00054000 * /* */ 00055000 * /*****************************************************************/ 00056000 * 0038 00057000 * RESPECIFY 0038 00058000 * (GPR00P, 0038 00059000 * GPR01P, 0038 00060000 * GPR14P, 0038 00061000 * GPR15P) RESTRICTED; 0038 00062000 * GEN; 0039 00063000 * 0039 00064000 ESTAE MF=(E,STESTAPL) ESTABLISH ESTAE IRBMFSDE 00065000 * /*****************************************************************/ 00066000 * /* */ 00067000 * /* MACDATE Y-2 73018 */ 00068000 * /* */ 00069000 * /*****************************************************************/ 00070000 * 0040 00071000 * RESPECIFY 0040 00072000 * (GPR00P, 0040 00073000 * GPR01P, 0040 00074000 * GPR14P, 0040 00075000 * GPR15P) UNRESTRICTED; 0040 00076000 * 0040 00077000 * /*****************************************************************/ 00078000 * /* */ 00079000 * /* CALL INITIALIZATION MAINLINE (MFIMAINL) */ 00080000 * /* */ 00081000 * /*****************************************************************/ 00082000 * 0041 00083000 * CALL MFIMAINL(STMFMVT,STMFCOA); /* GPR S 3,4,5 ARE ALSO INPUTS */ 00084000 L @08,@PC00001 0041 00085000 ST @08,@AL00001 0041 00086000 L @08,@PC00001+4 0041 00087000 ST @08,@AL00001+4 0041 00088000 LA @01,@AL00001 0041 00089000 BAL @14,MFIMAINL 0041 00090000 * RFY 0042 00091000 * (GPR13P) RSTD; 0042 00092000 * 0042 00093000 * /*****************************************************************/ 00094000 * /* */ 00095000 * /* MACDATE Y-2 73018 */ 00096000 * /* */ 00097000 * /*****************************************************************/ 00098000 * 0043 00099000 * RESPECIFY 0043 00100000 * (GPR00P, 0043 00101000 * GPR01P, 0043 00102000 * GPR14P, 0043 00103000 * GPR15P) RESTRICTED; 0043 00104000 * IF GPR15P=CSYNCHOK THEN /* IF MFIMAINL ALLOWS IT, SYNCH */ 00105000 LTR GPR15P,GPR15P 0044 00106000 BNZ @RF00044 0044 00107000 * DO; 0045 00108000 * 0045 00109000 * /*************************************************************/ 00110000 * /* */ 00111000 * /* SYNCH TO DATA CONTROL. GET MAIN STORAGE SAVE AREA IN TCB */ 00112000 * /* KEY, AND PUT SA ADDRESS IN GPR 13. */ 00113000 * /* */ 00114000 * /*************************************************************/ 00115000 * 0046 00116000 * GPR00P=STSASPLN; /* SAVE AREA SP & LENGTH */ 00117000 L GPR00P,STSASPLN 0046 00118000 * GEN; 0047 00119000 GETMAIN R,LV=(0) 00120000 * STSAADD=GPR01P; /* SAVE AREA ADDRESS */ 00121000 LR STSAADD,GPR01P 0048 00122000 * GPR15P=ADDR(IRBMFDTA); /* SYNCH ADDR IS INPUT PARAMETER */ 00123000 L GPR15P,@PC00001+8 0049 00124000 * GPR01P=STPARMS; /* PASS PARAMETER LIST FROM 0050 00125000 * CALLER, MFC MAINLINE 0050 00126000 * (IRBMFMFC). HERE USED TO FIND 00127000 * MFPCT TABLE ADDR. */ 00128000 LR GPR01P,STPARMS 0050 00129000 * RFY 0051 00130000 * (GPRDAT) RSTD; 0051 00131000 * STRBDATR=GPRDAT; /* SAVE DYNAMIC STORAGE AREA 0052 00132000 * ADDR. IN SVRB, SINCE ALL 0052 00133000 * REGISTERS CAN BE DESTROYED BY 00134000 * SYNCHED TO PROGRAM. */ 00135000 L @12,TCBPTR 0052 00136000 L @12,RBSECPTR(,@12) 0052 00137000 ST GPRDAT,STRBDATR(,@12) 0052 00138000 * GPR13P=STSAADD; /* POINT TO TCB KEY SAVE AREA */ 00139000 LR GPR13P,STSAADD 0053 00140000 * GEN; 0054 00141000 SYNCH (15) 00142000 DROP GPRCOD 00143000 DROP GPRDAT 00144000 BALR GPRCOD,0 00145000 USING *,GPRCOD 00146000 L GPRCOD,STPSTART REESTABLISH CODE BASE REG 00147000 USING @PSTART,GPRCOD 00148000 * GEN DATA; 0055 00149000 * GPRDAT=STRBDATR; /* REESTABLISH DATA BASE REG */ 00150000 L @12,TCBPTR 0056 00151000 L @12,RBSECPTR(,@12) 0056 00152000 L GPRDAT,STRBDATR(,@12) 0056 00153000 * RFY 0057 00154000 * (GPRDAT) UNRSTD; 0057 00155000 * GEN; 0058 00156000 USING @DATD,GPRDAT 00157000 LA @13,@SA00001 REESTABLISH SAVE AREA POINTER 00158000 * GPR00P=STSASPLN; /* TCB SAVE AREA SP & LENGTH */ 00159000 L GPR00P,STSASPLN 0059 00160000 * GPR01P=STSAADD; /* TCB SAVE AREA ADDRESS */ 00161000 LR GPR01P,STSAADD 0060 00162000 * GEN; 0061 00163000 FREEMAIN R,LV=(0),A=(1) FREE THE TCB SAVE AREA 00164000 * GPR15P=CSYNCHOK; /* SYNCH WAS DONE,CODE TO CALLER */ 00165000 SLR GPR15P,GPR15P 0062 00166000 * END; 0063 00167000 * RFY 0064 00168000 * (GPR13P) UNRSTD; 0064 00169000 @RF00044 DS 0H 0065 00170000 * STRETCOD=GPR15P; /* SAVE RETURN CODE TO CALLER */ 00171000 * 0065 00172000 LR STRETCOD,GPR15P 0065 00173000 * /*****************************************************************/ 00174000 * /* */ 00175000 * /* MACDATE Y-2 73018 */ 00176000 * /* */ 00177000 * /*****************************************************************/ 00178000 * 0066 00179000 * RESPECIFY 0066 00180000 * (GPR00P, 0066 00181000 * GPR01P, 0066 00182000 * GPR14P, 0066 00183000 * GPR15P) UNRESTRICTED; 0066 00184000 * 0066 00185000 * /*****************************************************************/ 00186000 * /* */ 00187000 * /* CALL TERMINATION MAINLINE */ 00188000 * /* */ 00189000 * /*****************************************************************/ 00190000 * 0067 00191000 * CALL IRBMFTMA; 0067 00192000 * 0067 00193000 L @15,@CV01031 0067 00194000 BALR @14,@15 0067 00195000 * /*****************************************************************/ 00196000 * /* */ 00197000 * /* CANCEL ESTAE ROUTINE */ 00198000 * /* */ 00199000 * /*****************************************************************/ 00200000 * 0068 00201000 * GEN(ESTAE 0,MF=(E,STESTAPL)); 0068 00202000 * 0068 00203000 ESTAE 0,MF=(E,STESTAPL) 00204000 * /*****************************************************************/ 00205000 * /* */ 00206000 * /* MACDATE Y-2 73018 */ 00207000 * /* */ 00208000 * /*****************************************************************/ 00209000 * 0069 00210000 * RESPECIFY 0069 00211000 * (GPR00P, 0069 00212000 * GPR01P, 0069 00213000 * GPR14P, 0069 00214000 * GPR15P) RESTRICTED; 0069 00215000 * GPR14P=STRETURN; /* RESTORE RETURN REGISTER */ 00216000 * 0070 00217000 LR GPR14P,STRETURN 0070 00218000 * /*****************************************************************/ 00219000 * /* */ 00220000 * /* MACDATE Y-2 73018 */ 00221000 * /* */ 00222000 * /*****************************************************************/ 00223000 * 0071 00224000 * RESPECIFY 0071 00225000 * (GPR00P, 0071 00226000 * GPR01P, 0071 00227000 * GPR14P, 0071 00228000 * GPR15P) UNRESTRICTED; 0071 00229000 * RETURN CODE(STRETCOD); /* RETURN TO CALLER, IRBMFMFC */ 00230000 L @13,4(,@13) 0072 00231000 L @00,@SIZDATD 0072 00232000 LR @01,@09 0072 00233000 FREEMAIN R,LV=(0),A=(1) 00234000 LR @15,@02 0072 00235000 BR @14 0072 00236000 * 0073 00237000 */* MF IM AINL INITIALIZATION MAINLINE */ 00238000 */********************************************************************/ 00239000 */* */ 00240000 */* PROCEDURE NAME = MFIMAINL */ 00241000 */* */ 00242000 */* DESCRIPTIVE NAME = INITIALIZATION MAINLINE */ 00243000 */* */ 00244000 */* FUNCTION = CALLS EACH MEASUREMENT OPTION INITIALIZATION ROUTINE */ 00245000 */* FOR WHICH A NON-ZERO INPUT OPTION VALUE EXISTS. FIRST*/ 00246000 */* IT GUARANTEES THAT ONLY ONE INSTANCE OF MF/1 IS ACTIVE*/ 00247000 */* IN THE SYSTEM BY ENQUEUING ON THE MF/1 ENQ NAME. IT */ 00248000 */* ALLOCATES MF/1 SUPERVISOR-STATE TABLES AND GLOBAL */ 00249000 */* TABLES. IT VALIDATES COMMON OPTIONS,ENABLES MFROUTER */ 00250000 */* IF NEEDED, INITIALIZES IOS IF NEEDED, AND ENQUEUES THE*/ 00251000 */* SAMPLING TQE IF NEEDED. INVALID OPTIONS ARE */ 00252000 */* IDENTIFIED FOR PROCEDURE IGX00013. */ 00253000 */* */ 00254000 */********************************************************************/ 00255000 * 0073 00256000 *MFIMAINL: /* INITIALIZATION MAINLINE */ 00257000 * PROC(INMVT /* PROBLEM MEASUREMENT VECTOR 0073 00258000 * TABLE */ 00259000 * ,INCOA /* PROBLEM COMMON OPTION AREA */ 00260000 * ); 0073 00261000 MFIMAINL STM @14,@12,@SA00002 0073 00262000 MVC @PC00002(8),0(@01) 0073 00263000 * DCL 0074 00264000 * CVTPTR /* CVT ADDRESS */ 00265000 * REG(3) /* INPUT */ 00266000 * PTR(31) RSTD; 0074 00267000 * 0074 00268000 * /*****************************************************************/ 00269000 * /* */ 00270000 * /* MACRO VARIABLES AND THEIR INITIAL VALUES: LSTDCL='IRBLSTDC', */ 00271000 * /* MACRO RENAME MACRO VARIABLE MAXMEAS IS THE NUMBER OF */ 00272000 * /* MEASUREMENT OPTIONS AND HAS VALUE 'CMAXMEAS'. */ 00273000 * /* */ 00274000 * /*****************************************************************/ 00275000 * 0075 00276000 * 0075 00277000 */* MAPPING MACROS */ 00278000 * 0075 00279000 * /*****************************************************************/ 00280000 * /* */ 00281000 * /* COMMUNICATIONS VECTOR TABLE */ 00282000 * /* */ 00283000 * /*****************************************************************/ 00284000 * 0075 00285000 */* */ 00286000 */* COMMUNICATION VECTOR TABLE */ 00287000 */* */ 00288000 */* OS/VS1 RELEASE 4, OS/VS2 RELEASE 3, 09/12/74, LEVEL=13 */ 00289000 */* */ 00290000 */* METHOD OF ACCESS */ 00291000 */* PL/S - DCL CVTPTR PTR */ 00292000 */* BAL - DSECT=YES SHOULD BE SPECIFIED ON MACRO CALL EXCEPT */ 00293000 */* WHEN CALLED DURING SYSGEN TO CREATE CSECT. CVT FOR */ 00294000 */* OS/VS2 IS MAPPED UNLESS SYS=AOS1 IS SPECIFIED. THE */ 00295000 */* PREFIX IS NOT MAPPED UNLESS PREFIX=YES IS SPECIFIED. */ 00296000 */* A USING ON CVTMAP OR DSECT NAME WILL ESTABLISH */ 00297000 */* ADDRESSABILITY FOR ALL SYMBOLS EXCEPT IN THE 2 */ 00298000 */* EXTENSIONS. TO ESTABLISH ADDRESSABILITY FOR THE */ 00299000 */* OS - OS/VS COMMON EXTENSION, YOU SHOULD CODE */ 00300000 */* */ 00301000 */* L REG,CVTEXT1 */ 00302000 */* USING CVTXTNT1,REG */ 00303000 */* */ 00304000 */* TO ESTABLISH ADDRESSABILITY FOR THE OS/VS1 - OS/VS2 */ 00305000 */* COMMON EXTENSION, YOU SHOULD CODE */ 00306000 */* */ 00307000 */* L REG,CVTEXT2 */ 00308000 */* USING CVTXTNT2,REG */ 00309000 */* */ 00310000 */* WHERE REG IN EITHER CASE IS ANY REGISTER OTHER */ 00311000 */* THAN ZERO. */ 00312000 */* */ 00313000 */* WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH */ 00314000 */* DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER */ 00315000 */* IN THE DEFN COLUMN IN THE CROSS REFERENCE LISTING. */ 00316000 */* FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE */ 00317000 */* STATEMENT NUMBERS FOR CVTXTNT1 AND CVTXTNT2 IS IN */ 00318000 */* THE OS - OS/VS COMMON EXTENSION. */ 00319000 */* */ 00320000 */* F.E.'S */ 00321000 */* MICROFICHE LISTING - CVT */ 00322000 */* */ 00323000 */* DEVELOPERS */ 00324000 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL */ 00325000 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE */ 00326000 */* */ 00327000 */* FOR INTEGRATION, A LISTING MUST NOT BE REQUESTED UNLESS */ 00328000 */* YOUR MODULE CREATES THE CSECT. */ 00329000 * 0075 00330000 * 0075 00331000 */* CVT PROPER */ 00332000 * 0075 00333000 * DECLARE 0075 00334000 * 1 CVTMAP BASED(CVTPTR) BDY(WORD), 0075 00335000 * 2 CVT CHAR(0) BDY(WORD), /* BEGINNING OF CVT MDC150 */ 00336000 * 2 CVTTCBP PTR(31), /* ADDRESS OF A DOUBLE WORD, THE 00337000 * FIRST CONTAINING THE NEXT-TO- 00338000 * BE-DISPATCHED TCB ADDRESS. THE 00339000 * SECOND CONTAINING THE LAST 0075 00340000 * (CURRENT) TCB ADDRESS. BOTH 0075 00341000 * WORDS ARE IDENTICAL UNLESS THE 00342000 * TASK GOES INTO A WAIT STATE. 00343000 * WHEN IN A WAIT STATE, THE 0075 00344000 * FIRST WORD IS SET TO ZERO 0075 00345000 * UNTIL THE WAITING IS OVER AND 00346000 * THEN BOTH WORDS ARE ONCE AGAIN 00347000 * IDENTICAL. (OS/VS1) ADDRESS OF 00348000 * 4-WORD LIST OF ADDRESSES - THE 00349000 * NEXT TCB, THE CURRENT TCB, THE 00350000 * NEXT ASCB AND THE CURRENT 0075 00351000 * ASCB, IN THAT ORDER (OS/VS2) 00352000 * MDC026 */ 00353000 * 2 CVT0EF00 PTR(31), /* ADDRESS OF ROUTINE TO SCHEDULE 00354000 * ASYNCHRONOUS EXITS */ 00355000 * 2 CVTLINK PTR(31), /* ADDRESS OF DCB FOR 0075 00356000 * SYS1.LINKLIB DATA SET */ 00357000 * 2 CVTJOB PTR(31), /* ADDRESS OF QUEUE MANAGER 0075 00358000 * RESIDENT DATA AREA (QMRES) 0075 00359000 * (OS/VS1) (MDC083) XM4042*/ 00360000 * 2 CVTBUF PTR(31), /* ADDRESS OF THE BUFFER OF THE 00361000 * RESIDENT CONSOLE INTERRUPT 0075 00362000 * ROUTINE */ 00363000 * 2 CVTXAPG PTR(31), /* ADDRESS OF I/O SUPERVISOR 0075 00364000 * APPENDAGE VECTOR TABLE */ 00365000 * 2 CVT0VL00 PTR(31), /* ADDRESS OF ENTRY POINT OF THE 00366000 * TASK SUPERVISOR'S ADDRESS 0075 00367000 * VALIDITY CHECKING ROUTINE */ 00368000 * 2 CVTPCNVT PTR(31), /* ADDRESS OF ENTRY POINT OF THE 00369000 * ROUTINE WHICH CONVERTS A 0075 00370000 * RELATIVE TRACK ADDRESS (TTR) 00371000 * TO AN ABSOLUTE TRACK ADDRESS 00372000 * (MBBCCHHR) */ 00373000 * 2 CVTPRLTV PTR(31), /* ADDRESS OF ENTRY POINT OF THE 00374000 * ROUTINE WHICH CONVERTS AN 0075 00375000 * ABSOLUTE TRACK ADDRESS 0075 00376000 * (MBBCCHHR) TO A RELATIVE TRACK 00377000 * ADDRESS (TTR) */ 00378000 * 2 CVTILK1 PTR(31), /* ADDRESS OF THE CHANNEL AND 0075 00379000 * CONTROL UNIT PORTION OF THE 0075 00380000 * UCB LOOKUP TABLE */ 00381000 * 2 CVTILK2 PTR(31), /* ADDRESS OF THE UCB HALFWORD 0075 00382000 * ADDRESS LIST PORTION OF THE 0075 00383000 * UCB LOOKUP TABLE */ 00384000 * 2 CVTXTLER PTR(31), /* ADDRESS OF ENTRY POINT OF AN 00385000 * XCTL ROUTINE THAT BRINGS 0075 00386000 * SYSTEM ERROR ROUTINES INTO THE 00387000 * ERROR TRANSIENT AREA */ 00388000 * 2 CVTSYSAD PTR(31), /* ADDRESS OF THE SYSTEM 0075 00389000 * RESIDENCE VOLUME ENTRY IN THE 00390000 * UCB LOOKUP TABLE */ 00391000 * 2 CVTBTERM PTR(31), /* ADDRESS OF ENTRY POINT OF THE 00392000 * ABTERM ROUTINE */ 00393000 * 2 CVTDATE CHAR(4) BDY(WORD), /* CURRENT DATE IN PACKED DECIMAL*/ 00394000 * 2 CVTMSLT PTR(31), /* ADDRESS OF THE MASTER COMMON 00395000 * AREA IN MASTER SCHEDULER 0075 00396000 * RESIDENT DATA AREA. NOTE - USE 00397000 * CVTMSER INSTEAD TO ADDRESS 0075 00398000 * MASTER SCHEDULER RESIDENT DATA 00399000 * AREA. */ 00400000 * 2 CVTZDTAB PTR(31), /* ADDRESS OF I/O DEVICE 0075 00401000 * CHARACTERISTIC TABLE */ 00402000 * 2 CVTXITP PTR(31), /* ADDRESS OF ERROR INTERPRETER 00403000 * ROUTINE */ 00404000 * 2 CVTDAR PTR(31), /* SAME AS CVTDARA BELOW (OS/VS1) 00405000 * MDC029 */ 00406000 * 3 CVTFLGS1 BIT(8), /* FLAG BYTE (OS/VS1) MDC030 */ 00407000 * 4 CVTDMPLK BIT(1), /* SVC DUMP IS IN PROGRESS 0075 00408000 * (OS/VS1) MDC030 */ 00409000 * 4 CVTRSV01 BIT(1), /* RESERVED */ 00410000 * 4 CVTRSV02 BIT(1), /* RESERVED */ 00411000 * 4 CVTRSV03 BIT(1), /* RESERVED */ 00412000 * 4 CVTRSV04 BIT(1), /* RESERVED */ 00413000 * 4 CVTRSV05 BIT(1), /* RESERVED */ 00414000 * 4 CVTRSV06 BIT(1), /* RESERVED */ 00415000 * 4 CVTRSV07 BIT(1), /* RESERVED */ 00416000 * 3 CVTDARA PTR(24), /* ADDRESS OF THE SYS1.DUMP I/O 00417000 * CONTROL BLOCKS NEEDED BY 0075 00418000 * ABEND'S DAMAGE ASSESSMENT 0075 00419000 * ROUTINE (DAR) (OS/VS1) MDC029 */ 00420000 * 2 CVT0FN00 PTR(31), /* ADDRESS OF ENTRY POINT OF THE 00421000 * FINCH ROUTINE (OS/VS1) */ 00422000 * 2 CVTEXIT CHAR(2) BDY(WORD), /* AN SVC 3 INSTRUCTION. EXIT TO 00423000 * DISPATCHER. */ 00424000 * 2 CVTBRET CHAR(2) BDY(WORD,3),/* A BCR 15,14 INSTRUCTION. 0075 00425000 * RETURN TO CALLER (USED BY DATA 00426000 * MANAGEMENT ROUTINES) */ 00427000 * 2 CVTSVDCB PTR(31), /* ADDRESS OF THE DCB FOR THE 0075 00428000 * SYS1.SVCLIB DATA SET */ 00429000 * 2 CVTTPC PTR(31), /* ADDRESS OF THE TIMER 0075 00430000 * SUPERVISOR WORK AREA */ 00431000 * 2 CVTPBLDL PTR(31), /* ADDRESS OF BRANCH AND LINK 0075 00432000 * (BALR) ENTRY POINT OF THE BLDL 00433000 * ROUTINE (OS/VS1) MDC103 */ 00434000 * 2 CVTSJQ PTR(31), /* ADDRESS OF THE SELECTED JOB 0075 00435000 * QUEUE (OS/VS1) */ 00436000 * 2 CVTCUCB PTR(31), /* ADDRESS OF THE TABLE THAT 0075 00437000 * CONTAINS THE CURRENT CONSOLE 00438000 * UCB ADDRESSES */ 00439000 * 2 CVTQTE00 PTR(31), /* ADDRESS OF THE TIMER ENQUEUE 00440000 * ROUTINE FOR INTERVAL TIMER */ 00441000 * 2 CVTQTD00 PTR(31), /* ADDRESS OF THE TIMER DEQUEUE 00442000 * ROUTINE FOR INTERVAL TIMER */ 00443000 * 2 CVTSTB PTR(31), /* ADDRESS OF THE I/O DEVICE 0075 00444000 * STATISTICS TABLE */ 00445000 * 2 CVTDCB CHAR(1) BDY(WORD), /* OPERATING SYSTEM CONFIGURATION*/ 00446000 * 4 CVTRSV08 BIT(1), /* RESERVED */ 00447000 * 4 CVT1SSS BIT(1), /* PCP */ 00448000 * 4 CVT2SPS BIT(1), /* MFT, OS/VS1 */ 00449000 * 4 CVT4MS1 BIT(1), /* MVT, OS/VS2 */ 00450000 * 4 CVTRSV09 BIT(1), /* RESERVED */ 00451000 * 4 CVT4MPS BIT(1), /* MODEL 65 MULTIPROCESSING */ 00452000 * 4 CVT6DAT BIT(1), /* DYNAMIC ADDRESS TRANSLATION BY 00453000 * CPU (OS/VS1, OS/VS2) */ 00454000 * 4 CVTMVS2 BIT(1), /* MULTIPLE MEMORY OPTION OF 0075 00455000 * OS/VS2 IS PRESENT MDC131 */ 00456000 * 2 CVTDCBA PTR(24), /* ADDRESS OF THE DCB FOR THE 0075 00457000 * SYS1.LOGREC (OUTBOARD 0075 00458000 * RECORDER) DATA SET FOR SYSTEM 00459000 * ENVIRONMENT RECORDING (SER) */ 00460000 * 2 CVTIOQET PTR(31), /* ADDRESS OF IOS REQUEST ELEMENT 00461000 * TABLE (OS/VS1) MDC020 */ 00462000 * 2 CVTIXAVL PTR(31), /* ADDRESS OF THE I/O 0075 00463000 * SUPERVISOR'S FREELIST POINTER 00464000 * WHICH CONTAINS THE ADDRESS OF 00465000 * THE NEXT REQUEST ELEMENT 0075 00466000 * (OS/VS1) ADDRESS OF THE I/O 0075 00467000 * SUPERVISOR'S COMMUNICATION 0075 00468000 * AREA (IOCOM) (OS/VS2) */ 00469000 * 2 CVTNUCB PTR(31), /* LOWEST ADDRESS NOT IN THE 0075 00470000 * NUCLEUS (ON PAGE BOUNDARY FOR 00471000 * OS/VS1) (ON SEGMENT BOUNDARY 00472000 * FOR OS/VS2) (MDC318) @Z30AQ9A*/ 00473000 * 2 CVTFBOSV PTR(31), /* ADDRESS OF PROGRAM FETCH 0075 00474000 * ROUTINE */ 00475000 * 2 CVT0DS PTR(31), /* ADDRESS OF ENTRY POINT OF THE 00476000 * DISPATCHER */ 00477000 * 2 CVTILCH PTR(31), /* ADDRESS OF THE LOGICAL CHANNEL 00478000 * WORD TABLE */ 00479000 * 2 CVTIERLC PTR(31), /* ADDRESS OF THE ASYNCHRONOUS 0075 00480000 * EXIT QUEUE (OS/VS1) (MDC218) 00481000 * YM4043*/ 00482000 * 3 CVTRV516 PTR(31), /* ** CVTIERLC FIELD UNUSED IN 0075 00483000 * OS/VS2 RELEASE 2 ** (MDC218) 00484000 * YM4043*/ 00485000 * 2 CVTMSER PTR(31), /* ADDRESS OF DATA AREA OF MASTER 00486000 * SCHEDULER RESIDENT DATA AREA */ 00487000 * 2 CVT0PT01 PTR(31), /* ADDRESS OF BRANCH ENTRY POINT 00488000 * OF POST ROUTINE */ 00489000 * 2 CVTRSV11 PTR(31), /* ** CVTTRMTB FIELD UNUSED IN 0075 00490000 * OS/VS ** */ 00491000 * 2 CVTHEAD PTR(31), /* ADDRESS OF THE HIGHEST 0075 00492000 * PRIORITY TCB IN THE READY 0075 00493000 * QUEUE (OS/VS1) MDC025 */ 00494000 * 2 CVTMZ00 PTR(31), /* HIGHEST ADDRESS IN VIRTUAL 0075 00495000 * STORAGE FOR THE MACHINE */ 00496000 * 2 CVT1EF00 PTR(31), /* ADDRESS OF ROUTINE WHICH 0075 00497000 * CREATES IRB'S FOR EXITS */ 00498000 * 2 CVTQOCR PTR(31), /* GRAPHICS INTERFACE TASK (GFX) 00499000 * FIELD. ADDRESS OF SEVENTH WORD 00500000 * OF GFX PARAMETER LIST, IF GFX 00501000 * IS ACTIVE. ZERO IF GFX IS NOT 00502000 * ACTIVE. */ 00503000 * 2 CVTQMWR PTR(31), /* ADDRESS OF QUEUE MANAGER'S 0075 00504000 * SYSTEM OUTPUT COMMUNICATIONS- 00505000 * DATA-AREA (CDA), WHICH IS 0075 00506000 * STORED ON AN EXTERNAL DEVICE */ 00507000 * 2 CVTSNCTR FIXED(15), /* SERIAL NUMBER COUNTER FOR 0075 00508000 * ASSIGNING SERIAL NUMBERS TO 0075 00509000 * NON-SPECIFIC, UNLABELED 0075 00510000 * MAGNETIC TAPE VOLUMES */ 00511000 * 2 CVTOPTA CHAR(1), /* OPTION INDICATORS */ 00512000 * 3 CVTCCH BIT(1), /* CHANNEL CHECK HANDLER (CCH) 0075 00513000 * OPTION PRESENT - RECOVERY 0075 00514000 * MANAGEMENT SUPPORT (RMS) 0075 00515000 * XM4686*/ 00516000 * 3 CVTAPR BIT(1), /* ALTERNATE PATH RETRY (APR) 0075 00517000 * OPTION PRESENT - RECOVERY 0075 00518000 * MANAGEMENT SUPPORT (RMS) */ 00519000 * 3 CVTDDR BIT(1), /* DYNAMIC DEVICE RECONFIGURATION 00520000 * (DDR) OPTION PRESENT - 0075 00521000 * RECOVERY MANAGEMENT SUPPORT 0075 00522000 * (RMS) (OS/VS1) DDR 0075 00523000 * SYSTEM-INITIATED SWAP ACTIVE 00524000 * (OS/VS2) MDC126 */ 00525000 * 3 CVTNIP BIT(1), /* NIP IS EXECUTING */ 00526000 * 3 CVTRSV12 BIT(1), /* RESERVED */ 00527000 * 3 CVTRSV13 BIT(1), /* RESERVED */ 00528000 * 3 CVTASCII BIT(1), /* ASCII TAPE PROCESSING IS 0075 00529000 * GENERATED IN THIS SYSTEM */ 00530000 * 3 CVTXPFP BIT(1), /* CPU HAS EXTENDED PRECISION 0075 00531000 * FLOATING POINT FEATURE */ 00532000 * 2 CVTOPTB CHAR(1), /* MISCELLANEOUS FLAGS */ 00533000 * 3 CVTPROT BIT(1), /* CPU HAS STORE PROTECTION 0075 00534000 * FEATURE (OS/VS1) */ 00535000 * 3 CVTCTIMS BIT(1), /* IF ON, HARDWARE HAS THE CLOCK 00536000 * COMPARATOR AND CPU TIMER 0075 00537000 * FEATURE INSTALLED, AND OS/VS1 00538000 * SYSGEN HAS SPECIFIED THIS 0075 00539000 * FEATURE (OS/VS1) MDC127 */ 00540000 * 3 CVTTOD BIT(1), /* CPU HAS TIME-OF-DAY CLOCK 0075 00541000 * FEATURE */ 00542000 * 3 CVTNLOG BIT(1), /* SYS1.LOGREC IS UNAVAILABLE FOR 00543000 * ERROR RECORDING. ALWAYS SET TO 00544000 * ZERO FOR OS/VS1 ICB382 */ 00545000 * 3 CVTAPTHR BIT(1), /* NIP SETS THIS BIT TO 1 WHEN 0075 00546000 * DEVICE TESTING IS COMPLETE. IF 00547000 * 1, I/O SUPERVISOR USES AN 0075 00548000 * ALTERNATE PATH TO A DEVICE 0075 00549000 * WHEN A CONDITION CODE OF 3 0075 00550000 * EXISTS. THIS BIT IS RESET BY 00551000 * NIP TO 0 AFTER THE LINK PACK 00552000 * AREA IS INITIALIZED. YM2670*/ 00553000 * 3 CVTFP BIT(1), /* CPU HAS FETCH PROTECTION 0075 00554000 * FEATURE (OS/VS1) ICB427 */ 00555000 * 3 CVTRSV16 BIT(1), /* RESERVED */ 00556000 * 3 CVTRSV17 BIT(1), /* RESERVED */ 00557000 * 2 CVTQCDSR PTR(31), /* CDE SEARCH ROUTINE ADDRESS 0075 00558000 * (OS/VS2) ADDRESS OF THE 0075 00559000 * ROUTINE THAT SEARCHES THE 0075 00560000 * REENTERABLE LOAD MODULE QUEUE 00561000 * (OS/VS1) */ 00562000 * 2 CVTQLPAQ PTR(31), /* ADDRESS OF POINTER TO MOST 0075 00563000 * RECENT ENTRY ON LINK PACK AREA 00564000 * CDE QUEUE (OS/VS2) ADDRESS OF 00565000 * THE REENTERABLE LOAD MODULE 0075 00566000 * QUEUE (OS/VS1) */ 00567000 * 2 CVTRSV18 PTR(31), /* ** CVTMPCVT FIELD UNUSED IN 0075 00568000 * OS/VS ** */ 00569000 * 2 CVTSMCA PTR(31), /* ADDRESS OF THE SYSTEM 0075 00570000 * MANAGEMENT CONTROL AREA (SMCA) 00571000 * IF THE SYSTEM MANAGEMENT 0075 00572000 * FACILITIES (SMF) OPTION IS 0075 00573000 * PRESENT IN THE SYSTEM. 0075 00574000 * OTHERWISE, ZERO. */ 00575000 * 2 CVTABEND PTR(31), /* ADDRESS OF SECONDARY CVT FOR 00576000 * ABEND IN EOT (OS/VS2) USED BY 00577000 * AN INTERNAL ABEND TRACE 0075 00578000 * ROUTINE FOR DEBUG PURPOSES 0075 00579000 * (OS/VS1) XM0615*/ 00580000 * 2 CVTUSER PTR(31), /* A WORD AVAILABLE TO THE USER */ 00581000 * 2 CVTMDLDS PTR(31), /* RESERVED FOR MODEL-DEPENDENT 00582000 * SUPPORT */ 00583000 * 2 CVTQABST CHAR(2) BDY(WORD),/* AN SVC 13 (ABEND) INSTRUCTION 00584000 * (OS/VS2) RESERVED (OS/VS1) */ 00585000 * 2 CVTLNKSC CHAR(2) BDY(WORD,3),/* AN SVC 6 (LINK) INSTRUCTION 00586000 * ICB369 */ 00587000 * 2 CVTTSCE PTR(31), /* ADDRESS OF THE FIRST TIME 0075 00588000 * SLICE CONTROL ELEMENT (TSCE) */ 00589000 * 2 CVTPATCH PTR(31), /* ADDRESS OF A 200-BYTE FE PATCH 00590000 * AREA */ 00591000 * 2 CVTRMS PTR(31), /* RECOVERY MANAGEMENT SUPPORT 0075 00592000 * (RMS) COMMUNICATIONS VECTOR. 00593000 * ADDRESS OF A MACHINE STATUS 0075 00594000 * BLOCK. */ 00595000 * 2 CVTRV515 PTR(31), /* ** CVTTSCVT FIELD UNUSED IN 0075 00596000 * OS/VS2 REL 2 ** MDC037 */ 00597000 * 2 CVT0SCR1 PTR(31), /* ADDRESS OF THE SECTOR 0075 00598000 * CALCULATION ROUTINE FOR 0075 00599000 * ROTATIONAL POSITION SENSING 0075 00600000 * (RPS) */ 00601000 * 2 CVTGTF PTR(31), /* GENERALIZED TRACE FACILITY 0075 00602000 * (GTF) CONTROL WORD ICB312 */ 00603000 * 3 CVTGTFST BIT(8), /* GTF FLAG BYTE ICB312 */ 00604000 * 4 CVTGTFS BIT(2), /* GTF STATUS (OS/VS1) MDC088 */ 00605000 * 5 CVTGTFAV BIT(1), /* IF ZERO, GTF NOT ACTIVE. IF 0075 00606000 * ONE, GTF ACTIVE. (OS/VS2) 0075 00607000 * MDC098 */ 00608000 * 5 CVTRV315 BIT(1), /* RESERVED (OS/VS2) */ 00609000 * 4 CVTSTATE BIT(1), /* GTF IS IN CONTROL PROCESSING A 00610000 * HOOK (OS/VS1) MDC093 */ 00611000 * 5 CVTRV316 BIT(1), /* RESERVED (OS/VS2) */ 00612000 * 4 CVTTMODE BIT(1), /* IF 0, MODE=INT SPECIFIED. IF 00613000 * 1, MODE=EXT SPECIFIED WHICH 0075 00614000 * MEANS TRACE DATA IS TO BE 0075 00615000 * WRITTEN TO AN EXTERNAL DEVICE. 00616000 * (OS/VS1) MDC094 */ 00617000 * 5 CVTRV317 BIT(1), /* RESERVED (OS/VS2) */ 00618000 * 4 CVTFORM BIT(1), /* TRACE DATA IS TO BE FORMATTED 00619000 * ON ABNORMAL TERMINATION 0075 00620000 * (OS/VS1) MDC095 */ 00621000 * 5 CVTRV318 BIT(1), /* RESERVED (OS/VS2) */ 00622000 * 4 CVTUSR BIT(1), /* TRACE=USR SPECIFIED. 0075 00623000 * USER-REQUESTED TRACE DATA IS 00624000 * TO BE INCLUDED IN THE TRACE 0075 00625000 * DATA SET. (MDC317) @Z30AP9A*/ 00626000 * 4 CVTRNIO BIT(1), /* GTF IS ACTIVE AND TRACING RNIO 00627000 * EVENTS MDC187 */ 00628000 * 4 CVTRSV27 BIT(1), /* RESERVED */ 00629000 * 3 CVTGTFA PTR(24), /* ADDRESS OF THE MONITOR CALL 0075 00630000 * VECTOR TABLE (OS/VS1) ADDRESS 00631000 * OF MAIN MONITOR CALL ROUTING 00632000 * TABLE, MCHEAD (OS/VS2) MDC156 */ 00633000 * 2 CVTAQAVT PTR(31), /* ADDRESS OF THE FIRST WORD OF 00634000 * THE TCAM DISPATCHER WHICH 0075 00635000 * CONTAINS THE ADDRESS OF THE 0075 00636000 * ADDRESS VECTOR TABLE (AVT). IF 00637000 * ZERO, TCAM IS NOT STARTED */ 00638000 * 3 CVTTCMFG CHAR(1), /* TCAM FLAGS */ 00639000 * 4 CVTTCRDY BIT(1), /* TCAM IS READY TO ACCEPT USERS */ 00640000 * 4 CVTRSV28 BIT(1), /* RESERVED */ 00641000 * 4 CVTRSV29 BIT(1), /* RESERVED */ 00642000 * 4 CVTRSV30 BIT(1), /* RESERVED */ 00643000 * 4 CVTRSV31 BIT(1), /* RESERVED */ 00644000 * 4 CVTRSV32 BIT(1), /* RESERVED */ 00645000 * 4 CVTRSV33 BIT(1), /* RESERVED */ 00646000 * 4 CVTRSV34 BIT(1), /* RESERVED */ 00647000 * 3 CVTAQAVB PTR(24), /* SAME AS CVTAQAVT ABOVE */ 00648000 * 2 CVTVOLM2 PTR(31), /* ADDRESS OF TABLE FOR POWER 0075 00649000 * WARNING FEATURE (PWF) (OS/VS2) 00650000 * (MDC308) @Z30AQ9A*/ 00651000 * 3 CVTTATA PTR(31), /* ADDRESS OF THE FIRST ENTRY IN 00652000 * THE TCB ADDRESS TABLE. THE 0075 00653000 * FIRST ENTRY IS FOR PARTITION 00654000 * 0. (OS/VS1) */ 00655000 * 4 CVTTSKS PTR(8), /* MAXIMUM ALLOWABLE NUMBER OF 0075 00656000 * ENTRIES IN THE TCB ADDRESS 0075 00657000 * TABLE (OS/VS1) */ 00658000 * 5 CVTVOLF2 BIT(8), /* PWF FLAG BYTE. THIS BYTE IS 0075 00659000 * OVERLAID BY CVTVOLM2 AFTER PWF 00660000 * INITIALIZATION. (OS/VS2) 0075 00661000 * (MDC309) @Z30AQ9A*/ 00662000 * 6 CVTVOLI2 BIT(1), /* PWF INITIALIZATION HAS NOT 0075 00663000 * OCCURRED (OS/VS2) (MDC310) 0075 00664000 * @Z30AQ9A*/ 00665000 * 4 CVTTAT PTR(24), /* SAME AS CVTTATA ABOVE */ 00666000 * 5 CVTVOLT2 PTR(24), /* PWF RECHECK TIME DELAY. THIS 00667000 * VALUE IS OVERLAID BY CVTVOLM2 00668000 * AFTER PWF INITIALIZATION. 0075 00669000 * (OS/VS2) (MDC311) @Z30AQ9A*/ 00670000 * 2 CVTATER PTR(31), /* ADDRESS OF THE SYSTEM ERROR 0075 00671000 * TCB. THE PURGE ROUTINE USES 0075 00672000 * THIS FIELD TO ACCESS THE SIRB. 00673000 * (OS/VS1) ICB346 */ 00674000 * 3 CVTSYST PTR(8), /* NUMBER OF ENTRIES IN THE TCB 00675000 * ADDRESS TABLE FOR TCB'S 0075 00676000 * CREATED DURING SYSTEM 0075 00677000 * GENERATION (OS/VS1) */ 00678000 * 3 CVTATERA PTR(24), /* SAME AS CVTATER ABOVE */ 00679000 * 2 CVTEXT1 PTR(31), /* ADDRESS OF OS - OS/VS COMMON 00680000 * EXTENSION ICB421 */ 00681000 * 2 CVTCBSP PTR(31), /* ADDRESS OF ACCESS METHOD 0075 00682000 * CONTROL BLOCK STRUCTURE MDC195*/ 00683000 * 2 CVTPURG PTR(31), /* ADDRESS OF SUBSYSTEM PURGE 0075 00684000 * ROUTINE ICB330 */ 00685000 * 3 CVTRSV35 PTR(8), /* RESERVED ICB330 */ 00686000 * 3 CVTPURGA PTR(24), /* ADDRESS OF SUBSYSTEM PURGE 0075 00687000 * ROUTINE ICB330 */ 00688000 * 2 CVTAMFF CHAR(4), /* RESERVED FOR ACCESS METHOD 0075 00689000 * FLAGS ICB436 */ 00690000 * 2 CVTQMSG PTR(31), /* ADDRESS OF INFORMATION TO BE 00691000 * PRINTED BY ABEND ICB307 */ 00692000 * 3 CVTRSV36 PTR(8), /* RESERVED ICB307 */ 00693000 * 3 CVTQMSGA PTR(24), /* ADDRESS OF INFORMATION TO BE 00694000 * PRINTED BY ABEND ICB307 */ 00695000 * 2 CVTDMSR PTR(31), /* SAME AS CVTDMSRA BELOW ICB346 */ 00696000 * 3 CVTRSV37 PTR(8), /* RESERVED ICB346 */ 00697000 * 3 CVTDMSRA PTR(24), /* ADDRESS OF THE OPEN/CLOSE/EOV 00698000 * SUPERVISORY ROUTINE IN THE 0075 00699000 * NUCLEUS. THIS ROUTINE HANDLES 00700000 * THE ROUTING OF CONTROL AMONG 00701000 * THE I/O SUPPORT ROUTINES. 0075 00702000 * ICB346 */ 00703000 * 2 CVTRSV38 PTR(31), /* RESERVED */ 00704000 * 2 CVTRSV39 PTR(31), /* RESERVED */ 00705000 */* OS/VS1 - OS/VS2 COMMON SECTION */ 00706000 * 0075 00707000 * 2 CVTREAL PTR(31), /* ADDRESS OF THE VIRTUAL STORAGE 00708000 * BYTE FOLLOWING THE HIGHEST 0075 00709000 * VIRTUAL=REAL STORAGE ADDRESS 00710000 * ICB368 */ 00711000 * 2 CVTPTRV PTR(31), /* ADDRESS OF PAGING SUPERVISOR 00712000 * GENERAL ROUTINE TO TRANSLATE 00713000 * REAL ADDRESSES TO VIRTUAL 0075 00714000 * ADDRESSES */ 00715000 * 2 CVTMODE PTR(31), /* ADDRESS OF ROUTINE TO CHANGE 00716000 * SYSTEM MASK (OS/VS1) (MDC217) 00717000 * YM4244*/ 00718000 * 2 CVTJESCT PTR(31), /* ADDRESS OF JOB ENTRY SUBSYSTEM 00719000 * (JES) CONTROL TABLE */ 00720000 * 2 CVTJEPS PTR(31), /* ADDRESS OF JOB ENTRY 0075 00721000 * PERIPHERAL SERVICES (JEPS) 0075 00722000 * MONITOR TCB (OS/VS1) YM2702*/ 00723000 * 2 CVTTZ FIXED(31), /* DIFFERENCE BETWEEN LOCAL TIME 00724000 * AND GREENWICH MEAN TIME IN 0075 00725000 * BINARY UNITS OF 1.048576 0075 00726000 * SECONDS */ 00727000 * 2 CVTMCHPR PTR(31), /* ADDRESS OF MACHINE CHECK 0075 00728000 * PARAMETER LIST */ 00729000 * 2 CVTEORM PTR(31), /* HIGHEST REAL ADDRESS IN MAIN 00730000 * STORAGE (OS/VS1) POTENTIAL 0075 00731000 * REAL HIGH STORAGE ADDRESS 0075 00732000 * (OS/VS2) MDC087 */ 00733000 * 2 CVTERPV PTR(31), /* ADDRESS OF I/O SUPERVISOR 0075 00734000 * SUBROUTINE TO CONVERT CCW DATA 00735000 * ADDRESSES TO VIRTUAL ADDRESSES 00736000 * (OS/VS1) (MDC219) YM4043*/ 00737000 * 3 CVTRV517 PTR(31), /* ** CVTERPV FIELD UNUSED IN 0075 00738000 * OS/VS2 RELEASE 2 ** (MDC219) 00739000 * YM4043*/ 00740000 * 2 CVTINTLA PTR(31), /* ADDRESS OF A TIME INTERVAL. 0075 00741000 * I/O LOAD BALANCING COUNTS THE 00742000 * NUMBER OF EXCP'S ISSUED DURING 00743000 * THIS TIME INTERVAL AND USES 0075 00744000 * THE VALUE IN DETERMINING THE 00745000 * AMOUNT OF I/O ACTIVITY IN THE 00746000 * SYSTEM. (OS/VS1) (MDC220) 0075 00747000 * YM4043*/ 00748000 * 3 CVTRV518 PTR(31), /* ** CVTINTLA FIELD UNUSED IN 0075 00749000 * OS/VS2 RELEASE 2 ** (MDC220) 00750000 * YM4043*/ 00751000 * 2 CVTAPF PTR(31), /* SAME AS CVTAPFA BELOW ICB360 */ 00752000 * 3 CVTRSV40 PTR(8), /* RESERVED ICB360 */ 00753000 * 3 CVTAPFA PTR(24), /* ADDRESS OF BRANCH ENTRY POINT 00754000 * IN AUTHORIZED PROGRAM FACILITY 00755000 * (APF) ROUTINE */ 00756000 * 2 CVTEXT2 PTR(31), /* ADDRESS OF OS/VS1 - OS/VS2 0075 00757000 * COMMON EXTENSION ICB330 */ 00758000 * 3 CVTRSV41 PTR(8), /* RESERVED ICB330 */ 00759000 * 3 CVTEXT2A PTR(24), /* SAME AS CVTEXT2 ABOVE ICB330 */ 00760000 * 2 CVTHJES PTR(31), /* SAME AS CVTHJESA BELOW ICB454 */ 00761000 * 3 CVTRSV42 PTR(8), /* RESERVED ICB454 */ 00762000 * 3 CVTHJESA PTR(24), /* ADDRESS OF OPTIONAL JOB ENTRY 00763000 * SUBSYSTEM (JES) COMMUNICATION 00764000 * VECTOR TABLE ICB454 */ 00765000 * 2 CVTRSV43 FIXED(15), /* RESERVED */ 00766000 * 2 CVTRSV44 FIXED(15), /* RESERVED */ 00767000 * 2 CVTRSV45 PTR(31), /* RESERVED */ 00768000 * 2 CVTRSV46 PTR(31), /* RESERVED */ 00769000 */* OS/VS1 OVERLAY */ 00770000 * 0075 00771000 * 2 CVTPGSIA PTR(31), /* ADDRESS OF PAGING SUPERVISOR 00772000 * INFORMATION AREA */ 00773000 * 2 CVTPCVT PTR(31), /* ADDRESS OF PAGED CVT EXTENSION*/ 00774000 * 2 CVTA1F1 CHAR(1), /* PAGE FAULT FLAGS */ 00775000 * 3 CVTPFSW BIT(1), /* ONLY THE PAGING TASK MAY BE 0075 00776000 * DISPATCHED */ 00777000 * 3 CVTSRSW BIT(1), /* NO TASK EXCEPT THE PAGING TASK 00778000 * MAY EXECUTE DISABLED CODE */ 00779000 * 3 CVTRSV47 BIT(1), /* RESERVED */ 00780000 * 3 CVTRSV48 BIT(1), /* RESERVED */ 00781000 * 3 CVTRSV49 BIT(1), /* RESERVED */ 00782000 * 3 CVTRSV50 BIT(1), /* RESERVED */ 00783000 * 3 CVTRSV51 BIT(1), /* RESERVED */ 00784000 * 3 CVTRSV52 BIT(1), /* RESERVED */ 00785000 * 2 CVTSYSK CHAR(1), /* SYSTEM LOCK. IF NOT ZERO, ONLY 00786000 * THE PAGING TASK MAY BE 0075 00787000 * DISPATCHED */ 00788000 * 3 CVTRSV53 BIT(1), /* RESERVED */ 00789000 * 3 CVTRSV54 BIT(1), /* RESERVED */ 00790000 * 3 CVTRSV55 BIT(1), /* RESERVED */ 00791000 * 3 CVTRSV56 BIT(1), /* RESERVED */ 00792000 * 3 CVTSLKR BIT(1), /* MACHINE CHECK HANDLING IS IN 00793000 * PROGRESS ICB320 */ 00794000 * 3 CVTSLKQ BIT(1), /* SYSTEM QUEUE AREA (SQA) HAS 0075 00795000 * BEEN EXHAUSTED */ 00796000 * 3 CVTSLKP BIT(1), /* LAST PAGING CONTROL BLOCK 0075 00797000 * (PCB) HAS BEEN USED */ 00798000 * 3 CVTSLKO BIT(1), /* A ROUTINE RUNNING DISABLED HAS 00799000 * PRODUCED A PAGE FAULT */ 00800000 * 2 CVTSULK FIXED(15), /* SUPERVISOR LOCK. NUMBER OF 0075 00801000 * TASKS ATTEMPTING TO EXECUTE 0075 00802000 * DISABLED ROUTINES. IF NOT 0075 00803000 * ZERO, ONLY ENABLED TASKS MAY 00804000 * RUN. */ 00805000 * 2 CVTSMF PTR(31), /* ADDRESS OF SYSTEM MANAGEMENT 00806000 * FACILITIES (SMF) TCB ICB395 */ 00807000 * 2 CVTPNWFR PTR(31), /* ADDRESS OF ROUTINE WHICH FREES 00808000 * THE 'EMERGENCY' WORK AREA 0075 00809000 * (ICB413) XM2452*/ 00810000 * 2 CVTDDCE PTR(31), /* ADDRESS OF DYNAMIC DISPATCHING 00811000 * CONTROL ELEMENT ICB466 */ 00812000 * 2 CVTRSV57 FIXED(15), /* RESERVED */ 00813000 * 2 CVTRSV58 FIXED(15), /* RESERVED */ 00814000 * 2 CVTSTOA FIXED(31), /* SAVE AREA FOR THE REAL STORAGE 00815000 * ADDRESS OF THE SEGMENT TABLE 00816000 * ORIGIN ICB496 */ 00817000 * 2 CVTVOLM1 PTR(31), /* ADDRESS OF TABLE FOR POWER 0075 00818000 * WARNING FEATURE (PWF) (MDC312) 00819000 * @X04AQ9A*/ 00820000 * 3 CVTVOLF1 BIT(8), /* PWF FLAG BYTE. THIS BYTE IS 0075 00821000 * OVERLAID BY CVTVOLM1 AFTER PWF 00822000 * INITIALIZATION. (MDC313) 0075 00823000 * @X04AQ9A*/ 00824000 * 4 CVTVOLI1 BIT(1), /* PWF INITIALIZATION HAS NOT 0075 00825000 * OCCURRED (MDC314) @X04AQ9A*/ 00826000 * 3 CVTVOLT1 PTR(24), /* PWF RECHECK TIME DELAY. THIS 00827000 * VALUE IS OVERLAID BY CVTVOLM1 00828000 * AFTER PWF INITIALIZATION. 0075 00829000 * (MDC315) @X04AQ9A*/ 00830000 * 2 CVTRSV61 PTR(31), /* RESERVED */ 00831000 * 2 CVTATMCT PTR(31), /* POINTER TO VTAM CONTROL TABLE 00832000 * MDC082 */ 00833000 * 3 CVTATMST CHAR(1), /* VTAM START STATUS MDC135 */ 00834000 * 3 CVTATMCA PTR(24), /* POINTER TO VTAM CONTROL TABLE 00835000 * MDC138 */ 00836000 * 2 CVTAUTH PTR(31), /* POINTER TO AUTHORIZED LIBRARY 00837000 * TABLE MDC188 */ 00838000 * 2 CVTACTAP PTR(31), /* ADDRESS OF BRANCH ENTRY TO 0075 00839000 * VTAM'S SVC ROUTINE ISTAPC42 0075 00840000 * (MDC216) @X31BH9A*/ 00841000 * 2 CVTRV485 PTR(31), /* RESERVED MDC106 */ 00842000 * 2 CVTRV486 PTR(31), /* RESERVED MDC106 */ 00843000 * 2 CVTRV487 PTR(31), /* RESERVED MDC106 */ 00844000 * 2 CVTRV488 PTR(31); /* RESERVED MDC106 */ 00845000 */* OS/VS2 OVERLAY */ 00846000 * 0076 00847000 * DECLARE 0076 00848000 * 1 CVTS01 DEF(CVTPGSIA) BDY(WORD), 0076 00849000 * 2 CVTGETL PTR(31), /* ADDRESS OF IKJGETL, TSO GET 0076 00850000 * LINE ROUTINE (MDC206) YM2225*/ 00851000 * 2 CVTLPDSR PTR(31), /* ADDRESS OF LINK PACK AREA 0076 00852000 * (LPA) DIRECTORY SEARCH ROUTINE*/ 00853000 * 2 CVTPVTP PTR(31), /* ADDRESS OF PAGE VECTOR TABLE */ 00854000 * 2 CVTLPDIA PTR(31), /* ADDRESS OF LINK PACK AREA 0076 00855000 * (LPA) DIRECTORY (ON PAGE 0076 00856000 * BOUNDARY) */ 00857000 * 3 CVTDIRST CHAR(1), /* FLAG BYTE */ 00858000 * 4 CVTDICOM BIT(1), /* LPA DIRECTORY HAS BEEN 0076 00859000 * INITIALIZED BY NIP */ 00860000 * 4 CVTRSV63 BIT(1), /* RESERVED */ 00861000 * 4 CVTRSV64 BIT(1), /* RESERVED */ 00862000 * 4 CVTRSV65 BIT(1), /* RESERVED */ 00863000 * 4 CVTRSV66 BIT(1), /* RESERVED */ 00864000 * 4 CVTRSV67 BIT(1), /* RESERVED */ 00865000 * 4 CVTRSV68 BIT(1), /* RESERVED */ 00866000 * 4 CVTRSV69 BIT(1), /* RESERVED */ 00867000 * 3 CVTLPDIR PTR(24), /* ADDRESS OF LPA DIRECTORY. ON 00868000 * PAGE BOUNDARY */ 00869000 * 2 CVTRV320 PTR(31), /* ** CVTPAGE1 FIELD UNUSED IN 0076 00870000 * OS/VS2 REL 2 ** MDC112 */ 00871000 * 2 CVTRV321 PTR(31), /* ** CVTPGSUP FIELD UNUSED IN 0076 00872000 * OS/VS2 REL 2 ** MDC113 */ 00873000 * 2 CVTSLIDA CHAR(4) BDY(WORD),/* IDENTITY OF TCB CAUSING 0076 00874000 * SUPERVISOR LOCK BYTE (CVTSYLK) 00875000 * TO BE SET OR IDENTITY OF TCB 00876000 * THAT SECOND EXIT PROCESSING IS 00877000 * FOR WHEN CVTSEIC=1 */ 00878000 * 3 CVTSYLK CHAR(1), /* SUPERVISOR LOCK. ONLY ENABLED 00879000 * TASKS MAY BE DISPATCHED */ 00880000 * 3 CVTSLID CHAR(3), /* SAME AS CVTSLIDA ABOVE */ 00881000 * 2 CVTRV322 PTR(31), /* ** CVTSER AND SUBFIELDS UNUSED 00882000 * IN OS/VS2 REL 2 ** 0076 00883000 * MDC114-MDC117 */ 00884000 * 2 CVTRV328 PTR(31), /* ** CVTSEG AND CVTSEGA FIELDS 00885000 * UNUSED IN OS/VS2 REL 2 ** 0076 00886000 * MDC139-MDC140 */ 00887000 * 2 CVTRV329 PTR(31), /* ** CVTSEGB FIELD UNUSED IN 0076 00888000 * OS/VS2 REL 2 ** MDC141 */ 00889000 * 2 CVTRV330 PTR(31), /* ** CVTSEGC AND SUBFIELDS 0076 00890000 * UNUSED IN OS/VS2 REL 2 ** 0076 00891000 * MDC142-MDC144 */ 00892000 * 2 CVTRV331 PTR(31), /* ** CVTSEGD AND SUBFIELDS 0076 00893000 * UNUSED IN OS/VS2 REL 2 ** 0076 00894000 * MDC145-MDC147 */ 00895000 * 2 CVTRSV77 PTR(8), /* RESERVED */ 00896000 * 2 CVTSPVLK PTR(8), /* NUMBER OF TASKS WHICH HAVE 0076 00897000 * TERMINATED WHILE OWNING 0076 00898000 * SUPERVISOR LOCK WITHOUT 0076 00899000 * OPERATOR HAVING YET BEEN 0076 00900000 * NOTIFIED */ 00901000 * 2 CVTCTLFG CHAR(1), /* SYSTEM CONTROL FLAGS */ 00902000 * 3 CVTRV323 BIT(1), /* ** CVTPSIC BIT UNUSED IN 0076 00903000 * OS/VS2 REL 2 ** MDC118 */ 00904000 * 3 CVTRV333 BIT(1), /* ** CVTAPGB BIT UNUSED IN 0076 00905000 * OS/VS2 REL 2 ** MDC151 */ 00906000 * 3 CVTRSV78 BIT(1), /* RESERVED ICB382 */ 00907000 * 3 CVTDSTAT BIT(1), /* DEVSTAT OPTION IN EFFECT. 0076 00908000 * DEVICE ADDRESS FOR 2319, 3330, 00909000 * 2314, 3330-1, 3340 CAN VARY 0076 00910000 * ACROSS SYSTEMS MDC189 */ 00911000 * 3 CVTRSV79 BIT(1), /* RESERVED */ 00912000 * 3 CVTNOMP BIT(1), /* MULTIPROCESSING CODE IS NOT IN 00913000 * THE SYSTEM MDC176 */ 00914000 * 3 CVTGTRCE BIT(1), /* GENERALIZED TRACE FACILITY 0076 00915000 * (GTF) HAS SUPPRESSED 0076 00916000 * SUPERVISOR TRACE ICB446 */ 00917000 * 3 CVTSDTRC BIT(1), /* SVC DUMP HAS SUPPRESSED 0076 00918000 * SUPERVISOR TRACE ICB446 */ 00919000 * 2 CVTAPG CHAR(1), /* DISPATCHING PRIORITY OF 0076 00920000 * AUTOMATIC PRIORITY GROUP (APG) 00921000 * ICB339 */ 00922000 * 2 CVTTRACE CHAR(2) BDY(WORD),/* BRANCH ON REGISTER 0076 00923000 * INSTRUCTION. SET BY NIP. 0076 00924000 * REGISTER TEN FOR TRACE. 0076 00925000 * REGISTER ELEVEN FOR NO TRACE. */ 00926000 * 2 CVTTRAC2 CHAR(2) BDY(WORD,3),/* BRANCH ON REGISTER 11 0076 00927000 * INSTRUCTION. THIS ALLOWS FOR 00928000 * SUPPRESSING TRACE DYNAMICALLY 00929000 * BY SETTING CONDITION CODE MASK 00930000 * TO ZERO IN FIRST INSTRUCTION 00931000 * (CVTTRACE) */ 00932000 * 2 CVTRSCN PTR(31), /* ADDRESS OF ROUTINE TO SCAN TCB 00933000 * TREE */ 00934000 * 2 CVTTAS PTR(31), /* ADDRESS OF ROUTINE TO TRANSFER 00935000 * ADDRESS SPACE */ 00936000 * 2 CVTRV332 PTR(31), /* ** CVTPVALD FIELD UNUSED IN 0076 00937000 * OS/VS2 REL 2 ** MDC148 */ 00938000 * 2 CVTSHRVM PTR(31), /* LOWEST ADDRESS OF SHARED 0076 00939000 * VIRTUAL STORAGE AREA. THIS 0076 00940000 * ADDRESS WILL BE THE BEGINNING 00941000 * OF THE COMMON SERVICE AREA 0076 00942000 * (CSA) (MDC324) @Z30AQ9A*/ 00943000 * 2 CVT0VL01 PTR(31), /* ENTRY POINT ADDRESS OF 0076 00944000 * VALIDITY CHECK ROUTINE 0076 00945000 * (IEA0VL01) USED TO COMPARE 0076 00946000 * PROTECT KEY OF AN ADDRESS WITH 00947000 * TCB PROTECT KEY. */ 00948000 * 2 CVTRV324 PTR(31), /* ** CVTPFIXQ FIELD UNUSED IN 0076 00949000 * OS/VS2 REL 2 ** MDC119 */ 00950000 * 2 CVTRV325 PTR(31), /* ** CVTPFIXR FIELD UNUSED IN 0076 00951000 * OS/VS2 REL 2 ** MDC120 */ 00952000 * 2 CVTRV326 PTR(31), /* ** CVTPFIXP FIELD UNUSED IN 0076 00953000 * OS/VS2 REL 2 ** MDC121 */ 00954000 * 2 CVTRV327 PTR(31), /* ** CVTPTCD FIELD UNUSED IN 0076 00955000 * OS/VS2 REL 2 ** MDC122 */ 00956000 * 2 CVTRV519 PTR(31), /* ** CVTSYSWT FIELD UNUSED IN 0076 00957000 * OS/VS2 RELEASE 2 ** (MDC221) 00958000 * YM4043*/ 00959000 * 2 CVTPUTL PTR(31), /* ADDRESS OF IKJPUTL, TSO PUT 0076 00960000 * LINE ROUTINE (MDC207) YM2225*/ 00961000 * 2 CVTSRBRT PTR(31), /* DISPATCHER RETURN ADDRESS FOR 00962000 * SRB ROUTINES MDC130 */ 00963000 * 2 CVTOLT0A PTR(31), /* BRANCH ENTRY TO OLTEP MEMORY 00964000 * TERMINATION RESOURCE MANAGER 00965000 * MDC129 */ 00966000 * 2 CVTSMFEX PTR(31), /* BRANCH ENTRY TO SYSTEM 0076 00967000 * MANAGEMENT FACILITIES (SMF) 0076 00968000 * EXCP COUNTING ROUTINE FOR VAM 00969000 * WINDOW INTERCEPT MDC133 */ 00970000 * 2 CVTCSPIE PTR(31), /* FOR CHECKPOINT/RESTART, BRANCH 00971000 * ENTRY TO SPIE MDC149 */ 00972000 * 2 CVTPTGT PTR(31), /* ADDRESS OF IKJPTGT, TSO PUTGET 00973000 * ROUTINE (MDC208) YM2225*/ 00974000 * 2 CVTIOSPL PTR(8), /* PRIORITY LEVEL OF I/O 0076 00975000 * SUPERVISOR CHANNEL SCHEDULER 00976000 * MDC019 */ 00977000 * 2 CVTRV513 CHAR(1), /* RESERVED MDC165 */ 00978000 * 2 CVTDSSAC CHAR(1), /* DYNAMIC SUPPORT SYSTEM (DSS) 00979000 * ACTIVATED FLAG - USED BY 0076 00980000 * RESTART FLIH. IF X'00', DSS 0076 00981000 * NOT INITIALIZED. IF X'FF', DSS 00982000 * HAS BEEN INITIALIZED. MDC163 */ 00983000 * 2 CVTRV139 PTR(8), /* RESERVED */ 00984000 * 2 CVTSTCK PTR(31), /* ADDRESS OF IKJSTCK, TSO STACK 00985000 * ROUTINE (MDC209) YM2225*/ 00986000 * 2 CVTMAXMP PTR(15), /* FOR MEASUREMENT FACILITY 0076 00987000 * (MF/1), MAXIMUM PHYSICAL CPU 00988000 * ADDRESS SUPPORTED BY THIS 0076 00989000 * RELEASE MDC165 */ 00990000 * 2 CVTRV144 FIXED(15), /* RESERVED */ 00991000 * 2 CVTSCAN PTR(31), /* ADDRESS OF IKJSCAN, TSO SCAN 00992000 * ROUTINE (MDC210) YM2225*/ 00993000 * 2 CVTAUTHL PTR(31), /* POINTER TO AUTHORIZED LIBRARY 00994000 * TABLE MDC001 */ 00995000 * 2 CVTBLDCP PTR(31), /* BRANCH ENTRY TO BUILD POOL 0076 00996000 * MDC003 */ 00997000 * 2 CVTGETCL PTR(31), /* BRANCH ENTRY TO GET CELL 0076 00998000 * MDC004 */ 00999000 * 2 CVTFRECL PTR(31), /* BRANCH ENTRY TO FREE CELL 0076 01000000 * MDC005 */ 01001000 * 2 CVTDELCP PTR(31), /* BRANCH ENTRY TO DELETE POOL 0076 01002000 * MDC006 */ 01003000 * 2 CVTCRMN PTR(31), /* BRANCH ENTRY TO SVC 120 0076 01004000 * (GETMAIN/FREEMAIN:CRBRANCH) 0076 01005000 * MDC007 */ 01006000 * 2 CVTCRAS PTR(31), /* BRANCH ENTRY TO 'CREATE 0076 01007000 * ADDRESS SPACE' MDC008 */ 01008000 * 2 CVTQSAS PTR(31), /* BRANCH ENTRY TO TASK 0076 01009000 * TERMINATION MDC009 */ 01010000 * 2 CVTFRAS PTR(31), /* BRANCH ENTRY TO FREE ADDRESS 01011000 * SPACE MDC010 */ 01012000 * 2 CVTS1EE PTR(31), /* BRANCH ENTRY TO STAGE 1 EXIT 01013000 * EFFECTOR MDC011 */ 01014000 * 2 CVTPARS PTR(31), /* ADDRESS OF IKJPARS, TSO PARSE 01015000 * ROUTINE (MDC211) YM2225*/ 01016000 * 2 CVTQUIS PTR(31), /* BRANCH ENTRY TO QUIESCE MDC013*/ 01017000 * 2 CVTSTXU PTR(31), /* BRANCH ENTRY TO ATTENTION EXIT 01018000 * EPILOGUE MDC014 */ 01019000 * 2 CVTOPTE PTR(31), /* BRANCH ENTRY ADDRESS TO 0076 01020000 * SYSEVENT MDC015 */ 01021000 * 2 CVTSDRM PTR(31), /* BRNACH ENTRY ADDRESS OF THE 0076 01022000 * RESOURCE MANAGER ROUTINE FOR 01023000 * SVC DUMP. THIS ROUTINE CAN BE 01024000 * INVOKED BY MEMORY TERMINATION 01025000 * MDC077 */ 01026000 * 2 CVTIOSCS PTR(31), /* ENTRY POINT OF I/O SUPERVISOR 01027000 * CHANNEL SCHEDULER MDC018 */ 01028000 * 2 CVTAQTOP PTR(31), /* POINTER TO AREA CONTAINING 0076 01029000 * QUIESCE DESCRIPTOR BLOCK 0076 01030000 * (QDB'S) FOR DEVICE ALLOCATION 01031000 * MDC021 */ 01032000 * 2 CVTVVMDI PTR(31), /* CONSTANT USED BY PAGED LINK 0076 01033000 * PACK AREA (LPA) DIRECTORY 0076 01034000 * SEARCH ALGORITHM MDC022 */ 01035000 * 2 CVTASVT PTR(31), /* POINTER TO ADDRESS SPACE 0076 01036000 * VECTOR TABLE (ASVT) MDC070 */ 01037000 * 2 CVTGDA PTR(31), /* POINTER TO GLOBAL DATA AREA 0076 01038000 * (GDA) IN SQA MDC024 */ 01039000 * 2 CVTASCBH PTR(31), /* POINTER TO HIGHEST PRIORITY 0076 01040000 * ADDRESS SPACE CONTROL BLOCK 0076 01041000 * (ASCB) ON THE ASCB DISPATCHING 01042000 * QUEUE (HEAD OF ASCB QUEUE) 0076 01043000 * MDC027 */ 01044000 * 2 CVTASCBL PTR(31), /* POINTER TO LOWEST PRIORITY 0076 01045000 * ASCB ON ASCB DISPATCHING QUEUE 01046000 * MDC028 */ 01047000 * 2 CVTRTMCT PTR(31), /* POINTER TO 0076 01048000 * RECOVERY/TERMINATION CONTROL 01049000 * TABLE MDC031 */ 01050000 * 2 CVTSV60 PTR(31), /* ADDRESS OF SVC 60 BRANCH ENTRY 01051000 * POINT USED BY TYPE 2, 3, 4, 0076 01052000 * SVC'S MDC032 */ 01053000 * 2 CVTSDMP PTR(31), /* ADDRESS OF SVC DUMP BRANCH 0076 01054000 * ENTRY POINT MDC033 */ 01055000 * 2 CVTSCBP PTR(31), /* ADDRESS OF SCB PURGE RESOURCE 01056000 * MANAGER MDC034 */ 01057000 * 2 CVTSDBF PTR(31), /* ADDRESS OF 4K SQA BUFFER USED 01058000 * BY SVC DUMP. HIGH ORDER BIT OF 01059000 * THIS CVT WORD IS USED AS LOCK 01060000 * TO INDICATE BUFFER IS IN USE 01061000 * MDC035 */ 01062000 * 2 CVTRTMS PTR(31), /* RTM1 INTERNAL SERVICABILITY 0076 01063000 * LEVEL INDICATOR MDC036 */ 01064000 * 2 CVTTPIOS PTR(31), /* ADDRESS OF THE TELEPROCESSING 01065000 * I/O SUPERV1SOR ROUTINE (TPIOS) 01066000 * MDC078 */ 01067000 * 2 CVTSIC PTR(31), /* BRANCH ENTRY ADDRESS OF THE 0076 01068000 * ROUTINE TO SCHEDULE SYSTEM 0076 01069000 * INITIALIZED CANCEL MDC042 */ 01070000 * 2 CVTOPCTP PTR(31), /* ADDRESS OF SYSTEM RESOURCES 0076 01071000 * MANAGER (SRM) CONTROL TABLE 0076 01072000 * MDC043 */ 01073000 * 2 CVTEXPRO PTR(31), /* ADDRESS OF EXIT PROLOGUE/TYPE 01074000 * 1 EXIT MDC044 */ 01075000 * 2 CVTGSMQ PTR(31), /* ADDRESS OF GLOBAL SERVICE 0076 01076000 * MANAGER QUEUE MDC045 */ 01077000 * 2 CVTLSMQ PTR(31), /* ADDRESS OF LOCAL SERVICE 0076 01078000 * MANAGER QUEUE MDC046 */ 01079000 * 2 CVTGSPL PTR(31), /* ADDRESS OF GLOBAL SYSTEM 0076 01080000 * PRIORITY LIST QUEUE MDC047 */ 01081000 * 2 CVTVWAIT PTR(31), /* ADDRESS OF WAIT ROUTINE MDC048*/ 01082000 * 2 CVTPARRL PTR(31), /* ADDRESS OF PARTIALLY LOADED 0076 01083000 * DELETE QUEUE MDC049 */ 01084000 * 2 CVTAPFT PTR(31), /* ADDRESS OF AUTHORIZED PROGRAM 01085000 * FACILITY (APF) TABLE. 0076 01086000 * INITIALIZED BY NIP. MDC050 */ 01087000 * 2 CVTQCS01 PTR(31), /* BRANCH ENTRY ADDRESS TO 0076 01088000 * PROGRAM MANAGER USED BY ATTACH 01089000 * MDC051 */ 01090000 * 2 CVTFQCB PTR(31), /* POINTER TO FIRST MAJOR QCB FOR 01091000 * ENQ MDC052 */ 01092000 * 2 CVTLQCB PTR(31), /* POINTER TO LAST MAJOR QCB FOR 01093000 * ENQ MDC053 */ 01094000 * 2 CVTRENQ PTR(31), /* RESOURCE MANAGER ADDRESS FOR 01095000 * ENQ MDC054 */ 01096000 * 2 CVTRSPIE PTR(31), /* RESOURCE MANAGER FOR SPIE 0076 01097000 * MDC055 */ 01098000 * 2 CVTLKRMA PTR(31), /* RESOURCE MANAGER ADDRESS FOR 01099000 * LOCK MANAGER MDC056 */ 01100000 * 2 CVTCSD PTR(31), /* VIRTUAL ADDRESS OF COMMON 0076 01101000 * SYSTEM DATA AREA (CSD). 0076 01102000 * INITIALIZED BY NIP. MDC057 */ 01103000 * 2 CVTDQIQE PTR(31), /* RESOURCE MANAGER FOR EXIT 0076 01104000 * EFFECTORS MDC058 */ 01105000 * 2 CVTRPOST PTR(31), /* RESOURCE MANAGER FOR POST 0076 01106000 * MDC059 */ 01107000 * 2 CVT062R1 PTR(31), /* BRANCH ENTRY TO DETACH MDC060 */ 01108000 * 2 CVTVEAC0 PTR(31), /* ASCBCHAP BRANCH ENTRY MDC061 */ 01109000 * 2 CVTGLMN PTR(31), /* GLOBAL BRANCH ENTRY ADDRESS 0076 01110000 * FOR GETMAIN/FREEMAIN MDC062 */ 01111000 * 2 CVTSPSA PTR(31), /* POINTER TO GLOBAL WORK/SAVE 0076 01112000 * AREA VECTOR TABLE (WSAG) 0076 01113000 * MDC071 */ 01114000 * 2 CVTWSAL PTR(31), /* ADDRESS OF TABLE OF LENGTHS OF 01115000 * LOCAL WORK/SAVE AREAS MDC072 */ 01116000 * 2 CVTRV149 PTR(31), /* RESERVED (MDC073) YM4043*/ 01117000 * 2 CVTWSAC PTR(31), /* ADDRESS OF TABLE OF LENGTHS OF 01118000 * CPU WORK/SAVE AREAS MDC074 */ 01119000 * 2 CVTRECRQ PTR(31), /* ADDRESS OF THE RECORDING 0076 01120000 * REQUEST FACILITY (PART OF RTM1 01121000 * - CALLED BY RTM2 AND RMS) 0076 01122000 * MDC075 */ 01123000 * 2 CVTASMVT PTR(31), /* POINTER TO AUXILIARY STORAGE 01124000 * MANAGEMENT VECTOR TABLE (AMVT) 01125000 * MDC076 */ 01126000 * 2 CVTIOBP PTR(31), /* ADDRESS OF THE BLOCK PROCESSOR 01127000 * CVT MDC079 */ 01128000 * 2 CVTSPOST PTR(31), /* POST RESOURCE MANAGER 0076 01129000 * TERMINATION ROUTINE (RMTR) 0076 01130000 * ENTRY POINT MDC085 */ 01131000 * 2 CVTRSTWD FIXED(31), /* RESTART RESOURCE MANAGEMENT 0076 01132000 * WORD - CONTAINS IDENTIFIER OF 01133000 * USER IF RESTART IS IN USE. 0076 01134000 * OTHERWISE, ZERO. MDC161 */ 01135000 * 2 CVTFETCH PTR(31), /* ADDRESS OF ENTRY POINT FOR 0076 01136000 * BASIC FETCH MDC196 */ 01137000 * 2 CVT044R2 PTR(31), /* ADDRESS OF IGC044R2 IN CHAP 0076 01138000 * SERVICE ROUTINE MDC197 */ 01139000 * 2 CVTPERFM PTR(31), /* ADDRESS OF THE PERFORMANCE 0076 01140000 * WORK AREA. SET BY IGX00018. 0076 01141000 * MDC205 */ 01142000 * 2 CVTDAIR PTR(31), /* ADDRESS OF IKJDAIR, TSO 0076 01143000 * DYNAMIC ALLOCATION INTERFACE 01144000 * ROUTINE (MDC212) YM2225*/ 01145000 * 2 CVTEHDEF PTR(31), /* ADDRESS OF IKJEHDEF, TSO 0076 01146000 * DEFAULT SERVICE ROUTINE 0076 01147000 * (MDC213) YM2225*/ 01148000 * 2 CVTEHCIR PTR(31), /* ADDRESS OF IKJEHCIR, TSO 0076 01149000 * CATALOG INFORMATION ROUTINE 0076 01150000 * (MDC214) YM2225*/ 01151000 * 2 CVTSSAP PTR(31), /* ADDRESS OF SYSTEM SAVE AREA 0076 01152000 * MDC063 */ 01153000 * 2 CVTAIDVT PTR(31), /* POINTER TO APPENDAGE ID VECTOR 01154000 * TABLE MDC064 */ 01155000 * 2 CVTIPCDS PTR(31), /* BRANCH ENTRY FOR DIRECT SIGNAL 01156000 * SERVICE ROUTINE MDC065 */ 01157000 * 2 CVTIPCRI PTR(31), /* BRANCH ENTRY FOR REMOTE 0076 01158000 * IMMEDIATE SIGNAL SERVICE 0076 01159000 * ROUTINE MDC066 */ 01160000 * 2 CVTIPCRP PTR(31), /* BRANCH ENTRY FOR REMOTE 0076 01161000 * PENDABLE SIGNAL SERVICE 0076 01162000 * ROUTINE MDC067 */ 01163000 * 2 CVTPCCAT PTR(31), /* POINTER TO PHYSICAL CCA VECTOR 01164000 * TABLE MDC068 */ 01165000 * 2 CVTLCCAT PTR(31), /* POINTER TO LOGICAL CCA VECTOR 01166000 * TABLE MDC069 */ 01167000 * 2 CVTRV210 BIT(8), /* RESERVED */ 01168000 * 3 CVTRV211 BIT(1), /* RESERVED */ 01169000 * 3 CVTRV212 BIT(1), /* RESERVED */ 01170000 * 3 CVTRV213 BIT(1), /* RESERVED */ 01171000 * 3 CVTRV214 BIT(1), /* RESERVED */ 01172000 * 3 CVTRV215 BIT(1), /* RESERVED */ 01173000 * 3 CVTRV216 BIT(1), /* RESERVED */ 01174000 * 3 CVTRV217 BIT(1), /* RESERVED */ 01175000 * 3 CVTRV218 BIT(1), /* RESERVED */ 01176000 * 2 CVTRV219 BIT(8), /* RESERVED */ 01177000 * 3 CVTRV220 BIT(1), /* RESERVED */ 01178000 * 3 CVTRV221 BIT(1), /* RESERVED */ 01179000 * 3 CVTRV222 BIT(1), /* RESERVED */ 01180000 * 3 CVTRV223 BIT(1), /* RESERVED */ 01181000 * 3 CVTRV224 BIT(1), /* RESERVED */ 01182000 * 3 CVTRV225 BIT(1), /* RESERVED */ 01183000 * 3 CVTRV226 BIT(1), /* RESERVED */ 01184000 * 3 CVTRV227 BIT(1), /* RESERVED */ 01185000 * 2 CVTRV228 BIT(8), /* RESERVED */ 01186000 * 3 CVTRV229 BIT(1), /* RESERVED */ 01187000 * 3 CVTRV230 BIT(1), /* RESERVED */ 01188000 * 3 CVTRV231 BIT(1), /* RESERVED */ 01189000 * 3 CVTRV232 BIT(1), /* RESERVED */ 01190000 * 3 CVTRV233 BIT(1), /* RESERVED */ 01191000 * 3 CVTRV234 BIT(1), /* RESERVED */ 01192000 * 3 CVTRV235 BIT(1), /* RESERVED */ 01193000 * 3 CVTRV236 BIT(1), /* RESERVED */ 01194000 * 2 CVTRV237 BIT(8), /* RESERVED */ 01195000 * 3 CVTRV238 BIT(1), /* RESERVED */ 01196000 * 3 CVTRV239 BIT(1), /* RESERVED */ 01197000 * 3 CVTRV240 BIT(1), /* RESERVED */ 01198000 * 3 CVTRV241 BIT(1), /* RESERVED */ 01199000 * 3 CVTRV242 BIT(1), /* RESERVED */ 01200000 * 3 CVTRV243 BIT(1), /* RESERVED */ 01201000 * 3 CVTRV244 BIT(1), /* RESERVED */ 01202000 * 3 CVTRV245 BIT(1), /* RESERVED */ 01203000 * 2 CVTRV246 PTR(8), /* RESERVED */ 01204000 * 2 CVTRV247 PTR(8), /* RESERVED */ 01205000 * 2 CVTRV248 PTR(8), /* RESERVED */ 01206000 * 2 CVTRV249 PTR(8), /* RESERVED */ 01207000 * 2 CVTRV250 PTR(8), /* RESERVED */ 01208000 * 2 CVTRV251 PTR(8), /* RESERVED */ 01209000 * 2 CVTRV252 PTR(15), /* RESERVED */ 01210000 * 2 CVTRV253 FIXED(15), /* RESERVED */ 01211000 * 2 CVTRV254 FIXED(15), /* RESERVED */ 01212000 * 2 CVTPWI PTR(31), /* ADDRESS OF THE WINDOW 0076 01213000 * INTERCEPT ROUTINE MDC104 */ 01214000 * 2 CVTPVBP PTR(31), /* ADDRESS OF THE VIRTUAL BLOCK 01215000 * PROCESSOR MDC105 */ 01216000 * 2 CVTMFCTL PTR(31), /* POINTER TO MEASUREMENT 0076 01217000 * FACILITY CONTROL BLOCK MDC100 */ 01218000 * 2 CVTMFRTR PTR(31), /* IF MEASUREMENT FACILITY IS 0076 01219000 * ACTIVE, CONTAINS ADDRESS OF 0076 01220000 * MEASUREMENT FACILITY ROUTER. 01221000 * OTHERWISE, ADDRESS OF CVTBRET. 01222000 * MDC101 */ 01223000 * 3 CVTMFACT BIT(1), /* IF ONE, I/O SUPERVISOR AND 0076 01224000 * TIMER SECOND LEVEL INTERRUPT 01225000 * HANDLER HOOKS BRANCH TO 0076 01226000 * MEASUREMENT FACILITY ROUTER 0076 01227000 * MDC102 */ 01228000 * 2 CVTVPSIB PTR(31), /* BRANCH ENTRY TO PAGE SERVICES 01229000 * MDC108 */ 01230000 * 2 CVTVSI PTR(31), /* BRANCH ENTRY TO VAM SERVICES 01231000 * MDC109 */ 01232000 * 2 CVTVFP PTR(31), /* BRANCH ENTRY TO FINDPAGE 0076 01233000 * MDC110 */ 01234000 * 2 CVTRV262 BIT(8), /* RESERVED */ 01235000 * 3 CVTRV263 BIT(1), /* RESERVED */ 01236000 * 3 CVTRV264 BIT(1), /* RESERVED */ 01237000 * 3 CVTRV265 BIT(1), /* RESERVED */ 01238000 * 3 CVTRV266 BIT(1), /* RESERVED */ 01239000 * 3 CVTRV267 BIT(1), /* RESERVED */ 01240000 * 3 CVTRV268 BIT(1), /* RESERVED */ 01241000 * 3 CVTRV269 BIT(1), /* RESERVED */ 01242000 * 3 CVTRV270 BIT(1), /* RESERVED */ 01243000 * 2 CVTRV271 BIT(8), /* RESERVED */ 01244000 * 3 CVTRV272 BIT(1), /* RESERVED */ 01245000 * 3 CVTRV273 BIT(1), /* RESERVED */ 01246000 * 3 CVTRV274 BIT(1), /* RESERVED */ 01247000 * 3 CVTRV275 BIT(1), /* RESERVED */ 01248000 * 3 CVTRV276 BIT(1), /* RESERVED */ 01249000 * 3 CVTRV277 BIT(1), /* RESERVED */ 01250000 * 3 CVTRV278 BIT(1), /* RESERVED */ 01251000 * 3 CVTRV279 BIT(1), /* RESERVED */ 01252000 * 2 CVTRV280 BIT(8), /* RESERVED */ 01253000 * 3 CVTRV281 BIT(1), /* RESERVED */ 01254000 * 3 CVTRV282 BIT(1), /* RESERVED */ 01255000 * 3 CVTRV283 BIT(1), /* RESERVED */ 01256000 * 3 CVTRV284 BIT(1), /* RESERVED */ 01257000 * 3 CVTRV285 BIT(1), /* RESERVED */ 01258000 * 3 CVTRV286 BIT(1), /* RESERVED */ 01259000 * 3 CVTRV287 BIT(1), /* RESERVED */ 01260000 * 3 CVTRV288 BIT(1), /* RESERVED */ 01261000 * 2 CVTRV289 BIT(8), /* RESERVED */ 01262000 * 3 CVTRV290 BIT(1), /* RESERVED */ 01263000 * 3 CVTRV291 BIT(1), /* RESERVED */ 01264000 * 3 CVTRV292 BIT(1), /* RESERVED */ 01265000 * 3 CVTRV293 BIT(1), /* RESERVED */ 01266000 * 3 CVTRV294 BIT(1), /* RESERVED */ 01267000 * 3 CVTRV295 BIT(1), /* RESERVED */ 01268000 * 3 CVTRV296 BIT(1), /* RESERVED */ 01269000 * 3 CVTRV297 BIT(1), /* RESERVED */ 01270000 * 2 CVTRV298 PTR(8), /* RESERVED */ 01271000 * 2 CVTRV299 PTR(8), /* RESERVED */ 01272000 * 2 CVTRV300 PTR(8), /* RESERVED */ 01273000 * 2 CVTRV301 PTR(8), /* RESERVED */ 01274000 * 2 CVTRV302 PTR(15), /* RESERVED */ 01275000 * 2 CVTRV303 PTR(15), /* RESERVED */ 01276000 * 2 CVTRV304 FIXED(15), /* RESERVED */ 01277000 * 2 CVTRV305 FIXED(15), /* RESERVED */ 01278000 * 2 CVTRV306 FIXED(15), /* RESERVED */ 01279000 * 2 CVTRV307 FIXED(15), /* RESERVED */ 01280000 * 2 CVTVIOP PTR(31), /* ENTRY POINT OF PAGE I/O POST 01281000 * MDC111 */ 01282000 * 2 CVTRMBR PTR(31), /* ADDRESS OF REGMAIN BRANCH 0076 01283000 * ENTRY MDC123 */ 01284000 * 2 CVTLFRM PTR(31), /* LIST FORMAT FREEMAIN BRANCH 0076 01285000 * ENTRY POINT MDC124 */ 01286000 * 2 CVTGMBR PTR(31), /* LIST FORMAT GETMAIN BRANCH 0076 01287000 * ENTRY POINT MDC125 */ 01288000 * 2 CVT0TC0A PTR(31), /* ADDRESS OF TASK CLOSE MODULE 01289000 * IFG0TC0A MDC128 */ 01290000 * 2 CVTRLSTG FIXED(31), /* SIZE OF ACTUAL REAL STORAGE 0076 01291000 * ONLINE AT IPL TIME IN 'K'. 0076 01292000 * VALUE PLACED HERE BY IEAVNIP0. 01293000 * MDC153 */ 01294000 * 2 CVTSPFRR PTR(31), /* 'SUPER FRR' ADDRESS (ADDRESS 01295000 * OF FUNCTIONAL RECOVERY ROUTINE 01296000 * ESTABLISHED AT NIP0 TIME TO 0076 01297000 * PROTECT SUPERVISOR CONTROL 0076 01298000 * PROGRAM) MDC154 */ 01299000 * 2 CVTVEMS0 PTR(31), /* ADDRESS OF MEMORY SWITCH 0076 01300000 * ROUTINE MDC155 */ 01301000 * 2 CVTJRECM PTR(31), /* ADDRESS OF SUBSYSTEM INTERFACE 01302000 * RESOURCE MANAGER MDC157 */ 01303000 * 2 CVTIRECM PTR(31), /* ADDRESS OF INITIATOR RESOURCE 01304000 * MANAGER MDC158 */ 01305000 * 2 CVTDARCM PTR(31), /* ADDRESS OF DEVICE ALLOCATION 01306000 * RESOURCE MANAGER MDC159 */ 01307000 * 2 CVT0PT02 PTR(31), /* ADDRESS OF POST ENTRY POINT 0076 01308000 * IEA0PT02 MDC160 */ 01309000 * 2 CVTSTPRS PTR(31), /* ENTRY POINT OF STOP AND 0076 01310000 * RESTART SUBROUTINE MDC162 */ 01311000 * 2 CVTWTCB PTR(31), /* ADDRESS OF WAIT STATE TCB 0076 01312000 * MDC164 */ 01313000 * 2 CVTVACR PTR(31), /* ACR/VARY CPU CHANNEL RECOVERY 01314000 * ROUTINE ADDRESS. ADDRESS 0076 01315000 * FILLED IN BY VARY CPU 0076 01316000 * PROCESSOR. MDC178 */ 01317000 * 2 CVTQUIT PTR(31), /* VARY CPU SHUTDOWN ROUTINE 0076 01318000 * ADDRESS. ADDRESS FILLED IN BY 01319000 * VARY CPU PROCESSOR. MDC179 */ 01320000 * 2 CVTGTFR8 PTR(31), /* GENERALIZED TRACE FACILITY 0076 01321000 * (GTF) CONTROL REGISTER 8 0076 01322000 * INITIALIZATION ROUTINE ADDRESS 01323000 * MDC180 */ 01324000 * 2 CVTVSTOP PTR(31), /* ADDRESS OF VARY CPU STOP CPU 01325000 * ROUTINE MDC169 */ 01326000 * 2 CVTVPSA PTR(31), /* ADDRESS OF COPY OF SYSGEN'ED 01327000 * PSA - PLACED HERE BY NIP 0076 01328000 * MDC170 */ 01329000 * 2 CVTRMPTT PTR(31), /* ADDRESS OF ISTRAMA1, THE VTAM 01330000 * RESOURCE MANAGER FOR NORMAL 0076 01331000 * AND ABNORMAL TASK TERMINATION 01332000 * (MDC322) @Z30AP9A*/ 01333000 * 2 CVTRMPMT PTR(31), /* ADDRESS OF ISTRAMA2, THE VTAM 01334000 * RESOURCE MANAGER FOR NORMAL 0076 01335000 * AND ABNORMAL MEMORY 0076 01336000 * TERMINATION (MDC323) @Z30AP9A*/ 01337000 * 2 CVTEXP1 PTR(31), /* ADDRESS OF EXIT PROLOGUE WHICH 01338000 * RETURNS TO THE DISPATCHER 0076 01339000 * MDC173 */ 01340000 * 2 CVTCSDRL PTR(31), /* REAL ADDRESS OF COMMON SYSTEM 01341000 * DATA AREA (CSD). INITIALIZED 01342000 * BY NIP. MDC174 */ 01343000 * 2 CVTSSRB PTR(31), /* STATUS STOP SRB ENTRY MDC175 */ 01344000 * 2 CVTRPT PTR(31), /* ADDRESS OF IGARPT01 MODULE OF 01345000 * RADIX PARTITION TREE SERVICES. 01346000 * INITIALIZED BY NIP. MDC177 */ 01347000 * 2 CVTQV1 PTR(31), /* ADDRESS OF QUEUE VERIFICATION 01348000 * FOR SINGLE THREADED QUEUES 0076 01349000 * WITH HEADERS ONLY MDC181 */ 01350000 * 2 CVTQV2 PTR(31), /* ADDRESS OF QUEUE VERIFICATION 01351000 * FOR SINGLE THREADED QUEUES 0076 01352000 * WITH HEADER AND TRAILER MDC182*/ 01353000 * 2 CVTQV3 PTR(31), /* ADDRESS OF QUEUE VERIFICATION 01354000 * FOR DOUBLE THREADED QUEUES 0076 01355000 * MDC183 */ 01356000 * 2 CVTGSDA PTR(31), /* ADDRESS OF GLOBAL SYSTEM 0076 01357000 * DUPLEX AREA. ADDRESS FILLED IN 01358000 * BY NIP0. MDC184 */ 01359000 * 3 CVTGSDAB BIT(1), /* IF HIGH-ORDER BIT IS ONE, 0076 01360000 * THERE IS A VALID VALUE IN 0076 01361000 * FOLLOWING 31 BITS MDC185 */ 01362000 * 2 CVTADV PTR(31), /* ADDRESS OF ADDRESS 0076 01363000 * VERIFICATION ROUTINE MDC186 */ 01364000 * 2 CVTTPIO PTR(31), /* ADDRESS OF VTAM TPIO (SVC 124) 01365000 * ROUTINE MDC193 */ 01366000 * 2 CVTCRCA PTR(31), /* WHEN CHANNEL RECONFIGURATION 01367000 * HARDWARE (CRH) IS ACTIVE, 0076 01368000 * ADDRESS OF CRH COMMUNICATION 01369000 * AREA IECVCRCA. OTHERWISE, 0076 01370000 * ZERO. (MDC306) @Z30CQ9A*/ 01371000 * 2 CVTEVENT PTR(31), /* BRANCH ENTRY ADDRESS TO EVENTS 01372000 * (FAST MULTIPLE WAIT ROUTINE) 01373000 * (MDC316) @Z30HP9A*/ 01374000 * 2 CVTSSCR PTR(31), /* ADDRESS OF STORAGE SYSTEM 0076 01375000 * CONTROLLER RECOVERY MANAGER 0076 01376000 * CLEANUP ROUTINE (SSC RMCR) 0076 01377000 * (MDC319) @Z30LP9A*/ 01378000 * 2 CVTCBBR PTR(31), /* BRANCH ENTRY ADDRESS TO 0076 01379000 * GETMAIN/FREEMAIN (MDC325) 0076 01380000 * @Z30EN9A*/ 01381000 * 2 CVTEFF02 PTR(31), /* ADDRESS OF IKJEFF02, TSO 0076 01382000 * MESSAGE ISSUER SERVICE ROUTINE 01383000 * (MDC326) @ZM30972*/ 01384000 * 2 CVTRV604 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01385000 * 2 CVTRV605 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01386000 * 2 CVTRV606 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01387000 * 2 CVTRV607 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01388000 * 2 CVTRV608 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01389000 * 2 CVTRV609 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01390000 * 2 CVTRV610 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01391000 * 2 CVTRV611 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01392000 * 2 CVTRV612 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01393000 * 2 CVTRV613 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01394000 * 2 CVTRV614 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01395000 * 2 CVTRV615 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01396000 * 2 CVTRV616 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01397000 * 2 CVTRV617 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01398000 * 2 CVTRV618 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01399000 * 2 CVTRV619 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01400000 * 2 CVTRV620 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01401000 * 2 CVTRV621 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01402000 * 2 CVTRV622 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01403000 * 2 CVTRV623 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01404000 * 2 CVTRV624 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01405000 * 2 CVTRV625 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01406000 * 2 CVTRV626 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01407000 * 2 CVTRV627 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 01408000 * 2 CVTRV628 PTR(31); /* RESERVED (MDC307) @Z30AQ9A*/ 01409000 */* */ 01410000 */* OS - OS/VS COMMON EXTENSION */ 01411000 */* */ 01412000 * 0077 01413000 * DECLARE 0077 01414000 * 1 CVTXTNT1 BASED(CVTEXT1), /* START OF OS - OS/VS COMMON 0077 01415000 * EXTENSION ICB421 */ 01416000 * 2 CVTFACHN PTR(31), /* ADDRESS OF CHAIN OF DCB FIELD 01417000 * AREAS (ISAM) ICB421 */ 01418000 * 2 CVTRSV87 PTR(31), /* RESERVED */ 01419000 * 2 CVTRSV88 PTR(31); /* RESERVED */ 01420000 */* */ 01421000 */* OS/VS1 - OS/VS2 COMMON EXTENSION */ 01422000 */* */ 01423000 * 0078 01424000 * DECLARE 0078 01425000 * 1 CVTXTNT2 BASED(CVTEXT2), /* START OF OS/VS1 - OS/VS2 0078 01426000 * EXTENSION */ 01427000 * 2 CVTDSSV PTR(31), /* ADDRESS OF THE DYNAMIC SUPPORT 01428000 * SYSTEM (DSS) VECTOR TABLE 0078 01429000 * ICB313 */ 01430000 * 3 CVTRSV89 PTR(8), /* RESERVED ICB313 */ 01431000 * 3 CVTDSSVA PTR(24), /* ADDRESS OF THE DSS VECTOR 0078 01432000 * TABLE ICB313 */ 01433000 * 2 CVTNUCLS CHAR(1), /* IDENTIFICATION OF THE NUCLEUS 01434000 * MEMBER NAME ICB322 */ 01435000 * 2 CVTFLGBT BIT(8), /* FLAG BYTE (OS/VS1) (MDC301) 0078 01436000 * @X04EP9A*/ 01437000 * 3 CVTNPE BIT(1), /* INDICATES NON-PAGING 0078 01438000 * ENVIRONMENT (VM HANDSHAKING) 01439000 * (OS/VS1) (MDC302) @X04EP9A*/ 01440000 * 3 CVTVME BIT(1), /* INDICATES MACHINE IS OPERATING 01441000 * IN VM ENVIRONMENT (OS/VS1) 0078 01442000 * (MDC303) @X04EP9A*/ 01443000 * 3 CVTRSV9C BIT(1), /* RESERVED */ 01444000 * 3 CVTRSV9D BIT(1), /* RESERVED */ 01445000 * 3 CVTRSV9E BIT(1), /* RESERVED */ 01446000 * 3 CVTRSV9F BIT(1), /* RESERVED */ 01447000 * 3 CVTRSV9G BIT(1), /* RESERVED */ 01448000 * 3 CVTRSV9H BIT(1), /* RESERVED */ 01449000 * 2 CVTRSV91 FIXED(15), /* RESERVED */ 01450000 * 2 CVTDEBVR PTR(31), /* ADDRESS OF BRANCH ENTRY POINT 01451000 * OF DEB VALIDITY CHECK ROUTINE 01452000 * (ICB380) XM9028*/ 01453000 * 2 CVTRSV92 PTR(31), /* RESERVED (MDC190) YM2278*/ 01454000 * 2 CVTRSV93 PTR(31), /* RESERVED */ 01455000 * 2 CVTRSV94 PTR(31), /* RESERVED */ 01456000 * 2 CVTQID PTR(31), /* SAVE AS CVTQIDA BELOW ICB381 */ 01457000 * 3 CVTRSV95 PTR(8), /* RESERVED ICB381 */ 01458000 * 3 CVTQIDA PTR(24), /* ADDRESS OF QUEUE 0078 01459000 * IDENTIFICATION (QID) TABLE 0078 01460000 * PREFIX ICB381 */ 01461000 * 2 CVTOLTEP PTR(31), /* POINTER TO CONTROL BLOCK 0078 01462000 * CREATED BY SVC 59 TO POINT TO 01463000 * PSEUDO-DEB'S ICB423 */ 01464000 * 2 CVTRSV96 FIXED(15), /* RESERVED */ 01465000 * 2 CVTRSV97 FIXED(15), /* RESERVED */ 01466000 * 2 CVTRSV98 PTR(31), /* RESERVED */ 01467000 * 2 CVTRSV99 PTR(31), /* RESERVED */ 01468000 * 2 CVTSKTA PTR(31), /* ADDRESS OF STORAGE KEY TABLE 01469000 * (VM HANDSHAKING) (OS/VS1) 0078 01470000 * (MDC304) @X04EP9A*/ 01471000 * 2 CVTICB PTR(31), /* ADDRESS OF STORAGE SYSTEM 1 0078 01472000 * (SS/1) CONTROL BLOCK (MDC305) 01473000 * @Z30LP9A*/ 01474000 * 2 CVTRV400 BIT(8), /* RESERVED */ 01475000 * 3 CVTRV401 BIT(1), /* RESERVED */ 01476000 * 3 CVTRV402 BIT(1), /* RESERVED */ 01477000 * 3 CVTRV403 BIT(1), /* RESERVED */ 01478000 * 3 CVTRV404 BIT(1), /* RESERVED */ 01479000 * 3 CVTRV405 BIT(1), /* RESERVED */ 01480000 * 3 CVTRV406 BIT(1), /* RESERVED */ 01481000 * 3 CVTRV407 BIT(1), /* RESERVED */ 01482000 * 3 CVTRV408 BIT(1), /* RESERVED */ 01483000 * 2 CVTRV409 BIT(8), /* RESERVED */ 01484000 * 3 CVTRV410 BIT(1), /* RESERVED */ 01485000 * 3 CVTRV411 BIT(1), /* RESERVED */ 01486000 * 3 CVTRV412 BIT(1), /* RESERVED */ 01487000 * 3 CVTRV413 BIT(1), /* RESERVED */ 01488000 * 3 CVTRV414 BIT(1), /* RESERVED */ 01489000 * 3 CVTRV415 BIT(1), /* RESERVED */ 01490000 * 3 CVTRV416 BIT(1), /* RESERVED */ 01491000 * 3 CVTRV417 BIT(1), /* RESERVED */ 01492000 * 2 CVTRV418 PTR(8), /* RESERVED */ 01493000 * 2 CVTRV419 PTR(8), /* RESERVED */ 01494000 * 2 CVTRV420 PTR(15), /* RESERVED */ 01495000 * 2 CVTRV421 FIXED(15), /* RESERVED */ 01496000 * 2 CVTRV422 FIXED(15), /* RESERVED */ 01497000 * 2 CVTRV423 FIXED(15), /* RESERVED */ 01498000 * 2 CVTATCVT PTR(31), /* POINTER TO VTAM'S CVT MDC080 */ 01499000 * 3 CVTATACT BIT(1), /* IF ON, VTAM IS ACTIVE MDC081 */ 01500000 * 2 CVTRV425 PTR(31), /* RESERVED */ 01501000 * 2 CVTRV426 PTR(31), /* RESERVED */ 01502000 * 2 CVTRV427 PTR(31), /* RESERVED */ 01503000 * 2 CVTRV428 FIXED(31), /* RESERVED */ 01504000 * 2 CVTRV429 BIT(8), /* RESERVED */ 01505000 * 3 CVTRV430 BIT(1), /* RESERVED */ 01506000 * 3 CVTRV431 BIT(1), /* RESERVED */ 01507000 * 3 CVTRV432 BIT(1), /* RESERVED */ 01508000 * 3 CVTRV433 BIT(1), /* RESERVED */ 01509000 * 3 CVTRV434 BIT(1), /* RESERVED */ 01510000 * 3 CVTRV435 BIT(1), /* RESERVED */ 01511000 * 3 CVTRV436 BIT(1), /* RESERVED */ 01512000 * 3 CVTRV437 BIT(1), /* RESERVED */ 01513000 * 2 CVTRV438 BIT(8), /* RESERVED */ 01514000 * 3 CVTRV439 BIT(1), /* RESERVED */ 01515000 * 3 CVTRV440 BIT(1), /* RESERVED */ 01516000 * 3 CVTRV441 BIT(1), /* RESERVED */ 01517000 * 3 CVTRV442 BIT(1), /* RESERVED */ 01518000 * 3 CVTRV443 BIT(1), /* RESERVED */ 01519000 * 3 CVTRV444 BIT(1), /* RESERVED */ 01520000 * 3 CVTRV445 BIT(1), /* RESERVED */ 01521000 * 3 CVTRV446 BIT(1), /* RESERVED */ 01522000 * 2 CVTRV447 PTR(8), /* RESERVED */ 01523000 * 2 CVTRV448 PTR(8), /* RESERVED */ 01524000 * 2 CVTRV449 PTR(15), /* RESERVED */ 01525000 * 2 CVTRV450 FIXED(15), /* RESERVED */ 01526000 * 2 CVTRV451 FIXED(15), /* RESERVED */ 01527000 * 2 CVTRV452 FIXED(15), /* RESERVED */ 01528000 * 2 CVTRV453 PTR(31), /* RESERVED */ 01529000 * 2 CVTRV454 PTR(31), /* RESERVED */ 01530000 * 2 CVTRV455 PTR(31), /* RESERVED */ 01531000 * 2 CVTRV456 PTR(31), /* RESERVED */ 01532000 * 2 CVTRV457 BIT(8), /* RESERVED */ 01533000 * 3 CVTRV458 BIT(1), /* RESERVED */ 01534000 * 3 CVTRV459 BIT(1), /* RESERVED */ 01535000 * 3 CVTRV460 BIT(1), /* RESERVED */ 01536000 * 3 CVTRV461 BIT(1), /* RESERVED */ 01537000 * 3 CVTRV462 BIT(1), /* RESERVED */ 01538000 * 3 CVTRV463 BIT(1), /* RESERVED */ 01539000 * 3 CVTRV464 BIT(1), /* RESERVED */ 01540000 * 3 CVTRV465 BIT(1), /* RESERVED */ 01541000 * 2 CVTRV466 BIT(8), /* RESERVED */ 01542000 * 3 CVTRV467 BIT(1), /* RESERVED */ 01543000 * 3 CVTRV468 BIT(1), /* RESERVED */ 01544000 * 3 CVTRV469 BIT(1), /* RESERVED */ 01545000 * 3 CVTRV470 BIT(1), /* RESERVED */ 01546000 * 3 CVTRV471 BIT(1), /* RESERVED */ 01547000 * 3 CVTRV472 BIT(1), /* RESERVED */ 01548000 * 3 CVTRV473 BIT(1), /* RESERVED */ 01549000 * 3 CVTRV474 BIT(1), /* RESERVED */ 01550000 * 2 CVTRV475 PTR(8), /* RESERVED */ 01551000 * 2 CVTRV476 PTR(8), /* RESERVED */ 01552000 * 2 CVTRV477 PTR(8), /* RESERVED */ 01553000 * 2 CVTRV478 PTR(8), /* RESERVED */ 01554000 * 2 CVTRV479 FIXED(15), /* RESERVED */ 01555000 * 2 CVTRV480 PTR(31), /* RESERVED */ 01556000 * 2 CVTRV481 PTR(31), /* RESERVED */ 01557000 * 2 CVTRV482 PTR(31); /* RESERVED */ 01558000 */* CVT PREFIX */ 01559000 * 0079 01560000 * DCL 0079 01561000 * 1 CVTFIX BASED(CVTPTR-256) BDY(WORD), 0079 01562000 * 2 * CHAR(248) BDY(WORD), /* RESERVED */ 01563000 * 2 * CHAR(2) BDY(WORD), /* RESERVED */ 01564000 * 2 CVTMDL CHAR(2) BDY(WORD,3),/* CPU MODEL NUMBER IN SIGNLESS 01565000 * PACKED DECIMAL, I.E., A MODEL 01566000 * 145 WOULD BE REPRESENTED AS 0079 01567000 * 0145 HEX */ 01568000 * 2 CVTRELNO CHAR(4) BDY(WORD),/* RELEASE NUMBER (EBCDIC) */ 01569000 * 3 CVTNUMB CHAR(2) BDY(WORD),/* RELEASE NUMBER */ 01570000 * 3 CVTLEVL CHAR(2) BDY(WORD,3);/* LEVEL NUMBER OF THIS RELEASE*/ 01571000 */* END OF CVT MACRO */ 01572000 * 0080 01573000 * 0080 01574000 * /*****************************************************************/ 01575000 * /* */ 01576000 * /* FRR STACK */ 01577000 * /* */ 01578000 * /*****************************************************************/ 01579000 * 0080 01580000 */* MACMEAN FRRS MEANS FUNCTIONAL RECOVERY ROUTINE STACK */ 01581000 */* MACCOMP Y-1 SC1C5/PZD81 */ 01582000 */* MACSTAT Y-1 72137/DCR20412 */ 01583000 * 0080 01584000 * DECLARE 0080 01585000 * 1 FRRS BASED(FRRSPTR), 0080 01586000 * 2 FRRSHEAD CHAR(16) BDY(WORD),/* THE HEADER OF THE FRR STACK */ 01587000 * 3 FRRSEMP PTR(31), /* ADDRESS WHICH INDICATES AN 0080 01588000 * EMPTY STACK */ 01589000 * 3 FRRSLAST PTR(31), /* ADDRESS OF LAST ENTRY IN STACK*/ 01590000 * 3 FRRSELEN FIXED(31), /* LENGTH OF EACH ENTRY IN THE 0080 01591000 * STACK */ 01592000 * 3 FRRSCURR PTR(31), /* ADDRESS OF CURRENT FRR ENTRY 01593000 * IN THE STACK */ 01594000 * 2 FRRSRTMW CHAR(68) BDY(WORD),/* THE RTM1 WORK AREA PORTION OF 01595000 * THE FRR STACK */ 01596000 * 2 FRRSENTS CHAR(256); /* THE FRR ENTRIES IN THE STACK */ 01597000 * DECLARE 0081 01598000 * 1 FRRSENTR BASED(FRREPTR), /* THE MAPPING OF A FRR ENTRY */ 01599000 * 2 FRRSFRRA PTR(31), /* THE ADDRESS OF THE FRR */ 01600000 * 2 FRRSFLGS CHAR(4), /* FLAGS USED BY RTM DURING FRR 01601000 * PROCESSING */ 01602000 * 3 FRRSFLG1 CHAR(1), /* RECURSION USED BY RTM */ 01603000 * 4 FRRSRCUR BIT(1), /* RECURSION FLAG USED WHEN 0081 01604000 * GIVING CONTROL TO FRR AND WHEN 01605000 * RECEIVING CONTROL BACK FROM 0081 01606000 * FRR */ 01607000 * 4 FRRSNEST BIT(1), /* FLAG INDICATING A NESTED FRR 01608000 * ENTRY */ 01609000 * 4 * BIT(6), /* RESERVED */ 01610000 * 3 * CHAR(3), /* RESERVED */ 01611000 * 2 FRRSPARM CHAR(24); /* PARAMETER AREA PASSED TO FRR */ 01612000 * DCL 0082 01613000 * FRRSESZE FIXED(31) CONSTANT(32);/* LENGTH OF EACH FRR ENTRY */ 01614000 * DCL 0083 01615000 * FRRSFENT FIXED(31) CONSTANT(84);/* DISPLACEMENT INTO FRR STACK 01616000 * OF FIRST FRR ENTRY */ 01617000 * DCL 0084 01618000 * FRRSNENT FIXED(31) CONSTANT(8);/* NUMBER OF FRR ENTRIES IN THE 01619000 * STACK */ 01620000 * DCL 0085 01621000 * FRRSTLEN FIXED(31) CONSTANT(340);/* TOTAL LENGTH OF NORMAL FRR 01622000 * STACK */ 01623000 * 0085 01624000 * /*****************************************************************/ 01625000 * /* */ 01626000 * /* PROBLEM COMMON OPTION AREA */ 01627000 * /* */ 01628000 * /*****************************************************************/ 01629000 * 0086 01630000 */**** START OF SPECIFICATIONS ***************************************/ 01631000 */* */ 01632000 */* MACCOMP Y-2 SC1CQ/GAM20 */ 01633000 */* MACSTAT Y-2 73121/Y02150 */ 01634000 */* MACMEAN INCOA MEANS COMMON OPTION AREA */ 01635000 */* */ 01636000 */* MODULE-NAME = IRBINCOA */ 01637000 */* IRBMFCOA */ 01638000 */* IRBSTCOA */ 01639000 */* IRBTMCOA */ 01640000 */* */ 01641000 */* DESCRIPTIVE-NAME = COMMON OPTION AREA */ 01642000 */* */ 01643000 */* COPYRIGHT = NONE */ 01644000 */* */ 01645000 */* STATUS = RELEASE 2, VERSION 0 */ 01646000 */* */ 01647000 */* FUNCTION = MAPPING MACRO FOR THE COA. THE COA CONTAINS THE */ 01648000 */* OPTIONS COMMON TO ALL MEASUREMENTS MADE BY MF/1. */ 01649000 */* */ 01650000 */* NOTES = SEE BELOW */ 01651000 */* */ 01652000 */* MULTIPLE MACRO NAMES ALLOWS A PROGRAM TO HAVE MULTIPLE COPIES */ 01653000 */* OF THE SAME DATA STRUCTURE FOR DIFFERENT USES, EACH WITH ITS */ 01654000 */* OWN IMPLICIT POINTER AND ATTRIBUTES. */ 01655000 */* */ 01656000 */* MODULE-TYPE = PLS MAPPING MACRO */ 01657000 */* */ 01658000 */* CHANGE-ACTIVITY = */ 01659000 */* */ 01660000 */* A000000-999999 Y02150*/ 01661000 */* */ 01662000 */* METHOD-OF-INVOCATION = SEE BELOW */ 01663000 */* */ 01664000 */* PLS - .QUESTION MARK.IRBINCOA ATTRIBUT(ATTRIBUTES) */ 01665000 */* - .QUESTION MARK.IRBMFCOA ATTRIBUT(ATTRIBUTES) */ 01666000 */* - .QUESTION MARK.IRBSTCOA ATTRIBUT(ATTRIBUTES) */ 01667000 */* - .QUESTION MARK.IRBTMCOA ATTRIBUT(ATTRIBUTES) */ 01668000 */* WHERE ATTRIBUTES ARE ANY ACCEPTABLE PLS ATTRIBUTES */ 01669000 */* FOR STRUCTURE DECLARATIONS. */ 01670000 */* */ 01671000 */**** END OF SPECIFICATIONS *****************************************/ 01672000 * 0086 01673000 * /*****************************************************************/ 01674000 * /* */ 01675000 * /* ?IRBINCOA */ 01676000 * /* */ 01677000 * /*****************************************************************/ 01678000 * 0086 01679000 * DECLARE 0086 01680000 * 1 INCOA /* COMMON OPTION AREA */ 01681000 * BDY(WORD), 0086 01682000 * 2 INCOTCE /* TRACE OPTION VARIABLES */ 01683000 * FIXED(31), 0086 01684000 * 3 INCOTCEF /* TRACE OPTION FLAGS */ 01685000 * BIT(8), 0086 01686000 * 4 INCOTCEC /* TRACE OPTION CONTROL */ 01687000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0086 01688000 * 1-OPTION NOT YET SPECIFIED */ 01689000 * 3 * CHAR(2), 0086 01690000 * 3 INCOTCEL /* TRACE OPTION VALUE AREA */ 01691000 * CHAR(1), 0086 01692000 * 4 * BIT(7), 0086 01693000 * 4 INCOTCEV /* TRACE OPTION VALUE FLAG */ 01694000 * BIT(1), /* 0-MF/1 MEASUREMENTS NOT TRACED 01695000 * TO SMF. 1-MEASUREMENTS ARE 0086 01696000 * TRACED WITH SMF. */ 01697000 * 2 INCOCYC /* CYCLE OPTION VARIABLES */ 01698000 * FIXED(31), 0086 01699000 * 3 INCOCYCF /* CYCLE OPTION FLAGS */ 01700000 * BIT(8), 0086 01701000 * 4 INCOCYCC /* CYCLE OPTION CONTROL */ 01702000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0086 01703000 * 1-OPTION NOT YET SPECIFIED */ 01704000 * 3 * CHAR(1), 0086 01705000 * 3 INCOCYCV /* CYCLE OPTION VALUE */ 01706000 * FIXED(15), /* 50 TO 999 MILLISECONDS */ 01707000 * 2 INCOOUT /* OUT(PUT)CLASS OPTION */ 01708000 * FIXED(31), 0086 01709000 * 3 INCOOUTF /* OUTCLASS OPTION FLAGS */ 01710000 * BIT(8), 0086 01711000 * 4 INCOOUTC /* OUTCLASS OPTION CONTROL */ 01712000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0086 01713000 * 1-OPTION NOT YET SPECIFIED */ 01714000 * 3 * CHAR(2), 0086 01715000 * 3 INCOOUTV /* OUTCLASS OPTION VALUE */ 01716000 * CHAR(1), /* ALPHANUMERIC OUTPUT CLASS */ 01717000 * 2 INCOINT /* INTERVAL OPTION */ 01718000 * FIXED(31), 0086 01719000 * 3 INCOINTF /* INTERVAL OPTION FLAGS */ 01720000 * BIT(8), 0086 01721000 * 4 INCOINTC /* INTERVAL OPTION CONTROL */ 01722000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0086 01723000 * 1-OPTION NOT YET SPECIFIED */ 01724000 * 3 * CHAR(1), 0086 01725000 * 3 INCOINTV /* INTERVAL OPTION VALUE */ 01726000 * FIXED(15), /* 1 TO 60 MINUTES */ 01727000 * 2 INCOREP /* REPORT OPTION */ 01728000 * FIXED(31), 0086 01729000 * 3 INCOREPF /* REPORT OPTION FLAGS */ 01730000 * BIT(8), 0086 01731000 * 4 INCOREPC /* REPORT OPTION CONTROL */ 01732000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0086 01733000 * 1-OPTION NOT YET SPECIFIED */ 01734000 * 3 * CHAR(2), 0086 01735000 * 3 INCOREPL /* REPORT OPTION VALUE AREA */ 01736000 * CHAR(1), 0086 01737000 * 4 * BIT(6), 0086 01738000 * 4 INCOREPV /* REPORT OPTION VALUE FLAGS */ 01739000 * BIT(2), /* 00-NO REPORTS, 01-DEFERRED 0086 01740000 * REPORTS, 10-REALTIME REPORTS */ 01741000 * 2 INCOSTP /* STOP OPTION VALUE */ 01742000 * FIXED(31), 0086 01743000 * 3 INCOSTPF /* STOP OPTION FLAGS */ 01744000 * BIT(8), 0086 01745000 * 4 INCOSTPC /* STOP OPTION CONTROL */ 01746000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0086 01747000 * 1-OPTION NOT YET SPECIFIED */ 01748000 * 4 INCOSTPS /* STOP OPTION STATUS */ 01749000 * BIT(1), /* 0-MF/1 STOPS AFTER --COSTPV 0086 01750000 * STOP OPTION UNITS(COSTPU). 0086 01751000 * 1-MF/1 DOES NOT STOP UNDER 0086 01752000 * PROGRAM CONTROL,(STOP 0086 01753000 * COMMAND). */ 01754000 * 4 INCOSTPU /* STOP OPTION UNITS */ 01755000 * BIT(1), /* 0-VALUE IS IN MINUTES 1-VALUE 01756000 * IS IN HOURS */ 01757000 * 3 * CHAR(1), 0086 01758000 * 3 INCOSTPV /* STOP OPTION VALUE */ 01759000 * FIXED(15), /* 1-168 HOURS, 1-10080 MINUTES 01760000 * (1 WEEK) */ 01761000 * 2 INCOOPI /* OPERATOR INTERVENTION OPTION */ 01762000 * FIXED(31), 0086 01763000 * 3 INCOOPIF /* OPI OPTION FLAGS */ 01764000 * BIT(8), 0086 01765000 * 4 INCOOPIC /* OPI OPTION CONTROL */ 01766000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0086 01767000 * 1-OPTION NOT YET SPECIFIED */ 01768000 * 3 * CHAR(2), 0086 01769000 * 3 INCOOPIL /* OPI OPTION VALUE AREA */ 01770000 * CHAR(1), 0086 01771000 * 4 * BIT(7), 0086 01772000 * 4 INCOOPIV /* OPI OPTION VALUE FLAG */ 01773000 * BIT(1), /* 0-DO NOT LIST OPTIONS, 1-LIST 01774000 * OPTIONS */ 01775000 * 2 INCOMEM /* MEMBER OPTION */ 01776000 * FIXED(31), 0086 01777000 * 3 INCOMEMF /* MEMBER OPTION FLAGS */ 01778000 * BIT(8), 0086 01779000 * 4 INCOMEMC /* MEMBER OPTION CONTROL */ 01780000 * BIT(1), 0086 01781000 * 3 * CHAR(1), 0086 01782000 * 3 INCOMEMV /* MEMBER OPTION VALUE */ 01783000 * CHAR(2), /* MF/1 OPTION DATA SET SUFFIX */ 01784000 * 1 INCOOPTN /* OPTION ARRAY */ 01785000 * (*) BIT(32) DEFINED(INCOA), 0086 01786000 * 2 INCOCTRL /* OPTION CONTROL */ 01787000 * BIT(1); 0086 01788000 * 0086 01789000 * /*****************************************************************/ 01790000 * /* */ 01791000 * /* COPY OF PROBLEM COMMON OPTION AREA */ 01792000 * /* */ 01793000 * /*****************************************************************/ 01794000 * 0087 01795000 */**** START OF SPECIFICATIONS ***************************************/ 01796000 */* */ 01797000 */* MACCOMP Y-2 SC1CQ/GAM20 */ 01798000 */* MACSTAT Y-2 73121/Y02150 */ 01799000 */* MACMEAN MFCOA MEANS COMMON OPTION AREA */ 01800000 */* */ 01801000 */* MODULE-NAME = IRBINCOA */ 01802000 */* IRBMFCOA */ 01803000 */* IRBSTCOA */ 01804000 */* IRBTMCOA */ 01805000 */* */ 01806000 */* DESCRIPTIVE-NAME = COMMON OPTION AREA */ 01807000 */* */ 01808000 */* COPYRIGHT = NONE */ 01809000 */* */ 01810000 */* STATUS = RELEASE 2, VERSION 0 */ 01811000 */* */ 01812000 */* FUNCTION = MAPPING MACRO FOR THE COA. THE COA CONTAINS THE */ 01813000 */* OPTIONS COMMON TO ALL MEASUREMENTS MADE BY MF/1. */ 01814000 */* */ 01815000 */* NOTES = SEE BELOW */ 01816000 */* */ 01817000 */* MULTIPLE MACRO NAMES ALLOWS A PROGRAM TO HAVE MULTIPLE COPIES */ 01818000 */* OF THE SAME DATA STRUCTURE FOR DIFFERENT USES, EACH WITH ITS */ 01819000 */* OWN IMPLICIT POINTER AND ATTRIBUTES. */ 01820000 */* */ 01821000 */* MODULE-TYPE = PLS MAPPING MACRO */ 01822000 */* */ 01823000 */* CHANGE-ACTIVITY = */ 01824000 */* */ 01825000 */* A000000-999999 Y02150*/ 01826000 */* */ 01827000 */* METHOD-OF-INVOCATION = SEE BELOW */ 01828000 */* */ 01829000 */* PLS - .QUESTION MARK.IRBINCOA ATTRIBUT(ATTRIBUTES) */ 01830000 */* - .QUESTION MARK.IRBMFCOA ATTRIBUT(ATTRIBUTES) */ 01831000 */* - .QUESTION MARK.IRBSTCOA ATTRIBUT(ATTRIBUTES) */ 01832000 */* - .QUESTION MARK.IRBTMCOA ATTRIBUT(ATTRIBUTES) */ 01833000 */* WHERE ATTRIBUTES ARE ANY ACCEPTABLE PLS ATTRIBUTES */ 01834000 */* FOR STRUCTURE DECLARATIONS. */ 01835000 */* */ 01836000 */**** END OF SPECIFICATIONS *****************************************/ 01837000 * 0087 01838000 * /*****************************************************************/ 01839000 * /* */ 01840000 * /* ?IRBMFCOA */ 01841000 * /* */ 01842000 * /*****************************************************************/ 01843000 * 0087 01844000 * DECLARE 0087 01845000 * 1 MFCOA /* COMMON OPTION AREA */ 01846000 * BDY(WORD), 0087 01847000 * 2 MFCOTCE /* TRACE OPTION VARIABLES */ 01848000 * FIXED(31), 0087 01849000 * 3 MFCOTCEF /* TRACE OPTION FLAGS */ 01850000 * BIT(8), 0087 01851000 * 4 MFCOTCEC /* TRACE OPTION CONTROL */ 01852000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0087 01853000 * 1-OPTION NOT YET SPECIFIED */ 01854000 * 3 * CHAR(2), 0087 01855000 * 3 MFCOTCEL /* TRACE OPTION VALUE AREA */ 01856000 * CHAR(1), 0087 01857000 * 4 * BIT(7), 0087 01858000 * 4 MFCOTCEV /* TRACE OPTION VALUE FLAG */ 01859000 * BIT(1), /* 0-MF/1 MEASUREMENTS NOT TRACED 01860000 * TO SMF. 1-MEASUREMENTS ARE 0087 01861000 * TRACED WITH SMF. */ 01862000 * 2 MFCOCYC /* CYCLE OPTION VARIABLES */ 01863000 * FIXED(31), 0087 01864000 * 3 MFCOCYCF /* CYCLE OPTION FLAGS */ 01865000 * BIT(8), 0087 01866000 * 4 MFCOCYCC /* CYCLE OPTION CONTROL */ 01867000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0087 01868000 * 1-OPTION NOT YET SPECIFIED */ 01869000 * 3 * CHAR(1), 0087 01870000 * 3 MFCOCYCV /* CYCLE OPTION VALUE */ 01871000 * FIXED(15), /* 50 TO 999 MILLISECONDS */ 01872000 * 2 MFCOOUT /* OUT(PUT)CLASS OPTION */ 01873000 * FIXED(31), 0087 01874000 * 3 MFCOOUTF /* OUTCLASS OPTION FLAGS */ 01875000 * BIT(8), 0087 01876000 * 4 MFCOOUTC /* OUTCLASS OPTION CONTROL */ 01877000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0087 01878000 * 1-OPTION NOT YET SPECIFIED */ 01879000 * 3 * CHAR(2), 0087 01880000 * 3 MFCOOUTV /* OUTCLASS OPTION VALUE */ 01881000 * CHAR(1), /* ALPHANUMERIC OUTPUT CLASS */ 01882000 * 2 MFCOINT /* INTERVAL OPTION */ 01883000 * FIXED(31), 0087 01884000 * 3 MFCOINTF /* INTERVAL OPTION FLAGS */ 01885000 * BIT(8), 0087 01886000 * 4 MFCOINTC /* INTERVAL OPTION CONTROL */ 01887000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0087 01888000 * 1-OPTION NOT YET SPECIFIED */ 01889000 * 3 * CHAR(1), 0087 01890000 * 3 MFCOINTV /* INTERVAL OPTION VALUE */ 01891000 * FIXED(15), /* 1 TO 60 MINUTES */ 01892000 * 2 MFCOREP /* REPORT OPTION */ 01893000 * FIXED(31), 0087 01894000 * 3 MFCOREPF /* REPORT OPTION FLAGS */ 01895000 * BIT(8), 0087 01896000 * 4 MFCOREPC /* REPORT OPTION CONTROL */ 01897000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0087 01898000 * 1-OPTION NOT YET SPECIFIED */ 01899000 * 3 * CHAR(2), 0087 01900000 * 3 MFCOREPL /* REPORT OPTION VALUE AREA */ 01901000 * CHAR(1), 0087 01902000 * 4 * BIT(6), 0087 01903000 * 4 MFCOREPV /* REPORT OPTION VALUE FLAGS */ 01904000 * BIT(2), /* 00-NO REPORTS, 01-DEFERRED 0087 01905000 * REPORTS, 10-REALTIME REPORTS */ 01906000 * 2 MFCOSTP /* STOP OPTION VALUE */ 01907000 * FIXED(31), 0087 01908000 * 3 MFCOSTPF /* STOP OPTION FLAGS */ 01909000 * BIT(8), 0087 01910000 * 4 MFCOSTPC /* STOP OPTION CONTROL */ 01911000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0087 01912000 * 1-OPTION NOT YET SPECIFIED */ 01913000 * 4 MFCOSTPS /* STOP OPTION STATUS */ 01914000 * BIT(1), /* 0-MF/1 STOPS AFTER --COSTPV 0087 01915000 * STOP OPTION UNITS(COSTPU). 0087 01916000 * 1-MF/1 DOES NOT STOP UNDER 0087 01917000 * PROGRAM CONTROL,(STOP 0087 01918000 * COMMAND). */ 01919000 * 4 MFCOSTPU /* STOP OPTION UNITS */ 01920000 * BIT(1), /* 0-VALUE IS IN MINUTES 1-VALUE 01921000 * IS IN HOURS */ 01922000 * 3 * CHAR(1), 0087 01923000 * 3 MFCOSTPV /* STOP OPTION VALUE */ 01924000 * FIXED(15), /* 1-168 HOURS, 1-10080 MINUTES 01925000 * (1 WEEK) */ 01926000 * 2 MFCOOPI /* OPERATOR INTERVENTION OPTION */ 01927000 * FIXED(31), 0087 01928000 * 3 MFCOOPIF /* OPI OPTION FLAGS */ 01929000 * BIT(8), 0087 01930000 * 4 MFCOOPIC /* OPI OPTION CONTROL */ 01931000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0087 01932000 * 1-OPTION NOT YET SPECIFIED */ 01933000 * 3 * CHAR(2), 0087 01934000 * 3 MFCOOPIL /* OPI OPTION VALUE AREA */ 01935000 * CHAR(1), 0087 01936000 * 4 * BIT(7), 0087 01937000 * 4 MFCOOPIV /* OPI OPTION VALUE FLAG */ 01938000 * BIT(1), /* 0-DO NOT LIST OPTIONS, 1-LIST 01939000 * OPTIONS */ 01940000 * 2 MFCOMEM /* MEMBER OPTION */ 01941000 * FIXED(31), 0087 01942000 * 3 MFCOMEMF /* MEMBER OPTION FLAGS */ 01943000 * BIT(8), 0087 01944000 * 4 MFCOMEMC /* MEMBER OPTION CONTROL */ 01945000 * BIT(1), 0087 01946000 * 3 * CHAR(1), 0087 01947000 * 3 MFCOMEMV /* MEMBER OPTION VALUE */ 01948000 * CHAR(2), /* MF/1 OPTION DATA SET SUFFIX */ 01949000 * 1 MFCOOPTN /* OPTION ARRAY */ 01950000 * (*) BIT(32) DEFINED(MFCOA), 0087 01951000 * 2 MFCOCTRL /* OPTION CONTROL */ 01952000 * BIT(1); 0087 01953000 * 0087 01954000 * /*****************************************************************/ 01955000 * /* */ 01956000 * /* MFROUTER MG VECTOR TABLE */ 01957000 * /* */ 01958000 * /*****************************************************************/ 01959000 * 0088 01960000 */* */ 01961000 */**** START OF SPECIFICATIONS *************************************** 01962000 * */ 01963000 */* */ 01964000 */* MACCOMP Y-2 SC1CQ/GAM20 */ 01965000 */* MACSTAT Y-2 73018/Y02150 */ 01966000 */* MACMEAN MEANS MFROUTER MEASUREMENT VECTOR TABLE */ 01967000 */* */ 01968000 */* MODULE-NAME = IRBSTMMV */ 01969000 */* */ 01970000 */* DESCRIPTIVE-NAME = MFROUTER MEASUREMENT VECTOR TABLE (MMV) */ 01971000 */* */ 01972000 */* COPYRIGHT = NONE */ 01973000 */* */ 01974000 */* STATUS = RELEASE 2 / VERSION 0 */ 01975000 */* */ 01976000 */* FUNCTION = MAPPING MACRO FOR THE MMV. THE MMV CONTAINS ONE */ 01977000 */* CONTROL BLOCK FOR EACH TYPE OF MFROUTER CALL. EACH */ 01978000 */* OF THESE ENTRIES POINTS TO A LIST OF MEASUREMENT */ 01979000 */* GATHERING ROUTINES AND THEIR ASSOCIATED PARAMETERS */ 01980000 */* WHICH ARE TO BE EXECUTED AT THIS MFROUTER CALL. */ 01981000 */* */ 01982000 */* NOTES = NONE */ 01983000 */* */ 01984000 */* MODULE-TYPE = BILINGUAL MAPPING MACRO */ 01985000 */* */ 01986000 */* CHANGE-ACTIVITY = */ 01987000 */* */ 01988000 */* A000000-999999 Y02150*/ 01989000 */* */ 01990000 */* METHOD-OF-INVOCATION = SEE BELOW */ 01991000 */* */ 01992000 */* PLS - .QUESTION MARK.IRBSTMMV ATTRIBUT(ATTRIBUTES) */ 01993000 */* WHERE THE ATTRIBUTES ARE ANY ACCEPTABLE PLS ATTRIBUTES */ 01994000 */* */ 01995000 */* BAL - IRBSTMMV - PROVIDES TWO DSECTS NAMED */ 01996000 */* IRBMMEVTL - EVENT LIST ELEMENT */ 01997000 */* IRBMMMGRL - MG ROUTINE LIST ELEMENT */ 01998000 */* */ 01999000 */***** END OF SPECIFICATIONS **************************************** 02000000 * */ 02001000 */* */ 02002000 * 0088 02003000 * /*****************************************************************/ 02004000 * /* */ 02005000 * /* ?IRBSTMMV ATTRIBUT(BASED(STGSMMV)) */ 02006000 * /* */ 02007000 * /*****************************************************************/ 02008000 * 0088 02009000 * DECLARE 0088 02010000 * 1 STMMEVTL /* MMV EVENT LIST */ 02011000 * (*) BASED(STGSMMV) BDY(WORD), 0088 02012000 * 2 STMMEVNT /* ADDRESS OF MG ROUTINE LIST FOR 02013000 * THIS EVENT */ 02014000 * POINTER(31), 0088 02015000 * 2 STMMNXMG /* INDEX OF NEXT AVAILABLE SLOT 02016000 * IN THE MG ROUTINE LIST */ 02017000 * FIXED BINARY(31), 0088 02018000 * 1 STMMMGRL /* MG ROUTINE LIST */ 02019000 * (*) BASED, 0088 02020000 * 2 STMMMGAD /* ADDRESS OF MG ROUTINE */ 02021000 * POINTER(31), 0088 02022000 * 2 STMMMGDA /* ADDRESS OF DATA FOR THIS MG 0088 02023000 * ROUTINE */ 02024000 * POINTER(31), 0088 02025000 * STMMTIME /* TQE EXPIRED EVENT NUMBER */ 02026000 * FIXED BINARY(31) CONSTANT(1), 0088 02027000 * STMMTCH /* TEST CHANNEL SIGP INTERRUPT */ 02028000 * FIXED BINARY(31) CONSTANT(2), 0088 02029000 * STMMMEVT /* MAX MF/1 EVENT INDEX */ 02030000 * FIXED BINARY(31) CONSTANT(2), 0088 02031000 * STMMMMGR /* MAX MG ROUTINES PER EVENT */ 02032000 * FIXED BINARY(31) CONSTANT(3); 0088 02033000 * 0088 02034000 * /*****************************************************************/ 02035000 * /* */ 02036000 * /* PROBLEM MEASUREMENT VECTOR TABLE */ 02037000 * /* */ 02038000 * /*****************************************************************/ 02039000 * 0089 02040000 */**** START OF SPECIFICATIONS ***************************************/ 02041000 */* */ 02042000 */* MACCOMP Y-2 SC1CQ/GAM20 */ 02043000 */* MACSTAT Y-2 73121/Y02150 */ 02044000 */* MACMEAN INMVT MEANS MEASUREMENT VECTOR TABLE */ 02045000 */* */ 02046000 */* MODULE-NAME = IRBDTMVT */ 02047000 */* IRBINMVT */ 02048000 */* IRBMFMVT */ 02049000 */* IRBSTMVT */ 02050000 */* IRBTMMVT */ 02051000 */* */ 02052000 */* DESCRIPTIVE-NAME = MEASUREMENT VECTOR TABLE */ 02053000 */* */ 02054000 */* COPYRIGHT = NONE */ 02055000 */* */ 02056000 */* STATUS = RELEASE 2, VERSION 0 */ 02057000 */* */ 02058000 */* FUNCTION = MAPPING MACRO FOR THE MVT. FOR EACH MF/1 MEASUREMENT,*/ 02059000 */* MVT CONTAINS A POINTER TO TO MEASUREMENT DATA, CONTROL*/ 02060000 */* DATA, OR A LIST OF MEASUREMENT DATA OR CONTROL */ 02061000 */* POINTERS. */ 02062000 */* */ 02063000 */* NOTES = SEE BELOW */ 02064000 */* */ 02065000 */* MULTIPLE MACRO NAMES ALLOWS A PROGRAM TO HAVE MULTIPLE COPIES */ 02066000 */* OF THE SAME DATA STRUCTURE FOR DIFFERENT USES, EACH WITH ITS */ 02067000 */* OWN IMPLICIT POINTER AND ATTRIBUTES. */ 02068000 */* */ 02069000 */* MODULE-TYPE = PLS MAPPING MACRO */ 02070000 */* */ 02071000 */* CHANGE-ACTIVITY = */ 02072000 */* */ 02073000 */* A000000-999999 Y02150*/ 02074000 */* */ 02075000 */* METHOD-OF-INVOCATION = SEE BELOW */ 02076000 */* */ 02077000 */* PLS - .QUESTION MARK.IRBDTMVT ATTRIBUT(ATTRIBUTES) */ 02078000 */* - .QUESTION MARK.IRBINMVT ATTRIBUT(ATTRIBUTES) */ 02079000 */* - .QUESTION MARK.IRBMFMVT ATTRIBUT(ATTRIBUTES) */ 02080000 */* - .QUESTION MARK.IRBSTMVT ATTRIBUT(ATTRIBUTES) */ 02081000 */* - .QUESTION MARK.IRBTMMVT ATTRIBUT(ATTRIBUTES) */ 02082000 */* WHERE ATTRIBUTES ARE ANY ACCEPTABLE PLS ATTRIBUTES */ 02083000 */* FOR STRUCTURE DECLARATIONS. */ 02084000 */* */ 02085000 */**** END OF SPECIFICATIONS *****************************************/ 02086000 * 0089 02087000 * /*****************************************************************/ 02088000 * /* */ 02089000 * /* ?IRBINMVT */ 02090000 * /* */ 02091000 * /*****************************************************************/ 02092000 * 0089 02093000 * DECLARE 0089 02094000 * 1 INMVT /* MEASUREMENT VECTOR TABLE */ 02095000 * BDY(WORD), 0089 02096000 * 2 INMVNUM /* NUMBER OF MEASUREMENT OPTIONS */ 02097000 * FIXED(31), 0089 02098000 * 2 INMVOPT, /* OPTION FIELDS */ 02099000 * 3 INMVCPU /* CPU DATA/VECTOR */ 02100000 * PTR(31), 0089 02101000 * 3 INMVPAG /* PAGING DATA/VECTOR */ 02102000 * PTR(31), 0089 02103000 * 3 INMVWKL /* WORKLOAD DATA/VECTOR */ 02104000 * PTR(31), 0089 02105000 * 3 INMVCHA /* CHANNEL DATA/VECTOR */ 02106000 * PTR(31), 0089 02107000 * 3 INMVDEV /* DEVICE DATA/VECTOR */ 02108000 * PTR(31), 0089 02109000 * INMVADD /* DATA ADDRESS,GENERAL REFERENCE*/ 02110000 * (5) /* NUMBER OF MEASUREMENT OPTIONS */ 02111000 * PTR(31) DEFINED(INMVOPT); 0089 02112000 * 0089 02113000 * /*****************************************************************/ 02114000 * /* */ 02115000 * /* COPY OF PROBLEM MEASUREMENT VECTOR TABLE */ 02116000 * /* */ 02117000 * /*****************************************************************/ 02118000 * 0090 02119000 */**** START OF SPECIFICATIONS ***************************************/ 02120000 */* */ 02121000 */* MACCOMP Y-2 SC1CQ/GAM20 */ 02122000 */* MACSTAT Y-2 73121/Y02150 */ 02123000 */* MACMEAN MFMVT MEANS MEASUREMENT VECTOR TABLE */ 02124000 */* */ 02125000 */* MODULE-NAME = IRBDTMVT */ 02126000 */* IRBINMVT */ 02127000 */* IRBMFMVT */ 02128000 */* IRBSTMVT */ 02129000 */* IRBTMMVT */ 02130000 */* */ 02131000 */* DESCRIPTIVE-NAME = MEASUREMENT VECTOR TABLE */ 02132000 */* */ 02133000 */* COPYRIGHT = NONE */ 02134000 */* */ 02135000 */* STATUS = RELEASE 2, VERSION 0 */ 02136000 */* */ 02137000 */* FUNCTION = MAPPING MACRO FOR THE MVT. FOR EACH MF/1 MEASUREMENT,*/ 02138000 */* MVT CONTAINS A POINTER TO TO MEASUREMENT DATA, CONTROL*/ 02139000 */* DATA, OR A LIST OF MEASUREMENT DATA OR CONTROL */ 02140000 */* POINTERS. */ 02141000 */* */ 02142000 */* NOTES = SEE BELOW */ 02143000 */* */ 02144000 */* MULTIPLE MACRO NAMES ALLOWS A PROGRAM TO HAVE MULTIPLE COPIES */ 02145000 */* OF THE SAME DATA STRUCTURE FOR DIFFERENT USES, EACH WITH ITS */ 02146000 */* OWN IMPLICIT POINTER AND ATTRIBUTES. */ 02147000 */* */ 02148000 */* MODULE-TYPE = PLS MAPPING MACRO */ 02149000 */* */ 02150000 */* CHANGE-ACTIVITY = */ 02151000 */* */ 02152000 */* A000000-999999 Y02150*/ 02153000 */* */ 02154000 */* METHOD-OF-INVOCATION = SEE BELOW */ 02155000 */* */ 02156000 */* PLS - .QUESTION MARK.IRBDTMVT ATTRIBUT(ATTRIBUTES) */ 02157000 */* - .QUESTION MARK.IRBINMVT ATTRIBUT(ATTRIBUTES) */ 02158000 */* - .QUESTION MARK.IRBMFMVT ATTRIBUT(ATTRIBUTES) */ 02159000 */* - .QUESTION MARK.IRBSTMVT ATTRIBUT(ATTRIBUTES) */ 02160000 */* - .QUESTION MARK.IRBTMMVT ATTRIBUT(ATTRIBUTES) */ 02161000 */* WHERE ATTRIBUTES ARE ANY ACCEPTABLE PLS ATTRIBUTES */ 02162000 */* FOR STRUCTURE DECLARATIONS. */ 02163000 */* */ 02164000 */**** END OF SPECIFICATIONS *****************************************/ 02165000 * 0090 02166000 * /*****************************************************************/ 02167000 * /* */ 02168000 * /* ?IRBMFMVT */ 02169000 * /* */ 02170000 * /*****************************************************************/ 02171000 * 0090 02172000 * DECLARE 0090 02173000 * 1 MFMVT /* MEASUREMENT VECTOR TABLE */ 02174000 * BDY(WORD), 0090 02175000 * 2 MFMVNUM /* NUMBER OF MEASUREMENT OPTIONS */ 02176000 * FIXED(31), 0090 02177000 * 2 MFMVOPT, /* OPTION FIELDS */ 02178000 * 3 MFMVCPU /* CPU DATA/VECTOR */ 02179000 * PTR(31), 0090 02180000 * 3 MFMVPAG /* PAGING DATA/VECTOR */ 02181000 * PTR(31), 0090 02182000 * 3 MFMVWKL /* WORKLOAD DATA/VECTOR */ 02183000 * PTR(31), 0090 02184000 * 3 MFMVCHA /* CHANNEL DATA/VECTOR */ 02185000 * PTR(31), 0090 02186000 * 3 MFMVDEV /* DEVICE DATA/VECTOR */ 02187000 * PTR(31), 0090 02188000 * MFMVADD /* DATA ADDRESS,GENERAL REFERENCE*/ 02189000 * (5) /* NUMBER OF MEASUREMENT OPTIONS */ 02190000 * PTR(31) DEFINED(MFMVOPT); 0090 02191000 * 0090 02192000 * /*****************************************************************/ 02193000 * /* */ 02194000 * /* PROBLEM MEASUREMENT AREA */ 02195000 * /* */ 02196000 * /*****************************************************************/ 02197000 * 0091 02198000 */**** START OF SPECIFICATIONS ***************************************/ 02199000 */* */ 02200000 */* MACCOMP Y-2 SC1CQ/GAM20 */ 02201000 */* MACSTAT Y-2 73121/Y02150 */ 02202000 */* MACMEAN MFPMA MEANS PROBLEM MEASUREMENT AREA */ 02203000 */* */ 02204000 */* MODULE-NAME = IRBINPMA */ 02205000 */* IRBMFPMA */ 02206000 */* IRBTMPMA */ 02207000 */* */ 02208000 */* DESCRIPTIVE-NAME = PROBLEM MEASUREMENT AREA */ 02209000 */* */ 02210000 */* COPYRIGHT = NONE */ 02211000 */* */ 02212000 */* STATUS = RELEASE 2, VERSION 0 */ 02213000 */* */ 02214000 */* FUNCTION = MAPPING MACRO FOR THE PMA. THE PMA CONTAINS MF/1 */ 02215000 */* PROBLEM STATE FUNCTION DATA FOR EACH MEASUREMENT */ 02216000 */* OPTION. */ 02217000 */* */ 02218000 */* NOTES = SEE BELOW */ 02219000 */* */ 02220000 */* MULTIPLE MACRO NAMES ALLOWS A PROGRAM TO HAVE MULTIPLE COPIES */ 02221000 */* OF THE SAME DATA STRUCTURE FOR DIFFERENT USES, EACH WITH ITS */ 02222000 */* OWN IMPLICIT POINTER AND ATTRIBUTES. */ 02223000 */* */ 02224000 */* MODULE-TYPE = PLS MAPPING MACRO */ 02225000 */* */ 02226000 */* CHANGE-ACTIVITY = */ 02227000 */* */ 02228000 */* A000000-999999 Y02150*/ 02229000 */* */ 02230000 */* METHOD-OF-INVOCATION = SEE BELOW */ 02231000 */* */ 02232000 */* PLS - .QUESTION MARK.IRBINPMA ATTRIBUT(ATTRIBUTES) */ 02233000 */* - .QUESTION MARK.IRBMFPMA ATTRIBUT(ATTRIBUTES) */ 02234000 */* - .QUESTION MARK.IRBTMPMA ATTRIBUT(ATTRIBUTES) */ 02235000 */* WHERE ATTRIBUTES ARE ANY ACCEPTABLE PLS ATTRIBUTES */ 02236000 */* FOR STRUCTURE DECLARATIONS. */ 02237000 */* */ 02238000 */**** END OF SPECIFICATIONS *****************************************/ 02239000 * 0091 02240000 * /*****************************************************************/ 02241000 * /* */ 02242000 * /* ?IRBMFPMA ATTRIBUT(BASED) */ 02243000 * /* */ 02244000 * /*****************************************************************/ 02245000 * 0091 02246000 * DECLARE 0091 02247000 * 1 MFPMA /* PROBLEM MEASUREMENT AREA */ 02248000 * BASED BDY(WORD), 0091 02249000 * 2 MFPMOPT /* OPTION VARIABLES */ 02250000 * FIXED(31), /* 0-OPTION NOT IN EFFECT */ 02251000 * 3 MFPMCON /* OPTION CONTROL */ 02252000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED, 02253000 * 1-OPTION NOT YET SPECIFIED */ 02254000 * 3 * BIT(23), 0091 02255000 * 3 * /* LAST BYTE IN WORD */ 02256000 * BIT(8), 0091 02257000 * 6 * BIT(7), 0091 02258000 * 6 MFPMSTA /* OPTION STATUS FOR CPU, PAGING, 02259000 * CHANNEL */ 02260000 * BIT(1), /* 0-OPTION OFF, 1-OPTION ON, */ 02261000 * 2 MFPMSARG /* REPORT GENERATOR MODULE NAME */ 02262000 * CHAR(8), 0091 02263000 * 1 MFPMB /* DEFINE DIFFERENT OPTIONS */ 02264000 * BDY(WORD) DEF(MFPMOPT), 0091 02265000 * 3 * BIT(16), 0091 02266000 * 3 * /* LAST TWO BYTES IN WORD */ 02267000 * (2) /* FIRST SET IS DEVICE SPECIFIED, 02268000 * SECOND, DEVICE TYPE SELECTED. */ 02269000 * 0091 02270000 * /***********************************************************/ 02271000 * /* */ 02272000 * /* 0-OPTION SPECIFIED, 1-OPTION NOT SPECIFIED, 0-DEVICE NOT*/ 02273000 * /* SELECTED,, 1-DEVICE SELECTED, */ 02274000 * /* */ 02275000 * /***********************************************************/ 02276000 * 0091 02277000 * BIT(8), 0091 02278000 * 4 MFPMDEVF /* DEVICE FLAGS IN UCB TYPE ORDER*/ 02279000 * BIT(8), 0091 02280000 * 6 MFPMTAPE /* MAGNETIC TAPE DEVICES OPTION */ 02281000 * BIT(1), /* 0-OPTION NOT SELECTED, 0091 02282000 * 1-OPTION SELECTED */ 02283000 * 6 MFPMTP /* COMMUNICATION DEVICES OPTION */ 02284000 * BIT(1), /* 0-OPTION NOT SELECTED, 0091 02285000 * 1-OPTION SELECTED */ 02286000 * 6 MFPMDA /* DIRECT ACCESS DEVICES OPTION */ 02287000 * BIT(1), /* 0-OPTION NOT SELECTED, 0091 02288000 * 1-OPTION SELECTED */ 02289000 * 6 MFPMGRAP /* GRAPHICS DEVICES OPTION */ 02290000 * BIT(1), /* 0-OPTION NOT SELECTED, 0091 02291000 * 1-OPTION SELECTED */ 02292000 * 6 MFPMUNIT /* UNIT RECORD DEVICES OPTION */ 02293000 * BIT(1), /* 0-OPTION NOT SELECTED, 0091 02294000 * 1-OPTION SELECTED */ 02295000 * 6 MFPMCRDR /* CHARACTER READER DEVICES */ 02296000 * BIT(1), /* 0-OPTION NOT SELECTED, 0091 02297000 * 1-OPTION SELECTED */ 02298000 * 1 MFPMC /* DEFINE DIFFERENT OPTIONS */ 02299000 * BDY(WORD) DEF(MFPMOPT), 0091 02300000 * 3 * BIT(24), 0091 02301000 * 3 * /* LAST BYTE IN WORD */ 02302000 * BIT(8), 0091 02303000 * 6 * BIT(6), 0091 02304000 * 6 MFPMWKLD /* WORKLOAD OPTION. */ 02305000 * 0091 02306000 * /********************************************************/ 02307000 * /* */ 02308000 * /* VALUES INCREASE IN THE ORDER OF MORE DETAILED */ 02309000 * /* (VOLUME) OF REPORT PRINTOUT. */ 02310000 * /* */ 02311000 * /********************************************************/ 02312000 * 0091 02313000 * BIT(2), /* 00-OPTION OFF(KEYWORD=NO), 0091 02314000 * 01-SYSTEM DATA, 10-GROUP AND 02315000 * SYSTEM DATA, 0091 02316000 * 11-PERIOD,GROUP,SYSTEM */ 02317000 * MFPMDEVC /* DEVICE CONTROL FLAG CONSTANT */ 02318000 * BIT(8) CONSTANT('FC'X); 0091 02319000 * 0091 02320000 * /*****************************************************************/ 02321000 * /* */ 02322000 * /* SUPERVISOR COMMON OPTION AREA */ 02323000 * /* */ 02324000 * /*****************************************************************/ 02325000 * 0092 02326000 */**** START OF SPECIFICATIONS ***************************************/ 02327000 */* */ 02328000 */* MACCOMP Y-2 SC1CQ/GAM20 */ 02329000 */* MACSTAT Y-2 73121/Y02150 */ 02330000 */* MACMEAN STCOA MEANS COMMON OPTION AREA */ 02331000 */* */ 02332000 */* MODULE-NAME = IRBINCOA */ 02333000 */* IRBMFCOA */ 02334000 */* IRBSTCOA */ 02335000 */* IRBTMCOA */ 02336000 */* */ 02337000 */* DESCRIPTIVE-NAME = COMMON OPTION AREA */ 02338000 */* */ 02339000 */* COPYRIGHT = NONE */ 02340000 */* */ 02341000 */* STATUS = RELEASE 2, VERSION 0 */ 02342000 */* */ 02343000 */* FUNCTION = MAPPING MACRO FOR THE COA. THE COA CONTAINS THE */ 02344000 */* OPTIONS COMMON TO ALL MEASUREMENTS MADE BY MF/1. */ 02345000 */* */ 02346000 */* NOTES = SEE BELOW */ 02347000 */* */ 02348000 */* MULTIPLE MACRO NAMES ALLOWS A PROGRAM TO HAVE MULTIPLE COPIES */ 02349000 */* OF THE SAME DATA STRUCTURE FOR DIFFERENT USES, EACH WITH ITS */ 02350000 */* OWN IMPLICIT POINTER AND ATTRIBUTES. */ 02351000 */* */ 02352000 */* MODULE-TYPE = PLS MAPPING MACRO */ 02353000 */* */ 02354000 */* CHANGE-ACTIVITY = */ 02355000 */* */ 02356000 */* A000000-999999 Y02150*/ 02357000 */* */ 02358000 */* METHOD-OF-INVOCATION = SEE BELOW */ 02359000 */* */ 02360000 */* PLS - .QUESTION MARK.IRBINCOA ATTRIBUT(ATTRIBUTES) */ 02361000 */* - .QUESTION MARK.IRBMFCOA ATTRIBUT(ATTRIBUTES) */ 02362000 */* - .QUESTION MARK.IRBSTCOA ATTRIBUT(ATTRIBUTES) */ 02363000 */* - .QUESTION MARK.IRBTMCOA ATTRIBUT(ATTRIBUTES) */ 02364000 */* WHERE ATTRIBUTES ARE ANY ACCEPTABLE PLS ATTRIBUTES */ 02365000 */* FOR STRUCTURE DECLARATIONS. */ 02366000 */* */ 02367000 */**** END OF SPECIFICATIONS *****************************************/ 02368000 * 0092 02369000 * /*****************************************************************/ 02370000 * /* */ 02371000 * /* ?IRBSTCOA ATTRIBUT(BASED(STSCCOA)) */ 02372000 * /* */ 02373000 * /*****************************************************************/ 02374000 * 0092 02375000 * DECLARE 0092 02376000 * 1 STCOA /* COMMON OPTION AREA */ 02377000 * BASED(STSCCOA) BDY(WORD), 0092 02378000 * 2 STCOTCE /* TRACE OPTION VARIABLES */ 02379000 * FIXED(31), 0092 02380000 * 3 STCOTCEF /* TRACE OPTION FLAGS */ 02381000 * BIT(8), 0092 02382000 * 4 STCOTCEC /* TRACE OPTION CONTROL */ 02383000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0092 02384000 * 1-OPTION NOT YET SPECIFIED */ 02385000 * 3 * CHAR(2), 0092 02386000 * 3 STCOTCEL /* TRACE OPTION VALUE AREA */ 02387000 * CHAR(1), 0092 02388000 * 4 * BIT(7), 0092 02389000 * 4 STCOTCEV /* TRACE OPTION VALUE FLAG */ 02390000 * BIT(1), /* 0-MF/1 MEASUREMENTS NOT TRACED 02391000 * TO SMF. 1-MEASUREMENTS ARE 0092 02392000 * TRACED WITH SMF. */ 02393000 * 2 STCOCYC /* CYCLE OPTION VARIABLES */ 02394000 * FIXED(31), 0092 02395000 * 3 STCOCYCF /* CYCLE OPTION FLAGS */ 02396000 * BIT(8), 0092 02397000 * 4 STCOCYCC /* CYCLE OPTION CONTROL */ 02398000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0092 02399000 * 1-OPTION NOT YET SPECIFIED */ 02400000 * 3 * CHAR(1), 0092 02401000 * 3 STCOCYCV /* CYCLE OPTION VALUE */ 02402000 * FIXED(15), /* 50 TO 999 MILLISECONDS */ 02403000 * 2 STCOOUT /* OUT(PUT)CLASS OPTION */ 02404000 * FIXED(31), 0092 02405000 * 3 STCOOUTF /* OUTCLASS OPTION FLAGS */ 02406000 * BIT(8), 0092 02407000 * 4 STCOOUTC /* OUTCLASS OPTION CONTROL */ 02408000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0092 02409000 * 1-OPTION NOT YET SPECIFIED */ 02410000 * 3 * CHAR(2), 0092 02411000 * 3 STCOOUTV /* OUTCLASS OPTION VALUE */ 02412000 * CHAR(1), /* ALPHANUMERIC OUTPUT CLASS */ 02413000 * 2 STCOINT /* INTERVAL OPTION */ 02414000 * FIXED(31), 0092 02415000 * 3 STCOINTF /* INTERVAL OPTION FLAGS */ 02416000 * BIT(8), 0092 02417000 * 4 STCOINTC /* INTERVAL OPTION CONTROL */ 02418000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0092 02419000 * 1-OPTION NOT YET SPECIFIED */ 02420000 * 3 * CHAR(1), 0092 02421000 * 3 STCOINTV /* INTERVAL OPTION VALUE */ 02422000 * FIXED(15), /* 1 TO 60 MINUTES */ 02423000 * 2 STCOREP /* REPORT OPTION */ 02424000 * FIXED(31), 0092 02425000 * 3 STCOREPF /* REPORT OPTION FLAGS */ 02426000 * BIT(8), 0092 02427000 * 4 STCOREPC /* REPORT OPTION CONTROL */ 02428000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0092 02429000 * 1-OPTION NOT YET SPECIFIED */ 02430000 * 3 * CHAR(2), 0092 02431000 * 3 STCOREPL /* REPORT OPTION VALUE AREA */ 02432000 * CHAR(1), 0092 02433000 * 4 * BIT(6), 0092 02434000 * 4 STCOREPV /* REPORT OPTION VALUE FLAGS */ 02435000 * BIT(2), /* 00-NO REPORTS, 01-DEFERRED 0092 02436000 * REPORTS, 10-REALTIME REPORTS */ 02437000 * 2 STCOSTP /* STOP OPTION VALUE */ 02438000 * FIXED(31), 0092 02439000 * 3 STCOSTPF /* STOP OPTION FLAGS */ 02440000 * BIT(8), 0092 02441000 * 4 STCOSTPC /* STOP OPTION CONTROL */ 02442000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0092 02443000 * 1-OPTION NOT YET SPECIFIED */ 02444000 * 4 STCOSTPS /* STOP OPTION STATUS */ 02445000 * BIT(1), /* 0-MF/1 STOPS AFTER --COSTPV 0092 02446000 * STOP OPTION UNITS(COSTPU). 0092 02447000 * 1-MF/1 DOES NOT STOP UNDER 0092 02448000 * PROGRAM CONTROL,(STOP 0092 02449000 * COMMAND). */ 02450000 * 4 STCOSTPU /* STOP OPTION UNITS */ 02451000 * BIT(1), /* 0-VALUE IS IN MINUTES 1-VALUE 02452000 * IS IN HOURS */ 02453000 * 3 * CHAR(1), 0092 02454000 * 3 STCOSTPV /* STOP OPTION VALUE */ 02455000 * FIXED(15), /* 1-168 HOURS, 1-10080 MINUTES 02456000 * (1 WEEK) */ 02457000 * 2 STCOOPI /* OPERATOR INTERVENTION OPTION */ 02458000 * FIXED(31), 0092 02459000 * 3 STCOOPIF /* OPI OPTION FLAGS */ 02460000 * BIT(8), 0092 02461000 * 4 STCOOPIC /* OPI OPTION CONTROL */ 02462000 * BIT(1), /* 0-OPTION HAS BEEN SPECIFIED 0092 02463000 * 1-OPTION NOT YET SPECIFIED */ 02464000 * 3 * CHAR(2), 0092 02465000 * 3 STCOOPIL /* OPI OPTION VALUE AREA */ 02466000 * CHAR(1), 0092 02467000 * 4 * BIT(7), 0092 02468000 * 4 STCOOPIV /* OPI OPTION VALUE FLAG */ 02469000 * BIT(1), /* 0-DO NOT LIST OPTIONS, 1-LIST 02470000 * OPTIONS */ 02471000 * 2 STCOMEM /* MEMBER OPTION */ 02472000 * FIXED(31), 0092 02473000 * 3 STCOMEMF /* MEMBER OPTION FLAGS */ 02474000 * BIT(8), 0092 02475000 * 4 STCOMEMC /* MEMBER OPTION CONTROL */ 02476000 * BIT(1), 0092 02477000 * 3 * CHAR(1), 0092 02478000 * 3 STCOMEMV /* MEMBER OPTION VALUE */ 02479000 * CHAR(2), /* MF/1 OPTION DATA SET SUFFIX */ 02480000 * 1 STCOOPTN /* OPTION ARRAY */ 02481000 * (*) BIT(32) DEFINED(STCOA), 0092 02482000 * 2 STCOCTRL /* OPTION CONTROL */ 02483000 * BIT(1); 0092 02484000 * 0092 02485000 * /*****************************************************************/ 02486000 * /* */ 02487000 * /* GLOBAL STORAGE TABLE */ 02488000 * /* */ 02489000 * /*****************************************************************/ 02490000 * 0093 02491000 */**** START OF SPECIFICATIONS ***************************************/ 02492000 */* */ 02493000 */* MACCOMP Y-2 SC1CQ/GAM20 */ 02494000 */* MACSTAT Y-2 73121/Y02150 */ 02495000 */* MACMEAN STGST MEANS GLOBAL SUPERVISOR TABLE */ 02496000 */* */ 02497000 */* MODULE-NAME = IRBSTGST */ 02498000 */* */ 02499000 */* DESCRIPTIVE-NAME = GLOBAL SUPERVISOR TABLE */ 02500000 */* */ 02501000 */* COPYRIGHT = NONE */ 02502000 */* */ 02503000 */* STATUS = RELEASE 2, VERSION 0 */ 02504000 */* */ 02505000 */* FUNCTION = MAPPING MACRO FOR THE STGST. IT CONTAINS MF/1 DATA */ 02506000 */* WHICH MUST BE FIXED OR BE ACCESSIBLE FROM ANY ADDRESS */ 02507000 */* SPACE. */ 02508000 */* */ 02509000 */* NOTES = SEE BELOW */ 02510000 */* */ 02511000 */* MODULE-TYPE = BILINGUAL MAPPING MACRO */ 02512000 */* */ 02513000 */* CHANGE-ACTIVITY = */ 02514000 */* */ 02515000 */* A000000-999999 Y02150*/ 02516000 */* */ 02517000 */* METHOD-OF-INVOCATION = SEE BELOW */ 02518000 */* */ 02519000 */* PLS - .QUESTION MARK.IRBSTGST ATTRIBUT(ATTRIBUTES) */ 02520000 */* WHERE ATTRIBUTES ARE ANY ACCEPTABLE PLS ATTRIBUTES */ 02521000 */* FOR STRUCTURE DECLARATIONS. */ 02522000 */* */ 02523000 */* BAL - LABEL IRBSTGST */ 02524000 */* WHERE THE OPTIONAL LABEL PROVIDES A DSECT BY THE SAME */ 02525000 */* NAME. */ 02526000 */* */ 02527000 */**** END OF SPECIFICATIONS *****************************************/ 02528000 * 0093 02529000 * /*****************************************************************/ 02530000 * /* */ 02531000 * /* ?IRBSTGST ATTRIBUT(BASED) */ 02532000 * /* */ 02533000 * /*****************************************************************/ 02534000 * 0093 02535000 * DECLARE 0093 02536000 * 1 STGST /* GLOBAL SUPERVISOR TABLE */ 02537000 * BASED BDY(WORD), 0093 02538000 * 2 STGSNAME /* TABLE NAME (STGS) */ 02539000 * CHAR(4), 0093 02540000 * 2 STGSSCT /* ADDRESS OF SUPERVISOR CONTROL 02541000 * TABLE (STSCT) */ 02542000 * PTR(31), 0093 02543000 * 2 STGSTCB /* TCB ADDRESS OF TASK WHICH 0093 02544000 * ISSUED MSTART SVC (SVC 103, 0093 02545000 * CODE 13) (IRBMFMFC) */ 02546000 * PTR(31), 0093 02547000 * 2 STGSASID /* ASID OF TASK WHICH ISSUED 0093 02548000 * MFSTART SVC (SVC 103, CODE 13) 02549000 * (IRBMFMFC) */ 02550000 * FIXED(15), 0093 02551000 * 2 * CHAR(2), 0093 02552000 * 2 STGSMMV /* ADDRESS OF MFROUTER MG VECTOR 02553000 * TABLE (MFMMV) */ 02554000 * PTR(31), 0093 02555000 * 2 STGSCYC /* MF/1 SAMPLING CYCLE PERIOD, IN 02556000 * TIME OF DAY (TOD) CLOCK FORMAT*/ 02557000 * CHAR(8); 0093 02558000 * 0093 02559000 * /*****************************************************************/ 02560000 * /* */ 02561000 * /* SUPERVISOR MEASUREMENT VECTOR TABLE */ 02562000 * /* */ 02563000 * /*****************************************************************/ 02564000 * 0094 02565000 */**** START OF SPECIFICATIONS ***************************************/ 02566000 */* */ 02567000 */* MACCOMP Y-2 SC1CQ/GAM20 */ 02568000 */* MACSTAT Y-2 73121/Y02150 */ 02569000 */* MACMEAN STMVT MEANS MEASUREMENT VECTOR TABLE */ 02570000 */* */ 02571000 */* MODULE-NAME = IRBDTMVT */ 02572000 */* IRBINMVT */ 02573000 */* IRBMFMVT */ 02574000 */* IRBSTMVT */ 02575000 */* IRBTMMVT */ 02576000 */* */ 02577000 */* DESCRIPTIVE-NAME = MEASUREMENT VECTOR TABLE */ 02578000 */* */ 02579000 */* COPYRIGHT = NONE */ 02580000 */* */ 02581000 */* STATUS = RELEASE 2, VERSION 0 */ 02582000 */* */ 02583000 */* FUNCTION = MAPPING MACRO FOR THE MVT. FOR EACH MF/1 MEASUREMENT,*/ 02584000 */* MVT CONTAINS A POINTER TO TO MEASUREMENT DATA, CONTROL*/ 02585000 */* DATA, OR A LIST OF MEASUREMENT DATA OR CONTROL */ 02586000 */* POINTERS. */ 02587000 */* */ 02588000 */* NOTES = SEE BELOW */ 02589000 */* */ 02590000 */* MULTIPLE MACRO NAMES ALLOWS A PROGRAM TO HAVE MULTIPLE COPIES */ 02591000 */* OF THE SAME DATA STRUCTURE FOR DIFFERENT USES, EACH WITH ITS */ 02592000 */* OWN IMPLICIT POINTER AND ATTRIBUTES. */ 02593000 */* */ 02594000 */* MODULE-TYPE = PLS MAPPING MACRO */ 02595000 */* */ 02596000 */* CHANGE-ACTIVITY = */ 02597000 */* */ 02598000 */* A000000-999999 Y02150*/ 02599000 */* */ 02600000 */* METHOD-OF-INVOCATION = SEE BELOW */ 02601000 */* */ 02602000 */* PLS - .QUESTION MARK.IRBDTMVT ATTRIBUT(ATTRIBUTES) */ 02603000 */* - .QUESTION MARK.IRBINMVT ATTRIBUT(ATTRIBUTES) */ 02604000 */* - .QUESTION MARK.IRBMFMVT ATTRIBUT(ATTRIBUTES) */ 02605000 */* - .QUESTION MARK.IRBSTMVT ATTRIBUT(ATTRIBUTES) */ 02606000 */* - .QUESTION MARK.IRBTMMVT ATTRIBUT(ATTRIBUTES) */ 02607000 */* WHERE ATTRIBUTES ARE ANY ACCEPTABLE PLS ATTRIBUTES */ 02608000 */* FOR STRUCTURE DECLARATIONS. */ 02609000 */* */ 02610000 */**** END OF SPECIFICATIONS *****************************************/ 02611000 * 0094 02612000 * /*****************************************************************/ 02613000 * /* */ 02614000 * /* ?IRBSTMVT ATTRIBUT(BASED(STSCMVT)) */ 02615000 * /* */ 02616000 * /*****************************************************************/ 02617000 * 0094 02618000 * DECLARE 0094 02619000 * 1 STMVT /* MEASUREMENT VECTOR TABLE */ 02620000 * BASED(STSCMVT) BDY(WORD), 0094 02621000 * 2 STMVNUM /* NUMBER OF MEASUREMENT OPTIONS */ 02622000 * FIXED(31), 0094 02623000 * 2 STMVOPT, /* OPTION FIELDS */ 02624000 * 3 STMVCPU /* CPU DATA/VECTOR */ 02625000 * PTR(31), 0094 02626000 * 3 STMVPAG /* PAGING DATA/VECTOR */ 02627000 * PTR(31), 0094 02628000 * 3 STMVWKL /* WORKLOAD DATA/VECTOR */ 02629000 * PTR(31), 0094 02630000 * 3 STMVCHA /* CHANNEL DATA/VECTOR */ 02631000 * PTR(31), 0094 02632000 * 3 STMVDEV /* DEVICE DATA/VECTOR */ 02633000 * PTR(31), 0094 02634000 * STMVADD /* DATA ADDRESS,GENERAL REFERENCE*/ 02635000 * (5) /* NUMBER OF MEASUREMENT OPTIONS */ 02636000 * PTR(31) DEFINED(STMVOPT); 0094 02637000 * 0094 02638000 * /*****************************************************************/ 02639000 * /* */ 02640000 * /* RESOURCE VECTOR TABLE */ 02641000 * /* */ 02642000 * /*****************************************************************/ 02643000 * 0095 02644000 */**** START OF SPECIFICATIONS ***************************************/ 02645000 */* */ 02646000 */* MACCOMP Y-2 SC1CQ/GAM20 */ 02647000 */* MACSTAT Y-2 73121/Y02150 */ 02648000 */* MACMEAN STRVT MEANS RESOURCE VECTOR TABLE */ 02649000 */* */ 02650000 */* MODULE-NAME = IRBSTRVT */ 02651000 */* */ 02652000 */* DESCRIPTIVE-NAME = RESOURCE VECTOR TABLE */ 02653000 */* */ 02654000 */* COPYRIGHT = NONE */ 02655000 */* */ 02656000 */* STATUS = RELEASE 2, VERSION 0 */ 02657000 */* */ 02658000 */* FUNCTION = MAPPING MACRO FOR THE STRVT. IT CONTAINS A LIST OF */ 02659000 */* MF/1 SUPERVISOR STATE RESOURCE TABLES FOR AN MF/1 MEA-*/ 02660000 */* SUREMENT OPTION. */ 02661000 */* */ 02662000 */* NOTES = SEE BELOW */ 02663000 */* */ 02664000 */* MODULE-TYPE = PLS MAPPING MACRO */ 02665000 */* */ 02666000 */* CHANGE-ACTIVITY = */ 02667000 */* */ 02668000 */* A000000-999999 Y02150*/ 02669000 */* */ 02670000 */* METHOD-OF-INVOCATION = SEE BELOW */ 02671000 */* */ 02672000 */* PLS - .QUESTION MARK.IRBSTRVT ATTRIBUT(ATTRIBUTES) */ 02673000 */* WHERE ATTRIBUTES ARE ANY ACCEPTABLE PLS ATTRIBUTES */ 02674000 */* FOR STRUCTURE DECLARATIONS. */ 02675000 */* */ 02676000 */**** END OF SPECIFICATIONS *****************************************/ 02677000 * 0095 02678000 * /*****************************************************************/ 02679000 * /* */ 02680000 * /* ?IRBSTRVT ATTRIBUT(BASED) */ 02681000 * /* */ 02682000 * /*****************************************************************/ 02683000 * 0095 02684000 * DECLARE 0095 02685000 * 1 STRVT /* RESOURCE VECTOR TABLE */ 02686000 * BASED BDY(WORD), 0095 02687000 * 2 STRVSPRT /* ADDRESS OF PROGRAM RESOURCE 0095 02688000 * TABLE(STPRT) FOR THIS OPTION */ 02689000 * PTR(31), 0095 02690000 * 2 STRVNPRT /* NUMBER OF NEXT AVAILABLE ENTRY 02691000 * IN STPRT FOR THE OPTION */ 02692000 * FIXED(31), 0095 02693000 * 2 STRVSSGT /* ADDRESS OF STORAGE RESOURCE 0095 02694000 * TABLE(STSGT) FOR THIS OPTION */ 02695000 * PTR(31), 0095 02696000 * 2 STRVNSGT /* NUMBER OF NEXT AVAILABLE ENTRY 02697000 * IN STSGT FOR THE OPTION */ 02698000 * FIXED(31); 0095 02699000 * 0095 02700000 * /*****************************************************************/ 02701000 * /* */ 02702000 * /* SUPERVISOR CONTROL TABLE */ 02703000 * /* */ 02704000 * /*****************************************************************/ 02705000 * 0096 02706000 */**** START OF SPECIFICATIONS ***************************************/ 02707000 */* */ 02708000 */* MACCOMP Y-2 SC1CQ/GAM20 */ 02709000 */* MACSTAT Y-2 74023/Y02150 */ 02710000 */* MACMEAN STSCT MEANS SUPERVISOR CONTROL TABLE */ 02711000 */* */ 02712000 */* MODULE-NAME = IRBSTSCT */ 02713000 */* */ 02714000 */* DESCRIPTIVE-NAME = SUPERVISOR CONTR3L TABLE */ 02715000 */* */ 02716000 */* COPYRIGHT = NONE */ 02717000 */* */ 02718000 */* STATUS = RELEASE 2, VERSION 0 */ 02719000 */* */ 02720000 */* FUNCTION = MAPPING MACRO FOR THE STSCT. IT IS THE MAIN CONTROL */ 02721000 */* TABLE FOR MF/1 SUPERVISOR STATE FUNCTIONS. IT CONTAINS*/ 02722000 */* POINTERS TO THE FOLLOWING MF/1 TABLES: */ 02723000 */* STMVT */ 02724000 */* STCOA */ 02725000 */* DTMVT */ 02726000 */* */ 02727000 */* NOTES = SEE BELOW */ 02728000 */* */ 02729000 */* MODULE-TYPE = PLS MAPPING MACRO */ 02730000 */* */ 02731000 */* CHANGE-ACTIVITY = */ 02732000 */* */ 02733000 */* A000000-999999 Y02150*/ 02734000 */* */ 02735000 */* METHOD-OF-INVOCATION = SEE BELOW */ 02736000 */* */ 02737000 */* PLS - .QUESTION MARK.IRBSTSCT ATTRIBUT(ATTRIBUTES) */ 02738000 */* WHERE ATTRIBUTES ARE ANY ACCEPTABLE PLS ATTRIBUTES */ 02739000 */* FOR STRUCTURE DECLARATIONS. */ 02740000 */* */ 02741000 */**** END OF SPECIFICATIONS *****************************************/ 02742000 * 0096 02743000 * /*****************************************************************/ 02744000 * /* */ 02745000 * /* ?IRBSTSCT ATTRIBUT(BASED(STGSSCT)) */ 02746000 * /* */ 02747000 * /*****************************************************************/ 02748000 * 0096 02749000 * DECLARE 0096 02750000 * 1 STSCT /* SUPERVISOR CONTROL TABLE */ 02751000 * BASED(STGSSCT) BDY(WORD), 0096 02752000 * 2 STSCNAME /* TABLE NAME (STSC) */ 02753000 * CHAR(4), 0096 02754000 * 2 STSCMVT /* MEASUREMENT VECTOR TABLE(MVT) 02755000 * ADDRESS FOR SUPERVISOR MEA- 0096 02756000 * SUREMENT AREA */ 02757000 * PTR(31), 0096 02758000 * 2 STSCCOA /* COMMON OPTION AREA ADDRESS 0096 02759000 * (ST)COA) */ 02760000 * PTR(31), 0096 02761000 * 2 STSCMF1V /* MF/1 VERSION NUMBER */ 02762000 * CHAR(2), 0096 02763000 * 2 STSCFLAG /* FLAGS */ 02764000 * BIT(16), 0096 02765000 * 3 * BIT(14), 0096 02766000 * 3 STSCINIT /* INITIAL CALL BY MFSTART TO 0096 02767000 * MFDATA */ 02768000 * BIT(1), /* 0-NOT INITIAL CALL, 1-INITIAL 02769000 * CALL */ 02770000 * 3 STSCMENQ /* MFSTART HOLDS ENQ ON 0096 02771000 * SYSIRBMF.ACTIVE */ 02772000 * BIT(1), /* 0-ENQ HELD BY CALLER OF 0096 02773000 * MFSTART. 1-ENQ HELD BY MFSTART*/ 02774000 * 2 STSCDATE /* DATE OF INTERVAL START, PACKED 02775000 * FORM 00YYDDDF */ 02776000 * FIXED(31), 0096 02777000 * 2 STSCTIME /* LOCAL TIME OF DAY OF START OF 02778000 * INTERVALS DATA */ 02779000 * CHAR(4), /* FORMAT 0HHMMSSF */ 02780000 * 2 STSCGMT /* GMT TIME OF CENTURY OF START 02781000 * OF INTERVALS DATA. */ 02782000 * CHAR(8), /* TOD CLOCK FORMAT */ 02783000 * 2 STSCMVSG, /* DTMVT SUBPOOL & LENGTH */ 02784000 * 3 STSCMVSP /* SUBPOOL NUMBER FOR DTMVT 0096 02785000 * STORAGE */ 02786000 * FIXED(8), 0096 02787000 * 3 STSCMVLE /* LENGTH OF DTMVT STORAGE */ 02788000 * FIXED(24), 0096 02789000 * 2 STSCMVAD /* ADDRESS OF DTMVT STORAGE */ 02790000 * PTR(31), 0096 02791000 * 2 STSCLSRG /* MF/1 LOCAL STORAGE DESCRIPTOR 02792000 * (SP & LENGTH) FOR TERMINATION */ 02793000 * PTR(31), 0096 02794000 * 2 STSCMSRG /* MF/1 STMMV TABLE SP & LENGTH */ 02795000 * FIXED(32), 0096 02796000 * 2 STSCGSRG /* MF/1 GLOBAL STORAGE TABLE SP & 02797000 * LENGTH FOR TERMINATION */ 02798000 * PTR(31); 0096 02799000 * 0096 02800000 * /*****************************************************************/ 02801000 * /* */ 02802000 * /* SUPERVISOR MEASUREMENT AREA */ 02803000 * /* */ 02804000 * /*****************************************************************/ 02805000 * 0097 02806000 */**** START OF SPECIFICATIONS ***************************************/ 02807000 */* */ 02808000 */* MACCOMP Y-2 SC1CQ/GAM20 */ 02809000 */* MACSTAT Y-2 73121/Y02150 */ 02810000 */* MACMEAN STSMA MEANS SUPERVISOR MEASUREMENT AREA */ 02811000 */* */ 02812000 */* MODULE-NAME = IRBSTSMA */ 02813000 */* */ 02814000 */* DESCRIPTIVE-NAME = SUPERVISOR MEASUREMENT AREA */ 02815000 */* */ 02816000 */* COPYRIGHT = NONE */ 02817000 */* */ 02818000 */* STATUS = RELEASE 2, VERSION 0 */ 02819000 */* */ 02820000 */* FUNCTION = MAPPING MACRO FOR THE STSMA. IT CONTAINS MF/1 SUPER- */ 02821000 */* VISOR STATE FUNCTION DATA FOR EACH MEASUREMENT OPTION.*/ 02822000 */* */ 02823000 */* NOTES = SEE BELOW */ 02824000 */* */ 02825000 */* MODULE-TYPE = PLS MAPPING MACRO */ 02826000 */* */ 02827000 */* CHANGE-ACTIVITY = */ 02828000 */* */ 02829000 */* A000000-999999 Y02150*/ 02830000 */* */ 02831000 */* METHOD-OF-INVOCATION = SEE BELOW */ 02832000 */* */ 02833000 */* PLS - .QUESTION MARK.IRBSTSMA ATTRIBUT(ATTRIBUTES) */ 02834000 */* WHERE ATTRIBUTES ARE ANY ACCEPTABLE PLS ATTRIBUTES */ 02835000 */* FOR STRUCTURE DECLARATIONS. */ 02836000 */* */ 02837000 */**** END OF SPECIFICATIONS *****************************************/ 02838000 * 0097 02839000 * /*****************************************************************/ 02840000 * /* */ 02841000 * /* ?IRBSTSMA ATTRIBUT(BASED) */ 02842000 * /* */ 02843000 * /*****************************************************************/ 02844000 * 0097 02845000 * DECLARE 0097 02846000 * 1 STSMA /* SUPERVISOR MEASUREMENT AREA */ 02847000 * BASED BDY(WORD), 0097 02848000 * 2 STSMOPT /* OPTION VARIABLES */ 02849000 * FIXED(31), /* 0-OPTION NOT IN EFFECT */ 02850000 * 3 * BIT(24), 0097 02851000 * 3 STSMOFLG /* OPTION FLAGS */ 02852000 * BIT(8), 0097 02853000 * 6 * BIT(7), 0097 02854000 * 6 STSMSTA /* OPTION STATUS FOR CPU, PAGING, 02855000 * CHANNEL */ 02856000 * BIT(1), /* 0-OPTION OFF, 1-OPTION ON */ 02857000 * 2 STSMINIT /* OPTION INITIALIZATION ENTRY 0097 02858000 * POINT NAME */ 02859000 * CHAR(8), 0097 02860000 * 2 STSMTERM /* OPTION TERMINATION ENTRY POINT 02861000 * NAME */ 02862000 * CHAR(8), 0097 02863000 * 2 STSMINTP /* INTERVAL MG PROLOGUE ADDRESS */ 02864000 * PTR(31), 0097 02865000 * 2 STSMSAVE /* SAVE AREA ADDRESS */ 02866000 * PTR(31), 0097 02867000 * 2 STSMENTR /* RE-ENTRY ADDRESS FOR INTERVAL 02868000 * DRIVEN MG ROUTINE */ 02869000 * PTR(31), 0097 02870000 * 2 STSMEDAD /* EVENT DATA AREA ADDRESS */ 02871000 * PTR(31), 0097 02872000 * 2 STSMIGMC, /* GETMAIN CONTROL */ 02873000 * 3 STSMISP /* LAST INTERVALS DATA AREA 0097 02874000 * SUBPOOL ID */ 02875000 * FIXED(8), 0097 02876000 * 3 STSMILEN /* LAST INTERVALS DATA AREA 0097 02877000 * LENGTH */ 02878000 * FIXED(24), 0097 02879000 * 2 STSMIADD /* LAST INTERVALS DATA AREA 0097 02880000 * ADDRESS */ 02881000 * PTR(31), 0097 02882000 * 2 STSMRVT /* ADDRESS OF RESOURCE VECTOR 0097 02883000 * TABLE (RVT) FOR THIS OPTION */ 02884000 * PTR(31), 0097 02885000 * 2 STSMLCOM /* LOCAL COMMUNICATION AREA OR 0097 02886000 * COMMUNICATION AREA ADDRESS */ 02887000 * PTR(31), 0097 02888000 * 2 STSMSSP /* SMF RECORD SUBPOOL */ 02889000 * FIXED(8) BDY(WORD), 0097 02890000 * 2 STSMRSV1 /* RESERVED */ 02891000 * CHAR(3), 0097 02892000 * 1 STSMB /* DEFINE DIFFERENT OPTIONS */ 02893000 * BDY(WORD) DEF(STSMOPT), 0097 02894000 * 3 * BIT(24), 0097 02895000 * 3 * /* LAST BYTE IN WORD */ 02896000 * BIT(8), 0097 02897000 * 4 STSMDEVF /* DEVICE CLASS FLAGS, IN UCB */ 02898000 * 0097 02899000 * /**********************************************************/ 02900000 * /* */ 02901000 * /* TYPE ORDER */ 02902000 * /* */ 02903000 * /**********************************************************/ 02904000 * 0097 02905000 * BIT(6), 0097 02906000 * 6 STSMTAPE /* MAGNETIC TAPE DEVICES */ 02907000 * BIT(1), /* 0-OPTION NOT SELECTED 1-OPTION 02908000 * SELECTED */ 02909000 * 6 STSMTP /* COMMUNICATION DEVICES */ 02910000 * BIT(1), /* 0-OPTION NOT SELECTED 1-OPTION 02911000 * SELECTED */ 02912000 * 6 STSMDA /* DIRECT ACCESS DEVICES */ 02913000 * BIT(1), /* 0-OPTION NOT SELECTED 1-OPTION 02914000 * SELECTED */ 02915000 * 6 STSMGRAP /* GRAPHICS DEVICES */ 02916000 * BIT(1), /* 0-OPTION NOT SELECTED 1-OPTION 02917000 * SELECTED */ 02918000 * 6 STSMUNIT /* UNIT RECORD DEVICES */ 02919000 * BIT(1), /* 0-OPTION NOT SELECTED 1-OPTION 02920000 * SELECTED */ 02921000 * 6 STSMCRDR /* CHARACTER READER DEVICES */ 02922000 * BIT(1), /* 0-OPTION NOT SELECTED 1-OPTION 02923000 * SELECTED */ 02924000 * 1 STSMC /* DEFINE DIFFERENT OPTIONS */ 02925000 * BDY(WORD) DEF(STSMOPT), 0097 02926000 * 3 * BIT(24), 0097 02927000 * 3 * /* LAST BYTE IN WORD */ 02928000 * BIT(8), 0097 02929000 * 6 * BIT(6), 0097 02930000 * 6 STSMWKLD /* WORKLOAD OPTION. */ 02931000 * 0097 02932000 * /********************************************************/ 02933000 * /* */ 02934000 * /* VALUE IS IN ORDER OF LEVEL OF DETAIL (VOLUME) OF */ 02935000 * /* REPORT PRINTOUT. */ 02936000 * /* */ 02937000 * /********************************************************/ 02938000 * 0097 02939000 * BIT(2) /* 00-OPTION OFF, 01-SYSTEM DATA, 02940000 * 10-GROUP,SYSTEM, 0097 02941000 * 11-PERIOD,GROUP, SYSTEM */ 02942000 * ; 0097 02943000 * 0097 02944000 * /*****************************************************************/ 02945000 * /* */ 02946000 * /* TIMER QUEUE ELEMENT */ 02947000 * /* */ 02948000 * /*****************************************************************/ 02949000 * 0098 02950000 */* ******************************************************************/ 02951000 */* */ 02952000 */* MACCOMP OS/VS2,RELEASE 2 SC1CV/PZD81 */ 02953000 */* */ 02954000 */* MACSTAT OS/VS2,RELEASE 2 73090/Y02759 */ 02955000 */* */ 02956000 */* MACMEAN TQE MEANS TIMER QUEUE ELEMENT */ 02957000 */* */ 02958000 */* ******************************************************************/ 02959000 * 0098 02960000 * DECLARE 0098 02961000 * 1 TQE BASED(TQEPTR) BDY(DWORD),/* TIMER QUEUE ELEMENT */ 02962000 * 3 TQETQE CHAR(4) BDY(WORD), /* TQE IDENTIFICATION */ 02963000 * 3 TQEFLNK POINTER(31), /* ADDRESS OF NEXT TQE */ 02964000 * 3 TQEBLNK POINTER(31), /* ADDRESS OF PREVIOUS TQE */ 02965000 * 3 TQEAID FIXED(16) UNSIGNED,/* REQUESTORS ASID */ 02966000 * 3 TQEFLGS BIT(8), /* TQE FLAG BYTE 1 */ 02967000 * 5 TQEOFF BIT(1), /* TQE IS OFF TIMER QUEUE */ 02968000 * 5 TQETOD BIT(1), /* TOD OPTION SPECIFIED */ 02969000 * 5 * BIT(1), /* RESERVED */ 02970000 * 5 TQEWLIM BIT(1), /* WAIT LIMIT EXCEEDED */ 02971000 * 5 TQEINCOM BIT(1), /* INTERVAL IS COMPLETE */ 02972000 * 5 TQEXITSP BIT(1), /* AN EXIT WAS SPECIFIED */ 02973000 * 5 TQETYPE BIT(2), /* TQE TYPE 00=TASK REQUEST 0098 02974000 * 01=WAIT REQUEST 11=REAL 0098 02975000 * REQUEST */ 02976000 * 3 TQEFLGS2 BIT(8), /* TQE FLAG BYTE 2 */ 02977000 * 5 TQECOMP BIT(1), /* REAL TQE IS BEING TIMED */ 02978000 * 5 TQEUSER BIT(1), /* NON SYSTEM TQE */ 02979000 * 5 * BIT(1), /* RESERVED */ 02980000 * 5 TQEDUM BIT(1), /* DUMMY SYSTEM TQE */ 02981000 * 5 TQELM BIT(1), /* TIME LIMIT CHECKING SYSTEM TQE*/ 02982000 * 5 TQEOPT BIT(1), /* SYSTEM RESOURCES MANAGER TQE */ 02983000 * 5 TQEMF1 BIT(1), /* MF/1 SYSTEM TQE */ 02984000 * 5 TQEMIDN BIT(1), /* MIDNIGHT SYSTEM TQE */ 02985000 * 3 TQEVAL BIT(64) BDY(DWORD),/* EXPIRATION TIME/TIME LEFT */ 02986000 * 5 TQEVALLH FIXED(32) UNSIGNED, 0098 02987000 * 5 TQEVALRH FIXED(32) UNSIGNED, 0098 02988000 * 3 TQESADDR POINTER(31), /* ADDRESS OF PP SAVE AREA */ 02989000 * 3 TQEEXIT POINTER(31), /* ADDRESS OF USER EXIT RTN */ 02990000 * 3 TQETCB POINTER(31), /* ADDRESS OF USER TCB */ 02991000 * 3 TQEASCB POINTER(31), /* ADDRESS OF USER ASCB */ 02992000 * 3 TQELHPSW FIXED(32) UNSIGNED,/* FIRST WORD OF CURRENT PSW */ 02993000 * 3 TQESRB CHAR(44) BDY(WORD),/* SRB */ 02994000 * 3 * CHAR(40); /* RESERVED */ 02995000 * DECLARE 0099 02996000 * TQEECB DEFINED(TQEEXIT) FIXED(32) UNSIGNED;/* ECB IF WAIT TYPE 02997000 * TQE */ 02998000 * 0099 02999000 * /*****************************************************************/ 03000000 * /* */ 03001000 * /* TIMER CONTROL AREA */ 03002000 * /* */ 03003000 * /*****************************************************************/ 03004000 * 0100 03005000 */* **************************************************************** */ 03006000 */* */ 03007000 */* MACCOMP OS/VS2,RELEASE 2 SC1CV/PZD81 */ 03008000 */* */ 03009000 */* MACSTAT OS/VS2,RELEASE 2 73137/Y02759 */ 03010000 */* */ 03011000 */* **************************************************************** */ 03012000 * 0100 03013000 * DECLARE 0100 03014000 * 1 TPC BASED(TPCPTR) BDY(DWORD), 0100 03015000 * 2 IEATPC, /* TIMER SUPERVISION WORKAREA */ 03016000 * 3 TPCTPCA CHAR(4) BDY(DWORD) INITIAL(' TPC'),/* TPC 0100 03017000 * IDENTIFICATION */ 03018000 * 3 TPCFLGS1 CHAR(1) INITIAL('00'X),/* TPCA FLAG BYTE 1 */ 03019000 * 5 TPCABND BIT(1), /* REAL TQES ABENDED */ 03020000 * 5 TPCSYNC BIT(1), /* SYNC CHECK OCCURRED */ 03021000 * 5 * BIT(6), /* RESERVED */ 03022000 * 3 * CHAR(2) INITIAL('0000'X),/* RESERVED */ 03023000 * 3 TPCCC CHAR(1) INITIAL('00'X),/* STCK CONDITION CODE */ 03024000 * 3 TPCTZORG FIXED(31) INITIAL(0),/* IPL TIME ZONE CONSTANT */ 03025000 * 3 TPCHDCCQ POINTER(31) INITIAL(ADDR(TPCDMTQE)),/* HEAD OF 0100 03026000 * REAL TIME QUEUE */ 03027000 * 3 TPCDMTQE, /* DUMMY TQE */ 03028000 * 5 * CHAR(4) INITIAL(' TQE'),/* DUMMY TQE */ 03029000 * 5 DFD POINTER(31) /* DUMMY TQE */ 03030000 * INITIAL(ADDR(TPCDMTQE)),/* DUMMY TQE */ 03031000 * 5 * POINTER(31) INITIAL /* DUMMY TQE */ 03032000 * (ADDR(TPCHDCCQ)-ADDR(DFD)+ADDR(TPCDMTQE)),/* DUMMY 0100 03033000 * TQE */ 03034000 * 5 * FIXED(16) UNSIGNED /* DUMMY TQE */ 03035000 * INITIAL(0), /* DUMMY TQE */ 03036000 * 5 * CHAR(1) INITIAL('03'X),/* DUMMY TQE */ 03037000 * 5 * CHAR(1) INITIAL('10'X),/* DUMMY TQE */ 03038000 * 5 * BIT(64) INITIAL('FFFFFFFFFFFFFFFF'X),/* DUMMY TQE */ 03039000 * 3 TPCMNTQE, /* MIDNIGHT TQE */ 03040000 * 5 * CHAR(4) INITIAL(' TQE'),/* MIDNIGHT TQE */ 03041000 * 5 * POINTER(31) INITIAL(0),/* MIDNIGHT TQE */ 03042000 * 5 * POINTER(31) INITIAL(0),/* MIDNIGHT TQE */ 03043000 * 5 * FIXED(16) UNSIGNED /* MIDNIGHT TQE */ 03044000 * INITIAL(0), /* MIDNIGHT TQE */ 03045000 * 5 * CHAR(1) INITIAL('83'X),/* MIDNIGHT TQE */ 03046000 * 5 * CHAR(1) INITIAL('01'X),/* MIDNIGHT TQE */ 03047000 * 5 MNIGHT BIT(64) BDY(DWORD)/* MIDNIGHT TQE */ 03048000 * INIT('0000000000000000'), 0100 03049000 * 7 MNIGHTLH FIXED(32) UNSIGNED, 0100 03050000 * 7 MNIGHTRH FIXED(32) UNSIGNED, 0100 03051000 * 3 TPCMFTQE, /* MF/1 TQE */ 03052000 * 5 * CHAR(4) INITIAL(' TQE'),/* MF/1 TQE */ 03053000 * 5 * POINTER(31) INITIAL(0),/* MF/1 TQE */ 03054000 * 5 * POINTER(31) INITIAL(0),/* MF/1 TQE */ 03055000 * 5 * FIXED(16) UNSIGNED /* MF/1 TQE */ 03056000 * INITIAL(0), /* MF/1 TQE */ 03057000 * 5 * CHAR(1) INITIAL('83'X),/* MF/1 TQE */ 03058000 * 5 * CHAR(1) INITIAL('02'X),/* MF/1 TQE */ 03059000 * 5 * BIT(64), /* MF/1 TQE */ 03060000 * 3 IEATSELM, /* SYS RESOURCES MGR TQE */ 03061000 * 5 * CHAR(4) INITIAL(' TQE'),/* SYS RESOURCES MGR TQE */ 03062000 * 5 * POINTER(31) INITIAL(0),/* SYS RESOURCES MGR TQE */ 03063000 * 5 * POINTER(31) INITIAL(0),/* SYS RESOURCES MGR TQE */ 03064000 * 5 * FIXED(16) UNSIGNED /* SYS RESOURCES MGR TQE */ 03065000 * INITIAL(0), /* SYS RESOURCES MGR TQE */ 03066000 * 5 * CHAR(1) INITIAL('83'X),/* SYS RESOURCES MGR TQE */ 03067000 * 5 * CHAR(1) INITIAL('04'X),/* SYS RESOURCES MGR TQE */ 03068000 * 5 * BIT(64), /* SYS RESOURCES MGR TQE */ 03069000 * 3 TPCLMTQE, /* TIME LIMIT CKING TQE */ 03070000 * 5 * CHAR(4) INITIAL(' TQE'),/* TIME LIMIT CKING TQE */ 03071000 * 5 * POINTER(31) INITIAL(0),/* TIME LIMIT CKING TQE */ 03072000 * 5 * POINTER(31) INITIAL(0),/* TIME LIMIT CKING TQE */ 03073000 * 5 * FIXED(16) UNSIGNED /* TIME LIMIT CKING TQE */ 03074000 * INITIAL(0), /* TIME LIMIT CKING TQE */ 03075000 * 5 * CHAR(1) INITIAL('83'X),/* TIME LIMIT CKING TQE */ 03076000 * 5 * CHAR(1) INITIAL('08'X),/* TIME LIMIT CKING TQE */ 03077000 * 5 * BIT(64), /* TIME LIMIT CKING TQE */ 03078000 * 3 TPCSAVE1(16) FIXED(31), /* TIMER GLBL SAVEAREA 1 */ 03079000 * 3 TPCSAVE2(16) FIXED(31), /* TIMER GLBL SAVEAREA 2 */ 03080000 * 3 TPCWORK BIT(64) BDY(DWORD),/* WORKAREA */ 03081000 * 5 TPCWORKL FIXED(32) UNSIGNED, 0100 03082000 * 5 TPCWORKR FIXED(32) UNSIGNED, 0100 03083000 * 3 TPCMISC(18) POINTER(31), /* WORK AREA */ 03084000 * 3 TPCVPTR POINTER(31), /* PTR TO VARY ONLINE ROUTINE */ 03085000 * 3 TPCFRRP POINTER(31), /* PTR TO TIMER FRR */ 03086000 * 3 TPCCRSAV FIXED(32) UNSIGNED INITIAL(0),/* SAVE AREA FOR CR0*/ 03087000 * 3 TPCTCWA POINTER(31) INITIAL(0),/* ADDR OF TOD WORKAREA */ 03088000 * 3 TPCRSRB(11) FIXED(31) INITIAL(0),/* TIMER HW RECVY SRB */ 03089000 * 3 TPCCKQ POINTER(31), /* ADDR OF IEAVRCK */ 03090000 * 3 TPCCLA POINTER(31) INITIAL(0);/* ADDR OF IEAVRCLA */ 03091000 * 0101 03092000 */* MACRO LIST DECLARATIONS */ 03093000 * 0101 03094000 * DCL 0101 03095000 * 0101 03096000 * /***************************************************************/ 03097000 * /* */ 03098000 * /* ?IRBLSTDC (ENQ,16,IM) MACDATE Y-2 73121 */ 03099000 * /* */ 03100000 * /***************************************************************/ 03101000 * 0101 03102000 * IMENQSPL /* STATIC ENQ PARAMETER LIST */ 03103000 * CHAR(16) STATIC LOCAL GENERATED, 0101 03104000 * IMENQAPL /* AUTO ENQ PARAMETER LIST */ 03105000 * BDY(WORD) CHAR(16), 0101 03106000 * 0101 03107000 * /***************************************************************/ 03108000 * /* */ 03109000 * /* ?IRBLSTDC (EXTRACT,16,IM,'S') MACDATE Y-2 73121 */ 03110000 * /* */ 03111000 * /***************************************************************/ 03112000 * 0101 03113000 * IMEXTSPL /* STATIC EXTRACT PARAMETER LIST */ 03114000 * CHAR(16) STATIC LOCAL GENERATED, 0101 03115000 * IMEXTAPL /* AUTO EXTRACT PARAMETER LIST */ 03116000 * BDY(WORD) CHAR(16); 0101 03117000 * 0101 03118000 */* MACRO LIST FORMS GENERATED DATA */ 03119000 * 0102 03120000 * GEN DATA DEFS(IMENQSPL) /* ENQ FOR SYSZRBMF.ACTIVE */ 03121000 * REFS(IMQNAME,IMRNAME); 0102 03122000 * GEN DATA DEFS(IMEXTSPL); 0103 03123000 * 0104 03124000 */* REGISTER DEFINITIONS */ 03125000 * 0104 03126000 * DCL 0104 03127000 * GPR02P /* GPR 2 */ 03128000 * REG(2) PTR(31), 0104 03129000 * GPR11P /* GPR 11 */ 03130000 * REG(11) PTR(31), 0104 03131000 * GPR12P /* GPR 12 */ 03132000 * REG(12) PTR(31); 0104 03133000 * 0104 03134000 */* MISCELLANEOUS DECLARATIONS */ 03135000 * 0105 03136000 * DCL 0105 03137000 * IEAQTE00 /* TIMER (TQE) ENQUEUE ROUTINE */ 03138000 * ENTRY BASED(CVTQTE00), 0105 03139000 * IMABCODE /* ABEND CODE */ 03140000 * FIXED(31), 0105 03141000 * IMACTOPT /* ACTIVE OPTION FLAG */ 03142000 * BIT(1), /* '0'B - NO OPTIONS (CNONEACT), 03143000 * '1'B - ONE OR MORE OPTIONS */ 03144000 * IMCYCTOD /* CYCLE TOD VALUE */ 03145000 * BDY(DWORD) CHAR(8), 0105 03146000 * IMDWORD /* DOUBLE WORD TEMP INPUT TO ASM */ 03147000 * BDY(DWORD) CHAR(8), 0105 03148000 * IMENQRET /* ENQ MAIN STORAGE RETURN CODE */ 03149000 * FIXED(8) BASED POS(4), 0105 03150000 * IMEVEEPA /* ENTRY POINT OF TQE ENQUEUE RTN*/ 03151000 * PTR(31), 0105 03152000 * IMEVLEPA /* ENTRY POINT OF LAST MG ROUTINE*/ 03153000 * PTR(31), 0105 03154000 * 1 IMGSTSRG /* GST STORAGE DESCRIPTORS */ 03155000 * BDY(WORD) STATIC LOCAL, 0105 03156000 * 2 IMGSTSP /* GST SUBPOOL NUMBER */ 03157000 * FIXED(8) INIT(CSQA), /* SQA SUBPOOL NUMBER */ 03158000 * 2 IMGSTLEN /* */ 03159000 * FIXED(24) INIT(LENGTH(STGST)), 0105 03160000 * 1 IMLOCSRG /* LOCAL CONTROL STORAGE DECRIP- 03161000 * TORS */ 03162000 * BDY(WORD) STATIC LOCAL, 0105 03163000 * 2 IMLOCSP /* SUBPOOL NUMBER */ 03164000 * FIXED(8) INIT(CCTLSP), 0105 03165000 * 2 IMLOCLEN /* LENGTH */ 03166000 * FIXED(24) INIT(LENGTH(STSCT)+LENGTH(STMVT)-LENGTH(STMVOPT) 03167000 * +LENGTH(STMVADD)*CMAXMEAS+LENGTH(STCOA)+LENGTH(STSMA)* 03168000 * CMAXMEAS+LENGTH(STRVT)*CMAXMEAS), 0105 03169000 * IMMENQ /* TEMPORARY COPY OF MF/1 ENQ 0105 03170000 * FLAG, TO BE PUT IN STSCMENQ */ 03171000 * BIT(1), 0105 03172000 * IMMFCTL /* TEMPORARY COPY OF GST ADDRESS, 03173000 * TO BE PUT IN CVTMFCTL */ 03174000 * PTR(31), 0105 03175000 * IMMGRL /* PTR TO MMV MG ROUTINE LIST */ 03176000 * PTR(31), 0105 03177000 * 1 IMMMVSRG /* MMV STORAGE DESCRIPTORS */ 03178000 * BDY(WORD), 0105 03179000 * 2 IMMMVSP /* SUBPOOL NUMBER */ 03180000 * FIXED(8), 0105 03181000 * 2 IMMMVLEN /* LENGTH */ 03182000 * FIXED(24), 0105 03183000 * IMMODEPA /* LOADED ENTRY POINT ADDRESSES */ 03184000 * PTR(31), 0105 03185000 * IMPRSPLN /* PREFIXED SUBPOOL & LENGTH */ 03186000 * CHAR(4) BASED, 0105 03187000 * IMQNAME /* ENQ MACRO QNAME */ 03188000 * CHAR(8) INIT('SYSZRBMF'), 0105 03189000 * IMRNAME /* ENQ MACRO RNAME */ 03190000 * CHAR(6) INIT('ACTIVE'), 0105 03191000 * IMRETCDB /* RETURN CODE CUMULATIVE BIT 0105 03192000 * STRING FOR ALL MEASUREMENT 0105 03193000 * OPTIONS */ 03194000 * BIT(32), 0105 03195000 * IMSAMCON /* NUMBER OF CYCLE SAMPLES 0105 03196000 * BETWEEN RECONFIGURATION 0105 03197000 * SAMPLES */ 03198000 * FIXED(31), 0105 03199000 * IMTEMPAL /* TEMPORARY ASSEMBLER TO PLS 0105 03200000 * COMMUNICATION AREA */ 03201000 * FIXED(32), 0105 03202000 * IRBMFFUR /* MF/1 FAILURE RECOVERY ROUTINE */ 03203000 * EXTERNAL ENTRY, 0105 03204000 * IRBMFIOI /* DEVICE/CHANNEL IOS INITIALIZA- 03205000 * TION/TERMINATION ROUTINE */ 03206000 * EXTERNAL ENTRY, 0105 03207000 * IRBMFIXX /* GENERAL NAME OF INITIALIZATION 03208000 * ROUTINE FOR MEASUREMENT OPTION*/ 03209000 * ENTRY BASED(IMMODEPA), 0105 03210000 * TPCPTR /* PTR TO TIMER CONTROL AREA */ 03211000 * PTR(31) DEFINED(CVTTPC), 0105 03212000 * TQEPTR /* TIMER QUEUE ELEMENT POINTER */ 03213000 * PTR(31); /* NOT USED */ 03214000 * 0106 03215000 */* CONSTANT DECLARATIONS */ 03216000 * 0106 03217000 * DCL 0106 03218000 * CACTIVE /* MFROUTER ACTIVE FLAG IN CVT */ 03219000 * BIT(1) CONSTANT('1'B), 0106 03220000 * CCNFGCHK /* NUMBER OF SAMPLES BETWEEN 0106 03221000 * CONFIGURATION CHECKS * 1000 */ 03222000 * FIXED BINARY(31) CONSTANT(20000), 0106 03223000 * CCONTROL /* MFSTART'RESOURCE CONTROL 0106 03224000 * ERROR' RETURN CODE */ 03225000 * CONSTANT(8), 0106 03226000 * CCTLSP /* LOCAL GETMAIN SUBPOOL NUMBER */ 03227000 * CONSTANT(0), 0106 03228000 * CCYCMIN /* MINIMUM SAMPLING CYCLE ALLOWED*/ 03229000 * CONSTANT(50), /* 50 MILLISECONDS */ 03230000 * CDTMVTSP /* SUBPOOL NUMBER FOR INTERVAL 0106 03231000 * MEASUREMENT STORAGE, GET WHILE 03232000 * IN SUPERVISOR STATE, KEY 0. 0106 03233000 * SAME NUMBER GOTTEN IN TCB KEY */ 03234000 * CONSTANT(1), 0106 03235000 * CENQTQE /* RETURN CODE BIT REQUESTING 0106 03236000 * MF/1 TQE TO BE ENQUEUED */ 03237000 * BIT(32) CONSTANT('00000008'X),/* DECIMAL 8 */ 03238000 * CENQX13 /* ENQ IS HELD BY IGX00013 */ 03239000 * BIT(1) CONSTANT('1'B), 0106 03240000 * CINITDAT /* SVC MFDATA INITIAL CALL */ 03241000 * BIT(1) CONSTANT('1'B), 0106 03242000 * CINITIOI /* TO INITIALIZATION FLAG */ 03243000 * BIT(1) CONSTANT('1'B), 0106 03244000 * CINITOK /* RETURN CODE, MF/1 INITIALIZA- 03245000 * TION IS OK */ 03246000 * CONSTANT(0), 0106 03247000 * CINVALIM /* RETURN CODE, FOR INVALID MF/1 03248000 * OPTION, TO MFIMAINL FROM 0106 03249000 * OPTION INITIALIZATION */ 03250000 * BIT(32) CONSTANT('00000010'X),/* DECIMAL 16 */ 03251000 * CINVAL13 /* RETURN CODE,FOR INVALID MF/1 03252000 * OPTION, TO IGX00013 */ 03253000 * CONSTANT(4), 0106 03254000 * CIOSDATA /* RETURN CODE BIT REQUESTING IOS 03255000 * DATA COLLECTION */ 03256000 * BIT(32) CONSTANT('00000020'X), 0106 03257000 * CLEAR /* FLAG STATUS VALUE, CLEARED */ 03258000 * BIT(1) CONSTANT('0'B), 0106 03259000 * CMAXMEAS /* MAXIMUM MEASUREMENT OPTIONS */ 03260000 * CONSTANT(5), 0106 03261000 * CMFROUTR /* RETURN CODE BIT REQUESTING 0106 03262000 * MFROUTER ACTIVATION */ 03263000 * BIT(32) CONSTANT('00000004'X),/* DECIMAL 4 */ 03264000 * CNONEACT /* NO ACTIVE OPTIONS VALUE FOR 0106 03265000 * IMACTOP FLAG */ 03266000 * BIT(1) CONSTANT('0'B), 0106 03267000 * CSET /* FLAG STATUS VALUE, SET */ 03268000 * BIT(1) CONSTANT('1'B), 0106 03269000 * CSQA /* SQA SUBPOOL NUMBER */ 03270000 * CONSTANT(245), 0106 03271000 * CTRACE /* TRACE OPTION VALUE TO DO TRACE*/ 03272000 * BIT(1) CONSTANT('1'B); 0106 03273000 * 0107 03274000 */* AUTOMATIC STORAGE INITIALIZATION */ 03275000 * 0107 03276000 * IMENQAPL=IMENQSPL; /* ENQ MACRO PARAMETER LIST */ 03277000 MVC IMENQAPL(16),IMENQSPL 0107 03278000 * IMEXTAPL=IMEXTSPL; /* EXTRACT MACRO LIST */ 03279000 MVC IMEXTAPL(16),IMEXTSPL 0108 03280000 */* FUNCTIONAL CODE */ 03281000 * 0109 03282000 * /*****************************************************************/ 03283000 * /* */ 03284000 * /* ONLY ONE TASK AT A TIME CAN GET MF/1 MEASUREMENTS. IF MF/1 IS */ 03285000 * /* ALREADY INITIATED, THE SVC MFSTART DOES NOT PROVIDE ANY */ 03286000 * /* MEASUREMENT SERVICES TO THE CALLING TASK. */ 03287000 * /* */ 03288000 * /*****************************************************************/ 03289000 * 0109 03290000 * IF CVTMFCTL^=CNULLADR THEN /* IF AN MF/1 CONTROL TABLE 0109 03291000 * EXISTS, MF/1 HAS ALREADY BEEN 03292000 * INITIALIZED. */ 03293000 L @12,CVTMFCTL(,CVTPTR) 0109 03294000 LTR @12,@12 0109 03295000 BZ @RF00109 0109 03296000 * RETURN CODE(CCONTROL); /* DO NOT PROVIDE MEASUREMENTS */ 03297000 * 0110 03298000 LA @15,8 0110 03299000 L @14,@SA00002 0110 03300000 LM @00,@12,@SA00002+8 0110 03301000 BR @14 0110 03302000 * /*****************************************************************/ 03303000 * /* */ 03304000 * /* IF THE CALLING TASK CANNOT GET EXCLUSIVE CONTROL OF THE MF/1 */ 03305000 * /* MEASUREMENT ENQ (SYSZRBMF), NO MEASUREMENTS ARE PROVIDED. */ 03306000 * /* */ 03307000 * /*****************************************************************/ 03308000 * 0111 03309000 * IMMENQ=CLEAR; /* ENQ NOT NOW OWNED BY THIS SVC */ 03310000 * 0111 03311000 @RF00109 NI IMMENQ,B'01111111' 0111 03312000 * /*****************************************************************/ 03313000 * /* */ 03314000 * /* MACDATE Y-2 73018 */ 03315000 * /* */ 03316000 * /*****************************************************************/ 03317000 * 0112 03318000 * RESPECIFY 0112 03319000 * (GPR00P, 0112 03320000 * GPR01P, 0112 03321000 * GPR14P, 0112 03322000 * GPR15P) RESTRICTED; 0112 03323000 * GEN REFS(IMENQAPL); 0113 03324000 ENQ MF=(E,IMENQAPL) ASK FOR EXCLUSE CONTROL OF 03325000 * SYSZRBMF.ACTIVE 03326000 * IF GPR15P=0 THEN /* IF THIS (SVC) ROUTINE JUST GOT 03327000 * CONTROL, THEN */ 03328000 LTR GPR15P,GPR15P 0114 03329000 BNZ @RF00114 0114 03330000 * IMMENQ=CENQX13; /* REMEMBER TO DEQ THE RESOURCE. */ 03331000 OI IMMENQ,B'10000000' 0115 03332000 * ELSE /* ELSE, */ 03333000 * DO; 0116 03334000 B @RC00114 0116 03335000 @RF00114 DS 0H 0117 03336000 * IF GPR15P->IMENQRET^=8 THEN /* IF CALLING TASK DOES NOT 0117 03337000 * ALREADY HAVE EXCLUSIVE CONTROL*/ 03338000 CLI IMENQRET(GPR15P),8 0117 03339000 BE @RF00117 0117 03340000 * RETURN CODE(CCONTROL); /* DO NOT PROVIDE MEASUREMENTS, 03341000 * BECAUSE THIS TASK DOES NOT 0118 03342000 * CONTROL THE MEASUREMENT ENQ */ 03343000 LA @15,8 0118 03344000 L @14,@SA00002 0118 03345000 LM @00,@12,@SA00002+8 0118 03346000 BR @14 0118 03347000 * END; 0119 03348000 * 0119 03349000 @RF00117 DS 0H 0120 03350000 * /*****************************************************************/ 03351000 * /* */ 03352000 * /* MACDATE Y-2 73018 */ 03353000 * /* */ 03354000 * /*****************************************************************/ 03355000 * 0120 03356000 * RESPECIFY 0120 03357000 * (GPR00P, 0120 03358000 * GPR01P, 0120 03359000 * GPR14P, 0120 03360000 * GPR15P) UNRESTRICTED; 0120 03361000 @RC00114 DS 0H 0121 03362000 * 0121 03363000 * /*****************************************************************/ 03364000 * /* */ 03365000 * /* COPY INPUT OPTIONS INTO DYNAMIC STORAGE */ 03366000 * /* */ 03367000 * /*****************************************************************/ 03368000 * 0121 03369000 * MFMVT=INMVT; 0121 03370000 L @12,@PC00002 0121 03371000 MVC MFMVT(24),INMVT(@12) 0121 03372000 * MFCOA=INCOA; 0122 03373000 * 0122 03374000 L @12,@PC00002+4 0122 03375000 MVC MFCOA(32),INCOA(@12) 0122 03376000 * /*****************************************************************/ 03377000 * /* */ 03378000 * /* OBTAIN MF/1 CONTROL TABLES FOR USE BY SVC MFDATA (SVC 103, */ 03379000 * /* CODE 14) GET GLOBAL FIXED STORAGE FOR USE BY EVENT DRIVEN */ 03380000 * /* MEASUREMENT GATHERING (MG) ROUTINES AND THE MFROUTER. MACDATE */ 03381000 * /* Y-2 73018 */ 03382000 * /* */ 03383000 * /*****************************************************************/ 03384000 * 0123 03385000 * RESPECIFY 0123 03386000 * (GPR00P, 0123 03387000 * GPR01P, 0123 03388000 * GPR14P, 0123 03389000 * GPR15P) RESTRICTED; 0123 03390000 * GPR00P=IMGSTSRG; /* GST SUBPOOL AND LENGTH */ 03391000 L GPR00P,IMGSTSRG 0124 03392000 * GEN(GETMAIN R,LV=(0)); 0125 03393000 GETMAIN R,LV=(0) 03394000 * IMMFCTL=GPR01P; /* SAVE GST ADDRESS FOR CVT */ 03395000 LR IMMFCTL,GPR01P 0126 03396000 * RFY 0127 03397000 * STGST BASED(IMMFCTL); /* DURING TABLE INITIALIZATION */ 03398000 * 0127 03399000 * /*****************************************************************/ 03400000 * /* */ 03401000 * /* MACDATE Y-2 73018 */ 03402000 * /* */ 03403000 * /*****************************************************************/ 03404000 * 0128 03405000 * RESPECIFY 0128 03406000 * (GPR00P, 0128 03407000 * GPR01P, 0128 03408000 * GPR14P, 0128 03409000 * GPR15P) UNRESTRICTED; 0128 03410000 * STGST=STGST&&STGST; /* CLEAR STGST TABLE */ 03411000 XC STGST(28,IMMFCTL),STGST(IMMFCTL) 0129 03412000 * IMMMVSP=CSQA; /* MMV IS IN FIXED SQA */ 03413000 MVI IMMMVSP,X'F5' 0130 03414000 * IMMMVLEN=LENGTH(STMMEVTL) /* MMV LENGTH IS ONE EVENT LIST */ 03415000 * *STMMMEVT /* FOR EACH OF MAX NUMBER OF 0131 03416000 * EVENTS */ 03417000 * +STMMMMGR /* PLUS MAX NUMBER OF MG ROUTINES*/ 03418000 * *LENGTH(STMMMGRL) /* (TIMES LENGTH FOR 1 MG 0131 03419000 * ROUTINE) */ 03420000 * *STMMMEVT; /* TIMES MAX NUMBER OF EVENTS */ 03421000 * 0131 03422000 MVC IMMMVLEN(3),@CF00224+1 0131 03423000 * /*****************************************************************/ 03424000 * /* */ 03425000 * /* MACDATE Y-2 73018 */ 03426000 * /* */ 03427000 * /*****************************************************************/ 03428000 * 0132 03429000 * RESPECIFY 0132 03430000 * (GPR00P, 0132 03431000 * GPR01P, 0132 03432000 * GPR14P, 0132 03433000 * GPR15P) RESTRICTED; 0132 03434000 * GPR00P=IMMMVSRG; /* MMV SUBPOOL AND LENGTH */ 03435000 L GPR00P,IMMMVSRG 0133 03436000 * GEN(GETMAIN R,LV=(0)); 0134 03437000 GETMAIN R,LV=(0) 03438000 * STGSMMV=GPR01P; /* SAVE MMV ADDRESS */ 03439000 * 0135 03440000 ST GPR01P,STGSMMV(,IMMFCTL) 0135 03441000 * /*****************************************************************/ 03442000 * /* */ 03443000 * /* MACDATE Y-2 73018 */ 03444000 * /* */ 03445000 * /*****************************************************************/ 03446000 * 0136 03447000 * RESPECIFY 0136 03448000 * (GPR00P, 0136 03449000 * GPR01P, 0136 03450000 * GPR14P, 0136 03451000 * GPR15P) UNRESTRICTED; 0136 03452000 * 0136 03453000 * /*****************************************************************/ 03454000 * /* */ 03455000 * /* GET LOCAL PAGABLE STORAGE FOR MF/1 SUPERVISOR CONTROL MACDATE */ 03456000 * /* Y-2 73018 */ 03457000 * /* */ 03458000 * /*****************************************************************/ 03459000 * 0137 03460000 * RESPECIFY 0137 03461000 * (GPR00P, 0137 03462000 * GPR01P, 0137 03463000 * GPR14P, 0137 03464000 * GPR15P) RESTRICTED; 0137 03465000 * GPR00P=IMLOCSRG; /* SP & LENGTH FOR GETMAIN */ 03466000 L GPR00P,IMLOCSRG 0138 03467000 * GEN(GETMAIN R,LV=(0)); 0139 03468000 * 0139 03469000 GETMAIN R,LV=(0) 03470000 * /*****************************************************************/ 03471000 * /* */ 03472000 * /* SAVE TABLE ADDRESSES */ 03473000 * /* */ 03474000 * /*****************************************************************/ 03475000 * 0140 03476000 * STGSSCT=GPR01P; /* SCT ADDRESS */ 03477000 ST GPR01P,STGSSCT(,IMMFCTL) 0140 03478000 * STSCT=STSCT&&STSCT; /* CLEAR STSCT TABLE */ 03479000 L @12,STGSSCT(,IMMFCTL) 0141 03480000 XC STSCT(52,@12),STSCT(@12) 0141 03481000 * GPR01P=GPR01P+LENGTH(STSCT); 0142 03482000 AL GPR01P,@CF02223 0142 03483000 * STSCMVT=GPR01P; /* MVT ADDRESS */ 03484000 ST GPR01P,STSCMVT(,@12) 0143 03485000 * GPR01P=GPR01P+LENGTH(STMVT)-LENGTH(STMVOPT)/* MISC MVT DATA */ 03486000 * +CMAXMEAS*LENGTH(STMVADD); /* MEASUREMENT VECTORS */ 03487000 AL GPR01P,@CF00099 0144 03488000 * STSCCOA=GPR01P; /* COA ADDRESS */ 03489000 ST GPR01P,STSCCOA(,@12) 0145 03490000 * GPR01P=GPR01P+LENGTH(STCOA); 0146 03491000 AL GPR01P,@CF00135 0146 03492000 * DO I=1 BY 1 TO CMAXMEAS; /* SMA ADDRESSES AND RVT ADDRESS */ 03493000 LA I,1 0147 03494000 @DL00147 DS 0H 0148 03495000 * STMVADD(I)=GPR01P; 0148 03496000 LR @11,I 0148 03497000 SLA @11,2 0148 03498000 L @08,STGSSCT(,IMMFCTL) 0148 03499000 L @08,STSCMVT(,@08) 0148 03500000 ST GPR01P,STMVADD-4(@11,@08) 0148 03501000 * GPR01P=GPR01P+LENGTH(STSMA); 0149 03502000 AL GPR01P,@CF00208 0149 03503000 * STMVADD(I)->STSMRVT=GPR01P; 0150 03504000 LR @11,I 0150 03505000 SLA @11,2 0150 03506000 L @08,STGSSCT(,IMMFCTL) 0150 03507000 L @08,STSCMVT(,@08) 0150 03508000 L @11,STMVADD-4(@11,@08) 0150 03509000 ST GPR01P,STSMRVT(,@11) 0150 03510000 * GPR01P=GPR01P+LENGTH(STRVT); 0151 03511000 AL GPR01P,@CF00137 0151 03512000 * END; 0152 03513000 * 0152 03514000 AL I,@CF00077 0152 03515000 C I,@CF00080 0152 03516000 BNH @DL00147 0152 03517000 * /*****************************************************************/ 03518000 * /* */ 03519000 * /* MACDATE Y-2 73018 */ 03520000 * /* */ 03521000 * /*****************************************************************/ 03522000 * 0153 03523000 * RESPECIFY 0153 03524000 * (GPR00P, 0153 03525000 * GPR01P, 0153 03526000 * GPR14P, 0153 03527000 * GPR15P) UNRESTRICTED; 0153 03528000 * 0154 03529000 * /*****************************************************************/ 03530000 * /* */ 03531000 * /* INITIALIZE TABLES INITIALIZE STGST */ 03532000 * /* */ 03533000 * /*****************************************************************/ 03534000 * 0154 03535000 * STGSNAME='STGS'; /* TABLE NAME FOR DUMP */ 03536000 MVC STGSNAME(4,IMMFCTL),@CC02201 0154 03537000 * STGSTCB=TCBPTR; /* SVC CALLER TCB ADDRESS */ 03538000 * 0155 03539000 L @12,TCBPTR 0155 03540000 ST @12,STGSTCB(,IMMFCTL) 0155 03541000 * /*****************************************************************/ 03542000 * /* */ 03543000 * /* EXTRACT ASID MACDATE Y-2 73018 */ 03544000 * /* */ 03545000 * /*****************************************************************/ 03546000 * 0156 03547000 * RESPECIFY 0156 03548000 * (GPR00P, 0156 03549000 * GPR01P, 0156 03550000 * GPR14P, 0156 03551000 * GPR15P) RESTRICTED; 0156 03552000 * GEN REFS(IMEXTAPL) SETS(IMTEMPAL); 0157 03553000 * 0157 03554000 EXTRACT IMTEMPAL,MF=(E,IMEXTAPL) 03555000 * /*****************************************************************/ 03556000 * /* */ 03557000 * /* MACDATE Y-2 73018 */ 03558000 * /* */ 03559000 * /*****************************************************************/ 03560000 * 0158 03561000 * RESPECIFY 0158 03562000 * (GPR00P, 0158 03563000 * GPR01P, 0158 03564000 * GPR14P, 0158 03565000 * GPR15P) UNRESTRICTED; 0158 03566000 * STGSASID=IMTEMPAL; /* SVC CALLER ASID */ 03567000 * 0159 03568000 L @12,IMTEMPAL 0159 03569000 STH @12,STGSASID(,IMMFCTL) 0159 03570000 * /*****************************************************************/ 03571000 * /* */ 03572000 * /* INITIALIZE STMMV (MFROUTER MG VECTOR TABLE) */ 03573000 * /* */ 03574000 * /*****************************************************************/ 03575000 * 0160 03576000 * RFY 0160 03577000 * STMMMGRL BASED(IMMGRL); 0160 03578000 * IMMGRL=STGSMMV+LENGTH(STMMEVTL)*STMMMEVT;/* START OF MG ROUTINE 03579000 * LIST */ 03580000 * 0161 03581000 L @12,STGSMMV(,IMMFCTL) 0161 03582000 LA IMMGRL,16 0161 03583000 ALR IMMGRL,@12 0161 03584000 * /*****************************************************************/ 03585000 * /* */ 03586000 * /* CLEAR MMV MACDATE Y-2 73018 */ 03587000 * /* */ 03588000 * /*****************************************************************/ 03589000 * 0162 03590000 * RESPECIFY 0162 03591000 * (GPR00P, 0162 03592000 * GPR01P, 0162 03593000 * GPR14P, 0162 03594000 * GPR15P) RESTRICTED; 0162 03595000 * GPR00P=ADDR(STMMEVTL); /* AREA START ADDRESS */ 03596000 LR GPR00P,@12 0163 03597000 * GPR01P=IMMMVLEN; /* AREA LENGTH */ 03598000 L GPR01P,IMMMVLEN-1 0164 03599000 LA GPR01P,0(,GPR01P) 0164 03600000 * GPR15P=0; /* PAD CHAR=0, SECOND LENGTH=0 */ 03601000 SLR GPR15P,GPR15P 0165 03602000 * GEN(MVCL GPR00P,GPR14P); /* ZERO WITH PAD CHARACTER */ 03603000 * 0166 03604000 MVCL GPR00P,GPR14P 03605000 * /*****************************************************************/ 03606000 * /* */ 03607000 * /* OBTAIN ADDRESSES OF EVENT MG ROUTINE ENTRY POINTS. */ 03608000 * /* */ 03609000 * /*****************************************************************/ 03610000 * 0167 03611000 * GEN SETS(IMEVEEPA,IMEVLEPA); 0167 03612000 * 0167 03613000 LOAD EP=IRBMFEVE MF1 TQE ENQ MG ROUTINE 03614000 ST GPR00P,IMEVEEPA SAVE ADDRESS 03615000 LOAD EP=IRBMFEVL LAST MG ROUTINE 03616000 ST GPR00P,IMEVLEPA SAVE ADDRESS 03617000 DELETE EP=IRBMFEVE 03618000 DELETE EP=IRBMFEVL 03619000 * /*****************************************************************/ 03620000 * /* */ 03621000 * /* MACDATE Y-2 73018 */ 03622000 * /* */ 03623000 * /*****************************************************************/ 03624000 * 0168 03625000 * RESPECIFY 0168 03626000 * (GPR00P, 0168 03627000 * GPR01P, 0168 03628000 * GPR14P, 0168 03629000 * GPR15P) UNRESTRICTED; 0168 03630000 * DO I=1 TO STMMMEVT; /* FOR ALL DEFINED EVENTS */ 03631000 LA I,1 0169 03632000 @DL00169 DS 0H 0170 03633000 * STMMEVNT(I)=ADDR(STMMMGRL); 0170 03634000 LR @08,I 0170 03635000 SLA @08,3 0170 03636000 L @15,STGSMMV(,IMMFCTL) 0170 03637000 LA @01,0(@08,@15) 0170 03638000 AL @01,@CF02228 0170 03639000 ST IMMGRL,STMMEVNT(,@01) 0170 03640000 * STMMNXMG(I)=CFPLSNDX; /* NEXT AVAILABLE SLOT IN MG 0171 03641000 * ROUTINE LIST */ 03642000 * 0171 03643000 LA @14,1 0171 03644000 AL @15,@CF02224 0171 03645000 ST @14,STMMNXMG-4(@08,@15) 0171 03646000 * /***************************************************************/ 03647000 * /* */ 03648000 * /* SET ADDRESSES OF LAST MG ROUTINES, IN CASE NONE EXIST FOR AN*/ 03649000 * /* EVENT. */ 03650000 * /* */ 03651000 * /***************************************************************/ 03652000 * 0172 03653000 * DO J=1 TO STMMMMGR; /* FOR ALL MG ROUTINES OF THIS 0172 03654000 * EVENT. */ 03655000 LR J,@14 0172 03656000 @DL00172 DS 0H 0173 03657000 * IF I=STMMTIME THEN /* IF TQE EXPIRED EVENT */ 03658000 C I,@CF00077 0173 03659000 BNE @RF00173 0173 03660000 * STMMMGAD(J)=IMEVEEPA; /* SET ADDR TO RE-ENQUEUE TQE. */ 03661000 LR @08,J 0174 03662000 SLA @08,3 0174 03663000 L @07,IMEVEEPA 0174 03664000 AL @08,@CF02228 0174 03665000 ST @07,STMMMGAD(@08,IMMGRL) 0174 03666000 * ELSE 0175 03667000 * STMMMGAD(J)=IMEVLEPA; /* SET ADDR TO RETURN TO END OF 03668000 * EVENT PROCESSING. */ 03669000 B @RC00173 0175 03670000 @RF00173 LR @08,J 0175 03671000 SLA @08,3 0175 03672000 L @07,IMEVLEPA 0175 03673000 AL @08,@CF02228 0175 03674000 ST @07,STMMMGAD(@08,IMMGRL) 0175 03675000 * END; 0176 03676000 @RC00173 AL J,@CF00077 0176 03677000 C J,@CF00082 0176 03678000 BNH @DL00172 0176 03679000 * IMMGRL=IMMGRL+LENGTH(STMMMGRL)*STMMMMGR;/* NEXT EVENT'S MG 0177 03680000 * ROUTINE LIST */ 03681000 AL IMMGRL,@CF00099 0177 03682000 * END; 0178 03683000 * 0178 03684000 AL I,@CF00077 0178 03685000 C I,@CF00118 0178 03686000 BNH @DL00169 0178 03687000 * /*****************************************************************/ 03688000 * /* */ 03689000 * /* INITIALIZE STSCT (SUPERVISOR CONTROL TABLE) */ 03690000 * /* */ 03691000 * /*****************************************************************/ 03692000 * 0179 03693000 * STSCNAME='STSC'; /* TABLE NAME FOR DUMP */ 03694000 L @12,STGSSCT(,IMMFCTL) 0179 03695000 MVC STSCNAME(4,@12),@CC02203 0179 03696000 * STSCMF1V='01'; /* MF1 VERSION NUMBER FOR REPORTS*/ 03697000 MVC STSCMF1V(2,@12),@CC02204 0180 03698000 * STSCFLAG=''B; /* CLEAR MISCELLANEOUS FLAGS */ 03699000 XC STSCFLAG(2,@12),STSCFLAG(@12) 0181 03700000 * IF IMMENQ=CENQX13 THEN /* IF THIS SVC GOT MF1 ENQ, THEN */ 03701000 TM IMMENQ,B'10000000' 0182 03702000 BNO @RF00182 0182 03703000 * STSCMENQ=CENQX13; /* REMEMBER TO DEQ IN TERMINATN */ 03704000 OI STSCMENQ(@12),B'00000001' 0183 03705000 * STSCMVSP=CDTMVTSP; /* INTERVAL MEASUREMENT SUBPOOL #*/ 03706000 @RF00182 L @12,STGSSCT(,IMMFCTL) 0184 03707000 MVI STSCMVSP(@12),X'01' 0184 03708000 * STSCMVLE=LENGTH(STMVT) /* LENGTH OF INTERVAL DATA TABLE */ 03709000 * -LENGTH(STMVOPT)+CMAXMEAS*LENGTH(STMVADD)/* RESOLVE VARIABLE 03710000 * VECTOR NUMBER */ 03711000 * +CSPLENPR; /* PLUS SUBPOOL & LENGTH PREFIX */ 03712000 MVC STSCMVLE(3,@12),@CF02225+1 0185 03713000 * STSCLSRG=IMLOCSRG; /* LOCAL STORAGE SP & LENGTH */ 03714000 L @11,IMLOCSRG 0186 03715000 ST @11,STSCLSRG(,@12) 0186 03716000 * STSCGSRG=IMGSTSRG; /* GLOBAL STORAGE TABLE SP & LEN */ 03717000 L @11,IMGSTSRG 0187 03718000 ST @11,STSCGSRG(,@12) 0187 03719000 * STSCMSRG=IMMMVSRG; /* MMV TABLE SP & LENGTH */ 03720000 * 0188 03721000 L @11,IMMMVSRG 0188 03722000 ST @11,STSCMSRG(,@12) 0188 03723000 * /*****************************************************************/ 03724000 * /* */ 03725000 * /* INITIAL INTERVAL-LENGTH TIME STAMP. MACDATE Y-2 73018 */ 03726000 * /* */ 03727000 * /*****************************************************************/ 03728000 * 0189 03729000 * RESPECIFY 0189 03730000 * (GPR00P, 0189 03731000 * GPR01P, 0189 03732000 * GPR14P, 0189 03733000 * GPR15P) RESTRICTED; 0189 03734000 * GEN SETS(IMDWORD); 0190 03735000 * 0190 03736000 TIME STCK,IMDWORD CURRENT TOD CLOCK VALUE 03737000 * /*****************************************************************/ 03738000 * /* */ 03739000 * /* MACDATE Y-2 73018 */ 03740000 * /* */ 03741000 * /*****************************************************************/ 03742000 * 0191 03743000 * RESPECIFY 0191 03744000 * (GPR00P, 0191 03745000 * GPR01P, 0191 03746000 * GPR14P, 0191 03747000 * GPR15P) UNRESTRICTED; 0191 03748000 * STSCGMT=IMDWORD; /* SET END-OF-LAST INTERVAL TO 0192 03749000 * CURRENT TIME. */ 03750000 * 0192 03751000 L @12,STGSSCT(,IMMFCTL) 0192 03752000 MVC STSCGMT(8,@12),IMDWORD 0192 03753000 * /*****************************************************************/ 03754000 * /* */ 03755000 * /* STMVT INITIALIZED WHEN TABLE ADDRESSES SAVED, EXCEPT AS BELOW */ 03756000 * /* */ 03757000 * /*****************************************************************/ 03758000 * 0193 03759000 * STMVNUM=CMAXMEAS; /* NUMBER OF MEASUREMENT OPTIONS 03760000 * DEFINED IN MF/1 */ 03761000 * 0193 03762000 L @12,STSCMVT(,@12) 0193 03763000 MVC STMVNUM(4,@12),@CF00080 0193 03764000 * /*****************************************************************/ 03765000 * /* */ 03766000 * /* INITIALIZE STSMA (SUPERVISOR MEASUREMENT AREA) MISCELLANEOUS */ 03767000 * /* VARIABLES. MACRO VARIABLE MAXMEAS RESET TO 'STMVNUM'. */ 03768000 * /* */ 03769000 * /*****************************************************************/ 03770000 * 0194 03771000 * DO I=1 TO STMVNUM; /* FOR ALL MEASUREMENT OPTIONS */ 03772000 LA I,1 0194 03773000 B @DE00194 0194 03774000 @DL00194 DS 0H 0195 03775000 * STMVADD(I)->STSMISP=CCTLSP; /* SET INTERVAL MEASUREMENT 0195 03776000 * SUBPOOL NUMBER */ 03777000 LR @11,I 0195 03778000 SLA @11,2 0195 03779000 L @08,STGSSCT(,IMMFCTL) 0195 03780000 L @08,STSCMVT(,@08) 0195 03781000 L @11,STMVADD-4(@11,@08) 0195 03782000 MVI STSMISP(@11),X'00' 0195 03783000 * STMVADD(I)->STSMIADD=CNULLADR;/* NO INITIAL DATA AREA EXISTS 0196 03784000 * YET */ 03785000 SLR @08,@08 0196 03786000 ST @08,STSMIADD(,@11) 0196 03787000 * STMVADD(I)->STSMSSP=CDTMVTSP; /* SET SMF RECORDS SUBPOOL NO. */ 03788000 MVI STSMSSP(@11),X'01' 0197 03789000 * END; 0198 03790000 * 0198 03791000 AL I,@CF00077 0198 03792000 @DE00194 L @11,STGSSCT(,IMMFCTL) 0198 03793000 L @11,STSCMVT(,@11) 0198 03794000 C I,STMVNUM(,@11) 0198 03795000 BNH @DL00194 0198 03796000 * /*****************************************************************/ 03797000 * /* */ 03798000 * /* INITIALIZE STRVT (RESOURCE VECTOR TABLE) */ 03799000 * /* */ 03800000 * /*****************************************************************/ 03801000 * 0199 03802000 * DO I=1 TO STMVNUM; /* FOR ALL MEASUREMENT OPTIONS */ 03803000 LA I,1 0199 03804000 B @DE00199 0199 03805000 @DL00199 DS 0H 0200 03806000 * STMVADD(I)->STSMRVT->STRVNPRT=CFPLSNDX;/* NO LOADED OR FIXED 0200 03807000 * PROGRAM */ 03808000 LA @11,1 0200 03809000 LR @08,I 0200 03810000 SLA @08,2 0200 03811000 L @01,STGSSCT(,IMMFCTL) 0200 03812000 L @01,STSCMVT(,@01) 0200 03813000 L @08,STMVADD-4(@08,@01) 0200 03814000 L @08,STSMRVT(,@08) 0200 03815000 ST @11,STRVNPRT(,@08) 0200 03816000 * STMVADD(I)->STSMRVT->STRVNSGT=CFPLSNDX;/* NO GETMAINED OR FIXED 03817000 * STORAGE */ 03818000 ST @11,STRVNSGT(,@08) 0201 03819000 * STMVADD(I)->STSMRVT->STRVSPRT=CNULLADR;/* NO STPRT TABLE */ 03820000 SLR @11,@11 0202 03821000 ST @11,STRVSPRT(,@08) 0202 03822000 * STMVADD(I)->STSMRVT->STRVSSGT=CNULLADR;/* NO STSGT TABLE */ 03823000 ST @11,STRVSSGT(,@08) 0203 03824000 * END; 0204 03825000 * 0204 03826000 AL I,@CF00077 0204 03827000 @DE00199 L @11,STGSSCT(,IMMFCTL) 0204 03828000 L @11,STSCMVT(,@11) 0204 03829000 C I,STMVNUM(,@11) 0204 03830000 BNH @DL00199 0204 03831000 * /*****************************************************************/ 03832000 * /* */ 03833000 * /* ZERO SUPERVISOR COMMON OPTION AREA (STCOA) */ 03834000 * /* */ 03835000 * /*****************************************************************/ 03836000 * 0205 03837000 * STCOA=STCOA&&STCOA; /* ZERO STCOA TABLE */ 03838000 L @12,STGSSCT(,IMMFCTL) 0205 03839000 L @12,STSCCOA(,@12) 0205 03840000 XC STCOA(32,@12),STCOA(@12) 0205 03841000 * 0206 03842000 * /*****************************************************************/ 03843000 * /* */ 03844000 * /* CONNECT GETMAINED, INITIALIZED TABLES TO CVT,BEFORE ACCESSING */ 03845000 * /* PROBLEM COMMON OPTION AREA (INPUT PARAMETERS FROM SVC ISSUER) */ 03846000 * /* */ 03847000 * /*****************************************************************/ 03848000 * 0206 03849000 * CVTMFCTL=IMMFCTL; 0206 03850000 ST IMMFCTL,CVTMFCTL(,CVTPTR) 0206 03851000 * RFY 0207 03852000 * STGST BASED(CVTMFCTL); 0207 03853000 * 0207 03854000 * /*****************************************************************/ 03855000 * /* */ 03856000 * /* GET PROBLEM COMMON OPTIONS */ 03857000 * /* */ 03858000 * /*****************************************************************/ 03859000 * 0208 03860000 * IF MFCOTCEV=CTRACE THEN /* IF SMF TRACING REQUESTED, THEN*/ 03861000 TM MFCOTCEV,B'00000001' 0208 03862000 BNO @RF00208 0208 03863000 * STCOTCE=CTRACE; /* REMEMBER TRACE FOR IGX00014 */ 03864000 L @12,CVTMFCTL(,CVTPTR) 0209 03865000 L @12,STGSSCT(,@12) 0209 03866000 L @12,STSCCOA(,@12) 0209 03867000 LA @11,1 0209 03868000 ST @11,STCOTCE(,@12) 0209 03869000 * STCOCYCV=MFCOCYCV; /* GET REQUESTED SAMPLING CYCLE */ 03870000 @RF00208 L @12,CVTMFCTL(,CVTPTR) 0210 03871000 L @12,STGSSCT(,@12) 0210 03872000 L @12,STSCCOA(,@12) 0210 03873000 LH @11,MFCOCYCV 0210 03874000 STH @11,STCOCYCV(,@12) 0210 03875000 * IF STCOCYCVSTSMINIT='IRBMFICP'; /* CPU INITIALIZATION */ 03939000 L @12,STSCMVT(,@12) 0220 03940000 L @11,STMVCPU(,@12) 0220 03941000 MVC STSMINIT(8,@11),@CC02207 0220 03942000 * STMVPAG->STSMINIT='IRBMFIPG'; /* PAGING INITIALIZATION */ 03943000 L @11,STMVPAG(,@12) 0221 03944000 MVC STSMINIT(8,@11),@CC02208 0221 03945000 * STMVWKL->STSMINIT='IRBMFIWK'; /* WORKLOAD INITIALIZATION */ 03946000 L @11,STMVWKL(,@12) 0222 03947000 MVC STSMINIT(8,@11),@CC02209 0222 03948000 * STMVCHA->STSMINIT='IRBMFIHA'; /* CHANNEL INITIALIZATION */ 03949000 L @11,STMVCHA(,@12) 0223 03950000 MVC STSMINIT(8,@11),@CC02210 0223 03951000 * STMVDEV->STSMINIT='IRBMFIDV'; /* DEVICE INITIALIZATION */ 03952000 L @12,STMVDEV(,@12) 0224 03953000 MVC STSMINIT(8,@12),@CC02211 0224 03954000 * DO I=1 TO STMVNUM; /* FOR ALL MEASUREMENT OPTIONS */ 03955000 LA I,1 0225 03956000 B @DE00225 0225 03957000 @DL00225 DS 0H 0226 03958000 * STMVADD(I)->STSMTERM='IRBMFTRM';/* GENERAL RESOURCE RELEASE IS 03959000 * THE TERMINATION PROGRAM */ 03960000 LR @11,I 0226 03961000 SLA @11,2 0226 03962000 L @08,CVTMFCTL(,CVTPTR) 0226 03963000 L @08,STGSSCT(,@08) 0226 03964000 L @08,STSCMVT(,@08) 0226 03965000 L @11,STMVADD-4(@11,@08) 0226 03966000 MVC STSMTERM(8,@11),@CC02212 0226 03967000 * END; 0227 03968000 AL I,@CF00077 0227 03969000 @DE00225 L @11,CVTMFCTL(,CVTPTR) 0227 03970000 L @11,STGSSCT(,@11) 0227 03971000 L @11,STSCMVT(,@11) 0227 03972000 C I,STMVNUM(,@11) 0227 03973000 BNH @DL00225 0227 03974000 * 0228 03975000 * /*****************************************************************/ 03976000 * /* */ 03977000 * /* CALL MEASUREMENT OPTIONS' INITIALIZATION PROGRAMS */ 03978000 * /* */ 03979000 * /*****************************************************************/ 03980000 * 0228 03981000 * IMRETCDB=''B; /* CLEAR RETURN CODE FLAGS, FROM 03982000 * INITIALIZATION PROGRAMS */ 03983000 XC IMRETCDB(4),IMRETCDB 0228 03984000 * IMACTOPT=CNONEACT; /* CLEAR ACTIVE-OPTION-FOUND FLAG*/ 03985000 NI IMACTOPT,B'01111111' 0229 03986000 * IF MFMVNUM>STMVNUM THEN /* IF MORE MEASUREMENTS REQUESTED 03987000 * THAN DEFINED */ 03988000 L @12,CVTMFCTL(,CVTPTR) 0230 03989000 L @12,STGSSCT(,@12) 0230 03990000 L @12,STSCMVT(,@12) 0230 03991000 L @11,MFMVNUM 0230 03992000 C @11,STMVNUM(,@12) 0230 03993000 BNH @RF00230 0230 03994000 * RETURN CODE(CINVAL13); /* DO NOT PROVIDE MEASUREMENTS */ 03995000 LA @15,4 0231 03996000 L @14,@SA00002 0231 03997000 LM @00,@12,@SA00002+8 0231 03998000 BR @14 0231 03999000 * DO I=MIN(MFMVNUM,STMVNUM) /* FOR ALL MEASUREMENT OPTIONS, 04000000 * UP TO NUMBER OF INPUT OPTIONS */ 04001000 * BY-1 TO 1; 0232 04002000 @RF00230 L @11,CVTMFCTL(,CVTPTR) 0232 04003000 L @11,STGSSCT(,@11) 0232 04004000 L @11,STSCMVT(,@11) 0232 04005000 L I,MFMVNUM 0232 04006000 L @11,STMVNUM(,@11) 0232 04007000 CR I,@11 0232 04008000 BNH *+6 04009000 LR I,@11 0232 04010000 B @DE00232 0232 04011000 @DL00232 DS 0H 0233 04012000 * STMVADD(I)->STSMOPT=MFMVADD(I)->MFPMOPT;/* GET OPTION WORD FROM 04013000 * SVC ISSUER */ 04014000 LR @11,I 0233 04015000 SLA @11,2 0233 04016000 L @08,CVTMFCTL(,CVTPTR) 0233 04017000 L @08,STGSSCT(,@08) 0233 04018000 L @08,STSCMVT(,@08) 0233 04019000 L @08,STMVADD-4(@11,@08) 0233 04020000 L @11,MFMVADD-4(@11) 0233 04021000 L @11,MFPMOPT(,@11) 0233 04022000 ST @11,STSMOPT(,@08) 0233 04023000 * IF STMVADD(I)->STSMOPT^=CNULLOPT/* IF ANY OPTION FLAGS SET */ 04024000 * THEN 0234 04025000 LTR @11,@11 0234 04026000 BZ @RF00234 0234 04027000 * DO; 0235 04028000 * 0235 04029000 * /***********************************************************/ 04030000 * /* */ 04031000 * /* LOAD, CALL, AND DELETE THIS MEASUREMENT OPTION'S */ 04032000 * /* INITIALIZATION PROGRAM. */ 04033000 * /* */ 04034000 * /***********************************************************/ 04035000 * 0236 04036000 * IMDWORD=STMVADD(I)->STSMINIT;/* GET ENTRY POINT NAME */ 04037000 * 0236 04038000 MVC IMDWORD(8),STSMINIT(@08) 0236 04039000 * /***********************************************************/ 04040000 * /* */ 04041000 * /* MACDATE Y-2 73018 */ 04042000 * /* */ 04043000 * /***********************************************************/ 04044000 * 0237 04045000 * RESPECIFY 0237 04046000 * (GPR00P, 0237 04047000 * GPR01P, 0237 04048000 * GPR14P, 0237 04049000 * GPR15P) RESTRICTED; 0237 04050000 * GEN(LOAD EPLOC=IMDWORD); /* LOAD IT */ 04051000 LOAD EPLOC=IMDWORD 04052000 * IMMODEPA=GPR00P; /* SAVE ENTRY POINT ADDRESS */ 04053000 * 0239 04054000 LR IMMODEPA,GPR00P 0239 04055000 * /***********************************************************/ 04056000 * /* */ 04057000 * /* MACDATE Y-2 73018 */ 04058000 * /* */ 04059000 * /***********************************************************/ 04060000 * 0240 04061000 * RESPECIFY 0240 04062000 * (GPR00P, 0240 04063000 * GPR01P, 0240 04064000 * GPR14P, 0240 04065000 * GPR15P) UNRESTRICTED; 0240 04066000 * CALL IRBMFIXX(STMVADD(I) /* SUPERVISOR MEASUREMENT AREA 0241 04067000 * POINTER */ 04068000 * ,ADDR(STMMEVTL) /* MFROUTER MG VECTOR TABLE */ 04069000 * ,IMSAMCON /* NUMBER OF CYCLES FOR 0241 04070000 * CONFIGURATION CHECK */ 04071000 * ); 0241 04072000 * 0241 04073000 LR @11,I 0241 04074000 SLA @11,2 0241 04075000 L @08,CVTMFCTL(,CVTPTR) 0241 04076000 L @01,STGSSCT(,@08) 0241 04077000 L @01,STSCMVT(,@01) 0241 04078000 LA @11,STMVADD-4(@11,@01) 0241 04079000 ST @11,@AL00001 0241 04080000 LA @11,STGSMMV(,@08) 0241 04081000 ST @11,@AL00001+4 0241 04082000 LA @11,IMSAMCON 0241 04083000 ST @11,@AL00001+8 0241 04084000 LR @15,IMMODEPA 0241 04085000 LA @01,@AL00001 0241 04086000 BALR @14,@15 0241 04087000 * /***********************************************************/ 04088000 * /* */ 04089000 * /* MACDATE Y-2 73018 */ 04090000 * /* */ 04091000 * /***********************************************************/ 04092000 * 0242 04093000 * RESPECIFY 0242 04094000 * (GPR00P, 0242 04095000 * GPR01P, 0242 04096000 * GPR14P, 0242 04097000 * GPR15P) RESTRICTED; 0242 04098000 * IMRETCDB=IMRETCDB|GPR15P; /* SAVE RETURN CODE */ 04099000 ICM @11,15,IMRETCDB 0243 04100000 OR @11,GPR15P 0243 04101000 STCM @11,15,IMRETCDB 0243 04102000 * GEN(DELETE EPLOC=IMDWORD);/* DELETE IT */ 04103000 * 0244 04104000 DELETE EPLOC=IMDWORD 04105000 * /***********************************************************/ 04106000 * /* */ 04107000 * /* MACDATE Y-2 73018 */ 04108000 * /* */ 04109000 * /***********************************************************/ 04110000 * 0245 04111000 * RESPECIFY 0245 04112000 * (GPR00P, 0245 04113000 * GPR01P, 0245 04114000 * GPR14P, 0245 04115000 * GPR15P) UNRESTRICTED; 0245 04116000 * IF STMVADD(I)->STSMOPT^=CNULLOPT THEN/* IF OPTION SELECTED */ 04117000 LR @11,I 0246 04118000 SLA @11,2 0246 04119000 L @08,CVTMFCTL(,CVTPTR) 0246 04120000 L @08,STGSSCT(,@08) 0246 04121000 L @08,STSCMVT(,@08) 0246 04122000 L @11,STMVADD-4(@11,@08) 0246 04123000 L @11,STSMOPT(,@11) 0246 04124000 LTR @11,@11 0246 04125000 BZ @RF00246 0246 04126000 * IMACTOPT=CSET; /* FLAG ACTIVE OPTION FOUND */ 04127000 OI IMACTOPT,B'10000000' 0247 04128000 * END; 0248 04129000 @RF00246 DS 0H 0249 04130000 * END; /* END LOOP I ON MVT */ 04131000 @RF00234 BCTR I,0 0249 04132000 @DE00232 LTR I,I 0249 04133000 BP @DL00232 0249 04134000 * 0250 04135000 * /*****************************************************************/ 04136000 * /* */ 04137000 * /* CHECK IF NO MEASUREMENTS ACTIVE */ 04138000 * /* */ 04139000 * /*****************************************************************/ 04140000 * 0250 04141000 * IF IMACTOPT=CNONEACT| /* IF NO MEASUREMENTS ACTIVE, OR */ 04142000 * (IMRETCDB&CINVALIM)=CINVALIM/* IF INVALID OPTION FOUND */ 04143000 * THEN 0250 04144000 TM IMACTOPT,B'10000000' 0250 04145000 BZ @RT00250 0250 04146000 MVC @TS00001(4),IMRETCDB 0250 04147000 NC @TS00001(4),@CB02188 0250 04148000 CLC @TS00001(4),@CB02188 0250 04149000 BNE @RF00250 0250 04150000 @RT00250 DS 0H 0251 04151000 * DO; 0251 04152000 * CALL IMFREMMV; /* FREE STMMV TABLE STORAGE */ 04153000 BAL @14,IMFREMMV 0252 04154000 * RETURN CODE(CINVAL13); /* DO NOT PROVIDE MEASUREMENTS */ 04155000 LA @15,4 0253 04156000 L @14,@SA00002 0253 04157000 LM @00,@12,@SA00002+8 0253 04158000 BR @14 0253 04159000 * END; 0254 04160000 * 0254 04161000 * /*****************************************************************/ 04162000 * /* */ 04163000 * /* ENABLE MFROUTER IF NEEDED */ 04164000 * /* */ 04165000 * /*****************************************************************/ 04166000 * 0255 04167000 * IF(IMRETCDB&CMFROUTR)=CMFROUTR /* IF MFROUTER NEEDED */ 04168000 * THEN 0255 04169000 @RF00250 MVC @TS00001(4),IMRETCDB 0255 04170000 NC @TS00001(4),@CB02195 0255 04171000 CLC @TS00001(4),@CB02195 0255 04172000 BNE @RF00255 0255 04173000 * CVTMFACT=CACTIVE; /* ACTIVATE, SETTING CVT FLAG */ 04174000 OI CVTMFACT(CVTPTR),B'10000000' 0256 04175000 * ELSE 0257 04176000 * DO; 0257 04177000 B @RC00255 0257 04178000 @RF00255 DS 0H 0258 04179000 * CALL IMFREMMV; /* FREE STMMV TABLE STORAGE */ 04180000 BAL @14,IMFREMMV 0258 04181000 * END; 0259 04182000 * 0259 04183000 * /*****************************************************************/ 04184000 * /* */ 04185000 * /* ENQUEUE MF/1 TIMER QUEUE ELEMENT IF NEEDED */ 04186000 * /* */ 04187000 * /*****************************************************************/ 04188000 * 0260 04189000 * IF(IMRETCDB&CENQTQE)=CENQTQE /* IF TQE NEEDED */ 04190000 * THEN 0260 04191000 @RC00255 MVC @TS00001(4),IMRETCDB 0260 04192000 NC @TS00001(4),@CB02182 0260 04193000 CLC @TS00001(4),@CB02182 0260 04194000 BNE @RF00260 0260 04195000 * DO; 0261 04196000 * RFY 0262 04197000 * TQE BASED(ADDR(TPCMFTQE)); 0262 04198000 * 0262 04199000 * /*************************************************************/ 04200000 * /* */ 04201000 * /* PUT CURRENT TIME OF DAY INTO TQE MACDATE Y-2 73018 */ 04202000 * /* */ 04203000 * /*************************************************************/ 04204000 * 0263 04205000 * RESPECIFY 0263 04206000 * (GPR00P, 0263 04207000 * GPR01P, 0263 04208000 * GPR14P, 0263 04209000 * GPR15P) RESTRICTED; 0263 04210000 * GEN SETS(IMDWORD); 0264 04211000 TIME STCK,IMDWORD 04212000 * CALCULATE TIME OF NEXT INTERRUPT 04213000 LM @00,@01,IMDWORD GMT TIME OF CENTURY 04214000 AL @01,IMCYCTOD+4 PLUS LOW HALF OF CYCLE VALUE 04215000 BC 12,IMA200 BRANCH IF NO CARRY 04216000 A @00,IMONE ADD CARRY BIT TO HIGH ORDER WORD 04217000 IMA200 DS 0H 04218000 AL @00,IMCYCTOD ADD HIGH HALF OF CYCLE VALUE 04219000 STM @00,@01,IMDWORD SAVE TIME FOR TQE = END OF SAMPLE 04220000 * GEN DATA; 0265 04221000 * 0265 04222000 * /*************************************************************/ 04223000 * /* */ 04224000 * /* MACDATE Y-2 73018 */ 04225000 * /* */ 04226000 * /*************************************************************/ 04227000 * 0266 04228000 * RESPECIFY 0266 04229000 * (GPR00P, 0266 04230000 * GPR01P, 0266 04231000 * GPR14P, 0266 04232000 * GPR15P) UNRESTRICTED; 0266 04233000 * TQEVAL=IMDWORD; 0267 04234000 * 0267 04235000 L @12,TPCPTR(,CVTPTR) 0267 04236000 MVC TQEVAL+64(8,@12),IMDWORD 0267 04237000 * /*************************************************************/ 04238000 * /* */ 04239000 * /* GET DISP LOCK BEFORE CALLING TIMER ENQUEUE ROUTINE */ 04240000 * /* */ 04241000 * /*************************************************************/ 04242000 * 0268 04243000 * RFY 0268 04244000 * (GPR11P, 0268 04245000 * GPR12P, 0268 04246000 * GPR13P, 0268 04247000 * GPR14P) RSTD; 0268 04248000 * RFY 0269 04249000 * (GPR00P) RSTD; 0269 04250000 * GEN; 0270 04251000 LR @00,@13 SAVE REGISTER 13 CONTENTS 04252000 IMA300 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, X04253000 RELATED=(DISP,IGX00013(IMA310)) 04254000 LR @13,@00 RESTORE REGISTER 13 04255000 * RFY 0271 04256000 * (GPR00P) UNRSTD; 0271 04257000 * RFY 0272 04258000 * (GPR11P, 0272 04259000 * GPR12P, 0272 04260000 * GPR13P, 0272 04261000 * GPR14P) UNRSTD; 0272 04262000 * 0272 04263000 * /*************************************************************/ 04264000 * /* */ 04265000 * /* ESTABLISH FRR ROUTINE MACDATE Y-2 73018 */ 04266000 * /* */ 04267000 * /*************************************************************/ 04268000 * 0273 04269000 * RESPECIFY 0273 04270000 * (GPR00P, 0273 04271000 * GPR01P, 0273 04272000 * GPR14P, 0273 04273000 * GPR15P) RESTRICTED; 0273 04274000 * GPR01P=ADDR(IRBMFFUR); /* FRR ROUTINE */ 04275000 L GPR01P,@CV02170 0274 04276000 * GEN SETS(GPR14P,GPR15P); 0275 04277000 * 0275 04278000 SETFRR A,FRRAD=(1),WRKREGS=(GPR14P,GPR15P) 04279000 * /*************************************************************/ 04280000 * /* */ 04281000 * /* MACDATE Y-2 73018 */ 04282000 * /* */ 04283000 * /*************************************************************/ 04284000 * 0276 04285000 * RESPECIFY 0276 04286000 * (GPR00P, 0276 04287000 * GPR01P, 0276 04288000 * GPR14P, 0276 04289000 * GPR15P) UNRESTRICTED; 0276 04290000 * 0276 04291000 * /*************************************************************/ 04292000 * /* */ 04293000 * /* CALL TIMER (TQE) ENQUEUE ROUTINE MACDATE Y-2 73018 */ 04294000 * /* */ 04295000 * /*************************************************************/ 04296000 * 0277 04297000 * RESPECIFY 0277 04298000 * (GPR00P, 0277 04299000 * GPR01P, 0277 04300000 * GPR14P, 0277 04301000 * GPR15P) RESTRICTED; 0277 04302000 * RFY 0278 04303000 * (GPR02P) RSTD; 0278 04304000 * GPR01P=ADDR(TPCMFTQE); /* TQE ADDRESS */ 04305000 L GPR01P,TPCPTR(,CVTPTR) 0279 04306000 LA GPR01P,TPCMFTQE(,GPR01P) 0279 04307000 * GPR15P=ADDR(IEAQTE00); /* TIMER TQE ENQUEUE ROUTINE */ 04308000 L GPR15P,CVTQTE00(,CVTPTR) 0280 04309000 * RFY 0281 04310000 * (GPR13P) RSTD; 0281 04311000 * GEN; 0282 04312000 LR @00,@13 SAVE REGISTER 13 CONTENTS 04313000 BALR @02,@15 CALL IT. 04314000 LR @13,@00 RESTORE REGISTER 13 04315000 * RFY 0283 04316000 * (GPR13P) UNRSTD; 0283 04317000 * RFY 0284 04318000 * (GPR02P) UNRSTD; 0284 04319000 * 0284 04320000 * /*************************************************************/ 04321000 * /* */ 04322000 * /* MACDATE Y-2 73018 */ 04323000 * /* */ 04324000 * /*************************************************************/ 04325000 * 0285 04326000 * RESPECIFY 0285 04327000 * (GPR00P, 0285 04328000 * GPR01P, 0285 04329000 * GPR14P, 0285 04330000 * GPR15P) UNRESTRICTED; 0285 04331000 * 0285 04332000 * /*************************************************************/ 04333000 * /* */ 04334000 * /* CANCEL FRR ROUTINE MACDATE Y-2 73018 */ 04335000 * /* */ 04336000 * /*************************************************************/ 04337000 * 0286 04338000 * RESPECIFY 0286 04339000 * (GPR00P, 0286 04340000 * GPR01P, 0286 04341000 * GPR14P, 0286 04342000 * GPR15P) RESTRICTED; 0286 04343000 * GEN(SETFRR D,WRKREGS=(GPR14P,GPR15P)) 0287 04344000 * SETS(GPR14P,GPR15P); 0287 04345000 * 0287 04346000 SETFRR D,WRKREGS=(GPR14P,GPR15P) 04347000 * /*************************************************************/ 04348000 * /* */ 04349000 * /* MACDATE Y-2 73018 */ 04350000 * /* */ 04351000 * /*************************************************************/ 04352000 * 0288 04353000 * RESPECIFY 0288 04354000 * (GPR00P, 0288 04355000 * GPR01P, 0288 04356000 * GPR14P, 0288 04357000 * GPR15P) UNRESTRICTED; 0288 04358000 * 0288 04359000 * /*************************************************************/ 04360000 * /* */ 04361000 * /* ENABLE, BY RELEASING DISPATCHER LOCK (DISP) */ 04362000 * /* */ 04363000 * /*************************************************************/ 04364000 * 0289 04365000 * RFY 0289 04366000 * (GPR11P, 0289 04367000 * GPR12P, 0289 04368000 * GPR13P, 0289 04369000 * GPR14P) RSTD; 0289 04370000 * RFY 0290 04371000 * (GPR00P) RSTD; 0290 04372000 * GEN; 0291 04373000 LR @00,@13 SAVE REGISTER 13 CONTENTS 04374000 IMA310 SETLOCK RELEASE,TYPE=DISP, X04375000 RELATED=(DISP,IGX00013(IMA300)) 04376000 LR @13,@00 RESTORE REGISTER 13 04377000 * RFY 0292 04378000 * (GPR00P) UNRSTD; 0292 04379000 * RFY 0293 04380000 * (GPR11P, 0293 04381000 * GPR12P, 0293 04382000 * GPR13P, 0293 04383000 * GPR14P) UNRSTD; 0293 04384000 * END; /* END 'IF TQE NEEDED' */ 04385000 * 0294 04386000 * /*****************************************************************/ 04387000 * /* */ 04388000 * /* ENABLE I/O DATA COLLECTION IF NEEDED */ 04389000 * /* */ 04390000 * /*****************************************************************/ 04391000 * 0295 04392000 * IF(IMRETCDB&CIOSDATA)=CIOSDATA /* IF NEEDED */ 04393000 * THEN 0295 04394000 @RF00260 MVC @TS00001(4),IMRETCDB 0295 04395000 NC @TS00001(4),@CB02191 0295 04396000 CLC @TS00001(4),@CB02191 0295 04397000 BNE @RF00295 0295 04398000 * CALL IRBMFIOI(CINITIOI); /* CALL DEVICE/CHANNEL IOS 0296 04399000 * INITIALIZATION/TERMINATION 0296 04400000 * ROUTINE TO INITIALIZE */ 04401000 L @15,@CV02171 0296 04402000 LA @01,@AL00296 0296 04403000 BALR @14,@15 0296 04404000 * 0297 04405000 * /*****************************************************************/ 04406000 * /* */ 04407000 * /* FLAG MFDATA SVC FOR INITIAL CALL */ 04408000 * /* */ 04409000 * /*****************************************************************/ 04410000 * 0297 04411000 * STSCINIT=CINITDAT; 0297 04412000 * 0297 04413000 @RF00295 L @12,CVTMFCTL(,CVTPTR) 0297 04414000 L @12,STGSSCT(,@12) 0297 04415000 OI STSCINIT(@12),B'00000010' 0297 04416000 * /*****************************************************************/ 04417000 * /* */ 04418000 * /* ISSUE SVC MFDATA FOR INITIAL MEASUREMENT TIME STAMPS AND */ 04419000 * /* WRAPAROUND VALUES. MACDATE Y-2 73018 */ 04420000 * /* */ 04421000 * /*****************************************************************/ 04422000 * 0298 04423000 * RESPECIFY 0298 04424000 * (GPR00P, 0298 04425000 * GPR01P, 0298 04426000 * GPR14P, 0298 04427000 * GPR15P) RESTRICTED; 0298 04428000 * GPR15F=14; /* MFDATA IS TYPE 3 ESR CODE 14 */ 04429000 LA GPR15F,14 0299 04430000 * SVC(109); /* TYPE 3 EXTENDED SVC ROUTER */ 04431000 * 0300 04432000 SVC 109 0300 04433000 * /*****************************************************************/ 04434000 * /* */ 04435000 * /* FREE DTMVT STORAGE POINTED TO BY GPR01P, OUTPUT FROM IGX00014 */ 04436000 * /* */ 04437000 * /*****************************************************************/ 04438000 * 0301 04439000 * GPR01P=GPR01P-CSPLENPR; /* AREA ADDR IS AT SP-LEN PREFIX */ 04440000 SL GPR01P,@CF00054 0301 04441000 * GPR00P=(GPR01P)->IMPRSPLN; /* GET PREFIXED SP & LENGTH */ 04442000 ICM GPR00P,15,IMPRSPLN(GPR01P) 0302 04443000 * GEN(FREEMAIN R,LV=(0),A=(1)); 0303 04444000 * 0303 04445000 FREEMAIN R,LV=(0),A=(1) 04446000 * /*****************************************************************/ 04447000 * /* */ 04448000 * /* MACDATE Y-2 73018 */ 04449000 * /* */ 04450000 * /*****************************************************************/ 04451000 * 0304 04452000 * RESPECIFY 0304 04453000 * (GPR00P, 0304 04454000 * GPR01P, 0304 04455000 * GPR14P, 0304 04456000 * GPR15P) UNRESTRICTED; 0304 04457000 * 0304 04458000 * /*****************************************************************/ 04459000 * /* */ 04460000 * /* CLEAR SVC MFDATA INITIAL CALL FLAG */ 04461000 * /* */ 04462000 * /*****************************************************************/ 04463000 * 0305 04464000 * STSCINIT=CLEAR; 0305 04465000 L @12,CVTMFCTL(,CVTPTR) 0305 04466000 L @12,STGSSCT(,@12) 0305 04467000 NI STSCINIT(@12),B'11111101' 0305 04468000 * RETURN CODE(CINITOK); /* RETURN TO IGX00013 MAINLINE */ 04469000 SLR @15,@15 0306 04470000 L @14,@SA00002 0306 04471000 LM @00,@12,@SA00002+8 0306 04472000 BR @14 0306 04473000 *IMFREMMV: /* FREE STMMV TABLE STORAGE */ 04474000 * PROC; 0307 04475000 * 0307 04476000 IMFREMMV STM @14,@12,@SA00003 0307 04477000 * /*****************************************************************/ 04478000 * /* */ 04479000 * /* FREE STMMV TABLE STORAGE MACDATE Y-2 73018 */ 04480000 * /* */ 04481000 * /*****************************************************************/ 04482000 * 0308 04483000 * RESPECIFY 0308 04484000 * (GPR00P, 0308 04485000 * GPR01P, 0308 04486000 * GPR14P, 0308 04487000 * GPR15P) RESTRICTED; 0308 04488000 * GPR01P=STGSMMV; /* ADDRESS OF AREA */ 04489000 L @12,CVTMFCTL(,CVTPTR) 0309 04490000 L GPR01P,STGSMMV(,@12) 0309 04491000 * STGSMMV=CNULLADR; /* DISCONNECT STMMV FROM STGST */ 04492000 SLR @11,@11 0310 04493000 ST @11,STGSMMV(,@12) 0310 04494000 * GPR00P=IMMMVSRG; /* SUBPOOL AND LENGTH OF AREA */ 04495000 L GPR00P,IMMMVSRG 0311 04496000 * GEN(FREEMAIN R,LV=(0),A=(1)); 0312 04497000 * 0312 04498000 FREEMAIN R,LV=(0),A=(1) 04499000 * /*****************************************************************/ 04500000 * /* */ 04501000 * /* MACDATE Y-2 73018 */ 04502000 * /* */ 04503000 * /*****************************************************************/ 04504000 * 0313 04505000 * RESPECIFY 0313 04506000 * (GPR00P, 0313 04507000 * GPR01P, 0313 04508000 * GPR14P, 0313 04509000 * GPR15P) UNRESTRICTED; 0313 04510000 * END IMFREMMV; 0314 04511000 @EL00003 DS 0H 0314 04512000 @EF00003 DS 0H 0314 04513000 @ER00003 LM @14,@12,@SA00003 0314 04514000 BR @14 0314 04515000 * END MFIMAINL; 0315 04516000 * END IGX00013 0316 04517000 * 0316 04518000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 04519000 */*%INCLUDE SYSLIB (IHAPSA ) */ 04520000 */*%INCLUDE SYSLIB (IHARB ) */ 04521000 */*%INCLUDE SYSLIB (IKJRB ) */ 04522000 */*%INCLUDE SYSLIB (IKJTCB ) */ 04523000 */*%INCLUDE SYSLIB (CVT ) */ 04524000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 04525000 */*%INCLUDE SYSLIB (IHATQE ) */ 04526000 */*%INCLUDE SYSLIB (IEAVVTPC) */ 04527000 * 0316 04528000 * ; 0316 04529000 @DATA DS 0H 04530000 DS 0F 04531000 @AL00296 DC A(@CB02174) LIST WITH 1 ARGUMENT(S) 04532000 @DATD DSECT 04533000 DS 0F 04534000 @SA00001 DS 18F 04535000 @PC00001 DS 3F 04536000 @SA00002 DS 15F 04537000 @PC00002 DS 2F 04538000 @SA00003 DS 15F 04539000 @AL00001 DS 3A 04540000 IGX00013 CSECT 04541000 DS 0F 04542000 @CF00077 DC F'1' 04543000 @CF00118 DC F'2' 04544000 @CF00082 DC F'3' 04545000 @CF00054 DC F'4' 04546000 @CF00080 DC F'5' 04547000 @CF00137 DC F'16' 04548000 @CF00099 DC F'24' 04549000 @CF02225 DC F'28' 04550000 @CF00135 DC F'32' 04551000 @CF02179 DC F'50' 04552000 @CF02223 DC F'52' 04553000 @CF00208 DC F'56' 04554000 @CF00224 DC F'64' 04555000 @CF02176 DC F'20000' 04556000 @CF02228 DC F'-8' 04557000 @CF02224 DC F'-4' 04558000 @DATD DSECT 04559000 DS 0D 04560000 FRREPTR DS F 04561000 FRRSPTR DS F 04562000 TQEPTR DS A 04563000 IMEVEEPA DS A 04564000 IMEVLEPA DS A 04565000 IMSAMCON DS F 04566000 IMTEMPAL DS F 04567000 IMABCODE DS F 04568000 @TS00001 DS CL4 04569000 STESTAPL DS CL16 04570000 MFCOA DS CL32 04571000 ORG MFCOA 04572000 MFCOTCE DS FL4 04573000 ORG MFCOTCE 04574000 MFCOTCEF DS BL1 04575000 ORG MFCOTCEF 04576000 MFCOTCEC DS BL1 04577000 ORG MFCOTCE+1 04578000 @NM00069 DS CL2 04579000 MFCOTCEL DS CL1 04580000 ORG MFCOTCEL 04581000 @NM00070 DS BL1 04582000 MFCOTCEV EQU MFCOTCEL+0 04583000 ORG MFCOA+4 04584000 MFCOCYC DS FL4 04585000 ORG MFCOCYC 04586000 MFCOCYCF DS BL1 04587000 ORG MFCOCYCF 04588000 MFCOCYCC DS BL1 04589000 ORG MFCOCYC+1 04590000 @NM00071 DS CL1 04591000 MFCOCYCV DS FL2 04592000 ORG MFCOA+8 04593000 MFCOOUT DS FL4 04594000 ORG MFCOOUT 04595000 MFCOOUTF DS BL1 04596000 ORG MFCOOUTF 04597000 MFCOOUTC DS BL1 04598000 ORG MFCOOUT+1 04599000 @NM00072 DS CL2 04600000 MFCOOUTV DS CL1 04601000 ORG MFCOA+12 04602000 MFCOINT DS FL4 04603000 ORG MFCOINT 04604000 MFCOINTF DS BL1 04605000 ORG MFCOINTF 04606000 MFCOINTC DS BL1 04607000 ORG MFCOINT+1 04608000 @NM00073 DS CL1 04609000 MFCOINTV DS FL2 04610000 ORG MFCOA+16 04611000 MFCOREP DS FL4 04612000 ORG MFCOREP 04613000 MFCOREPF DS BL1 04614000 ORG MFCOREPF 04615000 MFCOREPC DS BL1 04616000 ORG MFCOREP+1 04617000 @NM00074 DS CL2 04618000 MFCOREPL DS CL1 04619000 ORG MFCOREPL 04620000 @NM00075 DS BL1 04621000 MFCOREPV EQU MFCOREPL+0 04622000 ORG MFCOA+20 04623000 MFCOSTP DS FL4 04624000 ORG MFCOSTP 04625000 MFCOSTPF DS BL1 04626000 ORG MFCOSTPF 04627000 MFCOSTPC DS BL1 04628000 MFCOSTPS EQU MFCOSTPF+0 04629000 MFCOSTPU EQU MFCOSTPF+0 04630000 ORG MFCOSTP+1 04631000 @NM00076 DS CL1 04632000 MFCOSTPV DS FL2 04633000 ORG MFCOA+24 04634000 MFCOOPI DS FL4 04635000 ORG MFCOOPI 04636000 MFCOOPIF DS BL1 04637000 ORG MFCOOPIF 04638000 MFCOOPIC DS BL1 04639000 ORG MFCOOPI+1 04640000 @NM00077 DS CL2 04641000 MFCOOPIL DS CL1 04642000 ORG MFCOOPIL 04643000 @NM00078 DS BL1 04644000 MFCOOPIV EQU MFCOOPIL+0 04645000 ORG MFCOA+28 04646000 MFCOMEM DS FL4 04647000 ORG MFCOMEM 04648000 MFCOMEMF DS BL1 04649000 ORG MFCOMEMF 04650000 MFCOMEMC DS BL1 04651000 ORG MFCOMEM+1 04652000 @NM00079 DS CL1 04653000 MFCOMEMV DS CL2 04654000 ORG MFCOA+32 04655000 MFMVT DS CL24 04656000 ORG MFMVT 04657000 MFMVNUM DS FL4 04658000 MFMVOPT DS CL20 04659000 ORG MFMVOPT 04660000 MFMVCPU DS AL4 04661000 MFMVPAG DS AL4 04662000 MFMVWKL DS AL4 04663000 MFMVCHA DS AL4 04664000 MFMVDEV DS AL4 04665000 ORG MFMVT+24 04666000 IMENQAPL DS CL16 04667000 IMEXTAPL DS CL16 04668000 IMACTOPT DS BL1 04669000 DS CL3 04670000 IMCYCTOD DS CL8 04671000 IMDWORD DS CL8 04672000 IMMENQ DS BL1 04673000 DS CL3 04674000 IMMMVSRG DS CL4 04675000 ORG IMMMVSRG 04676000 IMMMVSP DS FL1 04677000 IMMMVLEN DS FL3 04678000 ORG IMMMVSRG+4 04679000 IMRETCDB DS BL4 04680000 IGX00013 CSECT 04681000 DS 0F 04682000 @SIZDATD DC AL1(0) 04683000 DC AL3(@ENDDATD-@DATD) 04684000 @CV01031 DC V(IRBMFTMA) 04685000 @CV02170 DC V(IRBMFFUR) 04686000 @CV02171 DC V(IRBMFIOI) 04687000 DS 0D 04688000 @CC02207 DC C'IRBMFICP' 04689000 @CC02208 DC C'IRBMFIPG' 04690000 @CC02209 DC C'IRBMFIWK' 04691000 @CC02210 DC C'IRBMFIHA' 04692000 @CC02211 DC C'IRBMFIDV' 04693000 @CC02212 DC C'IRBMFTRM' 04694000 @CC02201 DC C'STGS' 04695000 @CC02203 DC C'STSC' 04696000 @CC02204 DC C'01' 04697000 @CB02182 DC X'00000008' 04698000 @CB02188 DC X'00000010' 04699000 @CB02191 DC X'00000020' 04700000 @CB02195 DC X'00000004' 04701000 @CB02174 DC B'10000000' 04702000 DS CL1 04703000 STSAVSRG DS CL4 04704000 ORG STSAVSRG 04705000 STSASPLN DS CL4 04706000 ORG STSASPLN 04707000 STSASP DC AL1(250) 04708000 STSALEN DC AL3(18*4) 04709000 ORG STSAVSRG+4 04710000 IMQNAME DC CL8'SYSZRBMF' 04711000 IMRNAME DC CL6'ACTIVE' 04712000 DS CL2 04713000 IMGSTSRG DS CL4 04714000 ORG IMGSTSRG 04715000 IMGSTSP DC AL1(245) 04716000 IMGSTLEN DC AL3(28) 04717000 ORG IMGSTSRG+4 04718000 IMLOCSRG DS CL4 04719000 ORG IMLOCSRG 04720000 IMLOCSP DC AL1(0) 04721000 IMLOCLEN DC AL3(52+24-20+4*5+32+56*5+16*5) 04722000 ORG IMLOCSRG+4 04723000 STPATCH DS CL200 04724000 IGX00013 CSECT 04725000 STESTSPL ESTAE IRBMFSDE,TERM=YES,RECORD=YES,MF=L 04726000 EXTRN IRBMFSDE 04727000 @DATD DSECT 04728000 IGX00013 CSECT 04729000 STPSTART DC A(@PSTART) CODE BASE REGISTER VALUE 04730000 IGX00013 CSECT 04731000 IMENQSPL ENQ (IMQNAME,IMRNAME,E,,SYSTEM),RET=USE,MF=L 04732000 IGX00013 CSECT 04733000 * /* EXTRACT ASID */ 04734000 IMEXTSPL EXTRACT ,'S',FIELDS=(ASID),MF=L 04735000 @DATD DSECT 04736000 IGX00013 CSECT 04737000 IMMIL DC F'1000' MICROSECONDS IN 1 MILLISEC 04738000 @DATD DSECT 04739000 IGX00013 CSECT 04740000 IMONE DC F'1' ONE 04741000 @DATD DSECT 04742000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 04743000 @ENDDATD EQU * 04744000 IGX00013 CSECT 04745000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 04746000 @01 EQU 01 04747000 @02 EQU 02 04748000 @03 EQU 03 04749000 @04 EQU 04 04750000 @05 EQU 05 04751000 @06 EQU 06 04752000 @07 EQU 07 04753000 @08 EQU 08 04754000 @09 EQU 09 04755000 @10 EQU 10 04756000 @11 EQU 11 04757000 @12 EQU 12 04758000 @13 EQU 13 04759000 @14 EQU 14 04760000 @15 EQU 15 04761000 IMMODEPA EQU @02 04762000 IMMGRL EQU @11 04763000 IMMFCTL EQU @02 04764000 J EQU @06 04765000 I EQU @12 04766000 STSAADD EQU @02 04767000 STRETURN EQU @11 04768000 STRETCOD EQU @02 04769000 STPARMS EQU @12 04770000 GPRCOD EQU @10 04771000 GPRDAT EQU @09 04772000 GPR03P EQU @03 04773000 GPR04P EQU @04 04774000 GPR05P EQU @05 04775000 GPR15F EQU @15 04776000 GPR00P EQU @00 04777000 GPR01P EQU @01 04778000 GPR14P EQU @14 04779000 GPR15P EQU @15 04780000 GPR13P EQU @13 04781000 CVTPTR EQU @03 04782000 GPR02P EQU @02 04783000 GPR11P EQU @11 04784000 GPR12P EQU @12 04785000 GPR00F EQU @00 04786000 GPR01F EQU @01 04787000 GPR14F EQU @14 04788000 PSA EQU 0 04789000 FLCRNPSW EQU PSA 04790000 FLCROPSW EQU PSA+8 04791000 FLCICCW2 EQU PSA+16 04792000 PSAEEPSW EQU PSA+132 04793000 PSAESPSW EQU PSA+136 04794000 FLCSVILC EQU PSAESPSW+1 04795000 PSAEPPSW EQU PSA+140 04796000 FLCPIILC EQU PSAEPPSW+1 04797000 FLCPICOD EQU PSAEPPSW+2 04798000 PSAPICOD EQU FLCPICOD+1 04799000 FLCTEA EQU PSAEPPSW+4 04800000 FLCPER EQU PSA+152 04801000 FLCMCLA EQU PSA+168 04802000 FLCIOEL EQU FLCMCLA+4 04803000 FLCIOA EQU FLCMCLA+16 04804000 FLCFSA EQU FLCMCLA+80 04805000 PSATOLD EQU PSA+540 04806000 PSASUPER EQU PSA+552 04807000 PSASUP1 EQU PSASUPER 04808000 PSASUP2 EQU PSASUPER+1 04809000 PSASUP3 EQU PSASUPER+2 04810000 PSASUP4 EQU PSASUPER+3 04811000 PSACLHT EQU PSA+640 04812000 PSALKSA EQU PSA+696 04813000 PSAHLHI EQU PSA+760 04814000 PSADSSFL EQU PSA+836 04815000 PSADSSF1 EQU PSADSSFL 04816000 PSADSSF3 EQU PSADSSFL+2 04817000 PSADSSF4 EQU PSADSSFL+3 04818000 PSARSVT EQU PSA+896 04819000 RBPRFX EQU 0 04820000 RBBASIC EQU 0 04821000 RBEXRTNM EQU RBBASIC 04822000 RBTMFLD EQU RBEXRTNM 04823000 RBSTAB EQU RBBASIC+10 04824000 XSTAB EQU RBSTAB 04825000 RBSTAB1 EQU XSTAB 04826000 XSTAB1 EQU RBSTAB1 04827000 RBFTCKPT EQU XSTAB1 04828000 RBSTAB2 EQU XSTAB+1 04829000 XSTAB2 EQU RBSTAB2 04830000 RBTCBNXT EQU XSTAB2 04831000 RBFACTV EQU XSTAB2 04832000 RBFDYN EQU XSTAB2 04833000 RBECBWT EQU XSTAB2 04834000 RBOPSW EQU RBBASIC+16 04835000 RBLINK EQU RBBASIC+28 04836000 XRBLNK EQU RBLINK 04837000 RBWCF EQU XRBLNK 04838000 RBLINKB EQU XRBLNK+1 04839000 RBGRSAVE EQU RBBASIC+32 04840000 XRBREG EQU RBGRSAVE 04841000 RBGRS0 EQU XRBREG 04842000 RBGRS1 EQU XRBREG+4 04843000 RBGRS2 EQU XRBREG+8 04844000 RBGRS3 EQU XRBREG+12 04845000 RBGRS4 EQU XRBREG+16 04846000 RBGRS5 EQU XRBREG+20 04847000 RBGRS6 EQU XRBREG+24 04848000 RBGRS7 EQU XRBREG+28 04849000 RBGRS8 EQU XRBREG+32 04850000 RBGRS9 EQU XRBREG+36 04851000 RBGRS10 EQU XRBREG+40 04852000 RBGRS11 EQU XRBREG+44 04853000 RBGRS12 EQU XRBREG+48 04854000 RBGRS13 EQU XRBREG+52 04855000 RBGRS14 EQU XRBREG+56 04856000 RBGRS15 EQU XRBREG+60 04857000 XRBESA EQU RBBASIC+96 04858000 RBEXSAVE EQU XRBESA 04859000 RBPREFIX EQU 0 04860000 RBRSV019 EQU RBPREFIX+14 04861000 RBRSV028 EQU RBPREFIX+15 04862000 RBRSV041 EQU RBPREFIX+27 04863000 RBRSV054 EQU RBPREFIX+39 04864000 RBRTOPSW EQU RBPREFIX+40 04865000 RBRTPSW2 EQU RBRTOPSW+8 04866000 RBRTICIL EQU RBRTPSW2 04867000 RBFLAGS1 EQU RBPREFIX+56 04868000 RBINTCDA EQU RBPREFIX+61 04869000 RBSECT EQU 0 04870000 RBPPSAV EQU RBSECT 04871000 @NM00034 EQU RBSECT+10 04872000 @NM00035 EQU @NM00034 04873000 RBTRSVRB EQU @NM00035 04874000 @NM00037 EQU @NM00034+1 04875000 RBETXR EQU @NM00037 04876000 RBEP EQU RBSECT+12 04877000 RBPGMQ EQU RBSECT+24 04878000 @NM00044 EQU RBSECT+28 04879000 IRBEND EQU RBSECT+96 04880000 @NM00048 EQU RBSECT+96 04881000 RBRSV138 EQU @NM00048+7 04882000 RBRSV150 EQU RBSECT+167 04883000 TCBFIX EQU 0 04884000 TCBFRS EQU TCBFIX 04885000 TCB EQU 0 04886000 TCBRBP EQU TCB 04887000 TCBPIE EQU TCB+4 04888000 TCBPMASK EQU TCBPIE 04889000 TCBCMP EQU TCB+16 04890000 TCBCMPF EQU TCBCMP 04891000 TCBCPP EQU TCBCMPF 04892000 TCBSTCC EQU TCBCMPF 04893000 TCBCDBL EQU TCBCMPF 04894000 TCBCWTO EQU TCBCMPF 04895000 TCBCIND EQU TCBCMPF 04896000 TCBCMSG EQU TCBCMPF 04897000 TCBTRN EQU TCB+20 04898000 TCBABF EQU TCBTRN 04899000 TCBMSS EQU TCB+24 04900000 TCBPKF EQU TCB+28 04901000 TCBFLGS EQU TCB+29 04902000 TCBFLGS1 EQU TCBFLGS 04903000 TCBFLGS2 EQU TCBFLGS+1 04904000 TCBFLGS3 EQU TCBFLGS+2 04905000 TCBFLGS4 EQU TCBFLGS+3 04906000 TCBFLGS5 EQU TCBFLGS+4 04907000 TCBABWF EQU TCBFLGS5 04908000 TCBJPQ EQU TCB+44 04909000 TCBPURGE EQU TCBJPQ 04910000 TCBGRS EQU TCB+48 04911000 TCBFSA EQU TCB+112 04912000 TCBTME EQU TCB+120 04913000 TCBJSTCB EQU TCB+124 04914000 TCBTSFLG EQU TCB+148 04915000 TCBTSTSK EQU TCBTSFLG 04916000 TCBSTAB EQU TCB+160 04917000 TCBNSTAE EQU TCBSTAB 04918000 TCBTCT EQU TCB+164 04919000 TCBTCTGF EQU TCBTCT 04920000 TCBSCNDY EQU TCB+172 04921000 TCBNDSP EQU TCBSCNDY 04922000 TCBNDSP1 EQU TCBNDSP+1 04923000 TCBNDSP2 EQU TCBNDSP+2 04924000 TCBNDSP3 EQU TCBNDSP+3 04925000 TCBJSCB EQU TCB+180 04926000 TCBRECDE EQU TCBJSCB 04927000 TCBEXT1 EQU TCB+196 04928000 TCBBITS EQU TCB+200 04929000 TCBNDSP4 EQU TCBBITS 04930000 TCBNDSP5 EQU TCBBITS+1 04931000 TCBFLGS6 EQU TCBBITS+2 04932000 TCBFLGS7 EQU TCBBITS+3 04933000 TCBDAR EQU TCB+204 04934000 TCBDARC EQU TCBDAR 04935000 TCBEXT2 EQU TCB+208 04936000 TCBFOE EQU TCB+244 04937000 TCBESTAE EQU TCB+264 04938000 TCBESTRM EQU TCBESTAE+1 04939000 TCBFBYT1 EQU TCB+276 04940000 TCBFBYT2 EQU TCB+277 04941000 TCBRV124 EQU TCB+278 04942000 TCBRV133 EQU TCB+279 04943000 TCBXTNT2 EQU 0 04944000 TCBGTF EQU TCBXTNT2 04945000 TCBTFLG EQU TCBGTF 04946000 TCBRV146 EQU TCBXTNT2+28 04947000 TCBRV155 EQU TCBXTNT2+29 04948000 TCBRV164 EQU TCBXTNT2+30 04949000 TCBRV173 EQU TCBXTNT2+31 04950000 CVTMAP EQU 0 04951000 CVTDAR EQU CVTMAP+72 04952000 CVTFLGS1 EQU CVTDAR 04953000 CVTTPC EQU CVTMAP+88 04954000 CVTQTE00 EQU CVTMAP+104 04955000 CVTDCB EQU CVTMAP+116 04956000 CVTIERLC EQU CVTMAP+144 04957000 CVTOPTA EQU CVTMAP+182 04958000 CVTOPTB EQU CVTMAP+183 04959000 CVTGTF EQU CVTMAP+236 04960000 CVTGTFST EQU CVTGTF 04961000 CVTGTFS EQU CVTGTFST 04962000 CVTSTATE EQU CVTGTFST 04963000 CVTTMODE EQU CVTGTFST 04964000 CVTFORM EQU CVTGTFST 04965000 CVTAQAVT EQU CVTMAP+240 04966000 CVTTCMFG EQU CVTAQAVT 04967000 CVTVOLM2 EQU CVTMAP+244 04968000 CVTTATA EQU CVTVOLM2 04969000 CVTTSKS EQU CVTTATA 04970000 CVTVOLF2 EQU CVTTSKS 04971000 CVTTAT EQU CVTTATA+1 04972000 CVTATER EQU CVTMAP+248 04973000 CVTEXT1 EQU CVTMAP+252 04974000 CVTPURG EQU CVTMAP+260 04975000 CVTQMSG EQU CVTMAP+268 04976000 CVTDMSR EQU CVTMAP+272 04977000 CVTERPV EQU CVTMAP+316 04978000 CVTINTLA EQU CVTMAP+320 04979000 CVTAPF EQU CVTMAP+324 04980000 CVTEXT2 EQU CVTMAP+328 04981000 CVTHJES EQU CVTMAP+332 04982000 CVTPGSIA EQU CVTMAP+348 04983000 CVTA1F1 EQU CVTMAP+356 04984000 CVTSYSK EQU CVTMAP+357 04985000 CVTVOLM1 EQU CVTMAP+380 04986000 CVTVOLF1 EQU CVTVOLM1 04987000 CVTATMCT EQU CVTMAP+388 04988000 CVTXTNT1 EQU 0 04989000 CVTXTNT2 EQU 0 04990000 CVTDSSV EQU CVTXTNT2 04991000 CVTFLGBT EQU CVTXTNT2+5 04992000 CVTQID EQU CVTXTNT2+24 04993000 CVTRV400 EQU CVTXTNT2+52 04994000 CVTRV409 EQU CVTXTNT2+53 04995000 CVTATCVT EQU CVTXTNT2+64 04996000 CVTRV429 EQU CVTXTNT2+84 04997000 CVTRV438 EQU CVTXTNT2+85 04998000 CVTRV457 EQU CVTXTNT2+112 04999000 CVTRV466 EQU CVTXTNT2+113 05000000 CVTFIX EQU 0 05001000 CVTRELNO EQU CVTFIX+252 05002000 FRRS EQU 0 05003000 FRRSHEAD EQU FRRS 05004000 FRRSENTR EQU 0 05005000 FRRSFLGS EQU FRRSENTR+4 05006000 FRRSFLG1 EQU FRRSFLGS 05007000 STMMEVTL EQU 0 05008000 STMMEVNT EQU STMMEVTL 05009000 STMMNXMG EQU STMMEVTL+4 05010000 STMMMGRL EQU 0 05011000 STMMMGAD EQU STMMMGRL 05012000 MFPMA EQU 0 05013000 MFPMOPT EQU MFPMA 05014000 @NM00081 EQU MFPMOPT+3 05015000 STCOA EQU 0 05016000 STCOTCE EQU STCOA 05017000 STCOTCEF EQU STCOTCE 05018000 STCOTCEL EQU STCOTCE+3 05019000 STCOCYC EQU STCOA+4 05020000 STCOCYCF EQU STCOCYC 05021000 STCOCYCV EQU STCOCYC+2 05022000 STCOOUT EQU STCOA+8 05023000 STCOOUTF EQU STCOOUT 05024000 STCOINT EQU STCOA+12 05025000 STCOINTF EQU STCOINT 05026000 STCOREP EQU STCOA+16 05027000 STCOREPF EQU STCOREP 05028000 STCOREPL EQU STCOREP+3 05029000 STCOSTP EQU STCOA+20 05030000 STCOSTPF EQU STCOSTP 05031000 STCOOPI EQU STCOA+24 05032000 STCOOPIF EQU STCOOPI 05033000 STCOOPIL EQU STCOOPI+3 05034000 STCOMEM EQU STCOA+28 05035000 STCOMEMF EQU STCOMEM 05036000 STGST EQU 0 05037000 STGSNAME EQU STGST 05038000 STGSSCT EQU STGST+4 05039000 STGSTCB EQU STGST+8 05040000 STGSASID EQU STGST+12 05041000 STGSMMV EQU STGST+16 05042000 STGSCYC EQU STGST+20 05043000 STMVT EQU 0 05044000 STMVNUM EQU STMVT 05045000 STMVOPT EQU STMVT+4 05046000 STMVCPU EQU STMVOPT 05047000 STMVPAG EQU STMVOPT+4 05048000 STMVWKL EQU STMVOPT+8 05049000 STMVCHA EQU STMVOPT+12 05050000 STMVDEV EQU STMVOPT+16 05051000 STRVT EQU 0 05052000 STRVSPRT EQU STRVT 05053000 STRVNPRT EQU STRVT+4 05054000 STRVSSGT EQU STRVT+8 05055000 STRVNSGT EQU STRVT+12 05056000 STSCT EQU 0 05057000 STSCNAME EQU STSCT 05058000 STSCMVT EQU STSCT+4 05059000 STSCCOA EQU STSCT+8 05060000 STSCMF1V EQU STSCT+12 05061000 STSCFLAG EQU STSCT+14 05062000 STSCINIT EQU STSCFLAG+1 05063000 STSCMENQ EQU STSCFLAG+1 05064000 STSCGMT EQU STSCT+24 05065000 STSCMVSG EQU STSCT+32 05066000 STSCMVSP EQU STSCMVSG 05067000 STSCMVLE EQU STSCMVSG+1 05068000 STSCLSRG EQU STSCT+40 05069000 STSCMSRG EQU STSCT+44 05070000 STSCGSRG EQU STSCT+48 05071000 STSMA EQU 0 05072000 STSMOPT EQU STSMA 05073000 STSMOFLG EQU STSMOPT+3 05074000 STSMINIT EQU STSMA+4 05075000 STSMTERM EQU STSMA+12 05076000 STSMIGMC EQU STSMA+36 05077000 STSMISP EQU STSMIGMC 05078000 STSMIADD EQU STSMA+40 05079000 STSMRVT EQU STSMA+44 05080000 STSMSSP EQU STSMA+52 05081000 TQE EQU 0 05082000 TQEFLGS EQU TQE+14 05083000 TQEFLGS2 EQU TQE+15 05084000 TQEVAL EQU TQE+16 05085000 TQEEXIT EQU TQE+28 05086000 TPC EQU 0 05087000 IEATPC EQU TPC 05088000 TPCFLGS1 EQU IEATPC+4 05089000 TPCHDCCQ EQU IEATPC+12 05090000 TPCDMTQE EQU IEATPC+16 05091000 DFD EQU TPCDMTQE+4 05092000 TPCMNTQE EQU IEATPC+40 05093000 MNIGHT EQU TPCMNTQE+16 05094000 TPCMFTQE EQU IEATPC+64 05095000 IEATSELM EQU IEATPC+88 05096000 TPCLMTQE EQU IEATPC+112 05097000 TPCWORK EQU IEATPC+264 05098000 IEAQTE00 EQU 0 05099000 IMENQRET EQU 3 05100000 IMPRSPLN EQU 0 05101000 IRBMFIXX EQU 0 05102000 IKEBC EQU 0 05103000 IKEBF15 EQU 0 05104000 IKEBF31 EQU 0 05105000 IKEBP15 EQU 0 05106000 IKEBP31 EQU 0 05107000 IKEBP8 EQU 0 05108000 STMFMVT EQU 0 05109000 STMFCOA EQU 0 05110000 IRBMFDTA EQU 0 05111000 INMVT EQU 0 05112000 INMVOPT EQU INMVT+4 05113000 INCOA EQU 0 05114000 INCOTCE EQU INCOA 05115000 INCOTCEF EQU INCOTCE 05116000 INCOTCEL EQU INCOTCE+3 05117000 INCOCYC EQU INCOA+4 05118000 INCOCYCF EQU INCOCYC 05119000 INCOOUT EQU INCOA+8 05120000 INCOOUTF EQU INCOOUT 05121000 INCOINT EQU INCOA+12 05122000 INCOINTF EQU INCOINT 05123000 INCOREP EQU INCOA+16 05124000 INCOREPF EQU INCOREP 05125000 INCOREPL EQU INCOREP+3 05126000 INCOSTP EQU INCOA+20 05127000 INCOSTPF EQU INCOSTP 05128000 INCOOPI EQU INCOA+24 05129000 INCOOPIF EQU INCOOPI 05130000 INCOOPIL EQU INCOOPI+3 05131000 INCOMEM EQU INCOA+28 05132000 INCOMEMF EQU INCOMEM 05133000 PSARSVTE EQU PSARSVT 05134000 RBSECPTR EQU TCBRBP 05135000 RBSECS03 EQU RBEP 05136000 RBCDE EQU RBSECS03 05137000 RBCDFLGS EQU RBCDE 05138000 RBSECS05 EQU RBPGMQ 05139000 RBSQE EQU RBSECS05 05140000 RBSECS06 EQU RBPGMQ 05141000 RBIQE EQU RBSECS06 05142000 RBSECS07 EQU RBPGMQ 05143000 RBIQE2 EQU RBSECS07 05144000 RBSECS08 EQU IRBEND 05145000 RBSECS09 EQU IRBEND 05146000 TCBPTR EQU PSATOLD 05147000 STRBSAVE EQU RBEXSAVE 05148000 STRBDATR EQU STRBSAVE 05149000 CVTS01 EQU CVTPGSIA 05150000 CVTLPDIA EQU CVTS01+12 05151000 CVTDIRST EQU CVTLPDIA 05152000 CVTSLIDA EQU CVTS01+24 05153000 CVTCTLFG EQU CVTS01+50 05154000 CVTRV210 EQU CVTS01+424 05155000 CVTRV219 EQU CVTS01+425 05156000 CVTRV228 EQU CVTS01+426 05157000 CVTRV237 EQU CVTS01+427 05158000 CVTMFCTL EQU CVTS01+448 05159000 CVTMFRTR EQU CVTS01+452 05160000 CVTMFACT EQU CVTMFRTR 05161000 CVTRV262 EQU CVTS01+468 05162000 CVTRV271 EQU CVTS01+469 05163000 CVTRV280 EQU CVTS01+470 05164000 CVTRV289 EQU CVTS01+471 05165000 CVTGSDA EQU CVTS01+600 05166000 INCOOPTN EQU INCOA 05167000 MFCOOPTN EQU MFCOA 05168000 MFMVADD EQU MFMVOPT 05169000 MFPMB EQU MFPMOPT 05170000 @NM00084 EQU MFPMB+2 05171000 MFPMDEVF EQU @NM00084 05172000 MFPMC EQU MFPMOPT 05173000 @NM00086 EQU MFPMC+3 05174000 STCOOPTN EQU STCOA 05175000 STMVADD EQU STMVOPT 05176000 STSMB EQU STSMOPT 05177000 @NM00104 EQU STSMB+3 05178000 STSMDEVF EQU @NM00104 05179000 STSMC EQU STSMOPT 05180000 @NM00106 EQU STSMC+3 05181000 TPCPTR EQU CVTTPC 05182000 FLC EQU PSA 05183000 INMVADD EQU INMVOPT 05184000 TQEECB EQU TQEEXIT 05185000 * START UNREFERENCED COMPONENTS 05186000 STSMWKLD EQU @NM00106 05187000 @NM00107 EQU @NM00106 05188000 @NM00105 EQU STSMC 05189000 STSMCRDR EQU STSMDEVF 05190000 STSMUNIT EQU STSMDEVF 05191000 STSMGRAP EQU STSMDEVF 05192000 STSMDA EQU STSMDEVF 05193000 STSMTP EQU STSMDEVF 05194000 STSMTAPE EQU STSMDEVF 05195000 @NM00103 EQU STSMB 05196000 STCOCTRL EQU STCOOPTN 05197000 MFPMWKLD EQU @NM00086 05198000 @NM00087 EQU @NM00086 05199000 @NM00085 EQU MFPMC 05200000 MFPMCRDR EQU MFPMDEVF 05201000 MFPMUNIT EQU MFPMDEVF 05202000 MFPMGRAP EQU MFPMDEVF 05203000 MFPMDA EQU MFPMDEVF 05204000 MFPMTP EQU MFPMDEVF 05205000 MFPMTAPE EQU MFPMDEVF 05206000 @NM00083 EQU MFPMB 05207000 MFCOCTRL EQU MFCOOPTN 05208000 INCOCTRL EQU INCOOPTN 05209000 CVTRV628 EQU CVTS01+728 05210000 CVTRV627 EQU CVTS01+724 05211000 CVTRV626 EQU CVTS01+720 05212000 CVTRV625 EQU CVTS01+716 05213000 CVTRV624 EQU CVTS01+712 05214000 CVTRV623 EQU CVTS01+708 05215000 CVTRV622 EQU CVTS01+704 05216000 CVTRV621 EQU CVTS01+700 05217000 CVTRV620 EQU CVTS01+696 05218000 CVTRV619 EQU CVTS01+692 05219000 CVTRV618 EQU CVTS01+688 05220000 CVTRV617 EQU CVTS01+684 05221000 CVTRV616 EQU CVTS01+680 05222000 CVTRV615 EQU CVTS01+676 05223000 CVTRV614 EQU CVTS01+672 05224000 CVTRV613 EQU CVTS01+668 05225000 CVTRV612 EQU CVTS01+664 05226000 CVTRV611 EQU CVTS01+660 05227000 CVTRV610 EQU CVTS01+656 05228000 CVTRV609 EQU CVTS01+652 05229000 CVTRV608 EQU CVTS01+648 05230000 CVTRV607 EQU CVTS01+644 05231000 CVTRV606 EQU CVTS01+640 05232000 CVTRV605 EQU CVTS01+636 05233000 CVTRV604 EQU CVTS01+632 05234000 CVTEFF02 EQU CVTS01+628 05235000 CVTCBBR EQU CVTS01+624 05236000 CVTSSCR EQU CVTS01+620 05237000 CVTEVENT EQU CVTS01+616 05238000 CVTCRCA EQU CVTS01+612 05239000 CVTTPIO EQU CVTS01+608 05240000 CVTADV EQU CVTS01+604 05241000 CVTGSDAB EQU CVTGSDA 05242000 CVTQV3 EQU CVTS01+596 05243000 CVTQV2 EQU CVTS01+592 05244000 CVTQV1 EQU CVTS01+588 05245000 CVTRPT EQU CVTS01+584 05246000 CVTSSRB EQU CVTS01+580 05247000 CVTCSDRL EQU CVTS01+576 05248000 CVTEXP1 EQU CVTS01+572 05249000 CVTRMPMT EQU CVTS01+568 05250000 CVTRMPTT EQU CVTS01+564 05251000 CVTVPSA EQU CVTS01+560 05252000 CVTVSTOP EQU CVTS01+556 05253000 CVTGTFR8 EQU CVTS01+552 05254000 CVTQUIT EQU CVTS01+548 05255000 CVTVACR EQU CVTS01+544 05256000 CVTWTCB EQU CVTS01+540 05257000 CVTSTPRS EQU CVTS01+536 05258000 CVT0PT02 EQU CVTS01+532 05259000 CVTDARCM EQU CVTS01+528 05260000 CVTIRECM EQU CVTS01+524 05261000 CVTJRECM EQU CVTS01+520 05262000 CVTVEMS0 EQU CVTS01+516 05263000 CVTSPFRR EQU CVTS01+512 05264000 CVTRLSTG EQU CVTS01+508 05265000 CVT0TC0A EQU CVTS01+504 05266000 CVTGMBR EQU CVTS01+500 05267000 CVTLFRM EQU CVTS01+496 05268000 CVTRMBR EQU CVTS01+492 05269000 CVTVIOP EQU CVTS01+488 05270000 CVTRV307 EQU CVTS01+486 05271000 CVTRV306 EQU CVTS01+484 05272000 CVTRV305 EQU CVTS01+482 05273000 CVTRV304 EQU CVTS01+480 05274000 CVTRV303 EQU CVTS01+478 05275000 CVTRV302 EQU CVTS01+476 05276000 CVTRV301 EQU CVTS01+475 05277000 CVTRV300 EQU CVTS01+474 05278000 CVTRV299 EQU CVTS01+473 05279000 CVTRV298 EQU CVTS01+472 05280000 CVTRV297 EQU CVTRV289 05281000 CVTRV296 EQU CVTRV289 05282000 CVTRV295 EQU CVTRV289 05283000 CVTRV294 EQU CVTRV289 05284000 CVTRV293 EQU CVTRV289 05285000 CVTRV292 EQU CVTRV289 05286000 CVTRV291 EQU CVTRV289 05287000 CVTRV290 EQU CVTRV289 05288000 CVTRV288 EQU CVTRV280 05289000 CVTRV287 EQU CVTRV280 05290000 CVTRV286 EQU CVTRV280 05291000 CVTRV285 EQU CVTRV280 05292000 CVTRV284 EQU CVTRV280 05293000 CVTRV283 EQU CVTRV280 05294000 CVTRV282 EQU CVTRV280 05295000 CVTRV281 EQU CVTRV280 05296000 CVTRV279 EQU CVTRV271 05297000 CVTRV278 EQU CVTRV271 05298000 CVTRV277 EQU CVTRV271 05299000 CVTRV276 EQU CVTRV271 05300000 CVTRV275 EQU CVTRV271 05301000 CVTRV274 EQU CVTRV271 05302000 CVTRV273 EQU CVTRV271 05303000 CVTRV272 EQU CVTRV271 05304000 CVTRV270 EQU CVTRV262 05305000 CVTRV269 EQU CVTRV262 05306000 CVTRV268 EQU CVTRV262 05307000 CVTRV267 EQU CVTRV262 05308000 CVTRV266 EQU CVTRV262 05309000 CVTRV265 EQU CVTRV262 05310000 CVTRV264 EQU CVTRV262 05311000 CVTRV263 EQU CVTRV262 05312000 CVTVFP EQU CVTS01+464 05313000 CVTVSI EQU CVTS01+460 05314000 CVTVPSIB EQU CVTS01+456 05315000 CVTPVBP EQU CVTS01+444 05316000 CVTPWI EQU CVTS01+440 05317000 CVTRV254 EQU CVTS01+438 05318000 CVTRV253 EQU CVTS01+436 05319000 CVTRV252 EQU CVTS01+434 05320000 CVTRV251 EQU CVTS01+433 05321000 CVTRV250 EQU CVTS01+432 05322000 CVTRV249 EQU CVTS01+431 05323000 CVTRV248 EQU CVTS01+430 05324000 CVTRV247 EQU CVTS01+429 05325000 CVTRV246 EQU CVTS01+428 05326000 CVTRV245 EQU CVTRV237 05327000 CVTRV244 EQU CVTRV237 05328000 CVTRV243 EQU CVTRV237 05329000 CVTRV242 EQU CVTRV237 05330000 CVTRV241 EQU CVTRV237 05331000 CVTRV240 EQU CVTRV237 05332000 CVTRV239 EQU CVTRV237 05333000 CVTRV238 EQU CVTRV237 05334000 CVTRV236 EQU CVTRV228 05335000 CVTRV235 EQU CVTRV228 05336000 CVTRV234 EQU CVTRV228 05337000 CVTRV233 EQU CVTRV228 05338000 CVTRV232 EQU CVTRV228 05339000 CVTRV231 EQU CVTRV228 05340000 CVTRV230 EQU CVTRV228 05341000 CVTRV229 EQU CVTRV228 05342000 CVTRV227 EQU CVTRV219 05343000 CVTRV226 EQU CVTRV219 05344000 CVTRV225 EQU CVTRV219 05345000 CVTRV224 EQU CVTRV219 05346000 CVTRV223 EQU CVTRV219 05347000 CVTRV222 EQU CVTRV219 05348000 CVTRV221 EQU CVTRV219 05349000 CVTRV220 EQU CVTRV219 05350000 CVTRV218 EQU CVTRV210 05351000 CVTRV217 EQU CVTRV210 05352000 CVTRV216 EQU CVTRV210 05353000 CVTRV215 EQU CVTRV210 05354000 CVTRV214 EQU CVTRV210 05355000 CVTRV213 EQU CVTRV210 05356000 CVTRV212 EQU CVTRV210 05357000 CVTRV211 EQU CVTRV210 05358000 CVTLCCAT EQU CVTS01+420 05359000 CVTPCCAT EQU CVTS01+416 05360000 CVTIPCRP EQU CVTS01+412 05361000 CVTIPCRI EQU CVTS01+408 05362000 CVTIPCDS EQU CVTS01+404 05363000 CVTAIDVT EQU CVTS01+400 05364000 CVTSSAP EQU CVTS01+396 05365000 CVTEHCIR EQU CVTS01+392 05366000 CVTEHDEF EQU CVTS01+388 05367000 CVTDAIR EQU CVTS01+384 05368000 CVTPERFM EQU CVTS01+380 05369000 CVT044R2 EQU CVTS01+376 05370000 CVTFETCH EQU CVTS01+372 05371000 CVTRSTWD EQU CVTS01+368 05372000 CVTSPOST EQU CVTS01+364 05373000 CVTIOBP EQU CVTS01+360 05374000 CVTASMVT EQU CVTS01+356 05375000 CVTRECRQ EQU CVTS01+352 05376000 CVTWSAC EQU CVTS01+348 05377000 CVTRV149 EQU CVTS01+344 05378000 CVTWSAL EQU CVTS01+340 05379000 CVTSPSA EQU CVTS01+336 05380000 CVTGLMN EQU CVTS01+332 05381000 CVTVEAC0 EQU CVTS01+328 05382000 CVT062R1 EQU CVTS01+324 05383000 CVTRPOST EQU CVTS01+320 05384000 CVTDQIQE EQU CVTS01+316 05385000 CVTCSD EQU CVTS01+312 05386000 CVTLKRMA EQU CVTS01+308 05387000 CVTRSPIE EQU CVTS01+304 05388000 CVTRENQ EQU CVTS01+300 05389000 CVTLQCB EQU CVTS01+296 05390000 CVTFQCB EQU CVTS01+292 05391000 CVTQCS01 EQU CVTS01+288 05392000 CVTAPFT EQU CVTS01+284 05393000 CVTPARRL EQU CVTS01+280 05394000 CVTVWAIT EQU CVTS01+276 05395000 CVTGSPL EQU CVTS01+272 05396000 CVTLSMQ EQU CVTS01+268 05397000 CVTGSMQ EQU CVTS01+264 05398000 CVTEXPRO EQU CVTS01+260 05399000 CVTOPCTP EQU CVTS01+256 05400000 CVTSIC EQU CVTS01+252 05401000 CVTTPIOS EQU CVTS01+248 05402000 CVTRTMS EQU CVTS01+244 05403000 CVTSDBF EQU CVTS01+240 05404000 CVTSCBP EQU CVTS01+236 05405000 CVTSDMP EQU CVTS01+232 05406000 CVTSV60 EQU CVTS01+228 05407000 CVTRTMCT EQU CVTS01+224 05408000 CVTASCBL EQU CVTS01+220 05409000 CVTASCBH EQU CVTS01+216 05410000 CVTGDA EQU CVTS01+212 05411000 CVTASVT EQU CVTS01+208 05412000 CVTVVMDI EQU CVTS01+204 05413000 CVTAQTOP EQU CVTS01+200 05414000 CVTIOSCS EQU CVTS01+196 05415000 CVTSDRM EQU CVTS01+192 05416000 CVTOPTE EQU CVTS01+188 05417000 CVTSTXU EQU CVTS01+184 05418000 CVTQUIS EQU CVTS01+180 05419000 CVTPARS EQU CVTS01+176 05420000 CVTS1EE EQU CVTS01+172 05421000 CVTFRAS EQU CVTS01+168 05422000 CVTQSAS EQU CVTS01+164 05423000 CVTCRAS EQU CVTS01+160 05424000 CVTCRMN EQU CVTS01+156 05425000 CVTDELCP EQU CVTS01+152 05426000 CVTFRECL EQU CVTS01+148 05427000 CVTGETCL EQU CVTS01+144 05428000 CVTBLDCP EQU CVTS01+140 05429000 CVTAUTHL EQU CVTS01+136 05430000 CVTSCAN EQU CVTS01+132 05431000 CVTRV144 EQU CVTS01+130 05432000 CVTMAXMP EQU CVTS01+128 05433000 CVTSTCK EQU CVTS01+124 05434000 CVTRV139 EQU CVTS01+123 05435000 CVTDSSAC EQU CVTS01+122 05436000 CVTRV513 EQU CVTS01+121 05437000 CVTIOSPL EQU CVTS01+120 05438000 CVTPTGT EQU CVTS01+116 05439000 CVTCSPIE EQU CVTS01+112 05440000 CVTSMFEX EQU CVTS01+108 05441000 CVTOLT0A EQU CVTS01+104 05442000 CVTSRBRT EQU CVTS01+100 05443000 CVTPUTL EQU CVTS01+96 05444000 CVTRV519 EQU CVTS01+92 05445000 CVTRV327 EQU CVTS01+88 05446000 CVTRV326 EQU CVTS01+84 05447000 CVTRV325 EQU CVTS01+80 05448000 CVTRV324 EQU CVTS01+76 05449000 CVT0VL01 EQU CVTS01+72 05450000 CVTSHRVM EQU CVTS01+68 05451000 CVTRV332 EQU CVTS01+64 05452000 CVTTAS EQU CVTS01+60 05453000 CVTRSCN EQU CVTS01+56 05454000 CVTTRAC2 EQU CVTS01+54 05455000 CVTTRACE EQU CVTS01+52 05456000 CVTAPG EQU CVTS01+51 05457000 CVTSDTRC EQU CVTCTLFG 05458000 CVTGTRCE EQU CVTCTLFG 05459000 CVTNOMP EQU CVTCTLFG 05460000 CVTRSV79 EQU CVTCTLFG 05461000 CVTDSTAT EQU CVTCTLFG 05462000 CVTRSV78 EQU CVTCTLFG 05463000 CVTRV333 EQU CVTCTLFG 05464000 CVTRV323 EQU CVTCTLFG 05465000 CVTSPVLK EQU CVTS01+49 05466000 CVTRSV77 EQU CVTS01+48 05467000 CVTRV331 EQU CVTS01+44 05468000 CVTRV330 EQU CVTS01+40 05469000 CVTRV329 EQU CVTS01+36 05470000 CVTRV328 EQU CVTS01+32 05471000 CVTRV322 EQU CVTS01+28 05472000 CVTSLID EQU CVTSLIDA+1 05473000 CVTSYLK EQU CVTSLIDA 05474000 CVTRV321 EQU CVTS01+20 05475000 CVTRV320 EQU CVTS01+16 05476000 CVTLPDIR EQU CVTLPDIA+1 05477000 CVTRSV69 EQU CVTDIRST 05478000 CVTRSV68 EQU CVTDIRST 05479000 CVTRSV67 EQU CVTDIRST 05480000 CVTRSV66 EQU CVTDIRST 05481000 CVTRSV65 EQU CVTDIRST 05482000 CVTRSV64 EQU CVTDIRST 05483000 CVTRSV63 EQU CVTDIRST 05484000 CVTDICOM EQU CVTDIRST 05485000 CVTPVTP EQU CVTS01+8 05486000 CVTLPDSR EQU CVTS01+4 05487000 CVTGETL EQU CVTS01 05488000 RBRSV161 EQU RBSECS09+64 05489000 RBSIRBWA EQU RBSECS09 05490000 RBIQEWRK EQU RBSECS08+4 05491000 RBNEXAV EQU RBSECS08 05492000 RBIQEA EQU RBIQE2 05493000 RBIQE1 EQU RBIQE+1 05494000 RBUSE EQU RBIQE 05495000 RBSQEA EQU RBSQE+1 05496000 @NM00049 EQU RBSQE 05497000 RBCDE1 EQU RBCDE+1 05498000 RBCDLOAD EQU RBCDFLGS 05499000 RBCDXCTL EQU RBCDFLGS 05500000 RBCDSYNC EQU RBCDFLGS 05501000 RBCDNODE EQU RBCDFLGS 05502000 RBRSV010 EQU RBCDFLGS 05503000 RBCDATCH EQU RBCDFLGS 05504000 RBRSV009 EQU RBCDFLGS 05505000 RBNOCELL EQU RBCDFLGS 05506000 PSARSAV EQU PSARSVTE+60 05507000 PSARSTK EQU PSARSVTE+56 05508000 PSAESAV3 EQU PSARSVTE+52 05509000 PSAESTK3 EQU PSARSVTE+48 05510000 PSAESAV2 EQU PSARSVTE+44 05511000 PSAESTK2 EQU PSARSVTE+40 05512000 PSAESAV1 EQU PSARSVTE+36 05513000 PSAESTK1 EQU PSARSVTE+32 05514000 PSAPSAV EQU PSARSVTE+28 05515000 PSAPSTK EQU PSARSVTE+24 05516000 PSAMSAV EQU PSARSVTE+20 05517000 PSAMSTK EQU PSARSVTE+16 05518000 PSASSAV EQU PSARSVTE+12 05519000 PSASSTK EQU PSARSVTE+8 05520000 PSANSTK EQU PSARSVTE+4 05521000 PSACSTK EQU PSARSVTE 05522000 INCOMEMV EQU INCOMEM+2 05523000 @NM00068 EQU INCOMEM+1 05524000 INCOMEMC EQU INCOMEMF 05525000 INCOOPIV EQU INCOOPIL 05526000 @NM00067 EQU INCOOPIL 05527000 @NM00066 EQU INCOOPI+1 05528000 INCOOPIC EQU INCOOPIF 05529000 INCOSTPV EQU INCOSTP+2 05530000 @NM00065 EQU INCOSTP+1 05531000 INCOSTPU EQU INCOSTPF 05532000 INCOSTPS EQU INCOSTPF 05533000 INCOSTPC EQU INCOSTPF 05534000 INCOREPV EQU INCOREPL 05535000 @NM00064 EQU INCOREPL 05536000 @NM00063 EQU INCOREP+1 05537000 INCOREPC EQU INCOREPF 05538000 INCOINTV EQU INCOINT+2 05539000 @NM00062 EQU INCOINT+1 05540000 INCOINTC EQU INCOINTF 05541000 INCOOUTV EQU INCOOUT+3 05542000 @NM00061 EQU INCOOUT+1 05543000 INCOOUTC EQU INCOOUTF 05544000 INCOCYCV EQU INCOCYC+2 05545000 @NM00060 EQU INCOCYC+1 05546000 INCOCYCC EQU INCOCYCF 05547000 INCOTCEV EQU INCOTCEL 05548000 @NM00059 EQU INCOTCEL 05549000 @NM00058 EQU INCOTCE+1 05550000 INCOTCEC EQU INCOTCEF 05551000 INMVDEV EQU INMVOPT+16 05552000 INMVCHA EQU INMVOPT+12 05553000 INMVWKL EQU INMVOPT+8 05554000 INMVPAG EQU INMVOPT+4 05555000 INMVCPU EQU INMVOPT 05556000 INMVNUM EQU INMVT 05557000 TPCCLA EQU IEATPC+408 05558000 TPCCKQ EQU IEATPC+404 05559000 TPCRSRB EQU IEATPC+360 05560000 TPCTCWA EQU IEATPC+356 05561000 TPCCRSAV EQU IEATPC+352 05562000 TPCFRRP EQU IEATPC+348 05563000 TPCVPTR EQU IEATPC+344 05564000 TPCMISC EQU IEATPC+272 05565000 TPCWORKR EQU TPCWORK+4 05566000 TPCWORKL EQU TPCWORK 05567000 TPCSAVE2 EQU IEATPC+200 05568000 TPCSAVE1 EQU IEATPC+136 05569000 @NM00145 EQU TPCLMTQE+16 05570000 @NM00144 EQU TPCLMTQE+15 05571000 @NM00143 EQU TPCLMTQE+14 05572000 @NM00142 EQU TPCLMTQE+12 05573000 @NM00141 EQU TPCLMTQE+8 05574000 @NM00140 EQU TPCLMTQE+4 05575000 @NM00139 EQU TPCLMTQE 05576000 @NM00138 EQU IEATSELM+16 05577000 @NM00137 EQU IEATSELM+15 05578000 @NM00136 EQU IEATSELM+14 05579000 @NM00135 EQU IEATSELM+12 05580000 @NM00134 EQU IEATSELM+8 05581000 @NM00133 EQU IEATSELM+4 05582000 @NM00132 EQU IEATSELM 05583000 @NM00131 EQU TPCMFTQE+16 05584000 @NM00130 EQU TPCMFTQE+15 05585000 @NM00129 EQU TPCMFTQE+14 05586000 @NM00128 EQU TPCMFTQE+12 05587000 @NM00127 EQU TPCMFTQE+8 05588000 @NM00126 EQU TPCMFTQE+4 05589000 @NM00125 EQU TPCMFTQE 05590000 MNIGHTRH EQU MNIGHT+4 05591000 MNIGHTLH EQU MNIGHT 05592000 @NM00124 EQU TPCMNTQE+15 05593000 @NM00123 EQU TPCMNTQE+14 05594000 @NM00122 EQU TPCMNTQE+12 05595000 @NM00121 EQU TPCMNTQE+8 05596000 @NM00120 EQU TPCMNTQE+4 05597000 @NM00119 EQU TPCMNTQE 05598000 @NM00118 EQU TPCDMTQE+16 05599000 @NM00117 EQU TPCDMTQE+15 05600000 @NM00116 EQU TPCDMTQE+14 05601000 @NM00115 EQU TPCDMTQE+12 05602000 @NM00114 EQU TPCDMTQE+8 05603000 @NM00113 EQU TPCDMTQE 05604000 TPCTZORG EQU IEATPC+8 05605000 TPCCC EQU IEATPC+7 05606000 @NM00112 EQU IEATPC+5 05607000 @NM00111 EQU TPCFLGS1 05608000 TPCSYNC EQU TPCFLGS1 05609000 TPCABND EQU TPCFLGS1 05610000 TPCTPCA EQU IEATPC 05611000 @NM00110 EQU TQE+88 05612000 TQESRB EQU TQE+44 05613000 TQELHPSW EQU TQE+40 05614000 TQEASCB EQU TQE+36 05615000 TQETCB EQU TQE+32 05616000 TQESADDR EQU TQE+24 05617000 TQEVALRH EQU TQEVAL+4 05618000 TQEVALLH EQU TQEVAL 05619000 TQEMIDN EQU TQEFLGS2 05620000 TQEMF1 EQU TQEFLGS2 05621000 TQEOPT EQU TQEFLGS2 05622000 TQELM EQU TQEFLGS2 05623000 TQEDUM EQU TQEFLGS2 05624000 @NM00109 EQU TQEFLGS2 05625000 TQEUSER EQU TQEFLGS2 05626000 TQECOMP EQU TQEFLGS2 05627000 TQETYPE EQU TQEFLGS 05628000 TQEXITSP EQU TQEFLGS 05629000 TQEINCOM EQU TQEFLGS 05630000 TQEWLIM EQU TQEFLGS 05631000 @NM00108 EQU TQEFLGS 05632000 TQETOD EQU TQEFLGS 05633000 TQEOFF EQU TQEFLGS 05634000 TQEAID EQU TQE+12 05635000 TQEBLNK EQU TQE+8 05636000 TQEFLNK EQU TQE+4 05637000 TQETQE EQU TQE 05638000 STSMRSV1 EQU STSMA+53 05639000 STSMLCOM EQU STSMA+48 05640000 STSMILEN EQU STSMIGMC+1 05641000 STSMEDAD EQU STSMA+32 05642000 STSMENTR EQU STSMA+28 05643000 STSMSAVE EQU STSMA+24 05644000 STSMINTP EQU STSMA+20 05645000 STSMSTA EQU STSMOFLG 05646000 @NM00102 EQU STSMOFLG 05647000 @NM00101 EQU STSMOPT 05648000 STSCMVAD EQU STSCT+36 05649000 STSCTIME EQU STSCT+20 05650000 STSCDATE EQU STSCT+16 05651000 @NM00100 EQU STSCFLAG 05652000 @NM00099 EQU STGST+14 05653000 STCOMEMV EQU STCOMEM+2 05654000 @NM00098 EQU STCOMEM+1 05655000 STCOMEMC EQU STCOMEMF 05656000 STCOOPIV EQU STCOOPIL 05657000 @NM00097 EQU STCOOPIL 05658000 @NM00096 EQU STCOOPI+1 05659000 STCOOPIC EQU STCOOPIF 05660000 STCOSTPV EQU STCOSTP+2 05661000 @NM00095 EQU STCOSTP+1 05662000 STCOSTPU EQU STCOSTPF 05663000 STCOSTPS EQU STCOSTPF 05664000 STCOSTPC EQU STCOSTPF 05665000 STCOREPV EQU STCOREPL 05666000 @NM00094 EQU STCOREPL 05667000 @NM00093 EQU STCOREP+1 05668000 STCOREPC EQU STCOREPF 05669000 STCOINTV EQU STCOINT+2 05670000 @NM00092 EQU STCOINT+1 05671000 STCOINTC EQU STCOINTF 05672000 STCOOUTV EQU STCOOUT+3 05673000 @NM00091 EQU STCOOUT+1 05674000 STCOOUTC EQU STCOOUTF 05675000 @NM00090 EQU STCOCYC+1 05676000 STCOCYCC EQU STCOCYCF 05677000 STCOTCEV EQU STCOTCEL 05678000 @NM00089 EQU STCOTCEL 05679000 @NM00088 EQU STCOTCE+1 05680000 STCOTCEC EQU STCOTCEF 05681000 MFPMSARG EQU MFPMA+4 05682000 MFPMSTA EQU @NM00081 05683000 @NM00082 EQU @NM00081 05684000 @NM00080 EQU MFPMOPT 05685000 MFPMCON EQU MFPMOPT 05686000 STMMMGDA EQU STMMMGRL+4 05687000 FRRSPARM EQU FRRSENTR+8 05688000 @NM00057 EQU FRRSFLGS+1 05689000 @NM00056 EQU FRRSFLG1 05690000 FRRSNEST EQU FRRSFLG1 05691000 FRRSRCUR EQU FRRSFLG1 05692000 FRRSFRRA EQU FRRSENTR 05693000 FRRSENTS EQU FRRS+84 05694000 FRRSRTMW EQU FRRS+16 05695000 FRRSCURR EQU FRRSHEAD+12 05696000 FRRSELEN EQU FRRSHEAD+8 05697000 FRRSLAST EQU FRRSHEAD+4 05698000 FRRSEMP EQU FRRSHEAD 05699000 CVTLEVL EQU CVTRELNO+2 05700000 CVTNUMB EQU CVTRELNO 05701000 CVTMDL EQU CVTFIX+250 05702000 @NM00055 EQU CVTFIX+248 05703000 @NM00054 EQU CVTFIX 05704000 CVTRV482 EQU CVTXTNT2+128 05705000 CVTRV481 EQU CVTXTNT2+124 05706000 CVTRV480 EQU CVTXTNT2+120 05707000 CVTRV479 EQU CVTXTNT2+118 05708000 CVTRV478 EQU CVTXTNT2+117 05709000 CVTRV477 EQU CVTXTNT2+116 05710000 CVTRV476 EQU CVTXTNT2+115 05711000 CVTRV475 EQU CVTXTNT2+114 05712000 CVTRV474 EQU CVTRV466 05713000 CVTRV473 EQU CVTRV466 05714000 CVTRV472 EQU CVTRV466 05715000 CVTRV471 EQU CVTRV466 05716000 CVTRV470 EQU CVTRV466 05717000 CVTRV469 EQU CVTRV466 05718000 CVTRV468 EQU CVTRV466 05719000 CVTRV467 EQU CVTRV466 05720000 CVTRV465 EQU CVTRV457 05721000 CVTRV464 EQU CVTRV457 05722000 CVTRV463 EQU CVTRV457 05723000 CVTRV462 EQU CVTRV457 05724000 CVTRV461 EQU CVTRV457 05725000 CVTRV460 EQU CVTRV457 05726000 CVTRV459 EQU CVTRV457 05727000 CVTRV458 EQU CVTRV457 05728000 CVTRV456 EQU CVTXTNT2+108 05729000 CVTRV455 EQU CVTXTNT2+104 05730000 CVTRV454 EQU CVTXTNT2+100 05731000 CVTRV453 EQU CVTXTNT2+96 05732000 CVTRV452 EQU CVTXTNT2+94 05733000 CVTRV451 EQU CVTXTNT2+92 05734000 CVTRV450 EQU CVTXTNT2+90 05735000 CVTRV449 EQU CVTXTNT2+88 05736000 CVTRV448 EQU CVTXTNT2+87 05737000 CVTRV447 EQU CVTXTNT2+86 05738000 CVTRV446 EQU CVTRV438 05739000 CVTRV445 EQU CVTRV438 05740000 CVTRV444 EQU CVTRV438 05741000 CVTRV443 EQU CVTRV438 05742000 CVTRV442 EQU CVTRV438 05743000 CVTRV441 EQU CVTRV438 05744000 CVTRV440 EQU CVTRV438 05745000 CVTRV439 EQU CVTRV438 05746000 CVTRV437 EQU CVTRV429 05747000 CVTRV436 EQU CVTRV429 05748000 CVTRV435 EQU CVTRV429 05749000 CVTRV434 EQU CVTRV429 05750000 CVTRV433 EQU CVTRV429 05751000 CVTRV432 EQU CVTRV429 05752000 CVTRV431 EQU CVTRV429 05753000 CVTRV430 EQU CVTRV429 05754000 CVTRV428 EQU CVTXTNT2+80 05755000 CVTRV427 EQU CVTXTNT2+76 05756000 CVTRV426 EQU CVTXTNT2+72 05757000 CVTRV425 EQU CVTXTNT2+68 05758000 CVTATACT EQU CVTATCVT 05759000 CVTRV423 EQU CVTXTNT2+62 05760000 CVTRV422 EQU CVTXTNT2+60 05761000 CVTRV421 EQU CVTXTNT2+58 05762000 CVTRV420 EQU CVTXTNT2+56 05763000 CVTRV419 EQU CVTXTNT2+55 05764000 CVTRV418 EQU CVTXTNT2+54 05765000 CVTRV417 EQU CVTRV409 05766000 CVTRV416 EQU CVTRV409 05767000 CVTRV415 EQU CVTRV409 05768000 CVTRV414 EQU CVTRV409 05769000 CVTRV413 EQU CVTRV409 05770000 CVTRV412 EQU CVTRV409 05771000 CVTRV411 EQU CVTRV409 05772000 CVTRV410 EQU CVTRV409 05773000 CVTRV408 EQU CVTRV400 05774000 CVTRV407 EQU CVTRV400 05775000 CVTRV406 EQU CVTRV400 05776000 CVTRV405 EQU CVTRV400 05777000 CVTRV404 EQU CVTRV400 05778000 CVTRV403 EQU CVTRV400 05779000 CVTRV402 EQU CVTRV400 05780000 CVTRV401 EQU CVTRV400 05781000 CVTICB EQU CVTXTNT2+48 05782000 CVTSKTA EQU CVTXTNT2+44 05783000 CVTRSV99 EQU CVTXTNT2+40 05784000 CVTRSV98 EQU CVTXTNT2+36 05785000 CVTRSV97 EQU CVTXTNT2+34 05786000 CVTRSV96 EQU CVTXTNT2+32 05787000 CVTOLTEP EQU CVTXTNT2+28 05788000 CVTQIDA EQU CVTQID+1 05789000 CVTRSV95 EQU CVTQID 05790000 CVTRSV94 EQU CVTXTNT2+20 05791000 CVTRSV93 EQU CVTXTNT2+16 05792000 CVTRSV92 EQU CVTXTNT2+12 05793000 CVTDEBVR EQU CVTXTNT2+8 05794000 CVTRSV91 EQU CVTXTNT2+6 05795000 CVTRSV9H EQU CVTFLGBT 05796000 CVTRSV9G EQU CVTFLGBT 05797000 CVTRSV9F EQU CVTFLGBT 05798000 CVTRSV9E EQU CVTFLGBT 05799000 CVTRSV9D EQU CVTFLGBT 05800000 CVTRSV9C EQU CVTFLGBT 05801000 CVTVME EQU CVTFLGBT 05802000 CVTNPE EQU CVTFLGBT 05803000 CVTNUCLS EQU CVTXTNT2+4 05804000 CVTDSSVA EQU CVTDSSV+1 05805000 CVTRSV89 EQU CVTDSSV 05806000 CVTRSV88 EQU CVTXTNT1+8 05807000 CVTRSV87 EQU CVTXTNT1+4 05808000 CVTFACHN EQU CVTXTNT1 05809000 CVTRV488 EQU CVTMAP+412 05810000 CVTRV487 EQU CVTMAP+408 05811000 CVTRV486 EQU CVTMAP+404 05812000 CVTRV485 EQU CVTMAP+400 05813000 CVTACTAP EQU CVTMAP+396 05814000 CVTAUTH EQU CVTMAP+392 05815000 CVTATMCA EQU CVTATMCT+1 05816000 CVTATMST EQU CVTATMCT 05817000 CVTRSV61 EQU CVTMAP+384 05818000 CVTVOLT1 EQU CVTVOLM1+1 05819000 CVTVOLI1 EQU CVTVOLF1 05820000 CVTSTOA EQU CVTMAP+376 05821000 CVTRSV58 EQU CVTMAP+374 05822000 CVTRSV57 EQU CVTMAP+372 05823000 CVTDDCE EQU CVTMAP+368 05824000 CVTPNWFR EQU CVTMAP+364 05825000 CVTSMF EQU CVTMAP+360 05826000 CVTSULK EQU CVTMAP+358 05827000 CVTSLKO EQU CVTSYSK 05828000 CVTSLKP EQU CVTSYSK 05829000 CVTSLKQ EQU CVTSYSK 05830000 CVTSLKR EQU CVTSYSK 05831000 CVTRSV56 EQU CVTSYSK 05832000 CVTRSV55 EQU CVTSYSK 05833000 CVTRSV54 EQU CVTSYSK 05834000 CVTRSV53 EQU CVTSYSK 05835000 CVTRSV52 EQU CVTA1F1 05836000 CVTRSV51 EQU CVTA1F1 05837000 CVTRSV50 EQU CVTA1F1 05838000 CVTRSV49 EQU CVTA1F1 05839000 CVTRSV48 EQU CVTA1F1 05840000 CVTRSV47 EQU CVTA1F1 05841000 CVTSRSW EQU CVTA1F1 05842000 CVTPFSW EQU CVTA1F1 05843000 CVTPCVT EQU CVTMAP+352 05844000 CVTRSV46 EQU CVTMAP+344 05845000 CVTRSV45 EQU CVTMAP+340 05846000 CVTRSV44 EQU CVTMAP+338 05847000 CVTRSV43 EQU CVTMAP+336 05848000 CVTHJESA EQU CVTHJES+1 05849000 CVTRSV42 EQU CVTHJES 05850000 CVTEXT2A EQU CVTEXT2+1 05851000 CVTRSV41 EQU CVTEXT2 05852000 CVTAPFA EQU CVTAPF+1 05853000 CVTRSV40 EQU CVTAPF 05854000 CVTRV518 EQU CVTINTLA 05855000 CVTRV517 EQU CVTERPV 05856000 CVTEORM EQU CVTMAP+312 05857000 CVTMCHPR EQU CVTMAP+308 05858000 CVTTZ EQU CVTMAP+304 05859000 CVTJEPS EQU CVTMAP+300 05860000 CVTJESCT EQU CVTMAP+296 05861000 CVTMODE EQU CVTMAP+292 05862000 CVTPTRV EQU CVTMAP+288 05863000 CVTREAL EQU CVTMAP+284 05864000 CVTRSV39 EQU CVTMAP+280 05865000 CVTRSV38 EQU CVTMAP+276 05866000 CVTDMSRA EQU CVTDMSR+1 05867000 CVTRSV37 EQU CVTDMSR 05868000 CVTQMSGA EQU CVTQMSG+1 05869000 CVTRSV36 EQU CVTQMSG 05870000 CVTAMFF EQU CVTMAP+264 05871000 CVTPURGA EQU CVTPURG+1 05872000 CVTRSV35 EQU CVTPURG 05873000 CVTCBSP EQU CVTMAP+256 05874000 CVTATERA EQU CVTATER+1 05875000 CVTSYST EQU CVTATER 05876000 CVTVOLT2 EQU CVTTAT 05877000 CVTVOLI2 EQU CVTVOLF2 05878000 CVTAQAVB EQU CVTAQAVT+1 05879000 CVTRSV34 EQU CVTTCMFG 05880000 CVTRSV33 EQU CVTTCMFG 05881000 CVTRSV32 EQU CVTTCMFG 05882000 CVTRSV31 EQU CVTTCMFG 05883000 CVTRSV30 EQU CVTTCMFG 05884000 CVTRSV29 EQU CVTTCMFG 05885000 CVTRSV28 EQU CVTTCMFG 05886000 CVTTCRDY EQU CVTTCMFG 05887000 CVTGTFA EQU CVTGTF+1 05888000 CVTRSV27 EQU CVTGTFST 05889000 CVTRNIO EQU CVTGTFST 05890000 CVTUSR EQU CVTGTFST 05891000 CVTRV318 EQU CVTFORM 05892000 CVTRV317 EQU CVTTMODE 05893000 CVTRV316 EQU CVTSTATE 05894000 CVTRV315 EQU CVTGTFS 05895000 CVTGTFAV EQU CVTGTFS 05896000 CVT0SCR1 EQU CVTMAP+232 05897000 CVTRV515 EQU CVTMAP+228 05898000 CVTRMS EQU CVTMAP+224 05899000 CVTPATCH EQU CVTMAP+220 05900000 CVTTSCE EQU CVTMAP+216 05901000 CVTLNKSC EQU CVTMAP+214 05902000 CVTQABST EQU CVTMAP+212 05903000 CVTMDLDS EQU CVTMAP+208 05904000 CVTUSER EQU CVTMAP+204 05905000 CVTABEND EQU CVTMAP+200 05906000 CVTSMCA EQU CVTMAP+196 05907000 CVTRSV18 EQU CVTMAP+192 05908000 CVTQLPAQ EQU CVTMAP+188 05909000 CVTQCDSR EQU CVTMAP+184 05910000 CVTRSV17 EQU CVTOPTB 05911000 CVTRSV16 EQU CVTOPTB 05912000 CVTFP EQU CVTOPTB 05913000 CVTAPTHR EQU CVTOPTB 05914000 CVTNLOG EQU CVTOPTB 05915000 CVTTOD EQU CVTOPTB 05916000 CVTCTIMS EQU CVTOPTB 05917000 CVTPROT EQU CVTOPTB 05918000 CVTXPFP EQU CVTOPTA 05919000 CVTASCII EQU CVTOPTA 05920000 CVTRSV13 EQU CVTOPTA 05921000 CVTRSV12 EQU CVTOPTA 05922000 CVTNIP EQU CVTOPTA 05923000 CVTDDR EQU CVTOPTA 05924000 CVTAPR EQU CVTOPTA 05925000 CVTCCH EQU CVTOPTA 05926000 CVTSNCTR EQU CVTMAP+180 05927000 CVTQMWR EQU CVTMAP+176 05928000 CVTQOCR EQU CVTMAP+172 05929000 CVT1EF00 EQU CVTMAP+168 05930000 CVTMZ00 EQU CVTMAP+164 05931000 CVTHEAD EQU CVTMAP+160 05932000 CVTRSV11 EQU CVTMAP+156 05933000 CVT0PT01 EQU CVTMAP+152 05934000 CVTMSER EQU CVTMAP+148 05935000 CVTRV516 EQU CVTIERLC 05936000 CVTILCH EQU CVTMAP+140 05937000 CVT0DS EQU CVTMAP+136 05938000 CVTFBOSV EQU CVTMAP+132 05939000 CVTNUCB EQU CVTMAP+128 05940000 CVTIXAVL EQU CVTMAP+124 05941000 CVTIOQET EQU CVTMAP+120 05942000 CVTDCBA EQU CVTMAP+117 05943000 CVTMVS2 EQU CVTDCB 05944000 CVT6DAT EQU CVTDCB 05945000 CVT4MPS EQU CVTDCB 05946000 CVTRSV09 EQU CVTDCB 05947000 CVT4MS1 EQU CVTDCB 05948000 CVT2SPS EQU CVTDCB 05949000 CVT1SSS EQU CVTDCB 05950000 CVTRSV08 EQU CVTDCB 05951000 CVTSTB EQU CVTMAP+112 05952000 CVTQTD00 EQU CVTMAP+108 05953000 CVTCUCB EQU CVTMAP+100 05954000 CVTSJQ EQU CVTMAP+96 05955000 CVTPBLDL EQU CVTMAP+92 05956000 CVTSVDCB EQU CVTMAP+84 05957000 CVTBRET EQU CVTMAP+82 05958000 CVTEXIT EQU CVTMAP+80 05959000 CVT0FN00 EQU CVTMAP+76 05960000 CVTDARA EQU CVTDAR+1 05961000 CVTRSV07 EQU CVTFLGS1 05962000 CVTRSV06 EQU CVTFLGS1 05963000 CVTRSV05 EQU CVTFLGS1 05964000 CVTRSV04 EQU CVTFLGS1 05965000 CVTRSV03 EQU CVTFLGS1 05966000 CVTRSV02 EQU CVTFLGS1 05967000 CVTRSV01 EQU CVTFLGS1 05968000 CVTDMPLK EQU CVTFLGS1 05969000 CVTXITP EQU CVTMAP+68 05970000 CVTZDTAB EQU CVTMAP+64 05971000 CVTMSLT EQU CVTMAP+60 05972000 CVTDATE EQU CVTMAP+56 05973000 CVTBTERM EQU CVTMAP+52 05974000 CVTSYSAD EQU CVTMAP+48 05975000 CVTXTLER EQU CVTMAP+44 05976000 CVTILK2 EQU CVTMAP+40 05977000 CVTILK1 EQU CVTMAP+36 05978000 CVTPRLTV EQU CVTMAP+32 05979000 CVTPCNVT EQU CVTMAP+28 05980000 CVT0VL00 EQU CVTMAP+24 05981000 CVTXAPG EQU CVTMAP+20 05982000 CVTBUF EQU CVTMAP+16 05983000 CVTJOB EQU CVTMAP+12 05984000 CVTLINK EQU CVTMAP+8 05985000 CVT0EF00 EQU CVTMAP+4 05986000 CVTTCBP EQU CVTMAP 05987000 CVT EQU CVTMAP 05988000 @NM00053 EQU TCBXTNT2+32 05989000 TCBRV181 EQU TCBRV173 05990000 TCBRV180 EQU TCBRV173 05991000 TCBRV179 EQU TCBRV173 05992000 TCBRV178 EQU TCBRV173 05993000 TCBRV177 EQU TCBRV173 05994000 TCBRV176 EQU TCBRV173 05995000 TCBRV175 EQU TCBRV173 05996000 TCBRV174 EQU TCBRV173 05997000 TCBRV172 EQU TCBRV164 05998000 TCBRV171 EQU TCBRV164 05999000 TCBRV170 EQU TCBRV164 06000000 TCBRV169 EQU TCBRV164 06001000 TCBRV168 EQU TCBRV164 06002000 TCBRV167 EQU TCBRV164 06003000 TCBRV166 EQU TCBRV164 06004000 TCBRV165 EQU TCBRV164 06005000 TCBRV163 EQU TCBRV155 06006000 TCBRV162 EQU TCBRV155 06007000 TCBRV161 EQU TCBRV155 06008000 TCBRV160 EQU TCBRV155 06009000 TCBRV159 EQU TCBRV155 06010000 TCBRV158 EQU TCBRV155 06011000 TCBRV157 EQU TCBRV155 06012000 TCBRV156 EQU TCBRV155 06013000 TCBRV154 EQU TCBRV146 06014000 TCBRV153 EQU TCBRV146 06015000 TCBRV152 EQU TCBRV146 06016000 TCBRV151 EQU TCBRV146 06017000 TCBRV150 EQU TCBRV146 06018000 TCBRV149 EQU TCBRV146 06019000 TCBRV148 EQU TCBRV146 06020000 TCBRV147 EQU TCBRV146 06021000 TCBRV145 EQU TCBXTNT2+26 06022000 TCBRV144 EQU TCBXTNT2+24 06023000 TCBRV143 EQU TCBXTNT2+20 06024000 TCBRV142 EQU TCBXTNT2+16 06025000 TCBRSV49 EQU TCBXTNT2+12 06026000 TCBEVENT EQU TCBXTNT2+8 06027000 TCBRCMP EQU TCBXTNT2+5 06028000 TCBRSVAB EQU TCBXTNT2+4 06029000 TCBGTFA EQU TCBGTF+1 06030000 TCBRSV47 EQU TCBTFLG 06031000 TCBRSV46 EQU TCBTFLG 06032000 TCBRSV45 EQU TCBTFLG 06033000 TCBRSV44 EQU TCBTFLG 06034000 TCBRSV43 EQU TCBTFLG 06035000 TCBDSPIT EQU TCBTFLG 06036000 TCBERRTN EQU TCBTFLG 06037000 TCBASYNC EQU TCBTFLG 06038000 @NM00052 EQU TCB+296 06039000 TCBRV185 EQU TCB+292 06040000 TCBSWASA EQU TCB+288 06041000 TCBDBTB EQU TCB+284 06042000 TCBRPT EQU TCB+280 06043000 TCBRV141 EQU TCBRV133 06044000 TCBRV140 EQU TCBRV133 06045000 TCBRV139 EQU TCBRV133 06046000 TCBRV138 EQU TCBRV133 06047000 TCBRV137 EQU TCBRV133 06048000 TCBRV136 EQU TCBRV133 06049000 TCBRV135 EQU TCBRV133 06050000 TCBRV134 EQU TCBRV133 06051000 TCBRV132 EQU TCBRV124 06052000 TCBRV131 EQU TCBRV124 06053000 TCBRV130 EQU TCBRV124 06054000 TCBRV129 EQU TCBRV124 06055000 TCBRV128 EQU TCBRV124 06056000 TCBRV127 EQU TCBRV124 06057000 TCBRV126 EQU TCBRV124 06058000 TCBRV125 EQU TCBRV124 06059000 TCBRV123 EQU TCBFBYT2 06060000 TCBRV122 EQU TCBFBYT2 06061000 TCBECBNV EQU TCBFBYT2 06062000 TCBSSSYN EQU TCBFBYT2 06063000 TCBFPRAP EQU TCBFBYT2 06064000 TCBFDW EQU TCBFBYT2 06065000 TCBFMW EQU TCBFBYT2 06066000 TCBCNCB EQU TCBFBYT2 06067000 TCBLLH EQU TCBFBYT1 06068000 TCBRV113 EQU TCBFBYT1 06069000 TCBEOT EQU TCBFBYT1 06070000 TCBRTM2 EQU TCBFBYT1 06071000 TCBPGNLY EQU TCBFBYT1 06072000 TCBNDIOS EQU TCBFBYT1 06073000 TCBACTIV EQU TCBFBYT1 06074000 TCBEOTFM EQU TCBFBYT1 06075000 TCBAFFN EQU TCB+274 06076000 TCBCCPVI EQU TCB+272 06077000 TCBUKYSP EQU TCB+268 06078000 TCBMODE EQU TCBESTAE+3 06079000 TCBERTYP EQU TCBESTAE+2 06080000 TCBRV314 EQU TCBESTRM 06081000 TCBRV313 EQU TCBESTRM 06082000 TCBRV312 EQU TCBESTRM 06083000 TCBRV311 EQU TCBESTRM 06084000 TCBRV310 EQU TCBESTRM 06085000 TCBRV309 EQU TCBESTRM 06086000 TCBRV308 EQU TCBESTRM 06087000 TCBETERM EQU TCBESTRM 06088000 TCBSCBKY EQU TCBESTAE 06089000 TCBRTM12 EQU TCB+260 06090000 TCBTCBID EQU TCB+256 06091000 TCBRSV96 EQU TCB+252 06092000 TCBSWA EQU TCB+248 06093000 TCBFOEA EQU TCBFOE+1 06094000 TCBRSV42 EQU TCBFOE 06095000 TCBRV306 EQU TCB+240 06096000 TCBRSV41 EQU TCB+239 06097000 TCBTID EQU TCB+238 06098000 TCBRSVAA EQU TCB+237 06099000 TCBABCUR EQU TCB+236 06100000 TCBTMSAV EQU TCB+232 06101000 TCBIOTIM EQU TCB+228 06102000 TCBRTWA EQU TCB+224 06103000 TCBBACK EQU TCB+220 06104000 TCBTIRB EQU TCB+216 06105000 TCBAECB EQU TCB+212 06106000 TCBEXT2A EQU TCBEXT2+1 06107000 TCBRSV39 EQU TCBEXT2 06108000 TCBSTMCT EQU TCB+207 06109000 TCBSYSCT EQU TCB+206 06110000 TCBRSV37 EQU TCB+205 06111000 TCBEXSVC EQU TCBDAR 06112000 TCBRSV36 EQU TCBDAR 06113000 TCBDARWT EQU TCBDAR 06114000 TCBDARO EQU TCBDAR 06115000 TCBDARMC EQU TCBDARC 06116000 TCBDARD EQU TCBDAR 06117000 TCBDARS EQU TCBDAR 06118000 TCBDARP EQU TCBDAR 06119000 TCBGTOFM EQU TCBFLGS7 06120000 TCBADMP EQU TCBFLGS7 06121000 TCBRSTSK EQU TCBFLGS7 06122000 TCBRSV35 EQU TCBFLGS7 06123000 TCBSTACK EQU TCBFLGS7 06124000 TCBRSV34 EQU TCBFLGS7 06125000 TCBRSV33 EQU TCBFLGS7 06126000 TCBGPECB EQU TCBFLGS7 06127000 TCBNTJS EQU TCBFLGS6 06128000 TCBAPG EQU TCBFLGS6 06129000 TCBMIGR EQU TCBFLGS6 06130000 TCBRV303 EQU TCBFLGS6 06131000 TCBSPVLK EQU TCBFLGS6 06132000 TCBCPU EQU TCBFLGS6 06133000 TCBPIE17 EQU TCBFLGS6 06134000 TCBRV EQU TCBFLGS6 06135000 TCBRSV79 EQU TCBNDSP5 06136000 TCBRSV78 EQU TCBNDSP5 06137000 TCBRSV77 EQU TCBNDSP5 06138000 TCBRSV76 EQU TCBNDSP5 06139000 TCBRSV75 EQU TCBNDSP5 06140000 TCBRSV74 EQU TCBNDSP5 06141000 TCBRSV95 EQU TCBNDSP5 06142000 TCBRSV94 EQU TCBNDSP5 06143000 TCBRSV93 EQU TCBNDSP4 06144000 TCBRSV92 EQU TCBNDSP4 06145000 TCBRSV91 EQU TCBNDSP4 06146000 TCBRSV90 EQU TCBNDSP4 06147000 TCBRSV89 EQU TCBNDSP4 06148000 TCBRSV88 EQU TCBNDSP4 06149000 TCBRSV87 EQU TCBNDSP4 06150000 TCBRSV86 EQU TCBNDSP4 06151000 TCBEXT1A EQU TCBEXT1+1 06152000 TCBRSV32 EQU TCBEXT1 06153000 TCBEXCPD EQU TCB+192 06154000 TCBIOBRC EQU TCB+188 06155000 TCBDDWTC EQU TCB+186 06156000 TCBDDEXC EQU TCB+184 06157000 TCBJSCBB EQU TCBJSCB+1 06158000 @NM00051 EQU TCBRECDE 06159000 TCBREC EQU TCBRECDE 06160000 TCBMDIDS EQU TCB+176 06161000 TCBNDINT EQU TCBNDSP3 06162000 TCBRSV27 EQU TCBNDSP3 06163000 TCBRSV26 EQU TCBNDSP3 06164000 TCBRSV25 EQU TCBNDSP3 06165000 TCBRSV24 EQU TCBNDSP3 06166000 TCBSRBND EQU TCBNDSP3 06167000 TCBRV302 EQU TCBNDSP3 06168000 TCBLJSND EQU TCBNDSP3 06169000 TCBABE EQU TCBNDSP2 06170000 TCBDSS EQU TCBNDSP2 06171000 TCBOWAIT EQU TCBNDSP2 06172000 TCBIWAIT EQU TCBNDSP2 06173000 TCBNDTS EQU TCBNDSP2 06174000 TCBNDSVC EQU TCBNDSP2 06175000 TCBSTPP EQU TCBNDSP2 06176000 TCBABD EQU TCBNDSP2 06177000 TCBRSV22 EQU TCBNDSP1 06178000 TCBPIEND EQU TCBNDSP1 06179000 TCBTPSP EQU TCBNDSP1 06180000 TCBDDRND EQU TCBNDSP1 06181000 TCBRSPND EQU TCBNDSP1 06182000 TCBRSTND EQU TCBNDSP1 06183000 TCBDARPN EQU TCBNDSP1 06184000 TCBDARTN EQU TCBNDSP1 06185000 TCBNDSP0 EQU TCBNDSP 06186000 TCBUSER EQU TCB+168 06187000 TCBTCTB EQU TCBTCT+1 06188000 TCBRSV9C EQU TCBTCTGF 06189000 TCBRSV9B EQU TCBTCTGF 06190000 TCBRSV9A EQU TCBTCTGF 06191000 TCBRSV99 EQU TCBTCTGF 06192000 TCBRSV98 EQU TCBTCTGF 06193000 TCBRSV97 EQU TCBTCTGF 06194000 TCBRSV20 EQU TCBTCTGF 06195000 TCBSMFGF EQU TCBTCTGF 06196000 TCBSTABB EQU TCBSTAB+1 06197000 TCBSTCUR EQU TCBNSTAE 06198000 TCBRV301 EQU TCBNSTAE 06199000 TCBSYNCH EQU TCBNSTAE 06200000 TCBHALT EQU TCBNSTAE 06201000 TCBPPSUP EQU TCBNSTAE 06202000 TCB33E EQU TCBNSTAE 06203000 TCBQUIES EQU TCBNSTAE 06204000 TCBSTABE EQU TCBNSTAE 06205000 TCBAQE EQU TCB+156 06206000 TCBPQE EQU TCB+152 06207000 TCBTSDP EQU TCB+151 06208000 TCBTSLP EQU TCB+150 06209000 TCBSTPCT EQU TCB+149 06210000 TCBCPUBN EQU TCBTSFLG 06211000 TCBDYDSP EQU TCBTSFLG 06212000 TCBRSV18 EQU TCBTSFLG 06213000 TCBRSV17 EQU TCBTSFLG 06214000 TCBTIOTG EQU TCBTSFLG 06215000 TCBATT EQU TCBTSFLG 06216000 TCBSTPPR EQU TCBTSFLG 06217000 TCBRV300 EQU TCBTSTSK 06218000 TCBECB EQU TCB+144 06219000 TCBIQE EQU TCB+140 06220000 TCBLTC EQU TCB+136 06221000 TCBOTC EQU TCB+132 06222000 TCBNTC EQU TCB+128 06223000 TCBJSTCA EQU TCBJSTCB+1 06224000 TCBRSV16 EQU TCBJSTCB 06225000 TCBTQET EQU TCBTME 06226000 TCBTCB EQU TCB+116 06227000 TCBFSAB EQU TCBFSA+1 06228000 TCBQEL EQU TCBFSA 06229000 TCBGRS15 EQU TCBGRS+60 06230000 TCBGRS14 EQU TCBGRS+56 06231000 TCBGRS13 EQU TCBGRS+52 06232000 TCBGRS12 EQU TCBGRS+48 06233000 TCBGRS11 EQU TCBGRS+44 06234000 TCBGRS10 EQU TCBGRS+40 06235000 TCBGRS9 EQU TCBGRS+36 06236000 TCBGRS8 EQU TCBGRS+32 06237000 TCBGRS7 EQU TCBGRS+28 06238000 TCBGRS6 EQU TCBGRS+24 06239000 TCBGRS5 EQU TCBGRS+20 06240000 TCBGRS4 EQU TCBGRS+16 06241000 TCBGRS3 EQU TCBGRS+12 06242000 TCBGRS2 EQU TCBGRS+8 06243000 TCBGRS1 EQU TCBGRS+4 06244000 TCBGRS0 EQU TCBGRS 06245000 TCBJPQB EQU TCBJPQ+1 06246000 TCBRSV15 EQU TCBPURGE 06247000 TCBRSV14 EQU TCBPURGE 06248000 TCBRSV13 EQU TCBPURGE 06249000 TCBRSV12 EQU TCBPURGE 06250000 TCBRSV11 EQU TCBPURGE 06251000 TCBRSV10 EQU TCBPURGE 06252000 TCBRSV09 EQU TCBPURGE 06253000 TCBJPQF EQU TCBPURGE 06254000 TCBJLB EQU TCB+40 06255000 TCBLLS EQU TCB+36 06256000 TCBDSP EQU TCB+35 06257000 TCBLMP EQU TCB+34 06258000 TCBPNDSP EQU TCBFLGS5 06259000 TCBFCD1 EQU TCBFLGS5 06260000 TCBSTP EQU TCBFLGS5 06261000 TCBSYS EQU TCBFLGS5 06262000 TCBANDSP EQU TCBFLGS5 06263000 TCBPAGE EQU TCBFLGS5 06264000 TCBUXNDF EQU TCBABWF 06265000 TCBFC EQU TCBFLGS5 06266000 TCBONDSP EQU TCBFLGS4 06267000 TCBMPCND EQU TCBFLGS4 06268000 TCBMPCVQ EQU TCBFLGS4 06269000 TCBUXNDV EQU TCBFLGS4 06270000 TCBHNDSP EQU TCBFLGS4 06271000 TCBRQENA EQU TCBFLGS4 06272000 TCBSER EQU TCBFLGS4 06273000 TCBNDUMP EQU TCBFLGS4 06274000 TCBDWSTA EQU TCBFLGS3 06275000 TCBRSV08 EQU TCBFLGS3 06276000 TCBRSV07 EQU TCBFLGS3 06277000 TCBRSV06 EQU TCBFLGS3 06278000 TCBABGM EQU TCBFLGS3 06279000 TCBABTRM EQU TCBFLGS3 06280000 TCBADINP EQU TCBFLGS3 06281000 TCBFSM EQU TCBFLGS3 06282000 TCBFTS EQU TCBFLGS2 06283000 TCBFETXR EQU TCBFLGS2 06284000 TCBFDSOP EQU TCBFLGS2 06285000 TCBFJMC EQU TCBFLGS2 06286000 TCBFSMC EQU TCBFLGS2 06287000 TCBFABOP EQU TCBFLGS2 06288000 TCBFSTI EQU TCBFLGS2 06289000 TCBFOINP EQU TCBFLGS2 06290000 TCBFX EQU TCBFLGS1 06291000 TCBFS EQU TCBFLGS1 06292000 TCBFT EQU TCBFLGS1 06293000 TCBPDUMP EQU TCBFLGS1 06294000 TCBRSV04 EQU TCBFLGS1 06295000 TCBFERA EQU TCBFLGS1 06296000 TCBFE EQU TCBFLGS1 06297000 TCBFA EQU TCBFLGS1 06298000 TCBZERO EQU TCBPKF 06299000 TCBFLAG EQU TCBPKF 06300000 TCBMSSB EQU TCBMSS+1 06301000 TCBRSV03 EQU TCBMSS 06302000 TCBTRNB EQU TCBTRN+1 06303000 TCBRSV02 EQU TCBABF 06304000 TCBOLTEP EQU TCBABF 06305000 TCBTCP EQU TCBABF 06306000 TCBTCPP EQU TCBABF 06307000 TCBRSV01 EQU TCBABF 06308000 TCBGRPH EQU TCBABF 06309000 TCBNOCHK EQU TCBABF 06310000 TCBMOD91 EQU TCBABF 06311000 TCBCMPC EQU TCBCMP+1 06312000 TCBRV318 EQU TCBCMSG 06313000 TCBRV317 EQU TCBCIND 06314000 TCBRV316 EQU TCBCWTO 06315000 TCBCASID EQU TCBCDBL 06316000 TCBNOCC EQU TCBSTCC 06317000 TCBDMPO EQU TCBCPP 06318000 TCBCSTEP EQU TCBCMPF 06319000 TCBCREQ EQU TCBCMPF 06320000 TCBTIO EQU TCB+12 06321000 TCBDEB EQU TCB+8 06322000 TCBPIEA EQU TCBPIE+1 06323000 TCBPM EQU TCBPMASK 06324000 @NM00050 EQU TCBPMASK 06325000 TCBFRS6 EQU TCBFRS+24 06326000 TCBFRS4 EQU TCBFRS+16 06327000 TCBFRS2 EQU TCBFRS+8 06328000 TCBFRS0 EQU TCBFRS 06329000 SIRBEND EQU RBSECT+168 06330000 SVRBEND EQU RBSECT+168 06331000 RBRSV158 EQU RBRSV150 06332000 RBRSV157 EQU RBRSV150 06333000 RBRSV156 EQU RBRSV150 06334000 RBRSV155 EQU RBRSV150 06335000 RBRSV154 EQU RBRSV150 06336000 RBRSV153 EQU RBRSV150 06337000 RBRSV152 EQU RBRSV150 06338000 RBRSV151 EQU RBRSV150 06339000 RBRSV149 EQU RBSECT+166 06340000 RBRSV148 EQU RBSECT+164 06341000 RBSCBB EQU RBSECT+144 06342000 TIRBEND EQU @NM00048+8 06343000 PRBEND EQU @NM00048+8 06344000 RBRSV146 EQU RBRSV138 06345000 RBRSV145 EQU RBRSV138 06346000 RBRSV144 EQU RBRSV138 06347000 RBRSV143 EQU RBRSV138 06348000 RBRSV142 EQU RBRSV138 06349000 RBRSV141 EQU RBRSV138 06350000 RBRSV140 EQU RBRSV138 06351000 RBRSV139 EQU RBRSV138 06352000 RBRSV137 EQU @NM00048+6 06353000 RBRSV136 EQU @NM00048+4 06354000 RBRSV135 EQU @NM00048 06355000 @NM00047 EQU RBSECT+32 06356000 @NM00046 EQU @NM00044+1 06357000 @NM00045 EQU @NM00044 06358000 RBPGMQ1 EQU RBPGMQ+1 06359000 @NM00043 EQU RBPGMQ 06360000 @NM00042 EQU RBSECT+16 06361000 @NM00041 EQU @NM00037 06362000 @NM00040 EQU @NM00037 06363000 RBIQETP EQU @NM00037 06364000 RBUSIQE EQU RBETXR 06365000 RBATTN EQU @NM00037 06366000 @NM00039 EQU @NM00037 06367000 @NM00038 EQU @NM00037 06368000 RBPMSVRB EQU @NM00035 06369000 RBATNXIT EQU @NM00035 06370000 @NM00036 EQU @NM00035 06371000 RBWAITP EQU @NM00035 06372000 RBFNSVRB EQU RBTRSVRB 06373000 RBFTP EQU @NM00035 06374000 RBSIZE EQU RBSECT+8 06375000 RBABOPSW EQU RBSECT+4 06376000 RBPPSAV1 EQU RBPPSAV+1 06377000 @NM00033 EQU RBPPSAV 06378000 RBPRFXND EQU RBPREFIX+64 06379000 RBINTCOD EQU RBINTCDA+1 06380000 RBINLNTH EQU RBINTCDA 06381000 RBWCSA EQU RBPREFIX+60 06382000 RBRSV004 EQU RBPREFIX+57 06383000 RBSSSYN EQU RBFLAGS1 06384000 RBSCB EQU RBFLAGS1 06385000 RBLONGWT EQU RBFLAGS1 06386000 RBASIR EQU RBFLAGS1 06387000 RBRSV159 EQU RBFLAGS1 06388000 RBABEND EQU RBFLAGS1 06389000 RBXWAIT EQU RBFLAGS1 06390000 RBSLOCK EQU RBFLAGS1 06391000 RBRTRAN EQU RBRTPSW2+4 06392000 RBRTINCD EQU RBRTICIL+2 06393000 RBRTILC EQU RBRTICIL+1 06394000 RBRSV160 EQU RBRTICIL 06395000 RBRTPSW1 EQU RBRTOPSW 06396000 RBRSV062 EQU RBRSV054 06397000 RBRSV061 EQU RBRSV054 06398000 RBRSV060 EQU RBRSV054 06399000 RBRSV059 EQU RBRSV054 06400000 RBRSV058 EQU RBRSV054 06401000 RBRSV057 EQU RBRSV054 06402000 RBRSV056 EQU RBRSV054 06403000 RBRSV055 EQU RBRSV054 06404000 RBRSV053 EQU RBPREFIX+38 06405000 RBRSV052 EQU RBPREFIX+36 06406000 RBRSV051 EQU RBPREFIX+32 06407000 RBPRFXST EQU RBPREFIX+32 06408000 RBRSV050 EQU RBPREFIX+28 06409000 RBRSV049 EQU RBRSV041 06410000 RBRSV048 EQU RBRSV041 06411000 RBRSV047 EQU RBRSV041 06412000 RBRSV046 EQU RBRSV041 06413000 RBRSV045 EQU RBRSV041 06414000 RBRSV044 EQU RBRSV041 06415000 RBRSV043 EQU RBRSV041 06416000 RBRSV042 EQU RBRSV041 06417000 RBRSV040 EQU RBPREFIX+26 06418000 RBRSV039 EQU RBPREFIX+24 06419000 RBRSV038 EQU RBPREFIX+20 06420000 RBRSV037 EQU RBPREFIX+16 06421000 RBRSV036 EQU RBRSV028 06422000 RBRSV035 EQU RBRSV028 06423000 RBRSV034 EQU RBRSV028 06424000 RBRSV033 EQU RBRSV028 06425000 RBRSV032 EQU RBRSV028 06426000 RBRSV031 EQU RBRSV028 06427000 RBRSV030 EQU RBRSV028 06428000 RBRSV029 EQU RBRSV028 06429000 RBRSV027 EQU RBRSV019 06430000 RBRSV026 EQU RBRSV019 06431000 RBRSV025 EQU RBRSV019 06432000 RBRSV024 EQU RBRSV019 06433000 RBRSV023 EQU RBRSV019 06434000 RBRSV022 EQU RBRSV019 06435000 RBRSV021 EQU RBRSV019 06436000 RBRSV020 EQU RBRSV019 06437000 RBRSV018 EQU RBPREFIX+13 06438000 RBRSV017 EQU RBPREFIX+12 06439000 RBSRV016 EQU RBPREFIX+11 06440000 RBRSV015 EQU RBPREFIX+10 06441000 RBRSV014 EQU RBPREFIX+8 06442000 RBRSV013 EQU RBPREFIX+4 06443000 RBRSV012 EQU RBPREFIX 06444000 XRBREG15 EQU RBGRS15 06445000 XRBREG14 EQU RBGRS14 06446000 XRBREG13 EQU RBGRS13 06447000 XRBREG12 EQU RBGRS12 06448000 XRBREG11 EQU RBGRS11 06449000 XRBREG10 EQU RBGRS10 06450000 XRBREG9 EQU RBGRS9 06451000 XRBREG8 EQU RBGRS8 06452000 XRBREG7 EQU RBGRS7 06453000 XRBREG6 EQU RBGRS6 06454000 XRBREG5 EQU RBGRS5 06455000 XRBREG4 EQU RBGRS4 06456000 XRBREG3 EQU RBGRS3 06457000 XRBREG2 EQU RBGRS2 06458000 XRBREG1 EQU RBGRS1 06459000 XRBREG0 EQU RBGRS0 06460000 XRBLNKA EQU RBLINKB 06461000 XRBWT EQU RBWCF 06462000 @NM00032 EQU RBBASIC+24 06463000 XRBPSW EQU RBOPSW 06464000 @NM00031 EQU RBBASIC+12 06465000 XRBWAIT EQU RBECBWT 06466000 XRBFRRB EQU RBFDYN 06467000 @NM00030 EQU XSTAB2 06468000 XRBACTV EQU RBFACTV 06469000 XRBTCBP EQU RBTCBNXT 06470000 @NM00029 EQU XSTAB1 06471000 XRBCKPT EQU RBFTCKPT 06472000 @NM00028 EQU XSTAB1 06473000 @NM00027 EQU RBBASIC+8 06474000 @NM00026 EQU RBEXRTNM+1 06475000 RBTMIND3 EQU RBTMFLD 06476000 RBTMIND2 EQU RBTMFLD 06477000 RBTMCMP EQU RBTMFLD 06478000 RBWLIM EQU RBTMFLD 06479000 RBRSV005 EQU RBTMFLD 06480000 RBTMTOD EQU RBTMFLD 06481000 RBTMQUE EQU RBTMFLD 06482000 @NM00025 EQU RBPRFX 06483000 @NM00024 EQU PSA+3412 06484000 PSASTAK EQU PSA+3072 06485000 @NM00023 EQU PSA+1040 06486000 PSAUSEND EQU PSA+1040 06487000 PSARV062 EQU PSA+1036 06488000 PSAATCVT EQU PSA+1032 06489000 PSAPCPSW EQU PSA+1024 06490000 PSAPIR2 EQU PSA+1020 06491000 PSARV059 EQU PSA+1018 06492000 PSASVC13 EQU PSA+1016 06493000 PSALSFCC EQU PSA+1012 06494000 PSASFACC EQU PSA+1008 06495000 PSASTOP EQU PSA+992 06496000 PSASTART EQU PSA+976 06497000 PSARSPSW EQU PSA+968 06498000 PSASRPSW EQU PSA+960 06499000 PSARV045 EQU PSA+892 06500000 PSARV044 EQU PSA+888 06501000 PSARV043 EQU PSA+884 06502000 PSARV042 EQU PSA+880 06503000 PSARV041 EQU PSA+876 06504000 PSARV040 EQU PSA+872 06505000 PSARV025 EQU PSA+868 06506000 PSADSSED EQU PSA+868 06507000 PSADSSPR EQU PSA+864 06508000 PSADSSFW EQU PSA+860 06509000 PSADSS14 EQU PSA+856 06510000 PSADSSPP EQU PSA+848 06511000 PSADSSRP EQU PSA+840 06512000 PSADSS05 EQU PSADSSF4 06513000 PSADSS10 EQU PSADSSF4 06514000 PSADSSVE EQU PSADSSF4 06515000 PSADSSDE EQU PSADSSF4 06516000 PSADSSC0 EQU PSADSSF4 06517000 PSADSSIE EQU PSADSSF4 06518000 PSADSS12 EQU PSADSSF4 06519000 PSADSSRC EQU PSADSSF4 06520000 PSARV057 EQU PSADSSF3 06521000 PSARV056 EQU PSADSSF3 06522000 PSARV055 EQU PSADSSF3 06523000 PSADSSMC EQU PSADSSF3 06524000 PSADSSRW EQU PSADSSF3 06525000 PSADSSNM EQU PSADSSF3 06526000 PSADSSES EQU PSADSSF3 06527000 PSADSSGP EQU PSADSSF3 06528000 PSADSSF2 EQU PSADSSFL+1 06529000 PSADSSPI EQU PSADSSF1 06530000 PSADSSOI EQU PSADSSF1 06531000 PSADSSSP EQU PSADSSF1 06532000 PSADSSTP EQU PSADSSF1 06533000 PSADSSDW EQU PSADSSF1 06534000 PSADSSDD EQU PSADSSF1 06535000 PSADSSDM EQU PSADSSF1 06536000 PSADSSMV EQU PSADSSF1 06537000 PSADSSTS EQU PSA+816 06538000 PSADSSWK EQU PSA+812 06539000 PSADSSR3 EQU PSA+808 06540000 PSADSSR2 EQU PSA+804 06541000 PSADSSRS EQU PSA+800 06542000 PSASTOR EQU PSA+796 06543000 PSACPUSA EQU PSA+794 06544000 PSAVSTAP EQU PSA+792 06545000 PSAWKVAP EQU PSA+788 06546000 PSAWKRAP EQU PSA+784 06547000 PSAMCHIC EQU PSA+783 06548000 PSARV061 EQU PSA+782 06549000 PSASYMSK EQU PSA+781 06550000 PSAMCHFL EQU PSA+780 06551000 PSACR0 EQU PSA+776 06552000 PSAPSWSV EQU PSA+768 06553000 PSALITA EQU PSA+764 06554000 PSACLHS EQU PSAHLHI 06555000 PSALKR15 EQU PSALKSA+60 06556000 PSALKR14 EQU PSALKSA+56 06557000 PSALKR13 EQU PSALKSA+52 06558000 PSALKR12 EQU PSALKSA+48 06559000 PSALKR11 EQU PSALKSA+44 06560000 PSALKR10 EQU PSALKSA+40 06561000 PSALKR9 EQU PSALKSA+36 06562000 PSALKR8 EQU PSALKSA+32 06563000 PSALKR7 EQU PSALKSA+28 06564000 PSALKR6 EQU PSALKSA+24 06565000 PSALKR5 EQU PSALKSA+20 06566000 PSALKR4 EQU PSALKSA+16 06567000 PSALKR3 EQU PSALKSA+12 06568000 PSALKR2 EQU PSALKSA+8 06569000 PSALKR1 EQU PSALKSA+4 06570000 PSALKR0 EQU PSALKSA 06571000 PSARV023 EQU PSACLHT+52 06572000 PSALOCAL EQU PSACLHT+48 06573000 PSACMSL EQU PSACLHT+44 06574000 PSAOPTL EQU PSACLHT+40 06575000 PSATPACL EQU PSACLHT+36 06576000 PSATPDNL EQU PSACLHT+32 06577000 PSATPNCL EQU PSACLHT+28 06578000 PSAIOSLL EQU PSACLHT+24 06579000 PSAIOSUL EQU PSACLHT+20 06580000 PSAIOSCL EQU PSACLHT+16 06581000 PSAIOSSL EQU PSACLHT+12 06582000 PSASALCL EQU PSACLHT+8 06583000 PSAASML EQU PSACLHT+4 06584000 PSADISPL EQU PSACLHT 06585000 PSASRSA EQU PSA+636 06586000 PSARV050 EQU PSA+634 06587000 PSADSSGO EQU PSA+633 06588000 PSARECUR EQU PSA+632 06589000 PSAHLHIS EQU PSA+628 06590000 PSAIPCSA EQU PSA+624 06591000 @NM00022 EQU PSA+621 06592000 PSAIPCDM EQU PSA+620 06593000 PSAIPCD EQU PSA+616 06594000 @NM00021 EQU PSA+613 06595000 PSAIPCRM EQU PSA+612 06596000 PSAIPCR EQU PSA+608 06597000 PSAMCHEX EQU PSA+600 06598000 PSAMPSW EQU PSA+592 06599000 PSAEXPS2 EQU PSA+584 06600000 PSAEXPS1 EQU PSA+576 06601000 PSAPIREG EQU PSA+572 06602000 PSARSREG EQU PSA+568 06603000 PSAGPREG EQU PSA+556 06604000 PSARV022 EQU PSASUP4 06605000 PSARV021 EQU PSASUP4 06606000 PSARV020 EQU PSASUP4 06607000 PSARV019 EQU PSASUP4 06608000 PSARV018 EQU PSASUP4 06609000 PSARV017 EQU PSASUP4 06610000 PSARV016 EQU PSASUP4 06611000 PSARV015 EQU PSASUP4 06612000 PSARV014 EQU PSASUP3 06613000 PSARV013 EQU PSASUP3 06614000 PSARV012 EQU PSASUP3 06615000 PSARV011 EQU PSASUP3 06616000 PSARV010 EQU PSASUP3 06617000 PSAPSREG EQU PSASUP3 06618000 PSAPI2 EQU PSASUP3 06619000 PSAIOSUP EQU PSASUP3 06620000 PSALCR EQU PSASUP2 06621000 PSARTM EQU PSASUP2 06622000 PSAACR EQU PSASUP2 06623000 PSAIPCE2 EQU PSASUP2 06624000 PSAIPCES EQU PSASUP2 06625000 PSAIPCEC EQU PSASUP2 06626000 PSAGTF EQU PSASUP2 06627000 PSAIPCRI EQU PSASUP2 06628000 PSAIPCRP EQU PSASUP1 06629000 PSAIPCDR EQU PSASUP1 06630000 PSADISP EQU PSASUP1 06631000 PSALOCK EQU PSASUP1 06632000 PSAPI EQU PSASUP1 06633000 PSAEXT EQU PSASUP1 06634000 PSASVC EQU PSASUP1 06635000 PSAIO EQU PSASUP1 06636000 PSAAOLD EQU PSA+548 06637000 PSAANEW EQU PSA+544 06638000 PSATNEW EQU PSA+536 06639000 PSALCCAR EQU PSA+532 06640000 PSALCCAV EQU PSA+528 06641000 PSAPCCAR EQU PSA+524 06642000 PSAPCCAV EQU PSA+520 06643000 PSACPULA EQU PSA+518 06644000 PSACPUPA EQU PSA+516 06645000 PSAPSA EQU PSA+512 06646000 FLCHDEND EQU PSA+512 06647000 FLCCRSAV EQU FLCMCLA+280 06648000 FLCGRSAV EQU FLCMCLA+216 06649000 FLCFPSAV EQU FLCMCLA+184 06650000 FLCFLA EQU FLCMCLA+88 06651000 FLCRGNCD EQU FLCMCLA+84 06652000 FLCFSAA EQU FLCFSA+1 06653000 @NM00020 EQU FLCFSA 06654000 @NM00019 EQU FLCMCLA+72 06655000 FLCMCIC EQU FLCMCLA+64 06656000 @NM00018 EQU FLCMCLA+20 06657000 FLCIOAA EQU FLCIOA+1 06658000 @NM00017 EQU FLCIOA 06659000 @NM00016 EQU FLCMCLA+15 06660000 @NM00015 EQU FLCMCLA+14 06661000 @NM00014 EQU FLCMCLA+12 06662000 FLCLCL EQU FLCMCLA+8 06663000 FLCIOELA EQU FLCIOEL+1 06664000 @NM00013 EQU FLCIOEL 06665000 FLCCHNID EQU FLCMCLA 06666000 @NM00012 EQU PSA+160 06667000 FLCMTRCD EQU PSA+157 06668000 @NM00011 EQU PSA+156 06669000 FLCPERA EQU FLCPER+1 06670000 @NM00010 EQU FLCPER 06671000 @NM00009 EQU PSA+151 06672000 FLCPERCD EQU PSA+150 06673000 FLCMCNUM EQU PSA+149 06674000 @NM00008 EQU PSA+148 06675000 FLCTEAA EQU FLCTEA+1 06676000 @NM00007 EQU FLCTEA 06677000 PSAPIPC EQU PSAPICOD 06678000 PSAPIMC EQU PSAPICOD 06679000 PSAPIPER EQU PSAPICOD 06680000 PSARV049 EQU FLCPICOD 06681000 FLCPILCB EQU FLCPIILC 06682000 @NM00006 EQU FLCPIILC 06683000 @NM00005 EQU PSAEPPSW 06684000 FLCSVCN EQU PSAESPSW+2 06685000 FLCSILCB EQU FLCSVILC 06686000 @NM00004 EQU FLCSVILC 06687000 @NM00003 EQU PSAESPSW 06688000 FLCEICOD EQU PSAEEPSW+2 06689000 PSASPAD EQU PSAEEPSW 06690000 @NM00002 EQU PSA+128 06691000 FLCINPSW EQU PSA+120 06692000 FLCMNPSW EQU PSA+112 06693000 FLCPNPSW EQU PSA+104 06694000 FLCSNPSW EQU PSA+96 06695000 FLCENPSW EQU PSA+88 06696000 FLCTRACE EQU PSA+84 06697000 FLCTIMER EQU PSA+80 06698000 FLCCVT2 EQU PSA+76 06699000 FLCCAW EQU PSA+72 06700000 FLCCSW EQU PSA+64 06701000 FLCIOPSW EQU PSA+56 06702000 FLCMOPSW EQU PSA+48 06703000 FLCPOPSW EQU PSA+40 06704000 FLCSOPSW EQU PSA+32 06705000 FLCEOPSW EQU PSA+24 06706000 @NM00001 EQU FLCICCW2+4 06707000 FLCCVT EQU FLCICCW2 06708000 FLCICCW1 EQU FLCROPSW 06709000 FLCIPPSW EQU FLCRNPSW 06710000 * END UNREFERENCED COMPONENTS 06711000 @ENDDATA EQU * 06712000 END IGX00013,(C'PLS0325',0700,74340) 06713000