TITLE 'IRARMINT - SYSTEM RESOURCES MANAGER INTERFACE PROGRAM *00001000 ' 00002000 * /* 00003000 IRARMINT CSECT , 00004000 @PSTART DS 0H 00005000 USING @PSTART,@10 00006000 * /* 00007000 ENTRY IGC095 SRM SVC ENTRY POINT 00008000 IGC095 DS 0H 00009000 BALR @10,0 ENTRY POINT ADDRESSABILITY 00010000 LA @12,*-@PSTART DISPLACEMENT FROM START OF MOD 00011000 SLR @10,@12 MODULE ADDRESSABILITY 00012000 * SYSEVCDE=R0&FFBYTE3; /* ISOLATE INPUT SYSEVENT CODE */ 00013000 LR SYSEVCDE,R0 0068 00014000 N SYSEVCDE,@CF01818 0068 00015000 * IF SYSEVCDE=CON0 THEN /* IF SYSEVENT CODE IS 0, */ 00016000 SLR @12,@12 0069 00017000 CR SYSEVCDE,@12 0069 00018000 BNE @RF00069 0069 00019000 * DO; /* ASSOCIATE SYSEVENT WITH AN 0070 00020000 * ASID, TRACE AND RETURN TO USER*/ 00021000 * IF R0=CON0 THEN /* IF ASID NOT INPUT, */ 00022000 CR R0,@12 0071 00023000 BNE @RF00071 0071 00024000 * DO; /* GET ASID FROM CURRENT ASCB */ 00025000 * ASCBPTR=PSAAOLD; /* ADDRESSABILITY TO ASCB */ 00026000 L ASCBPTR,PSAAOLD 0073 00027000 * GENERATE CODE REFS(ASCBASID,ASCBPTR,R0) 0074 00028000 * (ICM R0,12,ASCBASID(ASCBPTR)); 0074 00029000 ICM R0,12,ASCBASID(ASCBPTR) 00030000 * END; 0075 00031000 * GENERATE CODE /* MC INSTRUCTION FOR GTF TRACING*/ 00032000 * (HOOK EID=IRASRM,TYPE=P); 0076 00033000 @RF00071 DS 0H 0076 00034000 HOOK EID=IRASRM,TYPE=P 00035000 * RETURN; 0077 00036000 @EL00001 DS 0H 0077 00037000 @EF00001 DS 0H 0077 00038000 @ER00001 BR @14 0077 00039000 * END; 0078 00040000 * 0078 00041000 */* */ 00042000 */* SAVE REGISTERS ALTERED BY TESTAUTH. */ 00043000 */* */ 00044000 * 0079 00045000 * R4=R0; 0079 00046000 @RF00069 LR R4,R0 0079 00047000 * R5=R1; 0080 00048000 LR R5,R1 0080 00049000 * R6=R14; 0081 00050000 * 0081 00051000 LR R6,R14 0081 00052000 */* */ 00053000 */* VERIFY THAT THE SVC ISSUER IS APPROPRIATELY AUTHORIZED TO */ 00054000 */* ENTER THE SYSTEM RESOURCES MANAGER. ISSUER MUST BE EITHER */ 00055000 */* EXECUTING IN SUPERVISOR STATE OR PROTECTION KEY 0 - 7, OR APF */ 00056000 */* AUTHORIZED. NO AUTHORIZATION IS REQUIRED FOR SYSEVENT 38, */ 00057000 */* AND AUTORIZATION FOR SYSEVENTS 41 AND 42 WILL BE @Z40BPEB*/ 00058000 */* VERIFIED IN THE EVT ROUTINE BECAUSE THESE SYSEVENTS @Z40BPEB*/ 00059000 */* MAY BE AUTHORIZED EVEN IF THEY FAIL TESTAUTH. IN THESE @Z40BPEB*/ 00060000 */* CASES, HOWEVER, ONLY THOSE FUNCTIONS REQUIRED TO PROCESS THE */ 00061000 */* SYSEVENT ARE PERFORMED. FOR A VALID SVC INVOCATION OBTAIN */ 00062000 */* THE SRM LOCK, ESTABLISH THE ERROR RECOVERY ENVIRONMENT AND */ 00063000 */* SAVE THE PHYSICAL STATE IN WHICH THE SRM WAS ENTERED. */ 00064000 */* */ 00065000 * 0082 00066000 * GENERATE CODE REFS(CVTAPF,CVT) 0082 00067000 * (TESTAUTH FCTN=1,STATE=YES,KEY=YES,RBLEVEL=1,BRANCH=YES); 0082 00068000 TESTAUTH FCTN=1,STATE=YES,KEY=YES,RBLEVEL=1,BRANCH=YES 00069000 * IF RTNCOD=CON0| /* IF USER AUTHORIZED OR */ 00070000 * SYSEVCDE=CON38| /* SYSEVENT CODE THAT DOES NOT */ 00071000 * SYSEVCDE=CON41| /* REQUIRE AUTHORIZATION NOW TO */ 00072000 * SYSEVCDE=CON42 THEN /* ENTER THE SRM, */ 00073000 LTR RTNCOD,RTNCOD 0083 00074000 BZ @RT00083 0083 00075000 C SYSEVCDE,@CF01812 0083 00076000 BE @RT00083 0083 00077000 C SYSEVCDE,@CF01814 0083 00078000 BE @RT00083 0083 00079000 C SYSEVCDE,@CF01816 0083 00080000 BNE @RF00083 0083 00081000 @RT00083 DS 0H 0084 00082000 * DO; /* CONTINUE SYSEVENT VALIDATION */ 00083000 * R0=R4; /* RESTORE REGS 0 */ 00084000 LR R0,R4 0085 00085000 * R1=R5; /* AND 1 */ 00086000 LR R1,R5 0086 00087000 * CALL IRARM000; /* GET SRM LOCK AND ESTABLISH 0087 00088000 * ERROR RECOVERY ENVIRONMENT */ 00089000 BAL @14,IRARM000 0087 00090000 * RRPASVC='1'B; /* INDICATE SVC ENTRY */ 00091000 * RRPAENB='1'B; /* SET ENABLED ENTRY FLAG ON */ 00092000 OI RRPASVC(RRPAPTR),B'01100000' 0089 00093000 * END; 0090 00094000 * ELSE /* SVC ISSUER NOT AUTHORIZED */ 00095000 * DO; /* ABEND INVOKER */ 00096000 B @RC00083 0091 00097000 @RF00083 DS 0H 0092 00098000 * RESNCODE=CON8; /* ABEND REASON CODE */ 00099000 LA RESNCODE,8 0092 00100000 * CALL RMI10001; /* ABEND INVOKER */ 00101000 BAL @14,RMI10001 0093 00102000 * END; 0094 00103000 * GOTO IRARM001; /* COMMON PORTION OF INTERFACE */ 00104000 B IRARM001 0095 00105000 * 0096 00106000 */* **************************************************************** */ 00107000 */* */ 00108000 */* ENTRY POINT NAME - IRARMI00 */ 00109000 */* */ 00110000 */* DESCRIPTIVE NAME - EXTERNAL BRANCH ENTRY INTERFACE SUBROUTINE */ 00111000 */* */ 00112000 */* **************************************************************** */ 00113000 * 0096 00114000 * GENERATE CODE; 0096 00115000 * /* 00116000 ENTRY IRARMI00 SRM EXTERNAL BRANCH ENTRY PT 00117000 IRARMI00 DS 0H 00118000 STM @14,@12,CON12(@13) SAVE REGISTERS IN AREA PROVIDED 00119000 * BY ISSUER OF SYSEVENT 00120000 * 0097 00121000 */* **************************************************************** */ 00122000 */* */ 00123000 */* ENTRY POINT NAME - IRARMI48 */ 00124000 */* */ 00125000 */* DESCRIPTIVE NAME - INTERNAL BRANCH ENTRY INTERFACE SUBROUTINE */ 00126000 */* */ 00127000 */* **************************************************************** */ 00128000 * 0097 00129000 * GENERATE CODE; 0097 00130000 * 0097 00131000 * /* 00132000 ENTRY IRARMI48 SRM INTERNAL BRANCH ENTRY PT 00133000 IRARMI48 DS 0H 00134000 BALR @10,0 ENTRY POINT ADDRESSABILITY 00135000 LA @15,*-@PSTART DISPLACEMENT FROM START OF MOD 00136000 SLR @10,@15 MODULE ADDRESSABILITY 00137000 */* */ 00138000 */* OBTAIN PSW PROTECT KEY OF BRANCH ENTRY SYSEVENT ISSUER, VERIFY */ 00139000 */* THAT IT IS VALID(0 - 7), AND SWITCH TO PSW PROTECTION KEY OF */ 00140000 */* THE SYSTEM RESOURCES MANAGER(0). PERFORM SRM LOCKING ALLOWED */ 00141000 */* BY THE SYSEVENT AND ESTABLISH ERROR RECOVERY ENVIRONMENT. */ 00142000 */* */ 00143000 * 0098 00144000 * PSWKEY=CON0; /* CLEAR BEFORE ISSUING MODESET */ 00145000 SLR PSWKEY,PSWKEY 0098 00146000 * GENERATE /* OBTAIN PSW PROTECTION KEY */ 00147000 * (MODESET SAVEKEY=(2)); 0099 00148000 MODESET SAVEKEY=(2) 00149000 * IF PSWKEY>KEY7 THEN /* IF INVOKER HAS INVALID 0100 00150000 * @Z40BPEB*/ 00151000 C PSWKEY,@CF01802 0100 00152000 BNH @RF00100 0100 00153000 * DO; /* STORAGE PROTECTION KEY, */ 00154000 * RESNCODE=CON4; /* ABEND REASON CODE */ 00155000 LA RESNCODE,4 0102 00156000 * CALL RMI10001; /* ABEND INVOKER */ 00157000 BAL @14,RMI10001 0103 00158000 * END; 0104 00159000 * GENERATE /* SWITCH TO SRM PROTECT KEY */ 00160000 * (MODESET EXTKEY=SRM); 0105 00161000 @RF00100 DS 0H 0105 00162000 MODESET EXTKEY=SRM 00163000 * SYSEVCDE=R0&FFBYTE3; /* ISOLATE INPUT SYSEVENT CODE */ 00164000 LR SYSEVCDE,R0 0106 00165000 N SYSEVCDE,@CF01818 0106 00166000 * R6=SVEREG; /* PRESERVE SAVEAREA ADDRESS PRO- 00167000 * VIDED BY BRANCH ENTRY INVOKER */ 00168000 LR R6,SVEREG 0107 00169000 * CALL IRARM000; /* GET SRM LOCK IF REQUIRED AND 00170000 * EST ERROR RECOVERY ENVIRONMENT*/ 00171000 BAL @14,IRARM000 0108 00172000 * RRPAKEY=PSWKEY; /* SAVE PROTECTION KEY OF BRANCH 00173000 * ENTRY USER */ 00174000 STC PSWKEY,RRPAKEY(,RRPAPTR) 0109 00175000 */* */ 00176000 */* SAVE PHYSICAL STATE IN WHICH THE SRM WAS ENTERED. */ 00177000 */* */ 00178000 * 0110 00179000 * IF SECHSTAT='1'B THEN /* DISABLED STATE */ 00180000 TM SECHSTAT(SECHTPTR),B'00100000' 0110 00181000 BNO @RF00110 0110 00182000 * RRPADSB='1'B; /* SET DISABLED ENTRY FLAG ON */ 00183000 OI RRPADSB(RRPAPTR),B'10000000' 0111 00184000 * ELSE /* ENABLED STATE */ 00185000 * RRPAENB='1'B; /* SET ENABLED ENTRY FLAG ON */ 00186000 B @RC00110 0112 00187000 @RF00110 OI RRPAENB(RRPAPTR),B'01000000' 0112 00188000 * 0113 00189000 */* */ 00190000 */* VALIDATE AN ASID INPUT VIA THE SYSEVENT. IF AN ASID COULD BE */ 00191000 */* OMITTED AS INPUT WITH THE SYSEVENT, OBTAIN A VALID ASID TO */ 00192000 */* ASSOCIATE WITH THE SYSEVENT. AN INVALID ASID OR AN ASID NOT */ 00193000 */* INPUT WITH THE SYSEVENT AS REQUIRED WILL RESULT IN A 15F-4 */ 00194000 */* ABEND OF THE CURRENT TASK IN THE MEMORY. */ 00195000 */* */ 00196000 * 0113 00197000 *IRARM001: /* COMMON PORTION OF INTERFACE */ 00198000 * RMCTPTR=CVTOPCTP; /* ADDRESSABILITY TO RMCT */ 00199000 @RC00110 DS 0H 0113 00200000 IRARM001 L @12,CVTPTR 0113 00201000 L RMCTPTR,CVTOPCTP(,@12) 0113 00202000 * IF RRPAASD=CON0& /* IF ASID NOT INPUT WITH */ 00203000 * SECHASID='1'B THEN /* SYSEVENT & ASID CAN BE OMITTED*/ 00204000 LH @12,RRPAASD(,RRPAPTR) 0114 00205000 N @12,@CF01843 0114 00206000 LTR @12,@12 0114 00207000 BNZ @RF00114 0114 00208000 TM SECHASID(SECHTPTR),B'00001000' 0114 00209000 BNO @RF00114 0114 00210000 * DO; /* OBTAIN ASCB ADDRESS FROM PSA 00211000 * OR USE MASTER SCHEDULER ASCB */ 00212000 * IF SECHOBID='1'B THEN /* IF SECHT ENTRY INDICATES, */ 00213000 TM SECHOBID(SECHTPTR),B'00000100' 0116 00214000 BNO @RF00116 0116 00215000 * ASCBPTR=PSAAOLD; /* USE ASCB OLD POINTER FROM PSA */ 00216000 L ASCBPTR,PSAAOLD 0117 00217000 * ELSE /* OTHERWISE, ASSOCIATE SYSEVENT */ 00218000 * ASCBPTR=RMCAMAS; /* WITH THE MASTER SCHEDULER ASCB*/ 00219000 B @RC00116 0118 00220000 @RF00116 L ASCBPTR,RMCAMAS(,RMCTPTR) 0118 00221000 * RRPAASD=ASCBASID; /* SAVE ASID OF CURRENT ASCB */ 00222000 @RC00116 MVC RRPAASD(2,RRPAPTR),ASCBASID(ASCBPTR) 0119 00223000 * END; 0120 00224000 * ELSE /* ASID INPUT WITH SYSEVENT OR 0121 00225000 * ASID CANNOT BE OMITTED */ 00226000 * DO; /* CHECK FOR VALID ASID INPUT */ 00227000 B @RC00114 0121 00228000 @RF00114 DS 0H 0122 00229000 * IF RRPAASD^=CON0& /* IF ASID INPUT AND */ 00230000 * RRPAASD<=ASVTMAXU& /* ASID DEFINED WITHIN THE ASVT */ 00231000 * ASVTENTY(RRPAASD)>CON0 /* AND ASCB ADDRESS VALID, USE */ 00232000 * THEN /* ADDRESS OF ASCB FROM ASVT */ 00233000 LH @12,RRPAASD(,RRPAPTR) 0122 00234000 N @12,@CF01843 0122 00235000 LTR @12,@12 0122 00236000 BZ @RF00122 0122 00237000 L @11,CVTPTR 0122 00238000 L @11,ASVTPTR(,@11) 0122 00239000 C @12,ASVTMAXU(,@11) 0122 00240000 BH @RF00122 0122 00241000 SLA @12,2 0122 00242000 L @12,ASVTENTY-4(@12,@11) 0122 00243000 LTR @12,@12 0122 00244000 BNP @RF00122 0122 00245000 * ASCBPTR= /* ADDRESSABILITY TO ASCB */ 00246000 * ASVTENTY(RRPAASD); 0123 00247000 LR ASCBPTR,@12 0123 00248000 * ELSE /* REQUIRED ASID OMITTED, OR */ 00249000 * DO; /* INPUT ASID INVALID, OR ASCB 0124 00250000 * ADDRESS INVALID, ABEND INVOKER*/ 00251000 B @RC00122 0124 00252000 @RF00122 DS 0H 0125 00253000 * RESNCODE=CON4; /* ABEND REASON CODE */ 00254000 LA RESNCODE,4 0125 00255000 * CALL RMI10001; /* ABEND INVOKER */ 00256000 BAL @14,RMI10001 0126 00257000 * END; 0127 00258000 * END; 0128 00259000 @RC00122 DS 0H 0129 00260000 * OUCBPTR=ASCBOUCB; /* ADDRESSABILITY TO OUCB */ 00261000 @RC00114 L OUCBPTR,ASCBOUCB(,ASCBPTR) 0129 00262000 */* */ 00263000 */* VALIDITY CHECK THE OUCB ASSOCIATED WITH THE MEMORY. INSURE */ 00264000 */* THAT THE SRM RIM HAS EXECUTED BEFORE PROCESSING ANY SYSEVENTS */ 00265000 */* THAT HAVE A DEPENDENCY ON THE RIM. */ 00266000 */* */ 00267000 * 0130 00268000 * IF(OUCBNAME^='OUCB'| /* IF THE OUCB ASSOCIATED WITH */ 00269000 * OUCBINV='1'B)& /* THIS SYSEVENT IS INVALID AND 00270000 * @Z40BPCH*/ 00271000 * SYSEVCDE^=CON6 THEN /* MEMORY CREATE SYSEVENT IS NOT 00272000 * THE CURRENT SYSEVENT THEN */ 00273000 CLC OUCBNAME(4,OUCBPTR),@CC01825 0130 00274000 BNE @GL00007 0130 00275000 TM OUCBINV(OUCBPTR),B'00010000' 0130 00276000 BNO @RF00130 0130 00277000 @GL00007 C SYSEVCDE,@CF00303 0130 00278000 BE @RF00130 0130 00279000 * IF RMCTINIT='0'B THEN /* IF NIP10 HAS NOT YET RUN AND */ 00280000 TM RMCTINIT(RMCTPTR),B'00010000' 0131 00281000 BNZ @RF00131 0131 00282000 * IF ADDR(IRASECHT(SYSEVCDE)) /* SYSEVENT CANNOT RUN BEFORE */ 00283000 * ->SECHINIT='0'B THEN /* NIP10,EXIT IMMEDIATELY */ 00284000 * 0132 00285000 LA @12,IRASECHT-1(SYSEVCDE) 0132 00286000 TM SECHINIT(@12),B'00000010' 0132 00287000 BNZ @RF00132 0132 00288000 * /***********************************************************/ 00289000 * /* */ 00290000 * /* ? IRACTLCL EPN(I01) */ 00291000 * /* */ 00292000 * /***********************************************************/ 00293000 * 0133 00294000 * GOTO RMEXI01->IRARMNTR; /* EXIT TO I01 FUNCT */ 00295000 L @12,RMEXI01(,RMCTPTR) 0133 00296000 BR @12 0133 00297000 * ELSE /* PROCESS SYSEVENT */ 00298000 * ; 0134 00299000 @RF00132 DS 0H 0135 00300000 * ELSE /* IF NIP10 HAS RUN, CONTROL */ 00301000 * DO; /* BLOCKS ARE INVALID */ 00302000 B @RC00131 0135 00303000 @RF00131 DS 0H 0136 00304000 * RESNCODE=CON24; /* ABEND REASON CODE(15F-24 IS 0136 00305000 * CHANGED BY SRM FRR TO A 25F) */ 00306000 LA RESNCODE,24 0136 00307000 * CALL RMI10001; /* ABEND INVOKER */ 00308000 BAL @14,RMI10001 0137 00309000 * END; 0138 00310000 * 0139 00311000 */* */ 00312000 */* OBTAIN TIME OF CURRENT SYSEVENT IN SRM TOD FORMAT. */ 00313000 */* */ 00314000 * 0139 00315000 * GENERATE CODE REFS(RMCTTOCI,RMCTTOC,RMCTTOD,RMCTPTR,RMCTTBS,RMPTTCS 00316000 * ,RRPATOD); 0139 00317000 * 0139 00318000 @RC00131 DS 0H 0139 00319000 @RF00130 DS 0H 0139 00320000 STCK RMCTTOCI(RMCTPTR) TOD CLOCK VALUE 00321000 BC 12,OKCLOCK TOD CLOCK OPERATIONAL 00322000 LM @08,@09,RMCTTOC(RMCTPTR) TIME OF LAST ENTRY TO SRM 00323000 AL @09,RMPTTCS(,RMCTPTR) INCREMENT TIME VALUE TO 00324000 * SIMULATE PASSAGE OF TIME 00325000 BC 12,NOCARRY CHECK FOR CARRY 00326000 AL @08,ONE INCREMENT HIGH ORDER TIME VALUE 00327000 BC 15,NOCARRY SAVE TIME 00328000 ONE DS 0F 00329000 DC X'00000001' ONE 00330000 OKCLOCK LM @08,@09,RMCTTOCI(RMCTPTR) LOAD VALID TIME OF DAY 00331000 * FROM STCK INSTRUCTION 00332000 NOCARRY STM @08,@09,RMCTTOC(RMCTPTR) SAVE TIME OF THIS ENTRY TO SRM 00333000 SRDL @08,MS CONVERT TIME TO 1.024 MILLISEC 00334000 MS EQU 22 CONSTANT TO CONVERT MICRO 00335000 * TO MILLI SECENDS 00336000 AL @09,RMCTTBS(,RMCTPTR) SUBTRACT BASE TIME 00337000 ST @09,RRPATOD(,RRPAPTR) TIME OF CURRENT ENTRY FOR RCVRY 00338000 ST @09,RMCTTOD(,RMCTPTR) TIME OF CURRENT ENTRY 00339000 * /*****************************************************************/ 00340000 * /* */ 00341000 * /* ? IRACTLCL EPN(EVT) */ 00342000 * /* */ 00343000 * /*****************************************************************/ 00344000 * 0140 00345000 * GOTO RMEXEVT->IRARMNTR; /* EXIT TO EVT FUNCT */ 00346000 * 0140 00347000 L @12,RMEXEVT(,RMCTPTR) 0140 00348000 BR @12 0140 00349000 * /*****************************************************************/ 00350000 * /* */ 00351000 * /* PROCESS SYSEVENT */ 00352000 * /* */ 00353000 * /*****************************************************************/ 00354000 * 0141 00355000 * 0141 00356000 */* **************************************************************** */ 00357000 */* */ 00358000 */* ENTRY POINT NAME - IRARMI01 */ 00359000 */* */ 00360000 */* DESCRIPTIVE NAME - SRM RETURN TO INVOKER SUBROUTINE */ 00361000 */* */ 00362000 */* **************************************************************** */ 00363000 * 0141 00364000 * GENERATE CODE; 0141 00365000 * /* 00366000 ENTRY IRARMI01 SRM RETURN ENTRY POINT 00367000 IRARMI01 DS 0H 00368000 BALR @10,0 ENTRY POINT ADDRESSABILITY 00369000 LA @15,*-@PSTART DISPLACEMENT FROM START OF MOD 00370000 SLR @10,@15 MODULE ADDRESSABILITY 00371000 * RRPAEPA=CON0; /* CLEAR ENTRY PT BLOCK ADDRESS */ 00372000 SLR @12,@12 0142 00373000 ST @12,RRPAEPA(,RRPAPTR) 0142 00374000 * RESPECIFY 0143 00375000 * (R0, 0143 00376000 * R1, 0143 00377000 * R2, 0143 00378000 * R4, 0143 00379000 * R5, 0143 00380000 * R6, 0143 00381000 * R8, 0143 00382000 * R15, 0143 00383000 * SYSEVCDE, 0143 00384000 * FLAGS) RSTD; 0143 00385000 * 0143 00386000 */* */ 00387000 */* LOAD INFORMATION FROM RECOVERY PARAMETER AREA(RRPA) THAT IS */ 00388000 */* REQUIRED TO RETURN CONTROL TO SRM INVOKER PRIOR TO RELEASING */ 00389000 */* THE ERROR RECOVERY ENVIRONMENT. */ 00390000 */* */ 00391000 * 0144 00392000 * SYSEVCDE=RRPACOD; /* ORIGINAL ENTRY SYSEVENT CODE */ 00393000 SLR SYSEVCDE,SYSEVCDE 0144 00394000 IC SYSEVCDE,RRPACOD(,RRPAPTR) 0144 00395000 * R0=RRPAINC; /* ORIGINAL R0 AT ENTRY */ 00396000 L R0,RRPAINC(,RRPAPTR) 0145 00397000 * R1=RRPAINP; /* ORIGINAL REG 1 AT ENTRY MODI- 00398000 * FIED BY REQUIRED RETURN INDIC */ 00399000 L R1,RRPAINP(,RRPAPTR) 0146 00400000 * R2=RRPAKEY; /* FOR BRANCH ENTRY, PROTECT KEY 00401000 * OF INVOKER */ 00402000 SLR R2,R2 0147 00403000 IC R2,RRPAKEY(,RRPAPTR) 0147 00404000 * R8=RRPAINS; /* FOR BRANCH ENTRY, REQUIRED 0148 00405000 * SAVE AREA ADDRESS - FOR SVC 0148 00406000 * ENTRY, RETURN ADDRESS */ 00407000 L R8,RRPAINS(,RRPAPTR) 0148 00408000 * FLAGS=RRPAFLG; /* SYSEVENT STATUS FLAGS */ 00409000 LH FLAGS,RRPAFLG(,RRPAPTR) 0149 00410000 N FLAGS,@CF01843 0149 00411000 */* */ 00412000 */* TRACE SRM SYSEVENTS VIA GTF. ISSUE BRANCH ENTRY HOOK MACRO TO */ 00413000 */* AVOID RECURSION THROUGH THE PFLIH. INFORMATION TRACED IS: */ 00414000 */* GENERAL REGISTERS 0, 1, AND 11(LOGICAL 15). */ 00415000 */* */ 00416000 * 0150 00417000 * RESPECIFY 0150 00418000 * R11 RSTD; 0150 00419000 * R11=RRPARTC; /* RETURN CODE TO SYSEVENT ISSUER*/ 00420000 SLR R11,R11 0151 00421000 IC R11,RRPARTC(,RRPAPTR) 0151 00422000 * GENERATE CODE 0152 00423000 * (HOOK EID=IRASRM,TYPE=BPN BRANCH HOOK FOR GTF TRACING) 00424000 * ; 0152 00425000 HOOK EID=IRASRM,TYPE=BPN BRANCH HOOK FOR GTF TRACING 00426000 * GENERATE DATA; 0153 00427000 * RTNCOD=R11; /* SYSEVENT RETURN CODE */ 00428000 LR RTNCOD,R11 0154 00429000 * RESPECIFY 0155 00430000 * R11 UNRSTD; 0155 00431000 * 0155 00432000 */* */ 00433000 */* RELEASE ERROR RECOVERY ENVIRONMENT. */ 00434000 */* */ 00435000 * 0156 00436000 * GENERATE CODE REFS(PSACSTK) /* RELEASE RECOVERY ENVIRONMENT */ 00437000 * (SETFRR D,WRKREGS=(11,12)); 0156 00438000 * 0156 00439000 SETFRR D,WRKREGS=(11,12) 00440000 */* */ 00441000 */* FREE THE SRM LOCK IF IT WAS OBTAINED AT ENTRY TO THE SYSTEM */ 00442000 */* RESOURCES MANAGER. RETURN THE CPU TO THE PHYSICAL STATE(ENAB- */ 00443000 */* LED OR DISABLED) THAT EXISTED PRIOR TO OBTAINING THE SRM LOCK. */ 00444000 */* */ 00445000 * 0157 00446000 * IF(FLAGS&LOCKMASK)^='0'B THEN /* SRM LOCK SHOULD BE FREED */ 00447000 SLR @12,@12 0157 00448000 LA @11,512 0157 00449000 NR @11,FLAGS 0157 00450000 CR @11,@12 0157 00451000 BE @RF00157 0157 00452000 * DO; /* DETERMINE THE STATE IN WHICH 00453000 * THE CPU SHOULD BE RETURNED */ 00454000 * RETURNCD=RTNCOD; /* PRESERVE SYSEVENT RETURN CODE 00455000 * ACROSS SETLOCK INTERFACE */ 00456000 LR RETURNCD,RTNCOD 0159 00457000 * IF(FLAGS&STATMASK)^='0'B /* IF SRM ENTERED */ 00458000 * THEN /* PHYSICALLY ENABLED, */ 00459000 L @11,@CF01795 0160 00460000 NR @11,FLAGS 0160 00461000 CR @11,@12 0160 00462000 BE @RF00160 0160 00463000 *RMINT010: /* FREE SRM LOCK AND ENABLE */ 00464000 * GENERATE CODE REFS(PSALITA,FLC); 0161 00465000 RMINT010 DS 0H 0161 00466000 SETLOCK RELEASE,TYPE=SRM,RELATED=(SRM,IGC095(RMINT005)) 00467000 * ELSE /* SRM ENTERED DISABLED, */ 00468000 *RMINT015: /* FREE SRM LOCK AND STAY DISABLD*/ 00469000 * GENERATE CODE REFS(PSALITA,FLC); 0162 00470000 B @RC00160 0162 00471000 @RF00160 DS 0H 0162 00472000 RMINT015 DS 0H 0162 00473000 SETLOCK RELEASE,TYPE=SRM,DISABLED, XX00474000 RELATED=(SRM,IGC095(RMINT005)) 00475000 * RTNCOD=RETURNCD; /* RESTORE SYSEVENT RETURN CODE */ 00476000 @RC00160 LR RTNCOD,RETURNCD 0163 00477000 * END; 0164 00478000 * 0164 00479000 */* */ 00480000 */* PERFORM THE NECESSARY FUNCTIONS REQUIRED TO EXIT FROM THE SRM, */ 00481000 */* BASED ON WHETHER THE ENTRY WAS A BRANCH OR SVC. */ 00482000 */* */ 00483000 * 0165 00484000 * IF(FLAGS&ENTRMASK)^='0'B THEN /* SVC ENTRY TO SRM */ 00485000 @RF00157 L @12,@CF01797 0165 00486000 NR @12,FLAGS 0165 00487000 LTR @12,@12 0165 00488000 BZ @RF00165 0165 00489000 * DO; 0166 00490000 * 0166 00491000 * /*************************************************************/ 00492000 * /* */ 00493000 * /* SYSEVENT 38, REQUEST FOR ACCUMULATED USER SERVICE RELATED */ 00494000 * /* DATA, CAN BE ISSUED BY AN UNAUTHORIZED USER AND THE DATA */ 00495000 * /* AREA INTO WHICH THE SERVICE DATA IS TO BE STORED DOES NOT */ 00496000 * /* HAVE TO BE FIXED IN MAIN STORAGE. TO PREVENT DISABLED PAGE*/ 00497000 * /* FAULTS AND INVALID SRM INVOCATION AND TO INSURE SYSTEM */ 00498000 * /* INTEGRITY, THE DATA IS STORED OUTSIDE THE SRM LOCK IN THE */ 00499000 * /* USER'S STORAGE PROTECTION KEY. */ 00500000 * /* */ 00501000 * /*************************************************************/ 00502000 * 0167 00503000 * IF SYSEVCDE=CON38 THEN /* CHECK FOR SYSEVENT 38 */ 00504000 C SYSEVCDE,@CF01812 0167 00505000 BNE @RF00167 0167 00506000 * DO; 0168 00507000 * RESPECIFY 0169 00508000 * TCBPTR RSTD; 0169 00509000 * TCBPTR=PSATOLD; /* ADDRESSABILITY TO CURRENT TCB */ 00510000 L TCBPTR,PSATOLD 0170 00511000 * GENERATE CODE REFS(TCBPTR); 0171 00512000 USING TCB,TCBPTR 00513000 MODESET EXTKEY=RBT1,WORKREG=2 SWITCH TO INVOKER'S KEY 00514000 STM @04,@06,0(@01) RETURN REQUIRED DATA @ZM43092 00515000 MODESET EXTKEY=SRM SWITCH TO SRM STORAGE KEY 00516000 * RESPECIFY 0172 00517000 * TCBPTR UNRSTD; 0172 00518000 * END; 0173 00519000 * RTNREG=R8; /* SETUP RETURN REGISTER @Z40BPCH*/ 00520000 @RF00167 LR RTNREG,R8 0174 00521000 * RETURN; /* RETURN TO INVOKER */ 00522000 B @EL00001 0175 00523000 * END; 0176 00524000 * ELSE /* BRANCH ENTRY TO SRM */ 00525000 * DO; 0177 00526000 @RF00165 DS 0H 0178 00527000 * GENERATE CODE /* SWITCH TO CALLER'S KEY */ 00528000 * (MODESET KEYADDR=(2),WORKREG=2); 0178 00529000 MODESET KEYADDR=(2),WORKREG=2 00530000 * IF SYSEVCDE=CON38 THEN /* CHECK FOR SYSEVENT 38 */ 00531000 C SYSEVCDE,@CF01812 0179 00532000 BNE @RF00179 0179 00533000 * GENERATE CODE /* RETURN REQUIRED SERVICE DATA */ 00534000 * (STM @04,@06,0(@01));/* @ZM43092*/ 00535000 * 0180 00536000 STM @04,@06,0(@01) 00537000 * /*************************************************************/ 00538000 * /* */ 00539000 * /* RESTORE REGISTERS FROM INVOKER'S AREA. */ 00540000 * /* */ 00541000 * /*************************************************************/ 00542000 * 0181 00543000 * SVEREG=R8; /* SAVE AREA ADDRESS */ 00544000 @RF00179 LR SVEREG,R8 0181 00545000 * GENERATE CODE REFS(RTNREG,SVEREG); 0182 00546000 * /* 00547000 LM @02,@12,CON28(SVEREG) RESTORE REGISTERS 00548000 L RTNREG,CON12(,SVEREG) RESTORE RETURN POINT 00549000 CON28 EQU 28 00550000 CON12 EQU 12 00551000 BR RTNREG RETURN TO INVOKER 00552000 * END; 0183 00553000 * GENERATE DATA; 0184 00554000 *IRARMI10: /* SRM ABEND ENTRY POINT */ 00555000 *RMI10001: /* INVALID INVOCATION ABEND */ 00556000 * RTNCOD=RESNCODE; /* REASON CODE FOR ABEND */ 00557000 IRARMI10 DS 0H 0185 00558000 RMI10001 LR RTNCOD,RESNCODE 0185 00559000 * GENERATE CODE(ABEND X'15F',DUMP,,SYSTEM); 0186 00560000 ABEND X'15F',DUMP,,SYSTEM 00561000 * 0187 00562000 */* **************************************************************** */ 00563000 */* */ 00564000 */* IRARM000 - IRARMINT INTERNAL PROCEDURE */ 00565000 */* */ 00566000 */* FUNCTION - FOR BOTH BRANCH ENTRY AND SVC SYSEVENTS: */ 00567000 */* CHECK THE VALIDITY OF THE SYSEVENT CODE, */ 00568000 */* PERFORM SRM LOCKING AS PERMITTED BY THE */ 00569000 */* SYSEVENT CODE, */ 00570000 */* ESTABLISH THE APPROPRIATE ERROR RECOVERY */ 00571000 */* ENVIRONMENT, AND */ 00572000 */* SAVE THE INPUT IN THE AREA PROVIDED BY THE */ 00573000 */* SETFRR MACRO. */ 00574000 */* */ 00575000 */* **************************************************************** */ 00576000 * 0187 00577000 *IRARM000: 0187 00578000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0187 00579000 B @EL00001 0187 00580000 IRARM000 DS 0H 0188 00581000 * RESPECIFY 0188 00582000 * RTNSAVE RSTD; 0188 00583000 * RTNSAVE=RTNREG; /* SAVE RETURN POINT ADDRESS */ 00584000 LR RTNSAVE,RTNREG 0189 00585000 * IF SYSEVCDE>CON0& /* IF SYSEVENT CODE DEFINED TO */ 00586000 * SYSEVCDE<=DIM(IRASECHT)& /* THE SRM, PERFORM LOCKING, */ 00587000 * IRASECHT(SYSEVCDE)^=CON0 THEN/* ESTABLISH FRR AND SAVE STATUS*/ 00588000 SLR @12,@12 0190 00589000 CR SYSEVCDE,@12 0190 00590000 BNH @RF00190 0190 00591000 C SYSEVCDE,@CF01734 0190 00592000 BH @RF00190 0190 00593000 SLR @11,@11 0190 00594000 IC @11,IRASECHT-1(SYSEVCDE) 0190 00595000 CR @12,@11 0190 00596000 BE @RF00190 0190 00597000 * DO; /* IN AREA RETURNED BY SETFRR */ 00598000 * SECHTPTR= /* ADDRESSABILITY TO THE SYSEVENT*/ 00599000 * ADDR(IRASECHT(SYSEVCDE));/* CHARACTERISTICS TABLE ENTRY 00600000 * FOR THE CURRENT SYSEVENT */ 00601000 LA SECHTPTR,IRASECHT-1(SYSEVCDE) 0192 00602000 * IF SECHLOCK='1'B THEN /* IF INDICATED BY SECHT ENTRY, */ 00603000 TM SECHLOCK(SECHTPTR),B'01000000' 0193 00604000 BNO @RF00193 0193 00605000 * DO; /* OBTAIN SRM LOCK */ 00606000 * RESPECIFY 0195 00607000 * FRRADDR RSTD; 0195 00608000 *RMINT005: /* OBTAIN SRM LOCK UNCONDITIONALY*/ 00609000 * GENERATE CODE REFS(PSALITA,FLC); 0196 00610000 RMINT005 DS 0H 0196 00611000 SETLOCK OBTAIN,TYPE=SRM,MODE=UNCOND, XX00612000 RELATED=(SRM,IGC095(RMINT010,RMINT015)) 00613000 * IF R13^=CON0 THEN /* IF SRM LOCK ALREADY HELD ON */ 00614000 LTR R13,R13 0197 00615000 BZ @RF00197 0197 00616000 * DO; /* ENTRY, ABEND INVOKER */ 00617000 * RESNCODE=CON20; /* ABEND REASON CODE */ 00618000 LA RESNCODE,20 0199 00619000 * CALL RMI10001; /* ABEND INVOKER */ 00620000 BAL @14,RMI10001 0200 00621000 * END; 0201 00622000 * FRRADDR=CVTOPCTP-> /* RECOVERY RTN TO HANDLE ERRORS */ 00623000 * RMEXRR2; /* THAT OCCUR WITHIN THE SRM 0202 00624000 * UNDER THE SRM LOCK */ 00625000 @RF00197 L @12,CVTPTR 0202 00626000 L @12,CVTOPCTP(,@12) 0202 00627000 L FRRADDR,RMEXRR2(,@12) 0202 00628000 * END; 0203 00629000 * ELSE /* ENTRY TO THE SRM BY AN INVOKER 00630000 * HOLDING A LOCK HIGHER IN THE 00631000 * HIERARCHY THAN THE SRM LOCK */ 00632000 * FRRADDR=CVTOPCTP-> /* RECOVERY RTN TO HANDLE ERRORS */ 00633000 * RMEXRR1; /* THAT OCCUR WITHIN THE SRM NOT 00634000 * UNDER THE SRM LOCK */ 00635000 B @RC00193 0204 00636000 @RF00193 L @12,CVTPTR 0204 00637000 L @12,CVTOPCTP(,@12) 0204 00638000 L FRRADDR,RMEXRR1(,@12) 0204 00639000 * GENERATE CODE /* ESTABLISH ERROR RECOVERY */ 00640000 * REFS(PSACSTK,PSALSFCC); 0205 00641000 @RC00193 DS 0H 0205 00642000 * /* ENVIRONMENT */ 00643000 SETFRR A,FRRAD=(FRRADDR),PARMAD=(RRPAPTR),WRKREGS=(3,12) 00644000 * RESPECIFY 0206 00645000 * FRRADDR UNRSTD; 0206 00646000 * RRPAINC=R0; /* SAVE INPUT REGISTERS IN */ 00647000 ST R0,RRPAINC(,RRPAPTR) 0207 00648000 * RRPAINP=R1; /* RECOVERY PARAMETER AREA(RRPA) */ 00649000 ST R1,RRPAINP(,RRPAPTR) 0208 00650000 * RRPAINS=R6; /* RETURNED BY SETFRR */ 00651000 * 0209 00652000 ST R6,RRPAINS(,RRPAPTR) 0209 00653000 * /*************************************************************/ 00654000 * /* */ 00655000 * /* ESTABLISH THE STATUS OF THE SRM LOCK WITHIN THE RECOVERY */ 00656000 * /* PARAMETER AREA. */ 00657000 * /* */ 00658000 * /*************************************************************/ 00659000 * 0210 00660000 * IF SECHLOCK='1'B THEN /* SRM LOCK OBTAINED */ 00661000 TM SECHLOCK(SECHTPTR),B'01000000' 0210 00662000 BNO @RF00210 0210 00663000 * RRPAOPT='1'B; /* SET SRM LOCK OBTAINED FLAG */ 00664000 OI RRPAOPT(RRPAPTR),B'00000010' 0211 00665000 * RTNREG=RTNSAVE; /* RETURN POINT ADDRESS */ 00666000 @RF00210 LR RTNREG,RTNSAVE 0212 00667000 * END; 0213 00668000 * ELSE /* SYSEVENT CODE UNDEFINED */ 00669000 * 0214 00670000 * /***************************************************************/ 00671000 * /* */ 00672000 * /* INTERCEPT UNDEFINED SYSEVENTS - ABEND INVOKER */ 00673000 * /* */ 00674000 * /***************************************************************/ 00675000 * 0214 00676000 * DO; 0214 00677000 B @RC00190 0214 00678000 @RF00190 DS 0H 0215 00679000 * IF SYSEVCDE=CON35| /* SYSTEM STOP SYSEVENT OR */ 00680000 * SYSEVCDE=CON36 THEN /* SYSTEM START SYSEVENT */ 00681000 * 0215 00682000 C SYSEVCDE,@CF01808 0215 00683000 BE @RT00215 0215 00684000 C SYSEVCDE,@CF01810 0215 00685000 BNE @RF00215 0215 00686000 @RT00215 DS 0H 0216 00687000 * /***********************************************************/ 00688000 * /* */ 00689000 * /* ADJUST SRM TIME BASE SO THAT SYSTEM STOP/START TIME */ 00690000 * /* INTERVAL IS TRANSPARENT. */ 00691000 * /* */ 00692000 * /***********************************************************/ 00693000 * 0216 00694000 * DO; 0216 00695000 * RMCTPTR=CVTOPCTP; /* ADDRESSABILITY TO RMCT */ 00696000 L @12,CVTPTR 0217 00697000 L RMCTPTR,CVTOPCTP(,@12) 0217 00698000 * IF RMCTTBS^=CON0 THEN /* IF SRM TIME BASE INITIALIZED */ 00699000 L @12,RMCTTBS(,RMCTPTR) 0218 00700000 LTR @12,@12 0218 00701000 BZ @RF00218 0218 00702000 * DO; 0219 00703000 * RESPECIFY 0220 00704000 * (TMBSP, 0220 00705000 * TMBSC) RSTD; 0220 00706000 * GENERATE CODE REFS(RMCTTOCI,RMCTTOC); 0221 00707000 STCK RMCTTOCI(RMCTPTR) TOD CLOCK VALUE 00708000 LM @08,@09,RMCTTOCI(RMCTPTR) CURRENT TIME 00709000 BC 12,OKCLKST TOD CLOCK OPERATIONAL 00710000 LM @08,@09,RMCTTOC(RMCTPTR) TIME OF LAST ENTRY TO SRM 00711000 OKCLKST SRDL @08,MS CONVERT TIME TO 1.024 MILLISEC 00712000 * TMBSP=RMCATQS; /* START TIME OF SYSTEM STOP */ 00713000 L TMBSP,RMCATQS(,RMCTPTR) 0222 00714000 * TMBSC=TMBSC+RMCTTBS;/* SUBTRACT SRM TIME BASE FROM 0223 00715000 * CURRENT TIME */ 00716000 AL TMBSC,RMCTTBS(,RMCTPTR) 0223 00717000 * IF SYSEVCDE=CON35 THEN/* ENTER SYSTEM STOPPED STATE */ 00718000 C SYSEVCDE,@CF01808 0224 00719000 BNE @RF00224 0224 00720000 * RMCATQS=TMBSC; /* TIME OF SYSTEM STOP IS NOW */ 00721000 ST TMBSC,RMCATQS(,RMCTPTR) 0225 00722000 * ELSE /* LEAVING SYSTEM STOPPED STATE */ 00723000 * IF TMBSP^=CON0 THEN/* IF TIME RECORDED WHEN SYSTEM */ 00724000 B @RC00224 0226 00725000 @RF00224 SLR @12,@12 0226 00726000 CLR TMBSP,@12 0226 00727000 BE @RF00226 0226 00728000 * DO; /* STOPPED STATE ENTERED, ADJUST 00729000 * SRM TIME BASE BY STOP/STRT INT*/ 00730000 * RMCATQS=CON0; /* CLEAR SYSTEM STOP BEGIN TIME */ 00731000 ST @12,RMCATQS(,RMCTPTR) 0228 00732000 * RMCATRS=RMCTTBS;/* SAVE PREV SRM TIME BASE 0229 00733000 * VALUE */ 00734000 L @12,RMCTTBS(,RMCTPTR) 0229 00735000 ST @12,RMCATRS(,RMCTPTR) 0229 00736000 * RMCTTBS=RMCTTBS+/* SRM TIME BASE-(STOP 0230 00737000 * DURATION) */ 00738000 * (TMBSP-TMBSC); 0230 00739000 LR @11,TMBSP 0230 00740000 SLR @11,TMBSC 0230 00741000 ALR @12,@11 0230 00742000 ST @12,RMCTTBS(,RMCTPTR) 0230 00743000 * END; 0231 00744000 * RESPECIFY 0232 00745000 * (TMBSP, 0232 00746000 * TMBSC) UNRSTD; 0232 00747000 @RF00226 DS 0H 0232 00748000 @RC00224 DS 0H 0233 00749000 * END; 0233 00750000 * 0233 00751000 * /*********************************************************/ 00752000 * /* */ 00753000 * /* EXIT FROM SRM FOR SYSEVENTS 35 AND 36. */ 00754000 * /* */ 00755000 * /*********************************************************/ 00756000 * 0234 00757000 * GENERATE CODE; 0234 00758000 @RF00218 DS 0H 0234 00759000 LR @13,@06 SAVE AREA ADDRESS 00760000 LM @14,@12,CON12(@13) RESTORE REGISTERS 00761000 SR @15,@15 00762000 BR @14 RETURN 00763000 * END; 0235 00764000 * ELSE /* INVALID SYSEVENT */ 00765000 * DO; 0236 00766000 B @RC00215 0236 00767000 @RF00215 DS 0H 0237 00768000 * RESNCODE=CON4; /* ABEND REASON CODE */ 00769000 LA RESNCODE,4 0237 00770000 * CALL RMI10001; /* ABEND INVOKER */ 00771000 BAL @14,RMI10001 0238 00772000 * END; 0239 00773000 * END; 0240 00774000 * RESPECIFY 0241 00775000 * RTNSAVE UNRSTD; 0241 00776000 * END IRARM000; 0242 00777000 @EL00002 DS 0H 0242 00778000 @EF00002 DS 0H 0242 00779000 @ER00002 BR @14 0242 00780000 * END IRARMINT 0243 00781000 * 0243 00782000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00783000 */*%INCLUDE SYSLIB (IRACNSMP) */ 00784000 */*%INCLUDE SYSLIB (IRARMCT ) */ 00785000 */*%INCLUDE SYSLIB (IRACCT ) */ 00786000 */*%INCLUDE SYSLIB (IRAICT ) */ 00787000 */*%INCLUDE SYSLIB (IRAMCT ) */ 00788000 */*%INCLUDE SYSLIB (IRARCT ) */ 00789000 */*%INCLUDE SYSLIB (IRARMPT ) */ 00790000 */*%INCLUDE SYSLIB (IRARMCA ) */ 00791000 */*%INCLUDE SYSLIB (IRARMEX ) */ 00792000 */*%INCLUDE SYSLIB (IRARMSB ) */ 00793000 */*%INCLUDE SYSLIB (IRAEPAT ) */ 00794000 */*%INCLUDE SYSLIB (IRAEPDT ) */ 00795000 */*%INCLUDE SYSLIB (IRAEPST ) */ 00796000 */*%INCLUDE SYSLIB (IRARRPA ) */ 00797000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00798000 */*%INCLUDE SYSLIB (IRAOUCB ) */ 00799000 */*%INCLUDE SYSLIB (IHAOUXB ) */ 00800000 */*%INCLUDE SYSLIB (IHAASVT ) */ 00801000 */*%INCLUDE SYSLIB (IRARQSRV) */ 00802000 */*%INCLUDE SYSLIB (CVT ) */ 00803000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00804000 */*%INCLUDE SYSLIB (IRAREGS ) */ 00805000 * 0243 00806000 * ; 0243 00807000 @DATA DS 0H 00808000 DS 0F 00809000 DS 0F 00810000 @CF00303 DC F'6' 00811000 @CF01808 DC F'35' 00812000 @CF01810 DC F'36' 00813000 @CF01812 DC F'38' 00814000 @CF01814 DC F'41' 00815000 @CF01816 DC F'42' 00816000 @CF01734 DC F'49' 00817000 @CF01802 DC F'112' 00818000 @CF01818 DC XL4'000000FF' 00819000 @CF01843 DC XL4'0000FFFF' 00820000 @CF01795 DC XL4'4000' 00821000 @CF01797 DC XL4'2000' 00822000 DS 0D 00823000 @CC01825 DC C'OUCB' 00824000 IRASECHT DC B'11101000' 00825000 DC B'11000000' 00826000 DC B'11001100' 00827000 DC B'10100000' 00828000 DC B'00000000' 00829000 DC B'11010000' 00830000 DC B'11010000' 00831000 DC B'11011100' 00832000 DC B'11011100' 00833000 DC B'11011100' 00834000 DC B'11011100' 00835000 DC B'11011100' 00836000 DC B'11001100' 00837000 DC B'11011100' 00838000 DC B'10100100' 00839000 DC B'10100100' 00840000 DC B'11000100' 00841000 DC B'11011100' 00842000 DC B'11011100' 00843000 DC B'11000000' 00844000 DC B'11000000' 00845000 DC B'10101010' 00846000 DC B'10101000' 00847000 DC B'10101000' 00848000 DC B'10101000' 00849000 DC B'10101000' 00850000 DC B'00000000' 00851000 DC B'11011100' 00852000 DC B'11011100' 00853000 DC B'11011100' 00854000 DC B'11010000' 00855000 DC B'11011100' 00856000 DC B'11101000' 00857000 DC B'11001100' 00858000 DC B'00000000' 00859000 DC B'00000000' 00860000 DC B'11001000' 00861000 DC B'11011100' 00862000 DC B'11011100' 00863000 DC B'11001000' 00864000 DC B'11011100' 00865000 DC B'11011100' 00866000 DC B'11011100' 00867000 DC B'11011100' 00868000 DC B'11011100' 00869000 DC B'11101100' 00870000 DC B'11011100' 00871000 DC B'11001100' 00872000 DC B'11011100' 00873000 IRARMINT CSECT 00874000 IEACON2 DC V(AHLMCIHB) BRANCH ENTRY HOOK ADDRESS); 00875000 IRARMTRC EQU IEACON2 EXTERNAL NAME FOR SRM TRACE RTN 00876000 ENTRY IRARMTRC 00877000 IRARMINT CSECT 00878000 * /* 00879000 IKJTCB 00880000 IHARB 00881000 IHAFRRS 00882000 IRARMINT CSECT 00883000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00884000 @01 EQU 01 00885000 @02 EQU 02 00886000 @03 EQU 03 00887000 @04 EQU 04 00888000 @05 EQU 05 00889000 @06 EQU 06 00890000 @07 EQU 07 00891000 @08 EQU 08 00892000 @09 EQU 09 00893000 @10 EQU 10 00894000 @11 EQU 11 00895000 @12 EQU 12 00896000 @13 EQU 13 00897000 @14 EQU 14 00898000 @15 EQU 15 00899000 RMCTPTR EQU @02 00900000 RRPAPTR EQU @03 00901000 ASCBPTR EQU @05 00902000 OUCBPTR EQU @04 00903000 OUXBPTR EQU @06 00904000 SECHTPTR EQU @05 00905000 R0 EQU @00 00906000 R1 EQU @01 00907000 SVEREG EQU @13 00908000 RTNREG EQU @14 00909000 NTRREG EQU @15 00910000 RTNCOD EQU @15 00911000 R2 EQU @02 00912000 R4 EQU @04 00913000 R5 EQU @05 00914000 R6 EQU @06 00915000 R8 EQU @08 00916000 R11 EQU @11 00917000 R13 EQU @13 00918000 R14 EQU @14 00919000 R15 EQU @15 00920000 RESNCODE EQU @00 00921000 PSWKEY EQU @02 00922000 RETURNCD EQU @03 00923000 SYSEVCDE EQU @07 00924000 TMBSP EQU @08 00925000 TMBSC EQU @09 00926000 RTNSAVE EQU @09 00927000 FLAGS EQU @09 00928000 TCBPTR EQU @11 00929000 FRRADDR EQU @11 00930000 R10 EQU @10 00931000 R12 EQU @12 00932000 R3 EQU @03 00933000 R7 EQU @07 00934000 R9 EQU @09 00935000 ENTRY IRASECHT 00936000 ENTRY IRARMI10 00937000 PSA EQU 0 00938000 FLCRNPSW EQU PSA 00939000 FLCROPSW EQU PSA+8 00940000 FLCICCW2 EQU PSA+16 00941000 FLCCVT EQU FLCICCW2 00942000 PSAEEPSW EQU PSA+132 00943000 PSAESPSW EQU PSA+136 00944000 FLCSVILC EQU PSAESPSW+1 00945000 PSAEPPSW EQU PSA+140 00946000 FLCPIILC EQU PSAEPPSW+1 00947000 FLCPICOD EQU PSAEPPSW+2 00948000 PSAPICOD EQU FLCPICOD+1 00949000 FLCTEA EQU PSAEPPSW+4 00950000 FLCPER EQU PSA+152 00951000 FLCMCLA EQU PSA+168 00952000 FLCIOEL EQU FLCMCLA+4 00953000 FLCIOA EQU FLCMCLA+16 00954000 FLCFSA EQU FLCMCLA+80 00955000 PSATOLD EQU PSA+540 00956000 PSAAOLD EQU PSA+548 00957000 PSASUPER EQU PSA+552 00958000 PSASUP1 EQU PSASUPER 00959000 PSASUP2 EQU PSASUPER+1 00960000 PSASUP3 EQU PSASUPER+2 00961000 PSASUP4 EQU PSASUPER+3 00962000 PSACLHT EQU PSA+640 00963000 PSALKSA EQU PSA+696 00964000 PSAHLHI EQU PSA+760 00965000 PSALITA EQU PSA+764 00966000 PSADSSFL EQU PSA+836 00967000 PSADSSF1 EQU PSADSSFL 00968000 PSADSSF3 EQU PSADSSFL+2 00969000 PSADSSF4 EQU PSADSSFL+3 00970000 PSARSVT EQU PSA+896 00971000 PSALSFCC EQU PSA+1012 00972000 RMCT EQU 0 00973000 RMCTTBS EQU RMCT+120 00974000 RMCTTOD EQU RMCT+124 00975000 RMCTTOC EQU RMCT+128 00976000 RMCTRQSV EQU RMCT+144 00977000 RMCTFLGS EQU RMCT+148 00978000 RMCTINIT EQU RMCTFLGS 00979000 RMCTTOCI EQU RMCT+160 00980000 CCT EQU RMCT+192 00981000 CCTFLG1 EQU CCT+124 00982000 ICT EQU RMCT+320 00983000 ICTFLAGS EQU ICT+84 00984000 MCT EQU RMCT+408 00985000 MCTSFLGS EQU MCT+64 00986000 MCTOFLGS EQU MCT+65 00987000 RCT EQU RMCT+504 00988000 RMPT EQU RMCT+592 00989000 RMPTTCS EQU RMPT+20 00990000 RMCA EQU RMCT+664 00991000 RMCATQS EQU RMCA+12 00992000 RMCATRS EQU RMCA+16 00993000 RMCAFLGS EQU RMCA+36 00994000 RMCAMAS EQU RMCA+76 00995000 RMCASRC EQU RMCA+124 00996000 RMEX EQU RMCT+832 00997000 RMEPBEVT EQU RMEX 00998000 RMEXEVT EQU RMEPBEVT 00999000 RMEPBCTL EQU RMEX+16 01000000 RMEXI01 EQU RMEX+32 01001000 RMEXRR1 EQU RMEX+48 01002000 RMEXRR2 EQU RMEX+52 01003000 RMSB EQU RMCT+896 01004000 EPAT EQU RMCT+1016 01005000 EPDT EQU RMCT+1416 01006000 EPST EQU RMCT+1512 01007000 RMEPBWM3 EQU EPST 01008000 RMEPBIL3 EQU EPST+16 01009000 RMEPBCL3 EQU EPST+32 01010000 RMEPBCSO EQU EPST+48 01011000 RMEPBCSI EQU EPST+64 01012000 RRPA EQU 0 01013000 RRPAINC EQU RRPA 01014000 RRPAASD EQU RRPAINC 01015000 RRPAVPGN EQU RRPAINC+2 01016000 RRPAFLG0 EQU RRPAVPGN 01017000 RRPACOD EQU RRPAINC+3 01018000 RRPAINP EQU RRPA+4 01019000 RRPAFLG EQU RRPA+8 01020000 RRPADSB EQU RRPAFLG 01021000 RRPAENB EQU RRPAFLG 01022000 RRPASVC EQU RRPAFLG 01023000 RRPAOPT EQU RRPAFLG 01024000 RRPAKEY EQU RRPA+10 01025000 RRPARTC EQU RRPA+11 01026000 RRPATOD EQU RRPA+12 01027000 RRPAINS EQU RRPA+16 01028000 RRPAEPA EQU RRPA+20 01029000 ASCB EQU 0 01030000 ASCBSUPC EQU ASCB+16 01031000 ASCBASID EQU ASCB+36 01032000 ASCBRSM EQU ASCB+52 01033000 ASCBRSMF EQU ASCBRSM 01034000 ASCBFW1 EQU ASCB+100 01035000 ASCBRCTF EQU ASCBFW1+2 01036000 ASCBFLG1 EQU ASCBFW1+3 01037000 ASCBDSP1 EQU ASCB+114 01038000 ASCBFLG2 EQU ASCB+115 01039000 ASCBLKGP EQU ASCB+128 01040000 ASCBOUCB EQU ASCB+144 01041000 ASCBSRQ EQU ASCB+180 01042000 ASCBSRQ1 EQU ASCBSRQ 01043000 ASCBSRQ2 EQU ASCBSRQ+1 01044000 ASCBSRQ3 EQU ASCBSRQ+2 01045000 ASCBSRQ4 EQU ASCBSRQ+3 01046000 OUCB EQU 0 01047000 OUCBNAME EQU OUCB 01048000 OUCBQFL EQU OUCB+16 01049000 OUCBSFL EQU OUCB+17 01050000 OUCBINV EQU OUCBSFL 01051000 OUCBYFL EQU OUCB+18 01052000 OUCBAFL EQU OUCB+19 01053000 OUCBTFL EQU OUCB+20 01054000 OUCBEFL EQU OUCB+21 01055000 OUCBUFL EQU OUCB+23 01056000 OUCBCSW EQU OUCB+84 01057000 OUCBCFL EQU OUCBCSW+2 01058000 OUCBPSS EQU OUCB+112 01059000 OUXB EQU 0 01060000 ASVT EQU 0 01061000 ASVTMAXU EQU ASVT+516 01062000 ASVTFRST EQU ASVT+524 01063000 ASVTENTY EQU ASVT+528 01064000 RQSV EQU 0 01065000 RQSVDATA EQU RQSV 01066000 RQSVPGSC EQU RQSVDATA+8 01067000 CVTMAP EQU 0 01068000 CVT EQU CVTMAP 01069000 CVTDAR EQU CVTMAP+72 01070000 CVTFLGS1 EQU CVTDAR 01071000 CVTDCB EQU CVTMAP+116 01072000 CVTIOQET EQU CVTMAP+120 01073000 CVTIERLC EQU CVTMAP+144 01074000 CVTHEAD EQU CVTMAP+160 01075000 CVTSV76C EQU CVTHEAD 01076000 CVTOPTA EQU CVTMAP+182 01077000 CVTOPTB EQU CVTMAP+183 01078000 CVTGTF EQU CVTMAP+236 01079000 CVTGTFST EQU CVTGTF 01080000 CVTGTFS EQU CVTGTFST 01081000 CVTSTATE EQU CVTGTFST 01082000 CVTTMODE EQU CVTGTFST 01083000 CVTFORM EQU CVTGTFST 01084000 CVTAQAVT EQU CVTMAP+240 01085000 CVTTCMFG EQU CVTAQAVT 01086000 CVTVOLM2 EQU CVTMAP+244 01087000 CVTTATA EQU CVTVOLM2 01088000 CVTTSKS EQU CVTTATA 01089000 CVTVOLF2 EQU CVTTSKS 01090000 CVTTAT EQU CVTTATA+1 01091000 CVTATER EQU CVTMAP+248 01092000 CVTEXT1 EQU CVTMAP+252 01093000 CVTPURG EQU CVTMAP+260 01094000 CVTQMSG EQU CVTMAP+268 01095000 CVTDMSR EQU CVTMAP+272 01096000 CVTRSV37 EQU CVTDMSR 01097000 CVTDMSRF EQU CVTRSV37 01098000 CVTERPV EQU CVTMAP+316 01099000 CVTINTLA EQU CVTMAP+320 01100000 CVTAPF EQU CVTMAP+324 01101000 CVTEXT2 EQU CVTMAP+328 01102000 CVTHJES EQU CVTMAP+332 01103000 CVTPGSIA EQU CVTMAP+348 01104000 CVTA1F1 EQU CVTMAP+356 01105000 CVTSYSK EQU CVTMAP+357 01106000 CVTVOLM1 EQU CVTMAP+380 01107000 CVTVOLF1 EQU CVTVOLM1 01108000 CVTATMCT EQU CVTMAP+388 01109000 CVTXTNT1 EQU 0 01110000 CVTXTNT2 EQU 0 01111000 CVTDSSV EQU CVTXTNT2 01112000 CVTFLGBT EQU CVTXTNT2+5 01113000 CVTQID EQU CVTXTNT2+24 01114000 CVTRV400 EQU CVTXTNT2+52 01115000 CVTRV409 EQU CVTXTNT2+53 01116000 CVTATCVT EQU CVTXTNT2+64 01117000 CVTRV429 EQU CVTXTNT2+84 01118000 CVTRV438 EQU CVTXTNT2+85 01119000 CVTRV457 EQU CVTXTNT2+112 01120000 CVTRV466 EQU CVTXTNT2+113 01121000 CVTFIX EQU 0 01122000 CVTRELNO EQU CVTFIX+252 01123000 SECHTNTR EQU 0 01124000 SECHLOCK EQU SECHTNTR 01125000 SECHSTAT EQU SECHTNTR 01126000 SECHASID EQU SECHTNTR 01127000 SECHOBID EQU SECHTNTR 01128000 SECHINIT EQU SECHTNTR 01129000 IRARMNTR EQU 0 01130000 IRARMRTN EQU 0 01131000 CVTS01 EQU CVTPGSIA 01132000 CVTLPDIA EQU CVTS01+12 01133000 CVTDIRST EQU CVTLPDIA 01134000 CVTSLIDA EQU CVTS01+24 01135000 CVTCTLFG EQU CVTS01+50 01136000 CVTASVT EQU CVTS01+208 01137000 CVTOPCTP EQU CVTS01+256 01138000 CVTRV210 EQU CVTS01+424 01139000 CVTRV219 EQU CVTS01+425 01140000 CVTRV228 EQU CVTS01+426 01141000 CVTRV237 EQU CVTS01+427 01142000 CVTMFRTR EQU CVTS01+452 01143000 CVTRV262 EQU CVTS01+468 01144000 CVTRV271 EQU CVTS01+469 01145000 CVTRV280 EQU CVTS01+470 01146000 CVTRV289 EQU CVTS01+471 01147000 CVTGSDA EQU CVTS01+600 01148000 ASVTPTR EQU CVTASVT 01149000 RQSVPTR EQU RMCTRQSV 01150000 CVTPTR EQU FLCCVT 01151000 FLC EQU PSA 01152000 PSARSVTE EQU PSARSVT 01153000 PSACSTK EQU PSARSVTE 01154000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01155000 PSARSAV EQU PSARSVTE+60 01156000 PSARSTK EQU PSARSVTE+56 01157000 PSAESAV3 EQU PSARSVTE+52 01158000 PSAESTK3 EQU PSARSVTE+48 01159000 PSAESAV2 EQU PSARSVTE+44 01160000 PSAESTK2 EQU PSARSVTE+40 01161000 PSAESAV1 EQU PSARSVTE+36 01162000 PSAESTK1 EQU PSARSVTE+32 01163000 PSAPSAV EQU PSARSVTE+28 01164000 PSAPSTK EQU PSARSVTE+24 01165000 PSAMSAV EQU PSARSVTE+20 01166000 PSAMSTK EQU PSARSVTE+16 01167000 PSASSAV EQU PSARSVTE+12 01168000 PSASSTK EQU PSARSVTE+8 01169000 PSANSTK EQU PSARSVTE+4 01170000 CVTRV628 EQU CVTS01+728 01171000 CVTRV627 EQU CVTS01+724 01172000 CVTRV626 EQU CVTS01+720 01173000 CVTRV625 EQU CVTS01+716 01174000 CVTRV624 EQU CVTS01+712 01175000 CVTRV623 EQU CVTS01+708 01176000 CVTRV622 EQU CVTS01+704 01177000 CVTRV621 EQU CVTS01+700 01178000 CVTIHASU EQU CVTS01+696 01179000 CVTSUSP EQU CVTS01+692 01180000 CVTT6SVC EQU CVTS01+688 01181000 CVTCDAL EQU CVTS01+684 01182000 CVTTCTL EQU CVTS01+680 01183000 CVTRSUME EQU CVTS01+676 01184000 CVTJTERM EQU CVTS01+672 01185000 CVTASMRM EQU CVTS01+668 01186000 CVTTCASP EQU CVTS01+664 01187000 CVT0PT03 EQU CVTS01+660 01188000 CVT0PT0E EQU CVTS01+656 01189000 CVTRV609 EQU CVTS01+652 01190000 CVTCGK EQU CVTS01+648 01191000 CVTRAC EQU CVTS01+644 01192000 CVTHSM EQU CVTS01+640 01193000 CVTRV605 EQU CVTS01+636 01194000 CVTRV604 EQU CVTS01+632 01195000 CVTEFF02 EQU CVTS01+628 01196000 CVTCBBR EQU CVTS01+624 01197000 CVTSSCR EQU CVTS01+620 01198000 CVTEVENT EQU CVTS01+616 01199000 CVTCRCA EQU CVTS01+612 01200000 CVTTPIO EQU CVTS01+608 01201000 CVTADV EQU CVTS01+604 01202000 CVTGSDAB EQU CVTGSDA 01203000 CVTQV3 EQU CVTS01+596 01204000 CVTQV2 EQU CVTS01+592 01205000 CVTQV1 EQU CVTS01+588 01206000 CVTRPT EQU CVTS01+584 01207000 CVTSSRB EQU CVTS01+580 01208000 CVTCSDRL EQU CVTS01+576 01209000 CVTEXP1 EQU CVTS01+572 01210000 CVTRMPMT EQU CVTS01+568 01211000 CVTRMPTT EQU CVTS01+564 01212000 CVTVPSA EQU CVTS01+560 01213000 CVTVSTOP EQU CVTS01+556 01214000 CVTGTFR8 EQU CVTS01+552 01215000 CVTQUIT EQU CVTS01+548 01216000 CVTVACR EQU CVTS01+544 01217000 CVTWTCB EQU CVTS01+540 01218000 CVTSTPRS EQU CVTS01+536 01219000 CVT0PT02 EQU CVTS01+532 01220000 CVTDARCM EQU CVTS01+528 01221000 CVTIRECM EQU CVTS01+524 01222000 CVTJRECM EQU CVTS01+520 01223000 CVTVEMS0 EQU CVTS01+516 01224000 CVTSPFRR EQU CVTS01+512 01225000 CVTRLSTG EQU CVTS01+508 01226000 CVT0TC0A EQU CVTS01+504 01227000 CVTGMBR EQU CVTS01+500 01228000 CVTLFRM EQU CVTS01+496 01229000 CVTRMBR EQU CVTS01+492 01230000 CVTVIOP EQU CVTS01+488 01231000 CVTRV307 EQU CVTS01+486 01232000 CVTRV306 EQU CVTS01+484 01233000 CVTRV305 EQU CVTS01+482 01234000 CVTRV304 EQU CVTS01+480 01235000 CVTRV303 EQU CVTS01+478 01236000 CVTRV302 EQU CVTS01+476 01237000 CVTTRCA EQU CVTS01+472 01238000 CVTRV297 EQU CVTRV289 01239000 CVTRV296 EQU CVTRV289 01240000 CVTRV295 EQU CVTRV289 01241000 CVTRV294 EQU CVTRV289 01242000 CVTRV293 EQU CVTRV289 01243000 CVTRV292 EQU CVTRV289 01244000 CVTRV291 EQU CVTRV289 01245000 CVTRV290 EQU CVTRV289 01246000 CVTRV288 EQU CVTRV280 01247000 CVTRV287 EQU CVTRV280 01248000 CVTRV286 EQU CVTRV280 01249000 CVTRV285 EQU CVTRV280 01250000 CVTRV284 EQU CVTRV280 01251000 CVTRV283 EQU CVTRV280 01252000 CVTRV282 EQU CVTRV280 01253000 CVTRV281 EQU CVTRV280 01254000 CVTRV279 EQU CVTRV271 01255000 CVTRV278 EQU CVTRV271 01256000 CVTRV277 EQU CVTRV271 01257000 CVTRV276 EQU CVTRV271 01258000 CVTRV275 EQU CVTRV271 01259000 CVTRV274 EQU CVTRV271 01260000 CVTRV273 EQU CVTRV271 01261000 CVTRV272 EQU CVTRV271 01262000 CVTRV270 EQU CVTRV262 01263000 CVTRV269 EQU CVTRV262 01264000 CVTRV268 EQU CVTRV262 01265000 CVTRV267 EQU CVTRV262 01266000 CVTRV266 EQU CVTRV262 01267000 CVTRV265 EQU CVTRV262 01268000 CVTRV264 EQU CVTRV262 01269000 CVTRV263 EQU CVTRV262 01270000 CVTVFP EQU CVTS01+464 01271000 CVTVSI EQU CVTS01+460 01272000 CVTVPSIB EQU CVTS01+456 01273000 CVTMFACT EQU CVTMFRTR 01274000 CVTMFCTL EQU CVTS01+448 01275000 CVTPVBP EQU CVTS01+444 01276000 CVTPWI EQU CVTS01+440 01277000 CVTRV254 EQU CVTS01+438 01278000 CVTRV253 EQU CVTS01+436 01279000 CVTRV252 EQU CVTS01+434 01280000 CVTRV251 EQU CVTS01+433 01281000 CVTRV250 EQU CVTS01+432 01282000 CVTRV249 EQU CVTS01+431 01283000 CVTRV248 EQU CVTS01+430 01284000 CVTRV247 EQU CVTS01+429 01285000 CVTRV246 EQU CVTS01+428 01286000 CVTRV245 EQU CVTRV237 01287000 CVTRV244 EQU CVTRV237 01288000 CVTRV243 EQU CVTRV237 01289000 CVTRV242 EQU CVTRV237 01290000 CVTRV241 EQU CVTRV237 01291000 CVTRV240 EQU CVTRV237 01292000 CVTRV239 EQU CVTRV237 01293000 CVTRV238 EQU CVTRV237 01294000 CVTRV236 EQU CVTRV228 01295000 CVTRV235 EQU CVTRV228 01296000 CVTRV234 EQU CVTRV228 01297000 CVTRV233 EQU CVTRV228 01298000 CVTRV232 EQU CVTRV228 01299000 CVTRV231 EQU CVTRV228 01300000 CVTRV230 EQU CVTRV228 01301000 CVTRV229 EQU CVTRV228 01302000 CVTRV227 EQU CVTRV219 01303000 CVTRV226 EQU CVTRV219 01304000 CVTRV225 EQU CVTRV219 01305000 CVTRV224 EQU CVTRV219 01306000 CVTRV223 EQU CVTRV219 01307000 CVTRV222 EQU CVTRV219 01308000 CVTRV221 EQU CVTRV219 01309000 CVTRV220 EQU CVTRV219 01310000 CVTRV218 EQU CVTRV210 01311000 CVTRV217 EQU CVTRV210 01312000 CVTRV216 EQU CVTRV210 01313000 CVTRV215 EQU CVTRV210 01314000 CVTRV214 EQU CVTRV210 01315000 CVTRV213 EQU CVTRV210 01316000 CVTRV212 EQU CVTRV210 01317000 CVTRV211 EQU CVTRV210 01318000 CVTLCCAT EQU CVTS01+420 01319000 CVTPCCAT EQU CVTS01+416 01320000 CVTIPCRP EQU CVTS01+412 01321000 CVTIPCRI EQU CVTS01+408 01322000 CVTIPCDS EQU CVTS01+404 01323000 CVTAIDVT EQU CVTS01+400 01324000 CVTSSAP EQU CVTS01+396 01325000 CVTEHCIR EQU CVTS01+392 01326000 CVTEHDEF EQU CVTS01+388 01327000 CVTDAIR EQU CVTS01+384 01328000 CVTPERFM EQU CVTS01+380 01329000 CVT044R2 EQU CVTS01+376 01330000 CVTFETCH EQU CVTS01+372 01331000 CVTRSTWD EQU CVTS01+368 01332000 CVTSPOST EQU CVTS01+364 01333000 CVTIOBP EQU CVTS01+360 01334000 CVTASMVT EQU CVTS01+356 01335000 CVTRECRQ EQU CVTS01+352 01336000 CVTWSAC EQU CVTS01+348 01337000 CVTRV149 EQU CVTS01+344 01338000 CVTWSAL EQU CVTS01+340 01339000 CVTSPSA EQU CVTS01+336 01340000 CVTGLMN EQU CVTS01+332 01341000 CVTVEAC0 EQU CVTS01+328 01342000 CVT062R1 EQU CVTS01+324 01343000 CVTRPOST EQU CVTS01+320 01344000 CVTDQIQE EQU CVTS01+316 01345000 CVTCSD EQU CVTS01+312 01346000 CVTLKRMA EQU CVTS01+308 01347000 CVTRSPIE EQU CVTS01+304 01348000 CVTRENQ EQU CVTS01+300 01349000 CVTLQCB EQU CVTS01+296 01350000 CVTFQCB EQU CVTS01+292 01351000 CVTQCS01 EQU CVTS01+288 01352000 CVTAPFT EQU CVTS01+284 01353000 CVTPARRL EQU CVTS01+280 01354000 CVTVWAIT EQU CVTS01+276 01355000 CVTGSPL EQU CVTS01+272 01356000 CVTLSMQ EQU CVTS01+268 01357000 CVTGSMQ EQU CVTS01+264 01358000 CVTEXPRO EQU CVTS01+260 01359000 CVTSIC EQU CVTS01+252 01360000 CVTTPIOS EQU CVTS01+248 01361000 CVTRTMS EQU CVTS01+244 01362000 CVTSDBF EQU CVTS01+240 01363000 CVTSCBP EQU CVTS01+236 01364000 CVTSDMP EQU CVTS01+232 01365000 CVTSV60 EQU CVTS01+228 01366000 CVTRTMCT EQU CVTS01+224 01367000 CVTASCBL EQU CVTS01+220 01368000 CVTASCBH EQU CVTS01+216 01369000 CVTGDA EQU CVTS01+212 01370000 CVTVVMDI EQU CVTS01+204 01371000 CVTAQTOP EQU CVTS01+200 01372000 CVTIOSCS EQU CVTS01+196 01373000 CVTSDRM EQU CVTS01+192 01374000 CVTOPTE EQU CVTS01+188 01375000 CVTSTXU EQU CVTS01+184 01376000 CVTQUIS EQU CVTS01+180 01377000 CVTPARS EQU CVTS01+176 01378000 CVTS1EE EQU CVTS01+172 01379000 CVTFRAS EQU CVTS01+168 01380000 CVTQSAS EQU CVTS01+164 01381000 CVTCRAS EQU CVTS01+160 01382000 CVTCRMN EQU CVTS01+156 01383000 CVTDELCP EQU CVTS01+152 01384000 CVTFRECL EQU CVTS01+148 01385000 CVTGETCL EQU CVTS01+144 01386000 CVTBLDCP EQU CVTS01+140 01387000 CVTAUTHL EQU CVTS01+136 01388000 CVTSCAN EQU CVTS01+132 01389000 CVTRV144 EQU CVTS01+130 01390000 CVTMAXMP EQU CVTS01+128 01391000 CVTSTCK EQU CVTS01+124 01392000 CVTRV139 EQU CVTS01+123 01393000 CVTDSSAC EQU CVTS01+122 01394000 CVTRV513 EQU CVTS01+121 01395000 CVTIOSPL EQU CVTS01+120 01396000 CVTPTGT EQU CVTS01+116 01397000 CVTCSPIE EQU CVTS01+112 01398000 CVTSMFEX EQU CVTS01+108 01399000 CVTOLT0A EQU CVTS01+104 01400000 CVTSRBRT EQU CVTS01+100 01401000 CVTPUTL EQU CVTS01+96 01402000 CVTASCRL EQU CVTS01+92 01403000 CVTASCRF EQU CVTS01+88 01404000 CVTRV326 EQU CVTS01+84 01405000 CVTRV325 EQU CVTS01+80 01406000 CVTRV324 EQU CVTS01+76 01407000 CVT0VL01 EQU CVTS01+72 01408000 CVTSHRVM EQU CVTS01+68 01409000 CVTRV332 EQU CVTS01+64 01410000 CVTTAS EQU CVTS01+60 01411000 CVTRSCN EQU CVTS01+56 01412000 CVTTRAC2 EQU CVTS01+54 01413000 CVTTRACE EQU CVTS01+52 01414000 CVTAPG EQU CVTS01+51 01415000 CVTSDTRC EQU CVTCTLFG 01416000 CVTGTRCE EQU CVTCTLFG 01417000 CVTNOMP EQU CVTCTLFG 01418000 CVTRSV79 EQU CVTCTLFG 01419000 CVTDSTAT EQU CVTCTLFG 01420000 CVTRSV78 EQU CVTCTLFG 01421000 CVTRV333 EQU CVTCTLFG 01422000 CVTRV323 EQU CVTCTLFG 01423000 CVTSPVLK EQU CVTS01+49 01424000 CVTRSV77 EQU CVTS01+48 01425000 CVTRV331 EQU CVTS01+44 01426000 CVTRV330 EQU CVTS01+40 01427000 CVTRV329 EQU CVTS01+36 01428000 CVTRV328 EQU CVTS01+32 01429000 CVTRV322 EQU CVTS01+28 01430000 CVTSLID EQU CVTSLIDA+1 01431000 CVTSYLK EQU CVTSLIDA 01432000 CVTRV321 EQU CVTS01+20 01433000 CVTRV320 EQU CVTS01+16 01434000 CVTLPDIR EQU CVTLPDIA+1 01435000 CVTRSV69 EQU CVTDIRST 01436000 CVTRSV68 EQU CVTDIRST 01437000 CVTRSV67 EQU CVTDIRST 01438000 CVTRSV66 EQU CVTDIRST 01439000 CVTRSV65 EQU CVTDIRST 01440000 CVTRSV64 EQU CVTDIRST 01441000 CVTRSV63 EQU CVTDIRST 01442000 CVTDICOM EQU CVTDIRST 01443000 CVTPVTP EQU CVTS01+8 01444000 CVTLPDSR EQU CVTS01+4 01445000 CVTGETL EQU CVTS01 01446000 @NM00030 EQU SECHTNTR 01447000 SECHENTR EQU SECHTNTR 01448000 SECHVALD EQU SECHTNTR 01449000 CVTLEVL EQU CVTRELNO+2 01450000 CVTNUMB EQU CVTRELNO 01451000 CVTMDL EQU CVTFIX+250 01452000 @NM00005 EQU CVTFIX+248 01453000 @NM00004 EQU CVTFIX 01454000 CVTRV482 EQU CVTXTNT2+128 01455000 CVTRV481 EQU CVTXTNT2+124 01456000 CVTRV480 EQU CVTXTNT2+120 01457000 CVTRV479 EQU CVTXTNT2+118 01458000 CVTRV478 EQU CVTXTNT2+117 01459000 CVTRV477 EQU CVTXTNT2+116 01460000 CVTRV476 EQU CVTXTNT2+115 01461000 CVTRV475 EQU CVTXTNT2+114 01462000 CVTRV474 EQU CVTRV466 01463000 CVTRV473 EQU CVTRV466 01464000 CVTRV472 EQU CVTRV466 01465000 CVTRV471 EQU CVTRV466 01466000 CVTRV470 EQU CVTRV466 01467000 CVTRV469 EQU CVTRV466 01468000 CVTRV468 EQU CVTRV466 01469000 CVTRV467 EQU CVTRV466 01470000 CVTRV465 EQU CVTRV457 01471000 CVTRV464 EQU CVTRV457 01472000 CVTRV463 EQU CVTRV457 01473000 CVTRV462 EQU CVTRV457 01474000 CVTRV461 EQU CVTRV457 01475000 CVTRV460 EQU CVTRV457 01476000 CVTRV459 EQU CVTRV457 01477000 CVTRV458 EQU CVTRV457 01478000 CVTRV456 EQU CVTXTNT2+108 01479000 CVTRV455 EQU CVTXTNT2+104 01480000 CVTRV454 EQU CVTXTNT2+100 01481000 CVTRV453 EQU CVTXTNT2+96 01482000 CVTRV452 EQU CVTXTNT2+94 01483000 CVTRV451 EQU CVTXTNT2+92 01484000 CVTRV450 EQU CVTXTNT2+90 01485000 CVTRV449 EQU CVTXTNT2+88 01486000 CVTRV448 EQU CVTXTNT2+87 01487000 CVTRV447 EQU CVTXTNT2+86 01488000 CVTRV446 EQU CVTRV438 01489000 CVTRV445 EQU CVTRV438 01490000 CVTRV444 EQU CVTRV438 01491000 CVTRV443 EQU CVTRV438 01492000 CVTRV442 EQU CVTRV438 01493000 CVTRV441 EQU CVTRV438 01494000 CVTRV440 EQU CVTRV438 01495000 CVTRV439 EQU CVTRV438 01496000 CVTRV437 EQU CVTRV429 01497000 CVTRV436 EQU CVTRV429 01498000 CVTRV435 EQU CVTRV429 01499000 CVTRV434 EQU CVTRV429 01500000 CVTRV433 EQU CVTRV429 01501000 CVTRV432 EQU CVTRV429 01502000 CVTRV431 EQU CVTRV429 01503000 CVTRV430 EQU CVTRV429 01504000 CVTRV428 EQU CVTXTNT2+80 01505000 CVTRV427 EQU CVTXTNT2+76 01506000 CVTRV426 EQU CVTXTNT2+72 01507000 CVTRV425 EQU CVTXTNT2+68 01508000 CVTATACT EQU CVTATCVT 01509000 CVTRV423 EQU CVTXTNT2+62 01510000 CVTRV422 EQU CVTXTNT2+60 01511000 CVTRV421 EQU CVTXTNT2+58 01512000 CVTRV420 EQU CVTXTNT2+56 01513000 CVTRV419 EQU CVTXTNT2+55 01514000 CVTRV418 EQU CVTXTNT2+54 01515000 CVTRV417 EQU CVTRV409 01516000 CVTRV416 EQU CVTRV409 01517000 CVTRV415 EQU CVTRV409 01518000 CVTRV414 EQU CVTRV409 01519000 CVTRV413 EQU CVTRV409 01520000 CVTRV412 EQU CVTRV409 01521000 CVTRV411 EQU CVTRV409 01522000 CVTRV410 EQU CVTRV409 01523000 CVTRV408 EQU CVTRV400 01524000 CVTRV407 EQU CVTRV400 01525000 CVTRV406 EQU CVTRV400 01526000 CVTRV405 EQU CVTRV400 01527000 CVTRV404 EQU CVTRV400 01528000 CVTRV403 EQU CVTRV400 01529000 CVTRV402 EQU CVTRV400 01530000 CVTRV401 EQU CVTRV400 01531000 CVTICB EQU CVTXTNT2+48 01532000 CVTSKTA EQU CVTXTNT2+44 01533000 CVTCCVT EQU CVTXTNT2+40 01534000 CVTRSV98 EQU CVTXTNT2+36 01535000 CVTRSV97 EQU CVTXTNT2+34 01536000 CVTRSV96 EQU CVTXTNT2+32 01537000 CVTOLTEP EQU CVTXTNT2+28 01538000 CVTQIDA EQU CVTQID+1 01539000 CVTRSV95 EQU CVTQID 01540000 CVTRSV94 EQU CVTXTNT2+20 01541000 CVTRSV93 EQU CVTXTNT2+16 01542000 CVTRSV92 EQU CVTXTNT2+12 01543000 CVTDEBVR EQU CVTXTNT2+8 01544000 CVTRSV91 EQU CVTXTNT2+6 01545000 CVTRSV9H EQU CVTFLGBT 01546000 CVTRSV9G EQU CVTFLGBT 01547000 CVTRSV9F EQU CVTFLGBT 01548000 CVTRSV9E EQU CVTFLGBT 01549000 CVTRSV9D EQU CVTFLGBT 01550000 CVTRSV9C EQU CVTFLGBT 01551000 CVTVME EQU CVTFLGBT 01552000 CVTNPE EQU CVTFLGBT 01553000 CVTNUCLS EQU CVTXTNT2+4 01554000 CVTDSSVA EQU CVTDSSV+1 01555000 CVTRSV89 EQU CVTDSSV 01556000 CVTRSV88 EQU CVTXTNT1+8 01557000 CVTRSV87 EQU CVTXTNT1+4 01558000 CVTFACHN EQU CVTXTNT1 01559000 CVTRV488 EQU CVTMAP+412 01560000 CVTRV487 EQU CVTMAP+408 01561000 CVTRV486 EQU CVTMAP+404 01562000 CVTRV485 EQU CVTMAP+400 01563000 CVTACTAP EQU CVTMAP+396 01564000 CVTAUTH EQU CVTMAP+392 01565000 CVTATMCA EQU CVTATMCT+1 01566000 CVTATMST EQU CVTATMCT 01567000 CVTRSV61 EQU CVTMAP+384 01568000 CVTVOLT1 EQU CVTVOLM1+1 01569000 CVTVOLI1 EQU CVTVOLF1 01570000 CVTSTOA EQU CVTMAP+376 01571000 CVTRSV58 EQU CVTMAP+374 01572000 CVTRSV57 EQU CVTMAP+372 01573000 CVTDDCE EQU CVTMAP+368 01574000 CVTPNWFR EQU CVTMAP+364 01575000 CVTSMF EQU CVTMAP+360 01576000 CVTSULK EQU CVTMAP+358 01577000 CVTSLKO EQU CVTSYSK 01578000 CVTSLKP EQU CVTSYSK 01579000 CVTSLKQ EQU CVTSYSK 01580000 CVTSLKR EQU CVTSYSK 01581000 CVTRSV56 EQU CVTSYSK 01582000 CVTRSV55 EQU CVTSYSK 01583000 CVTRSV54 EQU CVTSYSK 01584000 CVTRSV53 EQU CVTSYSK 01585000 CVTRSV52 EQU CVTA1F1 01586000 CVTRSV51 EQU CVTA1F1 01587000 CVTRSV50 EQU CVTA1F1 01588000 CVTRSV49 EQU CVTA1F1 01589000 CVTRSV48 EQU CVTA1F1 01590000 CVTRSV47 EQU CVTA1F1 01591000 CVTSRSW EQU CVTA1F1 01592000 CVTPFSW EQU CVTA1F1 01593000 CVTPCVT EQU CVTMAP+352 01594000 CVTRSV46 EQU CVTMAP+344 01595000 CVTRSV45 EQU CVTMAP+340 01596000 CVTRSV44 EQU CVTMAP+338 01597000 CVTRSV43 EQU CVTMAP+336 01598000 CVTHJESA EQU CVTHJES+1 01599000 CVTRSV42 EQU CVTHJES 01600000 CVTEXT2A EQU CVTEXT2+1 01601000 CVTRSV41 EQU CVTEXT2 01602000 CVTAPFA EQU CVTAPF+1 01603000 CVTRSV40 EQU CVTAPF 01604000 CVTRV518 EQU CVTINTLA 01605000 CVTRV517 EQU CVTERPV 01606000 CVTEORM EQU CVTMAP+312 01607000 CVTMCHPR EQU CVTMAP+308 01608000 CVTTZ EQU CVTMAP+304 01609000 CVTJEPS EQU CVTMAP+300 01610000 CVTJESCT EQU CVTMAP+296 01611000 CVTMODE EQU CVTMAP+292 01612000 CVTPTRV EQU CVTMAP+288 01613000 CVTREAL EQU CVTMAP+284 01614000 CVTRSV39 EQU CVTMAP+280 01615000 CVTRSV38 EQU CVTMAP+276 01616000 CVTDMSRA EQU CVTDMSR+1 01617000 CVTRV634 EQU CVTDMSRF 01618000 CVTRV633 EQU CVTDMSRF 01619000 CVTRV632 EQU CVTDMSRF 01620000 CVTRV631 EQU CVTDMSRF 01621000 CVTRV630 EQU CVTDMSRF 01622000 CVTRV629 EQU CVTDMSRF 01623000 CVTUDUMP EQU CVTDMSRF 01624000 CVTSDUMP EQU CVTDMSRF 01625000 CVTQMSGA EQU CVTQMSG+1 01626000 CVTRSV36 EQU CVTQMSG 01627000 CVTAMFF EQU CVTMAP+264 01628000 CVTPURGA EQU CVTPURG+1 01629000 CVTRSV35 EQU CVTPURG 01630000 CVTCBSP EQU CVTMAP+256 01631000 CVTATERA EQU CVTATER+1 01632000 CVTSYST EQU CVTATER 01633000 CVTVOLT2 EQU CVTTAT 01634000 CVTVOLI2 EQU CVTVOLF2 01635000 CVTAQAVB EQU CVTAQAVT+1 01636000 CVTRSV34 EQU CVTTCMFG 01637000 CVTRSV33 EQU CVTTCMFG 01638000 CVTRSV32 EQU CVTTCMFG 01639000 CVTRSV31 EQU CVTTCMFG 01640000 CVTRSV30 EQU CVTTCMFG 01641000 CVTRSV29 EQU CVTTCMFG 01642000 CVTLDEV EQU CVTTCMFG 01643000 CVTTCRDY EQU CVTTCMFG 01644000 CVTGTFA EQU CVTGTF+1 01645000 CVTRSV27 EQU CVTGTFST 01646000 CVTRNIO EQU CVTGTFST 01647000 CVTUSR EQU CVTGTFST 01648000 CVTRV318 EQU CVTFORM 01649000 CVTRV317 EQU CVTTMODE 01650000 CVTRV316 EQU CVTSTATE 01651000 CVTRV315 EQU CVTGTFS 01652000 CVTGTFAV EQU CVTGTFS 01653000 CVT0SCR1 EQU CVTMAP+232 01654000 CVTRV515 EQU CVTMAP+228 01655000 CVTRMS EQU CVTMAP+224 01656000 CVTPATCH EQU CVTMAP+220 01657000 CVTTSCE EQU CVTMAP+216 01658000 CVTLNKSC EQU CVTMAP+214 01659000 CVTQABST EQU CVTMAP+212 01660000 CVTMDLDS EQU CVTMAP+208 01661000 CVTUSER EQU CVTMAP+204 01662000 CVTABEND EQU CVTMAP+200 01663000 CVTSMCA EQU CVTMAP+196 01664000 CVTRSV18 EQU CVTMAP+192 01665000 CVTQLPAQ EQU CVTMAP+188 01666000 CVTQCDSR EQU CVTMAP+184 01667000 CVTRSV17 EQU CVTOPTB 01668000 CVTRSV16 EQU CVTOPTB 01669000 CVTFP EQU CVTOPTB 01670000 CVTAPTHR EQU CVTOPTB 01671000 CVTNLOG EQU CVTOPTB 01672000 CVTTOD EQU CVTOPTB 01673000 CVTCTIMS EQU CVTOPTB 01674000 CVTPROT EQU CVTOPTB 01675000 CVTXPFP EQU CVTOPTA 01676000 CVTASCII EQU CVTOPTA 01677000 CVTRSV13 EQU CVTOPTA 01678000 CVTRSV12 EQU CVTOPTA 01679000 CVTNIP EQU CVTOPTA 01680000 CVTDDR EQU CVTOPTA 01681000 CVTAPR EQU CVTOPTA 01682000 CVTCCH EQU CVTOPTA 01683000 CVTSNCTR EQU CVTMAP+180 01684000 CVTQMWR EQU CVTMAP+176 01685000 CVTQOCR EQU CVTMAP+172 01686000 CVT1EF00 EQU CVTMAP+168 01687000 CVTMZ00 EQU CVTMAP+164 01688000 CVTSV76Q EQU CVTSV76C 01689000 CVTRSV11 EQU CVTMAP+156 01690000 CVT0PT01 EQU CVTMAP+152 01691000 CVTMSER EQU CVTMAP+148 01692000 CVTRV516 EQU CVTIERLC 01693000 CVTILCH EQU CVTMAP+140 01694000 CVT0DS EQU CVTMAP+136 01695000 CVTFBOSV EQU CVTMAP+132 01696000 CVTNUCB EQU CVTMAP+128 01697000 CVTIXAVL EQU CVTMAP+124 01698000 CVTSV76M EQU CVTIOQET 01699000 CVTDCBA EQU CVTMAP+117 01700000 CVTMVS2 EQU CVTDCB 01701000 CVT6DAT EQU CVTDCB 01702000 CVT4MPS EQU CVTDCB 01703000 CVTRSV09 EQU CVTDCB 01704000 CVT4MS1 EQU CVTDCB 01705000 CVT2SPS EQU CVTDCB 01706000 CVT1SSS EQU CVTDCB 01707000 CVTRSV08 EQU CVTDCB 01708000 CVTSTB EQU CVTMAP+112 01709000 CVTQTD00 EQU CVTMAP+108 01710000 CVTQTE00 EQU CVTMAP+104 01711000 CVTCUCB EQU CVTMAP+100 01712000 CVTSJQ EQU CVTMAP+96 01713000 CVTPBLDL EQU CVTMAP+92 01714000 CVTTPC EQU CVTMAP+88 01715000 CVTSVDCB EQU CVTMAP+84 01716000 CVTBRET EQU CVTMAP+82 01717000 CVTEXIT EQU CVTMAP+80 01718000 CVT0FN00 EQU CVTMAP+76 01719000 CVTDARA EQU CVTDAR+1 01720000 CVTRSV07 EQU CVTFLGS1 01721000 CVTRSV06 EQU CVTFLGS1 01722000 CVTRSV05 EQU CVTFLGS1 01723000 CVTRSV04 EQU CVTFLGS1 01724000 CVTRSV03 EQU CVTFLGS1 01725000 CVTRSV02 EQU CVTFLGS1 01726000 CVTRSV01 EQU CVTFLGS1 01727000 CVTDMPLK EQU CVTFLGS1 01728000 CVTXITP EQU CVTMAP+68 01729000 CVTZDTAB EQU CVTMAP+64 01730000 CVTMSLT EQU CVTMAP+60 01731000 CVTDATE EQU CVTMAP+56 01732000 CVTBTERM EQU CVTMAP+52 01733000 CVTSYSAD EQU CVTMAP+48 01734000 CVTXTLER EQU CVTMAP+44 01735000 CVTILK2 EQU CVTMAP+40 01736000 CVTILK1 EQU CVTMAP+36 01737000 CVTPRLTV EQU CVTMAP+32 01738000 CVTPCNVT EQU CVTMAP+28 01739000 CVT0VL00 EQU CVTMAP+24 01740000 CVTXAPG EQU CVTMAP+20 01741000 CVTBUF EQU CVTMAP+16 01742000 CVTJOB EQU CVTMAP+12 01743000 CVTLINK EQU CVTMAP+8 01744000 CVT0EF00 EQU CVTMAP+4 01745000 CVTTCBP EQU CVTMAP 01746000 RQSVEND EQU RQSV+20 01747000 RQSVRSV EQU RQSV+16 01748000 RQSVSRT EQU RQSVDATA+12 01749000 RQSVTRC EQU RQSVPGSC+2 01750000 RQSVPGN EQU RQSVPGSC 01751000 RQSVTIM EQU RQSVDATA+4 01752000 RQSVSRV EQU RQSVDATA 01753000 ASVTEND EQU ASVT+528 01754000 ASVTAVAL EQU ASVTENTY 01755000 ASVTAVAI EQU ASVTFRST 01756000 ASVTRS00 EQU ASVT+520 01757000 ASVTASVT EQU ASVT+512 01758000 ASVTBEGN EQU ASVT+512 01759000 @NM00003 EQU ASVT 01760000 OUXBEND EQU OUXB+144 01761000 OUXBTSW EQU OUXB+140 01762000 OUXBFIXC EQU OUXB+138 01763000 OUXBNVC EQU OUXB+136 01764000 OUXBUIC EQU OUXB+134 01765000 OUXBVSC EQU OUXB+132 01766000 OUXBILS EQU OUXB+128 01767000 OUXBRSV1 EQU OUXB+126 01768000 OUXBWCT EQU OUXB+124 01769000 OUXBPRS EQU OUXB+120 01770000 OUXBSTD EQU OUXB+116 01771000 OUXBITD EQU OUXB+112 01772000 OUXBMSS EQU OUXB+104 01773000 OUXBCPS EQU OUXB+96 01774000 OUXBAET EQU OUXB+92 01775000 OUXBTRR EQU OUXB+88 01776000 OUXBJBR EQU OUXB+84 01777000 OUXBTRT EQU OUXB+80 01778000 OUXBTRS EQU OUXB+76 01779000 OUXBJBT EQU OUXB+72 01780000 OUXBJBS EQU OUXB+68 01781000 OUXBTRC EQU OUXB+64 01782000 OUXBNQT EQU OUXB+60 01783000 OUXBIOSM EQU OUXB+56 01784000 OUXBSTC EQU OUXB+54 01785000 OUXBIOS EQU OUXB+52 01786000 OUXBSTCT EQU OUXB+48 01787000 OUXBCAPR EQU OUXB+44 01788000 OUXBCAPI EQU OUXB+40 01789000 OUXBVAMR EQU OUXB+36 01790000 OUXBVAMO EQU OUXB+32 01791000 OUXBVAMI EQU OUXB+28 01792000 OUXBPREC EQU OUXB+24 01793000 OUXBPOUT EQU OUXB+20 01794000 OUXBPIN EQU OUXB+16 01795000 OUXBRSW EQU OUXB+12 01796000 OUXBMET EQU OUXB+8 01797000 OUXBPET EQU OUXB+4 01798000 OUXBNAME EQU OUXB 01799000 OUCBEND EQU OUCB+136 01800000 OUCBNTSP EQU OUCB+134 01801000 OUCBNDS EQU OUCB+132 01802000 OUCBTIO EQU OUCB+128 01803000 OUCBTCP EQU OUCB+124 01804000 OUCBPST EQU OUCB+120 01805000 OUCBPS2 EQU OUCBPSS+4 01806000 OUCBPS1 EQU OUCBPSS 01807000 OUCBIOSM EQU OUCB+108 01808000 OUCBTMP EQU OUCB+104 01809000 OUCBR03 EQU OUCB+102 01810000 OUCBIOR EQU OUCB+100 01811000 OUCBCRV EQU OUCB+98 01812000 OUCBIRV EQU OUCB+96 01813000 OUCBWMR EQU OUCB+92 01814000 OUCBCMRV EQU OUCB+88 01815000 OUCBCF2 EQU OUCBCFL 01816000 OUCBRSM EQU OUCBCFL 01817000 OUCBRDY EQU OUCBCFL 01818000 OUCBACN EQU OUCBCSW 01819000 OUCBACT EQU OUCB+80 01820000 OUCBWSS EQU OUCB+78 01821000 OUCBPSO EQU OUCB+76 01822000 OUCBTMO EQU OUCB+72 01823000 OUCBTMS EQU OUCB+68 01824000 OUCBMSO EQU OUCB+64 01825000 OUCBIOC EQU OUCB+60 01826000 OUCBCPU EQU OUCB+56 01827000 OUCBWMS EQU OUCB+52 01828000 OUCBTMW EQU OUCB+48 01829000 OUCBIMCB EQU OUCB+44 01830000 OUCBASCB EQU OUCB+40 01831000 OUCBSWC EQU OUCB+38 01832000 OUCBSRC EQU OUCB+37 01833000 OUCBDMN EQU OUCB+36 01834000 OUCBDMO EQU OUCB+34 01835000 OUCBWMG EQU OUCB+32 01836000 OUCBPGP EQU OUCB+31 01837000 OUCBR40 EQU OUCB+30 01838000 OUCBR30 EQU OUCB+29 01839000 OUCBSPG EQU OUCB+28 01840000 OUCBRDP EQU OUCB+27 01841000 OUCBNDP EQU OUCB+26 01842000 OUCBRPG EQU OUCB+25 01843000 OUCBNPG EQU OUCB+24 01844000 OUCBUF7 EQU OUCBUFL 01845000 OUCBUF6 EQU OUCBUFL 01846000 OUCBUF5 EQU OUCBUFL 01847000 OUCBTSWC EQU OUCBUFL 01848000 OUCBTSWP EQU OUCBUFL 01849000 OUCBRSWP EQU OUCBUFL 01850000 OUCBJSAS EQU OUCBUFL 01851000 OUCBJSFS EQU OUCBUFL 01852000 OUCBNQC EQU OUCB+22 01853000 OUCBMWT EQU OUCBEFL 01854000 OUCBQSC EQU OUCBEFL 01855000 OUCBQSS EQU OUCBEFL 01856000 OUCBNQF EQU OUCBEFL 01857000 OUCBCIM EQU OUCBEFL 01858000 OUCBOWT EQU OUCBEFL 01859000 OUCBTRM EQU OUCBEFL 01860000 OUCBLWT EQU OUCBEFL 01861000 OUCBINC EQU OUCBTFL 01862000 OUCBINP EQU OUCBTFL 01863000 OUCBMAR EQU OUCBTFL 01864000 OUCBPCH EQU OUCBTFL 01865000 OUCBRTR EQU OUCBTFL 01866000 OUCBNTR EQU OUCBTFL 01867000 OUCBSTR EQU OUCBTFL 01868000 OUCBATR EQU OUCBTFL 01869000 OUCBASW EQU OUCBAFL 01870000 OUCBNWT EQU OUCBAFL 01871000 OUCBR02 EQU OUCBAFL 01872000 OUCBJSR EQU OUCBAFL 01873000 OUCBCPL EQU OUCBAFL 01874000 OUCBRMA EQU OUCBAFL 01875000 OUCBAPG EQU OUCBAFL 01876000 OUCBAF0 EQU OUCBAFL 01877000 OUCBFXS EQU OUCBYFL 01878000 OUCBDTA EQU OUCBYFL 01879000 OUCBAXS EQU OUCBYFL 01880000 OUCBPSTR EQU OUCBYFL 01881000 OUCBMNT EQU OUCBYFL 01882000 OUCBLOG EQU OUCBYFL 01883000 OUCBSTT EQU OUCBYFL 01884000 OUCBPSTE EQU OUCBYFL 01885000 OUCBSCN EQU OUCBSFL 01886000 OUCBENQ EQU OUCBSFL 01887000 OUCBPVL EQU OUCBSFL 01888000 OUCBNSWI EQU OUCBSFL 01889000 OUCBBIB EQU OUCBSFL 01890000 OUCBCTI EQU OUCBSFL 01891000 OUCBNSW EQU OUCBSFL 01892000 OUCBQF7 EQU OUCBQFL 01893000 OUCBQF6 EQU OUCBQFL 01894000 OUCBOUT EQU OUCBQFL 01895000 OUCBOFF EQU OUCBQFL 01896000 OUCBQF3 EQU OUCBQFL 01897000 OUCBGOB EQU OUCBQFL 01898000 OUCBGOI EQU OUCBQFL 01899000 OUCBGOO EQU OUCBQFL 01900000 OUCBTMA EQU OUCB+12 01901000 OUCBBCK EQU OUCB+8 01902000 OUCBFWD EQU OUCB+4 01903000 ASCBEND EQU ASCB+208 01904000 ASCBSRBT EQU ASCB+200 01905000 ASCBSWTL EQU ASCB+196 01906000 ASCBRS14 EQU ASCB+195 01907000 ASCBSMCT EQU ASCB+194 01908000 ASCBRS12 EQU ASCB+192 01909000 ASCBPCTT EQU ASCB+188 01910000 ASCBVGTT EQU ASCB+184 01911000 ASCBRV43 EQU ASCBSRQ4 01912000 ASCBRV42 EQU ASCBSRQ4 01913000 ASCBRV41 EQU ASCBSRQ4 01914000 ASCBRV40 EQU ASCBSRQ4 01915000 ASCBRV39 EQU ASCBSRQ4 01916000 ASCBRV38 EQU ASCBSRQ4 01917000 ASCBRV37 EQU ASCBSRQ4 01918000 ASCBRV36 EQU ASCBSRQ4 01919000 ASCBRV35 EQU ASCBSRQ3 01920000 ASCBRV34 EQU ASCBSRQ3 01921000 ASCBRV33 EQU ASCBSRQ3 01922000 ASCBRV32 EQU ASCBSRQ3 01923000 ASCBRV31 EQU ASCBSRQ3 01924000 ASCBRV30 EQU ASCBSRQ3 01925000 ASCBRV29 EQU ASCBSRQ3 01926000 ASCBRV28 EQU ASCBSRQ3 01927000 ASCBRV27 EQU ASCBSRQ2 01928000 ASCBRV26 EQU ASCBSRQ2 01929000 ASCBRV25 EQU ASCBSRQ2 01930000 ASCBRV24 EQU ASCBSRQ2 01931000 ASCBRV23 EQU ASCBSRQ2 01932000 ASCBRV22 EQU ASCBSRQ2 01933000 ASCBRV21 EQU ASCBSRQ2 01934000 ASCBRV20 EQU ASCBSRQ2 01935000 ASCBRV19 EQU ASCBSRQ1 01936000 ASCBRV18 EQU ASCBSRQ1 01937000 ASCBRV17 EQU ASCBSRQ1 01938000 ASCBRV16 EQU ASCBSRQ1 01939000 ASCBRV15 EQU ASCBSRQ1 01940000 ASCBRV14 EQU ASCBSRQ1 01941000 ASCBRV13 EQU ASCBSRQ1 01942000 ASCBSTA EQU ASCBSRQ1 01943000 ASCBJBNS EQU ASCB+176 01944000 ASCBJBNI EQU ASCB+172 01945000 ASCBMCC EQU ASCB+168 01946000 ASCBRTWA EQU ASCB+164 01947000 ASCBIQEA EQU ASCB+160 01948000 ASCBXMPQ EQU ASCB+156 01949000 ASCBRS01 EQU ASCB+154 01950000 ASCBFMCT EQU ASCB+152 01951000 ASCBOUXB EQU ASCB+148 01952000 ASCBMECB EQU ASCB+140 01953000 ASCBQECB EQU ASCB+136 01954000 ASCBLSQH EQU ASCBLKGP+4 01955000 ASCBLOCK EQU ASCBLKGP 01956000 ASCBTCBS EQU ASCB+124 01957000 ASCBNVSC EQU ASCB+122 01958000 ASCBVSC EQU ASCB+120 01959000 ASCBSRBS EQU ASCB+118 01960000 ASCBSSRB EQU ASCB+116 01961000 ASCBRV06 EQU ASCBFLG2 01962000 ASCBRV05 EQU ASCBFLG2 01963000 ASCBRV04 EQU ASCBFLG2 01964000 ASCBSNQS EQU ASCBFLG2 01965000 ASCBS2S EQU ASCBFLG2 01966000 ASCBCEXT EQU ASCBFLG2 01967000 ASCBPXMT EQU ASCBFLG2 01968000 ASCBXMPT EQU ASCBFLG2 01969000 ASCBRF07 EQU ASCBDSP1 01970000 ASCBRF06 EQU ASCBDSP1 01971000 ASCBRF05 EQU ASCBDSP1 01972000 ASCBRF04 EQU ASCBDSP1 01973000 ASCBRF03 EQU ASCBDSP1 01974000 ASCBRF02 EQU ASCBDSP1 01975000 ASCBFAIL EQU ASCBDSP1 01976000 ASCBNOQ EQU ASCBDSP1 01977000 ASCBSWCT EQU ASCB+112 01978000 ASCBASXB EQU ASCB+108 01979000 ASCBTMCH EQU ASCB+104 01980000 ASCBNSWP EQU ASCBFLG1 01981000 ASCBTYP1 EQU ASCBFLG1 01982000 ASCBSTND EQU ASCBFLG1 01983000 ASCBABNT EQU ASCBFLG1 01984000 ASCBTERM EQU ASCBFLG1 01985000 ASCBS3S EQU ASCBFLG1 01986000 ASCBCMSH EQU ASCBFLG1 01987000 ASCBTOFF EQU ASCBFLG1 01988000 ASCBRF01 EQU ASCBRCTF 01989000 ASCBTMLW EQU ASCBRCTF 01990000 ASCBOUT EQU ASCBRCTF 01991000 ASCBWAIT EQU ASCBRCTF 01992000 ASCBRV08 EQU ASCBRCTF 01993000 ASCBFQU EQU ASCBRCTF 01994000 ASCBFRS EQU ASCBRCTF 01995000 ASCBTMNO EQU ASCBRCTF 01996000 ASCBAFFN EQU ASCBFW1 01997000 ASCBDUMP EQU ASCB+96 01998000 ASCBRV44 EQU ASCB+92 01999000 ASCBUBET EQU ASCB+88 02000000 ASCBECB EQU ASCB+84 02001000 ASCBJSTL EQU ASCB+80 02002000 ASCBEWST EQU ASCB+72 02003000 ASCBEJST EQU ASCB+64 02004000 ASCBTSB EQU ASCB+60 02005000 ASCBCSCB EQU ASCB+56 02006000 ASCBRSMA EQU ASCBRSM+1 02007000 ASCBRV54 EQU ASCBRSMF 02008000 ASCBRV53 EQU ASCBRSMF 02009000 ASCBRV52 EQU ASCBRSMF 02010000 ASCBRV51 EQU ASCBRSMF 02011000 ASCBVEQR EQU ASCBRSMF 02012000 ASCBN2LP EQU ASCBRSMF 02013000 ASCB1LPU EQU ASCBRSMF 02014000 ASCB2LPU EQU ASCBRSMF 02015000 ASCBLDA EQU ASCB+48 02016000 ASCBSTOR EQU ASCB+44 02017000 ASCBDP EQU ASCB+43 02018000 ASCBRV07 EQU ASCB+42 02019000 ASCBIOSM EQU ASCB+40 02020000 ASCBSEQN EQU ASCB+38 02021000 ASCBCPUS EQU ASCB+32 02022000 ASCBSPL EQU ASCB+28 02023000 ASCBIOSP EQU ASCB+24 02024000 ASCBSYNC EQU ASCBSUPC+4 02025000 ASCBSVRB EQU ASCBSUPC 02026000 ASCBCMSF EQU ASCB+12 02027000 ASCBBWDP EQU ASCB+8 02028000 ASCBFWDP EQU ASCB+4 02029000 ASCBASCB EQU ASCB 02030000 ASCBEGIN EQU ASCB 02031000 RRPAEND EQU RRPA+24 02032000 RRPARTN EQU RRPAINS 02033000 RRPARCI EQU RRPAFLG+1 02034000 RRPARFI EQU RRPAFLG+1 02035000 RRPARTI EQU RRPAFLG+1 02036000 RRPACTL EQU RRPAFLG+1 02037000 RRPAF11 EQU RRPAFLG+1 02038000 RRPAIPS EQU RRPAFLG+1 02039000 RRPAWAR EQU RRPAFLG+1 02040000 RRPAF07 EQU RRPAFLG 02041000 RRPAF05 EQU RRPAFLG 02042000 RRPAF04 EQU RRPAFLG 02043000 RRPADSP EQU RRPAFLG 02044000 RRPAVLU EQU RRPAINP 02045000 @NM00002 EQU RRPAFLG0 02046000 RRPANSWI EQU RRPAFLG0 02047000 EPSTEND EQU EPST+80 02048000 EPSTCSI EQU RMEPBCSI 02049000 EPSTCSO EQU RMEPBCSO 02050000 EPSTCL3 EQU RMEPBCL3 02051000 EPSTIL3 EQU RMEPBIL3 02052000 EPSTWM3 EQU RMEPBWM3 02053000 EPDTEND EQU EPDT+96 02054000 RMEPBRPS EQU EPDT+80 02055000 RMEPBHIT EQU EPDT+64 02056000 RMEPBUXB EQU EPDT+48 02057000 RMEPBIL4 EQU EPDT+32 02058000 RMEPBDEL EQU EPDT+16 02059000 RMEPBIPS EQU EPDT 02060000 EPATEND EQU EPAT+400 02061000 RMEPBPR1 EQU EPAT+368 02062000 RMEPBEQ1 EQU EPAT+336 02063000 RMEPBAP1 EQU EPAT+304 02064000 RMEPBCL1 EQU EPAT+272 02065000 RMEPBWM2 EQU EPAT+240 02066000 RMEPBIL1 EQU EPAT+208 02067000 RMEPBASM EQU EPAT+176 02068000 RMEPBMS2 EQU EPAT+160 02069000 RMEPBPR5 EQU EPAT+144 02070000 RMEPBMS6 EQU EPAT+112 02071000 RMEPBSQA EQU EPAT+96 02072000 RMEPBRM2 EQU EPAT+64 02073000 RMEPBRM1 EQU EPAT+32 02074000 RMEPBCAP EQU EPAT 02075000 RMSBEND EQU RMSB+120 02076000 RMSBRA9 EQU RMSB+116 02077000 RMSBIL0 EQU RMSB+112 02078000 RMSBCL0 EQU RMSB+108 02079000 RMSBRA6 EQU RMSB+104 02080000 RMSBNOP EQU RMSB+100 02081000 RMSBSET EQU RMSB+96 02082000 RMSBWR6 EQU RMSB+92 02083000 RMSBWR4 EQU RMSB+88 02084000 RMSBTRC EQU RMSB+84 02085000 RMSBWMY EQU RMSB+80 02086000 RMSBWMR EQU RMSB+76 02087000 RMSBWMQ EQU RMSB+72 02088000 RMSBWMO EQU RMSB+68 02089000 RMSBWMN EQU RMSB+64 02090000 RMSBWMK EQU RMSB+60 02091000 RMSBWM4 EQU RMSB+56 02092000 RMSBWM1 EQU RMSB+52 02093000 RMSBWM5 EQU RMSB+48 02094000 RMSBCRY EQU RMSB+44 02095000 RMSBCRN EQU RMSB+40 02096000 RMSBCRL EQU RMSB+36 02097000 RMSBI10 EQU RMSB+32 02098000 RMSBI09 EQU RMSB+28 02099000 RMSBR24 EQU RMSB+24 02100000 RMSBI07 EQU RMSB+20 02101000 RMSBI06 EQU RMSB+16 02102000 RMSBI05 EQU RMSB+12 02103000 RMSBI04 EQU RMSB+8 02104000 RMSBI03 EQU RMSB+4 02105000 RMSBI02 EQU RMSB 02106000 RMEXEND EQU RMEX+64 02107000 RMEXSRE EQU RMEX+60 02108000 RMEXXPE EQU RMEX+56 02109000 RMEXI48 EQU RMEX+44 02110000 RMEXCET EQU RMEX+40 02111000 RMEXCXX EQU RMEX+36 02112000 RMEXCTL EQU RMEPBCTL 02113000 RMCAEND EQU RMCA+168 02114000 RMCAR90 EQU RMCA+164 02115000 RMCAUSSC EQU RMCASRC+36 02116000 RMCAEXSC EQU RMCASRC+32 02117000 RMCANQSC EQU RMCASRC+28 02118000 RMCARQSC EQU RMCASRC+24 02119000 RMCADWSC EQU RMCASRC+20 02120000 RMCARSSC EQU RMCASRC+16 02121000 RMCAXSSC EQU RMCASRC+12 02122000 RMCALWSC EQU RMCASRC+8 02123000 RMCATISC EQU RMCASRC+4 02124000 RMCATOSC EQU RMCASRC 02125000 RMCACPW1 EQU RMCA+120 02126000 RMCACIUS EQU RMCA+118 02127000 RMCAR14 EQU RMCA+116 02128000 RMCAR13 EQU RMCA+112 02129000 RMCAWKA EQU RMCA+80 02130000 RMCAR20 EQU RMCA+74 02131000 RMCABCPG EQU RMCA+73 02132000 RMCALGPG EQU RMCA+72 02133000 RMCAISV EQU RMCA+70 02134000 RMCAR11 EQU RMCA+68 02135000 RMCAINV EQU RMCA+64 02136000 RMCAR10 EQU RMCA+60 02137000 RMCARSV9 EQU RMCA+56 02138000 RMCACHU EQU RMCA+52 02139000 RMCACHP EQU RMCA+48 02140000 RMCARSV8 EQU RMCA+44 02141000 RMCARSV7 EQU RMCA+40 02142000 RMCARSVF EQU RMCAFLGS 02143000 RMCASAAF EQU RMCAFLGS 02144000 RMCARSV5 EQU RMCA+32 02145000 RMCARSV4 EQU RMCA+28 02146000 RMCARSV3 EQU RMCA+24 02147000 RMCATOI EQU RMCA+20 02148000 RMCARSV2 EQU RMCA+10 02149000 RMCARSV1 EQU RMCA+8 02150000 RMCAINUS EQU RMCA+6 02151000 RMCAR04 EQU RMCA+4 02152000 RMCANAME EQU RMCA 02153000 RMPTEND EQU RMPT+72 02154000 RMPTOPE EQU RMPT+66 02155000 RMPTOPI EQU RMPT+63 02156000 RMPTOPC EQU RMPT+60 02157000 RMPTIOET EQU RMPT+56 02158000 RMPTCPET EQU RMPT+52 02159000 RMPTWMET EQU RMPT+48 02160000 RMPTSAET EQU RMPT+44 02161000 RMPTXCHT EQU RMPT+40 02162000 RMPTRSV3 EQU RMPT+38 02163000 RMPTRSV2 EQU RMPT+36 02164000 RMPTRSV1 EQU RMPT+32 02165000 RMPTTOL EQU RMPT+28 02166000 RMPTTOM EQU RMPT+24 02167000 RMPTIMN EQU RMPT+16 02168000 RMPTERV EQU RMPT+12 02169000 RMPTIOC EQU RMPT+8 02170000 RMPTCPU EQU RMPT+4 02171000 RMPTNAME EQU RMPT 02172000 RCTEND EQU RCT+88 02173000 RCVRSVF3 EQU RCT+84 02174000 RCVRSVF2 EQU RCT+80 02175000 RCVTAPAD EQU RCT+76 02176000 RCVRSVF1 EQU RCT+74 02177000 RCVTOTDF EQU RCT+72 02178000 RCVBPTTM EQU RCT+68 02179000 RCVBPTCT EQU RCT+64 02180000 RCVASMQ EQU RCT+60 02181000 RCVAVQP EQU RCT+56 02182000 RCVCPUC EQU RCT+52 02183000 RCVUICC EQU RCT+48 02184000 RCVPTR EQU RCT+46 02185000 RCVASMQA EQU RCT+44 02186000 RCVAVQC EQU RCT+42 02187000 RCVCPUA EQU RCT+40 02188000 RCVUICA EQU RCT+38 02189000 RCVCTMC EQU RCT+36 02190000 RCCRSVF3 EQU RCT+32 02191000 RCCRSVF2 EQU RCT+28 02192000 RCCRSVF1 EQU RCT+26 02193000 RCCLCHRR EQU RCT+24 02194000 RCCLCHUT EQU RCT+22 02195000 RCCTOTUT EQU RCT+20 02196000 RCCASMTH EQU RCT+18 02197000 RCCASMTL EQU RCT+16 02198000 RCCPTRTH EQU RCT+14 02199000 RCCPTRTL EQU RCT+12 02200000 RCCCPUTH EQU RCT+10 02201000 RCCCPUTL EQU RCT+8 02202000 RCCUICTH EQU RCT+6 02203000 RCCUICTL EQU RCT+4 02204000 RCTRCT EQU RCT 02205000 MCTEND EQU MCT+96 02206000 MCVRSVF3 EQU MCT+92 02207000 MCVRSVF2 EQU MCT+88 02208000 MCVRSVF1 EQU MCT+84 02209000 MCCINTMX EQU MCT+80 02210000 MCCPR1IN EQU MCT+76 02211000 MCCUICIN EQU MCT+72 02212000 MCCUICBD EQU MCT+68 02213000 MCTRSVB1 EQU MCT+67 02214000 MCTXRSVD EQU MCT+66 02215000 MCTFX2 EQU MCTOFLGS 02216000 MCTFX1 EQU MCTOFLGS 02217000 MCTSMS2 EQU MCTOFLGS 02218000 MCTSMS1 EQU MCTOFLGS 02219000 MCTAMS2 EQU MCTOFLGS 02220000 @NM00001 EQU MCTOFLGS 02221000 MCTASM2 EQU MCTOFLGS 02222000 MCTASM1 EQU MCTOFLGS 02223000 MCTSF04 EQU MCTSFLGS 02224000 MCTFAVQ EQU MCTSFLGS 02225000 MCTAVQ1 EQU MCTSFLGS 02226000 MCTSQA2 EQU MCTSFLGS 02227000 MCTSQA1 EQU MCTSFLGS 02228000 MCVAVQC EQU MCT+60 02229000 MCVFRCNT EQU MCT+58 02230000 MCVSTCRI EQU MCT+56 02231000 MCCEND EQU MCT+56 02232000 MCCASMT2 EQU MCT+54 02233000 MCCASMT1 EQU MCT+52 02234000 MCCRSVH1 EQU MCT+50 02235000 MCCPLUS EQU MCT+48 02236000 MCCMS403 EQU MCT+44 02237000 MCCMS402 EQU MCT+40 02238000 MCCMS401 EQU MCT+36 02239000 MCCMS400 EQU MCT+32 02240000 MCCMS203 EQU MCT+28 02241000 MCCMS202 EQU MCT+24 02242000 MCCMS201 EQU MCT+20 02243000 MCCMS200 EQU MCT+16 02244000 MCCMS102 EQU MCT+12 02245000 MCCMS101 EQU MCT+8 02246000 MCCMS100 EQU MCT+4 02247000 MCTMCT EQU MCT 02248000 ICTEND EQU ICT+88 02249000 ICTRSVB3 EQU ICT+87 02250000 ICTRSVB2 EQU ICT+86 02251000 ICTRSVB1 EQU ICT+85 02252000 ICT003 EQU ICTFLAGS 02253000 ICTIOOT EQU ICTFLAGS 02254000 ICTIOL EQU ICTFLAGS 02255000 ICTDRSV4 EQU ICTFLAGS 02256000 ICVIRSV3 EQU ICT+80 02257000 ICVULCBT EQU ICT+76 02258000 ICVOLCBT EQU ICT+72 02259000 ICVLCBPT EQU ICT+68 02260000 ICVLUTBT EQU ICT+64 02261000 ICCEND EQU ICT+64 02262000 ICCRSV01 EQU ICT+62 02263000 ICCEDSUT EQU ICT+60 02264000 ICCSRSV2 EQU ICT+58 02265000 ICCSIGUP EQU ICT+56 02266000 ICCINDAT EQU ICT+52 02267000 ICCINLOT EQU ICT+48 02268000 ICCINHIT EQU ICT+44 02269000 ICCDAUTH EQU ICT+42 02270000 ICCLOUTH EQU ICT+40 02271000 ICCHIUTH EQU ICT+38 02272000 ICCDASF2 EQU ICT+36 02273000 ICCDASF1 EQU ICT+34 02274000 ICCMINRV EQU ICT+32 02275000 ICCMAXRV EQU ICT+30 02276000 ICCRVSCF EQU ICT+28 02277000 ICCMNIOR EQU ICT+26 02278000 ICCLCHN EQU ICT+24 02279000 ICCLCLST EQU ICT+20 02280000 ICCMNSWP EQU ICT+16 02281000 ICCMNUIN EQU ICT+12 02282000 ICCMXICT EQU ICT+8 02283000 ICCMRSV1 EQU ICT+4 02284000 ICTICT EQU ICT 02285000 CCVEND EQU CCT+128 02286000 CCTFLG2 EQU CCT+125 02287000 CCTCPUOT EQU CCTFLG1 02288000 CCTALL EQU CCTFLG1 02289000 CCVCPUCT EQU CCT+122 02290000 CCVENQCT EQU CCT+120 02291000 CCVLGFMC EQU CCT+118 02292000 CCVLGUTL EQU CCT+116 02293000 CCVR07 EQU CCT+114 02294000 CCVR06 EQU CCT+112 02295000 CCVUTILP EQU CCT+110 02296000 CCVR05 EQU CCT+108 02297000 CCVIMBBT EQU CCT+104 02298000 CCVEJST EQU CCT+100 02299000 CCVPGCPF EQU CCT+96 02300000 CCVRVSWF EQU CCT+92 02301000 CCVRBSTD EQU CCT+88 02302000 CCVR04 EQU CCT+84 02303000 CCVRBSWT EQU CCT+80 02304000 CCVR03 EQU CCT+76 02305000 CCCEND EQU CCT+76 02306000 CCCRSVH1 EQU CCT+74 02307000 CCCSCFC2 EQU CCT+72 02308000 CCCSCFC1 EQU CCT+70 02309000 CCCR02 EQU CCT+68 02310000 CCCSIGUR EQU CCT+66 02311000 CCCSIGDP EQU CCT+64 02312000 CCCSCFAC EQU CCT+62 02313000 CCCMINRV EQU CCT+60 02314000 CCCMAXRV EQU CCT+58 02315000 CCCLOSCF EQU CCT+56 02316000 CCCHISCF EQU CCT+54 02317000 CCCUTLOT EQU CCT+52 02318000 CCCUTHIT EQU CCT+50 02319000 CCCAPRHT EQU CCT+48 02320000 CCCAPRLT EQU CCT+46 02321000 CCCR01 EQU CCT+44 02322000 CCCAPGDP EQU CCT+42 02323000 CCCAPMDP EQU CCT+40 02324000 CCCAPLDP EQU CCT+38 02325000 CCCAPBDP EQU CCT+36 02326000 CCCAPROT EQU CCT+34 02327000 CCCAPDIV EQU CCT+32 02328000 CCCRSVF1 EQU CCT+28 02329000 CCCMNSIN EQU CCT+24 02330000 CCCMNUIN EQU CCT+20 02331000 CCCAPDEL EQU CCT+16 02332000 CCCAPMAX EQU CCT+12 02333000 CCCAPMIN EQU CCT+8 02334000 CCCAPMET EQU CCT+4 02335000 CCTCCT EQU CCT 02336000 RMCTEND EQU RMCT+192 02337000 RMCTR50 EQU RMCT+190 02338000 RMCTDMNC EQU RMCT+188 02339000 RMCTDMDE EQU RMCT+184 02340000 RMCTDMDT EQU RMCT+180 02341000 RMCTSRBT EQU RMCT+176 02342000 RMCTOUXB EQU RMCT+172 02343000 RMCTOUCB EQU RMCT+168 02344000 RMCTCPID EQU RMCT+156 02345000 RMCTTELM EQU RMCT+152 02346000 RMCTF09 EQU RMCTFLGS+1 02347000 RMCTMFS EQU RMCTFLGS+1 02348000 RMCTF07 EQU RMCTFLGS+1 02349000 RMCTF06 EQU RMCTFLGS 02350000 RMCTRSV2 EQU RMCTFLGS 02351000 RMCTSTW EQU RMCTFLGS 02352000 RMCTRSV1 EQU RMCTFLGS 02353000 RMCTF03 EQU RMCTFLGS 02354000 RMCTCPS1 EQU RMCTFLGS 02355000 RMCTMFA EQU RMCTFLGS 02356000 RMCTALR EQU RMCT+140 02357000 RMCTALA EQU RMCT+136 02358000 RMCTR10 EQU RMCT+116 02359000 RMCTINQE EQU RMCT+112 02360000 RMCTOTQE EQU RMCT+108 02361000 RMCTWTQE EQU RMCT+104 02362000 RMCTAQHD EQU RMCT+100 02363000 RMCTAQCT EQU RMCT+96 02364000 RMCTTMQE EQU RMCT+92 02365000 RMCTWAMT EQU RMCT+88 02366000 RMCTWAST EQU RMCT+84 02367000 RMCTEPPR EQU RMCT+80 02368000 RMCTFLTM EQU RMCT+76 02369000 RMCTEPET EQU RMCT+72 02370000 RMCTITT EQU RMCT+68 02371000 RMCTADJC EQU RMCT+64 02372000 RMCTEPBG EQU RMCT+60 02373000 RMCTEPAT EQU RMCT+56 02374000 RMCTEPDT EQU RMCT+52 02375000 RMCTEPPA EQU RMCT+48 02376000 RMCTRMSB EQU RMCT+44 02377000 RMCTRMEX EQU RMCT+40 02378000 RMCTRMPD EQU RMCT+36 02379000 RMCTRMSA EQU RMCT+32 02380000 RMCTRLCT EQU RMCT+28 02381000 RMCTWMST EQU RMCT+24 02382000 RMCTRMCA EQU RMCT+20 02383000 RMCTRMPT EQU RMCT+16 02384000 RMCTMCT EQU RMCT+12 02385000 RMCTICT EQU RMCT+8 02386000 RMCTCCT EQU RMCT+4 02387000 RMCTNAME EQU RMCT 02388000 @NM00029 EQU PSA+3668 02389000 PSASTAK EQU PSA+3072 02390000 @NM00028 EQU PSA+1048 02391000 PSAUSEND EQU PSA+1048 02392000 PSARV062 EQU PSA+1044 02393000 PSACDAL EQU PSA+1040 02394000 PSAWTCOD EQU PSA+1036 02395000 PSAATCVT EQU PSA+1032 02396000 PSAPCPSW EQU PSA+1024 02397000 PSAPIR2 EQU PSA+1020 02398000 PSARV059 EQU PSA+1018 02399000 PSASVC13 EQU PSA+1016 02400000 PSASFACC EQU PSA+1008 02401000 PSASTOP EQU PSA+992 02402000 PSASTART EQU PSA+976 02403000 PSARSPSW EQU PSA+968 02404000 PSASRPSW EQU PSA+960 02405000 PSARV045 EQU PSA+892 02406000 PSARV044 EQU PSA+888 02407000 PSARV043 EQU PSA+884 02408000 PSARV042 EQU PSA+880 02409000 PSARV041 EQU PSA+876 02410000 PSARV040 EQU PSA+872 02411000 PSARV025 EQU PSA+868 02412000 PSADSSED EQU PSA+868 02413000 PSADSSPR EQU PSA+864 02414000 PSADSSFW EQU PSA+860 02415000 PSADSS14 EQU PSA+856 02416000 PSADSSPP EQU PSA+848 02417000 PSADSSRP EQU PSA+840 02418000 PSADSS05 EQU PSADSSF4 02419000 PSADSS10 EQU PSADSSF4 02420000 PSADSSVE EQU PSADSSF4 02421000 PSADSSDE EQU PSADSSF4 02422000 PSADSSC0 EQU PSADSSF4 02423000 PSADSSIE EQU PSADSSF4 02424000 PSADSS12 EQU PSADSSF4 02425000 PSADSSRC EQU PSADSSF4 02426000 PSARV057 EQU PSADSSF3 02427000 PSARV056 EQU PSADSSF3 02428000 PSARV055 EQU PSADSSF3 02429000 PSADSSMC EQU PSADSSF3 02430000 PSADSSRW EQU PSADSSF3 02431000 PSADSSNM EQU PSADSSF3 02432000 PSADSSES EQU PSADSSF3 02433000 PSADSSGP EQU PSADSSF3 02434000 PSADSSF2 EQU PSADSSFL+1 02435000 PSADSSPI EQU PSADSSF1 02436000 PSADSSOI EQU PSADSSF1 02437000 PSADSSSP EQU PSADSSF1 02438000 PSADSSTP EQU PSADSSF1 02439000 PSADSSDW EQU PSADSSF1 02440000 PSADSSDD EQU PSADSSF1 02441000 PSADSSDM EQU PSADSSF1 02442000 PSADSSMV EQU PSADSSF1 02443000 PSADSSTS EQU PSA+816 02444000 PSADSSWK EQU PSA+812 02445000 PSADSSR3 EQU PSA+808 02446000 PSADSSR2 EQU PSA+804 02447000 PSADSSRS EQU PSA+800 02448000 PSASTOR EQU PSA+796 02449000 PSACPUSA EQU PSA+794 02450000 PSAVSTAP EQU PSA+792 02451000 PSAWKVAP EQU PSA+788 02452000 PSAWKRAP EQU PSA+784 02453000 PSAMCHIC EQU PSA+783 02454000 PSARV061 EQU PSA+782 02455000 PSASYMSK EQU PSA+781 02456000 PSAMCHFL EQU PSA+780 02457000 PSACR0 EQU PSA+776 02458000 PSAPSWSV EQU PSA+768 02459000 PSACLHS EQU PSAHLHI 02460000 PSALKR15 EQU PSALKSA+60 02461000 PSALKR14 EQU PSALKSA+56 02462000 PSALKR13 EQU PSALKSA+52 02463000 PSALKR12 EQU PSALKSA+48 02464000 PSALKR11 EQU PSALKSA+44 02465000 PSALKR10 EQU PSALKSA+40 02466000 PSALKR9 EQU PSALKSA+36 02467000 PSALKR8 EQU PSALKSA+32 02468000 PSALKR7 EQU PSALKSA+28 02469000 PSALKR6 EQU PSALKSA+24 02470000 PSALKR5 EQU PSALKSA+20 02471000 PSALKR4 EQU PSALKSA+16 02472000 PSALKR3 EQU PSALKSA+12 02473000 PSALKR2 EQU PSALKSA+8 02474000 PSALKR1 EQU PSALKSA+4 02475000 PSALKR0 EQU PSALKSA 02476000 PSARV023 EQU PSACLHT+52 02477000 PSALOCAL EQU PSACLHT+48 02478000 PSACMSL EQU PSACLHT+44 02479000 PSAOPTL EQU PSACLHT+40 02480000 PSATPACL EQU PSACLHT+36 02481000 PSATPDNL EQU PSACLHT+32 02482000 PSATPNCL EQU PSACLHT+28 02483000 PSAIOSLL EQU PSACLHT+24 02484000 PSAIOSUL EQU PSACLHT+20 02485000 PSAIOSCL EQU PSACLHT+16 02486000 PSAIOSSL EQU PSACLHT+12 02487000 PSASALCL EQU PSACLHT+8 02488000 PSAASML EQU PSACLHT+4 02489000 PSADISPL EQU PSACLHT 02490000 PSASRSA EQU PSA+636 02491000 PSARV050 EQU PSA+634 02492000 PSADSSGO EQU PSA+633 02493000 PSARECUR EQU PSA+632 02494000 PSAHLHIS EQU PSA+628 02495000 PSAIPCSA EQU PSA+624 02496000 @NM00027 EQU PSA+621 02497000 PSAIPCDM EQU PSA+620 02498000 PSAIPCD EQU PSA+616 02499000 @NM00026 EQU PSA+613 02500000 PSAIPCRM EQU PSA+612 02501000 PSAIPCR EQU PSA+608 02502000 PSAMCHEX EQU PSA+600 02503000 PSAMPSW EQU PSA+592 02504000 PSAEXPS2 EQU PSA+584 02505000 PSAEXPS1 EQU PSA+576 02506000 PSAPIREG EQU PSA+572 02507000 PSARSREG EQU PSA+568 02508000 PSAGPREG EQU PSA+556 02509000 PSARV022 EQU PSASUP4 02510000 PSARV021 EQU PSASUP4 02511000 PSARV020 EQU PSASUP4 02512000 PSARV019 EQU PSASUP4 02513000 PSARV018 EQU PSASUP4 02514000 PSARV017 EQU PSASUP4 02515000 PSARV016 EQU PSASUP4 02516000 PSARV015 EQU PSASUP4 02517000 PSARV014 EQU PSASUP3 02518000 PSAULCMS EQU PSASUP3 02519000 PSARV012 EQU PSASUP3 02520000 PSAESTA EQU PSASUP3 02521000 PSASPR EQU PSASUP3 02522000 PSAPSREG EQU PSASUP3 02523000 PSAPI2 EQU PSASUP3 02524000 PSAIOSUP EQU PSASUP3 02525000 PSALCR EQU PSASUP2 02526000 PSARTM EQU PSASUP2 02527000 PSAACR EQU PSASUP2 02528000 PSAIPCE2 EQU PSASUP2 02529000 PSAIPCES EQU PSASUP2 02530000 PSAIPCEC EQU PSASUP2 02531000 PSAGTF EQU PSASUP2 02532000 PSAIPCRI EQU PSASUP2 02533000 PSATYPE6 EQU PSASUP1 02534000 PSATCTL EQU PSASUP1 02535000 PSADISP EQU PSASUP1 02536000 PSALOCK EQU PSASUP1 02537000 PSAPI EQU PSASUP1 02538000 PSAEXT EQU PSASUP1 02539000 PSASVC EQU PSASUP1 02540000 PSAIO EQU PSASUP1 02541000 PSAANEW EQU PSA+544 02542000 PSATNEW EQU PSA+536 02543000 PSALCCAR EQU PSA+532 02544000 PSALCCAV EQU PSA+528 02545000 PSAPCCAR EQU PSA+524 02546000 PSAPCCAV EQU PSA+520 02547000 PSACPULA EQU PSA+518 02548000 PSACPUPA EQU PSA+516 02549000 PSAPSA EQU PSA+512 02550000 FLCHDEND EQU PSA+512 02551000 FLCCRSAV EQU FLCMCLA+280 02552000 FLCGRSAV EQU FLCMCLA+216 02553000 FLCFPSAV EQU FLCMCLA+184 02554000 FLCFLA EQU FLCMCLA+88 02555000 FLCRGNCD EQU FLCMCLA+84 02556000 FLCFSAA EQU FLCFSA+1 02557000 @NM00025 EQU FLCFSA 02558000 @NM00024 EQU FLCMCLA+72 02559000 FLCMCIC EQU FLCMCLA+64 02560000 @NM00023 EQU FLCMCLA+20 02561000 FLCIOAA EQU FLCIOA+1 02562000 @NM00022 EQU FLCIOA 02563000 @NM00021 EQU FLCMCLA+15 02564000 @NM00020 EQU FLCMCLA+14 02565000 @NM00019 EQU FLCMCLA+12 02566000 FLCLCL EQU FLCMCLA+8 02567000 FLCIOELA EQU FLCIOEL+1 02568000 @NM00018 EQU FLCIOEL 02569000 FLCCHNID EQU FLCMCLA 02570000 @NM00017 EQU PSA+160 02571000 FLCMTRCD EQU PSA+157 02572000 @NM00016 EQU PSA+156 02573000 FLCPERA EQU FLCPER+1 02574000 @NM00015 EQU FLCPER 02575000 @NM00014 EQU PSA+151 02576000 FLCPERCD EQU PSA+150 02577000 FLCMCNUM EQU PSA+149 02578000 @NM00013 EQU PSA+148 02579000 FLCTEAA EQU FLCTEA+1 02580000 @NM00012 EQU FLCTEA 02581000 PSAPIPC EQU PSAPICOD 02582000 PSAPIMC EQU PSAPICOD 02583000 PSAPIPER EQU PSAPICOD 02584000 PSARV049 EQU FLCPICOD 02585000 FLCPILCB EQU FLCPIILC 02586000 @NM00011 EQU FLCPIILC 02587000 @NM00010 EQU PSAEPPSW 02588000 FLCSVCN EQU PSAESPSW+2 02589000 FLCSILCB EQU FLCSVILC 02590000 @NM00009 EQU FLCSVILC 02591000 @NM00008 EQU PSAESPSW 02592000 FLCEICOD EQU PSAEEPSW+2 02593000 PSASPAD EQU PSAEEPSW 02594000 @NM00007 EQU PSA+128 02595000 FLCINPSW EQU PSA+120 02596000 FLCMNPSW EQU PSA+112 02597000 FLCPNPSW EQU PSA+104 02598000 FLCSNPSW EQU PSA+96 02599000 FLCENPSW EQU PSA+88 02600000 FLCTRACE EQU PSA+84 02601000 FLCTIMER EQU PSA+80 02602000 FLCCVT2 EQU PSA+76 02603000 FLCCAW EQU PSA+72 02604000 FLCCSW EQU PSA+64 02605000 FLCIOPSW EQU PSA+56 02606000 FLCMOPSW EQU PSA+48 02607000 FLCPOPSW EQU PSA+40 02608000 FLCSOPSW EQU PSA+32 02609000 FLCEOPSW EQU PSA+24 02610000 @NM00006 EQU FLCICCW2+4 02611000 FLCICCW1 EQU FLCROPSW 02612000 FLCIPPSW EQU FLCRNPSW 02613000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02614000 @RC00083 EQU IRARM001 02615000 @RC00190 EQU @EL00002 02616000 @RC00215 EQU @EL00002 02617000 @PB00002 EQU @EL00001 02618000 @ENDDATA EQU * 02619000 END IRARMINT,(C'PLS2145',0701,78024) 02620000