TITLE 'IEAVFXLD: PAGE FIX/LOAD' 00001000 IEAVFXLD CSECT 00002000 USING *,15 00003000 MODID BR=NO 00004000 ENTRY IEAVFXL2 00005000 IEAVFXL2 DS 0H 00006000 ST @14,CIWRETRN(CIWAPTR) SAVE RETURN REGISTER 00007000 BALR @09,@00 ESTABLISH ADDRESSABILITY 00008000 USING *,@09 00009000 * RCAFXLD='1'B; /* SET ENTRY POINT FLAG */ 00010000 L @14,RCAPTR(,PVTPTR) 0096 00011000 OI RCAFXLD(@14),B'00000100' 0096 00012000 * RCACSECT=RCACPGFL; /* SET MODULE ID */ 00013000 MVI RCACSECT(@14),X'16' 0097 00014000 * 0098 00015000 * /*****************************************************************/ 00016000 * /* */ 00017000 * /* LOOPVSL --- THIS IS THE LARGEST LOOP OF FIX/LOAD. THE FIRST */ 00018000 * /* VSL ENTRY TO BE PROCESSED IS IN THE CIWVSL. THE START AND END */ 00019000 * /* ADDRESSES ARE COMPARED, AND THE LOOP BROKEN WHEN START IS */ 00020000 * /* GREATER THAN END. THE LAST PAGE TO BE PROCESSED, CIWLSTPG, IS */ 00021000 * /* CALCULATED BY TRUNCATING CIWEND1A - 1 TO A PAGE BOUNDRY. THE */ 00022000 * /* START ADDRESS IS TRUNCATED TO A PAGE BOUNDRY AND STORED IN */ 00023000 * /* CIWCURPG. CONTROL THEN FALLS TO NEXTPGLP. CONTROL WILL RETURN */ 00024000 * /* TO VSLLOOP WHEN THE NEXTVSL MODULE IS CALLED AND RETURNS A */ 00025000 * /* CODE OF ZERO. */ 00026000 * /* */ 00027000 * /*****************************************************************/ 00028000 * 0098 00029000 *LOOPVSL: 0098 00030000 * IF CIWSTRTA>=CIWEND1A THEN /* IF STARTING ADDRESS IS GREATER 00031000 * THEN ENDING ADDRESS */ 00032000 LOOPVSL CLC CIWSTRTA(3,CIWAPTR),CIWEND1A(CIWAPTR) 0098 00033000 BL @RF00098 0098 00034000 * DO; 0099 00035000 * CIWRETC=16; /* SET CIW RETURN CODE TO 16 */ 00036000 MVI CIWRETC(CIWAPTR),X'10' 0100 00037000 * GOTO ERREXITA; /* ERROR-START GREATER THEN END */ 00038000 B ERREXITA 0101 00039000 * END; 0102 00040000 * RFY 0103 00041000 * (WORKREG, 0103 00042000 * TESTADDR, 0103 00043000 * REALPGR) RSTD; 0103 00044000 @RF00098 DS 0H 0104 00045000 * WORKREG=CIWEND1A-1; /* LOAD THE LAST PAGE POINTER */ 00046000 SLR WORKREG,WORKREG 0104 00047000 ICM WORKREG,7,CIWEND1A(CIWAPTR) 0104 00048000 BCTR WORKREG,0 0104 00049000 * WORKREG=WORKREG&TRUNCWD; /* TRUNCATE TO PAGE BOUNDRY */ 00050000 L @14,@CF02248 0105 00051000 NR WORKREG,@14 0105 00052000 * CIWLSTPG=WORKREG; /* STORE ROUNDED PAGE ADDRESS */ 00053000 ST WORKREG,CIWLSTPG(,CIWAPTR) 0106 00054000 * TESTADDR=CIWSTRTA; /* LOAD START ADDRESS OF PAGE */ 00055000 SLR TESTADDR,TESTADDR 0107 00056000 ICM TESTADDR,7,CIWSTRTA(CIWAPTR) 0107 00057000 * TESTADDR=TESTADDR&TRUNCWD; /* TRUNCATE TO PAGE BOUNDRY */ 00058000 NR TESTADDR,@14 0108 00059000 * 0109 00060000 * /*****************************************************************/ 00061000 * /* */ 00062000 * /* NEXTPGLP --- THIS LOOP PROCESSES THE PAGE ADDRESSED IN */ 00063000 * /* CIWCURPG. AFTER THE CURRENT PAGE IS PROCESSED, CONTROL WILL */ 00064000 * /* RETURN TO THIS POINT FROM PAGELOOP IF THERE IS ANOTHER PAGE TO*/ 00065000 * /* PROCESS. NEXTPGLP PROCESSING FIRST DETERMINES IF THE PAGE IS */ 00066000 * /* RESIDENT IN STOREAGE OR NOT, THE LRA INSTRUCTION PERFORMING */ 00067000 * /* THIS TEST. IF THE PAGE IS IN AN INVALID SEGMENT, A USER ERROR */ 00068000 * /* IS INDICATED. IF NOT INVALID, FINDPAGE IS CALLED TO OBTAIN */ 00069000 * /* PGTE AND XPTE ADDRESSES. THE PGTPAM FLAG IS TESTED TO INSURE */ 00070000 * /* THAT THE PAGE IS GETMAINED. THE RESIDENCY OF THE PAGE IS THEN */ 00071000 * /* TESTED. IF AN IN STORAGE PAGE, ( PGTPVM=0 ), PROCESSING FALLS */ 00072000 * /* THROUGH TO THE IN STORAGE CODE, ELSE CONTROL IS PASSED TO THE */ 00073000 * /* OUTOFSTG ROUTINE. */ 00074000 * /* */ 00075000 * /*****************************************************************/ 00076000 * 0109 00077000 *NEXTPGLP: 0109 00078000 * CIWCURPG=TESTADDR; /* STORE CURRENT PAGE ADDRESS */ 00079000 NEXTPGLP ST TESTADDR,CIWCURPG(,CIWAPTR) 0109 00080000 * GENERATE REFS(TESTADDR) SETS(REALPGR); 0110 00081000 LRA REALPGR,0(TESTADDR) DETERMINE IF SEGMENT IS VALID 00082000 * RFY 0111 00083000 * (WORKREG, 0111 00084000 * REALPGR) UNRSTD; 0111 00085000 * BC(5,ERREXIT); /* PAGE RESIDES IN INVALID 0112 00086000 * SEGMENT OR SEGMENT LENGTH 0112 00087000 * VIOLATION */ 00088000 BC 5,ERREXIT 0112 00089000 * RFY 0113 00090000 * (R0, 0113 00091000 * R1) RSTD; 0113 00092000 * R1=TESTADDR; /* LOAD ADDRESS FOR FINDPAGE. REG 00093000 * 1 IS A CONVENTION AND MUST NOT 00094000 * CHANGE */ 00095000 LR R1,TESTADDR 0114 00096000 * CALL IEAVFP2; /* GET PGTBL AND XPGTBL PTRS */ 00097000 L @15,PVTPFP2(,PVTPTR) 0115 00098000 BALR @14,@15 0115 00099000 * IF RETCODR^=0 THEN /* IF FINDPAGE RETURNS A NONZERO 00100000 * RETURN CODE */ 00101000 LTR RETCODR,RETCODR 0116 00102000 BZ @RF00116 0116 00103000 * DO; 0117 00104000 * RCARCRD='01'X; /* SET RECOVERY CODE */ 00105000 L @14,RCAPTR(,PVTPTR) 0118 00106000 MVI RCARCRD(@14),X'01' 0118 00107000 * GENERATE SETS(R1); 0119 00108000 ABEND X'C0D',,,SYSTEM ISSUE ABEND FOR FINDPAGE FAIL 00109000 * GOTO ERREXIT; /* ERROR-FINDPAGE FAILED */ 00110000 B ERREXIT 0120 00111000 * END; 0121 00112000 * RFY 0122 00113000 * (PTEPTR, 0122 00114000 * XPTEPTR) RSTD; 0122 00115000 @RF00116 DS 0H 0123 00116000 * PTEPTR=R0; /* LOAD PAGE TABLE PTR AS 0123 00117000 * RETURNED BY FINDPAGE */ 00118000 LR PTEPTR,R0 0123 00119000 * XPTEPTR=R1; /* LOAD EXT PAGE TABLE PTR AS 0124 00120000 * RETURNED BY FINDPAGE */ 00121000 LR XPTEPTR,R1 0124 00122000 * RFY 0125 00123000 * (R0, 0125 00124000 * R1) UNRSTD; 0125 00125000 * IF PGTPAM='0'B THEN /* IF PAGE IS NOT GM ASSIGNED */ 00126000 TM PGTPAM(PTEPTR),B'00000001' 0126 00127000 BZ @RT00126 0126 00128000 * GOTO ERREXIT; /* ERROR-PAGE NOT GM ASSIGNED */ 00129000 * IF PGTPVM='1'B THEN /* IF PAGE IS NOT IN REAL CORE */ 00130000 TM PGTPVM(PTEPTR),B'00001000' 0128 00131000 BO @RT00128 0128 00132000 * GOTO OUTOFSTG; /* GO TO THE OUT OF STG ROUTINE */ 00133000 * 0130 00134000 * /*****************************************************************/ 00135000 * /* */ 00136000 * /* IN STORAGE PROCESSING --- AN IMMEDIATE TEST IS MADE TO */ 00137000 * /* DETERMINE IF A FIX OR A LOAD IS REQUESTED. FOR LOAD REQUESTS, */ 00138000 * /* NO IN-STORAGE PROCESSING IS REQUIRED. FOR FIX REQUESTS, THE */ 00139000 * /* PAGE MUST BE MADE NON-PAGEABLE. IF THE VIRTUAL ADDRESS IS */ 00140000 * /* BELOW THE PRIVATE AREA IT IS ASSUMED TO BE IN THE NUCLEUS AND */ 00141000 * /* IS ALREADY FIXED, OTHERWISE THE PFTE MUST BE LOCATED TO */ 00142000 * /* DETERMINE IF THE PAGE IS IN SQA, LSQA, OR IF IT IS A V=R */ 00143000 * /* ALLOCATED PAGE. IF SO, IT IS NON-PAGEABLE AND FIXING IS NOT */ 00144000 * /* REQUIRED. IF A FIX IS REQUESTED FOR A VAM PAGE, AN ERROR */ 00145000 * /* CONDITION EXISTS. IF THE PAGE IS FIXABLE AND NOT ALREADY FIXED*/ 00146000 * /* AND BACKED BY A NON-PREFERRED PAGE FURTHER CHECKS ARE MADE TO */ 00147000 * /* DETERMINE IF THE PAGE SHOULD BE FIXED IN THE PREFERRED AREA. */ 00148000 * /* PAGES SHOULD BE FIXED IN THE PREFERRED AREA IF IT IS (1) A */ 00149000 * /* COMMON AREA PAGE OR (2) IT IS A PRIVATE AREA PAGE AND THE USER*/ 00150000 * /* IS A SECOND LEVEL PREFERRED USER OR (3) THE REQUEST IS FOR A */ 00151000 * /* LONG-TERM PRIVATE AREA FIX AND USER IS A FIRST LEVEL PREFERRED*/ 00152000 * /* USER. @ZA16816*/ 00153000 * /* */ 00154000 * /*****************************************************************/ 00155000 * 0130 00156000 * IF CIWFIX='1'B THEN /* IF THIS IS A FIX REQUEST, IN 00157000 * STORAGE PROCESSING IS REQUIRED*/ 00158000 TM CIWFIX(CIWAPTR),B'01000000' 0130 00159000 BNO @RF00130 0130 00160000 * DO; 0131 00161000 * IF CURVBN=PVTLCSA THEN /* IF COMMON AREA, THEN @ZA16816*/ 00196000 CLC CURVBN(2,CIWAPTR),PVTLCSA(PVTPTR) 0145 00197000 BNL @RT00145 0145 00198000 * GOTO OUTOFSTG; /* FIX IN PREFERRED AREA @ZA16816*/ 00199000 * IF ASCB1LPU='1'B THEN /* IF LEV 1 USER, FIX IN @ZA16816*/ 00200000 L @14,ASCBPTR 0147 00201000 TM ASCB1LPU(@14),B'01000000' 0147 00202000 BNO @RF00147 0147 00203000 * IF CIWLONG='1'B| /* PREF AREA IF LONG-FIX @ZA16816*/ 00204000 * ASCB2LPU='1'B THEN/* OR IF LEV 2 USER, ANY @ZA16816*/ 00205000 TM CIWLONG(CIWAPTR),B'00000010' 0148 00206000 BO @RT00148 0148 00207000 TM ASCB2LPU(@14),B'10000000' 0148 00208000 BO @RT00148 0148 00209000 * GOTO OUTOFSTG; /* FIX GOES IN PREFERRED @ZA16816*/ 00210000 * END; /* @ZA16816*/ 00211000 @RF00147 DS 0H 0151 00212000 * PFTFXCT=PFTFXCT+1; /* INCREMENT FXCT @ZA16816*/ 00213000 @RF00143 LA @14,1 0151 00214000 AH @14,PFTFXCT(,PFTEPTR) 0151 00215000 STH @14,PFTFXCT(,PFTEPTR) 0151 00216000 * RFY 0152 00217000 * (INPUTVBN) RSTD; 0152 00218000 * INPUTVBN=CURVBN; /* LOAD PARM FOR FOEADD */ 00219000 SLR INPUTVBN,INPUTVBN 0153 00220000 ICM INPUTVBN,3,CURVBN(CIWAPTR) 0153 00221000 * CALL FOEADD; /* CALL ROUTINE TO ADD FOE TO 0154 00222000 * LIST */ 00223000 BAL @14,FOEADD 0154 00224000 * IF RETCODR^=0 THEN /* IF FOEADD HAD GETMAIN FAILURE */ 00225000 LTR RETCODR,RETCODR 0155 00226000 BZ @RF00155 0155 00227000 * DO; 0156 00228000 * PFTFXCT=PFTFXCT-1; /* RESTORE FIX COUNT @ZA16816*/ 00229000 LH @14,PFTFXCT(,PFTEPTR) 0157 00230000 BCTR @14,0 0157 00231000 STH @14,PFTFXCT(,PFTEPTR) 0157 00232000 * CIWRETC=20; /* MARK ENVIRONMENTAL ERROR */ 00233000 MVI CIWRETC(CIWAPTR),X'14' 0158 00234000 * GOTO ERREXITA; /* ERROR-FOE GETMAIN FAILED */ 00235000 B ERREXITA 0159 00236000 * END; 0160 00237000 * IF PFTFXCT=1 THEN /* @YA01572*/ 00238000 @RF00155 LA @14,1 0161 00239000 CH @14,PFTFXCT(,PFTEPTR) 0161 00240000 BNE @RF00161 0161 00241000 * DO; /* @YA01572*/ 00242000 * IF PFTQNDXCIWLSTPG THEN /* IF THIS PAGE IS TO BE 0181 00310000 * PROCESSED */ 00311000 C TESTADDR,CIWLSTPG(,CIWAPTR) 0181 00312000 BNH @RT00181 0181 00313000 * GOTO NEXTPGLP; /* GO TO PAGE PROCESSING LOOP */ 00314000 * IF CIWINVSL^=0 THEN /* IF NOT A REGISTER FORM ENTRY */ 00315000 SLR @14,@14 0183 00316000 C @14,CIWINVSL(,CIWAPTR) 0183 00317000 BE @RF00183 0183 00318000 * DO; 0184 00319000 * CIWCURPG=0; /* CLEAR */ 00320000 ST @14,CIWCURPG(,CIWAPTR) 0185 00321000 * CIWLSTPG=0; /* CLEAR */ 00322000 ST @14,CIWLSTPG(,CIWAPTR) 0186 00323000 * CALL NEXTVSL; /* CALL TO GET A NEW VSL ENTRY */ 00324000 L @15,@CV02299 0187 00325000 BALR @14,@15 0187 00326000 * IF RETCODR=0 THEN /* IF NEXTVSL RETURNED A ZERO 0188 00327000 * R.C. */ 00328000 LTR RETCODR,RETCODR 0188 00329000 BZ @RT00188 0188 00330000 * GOTO LOOPVSL; /* PROCESS A NEW GROUP */ 00331000 * IF RETCODR^=8 THEN /* R.C. FROM NEXTVSL WAS NOT 0, 00332000 * AND IS NOT 8 */ 00333000 CH RETCODR,@CH00059 0190 00334000 BE @RF00190 0190 00335000 * DO; 0191 00336000 * CIWRETC=16; /* SET RETURN CODE TO 16 */ 00337000 MVI CIWRETC(CIWAPTR),X'10' 0192 00338000 * GOTO ERREXITA; /* ERROR-BAD RETURN CODE FROM 0193 00339000 * NEXTVSL */ 00340000 B ERREXITA 0193 00341000 * END; 0194 00342000 * END; 0195 00343000 * GOTO NORMEXIT; /* NO MORE TO PROCESS, GO TO EXIT*/ 00344000 B NORMEXIT 0196 00345000 * 0197 00346000 * /*****************************************************************/ 00347000 * /* */ 00348000 * /* OUTOFSTG --- THIS ROUTINE IS PERFORMED FOR BOTH PGFIX AND */ 00349000 * /* PGLOAD IF THE REQUESTED PAGES ARE NOT IN REAL STOREAGE. IF A */ 00350000 * /* FIX HAS BEEN REQUESTED FOR A VIO WINDOW PAGE, CONTROL PASSES */ 00351000 * /* TO THE ERROR ROUTINE, AS WINDOW PAGES CANNOT BE FIXED. IF A */ 00352000 * /* PCB EXISTS ON THE INTERNAL QUEUE (CIWWRK1), CONTROL PASSES TO */ 00353000 * /* PAGELOOP FOR LOAD REQUESTS. FOR FIX REQUESTS, AN FOE IS ADDED */ 00354000 * /* TO THE LIST BEFORE GOING TO PAGELOOP. IF NO PCB EXISTS, ONE */ 00355000 * /* MUST BE CREATED. A CHECK IS MADE TO DETERMINE IF A LONG FIX */ 00356000 * /* WAS REQUESTED, AS THIS CODE IS USED FOR PCB CREATION FOR PAGES*/ 00357000 * /* ALREADY IN REAL CORE BUT IN POTENTIAL V=R FRAMES. THE PCB IS */ 00358000 * /* ASSOCIATED WITH A ROOT PCB IF THE REQUESTOR SUPPLIED AN ECB. */ 00359000 * /* IN THE CASE OF USER REQUESTED LOADS, PROCESSING WILL TERMINATE*/ 00360000 * /* IF THE PCB FREE QUEUE BECOMES CRITICALLY LOW (REACHES */ 00361000 * /* THRESHOLD), AND PREVIOUSLY PROCESSED PCBS WILL BE BACKED OUT. */ 00362000 * /* IN CASE THE PCB MANAGER RETURNS AN ERROR CODE, THIS ROUTINE */ 00363000 * /* WILL SET RETURN CODE OF 20 FOR FIX REQUESTS, OR ZERO FOR LOAD */ 00364000 * /* REQUESTS. OTHERWISE THE PCB IS ADDED TO THE QUEUE */ 00365000 * /* (CIWWRK1-CIWWRK2). */ 00366000 * /* */ 00367000 * /*****************************************************************/ 00368000 * 0197 00369000 * RFY 0197 00370000 * (PCBPTR) RSTD; 0197 00371000 *OUTOFSTG: 0198 00372000 * IF CIWFIX='1'B&XPTVIO='1'B THEN /* VIO WINDOW PAGES CANT BE FIXED 00373000 * @Z40WPYD*/ 00374000 OUTOFSTG TM CIWFIX(CIWAPTR),B'01000000' 0198 00375000 BNO @RF00198 0198 00376000 TM XPTVIO(XPTEPTR),B'00001000' 0198 00377000 BO @RT00198 0198 00378000 * GOTO ERREXIT; /* ERROR - CANT FIX WINDOW PAGES */ 00379000 * PCBPTR=CIWWRK1; /* SET PCBPTR TO FIRST ON QUE */ 00380000 * 0200 00381000 @RF00198 L PCBPTR,CIWWRK1(,CIWAPTR) 0200 00382000 * /*****************************************************************/ 00383000 * /* */ 00384000 * /* TRY TO FIND THE ASSOCIATED PCB */ 00385000 * /* */ 00386000 * /*****************************************************************/ 00387000 * 0201 00388000 * DO WHILE PCBPTR^=0; /* LOOP AS LONG AS THERE IS A PCB*/ 00389000 B @DE00201 0201 00390000 @DL00201 DS 0H 0202 00391000 * IF PCBVBN=CURVBN THEN /* IF THIS PCB IS FOR CURRENT 0202 00392000 * PAGE */ 00393000 CLC PCBVBN(2,PCBPTR),CURVBN(CIWAPTR) 0202 00394000 BNE @RF00202 0202 00395000 * DO; 0203 00396000 * IF CIWFIX='0'B THEN /* IF THIS IS A LOAD REQUEST */ 00397000 TM CIWFIX(CIWAPTR),B'01000000' 0204 00398000 BZ @RT00204 0204 00399000 * GOTO PAGELOOP; /* NO FURTHER OUT OF PAGE 0205 00400000 * PROCESSING IS REQUIRED, RETURN 00401000 * TO PAGELOOP */ 00402000 * PCBFXC=PCBFXC+1; /* INCREMENT FIX COUNT IN PCB */ 00403000 LA @14,1 0206 00404000 SLR @12,@12 0206 00405000 IC @12,PCBFXC(,PCBPTR) 0206 00406000 ALR @14,@12 0206 00407000 STC @14,PCBFXC(,PCBPTR) 0206 00408000 * RFY 0207 00409000 * (INPUTVBN) RSTD; 0207 00410000 * INPUTVBN=CURVBN; /* LOAD PARM FOR FOEADD */ 00411000 SLR INPUTVBN,INPUTVBN 0208 00412000 ICM INPUTVBN,3,CURVBN(CIWAPTR) 0208 00413000 * CALL FOEADD; /* CALL TO ADD FOE TO CHAIN */ 00414000 BAL @14,FOEADD 0209 00415000 * RFY 0210 00416000 * (INPUTVBN) UNRSTD; 0210 00417000 * IF RETCODR^=0 THEN /* IF FOEADD HAD GETMAIN FAILURE */ 00418000 LTR RETCODR,RETCODR 0211 00419000 BZ @RF00211 0211 00420000 * DO; 0212 00421000 * CIWRETC=20; /* MARK ENVIRONMENTAL ERROR */ 00422000 MVI CIWRETC(CIWAPTR),X'14' 0213 00423000 * GOTO ERREXITA; /* ERROR-FOE GETMAIN FAILED */ 00424000 B ERREXITA 0214 00425000 * END; 0215 00426000 * GOTO PAGELOOP; /* NO FURTHER OUT OF STG 0216 00427000 * PROCESSING REQUIRED */ 00428000 B PAGELOOP 0216 00429000 * END; 0217 00430000 * PCBPTR=PCBFQPA; /* PICK UP NEXT PCB ON CHAIN */ 00431000 @RF00202 SLR @14,@14 0218 00432000 ICM @14,7,PCBFQPA(PCBPTR) 0218 00433000 LR PCBPTR,@14 0218 00434000 * END; 0219 00435000 * 0219 00436000 @DE00201 LTR PCBPTR,PCBPTR 0219 00437000 BNZ @DL00201 0219 00438000 * /*****************************************************************/ 00439000 * /* */ 00440000 * /* TEST FOR USER REQUESTED PAGE LOAD, AND GET A PCB AND A ROOT */ 00441000 * /* PCB IF REQUIRED */ 00442000 * /* */ 00443000 * /*****************************************************************/ 00444000 * 0220 00445000 * IF CIWFIX='0'B&CIWKEY>SUPERKEY&PVTPCBCT<=PVTPCBLO THEN/* IF THIS 00446000 * IS A LOAD REQUEST FROM A 0220 00447000 * NON-SUPERVISOR FUNCTION AND 0220 00448000 * THE PCB FREE QUEUE IS 0220 00449000 * CRITICALLY LOW */ 00450000 TM CIWFIX(CIWAPTR),B'01000000' 0220 00451000 BNZ @RF00220 0220 00452000 CLI CIWKEY(CIWAPTR),112 0220 00453000 BNH @RF00220 0220 00454000 LH @14,PVTPCBCT(,PVTPTR) 0220 00455000 CH @14,PVTPCBLO(,PVTPTR) 0220 00456000 BH @RF00220 0220 00457000 * DO; 0221 00458000 * CIWRETC=0; /* NO ERROR HAS OCCURED */ 00459000 MVI CIWRETC(CIWAPTR),X'00' 0222 00460000 * GOTO ERREXITA; /* STOP PROCESSING AND BACK OUT 00461000 * ANY PCBS PREVIOUSLY QUEUED */ 00462000 B ERREXITA 0223 00463000 * END; 0224 00464000 * RFY 0225 00465000 * (R0, 0225 00466000 * R1) RSTD; 0225 00467000 @RF00220 DS 0H 0226 00468000 * R1=0; /* SPECIFY BUILD OPTION TO PCB 0226 00469000 * MGR */ 00470000 SLR R1,R1 0226 00471000 * IF CIWECB^=0&CIWWRK2=0 THEN /* IF AN ECB WAS SUPPLIED BY THE 00472000 * REQUESTOR AND NO ROOT PCB 0227 00473000 * EXISTS */ 00474000 SLR @14,@14 0227 00475000 C @14,CIWECB(,CIWAPTR) 0227 00476000 BE @RF00227 0227 00477000 C @14,CIWWRK2(,CIWAPTR) 0227 00478000 BNE @RF00227 0227 00479000 * R0=2; /* SET PARM REG FOR PCB MGR TO 0228 00480000 * INCLUDE ROOT PCB */ 00481000 LA R0,2 0228 00482000 * ELSE /* IF NO ECB, OR IF A ROOT PCB 0229 00483000 * EXISTS */ 00484000 * R0=1; /* SET PARM FOR PCB MGR */ 00485000 B @RC00227 0229 00486000 @RF00227 LA R0,1 0229 00487000 * CALL IEAVPCB; /* CALL PCB MANAGER FOR PCB BUILD*/ 00488000 @RC00227 L @15,PVTPCB(,PVTPTR) 0230 00489000 BALR @14,@15 0230 00490000 * IF RETCODR^=0 THEN /* IF PCB MANAGER COULDN'T SUPPLY 00491000 * THE REQUIRED PCBS */ 00492000 LTR RETCODR,RETCODR 0231 00493000 BZ @RF00231 0231 00494000 * DO; 0232 00495000 * RCARCRD='0E'X; /* SET RECOVERY CODE */ 00496000 L @14,RCAPTR(,PVTPTR) 0233 00497000 MVI RCARCRD(@14),X'0E' 0233 00498000 * GENERATE SETS(R1); 0234 00499000 ABEND X'C0D',,,SYSTEM ABEND TO RECORD INTERNAL ERROR 00500000 * IF CIWFIX='1'B THEN /* IF THIS IS A FIX REQUEST */ 00501000 TM CIWFIX(CIWAPTR),B'01000000' 0235 00502000 BNO @RF00235 0235 00503000 * DO; 0236 00504000 * CIWRETC=20; /* MARK ENVIRONMENTAL ERROR */ 00505000 MVI CIWRETC(CIWAPTR),X'14' 0237 00506000 * GOTO ERREXITA; /* ERROR-PCB MGR FAILED */ 00507000 B ERREXITA 0238 00508000 * END; 0239 00509000 * ELSE /* IF THIS IS A LOAD REQUEST */ 00510000 * GOTO NORMEXIT; /* STOP PROCESSING AND RETURN */ 00511000 * END; 0241 00512000 * PCBPTR=R1; /* LOAD PCB ADDRESS AS RETURNED 00513000 * BY PCB MANAGER */ 00514000 @RF00231 LR PCBPTR,R1 0242 00515000 * RFY 0243 00516000 * (R0, 0243 00517000 * R1) UNRSTD; 0243 00518000 * 0244 00519000 * /*****************************************************************/ 00520000 * /* */ 00521000 * /* INITIALIZE PCB AND ROOT PCB IF REQUIRED */ 00522000 * /* */ 00523000 * /*****************************************************************/ 00524000 * 0244 00525000 * RFY 0244 00526000 * (WORKADDR) RSTD; 0244 00527000 * IF PCBFQPA^=0 THEN /* IF A ROOT PCB WAS REQUIRED */ 00528000 SLR @14,@14 0245 00529000 ICM @14,7,PCBFQPA(PCBPTR) 0245 00530000 LTR @14,@14 0245 00531000 BZ @RF00245 0245 00532000 * DO; 0246 00533000 * WORKADDR=PCBFQPA; /* SAVE NEXT PCB POINTER */ 00534000 LR WORKADDR,@14 0247 00535000 * PCBRTCB=CIWTCB; /* SET ROOT PCB TCB FIELD */ 00536000 MVC PCBRTCB(4,PCBRPTR),CIWTCB(CIWAPTR) 0248 00537000 * PCBRECB=CIWECB; /* SET ROOT PCB ECB FIELD */ 00538000 MVC PCBRECB(4,PCBRPTR),CIWECB(CIWAPTR) 0249 00539000 * PCBRASCB=PSAAOLD; /* SET ROOT PCB ASCB FIELD */ 00540000 MVC PCBRASCB(4,PCBRPTR),PSAAOLD 0250 00541000 * PCBRGOTO=ADDR(IEAVFXL); /* SET ROOT PCB GOTO FIELD TO 0251 00542000 * ADDRESS OF IEAVFXL */ 00543000 L @14,@CA02317 0251 00544000 ST @14,PCBRGOTO(,PCBRPTR) 0251 00545000 * PCBRFLAG='0'B; /* SET PCB ROOT FLAGS OFF */ 00546000 MVI PCBRFLAG(PCBRPTR),B'00000000' 0252 00547000 * CIWWRK2=PCBRPTR; /* STORE ADDRESS OF ROOT PCB */ 00548000 ST PCBRPTR,CIWWRK2(,CIWAPTR) 0253 00549000 * IF CIWFIX='0'B THEN /* IF THIS IS A LOAD REQUEST */ 00550000 TM CIWFIX(CIWAPTR),B'01000000' 0254 00551000 BNZ @RF00254 0254 00552000 * PCBRLOAD='1'B; /* SET PAGE LOAD FLAG IN ROOT PCB*/ 00553000 OI PCBRLOAD(PCBRPTR),B'00000100' 0255 00554000 * PCBPTR=WORKADDR; /* SET UP PCBPTR FOR REGULAR PCB */ 00555000 @RF00254 LR PCBPTR,WORKADDR 0256 00556000 * END; 0257 00557000 * RFY 0258 00558000 * (WORKADDR) UNRSTD; 0258 00559000 @RF00245 DS 0H 0259 00560000 * PCBXPTA=XPTEPTR; /* LOAD EXTERNAL PAGE TABLE 0259 00561000 * ADDRESS */ 00562000 STCM XPTEPTR,7,PCBXPTA(PCBPTR) 0259 00563000 * PCBPGTA=PTEPTR; /* LOAD PAGE TABLE ADDRESS */ 00564000 STCM PTEPTR,7,PCBPGTA(PCBPTR) 0260 00565000 * PCBVBN=CURVBN; /* LOAD VIRTUAL BLOCK NUMBER OF 00566000 * PAGE */ 00567000 MVC PCBVBN(2,PCBPTR),CURVBN(CIWAPTR) 0261 00568000 * PCBASCB=PSAAOLD; /* LOAD ASCB FROM PSA */ 00569000 MVC PCBASCB(4,PCBPTR),PSAAOLD 0262 00570000 * IF PCBVBNAIAPRIV='1'B; /* SET PRIVATE AREA FLAG IN AIA 00574000 * @Z40WPYD*/ 00575000 * 0264 00576000 OI AIAPRIV(PCBPTR),B'01000000' 0264 00577000 * /*****************************************************************/ 00578000 * /* */ 00579000 * /* ASSOCIATE ROOT PCB WITH PCB IF REQUIRED, AND CHAIN PCB */ 00580000 * /* */ 00581000 * /*****************************************************************/ 00582000 * 0265 00583000 * IF CIWECB=0 THEN /* IF NO ECB WAS SUPPLIED BY 0265 00584000 * REQUESTER */ 00585000 @RF00263 ICM @14,15,CIWECB(CIWAPTR) 0265 00586000 BNZ @RF00265 0265 00587000 * PCBRTPA=CIWTCB; /* LOAD TCB ADDRESS IN PCB */ 00588000 MVC PCBRTPA(3,PCBPTR),CIWTCB+1(CIWAPTR) 0266 00589000 * ELSE 0267 00590000 * DO; 0267 00591000 B @RC00265 0267 00592000 @RF00265 DS 0H 0268 00593000 * PCBRTPA=CIWWRK2; /* LOAD THE ADDRESS OF THE ROOT 00594000 * PCB */ 00595000 L @14,CIWWRK2(,CIWAPTR) 0268 00596000 STCM @14,7,PCBRTPA(PCBPTR) 0268 00597000 * PCBROOT='1'B; /* SET THE ROOT POINTER BIT */ 00598000 OI PCBROOT(PCBPTR),B'00000100' 0269 00599000 * CIWWRK2->PCBRCNT=CIWWRK2->PCBRCNT+1;/* INCREMENT ROOT COUNT */ 00600000 LA @12,1 0270 00601000 AH @12,PCBRCNT(,@14) 0270 00602000 STH @12,PCBRCNT(,@14) 0270 00603000 * END; 0271 00604000 * PCBFQPA=CIWWRK1; /* PCB FORWARD POINTER POINTS TO 00605000 * FIRST PCB NOW ON QUE */ 00606000 @RC00265 MVC PCBFQPA(3,PCBPTR),CIWWRK1+1(CIWAPTR) 0272 00607000 * CIWWRK1=PCBPTR; /* SET QUE HEADER TO POINT TO 0273 00608000 * FIRST PCB */ 00609000 ST PCBPTR,CIWWRK1(,CIWAPTR) 0273 00610000 * 0274 00611000 * /*****************************************************************/ 00612000 * /* */ 00613000 * /* IF A FIX REQUEST, UPDATE FIX COUNT AND CALL FOEADD */ 00614000 * /* */ 00615000 * /*****************************************************************/ 00616000 * 0274 00617000 * IF CIWFIX='1'B THEN /* IF THIS IS A FIX REQUEST */ 00618000 TM CIWFIX(CIWAPTR),B'01000000' 0274 00619000 BNO @RF00274 0274 00620000 * DO; 0275 00621000 * 0275 00622000 * /*************************************************************/ 00623000 * /* */ 00624000 * /* INDICATE A PREFERRED AREA FIX REQUEST TO GFA (PCBPREFR=1) */ 00625000 * /* IF THE FIX IS A (1) COMMON AREA FIX, (2) PRIVATE LONG-FIX */ 00626000 * /* FOR A LEVEL 1 USER, OR (3) PRIVATE FIX FOR A LEVEL 2 USER */ 00627000 * /* @ZA16816*/ 00628000 * /* */ 00629000 * /*************************************************************/ 00630000 * 0276 00631000 * IF CURVBN>=PVTLCSA| /* IF COMMON AREA OR @ZA16816*/ 00632000 * (ASCB1LPU='1'B& /* LEVEL 1 USER AND @ZA16816*/ 00633000 * (CIWLONG='1'B| /* FIX IS LONG-TERM OR @ZA16816*/ 00634000 * ASCB2LPU='1'B)) THEN /* LEVEL 2 USER ALSO THEN 0276 00635000 * @ZA16816*/ 00636000 CLC CURVBN(2,CIWAPTR),PVTLCSA(PVTPTR) 0276 00637000 BNL @RT00276 0276 00638000 L @14,ASCBPTR 0276 00639000 TM ASCB1LPU(@14),B'01000000' 0276 00640000 BNO @RF00276 0276 00641000 TM CIWLONG(CIWAPTR),B'00000010' 0276 00642000 BO @RT00276 0276 00643000 TM ASCB2LPU(@14),B'10000000' 0276 00644000 BNO @RF00276 0276 00645000 @RT00276 DS 0H 0277 00646000 * PCBPREFR='1'B; /* REQUEST A PREF FRAME @ZA16816*/ 00647000 OI PCBPREFR(PCBPTR),B'00001000' 0277 00648000 * PCBFXC=1; /* SET FIX COUNT TO 1 */ 00649000 @RF00276 MVI PCBFXC(PCBPTR),X'01' 0278 00650000 * RFY 0279 00651000 * (INPUTVBN) RSTD; 0279 00652000 * INPUTVBN=CURVBN; /* LOAD PARM FOR FOEADD */ 00653000 SLR INPUTVBN,INPUTVBN 0280 00654000 ICM INPUTVBN,3,CURVBN(CIWAPTR) 0280 00655000 * CALL FOEADD; /* CALL TO ADD FOE TO CHAIN */ 00656000 BAL @14,FOEADD 0281 00657000 * RFY 0282 00658000 * (INPUTVBN) UNRSTD; 0282 00659000 * IF RETCODR^=0 THEN /* IF FOEADD HAD GETMAIN FAILURE */ 00660000 LTR RETCODR,RETCODR 0283 00661000 BZ @RF00283 0283 00662000 * DO; 0284 00663000 * CIWRETC=20; /* MARK ENVIRONMENTAL ERROR */ 00664000 MVI CIWRETC(CIWAPTR),X'14' 0285 00665000 * GOTO ERREXITA; /* ERROR-FOE GETMAIN FAILED */ 00666000 B ERREXITA 0286 00667000 * END; 0287 00668000 * END; 0288 00669000 * GOTO PAGELOOP; /* END OF OUTOFSTG ROUTINE, GO 0289 00670000 * BACK TO PAGELOOP */ 00671000 B PAGELOOP 0289 00672000 * RFY 0290 00673000 * (PTEPTR, 0290 00674000 * XPTEPTR, 0290 00675000 * PCBPTR, 0290 00676000 * TESTADDR) UNRSTD; 0290 00677000 * 0291 00678000 * /*****************************************************************/ 00679000 * /* */ 00680000 * /* NORMEXIT --- THIS ROUTINE PASSES ANY PCBS ON THE INTERNAL */ 00681000 * /* QUEUE (CIWWRK1) TO THE GFA MODULE. GFA RETURNS A CODE */ 00682000 * /* INDICATING IMMEDIATE ALLOCATION OR NOT. IF SATISFIED, A RETURN*/ 00683000 * /* TO THE CALLER IS MADE WITH A ZERO RETURN CODE, OTHERWISE */ 00684000 * /* RETURN IS MADE TO THE CALLER WITH A RETURN CODE OF EIGHT (8). */ 00685000 * /* RETURN IS VIA BRANCH TO REG 14. */ 00686000 * /* */ 00687000 * /*****************************************************************/ 00688000 * 0291 00689000 * RFY 0291 00690000 * (R1) RSTD; 0291 00691000 *NORMEXIT: 0292 00692000 * CIWRETC=0; /* SET THE RETURN CODE TO 0, THE 00693000 * NORMAL CONDITION CODE */ 00694000 NORMEXIT MVI CIWRETC(CIWAPTR),X'00' 0292 00695000 * IF CIWWRK1^=0 THEN /* IF THE INTERNAL QUEUE HAS A 0293 00696000 * PCB */ 00697000 L @14,CIWWRK1(,CIWAPTR) 0293 00698000 LTR @14,@14 0293 00699000 BZ @RF00293 0293 00700000 * DO; 0294 00701000 * R1=CIWWRK1; /* LOAD REG 1 WITH ADDRESS OF 0295 00702000 * FIRST PCB */ 00703000 LR R1,@14 0295 00704000 * CALL IEAVGFA; /* CALL GENERAL FRAME ALLOCATION */ 00705000 L @15,PVTPGFA(,PVTPTR) 0296 00706000 BALR @14,@15 0296 00707000 * RCACSECT=RCACPGFL; /* RESTORE CSECT ID AFTER CALL */ 00708000 L @14,RCAPTR(,PVTPTR) 0297 00709000 MVI RCACSECT(@14),X'16' 0297 00710000 * RFY 0298 00711000 * (R1) UNRSTD; 0298 00712000 * IF RETCODR=0 THEN /* IF GFA PERFORMED IMMEDIATE 0299 00713000 * ALLOCATION, AND RETURNED PCBS 00714000 * TO FREE QUEUE */ 00715000 LTR RETCODR,RETCODR 0299 00716000 BNZ @RF00299 0299 00717000 * CIWNOPST='1'B; /* SET THE CIW POST FLAG */ 00718000 OI CIWNOPST(CIWAPTR),B'00000001' 0300 00719000 * ELSE /* IF GFA DID NOT IMMEDIATELY 0301 00720000 * ALLOCATE */ 00721000 * IF CIWECB^=0 THEN /* IF ECB WAS SUPPLIED BY 0301 00722000 * REQUESTER */ 00723000 B @RC00299 0301 00724000 @RF00299 ICM @14,15,CIWECB(CIWAPTR) 0301 00725000 BZ @RF00301 0301 00726000 * CIWRETC=8; /* RETURN CODE IS NOW 8 TO 0302 00727000 * INDICATE ASSYNCHRONOUS 0302 00728000 * COMPLETION */ 00729000 MVI CIWRETC(CIWAPTR),X'08' 0302 00730000 * END; 0303 00731000 @RF00301 DS 0H 0303 00732000 @RC00299 DS 0H 0304 00733000 * RCAFXLD='0'B; /* RESET THE ENTRY POINT FLAG */ 00734000 @RF00293 L @14,RCAPTR(,PVTPTR) 0304 00735000 NI RCAFXLD(@14),B'11111011' 0304 00736000 * GENERATE; 0305 00737000 L @14,CIWRETRN(CIWAPTR) RESTORE RETURN ADDRESS 00738000 BR @14 UNCONDITIONAL RETURN 00739000 * 0306 00740000 * /*****************************************************************/ 00741000 * /* */ 00742000 * /* ERREXIT - ERREXITA --- THIS ROUTINE IS THE ERROR EXIT CLEANUP */ 00743000 * /* ROUTINE. ENTRY IS AT ERREXIT FOR ALL RETURN CODE 4 ERRORS, AND*/ 00744000 * /* AT ERREXITA FOR ALL OTHER RETURN CODE ERRORS. FOR RETURN CODE */ 00745000 * /* 4 ERRORS, THE RETURN CODE IS SET HERE TO PRECLUDE REDUNDANT */ 00746000 * /* CODE. ALL OTHER RETURN CODES MUST SET THE CODE BEFORE PASSING */ 00747000 * /* CONTROL TO THIS POINT. ANY PCBS THAT ARE ON THE QUEUE WILL BE */ 00748000 * /* FREED AT THIS TIME AS NO FURTHER PROCESSING WILL TAKE PLACE. */ 00749000 * /* HOWEVER, FOE PROCESSING IS PERFORMED FIRST IF NECESSARY. */ 00750000 * /* PGFREE IS CALLED TO BACK OUT PAGES IN REAL STOREAGE THAT WERE */ 00751000 * /* PROCESSED PRIOR TO THE ERROR. AFTER PGFREE RETURNS CONTROL, */ 00752000 * /* RETURN IS MADE TO PSI. CALLS MADE IN THIS ROUTINE ARE TO */ 00753000 * /* FOEDEL, IEAVPCB, AND IEAVFREE. - NOTE - ENTRY AT ERREXITA MAY */ 00754000 * /* BE MADE WITH A RETURN CODE OF ZERO WHEN THIS MODULE FINDS IT */ 00755000 * /* NECESSARY TO QUIT PROCESSING AND BACK OUT OF A STARTED REQUEST*/ 00756000 * /* BECAUSE OF LOW PCB AVAILABILITY ON A NON-SUPERVISOR LOAD */ 00757000 * /* REQUEST */ 00758000 * /* */ 00759000 * /*****************************************************************/ 00760000 * 0306 00761000 *ERREXIT: 0306 00762000 * CIWRETC=4; /* ALWAYS SET RETURN CODE TO 4 ON 00763000 * ON THIS ENTRY */ 00764000 * 0306 00765000 ERREXIT MVI CIWRETC(CIWAPTR),X'04' 0306 00766000 * /*****************************************************************/ 00767000 * /* */ 00768000 * /* IF THERE ARE PCBS ON THE INTERNAL QUEUE, FREE THEM */ 00769000 * /* */ 00770000 * /*****************************************************************/ 00771000 * 0307 00772000 *ERREXITA: 0307 00773000 * IF CIWWRK1^=0 THEN /* IF THE INTERNAL PCB QUEUE IS 00774000 * NOT EMPTY */ 00775000 ERREXITA L @14,CIWWRK1(,CIWAPTR) 0307 00776000 LTR @14,@14 0307 00777000 BZ @RF00307 0307 00778000 * DO; 0308 00779000 * RFY 0309 00780000 * (PCBPTR, 0309 00781000 * BACKPTR) RSTD; 0309 00782000 * PCBPTR=CIWWRK1; /* GET ADDRESS OF FIRST PCB ON 0310 00783000 * QUE */ 00784000 LR PCBPTR,@14 0310 00785000 * BACKPTR=0; /* FIRST BACKWARD PTR = 0 */ 00786000 SLR BACKPTR,BACKPTR 0311 00787000 * DO WHILE PCBPTR^=0; /* LOOP HERE UNTIL ALL PCBS ON 0312 00788000 * THE QUEUE ARE PROCESSED */ 00789000 B @DE00312 0312 00790000 @DL00312 DS 0H 0313 00791000 * RFY 0313 00792000 * (INPUTVBN) RSTD; 0313 00793000 * PCBBQPA=BACKPTR; /* CHAIN BACKWARDS */ 00794000 ST BACKPTR,PCBBQPA(,PCBPTR) 0314 00795000 * INPUTVBN=PCBVBN; /* LOAD PARAMETER FOR FOEDEL */ 00796000 SLR INPUTVBN,INPUTVBN 0315 00797000 ICM INPUTVBN,3,PCBVBN(PCBPTR) 0315 00798000 * DO WHILE PCBFXC^=0; /* LOOP HERE UNTIL PCB FIX COUNT 00799000 * EQUALS ZERO. FOR LOAD REQUESTS 00800000 * PCBFXC SHOULD BE ZERO TO START*/ 00801000 B @DE00316 0316 00802000 @DL00316 DS 0H 0317 00803000 * CALL FOEDEL; /* CALL FOE DELETE ROUTINE */ 00804000 BAL @14,FOEDEL 0317 00805000 * PCBFXC=PCBFXC-1; /* DECREMENT THE PCB FIX COUNT */ 00806000 SLR @14,@14 0318 00807000 IC @14,PCBFXC(,PCBPTR) 0318 00808000 BCTR @14,0 0318 00809000 STC @14,PCBFXC(,PCBPTR) 0318 00810000 * END; 0319 00811000 @DE00316 CLI PCBFXC(PCBPTR),0 0319 00812000 BNE @DL00316 0319 00813000 * RFY 0320 00814000 * (INPUTVBN) UNRSTD; 0320 00815000 * BACKPTR=PCBPTR; /* KEEP POINTER FOR NEXT 0321 00816000 * BACKCHAIN */ 00817000 LR BACKPTR,PCBPTR 0321 00818000 * PCBPTR=PCBFQPA; /* PICK UP NEXT PCB ON THE CHAIN */ 00819000 SLR @14,@14 0322 00820000 ICM @14,7,PCBFQPA(PCBPTR) 0322 00821000 LR PCBPTR,@14 0322 00822000 * END; 0323 00823000 @DE00312 SLR @14,@14 0323 00824000 CR PCBPTR,@14 0323 00825000 BNE @DL00312 0323 00826000 * RFY 0324 00827000 * (R0, 0324 00828000 * R1) RSTD; 0324 00829000 * IF CIWWRK2^=0 THEN /* IF A ROOT PCB EXISTS */ 00830000 L @12,CIWWRK2(,CIWAPTR) 0325 00831000 CR @12,@14 0325 00832000 BE @RF00325 0325 00833000 * DO; 0326 00834000 * PCBPTR=CIWWRK2; /* LOAD ADDRESS OF ROOT PCB */ 00835000 LR PCBPTR,@12 0327 00836000 * PCBFQP=CIWWRK1; /* POINT FORWARD POINTER AT FIRST*/ 00837000 L @12,CIWWRK1(,CIWAPTR) 0328 00838000 ST @12,PCBFQP(,PCBPTR) 0328 00839000 * PCBBQPA=0; /* SET BACKWARD POINTER TO 0 */ 00840000 ST @14,PCBBQPA(,PCBPTR) 0329 00841000 * PCBCQN=PCBDEQN; /* SET CQN TO INDICATE DEQUEUED */ 00842000 MVI PCBCQN(PCBPTR),X'FF' 0330 00843000 * CIWWRK1->PCBBQPA=PCBPTR;/* BACK CHAIN THE PCBS */ 00844000 ST PCBPTR,PCBBQPA(,@12) 0331 00845000 * R1=PCBPTR; /* LOAD THE PARM FOR PCB MGR CALL*/ 00846000 LR R1,PCBPTR 0332 00847000 * END; 0333 00848000 * ELSE /* IF NO ROOT PCB EXISTS */ 00849000 * R1=CIWWRK1; /* LOAD PARM FOR PCB MGR CALL */ 00850000 B @RC00325 0334 00851000 @RF00325 L R1,CIWWRK1(,CIWAPTR) 0334 00852000 * R0=PCBFREQN; /* LOAD FREE QUEUE NUMBER IN PARM 00853000 * REG */ 00854000 @RC00325 LA R0,16 0335 00855000 * CALL IEAVPCB; /* CALL PCB MANAGER TO RETURN 0336 00856000 * PCBS TO FREE QUEUE */ 00857000 L @15,PVTPCB(,PVTPTR) 0336 00858000 BALR @14,@15 0336 00859000 * RFY 0337 00860000 * (BACKPTR, 0337 00861000 * PCBPTR, 0337 00862000 * R0, 0337 00863000 * R1) UNRSTD; 0337 00864000 * END; 0338 00865000 * 0339 00866000 * /*****************************************************************/ 00867000 * /* */ 00868000 * /* DETERMINE THE TYPE OF ERROR, AND CALL PGFREE IF REQUIRED */ 00869000 * /* */ 00870000 * /*****************************************************************/ 00871000 * 0339 00872000 * IF CIWRETC=4&CIWINVSL^=0 THEN /* IF NOT AN INPUT PARAMETER 0339 00873000 * ERROR, AND THIS IS NOT A 0339 00874000 * REGISTER FORM ENTRY */ 00875000 @RF00307 CLI CIWRETC(CIWAPTR),4 0339 00876000 BNE @RF00339 0339 00877000 ICM @14,15,CIWINVSL(CIWAPTR) 0339 00878000 BZ @RF00339 0339 00879000 * DO; 0340 00880000 * CIWIERR='1'B; /* SET ERROR FLAG ON NON REG 0341 00881000 * ENTRIES */ 00882000 OI CIWIERR(CIWAPTR),B'00010000' 0341 00883000 * CIWCUVSL->VSL=CIWVSL; /* LOAD CURRENT VSL INTO LIST */ 00884000 L @14,CIWCUVSL(,CIWAPTR) 0342 00885000 MVC VSL(8,@14),CIWVSL(CIWAPTR) 0342 00886000 * END; 0343 00887000 * IF CIWFIX='1'B THEN /* IF THIS IS A FIX REQUEST */ 00888000 @RF00339 TM CIWFIX(CIWAPTR),B'01000000' 0344 00889000 BNO @RF00344 0344 00890000 * DO; 0345 00891000 * IF CIWINVSL^=0 THEN /* IF NOT A REGISTER FORM ENTRY */ 00892000 L @14,CIWINVSL(,CIWAPTR) 0346 00893000 LTR @14,@14 0346 00894000 BZ @RF00346 0346 00895000 * CIWVSL=CIWINVSL->VSL; /* LOAD FIRST VSL ENTRY */ 00896000 MVC CIWVSL(8,CIWAPTR),VSL(@14) 0347 00897000 * CIWWRK1=CIWCUVSL; /* LOAD CURRENT VSL ADDRESS OR 0348 00898000 * ZEROS FOR REG ENTRIES */ 00899000 @RF00346 MVC CIWWRK1(4,CIWAPTR),CIWCUVSL(CIWAPTR) 0348 00900000 * CIWCUVSL=CIWINVSL; /* LOAD CURRENT FROM FIRST */ 00901000 MVC CIWCUVSL(4,CIWAPTR),CIWINVSL(CIWAPTR) 0349 00902000 * CIWWRK2=CIWCURPG; /* LOAD CURRENT PAGE POINTER */ 00903000 MVC CIWWRK2(4,CIWAPTR),CIWCURPG(CIWAPTR) 0350 00904000 * CIWSAVRC=CIWRETC; /* SAVE RETURN CODE ACROSS CALL */ 00905000 MVC CIWSAVRC(1,CIWAPTR),CIWRETC(CIWAPTR) 0351 00906000 * CIWWRK3=CIWRETRN; /* SAVE RETURN ADDRESS ACROSS 0352 00907000 * CALL */ 00908000 MVC CIWWRK3(4,CIWAPTR),CIWRETRN(CIWAPTR) 0352 00909000 * CIWCURPG=0; /* CONVENTION FOR IEAVFREE */ 00910000 SLR @14,@14 0353 00911000 ST @14,CIWCURPG(,CIWAPTR) 0353 00912000 * CIWLSTPG=0; /* CONVENTION FOR IEAVFREE */ 00913000 ST @14,CIWLSTPG(,CIWAPTR) 0354 00914000 * CIWFIXC='1'B; /* SET THE FIX CALLING FREE FLAG */ 00915000 OI CIWFIXC(CIWAPTR),B'00000010' 0355 00916000 * CALL IEAVFREE; /* CALL PGFREE FOR BACKOUT */ 00917000 L @15,PVTPFREE(,PVTPTR) 0356 00918000 BALR @14,@15 0356 00919000 * RCACSECT=RCACPGFL; /* RESTORE MODULE ID AFTER CALL */ 00920000 L @14,RCAPTR(,PVTPTR) 0357 00921000 MVI RCACSECT(@14),X'16' 0357 00922000 * IF CIWRETC^=0 THEN /* IF PGFREE FAILED TO BACK OUT */ 00923000 CLI CIWRETC(CIWAPTR),0 0358 00924000 BE @RF00358 0358 00925000 * DO; 0359 00926000 * RCARCRD='14'X; /* SET RECOVERY CODE */ 00927000 MVI RCARCRD(@14),X'14' 0360 00928000 * GENERATE SETS(R1); 0361 00929000 ABEND X'C0D',,,SYSTEM LOG THE ERROR 00930000 * END; 0362 00931000 * CIWRETC=CIWSAVRC; /* RESTORE RETURN CODE AFTER CALL*/ 00932000 @RF00358 MVC CIWRETC(1,CIWAPTR),CIWSAVRC(CIWAPTR) 0363 00933000 * CIWRETRN=CIWWRK3; /* RESTORE RETURN ADDR AFTER CALL*/ 00934000 MVC CIWRETRN(4,CIWAPTR),CIWWRK3(CIWAPTR) 0364 00935000 * END; 0365 00936000 * RCAFXLD='0'B; /* RESET ENTRY POINT FLAG */ 00937000 @RF00344 L @14,RCAPTR(,PVTPTR) 0366 00938000 NI RCAFXLD(@14),B'11111011' 0366 00939000 * GENERATE; 0367 00940000 L @14,CIWRETRN(CIWAPTR) RESTORE RETURN ADDRESS 00941000 BR @14 RETURN TO CALLER 00942000 * 0368 00943000 * /*****************************************************************/ 00944000 * /* */ 00945000 * /* FOEADD --- THIS SUBROUTINE IS USED ONLY BY THIS MODULE. IT */ 00946000 * /* SEARCHES FOR AN FOE FOR THE PAGE BEING PROCESSED (INPUTVBN) AS*/ 00947000 * /* SUPPLIED BY THE CALLER. IF AN FOE EXISTS, THE FIX COUNT IS */ 00948000 * /* UPDATED BY ONE. IF NO FOE EXISTS, THE ROUTINE WILL GET AND */ 00949000 * /* INITIALIZE A POOL OF 4. THE QUEUE IS HEADED AT RSMFOEQ. THE */ 00950000 * /* FOES ARE MAINTAINED ON A SINGLE THREADED QUEUE, IN ASCENDING */ 00951000 * /* ORDER OF THEIR VIRTUAL ADDRESSES. THIS ROUTINE USES NO CIWWRK */ 00952000 * /* AREAS. IF THE GETMAIN MACRO SHOULD FAIL, AN R.C. OF 4 IS */ 00953000 * /* RETURNED TO THE CALLER */ 00954000 * /* */ 00955000 * /*****************************************************************/ 00956000 * 0368 00957000 *FOEADD: 0368 00958000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0368 00959000 B @PB00002 0368 00960000 FOEADD DS 0H 0369 00961000 * RFY 0369 00962000 * (AFOEPTR, 0369 00963000 * CURFOE, 0369 00964000 * OLDFOE, 0369 00965000 * INPUTVBN, 0369 00966000 * PTRSAVR, 0369 00967000 * AOLDFOE) RSTD; 0369 00968000 * GEN(STM @00,@15,PVTWSA2(PVTPTR));/* SAVE CALLERS REGS */ 00969000 STM @00,@15,PVTWSA2(PVTPTR) 00970000 * SAV15=0; /* LOAD THE NORMAL RETURN CODE */ 00971000 SLR @14,@14 0371 00972000 ST @14,SAV15(,PVTPTR) 0371 00973000 * IF CIWTCB^=0 THEN /* IF THERE IS A TCB, PROCESS */ 00974000 C @14,CIWTCB(,CIWAPTR) 0372 00975000 BE @RF00372 0372 00976000 * DO; 0373 00977000 * OLDFOE=ADDR(TCBFOE); /* SET BACKWARD SRCH PTR @Z30CNYC*/ 00978000 L @14,TCBPTR(,CIWAPTR) 0374 00979000 LA OLDFOE,TCBFOE(,@14) 0374 00980000 * CURFOE=TCBFOEA; /* SET FORWARD SRCH PTR @Z30CNYC*/ 00981000 SLR CURFOE,CURFOE 0375 00982000 ICM CURFOE,7,TCBFOEA(@14) 0375 00983000 *LASTFOE: 0376 00984000 * IF CURFOE=0|FOEVINDX>INPUTVBN THEN/* IS @Z30CNYC 00985000 * THIS CORRECT SLOT ON CHAIN */ 00986000 LASTFOE LTR CURFOE,CURFOE 0376 00987000 BZ @RT00376 0376 00988000 SLR @14,@14 0376 00989000 ICM @14,3,FOEVINDX(FOEPTR) 0376 00990000 CR INPUTVBN,@14 0376 00991000 BNL @RF00376 0376 00992000 @RT00376 DS 0H 0377 00993000 * DO; /* YES - QUEUE FOE @Z30CNYC*/ 00994000 * AFOEPTR=RSMFOEQ; /* GET ADDRESS OF AVAIL @Z30CNYC 00995000 * FOE QUEUE HEAD */ 00996000 L AFOEPTR,RSMFOEQ(,RSMHDPTR) 0378 00997000 * IF AFOEPTR^=0 THEN /* IS GETMAIN NECESSARY @Z30CNYC*/ 00998000 LTR AFOEPTR,AFOEPTR 0379 00999000 BZ @RF00379 0379 01000000 * DO; /* NO @Z30CNYC*/ 01001000 * RSMFOEQ=AFOEPTR->FOEFLINK;/* RESET Q HEAD @Z30CNYC*/ 01002000 SLR @14,@14 0381 01003000 ICM @14,7,FOEFLINK(AFOEPTR) 0381 01004000 ST @14,RSMFOEQ(,RSMHDPTR) 0381 01005000 * GOTO SLTFOUND; /* INSERT FOE ON TCBFOE @Z30CNYC*/ 01006000 B SLTFOUND 0382 01007000 * END; 0383 01008000 * ELSE 0384 01009000 * ; /* SET UP TO GETMAIN FOES 0384 01010000 * @Z30CNYC*/ 01011000 @RF00379 DS 0H 0385 01012000 * RFY 0385 01013000 * (R0, 0385 01014000 * R1, 0385 01015000 * R4, 0385 01016000 * R7) RSTD; 0385 01017000 * SAVWRK1=PVTPRCA; /* SAVE ACROSS MACRO */ 01018000 MVC SAVWRK1(4,PVTPTR),PVTPRCA(PVTPTR) 0386 01019000 * R0=LENGTH(FOE)*4; /* LOAD PARM FOR GETMAIN @Z30CNYC*/ 01020000 LA R0,32 0387 01021000 * R4=TCBPTR; /* LOAD PARM FOR GETMAIN */ 01022000 L R4,TCBPTR(,CIWAPTR) 0388 01023000 * R7=PSAAOLD; /* LOAD PARM FOR GETMAIN */ 01024000 L R7,PSAAOLD 0389 01025000 * PTRSAVR=PVTPTR; /* SAVE ACROSS MACRO */ 01026000 * 0390 01027000 LR PTRSAVR,PVTPTR 0390 01028000 * /*********************************************************/ 01029000 * /* */ 01030000 * /* GET 4 FOES FROM SUBPOOL 255 @Z30CNYC*/ 01031000 * /* */ 01032000 * /*********************************************************/ 01033000 * 0391 01034000 * GENERATE REFS(R0,R4,R7) SETS(R1,R3,R14,R15); 0391 01035000 GETMAIN RC,LV=(0),BNDRY=DBLWD,BRANCH=YES,SP=255,KEY=0 01036000 * RESPECIFY 0392 01037000 * (R15) RESTRICTED; 0392 01038000 * PVTPTR=PTRSAVR; /* RESTORE AFTER MACRO */ 01039000 LR PVTPTR,PTRSAVR 0393 01040000 * CIWAPTR=SAV4; /* RESTORE AFTER MACRO */ 01041000 L CIWAPTR,SAV4(,PVTPTR) 0394 01042000 * PVTPRCA=SAVWRK1; /* RESTORE AFTER MACRO */ 01043000 MVC PVTPRCA(4,PVTPTR),SAVWRK1(PVTPTR) 0395 01044000 * RFY 0396 01045000 * (R0, 0396 01046000 * R4, 0396 01047000 * R7) UNRSTD; 0396 01048000 * IF RETCODR^=0 THEN /* IF THE GETMAIN MACRO FAILED */ 01049000 LTR RETCODR,RETCODR 0397 01050000 BZ @RF00397 0397 01051000 * DO; 0398 01052000 * SAV15=4; /* SET RETURN CODE FOR GETMAIN 0399 01053000 * FAILURE */ 01054000 MVC SAV15(4,PVTPTR),@CF00053 0399 01055000 * GOTO ENDADD; /* ERROR-GOING BACK TO CALLER */ 01056000 B ENDADD 0400 01057000 * END; 0401 01058000 * ELSE 0402 01059000 * ; /* GETMAIN SUCCESSFUL @Z30CNYC*/ 01060000 @RF00397 DS 0H 0403 01061000 * RESPECIFY 0403 01062000 * (R15) UNRESTRICTED; 0403 01063000 * RESPECIFY 0404 01064000 * (CNTRREG, 0404 01065000 * AOLDFOE) RESTRICTED; 0404 01066000 * AFOEPTR=R1; /* SET PTR TO AVAIL. Q. @Z30CNYC*/ 01067000 LR AFOEPTR,R1 0405 01068000 * RESPECIFY 0406 01069000 * (R1) UNRESTRICTED; 0406 01070000 * FOEQUE=FOEQUE&&FOEQUE; /* CLEAR THE 4 FOES @Z30CNYC*/ 01071000 XC FOEQUE(32,AFOEPTR),FOEQUE(AFOEPTR) 0407 01072000 * CNTRREG=3; /* SET COUNTER TO NO. @Z30CNYC 01073000 * OF FOES TO BE INITIALIZED */ 01074000 LA CNTRREG,3 0408 01075000 * AOLDFOE=ADDR(RSMFOEQ); /* SET BACKWARD PTR @Z30CNYC*/ 01076000 LA AOLDFOE,RSMFOEQ(,RSMHDPTR) 0409 01077000 * DO WHILE CNTRREG^=0; /* INITIALIZE FOE CHAIN @Z30CNYC*/ 01078000 B @DE00410 0410 01079000 @DL00410 DS 0H 0411 01080000 * AOLDFOE->FOEFLINK=AFOEPTR;/* CHAIN PREVIOUS @Z30CNYC 01081000 * FOE TO NEXT FOE. */ 01082000 STCM AFOEPTR,7,FOEFLINK(AOLDFOE) 0411 01083000 * AOLDFOE=AFOEPTR; /* RESET BACK PTR @Z30CNYC*/ 01084000 LR AOLDFOE,AFOEPTR 0412 01085000 * AFOEPTR=AFOEPTR+8; /* POINT TO NEXT FOE @Z30CNYC*/ 01086000 AH AFOEPTR,@CH00059 0413 01087000 * CNTRREG=CNTRREG-1; /* DECREMENT COUNTER @Z30CNYC*/ 01088000 BCTR CNTRREG,0 0414 01089000 * END; /* END OF INIT. LOOP @Z30CNYC*/ 01090000 @DE00410 LTR CNTRREG,CNTRREG 0415 01091000 BNZ @DL00410 0415 01092000 * RESPECIFY 0416 01093000 * (CNTRREG, 0416 01094000 * AOLDFOE) RESTRICTED; /* @Z30CNYC*/ 01095000 * 0416 01096000 * /*********************************************************/ 01097000 * /* */ 01098000 * /* NOTE - ENTRIES ON TCBFOE ARE QUEUED IN ASCENDING ORDER*/ 01099000 * /* OF THEIR VIRTUAL ADDRESS. FOLLOWING CODE WILL INSERT */ 01100000 * /* AND INITIALIZE FOE ON TCBFOE. */ 01101000 * /* */ 01102000 * /*********************************************************/ 01103000 * 0417 01104000 *SLTFOUND: 0417 01105000 * AFOEPTR->FOEVINDX=SAVVBN;/* INITVIRT ADDR @Z30CNYC*/ 01106000 SLTFOUND MVC FOEVINDX(2,AFOEPTR),SAVVBN(PVTPTR) 0417 01107000 * AFOEPTR->FOEFXCT=1; /* SET FIX COUNT TO 1 @Z30CNYC*/ 01108000 MVC FOEFXCT(2,AFOEPTR),@CH00061 0418 01109000 * AFOEPTR->FOEFLINK=CURFOE;/* CHAIN FORWARD @Z30CNYC*/ 01110000 STCM CURFOE,7,FOEFLINK(AFOEPTR) 0419 01111000 * AFOEPTR->FOEFLAG=0; /* CLEAR THE FLAG BYTE @Z30CNYC*/ 01112000 MVI FOEFLAG(AFOEPTR),X'00' 0420 01113000 * OLDFOE->FOEFLINK=AFOEPTR;/* CHAIN FORWARD TO @Z30CNYC 01114000 * NEW FOE. */ 01115000 STCM AFOEPTR,7,FOEFLINK(OLDFOE) 0421 01116000 * GOTO ENDADD; /* RETURN TO CALLER @Z30CNYC*/ 01117000 B ENDADD 0422 01118000 * END; /* END OF FIND FOE SRCH @Z30CNYC*/ 01119000 * ELSE /* CONT SRCH TO FIND SLT @Z30CNYC*/ 01120000 * DO; 0424 01121000 @RF00376 DS 0H 0425 01122000 * IF FOEVINDX^=INPUTVBN THEN/* IF FOE NOT @Z30CNYC 01123000 * FOR THIS PAGE, CONT SEARCH */ 01124000 SLR @14,@14 0425 01125000 ICM @14,3,FOEVINDX(FOEPTR) 0425 01126000 CR INPUTVBN,@14 0425 01127000 BE @RF00425 0425 01128000 * DO; 0426 01129000 * OLDFOE=CURFOE; /* MOVE DOWN THE CHAIN @Z30CNYC*/ 01130000 LR OLDFOE,CURFOE 0427 01131000 * CURFOE=FOEFLINK; /* PICK UP NEXT FOE @Z30CNYC*/ 01132000 SLR @14,@14 0428 01133000 ICM @14,7,FOEFLINK(FOEPTR) 0428 01134000 LR CURFOE,@14 0428 01135000 * GOTO LASTFOE; /* LOOP TO TEST NEXT FOE @Z30CNYC*/ 01136000 B LASTFOE 0429 01137000 * END; 0430 01138000 * ELSE 0431 01139000 * ; /* FOE FOR THIS PAGE @Z30CNYC*/ 01140000 @RF00425 DS 0H 0432 01141000 * FOEFXCT=FOEFXCT+1; /* UPDATE THE FIX COUNT @Z30CNYC*/ 01142000 LA @14,1 0432 01143000 AH @14,FOEFXCT(,FOEPTR) 0432 01144000 STH @14,FOEFXCT(,FOEPTR) 0432 01145000 * END; /* END OF CONTNUE SRCH @Z30CNYC*/ 01146000 * END; /* NO TCB - RETURN @Z30CNYC*/ 01147000 *ENDADD: 0435 01148000 * GEN(LM @00,@15,PVTWSA2(PVTPTR));/* RESTORE REGISTERS */ 01149000 @RF00372 DS 0H 0435 01150000 ENDADD LM @00,@15,PVTWSA2(PVTPTR) 01151000 * RFY 0436 01152000 * (OLDFOE, 0436 01153000 * CURFOE, 0436 01154000 * INPUTVBN, 0436 01155000 * PTRSAVR) UNRSTD; 0436 01156000 * END FOEADD; /* RETURN TO CALLER */ 01157000 @EL00002 DS 0H 0437 01158000 @EF00002 DS 0H 0437 01159000 @ER00002 BR @14 0437 01160000 * 0438 01161000 * /*****************************************************************/ 01162000 * /* */ 01163000 * /* FOEDEL --- THIS SUBROUTINE IS USED BY THIS MODULE AND BY */ 01164000 * /* PGFREE. IT SEARCHES FOR AN FOE FOR THE PAGE BEING PROCESSED, */ 01165000 * /* AND DECREMENTS THE FIX COUNT BY 1 IF NOT ALREADY ZERO. IF */ 01166000 * /* ALREADY ZERO, THE FOE IS DEQUEUED FROM THE TCB AND INSERTED ON*/ 01167000 * /* THE AVAILABLE QUEUE (RSMFOEQ). THE RETURN CODE IS THEN SET TO */ 01168000 * /* 4. IF THE FIX COUNT IS ZERO AS A RESULT OF DECREMENTING, THE */ 01169000 * /* FOE IS DEQUEUED AND INSERTED ON RSMFOEQ BUT THE RETURN CODE IS*/ 01170000 * /* SET TO ZERO. INPUT TO THIS ROUTINE IS THE VBN SUPPLIED BY THE */ 01171000 * /* CALLER IN REG 1. REGISTERS ARE SAVED AND RESTORED FOR THE */ 01172000 * /* CALLER. IF NO FOE IS FOUND, A RETURN CODE OF 4 IS ISSUED. RSM */ 01173000 * /* POINTERS ARE NOT MAINTAINED IN THIS ROUTINE, BUT ARE RESTORED */ 01174000 * /* PRIOR TO RETURN TO THE CALLER. */ 01175000 * /* */ 01176000 * /*****************************************************************/ 01177000 * 0438 01178000 *FOEDEL: 0438 01179000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,RETREG); 0438 01180000 FOEDEL DS 0H 0439 01181000 * RFY 0439 01182000 * (OLDFOE, 0439 01183000 * CURFOE, 0439 01184000 * INPUTVBN, 0439 01185000 * PTRSAVR) RSTD; 0439 01186000 * GENERATE; 0440 01187000 ENTRY FOEDEL 01188000 STM @00,@14,PVTWSA2(PVTPTR) STORE CALLERS REGS 01189000 BALR @09,@00 ESTABLISH ADDRESSABILITY 01190000 USING *,@09 01191000 * SAV15=0; /* CLEAR THE RET CODE FOR LATER */ 01192000 SLR @14,@14 0441 01193000 ST @14,SAV15(,PVTPTR) 0441 01194000 * IF CIWTCB=0 THEN /* IF THERE IS NO TCB */ 01195000 C @14,CIWTCB(,CIWAPTR) 0442 01196000 BNE @RF00442 0442 01197000 * DO; 0443 01198000 * SAV15=4; /* SET RETURN CODE TO 4 */ 01199000 MVC SAV15(4,PVTPTR),@CF00053 0444 01200000 * GOTO ENDDEL; /* GOING BACK TO CALLER */ 01201000 B ENDDEL 0445 01202000 * END; 0446 01203000 * OLDFOE=ADDR(TCBFOE); /* GET THE QUEUE POINTER ADDRESS */ 01204000 @RF00442 L @14,TCBPTR(,CIWAPTR) 0447 01205000 LA OLDFOE,TCBFOE(,@14) 0447 01206000 * CURFOE=TCBFOEA; /* GET POINTER TO FIRST FOE */ 01207000 SLR CURFOE,CURFOE 0448 01208000 ICM CURFOE,7,TCBFOEA(@14) 0448 01209000 *LASTCK: 0449 01210000 * IF CURFOE=0|FOEVINDX>INPUTVBN THEN/* IF CHAIN IS EMPTY, OR IF NO 01211000 * FOE FOR THIS PAGE */ 01212000 LASTCK LTR CURFOE,CURFOE 0449 01213000 BZ @RT00449 0449 01214000 SLR @14,@14 0449 01215000 ICM @14,3,FOEVINDX(FOEPTR) 0449 01216000 CR INPUTVBN,@14 0449 01217000 BNL @RF00449 0449 01218000 @RT00449 DS 0H 0450 01219000 * DO; 0450 01220000 * SAV15=4; /* NO VALID FOE RESULTS IN R.C.4 */ 01221000 MVC SAV15(4,PVTPTR),@CF00053 0451 01222000 * GOTO ENDDEL; /* GOING BACK TO CALLER */ 01223000 B ENDDEL 0452 01224000 * END; 0453 01225000 * IF FOEVINDX^=INPUTVBN THEN /* IF VBNS DO NOT MATCH */ 01226000 @RF00449 SLR @14,@14 0454 01227000 ICM @14,3,FOEVINDX(FOEPTR) 0454 01228000 CR INPUTVBN,@14 0454 01229000 BE @RF00454 0454 01230000 * DO; 0455 01231000 * OLDFOE=CURFOE; /* MOVE DOWN THE CHAIN */ 01232000 LR OLDFOE,CURFOE 0456 01233000 * CURFOE=FOEFLINK; /* GET NEXT FOE POINTER */ 01234000 SLR @14,@14 0457 01235000 ICM @14,7,FOEFLINK(FOEPTR) 0457 01236000 LR CURFOE,@14 0457 01237000 * GOTO LASTCK; /* REPEAT TESTS FOR THIS FOE */ 01238000 B LASTCK 0458 01239000 * END; 0459 01240000 * IF FOEFXCT=0 THEN /* IF THE FOE INDICATES NOT FIXED 01241000 * UPON ENTRY */ 01242000 @RF00454 ICM @14,3,FOEFXCT(FOEPTR) 0460 01243000 BNZ @RF00460 0460 01244000 * SAV15=4; /* SET THR RETURN CODE INDICATING 01245000 * ALREADY 0 */ 01246000 MVC SAV15(4,PVTPTR),@CF00053 0461 01247000 * ELSE /* IF THE FIX COUNT IS NOT ZERO */ 01248000 * DO; 0462 01249000 B @RC00460 0462 01250000 @RF00460 DS 0H 0463 01251000 * FOEFXCT=FOEFXCT-1; /* DECREMENT FIX COUNT */ 01252000 LH @14,FOEFXCT(,FOEPTR) 0463 01253000 BCTR @14,0 0463 01254000 STH @14,FOEFXCT(,FOEPTR) 0463 01255000 * IF FOEFXCT^=0 THEN /* IF FRAME IS STILL FIXED */ 01256000 LTR @14,@14 0464 01257000 BNZ @RT00464 0464 01258000 * GOTO ENDDEL; /* DO NOT DEQUEUE */ 01259000 * END; 0466 01260000 * OLDFOE->FOEFLINK=FOEFLINK; /* REMOVE FOE FROM CHAIN */ 01261000 @RC00460 MVC FOEFLINK(3,OLDFOE),FOEFLINK(FOEPTR) 0467 01262000 * FOEFLINK=RSMFOEQ; /* CHAIN EXISTING @Z30CNYC 01263000 * AVAILABLE FOES TO THIS FOE */ 01264000 MVC FOEFLINK(3,FOEPTR),RSMFOEQ+1(RSMHDPTR) 0468 01265000 * RSMFOEQ=CURFOE; /* CHAIN TO HEAD OF QUEUE 0469 01266000 * @Z30CNYC*/ 01267000 ST CURFOE,RSMFOEQ(,RSMHDPTR) 0469 01268000 *ENDDEL: 0470 01269000 * GEN(LM @00,@15,PVTWSA2(PVTPTR));/* RESTORE REGISTERS */ 01270000 ENDDEL LM @00,@15,PVTWSA2(PVTPTR) 01271000 * RFY 0471 01272000 * (OLDFOE, 0471 01273000 * CURFOE, 0471 01274000 * INPUTVBN, 0471 01275000 * PTRSAVR) UNRSTD; 0471 01276000 * END FOEDEL; /* RETURN TO CALLER */ 01277000 @EL00003 DS 0H 0472 01278000 @EF00003 DS 0H 0472 01279000 @ER00003 BR @14 0472 01280000 * 0473 01281000 * /*****************************************************************/ 01282000 * /* */ 01283000 * /* IEAVFXL --- PG FIX/LOAD ROOT EXIT ROUTINE. THIS ENTRY TO */ 01284000 * /* FIX/LOAD IS CALLED BY OTHER RSM ROUTINES IF THEY FORCE THE PCB*/ 01285000 * /* COUNT IN PGFIX OR PGLOAD ROOT PCBS TO ZERO. THIS ROUTINE USES */ 01286000 * /* THE PVT ROOT EXIT SAVE AREA. IF THE ROOT PCB IS MARKED AS */ 01287000 * /* INTERCEPTED, SOME OTHER MODULE HAS CANCELED THE REQUEST FOR */ 01288000 * /* WHICH THE ROOT PCB EXISTS. IN THIS CASE THE ECB IS FREED AND */ 01289000 * /* THE PCB RETURNED TO THE FREE QUEUE. IF A PAGE FAILURE OCCURED */ 01290000 * /* FOR THIS PCB A POST CODE OF 4 IS SET, OTHERWISE A POST CODE OF*/ 01291000 * /* 0 IS SET. IF THIS WAS A FIX REQUEST AND THERE IS A TCB, AN */ 01292000 * /* ABEND IS ISSUED VIA CALLRTM (ABTERM). FOR LOAD REQUESTS NO */ 01293000 * /* ABEND IS ISSUED AS THE PAGE SUFFERING THE FAULT MAY NEVER BE */ 01294000 * /* REFERENCED. IF ALL IS WELL THE REQUESTORS ECB IS POSTED WITH A*/ 01295000 * /* ZERO POST CODE. THE ECB IS FREED AND THE PCB RETURNED TO THE */ 01296000 * /* FREE QUEUE. THIS ROUTINE DOES NOT MAINTAIN RSM PTRS, BUT THEY */ 01297000 * /* ARE RESTORED PRIOR TO RETURN */ 01298000 * /* */ 01299000 * /*****************************************************************/ 01300000 * 0473 01301000 *IEAVFXL: 0473 01302000 * ENTRY; /* START OF IEAVFXL-DO NOT REMOVE*/ 01303000 @EC00473 DS 0H 0474 01304000 * RFY 0474 01305000 * (PCBPTR, 0474 01306000 * R0, 0474 01307000 * R1) RSTD; 0474 01308000 * GENERATE; 0475 01309000 ENTRY IEAVFXL 01310000 IEAVFXL STM @00,@15,PVTWSA7(PVTPTR) STORE CALLERS REGS 01311000 BALR @09,@00 ESTABLISH ADDRESSABILITY 01312000 USING *,@09 01313000 * RCACSECT=RCACPGFL; /* SET MODULE ID */ 01314000 L @14,RCAPTR(,PVTPTR) 0476 01315000 MVI RCACSECT(@14),X'16' 0476 01316000 * RCAFXL='1'B; /* SET ENTRY POINT FLAG */ 01317000 OI RCAFXL(@14),B'01000000' 0477 01318000 * PCBRPTR=R1; /* PICK UP ROOT POINTER FROM PARM*/ 01319000 LR PCBRPTR,R1 0478 01320000 * IF PCBRINT='0'B THEN /* IF PCB IS NOT INTERCEPTED */ 01321000 TM PCBRINT(PCBRPTR),B'10000000' 0479 01322000 BNZ @RF00479 0479 01323000 * DO; 0480 01324000 * RFY 0481 01325000 * (TESTADDR, 0481 01326000 * R10, 0481 01327000 * R11, 0481 01328000 * R12, 0481 01329000 * RTTCBR, 0481 01330000 * R13) RSTD; 0481 01331000 * IF PCBRFAIL='1'B THEN /* IF I/O FOR ROOT FAILED */ 01332000 TM PCBRFAIL(PCBRPTR),B'00001000' 0482 01333000 BNO @RF00482 0482 01334000 * DO; 0483 01335000 * R10=4; /* SET POST CODE 4 */ 01336000 LA R10,4 0484 01337000 * IF PCBRLOAD='0'B&PCBRTCBA^=0 THEN/* IF THIS IS A FIX 0485 01338000 * REQUEST AND THERE IS A TCB */ 01339000 TM PCBRLOAD(PCBRPTR),B'00000100' 0485 01340000 BNZ @RF00485 0485 01341000 SLR @14,@14 0485 01342000 ICM @14,7,PCBRTCBA(PCBRPTR) 0485 01343000 LTR @14,@14 0485 01344000 BZ @RF00485 0485 01345000 * DO; 0486 01346000 * RTTCBR=PCBRTCBA; /* LOAD TCB POINTER FOR CALLRTM */ 01347000 LR RTTCBR,@14 0487 01348000 * GENERATE REFS(RTTCBR) SETS(R0,R1,R2,R14,R15); 0488 01349000 CALLRTM TYPE=ABTERM,TCB=(RTTCBR),COMPCOD=X'028' 01350000 * END; 0489 01351000 * TESTADDR=PCBRECB; /* LOAD ADDRESS OF ECB */ 01352000 @RF00485 L TESTADDR,PCBRECB(,PCBRPTR) 0490 01353000 * GENERATE REFS(TESTADDR) SETS(TESTADDR); 0491 01354000 LRA TESTADDR,0(TESTADDR) DO LRA ON ECB 01355000 * BC(7,FREEBLKS); /* IF ECB IS NOT IN STORAGE, 0492 01356000 * BRANCH */ 01357000 BC 7,FREEBLKS 0492 01358000 * END; 0493 01359000 * ELSE /* IF I/O FOR ROOT WAS SUCCESSFUL*/ 01360000 * R10=0; /* SET POST CODE 0 */ 01361000 B @RC00482 0494 01362000 @RF00482 SLR R10,R10 0494 01363000 * R11=PCBRECB; /* LOAD ECB ADDRESS FOR POST - 0495 01364000 * R11 IS A CONVENTION */ 01365000 @RC00482 L R11,PCBRECB(,PCBRPTR) 0495 01366000 * R12=0; /* CLEAR FOR POST */ 01367000 SLR R12,R12 0496 01368000 * R13=0; /* CLEAR FOR POST */ 01369000 SLR R13,R13 0497 01370000 * CALL IEA0PT01; /* CALL FOR ECB POSTING */ 01371000 L @14,CVTPTR 0498 01372000 L @15,CVT0PT01(,@14) 0498 01373000 BALR @14,@15 0498 01374000 * RFY 0499 01375000 * (TESTADDR, 0499 01376000 * R10, 0499 01377000 * R11, 0499 01378000 * R12, 0499 01379000 * RTTCBR, 0499 01380000 * R13) UNRSTD; 0499 01381000 * END; 0500 01382000 * 0501 01383000 * /*****************************************************************/ 01384000 * /* */ 01385000 * /* FREE THE ECB AND ROOT PCB */ 01386000 * /* */ 01387000 * /*****************************************************************/ 01388000 * 0501 01389000 *FREEBLKS: 0501 01390000 * IF PCBRFECB='1'B THEN /* IF ECB IS TO BE FREED */ 01391000 @RF00479 DS 0H 0501 01392000 FREEBLKS TM PCBRFECB(PCBRPTR),B'00000010' 0501 01393000 BNO @RF00501 0501 01394000 * DO; 0502 01395000 * RFY 0503 01396000 * (VSLPTR) RSTD; 0503 01397000 * R0=0; /* CLEAR - PSI PARM */ 01398000 SLR R0,R0 0504 01399000 * VSLPTR=ADDR(WORKZONE); /* SET UP POINTER TO MAP WORK 0505 01400000 * AREA */ 01401000 LA VSLPTR,WORKZONE(,PVTPTR) 0505 01402000 * VSLFLAG1=0; /* CLEAR THE FLAGS */ 01403000 MVI VSLFLAG1(VSLPTR),X'00' 0506 01404000 * VSLFREE='1'B; /* SET PGFREE FLAG FOR PSI */ 01405000 OI VSLFREE(VSLPTR),B'00100000' 0507 01406000 * VSLSTRTA=PCBRECB; /* SET UP START ADDRESS FOR PSI */ 01407000 L @14,PCBRECB(,PCBRPTR) 0508 01408000 STCM @14,7,VSLSTRTA(VSLPTR) 0508 01409000 * R1=VSLSTRT; /* LOAD START ADDRESS AND FLAG 0509 01410000 * FOR PSI */ 01411000 L R1,VSLSTRT(,VSLPTR) 0509 01412000 * R2=VSLSTRTA+LENGTH(ECB); /* LOAD END ADDRESS FOR PSI */ 01413000 AL @14,@CF00053 0510 01414000 LR R2,@14 0510 01415000 * R4=0; /* CLEAR FOR PSI - R4 IS A 0511 01416000 * CONVENTION */ 01417000 SLR R4,R4 0511 01418000 * CALL IEAVPSII; /* CALL PSI WITH PGFREE REQUEST */ 01419000 L @15,PVTPSINT(,PVTPTR) 0512 01420000 BALR @14,@15 0512 01421000 * RCACSECT=RCACPGFL; /* RESTORE AFTER CALL */ 01422000 L @14,RCAPTR(,PVTPTR) 0513 01423000 MVI RCACSECT(@14),X'16' 0513 01424000 * RFY 0514 01425000 * (VSLPTR) UNRSTD; 0514 01426000 * END; 0515 01427000 * PCBFQP=0; /* SET FORWARD POINTER */ 01428000 @RF00501 SLR @14,@14 0516 01429000 ST @14,PCBFQP(,PCBPTR) 0516 01430000 * PCBBQP=0; /* SET THE BACKWARD POINTER */ 01431000 ST @14,PCBBQP(,PCBPTR) 0517 01432000 * PCBCQN=PCBDEQN; /* MARK PCB AS DEQUEUED */ 01433000 MVI PCBCQN(PCBPTR),X'FF' 0518 01434000 * R0=PCBFREQN; /* LOAD TQN FOR PCB MANAGER */ 01435000 LA R0,16 0519 01436000 * R1=PCBPTR; /* LOAD POINTER FOR PCB MANAGER */ 01437000 LR R1,PCBPTR 0520 01438000 * CALL IEAVPCB; /* CALL PCB MANAGER TO PUT PCB ON 01439000 * THE FREE QUEUE */ 01440000 L @15,PVTPCB(,PVTPTR) 0521 01441000 BALR @14,@15 0521 01442000 * RCAFXL='0'B; /* TURN OFF THE ENTRY POINT FLAG */ 01443000 L @14,RCAPTR(,PVTPTR) 0522 01444000 NI RCAFXL(@14),B'10111111' 0522 01445000 * RFY 0523 01446000 * (R14) RSTD; 0523 01447000 * GEN(LM @00,@15,PVTWSA7(PVTPTR));/* RESTORE CALLERS REGS */ 01448000 LM @00,@15,PVTWSA7(PVTPTR) 01449000 * GOTO R14; /* END IEAVFXL-RETURN TO CALLER */ 01450000 BR R14 0525 01451000 * RFY 0526 01452000 * (PCBPTR, 0526 01453000 * R0, 0526 01454000 * R1, 0526 01455000 * R14) UNRSTD; 0526 01456000 * END IEAVFXLD 0527 01457000 * 0527 01458000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01459000 */*%INCLUDE SYSLIB (CVT ) */ 01460000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01461000 */*%INCLUDE SYSLIB (IKJTCB ) */ 01462000 */*%INCLUDE SYSLIB (IHAPVT ) */ 01463000 */*%INCLUDE SYSLIB (IEACIWA ) */ 01464000 */*%INCLUDE SYSLIB (IHAVSL ) */ 01465000 */*%INCLUDE SYSLIB (IHAPFTE ) */ 01466000 */*%INCLUDE SYSLIB (IHAFOE ) */ 01467000 */*%INCLUDE SYSLIB (IHAPCBR ) */ 01468000 */*%INCLUDE SYSLIB (IHAPCB ) */ 01469000 */*%INCLUDE SYSLIB (IHAPGTE ) */ 01470000 */*%INCLUDE SYSLIB (IHAXPTE ) */ 01471000 */*%INCLUDE SYSLIB (IHARCA ) */ 01472000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01473000 */*%INCLUDE SYSLIB (IHAECB ) */ 01474000 */*%INCLUDE SYSLIB (IHARSMHD) */ 01475000 */*%INCLUDE SYSLIB (ILRAIA ) */ 01476000 * 0527 01477000 * ; 0527 01478000 @DATA DS 0H 01479000 @CH00061 DC H'1' 01480000 @CH00059 DC H'8' 01481000 @CH02252 DC H'4096' 01482000 DS 0F 01483000 DS 0F 01484000 @CF00053 DC F'4' 01485000 @CF02248 DC XL4'00FFF000' 01486000 @CF02250 DC XL4'0000FFF0' 01487000 @CA02317 DC A(IEAVFXL) 01488000 @CV02299 DC V(NEXTVSL) 01489000 DS 0D 01490000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01491000 @01 EQU 01 01492000 @02 EQU 02 01493000 @03 EQU 03 01494000 @04 EQU 04 01495000 @05 EQU 05 01496000 @06 EQU 06 01497000 @07 EQU 07 01498000 @08 EQU 08 01499000 @09 EQU 09 01500000 @10 EQU 10 01501000 @11 EQU 11 01502000 @12 EQU 12 01503000 @13 EQU 13 01504000 @14 EQU 14 01505000 @15 EQU 15 01506000 PVTPTR EQU @03 01507000 CIWAPTR EQU @04 01508000 VSLPTR EQU @13 01509000 PFTEPTR EQU @07 01510000 FOEPTR EQU @11 01511000 PCBRPTR EQU @07 01512000 PCBPTR EQU @07 01513000 PTEPTR EQU @05 01514000 XPTEPTR EQU @06 01515000 RSMHDPTR EQU @02 01516000 R0 EQU @00 01517000 R1 EQU @01 01518000 WORKADDR EQU @01 01519000 INPUTVBN EQU @01 01520000 R2 EQU @02 01521000 R3 EQU @03 01522000 R4 EQU @04 01523000 AOLDFOE EQU @05 01524000 AFOEPTR EQU @06 01525000 R7 EQU @07 01526000 CNTRREG EQU @07 01527000 WORKREG EQU @07 01528000 REALPGR EQU @07 01529000 TESTADDR EQU @08 01530000 PTRSAVR EQU @08 01531000 R9 EQU @09 01532000 R10 EQU @10 01533000 BACKPTR EQU @10 01534000 OLDFOE EQU @10 01535000 R11 EQU @11 01536000 CURFOE EQU @11 01537000 R12 EQU @12 01538000 R13 EQU @13 01539000 RTTCBR EQU @13 01540000 R14 EQU @14 01541000 R15 EQU @15 01542000 RETCODR EQU @15 01543000 NEWFOEP EQU @01 01544000 R5 EQU @05 01545000 R6 EQU @06 01546000 R8 EQU @08 01547000 PSA EQU 0 01548000 FLCRNPSW EQU PSA 01549000 FLCROPSW EQU PSA+8 01550000 FLCICCW2 EQU PSA+16 01551000 FLCCVT EQU FLCICCW2 01552000 PSAEEPSW EQU PSA+132 01553000 PSAESPSW EQU PSA+136 01554000 FLCSVILC EQU PSAESPSW+1 01555000 PSAEPPSW EQU PSA+140 01556000 FLCPIILC EQU PSAEPPSW+1 01557000 FLCPICOD EQU PSAEPPSW+2 01558000 PSAPICOD EQU FLCPICOD+1 01559000 FLCTEA EQU PSAEPPSW+4 01560000 FLCPER EQU PSA+152 01561000 FLCMCLA EQU PSA+168 01562000 FLCIOEL EQU FLCMCLA+4 01563000 FLCIOA EQU FLCMCLA+16 01564000 FLCFSA EQU FLCMCLA+80 01565000 PSAAOLD EQU PSA+548 01566000 PSASUPER EQU PSA+552 01567000 PSASUP1 EQU PSASUPER 01568000 PSASUP2 EQU PSASUPER+1 01569000 PSASUP3 EQU PSASUPER+2 01570000 PSASUP4 EQU PSASUPER+3 01571000 PSACLHT EQU PSA+640 01572000 PSALKSA EQU PSA+696 01573000 PSAHLHI EQU PSA+760 01574000 PSADSSFL EQU PSA+836 01575000 PSADSSF1 EQU PSADSSFL 01576000 PSADSSF3 EQU PSADSSFL+2 01577000 PSADSSF4 EQU PSADSSFL+3 01578000 PSARSVT EQU PSA+896 01579000 CVTMAP EQU 0 01580000 CVT EQU CVTMAP 01581000 CVTDAR EQU CVTMAP+72 01582000 CVTFLGS1 EQU CVTDAR 01583000 CVTDCB EQU CVTMAP+116 01584000 CVTIOQET EQU CVTMAP+120 01585000 CVTIERLC EQU CVTMAP+144 01586000 CVT0PT01 EQU CVTMAP+152 01587000 CVTHEAD EQU CVTMAP+160 01588000 CVTSV76C EQU CVTHEAD 01589000 CVTOPTA EQU CVTMAP+182 01590000 CVTOPTB EQU CVTMAP+183 01591000 CVTGTF EQU CVTMAP+236 01592000 CVTGTFST EQU CVTGTF 01593000 CVTGTFS EQU CVTGTFST 01594000 CVTSTATE EQU CVTGTFST 01595000 CVTTMODE EQU CVTGTFST 01596000 CVTFORM EQU CVTGTFST 01597000 CVTAQAVT EQU CVTMAP+240 01598000 CVTTCMFG EQU CVTAQAVT 01599000 CVTVOLM2 EQU CVTMAP+244 01600000 CVTTATA EQU CVTVOLM2 01601000 CVTTSKS EQU CVTTATA 01602000 CVTVOLF2 EQU CVTTSKS 01603000 CVTTAT EQU CVTTATA+1 01604000 CVTATER EQU CVTMAP+248 01605000 CVTEXT1 EQU CVTMAP+252 01606000 CVTPURG EQU CVTMAP+260 01607000 CVTQMSG EQU CVTMAP+268 01608000 CVTDMSR EQU CVTMAP+272 01609000 CVTRSV37 EQU CVTDMSR 01610000 CVTDMSRF EQU CVTRSV37 01611000 CVTERPV EQU CVTMAP+316 01612000 CVTINTLA EQU CVTMAP+320 01613000 CVTAPF EQU CVTMAP+324 01614000 CVTEXT2 EQU CVTMAP+328 01615000 CVTHJES EQU CVTMAP+332 01616000 CVTPGSIA EQU CVTMAP+348 01617000 CVTA1F1 EQU CVTMAP+356 01618000 CVTSYSK EQU CVTMAP+357 01619000 CVTVOLM1 EQU CVTMAP+380 01620000 CVTVOLF1 EQU CVTVOLM1 01621000 CVTATMCT EQU CVTMAP+388 01622000 CVTXTNT1 EQU 0 01623000 CVTXTNT2 EQU 0 01624000 CVTDSSV EQU CVTXTNT2 01625000 CVTFLGBT EQU CVTXTNT2+5 01626000 CVTQID EQU CVTXTNT2+24 01627000 CVTRV400 EQU CVTXTNT2+52 01628000 CVTRV409 EQU CVTXTNT2+53 01629000 CVTATCVT EQU CVTXTNT2+64 01630000 CVTRV429 EQU CVTXTNT2+84 01631000 CVTRV438 EQU CVTXTNT2+85 01632000 CVTRV457 EQU CVTXTNT2+112 01633000 CVTRV466 EQU CVTXTNT2+113 01634000 CVTFIX EQU 0 01635000 CVTRELNO EQU CVTFIX+252 01636000 TCBFIX EQU 0 01637000 TCBFRS EQU TCBFIX 01638000 TCB EQU 0 01639000 TCBPIE EQU TCB+4 01640000 TCBPMASK EQU TCBPIE 01641000 TCBCMP EQU TCB+16 01642000 TCBCMPF EQU TCBCMP 01643000 TCBCPP EQU TCBCMPF 01644000 TCBSTCC EQU TCBCMPF 01645000 TCBCDBL EQU TCBCMPF 01646000 TCBCWTO EQU TCBCMPF 01647000 TCBCIND EQU TCBCMPF 01648000 TCBCMSG EQU TCBCMPF 01649000 TCBTRN EQU TCB+20 01650000 TCBABF EQU TCBTRN 01651000 TCBMSS EQU TCB+24 01652000 TCBPKF EQU TCB+28 01653000 TCBFLGS EQU TCB+29 01654000 TCBFLGS1 EQU TCBFLGS 01655000 TCBFLGS2 EQU TCBFLGS+1 01656000 TCBFLGS3 EQU TCBFLGS+2 01657000 TCBFLGS4 EQU TCBFLGS+3 01658000 TCBFLGS5 EQU TCBFLGS+4 01659000 TCBABWF EQU TCBFLGS5 01660000 TCBJPQ EQU TCB+44 01661000 TCBPURGE EQU TCBJPQ 01662000 TCBGRS EQU TCB+48 01663000 TCBFSA EQU TCB+112 01664000 TCBTME EQU TCB+120 01665000 TCBJSTCB EQU TCB+124 01666000 TCBTSFLG EQU TCB+148 01667000 TCBTSTSK EQU TCBTSFLG 01668000 TCBSTAB EQU TCB+160 01669000 TCBNSTAE EQU TCBSTAB 01670000 TCBTCT EQU TCB+164 01671000 TCBTCTGF EQU TCBTCT 01672000 TCBSCNDY EQU TCB+172 01673000 TCBNDSP EQU TCBSCNDY 01674000 TCBNDSP1 EQU TCBNDSP+1 01675000 TCBNDSP2 EQU TCBNDSP+2 01676000 TCBNDSP3 EQU TCBNDSP+3 01677000 TCBJSCB EQU TCB+180 01678000 TCBRECDE EQU TCBJSCB 01679000 TCBEXT1 EQU TCB+196 01680000 TCBBITS EQU TCB+200 01681000 TCBNDSP4 EQU TCBBITS 01682000 TCBNDSP5 EQU TCBBITS+1 01683000 TCBFLGS6 EQU TCBBITS+2 01684000 TCBFLGS7 EQU TCBBITS+3 01685000 TCBDAR EQU TCB+204 01686000 TCBDARC EQU TCBDAR 01687000 TCBEXT2 EQU TCB+208 01688000 TCBXSCT EQU TCB+240 01689000 TCBXSCT1 EQU TCBXSCT 01690000 TCBFOE EQU TCB+244 01691000 TCBFOEA EQU TCBFOE+1 01692000 TCBESTAE EQU TCB+264 01693000 TCBESTRM EQU TCBESTAE+1 01694000 TCBFBYT1 EQU TCB+276 01695000 TCBFBYT2 EQU TCB+277 01696000 TCBRV124 EQU TCB+278 01697000 TCBRV133 EQU TCB+279 01698000 TCBXTNT2 EQU 0 01699000 TCBGTF EQU TCBXTNT2 01700000 TCBTFLG EQU TCBGTF 01701000 TCBRV146 EQU TCBXTNT2+28 01702000 TCBRV155 EQU TCBXTNT2+29 01703000 TCBRV164 EQU TCBXTNT2+30 01704000 TCBRV173 EQU TCBXTNT2+31 01705000 PVT EQU 0 01706000 PVTFLAG1 EQU PVT 01707000 PVTFLAG2 EQU PVT+1 01708000 PVTPFTP EQU PVT+12 01709000 PVTLPRIV EQU PVT+24 01710000 PVTLCSA EQU PVT+26 01711000 PVTPCBCT EQU PVT+36 01712000 PVTPCBLO EQU PVT+38 01713000 PVTPRCA EQU PVT+52 01714000 PVTPSINT EQU PVT+76 01715000 PVTPGFA EQU PVT+84 01716000 PVTPCB EQU PVT+104 01717000 PVTPFP2 EQU PVT+116 01718000 PVTPFREE EQU PVT+208 01719000 PVTQS EQU PVT+304 01720000 PVTWSAX EQU PVT+344 01721000 PVTWSA2 EQU PVTWSAX+72 01722000 PVTWSA7 EQU PVTWSAX+432 01723000 PVTSAVE EQU PVTWSAX+1328 01724000 PVTMAXFX EQU PVT+1822 01725000 PVTCNTFX EQU PVT+1830 01726000 PVTCOMFX EQU PVT+1834 01727000 CIWA EQU 0 01728000 CIWFLG1 EQU CIWA 01729000 CIWFIXC EQU CIWFLG1 01730000 CIWNOPST EQU CIWFLG1 01731000 CIWOPFL1 EQU CIWA+2 01732000 CIWFIX EQU CIWOPFL1 01733000 CIWLONG EQU CIWOPFL1 01734000 CIWOPFL2 EQU CIWA+3 01735000 CIWRETC EQU CIWA+4 01736000 CIWSAVRC EQU CIWA+5 01737000 CIWKEY EQU CIWA+6 01738000 CIWINVSL EQU CIWA+8 01739000 CIWCUVSL EQU CIWA+12 01740000 CIWVSL EQU CIWA+16 01741000 CIWSTRT EQU CIWVSL 01742000 CIWIFLG1 EQU CIWSTRT 01743000 CIWSTRTA EQU CIWSTRT+1 01744000 CIWEND1 EQU CIWVSL+4 01745000 CIWIFLG2 EQU CIWEND1 01746000 CIWIERR EQU CIWIFLG2 01747000 CIWEND1A EQU CIWEND1+1 01748000 CIWTCB EQU CIWA+24 01749000 CIWECB EQU CIWA+28 01750000 CIWCURPG EQU CIWA+32 01751000 CIWLSTPG EQU CIWA+36 01752000 CIWRETRN EQU CIWA+40 01753000 CIWWRK1 EQU CIWA+44 01754000 CIWWRK2 EQU CIWA+48 01755000 CIWWRK3 EQU CIWA+52 01756000 VSL EQU 0 01757000 VSLSTRT EQU VSL 01758000 VSLFLAG1 EQU VSLSTRT 01759000 VSLFREE EQU VSLFLAG1 01760000 VSLSTRTA EQU VSLSTRT+1 01761000 VSLEND EQU VSL+4 01762000 VSLFLAG2 EQU VSLEND 01763000 PFTE EQU 0 01764000 PFTPGID EQU PFTE 01765000 PFTQPTRS EQU PFTE+4 01766000 PFTFXCT EQU PFTE+8 01767000 PFTFLAG1 EQU PFTE+12 01768000 PFTLSQA EQU PFTFLAG1 01769000 PFTVRALC EQU PFTFLAG1 01770000 PFTFLAG2 EQU PFTE+13 01771000 PFTPREF EQU PFTFLAG2 01772000 PFTQNDX EQU PFTE+14 01773000 FOE EQU 0 01774000 FOEFLNKF EQU FOE 01775000 FOEFLAG EQU FOEFLNKF 01776000 FOEFLINK EQU FOEFLNKF+1 01777000 FOEVINDX EQU FOE+4 01778000 FOEFXCT EQU FOE+6 01779000 PCBR EQU 0 01780000 PCBRTCB EQU PCBR 01781000 PCBRFLAG EQU PCBRTCB 01782000 PCBRINT EQU PCBRFLAG 01783000 PCBRFAIL EQU PCBRFLAG 01784000 PCBRLOAD EQU PCBRFLAG 01785000 PCBRFECB EQU PCBRFLAG 01786000 PCBRTCBA EQU PCBRTCB+1 01787000 PCBRGOTO EQU PCBR+4 01788000 PCBRECB EQU PCBR+8 01789000 PCBRASCB EQU PCBR+12 01790000 PCBRCNT EQU PCBR+16 01791000 PCB EQU 0 01792000 PCBFQP EQU PCB 01793000 PCBCQN EQU PCBFQP 01794000 PCBFQPA EQU PCBFQP+1 01795000 PCBBQP EQU PCB+4 01796000 PCBBQPA EQU PCBBQP 01797000 PCBRTP EQU PCB+8 01798000 PCBFL1 EQU PCBRTP 01799000 PCBROOT EQU PCBFL1 01800000 PCBRTPA EQU PCBRTP+1 01801000 PCBRLP EQU PCB+12 01802000 PCBFXC EQU PCBRLP 01803000 PCBXPT EQU PCB+16 01804000 PCBFL2 EQU PCBXPT 01805000 PCBXPTA EQU PCBXPT+1 01806000 PCBPGT EQU PCB+20 01807000 PCBFL3 EQU PCBPGT 01808000 PCBPGTA EQU PCBPGT+1 01809000 PCBVBN EQU PCB+26 01810000 PCBBLOCK EQU PCB+28 01811000 PCBSRB EQU PCBBLOCK 01812000 PCBRB EQU PCBSRB 01813000 PCBASCB EQU PCB+32 01814000 PCBAIA EQU PCB+36 01815000 PGTPTE EQU 0 01816000 PGTRSA EQU PGTPTE 01817000 PGTBITS EQU PGTRSA+1 01818000 PGTPVM EQU PGTBITS 01819000 PGTPAM EQU PGTBITS 01820000 XPTE EQU 0 01821000 XPTFLAGS EQU XPTE+2 01822000 XPTVIO EQU XPTFLAGS 01823000 XPTFLAG2 EQU XPTE+3 01824000 XPTLPID EQU XPTE+4 01825000 XPTLGN EQU XPTLPID 01826000 XPTLPN EQU XPTLPID+4 01827000 RCA EQU 0 01828000 RCACSECT EQU RCA+9 01829000 RCAFLAGS EQU RCA+10 01830000 RCARCRD EQU RCA+11 01831000 RCANAMES EQU RCA+12 01832000 RCANAME1 EQU RCANAMES 01833000 RCAFXLD EQU RCANAME1 01834000 RCANAME2 EQU RCANAMES+1 01835000 RCANAME3 EQU RCANAMES+2 01836000 RCANAME4 EQU RCANAMES+3 01837000 RCANAME5 EQU RCANAMES+4 01838000 RCANAME6 EQU RCANAMES+5 01839000 RCAFXL EQU RCANAME6 01840000 ASCB EQU 0 01841000 ASCBSUPC EQU ASCB+16 01842000 ASCBRSM EQU ASCB+52 01843000 ASCBRSMF EQU ASCBRSM 01844000 ASCB2LPU EQU ASCBRSMF 01845000 ASCB1LPU EQU ASCBRSMF 01846000 ASCBFW1 EQU ASCB+100 01847000 ASCBRCTF EQU ASCBFW1+2 01848000 ASCBFLG1 EQU ASCBFW1+3 01849000 ASCBDSP1 EQU ASCB+114 01850000 ASCBFLG2 EQU ASCB+115 01851000 ASCBLKGP EQU ASCB+128 01852000 ASCBSRQ EQU ASCB+180 01853000 ASCBSRQ1 EQU ASCBSRQ 01854000 ASCBSRQ2 EQU ASCBSRQ+1 01855000 ASCBSRQ3 EQU ASCBSRQ+2 01856000 ASCBSRQ4 EQU ASCBSRQ+3 01857000 ECB EQU 0 01858000 ECBRB EQU ECB 01859000 ECBEVTB EQU ECBRB 01860000 ECBEXTB EQU ECBEVTB 01861000 ECBCC EQU ECBEXTB 01862000 ECBCCCNT EQU ECBEXTB+1 01863000 ECBRBA EQU ECBCCCNT 01864000 ECBEVTBA EQU ECBRBA 01865000 ECBEXTBA EQU ECBEVTBA 01866000 ECBBYTE3 EQU ECBEXTBA+2 01867000 ECBEXTND EQU ECBBYTE3 01868000 RSMHD EQU 0 01869000 RSMFLG1 EQU RSMHD+12 01870000 RSMCNTFX EQU RSMHD+14 01871000 RSMQS EQU RSMHD+20 01872000 RSMLFQ EQU RSMQS 01873000 RSMLSQA EQU RSMQS+4 01874000 RSMLIOQ EQU RSMQS+8 01875000 RSMFOEQ EQU RSMHD+36 01876000 FOEQUE EQU 0 01877000 IEAVFP2 EQU 0 01878000 IEAVPCB EQU 0 01879000 IEAVGFA EQU 0 01880000 IEAVFREE EQU 0 01881000 IEAVPSII EQU 0 01882000 IEA0PT01 EQU 0 01883000 FOEEND EQU 0 01884000 PGTEND EQU 0 01885000 CVTPTR EQU FLCCVT 01886000 CVTS01 EQU CVTPGSIA 01887000 CVTLPDIA EQU CVTS01+12 01888000 CVTDIRST EQU CVTLPDIA 01889000 CVTSLIDA EQU CVTS01+24 01890000 CVTCTLFG EQU CVTS01+50 01891000 CVTOPTE EQU CVTS01+188 01892000 CVTRV210 EQU CVTS01+424 01893000 CVTRV219 EQU CVTS01+425 01894000 CVTRV228 EQU CVTS01+426 01895000 CVTRV237 EQU CVTS01+427 01896000 CVTMFRTR EQU CVTS01+452 01897000 CVTRV262 EQU CVTS01+468 01898000 CVTRV271 EQU CVTS01+469 01899000 CVTRV280 EQU CVTS01+470 01900000 CVTRV289 EQU CVTS01+471 01901000 CVTGSDA EQU CVTS01+600 01902000 PSARSVTE EQU PSARSVT 01903000 TCBPTR EQU CIWTCB 01904000 RCAPTR EQU PVTPRCA 01905000 ASCBPTR EQU PSAAOLD 01906000 ECBPTR EQU PCBRECB 01907000 RSMAIA EQU PCBAIA 01908000 AIA EQU RSMAIA 01909000 AIAFLG1 EQU AIA+9 01910000 AIAPRIV EQU AIAFLG1 01911000 AIAFLG2 EQU AIA+10 01912000 AIAFLG3 EQU AIA+11 01913000 AIANXAIA EQU AIA+12 01914000 AIAID EQU AIA+16 01915000 AIALPID EQU AIAID 01916000 AIALGID EQU AIALPID 01917000 AIALSID EQU AIALGID 01918000 AIASSID EQU AIALSID+1 01919000 AIARPN EQU AIALPID+4 01920000 AIALSID2 EQU AIARPN 01921000 AIALPMEP EQU AIALSID2 01922000 AIAGRPSZ EQU AIA+24 01923000 AIALGE EQU AIAGRPSZ 01924000 CURNUM EQU CIWCURPG 01925000 CURVBN EQU CURNUM+1 01926000 SAVBOX EQU PVTWSA2 01927000 SAV1 EQU SAVBOX+4 01928000 SAVVBN EQU SAV1+2 01929000 SAV4 EQU SAVBOX+16 01930000 SAV15 EQU SAVBOX+60 01931000 SAVWRK1 EQU SAVBOX+64 01932000 SAVWRK2 EQU SAVBOX+68 01933000 FXLSMAP EQU PVTWSA7 01934000 WORKZONE EQU FXLSMAP+64 01935000 @NM00078 EQU PCBFL1 01936000 PCBPREFR EQU @NM00078 01937000 FLC EQU PSA 01938000 * START UNREFERENCED COMPONENTS 01939000 @NM00080 EQU @NM00078 01940000 @NM00079 EQU @NM00078 01941000 @NM00077 EQU FXLSMAP+12 01942000 SAVRSMHD EQU FXLSMAP+8 01943000 @NM00076 EQU FXLSMAP 01944000 RBN EQU SAVWRK2+2 01945000 @NM00075 EQU SAVWRK2 01946000 SAV14 EQU SAVBOX+56 01947000 SAV13 EQU SAVBOX+52 01948000 SAV12 EQU SAVBOX+48 01949000 SAV11 EQU SAVBOX+44 01950000 SAV10 EQU SAVBOX+40 01951000 SAV9 EQU SAVBOX+36 01952000 SAV8 EQU SAVBOX+32 01953000 SAV7 EQU SAVBOX+28 01954000 SAV6 EQU SAVBOX+24 01955000 SAV5 EQU SAVBOX+20 01956000 SAV3 EQU SAVBOX+12 01957000 SAV2 EQU SAVBOX+8 01958000 @NM00074 EQU SAV1 01959000 SAV0 EQU SAVBOX 01960000 @NM00073 EQU CURNUM+3 01961000 @NM00072 EQU CURNUM 01962000 AIADPXCT EQU AIALGE 01963000 AIACEPTR EQU AIALPMEP 01964000 AIASLOT EQU AIASSID+1 01965000 @NM00071 EQU AIASSID 01966000 @NM00070 EQU AIALSID 01967000 AIARCSN EQU AIANXAIA+2 01968000 AIACYL EQU AIANXAIA 01969000 AIARSV9 EQU AIAFLG3 01970000 AIARSV8 EQU AIAFLG3 01971000 AIARSV7 EQU AIAFLG3 01972000 AIALPMEC EQU AIAFLG3 01973000 AIARSV6 EQU AIAFLG3 01974000 AIATRPSP EQU AIAFLG3 01975000 AIAPRINO EQU AIAFLG3 01976000 AIARSV5 EQU AIAFLG3 01977000 AIABADID EQU AIAFLG2 01978000 AIAERROR EQU AIAFLG2 01979000 AIASECER EQU AIAFLG2 01980000 AIAPRIER EQU AIAFLG2 01981000 AIARSV4 EQU AIAFLG2 01982000 AIAIORTY EQU AIAFLG2 01983000 AIATERMR EQU AIAFLG2 01984000 AIAFRAUX EQU AIAFLG2 01985000 AIARSV1 EQU AIAFLG1 01986000 AIASWPFX EQU AIAFLG1 01987000 AIAPAGDS EQU AIAFLG1 01988000 AIALSQA EQU AIAFLG1 01989000 AIADUPLX EQU AIAFLG1 01990000 AIAVIO EQU AIAFLG1 01991000 AIAWRITE EQU AIAFLG1 01992000 AIAOP EQU AIA+8 01993000 AIABQPA EQU AIA+4 01994000 AIAFQPA EQU AIA 01995000 PSARSAV EQU PSARSVTE+60 01996000 PSARSTK EQU PSARSVTE+56 01997000 PSAESAV3 EQU PSARSVTE+52 01998000 PSAESTK3 EQU PSARSVTE+48 01999000 PSAESAV2 EQU PSARSVTE+44 02000000 PSAESTK2 EQU PSARSVTE+40 02001000 PSAESAV1 EQU PSARSVTE+36 02002000 PSAESTK1 EQU PSARSVTE+32 02003000 PSAPSAV EQU PSARSVTE+28 02004000 PSAPSTK EQU PSARSVTE+24 02005000 PSAMSAV EQU PSARSVTE+20 02006000 PSAMSTK EQU PSARSVTE+16 02007000 PSASSAV EQU PSARSVTE+12 02008000 PSASSTK EQU PSARSVTE+8 02009000 PSANSTK EQU PSARSVTE+4 02010000 PSACSTK EQU PSARSVTE 02011000 CVTRV628 EQU CVTS01+728 02012000 CVTRV627 EQU CVTS01+724 02013000 CVTRV626 EQU CVTS01+720 02014000 CVTRV625 EQU CVTS01+716 02015000 CVTRV624 EQU CVTS01+712 02016000 CVTRV623 EQU CVTS01+708 02017000 CVTRV622 EQU CVTS01+704 02018000 CVTRV621 EQU CVTS01+700 02019000 CVTIHASU EQU CVTS01+696 02020000 CVTSUSP EQU CVTS01+692 02021000 CVTT6SVC EQU CVTS01+688 02022000 CVTCDAL EQU CVTS01+684 02023000 CVTTCTL EQU CVTS01+680 02024000 CVTRSUME EQU CVTS01+676 02025000 CVTJTERM EQU CVTS01+672 02026000 CVTASMRM EQU CVTS01+668 02027000 CVTTCASP EQU CVTS01+664 02028000 CVT0PT03 EQU CVTS01+660 02029000 CVT0PT0E EQU CVTS01+656 02030000 CVTRV609 EQU CVTS01+652 02031000 CVTCGK EQU CVTS01+648 02032000 CVTRAC EQU CVTS01+644 02033000 CVTHSM EQU CVTS01+640 02034000 CVTRV605 EQU CVTS01+636 02035000 CVTRV604 EQU CVTS01+632 02036000 CVTEFF02 EQU CVTS01+628 02037000 CVTCBBR EQU CVTS01+624 02038000 CVTSSCR EQU CVTS01+620 02039000 CVTEVENT EQU CVTS01+616 02040000 CVTCRCA EQU CVTS01+612 02041000 CVTTPIO EQU CVTS01+608 02042000 CVTADV EQU CVTS01+604 02043000 CVTGSDAB EQU CVTGSDA 02044000 CVTQV3 EQU CVTS01+596 02045000 CVTQV2 EQU CVTS01+592 02046000 CVTQV1 EQU CVTS01+588 02047000 CVTRPT EQU CVTS01+584 02048000 CVTSSRB EQU CVTS01+580 02049000 CVTCSDRL EQU CVTS01+576 02050000 CVTEXP1 EQU CVTS01+572 02051000 CVTRMPMT EQU CVTS01+568 02052000 CVTRMPTT EQU CVTS01+564 02053000 CVTVPSA EQU CVTS01+560 02054000 CVTVSTOP EQU CVTS01+556 02055000 CVTGTFR8 EQU CVTS01+552 02056000 CVTQUIT EQU CVTS01+548 02057000 CVTVACR EQU CVTS01+544 02058000 CVTWTCB EQU CVTS01+540 02059000 CVTSTPRS EQU CVTS01+536 02060000 CVT0PT02 EQU CVTS01+532 02061000 CVTDARCM EQU CVTS01+528 02062000 CVTIRECM EQU CVTS01+524 02063000 CVTJRECM EQU CVTS01+520 02064000 CVTVEMS0 EQU CVTS01+516 02065000 CVTSPFRR EQU CVTS01+512 02066000 CVTRLSTG EQU CVTS01+508 02067000 CVT0TC0A EQU CVTS01+504 02068000 CVTGMBR EQU CVTS01+500 02069000 CVTLFRM EQU CVTS01+496 02070000 CVTRMBR EQU CVTS01+492 02071000 CVTVIOP EQU CVTS01+488 02072000 CVTRV307 EQU CVTS01+486 02073000 CVTRV306 EQU CVTS01+484 02074000 CVTRV305 EQU CVTS01+482 02075000 CVTRV304 EQU CVTS01+480 02076000 CVTRV303 EQU CVTS01+478 02077000 CVTRV302 EQU CVTS01+476 02078000 CVTTRCA EQU CVTS01+472 02079000 CVTRV297 EQU CVTRV289 02080000 CVTRV296 EQU CVTRV289 02081000 CVTRV295 EQU CVTRV289 02082000 CVTRV294 EQU CVTRV289 02083000 CVTRV293 EQU CVTRV289 02084000 CVTRV292 EQU CVTRV289 02085000 CVTRV291 EQU CVTRV289 02086000 CVTRV290 EQU CVTRV289 02087000 CVTRV288 EQU CVTRV280 02088000 CVTRV287 EQU CVTRV280 02089000 CVTRV286 EQU CVTRV280 02090000 CVTRV285 EQU CVTRV280 02091000 CVTRV284 EQU CVTRV280 02092000 CVTRV283 EQU CVTRV280 02093000 CVTRV282 EQU CVTRV280 02094000 CVTRV281 EQU CVTRV280 02095000 CVTRV279 EQU CVTRV271 02096000 CVTRV278 EQU CVTRV271 02097000 CVTRV277 EQU CVTRV271 02098000 CVTRV276 EQU CVTRV271 02099000 CVTRV275 EQU CVTRV271 02100000 CVTRV274 EQU CVTRV271 02101000 CVTRV273 EQU CVTRV271 02102000 CVTRV272 EQU CVTRV271 02103000 CVTRV270 EQU CVTRV262 02104000 CVTRV269 EQU CVTRV262 02105000 CVTRV268 EQU CVTRV262 02106000 CVTRV267 EQU CVTRV262 02107000 CVTRV266 EQU CVTRV262 02108000 CVTRV265 EQU CVTRV262 02109000 CVTRV264 EQU CVTRV262 02110000 CVTRV263 EQU CVTRV262 02111000 CVTVFP EQU CVTS01+464 02112000 CVTVSI EQU CVTS01+460 02113000 CVTVPSIB EQU CVTS01+456 02114000 CVTMFACT EQU CVTMFRTR 02115000 CVTMFCTL EQU CVTS01+448 02116000 CVTPVBP EQU CVTS01+444 02117000 CVTPWI EQU CVTS01+440 02118000 CVTRV254 EQU CVTS01+438 02119000 CVTRV253 EQU CVTS01+436 02120000 CVTRV252 EQU CVTS01+434 02121000 CVTRV251 EQU CVTS01+433 02122000 CVTRV250 EQU CVTS01+432 02123000 CVTRV249 EQU CVTS01+431 02124000 CVTRV248 EQU CVTS01+430 02125000 CVTRV247 EQU CVTS01+429 02126000 CVTRV246 EQU CVTS01+428 02127000 CVTRV245 EQU CVTRV237 02128000 CVTRV244 EQU CVTRV237 02129000 CVTRV243 EQU CVTRV237 02130000 CVTRV242 EQU CVTRV237 02131000 CVTRV241 EQU CVTRV237 02132000 CVTRV240 EQU CVTRV237 02133000 CVTRV239 EQU CVTRV237 02134000 CVTRV238 EQU CVTRV237 02135000 CVTRV236 EQU CVTRV228 02136000 CVTRV235 EQU CVTRV228 02137000 CVTRV234 EQU CVTRV228 02138000 CVTRV233 EQU CVTRV228 02139000 CVTRV232 EQU CVTRV228 02140000 CVTRV231 EQU CVTRV228 02141000 CVTRV230 EQU CVTRV228 02142000 CVTRV229 EQU CVTRV228 02143000 CVTRV227 EQU CVTRV219 02144000 CVTRV226 EQU CVTRV219 02145000 CVTRV225 EQU CVTRV219 02146000 CVTRV224 EQU CVTRV219 02147000 CVTRV223 EQU CVTRV219 02148000 CVTRV222 EQU CVTRV219 02149000 CVTRV221 EQU CVTRV219 02150000 CVTRV220 EQU CVTRV219 02151000 CVTRV218 EQU CVTRV210 02152000 CVTRV217 EQU CVTRV210 02153000 CVTRV216 EQU CVTRV210 02154000 CVTRV215 EQU CVTRV210 02155000 CVTRV214 EQU CVTRV210 02156000 CVTRV213 EQU CVTRV210 02157000 CVTRV212 EQU CVTRV210 02158000 CVTRV211 EQU CVTRV210 02159000 CVTLCCAT EQU CVTS01+420 02160000 CVTPCCAT EQU CVTS01+416 02161000 CVTIPCRP EQU CVTS01+412 02162000 CVTIPCRI EQU CVTS01+408 02163000 CVTIPCDS EQU CVTS01+404 02164000 CVTAIDVT EQU CVTS01+400 02165000 CVTSSAP EQU CVTS01+396 02166000 CVTEHCIR EQU CVTS01+392 02167000 CVTEHDEF EQU CVTS01+388 02168000 CVTDAIR EQU CVTS01+384 02169000 CVTPERFM EQU CVTS01+380 02170000 CVT044R2 EQU CVTS01+376 02171000 CVTFETCH EQU CVTS01+372 02172000 CVTRSTWD EQU CVTS01+368 02173000 CVTSPOST EQU CVTS01+364 02174000 CVTIOBP EQU CVTS01+360 02175000 CVTASMVT EQU CVTS01+356 02176000 CVTRECRQ EQU CVTS01+352 02177000 CVTWSAC EQU CVTS01+348 02178000 CVTRV149 EQU CVTS01+344 02179000 CVTWSAL EQU CVTS01+340 02180000 CVTSPSA EQU CVTS01+336 02181000 CVTGLMN EQU CVTS01+332 02182000 CVTVEAC0 EQU CVTS01+328 02183000 CVT062R1 EQU CVTS01+324 02184000 CVTRPOST EQU CVTS01+320 02185000 CVTDQIQE EQU CVTS01+316 02186000 CVTCSD EQU CVTS01+312 02187000 CVTLKRMA EQU CVTS01+308 02188000 CVTRSPIE EQU CVTS01+304 02189000 CVTRENQ EQU CVTS01+300 02190000 CVTLQCB EQU CVTS01+296 02191000 CVTFQCB EQU CVTS01+292 02192000 CVTQCS01 EQU CVTS01+288 02193000 CVTAPFT EQU CVTS01+284 02194000 CVTPARRL EQU CVTS01+280 02195000 CVTVWAIT EQU CVTS01+276 02196000 CVTGSPL EQU CVTS01+272 02197000 CVTLSMQ EQU CVTS01+268 02198000 CVTGSMQ EQU CVTS01+264 02199000 CVTEXPRO EQU CVTS01+260 02200000 CVTOPCTP EQU CVTS01+256 02201000 CVTSIC EQU CVTS01+252 02202000 CVTTPIOS EQU CVTS01+248 02203000 CVTRTMS EQU CVTS01+244 02204000 CVTSDBF EQU CVTS01+240 02205000 CVTSCBP EQU CVTS01+236 02206000 CVTSDMP EQU CVTS01+232 02207000 CVTSV60 EQU CVTS01+228 02208000 CVTRTMCT EQU CVTS01+224 02209000 CVTASCBL EQU CVTS01+220 02210000 CVTASCBH EQU CVTS01+216 02211000 CVTGDA EQU CVTS01+212 02212000 CVTASVT EQU CVTS01+208 02213000 CVTVVMDI EQU CVTS01+204 02214000 CVTAQTOP EQU CVTS01+200 02215000 CVTIOSCS EQU CVTS01+196 02216000 CVTSDRM EQU CVTS01+192 02217000 CVTSTXU EQU CVTS01+184 02218000 CVTQUIS EQU CVTS01+180 02219000 CVTPARS EQU CVTS01+176 02220000 CVTS1EE EQU CVTS01+172 02221000 CVTFRAS EQU CVTS01+168 02222000 CVTQSAS EQU CVTS01+164 02223000 CVTCRAS EQU CVTS01+160 02224000 CVTCRMN EQU CVTS01+156 02225000 CVTDELCP EQU CVTS01+152 02226000 CVTFRECL EQU CVTS01+148 02227000 CVTGETCL EQU CVTS01+144 02228000 CVTBLDCP EQU CVTS01+140 02229000 CVTAUTHL EQU CVTS01+136 02230000 CVTSCAN EQU CVTS01+132 02231000 CVTRV144 EQU CVTS01+130 02232000 CVTMAXMP EQU CVTS01+128 02233000 CVTSTCK EQU CVTS01+124 02234000 CVTRV139 EQU CVTS01+123 02235000 CVTDSSAC EQU CVTS01+122 02236000 CVTRV513 EQU CVTS01+121 02237000 CVTIOSPL EQU CVTS01+120 02238000 CVTPTGT EQU CVTS01+116 02239000 CVTCSPIE EQU CVTS01+112 02240000 CVTSMFEX EQU CVTS01+108 02241000 CVTOLT0A EQU CVTS01+104 02242000 CVTSRBRT EQU CVTS01+100 02243000 CVTPUTL EQU CVTS01+96 02244000 CVTASCRL EQU CVTS01+92 02245000 CVTASCRF EQU CVTS01+88 02246000 CVTRV326 EQU CVTS01+84 02247000 CVTRV325 EQU CVTS01+80 02248000 CVTRV324 EQU CVTS01+76 02249000 CVT0VL01 EQU CVTS01+72 02250000 CVTSHRVM EQU CVTS01+68 02251000 CVTRV332 EQU CVTS01+64 02252000 CVTTAS EQU CVTS01+60 02253000 CVTRSCN EQU CVTS01+56 02254000 CVTTRAC2 EQU CVTS01+54 02255000 CVTTRACE EQU CVTS01+52 02256000 CVTAPG EQU CVTS01+51 02257000 CVTSDTRC EQU CVTCTLFG 02258000 CVTGTRCE EQU CVTCTLFG 02259000 CVTNOMP EQU CVTCTLFG 02260000 CVTRSV79 EQU CVTCTLFG 02261000 CVTDSTAT EQU CVTCTLFG 02262000 CVTRSV78 EQU CVTCTLFG 02263000 CVTRV333 EQU CVTCTLFG 02264000 CVTRV323 EQU CVTCTLFG 02265000 CVTSPVLK EQU CVTS01+49 02266000 CVTRSV77 EQU CVTS01+48 02267000 CVTRV331 EQU CVTS01+44 02268000 CVTRV330 EQU CVTS01+40 02269000 CVTRV329 EQU CVTS01+36 02270000 CVTRV328 EQU CVTS01+32 02271000 CVTRV322 EQU CVTS01+28 02272000 CVTSLID EQU CVTSLIDA+1 02273000 CVTSYLK EQU CVTSLIDA 02274000 CVTRV321 EQU CVTS01+20 02275000 CVTRV320 EQU CVTS01+16 02276000 CVTLPDIR EQU CVTLPDIA+1 02277000 CVTRSV69 EQU CVTDIRST 02278000 CVTRSV68 EQU CVTDIRST 02279000 CVTRSV67 EQU CVTDIRST 02280000 CVTRSV66 EQU CVTDIRST 02281000 CVTRSV65 EQU CVTDIRST 02282000 CVTRSV64 EQU CVTDIRST 02283000 CVTRSV63 EQU CVTDIRST 02284000 CVTDICOM EQU CVTDIRST 02285000 CVTPVTP EQU CVTS01+8 02286000 CVTLPDSR EQU CVTS01+4 02287000 CVTGETL EQU CVTS01 02288000 RSMASMHD EQU RSMHD+40 02289000 RSMLIOQL EQU RSMLIOQ+4 02290000 RSMLIOQF EQU RSMLIOQ 02291000 RSMLSQAL EQU RSMLSQA+2 02292000 RSMLSQAF EQU RSMLSQA 02293000 RSMLFQL EQU RSMLFQ+2 02294000 RSMLFQF EQU RSMLFQ 02295000 RSMRSV2 EQU RSMHD+16 02296000 RSMRSV1 EQU RSMHD+13 02297000 @NM00069 EQU RSMFLG1 02298000 RSMFAIL EQU RSMFLG1 02299000 RSMGFADD EQU RSMFLG1 02300000 RSMCPNC EQU RSMFLG1 02301000 RSMCPNU EQU RSMFLG1 02302000 RSMGFAD EQU RSMFLG1 02303000 RSMIOCPC EQU RSMFLG1 02304000 RSMIOCPU EQU RSMFLG1 02305000 RSMASCB EQU RSMHD+8 02306000 RSMSPCT EQU RSMHD+4 02307000 RSMVSTO EQU RSMHD 02308000 ECBEVNT EQU ECBEXTND 02309000 @NM00068 EQU ECBEXTND 02310000 @NM00067 EQU ECBBYTE3 02311000 @NM00066 EQU ECBEXTBA 02312000 @NM00065 EQU ECBCC 02313000 ECBPOSTB EQU ECBCC 02314000 ECBWAITB EQU ECBCC 02315000 ASCBEND EQU ASCB+208 02316000 ASCBSRBT EQU ASCB+200 02317000 ASCBSWTL EQU ASCB+196 02318000 ASCBRS14 EQU ASCB+195 02319000 ASCBSMCT EQU ASCB+194 02320000 ASCBRS12 EQU ASCB+192 02321000 ASCBPCTT EQU ASCB+188 02322000 ASCBVGTT EQU ASCB+184 02323000 ASCBRV43 EQU ASCBSRQ4 02324000 ASCBRV42 EQU ASCBSRQ4 02325000 ASCBRV41 EQU ASCBSRQ4 02326000 ASCBRV40 EQU ASCBSRQ4 02327000 ASCBRV39 EQU ASCBSRQ4 02328000 ASCBRV38 EQU ASCBSRQ4 02329000 ASCBRV37 EQU ASCBSRQ4 02330000 ASCBRV36 EQU ASCBSRQ4 02331000 ASCBRV35 EQU ASCBSRQ3 02332000 ASCBRV34 EQU ASCBSRQ3 02333000 ASCBRV33 EQU ASCBSRQ3 02334000 ASCBRV32 EQU ASCBSRQ3 02335000 ASCBRV31 EQU ASCBSRQ3 02336000 ASCBRV30 EQU ASCBSRQ3 02337000 ASCBRV29 EQU ASCBSRQ3 02338000 ASCBRV28 EQU ASCBSRQ3 02339000 ASCBRV27 EQU ASCBSRQ2 02340000 ASCBRV26 EQU ASCBSRQ2 02341000 ASCBRV25 EQU ASCBSRQ2 02342000 ASCBRV24 EQU ASCBSRQ2 02343000 ASCBRV23 EQU ASCBSRQ2 02344000 ASCBRV22 EQU ASCBSRQ2 02345000 ASCBRV21 EQU ASCBSRQ2 02346000 ASCBRV20 EQU ASCBSRQ2 02347000 ASCBRV19 EQU ASCBSRQ1 02348000 ASCBRV18 EQU ASCBSRQ1 02349000 ASCBRV17 EQU ASCBSRQ1 02350000 ASCBRV16 EQU ASCBSRQ1 02351000 ASCBRV15 EQU ASCBSRQ1 02352000 ASCBRV14 EQU ASCBSRQ1 02353000 ASCBRV13 EQU ASCBSRQ1 02354000 ASCBSTA EQU ASCBSRQ1 02355000 ASCBJBNS EQU ASCB+176 02356000 ASCBJBNI EQU ASCB+172 02357000 ASCBMCC EQU ASCB+168 02358000 ASCBRTWA EQU ASCB+164 02359000 ASCBIQEA EQU ASCB+160 02360000 ASCBXMPQ EQU ASCB+156 02361000 ASCBRS01 EQU ASCB+154 02362000 ASCBFMCT EQU ASCB+152 02363000 ASCBOUXB EQU ASCB+148 02364000 ASCBOUCB EQU ASCB+144 02365000 ASCBMECB EQU ASCB+140 02366000 ASCBQECB EQU ASCB+136 02367000 ASCBLSQH EQU ASCBLKGP+4 02368000 ASCBLOCK EQU ASCBLKGP 02369000 ASCBTCBS EQU ASCB+124 02370000 ASCBNVSC EQU ASCB+122 02371000 ASCBVSC EQU ASCB+120 02372000 ASCBSRBS EQU ASCB+118 02373000 ASCBSSRB EQU ASCB+116 02374000 ASCBRV06 EQU ASCBFLG2 02375000 ASCBRV05 EQU ASCBFLG2 02376000 ASCBRV04 EQU ASCBFLG2 02377000 ASCBSNQS EQU ASCBFLG2 02378000 ASCBS2S EQU ASCBFLG2 02379000 ASCBCEXT EQU ASCBFLG2 02380000 ASCBPXMT EQU ASCBFLG2 02381000 ASCBXMPT EQU ASCBFLG2 02382000 ASCBRF07 EQU ASCBDSP1 02383000 ASCBRF06 EQU ASCBDSP1 02384000 ASCBRF05 EQU ASCBDSP1 02385000 ASCBRF04 EQU ASCBDSP1 02386000 ASCBRF03 EQU ASCBDSP1 02387000 ASCBRF02 EQU ASCBDSP1 02388000 ASCBFAIL EQU ASCBDSP1 02389000 ASCBNOQ EQU ASCBDSP1 02390000 ASCBSWCT EQU ASCB+112 02391000 ASCBASXB EQU ASCB+108 02392000 ASCBTMCH EQU ASCB+104 02393000 ASCBNSWP EQU ASCBFLG1 02394000 ASCBTYP1 EQU ASCBFLG1 02395000 ASCBSTND EQU ASCBFLG1 02396000 ASCBABNT EQU ASCBFLG1 02397000 ASCBTERM EQU ASCBFLG1 02398000 ASCBS3S EQU ASCBFLG1 02399000 ASCBCMSH EQU ASCBFLG1 02400000 ASCBTOFF EQU ASCBFLG1 02401000 ASCBRF01 EQU ASCBRCTF 02402000 ASCBTMLW EQU ASCBRCTF 02403000 ASCBOUT EQU ASCBRCTF 02404000 ASCBWAIT EQU ASCBRCTF 02405000 ASCBRV08 EQU ASCBRCTF 02406000 ASCBFQU EQU ASCBRCTF 02407000 ASCBFRS EQU ASCBRCTF 02408000 ASCBTMNO EQU ASCBRCTF 02409000 ASCBAFFN EQU ASCBFW1 02410000 ASCBDUMP EQU ASCB+96 02411000 ASCBRV44 EQU ASCB+92 02412000 ASCBUBET EQU ASCB+88 02413000 ASCBECB EQU ASCB+84 02414000 ASCBJSTL EQU ASCB+80 02415000 ASCBEWST EQU ASCB+72 02416000 ASCBEJST EQU ASCB+64 02417000 ASCBTSB EQU ASCB+60 02418000 ASCBCSCB EQU ASCB+56 02419000 ASCBRSMA EQU ASCBRSM+1 02420000 ASCBRV54 EQU ASCBRSMF 02421000 ASCBRV53 EQU ASCBRSMF 02422000 ASCBRV52 EQU ASCBRSMF 02423000 ASCBRV51 EQU ASCBRSMF 02424000 ASCBVEQR EQU ASCBRSMF 02425000 ASCBN2LP EQU ASCBRSMF 02426000 ASCBLDA EQU ASCB+48 02427000 ASCBSTOR EQU ASCB+44 02428000 ASCBDP EQU ASCB+43 02429000 ASCBRV07 EQU ASCB+42 02430000 ASCBIOSM EQU ASCB+40 02431000 ASCBSEQN EQU ASCB+38 02432000 ASCBASID EQU ASCB+36 02433000 ASCBCPUS EQU ASCB+32 02434000 ASCBSPL EQU ASCB+28 02435000 ASCBIOSP EQU ASCB+24 02436000 ASCBSYNC EQU ASCBSUPC+4 02437000 ASCBSVRB EQU ASCBSUPC 02438000 ASCBCMSF EQU ASCB+12 02439000 ASCBBWDP EQU ASCB+8 02440000 ASCBFWDP EQU ASCB+4 02441000 ASCBASCB EQU ASCB 02442000 ASCBEGIN EQU ASCB 02443000 RCARETAD EQU RCA+20 02444000 RCARES9 EQU RCA+19 02445000 @NM00064 EQU RCA+18 02446000 RCAPIOI EQU RCA+18 02447000 RCANAME7 EQU RCANAMES+6 02448000 RCAREP1 EQU RCANAME6 02449000 RCAPSIF EQU RCANAME6 02450000 RCAPSIX EQU RCANAME6 02451000 RCAVEQRP EQU RCANAME6 02452000 RCARCFC EQU RCANAME6 02453000 RCACSGB EQU RCANAME6 02454000 RCAPS113 EQU RCANAME6 02455000 RCAFREE EQU RCANAME5 02456000 RCARFR2 EQU RCANAME5 02457000 RCACPBR EQU RCANAME5 02458000 RCAOPBR EQU RCANAME5 02459000 RCASORT EQU RCANAME5 02460000 RCASIRT EQU RCANAME5 02461000 RCARELV EQU RCANAME5 02462000 RCARELF EQU RCANAME5 02463000 RCAGFAD EQU RCANAME4 02464000 RCAVEQRI EQU RCANAME4 02465000 RCAVEQRF EQU RCANAME4 02466000 RCAVEQRC EQU RCANAME4 02467000 RCATERM EQU RCANAME4 02468000 RCASQA EQU RCANAME4 02469000 RCASWIN EQU RCANAME4 02470000 RCASOUT EQU RCANAME4 02471000 RCARFR EQU RCANAME3 02472000 RCARELS EQU RCANAME3 02473000 RCARCFI EQU RCANAME3 02474000 RCARCF EQU RCANAME3 02475000 RCAPSII EQU RCANAME3 02476000 RCAPSIB EQU RCANAME3 02477000 RCAPS112 EQU RCANAME3 02478000 RCAPIX EQU RCANAME3 02479000 RCAPIOP EQU RCANAME2 02480000 RCASWPC EQU RCANAME2 02481000 RCASWPP EQU RCANAME2 02482000 RCAPFTE EQU RCANAME2 02483000 RCAPCB EQU RCANAME2 02484000 RCAOUT EQU RCANAME2 02485000 RCAITAS EQU RCANAME2 02486000 RCAIOCP EQU RCANAME2 02487000 RCAINV EQU RCANAME1 02488000 RCAGFA EQU RCANAME1 02489000 RCAVEQR EQU RCANAME1 02490000 RCADSEG EQU RCANAME1 02491000 RCADLAS EQU RCANAME1 02492000 RCACSEG EQU RCANAME1 02493000 RCAVAMSI EQU RCANAME1 02494000 @NM00063 EQU RCAFLAGS 02495000 RCADISP EQU RCAFLAGS 02496000 @NM00062 EQU RCAFLAGS 02497000 RCAQS EQU RCAFLAGS 02498000 RCAPSIER EQU RCAFLAGS 02499000 RCAABEND EQU RCAFLAGS 02500000 RCALL EQU RCAFLAGS 02501000 RCASAL EQU RCAFLAGS 02502000 RCARES7 EQU RCA+8 02503000 RCAPARM1 EQU RCA+4 02504000 RCAPARM0 EQU RCA 02505000 XPTLSID2 EQU XPTLPN 02506000 XPTLSID EQU XPTLGN 02507000 @NM00061 EQU XPTFLAG2 02508000 XPTIOERR EQU XPTFLAG2 02509000 XPTPOINP EQU XPTFLAG2 02510000 XPTRES1 EQU XPTFLAG2 02511000 XPTVALID EQU XPTFLAG2 02512000 XPTRSV4 EQU XPTFLAGS 02513000 XPTDEFER EQU XPTFLAGS 02514000 XPTRES2 EQU XPTFLAGS 02515000 @NM00060 EQU XPTFLAGS 02516000 XPTCKF EQU XPTFLAGS 02517000 XPTXAV EQU XPTFLAGS 02518000 XPTVIOLP EQU XPTFLAGS 02519000 XPTRSV1 EQU XPTE+1 02520000 XPTPROT EQU XPTE 02521000 @NM00059 EQU PGTBITS 02522000 @NM00058 EQU PGTBITS 02523000 @NM00057 EQU PGTBITS 02524000 @NM00056 EQU PGTBITS 02525000 @NM00055 EQU PGTBITS 02526000 @NM00054 EQU PGTBITS 02527000 PGTREAL EQU PGTRSA 02528000 PCBEND EQU PCB+64 02529000 PCBSPCTE EQU PCBRB 02530000 PCBRBN EQU PCB+24 02531000 PCBSWPS2 EQU PCBFL3 02532000 @NM00053 EQU PCBFL3 02533000 PCBNOREC EQU PCBFL3 02534000 PCBDFRLS EQU PCBFL3 02535000 PCBSWPLS EQU PCBFL3 02536000 PCBSWPS1 EQU PCBFL3 02537000 PCBSWPIN EQU PCBFL3 02538000 PCBSWPOT EQU PCBFL3 02539000 @NM00052 EQU PCBFL2 02540000 @NM00051 EQU PCBFL2 02541000 PCBVIO EQU PCBFL2 02542000 PCBSUPRS EQU PCBFL2 02543000 PCBRESET EQU PCBFL2 02544000 PCBIOERR EQU PCBFL2 02545000 PCBGFAD EQU PCBFL2 02546000 PCBFREAL EQU PCBFL2 02547000 PCBRLPA EQU PCBRLP+1 02548000 PCBIOCMP EQU PCBFL1 02549000 PCBIOI EQU PCBFL1 02550000 PCBLFR EQU PCBFL1 02551000 PCBLLHLD EQU PCBFL1 02552000 PCBSRBMD EQU PCBFL1 02553000 PCBPEX EQU PCBFL1 02554000 @NM00050 EQU PCBFL1 02555000 PCBRWRKB EQU PCBR+60 02556000 PCBRWRKA EQU PCBR+56 02557000 PCBRWRK9 EQU PCBR+52 02558000 PCBRWRK8 EQU PCBR+48 02559000 PCBRWRK7 EQU PCBR+44 02560000 PCBRWRK6 EQU PCBR+40 02561000 PCBRWRK5 EQU PCBR+36 02562000 PCBRWRK4 EQU PCBR+32 02563000 PCBRWRK3 EQU PCBR+28 02564000 PCBRWRK2 EQU PCBR+24 02565000 PCBRWRK1 EQU PCBR+20 02566000 PCBRRSV1 EQU PCBR+18 02567000 PCBRPOF EQU PCBRFLAG 02568000 PCBRFPCB EQU PCBRFLAG 02569000 PCBRPB EQU PCBRFLAG 02570000 PCBRETRY EQU PCBRFLAG 02571000 @NM00049 EQU FOEFLAG 02572000 @NM00048 EQU FOEFLAG 02573000 @NM00047 EQU FOEFLAG 02574000 @NM00046 EQU FOEFLAG 02575000 @NM00045 EQU FOEFLAG 02576000 @NM00044 EQU FOEFLAG 02577000 @NM00043 EQU FOEFLAG 02578000 FOEINT EQU FOEFLAG 02579000 PFTUIC EQU PFTE+15 02580000 @NM00042 EQU PFTFLAG2 02581000 @NM00041 EQU PFTFLAG2 02582000 PFTSTEAL EQU PFTFLAG2 02583000 PFTIRRG EQU PFTFLAG2 02584000 PFTVR EQU PFTFLAG2 02585000 PFTOFFLN EQU PFTFLAG2 02586000 PFTDFRLS EQU PFTFLAG2 02587000 PFTOFINT EQU PFTFLAG1 02588000 PFTBADPG EQU PFTFLAG1 02589000 PFTPCBSI EQU PFTFLAG1 02590000 PFTVRPLT EQU PFTFLAG1 02591000 PFTVRINT EQU PFTFLAG1 02592000 PFTONAVQ EQU PFTFLAG1 02593000 PFTRSV1 EQU PFTE+10 02594000 PFTBQPTR EQU PFTQPTRS+2 02595000 PFTFQPTR EQU PFTQPTRS 02596000 PFTVBN EQU PFTPGID+2 02597000 PFTASID EQU PFTPGID 02598000 VSLEND1A EQU VSLEND+1 02599000 VSLEXTRS EQU VSLFLAG2 02600000 VSLKEPRL EQU VSLFLAG2 02601000 VSLPGOUT EQU VSLFLAG2 02602000 VSLRSV3 EQU VSLFLAG2 02603000 VSLERR EQU VSLFLAG2 02604000 VSLRAO EQU VSLFLAG2 02605000 VSLNULL EQU VSLFLAG2 02606000 VSLAST EQU VSLFLAG2 02607000 VSLRSV2 EQU VSLFLAG1 02608000 VSLONG EQU VSLFLAG1 02609000 VSLRSV1 EQU VSLFLAG1 02610000 VSLRLS EQU VSLFLAG1 02611000 VSLOAD EQU VSLFLAG1 02612000 VSLFIX EQU VSLFLAG1 02613000 VSLCONT EQU VSLFLAG1 02614000 CIWWRK5 EQU CIWA+60 02615000 CIWWRK4 EQU CIWA+56 02616000 @NM00040 EQU CIWIFLG2 02617000 CIWIKPRL EQU CIWIFLG2 02618000 CIWIOUT EQU CIWIFLG2 02619000 @NM00039 EQU CIWIFLG2 02620000 CIWIRAO EQU CIWIFLG2 02621000 CIWINULL EQU CIWIFLG2 02622000 CIWILAST EQU CIWIFLG2 02623000 @NM00038 EQU CIWIFLG1 02624000 CIWILONG EQU CIWIFLG1 02625000 @NM00037 EQU CIWIFLG1 02626000 CIWIRLS EQU CIWIFLG1 02627000 CIWILOAD EQU CIWIFLG1 02628000 CIWIFREE EQU CIWIFLG1 02629000 CIWIFIX EQU CIWIFLG1 02630000 CIWICONT EQU CIWIFLG1 02631000 @NM00036 EQU CIWA+7 02632000 CIWEXTRS EQU CIWOPFL2 02633000 CIWKEPRL EQU CIWOPFL2 02634000 CIWPGOUT EQU CIWOPFL2 02635000 @NM00035 EQU CIWOPFL2 02636000 CIWERR EQU CIWOPFL2 02637000 CIWRAO EQU CIWOPFL2 02638000 CIWNULL EQU CIWOPFL2 02639000 CIWLAST EQU CIWOPFL2 02640000 @NM00034 EQU CIWOPFL1 02641000 @NM00033 EQU CIWOPFL1 02642000 CIWRLS EQU CIWOPFL1 02643000 CIWLOAD EQU CIWOPFL1 02644000 CIWFREE EQU CIWOPFL1 02645000 CIWCONT EQU CIWOPFL1 02646000 CIWFLG2 EQU CIWA+1 02647000 CIWOUTKR EQU CIWFLG1 02648000 CIWBRIN EQU CIWFLG1 02649000 CIWBREX EQU CIWFLG1 02650000 @NM00032 EQU CIWFLG1 02651000 CIWSVC3 EQU CIWFLG1 02652000 CIWSVC2 EQU CIWFLG1 02653000 PVTEND EQU PVT+1848 02654000 PVTTASID EQU PVT+1846 02655000 PVTXXXXX EQU PVT+1844 02656000 PVTMVCLC EQU PVT+1840 02657000 PVTSPARE EQU PVT+1838 02658000 PVTCHUIC EQU PVT+1836 02659000 PVTSQAFX EQU PVT+1832 02660000 PVTDEFFX EQU PVT+1828 02661000 PVTFIXOK EQU PVT+1826 02662000 PVTPEROK EQU PVT+1824 02663000 PVTPERFX EQU PVT+1820 02664000 PVTRSRB EQU PVT+1776 02665000 PVTRESV5 EQU PVT+1773 02666000 PVTSRBS EQU PVT+1772 02667000 PVTSSRB EQU PVT+1768 02668000 PVTACA EQU PVTWSAX+1400 02669000 PVTWSA18 EQU PVTWSAX+1256 02670000 PVTWSA17 EQU PVTWSAX+1184 02671000 PVTWSA16 EQU PVTWSAX+1112 02672000 PVTWSA15 EQU PVTWSAX+1040 02673000 PVTWSA14 EQU PVTWSAX+968 02674000 PVTWSA13 EQU PVTWSAX+896 02675000 PVTWSA12 EQU PVTWSAX+824 02676000 PVTWSA11 EQU PVTWSAX+752 02677000 PVTWSA10 EQU PVTWSAX+672 02678000 PVTWSA9 EQU PVTWSAX+592 02679000 PVTWSA8 EQU PVTWSAX+504 02680000 PVTWSA6 EQU PVTWSAX+360 02681000 PVTWSA5 EQU PVTWSAX+288 02682000 PVTWSA4 EQU PVTWSAX+216 02683000 PVTWSA3 EQU PVTWSAX+144 02684000 PVTWSA1 EQU PVTWSAX 02685000 PVTCIOQL EQU PVTQS+36 02686000 PVTCIOQF EQU PVTQS+32 02687000 PVTGFADL EQU PVTQS+28 02688000 PVTGFADF EQU PVTQS+24 02689000 PVTFPCBL EQU PVTQS+20 02690000 PVTFPCBF EQU PVTQS+16 02691000 PVTSQAQL EQU PVTQS+14 02692000 PVTSQAQF EQU PVTQS+12 02693000 PVTCFQL EQU PVTQS+10 02694000 PVTCFQF EQU PVTQS+8 02695000 PVTRSRVL EQU PVTQS+6 02696000 PVTRSRVF EQU PVTQS+4 02697000 PVTAFQL EQU PVTQS+2 02698000 PVTAFQF EQU PVTQS 02699000 PVTSPFR EQU PVT+302 02700000 PVTCFMCT EQU PVT+300 02701000 PVTSPREC EQU PVT+296 02702000 PVTCAREC EQU PVT+292 02703000 PVTCAOUT EQU PVT+288 02704000 PVTCAIN EQU PVT+284 02705000 PVTNSWPS EQU PVT+280 02706000 PVTNPREC EQU PVT+276 02707000 PVTSPOUT EQU PVT+272 02708000 PVTSPIN EQU PVT+268 02709000 PVTVAMR EQU PVT+264 02710000 PVTVAMO EQU PVT+260 02711000 PVTVAMI EQU PVT+256 02712000 PVTNPOUT EQU PVT+252 02713000 PVTNPIN EQU PVT+248 02714000 PVTPRSET EQU PVT+244 02715000 PVTFRSLT EQU PVT+240 02716000 PVTPAGIO EQU PVT+236 02717000 PVTSWPIO EQU PVT+232 02718000 PVTPSWPP EQU PVT+228 02719000 PVTPPREF EQU PVT+224 02720000 PVTPOPBR EQU PVT+220 02721000 PVTPRELF EQU PVT+216 02722000 PVTPRELV EQU PVT+212 02723000 PVTPRELS EQU PVT+204 02724000 PVTPOUT EQU PVT+200 02725000 PVTPFXLD EQU PVT+196 02726000 PVTPITAS EQU PVT+192 02727000 PVTPSRBP EQU PVT+188 02728000 PVTPDSEG EQU PVT+184 02729000 PVTPCSGB EQU PVT+180 02730000 PVTPCSEG EQU PVT+176 02731000 PVTPINV EQU PVT+172 02732000 PVTPSWPC EQU PVT+168 02733000 PVTPSOUT EQU PVT+164 02734000 PVTPSWIN EQU PVT+160 02735000 PVTPRCV EQU PVT+156 02736000 PVTPRCFI EQU PVT+152 02737000 PVTPRCF EQU PVT+148 02738000 PVTPVRC EQU PVT+144 02739000 PVTPVRIN EQU PVT+140 02740000 PVTPVRLS EQU PVT+136 02741000 PVTPVEQR EQU PVT+132 02742000 PVTPPIOI EQU PVT+128 02743000 PVTPVRPO EQU PVT+124 02744000 PVTPRFR EQU PVT+120 02745000 PVTPFP EQU PVT+112 02746000 PVTPFTE EQU PVT+108 02747000 PVTREP2 EQU PVT+100 02748000 PVTPIOCP EQU PVT+96 02749000 PVTPIOP EQU PVT+92 02750000 PVTPGFAD EQU PVT+88 02751000 PVTPSQA EQU PVT+80 02752000 PVTPSIB EQU PVT+72 02753000 PVTSRBID EQU PVT+68 02754000 PVTPCIWA EQU PVT+64 02755000 PVTHQSA EQU PVT+62 02756000 PVTLQSA EQU PVT+60 02757000 PVTOROOT EQU PVT+56 02758000 PVTREUS EQU PVT+48 02759000 PVTSQNPC EQU PVT+47 02760000 PVTSQVRC EQU PVT+46 02761000 PVTRSUS EQU PVT+44 02762000 PVTVROOT EQU PVT+40 02763000 PVTDFRS EQU PVT+34 02764000 PVTRSQA EQU PVT+32 02765000 PVTPTLB EQU PVT+31 02766000 PVTPCBNO EQU PVT+30 02767000 PVTSRBNO EQU PVT+29 02768000 PVTSQDC EQU PVT+28 02769000 PVTLVR EQU PVT+22 02770000 PVTFVR EQU PVT+20 02771000 PVTLPFN EQU PVT+18 02772000 PVTFPFN EQU PVT+16 02773000 PVTSSPIN EQU PVT+11 02774000 PVTPCBS EQU PVT+10 02775000 PVTPOOL EQU PVT+8 02776000 PVTAFCOK EQU PVT+6 02777000 PVTAFCLO EQU PVT+4 02778000 PVTAFC EQU PVT+2 02779000 @NM00031 EQU PVTFLAG2 02780000 PVTRSMGM EQU PVTFLAG2 02781000 PVTDUMP EQU PVTFLAG1 02782000 PVTSIT EQU PVTFLAG1 02783000 PVTLSI EQU PVTFLAG1 02784000 PVTAPREF EQU PVTFLAG1 02785000 PVTPCBLT EQU PVTFLAG1 02786000 PVTSRBIU EQU PVTFLAG1 02787000 PVTBGMS EQU PVTFLAG1 02788000 PVTPMSG EQU PVTFLAG1 02789000 @NM00030 EQU TCBXTNT2+32 02790000 TCBRV181 EQU TCBRV173 02791000 TCBRV180 EQU TCBRV173 02792000 TCBRV179 EQU TCBRV173 02793000 TCBRV178 EQU TCBRV173 02794000 TCBRV177 EQU TCBRV173 02795000 TCBRV176 EQU TCBRV173 02796000 TCBRV175 EQU TCBRV173 02797000 TCBRV174 EQU TCBRV173 02798000 TCBRV172 EQU TCBRV164 02799000 TCBRV171 EQU TCBRV164 02800000 TCBRV170 EQU TCBRV164 02801000 TCBRV169 EQU TCBRV164 02802000 TCBRV168 EQU TCBRV164 02803000 TCBRV167 EQU TCBRV164 02804000 TCBRV166 EQU TCBRV164 02805000 TCBRV165 EQU TCBRV164 02806000 TCBRV163 EQU TCBRV155 02807000 TCBRV162 EQU TCBRV155 02808000 TCBRV161 EQU TCBRV155 02809000 TCBRV160 EQU TCBRV155 02810000 TCBRV159 EQU TCBRV155 02811000 TCBRV158 EQU TCBRV155 02812000 TCBRV157 EQU TCBRV155 02813000 TCBRV156 EQU TCBRV155 02814000 TCBRV154 EQU TCBRV146 02815000 TCBRV153 EQU TCBRV146 02816000 TCBRV152 EQU TCBRV146 02817000 TCBRV151 EQU TCBRV146 02818000 TCBRV150 EQU TCBRV146 02819000 TCBRV149 EQU TCBRV146 02820000 TCBRV148 EQU TCBRV146 02821000 TCBRV147 EQU TCBRV146 02822000 TCBRV145 EQU TCBXTNT2+26 02823000 TCBRV144 EQU TCBXTNT2+24 02824000 TCBCAUF EQU TCBXTNT2+20 02825000 TCBRV142 EQU TCBXTNT2+16 02826000 TCBRSV49 EQU TCBXTNT2+12 02827000 TCBEVENT EQU TCBXTNT2+8 02828000 TCBRCMP EQU TCBXTNT2+5 02829000 TCBRSVAB EQU TCBXTNT2+4 02830000 TCBGTFA EQU TCBGTF+1 02831000 TCBRSV47 EQU TCBTFLG 02832000 TCBRSV46 EQU TCBTFLG 02833000 TCBRSV45 EQU TCBTFLG 02834000 TCBRSV44 EQU TCBTFLG 02835000 TCBRSV43 EQU TCBTFLG 02836000 TCBDSPIT EQU TCBTFLG 02837000 TCBERRTN EQU TCBTFLG 02838000 TCBASYNC EQU TCBTFLG 02839000 @NM00029 EQU TCB+296 02840000 TCBSVCA2 EQU TCB+292 02841000 TCBSWASA EQU TCB+288 02842000 TCBDBTB EQU TCB+284 02843000 TCBRPT EQU TCB+280 02844000 TCBRV141 EQU TCBRV133 02845000 TCBRV140 EQU TCBRV133 02846000 TCBRV139 EQU TCBRV133 02847000 TCBRV138 EQU TCBRV133 02848000 TCBRV137 EQU TCBRV133 02849000 TCBRV136 EQU TCBRV133 02850000 TCBRV135 EQU TCBRV133 02851000 TCBRV134 EQU TCBRV133 02852000 TCBRV132 EQU TCBRV124 02853000 TCBRV131 EQU TCBRV124 02854000 TCBRV130 EQU TCBRV124 02855000 TCBRV129 EQU TCBRV124 02856000 TCBRV128 EQU TCBRV124 02857000 TCBRV127 EQU TCBRV124 02858000 TCBRV126 EQU TCBRV124 02859000 TCBRV125 EQU TCBRV124 02860000 TCBRV123 EQU TCBFBYT2 02861000 TCBRV122 EQU TCBFBYT2 02862000 TCBECBNV EQU TCBFBYT2 02863000 TCBSSSYN EQU TCBFBYT2 02864000 TCBFPRAP EQU TCBFBYT2 02865000 TCBFDW EQU TCBFBYT2 02866000 TCBFMW EQU TCBFBYT2 02867000 TCBCNCB EQU TCBFBYT2 02868000 TCBLLH EQU TCBFBYT1 02869000 TCBRV113 EQU TCBFBYT1 02870000 TCBEOT EQU TCBFBYT1 02871000 TCBRTM2 EQU TCBFBYT1 02872000 TCBPGNLY EQU TCBFBYT1 02873000 TCBNDIOS EQU TCBFBYT1 02874000 TCBRV327 EQU TCBFBYT1 02875000 TCBEOTFM EQU TCBFBYT1 02876000 TCBAFFN EQU TCB+274 02877000 TCBRV326 EQU TCB+272 02878000 TCBUKYSP EQU TCB+268 02879000 TCBMODE EQU TCBESTAE+3 02880000 TCBERTYP EQU TCBESTAE+2 02881000 TCBRV314 EQU TCBESTRM 02882000 TCBRV313 EQU TCBESTRM 02883000 TCBRV312 EQU TCBESTRM 02884000 TCBRV311 EQU TCBESTRM 02885000 TCBRV310 EQU TCBESTRM 02886000 TCBRV309 EQU TCBESTRM 02887000 TCBSTAFX EQU TCBESTRM 02888000 TCBETERM EQU TCBESTRM 02889000 TCBSCBKY EQU TCBESTAE 02890000 TCBRTM12 EQU TCB+260 02891000 TCBTCBID EQU TCB+256 02892000 TCBSTAWA EQU TCB+252 02893000 TCBSWA EQU TCB+248 02894000 TCBRSV42 EQU TCBFOE 02895000 TCBCCPVI EQU TCBXSCT+2 02896000 TCBRV325 EQU TCBXSCT+1 02897000 TCBRV324 EQU TCBXSCT1 02898000 TCBRV323 EQU TCBXSCT1 02899000 TCBRV322 EQU TCBXSCT1 02900000 TCBRV321 EQU TCBXSCT1 02901000 TCBRV320 EQU TCBXSCT1 02902000 TCBRV319 EQU TCBXSCT1 02903000 TCBS3A EQU TCBXSCT1 02904000 TCBACTIV EQU TCBXSCT1 02905000 TCBRSV41 EQU TCB+239 02906000 TCBTID EQU TCB+238 02907000 TCBRSVAA EQU TCB+237 02908000 TCBABCUR EQU TCB+236 02909000 TCBTMSAV EQU TCB+232 02910000 TCBIOTIM EQU TCB+228 02911000 TCBRTWA EQU TCB+224 02912000 TCBBACK EQU TCB+220 02913000 TCBTIRB EQU TCB+216 02914000 TCBAECB EQU TCB+212 02915000 TCBEXT2A EQU TCBEXT2+1 02916000 TCBRSV39 EQU TCBEXT2 02917000 TCBSTMCT EQU TCB+207 02918000 TCBSYSCT EQU TCB+206 02919000 TCBRSV37 EQU TCB+205 02920000 TCBEXSVC EQU TCBDAR 02921000 TCBDARMS EQU TCBDAR 02922000 TCBDARWT EQU TCBDAR 02923000 TCBDARO EQU TCBDAR 02924000 TCBDARMC EQU TCBDARC 02925000 TCBDARD EQU TCBDAR 02926000 TCBDARS EQU TCBDAR 02927000 TCBDARP EQU TCBDAR 02928000 TCBGTOFM EQU TCBFLGS7 02929000 TCBADMP EQU TCBFLGS7 02930000 TCBRSTSK EQU TCBFLGS7 02931000 TCBSVCS EQU TCBFLGS7 02932000 TCBSTACK EQU TCBFLGS7 02933000 TCBRSV34 EQU TCBFLGS7 02934000 TCBRSV33 EQU TCBFLGS7 02935000 TCBGPECB EQU TCBFLGS7 02936000 TCBNTJS EQU TCBFLGS6 02937000 TCBAPG EQU TCBFLGS6 02938000 TCBMIGR EQU TCBFLGS6 02939000 TCBRV303 EQU TCBFLGS6 02940000 TCBSPVLK EQU TCBFLGS6 02941000 TCBCPU EQU TCBFLGS6 02942000 TCBPIE17 EQU TCBFLGS6 02943000 TCBRV EQU TCBFLGS6 02944000 TCBRSV79 EQU TCBNDSP5 02945000 TCBRSV78 EQU TCBNDSP5 02946000 TCBRSV77 EQU TCBNDSP5 02947000 TCBRSV76 EQU TCBNDSP5 02948000 TCBRSV75 EQU TCBNDSP5 02949000 TCBRSV74 EQU TCBNDSP5 02950000 TCBRSV95 EQU TCBNDSP5 02951000 TCBRSV94 EQU TCBNDSP5 02952000 TCBRSV93 EQU TCBNDSP4 02953000 TCBRSV92 EQU TCBNDSP4 02954000 TCBRSV91 EQU TCBNDSP4 02955000 TCBRSV90 EQU TCBNDSP4 02956000 TCBRSV89 EQU TCBNDSP4 02957000 TCBRSV88 EQU TCBNDSP4 02958000 TCBRSV87 EQU TCBNDSP4 02959000 TCBRSV86 EQU TCBNDSP4 02960000 TCBEXT1A EQU TCBEXT1+1 02961000 TCBRSV32 EQU TCBEXT1 02962000 TCBEXCPD EQU TCB+192 02963000 TCBIOBRC EQU TCB+188 02964000 TCBDDWTC EQU TCB+186 02965000 TCBDDEXC EQU TCB+184 02966000 TCBJSCBB EQU TCBJSCB+1 02967000 @NM00028 EQU TCBRECDE 02968000 TCBREC EQU TCBRECDE 02969000 TCBMDIDS EQU TCB+176 02970000 TCBNDINT EQU TCBNDSP3 02971000 TCBRSV27 EQU TCBNDSP3 02972000 TCBRSV26 EQU TCBNDSP3 02973000 TCBRSV25 EQU TCBNDSP3 02974000 TCBRSV24 EQU TCBNDSP3 02975000 TCBSRBND EQU TCBNDSP3 02976000 TCBRV302 EQU TCBNDSP3 02977000 TCBLJSND EQU TCBNDSP3 02978000 TCBABE EQU TCBNDSP2 02979000 TCBDSS EQU TCBNDSP2 02980000 TCBOWAIT EQU TCBNDSP2 02981000 TCBIWAIT EQU TCBNDSP2 02982000 TCBNDTS EQU TCBNDSP2 02983000 TCBNDSVC EQU TCBNDSP2 02984000 TCBSTPP EQU TCBNDSP2 02985000 TCBABD EQU TCBNDSP2 02986000 TCBRSV22 EQU TCBNDSP1 02987000 TCBPIEND EQU TCBNDSP1 02988000 TCBTPSP EQU TCBNDSP1 02989000 TCBDDRND EQU TCBNDSP1 02990000 TCBRSPND EQU TCBNDSP1 02991000 TCBRSTND EQU TCBNDSP1 02992000 TCBDARPN EQU TCBNDSP1 02993000 TCBDARTN EQU TCBNDSP1 02994000 TCBNDSP0 EQU TCBNDSP 02995000 TCBUSER EQU TCB+168 02996000 TCBTCTB EQU TCBTCT+1 02997000 TCBRSV9C EQU TCBTCTGF 02998000 TCBRSV9B EQU TCBTCTGF 02999000 TCBRSV9A EQU TCBTCTGF 03000000 TCBRSV99 EQU TCBTCTGF 03001000 TCBRSV98 EQU TCBTCTGF 03002000 TCBRSV97 EQU TCBTCTGF 03003000 TCBRSV20 EQU TCBTCTGF 03004000 TCBSMFGF EQU TCBTCTGF 03005000 TCBSTABB EQU TCBSTAB+1 03006000 TCBSTCUR EQU TCBNSTAE 03007000 TCBRV301 EQU TCBNSTAE 03008000 TCBSYNCH EQU TCBNSTAE 03009000 TCBHALT EQU TCBNSTAE 03010000 TCBPPSUP EQU TCBNSTAE 03011000 TCB33E EQU TCBNSTAE 03012000 TCBQUIES EQU TCBNSTAE 03013000 TCBSTABE EQU TCBNSTAE 03014000 TCBAQE EQU TCB+156 03015000 TCBPQE EQU TCB+152 03016000 TCBTSDP EQU TCB+151 03017000 TCBTSLP EQU TCB+150 03018000 TCBSTPCT EQU TCB+149 03019000 TCBCPUBN EQU TCBTSFLG 03020000 TCBDYDSP EQU TCBTSFLG 03021000 TCBRSV18 EQU TCBTSFLG 03022000 TCBRSV17 EQU TCBTSFLG 03023000 TCBTIOTG EQU TCBTSFLG 03024000 TCBATT EQU TCBTSFLG 03025000 TCBSTPPR EQU TCBTSFLG 03026000 TCBRV300 EQU TCBTSTSK 03027000 TCBECB EQU TCB+144 03028000 TCBIQE EQU TCB+140 03029000 TCBLTC EQU TCB+136 03030000 TCBOTC EQU TCB+132 03031000 TCBNTC EQU TCB+128 03032000 TCBJSTCA EQU TCBJSTCB+1 03033000 TCBRSV16 EQU TCBJSTCB 03034000 TCBTQET EQU TCBTME 03035000 TCBTCB EQU TCB+116 03036000 TCBFSAB EQU TCBFSA+1 03037000 TCBQEL EQU TCBFSA 03038000 TCBGRS15 EQU TCBGRS+60 03039000 TCBGRS14 EQU TCBGRS+56 03040000 TCBGRS13 EQU TCBGRS+52 03041000 TCBGRS12 EQU TCBGRS+48 03042000 TCBGRS11 EQU TCBGRS+44 03043000 TCBGRS10 EQU TCBGRS+40 03044000 TCBGRS9 EQU TCBGRS+36 03045000 TCBGRS8 EQU TCBGRS+32 03046000 TCBGRS7 EQU TCBGRS+28 03047000 TCBGRS6 EQU TCBGRS+24 03048000 TCBGRS5 EQU TCBGRS+20 03049000 TCBGRS4 EQU TCBGRS+16 03050000 TCBGRS3 EQU TCBGRS+12 03051000 TCBGRS2 EQU TCBGRS+8 03052000 TCBGRS1 EQU TCBGRS+4 03053000 TCBGRS0 EQU TCBGRS 03054000 TCBJPQB EQU TCBJPQ+1 03055000 TCBRSV15 EQU TCBPURGE 03056000 TCBRSV14 EQU TCBPURGE 03057000 TCBRSV13 EQU TCBPURGE 03058000 TCBRSV12 EQU TCBPURGE 03059000 TCBRSV11 EQU TCBPURGE 03060000 TCBRSV10 EQU TCBPURGE 03061000 TCBRSV09 EQU TCBPURGE 03062000 TCBJPQF EQU TCBPURGE 03063000 TCBJLB EQU TCB+40 03064000 TCBLLS EQU TCB+36 03065000 TCBDSP EQU TCB+35 03066000 TCBLMP EQU TCB+34 03067000 TCBPNDSP EQU TCBFLGS5 03068000 TCBFCD1 EQU TCBFLGS5 03069000 TCBSTP EQU TCBFLGS5 03070000 TCBSYS EQU TCBFLGS5 03071000 TCBANDSP EQU TCBFLGS5 03072000 TCBPAGE EQU TCBFLGS5 03073000 TCBUXNDF EQU TCBABWF 03074000 TCBFC EQU TCBFLGS5 03075000 TCBONDSP EQU TCBFLGS4 03076000 TCBMPCND EQU TCBFLGS4 03077000 TCBMPCVQ EQU TCBFLGS4 03078000 TCBUXNDV EQU TCBFLGS4 03079000 TCBHNDSP EQU TCBFLGS4 03080000 TCBRQENA EQU TCBFLGS4 03081000 TCBSER EQU TCBFLGS4 03082000 TCBNDUMP EQU TCBFLGS4 03083000 TCBDWSTA EQU TCBFLGS3 03084000 TCBRSV08 EQU TCBFLGS3 03085000 TCBRSV07 EQU TCBFLGS3 03086000 TCBRSV06 EQU TCBFLGS3 03087000 TCBABGM EQU TCBFLGS3 03088000 TCBABTRM EQU TCBFLGS3 03089000 TCBADINP EQU TCBFLGS3 03090000 TCBFSM EQU TCBFLGS3 03091000 TCBFTS EQU TCBFLGS2 03092000 TCBFETXR EQU TCBFLGS2 03093000 TCBFDSOP EQU TCBFLGS2 03094000 TCBFJMC EQU TCBFLGS2 03095000 TCBFSMC EQU TCBFLGS2 03096000 TCBFABOP EQU TCBFLGS2 03097000 TCBFSTI EQU TCBFLGS2 03098000 TCBFOINP EQU TCBFLGS2 03099000 TCBFX EQU TCBFLGS1 03100000 TCBFS EQU TCBFLGS1 03101000 TCBFT EQU TCBFLGS1 03102000 TCBPDUMP EQU TCBFLGS1 03103000 TCBNONPR EQU TCBFLGS1 03104000 TCBFERA EQU TCBFLGS1 03105000 TCBFE EQU TCBFLGS1 03106000 TCBFA EQU TCBFLGS1 03107000 TCBZERO EQU TCBPKF 03108000 TCBFLAG EQU TCBPKF 03109000 TCBMSSB EQU TCBMSS+1 03110000 TCBRSV03 EQU TCBMSS 03111000 TCBTRNB EQU TCBTRN+1 03112000 TCBRSV02 EQU TCBABF 03113000 TCBOLTEP EQU TCBABF 03114000 TCBTCP EQU TCBABF 03115000 TCBTCPP EQU TCBABF 03116000 TCBRSV01 EQU TCBABF 03117000 TCBGRPH EQU TCBABF 03118000 TCBNOCHK EQU TCBABF 03119000 TCBMOD91 EQU TCBABF 03120000 TCBCMPC EQU TCBCMP+1 03121000 TCBRV318 EQU TCBCMSG 03122000 TCBRV317 EQU TCBCIND 03123000 TCBRV316 EQU TCBCWTO 03124000 TCBCASID EQU TCBCDBL 03125000 TCBNOCC EQU TCBSTCC 03126000 TCBDMPO EQU TCBCPP 03127000 TCBCSTEP EQU TCBCMPF 03128000 TCBCREQ EQU TCBCMPF 03129000 TCBTIO EQU TCB+12 03130000 TCBDEB EQU TCB+8 03131000 TCBPIEA EQU TCBPIE+1 03132000 TCBPM EQU TCBPMASK 03133000 @NM00027 EQU TCBPMASK 03134000 TCBRBP EQU TCB 03135000 TCBFRS6 EQU TCBFRS+24 03136000 TCBFRS4 EQU TCBFRS+16 03137000 TCBFRS2 EQU TCBFRS+8 03138000 TCBFRS0 EQU TCBFRS 03139000 CVTLEVL EQU CVTRELNO+2 03140000 CVTNUMB EQU CVTRELNO 03141000 CVTMDL EQU CVTFIX+250 03142000 @NM00002 EQU CVTFIX+248 03143000 @NM00001 EQU CVTFIX 03144000 CVTRV482 EQU CVTXTNT2+128 03145000 CVTRV481 EQU CVTXTNT2+124 03146000 CVTRV480 EQU CVTXTNT2+120 03147000 CVTRV479 EQU CVTXTNT2+118 03148000 CVTRV478 EQU CVTXTNT2+117 03149000 CVTRV477 EQU CVTXTNT2+116 03150000 CVTRV476 EQU CVTXTNT2+115 03151000 CVTRV475 EQU CVTXTNT2+114 03152000 CVTRV474 EQU CVTRV466 03153000 CVTRV473 EQU CVTRV466 03154000 CVTRV472 EQU CVTRV466 03155000 CVTRV471 EQU CVTRV466 03156000 CVTRV470 EQU CVTRV466 03157000 CVTRV469 EQU CVTRV466 03158000 CVTRV468 EQU CVTRV466 03159000 CVTRV467 EQU CVTRV466 03160000 CVTRV465 EQU CVTRV457 03161000 CVTRV464 EQU CVTRV457 03162000 CVTRV463 EQU CVTRV457 03163000 CVTRV462 EQU CVTRV457 03164000 CVTRV461 EQU CVTRV457 03165000 CVTRV460 EQU CVTRV457 03166000 CVTRV459 EQU CVTRV457 03167000 CVTRV458 EQU CVTRV457 03168000 CVTRV456 EQU CVTXTNT2+108 03169000 CVTRV455 EQU CVTXTNT2+104 03170000 CVTRV454 EQU CVTXTNT2+100 03171000 CVTRV453 EQU CVTXTNT2+96 03172000 CVTRV452 EQU CVTXTNT2+94 03173000 CVTRV451 EQU CVTXTNT2+92 03174000 CVTRV450 EQU CVTXTNT2+90 03175000 CVTRV449 EQU CVTXTNT2+88 03176000 CVTRV448 EQU CVTXTNT2+87 03177000 CVTRV447 EQU CVTXTNT2+86 03178000 CVTRV446 EQU CVTRV438 03179000 CVTRV445 EQU CVTRV438 03180000 CVTRV444 EQU CVTRV438 03181000 CVTRV443 EQU CVTRV438 03182000 CVTRV442 EQU CVTRV438 03183000 CVTRV441 EQU CVTRV438 03184000 CVTRV440 EQU CVTRV438 03185000 CVTRV439 EQU CVTRV438 03186000 CVTRV437 EQU CVTRV429 03187000 CVTRV436 EQU CVTRV429 03188000 CVTRV435 EQU CVTRV429 03189000 CVTRV434 EQU CVTRV429 03190000 CVTRV433 EQU CVTRV429 03191000 CVTRV432 EQU CVTRV429 03192000 CVTRV431 EQU CVTRV429 03193000 CVTRV430 EQU CVTRV429 03194000 CVTRV428 EQU CVTXTNT2+80 03195000 CVTRV427 EQU CVTXTNT2+76 03196000 CVTRV426 EQU CVTXTNT2+72 03197000 CVTRV425 EQU CVTXTNT2+68 03198000 CVTATACT EQU CVTATCVT 03199000 CVTRV423 EQU CVTXTNT2+62 03200000 CVTRV422 EQU CVTXTNT2+60 03201000 CVTRV421 EQU CVTXTNT2+58 03202000 CVTRV420 EQU CVTXTNT2+56 03203000 CVTRV419 EQU CVTXTNT2+55 03204000 CVTRV418 EQU CVTXTNT2+54 03205000 CVTRV417 EQU CVTRV409 03206000 CVTRV416 EQU CVTRV409 03207000 CVTRV415 EQU CVTRV409 03208000 CVTRV414 EQU CVTRV409 03209000 CVTRV413 EQU CVTRV409 03210000 CVTRV412 EQU CVTRV409 03211000 CVTRV411 EQU CVTRV409 03212000 CVTRV410 EQU CVTRV409 03213000 CVTRV408 EQU CVTRV400 03214000 CVTRV407 EQU CVTRV400 03215000 CVTRV406 EQU CVTRV400 03216000 CVTRV405 EQU CVTRV400 03217000 CVTRV404 EQU CVTRV400 03218000 CVTRV403 EQU CVTRV400 03219000 CVTRV402 EQU CVTRV400 03220000 CVTRV401 EQU CVTRV400 03221000 CVTICB EQU CVTXTNT2+48 03222000 CVTSKTA EQU CVTXTNT2+44 03223000 CVTCCVT EQU CVTXTNT2+40 03224000 CVTRSV98 EQU CVTXTNT2+36 03225000 CVTRSV97 EQU CVTXTNT2+34 03226000 CVTRSV96 EQU CVTXTNT2+32 03227000 CVTOLTEP EQU CVTXTNT2+28 03228000 CVTQIDA EQU CVTQID+1 03229000 CVTRSV95 EQU CVTQID 03230000 CVTRSV94 EQU CVTXTNT2+20 03231000 CVTRSV93 EQU CVTXTNT2+16 03232000 CVTRSV92 EQU CVTXTNT2+12 03233000 CVTDEBVR EQU CVTXTNT2+8 03234000 CVTRSV91 EQU CVTXTNT2+6 03235000 CVTRSV9H EQU CVTFLGBT 03236000 CVTRSV9G EQU CVTFLGBT 03237000 CVTRSV9F EQU CVTFLGBT 03238000 CVTRSV9E EQU CVTFLGBT 03239000 CVTRSV9D EQU CVTFLGBT 03240000 CVTRSV9C EQU CVTFLGBT 03241000 CVTVME EQU CVTFLGBT 03242000 CVTNPE EQU CVTFLGBT 03243000 CVTNUCLS EQU CVTXTNT2+4 03244000 CVTDSSVA EQU CVTDSSV+1 03245000 CVTRSV89 EQU CVTDSSV 03246000 CVTRSV88 EQU CVTXTNT1+8 03247000 CVTRSV87 EQU CVTXTNT1+4 03248000 CVTFACHN EQU CVTXTNT1 03249000 CVTRV488 EQU CVTMAP+412 03250000 CVTRV487 EQU CVTMAP+408 03251000 CVTRV486 EQU CVTMAP+404 03252000 CVTRV485 EQU CVTMAP+400 03253000 CVTACTAP EQU CVTMAP+396 03254000 CVTAUTH EQU CVTMAP+392 03255000 CVTATMCA EQU CVTATMCT+1 03256000 CVTATMST EQU CVTATMCT 03257000 CVTRSV61 EQU CVTMAP+384 03258000 CVTVOLT1 EQU CVTVOLM1+1 03259000 CVTVOLI1 EQU CVTVOLF1 03260000 CVTSTOA EQU CVTMAP+376 03261000 CVTRSV58 EQU CVTMAP+374 03262000 CVTRSV57 EQU CVTMAP+372 03263000 CVTDDCE EQU CVTMAP+368 03264000 CVTPNWFR EQU CVTMAP+364 03265000 CVTSMF EQU CVTMAP+360 03266000 CVTSULK EQU CVTMAP+358 03267000 CVTSLKO EQU CVTSYSK 03268000 CVTSLKP EQU CVTSYSK 03269000 CVTSLKQ EQU CVTSYSK 03270000 CVTSLKR EQU CVTSYSK 03271000 CVTRSV56 EQU CVTSYSK 03272000 CVTRSV55 EQU CVTSYSK 03273000 CVTRSV54 EQU CVTSYSK 03274000 CVTRSV53 EQU CVTSYSK 03275000 CVTRSV52 EQU CVTA1F1 03276000 CVTRSV51 EQU CVTA1F1 03277000 CVTRSV50 EQU CVTA1F1 03278000 CVTRSV49 EQU CVTA1F1 03279000 CVTRSV48 EQU CVTA1F1 03280000 CVTRSV47 EQU CVTA1F1 03281000 CVTSRSW EQU CVTA1F1 03282000 CVTPFSW EQU CVTA1F1 03283000 CVTPCVT EQU CVTMAP+352 03284000 CVTRSV46 EQU CVTMAP+344 03285000 CVTRSV45 EQU CVTMAP+340 03286000 CVTRSV44 EQU CVTMAP+338 03287000 CVTRSV43 EQU CVTMAP+336 03288000 CVTHJESA EQU CVTHJES+1 03289000 CVTRSV42 EQU CVTHJES 03290000 CVTEXT2A EQU CVTEXT2+1 03291000 CVTRSV41 EQU CVTEXT2 03292000 CVTAPFA EQU CVTAPF+1 03293000 CVTRSV40 EQU CVTAPF 03294000 CVTRV518 EQU CVTINTLA 03295000 CVTRV517 EQU CVTERPV 03296000 CVTEORM EQU CVTMAP+312 03297000 CVTMCHPR EQU CVTMAP+308 03298000 CVTTZ EQU CVTMAP+304 03299000 CVTJEPS EQU CVTMAP+300 03300000 CVTJESCT EQU CVTMAP+296 03301000 CVTMODE EQU CVTMAP+292 03302000 CVTPTRV EQU CVTMAP+288 03303000 CVTREAL EQU CVTMAP+284 03304000 CVTRSV39 EQU CVTMAP+280 03305000 CVTRSV38 EQU CVTMAP+276 03306000 CVTDMSRA EQU CVTDMSR+1 03307000 CVTRV634 EQU CVTDMSRF 03308000 CVTRV633 EQU CVTDMSRF 03309000 CVTRV632 EQU CVTDMSRF 03310000 CVTRV631 EQU CVTDMSRF 03311000 CVTRV630 EQU CVTDMSRF 03312000 CVTRV629 EQU CVTDMSRF 03313000 CVTUDUMP EQU CVTDMSRF 03314000 CVTSDUMP EQU CVTDMSRF 03315000 CVTQMSGA EQU CVTQMSG+1 03316000 CVTRSV36 EQU CVTQMSG 03317000 CVTAMFF EQU CVTMAP+264 03318000 CVTPURGA EQU CVTPURG+1 03319000 CVTRSV35 EQU CVTPURG 03320000 CVTCBSP EQU CVTMAP+256 03321000 CVTATERA EQU CVTATER+1 03322000 CVTSYST EQU CVTATER 03323000 CVTVOLT2 EQU CVTTAT 03324000 CVTVOLI2 EQU CVTVOLF2 03325000 CVTAQAVB EQU CVTAQAVT+1 03326000 CVTRSV34 EQU CVTTCMFG 03327000 CVTRSV33 EQU CVTTCMFG 03328000 CVTRSV32 EQU CVTTCMFG 03329000 CVTRSV31 EQU CVTTCMFG 03330000 CVTRSV30 EQU CVTTCMFG 03331000 CVTRSV29 EQU CVTTCMFG 03332000 CVTLDEV EQU CVTTCMFG 03333000 CVTTCRDY EQU CVTTCMFG 03334000 CVTGTFA EQU CVTGTF+1 03335000 CVTRSV27 EQU CVTGTFST 03336000 CVTRNIO EQU CVTGTFST 03337000 CVTUSR EQU CVTGTFST 03338000 CVTRV318 EQU CVTFORM 03339000 CVTRV317 EQU CVTTMODE 03340000 CVTRV316 EQU CVTSTATE 03341000 CVTRV315 EQU CVTGTFS 03342000 CVTGTFAV EQU CVTGTFS 03343000 CVT0SCR1 EQU CVTMAP+232 03344000 CVTRV515 EQU CVTMAP+228 03345000 CVTRMS EQU CVTMAP+224 03346000 CVTPATCH EQU CVTMAP+220 03347000 CVTTSCE EQU CVTMAP+216 03348000 CVTLNKSC EQU CVTMAP+214 03349000 CVTQABST EQU CVTMAP+212 03350000 CVTMDLDS EQU CVTMAP+208 03351000 CVTUSER EQU CVTMAP+204 03352000 CVTABEND EQU CVTMAP+200 03353000 CVTSMCA EQU CVTMAP+196 03354000 CVTRSV18 EQU CVTMAP+192 03355000 CVTQLPAQ EQU CVTMAP+188 03356000 CVTQCDSR EQU CVTMAP+184 03357000 CVTRSV17 EQU CVTOPTB 03358000 CVTRSV16 EQU CVTOPTB 03359000 CVTFP EQU CVTOPTB 03360000 CVTAPTHR EQU CVTOPTB 03361000 CVTNLOG EQU CVTOPTB 03362000 CVTTOD EQU CVTOPTB 03363000 CVTCTIMS EQU CVTOPTB 03364000 CVTPROT EQU CVTOPTB 03365000 CVTXPFP EQU CVTOPTA 03366000 CVTASCII EQU CVTOPTA 03367000 CVTRSV13 EQU CVTOPTA 03368000 CVTRSV12 EQU CVTOPTA 03369000 CVTNIP EQU CVTOPTA 03370000 CVTDDR EQU CVTOPTA 03371000 CVTAPR EQU CVTOPTA 03372000 CVTCCH EQU CVTOPTA 03373000 CVTSNCTR EQU CVTMAP+180 03374000 CVTQMWR EQU CVTMAP+176 03375000 CVTQOCR EQU CVTMAP+172 03376000 CVT1EF00 EQU CVTMAP+168 03377000 CVTMZ00 EQU CVTMAP+164 03378000 CVTSV76Q EQU CVTSV76C 03379000 CVTRSV11 EQU CVTMAP+156 03380000 CVTMSER EQU CVTMAP+148 03381000 CVTRV516 EQU CVTIERLC 03382000 CVTILCH EQU CVTMAP+140 03383000 CVT0DS EQU CVTMAP+136 03384000 CVTFBOSV EQU CVTMAP+132 03385000 CVTNUCB EQU CVTMAP+128 03386000 CVTIXAVL EQU CVTMAP+124 03387000 CVTSV76M EQU CVTIOQET 03388000 CVTDCBA EQU CVTMAP+117 03389000 CVTMVS2 EQU CVTDCB 03390000 CVT6DAT EQU CVTDCB 03391000 CVT4MPS EQU CVTDCB 03392000 CVTRSV09 EQU CVTDCB 03393000 CVT4MS1 EQU CVTDCB 03394000 CVT2SPS EQU CVTDCB 03395000 CVT1SSS EQU CVTDCB 03396000 CVTRSV08 EQU CVTDCB 03397000 CVTSTB EQU CVTMAP+112 03398000 CVTQTD00 EQU CVTMAP+108 03399000 CVTQTE00 EQU CVTMAP+104 03400000 CVTCUCB EQU CVTMAP+100 03401000 CVTSJQ EQU CVTMAP+96 03402000 CVTPBLDL EQU CVTMAP+92 03403000 CVTTPC EQU CVTMAP+88 03404000 CVTSVDCB EQU CVTMAP+84 03405000 CVTBRET EQU CVTMAP+82 03406000 CVTEXIT EQU CVTMAP+80 03407000 CVT0FN00 EQU CVTMAP+76 03408000 CVTDARA EQU CVTDAR+1 03409000 CVTRSV07 EQU CVTFLGS1 03410000 CVTRSV06 EQU CVTFLGS1 03411000 CVTRSV05 EQU CVTFLGS1 03412000 CVTRSV04 EQU CVTFLGS1 03413000 CVTRSV03 EQU CVTFLGS1 03414000 CVTRSV02 EQU CVTFLGS1 03415000 CVTRSV01 EQU CVTFLGS1 03416000 CVTDMPLK EQU CVTFLGS1 03417000 CVTXITP EQU CVTMAP+68 03418000 CVTZDTAB EQU CVTMAP+64 03419000 CVTMSLT EQU CVTMAP+60 03420000 CVTDATE EQU CVTMAP+56 03421000 CVTBTERM EQU CVTMAP+52 03422000 CVTSYSAD EQU CVTMAP+48 03423000 CVTXTLER EQU CVTMAP+44 03424000 CVTILK2 EQU CVTMAP+40 03425000 CVTILK1 EQU CVTMAP+36 03426000 CVTPRLTV EQU CVTMAP+32 03427000 CVTPCNVT EQU CVTMAP+28 03428000 CVT0VL00 EQU CVTMAP+24 03429000 CVTXAPG EQU CVTMAP+20 03430000 CVTBUF EQU CVTMAP+16 03431000 CVTJOB EQU CVTMAP+12 03432000 CVTLINK EQU CVTMAP+8 03433000 CVT0EF00 EQU CVTMAP+4 03434000 CVTTCBP EQU CVTMAP 03435000 @NM00026 EQU PSA+3668 03436000 PSASTAK EQU PSA+3072 03437000 @NM00025 EQU PSA+1048 03438000 PSAUSEND EQU PSA+1048 03439000 PSARV062 EQU PSA+1044 03440000 PSACDAL EQU PSA+1040 03441000 PSAWTCOD EQU PSA+1036 03442000 PSAATCVT EQU PSA+1032 03443000 PSAPCPSW EQU PSA+1024 03444000 PSAPIR2 EQU PSA+1020 03445000 PSARV059 EQU PSA+1018 03446000 PSASVC13 EQU PSA+1016 03447000 PSALSFCC EQU PSA+1012 03448000 PSASFACC EQU PSA+1008 03449000 PSASTOP EQU PSA+992 03450000 PSASTART EQU PSA+976 03451000 PSARSPSW EQU PSA+968 03452000 PSASRPSW EQU PSA+960 03453000 PSARV045 EQU PSA+892 03454000 PSARV044 EQU PSA+888 03455000 PSARV043 EQU PSA+884 03456000 PSARV042 EQU PSA+880 03457000 PSARV041 EQU PSA+876 03458000 PSARV040 EQU PSA+872 03459000 PSARV025 EQU PSA+868 03460000 PSADSSED EQU PSA+868 03461000 PSADSSPR EQU PSA+864 03462000 PSADSSFW EQU PSA+860 03463000 PSADSS14 EQU PSA+856 03464000 PSADSSPP EQU PSA+848 03465000 PSADSSRP EQU PSA+840 03466000 PSADSS05 EQU PSADSSF4 03467000 PSADSS10 EQU PSADSSF4 03468000 PSADSSVE EQU PSADSSF4 03469000 PSADSSDE EQU PSADSSF4 03470000 PSADSSC0 EQU PSADSSF4 03471000 PSADSSIE EQU PSADSSF4 03472000 PSADSS12 EQU PSADSSF4 03473000 PSADSSRC EQU PSADSSF4 03474000 PSARV057 EQU PSADSSF3 03475000 PSARV056 EQU PSADSSF3 03476000 PSARV055 EQU PSADSSF3 03477000 PSADSSMC EQU PSADSSF3 03478000 PSADSSRW EQU PSADSSF3 03479000 PSADSSNM EQU PSADSSF3 03480000 PSADSSES EQU PSADSSF3 03481000 PSADSSGP EQU PSADSSF3 03482000 PSADSSF2 EQU PSADSSFL+1 03483000 PSADSSPI EQU PSADSSF1 03484000 PSADSSOI EQU PSADSSF1 03485000 PSADSSSP EQU PSADSSF1 03486000 PSADSSTP EQU PSADSSF1 03487000 PSADSSDW EQU PSADSSF1 03488000 PSADSSDD EQU PSADSSF1 03489000 PSADSSDM EQU PSADSSF1 03490000 PSADSSMV EQU PSADSSF1 03491000 PSADSSTS EQU PSA+816 03492000 PSADSSWK EQU PSA+812 03493000 PSADSSR3 EQU PSA+808 03494000 PSADSSR2 EQU PSA+804 03495000 PSADSSRS EQU PSA+800 03496000 PSASTOR EQU PSA+796 03497000 PSACPUSA EQU PSA+794 03498000 PSAVSTAP EQU PSA+792 03499000 PSAWKVAP EQU PSA+788 03500000 PSAWKRAP EQU PSA+784 03501000 PSAMCHIC EQU PSA+783 03502000 PSARV061 EQU PSA+782 03503000 PSASYMSK EQU PSA+781 03504000 PSAMCHFL EQU PSA+780 03505000 PSACR0 EQU PSA+776 03506000 PSAPSWSV EQU PSA+768 03507000 PSALITA EQU PSA+764 03508000 PSACLHS EQU PSAHLHI 03509000 PSALKR15 EQU PSALKSA+60 03510000 PSALKR14 EQU PSALKSA+56 03511000 PSALKR13 EQU PSALKSA+52 03512000 PSALKR12 EQU PSALKSA+48 03513000 PSALKR11 EQU PSALKSA+44 03514000 PSALKR10 EQU PSALKSA+40 03515000 PSALKR9 EQU PSALKSA+36 03516000 PSALKR8 EQU PSALKSA+32 03517000 PSALKR7 EQU PSALKSA+28 03518000 PSALKR6 EQU PSALKSA+24 03519000 PSALKR5 EQU PSALKSA+20 03520000 PSALKR4 EQU PSALKSA+16 03521000 PSALKR3 EQU PSALKSA+12 03522000 PSALKR2 EQU PSALKSA+8 03523000 PSALKR1 EQU PSALKSA+4 03524000 PSALKR0 EQU PSALKSA 03525000 PSARV023 EQU PSACLHT+52 03526000 PSALOCAL EQU PSACLHT+48 03527000 PSACMSL EQU PSACLHT+44 03528000 PSAOPTL EQU PSACLHT+40 03529000 PSATPACL EQU PSACLHT+36 03530000 PSATPDNL EQU PSACLHT+32 03531000 PSATPNCL EQU PSACLHT+28 03532000 PSAIOSLL EQU PSACLHT+24 03533000 PSAIOSUL EQU PSACLHT+20 03534000 PSAIOSCL EQU PSACLHT+16 03535000 PSAIOSSL EQU PSACLHT+12 03536000 PSASALCL EQU PSACLHT+8 03537000 PSAASML EQU PSACLHT+4 03538000 PSADISPL EQU PSACLHT 03539000 PSASRSA EQU PSA+636 03540000 PSARV050 EQU PSA+634 03541000 PSADSSGO EQU PSA+633 03542000 PSARECUR EQU PSA+632 03543000 PSAHLHIS EQU PSA+628 03544000 PSAIPCSA EQU PSA+624 03545000 @NM00024 EQU PSA+621 03546000 PSAIPCDM EQU PSA+620 03547000 PSAIPCD EQU PSA+616 03548000 @NM00023 EQU PSA+613 03549000 PSAIPCRM EQU PSA+612 03550000 PSAIPCR EQU PSA+608 03551000 PSAMCHEX EQU PSA+600 03552000 PSAMPSW EQU PSA+592 03553000 PSAEXPS2 EQU PSA+584 03554000 PSAEXPS1 EQU PSA+576 03555000 PSAPIREG EQU PSA+572 03556000 PSARSREG EQU PSA+568 03557000 PSAGPREG EQU PSA+556 03558000 PSARV022 EQU PSASUP4 03559000 PSARV021 EQU PSASUP4 03560000 PSARV020 EQU PSASUP4 03561000 PSARV019 EQU PSASUP4 03562000 PSARV018 EQU PSASUP4 03563000 PSARV017 EQU PSASUP4 03564000 PSARV016 EQU PSASUP4 03565000 PSARV015 EQU PSASUP4 03566000 PSARV014 EQU PSASUP3 03567000 PSAULCMS EQU PSASUP3 03568000 PSARV012 EQU PSASUP3 03569000 PSAESTA EQU PSASUP3 03570000 PSASPR EQU PSASUP3 03571000 PSAPSREG EQU PSASUP3 03572000 PSAPI2 EQU PSASUP3 03573000 PSAIOSUP EQU PSASUP3 03574000 PSALCR EQU PSASUP2 03575000 PSARTM EQU PSASUP2 03576000 PSAACR EQU PSASUP2 03577000 PSAIPCE2 EQU PSASUP2 03578000 PSAIPCES EQU PSASUP2 03579000 PSAIPCEC EQU PSASUP2 03580000 PSAGTF EQU PSASUP2 03581000 PSAIPCRI EQU PSASUP2 03582000 PSATYPE6 EQU PSASUP1 03583000 PSATCTL EQU PSASUP1 03584000 PSADISP EQU PSASUP1 03585000 PSALOCK EQU PSASUP1 03586000 PSAPI EQU PSASUP1 03587000 PSAEXT EQU PSASUP1 03588000 PSASVC EQU PSASUP1 03589000 PSAIO EQU PSASUP1 03590000 PSAANEW EQU PSA+544 03591000 PSATOLD EQU PSA+540 03592000 PSATNEW EQU PSA+536 03593000 PSALCCAR EQU PSA+532 03594000 PSALCCAV EQU PSA+528 03595000 PSAPCCAR EQU PSA+524 03596000 PSAPCCAV EQU PSA+520 03597000 PSACPULA EQU PSA+518 03598000 PSACPUPA EQU PSA+516 03599000 PSAPSA EQU PSA+512 03600000 FLCHDEND EQU PSA+512 03601000 FLCCRSAV EQU FLCMCLA+280 03602000 FLCGRSAV EQU FLCMCLA+216 03603000 FLCFPSAV EQU FLCMCLA+184 03604000 FLCFLA EQU FLCMCLA+88 03605000 FLCRGNCD EQU FLCMCLA+84 03606000 FLCFSAA EQU FLCFSA+1 03607000 @NM00022 EQU FLCFSA 03608000 @NM00021 EQU FLCMCLA+72 03609000 FLCMCIC EQU FLCMCLA+64 03610000 @NM00020 EQU FLCMCLA+20 03611000 FLCIOAA EQU FLCIOA+1 03612000 @NM00019 EQU FLCIOA 03613000 @NM00018 EQU FLCMCLA+15 03614000 @NM00017 EQU FLCMCLA+14 03615000 @NM00016 EQU FLCMCLA+12 03616000 FLCLCL EQU FLCMCLA+8 03617000 FLCIOELA EQU FLCIOEL+1 03618000 @NM00015 EQU FLCIOEL 03619000 FLCCHNID EQU FLCMCLA 03620000 @NM00014 EQU PSA+160 03621000 FLCMTRCD EQU PSA+157 03622000 @NM00013 EQU PSA+156 03623000 FLCPERA EQU FLCPER+1 03624000 @NM00012 EQU FLCPER 03625000 @NM00011 EQU PSA+151 03626000 FLCPERCD EQU PSA+150 03627000 FLCMCNUM EQU PSA+149 03628000 @NM00010 EQU PSA+148 03629000 FLCTEAA EQU FLCTEA+1 03630000 @NM00009 EQU FLCTEA 03631000 PSAPIPC EQU PSAPICOD 03632000 PSAPIMC EQU PSAPICOD 03633000 PSAPIPER EQU PSAPICOD 03634000 PSARV049 EQU FLCPICOD 03635000 FLCPILCB EQU FLCPIILC 03636000 @NM00008 EQU FLCPIILC 03637000 @NM00007 EQU PSAEPPSW 03638000 FLCSVCN EQU PSAESPSW+2 03639000 FLCSILCB EQU FLCSVILC 03640000 @NM00006 EQU FLCSVILC 03641000 @NM00005 EQU PSAESPSW 03642000 FLCEICOD EQU PSAEEPSW+2 03643000 PSASPAD EQU PSAEEPSW 03644000 @NM00004 EQU PSA+128 03645000 FLCINPSW EQU PSA+120 03646000 FLCMNPSW EQU PSA+112 03647000 FLCPNPSW EQU PSA+104 03648000 FLCSNPSW EQU PSA+96 03649000 FLCENPSW EQU PSA+88 03650000 FLCTRACE EQU PSA+84 03651000 FLCTIMER EQU PSA+80 03652000 FLCCVT2 EQU PSA+76 03653000 FLCCAW EQU PSA+72 03654000 FLCCSW EQU PSA+64 03655000 FLCIOPSW EQU PSA+56 03656000 FLCMOPSW EQU PSA+48 03657000 FLCPOPSW EQU PSA+40 03658000 FLCSOPSW EQU PSA+32 03659000 FLCEOPSW EQU PSA+24 03660000 @NM00003 EQU FLCICCW2+4 03661000 FLCICCW1 EQU FLCROPSW 03662000 FLCIPPSW EQU FLCRNPSW 03663000 * END UNREFERENCED COMPONENTS 03664000 @RT00126 EQU ERREXIT 03665000 @RT00128 EQU OUTOFSTG 03666000 @RT00132 EQU PAGELOOP 03667000 @RT00139 EQU PAGELOOP 03668000 @RT00141 EQU ERREXIT 03669000 @RT00145 EQU OUTOFSTG 03670000 @RT00148 EQU OUTOFSTG 03671000 @RT00181 EQU NEXTPGLP 03672000 @RT00188 EQU LOOPVSL 03673000 @RF00183 EQU NORMEXIT 03674000 @RF00190 EQU NORMEXIT 03675000 @RT00198 EQU ERREXIT 03676000 @RT00204 EQU PAGELOOP 03677000 @RF00211 EQU PAGELOOP 03678000 @RF00235 EQU NORMEXIT 03679000 @RF00274 EQU PAGELOOP 03680000 @RF00283 EQU PAGELOOP 03681000 @RT00464 EQU ENDDEL 03682000 @PB00003 EQU @EC00473 03683000 @PB00002 EQU @PB00003 03684000 @ENDDATA EQU * 03685000 END IEAVFXLD,(C'PLS2054',0801,78221) 03686000