TITLE 'IEAVRFR:REAL FRAME REPLACEMENT--SELECT && STEAL *00001000 ' 00002000 * /* @Z40WPYC*/ 00003000 IEAVRFR CSECT DEFINE RFR CSECT @Z40WPYC 00004000 USING *,R15 SET TEMP BASE @Z40WPYC 00005000 MODID @Z40WPYC 00006000 ENTRY IEAVRFR2 @Z40WPYC 00007000 DROP R15 @Z40WPYC 00008000 IEAVRFR2 DS 0H @Z40WPYC 00009000 STM R14,R12,12(R13) SAVE CALLERS REGS @Z40WPYC 00010000 BALR R9,0 ESTABLISH BASE @Z40WPYC 00011000 @PSTART DS 0H @Z40WPYC 00012000 USING *,R9 @Z40WPYC 00013000 * PARMPTR=R1; /* POINTER TO PARAMETER LIST */ 00014000 LR PARMPTR,R1 0093 00015000 * PVTPTR=CVTPVTP; /* POINTER TO PVT */ 00016000 L @12,CVTPTR 0094 00017000 L PVTPTR,CVTPVTP(,@12) 0094 00018000 * RFY 0095 00019000 * (R10, 0095 00020000 * R11, 0095 00021000 * R12, 0095 00022000 * R7) RSTD; 0095 00023000 * R10=R13; /* SAVE R13 VALUE OVER SETLOCK 0096 00024000 * AND OTHER EXTERNAL CALLS */ 00025000 * 0096 00026000 LR R10,R13 0096 00027000 * /*****************************************************************/ 00028000 * /* */ 00029000 * /* OBTAIN THE SALLOC LOCK UNCONDITIONALLY */ 00030000 * /* */ 00031000 * /*****************************************************************/ 00032000 * 0097 00033000 *GETLOCK: 0097 00034000 * GEN CODE NODEFS REFS(PSALITA,FLC) SETS(R11,R12,R13,R14) NOFLOWS; 00035000 * 0097 00036000 GETLOCK DS 0H 0097 00037000 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, **00038000 RELATED=(SALLOC,IEAVRFR(FREELOCK)) 00039000 * /*****************************************************************/ 00040000 * /* */ 00041000 * /* ESTABLISH THE RSM RECOVERY ROUTINE. @Z30WPYC*/ 00042000 * /* */ 00043000 * /*****************************************************************/ 00044000 * 0098 00045000 * GEN CODE REFS(R3,PSACSTK,FRRS,FRRSCURR,FRRSLAST,FRRSELEN,FRRSENTR, 00046000 * PVTPRCV,FRRSFRRA,PVTPRCA,FRRSPARM,PSALSFCC) SETS(R11,R12, 0098 00047000 * FRRSCURR,PVTPRCA); 0098 00048000 SETFRR A,FRRAD=PVTPRCV(R3),PARMAD=(R7),WRKREGS=(R11,R12) 00049000 * RFY 0099 00050000 * (R11, 0099 00051000 * R12) UNRSTD; 0099 00052000 * R7->RCACSECT=RCACREPL; /* SET MODULE ID @Z30WPYC*/ 00053000 MVI RCACSECT(R7),X'0F' 0100 00054000 * R7->RCARFR='1'B; /* SET CSECT ENTERED @Z30WPYC*/ 00055000 OI RCARFR(R7),B'00000001' 0101 00056000 * R7->RCASAL='1'B; /* SET SALLOC HELD BIT @Z30WPYC*/ 00057000 OI RCASAL(R7),B'10000000' 0102 00058000 * PVTPRCA=R7; /* STORE RCA ADDR IN PVT */ 00059000 ST R7,PVTPRCA(,PVTPTR) 0103 00060000 * RFY 0104 00061000 * (R7) UNRESTRICTED; 0104 00062000 * PGOUTERR='0'B; /* INITIALIZE PGOUT ERROR FLAG */ 00063000 NI PGOUTERR(PVTPTR),B'01111111' 0105 00064000 * AIAQUEUE=0; /* ZERO INTERNAL AIA QUEUE */ 00065000 SLR @12,@12 0106 00066000 ST @12,AIAQUEUE(,PVTPTR) 0106 00067000 * CIOQUEUE=0; /* ZERO INTERNAL CIOQ ANCHOR */ 00068000 ST @12,CIOQUEUE(,PVTPTR) 0107 00069000 * LIOQUEUE=0; /* ZERO INTERNAL LIOQ ANCHOR */ 00070000 ST @12,LIOQUEUE(,PVTPTR) 0108 00071000 * R10SAVE=R10; /* SAVE SAVEAREA PTR @Z30WPYC*/ 00072000 ST R10,R10SAVE(,PVTPTR) 0109 00073000 * 0110 00074000 * /*****************************************************************/ 00075000 * /* */ 00076000 * /* IF THE INPUT ASCB ADDRESS FIELD IS ZERO, SCAN THE COMMON FRAME*/ 00077000 * /* QUEUE. OTHERWISE, SCAN THE LOCAL FRAME QUEUE OF THE ADDRESS */ 00078000 * /* SPACE IDENTIFIED IN THE PARAMETER LIST ENTRY. */ 00079000 * /* */ 00080000 * /*****************************************************************/ 00081000 * 0110 00082000 *PARM: 0110 00083000 * RFY 0110 00084000 * (INDEX, 0110 00085000 * ENDQ, 0110 00086000 * STARTQ, 0110 00087000 * QHDRPTR, 0110 00088000 * STEALCNT, 0110 00089000 * LRBNSAV) RESTRICTED; 0110 00090000 PARM DS 0H 0111 00091000 * STEALCNT=0; /* INDICATE 0 PAGES STOLEN 0111 00092000 * @Z30WPYC*/ 00093000 SLR STEALCNT,STEALCNT 0111 00094000 * ENDQ=0; /* CLEAR END-OF-REFERENCE QUEUE 00095000 * PTR. @Z30WPYC*/ 00096000 SLR ENDQ,ENDQ 0112 00097000 * HIGHUIC='0'B; /* INITIALIZE INTERNAL FLAG WHICH 00098000 * INDICATES WHEN HIGHEST UIC HAS 00099000 * BEEN SAVED @Z40FPYL*/ 00100000 * STEALIND='0'B; /* INITIALIZE INTERNAL FLAG WHICH 00101000 * INDICATES WHEN STEAL MUST BE 00102000 * SCHEDULED. */ 00103000 NI HIGHUIC(PVTPTR),B'11001111' 0114 00104000 * IF ASCBADR=0 THEN /* TEST IF STEAL IS FOR COMMON OR 00105000 * LOCAL AREA */ 00106000 L @11,ASCBADR-1(,PARMPTR) 0115 00107000 LA @11,0(,@11) 0115 00108000 LTR @11,@11 0115 00109000 BNZ @RF00115 0115 00110000 * DO; /* COMMON */ 00111000 * QHDRPTR=ADDR(PVTCFQF); /* GET PTR TO COMMON FRAME QUEUE 00112000 * PTRS. @Z30WPYC*/ 00113000 LA QHDRPTR,PVTCFQF(,PVTPTR) 0117 00114000 * RSMHDPTR=PSAAOLD->ASCBRSM; /* GET CURRENT RSMHDR ADDRESS */ 00115000 L @11,PSAAOLD 0118 00116000 L RSMHDPTR,ASCBRSM(,@11) 0118 00117000 * END; 0119 00118000 * ELSE /* ELSE, IF NOT FOR COMMON AREA */ 00119000 * DO; /* SCAN THE LOCAL FRAME QUEUE */ 00120000 B @RC00115 0120 00121000 @RF00115 DS 0H 0121 00122000 * RSMHDPTR=ASCBRSM; /* GET RSM HEADER ADDRESS */ 00123000 L @11,ASCBPTR(,PARMPTR) 0121 00124000 L RSMHDPTR,ASCBRSM(,@11) 0121 00125000 * QHDRPTR=ADDR(RSMLFQF); /* GET PTR TO LOCAL FRAME QUEUE 00126000 * PTRS. @Z30WPYC*/ 00127000 LA QHDRPTR,RSMLFQF(,RSMHDPTR) 0122 00128000 * IF RSMHDPTR=0 THEN /* TEST IF RSMHDR EXISTS */ 00129000 LTR RSMHDPTR,RSMHDPTR 0123 00130000 BZ @RT00123 0123 00131000 * GOTO GETNEXT; /* IF NO RSM HEADER, GO ON TO 0124 00132000 * NEXT ENTRY IN LIST */ 00133000 * END; 0125 00134000 * INDEX=QHDRPTR->FIRSTRBN; /* GET RBN INDEX TO FIRST PFTE. 00135000 * @Z30WPYC*/ 00136000 @RC00115 LH INDEX,FIRSTRBN(,QHDRPTR) 0126 00137000 N INDEX,@CF01963 0126 00138000 * LRBNSAV=QHDRPTR->LASTRBN; /* SAVE PTR TO LAST RBN AS THIS 00139000 * FIELD IS OVERLAID DURING 0127 00140000 * REQUEUING PFTE @Z30WPYC*/ 00141000 LH LRBNSAV,LASTRBN(,QHDRPTR) 0127 00142000 N LRBNSAV,@CF01963 0127 00143000 * 0128 00144000 * /*****************************************************************/ 00145000 * /* */ 00146000 * /* SCAN THE ENTIRE FRAME QUEUE LOOKING FOR FRAMES THAT ARE */ 00147000 * /* ELIGIBLE TO BE STOLEN. BEFORE BEGINNING THE SCAN, ENSURE THAT */ 00148000 * /* FQPTR HAS NOT CHANGED ACROSS A PREVIOUS CALL TO FREEPAGE. */ 00149000 * /* FQPTR COULD HAVE CHANGED IF THE FREEPAGE CALL CAUSED AN */ 00150000 * /* EXPANSION OF THE PCB POOL WHICH IN TURN CAUSED AN ENTRY INTPO */ 00151000 * /* IEAVSQA. IEAVSQA COULD THEN HAVE TAKEN THE FRAME REFERRED TO */ 00152000 * /* BY FQPTR AND PLACED IT ON THE SQA FRAME QUEUE. PFTEPTR, THE */ 00153000 * /* VARIABLE THAT HOLDS THE ADDRESS OF THE CURRENT PFTE, IS */ 00154000 * /* INITIALLY SET TO POINT TO THE ORIGIN OF THE PAGE FRAME TABLE */ 00155000 * /* SO THAT WHEN THE SCAN OF ONE QUEUE IS COMPLETED, IT CAN BE */ 00156000 * /* DETERMINED IF THE QUEUE WAS EMPTY OR SCANNED COMPLETELY, OR */ 00157000 * /* SCANNING WAS TERMINATED BEFORE THE END OF THE QUEUE. */ 00158000 * /* */ 00159000 * /*****************************************************************/ 00160000 * 0128 00161000 * PFTEPTR=PVTPFTP; /* INIT PFTEPTR TO TABLE ORIGIN 00162000 * @ZA17349*/ 00163000 L PFTEPTR,PVTPFTP(,PVTPTR) 0128 00164000 * DO WHILE INDEX^=0; /* LOOP UNTIL QUEUE IS EMPTY */ 00165000 B @DE00129 0129 00166000 @DL00129 DS 0H 0130 00167000 * PFTEPTR=PVTPFTP+INDEX; /* CALCULATE THE PFTE ADDRESS */ 00168000 LR PFTEPTR,INDEX 0130 00169000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0130 00170000 * IF PFTQNDX=PFTSQAN THEN /* PFTE ON SQA FRAME Q @ZA15747*/ 00171000 CLI PFTQNDX(PFTEPTR),X'0C' 0131 00172000 BE @RT00131 0131 00173000 * GOTO CHKSRB; /* YES, END FRAME Q SCAN @ZA15747*/ 00174000 * FQPTR=PFTFQPTR; /* SAVE FORWARD QUEUE POINTER */ 00175000 LH FQPTR,PFTFQPTR(,PFTEPTR) 0133 00176000 N FQPTR,@CF01963 0133 00177000 * IF(PFTSTEAL='1'B|PFTFXCT^=0|PFTPCBSI='1'B|PFTBADPG='1'B|PFTVRALC= 00178000 * '1'B) THEN /* DETERMINE THAT IT IS NOT */ 00179000 TM PFTSTEAL(PFTEPTR),B'00001000' 0134 00180000 BO @RT00134 0134 00181000 LH @11,PFTFXCT(,PFTEPTR) 0134 00182000 LTR @11,@11 0134 00183000 BNZ @RT00134 0134 00184000 TM PFTPCBSI(PFTEPTR),B'00001110' 0134 00185000 BZ @RF00134 0134 00186000 @RT00134 DS 0H 0135 00187000 * DO; /* @Z40FPYL*/ 00188000 * PFTUIC=0; /* @Z40FPYL*/ 00189000 MVI PFTUIC(PFTEPTR),X'00' 0136 00190000 * GOTO ADDTOQ; 0137 00191000 B ADDTOQ 0137 00192000 * END; /* ALREADY MARKED AS A STEAL 0138 00193000 * CANDIDATE, HAS NO FIX COUNT, 00194000 * AND NO PCB DEFINED, BAD PAGE, 00195000 * OR V=R ALLOCATION FLAGS SET */ 00196000 * ELSE 0139 00197000 * DO; /* STEALABLE SO CHECK CRITERIA */ 00198000 @RF00134 DS 0H 0140 00199000 * RESPECIFY 0140 00200000 * (RSA) RESTRICTED; /* @Z30WPYC*/ 00201000 * RSA=INDEX*256; /* SETUP TO CHECK REFERENCE BITS. 00202000 * REFERENCED PAGES CANNOT BE 0141 00203000 * STOLEN. */ 00204000 LR RSA,INDEX 0141 00205000 SLA RSA,8 0141 00206000 * IF PFTOFINT='0'B&PFTVRINT='0'B THEN/* IS PFTE INTERCEPTED. 00207000 * @Z30WPYC*/ 00208000 TM PFTOFINT(PFTEPTR),B'01000001' 0142 00209000 BNZ @RF00142 0142 00210000 * DO; /* NO - NORMAL PROCESSING 0143 00211000 * @Z30WPYC*/ 00212000 * CHNGFLAG='0'B; /* RESET CHANGE FLAG */ 00213000 NI CHNGFLAG(PVTPTR),B'10111111' 0144 00214000 * GEN CODE REFS(RSA,PFTEPTR) SETS(PFTUIC); 0145 00215000 RRB 0(RSA) RESET REFERENCE BIT FOR 1ST 2K 00216000 BC 3,RESETA REFERENCE BIT ON @Z30WPYC 00217000 BC 8,NXT2K PAGE IS UNCHANGED @Z30WPYC 00218000 OI CHNGFLAG(PVTPTR),X'40' INDICATE PAGE CHNGED @Z30WPYC 00219000 NXT2K RRB 2048(RSA) RESET REF-CHNG FOR 2ND 2K @Z30WPYC 00220000 BC 3,RESETB REFERENCE BIT ON @Z30WPYC 00221000 BC 8,CHKENDQ PAGE IS UNCHANGED @Z30WPYC 00222000 OI CHNGFLAG(PVTPTR),X'40' INDICATE PGE CHNG @Z30WPYC 00223000 B CHKENDQ DETERMINE IF PFTE'S ARE TO BE 00224000 * RECHAINED @Z30WPYC 00225000 RESETA RRB 2048(RSA) RESET REF-CHNG FOR 2ND 2K @Z30WPYC 00226000 RESETB MVI PFTUIC(PFTEPTR),X'00' ZERO THE UIC @Z30WPYC 00227000 *ADDTOQ: 0146 00228000 * IF ENDQ=0 THEN /* WAS REFERENCED Q STARTD 0146 00229000 * @Z30WPYC*/ 00230000 ADDTOQ LTR ENDQ,ENDQ 0146 00231000 BNZ @RF00146 0146 00232000 * STARTQ=INDEX; /* NO- INIT PTR TO 1ST ENTRY 0147 00233000 * @Z30WPYC*/ 00234000 LR STARTQ,INDEX 0147 00235000 * ELSE 0148 00236000 * ; /* YES - CHAIN IS ALREADY STARTED 00237000 * @Z30WPYC*/ 00238000 @RF00146 DS 0H 0149 00239000 * ENDQ=INDEX; /* INIT PTR TO LAST ENTRY 0149 00240000 * @Z30WPYC*/ 00241000 LR ENDQ,INDEX 0149 00242000 * GOTO CHKLAST; /* DETERMINE IF THIS IS THE LAST 00243000 * ENTRY FOR THIS FRAME QUEUE. 0150 00244000 * @Z30WPYC*/ 00245000 B CHKLAST 0150 00246000 * END; /* END NOT INTERCEPT TEST 0151 00247000 * @Z30WPYC*/ 00248000 *CHKENDQ: 0152 00249000 * 0152 00250000 * /***********************************************************/ 00251000 * /* */ 00252000 * /* DETERMINE IF A REFERENCED CHAIN WAS CONSTRUCTED FOR THIS*/ 00253000 * /* FRAME QUEUE. THE REFERENCED CHAIN CONSISTS OF THOSE */ 00254000 * /* PFTE'S DESCRIBING STORAGE THAT HAS BEEN REFERENCED SINCE*/ 00255000 * /* THE LAST CALL TO THIS ROUTINE. @Z30WPYC*/ 00256000 * /* */ 00257000 * /***********************************************************/ 00258000 * 0152 00259000 * IF ENDQ^=0 THEN /* WAS A REFERENCED PFTE CHAIN 0152 00260000 * CONSTRUCTED @Z30WPYC*/ 00261000 @RF00142 DS 0H 0152 00262000 CHKENDQ LTR ENDQ,ENDQ 0152 00263000 BZ @RF00152 0152 00264000 * DO; /* YES - CHAIN TO END OF FRAME Q 00265000 * @Z30WPYC*/ 00266000 * RFY 0154 00267000 * (R15) RESTRICTED; 0154 00268000 * GEN REFS(PVTPFTP,PFTBQPTR,PFTFQPTR,STARTQ,ENDQ,INDEX, 00269000 * BACKMASK,FIRSTRBN,LASTRBN,QHDRPTR) SETS(PTRPFT,BACKQ, 00270000 * WORKREG); 0155 00271000 L PTRPFT,PVTPFTP(,PVTPTR) GET ORIGIN OF PFT @Z30WPYC 00272000 LH BACKQ,PFTBQPTR(STARTQ,PTRPFT) GET ADDR OF PFTE BEFORE 00273000 * THE FIRST TO BE REQUED; 00274000 * MAY BE ZERO. @Z30WPYC 00275000 STH BACKQ,PFTBQPTR(,PFTEPTR) CURRENT PFTE POINTS BACK 00276000 * TO PREVIOUS UNREF. @Z30WPYC 00277000 SR WORKREG,WORKREG CLEAR WORK REG @Z30WPYC 00278000 STH WORKREG,PFTFQPTR(ENDQ,PTRPFT) LAST ON REQUE HAS 00279000 * A ZERO FORWARD PTR @Z30WPYC 00280000 CR WORKREG,BACKQ IF BACKQ IS 0, THEN THE REQUE 00281000 * CHAIN IS THE FIRST ON THE 00282000 * FRAME QUEUE. @Z30WPYC 00283000 BE QFIRST REQUEUING 1ST ON FRAME Q; GO DO 00284000 * SPECIAL PROCESSING @Z30WPYC 00285000 N BACKQ,BACKMASK CLEAR HIGH ORDER 2 BYTES @ZM34507 00286000 STH INDEX,PFTFQPTR(BACKQ,PTRPFT) NOT REQUEUING 1ST ON Q; 00287000 * HAVE PREV. UNREF POINT TO 00288000 * CURRENT. @Z30WPYC 00289000 B QLAST GO SETUP PTR TO NEW LAST PFTE ON 00290000 * THE QUEUE. @Z30WPYC 00291000 QFIRST EQU * 00292000 STH INDEX,FIRSTRBN(QHDRPTR) SINCE ARE REQUEUING 1ST ON Q, 00293000 * CURRENT PFTE IS NEW 1ST @Z30WPYC 00294000 QLAST EQU * 00295000 ICM WORKREG,3,LASTRBN(QHDRPTR) ARE REQUEUING TO END SO GET 00296000 * PTR TO CURRENT END; REGISTER IS 00297000 * ALREADY ZERO. @Z30WPYC 00298000 STH WORKREG,PFTBQPTR(STARTQ,PTRPFT) START OF REQ POINTS 00299000 * BACK TO CURRENT END OF Q @Z30WPYC 00300000 STH STARTQ,PFTFQPTR(WORKREG,PTRPFT) CURRENT END POINTS 00301000 * FOREWARD TO START OF REQ @Z30WPYC 00302000 STH ENDQ,LASTRBN(QHDRPTR) END OF REQUEUE IS NEW 00303000 * END OF FRAME QUEUE. @Z30WPYC 00304000 L WORKREG,CVTPTR 00305000 L PVTPTR,CVTPVTP(WORKREG) 00306000 * RFY 0156 00307000 * (R15) UNRESTRICTED; 0156 00308000 * END; /* END OF REQUEUING @Z30WPYC*/ 00309000 * ELSE 0158 00310000 * ; /* NO - REQUEUING NOT NECESSARY 00311000 * @Z30WPYC*/ 00312000 @RF00152 DS 0H 0159 00313000 * IF PFTOFINT='0'B&PFTVRINT='0'B THEN/* PFTE INTERCEPTED 0159 00314000 * @Z30WPYC*/ 00315000 TM PFTOFINT(PFTEPTR),B'01000001' 0159 00316000 BNZ @RF00159 0159 00317000 * DO; /* NO - CONT. PROCESSING @Z30WPYC*/ 00318000 * IF UPDATUIC='1'B THEN /* SHOULD UIC BE UPDATED @Z40FPYL*/ 00319000 TM UPDATUIC(PARMPTR),B'01000000' 0161 00320000 BNO @RF00161 0161 00321000 * PFTUIC=PFTUIC+1; /* YES - INCREMENT BY 1 @Z30WPYC*/ 00322000 LA @15,1 0162 00323000 SLR @14,@14 0162 00324000 IC @14,PFTUIC(,PFTEPTR) 0162 00325000 ALR @15,@14 0162 00326000 STC @15,PFTUIC(,PFTEPTR) 0162 00327000 * ELSE 0163 00328000 * ; /* NO- DONT INCREMENT UIC 0163 00329000 * @Z30WPYC*/ 00330000 @RF00161 DS 0H 0164 00331000 */********************************************************************/ 00332000 */* */ 00333000 */* THE FOLLOWING CODE SAVES THE HIGHEST UIC EITHER IN THE */ 00334000 */* ADDRESS SPACE OR IN THE COMMON AREA AFTER THE STEALABLE */ 00335000 */* FRAMES HAVE BEEN SELECTED. THE ASSUMPTION IS MADE THAT */ 00336000 */* THE PFTE Q'S ARE QUEUED IN DESCENDING ORDER OF UICS. SO, */ 00337000 */* WHEN THE UIC IN THE PFTE IS NOT GREATER THAN OR EQUAL TO */ 00338000 */* THE CRITERIA NUMBER PASSED BY SRM, THE SCAN OF THE PFTES */ 00339000 */* CAN BE STOPPED. @Z40FPYL */ 00340000 */* */ 00341000 */* FRAMES CAN BE STOLEN WHEN THE UIC IN THE PFTE IS GREATER */ 00342000 */* THAN OR EQUAL TO THE CRITERIA NUMBER. @Z40FPYL */ 00343000 */* */ 00344000 */********************************************************************/ 00345000 * 0164 00346000 * IF PFTUIC= CRITERIA NUMBER 0181 00398000 * @Z40FPYL*/ 00399000 @RF00164 DS 0H 0182 00400000 * IF UNCHNGD='1'B THEN /* STEAL UNCHANGED ONLY @Z40FPYL*/ 00401000 TM UNCHNGD(PARMPTR),B'10000000' 0182 00402000 BNO @RF00182 0182 00403000 * DO; /* @Z40FPYL*/ 00404000 * IF CHNGFLAG='1'B THEN/* YES- FRAME CHANGED @Z30WPYC*/ 00405000 TM CHNGFLAG(PVTPTR),B'01000000' 0184 00406000 BNO @RF00184 0184 00407000 * DO; /* CHECK HIGH UIC @Z40FPYL*/ 00408000 * IF HIGHUIC='0'B THEN/* HAS HIGHEST UIC @Z40FPYL*/ 00409000 TM HIGHUIC(PVTPTR),B'00010000' 0186 00410000 BNZ @RF00186 0186 00411000 * DO; /* BEEN STORED? NO, SO @Z40FPYL*/ 00412000 * IF ASCBADR=0 THEN/* SAVE HIGHEST UIC FOR 0188 00413000 * @Z40FPYL*/ 00414000 L @15,ASCBADR-1(,PARMPTR) 0188 00415000 LA @15,0(,@15) 0188 00416000 LTR @15,@15 0188 00417000 BNZ @RF00188 0188 00418000 * PVTCHUIC=PFTUIC;/* C.A. IN PVT, OR 0189 00419000 * @Z40FPYL*/ 00420000 SLR @15,@15 0189 00421000 IC @15,PFTUIC(,PFTEPTR) 0189 00422000 STH @15,PVTCHUIC(,PVTPTR) 0189 00423000 * ELSE /* FOR PRIVATE AREA @Z40FPYL*/ 00424000 * OUXBUIC=PFTUIC;/* IN OUXB @Z40FPYL*/ 00425000 B @RC00188 0190 00426000 @RF00188 L @15,ASCBPTR(,PARMPTR) 0190 00427000 L @15,OUXBPTR(,@15) 0190 00428000 SLR @14,@14 0190 00429000 IC @14,PFTUIC(,PFTEPTR) 0190 00430000 STH @14,OUXBUIC(,@15) 0190 00431000 * HIGHUIC='1'B;/* SET INDICATOR ON @Z40FPYL*/ 00432000 @RC00188 OI HIGHUIC(PVTPTR),B'00010000' 0191 00433000 * END; /* @Z40FPYL*/ 00434000 * ELSE 0193 00435000 * ; /* @Z40FPYL*/ 00436000 @RF00186 DS 0H 0194 00437000 * GOTO RSETENDQ;/* DONT STEAL CHNGED FRAME 0194 00438000 * @Z30WPYC*/ 00439000 B RSETENDQ 0194 00440000 * END; /* @Z40FPYL*/ 00441000 * ELSE 0196 00442000 * ; /* STEAL UNCHANGED FRAME @Z30WPYC*/ 00443000 @RF00184 DS 0H 0197 00444000 * END; /* @Z40FPYL*/ 00445000 * ELSE 0198 00446000 * ; /* STEAL REF-CHNGED FRAME 0198 00447000 * @Z30WPYC*/ 00448000 @RF00182 DS 0H 0199 00449000 * STEALCNT=STEALCNT+1; /* INCREMENT COUNT OF NUMBER OF 00450000 * PAGES AVAIL. TO BE STOLEN. 0199 00451000 * @Z30WPYC*/ 00452000 AL STEALCNT,@CF00063 0199 00453000 * END; /* END 2ND NOT INTERCEPTED TEST 00454000 * @Z30WPYC*/ 00455000 * 0200 00456000 * /***********************************************************/ 00457000 * /* */ 00458000 * /* IF THE FRAME IS FOR A VIO PAGE, IT CAN BE ENQUEUED ON */ 00459000 * /* THE AVAILABLE FRAME QUEUE NOW. */ 00460000 * /* */ 00461000 * /***********************************************************/ 00462000 * 0201 00463000 * IF PFTIRRG='1'B THEN /* TEST FOR A VIO FRAME */ 00464000 @RF00159 TM PFTIRRG(PFTEPTR),B'00010000' 0201 00465000 BNO @RF00201 0201 00466000 * DO; /* YES, MOVE IT TO THE AFQ */ 00467000 * R0=INDEX; /* PUT RBN IN R0 */ 00468000 LR R0,INDEX 0203 00469000 * CALL IEAVPFTE; /* CALL PFTE ENQ-DEQ */ 00470000 L @15,PVTPFTE(,PVTPTR) 0204 00471000 BALR @14,@15 0204 00472000 * END; /* GO CHECK NEXT PFTE */ 00473000 * 0205 00474000 * /***********************************************************/ 00475000 * /* */ 00476000 * /* IF THE FRAME IS FROM EITHER THE COMMON AREA OR THE */ 00477000 * /* CURRENT ADDRESS SPACE, THE BRANCH ENTRY OF THE STEAL */ 00478000 * /* ROUTINE (FREEPAGE) IS USED TO MOVE THE FRAME TO THE AFQ.*/ 00479000 * /* */ 00480000 * /***********************************************************/ 00481000 * 0206 00482000 * ELSE 0206 00483000 * DO; /* CHECK FOR COMMON AREA OR */ 00484000 B @RC00201 0206 00485000 @RF00201 DS 0H 0207 00486000 * IF ASCBADR=0|ASCBADR=PSAAOLD THEN/* CURRENT A.S. */ 00487000 L @15,ASCBADR-1(,PARMPTR) 0207 00488000 LA @15,0(,@15) 0207 00489000 LTR @15,@15 0207 00490000 BZ @RT00207 0207 00491000 C @15,PSAAOLD 0207 00492000 BNE @RF00207 0207 00493000 @RT00207 DS 0H 0208 00494000 * DO; /* YES @Z30WPYC*/ 00495000 * R10=R10SAVE; /* RESTORE SAVEAREA PTR TO INSURE 00496000 * CORRECT SAVEAREA VALUE IS 0209 00497000 * STORED BACK IN R10SAVE BY 0209 00498000 * FREEPAGE. @Z30WPYC*/ 00499000 L R10,R10SAVE(,PVTPTR) 0209 00500000 * CALL FREEPAGE; /* IF EITHER, FREE THE PAGE */ 00501000 BAL @14,FREEPAGE 0210 00502000 * END; /* END OF CURRENT A.S. @Z30WPYC*/ 00503000 * ELSE /* NOT COMMON AREA OR */ 00504000 * DO; /* CURRENT ADDRESS SPACE */ 00505000 * 0212 00506000 B @RC00207 0212 00507000 @RF00207 DS 0H 0213 00508000 * /***************************************************/ 00509000 * /* */ 00510000 * /* NON-COMMON AREA FRAMES WHICH BELONG TO AN */ 00511000 * /* ADDRESS SPACE OTHER THAN THE CURRENT ARE MARKED */ 00512000 * /* AS PENDING STEAL BY SETTING THE PFTSTEAL BIT IN */ 00513000 * /* THE PFTE. AN SRB WILL BE SCHEDULED FOR IEAVRFRA */ 00514000 * /* IN THEIR ADDRESS SPACE TO COMPLETE THE STEAL. */ 00515000 * /* */ 00516000 * /***************************************************/ 00517000 * 0213 00518000 * PFTSTEAL='1'B; /* SET PENDING STEAL BIT */ 00519000 OI PFTSTEAL(PFTEPTR),B'00001000' 0213 00520000 * STEALIND='1'B; /* INDICATE AN SRB MUST BE 0214 00521000 * SCHEDULED */ 00522000 OI STEALIND(PVTPTR),B'00100000' 0214 00523000 * END; /* END OF NON-CURRENT A.S. 0215 00524000 * PROCESS */ 00525000 * END; /* END OF NON-VIO PROCESSING */ 00526000 @RC00207 DS 0H 0217 00527000 * IF STEALCNT>=COUNTFLD THEN/* IS MAX NO. STOLEN @Z30WPYC*/ 00528000 @RC00201 CH STEALCNT,COUNTFLD(,PARMPTR) 0217 00529000 BNL @RT00217 0217 00530000 * GOTO CHKSRB; /* YES - DETERMINE IF SRB SHOULD 00531000 * BE SCHEDULED. @Z30WPYC*/ 00532000 * ELSE 0219 00533000 * ; /* NO - CONTINUE @Z30WPYC*/ 00534000 *RSETENDQ: 0220 00535000 * ENDQ=0; /* RESET REFERENCED FRAME QUEUE 00536000 * END POINTER @Z30WPYC*/ 00537000 RSETENDQ SLR ENDQ,ENDQ 0220 00538000 *CHKLAST: 0221 00539000 * IF INDEX=LRBNSAV THEN /* IS THIS PFTE Q COMPLETE 0221 00540000 * @Z30WPYC*/ 00541000 CHKLAST CR INDEX,LRBNSAV 0221 00542000 BE @RT00221 0221 00543000 * GOTO CHKSRB; /* YES - DETERMINE IF SRB SHOULD 00544000 * BE SCHEDULED. @Z30WPYC*/ 00545000 * ELSE 0223 00546000 * ; /* NO - GET NEXT PFTE @Z30WPYC*/ 00547000 * END; /* END OF ALL VALIDITY CHECKING */ 00548000 * INDEX=FQPTR; /* SET INDEX TO PFTFQPTR VALUE 0225 00549000 * SAVED FROM PREVIOUS PFTE */ 00550000 LR INDEX,FQPTR 0225 00551000 * END; /* END OF QUEUE SCAN */ 00552000 @DE00129 LTR INDEX,INDEX 0226 00553000 BNZ @DL00129 0226 00554000 * RFY 0227 00555000 * (RSA, 0227 00556000 * LRBNSAV, 0227 00557000 * INDEX, 0227 00558000 * STARTQ, 0227 00559000 * ENDQ, 0227 00560000 * QHDRPTR) UNRSTD; 0227 00561000 * 0228 00562000 * /*****************************************************************/ 00563000 * /* */ 00564000 * /* IF THE FRAME QUEUE WAS EMPTY, IF ALL THE FRAMES WERE REQUEUED */ 00565000 * /* WITH UIC = 0, OR IF ALL THE FRAMES ON THE QUEUE WERE STOLEN, A*/ 00566000 * /* HIGH UIC OF 0 WILL BE RETURNED TO SRM. @ZA17349*/ 00567000 * /* */ 00568000 * /*****************************************************************/ 00569000 * 0228 00570000 *CHKSRB: /* @Z30WPYC*/ 00571000 * RFY 0228 00572000 * (LRBNSAV) RSTD; /* @ZA17349*/ 00573000 CHKSRB DS 0H 0229 00574000 * IF HIGHUIC='0'B&PFTEPTR-PVTPFTP=LRBNSAV THEN/* NEED HIGH UIC 0229 00575000 * SAVED ? @ZA17349*/ 00576000 TM HIGHUIC(PVTPTR),B'00010000' 0229 00577000 BNZ @RF00229 0229 00578000 LR @11,PFTEPTR 0229 00579000 SL @11,PVTPFTP(,PVTPTR) 0229 00580000 CR @11,LRBNSAV 0229 00581000 BNE @RF00229 0229 00582000 * DO; /* YES, SAVE HIGH UIC @ZA17349*/ 00583000 * IF ASCBADR=0 THEN /* COMMON FRAME Q ? @ZA17349*/ 00584000 L @11,ASCBADR-1(,PARMPTR) 0231 00585000 LA @11,0(,@11) 0231 00586000 LTR @11,@11 0231 00587000 BNZ @RF00231 0231 00588000 * PVTCHUIC=0; /* YES @ZA17349*/ 00589000 SLR @11,@11 0232 00590000 STH @11,PVTCHUIC(,PVTPTR) 0232 00591000 * ELSE /* NO @ZA17349*/ 00592000 * OUXBUIC=0; /* PRIVATE Q @ZA17349*/ 00593000 B @RC00231 0233 00594000 @RF00231 L @11,ASCBPTR(,PARMPTR) 0233 00595000 L @11,OUXBPTR(,@11) 0233 00596000 SLR @08,@08 0233 00597000 STH @08,OUXBUIC(,@11) 0233 00598000 * END; /* @ZA17349*/ 00599000 @RC00231 DS 0H 0235 00600000 * RFY 0235 00601000 * (LRBNSAV) UNRSTD; /* @ZA17349*/ 00602000 * 0235 00603000 @RF00229 DS 0H 0236 00604000 * /*****************************************************************/ 00605000 * /* */ 00606000 * /* IF AN SRB MUST BE SCHEDULED TO ANOTHER ADDRESS SPACE, ISSUE */ 00607000 * /* GETCELL FOR SPACE TO CONTAIN THE SRB */ 00608000 * /* */ 00609000 * /*****************************************************************/ 00610000 * 0236 00611000 * IF STEALIND='1'B THEN /* CHECK THE STEAL INDICATOR */ 00612000 TM STEALIND(PVTPTR),B'00100000' 0236 00613000 BNO @RF00236 0236 00614000 * DO; 0237 00615000 * R0=PVTSRBID; /* PUT CPID IN R0 */ 00616000 L R0,PVTSRBID(,PVTPTR) 0238 00617000 * R13=ADDR(PVTSAVE); /* SAVE AREA TO BE USED OVER 0239 00618000 * INTERFACE */ 00619000 LA R13,PVTSAVE(,PVTPTR) 0239 00620000 * RFY 0240 00621000 * R15 RSTD; 0240 00622000 * GEN CODE REFS(R13,R0,CVTPTR,CVTGETCL,CVTMAP) SETS(R15,R1); 0241 00623000 GETCELL CPID=(0),BRANCH=YES,SAVE=YES 00624000 * IF R15^=0 THEN /* TEST RETURN CODE FROM GETCELL */ 00625000 LTR R15,R15 0242 00626000 BZ @RF00242 0242 00627000 * DO; /* IF NON-ZERO, SPACE NOT GOTTEN */ 00628000 * IF CVTNIP='0'B THEN /* IF NIP IS IN CONTROL */ 00629000 L @14,CVTPTR 0244 00630000 TM CVTNIP(@14),B'00010000' 0244 00631000 BNZ @RF00244 0244 00632000 * DO; /* DO NOT ISSUE ABEND */ 00633000 * CALL IEAVREP2; /* REINITIALIZE SRB POOL @Z30GNYC*/ 00634000 L @15,PVTREP2(,PVTPTR) 0246 00635000 BALR @14,@15 0246 00636000 * R0=PVTSRBID; /* PUT CPID IN R0 @Z30GNYC*/ 00637000 L R0,PVTSRBID(,PVTPTR) 0247 00638000 * R13=ADDR(PVTSAVE); /* SET SAVEAREA ADDR @Z30GNYC*/ 00639000 LA R13,PVTSAVE(,PVTPTR) 0248 00640000 * GEN CODE REFS(R13,R0,CVTPTR,CVTGETCL,CVTMAP) SETS(R15, 00641000 * R1); 0249 00642000 GETCELL CPID=(0),BRANCH=YES,SAVE=YES 00643000 * IF R15^=0 THEN /* IF UNSUCCESSFUL @Z30GNYC*/ 00644000 LTR R15,R15 0250 00645000 BZ @RF00250 0250 00646000 * DO; /* ISSUE ABEND. @Z30GNYC*/ 00647000 * RCARCRD='02'X; /* SET REASON CODE */ 00648000 L @14,RCAPTR(,PVTPTR) 0252 00649000 MVI RCARCRD(@14),X'02' 0252 00650000 * GEN CODE NOREFS SETS(R1); 0253 00651000 ABEND X'C0D',,,SYSTEM RECORD ERROR 00652000 * END; /* @Z30GNYC*/ 00653000 * ELSE /* SUCCESSFUL @Z30GNYC*/ 00654000 * GOTO INITSRB; /* INIT THE NEW SRB @Z30GNYC*/ 00655000 * END; 0256 00656000 * GOTO GETNEXT; /* GET NEXT ENTRY OF PARM. LIST */ 00657000 B GETNEXT 0257 00658000 * END; 0258 00659000 * RFY 0259 00660000 * R15 UNRSTD; 0259 00661000 * 0259 00662000 @RF00242 DS 0H 0260 00663000 * /*************************************************************/ 00664000 * /* */ 00665000 * /* INITIALIZE THE SRB FOR STEAL (IEAVRFRA) */ 00666000 * /* */ 00667000 * /*************************************************************/ 00668000 * 0260 00669000 *INITSRB: /* @Z30GNYC*/ 00670000 * SRB=SRB&&SRB; /* ZERO OUT THE SRB */ 00671000 INITSRB XC SRB(44,SRBPTR),SRB(SRBPTR) 0260 00672000 * SRBASCB=ASCBADR; /* GET ADDR OF ADDR SPACE TO BE 00673000 * DISPATCHED */ 00674000 L @12,ASCBADR-1(,PARMPTR) 0261 00675000 LA @12,0(,@12) 0261 00676000 ST @12,SRBASCB(,SRBPTR) 0261 00677000 * SRBEP=ADDR(IEAVRFRA); /* ENTRY POINT TO STEAL ROUTINE */ 00678000 LA @12,IEAVRFRA 0262 00679000 ST @12,SRBEP(,SRBPTR) 0262 00680000 * SRBRMTR=PVTPSRBP; /* RMTR ENTRY POINT */ 00681000 L @12,PVTPSRBP(,PVTPTR) 0263 00682000 ST @12,SRBRMTR(,SRBPTR) 0263 00683000 * SRBPARM=RSMHDPTR; /* RSMHDPTR IS PARAMETER TO STEAL*/ 00684000 ST RSMHDPTR,SRBPARM(,SRBPTR) 0264 00685000 * SRBPRIOR=4; /* NON-QUIESCE PRIORITY */ 00686000 MVI SRBPRIOR(SRBPTR),X'04' 0265 00687000 * SRBPASID=ASCBASID; /* ASID OF ADDR SPACE IN WHICH 0266 00688000 * STEAL IS TO RUN */ 00689000 L @12,ASCBPTR(,PARMPTR) 0266 00690000 LH @12,ASCBASID(,@12) 0266 00691000 N @12,@CF01963 0266 00692000 STH @12,SRBPASID(,SRBPTR) 0266 00693000 * SRBID='SRB '; /* SRB ID */ 00694000 MVC SRBID(4,SRBPTR),@CC01984 0267 00695000 * GEN CODE REFS(CVTPTR,CVTGSMQ,CVTMAP,SRBFLNK,SRBSECT) SETS(R15); 00696000 SCHEDULE SRB=(1),SCOPE=GLOBAL 00697000 * END; 0269 00698000 * 0270 00699000 * /*****************************************************************/ 00700000 * /* */ 00701000 * /* CHECK HIGH ORDER BIT OF THE CURRENT PARAMETER LIST ENTRY. IF */ 00702000 * /* IT IS NOT ON, PICK UP ADDRESS OF NEXT ENTRY AND REPEAT THE */ 00703000 * /* SELECTION PROCESS FOR THE ADDRESS SPACE INDICATED IN THE NEW */ 00704000 * /* ENTRY. */ 00705000 * /* */ 00706000 * /*****************************************************************/ 00707000 * 0270 00708000 *GETNEXT: 0270 00709000 * COUNTFLD=STEALCNT; /* INDICATE NO. FRAMES ACTUALLY 00710000 * STOLEN @Z30WPYC*/ 00711000 @RF00236 DS 0H 0270 00712000 GETNEXT STH STEALCNT,COUNTFLD(,PARMPTR) 0270 00713000 * RESPECIFY 0271 00714000 * (STEALCNT) UNRESTRICTED; 0271 00715000 * IF LASTENT='0'B THEN /* IF NOT LAST ENTRY IN PARM LIST*/ 00716000 TM LASTENT(PARMPTR),B'10000000' 0272 00717000 BNZ @RF00272 0272 00718000 * DO; /* MOVE POINTER TO NEXT ENTRY */ 00719000 * PARMPTR=PARMPTR+LENGTH(PARMLIST);/* GET NEXT ENTRY */ 00720000 AL PARMPTR,@CF00056 0274 00721000 * GOTO PARM; /* RE-SCAN FOR OTHER POSSIBLE 0275 00722000 * FRAMES TO STEAL */ 00723000 B PARM 0275 00724000 * END; 0276 00725000 * 0276 00726000 * /*****************************************************************/ 00727000 * /* */ 00728000 * /* WHEN ALL PARAMETER ENTRIES IN THE LIST HAVE BEEN PROCESSED, */ 00729000 * /* DETERMINE IF THERE ARE ANY PCBS TO PAGE OUT. */ 00730000 * /* */ 00731000 * /*****************************************************************/ 00732000 * 0277 00733000 * IF CIOQUEUE^=LIOQUEUE THEN /* THESE FIELDS CAN ONLY BE EQUAL 00734000 * IF BOTH ARE STILL ZERO, 0277 00735000 * IMPLYING THAT THERE ARE NO 0277 00736000 * PCBS */ 00737000 @RF00272 CLC CIOQUEUE(4,PVTPTR),LIOQUEUE(PVTPTR) 0277 00738000 BE @RF00277 0277 00739000 * DO; /* PCBS EXIST - PROCESS @Z30WPYC*/ 00740000 * CALL RFRASM; 0279 00741000 BAL @14,RFRASM 0279 00742000 * PVTPTR=CVTPVTP; /* RESTORE PVTPTR @Z30WPYC*/ 00743000 L @12,CVTPTR 0280 00744000 L PVTPTR,CVTPVTP(,@12) 0280 00745000 * END; /* END OF PCB CHECK @Z30WPYC*/ 00746000 * 0281 00747000 * /*****************************************************************/ 00748000 * /* */ 00749000 * /* DELETE THE FRR ROUTINE */ 00750000 * /* */ 00751000 * /*****************************************************************/ 00752000 * 0282 00753000 * RFY 0282 00754000 * (R10, 0282 00755000 * R11, 0282 00756000 * R12, 0282 00757000 * R14) RSTD; 0282 00758000 @RF00277 DS 0H 0283 00759000 * R10=R10SAVE; /* RESTORE SAVE AREA ADDR 0283 00760000 * @Z30WPYC*/ 00761000 L R10,R10SAVE(,PVTPTR) 0283 00762000 * GENERATE CODE REFS(PSACSTK,FRRSCURR,FRRSEMP,FRRS,FRRSELEN) SETS(R11 00763000 * ,R12); 0284 00764000 SETFRR D,WRKREGS=(R11,R12) 00765000 * 0285 00766000 * /*****************************************************************/ 00767000 * /* */ 00768000 * /* RELEASE THE SALLOC LOCK. */ 00769000 * /* */ 00770000 * /*****************************************************************/ 00771000 * 0285 00772000 *FREELOCK: 0285 00773000 * GEN CODE REFS(PSALITA,FLC) SETS(R11,R12,R13,R14); 0285 00774000 FREELOCK DS 0H 0285 00775000 SETLOCK RELEASE,TYPE=SALLOC,RELATED=(SALLOC,IEAVRFR(GETLOCK)) 00776000 * R13=R10; /* RESTORE R13 @Z30WPYC*/ 00777000 LR R13,R10 0286 00778000 * RFY 0287 00779000 * (R10, 0287 00780000 * R11, 0287 00781000 * R12) UNRSTD; 0287 00782000 * 0287 00783000 * /*****************************************************************/ 00784000 * /* */ 00785000 * /* RESTORE REGISTERS AND RETURN TO CALLER */ 00786000 * /* */ 00787000 * /*****************************************************************/ 00788000 * 0288 00789000 * GENERATE REFS(R12,R13,R14); 0288 00790000 * /* @Z40WPYC*/ 00791000 LM R14,R12,12(R13) RESTORE CALLERS REGS @Z40WPYC 00792000 BR R14 RETURN TO CALLER @Z40WPYC 00793000 * 0289 00794000 * /*****************************************************************/ 00795000 * /* */ 00796000 * /* ENTRY POINT IEAVRFRA - STEAL ROUTINE */ 00797000 * /* */ 00798000 * /*****************************************************************/ 00799000 * 0289 00800000 * GEN CODE; 0289 00801000 ENTRY IEAVRFRA 00802000 DC CL8'IEAVRFRA' 00803000 IEAVRFRA DS 0H 00804000 LA R10,STEAL-@PSTART OBTAIN CORRECT OFFSET @ZA10767 00805000 BALR R9,0 ADDRESSIBILITY ESTABLISHED 00806000 STEAL SR R9,R10 BASE REGISTER IS SET @ZA10767 00807000 * RFY 0290 00808000 * (R10, 0290 00809000 * R14) RSTD; 0290 00810000 * IF R0^=0 THEN /* WAS MODULE ENTERED IN SRB 0291 00811000 * MODE? IS THERE AN SRB ADDRESS? 00812000 * @ZA10767*/ 00813000 LTR R0,R0 0291 00814000 BZ @RF00291 0291 00815000 * DO; /* YES, AN SRB @ZA10767*/ 00816000 * R10=R1; /* TEMPORARY POINTER TO RSMHD */ 00817000 LR R10,R1 0293 00818000 * SRBPTR=R0; /* POINTER TO THE SRB */ 00819000 LR SRBPTR,R0 0294 00820000 * PVTPTR=CVTPVTP; /* POINTER TO PVT */ 00821000 L @15,CVTPTR 0295 00822000 L PVTPTR,CVTPVTP(,@15) 0295 00823000 * END; 0296 00824000 * ELSE 0297 00825000 * DO; /* NO, MODULE WAS ENTERED VIA A 00826000 * CALL @ZA10767*/ 00827000 B @RC00291 0297 00828000 @RF00291 DS 0H 0298 00829000 * R10=R14; /* SAVE RETURN REGISTER @ZA10767*/ 00830000 LR R10,R14 0298 00831000 * PVTPRCA->RCARFR2='1'B; /* SET CSECT ENTERED BIT-STEAL 0299 00832000 * @ZA10767*/ 00833000 L @15,PVTPRCA(,PVTPTR) 0299 00834000 OI RCARFR2(@15),B'00000010' 0299 00835000 * RFY 0300 00836000 * INDEX RSTD; 0300 00837000 * INDEX=R1; /* SET UP FRAME QUEUE OF FRAME TO 00838000 * BE STOLEN @ZA10767*/ 00839000 LR INDEX,R1 0301 00840000 * PGOUTERR='0'B; /* INITIALIZE PGOUT ERROR FLAG 0302 00841000 * @ZA10767*/ 00842000 NI PGOUTERR(PVTPTR),B'01111111' 0302 00843000 * AIAQUEUE=0; /* ZERO INTERNAL AIA QUEUE PTR 0303 00844000 * @ZA10767*/ 00845000 SLR @15,@15 0303 00846000 ST @15,AIAQUEUE(,PVTPTR) 0303 00847000 * CIOQUEUE=0; /* ZERO INTERNAL CIOQ QUEUE 0304 00848000 * @ZA10767*/ 00849000 ST @15,CIOQUEUE(,PVTPTR) 0304 00850000 * LIOQUEUE=0; /* ZERO INTERNAL LIOQ ANCHOR 0305 00851000 * @ZA10767*/ 00852000 ST @15,LIOQUEUE(,PVTPTR) 0305 00853000 * GOTO RFRB; /* BRANCH AROUND SETFRR AND 0306 00854000 * SETLOCK @ZA10767*/ 00855000 B RFRB 0306 00856000 * END; 0307 00857000 * RFY 0308 00858000 * ASCB BASED(PSAAOLD); 0308 00859000 * 0308 00860000 @RC00291 DS 0H 0309 00861000 * /*****************************************************************/ 00862000 * /* */ 00863000 * /* ESTABLISH THE FUNCTIONAL RECOVERY ROUTINE @Z30WPYC*/ 00864000 * /* */ 00865000 * /*****************************************************************/ 00866000 * 0309 00867000 * RFY 0309 00868000 * (R6, 0309 00869000 * R7, 0309 00870000 * R8) RSTD; 0309 00871000 * GEN CODE REFS(PSACSTK,FRRS,FRRSCURR,FRRSLAST,FRRSELEN,FRRSENTR, 00872000 * PVTPRCV,FRRSFRRA,PVTPTR,FRRSPARM,PSALSFCC) SETS(R6,R7,FRRSCURR) 00873000 * ; 0310 00874000 SETFRR A,FRRAD=PVTPRCV(PVTPTR),PARMAD=(R7),WRKREGS=(R6,R8) 00875000 * RFY 0311 00876000 * R6 UNRSTD; 0311 00877000 * R7->RCARFR2='1'B; /* SET CSECT ENTERED BIT-STEAL 0312 00878000 * @Z30WPYC*/ 00879000 OI RCARFR2(R7),B'00000010' 0312 00880000 * R7->RCACSECT=RCACREPL; /* SET CSECT ID @Z30WPYC*/ 00881000 MVI RCACSECT(R7),X'0F' 0313 00882000 * 0314 00883000 * /*****************************************************************/ 00884000 * /* */ 00885000 * /* FREE THE SRB SCHEDULED BY SELECT */ 00886000 * /* */ 00887000 * /*****************************************************************/ 00888000 * 0314 00889000 * RFY 0314 00890000 * R15 RSTD; 0314 00891000 * R0=PVTSRBID; /* PUT CELL POOL ID,CPID, IN R0 */ 00892000 L R0,PVTSRBID(,PVTPTR) 0315 00893000 * GEN CODE REFS(CVTPTR,CVTFRECL,CVTMAP) SETS(R15); 0316 00894000 FREECELL CPID=(0),CELL=(1),BRANCH=YES,SAVE=NO 00895000 * RSMHDPTR=R10; /* RESTORE RSMHDPTR */ 00896000 LR RSMHDPTR,R10 0317 00897000 * PVTPTR=CVTPVTP; /* RESTORE PVTPTR @ZA10767*/ 00898000 L @12,CVTPTR 0318 00899000 L PVTPTR,CVTPVTP(,@12) 0318 00900000 * RFY 0319 00901000 * (R8) UNRSTD; 0319 00902000 * RFY 0320 00903000 * (R11, 0320 00904000 * R12, 0320 00905000 * R14) RSTD; 0320 00906000 * 0320 00907000 * /*****************************************************************/ 00908000 * /* */ 00909000 * /* OBTAIN SALLOC LOCK UNCONDITIONALLY */ 00910000 * /* */ 00911000 * /*****************************************************************/ 00912000 * 0321 00913000 *GETLOCK2: 0321 00914000 * GEN CODE REFS(PSALITA,FLC,R13) SETS(R13,R11,R12,R14); 0321 00915000 GETLOCK2 DS 0H 0321 00916000 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, **00917000 RELATED=(SALLOC,IEAVRFRA(FREELOK2)) 00918000 * PVTPRCA=R7; /* INIT RCA ADDRESS IN PVT 0322 00919000 * @Z30WPYC*/ 00920000 ST R7,PVTPRCA(,PVTPTR) 0322 00921000 * R7->RCASAL='1'B; /* SET SALLOC HELD BIT ON 0323 00922000 * @Z30WPYC*/ 00923000 OI RCASAL(R7),B'10000000' 0323 00924000 * PGOUTERR='0'B; /* INITIALIZE PGOUT ERROR FLAG */ 00925000 NI PGOUTERR(PVTPTR),B'01111111' 0324 00926000 * AIAQUEUE=0; /* ZERO INTERNAL AIA QUEUE */ 00927000 SLR @08,@08 0325 00928000 ST @08,AIAQUEUE(,PVTPTR) 0325 00929000 * CIOQUEUE=0; /* ZERO INTERNAL CIOQ ANCHOR */ 00930000 ST @08,CIOQUEUE(,PVTPTR) 0326 00931000 * LIOQUEUE=0; /* ZERO INTERNAL LIOQ ANCHOR */ 00932000 ST @08,LIOQUEUE(,PVTPTR) 0327 00933000 * RFY 0328 00934000 * (R6, 0328 00935000 * R7, 0328 00936000 * R11, 0328 00937000 * R12, 0328 00938000 * R14, 0328 00939000 * R15) UNRSTD; 0328 00940000 * RFY 0329 00941000 * (INDEX, 0329 00942000 * PFTEPTR) RSTD; 0329 00943000 * INDEX=RSMLFQF; /* GET FIRST PFTE ON LFQ */ 00944000 LH INDEX,RSMLFQF(,RSMHDPTR) 0330 00945000 N INDEX,@CF01963 0330 00946000 *RFRB: 0331 00947000 * ; /* @ZA10767*/ 00948000 * 0331 00949000 RFRB DS 0H 0332 00950000 * /*****************************************************************/ 00951000 * /* */ 00952000 * /* SCAN THE LOCAL FRAME QUEUE FOR FRAMES WITH THE PENDING STEAL */ 00953000 * /* BIT SET (PFTSTEAL). */ 00954000 * /* */ 00955000 * /*****************************************************************/ 00956000 * 0332 00957000 * DO WHILE INDEX^=0; /* SCAN ENTIRE QUEUE */ 00958000 B @DE00332 0332 00959000 @DL00332 DS 0H 0333 00960000 * PFTEPTR=PVTPFTP+INDEX; /* GET PFTE ADDRESS */ 00961000 LR PFTEPTR,INDEX 0333 00962000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0333 00963000 * FQPTR=PFTFQPTR; /* SAVE INDEX TO NEXT PFTE */ 00964000 LH FQPTR,PFTFQPTR(,PFTEPTR) 0334 00965000 N FQPTR,@CF01963 0334 00966000 * IF PFTSTEAL='1'B THEN /* CHECK THE STEAL BIT */ 00967000 TM PFTSTEAL(PFTEPTR),B'00001000' 0335 00968000 BNO @RF00335 0335 00969000 * DO; /* AND PROCESS ACCORDINGLY */ 00970000 * 0336 00971000 * /***********************************************************/ 00972000 * /* */ 00973000 * /* DETERMINE THAT THE FRAME HAS NO IO ACTIVE, IS NOT IN A */ 00974000 * /* BAD FRAME, AND IS NOT FIXED BEFORE PROCEEDING. */ 00975000 * /* */ 00976000 * /***********************************************************/ 00977000 * 0337 00978000 * IF(PFTPCBSI='0'B&PFTBADPG='0'B&PFTFXCT=0) THEN/* TEST FLAGS 00979000 * AND FIX COUNT OF PFTE */ 00980000 TM PFTPCBSI(PFTEPTR),B'00001100' 0337 00981000 BNZ @RF00337 0337 00982000 LH @12,PFTFXCT(,PFTEPTR) 0337 00983000 LTR @12,@12 0337 00984000 BNZ @RF00337 0337 00985000 * DO; /* NO FLAGS SET AND FIX COUNT IS 00986000 * ZERO */ 00987000 * 0338 00988000 * /*******************************************************/ 00989000 * /* */ 00990000 * /* TEST THE REFERENCE BITS. IF THE PAGE HAS BEEN */ 00991000 * /* REFERENCED, IT CANNOT BE STOLEN. */ 00992000 * /* */ 00993000 * /*******************************************************/ 00994000 * 0339 00995000 * RFY 0339 00996000 * RSA RSTD; 0339 00997000 * RSA=INDEX*256; /* GET REAL PAGE ADDRESS */ 00998000 LR RSA,INDEX 0340 00999000 SLA RSA,8 0340 01000000 * 0341 01001000 * /*******************************************************/ 01002000 * /* */ 01003000 * /* FRAME STILL APPEARS TO BE ELIGIBLE TO BE STOLEN. */ 01004000 * /* CALL FREEPAGE TO STEAL IT IF STILL UNREFERENCED. */ 01005000 * /* @Z30WPYC*/ 01006000 * /* */ 01007000 * /*******************************************************/ 01008000 * 0341 01009000 * CALL FREEPAGE; /* FREE THE FRAME */ 01010000 BAL @14,FREEPAGE 0341 01011000 * END; /* END OF STEAL OPERATION */ 01012000 * ELSE /* FRAME CANNOT BE STOLEN */ 01013000 * DO; 0343 01014000 B @RC00337 0343 01015000 @RF00337 DS 0H 0344 01016000 * RFY 0344 01017000 * RSA UNRSTD; 0344 01018000 * 0344 01019000 * /*******************************************************/ 01020000 * /* */ 01021000 * /* FRAME IS NO LONGER ELIGIBLE TO BE STOLEN. RESET ALL */ 01022000 * /* STEAL INDICATORS SO IT APPEARS TO BE THE SAME AS ANY*/ 01023000 * /* OTHER FRAME ON THE LOCAL FRAME QUEUE. */ 01024000 * /* */ 01025000 * /*******************************************************/ 01026000 * 0345 01027000 * PFTSTEAL='0'B; /* ZERO THE PENDING STEAL BIT */ 01028000 NI PFTSTEAL(PFTEPTR),B'11110111' 0345 01029000 * END; /* END OF BACK-OUT OPERATION */ 01030000 * END; /* END OF PFTSTEAL=1 OPERATION */ 01031000 @RC00337 DS 0H 0348 01032000 * INDEX=FQPTR; /* SET INDEX TO VALUE SAVED FROM 01033000 * LAST PFTE */ 01034000 @RF00335 LR INDEX,FQPTR 0348 01035000 * END; /* END OF QUEUE SCAN */ 01036000 @DE00332 LTR INDEX,INDEX 0349 01037000 BNZ @DL00332 0349 01038000 * RFY 0350 01039000 * (R11, 0350 01040000 * R12, 0350 01041000 * R14) RSTD; 0350 01042000 * RFY 0351 01043000 * INDEX UNRSTD; 0351 01044000 * 0351 01045000 * /*****************************************************************/ 01046000 * /* */ 01047000 * /* DETERMINE IF ANY PAGE OUT PCBS EXIST. */ 01048000 * /* */ 01049000 * /*****************************************************************/ 01050000 * 0352 01051000 * IF CIOQUEUE^=LIOQUEUE THEN /* THESE FIELDS CAN ONLY */ 01052000 CLC CIOQUEUE(4,PVTPTR),LIOQUEUE(PVTPTR) 0352 01053000 BE @RF00352 0352 01054000 * CALL RFRASM; /* BE EQUAL IF BOTH ARE STILL 0353 01055000 * ZERO, IMPLYING THAT NO PCBS 0353 01056000 * EXIST */ 01057000 BAL @14,RFRASM 0353 01058000 * IF PVTPRCA->RCACSECT^=RCACREPL THEN/* IS STEAL RUNNING AS AN SRB 01059000 * @ZA10767*/ 01060000 @RF00352 L @15,PVTPRCA(,PVTPTR) 0354 01061000 CLI RCACSECT(@15),X'0F' 0354 01062000 BE @RF00354 0354 01063000 * DO; /* NO, STEAL WAS CALLED @ZA10767*/ 01064000 * R14=R10; /* RESTORE RETURN ADDRESS 0356 01065000 * @ZA10767*/ 01066000 LR R14,R10 0356 01067000 * PVTPRCA->RCARFR2='0'B; /* SET CSECT ENTERED OFF @ZA10767*/ 01068000 NI RCARFR2(@15),B'11111101' 0357 01069000 * GOTO R14; /* EXIT WITHOUT RELEASING ANY 0358 01070000 * LOCKS AND WITHOUT DELETING FRR 01071000 * @ZA10767*/ 01072000 BR R14 0358 01073000 * END; 0359 01074000 * 0360 01075000 * /*****************************************************************/ 01076000 * /* */ 01077000 * /* RELEASE THE SALLOC LOCK */ 01078000 * /* */ 01079000 * /*****************************************************************/ 01080000 * 0360 01081000 *FREELOK2: 0360 01082000 * GEN CODE REFS(PSALITA,FLC,R13) SETS(R11,R12,R13,R14); 0360 01083000 @RF00354 DS 0H 0360 01084000 FREELOK2 DS 0H 0360 01085000 SETLOCK RELEASE,TYPE=SALLOC,RELATED=(SALLOC,IEAVRFRA(GETLOCK2)) 01086000 * RFY 0361 01087000 * R11 UNRSTD; 0361 01088000 * 0361 01089000 * /*****************************************************************/ 01090000 * /* */ 01091000 * /* DELETE THE FRR ROUTINE */ 01092000 * /* */ 01093000 * /*****************************************************************/ 01094000 * 0362 01095000 * RFY 0362 01096000 * R8 RSTD; 0362 01097000 * GEN CODE REFS(PSACSTK,FRRSCURR,FRRSEMP,FRRS,FRRSELEN) SETS(R8,R12, 01098000 * FRRSCURR); 0363 01099000 SETFRR D,WRKREGS=(8,12) 01100000 * RFY 0364 01101000 * (R8, 0364 01102000 * R12) UNRSTD; 0364 01103000 * 0364 01104000 * /*****************************************************************/ 01105000 * /* */ 01106000 * /* EXIT TO THE DISPATCHER - NO REGISTERS ARE RESTORED */ 01107000 * /* */ 01108000 * /*****************************************************************/ 01109000 * 0365 01110000 * R14=CVTSRBRT; /* SET RETURN ADDRESS */ 01111000 L @12,CVTPTR 0365 01112000 L R14,CVTSRBRT(,@12) 0365 01113000 * GOTO R14; /* RETURN TO DISPATCHER */ 01114000 BR R14 0366 01115000 * RFY 0367 01116000 * R14 UNRSTD; 0367 01117000 * 0368 01118000 * /*****************************************************************/ 01119000 * /* */ 01120000 * /* FREEPAGE - PAGE OUT PREPARATION SUBROUTINE */ 01121000 * /* */ 01122000 * /*****************************************************************/ 01123000 * 0368 01124000 */* */ 01125000 * 0368 01126000 * /*****************************************************************/ 01127000 * /* */ 01128000 * /* THIS IS AN INTERNAL SUBROUTINE CALLED BY EITHER SELECT OR */ 01129000 * /* STEAL. ITS FUNCTION IS TO INVALIDATE AND MOVE TO THE AVAILABLE*/ 01130000 * /* QUEUE UNCHANGED FRAMES. CHANGED FRAMES WILL HAVE A PAGE OUT */ 01131000 * /* PCB INITIALIZED FOR THEM. */ 01132000 * /* */ 01133000 * /*****************************************************************/ 01134000 * 0368 01135000 *FREEPAGE: 0368 01136000 * 0368 01137000 */********************************************************************/ 01138000 */* INPUT: */ 01139000 */* R1= INDEX TO NEXT PFTE ON CHAIN */ 01140000 */* R2= RSMHD ADDRESS */ 01141000 */* R3= PVT ADDRESS */ 01142000 */* R4= PFTEPTR */ 01143000 */* R5= PARMPTR IF COMING FROM SELECT-IF STEAL, UNDETERMINED*/ 01144000 */* R6= INDEX TO PFTE */ 01145000 */* R9= BASE REGISTER */ 01146000 */* R10= SAVEAREA ADDR IF FROM SELECT-IF STEAL UNDETERMINED */ 01147000 */* R11= RSA OF PAGE */ 01148000 */* OUTPUT: */ 01149000 */* R1 THROUGH R14 WILL BE THE SAME AS INPUT */ 01150000 */********************************************************************/ 01151000 * 0368 01152000 * GEN CODE REFS(FREESAVE,PVTPTR); 0368 01153000 FREEPAGE DS 0H 0368 01154000 STM R1,R14,FREESAVE(PVTPTR) SAVE INPUT REGISTERS 01155000 * RFY 0369 01156000 * (INDEX, 0369 01157000 * RSA, 0369 01158000 * R15) RSTD; 0369 01159000 * 0370 01160000 * /*****************************************************************/ 01161000 * /* */ 01162000 * /* PASS THE VIRTUAL ADDRESS OF THE FRAME TO FINDPAGE TO OBTAIN */ 01163000 * /* THE ADDRESSES OF THE PGTE AND XPTE. */ 01164000 * /* */ 01165000 * /*****************************************************************/ 01166000 * 0370 01167000 * R1=PFTVBN*256; /* CREATE VIRTUAL ADDR OF FRAME */ 01168000 LH R1,PFTVBN(,PFTEPTR) 0370 01169000 N R1,@CF01963 0370 01170000 SLA R1,8 0370 01171000 * CALL IEAVFP2; /* FINDPAGE AT SECONDARY ENTRY */ 01172000 L @15,PVTPFP2(,PVTPTR) 0371 01173000 BALR @14,@15 0371 01174000 * IF R15^=0 THEN /* TEST RETURN CODE FROM FINDPAGE*/ 01175000 LTR R15,R15 0372 01176000 BZ @RF00372 0372 01177000 * DO; /* IF NON-ZERO,ISSUE ABEND AND 0373 01178000 * FREE THE FRAME */ 01179000 * RCARCRD='01'X; /* SET REASON CODE */ 01180000 L @14,RCAPTR(,PVTPTR) 0374 01181000 MVI RCARCRD(@14),X'01' 0374 01182000 * GEN CODE NOREFS SETS(R1); 0375 01183000 ABEND X'C0D',,,SYSTEM INVOKE THE FRR ROUTINE 01184000 * GOTO NOSTEAL; /* RESET STEAL INDICATORS */ 01185000 B NOSTEAL 0376 01186000 * END; 0377 01187000 * RFY 0378 01188000 * (PTEPTR, 0378 01189000 * XPTEPTR) RSTD; 0378 01190000 @RF00372 DS 0H 0379 01191000 * RFY 0379 01192000 * R15 UNRSTD; 0379 01193000 * 0379 01194000 * /*****************************************************************/ 01195000 * /* */ 01196000 * /* CALL IEAVINV TO HAVE THE PAGE TABLE ENTRY INVALIDATED AND THE */ 01197000 * /* LOOK-ASIDE BUFFERS PURGED. REGISTER 1 WILL CONTAIN THE ADDRESS*/ 01198000 * /* OF THE PGTE. */ 01199000 * /* */ 01200000 * /*****************************************************************/ 01201000 * 0380 01202000 * XPTEPTR=R1; /* ESTABLISH XPTE PTR */ 01203000 LR XPTEPTR,R1 0380 01204000 * PTEPTR=R0; /* SET PAGE TABLE ENTRY ADDRESS */ 01205000 LR PTEPTR,R0 0381 01206000 * R1=R0; /* PUT PGTE ADDR IN R1 FOR 0382 01207000 * IEAVINV */ 01208000 LR R1,R0 0382 01209000 * CALL IEAVINV; /* CALL PAGE INVALIDATION ROUTINE*/ 01210000 L @15,PVTPINV(,PVTPTR) 0383 01211000 BALR @14,@15 0383 01212000 * IF PFTOFINT='1'B|PFTVRINT='1'B THEN/* IS PFTE INTERCEPTED. 0384 01213000 * @Z30WPYC*/ 01214000 TM PFTOFINT(PFTEPTR),B'01000001' 0384 01215000 BZ @RF00384 0384 01216000 * DO; /* YES- IF CHANGED SETUP FOR 0385 01217000 * PGOUT @Z30WPYC*/ 01218000 * GEN CODE REFS(RSA) FLOWS(SPGOUT); 0386 01219000 * /* @ZA10767*/ 01220000 RRB 0(RSA) RESET REFERENCE BIT 1ST 2K @Z30WPYC 01221000 BC 5,SPGOUT CHANGE - PAGE IT OUT @Z30WPYC 01222000 RRB 2048(RSA) RESET REFERENCE BIT 2ND 2K @Z30WPYC 01223000 BC 5,SPGOUT CHANGE - PAGE IT OUT @Z30WPYC 01224000 * PGTRSA='0009'X; /* STOP RECLAIM CHECKING IN GFA 01225000 * @ZA10767*/ 01226000 MVC PGTRSA(2,PTEPTR),@CB01999 0387 01227000 * GOTO SETAFQ; /* SEND FRAME TO AFQ @ZA10767*/ 01228000 B SETAFQ 0388 01229000 * END; /* END OF INTERCEPTED TEST 0389 01230000 * @Z30WPYC*/ 01231000 * ELSE 0390 01232000 * ; /* FRAME NOT INTERCEPTED @Z30WPYC*/ 01233000 @RF00384 DS 0H 0391 01234000 * 0391 01235000 * /*****************************************************************/ 01236000 * /* */ 01237000 * /* DETERMINE IF PAGE WAS REFERENCED DURING INVALIDATION. IF IT */ 01238000 * /* HAS, REVALIDATE IT AND RESET ALL STEAL INDICATORS. IF FRAME IS*/ 01239000 * /* UNREFERENCED BUT CHANGED, SET UP A PAGE OUT PCB FOR IT. */ 01240000 * /* */ 01241000 * /*****************************************************************/ 01242000 * 0391 01243000 * GEN CODE REFS(RSA) FLOWS(REVAL,SPGOUT,SETNXT2K); 0391 01244000 * 0391 01245000 RRB 0(RSA) RESET REFERENCE BIT FOR 1ST 2K 01246000 BC 3,SETNXT2K REF ON - GO REVAL PAGE @Z30WPYC 01247000 RRB 2048(RSA) RESET REFERENCE BIT FOR 2ND 2K 01248000 BC 3,REVAL REF BIT ON - GO REVALIDATE PAGE 01249000 BC 4,SPGOUT REF BIT OFF - CHANGE BIT ON 01250000 RRB 0(RSA) CHECK CHANGE BIT IN 1ST 2K 01251000 BC 4,SPGOUT CHANGE BIT ON - GO PAGE OUT 01252000 * /*****************************************************************/ 01253000 * /* */ 01254000 * /* THE FRAME HAS NOT BEEN REFERENECED OR CHANGED */ 01255000 * /* */ 01256000 * /*****************************************************************/ 01257000 * 0392 01258000 *SETAFQ: 0392 01259000 * 0392 01260000 * /*****************************************************************/ 01261000 * /* */ 01262000 * /* ENQUEUE THE FRAME TO THE AVAILABLE QUEUE. */ 01263000 * /* */ 01264000 * /*****************************************************************/ 01265000 * 0392 01266000 * R0=INDEX; /* SETUP R0 FOR PFTE INTERFACE TO 01267000 * SEND TO AFQ. DEPENDENCY EXISTS 01268000 * THAT THE AFQ ID BE 0 */ 01269000 SETAFQ LR R0,INDEX 0392 01270000 * CALL IEAVPFTE; /* CALL PFTE ENQ-DEQ */ 01271000 L @15,PVTPFTE(,PVTPTR) 0393 01272000 BALR @14,@15 0393 01273000 * GOTO EXIT; /* RETURN TO CALLER */ 01274000 B EXIT 0394 01275000 *SETNXT2K: 0395 01276000 * GEN CODE REFS(RSA) FLOWS(REVAL); 0395 01277000 SETNXT2K DS 0H 0395 01278000 RRB 2048(RSA) RESET REF BIT 2ND 2K @Z30WPYC 01279000 B REVAL REF ON - GO REVALIDATE PGE @Z30WPYC 01280000 * 0396 01281000 * /*****************************************************************/ 01282000 * /* */ 01283000 * /* INITIALIZE A PCB FOR PAGE OUT TO BE USED LATER BY THE CALL ASM*/ 01284000 * /* SUBROUTINE (RFRASM). */ 01285000 * /* */ 01286000 * /*****************************************************************/ 01287000 * 0396 01288000 *SPGOUT: 0396 01289000 * IF PGOUTERR='0'B THEN /* SEE IF PAGE OUTS CAN BE DONE */ 01290000 SPGOUT TM PGOUTERR(PVTPTR),B'10000000' 0396 01291000 BNZ @RF00396 0396 01292000 * DO; 0397 01293000 * IF PFTVBN>=PVTLQSA THEN /* IF FRAME IS IN QUICK START 0398 01294000 * AREA */ 01295000 CLC PFTVBN(2,PFTEPTR),PVTLQSA(PVTPTR) 0398 01296000 BL @RF00398 0398 01297000 * DO; 0399 01298000 * PGTRSA='0009'X; /* PREVENT RECLAIM */ 01299000 MVC PGTRSA(2,PTEPTR),@CB01999 0400 01300000 * GOTO SETAFQ; /* FREE THE FRAME */ 01301000 B SETAFQ 0401 01302000 * END; 0402 01303000 * R0=1; /* REQUEST 1 PCB */ 01304000 @RF00398 LA R0,1 0403 01305000 * R1=0; /* INDICATE BUILD OPTION */ 01306000 SLR R1,R1 0404 01307000 * RFY 0405 01308000 * R15 RSTD; 0405 01309000 * CALL IEAVPCB; /* CALL PCB MANAGER */ 01310000 L @15,PVTPCB(,PVTPTR) 0406 01311000 BALR @14,@15 0406 01312000 * IF R15^=0 THEN /* CHECK RETURN CODE */ 01313000 LTR R15,R15 0407 01314000 BZ @RF00407 0407 01315000 * DO; 0408 01316000 * IF CVTNIP='0'B THEN /* IF NIP IS IN CONTROL */ 01317000 L @14,CVTPTR 0409 01318000 TM CVTNIP(@14),B'00010000' 0409 01319000 BNZ @RF00409 0409 01320000 * DO; /* DO NOT ISSUE ABEND */ 01321000 * RCARCRD='0E'X; /* SET REASON CODE */ 01322000 L @14,RCAPTR(,PVTPTR) 0411 01323000 MVI RCARCRD(@14),X'0E' 0411 01324000 * GEN REFS(R1) SETS(R1); 0412 01325000 ABEND X'C0D',,,SYSTEM INVOKE THE FRR ROUTINE 01326000 * END; 0413 01327000 * PGOUTERR='1'B; /* INHIBIT FURTHER PAGE OUTS */ 01328000 @RF00409 OI PGOUTERR(PVTPTR),B'10000000' 0414 01329000 * GOTO REVAL; /* REVALIDATE THE PAGE AND CLEAR 01330000 * THE STEAL INDICATORS */ 01331000 B REVAL 0415 01332000 * END; 0416 01333000 * RFY 0417 01334000 * R15 UNRSTD; 0417 01335000 @RF00407 DS 0H 0418 01336000 * RESPECIFY 0418 01337000 * (PCBPTR) RESTRICTED; /* @Z30WPYC*/ 01338000 * PCBPTR=R1; /* ESTABLISH THE PCB ADDRESS */ 01339000 LR PCBPTR,R1 0419 01340000 * PCBIOI='1'B; /* SET PAGE OUT BIT */ 01341000 OI PCBIOI(PCBPTR),B'00000010' 0420 01342000 * PCBFREAL='1'B; /* FREE REAL FRAME WHEN COMPLETE */ 01343000 OI PCBFREAL(PCBPTR),B'10000000' 0421 01344000 * PCBASCB=RSMASCB; /* SET ASCB ADDRESS */ 01345000 L @12,RSMASCB(,RSMHDPTR) 0422 01346000 ST @12,PCBASCB(,PCBPTR) 0422 01347000 * PCBRBN=INDEX; /* SET RBN VALUE */ 01348000 STH INDEX,PCBRBN(,PCBPTR) 0423 01349000 * PCBVBN=PFTVBN; /* SET VBN VALUE */ 01350000 MVC PCBVBN(2,PCBPTR),PFTVBN(PFTEPTR) 0424 01351000 * PCBPGTA=PTEPTR; /* SET PGTE ADDRESS */ 01352000 STCM PTEPTR,7,PCBPGTA(PCBPTR) 0425 01353000 * PCBXPTA=XPTEPTR; /* SET XPTE ADDRESS */ 01354000 STCM XPTEPTR,7,PCBXPTA(PCBPTR) 0426 01355000 * AIAWRITE='1'B; /* INDICATE PAGE OUT @Z40WPYC*/ 01356000 OI AIAWRITE(PCBPTR),B'10000000' 0427 01357000 * IF PFTQNDX=PFTLFQN THEN /* PFTE ON LFQ @Z40WPYC*/ 01358000 CLI PFTQNDX(PFTEPTR),X'80' 0428 01359000 BNE @RF00428 0428 01360000 * AIAPRIV='1'B; /* YES - INDICATE PRIVATE AREA 0429 01361000 * PAGE. @Z40WPYC*/ 01362000 OI AIAPRIV(PCBPTR),B'01000000' 0429 01363000 * ELSE 0430 01364000 * ; /* NOT PRIVATE AREA. @Z40WPYC*/ 01365000 @RF00428 DS 0H 0431 01366000 * RFY 0431 01367000 * RSA UNRSTD; 0431 01368000 * PFTPCBSI='1'B; /* SET PCB DEFINED BIT IN THE 0432 01369000 * PFTE */ 01370000 OI PFTPCBSI(PFTEPTR),B'00001000' 0432 01371000 * 0433 01372000 * /*************************************************************/ 01373000 * /* */ 01374000 * /* INITIALIZE THE REQUIRED XPTE FIELDS */ 01375000 * /* */ 01376000 * /*************************************************************/ 01377000 * 0433 01378000 * XPTXAV='1'B; /* SET AUX VALID FLAG @Z40WPYC*/ 01379000 OI XPTXAV(XPTEPTR),B'01000000' 0433 01380000 * 0434 01381000 * /*************************************************************/ 01382000 * /* */ 01383000 * /* CHAIN THE AIA INTO THE INTERNAL AIA CHAIN AND PLACE THE */ 01384000 * /* PCB ON EITHER THE INTERNAL CIOQ OR LIOQ QUEUE. THESE WILL */ 01385000 * /* BE MOVED TO THE NORMAL SYSTEM QUEUES PRIOR TO CALLING ASM.*/ 01386000 * /* */ 01387000 * /*************************************************************/ 01388000 * 0434 01389000 * AIANXAIA=AIAQUEUE; /* FORWARD CHAIN THE AIA TO THE 01390000 * LAST ONE CREATED, IF ANY */ 01391000 L @12,AIAQUEUE(,PVTPTR) 0434 01392000 ST @12,AIANXAIA(,PCBPTR) 0434 01393000 * AIAQUEUE=ADDR(PCBAIA); /* SET THE INTERNAL AIA QUEUE 0435 01394000 * ANCHOR TO THE ONE JUST 0435 01395000 * PROCESSED */ 01396000 LA @12,PCBAIA(,PCBPTR) 0435 01397000 ST @12,AIAQUEUE(,PVTPTR) 0435 01398000 * IF PFTQNDXPCBBQPA=PCBPTR;/* BACKWARD CHAIN LAST PCB 01418000 * TO THE ONE JUST CREATED */ 01419000 ST PCBPTR,PCBBQPA(,@12) 0441 01420000 * END; 0442 01421000 * CIOQUEUE=PCBPTR; /* MAKE CURRENT PCB THE NEW 0443 01422000 * ANCHOR */ 01423000 @RF00438 ST PCBPTR,CIOQUEUE(,PVTPTR) 0443 01424000 * PVTNPOUT=PVTNPOUT+1; /* NUMBER PAGES PAGED OUT */ 01425000 LA @12,1 0444 01426000 L @11,PVTNPOUT(,PVTPTR) 0444 01427000 ALR @11,@12 0444 01428000 ST @11,PVTNPOUT(,PVTPTR) 0444 01429000 * PVTCAOUT=PVTCAOUT+1; /* NUMBER C.A. PAGES PAGED OUT */ 01430000 AL @12,PVTCAOUT(,PVTPTR) 0445 01431000 ST @12,PVTCAOUT(,PVTPTR) 0445 01432000 * END; /* END COMMON AREA CHAINING */ 01433000 * ELSE /* PRIVATE AREA CHAIN */ 01434000 * DO; 0447 01435000 * 0447 01436000 B @RC00436 0447 01437000 @RF00436 DS 0H 0448 01438000 * /*********************************************************/ 01439000 * /* */ 01440000 * /* CHAIN THE PCB TO THE INTERNAL LIOQ AND UPDATE THE PAGE*/ 01441000 * /* OUT COUNTS FOR PRIVATE AREA PAGES */ 01442000 * /* */ 01443000 * /*********************************************************/ 01444000 * 0448 01445000 * IF LIOQUEUE^=0 THEN /* IS ANCHOR NOW ZERO */ 01446000 L @12,LIOQUEUE(,PVTPTR) 0448 01447000 LTR @12,@12 0448 01448000 BZ @RF00448 0448 01449000 * DO; /* NO - ADJUST POINTERS */ 01450000 * PCBFQPA=LIOQUEUE; /* FORWARD CHAIN CURRENT TO LAST */ 01451000 STCM @12,7,PCBFQPA(PCBPTR) 0450 01452000 * LIOQUEUE->PCBBQPA=PCBPTR;/* BACKWARD CHAIN LAST PCB 01453000 * TO THE ONE JUST CREATED */ 01454000 ST PCBPTR,PCBBQPA(,@12) 0451 01455000 * END; 0452 01456000 * LIOQUEUE=PCBPTR; /* MAKE CURRENT PCB THE NEW 0453 01457000 * ANCHOR */ 01458000 @RF00448 ST PCBPTR,LIOQUEUE(,PVTPTR) 0453 01459000 * IF XPTVIO='1'B THEN /* IF FRAME IS IN VIO WINDOW 0454 01460000 * @Z40WPYC*/ 01461000 TM XPTVIO(XPTEPTR),B'00001000' 0454 01462000 BNO @RF00454 0454 01463000 * DO; /* UPDATE VIO COUNTS */ 01464000 * PVTVAMO=PVTVAMO+1; /* NUMBER OF VIO PAGE OUTS */ 01465000 LA @12,1 0456 01466000 L @11,PVTVAMO(,PVTPTR) 0456 01467000 ALR @11,@12 0456 01468000 ST @11,PVTVAMO(,PVTPTR) 0456 01469000 * OUXBVAMO=OUXBVAMO+1;/* NUMBER OF P.A. VIO PAGE OUTS */ 01470000 L @11,PSAAOLD 0457 01471000 L @11,OUXBPTR(,@11) 0457 01472000 AL @12,OUXBVAMO(,@11) 0457 01473000 ST @12,OUXBVAMO(,@11) 0457 01474000 * END; 0458 01475000 * ELSE /* NOT A VIO FRAME */ 01476000 * DO; /* UPDATE LOCAL PAGE OUT COUNTS */ 01477000 B @RC00454 0459 01478000 @RF00454 DS 0H 0460 01479000 * PVTNPOUT=PVTNPOUT+1;/* NUMBER PAGES PAGED OUT */ 01480000 LA @12,1 0460 01481000 L @11,PVTNPOUT(,PVTPTR) 0460 01482000 ALR @11,@12 0460 01483000 ST @11,PVTNPOUT(,PVTPTR) 0460 01484000 * OUXBPOUT=OUXBPOUT+1;/* NUMBER P.A. PAGES PAGED OUT */ 01485000 L @11,PSAAOLD 0461 01486000 L @11,OUXBPTR(,@11) 0461 01487000 AL @12,OUXBPOUT(,@11) 0461 01488000 ST @12,OUXBPOUT(,@11) 0461 01489000 * END; 0462 01490000 * END; /* END PRIVATE AREA CHAINING */ 01491000 @RC00454 DS 0H 0464 01492000 * RFY 0464 01493000 * XPTEPTR UNRSTD; 0464 01494000 @RC00436 DS 0H 0465 01495000 * IF PFTVRINT='1'B|PFTOFINT='1'B THEN/* IF FRAME IS MARKED 0465 01496000 * INTERCEPTED, */ 01497000 TM PFTVRINT(PFTEPTR),B'01000001' 0465 01498000 BZ @RF00465 0465 01499000 * DO; /* @ZA03848*/ 01500000 * PCBNOREC='1'B; /* TELL GFA TO DEFER ANY PAGEINS 01501000 * FOR THIS VBN. @Z40WPYC*/ 01502000 OI PCBNOREC(PCBPTR),B'00000100' 0467 01503000 * END; /* @ZA03848*/ 01504000 * END; /* END OF PCB INITIALIZATION */ 01505000 * ELSE /* NO PCBS AVAILABLE FOR PAGE 0470 01506000 * OUTS */ 01507000 * DO; 0470 01508000 * 0470 01509000 B @RC00396 0470 01510000 @RF00396 DS 0H 0471 01511000 * /*************************************************************/ 01512000 * /* */ 01513000 * /* BACK OUT PROCESSING - REVALIDATE THE PAGE AND TURN OFF ALL*/ 01514000 * /* STEAL INDICATORS */ 01515000 * /* */ 01516000 * /*************************************************************/ 01517000 * 0471 01518000 *REVAL: /* REVALIDATE THE PGTE */ 01519000 * PGTPVM='0'B; /* ZERO THE INVALID BIT */ 01520000 REVAL NI PGTPVM(PTEPTR),B'11110111' 0471 01521000 *NOSTEAL: /* TO MAKE THE FRAME APPEAR TO BE 01522000 * A NORMAL LFQ FRAME, ZERO THE 01523000 * UNREFERENCED INTERVAL COUNT 0472 01524000 * AND TURN OFF THE PENDING STEAL 01525000 * BIT */ 01526000 * PFTSTEAL='0'B; /* TURN OFF STEAL BIT */ 01527000 NOSTEAL NI PFTSTEAL(PFTEPTR),B'11110111' 0472 01528000 * PFTUIC=0; /* SET UIC COUNT TO ZERO */ 01529000 MVI PFTUIC(PFTEPTR),X'00' 0473 01530000 * R0=0; /* CLEAR REG @Z30WPYC*/ 01531000 SLR R0,R0 0474 01532000 * R0=PFTQNDX; /* INDICATE THE QUEUE THIS FRAME 01533000 * IS ON. @Z30WPYC*/ 01534000 SLR R0,R0 0475 01535000 IC R0,PFTQNDX(,PFTEPTR) 0475 01536000 * SLL(R0,16); /* SET TO CORRECT POSITION 0476 01537000 * @Z30WPYC*/ 01538000 SLL R0,16 0476 01539000 * R0=(R0|INDEX); /* SET THE RBN @Z30WPYC*/ 01540000 OR R0,INDEX 0477 01541000 * R1=PSAAOLD; /* SET ASCB ADDR @Z30WPYC*/ 01542000 L R1,PSAAOLD 0478 01543000 * CALL IEAVPFTE; /* ENQUEUE THE FRAME TO THE END 01544000 * OF THE FRAME ITS ON NOW 0479 01545000 * @Z30WPYC*/ 01546000 L @15,PVTPFTE(,PVTPTR) 0479 01547000 BALR @14,@15 0479 01548000 * END; /* END BACKOUT PROCESSING */ 01549000 * RESPECIFY 0481 01550000 * (INDEX, 0481 01551000 * PTEPTR) UNRESTRICTED; /* @Z30WPYC*/ 01552000 * 0481 01553000 @RC00396 DS 0H 0482 01554000 * /*****************************************************************/ 01555000 * /* */ 01556000 * /* RESTORE REGISTERS 1 TO 14 AND EXIT FROM FREEPAGE */ 01557000 * /* */ 01558000 * /*****************************************************************/ 01559000 * 0482 01560000 *EXIT: 0482 01561000 * GEN CODE EXIT NOSEQFLOW REFS(PVTPTR,FREESAVE); 0482 01562000 EXIT DS 0H 0482 01563000 LM R1,R14,FREESAVE(PVTPTR) RESTORE INPUT REGISTERS 01564000 BR R14 RETURN TO CALLER 01565000 * 0483 01566000 * /*****************************************************************/ 01567000 * /* */ 01568000 * /* RFRASM - CALL ASM SUBROUTINE */ 01569000 * /* */ 01570000 * /*****************************************************************/ 01571000 * 0483 01572000 */* */ 01573000 * 0483 01574000 * /*****************************************************************/ 01575000 * /* */ 01576000 * /* THIS INTERNAL SUBROUTINE IS CALLED BY EITHER SELECT OR STEAL. */ 01577000 * /* ITS FUNCTION IS TO ENQUEUE THE PCBS TO THE SYSTEM IO QUEUES */ 01578000 * /* AND CALL ASM TO START THE PAGE OUT IO. */ 01579000 * /* */ 01580000 * /*****************************************************************/ 01581000 * 0483 01582000 *RFRASM: 0483 01583000 * 0483 01584000 */********************************************************************/ 01585000 */* INPUT: */ 01586000 */* R9= BASE REGISTER */ 01587000 */* R10= SAVEAREA ADDR IF FROM SELECT-IF STEAL UNDETERMINED */ 01588000 */* R14= RETURN ADDRESS */ 01589000 */* OUTPUT: */ 01590000 */* R9, R10 AND R14 WILL BE THE SAME AS INPUT */ 01591000 */********************************************************************/ 01592000 * 0483 01593000 * RFY 0483 01594000 * (R14, 0483 01595000 * R9, 0483 01596000 * R10) RESTRICTED; 0483 01597000 RFRASM DS 0H 0484 01598000 * RETURNAD=R14; /* SAVE THE CALLERS RETURN ADDR 01599000 * IN PVTWSA15 */ 01600000 ST R14,RETURNAD(,PVTPTR) 0484 01601000 * RFY 0485 01602000 * (R14) UNRESTRICTED; 0485 01603000 * 0485 01604000 * /*****************************************************************/ 01605000 * /* */ 01606000 * /* ENQUEUE THE PCBS */ 01607000 * /* */ 01608000 * /*****************************************************************/ 01609000 * 0486 01610000 * RSMHDPTR=PSAAOLD->ASCBRSM; /* SET RSMHD PTR FOR ASM @Z40WPYC*/ 01611000 L @12,PSAAOLD 0486 01612000 L RSMHDPTR,ASCBRSM(,@12) 0486 01613000 * IF CIOQUEUE^=0 THEN /* CHECK INTERNAL CIOQ FOR PCBS */ 01614000 L @12,CIOQUEUE(,PVTPTR) 0487 01615000 LTR @12,@12 0487 01616000 BZ @RF00487 0487 01617000 * DO; /* AND ENQ ANY THAT EXIST TO THE 01618000 * SYSTEM CIOQ */ 01619000 * R0=PCBCIOQN; /* SET THE CIOQ QUEUE NUMBER */ 01620000 LA R0,32 0489 01621000 * R1=CIOQUEUE; /* POINT TO ANCHOR OF INTERNAL 0490 01622000 * CHAIN */ 01623000 LR R1,@12 0490 01624000 * CALL IEAVPCB; /* CALL PCB MANAGER TO ENQ CHAIN */ 01625000 L @15,PVTPCB(,PVTPTR) 0491 01626000 BALR @14,@15 0491 01627000 * END; 0492 01628000 * IF LIOQUEUE^=0 THEN /* CHECK INTERNAL LIOQ ALSO */ 01629000 @RF00487 L @12,LIOQUEUE(,PVTPTR) 0493 01630000 LTR @12,@12 0493 01631000 BZ @RF00493 0493 01632000 * DO; /* AND ENQ ANY THE EXIST THERE */ 01633000 * R0=PCBLIOQN; /* SET QUEUE NUMBER FOR LIOQ */ 01634000 LA R0,136 0495 01635000 * R1=LIOQUEUE; /* POINT TO LIOQ ANCHOR */ 01636000 LR R1,@12 0496 01637000 * CALL IEAVPCB; /* CALL PCB MANAGER TO ENQ THEM */ 01638000 L @15,PVTPCB(,PVTPTR) 0497 01639000 BALR @14,@15 0497 01640000 * END; 0498 01641000 * 0499 01642000 * /*****************************************************************/ 01643000 * /* */ 01644000 * /* ISSUE THE ILRCALL MACRO TO START THE PAGE OUT IO */ 01645000 * /* */ 01646000 * /*****************************************************************/ 01647000 * 0499 01648000 *ASMCALL: /* CALL ASM @Z40WPYC*/ 01649000 * R1=AIAQUEUE; /* FIRST AIA FOR ASM @Z40WPYC*/ 01650000 @RF00493 DS 0H 0499 01651000 ASMCALL L R1,AIAQUEUE(,PVTPTR) 0499 01652000 * CALL ILRPAGIO; /* CALL ILRPAGIO TO INITIATE THE 01653000 * START OF THE OUTPUT I/O. 0500 01654000 * @Z40WPYC*/ 01655000 * 0500 01656000 L @15,PVTPAGIO(,PVTPTR) 0500 01657000 BALR @14,@15 0500 01658000 * /*****************************************************************/ 01659000 * /* */ 01660000 * /* CHECK THE RETURN CODE FROM ASM AND EXIT IF SUCCESSFUL */ 01661000 * /* */ 01662000 * /*****************************************************************/ 01663000 * 0501 01664000 * RFY 0501 01665000 * (R1, 0501 01666000 * R15) RSTD; 0501 01667000 * IF R15=0 THEN /* IF CALL WAS SUCCESSFUL */ 01668000 LTR R15,R15 0502 01669000 BNZ @RF00502 0502 01670000 *ASMEXIT: /* EXIT */ 01671000 * DO; 0503 01672000 ASMEXIT DS 0H 0504 01673000 * RFY 0504 01674000 * (R14) RESTRICTED; 0504 01675000 * R14=RETURNAD; /* RESTORE REGISTER 14 */ 01676000 L R14,RETURNAD(,PVTPTR) 0505 01677000 * GOTO R14; /* RETURN TO CALLER */ 01678000 BR R14 0506 01679000 * RFY 0507 01680000 * (R14) UNRESTRICTED; 0507 01681000 * END; 0508 01682000 * 0509 01683000 * /*****************************************************************/ 01684000 * /* */ 01685000 * /* IF THE ILRCALL WAS NOT SUCCESSFUL, RECORD THE ERROR VIA THE */ 01686000 * /* FRR ROUTINE, RESET ALL STEAL AND IO INDICATORS IN THE */ 01687000 * /* ASSOCIATED PFTE, REVALIDATE THE PAGE, FREE THE FAILING PCB, */ 01688000 * /* AND RESTART THE IO WITH THE NEXT AIA. ASM RETURNS THE ADDRESS */ 01689000 * /* OF THE FAILING AIA IN REGISTER 1. */ 01690000 * /* */ 01691000 * /*****************************************************************/ 01692000 * 0509 01693000 * PCBPTR=R1-LENGTH(PCB)+LENGTH(PCBAIA);/* GET THE ADDRESS OF THE 0509 01694000 * PCB WHICH THE IO FAILED FOR BY 01695000 * ADJUSTING ITS AIA ADDRESS */ 01696000 @RF00502 LR PCBPTR,R1 0509 01697000 AL PCBPTR,@CF02016 0509 01698000 * IF CVTNIP='0'B THEN /* IF NIP IS IN CONTROL */ 01699000 L @14,CVTPTR 0510 01700000 TM CVTNIP(@14),B'00010000' 0510 01701000 BNZ @RF00510 0510 01702000 * DO; /* DO NOT ISSUE ABEND */ 01703000 * PVTPRCA->RCARCRD='04'X; /* INDICATE ILRCALL ERROR */ 01704000 L @14,PVTPRCA(,PVTPTR) 0512 01705000 MVI RCARCRD(@14),X'04' 0512 01706000 * GEN CODE SETS(R1); 0513 01707000 ABEND X'C0D',,,SYSTEM INVOKE THE FRR ROUTINE 01708000 * END; 0514 01709000 * RFY 0515 01710000 * R15 UNRSTD; 0515 01711000 * 0515 01712000 @RF00510 DS 0H 0516 01713000 * /*****************************************************************/ 01714000 * /* */ 01715000 * /* RESET STEAL AND PCB DEFINED INDICATORS IN THE PFTE */ 01716000 * /* */ 01717000 * /*****************************************************************/ 01718000 * 0516 01719000 * PFTEPTR=PVTPFTP+PCBRBN; /* GET ADDRESS OF THE FRAMES PFTE*/ 01720000 LH PFTEPTR,PCBRBN(,PCBPTR) 0516 01721000 N PFTEPTR,@CF01963 0516 01722000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0516 01723000 * PFTPCBSI='0'B; /* TURN OFF THE PCB DEFINED BIT */ 01724000 NI PFTPCBSI(PFTEPTR),B'11110111' 0517 01725000 * PFTSTEAL='0'B; /* TURN OFF THE PENDING STEAL BIT*/ 01726000 NI PFTSTEAL(PFTEPTR),B'11110111' 0518 01727000 * 0519 01728000 * /*****************************************************************/ 01729000 * /* */ 01730000 * /* RESET VALIDITY FLAGS IN THE PAGE TABLES OF THE FAILING PAGE */ 01731000 * /* */ 01732000 * /*****************************************************************/ 01733000 * 0519 01734000 * RFY 0519 01735000 * (PTEPTR, 0519 01736000 * XPTEPTR) RSTD; 0519 01737000 * PTEPTR=PCBPGTA; /* GET THE ADDRESS OF THE PGTE */ 01738000 L PTEPTR,PCBPGTA-1(,PCBPTR) 0520 01739000 LA PTEPTR,0(,PTEPTR) 0520 01740000 * XPTEPTR=PCBXPTA; /* GET THE ADDRESS OF THE XPTE */ 01741000 L XPTEPTR,PCBXPTA-1(,PCBPTR) 0521 01742000 LA XPTEPTR,0(,XPTEPTR) 0521 01743000 * PGTPVM='0'B; /* REVALIDATE THE PGTE */ 01744000 NI PGTPVM(PTEPTR),B'11110111' 0522 01745000 * XPTXAV='0'B; /* ZERO THE AUX STORAGE VALID 0523 01746000 * FLAG */ 01747000 * 0523 01748000 NI XPTXAV(XPTEPTR),B'10111111' 0523 01749000 * /*****************************************************************/ 01750000 * /* */ 01751000 * /* FREE THE FAILING PCB AND RESTART THE IO IF NEEDED */ 01752000 * /* */ 01753000 * /*****************************************************************/ 01754000 * 0524 01755000 * AIAQUEUE=AIANXAIA; /* ADJUST THE AIA ANCHOR TO 0524 01756000 * RESTART THE IO */ 01757000 L @12,AIANXAIA(,PCBPTR) 0524 01758000 ST @12,AIAQUEUE(,PVTPTR) 0524 01759000 * R0=PCBFREQN; /* SET UP TO FREE THE FAILING PCB*/ 01760000 LA R0,16 0525 01761000 * R1=PCBPTR; /* PASS ITS ADDRESS TO THE PCB 0526 01762000 * MANAGER */ 01763000 LR R1,PCBPTR 0526 01764000 * CALL IEAVPCB; /* FREE THE PCB */ 01765000 L @15,PVTPCB(,PVTPTR) 0527 01766000 BALR @14,@15 0527 01767000 * IF AIAQUEUE^=0 THEN /* DETERMINE IF THE IO MUST BE 0528 01768000 * RESTARTED */ 01769000 L @12,AIAQUEUE(,PVTPTR) 0528 01770000 LTR @12,@12 0528 01771000 BNZ @RT00528 0528 01772000 * GOTO ASMCALL; /* AND TRY AGAIN IF REQUIRED */ 01773000 * ELSE /* EXIT IF FAILURE OCCURRED */ 01774000 * GOTO ASMEXIT; /* ON THE LAST PCB */ 01775000 B ASMEXIT 0530 01776000 * END IEAVRFR 0531 01777000 * 0531 01778000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01779000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01780000 */*%INCLUDE SYSLIB (ILRASMVT) */ 01781000 */*%INCLUDE SYSLIB (CVT ) */ 01782000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01783000 */*%INCLUDE SYSLIB (IHAOUXB ) */ 01784000 */*%INCLUDE SYSLIB (IHAPCB ) */ 01785000 */*%INCLUDE SYSLIB (ILRAIA ) */ 01786000 */*%INCLUDE SYSLIB (IHAPFTE ) */ 01787000 */*%INCLUDE SYSLIB (IHAPGTE ) */ 01788000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01789000 */*%INCLUDE SYSLIB (IHAPVT ) */ 01790000 */*%INCLUDE SYSLIB (IHARCA ) */ 01791000 */*%INCLUDE SYSLIB (IHARSMHD) */ 01792000 */*%INCLUDE SYSLIB (IHASRB ) */ 01793000 */*%INCLUDE SYSLIB (IHAXPTE ) */ 01794000 * 0531 01795000 * ; 0531 01796000 @DATA DS 0H 01797000 DS 0F 01798000 DS 0F 01799000 @CF00063 DC F'1' 01800000 @CF00056 DC F'8' 01801000 @CF02016 DC F'-36' 01802000 @CF01963 DC XL4'0000FFFF' 01803000 DS 0D 01804000 BACKMASK DC XL4'0000FFFF' 01805000 @CC01984 DC C'SRB ' 01806000 @CB01999 DC X'0009' 01807000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01808000 @01 EQU 01 01809000 @02 EQU 02 01810000 @03 EQU 03 01811000 @04 EQU 04 01812000 @05 EQU 05 01813000 @06 EQU 06 01814000 @07 EQU 07 01815000 @08 EQU 08 01816000 @09 EQU 09 01817000 @10 EQU 10 01818000 @11 EQU 11 01819000 @12 EQU 12 01820000 @13 EQU 13 01821000 @14 EQU 14 01822000 @15 EQU 15 01823000 PCBPTR EQU @07 01824000 PFTEPTR EQU @04 01825000 PTEPTR EQU @10 01826000 PVTPTR EQU @03 01827000 RSMHDPTR EQU @02 01828000 SRBPTR EQU @01 01829000 XPTEPTR EQU @05 01830000 R0 EQU @00 01831000 R1 EQU @01 01832000 FQPTR EQU @01 01833000 R3 EQU @03 01834000 BACKQ EQU @03 01835000 PARMPTR EQU @05 01836000 R6 EQU @06 01837000 INDEX EQU @06 01838000 R7 EQU @07 01839000 STEALCNT EQU @07 01840000 R8 EQU @08 01841000 STARTQ EQU @08 01842000 R9 EQU @09 01843000 R10 EQU @10 01844000 ENDQ EQU @10 01845000 R11 EQU @11 01846000 RSA EQU @11 01847000 R12 EQU @12 01848000 LRBNSAV EQU @12 01849000 R13 EQU @13 01850000 QHDRPTR EQU @13 01851000 R14 EQU @14 01852000 WORKREG EQU @14 01853000 R15 EQU @15 01854000 PTRPFT EQU @15 01855000 R2 EQU @02 01856000 R4 EQU @04 01857000 R5 EQU @05 01858000 PSA EQU 0 01859000 FLCRNPSW EQU PSA 01860000 FLCROPSW EQU PSA+8 01861000 FLCICCW2 EQU PSA+16 01862000 FLCCVT EQU FLCICCW2 01863000 PSAEEPSW EQU PSA+132 01864000 PSAESPSW EQU PSA+136 01865000 FLCSVILC EQU PSAESPSW+1 01866000 PSAEPPSW EQU PSA+140 01867000 FLCPIILC EQU PSAEPPSW+1 01868000 FLCPICOD EQU PSAEPPSW+2 01869000 PSAPICOD EQU FLCPICOD+1 01870000 FLCTEA EQU PSAEPPSW+4 01871000 FLCPER EQU PSA+152 01872000 FLCMCLA EQU PSA+168 01873000 FLCIOEL EQU FLCMCLA+4 01874000 FLCIOA EQU FLCMCLA+16 01875000 FLCFSA EQU FLCMCLA+80 01876000 PSAAOLD EQU PSA+548 01877000 PSASUPER EQU PSA+552 01878000 PSASUP1 EQU PSASUPER 01879000 PSASUP2 EQU PSASUPER+1 01880000 PSASUP3 EQU PSASUPER+2 01881000 PSASUP4 EQU PSASUPER+3 01882000 PSACLHT EQU PSA+640 01883000 PSALKSA EQU PSA+696 01884000 PSAHLHI EQU PSA+760 01885000 PSALITA EQU PSA+764 01886000 PSADSSFL EQU PSA+836 01887000 PSADSSF1 EQU PSADSSFL 01888000 PSADSSF3 EQU PSADSSFL+2 01889000 PSADSSF4 EQU PSADSSFL+3 01890000 PSARSVT EQU PSA+896 01891000 PSALSFCC EQU PSA+1012 01892000 ASCB EQU 0 01893000 ASCBSUPC EQU ASCB+16 01894000 ASCBASID EQU ASCB+36 01895000 ASCBRSM EQU ASCB+52 01896000 ASCBRSMF EQU ASCBRSM 01897000 ASCBFW1 EQU ASCB+100 01898000 ASCBRCTF EQU ASCBFW1+2 01899000 ASCBFLG1 EQU ASCBFW1+3 01900000 ASCBDSP1 EQU ASCB+114 01901000 ASCBFLG2 EQU ASCB+115 01902000 ASCBLKGP EQU ASCB+128 01903000 ASCBOUXB EQU ASCB+148 01904000 ASCBSRQ EQU ASCB+180 01905000 ASCBSRQ1 EQU ASCBSRQ 01906000 ASCBSRQ2 EQU ASCBSRQ+1 01907000 ASCBSRQ3 EQU ASCBSRQ+2 01908000 ASCBSRQ4 EQU ASCBSRQ+3 01909000 ASMVT EQU 0 01910000 ASMFLAG1 EQU ASMVT 01911000 ASMFLAG2 EQU ASMVT+1 01912000 ASMSTAGQ EQU ASMVT+32 01913000 ASMPCCWQ EQU ASMVT+64 01914000 ASMLSAI EQU ASMVT+144 01915000 ASMGOSQS EQU ASMVT+152 01916000 ASMWKSA1 EQU ASMVT+368 01917000 ASMWKSA2 EQU ASMVT+448 01918000 ASMWKSA3 EQU ASMVT+528 01919000 ASMWKSA4 EQU ASMVT+608 01920000 ASMWKSA5 EQU ASMVT+688 01921000 ASMPOOLS EQU 0 01922000 ASMCPAVQ EQU ASMPOOLS+8 01923000 ASMCPRSQ EQU ASMPOOLS+16 01924000 CVTMAP EQU 0 01925000 CVTDAR EQU CVTMAP+72 01926000 CVTFLGS1 EQU CVTDAR 01927000 CVTDCB EQU CVTMAP+116 01928000 CVTIOQET EQU CVTMAP+120 01929000 CVTIERLC EQU CVTMAP+144 01930000 CVTHEAD EQU CVTMAP+160 01931000 CVTSV76C EQU CVTHEAD 01932000 CVTOPTA EQU CVTMAP+182 01933000 CVTNIP EQU CVTOPTA 01934000 CVTOPTB EQU CVTMAP+183 01935000 CVTGTF EQU CVTMAP+236 01936000 CVTGTFST EQU CVTGTF 01937000 CVTGTFS EQU CVTGTFST 01938000 CVTSTATE EQU CVTGTFST 01939000 CVTTMODE EQU CVTGTFST 01940000 CVTFORM EQU CVTGTFST 01941000 CVTAQAVT EQU CVTMAP+240 01942000 CVTTCMFG EQU CVTAQAVT 01943000 CVTVOLM2 EQU CVTMAP+244 01944000 CVTTATA EQU CVTVOLM2 01945000 CVTTSKS EQU CVTTATA 01946000 CVTVOLF2 EQU CVTTSKS 01947000 CVTTAT EQU CVTTATA+1 01948000 CVTATER EQU CVTMAP+248 01949000 CVTEXT1 EQU CVTMAP+252 01950000 CVTPURG EQU CVTMAP+260 01951000 CVTQMSG EQU CVTMAP+268 01952000 CVTDMSR EQU CVTMAP+272 01953000 CVTRSV37 EQU CVTDMSR 01954000 CVTDMSRF EQU CVTRSV37 01955000 CVTERPV EQU CVTMAP+316 01956000 CVTINTLA EQU CVTMAP+320 01957000 CVTAPF EQU CVTMAP+324 01958000 CVTEXT2 EQU CVTMAP+328 01959000 CVTHJES EQU CVTMAP+332 01960000 CVTPGSIA EQU CVTMAP+348 01961000 CVTA1F1 EQU CVTMAP+356 01962000 CVTSYSK EQU CVTMAP+357 01963000 CVTVOLM1 EQU CVTMAP+380 01964000 CVTVOLF1 EQU CVTVOLM1 01965000 CVTXTNT1 EQU 0 01966000 CVTXTNT2 EQU 0 01967000 CVTDSSV EQU CVTXTNT2 01968000 CVTFLGBT EQU CVTXTNT2+5 01969000 CVTQID EQU CVTXTNT2+24 01970000 CVTRV400 EQU CVTXTNT2+52 01971000 CVTRV409 EQU CVTXTNT2+53 01972000 CVTATCVT EQU CVTXTNT2+64 01973000 CVTRV429 EQU CVTXTNT2+84 01974000 CVTRV438 EQU CVTXTNT2+85 01975000 CVTRV457 EQU CVTXTNT2+112 01976000 CVTRV466 EQU CVTXTNT2+113 01977000 CVTFIX EQU 0 01978000 CVTRELNO EQU CVTFIX+252 01979000 FRRS EQU 0 01980000 FRRSHEAD EQU FRRS 01981000 FRRSEMP EQU FRRSHEAD 01982000 FRRSLAST EQU FRRSHEAD+4 01983000 FRRSELEN EQU FRRSHEAD+8 01984000 FRRSCURR EQU FRRSHEAD+12 01985000 FRRSENTR EQU 0 01986000 FRRSFRRA EQU FRRSENTR 01987000 FRRSFLGS EQU FRRSENTR+4 01988000 FRRSFLG1 EQU FRRSFLGS 01989000 FRRSPARM EQU FRRSENTR+8 01990000 OUXB EQU 0 01991000 OUXBPOUT EQU OUXB+20 01992000 OUXBVAMO EQU OUXB+32 01993000 OUXBUIC EQU OUXB+134 01994000 PCB EQU 0 01995000 PCBFQP EQU PCB 01996000 PCBFQPA EQU PCBFQP+1 01997000 PCBBQP EQU PCB+4 01998000 PCBBQPA EQU PCBBQP 01999000 PCBRTP EQU PCB+8 02000000 PCBFL1 EQU PCBRTP 02001000 PCBIOI EQU PCBFL1 02002000 PCBRLP EQU PCB+12 02003000 PCBXPT EQU PCB+16 02004000 PCBFL2 EQU PCBXPT 02005000 PCBFREAL EQU PCBFL2 02006000 PCBXPTA EQU PCBXPT+1 02007000 PCBPGT EQU PCB+20 02008000 PCBFL3 EQU PCBPGT 02009000 PCBNOREC EQU PCBFL3 02010000 PCBPGTA EQU PCBPGT+1 02011000 PCBRBN EQU PCB+24 02012000 PCBVBN EQU PCB+26 02013000 PCBBLOCK EQU PCB+28 02014000 PCBSRB EQU PCBBLOCK 02015000 PCBRB EQU PCBSRB 02016000 PCBASCB EQU PCB+32 02017000 PCBAIA EQU PCB+36 02018000 PFTE EQU 0 02019000 PFTPGID EQU PFTE 02020000 PFTVBN EQU PFTPGID+2 02021000 PFTQPTRS EQU PFTE+4 02022000 PFTFQPTR EQU PFTQPTRS 02023000 PFTBQPTR EQU PFTQPTRS+2 02024000 PFTFXCT EQU PFTE+8 02025000 PFTFLAGS EQU PFTE+12 02026000 PFTFLAG1 EQU PFTFLAGS 02027000 PFTVRINT EQU PFTFLAG1 02028000 PFTPCBSI EQU PFTFLAG1 02029000 PFTBADPG EQU PFTFLAG1 02030000 PFTVRALC EQU PFTFLAG1 02031000 PFTOFINT EQU PFTFLAG1 02032000 PFTFLAG2 EQU PFTFLAGS+1 02033000 PFTIRRG EQU PFTFLAG2 02034000 PFTSTEAL EQU PFTFLAG2 02035000 PFTQNDX EQU PFTE+14 02036000 PFTUIC EQU PFTE+15 02037000 PGTPTE EQU 0 02038000 PGTRSA EQU PGTPTE 02039000 PGTBITS EQU PGTRSA+1 02040000 PGTPVM EQU PGTBITS 02041000 PVT EQU 0 02042000 PVTFLAG1 EQU PVT 02043000 PVTFLAG2 EQU PVT+1 02044000 PVTPFTP EQU PVT+12 02045000 PVTPRCA EQU PVT+52 02046000 PVTLQSA EQU PVT+60 02047000 PVTSRBID EQU PVT+68 02048000 PVTREP2 EQU PVT+100 02049000 PVTPCB EQU PVT+104 02050000 PVTPFTE EQU PVT+108 02051000 PVTPFP2 EQU PVT+116 02052000 PVTPRCV EQU PVT+156 02053000 PVTPINV EQU PVT+172 02054000 PVTPSRBP EQU PVT+188 02055000 PVTPAGIO EQU PVT+236 02056000 PVTNPOUT EQU PVT+252 02057000 PVTVAMO EQU PVT+260 02058000 PVTCAOUT EQU PVT+288 02059000 PVTQS EQU PVT+304 02060000 PVTCFQF EQU PVTQS+8 02061000 PVTWSAX EQU PVT+344 02062000 PVTWSA15 EQU PVTWSAX+1040 02063000 PVTSAVE EQU PVTWSAX+1328 02064000 PVTCHUIC EQU PVT+1836 02065000 PVTPCBQS EQU PVT+1852 02066000 RCA EQU 0 02067000 RCANAME7 EQU RCA+8 02068000 RCACSECT EQU RCA+9 02069000 RCAFLAGS EQU RCA+10 02070000 RCASAL EQU RCAFLAGS 02071000 RCARCRD EQU RCA+11 02072000 RCANAMES EQU RCA+12 02073000 RCANAME1 EQU RCANAMES 02074000 RCANAME2 EQU RCANAMES+1 02075000 RCANAME3 EQU RCANAMES+2 02076000 RCARFR EQU RCANAME3 02077000 RCANAME4 EQU RCANAMES+3 02078000 RCANAME5 EQU RCANAMES+4 02079000 RCARFR2 EQU RCANAME5 02080000 RCANAME6 EQU RCANAMES+5 02081000 RSMHD EQU 0 02082000 RSMASCB EQU RSMHD+8 02083000 RSMFLG1 EQU RSMHD+12 02084000 RSMQS EQU RSMHD+20 02085000 RSMLFQ EQU RSMQS 02086000 RSMLFQF EQU RSMLFQ 02087000 RSMLSQA EQU RSMQS+4 02088000 RSMLIOQ EQU RSMQS+8 02089000 SRBSECT EQU 0 02090000 SRB EQU SRBSECT 02091000 SRBID EQU SRB 02092000 SRBFLNK EQU SRB+4 02093000 SRBASCB EQU SRB+8 02094000 SRBFLC EQU SRB+12 02095000 SRBPASID EQU SRBFLC+2 02096000 SRBEP EQU SRB+20 02097000 SRBRMTR EQU SRB+24 02098000 SRBPARM EQU SRB+28 02099000 SRBPRIOR EQU SRB+37 02100000 XPTE EQU 0 02101000 XPTFLAGS EQU XPTE+2 02102000 XPTXAV EQU XPTFLAGS 02103000 XPTVIO EQU XPTFLAGS 02104000 XPTFLAG2 EQU XPTE+3 02105000 XPTLPID EQU XPTE+4 02106000 XPTLGN EQU XPTLPID 02107000 XPTLPN EQU XPTLPID+4 02108000 ILRPAGIO EQU 0 02109000 IEAVREP2 EQU 0 02110000 IEAVPFTE EQU 0 02111000 IEAVINV EQU 0 02112000 IEAVPCB EQU 0 02113000 IEAVFP2 EQU 0 02114000 QHDR EQU 0 02115000 FIRSTRBN EQU QHDR 02116000 LASTRBN EQU QHDR+2 02117000 PARMLIST EQU 0 02118000 WORD1 EQU PARMLIST 02119000 COUNTFLD EQU WORD1 02120000 INFLAGS EQU WORD1+2 02121000 UNCHNGD EQU INFLAGS 02122000 UPDATUIC EQU INFLAGS 02123000 CRITNUM EQU WORD1+3 02124000 WORD2 EQU PARMLIST+4 02125000 LASTENT EQU WORD2 02126000 ASCBADR EQU WORD2+1 02127000 SAVEA EQU 0 02128000 PGTEND EQU 0 02129000 ASCBPTR EQU WORD2 02130000 CVTS01 EQU CVTPGSIA 02131000 CVTPVTP EQU CVTS01+8 02132000 CVTLPDIA EQU CVTS01+12 02133000 CVTDIRST EQU CVTLPDIA 02134000 CVTSLIDA EQU CVTS01+24 02135000 CVTCTLFG EQU CVTS01+50 02136000 CVTSRBRT EQU CVTS01+100 02137000 CVTGETCL EQU CVTS01+144 02138000 CVTFRECL EQU CVTS01+148 02139000 CVTGSMQ EQU CVTS01+264 02140000 CVTASMVT EQU CVTS01+356 02141000 CVTRV210 EQU CVTS01+424 02142000 CVTRV219 EQU CVTS01+425 02143000 CVTRV228 EQU CVTS01+426 02144000 CVTRV237 EQU CVTS01+427 02145000 CVTMFRTR EQU CVTS01+452 02146000 CVTRV262 EQU CVTS01+468 02147000 CVTRV271 EQU CVTS01+469 02148000 CVTRV280 EQU CVTS01+470 02149000 CVTRV289 EQU CVTS01+471 02150000 CVTGSDA EQU CVTS01+600 02151000 ASMVTPTR EQU CVTASMVT 02152000 ASM1WKSV EQU ASMWKSA1 02153000 ASM1RGSV EQU ASM1WKSV 02154000 ASM1WRKA EQU ASM1WKSV+60 02155000 ASM2WKSV EQU ASMWKSA2 02156000 ASM2WRKA EQU ASM2WKSV+52 02157000 ASM2FLGS EQU ASM2WRKA+12 02158000 ASM3WKSV EQU ASMWKSA3 02159000 ASM4WKSV EQU ASMWKSA4 02160000 ASM4RGSV EQU ASM4WKSV 02161000 ASM5WKSV EQU ASMWKSA5 02162000 ASM5RGSV EQU ASM5WKSV 02163000 CVTPTR EQU FLCCVT 02164000 PSARSVTE EQU PSARSVT 02165000 PSACSTK EQU PSARSVTE 02166000 FRRSPTR EQU PSACSTK 02167000 FRREPTR EQU FRRSCURR 02168000 OUXBPTR EQU ASCBOUXB 02169000 RSMAIA EQU PCBAIA 02170000 AIA EQU RSMAIA 02171000 AIAFLG1 EQU AIA+9 02172000 AIAWRITE EQU AIAFLG1 02173000 AIAPRIV EQU AIAFLG1 02174000 AIAFLG2 EQU AIA+10 02175000 AIAFLG3 EQU AIA+11 02176000 AIANXAIA EQU AIA+12 02177000 AIAID EQU AIA+16 02178000 AIALPID EQU AIAID 02179000 AIALGID EQU AIALPID 02180000 AIALSID EQU AIALGID 02181000 AIASSID EQU AIALSID+1 02182000 AIARPN EQU AIALPID+4 02183000 AIALSID2 EQU AIARPN 02184000 AIALPMEP EQU AIALSID2 02185000 AIAGRPSZ EQU AIA+24 02186000 AIALGE EQU AIAGRPSZ 02187000 FLC EQU PSA 02188000 RCAPTR EQU PVTPRCA 02189000 WSA15 EQU PVTWSA15 02190000 FREESAVE EQU WSA15 02191000 R10SAVE EQU FREESAVE+36 02192000 RETURNAD EQU FREESAVE+52 02193000 PGFLGS EQU WSA15+56 02194000 PGOUTERR EQU PGFLGS 02195000 CHNGFLAG EQU PGFLGS 02196000 STEALIND EQU PGFLGS 02197000 HIGHUIC EQU PGFLGS 02198000 AIAQUEUE EQU WSA15+60 02199000 CIOQUEUE EQU WSA15+64 02200000 LIOQUEUE EQU WSA15+68 02201000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02202000 @NM00062 EQU PGFLGS+1 02203000 @NM00061 EQU PGFLGS 02204000 @NM00060 EQU FREESAVE+40 02205000 @NM00059 EQU FREESAVE 02206000 AIADPXCT EQU AIALGE 02207000 AIACEPTR EQU AIALPMEP 02208000 AIASLOT EQU AIASSID+1 02209000 @NM00014 EQU AIASSID 02210000 @NM00013 EQU AIALSID 02211000 AIARCSN EQU AIANXAIA+2 02212000 AIACYL EQU AIANXAIA 02213000 AIARSV9 EQU AIAFLG3 02214000 AIARSV8 EQU AIAFLG3 02215000 AIARSV7 EQU AIAFLG3 02216000 AIALPMEC EQU AIAFLG3 02217000 AIARSV6 EQU AIAFLG3 02218000 AIATRPSP EQU AIAFLG3 02219000 AIAPRINO EQU AIAFLG3 02220000 AIARSV5 EQU AIAFLG3 02221000 AIABADID EQU AIAFLG2 02222000 AIAERROR EQU AIAFLG2 02223000 AIASECER EQU AIAFLG2 02224000 AIAPRIER EQU AIAFLG2 02225000 AIARSV4 EQU AIAFLG2 02226000 AIAIORTY EQU AIAFLG2 02227000 AIATERMR EQU AIAFLG2 02228000 AIAFRAUX EQU AIAFLG2 02229000 AIARSV1 EQU AIAFLG1 02230000 AIASWPFX EQU AIAFLG1 02231000 AIAPAGDS EQU AIAFLG1 02232000 AIALSQA EQU AIAFLG1 02233000 AIADUPLX EQU AIAFLG1 02234000 AIAVIO EQU AIAFLG1 02235000 AIAOP EQU AIA+8 02236000 AIABQPA EQU AIA+4 02237000 AIAFQPA EQU AIA 02238000 PSARSAV EQU PSARSVTE+60 02239000 PSARSTK EQU PSARSVTE+56 02240000 PSAESAV3 EQU PSARSVTE+52 02241000 PSAESTK3 EQU PSARSVTE+48 02242000 PSAESAV2 EQU PSARSVTE+44 02243000 PSAESTK2 EQU PSARSVTE+40 02244000 PSAESAV1 EQU PSARSVTE+36 02245000 PSAESTK1 EQU PSARSVTE+32 02246000 PSAPSAV EQU PSARSVTE+28 02247000 PSAPSTK EQU PSARSVTE+24 02248000 PSAMSAV EQU PSARSVTE+20 02249000 PSAMSTK EQU PSARSVTE+16 02250000 PSASSAV EQU PSARSVTE+12 02251000 PSASSTK EQU PSARSVTE+8 02252000 PSANSTK EQU PSARSVTE+4 02253000 ASM5FLGS EQU ASM5WKSV+64 02254000 ASM5AIA EQU ASM5WKSV+60 02255000 ASM5GCTR EQU ASM5WKSV+56 02256000 ASM5SR14 EQU ASM5WKSV+52 02257000 @NM00004 EQU ASM5RGSV+4 02258000 ASM5RG2 EQU ASM5RGSV 02259000 @NM00003 EQU ASM4RGSV+4 02260000 ASM4RG2 EQU ASM4RGSV 02261000 ASM3SR13 EQU ASM3WKSV+28 02262000 ASM3R14B EQU ASM3WKSV+24 02263000 ASM3R14A EQU ASM3WKSV+20 02264000 ASM3GRPA EQU ASM3WKSV+16 02265000 ASM3TMPA EQU ASM3WKSV+12 02266000 ASM3PIOP EQU ASM3WKSV+8 02267000 ASM3GENQ EQU ASM3WKSV+4 02268000 ASM3SWPQ EQU ASM3WKSV 02269000 ASM2SR14 EQU ASM2WRKA+16 02270000 @NM00002 EQU ASM2WRKA+13 02271000 ASM2WFLG EQU ASM2FLGS 02272000 ASM2RFLG EQU ASM2FLGS 02273000 ASM2DUPQ EQU ASM2WRKA+8 02274000 ASM2CAQ EQU ASM2WRKA+4 02275000 ASM2PAQ EQU ASM2WRKA 02276000 ASM2RGSV EQU ASM2WKSV 02277000 ASM1NXTA EQU ASM1WRKA+4 02278000 ASM1ASCB EQU ASM1WRKA 02279000 ASM1RG15 EQU ASM1RGSV+56 02280000 @NM00001 EQU ASM1RGSV+4 02281000 ASM1RG1 EQU ASM1RGSV 02282000 CVTRV628 EQU CVTS01+728 02283000 CVTRV627 EQU CVTS01+724 02284000 CVTRV626 EQU CVTS01+720 02285000 CVTRV625 EQU CVTS01+716 02286000 CVTRV624 EQU CVTS01+712 02287000 CVTRV623 EQU CVTS01+708 02288000 CVTRV622 EQU CVTS01+704 02289000 CVTRV621 EQU CVTS01+700 02290000 CVTIHASU EQU CVTS01+696 02291000 CVTSUSP EQU CVTS01+692 02292000 CVTT6SVC EQU CVTS01+688 02293000 CVTCDAL EQU CVTS01+684 02294000 CVTTCTL EQU CVTS01+680 02295000 CVTRSUME EQU CVTS01+676 02296000 CVTJTERM EQU CVTS01+672 02297000 CVTASMRM EQU CVTS01+668 02298000 CVTTCASP EQU CVTS01+664 02299000 CVT0PT03 EQU CVTS01+660 02300000 CVT0PT0E EQU CVTS01+656 02301000 CVTRV609 EQU CVTS01+652 02302000 CVTCGK EQU CVTS01+648 02303000 CVTRAC EQU CVTS01+644 02304000 CVTHSM EQU CVTS01+640 02305000 CVTRV605 EQU CVTS01+636 02306000 CVTRV604 EQU CVTS01+632 02307000 CVTEFF02 EQU CVTS01+628 02308000 CVTCBBR EQU CVTS01+624 02309000 CVTSSCR EQU CVTS01+620 02310000 CVTEVENT EQU CVTS01+616 02311000 CVTCRCA EQU CVTS01+612 02312000 CVTTPIO EQU CVTS01+608 02313000 CVTADV EQU CVTS01+604 02314000 CVTGSDAB EQU CVTGSDA 02315000 CVTQV3 EQU CVTS01+596 02316000 CVTQV2 EQU CVTS01+592 02317000 CVTQV1 EQU CVTS01+588 02318000 CVTRPT EQU CVTS01+584 02319000 CVTSSRB EQU CVTS01+580 02320000 CVTCSDRL EQU CVTS01+576 02321000 CVTEXP1 EQU CVTS01+572 02322000 CVTRMPMT EQU CVTS01+568 02323000 CVTRMPTT EQU CVTS01+564 02324000 CVTVPSA EQU CVTS01+560 02325000 CVTVSTOP EQU CVTS01+556 02326000 CVTGTFR8 EQU CVTS01+552 02327000 CVTQUIT EQU CVTS01+548 02328000 CVTVACR EQU CVTS01+544 02329000 CVTWTCB EQU CVTS01+540 02330000 CVTSTPRS EQU CVTS01+536 02331000 CVT0PT02 EQU CVTS01+532 02332000 CVTDARCM EQU CVTS01+528 02333000 CVTIRECM EQU CVTS01+524 02334000 CVTJRECM EQU CVTS01+520 02335000 CVTVEMS0 EQU CVTS01+516 02336000 CVTSPFRR EQU CVTS01+512 02337000 CVTRLSTG EQU CVTS01+508 02338000 CVT0TC0A EQU CVTS01+504 02339000 CVTGMBR EQU CVTS01+500 02340000 CVTLFRM EQU CVTS01+496 02341000 CVTRMBR EQU CVTS01+492 02342000 CVTVIOP EQU CVTS01+488 02343000 CVTRV307 EQU CVTS01+486 02344000 CVTRV306 EQU CVTS01+484 02345000 CVTRV305 EQU CVTS01+482 02346000 CVTRV304 EQU CVTS01+480 02347000 CVTRV303 EQU CVTS01+478 02348000 CVTRV302 EQU CVTS01+476 02349000 CVTTRCA EQU CVTS01+472 02350000 CVTRV297 EQU CVTRV289 02351000 CVTRV296 EQU CVTRV289 02352000 CVTRV295 EQU CVTRV289 02353000 CVTRV294 EQU CVTRV289 02354000 CVTRV293 EQU CVTRV289 02355000 CVTRV292 EQU CVTRV289 02356000 CVTRV291 EQU CVTRV289 02357000 CVTRV290 EQU CVTRV289 02358000 CVTRV288 EQU CVTRV280 02359000 CVTRV287 EQU CVTRV280 02360000 CVTRV286 EQU CVTRV280 02361000 CVTRV285 EQU CVTRV280 02362000 CVTRV284 EQU CVTRV280 02363000 CVTRV283 EQU CVTRV280 02364000 CVTRV282 EQU CVTRV280 02365000 CVTRV281 EQU CVTRV280 02366000 CVTRV279 EQU CVTRV271 02367000 CVTRV278 EQU CVTRV271 02368000 CVTRV277 EQU CVTRV271 02369000 CVTRV276 EQU CVTRV271 02370000 CVTRV275 EQU CVTRV271 02371000 CVTRV274 EQU CVTRV271 02372000 CVTRV273 EQU CVTRV271 02373000 CVTRV272 EQU CVTRV271 02374000 CVTRV270 EQU CVTRV262 02375000 CVTRV269 EQU CVTRV262 02376000 CVTRV268 EQU CVTRV262 02377000 CVTRV267 EQU CVTRV262 02378000 CVTRV266 EQU CVTRV262 02379000 CVTRV265 EQU CVTRV262 02380000 CVTRV264 EQU CVTRV262 02381000 CVTRV263 EQU CVTRV262 02382000 CVTVFP EQU CVTS01+464 02383000 CVTVSI EQU CVTS01+460 02384000 CVTVPSIB EQU CVTS01+456 02385000 CVTMFACT EQU CVTMFRTR 02386000 CVTMFCTL EQU CVTS01+448 02387000 CVTPVBP EQU CVTS01+444 02388000 CVTPWI EQU CVTS01+440 02389000 CVTRV254 EQU CVTS01+438 02390000 CVTRV253 EQU CVTS01+436 02391000 CVTRV252 EQU CVTS01+434 02392000 CVTRV251 EQU CVTS01+433 02393000 CVTRV250 EQU CVTS01+432 02394000 CVTRV249 EQU CVTS01+431 02395000 CVTRV248 EQU CVTS01+430 02396000 CVTRV247 EQU CVTS01+429 02397000 CVTRV246 EQU CVTS01+428 02398000 CVTRV245 EQU CVTRV237 02399000 CVTRV244 EQU CVTRV237 02400000 CVTRV243 EQU CVTRV237 02401000 CVTRV242 EQU CVTRV237 02402000 CVTRV241 EQU CVTRV237 02403000 CVTRV240 EQU CVTRV237 02404000 CVTRV239 EQU CVTRV237 02405000 CVTRV238 EQU CVTRV237 02406000 CVTRV236 EQU CVTRV228 02407000 CVTRV235 EQU CVTRV228 02408000 CVTRV234 EQU CVTRV228 02409000 CVTRV233 EQU CVTRV228 02410000 CVTRV232 EQU CVTRV228 02411000 CVTRV231 EQU CVTRV228 02412000 CVTRV230 EQU CVTRV228 02413000 CVTRV229 EQU CVTRV228 02414000 CVTRV227 EQU CVTRV219 02415000 CVTRV226 EQU CVTRV219 02416000 CVTRV225 EQU CVTRV219 02417000 CVTRV224 EQU CVTRV219 02418000 CVTRV223 EQU CVTRV219 02419000 CVTRV222 EQU CVTRV219 02420000 CVTRV221 EQU CVTRV219 02421000 CVTRV220 EQU CVTRV219 02422000 CVTRV218 EQU CVTRV210 02423000 CVTRV217 EQU CVTRV210 02424000 CVTRV216 EQU CVTRV210 02425000 CVTRV215 EQU CVTRV210 02426000 CVTRV214 EQU CVTRV210 02427000 CVTRV213 EQU CVTRV210 02428000 CVTRV212 EQU CVTRV210 02429000 CVTRV211 EQU CVTRV210 02430000 CVTLCCAT EQU CVTS01+420 02431000 CVTPCCAT EQU CVTS01+416 02432000 CVTIPCRP EQU CVTS01+412 02433000 CVTIPCRI EQU CVTS01+408 02434000 CVTIPCDS EQU CVTS01+404 02435000 CVTAIDVT EQU CVTS01+400 02436000 CVTSSAP EQU CVTS01+396 02437000 CVTEHCIR EQU CVTS01+392 02438000 CVTEHDEF EQU CVTS01+388 02439000 CVTDAIR EQU CVTS01+384 02440000 CVTPERFM EQU CVTS01+380 02441000 CVT044R2 EQU CVTS01+376 02442000 CVTFETCH EQU CVTS01+372 02443000 CVTRSTWD EQU CVTS01+368 02444000 CVTSPOST EQU CVTS01+364 02445000 CVTIOBP EQU CVTS01+360 02446000 CVTRECRQ EQU CVTS01+352 02447000 CVTWSAC EQU CVTS01+348 02448000 CVTRV149 EQU CVTS01+344 02449000 CVTWSAL EQU CVTS01+340 02450000 CVTSPSA EQU CVTS01+336 02451000 CVTGLMN EQU CVTS01+332 02452000 CVTVEAC0 EQU CVTS01+328 02453000 CVT062R1 EQU CVTS01+324 02454000 CVTRPOST EQU CVTS01+320 02455000 CVTDQIQE EQU CVTS01+316 02456000 CVTCSD EQU CVTS01+312 02457000 CVTLKRMA EQU CVTS01+308 02458000 CVTRSPIE EQU CVTS01+304 02459000 CVTRENQ EQU CVTS01+300 02460000 CVTLQCB EQU CVTS01+296 02461000 CVTFQCB EQU CVTS01+292 02462000 CVTQCS01 EQU CVTS01+288 02463000 CVTAPFT EQU CVTS01+284 02464000 CVTPARRL EQU CVTS01+280 02465000 CVTVWAIT EQU CVTS01+276 02466000 CVTGSPL EQU CVTS01+272 02467000 CVTLSMQ EQU CVTS01+268 02468000 CVTEXPRO EQU CVTS01+260 02469000 CVTOPCTP EQU CVTS01+256 02470000 CVTSIC EQU CVTS01+252 02471000 CVTTPIOS EQU CVTS01+248 02472000 CVTRTMS EQU CVTS01+244 02473000 CVTSDBF EQU CVTS01+240 02474000 CVTSCBP EQU CVTS01+236 02475000 CVTSDMP EQU CVTS01+232 02476000 CVTSV60 EQU CVTS01+228 02477000 CVTRTMCT EQU CVTS01+224 02478000 CVTASCBL EQU CVTS01+220 02479000 CVTASCBH EQU CVTS01+216 02480000 CVTGDA EQU CVTS01+212 02481000 CVTASVT EQU CVTS01+208 02482000 CVTVVMDI EQU CVTS01+204 02483000 CVTAQTOP EQU CVTS01+200 02484000 CVTIOSCS EQU CVTS01+196 02485000 CVTSDRM EQU CVTS01+192 02486000 CVTOPTE EQU CVTS01+188 02487000 CVTSTXU EQU CVTS01+184 02488000 CVTQUIS EQU CVTS01+180 02489000 CVTPARS EQU CVTS01+176 02490000 CVTS1EE EQU CVTS01+172 02491000 CVTFRAS EQU CVTS01+168 02492000 CVTQSAS EQU CVTS01+164 02493000 CVTCRAS EQU CVTS01+160 02494000 CVTCRMN EQU CVTS01+156 02495000 CVTDELCP EQU CVTS01+152 02496000 CVTBLDCP EQU CVTS01+140 02497000 CVTAUTHL EQU CVTS01+136 02498000 CVTSCAN EQU CVTS01+132 02499000 CVTRV144 EQU CVTS01+130 02500000 CVTMAXMP EQU CVTS01+128 02501000 CVTSTCK EQU CVTS01+124 02502000 CVTRV139 EQU CVTS01+123 02503000 CVTDSSAC EQU CVTS01+122 02504000 CVTRV513 EQU CVTS01+121 02505000 CVTIOSPL EQU CVTS01+120 02506000 CVTPTGT EQU CVTS01+116 02507000 CVTCSPIE EQU CVTS01+112 02508000 CVTSMFEX EQU CVTS01+108 02509000 CVTOLT0A EQU CVTS01+104 02510000 CVTPUTL EQU CVTS01+96 02511000 CVTASCRL EQU CVTS01+92 02512000 CVTASCRF EQU CVTS01+88 02513000 CVTRV326 EQU CVTS01+84 02514000 CVTRV325 EQU CVTS01+80 02515000 CVTRV324 EQU CVTS01+76 02516000 CVT0VL01 EQU CVTS01+72 02517000 CVTSHRVM EQU CVTS01+68 02518000 CVTRV332 EQU CVTS01+64 02519000 CVTTAS EQU CVTS01+60 02520000 CVTRSCN EQU CVTS01+56 02521000 CVTTRAC2 EQU CVTS01+54 02522000 CVTTRACE EQU CVTS01+52 02523000 CVTAPG EQU CVTS01+51 02524000 CVTSDTRC EQU CVTCTLFG 02525000 CVTGTRCE EQU CVTCTLFG 02526000 CVTNOMP EQU CVTCTLFG 02527000 CVTRSV79 EQU CVTCTLFG 02528000 CVTDSTAT EQU CVTCTLFG 02529000 CVTRSV78 EQU CVTCTLFG 02530000 CVTRV333 EQU CVTCTLFG 02531000 CVTRV323 EQU CVTCTLFG 02532000 CVTSPVLK EQU CVTS01+49 02533000 CVTRSV77 EQU CVTS01+48 02534000 CVTRV331 EQU CVTS01+44 02535000 CVTRV330 EQU CVTS01+40 02536000 CVTRV329 EQU CVTS01+36 02537000 CVTRV328 EQU CVTS01+32 02538000 CVTRV322 EQU CVTS01+28 02539000 CVTSLID EQU CVTSLIDA+1 02540000 CVTSYLK EQU CVTSLIDA 02541000 CVTRV321 EQU CVTS01+20 02542000 CVTRV320 EQU CVTS01+16 02543000 CVTLPDIR EQU CVTLPDIA+1 02544000 CVTRSV69 EQU CVTDIRST 02545000 CVTRSV68 EQU CVTDIRST 02546000 CVTRSV67 EQU CVTDIRST 02547000 CVTRSV66 EQU CVTDIRST 02548000 CVTRSV65 EQU CVTDIRST 02549000 CVTRSV64 EQU CVTDIRST 02550000 CVTRSV63 EQU CVTDIRST 02551000 CVTDICOM EQU CVTDIRST 02552000 CVTLPDSR EQU CVTS01+4 02553000 CVTGETL EQU CVTS01 02554000 @NM00058 EQU SAVEA 02555000 @NM00057 EQU WORD2 02556000 @NM00056 EQU INFLAGS 02557000 XPTLSID2 EQU XPTLPN 02558000 XPTLSID EQU XPTLGN 02559000 @NM00055 EQU XPTFLAG2 02560000 XPTIOERR EQU XPTFLAG2 02561000 XPTPOINP EQU XPTFLAG2 02562000 XPTRES1 EQU XPTFLAG2 02563000 XPTVALID EQU XPTFLAG2 02564000 XPTRSV4 EQU XPTFLAGS 02565000 XPTDEFER EQU XPTFLAGS 02566000 XPTRES2 EQU XPTFLAGS 02567000 @NM00054 EQU XPTFLAGS 02568000 XPTCKF EQU XPTFLAGS 02569000 XPTVIOLP EQU XPTFLAGS 02570000 XPTRSV1 EQU XPTE+1 02571000 XPTPROT EQU XPTE 02572000 @NM00053 EQU SRB+40 02573000 @NM00052 EQU SRB+38 02574000 SRBPKF EQU SRB+36 02575000 SRBSAVE EQU SRB+32 02576000 SRBPTCB EQU SRBFLC+4 02577000 SRBCPAFF EQU SRBFLC 02578000 RSMASMHD EQU RSMHD+40 02579000 RSMFOEQ EQU RSMHD+36 02580000 RSMLIOQL EQU RSMLIOQ+4 02581000 RSMLIOQF EQU RSMLIOQ 02582000 RSMLSQAL EQU RSMLSQA+2 02583000 RSMLSQAF EQU RSMLSQA 02584000 RSMLFQL EQU RSMLFQ+2 02585000 RSMRSV2 EQU RSMHD+16 02586000 RSMCNTFX EQU RSMHD+14 02587000 RSMRSV1 EQU RSMHD+13 02588000 @NM00051 EQU RSMFLG1 02589000 RSMFAIL EQU RSMFLG1 02590000 RSMGFADD EQU RSMFLG1 02591000 RSMCPNC EQU RSMFLG1 02592000 RSMCPNU EQU RSMFLG1 02593000 RSMGFAD EQU RSMFLG1 02594000 RSMIOCPC EQU RSMFLG1 02595000 RSMIOCPU EQU RSMFLG1 02596000 RSMSPCT EQU RSMHD+4 02597000 RSMVSTO EQU RSMHD 02598000 RCARETAD EQU RCA+20 02599000 RCATASID EQU RCA+18 02600000 RCAREP1 EQU RCANAME6 02601000 RCAPSIF EQU RCANAME6 02602000 RCAPSIX EQU RCANAME6 02603000 RCAVEQRP EQU RCANAME6 02604000 RCARCFC EQU RCANAME6 02605000 RCACSGB EQU RCANAME6 02606000 RCAFXL EQU RCANAME6 02607000 RCAPS113 EQU RCANAME6 02608000 RCAFREE EQU RCANAME5 02609000 RCACPBR EQU RCANAME5 02610000 RCAOPBR EQU RCANAME5 02611000 RCASORT EQU RCANAME5 02612000 RCASIRT EQU RCANAME5 02613000 RCARELV EQU RCANAME5 02614000 RCARELF EQU RCANAME5 02615000 RCAGFAD EQU RCANAME4 02616000 RCAVEQRI EQU RCANAME4 02617000 RCAVEQRF EQU RCANAME4 02618000 RCAVEQRC EQU RCANAME4 02619000 RCATERM EQU RCANAME4 02620000 RCASQA EQU RCANAME4 02621000 RCASWIN EQU RCANAME4 02622000 RCASOUT EQU RCANAME4 02623000 RCARELS EQU RCANAME3 02624000 RCARCFI EQU RCANAME3 02625000 RCARCF EQU RCANAME3 02626000 RCAPSII EQU RCANAME3 02627000 RCAPSIB EQU RCANAME3 02628000 RCAPS112 EQU RCANAME3 02629000 RCAPIX EQU RCANAME3 02630000 RCAPIOP EQU RCANAME2 02631000 RCASWPC EQU RCANAME2 02632000 RCASWPP EQU RCANAME2 02633000 RCAPFTE EQU RCANAME2 02634000 RCAPCB EQU RCANAME2 02635000 RCAOUT EQU RCANAME2 02636000 RCAITAS EQU RCANAME2 02637000 RCAIOCP EQU RCANAME2 02638000 RCAINV EQU RCANAME1 02639000 RCAGFA EQU RCANAME1 02640000 RCAFXLD EQU RCANAME1 02641000 RCAVEQR EQU RCANAME1 02642000 RCADSEG EQU RCANAME1 02643000 RCADLAS EQU RCANAME1 02644000 RCACSEG EQU RCANAME1 02645000 RCAVAMSI EQU RCANAME1 02646000 @NM00050 EQU RCAFLAGS 02647000 RCADISP EQU RCAFLAGS 02648000 @NM00049 EQU RCAFLAGS 02649000 RCAQS EQU RCAFLAGS 02650000 RCAPSIER EQU RCAFLAGS 02651000 RCAABEND EQU RCAFLAGS 02652000 RCALL EQU RCAFLAGS 02653000 @NM00048 EQU RCANAME7 02654000 RCAPRSS EQU RCANAME7 02655000 RCAPRSR EQU RCANAME7 02656000 RCAPRSB EQU RCANAME7 02657000 RCAPSIY EQU RCANAME7 02658000 RCAPIOI EQU RCANAME7 02659000 RCAPARM1 EQU RCA+4 02660000 RCAPARM0 EQU RCA 02661000 PVTEND EQU PVT+1944 02662000 PVTTASID EQU PVT+1942 02663000 PVTXXXXX EQU PVT+1940 02664000 PVTMVCLC EQU PVT+1936 02665000 PVTVCONS EQU PVT+1896 02666000 PVTPRSB EQU PVT+1892 02667000 PVTCIOQL EQU PVTPCBQS+36 02668000 PVTCIOQF EQU PVTPCBQS+32 02669000 PVTGFADL EQU PVTPCBQS+28 02670000 PVTGFADF EQU PVTPCBQS+24 02671000 PVTFPCBL EQU PVTPCBQS+20 02672000 PVTFPCBF EQU PVTPCBQS+16 02673000 PVTPCBQR EQU PVTPCBQS 02674000 PVTLPAFX EQU PVT+1850 02675000 PVTLSQAF EQU PVT+1848 02676000 PVTLPAR EQU PVT+1844 02677000 PVTLPAI EQU PVT+1840 02678000 PVTLPAFC EQU PVT+1838 02679000 PVTCOMFX EQU PVT+1834 02680000 PVTSQAFX EQU PVT+1832 02681000 PVTCNTFX EQU PVT+1830 02682000 PVTDEFFX EQU PVT+1828 02683000 PVTFIXOK EQU PVT+1826 02684000 PVTPEROK EQU PVT+1824 02685000 PVTMAXFX EQU PVT+1822 02686000 PVTPERFX EQU PVT+1820 02687000 PVTRSRB EQU PVT+1776 02688000 PVTRESV5 EQU PVT+1773 02689000 PVTSRBS EQU PVT+1772 02690000 PVTSSRB EQU PVT+1768 02691000 PVTACA EQU PVTWSAX+1400 02692000 PVTWSA18 EQU PVTWSAX+1256 02693000 PVTWSA17 EQU PVTWSAX+1184 02694000 PVTWSA16 EQU PVTWSAX+1112 02695000 PVTWSA14 EQU PVTWSAX+968 02696000 PVTWSA13 EQU PVTWSAX+896 02697000 PVTWSA12 EQU PVTWSAX+824 02698000 PVTWSA11 EQU PVTWSAX+752 02699000 PVTWSA10 EQU PVTWSAX+672 02700000 PVTWSA9 EQU PVTWSAX+592 02701000 PVTWSA8 EQU PVTWSAX+504 02702000 PVTWSA7 EQU PVTWSAX+432 02703000 PVTWSA6 EQU PVTWSAX+360 02704000 PVTWSA5 EQU PVTWSAX+288 02705000 PVTWSA4 EQU PVTWSAX+216 02706000 PVTWSA3 EQU PVTWSAX+144 02707000 PVTWSA2 EQU PVTWSAX+72 02708000 PVTWSA1 EQU PVTWSAX 02709000 PVTPFTQR EQU PVTQS+20 02710000 PVTRSBQL EQU PVTQS+18 02711000 PVTRSBQF EQU PVTQS+16 02712000 PVTSQAQL EQU PVTQS+14 02713000 PVTSQAQF EQU PVTQS+12 02714000 PVTCFQL EQU PVTQS+10 02715000 PVTRSRVL EQU PVTQS+6 02716000 PVTRSRVF EQU PVTQS+4 02717000 PVTAFQL EQU PVTQS+2 02718000 PVTAFQF EQU PVTQS 02719000 PVTSPFR EQU PVT+302 02720000 PVTCFMCT EQU PVT+300 02721000 PVTSPREC EQU PVT+296 02722000 PVTCAREC EQU PVT+292 02723000 PVTCAIN EQU PVT+284 02724000 PVTNSWPS EQU PVT+280 02725000 PVTNPREC EQU PVT+276 02726000 PVTSPOUT EQU PVT+272 02727000 PVTSPIN EQU PVT+268 02728000 PVTVAMR EQU PVT+264 02729000 PVTVAMI EQU PVT+256 02730000 PVTNPIN EQU PVT+248 02731000 PVTPRSET EQU PVT+244 02732000 PVTFRSLT EQU PVT+240 02733000 PVTSWPIO EQU PVT+232 02734000 PVTPSWPP EQU PVT+228 02735000 PVTPPREF EQU PVT+224 02736000 PVTPOPBR EQU PVT+220 02737000 PVTPRELF EQU PVT+216 02738000 PVTPRELV EQU PVT+212 02739000 PVTPFREE EQU PVT+208 02740000 PVTPRELS EQU PVT+204 02741000 PVTPOUT EQU PVT+200 02742000 PVTPFXLD EQU PVT+196 02743000 PVTPITAS EQU PVT+192 02744000 PVTPDSEG EQU PVT+184 02745000 PVTPCSGB EQU PVT+180 02746000 PVTPCSEG EQU PVT+176 02747000 PVTPSWPC EQU PVT+168 02748000 PVTPSOUT EQU PVT+164 02749000 PVTPSWIN EQU PVT+160 02750000 PVTPRCFI EQU PVT+152 02751000 PVTPRCF EQU PVT+148 02752000 PVTPVRC EQU PVT+144 02753000 PVTPVRIN EQU PVT+140 02754000 PVTPVRLS EQU PVT+136 02755000 PVTPVEQR EQU PVT+132 02756000 PVTPPIOI EQU PVT+128 02757000 PVTPVRPO EQU PVT+124 02758000 PVTPRFR EQU PVT+120 02759000 PVTPFP EQU PVT+112 02760000 PVTPIOCP EQU PVT+96 02761000 PVTPIOP EQU PVT+92 02762000 PVTPGFAD EQU PVT+88 02763000 PVTPGFA EQU PVT+84 02764000 PVTPSQA EQU PVT+80 02765000 PVTPSINT EQU PVT+76 02766000 PVTPSIB EQU PVT+72 02767000 PVTPCIWA EQU PVT+64 02768000 PVTHQSA EQU PVT+62 02769000 PVTOROOT EQU PVT+56 02770000 PVTREUS EQU PVT+48 02771000 PVTSQNPC EQU PVT+47 02772000 PVTSQVRC EQU PVT+46 02773000 PVTRSUS EQU PVT+44 02774000 PVTVROOT EQU PVT+40 02775000 PVTPCBLO EQU PVT+38 02776000 PVTPCBCT EQU PVT+36 02777000 PVTDFRS EQU PVT+34 02778000 PVTRSQA EQU PVT+32 02779000 PVTPTLB EQU PVT+31 02780000 PVTPCBNO EQU PVT+30 02781000 PVTSRBNO EQU PVT+29 02782000 PVTSQDC EQU PVT+28 02783000 PVTLCSA EQU PVT+26 02784000 PVTLPRIV EQU PVT+24 02785000 PVTLVR EQU PVT+22 02786000 PVTFVR EQU PVT+20 02787000 PVTLPFN EQU PVT+18 02788000 PVTFPFN EQU PVT+16 02789000 PVTSSPIN EQU PVT+11 02790000 PVTPCBS EQU PVT+10 02791000 PVTPOOL EQU PVT+8 02792000 PVTAFCOK EQU PVT+6 02793000 PVTAFCLO EQU PVT+4 02794000 PVTAFC EQU PVT+2 02795000 @NM00047 EQU PVTFLAG2 02796000 PVTRSMGM EQU PVTFLAG2 02797000 PVTDUMP EQU PVTFLAG1 02798000 PVTSIT EQU PVTFLAG1 02799000 PVTLSI EQU PVTFLAG1 02800000 PVTAPREF EQU PVTFLAG1 02801000 PVTPCBLT EQU PVTFLAG1 02802000 PVTSRBIU EQU PVTFLAG1 02803000 PVTBGMS EQU PVTFLAG1 02804000 PVTPMSG EQU PVTFLAG1 02805000 PGTPAM EQU PGTBITS 02806000 @NM00022 EQU PGTBITS 02807000 @NM00021 EQU PGTBITS 02808000 @NM00020 EQU PGTBITS 02809000 @NM00019 EQU PGTBITS 02810000 @NM00018 EQU PGTBITS 02811000 @NM00017 EQU PGTBITS 02812000 PGTREAL EQU PGTRSA 02813000 @NM00016 EQU PFTFLAG2 02814000 @NM00015 EQU PFTFLAG2 02815000 PFTPREF EQU PFTFLAG2 02816000 PFTVR EQU PFTFLAG2 02817000 PFTOFFLN EQU PFTFLAG2 02818000 PFTDFRLS EQU PFTFLAG2 02819000 PFTVRPLT EQU PFTFLAG1 02820000 PFTLSQA EQU PFTFLAG1 02821000 PFTONAVQ EQU PFTFLAG1 02822000 PFTRSV1 EQU PFTE+10 02823000 PFTASID EQU PFTPGID 02824000 PCBEND EQU PCB+64 02825000 PCBSPCTE EQU PCBRB 02826000 PCBSWPS2 EQU PCBFL3 02827000 @NM00012 EQU PCBFL3 02828000 PCBDFRLS EQU PCBFL3 02829000 PCBSWPLS EQU PCBFL3 02830000 PCBSWPS1 EQU PCBFL3 02831000 PCBSWPIN EQU PCBFL3 02832000 PCBSWPOT EQU PCBFL3 02833000 @NM00011 EQU PCBFL2 02834000 @NM00010 EQU PCBFL2 02835000 PCBVIO EQU PCBFL2 02836000 PCBSUPRS EQU PCBFL2 02837000 PCBRESET EQU PCBFL2 02838000 PCBIOERR EQU PCBFL2 02839000 PCBGFAD EQU PCBFL2 02840000 PCBRLPA EQU PCBRLP+1 02841000 PCBFXC EQU PCBRLP 02842000 PCBRTPA EQU PCBRTP+1 02843000 PCBIOCMP EQU PCBFL1 02844000 PCBROOT EQU PCBFL1 02845000 PCBLFR EQU PCBFL1 02846000 PCBLLHLD EQU PCBFL1 02847000 PCBSRBMD EQU PCBFL1 02848000 PCBPEX EQU PCBFL1 02849000 @NM00009 EQU PCBFL1 02850000 PCBCQN EQU PCBFQP 02851000 OUXBEND EQU OUXB+144 02852000 OUXBTSW EQU OUXB+140 02853000 OUXBFIXC EQU OUXB+138 02854000 OUXBNVC EQU OUXB+136 02855000 OUXBVSC EQU OUXB+132 02856000 OUXBILS EQU OUXB+128 02857000 OUXBRSV1 EQU OUXB+126 02858000 OUXBWCT EQU OUXB+124 02859000 OUXBPRS EQU OUXB+120 02860000 OUXBSTD EQU OUXB+116 02861000 OUXBITD EQU OUXB+112 02862000 OUXBMSS EQU OUXB+104 02863000 OUXBCPS EQU OUXB+96 02864000 OUXBAET EQU OUXB+92 02865000 OUXBTRR EQU OUXB+88 02866000 OUXBJBR EQU OUXB+84 02867000 OUXBTRT EQU OUXB+80 02868000 OUXBTRS EQU OUXB+76 02869000 OUXBJBT EQU OUXB+72 02870000 OUXBJBS EQU OUXB+68 02871000 OUXBTRC EQU OUXB+64 02872000 OUXBNQT EQU OUXB+60 02873000 OUXBIOSM EQU OUXB+56 02874000 OUXBSTC EQU OUXB+54 02875000 OUXBIOS EQU OUXB+52 02876000 OUXBSTCT EQU OUXB+48 02877000 OUXBCAPR EQU OUXB+44 02878000 OUXBCAPI EQU OUXB+40 02879000 OUXBVAMR EQU OUXB+36 02880000 OUXBVAMI EQU OUXB+28 02881000 OUXBPREC EQU OUXB+24 02882000 OUXBPIN EQU OUXB+16 02883000 OUXBRSW EQU OUXB+12 02884000 OUXBMET EQU OUXB+8 02885000 OUXBPET EQU OUXB+4 02886000 OUXBNAME EQU OUXB 02887000 @NM00008 EQU FRRSFLGS+1 02888000 @NM00007 EQU FRRSFLG1 02889000 FRRSNEST EQU FRRSFLG1 02890000 FRRSRCUR EQU FRRSFLG1 02891000 FRRSENTS EQU FRRS+84 02892000 FRRSRTMW EQU FRRS+16 02893000 CVTLEVL EQU CVTRELNO+2 02894000 CVTNUMB EQU CVTRELNO 02895000 CVTMDL EQU CVTFIX+250 02896000 @NM00006 EQU CVTFIX+248 02897000 @NM00005 EQU CVTFIX 02898000 CVTRV482 EQU CVTXTNT2+128 02899000 CVTRV481 EQU CVTXTNT2+124 02900000 CVTRV480 EQU CVTXTNT2+120 02901000 CVTRV479 EQU CVTXTNT2+118 02902000 CVTRV478 EQU CVTXTNT2+117 02903000 CVTRV477 EQU CVTXTNT2+116 02904000 CVTRV476 EQU CVTXTNT2+115 02905000 CVTRV475 EQU CVTXTNT2+114 02906000 CVTRV474 EQU CVTRV466 02907000 CVTRV473 EQU CVTRV466 02908000 CVTRV472 EQU CVTRV466 02909000 CVTRV471 EQU CVTRV466 02910000 CVTRV470 EQU CVTRV466 02911000 CVTRV469 EQU CVTRV466 02912000 CVTRV468 EQU CVTRV466 02913000 CVTRV467 EQU CVTRV466 02914000 CVTRV465 EQU CVTRV457 02915000 CVTRV464 EQU CVTRV457 02916000 CVTRV463 EQU CVTRV457 02917000 CVTRV462 EQU CVTRV457 02918000 CVTRV461 EQU CVTRV457 02919000 CVTRV460 EQU CVTRV457 02920000 CVTRV459 EQU CVTRV457 02921000 CVTRV458 EQU CVTRV457 02922000 CVTRV456 EQU CVTXTNT2+108 02923000 CVTRV455 EQU CVTXTNT2+104 02924000 CVTRV454 EQU CVTXTNT2+100 02925000 CVTRV453 EQU CVTXTNT2+96 02926000 CVTRV452 EQU CVTXTNT2+94 02927000 CVTRV451 EQU CVTXTNT2+92 02928000 CVTRV450 EQU CVTXTNT2+90 02929000 CVTRV449 EQU CVTXTNT2+88 02930000 CVTRV448 EQU CVTXTNT2+87 02931000 CVTRV447 EQU CVTXTNT2+86 02932000 CVTRV446 EQU CVTRV438 02933000 CVTRV445 EQU CVTRV438 02934000 CVTRV444 EQU CVTRV438 02935000 CVTRV443 EQU CVTRV438 02936000 CVTRV442 EQU CVTRV438 02937000 CVTRV441 EQU CVTRV438 02938000 CVTRV440 EQU CVTRV438 02939000 CVTRV439 EQU CVTRV438 02940000 CVTRV437 EQU CVTRV429 02941000 CVTRV436 EQU CVTRV429 02942000 CVTRV435 EQU CVTRV429 02943000 CVTRV434 EQU CVTRV429 02944000 CVTRV433 EQU CVTRV429 02945000 CVTRV432 EQU CVTRV429 02946000 CVTRV431 EQU CVTRV429 02947000 CVTRV430 EQU CVTRV429 02948000 CVTRV428 EQU CVTXTNT2+80 02949000 CVTRV427 EQU CVTXTNT2+76 02950000 CVTRV426 EQU CVTXTNT2+72 02951000 CVTRV425 EQU CVTXTNT2+68 02952000 CVTATACT EQU CVTATCVT 02953000 CVTRV423 EQU CVTXTNT2+62 02954000 CVTRV422 EQU CVTXTNT2+60 02955000 CVTRV421 EQU CVTXTNT2+58 02956000 CVTRV420 EQU CVTXTNT2+56 02957000 CVTRV419 EQU CVTXTNT2+55 02958000 CVTRV418 EQU CVTXTNT2+54 02959000 CVTRV417 EQU CVTRV409 02960000 CVTRV416 EQU CVTRV409 02961000 CVTRV415 EQU CVTRV409 02962000 CVTRV414 EQU CVTRV409 02963000 CVTRV413 EQU CVTRV409 02964000 CVTRV412 EQU CVTRV409 02965000 CVTRV411 EQU CVTRV409 02966000 CVTRV410 EQU CVTRV409 02967000 CVTRV408 EQU CVTRV400 02968000 CVTRV407 EQU CVTRV400 02969000 CVTRV406 EQU CVTRV400 02970000 CVTRV405 EQU CVTRV400 02971000 CVTRV404 EQU CVTRV400 02972000 CVTRV403 EQU CVTRV400 02973000 CVTRV402 EQU CVTRV400 02974000 CVTRV401 EQU CVTRV400 02975000 CVTICB EQU CVTXTNT2+48 02976000 CVTSKTA EQU CVTXTNT2+44 02977000 CVTCCVT EQU CVTXTNT2+40 02978000 CVTRSV98 EQU CVTXTNT2+36 02979000 CVTRSV97 EQU CVTXTNT2+34 02980000 CVTRSV96 EQU CVTXTNT2+32 02981000 CVTOLTEP EQU CVTXTNT2+28 02982000 CVTQIDA EQU CVTQID+1 02983000 CVTRSV95 EQU CVTQID 02984000 CVTRSV94 EQU CVTXTNT2+20 02985000 CVTRSV93 EQU CVTXTNT2+16 02986000 CVTRSV92 EQU CVTXTNT2+12 02987000 CVTDEBVR EQU CVTXTNT2+8 02988000 CVTRSV91 EQU CVTXTNT2+6 02989000 CVTRSV9H EQU CVTFLGBT 02990000 CVTRSV9G EQU CVTFLGBT 02991000 CVTRSV9F EQU CVTFLGBT 02992000 CVTRSV9E EQU CVTFLGBT 02993000 CVTRSV9D EQU CVTFLGBT 02994000 CVTBAH EQU CVTFLGBT 02995000 CVTVME EQU CVTFLGBT 02996000 CVTNPE EQU CVTFLGBT 02997000 CVTNUCLS EQU CVTXTNT2+4 02998000 CVTDSSVA EQU CVTDSSV+1 02999000 CVTRSV89 EQU CVTDSSV 03000000 CVTRSV88 EQU CVTXTNT1+8 03001000 CVTRSV87 EQU CVTXTNT1+4 03002000 CVTFACHN EQU CVTXTNT1 03003000 CVTRV488 EQU CVTMAP+412 03004000 CVTRV487 EQU CVTMAP+408 03005000 CVTRV486 EQU CVTMAP+404 03006000 CVTRV485 EQU CVTMAP+400 03007000 CVTACTAP EQU CVTMAP+396 03008000 CVTAUTH EQU CVTMAP+392 03009000 CVTRV490 EQU CVTMAP+388 03010000 CVTSU EQU CVTMAP+384 03011000 CVTVOLT1 EQU CVTVOLM1+1 03012000 CVTVOLI1 EQU CVTVOLF1 03013000 CVTSTOA EQU CVTMAP+376 03014000 CVTRSV58 EQU CVTMAP+374 03015000 CVTRSV57 EQU CVTMAP+372 03016000 CVTDDCE EQU CVTMAP+368 03017000 CVTPNWFR EQU CVTMAP+364 03018000 CVTSMF EQU CVTMAP+360 03019000 CVTSULK EQU CVTMAP+358 03020000 CVTSLKO EQU CVTSYSK 03021000 CVTSLKP EQU CVTSYSK 03022000 CVTSLKQ EQU CVTSYSK 03023000 CVTSLKR EQU CVTSYSK 03024000 CVTRSV56 EQU CVTSYSK 03025000 CVTRSV55 EQU CVTSYSK 03026000 CVTRSV54 EQU CVTSYSK 03027000 CVTRSV53 EQU CVTSYSK 03028000 CVTRSV52 EQU CVTA1F1 03029000 CVTRSV51 EQU CVTA1F1 03030000 CVTRSV50 EQU CVTA1F1 03031000 CVTRSV49 EQU CVTA1F1 03032000 CVTRSV48 EQU CVTA1F1 03033000 CVTRSV47 EQU CVTA1F1 03034000 CVTSRSW EQU CVTA1F1 03035000 CVTPFSW EQU CVTA1F1 03036000 CVTPCVT EQU CVTMAP+352 03037000 CVTRSV46 EQU CVTMAP+344 03038000 CVTRSV45 EQU CVTMAP+340 03039000 CVTRSV44 EQU CVTMAP+338 03040000 CVTRSV43 EQU CVTMAP+336 03041000 CVTHJESA EQU CVTHJES+1 03042000 CVTRSV42 EQU CVTHJES 03043000 CVTEXT2A EQU CVTEXT2+1 03044000 CVTRSV41 EQU CVTEXT2 03045000 CVTAPFA EQU CVTAPF+1 03046000 CVTRSV40 EQU CVTAPF 03047000 CVTRV518 EQU CVTINTLA 03048000 CVTRV517 EQU CVTERPV 03049000 CVTEORM EQU CVTMAP+312 03050000 CVTMCHPR EQU CVTMAP+308 03051000 CVTTZ EQU CVTMAP+304 03052000 CVTJEPS EQU CVTMAP+300 03053000 CVTJESCT EQU CVTMAP+296 03054000 CVTMODE EQU CVTMAP+292 03055000 CVTPTRV EQU CVTMAP+288 03056000 CVTREAL EQU CVTMAP+284 03057000 CVTRSV39 EQU CVTMAP+280 03058000 CVTRSV38 EQU CVTMAP+276 03059000 CVTDMSRA EQU CVTDMSR+1 03060000 CVTRV634 EQU CVTDMSRF 03061000 CVTRV633 EQU CVTDMSRF 03062000 CVTRV632 EQU CVTDMSRF 03063000 CVTRV631 EQU CVTDMSRF 03064000 CVTRV630 EQU CVTDMSRF 03065000 CVTRV629 EQU CVTDMSRF 03066000 CVTUDUMP EQU CVTDMSRF 03067000 CVTSDUMP EQU CVTDMSRF 03068000 CVTQMSGA EQU CVTQMSG+1 03069000 CVTRSV36 EQU CVTQMSG 03070000 CVTAMFF EQU CVTMAP+264 03071000 CVTPURGA EQU CVTPURG+1 03072000 CVTRSV35 EQU CVTPURG 03073000 CVTCBSP EQU CVTMAP+256 03074000 CVTATERA EQU CVTATER+1 03075000 CVTSYST EQU CVTATER 03076000 CVTVOLT2 EQU CVTTAT 03077000 CVTVOLI2 EQU CVTVOLF2 03078000 CVTAQAVB EQU CVTAQAVT+1 03079000 CVTRSV34 EQU CVTTCMFG 03080000 CVTRSV33 EQU CVTTCMFG 03081000 CVTRSV32 EQU CVTTCMFG 03082000 CVTRSV31 EQU CVTTCMFG 03083000 CVTRSV30 EQU CVTTCMFG 03084000 CVTRSV29 EQU CVTTCMFG 03085000 CVTLDEV EQU CVTTCMFG 03086000 CVTTCRDY EQU CVTTCMFG 03087000 CVTGTFA EQU CVTGTF+1 03088000 CVTRSV27 EQU CVTGTFST 03089000 CVTRNIO EQU CVTGTFST 03090000 CVTUSR EQU CVTGTFST 03091000 CVTRV318 EQU CVTFORM 03092000 CVTRV317 EQU CVTTMODE 03093000 CVTRV316 EQU CVTSTATE 03094000 CVTRV315 EQU CVTGTFS 03095000 CVTGTFAV EQU CVTGTFS 03096000 CVT0SCR1 EQU CVTMAP+232 03097000 CVTRV515 EQU CVTMAP+228 03098000 CVTRMS EQU CVTMAP+224 03099000 CVTPATCH EQU CVTMAP+220 03100000 CVTTSCE EQU CVTMAP+216 03101000 CVTLNKSC EQU CVTMAP+214 03102000 CVTQABST EQU CVTMAP+212 03103000 CVTMDLDS EQU CVTMAP+208 03104000 CVTUSER EQU CVTMAP+204 03105000 CVTABEND EQU CVTMAP+200 03106000 CVTSMCA EQU CVTMAP+196 03107000 CVTRSV18 EQU CVTMAP+192 03108000 CVTQLPAQ EQU CVTMAP+188 03109000 CVTQCDSR EQU CVTMAP+184 03110000 CVTVS1B EQU CVTOPTB 03111000 CVTVS1A EQU CVTOPTB 03112000 CVTFP EQU CVTOPTB 03113000 CVTAPTHR EQU CVTOPTB 03114000 CVTNLOG EQU CVTOPTB 03115000 CVTTOD EQU CVTOPTB 03116000 CVTCTIMS EQU CVTOPTB 03117000 CVTPROT EQU CVTOPTB 03118000 CVTXPFP EQU CVTOPTA 03119000 CVTASCII EQU CVTOPTA 03120000 CVTRSV13 EQU CVTOPTA 03121000 CVTRSV12 EQU CVTOPTA 03122000 CVTDDR EQU CVTOPTA 03123000 CVTAPR EQU CVTOPTA 03124000 CVTCCH EQU CVTOPTA 03125000 CVTSNCTR EQU CVTMAP+180 03126000 CVTQMWR EQU CVTMAP+176 03127000 CVTQOCR EQU CVTMAP+172 03128000 CVT1EF00 EQU CVTMAP+168 03129000 CVTMZ00 EQU CVTMAP+164 03130000 CVTSV76Q EQU CVTSV76C 03131000 CVTRSV11 EQU CVTMAP+156 03132000 CVT0PT01 EQU CVTMAP+152 03133000 CVTMSER EQU CVTMAP+148 03134000 CVTRV516 EQU CVTIERLC 03135000 CVTILCH EQU CVTMAP+140 03136000 CVT0DS EQU CVTMAP+136 03137000 CVTFBOSV EQU CVTMAP+132 03138000 CVTNUCB EQU CVTMAP+128 03139000 CVTIXAVL EQU CVTMAP+124 03140000 CVTSV76M EQU CVTIOQET 03141000 CVTDCBA EQU CVTMAP+117 03142000 CVTMVS2 EQU CVTDCB 03143000 CVT6DAT EQU CVTDCB 03144000 CVT4MPS EQU CVTDCB 03145000 CVTRSV09 EQU CVTDCB 03146000 CVT4MS1 EQU CVTDCB 03147000 CVT2SPS EQU CVTDCB 03148000 CVT1SSS EQU CVTDCB 03149000 CVTRSV08 EQU CVTDCB 03150000 CVTSTB EQU CVTMAP+112 03151000 CVTQTD00 EQU CVTMAP+108 03152000 CVTQTE00 EQU CVTMAP+104 03153000 CVTCUCB EQU CVTMAP+100 03154000 CVTSJQ EQU CVTMAP+96 03155000 CVTPBLDL EQU CVTMAP+92 03156000 CVTTPC EQU CVTMAP+88 03157000 CVTSVDCB EQU CVTMAP+84 03158000 CVTBRET EQU CVTMAP+82 03159000 CVTEXIT EQU CVTMAP+80 03160000 CVT0FN00 EQU CVTMAP+76 03161000 CVTDARA EQU CVTDAR+1 03162000 CVTRSV07 EQU CVTFLGS1 03163000 CVTRSV06 EQU CVTFLGS1 03164000 CVTRSV05 EQU CVTFLGS1 03165000 CVTRSV04 EQU CVTFLGS1 03166000 CVTRSV03 EQU CVTFLGS1 03167000 CVTRSV02 EQU CVTFLGS1 03168000 CVTRSV01 EQU CVTFLGS1 03169000 CVTDMPLK EQU CVTFLGS1 03170000 CVTXITP EQU CVTMAP+68 03171000 CVTZDTAB EQU CVTMAP+64 03172000 CVTMSLT EQU CVTMAP+60 03173000 CVTDATE EQU CVTMAP+56 03174000 CVTBTERM EQU CVTMAP+52 03175000 CVTSYSAD EQU CVTMAP+48 03176000 CVTXTLER EQU CVTMAP+44 03177000 CVTILK2 EQU CVTMAP+40 03178000 CVTILK1 EQU CVTMAP+36 03179000 CVTPRLTV EQU CVTMAP+32 03180000 CVTPCNVT EQU CVTMAP+28 03181000 CVT0VL00 EQU CVTMAP+24 03182000 CVTXAPG EQU CVTMAP+20 03183000 CVTBUF EQU CVTMAP+16 03184000 CVTJOB EQU CVTMAP+12 03185000 CVTLINK EQU CVTMAP+8 03186000 CVT0EF00 EQU CVTMAP+4 03187000 CVTTCBP EQU CVTMAP 03188000 CVT EQU CVTMAP 03189000 ASMCPRES EQU ASMCPRSQ+4 03190000 ASMCPTAK EQU ASMCPRSQ 03191000 ASMCPCNT EQU ASMCPAVQ+4 03192000 ASMCPAVL EQU ASMCPAVQ 03193000 ASMCPEXT EQU ASMPOOLS+6 03194000 ASMCPSIZ EQU ASMPOOLS+4 03195000 ASMCPID EQU ASMPOOLS 03196000 ASMRSV12 EQU ASMVT+1000 03197000 ASMSAVE EQU ASMVT+928 03198000 ASMWKSA7 EQU ASMVT+848 03199000 ASMWKSA6 EQU ASMVT+768 03200000 ASMACEPC EQU ASMVT+344 03201000 ASMSWKPC EQU ASMVT+328 03202000 ASMBWKPC EQU ASMVT+312 03203000 ASMIOEPC EQU ASMVT+296 03204000 ASMRSV10 EQU ASMVT+280 03205000 ASMPVACE EQU ASMVT+276 03206000 ASMPIOFR EQU ASMVT+272 03207000 ASMPVACQ EQU ASMVT+268 03208000 ASMPMSGS EQU ASMVT+264 03209000 ASMPMSG0 EQU ASMVT+260 03210000 ASMPFRLG EQU ASMVT+256 03211000 ASMPRLG EQU ASMVT+252 03212000 ASMPACT EQU ASMVT+248 03213000 ASMPSAV EQU ASMVT+244 03214000 ASMPCMP EQU ASMVT+240 03215000 ASMPCMPA EQU ASMVT+236 03216000 ASMPCMPN EQU ASMVT+232 03217000 ASMPCMPD EQU ASMVT+228 03218000 ASMPEX EQU ASMVT+224 03219000 ASMVRMTR EQU ASMVT+220 03220000 ASMPSRBC EQU ASMVT+216 03221000 ASMPSRMT EQU ASMVT+212 03222000 ASMPSWPD EQU ASMVT+208 03223000 ASMPTM EQU ASMVT+204 03224000 ASMPFRSW EQU ASMVT+200 03225000 ASMPFRSL EQU ASMVT+196 03226000 ASMPQIOE EQU ASMVT+192 03227000 ASMRSV8 EQU ASMVT+188 03228000 ASMVSAMW EQU ASMVT+184 03229000 ASMTASCB EQU ASMVT+180 03230000 ASMRLGWQ EQU ASMVT+176 03231000 ASMRLGRQ EQU ASMVT+172 03232000 ASMTMECB EQU ASMVT+168 03233000 ASMTCBPT EQU ASMVT+164 03234000 ASMREQCT EQU ASMVT+160 03235000 ASMGOSWK EQU ASMGOSQS+4 03236000 ASMGOSWT EQU ASMGOSQS 03237000 ASMLSAIH EQU ASMLSAI+4 03238000 ASMLSAIL EQU ASMLSAI 03239000 ASMCINV EQU ASMVT+140 03240000 ASMSTGXA EQU ASMVT+136 03241000 ASMLGVT EQU ASMVT+132 03242000 ASMSLOTV EQU ASMVT+128 03243000 ASMERRS EQU ASMVT+124 03244000 ASMNVSC EQU ASMVT+120 03245000 ASMVSC EQU ASMVT+116 03246000 ASMSLOTS EQU ASMVT+112 03247000 ASMBKSLT EQU ASMVT+108 03248000 ASMRSV7 EQU ASMVT+92 03249000 ASMPSRB EQU ASMVT+88 03250000 ASMSRBCT EQU ASMVT+84 03251000 ASMIOCNT EQU ASMVT+80 03252000 ASMBURST EQU ASMVT+76 03253000 ASMPCCWN EQU ASMVT+72 03254000 ASMPCCWC EQU ASMPCCWQ+4 03255000 ASMPCCWA EQU ASMPCCWQ 03256000 ASMRSV6 EQU ASMVT+48 03257000 ASMIORQC EQU ASMVT+44 03258000 ASMIORQR EQU ASMVT+40 03259000 ASMSTAGL EQU ASMSTAGQ+4 03260000 ASMSTAGF EQU ASMSTAGQ 03261000 ASMRSV5 EQU ASMVT+28 03262000 ASMMSGBF EQU ASMVT+24 03263000 ASMEREC EQU ASMVT+20 03264000 ASMTRPAG EQU ASMVT+16 03265000 ASMGOS EQU ASMVT+12 03266000 ASMPART EQU ASMVT+8 03267000 ASMSART EQU ASMVT+4 03268000 ASMDSSFS EQU ASMVT+2 03269000 ASMWARM EQU ASMFLAG2 03270000 ASMQUICK EQU ASMFLAG2 03271000 ASMNOTPT EQU ASMFLAG2 03272000 ASMNOTMR EQU ASMFLAG2 03273000 ASMNOSAV EQU ASMFLAG2 03274000 ASMCALLQ EQU ASMFLAG2 03275000 ASMPLPAS EQU ASMFLAG1 03276000 ASMCOMMF EQU ASMFLAG1 03277000 ASMPLPAF EQU ASMFLAG1 03278000 ASMNODPX EQU ASMFLAG1 03279000 ASMRSV1 EQU ASMFLAG1 03280000 ASMNOLCL EQU ASMFLAG1 03281000 ASMNOCWQ EQU ASMFLAG1 03282000 ASMDUPLX EQU ASMFLAG1 03283000 ASCBEND EQU ASCB+208 03284000 ASCBSRBT EQU ASCB+200 03285000 ASCBSWTL EQU ASCB+196 03286000 ASCBRS14 EQU ASCB+195 03287000 ASCBSMCT EQU ASCB+194 03288000 ASCBRS12 EQU ASCB+192 03289000 ASCBPCTT EQU ASCB+188 03290000 ASCBVGTT EQU ASCB+184 03291000 ASCBRV43 EQU ASCBSRQ4 03292000 ASCBRV42 EQU ASCBSRQ4 03293000 ASCBRV41 EQU ASCBSRQ4 03294000 ASCBRV40 EQU ASCBSRQ4 03295000 ASCBRV39 EQU ASCBSRQ4 03296000 ASCBRV38 EQU ASCBSRQ4 03297000 ASCBRV37 EQU ASCBSRQ4 03298000 ASCBRV36 EQU ASCBSRQ4 03299000 ASCBRV35 EQU ASCBSRQ3 03300000 ASCBRV34 EQU ASCBSRQ3 03301000 ASCBRV33 EQU ASCBSRQ3 03302000 ASCBRV32 EQU ASCBSRQ3 03303000 ASCBRV31 EQU ASCBSRQ3 03304000 ASCBRV30 EQU ASCBSRQ3 03305000 ASCBRV29 EQU ASCBSRQ3 03306000 ASCBRV28 EQU ASCBSRQ3 03307000 ASCBRV27 EQU ASCBSRQ2 03308000 ASCBRV26 EQU ASCBSRQ2 03309000 ASCBRV25 EQU ASCBSRQ2 03310000 ASCBRV24 EQU ASCBSRQ2 03311000 ASCBRV23 EQU ASCBSRQ2 03312000 ASCBRV22 EQU ASCBSRQ2 03313000 ASCBRV21 EQU ASCBSRQ2 03314000 ASCBRV20 EQU ASCBSRQ2 03315000 ASCBRV19 EQU ASCBSRQ1 03316000 ASCBRV18 EQU ASCBSRQ1 03317000 ASCBRV17 EQU ASCBSRQ1 03318000 ASCBRV16 EQU ASCBSRQ1 03319000 ASCBRV15 EQU ASCBSRQ1 03320000 ASCBRV14 EQU ASCBSRQ1 03321000 ASCBRV13 EQU ASCBSRQ1 03322000 ASCBSTA EQU ASCBSRQ1 03323000 ASCBJBNS EQU ASCB+176 03324000 ASCBJBNI EQU ASCB+172 03325000 ASCBMCC EQU ASCB+168 03326000 ASCBRTWA EQU ASCB+164 03327000 ASCBIQEA EQU ASCB+160 03328000 ASCBXMPQ EQU ASCB+156 03329000 ASCBRS01 EQU ASCB+154 03330000 ASCBFMCT EQU ASCB+152 03331000 ASCBOUCB EQU ASCB+144 03332000 ASCBMECB EQU ASCB+140 03333000 ASCBQECB EQU ASCB+136 03334000 ASCBLSQH EQU ASCBLKGP+4 03335000 ASCBLOCK EQU ASCBLKGP 03336000 ASCBTCBS EQU ASCB+124 03337000 ASCBNVSC EQU ASCB+122 03338000 ASCBVSC EQU ASCB+120 03339000 ASCBSRBS EQU ASCB+118 03340000 ASCBSSRB EQU ASCB+116 03341000 ASCBRV06 EQU ASCBFLG2 03342000 ASCBRV05 EQU ASCBFLG2 03343000 ASCBRV04 EQU ASCBFLG2 03344000 ASCBSNQS EQU ASCBFLG2 03345000 ASCBS2S EQU ASCBFLG2 03346000 ASCBCEXT EQU ASCBFLG2 03347000 ASCBPXMT EQU ASCBFLG2 03348000 ASCBXMPT EQU ASCBFLG2 03349000 ASCBRF07 EQU ASCBDSP1 03350000 ASCBRF06 EQU ASCBDSP1 03351000 ASCBRF05 EQU ASCBDSP1 03352000 ASCBRF04 EQU ASCBDSP1 03353000 ASCBRF03 EQU ASCBDSP1 03354000 ASCBRF02 EQU ASCBDSP1 03355000 ASCBFAIL EQU ASCBDSP1 03356000 ASCBNOQ EQU ASCBDSP1 03357000 ASCBSWCT EQU ASCB+112 03358000 ASCBASXB EQU ASCB+108 03359000 ASCBTMCH EQU ASCB+104 03360000 ASCBNSWP EQU ASCBFLG1 03361000 ASCBTYP1 EQU ASCBFLG1 03362000 ASCBSTND EQU ASCBFLG1 03363000 ASCBABNT EQU ASCBFLG1 03364000 ASCBTERM EQU ASCBFLG1 03365000 ASCBS3S EQU ASCBFLG1 03366000 ASCBCMSH EQU ASCBFLG1 03367000 ASCBTOFF EQU ASCBFLG1 03368000 ASCBRF01 EQU ASCBRCTF 03369000 ASCBTMLW EQU ASCBRCTF 03370000 ASCBOUT EQU ASCBRCTF 03371000 ASCBWAIT EQU ASCBRCTF 03372000 ASCBRV08 EQU ASCBRCTF 03373000 ASCBFQU EQU ASCBRCTF 03374000 ASCBFRS EQU ASCBRCTF 03375000 ASCBTMNO EQU ASCBRCTF 03376000 ASCBAFFN EQU ASCBFW1 03377000 ASCBDUMP EQU ASCB+96 03378000 ASCBRV44 EQU ASCB+92 03379000 ASCBUBET EQU ASCB+88 03380000 ASCBECB EQU ASCB+84 03381000 ASCBJSTL EQU ASCB+80 03382000 ASCBEWST EQU ASCB+72 03383000 ASCBEJST EQU ASCB+64 03384000 ASCBTSB EQU ASCB+60 03385000 ASCBCSCB EQU ASCB+56 03386000 ASCBRSMA EQU ASCBRSM+1 03387000 ASCBRV54 EQU ASCBRSMF 03388000 ASCBRV53 EQU ASCBRSMF 03389000 ASCBRV52 EQU ASCBRSMF 03390000 ASCBRV51 EQU ASCBRSMF 03391000 ASCBVEQR EQU ASCBRSMF 03392000 ASCBN2LP EQU ASCBRSMF 03393000 ASCB1LPU EQU ASCBRSMF 03394000 ASCB2LPU EQU ASCBRSMF 03395000 ASCBLDA EQU ASCB+48 03396000 ASCBSTOR EQU ASCB+44 03397000 ASCBDP EQU ASCB+43 03398000 ASCBRV07 EQU ASCB+42 03399000 ASCBIOSM EQU ASCB+40 03400000 ASCBSEQN EQU ASCB+38 03401000 ASCBCPUS EQU ASCB+32 03402000 ASCBSPL EQU ASCB+28 03403000 ASCBIOSP EQU ASCB+24 03404000 ASCBSYNC EQU ASCBSUPC+4 03405000 ASCBSVRB EQU ASCBSUPC 03406000 ASCBCMSF EQU ASCB+12 03407000 ASCBBWDP EQU ASCB+8 03408000 ASCBFWDP EQU ASCB+4 03409000 ASCBASCB EQU ASCB 03410000 ASCBEGIN EQU ASCB 03411000 @NM00046 EQU PSA+3668 03412000 PSASTAK EQU PSA+3072 03413000 @NM00045 EQU PSA+1048 03414000 PSAUSEND EQU PSA+1048 03415000 PSARV062 EQU PSA+1044 03416000 PSACDAL EQU PSA+1040 03417000 PSAWTCOD EQU PSA+1036 03418000 PSAATCVT EQU PSA+1032 03419000 PSAPCPSW EQU PSA+1024 03420000 PSAPIR2 EQU PSA+1020 03421000 PSARV059 EQU PSA+1018 03422000 PSASVC13 EQU PSA+1016 03423000 PSASFACC EQU PSA+1008 03424000 PSASTOP EQU PSA+992 03425000 PSASTART EQU PSA+976 03426000 PSARSPSW EQU PSA+968 03427000 PSASRPSW EQU PSA+960 03428000 PSARV045 EQU PSA+892 03429000 PSARV044 EQU PSA+888 03430000 PSARV043 EQU PSA+884 03431000 PSARV042 EQU PSA+880 03432000 PSARV041 EQU PSA+876 03433000 PSARV040 EQU PSA+872 03434000 PSARV025 EQU PSA+868 03435000 PSADSSED EQU PSA+868 03436000 PSADSSPR EQU PSA+864 03437000 PSADSSFW EQU PSA+860 03438000 PSADSS14 EQU PSA+856 03439000 PSADSSPP EQU PSA+848 03440000 PSADSSRP EQU PSA+840 03441000 PSADSS05 EQU PSADSSF4 03442000 PSADSS10 EQU PSADSSF4 03443000 PSADSSVE EQU PSADSSF4 03444000 PSADSSDE EQU PSADSSF4 03445000 PSADSSC0 EQU PSADSSF4 03446000 PSADSSIE EQU PSADSSF4 03447000 PSADSS12 EQU PSADSSF4 03448000 PSADSSRC EQU PSADSSF4 03449000 PSARV057 EQU PSADSSF3 03450000 PSARV056 EQU PSADSSF3 03451000 PSARV055 EQU PSADSSF3 03452000 PSADSSMC EQU PSADSSF3 03453000 PSADSSRW EQU PSADSSF3 03454000 PSADSSNM EQU PSADSSF3 03455000 PSADSSES EQU PSADSSF3 03456000 PSADSSGP EQU PSADSSF3 03457000 PSADSSF2 EQU PSADSSFL+1 03458000 PSADSSPI EQU PSADSSF1 03459000 PSADSSOI EQU PSADSSF1 03460000 PSADSSSP EQU PSADSSF1 03461000 PSADSSTP EQU PSADSSF1 03462000 PSADSSDW EQU PSADSSF1 03463000 PSADSSDD EQU PSADSSF1 03464000 PSADSSDM EQU PSADSSF1 03465000 PSADSSMV EQU PSADSSF1 03466000 PSADSSTS EQU PSA+816 03467000 PSADSSWK EQU PSA+812 03468000 PSADSSR3 EQU PSA+808 03469000 PSADSSR2 EQU PSA+804 03470000 PSADSSRS EQU PSA+800 03471000 PSASTOR EQU PSA+796 03472000 PSACPUSA EQU PSA+794 03473000 PSAVSTAP EQU PSA+792 03474000 PSAWKVAP EQU PSA+788 03475000 PSAWKRAP EQU PSA+784 03476000 PSAMCHIC EQU PSA+783 03477000 PSARV061 EQU PSA+782 03478000 PSASYMSK EQU PSA+781 03479000 PSAMCHFL EQU PSA+780 03480000 PSACR0 EQU PSA+776 03481000 PSAPSWSV EQU PSA+768 03482000 PSACLHS EQU PSAHLHI 03483000 PSALKR15 EQU PSALKSA+60 03484000 PSALKR14 EQU PSALKSA+56 03485000 PSALKR13 EQU PSALKSA+52 03486000 PSALKR12 EQU PSALKSA+48 03487000 PSALKR11 EQU PSALKSA+44 03488000 PSALKR10 EQU PSALKSA+40 03489000 PSALKR9 EQU PSALKSA+36 03490000 PSALKR8 EQU PSALKSA+32 03491000 PSALKR7 EQU PSALKSA+28 03492000 PSALKR6 EQU PSALKSA+24 03493000 PSALKR5 EQU PSALKSA+20 03494000 PSALKR4 EQU PSALKSA+16 03495000 PSALKR3 EQU PSALKSA+12 03496000 PSALKR2 EQU PSALKSA+8 03497000 PSALKR1 EQU PSALKSA+4 03498000 PSALKR0 EQU PSALKSA 03499000 PSARV023 EQU PSACLHT+52 03500000 PSALOCAL EQU PSACLHT+48 03501000 PSACMSL EQU PSACLHT+44 03502000 PSAOPTL EQU PSACLHT+40 03503000 PSATPACL EQU PSACLHT+36 03504000 PSATPDNL EQU PSACLHT+32 03505000 PSATPNCL EQU PSACLHT+28 03506000 PSAIOSLL EQU PSACLHT+24 03507000 PSAIOSUL EQU PSACLHT+20 03508000 PSAIOSCL EQU PSACLHT+16 03509000 PSAIOSSL EQU PSACLHT+12 03510000 PSASALCL EQU PSACLHT+8 03511000 PSAASML EQU PSACLHT+4 03512000 PSADISPL EQU PSACLHT 03513000 PSASRSA EQU PSA+636 03514000 PSARV050 EQU PSA+634 03515000 PSADSSGO EQU PSA+633 03516000 PSARECUR EQU PSA+632 03517000 PSAHLHIS EQU PSA+628 03518000 PSAIPCSA EQU PSA+624 03519000 @NM00044 EQU PSA+621 03520000 PSAIPCDM EQU PSA+620 03521000 PSAIPCD EQU PSA+616 03522000 @NM00043 EQU PSA+613 03523000 PSAIPCRM EQU PSA+612 03524000 PSAIPCR EQU PSA+608 03525000 PSAMCHEX EQU PSA+600 03526000 PSAMPSW EQU PSA+592 03527000 PSAEXPS2 EQU PSA+584 03528000 PSAEXPS1 EQU PSA+576 03529000 PSAPIREG EQU PSA+572 03530000 PSARSREG EQU PSA+568 03531000 PSAGPREG EQU PSA+556 03532000 PSARV022 EQU PSASUP4 03533000 PSARV021 EQU PSASUP4 03534000 PSARV020 EQU PSASUP4 03535000 PSARV019 EQU PSASUP4 03536000 PSARV018 EQU PSASUP4 03537000 PSARV017 EQU PSASUP4 03538000 PSARV016 EQU PSASUP4 03539000 PSARV015 EQU PSASUP4 03540000 PSARV014 EQU PSASUP3 03541000 PSAULCMS EQU PSASUP3 03542000 PSARV012 EQU PSASUP3 03543000 PSAESTA EQU PSASUP3 03544000 PSASPR EQU PSASUP3 03545000 PSAPSREG EQU PSASUP3 03546000 PSAPI2 EQU PSASUP3 03547000 PSAIOSUP EQU PSASUP3 03548000 PSALCR EQU PSASUP2 03549000 PSARTM EQU PSASUP2 03550000 PSAACR EQU PSASUP2 03551000 PSAIPCE2 EQU PSASUP2 03552000 PSAIPCES EQU PSASUP2 03553000 PSAIPCEC EQU PSASUP2 03554000 PSAGTF EQU PSASUP2 03555000 PSAIPCRI EQU PSASUP2 03556000 PSATYPE6 EQU PSASUP1 03557000 PSATCTL EQU PSASUP1 03558000 PSADISP EQU PSASUP1 03559000 PSALOCK EQU PSASUP1 03560000 PSAPI EQU PSASUP1 03561000 PSAEXT EQU PSASUP1 03562000 PSASVC EQU PSASUP1 03563000 PSAIO EQU PSASUP1 03564000 PSAANEW EQU PSA+544 03565000 PSATOLD EQU PSA+540 03566000 PSATNEW EQU PSA+536 03567000 PSALCCAR EQU PSA+532 03568000 PSALCCAV EQU PSA+528 03569000 PSAPCCAR EQU PSA+524 03570000 PSAPCCAV EQU PSA+520 03571000 PSACPULA EQU PSA+518 03572000 PSACPUPA EQU PSA+516 03573000 PSAPSA EQU PSA+512 03574000 FLCHDEND EQU PSA+512 03575000 FLCCRSAV EQU FLCMCLA+280 03576000 FLCGRSAV EQU FLCMCLA+216 03577000 FLCFPSAV EQU FLCMCLA+184 03578000 FLCFLA EQU FLCMCLA+88 03579000 FLCRGNCD EQU FLCMCLA+84 03580000 FLCFSAA EQU FLCFSA+1 03581000 @NM00042 EQU FLCFSA 03582000 @NM00041 EQU FLCMCLA+72 03583000 FLCMCIC EQU FLCMCLA+64 03584000 @NM00040 EQU FLCMCLA+20 03585000 FLCIOAA EQU FLCIOA+1 03586000 @NM00039 EQU FLCIOA 03587000 @NM00038 EQU FLCMCLA+15 03588000 @NM00037 EQU FLCMCLA+14 03589000 @NM00036 EQU FLCMCLA+12 03590000 FLCLCL EQU FLCMCLA+8 03591000 FLCIOELA EQU FLCIOEL+1 03592000 @NM00035 EQU FLCIOEL 03593000 FLCCHNID EQU FLCMCLA 03594000 @NM00034 EQU PSA+160 03595000 FLCMTRCD EQU PSA+157 03596000 @NM00033 EQU PSA+156 03597000 FLCPERA EQU FLCPER+1 03598000 @NM00032 EQU FLCPER 03599000 @NM00031 EQU PSA+151 03600000 FLCPERCD EQU PSA+150 03601000 FLCMCNUM EQU PSA+149 03602000 @NM00030 EQU PSA+148 03603000 FLCTEAA EQU FLCTEA+1 03604000 @NM00029 EQU FLCTEA 03605000 PSAPIPC EQU PSAPICOD 03606000 PSAPIMC EQU PSAPICOD 03607000 PSAPIPER EQU PSAPICOD 03608000 PSARV049 EQU FLCPICOD 03609000 FLCPILCB EQU FLCPIILC 03610000 @NM00028 EQU FLCPIILC 03611000 @NM00027 EQU PSAEPPSW 03612000 FLCSVCN EQU PSAESPSW+2 03613000 FLCSILCB EQU FLCSVILC 03614000 @NM00026 EQU FLCSVILC 03615000 @NM00025 EQU PSAESPSW 03616000 FLCEICOD EQU PSAEEPSW+2 03617000 PSASPAD EQU PSAEEPSW 03618000 @NM00024 EQU PSA+128 03619000 FLCINPSW EQU PSA+120 03620000 FLCMNPSW EQU PSA+112 03621000 FLCPNPSW EQU PSA+104 03622000 FLCSNPSW EQU PSA+96 03623000 FLCENPSW EQU PSA+88 03624000 FLCTRACE EQU PSA+84 03625000 FLCTIMER EQU PSA+80 03626000 FLCCVT2 EQU PSA+76 03627000 FLCCAW EQU PSA+72 03628000 FLCCSW EQU PSA+64 03629000 FLCIOPSW EQU PSA+56 03630000 FLCMOPSW EQU PSA+48 03631000 FLCPOPSW EQU PSA+40 03632000 FLCSOPSW EQU PSA+32 03633000 FLCEOPSW EQU PSA+24 03634000 @NM00023 EQU FLCICCW2+4 03635000 FLCICCW1 EQU FLCROPSW 03636000 FLCIPPSW EQU FLCRNPSW 03637000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03638000 @RT00123 EQU GETNEXT 03639000 @RT00131 EQU CHKSRB 03640000 @RF00174 EQU RSETENDQ 03641000 @RT00217 EQU CHKSRB 03642000 @RT00221 EQU CHKSRB 03643000 @RF00250 EQU INITSRB 03644000 @RF00244 EQU GETNEXT 03645000 @RF00465 EQU @RC00396 03646000 @RT00528 EQU ASMCALL 03647000 @RF00528 EQU ASMEXIT 03648000 @ENDDATA EQU * 03649000 END IEAVRFR,(C'PLS2121',0701,78164) 03650000